diff --git a/docs/index.html b/docs/index.html
index 04e50ed29..d8ecd89b6 100644
--- a/docs/index.html
+++ b/docs/index.html
@@ -330,6 +330,8 @@ <h3>Source Files</h3>
                   
                 
                   
+                
+                  
                 
                   
                 
@@ -969,6 +971,8 @@ <h3>Procedures</h3>
                   
                 
                   
+                
+                  
                 
                   
                 
diff --git a/docs/interface/discard_pl.html b/docs/interface/discard_pl.html
index 46248d66a..744672bd9 100644
--- a/docs/interface/discard_pl.html
+++ b/docs/interface/discard_pl.html
@@ -136,7 +136,7 @@ <h1>discard_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~123"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~119"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~51"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~55"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/discard_system.html b/docs/interface/discard_system.html
index 8cefef793..93f57ce3b 100644
--- a/docs/interface/discard_system.html
+++ b/docs/interface/discard_system.html
@@ -136,7 +136,7 @@ <h1>discard_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~124"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~120"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/discard_tp.html b/docs/interface/discard_tp.html
index b8beda1cc..996f1a43f 100644
--- a/docs/interface/discard_tp.html
+++ b/docs/interface/discard_tp.html
@@ -136,7 +136,7 @@ <h1>discard_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~125"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~121"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~52"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~56"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/drift_all.html b/docs/interface/drift_all.html
index 31413e749..b7a2ff261 100644
--- a/docs/interface/drift_all.html
+++ b/docs/interface/drift_all.html
@@ -136,7 +136,7 @@ <h1>drift_all
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
diff --git a/docs/interface/drift_body.html b/docs/interface/drift_body.html
index 125652f73..7f15708a4 100644
--- a/docs/interface/drift_body.html
+++ b/docs/interface/drift_body.html
@@ -136,7 +136,7 @@ <h1>drift_body
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~126"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~122"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~53"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~57"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/drift_one.html b/docs/interface/drift_one.html
index e3ee34b25..21cfd2ee5 100644
--- a/docs/interface/drift_one.html
+++ b/docs/interface/drift_one.html
@@ -136,7 +136,7 @@ <h1>drift_one
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
diff --git a/docs/interface/eucl_dist_index_plpl.html b/docs/interface/eucl_dist_index_plpl.html
index 47b90fabb..93aa0c789 100644
--- a/docs/interface/eucl_dist_index_plpl.html
+++ b/docs/interface/eucl_dist_index_plpl.html
@@ -136,7 +136,7 @@ <h1>eucl_dist_index_plpl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~127"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~123"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/fragmentation_initialize.html b/docs/interface/fragmentation_initialize.html
index 25d02c0c3..5bed19cdf 100644
--- a/docs/interface/fragmentation_initialize.html
+++ b/docs/interface/fragmentation_initialize.html
@@ -136,7 +136,7 @@ <h1>fragmentation_initialize
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -220,11 +220,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~fragmentation_initialize~~CallsGraph Pages: 1 -->
-<svg id="interfacefragmentation_initializeCallsGraph" width="378pt" height="32pt"
- viewBox="0.00 0.00 378.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="interfacefragmentation_initializeCallsGraph" width="288pt" height="32pt"
+ viewBox="0.00 0.00 288.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="interface~~fragmentation_initialize~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>interface~~fragmentation_initialize~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 374,-28 374,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 284,-28 284,4 -4,4"/>
 <!-- interface~fragmentation_initialize -->
 <g id="interface~~fragmentation_initialize~~CallsGraph_node1" class="node">
 <title>interface~fragmentation_initialize</title>
@@ -246,18 +246,6 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.31,-12C130.6,-12 139.17,-12 147.63,-12"/>
 <polygon fill="#000000" stroke="#000000" points="147.85,-15.5 157.85,-12 147.85,-8.5 147.85,-15.5"/>
 </g>
-<!-- status -->
-<g id="interface~~fragmentation_initialize~~CallsGraph_node3" class="node">
-<title>status</title>
-<polygon fill="#777777" stroke="#777777" points="370,-24 316,-24 316,0 370,0 370,-24"/>
-<text text-anchor="middle" x="343" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">status</text>
-</g>
-<!-- proc~fragmentation_initialize&#45;&gt;status -->
-<g id="interface~~fragmentation_initialize~~CallsGraph_edge2" class="edge">
-<title>proc~fragmentation_initialize&#45;&gt;status</title>
-<path fill="none" stroke="#000000" d="M280.29,-12C288.97,-12 297.67,-12 305.69,-12"/>
-<polygon fill="#000000" stroke="#000000" points="305.77,-15.5 315.77,-12 305.77,-8.5 305.77,-15.5"/>
-</g>
 </g>
 </svg>
 </div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
@@ -358,12 +346,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~54"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~58"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -378,7 +366,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -388,12 +376,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-family~6"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-family~7"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>family</strong></td><td></td>
+  <td><strong>family</strong></td><td><p>Index of bodies involved in the collision</p></td>
   
 </tr>
 
@@ -408,7 +396,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td></td>
+  <td><strong>x</strong></td><td><p>Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</p></td>
   
 </tr>
 
@@ -423,7 +411,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td></td>
+  <td><strong>v</strong></td><td><p>Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</p></td>
   
 </tr>
 
@@ -438,7 +426,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td></td>
+  <td><strong>L_spin</strong></td><td><p>Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</p></td>
   
 </tr>
 
@@ -453,7 +441,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td></td>
+  <td><strong>Ip</strong></td><td><p>Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</p></td>
   
 </tr>
 
@@ -468,7 +456,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td></td>
+  <td><strong>mass</strong></td><td><p>Two-body equivalent mass and radii for the bodies in the collision</p></td>
   
 </tr>
 
@@ -483,7 +471,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td></td>
+  <td><strong>radius</strong></td><td><p>Two-body equivalent mass and radii for the bodies in the collision</p></td>
   
 </tr>
 
@@ -498,7 +486,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>nfrag</strong></td><td></td>
+  <td><strong>nfrag</strong></td><td><p>Number of fragments to generate</p></td>
   
 </tr>
 
@@ -508,12 +496,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ip_frag"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ip_frag~2"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>Ip_frag</strong></td><td></td>
+  <td><strong>Ip_frag</strong></td><td><p>Fragment rotational inertia vectors</p></td>
   
 </tr>
 
@@ -523,12 +511,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-m_frag"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-m_frag~2"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>m_frag</strong></td><td></td>
+  <td><strong>m_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
   
 </tr>
 
@@ -538,12 +526,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-rad_frag"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-rad_frag~2"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>rad_frag</strong></td><td></td>
+  <td><strong>rad_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
   
 </tr>
 
@@ -553,12 +541,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-xb_frag"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-xb_frag~2"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xb_frag</strong></td><td></td>
+  <td><strong>xb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
   
 </tr>
 
@@ -568,12 +556,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-vb_frag"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-vb_frag~2"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vb_frag</strong></td><td></td>
+  <td><strong>vb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
   
 </tr>
 
@@ -583,12 +571,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-rot_frag"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-rot_frag~2"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>rot_frag</strong></td><td></td>
+  <td><strong>rot_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
   
 </tr>
 
@@ -603,7 +591,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td></td>
+  <td><strong>Qloss</strong></td><td><p>Energy lost during the collision</p></td>
   
 </tr>
 
@@ -618,7 +606,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>lfailure</strong></td><td></td>
+  <td><strong>lfailure</strong></td><td><p>Answers the question: Should this have been a merger instead?</p></td>
   
 </tr>
 
diff --git a/docs/interface/fragmentation_regime.html b/docs/interface/fragmentation_regime.html
index 349b4736f..c68b5ccdf 100644
--- a/docs/interface/fragmentation_regime.html
+++ b/docs/interface/fragmentation_regime.html
@@ -136,7 +136,7 @@ <h1>fragmentation_regime
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -576,7 +576,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>The residual energy after the collision </p></td>
+  <td><strong>Qloss</strong></td><td><p>Energy lost during the collision</p></td>
   
 </tr>
 
diff --git a/docs/interface/gr_kick_getaccb_ns_body.html b/docs/interface/gr_kick_getaccb_ns_body.html
index 23a80907a..06c8572ee 100644
--- a/docs/interface/gr_kick_getaccb_ns_body.html
+++ b/docs/interface/gr_kick_getaccb_ns_body.html
@@ -136,7 +136,7 @@ <h1>gr_kick_getaccb_ns_body
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~128"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~124"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~55"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~59"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/gr_kick_getacch.html b/docs/interface/gr_kick_getacch.html
index c65924a78..52588594a 100644
--- a/docs/interface/gr_kick_getacch.html
+++ b/docs/interface/gr_kick_getacch.html
@@ -136,7 +136,7 @@ <h1>gr_kick_getacch
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
diff --git a/docs/interface/gr_p4_pos_kick.html b/docs/interface/gr_p4_pos_kick.html
index 19e20cdd0..71ab321d4 100644
--- a/docs/interface/gr_p4_pos_kick.html
+++ b/docs/interface/gr_p4_pos_kick.html
@@ -136,7 +136,7 @@ <h1>gr_p4_pos_kick
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
diff --git a/docs/interface/gr_pseudovel2vel.html b/docs/interface/gr_pseudovel2vel.html
index a6e4dd180..30286789e 100644
--- a/docs/interface/gr_pseudovel2vel.html
+++ b/docs/interface/gr_pseudovel2vel.html
@@ -136,7 +136,7 @@ <h1>gr_pseudovel2vel
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
diff --git a/docs/interface/gr_pv2vh_body.html b/docs/interface/gr_pv2vh_body.html
index 1288144d5..8886e01db 100644
--- a/docs/interface/gr_pv2vh_body.html
+++ b/docs/interface/gr_pv2vh_body.html
@@ -136,7 +136,7 @@ <h1>gr_pv2vh_body
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~129"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~125"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/gr_vel2pseudovel.html b/docs/interface/gr_vel2pseudovel.html
index 6878c54c7..13f7e3a8e 100644
--- a/docs/interface/gr_vel2pseudovel.html
+++ b/docs/interface/gr_vel2pseudovel.html
@@ -136,7 +136,7 @@ <h1>gr_vel2pseudovel
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
diff --git a/docs/interface/gr_vh2pv_body.html b/docs/interface/gr_vh2pv_body.html
index 2f7721791..2e67d70df 100644
--- a/docs/interface/gr_vh2pv_body.html
+++ b/docs/interface/gr_vh2pv_body.html
@@ -136,7 +136,7 @@ <h1>gr_vh2pv_body
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~130"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~126"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/helio_drift_body.html b/docs/interface/helio_drift_body.html
index 536dad549..67d62178e 100644
--- a/docs/interface/helio_drift_body.html
+++ b/docs/interface/helio_drift_body.html
@@ -345,65 +345,65 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="none" stroke="black" points="308,-45 220,-45 220,-21 308,-21 308,-45"/>
 <text text-anchor="middle" x="264" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_drift_body</text>
 </g>
-<!-- proc~helio_drift_tp -->
+<!-- proc~helio_drift_pl -->
 <g id="interface~~helio_drift_body~~CalledByGraph_node2" class="node">
-<title>proc~helio_drift_tp</title>
-<g id="a_interface~~helio_drift_body~~CalledByGraph_node2"><a xlink:href=".././proc/helio_drift_tp.html" xlink:title="helio_drift_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="184,-66 110,-66 110,-42 184,-42 184,-66"/>
-<text text-anchor="middle" x="147" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_tp</text>
+<title>proc~helio_drift_pl</title>
+<g id="a_interface~~helio_drift_body~~CalledByGraph_node2"><a xlink:href=".././proc/helio_drift_pl.html" xlink:title="helio_drift_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="183.5,-66 110.5,-66 110.5,-42 183.5,-42 183.5,-66"/>
+<text text-anchor="middle" x="147" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_drift_tp&#45;&gt;interface~helio_drift_body -->
+<!-- proc~helio_drift_pl&#45;&gt;interface~helio_drift_body -->
 <g id="interface~~helio_drift_body~~CalledByGraph_edge1" class="edge">
-<title>proc~helio_drift_tp&#45;&gt;interface~helio_drift_body</title>
-<path fill="none" stroke="#000000" d="M184.07,-47.41C192.21,-45.93 201.03,-44.32 209.71,-42.73"/>
-<polygon fill="#000000" stroke="#000000" points="210.59,-46.13 219.8,-40.89 209.33,-39.24 210.59,-46.13"/>
+<title>proc~helio_drift_pl&#45;&gt;interface~helio_drift_body</title>
+<path fill="none" stroke="#000000" d="M183.76,-47.47C192.09,-45.95 201.14,-44.3 210.05,-42.67"/>
+<polygon fill="#000000" stroke="#000000" points="210.78,-46.09 219.99,-40.85 209.53,-39.21 210.78,-46.09"/>
 </g>
-<!-- proc~helio_drift_pl -->
+<!-- proc~helio_drift_tp -->
 <g id="interface~~helio_drift_body~~CalledByGraph_node3" class="node">
-<title>proc~helio_drift_pl</title>
-<g id="a_interface~~helio_drift_body~~CalledByGraph_node3"><a xlink:href=".././proc/helio_drift_pl.html" xlink:title="helio_drift_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="183.5,-24 110.5,-24 110.5,0 183.5,0 183.5,-24"/>
-<text text-anchor="middle" x="147" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_pl</text>
+<title>proc~helio_drift_tp</title>
+<g id="a_interface~~helio_drift_body~~CalledByGraph_node3"><a xlink:href=".././proc/helio_drift_tp.html" xlink:title="helio_drift_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="184,-24 110,-24 110,0 184,0 184,-24"/>
+<text text-anchor="middle" x="147" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_drift_pl&#45;&gt;interface~helio_drift_body -->
+<!-- proc~helio_drift_tp&#45;&gt;interface~helio_drift_body -->
 <g id="interface~~helio_drift_body~~CalledByGraph_edge2" class="edge">
-<title>proc~helio_drift_pl&#45;&gt;interface~helio_drift_body</title>
-<path fill="none" stroke="#000000" d="M183.76,-18.53C192.09,-20.05 201.14,-21.7 210.05,-23.33"/>
-<polygon fill="#000000" stroke="#000000" points="209.53,-26.79 219.99,-25.15 210.78,-19.91 209.53,-26.79"/>
+<title>proc~helio_drift_tp&#45;&gt;interface~helio_drift_body</title>
+<path fill="none" stroke="#000000" d="M184.07,-18.59C192.21,-20.07 201.03,-21.68 209.71,-23.27"/>
+<polygon fill="#000000" stroke="#000000" points="209.33,-26.76 219.8,-25.11 210.59,-19.87 209.33,-26.76"/>
 </g>
-<!-- interface~helio_drift_tp -->
+<!-- interface~helio_drift_pl -->
 <g id="interface~~helio_drift_body~~CalledByGraph_node4" class="node">
-<title>interface~helio_drift_tp</title>
-<g id="a_interface~~helio_drift_body~~CalledByGraph_node4"><a xlink:href=".././interface/helio_drift_tp.html" xlink:title="helio_drift_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="74,-66 0,-66 0,-42 74,-42 74,-66"/>
-<text text-anchor="middle" x="37" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_tp</text>
+<title>interface~helio_drift_pl</title>
+<g id="a_interface~~helio_drift_body~~CalledByGraph_node4"><a xlink:href=".././interface/helio_drift_pl.html" xlink:title="helio_drift_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="73.5,-66 0.5,-66 0.5,-42 73.5,-42 73.5,-66"/>
+<text text-anchor="middle" x="37" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_drift_tp&#45;&gt;proc~helio_drift_tp -->
+<!-- interface~helio_drift_pl&#45;&gt;proc~helio_drift_pl -->
 <g id="interface~~helio_drift_body~~CalledByGraph_edge3" class="edge">
-<title>interface~helio_drift_tp&#45;&gt;proc~helio_drift_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M74.26,-54C82.37,-54 91.07,-54 99.52,-54"/>
-<polygon fill="#000000" stroke="#000000" points="99.65,-57.5 109.65,-54 99.65,-50.5 99.65,-57.5"/>
+<title>interface~helio_drift_pl&#45;&gt;proc~helio_drift_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M73.66,-54C82.14,-54 91.3,-54 100.17,-54"/>
+<polygon fill="#000000" stroke="#000000" points="100.37,-57.5 110.37,-54 100.37,-50.5 100.37,-57.5"/>
 </g>
-<!-- interface~helio_drift_pl -->
+<!-- interface~helio_drift_tp -->
 <g id="interface~~helio_drift_body~~CalledByGraph_node5" class="node">
-<title>interface~helio_drift_pl</title>
-<g id="a_interface~~helio_drift_body~~CalledByGraph_node5"><a xlink:href=".././interface/helio_drift_pl.html" xlink:title="helio_drift_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="73.5,-24 0.5,-24 0.5,0 73.5,0 73.5,-24"/>
-<text text-anchor="middle" x="37" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_pl</text>
+<title>interface~helio_drift_tp</title>
+<g id="a_interface~~helio_drift_body~~CalledByGraph_node5"><a xlink:href=".././interface/helio_drift_tp.html" xlink:title="helio_drift_tp">
+<polygon fill="#a7506f" stroke="#a7506f" 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">helio_drift_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_drift_pl&#45;&gt;proc~helio_drift_pl -->
+<!-- interface~helio_drift_tp&#45;&gt;proc~helio_drift_tp -->
 <g id="interface~~helio_drift_body~~CalledByGraph_edge4" class="edge">
-<title>interface~helio_drift_pl&#45;&gt;proc~helio_drift_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M73.66,-12C82.14,-12 91.3,-12 100.17,-12"/>
-<polygon fill="#000000" stroke="#000000" points="100.37,-15.5 110.37,-12 100.37,-8.5 100.37,-15.5"/>
+<title>interface~helio_drift_tp&#45;&gt;proc~helio_drift_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M74.26,-12C82.37,-12 91.07,-12 99.52,-12"/>
+<polygon fill="#000000" stroke="#000000" points="99.65,-15.5 109.65,-12 99.65,-8.5 99.65,-15.5"/>
 </g>
 </g>
 </svg>
@@ -519,7 +519,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~16"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~17"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -534,7 +534,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~24"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~25"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_drift_pl.html b/docs/interface/helio_drift_pl.html
index 7e4bce2c1..ccda17634 100644
--- a/docs/interface/helio_drift_pl.html
+++ b/docs/interface/helio_drift_pl.html
@@ -403,7 +403,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~17"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~18"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -418,7 +418,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~25"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~26"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_drift_tp.html b/docs/interface/helio_drift_tp.html
index d1a083851..5144c3fb6 100644
--- a/docs/interface/helio_drift_tp.html
+++ b/docs/interface/helio_drift_tp.html
@@ -403,7 +403,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~18"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~19"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -418,7 +418,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~26"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~27"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_gr_kick_getacch_pl.html b/docs/interface/helio_gr_kick_getacch_pl.html
index 13acfb39e..4da7ab5b0 100644
--- a/docs/interface/helio_gr_kick_getacch_pl.html
+++ b/docs/interface/helio_gr_kick_getacch_pl.html
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~27"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~28"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_gr_kick_getacch_tp.html b/docs/interface/helio_gr_kick_getacch_tp.html
index ef4720238..b374d8c1c 100644
--- a/docs/interface/helio_gr_kick_getacch_tp.html
+++ b/docs/interface/helio_gr_kick_getacch_tp.html
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~28"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~29"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_gr_p4_pl.html b/docs/interface/helio_gr_p4_pl.html
index e683fa11f..cdf915ef5 100644
--- a/docs/interface/helio_gr_p4_pl.html
+++ b/docs/interface/helio_gr_p4_pl.html
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~29"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~30"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_gr_p4_tp.html b/docs/interface/helio_gr_p4_tp.html
index 7558286db..45dbe33d4 100644
--- a/docs/interface/helio_gr_p4_tp.html
+++ b/docs/interface/helio_gr_p4_tp.html
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~30"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~31"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_kick_getacch_pl.html b/docs/interface/helio_kick_getacch_pl.html
index 7f6cb173f..a2cbf4afb 100644
--- a/docs/interface/helio_kick_getacch_pl.html
+++ b/docs/interface/helio_kick_getacch_pl.html
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~19"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~20"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~31"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~32"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_kick_getacch_tp.html b/docs/interface/helio_kick_getacch_tp.html
index 8213e5791..85eccf417 100644
--- a/docs/interface/helio_kick_getacch_tp.html
+++ b/docs/interface/helio_kick_getacch_tp.html
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~20"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~21"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~32"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~33"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_kick_vb_pl.html b/docs/interface/helio_kick_vb_pl.html
index ed1ae3b3d..6cfe71efd 100644
--- a/docs/interface/helio_kick_vb_pl.html
+++ b/docs/interface/helio_kick_vb_pl.html
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~21"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~22"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~33"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~34"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_kick_vb_tp.html b/docs/interface/helio_kick_vb_tp.html
index 99a99fdac..1db4287d8 100644
--- a/docs/interface/helio_kick_vb_tp.html
+++ b/docs/interface/helio_kick_vb_tp.html
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~22"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~23"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~34"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~35"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/helio_step_pl.html b/docs/interface/helio_step_pl.html
index 4871f8e43..be4fdfa84 100644
--- a/docs/interface/helio_step_pl.html
+++ b/docs/interface/helio_step_pl.html
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~23"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~24"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~35"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~36"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/helio_step_system.html b/docs/interface/helio_step_system.html
index 2a646779c..15b05c16c 100644
--- a/docs/interface/helio_step_system.html
+++ b/docs/interface/helio_step_system.html
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~36"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~37"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/helio_step_tp.html b/docs/interface/helio_step_tp.html
index 37d6bc5cc..289cbafe5 100644
--- a/docs/interface/helio_step_tp.html
+++ b/docs/interface/helio_step_tp.html
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~24"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~25"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~37"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~38"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/io_conservation_report.html b/docs/interface/io_conservation_report.html
index 5d75b5c78..83bb82b13 100644
--- a/docs/interface/io_conservation_report.html
+++ b/docs/interface/io_conservation_report.html
@@ -136,7 +136,7 @@ <h1>io_conservation_report
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -246,29 +246,29 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.31,-75C130.6,-75 139.17,-75 147.63,-75"/>
 <polygon fill="#000000" stroke="#000000" points="147.85,-78.5 157.85,-75 147.85,-71.5 147.85,-78.5"/>
 </g>
-<!-- lspin_orig -->
+<!-- lescape -->
 <g id="interface~~io_conservation_report~~CallsGraph_node3" class="node">
-<title>lspin_orig</title>
-<polygon fill="#777777" stroke="#777777" points="375,-150 317,-150 317,-126 375,-126 375,-150"/>
-<text text-anchor="middle" x="346" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lspin_orig</text>
+<title>lescape</title>
+<polygon fill="#777777" stroke="#777777" points="373,-150 319,-150 319,-126 373,-126 373,-150"/>
+<text text-anchor="middle" x="346" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lescape</text>
 </g>
-<!-- proc~io_conservation_report&#45;&gt;lspin_orig -->
+<!-- proc~io_conservation_report&#45;&gt;lescape -->
 <g id="interface~~io_conservation_report~~CallsGraph_edge2" class="edge">
-<title>proc~io_conservation_report&#45;&gt;lspin_orig</title>
+<title>proc~io_conservation_report&#45;&gt;lescape</title>
 <path fill="none" stroke="#000000" d="M244.1,-87.15C263.38,-96.86 290.62,-110.59 311.94,-121.34"/>
 <polygon fill="#000000" stroke="#000000" points="310.47,-124.51 320.97,-125.89 313.62,-118.26 310.47,-124.51"/>
 </g>
-<!-- ltot_orig -->
+<!-- lspin_orig -->
 <g id="interface~~io_conservation_report~~CallsGraph_node4" class="node">
-<title>ltot_orig</title>
-<polygon fill="#777777" stroke="#777777" points="373,-108 319,-108 319,-84 373,-84 373,-108"/>
-<text text-anchor="middle" x="346" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ltot_orig</text>
+<title>lspin_orig</title>
+<polygon fill="#777777" stroke="#777777" points="375,-108 317,-108 317,-84 375,-84 375,-108"/>
+<text text-anchor="middle" x="346" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lspin_orig</text>
 </g>
-<!-- proc~io_conservation_report&#45;&gt;ltot_orig -->
+<!-- proc~io_conservation_report&#45;&gt;lspin_orig -->
 <g id="interface~~io_conservation_report~~CallsGraph_edge3" class="edge">
-<title>proc~io_conservation_report&#45;&gt;ltot_orig</title>
-<path fill="none" stroke="#000000" d="M280.3,-85.13C290.09,-86.77 299.94,-88.43 308.91,-89.94"/>
-<polygon fill="#000000" stroke="#000000" points="308.52,-93.42 318.96,-91.63 309.68,-86.52 308.52,-93.42"/>
+<title>proc~io_conservation_report&#45;&gt;lspin_orig</title>
+<path fill="none" stroke="#000000" d="M280.3,-85.13C289.36,-86.65 298.47,-88.18 306.89,-89.6"/>
+<polygon fill="#000000" stroke="#000000" points="306.32,-93.05 316.76,-91.26 307.48,-86.15 306.32,-93.05"/>
 </g>
 <!-- lorbit_orig -->
 <g id="interface~~io_conservation_report~~CallsGraph_node5" class="node">
@@ -282,15 +282,15 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M280.3,-64.87C288.99,-63.41 297.74,-61.94 305.87,-60.57"/>
 <polygon fill="#000000" stroke="#000000" points="306.51,-64.02 315.79,-58.91 305.35,-57.11 306.51,-64.02"/>
 </g>
-<!-- lescape -->
+<!-- ltot_orig -->
 <g id="interface~~io_conservation_report~~CallsGraph_node6" class="node">
-<title>lescape</title>
+<title>ltot_orig</title>
 <polygon fill="#777777" stroke="#777777" points="373,-24 319,-24 319,0 373,0 373,-24"/>
-<text text-anchor="middle" x="346" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lescape</text>
+<text text-anchor="middle" x="346" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ltot_orig</text>
 </g>
-<!-- proc~io_conservation_report&#45;&gt;lescape -->
+<!-- proc~io_conservation_report&#45;&gt;ltot_orig -->
 <g id="interface~~io_conservation_report~~CallsGraph_edge5" class="edge">
-<title>proc~io_conservation_report&#45;&gt;lescape</title>
+<title>proc~io_conservation_report&#45;&gt;ltot_orig</title>
 <path fill="none" stroke="#000000" d="M244.1,-62.85C263.38,-53.14 290.62,-39.41 311.94,-28.66"/>
 <polygon fill="#000000" stroke="#000000" points="313.62,-31.74 320.97,-24.11 310.47,-25.49 313.62,-31.74"/>
 </g>
@@ -394,7 +394,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~131"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~127"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/io_dump_param.html b/docs/interface/io_dump_param.html
index 6fc0e16ba..3dd17dd6d 100644
--- a/docs/interface/io_dump_param.html
+++ b/docs/interface/io_dump_param.html
@@ -136,7 +136,7 @@ <h1>io_dump_param
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~132"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-self~128"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/io_dump_swiftest.html b/docs/interface/io_dump_swiftest.html
index 26e931085..a05b98a88 100644
--- a/docs/interface/io_dump_swiftest.html
+++ b/docs/interface/io_dump_swiftest.html
@@ -136,7 +136,7 @@ <h1>io_dump_swiftest
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -345,7 +345,7 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~133"></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
+  <td><span class="anchor" id="variable-self~129"></span>class(<a href='../type/swiftest_base.html'>swiftest_base</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -400,21 +400,6 @@ <h3>Arguments</h3>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-msg~2"></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
diff --git a/docs/interface/io_dump_system.html b/docs/interface/io_dump_system.html
index 022dc1f68..a2d862c83 100644
--- a/docs/interface/io_dump_system.html
+++ b/docs/interface/io_dump_system.html
@@ -136,7 +136,7 @@ <h1>io_dump_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -246,15 +246,15 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M94.21,-75C102.46,-75 111.13,-75 119.63,-75"/>
 <polygon fill="#000000" stroke="#000000" points="119.86,-78.5 129.86,-75 119.86,-71.5 119.86,-78.5"/>
 </g>
-<!-- dump_param_file -->
+<!-- dump_tp_file -->
 <g id="interface~~io_dump_system~~CallsGraph_node3" class="node">
-<title>dump_param_file</title>
-<polygon fill="#777777" stroke="#777777" points="356,-150 260,-150 260,-126 356,-126 356,-150"/>
-<text text-anchor="middle" x="308" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_param_file</text>
+<title>dump_tp_file</title>
+<polygon fill="#777777" stroke="#777777" points="345,-150 271,-150 271,-126 345,-126 345,-150"/>
+<text text-anchor="middle" x="308" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_tp_file</text>
 </g>
-<!-- proc~io_dump_system&#45;&gt;dump_param_file -->
+<!-- proc~io_dump_system&#45;&gt;dump_tp_file -->
 <g id="interface~~io_dump_system~~CallsGraph_edge2" class="edge">
-<title>proc~io_dump_system&#45;&gt;dump_param_file</title>
+<title>proc~io_dump_system&#45;&gt;dump_tp_file</title>
 <path fill="none" stroke="#000000" d="M200.81,-87.1C217.17,-95.67 239.81,-107.32 260,-117 263.16,-118.51 266.45,-120.06 269.76,-121.58"/>
 <polygon fill="#000000" stroke="#000000" points="268.5,-124.85 279.05,-125.81 271.4,-118.48 268.5,-124.85"/>
 </g>
@@ -270,17 +270,17 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M224.21,-82.52C236.17,-84.47 249.06,-86.57 261.01,-88.51"/>
 <polygon fill="#000000" stroke="#000000" points="260.8,-92.02 271.23,-90.18 261.92,-85.12 260.8,-92.02"/>
 </g>
-<!-- dump_tp_file -->
+<!-- dump_param_file -->
 <g id="interface~~io_dump_system~~CallsGraph_node5" class="node">
-<title>dump_tp_file</title>
-<polygon fill="#777777" stroke="#777777" points="345,-66 271,-66 271,-42 345,-42 345,-66"/>
-<text text-anchor="middle" x="308" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_tp_file</text>
+<title>dump_param_file</title>
+<polygon fill="#777777" stroke="#777777" points="356,-66 260,-66 260,-42 356,-42 356,-66"/>
+<text text-anchor="middle" x="308" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_param_file</text>
 </g>
-<!-- proc~io_dump_system&#45;&gt;dump_tp_file -->
+<!-- proc~io_dump_system&#45;&gt;dump_param_file -->
 <g id="interface~~io_dump_system~~CallsGraph_edge4" class="edge">
-<title>proc~io_dump_system&#45;&gt;dump_tp_file</title>
-<path fill="none" stroke="#000000" d="M224.21,-67.48C236.06,-65.55 248.81,-63.47 260.67,-61.54"/>
-<polygon fill="#000000" stroke="#000000" points="261.51,-64.95 270.82,-59.89 260.39,-58.04 261.51,-64.95"/>
+<title>proc~io_dump_system&#45;&gt;dump_param_file</title>
+<path fill="none" stroke="#000000" d="M224.21,-67.48C232.52,-66.12 241.28,-64.7 249.86,-63.3"/>
+<polygon fill="#000000" stroke="#000000" points="250.5,-66.74 259.81,-61.68 249.38,-59.83 250.5,-66.74"/>
 </g>
 <!-- dump_cb_file -->
 <g id="interface~~io_dump_system~~CallsGraph_node6" class="node">
@@ -363,7 +363,7 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine io_dump_system(self, param, msg)
+public module subroutine io_dump_system(self, param)
     
     
    
@@ -394,7 +394,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~134"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~130"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -418,21 +418,6 @@ <h3>Arguments</h3>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-msg~3"></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
diff --git a/docs/interface/io_get_args.html b/docs/interface/io_get_args.html
index 13a35ed08..2a9f1b3fc 100644
--- a/docs/interface/io_get_args.html
+++ b/docs/interface/io_get_args.html
@@ -136,7 +136,7 @@ <h1>io_get_args
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -246,18 +246,18 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M69.23,-54C77.32,-54 86.08,-54 94.56,-54"/>
 <polygon fill="#000000" stroke="#000000" points="94.7,-57.5 104.7,-54 94.7,-50.5 94.7,-57.5"/>
 </g>
-<!-- interface~util_version -->
+<!-- interface~io_toupper -->
 <g id="interface~~io_get_args~~CallsGraph_node3" class="node">
-<title>interface~util_version</title>
-<g id="a_interface~~io_get_args~~CallsGraph_node3"><a xlink:href=".././interface/util_version.html" xlink:title="util_version">
-<polygon fill="#a7506f" stroke="#a7506f" points="277,-108 210,-108 210,-84 277,-84 277,-108"/>
-<text text-anchor="middle" x="243.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version</text>
+<title>interface~io_toupper</title>
+<g id="a_interface~~io_get_args~~CallsGraph_node3"><a xlink:href=".././interface/io_toupper.html" xlink:title="io_toupper">
+<polygon fill="#a7506f" stroke="#a7506f" points="275.5,-108 211.5,-108 211.5,-84 275.5,-84 275.5,-108"/>
+<text text-anchor="middle" x="243.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
 </a>
 </g>
 </g>
-<!-- proc~io_get_args&#45;&gt;interface~util_version -->
+<!-- proc~io_get_args&#45;&gt;interface~io_toupper -->
 <g id="interface~~io_get_args~~CallsGraph_edge2" class="edge">
-<title>proc~io_get_args&#45;&gt;interface~util_version</title>
+<title>proc~io_get_args&#45;&gt;interface~io_toupper</title>
 <path fill="none" stroke="#000000" d="M169.73,-66.04C180.4,-70.43 192.63,-75.47 203.99,-80.14"/>
 <polygon fill="#000000" stroke="#000000" points="202.69,-83.39 213.27,-83.96 205.35,-76.92 202.69,-83.39"/>
 </g>
@@ -276,35 +276,35 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M174.18,-54C184.45,-54 195.79,-54 206.22,-54"/>
 <polygon fill="#000000" stroke="#000000" points="206.28,-57.5 216.28,-54 206.28,-50.5 206.28,-57.5"/>
 </g>
-<!-- interface~io_toupper -->
+<!-- interface~util_version -->
 <g id="interface~~io_get_args~~CallsGraph_node5" class="node">
-<title>interface~io_toupper</title>
-<g id="a_interface~~io_get_args~~CallsGraph_node5"><a xlink:href=".././interface/io_toupper.html" xlink:title="io_toupper">
-<polygon fill="#a7506f" stroke="#a7506f" points="275.5,-24 211.5,-24 211.5,0 275.5,0 275.5,-24"/>
-<text text-anchor="middle" x="243.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
+<title>interface~util_version</title>
+<g id="a_interface~~io_get_args~~CallsGraph_node5"><a xlink:href=".././interface/util_version.html" xlink:title="util_version">
+<polygon fill="#a7506f" stroke="#a7506f" points="277,-24 210,-24 210,0 277,0 277,-24"/>
+<text text-anchor="middle" x="243.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version</text>
 </a>
 </g>
 </g>
-<!-- proc~io_get_args&#45;&gt;interface~io_toupper -->
+<!-- proc~io_get_args&#45;&gt;interface~util_version -->
 <g id="interface~~io_get_args~~CallsGraph_edge4" class="edge">
-<title>proc~io_get_args&#45;&gt;interface~io_toupper</title>
+<title>proc~io_get_args&#45;&gt;interface~util_version</title>
 <path fill="none" stroke="#000000" d="M169.73,-41.96C180.4,-37.57 192.63,-32.53 203.99,-27.86"/>
 <polygon fill="#000000" stroke="#000000" points="205.35,-31.08 213.27,-24.04 202.69,-24.61 205.35,-31.08"/>
 </g>
-<!-- proc~util_version -->
-<g id="interface~~io_get_args~~CallsGraph_node8" class="node">
-<title>proc~util_version</title>
-<g id="a_interface~~io_get_args~~CallsGraph_node8"><a xlink:href=".././proc/util_version.html" xlink:title="util_version">
-<polygon fill="#d9534f" stroke="#d9534f" points="380,-108 313,-108 313,-84 380,-84 380,-108"/>
-<text text-anchor="middle" x="346.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version</text>
+<!-- proc~io_toupper -->
+<g id="interface~~io_get_args~~CallsGraph_node6" class="node">
+<title>proc~io_toupper</title>
+<g id="a_interface~~io_get_args~~CallsGraph_node6"><a xlink:href=".././proc/io_toupper.html" xlink:title="io_toupper">
+<polygon fill="#d9534f" stroke="#d9534f" points="378.5,-108 314.5,-108 314.5,-84 378.5,-84 378.5,-108"/>
+<text text-anchor="middle" x="346.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
 </a>
 </g>
 </g>
-<!-- interface~util_version&#45;&gt;proc~util_version -->
+<!-- interface~io_toupper&#45;&gt;proc~io_toupper -->
 <g id="interface~~io_get_args~~CallsGraph_edge5" class="edge">
-<title>interface~util_version&#45;&gt;proc~util_version</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M277.01,-96C285.13,-96 293.96,-96 302.5,-96"/>
-<polygon fill="#000000" stroke="#000000" points="302.7,-99.5 312.7,-96 302.7,-92.5 302.7,-99.5"/>
+<title>interface~io_toupper&#45;&gt;proc~io_toupper</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.63,-96C284.65,-96 294.65,-96 304.19,-96"/>
+<polygon fill="#000000" stroke="#000000" points="304.3,-99.5 314.3,-96 304.3,-92.5 304.3,-99.5"/>
 </g>
 <!-- proc~util_exit -->
 <g id="interface~~io_get_args~~CallsGraph_node7" class="node">
@@ -321,20 +321,20 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.51,-54C282.2,-54 296.2,-54 308.92,-54"/>
 <polygon fill="#000000" stroke="#000000" points="309.23,-57.5 319.23,-54 309.23,-50.5 309.23,-57.5"/>
 </g>
-<!-- proc~io_toupper -->
-<g id="interface~~io_get_args~~CallsGraph_node6" class="node">
-<title>proc~io_toupper</title>
-<g id="a_interface~~io_get_args~~CallsGraph_node6"><a xlink:href=".././proc/io_toupper.html" xlink:title="io_toupper">
-<polygon fill="#d9534f" stroke="#d9534f" points="378.5,-24 314.5,-24 314.5,0 378.5,0 378.5,-24"/>
-<text text-anchor="middle" x="346.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
+<!-- proc~util_version -->
+<g id="interface~~io_get_args~~CallsGraph_node8" class="node">
+<title>proc~util_version</title>
+<g id="a_interface~~io_get_args~~CallsGraph_node8"><a xlink:href=".././proc/util_version.html" xlink:title="util_version">
+<polygon fill="#d9534f" stroke="#d9534f" points="380,-24 313,-24 313,0 380,0 380,-24"/>
+<text text-anchor="middle" x="346.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version</text>
 </a>
 </g>
 </g>
-<!-- interface~io_toupper&#45;&gt;proc~io_toupper -->
+<!-- interface~util_version&#45;&gt;proc~util_version -->
 <g id="interface~~io_get_args~~CallsGraph_edge7" class="edge">
-<title>interface~io_toupper&#45;&gt;proc~io_toupper</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.63,-12C284.65,-12 294.65,-12 304.19,-12"/>
-<polygon fill="#000000" stroke="#000000" points="304.3,-15.5 314.3,-12 304.3,-8.5 304.3,-15.5"/>
+<title>interface~util_version&#45;&gt;proc~util_version</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M277.01,-12C285.13,-12 293.96,-12 302.5,-12"/>
+<polygon fill="#000000" stroke="#000000" points="302.7,-15.5 312.7,-12 302.7,-8.5 302.7,-15.5"/>
 </g>
 </g>
 </svg>
@@ -470,7 +470,7 @@ <h3>Arguments</h3>
     
     
     
-      <h3>Return Value <span class="anchor" id="variable-ierr~5"></span><small>integer(kind=I4B)
+      <h3>Return Value <span class="anchor" id="variable-ierr~4"></span><small>integer(kind=I4B)
   </small></h3>
     <p>I/O error code </p>
     
diff --git a/docs/interface/io_get_token.html b/docs/interface/io_get_token.html
index 9b2e80078..59ecdd8f1 100644
--- a/docs/interface/io_get_token.html
+++ b/docs/interface/io_get_token.html
@@ -136,7 +136,7 @@ <h1>io_get_token
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -507,7 +507,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ierr~6"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ierr~5"></span>integer(kind=I4B),</td>
   <td>intent(out)</td>
   <td></td>
   
diff --git a/docs/interface/io_param_reader.html b/docs/interface/io_param_reader.html
index ea1302f3b..0af9719cb 100644
--- a/docs/interface/io_param_reader.html
+++ b/docs/interface/io_param_reader.html
@@ -136,7 +136,7 @@ <h1>io_param_reader
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -246,65 +246,65 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M95.07,-33C103.48,-33 112.32,-33 120.97,-33"/>
 <polygon fill="#000000" stroke="#000000" points="121,-36.5 131,-33 121,-29.5 121,-36.5"/>
 </g>
-<!-- interface~io_get_token -->
-<g id="interface~~io_param_reader~~CallsGraph_node3" class="node">
-<title>interface~io_get_token</title>
-<g id="a_interface~~io_param_reader~~CallsGraph_node3"><a xlink:href=".././interface/io_get_token.html" xlink:title="io_get_token">
-<polygon fill="#a7506f" stroke="#a7506f" points="336,-66 262,-66 262,-42 336,-42 336,-66"/>
-<text text-anchor="middle" x="299" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
-</a>
-</g>
-</g>
-<!-- proc~io_param_reader&#45;&gt;interface~io_get_token -->
-<g id="interface~~io_param_reader~~CallsGraph_edge2" class="edge">
-<title>proc~io_param_reader&#45;&gt;interface~io_get_token</title>
-<path fill="none" stroke="#000000" d="M226.33,-41.3C234.7,-42.78 243.42,-44.33 251.78,-45.81"/>
-<polygon fill="#000000" stroke="#000000" points="251.28,-49.27 261.74,-47.57 252.5,-42.38 251.28,-49.27"/>
-</g>
 <!-- interface~io_toupper -->
-<g id="interface~~io_param_reader~~CallsGraph_node4" class="node">
+<g id="interface~~io_param_reader~~CallsGraph_node3" class="node">
 <title>interface~io_toupper</title>
-<g id="a_interface~~io_param_reader~~CallsGraph_node4"><a xlink:href=".././interface/io_toupper.html" xlink:title="io_toupper">
-<polygon fill="#a7506f" stroke="#a7506f" points="331,-24 267,-24 267,0 331,0 331,-24"/>
-<text text-anchor="middle" x="299" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
+<g id="a_interface~~io_param_reader~~CallsGraph_node3"><a xlink:href=".././interface/io_toupper.html" xlink:title="io_toupper">
+<polygon fill="#a7506f" stroke="#a7506f" points="331,-66 267,-66 267,-42 331,-42 331,-66"/>
+<text text-anchor="middle" x="299" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
 </a>
 </g>
 </g>
 <!-- proc~io_param_reader&#45;&gt;interface~io_toupper -->
-<g id="interface~~io_param_reader~~CallsGraph_edge3" class="edge">
+<g id="interface~~io_param_reader~~CallsGraph_edge2" class="edge">
 <title>proc~io_param_reader&#45;&gt;interface~io_toupper</title>
-<path fill="none" stroke="#000000" d="M226.33,-24.7C236.42,-22.91 247,-21.04 256.85,-19.29"/>
-<polygon fill="#000000" stroke="#000000" points="257.56,-22.72 266.79,-17.53 256.34,-15.83 257.56,-22.72"/>
+<path fill="none" stroke="#000000" d="M226.33,-41.3C236.42,-43.09 247,-44.96 256.85,-46.71"/>
+<polygon fill="#000000" stroke="#000000" points="256.34,-50.17 266.79,-48.47 257.56,-43.28 256.34,-50.17"/>
 </g>
-<!-- proc~io_get_token -->
-<g id="interface~~io_param_reader~~CallsGraph_node6" class="node">
-<title>proc~io_get_token</title>
-<g id="a_interface~~io_param_reader~~CallsGraph_node6"><a xlink:href=".././proc/io_get_token.html" xlink:title="io_get_token">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="446,-66 372,-66 372,-42 446,-42 446,-66"/>
-<text text-anchor="middle" x="409" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
+<!-- interface~io_get_token -->
+<g id="interface~~io_param_reader~~CallsGraph_node4" class="node">
+<title>interface~io_get_token</title>
+<g id="a_interface~~io_param_reader~~CallsGraph_node4"><a xlink:href=".././interface/io_get_token.html" xlink:title="io_get_token">
+<polygon fill="#a7506f" stroke="#a7506f" points="336,-24 262,-24 262,0 336,0 336,-24"/>
+<text text-anchor="middle" x="299" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
 </a>
 </g>
 </g>
-<!-- interface~io_get_token&#45;&gt;proc~io_get_token -->
-<g id="interface~~io_param_reader~~CallsGraph_edge4" class="edge">
-<title>interface~io_get_token&#45;&gt;proc~io_get_token</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.26,-54C344.37,-54 353.07,-54 361.52,-54"/>
-<polygon fill="#000000" stroke="#000000" points="361.65,-57.5 371.65,-54 361.65,-50.5 361.65,-57.5"/>
+<!-- proc~io_param_reader&#45;&gt;interface~io_get_token -->
+<g id="interface~~io_param_reader~~CallsGraph_edge3" class="edge">
+<title>proc~io_param_reader&#45;&gt;interface~io_get_token</title>
+<path fill="none" stroke="#000000" d="M226.33,-24.7C234.7,-23.22 243.42,-21.67 251.78,-20.19"/>
+<polygon fill="#000000" stroke="#000000" points="252.5,-23.62 261.74,-18.43 251.28,-16.73 252.5,-23.62"/>
 </g>
 <!-- proc~io_toupper -->
 <g id="interface~~io_param_reader~~CallsGraph_node5" class="node">
 <title>proc~io_toupper</title>
 <g id="a_interface~~io_param_reader~~CallsGraph_node5"><a xlink:href=".././proc/io_toupper.html" xlink:title="io_toupper">
-<polygon fill="#d9534f" stroke="#d9534f" points="441,-24 377,-24 377,0 441,0 441,-24"/>
-<text text-anchor="middle" x="409" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="441,-66 377,-66 377,-42 441,-42 441,-66"/>
+<text text-anchor="middle" x="409" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
 </a>
 </g>
 </g>
 <!-- interface~io_toupper&#45;&gt;proc~io_toupper -->
-<g id="interface~~io_param_reader~~CallsGraph_edge5" class="edge">
+<g id="interface~~io_param_reader~~CallsGraph_edge4" class="edge">
 <title>interface~io_toupper&#45;&gt;proc~io_toupper</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.24,-12C342.32,-12 354.97,-12 366.76,-12"/>
-<polygon fill="#000000" stroke="#000000" points="366.83,-15.5 376.83,-12 366.83,-8.5 366.83,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.24,-54C342.32,-54 354.97,-54 366.76,-54"/>
+<polygon fill="#000000" stroke="#000000" points="366.83,-57.5 376.83,-54 366.83,-50.5 366.83,-57.5"/>
+</g>
+<!-- proc~io_get_token -->
+<g id="interface~~io_param_reader~~CallsGraph_node6" class="node">
+<title>proc~io_get_token</title>
+<g id="a_interface~~io_param_reader~~CallsGraph_node6"><a xlink:href=".././proc/io_get_token.html" xlink:title="io_get_token">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="446,-24 372,-24 372,0 446,0 446,-24"/>
+<text text-anchor="middle" x="409" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
+</a>
+</g>
+</g>
+<!-- interface~io_get_token&#45;&gt;proc~io_get_token -->
+<g id="interface~~io_param_reader~~CallsGraph_edge5" class="edge">
+<title>interface~io_get_token&#45;&gt;proc~io_get_token</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.26,-12C344.37,-12 353.07,-12 361.52,-12"/>
+<polygon fill="#000000" stroke="#000000" points="361.65,-15.5 371.65,-12 361.65,-8.5 361.65,-15.5"/>
 </g>
 </g>
 </svg>
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~135"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-self~131"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/io_param_writer.html b/docs/interface/io_param_writer.html
index 94ca286c4..0751dd111 100644
--- a/docs/interface/io_param_writer.html
+++ b/docs/interface/io_param_writer.html
@@ -136,7 +136,7 @@ <h1>io_param_writer
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~136"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-self~132"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/io_read_body_in.html b/docs/interface/io_read_body_in.html
index 5167c5a43..fbbb7d1d0 100644
--- a/docs/interface/io_read_body_in.html
+++ b/docs/interface/io_read_body_in.html
@@ -136,7 +136,7 @@ <h1>io_read_body_in
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~137"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~133"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/io_read_cb_in.html b/docs/interface/io_read_cb_in.html
index 5f2555e7e..a1ed0d5d6 100644
--- a/docs/interface/io_read_cb_in.html
+++ b/docs/interface/io_read_cb_in.html
@@ -136,7 +136,7 @@ <h1>io_read_cb_in
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~138"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-self~134"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/io_read_frame_body.html b/docs/interface/io_read_frame_body.html
index 5f658440b..e41edaf02 100644
--- a/docs/interface/io_read_frame_body.html
+++ b/docs/interface/io_read_frame_body.html
@@ -136,7 +136,7 @@ <h1>io_read_frame_body
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~140"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~136"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~7"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~5"></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -421,7 +421,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-form~3"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-form~2"></span>character(len=*),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -436,7 +436,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ierr~7"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ierr~6"></span>integer(kind=I4B),</td>
   <td>intent(out)</td>
   <td></td>
   
diff --git a/docs/interface/io_read_frame_cb.html b/docs/interface/io_read_frame_cb.html
index 1ad3c7e62..eb6841f2f 100644
--- a/docs/interface/io_read_frame_cb.html
+++ b/docs/interface/io_read_frame_cb.html
@@ -136,7 +136,7 @@ <h1>io_read_frame_cb
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~141"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-self~137"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~8"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~6"></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -421,7 +421,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-form~4"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-form~3"></span>character(len=*),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -436,7 +436,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ierr~8"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ierr~7"></span>integer(kind=I4B),</td>
   <td>intent(out)</td>
   <td></td>
   
diff --git a/docs/interface/io_read_frame_system.html b/docs/interface/io_read_frame_system.html
index 7ba8173a7..9e0bf1415 100644
--- a/docs/interface/io_read_frame_system.html
+++ b/docs/interface/io_read_frame_system.html
@@ -136,7 +136,7 @@ <h1>io_read_frame_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~142"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~138"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~9"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~7"></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-form~5"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-form~4"></span>character(len=*),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -421,7 +421,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ierr~9"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ierr~8"></span>integer(kind=I4B),</td>
   <td>intent(out)</td>
   <td></td>
   
diff --git a/docs/interface/io_read_param_in.html b/docs/interface/io_read_param_in.html
index f8a779e3c..62b1ff42a 100644
--- a/docs/interface/io_read_param_in.html
+++ b/docs/interface/io_read_param_in.html
@@ -136,7 +136,7 @@ <h1>io_read_param_in
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~139"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-self~135"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/io_toupper.html b/docs/interface/io_toupper.html
index 29f1fa2c0..595fb933e 100644
--- a/docs/interface/io_toupper.html
+++ b/docs/interface/io_toupper.html
@@ -136,7 +136,7 @@ <h1>io_toupper
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -363,25 +363,10 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" d="M226.32,-20.66C234.83,-22.24 243.65,-23.87 251.97,-25.41"/>
 <polygon fill="#000000" stroke="#000000" points="251.36,-28.86 261.83,-27.23 252.63,-21.97 251.36,-28.86"/>
 </g>
-<!-- interface~io_get_args -->
-<g id="interface~~io_toupper~~CalledByGraph_node4" class="node">
-<title>interface~io_get_args</title>
-<g id="a_interface~~io_toupper~~CalledByGraph_node4"><a xlink:href=".././interface/io_get_args.html" xlink:title="io_get_args">
-<polygon fill="#a7506f" stroke="#a7506f" points="82,-66 13,-66 13,-42 82,-42 82,-66"/>
-<text text-anchor="middle" x="47.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
-</a>
-</g>
-</g>
-<!-- interface~io_get_args&#45;&gt;proc~io_get_args -->
-<g id="interface~~io_toupper~~CalledByGraph_edge3" class="edge">
-<title>interface~io_get_args&#45;&gt;proc~io_get_args</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M82.06,-54C97.76,-54 116.67,-54 133.5,-54"/>
-<polygon fill="#000000" stroke="#000000" points="133.66,-57.5 143.66,-54 133.66,-50.5 133.66,-57.5"/>
-</g>
 <!-- interface~io_param_reader -->
-<g id="interface~~io_toupper~~CalledByGraph_node5" class="node">
+<g id="interface~~io_toupper~~CalledByGraph_node4" class="node">
 <title>interface~io_param_reader</title>
-<g id="a_interface~~io_toupper~~CalledByGraph_node5"><a xlink:href=".././interface/io_param_reader.html" xlink:title="io_param_reader">
+<g id="a_interface~~io_toupper~~CalledByGraph_node4"><a xlink:href=".././interface/io_param_reader.html" xlink:title="io_param_reader">
 <polygon fill="#a7506f" stroke="#a7506f" points="95,-24 0,-24 0,0 95,0 95,-24"/>
 <text text-anchor="middle" x="47.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
 </a>
@@ -393,6 +378,21 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M95.07,-12C103.48,-12 112.32,-12 120.97,-12"/>
 <polygon fill="#000000" stroke="#000000" points="121,-15.5 131,-12 121,-8.5 121,-15.5"/>
 </g>
+<!-- interface~io_get_args -->
+<g id="interface~~io_toupper~~CalledByGraph_node5" class="node">
+<title>interface~io_get_args</title>
+<g id="a_interface~~io_toupper~~CalledByGraph_node5"><a xlink:href=".././interface/io_get_args.html" xlink:title="io_get_args">
+<polygon fill="#a7506f" stroke="#a7506f" points="82,-66 13,-66 13,-42 82,-42 82,-66"/>
+<text text-anchor="middle" x="47.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
+</a>
+</g>
+</g>
+<!-- interface~io_get_args&#45;&gt;proc~io_get_args -->
+<g id="interface~~io_toupper~~CalledByGraph_edge3" class="edge">
+<title>interface~io_get_args&#45;&gt;proc~io_get_args</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M82.06,-54C97.76,-54 116.67,-54 133.5,-54"/>
+<polygon fill="#000000" stroke="#000000" points="133.66,-57.5 143.66,-54 133.66,-50.5 133.66,-57.5"/>
+</g>
 </g>
 </svg>
 </div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
diff --git a/docs/interface/io_write_discard.html b/docs/interface/io_write_discard.html
index 1c3a3c691..3f0c79628 100644
--- a/docs/interface/io_write_discard.html
+++ b/docs/interface/io_write_discard.html
@@ -136,7 +136,7 @@ <h1>io_write_discard
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~143"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~139"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/io_write_encounter.html b/docs/interface/io_write_encounter.html
index f24027bf7..69a6bba11 100644
--- a/docs/interface/io_write_encounter.html
+++ b/docs/interface/io_write_encounter.html
@@ -136,7 +136,7 @@ <h1>io_write_encounter
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
diff --git a/docs/interface/io_write_frame_body.html b/docs/interface/io_write_frame_body.html
index 10f49c741..3a96c532b 100644
--- a/docs/interface/io_write_frame_body.html
+++ b/docs/interface/io_write_frame_body.html
@@ -136,7 +136,7 @@ <h1>io_write_frame_body
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~144"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~140"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~10"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~8"></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/io_write_frame_cb.html b/docs/interface/io_write_frame_cb.html
index f301ebb66..afbd7d59a 100644
--- a/docs/interface/io_write_frame_cb.html
+++ b/docs/interface/io_write_frame_cb.html
@@ -136,7 +136,7 @@ <h1>io_write_frame_cb
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~145"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td><span class="anchor" id="variable-self~141"></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~11"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~9"></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/io_write_frame_system.html b/docs/interface/io_write_frame_system.html
index 84f4ad92e..ede208db0 100644
--- a/docs/interface/io_write_frame_system.html
+++ b/docs/interface/io_write_frame_system.html
@@ -136,7 +136,7 @@ <h1>io_write_frame_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -397,7 +397,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~146"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~142"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -412,7 +412,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~12"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~10"></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/kick_getacch_int_pl.html b/docs/interface/kick_getacch_int_pl.html
index 794c7b4ce..aa18a2d35 100644
--- a/docs/interface/kick_getacch_int_pl.html
+++ b/docs/interface/kick_getacch_int_pl.html
@@ -136,7 +136,7 @@ <h1>kick_getacch_int_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~147"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~143"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/kick_getacch_int_tp.html b/docs/interface/kick_getacch_int_tp.html
index c305266e9..d884999e8 100644
--- a/docs/interface/kick_getacch_int_tp.html
+++ b/docs/interface/kick_getacch_int_tp.html
@@ -136,7 +136,7 @@ <h1>kick_getacch_int_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~148"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~144"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/lambda_obj~2.html b/docs/interface/lambda_obj~2.html
index a68859387..ca9a57217 100644
--- a/docs/interface/lambda_obj~2.html
+++ b/docs/interface/lambda_obj~2.html
@@ -249,7 +249,7 @@ <h3 class="panel-title">Calls</h3>
 </g>
 </g>
 <!-- interface~lambda_obj~2&#45;&gt;proc~lambda_init_0 -->
-<g id="interface~~lambda_obj~2~~CallsGraph_edge3" class="edge">
+<g id="interface~~lambda_obj~2~~CallsGraph_edge1" class="edge">
 <title>interface~lambda_obj~2&#45;&gt;proc~lambda_init_0</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M68.04,-65.81C80.82,-70.38 95.63,-75.67 109.24,-80.54"/>
 <polygon fill="#000000" stroke="#000000" points="108.29,-83.92 118.89,-83.99 110.65,-77.32 108.29,-83.92"/>
@@ -279,7 +279,7 @@ <h3 class="panel-title">Calls</h3>
 </g>
 </g>
 <!-- interface~lambda_obj~2&#45;&gt;proc~lambda_init_tvar -->
-<g id="interface~~lambda_obj~2~~CallsGraph_edge1" class="edge">
+<g id="interface~~lambda_obj~2~~CallsGraph_edge3" class="edge">
 <title>interface~lambda_obj~2&#45;&gt;proc~lambda_init_tvar</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M68.04,-42.19C80.82,-37.62 95.63,-32.33 109.24,-27.46"/>
 <polygon fill="#000000" stroke="#000000" points="110.65,-30.68 118.89,-24.01 108.29,-24.08 110.65,-30.68"/>
diff --git a/docs/interface/obl_acc_body.html b/docs/interface/obl_acc_body.html
index a75c19f3d..7f4cbfa5f 100644
--- a/docs/interface/obl_acc_body.html
+++ b/docs/interface/obl_acc_body.html
@@ -136,7 +136,7 @@ <h1>obl_acc_body
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -333,63 +333,63 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="none" stroke="black" points="279,-45 200,-45 200,-21 279,-21 279,-45"/>
 <text text-anchor="middle" x="239.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">obl_acc_body</text>
 </g>
-<!-- proc~obl_acc_tp -->
+<!-- proc~obl_acc_pl -->
 <g id="interface~~obl_acc_body~~CalledByGraph_node2" class="node">
-<title>proc~obl_acc_tp</title>
-<g id="a_interface~~obl_acc_body~~CalledByGraph_node2"><a xlink:href=".././proc/obl_acc_tp.html" xlink:title="obl_acc_tp">
+<title>proc~obl_acc_pl</title>
+<g id="a_interface~~obl_acc_body~~CalledByGraph_node2"><a xlink:href=".././proc/obl_acc_pl.html" xlink:title="obl_acc_pl">
 <polygon fill="#d9534f" stroke="#d9534f" points="164,-66 100,-66 100,-42 164,-42 164,-66"/>
-<text text-anchor="middle" x="132" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_tp</text>
+<text text-anchor="middle" x="132" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~obl_acc_tp&#45;&gt;interface~obl_acc_body -->
+<!-- proc~obl_acc_pl&#45;&gt;interface~obl_acc_body -->
 <g id="interface~~obl_acc_body~~CalledByGraph_edge1" class="edge">
-<title>proc~obl_acc_tp&#45;&gt;interface~obl_acc_body</title>
+<title>proc~obl_acc_pl&#45;&gt;interface~obl_acc_body</title>
 <path fill="none" stroke="#000000" d="M164.08,-47.81C172.21,-46.2 181.16,-44.41 189.96,-42.66"/>
 <polygon fill="#000000" stroke="#000000" points="190.65,-46.09 199.78,-40.71 189.29,-39.23 190.65,-46.09"/>
 </g>
-<!-- proc~obl_acc_pl -->
+<!-- proc~obl_acc_tp -->
 <g id="interface~~obl_acc_body~~CalledByGraph_node3" class="node">
-<title>proc~obl_acc_pl</title>
-<g id="a_interface~~obl_acc_body~~CalledByGraph_node3"><a xlink:href=".././proc/obl_acc_pl.html" xlink:title="obl_acc_pl">
+<title>proc~obl_acc_tp</title>
+<g id="a_interface~~obl_acc_body~~CalledByGraph_node3"><a xlink:href=".././proc/obl_acc_tp.html" xlink:title="obl_acc_tp">
 <polygon fill="#d9534f" stroke="#d9534f" points="164,-24 100,-24 100,0 164,0 164,-24"/>
-<text text-anchor="middle" x="132" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_pl</text>
+<text text-anchor="middle" x="132" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~obl_acc_pl&#45;&gt;interface~obl_acc_body -->
+<!-- proc~obl_acc_tp&#45;&gt;interface~obl_acc_body -->
 <g id="interface~~obl_acc_body~~CalledByGraph_edge2" class="edge">
-<title>proc~obl_acc_pl&#45;&gt;interface~obl_acc_body</title>
+<title>proc~obl_acc_tp&#45;&gt;interface~obl_acc_body</title>
 <path fill="none" stroke="#000000" d="M164.08,-18.19C172.21,-19.8 181.16,-21.59 189.96,-23.34"/>
 <polygon fill="#000000" stroke="#000000" points="189.29,-26.77 199.78,-25.29 190.65,-19.91 189.29,-26.77"/>
 </g>
-<!-- interface~obl_acc_pl -->
+<!-- interface~obl_acc_tp -->
 <g id="interface~~obl_acc_body~~CalledByGraph_node4" class="node">
-<title>interface~obl_acc_pl</title>
-<g id="a_interface~~obl_acc_body~~CalledByGraph_node4"><a xlink:href=".././interface/obl_acc_pl.html" xlink:title="obl_acc_pl">
+<title>interface~obl_acc_tp</title>
+<g id="a_interface~~obl_acc_body~~CalledByGraph_node4"><a xlink:href=".././interface/obl_acc_tp.html" xlink:title="obl_acc_tp">
 <polygon fill="#a7506f" stroke="#a7506f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
-<text text-anchor="middle" x="32" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_pl</text>
+<text text-anchor="middle" x="32" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~obl_acc_pl&#45;&gt;proc~obl_acc_pl -->
+<!-- interface~obl_acc_tp&#45;&gt;proc~obl_acc_tp -->
 <g id="interface~~obl_acc_body~~CalledByGraph_edge4" class="edge">
-<title>interface~obl_acc_pl&#45;&gt;proc~obl_acc_pl</title>
+<title>interface~obl_acc_tp&#45;&gt;proc~obl_acc_tp</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M64.01,-12C72.14,-12 81.04,-12 89.62,-12"/>
 <polygon fill="#000000" stroke="#000000" points="89.86,-15.5 99.86,-12 89.86,-8.5 89.86,-15.5"/>
 </g>
-<!-- interface~obl_acc_tp -->
+<!-- interface~obl_acc_pl -->
 <g id="interface~~obl_acc_body~~CalledByGraph_node5" class="node">
-<title>interface~obl_acc_tp</title>
-<g id="a_interface~~obl_acc_body~~CalledByGraph_node5"><a xlink:href=".././interface/obl_acc_tp.html" xlink:title="obl_acc_tp">
+<title>interface~obl_acc_pl</title>
+<g id="a_interface~~obl_acc_body~~CalledByGraph_node5"><a xlink:href=".././interface/obl_acc_pl.html" xlink:title="obl_acc_pl">
 <polygon fill="#a7506f" stroke="#a7506f" points="64,-66 0,-66 0,-42 64,-42 64,-66"/>
-<text text-anchor="middle" x="32" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_tp</text>
+<text text-anchor="middle" x="32" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~obl_acc_tp&#45;&gt;proc~obl_acc_tp -->
+<!-- interface~obl_acc_pl&#45;&gt;proc~obl_acc_pl -->
 <g id="interface~~obl_acc_body~~CalledByGraph_edge3" class="edge">
-<title>interface~obl_acc_tp&#45;&gt;proc~obl_acc_tp</title>
+<title>interface~obl_acc_pl&#45;&gt;proc~obl_acc_pl</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M64.01,-54C72.14,-54 81.04,-54 89.62,-54"/>
 <polygon fill="#000000" stroke="#000000" points="89.86,-57.5 99.86,-54 89.86,-50.5 89.86,-57.5"/>
 </g>
@@ -492,7 +492,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~149"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~145"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -507,7 +507,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~56"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~60"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/obl_acc_pl.html b/docs/interface/obl_acc_pl.html
index 12150d4fa..83e934a73 100644
--- a/docs/interface/obl_acc_pl.html
+++ b/docs/interface/obl_acc_pl.html
@@ -136,7 +136,7 @@ <h1>obl_acc_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~150"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~146"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~57"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~61"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/obl_acc_tp.html b/docs/interface/obl_acc_tp.html
index 2290af896..cddfe9f92 100644
--- a/docs/interface/obl_acc_tp.html
+++ b/docs/interface/obl_acc_tp.html
@@ -136,7 +136,7 @@ <h1>obl_acc_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~151"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~147"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~58"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~62"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/obl_pot.html b/docs/interface/obl_pot.html
index c0932be64..5af043106 100644
--- a/docs/interface/obl_pot.html
+++ b/docs/interface/obl_pot.html
@@ -136,7 +136,7 @@ <h1>obl_pot
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
diff --git a/docs/interface/orbel_el2xv_vec.html b/docs/interface/orbel_el2xv_vec.html
index 89de27a89..580402398 100644
--- a/docs/interface/orbel_el2xv_vec.html
+++ b/docs/interface/orbel_el2xv_vec.html
@@ -136,7 +136,7 @@ <h1>orbel_el2xv_vec
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -228,113 +228,113 @@ <h3 class="panel-title">Calls</h3>
 <!-- interface~orbel_el2xv_vec -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_node1" class="node">
 <title>interface~orbel_el2xv_vec</title>
-<polygon fill="none" stroke="black" points="90,-186 0,-186 0,-162 90,-162 90,-186"/>
-<text text-anchor="middle" x="45" y="-171.6" font-family="Helvetica,sans-Serif" font-size="10.50">orbel_el2xv_vec</text>
+<polygon fill="none" stroke="black" points="90,-148 0,-148 0,-124 90,-124 90,-148"/>
+<text text-anchor="middle" x="45" y="-133.6" font-family="Helvetica,sans-Serif" font-size="10.50">orbel_el2xv_vec</text>
 </g>
 <!-- proc~orbel_el2xv_vec -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_node2" class="node">
 <title>proc~orbel_el2xv_vec</title>
 <g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node2"><a xlink:href=".././proc/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
-<polygon fill="#d9534f" stroke="#d9534f" points="216,-186 126,-186 126,-162 216,-162 216,-186"/>
-<text text-anchor="middle" x="171" y="-171.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv_vec</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="216,-148 126,-148 126,-124 216,-124 216,-148"/>
+<text text-anchor="middle" x="171" y="-133.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv_vec</text>
 </a>
 </g>
 </g>
 <!-- interface~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv_vec -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_edge1" class="edge">
 <title>interface~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv_vec</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M90.07,-174C98.28,-174 106.96,-174 115.44,-174"/>
-<polygon fill="#000000" stroke="#000000" points="115.66,-177.5 125.66,-174 115.66,-170.5 115.66,-177.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M90.07,-136C98.28,-136 106.96,-136 115.44,-136"/>
+<polygon fill="#000000" stroke="#000000" points="115.66,-139.5 125.66,-136 115.66,-132.5 115.66,-139.5"/>
 </g>
 <!-- proc~orbel_el2xv -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_node3" class="node">
 <title>proc~orbel_el2xv</title>
 <g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node3"><a xlink:href=".././proc/orbel_el2xv.html" xlink:title="orbel_el2xv">
-<polygon fill="#d9534f" stroke="#d9534f" points="319,-186 252,-186 252,-162 319,-162 319,-186"/>
-<text text-anchor="middle" x="285.5" y="-171.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="319,-148 252,-148 252,-124 319,-124 319,-148"/>
+<text text-anchor="middle" x="285.5" y="-133.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_edge2" class="edge">
 <title>proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv</title>
-<path fill="none" stroke="#000000" d="M216.14,-174C224.63,-174 233.51,-174 241.95,-174"/>
-<polygon fill="#000000" stroke="#000000" points="241.97,-177.5 251.97,-174 241.97,-170.5 241.97,-177.5"/>
+<path fill="none" stroke="#000000" d="M216.14,-136C224.63,-136 233.51,-136 241.95,-136"/>
+<polygon fill="#000000" stroke="#000000" points="241.97,-139.5 251.97,-136 241.97,-132.5 241.97,-139.5"/>
 </g>
 <!-- proc~orbel_fhybrid -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_node4" class="node">
 <title>proc~orbel_fhybrid</title>
 <g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node4"><a xlink:href=".././proc/orbel_fhybrid.html" xlink:title="orbel_fhybrid">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="431.5,-268 356.5,-268 356.5,-244 431.5,-244 431.5,-268"/>
-<text text-anchor="middle" x="394" y="-253.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fhybrid</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="431.5,-226 356.5,-226 356.5,-202 431.5,-202 431.5,-226"/>
+<text text-anchor="middle" x="394" y="-211.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fhybrid</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_edge3" class="edge">
 <title>proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid</title>
-<path fill="none" stroke="#000000" d="M298.42,-186.12C311.57,-199.12 333.69,-219.91 355,-235 356.8,-236.27 358.68,-237.53 360.61,-238.76"/>
-<polygon fill="#000000" stroke="#000000" points="358.82,-241.76 369.19,-243.91 362.42,-235.76 358.82,-241.76"/>
+<path fill="none" stroke="#000000" d="M302.12,-148.2C315.89,-158.88 336.59,-174.73 355,-188 358.67,-190.65 362.58,-193.4 366.44,-196.07"/>
+<polygon fill="#000000" stroke="#000000" points="364.48,-198.97 374.7,-201.75 368.44,-193.2 364.48,-198.97"/>
 </g>
-<!-- proc~orbel_zget -->
+<!-- proc~orbel_ehybrid -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_node5" class="node">
-<title>proc~orbel_zget</title>
-<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node5"><a xlink:href=".././proc/orbel_zget.html" xlink:title="orbel_zget">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="425.5,-226 362.5,-226 362.5,-202 425.5,-202 425.5,-226"/>
-<text text-anchor="middle" x="394" y="-211.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_zget</text>
+<title>proc~orbel_ehybrid</title>
+<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node5"><a xlink:href=".././proc/orbel_ehybrid.html" xlink:title="orbel_ehybrid">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="433,-66 355,-66 355,-42 433,-42 433,-66"/>
+<text text-anchor="middle" x="394" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehybrid</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_zget -->
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_edge4" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;proc~orbel_zget</title>
-<path fill="none" stroke="#000000" d="M318.45,-186C329.16,-190.02 341.25,-194.56 352.52,-198.8"/>
-<polygon fill="#000000" stroke="#000000" points="351.57,-202.18 362.17,-202.42 354.04,-195.63 351.57,-202.18"/>
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid</title>
+<path fill="none" stroke="#000000" d="M298.42,-123.88C311.57,-110.88 333.69,-90.09 355,-75 356.8,-73.73 358.68,-72.47 360.61,-71.24"/>
+<polygon fill="#000000" stroke="#000000" points="362.42,-74.24 369.19,-66.09 358.82,-68.24 362.42,-74.24"/>
 </g>
-<!-- proc~orbel_schget -->
+<!-- interface~orbel_scget -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_node6" class="node">
-<title>proc~orbel_schget</title>
-<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node6"><a xlink:href=".././proc/orbel_schget.html" xlink:title="orbel_schget">
-<polygon fill="#d9534f" stroke="#d9534f" points="656,-206 582,-206 582,-182 656,-182 656,-206"/>
-<text text-anchor="middle" x="619" y="-191.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_schget</text>
+<title>interface~orbel_scget</title>
+<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node6"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
+<polygon fill="#a7506f" stroke="#a7506f" points="653,-87 585,-87 585,-63 653,-63 653,-87"/>
+<text text-anchor="middle" x="619" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_schget -->
+<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_edge5" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;proc~orbel_schget</title>
-<path fill="none" stroke="#000000" d="M319.19,-175.97C378.47,-179.55 503.81,-187.11 571.8,-191.21"/>
-<polygon fill="#000000" stroke="#000000" points="571.61,-194.71 581.8,-191.82 572.03,-187.72 571.61,-194.71"/>
+<title>proc~orbel_el2xv&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M319.33,-138.26C369.44,-140.68 467.47,-141.34 546,-117 562.96,-111.74 580.2,-101.88 593.56,-93.03"/>
+<polygon fill="#000000" stroke="#000000" points="595.87,-95.68 602.13,-87.14 591.91,-89.92 595.87,-95.68"/>
 </g>
-<!-- interface~orbel_scget -->
+<!-- proc~orbel_zget -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_node7" class="node">
-<title>interface~orbel_scget</title>
-<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node7"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
-<polygon fill="#a7506f" stroke="#a7506f" points="653,-87 585,-87 585,-63 653,-63 653,-87"/>
-<text text-anchor="middle" x="619" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
+<title>proc~orbel_zget</title>
+<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node7"><a xlink:href=".././proc/orbel_zget.html" xlink:title="orbel_zget">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="425.5,-108 362.5,-108 362.5,-84 425.5,-84 425.5,-108"/>
+<text text-anchor="middle" x="394" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_zget</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_zget -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_edge6" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M319.41,-170.12C369.63,-163.46 467.8,-147.53 546,-117 562.1,-110.72 578.85,-101.15 592.14,-92.74"/>
-<polygon fill="#000000" stroke="#000000" points="594.26,-95.54 600.73,-87.15 590.44,-89.67 594.26,-95.54"/>
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_zget</title>
+<path fill="none" stroke="#000000" d="M318.45,-124C329.16,-119.98 341.25,-115.44 352.52,-111.2"/>
+<polygon fill="#000000" stroke="#000000" points="354.04,-114.37 362.17,-107.58 351.57,-107.82 354.04,-114.37"/>
 </g>
-<!-- proc~orbel_ehybrid -->
+<!-- proc~orbel_schget -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_node8" class="node">
-<title>proc~orbel_ehybrid</title>
-<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node8"><a xlink:href=".././proc/orbel_ehybrid.html" xlink:title="orbel_ehybrid">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="433,-87 355,-87 355,-63 433,-63 433,-87"/>
-<text text-anchor="middle" x="394" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehybrid</text>
+<title>proc~orbel_schget</title>
+<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node8"><a xlink:href=".././proc/orbel_schget.html" xlink:title="orbel_schget">
+<polygon fill="#d9534f" stroke="#d9534f" points="656,-206 582,-206 582,-182 656,-182 656,-206"/>
+<text text-anchor="middle" x="619" y="-191.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_schget</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid -->
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_schget -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_edge7" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid</title>
-<path fill="none" stroke="#000000" d="M299.56,-161.86C317.76,-144.94 350.95,-114.09 372.48,-94.08"/>
-<polygon fill="#000000" stroke="#000000" points="374.89,-96.61 379.83,-87.24 370.13,-91.48 374.89,-96.61"/>
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_schget</title>
+<path fill="none" stroke="#000000" d="M319.21,-142.93C330.53,-145.27 343.3,-147.83 355,-150 430.74,-164.07 519.14,-178.44 571.74,-186.77"/>
+<polygon fill="#000000" stroke="#000000" points="571.34,-190.26 581.77,-188.36 572.44,-183.34 571.34,-190.26"/>
 </g>
 <!-- proc~orbel_flon -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_node10" class="node">
@@ -346,85 +346,91 @@ <h3 class="panel-title">Calls</h3>
 </g>
 </g>
 <!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_flon -->
-<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge9" class="edge">
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge8" class="edge">
 <title>proc~orbel_fhybrid&#45;&gt;proc~orbel_flon</title>
-<path fill="none" stroke="#000000" d="M431.51,-256C442.89,-256 455.49,-256 467.06,-256"/>
-<polygon fill="#000000" stroke="#000000" points="467.33,-259.5 477.33,-256 467.33,-252.5 467.33,-259.5"/>
+<path fill="none" stroke="#000000" d="M426.95,-226.04C439.69,-230.83 454.47,-236.4 467.81,-241.43"/>
+<polygon fill="#000000" stroke="#000000" points="466.62,-244.72 477.21,-244.97 469.09,-238.17 466.62,-244.72"/>
 </g>
 <!-- proc~orbel_fget -->
-<g id="interface~~orbel_el2xv_vec~~CallsGraph_node11" class="node">
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_node12" class="node">
 <title>proc~orbel_fget</title>
-<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node11"><a xlink:href=".././proc/orbel_fget.html" xlink:title="orbel_fget">
+<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node12"><a xlink:href=".././proc/orbel_fget.html" xlink:title="orbel_fget">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="538,-226 477,-226 477,-202 538,-202 538,-226"/>
 <text text-anchor="middle" x="507.5" y="-211.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fget</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_fget -->
-<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge8" class="edge">
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge9" class="edge">
 <title>proc~orbel_fhybrid&#45;&gt;proc~orbel_fget</title>
-<path fill="none" stroke="#000000" d="M426.95,-243.96C439.46,-239.25 453.95,-233.8 467.1,-228.84"/>
-<polygon fill="#000000" stroke="#000000" points="468.71,-231.97 476.84,-225.17 466.25,-225.42 468.71,-231.97"/>
-</g>
-<!-- proc~orbel_scget -->
-<g id="interface~~orbel_el2xv_vec~~CallsGraph_node9" class="node">
-<title>proc~orbel_scget</title>
-<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node9"><a xlink:href=".././proc/orbel_scget.html" xlink:title="orbel_scget">
-<polygon fill="#d9534f" stroke="#d9534f" points="760,-87 692,-87 692,-63 760,-63 760,-87"/>
-<text text-anchor="middle" x="726" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
-</a>
-</g>
-</g>
-<!-- interface~orbel_scget&#45;&gt;proc~orbel_scget -->
-<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge10" class="edge">
-<title>interface~orbel_scget&#45;&gt;proc~orbel_scget</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M653.22,-75C662.31,-75 672.3,-75 681.85,-75"/>
-<polygon fill="#000000" stroke="#000000" points="681.99,-78.5 691.99,-75 681.99,-71.5 681.99,-78.5"/>
+<path fill="none" stroke="#000000" d="M431.51,-214C442.79,-214 455.27,-214 466.76,-214"/>
+<polygon fill="#000000" stroke="#000000" points="466.97,-217.5 476.97,-214 466.97,-210.5 466.97,-217.5"/>
 </g>
 <!-- proc~orbel_esolmd -->
-<g id="interface~~orbel_el2xv_vec~~CallsGraph_node12" class="node">
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_node9" class="node">
 <title>proc~orbel_esolmd</title>
-<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node12"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="546,-108 469,-108 469,-84 546,-84 546,-108"/>
-<text text-anchor="middle" x="507.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_esolmd</text>
+<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node9"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="546,-24 469,-24 469,0 546,0 546,-24"/>
+<text text-anchor="middle" x="507.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_esolmd</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd -->
-<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge12" class="edge">
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge10" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd</title>
-<path fill="none" stroke="#000000" d="M433.06,-82.17C441.4,-83.74 450.34,-85.42 459,-87.05"/>
-<polygon fill="#000000" stroke="#000000" points="458.51,-90.52 468.99,-88.94 459.81,-83.64 458.51,-90.52"/>
+<path fill="none" stroke="#000000" d="M426.95,-41.96C438.85,-37.48 452.53,-32.33 465.15,-27.58"/>
+<polygon fill="#000000" stroke="#000000" points="466.42,-30.84 474.54,-24.04 463.95,-24.29 466.42,-30.84"/>
 </g>
 <!-- proc~orbel_eget -->
-<g id="interface~~orbel_el2xv_vec~~CallsGraph_node13" class="node">
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_node11" class="node">
 <title>proc~orbel_eget</title>
-<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node13"><a xlink:href=".././proc/orbel_eget.html" xlink:title="orbel_eget">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="539.5,-66 475.5,-66 475.5,-42 539.5,-42 539.5,-66"/>
-<text text-anchor="middle" x="507.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_eget</text>
+<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node11"><a xlink:href=".././proc/orbel_eget.html" xlink:title="orbel_eget">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="539.5,-108 475.5,-108 475.5,-84 539.5,-84 539.5,-108"/>
+<text text-anchor="middle" x="507.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_eget</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_eget -->
-<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge13" class="edge">
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge12" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_eget</title>
-<path fill="none" stroke="#000000" d="M433.06,-67.83C443.48,-65.87 454.82,-63.73 465.41,-61.74"/>
-<polygon fill="#000000" stroke="#000000" points="466.09,-65.17 475.27,-59.88 464.79,-58.29 466.09,-65.17"/>
+<path fill="none" stroke="#000000" d="M426.95,-66.04C439.05,-70.59 453,-75.85 465.8,-80.67"/>
+<polygon fill="#000000" stroke="#000000" points="464.72,-84 475.31,-84.25 467.19,-77.45 464.72,-84"/>
 </g>
 <!-- proc~orbel_ehie -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_node14" class="node">
 <title>proc~orbel_ehie</title>
 <g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node14"><a xlink:href=".././proc/orbel_ehie.html" xlink:title="orbel_ehie">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="539,-24 476,-24 476,0 539,0 539,-24"/>
-<text text-anchor="middle" x="507.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehie</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="539,-66 476,-66 476,-42 539,-42 539,-66"/>
+<text text-anchor="middle" x="507.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehie</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_edge11" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie</title>
-<path fill="none" stroke="#000000" d="M416.35,-62.84C431.13,-54.43 451.24,-43.01 469,-33 471.22,-31.75 473.51,-30.46 475.82,-29.16"/>
-<polygon fill="#000000" stroke="#000000" points="477.67,-32.14 484.68,-24.19 474.24,-26.03 477.67,-32.14"/>
+<path fill="none" stroke="#000000" d="M433.06,-54C443.56,-54 455,-54 465.66,-54"/>
+<polygon fill="#000000" stroke="#000000" points="465.99,-57.5 475.99,-54 465.99,-50.5 465.99,-57.5"/>
+</g>
+<!-- proc~orbel_scget -->
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_node13" class="node">
+<title>proc~orbel_scget</title>
+<g id="a_interface~~orbel_el2xv_vec~~CallsGraph_node13"><a xlink:href=".././proc/orbel_scget.html" xlink:title="orbel_scget">
+<polygon fill="#d9534f" stroke="#d9534f" points="760,-87 692,-87 692,-63 760,-63 760,-87"/>
+<text text-anchor="middle" x="726" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
+</a>
+</g>
+</g>
+<!-- interface~orbel_scget&#45;&gt;proc~orbel_scget -->
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge13" class="edge">
+<title>interface~orbel_scget&#45;&gt;proc~orbel_scget</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M653.22,-75C662.31,-75 672.3,-75 681.85,-75"/>
+<polygon fill="#000000" stroke="#000000" points="681.99,-78.5 691.99,-75 681.99,-71.5 681.99,-78.5"/>
+</g>
+<!-- proc~orbel_esolmd&#45;&gt;interface~orbel_scget -->
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge14" class="edge">
+<title>proc~orbel_esolmd&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M530.35,-24.15C535.49,-27.03 540.95,-30.11 546,-33 560.05,-41.03 575.57,-50.06 588.59,-57.69"/>
+<polygon fill="#000000" stroke="#000000" points="587.18,-60.92 597.57,-62.96 590.72,-54.88 587.18,-60.92"/>
 </g>
 <!-- 3 -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_node15" class="node">
@@ -433,34 +439,28 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="619" y="-253.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">3</text>
 </g>
 <!-- proc~orbel_flon&#45;&gt;3 -->
-<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge14" class="edge">
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge15" class="edge">
 <title>proc~orbel_flon&#45;&gt;3</title>
 <path fill="none" stroke="#000000" d="M537.56,-256C551.12,-256 567.4,-256 581.76,-256"/>
 <polygon fill="#000000" stroke="#000000" points="581.81,-259.5 591.81,-256 581.81,-252.5 581.81,-259.5"/>
 </g>
+<!-- proc~orbel_eget&#45;&gt;interface~orbel_scget -->
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge16" class="edge">
+<title>proc~orbel_eget&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M539.59,-90.04C550.54,-87.94 563.06,-85.54 574.83,-83.28"/>
+<polygon fill="#000000" stroke="#000000" points="575.76,-86.66 584.92,-81.34 574.44,-79.79 575.76,-86.66"/>
+</g>
 <!-- proc~orbel_fget&#45;&gt;proc~orbel_schget -->
-<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge15" class="edge">
+<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge17" class="edge">
 <title>proc~orbel_fget&#45;&gt;proc~orbel_schget</title>
 <path fill="none" stroke="#000000" d="M538.13,-208.59C548.52,-206.69 560.44,-204.51 571.86,-202.43"/>
 <polygon fill="#000000" stroke="#000000" points="572.49,-205.87 581.7,-200.63 571.24,-198.98 572.49,-205.87"/>
 </g>
-<!-- proc~orbel_esolmd&#45;&gt;interface~orbel_scget -->
-<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge16" class="edge">
-<title>proc~orbel_esolmd&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M546.18,-88.77C555.36,-87.01 565.25,-85.12 574.67,-83.31"/>
-<polygon fill="#000000" stroke="#000000" points="575.48,-86.72 584.64,-81.4 574.16,-79.84 575.48,-86.72"/>
-</g>
-<!-- proc~orbel_eget&#45;&gt;interface~orbel_scget -->
-<g id="interface~~orbel_el2xv_vec~~CallsGraph_edge17" class="edge">
-<title>proc~orbel_eget&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M539.59,-59.96C550.54,-62.06 563.06,-64.46 574.83,-66.72"/>
-<polygon fill="#000000" stroke="#000000" points="574.44,-70.21 584.92,-68.66 575.76,-63.34 574.44,-70.21"/>
-</g>
 <!-- proc~orbel_ehie&#45;&gt;interface~orbel_scget -->
 <g id="interface~~orbel_el2xv_vec~~CallsGraph_edge18" class="edge">
 <title>proc~orbel_ehie&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M530.35,-24.15C535.49,-27.03 540.95,-30.11 546,-33 560.05,-41.03 575.57,-50.06 588.59,-57.69"/>
-<polygon fill="#000000" stroke="#000000" points="587.18,-60.92 597.57,-62.96 590.72,-54.88 587.18,-60.92"/>
+<path fill="none" stroke="#000000" d="M539,-59.85C550.18,-61.99 563.04,-64.46 575.09,-66.77"/>
+<polygon fill="#000000" stroke="#000000" points="574.5,-70.22 584.98,-68.67 575.82,-63.35 574.5,-70.22"/>
 </g>
 </g>
 </svg>
@@ -562,7 +562,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~152"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~148"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/orbel_scget.html b/docs/interface/orbel_scget.html
index 7ee97b362..cb194b313 100644
--- a/docs/interface/orbel_scget.html
+++ b/docs/interface/orbel_scget.html
@@ -136,7 +136,7 @@ <h1>orbel_scget
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -333,81 +333,81 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="none" stroke="black" points="667,-108 599,-108 599,-84 667,-84 667,-108"/>
 <text text-anchor="middle" x="633" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50">orbel_scget</text>
 </g>
-<!-- proc~orbel_el2xv -->
-<g id="interface~~orbel_scget~~CalledByGraph_node2" class="node">
-<title>proc~orbel_el2xv</title>
-<g id="a_interface~~orbel_scget~~CalledByGraph_node2"><a xlink:href=".././proc/orbel_el2xv.html" xlink:title="orbel_el2xv">
-<polygon fill="#d9534f" stroke="#d9534f" points="319,-149 252,-149 252,-125 319,-125 319,-149"/>
-<text text-anchor="middle" x="285.5" y="-134.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv</text>
-</a>
-</g>
-</g>
-<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
-<g id="interface~~orbel_scget~~CalledByGraph_edge1" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M319.34,-148.57C372.53,-165.38 479.94,-191.21 563,-159 585,-150.47 604.27,-131.29 616.82,-116.32"/>
-<polygon fill="#000000" stroke="#000000" points="619.88,-118.1 623.4,-108.11 614.41,-113.73 619.88,-118.1"/>
-</g>
-<!-- proc~orbel_ehybrid -->
-<g id="interface~~orbel_scget~~CalledByGraph_node9" class="node">
-<title>proc~orbel_ehybrid</title>
-<g id="a_interface~~orbel_scget~~CalledByGraph_node9"><a xlink:href=".././proc/orbel_ehybrid.html" xlink:title="orbel_ehybrid">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="433,-129 355,-129 355,-105 433,-105 433,-129"/>
-<text text-anchor="middle" x="394" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehybrid</text>
-</a>
-</g>
-</g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid -->
-<g id="interface~~orbel_scget~~CalledByGraph_edge13" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid</title>
-<path fill="none" stroke="#000000" d="M319.03,-130.89C327.12,-129.37 335.97,-127.71 344.64,-126.08"/>
-<polygon fill="#000000" stroke="#000000" points="345.5,-129.48 354.68,-124.2 344.21,-122.6 345.5,-129.48"/>
-</g>
 <!-- proc~orbel_esolmd -->
-<g id="interface~~orbel_scget~~CalledByGraph_node3" class="node">
+<g id="interface~~orbel_scget~~CalledByGraph_node2" class="node">
 <title>proc~orbel_esolmd</title>
-<g id="a_interface~~orbel_scget~~CalledByGraph_node3"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
+<g id="a_interface~~orbel_scget~~CalledByGraph_node2"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="554.5,-150 477.5,-150 477.5,-126 554.5,-126 554.5,-150"/>
 <text text-anchor="middle" x="516" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_esolmd</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_esolmd&#45;&gt;interface~orbel_scget -->
-<g id="interface~~orbel_scget~~CalledByGraph_edge2" class="edge">
+<g id="interface~~orbel_scget~~CalledByGraph_edge1" class="edge">
 <title>proc~orbel_esolmd&#45;&gt;interface~orbel_scget</title>
 <path fill="none" stroke="#000000" d="M549.95,-125.96C562.22,-121.48 576.33,-116.33 589.35,-111.58"/>
 <polygon fill="#000000" stroke="#000000" points="590.85,-114.76 599.04,-108.04 588.45,-108.18 590.85,-114.76"/>
 </g>
 <!-- proc~orbel_eget -->
-<g id="interface~~orbel_scget~~CalledByGraph_node4" class="node">
+<g id="interface~~orbel_scget~~CalledByGraph_node3" class="node">
 <title>proc~orbel_eget</title>
-<g id="a_interface~~orbel_scget~~CalledByGraph_node4"><a xlink:href=".././proc/orbel_eget.html" xlink:title="orbel_eget">
+<g id="a_interface~~orbel_scget~~CalledByGraph_node3"><a xlink:href=".././proc/orbel_eget.html" xlink:title="orbel_eget">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="548,-108 484,-108 484,-84 548,-84 548,-108"/>
 <text text-anchor="middle" x="516" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_eget</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_eget&#45;&gt;interface~orbel_scget -->
-<g id="interface~~orbel_scget~~CalledByGraph_edge3" class="edge">
+<g id="interface~~orbel_scget~~CalledByGraph_edge2" class="edge">
 <title>proc~orbel_eget&#45;&gt;interface~orbel_scget</title>
 <path fill="none" stroke="#000000" d="M548.12,-96C560.63,-96 575.27,-96 588.78,-96"/>
 <polygon fill="#000000" stroke="#000000" points="588.84,-99.5 598.84,-96 588.84,-92.5 588.84,-99.5"/>
 </g>
 <!-- proc~drift_kepu_guess -->
-<g id="interface~~orbel_scget~~CalledByGraph_node5" class="node">
+<g id="interface~~orbel_scget~~CalledByGraph_node4" class="node">
 <title>proc~drift_kepu_guess</title>
-<g id="a_interface~~orbel_scget~~CalledByGraph_node5"><a xlink:href=".././proc/drift_kepu_guess.html" xlink:title="drift_kepu_guess">
+<g id="a_interface~~orbel_scget~~CalledByGraph_node4"><a xlink:href=".././proc/drift_kepu_guess.html" xlink:title="drift_kepu_guess">
 <polygon fill="#d9534f" stroke="#d9534f" points="563,-24 469,-24 469,0 563,0 563,-24"/>
 <text text-anchor="middle" x="516" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_guess</text>
 </a>
 </g>
 </g>
 <!-- proc~drift_kepu_guess&#45;&gt;interface~orbel_scget -->
-<g id="interface~~orbel_scget~~CalledByGraph_edge4" class="edge">
+<g id="interface~~orbel_scget~~CalledByGraph_edge3" class="edge">
 <title>proc~drift_kepu_guess&#45;&gt;interface~orbel_scget</title>
 <path fill="none" stroke="#000000" d="M546.93,-24.02C552.44,-26.68 558.02,-29.71 563,-33 581.78,-45.41 600.47,-62.88 613.66,-76.27"/>
 <polygon fill="#000000" stroke="#000000" points="611.28,-78.85 620.74,-83.62 616.32,-73.99 611.28,-78.85"/>
 </g>
+<!-- proc~orbel_el2xv -->
+<g id="interface~~orbel_scget~~CalledByGraph_node5" class="node">
+<title>proc~orbel_el2xv</title>
+<g id="a_interface~~orbel_scget~~CalledByGraph_node5"><a xlink:href=".././proc/orbel_el2xv.html" xlink:title="orbel_el2xv">
+<polygon fill="#d9534f" stroke="#d9534f" points="319,-149 252,-149 252,-125 319,-125 319,-149"/>
+<text text-anchor="middle" x="285.5" y="-134.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv</text>
+</a>
+</g>
+</g>
+<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
+<g id="interface~~orbel_scget~~CalledByGraph_edge4" class="edge">
+<title>proc~orbel_el2xv&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M319.34,-148.57C372.53,-165.38 479.94,-191.21 563,-159 585,-150.47 604.27,-131.29 616.82,-116.32"/>
+<polygon fill="#000000" stroke="#000000" points="619.88,-118.1 623.4,-108.11 614.41,-113.73 619.88,-118.1"/>
+</g>
+<!-- proc~orbel_ehybrid -->
+<g id="interface~~orbel_scget~~CalledByGraph_node9" class="node">
+<title>proc~orbel_ehybrid</title>
+<g id="a_interface~~orbel_scget~~CalledByGraph_node9"><a xlink:href=".././proc/orbel_ehybrid.html" xlink:title="orbel_ehybrid">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="433,-129 355,-129 355,-105 433,-105 433,-129"/>
+<text text-anchor="middle" x="394" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehybrid</text>
+</a>
+</g>
+</g>
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid -->
+<g id="interface~~orbel_scget~~CalledByGraph_edge13" class="edge">
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid</title>
+<path fill="none" stroke="#000000" d="M319.03,-130.89C327.12,-129.37 335.97,-127.71 344.64,-126.08"/>
+<polygon fill="#000000" stroke="#000000" points="345.5,-129.48 354.68,-124.2 344.21,-122.6 345.5,-129.48"/>
+</g>
 <!-- proc~orbel_ehie -->
 <g id="interface~~orbel_scget~~CalledByGraph_node6" class="node">
 <title>proc~orbel_ehie</title>
@@ -423,44 +423,44 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" d="M547.52,-65.14C560.38,-69.84 575.58,-75.4 589.52,-80.48"/>
 <polygon fill="#000000" stroke="#000000" points="588.32,-83.77 598.92,-83.92 590.72,-77.2 588.32,-83.77"/>
 </g>
-<!-- proc~orbel_el2xv_vec -->
-<g id="interface~~orbel_scget~~CalledByGraph_node7" class="node">
-<title>proc~orbel_el2xv_vec</title>
-<g id="a_interface~~orbel_scget~~CalledByGraph_node7"><a xlink:href=".././proc/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
-<polygon fill="#d9534f" stroke="#d9534f" points="216,-149 126,-149 126,-125 216,-125 216,-149"/>
-<text text-anchor="middle" x="171" y="-134.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv_vec</text>
-</a>
-</g>
-</g>
-<!-- proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv -->
-<g id="interface~~orbel_scget~~CalledByGraph_edge6" class="edge">
-<title>proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv</title>
-<path fill="none" stroke="#000000" d="M216.14,-137C224.63,-137 233.51,-137 241.95,-137"/>
-<polygon fill="#000000" stroke="#000000" points="241.97,-140.5 251.97,-137 241.97,-133.5 241.97,-140.5"/>
-</g>
 <!-- proc~drift_kepu -->
-<g id="interface~~orbel_scget~~CalledByGraph_node8" class="node">
+<g id="interface~~orbel_scget~~CalledByGraph_node7" class="node">
 <title>proc~drift_kepu</title>
-<g id="a_interface~~orbel_scget~~CalledByGraph_node8"><a xlink:href=".././proc/drift_kepu.html" xlink:title="drift_kepu">
+<g id="a_interface~~orbel_scget~~CalledByGraph_node7"><a xlink:href=".././proc/drift_kepu.html" xlink:title="drift_kepu">
 <polygon fill="#d9534f" stroke="#d9534f" points="424,-24 364,-24 364,0 424,0 424,-24"/>
 <text text-anchor="middle" x="394" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu</text>
 </a>
 </g>
 </g>
 <!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_guess -->
-<g id="interface~~orbel_scget~~CalledByGraph_edge9" class="edge">
+<g id="interface~~orbel_scget~~CalledByGraph_edge8" class="edge">
 <title>proc~drift_kepu&#45;&gt;proc~drift_kepu_guess</title>
 <path fill="none" stroke="#000000" d="M424.05,-12C434.56,-12 446.82,-12 458.87,-12"/>
 <polygon fill="#000000" stroke="#000000" points="458.9,-15.5 468.9,-12 458.9,-8.5 458.9,-15.5"/>
 </g>
+<!-- proc~orbel_el2xv_vec -->
+<g id="interface~~orbel_scget~~CalledByGraph_node8" class="node">
+<title>proc~orbel_el2xv_vec</title>
+<g id="a_interface~~orbel_scget~~CalledByGraph_node8"><a xlink:href=".././proc/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
+<polygon fill="#d9534f" stroke="#d9534f" points="216,-149 126,-149 126,-125 216,-125 216,-149"/>
+<text text-anchor="middle" x="171" y="-134.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv_vec</text>
+</a>
+</g>
+</g>
+<!-- proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv -->
+<g id="interface~~orbel_scget~~CalledByGraph_edge9" class="edge">
+<title>proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv</title>
+<path fill="none" stroke="#000000" d="M216.14,-137C224.63,-137 233.51,-137 241.95,-137"/>
+<polygon fill="#000000" stroke="#000000" points="241.97,-140.5 251.97,-137 241.97,-133.5 241.97,-140.5"/>
+</g>
 <!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd -->
-<g id="interface~~orbel_scget~~CalledByGraph_edge7" class="edge">
+<g id="interface~~orbel_scget~~CalledByGraph_edge6" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd</title>
 <path fill="none" stroke="#000000" d="M433.3,-123.7C444.12,-125.6 456.02,-127.68 467.32,-129.66"/>
 <polygon fill="#000000" stroke="#000000" points="467.02,-133.16 477.47,-131.43 468.23,-126.26 467.02,-133.16"/>
 </g>
 <!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_eget -->
-<g id="interface~~orbel_scget~~CalledByGraph_edge8" class="edge">
+<g id="interface~~orbel_scget~~CalledByGraph_edge7" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_eget</title>
 <path fill="none" stroke="#000000" d="M433.3,-110.3C446.18,-108.04 460.6,-105.52 473.7,-103.23"/>
 <polygon fill="#000000" stroke="#000000" points="474.63,-106.62 483.87,-101.45 473.42,-99.72 474.63,-106.62"/>
@@ -481,7 +481,7 @@ <h3 class="panel-title">Called by</h3>
 </g>
 </g>
 <!-- interface~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv_vec -->
-<g id="interface~~orbel_scget~~CalledByGraph_edge11" class="edge">
+<g id="interface~~orbel_scget~~CalledByGraph_edge12" class="edge">
 <title>interface~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv_vec</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M90.07,-137C98.28,-137 106.96,-137 115.44,-137"/>
 <polygon fill="#000000" stroke="#000000" points="115.66,-140.5 125.66,-137 115.66,-133.5 115.66,-140.5"/>
@@ -496,7 +496,7 @@ <h3 class="panel-title">Called by</h3>
 </g>
 </g>
 <!-- proc~drift_dan&#45;&gt;proc~drift_kepu -->
-<g id="interface~~orbel_scget~~CalledByGraph_edge12" class="edge">
+<g id="interface~~orbel_scget~~CalledByGraph_edge11" class="edge">
 <title>proc~drift_dan&#45;&gt;proc~drift_kepu</title>
 <path fill="none" stroke="#000000" d="M313.1,-12C325.37,-12 340.19,-12 353.72,-12"/>
 <polygon fill="#000000" stroke="#000000" points="353.75,-15.5 363.75,-12 353.75,-8.5 353.75,-15.5"/>
diff --git a/docs/interface/orbel_xv2aeq.html b/docs/interface/orbel_xv2aeq.html
index 8ba5650cd..c30535f18 100644
--- a/docs/interface/orbel_xv2aeq.html
+++ b/docs/interface/orbel_xv2aeq.html
@@ -136,7 +136,7 @@ <h1>orbel_xv2aeq
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
diff --git a/docs/interface/orbel_xv2aqt.html b/docs/interface/orbel_xv2aqt.html
index 6957fa369..6f20df739 100644
--- a/docs/interface/orbel_xv2aqt.html
+++ b/docs/interface/orbel_xv2aqt.html
@@ -136,7 +136,7 @@ <h1>orbel_xv2aqt
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
diff --git a/docs/interface/orbel_xv2el_vec.html b/docs/interface/orbel_xv2el_vec.html
index 035961c88..329426dfa 100644
--- a/docs/interface/orbel_xv2el_vec.html
+++ b/docs/interface/orbel_xv2el_vec.html
@@ -136,7 +136,7 @@ <h1>orbel_xv2el_vec
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~153"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~149"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_chk_ind.html b/docs/interface/rmvs_chk_ind.html
index 32966f56f..38cf69c03 100644
--- a/docs/interface/rmvs_chk_ind.html
+++ b/docs/interface/rmvs_chk_ind.html
@@ -333,65 +333,65 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="none" stroke="black" points="463,-45 384,-45 384,-21 463,-21 463,-45"/>
 <text text-anchor="middle" x="423.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_chk_ind</text>
 </g>
-<!-- proc~symba_encounter_check_one -->
+<!-- proc~rmvs_encounter_check_tp -->
 <g id="interface~~rmvs_chk_ind~~CalledByGraph_node2" class="node">
-<title>proc~symba_encounter_check_one</title>
-<g id="a_interface~~rmvs_chk_ind~~CalledByGraph_node2"><a xlink:href=".././proc/symba_encounter_check_one.html" xlink:title="symba_encounter_check_one">
-<polygon fill="#d9534f" stroke="#d9534f" points="348,-66 192,-66 192,-42 348,-42 348,-66"/>
-<text text-anchor="middle" x="270" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_one</text>
+<title>proc~rmvs_encounter_check_tp</title>
+<g id="a_interface~~rmvs_chk_ind~~CalledByGraph_node2"><a xlink:href=".././proc/rmvs_encounter_check_tp.html" xlink:title="rmvs_encounter_check_tp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="339.5,-66 200.5,-66 200.5,-42 339.5,-42 339.5,-66"/>
+<text text-anchor="middle" x="270" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_encounter_check_one&#45;&gt;interface~rmvs_chk_ind -->
+<!-- proc~rmvs_encounter_check_tp&#45;&gt;interface~rmvs_chk_ind -->
 <g id="interface~~rmvs_chk_ind~~CalledByGraph_edge1" class="edge">
-<title>proc~symba_encounter_check_one&#45;&gt;interface~rmvs_chk_ind</title>
-<path fill="none" stroke="#000000" d="M348.08,-43.32C356.82,-42.1 365.53,-40.9 373.76,-39.76"/>
-<polygon fill="#000000" stroke="#000000" points="374.45,-43.19 383.88,-38.35 373.49,-36.26 374.45,-43.19"/>
+<title>proc~rmvs_encounter_check_tp&#45;&gt;interface~rmvs_chk_ind</title>
+<path fill="none" stroke="#000000" d="M339.66,-44.48C351.17,-42.89 362.9,-41.26 373.77,-39.75"/>
+<polygon fill="#000000" stroke="#000000" points="374.48,-43.19 383.9,-38.35 373.52,-36.26 374.48,-43.19"/>
 </g>
-<!-- proc~rmvs_encounter_check_tp -->
+<!-- proc~symba_encounter_check_one -->
 <g id="interface~~rmvs_chk_ind~~CalledByGraph_node3" class="node">
-<title>proc~rmvs_encounter_check_tp</title>
-<g id="a_interface~~rmvs_chk_ind~~CalledByGraph_node3"><a xlink:href=".././proc/rmvs_encounter_check_tp.html" xlink:title="rmvs_encounter_check_tp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="339.5,-24 200.5,-24 200.5,0 339.5,0 339.5,-24"/>
-<text text-anchor="middle" x="270" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check_tp</text>
+<title>proc~symba_encounter_check_one</title>
+<g id="a_interface~~rmvs_chk_ind~~CalledByGraph_node3"><a xlink:href=".././proc/symba_encounter_check_one.html" xlink:title="symba_encounter_check_one">
+<polygon fill="#d9534f" stroke="#d9534f" points="348,-24 192,-24 192,0 348,0 348,-24"/>
+<text text-anchor="middle" x="270" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_one</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_encounter_check_tp&#45;&gt;interface~rmvs_chk_ind -->
+<!-- proc~symba_encounter_check_one&#45;&gt;interface~rmvs_chk_ind -->
 <g id="interface~~rmvs_chk_ind~~CalledByGraph_edge2" class="edge">
-<title>proc~rmvs_encounter_check_tp&#45;&gt;interface~rmvs_chk_ind</title>
-<path fill="none" stroke="#000000" d="M339.66,-21.52C351.17,-23.11 362.9,-24.74 373.77,-26.25"/>
-<polygon fill="#000000" stroke="#000000" points="373.52,-29.74 383.9,-27.65 374.48,-22.81 373.52,-29.74"/>
+<title>proc~symba_encounter_check_one&#45;&gt;interface~rmvs_chk_ind</title>
+<path fill="none" stroke="#000000" d="M348.08,-22.68C356.82,-23.9 365.53,-25.1 373.76,-26.24"/>
+<polygon fill="#000000" stroke="#000000" points="373.49,-29.74 383.88,-27.65 374.45,-22.81 373.49,-29.74"/>
 </g>
 <!-- interface~rmvs_encounter_check_tp -->
 <g id="interface~~rmvs_chk_ind~~CalledByGraph_node4" class="node">
 <title>interface~rmvs_encounter_check_tp</title>
 <g id="a_interface~~rmvs_chk_ind~~CalledByGraph_node4"><a xlink:href=".././interface/rmvs_encounter_check_tp.html" xlink:title="rmvs_encounter_check_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="147.5,-24 8.5,-24 8.5,0 147.5,0 147.5,-24"/>
-<text text-anchor="middle" x="78" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check_tp</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="147.5,-66 8.5,-66 8.5,-42 147.5,-42 147.5,-66"/>
+<text text-anchor="middle" x="78" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_encounter_check_tp&#45;&gt;proc~rmvs_encounter_check_tp -->
-<g id="interface~~rmvs_chk_ind~~CalledByGraph_edge4" class="edge">
+<g id="interface~~rmvs_chk_ind~~CalledByGraph_edge3" class="edge">
 <title>interface~rmvs_encounter_check_tp&#45;&gt;proc~rmvs_encounter_check_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.59,-12C161.37,-12 175.94,-12 190.03,-12"/>
-<polygon fill="#000000" stroke="#000000" points="190.19,-15.5 200.19,-12 190.19,-8.5 190.19,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.59,-54C161.37,-54 175.94,-54 190.03,-54"/>
+<polygon fill="#000000" stroke="#000000" points="190.19,-57.5 200.19,-54 190.19,-50.5 190.19,-57.5"/>
 </g>
 <!-- interface~symba_encounter_check_one -->
 <g id="interface~~rmvs_chk_ind~~CalledByGraph_node5" class="node">
 <title>interface~symba_encounter_check_one</title>
 <g id="a_interface~~rmvs_chk_ind~~CalledByGraph_node5"><a xlink:href=".././interface/symba_encounter_check_one.html" xlink:title="symba_encounter_check_one">
-<polygon fill="#a7506f" stroke="#a7506f" points="156,-66 0,-66 0,-42 156,-42 156,-66"/>
-<text text-anchor="middle" x="78" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_one</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="156,-24 0,-24 0,0 156,0 156,-24"/>
+<text text-anchor="middle" x="78" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_one</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_encounter_check_one&#45;&gt;proc~symba_encounter_check_one -->
-<g id="interface~~rmvs_chk_ind~~CalledByGraph_edge3" class="edge">
+<g id="interface~~rmvs_chk_ind~~CalledByGraph_edge4" class="edge">
 <title>interface~symba_encounter_check_one&#45;&gt;proc~symba_encounter_check_one</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.01,-54C164.51,-54 173.21,-54 181.83,-54"/>
-<polygon fill="#000000" stroke="#000000" points="181.88,-57.5 191.88,-54 181.88,-50.5 181.88,-57.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.01,-12C164.51,-12 173.21,-12 181.83,-12"/>
+<polygon fill="#000000" stroke="#000000" points="181.88,-15.5 191.88,-12 181.88,-8.5 181.88,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/interface/rmvs_discard_tp.html b/docs/interface/rmvs_discard_tp.html
index 396f96871..e163d49bb 100644
--- a/docs/interface/rmvs_discard_tp.html
+++ b/docs/interface/rmvs_discard_tp.html
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~14"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~15"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -388,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~18"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~19"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_encounter_check_tp.html b/docs/interface/rmvs_encounter_check_tp.html
index e841143bb..aa055f12b 100644
--- a/docs/interface/rmvs_encounter_check_tp.html
+++ b/docs/interface/rmvs_encounter_check_tp.html
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~13"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~14"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_kick_getacch_tp.html b/docs/interface/rmvs_kick_getacch_tp.html
index 90b008fea..86987ef6a 100644
--- a/docs/interface/rmvs_kick_getacch_tp.html
+++ b/docs/interface/rmvs_kick_getacch_tp.html
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~15"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~16"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -388,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~19"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~20"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_setup_initialize_system.html b/docs/interface/rmvs_setup_initialize_system.html
index 9745ae530..2dc8b3520 100644
--- a/docs/interface/rmvs_setup_initialize_system.html
+++ b/docs/interface/rmvs_setup_initialize_system.html
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~21"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~22"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_setup_pl.html b/docs/interface/rmvs_setup_pl.html
index 108e409bf..2c9c1e540 100644
--- a/docs/interface/rmvs_setup_pl.html
+++ b/docs/interface/rmvs_setup_pl.html
@@ -388,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~20"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~21"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_setup_tp.html b/docs/interface/rmvs_setup_tp.html
index 506d5b8a1..d28355a65 100644
--- a/docs/interface/rmvs_setup_tp.html
+++ b/docs/interface/rmvs_setup_tp.html
@@ -388,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~22"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~23"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_step_system.html b/docs/interface/rmvs_step_system.html
index a316ff795..d28d6a4b7 100644
--- a/docs/interface/rmvs_step_system.html
+++ b/docs/interface/rmvs_step_system.html
@@ -220,190 +220,190 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~rmvs_step_system~~CallsGraph Pages: 1 -->
-<svg id="interfacermvs_step_systemCallsGraph" width="641pt" height="162pt"
- viewBox="0.00 0.00 641.00 162.31" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~rmvs_step_system~~CallsGraph" class="graph" transform="scale(0.82 0.82) rotate(0) translate(4 193)">
+<svg id="interfacermvs_step_systemCallsGraph" width="641pt" height="180pt"
+ viewBox="0.00 0.00 641.00 179.61" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~rmvs_step_system~~CallsGraph" class="graph" transform="scale(0.82 0.82) rotate(0) translate(4 214)">
 <title>interface~~rmvs_step_system~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-193 774,-193 774,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-214 774,-214 774,4 -4,4"/>
 <!-- interface~rmvs_step_system -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node1" class="node">
 <title>interface~rmvs_step_system</title>
-<polygon fill="none" stroke="black" points="102,-64 0,-64 0,-40 102,-40 102,-64"/>
-<text text-anchor="middle" x="51" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_step_system</text>
+<polygon fill="none" stroke="black" points="102,-170 0,-170 0,-146 102,-146 102,-170"/>
+<text text-anchor="middle" x="51" y="-155.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_step_system</text>
 </g>
 <!-- proc~rmvs_step_system -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node2" class="node">
 <title>proc~rmvs_step_system</title>
 <g id="a_interface~~rmvs_step_system~~CallsGraph_node2"><a xlink:href=".././proc/rmvs_step_system.html" xlink:title="rmvs_step_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="240,-64 138,-64 138,-40 240,-40 240,-64"/>
-<text text-anchor="middle" x="189" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_system</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="240,-170 138,-170 138,-146 240,-146 240,-170"/>
+<text text-anchor="middle" x="189" y="-155.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_system</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_step_system&#45;&gt;proc~rmvs_step_system -->
 <g id="interface~~rmvs_step_system~~CallsGraph_edge1" class="edge">
 <title>interface~rmvs_step_system&#45;&gt;proc~rmvs_step_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M102.25,-52C110.54,-52 119.2,-52 127.7,-52"/>
-<polygon fill="#000000" stroke="#000000" points="127.95,-55.5 137.95,-52 127.95,-48.5 127.95,-55.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M102.25,-158C110.54,-158 119.2,-158 127.7,-158"/>
+<polygon fill="#000000" stroke="#000000" points="127.95,-161.5 137.95,-158 127.95,-154.5 127.95,-161.5"/>
 </g>
-<!-- proc~rmvs_step_out -->
+<!-- whm_step_system -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node3" class="node">
-<title>proc~rmvs_step_out</title>
-<g id="a_interface~~rmvs_step_system~~CallsGraph_node3"><a xlink:href=".././proc/rmvs_step_out.html" xlink:title="rmvs_step_out">
-<polygon fill="#d9534f" stroke="#d9534f" points="368,-105 285,-105 285,-81 368,-81 368,-105"/>
-<text text-anchor="middle" x="326.5" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_out</text>
-</a>
-</g>
+<title>whm_step_system</title>
+<polygon fill="#777777" stroke="#777777" points="377,-210 276,-210 276,-186 377,-186 377,-210"/>
+<text text-anchor="middle" x="326.5" y="-195.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_system</text>
 </g>
-<!-- proc~rmvs_step_system&#45;&gt;proc~rmvs_step_out -->
+<!-- proc~rmvs_step_system&#45;&gt;whm_step_system -->
 <g id="interface~~rmvs_step_system~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_step_system&#45;&gt;proc~rmvs_step_out</title>
-<path fill="none" stroke="#000000" d="M229.92,-64.08C244.27,-68.42 260.62,-73.37 275.7,-77.93"/>
-<polygon fill="#000000" stroke="#000000" points="274.81,-81.32 285.4,-80.87 276.84,-74.62 274.81,-81.32"/>
+<title>proc~rmvs_step_system&#45;&gt;whm_step_system</title>
+<path fill="none" stroke="#000000" d="M230.65,-170C244.46,-174.08 260.07,-178.68 274.57,-182.97"/>
+<polygon fill="#000000" stroke="#000000" points="273.82,-186.39 284.41,-185.87 275.81,-179.68 273.82,-186.39"/>
 </g>
 <!-- proc~rmvs_interp_out -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node4" class="node">
 <title>proc~rmvs_interp_out</title>
 <g id="a_interface~~rmvs_step_system~~CallsGraph_node4"><a xlink:href=".././proc/rmvs_interp_out.html" xlink:title="rmvs_interp_out">
-<polygon fill="#d9534f" stroke="#d9534f" points="503,-63 413,-63 413,-39 503,-39 503,-63"/>
-<text text-anchor="middle" x="458" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp_out</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="503,-171 413,-171 413,-147 503,-147 503,-171"/>
+<text text-anchor="middle" x="458" y="-156.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp_out</text>
 </a>
 </g>
 </g>
 <!-- proc~rmvs_step_system&#45;&gt;proc~rmvs_interp_out -->
 <g id="interface~~rmvs_step_system~~CallsGraph_edge3" class="edge">
 <title>proc~rmvs_step_system&#45;&gt;proc~rmvs_interp_out</title>
-<path fill="none" stroke="#000000" d="M240.22,-51.81C286.52,-51.64 355.08,-51.38 402.65,-51.2"/>
-<polygon fill="#000000" stroke="#000000" points="402.78,-54.7 412.76,-51.17 402.75,-47.7 402.78,-54.7"/>
+<path fill="none" stroke="#000000" d="M240.22,-158.19C286.52,-158.36 355.08,-158.62 402.65,-158.8"/>
+<polygon fill="#000000" stroke="#000000" points="402.75,-162.3 412.76,-158.83 402.78,-155.3 402.75,-162.3"/>
 </g>
-<!-- whm_step_system -->
+<!-- proc~rmvs_step_out -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node5" class="node">
-<title>whm_step_system</title>
-<polygon fill="#777777" stroke="#777777" points="377,-24 276,-24 276,0 377,0 377,-24"/>
-<text text-anchor="middle" x="326.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_system</text>
+<title>proc~rmvs_step_out</title>
+<g id="a_interface~~rmvs_step_system~~CallsGraph_node5"><a xlink:href=".././proc/rmvs_step_out.html" xlink:title="rmvs_step_out">
+<polygon fill="#d9534f" stroke="#d9534f" points="368,-129 285,-129 285,-105 368,-105 368,-129"/>
+<text text-anchor="middle" x="326.5" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_out</text>
+</a>
 </g>
-<!-- proc~rmvs_step_system&#45;&gt;whm_step_system -->
+</g>
+<!-- proc~rmvs_step_system&#45;&gt;proc~rmvs_step_out -->
 <g id="interface~~rmvs_step_system~~CallsGraph_edge4" class="edge">
-<title>proc~rmvs_step_system&#45;&gt;whm_step_system</title>
-<path fill="none" stroke="#000000" d="M230.65,-40C244.46,-35.92 260.07,-31.32 274.57,-27.03"/>
-<polygon fill="#000000" stroke="#000000" points="275.81,-30.32 284.41,-24.13 273.82,-23.61 275.81,-30.32"/>
+<title>proc~rmvs_step_system&#45;&gt;proc~rmvs_step_out</title>
+<path fill="none" stroke="#000000" d="M229.92,-145.92C244.27,-141.58 260.62,-136.63 275.7,-132.07"/>
+<polygon fill="#000000" stroke="#000000" points="276.84,-135.38 285.4,-129.13 274.81,-128.68 276.84,-135.38"/>
 </g>
-<!-- proc~rmvs_interp_in -->
+<!-- util_exit -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node6" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="636.5,-171 582.5,-171 582.5,-147 636.5,-147 636.5,-171"/>
+<text text-anchor="middle" x="609.5" y="-156.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~rmvs_interp_out&#45;&gt;util_exit -->
+<g id="interface~~rmvs_step_system~~CallsGraph_edge5" class="edge">
+<title>proc~rmvs_interp_out&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M503.05,-159C525,-159 551.24,-159 572.05,-159"/>
+<polygon fill="#000000" stroke="#000000" points="572.08,-162.5 582.08,-159 572.08,-155.5 572.08,-162.5"/>
+</g>
+<!-- proc~rmvs_interp_in -->
+<g id="interface~~rmvs_step_system~~CallsGraph_node7" class="node">
 <title>proc~rmvs_interp_in</title>
-<g id="a_interface~~rmvs_step_system~~CallsGraph_node6"><a xlink:href=".././proc/rmvs_interp_in.html" xlink:title="rmvs_interp_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="499.5,-105 416.5,-105 416.5,-81 499.5,-81 499.5,-105"/>
-<text text-anchor="middle" x="458" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp_in</text>
+<g id="a_interface~~rmvs_step_system~~CallsGraph_node7"><a xlink:href=".././proc/rmvs_interp_in.html" xlink:title="rmvs_interp_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="499.5,-129 416.5,-129 416.5,-105 499.5,-105 499.5,-129"/>
+<text text-anchor="middle" x="458" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp_in</text>
 </a>
 </g>
 </g>
 <!-- proc~rmvs_step_out&#45;&gt;proc~rmvs_interp_in -->
-<g id="interface~~rmvs_step_system~~CallsGraph_edge5" class="edge">
+<g id="interface~~rmvs_step_system~~CallsGraph_edge6" class="edge">
 <title>proc~rmvs_step_out&#45;&gt;proc~rmvs_interp_in</title>
-<path fill="none" stroke="#000000" d="M368.12,-93C380.06,-93 393.27,-93 405.78,-93"/>
-<polygon fill="#000000" stroke="#000000" points="406.08,-96.5 416.08,-93 406.08,-89.5 406.08,-96.5"/>
+<path fill="none" stroke="#000000" d="M368.12,-117C380.06,-117 393.27,-117 405.78,-117"/>
+<polygon fill="#000000" stroke="#000000" points="406.08,-120.5 416.08,-117 406.08,-113.5 406.08,-120.5"/>
 </g>
 <!-- proc~rmvs_step_in -->
-<g id="interface~~rmvs_step_system~~CallsGraph_node7" class="node">
+<g id="interface~~rmvs_step_system~~CallsGraph_node8" class="node">
 <title>proc~rmvs_step_in</title>
-<g id="a_interface~~rmvs_step_system~~CallsGraph_node7"><a xlink:href=".././proc/rmvs_step_in.html" xlink:title="rmvs_step_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="496,-147 420,-147 420,-123 496,-123 496,-147"/>
-<text text-anchor="middle" x="458" y="-132.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_in</text>
+<g id="a_interface~~rmvs_step_system~~CallsGraph_node8"><a xlink:href=".././proc/rmvs_step_in.html" xlink:title="rmvs_step_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="496,-87 420,-87 420,-63 496,-63 496,-87"/>
+<text text-anchor="middle" x="458" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_in</text>
 </a>
 </g>
 </g>
 <!-- proc~rmvs_step_out&#45;&gt;proc~rmvs_step_in -->
-<g id="interface~~rmvs_step_system~~CallsGraph_edge6" class="edge">
-<title>proc~rmvs_step_out&#45;&gt;proc~rmvs_step_in</title>
-<path fill="none" stroke="#000000" d="M364.61,-105.04C378.83,-109.65 395.25,-114.97 410.26,-119.84"/>
-<polygon fill="#000000" stroke="#000000" points="409.29,-123.21 419.89,-122.96 411.45,-116.55 409.29,-123.21"/>
-</g>
-<!-- util_exit -->
-<g id="interface~~rmvs_step_system~~CallsGraph_node8" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="636.5,-63 582.5,-63 582.5,-39 636.5,-39 636.5,-63"/>
-<text text-anchor="middle" x="609.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
-</g>
-<!-- proc~rmvs_interp_out&#45;&gt;util_exit -->
 <g id="interface~~rmvs_step_system~~CallsGraph_edge7" class="edge">
-<title>proc~rmvs_interp_out&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M503.05,-51C525,-51 551.24,-51 572.05,-51"/>
-<polygon fill="#000000" stroke="#000000" points="572.08,-54.5 582.08,-51 572.08,-47.5 572.08,-54.5"/>
+<title>proc~rmvs_step_out&#45;&gt;proc~rmvs_step_in</title>
+<path fill="none" stroke="#000000" d="M364.61,-104.96C378.83,-100.35 395.25,-95.03 410.26,-90.16"/>
+<polygon fill="#000000" stroke="#000000" points="411.45,-93.45 419.89,-87.04 409.29,-86.79 411.45,-93.45"/>
 </g>
 <!-- proc~rmvs_interp_in&#45;&gt;util_exit -->
 <g id="interface~~rmvs_step_system~~CallsGraph_edge8" class="edge">
 <title>proc~rmvs_interp_in&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M499.85,-81.52C522.54,-75.15 550.51,-67.29 572.4,-61.14"/>
-<polygon fill="#000000" stroke="#000000" points="573.61,-64.44 582.29,-58.36 571.71,-57.7 573.61,-64.44"/>
+<path fill="none" stroke="#000000" d="M499.85,-128.48C522.54,-134.85 550.51,-142.71 572.4,-148.86"/>
+<polygon fill="#000000" stroke="#000000" points="571.71,-152.3 582.29,-151.64 573.61,-145.56 571.71,-152.3"/>
 </g>
-<!-- proc~rmvs_peri_tp -->
+<!-- proc~rmvs_make_planetocentric -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node9" class="node">
-<title>proc~rmvs_peri_tp</title>
-<g id="a_interface~~rmvs_step_system~~CallsGraph_node9"><a xlink:href=".././proc/rmvs_peri_tp.html" xlink:title="rmvs_peri_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="647,-147 572,-147 572,-123 647,-123 647,-147"/>
-<text text-anchor="middle" x="609.5" y="-132.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_peri_tp</text>
+<title>proc~rmvs_make_planetocentric</title>
+<g id="a_interface~~rmvs_step_system~~CallsGraph_node9"><a xlink:href=".././proc/rmvs_make_planetocentric.html" xlink:title="rmvs_make_planetocentric">
+<polygon fill="#d9534f" stroke="#d9534f" points="680,-129 539,-129 539,-105 680,-105 680,-129"/>
+<text text-anchor="middle" x="609.5" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_make_planetocentric</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp -->
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric -->
 <g id="interface~~rmvs_step_system~~CallsGraph_edge9" class="edge">
-<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp</title>
-<path fill="none" stroke="#000000" d="M496.34,-135C516.18,-135 540.77,-135 561.86,-135"/>
-<polygon fill="#000000" stroke="#000000" points="561.89,-138.5 571.89,-135 561.89,-131.5 561.89,-138.5"/>
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric</title>
+<path fill="none" stroke="#000000" d="M496.34,-85.49C514.32,-90.54 536.19,-96.68 555.82,-102.2"/>
+<polygon fill="#000000" stroke="#000000" points="554.98,-105.6 565.56,-104.94 556.87,-98.86 554.98,-105.6"/>
 </g>
-<!-- proc~rmvs_make_planetocentric -->
+<!-- proc~rmvs_end_planetocentric -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node10" class="node">
-<title>proc~rmvs_make_planetocentric</title>
-<g id="a_interface~~rmvs_step_system~~CallsGraph_node10"><a xlink:href=".././proc/rmvs_make_planetocentric.html" xlink:title="rmvs_make_planetocentric">
-<polygon fill="#d9534f" stroke="#d9534f" points="680,-105 539,-105 539,-81 680,-81 680,-105"/>
-<text text-anchor="middle" x="609.5" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_make_planetocentric</text>
+<title>proc~rmvs_end_planetocentric</title>
+<g id="a_interface~~rmvs_step_system~~CallsGraph_node10"><a xlink:href=".././proc/rmvs_end_planetocentric.html" xlink:title="rmvs_end_planetocentric">
+<polygon fill="#d9534f" stroke="#d9534f" points="676,-87 543,-87 543,-63 676,-63 676,-87"/>
+<text text-anchor="middle" x="609.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_end_planetocentric</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric -->
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric -->
 <g id="interface~~rmvs_step_system~~CallsGraph_edge10" class="edge">
-<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric</title>
-<path fill="none" stroke="#000000" d="M496.34,-124.51C514.32,-119.46 536.19,-113.32 555.82,-107.8"/>
-<polygon fill="#000000" stroke="#000000" points="556.87,-111.14 565.56,-105.06 554.98,-104.4 556.87,-111.14"/>
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric</title>
+<path fill="none" stroke="#000000" d="M496.34,-75C507.46,-75 520.08,-75 532.73,-75"/>
+<polygon fill="#000000" stroke="#000000" points="532.85,-78.5 542.85,-75 532.85,-71.5 532.85,-78.5"/>
 </g>
-<!-- proc~rmvs_end_planetocentric -->
+<!-- proc~rmvs_peri_tp -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node11" class="node">
-<title>proc~rmvs_end_planetocentric</title>
-<g id="a_interface~~rmvs_step_system~~CallsGraph_node11"><a xlink:href=".././proc/rmvs_end_planetocentric.html" xlink:title="rmvs_end_planetocentric">
-<polygon fill="#d9534f" stroke="#d9534f" points="676,-189 543,-189 543,-165 676,-165 676,-189"/>
-<text text-anchor="middle" x="609.5" y="-174.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_end_planetocentric</text>
+<title>proc~rmvs_peri_tp</title>
+<g id="a_interface~~rmvs_step_system~~CallsGraph_node11"><a xlink:href=".././proc/rmvs_peri_tp.html" xlink:title="rmvs_peri_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="647,-45 572,-45 572,-21 647,-21 647,-45"/>
+<text text-anchor="middle" x="609.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_peri_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric -->
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp -->
 <g id="interface~~rmvs_step_system~~CallsGraph_edge11" class="edge">
-<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric</title>
-<path fill="none" stroke="#000000" d="M496.34,-145.49C514.32,-150.54 536.19,-156.68 555.82,-162.2"/>
-<polygon fill="#000000" stroke="#000000" points="554.98,-165.6 565.56,-164.94 556.87,-158.86 554.98,-165.6"/>
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp</title>
+<path fill="none" stroke="#000000" d="M496.34,-64.51C516.27,-58.91 540.99,-51.97 562.15,-46.02"/>
+<polygon fill="#000000" stroke="#000000" points="563.21,-49.36 571.89,-43.28 561.32,-42.62 563.21,-49.36"/>
 </g>
-<!-- xpc -->
+<!-- vpc -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node12" class="node">
-<title>xpc</title>
-<polygon fill="#777777" stroke="#777777" points="770,-168 716,-168 716,-144 770,-144 770,-168"/>
-<text text-anchor="middle" x="743" y="-153.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xpc</text>
+<title>vpc</title>
+<polygon fill="#777777" stroke="#777777" points="770,-66 716,-66 716,-42 770,-42 770,-66"/>
+<text text-anchor="middle" x="743" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vpc</text>
 </g>
-<!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
+<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
 <g id="interface~~rmvs_step_system~~CallsGraph_edge12" class="edge">
-<title>proc~rmvs_peri_tp&#45;&gt;xpc</title>
-<path fill="none" stroke="#000000" d="M647.13,-140.85C665.51,-143.79 687.7,-147.33 705.99,-150.25"/>
-<polygon fill="#000000" stroke="#000000" points="705.55,-153.72 715.98,-151.84 706.66,-146.81 705.55,-153.72"/>
+<title>proc~rmvs_peri_tp&#45;&gt;vpc</title>
+<path fill="none" stroke="#000000" d="M647.13,-38.85C665.51,-41.79 687.7,-45.33 705.99,-48.25"/>
+<polygon fill="#000000" stroke="#000000" points="705.55,-51.72 715.98,-49.84 706.66,-44.81 705.55,-51.72"/>
 </g>
-<!-- vpc -->
+<!-- xpc -->
 <g id="interface~~rmvs_step_system~~CallsGraph_node13" class="node">
-<title>vpc</title>
-<polygon fill="#777777" stroke="#777777" points="770,-126 716,-126 716,-102 770,-102 770,-126"/>
-<text text-anchor="middle" x="743" y="-111.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vpc</text>
+<title>xpc</title>
+<polygon fill="#777777" stroke="#777777" points="770,-24 716,-24 716,0 770,0 770,-24"/>
+<text text-anchor="middle" x="743" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xpc</text>
 </g>
-<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
+<!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
 <g id="interface~~rmvs_step_system~~CallsGraph_edge13" class="edge">
-<title>proc~rmvs_peri_tp&#45;&gt;vpc</title>
-<path fill="none" stroke="#000000" d="M647.13,-129.15C665.51,-126.21 687.7,-122.67 705.99,-119.75"/>
-<polygon fill="#000000" stroke="#000000" points="706.66,-123.19 715.98,-118.16 705.55,-116.28 706.66,-123.19"/>
+<title>proc~rmvs_peri_tp&#45;&gt;xpc</title>
+<path fill="none" stroke="#000000" d="M647.13,-27.15C665.51,-24.21 687.7,-20.67 705.99,-17.75"/>
+<polygon fill="#000000" stroke="#000000" points="706.66,-21.19 715.98,-16.16 705.55,-14.28 706.66,-21.19"/>
 </g>
 </g>
 </svg>
@@ -520,7 +520,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~23"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~24"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/rmvs_util_append_pl.html b/docs/interface/rmvs_util_append_pl.html
index 5b7eb5e7e..0efe3efa7 100644
--- a/docs/interface/rmvs_util_append_pl.html
+++ b/docs/interface/rmvs_util_append_pl.html
@@ -246,29 +246,29 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M112.2,-54C120.46,-54 129.05,-54 137.51,-54"/>
 <polygon fill="#000000" stroke="#000000" points="137.73,-57.5 147.73,-54 137.73,-50.5 137.73,-57.5"/>
 </g>
-<!-- util_append -->
+<!-- util_exit -->
 <g id="interface~~rmvs_util_append_pl~~CallsGraph_node3" class="node">
-<title>util_append</title>
-<polygon fill="#777777" stroke="#777777" points="385.5,-108 317.5,-108 317.5,-84 385.5,-84 385.5,-108"/>
-<text text-anchor="middle" x="351.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="378.5,-108 324.5,-108 324.5,-84 378.5,-84 378.5,-108"/>
+<text text-anchor="middle" x="351.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~rmvs_util_append_pl&#45;&gt;util_append -->
+<!-- proc~rmvs_util_append_pl&#45;&gt;util_exit -->
 <g id="interface~~rmvs_util_append_pl~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_util_append_pl&#45;&gt;util_append</title>
-<path fill="none" stroke="#000000" d="M246.69,-66.04C265.72,-71.53 288.22,-78.02 307.41,-83.56"/>
-<polygon fill="#000000" stroke="#000000" points="306.53,-86.95 317.11,-86.36 308.47,-80.22 306.53,-86.95"/>
+<title>proc~rmvs_util_append_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M246.69,-66.04C268.2,-72.24 294.16,-79.74 314.74,-85.68"/>
+<polygon fill="#000000" stroke="#000000" points="313.79,-89.05 324.37,-88.46 315.73,-82.32 313.79,-89.05"/>
 </g>
-<!-- util_exit -->
+<!-- util_append -->
 <g id="interface~~rmvs_util_append_pl~~CallsGraph_node4" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="378.5,-66 324.5,-66 324.5,-42 378.5,-42 378.5,-66"/>
-<text text-anchor="middle" x="351.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<title>util_append</title>
+<polygon fill="#777777" stroke="#777777" points="385.5,-66 317.5,-66 317.5,-42 385.5,-42 385.5,-66"/>
+<text text-anchor="middle" x="351.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </g>
-<!-- proc~rmvs_util_append_pl&#45;&gt;util_exit -->
+<!-- proc~rmvs_util_append_pl&#45;&gt;util_append -->
 <g id="interface~~rmvs_util_append_pl~~CallsGraph_edge3" class="edge">
-<title>proc~rmvs_util_append_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M260.01,-54C278.1,-54 297.74,-54 314.09,-54"/>
-<polygon fill="#000000" stroke="#000000" points="314.31,-57.5 324.31,-54 314.31,-50.5 314.31,-57.5"/>
+<title>proc~rmvs_util_append_pl&#45;&gt;util_append</title>
+<path fill="none" stroke="#000000" d="M260.01,-54C275.55,-54 292.24,-54 307,-54"/>
+<polygon fill="#000000" stroke="#000000" points="307.37,-57.5 317.37,-54 307.37,-50.5 307.37,-57.5"/>
 </g>
 <!-- whm_util_append_pl -->
 <g id="interface~~rmvs_util_append_pl~~CallsGraph_node5" class="node">
@@ -414,7 +414,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/interface/rmvs_util_append_tp.html b/docs/interface/rmvs_util_append_tp.html
index 509da4ea9..70b1a8abf 100644
--- a/docs/interface/rmvs_util_append_tp.html
+++ b/docs/interface/rmvs_util_append_tp.html
@@ -246,41 +246,41 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M112.2,-54C120.46,-54 129.05,-54 137.51,-54"/>
 <polygon fill="#000000" stroke="#000000" points="137.73,-57.5 147.73,-54 137.73,-50.5 137.73,-57.5"/>
 </g>
-<!-- util_append -->
+<!-- util_exit -->
 <g id="interface~~rmvs_util_append_tp~~CallsGraph_node3" class="node">
-<title>util_append</title>
-<polygon fill="#777777" stroke="#777777" points="371.5,-108 303.5,-108 303.5,-84 371.5,-84 371.5,-108"/>
-<text text-anchor="middle" x="337.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="364.5,-108 310.5,-108 310.5,-84 364.5,-84 364.5,-108"/>
+<text text-anchor="middle" x="337.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~rmvs_util_append_tp&#45;&gt;util_append -->
+<!-- proc~rmvs_util_append_tp&#45;&gt;util_exit -->
 <g id="interface~~rmvs_util_append_tp~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_util_append_tp&#45;&gt;util_append</title>
-<path fill="none" stroke="#000000" d="M242.68,-66.04C258.52,-71.09 277.03,-77.01 293.41,-82.24"/>
-<polygon fill="#000000" stroke="#000000" points="292.7,-85.68 303.29,-85.39 294.83,-79.02 292.7,-85.68"/>
+<title>proc~rmvs_util_append_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M242.68,-66.04C261,-71.88 282.89,-78.88 300.92,-84.63"/>
+<polygon fill="#000000" stroke="#000000" points="299.9,-87.98 310.49,-87.69 302.03,-81.31 299.9,-87.98"/>
 </g>
-<!-- util_append_tp -->
+<!-- util_append -->
 <g id="interface~~rmvs_util_append_tp~~CallsGraph_node4" class="node">
-<title>util_append_tp</title>
-<polygon fill="#777777" stroke="#777777" points="379,-66 296,-66 296,-42 379,-42 379,-66"/>
-<text text-anchor="middle" x="337.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
+<title>util_append</title>
+<polygon fill="#777777" stroke="#777777" points="371.5,-66 303.5,-66 303.5,-42 371.5,-42 371.5,-66"/>
+<text text-anchor="middle" x="337.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </g>
-<!-- proc~rmvs_util_append_tp&#45;&gt;util_append_tp -->
+<!-- proc~rmvs_util_append_tp&#45;&gt;util_append -->
 <g id="interface~~rmvs_util_append_tp~~CallsGraph_edge3" class="edge">
-<title>proc~rmvs_util_append_tp&#45;&gt;util_append_tp</title>
-<path fill="none" stroke="#000000" d="M260.01,-54C268.51,-54 277.26,-54 285.67,-54"/>
-<polygon fill="#000000" stroke="#000000" points="285.72,-57.5 295.72,-54 285.72,-50.5 285.72,-57.5"/>
+<title>proc~rmvs_util_append_tp&#45;&gt;util_append</title>
+<path fill="none" stroke="#000000" d="M260.01,-54C271.09,-54 282.59,-54 293.21,-54"/>
+<polygon fill="#000000" stroke="#000000" points="293.48,-57.5 303.48,-54 293.48,-50.5 293.48,-57.5"/>
 </g>
-<!-- util_exit -->
+<!-- util_append_tp -->
 <g id="interface~~rmvs_util_append_tp~~CallsGraph_node5" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="364.5,-24 310.5,-24 310.5,0 364.5,0 364.5,-24"/>
-<text text-anchor="middle" x="337.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<title>util_append_tp</title>
+<polygon fill="#777777" stroke="#777777" points="379,-24 296,-24 296,0 379,0 379,-24"/>
+<text text-anchor="middle" x="337.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
 </g>
-<!-- proc~rmvs_util_append_tp&#45;&gt;util_exit -->
+<!-- proc~rmvs_util_append_tp&#45;&gt;util_append_tp -->
 <g id="interface~~rmvs_util_append_tp~~CallsGraph_edge4" class="edge">
-<title>proc~rmvs_util_append_tp&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M242.68,-41.96C261,-36.12 282.89,-29.12 300.92,-23.37"/>
-<polygon fill="#000000" stroke="#000000" points="302.03,-26.69 310.49,-20.31 299.9,-20.02 302.03,-26.69"/>
+<title>proc~rmvs_util_append_tp&#45;&gt;util_append_tp</title>
+<path fill="none" stroke="#000000" d="M242.68,-41.96C257.13,-37.35 273.79,-32.03 289.04,-27.16"/>
+<polygon fill="#000000" stroke="#000000" points="290.35,-30.41 298.81,-24.04 288.22,-23.75 290.35,-30.41"/>
 </g>
 </g>
 </svg>
@@ -414,7 +414,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask~2"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/interface/rmvs_util_fill_pl.html b/docs/interface/rmvs_util_fill_pl.html
index bc2a9673c..0acbe25a8 100644
--- a/docs/interface/rmvs_util_fill_pl.html
+++ b/docs/interface/rmvs_util_fill_pl.html
@@ -246,41 +246,41 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M85.12,-54C93.32,-54 102.01,-54 110.5,-54"/>
 <polygon fill="#000000" stroke="#000000" points="110.7,-57.5 120.7,-54 110.7,-50.5 110.7,-57.5"/>
 </g>
-<!-- util_fill -->
-<g id="interface~~rmvs_util_fill_pl~~CallsGraph_node3" class="node">
-<title>util_fill</title>
-<polygon fill="#777777" stroke="#777777" points="311.5,-108 257.5,-108 257.5,-84 311.5,-84 311.5,-108"/>
-<text text-anchor="middle" x="284.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
-</g>
-<!-- proc~rmvs_util_fill_pl&#45;&gt;util_fill -->
-<g id="interface~~rmvs_util_fill_pl~~CallsGraph_edge3" class="edge">
-<title>proc~rmvs_util_fill_pl&#45;&gt;util_fill</title>
-<path fill="none" stroke="#000000" d="M198.6,-66.04C213.92,-71.44 232.02,-77.83 247.55,-83.31"/>
-<polygon fill="#000000" stroke="#000000" points="246.74,-86.74 257.34,-86.77 249.07,-80.14 246.74,-86.74"/>
-</g>
 <!-- util_exit -->
-<g id="interface~~rmvs_util_fill_pl~~CallsGraph_node4" class="node">
+<g id="interface~~rmvs_util_fill_pl~~CallsGraph_node3" class="node">
 <title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="311.5,-66 257.5,-66 257.5,-42 311.5,-42 311.5,-66"/>
-<text text-anchor="middle" x="284.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#777777" stroke="#777777" points="311.5,-108 257.5,-108 257.5,-84 311.5,-84 311.5,-108"/>
+<text text-anchor="middle" x="284.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
 <!-- proc~rmvs_util_fill_pl&#45;&gt;util_exit -->
 <g id="interface~~rmvs_util_fill_pl~~CallsGraph_edge2" class="edge">
 <title>proc~rmvs_util_fill_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M206.12,-54C219.42,-54 234.03,-54 246.95,-54"/>
-<polygon fill="#000000" stroke="#000000" points="247.33,-57.5 257.33,-54 247.33,-50.5 247.33,-57.5"/>
+<path fill="none" stroke="#000000" d="M198.6,-66.04C213.92,-71.44 232.02,-77.83 247.55,-83.31"/>
+<polygon fill="#000000" stroke="#000000" points="246.74,-86.74 257.34,-86.77 249.07,-80.14 246.74,-86.74"/>
 </g>
 <!-- whm_util_fill_pl -->
-<g id="interface~~rmvs_util_fill_pl~~CallsGraph_node5" class="node">
+<g id="interface~~rmvs_util_fill_pl~~CallsGraph_node4" class="node">
 <title>whm_util_fill_pl</title>
-<polygon fill="#777777" stroke="#777777" points="327,-24 242,-24 242,0 327,0 327,-24"/>
-<text text-anchor="middle" x="284.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_fill_pl</text>
+<polygon fill="#777777" stroke="#777777" points="327,-66 242,-66 242,-42 327,-42 327,-66"/>
+<text text-anchor="middle" x="284.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_fill_pl</text>
 </g>
 <!-- proc~rmvs_util_fill_pl&#45;&gt;whm_util_fill_pl -->
-<g id="interface~~rmvs_util_fill_pl~~CallsGraph_edge4" class="edge">
+<g id="interface~~rmvs_util_fill_pl~~CallsGraph_edge3" class="edge">
 <title>proc~rmvs_util_fill_pl&#45;&gt;whm_util_fill_pl</title>
-<path fill="none" stroke="#000000" d="M198.6,-41.96C211.42,-37.44 226.18,-32.23 239.76,-27.44"/>
-<polygon fill="#000000" stroke="#000000" points="241.13,-30.67 249.39,-24.04 238.8,-24.07 241.13,-30.67"/>
+<path fill="none" stroke="#000000" d="M206.12,-54C214.32,-54 223.01,-54 231.5,-54"/>
+<polygon fill="#000000" stroke="#000000" points="231.7,-57.5 241.7,-54 231.7,-50.5 231.7,-57.5"/>
+</g>
+<!-- util_fill -->
+<g id="interface~~rmvs_util_fill_pl~~CallsGraph_node5" class="node">
+<title>util_fill</title>
+<polygon fill="#777777" stroke="#777777" points="311.5,-24 257.5,-24 257.5,0 311.5,0 311.5,-24"/>
+<text text-anchor="middle" x="284.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
+</g>
+<!-- proc~rmvs_util_fill_pl&#45;&gt;util_fill -->
+<g id="interface~~rmvs_util_fill_pl~~CallsGraph_edge4" class="edge">
+<title>proc~rmvs_util_fill_pl&#45;&gt;util_fill</title>
+<path fill="none" stroke="#000000" d="M198.6,-41.96C213.92,-36.56 232.02,-30.17 247.55,-24.69"/>
+<polygon fill="#000000" stroke="#000000" points="249.07,-27.86 257.34,-21.23 246.74,-21.26 249.07,-27.86"/>
 </g>
 </g>
 </svg>
diff --git a/docs/interface/rmvs_util_fill_tp.html b/docs/interface/rmvs_util_fill_tp.html
index ed2924c1d..7620063e0 100644
--- a/docs/interface/rmvs_util_fill_tp.html
+++ b/docs/interface/rmvs_util_fill_tp.html
@@ -258,27 +258,27 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M196.23,-66.04C208.05,-70.74 221.73,-76.19 234.15,-81.13"/>
 <polygon fill="#000000" stroke="#000000" points="233.21,-84.52 243.79,-84.97 235.79,-78.02 233.21,-84.52"/>
 </g>
-<!-- util_fill -->
+<!-- util_exit -->
 <g id="interface~~rmvs_util_fill_tp~~CallsGraph_node4" class="node">
-<title>util_fill</title>
+<title>util_exit</title>
 <polygon fill="#777777" stroke="#777777" points="299.5,-66 245.5,-66 245.5,-42 299.5,-42 299.5,-66"/>
-<text text-anchor="middle" x="272.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
+<text text-anchor="middle" x="272.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~rmvs_util_fill_tp&#45;&gt;util_fill -->
-<g id="interface~~rmvs_util_fill_tp~~CallsGraph_edge4" class="edge">
-<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill</title>
+<!-- proc~rmvs_util_fill_tp&#45;&gt;util_exit -->
+<g id="interface~~rmvs_util_fill_tp~~CallsGraph_edge3" class="edge">
+<title>proc~rmvs_util_fill_tp&#45;&gt;util_exit</title>
 <path fill="none" stroke="#000000" d="M208.3,-54C217.19,-54 226.48,-54 235.13,-54"/>
 <polygon fill="#000000" stroke="#000000" points="235.28,-57.5 245.28,-54 235.28,-50.5 235.28,-57.5"/>
 </g>
-<!-- util_exit -->
+<!-- util_fill -->
 <g id="interface~~rmvs_util_fill_tp~~CallsGraph_node5" class="node">
-<title>util_exit</title>
+<title>util_fill</title>
 <polygon fill="#777777" stroke="#777777" points="299.5,-24 245.5,-24 245.5,0 299.5,0 299.5,-24"/>
-<text text-anchor="middle" x="272.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<text text-anchor="middle" x="272.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
 </g>
-<!-- proc~rmvs_util_fill_tp&#45;&gt;util_exit -->
-<g id="interface~~rmvs_util_fill_tp~~CallsGraph_edge3" class="edge">
-<title>proc~rmvs_util_fill_tp&#45;&gt;util_exit</title>
+<!-- proc~rmvs_util_fill_tp&#45;&gt;util_fill -->
+<g id="interface~~rmvs_util_fill_tp~~CallsGraph_edge4" class="edge">
+<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill</title>
 <path fill="none" stroke="#000000" d="M196.23,-41.96C208.56,-37.06 222.9,-31.35 235.74,-26.24"/>
 <polygon fill="#000000" stroke="#000000" points="237.21,-29.42 245.21,-22.47 234.62,-22.91 237.21,-29.42"/>
 </g>
diff --git a/docs/interface/rmvs_util_spill_pl.html b/docs/interface/rmvs_util_spill_pl.html
index 5a5d3d474..c591da10d 100644
--- a/docs/interface/rmvs_util_spill_pl.html
+++ b/docs/interface/rmvs_util_spill_pl.html
@@ -246,17 +246,17 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M94.21,-54C102.46,-54 111.13,-54 119.63,-54"/>
 <polygon fill="#000000" stroke="#000000" points="119.86,-57.5 129.86,-54 119.86,-50.5 119.86,-57.5"/>
 </g>
-<!-- whm_util_spill_pl -->
+<!-- util_exit -->
 <g id="interface~~rmvs_util_spill_pl~~CallsGraph_node3" class="node">
-<title>whm_util_spill_pl</title>
-<polygon fill="#777777" stroke="#777777" points="353,-108 260,-108 260,-84 353,-84 353,-108"/>
-<text text-anchor="middle" x="306.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_spill_pl</text>
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="333.5,-108 279.5,-108 279.5,-84 333.5,-84 333.5,-108"/>
+<text text-anchor="middle" x="306.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~rmvs_util_spill_pl&#45;&gt;whm_util_spill_pl -->
+<!-- proc~rmvs_util_spill_pl&#45;&gt;util_exit -->
 <g id="interface~~rmvs_util_spill_pl~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_util_spill_pl&#45;&gt;whm_util_spill_pl</title>
-<path fill="none" stroke="#000000" d="M214.54,-66.04C228.41,-70.6 244.39,-75.87 259.06,-80.7"/>
-<polygon fill="#000000" stroke="#000000" points="258.37,-84.16 268.96,-83.96 260.56,-77.51 258.37,-84.16"/>
+<title>proc~rmvs_util_spill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M214.54,-66.04C231.88,-71.75 252.54,-78.55 269.78,-84.23"/>
+<polygon fill="#000000" stroke="#000000" points="268.89,-87.63 279.49,-87.43 271.08,-80.98 268.89,-87.63"/>
 </g>
 <!-- util_spill -->
 <g id="interface~~rmvs_util_spill_pl~~CallsGraph_node4" class="node">
@@ -265,22 +265,22 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="306.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
 </g>
 <!-- proc~rmvs_util_spill_pl&#45;&gt;util_spill -->
-<g id="interface~~rmvs_util_spill_pl~~CallsGraph_edge4" class="edge">
+<g id="interface~~rmvs_util_spill_pl~~CallsGraph_edge3" class="edge">
 <title>proc~rmvs_util_spill_pl&#45;&gt;util_spill</title>
 <path fill="none" stroke="#000000" d="M224.03,-54C238.81,-54 254.97,-54 268.97,-54"/>
 <polygon fill="#000000" stroke="#000000" points="269.2,-57.5 279.2,-54 269.2,-50.5 269.2,-57.5"/>
 </g>
-<!-- util_exit -->
+<!-- whm_util_spill_pl -->
 <g id="interface~~rmvs_util_spill_pl~~CallsGraph_node5" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="333.5,-24 279.5,-24 279.5,0 333.5,0 333.5,-24"/>
-<text text-anchor="middle" x="306.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<title>whm_util_spill_pl</title>
+<polygon fill="#777777" stroke="#777777" points="353,-24 260,-24 260,0 353,0 353,-24"/>
+<text text-anchor="middle" x="306.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_spill_pl</text>
 </g>
-<!-- proc~rmvs_util_spill_pl&#45;&gt;util_exit -->
-<g id="interface~~rmvs_util_spill_pl~~CallsGraph_edge3" class="edge">
-<title>proc~rmvs_util_spill_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M214.54,-41.96C231.88,-36.25 252.54,-29.45 269.78,-23.77"/>
-<polygon fill="#000000" stroke="#000000" points="271.08,-27.02 279.49,-20.57 268.89,-20.37 271.08,-27.02"/>
+<!-- proc~rmvs_util_spill_pl&#45;&gt;whm_util_spill_pl -->
+<g id="interface~~rmvs_util_spill_pl~~CallsGraph_edge4" class="edge">
+<title>proc~rmvs_util_spill_pl&#45;&gt;whm_util_spill_pl</title>
+<path fill="none" stroke="#000000" d="M214.54,-41.96C228.41,-37.4 244.39,-32.13 259.06,-27.3"/>
+<polygon fill="#000000" stroke="#000000" points="260.56,-30.49 268.96,-24.04 258.37,-23.84 260.56,-30.49"/>
 </g>
 </g>
 </svg>
diff --git a/docs/interface/rmvs_util_spill_tp.html b/docs/interface/rmvs_util_spill_tp.html
index d8dedeeb8..f9d64ed0b 100644
--- a/docs/interface/rmvs_util_spill_tp.html
+++ b/docs/interface/rmvs_util_spill_tp.html
@@ -246,39 +246,39 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M94.21,-54C102.46,-54 111.13,-54 119.63,-54"/>
 <polygon fill="#000000" stroke="#000000" points="119.86,-57.5 129.86,-54 119.86,-50.5 119.86,-57.5"/>
 </g>
-<!-- util_spill -->
-<g id="interface~~rmvs_util_spill_tp~~CallsGraph_node3" class="node">
-<title>util_spill</title>
-<polygon fill="#777777" stroke="#777777" points="319.5,-108 265.5,-108 265.5,-84 319.5,-84 319.5,-108"/>
-<text text-anchor="middle" x="292.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
-</g>
-<!-- proc~rmvs_util_spill_tp&#45;&gt;util_spill -->
-<g id="interface~~rmvs_util_spill_tp~~CallsGraph_edge4" class="edge">
-<title>proc~rmvs_util_spill_tp&#45;&gt;util_spill</title>
-<path fill="none" stroke="#000000" d="M210.52,-66.04C224.68,-71.27 241.32,-77.43 255.81,-82.79"/>
-<polygon fill="#000000" stroke="#000000" points="254.86,-86.17 265.45,-86.36 257.29,-79.61 254.86,-86.17"/>
-</g>
 <!-- util_spill_tp -->
-<g id="interface~~rmvs_util_spill_tp~~CallsGraph_node4" class="node">
+<g id="interface~~rmvs_util_spill_tp~~CallsGraph_node3" class="node">
 <title>util_spill_tp</title>
-<polygon fill="#777777" stroke="#777777" points="325,-66 260,-66 260,-42 325,-42 325,-66"/>
-<text text-anchor="middle" x="292.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
+<polygon fill="#777777" stroke="#777777" points="325,-108 260,-108 260,-84 325,-84 325,-108"/>
+<text text-anchor="middle" x="292.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
 </g>
 <!-- proc~rmvs_util_spill_tp&#45;&gt;util_spill_tp -->
 <g id="interface~~rmvs_util_spill_tp~~CallsGraph_edge2" class="edge">
 <title>proc~rmvs_util_spill_tp&#45;&gt;util_spill_tp</title>
-<path fill="none" stroke="#000000" d="M224.16,-54C232.62,-54 241.41,-54 249.73,-54"/>
-<polygon fill="#000000" stroke="#000000" points="249.96,-57.5 259.96,-54 249.96,-50.5 249.96,-57.5"/>
+<path fill="none" stroke="#000000" d="M210.52,-66.04C222.84,-70.59 237.04,-75.85 250.07,-80.67"/>
+<polygon fill="#000000" stroke="#000000" points="249.16,-84.06 259.75,-84.25 251.59,-77.5 249.16,-84.06"/>
 </g>
 <!-- util_exit -->
-<g id="interface~~rmvs_util_spill_tp~~CallsGraph_node5" class="node">
+<g id="interface~~rmvs_util_spill_tp~~CallsGraph_node4" class="node">
 <title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="319.5,-24 265.5,-24 265.5,0 319.5,0 319.5,-24"/>
-<text text-anchor="middle" x="292.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#777777" stroke="#777777" points="319.5,-66 265.5,-66 265.5,-42 319.5,-42 319.5,-66"/>
+<text text-anchor="middle" x="292.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
 <!-- proc~rmvs_util_spill_tp&#45;&gt;util_exit -->
 <g id="interface~~rmvs_util_spill_tp~~CallsGraph_edge3" class="edge">
 <title>proc~rmvs_util_spill_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M224.16,-54C234.44,-54 245.2,-54 255.02,-54"/>
+<polygon fill="#000000" stroke="#000000" points="255.25,-57.5 265.25,-54 255.25,-50.5 255.25,-57.5"/>
+</g>
+<!-- util_spill -->
+<g id="interface~~rmvs_util_spill_tp~~CallsGraph_node5" class="node">
+<title>util_spill</title>
+<polygon fill="#777777" stroke="#777777" points="319.5,-24 265.5,-24 265.5,0 319.5,0 319.5,-24"/>
+<text text-anchor="middle" x="292.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+</g>
+<!-- proc~rmvs_util_spill_tp&#45;&gt;util_spill -->
+<g id="interface~~rmvs_util_spill_tp~~CallsGraph_edge4" class="edge">
+<title>proc~rmvs_util_spill_tp&#45;&gt;util_spill</title>
 <path fill="none" stroke="#000000" d="M210.52,-41.96C224.68,-36.73 241.32,-30.57 255.81,-25.21"/>
 <polygon fill="#000000" stroke="#000000" points="257.29,-28.39 265.45,-21.64 254.86,-21.83 257.29,-28.39"/>
 </g>
diff --git a/docs/interface/setup_body.html b/docs/interface/setup_body.html
index 717da2c9b..928230a12 100644
--- a/docs/interface/setup_body.html
+++ b/docs/interface/setup_body.html
@@ -136,7 +136,7 @@ <h1>setup_body
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -363,25 +363,10 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" d="M144.21,-17.79C152.19,-19.56 161.18,-21.55 169.97,-23.49"/>
 <polygon fill="#000000" stroke="#000000" points="169.22,-26.91 179.74,-25.65 170.73,-20.07 169.22,-26.91"/>
 </g>
-<!-- interface~setup_pl -->
-<g id="interface~~setup_body~~CalledByGraph_node4" class="node">
-<title>interface~setup_pl</title>
-<g id="a_interface~~setup_body~~CalledByGraph_node4"><a xlink:href=".././interface/setup_pl.html" xlink:title="setup_pl">
-<polygon fill="#a7506f" stroke="#a7506f" 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">setup_pl</text>
-</a>
-</g>
-</g>
-<!-- interface~setup_pl&#45;&gt;proc~setup_pl -->
-<g id="interface~~setup_body~~CalledByGraph_edge4" class="edge">
-<title>interface~setup_pl&#45;&gt;proc~setup_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M54.4,-12C62.39,-12 71.31,-12 79.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="79.92,-15.5 89.92,-12 79.92,-8.5 79.92,-15.5"/>
-</g>
 <!-- interface~setup_tp -->
-<g id="interface~~setup_body~~CalledByGraph_node5" class="node">
+<g id="interface~~setup_body~~CalledByGraph_node4" class="node">
 <title>interface~setup_tp</title>
-<g id="a_interface~~setup_body~~CalledByGraph_node5"><a xlink:href=".././interface/setup_tp.html" xlink:title="setup_tp">
+<g id="a_interface~~setup_body~~CalledByGraph_node4"><a xlink:href=".././interface/setup_tp.html" xlink:title="setup_tp">
 <polygon fill="#a7506f" stroke="#a7506f" points="54,-66 0,-66 0,-42 54,-42 54,-66"/>
 <text text-anchor="middle" x="27" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_tp</text>
 </a>
@@ -393,6 +378,21 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M54.4,-54C62.39,-54 71.31,-54 79.82,-54"/>
 <polygon fill="#000000" stroke="#000000" points="79.92,-57.5 89.92,-54 79.92,-50.5 79.92,-57.5"/>
 </g>
+<!-- interface~setup_pl -->
+<g id="interface~~setup_body~~CalledByGraph_node5" class="node">
+<title>interface~setup_pl</title>
+<g id="a_interface~~setup_body~~CalledByGraph_node5"><a xlink:href=".././interface/setup_pl.html" xlink:title="setup_pl">
+<polygon fill="#a7506f" stroke="#a7506f" 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">setup_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~setup_pl&#45;&gt;proc~setup_pl -->
+<g id="interface~~setup_body~~CalledByGraph_edge4" class="edge">
+<title>interface~setup_pl&#45;&gt;proc~setup_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M54.4,-12C62.39,-12 71.31,-12 79.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="79.92,-15.5 89.92,-12 79.92,-8.5 79.92,-15.5"/>
+</g>
 </g>
 </svg>
 </div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
@@ -492,7 +492,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~154"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~150"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/setup_construct_system.html b/docs/interface/setup_construct_system.html
index a084f6358..75f2f7e16 100644
--- a/docs/interface/setup_construct_system.html
+++ b/docs/interface/setup_construct_system.html
@@ -136,7 +136,7 @@ <h1>setup_construct_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~59"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~63"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout),</td>
   <td></td>
   
diff --git a/docs/interface/setup_encounter.html b/docs/interface/setup_encounter.html
index 7989541e1..93913d1cd 100644
--- a/docs/interface/setup_encounter.html
+++ b/docs/interface/setup_encounter.html
@@ -136,7 +136,7 @@ <h1>setup_encounter
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~155"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" id="variable-self~151"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/setup_initialize_system.html b/docs/interface/setup_initialize_system.html
index eb11458be..a5d2f517c 100644
--- a/docs/interface/setup_initialize_system.html
+++ b/docs/interface/setup_initialize_system.html
@@ -136,7 +136,7 @@ <h1>setup_initialize_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -220,110 +220,35 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~setup_initialize_system~~CallsGraph Pages: 1 -->
-<svg id="interfacesetup_initialize_systemCallsGraph" width="641pt" height="73pt"
- viewBox="0.00 0.00 641.00 73.20" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~setup_initialize_system~~CallsGraph" class="graph" transform="scale(0.99 0.99) rotate(0) translate(4 70)">
+<svg id="interfacesetup_initialize_systemCallsGraph" width="288pt" height="32pt"
+ viewBox="0.00 0.00 288.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~setup_initialize_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>interface~~setup_initialize_system~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 644,-70 644,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 284,-28 284,4 -4,4"/>
 <!-- interface~setup_initialize_system -->
 <g id="interface~~setup_initialize_system~~CallsGraph_node1" class="node">
 <title>interface~setup_initialize_system</title>
-<polygon fill="none" stroke="black" points="122,-45 0,-45 0,-21 122,-21 122,-45"/>
-<text text-anchor="middle" x="61" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">setup_initialize_system</text>
+<polygon fill="none" stroke="black" points="122,-24 0,-24 0,0 122,0 122,-24"/>
+<text text-anchor="middle" x="61" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">setup_initialize_system</text>
 </g>
 <!-- proc~setup_initialize_system -->
 <g id="interface~~setup_initialize_system~~CallsGraph_node2" class="node">
 <title>proc~setup_initialize_system</title>
 <g id="a_interface~~setup_initialize_system~~CallsGraph_node2"><a xlink:href=".././proc/setup_initialize_system.html" xlink:title="setup_initialize_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="280,-45 158,-45 158,-21 280,-21 280,-45"/>
-<text text-anchor="middle" x="219" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="280,-24 158,-24 158,0 280,0 280,-24"/>
+<text text-anchor="middle" x="219" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
 </a>
 </g>
 </g>
 <!-- interface~setup_initialize_system&#45;&gt;proc~setup_initialize_system -->
 <g id="interface~~setup_initialize_system~~CallsGraph_edge1" class="edge">
 <title>interface~setup_initialize_system&#45;&gt;proc~setup_initialize_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.31,-33C130.6,-33 139.17,-33 147.63,-33"/>
-<polygon fill="#000000" stroke="#000000" points="147.85,-36.5 157.85,-33 147.85,-29.5 147.85,-36.5"/>
-</g>
-<!-- interface~util_valid -->
-<g id="interface~~setup_initialize_system~~CallsGraph_node3" class="node">
-<title>interface~util_valid</title>
-<g id="a_interface~~setup_initialize_system~~CallsGraph_node3"><a xlink:href=".././interface/util_valid.html" xlink:title="util_valid">
-<polygon fill="#a7506f" stroke="#a7506f" points="370,-45 316,-45 316,-21 370,-21 370,-45"/>
-<text text-anchor="middle" x="343" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid</text>
-</a>
-</g>
-</g>
-<!-- proc~setup_initialize_system&#45;&gt;interface~util_valid -->
-<g id="interface~~setup_initialize_system~~CallsGraph_edge2" class="edge">
-<title>proc~setup_initialize_system&#45;&gt;interface~util_valid</title>
-<path fill="none" stroke="#000000" d="M280.29,-33C288.97,-33 297.67,-33 305.69,-33"/>
-<polygon fill="#000000" stroke="#000000" points="305.77,-36.5 315.77,-33 305.77,-29.5 305.77,-36.5"/>
-</g>
-<!-- proc~util_valid -->
-<g id="interface~~setup_initialize_system~~CallsGraph_node4" class="node">
-<title>proc~util_valid</title>
-<g id="a_interface~~setup_initialize_system~~CallsGraph_node4"><a xlink:href=".././proc/util_valid.html" xlink:title="util_valid">
-<polygon fill="#d9534f" stroke="#d9534f" points="460,-45 406,-45 406,-21 460,-21 460,-45"/>
-<text text-anchor="middle" x="433" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid</text>
-</a>
-</g>
-</g>
-<!-- interface~util_valid&#45;&gt;proc~util_valid -->
-<g id="interface~~setup_initialize_system~~CallsGraph_edge3" class="edge">
-<title>interface~util_valid&#45;&gt;proc~util_valid</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.4,-33C378.39,-33 387.31,-33 395.82,-33"/>
-<polygon fill="#000000" stroke="#000000" points="395.92,-36.5 405.92,-33 395.92,-29.5 395.92,-36.5"/>
-</g>
-<!-- interface~util_exit -->
-<g id="interface~~setup_initialize_system~~CallsGraph_node5" class="node">
-<title>interface~util_exit</title>
-<g id="a_interface~~setup_initialize_system~~CallsGraph_node5"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" points="550,-66 496,-66 496,-42 550,-42 550,-66"/>
-<text text-anchor="middle" x="523" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
-</a>
-</g>
-</g>
-<!-- proc~util_valid&#45;&gt;interface~util_exit -->
-<g id="interface~~setup_initialize_system~~CallsGraph_edge4" class="edge">
-<title>proc~util_valid&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M460.4,-39.3C468.48,-41.23 477.51,-43.38 486.1,-45.43"/>
-<polygon fill="#000000" stroke="#000000" points="485.38,-48.86 495.92,-47.78 487,-42.05 485.38,-48.86"/>
-</g>
-<!-- interface~util_sort -->
-<g id="interface~~setup_initialize_system~~CallsGraph_node6" class="node">
-<title>interface~util_sort</title>
-<g id="a_interface~~setup_initialize_system~~CallsGraph_node6"><a xlink:href=".././interface/util_sort.html" xlink:title="util_sort">
-<polygon fill="#a7506f" stroke="#a7506f" points="550,-24 496,-24 496,0 550,0 550,-24"/>
-<text text-anchor="middle" x="523" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort</text>
-</a>
-</g>
-</g>
-<!-- proc~util_valid&#45;&gt;interface~util_sort -->
-<g id="interface~~setup_initialize_system~~CallsGraph_edge5" class="edge">
-<title>proc~util_valid&#45;&gt;interface~util_sort</title>
-<path fill="none" stroke="#000000" d="M460.4,-26.7C468.48,-24.77 477.51,-22.62 486.1,-20.57"/>
-<polygon fill="#000000" stroke="#000000" points="487,-23.95 495.92,-18.22 485.38,-17.14 487,-23.95"/>
-</g>
-<!-- proc~util_exit -->
-<g id="interface~~setup_initialize_system~~CallsGraph_node7" class="node">
-<title>proc~util_exit</title>
-<g id="a_interface~~setup_initialize_system~~CallsGraph_node7"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" points="640,-66 586,-66 586,-42 640,-42 640,-66"/>
-<text text-anchor="middle" x="613" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
-</a>
-</g>
-</g>
-<!-- interface~util_exit&#45;&gt;proc~util_exit -->
-<g id="interface~~setup_initialize_system~~CallsGraph_edge6" class="edge">
-<title>interface~util_exit&#45;&gt;proc~util_exit</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M550.4,-54C558.39,-54 567.31,-54 575.82,-54"/>
-<polygon fill="#000000" stroke="#000000" points="575.92,-57.5 585.92,-54 575.92,-50.5 575.92,-57.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.31,-12C130.6,-12 139.17,-12 147.63,-12"/>
+<polygon fill="#000000" stroke="#000000" points="147.85,-15.5 157.85,-12 147.85,-8.5 147.85,-15.5"/>
 </g>
 </g>
 </svg>
-</div><script>var paninterfacesetup_initialize_systemCallsGraph = svgPanZoom('#interfacesetup_initialize_systemCallsGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
     <p>Nodes of different colours represent the following: </p>
     <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
@@ -421,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~156"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~152"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/setup_pl.html b/docs/interface/setup_pl.html
index 1ff129b61..831c49160 100644
--- a/docs/interface/setup_pl.html
+++ b/docs/interface/setup_pl.html
@@ -136,7 +136,7 @@ <h1>setup_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~157"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~153"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/setup_tp.html b/docs/interface/setup_tp.html
index 768897f3b..f2b3a2312 100644
--- a/docs/interface/setup_tp.html
+++ b/docs/interface/setup_tp.html
@@ -136,7 +136,7 @@ <h1>setup_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~158"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~154"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_collision_check_pltpenc.html b/docs/interface/symba_collision_check_pltpenc.html
index 4ed7023d2..b29e51baa 100644
--- a/docs/interface/symba_collision_check_pltpenc.html
+++ b/docs/interface/symba_collision_check_pltpenc.html
@@ -136,7 +136,7 @@ <h1>symba_collision_check_pltpenc
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -258,44 +258,44 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M333.73,-66.04C365.01,-73.04 403.61,-81.69 431.29,-87.89"/>
 <polygon fill="#000000" stroke="#000000" points="430.81,-91.37 441.33,-90.14 432.34,-84.54 430.81,-91.37"/>
 </g>
-<!-- proc~symba_collision_check_one -->
+<!-- ind1 -->
 <g id="interface~~symba_collision_check_pltpenc~~CallsGraph_node4" class="node">
+<title>ind1</title>
+<polygon fill="#777777" stroke="#777777" points="495.5,-66 441.5,-66 441.5,-42 495.5,-42 495.5,-66"/>
+<text text-anchor="middle" x="468.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind1</text>
+</g>
+<!-- proc~symba_collision_check_pltpenc&#45;&gt;ind1 -->
+<g id="interface~~symba_collision_check_pltpenc~~CallsGraph_edge3" class="edge">
+<title>proc~symba_collision_check_pltpenc&#45;&gt;ind1</title>
+<path fill="none" stroke="#000000" d="M360.06,-54C384.81,-54 410.86,-54 431.11,-54"/>
+<polygon fill="#000000" stroke="#000000" points="431.14,-57.5 441.14,-54 431.14,-50.5 431.14,-57.5"/>
+</g>
+<!-- proc~symba_collision_check_one -->
+<g id="interface~~symba_collision_check_pltpenc~~CallsGraph_node5" class="node">
 <title>proc~symba_collision_check_one</title>
-<g id="a_interface~~symba_collision_check_pltpenc~~CallsGraph_node4"><a xlink:href=".././proc/symba_collision_check_one.html" xlink:title="symba_collision_check_one">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="541,-66 396,-66 396,-42 541,-42 541,-66"/>
-<text text-anchor="middle" x="468.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_one</text>
+<g id="a_interface~~symba_collision_check_pltpenc~~CallsGraph_node5"><a xlink:href=".././proc/symba_collision_check_one.html" xlink:title="symba_collision_check_one">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="541,-24 396,-24 396,0 541,0 541,-24"/>
+<text text-anchor="middle" x="468.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_one</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_collision_check_pltpenc&#45;&gt;proc~symba_collision_check_one -->
 <g id="interface~~symba_collision_check_pltpenc~~CallsGraph_edge4" class="edge">
 <title>proc~symba_collision_check_pltpenc&#45;&gt;proc~symba_collision_check_one</title>
-<path fill="none" stroke="#000000" d="M360.06,-54C368.48,-54 377.05,-54 385.5,-54"/>
-<polygon fill="#000000" stroke="#000000" points="385.71,-57.5 395.71,-54 385.71,-50.5 385.71,-57.5"/>
-</g>
-<!-- ind1 -->
-<g id="interface~~symba_collision_check_pltpenc~~CallsGraph_node5" class="node">
-<title>ind1</title>
-<polygon fill="#777777" stroke="#777777" points="495.5,-24 441.5,-24 441.5,0 495.5,0 495.5,-24"/>
-<text text-anchor="middle" x="468.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind1</text>
-</g>
-<!-- proc~symba_collision_check_pltpenc&#45;&gt;ind1 -->
-<g id="interface~~symba_collision_check_pltpenc~~CallsGraph_edge3" class="edge">
-<title>proc~symba_collision_check_pltpenc&#45;&gt;ind1</title>
-<path fill="none" stroke="#000000" d="M333.73,-41.96C365.01,-34.96 403.61,-26.31 431.29,-20.11"/>
-<polygon fill="#000000" stroke="#000000" points="432.34,-23.46 441.33,-17.86 430.81,-16.63 432.34,-23.46"/>
+<path fill="none" stroke="#000000" d="M333.73,-41.96C355.6,-37.07 381.05,-31.37 403.84,-26.26"/>
+<polygon fill="#000000" stroke="#000000" points="404.77,-29.64 413.76,-24.04 403.24,-22.81 404.77,-29.64"/>
 </g>
 <!-- orbel_xv2aeq -->
 <g id="interface~~symba_collision_check_pltpenc~~CallsGraph_node6" class="node">
 <title>orbel_xv2aeq</title>
-<polygon fill="#777777" stroke="#777777" points="654,-66 577,-66 577,-42 654,-42 654,-66"/>
-<text text-anchor="middle" x="615.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aeq</text>
+<polygon fill="#777777" stroke="#777777" points="654,-24 577,-24 577,0 654,0 654,-24"/>
+<text text-anchor="middle" x="615.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aeq</text>
 </g>
 <!-- proc~symba_collision_check_one&#45;&gt;orbel_xv2aeq -->
 <g id="interface~~symba_collision_check_pltpenc~~CallsGraph_edge5" class="edge">
 <title>proc~symba_collision_check_one&#45;&gt;orbel_xv2aeq</title>
-<path fill="none" stroke="#000000" d="M541.15,-54C549.78,-54 558.42,-54 566.6,-54"/>
-<polygon fill="#000000" stroke="#000000" points="566.66,-57.5 576.66,-54 566.66,-50.5 566.66,-57.5"/>
+<path fill="none" stroke="#000000" d="M541.15,-12C549.78,-12 558.42,-12 566.6,-12"/>
+<polygon fill="#000000" stroke="#000000" points="566.66,-15.5 576.66,-12 566.66,-8.5 566.66,-15.5"/>
 </g>
 </g>
 </svg>
@@ -412,7 +412,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~39"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~40"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -427,7 +427,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~56"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~57"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_collision_encounter_scrub.html b/docs/interface/symba_collision_encounter_scrub.html
index 4f673c563..26679319c 100644
--- a/docs/interface/symba_collision_encounter_scrub.html
+++ b/docs/interface/symba_collision_encounter_scrub.html
@@ -136,7 +136,7 @@ <h1>symba_collision_encounter_scrub
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -246,27 +246,27 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.1,-33C182.62,-33 191.3,-33 199.91,-33"/>
 <polygon fill="#000000" stroke="#000000" points="199.96,-36.5 209.96,-33 199.96,-29.5 199.96,-36.5"/>
 </g>
-<!-- idx1 -->
+<!-- idx2 -->
 <g id="interface~~symba_collision_encounter_scrub~~CallsGraph_node3" class="node">
-<title>idx1</title>
+<title>idx2</title>
 <polygon fill="#777777" stroke="#777777" points="474,-66 420,-66 420,-42 474,-42 474,-66"/>
-<text text-anchor="middle" x="447" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
+<text text-anchor="middle" x="447" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx2</text>
 </g>
-<!-- proc~symba_collision_encounter_scrub&#45;&gt;idx1 -->
+<!-- proc~symba_collision_encounter_scrub&#45;&gt;idx2 -->
 <g id="interface~~symba_collision_encounter_scrub~~CallsGraph_edge2" class="edge">
-<title>proc~symba_collision_encounter_scrub&#45;&gt;idx1</title>
+<title>proc~symba_collision_encounter_scrub&#45;&gt;idx2</title>
 <path fill="none" stroke="#000000" d="M382.81,-45.03C392.25,-46.37 401.46,-47.68 409.79,-48.86"/>
 <polygon fill="#000000" stroke="#000000" points="409.44,-52.35 419.83,-50.29 410.42,-45.42 409.44,-52.35"/>
 </g>
-<!-- idx2 -->
+<!-- idx1 -->
 <g id="interface~~symba_collision_encounter_scrub~~CallsGraph_node4" class="node">
-<title>idx2</title>
+<title>idx1</title>
 <polygon fill="#777777" stroke="#777777" points="474,-24 420,-24 420,0 474,0 474,-24"/>
-<text text-anchor="middle" x="447" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx2</text>
+<text text-anchor="middle" x="447" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
 </g>
-<!-- proc~symba_collision_encounter_scrub&#45;&gt;idx2 -->
+<!-- proc~symba_collision_encounter_scrub&#45;&gt;idx1 -->
 <g id="interface~~symba_collision_encounter_scrub~~CallsGraph_edge3" class="edge">
-<title>proc~symba_collision_encounter_scrub&#45;&gt;idx2</title>
+<title>proc~symba_collision_encounter_scrub&#45;&gt;idx1</title>
 <path fill="none" stroke="#000000" d="M382.81,-20.97C392.25,-19.63 401.46,-18.32 409.79,-17.14"/>
 <polygon fill="#000000" stroke="#000000" points="410.42,-20.58 419.83,-15.71 409.44,-13.65 410.42,-20.58"/>
 </g>
@@ -385,7 +385,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~40"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~41"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -400,7 +400,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~57"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~58"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_collision_make_family_pl.html b/docs/interface/symba_collision_make_family_pl.html
index e059dfab8..3db7e454d 100644
--- a/docs/interface/symba_collision_make_family_pl.html
+++ b/docs/interface/symba_collision_make_family_pl.html
@@ -136,7 +136,7 @@ <h1>symba_collision_make_family_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
diff --git a/docs/interface/symba_collision_resolve_fragmentations.html b/docs/interface/symba_collision_resolve_fragmentations.html
index dfeb1b177..4c73716e2 100644
--- a/docs/interface/symba_collision_resolve_fragmentations.html
+++ b/docs/interface/symba_collision_resolve_fragmentations.html
@@ -136,7 +136,7 @@ <h1>symba_collision_resolve_fragmentations
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -220,11 +220,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~symba_collision_resolve_fragmentations~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_collision_resolve_fragmentationsCallsGraph" width="641pt" height="183pt"
- viewBox="0.00 0.00 641.00 182.98" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph" class="graph" transform="scale(0.56 0.56) rotate(0) translate(4 322)">
+<svg id="interfacesymba_collision_resolve_fragmentationsCallsGraph" width="641pt" height="173pt"
+ viewBox="0.00 0.00 641.00 172.99" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph" class="graph" transform="scale(0.53 0.53) rotate(0) translate(4 322)">
 <title>interface~~symba_collision_resolve_fragmentations~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-322 1138,-322 1138,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-322 1204,-322 1204,4 -4,4"/>
 <!-- interface~symba_collision_resolve_fragmentations -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node1" class="node">
 <title>interface~symba_collision_resolve_fragmentations</title>
@@ -246,224 +246,257 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M205.2,-159C213.7,-159 222.31,-159 230.87,-159"/>
 <polygon fill="#000000" stroke="#000000" points="230.89,-162.5 240.89,-159 230.89,-155.5 230.89,-162.5"/>
 </g>
-<!-- interface~symba_fragmentation_casesupercatastrophic -->
+<!-- idx2 -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node3" class="node">
+<title>idx2</title>
+<polygon fill="#777777" stroke="#777777" points="623.5,-318 569.5,-318 569.5,-294 623.5,-294 623.5,-318"/>
+<text text-anchor="middle" x="596.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx2</text>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx2 -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge2" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx2</title>
+<path fill="none" stroke="#000000" d="M353.64,-171.07C373.75,-196.67 424.62,-256.4 482,-285 506.11,-297.02 536.19,-302.2 559.33,-304.42"/>
+<polygon fill="#000000" stroke="#000000" points="559.17,-307.92 569.42,-305.24 559.74,-300.94 559.17,-307.92"/>
+</g>
+<!-- interface~symba_fragmentation_casesupercatastrophic -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node4" class="node">
 <title>interface~symba_fragmentation_casesupercatastrophic</title>
-<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node3"><a xlink:href=".././interface/symba_fragmentation_casesupercatastrophic.html" xlink:title="symba_fragmentation_casesupercatastrophic">
-<polygon fill="#a7506f" stroke="#a7506f" points="711,-318 482,-318 482,-294 711,-294 711,-318"/>
-<text text-anchor="middle" x="596.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casesupercatastrophic</text>
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node4"><a xlink:href=".././interface/symba_fragmentation_casesupercatastrophic.html" xlink:title="symba_fragmentation_casesupercatastrophic">
+<polygon fill="#a7506f" stroke="#a7506f" points="711,-192 482,-192 482,-168 711,-168 711,-192"/>
+<text text-anchor="middle" x="596.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casesupercatastrophic</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casesupercatastrophic -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge2" class="edge">
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge4" class="edge">
 <title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casesupercatastrophic</title>
-<path fill="none" stroke="#000000" d="M353.64,-171.07C373.75,-196.67 424.62,-256.4 482,-285 486.1,-287.04 490.36,-288.89 494.74,-290.55"/>
-<polygon fill="#000000" stroke="#000000" points="493.88,-293.96 504.47,-293.92 496.17,-287.34 493.88,-293.96"/>
+<path fill="none" stroke="#000000" d="M446.23,-167.51C454.63,-168.21 463.18,-168.93 471.71,-169.64"/>
+<polygon fill="#000000" stroke="#000000" points="471.46,-173.13 481.72,-170.48 472.05,-166.16 471.46,-173.13"/>
 </g>
-<!-- interface~symba_fragmentation_casehitandrun -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node4" class="node">
-<title>interface~symba_fragmentation_casehitandrun</title>
-<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node4"><a xlink:href=".././interface/symba_fragmentation_casehitandrun.html" xlink:title="symba_fragmentation_casehitandrun">
-<polygon fill="#a7506f" stroke="#a7506f" points="691.5,-276 501.5,-276 501.5,-252 691.5,-252 691.5,-276"/>
-<text text-anchor="middle" x="596.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casehitandrun</text>
+<!-- proc~symba_collision_consolidate_familes -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node5" class="node">
+<title>proc~symba_collision_consolidate_familes</title>
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node5"><a xlink:href=".././proc/symba_collision_consolidate_familes.html" xlink:title="symba_collision_consolidate_familes">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="690,-108 503,-108 503,-84 690,-84 690,-108"/>
+<text text-anchor="middle" x="596.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_consolidate_familes</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun -->
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_familes -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge3" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun</title>
-<path fill="none" stroke="#000000" d="M360,-171.13C384.47,-189.64 434.19,-224.69 482,-243 488.22,-245.38 494.75,-247.5 501.38,-249.38"/>
-<polygon fill="#000000" stroke="#000000" points="500.61,-252.8 511.17,-251.98 502.4,-246.03 500.61,-252.8"/>
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_familes</title>
+<path fill="none" stroke="#000000" d="M380.09,-146.91C407.67,-137.84 446.96,-125.56 482,-117 492.11,-114.53 502.78,-112.2 513.38,-110.05"/>
+<polygon fill="#000000" stroke="#000000" points="514.36,-113.42 523.49,-108.05 513,-106.56 514.36,-113.42"/>
 </g>
-<!-- interface~symba_fragmentation_casedisruption -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node5" class="node">
-<title>interface~symba_fragmentation_casedisruption</title>
-<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node5"><a xlink:href=".././interface/symba_fragmentation_casedisruption.html" xlink:title="symba_fragmentation_casedisruption">
-<polygon fill="#a7506f" stroke="#a7506f" points="692,-234 501,-234 501,-210 692,-210 692,-234"/>
-<text text-anchor="middle" x="596.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casedisruption</text>
+<!-- interface~symba_fragmentation_casemerge -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node6" class="node">
+<title>interface~symba_fragmentation_casemerge</title>
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node6"><a xlink:href=".././interface/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
+<polygon fill="#a7506f" stroke="#a7506f" points="684,-150 509,-150 509,-126 684,-126 684,-150"/>
+<text text-anchor="middle" x="596.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge4" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption</title>
-<path fill="none" stroke="#000000" d="M380.09,-171.09C407.67,-180.16 446.96,-192.44 482,-201 492.11,-203.47 502.78,-205.8 513.38,-207.95"/>
-<polygon fill="#000000" stroke="#000000" points="513,-211.44 523.49,-209.95 514.36,-204.58 513,-211.44"/>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge5" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge</title>
+<path fill="none" stroke="#000000" d="M446.23,-150.49C463.61,-149.03 481.62,-147.53 498.86,-146.09"/>
+<polygon fill="#000000" stroke="#000000" points="499.24,-149.57 508.92,-145.24 498.66,-142.59 499.24,-149.57"/>
 </g>
 <!-- idx1 -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node6" class="node">
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node7" class="node">
 <title>idx1</title>
-<polygon fill="#777777" stroke="#777777" points="623.5,-192 569.5,-192 569.5,-168 623.5,-168 623.5,-192"/>
-<text text-anchor="middle" x="596.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
+<polygon fill="#777777" stroke="#777777" points="623.5,-66 569.5,-66 569.5,-42 623.5,-42 623.5,-66"/>
+<text text-anchor="middle" x="596.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
 </g>
 <!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx1 -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge5" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx1</title>
-<path fill="none" stroke="#000000" d="M446.23,-167.51C486.17,-170.85 529.44,-174.47 559.06,-176.95"/>
-<polygon fill="#000000" stroke="#000000" points="559.07,-180.46 569.32,-177.81 559.65,-173.49 559.07,-180.46"/>
-</g>
-<!-- util_exit -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node7" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="623.5,-150 569.5,-150 569.5,-126 623.5,-126 623.5,-150"/>
-<text text-anchor="middle" x="596.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
-</g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;util_exit -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge6" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M446.23,-150.49C486.17,-147.15 529.44,-143.53 559.06,-141.05"/>
-<polygon fill="#000000" stroke="#000000" points="559.65,-144.51 569.32,-140.19 559.07,-137.54 559.65,-144.51"/>
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx1</title>
+<path fill="none" stroke="#000000" d="M360,-146.87C384.47,-128.36 434.19,-93.31 482,-75 506.72,-65.54 536.14,-60.25 558.84,-57.34"/>
+<polygon fill="#000000" stroke="#000000" points="559.55,-60.79 569.07,-56.14 558.73,-53.83 559.55,-60.79"/>
 </g>
-<!-- idx2 -->
+<!-- interface~symba_fragmentation_casehitandrun -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node8" class="node">
-<title>idx2</title>
-<polygon fill="#777777" stroke="#777777" points="623.5,-108 569.5,-108 569.5,-84 623.5,-84 623.5,-108"/>
-<text text-anchor="middle" x="596.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx2</text>
+<title>interface~symba_fragmentation_casehitandrun</title>
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node8"><a xlink:href=".././interface/symba_fragmentation_casehitandrun.html" xlink:title="symba_fragmentation_casehitandrun">
+<polygon fill="#a7506f" stroke="#a7506f" points="691.5,-276 501.5,-276 501.5,-252 691.5,-252 691.5,-276"/>
+<text text-anchor="middle" x="596.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casehitandrun</text>
+</a>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx2 -->
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge7" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx2</title>
-<path fill="none" stroke="#000000" d="M380.09,-146.91C407.67,-137.84 446.96,-125.56 482,-117 507.54,-110.76 536.72,-105.4 559.1,-101.65"/>
-<polygon fill="#000000" stroke="#000000" points="559.87,-105.07 569.17,-100 558.74,-98.17 559.87,-105.07"/>
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun</title>
+<path fill="none" stroke="#000000" d="M360,-171.13C384.47,-189.64 434.19,-224.69 482,-243 488.22,-245.38 494.75,-247.5 501.38,-249.38"/>
+<polygon fill="#000000" stroke="#000000" points="500.61,-252.8 511.17,-251.98 502.4,-246.03 500.61,-252.8"/>
 </g>
-<!-- proc~symba_collision_consolidate_familes -->
+<!-- util_exit -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node9" class="node">
-<title>proc~symba_collision_consolidate_familes</title>
-<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node9"><a xlink:href=".././proc/symba_collision_consolidate_familes.html" xlink:title="symba_collision_consolidate_familes">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="690,-66 503,-66 503,-42 690,-42 690,-66"/>
-<text text-anchor="middle" x="596.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_consolidate_familes</text>
-</a>
-</g>
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="623.5,-24 569.5,-24 569.5,0 623.5,0 623.5,-24"/>
+<text text-anchor="middle" x="596.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_familes -->
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;util_exit -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge8" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_familes</title>
-<path fill="none" stroke="#000000" d="M360,-146.87C384.47,-128.36 434.19,-93.31 482,-75 488.22,-72.62 494.75,-70.5 501.38,-68.62"/>
-<polygon fill="#000000" stroke="#000000" points="502.4,-71.97 511.17,-66.02 500.61,-65.2 502.4,-71.97"/>
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M353.64,-146.93C373.75,-121.33 424.62,-61.6 482,-33 506.11,-20.98 536.19,-15.8 559.33,-13.58"/>
+<polygon fill="#000000" stroke="#000000" points="559.74,-17.06 569.42,-12.76 559.17,-10.08 559.74,-17.06"/>
 </g>
-<!-- interface~symba_fragmentation_casemerge -->
+<!-- interface~symba_fragmentation_casedisruption -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node10" class="node">
-<title>interface~symba_fragmentation_casemerge</title>
-<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node10"><a xlink:href=".././interface/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
-<polygon fill="#a7506f" stroke="#a7506f" points="684,-24 509,-24 509,0 684,0 684,-24"/>
-<text text-anchor="middle" x="596.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
+<title>interface~symba_fragmentation_casedisruption</title>
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node10"><a xlink:href=".././interface/symba_fragmentation_casedisruption.html" xlink:title="symba_fragmentation_casedisruption">
+<polygon fill="#a7506f" stroke="#a7506f" points="692,-234 501,-234 501,-210 692,-210 692,-234"/>
+<text text-anchor="middle" x="596.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casedisruption</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge -->
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge9" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge</title>
-<path fill="none" stroke="#000000" d="M353.64,-146.93C373.75,-121.33 424.62,-61.6 482,-33 487.53,-30.24 493.38,-27.85 499.38,-25.76"/>
-<polygon fill="#000000" stroke="#000000" points="500.45,-29.09 508.93,-22.74 498.34,-22.42 500.45,-29.09"/>
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption</title>
+<path fill="none" stroke="#000000" d="M380.09,-171.09C407.67,-180.16 446.96,-192.44 482,-201 492.11,-203.47 502.78,-205.8 513.38,-207.95"/>
+<polygon fill="#000000" stroke="#000000" points="513,-211.44 523.49,-209.95 514.36,-204.58 513,-211.44"/>
 </g>
 <!-- proc~symba_fragmentation_casesupercatastrophic -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node13" class="node">
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node15" class="node">
 <title>proc~symba_fragmentation_casesupercatastrophic</title>
-<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node13"><a xlink:href=".././proc/symba_fragmentation_casesupercatastrophic.html" xlink:title="symba_fragmentation_casesupercatastrophic">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="976,-318 747,-318 747,-294 976,-294 976,-318"/>
-<text text-anchor="middle" x="861.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casesupercatastrophic</text>
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node15"><a xlink:href=".././proc/symba_fragmentation_casesupercatastrophic.html" xlink:title="symba_fragmentation_casesupercatastrophic">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="976,-192 747,-192 747,-168 976,-168 976,-192"/>
+<text text-anchor="middle" x="861.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casesupercatastrophic</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_casesupercatastrophic -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge10" class="edge">
 <title>interface~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_casesupercatastrophic</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M711.33,-306C719.72,-306 728.2,-306 736.65,-306"/>
-<polygon fill="#000000" stroke="#000000" points="736.92,-309.5 746.92,-306 736.92,-302.5 736.92,-309.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M711.33,-180C719.72,-180 728.2,-180 736.65,-180"/>
+<polygon fill="#000000" stroke="#000000" points="736.92,-183.5 746.92,-180 736.92,-176.5 736.92,-183.5"/>
 </g>
-<!-- proc~symba_fragmentation_casehitandrun -->
+<!-- id_arr -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node14" class="node">
+<title>id_arr</title>
+<polygon fill="#777777" stroke="#777777" points="888.5,-108 834.5,-108 834.5,-84 888.5,-84 888.5,-108"/>
+<text text-anchor="middle" x="861.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">id_arr</text>
+</g>
+<!-- proc~symba_collision_consolidate_familes&#45;&gt;id_arr -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge12" class="edge">
+<title>proc~symba_collision_consolidate_familes&#45;&gt;id_arr</title>
+<path fill="none" stroke="#000000" d="M690.22,-96C736.46,-96 789.73,-96 824.19,-96"/>
+<polygon fill="#000000" stroke="#000000" points="824.26,-99.5 834.26,-96 824.26,-92.5 824.26,-99.5"/>
+</g>
+<!-- idx_arr -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node16" class="node">
+<title>idx_arr</title>
+<polygon fill="#777777" stroke="#777777" points="888.5,-66 834.5,-66 834.5,-42 888.5,-42 888.5,-66"/>
+<text text-anchor="middle" x="861.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx_arr</text>
+</g>
+<!-- proc~symba_collision_consolidate_familes&#45;&gt;idx_arr -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge11" class="edge">
+<title>proc~symba_collision_consolidate_familes&#45;&gt;idx_arr</title>
+<path fill="none" stroke="#000000" d="M672.87,-83.96C722.4,-76.05 785.01,-66.06 823.91,-59.84"/>
+<polygon fill="#000000" stroke="#000000" points="824.9,-63.23 834.22,-58.2 823.79,-56.32 824.9,-63.23"/>
+</g>
+<!-- proc~symba_fragmentation_casemerge -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node11" class="node">
+<title>proc~symba_fragmentation_casemerge</title>
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node11"><a xlink:href=".././proc/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="949,-150 774,-150 774,-126 949,-126 949,-150"/>
+<text text-anchor="middle" x="861.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge13" class="edge">
+<title>interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M684.34,-138C709.71,-138 737.58,-138 763.53,-138"/>
+<polygon fill="#000000" stroke="#000000" points="763.75,-141.5 773.75,-138 763.75,-134.5 763.75,-141.5"/>
+</g>
+<!-- proc~symba_fragmentation_casehitandrun -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node12" class="node">
 <title>proc~symba_fragmentation_casehitandrun</title>
-<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node11"><a xlink:href=".././proc/symba_fragmentation_casehitandrun.html" xlink:title="symba_fragmentation_casehitandrun">
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node12"><a xlink:href=".././proc/symba_fragmentation_casehitandrun.html" xlink:title="symba_fragmentation_casehitandrun">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="956.5,-276 766.5,-276 766.5,-252 956.5,-252 956.5,-276"/>
 <text text-anchor="middle" x="861.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casehitandrun</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_casehitandrun -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge11" class="edge">
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge14" class="edge">
 <title>interface~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_casehitandrun</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M691.71,-264C712.57,-264 734.81,-264 756.06,-264"/>
 <polygon fill="#000000" stroke="#000000" points="756.07,-267.5 766.07,-264 756.07,-260.5 756.07,-267.5"/>
 </g>
 <!-- proc~symba_fragmentation_casedisruption -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node15" class="node">
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node13" class="node">
 <title>proc~symba_fragmentation_casedisruption</title>
-<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node15"><a xlink:href=".././proc/symba_fragmentation_casedisruption.html" xlink:title="symba_fragmentation_casedisruption">
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node13"><a xlink:href=".././proc/symba_fragmentation_casedisruption.html" xlink:title="symba_fragmentation_casedisruption">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="957,-234 766,-234 766,-210 957,-210 957,-234"/>
 <text text-anchor="middle" x="861.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casedisruption</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_casedisruption -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge12" class="edge">
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge15" class="edge">
 <title>interface~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_casedisruption</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.08,-222C712.71,-222 734.65,-222 755.65,-222"/>
 <polygon fill="#000000" stroke="#000000" points="755.88,-225.5 765.88,-222 755.88,-218.5 755.88,-225.5"/>
 </g>
-<!-- idx_arr -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node12" class="node">
-<title>idx_arr</title>
-<polygon fill="#777777" stroke="#777777" points="888.5,-108 834.5,-108 834.5,-84 888.5,-84 888.5,-108"/>
-<text text-anchor="middle" x="861.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx_arr</text>
-</g>
-<!-- proc~symba_collision_consolidate_familes&#45;&gt;idx_arr -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge13" class="edge">
-<title>proc~symba_collision_consolidate_familes&#45;&gt;idx_arr</title>
-<path fill="none" stroke="#000000" d="M672.87,-66.04C722.4,-73.95 785.01,-83.94 823.91,-90.16"/>
-<polygon fill="#000000" stroke="#000000" points="823.79,-93.68 834.22,-91.8 824.9,-86.77 823.79,-93.68"/>
-</g>
-<!-- id_arr -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node14" class="node">
-<title>id_arr</title>
-<polygon fill="#777777" stroke="#777777" points="888.5,-66 834.5,-66 834.5,-42 888.5,-42 888.5,-66"/>
-<text text-anchor="middle" x="861.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">id_arr</text>
-</g>
-<!-- proc~symba_collision_consolidate_familes&#45;&gt;id_arr -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge14" class="edge">
-<title>proc~symba_collision_consolidate_familes&#45;&gt;id_arr</title>
-<path fill="none" stroke="#000000" d="M690.22,-54C736.46,-54 789.73,-54 824.19,-54"/>
-<polygon fill="#000000" stroke="#000000" points="824.26,-57.5 834.26,-54 824.26,-50.5 824.26,-57.5"/>
-</g>
-<!-- proc~symba_fragmentation_casemerge -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node16" class="node">
-<title>proc~symba_fragmentation_casemerge</title>
-<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node16"><a xlink:href=".././proc/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="949,-24 774,-24 774,0 949,0 949,-24"/>
-<text text-anchor="middle" x="861.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
+<!-- proc~symba_fragmentation_mergeaddsub -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node18" class="node">
+<title>proc~symba_fragmentation_mergeaddsub</title>
+<g id="a_interface~~symba_collision_resolve_fragmentations~~CallsGraph_node18"><a xlink:href=".././proc/symba_fragmentation_mergeaddsub.html" xlink:title="symba_fragmentation_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="1200,-192 1012,-192 1012,-168 1200,-168 1200,-192"/>
+<text text-anchor="middle" x="1106" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_mergeaddsub</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge15" class="edge">
-<title>interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M684.34,-12C709.71,-12 737.58,-12 763.53,-12"/>
-<polygon fill="#000000" stroke="#000000" points="763.75,-15.5 773.75,-12 763.75,-8.5 763.75,-15.5"/>
+<!-- proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge16" class="edge">
+<title>proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M931.99,-150.04C961.16,-155.09 995.26,-160.99 1025.43,-166.22"/>
+<polygon fill="#000000" stroke="#000000" points="1025.05,-169.7 1035.5,-167.96 1026.24,-162.81 1025.05,-169.7"/>
 </g>
 <!-- fragmentation_initialize -->
 <g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_node17" class="node">
 <title>fragmentation_initialize</title>
-<polygon fill="#777777" stroke="#777777" points="1134,-276 1012,-276 1012,-252 1134,-252 1134,-276"/>
-<text text-anchor="middle" x="1073" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
+<polygon fill="#777777" stroke="#777777" points="1167,-234 1045,-234 1045,-210 1167,-210 1167,-234"/>
+<text text-anchor="middle" x="1106" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
 </g>
 <!-- proc~symba_fragmentation_casehitandrun&#45;&gt;fragmentation_initialize -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge16" class="edge">
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge17" class="edge">
 <title>proc~symba_fragmentation_casehitandrun&#45;&gt;fragmentation_initialize</title>
-<path fill="none" stroke="#000000" d="M956.53,-264C971.67,-264 987.11,-264 1001.58,-264"/>
-<polygon fill="#000000" stroke="#000000" points="1001.92,-267.5 1011.92,-264 1001.92,-260.5 1001.92,-267.5"/>
+<path fill="none" stroke="#000000" d="M931.99,-251.96C964.19,-246.39 1002.4,-239.77 1034.7,-234.18"/>
+<polygon fill="#000000" stroke="#000000" points="1035.71,-237.55 1044.96,-232.4 1034.51,-230.66 1035.71,-237.55"/>
 </g>
-<!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge17" class="edge">
-<title>proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize</title>
-<path fill="none" stroke="#000000" d="M929.49,-293.98C944.79,-291.13 960.97,-288.03 976,-285 986.56,-282.87 997.76,-280.51 1008.63,-278.17"/>
-<polygon fill="#000000" stroke="#000000" points="1009.47,-281.57 1018.5,-276.03 1007.98,-274.73 1009.47,-281.57"/>
+<!-- proc~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge18" class="edge">
+<title>proc~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M956.63,-251.9C963.38,-249.44 969.92,-246.5 976,-243 997.3,-230.73 990.94,-213.69 1012,-201 1015,-199.19 1018.13,-197.54 1021.37,-196.04"/>
+<polygon fill="#000000" stroke="#000000" points="1022.81,-199.23 1030.69,-192.15 1020.12,-192.76 1022.81,-199.23"/>
 </g>
 <!-- proc~symba_fragmentation_casedisruption&#45;&gt;fragmentation_initialize -->
-<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge18" class="edge">
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge19" class="edge">
 <title>proc~symba_fragmentation_casedisruption&#45;&gt;fragmentation_initialize</title>
-<path fill="none" stroke="#000000" d="M929.49,-234.02C944.79,-236.87 960.97,-239.97 976,-243 986.56,-245.13 997.76,-247.49 1008.63,-249.83"/>
-<polygon fill="#000000" stroke="#000000" points="1007.98,-253.27 1018.5,-251.97 1009.47,-246.43 1007.98,-253.27"/>
+<path fill="none" stroke="#000000" d="M957.3,-222C983.1,-222 1010.59,-222 1034.76,-222"/>
+<polygon fill="#000000" stroke="#000000" points="1034.91,-225.5 1044.91,-222 1034.91,-218.5 1034.91,-225.5"/>
+</g>
+<!-- proc~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge20" class="edge">
+<title>proc~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M931.99,-209.96C961.16,-204.91 995.26,-199.01 1025.43,-193.78"/>
+<polygon fill="#000000" stroke="#000000" points="1026.24,-197.19 1035.5,-192.04 1025.05,-190.3 1026.24,-197.19"/>
+</g>
+<!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge21" class="edge">
+<title>proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize</title>
+<path fill="none" stroke="#000000" d="M931.99,-192.04C964.19,-197.61 1002.4,-204.23 1034.7,-209.82"/>
+<polygon fill="#000000" stroke="#000000" points="1034.51,-213.34 1044.96,-211.6 1035.71,-206.45 1034.51,-213.34"/>
+</g>
+<!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="interface~~symba_collision_resolve_fragmentations~~CallsGraph_edge22" class="edge">
+<title>proc~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M976.29,-180C984.78,-180 993.32,-180 1001.73,-180"/>
+<polygon fill="#000000" stroke="#000000" points="1001.93,-183.5 1011.93,-180 1001.93,-176.5 1001.93,-183.5"/>
 </g>
 </g>
 </svg>
@@ -580,7 +613,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~41"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~42"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -595,7 +628,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~58"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~59"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_collision_resolve_mergers.html b/docs/interface/symba_collision_resolve_mergers.html
index 505885d9e..d10df7bbe 100644
--- a/docs/interface/symba_collision_resolve_mergers.html
+++ b/docs/interface/symba_collision_resolve_mergers.html
@@ -136,7 +136,7 @@ <h1>symba_collision_resolve_mergers
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -220,11 +220,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~symba_collision_resolve_mergers~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_collision_resolve_mergersCallsGraph" width="641pt" height="123pt"
- viewBox="0.00 0.00 641.00 122.61" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_collision_resolve_mergers~~CallsGraph" class="graph" transform="scale(0.78 0.78) rotate(0) translate(4 154)">
+<svg id="interfacesymba_collision_resolve_mergersCallsGraph" width="641pt" height="96pt"
+ viewBox="0.00 0.00 641.00 96.46" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_collision_resolve_mergers~~CallsGraph" class="graph" transform="scale(0.61 0.61) rotate(0) translate(4 154)">
 <title>interface~~symba_collision_resolve_mergers~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-154 822,-154 822,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-154 1046,-154 1046,4 -4,4"/>
 <!-- interface~symba_collision_resolve_mergers -->
 <g id="interface~~symba_collision_resolve_mergers~~CallsGraph_node1" class="node">
 <title>interface~symba_collision_resolve_mergers</title>
@@ -253,7 +253,7 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="513.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
 </g>
 <!-- proc~symba_collision_resolve_mergers&#45;&gt;idx1 -->
-<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_edge2" class="edge">
+<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_edge4" class="edge">
 <title>proc~symba_collision_resolve_mergers&#45;&gt;idx1</title>
 <path fill="none" stroke="#000000" d="M329.81,-87.01C354.25,-95.98 388.98,-108.17 420,-117 438.36,-122.23 459.06,-127.03 476.22,-130.72"/>
 <polygon fill="#000000" stroke="#000000" points="475.89,-134.22 486.39,-132.86 477.33,-127.37 475.89,-134.22"/>
@@ -280,7 +280,7 @@ <h3 class="panel-title">Calls</h3>
 </g>
 </g>
 <!-- proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_familes -->
-<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_edge4" class="edge">
+<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_edge2" class="edge">
 <title>proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_familes</title>
 <path fill="none" stroke="#000000" d="M384.01,-66.58C392.47,-65.75 401.12,-64.9 409.72,-64.06"/>
 <polygon fill="#000000" stroke="#000000" points="410.18,-67.53 419.79,-63.08 409.5,-60.57 410.18,-67.53"/>
@@ -339,6 +339,21 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.02,-12C611.45,-12 622.16,-12 632.73,-12"/>
 <polygon fill="#000000" stroke="#000000" points="632.81,-15.5 642.81,-12 632.81,-8.5 632.81,-15.5"/>
 </g>
+<!-- proc~symba_fragmentation_mergeaddsub -->
+<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_node10" class="node">
+<title>proc~symba_fragmentation_mergeaddsub</title>
+<g id="a_interface~~symba_collision_resolve_mergers~~CallsGraph_node10"><a xlink:href=".././proc/symba_fragmentation_mergeaddsub.html" xlink:title="symba_fragmentation_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="1042,-24 854,-24 854,0 1042,0 1042,-24"/>
+<text text-anchor="middle" x="948" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_mergeaddsub</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="interface~~symba_collision_resolve_mergers~~CallsGraph_edge9" class="edge">
+<title>proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M818.22,-12C826.63,-12 835.21,-12 843.76,-12"/>
+<polygon fill="#000000" stroke="#000000" points="843.76,-15.5 853.76,-12 843.76,-8.5 843.76,-15.5"/>
+</g>
 </g>
 </svg>
 </div><script>var paninterfacesymba_collision_resolve_mergersCallsGraph = svgPanZoom('#interfacesymba_collision_resolve_mergersCallsGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
@@ -454,7 +469,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~42"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~43"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -469,7 +484,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~59"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~60"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_discard_pl.html b/docs/interface/symba_discard_pl.html
index af0815ea3..c3ab29988 100644
--- a/docs/interface/symba_discard_pl.html
+++ b/docs/interface/symba_discard_pl.html
@@ -136,7 +136,7 @@ <h1>symba_discard_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~43"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~44"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -421,7 +421,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~60"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~61"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_drift_pl.html b/docs/interface/symba_drift_pl.html
index 53bc4e33b..4875fb124 100644
--- a/docs/interface/symba_drift_pl.html
+++ b/docs/interface/symba_drift_pl.html
@@ -136,7 +136,7 @@ <h1>symba_drift_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~44"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~45"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -388,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~61"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~62"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_drift_tp.html b/docs/interface/symba_drift_tp.html
index 19794c67a..08cc57d88 100644
--- a/docs/interface/symba_drift_tp.html
+++ b/docs/interface/symba_drift_tp.html
@@ -136,7 +136,7 @@ <h1>symba_drift_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~45"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~46"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -388,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~62"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~63"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_encounter_check_one.html b/docs/interface/symba_encounter_check_one.html
index 6a5c6dd2d..328799f73 100644
--- a/docs/interface/symba_encounter_check_one.html
+++ b/docs/interface/symba_encounter_check_one.html
@@ -136,7 +136,7 @@ <h1>symba_encounter_check_one
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
diff --git a/docs/interface/symba_encounter_check_pl.html b/docs/interface/symba_encounter_check_pl.html
index d8e79fb5a..575db8d9c 100644
--- a/docs/interface/symba_encounter_check_pl.html
+++ b/docs/interface/symba_encounter_check_pl.html
@@ -136,7 +136,7 @@ <h1>symba_encounter_check_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~32"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~33"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_encounter_check_pltpenc.html b/docs/interface/symba_encounter_check_pltpenc.html
index dc3195683..e0321ae3e 100644
--- a/docs/interface/symba_encounter_check_pltpenc.html
+++ b/docs/interface/symba_encounter_check_pltpenc.html
@@ -136,7 +136,7 @@ <h1>symba_encounter_check_pltpenc
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -385,7 +385,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~33"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~34"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_encounter_check_tp.html b/docs/interface/symba_encounter_check_tp.html
index 408310515..f644d6401 100644
--- a/docs/interface/symba_encounter_check_tp.html
+++ b/docs/interface/symba_encounter_check_tp.html
@@ -136,7 +136,7 @@ <h1>symba_encounter_check_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~34"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~35"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_fragmentation_casedisruption.html b/docs/interface/symba_fragmentation_casedisruption.html
index 6a3b6c397..9caa18ab7 100644
--- a/docs/interface/symba_fragmentation_casedisruption.html
+++ b/docs/interface/symba_fragmentation_casedisruption.html
@@ -136,7 +136,7 @@ <h1>symba_fragmentation_casedisruption
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -220,47 +220,62 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~symba_fragmentation_casedisruption~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_fragmentation_casedisruptionCallsGraph" width="584pt" height="32pt"
- viewBox="0.00 0.00 584.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_fragmentation_casedisruption~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="interfacesymba_fragmentation_casedisruptionCallsGraph" width="641pt" height="73pt"
+ viewBox="0.00 0.00 641.00 72.98" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_fragmentation_casedisruption~~CallsGraph" class="graph" transform="scale(0.99 0.99) rotate(0) translate(4 70)">
 <title>interface~~symba_fragmentation_casedisruption~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 580,-28 580,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 646,-70 646,4 -4,4"/>
 <!-- interface~symba_fragmentation_casedisruption -->
 <g id="interface~~symba_fragmentation_casedisruption~~CallsGraph_node1" class="node">
 <title>interface~symba_fragmentation_casedisruption</title>
-<polygon fill="none" stroke="black" points="191,-24 0,-24 0,0 191,0 191,-24"/>
-<text text-anchor="middle" x="95.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casedisruption</text>
+<polygon fill="none" stroke="black" points="191,-45 0,-45 0,-21 191,-21 191,-45"/>
+<text text-anchor="middle" x="95.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casedisruption</text>
 </g>
 <!-- proc~symba_fragmentation_casedisruption -->
 <g id="interface~~symba_fragmentation_casedisruption~~CallsGraph_node2" class="node">
 <title>proc~symba_fragmentation_casedisruption</title>
 <g id="a_interface~~symba_fragmentation_casedisruption~~CallsGraph_node2"><a xlink:href=".././proc/symba_fragmentation_casedisruption.html" xlink:title="symba_fragmentation_casedisruption">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="418,-24 227,-24 227,0 418,0 418,-24"/>
-<text text-anchor="middle" x="322.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casedisruption</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="418,-45 227,-45 227,-21 418,-21 418,-45"/>
+<text text-anchor="middle" x="322.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casedisruption</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_casedisruption -->
 <g id="interface~~symba_fragmentation_casedisruption~~CallsGraph_edge1" class="edge">
 <title>interface~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_casedisruption</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M191.27,-12C199.64,-12 208.14,-12 216.58,-12"/>
-<polygon fill="#000000" stroke="#000000" points="216.84,-15.5 226.84,-12 216.84,-8.5 216.84,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M191.27,-33C199.64,-33 208.14,-33 216.58,-33"/>
+<polygon fill="#000000" stroke="#000000" points="216.84,-36.5 226.84,-33 216.84,-29.5 216.84,-36.5"/>
 </g>
 <!-- fragmentation_initialize -->
 <g id="interface~~symba_fragmentation_casedisruption~~CallsGraph_node3" class="node">
 <title>fragmentation_initialize</title>
-<polygon fill="#777777" stroke="#777777" points="576,-24 454,-24 454,0 576,0 576,-24"/>
-<text text-anchor="middle" x="515" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
+<polygon fill="#777777" stroke="#777777" points="609,-66 487,-66 487,-42 609,-42 609,-66"/>
+<text text-anchor="middle" x="548" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
 </g>
 <!-- proc~symba_fragmentation_casedisruption&#45;&gt;fragmentation_initialize -->
 <g id="interface~~symba_fragmentation_casedisruption~~CallsGraph_edge2" class="edge">
 <title>proc~symba_fragmentation_casedisruption&#45;&gt;fragmentation_initialize</title>
-<path fill="none" stroke="#000000" d="M418.19,-12C426.82,-12 435.46,-12 443.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="443.86,-15.5 453.86,-12 443.86,-8.5 443.86,-15.5"/>
+<path fill="none" stroke="#000000" d="M418.28,-41.91C437.86,-43.75 458.15,-45.65 476.66,-47.39"/>
+<polygon fill="#000000" stroke="#000000" points="476.47,-50.89 486.75,-48.34 477.13,-43.92 476.47,-50.89"/>
+</g>
+<!-- proc~symba_fragmentation_mergeaddsub -->
+<g id="interface~~symba_fragmentation_casedisruption~~CallsGraph_node4" class="node">
+<title>proc~symba_fragmentation_mergeaddsub</title>
+<g id="a_interface~~symba_fragmentation_casedisruption~~CallsGraph_node4"><a xlink:href=".././proc/symba_fragmentation_mergeaddsub.html" xlink:title="symba_fragmentation_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="642,-24 454,-24 454,0 642,0 642,-24"/>
+<text text-anchor="middle" x="548" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_mergeaddsub</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="interface~~symba_fragmentation_casedisruption~~CallsGraph_edge3" class="edge">
+<title>proc~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M418.28,-24.09C426.75,-23.3 435.35,-22.49 443.88,-21.69"/>
+<polygon fill="#000000" stroke="#000000" points="444.22,-25.17 453.85,-20.75 443.57,-18.2 444.22,-25.17"/>
 </g>
 </g>
 </svg>
-</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+</div><script>var paninterfacesymba_fragmentation_casedisruptionCallsGraph = svgPanZoom('#interfacesymba_fragmentation_casedisruptionCallsGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
     <p>Nodes of different colours represent the following: </p>
     <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
@@ -474,7 +489,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~35"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~36"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -489,7 +504,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~52"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~53"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -504,7 +519,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-family~2"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-family~3"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -643,7 +658,7 @@ <h3>Arguments</h3>
     
     
     
-      <h3>Return Value <span class="anchor" id="variable-status~3"></span><small>integer(kind=I4B)
+      <h3>Return Value <span class="anchor" id="variable-status~4"></span><small>integer(kind=I4B)
   </small></h3>
     <p>Status flag assigned to this outcome</p>
     
diff --git a/docs/interface/symba_fragmentation_casehitandrun.html b/docs/interface/symba_fragmentation_casehitandrun.html
index 415273db8..e8509d5f6 100644
--- a/docs/interface/symba_fragmentation_casehitandrun.html
+++ b/docs/interface/symba_fragmentation_casehitandrun.html
@@ -136,7 +136,7 @@ <h1>symba_fragmentation_casehitandrun
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -220,47 +220,62 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~symba_fragmentation_casehitandrun~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_fragmentation_casehitandrunCallsGraph" width="582pt" height="32pt"
- viewBox="0.00 0.00 582.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_fragmentation_casehitandrun~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="interfacesymba_fragmentation_casehitandrunCallsGraph" width="641pt" height="73pt"
+ viewBox="0.00 0.00 641.00 73.20" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_fragmentation_casehitandrun~~CallsGraph" class="graph" transform="scale(0.99 0.99) rotate(0) translate(4 70)">
 <title>interface~~symba_fragmentation_casehitandrun~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 578,-28 578,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 644,-70 644,4 -4,4"/>
 <!-- interface~symba_fragmentation_casehitandrun -->
 <g id="interface~~symba_fragmentation_casehitandrun~~CallsGraph_node1" class="node">
 <title>interface~symba_fragmentation_casehitandrun</title>
-<polygon fill="none" stroke="black" points="190,-24 0,-24 0,0 190,0 190,-24"/>
-<text text-anchor="middle" x="95" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casehitandrun</text>
+<polygon fill="none" stroke="black" points="190,-45 0,-45 0,-21 190,-21 190,-45"/>
+<text text-anchor="middle" x="95" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casehitandrun</text>
 </g>
 <!-- proc~symba_fragmentation_casehitandrun -->
 <g id="interface~~symba_fragmentation_casehitandrun~~CallsGraph_node2" class="node">
 <title>proc~symba_fragmentation_casehitandrun</title>
 <g id="a_interface~~symba_fragmentation_casehitandrun~~CallsGraph_node2"><a xlink:href=".././proc/symba_fragmentation_casehitandrun.html" xlink:title="symba_fragmentation_casehitandrun">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="416,-24 226,-24 226,0 416,0 416,-24"/>
-<text text-anchor="middle" x="321" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casehitandrun</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="416,-45 226,-45 226,-21 416,-21 416,-45"/>
+<text text-anchor="middle" x="321" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casehitandrun</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_casehitandrun -->
 <g id="interface~~symba_fragmentation_casehitandrun~~CallsGraph_edge1" class="edge">
 <title>interface~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_casehitandrun</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M190.02,-12C198.54,-12 207.2,-12 215.8,-12"/>
-<polygon fill="#000000" stroke="#000000" points="215.86,-15.5 225.86,-12 215.86,-8.5 215.86,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M190.02,-33C198.54,-33 207.2,-33 215.8,-33"/>
+<polygon fill="#000000" stroke="#000000" points="215.86,-36.5 225.86,-33 215.86,-29.5 215.86,-36.5"/>
 </g>
 <!-- fragmentation_initialize -->
 <g id="interface~~symba_fragmentation_casehitandrun~~CallsGraph_node3" class="node">
 <title>fragmentation_initialize</title>
-<polygon fill="#777777" stroke="#777777" points="574,-24 452,-24 452,0 574,0 574,-24"/>
-<text text-anchor="middle" x="513" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
+<polygon fill="#777777" stroke="#777777" points="607,-66 485,-66 485,-42 607,-42 607,-66"/>
+<text text-anchor="middle" x="546" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
 </g>
 <!-- proc~symba_fragmentation_casehitandrun&#45;&gt;fragmentation_initialize -->
 <g id="interface~~symba_fragmentation_casehitandrun~~CallsGraph_edge2" class="edge">
 <title>proc~symba_fragmentation_casehitandrun&#45;&gt;fragmentation_initialize</title>
-<path fill="none" stroke="#000000" d="M416.17,-12C424.79,-12 433.42,-12 441.78,-12"/>
-<polygon fill="#000000" stroke="#000000" points="441.82,-15.5 451.82,-12 441.82,-8.5 441.82,-15.5"/>
+<path fill="none" stroke="#000000" d="M416.25,-41.88C435.81,-43.72 456.09,-45.63 474.61,-47.37"/>
+<polygon fill="#000000" stroke="#000000" points="474.42,-50.87 484.71,-48.32 475.08,-43.9 474.42,-50.87"/>
+</g>
+<!-- proc~symba_fragmentation_mergeaddsub -->
+<g id="interface~~symba_fragmentation_casehitandrun~~CallsGraph_node4" class="node">
+<title>proc~symba_fragmentation_mergeaddsub</title>
+<g id="a_interface~~symba_fragmentation_casehitandrun~~CallsGraph_node4"><a xlink:href=".././proc/symba_fragmentation_mergeaddsub.html" xlink:title="symba_fragmentation_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="640,-24 452,-24 452,0 640,0 640,-24"/>
+<text text-anchor="middle" x="546" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_mergeaddsub</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="interface~~symba_fragmentation_casehitandrun~~CallsGraph_edge3" class="edge">
+<title>proc~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M416.25,-24.12C424.71,-23.33 433.3,-22.52 441.83,-21.72"/>
+<polygon fill="#000000" stroke="#000000" points="442.17,-25.2 451.8,-20.78 441.52,-18.23 442.17,-25.2"/>
 </g>
 </g>
 </svg>
-</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+</div><script>var paninterfacesymba_fragmentation_casehitandrunCallsGraph = svgPanZoom('#interfacesymba_fragmentation_casehitandrunCallsGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
     <p>Nodes of different colours represent the following: </p>
     <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
@@ -474,7 +489,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~36"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~37"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -489,7 +504,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~53"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~54"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -504,7 +519,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-family~3"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-family~4"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -643,7 +658,7 @@ <h3>Arguments</h3>
     
     
     
-      <h3>Return Value <span class="anchor" id="variable-status~4"></span><small>integer(kind=I4B)
+      <h3>Return Value <span class="anchor" id="variable-status~5"></span><small>integer(kind=I4B)
   </small></h3>
     <p>Status flag assigned to this outcome</p>
     
diff --git a/docs/interface/symba_fragmentation_casemerge.html b/docs/interface/symba_fragmentation_casemerge.html
index 4fe516b98..325f77b01 100644
--- a/docs/interface/symba_fragmentation_casemerge.html
+++ b/docs/interface/symba_fragmentation_casemerge.html
@@ -136,7 +136,7 @@ <h1>symba_fragmentation_casemerge
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -220,11 +220,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~symba_fragmentation_casemerge~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_fragmentation_casemergeCallsGraph" width="394pt" height="32pt"
- viewBox="0.00 0.00 394.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="interfacesymba_fragmentation_casemergeCallsGraph" width="618pt" height="32pt"
+ viewBox="0.00 0.00 618.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="interface~~symba_fragmentation_casemerge~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>interface~~symba_fragmentation_casemerge~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 390,-28 390,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 614,-28 614,4 -4,4"/>
 <!-- interface~symba_fragmentation_casemerge -->
 <g id="interface~~symba_fragmentation_casemerge~~CallsGraph_node1" class="node">
 <title>interface~symba_fragmentation_casemerge</title>
@@ -246,6 +246,21 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M175.02,-12C183.49,-12 192.13,-12 200.7,-12"/>
 <polygon fill="#000000" stroke="#000000" points="200.71,-15.5 210.71,-12 200.71,-8.5 200.71,-15.5"/>
 </g>
+<!-- proc~symba_fragmentation_mergeaddsub -->
+<g id="interface~~symba_fragmentation_casemerge~~CallsGraph_node3" class="node">
+<title>proc~symba_fragmentation_mergeaddsub</title>
+<g id="a_interface~~symba_fragmentation_casemerge~~CallsGraph_node3"><a xlink:href=".././proc/symba_fragmentation_mergeaddsub.html" xlink:title="symba_fragmentation_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="610,-24 422,-24 422,0 610,0 610,-24"/>
+<text text-anchor="middle" x="516" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_mergeaddsub</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="interface~~symba_fragmentation_casemerge~~CallsGraph_edge2" class="edge">
+<title>proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M386.22,-12C394.63,-12 403.21,-12 411.76,-12"/>
+<polygon fill="#000000" stroke="#000000" points="411.76,-15.5 421.76,-12 411.76,-8.5 411.76,-15.5"/>
+</g>
 </g>
 </svg>
 </div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
@@ -492,7 +507,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~37"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~38"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -507,7 +522,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~54"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~55"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -522,7 +537,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-family~4"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-family~5"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -631,7 +646,7 @@ <h3>Arguments</h3>
     
     
     
-      <h3>Return Value <span class="anchor" id="variable-status~5"></span><small>integer(kind=I4B)
+      <h3>Return Value <span class="anchor" id="variable-status~6"></span><small>integer(kind=I4B)
   </small></h3>
     <p>Status flag assigned to this outcome</p>
     
diff --git a/docs/interface/symba_fragmentation_casesupercatastrophic.html b/docs/interface/symba_fragmentation_casesupercatastrophic.html
index cd478a74c..9fba76a4d 100644
--- a/docs/interface/symba_fragmentation_casesupercatastrophic.html
+++ b/docs/interface/symba_fragmentation_casesupercatastrophic.html
@@ -136,7 +136,7 @@ <h1>symba_fragmentation_casesupercatastrophic
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -220,43 +220,58 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~symba_fragmentation_casesupercatastrophic~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_fragmentation_casesupercatastrophicCallsGraph" width="641pt" height="31pt"
- viewBox="0.00 0.00 641.00 31.08" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_fragmentation_casesupercatastrophic~~CallsGraph" class="graph" transform="scale(0.97 0.97) rotate(0) translate(4 28)">
+<svg id="interfacesymba_fragmentation_casesupercatastrophicCallsGraph" width="641pt" height="65pt"
+ viewBox="0.00 0.00 641.00 65.34" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_fragmentation_casesupercatastrophic~~CallsGraph" class="graph" transform="scale(0.88 0.88) rotate(0) translate(4 70)">
 <title>interface~~symba_fragmentation_casesupercatastrophic~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 656,-28 656,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 722,-70 722,4 -4,4"/>
 <!-- interface~symba_fragmentation_casesupercatastrophic -->
 <g id="interface~~symba_fragmentation_casesupercatastrophic~~CallsGraph_node1" class="node">
 <title>interface~symba_fragmentation_casesupercatastrophic</title>
-<polygon fill="none" stroke="black" points="229,-24 0,-24 0,0 229,0 229,-24"/>
-<text text-anchor="middle" x="114.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casesupercatastrophic</text>
+<polygon fill="none" stroke="black" points="229,-45 0,-45 0,-21 229,-21 229,-45"/>
+<text text-anchor="middle" x="114.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casesupercatastrophic</text>
 </g>
 <!-- proc~symba_fragmentation_casesupercatastrophic -->
 <g id="interface~~symba_fragmentation_casesupercatastrophic~~CallsGraph_node2" class="node">
 <title>proc~symba_fragmentation_casesupercatastrophic</title>
 <g id="a_interface~~symba_fragmentation_casesupercatastrophic~~CallsGraph_node2"><a xlink:href=".././proc/symba_fragmentation_casesupercatastrophic.html" xlink:title="symba_fragmentation_casesupercatastrophic">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="494,-24 265,-24 265,0 494,0 494,-24"/>
-<text text-anchor="middle" x="379.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casesupercatastrophic</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="494,-45 265,-45 265,-21 494,-21 494,-45"/>
+<text text-anchor="middle" x="379.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casesupercatastrophic</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_casesupercatastrophic -->
 <g id="interface~~symba_fragmentation_casesupercatastrophic~~CallsGraph_edge1" class="edge">
 <title>interface~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_casesupercatastrophic</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M229.33,-12C237.72,-12 246.2,-12 254.65,-12"/>
-<polygon fill="#000000" stroke="#000000" points="254.92,-15.5 264.92,-12 254.92,-8.5 254.92,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M229.33,-33C237.72,-33 246.2,-33 254.65,-33"/>
+<polygon fill="#000000" stroke="#000000" points="254.92,-36.5 264.92,-33 254.92,-29.5 254.92,-36.5"/>
 </g>
 <!-- fragmentation_initialize -->
 <g id="interface~~symba_fragmentation_casesupercatastrophic~~CallsGraph_node3" class="node">
 <title>fragmentation_initialize</title>
-<polygon fill="#777777" stroke="#777777" points="652,-24 530,-24 530,0 652,0 652,-24"/>
-<text text-anchor="middle" x="591" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
+<polygon fill="#777777" stroke="#777777" points="685,-66 563,-66 563,-42 685,-42 685,-66"/>
+<text text-anchor="middle" x="624" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
 </g>
 <!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize -->
 <g id="interface~~symba_fragmentation_casesupercatastrophic~~CallsGraph_edge2" class="edge">
 <title>proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize</title>
-<path fill="none" stroke="#000000" d="M494.14,-12C502.8,-12 511.37,-12 519.63,-12"/>
-<polygon fill="#000000" stroke="#000000" points="519.9,-15.5 529.9,-12 519.9,-8.5 519.9,-15.5"/>
+<path fill="none" stroke="#000000" d="M494.29,-42.85C514.14,-44.57 534.25,-46.31 552.49,-47.89"/>
+<polygon fill="#000000" stroke="#000000" points="552.44,-51.4 562.71,-48.78 553.04,-44.43 552.44,-51.4"/>
+</g>
+<!-- proc~symba_fragmentation_mergeaddsub -->
+<g id="interface~~symba_fragmentation_casesupercatastrophic~~CallsGraph_node4" class="node">
+<title>proc~symba_fragmentation_mergeaddsub</title>
+<g id="a_interface~~symba_fragmentation_casesupercatastrophic~~CallsGraph_node4"><a xlink:href=".././proc/symba_fragmentation_mergeaddsub.html" xlink:title="symba_fragmentation_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="718,-24 530,-24 530,0 718,0 718,-24"/>
+<text text-anchor="middle" x="624" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_mergeaddsub</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="interface~~symba_fragmentation_casesupercatastrophic~~CallsGraph_edge3" class="edge">
+<title>proc~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M494.29,-23.15C502.78,-22.41 511.32,-21.67 519.73,-20.94"/>
+<polygon fill="#000000" stroke="#000000" points="520.27,-24.41 529.93,-20.06 519.66,-17.44 520.27,-24.41"/>
 </g>
 </g>
 </svg>
@@ -474,7 +489,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~38"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~39"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -489,7 +504,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~55"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~56"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -504,7 +519,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-family~5"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-family~6"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -643,7 +658,7 @@ <h3>Arguments</h3>
     
     
     
-      <h3>Return Value <span class="anchor" id="variable-status~6"></span><small>integer(kind=I4B)
+      <h3>Return Value <span class="anchor" id="variable-status~7"></span><small>integer(kind=I4B)
   </small></h3>
     <p>Status flag assigned to this outcome</p>
     
diff --git a/docs/interface/symba_io_dump_particle_info.html b/docs/interface/symba_io_dump_particle_info.html
index 2fd907309..391ece06f 100644
--- a/docs/interface/symba_io_dump_particle_info.html
+++ b/docs/interface/symba_io_dump_particle_info.html
@@ -136,7 +136,7 @@ <h1>symba_io_dump_particle_info
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -220,11 +220,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~symba_io_dump_particle_info~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_io_dump_particle_infoCallsGraph" width="354pt" height="32pt"
- viewBox="0.00 0.00 354.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="interfacesymba_io_dump_particle_infoCallsGraph" width="444pt" height="32pt"
+ viewBox="0.00 0.00 444.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="interface~~symba_io_dump_particle_info~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>interface~~symba_io_dump_particle_info~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 350,-28 350,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 440,-28 440,4 -4,4"/>
 <!-- interface~symba_io_dump_particle_info -->
 <g id="interface~~symba_io_dump_particle_info~~CallsGraph_node1" class="node">
 <title>interface~symba_io_dump_particle_info</title>
@@ -246,6 +246,18 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.1,-12C163.56,-12 172.22,-12 180.79,-12"/>
 <polygon fill="#000000" stroke="#000000" points="180.79,-15.5 190.79,-12 180.79,-8.5 180.79,-15.5"/>
 </g>
+<!-- util_exit -->
+<g id="interface~~symba_io_dump_particle_info~~CallsGraph_node3" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="436,-24 382,-24 382,0 436,0 436,-24"/>
+<text text-anchor="middle" x="409" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~symba_io_dump_particle_info&#45;&gt;util_exit -->
+<g id="interface~~symba_io_dump_particle_info~~CallsGraph_edge2" class="edge">
+<title>proc~symba_io_dump_particle_info&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M346.04,-12C355,-12 363.8,-12 371.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="371.87,-15.5 381.87,-12 371.87,-8.5 371.87,-15.5"/>
+</g>
 </g>
 </svg>
 </div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
@@ -311,11 +323,187 @@ <h3 class="panel-title">Calls</h3>
     </div>
      
      
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Called by</h3>
+      </div>
+      <div class="panel-body">
+  <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.47.1 (20210417.1919)
+ -->
+<!-- Title: interface~~symba_io_dump_particle_info~~CalledByGraph Pages: 1 -->
+<svg id="interfacesymba_io_dump_particle_infoCalledByGraph" width="641pt" height="48pt"
+ viewBox="0.00 0.00 641.00 47.67" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_io_dump_particle_info~~CalledByGraph" class="graph" transform="scale(0.64 0.64) rotate(0) translate(4 70)">
+<title>interface~~symba_io_dump_particle_info~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 991,-70 991,4 -4,4"/>
+<!-- interface~symba_io_dump_particle_info -->
+<g id="interface~~symba_io_dump_particle_info~~CalledByGraph_node1" class="node">
+<title>interface~symba_io_dump_particle_info</title>
+<polygon fill="none" stroke="black" points="987,-45 832,-45 832,-21 987,-21 987,-45"/>
+<text text-anchor="middle" x="909.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_dump_particle_info</text>
+</g>
+<!-- proc~symba_util_rearray_pl -->
+<g id="interface~~symba_io_dump_particle_info~~CalledByGraph_node2" class="node">
+<title>proc~symba_util_rearray_pl</title>
+<g id="a_interface~~symba_io_dump_particle_info~~CalledByGraph_node2"><a xlink:href=".././proc/symba_util_rearray_pl.html" xlink:title="symba_util_rearray_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="763,-66 645,-66 645,-42 763,-42 763,-66"/>
+<text text-anchor="middle" x="704" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_rearray_pl</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_rearray_pl&#45;&gt;interface~symba_io_dump_particle_info -->
+<g id="interface~~symba_io_dump_particle_info~~CalledByGraph_edge1" class="edge">
+<title>proc~symba_util_rearray_pl&#45;&gt;interface~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" d="M763.04,-48.01C781.33,-46.12 801.95,-44 821.79,-41.95"/>
+<polygon fill="#000000" stroke="#000000" points="822.17,-45.43 831.76,-40.92 821.45,-38.46 822.17,-45.43"/>
+</g>
+<!-- proc~symba_setup_initialize_particle_info -->
+<g id="interface~~symba_io_dump_particle_info~~CalledByGraph_node3" class="node">
+<title>proc~symba_setup_initialize_particle_info</title>
+<g id="a_interface~~symba_io_dump_particle_info~~CalledByGraph_node3"><a xlink:href=".././proc/symba_setup_initialize_particle_info.html" xlink:title="symba_setup_initialize_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="796,-24 612,-24 612,0 796,0 796,-24"/>
+<text text-anchor="middle" x="704" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_particle_info</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_setup_initialize_particle_info&#45;&gt;interface~symba_io_dump_particle_info -->
+<g id="interface~~symba_io_dump_particle_info~~CalledByGraph_edge2" class="edge">
+<title>proc~symba_setup_initialize_particle_info&#45;&gt;interface~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" d="M796.04,-21.39C804.63,-22.28 813.33,-23.18 821.88,-24.06"/>
+<polygon fill="#000000" stroke="#000000" points="821.53,-27.54 831.84,-25.09 822.25,-20.58 821.53,-27.54"/>
+</g>
+<!-- interface~symba_util_rearray_pl -->
+<g id="interface~~symba_io_dump_particle_info~~CalledByGraph_node4" class="node">
+<title>interface~symba_util_rearray_pl</title>
+<g id="a_interface~~symba_io_dump_particle_info~~CalledByGraph_node4"><a xlink:href=".././interface/symba_util_rearray_pl.html" xlink:title="symba_util_rearray_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="543,-66 425,-66 425,-42 543,-42 543,-66"/>
+<text text-anchor="middle" x="484" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_rearray_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_util_rearray_pl&#45;&gt;proc~symba_util_rearray_pl -->
+<g id="interface~~symba_io_dump_particle_info~~CalledByGraph_edge3" class="edge">
+<title>interface~symba_util_rearray_pl&#45;&gt;proc~symba_util_rearray_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M543.13,-54C571.23,-54 605.13,-54 634.48,-54"/>
+<polygon fill="#000000" stroke="#000000" points="634.65,-57.5 644.65,-54 634.65,-50.5 634.65,-57.5"/>
+</g>
+<!-- interface~symba_setup_initialize_particle_info -->
+<g id="interface~~symba_io_dump_particle_info~~CalledByGraph_node5" class="node">
+<title>interface~symba_setup_initialize_particle_info</title>
+<g id="a_interface~~symba_io_dump_particle_info~~CalledByGraph_node5"><a xlink:href=".././interface/symba_setup_initialize_particle_info.html" xlink:title="symba_setup_initialize_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="576,-24 392,-24 392,0 576,0 576,-24"/>
+<text text-anchor="middle" x="484" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_setup_initialize_particle_info&#45;&gt;proc~symba_setup_initialize_particle_info -->
+<g id="interface~~symba_io_dump_particle_info~~CalledByGraph_edge4" class="edge">
+<title>interface~symba_setup_initialize_particle_info&#45;&gt;proc~symba_setup_initialize_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M576.19,-12C584.57,-12 593.09,-12 601.55,-12"/>
+<polygon fill="#000000" stroke="#000000" points="601.83,-15.5 611.83,-12 601.83,-8.5 601.83,-15.5"/>
+</g>
+<!-- proc~symba_setup_initialize_system -->
+<g id="interface~~symba_io_dump_particle_info~~CalledByGraph_node6" class="node">
+<title>proc~symba_setup_initialize_system</title>
+<g id="a_interface~~symba_io_dump_particle_info~~CalledByGraph_node6"><a xlink:href=".././proc/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="356,-24 196,-24 196,0 356,0 356,-24"/>
+<text text-anchor="middle" x="276" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_setup_initialize_system&#45;&gt;interface~symba_setup_initialize_particle_info -->
+<g id="interface~~symba_io_dump_particle_info~~CalledByGraph_edge5" class="edge">
+<title>proc~symba_setup_initialize_system&#45;&gt;interface~symba_setup_initialize_particle_info</title>
+<path fill="none" stroke="#000000" d="M356.06,-12C364.46,-12 373.08,-12 381.69,-12"/>
+<polygon fill="#000000" stroke="#000000" points="381.77,-15.5 391.77,-12 381.77,-8.5 381.77,-15.5"/>
+</g>
+<!-- interface~symba_setup_initialize_system -->
+<g id="interface~~symba_io_dump_particle_info~~CalledByGraph_node7" class="node">
+<title>interface~symba_setup_initialize_system</title>
+<g id="a_interface~~symba_io_dump_particle_info~~CalledByGraph_node7"><a xlink:href=".././interface/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="160,-24 0,-24 0,0 160,0 160,-24"/>
+<text text-anchor="middle" x="80" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system -->
+<g id="interface~~symba_io_dump_particle_info~~CalledByGraph_edge6" class="edge">
+<title>interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160.19,-12C168.53,-12 177.05,-12 185.5,-12"/>
+<polygon fill="#000000" stroke="#000000" points="185.75,-15.5 195.75,-12 185.75,-8.5 185.75,-15.5"/>
+</g>
+</g>
+</svg>
+</div><script>var paninterfacesymba_io_dump_particle_infoCalledByGraph = svgPanZoom('#interfacesymba_io_dump_particle_infoCalledByGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?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.47.1 (20210417.1919)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="560pt" height="32pt"
+ viewBox="0.00 0.00 559.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)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
+<!-- Subroutine -->
+<g id="node1" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
+<text text-anchor="middle" x="32" y="-9.6" 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="136,-24 82,-24 82,0 136,0 136,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" 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="209.5,-24 154.5,-24 154.5,0 209.5,0 209.5,-24"/>
+<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+</g>
+<!-- Unknown Procedure Type -->
+<g id="node4" class="node">
+<title>Unknown Procedure Type</title>
+<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,0 364,0 364,-24"/>
+<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,0 436,0 436,-24"/>
+<text text-anchor="middle" x="409" y="-9.6" 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="551.5,-24 454.5,-24 454.5,0 551.5,0 551.5,-24"/>
+<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a procedure to one which it calls. Dashed 
+    arrows point from an interface to procedures which implement that interface.
+    This could include the module procedures in a generic interface or the
+    implementation in a submodule of an interface in a parent module.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+     
     
     <br>
     
       <h2>
-public module subroutine symba_io_dump_particle_info(self, param, msg)
+public module subroutine symba_io_dump_particle_info(system, param, lincludecb, tpidx, plidx)
     
     
    
@@ -346,12 +534,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~87"></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" id="variable-system~47"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system object</p></td>
   
 </tr>
 
@@ -361,12 +549,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~64"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" id="variable-param~65"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA extensions</p></td>
   
 </tr>
 
@@ -376,12 +564,42 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-msg"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-lincludecb"></span>logical,</td>
   <td>intent(in),</td>
   <td>optional</td>
   
   <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
+  <td><strong>lincludecb</strong></td><td><p>Set to true to include the central body (default is false)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-tpidx"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>tpidx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-plidx"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>plidx</strong></td><td><p>Array of massive body indices to append to the particle file</p></td>
   
 </tr>
 
diff --git a/docs/interface/symba_io_initialize_particle_info.html b/docs/interface/symba_io_initialize_particle_info.html
deleted file mode 100644
index a9e6650d7..000000000
--- a/docs/interface/symba_io_initialize_particle_info.html
+++ /dev/null
@@ -1,435 +0,0 @@
-
-<!DOCTYPE html>
-<html lang="en">
-  <head>
-    <meta charset="utf-8">
-    <meta http-equiv="X-UA-Compatible" content="IE=edge">
-    <meta name="viewport" content="width=device-width, initial-scale=1">
-   
-   <meta name="description" content="Swiftest - The Fastest Symplectic Massive Body Integrator in the West (someday, hopefully)">
-    
-    <meta name="author" content="David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott" >
-    <link rel="icon" href="../favicon.png">
-
-    <title>symba_io_initialize_particle_info &ndash; swiftest</title>
-
-    <link href="../css/bootstrap.min.css" rel="stylesheet">
-    <link href="../css/pygments.css" rel="stylesheet">
-    <link href="../css/font-awesome.min.css" rel="stylesheet">
-    <link href="../css/local.css" rel="stylesheet">
-    
-    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
-    
-    
-
-    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
-    <!--[if lt IE 9]>
-      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
-      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
-    <![endif]-->
-    
-    <script src="../js/jquery-2.1.3.min.js"></script>
-    <script src="../js/svg-pan-zoom.min.js"></script>
-
-  </head>
-
-  <body>
-
-    <!-- Fixed navbar -->
-    <nav class="navbar navbar-inverse navbar-fixed-top">
-      <div class="container">
-        <div class="navbar-header">
-          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
-            <span class="sr-only">Toggle navigation</span>
-            <span class="icon-bar"></span>
-            <span class="icon-bar"></span>
-            <span class="icon-bar"></span>
-          </button>
-          <a class="navbar-brand" href="../index.html">swiftest </a>
-        </div>
-        <div id="navbar" class="navbar-collapse collapse">
-          <ul class="nav navbar-nav">
-        
-            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
-              <a href="#" class="dropdown-toggle"
-              data-toggle="dropdown" role="button"
-              aria-haspopup="true"
-     aria-expanded="false">Contents <span class="caret"></span></a>
-        <ul class="dropdown-menu">
-          
-              
-            <li><a href="../lists/files.html">Source Files</a></li>
-        
-        
-        
-            <li><a href="../lists/modules.html">Modules</a></li>
-        
-            
-                                
-            <li><a href="../lists/procedures.html">Procedures</a></li>
-        
-        
-            <li><a href="../lists/absint.html">Abstract Interfaces</a></li>
-               
-            <li><a href="../lists/types.html">Derived Types</a></li>
-        
-        
-            <li><a href="../program/swiftest_driver.html">Program</a></li>
-      
-            </ul>
-            </li>
-
-
-<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
-
-
-
-<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
-
-
-
-<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
-
-
-<li class="visible-xs hidden-sm visible-lg"><a href="../lists/absint.html">Abstract Interfaces</a></li>
-                             
-<li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
-
-
-<li class="visible-xs hidden-sm visible-lg"><a href="../program/swiftest_driver.html">Program</a></li>
-
-          </ul>
-        
-        <form action="../search.html" class="navbar-form navbar-right" role="search">
-        <div class="form-group">
-          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
-        </div>
-<!--
-        <button type="submit" class="btn btn-default">Submit</button>
--->
-        </form>
-        
-        </div><!--/.nav-collapse -->
-      </div>
-    </nav>
-
-    <div class="container">
-    
-  
-  <div class="row">
-    <h1>symba_io_initialize_particle_info
-   <small>Interface</small>
-    
-    </h1>
-    
-    
-<div class="row">
-  <div class="col-lg-12">
-<div class="well well-sm">
-  <ul class="list-inline" style="margin-bottom:0px;display:inline">
-     
-     
-     
-     
-    
-    
-     <li><i class="fa fa-list-ol"></i>
-       <a data-toggle="tooltip"
-    data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
-     </li> 
-     
-     
-     
-    <li><i class="fa fa-code"></i><a href="../src/symba_classes.f90"> Source File</a></li>
-     
-     
-  </ul>
-  <ol class="breadcrumb in-well text-right">
-  
-    
-     <li><a href='../sourcefile/symba_classes.f90.html'>symba_classes.f90</a></li>
-    
-     <li><a href='../module/symba_classes.html'>symba_classes</a></li>
-    
-  
-     <li class="active">symba_io_initialize_particle_info</li>
-  </ol>
-</div>
-</div>
-</div>
-<script>
-  $(function () {
-  $('[data-toggle="tooltip"]').tooltip()
-  })
-</script>
-
-    
-  </div>
-  
-  <div class="row">
-    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
-    
-<div id="sidebar">
-  
-<h3>Contents</h3>
- 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-<em>None</em>
-
-
-</div>
-
-    </div>
-    
-    <div class="col-md-9" id='text'>
-    
-    
-      <h2>interface</h2>
-      
-      <br>
-    
-    <div class="panel panel-default">
-      <div class="panel-heading">
-  <h3 class="panel-title">Calls</h3>
-      </div>
-      <div class="panel-body">
-  <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.47.1 (20210417.1919)
- -->
-<!-- Title: interface~~symba_io_initialize_particle_info~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_io_initialize_particle_infoCallsGraph" width="376pt" height="32pt"
- viewBox="0.00 0.00 376.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_io_initialize_particle_info~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~symba_io_initialize_particle_info~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 372,-28 372,4 -4,4"/>
-<!-- interface~symba_io_initialize_particle_info -->
-<g id="interface~~symba_io_initialize_particle_info~~CallsGraph_node1" class="node">
-<title>interface~symba_io_initialize_particle_info</title>
-<polygon fill="none" stroke="black" points="166,-24 0,-24 0,0 166,0 166,-24"/>
-<text text-anchor="middle" x="83" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_initialize_particle_info</text>
-</g>
-<!-- proc~symba_io_initialize_particle_info -->
-<g id="interface~~symba_io_initialize_particle_info~~CallsGraph_node2" class="node">
-<title>proc~symba_io_initialize_particle_info</title>
-<g id="a_interface~~symba_io_initialize_particle_info~~CallsGraph_node2"><a xlink:href=".././proc/symba_io_initialize_particle_info.html" xlink:title="symba_io_initialize_particle_info">
-<polygon fill="#d9534f" stroke="#d9534f" points="368,-24 202,-24 202,0 368,0 368,-24"/>
-<text text-anchor="middle" x="285" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_initialize_particle_info</text>
-</a>
-</g>
-</g>
-<!-- interface~symba_io_initialize_particle_info&#45;&gt;proc~symba_io_initialize_particle_info -->
-<g id="interface~~symba_io_initialize_particle_info~~CallsGraph_edge1" class="edge">
-<title>interface~symba_io_initialize_particle_info&#45;&gt;proc~symba_io_initialize_particle_info</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.21,-12C174.56,-12 183.08,-12 191.53,-12"/>
-<polygon fill="#000000" stroke="#000000" points="191.78,-15.5 201.78,-12 191.78,-8.5 191.78,-15.5"/>
-</g>
-</g>
-</svg>
-</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
-    <p>Nodes of different colours represent the following: </p>
-    <?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.47.1 (20210417.1919)
- -->
-<!-- Title: Graph Key Pages: 1 -->
-<svg width="560pt" height="32pt"
- viewBox="0.00 0.00 559.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)">
-<title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
-<!-- Subroutine -->
-<g id="node1" class="node">
-<title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
-<text text-anchor="middle" x="32" y="-9.6" 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="136,-24 82,-24 82,0 136,0 136,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" 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="209.5,-24 154.5,-24 154.5,0 209.5,0 209.5,-24"/>
-<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
-</g>
-<!-- Unknown Procedure Type -->
-<g id="node4" class="node">
-<title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,0 364,0 364,-24"/>
-<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
-</g>
-<!-- Program -->
-<g id="node5" class="node">
-<title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,0 436,0 436,-24"/>
-<text text-anchor="middle" x="409" y="-9.6" 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="551.5,-24 454.5,-24 454.5,0 551.5,0 551.5,-24"/>
-<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
-</g>
-</g>
-</svg>
-
-    
-    <p>Solid arrows point from a procedure to one which it calls. Dashed 
-    arrows point from an interface to procedures which implement that interface.
-    This could include the module procedures in a generic interface or the
-    implementation in a submodule of an interface in a parent module.
-    </p>
-    </div></div></div></div>
-      </div>
-    </div>
-     
-     
-    
-    <br>
-    
-      <h2>
-public module subroutine symba_io_initialize_particle_info(self, param)
-    
-    
-   
-   <a href='../proc/symba_io_initialize_particle_info.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
-</h2>
-    
-
-    
-  
-
-
-    <h3>Arguments</h3>
-    
-      
-<table class="table table-striped varlist">
-<thead><tr><th>Type</th>
-<th>Intent</th><th>Optional</th>
-<th>Attributes</th><th></th><th>Name</th><th></th></thead>
-
-
-
-<tbody>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-self~90"></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA particle info object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-param~65"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-    
-    
-    
-    <br>
-
- </div>
-</div>
-
-
-    <hr>    
-    </div> <!-- /container -->
-    <footer>
-      <div class="container">
-      <div class="row">
-        <div class="col-xs-6 col-md-4"><p>&copy; 2021 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
-                                          </p></div>
-        <div class="col-xs-6 col-md-4 col-md-push-4">
-          <p class="text-right">
-            Documentation generated by 
-            <a href="https://github.com/cmacmackin/ford">FORD</a>
-            
-          </p>
-        </div>
-        <div class="col-xs-12 col-md-4 col-md-pull-4"><p class="text-center"> swiftest was developed by David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</p></div>
-      </div>
-      <br>
-      </div> <!-- /container -->    
-    </footer>
-
-    <!-- Bootstrap core JavaScript
-    ================================================== -->
-    <!-- Placed at the end of the document so the pages load faster -->
-<!--
-    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
--->
-    <script src="../js/bootstrap.min.js"></script>
-    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
-    <script src="../js/ie10-viewport-bug-workaround.js"></script>
-
-    <!-- MathJax JavaScript
-    ================================================== -->
-    <!-- Placed at the end of the document so the pages load faster -->
-    <script type="text/x-mathjax-config">
-      MathJax.Hub.Config({
-        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
-        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
-        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
-      });
-    </script>
-    
-    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
-    
-    
-    <script src="../tipuesearch/tipuesearch_content.js"></script>
-    <script src="../tipuesearch/tipuesearch_set.js"></script>
-    <script src="../tipuesearch/tipuesearch.js"></script>
-    
-    
-  </body>
-</html>
\ No newline at end of file
diff --git a/docs/interface/symba_io_param_reader.html b/docs/interface/symba_io_param_reader.html
index 942e4ac37..cbe9a275c 100644
--- a/docs/interface/symba_io_param_reader.html
+++ b/docs/interface/symba_io_param_reader.html
@@ -136,7 +136,7 @@ <h1>symba_io_param_reader
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -382,7 +382,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~88"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-self~87"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_io_param_writer.html b/docs/interface/symba_io_param_writer.html
index d8f40e376..72d40c270 100644
--- a/docs/interface/symba_io_param_writer.html
+++ b/docs/interface/symba_io_param_writer.html
@@ -136,7 +136,7 @@ <h1>symba_io_param_writer
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~89"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-self~88"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/util_valid.html b/docs/interface/symba_io_read_particle.html
similarity index 66%
rename from docs/interface/util_valid.html
rename to docs/interface/symba_io_read_particle.html
index 9fa594017..fbad60268 100644
--- a/docs/interface/util_valid.html
+++ b/docs/interface/symba_io_read_particle.html
@@ -11,7 +11,7 @@
     <meta name="author" content="David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott" >
     <link rel="icon" href="../favicon.png">
 
-    <title>util_valid &ndash; swiftest</title>
+    <title>symba_io_read_particle &ndash; swiftest</title>
 
     <link href="../css/bootstrap.min.css" rel="stylesheet">
     <link href="../css/pygments.css" rel="stylesheet">
@@ -117,7 +117,7 @@
     
   
   <div class="row">
-    <h1>util_valid
+    <h1>symba_io_read_particle
    <small>Interface</small>
     
     </h1>
@@ -136,24 +136,24 @@ <h1>util_valid
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">38 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/swiftest_classes.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/symba_classes.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
+     <li><a href='../sourcefile/symba_classes.f90.html'>symba_classes.f90</a></li>
     
-     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
+     <li><a href='../module/symba_classes.html'>symba_classes</a></li>
     
   
-     <li class="active">util_valid</li>
+     <li class="active">symba_io_read_particle</li>
   </ol>
 </div>
 </div>
@@ -219,77 +219,44 @@ <h3 class="panel-title">Calls</h3>
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
-<!-- Title: interface~~util_valid~~CallsGraph Pages: 1 -->
-<svg id="interfaceutil_validCallsGraph" width="332pt" height="74pt"
- viewBox="0.00 0.00 332.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~util_valid~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
-<title>interface~~util_valid~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 328,-70 328,4 -4,4"/>
-<!-- interface~util_valid -->
-<g id="interface~~util_valid~~CallsGraph_node1" class="node">
-<title>interface~util_valid</title>
-<polygon fill="none" stroke="black" points="54,-45 0,-45 0,-21 54,-21 54,-45"/>
-<text text-anchor="middle" x="27" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_valid</text>
-</g>
-<!-- proc~util_valid -->
-<g id="interface~~util_valid~~CallsGraph_node2" class="node">
-<title>proc~util_valid</title>
-<g id="a_interface~~util_valid~~CallsGraph_node2"><a xlink:href=".././proc/util_valid.html" xlink:title="util_valid">
-<polygon fill="#d9534f" stroke="#d9534f" points="144,-45 90,-45 90,-21 144,-21 144,-45"/>
-<text text-anchor="middle" x="117" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid</text>
-</a>
-</g>
-</g>
-<!-- interface~util_valid&#45;&gt;proc~util_valid -->
-<g id="interface~~util_valid~~CallsGraph_edge1" class="edge">
-<title>interface~util_valid&#45;&gt;proc~util_valid</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M54.4,-33C62.39,-33 71.31,-33 79.82,-33"/>
-<polygon fill="#000000" stroke="#000000" points="79.92,-36.5 89.92,-33 79.92,-29.5 79.92,-36.5"/>
-</g>
-<!-- interface~util_exit -->
-<g id="interface~~util_valid~~CallsGraph_node3" class="node">
-<title>interface~util_exit</title>
-<g id="a_interface~~util_valid~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" points="234,-66 180,-66 180,-42 234,-42 234,-66"/>
-<text text-anchor="middle" x="207" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
-</a>
-</g>
-</g>
-<!-- proc~util_valid&#45;&gt;interface~util_exit -->
-<g id="interface~~util_valid~~CallsGraph_edge2" class="edge">
-<title>proc~util_valid&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M144.4,-39.3C152.48,-41.23 161.51,-43.38 170.1,-45.43"/>
-<polygon fill="#000000" stroke="#000000" points="169.38,-48.86 179.92,-47.78 171,-42.05 169.38,-48.86"/>
-</g>
-<!-- interface~util_sort -->
-<g id="interface~~util_valid~~CallsGraph_node4" class="node">
-<title>interface~util_sort</title>
-<g id="a_interface~~util_valid~~CallsGraph_node4"><a xlink:href=".././interface/util_sort.html" xlink:title="util_sort">
-<polygon fill="#a7506f" stroke="#a7506f" points="234,-24 180,-24 180,0 234,0 234,-24"/>
-<text text-anchor="middle" x="207" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort</text>
+<!-- Title: interface~~symba_io_read_particle~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_io_read_particleCallsGraph" width="388pt" height="32pt"
+ viewBox="0.00 0.00 388.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_io_read_particle~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~symba_io_read_particle~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 384,-28 384,4 -4,4"/>
+<!-- interface~symba_io_read_particle -->
+<g id="interface~~symba_io_read_particle~~CallsGraph_node1" class="node">
+<title>interface~symba_io_read_particle</title>
+<polygon fill="none" stroke="black" points="127,-24 0,-24 0,0 127,0 127,-24"/>
+<text text-anchor="middle" x="63.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_read_particle</text>
+</g>
+<!-- proc~symba_io_read_particle -->
+<g id="interface~~symba_io_read_particle~~CallsGraph_node2" class="node">
+<title>proc~symba_io_read_particle</title>
+<g id="a_interface~~symba_io_read_particle~~CallsGraph_node2"><a xlink:href=".././proc/symba_io_read_particle.html" xlink:title="symba_io_read_particle">
+<polygon fill="#d9534f" stroke="#d9534f" points="290,-24 163,-24 163,0 290,0 290,-24"/>
+<text text-anchor="middle" x="226.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_read_particle</text>
 </a>
 </g>
 </g>
-<!-- proc~util_valid&#45;&gt;interface~util_sort -->
-<g id="interface~~util_valid~~CallsGraph_edge3" class="edge">
-<title>proc~util_valid&#45;&gt;interface~util_sort</title>
-<path fill="none" stroke="#000000" d="M144.4,-26.7C152.48,-24.77 161.51,-22.62 170.1,-20.57"/>
-<polygon fill="#000000" stroke="#000000" points="171,-23.95 179.92,-18.22 169.38,-17.14 171,-23.95"/>
-</g>
-<!-- proc~util_exit -->
-<g id="interface~~util_valid~~CallsGraph_node5" class="node">
-<title>proc~util_exit</title>
-<g id="a_interface~~util_valid~~CallsGraph_node5"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" points="324,-66 270,-66 270,-42 324,-42 324,-66"/>
-<text text-anchor="middle" x="297" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
-</a>
+<!-- interface~symba_io_read_particle&#45;&gt;proc~symba_io_read_particle -->
+<g id="interface~~symba_io_read_particle~~CallsGraph_edge1" class="edge">
+<title>interface~symba_io_read_particle&#45;&gt;proc~symba_io_read_particle</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M127.21,-12C135.65,-12 144.36,-12 152.96,-12"/>
+<polygon fill="#000000" stroke="#000000" points="152.96,-15.5 162.96,-12 152.96,-8.5 152.96,-15.5"/>
 </g>
+<!-- util_exit -->
+<g id="interface~~symba_io_read_particle~~CallsGraph_node3" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="380,-24 326,-24 326,0 380,0 380,-24"/>
+<text text-anchor="middle" x="353" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- interface~util_exit&#45;&gt;proc~util_exit -->
-<g id="interface~~util_valid~~CallsGraph_edge4" class="edge">
-<title>interface~util_exit&#45;&gt;proc~util_exit</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M234.4,-54C242.39,-54 251.31,-54 259.82,-54"/>
-<polygon fill="#000000" stroke="#000000" points="259.92,-57.5 269.92,-54 259.92,-50.5 259.92,-57.5"/>
+<!-- proc~symba_io_read_particle&#45;&gt;util_exit -->
+<g id="interface~~symba_io_read_particle~~CallsGraph_edge2" class="edge">
+<title>proc~symba_io_read_particle&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M290.11,-12C298.87,-12 307.62,-12 315.66,-12"/>
+<polygon fill="#000000" stroke="#000000" points="315.78,-15.5 325.78,-12 315.78,-8.5 315.78,-15.5"/>
 </g>
 </g>
 </svg>
@@ -366,47 +333,47 @@ <h3 class="panel-title">Called by</h3>
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
-<!-- Title: interface~~util_valid~~CalledByGraph Pages: 1 -->
-<svg id="interfaceutil_validCalledByGraph" width="378pt" height="32pt"
- viewBox="0.00 0.00 378.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~util_valid~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~util_valid~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 374,-28 374,4 -4,4"/>
-<!-- interface~util_valid -->
-<g id="interface~~util_valid~~CalledByGraph_node1" class="node">
-<title>interface~util_valid</title>
-<polygon fill="none" stroke="black" points="370,-24 316,-24 316,0 370,0 370,-24"/>
-<text text-anchor="middle" x="343" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_valid</text>
-</g>
-<!-- proc~setup_initialize_system -->
-<g id="interface~~util_valid~~CalledByGraph_node2" class="node">
-<title>proc~setup_initialize_system</title>
-<g id="a_interface~~util_valid~~CalledByGraph_node2"><a xlink:href=".././proc/setup_initialize_system.html" xlink:title="setup_initialize_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="280,-24 158,-24 158,0 280,0 280,-24"/>
-<text text-anchor="middle" x="219" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
+<!-- Title: interface~~symba_io_read_particle~~CalledByGraph Pages: 1 -->
+<svg id="interfacesymba_io_read_particleCalledByGraph" width="527pt" height="32pt"
+ viewBox="0.00 0.00 527.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_io_read_particle~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~symba_io_read_particle~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 523,-28 523,4 -4,4"/>
+<!-- interface~symba_io_read_particle -->
+<g id="interface~~symba_io_read_particle~~CalledByGraph_node1" class="node">
+<title>interface~symba_io_read_particle</title>
+<polygon fill="none" stroke="black" points="519,-24 392,-24 392,0 519,0 519,-24"/>
+<text text-anchor="middle" x="455.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_read_particle</text>
+</g>
+<!-- proc~symba_setup_initialize_system -->
+<g id="interface~~symba_io_read_particle~~CalledByGraph_node2" class="node">
+<title>proc~symba_setup_initialize_system</title>
+<g id="a_interface~~symba_io_read_particle~~CalledByGraph_node2"><a xlink:href=".././proc/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="356,-24 196,-24 196,0 356,0 356,-24"/>
+<text text-anchor="middle" x="276" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
 </a>
 </g>
 </g>
-<!-- proc~setup_initialize_system&#45;&gt;interface~util_valid -->
-<g id="interface~~util_valid~~CalledByGraph_edge1" class="edge">
-<title>proc~setup_initialize_system&#45;&gt;interface~util_valid</title>
-<path fill="none" stroke="#000000" d="M280.29,-12C288.97,-12 297.67,-12 305.69,-12"/>
-<polygon fill="#000000" stroke="#000000" points="305.77,-15.5 315.77,-12 305.77,-8.5 305.77,-15.5"/>
+<!-- proc~symba_setup_initialize_system&#45;&gt;interface~symba_io_read_particle -->
+<g id="interface~~symba_io_read_particle~~CalledByGraph_edge1" class="edge">
+<title>proc~symba_setup_initialize_system&#45;&gt;interface~symba_io_read_particle</title>
+<path fill="none" stroke="#000000" d="M356.15,-12C364.62,-12 373.22,-12 381.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="381.75,-15.5 391.75,-12 381.75,-8.5 381.75,-15.5"/>
 </g>
-<!-- interface~setup_initialize_system -->
-<g id="interface~~util_valid~~CalledByGraph_node3" class="node">
-<title>interface~setup_initialize_system</title>
-<g id="a_interface~~util_valid~~CalledByGraph_node3"><a xlink:href=".././interface/setup_initialize_system.html" xlink:title="setup_initialize_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="122,-24 0,-24 0,0 122,0 122,-24"/>
-<text text-anchor="middle" x="61" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
+<!-- interface~symba_setup_initialize_system -->
+<g id="interface~~symba_io_read_particle~~CalledByGraph_node3" class="node">
+<title>interface~symba_setup_initialize_system</title>
+<g id="a_interface~~symba_io_read_particle~~CalledByGraph_node3"><a xlink:href=".././interface/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="160,-24 0,-24 0,0 160,0 160,-24"/>
+<text text-anchor="middle" x="80" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_initialize_system&#45;&gt;proc~setup_initialize_system -->
-<g id="interface~~util_valid~~CalledByGraph_edge2" class="edge">
-<title>interface~setup_initialize_system&#45;&gt;proc~setup_initialize_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.31,-12C130.6,-12 139.17,-12 147.63,-12"/>
-<polygon fill="#000000" stroke="#000000" points="147.85,-15.5 157.85,-12 147.85,-8.5 147.85,-15.5"/>
+<!-- interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system -->
+<g id="interface~~symba_io_read_particle~~CalledByGraph_edge2" class="edge">
+<title>interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160.19,-12C168.53,-12 177.05,-12 185.5,-12"/>
+<polygon fill="#000000" stroke="#000000" points="185.75,-15.5 195.75,-12 185.75,-8.5 185.75,-15.5"/>
 </g>
 </g>
 </svg>
@@ -476,11 +443,11 @@ <h3 class="panel-title">Called by</h3>
     <br>
     
       <h2>
-public module subroutine util_valid(pl, tp)
+public module subroutine symba_io_read_particle(system, param)
     
     
    
-   <a href='../proc/util_valid.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_io_read_particle.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -507,12 +474,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl~10"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" id="variable-system~48"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>pl</strong></td><td></td>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system file</p></td>
   
 </tr>
 
@@ -522,12 +489,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-tp~5"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" id="variable-param~66"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>tp</strong></td><td></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA extensions</p></td>
   
 </tr>
 
diff --git a/docs/interface/symba_io_write_discard.html b/docs/interface/symba_io_write_discard.html
index 93021133b..8dfd05162 100644
--- a/docs/interface/symba_io_write_discard.html
+++ b/docs/interface/symba_io_write_discard.html
@@ -136,7 +136,7 @@ <h1>symba_io_write_discard
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~63"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~64"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_kick_getacch_pl.html b/docs/interface/symba_kick_getacch_pl.html
index bcdcaea4e..668db1e1b 100644
--- a/docs/interface/symba_kick_getacch_pl.html
+++ b/docs/interface/symba_kick_getacch_pl.html
@@ -136,7 +136,7 @@ <h1>symba_kick_getacch_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~92"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~89"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~46"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~49"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_kick_getacch_tp.html b/docs/interface/symba_kick_getacch_tp.html
index c32e36e22..53cc9ab5a 100644
--- a/docs/interface/symba_kick_getacch_tp.html
+++ b/docs/interface/symba_kick_getacch_tp.html
@@ -136,7 +136,7 @@ <h1>symba_kick_getacch_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~93"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~90"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~47"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~50"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_kick_pltpenc.html b/docs/interface/symba_kick_pltpenc.html
index e4ae9566e..2258630b4 100644
--- a/docs/interface/symba_kick_pltpenc.html
+++ b/docs/interface/symba_kick_pltpenc.html
@@ -136,7 +136,7 @@ <h1>symba_kick_pltpenc
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -370,7 +370,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~94"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" id="variable-self~91"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -385,7 +385,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~48"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~51"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_setup_initialize_particle_info.html b/docs/interface/symba_setup_initialize_particle_info.html
new file mode 100644
index 000000000..961a8ea27
--- /dev/null
+++ b/docs/interface/symba_setup_initialize_particle_info.html
@@ -0,0 +1,593 @@
+
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   
+   <meta name="description" content="Swiftest - The Fastest Symplectic Massive Body Integrator in the West (someday, hopefully)">
+    
+    <meta name="author" content="David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>symba_setup_initialize_particle_info &ndash; swiftest</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+    
+    
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">swiftest </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+        
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+          
+              
+            <li><a href="../lists/files.html">Source Files</a></li>
+        
+        
+        
+            <li><a href="../lists/modules.html">Modules</a></li>
+        
+            
+                                
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+        
+        
+            <li><a href="../lists/absint.html">Abstract Interfaces</a></li>
+               
+            <li><a href="../lists/types.html">Derived Types</a></li>
+        
+        
+            <li><a href="../program/swiftest_driver.html">Program</a></li>
+      
+            </ul>
+            </li>
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/absint.html">Abstract Interfaces</a></li>
+                             
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../program/swiftest_driver.html">Program</a></li>
+
+          </ul>
+        
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+    
+  
+  <div class="row">
+    <h1>symba_setup_initialize_particle_info
+   <small>Interface</small>
+    
+    </h1>
+    
+    
+<div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+     
+     
+     
+     
+    
+    
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title=" 0.6% of total for procedures.">264 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/symba_classes.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/symba_classes.f90.html'>symba_classes.f90</a></li>
+    
+     <li><a href='../module/symba_classes.html'>symba_classes</a></li>
+    
+  
+     <li class="active">symba_setup_initialize_particle_info</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+    
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    
+<div id="sidebar">
+  
+<h3>Contents</h3>
+ 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<em>None</em>
+
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+    
+    
+      <h2>interface</h2>
+      
+      <br>
+    
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Calls</h3>
+      </div>
+      <div class="panel-body">
+  <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.47.1 (20210417.1919)
+ -->
+<!-- Title: interface~~symba_setup_initialize_particle_info~~CallsGraph Pages: 1 -->
+<svg id="interfacesymba_setup_initialize_particle_infoCallsGraph" width="641pt" height="23pt"
+ viewBox="0.00 0.00 641.00 23.20" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_setup_initialize_particle_info~~CallsGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 28)">
+<title>interface~~symba_setup_initialize_particle_info~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 880,-28 880,4 -4,4"/>
+<!-- interface~symba_setup_initialize_particle_info -->
+<g id="interface~~symba_setup_initialize_particle_info~~CallsGraph_node1" class="node">
+<title>interface~symba_setup_initialize_particle_info</title>
+<polygon fill="none" stroke="black" points="184,-24 0,-24 0,0 184,0 184,-24"/>
+<text text-anchor="middle" x="92" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_setup_initialize_particle_info</text>
+</g>
+<!-- proc~symba_setup_initialize_particle_info -->
+<g id="interface~~symba_setup_initialize_particle_info~~CallsGraph_node2" class="node">
+<title>proc~symba_setup_initialize_particle_info</title>
+<g id="a_interface~~symba_setup_initialize_particle_info~~CallsGraph_node2"><a xlink:href=".././proc/symba_setup_initialize_particle_info.html" xlink:title="symba_setup_initialize_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="404,-24 220,-24 220,0 404,0 404,-24"/>
+<text text-anchor="middle" x="312" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_setup_initialize_particle_info&#45;&gt;proc~symba_setup_initialize_particle_info -->
+<g id="interface~~symba_setup_initialize_particle_info~~CallsGraph_edge1" class="edge">
+<title>interface~symba_setup_initialize_particle_info&#45;&gt;proc~symba_setup_initialize_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M184.19,-12C192.57,-12 201.09,-12 209.55,-12"/>
+<polygon fill="#000000" stroke="#000000" points="209.83,-15.5 219.83,-12 209.83,-8.5 209.83,-15.5"/>
+</g>
+<!-- interface~symba_io_dump_particle_info -->
+<g id="interface~~symba_setup_initialize_particle_info~~CallsGraph_node3" class="node">
+<title>interface~symba_io_dump_particle_info</title>
+<g id="a_interface~~symba_setup_initialize_particle_info~~CallsGraph_node3"><a xlink:href=".././interface/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="595,-24 440,-24 440,0 595,0 595,-24"/>
+<text text-anchor="middle" x="517.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_setup_initialize_particle_info&#45;&gt;interface~symba_io_dump_particle_info -->
+<g id="interface~~symba_setup_initialize_particle_info~~CallsGraph_edge2" class="edge">
+<title>proc~symba_setup_initialize_particle_info&#45;&gt;interface~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" d="M404.04,-12C412.54,-12 421.14,-12 429.6,-12"/>
+<polygon fill="#000000" stroke="#000000" points="429.84,-15.5 439.84,-12 429.84,-8.5 429.84,-15.5"/>
+</g>
+<!-- proc~symba_io_dump_particle_info -->
+<g id="interface~~symba_setup_initialize_particle_info~~CallsGraph_node4" class="node">
+<title>proc~symba_io_dump_particle_info</title>
+<g id="a_interface~~symba_setup_initialize_particle_info~~CallsGraph_node4"><a xlink:href=".././proc/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="786,-24 631,-24 631,0 786,0 786,-24"/>
+<text text-anchor="middle" x="708.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info -->
+<g id="interface~~symba_setup_initialize_particle_info~~CallsGraph_edge3" class="edge">
+<title>interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.1,-12C603.56,-12 612.22,-12 620.79,-12"/>
+<polygon fill="#000000" stroke="#000000" points="620.79,-15.5 630.79,-12 620.79,-8.5 620.79,-15.5"/>
+</g>
+<!-- util_exit -->
+<g id="interface~~symba_setup_initialize_particle_info~~CallsGraph_node5" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="876,-24 822,-24 822,0 876,0 876,-24"/>
+<text text-anchor="middle" x="849" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~symba_io_dump_particle_info&#45;&gt;util_exit -->
+<g id="interface~~symba_setup_initialize_particle_info~~CallsGraph_edge4" class="edge">
+<title>proc~symba_io_dump_particle_info&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M786.04,-12C795,-12 803.8,-12 811.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="811.87,-15.5 821.87,-12 811.87,-8.5 811.87,-15.5"/>
+</g>
+</g>
+</svg>
+</div><script>var paninterfacesymba_setup_initialize_particle_infoCallsGraph = svgPanZoom('#interfacesymba_setup_initialize_particle_infoCallsGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?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.47.1 (20210417.1919)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="560pt" height="32pt"
+ viewBox="0.00 0.00 559.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)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
+<!-- Subroutine -->
+<g id="node1" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
+<text text-anchor="middle" x="32" y="-9.6" 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="136,-24 82,-24 82,0 136,0 136,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" 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="209.5,-24 154.5,-24 154.5,0 209.5,0 209.5,-24"/>
+<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+</g>
+<!-- Unknown Procedure Type -->
+<g id="node4" class="node">
+<title>Unknown Procedure Type</title>
+<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,0 364,0 364,-24"/>
+<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,0 436,0 436,-24"/>
+<text text-anchor="middle" x="409" y="-9.6" 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="551.5,-24 454.5,-24 454.5,0 551.5,0 551.5,-24"/>
+<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a procedure to one which it calls. Dashed 
+    arrows point from an interface to procedures which implement that interface.
+    This could include the module procedures in a generic interface or the
+    implementation in a submodule of an interface in a parent module.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+     
+     
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Called by</h3>
+      </div>
+      <div class="panel-body">
+  <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.47.1 (20210417.1919)
+ -->
+<!-- Title: interface~~symba_setup_initialize_particle_info~~CalledByGraph Pages: 1 -->
+<svg id="interfacesymba_setup_initialize_particle_infoCalledByGraph" width="584pt" height="32pt"
+ viewBox="0.00 0.00 584.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_setup_initialize_particle_info~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~symba_setup_initialize_particle_info~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 580,-28 580,4 -4,4"/>
+<!-- interface~symba_setup_initialize_particle_info -->
+<g id="interface~~symba_setup_initialize_particle_info~~CalledByGraph_node1" class="node">
+<title>interface~symba_setup_initialize_particle_info</title>
+<polygon fill="none" stroke="black" points="576,-24 392,-24 392,0 576,0 576,-24"/>
+<text text-anchor="middle" x="484" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_setup_initialize_particle_info</text>
+</g>
+<!-- proc~symba_setup_initialize_system -->
+<g id="interface~~symba_setup_initialize_particle_info~~CalledByGraph_node2" class="node">
+<title>proc~symba_setup_initialize_system</title>
+<g id="a_interface~~symba_setup_initialize_particle_info~~CalledByGraph_node2"><a xlink:href=".././proc/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="356,-24 196,-24 196,0 356,0 356,-24"/>
+<text text-anchor="middle" x="276" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_setup_initialize_system&#45;&gt;interface~symba_setup_initialize_particle_info -->
+<g id="interface~~symba_setup_initialize_particle_info~~CalledByGraph_edge1" class="edge">
+<title>proc~symba_setup_initialize_system&#45;&gt;interface~symba_setup_initialize_particle_info</title>
+<path fill="none" stroke="#000000" d="M356.06,-12C364.46,-12 373.08,-12 381.69,-12"/>
+<polygon fill="#000000" stroke="#000000" points="381.77,-15.5 391.77,-12 381.77,-8.5 381.77,-15.5"/>
+</g>
+<!-- interface~symba_setup_initialize_system -->
+<g id="interface~~symba_setup_initialize_particle_info~~CalledByGraph_node3" class="node">
+<title>interface~symba_setup_initialize_system</title>
+<g id="a_interface~~symba_setup_initialize_particle_info~~CalledByGraph_node3"><a xlink:href=".././interface/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="160,-24 0,-24 0,0 160,0 160,-24"/>
+<text text-anchor="middle" x="80" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system -->
+<g id="interface~~symba_setup_initialize_particle_info~~CalledByGraph_edge2" class="edge">
+<title>interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160.19,-12C168.53,-12 177.05,-12 185.5,-12"/>
+<polygon fill="#000000" stroke="#000000" points="185.75,-15.5 195.75,-12 185.75,-8.5 185.75,-15.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?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.47.1 (20210417.1919)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="560pt" height="32pt"
+ viewBox="0.00 0.00 559.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)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
+<!-- Subroutine -->
+<g id="node1" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
+<text text-anchor="middle" x="32" y="-9.6" 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="136,-24 82,-24 82,0 136,0 136,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" 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="209.5,-24 154.5,-24 154.5,0 209.5,0 209.5,-24"/>
+<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+</g>
+<!-- Unknown Procedure Type -->
+<g id="node4" class="node">
+<title>Unknown Procedure Type</title>
+<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,0 364,0 364,-24"/>
+<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,0 436,0 436,-24"/>
+<text text-anchor="middle" x="409" y="-9.6" 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="551.5,-24 454.5,-24 454.5,0 551.5,0 551.5,-24"/>
+<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a procedure to one which it calls. Dashed 
+    arrows point from an interface to procedures which implement that interface.
+    This could include the module procedures in a generic interface or the
+    implementation in a submodule of an interface in a parent module.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+     
+    
+    <br>
+    
+      <h2>
+public module subroutine symba_setup_initialize_particle_info(system, param)
+    
+    
+   
+   <a href='../proc/symba_setup_initialize_particle_info.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h2>
+    
+
+    
+  
+
+
+    <h3>Arguments</h3>
+    
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~52"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~69"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA extensions</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    <br>
+
+ </div>
+</div>
+
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-4"><p>&copy; 2021 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+                                          </p></div>
+        <div class="col-xs-6 col-md-4 col-md-push-4">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/cmacmackin/ford">FORD</a>
+            
+          </p>
+        </div>
+        <div class="col-xs-12 col-md-4 col-md-pull-4"><p class="text-center"> swiftest was developed by David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</p></div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/docs/interface/symba_setup_initialize_system.html b/docs/interface/symba_setup_initialize_system.html
index 038e8dbea..24a2161c8 100644
--- a/docs/interface/symba_setup_initialize_system.html
+++ b/docs/interface/symba_setup_initialize_system.html
@@ -136,7 +136,7 @@ <h1>symba_setup_initialize_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -220,47 +220,155 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~symba_setup_initialize_system~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_setup_initialize_systemCallsGraph" width="551pt" height="32pt"
- viewBox="0.00 0.00 551.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_setup_initialize_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="interfacesymba_setup_initialize_systemCallsGraph" width="641pt" height="58pt"
+ viewBox="0.00 0.00 641.00 58.27" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_setup_initialize_system~~CallsGraph" class="graph" transform="scale(0.5 0.5) rotate(0) translate(4 112)">
 <title>interface~~symba_setup_initialize_system~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 547,-28 547,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 1272,-112 1272,4 -4,4"/>
 <!-- interface~symba_setup_initialize_system -->
 <g id="interface~~symba_setup_initialize_system~~CallsGraph_node1" class="node">
 <title>interface~symba_setup_initialize_system</title>
-<polygon fill="none" stroke="black" points="160,-24 0,-24 0,0 160,0 160,-24"/>
-<text text-anchor="middle" x="80" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_setup_initialize_system</text>
+<polygon fill="none" stroke="black" points="160,-66 0,-66 0,-42 160,-42 160,-66"/>
+<text text-anchor="middle" x="80" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_setup_initialize_system</text>
 </g>
 <!-- proc~symba_setup_initialize_system -->
 <g id="interface~~symba_setup_initialize_system~~CallsGraph_node2" class="node">
 <title>proc~symba_setup_initialize_system</title>
 <g id="a_interface~~symba_setup_initialize_system~~CallsGraph_node2"><a xlink:href=".././proc/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="356,-24 196,-24 196,0 356,0 356,-24"/>
-<text text-anchor="middle" x="276" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="356,-66 196,-66 196,-42 356,-42 356,-66"/>
+<text text-anchor="middle" x="276" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system -->
 <g id="interface~~symba_setup_initialize_system~~CallsGraph_edge1" class="edge">
 <title>interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160.19,-12C168.53,-12 177.05,-12 185.5,-12"/>
-<polygon fill="#000000" stroke="#000000" points="185.75,-15.5 195.75,-12 185.75,-8.5 185.75,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160.19,-54C168.53,-54 177.05,-54 185.5,-54"/>
+<polygon fill="#000000" stroke="#000000" points="185.75,-57.5 195.75,-54 185.75,-50.5 185.75,-57.5"/>
 </g>
 <!-- whm_setup_initialize_system -->
 <g id="interface~~symba_setup_initialize_system~~CallsGraph_node3" class="node">
 <title>whm_setup_initialize_system</title>
-<polygon fill="#777777" stroke="#777777" points="543,-24 392,-24 392,0 543,0 543,-24"/>
-<text text-anchor="middle" x="467.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_initialize_system</text>
+<polygon fill="#777777" stroke="#777777" points="559.5,-108 408.5,-108 408.5,-84 559.5,-84 559.5,-108"/>
+<text text-anchor="middle" x="484" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_initialize_system</text>
 </g>
 <!-- proc~symba_setup_initialize_system&#45;&gt;whm_setup_initialize_system -->
 <g id="interface~~symba_setup_initialize_system~~CallsGraph_edge2" class="edge">
 <title>proc~symba_setup_initialize_system&#45;&gt;whm_setup_initialize_system</title>
-<path fill="none" stroke="#000000" d="M356.27,-12C364.63,-12 373.16,-12 381.59,-12"/>
-<polygon fill="#000000" stroke="#000000" points="381.79,-15.5 391.79,-12 381.79,-8.5 381.79,-15.5"/>
+<path fill="none" stroke="#000000" d="M336.03,-66.04C360.38,-71 388.77,-76.79 414.07,-81.95"/>
+<polygon fill="#000000" stroke="#000000" points="413.46,-85.39 423.96,-83.96 414.86,-78.54 413.46,-85.39"/>
+</g>
+<!-- interface~symba_io_read_particle -->
+<g id="interface~~symba_setup_initialize_system~~CallsGraph_node4" class="node">
+<title>interface~symba_io_read_particle</title>
+<g id="a_interface~~symba_setup_initialize_system~~CallsGraph_node4"><a xlink:href=".././interface/symba_io_read_particle.html" xlink:title="symba_io_read_particle">
+<polygon fill="#a7506f" stroke="#a7506f" points="547.5,-66 420.5,-66 420.5,-42 547.5,-42 547.5,-66"/>
+<text text-anchor="middle" x="484" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_read_particle</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_setup_initialize_system&#45;&gt;interface~symba_io_read_particle -->
+<g id="interface~~symba_setup_initialize_system~~CallsGraph_edge3" class="edge">
+<title>proc~symba_setup_initialize_system&#45;&gt;interface~symba_io_read_particle</title>
+<path fill="none" stroke="#000000" d="M356.06,-54C373.89,-54 392.73,-54 410.29,-54"/>
+<polygon fill="#000000" stroke="#000000" points="410.46,-57.5 420.46,-54 410.46,-50.5 410.46,-57.5"/>
+</g>
+<!-- interface~symba_setup_initialize_particle_info -->
+<g id="interface~~symba_setup_initialize_system~~CallsGraph_node5" class="node">
+<title>interface~symba_setup_initialize_particle_info</title>
+<g id="a_interface~~symba_setup_initialize_system~~CallsGraph_node5"><a xlink:href=".././interface/symba_setup_initialize_particle_info.html" xlink:title="symba_setup_initialize_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="576,-24 392,-24 392,0 576,0 576,-24"/>
+<text text-anchor="middle" x="484" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_particle_info</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_setup_initialize_system&#45;&gt;interface~symba_setup_initialize_particle_info -->
+<g id="interface~~symba_setup_initialize_system~~CallsGraph_edge4" class="edge">
+<title>proc~symba_setup_initialize_system&#45;&gt;interface~symba_setup_initialize_particle_info</title>
+<path fill="none" stroke="#000000" d="M336.03,-41.96C360.38,-37 388.77,-31.21 414.07,-26.05"/>
+<polygon fill="#000000" stroke="#000000" points="414.86,-29.46 423.96,-24.04 413.46,-22.61 414.86,-29.46"/>
+</g>
+<!-- proc~symba_io_read_particle -->
+<g id="interface~~symba_setup_initialize_system~~CallsGraph_node7" class="node">
+<title>proc~symba_io_read_particle</title>
+<g id="a_interface~~symba_setup_initialize_system~~CallsGraph_node7"><a xlink:href=".././proc/symba_io_read_particle.html" xlink:title="symba_io_read_particle">
+<polygon fill="#d9534f" stroke="#d9534f" points="973,-66 846,-66 846,-42 973,-42 973,-66"/>
+<text text-anchor="middle" x="909.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_read_particle</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_io_read_particle&#45;&gt;proc~symba_io_read_particle -->
+<g id="interface~~symba_setup_initialize_system~~CallsGraph_edge5" class="edge">
+<title>interface~symba_io_read_particle&#45;&gt;proc~symba_io_read_particle</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.94,-54C624.84,-54 754.68,-54 835.77,-54"/>
+<polygon fill="#000000" stroke="#000000" points="835.9,-57.5 845.9,-54 835.9,-50.5 835.9,-57.5"/>
+</g>
+<!-- proc~symba_setup_initialize_particle_info -->
+<g id="interface~~symba_setup_initialize_system~~CallsGraph_node6" class="node">
+<title>proc~symba_setup_initialize_particle_info</title>
+<g id="a_interface~~symba_setup_initialize_system~~CallsGraph_node6"><a xlink:href=".././proc/symba_setup_initialize_particle_info.html" xlink:title="symba_setup_initialize_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="796,-24 612,-24 612,0 796,0 796,-24"/>
+<text text-anchor="middle" x="704" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_setup_initialize_particle_info&#45;&gt;proc~symba_setup_initialize_particle_info -->
+<g id="interface~~symba_setup_initialize_system~~CallsGraph_edge6" class="edge">
+<title>interface~symba_setup_initialize_particle_info&#45;&gt;proc~symba_setup_initialize_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M576.19,-12C584.57,-12 593.09,-12 601.55,-12"/>
+<polygon fill="#000000" stroke="#000000" points="601.83,-15.5 611.83,-12 601.83,-8.5 601.83,-15.5"/>
+</g>
+<!-- interface~symba_io_dump_particle_info -->
+<g id="interface~~symba_setup_initialize_system~~CallsGraph_node9" class="node">
+<title>interface~symba_io_dump_particle_info</title>
+<g id="a_interface~~symba_setup_initialize_system~~CallsGraph_node9"><a xlink:href=".././interface/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="987,-24 832,-24 832,0 987,0 987,-24"/>
+<text text-anchor="middle" x="909.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_setup_initialize_particle_info&#45;&gt;interface~symba_io_dump_particle_info -->
+<g id="interface~~symba_setup_initialize_system~~CallsGraph_edge7" class="edge">
+<title>proc~symba_setup_initialize_particle_info&#45;&gt;interface~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" d="M796.04,-12C804.54,-12 813.14,-12 821.6,-12"/>
+<polygon fill="#000000" stroke="#000000" points="821.84,-15.5 831.84,-12 821.84,-8.5 821.84,-15.5"/>
+</g>
+<!-- util_exit -->
+<g id="interface~~symba_setup_initialize_system~~CallsGraph_node8" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="1268,-45 1214,-45 1214,-21 1268,-21 1268,-45"/>
+<text text-anchor="middle" x="1241" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~symba_io_read_particle&#45;&gt;util_exit -->
+<g id="interface~~symba_setup_initialize_system~~CallsGraph_edge8" class="edge">
+<title>proc~symba_io_read_particle&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M973.25,-50C1041.49,-45.65 1148.21,-38.85 1203.72,-35.31"/>
+<polygon fill="#000000" stroke="#000000" points="1204.03,-38.8 1213.79,-34.67 1203.59,-31.81 1204.03,-38.8"/>
+</g>
+<!-- proc~symba_io_dump_particle_info -->
+<g id="interface~~symba_setup_initialize_system~~CallsGraph_node10" class="node">
+<title>proc~symba_io_dump_particle_info</title>
+<g id="a_interface~~symba_setup_initialize_system~~CallsGraph_node10"><a xlink:href=".././proc/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="1178,-25 1023,-25 1023,-1 1178,-1 1178,-25"/>
+<text text-anchor="middle" x="1100.5" y="-10.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info -->
+<g id="interface~~symba_setup_initialize_system~~CallsGraph_edge9" class="edge">
+<title>interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M987.1,-12.41C995.56,-12.45 1004.22,-12.5 1012.79,-12.54"/>
+<polygon fill="#000000" stroke="#000000" points="1012.77,-16.04 1022.79,-12.59 1012.81,-9.04 1012.77,-16.04"/>
+</g>
+<!-- proc~symba_io_dump_particle_info&#45;&gt;util_exit -->
+<g id="interface~~symba_setup_initialize_system~~CallsGraph_edge10" class="edge">
+<title>proc~symba_io_dump_particle_info&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1178.04,-24.05C1187,-25.35 1195.8,-26.62 1203.82,-27.78"/>
+<polygon fill="#000000" stroke="#000000" points="1203.47,-31.26 1213.87,-29.23 1204.47,-24.33 1203.47,-31.26"/>
 </g>
 </g>
 </svg>
-</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+</div><script>var paninterfacesymba_setup_initialize_systemCallsGraph = svgPanZoom('#interfacesymba_setup_initialize_systemCallsGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
     <p>Nodes of different colours represent the following: </p>
     <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
@@ -358,7 +466,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~96"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~92"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_setup_merger.html b/docs/interface/symba_setup_merger.html
index 3f10d0076..9e9b0447e 100644
--- a/docs/interface/symba_setup_merger.html
+++ b/docs/interface/symba_setup_merger.html
@@ -136,7 +136,7 @@ <h1>symba_setup_merger
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -388,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~97"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
+  <td><span class="anchor" id="variable-self~93"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_setup_pl.html b/docs/interface/symba_setup_pl.html
index 54c2c734c..0ccfb4baa 100644
--- a/docs/interface/symba_setup_pl.html
+++ b/docs/interface/symba_setup_pl.html
@@ -136,7 +136,7 @@ <h1>symba_setup_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -474,7 +474,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~98"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~94"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_setup_pltpenc.html b/docs/interface/symba_setup_pltpenc.html
index c74a76098..71809dd79 100644
--- a/docs/interface/symba_setup_pltpenc.html
+++ b/docs/interface/symba_setup_pltpenc.html
@@ -136,7 +136,7 @@ <h1>symba_setup_pltpenc
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~99"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" id="variable-self~95"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_setup_tp.html b/docs/interface/symba_setup_tp.html
index ae33e7cb9..2a250add9 100644
--- a/docs/interface/symba_setup_tp.html
+++ b/docs/interface/symba_setup_tp.html
@@ -136,7 +136,7 @@ <h1>symba_setup_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~100"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~96"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_step_interp_system.html b/docs/interface/symba_step_interp_system.html
index 4d774b891..5b2dffc47 100644
--- a/docs/interface/symba_step_interp_system.html
+++ b/docs/interface/symba_step_interp_system.html
@@ -136,7 +136,7 @@ <h1>symba_step_interp_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~102"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~98"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_step_recur_system.html b/docs/interface/symba_step_recur_system.html
index 5ffdb4f01..612d158a2 100644
--- a/docs/interface/symba_step_recur_system.html
+++ b/docs/interface/symba_step_recur_system.html
@@ -136,7 +136,7 @@ <h1>symba_step_recur_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~104"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~100"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_step_reset_system.html b/docs/interface/symba_step_reset_system.html
index 7914d0a15..fe8a444f7 100644
--- a/docs/interface/symba_step_reset_system.html
+++ b/docs/interface/symba_step_reset_system.html
@@ -136,7 +136,7 @@ <h1>symba_step_reset_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~105"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~101"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_step_set_recur_levels_system.html b/docs/interface/symba_step_set_recur_levels_system.html
index b5760a523..1a1ca584e 100644
--- a/docs/interface/symba_step_set_recur_levels_system.html
+++ b/docs/interface/symba_step_set_recur_levels_system.html
@@ -136,7 +136,7 @@ <h1>symba_step_set_recur_levels_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~103"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~99"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_step_system.html b/docs/interface/symba_step_system.html
index 60745118f..038269060 100644
--- a/docs/interface/symba_step_system.html
+++ b/docs/interface/symba_step_system.html
@@ -136,7 +136,7 @@ <h1>symba_step_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.6% of total for procedures.">264 statements</a>
      </li> 
      
      
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~101"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~97"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_append_merger.html b/docs/interface/symba_util_append_merger.html
index 73cd642af..7a0dc7121 100644
--- a/docs/interface/symba_util_append_merger.html
+++ b/docs/interface/symba_util_append_merger.html
@@ -246,10 +246,22 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M146.18,-54C154.52,-54 163.08,-54 171.54,-54"/>
 <polygon fill="#000000" stroke="#000000" points="171.81,-57.5 181.81,-54 171.81,-50.5 171.81,-57.5"/>
 </g>
-<!-- interface~symba_util_append_pl -->
+<!-- util_exit -->
 <g id="interface~~symba_util_append_merger~~CallsGraph_node3" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="744,-108 690,-108 690,-84 744,-84 744,-108"/>
+<text text-anchor="middle" x="717" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~symba_util_append_merger&#45;&gt;util_exit -->
+<g id="interface~~symba_util_append_merger~~CallsGraph_edge3" class="edge">
+<title>proc~symba_util_append_merger&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M310.44,-66.04C327.51,-69.43 346.47,-72.78 364,-75 478.54,-89.49 615.35,-94.03 679.46,-95.41"/>
+<polygon fill="#000000" stroke="#000000" points="679.77,-98.92 689.84,-95.62 679.91,-91.92 679.77,-98.92"/>
+</g>
+<!-- interface~symba_util_append_pl -->
+<g id="interface~~symba_util_append_merger~~CallsGraph_node4" class="node">
 <title>interface~symba_util_append_pl</title>
-<g id="a_interface~~symba_util_append_merger~~CallsGraph_node3"><a xlink:href=".././interface/symba_util_append_pl.html" xlink:title="symba_util_append_pl">
+<g id="a_interface~~symba_util_append_merger~~CallsGraph_node4"><a xlink:href=".././interface/symba_util_append_pl.html" xlink:title="symba_util_append_pl">
 <polygon fill="#a7506f" stroke="#a7506f" points="484,-66 364,-66 364,-42 484,-42 484,-66"/>
 <text text-anchor="middle" x="424" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_pl</text>
 </a>
@@ -262,31 +274,19 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="#000000" stroke="#000000" points="353.92,-57.5 363.92,-54 353.92,-50.5 353.92,-57.5"/>
 </g>
 <!-- interface~util_append -->
-<g id="interface~~symba_util_append_merger~~CallsGraph_node4" class="node">
+<g id="interface~~symba_util_append_merger~~CallsGraph_node5" class="node">
 <title>interface~util_append</title>
-<g id="a_interface~~symba_util_append_merger~~CallsGraph_node4"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
-<polygon fill="#a7506f" stroke="#a7506f" points="751,-108 683,-108 683,-84 751,-84 751,-108"/>
-<text text-anchor="middle" x="717" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<g id="a_interface~~symba_util_append_merger~~CallsGraph_node5"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="751,-24 683,-24 683,0 751,0 751,-24"/>
+<text text-anchor="middle" x="717" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_util_append_merger&#45;&gt;interface~util_append -->
 <g id="interface~~symba_util_append_merger~~CallsGraph_edge4" class="edge">
 <title>proc~symba_util_append_merger&#45;&gt;interface~util_append</title>
-<path fill="none" stroke="#000000" d="M310.44,-66.04C327.51,-69.43 346.47,-72.78 364,-75 474.69,-89 606.18,-93.71 672.75,-95.26"/>
-<polygon fill="#000000" stroke="#000000" points="672.79,-98.76 682.86,-95.48 672.94,-91.76 672.79,-98.76"/>
-</g>
-<!-- util_exit -->
-<g id="interface~~symba_util_append_merger~~CallsGraph_node5" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="744,-24 690,-24 690,0 744,0 744,-24"/>
-<text text-anchor="middle" x="717" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
-</g>
-<!-- proc~symba_util_append_merger&#45;&gt;util_exit -->
-<g id="interface~~symba_util_append_merger~~CallsGraph_edge3" class="edge">
-<title>proc~symba_util_append_merger&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M310.44,-41.96C327.51,-38.57 346.47,-35.22 364,-33 478.54,-18.51 615.35,-13.97 679.46,-12.59"/>
-<polygon fill="#000000" stroke="#000000" points="679.91,-16.08 689.84,-12.38 679.77,-9.08 679.91,-16.08"/>
+<path fill="none" stroke="#000000" d="M310.44,-41.96C327.51,-38.57 346.47,-35.22 364,-33 474.69,-19 606.18,-14.29 672.75,-12.74"/>
+<polygon fill="#000000" stroke="#000000" points="672.94,-16.24 682.86,-12.52 672.79,-9.24 672.94,-16.24"/>
 </g>
 <!-- proc~symba_util_append_pl -->
 <g id="interface~~symba_util_append_merger~~CallsGraph_node6" class="node">
@@ -303,17 +303,17 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M484.1,-54C492.42,-54 501.04,-54 509.53,-54"/>
 <polygon fill="#000000" stroke="#000000" points="509.8,-57.5 519.8,-54 509.8,-50.5 509.8,-57.5"/>
 </g>
+<!-- proc~symba_util_append_pl&#45;&gt;util_exit -->
+<g id="interface~~symba_util_append_merger~~CallsGraph_edge6" class="edge">
+<title>proc~symba_util_append_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M619.69,-66.04C638.71,-71.95 661.49,-79.04 680.11,-84.84"/>
+<polygon fill="#000000" stroke="#000000" points="679.12,-88.19 689.71,-87.82 681.2,-81.51 679.12,-88.19"/>
+</g>
 <!-- proc~symba_util_append_pl&#45;&gt;interface~util_append -->
 <g id="interface~~symba_util_append_merger~~CallsGraph_edge8" class="edge">
 <title>proc~symba_util_append_pl&#45;&gt;interface~util_append</title>
-<path fill="none" stroke="#000000" d="M619.69,-66.04C636.36,-71.22 655.92,-77.31 673.04,-82.64"/>
-<polygon fill="#000000" stroke="#000000" points="672.21,-86.04 682.8,-85.67 674.29,-79.36 672.21,-86.04"/>
-</g>
-<!-- proc~symba_util_append_pl&#45;&gt;util_exit -->
-<g id="interface~~symba_util_append_merger~~CallsGraph_edge7" class="edge">
-<title>proc~symba_util_append_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M619.69,-41.96C638.71,-36.05 661.49,-28.96 680.11,-23.16"/>
-<polygon fill="#000000" stroke="#000000" points="681.2,-26.49 689.71,-20.18 679.12,-19.81 681.2,-26.49"/>
+<path fill="none" stroke="#000000" d="M619.69,-41.96C636.36,-36.78 655.92,-30.69 673.04,-25.36"/>
+<polygon fill="#000000" stroke="#000000" points="674.29,-28.64 682.8,-22.33 672.21,-21.96 674.29,-28.64"/>
 </g>
 <!-- util_append_pl -->
 <g id="interface~~symba_util_append_merger~~CallsGraph_node7" class="node">
@@ -322,7 +322,7 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="717" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </g>
 <!-- proc~symba_util_append_pl&#45;&gt;util_append_pl -->
-<g id="interface~~symba_util_append_merger~~CallsGraph_edge6" class="edge">
+<g id="interface~~symba_util_append_merger~~CallsGraph_edge7" class="edge">
 <title>proc~symba_util_append_pl&#45;&gt;util_append_pl</title>
 <path fill="none" stroke="#000000" d="M640.21,-54C648.68,-54 657.33,-54 665.6,-54"/>
 <polygon fill="#000000" stroke="#000000" points="665.85,-57.5 675.85,-54 665.85,-50.5 665.85,-57.5"/>
@@ -427,7 +427,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~106"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
+  <td><span class="anchor" id="variable-self~102"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -459,7 +459,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask~4"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/interface/symba_util_append_pl.html b/docs/interface/symba_util_append_pl.html
index 68b2db9be..68e4b9c2d 100644
--- a/docs/interface/symba_util_append_pl.html
+++ b/docs/interface/symba_util_append_pl.html
@@ -246,44 +246,44 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M120.1,-54C128.42,-54 137.04,-54 145.53,-54"/>
 <polygon fill="#000000" stroke="#000000" points="145.8,-57.5 155.8,-54 145.8,-50.5 145.8,-57.5"/>
 </g>
-<!-- util_append_pl -->
+<!-- util_exit -->
 <g id="interface~~symba_util_append_pl~~CallsGraph_node3" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="380,-108 326,-108 326,-84 380,-84 380,-108"/>
+<text text-anchor="middle" x="353" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~symba_util_append_pl&#45;&gt;util_exit -->
+<g id="interface~~symba_util_append_pl~~CallsGraph_edge2" class="edge">
+<title>proc~symba_util_append_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M255.69,-66.04C274.71,-71.95 297.49,-79.04 316.11,-84.84"/>
+<polygon fill="#000000" stroke="#000000" points="315.12,-88.19 325.71,-87.82 317.2,-81.51 315.12,-88.19"/>
+</g>
+<!-- util_append_pl -->
+<g id="interface~~symba_util_append_pl~~CallsGraph_node4" class="node">
 <title>util_append_pl</title>
-<polygon fill="#777777" stroke="#777777" points="394,-108 312,-108 312,-84 394,-84 394,-108"/>
-<text text-anchor="middle" x="353" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
+<polygon fill="#777777" stroke="#777777" points="394,-66 312,-66 312,-42 394,-42 394,-66"/>
+<text text-anchor="middle" x="353" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </g>
 <!-- proc~symba_util_append_pl&#45;&gt;util_append_pl -->
-<g id="interface~~symba_util_append_pl~~CallsGraph_edge2" class="edge">
+<g id="interface~~symba_util_append_pl~~CallsGraph_edge3" class="edge">
 <title>proc~symba_util_append_pl&#45;&gt;util_append_pl</title>
-<path fill="none" stroke="#000000" d="M255.69,-66.04C270.65,-70.69 287.95,-76.07 303.72,-80.98"/>
-<polygon fill="#000000" stroke="#000000" points="302.72,-84.33 313.31,-83.96 304.8,-77.65 302.72,-84.33"/>
+<path fill="none" stroke="#000000" d="M276.21,-54C284.68,-54 293.33,-54 301.6,-54"/>
+<polygon fill="#000000" stroke="#000000" points="301.85,-57.5 311.85,-54 301.85,-50.5 301.85,-57.5"/>
 </g>
 <!-- interface~util_append -->
-<g id="interface~~symba_util_append_pl~~CallsGraph_node4" class="node">
+<g id="interface~~symba_util_append_pl~~CallsGraph_node5" class="node">
 <title>interface~util_append</title>
-<g id="a_interface~~symba_util_append_pl~~CallsGraph_node4"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
-<polygon fill="#a7506f" stroke="#a7506f" points="387,-66 319,-66 319,-42 387,-42 387,-66"/>
-<text text-anchor="middle" x="353" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<g id="a_interface~~symba_util_append_pl~~CallsGraph_node5"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="387,-24 319,-24 319,0 387,0 387,-24"/>
+<text text-anchor="middle" x="353" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_util_append_pl&#45;&gt;interface~util_append -->
 <g id="interface~~symba_util_append_pl~~CallsGraph_edge4" class="edge">
 <title>proc~symba_util_append_pl&#45;&gt;interface~util_append</title>
-<path fill="none" stroke="#000000" d="M276.21,-54C287.16,-54 298.4,-54 308.76,-54"/>
-<polygon fill="#000000" stroke="#000000" points="308.78,-57.5 318.78,-54 308.78,-50.5 308.78,-57.5"/>
-</g>
-<!-- util_exit -->
-<g id="interface~~symba_util_append_pl~~CallsGraph_node5" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="380,-24 326,-24 326,0 380,0 380,-24"/>
-<text text-anchor="middle" x="353" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
-</g>
-<!-- proc~symba_util_append_pl&#45;&gt;util_exit -->
-<g id="interface~~symba_util_append_pl~~CallsGraph_edge3" class="edge">
-<title>proc~symba_util_append_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M255.69,-41.96C274.71,-36.05 297.49,-28.96 316.11,-23.16"/>
-<polygon fill="#000000" stroke="#000000" points="317.2,-26.49 325.71,-20.18 315.12,-19.81 317.2,-26.49"/>
+<path fill="none" stroke="#000000" d="M255.69,-41.96C272.36,-36.78 291.92,-30.69 309.04,-25.36"/>
+<polygon fill="#000000" stroke="#000000" points="310.29,-28.64 318.8,-22.33 308.21,-21.96 310.29,-28.64"/>
 </g>
 </g>
 </svg>
@@ -501,7 +501,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~107"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~103"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -533,7 +533,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask~5"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/interface/symba_util_append_tp.html b/docs/interface/symba_util_append_tp.html
index 40110b6e2..2261e4a9d 100644
--- a/docs/interface/symba_util_append_tp.html
+++ b/docs/interface/symba_util_append_tp.html
@@ -246,44 +246,44 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M121.43,-54C129.72,-54 138.31,-54 146.76,-54"/>
 <polygon fill="#000000" stroke="#000000" points="146.99,-57.5 156.99,-54 146.99,-50.5 146.99,-57.5"/>
 </g>
-<!-- interface~util_append -->
+<!-- util_exit -->
 <g id="interface~~symba_util_append_tp~~CallsGraph_node3" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="382.5,-108 328.5,-108 328.5,-84 382.5,-84 382.5,-108"/>
+<text text-anchor="middle" x="355.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~symba_util_append_tp&#45;&gt;util_exit -->
+<g id="interface~~symba_util_append_tp~~CallsGraph_edge2" class="edge">
+<title>proc~symba_util_append_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M257.47,-66.04C276.77,-71.99 299.9,-79.14 318.74,-84.96"/>
+<polygon fill="#000000" stroke="#000000" points="317.84,-88.34 328.43,-87.95 319.91,-81.65 317.84,-88.34"/>
+</g>
+<!-- interface~util_append -->
+<g id="interface~~symba_util_append_tp~~CallsGraph_node4" class="node">
 <title>interface~util_append</title>
-<g id="a_interface~~symba_util_append_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
-<polygon fill="#a7506f" stroke="#a7506f" points="389.5,-108 321.5,-108 321.5,-84 389.5,-84 389.5,-108"/>
-<text text-anchor="middle" x="355.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<g id="a_interface~~symba_util_append_tp~~CallsGraph_node4"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="389.5,-66 321.5,-66 321.5,-42 389.5,-42 389.5,-66"/>
+<text text-anchor="middle" x="355.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_util_append_tp&#45;&gt;interface~util_append -->
-<g id="interface~~symba_util_append_tp~~CallsGraph_edge4" class="edge">
+<g id="interface~~symba_util_append_tp~~CallsGraph_edge3" class="edge">
 <title>proc~symba_util_append_tp&#45;&gt;interface~util_append</title>
-<path fill="none" stroke="#000000" d="M257.47,-66.04C274.27,-71.22 293.98,-77.31 311.22,-82.64"/>
-<polygon fill="#000000" stroke="#000000" points="310.47,-86.07 321.06,-85.67 312.53,-79.38 310.47,-86.07"/>
+<path fill="none" stroke="#000000" d="M278.15,-54C289.29,-54 300.72,-54 311.24,-54"/>
+<polygon fill="#000000" stroke="#000000" points="311.42,-57.5 321.42,-54 311.42,-50.5 311.42,-57.5"/>
 </g>
 <!-- util_append_tp -->
-<g id="interface~~symba_util_append_tp~~CallsGraph_node4" class="node">
+<g id="interface~~symba_util_append_tp~~CallsGraph_node5" class="node">
 <title>util_append_tp</title>
-<polygon fill="#777777" stroke="#777777" points="397,-66 314,-66 314,-42 397,-42 397,-66"/>
-<text text-anchor="middle" x="355.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
+<polygon fill="#777777" stroke="#777777" points="397,-24 314,-24 314,0 397,0 397,-24"/>
+<text text-anchor="middle" x="355.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
 </g>
 <!-- proc~symba_util_append_tp&#45;&gt;util_append_tp -->
-<g id="interface~~symba_util_append_tp~~CallsGraph_edge3" class="edge">
+<g id="interface~~symba_util_append_tp~~CallsGraph_edge4" class="edge">
 <title>proc~symba_util_append_tp&#45;&gt;util_append_tp</title>
-<path fill="none" stroke="#000000" d="M278.15,-54C286.58,-54 295.19,-54 303.44,-54"/>
-<polygon fill="#000000" stroke="#000000" points="303.66,-57.5 313.66,-54 303.66,-50.5 303.66,-57.5"/>
-</g>
-<!-- util_exit -->
-<g id="interface~~symba_util_append_tp~~CallsGraph_node5" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="382.5,-24 328.5,-24 328.5,0 382.5,0 382.5,-24"/>
-<text text-anchor="middle" x="355.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
-</g>
-<!-- proc~symba_util_append_tp&#45;&gt;util_exit -->
-<g id="interface~~symba_util_append_tp~~CallsGraph_edge2" class="edge">
-<title>proc~symba_util_append_tp&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M257.47,-41.96C276.77,-36.01 299.9,-28.86 318.74,-23.04"/>
-<polygon fill="#000000" stroke="#000000" points="319.91,-26.35 328.43,-20.05 317.84,-19.66 319.91,-26.35"/>
+<path fill="none" stroke="#000000" d="M257.47,-41.96C272.55,-37.31 289.98,-31.93 305.86,-27.02"/>
+<polygon fill="#000000" stroke="#000000" points="307,-30.33 315.52,-24.04 304.93,-23.64 307,-30.33"/>
 </g>
 </g>
 </svg>
@@ -385,7 +385,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~108"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~104"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -417,7 +417,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask~6"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/interface/symba_util_fill_pl.html b/docs/interface/symba_util_fill_pl.html
index 9f2dcbde6..3bcd4ea3e 100644
--- a/docs/interface/symba_util_fill_pl.html
+++ b/docs/interface/symba_util_fill_pl.html
@@ -246,42 +246,42 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M94.21,-54C102.46,-54 111.13,-54 119.63,-54"/>
 <polygon fill="#000000" stroke="#000000" points="119.86,-57.5 129.86,-54 119.86,-50.5 119.86,-57.5"/>
 </g>
-<!-- interface~util_fill -->
-<g id="interface~~symba_util_fill_pl~~CallsGraph_node3" class="node">
-<title>interface~util_fill</title>
-<g id="a_interface~~symba_util_fill_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_fill.html" xlink:title="util_fill">
-<polygon fill="#a7506f" stroke="#a7506f" points="315,-108 261,-108 261,-84 315,-84 315,-108"/>
-<text text-anchor="middle" x="288" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
-</a>
-</g>
-</g>
-<!-- proc~symba_util_fill_pl&#45;&gt;interface~util_fill -->
-<g id="interface~~symba_util_fill_pl~~CallsGraph_edge2" class="edge">
-<title>proc~symba_util_fill_pl&#45;&gt;interface~util_fill</title>
-<path fill="none" stroke="#000000" d="M209.24,-66.04C222.4,-71.11 237.79,-77.04 251.39,-82.28"/>
-<polygon fill="#000000" stroke="#000000" points="250.33,-85.62 260.92,-85.95 252.84,-79.09 250.33,-85.62"/>
-</g>
 <!-- util_fill_pl -->
-<g id="interface~~symba_util_fill_pl~~CallsGraph_node4" class="node">
+<g id="interface~~symba_util_fill_pl~~CallsGraph_node3" class="node">
 <title>util_fill_pl</title>
-<polygon fill="#777777" stroke="#777777" points="316,-66 260,-66 260,-42 316,-42 316,-66"/>
-<text text-anchor="middle" x="288" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
+<polygon fill="#777777" stroke="#777777" points="316,-108 260,-108 260,-84 316,-84 316,-108"/>
+<text text-anchor="middle" x="288" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
 </g>
 <!-- proc~symba_util_fill_pl&#45;&gt;util_fill_pl -->
-<g id="interface~~symba_util_fill_pl~~CallsGraph_edge3" class="edge">
+<g id="interface~~symba_util_fill_pl~~CallsGraph_edge2" class="edge">
 <title>proc~symba_util_fill_pl&#45;&gt;util_fill_pl</title>
-<path fill="none" stroke="#000000" d="M224.23,-54C232.79,-54 241.64,-54 249.89,-54"/>
-<polygon fill="#000000" stroke="#000000" points="249.96,-57.5 259.96,-54 249.96,-50.5 249.96,-57.5"/>
+<path fill="none" stroke="#000000" d="M209.24,-66.04C222.09,-70.99 237.08,-76.76 250.44,-81.91"/>
+<polygon fill="#000000" stroke="#000000" points="249.24,-85.2 259.83,-85.53 251.76,-78.67 249.24,-85.2"/>
 </g>
 <!-- util_exit -->
-<g id="interface~~symba_util_fill_pl~~CallsGraph_node5" class="node">
+<g id="interface~~symba_util_fill_pl~~CallsGraph_node4" class="node">
 <title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="315,-24 261,-24 261,0 315,0 315,-24"/>
-<text text-anchor="middle" x="288" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#777777" stroke="#777777" points="315,-66 261,-66 261,-42 315,-42 315,-66"/>
+<text text-anchor="middle" x="288" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
 <!-- proc~symba_util_fill_pl&#45;&gt;util_exit -->
-<g id="interface~~symba_util_fill_pl~~CallsGraph_edge4" class="edge">
+<g id="interface~~symba_util_fill_pl~~CallsGraph_edge3" class="edge">
 <title>proc~symba_util_fill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M224.23,-54C233.14,-54 242.35,-54 250.88,-54"/>
+<polygon fill="#000000" stroke="#000000" points="250.88,-57.5 260.88,-54 250.88,-50.5 250.88,-57.5"/>
+</g>
+<!-- interface~util_fill -->
+<g id="interface~~symba_util_fill_pl~~CallsGraph_node5" class="node">
+<title>interface~util_fill</title>
+<g id="a_interface~~symba_util_fill_pl~~CallsGraph_node5"><a xlink:href=".././interface/util_fill.html" xlink:title="util_fill">
+<polygon fill="#a7506f" stroke="#a7506f" points="315,-24 261,-24 261,0 315,0 315,-24"/>
+<text text-anchor="middle" x="288" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_fill_pl&#45;&gt;interface~util_fill -->
+<g id="interface~~symba_util_fill_pl~~CallsGraph_edge4" class="edge">
+<title>proc~symba_util_fill_pl&#45;&gt;interface~util_fill</title>
 <path fill="none" stroke="#000000" d="M209.24,-41.96C222.4,-36.89 237.79,-30.96 251.39,-25.72"/>
 <polygon fill="#000000" stroke="#000000" points="252.84,-28.91 260.92,-22.05 250.33,-22.38 252.84,-28.91"/>
 </g>
@@ -385,7 +385,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~109"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~105"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_fill_tp.html b/docs/interface/symba_util_fill_tp.html
index 01a025cc0..9b05df44d 100644
--- a/docs/interface/symba_util_fill_tp.html
+++ b/docs/interface/symba_util_fill_tp.html
@@ -246,42 +246,42 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M94.21,-54C102.46,-54 111.13,-54 119.63,-54"/>
 <polygon fill="#000000" stroke="#000000" points="119.86,-57.5 129.86,-54 119.86,-50.5 119.86,-57.5"/>
 </g>
-<!-- interface~util_fill -->
-<g id="interface~~symba_util_fill_tp~~CallsGraph_node3" class="node">
-<title>interface~util_fill</title>
-<g id="a_interface~~symba_util_fill_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_fill.html" xlink:title="util_fill">
-<polygon fill="#a7506f" stroke="#a7506f" points="315.5,-108 261.5,-108 261.5,-84 315.5,-84 315.5,-108"/>
-<text text-anchor="middle" x="288.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
-</a>
-</g>
-</g>
-<!-- proc~symba_util_fill_tp&#45;&gt;interface~util_fill -->
-<g id="interface~~symba_util_fill_tp~~CallsGraph_edge2" class="edge">
-<title>proc~symba_util_fill_tp&#45;&gt;interface~util_fill</title>
-<path fill="none" stroke="#000000" d="M209.38,-66.04C222.6,-71.11 238.06,-77.04 251.72,-82.28"/>
-<polygon fill="#000000" stroke="#000000" points="250.71,-85.64 261.3,-85.95 253.21,-79.1 250.71,-85.64"/>
-</g>
 <!-- util_fill_tp -->
-<g id="interface~~symba_util_fill_tp~~CallsGraph_node4" class="node">
+<g id="interface~~symba_util_fill_tp~~CallsGraph_node3" class="node">
 <title>util_fill_tp</title>
-<polygon fill="#777777" stroke="#777777" points="317,-66 260,-66 260,-42 317,-42 317,-66"/>
-<text text-anchor="middle" x="288.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
+<polygon fill="#777777" stroke="#777777" points="317,-108 260,-108 260,-84 317,-84 317,-108"/>
+<text text-anchor="middle" x="288.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
 </g>
 <!-- proc~symba_util_fill_tp&#45;&gt;util_fill_tp -->
-<g id="interface~~symba_util_fill_tp~~CallsGraph_edge3" class="edge">
+<g id="interface~~symba_util_fill_tp~~CallsGraph_edge2" class="edge">
 <title>proc~symba_util_fill_tp&#45;&gt;util_fill_tp</title>
-<path fill="none" stroke="#000000" d="M224.12,-54C232.67,-54 241.5,-54 249.77,-54"/>
-<polygon fill="#000000" stroke="#000000" points="249.86,-57.5 259.86,-54 249.86,-50.5 249.86,-57.5"/>
+<path fill="none" stroke="#000000" d="M209.38,-66.04C222.19,-70.95 237.11,-76.67 250.46,-81.79"/>
+<polygon fill="#000000" stroke="#000000" points="249.25,-85.08 259.84,-85.39 251.76,-78.54 249.25,-85.08"/>
 </g>
 <!-- util_exit -->
-<g id="interface~~symba_util_fill_tp~~CallsGraph_node5" class="node">
+<g id="interface~~symba_util_fill_tp~~CallsGraph_node4" class="node">
 <title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="315.5,-24 261.5,-24 261.5,0 315.5,0 315.5,-24"/>
-<text text-anchor="middle" x="288.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#777777" stroke="#777777" points="315.5,-66 261.5,-66 261.5,-42 315.5,-42 315.5,-66"/>
+<text text-anchor="middle" x="288.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
 <!-- proc~symba_util_fill_tp&#45;&gt;util_exit -->
-<g id="interface~~symba_util_fill_tp~~CallsGraph_edge4" class="edge">
+<g id="interface~~symba_util_fill_tp~~CallsGraph_edge3" class="edge">
 <title>proc~symba_util_fill_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M224.12,-54C233.18,-54 242.56,-54 251.24,-54"/>
+<polygon fill="#000000" stroke="#000000" points="251.41,-57.5 261.41,-54 251.41,-50.5 251.41,-57.5"/>
+</g>
+<!-- interface~util_fill -->
+<g id="interface~~symba_util_fill_tp~~CallsGraph_node5" class="node">
+<title>interface~util_fill</title>
+<g id="a_interface~~symba_util_fill_tp~~CallsGraph_node5"><a xlink:href=".././interface/util_fill.html" xlink:title="util_fill">
+<polygon fill="#a7506f" stroke="#a7506f" points="315.5,-24 261.5,-24 261.5,0 315.5,0 315.5,-24"/>
+<text text-anchor="middle" x="288.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_fill_tp&#45;&gt;interface~util_fill -->
+<g id="interface~~symba_util_fill_tp~~CallsGraph_edge4" class="edge">
+<title>proc~symba_util_fill_tp&#45;&gt;interface~util_fill</title>
 <path fill="none" stroke="#000000" d="M209.38,-41.96C222.6,-36.89 238.06,-30.96 251.72,-25.72"/>
 <polygon fill="#000000" stroke="#000000" points="253.21,-28.9 261.3,-22.05 250.71,-22.36 253.21,-28.9"/>
 </g>
@@ -385,7 +385,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~110"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~106"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_peri_pl.html b/docs/interface/symba_util_peri_pl.html
index d904edc69..09705d1f0 100644
--- a/docs/interface/symba_util_peri_pl.html
+++ b/docs/interface/symba_util_peri_pl.html
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~111"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~107"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~49"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~53"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_rearray_pl.html b/docs/interface/symba_util_rearray_pl.html
index 2442b8753..81a17c728 100644
--- a/docs/interface/symba_util_rearray_pl.html
+++ b/docs/interface/symba_util_rearray_pl.html
@@ -220,11 +220,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~symba_util_rearray_pl~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_util_rearray_plCallsGraph" width="280pt" height="32pt"
- viewBox="0.00 0.00 280.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_util_rearray_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="interfacesymba_util_rearray_plCallsGraph" width="641pt" height="27pt"
+ viewBox="0.00 0.00 641.00 27.28" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~symba_util_rearray_pl~~CallsGraph" class="graph" transform="scale(0.85 0.85) rotate(0) translate(4 28)">
 <title>interface~~symba_util_rearray_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 276,-28 276,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 748,-28 748,4 -4,4"/>
 <!-- interface~symba_util_rearray_pl -->
 <g id="interface~~symba_util_rearray_pl~~CallsGraph_node1" class="node">
 <title>interface~symba_util_rearray_pl</title>
@@ -246,9 +246,51 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M118.33,-12C126.61,-12 135.17,-12 143.62,-12"/>
 <polygon fill="#000000" stroke="#000000" points="143.82,-15.5 153.82,-12 143.82,-8.5 143.82,-15.5"/>
 </g>
+<!-- interface~symba_io_dump_particle_info -->
+<g id="interface~~symba_util_rearray_pl~~CallsGraph_node3" class="node">
+<title>interface~symba_io_dump_particle_info</title>
+<g id="a_interface~~symba_util_rearray_pl~~CallsGraph_node3"><a xlink:href=".././interface/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="463,-24 308,-24 308,0 463,0 463,-24"/>
+<text text-anchor="middle" x="385.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_rearray_pl&#45;&gt;interface~symba_io_dump_particle_info -->
+<g id="interface~~symba_util_rearray_pl~~CallsGraph_edge2" class="edge">
+<title>proc~symba_util_rearray_pl&#45;&gt;interface~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" d="M272.2,-12C280.45,-12 289.08,-12 297.73,-12"/>
+<polygon fill="#000000" stroke="#000000" points="297.87,-15.5 307.87,-12 297.87,-8.5 297.87,-15.5"/>
+</g>
+<!-- proc~symba_io_dump_particle_info -->
+<g id="interface~~symba_util_rearray_pl~~CallsGraph_node4" class="node">
+<title>proc~symba_io_dump_particle_info</title>
+<g id="a_interface~~symba_util_rearray_pl~~CallsGraph_node4"><a xlink:href=".././proc/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="654,-24 499,-24 499,0 654,0 654,-24"/>
+<text text-anchor="middle" x="576.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info -->
+<g id="interface~~symba_util_rearray_pl~~CallsGraph_edge3" class="edge">
+<title>interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M463.1,-12C471.56,-12 480.22,-12 488.79,-12"/>
+<polygon fill="#000000" stroke="#000000" points="488.79,-15.5 498.79,-12 488.79,-8.5 488.79,-15.5"/>
+</g>
+<!-- util_exit -->
+<g id="interface~~symba_util_rearray_pl~~CallsGraph_node5" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="744,-24 690,-24 690,0 744,0 744,-24"/>
+<text text-anchor="middle" x="717" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~symba_io_dump_particle_info&#45;&gt;util_exit -->
+<g id="interface~~symba_util_rearray_pl~~CallsGraph_edge4" class="edge">
+<title>proc~symba_io_dump_particle_info&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M654.04,-12C663,-12 671.8,-12 679.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="679.87,-15.5 689.87,-12 679.87,-8.5 679.87,-15.5"/>
+</g>
 </g>
 </svg>
-</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+</div><script>var paninterfacesymba_util_rearray_plCallsGraph = svgPanZoom('#interfacesymba_util_rearray_plCallsGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
     <p>Nodes of different colours represent the following: </p>
     <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
@@ -346,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~112"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~108"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -361,7 +403,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~50"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~54"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_resize_merger.html b/docs/interface/symba_util_resize_merger.html
index c394a3af3..e79a1fc90 100644
--- a/docs/interface/symba_util_resize_merger.html
+++ b/docs/interface/symba_util_resize_merger.html
@@ -228,86 +228,86 @@ <h3 class="panel-title">Calls</h3>
 <!-- interface~symba_util_resize_merger -->
 <g id="interface~~symba_util_resize_merger~~CallsGraph_node1" class="node">
 <title>interface~symba_util_resize_merger</title>
-<polygon fill="none" stroke="black" points="139,-44 0,-44 0,-20 139,-20 139,-44"/>
-<text text-anchor="middle" x="69.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_resize_merger</text>
+<polygon fill="none" stroke="black" points="139,-46 0,-46 0,-22 139,-22 139,-46"/>
+<text text-anchor="middle" x="69.5" y="-31.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_resize_merger</text>
 </g>
 <!-- proc~symba_util_resize_merger -->
 <g id="interface~~symba_util_resize_merger~~CallsGraph_node2" class="node">
 <title>proc~symba_util_resize_merger</title>
 <g id="a_interface~~symba_util_resize_merger~~CallsGraph_node2"><a xlink:href=".././proc/symba_util_resize_merger.html" xlink:title="symba_util_resize_merger">
-<polygon fill="#d9534f" stroke="#d9534f" points="314,-44 175,-44 175,-20 314,-20 314,-44"/>
-<text text-anchor="middle" x="244.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_merger</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="314,-46 175,-46 175,-22 314,-22 314,-46"/>
+<text text-anchor="middle" x="244.5" y="-31.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_merger</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_util_resize_merger&#45;&gt;proc~symba_util_resize_merger -->
 <g id="interface~~symba_util_resize_merger~~CallsGraph_edge1" class="edge">
 <title>interface~symba_util_resize_merger&#45;&gt;proc~symba_util_resize_merger</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M139.37,-32C147.68,-32 156.21,-32 164.65,-32"/>
-<polygon fill="#000000" stroke="#000000" points="164.87,-35.5 174.87,-32 164.87,-28.5 164.87,-35.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M139.37,-34C147.68,-34 156.21,-34 164.65,-34"/>
+<polygon fill="#000000" stroke="#000000" points="164.87,-37.5 174.87,-34 164.87,-30.5 164.87,-37.5"/>
 </g>
-<!-- interface~symba_util_resize_pl -->
+<!-- interface~util_resize -->
 <g id="interface~~symba_util_resize_merger~~CallsGraph_node3" class="node">
-<title>interface~symba_util_resize_pl</title>
-<g id="a_interface~~symba_util_resize_merger~~CallsGraph_node3"><a xlink:href=".././interface/symba_util_resize_pl.html" xlink:title="symba_util_resize_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="462,-64 350,-64 350,-40 462,-40 462,-64"/>
-<text text-anchor="middle" x="406" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_pl</text>
+<title>interface~util_resize</title>
+<g id="a_interface~~symba_util_resize_merger~~CallsGraph_node3"><a xlink:href=".././interface/util_resize.html" xlink:title="util_resize">
+<polygon fill="#a7506f" stroke="#a7506f" points="714,-66 653,-66 653,-42 714,-42 714,-66"/>
+<text text-anchor="middle" x="683.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_resize_merger&#45;&gt;interface~symba_util_resize_pl -->
+<!-- proc~symba_util_resize_merger&#45;&gt;interface~util_resize -->
 <g id="interface~~symba_util_resize_merger~~CallsGraph_edge2" class="edge">
-<title>proc~symba_util_resize_merger&#45;&gt;interface~symba_util_resize_pl</title>
-<path fill="none" stroke="#000000" d="M314.07,-40.6C322.59,-41.67 331.29,-42.76 339.76,-43.82"/>
-<polygon fill="#000000" stroke="#000000" points="339.6,-47.33 349.96,-45.1 340.47,-40.38 339.6,-47.33"/>
+<title>proc~symba_util_resize_merger&#45;&gt;interface~util_resize</title>
+<path fill="none" stroke="#000000" d="M314.26,-37.15C406.7,-41.38 568.04,-48.76 642.61,-52.17"/>
+<polygon fill="#000000" stroke="#000000" points="642.82,-55.69 652.96,-52.65 643.14,-48.69 642.82,-55.69"/>
 </g>
-<!-- interface~util_resize -->
+<!-- interface~symba_util_resize_pl -->
 <g id="interface~~symba_util_resize_merger~~CallsGraph_node4" class="node">
-<title>interface~util_resize</title>
-<g id="a_interface~~symba_util_resize_merger~~CallsGraph_node4"><a xlink:href=".././interface/util_resize.html" xlink:title="util_resize">
-<polygon fill="#a7506f" stroke="#a7506f" points="714,-24 653,-24 653,0 714,0 714,-24"/>
-<text text-anchor="middle" x="683.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<title>interface~symba_util_resize_pl</title>
+<g id="a_interface~~symba_util_resize_merger~~CallsGraph_node4"><a xlink:href=".././interface/symba_util_resize_pl.html" xlink:title="symba_util_resize_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="462,-26 350,-26 350,-2 462,-2 462,-26"/>
+<text text-anchor="middle" x="406" y="-11.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_resize_merger&#45;&gt;interface~util_resize -->
+<!-- proc~symba_util_resize_merger&#45;&gt;interface~symba_util_resize_pl -->
 <g id="interface~~symba_util_resize_merger~~CallsGraph_edge3" class="edge">
-<title>proc~symba_util_resize_merger&#45;&gt;interface~util_resize</title>
-<path fill="none" stroke="#000000" d="M314.26,-28.85C406.7,-24.62 568.04,-17.24 642.61,-13.83"/>
-<polygon fill="#000000" stroke="#000000" points="643.14,-17.31 652.96,-13.35 642.82,-10.31 643.14,-17.31"/>
+<title>proc~symba_util_resize_merger&#45;&gt;interface~symba_util_resize_pl</title>
+<path fill="none" stroke="#000000" d="M314.07,-25.4C322.59,-24.33 331.29,-23.24 339.76,-22.18"/>
+<polygon fill="#000000" stroke="#000000" points="340.47,-25.62 349.96,-20.9 339.6,-18.67 340.47,-25.62"/>
 </g>
 <!-- proc~symba_util_resize_pl -->
 <g id="interface~~symba_util_resize_merger~~CallsGraph_node5" class="node">
 <title>proc~symba_util_resize_pl</title>
 <g id="a_interface~~symba_util_resize_merger~~CallsGraph_node5"><a xlink:href=".././proc/symba_util_resize_pl.html" xlink:title="symba_util_resize_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="610,-64 498,-64 498,-40 610,-40 610,-64"/>
-<text text-anchor="middle" x="554" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_pl</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="610,-26 498,-26 498,-2 610,-2 610,-26"/>
+<text text-anchor="middle" x="554" y="-11.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_util_resize_pl&#45;&gt;proc~symba_util_resize_pl -->
 <g id="interface~~symba_util_resize_merger~~CallsGraph_edge4" class="edge">
 <title>interface~symba_util_resize_pl&#45;&gt;proc~symba_util_resize_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.2,-52C470.46,-52 479.05,-52 487.51,-52"/>
-<polygon fill="#000000" stroke="#000000" points="487.73,-55.5 497.73,-52 487.73,-48.5 487.73,-55.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.2,-14C470.46,-14 479.05,-14 487.51,-14"/>
+<polygon fill="#000000" stroke="#000000" points="487.73,-17.5 497.73,-14 487.73,-10.5 487.73,-17.5"/>
 </g>
 <!-- proc~symba_util_resize_pl&#45;&gt;interface~util_resize -->
-<g id="interface~~symba_util_resize_merger~~CallsGraph_edge6" class="edge">
+<g id="interface~~symba_util_resize_merger~~CallsGraph_edge5" class="edge">
 <title>proc~symba_util_resize_pl&#45;&gt;interface~util_resize</title>
-<path fill="none" stroke="#000000" d="M593.25,-40C609.05,-35.04 627.34,-29.3 643.24,-24.32"/>
-<polygon fill="#000000" stroke="#000000" points="644.29,-27.66 652.78,-21.32 642.19,-20.98 644.29,-27.66"/>
+<path fill="none" stroke="#000000" d="M593.25,-26C609.05,-30.96 627.34,-36.7 643.24,-41.68"/>
+<polygon fill="#000000" stroke="#000000" points="642.19,-45.02 652.78,-44.68 644.29,-38.34 642.19,-45.02"/>
 </g>
 <!-- util_resize_pl -->
 <g id="interface~~symba_util_resize_merger~~CallsGraph_node6" class="node">
 <title>util_resize_pl</title>
-<polygon fill="#777777" stroke="#777777" points="721,-66 646,-66 646,-42 721,-42 721,-66"/>
-<text text-anchor="middle" x="683.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
+<polygon fill="#777777" stroke="#777777" points="721,-24 646,-24 646,0 721,0 721,-24"/>
+<text text-anchor="middle" x="683.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
 </g>
 <!-- proc~symba_util_resize_pl&#45;&gt;util_resize_pl -->
-<g id="interface~~symba_util_resize_merger~~CallsGraph_edge5" class="edge">
+<g id="interface~~symba_util_resize_merger~~CallsGraph_edge6" class="edge">
 <title>proc~symba_util_resize_pl&#45;&gt;util_resize_pl</title>
-<path fill="none" stroke="#000000" d="M610.18,-52.87C618.7,-53 627.43,-53.14 635.74,-53.27"/>
-<polygon fill="#000000" stroke="#000000" points="635.94,-56.77 645.99,-53.43 636.05,-49.77 635.94,-56.77"/>
+<path fill="none" stroke="#000000" d="M610.18,-13.13C618.7,-13 627.43,-12.86 635.74,-12.73"/>
+<polygon fill="#000000" stroke="#000000" points="636.05,-16.23 645.99,-12.57 635.94,-9.23 636.05,-16.23"/>
 </g>
 </g>
 </svg>
@@ -409,7 +409,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~113"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
+  <td><span class="anchor" id="variable-self~109"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_resize_pl.html b/docs/interface/symba_util_resize_pl.html
index 8c366e18a..a16fd66e4 100644
--- a/docs/interface/symba_util_resize_pl.html
+++ b/docs/interface/symba_util_resize_pl.html
@@ -246,32 +246,32 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M112.2,-33C120.46,-33 129.05,-33 137.51,-33"/>
 <polygon fill="#000000" stroke="#000000" points="137.73,-36.5 147.73,-33 137.73,-29.5 137.73,-36.5"/>
 </g>
-<!-- util_resize_pl -->
-<g id="interface~~symba_util_resize_pl~~CallsGraph_node3" class="node">
-<title>util_resize_pl</title>
-<polygon fill="#777777" stroke="#777777" points="371,-66 296,-66 296,-42 371,-42 371,-66"/>
-<text text-anchor="middle" x="333.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
-</g>
-<!-- proc~symba_util_resize_pl&#45;&gt;util_resize_pl -->
-<g id="interface~~symba_util_resize_pl~~CallsGraph_edge2" class="edge">
-<title>proc~symba_util_resize_pl&#45;&gt;util_resize_pl</title>
-<path fill="none" stroke="#000000" d="M260.18,-42.09C268.79,-43.51 277.62,-44.96 286.01,-46.34"/>
-<polygon fill="#000000" stroke="#000000" points="285.56,-49.82 295.99,-47.99 286.69,-42.91 285.56,-49.82"/>
-</g>
 <!-- interface~util_resize -->
-<g id="interface~~symba_util_resize_pl~~CallsGraph_node4" class="node">
+<g id="interface~~symba_util_resize_pl~~CallsGraph_node3" class="node">
 <title>interface~util_resize</title>
-<g id="a_interface~~symba_util_resize_pl~~CallsGraph_node4"><a xlink:href=".././interface/util_resize.html" xlink:title="util_resize">
-<polygon fill="#a7506f" stroke="#a7506f" points="364,-24 303,-24 303,0 364,0 364,-24"/>
-<text text-anchor="middle" x="333.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<g id="a_interface~~symba_util_resize_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_resize.html" xlink:title="util_resize">
+<polygon fill="#a7506f" stroke="#a7506f" points="364,-66 303,-66 303,-42 364,-42 364,-66"/>
+<text text-anchor="middle" x="333.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_util_resize_pl&#45;&gt;interface~util_resize -->
-<g id="interface~~symba_util_resize_pl~~CallsGraph_edge3" class="edge">
+<g id="interface~~symba_util_resize_pl~~CallsGraph_edge2" class="edge">
 <title>proc~symba_util_resize_pl&#45;&gt;interface~util_resize</title>
-<path fill="none" stroke="#000000" d="M260.18,-23.91C271.19,-22.1 282.54,-20.23 292.89,-18.52"/>
-<polygon fill="#000000" stroke="#000000" points="293.56,-21.96 302.86,-16.88 292.43,-15.05 293.56,-21.96"/>
+<path fill="none" stroke="#000000" d="M260.18,-42.09C271.19,-43.9 282.54,-45.77 292.89,-47.48"/>
+<polygon fill="#000000" stroke="#000000" points="292.43,-50.95 302.86,-49.12 293.56,-44.04 292.43,-50.95"/>
+</g>
+<!-- util_resize_pl -->
+<g id="interface~~symba_util_resize_pl~~CallsGraph_node4" class="node">
+<title>util_resize_pl</title>
+<polygon fill="#777777" stroke="#777777" points="371,-24 296,-24 296,0 371,0 371,-24"/>
+<text text-anchor="middle" x="333.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
+</g>
+<!-- proc~symba_util_resize_pl&#45;&gt;util_resize_pl -->
+<g id="interface~~symba_util_resize_pl~~CallsGraph_edge3" class="edge">
+<title>proc~symba_util_resize_pl&#45;&gt;util_resize_pl</title>
+<path fill="none" stroke="#000000" d="M260.18,-23.91C268.79,-22.49 277.62,-21.04 286.01,-19.66"/>
+<polygon fill="#000000" stroke="#000000" points="286.69,-23.09 295.99,-18.01 285.56,-16.18 286.69,-23.09"/>
 </g>
 </g>
 </svg>
@@ -489,7 +489,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~114"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~110"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_resize_tp.html b/docs/interface/symba_util_resize_tp.html
index 545150c6b..8d00de32c 100644
--- a/docs/interface/symba_util_resize_tp.html
+++ b/docs/interface/symba_util_resize_tp.html
@@ -246,32 +246,32 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M113.07,-33C121.49,-33 130.24,-33 138.84,-33"/>
 <polygon fill="#000000" stroke="#000000" points="138.85,-36.5 148.85,-33 138.85,-29.5 138.85,-36.5"/>
 </g>
-<!-- util_resize_tp -->
-<g id="interface~~symba_util_resize_tp~~CallsGraph_node3" class="node">
-<title>util_resize_tp</title>
-<polygon fill="#777777" stroke="#777777" points="374,-66 298,-66 298,-42 374,-42 374,-66"/>
-<text text-anchor="middle" x="336" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
-</g>
-<!-- proc~symba_util_resize_tp&#45;&gt;util_resize_tp -->
-<g id="interface~~symba_util_resize_tp~~CallsGraph_edge2" class="edge">
-<title>proc~symba_util_resize_tp&#45;&gt;util_resize_tp</title>
-<path fill="none" stroke="#000000" d="M262.11,-42.09C270.7,-43.49 279.49,-44.93 287.87,-46.3"/>
-<polygon fill="#000000" stroke="#000000" points="287.4,-49.77 297.83,-47.93 288.53,-42.86 287.4,-49.77"/>
-</g>
 <!-- interface~util_resize -->
-<g id="interface~~symba_util_resize_tp~~CallsGraph_node4" class="node">
+<g id="interface~~symba_util_resize_tp~~CallsGraph_node3" class="node">
 <title>interface~util_resize</title>
-<g id="a_interface~~symba_util_resize_tp~~CallsGraph_node4"><a xlink:href=".././interface/util_resize.html" xlink:title="util_resize">
-<polygon fill="#a7506f" stroke="#a7506f" points="366.5,-24 305.5,-24 305.5,0 366.5,0 366.5,-24"/>
-<text text-anchor="middle" x="336" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<g id="a_interface~~symba_util_resize_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_resize.html" xlink:title="util_resize">
+<polygon fill="#a7506f" stroke="#a7506f" points="366.5,-66 305.5,-66 305.5,-42 366.5,-42 366.5,-66"/>
+<text text-anchor="middle" x="336" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_util_resize_tp&#45;&gt;interface~util_resize -->
-<g id="interface~~symba_util_resize_tp~~CallsGraph_edge3" class="edge">
+<g id="interface~~symba_util_resize_tp~~CallsGraph_edge2" class="edge">
 <title>proc~symba_util_resize_tp&#45;&gt;interface~util_resize</title>
-<path fill="none" stroke="#000000" d="M262.11,-23.91C273.31,-22.08 284.85,-20.2 295.37,-18.48"/>
-<polygon fill="#000000" stroke="#000000" points="296.18,-21.89 305.48,-16.82 295.05,-14.98 296.18,-21.89"/>
+<path fill="none" stroke="#000000" d="M262.11,-42.09C273.31,-43.92 284.85,-45.8 295.37,-47.52"/>
+<polygon fill="#000000" stroke="#000000" points="295.05,-51.02 305.48,-49.18 296.18,-44.11 295.05,-51.02"/>
+</g>
+<!-- util_resize_tp -->
+<g id="interface~~symba_util_resize_tp~~CallsGraph_node4" class="node">
+<title>util_resize_tp</title>
+<polygon fill="#777777" stroke="#777777" points="374,-24 298,-24 298,0 374,0 374,-24"/>
+<text text-anchor="middle" x="336" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
+</g>
+<!-- proc~symba_util_resize_tp&#45;&gt;util_resize_tp -->
+<g id="interface~~symba_util_resize_tp~~CallsGraph_edge3" class="edge">
+<title>proc~symba_util_resize_tp&#45;&gt;util_resize_tp</title>
+<path fill="none" stroke="#000000" d="M262.11,-23.91C270.7,-22.51 279.49,-21.07 287.87,-19.7"/>
+<polygon fill="#000000" stroke="#000000" points="288.53,-23.14 297.83,-18.07 287.4,-16.23 288.53,-23.14"/>
 </g>
 </g>
 </svg>
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~115"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~111"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_sort_pl.html b/docs/interface/symba_util_sort_pl.html
index 7b301c72e..cbaa0cd20 100644
--- a/docs/interface/symba_util_sort_pl.html
+++ b/docs/interface/symba_util_sort_pl.html
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~116"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~112"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_sort_rearrange_pl.html b/docs/interface/symba_util_sort_rearrange_pl.html
index 5b0e047c8..87d37db6a 100644
--- a/docs/interface/symba_util_sort_rearrange_pl.html
+++ b/docs/interface/symba_util_sort_rearrange_pl.html
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~118"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~114"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_sort_rearrange_tp.html b/docs/interface/symba_util_sort_rearrange_tp.html
index 7ff2eafec..d54d7853a 100644
--- a/docs/interface/symba_util_sort_rearrange_tp.html
+++ b/docs/interface/symba_util_sort_rearrange_tp.html
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~119"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~115"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_sort_tp.html b/docs/interface/symba_util_sort_tp.html
index c5baa06dd..6cac7b5bc 100644
--- a/docs/interface/symba_util_sort_tp.html
+++ b/docs/interface/symba_util_sort_tp.html
@@ -358,7 +358,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~117"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~113"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_spill_pl.html b/docs/interface/symba_util_spill_pl.html
index a7b3c49a0..bde3395d4 100644
--- a/docs/interface/symba_util_spill_pl.html
+++ b/docs/interface/symba_util_spill_pl.html
@@ -246,18 +246,15 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M102.25,-54C110.54,-54 119.2,-54 127.7,-54"/>
 <polygon fill="#000000" stroke="#000000" points="127.95,-57.5 137.95,-54 127.95,-50.5 127.95,-57.5"/>
 </g>
-<!-- interface~util_spill -->
+<!-- util_exit -->
 <g id="interface~~symba_util_spill_pl~~CallsGraph_node3" class="node">
-<title>interface~util_spill</title>
-<g id="a_interface~~symba_util_spill_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_spill.html" xlink:title="util_spill">
-<polygon fill="#a7506f" stroke="#a7506f" points="335,-108 281,-108 281,-84 335,-84 335,-108"/>
-<text text-anchor="middle" x="308" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
-</a>
-</g>
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="335,-108 281,-108 281,-84 335,-84 335,-108"/>
+<text text-anchor="middle" x="308" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~symba_util_spill_pl&#45;&gt;interface~util_spill -->
+<!-- proc~symba_util_spill_pl&#45;&gt;util_exit -->
 <g id="interface~~symba_util_spill_pl~~CallsGraph_edge2" class="edge">
-<title>proc~symba_util_spill_pl&#45;&gt;interface~util_spill</title>
+<title>proc~symba_util_spill_pl&#45;&gt;util_exit</title>
 <path fill="none" stroke="#000000" d="M223.53,-66.04C238.48,-71.4 256.12,-77.74 271.32,-83.19"/>
 <polygon fill="#000000" stroke="#000000" points="270.31,-86.55 280.9,-86.63 272.67,-79.96 270.31,-86.55"/>
 </g>
@@ -268,20 +265,23 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="308" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
 </g>
 <!-- proc~symba_util_spill_pl&#45;&gt;util_spill_pl -->
-<g id="interface~~symba_util_spill_pl~~CallsGraph_edge4" class="edge">
+<g id="interface~~symba_util_spill_pl~~CallsGraph_edge3" class="edge">
 <title>proc~symba_util_spill_pl&#45;&gt;util_spill_pl</title>
 <path fill="none" stroke="#000000" d="M240.3,-54C248.75,-54 257.43,-54 265.62,-54"/>
 <polygon fill="#000000" stroke="#000000" points="265.68,-57.5 275.67,-54 265.67,-50.5 265.68,-57.5"/>
 </g>
-<!-- util_exit -->
+<!-- interface~util_spill -->
 <g id="interface~~symba_util_spill_pl~~CallsGraph_node5" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="335,-24 281,-24 281,0 335,0 335,-24"/>
-<text text-anchor="middle" x="308" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<title>interface~util_spill</title>
+<g id="a_interface~~symba_util_spill_pl~~CallsGraph_node5"><a xlink:href=".././interface/util_spill.html" xlink:title="util_spill">
+<polygon fill="#a7506f" stroke="#a7506f" points="335,-24 281,-24 281,0 335,0 335,-24"/>
+<text text-anchor="middle" x="308" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+</a>
 </g>
-<!-- proc~symba_util_spill_pl&#45;&gt;util_exit -->
-<g id="interface~~symba_util_spill_pl~~CallsGraph_edge3" class="edge">
-<title>proc~symba_util_spill_pl&#45;&gt;util_exit</title>
+</g>
+<!-- proc~symba_util_spill_pl&#45;&gt;interface~util_spill -->
+<g id="interface~~symba_util_spill_pl~~CallsGraph_edge4" class="edge">
+<title>proc~symba_util_spill_pl&#45;&gt;interface~util_spill</title>
 <path fill="none" stroke="#000000" d="M223.53,-41.96C238.48,-36.6 256.12,-30.26 271.32,-24.81"/>
 <polygon fill="#000000" stroke="#000000" points="272.67,-28.04 280.9,-21.37 270.31,-21.45 272.67,-28.04"/>
 </g>
@@ -385,7 +385,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~120"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~116"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_spill_pltpenc.html b/docs/interface/symba_util_spill_pltpenc.html
index add25d7cc..fb53e43db 100644
--- a/docs/interface/symba_util_spill_pltpenc.html
+++ b/docs/interface/symba_util_spill_pltpenc.html
@@ -246,42 +246,42 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M128.1,-54C136.43,-54 145.04,-54 153.53,-54"/>
 <polygon fill="#000000" stroke="#000000" points="153.81,-57.5 163.81,-54 153.81,-50.5 153.81,-57.5"/>
 </g>
-<!-- interface~util_spill -->
-<g id="interface~~symba_util_spill_pltpenc~~CallsGraph_node3" class="node">
-<title>interface~util_spill</title>
-<g id="a_interface~~symba_util_spill_pltpenc~~CallsGraph_node3"><a xlink:href=".././interface/util_spill.html" xlink:title="util_spill">
-<polygon fill="#a7506f" stroke="#a7506f" points="407,-108 353,-108 353,-84 407,-84 407,-108"/>
-<text text-anchor="middle" x="380" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
-</a>
-</g>
-</g>
-<!-- proc~symba_util_spill_pltpenc&#45;&gt;interface~util_spill -->
-<g id="interface~~symba_util_spill_pltpenc~~CallsGraph_edge2" class="edge">
-<title>proc~symba_util_spill_pltpenc&#45;&gt;interface~util_spill</title>
-<path fill="none" stroke="#000000" d="M271.98,-66.04C294.55,-72.36 321.89,-80.01 343.28,-86"/>
-<polygon fill="#000000" stroke="#000000" points="342.38,-89.38 352.95,-88.71 344.27,-82.64 342.38,-89.38"/>
-</g>
 <!-- util_spill_encounter -->
-<g id="interface~~symba_util_spill_pltpenc~~CallsGraph_node4" class="node">
+<g id="interface~~symba_util_spill_pltpenc~~CallsGraph_node3" class="node">
 <title>util_spill_encounter</title>
-<polygon fill="#777777" stroke="#777777" points="432,-66 328,-66 328,-42 432,-42 432,-66"/>
-<text text-anchor="middle" x="380" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_encounter</text>
+<polygon fill="#777777" stroke="#777777" points="432,-108 328,-108 328,-84 432,-84 432,-108"/>
+<text text-anchor="middle" x="380" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_encounter</text>
 </g>
 <!-- proc~symba_util_spill_pltpenc&#45;&gt;util_spill_encounter -->
-<g id="interface~~symba_util_spill_pltpenc~~CallsGraph_edge4" class="edge">
+<g id="interface~~symba_util_spill_pltpenc~~CallsGraph_edge2" class="edge">
 <title>proc~symba_util_spill_pltpenc&#45;&gt;util_spill_encounter</title>
-<path fill="none" stroke="#000000" d="M292.18,-54C300.6,-54 309.23,-54 317.62,-54"/>
-<polygon fill="#000000" stroke="#000000" points="317.72,-57.5 327.72,-54 317.72,-50.5 317.72,-57.5"/>
+<path fill="none" stroke="#000000" d="M271.98,-66.04C288.93,-70.78 308.56,-76.28 326.35,-81.26"/>
+<polygon fill="#000000" stroke="#000000" points="325.44,-84.64 336.01,-83.96 327.32,-77.9 325.44,-84.64"/>
 </g>
 <!-- util_exit -->
-<g id="interface~~symba_util_spill_pltpenc~~CallsGraph_node5" class="node">
+<g id="interface~~symba_util_spill_pltpenc~~CallsGraph_node4" class="node">
 <title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="407,-24 353,-24 353,0 407,0 407,-24"/>
-<text text-anchor="middle" x="380" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#777777" stroke="#777777" points="407,-66 353,-66 353,-42 407,-42 407,-66"/>
+<text text-anchor="middle" x="380" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
 <!-- proc~symba_util_spill_pltpenc&#45;&gt;util_exit -->
 <g id="interface~~symba_util_spill_pltpenc~~CallsGraph_edge3" class="edge">
 <title>proc~symba_util_spill_pltpenc&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M292.18,-54C309.48,-54 327.65,-54 342.86,-54"/>
+<polygon fill="#000000" stroke="#000000" points="342.88,-57.5 352.88,-54 342.88,-50.5 342.88,-57.5"/>
+</g>
+<!-- interface~util_spill -->
+<g id="interface~~symba_util_spill_pltpenc~~CallsGraph_node5" class="node">
+<title>interface~util_spill</title>
+<g id="a_interface~~symba_util_spill_pltpenc~~CallsGraph_node5"><a xlink:href=".././interface/util_spill.html" xlink:title="util_spill">
+<polygon fill="#a7506f" stroke="#a7506f" points="407,-24 353,-24 353,0 407,0 407,-24"/>
+<text text-anchor="middle" x="380" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_spill_pltpenc&#45;&gt;interface~util_spill -->
+<g id="interface~~symba_util_spill_pltpenc~~CallsGraph_edge4" class="edge">
+<title>proc~symba_util_spill_pltpenc&#45;&gt;interface~util_spill</title>
 <path fill="none" stroke="#000000" d="M271.98,-41.96C294.55,-35.64 321.89,-27.99 343.28,-22"/>
 <polygon fill="#000000" stroke="#000000" points="344.27,-25.36 352.95,-19.29 342.38,-18.62 344.27,-25.36"/>
 </g>
@@ -385,7 +385,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~121"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
+  <td><span class="anchor" id="variable-self~117"></span>class(<a href='../type/symba_pltpenc.html'>symba_pltpenc</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/symba_util_spill_tp.html b/docs/interface/symba_util_spill_tp.html
index cd817eb95..c21b3afd0 100644
--- a/docs/interface/symba_util_spill_tp.html
+++ b/docs/interface/symba_util_spill_tp.html
@@ -246,42 +246,42 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M103.12,-54C111.36,-54 119.97,-54 128.42,-54"/>
 <polygon fill="#000000" stroke="#000000" points="128.63,-57.5 138.63,-54 128.63,-50.5 128.63,-57.5"/>
 </g>
-<!-- interface~util_spill -->
-<g id="interface~~symba_util_spill_tp~~CallsGraph_node3" class="node">
-<title>interface~util_spill</title>
-<g id="a_interface~~symba_util_spill_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_spill.html" xlink:title="util_spill">
-<polygon fill="#a7506f" stroke="#a7506f" points="337.5,-108 283.5,-108 283.5,-84 337.5,-84 337.5,-108"/>
-<text text-anchor="middle" x="310.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
-</a>
-</g>
-</g>
-<!-- proc~symba_util_spill_tp&#45;&gt;interface~util_spill -->
-<g id="interface~~symba_util_spill_tp~~CallsGraph_edge2" class="edge">
-<title>proc~symba_util_spill_tp&#45;&gt;interface~util_spill</title>
-<path fill="none" stroke="#000000" d="M225.31,-66.04C240.4,-71.4 258.19,-77.74 273.51,-83.19"/>
-<polygon fill="#000000" stroke="#000000" points="272.59,-86.58 283.18,-86.63 274.93,-79.98 272.59,-86.58"/>
-</g>
 <!-- util_spill_tp -->
-<g id="interface~~symba_util_spill_tp~~CallsGraph_node4" class="node">
+<g id="interface~~symba_util_spill_tp~~CallsGraph_node3" class="node">
 <title>util_spill_tp</title>
-<polygon fill="#777777" stroke="#777777" points="343,-66 278,-66 278,-42 343,-42 343,-66"/>
-<text text-anchor="middle" x="310.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
+<polygon fill="#777777" stroke="#777777" points="343,-108 278,-108 278,-84 343,-84 343,-108"/>
+<text text-anchor="middle" x="310.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
 </g>
 <!-- proc~symba_util_spill_tp&#45;&gt;util_spill_tp -->
-<g id="interface~~symba_util_spill_tp~~CallsGraph_edge3" class="edge">
+<g id="interface~~symba_util_spill_tp~~CallsGraph_edge2" class="edge">
 <title>proc~symba_util_spill_tp&#45;&gt;util_spill_tp</title>
-<path fill="none" stroke="#000000" d="M242.23,-54C250.75,-54 259.5,-54 267.76,-54"/>
-<polygon fill="#000000" stroke="#000000" points="267.91,-57.5 277.91,-54 267.91,-50.5 267.91,-57.5"/>
+<path fill="none" stroke="#000000" d="M225.31,-66.04C238.7,-70.8 254.23,-76.33 268.27,-81.32"/>
+<polygon fill="#000000" stroke="#000000" points="267.11,-84.63 277.71,-84.68 269.46,-78.03 267.11,-84.63"/>
 </g>
 <!-- util_exit -->
-<g id="interface~~symba_util_spill_tp~~CallsGraph_node5" class="node">
+<g id="interface~~symba_util_spill_tp~~CallsGraph_node4" class="node">
 <title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="337.5,-24 283.5,-24 283.5,0 337.5,0 337.5,-24"/>
-<text text-anchor="middle" x="310.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#777777" stroke="#777777" points="337.5,-66 283.5,-66 283.5,-42 337.5,-42 337.5,-66"/>
+<text text-anchor="middle" x="310.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
 <!-- proc~symba_util_spill_tp&#45;&gt;util_exit -->
-<g id="interface~~symba_util_spill_tp~~CallsGraph_edge4" class="edge">
+<g id="interface~~symba_util_spill_tp~~CallsGraph_edge3" class="edge">
 <title>proc~symba_util_spill_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M242.23,-54C252.59,-54 263.31,-54 273.06,-54"/>
+<polygon fill="#000000" stroke="#000000" points="273.19,-57.5 283.19,-54 273.19,-50.5 273.19,-57.5"/>
+</g>
+<!-- interface~util_spill -->
+<g id="interface~~symba_util_spill_tp~~CallsGraph_node5" class="node">
+<title>interface~util_spill</title>
+<g id="a_interface~~symba_util_spill_tp~~CallsGraph_node5"><a xlink:href=".././interface/util_spill.html" xlink:title="util_spill">
+<polygon fill="#a7506f" stroke="#a7506f" points="337.5,-24 283.5,-24 283.5,0 337.5,0 337.5,-24"/>
+<text text-anchor="middle" x="310.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_spill_tp&#45;&gt;interface~util_spill -->
+<g id="interface~~symba_util_spill_tp~~CallsGraph_edge4" class="edge">
+<title>proc~symba_util_spill_tp&#45;&gt;interface~util_spill</title>
 <path fill="none" stroke="#000000" d="M225.31,-41.96C240.4,-36.6 258.19,-30.26 273.51,-24.81"/>
 <polygon fill="#000000" stroke="#000000" points="274.93,-28.02 283.18,-21.37 272.59,-21.42 274.93,-28.02"/>
 </g>
@@ -385,7 +385,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~122"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~118"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/tides_kick_getacch_pl.html b/docs/interface/tides_kick_getacch_pl.html
index 5d1716596..08ba2faa6 100644
--- a/docs/interface/tides_kick_getacch_pl.html
+++ b/docs/interface/tides_kick_getacch_pl.html
@@ -136,7 +136,7 @@ <h1>tides_kick_getacch_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~159"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~155"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~60"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~64"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/tides_step_spin_system.html b/docs/interface/tides_step_spin_system.html
index b5f8e33c4..693ec50d7 100644
--- a/docs/interface/tides_step_spin_system.html
+++ b/docs/interface/tides_step_spin_system.html
@@ -136,7 +136,7 @@ <h1>tides_step_spin_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~160"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~156"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/user_kick_getacch_body.html b/docs/interface/user_kick_getacch_body.html
index 7ee31bac1..fc6cf8e75 100644
--- a/docs/interface/user_kick_getacch_body.html
+++ b/docs/interface/user_kick_getacch_body.html
@@ -136,7 +136,7 @@ <h1>user_kick_getacch_body
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.8% of total for procedures.">368 statements</a>
+    title=" 0.8% of total for procedures.">366 statements</a>
      </li> 
      
      
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~161"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~157"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~61"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~65"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_append.html b/docs/interface/util_append.html
index 964dcfca4..aab1c72d0 100644
--- a/docs/interface/util_append.html
+++ b/docs/interface/util_append.html
@@ -134,7 +134,7 @@ <h1>util_append
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 0.0% of total for procedures.</p>Including implementation: 14 statements,  0.0% of total for procedures.">14 statements</a>
+    title="<p> 0.0% of total for procedures.</p>Including implementation: 16 statements,  0.0% of total for procedures.">16 statements</a>
      </li> 
      
      
@@ -238,40 +238,25 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="none" stroke="black" points="746,-66 678,-66 678,-42 746,-42 746,-66"/>
 <text text-anchor="middle" x="712" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_append</text>
 </g>
-<!-- proc~symba_util_append_pl -->
-<g id="interface~~util_append~~CalledByGraph_node2" class="node">
-<title>proc~symba_util_append_pl</title>
-<g id="a_interface~~util_append~~CalledByGraph_node2"><a xlink:href=".././proc/symba_util_append_pl.html" xlink:title="symba_util_append_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="641.5,-66 521.5,-66 521.5,-42 641.5,-42 641.5,-66"/>
-<text text-anchor="middle" x="581.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_pl</text>
-</a>
-</g>
-</g>
-<!-- proc~symba_util_append_pl&#45;&gt;interface~util_append -->
-<g id="interface~~util_append~~CalledByGraph_edge1" class="edge">
-<title>proc~symba_util_append_pl&#45;&gt;interface~util_append</title>
-<path fill="none" stroke="#000000" d="M641.86,-54C650.55,-54 659.37,-54 667.66,-54"/>
-<polygon fill="#000000" stroke="#000000" points="667.83,-57.5 677.83,-54 667.83,-50.5 667.83,-57.5"/>
-</g>
 <!-- proc~symba_util_append_merger -->
-<g id="interface~~util_append~~CalledByGraph_node3" class="node">
+<g id="interface~~util_append~~CalledByGraph_node2" class="node">
 <title>proc~symba_util_append_merger</title>
-<g id="a_interface~~util_append~~CalledByGraph_node3"><a xlink:href=".././proc/symba_util_append_merger.html" xlink:title="symba_util_append_merger">
+<g id="a_interface~~util_append~~CalledByGraph_node2"><a xlink:href=".././proc/symba_util_append_merger.html" xlink:title="symba_util_append_merger">
 <polygon fill="#d9534f" stroke="#d9534f" points="328,-86 182,-86 182,-62 328,-62 328,-86"/>
 <text text-anchor="middle" x="255" y="-71.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_merger</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_util_append_merger&#45;&gt;interface~util_append -->
-<g id="interface~~util_append~~CalledByGraph_edge2" class="edge">
+<g id="interface~~util_append~~CalledByGraph_edge1" class="edge">
 <title>proc~symba_util_append_merger&#45;&gt;interface~util_append</title>
 <path fill="none" stroke="#000000" d="M328.04,-74.76C340.05,-74.86 352.37,-74.95 364,-75 487.55,-75.57 519.79,-93.19 642,-75 650.82,-73.69 660.07,-71.48 668.83,-68.98"/>
 <polygon fill="#000000" stroke="#000000" points="669.91,-72.31 678.46,-66.06 667.88,-65.61 669.91,-72.31"/>
 </g>
 <!-- interface~symba_util_append_pl -->
-<g id="interface~~util_append~~CalledByGraph_node5" class="node">
+<g id="interface~~util_append~~CalledByGraph_node6" class="node">
 <title>interface~symba_util_append_pl</title>
-<g id="a_interface~~util_append~~CalledByGraph_node5"><a xlink:href=".././interface/symba_util_append_pl.html" xlink:title="symba_util_append_pl">
+<g id="a_interface~~util_append~~CalledByGraph_node6"><a xlink:href=".././interface/symba_util_append_pl.html" xlink:title="symba_util_append_pl">
 <polygon fill="#a7506f" stroke="#a7506f" points="484.5,-66 364.5,-66 364.5,-42 484.5,-42 484.5,-66"/>
 <text text-anchor="middle" x="424.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_pl</text>
 </a>
@@ -284,56 +269,71 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="#000000" stroke="#000000" points="354.89,-65.72 364.41,-61.06 354.06,-58.77 354.89,-65.72"/>
 </g>
 <!-- proc~symba_util_append_tp -->
-<g id="interface~~util_append~~CalledByGraph_node4" class="node">
+<g id="interface~~util_append~~CalledByGraph_node3" class="node">
 <title>proc~symba_util_append_tp</title>
-<g id="a_interface~~util_append~~CalledByGraph_node4"><a xlink:href=".././proc/symba_util_append_tp.html" xlink:title="symba_util_append_tp">
+<g id="a_interface~~util_append~~CalledByGraph_node3"><a xlink:href=".././proc/symba_util_append_tp.html" xlink:title="symba_util_append_tp">
 <polygon fill="#d9534f" stroke="#d9534f" points="642,-24 521,-24 521,0 642,0 642,-24"/>
 <text text-anchor="middle" x="581.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_tp</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_util_append_tp&#45;&gt;interface~util_append -->
-<g id="interface~~util_append~~CalledByGraph_edge3" class="edge">
+<g id="interface~~util_append~~CalledByGraph_edge2" class="edge">
 <title>proc~symba_util_append_tp&#45;&gt;interface~util_append</title>
 <path fill="none" stroke="#000000" d="M619.32,-24.04C634.55,-29.01 652.32,-34.82 668.13,-39.99"/>
 <polygon fill="#000000" stroke="#000000" points="667.09,-43.33 677.68,-43.11 669.27,-36.68 667.09,-43.33"/>
 </g>
+<!-- proc~symba_util_append_pl -->
+<g id="interface~~util_append~~CalledByGraph_node4" class="node">
+<title>proc~symba_util_append_pl</title>
+<g id="a_interface~~util_append~~CalledByGraph_node4"><a xlink:href=".././proc/symba_util_append_pl.html" xlink:title="symba_util_append_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="641.5,-66 521.5,-66 521.5,-42 641.5,-42 641.5,-66"/>
+<text text-anchor="middle" x="581.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_pl</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_append_pl&#45;&gt;interface~util_append -->
+<g id="interface~~util_append~~CalledByGraph_edge3" class="edge">
+<title>proc~symba_util_append_pl&#45;&gt;interface~util_append</title>
+<path fill="none" stroke="#000000" d="M641.86,-54C650.55,-54 659.37,-54 667.66,-54"/>
+<polygon fill="#000000" stroke="#000000" points="667.83,-57.5 677.83,-54 667.83,-50.5 667.83,-57.5"/>
+</g>
+<!-- interface~symba_util_append_tp -->
+<g id="interface~~util_append~~CalledByGraph_node5" class="node">
+<title>interface~symba_util_append_tp</title>
+<g id="a_interface~~util_append~~CalledByGraph_node5"><a xlink:href=".././interface/symba_util_append_tp.html" xlink:title="symba_util_append_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="485,-24 364,-24 364,0 485,0 485,-24"/>
+<text text-anchor="middle" x="424.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_util_append_tp&#45;&gt;proc~symba_util_append_tp -->
+<g id="interface~~util_append~~CalledByGraph_edge5" class="edge">
+<title>interface~symba_util_append_tp&#45;&gt;proc~symba_util_append_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M485.43,-12C493.72,-12 502.31,-12 510.76,-12"/>
+<polygon fill="#000000" stroke="#000000" points="510.99,-15.5 520.99,-12 510.99,-8.5 510.99,-15.5"/>
+</g>
 <!-- interface~symba_util_append_pl&#45;&gt;proc~symba_util_append_pl -->
-<g id="interface~~util_append~~CalledByGraph_edge4" class="edge">
+<g id="interface~~util_append~~CalledByGraph_edge6" class="edge">
 <title>interface~symba_util_append_pl&#45;&gt;proc~symba_util_append_pl</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M484.54,-54C493.31,-54 502.4,-54 511.35,-54"/>
 <polygon fill="#000000" stroke="#000000" points="511.37,-57.5 521.37,-54 511.37,-50.5 511.37,-57.5"/>
 </g>
 <!-- interface~symba_util_append_merger -->
-<g id="interface~~util_append~~CalledByGraph_node6" class="node">
+<g id="interface~~util_append~~CalledByGraph_node7" class="node">
 <title>interface~symba_util_append_merger</title>
-<g id="a_interface~~util_append~~CalledByGraph_node6"><a xlink:href=".././interface/symba_util_append_merger.html" xlink:title="symba_util_append_merger">
+<g id="a_interface~~util_append~~CalledByGraph_node7"><a xlink:href=".././interface/symba_util_append_merger.html" xlink:title="symba_util_append_merger">
 <polygon fill="#a7506f" stroke="#a7506f" points="146,-86 0,-86 0,-62 146,-62 146,-86"/>
 <text text-anchor="middle" x="73" y="-71.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_merger</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_util_append_merger&#45;&gt;proc~symba_util_append_merger -->
-<g id="interface~~util_append~~CalledByGraph_edge5" class="edge">
+<g id="interface~~util_append~~CalledByGraph_edge4" class="edge">
 <title>interface~symba_util_append_merger&#45;&gt;proc~symba_util_append_merger</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M146.18,-74C154.52,-74 163.08,-74 171.54,-74"/>
 <polygon fill="#000000" stroke="#000000" points="171.81,-77.5 181.81,-74 171.81,-70.5 171.81,-77.5"/>
 </g>
-<!-- interface~symba_util_append_tp -->
-<g id="interface~~util_append~~CalledByGraph_node7" class="node">
-<title>interface~symba_util_append_tp</title>
-<g id="a_interface~~util_append~~CalledByGraph_node7"><a xlink:href=".././interface/symba_util_append_tp.html" xlink:title="symba_util_append_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="485,-24 364,-24 364,0 485,0 485,-24"/>
-<text text-anchor="middle" x="424.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_tp</text>
-</a>
-</g>
-</g>
-<!-- interface~symba_util_append_tp&#45;&gt;proc~symba_util_append_tp -->
-<g id="interface~~util_append~~CalledByGraph_edge6" class="edge">
-<title>interface~symba_util_append_tp&#45;&gt;proc~symba_util_append_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M485.43,-12C493.72,-12 502.31,-12 510.76,-12"/>
-<polygon fill="#000000" stroke="#000000" points="510.99,-15.5 520.99,-12 510.99,-8.5 510.99,-15.5"/>
-</g>
 </g>
 </svg>
 </div><script>var paninterfaceutil_appendCalledByGraph = svgPanZoom('#interfaceutil_appendCalledByGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
@@ -451,7 +451,7 @@ <h2>Subroutines</h2>
     
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_append_arr_info"></span><h3>
-public subroutine symba_util_append_arr_info(arr, source, lsource_mask)
+public subroutine symba_util_append_arr_info(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -507,11 +507,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -532,7 +562,7 @@ <h4>Arguments</h4>
     
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_append_arr_kin"></span><h3>
-public subroutine symba_util_append_arr_kin(arr, source, lsource_mask)
+public subroutine symba_util_append_arr_kin(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -588,11 +618,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/interface/util_append_body.html b/docs/interface/util_append_body.html
index 9ebe9fda2..a611cb951 100644
--- a/docs/interface/util_append_body.html
+++ b/docs/interface/util_append_body.html
@@ -507,7 +507,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~162"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~158"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -539,7 +539,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask~7"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/interface/util_append_pl.html b/docs/interface/util_append_pl.html
index e9a981a47..d3b44bbde 100644
--- a/docs/interface/util_append_pl.html
+++ b/docs/interface/util_append_pl.html
@@ -220,112 +220,112 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~util_append_pl~~CallsGraph Pages: 1 -->
-<svg id="interfaceutil_append_plCallsGraph" width="578pt" height="112pt"
- viewBox="0.00 0.00 578.00 112.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~util_append_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 108)">
+<svg id="interfaceutil_append_plCallsGraph" width="578pt" height="94pt"
+ viewBox="0.00 0.00 578.00 94.17" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_append_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 90.17)">
 <title>interface~~util_append_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-108 574,-108 574,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-90.17 574,-90.17 574,4 -4,4"/>
 <!-- interface~util_append_pl -->
 <g id="interface~~util_append_pl~~CallsGraph_node1" class="node">
 <title>interface~util_append_pl</title>
-<polygon fill="none" stroke="black" points="82,-64 0,-64 0,-40 82,-40 82,-64"/>
-<text text-anchor="middle" x="41" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_append_pl</text>
+<polygon fill="none" stroke="black" points="82,-66 0,-66 0,-42 82,-42 82,-66"/>
+<text text-anchor="middle" x="41" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_append_pl</text>
 </g>
 <!-- proc~util_append_pl -->
 <g id="interface~~util_append_pl~~CallsGraph_node2" class="node">
 <title>proc~util_append_pl</title>
 <g id="a_interface~~util_append_pl~~CallsGraph_node2"><a xlink:href=".././proc/util_append_pl.html" xlink:title="util_append_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="200,-64 118,-64 118,-40 200,-40 200,-64"/>
-<text text-anchor="middle" x="159" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="200,-66 118,-66 118,-42 200,-42 200,-66"/>
+<text text-anchor="middle" x="159" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~util_append_pl&#45;&gt;proc~util_append_pl -->
 <g id="interface~~util_append_pl~~CallsGraph_edge1" class="edge">
 <title>interface~util_append_pl&#45;&gt;proc~util_append_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M82.25,-52C90.43,-52 99.14,-52 107.63,-52"/>
-<polygon fill="#000000" stroke="#000000" points="107.83,-55.5 117.83,-52 107.83,-48.5 107.83,-55.5"/>
-</g>
-<!-- interface~util_append_body -->
-<g id="interface~~util_append_pl~~CallsGraph_node3" class="node">
-<title>interface~util_append_body</title>
-<g id="a_interface~~util_append_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_append_body.html" xlink:title="util_append_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="333,-104 236,-104 236,-80 333,-80 333,-104"/>
-<text text-anchor="middle" x="284.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
-</a>
-</g>
-</g>
-<!-- proc~util_append_pl&#45;&gt;interface~util_append_body -->
-<g id="interface~~util_append_pl~~CallsGraph_edge2" class="edge">
-<title>proc~util_append_pl&#45;&gt;interface~util_append_body</title>
-<path fill="none" stroke="#000000" d="M197.05,-64C209.4,-68 223.32,-72.51 236.32,-76.72"/>
-<polygon fill="#000000" stroke="#000000" points="235.45,-80.12 246.05,-79.87 237.61,-73.46 235.45,-80.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M82.25,-54C90.43,-54 99.14,-54 107.63,-54"/>
+<polygon fill="#000000" stroke="#000000" points="107.83,-57.5 117.83,-54 107.83,-50.5 107.83,-57.5"/>
 </g>
 <!-- interface~util_append~2 -->
-<g id="interface~~util_append_pl~~CallsGraph_node4" class="node">
+<g id="interface~~util_append_pl~~CallsGraph_node3" class="node">
 <title>interface~util_append~2</title>
-<g id="a_interface~~util_append_pl~~CallsGraph_node4"><a xlink:href=".././interface/util_append~2.html" xlink:title="util_append">
-<polygon fill="#a7506f" stroke="#a7506f" points="570,-84 502,-84 502,-60 570,-60 570,-84"/>
-<text text-anchor="middle" x="536" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<g id="a_interface~~util_append_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_append~2.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="570,-65 502,-65 502,-41 570,-41 570,-65"/>
+<text text-anchor="middle" x="536" y="-50.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </a>
 </g>
 </g>
 <!-- proc~util_append_pl&#45;&gt;interface~util_append~2 -->
-<g id="interface~~util_append_pl~~CallsGraph_edge3" class="edge">
+<g id="interface~~util_append_pl~~CallsGraph_edge2" class="edge">
 <title>proc~util_append_pl&#45;&gt;interface~util_append~2</title>
-<path fill="none" stroke="#000000" d="M200.13,-54.14C271.18,-57.93 418.48,-65.79 491.71,-69.69"/>
-<polygon fill="#000000" stroke="#000000" points="491.79,-73.2 501.96,-70.24 492.16,-66.21 491.79,-73.2"/>
+<path fill="none" stroke="#000000" d="M195.92,-66.06C208.45,-69.7 222.71,-73.2 236,-75 337.29,-88.74 364.99,-90.71 466,-75 475.4,-73.54 485.27,-71.02 494.51,-68.2"/>
+<polygon fill="#000000" stroke="#000000" points="495.8,-71.46 504.23,-65.05 493.64,-64.8 495.8,-71.46"/>
 </g>
 <!-- interface~util_exit -->
-<g id="interface~~util_append_pl~~CallsGraph_node5" class="node">
+<g id="interface~~util_append_pl~~CallsGraph_node4" class="node">
 <title>interface~util_exit</title>
-<g id="a_interface~~util_append_pl~~CallsGraph_node5"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" points="311.5,-24 257.5,-24 257.5,0 311.5,0 311.5,-24"/>
-<text text-anchor="middle" x="284.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_interface~~util_append_pl~~CallsGraph_node4"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="311.5,-66 257.5,-66 257.5,-42 311.5,-42 311.5,-66"/>
+<text text-anchor="middle" x="284.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
 <!-- proc~util_append_pl&#45;&gt;interface~util_exit -->
-<g id="interface~~util_append_pl~~CallsGraph_edge4" class="edge">
+<g id="interface~~util_append_pl~~CallsGraph_edge3" class="edge">
 <title>proc~util_append_pl&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M197.05,-40C213.02,-34.83 231.63,-28.8 247.48,-23.67"/>
-<polygon fill="#000000" stroke="#000000" points="249.01,-26.85 257.45,-20.44 246.86,-20.19 249.01,-26.85"/>
+<path fill="none" stroke="#000000" d="M200.1,-54C215.17,-54 232.22,-54 246.96,-54"/>
+<polygon fill="#000000" stroke="#000000" points="247.22,-57.5 257.22,-54 247.22,-50.5 247.22,-57.5"/>
 </g>
-<!-- proc~util_append_body -->
-<g id="interface~~util_append_pl~~CallsGraph_node7" class="node">
-<title>proc~util_append_body</title>
-<g id="a_interface~~util_append_pl~~CallsGraph_node7"><a xlink:href=".././proc/util_append_body.html" xlink:title="util_append_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="466,-104 369,-104 369,-80 466,-80 466,-104"/>
-<text text-anchor="middle" x="417.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
+<!-- interface~util_append_body -->
+<g id="interface~~util_append_pl~~CallsGraph_node5" class="node">
+<title>interface~util_append_body</title>
+<g id="a_interface~~util_append_pl~~CallsGraph_node5"><a xlink:href=".././interface/util_append_body.html" xlink:title="util_append_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="333,-24 236,-24 236,0 333,0 333,-24"/>
+<text text-anchor="middle" x="284.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
 </a>
 </g>
 </g>
-<!-- interface~util_append_body&#45;&gt;proc~util_append_body -->
-<g id="interface~~util_append_pl~~CallsGraph_edge5" class="edge">
-<title>interface~util_append_body&#45;&gt;proc~util_append_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M333.16,-92C341.38,-92 350.01,-92 358.46,-92"/>
-<polygon fill="#000000" stroke="#000000" points="358.65,-95.5 368.65,-92 358.65,-88.5 358.65,-95.5"/>
+<!-- proc~util_append_pl&#45;&gt;interface~util_append_body -->
+<g id="interface~~util_append_pl~~CallsGraph_edge4" class="edge">
+<title>proc~util_append_pl&#45;&gt;interface~util_append_body</title>
+<path fill="none" stroke="#000000" d="M195.39,-41.96C208.83,-37.4 224.31,-32.13 238.52,-27.3"/>
+<polygon fill="#000000" stroke="#000000" points="239.76,-30.57 248.1,-24.04 237.51,-23.94 239.76,-30.57"/>
 </g>
 <!-- proc~util_exit -->
 <g id="interface~~util_append_pl~~CallsGraph_node6" class="node">
 <title>proc~util_exit</title>
 <g id="a_interface~~util_append_pl~~CallsGraph_node6"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" points="444.5,-24 390.5,-24 390.5,0 444.5,0 444.5,-24"/>
-<text text-anchor="middle" x="417.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="444.5,-66 390.5,-66 390.5,-42 444.5,-42 444.5,-66"/>
+<text text-anchor="middle" x="417.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
 <!-- interface~util_exit&#45;&gt;proc~util_exit -->
-<g id="interface~~util_append_pl~~CallsGraph_edge6" class="edge">
+<g id="interface~~util_append_pl~~CallsGraph_edge5" class="edge">
 <title>interface~util_exit&#45;&gt;proc~util_exit</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.69,-12C331.33,-12 358.44,-12 380.17,-12"/>
-<polygon fill="#000000" stroke="#000000" points="380.35,-15.5 390.35,-12 380.35,-8.5 380.35,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.69,-54C331.33,-54 358.44,-54 380.17,-54"/>
+<polygon fill="#000000" stroke="#000000" points="380.35,-57.5 390.35,-54 380.35,-50.5 380.35,-57.5"/>
+</g>
+<!-- proc~util_append_body -->
+<g id="interface~~util_append_pl~~CallsGraph_node7" class="node">
+<title>proc~util_append_body</title>
+<g id="a_interface~~util_append_pl~~CallsGraph_node7"><a xlink:href=".././proc/util_append_body.html" xlink:title="util_append_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="466,-24 369,-24 369,0 466,0 466,-24"/>
+<text text-anchor="middle" x="417.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
+</a>
+</g>
+</g>
+<!-- interface~util_append_body&#45;&gt;proc~util_append_body -->
+<g id="interface~~util_append_pl~~CallsGraph_edge6" class="edge">
+<title>interface~util_append_body&#45;&gt;proc~util_append_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M333.16,-12C341.38,-12 350.01,-12 358.46,-12"/>
+<polygon fill="#000000" stroke="#000000" points="358.65,-15.5 368.65,-12 358.65,-8.5 358.65,-15.5"/>
 </g>
 <!-- proc~util_append_body&#45;&gt;interface~util_append~2 -->
 <g id="interface~~util_append_pl~~CallsGraph_edge7" class="edge">
 <title>proc~util_append_body&#45;&gt;interface~util_append~2</title>
-<path fill="none" stroke="#000000" d="M466.22,-83.81C474.71,-82.35 483.51,-80.84 491.86,-79.41"/>
-<polygon fill="#000000" stroke="#000000" points="492.51,-82.85 501.77,-77.7 491.32,-75.95 492.51,-82.85"/>
+<path fill="none" stroke="#000000" d="M452.82,-24.08C465.13,-28.41 479.15,-33.34 492.09,-37.9"/>
+<polygon fill="#000000" stroke="#000000" points="491.13,-41.27 501.72,-41.29 493.45,-34.67 491.13,-41.27"/>
 </g>
 </g>
 </svg>
@@ -427,7 +427,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~163"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~159"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -459,7 +459,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask~8"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/interface/util_append_tp.html b/docs/interface/util_append_tp.html
index 2fc5b9b8d..cc49c6eaf 100644
--- a/docs/interface/util_append_tp.html
+++ b/docs/interface/util_append_tp.html
@@ -220,112 +220,112 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~util_append_tp~~CallsGraph Pages: 1 -->
-<svg id="interfaceutil_append_tpCallsGraph" width="580pt" height="112pt"
- viewBox="0.00 0.00 580.00 112.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~util_append_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 108)">
+<svg id="interfaceutil_append_tpCallsGraph" width="580pt" height="94pt"
+ viewBox="0.00 0.00 580.00 94.14" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_append_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 90.14)">
 <title>interface~~util_append_tp~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-108 576,-108 576,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-90.14 576,-90.14 576,4 -4,4"/>
 <!-- interface~util_append_tp -->
 <g id="interface~~util_append_tp~~CallsGraph_node1" class="node">
 <title>interface~util_append_tp</title>
-<polygon fill="none" stroke="black" points="83,-64 0,-64 0,-40 83,-40 83,-64"/>
-<text text-anchor="middle" x="41.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_append_tp</text>
+<polygon fill="none" stroke="black" points="83,-66 0,-66 0,-42 83,-42 83,-66"/>
+<text text-anchor="middle" x="41.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_append_tp</text>
 </g>
 <!-- proc~util_append_tp -->
 <g id="interface~~util_append_tp~~CallsGraph_node2" class="node">
 <title>proc~util_append_tp</title>
 <g id="a_interface~~util_append_tp~~CallsGraph_node2"><a xlink:href=".././proc/util_append_tp.html" xlink:title="util_append_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="202,-64 119,-64 119,-40 202,-40 202,-64"/>
-<text text-anchor="middle" x="160.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="202,-66 119,-66 119,-42 202,-42 202,-66"/>
+<text text-anchor="middle" x="160.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~util_append_tp&#45;&gt;proc~util_append_tp -->
 <g id="interface~~util_append_tp~~CallsGraph_edge1" class="edge">
 <title>interface~util_append_tp&#45;&gt;proc~util_append_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M83.09,-52C91.35,-52 100.14,-52 108.7,-52"/>
-<polygon fill="#000000" stroke="#000000" points="108.98,-55.5 118.98,-52 108.98,-48.5 108.98,-55.5"/>
-</g>
-<!-- interface~util_append_body -->
-<g id="interface~~util_append_tp~~CallsGraph_node3" class="node">
-<title>interface~util_append_body</title>
-<g id="a_interface~~util_append_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_append_body.html" xlink:title="util_append_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="335,-104 238,-104 238,-80 335,-80 335,-104"/>
-<text text-anchor="middle" x="286.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
-</a>
-</g>
-</g>
-<!-- proc~util_append_tp&#45;&gt;interface~util_append_body -->
-<g id="interface~~util_append_tp~~CallsGraph_edge2" class="edge">
-<title>proc~util_append_tp&#45;&gt;interface~util_append_body</title>
-<path fill="none" stroke="#000000" d="M198.7,-64C211.1,-68 225.07,-72.51 238.13,-76.72"/>
-<polygon fill="#000000" stroke="#000000" points="237.3,-80.13 247.89,-79.87 239.45,-73.47 237.3,-80.13"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M83.09,-54C91.35,-54 100.14,-54 108.7,-54"/>
+<polygon fill="#000000" stroke="#000000" points="108.98,-57.5 118.98,-54 108.98,-50.5 108.98,-57.5"/>
 </g>
 <!-- interface~util_append~2 -->
-<g id="interface~~util_append_tp~~CallsGraph_node4" class="node">
+<g id="interface~~util_append_tp~~CallsGraph_node3" class="node">
 <title>interface~util_append~2</title>
-<g id="a_interface~~util_append_tp~~CallsGraph_node4"><a xlink:href=".././interface/util_append~2.html" xlink:title="util_append">
-<polygon fill="#a7506f" stroke="#a7506f" points="572,-84 504,-84 504,-60 572,-60 572,-84"/>
-<text text-anchor="middle" x="538" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<g id="a_interface~~util_append_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_append~2.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="572,-65 504,-65 504,-41 572,-41 572,-65"/>
+<text text-anchor="middle" x="538" y="-50.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </a>
 </g>
 </g>
 <!-- proc~util_append_tp&#45;&gt;interface~util_append~2 -->
-<g id="interface~~util_append_tp~~CallsGraph_edge3" class="edge">
+<g id="interface~~util_append_tp~~CallsGraph_edge2" class="edge">
 <title>proc~util_append_tp&#45;&gt;interface~util_append~2</title>
-<path fill="none" stroke="#000000" d="M202.04,-54.16C273.35,-57.96 420.57,-65.8 493.75,-69.7"/>
-<polygon fill="#000000" stroke="#000000" points="493.82,-73.21 503.99,-70.24 494.19,-66.22 493.82,-73.21"/>
+<path fill="none" stroke="#000000" d="M197.67,-66.06C210.28,-69.7 224.62,-73.2 238,-75 339.31,-88.65 366.99,-90.71 468,-75 477.4,-73.54 487.27,-71.02 496.51,-68.2"/>
+<polygon fill="#000000" stroke="#000000" points="497.8,-71.46 506.23,-65.05 495.64,-64.8 497.8,-71.46"/>
 </g>
 <!-- interface~util_exit -->
-<g id="interface~~util_append_tp~~CallsGraph_node5" class="node">
+<g id="interface~~util_append_tp~~CallsGraph_node4" class="node">
 <title>interface~util_exit</title>
-<g id="a_interface~~util_append_tp~~CallsGraph_node5"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" points="313.5,-24 259.5,-24 259.5,0 313.5,0 313.5,-24"/>
-<text text-anchor="middle" x="286.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_interface~~util_append_tp~~CallsGraph_node4"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="313.5,-66 259.5,-66 259.5,-42 313.5,-42 313.5,-66"/>
+<text text-anchor="middle" x="286.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
 <!-- proc~util_append_tp&#45;&gt;interface~util_exit -->
-<g id="interface~~util_append_tp~~CallsGraph_edge4" class="edge">
+<g id="interface~~util_append_tp~~CallsGraph_edge3" class="edge">
 <title>proc~util_append_tp&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M198.7,-40C214.89,-34.78 233.78,-28.68 249.79,-23.52"/>
-<polygon fill="#000000" stroke="#000000" points="250.9,-26.84 259.34,-20.44 248.75,-20.18 250.9,-26.84"/>
+<path fill="none" stroke="#000000" d="M202.1,-54C217.22,-54 234.27,-54 249,-54"/>
+<polygon fill="#000000" stroke="#000000" points="249.25,-57.5 259.25,-54 249.25,-50.5 249.25,-57.5"/>
 </g>
-<!-- proc~util_append_body -->
-<g id="interface~~util_append_tp~~CallsGraph_node7" class="node">
-<title>proc~util_append_body</title>
-<g id="a_interface~~util_append_tp~~CallsGraph_node7"><a xlink:href=".././proc/util_append_body.html" xlink:title="util_append_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="468,-104 371,-104 371,-80 468,-80 468,-104"/>
-<text text-anchor="middle" x="419.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
+<!-- interface~util_append_body -->
+<g id="interface~~util_append_tp~~CallsGraph_node5" class="node">
+<title>interface~util_append_body</title>
+<g id="a_interface~~util_append_tp~~CallsGraph_node5"><a xlink:href=".././interface/util_append_body.html" xlink:title="util_append_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="335,-24 238,-24 238,0 335,0 335,-24"/>
+<text text-anchor="middle" x="286.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
 </a>
 </g>
 </g>
-<!-- interface~util_append_body&#45;&gt;proc~util_append_body -->
-<g id="interface~~util_append_tp~~CallsGraph_edge5" class="edge">
-<title>interface~util_append_body&#45;&gt;proc~util_append_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.16,-92C343.38,-92 352.01,-92 360.46,-92"/>
-<polygon fill="#000000" stroke="#000000" points="360.65,-95.5 370.65,-92 360.65,-88.5 360.65,-95.5"/>
+<!-- proc~util_append_tp&#45;&gt;interface~util_append_body -->
+<g id="interface~~util_append_tp~~CallsGraph_edge4" class="edge">
+<title>proc~util_append_tp&#45;&gt;interface~util_append_body</title>
+<path fill="none" stroke="#000000" d="M197.03,-41.96C210.52,-37.4 226.07,-32.13 240.33,-27.3"/>
+<polygon fill="#000000" stroke="#000000" points="241.61,-30.56 249.96,-24.04 239.37,-23.93 241.61,-30.56"/>
 </g>
 <!-- proc~util_exit -->
 <g id="interface~~util_append_tp~~CallsGraph_node6" class="node">
 <title>proc~util_exit</title>
 <g id="a_interface~~util_append_tp~~CallsGraph_node6"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" points="446.5,-24 392.5,-24 392.5,0 446.5,0 446.5,-24"/>
-<text text-anchor="middle" x="419.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="446.5,-66 392.5,-66 392.5,-42 446.5,-42 446.5,-66"/>
+<text text-anchor="middle" x="419.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
 <!-- interface~util_exit&#45;&gt;proc~util_exit -->
-<g id="interface~~util_append_tp~~CallsGraph_edge6" class="edge">
+<g id="interface~~util_append_tp~~CallsGraph_edge5" class="edge">
 <title>interface~util_exit&#45;&gt;proc~util_exit</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.69,-12C333.33,-12 360.44,-12 382.17,-12"/>
-<polygon fill="#000000" stroke="#000000" points="382.35,-15.5 392.35,-12 382.35,-8.5 382.35,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.69,-54C333.33,-54 360.44,-54 382.17,-54"/>
+<polygon fill="#000000" stroke="#000000" points="382.35,-57.5 392.35,-54 382.35,-50.5 382.35,-57.5"/>
+</g>
+<!-- proc~util_append_body -->
+<g id="interface~~util_append_tp~~CallsGraph_node7" class="node">
+<title>proc~util_append_body</title>
+<g id="a_interface~~util_append_tp~~CallsGraph_node7"><a xlink:href=".././proc/util_append_body.html" xlink:title="util_append_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="468,-24 371,-24 371,0 468,0 468,-24"/>
+<text text-anchor="middle" x="419.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
+</a>
+</g>
+</g>
+<!-- interface~util_append_body&#45;&gt;proc~util_append_body -->
+<g id="interface~~util_append_tp~~CallsGraph_edge6" class="edge">
+<title>interface~util_append_body&#45;&gt;proc~util_append_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.16,-12C343.38,-12 352.01,-12 360.46,-12"/>
+<polygon fill="#000000" stroke="#000000" points="360.65,-15.5 370.65,-12 360.65,-8.5 360.65,-15.5"/>
 </g>
 <!-- proc~util_append_body&#45;&gt;interface~util_append~2 -->
 <g id="interface~~util_append_tp~~CallsGraph_edge7" class="edge">
 <title>proc~util_append_body&#45;&gt;interface~util_append~2</title>
-<path fill="none" stroke="#000000" d="M468.22,-83.81C476.71,-82.35 485.51,-80.84 493.86,-79.41"/>
-<polygon fill="#000000" stroke="#000000" points="494.51,-82.85 503.77,-77.7 493.32,-75.95 494.51,-82.85"/>
+<path fill="none" stroke="#000000" d="M454.82,-24.08C467.13,-28.41 481.15,-33.34 494.09,-37.9"/>
+<polygon fill="#000000" stroke="#000000" points="493.13,-41.27 503.72,-41.29 495.45,-34.67 493.13,-41.27"/>
 </g>
 </g>
 </svg>
@@ -427,7 +427,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~164"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~160"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -459,7 +459,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask~9"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/interface/util_append~2.html b/docs/interface/util_append~2.html
index cb94ffa73..747210b07 100644
--- a/docs/interface/util_append~2.html
+++ b/docs/interface/util_append~2.html
@@ -134,7 +134,7 @@ <h1>util_append
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 0.1% of total for procedures.</p>Including implementation: 32 statements,  0.1% of total for procedures.">32 statements</a>
+    title="<p> 0.1% of total for procedures.</p>Including implementation: 37 statements,  0.1% of total for procedures.">37 statements</a>
      </li> 
      
      
@@ -260,9 +260,9 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="#000000" stroke="#000000" points="493.15,-31.42 503.73,-30.94 495.16,-24.71 493.15,-31.42"/>
 </g>
 <!-- interface~util_append_body -->
-<g id="interface~~util_append~2~~CalledByGraph_node6" class="node">
+<g id="interface~~util_append~2~~CalledByGraph_node7" class="node">
 <title>interface~util_append_body</title>
-<g id="a_interface~~util_append~2~~CalledByGraph_node6"><a xlink:href=".././interface/util_append_body.html" xlink:title="util_append_body">
+<g id="a_interface~~util_append~2~~CalledByGraph_node7"><a xlink:href=".././interface/util_append_body.html" xlink:title="util_append_body">
 <polygon fill="#a7506f" stroke="#a7506f" points="335,-55 238,-55 238,-31 335,-31 335,-55"/>
 <text text-anchor="middle" x="286.5" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
 </a>
@@ -274,32 +274,17 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" d="M202.1,-22.15C210.42,-24.23 219.31,-26.45 228.09,-28.65"/>
 <polygon fill="#000000" stroke="#000000" points="227.36,-32.07 237.91,-31.1 229.05,-25.28 227.36,-32.07"/>
 </g>
-<!-- proc~util_append_body -->
-<g id="interface~~util_append~2~~CalledByGraph_node3" class="node">
-<title>proc~util_append_body</title>
-<g id="a_interface~~util_append~2~~CalledByGraph_node3"><a xlink:href=".././proc/util_append_body.html" xlink:title="util_append_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="468,-55 371,-55 371,-31 468,-31 468,-55"/>
-<text text-anchor="middle" x="419.5" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
-</a>
-</g>
-</g>
-<!-- proc~util_append_body&#45;&gt;interface~util_append~2 -->
-<g id="interface~~util_append~2~~CalledByGraph_edge2" class="edge">
-<title>proc~util_append_body&#45;&gt;interface~util_append~2</title>
-<path fill="none" stroke="#000000" d="M468.22,-43C476.62,-43 485.31,-43 493.58,-43"/>
-<polygon fill="#000000" stroke="#000000" points="493.77,-46.5 503.77,-43 493.77,-39.5 493.77,-46.5"/>
-</g>
 <!-- proc~util_append_pl -->
-<g id="interface~~util_append~2~~CalledByGraph_node4" class="node">
+<g id="interface~~util_append~2~~CalledByGraph_node3" class="node">
 <title>proc~util_append_pl</title>
-<g id="a_interface~~util_append~2~~CalledByGraph_node4"><a xlink:href=".././proc/util_append_pl.html" xlink:title="util_append_pl">
+<g id="a_interface~~util_append~2~~CalledByGraph_node3"><a xlink:href=".././proc/util_append_pl.html" xlink:title="util_append_pl">
 <polygon fill="#d9534f" stroke="#d9534f" points="201.5,-85 119.5,-85 119.5,-61 201.5,-61 201.5,-85"/>
 <text text-anchor="middle" x="160.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </a>
 </g>
 </g>
 <!-- proc~util_append_pl&#45;&gt;interface~util_append~2 -->
-<g id="interface~~util_append~2~~CalledByGraph_edge3" class="edge">
+<g id="interface~~util_append~2~~CalledByGraph_edge2" class="edge">
 <title>proc~util_append_pl&#45;&gt;interface~util_append~2</title>
 <path fill="none" stroke="#000000" d="M201.99,-75.21C260.95,-77.66 373.7,-79.45 468,-64 476.53,-62.6 485.47,-60.43 493.98,-58.01"/>
 <polygon fill="#000000" stroke="#000000" points="495.17,-61.31 503.73,-55.08 493.15,-54.61 495.17,-61.31"/>
@@ -310,6 +295,21 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" d="M201.76,-63.26C210.08,-61.25 219.01,-59.09 227.81,-56.96"/>
 <polygon fill="#000000" stroke="#000000" points="228.77,-60.33 237.67,-54.57 227.12,-53.52 228.77,-60.33"/>
 </g>
+<!-- proc~util_append_body -->
+<g id="interface~~util_append~2~~CalledByGraph_node4" class="node">
+<title>proc~util_append_body</title>
+<g id="a_interface~~util_append~2~~CalledByGraph_node4"><a xlink:href=".././proc/util_append_body.html" xlink:title="util_append_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="468,-55 371,-55 371,-31 468,-31 468,-55"/>
+<text text-anchor="middle" x="419.5" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
+</a>
+</g>
+</g>
+<!-- proc~util_append_body&#45;&gt;interface~util_append~2 -->
+<g id="interface~~util_append~2~~CalledByGraph_edge3" class="edge">
+<title>proc~util_append_body&#45;&gt;interface~util_append~2</title>
+<path fill="none" stroke="#000000" d="M468.22,-43C476.62,-43 485.31,-43 493.58,-43"/>
+<polygon fill="#000000" stroke="#000000" points="493.77,-46.5 503.77,-43 493.77,-39.5 493.77,-46.5"/>
+</g>
 <!-- interface~util_append_tp -->
 <g id="interface~~util_append~2~~CalledByGraph_node5" class="node">
 <title>interface~util_append_tp</title>
@@ -325,27 +325,27 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M83.09,-12C91.35,-12 100.14,-12 108.7,-12"/>
 <polygon fill="#000000" stroke="#000000" points="108.98,-15.5 118.98,-12 108.98,-8.5 108.98,-15.5"/>
 </g>
-<!-- interface~util_append_body&#45;&gt;proc~util_append_body -->
-<g id="interface~~util_append~2~~CalledByGraph_edge5" class="edge">
-<title>interface~util_append_body&#45;&gt;proc~util_append_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.16,-43C343.38,-43 352.01,-43 360.46,-43"/>
-<polygon fill="#000000" stroke="#000000" points="360.65,-46.5 370.65,-43 360.65,-39.5 360.65,-46.5"/>
-</g>
 <!-- interface~util_append_pl -->
-<g id="interface~~util_append~2~~CalledByGraph_node7" class="node">
+<g id="interface~~util_append~2~~CalledByGraph_node6" class="node">
 <title>interface~util_append_pl</title>
-<g id="a_interface~~util_append~2~~CalledByGraph_node7"><a xlink:href=".././interface/util_append_pl.html" xlink:title="util_append_pl">
+<g id="a_interface~~util_append~2~~CalledByGraph_node6"><a xlink:href=".././interface/util_append_pl.html" xlink:title="util_append_pl">
 <polygon fill="#a7506f" stroke="#a7506f" points="82.5,-85 0.5,-85 0.5,-61 82.5,-61 82.5,-85"/>
 <text text-anchor="middle" x="41.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~util_append_pl&#45;&gt;proc~util_append_pl -->
-<g id="interface~~util_append~2~~CalledByGraph_edge6" class="edge">
+<g id="interface~~util_append~2~~CalledByGraph_edge5" class="edge">
 <title>interface~util_append_pl&#45;&gt;proc~util_append_pl</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M82.76,-73C91.22,-73 100.24,-73 109.02,-73"/>
 <polygon fill="#000000" stroke="#000000" points="109.16,-76.5 119.16,-73 109.16,-69.5 109.16,-76.5"/>
 </g>
+<!-- interface~util_append_body&#45;&gt;proc~util_append_body -->
+<g id="interface~~util_append~2~~CalledByGraph_edge6" class="edge">
+<title>interface~util_append_body&#45;&gt;proc~util_append_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.16,-43C343.38,-43 352.01,-43 360.46,-43"/>
+<polygon fill="#000000" stroke="#000000" points="360.65,-46.5 370.65,-43 360.65,-39.5 360.65,-46.5"/>
+</g>
 </g>
 </svg>
 </div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
@@ -469,7 +469,7 @@ <h2>Subroutines</h2>
     
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-util_append_arr_char_string"></span><h3>
-public subroutine util_append_arr_char_string(arr, source, lsource_mask)
+public subroutine util_append_arr_char_string(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -525,11 +525,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -550,7 +580,7 @@ <h4>Arguments</h4>
     
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-util_append_arr_dp"></span><h3>
-public subroutine util_append_arr_DP(arr, source, lsource_mask)
+public subroutine util_append_arr_DP(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -606,11 +636,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -631,7 +691,7 @@ <h4>Arguments</h4>
     
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-util_append_arr_dpvec"></span><h3>
-public subroutine util_append_arr_DPvec(arr, source, lsource_mask)
+public subroutine util_append_arr_DPvec(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -687,11 +747,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -712,7 +802,7 @@ <h4>Arguments</h4>
     
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-util_append_arr_i4b"></span><h3>
-public subroutine util_append_arr_I4B(arr, source, lsource_mask)
+public subroutine util_append_arr_I4B(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -768,11 +858,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -793,7 +913,7 @@ <h4>Arguments</h4>
     
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-util_append_arr_logical"></span><h3>
-public subroutine util_append_arr_logical(arr, source, lsource_mask)
+public subroutine util_append_arr_logical(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -849,11 +969,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/interface/util_coord_b2h_pl.html b/docs/interface/util_coord_b2h_pl.html
index 49c397bd1..4e7eac790 100644
--- a/docs/interface/util_coord_b2h_pl.html
+++ b/docs/interface/util_coord_b2h_pl.html
@@ -220,103 +220,31 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~util_coord_b2h_pl~~CallsGraph Pages: 1 -->
-<svg id="interfaceutil_coord_b2h_plCallsGraph" width="328pt" height="242pt"
- viewBox="0.00 0.00 328.00 242.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~util_coord_b2h_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 238)">
+<svg id="interfaceutil_coord_b2h_plCallsGraph" width="238pt" height="32pt"
+ viewBox="0.00 0.00 238.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_coord_b2h_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>interface~~util_coord_b2h_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-238 324,-238 324,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 234,-28 234,4 -4,4"/>
 <!-- interface~util_coord_b2h_pl -->
 <g id="interface~~util_coord_b2h_pl~~CallsGraph_node1" class="node">
 <title>interface~util_coord_b2h_pl</title>
-<polygon fill="none" stroke="black" points="97,-129 0,-129 0,-105 97,-105 97,-129"/>
-<text text-anchor="middle" x="48.5" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_coord_b2h_pl</text>
+<polygon fill="none" stroke="black" points="97,-24 0,-24 0,0 97,0 97,-24"/>
+<text text-anchor="middle" x="48.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_coord_b2h_pl</text>
 </g>
 <!-- proc~util_coord_b2h_pl -->
 <g id="interface~~util_coord_b2h_pl~~CallsGraph_node2" class="node">
 <title>proc~util_coord_b2h_pl</title>
 <g id="a_interface~~util_coord_b2h_pl~~CallsGraph_node2"><a xlink:href=".././proc/util_coord_b2h_pl.html" xlink:title="util_coord_b2h_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="230,-129 133,-129 133,-105 230,-105 230,-129"/>
-<text text-anchor="middle" x="181.5" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_b2h_pl</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="230,-24 133,-24 133,0 230,0 230,-24"/>
+<text text-anchor="middle" x="181.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_b2h_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~util_coord_b2h_pl&#45;&gt;proc~util_coord_b2h_pl -->
 <g id="interface~~util_coord_b2h_pl~~CallsGraph_edge1" class="edge">
 <title>interface~util_coord_b2h_pl&#45;&gt;proc~util_coord_b2h_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M97.16,-117C105.38,-117 114.01,-117 122.46,-117"/>
-<polygon fill="#000000" stroke="#000000" points="122.65,-120.5 132.65,-117 122.65,-113.5 122.65,-120.5"/>
-</g>
-<!-- vbcb -->
-<g id="interface~~util_coord_b2h_pl~~CallsGraph_node3" class="node">
-<title>vbcb</title>
-<polygon fill="#777777" stroke="#777777" points="320,-234 266,-234 266,-210 320,-210 320,-234"/>
-<text text-anchor="middle" x="293" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vbcb</text>
-</g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;vbcb -->
-<g id="interface~~util_coord_b2h_pl~~CallsGraph_edge2" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;vbcb</title>
-<path fill="none" stroke="#000000" d="M193.73,-129.1C209.4,-145.8 238.97,-176.62 266,-201 266.82,-201.74 267.66,-202.48 268.51,-203.23"/>
-<polygon fill="#000000" stroke="#000000" points="266.46,-206.08 276.37,-209.83 270.97,-200.72 266.46,-206.08"/>
-</g>
-<!-- xh -->
-<g id="interface~~util_coord_b2h_pl~~CallsGraph_node4" class="node">
-<title>xh</title>
-<polygon fill="#777777" stroke="#777777" points="320,-192 266,-192 266,-168 320,-168 320,-192"/>
-<text text-anchor="middle" x="293" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
-</g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;xh -->
-<g id="interface~~util_coord_b2h_pl~~CallsGraph_edge3" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;xh</title>
-<path fill="none" stroke="#000000" d="M203.61,-129.15C220.2,-138.69 243.51,-152.1 262.03,-162.76"/>
-<polygon fill="#000000" stroke="#000000" points="260.54,-165.94 270.95,-167.89 264.03,-159.87 260.54,-165.94"/>
-</g>
-<!-- xb -->
-<g id="interface~~util_coord_b2h_pl~~CallsGraph_node5" class="node">
-<title>xb</title>
-<polygon fill="#777777" stroke="#777777" points="320,-150 266,-150 266,-126 320,-126 320,-150"/>
-<text text-anchor="middle" x="293" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xb</text>
-</g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;xb -->
-<g id="interface~~util_coord_b2h_pl~~CallsGraph_edge4" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;xb</title>
-<path fill="none" stroke="#000000" d="M230.21,-126.15C238.8,-127.8 247.63,-129.49 255.82,-131.06"/>
-<polygon fill="#000000" stroke="#000000" points="255.32,-134.53 265.8,-132.98 256.64,-127.65 255.32,-134.53"/>
-</g>
-<!-- xbcb -->
-<g id="interface~~util_coord_b2h_pl~~CallsGraph_node6" class="node">
-<title>xbcb</title>
-<polygon fill="#777777" stroke="#777777" points="320,-108 266,-108 266,-84 320,-84 320,-108"/>
-<text text-anchor="middle" x="293" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xbcb</text>
-</g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;xbcb -->
-<g id="interface~~util_coord_b2h_pl~~CallsGraph_edge5" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;xbcb</title>
-<path fill="none" stroke="#000000" d="M230.21,-107.85C238.8,-106.2 247.63,-104.51 255.82,-102.94"/>
-<polygon fill="#000000" stroke="#000000" points="256.64,-106.35 265.8,-101.02 255.32,-99.47 256.64,-106.35"/>
-</g>
-<!-- vh -->
-<g id="interface~~util_coord_b2h_pl~~CallsGraph_node7" class="node">
-<title>vh</title>
-<polygon fill="#777777" stroke="#777777" points="320,-66 266,-66 266,-42 320,-42 320,-66"/>
-<text text-anchor="middle" x="293" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
-</g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;vh -->
-<g id="interface~~util_coord_b2h_pl~~CallsGraph_edge6" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;vh</title>
-<path fill="none" stroke="#000000" d="M203.61,-104.85C220.2,-95.31 243.51,-81.9 262.03,-71.24"/>
-<polygon fill="#000000" stroke="#000000" points="264.03,-74.13 270.95,-66.11 260.54,-68.06 264.03,-74.13"/>
-</g>
-<!-- vb -->
-<g id="interface~~util_coord_b2h_pl~~CallsGraph_node8" class="node">
-<title>vb</title>
-<polygon fill="#777777" stroke="#777777" points="320,-24 266,-24 266,0 320,0 320,-24"/>
-<text text-anchor="middle" x="293" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vb</text>
-</g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;vb -->
-<g id="interface~~util_coord_b2h_pl~~CallsGraph_edge7" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;vb</title>
-<path fill="none" stroke="#000000" d="M193.73,-104.9C209.4,-88.2 238.97,-57.38 266,-33 266.82,-32.26 267.66,-31.52 268.51,-30.77"/>
-<polygon fill="#000000" stroke="#000000" points="270.97,-33.28 276.37,-24.17 266.46,-27.92 270.97,-33.28"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M97.16,-12C105.38,-12 114.01,-12 122.46,-12"/>
+<polygon fill="#000000" stroke="#000000" points="122.65,-15.5 132.65,-12 122.65,-8.5 122.65,-15.5"/>
 </g>
 </g>
 </svg>
@@ -418,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~165"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~161"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_coord_b2h_tp.html b/docs/interface/util_coord_b2h_tp.html
index c314ae001..ddb43a2d9 100644
--- a/docs/interface/util_coord_b2h_tp.html
+++ b/docs/interface/util_coord_b2h_tp.html
@@ -220,115 +220,31 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~util_coord_b2h_tp~~CallsGraph Pages: 1 -->
-<svg id="interfaceutil_coord_b2h_tpCallsGraph" width="330pt" height="284pt"
- viewBox="0.00 0.00 330.00 284.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~util_coord_b2h_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 280)">
+<svg id="interfaceutil_coord_b2h_tpCallsGraph" width="240pt" height="32pt"
+ viewBox="0.00 0.00 240.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_coord_b2h_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>interface~~util_coord_b2h_tp~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-280 326,-280 326,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 236,-28 236,4 -4,4"/>
 <!-- interface~util_coord_b2h_tp -->
 <g id="interface~~util_coord_b2h_tp~~CallsGraph_node1" class="node">
 <title>interface~util_coord_b2h_tp</title>
-<polygon fill="none" stroke="black" points="98,-150 0,-150 0,-126 98,-126 98,-150"/>
-<text text-anchor="middle" x="49" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_coord_b2h_tp</text>
+<polygon fill="none" stroke="black" points="98,-24 0,-24 0,0 98,0 98,-24"/>
+<text text-anchor="middle" x="49" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_coord_b2h_tp</text>
 </g>
 <!-- proc~util_coord_b2h_tp -->
 <g id="interface~~util_coord_b2h_tp~~CallsGraph_node2" class="node">
 <title>proc~util_coord_b2h_tp</title>
 <g id="a_interface~~util_coord_b2h_tp~~CallsGraph_node2"><a xlink:href=".././proc/util_coord_b2h_tp.html" xlink:title="util_coord_b2h_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="232,-150 134,-150 134,-126 232,-126 232,-150"/>
-<text text-anchor="middle" x="183" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_b2h_tp</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="232,-24 134,-24 134,0 232,0 232,-24"/>
+<text text-anchor="middle" x="183" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_b2h_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~util_coord_b2h_tp&#45;&gt;proc~util_coord_b2h_tp -->
 <g id="interface~~util_coord_b2h_tp~~CallsGraph_edge1" class="edge">
 <title>interface~util_coord_b2h_tp&#45;&gt;proc~util_coord_b2h_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M98.03,-138C106.31,-138 115,-138 123.52,-138"/>
-<polygon fill="#000000" stroke="#000000" points="123.79,-141.5 133.79,-138 123.79,-134.5 123.79,-141.5"/>
-</g>
-<!-- vbcb -->
-<g id="interface~~util_coord_b2h_tp~~CallsGraph_node3" class="node">
-<title>vbcb</title>
-<polygon fill="#777777" stroke="#777777" points="322,-276 268,-276 268,-252 322,-252 322,-276"/>
-<text text-anchor="middle" x="295" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vbcb</text>
-</g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;vbcb -->
-<g id="interface~~util_coord_b2h_tp~~CallsGraph_edge2" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;vbcb</title>
-<path fill="none" stroke="#000000" d="M192.31,-150.03C206.58,-170.29 237.2,-212.06 268,-243 268.66,-243.67 269.35,-244.33 270.04,-244.99"/>
-<polygon fill="#000000" stroke="#000000" points="268.03,-247.89 277.85,-251.86 272.66,-242.63 268.03,-247.89"/>
-</g>
-<!-- xh -->
-<g id="interface~~util_coord_b2h_tp~~CallsGraph_node4" class="node">
-<title>xh</title>
-<polygon fill="#777777" stroke="#777777" points="322,-234 268,-234 268,-210 322,-210 322,-234"/>
-<text text-anchor="middle" x="295" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
-</g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;xh -->
-<g id="interface~~util_coord_b2h_tp~~CallsGraph_edge3" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;xh</title>
-<path fill="none" stroke="#000000" d="M199.76,-150.04C218.14,-164.07 248.72,-187.42 270.04,-203.7"/>
-<polygon fill="#000000" stroke="#000000" points="268.2,-206.7 278.27,-209.99 272.45,-201.14 268.2,-206.7"/>
-</g>
-<!-- xb -->
-<g id="interface~~util_coord_b2h_tp~~CallsGraph_node5" class="node">
-<title>xb</title>
-<polygon fill="#777777" stroke="#777777" points="322,-192 268,-192 268,-168 322,-168 322,-192"/>
-<text text-anchor="middle" x="295" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xb</text>
-</g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;xb -->
-<g id="interface~~util_coord_b2h_tp~~CallsGraph_edge4" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;xb</title>
-<path fill="none" stroke="#000000" d="M215.52,-150.04C228.8,-155.11 244.34,-161.04 258.06,-166.28"/>
-<polygon fill="#000000" stroke="#000000" points="257.09,-169.65 267.68,-169.95 259.58,-163.11 257.09,-169.65"/>
-</g>
-<!-- xbcb -->
-<g id="interface~~util_coord_b2h_tp~~CallsGraph_node6" class="node">
-<title>xbcb</title>
-<polygon fill="#777777" stroke="#777777" points="322,-150 268,-150 268,-126 322,-126 322,-150"/>
-<text text-anchor="middle" x="295" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xbcb</text>
-</g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;xbcb -->
-<g id="interface~~util_coord_b2h_tp~~CallsGraph_edge5" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;xbcb</title>
-<path fill="none" stroke="#000000" d="M232.25,-138C240.76,-138 249.48,-138 257.6,-138"/>
-<polygon fill="#000000" stroke="#000000" points="257.85,-141.5 267.85,-138 257.85,-134.5 257.85,-141.5"/>
-</g>
-<!-- status -->
-<g id="interface~~util_coord_b2h_tp~~CallsGraph_node7" class="node">
-<title>status</title>
-<polygon fill="#777777" stroke="#777777" points="322,-108 268,-108 268,-84 322,-84 322,-108"/>
-<text text-anchor="middle" x="295" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">status</text>
-</g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;status -->
-<g id="interface~~util_coord_b2h_tp~~CallsGraph_edge6" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;status</title>
-<path fill="none" stroke="#000000" d="M215.52,-125.96C228.8,-120.89 244.34,-114.96 258.06,-109.72"/>
-<polygon fill="#000000" stroke="#000000" points="259.58,-112.89 267.68,-106.05 257.09,-106.35 259.58,-112.89"/>
-</g>
-<!-- vh -->
-<g id="interface~~util_coord_b2h_tp~~CallsGraph_node8" class="node">
-<title>vh</title>
-<polygon fill="#777777" stroke="#777777" points="322,-66 268,-66 268,-42 322,-42 322,-66"/>
-<text text-anchor="middle" x="295" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
-</g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;vh -->
-<g id="interface~~util_coord_b2h_tp~~CallsGraph_edge7" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;vh</title>
-<path fill="none" stroke="#000000" d="M199.76,-125.96C218.14,-111.93 248.72,-88.58 270.04,-72.3"/>
-<polygon fill="#000000" stroke="#000000" points="272.45,-74.86 278.27,-66.01 268.2,-69.3 272.45,-74.86"/>
-</g>
-<!-- vb -->
-<g id="interface~~util_coord_b2h_tp~~CallsGraph_node9" class="node">
-<title>vb</title>
-<polygon fill="#777777" stroke="#777777" 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">vb</text>
-</g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;vb -->
-<g id="interface~~util_coord_b2h_tp~~CallsGraph_edge8" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;vb</title>
-<path fill="none" stroke="#000000" d="M192.31,-125.97C206.58,-105.71 237.2,-63.94 268,-33 268.66,-32.33 269.35,-31.67 270.04,-31.01"/>
-<polygon fill="#000000" stroke="#000000" points="272.66,-33.37 277.85,-24.14 268.03,-28.11 272.66,-33.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M98.03,-12C106.31,-12 115,-12 123.52,-12"/>
+<polygon fill="#000000" stroke="#000000" points="123.79,-15.5 133.79,-12 123.79,-8.5 123.79,-15.5"/>
 </g>
 </g>
 </svg>
@@ -430,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~166"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~162"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_coord_h2b_pl.html b/docs/interface/util_coord_h2b_pl.html
index 80ebf4799..b3047c347 100644
--- a/docs/interface/util_coord_h2b_pl.html
+++ b/docs/interface/util_coord_h2b_pl.html
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~167"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~163"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_coord_h2b_tp.html b/docs/interface/util_coord_h2b_tp.html
index cbcdd1d0d..2fc6961fb 100644
--- a/docs/interface/util_coord_h2b_tp.html
+++ b/docs/interface/util_coord_h2b_tp.html
@@ -220,115 +220,31 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~util_coord_h2b_tp~~CallsGraph Pages: 1 -->
-<svg id="interfaceutil_coord_h2b_tpCallsGraph" width="330pt" height="284pt"
- viewBox="0.00 0.00 330.00 284.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~util_coord_h2b_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 280)">
+<svg id="interfaceutil_coord_h2b_tpCallsGraph" width="240pt" height="32pt"
+ viewBox="0.00 0.00 240.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_coord_h2b_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>interface~~util_coord_h2b_tp~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-280 326,-280 326,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 236,-28 236,4 -4,4"/>
 <!-- interface~util_coord_h2b_tp -->
 <g id="interface~~util_coord_h2b_tp~~CallsGraph_node1" class="node">
 <title>interface~util_coord_h2b_tp</title>
-<polygon fill="none" stroke="black" points="98,-150 0,-150 0,-126 98,-126 98,-150"/>
-<text text-anchor="middle" x="49" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_coord_h2b_tp</text>
+<polygon fill="none" stroke="black" points="98,-24 0,-24 0,0 98,0 98,-24"/>
+<text text-anchor="middle" x="49" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_coord_h2b_tp</text>
 </g>
 <!-- proc~util_coord_h2b_tp -->
 <g id="interface~~util_coord_h2b_tp~~CallsGraph_node2" class="node">
 <title>proc~util_coord_h2b_tp</title>
 <g id="a_interface~~util_coord_h2b_tp~~CallsGraph_node2"><a xlink:href=".././proc/util_coord_h2b_tp.html" xlink:title="util_coord_h2b_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="232,-150 134,-150 134,-126 232,-126 232,-150"/>
-<text text-anchor="middle" x="183" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_h2b_tp</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="232,-24 134,-24 134,0 232,0 232,-24"/>
+<text text-anchor="middle" x="183" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_h2b_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~util_coord_h2b_tp&#45;&gt;proc~util_coord_h2b_tp -->
 <g id="interface~~util_coord_h2b_tp~~CallsGraph_edge1" class="edge">
 <title>interface~util_coord_h2b_tp&#45;&gt;proc~util_coord_h2b_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M98.03,-138C106.31,-138 115,-138 123.52,-138"/>
-<polygon fill="#000000" stroke="#000000" points="123.79,-141.5 133.79,-138 123.79,-134.5 123.79,-141.5"/>
-</g>
-<!-- vbcb -->
-<g id="interface~~util_coord_h2b_tp~~CallsGraph_node3" class="node">
-<title>vbcb</title>
-<polygon fill="#777777" stroke="#777777" points="322,-276 268,-276 268,-252 322,-252 322,-276"/>
-<text text-anchor="middle" x="295" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vbcb</text>
-</g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;vbcb -->
-<g id="interface~~util_coord_h2b_tp~~CallsGraph_edge2" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;vbcb</title>
-<path fill="none" stroke="#000000" d="M192.31,-150.03C206.58,-170.29 237.2,-212.06 268,-243 268.66,-243.67 269.35,-244.33 270.04,-244.99"/>
-<polygon fill="#000000" stroke="#000000" points="268.03,-247.89 277.85,-251.86 272.66,-242.63 268.03,-247.89"/>
-</g>
-<!-- xh -->
-<g id="interface~~util_coord_h2b_tp~~CallsGraph_node4" class="node">
-<title>xh</title>
-<polygon fill="#777777" stroke="#777777" points="322,-234 268,-234 268,-210 322,-210 322,-234"/>
-<text text-anchor="middle" x="295" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
-</g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;xh -->
-<g id="interface~~util_coord_h2b_tp~~CallsGraph_edge3" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;xh</title>
-<path fill="none" stroke="#000000" d="M199.76,-150.04C218.14,-164.07 248.72,-187.42 270.04,-203.7"/>
-<polygon fill="#000000" stroke="#000000" points="268.2,-206.7 278.27,-209.99 272.45,-201.14 268.2,-206.7"/>
-</g>
-<!-- xb -->
-<g id="interface~~util_coord_h2b_tp~~CallsGraph_node5" class="node">
-<title>xb</title>
-<polygon fill="#777777" stroke="#777777" points="322,-192 268,-192 268,-168 322,-168 322,-192"/>
-<text text-anchor="middle" x="295" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xb</text>
-</g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;xb -->
-<g id="interface~~util_coord_h2b_tp~~CallsGraph_edge4" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;xb</title>
-<path fill="none" stroke="#000000" d="M215.52,-150.04C228.8,-155.11 244.34,-161.04 258.06,-166.28"/>
-<polygon fill="#000000" stroke="#000000" points="257.09,-169.65 267.68,-169.95 259.58,-163.11 257.09,-169.65"/>
-</g>
-<!-- xbcb -->
-<g id="interface~~util_coord_h2b_tp~~CallsGraph_node6" class="node">
-<title>xbcb</title>
-<polygon fill="#777777" stroke="#777777" points="322,-150 268,-150 268,-126 322,-126 322,-150"/>
-<text text-anchor="middle" x="295" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xbcb</text>
-</g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;xbcb -->
-<g id="interface~~util_coord_h2b_tp~~CallsGraph_edge5" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;xbcb</title>
-<path fill="none" stroke="#000000" d="M232.25,-138C240.76,-138 249.48,-138 257.6,-138"/>
-<polygon fill="#000000" stroke="#000000" points="257.85,-141.5 267.85,-138 257.85,-134.5 257.85,-141.5"/>
-</g>
-<!-- status -->
-<g id="interface~~util_coord_h2b_tp~~CallsGraph_node7" class="node">
-<title>status</title>
-<polygon fill="#777777" stroke="#777777" points="322,-108 268,-108 268,-84 322,-84 322,-108"/>
-<text text-anchor="middle" x="295" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">status</text>
-</g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;status -->
-<g id="interface~~util_coord_h2b_tp~~CallsGraph_edge6" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;status</title>
-<path fill="none" stroke="#000000" d="M215.52,-125.96C228.8,-120.89 244.34,-114.96 258.06,-109.72"/>
-<polygon fill="#000000" stroke="#000000" points="259.58,-112.89 267.68,-106.05 257.09,-106.35 259.58,-112.89"/>
-</g>
-<!-- vh -->
-<g id="interface~~util_coord_h2b_tp~~CallsGraph_node8" class="node">
-<title>vh</title>
-<polygon fill="#777777" stroke="#777777" points="322,-66 268,-66 268,-42 322,-42 322,-66"/>
-<text text-anchor="middle" x="295" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
-</g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;vh -->
-<g id="interface~~util_coord_h2b_tp~~CallsGraph_edge7" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;vh</title>
-<path fill="none" stroke="#000000" d="M199.76,-125.96C218.14,-111.93 248.72,-88.58 270.04,-72.3"/>
-<polygon fill="#000000" stroke="#000000" points="272.45,-74.86 278.27,-66.01 268.2,-69.3 272.45,-74.86"/>
-</g>
-<!-- vb -->
-<g id="interface~~util_coord_h2b_tp~~CallsGraph_node9" class="node">
-<title>vb</title>
-<polygon fill="#777777" stroke="#777777" 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">vb</text>
-</g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;vb -->
-<g id="interface~~util_coord_h2b_tp~~CallsGraph_edge8" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;vb</title>
-<path fill="none" stroke="#000000" d="M192.31,-125.97C206.58,-105.71 237.2,-63.94 268,-33 268.66,-32.33 269.35,-31.67 270.04,-31.01"/>
-<polygon fill="#000000" stroke="#000000" points="272.66,-33.37 277.85,-24.14 268.03,-28.11 272.66,-33.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M98.03,-12C106.31,-12 115,-12 123.52,-12"/>
+<polygon fill="#000000" stroke="#000000" points="123.79,-15.5 133.79,-12 123.79,-8.5 123.79,-15.5"/>
 </g>
 </g>
 </svg>
@@ -430,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~168"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~164"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_copy_encounter.html b/docs/interface/util_copy_encounter.html
index c7617cc18..47a683dac 100644
--- a/docs/interface/util_copy_encounter.html
+++ b/docs/interface/util_copy_encounter.html
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~169"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" id="variable-self~165"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_exit.html b/docs/interface/util_exit.html
index 8381e34ad..813201234 100644
--- a/docs/interface/util_exit.html
+++ b/docs/interface/util_exit.html
@@ -322,566 +322,536 @@ <h3 class="panel-title">Called by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~util_exit~~CalledByGraph Pages: 1 -->
-<svg id="interfaceutil_exitCalledByGraph" width="641pt" height="673pt"
- viewBox="0.00 0.00 641.00 672.73" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~util_exit~~CalledByGraph" class="graph" transform="scale(0.91 0.91) rotate(0) translate(4 738)">
+<svg id="interfaceutil_exitCalledByGraph" width="549pt" height="742pt"
+ viewBox="0.00 0.00 549.00 742.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_exit~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 738)">
 <title>interface~~util_exit~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-738 703,-738 703,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-738 545,-738 545,4 -4,4"/>
 <!-- interface~util_exit -->
 <g id="interface~~util_exit~~CalledByGraph_node1" class="node">
 <title>interface~util_exit</title>
-<polygon fill="none" stroke="black" points="699,-381 645,-381 645,-357 699,-357 699,-381"/>
-<text text-anchor="middle" x="672" y="-366.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_exit</text>
+<polygon fill="none" stroke="black" points="541,-381 487,-381 487,-357 541,-357 541,-381"/>
+<text text-anchor="middle" x="514" y="-366.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_exit</text>
 </g>
-<!-- proc~util_append_tp -->
+<!-- proc~io_get_args -->
 <g id="interface~~util_exit~~CalledByGraph_node2" class="node">
-<title>proc~util_append_tp</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node2"><a xlink:href=".././proc/util_append_tp.html" xlink:title="util_append_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="586.5,-734 503.5,-734 503.5,-710 586.5,-710 586.5,-734"/>
-<text text-anchor="middle" x="545" y="-719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
+<title>proc~io_get_args</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node2"><a xlink:href=".././proc/io_get_args.html" xlink:title="io_get_args">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="421.5,-734 352.5,-734 352.5,-710 421.5,-710 421.5,-734"/>
+<text text-anchor="middle" x="387" y="-719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
 </a>
 </g>
 </g>
-<!-- proc~util_append_tp&#45;&gt;interface~util_exit -->
+<!-- proc~io_get_args&#45;&gt;interface~util_exit -->
 <g id="interface~~util_exit~~CalledByGraph_edge1" class="edge">
-<title>proc~util_append_tp&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M586.78,-715.37C595.14,-712.26 603.17,-707.69 609,-701 649.7,-654.3 665.45,-458.55 669.71,-391.58"/>
-<polygon fill="#000000" stroke="#000000" points="673.22,-391.5 670.34,-381.31 666.23,-391.07 673.22,-391.5"/>
+<title>proc~io_get_args&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M421.56,-717.7C432.38,-714.69 443.5,-709.6 451,-701 491.7,-654.3 507.45,-458.55 511.71,-391.58"/>
+<polygon fill="#000000" stroke="#000000" points="515.22,-391.5 512.34,-381.31 508.23,-391.07 515.22,-391.5"/>
 </g>
-<!-- proc~util_valid -->
+<!-- proc~io_read_param_in -->
 <g id="interface~~util_exit~~CalledByGraph_node3" class="node">
-<title>proc~util_valid</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node3"><a xlink:href=".././proc/util_valid.html" xlink:title="util_valid">
-<polygon fill="#d9534f" stroke="#d9534f" points="572,-692 518,-692 518,-668 572,-668 572,-692"/>
-<text text-anchor="middle" x="545" y="-677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid</text>
+<title>proc~io_read_param_in</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node3"><a xlink:href=".././proc/io_read_param_in.html" xlink:title="io_read_param_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="437,-692 337,-692 337,-668 437,-668 437,-692"/>
+<text text-anchor="middle" x="387" y="-677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_param_in</text>
 </a>
 </g>
 </g>
-<!-- proc~util_valid&#45;&gt;interface~util_exit -->
+<!-- proc~io_read_param_in&#45;&gt;interface~util_exit -->
 <g id="interface~~util_exit~~CalledByGraph_edge2" class="edge">
-<title>proc~util_valid&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M572,-677.38C584.87,-674.74 599.62,-669.48 609,-659 644.79,-618.99 663.41,-451.75 669.09,-391.1"/>
-<polygon fill="#000000" stroke="#000000" points="672.58,-391.34 670,-381.07 665.61,-390.71 672.58,-391.34"/>
+<title>proc~io_read_param_in&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M437.26,-669.44C442.41,-666.72 447.16,-663.3 451,-659 486.79,-618.99 505.41,-451.75 511.09,-391.1"/>
+<polygon fill="#000000" stroke="#000000" points="514.58,-391.34 512,-381.07 507.61,-390.71 514.58,-391.34"/>
 </g>
-<!-- proc~io_get_args -->
+<!-- proc~util_append_tp -->
 <g id="interface~~util_exit~~CalledByGraph_node4" class="node">
-<title>proc~io_get_args</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node4"><a xlink:href=".././proc/io_get_args.html" xlink:title="io_get_args">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="579.5,-650 510.5,-650 510.5,-626 579.5,-626 579.5,-650"/>
-<text text-anchor="middle" x="545" y="-635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
+<title>proc~util_append_tp</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node4"><a xlink:href=".././proc/util_append_tp.html" xlink:title="util_append_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="428.5,-650 345.5,-650 345.5,-626 428.5,-626 428.5,-650"/>
+<text text-anchor="middle" x="387" y="-635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~io_get_args&#45;&gt;interface~util_exit -->
+<!-- proc~util_append_tp&#45;&gt;interface~util_exit -->
 <g id="interface~~util_exit~~CalledByGraph_edge3" class="edge">
-<title>proc~io_get_args&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M579.6,-633.35C590.29,-630.31 601.32,-625.29 609,-617 639.82,-583.72 660.95,-445.46 668.22,-391.1"/>
-<polygon fill="#000000" stroke="#000000" points="671.7,-391.48 669.52,-381.12 664.75,-390.58 671.7,-391.48"/>
+<title>proc~util_append_tp&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M428.81,-630.99C437.08,-627.89 445.05,-623.43 451,-617 481.82,-583.72 502.95,-445.46 510.22,-391.1"/>
+<polygon fill="#000000" stroke="#000000" points="513.7,-391.48 511.52,-381.12 506.75,-390.58 513.7,-391.48"/>
 </g>
-<!-- proc~io_read_body_in -->
+<!-- proc~io_dump_param -->
 <g id="interface~~util_exit~~CalledByGraph_node5" class="node">
-<title>proc~io_read_body_in</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node5"><a xlink:href=".././proc/io_read_body_in.html" xlink:title="io_read_body_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="591,-608 499,-608 499,-584 591,-584 591,-608"/>
-<text text-anchor="middle" x="545" y="-593.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_body_in</text>
+<title>proc~io_dump_param</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node5"><a xlink:href=".././proc/io_dump_param.html" xlink:title="io_dump_param">
+<polygon fill="#d9534f" stroke="#d9534f" points="432.5,-608 341.5,-608 341.5,-584 432.5,-584 432.5,-608"/>
+<text text-anchor="middle" x="387" y="-593.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_param</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_body_in&#45;&gt;interface~util_exit -->
+<!-- proc~io_dump_param&#45;&gt;interface~util_exit -->
 <g id="interface~~util_exit~~CalledByGraph_edge4" class="edge">
-<title>proc~io_read_body_in&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M591.13,-586.93C597.76,-584 604.02,-580.13 609,-575 659.05,-523.46 668.89,-433.06 670.69,-391.3"/>
-<polygon fill="#000000" stroke="#000000" points="674.19,-391.22 671.01,-381.11 667.2,-391 674.19,-391.22"/>
+<title>proc~io_dump_param&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M432.8,-587.07C439.56,-584.13 445.94,-580.21 451,-575 501.05,-523.46 510.89,-433.06 512.69,-391.3"/>
+<polygon fill="#000000" stroke="#000000" points="516.19,-391.22 513.01,-381.11 509.2,-391 516.19,-391.22"/>
 </g>
-<!-- proc~io_read_param_in -->
+<!-- proc~io_dump_swiftest -->
 <g id="interface~~util_exit~~CalledByGraph_node6" class="node">
-<title>proc~io_read_param_in</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node6"><a xlink:href=".././proc/io_read_param_in.html" xlink:title="io_read_param_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="595,-566 495,-566 495,-542 595,-542 595,-566"/>
-<text text-anchor="middle" x="545" y="-551.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_param_in</text>
-</a>
-</g>
-</g>
-<!-- proc~io_read_param_in&#45;&gt;interface~util_exit -->
-<g id="interface~~util_exit~~CalledByGraph_edge15" class="edge">
-<title>proc~io_read_param_in&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M588.59,-541.98C596.07,-538.41 603.28,-533.83 609,-528 646.83,-489.42 662.23,-425.11 667.95,-391.31"/>
-<polygon fill="#000000" stroke="#000000" points="671.46,-391.52 669.54,-381.1 664.55,-390.44 671.46,-391.52"/>
-</g>
-<!-- proc~io_write_hdr -->
-<g id="interface~~util_exit~~CalledByGraph_node7" class="node">
-<title>proc~io_write_hdr</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node7"><a xlink:href=".././proc/io_write_hdr.html" xlink:title="io_write_hdr">
-<polygon fill="#d9534f" stroke="#d9534f" points="580.5,-486 509.5,-486 509.5,-462 580.5,-462 580.5,-486"/>
-<text text-anchor="middle" x="545" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_hdr</text>
+<title>proc~io_dump_swiftest</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node6"><a xlink:href=".././proc/io_dump_swiftest.html" xlink:title="io_dump_swiftest">
+<polygon fill="#d9534f" stroke="#d9534f" points="434.5,-566 339.5,-566 339.5,-542 434.5,-542 434.5,-566"/>
+<text text-anchor="middle" x="387" y="-551.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_swiftest</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_hdr&#45;&gt;interface~util_exit -->
-<g id="interface~~util_exit~~CalledByGraph_edge8" class="edge">
-<title>proc~io_write_hdr&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M580.53,-466.66C590.33,-463.51 600.61,-459.1 609,-453 631.73,-436.49 649.66,-409.18 660.27,-390.2"/>
-<polygon fill="#000000" stroke="#000000" points="663.49,-391.6 665.14,-381.14 657.33,-388.29 663.49,-391.6"/>
+<!-- proc~io_dump_swiftest&#45;&gt;interface~util_exit -->
+<g id="interface~~util_exit~~CalledByGraph_edge5" class="edge">
+<title>proc~io_dump_swiftest&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M434.75,-543.77C440.71,-541 446.35,-537.47 451,-533 491.4,-494.17 505.76,-426.39 510.63,-391.37"/>
+<polygon fill="#000000" stroke="#000000" points="514.13,-391.58 511.91,-381.22 507.19,-390.71 514.13,-391.58"/>
 </g>
 <!-- proc~io_read_cb_in -->
-<g id="interface~~util_exit~~CalledByGraph_node8" class="node">
+<g id="interface~~util_exit~~CalledByGraph_node7" class="node">
 <title>proc~io_read_cb_in</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node8"><a xlink:href=".././proc/io_read_cb_in.html" xlink:title="io_read_cb_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="585,-444 505,-444 505,-420 585,-420 585,-444"/>
-<text text-anchor="middle" x="545" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_cb_in</text>
+<g id="a_interface~~util_exit~~CalledByGraph_node7"><a xlink:href=".././proc/io_read_cb_in.html" xlink:title="io_read_cb_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="427,-524 347,-524 347,-500 427,-500 427,-524"/>
+<text text-anchor="middle" x="387" y="-509.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_cb_in</text>
 </a>
 </g>
 </g>
 <!-- proc~io_read_cb_in&#45;&gt;interface~util_exit -->
-<g id="interface~~util_exit~~CalledByGraph_edge17" class="edge">
+<g id="interface~~util_exit~~CalledByGraph_edge6" class="edge">
 <title>proc~io_read_cb_in&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M585.32,-420.74C593.32,-417.94 601.56,-414.67 609,-411 622.25,-404.46 635.95,-395.45 647.09,-387.45"/>
-<polygon fill="#000000" stroke="#000000" points="649.44,-390.07 655.42,-381.32 645.29,-384.43 649.44,-390.07"/>
+<path fill="none" stroke="#000000" d="M427.14,-504.17C435.68,-501.11 444.19,-496.87 451,-491 481.99,-464.3 499.33,-418.34 507.38,-391.1"/>
+<polygon fill="#000000" stroke="#000000" points="510.79,-391.9 510.1,-381.33 504.04,-390.02 510.79,-391.9"/>
 </g>
-<!-- proc~io_dump_param -->
-<g id="interface~~util_exit~~CalledByGraph_node9" class="node">
-<title>proc~io_dump_param</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node9"><a xlink:href=".././proc/io_dump_param.html" xlink:title="io_dump_param">
-<polygon fill="#d9534f" stroke="#d9534f" points="590.5,-402 499.5,-402 499.5,-378 590.5,-378 590.5,-402"/>
-<text text-anchor="middle" x="545" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_param</text>
+<!-- proc~io_read_frame_body -->
+<g id="interface~~util_exit~~CalledByGraph_node8" class="node">
+<title>proc~io_read_frame_body</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node8"><a xlink:href=".././proc/io_read_frame_body.html" xlink:title="io_read_frame_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="443,-482 331,-482 331,-458 443,-458 443,-482"/>
+<text text-anchor="middle" x="387" y="-467.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_body</text>
 </a>
 </g>
 </g>
-<!-- proc~io_dump_param&#45;&gt;interface~util_exit -->
-<g id="interface~~util_exit~~CalledByGraph_edge9" class="edge">
-<title>proc~io_dump_param&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M590.77,-382.48C605.18,-380.06 620.95,-377.41 634.67,-375.1"/>
-<polygon fill="#000000" stroke="#000000" points="635.42,-378.53 644.7,-373.42 634.26,-371.62 635.42,-378.53"/>
+<!-- proc~io_read_frame_body&#45;&gt;interface~util_exit -->
+<g id="interface~~util_exit~~CalledByGraph_edge7" class="edge">
+<title>proc~io_read_frame_body&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M425.59,-458C434.37,-454.27 443.38,-449.62 451,-444 471.19,-429.1 488.82,-406.25 500.06,-389.69"/>
+<polygon fill="#000000" stroke="#000000" points="503.06,-391.5 505.63,-381.22 497.21,-387.66 503.06,-391.5"/>
 </g>
-<!-- proc~io_write_discard -->
-<g id="interface~~util_exit~~CalledByGraph_node10" class="node">
-<title>proc~io_write_discard</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node10"><a xlink:href=".././proc/io_write_discard.html" xlink:title="io_write_discard">
-<polygon fill="#d9534f" stroke="#d9534f" points="590,-360 500,-360 500,-336 590,-336 590,-360"/>
-<text text-anchor="middle" x="545" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_discard</text>
+<!-- proc~io_write_hdr -->
+<g id="interface~~util_exit~~CalledByGraph_node9" class="node">
+<title>proc~io_write_hdr</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node9"><a xlink:href=".././proc/io_write_hdr.html" xlink:title="io_write_hdr">
+<polygon fill="#d9534f" stroke="#d9534f" points="422.5,-402 351.5,-402 351.5,-378 422.5,-378 422.5,-402"/>
+<text text-anchor="middle" x="387" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_hdr</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_discard&#45;&gt;interface~util_exit -->
-<g id="interface~~util_exit~~CalledByGraph_edge10" class="edge">
-<title>proc~io_write_discard&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M590.07,-355.4C604.63,-357.85 620.66,-360.54 634.59,-362.88"/>
-<polygon fill="#000000" stroke="#000000" points="634.32,-366.39 644.76,-364.59 635.48,-359.48 634.32,-366.39"/>
+<!-- proc~io_write_hdr&#45;&gt;interface~util_exit -->
+<g id="interface~~util_exit~~CalledByGraph_edge8" class="edge">
+<title>proc~io_write_hdr&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M422.82,-384.15C439.57,-381.34 459.64,-377.96 476.6,-375.12"/>
+<polygon fill="#000000" stroke="#000000" points="477.41,-378.53 486.69,-373.42 476.25,-371.63 477.41,-378.53"/>
 </g>
 <!-- proc~io_read_encounter -->
-<g id="interface~~util_exit~~CalledByGraph_node11" class="node">
+<g id="interface~~util_exit~~CalledByGraph_node10" class="node">
 <title>proc~io_read_encounter</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node11"><a xlink:href=".././proc/io_read_encounter.html" xlink:title="io_read_encounter">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="596.5,-318 493.5,-318 493.5,-294 596.5,-294 596.5,-318"/>
-<text text-anchor="middle" x="545" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_encounter</text>
+<g id="a_interface~~util_exit~~CalledByGraph_node10"><a xlink:href=".././proc/io_read_encounter.html" xlink:title="io_read_encounter">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="438.5,-360 335.5,-360 335.5,-336 438.5,-336 438.5,-360"/>
+<text text-anchor="middle" x="387" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_encounter</text>
 </a>
 </g>
 </g>
 <!-- proc~io_read_encounter&#45;&gt;interface~util_exit -->
-<g id="interface~~util_exit~~CalledByGraph_edge11" class="edge">
+<g id="interface~~util_exit~~CalledByGraph_edge9" class="edge">
 <title>proc~io_read_encounter&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M587.66,-318.09C594.91,-320.7 602.28,-323.68 609,-327 622.25,-333.54 635.95,-342.55 647.09,-350.55"/>
-<polygon fill="#000000" stroke="#000000" points="645.29,-353.57 655.42,-356.68 649.44,-347.93 645.29,-353.57"/>
+<path fill="none" stroke="#000000" d="M438.84,-356.54C451.6,-358.68 465.03,-360.94 476.9,-362.93"/>
+<polygon fill="#000000" stroke="#000000" points="476.43,-366.41 486.87,-364.61 477.59,-359.5 476.43,-366.41"/>
 </g>
 <!-- proc~io_read_frame_cb -->
-<g id="interface~~util_exit~~CalledByGraph_node12" class="node">
+<g id="interface~~util_exit~~CalledByGraph_node11" class="node">
 <title>proc~io_read_frame_cb</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node12"><a xlink:href=".././proc/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
-<polygon fill="#d9534f" stroke="#d9534f" points="595,-276 495,-276 495,-252 595,-252 595,-276"/>
-<text text-anchor="middle" x="545" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
+<g id="a_interface~~util_exit~~CalledByGraph_node11"><a xlink:href=".././proc/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
+<polygon fill="#d9534f" stroke="#d9534f" points="437,-318 337,-318 337,-294 437,-294 437,-318"/>
+<text text-anchor="middle" x="387" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
 </a>
 </g>
 </g>
 <!-- proc~io_read_frame_cb&#45;&gt;interface~util_exit -->
-<g id="interface~~util_exit~~CalledByGraph_edge12" class="edge">
+<g id="interface~~util_exit~~CalledByGraph_edge10" class="edge">
 <title>proc~io_read_frame_cb&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M593.02,-276.04C598.67,-278.52 604.15,-281.48 609,-285 631.73,-301.51 649.66,-328.82 660.27,-347.8"/>
-<polygon fill="#000000" stroke="#000000" points="657.33,-349.71 665.14,-356.86 663.49,-346.4 657.33,-349.71"/>
+<path fill="none" stroke="#000000" d="M429.66,-318.09C436.91,-320.7 444.28,-323.68 451,-327 464.25,-333.54 477.95,-342.55 489.09,-350.55"/>
+<polygon fill="#000000" stroke="#000000" points="487.29,-353.57 497.42,-356.68 491.44,-347.93 487.29,-353.57"/>
 </g>
-<!-- proc~setup_construct_system -->
-<g id="interface~~util_exit~~CalledByGraph_node13" class="node">
-<title>proc~setup_construct_system</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node13"><a xlink:href=".././proc/setup_construct_system.html" xlink:title="setup_construct_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="609,-234 481,-234 481,-210 609,-210 609,-234"/>
-<text text-anchor="middle" x="545" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
-</a>
-</g>
-</g>
-<!-- proc~setup_construct_system&#45;&gt;interface~util_exit -->
-<g id="interface~~util_exit~~CalledByGraph_edge13" class="edge">
-<title>proc~setup_construct_system&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M595.25,-234.01C600.21,-236.47 604.92,-239.44 609,-243 640.78,-270.74 657.92,-318.54 665.7,-346.62"/>
-<polygon fill="#000000" stroke="#000000" points="662.41,-347.86 668.31,-356.66 669.18,-346.1 662.41,-347.86"/>
-</g>
-<!-- proc~io_dump_swiftest -->
-<g id="interface~~util_exit~~CalledByGraph_node14" class="node">
-<title>proc~io_dump_swiftest</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node14"><a xlink:href=".././proc/io_dump_swiftest.html" xlink:title="io_dump_swiftest">
-<polygon fill="#d9534f" stroke="#d9534f" points="592.5,-192 497.5,-192 497.5,-168 592.5,-168 592.5,-192"/>
-<text text-anchor="middle" x="545" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_swiftest</text>
+<!-- proc~io_write_encounter -->
+<g id="interface~~util_exit~~CalledByGraph_node12" class="node">
+<title>proc~io_write_encounter</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node12"><a xlink:href=".././proc/io_write_encounter.html" xlink:title="io_write_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="438.5,-276 335.5,-276 335.5,-252 438.5,-252 438.5,-276"/>
+<text text-anchor="middle" x="387" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
 </a>
 </g>
 </g>
-<!-- proc~io_dump_swiftest&#45;&gt;interface~util_exit -->
-<g id="interface~~util_exit~~CalledByGraph_edge14" class="edge">
-<title>proc~io_dump_swiftest&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M592.78,-190.2C598.74,-192.98 604.36,-196.51 609,-201 650.31,-241.01 664.29,-310.92 668.87,-346.62"/>
-<polygon fill="#000000" stroke="#000000" points="665.44,-347.4 670.05,-356.93 672.39,-346.6 665.44,-347.4"/>
+<!-- proc~io_write_encounter&#45;&gt;interface~util_exit -->
+<g id="interface~~util_exit~~CalledByGraph_edge11" class="edge">
+<title>proc~io_write_encounter&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M435.02,-276.04C440.67,-278.52 446.15,-281.48 451,-285 473.73,-301.51 491.66,-328.82 502.27,-347.8"/>
+<polygon fill="#000000" stroke="#000000" points="499.33,-349.71 507.14,-356.86 505.49,-346.4 499.33,-349.71"/>
 </g>
 <!-- proc~io_write_frame_system -->
-<g id="interface~~util_exit~~CalledByGraph_node15" class="node">
+<g id="interface~~util_exit~~CalledByGraph_node13" class="node">
 <title>proc~io_write_frame_system</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node15"><a xlink:href=".././proc/io_write_frame_system.html" xlink:title="io_write_frame_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="442.5,-505 319.5,-505 319.5,-481 442.5,-481 442.5,-505"/>
-<text text-anchor="middle" x="381" y="-490.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</text>
+<g id="a_interface~~util_exit~~CalledByGraph_node13"><a xlink:href=".././proc/io_write_frame_system.html" xlink:title="io_write_frame_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="284.5,-421 161.5,-421 161.5,-397 284.5,-397 284.5,-421"/>
+<text text-anchor="middle" x="223" y="-406.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</text>
 </a>
 </g>
 </g>
 <!-- proc~io_write_frame_system&#45;&gt;interface~util_exit -->
-<g id="interface~~util_exit~~CalledByGraph_edge5" class="edge">
+<g id="interface~~util_exit~~CalledByGraph_edge12" class="edge">
 <title>proc~io_write_frame_system&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M420.69,-505.07C468.76,-517.6 551.45,-530.82 609,-495 645.52,-472.27 661.15,-421.01 667.34,-391.35"/>
-<polygon fill="#000000" stroke="#000000" points="670.85,-391.62 669.27,-381.14 663.97,-390.32 670.85,-391.62"/>
+<path fill="none" stroke="#000000" d="M284.69,-419.31C331.25,-424.91 396.56,-427.7 451,-411 466.05,-406.38 480.74,-396.73 492.04,-387.84"/>
+<polygon fill="#000000" stroke="#000000" points="494.49,-390.36 499.97,-381.29 490.03,-384.96 494.49,-390.36"/>
 </g>
 <!-- proc~io_write_frame_system&#45;&gt;proc~io_write_hdr -->
-<g id="interface~~util_exit~~CalledByGraph_edge24" class="edge">
+<g id="interface~~util_exit~~CalledByGraph_edge26" class="edge">
 <title>proc~io_write_frame_system&#45;&gt;proc~io_write_hdr</title>
-<path fill="none" stroke="#000000" d="M442.78,-485.87C461.37,-483.69 481.48,-481.33 498.83,-479.3"/>
-<polygon fill="#000000" stroke="#000000" points="499.72,-482.72 509.25,-478.08 498.91,-475.76 499.72,-482.72"/>
+<path fill="none" stroke="#000000" d="M284.78,-401.87C303.37,-399.69 323.48,-397.33 340.83,-395.3"/>
+<polygon fill="#000000" stroke="#000000" points="341.72,-398.72 351.25,-394.08 340.91,-391.76 341.72,-398.72"/>
 </g>
-<!-- proc~io_read_frame_body -->
+<!-- proc~util_valid_id_system -->
+<g id="interface~~util_exit~~CalledByGraph_node14" class="node">
+<title>proc~util_valid_id_system</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node14"><a xlink:href=".././proc/util_valid_id_system.html" xlink:title="util_valid_id_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="441,-234 333,-234 333,-210 441,-210 441,-234"/>
+<text text-anchor="middle" x="387" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid_id_system</text>
+</a>
+</g>
+</g>
+<!-- proc~util_valid_id_system&#45;&gt;interface~util_exit -->
+<g id="interface~~util_exit~~CalledByGraph_edge13" class="edge">
+<title>proc~util_valid_id_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M437.25,-234.01C442.21,-236.47 446.92,-239.44 451,-243 482.78,-270.74 499.92,-318.54 507.7,-346.62"/>
+<polygon fill="#000000" stroke="#000000" points="504.41,-347.86 510.31,-356.66 511.18,-346.1 504.41,-347.86"/>
+</g>
+<!-- proc~setup_construct_system -->
+<g id="interface~~util_exit~~CalledByGraph_node15" class="node">
+<title>proc~setup_construct_system</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node15"><a xlink:href=".././proc/setup_construct_system.html" xlink:title="setup_construct_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="451,-192 323,-192 323,-168 451,-168 451,-192"/>
+<text text-anchor="middle" x="387" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
+</a>
+</g>
+</g>
+<!-- proc~setup_construct_system&#45;&gt;interface~util_exit -->
+<g id="interface~~util_exit~~CalledByGraph_edge14" class="edge">
+<title>proc~setup_construct_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M438.56,-192.09C443.1,-194.53 447.36,-197.47 451,-201 492.31,-241.01 506.29,-310.92 510.87,-346.62"/>
+<polygon fill="#000000" stroke="#000000" points="507.44,-347.4 512.05,-356.93 514.39,-346.6 507.44,-347.4"/>
+</g>
+<!-- proc~io_read_body_in -->
 <g id="interface~~util_exit~~CalledByGraph_node16" class="node">
-<title>proc~io_read_frame_body</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node16"><a xlink:href=".././proc/io_read_frame_body.html" xlink:title="io_read_frame_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="601,-150 489,-150 489,-126 601,-126 601,-150"/>
-<text text-anchor="middle" x="545" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_body</text>
+<title>proc~io_read_body_in</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node16"><a xlink:href=".././proc/io_read_body_in.html" xlink:title="io_read_body_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="433,-150 341,-150 341,-126 433,-126 433,-150"/>
+<text text-anchor="middle" x="387" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_body_in</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_frame_body&#45;&gt;interface~util_exit -->
-<g id="interface~~util_exit~~CalledByGraph_edge18" class="edge">
-<title>proc~io_read_frame_body&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M597.11,-150.02C601.49,-152.47 605.56,-155.43 609,-159 660.03,-211.83 669.35,-304.55 670.85,-346.85"/>
-<polygon fill="#000000" stroke="#000000" points="667.35,-347 671.09,-356.91 674.35,-346.83 667.35,-347"/>
+<!-- proc~io_read_body_in&#45;&gt;interface~util_exit -->
+<g id="interface~~util_exit~~CalledByGraph_edge15" class="edge">
+<title>proc~io_read_body_in&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M433.15,-147.04C439.78,-149.98 446.03,-153.86 451,-159 502.03,-211.83 511.35,-304.55 512.85,-346.85"/>
+<polygon fill="#000000" stroke="#000000" points="509.35,-347 513.09,-356.91 516.35,-346.83 509.35,-347"/>
 </g>
-<!-- proc~io_write_encounter -->
+<!-- proc~io_write_discard -->
 <g id="interface~~util_exit~~CalledByGraph_node17" class="node">
-<title>proc~io_write_encounter</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node17"><a xlink:href=".././proc/io_write_encounter.html" xlink:title="io_write_encounter">
-<polygon fill="#d9534f" stroke="#d9534f" points="596.5,-108 493.5,-108 493.5,-84 596.5,-84 596.5,-108"/>
-<text text-anchor="middle" x="545" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
+<title>proc~io_write_discard</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node17"><a xlink:href=".././proc/io_write_discard.html" xlink:title="io_write_discard">
+<polygon fill="#d9534f" stroke="#d9534f" points="432,-108 342,-108 342,-84 432,-84 432,-108"/>
+<text text-anchor="middle" x="387" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_discard</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_encounter&#45;&gt;interface~util_exit -->
+<!-- proc~io_write_discard&#45;&gt;interface~util_exit -->
 <g id="interface~~util_exit~~CalledByGraph_edge16" class="edge">
-<title>proc~io_write_encounter&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M596.67,-107.51C601.25,-110.07 605.48,-113.19 609,-117 640.23,-150.85 661.12,-291.32 668.27,-346.55"/>
-<polygon fill="#000000" stroke="#000000" points="664.82,-347.21 669.55,-356.69 671.77,-346.33 664.82,-347.21"/>
+<title>proc~io_write_discard&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M432.07,-104.29C439.15,-107.3 445.84,-111.41 451,-117 482.23,-150.85 503.12,-291.32 510.27,-346.55"/>
+<polygon fill="#000000" stroke="#000000" points="506.82,-347.21 511.55,-356.69 513.77,-346.33 506.82,-347.21"/>
 </g>
-<!-- proc~util_solve_rkf45 -->
+<!-- proc~util_append_pl -->
 <g id="interface~~util_exit~~CalledByGraph_node18" class="node">
-<title>proc~util_solve_rkf45</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node18"><a xlink:href=".././proc/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="588.5,-66 501.5,-66 501.5,-42 588.5,-42 588.5,-66"/>
-<text text-anchor="middle" x="545" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_rkf45</text>
+<title>proc~util_append_pl</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node18"><a xlink:href=".././proc/util_append_pl.html" xlink:title="util_append_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="428,-66 346,-66 346,-42 428,-42 428,-66"/>
+<text text-anchor="middle" x="387" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_solve_rkf45&#45;&gt;interface~util_exit -->
-<g id="interface~~util_exit~~CalledByGraph_edge7" class="edge">
-<title>proc~util_solve_rkf45&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M588.61,-61.48C596.28,-64.56 603.55,-68.89 609,-75 645.21,-115.58 663.56,-285.11 669.13,-346.6"/>
-<polygon fill="#000000" stroke="#000000" points="665.66,-347.11 670.02,-356.77 672.63,-346.5 665.66,-347.11"/>
+<!-- proc~util_append_pl&#45;&gt;interface~util_exit -->
+<g id="interface~~util_exit~~CalledByGraph_edge17" class="edge">
+<title>proc~util_append_pl&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M428.01,-60.49C436.62,-63.6 444.94,-68.2 451,-75 487.21,-115.58 505.56,-285.11 511.13,-346.6"/>
+<polygon fill="#000000" stroke="#000000" points="507.66,-347.11 512.02,-356.77 514.63,-346.5 507.66,-347.11"/>
 </g>
-<!-- proc~util_append_pl -->
+<!-- proc~util_solve_rkf45 -->
 <g id="interface~~util_exit~~CalledByGraph_node19" class="node">
-<title>proc~util_append_pl</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node19"><a xlink:href=".././proc/util_append_pl.html" xlink:title="util_append_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="586,-24 504,-24 504,0 586,0 586,-24"/>
-<text text-anchor="middle" x="545" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
+<title>proc~util_solve_rkf45</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node19"><a xlink:href=".././proc/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="430.5,-24 343.5,-24 343.5,0 430.5,0 430.5,-24"/>
+<text text-anchor="middle" x="387" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_rkf45</text>
 </a>
 </g>
 </g>
-<!-- proc~util_append_pl&#45;&gt;interface~util_exit -->
-<g id="interface~~util_exit~~CalledByGraph_edge6" class="edge">
-<title>proc~util_append_pl&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M586.13,-18.38C594.74,-21.5 603.02,-26.13 609,-33 650.21,-80.39 665.67,-279.27 669.78,-346.6"/>
-<polygon fill="#000000" stroke="#000000" points="666.3,-347.13 670.38,-356.91 673.29,-346.73 666.3,-347.13"/>
+<!-- proc~util_solve_rkf45&#45;&gt;interface~util_exit -->
+<g id="interface~~util_exit~~CalledByGraph_edge18" class="edge">
+<title>proc~util_solve_rkf45&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M430.73,-19.37C438.39,-22.46 445.63,-26.82 451,-33 492.21,-80.39 507.67,-279.27 511.78,-346.6"/>
+<polygon fill="#000000" stroke="#000000" points="508.3,-347.13 512.38,-356.91 515.29,-346.73 508.3,-347.13"/>
 </g>
-<!-- interface~util_solve_rkf45 -->
+<!-- interface~io_read_cb_in -->
 <g id="interface~~util_exit~~CalledByGraph_node20" class="node">
-<title>interface~util_solve_rkf45</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node20"><a xlink:href=".././interface/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
-<polygon fill="#a7506f" stroke="#a7506f" points="424.5,-66 337.5,-66 337.5,-42 424.5,-42 424.5,-66"/>
-<text text-anchor="middle" x="381" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_rkf45</text>
+<title>interface~io_read_cb_in</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node20"><a xlink:href=".././interface/io_read_cb_in.html" xlink:title="io_read_cb_in">
+<polygon fill="#a7506f" stroke="#a7506f" points="263,-524 183,-524 183,-500 263,-500 263,-524"/>
+<text text-anchor="middle" x="223" y="-509.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_cb_in</text>
 </a>
 </g>
 </g>
-<!-- interface~util_solve_rkf45&#45;&gt;proc~util_solve_rkf45 -->
-<g id="interface~~util_exit~~CalledByGraph_edge34" class="edge">
-<title>interface~util_solve_rkf45&#45;&gt;proc~util_solve_rkf45</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M424.56,-54C445.04,-54 469.78,-54 491.42,-54"/>
-<polygon fill="#000000" stroke="#000000" points="491.44,-57.5 501.44,-54 491.44,-50.5 491.44,-57.5"/>
+<!-- interface~io_read_cb_in&#45;&gt;proc~io_read_cb_in -->
+<g id="interface~~util_exit~~CalledByGraph_edge24" class="edge">
+<title>interface~io_read_cb_in&#45;&gt;proc~io_read_cb_in</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M263.22,-512C285.32,-512 313.14,-512 336.71,-512"/>
+<polygon fill="#000000" stroke="#000000" points="336.87,-515.5 346.87,-512 336.86,-508.5 336.87,-515.5"/>
 </g>
-<!-- interface~util_valid -->
+<!-- interface~util_valid_id_system -->
 <g id="interface~~util_exit~~CalledByGraph_node21" class="node">
-<title>interface~util_valid</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node21"><a xlink:href=".././interface/util_valid.html" xlink:title="util_valid">
-<polygon fill="#a7506f" stroke="#a7506f" points="408,-692 354,-692 354,-668 408,-668 408,-692"/>
-<text text-anchor="middle" x="381" y="-677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid</text>
+<title>interface~util_valid_id_system</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node21"><a xlink:href=".././interface/util_valid_id_system.html" xlink:title="util_valid_id_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="277,-234 169,-234 169,-210 277,-210 277,-234"/>
+<text text-anchor="middle" x="223" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid_id_system</text>
 </a>
 </g>
 </g>
-<!-- interface~util_valid&#45;&gt;proc~util_valid -->
-<g id="interface~~util_exit~~CalledByGraph_edge20" class="edge">
-<title>interface~util_valid&#45;&gt;proc~util_valid</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M408.03,-680C434.99,-680 477.34,-680 507.61,-680"/>
-<polygon fill="#000000" stroke="#000000" points="507.77,-683.5 517.77,-680 507.77,-676.5 507.77,-683.5"/>
+<!-- interface~util_valid_id_system&#45;&gt;proc~util_valid_id_system -->
+<g id="interface~~util_exit~~CalledByGraph_edge30" class="edge">
+<title>interface~util_valid_id_system&#45;&gt;proc~util_valid_id_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M277.04,-222C291.59,-222 307.51,-222 322.57,-222"/>
+<polygon fill="#000000" stroke="#000000" points="322.84,-225.5 332.84,-222 322.84,-218.5 322.84,-225.5"/>
 </g>
 <!-- interface~io_write_discard -->
 <g id="interface~~util_exit~~CalledByGraph_node22" class="node">
 <title>interface~io_write_discard</title>
 <g id="a_interface~~util_exit~~CalledByGraph_node22"><a xlink:href=".././interface/io_write_discard.html" xlink:title="io_write_discard">
-<polygon fill="#a7506f" stroke="#a7506f" points="426,-360 336,-360 336,-336 426,-336 426,-360"/>
-<text text-anchor="middle" x="381" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_discard</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="268,-108 178,-108 178,-84 268,-84 268,-108"/>
+<text text-anchor="middle" x="223" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_discard</text>
 </a>
 </g>
 </g>
 <!-- interface~io_write_discard&#45;&gt;proc~io_write_discard -->
-<g id="interface~~util_exit~~CalledByGraph_edge27" class="edge">
+<g id="interface~~util_exit~~CalledByGraph_edge33" class="edge">
 <title>interface~io_write_discard&#45;&gt;proc~io_write_discard</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.27,-348C445.82,-348 469,-348 489.6,-348"/>
-<polygon fill="#000000" stroke="#000000" points="489.79,-351.5 499.79,-348 489.79,-344.5 489.79,-351.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.27,-96C287.82,-96 311,-96 331.6,-96"/>
+<polygon fill="#000000" stroke="#000000" points="331.79,-99.5 341.79,-96 331.79,-92.5 331.79,-99.5"/>
 </g>
-<!-- interface~io_write_frame_system -->
+<!-- interface~util_append_pl -->
 <g id="interface~~util_exit~~CalledByGraph_node23" class="node">
-<title>interface~io_write_frame_system</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node23"><a xlink:href=".././interface/io_write_frame_system.html" xlink:title="io_write_frame_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="281,-505 158,-505 158,-481 281,-481 281,-505"/>
-<text text-anchor="middle" x="219.5" y="-490.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</text>
+<title>interface~util_append_pl</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node23"><a xlink:href=".././interface/util_append_pl.html" xlink:title="util_append_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="264,-66 182,-66 182,-42 264,-42 264,-66"/>
+<text text-anchor="middle" x="223" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~io_write_frame_system&#45;&gt;proc~io_write_frame_system -->
-<g id="interface~~util_exit~~CalledByGraph_edge31" class="edge">
-<title>interface~io_write_frame_system&#45;&gt;proc~io_write_frame_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.26,-493C290.44,-493 299.97,-493 309.34,-493"/>
-<polygon fill="#000000" stroke="#000000" points="309.41,-496.5 319.41,-493 309.41,-489.5 309.41,-496.5"/>
+<!-- interface~util_append_pl&#45;&gt;proc~util_append_pl -->
+<g id="interface~~util_exit~~CalledByGraph_edge34" class="edge">
+<title>interface~util_append_pl&#45;&gt;proc~util_append_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.04,-54C285.66,-54 312.55,-54 335.58,-54"/>
+<polygon fill="#000000" stroke="#000000" points="335.85,-57.5 345.85,-54 335.85,-50.5 335.85,-57.5"/>
 </g>
-<!-- interface~io_read_body_in -->
+<!-- interface~io_dump_swiftest -->
 <g id="interface~~util_exit~~CalledByGraph_node24" class="node">
-<title>interface~io_read_body_in</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node24"><a xlink:href=".././interface/io_read_body_in.html" xlink:title="io_read_body_in">
-<polygon fill="#a7506f" stroke="#a7506f" points="427,-608 335,-608 335,-584 427,-584 427,-608"/>
-<text text-anchor="middle" x="381" y="-593.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_body_in</text>
+<title>interface~io_dump_swiftest</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node24"><a xlink:href=".././interface/io_dump_swiftest.html" xlink:title="io_dump_swiftest">
+<polygon fill="#a7506f" stroke="#a7506f" points="270.5,-566 175.5,-566 175.5,-542 270.5,-542 270.5,-566"/>
+<text text-anchor="middle" x="223" y="-551.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_swiftest</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_body_in&#45;&gt;proc~io_read_body_in -->
-<g id="interface~~util_exit~~CalledByGraph_edge22" class="edge">
-<title>interface~io_read_body_in&#45;&gt;proc~io_read_body_in</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.13,-596C446.18,-596 468.55,-596 488.6,-596"/>
-<polygon fill="#000000" stroke="#000000" points="488.84,-599.5 498.84,-596 488.84,-592.5 488.84,-599.5"/>
+<!-- interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest -->
+<g id="interface~~util_exit~~CalledByGraph_edge23" class="edge">
+<title>interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.86,-554C289.08,-554 310.11,-554 329.18,-554"/>
+<polygon fill="#000000" stroke="#000000" points="329.25,-557.5 339.25,-554 329.25,-550.5 329.25,-557.5"/>
 </g>
 <!-- interface~util_append_tp -->
 <g id="interface~~util_exit~~CalledByGraph_node25" class="node">
 <title>interface~util_append_tp</title>
 <g id="a_interface~~util_exit~~CalledByGraph_node25"><a xlink:href=".././interface/util_append_tp.html" xlink:title="util_append_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="422.5,-734 339.5,-734 339.5,-710 422.5,-710 422.5,-734"/>
-<text text-anchor="middle" x="381" y="-719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="264.5,-650 181.5,-650 181.5,-626 264.5,-626 264.5,-650"/>
+<text text-anchor="middle" x="223" y="-635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~util_append_tp&#45;&gt;proc~util_append_tp -->
-<g id="interface~~util_exit~~CalledByGraph_edge19" class="edge">
+<g id="interface~~util_exit~~CalledByGraph_edge21" class="edge">
 <title>interface~util_append_tp&#45;&gt;proc~util_append_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M422.88,-722C444.26,-722 470.62,-722 493.29,-722"/>
-<polygon fill="#000000" stroke="#000000" points="493.41,-725.5 503.41,-722 493.41,-718.5 493.41,-725.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.88,-638C286.26,-638 312.62,-638 335.29,-638"/>
+<polygon fill="#000000" stroke="#000000" points="335.41,-641.5 345.41,-638 335.41,-634.5 335.41,-641.5"/>
 </g>
-<!-- interface~io_get_args -->
+<!-- interface~io_read_frame_cb -->
 <g id="interface~~util_exit~~CalledByGraph_node26" class="node">
-<title>interface~io_get_args</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node26"><a xlink:href=".././interface/io_get_args.html" xlink:title="io_get_args">
-<polygon fill="#a7506f" stroke="#a7506f" points="415.5,-650 346.5,-650 346.5,-626 415.5,-626 415.5,-650"/>
-<text text-anchor="middle" x="381" y="-635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
+<title>interface~io_read_frame_cb</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node26"><a xlink:href=".././interface/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
+<polygon fill="#a7506f" stroke="#a7506f" points="273,-318 173,-318 173,-294 273,-294 273,-318"/>
+<text text-anchor="middle" x="223" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
 </a>
 </g>
 </g>
-<!-- interface~io_get_args&#45;&gt;proc~io_get_args -->
-<g id="interface~~util_exit~~CalledByGraph_edge21" class="edge">
-<title>interface~io_get_args&#45;&gt;proc~io_get_args</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.57,-638C440.11,-638 473.63,-638 500.27,-638"/>
-<polygon fill="#000000" stroke="#000000" points="500.48,-641.5 510.48,-638 500.48,-634.5 500.48,-641.5"/>
+<!-- interface~io_read_frame_cb&#45;&gt;proc~io_read_frame_cb -->
+<g id="interface~~util_exit~~CalledByGraph_edge27" class="edge">
+<title>interface~io_read_frame_cb&#45;&gt;proc~io_read_frame_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.04,-306C289.94,-306 309.04,-306 326.66,-306"/>
+<polygon fill="#000000" stroke="#000000" points="326.84,-309.5 336.84,-306 326.84,-302.5 326.84,-309.5"/>
 </g>
-<!-- interface~io_read_frame_body -->
+<!-- interface~io_read_body_in -->
 <g id="interface~~util_exit~~CalledByGraph_node27" class="node">
-<title>interface~io_read_frame_body</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node27"><a xlink:href=".././interface/io_read_frame_body.html" xlink:title="io_read_frame_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="437,-150 325,-150 325,-126 437,-126 437,-150"/>
-<text text-anchor="middle" x="381" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_body</text>
+<title>interface~io_read_body_in</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node27"><a xlink:href=".././interface/io_read_body_in.html" xlink:title="io_read_body_in">
+<polygon fill="#a7506f" stroke="#a7506f" points="269,-150 177,-150 177,-126 269,-126 269,-150"/>
+<text text-anchor="middle" x="223" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_body_in</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_frame_body&#45;&gt;proc~io_read_frame_body -->
+<!-- interface~io_read_body_in&#45;&gt;proc~io_read_body_in -->
 <g id="interface~~util_exit~~CalledByGraph_edge32" class="edge">
-<title>interface~io_read_frame_body&#45;&gt;proc~io_read_frame_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M437.3,-138C450.59,-138 464.92,-138 478.62,-138"/>
-<polygon fill="#000000" stroke="#000000" points="478.95,-141.5 488.95,-138 478.95,-134.5 478.95,-141.5"/>
+<title>interface~io_read_body_in&#45;&gt;proc~io_read_body_in</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.13,-138C288.18,-138 310.55,-138 330.6,-138"/>
+<polygon fill="#000000" stroke="#000000" points="330.84,-141.5 340.84,-138 330.84,-134.5 330.84,-141.5"/>
 </g>
-<!-- interface~io_read_param_in -->
+<!-- interface~setup_construct_system -->
 <g id="interface~~util_exit~~CalledByGraph_node28" class="node">
-<title>interface~io_read_param_in</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node28"><a xlink:href=".././interface/io_read_param_in.html" xlink:title="io_read_param_in">
-<polygon fill="#a7506f" stroke="#a7506f" points="431,-566 331,-566 331,-542 431,-542 431,-566"/>
-<text text-anchor="middle" x="381" y="-551.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_param_in</text>
+<title>interface~setup_construct_system</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node28"><a xlink:href=".././interface/setup_construct_system.html" xlink:title="setup_construct_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="287,-192 159,-192 159,-168 287,-168 287,-192"/>
+<text text-anchor="middle" x="223" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_param_in&#45;&gt;proc~io_read_param_in -->
-<g id="interface~~util_exit~~CalledByGraph_edge23" class="edge">
-<title>interface~io_read_param_in&#45;&gt;proc~io_read_param_in</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M431.04,-554C447.94,-554 467.04,-554 484.66,-554"/>
-<polygon fill="#000000" stroke="#000000" points="484.84,-557.5 494.84,-554 484.84,-550.5 484.84,-557.5"/>
+<!-- interface~setup_construct_system&#45;&gt;proc~setup_construct_system -->
+<g id="interface~~util_exit~~CalledByGraph_edge31" class="edge">
+<title>interface~setup_construct_system&#45;&gt;proc~setup_construct_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.1,-180C295.43,-180 304.04,-180 312.53,-180"/>
+<polygon fill="#000000" stroke="#000000" points="312.81,-183.5 322.81,-180 312.81,-176.5 312.81,-183.5"/>
 </g>
-<!-- interface~io_dump_swiftest -->
+<!-- interface~io_read_param_in -->
 <g id="interface~~util_exit~~CalledByGraph_node29" class="node">
-<title>interface~io_dump_swiftest</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node29"><a xlink:href=".././interface/io_dump_swiftest.html" xlink:title="io_dump_swiftest">
-<polygon fill="#a7506f" stroke="#a7506f" points="428.5,-192 333.5,-192 333.5,-168 428.5,-168 428.5,-192"/>
-<text text-anchor="middle" x="381" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_swiftest</text>
+<title>interface~io_read_param_in</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node29"><a xlink:href=".././interface/io_read_param_in.html" xlink:title="io_read_param_in">
+<polygon fill="#a7506f" stroke="#a7506f" points="273,-692 173,-692 173,-668 273,-668 273,-692"/>
+<text text-anchor="middle" x="223" y="-677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_param_in</text>
 </a>
 </g>
 </g>
-<!-- interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest -->
-<g id="interface~~util_exit~~CalledByGraph_edge30" class="edge">
-<title>interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428.86,-180C447.08,-180 468.11,-180 487.18,-180"/>
-<polygon fill="#000000" stroke="#000000" points="487.25,-183.5 497.25,-180 487.25,-176.5 487.25,-183.5"/>
+<!-- interface~io_read_param_in&#45;&gt;proc~io_read_param_in -->
+<g id="interface~~util_exit~~CalledByGraph_edge20" class="edge">
+<title>interface~io_read_param_in&#45;&gt;proc~io_read_param_in</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.04,-680C289.94,-680 309.04,-680 326.66,-680"/>
+<polygon fill="#000000" stroke="#000000" points="326.84,-683.5 336.84,-680 326.84,-676.5 326.84,-683.5"/>
 </g>
-<!-- interface~io_write_encounter -->
+<!-- interface~io_write_frame_system -->
 <g id="interface~~util_exit~~CalledByGraph_node30" class="node">
-<title>interface~io_write_encounter</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node30"><a xlink:href=".././interface/io_write_encounter.html" xlink:title="io_write_encounter">
-<polygon fill="#a7506f" stroke="#a7506f" points="432.5,-108 329.5,-108 329.5,-84 432.5,-84 432.5,-108"/>
-<text text-anchor="middle" x="381" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
-</a>
-</g>
-</g>
-<!-- interface~io_write_encounter&#45;&gt;proc~io_write_encounter -->
-<g id="interface~~util_exit~~CalledByGraph_edge33" class="edge">
-<title>interface~io_write_encounter&#45;&gt;proc~io_write_encounter</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432.81,-96C448.8,-96 466.61,-96 483.21,-96"/>
-<polygon fill="#000000" stroke="#000000" points="483.37,-99.5 493.37,-96 483.37,-92.5 483.37,-99.5"/>
-</g>
-<!-- interface~setup_construct_system -->
-<g id="interface~~util_exit~~CalledByGraph_node31" class="node">
-<title>interface~setup_construct_system</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node31"><a xlink:href=".././interface/setup_construct_system.html" xlink:title="setup_construct_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="445,-234 317,-234 317,-210 445,-210 445,-234"/>
-<text text-anchor="middle" x="381" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
+<title>interface~io_write_frame_system</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node30"><a xlink:href=".././interface/io_write_frame_system.html" xlink:title="io_write_frame_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="123,-421 0,-421 0,-397 123,-397 123,-421"/>
+<text text-anchor="middle" x="61.5" y="-406.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_construct_system&#45;&gt;proc~setup_construct_system -->
+<!-- interface~io_write_frame_system&#45;&gt;proc~io_write_frame_system -->
 <g id="interface~~util_exit~~CalledByGraph_edge29" class="edge">
-<title>interface~setup_construct_system&#45;&gt;proc~setup_construct_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.1,-222C453.43,-222 462.04,-222 470.53,-222"/>
-<polygon fill="#000000" stroke="#000000" points="470.81,-225.5 480.81,-222 470.81,-218.5 470.81,-225.5"/>
+<title>interface~io_write_frame_system&#45;&gt;proc~io_write_frame_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M123.26,-409C132.44,-409 141.97,-409 151.34,-409"/>
+<polygon fill="#000000" stroke="#000000" points="151.41,-412.5 161.41,-409 151.41,-405.5 151.41,-412.5"/>
 </g>
 <!-- interface~io_dump_param -->
-<g id="interface~~util_exit~~CalledByGraph_node32" class="node">
+<g id="interface~~util_exit~~CalledByGraph_node31" class="node">
 <title>interface~io_dump_param</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node32"><a xlink:href=".././interface/io_dump_param.html" xlink:title="io_dump_param">
-<polygon fill="#a7506f" stroke="#a7506f" points="426.5,-402 335.5,-402 335.5,-378 426.5,-378 426.5,-402"/>
-<text text-anchor="middle" x="381" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_param</text>
+<g id="a_interface~~util_exit~~CalledByGraph_node31"><a xlink:href=".././interface/io_dump_param.html" xlink:title="io_dump_param">
+<polygon fill="#a7506f" stroke="#a7506f" points="268.5,-608 177.5,-608 177.5,-584 268.5,-584 268.5,-608"/>
+<text text-anchor="middle" x="223" y="-593.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_param</text>
 </a>
 </g>
 </g>
 <!-- interface~io_dump_param&#45;&gt;proc~io_dump_param -->
-<g id="interface~~util_exit~~CalledByGraph_edge26" class="edge">
+<g id="interface~~util_exit~~CalledByGraph_edge22" class="edge">
 <title>interface~io_dump_param&#45;&gt;proc~io_dump_param</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.7,-390C446.08,-390 468.97,-390 489.36,-390"/>
-<polygon fill="#000000" stroke="#000000" points="489.45,-393.5 499.45,-390 489.45,-386.5 489.45,-393.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.7,-596C288.08,-596 310.97,-596 331.36,-596"/>
+<polygon fill="#000000" stroke="#000000" points="331.45,-599.5 341.45,-596 331.45,-592.5 331.45,-599.5"/>
 </g>
-<!-- interface~io_read_frame_cb -->
-<g id="interface~~util_exit~~CalledByGraph_node33" class="node">
-<title>interface~io_read_frame_cb</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node33"><a xlink:href=".././interface/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
-<polygon fill="#a7506f" stroke="#a7506f" points="431,-276 331,-276 331,-252 431,-252 431,-276"/>
-<text text-anchor="middle" x="381" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
+<!-- interface~io_write_encounter -->
+<g id="interface~~util_exit~~CalledByGraph_node32" class="node">
+<title>interface~io_write_encounter</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node32"><a xlink:href=".././interface/io_write_encounter.html" xlink:title="io_write_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="274.5,-276 171.5,-276 171.5,-252 274.5,-252 274.5,-276"/>
+<text text-anchor="middle" x="223" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_frame_cb&#45;&gt;proc~io_read_frame_cb -->
+<!-- interface~io_write_encounter&#45;&gt;proc~io_write_encounter -->
 <g id="interface~~util_exit~~CalledByGraph_edge28" class="edge">
-<title>interface~io_read_frame_cb&#45;&gt;proc~io_read_frame_cb</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M431.04,-264C447.94,-264 467.04,-264 484.66,-264"/>
-<polygon fill="#000000" stroke="#000000" points="484.84,-267.5 494.84,-264 484.84,-260.5 484.84,-267.5"/>
+<title>interface~io_write_encounter&#45;&gt;proc~io_write_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M274.81,-264C290.8,-264 308.61,-264 325.21,-264"/>
+<polygon fill="#000000" stroke="#000000" points="325.37,-267.5 335.37,-264 325.37,-260.5 325.37,-267.5"/>
 </g>
-<!-- interface~io_read_cb_in -->
-<g id="interface~~util_exit~~CalledByGraph_node34" class="node">
-<title>interface~io_read_cb_in</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node34"><a xlink:href=".././interface/io_read_cb_in.html" xlink:title="io_read_cb_in">
-<polygon fill="#a7506f" stroke="#a7506f" points="421,-444 341,-444 341,-420 421,-420 421,-444"/>
-<text text-anchor="middle" x="381" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_cb_in</text>
+<!-- interface~io_read_frame_body -->
+<g id="interface~~util_exit~~CalledByGraph_node33" class="node">
+<title>interface~io_read_frame_body</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node33"><a xlink:href=".././interface/io_read_frame_body.html" xlink:title="io_read_frame_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="279,-482 167,-482 167,-458 279,-458 279,-482"/>
+<text text-anchor="middle" x="223" y="-467.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_body</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_cb_in&#45;&gt;proc~io_read_cb_in -->
+<!-- interface~io_read_frame_body&#45;&gt;proc~io_read_frame_body -->
 <g id="interface~~util_exit~~CalledByGraph_edge25" class="edge">
-<title>interface~io_read_cb_in&#45;&gt;proc~io_read_cb_in</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421.22,-432C443.32,-432 471.14,-432 494.71,-432"/>
-<polygon fill="#000000" stroke="#000000" points="494.87,-435.5 504.87,-432 494.86,-428.5 494.87,-435.5"/>
-</g>
-<!-- interface~util_append_pl -->
-<g id="interface~~util_exit~~CalledByGraph_node35" class="node">
-<title>interface~util_append_pl</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node35"><a xlink:href=".././interface/util_append_pl.html" xlink:title="util_append_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="422,-24 340,-24 340,0 422,0 422,-24"/>
-<text text-anchor="middle" x="381" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
-</a>
-</g>
+<title>interface~io_read_frame_body&#45;&gt;proc~io_read_frame_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.3,-470C292.59,-470 306.92,-470 320.62,-470"/>
+<polygon fill="#000000" stroke="#000000" points="320.95,-473.5 330.95,-470 320.95,-466.5 320.95,-473.5"/>
 </g>
-<!-- interface~util_append_pl&#45;&gt;proc~util_append_pl -->
-<g id="interface~~util_exit~~CalledByGraph_edge35" class="edge">
-<title>interface~util_append_pl&#45;&gt;proc~util_append_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M422.04,-12C443.66,-12 470.55,-12 493.58,-12"/>
-<polygon fill="#000000" stroke="#000000" points="493.85,-15.5 503.85,-12 493.85,-8.5 493.85,-15.5"/>
-</g>
-<!-- proc~setup_initialize_system -->
-<g id="interface~~util_exit~~CalledByGraph_node36" class="node">
-<title>proc~setup_initialize_system</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node36"><a xlink:href=".././proc/setup_initialize_system.html" xlink:title="setup_initialize_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="280.5,-692 158.5,-692 158.5,-668 280.5,-668 280.5,-692"/>
-<text text-anchor="middle" x="219.5" y="-677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
+<!-- interface~io_get_args -->
+<g id="interface~~util_exit~~CalledByGraph_node34" class="node">
+<title>interface~io_get_args</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node34"><a xlink:href=".././interface/io_get_args.html" xlink:title="io_get_args">
+<polygon fill="#a7506f" stroke="#a7506f" points="257.5,-734 188.5,-734 188.5,-710 257.5,-710 257.5,-734"/>
+<text text-anchor="middle" x="223" y="-719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
 </a>
 </g>
 </g>
-<!-- proc~setup_initialize_system&#45;&gt;interface~util_valid -->
-<g id="interface~~util_exit~~CalledByGraph_edge36" class="edge">
-<title>proc~setup_initialize_system&#45;&gt;interface~util_valid</title>
-<path fill="none" stroke="#000000" d="M280.8,-680C301.99,-680 325.13,-680 343.73,-680"/>
-<polygon fill="#000000" stroke="#000000" points="343.83,-683.5 353.83,-680 343.83,-676.5 343.83,-683.5"/>
+<!-- interface~io_get_args&#45;&gt;proc~io_get_args -->
+<g id="interface~~util_exit~~CalledByGraph_edge19" class="edge">
+<title>interface~io_get_args&#45;&gt;proc~io_get_args</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.57,-722C282.11,-722 315.63,-722 342.27,-722"/>
+<polygon fill="#000000" stroke="#000000" points="342.48,-725.5 352.48,-722 342.48,-718.5 342.48,-725.5"/>
 </g>
-<!-- interface~setup_initialize_system -->
-<g id="interface~~util_exit~~CalledByGraph_node37" class="node">
-<title>interface~setup_initialize_system</title>
-<g id="a_interface~~util_exit~~CalledByGraph_node37"><a xlink:href=".././interface/setup_initialize_system.html" xlink:title="setup_initialize_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="122,-692 0,-692 0,-668 122,-668 122,-692"/>
-<text text-anchor="middle" x="61" y="-677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
+<!-- interface~util_solve_rkf45 -->
+<g id="interface~~util_exit~~CalledByGraph_node35" class="node">
+<title>interface~util_solve_rkf45</title>
+<g id="a_interface~~util_exit~~CalledByGraph_node35"><a xlink:href=".././interface/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
+<polygon fill="#a7506f" stroke="#a7506f" points="266.5,-24 179.5,-24 179.5,0 266.5,0 266.5,-24"/>
+<text text-anchor="middle" x="223" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_rkf45</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_initialize_system&#45;&gt;proc~setup_initialize_system -->
-<g id="interface~~util_exit~~CalledByGraph_edge37" class="edge">
-<title>interface~setup_initialize_system&#45;&gt;proc~setup_initialize_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.06,-680C130.61,-680 139.47,-680 148.19,-680"/>
-<polygon fill="#000000" stroke="#000000" points="148.34,-683.5 158.34,-680 148.34,-676.5 148.34,-683.5"/>
+<!-- interface~util_solve_rkf45&#45;&gt;proc~util_solve_rkf45 -->
+<g id="interface~~util_exit~~CalledByGraph_edge35" class="edge">
+<title>interface~util_solve_rkf45&#45;&gt;proc~util_solve_rkf45</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.56,-12C287.04,-12 311.78,-12 333.42,-12"/>
+<polygon fill="#000000" stroke="#000000" points="333.44,-15.5 343.44,-12 333.44,-8.5 333.44,-15.5"/>
 </g>
 </g>
 </svg>
-</div><script>var paninterfaceutil_exitCalledByGraph = svgPanZoom('#interfaceutil_exitCalledByGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
     <p>Nodes of different colours represent the following: </p>
     <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
diff --git a/docs/interface/util_fill.html b/docs/interface/util_fill.html
index b64cb4906..15d0fc647 100644
--- a/docs/interface/util_fill.html
+++ b/docs/interface/util_fill.html
@@ -238,33 +238,33 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="none" stroke="black" points="314,-45 260,-45 260,-21 314,-21 314,-45"/>
 <text text-anchor="middle" x="287" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_fill</text>
 </g>
-<!-- proc~symba_util_fill_pl -->
+<!-- proc~symba_util_fill_tp -->
 <g id="interface~~util_fill~~CalledByGraph_node2" class="node">
-<title>proc~symba_util_fill_pl</title>
-<g id="a_interface~~util_fill~~CalledByGraph_node2"><a xlink:href=".././proc/symba_util_fill_pl.html" xlink:title="symba_util_fill_pl">
+<title>proc~symba_util_fill_tp</title>
+<g id="a_interface~~util_fill~~CalledByGraph_node2"><a xlink:href=".././proc/symba_util_fill_tp.html" xlink:title="symba_util_fill_tp">
 <polygon fill="#d9534f" stroke="#d9534f" points="224,-66 130,-66 130,-42 224,-42 224,-66"/>
-<text text-anchor="middle" x="177" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_pl</text>
+<text text-anchor="middle" x="177" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_fill_pl&#45;&gt;interface~util_fill -->
+<!-- proc~symba_util_fill_tp&#45;&gt;interface~util_fill -->
 <g id="interface~~util_fill~~CalledByGraph_edge1" class="edge">
-<title>proc~symba_util_fill_pl&#45;&gt;interface~util_fill</title>
+<title>proc~symba_util_fill_tp&#45;&gt;interface~util_fill</title>
 <path fill="none" stroke="#000000" d="M224.11,-45.03C232.74,-43.36 241.64,-41.63 249.91,-40.02"/>
 <polygon fill="#000000" stroke="#000000" points="250.83,-43.4 259.98,-38.06 249.5,-36.53 250.83,-43.4"/>
 </g>
-<!-- proc~symba_util_fill_tp -->
+<!-- proc~symba_util_fill_pl -->
 <g id="interface~~util_fill~~CalledByGraph_node3" class="node">
-<title>proc~symba_util_fill_tp</title>
-<g id="a_interface~~util_fill~~CalledByGraph_node3"><a xlink:href=".././proc/symba_util_fill_tp.html" xlink:title="symba_util_fill_tp">
+<title>proc~symba_util_fill_pl</title>
+<g id="a_interface~~util_fill~~CalledByGraph_node3"><a xlink:href=".././proc/symba_util_fill_pl.html" xlink:title="symba_util_fill_pl">
 <polygon fill="#d9534f" stroke="#d9534f" points="224,-24 130,-24 130,0 224,0 224,-24"/>
-<text text-anchor="middle" x="177" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_tp</text>
+<text text-anchor="middle" x="177" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_fill_tp&#45;&gt;interface~util_fill -->
+<!-- proc~symba_util_fill_pl&#45;&gt;interface~util_fill -->
 <g id="interface~~util_fill~~CalledByGraph_edge2" class="edge">
-<title>proc~symba_util_fill_tp&#45;&gt;interface~util_fill</title>
+<title>proc~symba_util_fill_pl&#45;&gt;interface~util_fill</title>
 <path fill="none" stroke="#000000" d="M224.11,-20.97C232.74,-22.64 241.64,-24.37 249.91,-25.98"/>
 <polygon fill="#000000" stroke="#000000" points="249.5,-29.47 259.98,-27.94 250.83,-22.6 249.5,-29.47"/>
 </g>
@@ -272,31 +272,31 @@ <h3 class="panel-title">Called by</h3>
 <g id="interface~~util_fill~~CalledByGraph_node4" class="node">
 <title>interface~symba_util_fill_tp</title>
 <g id="a_interface~~util_fill~~CalledByGraph_node4"><a xlink:href=".././interface/symba_util_fill_tp.html" xlink:title="symba_util_fill_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="94,-24 0,-24 0,0 94,0 94,-24"/>
-<text text-anchor="middle" x="47" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_tp</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="94,-66 0,-66 0,-42 94,-42 94,-66"/>
+<text text-anchor="middle" x="47" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_util_fill_tp&#45;&gt;proc~symba_util_fill_tp -->
-<g id="interface~~util_fill~~CalledByGraph_edge4" class="edge">
+<g id="interface~~util_fill~~CalledByGraph_edge3" class="edge">
 <title>interface~symba_util_fill_tp&#45;&gt;proc~symba_util_fill_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M94.21,-12C102.46,-12 111.13,-12 119.63,-12"/>
-<polygon fill="#000000" stroke="#000000" points="119.86,-15.5 129.86,-12 119.86,-8.5 119.86,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M94.21,-54C102.46,-54 111.13,-54 119.63,-54"/>
+<polygon fill="#000000" stroke="#000000" points="119.86,-57.5 129.86,-54 119.86,-50.5 119.86,-57.5"/>
 </g>
 <!-- interface~symba_util_fill_pl -->
 <g id="interface~~util_fill~~CalledByGraph_node5" class="node">
 <title>interface~symba_util_fill_pl</title>
 <g id="a_interface~~util_fill~~CalledByGraph_node5"><a xlink:href=".././interface/symba_util_fill_pl.html" xlink:title="symba_util_fill_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="94,-66 0,-66 0,-42 94,-42 94,-66"/>
-<text text-anchor="middle" x="47" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_pl</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="94,-24 0,-24 0,0 94,0 94,-24"/>
+<text text-anchor="middle" x="47" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_util_fill_pl&#45;&gt;proc~symba_util_fill_pl -->
-<g id="interface~~util_fill~~CalledByGraph_edge3" class="edge">
+<g id="interface~~util_fill~~CalledByGraph_edge4" class="edge">
 <title>interface~symba_util_fill_pl&#45;&gt;proc~symba_util_fill_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M94.21,-54C102.46,-54 111.13,-54 119.63,-54"/>
-<polygon fill="#000000" stroke="#000000" points="119.86,-57.5 129.86,-54 119.86,-50.5 119.86,-57.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M94.21,-12C102.46,-12 111.13,-12 119.63,-12"/>
+<polygon fill="#000000" stroke="#000000" points="119.86,-15.5 129.86,-12 119.86,-8.5 119.86,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/interface/util_fill_body.html b/docs/interface/util_fill_body.html
index fc0945115..15cebcc20 100644
--- a/docs/interface/util_fill_body.html
+++ b/docs/interface/util_fill_body.html
@@ -348,65 +348,65 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="none" stroke="black" points="257,-45 186,-45 186,-21 257,-21 257,-45"/>
 <text text-anchor="middle" x="221.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_fill_body</text>
 </g>
-<!-- proc~util_fill_pl -->
+<!-- proc~util_fill_tp -->
 <g id="interface~~util_fill_body~~CalledByGraph_node2" class="node">
-<title>proc~util_fill_pl</title>
-<g id="a_interface~~util_fill_body~~CalledByGraph_node2"><a xlink:href=".././proc/util_fill_pl.html" xlink:title="util_fill_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="149.5,-66 93.5,-66 93.5,-42 149.5,-42 149.5,-66"/>
-<text text-anchor="middle" x="121.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
+<title>proc~util_fill_tp</title>
+<g id="a_interface~~util_fill_body~~CalledByGraph_node2"><a xlink:href=".././proc/util_fill_tp.html" xlink:title="util_fill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="150,-66 93,-66 93,-42 150,-42 150,-66"/>
+<text text-anchor="middle" x="121.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_pl&#45;&gt;interface~util_fill_body -->
+<!-- proc~util_fill_tp&#45;&gt;interface~util_fill_body -->
 <g id="interface~~util_fill_body~~CalledByGraph_edge1" class="edge">
-<title>proc~util_fill_pl&#45;&gt;interface~util_fill_body</title>
-<path fill="none" stroke="#000000" d="M149.54,-48.21C157.69,-46.46 166.86,-44.49 175.84,-42.57"/>
-<polygon fill="#000000" stroke="#000000" points="176.78,-45.95 185.82,-40.43 175.31,-39.1 176.78,-45.95"/>
+<title>proc~util_fill_tp&#45;&gt;interface~util_fill_body</title>
+<path fill="none" stroke="#000000" d="M150.06,-48.09C158.12,-46.37 167.15,-44.43 175.98,-42.54"/>
+<polygon fill="#000000" stroke="#000000" points="176.76,-45.95 185.8,-40.43 175.29,-39.11 176.76,-45.95"/>
 </g>
-<!-- proc~util_fill_tp -->
+<!-- proc~util_fill_pl -->
 <g id="interface~~util_fill_body~~CalledByGraph_node3" class="node">
-<title>proc~util_fill_tp</title>
-<g id="a_interface~~util_fill_body~~CalledByGraph_node3"><a xlink:href=".././proc/util_fill_tp.html" xlink:title="util_fill_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="150,-24 93,-24 93,0 150,0 150,-24"/>
-<text text-anchor="middle" x="121.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
+<title>proc~util_fill_pl</title>
+<g id="a_interface~~util_fill_body~~CalledByGraph_node3"><a xlink:href=".././proc/util_fill_pl.html" xlink:title="util_fill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="149.5,-24 93.5,-24 93.5,0 149.5,0 149.5,-24"/>
+<text text-anchor="middle" x="121.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_tp&#45;&gt;interface~util_fill_body -->
+<!-- proc~util_fill_pl&#45;&gt;interface~util_fill_body -->
 <g id="interface~~util_fill_body~~CalledByGraph_edge2" class="edge">
-<title>proc~util_fill_tp&#45;&gt;interface~util_fill_body</title>
-<path fill="none" stroke="#000000" d="M150.06,-17.91C158.12,-19.63 167.15,-21.57 175.98,-23.46"/>
-<polygon fill="#000000" stroke="#000000" points="175.29,-26.89 185.8,-25.57 176.76,-20.05 175.29,-26.89"/>
+<title>proc~util_fill_pl&#45;&gt;interface~util_fill_body</title>
+<path fill="none" stroke="#000000" d="M149.54,-17.79C157.69,-19.54 166.86,-21.51 175.84,-23.43"/>
+<polygon fill="#000000" stroke="#000000" points="175.31,-26.9 185.82,-25.57 176.78,-20.05 175.31,-26.9"/>
 </g>
-<!-- interface~util_fill_tp -->
+<!-- interface~util_fill_pl -->
 <g id="interface~~util_fill_body~~CalledByGraph_node4" class="node">
-<title>interface~util_fill_tp</title>
-<g id="a_interface~~util_fill_body~~CalledByGraph_node4"><a xlink:href=".././interface/util_fill_tp.html" xlink:title="util_fill_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="57,-24 0,-24 0,0 57,0 57,-24"/>
-<text text-anchor="middle" x="28.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
+<title>interface~util_fill_pl</title>
+<g id="a_interface~~util_fill_body~~CalledByGraph_node4"><a xlink:href=".././interface/util_fill_pl.html" xlink:title="util_fill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="56.5,-24 0.5,-24 0.5,0 56.5,0 56.5,-24"/>
+<text text-anchor="middle" x="28.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~util_fill_tp&#45;&gt;proc~util_fill_tp -->
+<!-- interface~util_fill_pl&#45;&gt;proc~util_fill_pl -->
 <g id="interface~~util_fill_body~~CalledByGraph_edge4" class="edge">
-<title>interface~util_fill_tp&#45;&gt;proc~util_fill_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M57.3,-12C65.32,-12 74.22,-12 82.74,-12"/>
-<polygon fill="#000000" stroke="#000000" points="82.87,-15.5 92.87,-12 82.87,-8.5 82.87,-15.5"/>
+<title>interface~util_fill_pl&#45;&gt;proc~util_fill_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M56.8,-12C65.08,-12 74.32,-12 83.14,-12"/>
+<polygon fill="#000000" stroke="#000000" points="83.22,-15.5 93.22,-12 83.22,-8.5 83.22,-15.5"/>
 </g>
-<!-- interface~util_fill_pl -->
+<!-- interface~util_fill_tp -->
 <g id="interface~~util_fill_body~~CalledByGraph_node5" class="node">
-<title>interface~util_fill_pl</title>
-<g id="a_interface~~util_fill_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_fill_pl.html" xlink:title="util_fill_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="56.5,-66 0.5,-66 0.5,-42 56.5,-42 56.5,-66"/>
-<text text-anchor="middle" x="28.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
+<title>interface~util_fill_tp</title>
+<g id="a_interface~~util_fill_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_fill_tp.html" xlink:title="util_fill_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="57,-66 0,-66 0,-42 57,-42 57,-66"/>
+<text text-anchor="middle" x="28.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~util_fill_pl&#45;&gt;proc~util_fill_pl -->
+<!-- interface~util_fill_tp&#45;&gt;proc~util_fill_tp -->
 <g id="interface~~util_fill_body~~CalledByGraph_edge3" class="edge">
-<title>interface~util_fill_pl&#45;&gt;proc~util_fill_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M56.8,-54C65.08,-54 74.32,-54 83.14,-54"/>
-<polygon fill="#000000" stroke="#000000" points="83.22,-57.5 93.22,-54 83.22,-50.5 83.22,-57.5"/>
+<title>interface~util_fill_tp&#45;&gt;proc~util_fill_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M57.3,-54C65.32,-54 74.22,-54 82.74,-54"/>
+<polygon fill="#000000" stroke="#000000" points="82.87,-57.5 92.87,-54 82.87,-50.5 82.87,-57.5"/>
 </g>
 </g>
 </svg>
@@ -507,7 +507,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~170"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~166"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_fill_pl.html b/docs/interface/util_fill_pl.html
index 07598acfb..1baf2c2f0 100644
--- a/docs/interface/util_fill_pl.html
+++ b/docs/interface/util_fill_pl.html
@@ -228,74 +228,74 @@ <h3 class="panel-title">Calls</h3>
 <!-- interface~util_fill_pl -->
 <g id="interface~~util_fill_pl~~CallsGraph_node1" class="node">
 <title>interface~util_fill_pl</title>
-<polygon fill="none" stroke="black" points="56,-44 0,-44 0,-20 56,-20 56,-44"/>
-<text text-anchor="middle" x="28" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_fill_pl</text>
+<polygon fill="none" stroke="black" points="56,-24 0,-24 0,0 56,0 56,-24"/>
+<text text-anchor="middle" x="28" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_fill_pl</text>
 </g>
 <!-- proc~util_fill_pl -->
 <g id="interface~~util_fill_pl~~CallsGraph_node2" class="node">
 <title>proc~util_fill_pl</title>
 <g id="a_interface~~util_fill_pl~~CallsGraph_node2"><a xlink:href=".././proc/util_fill_pl.html" xlink:title="util_fill_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="148,-44 92,-44 92,-20 148,-20 148,-44"/>
-<text text-anchor="middle" x="120" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="148,-24 92,-24 92,0 148,0 148,-24"/>
+<text text-anchor="middle" x="120" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~util_fill_pl&#45;&gt;proc~util_fill_pl -->
 <g id="interface~~util_fill_pl~~CallsGraph_edge1" class="edge">
 <title>interface~util_fill_pl&#45;&gt;proc~util_fill_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M56,-32C64.03,-32 72.97,-32 81.53,-32"/>
-<polygon fill="#000000" stroke="#000000" points="81.71,-35.5 91.71,-32 81.7,-28.5 81.71,-35.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M56,-12C64.03,-12 72.97,-12 81.53,-12"/>
+<polygon fill="#000000" stroke="#000000" points="81.71,-15.5 91.71,-12 81.7,-8.5 81.71,-15.5"/>
 </g>
-<!-- interface~util_fill~2 -->
+<!-- interface~util_fill_body -->
 <g id="interface~~util_fill_pl~~CallsGraph_node3" class="node">
-<title>interface~util_fill~2</title>
-<g id="a_interface~~util_fill_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_fill~2.html" xlink:title="util_fill">
-<polygon fill="#a7506f" stroke="#a7506f" points="452,-44 398,-44 398,-20 452,-20 452,-44"/>
-<text text-anchor="middle" x="425" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
+<title>interface~util_fill_body</title>
+<g id="a_interface~~util_fill_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_fill_body.html" xlink:title="util_fill_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="255,-44 184,-44 184,-20 255,-20 255,-44"/>
+<text text-anchor="middle" x="219.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_pl&#45;&gt;interface~util_fill~2 -->
+<!-- proc~util_fill_pl&#45;&gt;interface~util_fill_body -->
 <g id="interface~~util_fill_pl~~CallsGraph_edge2" class="edge">
-<title>proc~util_fill_pl&#45;&gt;interface~util_fill~2</title>
-<path fill="none" stroke="#000000" d="M148.29,-32.53C159.37,-32.72 172.3,-32.91 184,-33 263.11,-33.63 282.89,-33.64 362,-33 370.25,-32.93 379.12,-32.82 387.49,-32.69"/>
-<polygon fill="#000000" stroke="#000000" points="387.81,-36.18 397.76,-32.52 387.7,-29.18 387.81,-36.18"/>
+<title>proc~util_fill_pl&#45;&gt;interface~util_fill_body</title>
+<path fill="none" stroke="#000000" d="M148.16,-17.57C156.18,-19.22 165.19,-21.06 174,-22.87"/>
+<polygon fill="#000000" stroke="#000000" points="173.31,-26.3 183.81,-24.88 174.72,-19.45 173.31,-26.3"/>
 </g>
-<!-- interface~util_fill_body -->
+<!-- interface~util_fill~2 -->
 <g id="interface~~util_fill_pl~~CallsGraph_node4" class="node">
-<title>interface~util_fill_body</title>
-<g id="a_interface~~util_fill_pl~~CallsGraph_node4"><a xlink:href=".././interface/util_fill_body.html" xlink:title="util_fill_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="255,-24 184,-24 184,0 255,0 255,-24"/>
-<text text-anchor="middle" x="219.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
+<title>interface~util_fill~2</title>
+<g id="a_interface~~util_fill_pl~~CallsGraph_node4"><a xlink:href=".././interface/util_fill~2.html" xlink:title="util_fill">
+<polygon fill="#a7506f" stroke="#a7506f" points="452,-24 398,-24 398,0 452,0 452,-24"/>
+<text text-anchor="middle" x="425" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_pl&#45;&gt;interface~util_fill_body -->
+<!-- proc~util_fill_pl&#45;&gt;interface~util_fill~2 -->
 <g id="interface~~util_fill_pl~~CallsGraph_edge3" class="edge">
-<title>proc~util_fill_pl&#45;&gt;interface~util_fill_body</title>
-<path fill="none" stroke="#000000" d="M148.16,-26.43C156.18,-24.78 165.19,-22.94 174,-21.13"/>
-<polygon fill="#000000" stroke="#000000" points="174.72,-24.55 183.81,-19.12 173.31,-17.7 174.72,-24.55"/>
+<title>proc~util_fill_pl&#45;&gt;interface~util_fill~2</title>
+<path fill="none" stroke="#000000" d="M148.29,-11.47C159.37,-11.28 172.3,-11.09 184,-11 263.11,-10.37 282.89,-10.36 362,-11 370.25,-11.07 379.12,-11.18 387.49,-11.31"/>
+<polygon fill="#000000" stroke="#000000" points="387.7,-14.82 397.76,-11.48 387.81,-7.82 387.7,-14.82"/>
 </g>
 <!-- proc~util_fill_body -->
 <g id="interface~~util_fill_pl~~CallsGraph_node5" class="node">
 <title>proc~util_fill_body</title>
 <g id="a_interface~~util_fill_pl~~CallsGraph_node5"><a xlink:href=".././proc/util_fill_body.html" xlink:title="util_fill_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="362,-24 291,-24 291,0 362,0 362,-24"/>
-<text text-anchor="middle" x="326.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="362,-44 291,-44 291,-20 362,-20 362,-44"/>
+<text text-anchor="middle" x="326.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
 </a>
 </g>
 </g>
 <!-- interface~util_fill_body&#45;&gt;proc~util_fill_body -->
 <g id="interface~~util_fill_pl~~CallsGraph_edge4" class="edge">
 <title>interface~util_fill_body&#45;&gt;proc~util_fill_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.17,-12C263.33,-12 272.13,-12 280.66,-12"/>
-<polygon fill="#000000" stroke="#000000" points="280.86,-15.5 290.86,-12 280.86,-8.5 280.86,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.17,-32C263.33,-32 272.13,-32 280.66,-32"/>
+<polygon fill="#000000" stroke="#000000" points="280.86,-35.5 290.86,-32 280.86,-28.5 280.86,-35.5"/>
 </g>
 <!-- proc~util_fill_body&#45;&gt;interface~util_fill~2 -->
 <g id="interface~~util_fill_pl~~CallsGraph_edge5" class="edge">
 <title>proc~util_fill_body&#45;&gt;interface~util_fill~2</title>
-<path fill="none" stroke="#000000" d="M362.07,-19.16C370.45,-20.9 379.43,-22.76 387.88,-24.51"/>
-<polygon fill="#000000" stroke="#000000" points="387.35,-27.98 397.85,-26.58 388.77,-21.12 387.35,-27.98"/>
+<path fill="none" stroke="#000000" d="M362.07,-24.84C370.45,-23.1 379.43,-21.24 387.88,-19.49"/>
+<polygon fill="#000000" stroke="#000000" points="388.77,-22.88 397.85,-17.42 387.35,-16.02 388.77,-22.88"/>
 </g>
 </g>
 </svg>
@@ -397,7 +397,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~171"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~167"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_fill_tp.html b/docs/interface/util_fill_tp.html
index 390924679..0efacbd94 100644
--- a/docs/interface/util_fill_tp.html
+++ b/docs/interface/util_fill_tp.html
@@ -228,74 +228,74 @@ <h3 class="panel-title">Calls</h3>
 <!-- interface~util_fill_tp -->
 <g id="interface~~util_fill_tp~~CallsGraph_node1" class="node">
 <title>interface~util_fill_tp</title>
-<polygon fill="none" stroke="black" points="57,-44 0,-44 0,-20 57,-20 57,-44"/>
-<text text-anchor="middle" x="28.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_fill_tp</text>
+<polygon fill="none" stroke="black" points="57,-24 0,-24 0,0 57,0 57,-24"/>
+<text text-anchor="middle" x="28.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_fill_tp</text>
 </g>
 <!-- proc~util_fill_tp -->
 <g id="interface~~util_fill_tp~~CallsGraph_node2" class="node">
 <title>proc~util_fill_tp</title>
 <g id="a_interface~~util_fill_tp~~CallsGraph_node2"><a xlink:href=".././proc/util_fill_tp.html" xlink:title="util_fill_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="150,-44 93,-44 93,-20 150,-20 150,-44"/>
-<text text-anchor="middle" x="121.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="150,-24 93,-24 93,0 150,0 150,-24"/>
+<text text-anchor="middle" x="121.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~util_fill_tp&#45;&gt;proc~util_fill_tp -->
 <g id="interface~~util_fill_tp~~CallsGraph_edge1" class="edge">
 <title>interface~util_fill_tp&#45;&gt;proc~util_fill_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M57.3,-32C65.32,-32 74.22,-32 82.74,-32"/>
-<polygon fill="#000000" stroke="#000000" points="82.87,-35.5 92.87,-32 82.87,-28.5 82.87,-35.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M57.3,-12C65.32,-12 74.22,-12 82.74,-12"/>
+<polygon fill="#000000" stroke="#000000" points="82.87,-15.5 92.87,-12 82.87,-8.5 82.87,-15.5"/>
 </g>
-<!-- interface~util_fill~2 -->
+<!-- interface~util_fill_body -->
 <g id="interface~~util_fill_tp~~CallsGraph_node3" class="node">
-<title>interface~util_fill~2</title>
-<g id="a_interface~~util_fill_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_fill~2.html" xlink:title="util_fill">
-<polygon fill="#a7506f" stroke="#a7506f" points="454,-44 400,-44 400,-20 454,-20 454,-44"/>
-<text text-anchor="middle" x="427" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
+<title>interface~util_fill_body</title>
+<g id="a_interface~~util_fill_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_fill_body.html" xlink:title="util_fill_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="257,-44 186,-44 186,-20 257,-20 257,-44"/>
+<text text-anchor="middle" x="221.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_tp&#45;&gt;interface~util_fill~2 -->
+<!-- proc~util_fill_tp&#45;&gt;interface~util_fill_body -->
 <g id="interface~~util_fill_tp~~CallsGraph_edge2" class="edge">
-<title>proc~util_fill_tp&#45;&gt;interface~util_fill~2</title>
-<path fill="none" stroke="#000000" d="M150,-32.53C161.17,-32.72 174.2,-32.91 186,-33 265.11,-33.62 284.89,-33.64 364,-33 372.25,-32.93 381.12,-32.82 389.49,-32.69"/>
-<polygon fill="#000000" stroke="#000000" points="389.81,-36.18 399.76,-32.52 389.7,-29.18 389.81,-36.18"/>
+<title>proc~util_fill_tp&#45;&gt;interface~util_fill_body</title>
+<path fill="none" stroke="#000000" d="M150.06,-17.62C158.12,-19.27 167.15,-21.11 175.98,-22.91"/>
+<polygon fill="#000000" stroke="#000000" points="175.31,-26.35 185.8,-24.92 176.71,-19.49 175.31,-26.35"/>
 </g>
-<!-- interface~util_fill_body -->
+<!-- interface~util_fill~2 -->
 <g id="interface~~util_fill_tp~~CallsGraph_node4" class="node">
-<title>interface~util_fill_body</title>
-<g id="a_interface~~util_fill_tp~~CallsGraph_node4"><a xlink:href=".././interface/util_fill_body.html" xlink:title="util_fill_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="257,-24 186,-24 186,0 257,0 257,-24"/>
-<text text-anchor="middle" x="221.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
+<title>interface~util_fill~2</title>
+<g id="a_interface~~util_fill_tp~~CallsGraph_node4"><a xlink:href=".././interface/util_fill~2.html" xlink:title="util_fill">
+<polygon fill="#a7506f" stroke="#a7506f" points="454,-24 400,-24 400,0 454,0 454,-24"/>
+<text text-anchor="middle" x="427" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_tp&#45;&gt;interface~util_fill_body -->
+<!-- proc~util_fill_tp&#45;&gt;interface~util_fill~2 -->
 <g id="interface~~util_fill_tp~~CallsGraph_edge3" class="edge">
-<title>proc~util_fill_tp&#45;&gt;interface~util_fill_body</title>
-<path fill="none" stroke="#000000" d="M150.06,-26.38C158.12,-24.73 167.15,-22.89 175.98,-21.09"/>
-<polygon fill="#000000" stroke="#000000" points="176.71,-24.51 185.8,-19.08 175.31,-17.65 176.71,-24.51"/>
+<title>proc~util_fill_tp&#45;&gt;interface~util_fill~2</title>
+<path fill="none" stroke="#000000" d="M150,-11.47C161.17,-11.28 174.2,-11.09 186,-11 265.11,-10.38 284.89,-10.36 364,-11 372.25,-11.07 381.12,-11.18 389.49,-11.31"/>
+<polygon fill="#000000" stroke="#000000" points="389.7,-14.82 399.76,-11.48 389.81,-7.82 389.7,-14.82"/>
 </g>
 <!-- proc~util_fill_body -->
 <g id="interface~~util_fill_tp~~CallsGraph_node5" class="node">
 <title>proc~util_fill_body</title>
 <g id="a_interface~~util_fill_tp~~CallsGraph_node5"><a xlink:href=".././proc/util_fill_body.html" xlink:title="util_fill_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="364,-24 293,-24 293,0 364,0 364,-24"/>
-<text text-anchor="middle" x="328.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="364,-44 293,-44 293,-20 364,-20 364,-44"/>
+<text text-anchor="middle" x="328.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
 </a>
 </g>
 </g>
 <!-- interface~util_fill_body&#45;&gt;proc~util_fill_body -->
 <g id="interface~~util_fill_tp~~CallsGraph_edge4" class="edge">
 <title>interface~util_fill_body&#45;&gt;proc~util_fill_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.17,-12C265.33,-12 274.13,-12 282.66,-12"/>
-<polygon fill="#000000" stroke="#000000" points="282.86,-15.5 292.86,-12 282.86,-8.5 282.86,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.17,-32C265.33,-32 274.13,-32 282.66,-32"/>
+<polygon fill="#000000" stroke="#000000" points="282.86,-35.5 292.86,-32 282.86,-28.5 282.86,-35.5"/>
 </g>
 <!-- proc~util_fill_body&#45;&gt;interface~util_fill~2 -->
 <g id="interface~~util_fill_tp~~CallsGraph_edge5" class="edge">
 <title>proc~util_fill_body&#45;&gt;interface~util_fill~2</title>
-<path fill="none" stroke="#000000" d="M364.07,-19.16C372.45,-20.9 381.43,-22.76 389.88,-24.51"/>
-<polygon fill="#000000" stroke="#000000" points="389.35,-27.98 399.85,-26.58 390.77,-21.12 389.35,-27.98"/>
+<path fill="none" stroke="#000000" d="M364.07,-24.84C372.45,-23.1 381.43,-21.24 389.88,-19.49"/>
+<polygon fill="#000000" stroke="#000000" points="390.77,-22.88 399.85,-17.42 389.35,-16.02 390.77,-22.88"/>
 </g>
 </g>
 </svg>
@@ -397,7 +397,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~172"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~168"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_fill~2.html b/docs/interface/util_fill~2.html
index d0fd8a5b8..b7f0367e0 100644
--- a/docs/interface/util_fill~2.html
+++ b/docs/interface/util_fill~2.html
@@ -244,20 +244,35 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="none" stroke="black" points="454,-55 400,-55 400,-31 454,-31 454,-55"/>
 <text text-anchor="middle" x="427" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_fill</text>
 </g>
-<!-- proc~util_fill_body -->
+<!-- proc~util_fill_tp -->
 <g id="interface~~util_fill~2~~CalledByGraph_node2" class="node">
-<title>proc~util_fill_body</title>
-<g id="a_interface~~util_fill~2~~CalledByGraph_node2"><a xlink:href=".././proc/util_fill_body.html" xlink:title="util_fill_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="364,-55 293,-55 293,-31 364,-31 364,-55"/>
-<text text-anchor="middle" x="328.5" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
+<title>proc~util_fill_tp</title>
+<g id="a_interface~~util_fill~2~~CalledByGraph_node2"><a xlink:href=".././proc/util_fill_tp.html" xlink:title="util_fill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="150,-24 93,-24 93,0 150,0 150,-24"/>
+<text text-anchor="middle" x="121.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_body&#45;&gt;interface~util_fill~2 -->
+<!-- proc~util_fill_tp&#45;&gt;interface~util_fill~2 -->
 <g id="interface~~util_fill~2~~CalledByGraph_edge1" class="edge">
-<title>proc~util_fill_body&#45;&gt;interface~util_fill~2</title>
-<path fill="none" stroke="#000000" d="M364.07,-43C372.36,-43 381.23,-43 389.6,-43"/>
-<polygon fill="#000000" stroke="#000000" points="389.85,-46.5 399.85,-43 389.85,-39.5 389.85,-46.5"/>
+<title>proc~util_fill_tp&#45;&gt;interface~util_fill~2</title>
+<path fill="none" stroke="#000000" d="M150.31,-10.6C195.55,-8.9 287.68,-7.8 364,-22 372.67,-23.61 381.79,-26.18 390.28,-28.97"/>
+<polygon fill="#000000" stroke="#000000" points="389.3,-32.34 399.89,-32.31 391.59,-25.72 389.3,-32.34"/>
+</g>
+<!-- interface~util_fill_body -->
+<g id="interface~~util_fill~2~~CalledByGraph_node7" class="node">
+<title>interface~util_fill_body</title>
+<g id="a_interface~~util_fill~2~~CalledByGraph_node7"><a xlink:href=".././interface/util_fill_body.html" xlink:title="util_fill_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="257,-55 186,-55 186,-31 257,-31 257,-55"/>
+<text text-anchor="middle" x="221.5" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
+</a>
+</g>
+</g>
+<!-- proc~util_fill_tp&#45;&gt;interface~util_fill_body -->
+<g id="interface~~util_fill~2~~CalledByGraph_edge7" class="edge">
+<title>proc~util_fill_tp&#45;&gt;interface~util_fill_body</title>
+<path fill="none" stroke="#000000" d="M150.06,-20.72C158.21,-23.3 167.34,-26.18 176.26,-29.01"/>
+<polygon fill="#000000" stroke="#000000" points="175.21,-32.35 185.8,-32.02 177.33,-25.67 175.21,-32.35"/>
 </g>
 <!-- proc~util_fill_pl -->
 <g id="interface~~util_fill~2~~CalledByGraph_node3" class="node">
@@ -274,61 +289,31 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" d="M149.58,-74.52C194.54,-76.47 287.25,-78.12 364,-64 372.68,-62.4 381.79,-59.85 390.28,-57.05"/>
 <polygon fill="#000000" stroke="#000000" points="391.6,-60.3 399.9,-53.71 389.3,-53.69 391.6,-60.3"/>
 </g>
-<!-- interface~util_fill_body -->
-<g id="interface~~util_fill~2~~CalledByGraph_node7" class="node">
-<title>interface~util_fill_body</title>
-<g id="a_interface~~util_fill~2~~CalledByGraph_node7"><a xlink:href=".././interface/util_fill_body.html" xlink:title="util_fill_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="257,-55 186,-55 186,-31 257,-31 257,-55"/>
-<text text-anchor="middle" x="221.5" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
-</a>
-</g>
-</g>
 <!-- proc~util_fill_pl&#45;&gt;interface~util_fill_body -->
-<g id="interface~~util_fill~2~~CalledByGraph_edge7" class="edge">
+<g id="interface~~util_fill~2~~CalledByGraph_edge8" class="edge">
 <title>proc~util_fill_pl&#45;&gt;interface~util_fill_body</title>
 <path fill="none" stroke="#000000" d="M149.54,-64.72C157.78,-62.2 167.06,-59.36 176.13,-56.58"/>
 <polygon fill="#000000" stroke="#000000" points="177.29,-59.89 185.82,-53.61 175.24,-53.2 177.29,-59.89"/>
 </g>
-<!-- proc~util_fill_tp -->
+<!-- proc~util_fill_body -->
 <g id="interface~~util_fill~2~~CalledByGraph_node4" class="node">
-<title>proc~util_fill_tp</title>
-<g id="a_interface~~util_fill~2~~CalledByGraph_node4"><a xlink:href=".././proc/util_fill_tp.html" xlink:title="util_fill_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="150,-24 93,-24 93,0 150,0 150,-24"/>
-<text text-anchor="middle" x="121.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
+<title>proc~util_fill_body</title>
+<g id="a_interface~~util_fill~2~~CalledByGraph_node4"><a xlink:href=".././proc/util_fill_body.html" xlink:title="util_fill_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="364,-55 293,-55 293,-31 364,-31 364,-55"/>
+<text text-anchor="middle" x="328.5" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_tp&#45;&gt;interface~util_fill~2 -->
+<!-- proc~util_fill_body&#45;&gt;interface~util_fill~2 -->
 <g id="interface~~util_fill~2~~CalledByGraph_edge3" class="edge">
-<title>proc~util_fill_tp&#45;&gt;interface~util_fill~2</title>
-<path fill="none" stroke="#000000" d="M150.31,-10.6C195.55,-8.9 287.68,-7.8 364,-22 372.67,-23.61 381.79,-26.18 390.28,-28.97"/>
-<polygon fill="#000000" stroke="#000000" points="389.3,-32.34 399.89,-32.31 391.59,-25.72 389.3,-32.34"/>
-</g>
-<!-- proc~util_fill_tp&#45;&gt;interface~util_fill_body -->
-<g id="interface~~util_fill~2~~CalledByGraph_edge8" class="edge">
-<title>proc~util_fill_tp&#45;&gt;interface~util_fill_body</title>
-<path fill="none" stroke="#000000" d="M150.06,-20.72C158.21,-23.3 167.34,-26.18 176.26,-29.01"/>
-<polygon fill="#000000" stroke="#000000" points="175.21,-32.35 185.8,-32.02 177.33,-25.67 175.21,-32.35"/>
-</g>
-<!-- interface~util_fill_tp -->
-<g id="interface~~util_fill~2~~CalledByGraph_node5" class="node">
-<title>interface~util_fill_tp</title>
-<g id="a_interface~~util_fill~2~~CalledByGraph_node5"><a xlink:href=".././interface/util_fill_tp.html" xlink:title="util_fill_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="57,-24 0,-24 0,0 57,0 57,-24"/>
-<text text-anchor="middle" x="28.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
-</a>
-</g>
-</g>
-<!-- interface~util_fill_tp&#45;&gt;proc~util_fill_tp -->
-<g id="interface~~util_fill~2~~CalledByGraph_edge6" class="edge">
-<title>interface~util_fill_tp&#45;&gt;proc~util_fill_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M57.3,-12C65.32,-12 74.22,-12 82.74,-12"/>
-<polygon fill="#000000" stroke="#000000" points="82.87,-15.5 92.87,-12 82.87,-8.5 82.87,-15.5"/>
+<title>proc~util_fill_body&#45;&gt;interface~util_fill~2</title>
+<path fill="none" stroke="#000000" d="M364.07,-43C372.36,-43 381.23,-43 389.6,-43"/>
+<polygon fill="#000000" stroke="#000000" points="389.85,-46.5 399.85,-43 389.85,-39.5 389.85,-46.5"/>
 </g>
 <!-- interface~util_fill_pl -->
-<g id="interface~~util_fill~2~~CalledByGraph_node6" class="node">
+<g id="interface~~util_fill~2~~CalledByGraph_node5" class="node">
 <title>interface~util_fill_pl</title>
-<g id="a_interface~~util_fill~2~~CalledByGraph_node6"><a xlink:href=".././interface/util_fill_pl.html" xlink:title="util_fill_pl">
+<g id="a_interface~~util_fill~2~~CalledByGraph_node5"><a xlink:href=".././interface/util_fill_pl.html" xlink:title="util_fill_pl">
 <polygon fill="#a7506f" stroke="#a7506f" points="56.5,-85 0.5,-85 0.5,-61 56.5,-61 56.5,-85"/>
 <text text-anchor="middle" x="28.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
 </a>
@@ -340,8 +325,23 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M56.8,-73C65.08,-73 74.32,-73 83.14,-73"/>
 <polygon fill="#000000" stroke="#000000" points="83.22,-76.5 93.22,-73 83.22,-69.5 83.22,-76.5"/>
 </g>
-<!-- interface~util_fill_body&#45;&gt;proc~util_fill_body -->
+<!-- interface~util_fill_tp -->
+<g id="interface~~util_fill~2~~CalledByGraph_node6" class="node">
+<title>interface~util_fill_tp</title>
+<g id="a_interface~~util_fill~2~~CalledByGraph_node6"><a xlink:href=".././interface/util_fill_tp.html" xlink:title="util_fill_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="57,-24 0,-24 0,0 57,0 57,-24"/>
+<text text-anchor="middle" x="28.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~util_fill_tp&#45;&gt;proc~util_fill_tp -->
 <g id="interface~~util_fill~2~~CalledByGraph_edge4" class="edge">
+<title>interface~util_fill_tp&#45;&gt;proc~util_fill_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M57.3,-12C65.32,-12 74.22,-12 82.74,-12"/>
+<polygon fill="#000000" stroke="#000000" points="82.87,-15.5 92.87,-12 82.87,-8.5 82.87,-15.5"/>
+</g>
+<!-- interface~util_fill_body&#45;&gt;proc~util_fill_body -->
+<g id="interface~~util_fill~2~~CalledByGraph_edge6" class="edge">
 <title>interface~util_fill_body&#45;&gt;proc~util_fill_body</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.17,-43C265.33,-43 274.13,-43 282.66,-43"/>
 <polygon fill="#000000" stroke="#000000" points="282.86,-46.5 292.86,-43 282.86,-39.5 282.86,-46.5"/>
diff --git a/docs/interface/util_get_energy_momentum_system.html b/docs/interface/util_get_energy_momentum_system.html
index ae96a3e34..5913b3166 100644
--- a/docs/interface/util_get_energy_momentum_system.html
+++ b/docs/interface/util_get_energy_momentum_system.html
@@ -220,58 +220,118 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~util_get_energy_momentum_system~~CallsGraph Pages: 1 -->
-<svg id="interfaceutil_get_energy_momentum_systemCallsGraph" width="596pt" height="32pt"
- viewBox="0.00 0.00 596.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~util_get_energy_momentum_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="interfaceutil_get_energy_momentum_systemCallsGraph" width="596pt" height="242pt"
+ viewBox="0.00 0.00 596.00 242.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_get_energy_momentum_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 238)">
 <title>interface~~util_get_energy_momentum_system~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 592,-28 592,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-238 592,-238 592,4 -4,4"/>
 <!-- interface~util_get_energy_momentum_system -->
 <g id="interface~~util_get_energy_momentum_system~~CallsGraph_node1" class="node">
 <title>interface~util_get_energy_momentum_system</title>
-<polygon fill="none" stroke="black" points="186,-24 0,-24 0,0 186,0 186,-24"/>
-<text text-anchor="middle" x="93" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_get_energy_momentum_system</text>
+<polygon fill="none" stroke="black" points="186,-129 0,-129 0,-105 186,-105 186,-129"/>
+<text text-anchor="middle" x="93" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_get_energy_momentum_system</text>
 </g>
 <!-- proc~util_get_energy_momentum_system -->
 <g id="interface~~util_get_energy_momentum_system~~CallsGraph_node2" class="node">
 <title>proc~util_get_energy_momentum_system</title>
 <g id="a_interface~~util_get_energy_momentum_system~~CallsGraph_node2"><a xlink:href=".././proc/util_get_energy_momentum_system.html" xlink:title="util_get_energy_momentum_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="408,-24 222,-24 222,0 408,0 408,-24"/>
-<text text-anchor="middle" x="315" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum_system</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="408,-129 222,-129 222,-105 408,-105 408,-129"/>
+<text text-anchor="middle" x="315" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum_system</text>
 </a>
 </g>
 </g>
 <!-- interface~util_get_energy_momentum_system&#45;&gt;proc~util_get_energy_momentum_system -->
 <g id="interface~~util_get_energy_momentum_system~~CallsGraph_edge1" class="edge">
 <title>interface~util_get_energy_momentum_system&#45;&gt;proc~util_get_energy_momentum_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M186.03,-12C194.57,-12 203.27,-12 211.9,-12"/>
-<polygon fill="#000000" stroke="#000000" points="211.99,-15.5 221.99,-12 211.99,-8.5 211.99,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M186.03,-117C194.57,-117 203.27,-117 211.9,-117"/>
+<polygon fill="#000000" stroke="#000000" points="211.99,-120.5 221.99,-117 211.99,-113.5 211.99,-120.5"/>
 </g>
-<!-- interface~obl_pot -->
+<!-- py -->
 <g id="interface~~util_get_energy_momentum_system~~CallsGraph_node3" class="node">
+<title>py</title>
+<polygon fill="#777777" stroke="#777777" points="498,-234 444,-234 444,-210 498,-210 498,-234"/>
+<text text-anchor="middle" x="471" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">py</text>
+</g>
+<!-- proc~util_get_energy_momentum_system&#45;&gt;py -->
+<g id="interface~~util_get_energy_momentum_system~~CallsGraph_edge2" class="edge">
+<title>proc~util_get_energy_momentum_system&#45;&gt;py</title>
+<path fill="none" stroke="#000000" d="M333.67,-129.04C360.67,-147.46 412.4,-182.72 443.79,-204.13"/>
+<polygon fill="#000000" stroke="#000000" points="441.83,-207.03 452.07,-209.77 445.78,-201.25 441.83,-207.03"/>
+</g>
+<!-- px -->
+<g id="interface~~util_get_energy_momentum_system~~CallsGraph_node4" class="node">
+<title>px</title>
+<polygon fill="#777777" stroke="#777777" points="498,-192 444,-192 444,-168 498,-168 498,-192"/>
+<text text-anchor="middle" x="471" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">px</text>
+</g>
+<!-- proc~util_get_energy_momentum_system&#45;&gt;px -->
+<g id="interface~~util_get_energy_momentum_system~~CallsGraph_edge3" class="edge">
+<title>proc~util_get_energy_momentum_system&#45;&gt;px</title>
+<path fill="none" stroke="#000000" d="M345.69,-129.15C371.07,-139.53 407.64,-154.49 434.55,-165.5"/>
+<polygon fill="#000000" stroke="#000000" points="433.4,-168.81 443.98,-169.36 436.05,-162.33 433.4,-168.81"/>
+</g>
+<!-- indj -->
+<g id="interface~~util_get_energy_momentum_system~~CallsGraph_node5" class="node">
+<title>indj</title>
+<polygon fill="#777777" stroke="#777777" points="498,-150 444,-150 444,-126 498,-126 498,-150"/>
+<text text-anchor="middle" x="471" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">indj</text>
+</g>
+<!-- proc~util_get_energy_momentum_system&#45;&gt;indj -->
+<g id="interface~~util_get_energy_momentum_system~~CallsGraph_edge5" class="edge">
+<title>proc~util_get_energy_momentum_system&#45;&gt;indj</title>
+<path fill="none" stroke="#000000" d="M404.24,-129.03C414.58,-130.44 424.64,-131.81 433.66,-133.04"/>
+<polygon fill="#000000" stroke="#000000" points="433.34,-136.53 443.72,-134.42 434.28,-129.6 433.34,-136.53"/>
+</g>
+<!-- indi -->
+<g id="interface~~util_get_energy_momentum_system~~CallsGraph_node6" class="node">
+<title>indi</title>
+<polygon fill="#777777" stroke="#777777" points="498,-108 444,-108 444,-84 498,-84 498,-108"/>
+<text text-anchor="middle" x="471" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">indi</text>
+</g>
+<!-- proc~util_get_energy_momentum_system&#45;&gt;indi -->
+<g id="interface~~util_get_energy_momentum_system~~CallsGraph_edge7" class="edge">
+<title>proc~util_get_energy_momentum_system&#45;&gt;indi</title>
+<path fill="none" stroke="#000000" d="M404.24,-104.97C414.58,-103.56 424.64,-102.19 433.66,-100.96"/>
+<polygon fill="#000000" stroke="#000000" points="434.28,-104.4 443.72,-99.58 433.34,-97.47 434.28,-104.4"/>
+</g>
+<!-- pz -->
+<g id="interface~~util_get_energy_momentum_system~~CallsGraph_node7" class="node">
+<title>pz</title>
+<polygon fill="#777777" stroke="#777777" points="498,-66 444,-66 444,-42 498,-42 498,-66"/>
+<text text-anchor="middle" x="471" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">pz</text>
+</g>
+<!-- proc~util_get_energy_momentum_system&#45;&gt;pz -->
+<g id="interface~~util_get_energy_momentum_system~~CallsGraph_edge6" class="edge">
+<title>proc~util_get_energy_momentum_system&#45;&gt;pz</title>
+<path fill="none" stroke="#000000" d="M345.69,-104.85C371.07,-94.47 407.64,-79.51 434.55,-68.5"/>
+<polygon fill="#000000" stroke="#000000" points="436.05,-71.67 443.98,-64.64 433.4,-65.19 436.05,-71.67"/>
+</g>
+<!-- interface~obl_pot -->
+<g id="interface~~util_get_energy_momentum_system~~CallsGraph_node8" class="node">
 <title>interface~obl_pot</title>
-<g id="a_interface~~util_get_energy_momentum_system~~CallsGraph_node3"><a xlink:href=".././interface/obl_pot.html" xlink:title="obl_pot">
+<g id="a_interface~~util_get_energy_momentum_system~~CallsGraph_node8"><a xlink:href=".././interface/obl_pot.html" xlink:title="obl_pot">
 <polygon fill="#a7506f" stroke="#a7506f" points="498,-24 444,-24 444,0 498,0 498,-24"/>
 <text text-anchor="middle" x="471" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot</text>
 </a>
 </g>
 </g>
 <!-- proc~util_get_energy_momentum_system&#45;&gt;interface~obl_pot -->
-<g id="interface~~util_get_energy_momentum_system~~CallsGraph_edge2" class="edge">
+<g id="interface~~util_get_energy_momentum_system~~CallsGraph_edge4" class="edge">
 <title>proc~util_get_energy_momentum_system&#45;&gt;interface~obl_pot</title>
-<path fill="none" stroke="#000000" d="M408.25,-12C417.15,-12 425.76,-12 433.59,-12"/>
-<polygon fill="#000000" stroke="#000000" points="433.73,-15.5 443.73,-12 433.73,-8.5 433.73,-15.5"/>
+<path fill="none" stroke="#000000" d="M333.67,-104.96C360.67,-86.54 412.4,-51.28 443.79,-29.87"/>
+<polygon fill="#000000" stroke="#000000" points="445.78,-32.75 452.07,-24.23 441.83,-26.97 445.78,-32.75"/>
 </g>
 <!-- proc~obl_pot -->
-<g id="interface~~util_get_energy_momentum_system~~CallsGraph_node4" class="node">
+<g id="interface~~util_get_energy_momentum_system~~CallsGraph_node9" class="node">
 <title>proc~obl_pot</title>
-<g id="a_interface~~util_get_energy_momentum_system~~CallsGraph_node4"><a xlink:href=".././proc/obl_pot.html" xlink:title="obl_pot">
+<g id="a_interface~~util_get_energy_momentum_system~~CallsGraph_node9"><a xlink:href=".././proc/obl_pot.html" xlink:title="obl_pot">
 <polygon fill="#d9534f" stroke="#d9534f" points="588,-24 534,-24 534,0 588,0 588,-24"/>
 <text text-anchor="middle" x="561" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot</text>
 </a>
 </g>
 </g>
 <!-- interface~obl_pot&#45;&gt;proc~obl_pot -->
-<g id="interface~~util_get_energy_momentum_system~~CallsGraph_edge3" class="edge">
+<g id="interface~~util_get_energy_momentum_system~~CallsGraph_edge8" class="edge">
 <title>interface~obl_pot&#45;&gt;proc~obl_pot</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M498.4,-12C506.39,-12 515.31,-12 523.82,-12"/>
 <polygon fill="#000000" stroke="#000000" points="523.92,-15.5 533.92,-12 523.92,-8.5 523.92,-15.5"/>
@@ -376,7 +436,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~178"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~175"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -391,7 +451,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~111"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~112"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/util_minimize_bfgs.html b/docs/interface/util_minimize_bfgs.html
index dbdcdec8f..da60fbe1e 100644
--- a/docs/interface/util_minimize_bfgs.html
+++ b/docs/interface/util_minimize_bfgs.html
@@ -136,7 +136,7 @@ <h1>util_minimize_bfgs
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">18 statements</a>
+    title=" 0.1% of total for procedures.">24 statements</a>
      </li> 
      
      
diff --git a/docs/interface/util_peri_tp.html b/docs/interface/util_peri_tp.html
index de2bf88c6..32f5bd7c4 100644
--- a/docs/interface/util_peri_tp.html
+++ b/docs/interface/util_peri_tp.html
@@ -136,7 +136,7 @@ <h1>util_peri_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">18 statements</a>
+    title=" 0.1% of total for procedures.">24 statements</a>
      </li> 
      
      
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~173"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~170"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~62"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~66"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~110"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~111"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/symba_io_read_frame_info.html b/docs/interface/util_rescale_system.html
similarity index 77%
rename from docs/interface/symba_io_read_frame_info.html
rename to docs/interface/util_rescale_system.html
index 203ceca5f..04eb77e0b 100644
--- a/docs/interface/symba_io_read_frame_info.html
+++ b/docs/interface/util_rescale_system.html
@@ -11,7 +11,7 @@
     <meta name="author" content="David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott" >
     <link rel="icon" href="../favicon.png">
 
-    <title>symba_io_read_frame_info &ndash; swiftest</title>
+    <title>util_rescale_system &ndash; swiftest</title>
 
     <link href="../css/bootstrap.min.css" rel="stylesheet">
     <link href="../css/pygments.css" rel="stylesheet">
@@ -117,7 +117,7 @@
     
   
   <div class="row">
-    <h1>symba_io_read_frame_info
+    <h1>util_rescale_system
    <small>Interface</small>
     
     </h1>
@@ -136,24 +136,24 @@ <h1>symba_io_read_frame_info
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.1% of total for procedures.">24 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/symba_classes.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/swiftest_classes.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/symba_classes.f90.html'>symba_classes.f90</a></li>
+     <li><a href='../sourcefile/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
     
-     <li><a href='../module/symba_classes.html'>symba_classes</a></li>
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
     
   
-     <li class="active">symba_io_read_frame_info</li>
+     <li class="active">util_rescale_system</li>
   </ol>
 </div>
 </div>
@@ -219,32 +219,32 @@ <h3 class="panel-title">Calls</h3>
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
-<!-- Title: interface~~symba_io_read_frame_info~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_io_read_frame_infoCallsGraph" 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="interface~~symba_io_read_frame_info~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~symba_io_read_frame_info~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 326,-28 326,4 -4,4"/>
-<!-- interface~symba_io_read_frame_info -->
-<g id="interface~~symba_io_read_frame_info~~CallsGraph_node1" class="node">
-<title>interface~symba_io_read_frame_info</title>
-<polygon fill="none" stroke="black" points="143,-24 0,-24 0,0 143,0 143,-24"/>
-<text text-anchor="middle" x="71.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_read_frame_info</text>
+<!-- Title: interface~~util_rescale_system~~CallsGraph Pages: 1 -->
+<svg id="interfaceutil_rescale_systemCallsGraph" width="256pt" height="32pt"
+ viewBox="0.00 0.00 256.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_rescale_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>interface~~util_rescale_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 252,-28 252,4 -4,4"/>
+<!-- interface~util_rescale_system -->
+<g id="interface~~util_rescale_system~~CallsGraph_node1" class="node">
+<title>interface~util_rescale_system</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">util_rescale_system</text>
 </g>
-<!-- proc~symba_io_read_frame_info -->
-<g id="interface~~symba_io_read_frame_info~~CallsGraph_node2" class="node">
-<title>proc~symba_io_read_frame_info</title>
-<g id="a_interface~~symba_io_read_frame_info~~CallsGraph_node2"><a xlink:href=".././proc/symba_io_read_frame_info.html" xlink:title="symba_io_read_frame_info">
-<polygon fill="#d9534f" stroke="#d9534f" points="322,-24 179,-24 179,0 322,0 322,-24"/>
-<text text-anchor="middle" x="250.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_read_frame_info</text>
+<!-- proc~util_rescale_system -->
+<g id="interface~~util_rescale_system~~CallsGraph_node2" class="node">
+<title>proc~util_rescale_system</title>
+<g id="a_interface~~util_rescale_system~~CallsGraph_node2"><a xlink:href=".././proc/util_rescale_system.html" xlink:title="util_rescale_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="248,-24 142,-24 142,0 248,0 248,-24"/>
+<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale_system</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_io_read_frame_info&#45;&gt;proc~symba_io_read_frame_info -->
-<g id="interface~~symba_io_read_frame_info~~CallsGraph_edge1" class="edge">
-<title>interface~symba_io_read_frame_info&#45;&gt;proc~symba_io_read_frame_info</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M143.22,-12C151.57,-12 160.14,-12 168.62,-12"/>
-<polygon fill="#000000" stroke="#000000" points="168.89,-15.5 178.89,-12 168.89,-8.5 168.89,-15.5"/>
+<!-- interface~util_rescale_system&#45;&gt;proc~util_rescale_system -->
+<g id="interface~~util_rescale_system~~CallsGraph_edge1" class="edge">
+<title>interface~util_rescale_system&#45;&gt;proc~util_rescale_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M106.13,-12C114.42,-12 123.07,-12 131.57,-12"/>
+<polygon fill="#000000" stroke="#000000" points="131.83,-15.5 141.83,-12 131.83,-8.5 131.83,-15.5"/>
 </g>
 </g>
 </svg>
@@ -315,11 +315,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine symba_io_read_frame_info(self, iu, param, form, ierr)
+public module subroutine util_rescale_system(self, param, mscale, dscale, tscale)
     
     
    
-   <a href='../proc/symba_io_read_frame_info.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_rescale_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -346,12 +346,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~91"></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" id="variable-self~169"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA particle info object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -361,12 +361,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~5"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-param~110"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters. Returns with new values of the scale vactors and GU</p></td>
   
 </tr>
 
@@ -376,12 +376,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~66"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" id="variable-mscale"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>mscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
   
 </tr>
 
@@ -391,12 +391,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-form~2"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-dscale"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>form</strong></td><td><p>Input format code ("XV" or "EL")</p></td>
+  <td><strong>dscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
   
 </tr>
 
@@ -406,12 +406,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ierr~4"></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" id="variable-tscale"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></td>
+  <td><strong>tscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
   
 </tr>
 
diff --git a/docs/interface/util_resize.html b/docs/interface/util_resize.html
index 2bf5ee510..a50ab255f 100644
--- a/docs/interface/util_resize.html
+++ b/docs/interface/util_resize.html
@@ -254,9 +254,9 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="#000000" stroke="#000000" points="701.27,-118.19 704.48,-108.09 695.68,-113.98 701.27,-118.19"/>
 </g>
 <!-- interface~symba_util_resize_pl -->
-<g id="interface~~util_resize~~CalledByGraph_node8" class="node">
+<g id="interface~~util_resize~~CalledByGraph_node9" class="node">
 <title>interface~symba_util_resize_pl</title>
-<g id="a_interface~~util_resize~~CalledByGraph_node8"><a xlink:href=".././interface/symba_util_resize_pl.html" xlink:title="symba_util_resize_pl">
+<g id="a_interface~~util_resize~~CalledByGraph_node9"><a xlink:href=".././interface/symba_util_resize_pl.html" xlink:title="symba_util_resize_pl">
 <polygon fill="#a7506f" stroke="#a7506f" points="462.5,-150 350.5,-150 350.5,-126 462.5,-126 462.5,-150"/>
 <text text-anchor="middle" x="406.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_pl</text>
 </a>
@@ -268,20 +268,20 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" d="M314.28,-149.4C322.93,-148.32 331.75,-147.22 340.34,-146.15"/>
 <polygon fill="#000000" stroke="#000000" points="340.79,-149.62 350.28,-144.9 339.93,-142.67 340.79,-149.62"/>
 </g>
-<!-- proc~symba_util_append_arr_info -->
+<!-- proc~symba_util_append_arr_kin -->
 <g id="interface~~util_resize~~CalledByGraph_node3" class="node">
-<title>proc~symba_util_append_arr_info</title>
-<g id="a_interface~~util_resize~~CalledByGraph_node3"><a xlink:href=".././proc/symba_util_append_arr_info.html" xlink:title="symba_util_append_arr_info">
-<polygon fill="#d9534f" stroke="#d9534f" points="647,-108 499,-108 499,-84 647,-84 647,-108"/>
-<text text-anchor="middle" x="573" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_arr_info</text>
+<title>proc~symba_util_append_arr_kin</title>
+<g id="a_interface~~util_resize~~CalledByGraph_node3"><a xlink:href=".././proc/symba_util_append_arr_kin.html" xlink:title="symba_util_append_arr_kin">
+<polygon fill="#d9534f" stroke="#d9534f" points="645.5,-108 500.5,-108 500.5,-84 645.5,-84 645.5,-108"/>
+<text text-anchor="middle" x="573" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_arr_kin</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_append_arr_info&#45;&gt;interface~util_resize -->
+<!-- proc~symba_util_append_arr_kin&#45;&gt;interface~util_resize -->
 <g id="interface~~util_resize~~CalledByGraph_edge2" class="edge">
-<title>proc~symba_util_append_arr_info&#45;&gt;interface~util_resize</title>
-<path fill="none" stroke="#000000" d="M647.31,-96C656.06,-96 664.72,-96 672.74,-96"/>
-<polygon fill="#000000" stroke="#000000" points="672.86,-99.5 682.86,-96 672.86,-92.5 672.86,-99.5"/>
+<title>proc~symba_util_append_arr_kin&#45;&gt;interface~util_resize</title>
+<path fill="none" stroke="#000000" d="M645.68,-96C654.87,-96 664.01,-96 672.43,-96"/>
+<polygon fill="#000000" stroke="#000000" points="672.68,-99.5 682.68,-96 672.68,-92.5 672.68,-99.5"/>
 </g>
 <!-- proc~symba_util_resize_pl -->
 <g id="interface~~util_resize~~CalledByGraph_node4" class="node">
@@ -313,18 +313,18 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" d="M616.91,-66.11C626.81,-68.97 637.28,-72.05 647,-75 655.55,-77.6 664.7,-80.47 673.37,-83.24"/>
 <polygon fill="#000000" stroke="#000000" points="672.3,-86.57 682.89,-86.3 674.44,-79.91 672.3,-86.57"/>
 </g>
-<!-- proc~symba_util_append_arr_kin -->
+<!-- proc~symba_util_append_arr_info -->
 <g id="interface~~util_resize~~CalledByGraph_node6" class="node">
-<title>proc~symba_util_append_arr_kin</title>
-<g id="a_interface~~util_resize~~CalledByGraph_node6"><a xlink:href=".././proc/symba_util_append_arr_kin.html" xlink:title="symba_util_append_arr_kin">
-<polygon fill="#d9534f" stroke="#d9534f" points="645.5,-24 500.5,-24 500.5,0 645.5,0 645.5,-24"/>
-<text text-anchor="middle" x="573" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_arr_kin</text>
+<title>proc~symba_util_append_arr_info</title>
+<g id="a_interface~~util_resize~~CalledByGraph_node6"><a xlink:href=".././proc/symba_util_append_arr_info.html" xlink:title="symba_util_append_arr_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="647,-24 499,-24 499,0 647,0 647,-24"/>
+<text text-anchor="middle" x="573" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_arr_info</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_append_arr_kin&#45;&gt;interface~util_resize -->
+<!-- proc~symba_util_append_arr_info&#45;&gt;interface~util_resize -->
 <g id="interface~~util_resize~~CalledByGraph_edge5" class="edge">
-<title>proc~symba_util_append_arr_kin&#45;&gt;interface~util_resize</title>
+<title>proc~symba_util_append_arr_info&#45;&gt;interface~util_resize</title>
 <path fill="none" stroke="#000000" d="M627.49,-24.09C634.27,-26.56 640.94,-29.51 647,-33 666.42,-44.2 684.47,-62.38 696.68,-76.34"/>
 <polygon fill="#000000" stroke="#000000" points="694.02,-78.62 703.16,-83.98 699.36,-74.09 694.02,-78.62"/>
 </g>
@@ -343,16 +343,10 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M139.37,-158C147.68,-158 156.21,-158 164.65,-158"/>
 <polygon fill="#000000" stroke="#000000" points="164.87,-161.5 174.87,-158 164.87,-154.5 164.87,-161.5"/>
 </g>
-<!-- interface~symba_util_resize_pl&#45;&gt;proc~symba_util_resize_pl -->
-<g id="interface~~util_resize~~CalledByGraph_edge7" class="edge">
-<title>interface~symba_util_resize_pl&#45;&gt;proc~symba_util_resize_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.73,-138C476.78,-138 492.01,-138 506.51,-138"/>
-<polygon fill="#000000" stroke="#000000" points="506.91,-141.5 516.91,-138 506.91,-134.5 506.91,-141.5"/>
-</g>
 <!-- interface~symba_util_resize_tp -->
-<g id="interface~~util_resize~~CalledByGraph_node9" class="node">
+<g id="interface~~util_resize~~CalledByGraph_node8" class="node">
 <title>interface~symba_util_resize_tp</title>
-<g id="a_interface~~util_resize~~CalledByGraph_node9"><a xlink:href=".././interface/symba_util_resize_tp.html" xlink:title="symba_util_resize_tp">
+<g id="a_interface~~util_resize~~CalledByGraph_node8"><a xlink:href=".././interface/symba_util_resize_tp.html" xlink:title="symba_util_resize_tp">
 <polygon fill="#a7506f" stroke="#a7506f" points="463,-66 350,-66 350,-42 463,-42 463,-66"/>
 <text text-anchor="middle" x="406.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_tp</text>
 </a>
@@ -364,6 +358,12 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M463.19,-54C476.99,-54 491.91,-54 506.15,-54"/>
 <polygon fill="#000000" stroke="#000000" points="506.37,-57.5 516.37,-54 506.37,-50.5 506.37,-57.5"/>
 </g>
+<!-- interface~symba_util_resize_pl&#45;&gt;proc~symba_util_resize_pl -->
+<g id="interface~~util_resize~~CalledByGraph_edge7" class="edge">
+<title>interface~symba_util_resize_pl&#45;&gt;proc~symba_util_resize_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.73,-138C476.78,-138 492.01,-138 506.51,-138"/>
+<polygon fill="#000000" stroke="#000000" points="506.91,-141.5 516.91,-138 506.91,-134.5 506.91,-141.5"/>
+</g>
 </g>
 </svg>
 </div><script>var paninterfaceutil_resizeCalledByGraph = svgPanZoom('#interfaceutil_resizeCalledByGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
diff --git a/docs/interface/util_resize_body.html b/docs/interface/util_resize_body.html
index 6fdd3ba9a..93a2d871e 100644
--- a/docs/interface/util_resize_body.html
+++ b/docs/interface/util_resize_body.html
@@ -348,65 +348,65 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="none" stroke="black" points="314,-45 224,-45 224,-21 314,-21 314,-45"/>
 <text text-anchor="middle" x="269" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_resize_body</text>
 </g>
-<!-- proc~util_resize_tp -->
+<!-- proc~util_resize_pl -->
 <g id="interface~~util_resize_body~~CalledByGraph_node2" class="node">
-<title>proc~util_resize_tp</title>
-<g id="a_interface~~util_resize_body~~CalledByGraph_node2"><a xlink:href=".././proc/util_resize_tp.html" xlink:title="util_resize_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="188,-66 112,-66 112,-42 188,-42 188,-66"/>
-<text text-anchor="middle" x="150" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
+<title>proc~util_resize_pl</title>
+<g id="a_interface~~util_resize_body~~CalledByGraph_node2"><a xlink:href=".././proc/util_resize_pl.html" xlink:title="util_resize_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="187.5,-66 112.5,-66 112.5,-42 187.5,-42 187.5,-66"/>
+<text text-anchor="middle" x="150" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_resize_tp&#45;&gt;interface~util_resize_body -->
+<!-- proc~util_resize_pl&#45;&gt;interface~util_resize_body -->
 <g id="interface~~util_resize_body~~CalledByGraph_edge1" class="edge">
-<title>proc~util_resize_tp&#45;&gt;interface~util_resize_body</title>
-<path fill="none" stroke="#000000" d="M188.02,-47.36C196.2,-45.89 205.03,-44.3 213.74,-42.74"/>
-<polygon fill="#000000" stroke="#000000" points="214.63,-46.14 223.85,-40.92 213.39,-39.25 214.63,-46.14"/>
+<title>proc~util_resize_pl&#45;&gt;interface~util_resize_body</title>
+<path fill="none" stroke="#000000" d="M187.7,-47.41C195.98,-45.93 204.93,-44.32 213.76,-42.74"/>
+<polygon fill="#000000" stroke="#000000" points="214.4,-46.18 223.63,-40.96 213.17,-39.29 214.4,-46.18"/>
 </g>
-<!-- proc~util_resize_pl -->
+<!-- proc~util_resize_tp -->
 <g id="interface~~util_resize_body~~CalledByGraph_node3" class="node">
-<title>proc~util_resize_pl</title>
-<g id="a_interface~~util_resize_body~~CalledByGraph_node3"><a xlink:href=".././proc/util_resize_pl.html" xlink:title="util_resize_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="187.5,-24 112.5,-24 112.5,0 187.5,0 187.5,-24"/>
-<text text-anchor="middle" x="150" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
+<title>proc~util_resize_tp</title>
+<g id="a_interface~~util_resize_body~~CalledByGraph_node3"><a xlink:href=".././proc/util_resize_tp.html" xlink:title="util_resize_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="188,-24 112,-24 112,0 188,0 188,-24"/>
+<text text-anchor="middle" x="150" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~util_resize_pl&#45;&gt;interface~util_resize_body -->
+<!-- proc~util_resize_tp&#45;&gt;interface~util_resize_body -->
 <g id="interface~~util_resize_body~~CalledByGraph_edge2" class="edge">
-<title>proc~util_resize_pl&#45;&gt;interface~util_resize_body</title>
-<path fill="none" stroke="#000000" d="M187.7,-18.59C195.98,-20.07 204.93,-21.68 213.76,-23.26"/>
-<polygon fill="#000000" stroke="#000000" points="213.17,-26.71 223.63,-25.04 214.4,-19.82 213.17,-26.71"/>
+<title>proc~util_resize_tp&#45;&gt;interface~util_resize_body</title>
+<path fill="none" stroke="#000000" d="M188.02,-18.64C196.2,-20.11 205.03,-21.7 213.74,-23.26"/>
+<polygon fill="#000000" stroke="#000000" points="213.39,-26.75 223.85,-25.08 214.63,-19.86 213.39,-26.75"/>
 </g>
-<!-- interface~util_resize_pl -->
+<!-- interface~util_resize_tp -->
 <g id="interface~~util_resize_body~~CalledByGraph_node4" class="node">
-<title>interface~util_resize_pl</title>
-<g id="a_interface~~util_resize_body~~CalledByGraph_node4"><a xlink:href=".././interface/util_resize_pl.html" xlink:title="util_resize_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="75.5,-24 0.5,-24 0.5,0 75.5,0 75.5,-24"/>
-<text text-anchor="middle" x="38" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
+<title>interface~util_resize_tp</title>
+<g id="a_interface~~util_resize_body~~CalledByGraph_node4"><a xlink:href=".././interface/util_resize_tp.html" xlink:title="util_resize_tp">
+<polygon fill="#a7506f" stroke="#a7506f" 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" fill="white">util_resize_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~util_resize_pl&#45;&gt;proc~util_resize_pl -->
+<!-- interface~util_resize_tp&#45;&gt;proc~util_resize_tp -->
 <g id="interface~~util_resize_body~~CalledByGraph_edge4" class="edge">
-<title>interface~util_resize_pl&#45;&gt;proc~util_resize_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M75.63,-12C84.07,-12 93.17,-12 101.99,-12"/>
-<polygon fill="#000000" stroke="#000000" points="102.16,-15.5 112.16,-12 102.16,-8.5 102.16,-15.5"/>
+<title>interface~util_resize_tp&#45;&gt;proc~util_resize_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M76.24,-12C84.39,-12 93.13,-12 101.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="101.8,-15.5 111.8,-12 101.8,-8.5 101.8,-15.5"/>
 </g>
-<!-- interface~util_resize_tp -->
+<!-- interface~util_resize_pl -->
 <g id="interface~~util_resize_body~~CalledByGraph_node5" class="node">
-<title>interface~util_resize_tp</title>
-<g id="a_interface~~util_resize_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_resize_tp.html" xlink:title="util_resize_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="76,-66 0,-66 0,-42 76,-42 76,-66"/>
-<text text-anchor="middle" x="38" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
+<title>interface~util_resize_pl</title>
+<g id="a_interface~~util_resize_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_resize_pl.html" xlink:title="util_resize_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="75.5,-66 0.5,-66 0.5,-42 75.5,-42 75.5,-66"/>
+<text text-anchor="middle" x="38" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~util_resize_tp&#45;&gt;proc~util_resize_tp -->
+<!-- interface~util_resize_pl&#45;&gt;proc~util_resize_pl -->
 <g id="interface~~util_resize_body~~CalledByGraph_edge3" class="edge">
-<title>interface~util_resize_tp&#45;&gt;proc~util_resize_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M76.24,-54C84.39,-54 93.13,-54 101.62,-54"/>
-<polygon fill="#000000" stroke="#000000" points="101.8,-57.5 111.8,-54 101.8,-50.5 101.8,-57.5"/>
+<title>interface~util_resize_pl&#45;&gt;proc~util_resize_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M75.63,-54C84.07,-54 93.17,-54 101.99,-54"/>
+<polygon fill="#000000" stroke="#000000" points="102.16,-57.5 112.16,-54 102.16,-50.5 102.16,-57.5"/>
 </g>
 </g>
 </svg>
@@ -507,7 +507,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~174"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~171"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_resize_encounter.html b/docs/interface/util_resize_encounter.html
index 58d858128..56d2613c7 100644
--- a/docs/interface/util_resize_encounter.html
+++ b/docs/interface/util_resize_encounter.html
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~175"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" id="variable-self~172"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_resize_pl.html b/docs/interface/util_resize_pl.html
index 4c19a0daf..cd6512013 100644
--- a/docs/interface/util_resize_pl.html
+++ b/docs/interface/util_resize_pl.html
@@ -397,7 +397,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~176"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~173"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_resize_tp.html b/docs/interface/util_resize_tp.html
index 98c7723d8..c8650a555 100644
--- a/docs/interface/util_resize_tp.html
+++ b/docs/interface/util_resize_tp.html
@@ -397,7 +397,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~177"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~174"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_resize~2.html b/docs/interface/util_resize~2.html
index 8070a006d..aedfd430a 100644
--- a/docs/interface/util_resize~2.html
+++ b/docs/interface/util_resize~2.html
@@ -234,192 +234,192 @@ <h3 class="panel-title">Called by</h3>
  -->
 <!-- Title: interface~~util_resize~2~~CalledByGraph Pages: 1 -->
 <svg id="interfaceutil_resize2CalledByGraph" width="602pt" height="327pt"
- viewBox="0.00 0.00 602.00 327.48" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~util_resize~2~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 323.48)">
+ viewBox="0.00 0.00 602.00 327.47" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_resize~2~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 323.47)">
 <title>interface~~util_resize~2~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-323.48 598,-323.48 598,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-323.47 598,-323.47 598,4 -4,4"/>
 <!-- interface~util_resize~2 -->
 <g id="interface~~util_resize~2~~CalledByGraph_node1" class="node">
 <title>interface~util_resize~2</title>
 <polygon fill="none" stroke="black" points="594,-171 533,-171 533,-147 594,-147 594,-171"/>
 <text text-anchor="middle" x="563.5" y="-156.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_resize</text>
 </g>
-<!-- proc~util_resize_body -->
-<g id="interface~~util_resize~2~~CalledByGraph_node2" class="node">
-<title>proc~util_resize_body</title>
-<g id="a_interface~~util_resize~2~~CalledByGraph_node2"><a xlink:href=".././proc/util_resize_body.html" xlink:title="util_resize_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="468.5,-272 378.5,-272 378.5,-248 468.5,-248 468.5,-272"/>
-<text text-anchor="middle" x="423.5" y="-257.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
-</a>
-</g>
-</g>
-<!-- proc~util_resize_body&#45;&gt;interface~util_resize~2 -->
-<g id="interface~~util_resize~2~~CalledByGraph_edge1" class="edge">
-<title>proc~util_resize_body&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M468.79,-248.15C478.55,-244.47 488.49,-239.8 497,-234 518.33,-219.45 537.06,-196.35 548.97,-179.63"/>
-<polygon fill="#000000" stroke="#000000" points="552.06,-181.31 554.86,-171.09 546.3,-177.34 552.06,-181.31"/>
-</g>
 <!-- proc~util_resize_pl -->
-<g id="interface~~util_resize~2~~CalledByGraph_node3" class="node">
+<g id="interface~~util_resize~2~~CalledByGraph_node2" class="node">
 <title>proc~util_resize_pl</title>
-<g id="a_interface~~util_resize~2~~CalledByGraph_node3"><a xlink:href=".././proc/util_resize_pl.html" xlink:title="util_resize_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="187.5,-302 112.5,-302 112.5,-278 187.5,-278 187.5,-302"/>
-<text text-anchor="middle" x="150" y="-287.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
+<g id="a_interface~~util_resize~2~~CalledByGraph_node2"><a xlink:href=".././proc/util_resize_pl.html" xlink:title="util_resize_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="187.5,-241 112.5,-241 112.5,-217 187.5,-217 187.5,-241"/>
+<text text-anchor="middle" x="150" y="-226.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
 </a>
 </g>
 </g>
 <!-- proc~util_resize_pl&#45;&gt;interface~util_resize~2 -->
-<g id="interface~~util_resize~2~~CalledByGraph_edge2" class="edge">
+<g id="interface~~util_resize~2~~CalledByGraph_edge1" class="edge">
 <title>proc~util_resize_pl&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M187.69,-300.19C254.77,-316.57 399.28,-341.19 497,-281 532.94,-258.87 550.39,-209.71 557.81,-181.01"/>
-<polygon fill="#000000" stroke="#000000" points="561.25,-181.65 560.18,-171.11 554.45,-180.02 561.25,-181.65"/>
+<path fill="none" stroke="#000000" d="M187.52,-231.73C251.92,-235.33 389.08,-237.42 497,-201 512.55,-195.75 528.1,-186.02 540.14,-177.25"/>
+<polygon fill="#000000" stroke="#000000" points="542.38,-179.94 548.24,-171.11 538.15,-174.36 542.38,-179.94"/>
 </g>
 <!-- interface~util_resize_body -->
-<g id="interface~~util_resize~2~~CalledByGraph_node11" class="node">
+<g id="interface~~util_resize~2~~CalledByGraph_node12" class="node">
 <title>interface~util_resize_body</title>
-<g id="a_interface~~util_resize~2~~CalledByGraph_node11"><a xlink:href=".././interface/util_resize_body.html" xlink:title="util_resize_body">
+<g id="a_interface~~util_resize~2~~CalledByGraph_node12"><a xlink:href=".././interface/util_resize_body.html" xlink:title="util_resize_body">
 <polygon fill="#a7506f" stroke="#a7506f" points="314,-272 224,-272 224,-248 314,-248 314,-272"/>
 <text text-anchor="middle" x="269" y="-257.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
 </a>
 </g>
 </g>
 <!-- proc~util_resize_pl&#45;&gt;interface~util_resize_body -->
-<g id="interface~~util_resize~2~~CalledByGraph_edge13" class="edge">
+<g id="interface~~util_resize~2~~CalledByGraph_edge12" class="edge">
 <title>proc~util_resize_pl&#45;&gt;interface~util_resize_body</title>
-<path fill="none" stroke="#000000" d="M187.7,-280.59C195.98,-278.47 204.93,-276.17 213.76,-273.91"/>
-<polygon fill="#000000" stroke="#000000" points="214.81,-277.25 223.63,-271.38 213.07,-270.47 214.81,-277.25"/>
+<path fill="none" stroke="#000000" d="M187.7,-238.72C195.98,-240.92 204.93,-243.29 213.76,-245.63"/>
+<polygon fill="#000000" stroke="#000000" points="213.06,-249.07 223.63,-248.24 214.86,-242.3 213.06,-249.07"/>
+</g>
+<!-- proc~util_append_arr_char_string -->
+<g id="interface~~util_resize~2~~CalledByGraph_node3" class="node">
+<title>proc~util_append_arr_char_string</title>
+<g id="a_interface~~util_resize~2~~CalledByGraph_node3"><a xlink:href=".././proc/util_append_arr_char_string.html" xlink:title="util_append_arr_char_string">
+<polygon fill="#d9534f" stroke="#d9534f" points="497,-192 350,-192 350,-168 497,-168 497,-192"/>
+<text text-anchor="middle" x="423.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_char_string</text>
+</a>
+</g>
+</g>
+<!-- proc~util_append_arr_char_string&#45;&gt;interface~util_resize~2 -->
+<g id="interface~~util_resize~2~~CalledByGraph_edge2" class="edge">
+<title>proc~util_append_arr_char_string&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M497.14,-168.95C505.9,-167.61 514.58,-166.29 522.61,-165.07"/>
+<polygon fill="#000000" stroke="#000000" points="523.4,-168.49 532.76,-163.53 522.34,-161.57 523.4,-168.49"/>
 </g>
 <!-- proc~util_append_arr_dpvec -->
 <g id="interface~~util_resize~2~~CalledByGraph_node4" class="node">
 <title>proc~util_append_arr_dpvec</title>
 <g id="a_interface~~util_resize~2~~CalledByGraph_node4"><a xlink:href=".././proc/util_append_arr_dpvec.html" xlink:title="util_append_arr_DPvec">
-<polygon fill="#d9534f" stroke="#d9534f" points="485.5,-192 361.5,-192 361.5,-168 485.5,-168 485.5,-192"/>
-<text text-anchor="middle" x="423.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_DPvec</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="485.5,-150 361.5,-150 361.5,-126 485.5,-126 485.5,-150"/>
+<text text-anchor="middle" x="423.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_DPvec</text>
 </a>
 </g>
 </g>
 <!-- proc~util_append_arr_dpvec&#45;&gt;interface~util_resize~2 -->
 <g id="interface~~util_resize~2~~CalledByGraph_edge3" class="edge">
 <title>proc~util_append_arr_dpvec&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M485.83,-170.67C498.29,-168.77 511.08,-166.82 522.56,-165.08"/>
-<polygon fill="#000000" stroke="#000000" points="523.33,-168.5 532.69,-163.54 522.27,-161.58 523.33,-168.5"/>
-</g>
-<!-- proc~util_append_arr_char_string -->
-<g id="interface~~util_resize~2~~CalledByGraph_node5" class="node">
-<title>proc~util_append_arr_char_string</title>
-<g id="a_interface~~util_resize~2~~CalledByGraph_node5"><a xlink:href=".././proc/util_append_arr_char_string.html" xlink:title="util_append_arr_char_string">
-<polygon fill="#d9534f" stroke="#d9534f" points="497,-150 350,-150 350,-126 497,-126 497,-150"/>
-<text text-anchor="middle" x="423.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_char_string</text>
-</a>
-</g>
-</g>
-<!-- proc~util_append_arr_char_string&#45;&gt;interface~util_resize~2 -->
-<g id="interface~~util_resize~2~~CalledByGraph_edge4" class="edge">
-<title>proc~util_append_arr_char_string&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M497.14,-149.05C505.9,-150.39 514.58,-151.71 522.61,-152.93"/>
-<polygon fill="#000000" stroke="#000000" points="522.34,-156.43 532.76,-154.47 523.4,-149.51 522.34,-156.43"/>
+<path fill="none" stroke="#000000" d="M485.83,-147.33C498.29,-149.23 511.08,-151.18 522.56,-152.92"/>
+<polygon fill="#000000" stroke="#000000" points="522.27,-156.42 532.69,-154.46 523.33,-149.5 522.27,-156.42"/>
 </g>
 <!-- proc~util_append_arr_logical -->
-<g id="interface~~util_resize~2~~CalledByGraph_node6" class="node">
+<g id="interface~~util_resize~2~~CalledByGraph_node5" class="node">
 <title>proc~util_append_arr_logical</title>
-<g id="a_interface~~util_resize~2~~CalledByGraph_node6"><a xlink:href=".././proc/util_append_arr_logical.html" xlink:title="util_append_arr_logical">
+<g id="a_interface~~util_resize~2~~CalledByGraph_node5"><a xlink:href=".././proc/util_append_arr_logical.html" xlink:title="util_append_arr_logical">
 <polygon fill="#d9534f" stroke="#d9534f" points="485.5,-108 361.5,-108 361.5,-84 485.5,-84 485.5,-108"/>
 <text text-anchor="middle" x="423.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_logical</text>
 </a>
 </g>
 </g>
 <!-- proc~util_append_arr_logical&#45;&gt;interface~util_resize~2 -->
-<g id="interface~~util_resize~2~~CalledByGraph_edge5" class="edge">
+<g id="interface~~util_resize~2~~CalledByGraph_edge4" class="edge">
 <title>proc~util_append_arr_logical&#45;&gt;interface~util_resize~2</title>
 <path fill="none" stroke="#000000" d="M473.56,-108.12C481.53,-110.68 489.6,-113.64 497,-117 511.31,-123.5 526.14,-132.76 538.07,-140.94"/>
 <polygon fill="#000000" stroke="#000000" points="536.37,-144.02 546.56,-146.92 540.4,-138.3 536.37,-144.02"/>
 </g>
-<!-- proc~util_resize_tp -->
-<g id="interface~~util_resize~2~~CalledByGraph_node7" class="node">
-<title>proc~util_resize_tp</title>
-<g id="a_interface~~util_resize~2~~CalledByGraph_node7"><a xlink:href=".././proc/util_resize_tp.html" xlink:title="util_resize_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="188,-241 112,-241 112,-217 188,-217 188,-241"/>
-<text text-anchor="middle" x="150" y="-226.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
-</a>
-</g>
-</g>
-<!-- proc~util_resize_tp&#45;&gt;interface~util_resize~2 -->
-<g id="interface~~util_resize~2~~CalledByGraph_edge6" class="edge">
-<title>proc~util_resize_tp&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M188.03,-231.76C252.64,-235.34 389.36,-237.32 497,-201 512.55,-195.75 528.1,-186.02 540.14,-177.25"/>
-<polygon fill="#000000" stroke="#000000" points="542.38,-179.94 548.24,-171.11 538.15,-174.36 542.38,-179.94"/>
-</g>
-<!-- proc~util_resize_tp&#45;&gt;interface~util_resize_body -->
-<g id="interface~~util_resize~2~~CalledByGraph_edge12" class="edge">
-<title>proc~util_resize_tp&#45;&gt;interface~util_resize_body</title>
-<path fill="none" stroke="#000000" d="M188.02,-238.81C196.29,-241 205.22,-243.37 214.02,-245.7"/>
-<polygon fill="#000000" stroke="#000000" points="213.29,-249.12 223.85,-248.3 215.08,-242.36 213.29,-249.12"/>
-</g>
 <!-- proc~util_append_arr_dp -->
-<g id="interface~~util_resize~2~~CalledByGraph_node8" class="node">
+<g id="interface~~util_resize~2~~CalledByGraph_node6" class="node">
 <title>proc~util_append_arr_dp</title>
-<g id="a_interface~~util_resize~2~~CalledByGraph_node8"><a xlink:href=".././proc/util_append_arr_dp.html" xlink:title="util_append_arr_DP">
+<g id="a_interface~~util_resize~2~~CalledByGraph_node6"><a xlink:href=".././proc/util_append_arr_dp.html" xlink:title="util_append_arr_DP">
 <polygon fill="#d9534f" stroke="#d9534f" points="477.5,-66 369.5,-66 369.5,-42 477.5,-42 477.5,-66"/>
 <text text-anchor="middle" x="423.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_DP</text>
 </a>
 </g>
 </g>
 <!-- proc~util_append_arr_dp&#45;&gt;interface~util_resize~2 -->
-<g id="interface~~util_resize~2~~CalledByGraph_edge7" class="edge">
+<g id="interface~~util_resize~2~~CalledByGraph_edge5" class="edge">
 <title>proc~util_append_arr_dp&#45;&gt;interface~util_resize~2</title>
 <path fill="none" stroke="#000000" d="M477.74,-65.18C484.53,-67.8 491.14,-71.03 497,-75 520.84,-91.14 539.91,-118.72 551.19,-137.85"/>
 <polygon fill="#000000" stroke="#000000" points="548.25,-139.76 556.23,-146.73 554.34,-136.31 548.25,-139.76"/>
 </g>
 <!-- proc~util_append_arr_i4b -->
-<g id="interface~~util_resize~2~~CalledByGraph_node9" class="node">
+<g id="interface~~util_resize~2~~CalledByGraph_node7" class="node">
 <title>proc~util_append_arr_i4b</title>
-<g id="a_interface~~util_resize~2~~CalledByGraph_node9"><a xlink:href=".././proc/util_append_arr_i4b.html" xlink:title="util_append_arr_I4B">
+<g id="a_interface~~util_resize~2~~CalledByGraph_node7"><a xlink:href=".././proc/util_append_arr_i4b.html" xlink:title="util_append_arr_I4B">
 <polygon fill="#d9534f" stroke="#d9534f" points="478,-24 369,-24 369,0 478,0 478,-24"/>
 <text text-anchor="middle" x="423.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_I4B</text>
 </a>
 </g>
 </g>
 <!-- proc~util_append_arr_i4b&#45;&gt;interface~util_resize~2 -->
-<g id="interface~~util_resize~2~~CalledByGraph_edge8" class="edge">
+<g id="interface~~util_resize~2~~CalledByGraph_edge6" class="edge">
 <title>proc~util_append_arr_i4b&#45;&gt;interface~util_resize~2</title>
 <path fill="none" stroke="#000000" d="M478.09,-22.06C484.9,-24.86 491.43,-28.43 497,-33 530.31,-60.3 548.66,-109.01 556.95,-137.2"/>
 <polygon fill="#000000" stroke="#000000" points="553.6,-138.22 559.65,-146.91 560.35,-136.34 553.6,-138.22"/>
 </g>
-<!-- interface~util_resize_pl -->
-<g id="interface~~util_resize~2~~CalledByGraph_node10" class="node">
-<title>interface~util_resize_pl</title>
-<g id="a_interface~~util_resize~2~~CalledByGraph_node10"><a xlink:href=".././interface/util_resize_pl.html" xlink:title="util_resize_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="75.5,-302 0.5,-302 0.5,-278 75.5,-278 75.5,-302"/>
-<text text-anchor="middle" x="38" y="-287.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
+<!-- proc~util_resize_tp -->
+<g id="interface~~util_resize~2~~CalledByGraph_node8" class="node">
+<title>proc~util_resize_tp</title>
+<g id="a_interface~~util_resize~2~~CalledByGraph_node8"><a xlink:href=".././proc/util_resize_tp.html" xlink:title="util_resize_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="188,-302 112,-302 112,-278 188,-278 188,-302"/>
+<text text-anchor="middle" x="150" y="-287.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~util_resize_pl&#45;&gt;proc~util_resize_pl -->
-<g id="interface~~util_resize~2~~CalledByGraph_edge10" class="edge">
-<title>interface~util_resize_pl&#45;&gt;proc~util_resize_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M75.63,-290C84.07,-290 93.17,-290 101.99,-290"/>
-<polygon fill="#000000" stroke="#000000" points="102.16,-293.5 112.16,-290 102.16,-286.5 102.16,-293.5"/>
+<!-- proc~util_resize_tp&#45;&gt;interface~util_resize~2 -->
+<g id="interface~~util_resize~2~~CalledByGraph_edge7" class="edge">
+<title>proc~util_resize_tp&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M188.22,-300.32C255.53,-316.7 399.53,-341.03 497,-281 532.94,-258.87 550.39,-209.71 557.81,-181.01"/>
+<polygon fill="#000000" stroke="#000000" points="561.25,-181.65 560.18,-171.11 554.45,-180.02 561.25,-181.65"/>
 </g>
-<!-- interface~util_resize_body&#45;&gt;proc~util_resize_body -->
-<g id="interface~~util_resize~2~~CalledByGraph_edge9" class="edge">
-<title>interface~util_resize_body&#45;&gt;proc~util_resize_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.11,-260C331.02,-260 350.52,-260 368.27,-260"/>
-<polygon fill="#000000" stroke="#000000" points="368.49,-263.5 378.49,-260 368.49,-256.5 368.49,-263.5"/>
+<!-- proc~util_resize_tp&#45;&gt;interface~util_resize_body -->
+<g id="interface~~util_resize~2~~CalledByGraph_edge13" class="edge">
+<title>proc~util_resize_tp&#45;&gt;interface~util_resize_body</title>
+<path fill="none" stroke="#000000" d="M188.02,-280.51C196.29,-278.39 205.22,-276.1 214.02,-273.84"/>
+<polygon fill="#000000" stroke="#000000" points="215.03,-277.19 223.85,-271.32 213.29,-270.41 215.03,-277.19"/>
+</g>
+<!-- proc~util_resize_body -->
+<g id="interface~~util_resize~2~~CalledByGraph_node9" class="node">
+<title>proc~util_resize_body</title>
+<g id="a_interface~~util_resize~2~~CalledByGraph_node9"><a xlink:href=".././proc/util_resize_body.html" xlink:title="util_resize_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="468.5,-272 378.5,-272 378.5,-248 468.5,-248 468.5,-272"/>
+<text text-anchor="middle" x="423.5" y="-257.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
+</a>
+</g>
+</g>
+<!-- proc~util_resize_body&#45;&gt;interface~util_resize~2 -->
+<g id="interface~~util_resize~2~~CalledByGraph_edge8" class="edge">
+<title>proc~util_resize_body&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M468.79,-248.15C478.55,-244.47 488.49,-239.8 497,-234 518.33,-219.45 537.06,-196.35 548.97,-179.63"/>
+<polygon fill="#000000" stroke="#000000" points="552.06,-181.31 554.86,-171.09 546.3,-177.34 552.06,-181.31"/>
 </g>
 <!-- interface~util_resize_tp -->
-<g id="interface~~util_resize~2~~CalledByGraph_node12" class="node">
+<g id="interface~~util_resize~2~~CalledByGraph_node10" class="node">
 <title>interface~util_resize_tp</title>
-<g id="a_interface~~util_resize~2~~CalledByGraph_node12"><a xlink:href=".././interface/util_resize_tp.html" xlink:title="util_resize_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="76,-241 0,-241 0,-217 76,-217 76,-241"/>
-<text text-anchor="middle" x="38" y="-226.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
+<g id="a_interface~~util_resize~2~~CalledByGraph_node10"><a xlink:href=".././interface/util_resize_tp.html" xlink:title="util_resize_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="76,-302 0,-302 0,-278 76,-278 76,-302"/>
+<text text-anchor="middle" x="38" y="-287.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~util_resize_tp&#45;&gt;proc~util_resize_tp -->
-<g id="interface~~util_resize~2~~CalledByGraph_edge11" class="edge">
+<g id="interface~~util_resize~2~~CalledByGraph_edge10" class="edge">
 <title>interface~util_resize_tp&#45;&gt;proc~util_resize_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M76.24,-229C84.39,-229 93.13,-229 101.62,-229"/>
-<polygon fill="#000000" stroke="#000000" points="101.8,-232.5 111.8,-229 101.8,-225.5 101.8,-232.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M76.24,-290C84.39,-290 93.13,-290 101.62,-290"/>
+<polygon fill="#000000" stroke="#000000" points="101.8,-293.5 111.8,-290 101.8,-286.5 101.8,-293.5"/>
+</g>
+<!-- interface~util_resize_pl -->
+<g id="interface~~util_resize~2~~CalledByGraph_node11" class="node">
+<title>interface~util_resize_pl</title>
+<g id="a_interface~~util_resize~2~~CalledByGraph_node11"><a xlink:href=".././interface/util_resize_pl.html" xlink:title="util_resize_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="75.5,-241 0.5,-241 0.5,-217 75.5,-217 75.5,-241"/>
+<text text-anchor="middle" x="38" y="-226.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~util_resize_pl&#45;&gt;proc~util_resize_pl -->
+<g id="interface~~util_resize~2~~CalledByGraph_edge9" class="edge">
+<title>interface~util_resize_pl&#45;&gt;proc~util_resize_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M75.63,-229C84.07,-229 93.17,-229 101.99,-229"/>
+<polygon fill="#000000" stroke="#000000" points="102.16,-232.5 112.16,-229 102.16,-225.5 102.16,-232.5"/>
+</g>
+<!-- interface~util_resize_body&#45;&gt;proc~util_resize_body -->
+<g id="interface~~util_resize~2~~CalledByGraph_edge11" class="edge">
+<title>interface~util_resize_body&#45;&gt;proc~util_resize_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.11,-260C331.02,-260 350.52,-260 368.27,-260"/>
+<polygon fill="#000000" stroke="#000000" points="368.49,-263.5 378.49,-260 368.49,-256.5 368.49,-263.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/interface/util_set_beg_end_pl.html b/docs/interface/util_set_beg_end_pl.html
index b4ab5cc52..626cce722 100644
--- a/docs/interface/util_set_beg_end_pl.html
+++ b/docs/interface/util_set_beg_end_pl.html
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~179"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~176"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_set_ir3h.html b/docs/interface/util_set_ir3h.html
index 9005aa925..3f1e00391 100644
--- a/docs/interface/util_set_ir3h.html
+++ b/docs/interface/util_set_ir3h.html
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~180"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~177"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_set_msys.html b/docs/interface/util_set_msys.html
index 6cc277dfb..16fb310f1 100644
--- a/docs/interface/util_set_msys.html
+++ b/docs/interface/util_set_msys.html
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~181"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~178"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_set_mu_pl.html b/docs/interface/util_set_mu_pl.html
index faff66ad7..2014b5de3 100644
--- a/docs/interface/util_set_mu_pl.html
+++ b/docs/interface/util_set_mu_pl.html
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~182"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~179"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_set_mu_tp.html b/docs/interface/util_set_mu_tp.html
index fb4bc1603..6066b8104 100644
--- a/docs/interface/util_set_mu_tp.html
+++ b/docs/interface/util_set_mu_tp.html
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~183"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~180"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_set_rhill.html b/docs/interface/util_set_rhill.html
index 6c80dbfef..83a64277c 100644
--- a/docs/interface/util_set_rhill.html
+++ b/docs/interface/util_set_rhill.html
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~184"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~181"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_set_rhill_approximate.html b/docs/interface/util_set_rhill_approximate.html
index 76b2631de..fd12fcbb0 100644
--- a/docs/interface/util_set_rhill_approximate.html
+++ b/docs/interface/util_set_rhill_approximate.html
@@ -346,7 +346,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~185"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~182"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_sort.html b/docs/interface/util_sort.html
index 1b606eac5..b17f19164 100644
--- a/docs/interface/util_sort.html
+++ b/docs/interface/util_sort.html
@@ -235,76 +235,46 @@ <h3 class="panel-title">Called by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: interface~~util_sort~~CalledByGraph Pages: 1 -->
-<svg id="interfaceutil_sortCalledByGraph" width="558pt" height="32pt"
- viewBox="0.00 0.00 558.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="interfaceutil_sortCalledByGraph" width="350pt" height="32pt"
+ viewBox="0.00 0.00 350.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="interface~~util_sort~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>interface~~util_sort~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 554,-28 554,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 346,-28 346,4 -4,4"/>
 <!-- interface~util_sort -->
 <g id="interface~~util_sort~~CalledByGraph_node1" class="node">
 <title>interface~util_sort</title>
-<polygon fill="none" stroke="black" points="550,-24 496,-24 496,0 550,0 550,-24"/>
-<text text-anchor="middle" x="523" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_sort</text>
+<polygon fill="none" stroke="black" points="342,-24 288,-24 288,0 342,0 342,-24"/>
+<text text-anchor="middle" x="315" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_sort</text>
 </g>
-<!-- proc~util_valid -->
+<!-- proc~util_valid_id_system -->
 <g id="interface~~util_sort~~CalledByGraph_node2" class="node">
-<title>proc~util_valid</title>
-<g id="a_interface~~util_sort~~CalledByGraph_node2"><a xlink:href=".././proc/util_valid.html" xlink:title="util_valid">
-<polygon fill="#d9534f" stroke="#d9534f" points="460,-24 406,-24 406,0 460,0 460,-24"/>
-<text text-anchor="middle" x="433" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid</text>
+<title>proc~util_valid_id_system</title>
+<g id="a_interface~~util_sort~~CalledByGraph_node2"><a xlink:href=".././proc/util_valid_id_system.html" xlink:title="util_valid_id_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="252,-24 144,-24 144,0 252,0 252,-24"/>
+<text text-anchor="middle" x="198" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid_id_system</text>
 </a>
 </g>
 </g>
-<!-- proc~util_valid&#45;&gt;interface~util_sort -->
+<!-- proc~util_valid_id_system&#45;&gt;interface~util_sort -->
 <g id="interface~~util_sort~~CalledByGraph_edge1" class="edge">
-<title>proc~util_valid&#45;&gt;interface~util_sort</title>
-<path fill="none" stroke="#000000" d="M460.4,-12C468.39,-12 477.31,-12 485.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="485.92,-15.5 495.92,-12 485.92,-8.5 485.92,-15.5"/>
+<title>proc~util_valid_id_system&#45;&gt;interface~util_sort</title>
+<path fill="none" stroke="#000000" d="M252.12,-12C260.72,-12 269.44,-12 277.52,-12"/>
+<polygon fill="#000000" stroke="#000000" points="277.71,-15.5 287.71,-12 277.71,-8.5 277.71,-15.5"/>
 </g>
-<!-- interface~util_valid -->
+<!-- interface~util_valid_id_system -->
 <g id="interface~~util_sort~~CalledByGraph_node3" class="node">
-<title>interface~util_valid</title>
-<g id="a_interface~~util_sort~~CalledByGraph_node3"><a xlink:href=".././interface/util_valid.html" xlink:title="util_valid">
-<polygon fill="#a7506f" stroke="#a7506f" points="370,-24 316,-24 316,0 370,0 370,-24"/>
-<text text-anchor="middle" x="343" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid</text>
+<title>interface~util_valid_id_system</title>
+<g id="a_interface~~util_sort~~CalledByGraph_node3"><a xlink:href=".././interface/util_valid_id_system.html" xlink:title="util_valid_id_system">
+<polygon fill="#a7506f" stroke="#a7506f" 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" fill="white">util_valid_id_system</text>
 </a>
 </g>
 </g>
-<!-- interface~util_valid&#45;&gt;proc~util_valid -->
+<!-- interface~util_valid_id_system&#45;&gt;proc~util_valid_id_system -->
 <g id="interface~~util_sort~~CalledByGraph_edge2" class="edge">
-<title>interface~util_valid&#45;&gt;proc~util_valid</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.4,-12C378.39,-12 387.31,-12 395.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="395.92,-15.5 405.92,-12 395.92,-8.5 395.92,-15.5"/>
-</g>
-<!-- proc~setup_initialize_system -->
-<g id="interface~~util_sort~~CalledByGraph_node4" class="node">
-<title>proc~setup_initialize_system</title>
-<g id="a_interface~~util_sort~~CalledByGraph_node4"><a xlink:href=".././proc/setup_initialize_system.html" xlink:title="setup_initialize_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="280,-24 158,-24 158,0 280,0 280,-24"/>
-<text text-anchor="middle" x="219" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
-</a>
-</g>
-</g>
-<!-- proc~setup_initialize_system&#45;&gt;interface~util_valid -->
-<g id="interface~~util_sort~~CalledByGraph_edge3" class="edge">
-<title>proc~setup_initialize_system&#45;&gt;interface~util_valid</title>
-<path fill="none" stroke="#000000" d="M280.29,-12C288.97,-12 297.67,-12 305.69,-12"/>
-<polygon fill="#000000" stroke="#000000" points="305.77,-15.5 315.77,-12 305.77,-8.5 305.77,-15.5"/>
-</g>
-<!-- interface~setup_initialize_system -->
-<g id="interface~~util_sort~~CalledByGraph_node5" class="node">
-<title>interface~setup_initialize_system</title>
-<g id="a_interface~~util_sort~~CalledByGraph_node5"><a xlink:href=".././interface/setup_initialize_system.html" xlink:title="setup_initialize_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="122,-24 0,-24 0,0 122,0 122,-24"/>
-<text text-anchor="middle" x="61" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
-</a>
-</g>
-</g>
-<!-- interface~setup_initialize_system&#45;&gt;proc~setup_initialize_system -->
-<g id="interface~~util_sort~~CalledByGraph_edge4" class="edge">
-<title>interface~setup_initialize_system&#45;&gt;proc~setup_initialize_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.31,-12C130.6,-12 139.17,-12 147.63,-12"/>
-<polygon fill="#000000" stroke="#000000" points="147.85,-15.5 157.85,-12 147.85,-8.5 147.85,-15.5"/>
+<title>interface~util_valid_id_system&#45;&gt;proc~util_valid_id_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M108.28,-12C116.56,-12 125.18,-12 133.66,-12"/>
+<polygon fill="#000000" stroke="#000000" points="133.89,-15.5 143.89,-12 133.89,-8.5 133.89,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/interface/util_sort_body.html b/docs/interface/util_sort_body.html
index ff51c1d87..82338b6ee 100644
--- a/docs/interface/util_sort_body.html
+++ b/docs/interface/util_sort_body.html
@@ -333,65 +333,65 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="none" stroke="black" points="281,-45 202,-45 202,-21 281,-21 281,-45"/>
 <text text-anchor="middle" x="241.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_sort_body</text>
 </g>
-<!-- proc~util_sort_tp -->
+<!-- proc~util_sort_pl -->
 <g id="interface~~util_sort_body~~CalledByGraph_node2" class="node">
-<title>proc~util_sort_tp</title>
-<g id="a_interface~~util_sort_body~~CalledByGraph_node2"><a xlink:href=".././proc/util_sort_tp.html" xlink:title="util_sort_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="166,-66 101,-66 101,-42 166,-42 166,-66"/>
-<text text-anchor="middle" x="133.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_tp</text>
+<title>proc~util_sort_pl</title>
+<g id="a_interface~~util_sort_body~~CalledByGraph_node2"><a xlink:href=".././proc/util_sort_pl.html" xlink:title="util_sort_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="165.5,-66 101.5,-66 101.5,-42 165.5,-42 165.5,-66"/>
+<text text-anchor="middle" x="133.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_sort_tp&#45;&gt;interface~util_sort_body -->
+<!-- proc~util_sort_pl&#45;&gt;interface~util_sort_body -->
 <g id="interface~~util_sort_body~~CalledByGraph_edge1" class="edge">
-<title>proc~util_sort_tp&#45;&gt;interface~util_sort_body</title>
-<path fill="none" stroke="#000000" d="M166.02,-47.76C174.18,-46.14 183.15,-44.36 191.96,-42.62"/>
-<polygon fill="#000000" stroke="#000000" points="192.66,-46.05 201.79,-40.67 191.3,-39.18 192.66,-46.05"/>
+<title>proc~util_sort_pl&#45;&gt;interface~util_sort_body</title>
+<path fill="none" stroke="#000000" d="M165.73,-47.81C173.98,-46.18 183.09,-44.37 192.02,-42.6"/>
+<polygon fill="#000000" stroke="#000000" points="192.85,-46.01 201.98,-40.63 191.49,-39.14 192.85,-46.01"/>
 </g>
-<!-- proc~util_sort_pl -->
+<!-- proc~util_sort_tp -->
 <g id="interface~~util_sort_body~~CalledByGraph_node3" class="node">
-<title>proc~util_sort_pl</title>
-<g id="a_interface~~util_sort_body~~CalledByGraph_node3"><a xlink:href=".././proc/util_sort_pl.html" xlink:title="util_sort_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="165.5,-24 101.5,-24 101.5,0 165.5,0 165.5,-24"/>
-<text text-anchor="middle" x="133.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_pl</text>
+<title>proc~util_sort_tp</title>
+<g id="a_interface~~util_sort_body~~CalledByGraph_node3"><a xlink:href=".././proc/util_sort_tp.html" xlink:title="util_sort_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="166,-24 101,-24 101,0 166,0 166,-24"/>
+<text text-anchor="middle" x="133.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~util_sort_pl&#45;&gt;interface~util_sort_body -->
+<!-- proc~util_sort_tp&#45;&gt;interface~util_sort_body -->
 <g id="interface~~util_sort_body~~CalledByGraph_edge2" class="edge">
-<title>proc~util_sort_pl&#45;&gt;interface~util_sort_body</title>
-<path fill="none" stroke="#000000" d="M165.73,-18.19C173.98,-19.82 183.09,-21.63 192.02,-23.4"/>
-<polygon fill="#000000" stroke="#000000" points="191.49,-26.86 201.98,-25.37 192.85,-19.99 191.49,-26.86"/>
+<title>proc~util_sort_tp&#45;&gt;interface~util_sort_body</title>
+<path fill="none" stroke="#000000" d="M166.02,-18.24C174.18,-19.86 183.15,-21.64 191.96,-23.38"/>
+<polygon fill="#000000" stroke="#000000" points="191.3,-26.82 201.79,-25.33 192.66,-19.95 191.3,-26.82"/>
 </g>
 <!-- interface~util_sort_pl -->
 <g id="interface~~util_sort_body~~CalledByGraph_node4" class="node">
 <title>interface~util_sort_pl</title>
 <g id="a_interface~~util_sort_body~~CalledByGraph_node4"><a xlink:href=".././interface/util_sort_pl.html" xlink:title="util_sort_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="64.5,-24 0.5,-24 0.5,0 64.5,0 64.5,-24"/>
-<text text-anchor="middle" x="32.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_pl</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="64.5,-66 0.5,-66 0.5,-42 64.5,-42 64.5,-66"/>
+<text text-anchor="middle" x="32.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~util_sort_pl&#45;&gt;proc~util_sort_pl -->
-<g id="interface~~util_sort_body~~CalledByGraph_edge4" class="edge">
+<g id="interface~~util_sort_body~~CalledByGraph_edge3" class="edge">
 <title>interface~util_sort_pl&#45;&gt;proc~util_sort_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M64.55,-12C72.95,-12 82.17,-12 91.04,-12"/>
-<polygon fill="#000000" stroke="#000000" points="91.22,-15.5 101.22,-12 91.22,-8.5 91.22,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M64.55,-54C72.95,-54 82.17,-54 91.04,-54"/>
+<polygon fill="#000000" stroke="#000000" points="91.22,-57.5 101.22,-54 91.22,-50.5 91.22,-57.5"/>
 </g>
 <!-- interface~util_sort_tp -->
 <g id="interface~~util_sort_body~~CalledByGraph_node5" class="node">
 <title>interface~util_sort_tp</title>
 <g id="a_interface~~util_sort_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_sort_tp.html" xlink:title="util_sort_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="65,-66 0,-66 0,-42 65,-42 65,-66"/>
-<text text-anchor="middle" x="32.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_tp</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="65,-24 0,-24 0,0 65,0 65,-24"/>
+<text text-anchor="middle" x="32.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~util_sort_tp&#45;&gt;proc~util_sort_tp -->
-<g id="interface~~util_sort_body~~CalledByGraph_edge3" class="edge">
+<g id="interface~~util_sort_body~~CalledByGraph_edge4" class="edge">
 <title>interface~util_sort_tp&#45;&gt;proc~util_sort_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M65.1,-54C73.22,-54 82.09,-54 90.65,-54"/>
-<polygon fill="#000000" stroke="#000000" points="90.86,-57.5 100.86,-54 90.86,-50.5 90.86,-57.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M65.1,-12C73.22,-12 82.09,-12 90.65,-12"/>
+<polygon fill="#000000" stroke="#000000" points="90.86,-15.5 100.86,-12 90.86,-8.5 90.86,-15.5"/>
 </g>
 </g>
 </svg>
@@ -492,7 +492,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~189"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~186"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_sort_pl.html b/docs/interface/util_sort_pl.html
index e2e913a49..8735802d6 100644
--- a/docs/interface/util_sort_pl.html
+++ b/docs/interface/util_sort_pl.html
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~190"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~187"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_sort_rearrange_body.html b/docs/interface/util_sort_rearrange_body.html
index 2e37b442b..cb9414e83 100644
--- a/docs/interface/util_sort_rearrange_body.html
+++ b/docs/interface/util_sort_rearrange_body.html
@@ -363,25 +363,10 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" d="M272.03,-19.64C280.42,-20.75 289.15,-21.89 297.82,-23.04"/>
 <polygon fill="#000000" stroke="#000000" points="297.58,-26.53 307.95,-24.37 298.49,-19.59 297.58,-26.53"/>
 </g>
-<!-- interface~util_sort_rearrange_pl -->
-<g id="interface~~util_sort_rearrange_body~~CalledByGraph_node4" class="node">
-<title>interface~util_sort_rearrange_pl</title>
-<g id="a_interface~~util_sort_rearrange_body~~CalledByGraph_node4"><a xlink:href=".././interface/util_sort_rearrange_pl.html" xlink:title="util_sort_rearrange_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="118,-24 0,-24 0,0 118,0 118,-24"/>
-<text text-anchor="middle" x="59" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
-</a>
-</g>
-</g>
-<!-- interface~util_sort_rearrange_pl&#45;&gt;proc~util_sort_rearrange_pl -->
-<g id="interface~~util_sort_rearrange_body~~CalledByGraph_edge4" class="edge">
-<title>interface~util_sort_rearrange_pl&#45;&gt;proc~util_sort_rearrange_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M118.33,-12C126.61,-12 135.17,-12 143.62,-12"/>
-<polygon fill="#000000" stroke="#000000" points="143.82,-15.5 153.82,-12 143.82,-8.5 143.82,-15.5"/>
-</g>
 <!-- interface~util_sort_rearrange_tp -->
-<g id="interface~~util_sort_rearrange_body~~CalledByGraph_node5" class="node">
+<g id="interface~~util_sort_rearrange_body~~CalledByGraph_node4" class="node">
 <title>interface~util_sort_rearrange_tp</title>
-<g id="a_interface~~util_sort_rearrange_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_sort_rearrange_tp.html" xlink:title="util_sort_rearrange_tp">
+<g id="a_interface~~util_sort_rearrange_body~~CalledByGraph_node4"><a xlink:href=".././interface/util_sort_rearrange_tp.html" xlink:title="util_sort_rearrange_tp">
 <polygon fill="#a7506f" stroke="#a7506f" points="118,-66 0,-66 0,-42 118,-42 118,-66"/>
 <text text-anchor="middle" x="59" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_tp</text>
 </a>
@@ -393,6 +378,21 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M118.33,-54C126.61,-54 135.17,-54 143.62,-54"/>
 <polygon fill="#000000" stroke="#000000" points="143.82,-57.5 153.82,-54 143.82,-50.5 143.82,-57.5"/>
 </g>
+<!-- interface~util_sort_rearrange_pl -->
+<g id="interface~~util_sort_rearrange_body~~CalledByGraph_node5" class="node">
+<title>interface~util_sort_rearrange_pl</title>
+<g id="a_interface~~util_sort_rearrange_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_sort_rearrange_pl.html" xlink:title="util_sort_rearrange_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="118,-24 0,-24 0,0 118,0 118,-24"/>
+<text text-anchor="middle" x="59" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~util_sort_rearrange_pl&#45;&gt;proc~util_sort_rearrange_pl -->
+<g id="interface~~util_sort_rearrange_body~~CalledByGraph_edge4" class="edge">
+<title>interface~util_sort_rearrange_pl&#45;&gt;proc~util_sort_rearrange_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M118.33,-12C126.61,-12 135.17,-12 143.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="143.82,-15.5 153.82,-12 143.82,-8.5 143.82,-15.5"/>
+</g>
 </g>
 </svg>
 </div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
@@ -492,7 +492,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~186"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~183"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_sort_rearrange_pl.html b/docs/interface/util_sort_rearrange_pl.html
index 57b8a729b..8b5c51ab8 100644
--- a/docs/interface/util_sort_rearrange_pl.html
+++ b/docs/interface/util_sort_rearrange_pl.html
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~187"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~184"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_sort_rearrange_tp.html b/docs/interface/util_sort_rearrange_tp.html
index 2d9427068..b5204386f 100644
--- a/docs/interface/util_sort_rearrange_tp.html
+++ b/docs/interface/util_sort_rearrange_tp.html
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~188"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~185"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_sort_tp.html b/docs/interface/util_sort_tp.html
index 8af54206e..eb3c5f115 100644
--- a/docs/interface/util_sort_tp.html
+++ b/docs/interface/util_sort_tp.html
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~191"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~188"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_spill.html b/docs/interface/util_spill.html
index deea255a4..92f3173ce 100644
--- a/docs/interface/util_spill.html
+++ b/docs/interface/util_spill.html
@@ -283,25 +283,10 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" d="M265.32,-24.07C274.06,-26.99 283.37,-30.1 292,-33 300.44,-35.84 309.52,-38.9 318.06,-41.79"/>
 <polygon fill="#000000" stroke="#000000" points="317.17,-45.19 327.76,-45.08 319.42,-38.56 317.17,-45.19"/>
 </g>
-<!-- interface~symba_util_spill_tp -->
-<g id="interface~~util_spill~~CalledByGraph_node5" class="node">
-<title>interface~symba_util_spill_tp</title>
-<g id="a_interface~~util_spill~~CalledByGraph_node5"><a xlink:href=".././interface/symba_util_spill_tp.html" xlink:title="symba_util_spill_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="115.5,-66 12.5,-66 12.5,-42 115.5,-42 115.5,-66"/>
-<text text-anchor="middle" x="64" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_tp</text>
-</a>
-</g>
-</g>
-<!-- interface~symba_util_spill_tp&#45;&gt;proc~symba_util_spill_tp -->
-<g id="interface~~util_spill~~CalledByGraph_edge5" class="edge">
-<title>interface~symba_util_spill_tp&#45;&gt;proc~symba_util_spill_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M115.81,-54C131.8,-54 149.61,-54 166.21,-54"/>
-<polygon fill="#000000" stroke="#000000" points="166.37,-57.5 176.37,-54 166.37,-50.5 166.37,-57.5"/>
-</g>
 <!-- interface~symba_util_spill_pltpenc -->
-<g id="interface~~util_spill~~CalledByGraph_node6" class="node">
+<g id="interface~~util_spill~~CalledByGraph_node5" class="node">
 <title>interface~symba_util_spill_pltpenc</title>
-<g id="a_interface~~util_spill~~CalledByGraph_node6"><a xlink:href=".././interface/symba_util_spill_pltpenc.html" xlink:title="symba_util_spill_pltpenc">
+<g id="a_interface~~util_spill~~CalledByGraph_node5"><a xlink:href=".././interface/symba_util_spill_pltpenc.html" xlink:title="symba_util_spill_pltpenc">
 <polygon fill="#a7506f" stroke="#a7506f" points="128,-24 0,-24 0,0 128,0 128,-24"/>
 <text text-anchor="middle" x="64" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_pltpenc</text>
 </a>
@@ -313,6 +298,21 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M128.1,-12C136.43,-12 145.04,-12 153.53,-12"/>
 <polygon fill="#000000" stroke="#000000" points="153.81,-15.5 163.81,-12 153.81,-8.5 153.81,-15.5"/>
 </g>
+<!-- interface~symba_util_spill_tp -->
+<g id="interface~~util_spill~~CalledByGraph_node6" class="node">
+<title>interface~symba_util_spill_tp</title>
+<g id="a_interface~~util_spill~~CalledByGraph_node6"><a xlink:href=".././interface/symba_util_spill_tp.html" xlink:title="symba_util_spill_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="115.5,-66 12.5,-66 12.5,-42 115.5,-42 115.5,-66"/>
+<text text-anchor="middle" x="64" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_util_spill_tp&#45;&gt;proc~symba_util_spill_tp -->
+<g id="interface~~util_spill~~CalledByGraph_edge5" class="edge">
+<title>interface~symba_util_spill_tp&#45;&gt;proc~symba_util_spill_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M115.81,-54C131.8,-54 149.61,-54 166.21,-54"/>
+<polygon fill="#000000" stroke="#000000" points="166.37,-57.5 176.37,-54 166.37,-50.5 166.37,-57.5"/>
+</g>
 <!-- interface~symba_util_spill_pl -->
 <g id="interface~~util_spill~~CalledByGraph_node7" class="node">
 <title>interface~symba_util_spill_pl</title>
diff --git a/docs/interface/util_spill_body.html b/docs/interface/util_spill_body.html
index e476909d5..315787f4c 100644
--- a/docs/interface/util_spill_body.html
+++ b/docs/interface/util_spill_body.html
@@ -348,65 +348,65 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="none" stroke="black" points="281,-45 202,-45 202,-21 281,-21 281,-45"/>
 <text text-anchor="middle" x="241.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_spill_body</text>
 </g>
-<!-- proc~util_spill_tp -->
+<!-- proc~util_spill_pl -->
 <g id="interface~~util_spill_body~~CalledByGraph_node2" class="node">
-<title>proc~util_spill_tp</title>
-<g id="a_interface~~util_spill_body~~CalledByGraph_node2"><a xlink:href=".././proc/util_spill_tp.html" xlink:title="util_spill_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="166,-66 101,-66 101,-42 166,-42 166,-66"/>
-<text text-anchor="middle" x="133.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
+<title>proc~util_spill_pl</title>
+<g id="a_interface~~util_spill_body~~CalledByGraph_node2"><a xlink:href=".././proc/util_spill_pl.html" xlink:title="util_spill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="165.5,-66 101.5,-66 101.5,-42 165.5,-42 165.5,-66"/>
+<text text-anchor="middle" x="133.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_tp&#45;&gt;interface~util_spill_body -->
+<!-- proc~util_spill_pl&#45;&gt;interface~util_spill_body -->
 <g id="interface~~util_spill_body~~CalledByGraph_edge1" class="edge">
-<title>proc~util_spill_tp&#45;&gt;interface~util_spill_body</title>
-<path fill="none" stroke="#000000" d="M166.02,-47.76C174.18,-46.14 183.15,-44.36 191.96,-42.62"/>
-<polygon fill="#000000" stroke="#000000" points="192.66,-46.05 201.79,-40.67 191.3,-39.18 192.66,-46.05"/>
+<title>proc~util_spill_pl&#45;&gt;interface~util_spill_body</title>
+<path fill="none" stroke="#000000" d="M165.73,-47.81C173.98,-46.18 183.09,-44.37 192.02,-42.6"/>
+<polygon fill="#000000" stroke="#000000" points="192.85,-46.01 201.98,-40.63 191.49,-39.14 192.85,-46.01"/>
 </g>
-<!-- proc~util_spill_pl -->
+<!-- proc~util_spill_tp -->
 <g id="interface~~util_spill_body~~CalledByGraph_node3" class="node">
-<title>proc~util_spill_pl</title>
-<g id="a_interface~~util_spill_body~~CalledByGraph_node3"><a xlink:href=".././proc/util_spill_pl.html" xlink:title="util_spill_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="165.5,-24 101.5,-24 101.5,0 165.5,0 165.5,-24"/>
-<text text-anchor="middle" x="133.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
+<title>proc~util_spill_tp</title>
+<g id="a_interface~~util_spill_body~~CalledByGraph_node3"><a xlink:href=".././proc/util_spill_tp.html" xlink:title="util_spill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="166,-24 101,-24 101,0 166,0 166,-24"/>
+<text text-anchor="middle" x="133.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_pl&#45;&gt;interface~util_spill_body -->
+<!-- proc~util_spill_tp&#45;&gt;interface~util_spill_body -->
 <g id="interface~~util_spill_body~~CalledByGraph_edge2" class="edge">
-<title>proc~util_spill_pl&#45;&gt;interface~util_spill_body</title>
-<path fill="none" stroke="#000000" d="M165.73,-18.19C173.98,-19.82 183.09,-21.63 192.02,-23.4"/>
-<polygon fill="#000000" stroke="#000000" points="191.49,-26.86 201.98,-25.37 192.85,-19.99 191.49,-26.86"/>
+<title>proc~util_spill_tp&#45;&gt;interface~util_spill_body</title>
+<path fill="none" stroke="#000000" d="M166.02,-18.24C174.18,-19.86 183.15,-21.64 191.96,-23.38"/>
+<polygon fill="#000000" stroke="#000000" points="191.3,-26.82 201.79,-25.33 192.66,-19.95 191.3,-26.82"/>
 </g>
 <!-- interface~util_spill_pl -->
 <g id="interface~~util_spill_body~~CalledByGraph_node4" class="node">
 <title>interface~util_spill_pl</title>
 <g id="a_interface~~util_spill_body~~CalledByGraph_node4"><a xlink:href=".././interface/util_spill_pl.html" xlink:title="util_spill_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="64.5,-24 0.5,-24 0.5,0 64.5,0 64.5,-24"/>
-<text text-anchor="middle" x="32.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="64.5,-66 0.5,-66 0.5,-42 64.5,-42 64.5,-66"/>
+<text text-anchor="middle" x="32.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~util_spill_pl&#45;&gt;proc~util_spill_pl -->
-<g id="interface~~util_spill_body~~CalledByGraph_edge4" class="edge">
+<g id="interface~~util_spill_body~~CalledByGraph_edge3" class="edge">
 <title>interface~util_spill_pl&#45;&gt;proc~util_spill_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M64.55,-12C72.95,-12 82.17,-12 91.04,-12"/>
-<polygon fill="#000000" stroke="#000000" points="91.22,-15.5 101.22,-12 91.22,-8.5 91.22,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M64.55,-54C72.95,-54 82.17,-54 91.04,-54"/>
+<polygon fill="#000000" stroke="#000000" points="91.22,-57.5 101.22,-54 91.22,-50.5 91.22,-57.5"/>
 </g>
 <!-- interface~util_spill_tp -->
 <g id="interface~~util_spill_body~~CalledByGraph_node5" class="node">
 <title>interface~util_spill_tp</title>
 <g id="a_interface~~util_spill_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_spill_tp.html" xlink:title="util_spill_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="65,-66 0,-66 0,-42 65,-42 65,-66"/>
-<text text-anchor="middle" x="32.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="65,-24 0,-24 0,0 65,0 65,-24"/>
+<text text-anchor="middle" x="32.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~util_spill_tp&#45;&gt;proc~util_spill_tp -->
-<g id="interface~~util_spill_body~~CalledByGraph_edge3" class="edge">
+<g id="interface~~util_spill_body~~CalledByGraph_edge4" class="edge">
 <title>interface~util_spill_tp&#45;&gt;proc~util_spill_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M65.1,-54C73.22,-54 82.09,-54 90.65,-54"/>
-<polygon fill="#000000" stroke="#000000" points="90.86,-57.5 100.86,-54 90.86,-50.5 90.86,-57.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M65.1,-12C73.22,-12 82.09,-12 90.65,-12"/>
+<polygon fill="#000000" stroke="#000000" points="90.86,-15.5 100.86,-12 90.86,-8.5 90.86,-15.5"/>
 </g>
 </g>
 </svg>
@@ -507,7 +507,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~192"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~189"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_spill_encounter.html b/docs/interface/util_spill_encounter.html
index b3c1c29f4..f1820deb8 100644
--- a/docs/interface/util_spill_encounter.html
+++ b/docs/interface/util_spill_encounter.html
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~193"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" id="variable-self~190"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_spill_pl.html b/docs/interface/util_spill_pl.html
index eba0d34b7..406b283d7 100644
--- a/docs/interface/util_spill_pl.html
+++ b/docs/interface/util_spill_pl.html
@@ -228,74 +228,74 @@ <h3 class="panel-title">Calls</h3>
 <!-- interface~util_spill_pl -->
 <g id="interface~~util_spill_pl~~CallsGraph_node1" class="node">
 <title>interface~util_spill_pl</title>
-<polygon fill="none" stroke="black" points="64,-24 0,-24 0,0 64,0 64,-24"/>
-<text text-anchor="middle" x="32" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_spill_pl</text>
+<polygon fill="none" stroke="black" points="64,-44 0,-44 0,-20 64,-20 64,-44"/>
+<text text-anchor="middle" x="32" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_spill_pl</text>
 </g>
 <!-- proc~util_spill_pl -->
 <g id="interface~~util_spill_pl~~CallsGraph_node2" class="node">
 <title>proc~util_spill_pl</title>
 <g id="a_interface~~util_spill_pl~~CallsGraph_node2"><a xlink:href=".././proc/util_spill_pl.html" xlink:title="util_spill_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="164,-24 100,-24 100,0 164,0 164,-24"/>
-<text text-anchor="middle" x="132" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="164,-44 100,-44 100,-20 164,-20 164,-44"/>
+<text text-anchor="middle" x="132" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~util_spill_pl&#45;&gt;proc~util_spill_pl -->
 <g id="interface~~util_spill_pl~~CallsGraph_edge1" class="edge">
 <title>interface~util_spill_pl&#45;&gt;proc~util_spill_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M64.01,-12C72.14,-12 81.04,-12 89.62,-12"/>
-<polygon fill="#000000" stroke="#000000" points="89.86,-15.5 99.86,-12 89.86,-8.5 89.86,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M64.01,-32C72.14,-32 81.04,-32 89.62,-32"/>
+<polygon fill="#000000" stroke="#000000" points="89.86,-35.5 99.86,-32 89.86,-28.5 89.86,-35.5"/>
 </g>
-<!-- interface~util_spill_body -->
+<!-- interface~util_spill~2 -->
 <g id="interface~~util_spill_pl~~CallsGraph_node3" class="node">
-<title>interface~util_spill_body</title>
-<g id="a_interface~~util_spill_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_spill_body.html" xlink:title="util_spill_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="279,-44 200,-44 200,-20 279,-20 279,-44"/>
-<text text-anchor="middle" x="239.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
+<title>interface~util_spill~2</title>
+<g id="a_interface~~util_spill_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_spill~2.html" xlink:title="util_spill">
+<polygon fill="#a7506f" stroke="#a7506f" points="484,-44 430,-44 430,-20 484,-20 484,-44"/>
+<text text-anchor="middle" x="457" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_pl&#45;&gt;interface~util_spill_body -->
+<!-- proc~util_spill_pl&#45;&gt;interface~util_spill~2 -->
 <g id="interface~~util_spill_pl~~CallsGraph_edge2" class="edge">
-<title>proc~util_spill_pl&#45;&gt;interface~util_spill_body</title>
-<path fill="none" stroke="#000000" d="M164.08,-17.89C172.12,-19.42 180.97,-21.09 189.68,-22.74"/>
-<polygon fill="#000000" stroke="#000000" points="189.3,-26.24 199.78,-24.66 190.6,-19.36 189.3,-26.24"/>
+<title>proc~util_spill_pl&#45;&gt;interface~util_spill~2</title>
+<path fill="none" stroke="#000000" d="M164.02,-32.56C175.34,-32.74 188.25,-32.91 200,-33 286.22,-33.64 307.78,-33.7 394,-33 402.25,-32.93 411.12,-32.82 419.49,-32.69"/>
+<polygon fill="#000000" stroke="#000000" points="419.81,-36.18 429.76,-32.52 419.7,-29.18 419.81,-36.18"/>
 </g>
-<!-- interface~util_spill~2 -->
+<!-- interface~util_spill_body -->
 <g id="interface~~util_spill_pl~~CallsGraph_node4" class="node">
-<title>interface~util_spill~2</title>
-<g id="a_interface~~util_spill_pl~~CallsGraph_node4"><a xlink:href=".././interface/util_spill~2.html" xlink:title="util_spill">
-<polygon fill="#a7506f" stroke="#a7506f" points="484,-24 430,-24 430,0 484,0 484,-24"/>
-<text text-anchor="middle" x="457" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+<title>interface~util_spill_body</title>
+<g id="a_interface~~util_spill_pl~~CallsGraph_node4"><a xlink:href=".././interface/util_spill_body.html" xlink:title="util_spill_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="279,-24 200,-24 200,0 279,0 279,-24"/>
+<text text-anchor="middle" x="239.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_pl&#45;&gt;interface~util_spill~2 -->
+<!-- proc~util_spill_pl&#45;&gt;interface~util_spill_body -->
 <g id="interface~~util_spill_pl~~CallsGraph_edge3" class="edge">
-<title>proc~util_spill_pl&#45;&gt;interface~util_spill~2</title>
-<path fill="none" stroke="#000000" d="M164.02,-11.44C175.34,-11.26 188.25,-11.09 200,-11 286.22,-10.36 307.78,-10.3 394,-11 402.25,-11.07 411.12,-11.18 419.49,-11.31"/>
-<polygon fill="#000000" stroke="#000000" points="419.7,-14.82 429.76,-11.48 419.81,-7.82 419.7,-14.82"/>
+<title>proc~util_spill_pl&#45;&gt;interface~util_spill_body</title>
+<path fill="none" stroke="#000000" d="M164.08,-26.11C172.12,-24.58 180.97,-22.91 189.68,-21.26"/>
+<polygon fill="#000000" stroke="#000000" points="190.6,-24.64 199.78,-19.34 189.3,-17.76 190.6,-24.64"/>
 </g>
 <!-- proc~util_spill_body -->
 <g id="interface~~util_spill_pl~~CallsGraph_node5" class="node">
 <title>proc~util_spill_body</title>
 <g id="a_interface~~util_spill_pl~~CallsGraph_node5"><a xlink:href=".././proc/util_spill_body.html" xlink:title="util_spill_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="394,-44 315,-44 315,-20 394,-20 394,-44"/>
-<text text-anchor="middle" x="354.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="394,-24 315,-24 315,0 394,0 394,-24"/>
+<text text-anchor="middle" x="354.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
 </a>
 </g>
 </g>
 <!-- interface~util_spill_body&#45;&gt;proc~util_spill_body -->
 <g id="interface~~util_spill_pl~~CallsGraph_edge4" class="edge">
 <title>interface~util_spill_body&#45;&gt;proc~util_spill_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.07,-32C287.25,-32 296,-32 304.51,-32"/>
-<polygon fill="#000000" stroke="#000000" points="304.72,-35.5 314.72,-32 304.72,-28.5 304.72,-35.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.07,-12C287.25,-12 296,-12 304.51,-12"/>
+<polygon fill="#000000" stroke="#000000" points="304.72,-15.5 314.72,-12 304.72,-8.5 304.72,-15.5"/>
 </g>
 <!-- proc~util_spill_body&#45;&gt;interface~util_spill~2 -->
 <g id="interface~~util_spill_pl~~CallsGraph_edge5" class="edge">
 <title>proc~util_spill_body&#45;&gt;interface~util_spill~2</title>
-<path fill="none" stroke="#000000" d="M394.07,-24.32C402.57,-22.63 411.54,-20.85 419.94,-19.18"/>
-<polygon fill="#000000" stroke="#000000" points="420.7,-22.59 429.82,-17.21 419.33,-15.73 420.7,-22.59"/>
+<path fill="none" stroke="#000000" d="M394.07,-19.68C402.57,-21.37 411.54,-23.15 419.94,-24.82"/>
+<polygon fill="#000000" stroke="#000000" points="419.33,-28.27 429.82,-26.79 420.7,-21.41 419.33,-28.27"/>
 </g>
 </g>
 </svg>
@@ -397,7 +397,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~194"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~191"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_spill_tp.html b/docs/interface/util_spill_tp.html
index 0b096eac6..ce05af376 100644
--- a/docs/interface/util_spill_tp.html
+++ b/docs/interface/util_spill_tp.html
@@ -228,74 +228,74 @@ <h3 class="panel-title">Calls</h3>
 <!-- interface~util_spill_tp -->
 <g id="interface~~util_spill_tp~~CallsGraph_node1" class="node">
 <title>interface~util_spill_tp</title>
-<polygon fill="none" stroke="black" points="65,-24 0,-24 0,0 65,0 65,-24"/>
-<text text-anchor="middle" x="32.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_spill_tp</text>
+<polygon fill="none" stroke="black" points="65,-44 0,-44 0,-20 65,-20 65,-44"/>
+<text text-anchor="middle" x="32.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_spill_tp</text>
 </g>
 <!-- proc~util_spill_tp -->
 <g id="interface~~util_spill_tp~~CallsGraph_node2" class="node">
 <title>proc~util_spill_tp</title>
 <g id="a_interface~~util_spill_tp~~CallsGraph_node2"><a xlink:href=".././proc/util_spill_tp.html" xlink:title="util_spill_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="166,-24 101,-24 101,0 166,0 166,-24"/>
-<text text-anchor="middle" x="133.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="166,-44 101,-44 101,-20 166,-20 166,-44"/>
+<text text-anchor="middle" x="133.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~util_spill_tp&#45;&gt;proc~util_spill_tp -->
 <g id="interface~~util_spill_tp~~CallsGraph_edge1" class="edge">
 <title>interface~util_spill_tp&#45;&gt;proc~util_spill_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M65.1,-12C73.22,-12 82.09,-12 90.65,-12"/>
-<polygon fill="#000000" stroke="#000000" points="90.86,-15.5 100.86,-12 90.86,-8.5 90.86,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M65.1,-32C73.22,-32 82.09,-32 90.65,-32"/>
+<polygon fill="#000000" stroke="#000000" points="90.86,-35.5 100.86,-32 90.86,-28.5 90.86,-35.5"/>
 </g>
-<!-- interface~util_spill_body -->
+<!-- interface~util_spill~2 -->
 <g id="interface~~util_spill_tp~~CallsGraph_node3" class="node">
-<title>interface~util_spill_body</title>
-<g id="a_interface~~util_spill_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_spill_body.html" xlink:title="util_spill_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="281,-44 202,-44 202,-20 281,-20 281,-44"/>
-<text text-anchor="middle" x="241.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
+<title>interface~util_spill~2</title>
+<g id="a_interface~~util_spill_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_spill~2.html" xlink:title="util_spill">
+<polygon fill="#a7506f" stroke="#a7506f" points="486,-44 432,-44 432,-20 486,-20 486,-44"/>
+<text text-anchor="middle" x="459" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_tp&#45;&gt;interface~util_spill_body -->
+<!-- proc~util_spill_tp&#45;&gt;interface~util_spill~2 -->
 <g id="interface~~util_spill_tp~~CallsGraph_edge2" class="edge">
-<title>proc~util_spill_tp&#45;&gt;interface~util_spill_body</title>
-<path fill="none" stroke="#000000" d="M166.02,-17.95C174.09,-19.47 182.96,-21.14 191.68,-22.79"/>
-<polygon fill="#000000" stroke="#000000" points="191.31,-26.28 201.79,-24.7 192.61,-19.4 191.31,-26.28"/>
+<title>proc~util_spill_tp&#45;&gt;interface~util_spill~2</title>
+<path fill="none" stroke="#000000" d="M166.09,-32.56C177.42,-32.74 190.28,-32.91 202,-33 288.22,-33.64 309.78,-33.7 396,-33 404.25,-32.93 413.12,-32.82 421.49,-32.69"/>
+<polygon fill="#000000" stroke="#000000" points="421.81,-36.18 431.76,-32.52 421.7,-29.18 421.81,-36.18"/>
 </g>
-<!-- interface~util_spill~2 -->
+<!-- interface~util_spill_body -->
 <g id="interface~~util_spill_tp~~CallsGraph_node4" class="node">
-<title>interface~util_spill~2</title>
-<g id="a_interface~~util_spill_tp~~CallsGraph_node4"><a xlink:href=".././interface/util_spill~2.html" xlink:title="util_spill">
-<polygon fill="#a7506f" stroke="#a7506f" points="486,-24 432,-24 432,0 486,0 486,-24"/>
-<text text-anchor="middle" x="459" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+<title>interface~util_spill_body</title>
+<g id="a_interface~~util_spill_tp~~CallsGraph_node4"><a xlink:href=".././interface/util_spill_body.html" xlink:title="util_spill_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="281,-24 202,-24 202,0 281,0 281,-24"/>
+<text text-anchor="middle" x="241.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_tp&#45;&gt;interface~util_spill~2 -->
+<!-- proc~util_spill_tp&#45;&gt;interface~util_spill_body -->
 <g id="interface~~util_spill_tp~~CallsGraph_edge3" class="edge">
-<title>proc~util_spill_tp&#45;&gt;interface~util_spill~2</title>
-<path fill="none" stroke="#000000" d="M166.09,-11.44C177.42,-11.26 190.28,-11.09 202,-11 288.22,-10.36 309.78,-10.3 396,-11 404.25,-11.07 413.12,-11.18 421.49,-11.31"/>
-<polygon fill="#000000" stroke="#000000" points="421.7,-14.82 431.76,-11.48 421.81,-7.82 421.7,-14.82"/>
+<title>proc~util_spill_tp&#45;&gt;interface~util_spill_body</title>
+<path fill="none" stroke="#000000" d="M166.02,-26.05C174.09,-24.53 182.96,-22.86 191.68,-21.21"/>
+<polygon fill="#000000" stroke="#000000" points="192.61,-24.6 201.79,-19.3 191.31,-17.72 192.61,-24.6"/>
 </g>
 <!-- proc~util_spill_body -->
 <g id="interface~~util_spill_tp~~CallsGraph_node5" class="node">
 <title>proc~util_spill_body</title>
 <g id="a_interface~~util_spill_tp~~CallsGraph_node5"><a xlink:href=".././proc/util_spill_body.html" xlink:title="util_spill_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="396,-44 317,-44 317,-20 396,-20 396,-44"/>
-<text text-anchor="middle" x="356.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="396,-24 317,-24 317,0 396,0 396,-24"/>
+<text text-anchor="middle" x="356.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
 </a>
 </g>
 </g>
 <!-- interface~util_spill_body&#45;&gt;proc~util_spill_body -->
 <g id="interface~~util_spill_tp~~CallsGraph_edge4" class="edge">
 <title>interface~util_spill_body&#45;&gt;proc~util_spill_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.07,-32C289.25,-32 298,-32 306.51,-32"/>
-<polygon fill="#000000" stroke="#000000" points="306.72,-35.5 316.72,-32 306.72,-28.5 306.72,-35.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.07,-12C289.25,-12 298,-12 306.51,-12"/>
+<polygon fill="#000000" stroke="#000000" points="306.72,-15.5 316.72,-12 306.72,-8.5 306.72,-15.5"/>
 </g>
 <!-- proc~util_spill_body&#45;&gt;interface~util_spill~2 -->
 <g id="interface~~util_spill_tp~~CallsGraph_edge5" class="edge">
 <title>proc~util_spill_body&#45;&gt;interface~util_spill~2</title>
-<path fill="none" stroke="#000000" d="M396.07,-24.32C404.57,-22.63 413.54,-20.85 421.94,-19.18"/>
-<polygon fill="#000000" stroke="#000000" points="422.7,-22.59 431.82,-17.21 421.33,-15.73 422.7,-22.59"/>
+<path fill="none" stroke="#000000" d="M396.07,-19.68C404.57,-21.37 413.54,-23.15 421.94,-24.82"/>
+<polygon fill="#000000" stroke="#000000" points="421.33,-28.27 431.82,-26.79 422.7,-21.41 421.33,-28.27"/>
 </g>
 </g>
 </svg>
@@ -397,7 +397,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~195"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~192"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/util_spill~2.html b/docs/interface/util_spill~2.html
index d5c495408..4dbb599ca 100644
--- a/docs/interface/util_spill~2.html
+++ b/docs/interface/util_spill~2.html
@@ -254,15 +254,45 @@ <h3 class="panel-title">Called by</h3>
 </g>
 </g>
 <!-- proc~util_spill_encounter&#45;&gt;interface~util_spill~2 -->
-<g id="interface~~util_spill~2~~CalledByGraph_edge2" class="edge">
+<g id="interface~~util_spill~2~~CalledByGraph_edge1" class="edge">
 <title>proc~util_spill_encounter&#45;&gt;interface~util_spill~2</title>
 <path fill="none" stroke="#000000" d="M418.95,-110.98C427.51,-106.63 437.21,-101.65 446,-97 456.3,-91.55 467.49,-85.47 477.49,-79.97"/>
 <polygon fill="#000000" stroke="#000000" points="479.21,-83.01 486.28,-75.12 475.83,-76.89 479.21,-83.01"/>
 </g>
-<!-- proc~util_spill_body -->
+<!-- proc~util_spill_pl -->
 <g id="interface~~util_spill~2~~CalledByGraph_node3" class="node">
+<title>proc~util_spill_pl</title>
+<g id="a_interface~~util_spill~2~~CalledByGraph_node3"><a xlink:href=".././proc/util_spill_pl.html" xlink:title="util_spill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="165.5,-24 101.5,-24 101.5,0 165.5,0 165.5,-24"/>
+<text text-anchor="middle" x="133.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
+</a>
+</g>
+</g>
+<!-- proc~util_spill_pl&#45;&gt;interface~util_spill~2 -->
+<g id="interface~~util_spill~2~~CalledByGraph_edge2" class="edge">
+<title>proc~util_spill_pl&#45;&gt;interface~util_spill~2</title>
+<path fill="none" stroke="#000000" d="M165.5,-7.54C222.59,-0.51 347.52,9.35 446,-22 460.7,-26.68 475.19,-35.93 486.46,-44.46"/>
+<polygon fill="#000000" stroke="#000000" points="484.39,-47.28 494.4,-50.75 488.74,-41.8 484.39,-47.28"/>
+</g>
+<!-- interface~util_spill_body -->
+<g id="interface~~util_spill~2~~CalledByGraph_node9" class="node">
+<title>interface~util_spill_body</title>
+<g id="a_interface~~util_spill~2~~CalledByGraph_node9"><a xlink:href=".././interface/util_spill_body.html" xlink:title="util_spill_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="293.5,-55 214.5,-55 214.5,-31 293.5,-31 293.5,-55"/>
+<text text-anchor="middle" x="254" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
+</a>
+</g>
+</g>
+<!-- proc~util_spill_pl&#45;&gt;interface~util_spill_body -->
+<g id="interface~~util_spill~2~~CalledByGraph_edge9" class="edge">
+<title>proc~util_spill_pl&#45;&gt;interface~util_spill_body</title>
+<path fill="none" stroke="#000000" d="M165.63,-20.14C177.55,-23.26 191.43,-26.89 204.58,-30.33"/>
+<polygon fill="#000000" stroke="#000000" points="203.89,-33.77 214.45,-32.92 205.66,-27 203.89,-33.77"/>
+</g>
+<!-- proc~util_spill_body -->
+<g id="interface~~util_spill~2~~CalledByGraph_node4" class="node">
 <title>proc~util_spill_body</title>
-<g id="a_interface~~util_spill~2~~CalledByGraph_node3"><a xlink:href=".././proc/util_spill_body.html" xlink:title="util_spill_body">
+<g id="a_interface~~util_spill~2~~CalledByGraph_node4"><a xlink:href=".././proc/util_spill_body.html" xlink:title="util_spill_body">
 <polygon fill="#d9534f" stroke="#d9534f" points="433.5,-55 354.5,-55 354.5,-31 433.5,-31 433.5,-55"/>
 <text text-anchor="middle" x="394" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
 </a>
@@ -275,81 +305,30 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="#000000" stroke="#000000" points="471.23,-60.05 481.69,-58.34 472.45,-53.15 471.23,-60.05"/>
 </g>
 <!-- proc~util_spill_tp -->
-<g id="interface~~util_spill~2~~CalledByGraph_node4" class="node">
+<g id="interface~~util_spill~2~~CalledByGraph_node5" class="node">
 <title>proc~util_spill_tp</title>
-<g id="a_interface~~util_spill~2~~CalledByGraph_node4"><a xlink:href=".././proc/util_spill_tp.html" xlink:title="util_spill_tp">
+<g id="a_interface~~util_spill~2~~CalledByGraph_node5"><a xlink:href=".././proc/util_spill_tp.html" xlink:title="util_spill_tp">
 <polygon fill="#d9534f" stroke="#d9534f" points="166,-85 101,-85 101,-61 166,-61 166,-85"/>
 <text text-anchor="middle" x="133.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
 </a>
 </g>
 </g>
 <!-- proc~util_spill_tp&#45;&gt;interface~util_spill~2 -->
-<g id="interface~~util_spill~2~~CalledByGraph_edge1" class="edge">
+<g id="interface~~util_spill~2~~CalledByGraph_edge4" class="edge">
 <title>proc~util_spill_tp&#45;&gt;interface~util_spill~2</title>
 <path fill="none" stroke="#000000" d="M166.02,-72.16C234.92,-70.31 398.58,-65.93 471.66,-63.97"/>
 <polygon fill="#000000" stroke="#000000" points="471.86,-67.47 481.77,-63.7 471.68,-60.47 471.86,-67.47"/>
 </g>
-<!-- interface~util_spill_body -->
-<g id="interface~~util_spill~2~~CalledByGraph_node6" class="node">
-<title>interface~util_spill_body</title>
-<g id="a_interface~~util_spill~2~~CalledByGraph_node6"><a xlink:href=".././interface/util_spill_body.html" xlink:title="util_spill_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="293.5,-55 214.5,-55 214.5,-31 293.5,-31 293.5,-55"/>
-<text text-anchor="middle" x="254" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
-</a>
-</g>
-</g>
 <!-- proc~util_spill_tp&#45;&gt;interface~util_spill_body -->
-<g id="interface~~util_spill~2~~CalledByGraph_edge9" class="edge">
+<g id="interface~~util_spill~2~~CalledByGraph_edge10" class="edge">
 <title>proc~util_spill_tp&#45;&gt;interface~util_spill_body</title>
 <path fill="none" stroke="#000000" d="M166.26,-64.96C178.06,-61.97 191.73,-58.51 204.67,-55.23"/>
 <polygon fill="#000000" stroke="#000000" points="205.56,-58.62 214.39,-52.77 203.84,-51.84 205.56,-58.62"/>
 </g>
-<!-- proc~util_spill_pl -->
-<g id="interface~~util_spill~2~~CalledByGraph_node5" class="node">
-<title>proc~util_spill_pl</title>
-<g id="a_interface~~util_spill~2~~CalledByGraph_node5"><a xlink:href=".././proc/util_spill_pl.html" xlink:title="util_spill_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="165.5,-24 101.5,-24 101.5,0 165.5,0 165.5,-24"/>
-<text text-anchor="middle" x="133.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
-</a>
-</g>
-</g>
-<!-- proc~util_spill_pl&#45;&gt;interface~util_spill~2 -->
-<g id="interface~~util_spill~2~~CalledByGraph_edge4" class="edge">
-<title>proc~util_spill_pl&#45;&gt;interface~util_spill~2</title>
-<path fill="none" stroke="#000000" d="M165.5,-7.54C222.59,-0.51 347.52,9.35 446,-22 460.7,-26.68 475.19,-35.93 486.46,-44.46"/>
-<polygon fill="#000000" stroke="#000000" points="484.39,-47.28 494.4,-50.75 488.74,-41.8 484.39,-47.28"/>
-</g>
-<!-- proc~util_spill_pl&#45;&gt;interface~util_spill_body -->
-<g id="interface~~util_spill~2~~CalledByGraph_edge10" class="edge">
-<title>proc~util_spill_pl&#45;&gt;interface~util_spill_body</title>
-<path fill="none" stroke="#000000" d="M165.63,-20.14C177.55,-23.26 191.43,-26.89 204.58,-30.33"/>
-<polygon fill="#000000" stroke="#000000" points="203.89,-33.77 214.45,-32.92 205.66,-27 203.89,-33.77"/>
-</g>
-<!-- interface~util_spill_body&#45;&gt;proc~util_spill_body -->
-<g id="interface~~util_spill~2~~CalledByGraph_edge6" class="edge">
-<title>interface~util_spill_body&#45;&gt;proc~util_spill_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M293.81,-43C309.52,-43 327.83,-43 344.42,-43"/>
-<polygon fill="#000000" stroke="#000000" points="344.48,-46.5 354.48,-43 344.48,-39.5 344.48,-46.5"/>
-</g>
-<!-- interface~util_spill_tp -->
-<g id="interface~~util_spill~2~~CalledByGraph_node7" class="node">
-<title>interface~util_spill_tp</title>
-<g id="a_interface~~util_spill~2~~CalledByGraph_node7"><a xlink:href=".././interface/util_spill_tp.html" xlink:title="util_spill_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="65,-85 0,-85 0,-61 65,-61 65,-85"/>
-<text text-anchor="middle" x="32.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
-</a>
-</g>
-</g>
-<!-- interface~util_spill_tp&#45;&gt;proc~util_spill_tp -->
-<g id="interface~~util_spill~2~~CalledByGraph_edge7" class="edge">
-<title>interface~util_spill_tp&#45;&gt;proc~util_spill_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M65.1,-73C73.22,-73 82.09,-73 90.65,-73"/>
-<polygon fill="#000000" stroke="#000000" points="90.86,-76.5 100.86,-73 90.86,-69.5 90.86,-76.5"/>
-</g>
 <!-- interface~util_spill_encounter -->
-<g id="interface~~util_spill~2~~CalledByGraph_node8" class="node">
+<g id="interface~~util_spill~2~~CalledByGraph_node6" class="node">
 <title>interface~util_spill_encounter</title>
-<g id="a_interface~~util_spill~2~~CalledByGraph_node8"><a xlink:href=".././interface/util_spill_encounter.html" xlink:title="util_spill_encounter">
+<g id="a_interface~~util_spill~2~~CalledByGraph_node6"><a xlink:href=".././interface/util_spill_encounter.html" xlink:title="util_spill_encounter">
 <polygon fill="#a7506f" stroke="#a7506f" points="306,-135 202,-135 202,-111 306,-111 306,-135"/>
 <text text-anchor="middle" x="254" y="-120.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_encounter</text>
 </a>
@@ -362,20 +341,41 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="#000000" stroke="#000000" points="331.57,-126.5 341.57,-123 331.57,-119.5 331.57,-126.5"/>
 </g>
 <!-- interface~util_spill_pl -->
-<g id="interface~~util_spill~2~~CalledByGraph_node9" class="node">
+<g id="interface~~util_spill~2~~CalledByGraph_node7" class="node">
 <title>interface~util_spill_pl</title>
-<g id="a_interface~~util_spill~2~~CalledByGraph_node9"><a xlink:href=".././interface/util_spill_pl.html" xlink:title="util_spill_pl">
+<g id="a_interface~~util_spill~2~~CalledByGraph_node7"><a xlink:href=".././interface/util_spill_pl.html" xlink:title="util_spill_pl">
 <polygon fill="#a7506f" stroke="#a7506f" points="64.5,-24 0.5,-24 0.5,0 64.5,0 64.5,-24"/>
 <text text-anchor="middle" x="32.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~util_spill_pl&#45;&gt;proc~util_spill_pl -->
-<g id="interface~~util_spill~2~~CalledByGraph_edge8" class="edge">
+<g id="interface~~util_spill~2~~CalledByGraph_edge6" class="edge">
 <title>interface~util_spill_pl&#45;&gt;proc~util_spill_pl</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M64.55,-12C72.95,-12 82.17,-12 91.04,-12"/>
 <polygon fill="#000000" stroke="#000000" points="91.22,-15.5 101.22,-12 91.22,-8.5 91.22,-15.5"/>
 </g>
+<!-- interface~util_spill_tp -->
+<g id="interface~~util_spill~2~~CalledByGraph_node8" class="node">
+<title>interface~util_spill_tp</title>
+<g id="a_interface~~util_spill~2~~CalledByGraph_node8"><a xlink:href=".././interface/util_spill_tp.html" xlink:title="util_spill_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="65,-85 0,-85 0,-61 65,-61 65,-85"/>
+<text text-anchor="middle" x="32.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~util_spill_tp&#45;&gt;proc~util_spill_tp -->
+<g id="interface~~util_spill~2~~CalledByGraph_edge8" class="edge">
+<title>interface~util_spill_tp&#45;&gt;proc~util_spill_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M65.1,-73C73.22,-73 82.09,-73 90.65,-73"/>
+<polygon fill="#000000" stroke="#000000" points="90.86,-76.5 100.86,-73 90.86,-69.5 90.86,-76.5"/>
+</g>
+<!-- interface~util_spill_body&#45;&gt;proc~util_spill_body -->
+<g id="interface~~util_spill~2~~CalledByGraph_edge7" class="edge">
+<title>interface~util_spill_body&#45;&gt;proc~util_spill_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M293.81,-43C309.52,-43 327.83,-43 344.42,-43"/>
+<polygon fill="#000000" stroke="#000000" points="344.48,-46.5 354.48,-43 344.48,-39.5 344.48,-46.5"/>
+</g>
 </g>
 </svg>
 </div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
diff --git a/docs/interface/symba_io_write_frame_info.html b/docs/interface/util_valid_id_system.html
similarity index 67%
rename from docs/interface/symba_io_write_frame_info.html
rename to docs/interface/util_valid_id_system.html
index 25fdd55bd..a4695321b 100644
--- a/docs/interface/symba_io_write_frame_info.html
+++ b/docs/interface/util_valid_id_system.html
@@ -11,7 +11,7 @@
     <meta name="author" content="David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott" >
     <link rel="icon" href="../favicon.png">
 
-    <title>symba_io_write_frame_info &ndash; swiftest</title>
+    <title>util_valid_id_system &ndash; swiftest</title>
 
     <link href="../css/bootstrap.min.css" rel="stylesheet">
     <link href="../css/pygments.css" rel="stylesheet">
@@ -117,7 +117,7 @@
     
   
   <div class="row">
-    <h1>symba_io_write_frame_info
+    <h1>util_valid_id_system
    <small>Interface</small>
     
     </h1>
@@ -136,24 +136,24 @@ <h1>symba_io_write_frame_info
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for procedures.">275 statements</a>
+    title=" 0.1% of total for procedures.">38 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/symba_classes.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/swiftest_classes.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/symba_classes.f90.html'>symba_classes.f90</a></li>
+     <li><a href='../sourcefile/swiftest_classes.f90.html'>swiftest_classes.f90</a></li>
     
-     <li><a href='../module/symba_classes.html'>symba_classes</a></li>
+     <li><a href='../module/swiftest_classes.html'>swiftest_classes</a></li>
     
   
-     <li class="active">symba_io_write_frame_info</li>
+     <li class="active">util_valid_id_system</li>
   </ol>
 </div>
 </div>
@@ -219,32 +219,77 @@ <h3 class="panel-title">Calls</h3>
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
-<!-- Title: interface~~symba_io_write_frame_info~~CallsGraph Pages: 1 -->
-<svg id="interfacesymba_io_write_frame_infoCallsGraph" width="332pt" height="32pt"
- viewBox="0.00 0.00 332.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="interface~~symba_io_write_frame_info~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>interface~~symba_io_write_frame_info~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 328,-28 328,4 -4,4"/>
-<!-- interface~symba_io_write_frame_info -->
-<g id="interface~~symba_io_write_frame_info~~CallsGraph_node1" class="node">
-<title>interface~symba_io_write_frame_info</title>
-<polygon fill="none" stroke="black" points="144,-24 0,-24 0,0 144,0 144,-24"/>
-<text text-anchor="middle" x="72" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_write_frame_info</text>
+<!-- Title: interface~~util_valid_id_system~~CallsGraph Pages: 1 -->
+<svg id="interfaceutil_valid_id_systemCallsGraph" width="440pt" height="74pt"
+ viewBox="0.00 0.00 440.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="interface~~util_valid_id_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>interface~~util_valid_id_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 436,-70 436,4 -4,4"/>
+<!-- interface~util_valid_id_system -->
+<g id="interface~~util_valid_id_system~~CallsGraph_node1" class="node">
+<title>interface~util_valid_id_system</title>
+<polygon fill="none" stroke="black" points="108,-45 0,-45 0,-21 108,-21 108,-45"/>
+<text text-anchor="middle" x="54" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_valid_id_system</text>
 </g>
-<!-- proc~symba_io_write_frame_info -->
-<g id="interface~~symba_io_write_frame_info~~CallsGraph_node2" class="node">
-<title>proc~symba_io_write_frame_info</title>
-<g id="a_interface~~symba_io_write_frame_info~~CallsGraph_node2"><a xlink:href=".././proc/symba_io_write_frame_info.html" xlink:title="symba_io_write_frame_info">
-<polygon fill="#d9534f" stroke="#d9534f" points="324,-24 180,-24 180,0 324,0 324,-24"/>
-<text text-anchor="middle" x="252" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_write_frame_info</text>
+<!-- proc~util_valid_id_system -->
+<g id="interface~~util_valid_id_system~~CallsGraph_node2" class="node">
+<title>proc~util_valid_id_system</title>
+<g id="a_interface~~util_valid_id_system~~CallsGraph_node2"><a xlink:href=".././proc/util_valid_id_system.html" xlink:title="util_valid_id_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="252,-45 144,-45 144,-21 252,-21 252,-45"/>
+<text text-anchor="middle" x="198" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid_id_system</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_io_write_frame_info&#45;&gt;proc~symba_io_write_frame_info -->
-<g id="interface~~symba_io_write_frame_info~~CallsGraph_edge1" class="edge">
-<title>interface~symba_io_write_frame_info&#45;&gt;proc~symba_io_write_frame_info</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.12,-12C152.61,-12 161.33,-12 169.94,-12"/>
-<polygon fill="#000000" stroke="#000000" points="170,-15.5 180,-12 170,-8.5 170,-15.5"/>
+<!-- interface~util_valid_id_system&#45;&gt;proc~util_valid_id_system -->
+<g id="interface~~util_valid_id_system~~CallsGraph_edge1" class="edge">
+<title>interface~util_valid_id_system&#45;&gt;proc~util_valid_id_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M108.28,-33C116.56,-33 125.18,-33 133.66,-33"/>
+<polygon fill="#000000" stroke="#000000" points="133.89,-36.5 143.89,-33 133.89,-29.5 133.89,-36.5"/>
+</g>
+<!-- interface~util_exit -->
+<g id="interface~~util_valid_id_system~~CallsGraph_node3" class="node">
+<title>interface~util_exit</title>
+<g id="a_interface~~util_valid_id_system~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="342,-66 288,-66 288,-42 342,-42 342,-66"/>
+<text text-anchor="middle" x="315" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
+</g>
+</g>
+<!-- proc~util_valid_id_system&#45;&gt;interface~util_exit -->
+<g id="interface~~util_valid_id_system~~CallsGraph_edge2" class="edge">
+<title>proc~util_valid_id_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M252.12,-42.7C260.81,-44.29 269.64,-45.9 277.8,-47.39"/>
+<polygon fill="#000000" stroke="#000000" points="277.25,-50.85 287.71,-49.2 278.5,-43.96 277.25,-50.85"/>
+</g>
+<!-- interface~util_sort -->
+<g id="interface~~util_valid_id_system~~CallsGraph_node4" class="node">
+<title>interface~util_sort</title>
+<g id="a_interface~~util_valid_id_system~~CallsGraph_node4"><a xlink:href=".././interface/util_sort.html" xlink:title="util_sort">
+<polygon fill="#a7506f" stroke="#a7506f" points="342,-24 288,-24 288,0 342,0 342,-24"/>
+<text text-anchor="middle" x="315" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort</text>
+</a>
+</g>
+</g>
+<!-- proc~util_valid_id_system&#45;&gt;interface~util_sort -->
+<g id="interface~~util_valid_id_system~~CallsGraph_edge3" class="edge">
+<title>proc~util_valid_id_system&#45;&gt;interface~util_sort</title>
+<path fill="none" stroke="#000000" d="M252.12,-23.3C260.81,-21.71 269.64,-20.1 277.8,-18.61"/>
+<polygon fill="#000000" stroke="#000000" points="278.5,-22.04 287.71,-16.8 277.25,-15.15 278.5,-22.04"/>
+</g>
+<!-- proc~util_exit -->
+<g id="interface~~util_valid_id_system~~CallsGraph_node5" class="node">
+<title>proc~util_exit</title>
+<g id="a_interface~~util_valid_id_system~~CallsGraph_node5"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="432,-66 378,-66 378,-42 432,-42 432,-66"/>
+<text text-anchor="middle" x="405" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
+</g>
+</g>
+<!-- interface~util_exit&#45;&gt;proc~util_exit -->
+<g id="interface~~util_valid_id_system~~CallsGraph_edge4" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.4,-54C350.39,-54 359.31,-54 367.82,-54"/>
+<polygon fill="#000000" stroke="#000000" points="367.92,-57.5 377.92,-54 367.92,-50.5 367.92,-57.5"/>
 </g>
 </g>
 </svg>
@@ -315,11 +360,11 @@ <h3 class="panel-title">Calls</h3>
     <br>
     
       <h2>
-public module subroutine symba_io_write_frame_info(self, iu, param)
+public module subroutine util_valid_id_system(self, param)
     
     
    
-   <a href='../proc/symba_io_write_frame_info.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_valid_id_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h2>
     
@@ -346,27 +391,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~95"></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA particle info object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-iu~6"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-self~193"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -376,12 +406,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~69"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~113"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
diff --git a/docs/interface/whm_coord_h2j_pl.html b/docs/interface/whm_coord_h2j_pl.html
index 411bfd702..5f71fff43 100644
--- a/docs/interface/whm_coord_h2j_pl.html
+++ b/docs/interface/whm_coord_h2j_pl.html
@@ -246,39 +246,39 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M103.12,-117C111.36,-117 119.97,-117 128.42,-117"/>
 <polygon fill="#000000" stroke="#000000" points="128.63,-120.5 138.63,-117 128.63,-113.5 128.63,-120.5"/>
 </g>
-<!-- xh -->
+<!-- eta -->
 <g id="interface~~whm_coord_h2j_pl~~CallsGraph_node3" class="node">
-<title>xh</title>
+<title>eta</title>
 <polygon fill="#777777" stroke="#777777" points="332,-234 278,-234 278,-210 332,-210 332,-234"/>
-<text text-anchor="middle" x="305" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
+<text text-anchor="middle" x="305" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;xh -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;eta -->
 <g id="interface~~whm_coord_h2j_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;xh</title>
+<title>proc~whm_coord_h2j_pl&#45;&gt;eta</title>
 <path fill="none" stroke="#000000" d="M203.21,-129.04C219.53,-145.68 250.27,-176.43 278,-201 278.83,-201.73 279.67,-202.47 280.53,-203.21"/>
 <polygon fill="#000000" stroke="#000000" points="278.49,-206.07 288.41,-209.79 282.98,-200.69 278.49,-206.07"/>
 </g>
-<!-- gmpl -->
+<!-- vj -->
 <g id="interface~~whm_coord_h2j_pl~~CallsGraph_node4" class="node">
-<title>gmpl</title>
+<title>vj</title>
 <polygon fill="#777777" stroke="#777777" points="332,-192 278,-192 278,-168 332,-168 332,-192"/>
-<text text-anchor="middle" x="305" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gmpl</text>
+<text text-anchor="middle" x="305" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;gmpl -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;vj -->
 <g id="interface~~whm_coord_h2j_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;gmpl</title>
+<title>proc~whm_coord_h2j_pl&#45;&gt;vj</title>
 <path fill="none" stroke="#000000" d="M213.19,-129.15C230.31,-138.73 254.4,-152.23 273.47,-162.9"/>
 <polygon fill="#000000" stroke="#000000" points="271.94,-166.06 282.38,-167.89 275.36,-159.95 271.94,-166.06"/>
 </g>
-<!-- vj -->
+<!-- xh -->
 <g id="interface~~whm_coord_h2j_pl~~CallsGraph_node5" class="node">
-<title>vj</title>
+<title>xh</title>
 <polygon fill="#777777" stroke="#777777" points="332,-150 278,-150 278,-126 332,-126 332,-150"/>
-<text text-anchor="middle" x="305" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
+<text text-anchor="middle" x="305" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;vj -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;xh -->
 <g id="interface~~whm_coord_h2j_pl~~CallsGraph_edge4" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;vj</title>
+<title>proc~whm_coord_h2j_pl&#45;&gt;xh</title>
 <path fill="none" stroke="#000000" d="M242.16,-126.46C250.85,-128.08 259.72,-129.73 267.93,-131.27"/>
 <polygon fill="#000000" stroke="#000000" points="267.45,-134.74 277.92,-133.13 268.73,-127.86 267.45,-134.74"/>
 </g>
@@ -294,15 +294,15 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M242.16,-107.54C250.85,-105.92 259.72,-104.27 267.93,-102.73"/>
 <polygon fill="#000000" stroke="#000000" points="268.73,-106.14 277.92,-100.87 267.45,-99.26 268.73,-106.14"/>
 </g>
-<!-- eta -->
+<!-- gmpl -->
 <g id="interface~~whm_coord_h2j_pl~~CallsGraph_node7" class="node">
-<title>eta</title>
+<title>gmpl</title>
 <polygon fill="#777777" stroke="#777777" points="332,-66 278,-66 278,-42 332,-42 332,-66"/>
-<text text-anchor="middle" x="305" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
+<text text-anchor="middle" x="305" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gmpl</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;eta -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;gmpl -->
 <g id="interface~~whm_coord_h2j_pl~~CallsGraph_edge6" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;eta</title>
+<title>proc~whm_coord_h2j_pl&#45;&gt;gmpl</title>
 <path fill="none" stroke="#000000" d="M213.19,-104.85C230.31,-95.27 254.4,-81.77 273.47,-71.1"/>
 <polygon fill="#000000" stroke="#000000" points="275.36,-74.05 282.38,-66.11 271.94,-67.94 275.36,-74.05"/>
 </g>
diff --git a/docs/interface/whm_coord_j2h_pl.html b/docs/interface/whm_coord_j2h_pl.html
index ee54e3d9a..b14c757a3 100644
--- a/docs/interface/whm_coord_j2h_pl.html
+++ b/docs/interface/whm_coord_j2h_pl.html
@@ -246,39 +246,39 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M103.12,-117C111.36,-117 119.97,-117 128.42,-117"/>
 <polygon fill="#000000" stroke="#000000" points="128.63,-120.5 138.63,-117 128.63,-113.5 128.63,-120.5"/>
 </g>
-<!-- xh -->
+<!-- eta -->
 <g id="interface~~whm_coord_j2h_pl~~CallsGraph_node3" class="node">
-<title>xh</title>
+<title>eta</title>
 <polygon fill="#777777" stroke="#777777" points="332,-234 278,-234 278,-210 332,-210 332,-234"/>
-<text text-anchor="middle" x="305" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
+<text text-anchor="middle" x="305" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;xh -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;eta -->
 <g id="interface~~whm_coord_j2h_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;xh</title>
+<title>proc~whm_coord_j2h_pl&#45;&gt;eta</title>
 <path fill="none" stroke="#000000" d="M203.21,-129.04C219.53,-145.68 250.27,-176.43 278,-201 278.83,-201.73 279.67,-202.47 280.53,-203.21"/>
 <polygon fill="#000000" stroke="#000000" points="278.49,-206.07 288.41,-209.79 282.98,-200.69 278.49,-206.07"/>
 </g>
-<!-- gmpl -->
+<!-- vj -->
 <g id="interface~~whm_coord_j2h_pl~~CallsGraph_node4" class="node">
-<title>gmpl</title>
+<title>vj</title>
 <polygon fill="#777777" stroke="#777777" points="332,-192 278,-192 278,-168 332,-168 332,-192"/>
-<text text-anchor="middle" x="305" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gmpl</text>
+<text text-anchor="middle" x="305" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;gmpl -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;vj -->
 <g id="interface~~whm_coord_j2h_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;gmpl</title>
+<title>proc~whm_coord_j2h_pl&#45;&gt;vj</title>
 <path fill="none" stroke="#000000" d="M213.19,-129.15C230.31,-138.73 254.4,-152.23 273.47,-162.9"/>
 <polygon fill="#000000" stroke="#000000" points="271.94,-166.06 282.38,-167.89 275.36,-159.95 271.94,-166.06"/>
 </g>
-<!-- vj -->
+<!-- xh -->
 <g id="interface~~whm_coord_j2h_pl~~CallsGraph_node5" class="node">
-<title>vj</title>
+<title>xh</title>
 <polygon fill="#777777" stroke="#777777" points="332,-150 278,-150 278,-126 332,-126 332,-150"/>
-<text text-anchor="middle" x="305" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
+<text text-anchor="middle" x="305" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;vj -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;xh -->
 <g id="interface~~whm_coord_j2h_pl~~CallsGraph_edge4" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;vj</title>
+<title>proc~whm_coord_j2h_pl&#45;&gt;xh</title>
 <path fill="none" stroke="#000000" d="M242.16,-126.46C250.85,-128.08 259.72,-129.73 267.93,-131.27"/>
 <polygon fill="#000000" stroke="#000000" points="267.45,-134.74 277.92,-133.13 268.73,-127.86 267.45,-134.74"/>
 </g>
@@ -294,15 +294,15 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M242.16,-107.54C250.85,-105.92 259.72,-104.27 267.93,-102.73"/>
 <polygon fill="#000000" stroke="#000000" points="268.73,-106.14 277.92,-100.87 267.45,-99.26 268.73,-106.14"/>
 </g>
-<!-- eta -->
+<!-- gmpl -->
 <g id="interface~~whm_coord_j2h_pl~~CallsGraph_node7" class="node">
-<title>eta</title>
+<title>gmpl</title>
 <polygon fill="#777777" stroke="#777777" points="332,-66 278,-66 278,-42 332,-42 332,-66"/>
-<text text-anchor="middle" x="305" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
+<text text-anchor="middle" x="305" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gmpl</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;eta -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;gmpl -->
 <g id="interface~~whm_coord_j2h_pl~~CallsGraph_edge6" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;eta</title>
+<title>proc~whm_coord_j2h_pl&#45;&gt;gmpl</title>
 <path fill="none" stroke="#000000" d="M213.19,-104.85C230.31,-95.27 254.4,-81.77 273.47,-71.1"/>
 <polygon fill="#000000" stroke="#000000" points="275.36,-74.05 282.38,-66.11 271.94,-67.94 275.36,-74.05"/>
 </g>
diff --git a/docs/interface/whm_coord_vh2vj_pl.html b/docs/interface/whm_coord_vh2vj_pl.html
index a2fae4732..feae469a6 100644
--- a/docs/interface/whm_coord_vh2vj_pl.html
+++ b/docs/interface/whm_coord_vh2vj_pl.html
@@ -253,20 +253,20 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="325" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
 </g>
 <!-- proc~whm_coord_vh2vj_pl&#45;&gt;vj -->
-<g id="interface~~whm_coord_vh2vj_pl~~CallsGraph_edge4" class="edge">
+<g id="interface~~whm_coord_vh2vj_pl~~CallsGraph_edge2" class="edge">
 <title>proc~whm_coord_vh2vj_pl&#45;&gt;vj</title>
 <path fill="none" stroke="#000000" d="M229.16,-87.15C247.12,-96.78 272.43,-110.35 292.39,-121.05"/>
 <polygon fill="#000000" stroke="#000000" points="290.95,-124.25 301.41,-125.89 294.26,-118.08 290.95,-124.25"/>
 </g>
-<!-- gmpl -->
+<!-- vh -->
 <g id="interface~~whm_coord_vh2vj_pl~~CallsGraph_node4" class="node">
-<title>gmpl</title>
+<title>vh</title>
 <polygon fill="#777777" stroke="#777777" points="352,-108 298,-108 298,-84 352,-84 352,-108"/>
-<text text-anchor="middle" x="325" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gmpl</text>
+<text text-anchor="middle" x="325" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
 </g>
-<!-- proc~whm_coord_vh2vj_pl&#45;&gt;gmpl -->
+<!-- proc~whm_coord_vh2vj_pl&#45;&gt;vh -->
 <g id="interface~~whm_coord_vh2vj_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_coord_vh2vj_pl&#45;&gt;gmpl</title>
+<title>proc~whm_coord_vh2vj_pl&#45;&gt;vh</title>
 <path fill="none" stroke="#000000" d="M262.15,-84.95C270.91,-86.51 279.76,-88.09 287.92,-89.55"/>
 <polygon fill="#000000" stroke="#000000" points="287.37,-93.01 297.83,-91.32 288.6,-86.12 287.37,-93.01"/>
 </g>
@@ -277,20 +277,20 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="325" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
 </g>
 <!-- proc~whm_coord_vh2vj_pl&#45;&gt;eta -->
-<g id="interface~~whm_coord_vh2vj_pl~~CallsGraph_edge2" class="edge">
+<g id="interface~~whm_coord_vh2vj_pl~~CallsGraph_edge4" class="edge">
 <title>proc~whm_coord_vh2vj_pl&#45;&gt;eta</title>
 <path fill="none" stroke="#000000" d="M262.15,-65.05C270.91,-63.49 279.76,-61.91 287.92,-60.45"/>
 <polygon fill="#000000" stroke="#000000" points="288.6,-63.88 297.83,-58.68 287.37,-56.99 288.6,-63.88"/>
 </g>
-<!-- vh -->
+<!-- gmpl -->
 <g id="interface~~whm_coord_vh2vj_pl~~CallsGraph_node6" class="node">
-<title>vh</title>
+<title>gmpl</title>
 <polygon fill="#777777" stroke="#777777" points="352,-24 298,-24 298,0 352,0 352,-24"/>
-<text text-anchor="middle" x="325" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
+<text text-anchor="middle" x="325" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gmpl</text>
 </g>
-<!-- proc~whm_coord_vh2vj_pl&#45;&gt;vh -->
+<!-- proc~whm_coord_vh2vj_pl&#45;&gt;gmpl -->
 <g id="interface~~whm_coord_vh2vj_pl~~CallsGraph_edge5" class="edge">
-<title>proc~whm_coord_vh2vj_pl&#45;&gt;vh</title>
+<title>proc~whm_coord_vh2vj_pl&#45;&gt;gmpl</title>
 <path fill="none" stroke="#000000" d="M229.16,-62.85C247.12,-53.22 272.43,-39.65 292.39,-28.95"/>
 <polygon fill="#000000" stroke="#000000" points="294.26,-31.92 301.41,-24.11 290.95,-25.75 294.26,-31.92"/>
 </g>
diff --git a/docs/interface/whm_drift_pl.html b/docs/interface/whm_drift_pl.html
index 1839ac384..91e0d6de0 100644
--- a/docs/interface/whm_drift_pl.html
+++ b/docs/interface/whm_drift_pl.html
@@ -385,7 +385,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~25"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~26"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -400,7 +400,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~38"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~39"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/whm_gr_kick_getacch_pl.html b/docs/interface/whm_gr_kick_getacch_pl.html
index acc1ee912..166e9c9c3 100644
--- a/docs/interface/whm_gr_kick_getacch_pl.html
+++ b/docs/interface/whm_gr_kick_getacch_pl.html
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~43"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~44"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/whm_gr_kick_getacch_tp.html b/docs/interface/whm_gr_kick_getacch_tp.html
index 33f0a58d8..cad2c76e4 100644
--- a/docs/interface/whm_gr_kick_getacch_tp.html
+++ b/docs/interface/whm_gr_kick_getacch_tp.html
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~44"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~45"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/whm_gr_p4_pl.html b/docs/interface/whm_gr_p4_pl.html
index 42523e1ae..ea4dd3832 100644
--- a/docs/interface/whm_gr_p4_pl.html
+++ b/docs/interface/whm_gr_p4_pl.html
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~45"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~46"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/whm_gr_p4_tp.html b/docs/interface/whm_gr_p4_tp.html
index 7856a5424..82e4ca5fb 100644
--- a/docs/interface/whm_gr_p4_tp.html
+++ b/docs/interface/whm_gr_p4_tp.html
@@ -373,7 +373,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~46"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~47"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/whm_kick_getacch_pl.html b/docs/interface/whm_kick_getacch_pl.html
index 2334f71bf..f90520af4 100644
--- a/docs/interface/whm_kick_getacch_pl.html
+++ b/docs/interface/whm_kick_getacch_pl.html
@@ -246,48 +246,48 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M117.02,-54C125.46,-54 134.23,-54 142.86,-54"/>
 <polygon fill="#000000" stroke="#000000" points="142.89,-57.5 152.89,-54 142.89,-50.5 142.89,-57.5"/>
 </g>
-<!-- proc~whm_kick_getacch_ah0 -->
+<!-- proc~whm_kick_getacch_ah1 -->
 <g id="interface~~whm_kick_getacch_pl~~CallsGraph_node3" class="node">
-<title>proc~whm_kick_getacch_ah0</title>
-<g id="a_interface~~whm_kick_getacch_pl~~CallsGraph_node3"><a xlink:href=".././proc/whm_kick_getacch_ah0.html" xlink:title="whm_kick_getacch_ah0">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="433,-108 306,-108 306,-84 433,-84 433,-108"/>
-<text text-anchor="middle" x="369.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah0</text>
+<title>proc~whm_kick_getacch_ah1</title>
+<g id="a_interface~~whm_kick_getacch_pl~~CallsGraph_node3"><a xlink:href=".././proc/whm_kick_getacch_ah1.html" xlink:title="whm_kick_getacch_ah1">
+<polygon fill="#d9534f" stroke="#d9534f" points="433,-108 306,-108 306,-84 433,-84 433,-108"/>
+<text text-anchor="middle" x="369.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah1</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0 -->
-<g id="interface~~whm_kick_getacch_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0</title>
+<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah1 -->
+<g id="interface~~whm_kick_getacch_pl~~CallsGraph_edge2" class="edge">
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah1</title>
 <path fill="none" stroke="#000000" d="M257.2,-66.04C274.91,-70.8 295.43,-76.33 314,-81.33"/>
 <polygon fill="#000000" stroke="#000000" points="313.22,-84.74 323.79,-83.96 315.04,-77.98 313.22,-84.74"/>
 </g>
-<!-- proc~whm_kick_getacch_ah1 -->
+<!-- proc~whm_kick_getacch_ah2 -->
 <g id="interface~~whm_kick_getacch_pl~~CallsGraph_node4" class="node">
-<title>proc~whm_kick_getacch_ah1</title>
-<g id="a_interface~~whm_kick_getacch_pl~~CallsGraph_node4"><a xlink:href=".././proc/whm_kick_getacch_ah1.html" xlink:title="whm_kick_getacch_ah1">
+<title>proc~whm_kick_getacch_ah2</title>
+<g id="a_interface~~whm_kick_getacch_pl~~CallsGraph_node4"><a xlink:href=".././proc/whm_kick_getacch_ah2.html" xlink:title="whm_kick_getacch_ah2">
 <polygon fill="#d9534f" stroke="#d9534f" points="433,-66 306,-66 306,-42 433,-42 433,-66"/>
-<text text-anchor="middle" x="369.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah1</text>
+<text text-anchor="middle" x="369.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah2</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah1 -->
-<g id="interface~~whm_kick_getacch_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah1</title>
+<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2 -->
+<g id="interface~~whm_kick_getacch_pl~~CallsGraph_edge3" class="edge">
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2</title>
 <path fill="none" stroke="#000000" d="M270.15,-54C278.5,-54 287.2,-54 295.81,-54"/>
 <polygon fill="#000000" stroke="#000000" points="295.85,-57.5 305.85,-54 295.85,-50.5 295.85,-57.5"/>
 </g>
-<!-- proc~whm_kick_getacch_ah2 -->
+<!-- proc~whm_kick_getacch_ah0 -->
 <g id="interface~~whm_kick_getacch_pl~~CallsGraph_node5" class="node">
-<title>proc~whm_kick_getacch_ah2</title>
-<g id="a_interface~~whm_kick_getacch_pl~~CallsGraph_node5"><a xlink:href=".././proc/whm_kick_getacch_ah2.html" xlink:title="whm_kick_getacch_ah2">
-<polygon fill="#d9534f" stroke="#d9534f" points="433,-24 306,-24 306,0 433,0 433,-24"/>
-<text text-anchor="middle" x="369.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah2</text>
+<title>proc~whm_kick_getacch_ah0</title>
+<g id="a_interface~~whm_kick_getacch_pl~~CallsGraph_node5"><a xlink:href=".././proc/whm_kick_getacch_ah0.html" xlink:title="whm_kick_getacch_ah0">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="433,-24 306,-24 306,0 433,0 433,-24"/>
+<text text-anchor="middle" x="369.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah0</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2 -->
+<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0 -->
 <g id="interface~~whm_kick_getacch_pl~~CallsGraph_edge4" class="edge">
-<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2</title>
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0</title>
 <path fill="none" stroke="#000000" d="M257.2,-41.96C274.91,-37.2 295.43,-31.67 314,-26.67"/>
 <polygon fill="#000000" stroke="#000000" points="315.04,-30.02 323.79,-24.04 313.22,-23.26 315.04,-30.02"/>
 </g>
@@ -406,7 +406,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~26"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~27"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -421,7 +421,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~39"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~40"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/whm_kick_getacch_tp.html b/docs/interface/whm_kick_getacch_tp.html
index 836bb3baa..f574a16ee 100644
--- a/docs/interface/whm_kick_getacch_tp.html
+++ b/docs/interface/whm_kick_getacch_tp.html
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~27"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~28"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -391,7 +391,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~40"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~41"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/whm_kick_vh_pl.html b/docs/interface/whm_kick_vh_pl.html
index dcf0b5513..1e1b8ad0b 100644
--- a/docs/interface/whm_kick_vh_pl.html
+++ b/docs/interface/whm_kick_vh_pl.html
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~28"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~29"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~41"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~42"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/whm_kick_vh_tp.html b/docs/interface/whm_kick_vh_tp.html
index eca888678..f6f1732f5 100644
--- a/docs/interface/whm_kick_vh_tp.html
+++ b/docs/interface/whm_kick_vh_tp.html
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~29"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~30"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~42"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~43"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/whm_setup_initialize_system.html b/docs/interface/whm_setup_initialize_system.html
index e0ae0528b..341b1645c 100644
--- a/docs/interface/whm_setup_initialize_system.html
+++ b/docs/interface/whm_setup_initialize_system.html
@@ -246,29 +246,29 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.21,-33C159.55,-33 168.1,-33 176.55,-33"/>
 <polygon fill="#000000" stroke="#000000" points="176.81,-36.5 186.81,-33 176.81,-29.5 176.81,-36.5"/>
 </g>
-<!-- setup_initialize_system -->
+<!-- util_set_ir3h -->
 <g id="interface~~whm_setup_initialize_system~~CallsGraph_node3" class="node">
-<title>setup_initialize_system</title>
-<polygon fill="#777777" stroke="#777777" points="496,-66 374,-66 374,-42 496,-42 496,-66"/>
-<text text-anchor="middle" x="435" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
+<title>util_set_ir3h</title>
+<polygon fill="#777777" stroke="#777777" points="470,-66 400,-66 400,-42 470,-42 470,-66"/>
+<text text-anchor="middle" x="435" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_ir3h</text>
 </g>
-<!-- proc~whm_setup_initialize_system&#45;&gt;setup_initialize_system -->
+<!-- proc~whm_setup_initialize_system&#45;&gt;util_set_ir3h -->
 <g id="interface~~whm_setup_initialize_system~~CallsGraph_edge2" class="edge">
-<title>proc~whm_setup_initialize_system&#45;&gt;setup_initialize_system</title>
-<path fill="none" stroke="#000000" d="M338.28,-42.21C346.74,-43.25 355.34,-44.31 363.74,-45.35"/>
-<polygon fill="#000000" stroke="#000000" points="363.51,-48.84 373.87,-46.59 364.37,-41.9 363.51,-48.84"/>
+<title>proc~whm_setup_initialize_system&#45;&gt;util_set_ir3h</title>
+<path fill="none" stroke="#000000" d="M338.28,-42.21C355.9,-44.38 374.12,-46.62 389.88,-48.57"/>
+<polygon fill="#000000" stroke="#000000" points="389.49,-52.04 399.84,-49.79 390.35,-45.1 389.49,-52.04"/>
 </g>
-<!-- util_set_ir3h -->
+<!-- setup_initialize_system -->
 <g id="interface~~whm_setup_initialize_system~~CallsGraph_node4" class="node">
-<title>util_set_ir3h</title>
-<polygon fill="#777777" stroke="#777777" points="470,-24 400,-24 400,0 470,0 470,-24"/>
-<text text-anchor="middle" x="435" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_ir3h</text>
+<title>setup_initialize_system</title>
+<polygon fill="#777777" stroke="#777777" points="496,-24 374,-24 374,0 496,0 496,-24"/>
+<text text-anchor="middle" x="435" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
 </g>
-<!-- proc~whm_setup_initialize_system&#45;&gt;util_set_ir3h -->
+<!-- proc~whm_setup_initialize_system&#45;&gt;setup_initialize_system -->
 <g id="interface~~whm_setup_initialize_system~~CallsGraph_edge3" class="edge">
-<title>proc~whm_setup_initialize_system&#45;&gt;util_set_ir3h</title>
-<path fill="none" stroke="#000000" d="M338.28,-23.79C355.9,-21.62 374.12,-19.38 389.88,-17.43"/>
-<polygon fill="#000000" stroke="#000000" points="390.35,-20.9 399.84,-16.21 389.49,-13.96 390.35,-20.9"/>
+<title>proc~whm_setup_initialize_system&#45;&gt;setup_initialize_system</title>
+<path fill="none" stroke="#000000" d="M338.28,-23.79C346.74,-22.75 355.34,-21.69 363.74,-20.65"/>
+<polygon fill="#000000" stroke="#000000" points="364.37,-24.1 373.87,-19.41 363.51,-17.16 364.37,-24.1"/>
 </g>
 </g>
 </svg>
@@ -385,7 +385,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~48"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~49"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/whm_setup_pl.html b/docs/interface/whm_setup_pl.html
index fbc4e2451..82d4ee2de 100644
--- a/docs/interface/whm_setup_pl.html
+++ b/docs/interface/whm_setup_pl.html
@@ -388,7 +388,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~47"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~48"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/interface/whm_step_pl.html b/docs/interface/whm_step_pl.html
index 59c2e45a6..0041d0b7b 100644
--- a/docs/interface/whm_step_pl.html
+++ b/docs/interface/whm_step_pl.html
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~30"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~31"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~49"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~50"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/whm_step_system.html b/docs/interface/whm_step_system.html
index 52fabe6a5..34f23a00d 100644
--- a/docs/interface/whm_step_system.html
+++ b/docs/interface/whm_step_system.html
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~50"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~51"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/whm_step_tp.html b/docs/interface/whm_step_tp.html
index 9882956c8..d1f5ec601 100644
--- a/docs/interface/whm_step_tp.html
+++ b/docs/interface/whm_step_tp.html
@@ -361,7 +361,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~31"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~32"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -376,7 +376,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~51"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~52"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/interface/whm_util_append_pl.html b/docs/interface/whm_util_append_pl.html
index 9440efd0e..45fc2551e 100644
--- a/docs/interface/whm_util_append_pl.html
+++ b/docs/interface/whm_util_append_pl.html
@@ -246,17 +246,17 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M111.32,-54C119.53,-54 128.06,-54 136.46,-54"/>
 <polygon fill="#000000" stroke="#000000" points="136.6,-57.5 146.6,-54 136.6,-50.5 136.6,-57.5"/>
 </g>
-<!-- util_append -->
+<!-- util_exit -->
 <g id="interface~~whm_util_append_pl~~CallsGraph_node3" class="node">
-<title>util_append</title>
-<polygon fill="#777777" stroke="#777777" points="369,-108 301,-108 301,-84 369,-84 369,-108"/>
-<text text-anchor="middle" x="335" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="362,-108 308,-108 308,-84 362,-84 362,-108"/>
+<text text-anchor="middle" x="335" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~whm_util_append_pl&#45;&gt;util_append -->
+<!-- proc~whm_util_append_pl&#45;&gt;util_exit -->
 <g id="interface~~whm_util_append_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_util_append_pl&#45;&gt;util_append</title>
-<path fill="none" stroke="#000000" d="M240.9,-66.04C256.49,-71.05 274.69,-76.91 290.85,-82.11"/>
-<polygon fill="#000000" stroke="#000000" points="290.01,-85.52 300.6,-85.25 292.16,-78.86 290.01,-85.52"/>
+<title>proc~whm_util_append_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M240.9,-66.04C258.78,-71.79 280.09,-78.65 297.81,-84.35"/>
+<polygon fill="#000000" stroke="#000000" points="297.19,-87.83 307.78,-87.56 299.33,-81.17 297.19,-87.83"/>
 </g>
 <!-- util_append_pl -->
 <g id="interface~~whm_util_append_pl~~CallsGraph_node4" class="node">
@@ -270,17 +270,17 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M258.09,-54C266.63,-54 275.42,-54 283.85,-54"/>
 <polygon fill="#000000" stroke="#000000" points="283.93,-57.5 293.93,-54 283.93,-50.5 283.93,-57.5"/>
 </g>
-<!-- util_exit -->
+<!-- util_append -->
 <g id="interface~~whm_util_append_pl~~CallsGraph_node5" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="362,-24 308,-24 308,0 362,0 362,-24"/>
-<text text-anchor="middle" x="335" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<title>util_append</title>
+<polygon fill="#777777" stroke="#777777" points="369,-24 301,-24 301,0 369,0 369,-24"/>
+<text text-anchor="middle" x="335" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </g>
-<!-- proc~whm_util_append_pl&#45;&gt;util_exit -->
+<!-- proc~whm_util_append_pl&#45;&gt;util_append -->
 <g id="interface~~whm_util_append_pl~~CallsGraph_edge4" class="edge">
-<title>proc~whm_util_append_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M240.9,-41.96C258.78,-36.21 280.09,-29.35 297.81,-23.65"/>
-<polygon fill="#000000" stroke="#000000" points="299.33,-26.83 307.78,-20.44 297.19,-20.17 299.33,-26.83"/>
+<title>proc~whm_util_append_pl&#45;&gt;util_append</title>
+<path fill="none" stroke="#000000" d="M240.9,-41.96C256.49,-36.95 274.69,-31.09 290.85,-25.89"/>
+<polygon fill="#000000" stroke="#000000" points="292.16,-29.14 300.6,-22.75 290.01,-22.48 292.16,-29.14"/>
 </g>
 </g>
 </svg>
@@ -414,7 +414,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask~3"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/interface/whm_util_fill_pl.html b/docs/interface/whm_util_fill_pl.html
index 58a7421ec..fbee585e0 100644
--- a/docs/interface/whm_util_fill_pl.html
+++ b/docs/interface/whm_util_fill_pl.html
@@ -246,39 +246,39 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M85.12,-54C93.32,-54 102.01,-54 110.5,-54"/>
 <polygon fill="#000000" stroke="#000000" points="110.7,-57.5 120.7,-54 110.7,-50.5 110.7,-57.5"/>
 </g>
-<!-- util_fill -->
-<g id="interface~~whm_util_fill_pl~~CallsGraph_node3" class="node">
-<title>util_fill</title>
-<polygon fill="#777777" stroke="#777777" points="297,-108 243,-108 243,-84 297,-84 297,-108"/>
-<text text-anchor="middle" x="270" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
-</g>
-<!-- proc~whm_util_fill_pl&#45;&gt;util_fill -->
-<g id="interface~~whm_util_fill_pl~~CallsGraph_edge4" class="edge">
-<title>proc~whm_util_fill_pl&#45;&gt;util_fill</title>
-<path fill="none" stroke="#000000" d="M194.45,-66.04C206.65,-70.94 220.86,-76.65 233.58,-81.76"/>
-<polygon fill="#000000" stroke="#000000" points="232.37,-85.05 242.96,-85.53 234.98,-78.56 232.37,-85.05"/>
-</g>
 <!-- util_fill_pl -->
-<g id="interface~~whm_util_fill_pl~~CallsGraph_node4" class="node">
+<g id="interface~~whm_util_fill_pl~~CallsGraph_node3" class="node">
 <title>util_fill_pl</title>
-<polygon fill="#777777" stroke="#777777" points="298,-66 242,-66 242,-42 298,-42 298,-66"/>
-<text text-anchor="middle" x="270" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
+<polygon fill="#777777" stroke="#777777" points="298,-108 242,-108 242,-84 298,-84 298,-108"/>
+<text text-anchor="middle" x="270" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
 </g>
 <!-- proc~whm_util_fill_pl&#45;&gt;util_fill_pl -->
-<g id="interface~~whm_util_fill_pl~~CallsGraph_edge3" class="edge">
+<g id="interface~~whm_util_fill_pl~~CallsGraph_edge2" class="edge">
 <title>proc~whm_util_fill_pl&#45;&gt;util_fill_pl</title>
-<path fill="none" stroke="#000000" d="M206.1,-54C214.59,-54 223.46,-54 231.78,-54"/>
-<polygon fill="#000000" stroke="#000000" points="231.95,-57.5 241.95,-54 231.95,-50.5 231.95,-57.5"/>
+<path fill="none" stroke="#000000" d="M194.45,-66.04C206.25,-70.78 219.92,-76.27 232.31,-81.25"/>
+<polygon fill="#000000" stroke="#000000" points="231.32,-84.63 241.91,-85.11 233.93,-78.13 231.32,-84.63"/>
 </g>
 <!-- util_exit -->
-<g id="interface~~whm_util_fill_pl~~CallsGraph_node5" class="node">
+<g id="interface~~whm_util_fill_pl~~CallsGraph_node4" class="node">
 <title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="297,-24 243,-24 243,0 297,0 297,-24"/>
-<text text-anchor="middle" x="270" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#777777" stroke="#777777" points="297,-66 243,-66 243,-42 297,-42 297,-66"/>
+<text text-anchor="middle" x="270" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
 <!-- proc~whm_util_fill_pl&#45;&gt;util_exit -->
-<g id="interface~~whm_util_fill_pl~~CallsGraph_edge2" class="edge">
+<g id="interface~~whm_util_fill_pl~~CallsGraph_edge3" class="edge">
 <title>proc~whm_util_fill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M206.1,-54C214.92,-54 224.17,-54 232.77,-54"/>
+<polygon fill="#000000" stroke="#000000" points="232.87,-57.5 242.87,-54 232.87,-50.5 232.87,-57.5"/>
+</g>
+<!-- util_fill -->
+<g id="interface~~whm_util_fill_pl~~CallsGraph_node5" class="node">
+<title>util_fill</title>
+<polygon fill="#777777" stroke="#777777" points="297,-24 243,-24 243,0 297,0 297,-24"/>
+<text text-anchor="middle" x="270" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
+</g>
+<!-- proc~whm_util_fill_pl&#45;&gt;util_fill -->
+<g id="interface~~whm_util_fill_pl~~CallsGraph_edge4" class="edge">
+<title>proc~whm_util_fill_pl&#45;&gt;util_fill</title>
 <path fill="none" stroke="#000000" d="M194.45,-41.96C206.65,-37.06 220.86,-31.35 233.58,-26.24"/>
 <polygon fill="#000000" stroke="#000000" points="234.98,-29.44 242.96,-22.47 232.37,-22.95 234.98,-29.44"/>
 </g>
diff --git a/docs/interface/whm_util_spill_pl.html b/docs/interface/whm_util_spill_pl.html
index c3d985ee0..9613284d8 100644
--- a/docs/interface/whm_util_spill_pl.html
+++ b/docs/interface/whm_util_spill_pl.html
@@ -246,41 +246,41 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M93.35,-54C101.53,-54 110.14,-54 118.57,-54"/>
 <polygon fill="#000000" stroke="#000000" points="118.72,-57.5 128.72,-54 118.72,-50.5 118.72,-57.5"/>
 </g>
-<!-- util_spill -->
+<!-- util_exit -->
 <g id="interface~~whm_util_spill_pl~~CallsGraph_node3" class="node">
-<title>util_spill</title>
+<title>util_exit</title>
 <polygon fill="#777777" stroke="#777777" points="317,-108 263,-108 263,-84 317,-84 317,-108"/>
-<text text-anchor="middle" x="290" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+<text text-anchor="middle" x="290" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~whm_util_spill_pl&#45;&gt;util_spill -->
-<g id="interface~~whm_util_spill_pl~~CallsGraph_edge4" class="edge">
-<title>proc~whm_util_spill_pl&#45;&gt;util_spill</title>
+<!-- proc~whm_util_spill_pl&#45;&gt;util_exit -->
+<g id="interface~~whm_util_spill_pl~~CallsGraph_edge2" class="edge">
+<title>proc~whm_util_spill_pl&#45;&gt;util_exit</title>
 <path fill="none" stroke="#000000" d="M208.74,-66.04C222.67,-71.24 239.01,-77.34 253.3,-82.67"/>
 <polygon fill="#000000" stroke="#000000" points="252.22,-86.01 262.81,-86.22 254.67,-79.45 252.22,-86.01"/>
 </g>
-<!-- util_exit -->
+<!-- util_spill_pl -->
 <g id="interface~~whm_util_spill_pl~~CallsGraph_node4" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="317,-66 263,-66 263,-42 317,-42 317,-66"/>
-<text text-anchor="middle" x="290" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<title>util_spill_pl</title>
+<polygon fill="#777777" stroke="#777777" points="322,-66 258,-66 258,-42 322,-42 322,-66"/>
+<text text-anchor="middle" x="290" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
 </g>
-<!-- proc~whm_util_spill_pl&#45;&gt;util_exit -->
+<!-- proc~whm_util_spill_pl&#45;&gt;util_spill_pl -->
 <g id="interface~~whm_util_spill_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_util_spill_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M222.26,-54C232.44,-54 243.11,-54 252.84,-54"/>
-<polygon fill="#000000" stroke="#000000" points="252.98,-57.5 262.98,-54 252.98,-50.5 252.98,-57.5"/>
+<title>proc~whm_util_spill_pl&#45;&gt;util_spill_pl</title>
+<path fill="none" stroke="#000000" d="M222.26,-54C230.64,-54 239.35,-54 247.59,-54"/>
+<polygon fill="#000000" stroke="#000000" points="247.74,-57.5 257.74,-54 247.74,-50.5 247.74,-57.5"/>
 </g>
-<!-- util_spill_pl -->
+<!-- util_spill -->
 <g id="interface~~whm_util_spill_pl~~CallsGraph_node5" class="node">
-<title>util_spill_pl</title>
-<polygon fill="#777777" stroke="#777777" points="322,-24 258,-24 258,0 322,0 322,-24"/>
-<text text-anchor="middle" x="290" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
+<title>util_spill</title>
+<polygon fill="#777777" stroke="#777777" points="317,-24 263,-24 263,0 317,0 317,-24"/>
+<text text-anchor="middle" x="290" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
 </g>
-<!-- proc~whm_util_spill_pl&#45;&gt;util_spill_pl -->
-<g id="interface~~whm_util_spill_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_util_spill_pl&#45;&gt;util_spill_pl</title>
-<path fill="none" stroke="#000000" d="M208.74,-41.96C221.05,-37.37 235.26,-32.06 248.26,-27.21"/>
-<polygon fill="#000000" stroke="#000000" points="249.78,-30.38 257.92,-23.6 247.33,-23.82 249.78,-30.38"/>
+<!-- proc~whm_util_spill_pl&#45;&gt;util_spill -->
+<g id="interface~~whm_util_spill_pl~~CallsGraph_edge4" class="edge">
+<title>proc~whm_util_spill_pl&#45;&gt;util_spill</title>
+<path fill="none" stroke="#000000" d="M208.74,-41.96C222.67,-36.76 239.01,-30.66 253.3,-25.33"/>
+<polygon fill="#000000" stroke="#000000" points="254.67,-28.55 262.81,-21.78 252.22,-21.99 254.67,-28.55"/>
 </g>
 </g>
 </svg>
diff --git a/docs/lists/files.html b/docs/lists/files.html
index 87a173929..75c6ec1d6 100644
--- a/docs/lists/files.html
+++ b/docs/lists/files.html
@@ -229,6 +229,8 @@ <h1>Source Files</h1>
 			 
 			   <tr><td><a href='../sourcefile/util_peri.f90.html'>util_peri.f90</a></td><td></td></tr>
 			 
+			   <tr><td><a href='../sourcefile/util_rescale.f90.html'>util_rescale.f90</a></td><td></td></tr>
+			 
 			   <tr><td><a href='../sourcefile/util_resize.f90.html'>util_resize.f90</a></td><td></td></tr>
 			 
 			   <tr><td><a href='../sourcefile/util_set.f90.html'>util_set.f90</a></td><td></td></tr>
@@ -266,1461 +268,1477 @@ <h1>Source Files</h1>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: file~~graph~~FileGraph Pages: 1 -->
-<svg id="filegraphFileGraph" width="641pt" height="1523pt"
- viewBox="0.00 0.00 641.00 1523.08" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="file~~graph~~FileGraph" class="graph" transform="scale(0.63 0.63) rotate(0) translate(4 2422)">
+<svg id="filegraphFileGraph" width="641pt" height="1549pt"
+ viewBox="0.00 0.00 641.00 1549.45" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="file~~graph~~FileGraph" class="graph" transform="scale(0.63 0.63) rotate(0) translate(4 2464)">
 <title>file~~graph~~FileGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2422 1017,-2422 1017,4 -4,4"/>
-<!-- sourcefile~rmvs_discard.f90 -->
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 1017,-2464 1017,4 -4,4"/>
+<!-- sourcefile~symba_io.f90 -->
 <g id="file~~graph~~FileGraph_node1" class="node">
-<title>sourcefile~rmvs_discard.f90</title>
-<g id="a_file~~graph~~FileGraph_node1"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="129,-2250 35,-2250 35,-2226 129,-2226 129,-2250"/>
-<text text-anchor="middle" x="82" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
+<title>sourcefile~symba_io.f90</title>
+<g id="a_file~~graph~~FileGraph_node1"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120,-2124 44,-2124 44,-2100 120,-2100 120,-2124"/>
+<text text-anchor="middle" x="82" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~helio_drift.f90 -->
 <g id="file~~graph~~FileGraph_node2" class="node">
-<title>sourcefile~util_exit.f90</title>
-<g id="a_file~~graph~~FileGraph_node2"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="115.5,-906 48.5,-906 48.5,-882 115.5,-882 115.5,-906"/>
-<text text-anchor="middle" x="82" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_file~~graph~~FileGraph_node2"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120.5,-1368 43.5,-1368 43.5,-1344 120.5,-1344 120.5,-1368"/>
+<text text-anchor="middle" x="82" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_setup.f90 -->
+<!-- sourcefile~symba_discard.f90 -->
 <g id="file~~graph~~FileGraph_node3" class="node">
-<title>sourcefile~symba_setup.f90</title>
-<g id="a_file~~graph~~FileGraph_node3"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="129,-2082 35,-2082 35,-2058 129,-2058 129,-2082"/>
-<text text-anchor="middle" x="82" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_file~~graph~~FileGraph_node3"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="133.5,-2082 30.5,-2082 30.5,-2058 133.5,-2058 133.5,-2082"/>
+<text text-anchor="middle" x="82" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_coord.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="file~~graph~~FileGraph_node4" class="node">
-<title>sourcefile~util_coord.f90</title>
-<g id="a_file~~graph~~FileGraph_node4"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120.5,-864 43.5,-864 43.5,-840 120.5,-840 120.5,-864"/>
-<text text-anchor="middle" x="82" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
+<title>sourcefile~util_append.f90</title>
+<g id="a_file~~graph~~FileGraph_node4"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="125,-906 39,-906 39,-882 125,-882 125,-906"/>
+<text text-anchor="middle" x="82" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
+<!-- sourcefile~symba_fragmentation.f90 -->
 <g id="file~~graph~~FileGraph_node5" class="node">
-<title>sourcefile~helio_gr.f90</title>
-<g id="a_file~~graph~~FileGraph_node5"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="116,-1284 48,-1284 48,-1260 116,-1260 116,-1284"/>
-<text text-anchor="middle" x="82" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
+<title>sourcefile~symba_fragmentation.f90</title>
+<g id="a_file~~graph~~FileGraph_node5"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="149,-2040 15,-2040 15,-2016 149,-2016 149,-2040"/>
+<text text-anchor="middle" x="82" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="file~~graph~~FileGraph_node6" class="node">
-<title>sourcefile~tides_spin_step.f90</title>
-<g id="a_file~~graph~~FileGraph_node6"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="134.5,-822 29.5,-822 29.5,-798 134.5,-798 134.5,-822"/>
-<text text-anchor="middle" x="82" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~symba_kick.f90 -->
-<g id="file~~graph~~FileGraph_node7" class="node">
-<title>sourcefile~symba_kick.f90</title>
-<g id="a_file~~graph~~FileGraph_node7"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="125,-2040 39,-2040 39,-2016 125,-2016 125,-2040"/>
-<text text-anchor="middle" x="82" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_file~~graph~~FileGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="1013,-1476 907,-1476 907,-1452 1013,-1452 1013,-1476"/>
+<text text-anchor="middle" x="960" y="-1461.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_encounter_check.f90 -->
-<g id="file~~graph~~FileGraph_node8" class="node">
-<title>sourcefile~symba_encounter_check.f90</title>
-<g id="a_file~~graph~~FileGraph_node8"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="157,-1998 7,-1998 7,-1974 157,-1974 157,-1998"/>
-<text text-anchor="middle" x="82" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="file~~graph~~FileGraph_node10" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_file~~graph~~FileGraph_node10"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="583,-1658 488,-1658 488,-1634 583,-1634 583,-1658"/>
+<text text-anchor="middle" x="535.5" y="-1643.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="file~~graph~~FileGraph_node9" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_file~~graph~~FileGraph_node9"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="452,-2332 334,-2332 334,-2308 452,-2308 452,-2332"/>
-<text text-anchor="middle" x="393" y="-2317.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
-</a>
-</g>
+<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge18" class="edge">
+<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" d="M672.5,-1606C647.24,-1617.38 617.91,-1626.49 592.96,-1633.12"/>
+<polygon fill="#000000" stroke="#000000" points="592.08,-1629.73 583.27,-1635.63 593.83,-1636.51 592.08,-1629.73"/>
 </g>
 <!-- sourcefile~swiftest.f90 -->
-<g id="file~~graph~~FileGraph_node14" class="node">
+<g id="file~~graph~~FileGraph_node16" class="node">
 <title>sourcefile~swiftest.f90</title>
-<g id="a_file~~graph~~FileGraph_node14"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="282,-1311 216,-1311 216,-1287 282,-1287 282,-1311"/>
-<text text-anchor="middle" x="249" y="-1296.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<g id="a_file~~graph~~FileGraph_node16"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="282,-1305 216,-1305 216,-1281 282,-1281 282,-1305"/>
+<text text-anchor="middle" x="249" y="-1290.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="file~~graph~~FileGraph_edge28" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" d="M391.08,-2307.82C383.26,-2204.5 327.34,-1476.53 298,-1384 290.52,-1360.42 275.97,-1336.09 264.84,-1319.54"/>
-<polygon fill="#000000" stroke="#000000" points="267.63,-1317.44 259.07,-1311.2 261.88,-1321.41 267.63,-1317.44"/>
+<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="file~~graph~~FileGraph_edge36" class="edge">
+<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" d="M392,-1444C340.11,-1403.56 289.92,-1343.87 265.46,-1313.05"/>
+<polygon fill="#000000" stroke="#000000" points="268.19,-1310.87 259.26,-1305.16 262.69,-1315.19 268.19,-1310.87"/>
+<path fill="none" stroke="#000000" d="M906.85,-1473.8C880.48,-1478.15 847.91,-1482.6 818.5,-1484"/>
+<path fill="none" stroke="#000000" d="M534.5,-1444C503.29,-1444.96 418.62,-1463.19 394,-1444"/>
+<path fill="none" stroke="#000000" d="M816.5,-1484C791.71,-1485.18 782.2,-1481.87 764,-1465 735.41,-1438.49 760.74,-1406.17 728,-1385 687.32,-1358.7 665.13,-1370.2 619,-1385 576.08,-1398.77 581.56,-1442.61 536.5,-1444"/>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
-<g id="file~~graph~~FileGraph_node28" class="node">
-<title>sourcefile~operator_cross.f90</title>
-<g id="a_file~~graph~~FileGraph_node28"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="133.5,-2418 30.5,-2418 30.5,-2394 133.5,-2394 133.5,-2418"/>
-<text text-anchor="middle" x="82" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="file~~graph~~FileGraph_node20" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_file~~graph~~FileGraph_node20"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="444.5,-1576 341.5,-1576 341.5,-1552 444.5,-1552 444.5,-1576"/>
+<text text-anchor="middle" x="393" y="-1561.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~operator_cross.f90 -->
-<g id="file~~graph~~FileGraph_edge61" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~operator_cross.f90</title>
-<path fill="none" stroke="#000000" d="M333.91,-2314.22C293.9,-2312.89 240.8,-2316.57 200,-2339 177.25,-2351.51 185.71,-2370.77 164,-2385 157.74,-2389.11 150.71,-2392.41 143.48,-2395.07"/>
-<polygon fill="#000000" stroke="#000000" points="141.97,-2391.88 133.55,-2398.31 144.14,-2398.53 141.97,-2391.88"/>
+<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge46" class="edge">
+<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" d="M816.5,-1484C759.18,-1486.73 773.72,-1543.33 728,-1578 706.62,-1594.22 698.97,-1594.97 674.5,-1606"/>
+<path fill="none" stroke="#000000" d="M534.5,-1606C515.67,-1604.62 471.48,-1590.73 437.64,-1579.3"/>
+<polygon fill="#000000" stroke="#000000" points="438.56,-1575.91 427.96,-1576 436.3,-1582.54 438.56,-1575.91"/>
+<path fill="none" stroke="#000000" d="M672.5,-1606C617.39,-1630.83 596.78,-1610.42 536.5,-1606"/>
 </g>
-<!-- sourcefile~operator_mag.f90 -->
-<g id="file~~graph~~FileGraph_node58" class="node">
-<title>sourcefile~operator_mag.f90</title>
-<g id="a_file~~graph~~FileGraph_node58"><a xlink:href=".././sourcefile/operator_mag.f90.html" xlink:title="operator_mag.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="298,-2372 200,-2372 200,-2348 298,-2348 298,-2372"/>
-<text text-anchor="middle" x="249" y="-2357.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag.f90</text>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="file~~graph~~FileGraph_node29" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_file~~graph~~FileGraph_node29"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="728,-1418 619,-1418 619,-1394 728,-1394 728,-1418"/>
+<text text-anchor="middle" x="673.5" y="-1403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~operator_mag.f90 -->
-<g id="file~~graph~~FileGraph_edge118" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~operator_mag.f90</title>
-<path fill="none" stroke="#000000" d="M349.4,-2332C334.79,-2336.12 318.26,-2340.77 302.93,-2345.09"/>
-<polygon fill="#000000" stroke="#000000" points="301.74,-2341.79 293.07,-2347.87 303.64,-2348.53 301.74,-2341.79"/>
+<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="file~~graph~~FileGraph_edge62" class="edge">
+<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" d="M816.5,-1484C767.57,-1486.26 719.5,-1449.35 693.76,-1425.51"/>
+<polygon fill="#000000" stroke="#000000" points="695.86,-1422.68 686.21,-1418.3 691.02,-1427.74 695.86,-1422.68"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="file~~graph~~FileGraph_node10" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_file~~graph~~FileGraph_node10"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="582.5,-1414 488.5,-1414 488.5,-1390 582.5,-1390 582.5,-1414"/>
-<text text-anchor="middle" x="535.5" y="-1399.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<!-- sourcefile~swiftest_classes.f90 -->
+<g id="file~~graph~~FileGraph_node51" class="node">
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_file~~graph~~FileGraph_node51"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="871,-1456 764,-1456 764,-1432 871,-1432 871,-1456"/>
+<text text-anchor="middle" x="817.5" y="-1441.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_gr.f90 -->
-<g id="file~~graph~~FileGraph_edge9" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_gr.f90</title>
-<path fill="none" stroke="#000000" d="M392,-1398C329.9,-1386.73 312.63,-1405.76 250,-1398"/>
-<path fill="none" stroke="#000000" d="M248,-1398C188.69,-1390.66 214.16,-1325.49 164,-1293 152.74,-1285.71 139.07,-1280.94 126.19,-1277.83"/>
-<polygon fill="#000000" stroke="#000000" points="126.6,-1274.34 116.09,-1275.68 125.14,-1281.19 126.6,-1274.34"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="file~~graph~~FileGraph_edge30" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" d="M488.26,-1404.17C460.68,-1404.6 425.09,-1403.64 394,-1398"/>
-<path fill="none" stroke="#000000" d="M392,-1398C339.48,-1388.47 291.48,-1344.5 267.01,-1318.47"/>
-<polygon fill="#000000" stroke="#000000" points="269.53,-1316.04 260.19,-1311.03 264.37,-1320.77 269.53,-1316.04"/>
+<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge105" class="edge">
+<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" d="M906.68,-1456.55C898.47,-1455.38 889.91,-1454.17 881.5,-1452.97"/>
+<polygon fill="#000000" stroke="#000000" points="881.72,-1449.46 871.33,-1451.52 880.74,-1456.39 881.72,-1449.46"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
-<g id="file~~graph~~FileGraph_node20" class="node">
-<title>sourcefile~helio_drift.f90</title>
-<g id="a_file~~graph~~FileGraph_node20"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120.5,-1452 43.5,-1452 43.5,-1428 120.5,-1428 120.5,-1452"/>
-<text text-anchor="middle" x="82" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="file~~graph~~FileGraph_node64" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_file~~graph~~FileGraph_node64"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="452,-1618 334,-1618 334,-1594 452,-1594 452,-1618"/>
+<text text-anchor="middle" x="393" y="-1603.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_drift.f90 -->
-<g id="file~~graph~~FileGraph_edge44" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_drift.f90</title>
-<path fill="none" stroke="#000000" d="M248,-1398C246.49,-1397.81 178.95,-1415.17 130.76,-1427.62"/>
-<polygon fill="#000000" stroke="#000000" points="129.6,-1424.31 120.8,-1430.2 131.35,-1431.08 129.6,-1424.31"/>
+<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="file~~graph~~FileGraph_edge129" class="edge">
+<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" d="M534.5,-1606C510.98,-1604.28 485.18,-1603.85 462.18,-1604"/>
+<polygon fill="#000000" stroke="#000000" points="462.14,-1600.5 452.17,-1604.1 462.21,-1607.5 462.14,-1600.5"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
-<g id="file~~graph~~FileGraph_node47" class="node">
-<title>sourcefile~helio_coord.f90</title>
-<g id="a_file~~graph~~FileGraph_node47"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="125,-1410 39,-1410 39,-1386 125,-1386 125,-1410"/>
-<text text-anchor="middle" x="82" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="file~~graph~~FileGraph_node66" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_file~~graph~~FileGraph_node66"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="582.5,-1496 488.5,-1496 488.5,-1472 582.5,-1472 582.5,-1496"/>
+<text text-anchor="middle" x="535.5" y="-1481.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_coord.f90 -->
-<g id="file~~graph~~FileGraph_edge94" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_coord.f90</title>
-<path fill="none" stroke="#000000" d="M248,-1398C210.55,-1393.36 167.95,-1393.5 135.41,-1394.72"/>
-<polygon fill="#000000" stroke="#000000" points="135.07,-1391.23 125.22,-1395.15 135.36,-1398.23 135.07,-1391.23"/>
+<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge134" class="edge">
+<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" d="M816.5,-1484C739.01,-1487.58 649.34,-1486.69 592.77,-1485.52"/>
+<polygon fill="#000000" stroke="#000000" points="592.68,-1482.02 582.61,-1485.3 592.53,-1489.02 592.68,-1482.02"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="file~~graph~~FileGraph_node48" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_file~~graph~~FileGraph_node48"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="444.5,-1566 341.5,-1566 341.5,-1542 444.5,-1542 444.5,-1566"/>
-<text text-anchor="middle" x="393" y="-1551.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="file~~graph~~FileGraph_node68" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_file~~graph~~FileGraph_node68"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="720.5,-1536 626.5,-1536 626.5,-1512 720.5,-1512 720.5,-1536"/>
+<text text-anchor="middle" x="673.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="file~~graph~~FileGraph_edge98" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" d="M523.24,-1414.18C498.99,-1440.42 441.63,-1502.47 412.17,-1534.35"/>
-<polygon fill="#000000" stroke="#000000" points="409.53,-1532.04 405.31,-1541.76 414.67,-1536.79 409.53,-1532.04"/>
+<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge138" class="edge">
+<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" d="M816.5,-1484C780.11,-1485.68 740.32,-1497.84 712.15,-1508.32"/>
+<polygon fill="#000000" stroke="#000000" points="710.78,-1505.09 702.69,-1511.93 713.28,-1511.63 710.78,-1505.09"/>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
-<g id="file~~graph~~FileGraph_node54" class="node">
-<title>sourcefile~helio_kick.f90</title>
-<g id="a_file~~graph~~FileGraph_node54"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120.5,-1326 43.5,-1326 43.5,-1302 120.5,-1302 120.5,-1326"/>
-<text text-anchor="middle" x="82" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
+<!-- sourcefile~rmvs_kick.f90 -->
+<g id="file~~graph~~FileGraph_node7" class="node">
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_file~~graph~~FileGraph_node7"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="121,-2460 43,-2460 43,-2436 121,-2436 121,-2460"/>
+<text text-anchor="middle" x="82" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_kick.f90 -->
-<g id="file~~graph~~FileGraph_edge110" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_kick.f90</title>
-<path fill="none" stroke="#000000" d="M248,-1398C201.69,-1392.27 206.05,-1355.24 164,-1335 153.57,-1329.98 141.79,-1326.05 130.51,-1323.02"/>
-<polygon fill="#000000" stroke="#000000" points="131.32,-1319.62 120.77,-1320.58 129.62,-1326.41 131.32,-1319.62"/>
-</g>
-<!-- sourcefile~helio_step.f90 -->
-<g id="file~~graph~~FileGraph_node60" class="node">
-<title>sourcefile~helio_step.f90</title>
-<g id="a_file~~graph~~FileGraph_node60"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="121.5,-1368 42.5,-1368 42.5,-1344 121.5,-1344 121.5,-1368"/>
-<text text-anchor="middle" x="82" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
+<!-- sourcefile~rmvs_setup.f90 -->
+<g id="file~~graph~~FileGraph_node8" class="node">
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_file~~graph~~FileGraph_node8"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="125,-2418 39,-2418 39,-2394 125,-2394 125,-2418"/>
+<text text-anchor="middle" x="82" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_step.f90 -->
-<g id="file~~graph~~FileGraph_edge121" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_step.f90</title>
-<path fill="none" stroke="#000000" d="M248,-1398C245.01,-1397.63 179.01,-1380.72 131.4,-1368.47"/>
-<polygon fill="#000000" stroke="#000000" points="132.11,-1365.04 121.55,-1365.94 130.36,-1371.82 132.11,-1365.04"/>
-</g>
-<!-- sourcefile~fragmentation.f90 -->
-<g id="file~~graph~~FileGraph_node11" class="node">
-<title>sourcefile~fragmentation.f90</title>
-<g id="a_file~~graph~~FileGraph_node11"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="130.5,-738 33.5,-738 33.5,-714 130.5,-714 130.5,-738"/>
-<text text-anchor="middle" x="82" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
+<!-- sourcefile~util_solve.f90 -->
+<g id="file~~graph~~FileGraph_node9" class="node">
+<title>sourcefile~util_solve.f90</title>
+<g id="a_file~~graph~~FileGraph_node9"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="119.5,-864 44.5,-864 44.5,-840 119.5,-840 119.5,-864"/>
+<text text-anchor="middle" x="82" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="file~~graph~~FileGraph_node12" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_file~~graph~~FileGraph_node12"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="583,-1610 488,-1610 488,-1586 583,-1586 583,-1610"/>
-<text text-anchor="middle" x="535.5" y="-1595.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_kick.f90 -->
+<g id="file~~graph~~FileGraph_edge12" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_kick.f90</title>
+<path fill="none" stroke="#000000" d="M248,-2364C205.13,-2382.43 206.05,-2406.76 164,-2427 153.78,-2431.92 142.25,-2435.79 131.17,-2438.8"/>
+<polygon fill="#000000" stroke="#000000" points="130.02,-2435.48 121.17,-2441.32 131.73,-2442.27 130.02,-2435.48"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_setup.f90 -->
+<g id="file~~graph~~FileGraph_edge14" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_setup.f90</title>
+<path fill="none" stroke="#000000" d="M248,-2364C211.7,-2379.61 168.32,-2390.37 135.15,-2397.09"/>
+<polygon fill="#000000" stroke="#000000" points="134.34,-2393.68 125.21,-2399.04 135.7,-2400.55 134.34,-2393.68"/>
+</g>
+<!-- sourcefile~rmvs_discard.f90 -->
+<g id="file~~graph~~FileGraph_node11" class="node">
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_file~~graph~~FileGraph_node11"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="129,-2376 35,-2376 35,-2352 129,-2352 129,-2376"/>
+<text text-anchor="middle" x="82" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_discard.f90 -->
-<g id="file~~graph~~FileGraph_edge1" class="edge">
+<g id="file~~graph~~FileGraph_edge20" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_discard.f90</title>
-<path fill="none" stroke="#000000" d="M248,-2280C247.36,-2280.33 186.66,-2264.77 139.08,-2252.5"/>
-<polygon fill="#000000" stroke="#000000" points="139.71,-2249.05 129.15,-2249.94 137.96,-2255.83 139.71,-2249.05"/>
+<path fill="none" stroke="#000000" d="M248,-2364C213.9,-2378.66 172.04,-2378.48 139.01,-2374.72"/>
+<polygon fill="#000000" stroke="#000000" points="139.43,-2371.25 129.07,-2373.46 138.54,-2378.19 139.43,-2371.25"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="file~~graph~~FileGraph_edge29" class="edge">
+<g id="file~~graph~~FileGraph_edge31" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" d="M519.79,-1585.98C485.42,-1557.56 397.88,-1483.23 334,-1412 306.77,-1381.64 279.35,-1342.85 263.56,-1319.52"/>
-<polygon fill="#000000" stroke="#000000" points="266.39,-1317.46 257.91,-1311.1 260.58,-1321.36 266.39,-1317.46"/>
-</g>
-<!-- sourcefile~rmvs_step.f90 -->
-<g id="file~~graph~~FileGraph_node22" class="node">
-<title>sourcefile~rmvs_step.f90</title>
-<g id="a_file~~graph~~FileGraph_node22"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="122,-2376 42,-2376 42,-2352 122,-2352 122,-2376"/>
-<text text-anchor="middle" x="82" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
-</a>
+<path fill="none" stroke="#000000" d="M506.41,-1633.99C499.79,-1630.22 493.17,-1625.55 488,-1620 462.27,-1592.34 469.57,-1576.44 452,-1543 428.29,-1497.85 434.22,-1475.35 394,-1444"/>
 </g>
-</g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_step.f90 -->
-<g id="file~~graph~~FileGraph_edge48" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_step.f90</title>
-<path fill="none" stroke="#000000" d="M248,-2280C225.63,-2291.52 220.02,-2294.77 200,-2310 182.72,-2323.14 183.07,-2332.64 164,-2343 154.23,-2348.31 143.06,-2352.32 132.19,-2355.34"/>
-<polygon fill="#000000" stroke="#000000" points="131.19,-2351.98 122.36,-2357.84 132.91,-2358.77 131.19,-2351.98"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge44" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" d="M510.1,-1633.92C502.75,-1629.87 494.82,-1625.09 488,-1620 470.11,-1606.66 470.91,-1596.84 452,-1585 449.36,-1583.35 446.58,-1581.8 443.71,-1580.36"/>
+<polygon fill="#000000" stroke="#000000" points="444.91,-1577.06 434.36,-1576.08 442,-1583.42 444.91,-1577.06"/>
 </g>
 <!-- sourcefile~rmvs_encounter_check.f90 -->
-<g id="file~~graph~~FileGraph_node32" class="node">
+<g id="file~~graph~~FileGraph_node43" class="node">
 <title>sourcefile~rmvs_encounter_check.f90</title>
-<g id="a_file~~graph~~FileGraph_node32"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<g id="a_file~~graph~~FileGraph_node43"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
 <polygon fill="#f0ad4e" stroke="#f0ad4e" points="153,-2334 11,-2334 11,-2310 153,-2310 153,-2334"/>
 <text text-anchor="middle" x="82" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_encounter_check.f90 -->
-<g id="file~~graph~~FileGraph_edge67" class="edge">
+<g id="file~~graph~~FileGraph_edge90" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_encounter_check.f90</title>
-<path fill="none" stroke="#000000" d="M248,-2280C221.9,-2293.44 191.22,-2302.77 163.45,-2309.16"/>
-<polygon fill="#000000" stroke="#000000" points="162.37,-2305.81 153.36,-2311.38 163.88,-2312.65 162.37,-2305.81"/>
+<path fill="none" stroke="#000000" d="M248,-2364C247.34,-2364.28 187.01,-2348.83 139.5,-2336.59"/>
+<polygon fill="#000000" stroke="#000000" points="140.14,-2333.14 129.58,-2334.04 138.39,-2339.92 140.14,-2333.14"/>
+</g>
+<!-- sourcefile~rmvs_step.f90 -->
+<g id="file~~graph~~FileGraph_node44" class="node">
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_file~~graph~~FileGraph_node44"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="122,-2292 42,-2292 42,-2268 122,-2268 122,-2292"/>
+<text text-anchor="middle" x="82" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_step.f90 -->
+<g id="file~~graph~~FileGraph_edge92" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_step.f90</title>
+<path fill="none" stroke="#000000" d="M248,-2364C205.13,-2382.43 206.05,-2321.24 164,-2301 154.08,-2296.22 142.93,-2292.44 132.15,-2289.47"/>
+<polygon fill="#000000" stroke="#000000" points="132.96,-2286.06 122.41,-2286.97 131.22,-2292.84 132.96,-2286.06"/>
 </g>
 <!-- sourcefile~rmvs_util.f90 -->
-<g id="file~~graph~~FileGraph_node41" class="node">
+<g id="file~~graph~~FileGraph_node67" class="node">
 <title>sourcefile~rmvs_util.f90</title>
-<g id="a_file~~graph~~FileGraph_node41"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="118.5,-2292 45.5,-2292 45.5,-2268 118.5,-2268 118.5,-2292"/>
-<text text-anchor="middle" x="82" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
+<g id="a_file~~graph~~FileGraph_node67"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="118.5,-2250 45.5,-2250 45.5,-2226 118.5,-2226 118.5,-2250"/>
+<text text-anchor="middle" x="82" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_util.f90 -->
-<g id="file~~graph~~FileGraph_edge82" class="edge">
+<g id="file~~graph~~FileGraph_edge136" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_util.f90</title>
-<path fill="none" stroke="#000000" d="M248,-2280C211.14,-2298.98 163.23,-2296.5 128.54,-2290.76"/>
-<polygon fill="#000000" stroke="#000000" points="129.14,-2287.31 118.67,-2288.98 127.89,-2294.2 129.14,-2287.31"/>
-</g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="file~~graph~~FileGraph_edge96" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" d="M496.11,-1585.98C479.38,-1580.74 459.6,-1574.54 441.92,-1569.01"/>
-<polygon fill="#000000" stroke="#000000" points="442.93,-1565.66 432.35,-1566.01 440.84,-1572.34 442.93,-1565.66"/>
+<path fill="none" stroke="#000000" d="M532.55,-1658.04C516.92,-1752.73 408.24,-2373.91 250,-2364"/>
+<path fill="none" stroke="#000000" d="M248,-2364C193.1,-2387.6 214.16,-2291.49 164,-2259 153.52,-2252.21 140.95,-2247.61 128.87,-2244.5"/>
+<polygon fill="#000000" stroke="#000000" points="129.43,-2241.04 118.9,-2242.22 127.87,-2247.86 129.43,-2241.04"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
-<g id="file~~graph~~FileGraph_node57" class="node">
-<title>sourcefile~rmvs_kick.f90</title>
-<g id="a_file~~graph~~FileGraph_node57"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="121,-2208 43,-2208 43,-2184 121,-2184 121,-2208"/>
-<text text-anchor="middle" x="82" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
+<!-- sourcefile~operator_cross.f90 -->
+<g id="file~~graph~~FileGraph_node12" class="node">
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_file~~graph~~FileGraph_node12"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="133.5,-2208 30.5,-2208 30.5,-2184 133.5,-2184 133.5,-2208"/>
+<text text-anchor="middle" x="82" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_kick.f90 -->
-<g id="file~~graph~~FileGraph_edge116" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_kick.f90</title>
-<path fill="none" stroke="#000000" d="M248,-2280C206.51,-2301.37 206.05,-2237.24 164,-2217 153.78,-2212.08 142.25,-2208.21 131.17,-2205.2"/>
-<polygon fill="#000000" stroke="#000000" points="131.73,-2201.73 121.17,-2202.68 130.02,-2208.52 131.73,-2201.73"/>
-</g>
-<!-- sourcefile~rmvs_setup.f90 -->
-<g id="file~~graph~~FileGraph_node62" class="node">
-<title>sourcefile~rmvs_setup.f90</title>
-<g id="a_file~~graph~~FileGraph_node62"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="125,-2166 39,-2166 39,-2142 125,-2142 125,-2166"/>
-<text text-anchor="middle" x="82" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
+<!-- sourcefile~fragmentation.f90 -->
+<g id="file~~graph~~FileGraph_node13" class="node">
+<title>sourcefile~fragmentation.f90</title>
+<g id="a_file~~graph~~FileGraph_node13"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="130.5,-822 33.5,-822 33.5,-798 130.5,-798 130.5,-822"/>
+<text text-anchor="middle" x="82" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_setup.f90 -->
-<g id="file~~graph~~FileGraph_edge125" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~rmvs_setup.f90</title>
-<path fill="none" stroke="#000000" d="M248,-2280C188.35,-2276.26 214.16,-2207.49 164,-2175 155.22,-2169.31 144.98,-2165.16 134.78,-2162.14"/>
-<polygon fill="#000000" stroke="#000000" points="135.63,-2158.74 125.07,-2159.57 133.84,-2165.51 135.63,-2158.74"/>
-<path fill="none" stroke="#000000" d="M504.24,-1610.24C498.14,-1613.89 492.3,-1618.44 488,-1624 449.23,-1674.15 471.55,-1701.7 452,-1762 375.79,-1997.06 496.62,-2295.45 250,-2280"/>
-</g>
-<!-- sourcefile~swiftest_driver.f90 -->
-<g id="file~~graph~~FileGraph_node13" class="node">
-<title>sourcefile~swiftest_driver.f90</title>
-<g id="a_file~~graph~~FileGraph_node13"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="131,-1242 33,-1242 33,-1218 131,-1218 131,-1242"/>
-<text text-anchor="middle" x="82" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
+<!-- sourcefile~tides_spin_step.f90 -->
+<g id="file~~graph~~FileGraph_node14" class="node">
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_file~~graph~~FileGraph_node14"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="134.5,-780 29.5,-780 29.5,-756 134.5,-756 134.5,-780"/>
+<text text-anchor="middle" x="82" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_discard.f90 -->
-<g id="file~~graph~~FileGraph_edge2" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_discard.f90</title>
-<path fill="none" stroke="#000000" d="M238.68,-1311.12C227.15,-1326.9 208.06,-1355.81 200,-1384 174.52,-1473.07 222.26,-2144.97 164,-2217 157.63,-2224.88 148.71,-2230.02 139.12,-2233.34"/>
-<polygon fill="#000000" stroke="#000000" points="138.04,-2230 129.36,-2236.08 139.94,-2236.74 138.04,-2230"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_exit.f90 -->
-<g id="file~~graph~~FileGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_exit.f90</title>
-<path fill="none" stroke="#000000" d="M247.01,-1286.7C242,-1227.3 217.47,-970.56 164,-915 154.03,-904.64 139.66,-899.15 125.79,-896.32"/>
-<polygon fill="#000000" stroke="#000000" points="126.27,-892.85 115.84,-894.69 125.14,-899.76 126.27,-892.85"/>
+<!-- sourcefile~util_coord.f90 -->
+<g id="file~~graph~~FileGraph_node15" class="node">
+<title>sourcefile~util_coord.f90</title>
+<g id="a_file~~graph~~FileGraph_node15"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120.5,-738 43.5,-738 43.5,-714 120.5,-714 120.5,-738"/>
+<text text-anchor="middle" x="82" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_setup.f90 -->
-<g id="file~~graph~~FileGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_setup.f90</title>
-<path fill="none" stroke="#000000" d="M238.73,-1311.14C227.25,-1326.93 208.22,-1355.86 200,-1384 179.26,-1455.03 210.85,-1991.72 164,-2049 157.58,-2056.84 148.65,-2061.97 139.05,-2065.28"/>
-<polygon fill="#000000" stroke="#000000" points="137.98,-2061.95 129.29,-2068.02 139.87,-2068.69 137.98,-2061.95"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_coord.f90 -->
-<g id="file~~graph~~FileGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_coord.f90</title>
-<path fill="none" stroke="#000000" d="M247.3,-1286.66C243.43,-1223.32 222.82,-935.39 164,-873 155.27,-863.74 143.03,-858.36 130.71,-855.29"/>
-<polygon fill="#000000" stroke="#000000" points="131.37,-851.85 120.88,-853.29 129.98,-858.71 131.37,-851.85"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_io.f90 -->
+<g id="file~~graph~~FileGraph_edge1" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_io.f90</title>
+<path fill="none" stroke="#000000" d="M239.31,-1305.23C227.89,-1322.04 208.33,-1353.69 200,-1384 179.16,-1459.85 213.7,-2030.04 164,-2091 155.59,-2101.32 142.82,-2106.94 129.89,-2109.91"/>
+<polygon fill="#000000" stroke="#000000" points="129.26,-2106.46 120.04,-2111.69 130.5,-2113.35 129.26,-2106.46"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_gr.f90 -->
-<g id="file~~graph~~FileGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_gr.f90</title>
-<path fill="none" stroke="#000000" d="M215.79,-1293.73C190.24,-1289.55 154.26,-1283.66 126.2,-1279.07"/>
-<polygon fill="#000000" stroke="#000000" points="126.69,-1275.6 116.26,-1277.44 125.56,-1282.51 126.69,-1275.6"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_drift.f90 -->
+<g id="file~~graph~~FileGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_drift.f90</title>
+<path fill="none" stroke="#000000" d="M226.8,-1305.16C210.15,-1314.33 186.14,-1326.7 164,-1335 153.38,-1338.98 141.7,-1342.49 130.59,-1345.44"/>
+<polygon fill="#000000" stroke="#000000" points="129.43,-1342.13 120.61,-1347.99 131.16,-1348.91 129.43,-1342.13"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~tides_spin_step.f90 -->
-<g id="file~~graph~~FileGraph_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~tides_spin_step.f90</title>
-<path fill="none" stroke="#000000" d="M247.54,-1286.79C244.77,-1220.11 228.24,-900.33 164,-831 158.58,-825.16 151.77,-820.85 144.41,-817.7"/>
-<polygon fill="#000000" stroke="#000000" points="145.45,-814.35 134.85,-814.28 143.09,-820.94 145.45,-814.35"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_discard.f90 -->
+<g id="file~~graph~~FileGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_discard.f90</title>
+<path fill="none" stroke="#000000" d="M239.32,-1305.23C227.92,-1322.05 208.38,-1353.7 200,-1384 180.28,-1455.32 210.85,-1991.72 164,-2049 158.51,-2055.71 151.18,-2060.43 143.17,-2063.73"/>
+<polygon fill="#000000" stroke="#000000" points="141.88,-2060.47 133.52,-2066.98 144.11,-2067.1 141.88,-2060.47"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_kick.f90 -->
-<g id="file~~graph~~FileGraph_edge14" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_kick.f90</title>
-<path fill="none" stroke="#000000" d="M238.74,-1311.14C227.28,-1326.94 208.27,-1355.87 200,-1384 180.45,-1450.52 208,-1953.41 164,-2007 156.66,-2015.94 146.04,-2021.36 134.9,-2024.57"/>
-<polygon fill="#000000" stroke="#000000" points="133.99,-2021.18 125.04,-2026.86 135.57,-2028 133.99,-2021.18"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_append.f90 -->
+<g id="file~~graph~~FileGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_append.f90</title>
+<path fill="none" stroke="#000000" d="M246.98,-1280.89C241.83,-1222.41 216.77,-969.65 164,-915 156.27,-907 145.92,-901.91 135.21,-898.7"/>
+<polygon fill="#000000" stroke="#000000" points="135.88,-895.26 125.34,-896.25 134.2,-902.05 135.88,-895.26"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_encounter_check.f90 -->
-<g id="file~~graph~~FileGraph_edge16" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_encounter_check.f90</title>
-<path fill="none" stroke="#000000" d="M238.76,-1311.15C227.32,-1326.95 208.33,-1355.89 200,-1384 181.63,-1446.02 205.15,-1915.1 164,-1965 163.37,-1965.76 162.72,-1966.49 162.05,-1967.2"/>
-<polygon fill="#000000" stroke="#000000" points="159.49,-1964.79 154.09,-1973.9 163.99,-1970.15 159.49,-1964.79"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_fragmentation.f90 -->
+<g id="file~~graph~~FileGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_fragmentation.f90</title>
+<path fill="none" stroke="#000000" d="M239.34,-1305.23C227.96,-1322.06 208.43,-1353.72 200,-1384 181.4,-1450.8 208,-1953.41 164,-2007 162.1,-2009.32 159.98,-2011.39 157.69,-2013.26"/>
+<polygon fill="#000000" stroke="#000000" points="155.71,-2010.37 149.3,-2018.81 159.57,-2016.21 155.71,-2010.37"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fragmentation.f90 -->
-<g id="file~~graph~~FileGraph_edge21" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fragmentation.f90</title>
-<path fill="none" stroke="#000000" d="M247.9,-1286.61C247.04,-1212.69 239,-830.13 164,-747 157.71,-740.03 149.44,-735.24 140.58,-731.97"/>
-<polygon fill="#000000" stroke="#000000" points="141.39,-728.56 130.8,-729 139.35,-735.26 141.39,-728.56"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_kick.f90 -->
+<g id="file~~graph~~FileGraph_edge11" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_kick.f90</title>
+<path fill="none" stroke="#000000" d="M239.23,-1305.21C227.74,-1322 208.08,-1353.62 200,-1384 170.2,-1496.06 236.54,-2336.53 164,-2427 155.97,-2437.02 143.83,-2442.62 131.38,-2445.66"/>
+<polygon fill="#000000" stroke="#000000" points="130.55,-2442.26 121.39,-2447.59 131.88,-2449.13 130.55,-2442.26"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_driver.f90 -->
-<g id="file~~graph~~FileGraph_edge25" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_driver.f90</title>
-<path fill="none" stroke="#000000" d="M224.91,-1286.81C216.97,-1282.53 208.05,-1277.63 200,-1273 183.75,-1263.64 181.26,-1258.32 164,-1251 156.76,-1247.93 148.96,-1245.22 141.16,-1242.85"/>
-<polygon fill="#000000" stroke="#000000" points="141.9,-1239.42 131.32,-1240.04 139.97,-1246.15 141.9,-1239.42"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_setup.f90 -->
+<g id="file~~graph~~FileGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_setup.f90</title>
+<path fill="none" stroke="#000000" d="M239.24,-1305.21C227.75,-1322 208.1,-1353.63 200,-1384 171.32,-1491.53 233.68,-2298.22 164,-2385 156.75,-2394.02 146.17,-2399.47 135.04,-2402.68"/>
+<polygon fill="#000000" stroke="#000000" points="134.13,-2399.3 125.18,-2404.97 135.71,-2406.12 134.13,-2399.3"/>
 </g>
-<!-- sourcefile~kick.f90 -->
-<g id="file~~graph~~FileGraph_node15" class="node">
-<title>sourcefile~kick.f90</title>
-<g id="a_file~~graph~~FileGraph_node15"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109,-696 55,-696 55,-672 109,-672 109,-696"/>
-<text text-anchor="middle" x="82" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
-</a>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_solve.f90 -->
+<g id="file~~graph~~FileGraph_edge16" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_solve.f90</title>
+<path fill="none" stroke="#000000" d="M247.27,-1280.83C243.28,-1218.38 222.1,-934.47 164,-873 155.02,-863.5 142.35,-858.09 129.7,-855.06"/>
+<polygon fill="#000000" stroke="#000000" points="130.1,-851.57 119.62,-853.11 128.77,-858.44 130.1,-851.57"/>
 </g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_discard.f90 -->
+<g id="file~~graph~~FileGraph_edge19" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_discard.f90</title>
+<path fill="none" stroke="#000000" d="M239.25,-1305.21C227.77,-1322.01 208.13,-1353.63 200,-1384 172.44,-1487.01 230.83,-2259.91 164,-2343 157.65,-2350.9 148.75,-2356.05 139.15,-2359.37"/>
+<polygon fill="#000000" stroke="#000000" points="138.08,-2356.03 129.4,-2362.11 139.97,-2362.77 138.08,-2356.03"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~kick.f90 -->
-<g id="file~~graph~~FileGraph_edge34" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~kick.f90</title>
-<path fill="none" stroke="#000000" d="M248.05,-1286.69C248.07,-1209.74 244.46,-795.12 164,-705 152.81,-692.47 135.2,-686.97 119.25,-684.71"/>
-<polygon fill="#000000" stroke="#000000" points="119.4,-681.21 109.09,-683.66 118.68,-688.17 119.4,-681.21"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~operator_cross.f90 -->
+<g id="file~~graph~~FileGraph_edge21" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~operator_cross.f90</title>
+<path fill="none" stroke="#000000" d="M239.28,-1305.22C227.84,-1322.03 208.25,-1353.66 200,-1384 176.92,-1468.9 219.41,-2106.66 164,-2175 158.54,-2181.73 151.23,-2186.47 143.22,-2189.77"/>
+<polygon fill="#000000" stroke="#000000" points="141.93,-2186.51 133.57,-2193.02 144.17,-2193.14 141.93,-2186.51"/>
 </g>
-<!-- sourcefile~symba_collision.f90 -->
-<g id="file~~graph~~FileGraph_node16" class="node">
-<title>sourcefile~symba_collision.f90</title>
-<g id="a_file~~graph~~FileGraph_node16"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="135,-1956 29,-1956 29,-1932 135,-1932 135,-1956"/>
-<text text-anchor="middle" x="82" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
-</a>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~fragmentation.f90 -->
+<g id="file~~graph~~FileGraph_edge24" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~fragmentation.f90</title>
+<path fill="none" stroke="#000000" d="M247.51,-1280.95C244.62,-1215.11 227.52,-899.4 164,-831 157.61,-824.12 149.29,-819.38 140.41,-816.13"/>
+<polygon fill="#000000" stroke="#000000" points="141.21,-812.71 130.63,-813.16 139.18,-819.41 141.21,-812.71"/>
 </g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~tides_spin_step.f90 -->
+<g id="file~~graph~~FileGraph_edge26" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~tides_spin_step.f90</title>
+<path fill="none" stroke="#000000" d="M247.71,-1280.79C245.79,-1211.11 232.87,-864.26 164,-789 158.55,-783.05 151.65,-778.69 144.19,-775.51"/>
+<polygon fill="#000000" stroke="#000000" points="145.1,-772.12 134.51,-772.09 142.77,-778.72 145.1,-772.12"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_collision.f90 -->
-<g id="file~~graph~~FileGraph_edge37" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_collision.f90</title>
-<path fill="none" stroke="#000000" d="M238.78,-1311.15C227.36,-1326.97 208.39,-1355.91 200,-1384 165.63,-1499.02 240.59,-1830.56 164,-1923 158.85,-1929.21 152.12,-1933.72 144.74,-1936.97"/>
-<polygon fill="#000000" stroke="#000000" points="143.34,-1933.75 135.12,-1940.44 145.71,-1940.34 143.34,-1933.75"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_coord.f90 -->
+<g id="file~~graph~~FileGraph_edge28" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_coord.f90</title>
+<path fill="none" stroke="#000000" d="M247.88,-1280.75C246.9,-1207.62 238.27,-829.18 164,-747 155.39,-737.47 143.07,-732.02 130.63,-728.97"/>
+<polygon fill="#000000" stroke="#000000" points="131.19,-725.51 120.7,-727 129.83,-732.38 131.19,-725.51"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~obl.f90 -->
 <g id="file~~graph~~FileGraph_node17" class="node">
-<title>sourcefile~tides_getacch_pl.f90</title>
-<g id="a_file~~graph~~FileGraph_node17"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="137.5,-654 26.5,-654 26.5,-630 137.5,-630 137.5,-654"/>
-<text text-anchor="middle" x="82" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
+<title>sourcefile~obl.f90</title>
+<g id="a_file~~graph~~FileGraph_node17"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109,-696 55,-696 55,-672 109,-672 109,-696"/>
+<text text-anchor="middle" x="82" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~obl.f90 -->
 <g id="file~~graph~~FileGraph_edge38" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~tides_getacch_pl.f90</title>
-<path fill="none" stroke="#000000" d="M248.17,-1286.87C249.03,-1207.32 249.97,-760.19 164,-663 159.34,-657.74 153.56,-653.71 147.23,-650.65"/>
-<polygon fill="#000000" stroke="#000000" points="148.23,-647.28 137.64,-646.81 145.62,-653.77 148.23,-647.28"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~obl.f90</title>
+<path fill="none" stroke="#000000" d="M248.03,-1280.82C247.94,-1204.64 243.73,-794.18 164,-705 152.8,-692.47 135.19,-686.98 119.24,-684.72"/>
+<polygon fill="#000000" stroke="#000000" points="119.4,-681.22 109.09,-683.66 118.67,-688.18 119.4,-681.22"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~whm_drift.f90 -->
 <g id="file~~graph~~FileGraph_node18" class="node">
-<title>sourcefile~io.f90</title>
-<g id="a_file~~graph~~FileGraph_node18"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109,-612 55,-612 55,-588 109,-588 109,-612"/>
-<text text-anchor="middle" x="82" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_file~~graph~~FileGraph_node18"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120.5,-1704 43.5,-1704 43.5,-1680 120.5,-1680 120.5,-1704"/>
+<text text-anchor="middle" x="82" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~io.f90 -->
-<g id="file~~graph~~FileGraph_edge40" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~io.f90</title>
-<path fill="none" stroke="#000000" d="M248.28,-1286.89C249.93,-1204.38 255.43,-725.2 164,-621 152.92,-608.37 135.31,-602.87 119.35,-600.63"/>
-<polygon fill="#000000" stroke="#000000" points="119.48,-597.12 109.17,-599.58 118.76,-604.09 119.48,-597.12"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_drift.f90 -->
+<g id="file~~graph~~FileGraph_edge39" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_drift.f90</title>
+<path fill="none" stroke="#000000" d="M239.82,-1305.03C228.81,-1321.89 209.5,-1353.84 200,-1384 180.69,-1445.31 206.43,-1622.72 164,-1671 155.53,-1680.64 143.25,-1686.13 130.81,-1689.18"/>
+<polygon fill="#000000" stroke="#000000" points="129.99,-1685.78 120.86,-1691.14 131.35,-1692.64 129.99,-1685.78"/>
 </g>
-<!-- sourcefile~setup.f90 -->
+<!-- sourcefile~gr.f90 -->
 <g id="file~~graph~~FileGraph_node19" class="node">
-<title>sourcefile~setup.f90</title>
-<g id="a_file~~graph~~FileGraph_node19"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="110.5,-570 53.5,-570 53.5,-546 110.5,-546 110.5,-570"/>
-<text text-anchor="middle" x="82" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
+<title>sourcefile~gr.f90</title>
+<g id="a_file~~graph~~FileGraph_node19"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109,-654 55,-654 55,-630 109,-630 109,-654"/>
+<text text-anchor="middle" x="82" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~setup.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~gr.f90 -->
 <g id="file~~graph~~FileGraph_edge42" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~setup.f90</title>
-<path fill="none" stroke="#000000" d="M247.41,-1286.96C242.88,-1197.25 212.67,-634.87 164,-579 153.28,-566.69 136.36,-561.14 120.75,-558.79"/>
-<polygon fill="#000000" stroke="#000000" points="121.09,-555.31 110.76,-557.67 120.31,-562.26 121.09,-555.31"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_drift.f90 -->
-<g id="file~~graph~~FileGraph_edge45" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_drift.f90</title>
-<path fill="none" stroke="#000000" d="M240.94,-1311.22C224.8,-1338.76 184.99,-1404.42 164,-1419 154.22,-1425.79 142.39,-1430.39 130.84,-1433.5"/>
-<polygon fill="#000000" stroke="#000000" points="129.74,-1430.16 120.81,-1435.86 131.35,-1436.97 129.74,-1430.16"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~gr.f90</title>
+<path fill="none" stroke="#000000" d="M248.15,-1280.99C248.9,-1202.17 249.23,-759.23 164,-663 152.86,-650.42 135.25,-644.92 119.29,-642.67"/>
+<polygon fill="#000000" stroke="#000000" points="119.44,-639.17 109.13,-641.62 118.72,-646.13 119.44,-639.17"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~whm_gr.f90 -->
 <g id="file~~graph~~FileGraph_node21" class="node">
-<title>sourcefile~whm_coord.f90</title>
-<g id="a_file~~graph~~FileGraph_node21"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="125,-2124 39,-2124 39,-2100 125,-2100 125,-2124"/>
-<text text-anchor="middle" x="82" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_file~~graph~~FileGraph_node21"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="116,-1662 48,-1662 48,-1638 116,-1638 116,-1662"/>
+<text text-anchor="middle" x="82" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_coord.f90 -->
-<g id="file~~graph~~FileGraph_edge46" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_coord.f90</title>
-<path fill="none" stroke="#000000" d="M238.71,-1311.13C227.22,-1326.92 208.17,-1355.84 200,-1384 178.08,-1459.54 213.7,-2030.04 164,-2091 156.69,-2099.97 146.08,-2105.39 134.94,-2108.6"/>
-<polygon fill="#000000" stroke="#000000" points="134.03,-2105.22 125.08,-2110.89 135.61,-2112.04 134.03,-2105.22"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_step.f90 -->
-<g id="file~~graph~~FileGraph_edge49" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_step.f90</title>
-<path fill="none" stroke="#000000" d="M238.65,-1311.11C227.1,-1326.89 207.98,-1355.79 200,-1384 170.96,-1486.6 230.83,-2259.91 164,-2343 156.1,-2352.83 144.24,-2358.4 132.02,-2361.48"/>
-<polygon fill="#000000" stroke="#000000" points="131.33,-2358.05 122.21,-2363.45 132.71,-2364.92 131.33,-2358.05"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_gr.f90 -->
+<g id="file~~graph~~FileGraph_edge47" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_gr.f90</title>
+<path fill="none" stroke="#000000" d="M239.91,-1305.06C229,-1321.95 209.81,-1353.95 200,-1384 165.84,-1488.62 237.52,-1547.1 164,-1629 154.4,-1639.7 140.11,-1645.27 126.2,-1648.07"/>
+<polygon fill="#000000" stroke="#000000" points="125.53,-1644.63 116.21,-1649.65 126.63,-1651.54 125.53,-1644.63"/>
 </g>
-<!-- sourcefile~whm_kick.f90 -->
+<!-- sourcefile~whm_coord.f90 -->
 <g id="file~~graph~~FileGraph_node23" class="node">
-<title>sourcefile~whm_kick.f90</title>
-<g id="a_file~~graph~~FileGraph_node23"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120.5,-1662 43.5,-1662 43.5,-1638 120.5,-1638 120.5,-1662"/>
-<text text-anchor="middle" x="82" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_file~~graph~~FileGraph_node23"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="125,-1620 39,-1620 39,-1596 125,-1596 125,-1620"/>
+<text text-anchor="middle" x="82" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_kick.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_coord.f90 -->
 <g id="file~~graph~~FileGraph_edge50" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_kick.f90</title>
-<path fill="none" stroke="#000000" d="M239.13,-1311.26C228.08,-1327.2 209.5,-1356.26 200,-1384 164.34,-1488.12 237.52,-1547.1 164,-1629 155.42,-1638.55 143.12,-1644.01 130.67,-1647.07"/>
-<polygon fill="#000000" stroke="#000000" points="129.87,-1643.66 120.74,-1649.03 131.23,-1650.53 129.87,-1643.66"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_coord.f90</title>
+<path fill="none" stroke="#000000" d="M240.04,-1305.11C229.28,-1322.04 210.26,-1354.1 200,-1384 170.27,-1470.67 226.21,-1519.73 164,-1587 156.37,-1595.25 145.96,-1600.43 135.15,-1603.64"/>
+<polygon fill="#000000" stroke="#000000" points="134.06,-1600.31 125.17,-1606.07 135.71,-1607.11 134.06,-1600.31"/>
 </g>
-<!-- sourcefile~util_solve.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="file~~graph~~FileGraph_node24" class="node">
-<title>sourcefile~util_solve.f90</title>
-<g id="a_file~~graph~~FileGraph_node24"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="119.5,-528 44.5,-528 44.5,-504 119.5,-504 119.5,-528"/>
-<text text-anchor="middle" x="82" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
+<title>sourcefile~util_set.f90</title>
+<g id="a_file~~graph~~FileGraph_node24"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="114,-612 50,-612 50,-588 114,-588 114,-612"/>
+<text text-anchor="middle" x="82" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_solve.f90 -->
-<g id="file~~graph~~FileGraph_edge52" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_solve.f90</title>
-<path fill="none" stroke="#000000" d="M247.48,-1286.86C243.42,-1193.87 215.39,-596.37 164,-537 155.37,-527.03 142.68,-521.49 129.9,-518.49"/>
-<polygon fill="#000000" stroke="#000000" points="130.17,-514.98 119.7,-516.6 128.89,-521.87 130.17,-514.98"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_set.f90 -->
+<g id="file~~graph~~FileGraph_edge53" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_set.f90</title>
+<path fill="none" stroke="#000000" d="M248.26,-1280.99C249.8,-1199.21 254.69,-724.24 164,-621 154.03,-609.65 138.79,-604.05 124.21,-601.41"/>
+<polygon fill="#000000" stroke="#000000" points="124.69,-597.95 114.3,-600.02 123.71,-604.88 124.69,-597.95"/>
 </g>
-<!-- sourcefile~whm_gr.f90 -->
+<!-- sourcefile~orbel.f90 -->
 <g id="file~~graph~~FileGraph_node25" class="node">
-<title>sourcefile~whm_gr.f90</title>
-<g id="a_file~~graph~~FileGraph_node25"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="116,-1620 48,-1620 48,-1596 116,-1596 116,-1620"/>
-<text text-anchor="middle" x="82" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
+<title>sourcefile~orbel.f90</title>
+<g id="a_file~~graph~~FileGraph_node25"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109.5,-570 54.5,-570 54.5,-546 109.5,-546 109.5,-570"/>
+<text text-anchor="middle" x="82" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_gr.f90 -->
-<g id="file~~graph~~FileGraph_edge54" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_gr.f90</title>
-<path fill="none" stroke="#000000" d="M239.45,-1311.03C228.56,-1326.95 209.97,-1356.25 200,-1384 169.03,-1470.24 226.21,-1519.73 164,-1587 154.24,-1597.56 139.92,-1603.09 126.02,-1605.91"/>
-<polygon fill="#000000" stroke="#000000" points="125.37,-1602.47 116.05,-1607.51 126.48,-1609.38 125.37,-1602.47"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~orbel.f90 -->
+<g id="file~~graph~~FileGraph_edge55" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~orbel.f90</title>
+<path fill="none" stroke="#000000" d="M247.38,-1280.78C242.76,-1190.91 212.24,-634.33 164,-579 153.04,-566.43 135.61,-560.91 119.72,-558.64"/>
+<polygon fill="#000000" stroke="#000000" points="119.9,-555.14 109.59,-557.59 119.17,-562.11 119.9,-555.14"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
+<!-- sourcefile~util_resize.f90 -->
 <g id="file~~graph~~FileGraph_node26" class="node">
-<title>sourcefile~whm_util.f90</title>
-<g id="a_file~~graph~~FileGraph_node26"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="118.5,-1578 45.5,-1578 45.5,-1554 118.5,-1554 118.5,-1578"/>
-<text text-anchor="middle" x="82" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
+<title>sourcefile~util_resize.f90</title>
+<g id="a_file~~graph~~FileGraph_node26"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="121.5,-528 42.5,-528 42.5,-504 121.5,-504 121.5,-528"/>
+<text text-anchor="middle" x="82" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_util.f90 -->
-<g id="file~~graph~~FileGraph_edge56" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_util.f90</title>
-<path fill="none" stroke="#000000" d="M239.64,-1311.1C228.95,-1327.1 210.58,-1356.48 200,-1384 173.69,-1452.44 214.97,-1492.29 164,-1545 154.67,-1554.65 141.51,-1560.07 128.51,-1563.06"/>
-<polygon fill="#000000" stroke="#000000" points="127.86,-1559.62 118.67,-1564.9 129.14,-1566.5 127.86,-1559.62"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_resize.f90 -->
+<g id="file~~graph~~FileGraph_edge57" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_resize.f90</title>
+<path fill="none" stroke="#000000" d="M247.48,-1280.96C243.36,-1188.69 215.02,-595.89 164,-537 155.83,-527.56 144.01,-522.1 131.92,-519"/>
+<polygon fill="#000000" stroke="#000000" points="132.28,-515.5 121.78,-516.91 130.87,-522.35 132.28,-515.5"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~eucl.f90 -->
 <g id="file~~graph~~FileGraph_node27" class="node">
-<title>sourcefile~util_append.f90</title>
-<g id="a_file~~graph~~FileGraph_node27"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="125,-486 39,-486 39,-462 125,-462 125,-486"/>
-<text text-anchor="middle" x="82" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
+<title>sourcefile~eucl.f90</title>
+<g id="a_file~~graph~~FileGraph_node27"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109,-486 55,-486 55,-462 109,-462 109,-486"/>
+<text text-anchor="middle" x="82" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_append.f90 -->
-<g id="file~~graph~~FileGraph_edge58" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_append.f90</title>
-<path fill="none" stroke="#000000" d="M247.55,-1286.81C243.94,-1190.76 218.13,-557.89 164,-495 156.52,-486.31 145.96,-480.99 134.93,-477.77"/>
-<polygon fill="#000000" stroke="#000000" points="135.71,-474.36 125.18,-475.46 134.1,-481.17 135.71,-474.36"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~eucl.f90 -->
+<g id="file~~graph~~FileGraph_edge59" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~eucl.f90</title>
+<path fill="none" stroke="#000000" d="M247.55,-1280.9C243.88,-1185.57 217.75,-557.41 164,-495 153.03,-482.27 135.44,-476.75 119.45,-474.54"/>
+<polygon fill="#000000" stroke="#000000" points="119.56,-471.03 109.26,-473.51 118.86,-477.99 119.56,-471.03"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~operator_cross.f90 -->
-<g id="file~~graph~~FileGraph_edge60" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~operator_cross.f90</title>
-<path fill="none" stroke="#000000" d="M238.65,-1311.11C227.08,-1326.89 207.96,-1355.78 200,-1384 169.78,-1491.11 233.68,-2298.22 164,-2385 158.57,-2391.76 151.28,-2396.51 143.28,-2399.82"/>
-<polygon fill="#000000" stroke="#000000" points="141.99,-2396.56 133.63,-2403.07 144.23,-2403.19 141.99,-2396.56"/>
+<!-- sourcefile~setup.f90 -->
+<g id="file~~graph~~FileGraph_node28" class="node">
+<title>sourcefile~setup.f90</title>
+<g id="a_file~~graph~~FileGraph_node28"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="110.5,-444 53.5,-444 53.5,-420 110.5,-420 110.5,-444"/>
+<text text-anchor="middle" x="82" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
+</a>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~setup.f90 -->
+<g id="file~~graph~~FileGraph_edge61" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~setup.f90</title>
+<path fill="none" stroke="#000000" d="M247.19,-1280.99C240.39,-1180.76 192.31,-486.04 164,-453 153.38,-440.6 136.47,-435.04 120.85,-432.71"/>
+<polygon fill="#000000" stroke="#000000" points="121.17,-429.22 110.84,-431.6 120.4,-436.18 121.17,-429.22"/>
+</g>
+<!-- sourcefile~whm_kick.f90 -->
 <g id="file~~graph~~FileGraph_node30" class="node">
-<title>sourcefile~symba_drift.f90</title>
-<g id="a_file~~graph~~FileGraph_node30"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="125,-1914 39,-1914 39,-1890 125,-1890 125,-1914"/>
-<text text-anchor="middle" x="82" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_file~~graph~~FileGraph_node30"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120.5,-1578 43.5,-1578 43.5,-1554 120.5,-1554 120.5,-1578"/>
+<text text-anchor="middle" x="82" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_drift.f90 -->
-<g id="file~~graph~~FileGraph_edge64" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_drift.f90</title>
-<path fill="none" stroke="#000000" d="M238.81,-1311.16C227.42,-1326.98 208.47,-1355.93 200,-1384 168,-1490.01 234.89,-1795.93 164,-1881 156.66,-1889.8 146.16,-1895.18 135.13,-1898.4"/>
-<polygon fill="#000000" stroke="#000000" points="134.3,-1895 125.37,-1900.7 135.91,-1901.81 134.3,-1895"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_kick.f90 -->
+<g id="file~~graph~~FileGraph_edge63" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_kick.f90</title>
+<path fill="none" stroke="#000000" d="M240.23,-1305.17C229.69,-1322.19 210.92,-1354.33 200,-1384 174.67,-1452.81 214.97,-1492.29 164,-1545 155.16,-1554.15 142.88,-1559.49 130.56,-1562.57"/>
+<polygon fill="#000000" stroke="#000000" points="129.83,-1559.15 120.73,-1564.58 131.23,-1566 129.83,-1559.15"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~whm_util.f90 -->
 <g id="file~~graph~~FileGraph_node31" class="node">
-<title>sourcefile~util_spill.f90</title>
-<g id="a_file~~graph~~FileGraph_node31"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="116,-444 48,-444 48,-420 116,-420 116,-444"/>
-<text text-anchor="middle" x="82" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_file~~graph~~FileGraph_node31"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="118.5,-1536 45.5,-1536 45.5,-1512 118.5,-1512 118.5,-1536"/>
+<text text-anchor="middle" x="82" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_spill.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_util.f90 -->
 <g id="file~~graph~~FileGraph_edge65" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_spill.f90</title>
-<path fill="none" stroke="#000000" d="M247.19,-1286.91C240.42,-1185.96 192.5,-486.29 164,-453 154.57,-441.99 140.19,-436.37 126.14,-433.61"/>
-<polygon fill="#000000" stroke="#000000" points="126.47,-430.12 116.05,-432.08 125.41,-437.04 126.47,-430.12"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_util.f90</title>
+<path fill="none" stroke="#000000" d="M240.71,-1305C230.56,-1322.08 212.08,-1354.59 200,-1384 179.01,-1435.12 203.85,-1464.72 164,-1503 154.49,-1512.13 141.55,-1517.43 128.8,-1520.46"/>
+<polygon fill="#000000" stroke="#000000" points="127.83,-1517.09 118.68,-1522.44 129.17,-1523.96 127.83,-1517.09"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~util_peri.f90 -->
+<g id="file~~graph~~FileGraph_node32" class="node">
+<title>sourcefile~util_peri.f90</title>
+<g id="a_file~~graph~~FileGraph_node32"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="116,-402 48,-402 48,-378 116,-378 116,-402"/>
+<text text-anchor="middle" x="82" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_peri.f90 -->
 <g id="file~~graph~~FileGraph_edge68" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_encounter_check.f90</title>
-<path fill="none" stroke="#000000" d="M238.66,-1311.12C227.11,-1326.89 208.01,-1355.8 200,-1384 172.15,-1482.09 227.97,-2221.6 164,-2301 163.03,-2302.2 162,-2303.34 160.92,-2304.42"/>
-<polygon fill="#000000" stroke="#000000" points="158.71,-2301.7 153.1,-2310.69 163.09,-2307.17 158.71,-2301.7"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_peri.f90</title>
+<path fill="none" stroke="#000000" d="M247.23,-1280.72C240.68,-1176.69 193.66,-445.78 164,-411 154.59,-399.97 140.22,-394.35 126.17,-391.59"/>
+<polygon fill="#000000" stroke="#000000" points="126.49,-388.1 116.08,-390.06 125.44,-395.02 126.49,-388.1"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
+<!-- sourcefile~helio_coord.f90 -->
 <g id="file~~graph~~FileGraph_node33" class="node">
-<title>sourcefile~orbel.f90</title>
-<g id="a_file~~graph~~FileGraph_node33"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109.5,-402 54.5,-402 54.5,-378 109.5,-378 109.5,-402"/>
-<text text-anchor="middle" x="82" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
+<title>sourcefile~helio_coord.f90</title>
+<g id="a_file~~graph~~FileGraph_node33"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="125,-1410 39,-1410 39,-1386 125,-1386 125,-1410"/>
+<text text-anchor="middle" x="82" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~orbel.f90 -->
-<g id="file~~graph~~FileGraph_edge69" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~orbel.f90</title>
-<path fill="none" stroke="#000000" d="M247.26,-1286.97C240.8,-1183.45 193.88,-446.07 164,-411 153.18,-398.3 135.77,-392.77 119.85,-390.53"/>
-<polygon fill="#000000" stroke="#000000" points="120,-387.03 109.7,-389.49 119.29,-393.99 120,-387.03"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_coord.f90 -->
+<g id="file~~graph~~FileGraph_edge70" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_coord.f90</title>
+<path fill="none" stroke="#000000" d="M239.4,-1305.02C225.61,-1323.39 196.76,-1358.26 164,-1377 155.11,-1382.08 144.97,-1385.96 134.95,-1388.91"/>
+<polygon fill="#000000" stroke="#000000" points="133.78,-1385.6 125.02,-1391.56 135.58,-1392.36 133.78,-1385.6"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~helio_step.f90 -->
+<g id="file~~graph~~FileGraph_node34" class="node">
+<title>sourcefile~helio_step.f90</title>
+<g id="a_file~~graph~~FileGraph_node34"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="121.5,-1326 42.5,-1326 42.5,-1302 121.5,-1302 121.5,-1326"/>
+<text text-anchor="middle" x="82" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_step.f90 -->
+<g id="file~~graph~~FileGraph_edge72" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_step.f90</title>
+<path fill="none" stroke="#000000" d="M215.79,-1297.1C191.84,-1300.15 158.75,-1304.36 131.59,-1307.82"/>
+<polygon fill="#000000" stroke="#000000" points="130.98,-1304.37 121.5,-1309.1 131.86,-1311.31 130.98,-1304.37"/>
+</g>
+<!-- sourcefile~drift.f90 -->
 <g id="file~~graph~~FileGraph_node35" class="node">
-<title>sourcefile~user_getacch.f90</title>
-<g id="a_file~~graph~~FileGraph_node35"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="129.5,-360 34.5,-360 34.5,-336 129.5,-336 129.5,-360"/>
-<text text-anchor="middle" x="82" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
+<title>sourcefile~drift.f90</title>
+<g id="a_file~~graph~~FileGraph_node35"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109,-360 55,-360 55,-336 109,-336 109,-360"/>
+<text text-anchor="middle" x="82" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~user_getacch.f90 -->
-<g id="file~~graph~~FileGraph_edge71" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~user_getacch.f90</title>
-<path fill="none" stroke="#000000" d="M247.3,-1286.74C241.09,-1179.61 195.24,-405.81 164,-369 157.65,-361.52 149.02,-356.52 139.74,-353.22"/>
-<polygon fill="#000000" stroke="#000000" points="140.49,-349.8 129.91,-350.36 138.54,-356.52 140.49,-349.8"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~drift.f90 -->
+<g id="file~~graph~~FileGraph_edge74" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~drift.f90</title>
+<path fill="none" stroke="#000000" d="M247.09,-1280.89C239.03,-1173.49 179.54,-387.3 164,-369 153.13,-356.19 135.54,-350.67 119.53,-348.47"/>
+<polygon fill="#000000" stroke="#000000" points="119.62,-344.96 109.33,-347.45 118.93,-351.92 119.62,-344.96"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~symba_drift.f90 -->
 <g id="file~~graph~~FileGraph_node36" class="node">
-<title>sourcefile~util_fill.f90</title>
-<g id="a_file~~graph~~FileGraph_node36"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="112,-318 52,-318 52,-294 112,-294 112,-318"/>
-<text text-anchor="middle" x="82" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_file~~graph~~FileGraph_node36"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="125,-1998 39,-1998 39,-1974 125,-1974 125,-1998"/>
+<text text-anchor="middle" x="82" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_fill.f90 -->
-<g id="file~~graph~~FileGraph_edge73" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_fill.f90</title>
-<path fill="none" stroke="#000000" d="M247.15,-1286.97C239.38,-1176.76 180.33,-346.32 164,-327 153.79,-314.92 137.61,-309.32 122.39,-306.87"/>
-<polygon fill="#000000" stroke="#000000" points="122.44,-303.35 112.09,-305.63 121.61,-310.3 122.44,-303.35"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_drift.f90 -->
+<g id="file~~graph~~FileGraph_edge75" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_drift.f90</title>
+<path fill="none" stroke="#000000" d="M239.36,-1305.24C228,-1322.07 208.5,-1353.73 200,-1384 182.52,-1446.27 205.15,-1915.1 164,-1965 156.64,-1973.93 146.01,-1979.33 134.87,-1982.55"/>
+<polygon fill="#000000" stroke="#000000" points="133.96,-1979.16 125.01,-1984.83 135.55,-1985.98 133.96,-1979.16"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="file~~graph~~FileGraph_node37" class="node">
-<title>sourcefile~symba_fragmentation.f90</title>
-<g id="a_file~~graph~~FileGraph_node37"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="149,-1872 15,-1872 15,-1848 149,-1848 149,-1872"/>
-<text text-anchor="middle" x="82" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_file~~graph~~FileGraph_node37"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="129.5,-318 34.5,-318 34.5,-294 129.5,-294 129.5,-318"/>
+<text text-anchor="middle" x="82" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_fragmentation.f90 -->
-<g id="file~~graph~~FileGraph_edge76" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_fragmentation.f90</title>
-<path fill="none" stroke="#000000" d="M238.84,-1311.17C227.48,-1327 208.57,-1355.96 200,-1384 170.36,-1481 229.19,-1761.3 164,-1839 162.07,-1841.3 159.93,-1843.36 157.62,-1845.21"/>
-<polygon fill="#000000" stroke="#000000" points="155.65,-1842.32 149.19,-1850.72 159.48,-1848.18 155.65,-1842.32"/>
-</g>
-<!-- sourcefile~whm_drift.f90 -->
-<g id="file~~graph~~FileGraph_node39" class="node">
-<title>sourcefile~whm_drift.f90</title>
-<g id="a_file~~graph~~FileGraph_node39"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120.5,-1536 43.5,-1536 43.5,-1512 120.5,-1512 120.5,-1536"/>
-<text text-anchor="middle" x="82" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_drift.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~user_getacch.f90 -->
 <g id="file~~graph~~FileGraph_edge78" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_drift.f90</title>
-<path fill="none" stroke="#000000" d="M239.95,-1311.23C229.6,-1327.36 211.59,-1356.88 200,-1384 178.28,-1434.81 203.85,-1464.72 164,-1503 155,-1511.65 142.91,-1516.86 130.83,-1519.96"/>
-<polygon fill="#000000" stroke="#000000" points="129.8,-1516.6 120.74,-1522.1 131.25,-1523.45 129.8,-1516.6"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~user_getacch.f90</title>
+<path fill="none" stroke="#000000" d="M247.13,-1280.69C239.25,-1169.79 180.22,-346.18 164,-327 157.53,-319.35 148.66,-314.29 139.16,-310.99"/>
+<polygon fill="#000000" stroke="#000000" points="140.09,-307.62 129.51,-308.25 138.17,-314.35 140.09,-307.62"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
-<g id="file~~graph~~FileGraph_node40" class="node">
-<title>sourcefile~util_sort.f90</title>
-<g id="a_file~~graph~~FileGraph_node40"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<!-- sourcefile~util_spill.f90 -->
+<g id="file~~graph~~FileGraph_node38" class="node">
+<title>sourcefile~util_spill.f90</title>
+<g id="a_file~~graph~~FileGraph_node38"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
 <polygon fill="#f0ad4e" stroke="#f0ad4e" points="116,-276 48,-276 48,-252 116,-252 116,-276"/>
-<text text-anchor="middle" x="82" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+<text text-anchor="middle" x="82" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_sort.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_spill.f90 -->
 <g id="file~~graph~~FileGraph_edge80" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_sort.f90</title>
-<path fill="none" stroke="#000000" d="M247.19,-1286.8C239.59,-1173.29 181.01,-305.2 164,-285 154.66,-273.91 140.3,-268.28 126.25,-265.53"/>
-<polygon fill="#000000" stroke="#000000" points="126.55,-262.04 116.14,-264 125.51,-268.96 126.55,-262.04"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_util.f90 -->
-<g id="file~~graph~~FileGraph_edge83" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_util.f90</title>
-<path fill="none" stroke="#000000" d="M238.67,-1311.12C227.13,-1326.9 208.03,-1355.8 200,-1384 173.33,-1477.58 225.12,-2183.28 164,-2259 155.42,-2269.63 142.21,-2275.28 128.94,-2278.18"/>
-<polygon fill="#000000" stroke="#000000" points="128.12,-2274.77 118.85,-2279.9 129.3,-2281.67 128.12,-2274.77"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_spill.f90</title>
+<path fill="none" stroke="#000000" d="M247.08,-1280.75C238.47,-1166.72 172.46,-295.04 164,-285 154.66,-273.91 140.3,-268.28 126.24,-265.53"/>
+<polygon fill="#000000" stroke="#000000" points="126.55,-262.04 116.14,-264 125.5,-268.96 126.55,-262.04"/>
 </g>
-<!-- sourcefile~eucl.f90 -->
-<g id="file~~graph~~FileGraph_node42" class="node">
-<title>sourcefile~eucl.f90</title>
-<g id="a_file~~graph~~FileGraph_node42"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
+<!-- sourcefile~io.f90 -->
+<g id="file~~graph~~FileGraph_node39" class="node">
+<title>sourcefile~io.f90</title>
+<g id="a_file~~graph~~FileGraph_node39"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
 <polygon fill="#f0ad4e" stroke="#f0ad4e" points="109,-234 55,-234 55,-210 109,-210 109,-234"/>
-<text text-anchor="middle" x="82" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
+<text text-anchor="middle" x="82" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~eucl.f90 -->
-<g id="file~~graph~~FileGraph_edge84" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~eucl.f90</title>
-<path fill="none" stroke="#000000" d="M247.13,-1286.9C238.8,-1170.53 172.86,-253.55 164,-243 153.2,-230.13 135.62,-224.6 119.6,-222.41"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~io.f90 -->
+<g id="file~~graph~~FileGraph_edge82" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~io.f90</title>
+<path fill="none" stroke="#000000" d="M247.13,-1280.97C238.79,-1165.26 172.81,-253.49 164,-243 153.19,-230.13 135.62,-224.6 119.6,-222.41"/>
 <polygon fill="#000000" stroke="#000000" points="119.67,-218.9 109.38,-221.41 118.99,-225.87 119.67,-218.9"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
-<g id="file~~graph~~FileGraph_node43" class="node">
-<title>sourcefile~util_peri.f90</title>
-<g id="a_file~~graph~~FileGraph_node43"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="116,-192 48,-192 48,-168 116,-168 116,-192"/>
-<text text-anchor="middle" x="82" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
+<!-- sourcefile~symba_kick.f90 -->
+<g id="file~~graph~~FileGraph_node40" class="node">
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_file~~graph~~FileGraph_node40"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="125,-1956 39,-1956 39,-1932 125,-1932 125,-1956"/>
+<text text-anchor="middle" x="82" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_peri.f90 -->
-<g id="file~~graph~~FileGraph_edge86" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_peri.f90</title>
-<path fill="none" stroke="#000000" d="M247.16,-1286.8C238.98,-1167.41 173.2,-212 164,-201 154.7,-189.88 140.34,-184.24 126.28,-181.5"/>
-<polygon fill="#000000" stroke="#000000" points="126.59,-178 116.18,-179.97 125.54,-184.92 126.59,-178"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_kick.f90 -->
+<g id="file~~graph~~FileGraph_edge83" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_kick.f90</title>
+<path fill="none" stroke="#000000" d="M239.38,-1305.24C228.04,-1322.08 208.57,-1353.75 200,-1384 183.64,-1441.75 202.29,-1876.78 164,-1923 156.69,-1931.83 146.19,-1937.21 135.16,-1940.43"/>
+<polygon fill="#000000" stroke="#000000" points="134.33,-1937.03 125.41,-1942.73 135.94,-1943.84 134.33,-1937.03"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
-<g id="file~~graph~~FileGraph_node44" class="node">
-<title>sourcefile~util_version.f90</title>
-<g id="a_file~~graph~~FileGraph_node44"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="124.5,-150 39.5,-150 39.5,-126 124.5,-126 124.5,-150"/>
-<text text-anchor="middle" x="82" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+<!-- sourcefile~whm_step.f90 -->
+<g id="file~~graph~~FileGraph_node41" class="node">
+<title>sourcefile~whm_step.f90</title>
+<g id="a_file~~graph~~FileGraph_node41"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="121.5,-1494 42.5,-1494 42.5,-1470 121.5,-1470 121.5,-1494"/>
+<text text-anchor="middle" x="82" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_version.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_step.f90 -->
+<g id="file~~graph~~FileGraph_edge85" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_step.f90</title>
+<path fill="none" stroke="#000000" d="M241.29,-1305.27C231.83,-1322.66 214.15,-1355.53 200,-1384 183.18,-1417.83 193.05,-1436.85 164,-1461 154.84,-1468.61 143.24,-1473.51 131.7,-1476.64"/>
+<polygon fill="#000000" stroke="#000000" points="130.6,-1473.3 121.64,-1478.96 132.17,-1480.12 130.6,-1473.3"/>
+</g>
+<!-- sourcefile~helio_gr.f90 -->
+<g id="file~~graph~~FileGraph_node42" class="node">
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_file~~graph~~FileGraph_node42"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="116,-1284 48,-1284 48,-1260 116,-1260 116,-1284"/>
+<text text-anchor="middle" x="82" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_gr.f90 -->
 <g id="file~~graph~~FileGraph_edge88" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_version.f90</title>
-<path fill="none" stroke="#000000" d="M247.14,-1286.65C238.57,-1163.75 168.77,-164.72 164,-159 156.51,-150.03 145.74,-144.62 134.47,-141.42"/>
-<polygon fill="#000000" stroke="#000000" points="135.05,-137.97 124.52,-139.15 133.49,-144.79 135.05,-137.97"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_gr.f90</title>
+<path fill="none" stroke="#000000" d="M215.79,-1288.9C190.24,-1285.65 154.26,-1281.07 126.2,-1277.5"/>
+<polygon fill="#000000" stroke="#000000" points="126.62,-1274.02 116.26,-1276.23 125.73,-1280.97 126.62,-1274.02"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_encounter_check.f90 -->
+<g id="file~~graph~~FileGraph_edge89" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_encounter_check.f90</title>
+<path fill="none" stroke="#000000" d="M239.26,-1305.21C227.78,-1322.01 208.15,-1353.64 200,-1384 173.56,-1482.48 227.97,-2221.6 164,-2301 163.03,-2302.2 162,-2303.34 160.92,-2304.42"/>
+<polygon fill="#000000" stroke="#000000" points="158.71,-2301.7 153.1,-2310.69 163.09,-2307.17 158.71,-2301.7"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_step.f90 -->
+<g id="file~~graph~~FileGraph_edge91" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_step.f90</title>
+<path fill="none" stroke="#000000" d="M239.26,-1305.21C227.8,-1322.02 208.18,-1353.65 200,-1384 174.68,-1477.95 225.12,-2183.28 164,-2259 156.08,-2268.81 144.22,-2274.38 132,-2277.46"/>
+<polygon fill="#000000" stroke="#000000" points="131.31,-2274.03 122.19,-2279.43 132.69,-2280.9 131.31,-2274.03"/>
+</g>
+<!-- sourcefile~kick.f90 -->
 <g id="file~~graph~~FileGraph_node45" class="node">
-<title>sourcefile~discard.f90</title>
-<g id="a_file~~graph~~FileGraph_node45"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="114.5,-108 49.5,-108 49.5,-84 114.5,-84 114.5,-108"/>
-<text text-anchor="middle" x="82" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
+<title>sourcefile~kick.f90</title>
+<g id="a_file~~graph~~FileGraph_node45"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109,-192 55,-192 55,-168 109,-168 109,-192"/>
+<text text-anchor="middle" x="82" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~discard.f90 -->
-<g id="file~~graph~~FileGraph_edge90" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~discard.f90</title>
-<path fill="none" stroke="#000000" d="M247.15,-1286.93C238.44,-1162.55 165.24,-118.49 164,-117 154.34,-105.39 139.16,-99.74 124.54,-97.14"/>
-<polygon fill="#000000" stroke="#000000" points="124.96,-93.66 114.58,-95.78 124.02,-100.6 124.96,-93.66"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~kick.f90 -->
+<g id="file~~graph~~FileGraph_edge94" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~kick.f90</title>
+<path fill="none" stroke="#000000" d="M247.11,-1280.8C238.4,-1161.45 168.58,-206.47 164,-201 153.14,-188.02 135.39,-182.51 119.27,-180.35"/>
+<polygon fill="#000000" stroke="#000000" points="119.29,-176.84 109,-179.37 118.63,-183.81 119.29,-176.84"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~util_rescale.f90 -->
 <g id="file~~graph~~FileGraph_node46" class="node">
-<title>sourcefile~util_set.f90</title>
-<g id="a_file~~graph~~FileGraph_node46"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="114,-66 50,-66 50,-42 114,-42 114,-66"/>
-<text text-anchor="middle" x="82" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_file~~graph~~FileGraph_node46"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="124.5,-150 39.5,-150 39.5,-126 124.5,-126 124.5,-150"/>
+<text text-anchor="middle" x="82" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_set.f90 -->
-<g id="file~~graph~~FileGraph_edge92" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_set.f90</title>
-<path fill="none" stroke="#000000" d="M247.13,-1286.84C242.34,-1219.58 218.64,-886.37 200,-614 195.9,-554.12 202.29,-121.22 164,-75 154.29,-63.28 138.95,-57.63 124.22,-55.05"/>
-<polygon fill="#000000" stroke="#000000" points="124.57,-51.57 114.2,-53.72 123.65,-58.51 124.57,-51.57"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_rescale.f90 -->
+<g id="file~~graph~~FileGraph_edge96" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_rescale.f90</title>
+<path fill="none" stroke="#000000" d="M247.1,-1280.67C238.13,-1157.93 165.19,-160.42 164,-159 156.51,-150.03 145.73,-144.62 134.47,-141.43"/>
+<polygon fill="#000000" stroke="#000000" points="135.05,-137.97 124.52,-139.15 133.49,-144.79 135.05,-137.97"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_coord.f90 -->
-<g id="file~~graph~~FileGraph_edge95" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_coord.f90</title>
-<path fill="none" stroke="#000000" d="M238.25,-1311.28C223.86,-1328.57 195.24,-1359.89 164,-1377 155.11,-1381.87 145.06,-1385.64 135.12,-1388.56"/>
-<polygon fill="#000000" stroke="#000000" points="134.04,-1385.22 125.29,-1391.19 135.85,-1391.98 134.04,-1385.22"/>
+<!-- sourcefile~symba_step.f90 -->
+<g id="file~~graph~~FileGraph_node47" class="node">
+<title>sourcefile~symba_step.f90</title>
+<g id="a_file~~graph~~FileGraph_node47"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="126,-1914 38,-1914 38,-1890 126,-1890 126,-1914"/>
+<text text-anchor="middle" x="82" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
+</a>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
-<g id="file~~graph~~FileGraph_node49" class="node">
-<title>sourcefile~symba_discard.f90</title>
-<g id="a_file~~graph~~FileGraph_node49"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="133.5,-1830 30.5,-1830 30.5,-1806 133.5,-1806 133.5,-1830"/>
-<text text-anchor="middle" x="82" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_step.f90 -->
+<g id="file~~graph~~FileGraph_edge97" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_step.f90</title>
+<path fill="none" stroke="#000000" d="M239.4,-1305.25C228.1,-1322.1 208.65,-1353.78 200,-1384 169.52,-1490.46 234.89,-1795.93 164,-1881 156.88,-1889.54 146.77,-1894.86 136.1,-1898.11"/>
+<polygon fill="#000000" stroke="#000000" points="135.09,-1894.75 126.22,-1900.54 136.76,-1901.55 135.09,-1894.75"/>
+</g>
+<!-- sourcefile~util_get_energy_momentum.f90 -->
+<g id="file~~graph~~FileGraph_node48" class="node">
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_file~~graph~~FileGraph_node48"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="164,-108 0,-108 0,-84 164,-84 164,-108"/>
+<text text-anchor="middle" x="82" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_discard.f90 -->
-<g id="file~~graph~~FileGraph_edge101" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_discard.f90</title>
-<path fill="none" stroke="#000000" d="M238.87,-1311.18C227.55,-1327.02 208.68,-1355.99 200,-1384 172.73,-1472 223.49,-1726.66 164,-1797 158.47,-1803.54 151.19,-1808.18 143.27,-1811.45"/>
-<polygon fill="#000000" stroke="#000000" points="142.07,-1808.16 133.73,-1814.69 144.32,-1814.79 142.07,-1808.16"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_get_energy_momentum.f90 -->
+<g id="file~~graph~~FileGraph_edge100" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_get_energy_momentum.f90</title>
+<path fill="none" stroke="#000000" d="M247.1,-1280.89C242.24,-1215.31 218.59,-896.06 200,-635 195.9,-577.45 200.87,-161.38 164,-117 163.37,-116.24 162.72,-115.51 162.04,-114.8"/>
+<polygon fill="#000000" stroke="#000000" points="163.97,-111.85 154.05,-108.12 159.48,-117.22 163.97,-111.85"/>
 </g>
-<!-- sourcefile~obl.f90 -->
-<g id="file~~graph~~FileGraph_node50" class="node">
-<title>sourcefile~obl.f90</title>
-<g id="a_file~~graph~~FileGraph_node50"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109,-24 55,-24 55,0 109,0 109,-24"/>
-<text text-anchor="middle" x="82" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
+<!-- sourcefile~tides_getacch_pl.f90 -->
+<g id="file~~graph~~FileGraph_node49" class="node">
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_file~~graph~~FileGraph_node49"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="137.5,-66 26.5,-66 26.5,-42 137.5,-42 137.5,-66"/>
+<text text-anchor="middle" x="82" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~obl.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~tides_getacch_pl.f90 -->
 <g id="file~~graph~~FileGraph_edge102" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~obl.f90</title>
-<path fill="none" stroke="#000000" d="M247.11,-1286.84C242.2,-1219.59 217.98,-886.41 200,-614 195.74,-549.46 205.15,-82.9 164,-33 153.23,-19.94 135.5,-14.42 119.36,-12.28"/>
-<polygon fill="#000000" stroke="#000000" points="119.36,-8.76 109.07,-11.32 118.7,-15.73 119.36,-8.76"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~tides_getacch_pl.f90</title>
+<path fill="none" stroke="#000000" d="M247.08,-1280.89C242.09,-1215.32 217.92,-896.11 200,-635 195.73,-572.8 203.72,-123.06 164,-75 159.46,-69.51 153.69,-65.35 147.32,-62.21"/>
+<polygon fill="#000000" stroke="#000000" points="148.22,-58.81 137.64,-58.32 145.61,-65.3 148.22,-58.81"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
-<g id="file~~graph~~FileGraph_node51" class="node">
-<title>sourcefile~whm_step.f90</title>
-<g id="a_file~~graph~~FileGraph_node51"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="121.5,-1494 42.5,-1494 42.5,-1470 121.5,-1470 121.5,-1494"/>
-<text text-anchor="middle" x="82" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
+<!-- sourcefile~whm_setup.f90 -->
+<g id="file~~graph~~FileGraph_node50" class="node">
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_file~~graph~~FileGraph_node50"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="124.5,-1746 39.5,-1746 39.5,-1722 124.5,-1722 124.5,-1746"/>
+<text text-anchor="middle" x="82" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_step.f90 -->
-<g id="file~~graph~~FileGraph_edge104" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_step.f90</title>
-<path fill="none" stroke="#000000" d="M240.7,-1311.23C231.03,-1327.6 213.58,-1357.64 200,-1384 182.7,-1417.58 193.05,-1436.85 164,-1461 154.84,-1468.61 143.24,-1473.51 131.7,-1476.64"/>
-<polygon fill="#000000" stroke="#000000" points="130.6,-1473.3 121.64,-1478.96 132.17,-1480.12 130.6,-1473.3"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_setup.f90 -->
+<g id="file~~graph~~FileGraph_edge103" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_setup.f90</title>
+<path fill="none" stroke="#000000" d="M239.75,-1305.01C228.66,-1321.84 209.26,-1353.77 200,-1384 178.46,-1454.32 212.11,-1657.37 164,-1713 156.43,-1721.75 145.73,-1727.09 134.57,-1730.29"/>
+<polygon fill="#000000" stroke="#000000" points="133.67,-1726.91 124.73,-1732.59 135.26,-1733.73 133.67,-1726.91"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
+<!-- sourcefile~util_fill.f90 -->
 <g id="file~~graph~~FileGraph_node52" class="node">
-<title>sourcefile~symba_step.f90</title>
-<g id="a_file~~graph~~FileGraph_node52"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="126,-1788 38,-1788 38,-1764 126,-1764 126,-1788"/>
-<text text-anchor="middle" x="82" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
+<title>sourcefile~util_fill.f90</title>
+<g id="a_file~~graph~~FileGraph_node52"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="112,-24 52,-24 52,0 112,0 112,-24"/>
+<text text-anchor="middle" x="82" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_step.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_fill.f90 -->
 <g id="file~~graph~~FileGraph_edge107" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_step.f90</title>
-<path fill="none" stroke="#000000" d="M238.91,-1311.19C227.64,-1327.05 208.82,-1356.04 200,-1384 175.09,-1463 217.8,-1692.02 164,-1755 156.78,-1763.46 146.63,-1768.73 135.95,-1771.98"/>
-<polygon fill="#000000" stroke="#000000" points="134.94,-1768.62 126.07,-1774.42 136.61,-1775.42 134.94,-1768.62"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_kick.f90 -->
-<g id="file~~graph~~FileGraph_edge111" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_kick.f90</title>
-<path fill="none" stroke="#000000" d="M215.79,-1301.93C191.59,-1304.13 158.06,-1307.18 130.74,-1309.66"/>
-<polygon fill="#000000" stroke="#000000" points="130.25,-1306.19 120.61,-1310.58 130.89,-1313.16 130.25,-1306.19"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_fill.f90</title>
+<path fill="none" stroke="#000000" d="M247.06,-1280.89C241.97,-1215.33 217.33,-896.15 200,-635 195.56,-568.14 206.57,-84.75 164,-33 153.95,-20.79 137.8,-15.16 122.55,-12.73"/>
+<polygon fill="#000000" stroke="#000000" points="122.57,-9.21 112.23,-11.52 121.75,-16.16 122.57,-9.21"/>
 </g>
-<!-- sourcefile~drift.f90 -->
-<g id="file~~graph~~FileGraph_node55" class="node">
-<title>sourcefile~drift.f90</title>
-<g id="a_file~~graph~~FileGraph_node55"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109,-1158 55,-1158 55,-1134 109,-1134 109,-1158"/>
-<text text-anchor="middle" x="82" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
+<!-- sourcefile~util_exit.f90 -->
+<g id="file~~graph~~FileGraph_node53" class="node">
+<title>sourcefile~util_exit.f90</title>
+<g id="a_file~~graph~~FileGraph_node53"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="115.5,-1200 48.5,-1200 48.5,-1176 115.5,-1176 115.5,-1200"/>
+<text text-anchor="middle" x="82" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~drift.f90 -->
-<g id="file~~graph~~FileGraph_edge112" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~drift.f90</title>
-<path fill="none" stroke="#000000" d="M243.72,-1286.62C233.96,-1260.3 207.49,-1198.64 164,-1167 151.02,-1157.56 134.15,-1152.35 119.17,-1149.49"/>
-<polygon fill="#000000" stroke="#000000" points="119.61,-1146.01 109.18,-1147.86 118.48,-1152.92 119.61,-1146.01"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_exit.f90 -->
+<g id="file~~graph~~FileGraph_edge109" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_exit.f90</title>
+<path fill="none" stroke="#000000" d="M239.4,-1280.98C225.61,-1262.61 196.76,-1227.74 164,-1209 152.36,-1202.34 138.58,-1197.75 125.72,-1194.61"/>
+<polygon fill="#000000" stroke="#000000" points="126.18,-1191.13 115.66,-1192.39 124.67,-1197.96 126.18,-1191.13"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
-<g id="file~~graph~~FileGraph_node56" class="node">
-<title>sourcefile~symba_util.f90</title>
-<g id="a_file~~graph~~FileGraph_node56"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="123,-1746 41,-1746 41,-1722 123,-1722 123,-1746"/>
-<text text-anchor="middle" x="82" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
+<!-- sourcefile~util_copy.f90 -->
+<g id="file~~graph~~FileGraph_node54" class="node">
+<title>sourcefile~util_copy.f90</title>
+<g id="a_file~~graph~~FileGraph_node54"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="117.5,-1158 46.5,-1158 46.5,-1134 117.5,-1134 117.5,-1158"/>
+<text text-anchor="middle" x="82" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_util.f90 -->
-<g id="file~~graph~~FileGraph_edge115" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_util.f90</title>
-<path fill="none" stroke="#000000" d="M238.97,-1311.21C227.75,-1327.09 208.99,-1356.09 200,-1384 177.46,-1454.01 212.11,-1657.37 164,-1713 156.06,-1722.19 144.66,-1727.61 132.92,-1730.75"/>
-<polygon fill="#000000" stroke="#000000" points="132.08,-1727.35 123.04,-1732.89 133.56,-1734.2 132.08,-1727.35"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_kick.f90 -->
-<g id="file~~graph~~FileGraph_edge117" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_kick.f90</title>
-<path fill="none" stroke="#000000" d="M238.69,-1311.12C227.17,-1326.91 208.1,-1355.82 200,-1384 175.71,-1468.56 219.41,-2106.66 164,-2175 155.91,-2184.97 143.76,-2190.56 131.31,-2193.61"/>
-<polygon fill="#000000" stroke="#000000" points="130.48,-2190.2 121.33,-2195.54 131.81,-2197.07 130.48,-2190.2"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_copy.f90 -->
+<g id="file~~graph~~FileGraph_edge111" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_copy.f90</title>
+<path fill="none" stroke="#000000" d="M243.4,-1280.79C233.2,-1255.45 206.21,-1197.02 164,-1167 153.35,-1159.43 140.18,-1154.58 127.59,-1151.48"/>
+<polygon fill="#000000" stroke="#000000" points="128.17,-1148.03 117.66,-1149.36 126.7,-1154.88 128.17,-1148.03"/>
 </g>
 <!-- sourcefile~util_valid.f90 -->
-<g id="file~~graph~~FileGraph_node59" class="node">
+<g id="file~~graph~~FileGraph_node55" class="node">
 <title>sourcefile~util_valid.f90</title>
-<g id="a_file~~graph~~FileGraph_node59"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<g id="a_file~~graph~~FileGraph_node55"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
 <polygon fill="#f0ad4e" stroke="#f0ad4e" points="118,-1116 46,-1116 46,-1092 118,-1092 118,-1116"/>
 <text text-anchor="middle" x="82" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_valid.f90 -->
-<g id="file~~graph~~FileGraph_edge119" class="edge">
+<g id="file~~graph~~FileGraph_edge113" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_valid.f90</title>
-<path fill="none" stroke="#000000" d="M245.75,-1286.7C239.26,-1254.8 217.41,-1168.84 164,-1125 153.9,-1116.71 140.9,-1111.65 128.28,-1108.58"/>
-<polygon fill="#000000" stroke="#000000" points="128.8,-1105.11 118.3,-1106.52 127.39,-1111.97 128.8,-1105.11"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_step.f90 -->
-<g id="file~~graph~~FileGraph_edge122" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_step.f90</title>
-<path fill="none" stroke="#000000" d="M222.66,-1311.05C206.19,-1318.58 184.12,-1328.13 164,-1335 153.58,-1338.56 142.23,-1341.85 131.41,-1344.73"/>
-<polygon fill="#000000" stroke="#000000" points="130.48,-1341.35 121.67,-1347.24 132.23,-1348.13 130.48,-1341.35"/>
+<path fill="none" stroke="#000000" d="M245.51,-1280.66C238.57,-1249.49 215.96,-1167.06 164,-1125 153.84,-1116.78 140.82,-1111.74 128.21,-1108.67"/>
+<polygon fill="#000000" stroke="#000000" points="128.74,-1105.2 118.24,-1106.6 127.32,-1112.06 128.74,-1105.2"/>
 </g>
-<!-- sourcefile~whm_setup.f90 -->
-<g id="file~~graph~~FileGraph_node61" class="node">
-<title>sourcefile~whm_setup.f90</title>
-<g id="a_file~~graph~~FileGraph_node61"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="124.5,-1200 39.5,-1200 39.5,-1176 124.5,-1176 124.5,-1200"/>
-<text text-anchor="middle" x="82" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
+<!-- sourcefile~util_sort.f90 -->
+<g id="file~~graph~~FileGraph_node56" class="node">
+<title>sourcefile~util_sort.f90</title>
+<g id="a_file~~graph~~FileGraph_node56"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="116,-1074 48,-1074 48,-1050 116,-1050 116,-1074"/>
+<text text-anchor="middle" x="82" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_setup.f90 -->
-<g id="file~~graph~~FileGraph_edge123" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_setup.f90</title>
-<path fill="none" stroke="#000000" d="M219.55,-1286.99C212.62,-1283.19 205.61,-1278.52 200,-1273 176.74,-1250.11 189.86,-1228.91 164,-1209 155.45,-1202.42 145.04,-1197.89 134.58,-1194.77"/>
-<polygon fill="#000000" stroke="#000000" points="135.14,-1191.3 124.59,-1192.2 133.4,-1198.08 135.14,-1191.3"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_setup.f90 -->
-<g id="file~~graph~~FileGraph_edge126" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_setup.f90</title>
-<path fill="none" stroke="#000000" d="M238.7,-1311.13C227.19,-1326.92 208.13,-1355.83 200,-1384 176.89,-1464.05 216.56,-2068.35 164,-2133 156.7,-2141.98 146.1,-2147.4 134.96,-2150.62"/>
-<polygon fill="#000000" stroke="#000000" points="134.05,-2147.24 125.1,-2152.9 135.63,-2154.05 134.05,-2147.24"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_sort.f90 -->
+<g id="file~~graph~~FileGraph_edge115" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_sort.f90</title>
+<path fill="none" stroke="#000000" d="M246.89,-1280.89C242.92,-1244.91 226.18,-1137.76 164,-1083 153.57,-1073.82 139.64,-1068.57 126.26,-1065.59"/>
+<polygon fill="#000000" stroke="#000000" points="126.68,-1062.11 116.21,-1063.73 125.41,-1068.99 126.68,-1062.11"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
-<g id="file~~graph~~FileGraph_node63" class="node">
-<title>sourcefile~util_minimize_bfgs.f90</title>
-<g id="a_file~~graph~~FileGraph_node63"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="141,-1074 23,-1074 23,-1050 141,-1050 141,-1074"/>
-<text text-anchor="middle" x="82" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
+<!-- sourcefile~symba_collision.f90 -->
+<g id="file~~graph~~FileGraph_node57" class="node">
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_file~~graph~~FileGraph_node57"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="135,-1872 29,-1872 29,-1848 135,-1848 135,-1872"/>
+<text text-anchor="middle" x="82" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_minimize_bfgs.f90 -->
-<g id="file~~graph~~FileGraph_edge127" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_minimize_bfgs.f90</title>
-<path fill="none" stroke="#000000" d="M247.03,-1286.81C243.44,-1250.09 227.6,-1139.55 164,-1083 160.03,-1079.47 155.54,-1076.52 150.77,-1074.06"/>
-<polygon fill="#000000" stroke="#000000" points="151.85,-1070.71 141.28,-1069.89 149.03,-1077.12 151.85,-1070.71"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_collision.f90 -->
+<g id="file~~graph~~FileGraph_edge116" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_collision.f90</title>
+<path fill="none" stroke="#000000" d="M239.43,-1305.26C228.16,-1322.12 208.75,-1353.81 200,-1384 171.76,-1481.42 229.19,-1761.3 164,-1839 158.81,-1845.18 152.06,-1849.67 144.67,-1852.91"/>
+<polygon fill="#000000" stroke="#000000" points="143.27,-1849.7 135.04,-1856.37 145.64,-1856.28 143.27,-1849.7"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
-<g id="file~~graph~~FileGraph_node64" class="node">
-<title>sourcefile~util_get_energy_momentum.f90</title>
-<g id="a_file~~graph~~FileGraph_node64"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="164,-1032 0,-1032 0,-1008 164,-1008 164,-1032"/>
-<text text-anchor="middle" x="82" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
+<!-- sourcefile~symba_setup.f90 -->
+<g id="file~~graph~~FileGraph_node58" class="node">
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_file~~graph~~FileGraph_node58"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="129,-1830 35,-1830 35,-1806 129,-1806 129,-1830"/>
+<text text-anchor="middle" x="82" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_get_energy_momentum.f90 -->
-<g id="file~~graph~~FileGraph_edge129" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_get_energy_momentum.f90</title>
-<path fill="none" stroke="#000000" d="M247.91,-1286.89C246.92,-1245.83 237.94,-1110.56 164,-1041 162.73,-1039.8 161.39,-1038.67 160.01,-1037.6"/>
-<polygon fill="#000000" stroke="#000000" points="161.89,-1034.65 151.59,-1032.14 158.08,-1040.52 161.89,-1034.65"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_setup.f90 -->
+<g id="file~~graph~~FileGraph_edge118" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_setup.f90</title>
+<path fill="none" stroke="#000000" d="M239.47,-1305.27C228.23,-1322.14 208.87,-1353.84 200,-1384 174,-1472.38 223.49,-1726.66 164,-1797 157.46,-1804.74 148.47,-1809.82 138.85,-1813.11"/>
+<polygon fill="#000000" stroke="#000000" points="137.77,-1809.78 129.09,-1815.85 139.66,-1816.52 137.77,-1809.78"/>
 </g>
-<!-- sourcefile~gr.f90 -->
-<g id="file~~graph~~FileGraph_node65" class="node">
-<title>sourcefile~gr.f90</title>
-<g id="a_file~~graph~~FileGraph_node65"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="109,-990 55,-990 55,-966 109,-966 109,-990"/>
-<text text-anchor="middle" x="82" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+<!-- sourcefile~util_version.f90 -->
+<g id="file~~graph~~FileGraph_node59" class="node">
+<title>sourcefile~util_version.f90</title>
+<g id="a_file~~graph~~FileGraph_node59"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="124.5,-1032 39.5,-1032 39.5,-1008 124.5,-1008 124.5,-1032"/>
+<text text-anchor="middle" x="82" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~gr.f90 -->
-<g id="file~~graph~~FileGraph_edge131" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~gr.f90</title>
-<path fill="none" stroke="#000000" d="M248.55,-1286.9C249.91,-1241.79 248.37,-1081.75 164,-999 152.17,-987.4 134.81,-981.97 119.2,-979.51"/>
-<polygon fill="#000000" stroke="#000000" points="119.61,-976.03 109.26,-978.29 118.76,-982.98 119.61,-976.03"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_version.f90 -->
+<g id="file~~graph~~FileGraph_edge121" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_version.f90</title>
+<path fill="none" stroke="#000000" d="M247.8,-1280.89C246.46,-1240.42 236.46,-1108.68 164,-1041 155.87,-1033.41 145.36,-1028.48 134.62,-1025.3"/>
+<polygon fill="#000000" stroke="#000000" points="135.3,-1021.86 124.75,-1022.84 133.61,-1028.65 135.3,-1021.86"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
-<g id="file~~graph~~FileGraph_node66" class="node">
-<title>sourcefile~util_resize.f90</title>
-<g id="a_file~~graph~~FileGraph_node66"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="121.5,-948 42.5,-948 42.5,-924 121.5,-924 121.5,-948"/>
-<text text-anchor="middle" x="82" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+<!-- sourcefile~helio_kick.f90 -->
+<g id="file~~graph~~FileGraph_node60" class="node">
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_file~~graph~~FileGraph_node60"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120.5,-1452 43.5,-1452 43.5,-1428 120.5,-1428 120.5,-1452"/>
+<text text-anchor="middle" x="82" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_resize.f90 -->
-<g id="file~~graph~~FileGraph_edge133" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_resize.f90</title>
-<path fill="none" stroke="#000000" d="M246.69,-1286.96C240.47,-1232.03 212.22,-1005.84 164,-957 155.39,-948.28 143.65,-943.02 131.79,-939.9"/>
-<polygon fill="#000000" stroke="#000000" points="132.38,-936.44 121.86,-937.75 130.89,-943.29 132.38,-936.44"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_kick.f90 -->
+<g id="file~~graph~~FileGraph_edge123" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_kick.f90</title>
+<path fill="none" stroke="#000000" d="M243.4,-1305.21C233.2,-1330.55 206.21,-1388.98 164,-1419 154.1,-1426.04 142.03,-1430.72 130.26,-1433.83"/>
+<polygon fill="#000000" stroke="#000000" points="129.46,-1430.43 120.5,-1436.1 131.04,-1437.25 129.46,-1430.43"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
-<g id="file~~graph~~FileGraph_node67" class="node">
-<title>sourcefile~util_copy.f90</title>
-<g id="a_file~~graph~~FileGraph_node67"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="117.5,-780 46.5,-780 46.5,-756 117.5,-756 117.5,-780"/>
-<text text-anchor="middle" x="82" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
+<!-- sourcefile~symba_encounter_check.f90 -->
+<g id="file~~graph~~FileGraph_node61" class="node">
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_file~~graph~~FileGraph_node61"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="157,-1788 7,-1788 7,-1764 157,-1764 157,-1788"/>
+<text text-anchor="middle" x="82" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_copy.f90 -->
-<g id="file~~graph~~FileGraph_edge135" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_copy.f90</title>
-<path fill="none" stroke="#000000" d="M247.73,-1286.64C245.94,-1216.14 233.6,-865.19 164,-789 154.71,-778.83 141.19,-773.31 127.84,-770.4"/>
-<polygon fill="#000000" stroke="#000000" points="128.2,-766.9 117.75,-768.64 127,-773.8 128.2,-766.9"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_encounter_check.f90 -->
+<g id="file~~graph~~FileGraph_edge124" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_encounter_check.f90</title>
+<path fill="none" stroke="#000000" d="M239.51,-1305.28C228.33,-1322.17 209.02,-1353.89 200,-1384 176.23,-1463.35 217.8,-1692.02 164,-1755 163.27,-1755.86 162.51,-1756.68 161.72,-1757.47"/>
+<polygon fill="#000000" stroke="#000000" points="159.5,-1754.76 153.95,-1763.78 163.91,-1760.2 159.5,-1754.76"/>
 </g>
-<!-- sourcefile~symba_io.f90 -->
-<g id="file~~graph~~FileGraph_node68" class="node">
-<title>sourcefile~symba_io.f90</title>
-<g id="a_file~~graph~~FileGraph_node68"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="120,-1704 44,-1704 44,-1680 120,-1680 120,-1704"/>
-<text text-anchor="middle" x="82" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
+<!-- sourcefile~discard.f90 -->
+<g id="file~~graph~~FileGraph_node62" class="node">
+<title>sourcefile~discard.f90</title>
+<g id="a_file~~graph~~FileGraph_node62"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="114.5,-990 49.5,-990 49.5,-966 114.5,-966 114.5,-990"/>
+<text text-anchor="middle" x="82" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_io.f90 -->
-<g id="file~~graph~~FileGraph_edge138" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_io.f90</title>
-<path fill="none" stroke="#000000" d="M239.04,-1311.23C227.89,-1327.13 209.21,-1356.16 200,-1384 179.82,-1445.03 206.43,-1622.72 164,-1671 155.37,-1680.82 142.81,-1686.33 130.14,-1689.35"/>
-<polygon fill="#000000" stroke="#000000" points="129.2,-1685.96 120.03,-1691.27 130.5,-1692.84 129.2,-1685.96"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~discard.f90 -->
+<g id="file~~graph~~FileGraph_edge127" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~discard.f90</title>
+<path fill="none" stroke="#000000" d="M248.47,-1280.83C249.5,-1236.19 246.83,-1079.82 164,-999 153.54,-988.8 138.8,-983.37 124.75,-980.54"/>
+<polygon fill="#000000" stroke="#000000" points="125.15,-977.06 114.71,-978.91 124.02,-983.97 125.15,-977.06"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
-<g id="file~~graph~~FileGraph_node29" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_file~~graph~~FileGraph_node29"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="871,-1414 764,-1414 764,-1390 871,-1390 871,-1414"/>
-<text text-anchor="middle" x="817.5" y="-1399.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<!-- sourcefile~swiftest_driver.f90 -->
+<g id="file~~graph~~FileGraph_node63" class="node">
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_file~~graph~~FileGraph_node63"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="131,-1242 33,-1242 33,-1218 131,-1218 131,-1242"/>
+<text text-anchor="middle" x="82" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_exit.f90 -->
-<g id="file~~graph~~FileGraph_edge4" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_exit.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C154.61,-514.01 255.75,-785.27 164,-873 153.79,-882.76 139.66,-888.14 126.05,-891.05"/>
-<polygon fill="#000000" stroke="#000000" points="125.07,-887.67 115.82,-892.83 126.27,-894.56 125.07,-887.67"/>
-</g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_coord.f90 -->
-<g id="file~~graph~~FileGraph_edge8" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_coord.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C167.64,-526 244.83,-757.51 164,-831 154.85,-839.32 142.82,-844.43 130.84,-847.54"/>
-<polygon fill="#000000" stroke="#000000" points="129.89,-844.17 120.86,-849.72 131.38,-851.01 129.89,-844.17"/>
-</g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~tides_spin_step.f90 -->
-<g id="file~~graph~~FileGraph_edge12" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~tides_spin_step.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C180.38,-537.73 234.12,-729.56 164,-789 158.29,-793.84 151.59,-797.59 144.53,-800.48"/>
-<polygon fill="#000000" stroke="#000000" points="143.03,-797.3 134.75,-803.92 145.35,-803.9 143.03,-797.3"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_driver.f90 -->
+<g id="file~~graph~~FileGraph_edge128" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_driver.f90</title>
+<path fill="none" stroke="#000000" d="M226.8,-1280.84C210.15,-1271.67 186.14,-1259.3 164,-1251 156.64,-1248.24 148.76,-1245.71 140.93,-1243.43"/>
+<polygon fill="#000000" stroke="#000000" points="141.63,-1239.99 131.06,-1240.68 139.76,-1246.74 141.63,-1239.99"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="file~~graph~~FileGraph_edge19" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" d="M763.78,-1392.27C752.04,-1390.49 739.63,-1388.91 728,-1388 679.7,-1384.2 667.27,-1383.93 619,-1388 610.47,-1388.72 601.49,-1389.85 592.73,-1391.16"/>
-<polygon fill="#000000" stroke="#000000" points="591.9,-1387.75 582.58,-1392.78 593,-1394.66 591.9,-1387.75"/>
+<!-- sourcefile~util_minimize_bfgs.f90 -->
+<g id="file~~graph~~FileGraph_node65" class="node">
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_file~~graph~~FileGraph_node65"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="141,-948 23,-948 23,-924 141,-924 141,-948"/>
+<text text-anchor="middle" x="82" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~fragmentation.f90 -->
-<g id="file~~graph~~FileGraph_edge22" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~fragmentation.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C204.04,-559.52 214.16,-672.51 164,-705 156.81,-709.66 148.64,-713.28 140.32,-716.1"/>
-<polygon fill="#000000" stroke="#000000" points="139.1,-712.82 130.54,-719.06 141.12,-719.52 139.1,-712.82"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="file~~graph~~FileGraph_edge33" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" d="M392,-1284C360.42,-1263.22 316.08,-1272.52 285.38,-1283.43"/>
-<polygon fill="#000000" stroke="#000000" points="284.05,-1280.2 275.93,-1287 286.52,-1286.74 284.05,-1280.2"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~util_minimize_bfgs.f90 -->
+<g id="file~~graph~~FileGraph_edge131" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~util_minimize_bfgs.f90</title>
+<path fill="none" stroke="#000000" d="M246.61,-1280.8C240.17,-1226.21 211.41,-1004.83 164,-957 160.04,-953 155.42,-949.73 150.43,-947.06"/>
+<polygon fill="#000000" stroke="#000000" points="151.68,-943.79 141.12,-942.88 148.81,-950.17 151.68,-943.79"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~kick.f90 -->
-<g id="file~~graph~~FileGraph_edge35" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~kick.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C213.67,-568.39 206.05,-642.76 164,-663 149.99,-669.74 133.54,-674.52 119.13,-677.79"/>
-<polygon fill="#000000" stroke="#000000" points="118.13,-674.43 109.07,-679.92 119.58,-681.28 118.13,-674.43"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_util.f90 -->
+<g id="file~~graph~~FileGraph_edge135" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_util.f90</title>
+<path fill="none" stroke="#000000" d="M239.27,-1305.22C227.82,-1322.02 208.21,-1353.65 200,-1384 175.8,-1473.43 222.26,-2144.97 164,-2217 155.41,-2227.62 142.2,-2233.27 128.93,-2236.17"/>
+<polygon fill="#000000" stroke="#000000" points="128.11,-2232.76 118.84,-2237.89 129.28,-2239.66 128.11,-2232.76"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~tides_getacch_pl.f90 -->
-<g id="file~~graph~~FileGraph_edge39" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~tides_getacch_pl.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C247.47,-599.51 186.75,-615.1 139.13,-627.43"/>
-<polygon fill="#000000" stroke="#000000" points="138,-624.1 129.19,-630 139.75,-630.88 138,-624.1"/>
+<!-- sourcefile~symba_util.f90 -->
+<g id="file~~graph~~FileGraph_node69" class="node">
+<title>sourcefile~symba_util.f90</title>
+<g id="a_file~~graph~~FileGraph_node69"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="123,-2166 41,-2166 41,-2142 123,-2142 123,-2166"/>
+<text text-anchor="middle" x="82" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~io.f90 -->
-<g id="file~~graph~~FileGraph_edge41" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~io.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C229.94,-583.37 162.12,-589.01 119.25,-594.55"/>
-<polygon fill="#000000" stroke="#000000" points="118.64,-591.1 109.2,-595.91 119.58,-598.04 118.64,-591.1"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~setup.f90 -->
-<g id="file~~graph~~FileGraph_edge43" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~setup.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C213.37,-568.11 157.96,-559.64 121.03,-557.8"/>
-<polygon fill="#000000" stroke="#000000" points="120.79,-554.29 110.67,-557.43 120.54,-561.28 120.79,-554.29"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_util.f90 -->
+<g id="file~~graph~~FileGraph_edge139" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_util.f90</title>
+<path fill="none" stroke="#000000" d="M239.29,-1305.22C227.87,-1322.04 208.29,-1353.67 200,-1384 178.04,-1464.37 216.56,-2068.35 164,-2133 156.34,-2142.42 145.05,-2147.93 133.31,-2151.08"/>
+<polygon fill="#000000" stroke="#000000" points="132.46,-2147.68 123.41,-2153.2 133.92,-2154.52 132.46,-2147.68"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_solve.f90 -->
-<g id="file~~graph~~FileGraph_edge53" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_solve.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C213.67,-568.39 206.05,-557.24 164,-537 153.27,-531.83 141.1,-527.82 129.52,-524.76"/>
-<polygon fill="#000000" stroke="#000000" points="130.09,-521.29 119.55,-522.3 128.42,-528.09 130.09,-521.29"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_io.f90 -->
+<g id="file~~graph~~FileGraph_edge2" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_io.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1944C229.97,-1958.19 215.37,-1945.96 200,-1963 160.41,-2006.88 206.21,-2049.64 164,-2091 154.83,-2099.98 142.34,-2105.27 129.91,-2108.34"/>
+<polygon fill="#000000" stroke="#000000" points="129.12,-2104.92 120.02,-2110.35 130.52,-2111.78 129.12,-2104.92"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_append.f90 -->
-<g id="file~~graph~~FileGraph_edge59" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_append.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C204.04,-559.52 214.16,-527.49 164,-495 155.22,-489.31 144.98,-485.16 134.78,-482.14"/>
-<polygon fill="#000000" stroke="#000000" points="135.63,-478.74 125.07,-479.57 133.84,-485.51 135.63,-478.74"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_discard.f90 -->
+<g id="file~~graph~~FileGraph_edge6" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_discard.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1944C229.97,-1958.19 216.38,-1946.94 200,-1963 170.42,-1992.01 195.31,-2021.86 164,-2049 157.98,-2054.22 150.82,-2058.16 143.29,-2061.14"/>
+<polygon fill="#000000" stroke="#000000" points="141.95,-2057.9 133.6,-2064.42 144.2,-2064.53 141.95,-2057.9"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_spill.f90 -->
-<g id="file~~graph~~FileGraph_edge66" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_spill.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C192.65,-549.03 223.78,-498.7 164,-453 153.15,-444.7 139.34,-439.67 126.21,-436.62"/>
-<polygon fill="#000000" stroke="#000000" points="126.86,-433.18 116.36,-434.65 125.48,-440.04 126.86,-433.18"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_fragmentation.f90 -->
+<g id="file~~graph~~FileGraph_edge10" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_fragmentation.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1944C229.97,-1958.19 218.53,-1949.46 200,-1963 179.6,-1977.91 185.28,-1993.38 164,-2007 161.25,-2008.76 158.35,-2010.38 155.36,-2011.86"/>
+<polygon fill="#000000" stroke="#000000" points="153.9,-2008.68 146.15,-2015.9 156.71,-2015.09 153.9,-2008.68"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~orbel.f90 -->
-<g id="file~~graph~~FileGraph_edge70" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~orbel.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C180.38,-537.73 234.12,-470.44 164,-411 151.75,-400.62 134.99,-395.29 119.89,-392.58"/>
-<polygon fill="#000000" stroke="#000000" points="120.18,-389.09 109.77,-391.1 119.16,-396.01 120.18,-389.09"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="file~~graph~~FileGraph_edge35" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" d="M385.02,-1551.7C373.93,-1532.05 351.71,-1492.3 334,-1458 317.22,-1425.5 314.53,-1416.62 298,-1384 285.75,-1359.83 271.16,-1332.34 261.3,-1313.96"/>
+<polygon fill="#000000" stroke="#000000" points="264.31,-1312.16 256.49,-1305.01 258.14,-1315.47 264.31,-1312.16"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~user_getacch.f90 -->
-<g id="file~~graph~~FileGraph_edge72" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~user_getacch.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C167.64,-526 244.83,-442.49 164,-369 157.05,-362.68 148.45,-358.22 139.47,-355.07"/>
-<polygon fill="#000000" stroke="#000000" points="140.23,-351.65 129.65,-352.15 138.23,-358.36 140.23,-351.65"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_drift.f90 -->
+<g id="file~~graph~~FileGraph_edge76" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_drift.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1944C238.96,-1951.12 179.86,-1965.12 134.95,-1974.99"/>
+<polygon fill="#000000" stroke="#000000" points="134.06,-1971.6 125.04,-1977.16 135.55,-1978.44 134.06,-1971.6"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_fill.f90 -->
-<g id="file~~graph~~FileGraph_edge74" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_fill.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C154.61,-514.01 255.75,-414.73 164,-327 152.82,-316.31 136.94,-310.88 122.19,-308.19"/>
-<polygon fill="#000000" stroke="#000000" points="122.64,-304.71 112.24,-306.72 121.62,-311.64 122.64,-304.71"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_kick.f90 -->
+<g id="file~~graph~~FileGraph_edge84" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_kick.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1944C215.18,-1969.83 166.23,-1966.24 130.16,-1958.36"/>
+<polygon fill="#000000" stroke="#000000" points="130.89,-1954.94 120.36,-1956.05 129.28,-1961.75 130.89,-1954.94"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_sort.f90 -->
-<g id="file~~graph~~FileGraph_edge81" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_sort.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C141.41,-501.85 266.81,-387.1 164,-285 153.98,-275.05 139.89,-269.63 126.26,-266.73"/>
-<polygon fill="#000000" stroke="#000000" points="126.46,-263.21 116.01,-264.97 125.27,-270.11 126.46,-263.21"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_step.f90 -->
+<g id="file~~graph~~FileGraph_edge98" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_step.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1944C247.42,-1944.45 183.88,-1928.13 135.83,-1915.71"/>
+<polygon fill="#000000" stroke="#000000" points="136.7,-1912.32 126.14,-1913.2 134.95,-1919.09 136.7,-1912.32"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~eucl.f90 -->
-<g id="file~~graph~~FileGraph_edge85" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~eucl.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C128.09,-489.59 277.95,-359.55 164,-243 152.34,-231.07 134.84,-225.62 119.08,-223.23"/>
-<polygon fill="#000000" stroke="#000000" points="119.4,-219.75 109.06,-222.07 118.59,-226.7 119.4,-219.75"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_collision.f90 -->
+<g id="file~~graph~~FileGraph_edge117" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_collision.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1944C211.33,-1972.86 206.05,-1901.24 164,-1881 157.93,-1878.08 151.4,-1875.53 144.78,-1873.31"/>
+<polygon fill="#000000" stroke="#000000" points="145.65,-1869.91 135.06,-1870.29 143.57,-1876.6 145.65,-1869.91"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_peri.f90 -->
-<g id="file~~graph~~FileGraph_edge87" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_peri.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C114.69,-477.24 289.15,-332.07 164,-201 154.15,-190.69 139.94,-185.19 126.17,-182.34"/>
-<polygon fill="#000000" stroke="#000000" points="126.72,-178.89 116.29,-180.7 125.58,-185.79 126.72,-178.89"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_setup.f90 -->
+<g id="file~~graph~~FileGraph_edge119" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_setup.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1944C201.04,-1980.96 214.16,-1871.49 164,-1839 156.47,-1834.12 147.86,-1830.38 139.13,-1827.5"/>
+<polygon fill="#000000" stroke="#000000" points="139.85,-1824.06 129.27,-1824.6 137.88,-1830.78 139.85,-1824.06"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_version.f90 -->
-<g id="file~~graph~~FileGraph_edge89" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_version.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C101.22,-464.85 300.39,-304.63 164,-159 156.17,-150.64 145.47,-145.43 134.41,-142.24"/>
-<polygon fill="#000000" stroke="#000000" points="135.21,-138.83 124.67,-139.91 133.59,-145.64 135.21,-138.83"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_encounter_check.f90 -->
+<g id="file~~graph~~FileGraph_edge125" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_encounter_check.f90</title>
+<path fill="none" stroke="#000000" d="M344.99,-1576.11C340.9,-1578.55 337.13,-1581.48 334,-1585 225.14,-1707.48 378.76,-1842.65 250,-1944"/>
+<path fill="none" stroke="#000000" d="M248,-1944C188.87,-1990.54 223.78,-1842.7 164,-1797 162.12,-1795.57 160.16,-1794.23 158.13,-1792.98"/>
+<polygon fill="#000000" stroke="#000000" points="159.3,-1789.65 148.83,-1788.09 156.04,-1795.84 159.3,-1789.65"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~discard.f90 -->
-<g id="file~~graph~~FileGraph_edge91" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~discard.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C87.71,-452.41 311.67,-277.22 164,-117 154.02,-106.17 139.24,-100.62 125.02,-97.88"/>
-<polygon fill="#000000" stroke="#000000" points="125.26,-94.37 114.85,-96.33 124.21,-101.29 125.26,-94.37"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_util.f90 -->
+<g id="file~~graph~~FileGraph_edge140" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_util.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1944C229.97,-1958.19 214.8,-1945.47 200,-1963 150.17,-2022.01 217.37,-2077.17 164,-2133 155.85,-2141.53 144.72,-2146.76 133.32,-2149.93"/>
+<polygon fill="#000000" stroke="#000000" points="132.27,-2146.57 123.3,-2152.21 133.82,-2153.4 132.27,-2146.57"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_set.f90 -->
-<g id="file~~graph~~FileGraph_edge93" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_set.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C74.17,-439.93 322.97,-249.84 164,-75 153.93,-63.93 138.86,-58.37 124.43,-55.67"/>
-<polygon fill="#000000" stroke="#000000" points="124.52,-52.15 114.12,-54.18 123.51,-59.08 124.52,-52.15"/>
+<!-- sourcefile~operator_mag.f90 -->
+<g id="file~~graph~~FileGraph_node22" class="node">
+<title>sourcefile~operator_mag.f90</title>
+<g id="a_file~~graph~~FileGraph_node22"><a xlink:href=".././sourcefile/operator_mag.f90.html" xlink:title="operator_mag.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="298,-1996 200,-1996 200,-1972 298,-1972 298,-1996"/>
+<text text-anchor="middle" x="249" y="-1981.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="file~~graph~~FileGraph_edge99" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" d="M788.06,-1414.08C779.99,-1418.04 771.39,-1422.77 764,-1428 745.78,-1440.89 747.38,-1451.94 728,-1463 640.44,-1512.98 524.22,-1536.53 454.49,-1546.83"/>
-<polygon fill="#000000" stroke="#000000" points="453.95,-1543.37 444.55,-1548.26 454.95,-1550.3 453.95,-1543.37"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~obl.f90 -->
-<g id="file~~graph~~FileGraph_edge103" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~obl.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C60.6,-427.44 334.28,-222.48 164,-33 152.77,-20.5 135.15,-15.01 119.21,-12.75"/>
-<polygon fill="#000000" stroke="#000000" points="119.37,-9.24 109.06,-11.68 118.64,-16.21 119.37,-9.24"/>
-<path fill="none" stroke="#000000" d="M809.95,-1389.79C797.41,-1367.82 767.67,-1322.12 728,-1303 661.03,-1270.73 456.1,-1324.87 394,-1284"/>
-<path fill="none" stroke="#000000" d="M392,-1284C141.32,-1100.8 478.4,-810.31 250,-600"/>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="file~~graph~~FileGraph_edge32" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" d="M644.73,-1418.02C617.68,-1428.7 575.09,-1442.81 536.5,-1444"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
-<g id="file~~graph~~FileGraph_node53" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_file~~graph~~FileGraph_node53"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="720.5,-1454 626.5,-1454 626.5,-1430 720.5,-1430 720.5,-1454"/>
-<text text-anchor="middle" x="673.5" y="-1439.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
-</a>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_append.f90 -->
+<g id="file~~graph~~FileGraph_edge7" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_append.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C130.17,-613.62 250.27,-792.41 164,-873 155.95,-880.52 145.57,-885.42 134.94,-888.61"/>
+<polygon fill="#000000" stroke="#000000" points="134.01,-885.23 125.17,-891.07 135.72,-892.02 134.01,-885.23"/>
 </g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_solve.f90 -->
+<g id="file~~graph~~FileGraph_edge15" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_solve.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C147.67,-614.72 239.44,-764.57 164,-831 154.55,-839.33 142.2,-844.42 130.01,-847.52"/>
+<polygon fill="#000000" stroke="#000000" points="128.92,-844.17 119.87,-849.68 130.38,-851.02 128.92,-844.17"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="file~~graph~~FileGraph_edge109" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" d="M773.9,-1414C759.29,-1418.12 742.76,-1422.77 727.43,-1427.09"/>
-<polygon fill="#000000" stroke="#000000" points="726.24,-1423.79 717.57,-1429.87 728.14,-1430.53 726.24,-1423.79"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~fragmentation.f90 -->
+<g id="file~~graph~~FileGraph_edge23" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~fragmentation.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C164.68,-615.78 228.89,-736.48 164,-789 157.11,-794.58 148.9,-798.69 140.39,-801.72"/>
+<polygon fill="#000000" stroke="#000000" points="139.24,-798.41 130.71,-804.7 141.3,-805.1 139.24,-798.41"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~drift.f90 -->
-<g id="file~~graph~~FileGraph_edge113" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~drift.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C74.17,-439.93 322.97,-950.16 164,-1125 152.7,-1137.43 135.07,-1142.92 119.15,-1145.19"/>
-<polygon fill="#000000" stroke="#000000" points="118.58,-1141.73 109.01,-1146.27 119.32,-1148.7 118.58,-1141.73"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~tides_spin_step.f90 -->
+<g id="file~~graph~~FileGraph_edge25" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~tides_spin_step.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C180.83,-616.79 218.85,-707.99 164,-747 158.06,-751.23 151.33,-754.6 144.36,-757.3"/>
+<polygon fill="#000000" stroke="#000000" points="143.09,-754.04 134.75,-760.57 145.34,-760.66 143.09,-754.04"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_valid.f90 -->
-<g id="file~~graph~~FileGraph_edge120" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_valid.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C87.71,-452.41 311.67,-922.78 164,-1083 154.74,-1093.04 141.36,-1098.54 128.13,-1101.48"/>
-<polygon fill="#000000" stroke="#000000" points="127.34,-1098.07 118.11,-1103.26 128.57,-1104.96 127.34,-1098.07"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_coord.f90 -->
+<g id="file~~graph~~FileGraph_edge27" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_coord.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C195.31,-617.7 209.83,-678.79 164,-705 153.86,-710.8 142.09,-715.03 130.72,-718.1"/>
+<polygon fill="#000000" stroke="#000000" points="129.77,-714.73 120.89,-720.51 131.43,-721.53 129.77,-714.73"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_minimize_bfgs.f90 -->
-<g id="file~~graph~~FileGraph_edge128" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_minimize_bfgs.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C101.22,-464.85 300.39,-895.37 164,-1041 160.09,-1045.17 155.47,-1048.56 150.44,-1051.31"/>
-<polygon fill="#000000" stroke="#000000" points="148.69,-1048.26 141.03,-1055.58 151.58,-1054.63 148.69,-1048.26"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="file~~graph~~FileGraph_edge33" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" d="M672.5,-1446C612.2,-1450.34 596.92,-1442.14 536.5,-1444"/>
+<path fill="none" stroke="#000000" d="M763.84,-1443.3C737.06,-1443.31 704.01,-1443.88 674.5,-1446"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_get_energy_momentum.f90 -->
-<g id="file~~graph~~FileGraph_edge130" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_get_energy_momentum.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C114.69,-477.24 289.15,-867.93 164,-999 163.07,-999.98 162.1,-1000.91 161.09,-1001.8"/>
-<polygon fill="#000000" stroke="#000000" points="158.8,-999.14 152.77,-1007.85 162.92,-1004.8 158.8,-999.14"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~obl.f90 -->
+<g id="file~~graph~~FileGraph_edge37" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~obl.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C206.34,-618.39 203.08,-648.35 164,-663 149.66,-668.38 133.4,-672.88 119.22,-676.33"/>
+<polygon fill="#000000" stroke="#000000" points="118.27,-672.96 109.33,-678.65 119.87,-679.77 118.27,-672.96"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~gr.f90 -->
-<g id="file~~graph~~FileGraph_edge132" class="edge">
+<g id="file~~graph~~FileGraph_edge41" class="edge">
 <title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~gr.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C128.09,-489.59 277.95,-840.45 164,-957 152.34,-968.93 134.84,-974.38 119.08,-976.77"/>
-<polygon fill="#000000" stroke="#000000" points="118.59,-973.3 109.06,-977.93 119.4,-980.25 118.59,-973.3"/>
+<path fill="none" stroke="#000000" d="M248,-621C203.53,-618.21 152.72,-626.42 119.38,-633.37"/>
+<polygon fill="#000000" stroke="#000000" points="118.23,-630.04 109.19,-635.57 119.71,-636.88 118.23,-630.04"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge43" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" d="M783.74,-1456.04C776.63,-1459.74 769.58,-1464.36 764,-1470 738.02,-1496.31 758.72,-1524.43 728,-1545 646.36,-1599.67 526.75,-1590.38 455.02,-1577.79"/>
+<polygon fill="#000000" stroke="#000000" points="455.26,-1574.28 444.79,-1575.92 454,-1581.16 455.26,-1574.28"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_set.f90 -->
+<g id="file~~graph~~FileGraph_edge52" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_set.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C205.74,-618.35 157.76,-611.85 124.48,-606.77"/>
+<polygon fill="#000000" stroke="#000000" points="124.63,-603.26 114.21,-605.18 123.56,-610.17 124.63,-603.26"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~orbel.f90 -->
+<g id="file~~graph~~FileGraph_edge54" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~orbel.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C206.34,-618.39 203.08,-593.65 164,-579 149.77,-573.67 133.64,-569.18 119.55,-565.75"/>
+<polygon fill="#000000" stroke="#000000" points="120.23,-562.32 109.7,-563.44 118.63,-569.13 120.23,-562.32"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_resize.f90 -->
-<g id="file~~graph~~FileGraph_edge134" class="edge">
+<g id="file~~graph~~FileGraph_edge56" class="edge">
 <title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_resize.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C141.41,-501.85 266.81,-812.9 164,-915 155.3,-923.64 143.54,-928.86 131.68,-931.99"/>
-<polygon fill="#000000" stroke="#000000" points="130.78,-928.6 121.75,-934.14 132.27,-935.44 130.78,-928.6"/>
+<path fill="none" stroke="#000000" d="M248,-621C195.31,-617.7 209.83,-563.21 164,-537 154.15,-531.37 142.77,-527.22 131.72,-524.17"/>
+<polygon fill="#000000" stroke="#000000" points="132.26,-520.7 121.71,-521.67 130.56,-527.49 132.26,-520.7"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_copy.f90 -->
-<g id="file~~graph~~FileGraph_edge136" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_copy.f90</title>
-<path fill="none" stroke="#000000" d="M248,-600C192.65,-549.03 223.78,-701.3 164,-747 153.53,-755.01 140.3,-759.97 127.59,-763.05"/>
-<polygon fill="#000000" stroke="#000000" points="126.65,-759.67 117.57,-765.14 128.07,-766.53 126.65,-759.67"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~eucl.f90 -->
+<g id="file~~graph~~FileGraph_edge58" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~eucl.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C180.83,-616.79 218.85,-534.01 164,-495 150.92,-485.7 134.04,-480.51 119.08,-477.62"/>
+<polygon fill="#000000" stroke="#000000" points="119.53,-474.15 109.1,-475.97 118.39,-481.06 119.53,-474.15"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="file~~graph~~FileGraph_node34" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_file~~graph~~FileGraph_node34"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="1013,-1434 907,-1434 907,-1410 1013,-1410 1013,-1434"/>
-<text text-anchor="middle" x="960" y="-1419.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
-</a>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~setup.f90 -->
+<g id="file~~graph~~FileGraph_edge60" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~setup.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C164.68,-615.78 228.89,-505.52 164,-453 151.8,-443.12 135.46,-437.84 120.66,-435.04"/>
+<polygon fill="#000000" stroke="#000000" points="121.15,-431.57 110.73,-433.47 120.06,-438.49 121.15,-431.57"/>
 </g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_peri.f90 -->
+<g id="file~~graph~~FileGraph_edge67" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_peri.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C147.67,-614.72 239.44,-477.43 164,-411 153.57,-401.82 139.64,-396.57 126.26,-393.59"/>
+<polygon fill="#000000" stroke="#000000" points="126.68,-390.11 116.21,-391.73 125.41,-396.99 126.68,-390.11"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="file~~graph~~FileGraph_edge17" class="edge">
-<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" d="M672.5,-1598C533.38,-1661.53 421.44,-2183.1 398.37,-2297.76"/>
-<polygon fill="#000000" stroke="#000000" points="394.88,-2297.34 396.36,-2307.83 401.75,-2298.71 394.88,-2297.34"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~drift.f90 -->
+<g id="file~~graph~~FileGraph_edge73" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~drift.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C130.17,-613.62 250.27,-449.59 164,-369 152.01,-357.8 134.84,-352.4 119.38,-349.85"/>
+<polygon fill="#000000" stroke="#000000" points="119.41,-346.33 109.05,-348.51 118.51,-353.27 119.41,-346.33"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="file~~graph~~FileGraph_edge18" class="edge">
-<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" d="M672.5,-1402C646.92,-1394.83 617.56,-1393.97 592.68,-1395.24"/>
-<polygon fill="#000000" stroke="#000000" points="592.43,-1391.75 582.67,-1395.88 592.88,-1398.74 592.43,-1391.75"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~user_getacch.f90 -->
+<g id="file~~graph~~FileGraph_edge77" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~user_getacch.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C112.37,-612.51 261.27,-421.9 164,-327 157.13,-320.3 148.41,-315.66 139.26,-312.46"/>
+<polygon fill="#000000" stroke="#000000" points="140.2,-309.09 129.62,-309.62 138.23,-315.8 140.2,-309.09"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="file~~graph~~FileGraph_edge23" class="edge">
-<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" d="M672.5,-1598C647.98,-1608.74 618.5,-1609.96 593.27,-1608"/>
-<polygon fill="#000000" stroke="#000000" points="593.39,-1604.49 583.1,-1607.02 592.72,-1611.46 593.39,-1604.49"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_spill.f90 -->
+<g id="file~~graph~~FileGraph_edge79" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_spill.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C94.37,-611.38 272.37,-394.32 164,-285 153.96,-274.87 139.71,-269.42 125.95,-266.55"/>
+<polygon fill="#000000" stroke="#000000" points="126.53,-263.1 116.09,-264.89 125.37,-270.01 126.53,-263.1"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="file~~graph~~FileGraph_edge27" class="edge">
-<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" d="M816.5,-1442C783.79,-1444.23 706.07,-1410.85 674.5,-1402"/>
-<path fill="none" stroke="#000000" d="M672.5,-1402C605.4,-1383.2 604.92,-1337.17 536.5,-1324"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~io.f90 -->
+<g id="file~~graph~~FileGraph_edge81" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~io.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C76.24,-610.24 283.54,-366.8 164,-243 152.41,-231 134.92,-225.54 119.15,-223.17"/>
+<polygon fill="#000000" stroke="#000000" points="119.45,-219.68 109.12,-222.02 118.66,-226.63 119.45,-219.68"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="file~~graph~~FileGraph_edge62" class="edge">
-<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" d="M906.68,-1414.55C898.47,-1413.38 889.91,-1412.17 881.5,-1410.97"/>
-<polygon fill="#000000" stroke="#000000" points="881.72,-1407.46 871.33,-1409.52 880.74,-1414.39 881.72,-1407.46"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~kick.f90 -->
+<g id="file~~graph~~FileGraph_edge93" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~kick.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C58.01,-609.1 294.77,-339.34 164,-201 152.54,-188.88 135.06,-183.4 119.27,-181.05"/>
+<polygon fill="#000000" stroke="#000000" points="119.54,-177.56 109.22,-179.92 118.76,-184.52 119.54,-177.56"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="file~~graph~~FileGraph_node38" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_file~~graph~~FileGraph_node38"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="728,-1336 619,-1336 619,-1312 728,-1312 728,-1336"/>
-<text text-anchor="middle" x="673.5" y="-1321.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
-</a>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_rescale.f90 -->
+<g id="file~~graph~~FileGraph_edge95" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_rescale.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C39.71,-607.96 306.03,-311.92 164,-159 156.2,-150.6 145.52,-145.39 134.46,-142.19"/>
+<polygon fill="#000000" stroke="#000000" points="135.26,-138.78 124.72,-139.87 133.64,-145.59 135.26,-138.78"/>
 </g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_get_energy_momentum.f90 -->
+<g id="file~~graph~~FileGraph_edge99" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_get_energy_momentum.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C134.68,-613.9 240.66,-200.76 164,-117 163.22,-116.14 162.4,-115.32 161.56,-114.53"/>
+<polygon fill="#000000" stroke="#000000" points="163.38,-111.51 153.31,-108.22 159.13,-117.07 163.38,-111.51"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="file~~graph~~FileGraph_edge77" class="edge">
-<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" d="M906.82,-1431.29C880.44,-1435.51 847.87,-1440 818.5,-1442"/>
-<path fill="none" stroke="#000000" d="M816.5,-1442C791.74,-1443.69 784.6,-1436.84 764,-1423 747.15,-1411.68 711.45,-1369.49 690.59,-1343.98"/>
-<polygon fill="#000000" stroke="#000000" points="693.15,-1341.59 684.13,-1336.04 687.72,-1346.01 693.15,-1341.59"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~tides_getacch_pl.f90 -->
+<g id="file~~graph~~FileGraph_edge101" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~tides_getacch_pl.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C125.48,-613.33 246.31,-166.08 164,-75 159.29,-69.79 153.46,-65.79 147.12,-62.75"/>
+<polygon fill="#000000" stroke="#000000" points="148.1,-59.37 137.51,-58.92 145.51,-65.87 148.1,-59.37"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="file~~graph~~FileGraph_edge97" class="edge">
-<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" d="M816.5,-1442C722.96,-1448.37 760.38,-1560.4 674.5,-1598"/>
-<path fill="none" stroke="#000000" d="M672.5,-1598C635.07,-1614.39 623.23,-1584.15 583,-1577 540.46,-1569.44 492.09,-1563.61 454.93,-1559.71"/>
-<polygon fill="#000000" stroke="#000000" points="455.07,-1556.2 444.76,-1558.66 454.35,-1563.16 455.07,-1556.2"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_fill.f90 -->
+<g id="file~~graph~~FileGraph_edge106" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_fill.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C116.26,-612.75 251.97,-131.4 164,-33 153.54,-21.3 137.47,-15.73 122.4,-13.21"/>
+<polygon fill="#000000" stroke="#000000" points="122.57,-9.7 112.21,-11.91 121.69,-16.65 122.57,-9.7"/>
+<path fill="none" stroke="#000000" d="M814.44,-1431.82C796.72,-1331.63 660.73,-646.72 250,-621"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_exit.f90 -->
 <g id="file~~graph~~FileGraph_edge108" class="edge">
-<title>sourcefile~swiftest_globals.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" d="M816.5,-1442C788.27,-1443.92 756.82,-1444.12 730.7,-1443.75"/>
-<polygon fill="#000000" stroke="#000000" points="730.66,-1440.25 720.6,-1443.58 730.54,-1447.25 730.66,-1440.25"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_exit.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C125.48,-613.33 246.31,-1075.92 164,-1167 154.28,-1177.75 139.83,-1183.32 125.82,-1186.1"/>
+<polygon fill="#000000" stroke="#000000" points="125.1,-1182.67 115.76,-1187.67 126.18,-1189.58 125.1,-1182.67"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="file~~graph~~FileGraph_edge31" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" d="M534.5,-1324C449,-1311.54 348.07,-1304.46 292.33,-1301.21"/>
-<polygon fill="#000000" stroke="#000000" points="292.32,-1297.7 282.14,-1300.63 291.92,-1304.69 292.32,-1297.7"/>
-<path fill="none" stroke="#000000" d="M618.77,-1328.66C593.58,-1329.66 563.28,-1329.15 536.5,-1324"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_copy.f90 -->
+<g id="file~~graph~~FileGraph_edge110" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_copy.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C134.68,-613.9 240.66,-1041.24 164,-1125 154.7,-1135.16 141.17,-1140.68 127.83,-1143.59"/>
+<polygon fill="#000000" stroke="#000000" points="126.99,-1140.19 117.74,-1145.35 128.19,-1147.08 126.99,-1140.19"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_setup.f90 -->
-<g id="file~~graph~~FileGraph_edge5" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_setup.f90</title>
-<path fill="none" stroke="#000000" d="M248,-1860C228.7,-1874.01 214.64,-1865.17 200,-1884 153.92,-1943.25 216.03,-1994.9 164,-2049 157.2,-2056.07 148.35,-2060.87 139,-2064.11"/>
-<polygon fill="#000000" stroke="#000000" points="137.79,-2060.82 129.15,-2066.95 139.73,-2067.54 137.79,-2060.82"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_valid.f90 -->
+<g id="file~~graph~~FileGraph_edge112" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_valid.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C39.71,-607.96 306.03,-930.08 164,-1083 154.7,-1093.01 141.31,-1098.5 128.08,-1101.44"/>
+<polygon fill="#000000" stroke="#000000" points="127.3,-1098.02 118.07,-1103.22 128.53,-1104.91 127.3,-1098.02"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_kick.f90 -->
-<g id="file~~graph~~FileGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_kick.f90</title>
-<path fill="none" stroke="#000000" d="M248,-1860C228.7,-1874.01 215.29,-1865.7 200,-1884 163.48,-1927.71 204.9,-1967.35 164,-2007 156.09,-2014.66 145.77,-2019.63 135.15,-2022.83"/>
-<polygon fill="#000000" stroke="#000000" points="134.22,-2019.45 125.38,-2025.29 135.93,-2026.24 134.22,-2019.45"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_sort.f90 -->
+<g id="file~~graph~~FileGraph_edge114" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_sort.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C58.01,-609.1 294.77,-902.66 164,-1041 154.2,-1051.36 140.01,-1056.87 126.23,-1059.71"/>
+<polygon fill="#000000" stroke="#000000" points="125.63,-1056.27 116.34,-1061.35 126.78,-1063.17 125.63,-1056.27"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_encounter_check.f90 -->
-<g id="file~~graph~~FileGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_encounter_check.f90</title>
-<path fill="none" stroke="#000000" d="M248,-1860C228.7,-1874.01 216.48,-1866.76 200,-1884 172.78,-1912.48 194.05,-1939.53 164,-1965 162.46,-1966.3 160.85,-1967.53 159.19,-1968.68"/>
-<polygon fill="#000000" stroke="#000000" points="157.27,-1965.74 150.41,-1973.82 160.81,-1971.78 157.27,-1965.74"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_version.f90 -->
+<g id="file~~graph~~FileGraph_edge120" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_version.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C76.24,-610.24 283.54,-875.2 164,-999 156.2,-1007.08 145.72,-1012.2 134.89,-1015.4"/>
+<polygon fill="#000000" stroke="#000000" points="133.8,-1012.06 124.92,-1017.84 135.46,-1018.86 133.8,-1012.06"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="file~~graph~~FileGraph_edge26" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" d="M362.71,-1541.98C352.3,-1536.39 341.35,-1528.78 334,-1519 296.71,-1469.35 321.46,-1441.5 298,-1384 288.6,-1360.96 274.2,-1336.39 263.62,-1319.63"/>
-<polygon fill="#000000" stroke="#000000" points="266.54,-1317.7 258.19,-1311.17 260.65,-1321.48 266.54,-1317.7"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~discard.f90 -->
+<g id="file~~graph~~FileGraph_edge126" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~discard.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C94.37,-611.38 272.37,-847.68 164,-957 153.71,-967.38 139,-972.84 124.94,-975.65"/>
+<polygon fill="#000000" stroke="#000000" points="124.2,-972.23 114.88,-977.26 125.31,-979.14 124.2,-972.23"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_collision.f90 -->
-<g id="file~~graph~~FileGraph_edge36" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_collision.f90</title>
-<path fill="none" stroke="#000000" d="M248,-1860C228.7,-1874.01 219.07,-1869.67 200,-1884 181.14,-1898.17 184.24,-1910.88 164,-1923 158.14,-1926.51 151.7,-1929.44 145.09,-1931.88"/>
-<polygon fill="#000000" stroke="#000000" points="143.71,-1928.65 135.33,-1935.13 145.92,-1935.29 143.71,-1928.65"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_minimize_bfgs.f90 -->
+<g id="file~~graph~~FileGraph_edge130" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~util_minimize_bfgs.f90</title>
+<path fill="none" stroke="#000000" d="M248,-621C112.37,-612.51 261.27,-820.1 164,-915 160.04,-918.87 155.46,-922.05 150.53,-924.66"/>
+<polygon fill="#000000" stroke="#000000" points="149.04,-921.49 141.35,-928.78 151.91,-927.88 149.04,-921.49"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_drift.f90 -->
-<g id="file~~graph~~FileGraph_edge63" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_drift.f90</title>
-<path fill="none" stroke="#000000" d="M248,-1860C230.05,-1873.04 176.41,-1885.23 135.11,-1893.08"/>
-<polygon fill="#000000" stroke="#000000" points="134.37,-1889.66 125.18,-1894.93 135.65,-1896.54 134.37,-1889.66"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge132" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" d="M672.5,-1446C639.11,-1448.4 602.64,-1459.05 575.89,-1468.47"/>
+<polygon fill="#000000" stroke="#000000" points="574.34,-1465.31 566.13,-1472 576.73,-1471.89 574.34,-1465.31"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_fragmentation.f90 -->
-<g id="file~~graph~~FileGraph_edge75" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_fragmentation.f90</title>
-<path fill="none" stroke="#000000" d="M248,-1860C215.09,-1883.9 167.93,-1881.29 132.45,-1874.22"/>
-<polygon fill="#000000" stroke="#000000" points="132.82,-1870.72 122.31,-1872.02 131.34,-1877.56 132.82,-1870.72"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge137" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" d="M791.18,-1456.01C782.48,-1460.28 772.74,-1465.21 764,-1470 742.86,-1481.59 719.56,-1495.69 702.03,-1506.58"/>
+<polygon fill="#000000" stroke="#000000" points="700.06,-1503.68 693.44,-1511.95 703.77,-1509.62 700.06,-1503.68"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_discard.f90 -->
-<g id="file~~graph~~FileGraph_edge100" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_discard.f90</title>
-<path fill="none" stroke="#000000" d="M248,-1860C247.42,-1860.42 187.07,-1844.94 139.53,-1832.66"/>
-<polygon fill="#000000" stroke="#000000" points="140.17,-1829.2 129.61,-1830.09 138.42,-1835.98 140.17,-1829.2"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~operator_cross.f90 -->
+<g id="file~~graph~~FileGraph_edge22" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~operator_cross.f90</title>
+<path fill="none" stroke="#000000" d="M391.07,-1618.05C386.83,-1668.03 366.49,-1863.02 298,-2005 256.2,-2091.65 244.55,-2122.4 164,-2175 157.73,-2179.1 150.7,-2182.39 143.47,-2185.05"/>
+<polygon fill="#000000" stroke="#000000" points="141.96,-2181.86 133.54,-2188.28 144.13,-2188.51 141.96,-2181.86"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_step.f90 -->
-<g id="file~~graph~~FileGraph_edge106" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_step.f90</title>
-<path fill="none" stroke="#000000" d="M248,-1860C210.24,-1887.42 206.05,-1817.24 164,-1797 155.26,-1792.79 145.56,-1789.35 136.01,-1786.56"/>
-<polygon fill="#000000" stroke="#000000" points="136.71,-1783.13 126.14,-1783.89 134.88,-1789.88 136.71,-1783.13"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="file~~graph~~FileGraph_edge29" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" d="M344.52,-1593.89C340.57,-1591.45 336.97,-1588.52 334,-1585 275.51,-1515.61 327.52,-1469.82 298,-1384 289.32,-1358.78 274.43,-1332.01 263.53,-1314.09"/>
+<polygon fill="#000000" stroke="#000000" points="266.2,-1311.76 257.95,-1305.11 260.26,-1315.45 266.2,-1311.76"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_util.f90 -->
-<g id="file~~graph~~FileGraph_edge114" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_util.f90</title>
-<path fill="none" stroke="#000000" d="M248,-1860C199.64,-1895.11 214.16,-1787.49 164,-1755 154.76,-1749.01 143.89,-1744.73 133.16,-1741.67"/>
-<polygon fill="#000000" stroke="#000000" points="133.96,-1738.26 123.41,-1739.18 132.24,-1745.04 133.96,-1738.26"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~operator_mag.f90 -->
+<g id="file~~graph~~FileGraph_edge49" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~operator_mag.f90</title>
+<path fill="none" stroke="#000000" d="M392.06,-1618.11C391.69,-1666.48 384.35,-1848.48 298,-1958 295.63,-1961 292.82,-1963.71 289.75,-1966.13"/>
+<polygon fill="#000000" stroke="#000000" points="287.53,-1963.41 281.21,-1971.9 291.45,-1969.21 287.53,-1963.41"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_io.f90 -->
-<g id="file~~graph~~FileGraph_edge137" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~symba_io.f90</title>
-<path fill="none" stroke="#000000" d="M388.16,-1566.03C371.37,-1617.91 302.84,-1821.63 250,-1860"/>
-<path fill="none" stroke="#000000" d="M248,-1860C187.11,-1904.21 223.78,-1758.7 164,-1713 154.17,-1705.49 141.92,-1700.65 129.94,-1697.54"/>
-<polygon fill="#000000" stroke="#000000" points="130.53,-1694.08 120.01,-1695.31 129,-1700.91 130.53,-1694.08"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_drift.f90 -->
+<g id="file~~graph~~FileGraph_edge3" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_drift.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1398C209.8,-1382.42 164.21,-1371.35 130.64,-1364.49"/>
+<polygon fill="#000000" stroke="#000000" points="131.13,-1361.02 120.63,-1362.5 129.76,-1367.89 131.13,-1361.02"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="file~~graph~~FileGraph_edge20" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" d="M631.7,-1430C617.84,-1425.92 602.17,-1421.32 587.61,-1417.03"/>
-<polygon fill="#000000" stroke="#000000" points="588.33,-1413.6 577.75,-1414.13 586.35,-1420.31 588.33,-1413.6"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="file~~graph~~FileGraph_edge30" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" d="M488.48,-1474.81C453.45,-1467.1 408.8,-1455.54 394,-1444"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge45" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" d="M513.16,-1496.15C489.4,-1509.68 450.82,-1531.65 424.02,-1546.9"/>
+<polygon fill="#000000" stroke="#000000" points="422.04,-1544.01 415.08,-1552 425.5,-1550.09 422.04,-1544.01"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_coord.f90 -->
+<g id="file~~graph~~FileGraph_edge69" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_coord.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1398C212.3,-1383.44 168.54,-1384.19 135.05,-1388.17"/>
+<polygon fill="#000000" stroke="#000000" points="134.47,-1384.72 125.01,-1389.5 135.39,-1391.66 134.47,-1384.72"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_step.f90 -->
+<g id="file~~graph~~FileGraph_edge71" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_step.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1398C204.79,-1380.38 206.05,-1355.24 164,-1335 153.88,-1330.13 142.48,-1326.28 131.5,-1323.29"/>
+<polygon fill="#000000" stroke="#000000" points="132.14,-1319.84 121.58,-1320.77 130.42,-1326.63 132.14,-1319.84"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_gr.f90 -->
+<g id="file~~graph~~FileGraph_edge87" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_gr.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1398C192.66,-1375.43 214.16,-1325.49 164,-1293 152.74,-1285.71 139.07,-1280.94 126.19,-1277.83"/>
+<polygon fill="#000000" stroke="#000000" points="126.6,-1274.34 116.09,-1275.68 125.14,-1281.19 126.6,-1274.34"/>
+<path fill="none" stroke="#000000" d="M488.33,-1484.33C446.64,-1483.17 384.31,-1477.78 334,-1458 291.3,-1441.21 292.48,-1415.33 250,-1398"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_kick.f90 -->
+<g id="file~~graph~~FileGraph_edge122" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~helio_kick.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1398C247.29,-1397.71 178.85,-1415.27 130.35,-1427.77"/>
+<polygon fill="#000000" stroke="#000000" points="129.45,-1424.39 120.64,-1430.28 131.19,-1431.17 129.45,-1424.39"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="file~~graph~~FileGraph_edge24" class="edge">
+<g id="file~~graph~~FileGraph_edge17" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" d="M661.83,-1454.24C638.39,-1481.12 582.25,-1545.53 553.74,-1578.23"/>
-<polygon fill="#000000" stroke="#000000" points="551.06,-1575.98 547.12,-1585.82 556.33,-1580.58 551.06,-1575.98"/>
+<path fill="none" stroke="#000000" d="M663.32,-1536.05C648.14,-1555.43 616.17,-1593.98 583,-1620 579.11,-1623.05 574.82,-1625.96 570.46,-1628.66"/>
+<polygon fill="#000000" stroke="#000000" points="568.41,-1625.8 561.54,-1633.86 571.94,-1631.85 568.41,-1625.8"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="file~~graph~~FileGraph_edge32" class="edge">
+<g id="file~~graph~~FileGraph_edge34" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" d="M392,-1360C352.43,-1349.34 309.53,-1329.68 281.36,-1315.56"/>
-<polygon fill="#000000" stroke="#000000" points="282.9,-1312.42 272.4,-1311.01 279.73,-1318.66 282.9,-1312.42"/>
+<path fill="none" stroke="#000000" d="M661.78,-1511.91C640.33,-1489.15 589.62,-1442.37 536.5,-1444"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_drift.f90 -->
+<g id="file~~graph~~FileGraph_edge40" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_drift.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1608C202.76,-1619.46 206.05,-1650.76 164,-1671 153.57,-1676.02 141.79,-1679.95 130.51,-1682.98"/>
+<polygon fill="#000000" stroke="#000000" points="129.62,-1679.59 120.77,-1685.42 131.32,-1686.38 129.62,-1679.59"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_gr.f90 -->
+<g id="file~~graph~~FileGraph_edge48" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_gr.f90</title>
+<path fill="none" stroke="#000000" d="M248,-1608C206.58,-1618.5 159.33,-1630.53 126.04,-1639.02"/>
+<polygon fill="#000000" stroke="#000000" points="125,-1635.67 116.18,-1641.53 126.73,-1642.45 125,-1635.67"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_coord.f90 -->
-<g id="file~~graph~~FileGraph_edge47" class="edge">
+<g id="file~~graph~~FileGraph_edge51" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_coord.f90</title>
-<path fill="none" stroke="#000000" d="M652.72,-1454.17C617.58,-1476.27 542.82,-1525.5 488,-1577 410.03,-1650.25 385.53,-1668.25 334,-1762 308.81,-1807.82 319.9,-1826.52 298,-1874 250.53,-1976.93 255.21,-2023.7 164,-2091 155.5,-2097.27 145.28,-2101.68 135.02,-2104.77"/>
-<polygon fill="#000000" stroke="#000000" points="134,-2101.42 125.22,-2107.35 135.78,-2108.19 134,-2101.42"/>
+<path fill="none" stroke="#000000" d="M248,-1608C211.17,-1617.33 168.21,-1617 135.36,-1614.5"/>
+<polygon fill="#000000" stroke="#000000" points="135.33,-1610.99 125.07,-1613.63 134.73,-1617.96 135.33,-1610.99"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_kick.f90 -->
-<g id="file~~graph~~FileGraph_edge51" class="edge">
+<g id="file~~graph~~FileGraph_edge64" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_kick.f90</title>
-<path fill="none" stroke="#000000" d="M248,-1566C201.96,-1573.62 206.05,-1608.76 164,-1629 153.57,-1634.02 141.79,-1637.95 130.51,-1640.98"/>
-<polygon fill="#000000" stroke="#000000" points="129.62,-1637.59 120.77,-1643.42 131.32,-1644.38 129.62,-1637.59"/>
-</g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_gr.f90 -->
-<g id="file~~graph~~FileGraph_edge55" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_gr.f90</title>
-<path fill="none" stroke="#000000" d="M248,-1566C241.89,-1567.01 172.98,-1584.72 126.17,-1596.82"/>
-<polygon fill="#000000" stroke="#000000" points="125.06,-1593.49 116.26,-1599.38 126.82,-1600.27 125.06,-1593.49"/>
+<path fill="none" stroke="#000000" d="M248,-1608C247.26,-1608.2 178.83,-1590.67 130.34,-1578.2"/>
+<polygon fill="#000000" stroke="#000000" points="131.18,-1574.8 120.63,-1575.7 129.44,-1581.58 131.18,-1574.8"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_util.f90 -->
-<g id="file~~graph~~FileGraph_edge57" class="edge">
+<g id="file~~graph~~FileGraph_edge66" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_util.f90</title>
-<path fill="none" stroke="#000000" d="M248,-1566C208.22,-1572.58 162.3,-1571.93 129.02,-1570"/>
-<polygon fill="#000000" stroke="#000000" points="128.88,-1566.49 118.68,-1569.34 128.44,-1573.47 128.88,-1566.49"/>
-</g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_drift.f90 -->
-<g id="file~~graph~~FileGraph_edge79" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_drift.f90</title>
-<path fill="none" stroke="#000000" d="M248,-1566C246.5,-1566.25 178.95,-1548.87 130.76,-1536.4"/>
-<polygon fill="#000000" stroke="#000000" points="131.36,-1532.94 120.8,-1533.82 129.6,-1539.71 131.36,-1532.94"/>
+<path fill="none" stroke="#000000" d="M248,-1608C202.95,-1620.18 206.05,-1565.24 164,-1545 152.96,-1539.68 140.39,-1535.59 128.51,-1532.49"/>
+<polygon fill="#000000" stroke="#000000" points="129.28,-1529.08 118.74,-1530.12 127.63,-1535.88 129.28,-1529.08"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_step.f90 -->
-<g id="file~~graph~~FileGraph_edge105" class="edge">
+<g id="file~~graph~~FileGraph_edge86" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_step.f90</title>
-<path fill="none" stroke="#000000" d="M626.3,-1452.68C560.69,-1468.25 437.02,-1499.03 334,-1533 295.91,-1545.56 287.8,-1552.58 250,-1566"/>
-<path fill="none" stroke="#000000" d="M248,-1566C201.96,-1573.62 206.05,-1523.24 164,-1503 153.88,-1498.13 142.48,-1494.28 131.5,-1491.29"/>
-<polygon fill="#000000" stroke="#000000" points="132.14,-1487.84 121.58,-1488.77 130.42,-1494.63 132.14,-1487.84"/>
+<path fill="none" stroke="#000000" d="M626.4,-1518.18C559.58,-1511.57 432.98,-1506.05 334,-1543 289.78,-1559.51 295.57,-1595.68 250,-1608"/>
+<path fill="none" stroke="#000000" d="M248,-1608C190.07,-1622.68 214.16,-1535.49 164,-1503 154.29,-1496.71 142.78,-1492.3 131.52,-1489.21"/>
+<polygon fill="#000000" stroke="#000000" points="132.3,-1485.8 121.76,-1486.82 130.64,-1492.59 132.3,-1485.8"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_setup.f90 -->
-<g id="file~~graph~~FileGraph_edge124" class="edge">
+<g id="file~~graph~~FileGraph_edge104" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~whm_setup.f90</title>
-<path fill="none" stroke="#000000" d="M643.51,-1429.98C635.28,-1426.03 626.52,-1421.28 619,-1416 600.73,-1403.18 603.18,-1390.52 583,-1381 506.57,-1344.93 475.61,-1381.99 394,-1360"/>
-<path fill="none" stroke="#000000" d="M392,-1360C339.06,-1343.53 343.87,-1309.14 298,-1278 242.58,-1240.37 226.58,-1232.89 164,-1209 154.63,-1205.43 144.43,-1202.25 134.53,-1199.52"/>
-<polygon fill="#000000" stroke="#000000" points="135.32,-1196.11 124.76,-1196.95 133.54,-1202.88 135.32,-1196.11"/>
+<path fill="none" stroke="#000000" d="M248,-1608C190.07,-1622.68 214.16,-1680.51 164,-1713 155.13,-1718.75 144.76,-1722.92 134.46,-1725.96"/>
+<polygon fill="#000000" stroke="#000000" points="133.44,-1722.61 124.65,-1728.53 135.22,-1729.38 133.44,-1722.61"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="file~~graph~~FileGraph_edge133" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" d="M631.7,-1512C617.84,-1507.92 602.17,-1503.32 587.61,-1499.03"/>
+<polygon fill="#000000" stroke="#000000" points="588.33,-1495.6 577.75,-1496.13 586.35,-1502.31 588.33,-1495.6"/>
 </g>
 </g>
 </svg>
diff --git a/docs/lists/modules.html b/docs/lists/modules.html
index 2de03e98a..24fe9fcaf 100644
--- a/docs/lists/modules.html
+++ b/docs/lists/modules.html
@@ -280,6 +280,10 @@ <h1>Modules</h1>
                
                
 			 
+			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_util_rescale.html'>s_util_rescale</a></td><td><a href='../sourcefile/util_rescale.f90.html'>util_rescale.f90</a></td><td></td></tr>
+               
+               
+			 
 			   <tr class="active submod"><td>&nbsp;&nbsp;&nbsp;<a href='../module/s_util_resize.html'>s_util_resize</a></td><td><a href='../sourcefile/util_resize.f90.html'>util_resize.f90</a></td><td></td></tr>
                
                
@@ -424,1496 +428,1518 @@ <h1>Modules</h1>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~graph~~ModuleGraph Pages: 1 -->
-<svg id="modulegraphModuleGraph" width="843pt" height="1934pt"
- viewBox="0.00 0.00 843.00 1934.00" 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 1930)">
+<svg id="modulegraphModuleGraph" width="843pt" height="2126pt"
+ viewBox="0.00 0.00 843.00 2125.52" 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 2121.52)">
 <title>module~~graph~~ModuleGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-1930 839,-1930 839,4 -4,4"/>
-<!-- module~s_rmvs_kick -->
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2121.52 839,-2121.52 839,4 -4,4"/>
+<!-- module~s_whm_coord -->
 <g id="module~~graph~~ModuleGraph_node1" class="node">
-<title>module~s_rmvs_kick</title>
-<g id="a_module~~graph~~ModuleGraph_node1"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="647.5,-1529 576.5,-1529 576.5,-1505 647.5,-1505 647.5,-1529"/>
-<text text-anchor="middle" x="612" y="-1514.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
+<title>module~s_whm_coord</title>
+<g id="a_module~~graph~~ModuleGraph_node1"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="532,-1446 453,-1446 453,-1422 532,-1422 532,-1446"/>
+<text text-anchor="middle" x="492.5" y="-1431.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
 </a>
 </g>
 </g>
-<!-- module~rmvs_classes -->
-<g id="module~~graph~~ModuleGraph_node51" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~graph~~ModuleGraph_node51"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="531,-1653 454,-1653 454,-1629 531,-1629 531,-1653"/>
-<text text-anchor="middle" x="492.5" y="-1638.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<!-- module~whm_classes -->
+<g id="module~~graph~~ModuleGraph_node34" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~graph~~ModuleGraph_node34"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="376.5,-1572 300.5,-1572 300.5,-1548 376.5,-1548 376.5,-1572"/>
+<text text-anchor="middle" x="338.5" y="-1557.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_kick&#45;&gt;module~rmvs_classes -->
+<!-- module~s_whm_coord&#45;&gt;module~whm_classes -->
 <g id="module~~graph~~ModuleGraph_edge2" class="edge">
-<title>module~s_rmvs_kick&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M579.68,-1529.09C575.43,-1531.61 571.38,-1534.56 568,-1538 541.51,-1564.94 556.54,-1586.28 532,-1615 529.68,-1617.72 527,-1620.28 524.17,-1622.65"/>
-<polygon fill="#000000" stroke="#000000" points="521.84,-1620.02 515.92,-1628.81 526.03,-1625.63 521.84,-1620.02"/>
+<title>module~s_whm_coord&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M463.85,-1446.23C459.91,-1448.75 456.13,-1451.67 453,-1455 427.13,-1482.53 444.9,-1506.52 417,-1532 408.34,-1539.91 397.28,-1545.62 386.24,-1549.74"/>
+<polygon fill="#000000" stroke="#000000" points="384.98,-1546.47 376.61,-1552.96 387.2,-1553.11 384.98,-1546.47"/>
 </g>
 <!-- module~swiftest -->
-<g id="module~~graph~~ModuleGraph_node75" class="node">
+<g id="module~~graph~~ModuleGraph_node76" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~graph~~ModuleGraph_node75"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="201,-965 147,-965 147,-941 201,-941 201,-965"/>
-<text text-anchor="middle" x="174" y="-950.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~graph~~ModuleGraph_node76"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="201,-1007 147,-1007 147,-983 201,-983 201,-1007"/>
+<text text-anchor="middle" x="174" y="-992.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge1" class="edge">
-<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M583.64,-1504.82C578.33,-1502.13 572.9,-1499.14 568,-1496 531.98,-1472.9 530.78,-1413.99 493.5,-1435"/>
+<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.75,-1446.23C461.3,-1448.84 456.87,-1451.79 453,-1455 433.55,-1471.13 438.37,-1485.52 417,-1499 387,-1517.92 373.14,-1529.23 339.5,-1518"/>
 </g>
-<!-- module~s_whm_coord -->
+<!-- module~s_whm_util -->
 <g id="module~~graph~~ModuleGraph_node2" class="node">
-<title>module~s_whm_coord</title>
-<g id="a_module~~graph~~ModuleGraph_node2"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="532,-1407 453,-1407 453,-1383 532,-1383 532,-1407"/>
-<text text-anchor="middle" x="492.5" y="-1392.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
-</a>
-</g>
-</g>
-<!-- module~whm_classes -->
-<g id="module~~graph~~ModuleGraph_node39" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~graph~~ModuleGraph_node39"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="376.5,-314 300.5,-314 300.5,-290 376.5,-290 376.5,-314"/>
-<text text-anchor="middle" x="338.5" y="-299.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<title>module~s_whm_util</title>
+<g id="a_module~~graph~~ModuleGraph_node2"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="525.5,-1404 459.5,-1404 459.5,-1380 525.5,-1380 525.5,-1404"/>
+<text text-anchor="middle" x="492.5" y="-1389.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_coord&#45;&gt;module~whm_classes -->
+<!-- module~s_whm_util&#45;&gt;module~whm_classes -->
 <g id="module~~graph~~ModuleGraph_edge4" class="edge">
-<title>module~s_whm_coord&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M461.45,-1382.94C458.12,-1380.46 455.16,-1377.5 453,-1374 391.64,-1274.56 489.58,-414.57 417,-323 409.49,-313.53 398.18,-308.06 386.5,-304.98"/>
-<polygon fill="#000000" stroke="#000000" points="387.18,-301.54 376.67,-302.91 385.74,-308.39 387.18,-301.54"/>
+<title>module~s_whm_util&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M463.03,-1404.11C459.29,-1406.62 455.79,-1409.57 453,-1413 418.14,-1455.87 455.02,-1491.91 417,-1532 408.78,-1540.67 397.67,-1546.66 386.43,-1550.8"/>
+<polygon fill="#000000" stroke="#000000" points="385.03,-1547.58 376.6,-1553.99 387.19,-1554.24 385.03,-1547.58"/>
 </g>
-<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
+<!-- module~s_whm_util&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge3" class="edge">
-<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M469.06,-1407.18C463.31,-1411.05 457.49,-1415.72 453,-1421 428.27,-1450.09 446.46,-1474.71 417,-1499 389.63,-1521.56 374.21,-1525.26 339.5,-1518"/>
+<title>module~s_whm_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M463.73,-1404.11C459.8,-1406.65 456.06,-1409.61 453,-1413 425.25,-1443.77 448.49,-1472.07 417,-1499 390.04,-1522.05 373.14,-1529.23 339.5,-1518"/>
 </g>
-<!-- module~s_util_set -->
+<!-- module~s_util_spill -->
 <g id="module~~graph~~ModuleGraph_node3" class="node">
-<title>module~s_util_set</title>
-<g id="a_module~~graph~~ModuleGraph_node3"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="367.5,-1196 309.5,-1196 309.5,-1172 367.5,-1172 367.5,-1196"/>
-<text text-anchor="middle" x="338.5" y="-1181.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
+<title>module~s_util_spill</title>
+<g id="a_module~~graph~~ModuleGraph_node3"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="369,-440 308,-440 308,-416 369,-416 369,-440"/>
+<text text-anchor="middle" x="338.5" y="-425.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_node61" class="node">
+<g id="module~~graph~~ModuleGraph_node27" class="node">
 <title>module~swiftest_classes</title>
-<g id="a_module~~graph~~ModuleGraph_node61"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="218.5,-902 129.5,-902 129.5,-878 218.5,-878 218.5,-902"/>
-<text text-anchor="middle" x="174" y="-887.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~graph~~ModuleGraph_node27"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="218.5,-923 129.5,-923 129.5,-899 218.5,-899 218.5,-923"/>
+<text text-anchor="middle" x="174" y="-908.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_set&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_spill&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge6" class="edge">
-<title>module~s_util_set&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M309.21,-1183.64C292.5,-1181.86 272.28,-1176.71 260,-1163 190.68,-1085.6 274.58,-1022.77 224,-932 219.03,-923.09 211.4,-915.2 203.63,-908.74"/>
-<polygon fill="#000000" stroke="#000000" points="205.32,-905.62 195.25,-902.3 201.05,-911.17 205.32,-905.62"/>
+<title>module~s_util_spill&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M307.81,-428.65C291.46,-430.62 272.08,-435.87 260,-449 199.53,-514.68 180.32,-805.93 176.03,-888.88"/>
+<polygon fill="#000000" stroke="#000000" points="172.53,-888.8 175.53,-898.96 179.52,-889.15 172.53,-888.8"/>
 </g>
-<!-- module~s_util_set&#45;&gt;module~swiftest -->
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge5" class="edge">
-<title>module~s_util_set&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M309.14,-1182.43C293.03,-1180.17 273.46,-1174.93 260,-1163 202.88,-1112.35 183.51,-1017.78 177.49,-975.01"/>
-<polygon fill="#000000" stroke="#000000" points="180.96,-974.55 176.2,-965.08 174.01,-975.45 180.96,-974.55"/>
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.66,-428.14C291.04,-429.91 271.45,-435.13 260,-449 191.46,-531.99 262.69,-831.56 224,-932 217.69,-948.39 205.61,-963.99 195.03,-975.57"/>
+<polygon fill="#000000" stroke="#000000" points="192.4,-973.25 188.03,-982.9 197.47,-978.09 192.4,-973.25"/>
 </g>
-<!-- module~s_util_coord -->
+<!-- module~s_discard -->
 <g id="module~~graph~~ModuleGraph_node4" class="node">
-<title>module~s_util_coord</title>
-<g id="a_module~~graph~~ModuleGraph_node4"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="373.5,-1154 303.5,-1154 303.5,-1130 373.5,-1130 373.5,-1154"/>
-<text text-anchor="middle" x="338.5" y="-1139.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
+<title>module~s_discard</title>
+<g id="a_module~~graph~~ModuleGraph_node4"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="367.5,-398 309.5,-398 309.5,-374 367.5,-374 367.5,-398"/>
+<text text-anchor="middle" x="338.5" y="-383.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest_classes -->
+<!-- module~s_discard&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge8" class="edge">
-<title>module~s_util_coord&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M303.18,-1140.67C287.93,-1138.29 270.99,-1132.86 260,-1121 201.89,-1058.27 266.87,-1005.99 224,-932 218.69,-922.84 210.62,-914.72 202.56,-908.12"/>
-<polygon fill="#000000" stroke="#000000" points="204.67,-905.33 194.6,-902.04 200.42,-910.89 204.67,-905.33"/>
+<title>module~s_discard&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M309.27,-386.41C292.58,-388.21 272.36,-393.37 260,-407 194.32,-479.42 178.73,-800.55 175.67,-888.6"/>
+<polygon fill="#000000" stroke="#000000" points="172.16,-888.69 175.33,-898.8 179.16,-888.92 172.16,-888.69"/>
 </g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<!-- module~s_discard&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge7" class="edge">
-<title>module~s_util_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.4,-1138.97C288.75,-1136.21 272.21,-1130.95 260,-1121 212.91,-1082.65 189.4,-1011.48 180.05,-975.33"/>
-<polygon fill="#000000" stroke="#000000" points="183.37,-974.19 177.59,-965.31 176.57,-975.85 183.37,-974.19"/>
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M309.17,-385.96C292.22,-387.56 271.76,-392.67 260,-407 185.8,-497.39 265.71,-822.75 224,-932 217.73,-948.41 205.66,-964.01 195.07,-975.59"/>
+<polygon fill="#000000" stroke="#000000" points="192.44,-973.27 188.06,-982.92 197.5,-978.11 192.44,-973.27"/>
 </g>
-<!-- module~s_discard -->
+<!-- module~drift_implementation -->
 <g id="module~~graph~~ModuleGraph_node5" class="node">
-<title>module~s_discard</title>
-<g id="a_module~~graph~~ModuleGraph_node5"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="367.5,-1112 309.5,-1112 309.5,-1088 367.5,-1088 367.5,-1112"/>
-<text text-anchor="middle" x="338.5" y="-1097.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
+<title>module~drift_implementation</title>
+<g id="a_module~~graph~~ModuleGraph_node5"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="393,-356 284,-356 284,-332 393,-332 393,-356"/>
+<text text-anchor="middle" x="338.5" y="-341.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
 </a>
 </g>
 </g>
-<!-- module~s_discard&#45;&gt;module~swiftest_classes -->
+<!-- module~drift_implementation&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge10" class="edge">
-<title>module~s_discard&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M309.23,-1099.22C292.75,-1097.26 272.75,-1092.07 260,-1079 213.02,-1030.86 259.23,-989.3 224,-932 218.51,-923.07 210.5,-915.06 202.53,-908.49"/>
-<polygon fill="#000000" stroke="#000000" points="204.41,-905.52 194.35,-902.19 200.14,-911.07 204.41,-905.52"/>
+<title>module~drift_implementation&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M283.73,-349.92C274.76,-353.15 266.32,-357.94 260,-365 189.04,-444.24 177.24,-795.88 175.35,-888.55"/>
+<polygon fill="#000000" stroke="#000000" points="171.84,-888.69 175.16,-898.76 178.84,-888.82 171.84,-888.69"/>
 </g>
-<!-- module~s_discard&#45;&gt;module~swiftest -->
+<!-- module~drift_implementation&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge9" class="edge">
-<title>module~s_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M309.26,-1097.22C293.58,-1094.55 274.4,-1089.3 260,-1079 222.35,-1052.06 196.38,-1002.86 183.77,-974.57"/>
-<polygon fill="#000000" stroke="#000000" points="186.89,-972.98 179.73,-965.17 180.46,-975.74 186.89,-972.98"/>
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M283.99,-349.18C274.76,-352.45 266.17,-357.44 260,-365 180.14,-462.79 268.74,-813.94 224,-932 217.78,-948.42 205.7,-964.03 195.1,-975.6"/>
+<polygon fill="#000000" stroke="#000000" points="192.47,-973.28 188.08,-982.92 197.53,-978.12 192.47,-973.28"/>
 </g>
-<!-- module~s_whm_kick -->
+<!-- module~s_symba_fragmentation -->
 <g id="module~~graph~~ModuleGraph_node6" class="node">
-<title>module~s_whm_kick</title>
-<g id="a_module~~graph~~ModuleGraph_node6"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="527.5,-1365 457.5,-1365 457.5,-1341 527.5,-1341 527.5,-1365"/>
-<text text-anchor="middle" x="492.5" y="-1350.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
+<title>module~s_symba_fragmentation</title>
+<g id="a_module~~graph~~ModuleGraph_node6"><a xlink:href=".././module/s_symba_fragmentation.html" xlink:title="s_symba_fragmentation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="827,-2022 700,-2022 700,-1998 827,-1998 827,-2022"/>
+<text text-anchor="middle" x="763.5" y="-2007.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_fragmentation</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_kick&#45;&gt;module~whm_classes -->
+<!-- module~symba_classes -->
+<g id="module~~graph~~ModuleGraph_node37" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~graph~~ModuleGraph_node37"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="654.5,-1696 569.5,-1696 569.5,-1672 654.5,-1672 654.5,-1696"/>
+<text text-anchor="middle" x="612" y="-1681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+</a>
+</g>
+</g>
+<!-- module~s_symba_fragmentation&#45;&gt;module~symba_classes -->
 <g id="module~~graph~~ModuleGraph_edge12" class="edge">
-<title>module~s_whm_kick&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M461.45,-1340.94C458.12,-1338.45 455.16,-1335.5 453,-1332 394.02,-1236.57 486.74,-410.87 417,-323 409.48,-313.53 398.17,-308.07 386.49,-304.98"/>
-<polygon fill="#000000" stroke="#000000" points="387.17,-301.55 376.67,-302.92 385.73,-308.4 387.17,-301.55"/>
+<title>module~s_symba_fragmentation&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M728.32,-1997.83C714.9,-1991.33 700.66,-1981.94 692,-1969 626.14,-1870.59 725.38,-1800.96 656,-1705 655.45,-1704.23 654.86,-1703.49 654.24,-1702.78"/>
+<polygon fill="#000000" stroke="#000000" points="656.41,-1700.03 646.58,-1696.08 651.8,-1705.3 656.41,-1700.03"/>
 </g>
-<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
+<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge11" class="edge">
-<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.99,-1365.07C459.25,-1367.59 455.76,-1370.56 453,-1374 416.83,-1419.1 458.69,-1458.95 417,-1499 391.43,-1523.57 374.21,-1525.26 339.5,-1518"/>
+<title>module~s_symba_fragmentation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M721.75,-2022C679.43,-2034.38 618.58,-2051.91 613,-2052"/>
 </g>
-<!-- module~s_operator_cross -->
+<!-- module~s_tides_step_spin -->
 <g id="module~~graph~~ModuleGraph_node7" class="node">
-<title>module~s_operator_cross</title>
-<g id="a_module~~graph~~ModuleGraph_node7"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="386.5,-1650 290.5,-1650 290.5,-1626 386.5,-1626 386.5,-1650"/>
-<text text-anchor="middle" x="338.5" y="-1635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
-</a>
-</g>
-</g>
-<!-- module~swiftest_operators -->
-<g id="module~~graph~~ModuleGraph_node57" class="node">
-<title>module~swiftest_operators</title>
-<g id="a_module~~graph~~ModuleGraph_node57"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="224,-1692 124,-1692 124,-1668 224,-1668 224,-1692"/>
-<text text-anchor="middle" x="174" y="-1677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~graph~~ModuleGraph_node7"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="387.5,-314 289.5,-314 289.5,-290 387.5,-290 387.5,-314"/>
+<text text-anchor="middle" x="338.5" y="-299.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
 </a>
 </g>
 </g>
-<!-- module~s_operator_cross&#45;&gt;module~swiftest_operators -->
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge14" class="edge">
-<title>module~s_operator_cross&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" d="M290.93,-1650.04C272.41,-1654.82 250.91,-1660.38 231.51,-1665.4"/>
-<polygon fill="#000000" stroke="#000000" points="230.38,-1662.07 221.57,-1667.96 232.13,-1668.85 230.38,-1662.07"/>
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M289.26,-306.06C278.25,-309.21 267.58,-314.44 260,-323 183.69,-409.15 175.83,-791.94 175.07,-888.71"/>
+<polygon fill="#000000" stroke="#000000" points="171.57,-888.81 175.01,-898.83 178.57,-888.85 171.57,-888.81"/>
 </g>
-<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge13" class="edge">
-<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.21,-1631.17C278.77,-1627.32 267.66,-1621.32 260,-1612 177.69,-1511.8 174.39,-1079.34 174.81,-975.48"/>
-<polygon fill="#000000" stroke="#000000" points="178.31,-975.25 174.87,-965.23 171.31,-975.2 178.31,-975.25"/>
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.16,-305.51C278.01,-308.66 267.3,-314.02 260,-323 217.24,-375.6 247.88,-868.56 224,-932 217.81,-948.44 205.74,-964.04 195.13,-975.61"/>
+<polygon fill="#000000" stroke="#000000" points="192.5,-973.29 188.1,-982.93 197.55,-978.14 192.5,-973.29"/>
 </g>
-<!-- module~s_orbel -->
+<!-- module~s_symba_io -->
 <g id="module~~graph~~ModuleGraph_node8" class="node">
-<title>module~s_orbel</title>
-<g id="a_module~~graph~~ModuleGraph_node8"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="365.5,-1070 311.5,-1070 311.5,-1046 365.5,-1046 365.5,-1070"/>
-<text text-anchor="middle" x="338.5" y="-1055.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
+<title>module~s_symba_io</title>
+<g id="a_module~~graph~~ModuleGraph_node8"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="798.5,-1960 728.5,-1960 728.5,-1936 798.5,-1936 798.5,-1960"/>
+<text text-anchor="middle" x="763.5" y="-1945.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_orbel&#45;&gt;module~swiftest_classes -->
+<!-- module~s_symba_io&#45;&gt;module~symba_classes -->
 <g id="module~~graph~~ModuleGraph_edge16" class="edge">
-<title>module~s_orbel&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M311.13,-1056.98C294.54,-1055 273.74,-1049.86 260,-1037 223.99,-1003.28 251.7,-972.82 224,-932 217.96,-923.1 209.56,-914.97 201.42,-908.28"/>
-<polygon fill="#000000" stroke="#000000" points="203.5,-905.47 193.46,-902.1 199.21,-911 203.5,-905.47"/>
+<title>module~s_symba_io&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M728.21,-1935.97C714.95,-1929.64 700.85,-1920.53 692,-1908 639.12,-1833.17 711.16,-1778.17 656,-1705 655.43,-1704.25 654.83,-1703.52 654.19,-1702.81"/>
+<polygon fill="#000000" stroke="#000000" points="656.32,-1700.02 646.44,-1696.18 651.77,-1705.34 656.32,-1700.02"/>
 </g>
-<!-- module~s_orbel&#45;&gt;module~swiftest -->
+<!-- module~s_symba_io&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge15" class="edge">
-<title>module~s_orbel&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.43,-1054.38C295.75,-1051.39 275.83,-1046.11 260,-1037 231.62,-1020.67 205.92,-992.55 190.39,-973.38"/>
-<polygon fill="#000000" stroke="#000000" points="192.94,-970.96 184,-965.28 187.44,-975.3 192.94,-970.96"/>
+<title>module~s_symba_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M739.76,-1960.11C725.69,-1967.88 707.43,-1978.45 692,-1989 654.93,-2014.36 657.37,-2045.05 613,-2052"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611,-2052C569.31,-2058.53 285.06,-1940.95 260,-1907 205.45,-1833.12 180.13,-1149.9 175.71,-1017.25"/>
+<polygon fill="#000000" stroke="#000000" points="179.2,-1016.96 175.38,-1007.08 172.21,-1017.19 179.2,-1016.96"/>
 </g>
-<!-- module~s_util_minimize_bfgs -->
+<!-- module~s_symba_step -->
 <g id="module~~graph~~ModuleGraph_node9" class="node">
-<title>module~s_util_minimize_bfgs</title>
-<g id="a_module~~graph~~ModuleGraph_node9"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="394.5,-1028 282.5,-1028 282.5,-1004 394.5,-1004 394.5,-1028"/>
-<text text-anchor="middle" x="338.5" y="-1013.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
+<title>module~s_symba_step</title>
+<g id="a_module~~graph~~ModuleGraph_node9"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="804.5,-1899 722.5,-1899 722.5,-1875 804.5,-1875 804.5,-1899"/>
+<text text-anchor="middle" x="763.5" y="-1884.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest_classes -->
+<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
 <g id="module~~graph~~ModuleGraph_edge18" class="edge">
-<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M282.41,-1006.92C274.39,-1003.99 266.62,-1000.12 260,-995 234.49,-975.28 244.54,-956.86 224,-932 217.04,-923.58 208.27,-915.48 200.09,-908.68"/>
-<polygon fill="#000000" stroke="#000000" points="202.18,-905.87 192.18,-902.35 197.8,-911.33 202.18,-905.87"/>
+<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M742.69,-1874.84C726.79,-1864.11 705.05,-1847.08 692,-1827 661.19,-1779.6 692.49,-1748.18 656,-1705 655.28,-1704.14 654.51,-1703.32 653.7,-1702.53"/>
+<polygon fill="#000000" stroke="#000000" points="655.68,-1699.63 645.66,-1696.19 651.35,-1705.13 655.68,-1699.63"/>
 </g>
-<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<!-- module~s_symba_step&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge17" class="edge">
-<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.43,-1003.97C278.21,-1001.32 268.74,-998.31 260,-995 241.34,-987.94 221.29,-978.15 205.36,-969.8"/>
-<polygon fill="#000000" stroke="#000000" points="206.96,-966.69 196.49,-965.08 203.68,-972.87 206.96,-966.69"/>
+<title>module~s_symba_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.85,-1899.05C721,-1905.95 704.57,-1915.51 692,-1927 671.25,-1945.97 680.9,-1965.95 656,-1979 621.36,-1997.15 606.81,-1983.82 568,-1979 417.09,-1960.27 340.52,-1959 260,-1830 171.9,-1688.84 173.34,-1134.99 174.68,-1017.13"/>
+<polygon fill="#000000" stroke="#000000" points="178.18,-1017.16 174.8,-1007.11 171.18,-1017.07 178.18,-1017.16"/>
 </g>
-<!-- module~s_helio_gr -->
+<!-- module~whm_drift -->
 <g id="module~~graph~~ModuleGraph_node10" class="node">
-<title>module~s_helio_gr</title>
-<g id="a_module~~graph~~ModuleGraph_node10"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="643,-1323 581,-1323 581,-1299 643,-1299 643,-1323"/>
-<text text-anchor="middle" x="612" y="-1308.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
-</a>
-</g>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~graph~~ModuleGraph_node54" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~graph~~ModuleGraph_node54"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="530.5,-1075 454.5,-1075 454.5,-1051 530.5,-1051 530.5,-1075"/>
-<text text-anchor="middle" x="492.5" y="-1060.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<title>module~whm_drift</title>
+<g id="a_module~~graph~~ModuleGraph_node10"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="522,-1698 463,-1698 463,-1674 522,-1674 522,-1698"/>
+<text text-anchor="middle" x="492.5" y="-1683.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_gr&#45;&gt;module~helio_classes -->
+<!-- module~whm_drift&#45;&gt;module~whm_classes -->
 <g id="module~~graph~~ModuleGraph_edge20" class="edge">
-<title>module~s_helio_gr&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M606.18,-1298.86C598.03,-1278.23 581.14,-1234.99 568,-1198 550.92,-1149.92 562.79,-1129.68 532,-1089 529.96,-1086.3 527.55,-1083.78 524.95,-1081.47"/>
-<polygon fill="#000000" stroke="#000000" points="526.8,-1078.48 516.75,-1075.12 522.51,-1084.01 526.8,-1078.48"/>
+<title>module~whm_drift&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M466.92,-1673.78C462.17,-1671.09 457.33,-1668.11 453,-1665 416.5,-1638.78 379.19,-1601.94 357.75,-1579.59"/>
+<polygon fill="#000000" stroke="#000000" points="360.02,-1576.9 350.59,-1572.06 354.94,-1581.72 360.02,-1576.9"/>
 </g>
-<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
+<!-- module~whm_drift&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge19" class="edge">
-<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.9,-1322.22C576.19,-1324.91 571.67,-1328.15 568,-1332 540,-1361.42 559.94,-1386.52 532,-1416 518.87,-1429.85 510.12,-1425.63 493.5,-1435"/>
+<title>module~whm_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.94,-1694.86C430.13,-1703.19 376.11,-1711 339.5,-1686"/>
 </g>
-<!-- module~drift_implementation -->
+<!-- module~s_helio_coord -->
 <g id="module~~graph~~ModuleGraph_node11" class="node">
-<title>module~drift_implementation</title>
-<g id="a_module~~graph~~ModuleGraph_node11"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="393,-986 284,-986 284,-962 393,-962 393,-986"/>
-<text text-anchor="middle" x="338.5" y="-971.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
+<title>module~s_helio_coord</title>
+<g id="a_module~~graph~~ModuleGraph_node11"><a xlink:href=".././module/s_helio_coord.html" xlink:title="s_helio_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="651.5,-1616 572.5,-1616 572.5,-1592 651.5,-1592 651.5,-1616"/>
+<text text-anchor="middle" x="612" y="-1601.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_coord</text>
 </a>
 </g>
 </g>
-<!-- module~drift_implementation&#45;&gt;module~swiftest_classes -->
+<!-- module~helio_classes -->
+<g id="module~~graph~~ModuleGraph_node60" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~graph~~ModuleGraph_node60"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="530.5,-1572 454.5,-1572 454.5,-1548 530.5,-1548 530.5,-1572"/>
+<text text-anchor="middle" x="492.5" y="-1557.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~s_helio_coord&#45;&gt;module~helio_classes -->
 <g id="module~~graph~~ModuleGraph_edge22" class="edge">
-<title>module~drift_implementation&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M283.6,-962.2C275.51,-959.64 267.4,-956.59 260,-953 236.21,-941.47 212.31,-923 195.93,-909.03"/>
-<polygon fill="#000000" stroke="#000000" points="197.94,-906.13 188.1,-902.19 193.33,-911.4 197.94,-906.13"/>
+<title>module~s_helio_coord&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M578.89,-1591.98C565.42,-1586.93 549.58,-1581 535.22,-1575.62"/>
+<polygon fill="#000000" stroke="#000000" points="536.16,-1572.24 525.57,-1572.01 533.71,-1578.79 536.16,-1572.24"/>
 </g>
-<!-- module~drift_implementation&#45;&gt;module~swiftest -->
+<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge21" class="edge">
-<title>module~drift_implementation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M283.84,-967.07C260.01,-963.99 232.58,-960.44 211.22,-957.68"/>
-<polygon fill="#000000" stroke="#000000" points="211.63,-954.2 201.26,-956.39 210.73,-961.15 211.63,-954.2"/>
+<title>module~s_helio_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585.48,-1616.06C579.21,-1619.88 572.9,-1624.55 568,-1630 542.75,-1658.1 558.43,-1680.01 532,-1707 518.65,-1720.63 512.45,-1723.74 493.5,-1726"/>
 </g>
-<!-- module~s_symba_encounter_check -->
+<!-- module~s_symba_drift -->
 <g id="module~~graph~~ModuleGraph_node12" class="node">
-<title>module~s_symba_encounter_check</title>
-<g id="a_module~~graph~~ModuleGraph_node12"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="835,-1884 692,-1884 692,-1860 835,-1860 835,-1884"/>
-<text text-anchor="middle" x="763.5" y="-1869.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
-</a>
-</g>
-</g>
-<!-- module~symba_classes -->
-<g id="module~~graph~~ModuleGraph_node63" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~graph~~ModuleGraph_node63"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="654.5,-1487 569.5,-1487 569.5,-1463 654.5,-1463 654.5,-1487"/>
-<text text-anchor="middle" x="612" y="-1472.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<title>module~s_symba_drift</title>
+<g id="a_module~~graph~~ModuleGraph_node12"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="803,-1818 724,-1818 724,-1794 803,-1794 803,-1818"/>
+<text text-anchor="middle" x="763.5" y="-1803.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
+<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
 <g id="module~~graph~~ModuleGraph_edge24" class="edge">
-<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M702.28,-1859.98C698.43,-1857.5 694.93,-1854.54 692,-1851 590.91,-1728.81 746.69,-1626.1 656,-1496 655.46,-1495.22 654.88,-1494.48 654.27,-1493.76"/>
-<polygon fill="#000000" stroke="#000000" points="656.49,-1491.04 646.69,-1487 651.83,-1496.27 656.49,-1491.04"/>
+<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M751.99,-1793.86C733.93,-1773.54 695.15,-1732.16 656,-1705 654.11,-1703.69 652.14,-1702.42 650.1,-1701.2"/>
+<polygon fill="#000000" stroke="#000000" points="651.44,-1697.93 641,-1696.13 648.04,-1704.05 651.44,-1697.93"/>
 </g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge23" class="edge">
-<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M691.99,-1880.54C666.59,-1881.4 638.04,-1879.76 613,-1872"/>
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.78,-1818.04C728.11,-1828.94 706.12,-1846.26 692,-1866 666.69,-1901.37 691.97,-1932.55 656,-1957 595.78,-1997.94 564.2,-1953.45 493.5,-1936"/>
 </g>
-<!-- module~s_symba_drift -->
+<!-- module~s_symba_encounter_check -->
 <g id="module~~graph~~ModuleGraph_node13" class="node">
-<title>module~s_symba_drift</title>
-<g id="a_module~~graph~~ModuleGraph_node13"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="803,-1447 724,-1447 724,-1423 803,-1423 803,-1447"/>
-<text text-anchor="middle" x="763.5" y="-1432.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
+<title>module~s_symba_encounter_check</title>
+<g id="a_module~~graph~~ModuleGraph_node13"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="835,-1698 692,-1698 692,-1674 835,-1674 835,-1698"/>
+<text text-anchor="middle" x="763.5" y="-1683.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
+<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
 <g id="module~~graph~~ModuleGraph_edge26" class="edge">
-<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M723.61,-1445.41C705.56,-1450.23 683.85,-1456.04 664.47,-1461.23"/>
-<polygon fill="#000000" stroke="#000000" points="663.33,-1457.91 654.58,-1463.88 665.14,-1464.67 663.33,-1457.91"/>
+<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M691.69,-1685.05C682.68,-1684.93 673.59,-1684.81 664.94,-1684.69"/>
+<polygon fill="#000000" stroke="#000000" points="664.71,-1681.19 654.66,-1684.56 664.61,-1688.19 664.71,-1681.19"/>
 </g>
-<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge25" class="edge">
-<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M723.73,-1433.54C693.52,-1432.75 650.55,-1432.41 613,-1435"/>
+<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M721.83,-1674C678.49,-1661.29 615.69,-1643.17 613,-1644"/>
 </g>
-<!-- module~s_rmvs_setup -->
+<!-- module~rmvs_classes -->
 <g id="module~~graph~~ModuleGraph_node14" class="node">
-<title>module~s_rmvs_setup</title>
-<g id="a_module~~graph~~ModuleGraph_node14"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="651.5,-1739 572.5,-1739 572.5,-1715 651.5,-1715 651.5,-1739"/>
-<text text-anchor="middle" x="612" y="-1724.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
+<title>module~rmvs_classes</title>
+<g id="a_module~~graph~~ModuleGraph_node14"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="531,-1822 454,-1822 454,-1798 531,-1798 531,-1822"/>
+<text text-anchor="middle" x="492.5" y="-1807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_setup&#45;&gt;module~rmvs_classes -->
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <g id="module~~graph~~ModuleGraph_edge28" class="edge">
-<title>module~s_rmvs_setup&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M583.56,-1714.94C578.26,-1712.24 572.85,-1709.22 568,-1706 547.73,-1692.55 527.06,-1674.06 512.66,-1660.24"/>
-<polygon fill="#000000" stroke="#000000" points="514.94,-1657.59 505.34,-1653.11 510.06,-1662.6 514.94,-1657.59"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M485.55,-1797.94C473.45,-1773.64 444.76,-1717.26 417,-1672 396.79,-1639.05 370.79,-1602.51 354.63,-1580.4"/>
+<polygon fill="#000000" stroke="#000000" points="357.3,-1578.12 348.56,-1572.13 351.66,-1582.26 357.3,-1578.12"/>
 </g>
-<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
+<!-- module~swiftest_globals -->
+<g id="module~~graph~~ModuleGraph_node74" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~graph~~ModuleGraph_node74"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="88,-1977 0,-1977 0,-1953 88,-1953 88,-1977"/>
+<text text-anchor="middle" x="44" y="-1962.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+</a>
+</g>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~graph~~ModuleGraph_edge27" class="edge">
-<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.34,-1734.04C548.74,-1736.65 518.42,-1736.92 493.5,-1727"/>
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.6,-1822.19C471.58,-1839.57 446.89,-1870.94 417,-1885 319.27,-1930.97 269.07,-1853.95 175,-1907"/>
 </g>
-<!-- module~s_symba_fragmentation -->
+<!-- module~s_kick -->
 <g id="module~~graph~~ModuleGraph_node15" class="node">
-<title>module~s_symba_fragmentation</title>
-<g id="a_module~~graph~~ModuleGraph_node15"><a xlink:href=".././module/s_symba_fragmentation.html" xlink:title="s_symba_fragmentation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="827,-1405 700,-1405 700,-1381 827,-1381 827,-1405"/>
-<text text-anchor="middle" x="763.5" y="-1390.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_fragmentation</text>
+<title>module~s_kick</title>
+<g id="a_module~~graph~~ModuleGraph_node15"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="365.5,-1490 311.5,-1490 311.5,-1466 365.5,-1466 365.5,-1490"/>
+<text text-anchor="middle" x="338.5" y="-1475.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~symba_classes -->
+<!-- module~s_kick&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge30" class="edge">
-<title>module~s_symba_fragmentation&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M711.2,-1405.07C704.52,-1407.56 697.95,-1410.51 692,-1414 672.75,-1425.29 673.66,-1435.36 656,-1449 652.15,-1451.98 647.93,-1454.89 643.69,-1457.63"/>
-<polygon fill="#000000" stroke="#000000" points="641.73,-1454.73 635.07,-1462.96 645.41,-1460.68 641.73,-1454.73"/>
+<title>module~s_kick&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M311.46,-1478.21C294.13,-1476.85 272.34,-1471.94 260,-1457 191.46,-1374.01 262.69,-1074.44 224,-974 217.69,-957.61 205.61,-942.01 195.03,-930.43"/>
+<polygon fill="#000000" stroke="#000000" points="197.47,-927.91 188.03,-923.1 192.4,-932.75 197.47,-927.91"/>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
+<!-- module~s_kick&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge29" class="edge">
-<title>module~s_symba_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M721.36,-1405C679.05,-1417.28 618.55,-1434.62 613,-1435"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611,-1435C558.9,-1438.59 539,-1409.36 493.5,-1435"/>
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.21,-1477.71C294.22,-1476.08 272.93,-1471.05 260,-1457 199.53,-1391.32 180.32,-1100.07 176.03,-1017.12"/>
+<polygon fill="#000000" stroke="#000000" points="179.52,-1016.85 175.53,-1007.04 172.53,-1017.2 179.52,-1016.85"/>
 </g>
-<!-- module~s_util_spill -->
+<!-- module~s_util_get_energy_momentum -->
 <g id="module~~graph~~ModuleGraph_node16" class="node">
-<title>module~s_util_spill</title>
-<g id="a_module~~graph~~ModuleGraph_node16"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="369,-944 308,-944 308,-920 369,-920 369,-944"/>
-<text text-anchor="middle" x="338.5" y="-929.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~graph~~ModuleGraph_node16"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="417,-1448 260,-1448 260,-1424 417,-1424 417,-1448"/>
+<text text-anchor="middle" x="338.5" y="-1433.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_spill&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge32" class="edge">
-<title>module~s_util_spill&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M307.69,-924.3C285.6,-918.58 254.87,-910.64 228.55,-903.84"/>
-<polygon fill="#000000" stroke="#000000" points="229.27,-900.41 218.71,-901.3 227.51,-907.19 229.27,-900.41"/>
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M269.88,-1423.78C266.2,-1421.33 262.85,-1418.43 260,-1415 197.12,-1339.41 259.67,-1065.63 224,-974 217.63,-957.63 205.55,-942.03 194.99,-930.45"/>
+<polygon fill="#000000" stroke="#000000" points="197.43,-927.94 188,-923.11 192.36,-932.76 197.43,-927.94"/>
 </g>
-<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge31" class="edge">
-<title>module~s_util_spill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.69,-935.85C280.52,-939.36 240.3,-944.56 211.27,-948.31"/>
-<polygon fill="#000000" stroke="#000000" points="210.6,-944.87 201.13,-949.62 211.49,-951.81 210.6,-944.87"/>
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M271.05,-1423.82C266.99,-1421.37 263.24,-1418.46 260,-1415 204.85,-1356.15 182.14,-1095.67 176.49,-1017.35"/>
+<polygon fill="#000000" stroke="#000000" points="179.96,-1016.89 175.77,-1007.16 172.98,-1017.38 179.96,-1016.89"/>
 </g>
-<!-- module~s_rmvs_chk -->
+<!-- module~s_helio_drift -->
 <g id="module~~graph~~ModuleGraph_node17" class="node">
-<title>module~s_rmvs_chk</title>
-<g id="a_module~~graph~~ModuleGraph_node17"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="647,-1697 577,-1697 577,-1673 647,-1673 647,-1697"/>
-<text text-anchor="middle" x="612" y="-1682.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
+<title>module~s_helio_drift</title>
+<g id="a_module~~graph~~ModuleGraph_node17"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="647,-1574 577,-1574 577,-1550 647,-1550 647,-1574"/>
+<text text-anchor="middle" x="612" y="-1559.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_chk&#45;&gt;module~rmvs_classes -->
+<!-- module~s_helio_drift&#45;&gt;module~helio_classes -->
 <g id="module~~graph~~ModuleGraph_edge34" class="edge">
-<title>module~s_rmvs_chk&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M578.89,-1672.98C565.42,-1667.93 549.58,-1662 535.22,-1656.62"/>
-<polygon fill="#000000" stroke="#000000" points="536.16,-1653.24 525.57,-1653.01 533.71,-1659.79 536.16,-1653.24"/>
+<title>module~s_helio_drift&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M576.7,-1561.42C565.49,-1561.23 552.83,-1561.01 540.83,-1560.81"/>
+<polygon fill="#000000" stroke="#000000" points="540.57,-1557.3 530.51,-1560.63 540.45,-1564.3 540.57,-1557.3"/>
 </g>
-<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge33" class="edge">
-<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M583.31,-1697.07C551.35,-1710.65 502.08,-1730.42 493.5,-1727"/>
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M578.33,-1574.18C574.47,-1576.65 570.89,-1579.57 568,-1583 531.05,-1626.91 568.86,-1663.01 532,-1707 519.74,-1721.63 512.45,-1723.74 493.5,-1726"/>
 </g>
-<!-- module~s_obl -->
+<!-- module~s_util_set -->
 <g id="module~~graph~~ModuleGraph_node18" class="node">
-<title>module~s_obl</title>
-<g id="a_module~~graph~~ModuleGraph_node18"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="365.5,-902 311.5,-902 311.5,-878 365.5,-878 365.5,-902"/>
-<text text-anchor="middle" x="338.5" y="-887.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
+<title>module~s_util_set</title>
+<g id="a_module~~graph~~ModuleGraph_node18"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="367.5,-1406 309.5,-1406 309.5,-1382 367.5,-1382 367.5,-1406"/>
+<text text-anchor="middle" x="338.5" y="-1391.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
 </a>
 </g>
 </g>
-<!-- module~s_obl&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_set&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge36" class="edge">
-<title>module~s_obl&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M311.39,-890C289.28,-890 256.84,-890 229.15,-890"/>
-<polygon fill="#000000" stroke="#000000" points="228.8,-886.5 218.8,-890 228.8,-893.5 228.8,-886.5"/>
+<title>module~s_util_set&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M309.27,-1393.95C292.37,-1392.32 271.92,-1387.2 260,-1373 202.78,-1304.8 256.65,-1056.82 224,-974 217.56,-957.66 205.48,-942.06 194.93,-930.47"/>
+<polygon fill="#000000" stroke="#000000" points="197.38,-927.96 187.96,-923.12 192.31,-932.79 197.38,-927.96"/>
 </g>
-<!-- module~s_obl&#45;&gt;module~swiftest -->
+<!-- module~s_util_set&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge35" class="edge">
-<title>module~s_obl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.27,-895.76C296.06,-899.43 276.69,-904.68 260,-911 241.34,-918.06 221.29,-927.85 205.36,-936.2"/>
-<polygon fill="#000000" stroke="#000000" points="203.68,-933.13 196.49,-940.92 206.96,-939.31 203.68,-933.13"/>
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M309.15,-1393.3C292.63,-1391.38 272.63,-1386.19 260,-1373 210.1,-1320.89 184.14,-1090.68 177.04,-1017.45"/>
+<polygon fill="#000000" stroke="#000000" points="180.49,-1016.72 176.06,-1007.09 173.52,-1017.38 180.49,-1016.72"/>
 </g>
-<!-- module~s_util_peri -->
+<!-- module~s_symba_discard -->
 <g id="module~~graph~~ModuleGraph_node19" class="node">
-<title>module~s_util_peri</title>
-<g id="a_module~~graph~~ModuleGraph_node19"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="369,-860 308,-860 308,-836 369,-836 369,-860"/>
-<text text-anchor="middle" x="338.5" y="-845.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
+<title>module~s_symba_discard</title>
+<g id="a_module~~graph~~ModuleGraph_node19"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="811.5,-1656 715.5,-1656 715.5,-1632 811.5,-1632 811.5,-1656"/>
+<text text-anchor="middle" x="763.5" y="-1641.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_peri&#45;&gt;module~swiftest_classes -->
+<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
 <g id="module~~graph~~ModuleGraph_edge38" class="edge">
-<title>module~s_util_peri&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M307.69,-855.7C285.6,-861.42 254.87,-869.36 228.55,-876.16"/>
-<polygon fill="#000000" stroke="#000000" points="227.51,-872.81 218.71,-878.7 229.27,-879.59 227.51,-872.81"/>
+<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M717.65,-1656C700.89,-1660.48 681.74,-1665.61 664.44,-1670.24"/>
+<polygon fill="#000000" stroke="#000000" points="663.26,-1666.93 654.5,-1672.9 665.07,-1673.69 663.26,-1666.93"/>
 </g>
-<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge37" class="edge">
-<title>module~s_util_peri&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.85,-851.77C292.65,-854.72 274.38,-859.92 260,-869 239.21,-882.13 241.38,-893.62 224,-911 216.04,-918.96 206.78,-927.15 198.46,-934.15"/>
-<polygon fill="#000000" stroke="#000000" points="196.01,-931.63 190.55,-940.71 200.48,-937.02 196.01,-931.63"/>
+<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M715.3,-1636.95C685.33,-1634.18 646.09,-1633.74 613,-1644"/>
 </g>
-<!-- module~s_util_fill -->
+<!-- module~s_rmvs_kick -->
 <g id="module~~graph~~ModuleGraph_node20" class="node">
-<title>module~s_util_fill</title>
-<g id="a_module~~graph~~ModuleGraph_node20"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="365.5,-818 311.5,-818 311.5,-794 365.5,-794 365.5,-818"/>
-<text text-anchor="middle" x="338.5" y="-803.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~graph~~ModuleGraph_node20"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="647.5,-1738 576.5,-1738 576.5,-1714 647.5,-1714 647.5,-1738"/>
+<text text-anchor="middle" x="612" y="-1723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_fill&#45;&gt;module~swiftest_classes -->
+<!-- module~s_rmvs_kick&#45;&gt;module~rmvs_classes -->
 <g id="module~~graph~~ModuleGraph_edge40" class="edge">
-<title>module~s_util_fill&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M311.15,-810.59C295.74,-813.89 276.18,-819.16 260,-827 236.21,-838.53 212.31,-857 195.93,-870.97"/>
-<polygon fill="#000000" stroke="#000000" points="193.33,-868.6 188.1,-877.81 197.94,-873.87 193.33,-868.6"/>
+<title>module~s_rmvs_kick&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M583.6,-1738.12C578.29,-1740.81 572.87,-1743.82 568,-1747 548.13,-1759.96 527.7,-1777.6 513.27,-1790.92"/>
+<polygon fill="#000000" stroke="#000000" points="510.82,-1788.42 505.92,-1797.81 515.61,-1793.53 510.82,-1788.42"/>
 </g>
-<!-- module~s_util_fill&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge39" class="edge">
-<title>module~s_util_fill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.45,-807.37C294.98,-809.49 274.21,-814.66 260,-827 229.34,-853.64 248.05,-878.26 224,-911 217.63,-919.67 209.15,-927.74 201.03,-934.45"/>
-<polygon fill="#000000" stroke="#000000" points="198.82,-931.73 193.13,-940.67 203.15,-937.23 198.82,-931.73"/>
+<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M576.42,-1723.85C552.95,-1722.92 521.25,-1722.69 493.5,-1726"/>
 </g>
-<!-- module~s_symba_kick -->
+<!-- module~s_util_rescale -->
 <g id="module~~graph~~ModuleGraph_node21" class="node">
-<title>module~s_symba_kick</title>
-<g id="a_module~~graph~~ModuleGraph_node21"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="803,-1199 724,-1199 724,-1175 803,-1175 803,-1199"/>
-<text text-anchor="middle" x="763.5" y="-1184.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
+<title>module~s_util_rescale</title>
+<g id="a_module~~graph~~ModuleGraph_node21"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="377.5,-1364 299.5,-1364 299.5,-1340 377.5,-1340 377.5,-1364"/>
+<text text-anchor="middle" x="338.5" y="-1349.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_rescale</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
+<!-- module~s_util_rescale&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge42" class="edge">
-<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M757.83,-1199.09C738.44,-1249.22 664.85,-1438.64 656,-1449 653.53,-1451.89 650.66,-1454.55 647.59,-1456.97"/>
-<polygon fill="#000000" stroke="#000000" points="645.37,-1454.26 639.15,-1462.83 649.36,-1460 645.37,-1454.26"/>
+<title>module~s_util_rescale&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M299.1,-1350.5C284.77,-1347.91 269.65,-1342.38 260,-1331 208.43,-1270.19 253.63,-1048.02 224,-974 217.47,-957.7 205.4,-942.09 194.87,-930.49"/>
+<polygon fill="#000000" stroke="#000000" points="197.33,-928 187.91,-923.14 192.24,-932.81 197.33,-928"/>
 </g>
-<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge41" class="edge">
-<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M759.1,-1174.89C749.36,-1142.81 717.98,-1055.76 656,-1022 592.58,-987.45 551.66,-980.18 493.5,-1023"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M491.5,-1023C476.04,-1034.18 463.7,-1026.2 453,-1042 395.86,-1126.34 482.98,-1421.38 417,-1499 394.03,-1526.02 374.21,-1525.26 339.5,-1518"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M337.5,-1518C302.79,-1510.74 283.98,-1525.13 260,-1499 188.09,-1420.62 176.98,-1068.35 175.3,-975.49"/>
-<polygon fill="#000000" stroke="#000000" points="178.79,-975.21 175.13,-965.27 171.79,-975.32 178.79,-975.21"/>
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.13,-1349.59C285.14,-1346.84 270.26,-1341.44 260,-1331 215.24,-1285.48 186.28,-1084.59 177.68,-1017.16"/>
+<polygon fill="#000000" stroke="#000000" points="181.15,-1016.67 176.44,-1007.19 174.2,-1017.54 181.15,-1016.67"/>
 </g>
-<!-- module~s_symba_step -->
+<!-- module~swiftest_operators -->
 <g id="module~~graph~~ModuleGraph_node22" class="node">
-<title>module~s_symba_step</title>
-<g id="a_module~~graph~~ModuleGraph_node22"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="804.5,-1926 722.5,-1926 722.5,-1902 804.5,-1902 804.5,-1926"/>
-<text text-anchor="middle" x="763.5" y="-1911.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
+<title>module~swiftest_operators</title>
+<g id="a_module~~graph~~ModuleGraph_node22"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="224,-2037 124,-2037 124,-2013 224,-2013 224,-2037"/>
+<text text-anchor="middle" x="174" y="-2022.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
-<g id="module~~graph~~ModuleGraph_edge44" class="edge">
-<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M722.3,-1910.48C710.88,-1907.48 699.52,-1902.19 692,-1893 635.9,-1824.45 706.27,-1568.94 656,-1496 655.56,-1495.36 655.09,-1494.74 654.6,-1494.13"/>
-<polygon fill="#000000" stroke="#000000" points="656.87,-1491.46 647.14,-1487.27 652.13,-1496.61 656.87,-1491.46"/>
-</g>
-<!-- module~s_symba_step&#45;&gt;module~swiftest -->
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~graph~~ModuleGraph_edge43" class="edge">
-<title>module~s_symba_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M722.35,-1903.35C692.16,-1895.19 649.82,-1883.42 613,-1872"/>
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.1,-2012.86C127.84,-2003.83 101.35,-1991.41 80.17,-1981.49"/>
+<polygon fill="#000000" stroke="#000000" points="81.4,-1978.2 70.86,-1977.12 78.43,-1984.54 81.4,-1978.2"/>
 </g>
-<!-- module~s_util_resize -->
+<!-- module~s_orbel -->
 <g id="module~~graph~~ModuleGraph_node23" class="node">
-<title>module~s_util_resize</title>
-<g id="a_module~~graph~~ModuleGraph_node23"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="374.5,-776 302.5,-776 302.5,-752 374.5,-752 374.5,-776"/>
-<text text-anchor="middle" x="338.5" y="-761.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
+<title>module~s_orbel</title>
+<g id="a_module~~graph~~ModuleGraph_node23"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="365.5,-1322 311.5,-1322 311.5,-1298 365.5,-1298 365.5,-1322"/>
+<text text-anchor="middle" x="338.5" y="-1307.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_resize&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge46" class="edge">
-<title>module~s_util_resize&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M302.39,-768.7C288.38,-771.76 272.61,-776.78 260,-785 227.01,-806.49 200.74,-844.95 186.56,-868.88"/>
-<polygon fill="#000000" stroke="#000000" points="183.34,-867.44 181.4,-877.86 189.41,-870.93 183.34,-867.44"/>
-</g>
-<!-- module~s_util_resize&#45;&gt;module~swiftest -->
+<!-- module~s_orbel&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge45" class="edge">
-<title>module~s_util_resize&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.47,-765.98C287.63,-768.55 271.21,-773.94 260,-785 218.54,-825.9 255.44,-861.97 224,-911 218.34,-919.82 210.28,-927.8 202.33,-934.38"/>
-<polygon fill="#000000" stroke="#000000" points="199.93,-931.81 194.18,-940.7 204.22,-937.33 199.93,-931.81"/>
+<title>module~s_orbel&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M311.27,-1310.03C294.08,-1308.55 272.54,-1303.59 260,-1289 214.08,-1235.57 250.62,-1039.23 224,-974 217.36,-957.74 205.29,-942.14 194.78,-930.53"/>
+<polygon fill="#000000" stroke="#000000" points="197.26,-928.05 187.85,-923.17 192.16,-932.85 197.26,-928.05"/>
 </g>
-<!-- module~s_helio_coord -->
+<!-- module~s_orbel&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge44" class="edge">
+<title>module~s_orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.29,-1309.25C294.55,-1307.39 273.52,-1302.29 260,-1289 182.9,-1213.18 174.67,-1072.1 174.53,-1017.44"/>
+<polygon fill="#000000" stroke="#000000" points="178.03,-1017.17 174.6,-1007.14 171.03,-1017.12 178.03,-1017.17"/>
+</g>
+<!-- module~s_gr -->
 <g id="module~~graph~~ModuleGraph_node24" class="node">
-<title>module~s_helio_coord</title>
-<g id="a_module~~graph~~ModuleGraph_node24"><a xlink:href=".././module/s_helio_coord.html" xlink:title="s_helio_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="651.5,-1407 572.5,-1407 572.5,-1383 651.5,-1383 651.5,-1407"/>
-<text text-anchor="middle" x="612" y="-1392.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_coord</text>
+<title>module~s_gr</title>
+<g id="a_module~~graph~~ModuleGraph_node24"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="365.5,-1280 311.5,-1280 311.5,-1256 365.5,-1256 365.5,-1280"/>
+<text text-anchor="middle" x="338.5" y="-1265.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_coord&#45;&gt;module~helio_classes -->
-<g id="module~~graph~~ModuleGraph_edge48" class="edge">
-<title>module~s_helio_coord&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M577.39,-1382.94C573.78,-1380.47 570.51,-1377.51 568,-1374 493.71,-1270.17 598.87,-1197.76 532,-1089 530.42,-1086.42 528.47,-1084.04 526.3,-1081.86"/>
-<polygon fill="#000000" stroke="#000000" points="528.2,-1078.89 518.28,-1075.18 523.72,-1084.27 528.2,-1078.89"/>
-</g>
-<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
+<!-- module~s_gr&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge47" class="edge">
-<title>module~s_helio_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.45,-1404.23C548.75,-1410.84 518.28,-1421.04 493.5,-1435"/>
+<title>module~s_gr&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M311.35,-1267.96C294.2,-1266.45 272.67,-1261.48 260,-1247 179.43,-1154.88 271.22,-1086.91 224,-974 217.22,-957.8 205.15,-942.19 194.68,-930.57"/>
+<polygon fill="#000000" stroke="#000000" points="197.16,-928.1 187.77,-923.2 192.05,-932.89 197.16,-928.1"/>
+</g>
+<!-- module~s_gr&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge46" class="edge">
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.48,-1267.05C294.82,-1265.11 273.81,-1259.99 260,-1247 192.93,-1183.88 178.77,-1066.14 175.79,-1017.21"/>
+<polygon fill="#000000" stroke="#000000" points="179.28,-1016.9 175.28,-1007.09 172.29,-1017.25 179.28,-1016.9"/>
 </g>
 <!-- module~s_symba_setup -->
 <g id="module~~graph~~ModuleGraph_node25" class="node">
 <title>module~s_symba_setup</title>
 <g id="a_module~~graph~~ModuleGraph_node25"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="807.5,-1842 719.5,-1842 719.5,-1818 807.5,-1818 807.5,-1842"/>
-<text text-anchor="middle" x="763.5" y="-1827.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="807.5,-1614 719.5,-1614 719.5,-1590 807.5,-1590 807.5,-1614"/>
+<text text-anchor="middle" x="763.5" y="-1599.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
-<g id="module~~graph~~ModuleGraph_edge50" class="edge">
+<g id="module~~graph~~ModuleGraph_edge49" class="edge">
 <title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M719.49,-1825.54C709.09,-1822.43 698.98,-1817.32 692,-1809 602.02,-1701.71 736.85,-1610.33 656,-1496 655.45,-1495.23 654.87,-1494.48 654.26,-1493.77"/>
-<polygon fill="#000000" stroke="#000000" points="656.46,-1491.04 646.65,-1487.03 651.82,-1496.28 656.46,-1491.04"/>
+<path fill="none" stroke="#000000" d="M719.37,-1611.26C709.99,-1614.24 700.37,-1618.09 692,-1623 672.75,-1634.29 673.66,-1644.36 656,-1658 652.15,-1660.98 647.93,-1663.89 643.69,-1666.63"/>
+<polygon fill="#000000" stroke="#000000" points="641.73,-1663.73 635.07,-1671.96 645.41,-1669.68 641.73,-1663.73"/>
 </g>
 <!-- module~s_symba_setup&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge49" class="edge">
+<g id="module~~graph~~ModuleGraph_edge48" class="edge">
 <title>module~s_symba_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611,-1872C521.83,-1852.79 503.03,-1817.27 453,-1741 421.52,-1693.02 458.48,-1656.65 417,-1617 365.1,-1567.39 308.1,-1632.3 260,-1579 177.66,-1487.76 174.34,-1076.51 174.8,-975.47"/>
-<polygon fill="#000000" stroke="#000000" points="178.3,-975.23 174.86,-965.21 171.3,-975.19 178.3,-975.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M721.83,-1842C678.49,-1854.71 615.69,-1872.83 613,-1872"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611,-1644C591.04,-1650.19 584.63,-1650.35 568,-1663 547.89,-1678.3 551.78,-1691.27 532,-1707 517.06,-1718.88 512.45,-1723.74 493.5,-1726"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M719.47,-1613.43C689.5,-1621.55 648.66,-1632.94 613,-1644"/>
 </g>
-<!-- module~s_whm_setup -->
+<!-- module~s_helio_gr -->
 <g id="module~~graph~~ModuleGraph_node26" class="node">
-<title>module~s_whm_setup</title>
-<g id="a_module~~graph~~ModuleGraph_node26"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="532,-1323 453,-1323 453,-1299 532,-1299 532,-1323"/>
-<text text-anchor="middle" x="492.5" y="-1308.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
+<title>module~s_helio_gr</title>
+<g id="a_module~~graph~~ModuleGraph_node26"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="643,-1532 581,-1532 581,-1508 643,-1508 643,-1532"/>
+<text text-anchor="middle" x="612" y="-1517.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_setup&#45;&gt;module~whm_classes -->
-<g id="module~~graph~~ModuleGraph_edge52" class="edge">
-<title>module~s_whm_setup&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M461.46,-1298.94C458.13,-1296.45 455.16,-1293.5 453,-1290 396.4,-1198.58 483.91,-407.16 417,-323 409.48,-313.54 398.16,-308.08 386.48,-304.99"/>
-<polygon fill="#000000" stroke="#000000" points="387.16,-301.56 376.66,-302.92 385.72,-308.41 387.16,-301.56"/>
-</g>
-<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
+<!-- module~s_helio_gr&#45;&gt;module~helio_classes -->
 <g id="module~~graph~~ModuleGraph_edge51" class="edge">
-<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.39,-1323.17C458.83,-1325.66 455.55,-1328.58 453,-1332 407.54,-1392.82 469.93,-1444.56 417,-1499 392.28,-1524.43 374.21,-1525.26 339.5,-1518"/>
-</g>
-<!-- module~s_operator_mag -->
-<g id="module~~graph~~ModuleGraph_node27" class="node">
-<title>module~s_operator_mag</title>
-<g id="a_module~~graph~~ModuleGraph_node27"><a xlink:href=".././module/s_operator_mag.html" xlink:title="s_operator_mag">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="384,-1692 293,-1692 293,-1668 384,-1668 384,-1692"/>
-<text text-anchor="middle" x="338.5" y="-1677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_mag</text>
-</a>
+<title>module~s_helio_gr&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M580.74,-1530.3C567.92,-1534.66 552.72,-1539.84 538.62,-1544.64"/>
+<polygon fill="#000000" stroke="#000000" points="537.42,-1541.35 529.08,-1547.89 539.68,-1547.98 537.42,-1541.35"/>
 </g>
+<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge50" class="edge">
+<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.69,-1530.4C575.88,-1533.2 571.38,-1536.69 568,-1541 521.41,-1600.41 578.46,-1647.5 532,-1707 520.26,-1722.04 512.45,-1723.74 493.5,-1726"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M491.5,-1726C457.34,-1730.08 450.27,-1713.76 417,-1705 382.71,-1695.97 368.79,-1706 339.5,-1686"/>
 </g>
-<!-- module~s_operator_mag&#45;&gt;module~swiftest_operators -->
-<g id="module~~graph~~ModuleGraph_edge53" class="edge">
-<title>module~s_operator_mag&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" d="M292.67,-1680C274.67,-1680 253.67,-1680 234.43,-1680"/>
-<polygon fill="#000000" stroke="#000000" points="234.25,-1676.5 224.25,-1680 234.25,-1683.5 234.25,-1676.5"/>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~graph~~ModuleGraph_edge52" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M159.99,-923.1C148.31,-934.86 131.82,-953.85 124,-974 52.08,-1159.27 45.62,-1813.21 45.05,-1942.64"/>
+<polygon fill="#000000" stroke="#000000" points="41.55,-1942.89 45.02,-1952.9 48.55,-1942.91 41.55,-1942.89"/>
 </g>
-<!-- module~s_rmvs_discard -->
+<!-- module~s_io -->
 <g id="module~~graph~~ModuleGraph_node28" class="node">
-<title>module~s_rmvs_discard</title>
-<g id="a_module~~graph~~ModuleGraph_node28"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="656,-1655 568,-1655 568,-1631 656,-1631 656,-1655"/>
-<text text-anchor="middle" x="612" y="-1640.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
+<title>module~s_io</title>
+<g id="a_module~~graph~~ModuleGraph_node28"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="365.5,-1238 311.5,-1238 311.5,-1214 365.5,-1214 365.5,-1238"/>
+<text text-anchor="middle" x="338.5" y="-1223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_discard&#45;&gt;module~rmvs_classes -->
-<g id="module~~graph~~ModuleGraph_edge55" class="edge">
-<title>module~s_rmvs_discard&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M567.91,-1642.27C559.25,-1642.12 550.1,-1641.96 541.29,-1641.81"/>
-<polygon fill="#000000" stroke="#000000" points="541.21,-1638.31 531.15,-1641.64 541.09,-1645.31 541.21,-1638.31"/>
-</g>
-<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
+<!-- module~s_io&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge54" class="edge">
-<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M583.6,-1655.12C578.29,-1657.81 572.87,-1660.82 568,-1664 531.68,-1687.7 533.79,-1743.04 493.5,-1727"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M491.5,-1727C447.46,-1709.47 422.99,-1542.76 417,-1537 391.43,-1512.43 374.21,-1525.26 339.5,-1518"/>
+<title>module~s_io&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M311.46,-1225.86C294.35,-1224.31 272.83,-1219.33 260,-1205 190.68,-1127.6 265.21,-1069.38 224,-974 217.03,-957.88 204.95,-942.28 194.53,-930.63"/>
+<polygon fill="#000000" stroke="#000000" points="197.04,-928.19 187.66,-923.25 191.91,-932.95 197.04,-928.19"/>
 </g>
-<!-- module~s_tides_kick_getacch -->
+<!-- module~s_io&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge53" class="edge">
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.36,-1224.73C294.86,-1222.64 274.08,-1217.49 260,-1205 202.88,-1154.35 183.51,-1059.78 177.49,-1017.01"/>
+<polygon fill="#000000" stroke="#000000" points="180.96,-1016.55 176.2,-1007.08 174.01,-1017.45 180.96,-1016.55"/>
+</g>
+<!-- module~s_rmvs_setup -->
 <g id="module~~graph~~ModuleGraph_node29" class="node">
-<title>module~s_tides_kick_getacch</title>
-<g id="a_module~~graph~~ModuleGraph_node29"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="395.5,-734 281.5,-734 281.5,-710 395.5,-710 395.5,-734"/>
-<text text-anchor="middle" x="338.5" y="-719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
+<title>module~s_rmvs_setup</title>
+<g id="a_module~~graph~~ModuleGraph_node29"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="651.5,-1948 572.5,-1948 572.5,-1924 651.5,-1924 651.5,-1948"/>
+<text text-anchor="middle" x="612" y="-1933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge57" class="edge">
-<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M281.23,-731.56C273.63,-734.43 266.3,-738.16 260,-743 217.59,-775.62 192.59,-835.87 181.63,-868.18"/>
-<polygon fill="#000000" stroke="#000000" points="178.21,-867.39 178.45,-877.98 184.87,-869.55 178.21,-867.39"/>
-</g>
-<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_setup&#45;&gt;module~rmvs_classes -->
 <g id="module~~graph~~ModuleGraph_edge56" class="edge">
-<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.29,-729.25C273.31,-732.41 265.85,-736.83 260,-743 207.47,-798.42 263.04,-845.37 224,-911 218.59,-920.1 210.49,-928.2 202.44,-934.81"/>
-<polygon fill="#000000" stroke="#000000" points="200.3,-932.03 194.49,-940.89 204.56,-937.59 200.3,-932.03"/>
+<title>module~s_rmvs_setup&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M581.11,-1923.84C576.47,-1921.28 571.93,-1918.33 568,-1915 539.82,-1891.07 516.96,-1854.24 504.31,-1831.16"/>
+<polygon fill="#000000" stroke="#000000" points="507.32,-1829.37 499.52,-1822.19 501.14,-1832.66 507.32,-1829.37"/>
 </g>
-<!-- module~s_util_copy -->
+<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge55" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.34,-1940.62C549.14,-1942.25 519.25,-1942.35 493.5,-1936"/>
+</g>
+<!-- module~s_util_version -->
 <g id="module~~graph~~ModuleGraph_node30" class="node">
-<title>module~s_util_copy</title>
-<g id="a_module~~graph~~ModuleGraph_node30"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="371.5,-692 305.5,-692 305.5,-668 371.5,-668 371.5,-692"/>
-<text text-anchor="middle" x="338.5" y="-677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
+<title>module~s_util_version</title>
+<g id="a_module~~graph~~ModuleGraph_node30"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="377.5,-1196 299.5,-1196 299.5,-1172 377.5,-1172 377.5,-1196"/>
+<text text-anchor="middle" x="338.5" y="-1181.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_copy&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge59" class="edge">
-<title>module~s_util_copy&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M305.13,-682.42C289.96,-685.03 272.51,-690.32 260,-701 207.96,-745.4 186.34,-828.1 178.65,-867.72"/>
-<polygon fill="#000000" stroke="#000000" points="175.19,-867.22 176.84,-877.68 182.07,-868.47 175.19,-867.22"/>
-</g>
-<!-- module~s_util_copy&#45;&gt;module~swiftest -->
+<!-- module~s_util_version&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge58" class="edge">
-<title>module~s_util_copy&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.43,-680.9C289.58,-683.06 271.44,-688.42 260,-701 196.29,-771.06 270.72,-828.63 224,-911 218.97,-919.87 211.31,-927.75 203.54,-934.21"/>
-<polygon fill="#000000" stroke="#000000" points="200.97,-931.78 195.18,-940.65 205.24,-937.32 200.97,-931.78"/>
+<title>module~s_util_version&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M299.2,-1181.98C285.06,-1179.3 270.04,-1173.84 260,-1163 201.89,-1100.27 259.23,-1051.92 224,-974 216.76,-958 204.68,-942.4 194.33,-930.72"/>
+<polygon fill="#000000" stroke="#000000" points="196.86,-928.31 187.51,-923.31 191.7,-933.04 196.86,-928.31"/>
 </g>
-<!-- module~s_symba_discard -->
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge57" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.47,-1180.18C285.85,-1177.24 271.13,-1172.07 260,-1163 212.91,-1124.65 189.4,-1053.48 180.05,-1017.33"/>
+<polygon fill="#000000" stroke="#000000" points="183.37,-1016.19 177.59,-1007.31 176.57,-1017.85 183.37,-1016.19"/>
+</g>
+<!-- module~s_util_valid -->
 <g id="module~~graph~~ModuleGraph_node31" class="node">
-<title>module~s_symba_discard</title>
-<g id="a_module~~graph~~ModuleGraph_node31"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="811.5,-1800 715.5,-1800 715.5,-1776 811.5,-1776 811.5,-1800"/>
-<text text-anchor="middle" x="763.5" y="-1785.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
+<title>module~s_util_valid</title>
+<g id="a_module~~graph~~ModuleGraph_node31"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="371,-1154 306,-1154 306,-1130 371,-1130 371,-1154"/>
+<text text-anchor="middle" x="338.5" y="-1139.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
-<g id="module~~graph~~ModuleGraph_edge61" class="edge">
-<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M715.21,-1782.02C706.39,-1778.84 698.05,-1774.09 692,-1767 613.11,-1674.59 727.02,-1594.59 656,-1496 655.45,-1495.23 654.86,-1494.49 654.24,-1493.78"/>
-<polygon fill="#000000" stroke="#000000" points="656.42,-1491.03 646.59,-1487.07 651.8,-1496.3 656.42,-1491.03"/>
-</g>
-<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
+<!-- module~s_util_valid&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge60" class="edge">
-<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M715.26,-1777.1C685.95,-1771.4 647.45,-1765.82 613,-1767"/>
+<title>module~s_util_valid&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M305.79,-1140.77C290.04,-1138.51 271.88,-1133.17 260,-1121 213.02,-1072.86 253.29,-1034.55 224,-974 216.35,-958.19 204.26,-942.59 194.01,-930.87"/>
+<polygon fill="#000000" stroke="#000000" points="196.58,-928.5 187.28,-923.42 191.39,-933.19 196.58,-928.5"/>
 </g>
-<!-- module~s_util_version -->
+<!-- module~s_util_valid&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge59" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.88,-1138.62C290.89,-1135.78 273.38,-1130.57 260,-1121 222.35,-1094.06 196.38,-1044.86 183.77,-1016.57"/>
+<polygon fill="#000000" stroke="#000000" points="186.89,-1014.98 179.73,-1007.17 180.46,-1017.74 186.89,-1014.98"/>
+</g>
+<!-- module~s_symba_kick -->
 <g id="module~~graph~~ModuleGraph_node32" class="node">
-<title>module~s_util_version</title>
-<g id="a_module~~graph~~ModuleGraph_node32"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="377.5,-650 299.5,-650 299.5,-626 377.5,-626 377.5,-650"/>
-<text text-anchor="middle" x="338.5" y="-635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
+<title>module~s_symba_kick</title>
+<g id="a_module~~graph~~ModuleGraph_node32"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="803,-1511 724,-1511 724,-1487 803,-1487 803,-1511"/>
+<text text-anchor="middle" x="763.5" y="-1496.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_version&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge63" class="edge">
-<title>module~s_util_version&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M299.29,-641.06C285.49,-643.91 270.69,-649.21 260,-659 197.98,-715.79 181.09,-821.76 176.59,-867.75"/>
-<polygon fill="#000000" stroke="#000000" points="173.09,-867.57 175.71,-877.84 180.06,-868.18 173.09,-867.57"/>
-</g>
-<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
 <g id="module~~graph~~ModuleGraph_edge62" class="edge">
-<title>module~s_util_version&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.34,-639.7C285.04,-642.32 269.88,-647.83 260,-659 185.06,-743.76 278.44,-811.82 224,-911 219.09,-919.94 211.47,-927.84 203.7,-934.3"/>
-<polygon fill="#000000" stroke="#000000" points="201.12,-931.87 195.32,-940.73 205.38,-937.42 201.12,-931.87"/>
+<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M750.11,-1511.2C735.03,-1526.51 709.43,-1554.04 692,-1581 671.5,-1612.73 681.25,-1629.9 656,-1658 653.32,-1660.98 650.22,-1663.73 646.93,-1666.23"/>
+<polygon fill="#000000" stroke="#000000" points="644.83,-1663.43 638.52,-1671.94 648.76,-1669.22 644.83,-1663.43"/>
 </g>
-<!-- module~s_rmvs_step -->
+<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge61" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M491.5,-1352C473.99,-1359.58 465.19,-1356.32 453,-1371 415.23,-1416.45 459.49,-1457.92 417,-1499 391.5,-1523.65 372.97,-1529.72 339.5,-1518"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M759.17,-1486.68C749.61,-1454.03 718.63,-1365.45 656,-1331 592.19,-1295.9 560.33,-1323.06 493.5,-1352"/>
+</g>
+<!-- module~s_tides_kick_getacch -->
 <g id="module~~graph~~ModuleGraph_node33" class="node">
-<title>module~s_rmvs_step</title>
-<g id="a_module~~graph~~ModuleGraph_node33"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="648.5,-1613 575.5,-1613 575.5,-1589 648.5,-1589 648.5,-1613"/>
-<text text-anchor="middle" x="612" y="-1598.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~graph~~ModuleGraph_node33"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="395.5,-1112 281.5,-1112 281.5,-1088 395.5,-1088 395.5,-1112"/>
+<text text-anchor="middle" x="338.5" y="-1097.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_step&#45;&gt;module~rmvs_classes -->
-<g id="module~~graph~~ModuleGraph_edge65" class="edge">
-<title>module~s_rmvs_step&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M575.75,-1613C564.12,-1616.96 551.02,-1621.42 538.75,-1625.6"/>
-<polygon fill="#000000" stroke="#000000" points="537.47,-1622.33 529.14,-1628.87 539.73,-1628.96 537.47,-1622.33"/>
-</g>
-<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
+<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge64" class="edge">
-<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.29,-1603.94C551.88,-1605.15 520.69,-1605.39 493.5,-1601"/>
-</g>
-<!-- module~s_tides_step_spin -->
-<g id="module~~graph~~ModuleGraph_node34" class="node">
-<title>module~s_tides_step_spin</title>
-<g id="a_module~~graph~~ModuleGraph_node34"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="387.5,-608 289.5,-608 289.5,-584 387.5,-584 387.5,-608"/>
-<text text-anchor="middle" x="338.5" y="-593.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
-</a>
-</g>
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M281.12,-1091.82C273.36,-1088.77 266,-1084.62 260,-1079 223.99,-1045.28 247.46,-1017.4 224,-974 215.54,-958.35 203.24,-942.56 193.08,-930.69"/>
+<polygon fill="#000000" stroke="#000000" points="195.7,-928.36 186.47,-923.16 190.44,-932.98 195.7,-928.36"/>
 </g>
-<!-- module~s_tides_step_spin&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge67" class="edge">
-<title>module~s_tides_step_spin&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M289.36,-601.16C278.61,-604.31 268.03,-609.26 260,-617 187.9,-686.47 176.65,-815.94 175.12,-867.74"/>
-<polygon fill="#000000" stroke="#000000" points="171.62,-867.77 174.92,-877.83 178.62,-867.9 171.62,-867.77"/>
+<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge63" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.49,-1088.56C274.01,-1085.97 266.65,-1082.82 260,-1079 231.62,-1062.67 205.92,-1034.55 190.39,-1015.38"/>
+<polygon fill="#000000" stroke="#000000" points="192.94,-1012.96 184,-1007.28 187.44,-1017.3 192.94,-1012.96"/>
 </g>
-<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge66" class="edge">
-<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.14,-599.94C278.13,-603.1 267.49,-608.36 260,-617 173.79,-716.49 286.19,-794.97 224,-911 219.18,-919.99 211.59,-927.9 203.81,-934.36"/>
-<polygon fill="#000000" stroke="#000000" points="201.23,-931.93 195.41,-940.78 205.48,-937.49 201.23,-931.93"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312.97,-1547.92C294.92,-1537.61 271.6,-1520.95 260,-1499 205.36,-1395.61 265.71,-1083.25 224,-974 217.73,-957.59 205.66,-941.99 195.07,-930.41"/>
+<polygon fill="#000000" stroke="#000000" points="197.5,-927.89 188.06,-923.08 192.44,-932.73 197.5,-927.89"/>
 </g>
-<!-- module~s_util_solve -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~graph~~ModuleGraph_edge65" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.47,-1572.22C316.37,-1596.92 283.94,-1654.75 260,-1705 218.11,-1792.93 259.84,-1859.15 175,-1907"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M173,-1907C144.45,-1923.1 110.62,-1938.27 84.91,-1949.06"/>
+<polygon fill="#000000" stroke="#000000" points="83.37,-1945.91 75.48,-1952.97 86.06,-1952.37 83.37,-1945.91"/>
+</g>
+<!-- module~s_obl -->
 <g id="module~~graph~~ModuleGraph_node35" class="node">
-<title>module~s_util_solve</title>
-<g id="a_module~~graph~~ModuleGraph_node35"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="372.5,-566 304.5,-566 304.5,-542 372.5,-542 372.5,-566"/>
-<text text-anchor="middle" x="338.5" y="-551.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
+<title>module~s_obl</title>
+<g id="a_module~~graph~~ModuleGraph_node35"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="365.5,-1070 311.5,-1070 311.5,-1046 365.5,-1046 365.5,-1070"/>
+<text text-anchor="middle" x="338.5" y="-1055.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_solve&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge69" class="edge">
-<title>module~s_util_solve&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M304.35,-555.58C289,-557.99 271.63,-563.36 260,-575 217.81,-617.24 187.46,-803.51 178.07,-867.96"/>
-<polygon fill="#000000" stroke="#000000" points="174.6,-867.48 176.65,-877.87 181.53,-868.47 174.6,-867.48"/>
-</g>
-<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<!-- module~s_obl&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge68" class="edge">
-<title>module~s_util_solve&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M304.32,-554.71C288.57,-556.87 270.86,-562.28 260,-575 211.25,-632.12 258.97,-844.55 224,-911 219.25,-920.03 211.68,-927.95 203.89,-934.41"/>
-<polygon fill="#000000" stroke="#000000" points="201.31,-931.97 195.49,-940.82 205.56,-937.54 201.31,-931.97"/>
+<title>module~s_obl&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M311.18,-1055.97C295.01,-1053.57 274.67,-1048.34 260,-1037 234.49,-1017.28 241.94,-1000.8 224,-974 214.07,-959.18 201.74,-943.33 191.93,-931.24"/>
+<polygon fill="#000000" stroke="#000000" points="194.35,-928.67 185.3,-923.16 188.94,-933.11 194.35,-928.67"/>
 </g>
-<!-- module~s_util_get_energy_momentum -->
-<g id="module~~graph~~ModuleGraph_node36" class="node">
-<title>module~s_util_get_energy_momentum</title>
-<g id="a_module~~graph~~ModuleGraph_node36"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="417,-524 260,-524 260,-500 417,-500 417,-524"/>
-<text text-anchor="middle" x="338.5" y="-509.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
-</a>
+<!-- module~s_obl&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge67" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.27,-1052.24C296.06,-1048.57 276.69,-1043.32 260,-1037 241.34,-1029.94 221.29,-1020.15 205.36,-1011.8"/>
+<polygon fill="#000000" stroke="#000000" points="206.96,-1008.69 196.49,-1007.08 203.68,-1014.87 206.96,-1008.69"/>
 </g>
+<!-- module~s_whm_gr -->
+<g id="module~~graph~~ModuleGraph_node36" class="node">
+<title>module~s_whm_gr</title>
+<g id="a_module~~graph~~ModuleGraph_node36"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="523.5,-1656 461.5,-1656 461.5,-1632 523.5,-1632 523.5,-1656"/>
+<text text-anchor="middle" x="492.5" y="-1641.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
+</a>
 </g>
-<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge71" class="edge">
-<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M271.54,-524.1C267.31,-526.56 263.4,-529.5 260,-533 212.64,-581.85 185.14,-797.67 177.33,-867.86"/>
-<polygon fill="#000000" stroke="#000000" points="173.85,-867.51 176.24,-877.83 180.8,-868.26 173.85,-867.51"/>
 </g>
-<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<!-- module~s_whm_gr&#45;&gt;module~whm_classes -->
 <g id="module~~graph~~ModuleGraph_edge70" class="edge">
-<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.28,-524.04C266.45,-526.52 262.97,-529.48 260,-533 205.6,-597.51 262.86,-836.1 224,-911 219.3,-920.06 211.75,-927.98 203.96,-934.44"/>
-<polygon fill="#000000" stroke="#000000" points="201.38,-932.01 195.55,-940.85 205.62,-937.58 201.38,-932.01"/>
+<title>module~s_whm_gr&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M469.09,-1631.81C463.81,-1628.93 458.2,-1625.86 453,-1623 424.89,-1607.53 392.94,-1589.78 370.11,-1577.07"/>
+<polygon fill="#000000" stroke="#000000" points="371.67,-1573.93 361.23,-1572.13 368.27,-1580.05 371.67,-1573.93"/>
 </g>
-<!-- module~s_helio_drift -->
-<g id="module~~graph~~ModuleGraph_node37" class="node">
-<title>module~s_helio_drift</title>
-<g id="a_module~~graph~~ModuleGraph_node37"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="647,-1365 577,-1365 577,-1341 647,-1341 647,-1365"/>
-<text text-anchor="middle" x="612" y="-1350.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
-</a>
+<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge69" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.9,-1656.02C428.22,-1672.89 360.07,-1700.05 339.5,-1686"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~graph~~ModuleGraph_edge72" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M581.11,-1696.16C576.47,-1698.72 571.93,-1701.67 568,-1705 539.82,-1728.93 516.96,-1765.76 504.31,-1788.84"/>
+<polygon fill="#000000" stroke="#000000" points="501.14,-1787.34 499.52,-1797.81 507.32,-1790.63 501.14,-1787.34"/>
 </g>
-<!-- module~s_helio_drift&#45;&gt;module~helio_classes -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge73" class="edge">
-<title>module~s_helio_drift&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M577.46,-1340.89C573.84,-1338.42 570.55,-1335.49 568,-1332 503.52,-1243.9 590.17,-1181.39 532,-1089 530.39,-1086.44 528.42,-1084.07 526.24,-1081.9"/>
-<polygon fill="#000000" stroke="#000000" points="528.13,-1078.91 518.2,-1075.23 523.66,-1084.3 528.13,-1078.91"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M337.5,-262C302.1,-259.91 283.71,-254.63 260,-281 177.23,-373.07 174.25,-787.63 174.78,-888.72"/>
+<polygon fill="#000000" stroke="#000000" points="171.28,-889 174.85,-898.97 178.28,-888.95 171.28,-889"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M598.93,-1671.59C588.83,-1660.39 574.98,-1642.96 568,-1625 513.54,-1484.94 516.22,-393.86 417,-281 393.59,-254.36 374.9,-264.09 339.5,-262"/>
 </g>
-<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge72" class="edge">
-<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M581.82,-1365.23C577,-1367.81 572.21,-1370.75 568,-1374 548.55,-1389.04 551.42,-1400.92 532,-1416 516.93,-1427.7 510.12,-1425.63 493.5,-1435"/>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~graph~~ModuleGraph_edge74" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.98,-1671.65C583.1,-1645.9 540.47,-1588.25 532,-1581 530.69,-1579.88 529.31,-1578.79 527.88,-1577.74"/>
+<polygon fill="#000000" stroke="#000000" points="529.62,-1574.69 519.33,-1572.13 525.78,-1580.54 529.62,-1574.69"/>
 </g>
-<!-- module~s_whm_util -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~graph~~ModuleGraph_edge71" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M577.46,-1696.11C573.84,-1698.57 570.55,-1701.51 568,-1705 503.05,-1793.85 576.91,-1849.52 532,-1950 499.42,-2022.89 489.3,-2054.14 417,-2088 297.87,-2143.8 236.24,-2114.62 124,-2046 97.93,-2030.06 74.38,-2003.59 59.9,-1985.27"/>
+<polygon fill="#000000" stroke="#000000" points="62.43,-1982.8 53.56,-1977.01 56.88,-1987.07 62.43,-1982.8"/>
+</g>
+<!-- module~s_util_coord -->
 <g id="module~~graph~~ModuleGraph_node38" class="node">
-<title>module~s_whm_util</title>
-<g id="a_module~~graph~~ModuleGraph_node38"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="525.5,-1281 459.5,-1281 459.5,-1257 525.5,-1257 525.5,-1281"/>
-<text text-anchor="middle" x="492.5" y="-1266.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
+<title>module~s_util_coord</title>
+<g id="a_module~~graph~~ModuleGraph_node38"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="373.5,-1028 303.5,-1028 303.5,-1004 373.5,-1004 373.5,-1028"/>
+<text text-anchor="middle" x="338.5" y="-1013.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_util&#45;&gt;module~whm_classes -->
-<g id="module~~graph~~ModuleGraph_edge75" class="edge">
-<title>module~s_whm_util&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M461.46,-1256.94C458.13,-1254.45 455.17,-1251.49 453,-1248 398.79,-1160.59 481.08,-403.46 417,-323 409.47,-313.54 398.15,-308.08 386.47,-305"/>
-<polygon fill="#000000" stroke="#000000" points="387.15,-301.57 376.65,-302.93 385.71,-308.42 387.15,-301.57"/>
-</g>
-<!-- module~s_whm_util&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge74" class="edge">
-<title>module~s_whm_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.26,-1281.08C458.72,-1283.58 455.48,-1286.53 453,-1290 398.16,-1366.66 481.28,-1430.06 417,-1499 392.81,-1524.94 374.21,-1525.26 339.5,-1518"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_coord&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge76" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.5,-303.45C285.84,-305.97 270.11,-311.47 260,-323 220.52,-368.01 232.83,-530.78 224,-590 208.49,-694.09 187.41,-818.05 178.85,-867.77"/>
-<polygon fill="#000000" stroke="#000000" points="175.38,-867.28 177.13,-877.73 182.28,-868.47 175.38,-867.28"/>
+<title>module~s_util_coord&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M303.21,-1010.67C289.18,-1007.51 273.17,-1002.58 260,-995 231.62,-978.67 205.92,-950.55 190.39,-931.38"/>
+<polygon fill="#000000" stroke="#000000" points="192.94,-928.96 184,-923.28 187.44,-933.3 192.94,-928.96"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~graph~~ModuleGraph_node74" class="node">
-<title>module~swiftest_globals</title>
-<g id="a_module~~graph~~ModuleGraph_node74"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="88,-1712 0,-1712 0,-1688 88,-1688 88,-1712"/>
-<text text-anchor="middle" x="44" y="-1697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge75" class="edge">
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.43,-1011.6C276.37,-1008.1 238.61,-1003.22 211.04,-999.66"/>
+<polygon fill="#000000" stroke="#000000" points="211.38,-996.17 201.01,-998.36 210.48,-1003.11 211.38,-996.17"/>
+</g>
+<!-- module~s_util_copy -->
+<g id="module~~graph~~ModuleGraph_node39" class="node">
+<title>module~s_util_copy</title>
+<g id="a_module~~graph~~ModuleGraph_node39"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="371.5,-986 305.5,-986 305.5,-962 371.5,-962 371.5,-986"/>
+<text text-anchor="middle" x="338.5" y="-971.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
 </a>
 </g>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~s_util_copy&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge78" class="edge">
+<title>module~s_util_copy&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M305.38,-966.79C291.26,-963.24 274.6,-958.53 260,-953 241.34,-945.94 221.29,-936.15 205.36,-927.8"/>
+<polygon fill="#000000" stroke="#000000" points="206.96,-924.69 196.49,-923.08 203.68,-930.87 206.96,-924.69"/>
+</g>
+<!-- module~s_util_copy&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge77" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.31,-304.16C285.98,-306.83 270.54,-312.25 260,-323 84.99,-501.64 166.17,-622.5 124,-869 69.58,-1187.09 50.06,-1580.57 45.9,-1677.6"/>
-<polygon fill="#000000" stroke="#000000" points="42.4,-1677.57 45.48,-1687.71 49.39,-1677.86 42.4,-1677.57"/>
+<title>module~s_util_copy&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.4,-978.15C278.33,-981.65 239.61,-986.65 211.4,-990.3"/>
+<polygon fill="#000000" stroke="#000000" points="210.61,-986.87 201.15,-991.62 211.51,-993.81 210.61,-986.87"/>
 </g>
-<!-- module~s_whm_step -->
+<!-- module~s_helio_kick -->
 <g id="module~~graph~~ModuleGraph_node40" class="node">
-<title>module~s_whm_step</title>
-<g id="a_module~~graph~~ModuleGraph_node40"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="529,-1239 456,-1239 456,-1215 529,-1215 529,-1239"/>
-<text text-anchor="middle" x="492.5" y="-1224.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
+<title>module~s_helio_kick</title>
+<g id="a_module~~graph~~ModuleGraph_node40"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="647,-1406 577,-1406 577,-1382 647,-1382 647,-1406"/>
+<text text-anchor="middle" x="612" y="-1391.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_step&#45;&gt;module~whm_classes -->
-<g id="module~~graph~~ModuleGraph_edge79" class="edge">
-<title>module~s_whm_step&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M461.47,-1214.93C458.14,-1212.45 455.17,-1209.49 453,-1206 401.17,-1122.6 478.24,-399.75 417,-323 409.46,-313.55 398.14,-308.09 386.46,-305.01"/>
-<polygon fill="#000000" stroke="#000000" points="387.14,-301.58 376.64,-302.94 385.7,-308.43 387.14,-301.58"/>
+<!-- module~s_helio_kick&#45;&gt;module~helio_classes -->
+<g id="module~~graph~~ModuleGraph_edge80" class="edge">
+<title>module~s_helio_kick&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M606.99,-1406.36C597.7,-1433.41 572.33,-1498.65 532,-1539 530.96,-1540.04 529.85,-1541.05 528.7,-1542.02"/>
+<polygon fill="#000000" stroke="#000000" points="526.65,-1539.18 520.57,-1547.85 530.74,-1544.86 526.65,-1539.18"/>
 </g>
-<!-- module~s_whm_step&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge78" class="edge">
-<title>module~s_whm_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.17,-1239.01C458.64,-1241.52 455.43,-1244.5 453,-1248 388.72,-1340.57 492.69,-1415.5 417,-1499 393.18,-1525.27 374.21,-1525.26 339.5,-1518"/>
+<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge79" class="edge">
+<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M583.55,-1381.97C551.57,-1368.3 502,-1348.32 493.5,-1352"/>
 </g>
-<!-- module~s_gr -->
+<!-- module~s_helio_step -->
 <g id="module~~graph~~ModuleGraph_node41" class="node">
-<title>module~s_gr</title>
-<g id="a_module~~graph~~ModuleGraph_node41"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="365.5,-482 311.5,-482 311.5,-458 365.5,-458 365.5,-482"/>
-<text text-anchor="middle" x="338.5" y="-467.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
+<title>module~s_helio_step</title>
+<g id="a_module~~graph~~ModuleGraph_node41"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="648.5,-1364 575.5,-1364 575.5,-1340 648.5,-1340 648.5,-1364"/>
+<text text-anchor="middle" x="612" y="-1349.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_gr&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge81" class="edge">
-<title>module~s_gr&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M311.34,-470.4C294.4,-472.09 273.13,-477.13 260,-491 233.49,-519 190.58,-788.06 178.35,-867.82"/>
-<polygon fill="#000000" stroke="#000000" points="174.88,-867.36 176.83,-877.78 181.8,-868.42 174.88,-867.36"/>
+<!-- module~s_helio_step&#45;&gt;module~helio_classes -->
+<g id="module~~graph~~ModuleGraph_edge82" class="edge">
+<title>module~s_helio_step&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M577.68,-1364.28C574.02,-1366.72 570.67,-1369.6 568,-1373 521.41,-1432.41 577.24,-1478.56 532,-1539 531.44,-1539.75 530.85,-1540.47 530.22,-1541.17"/>
+<polygon fill="#000000" stroke="#000000" points="527.83,-1538.61 522.6,-1547.83 532.44,-1543.89 527.83,-1538.61"/>
 </g>
-<!-- module~s_gr&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge80" class="edge">
-<title>module~s_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.14,-469.86C293.89,-471.29 272.33,-476.24 260,-491 199.95,-562.9 266.74,-827.65 224,-911 219.34,-920.08 211.8,-928.01 204.01,-934.47"/>
-<polygon fill="#000000" stroke="#000000" points="201.43,-932.04 195.59,-940.88 205.67,-937.61 201.43,-932.04"/>
+<!-- module~s_helio_step&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge81" class="edge">
+<title>module~s_helio_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.32,-1344.84C551.23,-1341.68 519.24,-1340.85 493.5,-1352"/>
 </g>
-<!-- module~lambda_function -->
+<!-- module~s_util_peri -->
 <g id="module~~graph~~ModuleGraph_node42" class="node">
-<title>module~lambda_function</title>
-<g id="a_module~~graph~~ModuleGraph_node42"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="219.5,-1772 128.5,-1772 128.5,-1748 219.5,-1748 219.5,-1772"/>
-<text text-anchor="middle" x="174" y="-1757.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<title>module~s_util_peri</title>
+<g id="a_module~~graph~~ModuleGraph_node42"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="369,-944 308,-944 308,-920 369,-920 369,-944"/>
+<text text-anchor="middle" x="338.5" y="-929.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
 </a>
 </g>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~graph~~ModuleGraph_edge82" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.1,-1747.86C127.84,-1738.83 101.35,-1726.41 80.17,-1716.49"/>
-<polygon fill="#000000" stroke="#000000" points="81.4,-1713.2 70.86,-1712.12 78.43,-1719.54 81.4,-1713.2"/>
+<!-- module~s_util_peri&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge84" class="edge">
+<title>module~s_util_peri&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M307.69,-928.15C285.69,-925.3 255.14,-921.36 228.9,-917.97"/>
+<polygon fill="#000000" stroke="#000000" points="229.07,-914.46 218.71,-916.65 228.18,-921.4 229.07,-914.46"/>
 </g>
-<!-- module~s_io -->
+<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge83" class="edge">
+<title>module~s_util_peri&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M308,-938.56C293.35,-942.18 275.51,-947.13 260,-953 241.34,-960.06 221.29,-969.85 205.36,-978.2"/>
+<polygon fill="#000000" stroke="#000000" points="203.68,-975.13 196.49,-982.92 206.96,-981.31 203.68,-975.13"/>
+</g>
+<!-- module~s_whm_kick -->
 <g id="module~~graph~~ModuleGraph_node43" class="node">
-<title>module~s_io</title>
-<g id="a_module~~graph~~ModuleGraph_node43"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="365.5,-440 311.5,-440 311.5,-416 365.5,-416 365.5,-440"/>
-<text text-anchor="middle" x="338.5" y="-425.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
+<title>module~s_whm_kick</title>
+<g id="a_module~~graph~~ModuleGraph_node43"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="527.5,-1614 457.5,-1614 457.5,-1590 527.5,-1590 527.5,-1614"/>
+<text text-anchor="middle" x="492.5" y="-1599.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_io&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge84" class="edge">
-<title>module~s_io&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M311.25,-428.32C294.28,-429.97 272.99,-435 260,-449 245.37,-464.75 192.85,-780.73 178.59,-867.9"/>
-<polygon fill="#000000" stroke="#000000" points="175.14,-867.35 176.98,-877.79 182.05,-868.48 175.14,-867.35"/>
+<!-- module~s_whm_kick&#45;&gt;module~whm_classes -->
+<g id="module~~graph~~ModuleGraph_edge86" class="edge">
+<title>module~s_whm_kick&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M457.39,-1592.57C436.5,-1586.8 409.46,-1579.33 386.56,-1573"/>
+<polygon fill="#000000" stroke="#000000" points="387.26,-1569.57 376.69,-1570.28 385.4,-1576.31 387.26,-1569.57"/>
 </g>
-<!-- module~s_io&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge83" class="edge">
-<title>module~s_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.48,-427.8C294.15,-429.17 272.36,-434.08 260,-449 194.29,-528.29 270.63,-819.19 224,-911 219.38,-920.1 211.85,-928.04 204.06,-934.49"/>
-<polygon fill="#000000" stroke="#000000" points="201.47,-932.06 195.63,-940.9 205.71,-937.63 201.47,-932.06"/>
+<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge85" class="edge">
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M337.5,-1686C289.6,-1653.29 282.05,-1634.65 260,-1581 175.26,-1374.82 173.09,-1097.5 174.41,-1017.47"/>
+<polygon fill="#000000" stroke="#000000" points="177.92,-1017.2 174.62,-1007.13 170.92,-1017.06 177.92,-1017.2"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M469.09,-1614.19C463.81,-1617.07 458.2,-1620.14 453,-1623 402.45,-1650.81 387.14,-1718.54 339.5,-1686"/>
 </g>
-<!-- module~s_symba_io -->
+<!-- module~s_operator_cross -->
 <g id="module~~graph~~ModuleGraph_node44" class="node">
-<title>module~s_symba_io</title>
-<g id="a_module~~graph~~ModuleGraph_node44"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="798.5,-1758 728.5,-1758 728.5,-1734 798.5,-1734 798.5,-1758"/>
-<text text-anchor="middle" x="763.5" y="-1743.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
+<title>module~s_operator_cross</title>
+<g id="a_module~~graph~~ModuleGraph_node44"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="386.5,-2037 290.5,-2037 290.5,-2013 386.5,-2013 386.5,-2037"/>
+<text text-anchor="middle" x="338.5" y="-2022.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_io&#45;&gt;module~symba_classes -->
-<g id="module~~graph~~ModuleGraph_edge86" class="edge">
-<title>module~s_symba_io&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M728.16,-1743.47C715.05,-1740.74 701.08,-1735.38 692,-1725 624.17,-1647.45 717.21,-1578.87 656,-1496 655.44,-1495.24 654.84,-1494.51 654.21,-1493.8"/>
-<polygon fill="#000000" stroke="#000000" points="656.36,-1491.03 646.51,-1487.13 651.78,-1496.32 656.36,-1491.03"/>
+<!-- module~s_operator_cross&#45;&gt;module~swiftest_operators -->
+<g id="module~~graph~~ModuleGraph_edge88" class="edge">
+<title>module~s_operator_cross&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" d="M290.5,-2025C272.94,-2025 252.77,-2025 234.25,-2025"/>
+<polygon fill="#000000" stroke="#000000" points="234.16,-2021.5 224.16,-2025 234.16,-2028.5 234.16,-2021.5"/>
 </g>
-<!-- module~s_symba_io&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge85" class="edge">
-<title>module~s_symba_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M728.24,-1752.91C698.05,-1758.49 652.82,-1765.64 613,-1767"/>
+<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge87" class="edge">
+<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.34,-2018.53C278.76,-2014.68 267.54,-2008.6 260,-1999 197.27,-1919.14 178.41,-1158.08 175.44,-1017.33"/>
+<polygon fill="#000000" stroke="#000000" points="178.94,-1017.21 175.23,-1007.28 171.94,-1017.35 178.94,-1017.21"/>
 </g>
-<!-- module~s_kick -->
+<!-- module~s_rmvs_step -->
 <g id="module~~graph~~ModuleGraph_node45" class="node">
-<title>module~s_kick</title>
-<g id="a_module~~graph~~ModuleGraph_node45"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="365.5,-398 311.5,-398 311.5,-374 365.5,-374 365.5,-398"/>
-<text text-anchor="middle" x="338.5" y="-383.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
+<title>module~s_rmvs_step</title>
+<g id="a_module~~graph~~ModuleGraph_node45"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="648.5,-1906 575.5,-1906 575.5,-1882 648.5,-1882 648.5,-1906"/>
+<text text-anchor="middle" x="612" y="-1891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_kick&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge88" class="edge">
-<title>module~s_kick&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M311.18,-386.25C294.17,-387.88 272.88,-392.9 260,-407 252.02,-415.74 193.72,-774.01 178.58,-867.75"/>
-<polygon fill="#000000" stroke="#000000" points="175.1,-867.4 176.96,-877.83 182.01,-868.51 175.1,-867.4"/>
+<!-- module~s_rmvs_step&#45;&gt;module~rmvs_classes -->
+<g id="module~~graph~~ModuleGraph_edge90" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M583.6,-1881.88C578.29,-1879.19 572.87,-1876.18 568,-1873 548.13,-1860.04 527.7,-1842.4 513.27,-1829.08"/>
+<polygon fill="#000000" stroke="#000000" points="515.61,-1826.47 505.92,-1822.19 510.82,-1831.58 515.61,-1826.47"/>
 </g>
-<!-- module~s_kick&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge87" class="edge">
-<title>module~s_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.45,-385.78C294.11,-387.13 272.32,-392.04 260,-407 188.63,-493.69 274.53,-810.72 224,-911 219.41,-920.11 211.88,-928.06 204.09,-934.51"/>
-<polygon fill="#000000" stroke="#000000" points="201.51,-932.08 195.66,-940.91 205.74,-937.65 201.51,-932.08"/>
+<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge89" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M587.19,-1906.04C558.41,-1919.97 511.59,-1940.46 493.5,-1936"/>
 </g>
 <!-- module~s_util_sort -->
 <g id="module~~graph~~ModuleGraph_node46" class="node">
 <title>module~s_util_sort</title>
 <g id="a_module~~graph~~ModuleGraph_node46"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="369,-356 308,-356 308,-332 369,-332 369,-356"/>
-<text text-anchor="middle" x="338.5" y="-341.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="369,-902 308,-902 308,-878 369,-878 369,-902"/>
+<text text-anchor="middle" x="338.5" y="-887.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_sort&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge90" class="edge">
+<g id="module~~graph~~ModuleGraph_edge92" class="edge">
 <title>module~s_util_sort&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M307.7,-344.55C291.31,-346.48 271.93,-351.73 260,-365 226.14,-402.65 232.08,-540.01 224,-590 207.17,-694.13 186.75,-818.54 178.6,-868.08"/>
-<polygon fill="#000000" stroke="#000000" points="175.14,-867.56 176.97,-878 182.05,-868.7 175.14,-867.56"/>
+<path fill="none" stroke="#000000" d="M307.69,-893.85C285.69,-896.7 255.14,-900.64 228.9,-904.03"/>
+<polygon fill="#000000" stroke="#000000" points="228.18,-900.6 218.71,-905.35 229.07,-907.54 228.18,-900.6"/>
 </g>
 <!-- module~s_util_sort&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge89" class="edge">
+<g id="module~~graph~~ModuleGraph_edge91" class="edge">
 <title>module~s_util_sort&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.61,-344.1C290.98,-345.86 271.39,-351.09 260,-365 182.97,-459.09 278.42,-802.26 224,-911 219.43,-920.12 211.92,-928.07 204.12,-934.52"/>
-<polygon fill="#000000" stroke="#000000" points="201.54,-932.09 195.69,-940.93 205.77,-937.67 201.54,-932.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.77,-894.34C292.73,-897.44 274.62,-902.59 260,-911 231.62,-927.33 205.92,-955.45 190.39,-974.62"/>
+<polygon fill="#000000" stroke="#000000" points="187.44,-972.7 184,-982.72 192.94,-977.04 187.44,-972.7"/>
 </g>
-<!-- module~s_util_valid -->
+<!-- module~s_util_exit -->
 <g id="module~~graph~~ModuleGraph_node47" class="node">
-<title>module~s_util_valid</title>
-<g id="a_module~~graph~~ModuleGraph_node47"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="371,-1490 306,-1490 306,-1466 371,-1466 371,-1490"/>
-<text text-anchor="middle" x="338.5" y="-1475.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
+<title>module~s_util_exit</title>
+<g id="a_module~~graph~~ModuleGraph_node47"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-860 308.5,-860 308.5,-836 368.5,-836 368.5,-860"/>
+<text text-anchor="middle" x="338.5" y="-845.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_valid&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge92" class="edge">
-<title>module~s_util_valid&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M305.68,-1477.66C289.49,-1475.71 270.97,-1470.36 260,-1457 185.8,-1366.61 276.47,-1036.51 224,-932 219.42,-922.88 211.9,-914.94 204.11,-908.48"/>
-<polygon fill="#000000" stroke="#000000" points="205.76,-905.34 195.68,-902.08 201.52,-910.91 205.76,-905.34"/>
+<!-- module~s_util_exit&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge94" class="edge">
+<title>module~s_util_exit&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M308.37,-854.47C293.65,-858.1 275.65,-863.08 260,-869 241.34,-876.06 221.29,-885.85 205.36,-894.2"/>
+<polygon fill="#000000" stroke="#000000" points="203.68,-891.13 196.49,-898.92 206.96,-897.31 203.68,-891.13"/>
 </g>
-<!-- module~s_util_valid&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge91" class="edge">
-<title>module~s_util_valid&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.81,-1477.17C289.86,-1475.04 271.52,-1469.7 260,-1457 194.32,-1384.58 178.73,-1063.45 175.67,-975.4"/>
-<polygon fill="#000000" stroke="#000000" points="179.16,-975.08 175.33,-965.2 172.16,-975.31 179.16,-975.08"/>
+<!-- module~s_util_exit&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge93" class="edge">
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M308.22,-850.5C292.59,-853.09 273.79,-858.34 260,-869 234.49,-888.72 241.94,-905.2 224,-932 214.07,-946.82 201.74,-962.67 191.93,-974.76"/>
+<polygon fill="#000000" stroke="#000000" points="188.94,-972.89 185.3,-982.84 194.35,-977.33 188.94,-972.89"/>
 </g>
-<!-- module~whm_drift -->
+<!-- module~s_user_kick_getacch -->
 <g id="module~~graph~~ModuleGraph_node48" class="node">
-<title>module~whm_drift</title>
-<g id="a_module~~graph~~ModuleGraph_node48"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="522,-1197 463,-1197 463,-1173 522,-1173 522,-1197"/>
-<text text-anchor="middle" x="492.5" y="-1182.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~graph~~ModuleGraph_node48"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="394.5,-818 282.5,-818 282.5,-794 394.5,-794 394.5,-818"/>
+<text text-anchor="middle" x="338.5" y="-803.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~whm_drift&#45;&gt;module~whm_classes -->
-<g id="module~~graph~~ModuleGraph_edge94" class="edge">
-<title>module~whm_drift&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M462.98,-1174C459.04,-1171.3 455.5,-1168.01 453,-1164 403.55,-1084.61 475.41,-396.05 417,-323 409.45,-313.56 398.12,-308.1 386.44,-305.02"/>
-<polygon fill="#000000" stroke="#000000" points="387.13,-301.59 376.62,-302.95 385.69,-308.44 387.13,-301.59"/>
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge96" class="edge">
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M282.3,-817.16C274.55,-819.8 266.89,-823.04 260,-827 231.62,-843.33 205.92,-871.45 190.39,-890.62"/>
+<polygon fill="#000000" stroke="#000000" points="187.44,-888.7 184,-898.72 192.94,-893.04 187.44,-888.7"/>
 </g>
-<!-- module~whm_drift&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge93" class="edge">
-<title>module~whm_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.87,-1196.44C459.05,-1199.06 455.57,-1202.22 453,-1206 379.26,-1314.52 504.13,-1400.91 417,-1499 393.45,-1525.51 374.21,-1525.26 339.5,-1518"/>
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge95" class="edge">
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.3,-813.72C274.11,-816.81 266.31,-821.09 260,-827 223.99,-860.72 247.46,-888.6 224,-932 215.54,-947.65 203.24,-963.44 193.08,-975.31"/>
+<polygon fill="#000000" stroke="#000000" points="190.44,-973.02 186.47,-982.84 195.7,-977.64 190.44,-973.02"/>
 </g>
 <!-- module~s_symba_util -->
 <g id="module~~graph~~ModuleGraph_node49" class="node">
 <title>module~s_symba_util</title>
 <g id="a_module~~graph~~ModuleGraph_node49"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="801,-1716 726,-1716 726,-1692 801,-1692 801,-1716"/>
-<text text-anchor="middle" x="763.5" y="-1701.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="801,-1347 726,-1347 726,-1323 801,-1323 801,-1347"/>
+<text text-anchor="middle" x="763.5" y="-1332.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_util&#45;&gt;module~symba_classes -->
-<g id="module~~graph~~ModuleGraph_edge96" class="edge">
+<g id="module~~graph~~ModuleGraph_edge98" class="edge">
 <title>module~s_symba_util&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M752.67,-1691.99C737.86,-1673.44 709.69,-1636.25 692,-1601 669.87,-1556.91 688.66,-1532.98 656,-1496 655.13,-1495.02 654.21,-1494.08 653.24,-1493.18"/>
-<polygon fill="#000000" stroke="#000000" points="655.18,-1490.26 645.09,-1487.04 650.97,-1495.85 655.18,-1490.26"/>
+<path fill="none" stroke="#000000" d="M755.14,-1347.15C740.86,-1371.25 709.28,-1427.16 692,-1478 665.74,-1555.24 702.88,-1591.23 656,-1658 654.04,-1660.78 651.69,-1663.32 649.1,-1665.63"/>
+<polygon fill="#000000" stroke="#000000" points="646.69,-1663.05 640.79,-1671.85 650.89,-1668.66 646.69,-1663.05"/>
 </g>
 <!-- module~s_symba_util&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge95" class="edge">
+<g id="module~~graph~~ModuleGraph_edge97" class="edge">
 <title>module~s_symba_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M725.93,-1712.8C714.79,-1716.03 702.68,-1720.11 692,-1725 655.84,-1741.54 652.74,-1765.64 613,-1767"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M337.5,-1518C303.86,-1506.77 284.14,-1524.98 260,-1499 193.45,-1427.38 178.49,-1105.68 175.61,-1017.44"/>
+<polygon fill="#000000" stroke="#000000" points="179.11,-1017.12 175.3,-1007.23 172.11,-1017.33 179.11,-1017.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.58,-1322.83C714.44,-1313.97 683.99,-1302.72 656,-1298 565.33,-1282.7 514.19,-1269.35 453,-1338 404.21,-1392.73 468.31,-1446.63 417,-1499 392.18,-1524.33 373.14,-1529.23 339.5,-1518"/>
 </g>
-<!-- module~s_user_kick_getacch -->
+<!-- module~s_util_resize -->
 <g id="module~~graph~~ModuleGraph_node50" class="node">
-<title>module~s_user_kick_getacch</title>
-<g id="a_module~~graph~~ModuleGraph_node50"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="394.5,-1448 282.5,-1448 282.5,-1424 394.5,-1424 394.5,-1448"/>
-<text text-anchor="middle" x="338.5" y="-1433.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
+<title>module~s_util_resize</title>
+<g id="a_module~~graph~~ModuleGraph_node50"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="374.5,-776 302.5,-776 302.5,-752 374.5,-752 374.5,-776"/>
+<text text-anchor="middle" x="338.5" y="-761.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
 </a>
 </g>
 </g>
-<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge98" class="edge">
-<title>module~s_user_kick_getacch&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M282.48,-1430.19C273.85,-1426.93 265.86,-1422.09 260,-1415 191.46,-1332.01 272.58,-1028.04 224,-932 219.39,-922.9 211.87,-914.95 204.08,-908.5"/>
-<polygon fill="#000000" stroke="#000000" points="205.73,-905.36 195.65,-902.1 201.49,-910.93 205.73,-905.36"/>
-</g>
-<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge97" class="edge">
-<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.31,-1429.36C273.91,-1426.16 266.04,-1421.56 260,-1415 199.53,-1349.32 180.32,-1058.07 176.03,-975.12"/>
-<polygon fill="#000000" stroke="#000000" points="179.52,-974.85 175.53,-965.04 172.53,-975.2 179.52,-974.85"/>
+<!-- module~s_util_resize&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge100" class="edge">
+<title>module~s_util_resize&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M302.41,-768.08C288.24,-771.04 272.36,-776.16 260,-785 222.35,-811.94 196.38,-861.14 183.77,-889.43"/>
+<polygon fill="#000000" stroke="#000000" points="180.46,-888.26 179.73,-898.83 186.89,-891.02 180.46,-888.26"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~s_util_resize&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge99" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.83,-1628.89C481.54,-1595.29 461.33,-1498.01 453,-1416 446.86,-1355.56 454.71,-370.64 417,-323 409.5,-313.52 398.18,-308.05 386.5,-304.97"/>
-<polygon fill="#000000" stroke="#000000" points="387.19,-301.54 376.68,-302.9 385.75,-308.39 387.19,-301.54"/>
-</g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~graph~~ModuleGraph_edge100" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M486.1,-1653.3C476.06,-1674.45 452.25,-1717.07 417,-1734 319.88,-1780.64 280.8,-1740.33 175,-1720"/>
+<title>module~s_util_resize&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.27,-765.78C287.39,-768.31 271,-773.73 260,-785 213.02,-833.14 253.29,-871.45 224,-932 216.35,-947.81 204.26,-963.41 194.01,-975.13"/>
+<polygon fill="#000000" stroke="#000000" points="191.39,-972.81 187.28,-982.58 196.58,-977.5 191.39,-972.81"/>
 </g>
-<!-- module~s_symba_collision -->
-<g id="module~~graph~~ModuleGraph_node52" class="node">
-<title>module~s_symba_collision</title>
-<g id="a_module~~graph~~ModuleGraph_node52"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="813,-1592 714,-1592 714,-1568 813,-1568 813,-1592"/>
-<text text-anchor="middle" x="763.5" y="-1577.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
+<!-- module~s_fragmentation -->
+<g id="module~~graph~~ModuleGraph_node51" class="node">
+<title>module~s_fragmentation</title>
+<g id="a_module~~graph~~ModuleGraph_node51"><a xlink:href=".././module/s_fragmentation.html" xlink:title="s_fragmentation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="383.5,-734 293.5,-734 293.5,-710 383.5,-710 383.5,-734"/>
+<text text-anchor="middle" x="338.5" y="-719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fragmentation</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
+<!-- module~s_fragmentation&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge102" class="edge">
-<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M749.08,-1567.86C729.54,-1550.56 691.69,-1518.43 656,-1496 653.71,-1494.56 651.3,-1493.14 648.84,-1491.77"/>
-<polygon fill="#000000" stroke="#000000" points="650.34,-1488.6 639.86,-1487.02 647.06,-1494.79 650.34,-1488.6"/>
+<title>module~s_fragmentation&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M293.47,-727.25C281.64,-730.35 269.51,-735.25 260,-743 212.91,-781.35 189.4,-852.52 180.05,-888.67"/>
+<polygon fill="#000000" stroke="#000000" points="176.57,-888.15 177.59,-898.69 183.37,-889.81 176.57,-888.15"/>
 </g>
-<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
+<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge101" class="edge">
-<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611,-1767C555.87,-1768.88 544.75,-1747.4 493.5,-1727"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M753.65,-1592.12C739.9,-1611.12 712.83,-1649.26 692,-1683 674.65,-1711.1 680.38,-1725.72 656,-1748 640.58,-1762.1 633.88,-1766.29 613,-1767"/>
+<title>module~s_fragmentation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M293.16,-725.33C280.91,-728.35 268.62,-733.69 260,-743 201.89,-805.73 259.23,-854.08 224,-932 216.76,-948 204.68,-963.6 194.33,-975.28"/>
+<polygon fill="#000000" stroke="#000000" points="191.7,-972.96 187.51,-982.69 196.86,-977.69 191.7,-972.96"/>
 </g>
-<!-- module~s_rmvs_util -->
-<g id="module~~graph~~ModuleGraph_node53" class="node">
-<title>module~s_rmvs_util</title>
-<g id="a_module~~graph~~ModuleGraph_node53"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="645.5,-1571 578.5,-1571 578.5,-1547 645.5,-1547 645.5,-1571"/>
-<text text-anchor="middle" x="612" y="-1556.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
+<!-- module~lambda_function -->
+<g id="module~~graph~~ModuleGraph_node52" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~graph~~ModuleGraph_node52"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="219.5,-1977 128.5,-1977 128.5,-1953 219.5,-1953 219.5,-1977"/>
+<text text-anchor="middle" x="174" y="-1962.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_util&#45;&gt;module~rmvs_classes -->
-<g id="module~~graph~~ModuleGraph_edge104" class="edge">
-<title>module~s_rmvs_util&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M582.97,-1571.08C577.82,-1573.75 572.62,-1576.75 568,-1580 549.75,-1592.84 549.31,-1600.92 532,-1615 528.62,-1617.75 524.95,-1620.49 521.27,-1623.11"/>
-<polygon fill="#000000" stroke="#000000" points="519.04,-1620.4 512.78,-1628.95 523,-1626.17 519.04,-1620.4"/>
-</g>
-<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
 <g id="module~~graph~~ModuleGraph_edge103" class="edge">
-<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M491.5,-1601C448.41,-1594.04 455.82,-1556.97 417,-1537 385.46,-1520.78 374.21,-1525.26 339.5,-1518"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M586.28,-1571.03C557.53,-1584.45 511.68,-1603.94 493.5,-1601"/>
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M128.23,-1965C118.6,-1965 108.33,-1965 98.41,-1965"/>
+<polygon fill="#000000" stroke="#000000" points="98.23,-1961.5 88.23,-1965 98.23,-1968.5 98.23,-1961.5"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~graph~~ModuleGraph_edge106" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M491.1,-1050.93C487.97,-959.74 466.22,-381.05 417,-323 409.33,-313.95 398.2,-308.6 386.75,-305.49"/>
-<polygon fill="#000000" stroke="#000000" points="387.21,-302 376.69,-303.29 385.72,-308.84 387.21,-302"/>
+<!-- module~s_rmvs_chk -->
+<g id="module~~graph~~ModuleGraph_node53" class="node">
+<title>module~s_rmvs_chk</title>
+<g id="a_module~~graph~~ModuleGraph_node53"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="647,-1864 577,-1864 577,-1840 647,-1840 647,-1864"/>
+<text text-anchor="middle" x="612" y="-1849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+</g>
+<!-- module~s_rmvs_chk&#45;&gt;module~rmvs_classes -->
 <g id="module~~graph~~ModuleGraph_edge105" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M491.18,-1050.84C488.57,-956.4 469.67,-341.94 417,-281 393.81,-254.17 374.94,-263.25 339.5,-262"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M337.5,-262C302.06,-260.75 283.77,-254.68 260,-281 179.91,-369.68 174.89,-768.99 174.9,-867.82"/>
-<polygon fill="#000000" stroke="#000000" points="171.4,-867.88 174.91,-877.87 178.4,-867.87 171.4,-867.88"/>
+<title>module~s_rmvs_chk&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M577.33,-1839.96C564.67,-1835.44 550.1,-1830.23 536.69,-1825.44"/>
+<polygon fill="#000000" stroke="#000000" points="537.77,-1822.11 527.18,-1822.04 535.41,-1828.7 537.77,-1822.11"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge104" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M583.6,-1864.12C578.29,-1866.81 572.87,-1869.82 568,-1873 531.68,-1896.7 535.95,-1944.86 493.5,-1936"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M491.5,-1936C458.99,-1929.22 275.9,-1776.15 260,-1747 188.75,-1616.38 177.04,-1128.29 175.29,-1017.47"/>
+<polygon fill="#000000" stroke="#000000" points="178.78,-1017.11 175.14,-1007.16 171.78,-1017.21 178.78,-1017.11"/>
+</g>
+<!-- module~s_util_fill -->
+<g id="module~~graph~~ModuleGraph_node54" class="node">
+<title>module~s_util_fill</title>
+<g id="a_module~~graph~~ModuleGraph_node54"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="365.5,-692 311.5,-692 311.5,-668 365.5,-668 365.5,-692"/>
+<text text-anchor="middle" x="338.5" y="-677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_fill&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge107" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M173,-1720C148.28,-1717.2 121.02,-1713.09 98.03,-1709.32"/>
-<polygon fill="#000000" stroke="#000000" points="98.57,-1705.86 88.13,-1707.67 97.42,-1712.76 98.57,-1705.86"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M480.86,-1075.12C471.66,-1086.4 458.93,-1104.12 453,-1122 432.72,-1183.18 462.21,-1655.05 417,-1701 379.17,-1739.45 228.6,-1726.07 175,-1720"/>
+<title>module~s_util_fill&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M311.36,-681.27C294.86,-683.36 274.08,-688.51 260,-701 202.88,-751.65 183.51,-846.22 177.49,-888.99"/>
+<polygon fill="#000000" stroke="#000000" points="174.01,-888.55 176.2,-898.92 180.96,-889.45 174.01,-888.55"/>
 </g>
-<!-- module~s_util_append -->
+<!-- module~s_util_fill&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge106" class="edge">
+<title>module~s_util_fill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.46,-680.14C294.35,-681.69 272.83,-686.67 260,-701 190.68,-778.4 265.21,-836.62 224,-932 217.03,-948.12 204.95,-963.72 194.53,-975.37"/>
+<polygon fill="#000000" stroke="#000000" points="191.91,-973.05 187.66,-982.75 197.04,-977.81 191.91,-973.05"/>
+</g>
+<!-- module~s_eucl -->
 <g id="module~~graph~~ModuleGraph_node55" class="node">
-<title>module~s_util_append</title>
-<g id="a_module~~graph~~ModuleGraph_node55"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="378,-1406 299,-1406 299,-1382 378,-1382 378,-1406"/>
-<text text-anchor="middle" x="338.5" y="-1391.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
+<title>module~s_eucl</title>
+<g id="a_module~~graph~~ModuleGraph_node55"><a xlink:href=".././module/s_eucl.html" xlink:title="s_eucl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="365.5,-650 311.5,-650 311.5,-626 365.5,-626 365.5,-650"/>
+<text text-anchor="middle" x="338.5" y="-635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_eucl</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_append&#45;&gt;module~swiftest_classes -->
+<!-- module~s_eucl&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge109" class="edge">
-<title>module~s_util_append&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M298.99,-1392.59C284.64,-1390.02 269.54,-1384.47 260,-1373 197.12,-1297.41 268.69,-1019.58 224,-932 219.36,-922.91 211.82,-914.97 204.04,-908.52"/>
-<polygon fill="#000000" stroke="#000000" points="205.69,-905.38 195.61,-902.11 201.45,-910.95 205.69,-905.38"/>
+<title>module~s_eucl&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M311.48,-638.95C294.82,-640.89 273.81,-646.01 260,-659 192.93,-722.12 178.77,-839.86 175.79,-888.79"/>
+<polygon fill="#000000" stroke="#000000" points="172.29,-888.75 175.28,-898.91 179.28,-889.1 172.29,-888.75"/>
 </g>
-<!-- module~s_util_append&#45;&gt;module~swiftest -->
+<!-- module~s_eucl&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge108" class="edge">
-<title>module~s_util_append&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.86,-1391.85C284.84,-1389.13 270.01,-1383.68 260,-1373 204.85,-1314.15 182.14,-1053.67 176.49,-975.35"/>
-<polygon fill="#000000" stroke="#000000" points="179.96,-974.89 175.77,-965.16 172.98,-975.38 179.96,-974.89"/>
+<title>module~s_eucl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.35,-638.04C294.2,-639.55 272.67,-644.52 260,-659 179.43,-751.12 271.22,-819.09 224,-932 217.22,-948.2 205.15,-963.81 194.68,-975.43"/>
+<polygon fill="#000000" stroke="#000000" points="192.05,-973.11 187.77,-982.8 197.16,-977.9 192.05,-973.11"/>
 </g>
-<!-- module~s_helio_kick -->
+<!-- module~s_util_append -->
 <g id="module~~graph~~ModuleGraph_node56" class="node">
-<title>module~s_helio_kick</title>
-<g id="a_module~~graph~~ModuleGraph_node56"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="647,-1189 577,-1189 577,-1165 647,-1165 647,-1189"/>
-<text text-anchor="middle" x="612" y="-1174.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
+<title>module~s_util_append</title>
+<g id="a_module~~graph~~ModuleGraph_node56"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="378,-608 299,-608 299,-584 378,-584 378,-608"/>
+<text text-anchor="middle" x="338.5" y="-593.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_kick&#45;&gt;module~helio_classes -->
+<!-- module~s_util_append&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge111" class="edge">
-<title>module~s_helio_kick&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M601.61,-1164.76C587.6,-1146.92 559.87,-1113.27 532,-1089 528.78,-1086.2 525.25,-1083.45 521.68,-1080.84"/>
-<polygon fill="#000000" stroke="#000000" points="523.58,-1077.9 513.37,-1075.08 519.59,-1083.65 523.58,-1077.9"/>
+<title>module~s_util_append&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M298.91,-598.67C285.07,-601.46 270.34,-606.84 260,-617 182.9,-692.82 174.67,-833.9 174.53,-888.56"/>
+<polygon fill="#000000" stroke="#000000" points="171.03,-888.88 174.6,-898.86 178.03,-888.83 171.03,-888.88"/>
 </g>
-<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
+<!-- module~s_util_append&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge110" class="edge">
-<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M491.5,-1435C453.47,-1456.43 455.82,-1479.03 417,-1499 385.46,-1515.22 374.21,-1525.26 339.5,-1518"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.01,-1189.08C597.62,-1209.63 580.38,-1252.75 568,-1290 549.63,-1345.27 569.31,-1371.28 532,-1416 519.78,-1430.65 510.12,-1425.63 493.5,-1435"/>
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.78,-597.64C284.57,-600.27 269.63,-605.79 260,-617 214.08,-670.43 250.62,-866.77 224,-932 217.36,-948.26 205.29,-963.86 194.78,-975.47"/>
+<polygon fill="#000000" stroke="#000000" points="192.16,-973.15 187.85,-982.83 197.26,-977.95 192.16,-973.15"/>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<!-- module~s_rmvs_discard -->
+<g id="module~~graph~~ModuleGraph_node57" class="node">
+<title>module~s_rmvs_discard</title>
+<g id="a_module~~graph~~ModuleGraph_node57"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="656,-1822 568,-1822 568,-1798 656,-1798 656,-1822"/>
+<text text-anchor="middle" x="612" y="-1807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
+</a>
+</g>
+</g>
+<!-- module~s_rmvs_discard&#45;&gt;module~rmvs_classes -->
+<g id="module~~graph~~ModuleGraph_edge113" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M567.91,-1810C559.25,-1810 550.1,-1810 541.29,-1810"/>
+<polygon fill="#000000" stroke="#000000" points="541.15,-1806.5 531.15,-1810 541.15,-1813.5 541.15,-1806.5"/>
+</g>
+<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge112" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M123.88,-1687.68C115.56,-1688.98 106.88,-1690.33 98.46,-1691.65"/>
-<polygon fill="#000000" stroke="#000000" points="97.69,-1688.23 88.35,-1693.23 98.77,-1695.14 97.69,-1688.23"/>
+<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M583.6,-1797.88C578.29,-1795.19 572.87,-1792.18 568,-1789 531.68,-1765.3 536.56,-1720.86 493.5,-1726"/>
 </g>
-<!-- module~s_eucl -->
+<!-- module~s_whm_step -->
 <g id="module~~graph~~ModuleGraph_node58" class="node">
-<title>module~s_eucl</title>
-<g id="a_module~~graph~~ModuleGraph_node58"><a xlink:href=".././module/s_eucl.html" xlink:title="s_eucl">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="365.5,-1364 311.5,-1364 311.5,-1340 365.5,-1340 365.5,-1364"/>
-<text text-anchor="middle" x="338.5" y="-1349.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_eucl</text>
+<title>module~s_whm_step</title>
+<g id="a_module~~graph~~ModuleGraph_node58"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="529,-1530 456,-1530 456,-1506 529,-1506 529,-1530"/>
+<text text-anchor="middle" x="492.5" y="-1515.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_eucl&#45;&gt;module~swiftest_classes -->
-<g id="module~~graph~~ModuleGraph_edge114" class="edge">
-<title>module~s_eucl&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M311.16,-1352.12C293.92,-1350.69 272.36,-1345.74 260,-1331 202.78,-1262.8 264.8,-1011.13 224,-932 219.32,-922.93 211.77,-915 203.99,-908.54"/>
-<polygon fill="#000000" stroke="#000000" points="205.65,-905.41 195.57,-902.13 201.41,-910.98 205.65,-905.41"/>
+<!-- module~s_whm_step&#45;&gt;module~whm_classes -->
+<g id="module~~graph~~ModuleGraph_edge115" class="edge">
+<title>module~s_whm_step&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M455.86,-1527.85C435.07,-1533.59 408.6,-1540.91 386.17,-1547.11"/>
+<polygon fill="#000000" stroke="#000000" points="385.21,-1543.74 376.5,-1549.78 387.07,-1550.49 385.21,-1543.74"/>
 </g>
-<!-- module~s_eucl&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge113" class="edge">
-<title>module~s_eucl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.39,-1351.55C294.47,-1349.84 273.21,-1344.79 260,-1331 210.1,-1278.89 184.14,-1048.68 177.04,-975.45"/>
-<polygon fill="#000000" stroke="#000000" points="180.49,-974.72 176.06,-965.09 173.52,-975.38 180.49,-974.72"/>
+<!-- module~s_whm_step&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge114" class="edge">
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M455.77,-1524.25C424.3,-1528.3 377.67,-1530.74 339.5,-1518"/>
 </g>
-<!-- module~s_fragmentation -->
+<!-- module~s_operator_mag -->
 <g id="module~~graph~~ModuleGraph_node59" class="node">
-<title>module~s_fragmentation</title>
-<g id="a_module~~graph~~ModuleGraph_node59"><a xlink:href=".././module/s_fragmentation.html" xlink:title="s_fragmentation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="383.5,-1322 293.5,-1322 293.5,-1298 383.5,-1298 383.5,-1322"/>
-<text text-anchor="middle" x="338.5" y="-1307.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fragmentation</text>
+<title>module~s_operator_mag</title>
+<g id="a_module~~graph~~ModuleGraph_node59"><a xlink:href=".././module/s_operator_mag.html" xlink:title="s_operator_mag">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="384,-2079 293,-2079 293,-2055 384,-2055 384,-2079"/>
+<text text-anchor="middle" x="338.5" y="-2064.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_mag</text>
 </a>
 </g>
 </g>
-<!-- module~s_fragmentation&#45;&gt;module~swiftest_classes -->
+<!-- module~s_operator_mag&#45;&gt;module~swiftest_operators -->
 <g id="module~~graph~~ModuleGraph_edge116" class="edge">
-<title>module~s_fragmentation&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M293.45,-1307.33C280.91,-1304.36 268.38,-1298.89 260,-1289 208.43,-1228.19 260.91,-1002.68 224,-932 219.28,-922.96 211.71,-915.03 203.93,-908.58"/>
-<polygon fill="#000000" stroke="#000000" points="205.59,-905.44 195.52,-902.16 201.35,-911.01 205.59,-905.44"/>
-</g>
-<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge115" class="edge">
-<title>module~s_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M293.1,-1306.25C280.99,-1303.2 268.8,-1297.95 260,-1289 215.24,-1243.48 186.28,-1042.59 177.68,-975.16"/>
-<polygon fill="#000000" stroke="#000000" points="181.15,-974.67 176.44,-965.19 174.2,-975.54 181.15,-974.67"/>
-</g>
-<!-- module~s_util_exit -->
-<g id="module~~graph~~ModuleGraph_node60" class="node">
-<title>module~s_util_exit</title>
-<g id="a_module~~graph~~ModuleGraph_node60"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-1280 308.5,-1280 308.5,-1256 368.5,-1256 368.5,-1280"/>
-<text text-anchor="middle" x="338.5" y="-1265.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
-</a>
+<title>module~s_operator_mag&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" d="M292.67,-2055.41C273.78,-2050.53 251.58,-2044.79 231.59,-2039.63"/>
+<polygon fill="#000000" stroke="#000000" points="232.23,-2036.18 221.67,-2037.06 230.48,-2042.95 232.23,-2036.18"/>
 </g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge119" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M461.43,-1547.96C458.1,-1545.47 455.15,-1542.51 453,-1539 379.91,-1419.79 504.87,-389.78 417,-281 394.71,-253.41 374.9,-264.09 339.5,-262"/>
 </g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest_classes -->
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
 <g id="module~~graph~~ModuleGraph_edge118" class="edge">
-<title>module~s_util_exit&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M308.24,-1267.73C291.61,-1265.94 271.81,-1260.74 260,-1247 168.15,-1140.14 290.07,-1056.46 224,-932 219.22,-922.99 211.64,-915.07 203.85,-908.61"/>
-<polygon fill="#000000" stroke="#000000" points="205.52,-905.49 195.45,-902.2 201.27,-911.05 205.52,-905.49"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M454.32,-1560C433.91,-1560 408.39,-1560 386.6,-1560"/>
+<polygon fill="#000000" stroke="#000000" points="386.56,-1556.5 376.56,-1560 386.56,-1563.5 386.56,-1556.5"/>
 </g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~graph~~ModuleGraph_edge117" class="edge">
-<title>module~s_util_exit&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M308.29,-1266.88C292.1,-1264.76 272.72,-1259.51 260,-1247 182.9,-1171.18 174.67,-1030.1 174.53,-975.44"/>
-<polygon fill="#000000" stroke="#000000" points="178.03,-975.17 174.6,-965.14 171.03,-975.12 178.03,-975.17"/>
-</g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~graph~~ModuleGraph_edge119" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M152.49,-902.17C142.14,-909.45 130.44,-919.69 124,-932 53.45,-1066.75 45.9,-1566.19 45.1,-1677.79"/>
-<polygon fill="#000000" stroke="#000000" points="41.6,-1677.86 45.03,-1687.88 48.59,-1677.91 41.6,-1677.86"/>
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.4,-1572.17C458.83,-1574.66 455.55,-1577.59 453,-1581 407.76,-1641.44 459.63,-1684.7 417,-1747 344.19,-1853.41 285.02,-1839.77 175,-1907"/>
 </g>
-<!-- module~s_setup -->
-<g id="module~~graph~~ModuleGraph_node62" class="node">
-<title>module~s_setup</title>
-<g id="a_module~~graph~~ModuleGraph_node62"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="365.5,-1238 311.5,-1238 311.5,-1214 365.5,-1214 365.5,-1238"/>
-<text text-anchor="middle" x="338.5" y="-1223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
+<!-- module~s_util_minimize_bfgs -->
+<g id="module~~graph~~ModuleGraph_node61" class="node">
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~graph~~ModuleGraph_node61"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="394.5,-566 282.5,-566 282.5,-542 394.5,-542 394.5,-566"/>
+<text text-anchor="middle" x="338.5" y="-551.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
 </a>
 </g>
 </g>
-<!-- module~s_setup&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest_classes -->
 <g id="module~~graph~~ModuleGraph_edge121" class="edge">
-<title>module~s_setup&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M311.35,-1225.96C294.2,-1224.45 272.67,-1219.48 260,-1205 179.43,-1112.88 282.31,-1039.6 224,-932 219.14,-923.03 211.54,-915.13 203.76,-908.67"/>
-<polygon fill="#000000" stroke="#000000" points="205.44,-905.54 195.37,-902.24 201.18,-911.1 205.44,-905.54"/>
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M282.27,-561.13C273.98,-564.29 266.16,-568.74 260,-575 215.24,-620.52 186.28,-821.41 177.68,-888.84"/>
+<polygon fill="#000000" stroke="#000000" points="174.2,-888.46 176.44,-898.81 181.15,-889.33 174.2,-888.46"/>
 </g>
-<!-- module~s_setup&#45;&gt;module~swiftest -->
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge120" class="edge">
-<title>module~s_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.48,-1225.05C294.82,-1223.11 273.81,-1217.99 260,-1205 192.93,-1141.88 178.77,-1024.14 175.79,-975.21"/>
-<polygon fill="#000000" stroke="#000000" points="179.28,-974.9 175.28,-965.09 172.29,-975.25 179.28,-974.9"/>
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.24,-560.09C273.74,-563.33 265.86,-568.09 260,-575 208.43,-635.81 253.63,-857.98 224,-932 217.47,-948.3 205.4,-963.91 194.87,-975.51"/>
+<polygon fill="#000000" stroke="#000000" points="192.24,-973.19 187.91,-982.86 197.33,-978 192.24,-973.19"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~graph~~ModuleGraph_edge123" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M578.36,-1487.21C574.5,-1489.67 570.91,-1492.58 568,-1496 532.19,-1538.08 564.79,-1570.52 532,-1615 529.99,-1617.73 527.6,-1620.26 525.02,-1622.59"/>
-<polygon fill="#000000" stroke="#000000" points="522.58,-1620.04 516.84,-1628.95 526.88,-1625.57 522.58,-1620.04"/>
+<!-- module~s_symba_collision -->
+<g id="module~~graph~~ModuleGraph_node62" class="node">
+<title>module~s_symba_collision</title>
+<g id="a_module~~graph~~ModuleGraph_node62"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="813,-2064 714,-2064 714,-2040 813,-2040 813,-2064"/>
+<text text-anchor="middle" x="763.5" y="-2049.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
+</a>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~graph~~ModuleGraph_edge125" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M598.92,-1462.59C588.82,-1451.4 574.96,-1433.96 568,-1416 515.16,-1279.67 607.58,-1214.16 532,-1089 530.44,-1086.41 528.51,-1084.02 526.35,-1081.83"/>
-<polygon fill="#000000" stroke="#000000" points="528.26,-1078.87 518.34,-1075.14 523.77,-1084.24 528.26,-1078.87"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
+<g id="module~~graph~~ModuleGraph_edge123" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M713.64,-2045.58C705.37,-2042.41 697.65,-2037.76 692,-2031 598.58,-1919.1 739.89,-1824.21 656,-1705 655.46,-1704.23 654.88,-1703.48 654.26,-1702.76"/>
+<polygon fill="#000000" stroke="#000000" points="656.47,-1700.04 646.66,-1696.02 651.82,-1705.28 656.47,-1700.04"/>
+</g>
+<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge122" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M598.98,-1462.57C588.9,-1451.36 575.07,-1433.92 568,-1416 519.68,-1293.55 608.72,-1228.98 532,-1122 509.29,-1090.34 474.47,-1116.51 453,-1084 403.78,-1009.47 473.68,-350.02 417,-281 394.49,-253.59 374.94,-263.25 339.5,-262"/>
+<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M713.68,-2051.59C684.47,-2051.44 646.61,-2051.43 613,-2052"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~s_setup -->
+<g id="module~~graph~~ModuleGraph_node63" class="node">
+<title>module~s_setup</title>
+<g id="a_module~~graph~~ModuleGraph_node63"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="365.5,-524 311.5,-524 311.5,-500 365.5,-500 365.5,-524"/>
+<text text-anchor="middle" x="338.5" y="-509.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
+</a>
+</g>
+</g>
+<!-- module~s_setup&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge125" class="edge">
+<title>module~s_setup&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M311.39,-512.45C294.47,-514.16 273.21,-519.21 260,-533 210.1,-585.11 184.14,-815.32 177.04,-888.55"/>
+<polygon fill="#000000" stroke="#000000" points="173.52,-888.62 176.06,-898.91 180.49,-889.28 173.52,-888.62"/>
+</g>
+<!-- module~s_setup&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge124" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.38,-1487.13C577.39,-1489.75 572.4,-1492.73 568,-1496 507.65,-1540.81 491.31,-1555.33 453,-1620 427.21,-1663.53 453.73,-1693.2 417,-1728 320.94,-1819.03 245.94,-1832.41 124,-1781 95.12,-1768.82 71.55,-1740.36 57.89,-1720.64"/>
-<polygon fill="#000000" stroke="#000000" points="60.78,-1718.67 52.33,-1712.29 54.96,-1722.55 60.78,-1718.67"/>
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.16,-511.88C293.92,-513.31 272.36,-518.26 260,-533 202.78,-601.2 256.65,-849.18 224,-932 217.56,-948.34 205.48,-963.94 194.93,-975.53"/>
+<polygon fill="#000000" stroke="#000000" points="192.31,-973.21 187.96,-982.88 197.38,-978.04 192.31,-973.21"/>
 </g>
-<!-- module~s_whm_gr -->
+<!-- module~s_rmvs_util -->
 <g id="module~~graph~~ModuleGraph_node64" class="node">
-<title>module~s_whm_gr</title>
-<g id="a_module~~graph~~ModuleGraph_node64"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="523.5,-1155 461.5,-1155 461.5,-1131 523.5,-1131 523.5,-1155"/>
-<text text-anchor="middle" x="492.5" y="-1140.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
+<title>module~s_rmvs_util</title>
+<g id="a_module~~graph~~ModuleGraph_node64"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="645.5,-1780 578.5,-1780 578.5,-1756 645.5,-1756 645.5,-1780"/>
+<text text-anchor="middle" x="612" y="-1765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_gr&#45;&gt;module~whm_classes -->
+<!-- module~s_rmvs_util&#45;&gt;module~rmvs_classes -->
 <g id="module~~graph~~ModuleGraph_edge127" class="edge">
-<title>module~s_whm_gr&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M466.01,-1130.73C460.85,-1127.04 456.08,-1122.49 453,-1117 409.81,-1039.97 472.24,-391.91 417,-323 409.44,-313.57 398.11,-308.12 386.43,-305.03"/>
-<polygon fill="#000000" stroke="#000000" points="387.12,-301.6 376.61,-302.96 385.67,-308.45 387.12,-301.6"/>
+<title>module~s_rmvs_util&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M578.27,-1779.7C565.48,-1784.27 550.64,-1789.58 536.97,-1794.46"/>
+<polygon fill="#000000" stroke="#000000" points="535.52,-1791.26 527.28,-1797.92 537.88,-1797.85 535.52,-1791.26"/>
 </g>
-<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge126" class="edge">
-<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M461.68,-1155.21C458.32,-1157.67 455.28,-1160.58 453,-1164 369.78,-1288.49 515.6,-1386.29 417,-1499 393.65,-1525.69 374.21,-1525.26 339.5,-1518"/>
+<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M585.81,-1755.99C557.06,-1742.83 511.68,-1723.83 493.5,-1726"/>
 </g>
-<!-- module~s_helio_step -->
+<!-- module~s_whm_setup -->
 <g id="module~~graph~~ModuleGraph_node65" class="node">
-<title>module~s_helio_step</title>
-<g id="a_module~~graph~~ModuleGraph_node65"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="648.5,-1055 575.5,-1055 575.5,-1031 648.5,-1031 648.5,-1055"/>
-<text text-anchor="middle" x="612" y="-1040.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
+<title>module~s_whm_setup</title>
+<g id="a_module~~graph~~ModuleGraph_node65"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="532,-1488 453,-1488 453,-1464 532,-1464 532,-1488"/>
+<text text-anchor="middle" x="492.5" y="-1473.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_step&#45;&gt;module~helio_classes -->
+<!-- module~s_whm_setup&#45;&gt;module~whm_classes -->
 <g id="module~~graph~~ModuleGraph_edge129" class="edge">
-<title>module~s_helio_step&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M575.43,-1049.05C564.46,-1050.92 552.2,-1053.01 540.58,-1054.99"/>
-<polygon fill="#000000" stroke="#000000" points="539.85,-1051.56 530.58,-1056.69 541.03,-1058.46 539.85,-1051.56"/>
+<title>module~s_whm_setup&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M466.85,-1488.14C462.11,-1490.83 457.29,-1493.84 453,-1497 435.04,-1510.24 435.92,-1520.17 417,-1532 407.62,-1537.87 396.84,-1542.74 386.35,-1546.69"/>
+<polygon fill="#000000" stroke="#000000" points="385.11,-1543.42 376.86,-1550.06 387.45,-1550.02 385.11,-1543.42"/>
 </g>
-<!-- module~s_helio_step&#45;&gt;module~swiftest -->
+<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
 <g id="module~~graph~~ModuleGraph_edge128" class="edge">
-<title>module~s_helio_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M590.17,-1030.91C564.85,-1017.99 522,-1002.02 493.5,-1023"/>
+<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M462.62,-1488.1C425.27,-1503.05 362.29,-1525.61 339.5,-1518"/>
 </g>
-<!-- program~swiftest_driver -->
+<!-- module~s_util_solve -->
 <g id="module~~graph~~ModuleGraph_node66" class="node">
+<title>module~s_util_solve</title>
+<g id="a_module~~graph~~ModuleGraph_node66"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="372.5,-482 304.5,-482 304.5,-458 372.5,-458 372.5,-482"/>
+<text text-anchor="middle" x="338.5" y="-467.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_solve&#45;&gt;module~swiftest_classes -->
+<g id="module~~graph~~ModuleGraph_edge131" class="edge">
+<title>module~s_util_solve&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M304.42,-471.21C288.89,-473.51 271.34,-478.9 260,-491 204.85,-549.85 182.14,-810.33 176.49,-888.65"/>
+<polygon fill="#000000" stroke="#000000" points="172.98,-888.62 175.77,-898.84 179.96,-889.11 172.98,-888.62"/>
+</g>
+<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge130" class="edge">
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M304.18,-470.59C288.39,-472.72 270.7,-478.14 260,-491 197.12,-566.59 259.67,-840.37 224,-932 217.63,-948.37 205.55,-963.97 194.99,-975.55"/>
+<polygon fill="#000000" stroke="#000000" points="192.36,-973.24 188,-982.89 197.43,-978.06 192.36,-973.24"/>
+</g>
+<!-- program~swiftest_driver -->
+<g id="module~~graph~~ModuleGraph_node67" class="node">
 <title>program~swiftest_driver</title>
-<g id="a_module~~graph~~ModuleGraph_node66"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="379,-1570 298,-1570 298,-1546 379,-1546 379,-1570"/>
-<text text-anchor="middle" x="338.5" y="-1555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
+<g id="a_module~~graph~~ModuleGraph_node67"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="379,-1738 298,-1738 298,-1714 379,-1714 379,-1738"/>
+<text text-anchor="middle" x="338.5" y="-1723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
 </a>
 </g>
 </g>
 <!-- program~swiftest_driver&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge130" class="edge">
+<g id="module~~graph~~ModuleGraph_edge132" class="edge">
 <title>program~swiftest_driver&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M297.99,-1553.36C284.03,-1549.74 269.47,-1543.32 260,-1532 187.43,-1445.22 176.8,-1071.31 175.26,-975.46"/>
-<polygon fill="#000000" stroke="#000000" points="178.76,-975.36 175.11,-965.42 171.76,-975.46 178.76,-975.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M297.84,-1721.49C283.86,-1717.88 269.32,-1711.44 260,-1700 172.02,-1591.99 173.13,-1125.23 174.6,-1017.32"/>
+<polygon fill="#000000" stroke="#000000" points="178.1,-1017.3 174.76,-1007.25 171.11,-1017.19 178.1,-1017.3"/>
 </g>
-<!-- proc~util_minimize_bfgs -->
-<g id="module~~graph~~ModuleGraph_node67" class="node">
-<title>proc~util_minimize_bfgs</title>
-<g id="a_module~~graph~~ModuleGraph_node67"><a xlink:href=".././proc/util_minimize_bfgs.html" xlink:title="util_minimize_bfgs">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="388.5,-108 288.5,-108 288.5,-84 388.5,-84 388.5,-108"/>
-<text text-anchor="middle" x="338.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs</text>
+<!-- proc~ge_wpp -->
+<g id="module~~graph~~ModuleGraph_node68" class="node">
+<title>proc~ge_wpp</title>
+<g id="a_module~~graph~~ModuleGraph_node68"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="365.5,-234 311.5,-234 311.5,-210 365.5,-210 365.5,-234"/>
+<text text-anchor="middle" x="338.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
 <!-- ieee_exceptions -->
-<g id="module~~graph~~ModuleGraph_node73" class="node">
+<g id="module~~graph~~ModuleGraph_node75" class="node">
 <title>ieee_exceptions</title>
-<g id="a_module~~graph~~ModuleGraph_node73"><a xlink:href="http://fortranwiki.org/fortran/show/IEEE+arithmetic" xlink:title="ieee_exceptions">
+<g id="a_module~~graph~~ModuleGraph_node75"><a xlink:href="http://fortranwiki.org/fortran/show/IEEE+arithmetic" xlink:title="ieee_exceptions">
 <polygon fill="#337ab7" stroke="#337ab7" points="219,-129 129,-129 129,-105 219,-105 219,-129"/>
 <text text-anchor="middle" x="174" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_exceptions</text>
 </a>
 </g>
 </g>
+<!-- proc~ge_wpp&#45;&gt;ieee_exceptions -->
+<g id="module~~graph~~ModuleGraph_edge133" class="edge">
+<title>proc~ge_wpp&#45;&gt;ieee_exceptions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.43,-218.38C295.75,-215.39 275.83,-210.11 260,-201 231.62,-184.67 205.92,-156.55 190.39,-137.38"/>
+<polygon fill="#000000" stroke="#000000" points="192.94,-134.96 184,-129.28 187.44,-139.3 192.94,-134.96"/>
+</g>
+<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge134" class="edge">
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.78,-234.06C293.87,-243.95 271.25,-259.79 260,-281 192.11,-409 274.79,-796.31 224,-932 217.84,-948.45 205.77,-964.05 195.15,-975.62"/>
+<polygon fill="#000000" stroke="#000000" points="192.52,-973.3 188.12,-982.94 197.57,-978.15 192.52,-973.3"/>
+</g>
+<!-- proc~fragmentation_initialize -->
+<g id="module~~graph~~ModuleGraph_node69" class="node">
+<title>proc~fragmentation_initialize</title>
+<g id="a_module~~graph~~ModuleGraph_node69"><a xlink:href=".././proc/fragmentation_initialize.html" xlink:title="fragmentation_initialize">
+<polygon fill="#d9534f" stroke="#d9534f" points="399.5,-150 277.5,-150 277.5,-126 399.5,-126 399.5,-150"/>
+<text text-anchor="middle" x="338.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
+</a>
+</g>
+</g>
+<!-- proc~fragmentation_initialize&#45;&gt;ieee_exceptions -->
+<g id="module~~graph~~ModuleGraph_edge135" class="edge">
+<title>proc~fragmentation_initialize&#45;&gt;ieee_exceptions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M277.45,-130.24C261.58,-128.19 244.55,-125.99 229.02,-123.98"/>
+<polygon fill="#000000" stroke="#000000" points="229.42,-120.5 219.06,-122.69 228.53,-127.45 229.42,-120.5"/>
+</g>
+<!-- proc~util_minimize_bfgs -->
+<g id="module~~graph~~ModuleGraph_node70" class="node">
+<title>proc~util_minimize_bfgs</title>
+<g id="a_module~~graph~~ModuleGraph_node70"><a xlink:href=".././proc/util_minimize_bfgs.html" xlink:title="util_minimize_bfgs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="388.5,-108 288.5,-108 288.5,-84 388.5,-84 388.5,-108"/>
+<text text-anchor="middle" x="338.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs</text>
+</a>
+</g>
+</g>
 <!-- proc~util_minimize_bfgs&#45;&gt;ieee_exceptions -->
-<g id="module~~graph~~ModuleGraph_edge131" class="edge">
+<g id="module~~graph~~ModuleGraph_edge136" class="edge">
 <title>proc~util_minimize_bfgs&#45;&gt;ieee_exceptions</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.3,-102.36C269.62,-104.77 248.24,-107.54 229.12,-110.01"/>
 <polygon fill="#000000" stroke="#000000" points="228.53,-106.55 219.06,-111.31 229.42,-113.5 228.53,-106.55"/>
 </g>
 <!-- proc~util_solve_linear_system_d -->
-<g id="module~~graph~~ModuleGraph_node68" class="node">
+<g id="module~~graph~~ModuleGraph_node71" class="node">
 <title>proc~util_solve_linear_system_d</title>
-<g id="a_module~~graph~~ModuleGraph_node68"><a xlink:href=".././proc/util_solve_linear_system_d.html" xlink:title="util_solve_linear_system_d">
+<g id="a_module~~graph~~ModuleGraph_node71"><a xlink:href=".././proc/util_solve_linear_system_d.html" xlink:title="util_solve_linear_system_d">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="409,-66 268,-66 268,-42 409,-42 409,-66"/>
 <text text-anchor="middle" x="338.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system_d</text>
 </a>
 </g>
 </g>
 <!-- proc~util_solve_linear_system_d&#45;&gt;ieee_exceptions -->
-<g id="module~~graph~~ModuleGraph_edge132" class="edge">
+<g id="module~~graph~~ModuleGraph_edge137" class="edge">
 <title>proc~util_solve_linear_system_d&#45;&gt;ieee_exceptions</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.43,-66.03C278.21,-68.68 268.74,-71.69 260,-75 241.34,-82.06 221.29,-91.85 205.36,-100.2"/>
 <polygon fill="#000000" stroke="#000000" points="203.68,-97.13 196.49,-104.92 206.96,-103.31 203.68,-97.13"/>
 </g>
-<!-- proc~ge_wpp -->
-<g id="module~~graph~~ModuleGraph_node69" class="node">
-<title>proc~ge_wpp</title>
-<g id="a_module~~graph~~ModuleGraph_node69"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="365.5,-192 311.5,-192 311.5,-168 365.5,-168 365.5,-192"/>
-<text text-anchor="middle" x="338.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
+<!-- proc~solve_wbs -->
+<g id="module~~graph~~ModuleGraph_node72" class="node">
+<title>proc~solve_wbs</title>
+<g id="a_module~~graph~~ModuleGraph_node72"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="369.5,-192 307.5,-192 307.5,-168 369.5,-168 369.5,-192"/>
+<text text-anchor="middle" x="338.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- proc~ge_wpp&#45;&gt;ieee_exceptions -->
-<g id="module~~graph~~ModuleGraph_edge133" class="edge">
-<title>proc~ge_wpp&#45;&gt;ieee_exceptions</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.27,-174.24C296.06,-170.57 276.69,-165.32 260,-159 241.34,-151.94 221.29,-142.15 205.36,-133.8"/>
+<!-- proc~solve_wbs&#45;&gt;ieee_exceptions -->
+<g id="module~~graph~~ModuleGraph_edge138" class="edge">
+<title>proc~solve_wbs&#45;&gt;ieee_exceptions</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.26,-173.26C292.75,-169.66 275.25,-164.77 260,-159 241.34,-151.94 221.29,-142.15 205.36,-133.8"/>
 <polygon fill="#000000" stroke="#000000" points="206.96,-130.69 196.49,-129.08 203.68,-136.87 206.96,-130.69"/>
 </g>
-<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge134" class="edge">
-<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.35,-179.7C293.96,-181.02 272.16,-185.91 260,-201 210.43,-262.5 258.81,-840.1 224,-911 219.5,-920.16 212.01,-928.12 204.21,-934.57"/>
-<polygon fill="#000000" stroke="#000000" points="201.62,-932.14 195.76,-940.96 205.85,-937.72 201.62,-932.14"/>
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<g id="module~~graph~~ModuleGraph_edge139" class="edge">
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.14,-180.07C290.56,-181.85 271.19,-187.1 260,-201 209.01,-264.35 252.28,-855.75 224,-932 217.89,-948.47 205.82,-964.07 195.19,-975.63"/>
+<polygon fill="#000000" stroke="#000000" points="192.56,-973.32 188.15,-982.95 197.6,-978.17 192.56,-973.32"/>
 </g>
 <!-- proc~util_solve_linear_system_q -->
-<g id="module~~graph~~ModuleGraph_node70" class="node">
+<g id="module~~graph~~ModuleGraph_node73" class="node">
 <title>proc~util_solve_linear_system_q</title>
-<g id="a_module~~graph~~ModuleGraph_node70"><a xlink:href=".././proc/util_solve_linear_system_q.html" xlink:title="util_solve_linear_system_q">
+<g id="a_module~~graph~~ModuleGraph_node73"><a xlink:href=".././proc/util_solve_linear_system_q.html" xlink:title="util_solve_linear_system_q">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="409,-24 268,-24 268,0 409,0 409,-24"/>
 <text text-anchor="middle" x="338.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system_q</text>
 </a>
 </g>
 </g>
 <!-- proc~util_solve_linear_system_q&#45;&gt;ieee_exceptions -->
-<g id="module~~graph~~ModuleGraph_edge135" class="edge">
+<g id="module~~graph~~ModuleGraph_edge140" class="edge">
 <title>proc~util_solve_linear_system_q&#45;&gt;ieee_exceptions</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.86,-24.01C272.95,-26.49 266.16,-29.45 260,-33 231.62,-49.33 205.92,-77.45 190.39,-96.62"/>
 <polygon fill="#000000" stroke="#000000" points="187.44,-94.7 184,-104.72 192.94,-99.04 187.44,-94.7"/>
 </g>
-<!-- proc~solve_wbs -->
-<g id="module~~graph~~ModuleGraph_node71" class="node">
-<title>proc~solve_wbs</title>
-<g id="a_module~~graph~~ModuleGraph_node71"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="369.5,-234 307.5,-234 307.5,-210 369.5,-210 369.5,-234"/>
-<text text-anchor="middle" x="338.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
-</a>
-</g>
-</g>
-<!-- proc~solve_wbs&#45;&gt;ieee_exceptions -->
-<g id="module~~graph~~ModuleGraph_edge136" class="edge">
-<title>proc~solve_wbs&#45;&gt;ieee_exceptions</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.4,-217.58C292.43,-214.48 274.5,-209.34 260,-201 231.62,-184.67 205.92,-156.55 190.39,-137.38"/>
-<polygon fill="#000000" stroke="#000000" points="192.94,-134.96 184,-129.28 187.44,-139.3 192.94,-134.96"/>
-</g>
-<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
-<g id="module~~graph~~ModuleGraph_edge137" class="edge">
-<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.79,-234.07C293.88,-243.96 271.27,-259.8 260,-281 194.18,-404.82 286.21,-785.32 224,-911 219.47,-920.14 211.97,-928.1 204.17,-934.55"/>
-<polygon fill="#000000" stroke="#000000" points="201.59,-932.12 195.73,-940.95 205.82,-937.7 201.59,-932.12"/>
-</g>
-<!-- proc~fragmentation_initialize -->
-<g id="module~~graph~~ModuleGraph_node72" class="node">
-<title>proc~fragmentation_initialize</title>
-<g id="a_module~~graph~~ModuleGraph_node72"><a xlink:href=".././proc/fragmentation_initialize.html" xlink:title="fragmentation_initialize">
-<polygon fill="#d9534f" stroke="#d9534f" points="399.5,-150 277.5,-150 277.5,-126 399.5,-126 399.5,-150"/>
-<text text-anchor="middle" x="338.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
-</a>
-</g>
-</g>
-<!-- proc~fragmentation_initialize&#45;&gt;ieee_exceptions -->
-<g id="module~~graph~~ModuleGraph_edge138" class="edge">
-<title>proc~fragmentation_initialize&#45;&gt;ieee_exceptions</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M277.45,-130.24C261.58,-128.19 244.55,-125.99 229.02,-123.98"/>
-<polygon fill="#000000" stroke="#000000" points="229.42,-120.5 219.06,-122.69 228.53,-127.45 229.42,-120.5"/>
-</g>
 </g>
 </svg>
 </div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
diff --git a/docs/lists/procedures.html b/docs/lists/procedures.html
index 0c65261a8..d2b442076 100644
--- a/docs/lists/procedures.html
+++ b/docs/lists/procedures.html
@@ -478,26 +478,26 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/symba_fragmentation_casesupercatastrophic.html'>symba_fragmentation_casesupercatastrophic</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
 			 
-			   <tr><td><a href='../interface/symba_io_dump_particle_info.html'>symba_io_dump_particle_info</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
+			   <tr><td><a href='../proc/symba_fragmentation_mergeaddsub.html'>symba_fragmentation_mergeaddsub</a></td><td><a href='../module/s_symba_fragmentation.html'>s_symba_fragmentation</a></td><td>Subroutine</td><td><p>Fills the pl_discards and pl_adds with removed and added bodies</p></td></tr>
 			 
-			   <tr><td><a href='../interface/symba_io_initialize_particle_info.html'>symba_io_initialize_particle_info</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
+			   <tr><td><a href='../interface/symba_io_dump_particle_info.html'>symba_io_dump_particle_info</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/symba_io_param_reader.html'>symba_io_param_reader</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/symba_io_param_writer.html'>symba_io_param_writer</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
 			 
-			   <tr><td><a href='../interface/symba_io_read_frame_info.html'>symba_io_read_frame_info</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
+			   <tr><td><a href='../interface/symba_io_read_particle.html'>symba_io_read_particle</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/symba_io_write_discard.html'>symba_io_write_discard</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
 			 
-			   <tr><td><a href='../interface/symba_io_write_frame_info.html'>symba_io_write_frame_info</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
-			 
 			   <tr><td><a href='../interface/symba_kick_getacch_pl.html'>symba_kick_getacch_pl</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/symba_kick_getacch_tp.html'>symba_kick_getacch_tp</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/symba_kick_pltpenc.html'>symba_kick_pltpenc</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
 			 
+			   <tr><td><a href='../interface/symba_setup_initialize_particle_info.html'>symba_setup_initialize_particle_info</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
+			 
 			   <tr><td><a href='../interface/symba_setup_initialize_system.html'>symba_setup_initialize_system</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/symba_setup_merger.html'>symba_setup_merger</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
@@ -603,6 +603,8 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/util_peri_tp.html'>util_peri_tp</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
+			   <tr><td><a href='../interface/util_rescale_system.html'>util_rescale_system</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			 
 			   <tr><td><a href='../interface/util_resize.html'>util_resize</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/util_resize~2.html'>util_resize</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
@@ -659,7 +661,7 @@ <h1>Procedures</h1>
 			 
 			   <tr><td><a href='../interface/util_spill_tp.html'>util_spill_tp</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
-			   <tr><td><a href='../interface/util_valid.html'>util_valid</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
+			   <tr><td><a href='../interface/util_valid_id_system.html'>util_valid_id_system</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
 			   <tr><td><a href='../interface/util_version.html'>util_version</a></td><td><a href='../module/swiftest_classes.html'>swiftest_classes</a></td><td>Interface</td><td></td></tr>
 			 
@@ -726,8578 +728,8545 @@ <h1>Procedures</h1>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: call~~graph~~CallGraph Pages: 1 -->
-<svg id="callgraphCallGraph" width="855pt" height="6010pt"
- viewBox="0.00 0.00 855.00 6010.08" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="call~~graph~~CallGraph" class="graph" transform="scale(0.53 0.53) rotate(0) translate(4 11257)">
+<svg id="callgraphCallGraph" width="855pt" height="4602pt"
+ viewBox="0.00 0.00 855.00 4601.89" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="call~~graph~~CallGraph" class="graph" transform="scale(0.4 0.4) rotate(0) translate(4 11385)">
 <title>call~~graph~~CallGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-11257 1598,-11257 1598,4 -4,4"/>
-<!-- proc~drift_kepu_lag -->
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-11385 2112,-11385 2112,4 -4,4"/>
+<!-- proc~ge_wpp -->
 <g id="call~~graph~~CallGraph_node1" class="node">
-<title>proc~drift_kepu_lag</title>
-<g id="a_call~~graph~~CallGraph_node1"><a xlink:href=".././proc/drift_kepu_lag.html" xlink:title="drift_kepu_lag">
-<polygon fill="#d9534f" stroke="#d9534f" points="1096.5,-436 1016.5,-436 1016.5,-412 1096.5,-412 1096.5,-436"/>
-<text text-anchor="middle" x="1056.5" y="-421.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_lag</text>
+<title>proc~ge_wpp</title>
+<g id="a_call~~graph~~CallGraph_node1"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="354,-66 300,-66 300,-42 354,-42 354,-66"/>
+<text text-anchor="middle" x="327" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu_stumpff -->
-<g id="call~~graph~~CallGraph_node139" class="node">
-<title>proc~drift_kepu_stumpff</title>
-<g id="a_call~~graph~~CallGraph_node139"><a xlink:href=".././proc/drift_kepu_stumpff.html" xlink:title="drift_kepu_stumpff">
-<polygon fill="#d9534f" stroke="#d9534f" points="1372,-394 1271,-394 1271,-370 1372,-370 1372,-394"/>
-<text text-anchor="middle" x="1321.5" y="-379.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_stumpff</text>
+<!-- interface~gr_vel2pseudovel -->
+<g id="call~~graph~~CallGraph_node2" class="node">
+<title>interface~gr_vel2pseudovel</title>
+<g id="a_call~~graph~~CallGraph_node2"><a xlink:href=".././interface/gr_vel2pseudovel.html" xlink:title="gr_vel2pseudovel">
+<polygon fill="#a7506f" stroke="#a7506f" points="145.5,-108 48.5,-108 48.5,-84 145.5,-84 145.5,-108"/>
+<text text-anchor="middle" x="97" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_vel2pseudovel</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu_lag&#45;&gt;proc~drift_kepu_stumpff -->
-<g id="call~~graph~~CallGraph_edge1" class="edge">
-<title>proc~drift_kepu_lag&#45;&gt;proc~drift_kepu_stumpff</title>
-<path fill="none" stroke="#000000" d="M1096.59,-417.76C1139.96,-410.83 1210.46,-399.57 1260.76,-391.54"/>
-<polygon fill="#000000" stroke="#000000" points="1261.53,-394.96 1270.86,-389.93 1260.43,-388.05 1261.53,-394.96"/>
-</g>
-<!-- proc~symba_encounter_check_pl -->
-<g id="call~~graph~~CallGraph_node2" class="node">
-<title>proc~symba_encounter_check_pl</title>
-<g id="a_call~~graph~~CallGraph_node2"><a xlink:href=".././proc/symba_encounter_check_pl.html" xlink:title="symba_encounter_check_pl">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="400,-178 254,-178 254,-154 400,-154 400,-178"/>
-<text text-anchor="middle" x="327" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_pl</text>
+<!-- proc~gr_vel2pseudovel -->
+<g id="call~~graph~~CallGraph_node403" class="node">
+<title>proc~gr_vel2pseudovel</title>
+<g id="a_call~~graph~~CallGraph_node403"><a xlink:href=".././proc/gr_vel2pseudovel.html" xlink:title="gr_vel2pseudovel">
+<polygon fill="#d9534f" stroke="#d9534f" points="375.5,-108 278.5,-108 278.5,-84 375.5,-84 375.5,-108"/>
+<text text-anchor="middle" x="327" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_vel2pseudovel</text>
 </a>
 </g>
 </g>
-<!-- proc~gr_vel2pseudovel -->
+<!-- interface~gr_vel2pseudovel&#45;&gt;proc~gr_vel2pseudovel -->
+<g id="call~~graph~~CallGraph_edge1" class="edge">
+<title>interface~gr_vel2pseudovel&#45;&gt;proc~gr_vel2pseudovel</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.52,-96C181.07,-96 229.87,-96 267.77,-96"/>
+<polygon fill="#000000" stroke="#000000" points="268.15,-99.5 278.15,-96 268.15,-92.5 268.15,-99.5"/>
+</g>
+<!-- interface~gr_vh2pv_body -->
 <g id="call~~graph~~CallGraph_node3" class="node">
-<title>proc~gr_vel2pseudovel</title>
-<g id="a_call~~graph~~CallGraph_node3"><a xlink:href=".././proc/gr_vel2pseudovel.html" xlink:title="gr_vel2pseudovel">
-<polygon fill="#d9534f" stroke="#d9534f" points="375.5,-280 278.5,-280 278.5,-256 375.5,-256 375.5,-280"/>
-<text text-anchor="middle" x="327" y="-265.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_vel2pseudovel</text>
+<title>interface~gr_vh2pv_body</title>
+<g id="a_call~~graph~~CallGraph_node3"><a xlink:href=".././interface/gr_vh2pv_body.html" xlink:title="gr_vh2pv_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="140,-150 54,-150 54,-126 140,-126 140,-150"/>
+<text text-anchor="middle" x="97" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_vh2pv_body</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_check_pltpenc -->
-<g id="call~~graph~~CallGraph_node4" class="node">
-<title>proc~symba_collision_check_pltpenc</title>
-<g id="a_call~~graph~~CallGraph_node4"><a xlink:href=".././proc/symba_collision_check_pltpenc.html" xlink:title="symba_collision_check_pltpenc">
-<polygon fill="#d9534f" stroke="#d9534f" points="408,-478 246,-478 246,-454 408,-454 408,-478"/>
-<text text-anchor="middle" x="327" y="-463.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_pltpenc</text>
+<!-- proc~gr_vh2pv_body -->
+<g id="call~~graph~~CallGraph_node358" class="node">
+<title>proc~gr_vh2pv_body</title>
+<g id="a_call~~graph~~CallGraph_node358"><a xlink:href=".././proc/gr_vh2pv_body.html" xlink:title="gr_vh2pv_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="370,-150 284,-150 284,-126 370,-126 370,-150"/>
+<text text-anchor="middle" x="327" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_vh2pv_body</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_check_one -->
-<g id="call~~graph~~CallGraph_node8" class="node">
-<title>proc~symba_collision_check_one</title>
-<g id="a_call~~graph~~CallGraph_node8"><a xlink:href=".././proc/symba_collision_check_one.html" xlink:title="symba_collision_check_one">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="635,-478 490,-478 490,-454 635,-454 635,-478"/>
-<text text-anchor="middle" x="562.5" y="-463.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_one</text>
+<!-- interface~gr_vh2pv_body&#45;&gt;proc~gr_vh2pv_body -->
+<g id="call~~graph~~CallGraph_edge2" class="edge">
+<title>interface~gr_vh2pv_body&#45;&gt;proc~gr_vh2pv_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.08,-138C177.73,-138 233.05,-138 273.55,-138"/>
+<polygon fill="#000000" stroke="#000000" points="273.78,-141.5 283.78,-138 273.78,-134.5 273.78,-141.5"/>
+</g>
+<!-- proc~util_solve_rkf45 -->
+<g id="call~~graph~~CallGraph_node4" class="node">
+<title>proc~util_solve_rkf45</title>
+<g id="a_call~~graph~~CallGraph_node4"><a xlink:href=".././proc/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="599.5,-570 512.5,-570 512.5,-546 599.5,-546 599.5,-570"/>
+<text text-anchor="middle" x="556" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_rkf45</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_check_pltpenc&#45;&gt;proc~symba_collision_check_one -->
-<g id="call~~graph~~CallGraph_edge4" class="edge">
-<title>proc~symba_collision_check_pltpenc&#45;&gt;proc~symba_collision_check_one</title>
-<path fill="none" stroke="#000000" d="M408.03,-466C431.15,-466 456.4,-466 479.62,-466"/>
-<polygon fill="#000000" stroke="#000000" points="479.79,-469.5 489.79,-466 479.79,-462.5 479.79,-469.5"/>
+<!-- interface~util_exit -->
+<g id="call~~graph~~CallGraph_node59" class="node">
+<title>interface~util_exit</title>
+<g id="a_call~~graph~~CallGraph_node59"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="807,-591 753,-591 753,-567 807,-567 807,-591"/>
+<text text-anchor="middle" x="780" y="-576.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</a>
 </g>
-<!-- ind1 -->
-<g id="call~~graph~~CallGraph_node573" class="node">
-<title>ind1</title>
-<polygon fill="#777777" stroke="#777777" points="589.5,-436 535.5,-436 535.5,-412 589.5,-412 589.5,-436"/>
-<text text-anchor="middle" x="562.5" y="-421.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind1</text>
 </g>
-<!-- proc~symba_collision_check_pltpenc&#45;&gt;ind1 -->
+<!-- proc~util_solve_rkf45&#45;&gt;interface~util_exit -->
 <g id="call~~graph~~CallGraph_edge3" class="edge">
-<title>proc~symba_collision_check_pltpenc&#45;&gt;ind1</title>
-<path fill="none" stroke="#000000" d="M394.91,-453.96C437.29,-446.34 490.45,-436.78 525.17,-430.53"/>
-<polygon fill="#000000" stroke="#000000" points="526.1,-433.92 535.32,-428.71 524.86,-427.04 526.1,-433.92"/>
+<title>proc~util_solve_rkf45&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M599.54,-562.02C641.06,-565.95 703.54,-571.86 742.76,-575.57"/>
+<polygon fill="#000000" stroke="#000000" points="742.64,-579.08 752.93,-576.53 743.3,-572.11 742.64,-579.08"/>
 </g>
-<!-- ind2 -->
-<g id="call~~graph~~CallGraph_node595" class="node">
-<title>ind2</title>
-<polygon fill="#777777" stroke="#777777" points="589.5,-394 535.5,-394 535.5,-370 589.5,-370 589.5,-394"/>
-<text text-anchor="middle" x="562.5" y="-379.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind2</text>
+<!-- interface~io_conservation_report -->
+<g id="call~~graph~~CallGraph_node5" class="node">
+<title>interface~io_conservation_report</title>
+<g id="a_call~~graph~~CallGraph_node5"><a xlink:href=".././interface/io_conservation_report.html" xlink:title="io_conservation_report">
+<polygon fill="#a7506f" stroke="#a7506f" points="158,-1049 36,-1049 36,-1025 158,-1025 158,-1049"/>
+<text text-anchor="middle" x="97" y="-1034.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_conservation_report</text>
+</a>
 </g>
-<!-- proc~symba_collision_check_pltpenc&#45;&gt;ind2 -->
-<g id="call~~graph~~CallGraph_edge2" class="edge">
-<title>proc~symba_collision_check_pltpenc&#45;&gt;ind2</title>
-<path fill="none" stroke="#000000" d="M405.19,-453.86C411.77,-451.42 418.14,-448.5 424,-445 445.1,-432.39 438.83,-415.49 460,-403 479.66,-391.4 504.77,-386.14 525.09,-383.78"/>
-<polygon fill="#000000" stroke="#000000" points="525.61,-387.25 535.23,-382.8 524.94,-380.28 525.61,-387.25"/>
 </g>
-<!-- proc~symba_io_dump_particle_info -->
-<g id="call~~graph~~CallGraph_node5" class="node">
-<title>proc~symba_io_dump_particle_info</title>
-<g id="a_call~~graph~~CallGraph_node5"><a xlink:href=".././proc/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
-<polygon fill="#d9534f" stroke="#d9534f" points="404.5,-562 249.5,-562 249.5,-538 404.5,-538 404.5,-562"/>
-<text text-anchor="middle" x="327" y="-547.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
+<!-- proc~io_conservation_report -->
+<g id="call~~graph~~CallGraph_node463" class="node">
+<title>proc~io_conservation_report</title>
+<g id="a_call~~graph~~CallGraph_node463"><a xlink:href=".././proc/io_conservation_report.html" xlink:title="io_conservation_report">
+<polygon fill="#d9534f" stroke="#d9534f" points="388,-1049 266,-1049 266,-1025 388,-1025 388,-1049"/>
+<text text-anchor="middle" x="327" y="-1034.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_conservation_report</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_discard_cb_pl -->
+<!-- interface~io_conservation_report&#45;&gt;proc~io_conservation_report -->
+<g id="call~~graph~~CallGraph_edge4" class="edge">
+<title>interface~io_conservation_report&#45;&gt;proc~io_conservation_report</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M158.2,-1037C188.07,-1037 224.34,-1037 255.5,-1037"/>
+<polygon fill="#000000" stroke="#000000" points="255.86,-1040.5 265.86,-1037 255.86,-1033.5 255.86,-1040.5"/>
+</g>
+<!-- interface~io_dump_param -->
 <g id="call~~graph~~CallGraph_node6" class="node">
-<title>proc~symba_discard_cb_pl</title>
-<g id="a_call~~graph~~CallGraph_node6"><a xlink:href=".././proc/symba_discard_cb_pl.html" xlink:title="symba_discard_cb_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="861.5,-625 745.5,-625 745.5,-601 861.5,-601 861.5,-625"/>
-<text text-anchor="middle" x="803.5" y="-610.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_cb_pl</text>
+<title>interface~io_dump_param</title>
+<g id="a_call~~graph~~CallGraph_node6"><a xlink:href=".././interface/io_dump_param.html" xlink:title="io_dump_param">
+<polygon fill="#a7506f" stroke="#a7506f" points="372.5,-402 281.5,-402 281.5,-378 372.5,-378 372.5,-402"/>
+<text text-anchor="middle" x="327" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_param</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_consolidate_familes -->
-<g id="call~~graph~~CallGraph_node7" class="node">
-<title>proc~symba_collision_consolidate_familes</title>
-<g id="a_call~~graph~~CallGraph_node7"><a xlink:href=".././proc/symba_collision_consolidate_familes.html" xlink:title="symba_collision_consolidate_familes">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="1150,-1957 963,-1957 963,-1933 1150,-1933 1150,-1957"/>
-<text text-anchor="middle" x="1056.5" y="-1942.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_consolidate_familes</text>
+<!-- proc~io_dump_param -->
+<g id="call~~graph~~CallGraph_node465" class="node">
+<title>proc~io_dump_param</title>
+<g id="a_call~~graph~~CallGraph_node465"><a xlink:href=".././proc/io_dump_param.html" xlink:title="io_dump_param">
+<polygon fill="#d9534f" stroke="#d9534f" points="601.5,-402 510.5,-402 510.5,-378 601.5,-378 601.5,-402"/>
+<text text-anchor="middle" x="556" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_param</text>
 </a>
 </g>
 </g>
-<!-- idx_arr -->
-<g id="call~~graph~~CallGraph_node579" class="node">
-<title>idx_arr</title>
-<polygon fill="#777777" stroke="#777777" points="1348.5,-1999 1294.5,-1999 1294.5,-1975 1348.5,-1975 1348.5,-1999"/>
-<text text-anchor="middle" x="1321.5" y="-1984.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx_arr</text>
-</g>
-<!-- proc~symba_collision_consolidate_familes&#45;&gt;idx_arr -->
+<!-- interface~io_dump_param&#45;&gt;proc~io_dump_param -->
 <g id="call~~graph~~CallGraph_edge5" class="edge">
-<title>proc~symba_collision_consolidate_familes&#45;&gt;idx_arr</title>
-<path fill="none" stroke="#000000" d="M1132.87,-1957.04C1182.4,-1964.95 1245.01,-1974.94 1283.91,-1981.16"/>
-<polygon fill="#000000" stroke="#000000" points="1283.79,-1984.68 1294.22,-1982.8 1284.9,-1977.77 1283.79,-1984.68"/>
+<title>interface~io_dump_param&#45;&gt;proc~io_dump_param</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.58,-390C409.08,-390 460.9,-390 499.98,-390"/>
+<polygon fill="#000000" stroke="#000000" points="500.14,-393.5 510.14,-390 500.14,-386.5 500.14,-393.5"/>
 </g>
-<!-- id_arr -->
-<g id="call~~graph~~CallGraph_node590" class="node">
-<title>id_arr</title>
-<polygon fill="#777777" stroke="#777777" points="1348.5,-1957 1294.5,-1957 1294.5,-1933 1348.5,-1933 1348.5,-1957"/>
-<text text-anchor="middle" x="1321.5" y="-1942.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">id_arr</text>
+<!-- interface~io_dump_swiftest -->
+<g id="call~~graph~~CallGraph_node7" class="node">
+<title>interface~io_dump_swiftest</title>
+<g id="a_call~~graph~~CallGraph_node7"><a xlink:href=".././interface/io_dump_swiftest.html" xlink:title="io_dump_swiftest">
+<polygon fill="#a7506f" stroke="#a7506f" points="374.5,-360 279.5,-360 279.5,-336 374.5,-336 374.5,-360"/>
+<text text-anchor="middle" x="327" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_swiftest</text>
+</a>
 </g>
-<!-- proc~symba_collision_consolidate_familes&#45;&gt;id_arr -->
+</g>
+<!-- proc~io_dump_swiftest -->
+<g id="call~~graph~~CallGraph_node492" class="node">
+<title>proc~io_dump_swiftest</title>
+<g id="a_call~~graph~~CallGraph_node492"><a xlink:href=".././proc/io_dump_swiftest.html" xlink:title="io_dump_swiftest">
+<polygon fill="#d9534f" stroke="#d9534f" points="603.5,-360 508.5,-360 508.5,-336 603.5,-336 603.5,-360"/>
+<text text-anchor="middle" x="556" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_swiftest</text>
+</a>
+</g>
+</g>
+<!-- interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest -->
 <g id="call~~graph~~CallGraph_edge6" class="edge">
-<title>proc~symba_collision_consolidate_familes&#45;&gt;id_arr</title>
-<path fill="none" stroke="#000000" d="M1150.22,-1945C1196.46,-1945 1249.73,-1945 1284.19,-1945"/>
-<polygon fill="#000000" stroke="#000000" points="1284.26,-1948.5 1294.26,-1945 1284.26,-1941.5 1284.26,-1948.5"/>
+<title>interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.76,-348C410.47,-348 459.85,-348 497.89,-348"/>
+<polygon fill="#000000" stroke="#000000" points="498.3,-351.5 508.3,-348 498.3,-344.5 498.3,-351.5"/>
 </g>
-<!-- orbel_xv2aeq -->
-<g id="call~~graph~~CallGraph_node556" class="node">
-<title>orbel_xv2aeq</title>
-<polygon fill="#777777" stroke="#777777" points="842,-499 765,-499 765,-475 842,-475 842,-499"/>
-<text text-anchor="middle" x="803.5" y="-484.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aeq</text>
+<!-- interface~io_dump_system -->
+<g id="call~~graph~~CallGraph_node8" class="node">
+<title>interface~io_dump_system</title>
+<g id="a_call~~graph~~CallGraph_node8"><a xlink:href=".././interface/io_dump_system.html" xlink:title="io_dump_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="144,-1230 50,-1230 50,-1206 144,-1206 144,-1230"/>
+<text text-anchor="middle" x="97" y="-1215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_system</text>
+</a>
 </g>
-<!-- proc~symba_collision_check_one&#45;&gt;orbel_xv2aeq -->
+</g>
+<!-- proc~io_dump_system -->
+<g id="call~~graph~~CallGraph_node488" class="node">
+<title>proc~io_dump_system</title>
+<g id="a_call~~graph~~CallGraph_node488"><a xlink:href=".././proc/io_dump_system.html" xlink:title="io_dump_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="374,-1230 280,-1230 280,-1206 374,-1206 374,-1230"/>
+<text text-anchor="middle" x="327" y="-1215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_system</text>
+</a>
+</g>
+</g>
+<!-- interface~io_dump_system&#45;&gt;proc~io_dump_system -->
 <g id="call~~graph~~CallGraph_edge7" class="edge">
-<title>proc~symba_collision_check_one&#45;&gt;orbel_xv2aeq</title>
-<path fill="none" stroke="#000000" d="M635.21,-472.3C673.84,-475.69 720.44,-479.79 754.64,-482.79"/>
-<polygon fill="#000000" stroke="#000000" points="754.56,-486.3 764.83,-483.69 755.18,-479.33 754.56,-486.3"/>
+<title>interface~io_dump_system&#45;&gt;proc~io_dump_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.14,-1218C180.45,-1218 231.21,-1218 269.87,-1218"/>
+<polygon fill="#000000" stroke="#000000" points="269.93,-1221.5 279.93,-1218 269.93,-1214.5 269.93,-1221.5"/>
 </g>
-<!-- proc~orbel_el2xv -->
+<!-- interface~io_param_reader -->
 <g id="call~~graph~~CallGraph_node9" class="node">
-<title>proc~orbel_el2xv</title>
-<g id="a_call~~graph~~CallGraph_node9"><a xlink:href=".././proc/orbel_el2xv.html" xlink:title="orbel_el2xv">
-<polygon fill="#d9534f" stroke="#d9534f" points="596,-106 529,-106 529,-82 596,-82 596,-106"/>
-<text text-anchor="middle" x="562.5" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv</text>
+<title>interface~io_param_reader</title>
+<g id="a_call~~graph~~CallGraph_node9"><a xlink:href=".././interface/io_param_reader.html" xlink:title="io_param_reader">
+<polygon fill="#a7506f" stroke="#a7506f" points="374.5,-234 279.5,-234 279.5,-210 374.5,-210 374.5,-234"/>
+<text text-anchor="middle" x="327" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_schget -->
-<g id="call~~graph~~CallGraph_node79" class="node">
-<title>proc~orbel_schget</title>
-<g id="a_call~~graph~~CallGraph_node79"><a xlink:href=".././proc/orbel_schget.html" xlink:title="orbel_schget">
-<polygon fill="#d9534f" stroke="#d9534f" points="1358.5,-86 1284.5,-86 1284.5,-62 1358.5,-62 1358.5,-86"/>
-<text text-anchor="middle" x="1321.5" y="-71.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_schget</text>
+<!-- proc~io_param_reader -->
+<g id="call~~graph~~CallGraph_node352" class="node">
+<title>proc~io_param_reader</title>
+<g id="a_call~~graph~~CallGraph_node352"><a xlink:href=".././proc/io_param_reader.html" xlink:title="io_param_reader">
+<polygon fill="#d9534f" stroke="#d9534f" points="603.5,-234 508.5,-234 508.5,-210 603.5,-210 603.5,-234"/>
+<text text-anchor="middle" x="556" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_schget -->
-<g id="call~~graph~~CallGraph_edge10" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;proc~orbel_schget</title>
-<path fill="none" stroke="#000000" d="M596.03,-93.14C715.99,-89.97 1133.9,-78.93 1274.18,-75.22"/>
-<polygon fill="#000000" stroke="#000000" points="1274.28,-78.72 1284.18,-74.96 1274.09,-71.73 1274.28,-78.72"/>
+<!-- interface~io_param_reader&#45;&gt;proc~io_param_reader -->
+<g id="call~~graph~~CallGraph_edge8" class="edge">
+<title>interface~io_param_reader&#45;&gt;proc~io_param_reader</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.76,-222C410.47,-222 459.85,-222 497.89,-222"/>
+<polygon fill="#000000" stroke="#000000" points="498.3,-225.5 508.3,-222 498.3,-218.5 498.3,-225.5"/>
 </g>
-<!-- interface~orbel_scget -->
-<g id="call~~graph~~CallGraph_node271" class="node">
-<title>interface~orbel_scget</title>
-<g id="a_call~~graph~~CallGraph_node271"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
-<polygon fill="#a7506f" stroke="#a7506f" points="1355.5,-230 1287.5,-230 1287.5,-206 1355.5,-206 1355.5,-230"/>
-<text text-anchor="middle" x="1321.5" y="-215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
+<!-- interface~io_param_writer -->
+<g id="call~~graph~~CallGraph_node10" class="node">
+<title>interface~io_param_writer</title>
+<g id="a_call~~graph~~CallGraph_node10"><a xlink:href=".././interface/io_param_writer.html" xlink:title="io_param_writer">
+<polygon fill="#a7506f" stroke="#a7506f" points="142,-1282 52,-1282 52,-1258 142,-1258 142,-1282"/>
+<text text-anchor="middle" x="97" y="-1267.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_writer</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
-<g id="call~~graph~~CallGraph_edge11" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M580.46,-106.28C605.62,-123.98 654.86,-156.67 701,-176 895.39,-257.43 960.76,-253.69 1171,-239 1207.02,-236.48 1247.56,-230.59 1277.33,-225.69"/>
-<polygon fill="#000000" stroke="#000000" points="1278.1,-229.11 1287.39,-224 1276.95,-222.21 1278.1,-229.11"/>
-</g>
-<!-- proc~orbel_zget -->
-<g id="call~~graph~~CallGraph_node408" class="node">
-<title>proc~orbel_zget</title>
-<g id="a_call~~graph~~CallGraph_node408"><a xlink:href=".././proc/orbel_zget.html" xlink:title="orbel_zget">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="835,-24 772,-24 772,0 835,0 835,-24"/>
-<text text-anchor="middle" x="803.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_zget</text>
+<!-- proc~io_param_writer -->
+<g id="call~~graph~~CallGraph_node353" class="node">
+<title>proc~io_param_writer</title>
+<g id="a_call~~graph~~CallGraph_node353"><a xlink:href=".././proc/io_param_writer.html" xlink:title="io_param_writer">
+<polygon fill="#d9534f" stroke="#d9534f" points="372,-1282 282,-1282 282,-1258 372,-1258 372,-1282"/>
+<text text-anchor="middle" x="327" y="-1267.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_writer</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_zget -->
+<!-- interface~io_param_writer&#45;&gt;proc~io_param_writer -->
 <g id="call~~graph~~CallGraph_edge9" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;proc~orbel_zget</title>
-<path fill="none" stroke="#000000" d="M586.75,-81.84C613.62,-68.23 659.48,-46.34 701,-33 720.66,-26.69 743.09,-21.81 761.85,-18.36"/>
-<polygon fill="#000000" stroke="#000000" points="762.63,-21.78 771.86,-16.58 761.4,-14.88 762.63,-21.78"/>
+<title>interface~io_param_writer&#45;&gt;proc~io_param_writer</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.23,-1270C179.28,-1270 232.3,-1270 271.88,-1270"/>
+<polygon fill="#000000" stroke="#000000" points="271.89,-1273.5 281.89,-1270 271.89,-1266.5 271.89,-1273.5"/>
 </g>
-<!-- proc~orbel_ehybrid -->
-<g id="call~~graph~~CallGraph_node513" class="node">
-<title>proc~orbel_ehybrid</title>
-<g id="a_call~~graph~~CallGraph_node513"><a xlink:href=".././proc/orbel_ehybrid.html" xlink:title="orbel_ehybrid">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="842.5,-167 764.5,-167 764.5,-143 842.5,-143 842.5,-167"/>
-<text text-anchor="middle" x="803.5" y="-152.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehybrid</text>
+<!-- interface~io_read_body_in -->
+<g id="call~~graph~~CallGraph_node11" class="node">
+<title>interface~io_read_body_in</title>
+<g id="a_call~~graph~~CallGraph_node11"><a xlink:href=".././interface/io_read_body_in.html" xlink:title="io_read_body_in">
+<polygon fill="#a7506f" stroke="#a7506f" points="373,-486 281,-486 281,-462 373,-462 373,-486"/>
+<text text-anchor="middle" x="327" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_body_in</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid -->
-<g id="call~~graph~~CallGraph_edge12" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid</title>
-<path fill="none" stroke="#000000" d="M596.23,-102.35C637.08,-112.78 707.29,-130.7 754.3,-142.7"/>
-<polygon fill="#000000" stroke="#000000" points="753.69,-146.16 764.25,-145.24 755.42,-139.37 753.69,-146.16"/>
-</g>
-<!-- proc~orbel_fhybrid -->
-<g id="call~~graph~~CallGraph_node541" class="node">
-<title>proc~orbel_fhybrid</title>
-<g id="a_call~~graph~~CallGraph_node541"><a xlink:href=".././proc/orbel_fhybrid.html" xlink:title="orbel_fhybrid">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="841,-66 766,-66 766,-42 841,-42 841,-66"/>
-<text text-anchor="middle" x="803.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fhybrid</text>
+<!-- proc~io_read_body_in -->
+<g id="call~~graph~~CallGraph_node391" class="node">
+<title>proc~io_read_body_in</title>
+<g id="a_call~~graph~~CallGraph_node391"><a xlink:href=".././proc/io_read_body_in.html" xlink:title="io_read_body_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="602,-486 510,-486 510,-462 602,-462 602,-486"/>
+<text text-anchor="middle" x="556" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_body_in</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid -->
-<g id="call~~graph~~CallGraph_edge8" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid</title>
-<path fill="none" stroke="#000000" d="M596.23,-88.52C637.56,-81.61 708.93,-69.66 755.93,-61.79"/>
-<polygon fill="#000000" stroke="#000000" points="756.58,-65.23 765.86,-60.13 755.42,-58.33 756.58,-65.23"/>
+<!-- interface~io_read_body_in&#45;&gt;proc~io_read_body_in -->
+<g id="call~~graph~~CallGraph_edge10" class="edge">
+<title>interface~io_read_body_in&#45;&gt;proc~io_read_body_in</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.12,-474C409.56,-474 460.99,-474 499.86,-474"/>
+<polygon fill="#000000" stroke="#000000" points="499.97,-477.5 509.97,-474 499.97,-470.5 499.97,-477.5"/>
 </g>
-<!-- proc~symba_discard_nonplpl -->
-<g id="call~~graph~~CallGraph_node10" class="node">
-<title>proc~symba_discard_nonplpl</title>
-<g id="a_call~~graph~~CallGraph_node10"><a xlink:href=".././proc/symba_discard_nonplpl.html" xlink:title="symba_discard_nonplpl">
-<polygon fill="#d9534f" stroke="#d9534f" points="625,-625 500,-625 500,-601 625,-601 625,-625"/>
-<text text-anchor="middle" x="562.5" y="-610.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_nonplpl</text>
+<!-- interface~io_read_cb_in -->
+<g id="call~~graph~~CallGraph_node12" class="node">
+<title>interface~io_read_cb_in</title>
+<g id="a_call~~graph~~CallGraph_node12"><a xlink:href=".././interface/io_read_cb_in.html" xlink:title="io_read_cb_in">
+<polygon fill="#a7506f" stroke="#a7506f" points="367,-444 287,-444 287,-420 367,-420 367,-444"/>
+<text text-anchor="middle" x="327" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_cb_in</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_discard_nonplpl&#45;&gt;proc~symba_discard_cb_pl -->
-<g id="call~~graph~~CallGraph_edge13" class="edge">
-<title>proc~symba_discard_nonplpl&#45;&gt;proc~symba_discard_cb_pl</title>
-<path fill="none" stroke="#000000" d="M625.05,-613C658.78,-613 700.65,-613 735.25,-613"/>
-<polygon fill="#000000" stroke="#000000" points="735.26,-616.5 745.26,-613 735.26,-609.5 735.26,-616.5"/>
-</g>
-<!-- proc~gr_vh2pv_body -->
-<g id="call~~graph~~CallGraph_node11" class="node">
-<title>proc~gr_vh2pv_body</title>
-<g id="a_call~~graph~~CallGraph_node11"><a xlink:href=".././proc/gr_vh2pv_body.html" xlink:title="gr_vh2pv_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="370,-1857 284,-1857 284,-1833 370,-1833 370,-1857"/>
-<text text-anchor="middle" x="327" y="-1842.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_vh2pv_body</text>
+<!-- proc~io_read_cb_in -->
+<g id="call~~graph~~CallGraph_node407" class="node">
+<title>proc~io_read_cb_in</title>
+<g id="a_call~~graph~~CallGraph_node407"><a xlink:href=".././proc/io_read_cb_in.html" xlink:title="io_read_cb_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="596,-444 516,-444 516,-420 596,-420 596,-444"/>
+<text text-anchor="middle" x="556" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_cb_in</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_discard_conserve_mtm -->
-<g id="call~~graph~~CallGraph_node12" class="node">
-<title>proc~symba_discard_conserve_mtm</title>
-<g id="a_call~~graph~~CallGraph_node12"><a xlink:href=".././proc/symba_discard_conserve_mtm.html" xlink:title="symba_discard_conserve_mtm">
-<polygon fill="#d9534f" stroke="#d9534f" points="177.5,-1905 16.5,-1905 16.5,-1881 177.5,-1881 177.5,-1905"/>
-<text text-anchor="middle" x="97" y="-1890.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_conserve_mtm</text>
+<!-- interface~io_read_cb_in&#45;&gt;proc~io_read_cb_in -->
+<g id="call~~graph~~CallGraph_edge11" class="edge">
+<title>interface~io_read_cb_in&#45;&gt;proc~io_read_cb_in</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.02,-432C405.35,-432 463.97,-432 505.55,-432"/>
+<polygon fill="#000000" stroke="#000000" points="505.73,-435.5 515.73,-432 505.73,-428.5 505.73,-435.5"/>
+</g>
+<!-- interface~io_read_param_in -->
+<g id="call~~graph~~CallGraph_node13" class="node">
+<title>interface~io_read_param_in</title>
+<g id="a_call~~graph~~CallGraph_node13"><a xlink:href=".././interface/io_read_param_in.html" xlink:title="io_read_param_in">
+<polygon fill="#a7506f" stroke="#a7506f" points="377,-654 277,-654 277,-630 377,-630 377,-654"/>
+<text text-anchor="middle" x="327" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_param_in</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_discard_peri_pl -->
-<g id="call~~graph~~CallGraph_node13" class="node">
-<title>proc~symba_discard_peri_pl</title>
-<g id="a_call~~graph~~CallGraph_node13"><a xlink:href=".././proc/symba_discard_peri_pl.html" xlink:title="symba_discard_peri_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="158.5,-1989 35.5,-1989 35.5,-1965 158.5,-1965 158.5,-1989"/>
-<text text-anchor="middle" x="97" y="-1974.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_peri_pl</text>
+<!-- proc~io_read_param_in -->
+<g id="call~~graph~~CallGraph_node201" class="node">
+<title>proc~io_read_param_in</title>
+<g id="a_call~~graph~~CallGraph_node201"><a xlink:href=".././proc/io_read_param_in.html" xlink:title="io_read_param_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="606,-654 506,-654 506,-630 606,-630 606,-654"/>
+<text text-anchor="middle" x="556" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_param_in</text>
 </a>
 </g>
 </g>
-<!-- proc~discard_system -->
+<!-- interface~io_read_param_in&#45;&gt;proc~io_read_param_in -->
+<g id="call~~graph~~CallGraph_edge12" class="edge">
+<title>interface~io_read_param_in&#45;&gt;proc~io_read_param_in</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M377.26,-642C412.06,-642 458.88,-642 495.73,-642"/>
+<polygon fill="#000000" stroke="#000000" points="495.84,-645.5 505.84,-642 495.84,-638.5 495.84,-645.5"/>
+</g>
+<!-- interface~io_read_frame_body -->
 <g id="call~~graph~~CallGraph_node14" class="node">
-<title>proc~discard_system</title>
-<g id="a_call~~graph~~CallGraph_node14"><a xlink:href=".././proc/discard_system.html" xlink:title="discard_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="370.5,-2052 283.5,-2052 283.5,-2028 370.5,-2028 370.5,-2052"/>
-<text text-anchor="middle" x="327" y="-2037.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_system</text>
+<title>interface~io_read_frame_body</title>
+<g id="a_call~~graph~~CallGraph_node14"><a xlink:href=".././interface/io_read_frame_body.html" xlink:title="io_read_frame_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="383,-738 271,-738 271,-714 383,-714 383,-738"/>
+<text text-anchor="middle" x="327" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_body</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu_guess -->
+<!-- proc~io_read_frame_body -->
+<g id="call~~graph~~CallGraph_node182" class="node">
+<title>proc~io_read_frame_body</title>
+<g id="a_call~~graph~~CallGraph_node182"><a xlink:href=".././proc/io_read_frame_body.html" xlink:title="io_read_frame_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="612,-738 500,-738 500,-714 612,-714 612,-738"/>
+<text text-anchor="middle" x="556" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_body</text>
+</a>
+</g>
+</g>
+<!-- interface~io_read_frame_body&#45;&gt;proc~io_read_frame_body -->
+<g id="call~~graph~~CallGraph_edge13" class="edge">
+<title>interface~io_read_frame_body&#45;&gt;proc~io_read_frame_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M383.24,-726C415.35,-726 456,-726 489.69,-726"/>
+<polygon fill="#000000" stroke="#000000" points="489.91,-729.5 499.91,-726 489.91,-722.5 489.91,-729.5"/>
+</g>
+<!-- interface~io_read_frame_cb -->
 <g id="call~~graph~~CallGraph_node15" class="node">
-<title>proc~drift_kepu_guess</title>
-<g id="a_call~~graph~~CallGraph_node15"><a xlink:href=".././proc/drift_kepu_guess.html" xlink:title="drift_kepu_guess">
-<polygon fill="#d9534f" stroke="#d9534f" points="1103.5,-310 1009.5,-310 1009.5,-286 1103.5,-286 1103.5,-310"/>
-<text text-anchor="middle" x="1056.5" y="-295.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_guess</text>
+<title>interface~io_read_frame_cb</title>
+<g id="a_call~~graph~~CallGraph_node15"><a xlink:href=".././interface/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
+<polygon fill="#a7506f" stroke="#a7506f" points="377,-696 277,-696 277,-672 377,-672 377,-696"/>
+<text text-anchor="middle" x="327" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu_p3solve -->
-<g id="call~~graph~~CallGraph_node31" class="node">
-<title>proc~drift_kepu_p3solve</title>
-<g id="a_call~~graph~~CallGraph_node31"><a xlink:href=".././proc/drift_kepu_p3solve.html" xlink:title="drift_kepu_p3solve">
-<polygon fill="#d9534f" stroke="#d9534f" points="1373,-310 1270,-310 1270,-286 1373,-286 1373,-310"/>
-<text text-anchor="middle" x="1321.5" y="-295.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_p3solve</text>
+<!-- proc~io_read_frame_cb -->
+<g id="call~~graph~~CallGraph_node186" class="node">
+<title>proc~io_read_frame_cb</title>
+<g id="a_call~~graph~~CallGraph_node186"><a xlink:href=".././proc/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
+<polygon fill="#d9534f" stroke="#d9534f" points="606,-696 506,-696 506,-672 606,-672 606,-696"/>
+<text text-anchor="middle" x="556" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve -->
+<!-- interface~io_read_frame_cb&#45;&gt;proc~io_read_frame_cb -->
 <g id="call~~graph~~CallGraph_edge14" class="edge">
-<title>proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve</title>
-<path fill="none" stroke="#000000" d="M1103.61,-298C1146.98,-298 1212.19,-298 1259.77,-298"/>
-<polygon fill="#000000" stroke="#000000" points="1259.95,-301.5 1269.95,-298 1259.95,-294.5 1259.95,-301.5"/>
+<title>interface~io_read_frame_cb&#45;&gt;proc~io_read_frame_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M377.26,-684C412.06,-684 458.88,-684 495.73,-684"/>
+<polygon fill="#000000" stroke="#000000" points="495.84,-687.5 505.84,-684 495.84,-680.5 495.84,-687.5"/>
 </g>
-<!-- proc~drift_kepu_guess&#45;&gt;interface~orbel_scget -->
+<!-- interface~util_spill_body -->
+<g id="call~~graph~~CallGraph_node16" class="node">
+<title>interface~util_spill_body</title>
+<g id="a_call~~graph~~CallGraph_node16"><a xlink:href=".././interface/util_spill_body.html" xlink:title="util_spill_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="595.5,-1410 516.5,-1410 516.5,-1386 595.5,-1386 595.5,-1410"/>
+<text text-anchor="middle" x="556" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
+</a>
+</g>
+</g>
+<!-- proc~util_spill_body -->
+<g id="call~~graph~~CallGraph_node193" class="node">
+<title>proc~util_spill_body</title>
+<g id="a_call~~graph~~CallGraph_node193"><a xlink:href=".././proc/util_spill_body.html" xlink:title="util_spill_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="819.5,-1410 740.5,-1410 740.5,-1386 819.5,-1386 819.5,-1410"/>
+<text text-anchor="middle" x="780" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
+</a>
+</g>
+</g>
+<!-- interface~util_spill_body&#45;&gt;proc~util_spill_body -->
 <g id="call~~graph~~CallGraph_edge15" class="edge">
-<title>proc~drift_kepu_guess&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M1103.66,-288.76C1124.4,-284.26 1149.08,-278.44 1171,-272 1208.82,-260.88 1250.98,-245.36 1280.87,-233.81"/>
-<polygon fill="#000000" stroke="#000000" points="1282.46,-236.94 1290.51,-230.05 1279.92,-230.42 1282.46,-236.94"/>
+<title>interface~util_spill_body&#45;&gt;proc~util_spill_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.67,-1398C633.04,-1398 689.78,-1398 730.23,-1398"/>
+<polygon fill="#000000" stroke="#000000" points="730.4,-1401.5 740.4,-1398 730.4,-1394.5 730.4,-1401.5"/>
 </g>
-<!-- proc~symba_io_param_reader -->
-<g id="call~~graph~~CallGraph_node16" class="node">
-<title>proc~symba_io_param_reader</title>
-<g id="a_call~~graph~~CallGraph_node16"><a xlink:href=".././proc/symba_io_param_reader.html" xlink:title="symba_io_param_reader">
-<polygon fill="#d9534f" stroke="#d9534f" points="393.5,-2104 260.5,-2104 260.5,-2080 393.5,-2080 393.5,-2104"/>
-<text text-anchor="middle" x="327" y="-2089.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_param_reader</text>
+<!-- interface~io_read_frame_system -->
+<g id="call~~graph~~CallGraph_node17" class="node">
+<title>interface~io_read_frame_system</title>
+<g id="a_call~~graph~~CallGraph_node17"><a xlink:href=".././interface/io_read_frame_system.html" xlink:title="io_read_frame_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="158,-1500 36,-1500 36,-1476 158,-1476 158,-1500"/>
+<text text-anchor="middle" x="97" y="-1485.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_system</text>
 </a>
 </g>
 </g>
-<!-- io_toupper -->
-<g id="call~~graph~~CallGraph_node598" class="node">
-<title>io_toupper</title>
-<polygon fill="#777777" stroke="#777777" points="594.5,-2146 530.5,-2146 530.5,-2122 594.5,-2122 594.5,-2146"/>
-<text text-anchor="middle" x="562.5" y="-2131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
+<!-- proc~io_read_frame_system -->
+<g id="call~~graph~~CallGraph_node174" class="node">
+<title>proc~io_read_frame_system</title>
+<g id="a_call~~graph~~CallGraph_node174"><a xlink:href=".././proc/io_read_frame_system.html" xlink:title="io_read_frame_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="388,-1500 266,-1500 266,-1476 388,-1476 388,-1500"/>
+<text text-anchor="middle" x="327" y="-1485.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_system</text>
+</a>
 </g>
-<!-- proc~symba_io_param_reader&#45;&gt;io_toupper -->
+</g>
+<!-- interface~io_read_frame_system&#45;&gt;proc~io_read_frame_system -->
 <g id="call~~graph~~CallGraph_edge16" class="edge">
-<title>proc~symba_io_param_reader&#45;&gt;io_toupper</title>
-<path fill="none" stroke="#000000" d="M393.66,-2103.81C434.42,-2111.14 485.53,-2120.34 520.58,-2126.64"/>
-<polygon fill="#000000" stroke="#000000" points="520,-2130.09 530.46,-2128.42 521.24,-2123.2 520,-2130.09"/>
+<title>interface~io_read_frame_system&#45;&gt;proc~io_read_frame_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M158.2,-1488C188.07,-1488 224.34,-1488 255.5,-1488"/>
+<polygon fill="#000000" stroke="#000000" points="255.86,-1491.5 265.86,-1488 255.86,-1484.5 255.86,-1491.5"/>
 </g>
-<!-- io_param_reader -->
-<g id="call~~graph~~CallGraph_node609" class="node">
-<title>io_param_reader</title>
-<polygon fill="#777777" stroke="#777777" points="610,-2104 515,-2104 515,-2080 610,-2080 610,-2104"/>
-<text text-anchor="middle" x="562.5" y="-2089.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
+<!-- interface~util_spill_encounter -->
+<g id="call~~graph~~CallGraph_node18" class="node">
+<title>interface~util_spill_encounter</title>
+<g id="a_call~~graph~~CallGraph_node18"><a xlink:href=".././interface/util_spill_encounter.html" xlink:title="util_spill_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="608,-1368 504,-1368 504,-1344 608,-1344 608,-1368"/>
+<text text-anchor="middle" x="556" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_encounter</text>
+</a>
 </g>
-<!-- proc~symba_io_param_reader&#45;&gt;io_param_reader -->
+</g>
+<!-- proc~util_spill_encounter -->
+<g id="call~~graph~~CallGraph_node196" class="node">
+<title>proc~util_spill_encounter</title>
+<g id="a_call~~graph~~CallGraph_node196"><a xlink:href=".././proc/util_spill_encounter.html" xlink:title="util_spill_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="832,-1368 728,-1368 728,-1344 832,-1344 832,-1368"/>
+<text text-anchor="middle" x="780" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_encounter</text>
+</a>
+</g>
+</g>
+<!-- interface~util_spill_encounter&#45;&gt;proc~util_spill_encounter -->
 <g id="call~~graph~~CallGraph_edge17" class="edge">
-<title>proc~symba_io_param_reader&#45;&gt;io_param_reader</title>
-<path fill="none" stroke="#000000" d="M393.66,-2092C428.63,-2092 471.2,-2092 504.72,-2092"/>
-<polygon fill="#000000" stroke="#000000" points="504.82,-2095.5 514.82,-2092 504.82,-2088.5 504.82,-2095.5"/>
+<title>interface~util_spill_encounter&#45;&gt;proc~util_spill_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.21,-1356C640.7,-1356 682.94,-1356 717.28,-1356"/>
+<polygon fill="#000000" stroke="#000000" points="717.66,-1359.5 727.66,-1356 717.66,-1352.5 717.66,-1359.5"/>
 </g>
-<!-- io_get_token -->
-<g id="call~~graph~~CallGraph_node613" class="node">
-<title>io_get_token</title>
-<polygon fill="#777777" stroke="#777777" points="599.5,-2062 525.5,-2062 525.5,-2038 599.5,-2038 599.5,-2062"/>
-<text text-anchor="middle" x="562.5" y="-2047.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
+<!-- interface~io_write_discard -->
+<g id="call~~graph~~CallGraph_node19" class="node">
+<title>interface~io_write_discard</title>
+<g id="a_call~~graph~~CallGraph_node19"><a xlink:href=".././interface/io_write_discard.html" xlink:title="io_write_discard">
+<polygon fill="#a7506f" stroke="#a7506f" points="372,-612 282,-612 282,-588 372,-588 372,-612"/>
+<text text-anchor="middle" x="327" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_discard</text>
+</a>
 </g>
-<!-- proc~symba_io_param_reader&#45;&gt;io_get_token -->
-<g id="call~~graph~~CallGraph_edge18" class="edge">
-<title>proc~symba_io_param_reader&#45;&gt;io_get_token</title>
-<path fill="none" stroke="#000000" d="M393.66,-2080.19C432.46,-2073.21 480.63,-2064.55 515.4,-2058.29"/>
-<polygon fill="#000000" stroke="#000000" points="516.06,-2061.73 525.28,-2056.51 514.82,-2054.84 516.06,-2061.73"/>
 </g>
-<!-- proc~symba_io_initialize_particle_info -->
-<g id="call~~graph~~CallGraph_node17" class="node">
-<title>proc~symba_io_initialize_particle_info</title>
-<g id="a_call~~graph~~CallGraph_node17"><a xlink:href=".././proc/symba_io_initialize_particle_info.html" xlink:title="symba_io_initialize_particle_info">
-<polygon fill="#d9534f" stroke="#d9534f" points="410,-2146 244,-2146 244,-2122 410,-2122 410,-2146"/>
-<text text-anchor="middle" x="327" y="-2131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_initialize_particle_info</text>
+<!-- proc~io_write_discard -->
+<g id="call~~graph~~CallGraph_node205" class="node">
+<title>proc~io_write_discard</title>
+<g id="a_call~~graph~~CallGraph_node205"><a xlink:href=".././proc/io_write_discard.html" xlink:title="io_write_discard">
+<polygon fill="#d9534f" stroke="#d9534f" points="601,-612 511,-612 511,-588 601,-588 601,-612"/>
+<text text-anchor="middle" x="556" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_discard</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_discard_nonplpl_conservation -->
-<g id="call~~graph~~CallGraph_node18" class="node">
-<title>proc~symba_discard_nonplpl_conservation</title>
-<g id="a_call~~graph~~CallGraph_node18"><a xlink:href=".././proc/symba_discard_nonplpl_conservation.html" xlink:title="symba_discard_nonplpl_conservation">
-<polygon fill="#d9534f" stroke="#d9534f" points="658.5,-583 466.5,-583 466.5,-559 658.5,-559 658.5,-583"/>
-<text text-anchor="middle" x="562.5" y="-568.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_nonplpl_conservation</text>
+<!-- interface~io_write_discard&#45;&gt;proc~io_write_discard -->
+<g id="call~~graph~~CallGraph_edge18" class="edge">
+<title>interface~io_write_discard&#45;&gt;proc~io_write_discard</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.04,-600C408.73,-600 461.15,-600 500.49,-600"/>
+<polygon fill="#000000" stroke="#000000" points="500.7,-603.5 510.7,-600 500.7,-596.5 500.7,-603.5"/>
+</g>
+<!-- proc~util_set_beg_end_pl -->
+<g id="call~~graph~~CallGraph_node20" class="node">
+<title>proc~util_set_beg_end_pl</title>
+<g id="a_call~~graph~~CallGraph_node20"><a xlink:href=".././proc/util_set_beg_end_pl.html" xlink:title="util_set_beg_end_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="381.5,-1542 272.5,-1542 272.5,-1518 381.5,-1518 381.5,-1542"/>
+<text text-anchor="middle" x="327" y="-1527.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_beg_end_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_io_param_writer -->
-<g id="call~~graph~~CallGraph_node19" class="node">
-<title>proc~symba_io_param_writer</title>
-<g id="a_call~~graph~~CallGraph_node19"><a xlink:href=".././proc/symba_io_param_writer.html" xlink:title="symba_io_param_writer">
-<polygon fill="#d9534f" stroke="#d9534f" points="390.5,-2188 263.5,-2188 263.5,-2164 390.5,-2164 390.5,-2188"/>
-<text text-anchor="middle" x="327" y="-2173.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_param_writer</text>
+<!-- interface~util_spill_pl -->
+<g id="call~~graph~~CallGraph_node21" class="node">
+<title>interface~util_spill_pl</title>
+<g id="a_call~~graph~~CallGraph_node21"><a xlink:href=".././interface/util_spill_pl.html" xlink:title="util_spill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="129,-1439 65,-1439 65,-1415 129,-1415 129,-1439"/>
+<text text-anchor="middle" x="97" y="-1424.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
 </a>
 </g>
 </g>
-<!-- io_param_writer -->
-<g id="call~~graph~~CallGraph_node586" class="node">
-<title>io_param_writer</title>
-<polygon fill="#777777" stroke="#777777" points="607.5,-2188 517.5,-2188 517.5,-2164 607.5,-2164 607.5,-2188"/>
-<text text-anchor="middle" x="562.5" y="-2173.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_writer</text>
+<!-- proc~util_spill_pl -->
+<g id="call~~graph~~CallGraph_node189" class="node">
+<title>proc~util_spill_pl</title>
+<g id="a_call~~graph~~CallGraph_node189"><a xlink:href=".././proc/util_spill_pl.html" xlink:title="util_spill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="359,-1439 295,-1439 295,-1415 359,-1415 359,-1439"/>
+<text text-anchor="middle" x="327" y="-1424.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
+</a>
 </g>
-<!-- proc~symba_io_param_writer&#45;&gt;io_param_writer -->
+</g>
+<!-- interface~util_spill_pl&#45;&gt;proc~util_spill_pl -->
 <g id="call~~graph~~CallGraph_edge19" class="edge">
-<title>proc~symba_io_param_writer&#45;&gt;io_param_writer</title>
-<path fill="none" stroke="#000000" d="M390.57,-2176C426.81,-2176 472,-2176 506.81,-2176"/>
-<polygon fill="#000000" stroke="#000000" points="507.25,-2179.5 517.25,-2176 507.25,-2172.5 507.25,-2179.5"/>
+<title>interface~util_spill_pl&#45;&gt;proc~util_spill_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M129.22,-1427C169.53,-1427 239.8,-1427 284.55,-1427"/>
+<polygon fill="#000000" stroke="#000000" points="284.79,-1430.5 294.79,-1427 284.79,-1423.5 284.79,-1430.5"/>
 </g>
-<!-- proc~rmvs_encounter_check_tp -->
-<g id="call~~graph~~CallGraph_node20" class="node">
-<title>proc~rmvs_encounter_check_tp</title>
-<g id="a_call~~graph~~CallGraph_node20"><a xlink:href=".././proc/rmvs_encounter_check_tp.html" xlink:title="rmvs_encounter_check_tp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="396.5,-2230 257.5,-2230 257.5,-2206 396.5,-2206 396.5,-2230"/>
-<text text-anchor="middle" x="327" y="-2215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check_tp</text>
+<!-- interface~io_toupper -->
+<g id="call~~graph~~CallGraph_node22" class="node">
+<title>interface~io_toupper</title>
+<g id="a_call~~graph~~CallGraph_node22"><a xlink:href=".././interface/io_toupper.html" xlink:title="io_toupper">
+<polygon fill="#a7506f" stroke="#a7506f" points="812,-193 748,-193 748,-169 812,-169 812,-193"/>
+<text text-anchor="middle" x="780" y="-178.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_chk_ind -->
-<g id="call~~graph~~CallGraph_node157" class="node">
-<title>interface~rmvs_chk_ind</title>
-<g id="a_call~~graph~~CallGraph_node157"><a xlink:href=".././interface/rmvs_chk_ind.html" xlink:title="rmvs_chk_ind">
-<polygon fill="#a7506f" stroke="#a7506f" points="602,-2251 523,-2251 523,-2227 602,-2227 602,-2251"/>
-<text text-anchor="middle" x="562.5" y="-2236.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_chk_ind</text>
+<!-- proc~io_toupper -->
+<g id="call~~graph~~CallGraph_node197" class="node">
+<title>proc~io_toupper</title>
+<g id="a_call~~graph~~CallGraph_node197"><a xlink:href=".././proc/io_toupper.html" xlink:title="io_toupper">
+<polygon fill="#d9534f" stroke="#d9534f" points="1042.5,-193 978.5,-193 978.5,-169 1042.5,-169 1042.5,-193"/>
+<text text-anchor="middle" x="1010.5" y="-178.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_encounter_check_tp&#45;&gt;interface~rmvs_chk_ind -->
+<!-- interface~io_toupper&#45;&gt;proc~io_toupper -->
 <g id="call~~graph~~CallGraph_edge20" class="edge">
-<title>proc~rmvs_encounter_check_tp&#45;&gt;interface~rmvs_chk_ind</title>
-<path fill="none" stroke="#000000" d="M396.79,-2224.19C434.1,-2227.54 479.31,-2231.61 512.92,-2234.63"/>
-<polygon fill="#000000" stroke="#000000" points="512.69,-2238.12 522.96,-2235.53 513.31,-2231.15 512.69,-2238.12"/>
+<title>interface~io_toupper&#45;&gt;proc~io_toupper</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.29,-181C852.69,-181 923.11,-181 967.95,-181"/>
+<polygon fill="#000000" stroke="#000000" points="968.22,-184.5 978.22,-181 968.22,-177.5 968.22,-184.5"/>
 </g>
-<!-- proc~symba_collision_encounter_scrub -->
-<g id="call~~graph~~CallGraph_node21" class="node">
-<title>proc~symba_collision_encounter_scrub</title>
-<g id="a_call~~graph~~CallGraph_node21"><a xlink:href=".././proc/symba_collision_encounter_scrub.html" xlink:title="symba_collision_encounter_scrub">
-<polygon fill="#d9534f" stroke="#d9534f" points="890.5,-2020 716.5,-2020 716.5,-1996 890.5,-1996 890.5,-2020"/>
-<text text-anchor="middle" x="803.5" y="-2005.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_encounter_scrub</text>
+<!-- interface~io_write_encounter -->
+<g id="call~~graph~~CallGraph_node23" class="node">
+<title>interface~io_write_encounter</title>
+<g id="a_call~~graph~~CallGraph_node23"><a xlink:href=".././interface/io_write_encounter.html" xlink:title="io_write_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="378.5,-528 275.5,-528 275.5,-504 378.5,-504 378.5,-528"/>
+<text text-anchor="middle" x="327" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
 </a>
 </g>
 </g>
-<!-- idx1 -->
-<g id="call~~graph~~CallGraph_node553" class="node">
-<title>idx1</title>
-<polygon fill="#777777" stroke="#777777" points="1083.5,-2041 1029.5,-2041 1029.5,-2017 1083.5,-2017 1083.5,-2041"/>
-<text text-anchor="middle" x="1056.5" y="-2026.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
+<!-- proc~io_write_encounter -->
+<g id="call~~graph~~CallGraph_node217" class="node">
+<title>proc~io_write_encounter</title>
+<g id="a_call~~graph~~CallGraph_node217"><a xlink:href=".././proc/io_write_encounter.html" xlink:title="io_write_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="607.5,-528 504.5,-528 504.5,-504 607.5,-504 607.5,-528"/>
+<text text-anchor="middle" x="556" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
+</a>
 </g>
-<!-- proc~symba_collision_encounter_scrub&#45;&gt;idx1 -->
+</g>
+<!-- interface~io_write_encounter&#45;&gt;proc~io_write_encounter -->
 <g id="call~~graph~~CallGraph_edge21" class="edge">
-<title>proc~symba_collision_encounter_scrub&#45;&gt;idx1</title>
-<path fill="none" stroke="#000000" d="M890.53,-2015.2C934.45,-2018.87 985.56,-2023.15 1019.11,-2025.96"/>
-<polygon fill="#000000" stroke="#000000" points="1019.1,-2029.47 1029.35,-2026.81 1019.68,-2022.49 1019.1,-2029.47"/>
+<title>interface~io_write_encounter&#45;&gt;proc~io_write_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M378.66,-516C412.79,-516 458,-516 494.09,-516"/>
+<polygon fill="#000000" stroke="#000000" points="494.49,-519.5 504.49,-516 494.49,-512.5 494.49,-519.5"/>
 </g>
-<!-- idx2 -->
-<g id="call~~graph~~CallGraph_node560" class="node">
-<title>idx2</title>
-<polygon fill="#777777" stroke="#777777" points="1083.5,-1999 1029.5,-1999 1029.5,-1975 1083.5,-1975 1083.5,-1999"/>
-<text text-anchor="middle" x="1056.5" y="-1984.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx2</text>
+<!-- interface~util_spill_tp -->
+<g id="call~~graph~~CallGraph_node24" class="node">
+<title>interface~util_spill_tp</title>
+<g id="a_call~~graph~~CallGraph_node24"><a xlink:href=".././interface/util_spill_tp.html" xlink:title="util_spill_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="129.5,-1344 64.5,-1344 64.5,-1320 129.5,-1320 129.5,-1344"/>
+<text text-anchor="middle" x="97" y="-1329.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
+</a>
 </g>
-<!-- proc~symba_collision_encounter_scrub&#45;&gt;idx2 -->
-<g id="call~~graph~~CallGraph_edge22" class="edge">
-<title>proc~symba_collision_encounter_scrub&#45;&gt;idx2</title>
-<path fill="none" stroke="#000000" d="M890.53,-2000.8C934.45,-1997.13 985.56,-1992.85 1019.11,-1990.04"/>
-<polygon fill="#000000" stroke="#000000" points="1019.68,-1993.51 1029.35,-1989.19 1019.1,-1986.53 1019.68,-1993.51"/>
 </g>
-<!-- proc~drift_kepu_new -->
-<g id="call~~graph~~CallGraph_node22" class="node">
-<title>proc~drift_kepu_new</title>
-<g id="a_call~~graph~~CallGraph_node22"><a xlink:href=".././proc/drift_kepu_new.html" xlink:title="drift_kepu_new">
-<polygon fill="#d9534f" stroke="#d9534f" points="1099,-394 1014,-394 1014,-370 1099,-370 1099,-394"/>
-<text text-anchor="middle" x="1056.5" y="-379.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_new</text>
+<!-- proc~util_spill_tp -->
+<g id="call~~graph~~CallGraph_node199" class="node">
+<title>proc~util_spill_tp</title>
+<g id="a_call~~graph~~CallGraph_node199"><a xlink:href=".././proc/util_spill_tp.html" xlink:title="util_spill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="359.5,-1344 294.5,-1344 294.5,-1320 359.5,-1320 359.5,-1344"/>
+<text text-anchor="middle" x="327" y="-1329.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu_new&#45;&gt;proc~drift_kepu_stumpff -->
-<g id="call~~graph~~CallGraph_edge23" class="edge">
-<title>proc~drift_kepu_new&#45;&gt;proc~drift_kepu_stumpff</title>
-<path fill="none" stroke="#000000" d="M1099.17,-382C1142.71,-382 1211.43,-382 1260.74,-382"/>
-<polygon fill="#000000" stroke="#000000" points="1260.95,-385.5 1270.95,-382 1260.95,-378.5 1260.95,-385.5"/>
+<!-- interface~util_spill_tp&#45;&gt;proc~util_spill_tp -->
+<g id="call~~graph~~CallGraph_edge22" class="edge">
+<title>interface~util_spill_tp&#45;&gt;proc~util_spill_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M129.7,-1332C169.92,-1332 239.38,-1332 283.98,-1332"/>
+<polygon fill="#000000" stroke="#000000" points="284.2,-1335.5 294.2,-1332 284.2,-1328.5 284.2,-1335.5"/>
 </g>
-<!-- proc~rmvs_chk_ind -->
-<g id="call~~graph~~CallGraph_node23" class="node">
-<title>proc~rmvs_chk_ind</title>
-<g id="a_call~~graph~~CallGraph_node23"><a xlink:href=".././proc/rmvs_chk_ind.html" xlink:title="rmvs_chk_ind">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="843,-2251 764,-2251 764,-2227 843,-2227 843,-2251"/>
-<text text-anchor="middle" x="803.5" y="-2236.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_chk_ind</text>
+<!-- interface~io_write_frame_body -->
+<g id="call~~graph~~CallGraph_node25" class="node">
+<title>interface~io_write_frame_body</title>
+<g id="a_call~~graph~~CallGraph_node25"><a xlink:href=".././interface/io_write_frame_body.html" xlink:title="io_write_frame_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="153,-1584 41,-1584 41,-1560 153,-1560 153,-1584"/>
+<text text-anchor="middle" x="97" y="-1569.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_body</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_encounter_check_tp -->
-<g id="call~~graph~~CallGraph_node24" class="node">
-<title>proc~symba_encounter_check_tp</title>
-<g id="a_call~~graph~~CallGraph_node24"><a xlink:href=".././proc/symba_encounter_check_tp.html" xlink:title="symba_encounter_check_tp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="400.5,-2314 253.5,-2314 253.5,-2290 400.5,-2290 400.5,-2314"/>
-<text text-anchor="middle" x="327" y="-2299.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_tp</text>
+<!-- proc~io_write_frame_body -->
+<g id="call~~graph~~CallGraph_node211" class="node">
+<title>proc~io_write_frame_body</title>
+<g id="a_call~~graph~~CallGraph_node211"><a xlink:href=".././proc/io_write_frame_body.html" xlink:title="io_write_frame_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="383,-1584 271,-1584 271,-1560 383,-1560 383,-1584"/>
+<text text-anchor="middle" x="327" y="-1569.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_body</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_encounter_check_pltpenc -->
-<g id="call~~graph~~CallGraph_node25" class="node">
-<title>proc~symba_encounter_check_pltpenc</title>
-<g id="a_call~~graph~~CallGraph_node25"><a xlink:href=".././proc/symba_encounter_check_pltpenc.html" xlink:title="symba_encounter_check_pltpenc">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="413,-436 241,-436 241,-412 413,-412 413,-436"/>
-<text text-anchor="middle" x="327" y="-421.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_pltpenc</text>
+<!-- interface~io_write_frame_body&#45;&gt;proc~io_write_frame_body -->
+<g id="call~~graph~~CallGraph_edge23" class="edge">
+<title>interface~io_write_frame_body&#45;&gt;proc~io_write_frame_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.19,-1572C185.56,-1572 226.64,-1572 260.62,-1572"/>
+<polygon fill="#000000" stroke="#000000" points="260.92,-1575.5 270.92,-1572 260.92,-1568.5 260.92,-1575.5"/>
+</g>
+<!-- interface~util_valid_id_system -->
+<g id="call~~graph~~CallGraph_node26" class="node">
+<title>interface~util_valid_id_system</title>
+<g id="a_call~~graph~~CallGraph_node26"><a xlink:href=".././interface/util_valid_id_system.html" xlink:title="util_valid_id_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="381,-944 273,-944 273,-920 381,-920 381,-944"/>
+<text text-anchor="middle" x="327" y="-929.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid_id_system</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_encounter_check_pltpenc&#45;&gt;ind1 -->
-<g id="call~~graph~~CallGraph_edge25" class="edge">
-<title>proc~symba_encounter_check_pltpenc&#45;&gt;ind1</title>
-<path fill="none" stroke="#000000" d="M413.29,-424C451.81,-424 495.27,-424 525.12,-424"/>
-<polygon fill="#000000" stroke="#000000" points="525.46,-427.5 535.46,-424 525.46,-420.5 525.46,-427.5"/>
+<!-- proc~util_valid_id_system -->
+<g id="call~~graph~~CallGraph_node206" class="node">
+<title>proc~util_valid_id_system</title>
+<g id="a_call~~graph~~CallGraph_node206"><a xlink:href=".././proc/util_valid_id_system.html" xlink:title="util_valid_id_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="610,-944 502,-944 502,-920 610,-920 610,-944"/>
+<text text-anchor="middle" x="556" y="-929.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid_id_system</text>
+</a>
 </g>
-<!-- proc~symba_encounter_check_pltpenc&#45;&gt;ind2 -->
+</g>
+<!-- interface~util_valid_id_system&#45;&gt;proc~util_valid_id_system -->
 <g id="call~~graph~~CallGraph_edge24" class="edge">
-<title>proc~symba_encounter_check_pltpenc&#45;&gt;ind2</title>
-<path fill="none" stroke="#000000" d="M394.91,-411.96C437.29,-404.34 490.45,-394.78 525.17,-388.53"/>
-<polygon fill="#000000" stroke="#000000" points="526.1,-391.92 535.32,-386.71 524.86,-385.04 526.1,-391.92"/>
+<title>interface~util_valid_id_system&#45;&gt;proc~util_valid_id_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M381.22,-932C414.26,-932 456.9,-932 491.67,-932"/>
+<polygon fill="#000000" stroke="#000000" points="491.72,-935.5 501.72,-932 491.72,-928.5 491.72,-935.5"/>
 </g>
-<!-- proc~discard_tp -->
-<g id="call~~graph~~CallGraph_node26" class="node">
-<title>proc~discard_tp</title>
-<g id="a_call~~graph~~CallGraph_node26"><a xlink:href=".././proc/discard_tp.html" xlink:title="discard_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="358,-2356 296,-2356 296,-2332 358,-2332 358,-2356"/>
-<text text-anchor="middle" x="327" y="-2341.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_tp</text>
+<!-- interface~io_write_frame_cb -->
+<g id="call~~graph~~CallGraph_node27" class="node">
+<title>interface~io_write_frame_cb</title>
+<g id="a_call~~graph~~CallGraph_node27"><a xlink:href=".././interface/io_write_frame_cb.html" xlink:title="io_write_frame_cb">
+<polygon fill="#a7506f" stroke="#a7506f" points="147,-1626 47,-1626 47,-1602 147,-1602 147,-1626"/>
+<text text-anchor="middle" x="97" y="-1611.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_cb</text>
 </a>
 </g>
 </g>
-<!-- proc~discard_pl -->
-<g id="call~~graph~~CallGraph_node27" class="node">
-<title>proc~discard_pl</title>
-<g id="a_call~~graph~~CallGraph_node27"><a xlink:href=".././proc/discard_pl.html" xlink:title="discard_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="357.5,-2398 296.5,-2398 296.5,-2374 357.5,-2374 357.5,-2398"/>
-<text text-anchor="middle" x="327" y="-2383.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_pl</text>
+<!-- proc~io_write_frame_cb -->
+<g id="call~~graph~~CallGraph_node94" class="node">
+<title>proc~io_write_frame_cb</title>
+<g id="a_call~~graph~~CallGraph_node94"><a xlink:href=".././proc/io_write_frame_cb.html" xlink:title="io_write_frame_cb">
+<polygon fill="#d9534f" stroke="#d9534f" points="377,-1626 277,-1626 277,-1602 377,-1602 377,-1626"/>
+<text text-anchor="middle" x="327" y="-1611.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_cb</text>
 </a>
 </g>
 </g>
-<!-- proc~discard_cb_tp -->
+<!-- interface~io_write_frame_cb&#45;&gt;proc~io_write_frame_cb -->
+<g id="call~~graph~~CallGraph_edge25" class="edge">
+<title>interface~io_write_frame_cb&#45;&gt;proc~io_write_frame_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.19,-1614C182.25,-1614 229.56,-1614 266.71,-1614"/>
+<polygon fill="#000000" stroke="#000000" points="266.9,-1617.5 276.9,-1614 266.9,-1610.5 266.9,-1617.5"/>
+</g>
+<!-- interface~util_version -->
 <g id="call~~graph~~CallGraph_node28" class="node">
-<title>proc~discard_cb_tp</title>
-<g id="a_call~~graph~~CallGraph_node28"><a xlink:href=".././proc/discard_cb_tp.html" xlink:title="discard_cb_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="136.5,-2440 57.5,-2440 57.5,-2416 136.5,-2416 136.5,-2440"/>
-<text text-anchor="middle" x="97" y="-2425.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_cb_tp</text>
+<title>interface~util_version</title>
+<g id="a_call~~graph~~CallGraph_node28"><a xlink:href=".././interface/util_version.html" xlink:title="util_version">
+<polygon fill="#a7506f" stroke="#a7506f" points="813.5,-151 746.5,-151 746.5,-127 813.5,-127 813.5,-151"/>
+<text text-anchor="middle" x="780" y="-136.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_discard_pl -->
-<g id="call~~graph~~CallGraph_node29" class="node">
-<title>proc~symba_discard_pl</title>
-<g id="a_call~~graph~~CallGraph_node29"><a xlink:href=".././proc/symba_discard_pl.html" xlink:title="symba_discard_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="376.5,-604 277.5,-604 277.5,-580 376.5,-580 376.5,-604"/>
-<text text-anchor="middle" x="327" y="-589.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_pl</text>
+<!-- proc~util_version -->
+<g id="call~~graph~~CallGraph_node263" class="node">
+<title>proc~util_version</title>
+<g id="a_call~~graph~~CallGraph_node263"><a xlink:href=".././proc/util_version.html" xlink:title="util_version">
+<polygon fill="#d9534f" stroke="#d9534f" points="1044,-151 977,-151 977,-127 1044,-127 1044,-151"/>
+<text text-anchor="middle" x="1010.5" y="-136.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl -->
+<!-- interface~util_version&#45;&gt;proc~util_version -->
 <g id="call~~graph~~CallGraph_edge26" class="edge">
-<title>proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl</title>
-<path fill="none" stroke="#000000" d="M376.67,-596.38C409.41,-599.32 453.13,-603.25 489.83,-606.55"/>
-<polygon fill="#000000" stroke="#000000" points="489.71,-610.06 499.98,-607.47 490.33,-603.09 489.71,-610.06"/>
-</g>
-<!-- proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl_conservation -->
-<g id="call~~graph~~CallGraph_edge27" class="edge">
-<title>proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl_conservation</title>
-<path fill="none" stroke="#000000" d="M376.67,-587.62C399.76,-585.55 428.31,-582.98 456.02,-580.49"/>
-<polygon fill="#000000" stroke="#000000" points="456.53,-583.96 466.17,-579.57 455.9,-576.98 456.53,-583.96"/>
+<title>interface~util_version&#45;&gt;proc~util_version</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M813.74,-139C853.95,-139 922.28,-139 966.64,-139"/>
+<polygon fill="#000000" stroke="#000000" points="966.82,-142.5 976.82,-139 966.82,-135.5 966.82,-142.5"/>
 </g>
-<!-- proc~discard_peri_tp -->
-<g id="call~~graph~~CallGraph_node30" class="node">
-<title>proc~discard_peri_tp</title>
-<g id="a_call~~graph~~CallGraph_node30"><a xlink:href=".././proc/discard_peri_tp.html" xlink:title="discard_peri_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="140,-2482 54,-2482 54,-2458 140,-2458 140,-2482"/>
-<text text-anchor="middle" x="97" y="-2467.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_peri_tp</text>
+<!-- interface~io_write_frame_system -->
+<g id="call~~graph~~CallGraph_node29" class="node">
+<title>interface~io_write_frame_system</title>
+<g id="a_call~~graph~~CallGraph_node29"><a xlink:href=".././interface/io_write_frame_system.html" xlink:title="io_write_frame_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="158.5,-883 35.5,-883 35.5,-859 158.5,-859 158.5,-883"/>
+<text text-anchor="middle" x="97" y="-868.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_io_read_frame_info -->
-<g id="call~~graph~~CallGraph_node32" class="node">
-<title>proc~symba_io_read_frame_info</title>
-<g id="a_call~~graph~~CallGraph_node32"><a xlink:href=".././proc/symba_io_read_frame_info.html" xlink:title="symba_io_read_frame_info">
-<polygon fill="#d9534f" stroke="#d9534f" points="398.5,-2524 255.5,-2524 255.5,-2500 398.5,-2500 398.5,-2524"/>
-<text text-anchor="middle" x="327" y="-2509.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_read_frame_info</text>
+<!-- proc~io_write_frame_system -->
+<g id="call~~graph~~CallGraph_node93" class="node">
+<title>proc~io_write_frame_system</title>
+<g id="a_call~~graph~~CallGraph_node93"><a xlink:href=".././proc/io_write_frame_system.html" xlink:title="io_write_frame_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="388.5,-883 265.5,-883 265.5,-859 388.5,-859 388.5,-883"/>
+<text text-anchor="middle" x="327" y="-868.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</text>
 </a>
 </g>
 </g>
-<!-- proc~discard_pl_tp -->
-<g id="call~~graph~~CallGraph_node33" class="node">
-<title>proc~discard_pl_tp</title>
-<g id="a_call~~graph~~CallGraph_node33"><a xlink:href=".././proc/discard_pl_tp.html" xlink:title="discard_pl_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="135,-2566 59,-2566 59,-2542 135,-2542 135,-2566"/>
-<text text-anchor="middle" x="97" y="-2551.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_pl_tp</text>
+<!-- interface~io_write_frame_system&#45;&gt;proc~io_write_frame_system -->
+<g id="call~~graph~~CallGraph_edge27" class="edge">
+<title>interface~io_write_frame_system&#45;&gt;proc~io_write_frame_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M158.5,-871C188.13,-871 224,-871 254.93,-871"/>
+<polygon fill="#000000" stroke="#000000" points="255.22,-874.5 265.22,-871 255.22,-867.5 255.22,-874.5"/>
+</g>
+<!-- interface~kick_getacch_int_pl -->
+<g id="call~~graph~~CallGraph_node30" class="node">
+<title>interface~kick_getacch_int_pl</title>
+<g id="a_call~~graph~~CallGraph_node30"><a xlink:href=".././interface/kick_getacch_int_pl.html" xlink:title="kick_getacch_int_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="150,-1668 44,-1668 44,-1644 150,-1644 150,-1668"/>
+<text text-anchor="middle" x="97" y="-1653.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_encounter_check_one -->
-<g id="call~~graph~~CallGraph_node34" class="node">
-<title>proc~symba_encounter_check_one</title>
-<g id="a_call~~graph~~CallGraph_node34"><a xlink:href=".././proc/symba_encounter_check_one.html" xlink:title="symba_encounter_check_one">
-<polygon fill="#d9534f" stroke="#d9534f" points="405,-2272 249,-2272 249,-2248 405,-2248 405,-2272"/>
-<text text-anchor="middle" x="327" y="-2257.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_one</text>
+<!-- proc~kick_getacch_int_pl -->
+<g id="call~~graph~~CallGraph_node207" class="node">
+<title>proc~kick_getacch_int_pl</title>
+<g id="a_call~~graph~~CallGraph_node207"><a xlink:href=".././proc/kick_getacch_int_pl.html" xlink:title="kick_getacch_int_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="380,-1668 274,-1668 274,-1644 380,-1644 380,-1668"/>
+<text text-anchor="middle" x="327" y="-1653.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_encounter_check_one&#45;&gt;interface~rmvs_chk_ind -->
+<!-- interface~kick_getacch_int_pl&#45;&gt;proc~kick_getacch_int_pl -->
 <g id="call~~graph~~CallGraph_edge28" class="edge">
-<title>proc~symba_encounter_check_one&#45;&gt;interface~rmvs_chk_ind</title>
-<path fill="none" stroke="#000000" d="M405.1,-2253.07C440.55,-2249.88 481.53,-2246.19 512.65,-2243.39"/>
-<polygon fill="#000000" stroke="#000000" points="513.15,-2246.86 522.8,-2242.48 512.52,-2239.89 513.15,-2246.86"/>
+<title>interface~kick_getacch_int_pl&#45;&gt;proc~kick_getacch_int_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M150.02,-1656C183.76,-1656 227.89,-1656 263.52,-1656"/>
+<polygon fill="#000000" stroke="#000000" points="263.81,-1659.5 273.81,-1656 263.81,-1652.5 263.81,-1659.5"/>
 </g>
-<!-- proc~discard_pl_close -->
-<g id="call~~graph~~CallGraph_node35" class="node">
-<title>proc~discard_pl_close</title>
-<g id="a_call~~graph~~CallGraph_node35"><a xlink:href=".././proc/discard_pl_close.html" xlink:title="discard_pl_close">
-<polygon fill="#d9534f" stroke="#d9534f" points="143,-2608 51,-2608 51,-2584 143,-2584 143,-2608"/>
-<text text-anchor="middle" x="97" y="-2593.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_pl_close</text>
+<!-- interface~kick_getacch_int_tp -->
+<g id="call~~graph~~CallGraph_node31" class="node">
+<title>interface~kick_getacch_int_tp</title>
+<g id="a_call~~graph~~CallGraph_node31"><a xlink:href=".././interface/kick_getacch_int_tp.html" xlink:title="kick_getacch_int_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="150,-1710 44,-1710 44,-1686 150,-1686 150,-1710"/>
+<text text-anchor="middle" x="97" y="-1695.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_tp</text>
 </a>
 </g>
 </g>
 <!-- proc~kick_getacch_int_tp -->
-<g id="call~~graph~~CallGraph_node36" class="node">
+<g id="call~~graph~~CallGraph_node208" class="node">
 <title>proc~kick_getacch_int_tp</title>
-<g id="a_call~~graph~~CallGraph_node36"><a xlink:href=".././proc/kick_getacch_int_tp.html" xlink:title="kick_getacch_int_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="380,-2650 274,-2650 274,-2626 380,-2626 380,-2650"/>
-<text text-anchor="middle" x="327" y="-2635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_tp</text>
+<g id="a_call~~graph~~CallGraph_node208"><a xlink:href=".././proc/kick_getacch_int_tp.html" xlink:title="kick_getacch_int_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="380,-1710 274,-1710 274,-1686 380,-1686 380,-1710"/>
+<text text-anchor="middle" x="327" y="-1695.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~util_fill -->
-<g id="call~~graph~~CallGraph_node37" class="node">
-<title>interface~util_fill</title>
-<g id="a_call~~graph~~CallGraph_node37"><a xlink:href=".././interface/util_fill.html" xlink:title="util_fill">
-<polygon fill="#a7506f" stroke="#a7506f" points="1083.5,-961 1029.5,-961 1029.5,-937 1083.5,-937 1083.5,-961"/>
-<text text-anchor="middle" x="1056.5" y="-946.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
-</a>
-</g>
-</g>
-<!-- interface~symba_encounter_check_pl -->
-<g id="call~~graph~~CallGraph_node38" class="node">
-<title>interface~symba_encounter_check_pl</title>
-<g id="a_call~~graph~~CallGraph_node38"><a xlink:href=".././interface/symba_encounter_check_pl.html" xlink:title="symba_encounter_check_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="170,-178 24,-178 24,-154 170,-154 170,-178"/>
-<text text-anchor="middle" x="97" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_pl</text>
-</a>
-</g>
-</g>
-<!-- interface~symba_encounter_check_pl&#45;&gt;proc~symba_encounter_check_pl -->
+<!-- interface~kick_getacch_int_tp&#45;&gt;proc~kick_getacch_int_tp -->
 <g id="call~~graph~~CallGraph_edge29" class="edge">
-<title>interface~symba_encounter_check_pl&#45;&gt;proc~symba_encounter_check_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.14,-166C193.54,-166 219.68,-166 243.76,-166"/>
-<polygon fill="#000000" stroke="#000000" points="243.94,-169.5 253.94,-166 243.94,-162.5 243.94,-169.5"/>
+<title>interface~kick_getacch_int_tp&#45;&gt;proc~kick_getacch_int_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M150.02,-1698C183.76,-1698 227.89,-1698 263.52,-1698"/>
+<polygon fill="#000000" stroke="#000000" points="263.81,-1701.5 273.81,-1698 263.81,-1694.5 263.81,-1701.5"/>
 </g>
-<!-- proc~symba_collision_make_family_pl -->
-<g id="call~~graph~~CallGraph_node39" class="node">
-<title>proc~symba_collision_make_family_pl</title>
-<g id="a_call~~graph~~CallGraph_node39"><a xlink:href=".././proc/symba_collision_make_family_pl.html" xlink:title="symba_collision_make_family_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="411,-2692 243,-2692 243,-2668 411,-2668 411,-2692"/>
-<text text-anchor="middle" x="327" y="-2677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_make_family_pl</text>
+<!-- interface~obl_acc_body -->
+<g id="call~~graph~~CallGraph_node32" class="node">
+<title>interface~obl_acc_body</title>
+<g id="a_call~~graph~~CallGraph_node32"><a xlink:href=".././interface/obl_acc_body.html" xlink:title="obl_acc_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="595.5,-1773 516.5,-1773 516.5,-1749 595.5,-1749 595.5,-1773"/>
+<text text-anchor="middle" x="556" y="-1758.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_body</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_encounter_check_pltpenc -->
-<g id="call~~graph~~CallGraph_node40" class="node">
-<title>interface~symba_encounter_check_pltpenc</title>
-<g id="a_call~~graph~~CallGraph_node40"><a xlink:href=".././interface/symba_encounter_check_pltpenc.html" xlink:title="symba_encounter_check_pltpenc">
-<polygon fill="#a7506f" stroke="#a7506f" points="183,-436 11,-436 11,-412 183,-412 183,-436"/>
-<text text-anchor="middle" x="97" y="-421.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_pltpenc</text>
+<!-- proc~obl_acc_body -->
+<g id="call~~graph~~CallGraph_node502" class="node">
+<title>proc~obl_acc_body</title>
+<g id="a_call~~graph~~CallGraph_node502"><a xlink:href=".././proc/obl_acc_body.html" xlink:title="obl_acc_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="819.5,-1773 740.5,-1773 740.5,-1749 819.5,-1749 819.5,-1773"/>
+<text text-anchor="middle" x="780" y="-1758.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_body</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_encounter_check_pltpenc&#45;&gt;proc~symba_encounter_check_pltpenc -->
+<!-- interface~obl_acc_body&#45;&gt;proc~obl_acc_body -->
 <g id="call~~graph~~CallGraph_edge30" class="edge">
-<title>interface~symba_encounter_check_pltpenc&#45;&gt;proc~symba_encounter_check_pltpenc</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M183.22,-424C198.68,-424 214.9,-424 230.63,-424"/>
-<polygon fill="#000000" stroke="#000000" points="230.88,-427.5 240.88,-424 230.88,-420.5 230.88,-427.5"/>
+<title>interface~obl_acc_body&#45;&gt;proc~obl_acc_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.67,-1761C633.04,-1761 689.78,-1761 730.23,-1761"/>
+<polygon fill="#000000" stroke="#000000" points="730.4,-1764.5 740.4,-1761 730.4,-1757.5 730.4,-1764.5"/>
 </g>
-<!-- proc~symba_io_write_frame_info -->
-<g id="call~~graph~~CallGraph_node41" class="node">
-<title>proc~symba_io_write_frame_info</title>
-<g id="a_call~~graph~~CallGraph_node41"><a xlink:href=".././proc/symba_io_write_frame_info.html" xlink:title="symba_io_write_frame_info">
-<polygon fill="#d9534f" stroke="#d9534f" points="399,-2734 255,-2734 255,-2710 399,-2710 399,-2734"/>
-<text text-anchor="middle" x="327" y="-2719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_write_frame_info</text>
+<!-- interface~obl_acc_pl -->
+<g id="call~~graph~~CallGraph_node33" class="node">
+<title>interface~obl_acc_pl</title>
+<g id="a_call~~graph~~CallGraph_node33"><a xlink:href=".././interface/obl_acc_pl.html" xlink:title="obl_acc_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="129,-1752 65,-1752 65,-1728 129,-1728 129,-1752"/>
+<text text-anchor="middle" x="97" y="-1737.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_encounter_check_tp -->
-<g id="call~~graph~~CallGraph_node42" class="node">
-<title>interface~symba_encounter_check_tp</title>
-<g id="a_call~~graph~~CallGraph_node42"><a xlink:href=".././interface/symba_encounter_check_tp.html" xlink:title="symba_encounter_check_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="170.5,-2314 23.5,-2314 23.5,-2290 170.5,-2290 170.5,-2314"/>
-<text text-anchor="middle" x="97" y="-2299.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_tp</text>
+<!-- proc~obl_acc_pl -->
+<g id="call~~graph~~CallGraph_node512" class="node">
+<title>proc~obl_acc_pl</title>
+<g id="a_call~~graph~~CallGraph_node512"><a xlink:href=".././proc/obl_acc_pl.html" xlink:title="obl_acc_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="359,-1752 295,-1752 295,-1728 359,-1728 359,-1752"/>
+<text text-anchor="middle" x="327" y="-1737.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_encounter_check_tp&#45;&gt;proc~symba_encounter_check_tp -->
+<!-- interface~obl_acc_pl&#45;&gt;proc~obl_acc_pl -->
 <g id="call~~graph~~CallGraph_edge31" class="edge">
-<title>interface~symba_encounter_check_tp&#45;&gt;proc~symba_encounter_check_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.77,-2302C193.8,-2302 219.43,-2302 243.12,-2302"/>
-<polygon fill="#000000" stroke="#000000" points="243.14,-2305.5 253.14,-2302 243.14,-2298.5 243.14,-2305.5"/>
+<title>interface~obl_acc_pl&#45;&gt;proc~obl_acc_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M129.22,-1740C169.53,-1740 239.8,-1740 284.55,-1740"/>
+<polygon fill="#000000" stroke="#000000" points="284.79,-1743.5 294.79,-1740 284.79,-1736.5 284.79,-1743.5"/>
 </g>
-<!-- interface~symba_fragmentation_casedisruption -->
-<g id="call~~graph~~CallGraph_node43" class="node">
-<title>interface~symba_fragmentation_casedisruption</title>
-<g id="a_call~~graph~~CallGraph_node43"><a xlink:href=".././interface/symba_fragmentation_casedisruption.html" xlink:title="symba_fragmentation_casedisruption">
-<polygon fill="#a7506f" stroke="#a7506f" points="1152,-1873 961,-1873 961,-1849 1152,-1849 1152,-1873"/>
-<text text-anchor="middle" x="1056.5" y="-1858.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casedisruption</text>
+<!-- interface~obl_acc_tp -->
+<g id="call~~graph~~CallGraph_node34" class="node">
+<title>interface~obl_acc_tp</title>
+<g id="a_call~~graph~~CallGraph_node34"><a xlink:href=".././interface/obl_acc_tp.html" xlink:title="obl_acc_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="129,-1794 65,-1794 65,-1770 129,-1770 129,-1794"/>
+<text text-anchor="middle" x="97" y="-1779.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_fragmentation_casedisruption -->
-<g id="call~~graph~~CallGraph_node387" class="node">
-<title>proc~symba_fragmentation_casedisruption</title>
-<g id="a_call~~graph~~CallGraph_node387"><a xlink:href=".././proc/symba_fragmentation_casedisruption.html" xlink:title="symba_fragmentation_casedisruption">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="1417,-1873 1226,-1873 1226,-1849 1417,-1849 1417,-1873"/>
-<text text-anchor="middle" x="1321.5" y="-1858.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casedisruption</text>
+<!-- proc~obl_acc_tp -->
+<g id="call~~graph~~CallGraph_node509" class="node">
+<title>proc~obl_acc_tp</title>
+<g id="a_call~~graph~~CallGraph_node509"><a xlink:href=".././proc/obl_acc_tp.html" xlink:title="obl_acc_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="359,-1794 295,-1794 295,-1770 359,-1770 359,-1794"/>
+<text text-anchor="middle" x="327" y="-1779.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_casedisruption -->
+<!-- interface~obl_acc_tp&#45;&gt;proc~obl_acc_tp -->
 <g id="call~~graph~~CallGraph_edge32" class="edge">
-<title>interface~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_casedisruption</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1152.08,-1861C1172.71,-1861 1194.65,-1861 1215.65,-1861"/>
-<polygon fill="#000000" stroke="#000000" points="1215.88,-1864.5 1225.88,-1861 1215.88,-1857.5 1215.88,-1864.5"/>
+<title>interface~obl_acc_tp&#45;&gt;proc~obl_acc_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M129.22,-1782C169.53,-1782 239.8,-1782 284.55,-1782"/>
+<polygon fill="#000000" stroke="#000000" points="284.79,-1785.5 294.79,-1782 284.79,-1778.5 284.79,-1785.5"/>
 </g>
-<!-- interface~symba_fragmentation_casehitandrun -->
-<g id="call~~graph~~CallGraph_node44" class="node">
-<title>interface~symba_fragmentation_casehitandrun</title>
-<g id="a_call~~graph~~CallGraph_node44"><a xlink:href=".././interface/symba_fragmentation_casehitandrun.html" xlink:title="symba_fragmentation_casehitandrun">
-<polygon fill="#a7506f" stroke="#a7506f" points="1151.5,-1831 961.5,-1831 961.5,-1807 1151.5,-1807 1151.5,-1831"/>
-<text text-anchor="middle" x="1056.5" y="-1816.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casehitandrun</text>
+<!-- interface~obl_pot -->
+<g id="call~~graph~~CallGraph_node35" class="node">
+<title>interface~obl_pot</title>
+<g id="a_call~~graph~~CallGraph_node35"><a xlink:href=".././interface/obl_pot.html" xlink:title="obl_pot">
+<polygon fill="#a7506f" stroke="#a7506f" points="583,-2025 529,-2025 529,-2001 583,-2001 583,-2025"/>
+<text text-anchor="middle" x="556" y="-2010.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_fragmentation_casehitandrun -->
-<g id="call~~graph~~CallGraph_node402" class="node">
-<title>proc~symba_fragmentation_casehitandrun</title>
-<g id="a_call~~graph~~CallGraph_node402"><a xlink:href=".././proc/symba_fragmentation_casehitandrun.html" xlink:title="symba_fragmentation_casehitandrun">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="1416.5,-1831 1226.5,-1831 1226.5,-1807 1416.5,-1807 1416.5,-1831"/>
-<text text-anchor="middle" x="1321.5" y="-1816.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casehitandrun</text>
+<!-- proc~obl_pot -->
+<g id="call~~graph~~CallGraph_node511" class="node">
+<title>proc~obl_pot</title>
+<g id="a_call~~graph~~CallGraph_node511"><a xlink:href=".././proc/obl_pot.html" xlink:title="obl_pot">
+<polygon fill="#d9534f" stroke="#d9534f" points="807,-2025 753,-2025 753,-2001 807,-2001 807,-2025"/>
+<text text-anchor="middle" x="780" y="-2010.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_casehitandrun -->
+<!-- interface~obl_pot&#45;&gt;proc~obl_pot -->
 <g id="call~~graph~~CallGraph_edge33" class="edge">
-<title>interface~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_casehitandrun</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1151.71,-1819C1172.57,-1819 1194.81,-1819 1216.06,-1819"/>
-<polygon fill="#000000" stroke="#000000" points="1216.07,-1822.5 1226.07,-1819 1216.07,-1815.5 1216.07,-1822.5"/>
+<title>interface~obl_pot&#45;&gt;proc~obl_pot</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M583.34,-2013C622.89,-2013 697.76,-2013 742.54,-2013"/>
+<polygon fill="#000000" stroke="#000000" points="742.7,-2016.5 752.7,-2013 742.7,-2009.5 742.7,-2016.5"/>
 </g>
-<!-- interface~symba_fragmentation_casemerge -->
-<g id="call~~graph~~CallGraph_node45" class="node">
-<title>interface~symba_fragmentation_casemerge</title>
-<g id="a_call~~graph~~CallGraph_node45"><a xlink:href=".././interface/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
-<polygon fill="#a7506f" stroke="#a7506f" points="1144,-1915 969,-1915 969,-1891 1144,-1891 1144,-1915"/>
-<text text-anchor="middle" x="1056.5" y="-1900.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
+<!-- interface~orbel_el2xv_vec -->
+<g id="call~~graph~~CallGraph_node36" class="node">
+<title>interface~orbel_el2xv_vec</title>
+<g id="a_call~~graph~~CallGraph_node36"><a xlink:href=".././interface/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
+<polygon fill="#a7506f" stroke="#a7506f" points="142,-2399 52,-2399 52,-2375 142,-2375 142,-2399"/>
+<text text-anchor="middle" x="97" y="-2384.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv_vec</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_fragmentation_casemerge -->
-<g id="call~~graph~~CallGraph_node405" class="node">
-<title>proc~symba_fragmentation_casemerge</title>
-<g id="a_call~~graph~~CallGraph_node405"><a xlink:href=".././proc/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="1409,-1915 1234,-1915 1234,-1891 1409,-1891 1409,-1915"/>
-<text text-anchor="middle" x="1321.5" y="-1900.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
+<!-- proc~orbel_el2xv_vec -->
+<g id="call~~graph~~CallGraph_node247" class="node">
+<title>proc~orbel_el2xv_vec</title>
+<g id="a_call~~graph~~CallGraph_node247"><a xlink:href=".././proc/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
+<polygon fill="#d9534f" stroke="#d9534f" points="372,-2399 282,-2399 282,-2375 372,-2375 372,-2399"/>
+<text text-anchor="middle" x="327" y="-2384.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv_vec</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge -->
+<!-- interface~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv_vec -->
 <g id="call~~graph~~CallGraph_edge34" class="edge">
-<title>interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1144.34,-1903C1169.71,-1903 1197.58,-1903 1223.53,-1903"/>
-<polygon fill="#000000" stroke="#000000" points="1223.75,-1906.5 1233.75,-1903 1223.75,-1899.5 1223.75,-1906.5"/>
+<title>interface~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv_vec</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.23,-2387C179.28,-2387 232.3,-2387 271.88,-2387"/>
+<polygon fill="#000000" stroke="#000000" points="271.89,-2390.5 281.89,-2387 271.89,-2383.5 271.89,-2390.5"/>
 </g>
-<!-- proc~symba_io_write_discard -->
-<g id="call~~graph~~CallGraph_node46" class="node">
-<title>proc~symba_io_write_discard</title>
-<g id="a_call~~graph~~CallGraph_node46"><a xlink:href=".././proc/symba_io_write_discard.html" xlink:title="symba_io_write_discard">
-<polygon fill="#d9534f" stroke="#d9534f" points="867,-1209 740,-1209 740,-1185 867,-1185 867,-1209"/>
-<text text-anchor="middle" x="803.5" y="-1194.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_write_discard</text>
+<!-- interface~orbel_scget -->
+<g id="call~~graph~~CallGraph_node37" class="node">
+<title>interface~orbel_scget</title>
+<g id="a_call~~graph~~CallGraph_node37"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
+<polygon fill="#a7506f" stroke="#a7506f" points="1285.5,-2256 1217.5,-2256 1217.5,-2232 1285.5,-2232 1285.5,-2256"/>
+<text text-anchor="middle" x="1251.5" y="-2241.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
 </a>
 </g>
 </g>
-<!-- util_exit -->
-<g id="call~~graph~~CallGraph_node594" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="1083.5,-1171 1029.5,-1171 1029.5,-1147 1083.5,-1147 1083.5,-1171"/>
-<text text-anchor="middle" x="1056.5" y="-1156.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<!-- proc~orbel_scget -->
+<g id="call~~graph~~CallGraph_node279" class="node">
+<title>proc~orbel_scget</title>
+<g id="a_call~~graph~~CallGraph_node279"><a xlink:href=".././proc/orbel_scget.html" xlink:title="orbel_scget">
+<polygon fill="#d9534f" stroke="#d9534f" points="1538.5,-2256 1470.5,-2256 1470.5,-2232 1538.5,-2232 1538.5,-2256"/>
+<text text-anchor="middle" x="1504.5" y="-2241.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
+</a>
 </g>
-<!-- proc~symba_io_write_discard&#45;&gt;util_exit -->
+</g>
+<!-- interface~orbel_scget&#45;&gt;proc~orbel_scget -->
 <g id="call~~graph~~CallGraph_edge35" class="edge">
-<title>proc~symba_io_write_discard&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M867.19,-1187.51C915.18,-1180.24 979.67,-1170.48 1019.37,-1164.47"/>
-<polygon fill="#000000" stroke="#000000" points="1020.02,-1167.91 1029.39,-1162.95 1018.97,-1160.99 1020.02,-1167.91"/>
+<title>interface~orbel_scget&#45;&gt;proc~orbel_scget</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1285.57,-2244C1330.44,-2244 1410.67,-2244 1460.26,-2244"/>
+<polygon fill="#000000" stroke="#000000" points="1460.35,-2247.5 1470.35,-2244 1460.35,-2240.5 1460.35,-2247.5"/>
 </g>
-<!-- proc~symba_step_system -->
-<g id="call~~graph~~CallGraph_node47" class="node">
-<title>proc~symba_step_system</title>
-<g id="a_call~~graph~~CallGraph_node47"><a xlink:href=".././proc/symba_step_system.html" xlink:title="symba_step_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="382,-2776 272,-2776 272,-2752 382,-2752 382,-2776"/>
-<text text-anchor="middle" x="327" y="-2761.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_system</text>
+<!-- interface~orbel_xv2aeq -->
+<g id="call~~graph~~CallGraph_node38" class="node">
+<title>interface~orbel_xv2aeq</title>
+<g id="a_call~~graph~~CallGraph_node38"><a xlink:href=".././interface/orbel_xv2aeq.html" xlink:title="orbel_xv2aeq">
+<polygon fill="#a7506f" stroke="#a7506f" points="594.5,-2542 517.5,-2542 517.5,-2518 594.5,-2518 594.5,-2542"/>
+<text text-anchor="middle" x="556" y="-2527.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aeq</text>
 </a>
 </g>
 </g>
-<!-- helio_step_system -->
-<g id="call~~graph~~CallGraph_node581" class="node">
-<title>helio_step_system</title>
-<polygon fill="#777777" stroke="#777777" points="613,-2776 512,-2776 512,-2752 613,-2752 613,-2776"/>
-<text text-anchor="middle" x="562.5" y="-2761.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_system</text>
+<!-- proc~orbel_xv2aeq -->
+<g id="call~~graph~~CallGraph_node192" class="node">
+<title>proc~orbel_xv2aeq</title>
+<g id="a_call~~graph~~CallGraph_node192"><a xlink:href=".././proc/orbel_xv2aeq.html" xlink:title="orbel_xv2aeq">
+<polygon fill="#d9534f" stroke="#d9534f" points="818.5,-2542 741.5,-2542 741.5,-2518 818.5,-2518 818.5,-2542"/>
+<text text-anchor="middle" x="780" y="-2527.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aeq</text>
+</a>
 </g>
-<!-- proc~symba_step_system&#45;&gt;helio_step_system -->
+</g>
+<!-- interface~orbel_xv2aeq&#45;&gt;proc~orbel_xv2aeq -->
 <g id="call~~graph~~CallGraph_edge36" class="edge">
-<title>proc~symba_step_system&#45;&gt;helio_step_system</title>
-<path fill="none" stroke="#000000" d="M382.16,-2764C417.87,-2764 464.67,-2764 501.51,-2764"/>
-<polygon fill="#000000" stroke="#000000" points="501.62,-2767.5 511.62,-2764 501.62,-2760.5 501.62,-2767.5"/>
+<title>interface~orbel_xv2aeq&#45;&gt;proc~orbel_xv2aeq</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M594.66,-2530C632.21,-2530 690.04,-2530 730.9,-2530"/>
+<polygon fill="#000000" stroke="#000000" points="731.16,-2533.5 741.16,-2530 731.16,-2526.5 731.16,-2533.5"/>
 </g>
-<!-- interface~symba_fragmentation_casesupercatastrophic -->
-<g id="call~~graph~~CallGraph_node48" class="node">
-<title>interface~symba_fragmentation_casesupercatastrophic</title>
-<g id="a_call~~graph~~CallGraph_node48"><a xlink:href=".././interface/symba_fragmentation_casesupercatastrophic.html" xlink:title="symba_fragmentation_casesupercatastrophic">
-<polygon fill="#a7506f" stroke="#a7506f" points="1171,-1789 942,-1789 942,-1765 1171,-1765 1171,-1789"/>
-<text text-anchor="middle" x="1056.5" y="-1774.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casesupercatastrophic</text>
+<!-- interface~orbel_xv2aqt -->
+<g id="call~~graph~~CallGraph_node39" class="node">
+<title>interface~orbel_xv2aqt</title>
+<g id="a_call~~graph~~CallGraph_node39"><a xlink:href=".././interface/orbel_xv2aqt.html" xlink:title="orbel_xv2aqt">
+<polygon fill="#a7506f" stroke="#a7506f" points="134,-2584 60,-2584 60,-2560 134,-2560 134,-2584"/>
+<text text-anchor="middle" x="97" y="-2569.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aqt</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_fragmentation_casesupercatastrophic -->
-<g id="call~~graph~~CallGraph_node153" class="node">
-<title>proc~symba_fragmentation_casesupercatastrophic</title>
-<g id="a_call~~graph~~CallGraph_node153"><a xlink:href=".././proc/symba_fragmentation_casesupercatastrophic.html" xlink:title="symba_fragmentation_casesupercatastrophic">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="1436,-1789 1207,-1789 1207,-1765 1436,-1765 1436,-1789"/>
-<text text-anchor="middle" x="1321.5" y="-1774.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casesupercatastrophic</text>
+<!-- proc~orbel_xv2aqt -->
+<g id="call~~graph~~CallGraph_node200" class="node">
+<title>proc~orbel_xv2aqt</title>
+<g id="a_call~~graph~~CallGraph_node200"><a xlink:href=".././proc/orbel_xv2aqt.html" xlink:title="orbel_xv2aqt">
+<polygon fill="#d9534f" stroke="#d9534f" points="364,-2584 290,-2584 290,-2560 364,-2560 364,-2584"/>
+<text text-anchor="middle" x="327" y="-2569.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aqt</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_casesupercatastrophic -->
+<!-- interface~orbel_xv2aqt&#45;&gt;proc~orbel_xv2aqt -->
 <g id="call~~graph~~CallGraph_edge37" class="edge">
-<title>interface~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_casesupercatastrophic</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1171.33,-1777C1179.72,-1777 1188.2,-1777 1196.65,-1777"/>
-<polygon fill="#000000" stroke="#000000" points="1196.92,-1780.5 1206.92,-1777 1196.92,-1773.5 1196.92,-1780.5"/>
+<title>interface~orbel_xv2aqt&#45;&gt;proc~orbel_xv2aqt</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M134.13,-2572C173.45,-2572 236.46,-2572 279.46,-2572"/>
+<polygon fill="#000000" stroke="#000000" points="279.67,-2575.5 289.66,-2572 279.66,-2568.5 279.67,-2575.5"/>
 </g>
-<!-- interface~symba_collision_check_pltpenc -->
-<g id="call~~graph~~CallGraph_node49" class="node">
-<title>interface~symba_collision_check_pltpenc</title>
-<g id="a_call~~graph~~CallGraph_node49"><a xlink:href=".././interface/symba_collision_check_pltpenc.html" xlink:title="symba_collision_check_pltpenc">
-<polygon fill="#a7506f" stroke="#a7506f" points="178,-478 16,-478 16,-454 178,-454 178,-478"/>
-<text text-anchor="middle" x="97" y="-463.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_pltpenc</text>
+<!-- interface~util_append_body -->
+<g id="call~~graph~~CallGraph_node40" class="node">
+<title>interface~util_append_body</title>
+<g id="a_call~~graph~~CallGraph_node40"><a xlink:href=".././interface/util_append_body.html" xlink:title="util_append_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="828.5,-316 731.5,-316 731.5,-292 828.5,-292 828.5,-316"/>
+<text text-anchor="middle" x="780" y="-301.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_collision_check_pltpenc&#45;&gt;proc~symba_collision_check_pltpenc -->
+<!-- proc~util_append_body -->
+<g id="call~~graph~~CallGraph_node114" class="node">
+<title>proc~util_append_body</title>
+<g id="a_call~~graph~~CallGraph_node114"><a xlink:href=".././proc/util_append_body.html" xlink:title="util_append_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="1059,-316 962,-316 962,-292 1059,-292 1059,-316"/>
+<text text-anchor="middle" x="1010.5" y="-301.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
+</a>
+</g>
+</g>
+<!-- interface~util_append_body&#45;&gt;proc~util_append_body -->
 <g id="call~~graph~~CallGraph_edge38" class="edge">
-<title>interface~symba_collision_check_pltpenc&#45;&gt;proc~symba_collision_check_pltpenc</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.06,-466C196.66,-466 216.59,-466 235.6,-466"/>
-<polygon fill="#000000" stroke="#000000" points="235.74,-469.5 245.74,-466 235.74,-462.5 235.74,-469.5"/>
+<title>interface~util_append_body&#45;&gt;proc~util_append_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M828.62,-304C864.37,-304 913.49,-304 951.53,-304"/>
+<polygon fill="#000000" stroke="#000000" points="951.94,-307.5 961.94,-304 951.94,-300.5 951.94,-307.5"/>
 </g>
-<!-- interface~symba_collision_encounter_scrub -->
-<g id="call~~graph~~CallGraph_node50" class="node">
-<title>interface~symba_collision_encounter_scrub</title>
-<g id="a_call~~graph~~CallGraph_node50"><a xlink:href=".././interface/symba_collision_encounter_scrub.html" xlink:title="symba_collision_encounter_scrub">
-<polygon fill="#a7506f" stroke="#a7506f" points="649.5,-2020 475.5,-2020 475.5,-1996 649.5,-1996 649.5,-2020"/>
-<text text-anchor="middle" x="562.5" y="-2005.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_encounter_scrub</text>
+<!-- interface~orbel_xv2el_vec -->
+<g id="call~~graph~~CallGraph_node41" class="node">
+<title>interface~orbel_xv2el_vec</title>
+<g id="a_call~~graph~~CallGraph_node41"><a xlink:href=".././interface/orbel_xv2el_vec.html" xlink:title="orbel_xv2el_vec">
+<polygon fill="#a7506f" stroke="#a7506f" points="142,-2626 52,-2626 52,-2602 142,-2602 142,-2626"/>
+<text text-anchor="middle" x="97" y="-2611.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el_vec</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_collision_encounter_scrub&#45;&gt;proc~symba_collision_encounter_scrub -->
+<!-- proc~orbel_xv2el_vec -->
+<g id="call~~graph~~CallGraph_node176" class="node">
+<title>proc~orbel_xv2el_vec</title>
+<g id="a_call~~graph~~CallGraph_node176"><a xlink:href=".././proc/orbel_xv2el_vec.html" xlink:title="orbel_xv2el_vec">
+<polygon fill="#d9534f" stroke="#d9534f" points="372,-2626 282,-2626 282,-2602 372,-2602 372,-2626"/>
+<text text-anchor="middle" x="327" y="-2611.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el_vec</text>
+</a>
+</g>
+</g>
+<!-- interface~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el_vec -->
 <g id="call~~graph~~CallGraph_edge39" class="edge">
-<title>interface~symba_collision_encounter_scrub&#45;&gt;proc~symba_collision_encounter_scrub</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M649.78,-2008C668.06,-2008 687.46,-2008 706.09,-2008"/>
-<polygon fill="#000000" stroke="#000000" points="706.34,-2011.5 716.34,-2008 706.34,-2004.5 706.34,-2011.5"/>
+<title>interface~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el_vec</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.23,-2614C179.28,-2614 232.3,-2614 271.88,-2614"/>
+<polygon fill="#000000" stroke="#000000" points="271.89,-2617.5 281.89,-2614 271.89,-2610.5 271.89,-2617.5"/>
 </g>
-<!-- interface~symba_collision_make_family_pl -->
-<g id="call~~graph~~CallGraph_node51" class="node">
-<title>interface~symba_collision_make_family_pl</title>
-<g id="a_call~~graph~~CallGraph_node51"><a xlink:href=".././interface/symba_collision_make_family_pl.html" xlink:title="symba_collision_make_family_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="181,-2692 13,-2692 13,-2668 181,-2668 181,-2692"/>
-<text text-anchor="middle" x="97" y="-2677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_make_family_pl</text>
+<!-- interface~util_append_pl -->
+<g id="call~~graph~~CallGraph_node42" class="node">
+<title>interface~util_append_pl</title>
+<g id="a_call~~graph~~CallGraph_node42"><a xlink:href=".././interface/util_append_pl.html" xlink:title="util_append_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="368,-276 286,-276 286,-252 368,-252 368,-276"/>
+<text text-anchor="middle" x="327" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_collision_make_family_pl&#45;&gt;proc~symba_collision_make_family_pl -->
-<g id="call~~graph~~CallGraph_edge40" class="edge">
-<title>interface~symba_collision_make_family_pl&#45;&gt;proc~symba_collision_make_family_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.28,-2680C197.93,-2680 215.51,-2680 232.48,-2680"/>
-<polygon fill="#000000" stroke="#000000" points="232.94,-2683.5 242.94,-2680 232.94,-2676.5 232.94,-2683.5"/>
-</g>
-<!-- proc~symba_step_set_recur_levels_system -->
-<g id="call~~graph~~CallGraph_node52" class="node">
-<title>proc~symba_step_set_recur_levels_system</title>
-<g id="a_call~~graph~~CallGraph_node52"><a xlink:href=".././proc/symba_step_set_recur_levels_system.html" xlink:title="symba_step_set_recur_levels_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="424,-2818 230,-2818 230,-2794 424,-2794 424,-2818"/>
-<text text-anchor="middle" x="327" y="-2803.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_set_recur_levels_system</text>
+<!-- proc~util_append_pl -->
+<g id="call~~graph~~CallGraph_node319" class="node">
+<title>proc~util_append_pl</title>
+<g id="a_call~~graph~~CallGraph_node319"><a xlink:href=".././proc/util_append_pl.html" xlink:title="util_append_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="597,-276 515,-276 515,-252 597,-252 597,-276"/>
+<text text-anchor="middle" x="556" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_collision_resolve_fragmentations -->
-<g id="call~~graph~~CallGraph_node53" class="node">
-<title>interface~symba_collision_resolve_fragmentations</title>
-<g id="a_call~~graph~~CallGraph_node53"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
-<polygon fill="#a7506f" stroke="#a7506f" points="665,-1894 460,-1894 460,-1870 665,-1870 665,-1894"/>
-<text text-anchor="middle" x="562.5" y="-1879.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
+<!-- interface~util_append_pl&#45;&gt;proc~util_append_pl -->
+<g id="call~~graph~~CallGraph_edge40" class="edge">
+<title>interface~util_append_pl&#45;&gt;proc~util_append_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.06,-264C406.19,-264 463.71,-264 504.87,-264"/>
+<polygon fill="#000000" stroke="#000000" points="504.96,-267.5 514.96,-264 504.96,-260.5 504.96,-267.5"/>
+</g>
+<!-- interface~setup_body -->
+<g id="call~~graph~~CallGraph_node43" class="node">
+<title>interface~setup_body</title>
+<g id="a_call~~graph~~CallGraph_node43"><a xlink:href=".././interface/setup_body.html" xlink:title="setup_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="590,-2689 522,-2689 522,-2665 590,-2665 590,-2689"/>
+<text text-anchor="middle" x="556" y="-2674.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_body</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations -->
-<g id="call~~graph~~CallGraph_node69" class="node">
-<title>proc~symba_collision_resolve_fragmentations</title>
-<g id="a_call~~graph~~CallGraph_node69"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
-<polygon fill="#d9534f" stroke="#d9534f" points="906,-1894 701,-1894 701,-1870 906,-1870 906,-1894"/>
-<text text-anchor="middle" x="803.5" y="-1879.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
+<!-- proc~setup_body -->
+<g id="call~~graph~~CallGraph_node106" class="node">
+<title>proc~setup_body</title>
+<g id="a_call~~graph~~CallGraph_node106"><a xlink:href=".././proc/setup_body.html" xlink:title="setup_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="814,-2689 746,-2689 746,-2665 814,-2665 814,-2689"/>
+<text text-anchor="middle" x="780" y="-2674.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_body</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_resolve_fragmentations -->
+<!-- interface~setup_body&#45;&gt;proc~setup_body -->
 <g id="call~~graph~~CallGraph_edge41" class="edge">
-<title>interface~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_resolve_fragmentations</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M665.2,-1882C673.7,-1882 682.31,-1882 690.87,-1882"/>
-<polygon fill="#000000" stroke="#000000" points="690.89,-1885.5 700.89,-1882 690.89,-1878.5 690.89,-1885.5"/>
+<title>interface~setup_body&#45;&gt;proc~setup_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M590.24,-2677C629.01,-2677 693.23,-2677 735.83,-2677"/>
+<polygon fill="#000000" stroke="#000000" points="735.9,-2680.5 745.9,-2677 735.9,-2673.5 735.9,-2680.5"/>
 </g>
-<!-- proc~symba_step_interp_system -->
-<g id="call~~graph~~CallGraph_node54" class="node">
-<title>proc~symba_step_interp_system</title>
-<g id="a_call~~graph~~CallGraph_node54"><a xlink:href=".././proc/symba_step_interp_system.html" xlink:title="symba_step_interp_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="398.5,-2860 255.5,-2860 255.5,-2836 398.5,-2836 398.5,-2860"/>
-<text text-anchor="middle" x="327" y="-2845.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_interp_system</text>
+<!-- interface~util_append_tp -->
+<g id="call~~graph~~CallGraph_node44" class="node">
+<title>interface~util_append_tp</title>
+<g id="a_call~~graph~~CallGraph_node44"><a xlink:href=".././interface/util_append_tp.html" xlink:title="util_append_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="368.5,-318 285.5,-318 285.5,-294 368.5,-294 368.5,-318"/>
+<text text-anchor="middle" x="327" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_collision_resolve_mergers -->
-<g id="call~~graph~~CallGraph_node55" class="node">
-<title>interface~symba_collision_resolve_mergers</title>
-<g id="a_call~~graph~~CallGraph_node55"><a xlink:href=".././interface/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
-<polygon fill="#a7506f" stroke="#a7506f" points="649.5,-1978 475.5,-1978 475.5,-1954 649.5,-1954 649.5,-1978"/>
-<text text-anchor="middle" x="562.5" y="-1963.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_mergers</text>
+<!-- proc~util_append_tp -->
+<g id="call~~graph~~CallGraph_node318" class="node">
+<title>proc~util_append_tp</title>
+<g id="a_call~~graph~~CallGraph_node318"><a xlink:href=".././proc/util_append_tp.html" xlink:title="util_append_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="597.5,-318 514.5,-318 514.5,-294 597.5,-294 597.5,-318"/>
+<text text-anchor="middle" x="556" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_resolve_mergers -->
-<g id="call~~graph~~CallGraph_node78" class="node">
-<title>proc~symba_collision_resolve_mergers</title>
-<g id="a_call~~graph~~CallGraph_node78"><a xlink:href=".././proc/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
-<polygon fill="#d9534f" stroke="#d9534f" points="890.5,-1978 716.5,-1978 716.5,-1954 890.5,-1954 890.5,-1978"/>
-<text text-anchor="middle" x="803.5" y="-1963.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_mergers</text>
-</a>
+<!-- interface~util_append_tp&#45;&gt;proc~util_append_tp -->
+<g id="call~~graph~~CallGraph_edge42" class="edge">
+<title>interface~util_append_tp&#45;&gt;proc~util_append_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.58,-306C406.56,-306 463.41,-306 504.34,-306"/>
+<polygon fill="#000000" stroke="#000000" points="504.39,-309.5 514.39,-306 504.39,-302.5 504.39,-309.5"/>
 </g>
+<!-- interface~setup_construct_system -->
+<g id="call~~graph~~CallGraph_node45" class="node">
+<title>interface~setup_construct_system</title>
+<g id="a_call~~graph~~CallGraph_node45"><a xlink:href=".././interface/setup_construct_system.html" xlink:title="setup_construct_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="391,-822 263,-822 263,-798 391,-798 391,-822"/>
+<text text-anchor="middle" x="327" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
+</a>
 </g>
-<!-- interface~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_resolve_mergers -->
-<g id="call~~graph~~CallGraph_edge42" class="edge">
-<title>interface~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_resolve_mergers</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M649.78,-1966C668.06,-1966 687.46,-1966 706.09,-1966"/>
-<polygon fill="#000000" stroke="#000000" points="706.34,-1969.5 716.34,-1966 706.34,-1962.5 706.34,-1969.5"/>
 </g>
-<!-- proc~symba_step_recur_system -->
-<g id="call~~graph~~CallGraph_node56" class="node">
-<title>proc~symba_step_recur_system</title>
-<g id="a_call~~graph~~CallGraph_node56"><a xlink:href=".././proc/symba_step_recur_system.html" xlink:title="symba_step_recur_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="874,-1251 733,-1251 733,-1227 874,-1227 874,-1251"/>
-<text text-anchor="middle" x="803.5" y="-1236.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_recur_system</text>
+<!-- proc~setup_construct_system -->
+<g id="call~~graph~~CallGraph_node102" class="node">
+<title>proc~setup_construct_system</title>
+<g id="a_call~~graph~~CallGraph_node102"><a xlink:href=".././proc/setup_construct_system.html" xlink:title="setup_construct_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="620,-822 492,-822 492,-798 620,-798 620,-822"/>
+<text text-anchor="middle" x="556" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_step_recur_system&#45;&gt;util_exit -->
+<!-- interface~setup_construct_system&#45;&gt;proc~setup_construct_system -->
 <g id="call~~graph~~CallGraph_edge43" class="edge">
-<title>proc~symba_step_recur_system&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M870.97,-1226.96C882.73,-1224.34 894.79,-1221.34 906,-1218 945.93,-1206.09 990.15,-1187.99 1020.06,-1174.99"/>
-<polygon fill="#000000" stroke="#000000" points="1021.5,-1178.18 1029.25,-1170.96 1018.69,-1171.77 1021.5,-1178.18"/>
+<title>interface~setup_construct_system&#45;&gt;proc~setup_construct_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M391.23,-810C419.28,-810 452.46,-810 481.59,-810"/>
+<polygon fill="#000000" stroke="#000000" points="481.71,-813.5 491.71,-810 481.71,-806.5 481.71,-813.5"/>
 </g>
-<!-- interface~symba_discard_pl -->
-<g id="call~~graph~~CallGraph_node57" class="node">
-<title>interface~symba_discard_pl</title>
-<g id="a_call~~graph~~CallGraph_node57"><a xlink:href=".././interface/symba_discard_pl.html" xlink:title="symba_discard_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="146.5,-604 47.5,-604 47.5,-580 146.5,-580 146.5,-604"/>
-<text text-anchor="middle" x="97" y="-589.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_pl</text>
+<!-- interface~util_coord_b2h_pl -->
+<g id="call~~graph~~CallGraph_node46" class="node">
+<title>interface~util_coord_b2h_pl</title>
+<g id="a_call~~graph~~CallGraph_node46"><a xlink:href=".././interface/util_coord_b2h_pl.html" xlink:title="util_coord_b2h_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="145.5,-2752 48.5,-2752 48.5,-2728 145.5,-2728 145.5,-2752"/>
+<text text-anchor="middle" x="97" y="-2737.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_b2h_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_discard_pl&#45;&gt;proc~symba_discard_pl -->
-<g id="call~~graph~~CallGraph_edge44" class="edge">
-<title>interface~symba_discard_pl&#45;&gt;proc~symba_discard_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M146.63,-592C181.9,-592 229.77,-592 267.19,-592"/>
-<polygon fill="#000000" stroke="#000000" points="267.44,-595.5 277.44,-592 267.44,-588.5 267.44,-595.5"/>
+<!-- proc~util_coord_b2h_pl -->
+<g id="call~~graph~~CallGraph_node225" class="node">
+<title>proc~util_coord_b2h_pl</title>
+<g id="a_call~~graph~~CallGraph_node225"><a xlink:href=".././proc/util_coord_b2h_pl.html" xlink:title="util_coord_b2h_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="375.5,-2752 278.5,-2752 278.5,-2728 375.5,-2728 375.5,-2752"/>
+<text text-anchor="middle" x="327" y="-2737.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_b2h_pl</text>
+</a>
 </g>
-<!-- interface~symba_drift_pl -->
-<g id="call~~graph~~CallGraph_node58" class="node">
-<title>interface~symba_drift_pl</title>
-<g id="a_call~~graph~~CallGraph_node58"><a xlink:href=".././interface/symba_drift_pl.html" xlink:title="symba_drift_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="138,-2944 56,-2944 56,-2920 138,-2920 138,-2944"/>
-<text text-anchor="middle" x="97" y="-2929.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift_pl</text>
+</g>
+<!-- interface~util_coord_b2h_pl&#45;&gt;proc~util_coord_b2h_pl -->
+<g id="call~~graph~~CallGraph_edge44" class="edge">
+<title>interface~util_coord_b2h_pl&#45;&gt;proc~util_coord_b2h_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.52,-2740C181.07,-2740 229.87,-2740 267.77,-2740"/>
+<polygon fill="#000000" stroke="#000000" points="268.15,-2743.5 278.15,-2740 268.15,-2736.5 268.15,-2743.5"/>
+</g>
+<!-- interface~lambda_obj~2 -->
+<g id="call~~graph~~CallGraph_node47" class="node">
+<title>interface~lambda_obj~2</title>
+<g id="a_call~~graph~~CallGraph_node47"><a xlink:href=".././interface/lambda_obj~2.html" xlink:title="lambda_obj">
+<polygon fill="#a7506f" stroke="#a7506f" points="131,-2836 63,-2836 63,-2812 131,-2812 131,-2836"/>
+<text text-anchor="middle" x="97" y="-2821.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_drift_pl -->
-<g id="call~~graph~~CallGraph_node129" class="node">
-<title>proc~symba_drift_pl</title>
-<g id="a_call~~graph~~CallGraph_node129"><a xlink:href=".././proc/symba_drift_pl.html" xlink:title="symba_drift_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="368,-2944 286,-2944 286,-2920 368,-2920 368,-2944"/>
-<text text-anchor="middle" x="327" y="-2929.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift_pl</text>
+<!-- proc~lambda_init_0 -->
+<g id="call~~graph~~CallGraph_node57" class="node">
+<title>proc~lambda_init_0</title>
+<g id="a_call~~graph~~CallGraph_node57"><a xlink:href=".././proc/lambda_init_0.html" xlink:title="lambda_init_0">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="366.5,-2878 287.5,-2878 287.5,-2854 366.5,-2854 366.5,-2878"/>
+<text text-anchor="middle" x="327" y="-2863.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_init_0</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_drift_pl&#45;&gt;proc~symba_drift_pl -->
+<!-- interface~lambda_obj~2&#45;&gt;proc~lambda_init_0 -->
 <g id="call~~graph~~CallGraph_edge45" class="edge">
-<title>interface~symba_drift_pl&#45;&gt;proc~symba_drift_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.24,-2932C176.54,-2932 234.31,-2932 275.65,-2932"/>
-<polygon fill="#000000" stroke="#000000" points="275.78,-2935.5 285.78,-2932 275.78,-2928.5 275.78,-2935.5"/>
+<title>interface~lambda_obj~2&#45;&gt;proc~lambda_init_0</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M131.15,-2830.11C169.65,-2837.2 233.5,-2848.96 277.55,-2857.08"/>
+<polygon fill="#000000" stroke="#000000" points="277,-2860.53 287.47,-2858.9 278.27,-2853.65 277,-2860.53"/>
 </g>
-<!-- interface~symba_drift_tp -->
-<g id="call~~graph~~CallGraph_node59" class="node">
-<title>interface~symba_drift_tp</title>
-<g id="a_call~~graph~~CallGraph_node59"><a xlink:href=".././interface/symba_drift_tp.html" xlink:title="symba_drift_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="138.5,-2902 55.5,-2902 55.5,-2878 138.5,-2878 138.5,-2902"/>
-<text text-anchor="middle" x="97" y="-2887.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift_tp</text>
+<!-- proc~lambda_init_0_err -->
+<g id="call~~graph~~CallGraph_node65" class="node">
+<title>proc~lambda_init_0_err</title>
+<g id="a_call~~graph~~CallGraph_node65"><a xlink:href=".././proc/lambda_init_0_err.html" xlink:title="lambda_init_0_err">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="376.5,-2836 277.5,-2836 277.5,-2812 376.5,-2812 376.5,-2836"/>
+<text text-anchor="middle" x="327" y="-2821.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_init_0_err</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_drift_tp -->
-<g id="call~~graph~~CallGraph_node155" class="node">
-<title>proc~symba_drift_tp</title>
-<g id="a_call~~graph~~CallGraph_node155"><a xlink:href=".././proc/symba_drift_tp.html" xlink:title="symba_drift_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="368.5,-2902 285.5,-2902 285.5,-2878 368.5,-2878 368.5,-2902"/>
-<text text-anchor="middle" x="327" y="-2887.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift_tp</text>
+<!-- interface~lambda_obj~2&#45;&gt;proc~lambda_init_0_err -->
+<g id="call~~graph~~CallGraph_edge46" class="edge">
+<title>interface~lambda_obj~2&#45;&gt;proc~lambda_init_0_err</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M131.15,-2824C166.71,-2824 223.89,-2824 267.14,-2824"/>
+<polygon fill="#000000" stroke="#000000" points="267.25,-2827.5 277.25,-2824 267.25,-2820.5 267.25,-2827.5"/>
+</g>
+<!-- proc~lambda_init_tvar -->
+<g id="call~~graph~~CallGraph_node71" class="node">
+<title>proc~lambda_init_tvar</title>
+<g id="a_call~~graph~~CallGraph_node71"><a xlink:href=".././proc/lambda_init_tvar.html" xlink:title="lambda_init_tvar">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="372.5,-2794 281.5,-2794 281.5,-2770 372.5,-2770 372.5,-2794"/>
+<text text-anchor="middle" x="327" y="-2779.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_init_tvar</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_drift_tp&#45;&gt;proc~symba_drift_tp -->
-<g id="call~~graph~~CallGraph_edge46" class="edge">
-<title>interface~symba_drift_tp&#45;&gt;proc~symba_drift_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.76,-2890C176.9,-2890 234.01,-2890 275.12,-2890"/>
-<polygon fill="#000000" stroke="#000000" points="275.21,-2893.5 285.21,-2890 275.21,-2886.5 275.21,-2893.5"/>
+<!-- interface~lambda_obj~2&#45;&gt;proc~lambda_init_tvar -->
+<g id="call~~graph~~CallGraph_edge47" class="edge">
+<title>interface~lambda_obj~2&#45;&gt;proc~lambda_init_tvar</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M131.15,-2817.89C167.93,-2811.12 227.85,-2800.08 271.54,-2792.03"/>
+<polygon fill="#000000" stroke="#000000" points="272.24,-2795.46 281.44,-2790.21 270.97,-2788.58 272.24,-2795.46"/>
 </g>
-<!-- interface~util_append~2 -->
-<g id="call~~graph~~CallGraph_node60" class="node">
-<title>interface~util_append~2</title>
-<g id="a_call~~graph~~CallGraph_node60"><a xlink:href=".././interface/util_append~2.html" xlink:title="util_append">
-<polygon fill="#a7506f" stroke="#a7506f" points="1567,-3724 1499,-3724 1499,-3700 1567,-3700 1567,-3724"/>
-<text text-anchor="middle" x="1533" y="-3709.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<!-- proc~orbel_xv2el -->
+<g id="call~~graph~~CallGraph_node48" class="node">
+<title>proc~orbel_xv2el</title>
+<g id="a_call~~graph~~CallGraph_node48"><a xlink:href=".././proc/orbel_xv2el.html" xlink:title="orbel_xv2el">
+<polygon fill="#d9534f" stroke="#d9534f" points="589.5,-2626 522.5,-2626 522.5,-2602 589.5,-2602 589.5,-2626"/>
+<text text-anchor="middle" x="556" y="-2611.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_encounter_check_one -->
-<g id="call~~graph~~CallGraph_node61" class="node">
-<title>interface~symba_encounter_check_one</title>
-<g id="a_call~~graph~~CallGraph_node61"><a xlink:href=".././interface/symba_encounter_check_one.html" xlink:title="symba_encounter_check_one">
-<polygon fill="#a7506f" stroke="#a7506f" points="175,-2272 19,-2272 19,-2248 175,-2248 175,-2272"/>
-<text text-anchor="middle" x="97" y="-2257.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_one</text>
+<!-- interface~setup_encounter -->
+<g id="call~~graph~~CallGraph_node49" class="node">
+<title>interface~setup_encounter</title>
+<g id="a_call~~graph~~CallGraph_node49"><a xlink:href=".././interface/setup_encounter.html" xlink:title="setup_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="143.5,-2920 50.5,-2920 50.5,-2896 143.5,-2896 143.5,-2920"/>
+<text text-anchor="middle" x="97" y="-2905.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_encounter</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_encounter_check_one&#45;&gt;proc~symba_encounter_check_one -->
-<g id="call~~graph~~CallGraph_edge47" class="edge">
-<title>interface~symba_encounter_check_one&#45;&gt;proc~symba_encounter_check_one</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M175.19,-2260C195.62,-2260 217.81,-2260 238.73,-2260"/>
-<polygon fill="#000000" stroke="#000000" points="238.89,-2263.5 248.89,-2260 238.89,-2256.5 238.89,-2263.5"/>
-</g>
-<!-- proc~orbel_flon -->
-<g id="call~~graph~~CallGraph_node62" class="node">
-<title>proc~orbel_flon</title>
-<g id="a_call~~graph~~CallGraph_node62"><a xlink:href=".././proc/orbel_flon.html" xlink:title="orbel_flon">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="1086.5,-24 1026.5,-24 1026.5,0 1086.5,0 1086.5,-24"/>
-<text text-anchor="middle" x="1056.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_flon</text>
+<!-- proc~setup_encounter -->
+<g id="call~~graph~~CallGraph_node104" class="node">
+<title>proc~setup_encounter</title>
+<g id="a_call~~graph~~CallGraph_node104"><a xlink:href=".././proc/setup_encounter.html" xlink:title="setup_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="373.5,-2920 280.5,-2920 280.5,-2896 373.5,-2896 373.5,-2920"/>
+<text text-anchor="middle" x="327" y="-2905.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_encounter</text>
 </a>
 </g>
 </g>
-<!-- 3 -->
-<g id="call~~graph~~CallGraph_node585" class="node">
-<title>3</title>
-<polygon fill="#777777" stroke="#777777" points="1348.5,-24 1294.5,-24 1294.5,0 1348.5,0 1348.5,-24"/>
-<text text-anchor="middle" x="1321.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">3</text>
-</g>
-<!-- proc~orbel_flon&#45;&gt;3 -->
+<!-- interface~setup_encounter&#45;&gt;proc~setup_encounter -->
 <g id="call~~graph~~CallGraph_edge48" class="edge">
-<title>proc~orbel_flon&#45;&gt;3</title>
-<path fill="none" stroke="#000000" d="M1086.65,-12C1134.95,-12 1231.45,-12 1284.13,-12"/>
-<polygon fill="#000000" stroke="#000000" points="1284.36,-15.5 1294.36,-12 1284.36,-8.5 1284.36,-15.5"/>
+<title>interface~setup_encounter&#45;&gt;proc~setup_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M143.59,-2908C180.09,-2908 231.45,-2908 270.37,-2908"/>
+<polygon fill="#000000" stroke="#000000" points="270.49,-2911.5 280.49,-2908 270.49,-2904.5 270.49,-2911.5"/>
 </g>
-<!-- interface~symba_io_write_discard -->
-<g id="call~~graph~~CallGraph_node63" class="node">
-<title>interface~symba_io_write_discard</title>
-<g id="a_call~~graph~~CallGraph_node63"><a xlink:href=".././interface/symba_io_write_discard.html" xlink:title="symba_io_write_discard">
-<polygon fill="#a7506f" stroke="#a7506f" points="626,-1209 499,-1209 499,-1185 626,-1185 626,-1209"/>
-<text text-anchor="middle" x="562.5" y="-1194.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_write_discard</text>
+<!-- interface~util_coord_b2h_tp -->
+<g id="call~~graph~~CallGraph_node50" class="node">
+<title>interface~util_coord_b2h_tp</title>
+<g id="a_call~~graph~~CallGraph_node50"><a xlink:href=".././interface/util_coord_b2h_tp.html" xlink:title="util_coord_b2h_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="146,-2962 48,-2962 48,-2938 146,-2938 146,-2962"/>
+<text text-anchor="middle" x="97" y="-2947.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_b2h_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_io_write_discard&#45;&gt;proc~symba_io_write_discard -->
+<!-- proc~util_coord_b2h_tp -->
+<g id="call~~graph~~CallGraph_node231" class="node">
+<title>proc~util_coord_b2h_tp</title>
+<g id="a_call~~graph~~CallGraph_node231"><a xlink:href=".././proc/util_coord_b2h_tp.html" xlink:title="util_coord_b2h_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="376,-2962 278,-2962 278,-2938 376,-2938 376,-2962"/>
+<text text-anchor="middle" x="327" y="-2947.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_b2h_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~util_coord_b2h_tp&#45;&gt;proc~util_coord_b2h_tp -->
 <g id="call~~graph~~CallGraph_edge49" class="edge">
-<title>interface~symba_io_write_discard&#45;&gt;proc~symba_io_write_discard</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.29,-1197C658,-1197 696.65,-1197 729.66,-1197"/>
-<polygon fill="#000000" stroke="#000000" points="729.71,-1200.5 739.71,-1197 729.71,-1193.5 729.71,-1200.5"/>
+<title>interface~util_coord_b2h_tp&#45;&gt;proc~util_coord_b2h_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M146.07,-2950C181.54,-2950 229.98,-2950 267.67,-2950"/>
+<polygon fill="#000000" stroke="#000000" points="267.99,-2953.5 277.99,-2950 267.99,-2946.5 267.99,-2953.5"/>
 </g>
-<!-- interface~symba_io_dump_particle_info -->
-<g id="call~~graph~~CallGraph_node64" class="node">
-<title>interface~symba_io_dump_particle_info</title>
-<g id="a_call~~graph~~CallGraph_node64"><a xlink:href=".././interface/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
-<polygon fill="#a7506f" stroke="#a7506f" points="174.5,-562 19.5,-562 19.5,-538 174.5,-538 174.5,-562"/>
-<text text-anchor="middle" x="97" y="-547.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
+<!-- interface~setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node51" class="node">
+<title>interface~setup_initialize_system</title>
+<g id="a_call~~graph~~CallGraph_node51"><a xlink:href=".././interface/setup_initialize_system.html" xlink:title="setup_initialize_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="158,-3004 36,-3004 36,-2980 158,-2980 158,-3004"/>
+<text text-anchor="middle" x="97" y="-2989.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info -->
+<!-- proc~setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node105" class="node">
+<title>proc~setup_initialize_system</title>
+<g id="a_call~~graph~~CallGraph_node105"><a xlink:href=".././proc/setup_initialize_system.html" xlink:title="setup_initialize_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="388,-3004 266,-3004 266,-2980 388,-2980 388,-3004"/>
+<text text-anchor="middle" x="327" y="-2989.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
+</a>
+</g>
+</g>
+<!-- interface~setup_initialize_system&#45;&gt;proc~setup_initialize_system -->
 <g id="call~~graph~~CallGraph_edge50" class="edge">
-<title>interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.55,-550C195.33,-550 217.97,-550 239.26,-550"/>
-<polygon fill="#000000" stroke="#000000" points="239.26,-553.5 249.26,-550 239.26,-546.5 239.26,-553.5"/>
+<title>interface~setup_initialize_system&#45;&gt;proc~setup_initialize_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M158.2,-2992C188.07,-2992 224.34,-2992 255.5,-2992"/>
+<polygon fill="#000000" stroke="#000000" points="255.86,-2995.5 265.86,-2992 255.86,-2988.5 255.86,-2995.5"/>
 </g>
-<!-- proc~symba_step_reset_system -->
-<g id="call~~graph~~CallGraph_node65" class="node">
-<title>proc~symba_step_reset_system</title>
-<g id="a_call~~graph~~CallGraph_node65"><a xlink:href=".././proc/symba_step_reset_system.html" xlink:title="symba_step_reset_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="397,-3706 257,-3706 257,-3682 397,-3682 397,-3706"/>
-<text text-anchor="middle" x="327" y="-3691.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_reset_system</text>
+<!-- interface~util_coord_h2b_pl -->
+<g id="call~~graph~~CallGraph_node52" class="node">
+<title>interface~util_coord_h2b_pl</title>
+<g id="a_call~~graph~~CallGraph_node52"><a xlink:href=".././interface/util_coord_h2b_pl.html" xlink:title="util_coord_h2b_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="145.5,-3046 48.5,-3046 48.5,-3022 145.5,-3022 145.5,-3046"/>
+<text text-anchor="middle" x="97" y="-3031.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_h2b_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_io_param_reader -->
-<g id="call~~graph~~CallGraph_node66" class="node">
-<title>interface~symba_io_param_reader</title>
-<g id="a_call~~graph~~CallGraph_node66"><a xlink:href=".././interface/symba_io_param_reader.html" xlink:title="symba_io_param_reader">
-<polygon fill="#a7506f" stroke="#a7506f" points="163.5,-2104 30.5,-2104 30.5,-2080 163.5,-2080 163.5,-2104"/>
-<text text-anchor="middle" x="97" y="-2089.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_param_reader</text>
+<!-- proc~util_coord_h2b_pl -->
+<g id="call~~graph~~CallGraph_node219" class="node">
+<title>proc~util_coord_h2b_pl</title>
+<g id="a_call~~graph~~CallGraph_node219"><a xlink:href=".././proc/util_coord_h2b_pl.html" xlink:title="util_coord_h2b_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="375.5,-3046 278.5,-3046 278.5,-3022 375.5,-3022 375.5,-3046"/>
+<text text-anchor="middle" x="327" y="-3031.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_h2b_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_io_param_reader&#45;&gt;proc~symba_io_param_reader -->
+<!-- interface~util_coord_h2b_pl&#45;&gt;proc~util_coord_h2b_pl -->
 <g id="call~~graph~~CallGraph_edge51" class="edge">
-<title>interface~symba_io_param_reader&#45;&gt;proc~symba_io_param_reader</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.64,-2092C190.71,-2092 222.24,-2092 250.27,-2092"/>
-<polygon fill="#000000" stroke="#000000" points="250.43,-2095.5 260.43,-2092 250.43,-2088.5 250.43,-2095.5"/>
+<title>interface~util_coord_h2b_pl&#45;&gt;proc~util_coord_h2b_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.52,-3034C181.07,-3034 229.87,-3034 267.77,-3034"/>
+<polygon fill="#000000" stroke="#000000" points="268.15,-3037.5 278.15,-3034 268.15,-3030.5 268.15,-3037.5"/>
 </g>
-<!-- interface~symba_io_param_writer -->
-<g id="call~~graph~~CallGraph_node67" class="node">
-<title>interface~symba_io_param_writer</title>
-<g id="a_call~~graph~~CallGraph_node67"><a xlink:href=".././interface/symba_io_param_writer.html" xlink:title="symba_io_param_writer">
-<polygon fill="#a7506f" stroke="#a7506f" points="160.5,-2188 33.5,-2188 33.5,-2164 160.5,-2164 160.5,-2188"/>
-<text text-anchor="middle" x="97" y="-2173.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_param_writer</text>
+<!-- interface~setup_pl -->
+<g id="call~~graph~~CallGraph_node53" class="node">
+<title>interface~setup_pl</title>
+<g id="a_call~~graph~~CallGraph_node53"><a xlink:href=".././interface/setup_pl.html" xlink:title="setup_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="124,-2668 70,-2668 70,-2644 124,-2644 124,-2668"/>
+<text text-anchor="middle" x="97" y="-2653.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_io_param_writer&#45;&gt;proc~symba_io_param_writer -->
+<!-- proc~setup_pl -->
+<g id="call~~graph~~CallGraph_node108" class="node">
+<title>proc~setup_pl</title>
+<g id="a_call~~graph~~CallGraph_node108"><a xlink:href=".././proc/setup_pl.html" xlink:title="setup_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="354,-2668 300,-2668 300,-2644 354,-2644 354,-2668"/>
+<text text-anchor="middle" x="327" y="-2653.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~setup_pl&#45;&gt;proc~setup_pl -->
 <g id="call~~graph~~CallGraph_edge52" class="edge">
-<title>interface~symba_io_param_writer&#45;&gt;proc~symba_io_param_writer</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160.6,-2176C189.14,-2176 223.11,-2176 252.83,-2176"/>
-<polygon fill="#000000" stroke="#000000" points="253.14,-2179.5 263.14,-2176 253.14,-2172.5 253.14,-2179.5"/>
+<title>interface~setup_pl&#45;&gt;proc~setup_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M124.15,-2656C164.85,-2656 243.43,-2656 289.63,-2656"/>
+<polygon fill="#000000" stroke="#000000" points="289.8,-2659.5 299.8,-2656 289.8,-2652.5 289.8,-2659.5"/>
 </g>
-<!-- interface~symba_io_initialize_particle_info -->
-<g id="call~~graph~~CallGraph_node68" class="node">
-<title>interface~symba_io_initialize_particle_info</title>
-<g id="a_call~~graph~~CallGraph_node68"><a xlink:href=".././interface/symba_io_initialize_particle_info.html" xlink:title="symba_io_initialize_particle_info">
-<polygon fill="#a7506f" stroke="#a7506f" points="180,-2146 14,-2146 14,-2122 180,-2122 180,-2146"/>
-<text text-anchor="middle" x="97" y="-2131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_initialize_particle_info</text>
+<!-- interface~util_coord_h2b_tp -->
+<g id="call~~graph~~CallGraph_node54" class="node">
+<title>interface~util_coord_h2b_tp</title>
+<g id="a_call~~graph~~CallGraph_node54"><a xlink:href=".././interface/util_coord_h2b_tp.html" xlink:title="util_coord_h2b_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="146,-3088 48,-3088 48,-3064 146,-3064 146,-3088"/>
+<text text-anchor="middle" x="97" y="-3073.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_h2b_tp</text>
+</a>
+</g>
+</g>
+<!-- proc~util_coord_h2b_tp -->
+<g id="call~~graph~~CallGraph_node228" class="node">
+<title>proc~util_coord_h2b_tp</title>
+<g id="a_call~~graph~~CallGraph_node228"><a xlink:href=".././proc/util_coord_h2b_tp.html" xlink:title="util_coord_h2b_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="376,-3088 278,-3088 278,-3064 376,-3064 376,-3088"/>
+<text text-anchor="middle" x="327" y="-3073.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_h2b_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_io_initialize_particle_info&#45;&gt;proc~symba_io_initialize_particle_info -->
+<!-- interface~util_coord_h2b_tp&#45;&gt;proc~util_coord_h2b_tp -->
 <g id="call~~graph~~CallGraph_edge53" class="edge">
-<title>interface~symba_io_initialize_particle_info&#45;&gt;proc~symba_io_initialize_particle_info</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.31,-2134C197.59,-2134 215.91,-2134 233.53,-2134"/>
-<polygon fill="#000000" stroke="#000000" points="233.81,-2137.5 243.81,-2134 233.81,-2130.5 233.81,-2137.5"/>
+<title>interface~util_coord_h2b_tp&#45;&gt;proc~util_coord_h2b_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M146.07,-3076C181.54,-3076 229.98,-3076 267.67,-3076"/>
+<polygon fill="#000000" stroke="#000000" points="267.99,-3079.5 277.99,-3076 267.99,-3072.5 267.99,-3079.5"/>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_familes -->
-<g id="call~~graph~~CallGraph_edge60" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_familes</title>
-<path fill="none" stroke="#000000" d="M840.09,-1894.09C867.67,-1903.16 906.96,-1915.44 942,-1924 952.11,-1926.47 962.78,-1928.8 973.38,-1930.95"/>
-<polygon fill="#000000" stroke="#000000" points="973,-1934.44 983.49,-1932.95 974.36,-1927.58 973,-1934.44"/>
+<!-- interface~setup_tp -->
+<g id="call~~graph~~CallGraph_node55" class="node">
+<title>interface~setup_tp</title>
+<g id="a_call~~graph~~CallGraph_node55"><a xlink:href=".././interface/setup_tp.html" xlink:title="setup_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="124,-2710 70,-2710 70,-2686 124,-2686 124,-2710"/>
+<text text-anchor="middle" x="97" y="-2695.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_tp</text>
+</a>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption -->
-<g id="call~~graph~~CallGraph_edge56" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption</title>
-<path fill="none" stroke="#000000" d="M906.23,-1873.49C920.91,-1872.26 936.05,-1870.99 950.79,-1869.76"/>
-<polygon fill="#000000" stroke="#000000" points="951.25,-1873.23 960.92,-1868.91 950.67,-1866.26 951.25,-1873.23"/>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun -->
-<g id="call~~graph~~CallGraph_edge55" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun</title>
-<path fill="none" stroke="#000000" d="M840.09,-1869.91C867.67,-1860.84 906.96,-1848.56 942,-1840 952.11,-1837.53 962.78,-1835.2 973.38,-1833.05"/>
-<polygon fill="#000000" stroke="#000000" points="974.36,-1836.42 983.49,-1831.05 973,-1829.56 974.36,-1836.42"/>
+<!-- proc~setup_tp -->
+<g id="call~~graph~~CallGraph_node103" class="node">
+<title>proc~setup_tp</title>
+<g id="a_call~~graph~~CallGraph_node103"><a xlink:href=".././proc/setup_tp.html" xlink:title="setup_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="354,-2710 300,-2710 300,-2686 354,-2686 354,-2710"/>
+<text text-anchor="middle" x="327" y="-2695.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_tp</text>
+</a>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge -->
-<g id="call~~graph~~CallGraph_edge61" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge</title>
-<path fill="none" stroke="#000000" d="M906.23,-1890.51C923.61,-1891.97 941.62,-1893.47 958.86,-1894.91"/>
-<polygon fill="#000000" stroke="#000000" points="958.66,-1898.41 968.92,-1895.76 959.24,-1891.43 958.66,-1898.41"/>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casesupercatastrophic -->
+<!-- interface~setup_tp&#45;&gt;proc~setup_tp -->
 <g id="call~~graph~~CallGraph_edge54" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casesupercatastrophic</title>
-<path fill="none" stroke="#000000" d="M820,-1869.87C844.47,-1851.36 894.19,-1816.31 942,-1798 948.22,-1795.62 954.75,-1793.5 961.38,-1791.62"/>
-<polygon fill="#000000" stroke="#000000" points="962.4,-1794.97 971.17,-1789.02 960.61,-1788.2 962.4,-1794.97"/>
-</g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx1 -->
-<g id="call~~graph~~CallGraph_edge57" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx1</title>
-<path fill="none" stroke="#000000" d="M831.63,-1894.16C853.68,-1905.06 884.55,-1922.76 906,-1945 928.39,-1968.21 915.7,-1989.33 942,-2008 964.35,-2023.86 995.21,-2028.77 1019.11,-2029.9"/>
-<polygon fill="#000000" stroke="#000000" points="1019.12,-2033.4 1029.22,-2030.18 1019.32,-2026.41 1019.12,-2033.4"/>
+<title>interface~setup_tp&#45;&gt;proc~setup_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M124.15,-2698C164.85,-2698 243.43,-2698 289.63,-2698"/>
+<polygon fill="#000000" stroke="#000000" points="289.8,-2701.5 299.8,-2698 289.8,-2694.5 289.8,-2701.5"/>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx2 -->
-<g id="call~~graph~~CallGraph_edge59" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx2</title>
-<path fill="none" stroke="#000000" d="M823.96,-1894.14C860.36,-1916.83 935.68,-1963.58 942,-1966 966.72,-1975.46 996.14,-1980.75 1018.84,-1983.66"/>
-<polygon fill="#000000" stroke="#000000" points="1018.73,-1987.17 1029.07,-1984.86 1019.55,-1980.21 1018.73,-1987.17"/>
+<!-- interface~util_copy_encounter -->
+<g id="call~~graph~~CallGraph_node56" class="node">
+<title>interface~util_copy_encounter</title>
+<g id="a_call~~graph~~CallGraph_node56"><a xlink:href=".././interface/util_copy_encounter.html" xlink:title="util_copy_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="151.5,-3130 42.5,-3130 42.5,-3106 151.5,-3106 151.5,-3130"/>
+<text text-anchor="middle" x="97" y="-3115.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_encounter</text>
+</a>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge58" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M818.7,-1869.74C841.65,-1848.98 886.3,-1804.39 906,-1756 969.62,-1599.69 894.3,-1539.88 942,-1378 964.99,-1299.99 1016.33,-1217.2 1041.31,-1179.66"/>
-<polygon fill="#000000" stroke="#000000" points="1044.38,-1181.37 1047.06,-1171.12 1038.57,-1177.46 1044.38,-1181.37"/>
 </g>
-<!-- interface~symba_io_read_frame_info -->
-<g id="call~~graph~~CallGraph_node70" class="node">
-<title>interface~symba_io_read_frame_info</title>
-<g id="a_call~~graph~~CallGraph_node70"><a xlink:href=".././interface/symba_io_read_frame_info.html" xlink:title="symba_io_read_frame_info">
-<polygon fill="#a7506f" stroke="#a7506f" points="168.5,-2524 25.5,-2524 25.5,-2500 168.5,-2500 168.5,-2524"/>
-<text text-anchor="middle" x="97" y="-2509.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_read_frame_info</text>
+<!-- proc~util_copy_encounter -->
+<g id="call~~graph~~CallGraph_node472" class="node">
+<title>proc~util_copy_encounter</title>
+<g id="a_call~~graph~~CallGraph_node472"><a xlink:href=".././proc/util_copy_encounter.html" xlink:title="util_copy_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="381.5,-3130 272.5,-3130 272.5,-3106 381.5,-3106 381.5,-3130"/>
+<text text-anchor="middle" x="327" y="-3115.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_encounter</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_io_read_frame_info&#45;&gt;proc~symba_io_read_frame_info -->
-<g id="call~~graph~~CallGraph_edge62" class="edge">
-<title>interface~symba_io_read_frame_info&#45;&gt;proc~symba_io_read_frame_info</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M168.58,-2512C192.83,-2512 220.17,-2512 245.17,-2512"/>
-<polygon fill="#000000" stroke="#000000" points="245.36,-2515.5 255.36,-2512 245.36,-2508.5 245.36,-2515.5"/>
+<!-- interface~util_copy_encounter&#45;&gt;proc~util_copy_encounter -->
+<g id="call~~graph~~CallGraph_edge55" class="edge">
+<title>interface~util_copy_encounter&#45;&gt;proc~util_copy_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.74,-3118C184.82,-3118 227.38,-3118 262.17,-3118"/>
+<polygon fill="#000000" stroke="#000000" points="262.22,-3121.5 272.22,-3118 262.22,-3114.5 262.22,-3121.5"/>
 </g>
-<!-- interface~symba_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_node71" class="node">
-<title>interface~symba_kick_getacch_pl</title>
-<g id="a_call~~graph~~CallGraph_node71"><a xlink:href=".././interface/symba_kick_getacch_pl.html" xlink:title="symba_kick_getacch_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="160,-3769 34,-3769 34,-3745 160,-3745 160,-3769"/>
-<text text-anchor="middle" x="97" y="-3754.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_getacch_pl</text>
+<!-- interface~tides_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node58" class="node">
+<title>interface~tides_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node58"><a xlink:href=".././interface/tides_kick_getacch_pl.html" xlink:title="tides_kick_getacch_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-3172 38.5,-3172 38.5,-3148 155.5,-3148 155.5,-3172"/>
+<text text-anchor="middle" x="97" y="-3157.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_node361" class="node">
-<title>proc~symba_kick_getacch_pl</title>
-<g id="a_call~~graph~~CallGraph_node361"><a xlink:href=".././proc/symba_kick_getacch_pl.html" xlink:title="symba_kick_getacch_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="390,-3769 264,-3769 264,-3745 390,-3745 390,-3769"/>
-<text text-anchor="middle" x="327" y="-3754.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_getacch_pl</text>
+<!-- proc~tides_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node67" class="node">
+<title>proc~tides_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node67"><a xlink:href=".././proc/tides_kick_getacch_pl.html" xlink:title="tides_kick_getacch_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-3172 268.5,-3172 268.5,-3148 385.5,-3148 385.5,-3172"/>
+<text text-anchor="middle" x="327" y="-3157.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_kick_getacch_pl&#45;&gt;proc~symba_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_edge63" class="edge">
-<title>interface~symba_kick_getacch_pl&#45;&gt;proc~symba_kick_getacch_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160,-3757C188.91,-3757 223.49,-3757 253.59,-3757"/>
-<polygon fill="#000000" stroke="#000000" points="253.62,-3760.5 263.62,-3757 253.62,-3753.5 253.62,-3760.5"/>
+<!-- interface~tides_kick_getacch_pl&#45;&gt;proc~tides_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_edge56" class="edge">
+<title>interface~tides_kick_getacch_pl&#45;&gt;proc~tides_kick_getacch_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.53,-3160C186.72,-3160 225.45,-3160 258.11,-3160"/>
+<polygon fill="#000000" stroke="#000000" points="258.48,-3163.5 268.48,-3160 258.48,-3156.5 258.48,-3163.5"/>
 </g>
-<!-- proc~orbel_fget -->
-<g id="call~~graph~~CallGraph_node72" class="node">
-<title>proc~orbel_fget</title>
-<g id="a_call~~graph~~CallGraph_node72"><a xlink:href=".././proc/orbel_fget.html" xlink:title="orbel_fget">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="1087,-66 1026,-66 1026,-42 1087,-42 1087,-66"/>
-<text text-anchor="middle" x="1056.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fget</text>
+<!-- proc~util_exit -->
+<g id="call~~graph~~CallGraph_node215" class="node">
+<title>proc~util_exit</title>
+<g id="a_call~~graph~~CallGraph_node215"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="1037.5,-591 983.5,-591 983.5,-567 1037.5,-567 1037.5,-591"/>
+<text text-anchor="middle" x="1010.5" y="-576.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_fget&#45;&gt;proc~orbel_schget -->
-<g id="call~~graph~~CallGraph_edge64" class="edge">
-<title>proc~orbel_fget&#45;&gt;proc~orbel_schget</title>
-<path fill="none" stroke="#000000" d="M1087.16,-56.26C1132.72,-59.72 1220.3,-66.38 1274.25,-70.48"/>
-<polygon fill="#000000" stroke="#000000" points="1274,-73.97 1284.24,-71.24 1274.53,-66.99 1274,-73.97"/>
+<!-- interface~util_exit&#45;&gt;proc~util_exit -->
+<g id="call~~graph~~CallGraph_edge57" class="edge">
+<title>interface~util_exit&#45;&gt;proc~util_exit</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M807.21,-579C847.99,-579 926.75,-579 973.05,-579"/>
+<polygon fill="#000000" stroke="#000000" points="973.24,-582.5 983.24,-579 973.24,-575.5 973.24,-582.5"/>
 </g>
-<!-- interface~symba_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_node73" class="node">
-<title>interface~symba_kick_getacch_tp</title>
-<g id="a_call~~graph~~CallGraph_node73"><a xlink:href=".././interface/symba_kick_getacch_tp.html" xlink:title="symba_kick_getacch_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="160.5,-3811 33.5,-3811 33.5,-3787 160.5,-3787 160.5,-3811"/>
-<text text-anchor="middle" x="97" y="-3796.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_getacch_tp</text>
+<!-- interface~tides_step_spin_system -->
+<g id="call~~graph~~CallGraph_node60" class="node">
+<title>interface~tides_step_spin_system</title>
+<g id="a_call~~graph~~CallGraph_node60"><a xlink:href=".././interface/tides_step_spin_system.html" xlink:title="tides_step_spin_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="160.5,-3214 33.5,-3214 33.5,-3190 160.5,-3190 160.5,-3214"/>
+<text text-anchor="middle" x="97" y="-3199.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_step_spin_system</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_node365" class="node">
-<title>proc~symba_kick_getacch_tp</title>
-<g id="a_call~~graph~~CallGraph_node365"><a xlink:href=".././proc/symba_kick_getacch_tp.html" xlink:title="symba_kick_getacch_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="390.5,-3811 263.5,-3811 263.5,-3787 390.5,-3787 390.5,-3811"/>
-<text text-anchor="middle" x="327" y="-3796.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_getacch_tp</text>
+<!-- proc~tides_step_spin_system -->
+<g id="call~~graph~~CallGraph_node72" class="node">
+<title>proc~tides_step_spin_system</title>
+<g id="a_call~~graph~~CallGraph_node72"><a xlink:href=".././proc/tides_step_spin_system.html" xlink:title="tides_step_spin_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="390.5,-3214 263.5,-3214 263.5,-3190 390.5,-3190 390.5,-3214"/>
+<text text-anchor="middle" x="327" y="-3199.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_step_spin_system</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_kick_getacch_tp&#45;&gt;proc~symba_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_edge65" class="edge">
-<title>interface~symba_kick_getacch_tp&#45;&gt;proc~symba_kick_getacch_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160.6,-3799C189.14,-3799 223.11,-3799 252.83,-3799"/>
-<polygon fill="#000000" stroke="#000000" points="253.14,-3802.5 263.14,-3799 253.14,-3795.5 253.14,-3802.5"/>
+<!-- interface~tides_step_spin_system&#45;&gt;proc~tides_step_spin_system -->
+<g id="call~~graph~~CallGraph_edge58" class="edge">
+<title>interface~tides_step_spin_system&#45;&gt;proc~tides_step_spin_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160.6,-3202C189.14,-3202 223.11,-3202 252.83,-3202"/>
+<polygon fill="#000000" stroke="#000000" points="253.14,-3205.5 263.14,-3202 253.14,-3198.5 253.14,-3205.5"/>
 </g>
-<!-- interface~symba_kick_pltpenc -->
-<g id="call~~graph~~CallGraph_node74" class="node">
-<title>interface~symba_kick_pltpenc</title>
-<g id="a_call~~graph~~CallGraph_node74"><a xlink:href=".././interface/symba_kick_pltpenc.html" xlink:title="symba_kick_pltpenc">
-<polygon fill="#a7506f" stroke="#a7506f" points="151.5,-394 42.5,-394 42.5,-370 151.5,-370 151.5,-394"/>
-<text text-anchor="middle" x="97" y="-379.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_pltpenc</text>
+<!-- interface~util_fill_body -->
+<g id="call~~graph~~CallGraph_node61" class="node">
+<title>interface~util_fill_body</title>
+<g id="a_call~~graph~~CallGraph_node61"><a xlink:href=".././interface/util_fill_body.html" xlink:title="util_fill_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="591.5,-3291 520.5,-3291 520.5,-3267 591.5,-3267 591.5,-3291"/>
+<text text-anchor="middle" x="556" y="-3276.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_kick_pltpenc -->
-<g id="call~~graph~~CallGraph_node368" class="node">
-<title>proc~symba_kick_pltpenc</title>
-<g id="a_call~~graph~~CallGraph_node368"><a xlink:href=".././proc/symba_kick_pltpenc.html" xlink:title="symba_kick_pltpenc">
-<polygon fill="#d9534f" stroke="#d9534f" points="381.5,-394 272.5,-394 272.5,-370 381.5,-370 381.5,-394"/>
-<text text-anchor="middle" x="327" y="-379.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_pltpenc</text>
+<!-- proc~util_fill_body -->
+<g id="call~~graph~~CallGraph_node425" class="node">
+<title>proc~util_fill_body</title>
+<g id="a_call~~graph~~CallGraph_node425"><a xlink:href=".././proc/util_fill_body.html" xlink:title="util_fill_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="815.5,-3291 744.5,-3291 744.5,-3267 815.5,-3267 815.5,-3291"/>
+<text text-anchor="middle" x="780" y="-3276.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_kick_pltpenc&#45;&gt;proc~symba_kick_pltpenc -->
-<g id="call~~graph~~CallGraph_edge66" class="edge">
-<title>interface~symba_kick_pltpenc&#45;&gt;proc~symba_kick_pltpenc</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.74,-382C184.82,-382 227.38,-382 262.17,-382"/>
-<polygon fill="#000000" stroke="#000000" points="262.22,-385.5 272.22,-382 262.22,-378.5 262.22,-385.5"/>
+<!-- interface~util_fill_body&#45;&gt;proc~util_fill_body -->
+<g id="call~~graph~~CallGraph_edge59" class="edge">
+<title>interface~util_fill_body&#45;&gt;proc~util_fill_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M591.69,-3279C630.02,-3279 691.9,-3279 733.95,-3279"/>
+<polygon fill="#000000" stroke="#000000" points="734.19,-3282.5 744.19,-3279 734.19,-3275.5 734.19,-3282.5"/>
 </g>
-<!-- proc~kick_getacch_int_pl -->
-<g id="call~~graph~~CallGraph_node75" class="node">
-<title>proc~kick_getacch_int_pl</title>
-<g id="a_call~~graph~~CallGraph_node75"><a xlink:href=".././proc/kick_getacch_int_pl.html" xlink:title="kick_getacch_int_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="380,-3853 274,-3853 274,-3829 380,-3829 380,-3853"/>
-<text text-anchor="middle" x="327" y="-3838.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_pl</text>
+<!-- interface~user_kick_getacch_body -->
+<g id="call~~graph~~CallGraph_node62" class="node">
+<title>interface~user_kick_getacch_body</title>
+<g id="a_call~~graph~~CallGraph_node62"><a xlink:href=".././interface/user_kick_getacch_body.html" xlink:title="user_kick_getacch_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="162,-3362 32,-3362 32,-3338 162,-3338 162,-3362"/>
+<text text-anchor="middle" x="97" y="-3347.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_kick_getacch_body</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_gr_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_node76" class="node">
-<title>proc~whm_gr_kick_getacch_pl</title>
-<g id="a_call~~graph~~CallGraph_node76"><a xlink:href=".././proc/whm_gr_kick_getacch_pl.html" xlink:title="whm_gr_kick_getacch_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="393.5,-3895 260.5,-3895 260.5,-3871 393.5,-3871 393.5,-3895"/>
-<text text-anchor="middle" x="327" y="-3880.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_kick_getacch_pl</text>
+<!-- proc~user_kick_getacch_body -->
+<g id="call~~graph~~CallGraph_node113" class="node">
+<title>proc~user_kick_getacch_body</title>
+<g id="a_call~~graph~~CallGraph_node113"><a xlink:href=".././proc/user_kick_getacch_body.html" xlink:title="user_kick_getacch_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="392,-3362 262,-3362 262,-3338 392,-3338 392,-3362"/>
+<text text-anchor="middle" x="327" y="-3347.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_kick_getacch_body</text>
 </a>
 </g>
 </g>
-<!-- gr_kick_getacch -->
-<g id="call~~graph~~CallGraph_node600" class="node">
-<title>gr_kick_getacch</title>
-<polygon fill="#777777" stroke="#777777" points="607.5,-3958 517.5,-3958 517.5,-3934 607.5,-3934 607.5,-3958"/>
-<text text-anchor="middle" x="562.5" y="-3943.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_kick_getacch</text>
-</g>
-<!-- proc~whm_gr_kick_getacch_pl&#45;&gt;gr_kick_getacch -->
-<g id="call~~graph~~CallGraph_edge67" class="edge">
-<title>proc~whm_gr_kick_getacch_pl&#45;&gt;gr_kick_getacch</title>
-<path fill="none" stroke="#000000" d="M386.56,-3895.02C398.97,-3897.79 411.95,-3900.85 424,-3904 454.62,-3912.01 488.64,-3922.39 515.18,-3930.83"/>
-<polygon fill="#000000" stroke="#000000" points="514.37,-3934.24 524.96,-3933.96 516.51,-3927.58 514.37,-3934.24"/>
+<!-- interface~user_kick_getacch_body&#45;&gt;proc~user_kick_getacch_body -->
+<g id="call~~graph~~CallGraph_edge60" class="edge">
+<title>interface~user_kick_getacch_body&#45;&gt;proc~user_kick_getacch_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M162.12,-3350C190.04,-3350 222.94,-3350 251.9,-3350"/>
+<polygon fill="#000000" stroke="#000000" points="251.97,-3353.5 261.97,-3350 251.97,-3346.5 251.97,-3353.5"/>
 </g>
-<!-- proc~util_append_arr_char_string -->
-<g id="call~~graph~~CallGraph_node77" class="node">
-<title>proc~util_append_arr_char_string</title>
-<g id="a_call~~graph~~CallGraph_node77"><a xlink:href=".././proc/util_append_arr_char_string.html" xlink:title="util_append_arr_char_string">
-<polygon fill="#d9534f" stroke="#d9534f" points="877,-4341 730,-4341 730,-4317 877,-4317 877,-4341"/>
-<text text-anchor="middle" x="803.5" y="-4326.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_char_string</text>
+<!-- interface~util_fill_pl -->
+<g id="call~~graph~~CallGraph_node63" class="node">
+<title>interface~util_fill_pl</title>
+<g id="a_call~~graph~~CallGraph_node63"><a xlink:href=".././interface/util_fill_pl.html" xlink:title="util_fill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="125,-3305 69,-3305 69,-3281 125,-3281 125,-3305"/>
+<text text-anchor="middle" x="97" y="-3290.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~util_resize~2 -->
-<g id="call~~graph~~CallGraph_node493" class="node">
-<title>interface~util_resize~2</title>
-<g id="a_call~~graph~~CallGraph_node493"><a xlink:href=".././interface/util_resize~2.html" xlink:title="util_resize">
-<polygon fill="#a7506f" stroke="#a7506f" points="1087,-4194 1026,-4194 1026,-4170 1087,-4170 1087,-4194"/>
-<text text-anchor="middle" x="1056.5" y="-4179.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<!-- proc~util_fill_pl -->
+<g id="call~~graph~~CallGraph_node438" class="node">
+<title>proc~util_fill_pl</title>
+<g id="a_call~~graph~~CallGraph_node438"><a xlink:href=".././proc/util_fill_pl.html" xlink:title="util_fill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="355,-3305 299,-3305 299,-3281 355,-3281 355,-3305"/>
+<text text-anchor="middle" x="327" y="-3290.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_append_arr_char_string&#45;&gt;interface~util_resize~2 -->
-<g id="call~~graph~~CallGraph_edge68" class="edge">
-<title>proc~util_append_arr_char_string&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M877.23,-4318.56C887.16,-4315.82 897.02,-4312.36 906,-4308 960.74,-4281.41 1012.14,-4230.26 1038.02,-4201.99"/>
-<polygon fill="#000000" stroke="#000000" points="1040.83,-4204.11 1044.92,-4194.34 1035.63,-4199.42 1040.83,-4204.11"/>
-</g>
-<!-- proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_familes -->
-<g id="call~~graph~~CallGraph_edge71" class="edge">
-<title>proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_familes</title>
-<path fill="none" stroke="#000000" d="M890.53,-1958.8C910.53,-1957.13 932.02,-1955.33 952.66,-1953.6"/>
-<polygon fill="#000000" stroke="#000000" points="953.05,-1957.08 962.72,-1952.76 952.46,-1950.11 953.05,-1957.08"/>
-</g>
-<!-- proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_fragmentation_casemerge -->
-<g id="call~~graph~~CallGraph_edge72" class="edge">
-<title>proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_fragmentation_casemerge</title>
-<path fill="none" stroke="#000000" d="M840.09,-1953.91C867.67,-1944.84 906.96,-1932.56 942,-1924 952.11,-1921.53 962.78,-1919.2 973.38,-1917.05"/>
-<polygon fill="#000000" stroke="#000000" points="974.36,-1920.42 983.49,-1915.05 973,-1913.56 974.36,-1920.42"/>
+<!-- interface~util_fill_pl&#45;&gt;proc~util_fill_pl -->
+<g id="call~~graph~~CallGraph_edge61" class="edge">
+<title>interface~util_fill_pl&#45;&gt;proc~util_fill_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M125.05,-3293C165.76,-3293 242.89,-3293 288.85,-3293"/>
+<polygon fill="#000000" stroke="#000000" points="288.99,-3296.5 298.99,-3293 288.99,-3289.5 288.99,-3296.5"/>
 </g>
-<!-- proc~symba_collision_resolve_mergers&#45;&gt;idx1 -->
-<g id="call~~graph~~CallGraph_edge69" class="edge">
-<title>proc~symba_collision_resolve_mergers&#45;&gt;idx1</title>
-<path fill="none" stroke="#000000" d="M877.14,-1978.03C886.98,-1980.52 896.84,-1983.49 906,-1987 923.3,-1993.63 924.64,-2001.55 942,-2008 966.81,-2017.21 996.24,-2022.51 1018.91,-2025.48"/>
-<polygon fill="#000000" stroke="#000000" points="1018.77,-2028.99 1029.12,-2026.72 1019.62,-2022.04 1018.77,-2028.99"/>
+<!-- interface~util_fill_tp -->
+<g id="call~~graph~~CallGraph_node64" class="node">
+<title>interface~util_fill_tp</title>
+<g id="a_call~~graph~~CallGraph_node64"><a xlink:href=".././interface/util_fill_tp.html" xlink:title="util_fill_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="125.5,-3256 68.5,-3256 68.5,-3232 125.5,-3232 125.5,-3256"/>
+<text text-anchor="middle" x="97" y="-3241.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
+</a>
 </g>
-<!-- proc~symba_collision_resolve_mergers&#45;&gt;idx2 -->
-<g id="call~~graph~~CallGraph_edge70" class="edge">
-<title>proc~symba_collision_resolve_mergers&#45;&gt;idx2</title>
-<path fill="none" stroke="#000000" d="M890.53,-1973.2C934.45,-1976.87 985.56,-1981.15 1019.11,-1983.96"/>
-<polygon fill="#000000" stroke="#000000" points="1019.1,-1987.47 1029.35,-1984.81 1019.68,-1980.49 1019.1,-1987.47"/>
 </g>
-<!-- proc~whm_step_system -->
-<g id="call~~graph~~CallGraph_node80" class="node">
-<title>proc~whm_step_system</title>
-<g id="a_call~~graph~~CallGraph_node80"><a xlink:href=".././proc/whm_step_system.html" xlink:title="whm_step_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="377.5,-4166 276.5,-4166 276.5,-4142 377.5,-4142 377.5,-4166"/>
-<text text-anchor="middle" x="327" y="-4151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_system</text>
+<!-- proc~util_fill_tp -->
+<g id="call~~graph~~CallGraph_node447" class="node">
+<title>proc~util_fill_tp</title>
+<g id="a_call~~graph~~CallGraph_node447"><a xlink:href=".././proc/util_fill_tp.html" xlink:title="util_fill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="355.5,-3256 298.5,-3256 298.5,-3232 355.5,-3232 355.5,-3256"/>
+<text text-anchor="middle" x="327" y="-3241.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~util_set_rhill_approximate -->
-<g id="call~~graph~~CallGraph_node81" class="node">
-<title>proc~util_set_rhill_approximate</title>
-<g id="a_call~~graph~~CallGraph_node81"><a xlink:href=".././proc/util_set_rhill_approximate.html" xlink:title="util_set_rhill_approximate">
-<polygon fill="#d9534f" stroke="#d9534f" points="394,-4208 260,-4208 260,-4184 394,-4184 394,-4208"/>
-<text text-anchor="middle" x="327" y="-4193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_rhill_approximate</text>
+<!-- interface~util_fill_tp&#45;&gt;proc~util_fill_tp -->
+<g id="call~~graph~~CallGraph_edge62" class="edge">
+<title>interface~util_fill_tp&#45;&gt;proc~util_fill_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M125.5,-3244C166.16,-3244 242.42,-3244 288.27,-3244"/>
+<polygon fill="#000000" stroke="#000000" points="288.4,-3247.5 298.4,-3244 288.4,-3240.5 288.4,-3247.5"/>
+</g>
+<!-- interface~util_resize~2 -->
+<g id="call~~graph~~CallGraph_node66" class="node">
+<title>interface~util_resize~2</title>
+<g id="a_call~~graph~~CallGraph_node66"><a xlink:href=".././interface/util_resize~2.html" xlink:title="util_resize">
+<polygon fill="#a7506f" stroke="#a7506f" points="1041,-3525 980,-3525 980,-3501 1041,-3501 1041,-3525"/>
+<text text-anchor="middle" x="1010.5" y="-3510.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_gr_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_node82" class="node">
-<title>proc~whm_gr_kick_getacch_tp</title>
-<g id="a_call~~graph~~CallGraph_node82"><a xlink:href=".././proc/whm_gr_kick_getacch_tp.html" xlink:title="whm_gr_kick_getacch_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="393.5,-4021 260.5,-4021 260.5,-3997 393.5,-3997 393.5,-4021"/>
-<text text-anchor="middle" x="327" y="-4006.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_kick_getacch_tp</text>
+<!-- proc~util_set_mu_pl -->
+<g id="call~~graph~~CallGraph_node68" class="node">
+<title>proc~util_set_mu_pl</title>
+<g id="a_call~~graph~~CallGraph_node68"><a xlink:href=".././proc/util_set_mu_pl.html" xlink:title="util_set_mu_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="368,-3501 286,-3501 286,-3477 368,-3477 368,-3501"/>
+<text text-anchor="middle" x="327" y="-3486.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_mu_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_gr_kick_getacch_tp&#45;&gt;gr_kick_getacch -->
-<g id="call~~graph~~CallGraph_edge73" class="edge">
-<title>proc~whm_gr_kick_getacch_tp&#45;&gt;gr_kick_getacch</title>
-<path fill="none" stroke="#000000" d="M386.56,-3996.98C398.97,-3994.21 411.95,-3991.15 424,-3988 454.62,-3979.99 488.64,-3969.61 515.18,-3961.17"/>
-<polygon fill="#000000" stroke="#000000" points="516.51,-3964.42 524.96,-3958.04 514.37,-3957.76 516.51,-3964.42"/>
-</g>
-<!-- proc~whm_gr_p4_pl -->
-<g id="call~~graph~~CallGraph_node83" class="node">
-<title>proc~whm_gr_p4_pl</title>
-<g id="a_call~~graph~~CallGraph_node83"><a xlink:href=".././proc/whm_gr_p4_pl.html" xlink:title="whm_gr_p4_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="368.5,-4250 285.5,-4250 285.5,-4226 368.5,-4226 368.5,-4250"/>
-<text text-anchor="middle" x="327" y="-4235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_p4_pl</text>
+<!-- proc~util_set_ir3h -->
+<g id="call~~graph~~CallGraph_node69" class="node">
+<title>proc~util_set_ir3h</title>
+<g id="a_call~~graph~~CallGraph_node69"><a xlink:href=".././proc/util_set_ir3h.html" xlink:title="util_set_ir3h">
+<polygon fill="#d9534f" stroke="#d9534f" points="362,-3543 292,-3543 292,-3519 362,-3519 362,-3543"/>
+<text text-anchor="middle" x="327" y="-3528.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_ir3h</text>
 </a>
 </g>
 </g>
-<!-- gr_p4_pos_kick -->
-<g id="call~~graph~~CallGraph_node593" class="node">
-<title>gr_p4_pos_kick</title>
-<polygon fill="#777777" stroke="#777777" points="606.5,-4313 518.5,-4313 518.5,-4289 606.5,-4289 606.5,-4313"/>
-<text text-anchor="middle" x="562.5" y="-4298.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_p4_pos_kick</text>
+<!-- proc~util_set_msys -->
+<g id="call~~graph~~CallGraph_node70" class="node">
+<title>proc~util_set_msys</title>
+<g id="a_call~~graph~~CallGraph_node70"><a xlink:href=".././proc/util_set_msys.html" xlink:title="util_set_msys">
+<polygon fill="#d9534f" stroke="#d9534f" points="365.5,-3585 288.5,-3585 288.5,-3561 365.5,-3561 365.5,-3585"/>
+<text text-anchor="middle" x="327" y="-3570.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_msys</text>
+</a>
 </g>
-<!-- proc~whm_gr_p4_pl&#45;&gt;gr_p4_pos_kick -->
-<g id="call~~graph~~CallGraph_edge74" class="edge">
-<title>proc~whm_gr_p4_pl&#45;&gt;gr_p4_pos_kick</title>
-<path fill="none" stroke="#000000" d="M368.81,-4246.16C385.94,-4249.79 406.01,-4254.29 424,-4259 454.62,-4267.01 488.64,-4277.39 515.18,-4285.83"/>
-<polygon fill="#000000" stroke="#000000" points="514.37,-4289.24 524.96,-4288.96 516.51,-4282.58 514.37,-4289.24"/>
 </g>
-<!-- proc~whm_gr_p4_tp -->
-<g id="call~~graph~~CallGraph_node84" class="node">
-<title>proc~whm_gr_p4_tp</title>
-<g id="a_call~~graph~~CallGraph_node84"><a xlink:href=".././proc/whm_gr_p4_tp.html" xlink:title="whm_gr_p4_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="369,-4376 285,-4376 285,-4352 369,-4352 369,-4376"/>
-<text text-anchor="middle" x="327" y="-4361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_p4_tp</text>
+<!-- proc~util_set_mu_tp -->
+<g id="call~~graph~~CallGraph_node73" class="node">
+<title>proc~util_set_mu_tp</title>
+<g id="a_call~~graph~~CallGraph_node73"><a xlink:href=".././proc/util_set_mu_tp.html" xlink:title="util_set_mu_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="368,-3627 286,-3627 286,-3603 368,-3603 368,-3627"/>
+<text text-anchor="middle" x="327" y="-3612.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_mu_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_gr_p4_tp&#45;&gt;gr_p4_pos_kick -->
-<g id="call~~graph~~CallGraph_edge75" class="edge">
-<title>proc~whm_gr_p4_tp&#45;&gt;gr_p4_pos_kick</title>
-<path fill="none" stroke="#000000" d="M369.28,-4355.74C386.3,-4352.13 406.17,-4347.66 424,-4343 454.62,-4334.99 488.64,-4324.61 515.18,-4316.17"/>
-<polygon fill="#000000" stroke="#000000" points="516.51,-4319.42 524.96,-4313.04 514.37,-4312.76 516.51,-4319.42"/>
-</g>
-<!-- proc~whm_drift_pl -->
-<g id="call~~graph~~CallGraph_node85" class="node">
-<title>proc~whm_drift_pl</title>
-<g id="a_call~~graph~~CallGraph_node85"><a xlink:href=".././proc/whm_drift_pl.html" xlink:title="whm_drift_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="840,-1705 767,-1705 767,-1681 840,-1681 840,-1705"/>
-<text text-anchor="middle" x="803.5" y="-1690.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift_pl</text>
+<!-- interface~util_fill~2 -->
+<g id="call~~graph~~CallGraph_node74" class="node">
+<title>interface~util_fill~2</title>
+<g id="a_call~~graph~~CallGraph_node74"><a xlink:href=".././interface/util_fill~2.html" xlink:title="util_fill">
+<polygon fill="#a7506f" stroke="#a7506f" points="1037.5,-3291 983.5,-3291 983.5,-3267 1037.5,-3267 1037.5,-3291"/>
+<text text-anchor="middle" x="1010.5" y="-3276.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
 </a>
 </g>
 </g>
-<!-- drift_all -->
-<g id="call~~graph~~CallGraph_node592" class="node">
-<title>drift_all</title>
-<polygon fill="#777777" stroke="#777777" points="1083.5,-1747 1029.5,-1747 1029.5,-1723 1083.5,-1723 1083.5,-1747"/>
-<text text-anchor="middle" x="1056.5" y="-1732.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_all</text>
-</g>
-<!-- proc~whm_drift_pl&#45;&gt;drift_all -->
-<g id="call~~graph~~CallGraph_edge76" class="edge">
-<title>proc~whm_drift_pl&#45;&gt;drift_all</title>
-<path fill="none" stroke="#000000" d="M840.2,-1698.97C887.86,-1706.95 971.81,-1721 1019.59,-1728.99"/>
-<polygon fill="#000000" stroke="#000000" points="1019.05,-1732.45 1029.49,-1730.65 1020.2,-1725.55 1019.05,-1732.45"/>
+<!-- proc~lambda_eval_0 -->
+<g id="call~~graph~~CallGraph_node75" class="node">
+<title>proc~lambda_eval_0</title>
+<g id="a_call~~graph~~CallGraph_node75"><a xlink:href=".././proc/lambda_eval_0.html" xlink:title="lambda_eval_0">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="139.5,-3669 54.5,-3669 54.5,-3645 139.5,-3645 139.5,-3669"/>
+<text text-anchor="middle" x="97" y="-3654.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_eval_0</text>
+</a>
 </g>
-<!-- proc~whm_drift_pl&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge77" class="edge">
-<title>proc~whm_drift_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M840.09,-1687.53C862.55,-1682.14 890.21,-1671.57 906,-1651 980.53,-1553.93 905.29,-1494.75 942,-1378 966.39,-1300.42 1017.05,-1217.43 1041.59,-1179.74"/>
-<polygon fill="#000000" stroke="#000000" points="1044.66,-1181.45 1047.23,-1171.17 1038.81,-1177.6 1044.66,-1181.45"/>
 </g>
-<!-- proc~whm_step_pl -->
-<g id="call~~graph~~CallGraph_node86" class="node">
-<title>proc~whm_step_pl</title>
-<g id="a_call~~graph~~CallGraph_node86"><a xlink:href=".././proc/whm_step_pl.html" xlink:title="whm_step_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="365,-4418 289,-4418 289,-4394 365,-4394 365,-4418"/>
-<text text-anchor="middle" x="327" y="-4403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_pl</text>
+<!-- proc~lambda_eval_tvar -->
+<g id="call~~graph~~CallGraph_node76" class="node">
+<title>proc~lambda_eval_tvar</title>
+<g id="a_call~~graph~~CallGraph_node76"><a xlink:href=".././proc/lambda_eval_tvar.html" xlink:title="lambda_eval_tvar">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="145.5,-3711 48.5,-3711 48.5,-3687 145.5,-3687 145.5,-3711"/>
+<text text-anchor="middle" x="97" y="-3696.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_eval_tvar</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_step_tp -->
-<g id="call~~graph~~CallGraph_node87" class="node">
-<title>proc~whm_step_tp</title>
-<g id="a_call~~graph~~CallGraph_node87"><a xlink:href=".././proc/whm_step_tp.html" xlink:title="whm_step_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="365,-4460 289,-4460 289,-4436 365,-4436 365,-4460"/>
-<text text-anchor="middle" x="327" y="-4445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_tp</text>
+<!-- proc~util_set_rhill -->
+<g id="call~~graph~~CallGraph_node77" class="node">
+<title>proc~util_set_rhill</title>
+<g id="a_call~~graph~~CallGraph_node77"><a xlink:href=".././proc/util_set_rhill.html" xlink:title="util_set_rhill">
+<polygon fill="#d9534f" stroke="#d9534f" points="361.5,-3753 292.5,-3753 292.5,-3729 361.5,-3729 361.5,-3753"/>
+<text text-anchor="middle" x="327" y="-3738.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_rhill</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_node88" class="node">
-<title>proc~whm_kick_getacch_pl</title>
-<g id="a_call~~graph~~CallGraph_node88"><a xlink:href=".././proc/whm_kick_getacch_pl.html" xlink:title="whm_kick_getacch_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-4502 268.5,-4502 268.5,-4478 385.5,-4478 385.5,-4502"/>
-<text text-anchor="middle" x="327" y="-4487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_pl</text>
+<!-- proc~lambda_eval_0_err -->
+<g id="call~~graph~~CallGraph_node78" class="node">
+<title>proc~lambda_eval_0_err</title>
+<g id="a_call~~graph~~CallGraph_node78"><a xlink:href=".././proc/lambda_eval_0_err.html" xlink:title="lambda_eval_0_err">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="149.5,-3795 44.5,-3795 44.5,-3771 149.5,-3771 149.5,-3795"/>
+<text text-anchor="middle" x="97" y="-3780.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_eval_0_err</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_kick_getacch_ah0 -->
-<g id="call~~graph~~CallGraph_node90" class="node">
-<title>proc~whm_kick_getacch_ah0</title>
-<g id="a_call~~graph~~CallGraph_node90"><a xlink:href=".././proc/whm_kick_getacch_ah0.html" xlink:title="whm_kick_getacch_ah0">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="626,-4544 499,-4544 499,-4520 626,-4520 626,-4544"/>
-<text text-anchor="middle" x="562.5" y="-4529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah0</text>
+<!-- interface~lambda_obj -->
+<g id="call~~graph~~CallGraph_node79" class="node">
+<title>interface~lambda_obj</title>
+<g id="a_call~~graph~~CallGraph_node79"><a xlink:href=".././interface/lambda_obj.html" xlink:title="lambda_obj">
+<polygon fill="#a7506f" stroke="#a7506f" points="131,-3837 63,-3837 63,-3813 131,-3813 131,-3837"/>
+<text text-anchor="middle" x="97" y="-3822.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0 -->
-<g id="call~~graph~~CallGraph_edge79" class="edge">
-<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0</title>
-<path fill="none" stroke="#000000" d="M385.72,-4500.38C416.81,-4505.97 455.47,-4512.93 488.62,-4518.89"/>
-<polygon fill="#000000" stroke="#000000" points="488.25,-4522.38 498.71,-4520.71 489.49,-4515.49 488.25,-4522.38"/>
-</g>
-<!-- proc~whm_kick_getacch_ah1 -->
-<g id="call~~graph~~CallGraph_node92" class="node">
-<title>proc~whm_kick_getacch_ah1</title>
-<g id="a_call~~graph~~CallGraph_node92"><a xlink:href=".././proc/whm_kick_getacch_ah1.html" xlink:title="whm_kick_getacch_ah1">
-<polygon fill="#d9534f" stroke="#d9534f" points="626,-4502 499,-4502 499,-4478 626,-4478 626,-4502"/>
-<text text-anchor="middle" x="562.5" y="-4487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah1</text>
+<!-- proc~tides_derivs_init -->
+<g id="call~~graph~~CallGraph_node506" class="node">
+<title>proc~tides_derivs_init</title>
+<g id="a_call~~graph~~CallGraph_node506"><a xlink:href=".././proc/tides_derivs_init.html" xlink:title="tides_derivs_init">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="371.5,-3837 282.5,-3837 282.5,-3813 371.5,-3813 371.5,-3837"/>
+<text text-anchor="middle" x="327" y="-3822.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_derivs_init</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah1 -->
-<g id="call~~graph~~CallGraph_edge78" class="edge">
-<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah1</title>
-<path fill="none" stroke="#000000" d="M385.72,-4490C416.81,-4490 455.47,-4490 488.62,-4490"/>
-<polygon fill="#000000" stroke="#000000" points="488.71,-4493.5 498.71,-4490 488.71,-4486.5 488.71,-4493.5"/>
+<!-- interface~lambda_obj&#45;&gt;proc~tides_derivs_init -->
+<g id="call~~graph~~CallGraph_edge63" class="edge">
+<title>interface~lambda_obj&#45;&gt;proc~tides_derivs_init</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M131.15,-3825C168.08,-3825 228.34,-3825 272.08,-3825"/>
+<polygon fill="#000000" stroke="#000000" points="272.26,-3828.5 282.26,-3825 272.26,-3821.5 272.26,-3828.5"/>
 </g>
-<!-- proc~whm_kick_getacch_ah2 -->
-<g id="call~~graph~~CallGraph_node114" class="node">
-<title>proc~whm_kick_getacch_ah2</title>
-<g id="a_call~~graph~~CallGraph_node114"><a xlink:href=".././proc/whm_kick_getacch_ah2.html" xlink:title="whm_kick_getacch_ah2">
-<polygon fill="#d9534f" stroke="#d9534f" points="626,-4460 499,-4460 499,-4436 626,-4436 626,-4460"/>
-<text text-anchor="middle" x="562.5" y="-4445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah2</text>
+<!-- proc~util_set_rhill_approximate -->
+<g id="call~~graph~~CallGraph_node80" class="node">
+<title>proc~util_set_rhill_approximate</title>
+<g id="a_call~~graph~~CallGraph_node80"><a xlink:href=".././proc/util_set_rhill_approximate.html" xlink:title="util_set_rhill_approximate">
+<polygon fill="#d9534f" stroke="#d9534f" points="394,-3879 260,-3879 260,-3855 394,-3855 394,-3879"/>
+<text text-anchor="middle" x="327" y="-3864.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_rhill_approximate</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2 -->
-<g id="call~~graph~~CallGraph_edge80" class="edge">
-<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2</title>
-<path fill="none" stroke="#000000" d="M385.72,-4479.62C416.81,-4474.03 455.47,-4467.07 488.62,-4461.11"/>
-<polygon fill="#000000" stroke="#000000" points="489.49,-4464.51 498.71,-4459.29 488.25,-4457.62 489.49,-4464.51"/>
-</g>
-<!-- proc~symba_setup_initialize_system -->
-<g id="call~~graph~~CallGraph_node89" class="node">
-<title>proc~symba_setup_initialize_system</title>
-<g id="a_call~~graph~~CallGraph_node89"><a xlink:href=".././proc/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="407,-4586 247,-4586 247,-4562 407,-4562 407,-4586"/>
-<text text-anchor="middle" x="327" y="-4571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
+<!-- proc~lambda_destroy -->
+<g id="call~~graph~~CallGraph_node81" class="node">
+<title>proc~lambda_destroy</title>
+<g id="a_call~~graph~~CallGraph_node81"><a xlink:href=".././proc/lambda_destroy.html" xlink:title="lambda_destroy">
+<polygon fill="#d9534f" stroke="#d9534f" points="141.5,-3921 52.5,-3921 52.5,-3897 141.5,-3897 141.5,-3921"/>
+<text text-anchor="middle" x="97" y="-3906.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_destroy</text>
 </a>
 </g>
 </g>
-<!-- whm_setup_initialize_system -->
-<g id="call~~graph~~CallGraph_node626" class="node">
-<title>whm_setup_initialize_system</title>
-<polygon fill="#777777" stroke="#777777" points="638,-4607 487,-4607 487,-4583 638,-4583 638,-4607"/>
-<text text-anchor="middle" x="562.5" y="-4592.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_initialize_system</text>
+<!-- proc~tides_spin_derivs -->
+<g id="call~~graph~~CallGraph_node82" class="node">
+<title>proc~tides_spin_derivs</title>
+<g id="a_call~~graph~~CallGraph_node82"><a xlink:href=".././proc/tides_spin_derivs.html" xlink:title="tides_spin_derivs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="144.5,-3963 49.5,-3963 49.5,-3939 144.5,-3939 144.5,-3963"/>
+<text text-anchor="middle" x="97" y="-3948.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_derivs</text>
+</a>
 </g>
-<!-- proc~symba_setup_initialize_system&#45;&gt;whm_setup_initialize_system -->
-<g id="call~~graph~~CallGraph_edge81" class="edge">
-<title>proc~symba_setup_initialize_system&#45;&gt;whm_setup_initialize_system</title>
-<path fill="none" stroke="#000000" d="M407.05,-4581.11C429.53,-4583.13 454.09,-4585.34 476.88,-4587.39"/>
-<polygon fill="#000000" stroke="#000000" points="476.59,-4590.88 486.87,-4588.29 477.22,-4583.91 476.59,-4590.88"/>
 </g>
-<!-- proc~whm_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_node91" class="node">
-<title>proc~whm_kick_getacch_tp</title>
-<g id="a_call~~graph~~CallGraph_node91"><a xlink:href=".././proc/whm_kick_getacch_tp.html" xlink:title="whm_kick_getacch_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="386,-4544 268,-4544 268,-4520 386,-4520 386,-4544"/>
-<text text-anchor="middle" x="327" y="-4529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_tp</text>
+<!-- proc~util_peri_tp -->
+<g id="call~~graph~~CallGraph_node83" class="node">
+<title>proc~util_peri_tp</title>
+<g id="a_call~~graph~~CallGraph_node83"><a xlink:href=".././proc/util_peri_tp.html" xlink:title="util_peri_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="359.5,-2542 294.5,-2542 294.5,-2518 359.5,-2518 359.5,-2542"/>
+<text text-anchor="middle" x="327" y="-2527.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_kick_getacch_tp&#45;&gt;proc~whm_kick_getacch_ah0 -->
-<g id="call~~graph~~CallGraph_edge82" class="edge">
-<title>proc~whm_kick_getacch_tp&#45;&gt;proc~whm_kick_getacch_ah0</title>
-<path fill="none" stroke="#000000" d="M386.02,-4532C417.11,-4532 455.71,-4532 488.79,-4532"/>
-<polygon fill="#000000" stroke="#000000" points="488.87,-4535.5 498.87,-4532 488.87,-4528.5 488.87,-4535.5"/>
+<!-- proc~util_peri_tp&#45;&gt;interface~orbel_xv2aeq -->
+<g id="call~~graph~~CallGraph_edge64" class="edge">
+<title>proc~util_peri_tp&#45;&gt;interface~orbel_xv2aeq</title>
+<path fill="none" stroke="#000000" d="M359.56,-2530C397.8,-2530 462.59,-2530 507.02,-2530"/>
+<polygon fill="#000000" stroke="#000000" points="507.28,-2533.5 517.28,-2530 507.28,-2526.5 507.28,-2533.5"/>
 </g>
-<!-- interface~helio_coord_vb2vh_pl -->
-<g id="call~~graph~~CallGraph_node93" class="node">
-<title>interface~helio_coord_vb2vh_pl</title>
-<g id="a_call~~graph~~CallGraph_node93"><a xlink:href=".././interface/helio_coord_vb2vh_pl.html" xlink:title="helio_coord_vb2vh_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-4670 38.5,-4670 38.5,-4646 155.5,-4646 155.5,-4670"/>
-<text text-anchor="middle" x="97" y="-4655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vb2vh_pl</text>
+<!-- interface~util_minimize_bfgs -->
+<g id="call~~graph~~CallGraph_node84" class="node">
+<title>interface~util_minimize_bfgs</title>
+<g id="a_call~~graph~~CallGraph_node84"><a xlink:href=".././interface/util_minimize_bfgs.html" xlink:title="util_minimize_bfgs">
+<polygon fill="#a7506f" stroke="#a7506f" points="147,-4005 47,-4005 47,-3981 147,-3981 147,-4005"/>
+<text text-anchor="middle" x="97" y="-3990.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_coord_vb2vh_pl -->
-<g id="call~~graph~~CallGraph_node414" class="node">
-<title>proc~helio_coord_vb2vh_pl</title>
-<g id="a_call~~graph~~CallGraph_node414"><a xlink:href=".././proc/helio_coord_vb2vh_pl.html" xlink:title="helio_coord_vb2vh_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-4670 268.5,-4670 268.5,-4646 385.5,-4646 385.5,-4670"/>
-<text text-anchor="middle" x="327" y="-4655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vb2vh_pl</text>
+<!-- proc~util_minimize_bfgs -->
+<g id="call~~graph~~CallGraph_node315" class="node">
+<title>proc~util_minimize_bfgs</title>
+<g id="a_call~~graph~~CallGraph_node315"><a xlink:href=".././proc/util_minimize_bfgs.html" xlink:title="util_minimize_bfgs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="377,-4005 277,-4005 277,-3981 377,-3981 377,-4005"/>
+<text text-anchor="middle" x="327" y="-3990.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_coord_vb2vh_pl&#45;&gt;proc~helio_coord_vb2vh_pl -->
-<g id="call~~graph~~CallGraph_edge83" class="edge">
-<title>interface~helio_coord_vb2vh_pl&#45;&gt;proc~helio_coord_vb2vh_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.53,-4658C186.72,-4658 225.45,-4658 258.11,-4658"/>
-<polygon fill="#000000" stroke="#000000" points="258.48,-4661.5 268.48,-4658 258.48,-4654.5 258.48,-4661.5"/>
+<!-- interface~util_minimize_bfgs&#45;&gt;proc~util_minimize_bfgs -->
+<g id="call~~graph~~CallGraph_edge65" class="edge">
+<title>interface~util_minimize_bfgs&#45;&gt;proc~util_minimize_bfgs</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.19,-3993C182.25,-3993 229.56,-3993 266.71,-3993"/>
+<polygon fill="#000000" stroke="#000000" points="266.9,-3996.5 276.9,-3993 266.9,-3989.5 266.9,-3996.5"/>
 </g>
-<!-- interface~helio_coord_vb2vh_tp -->
-<g id="call~~graph~~CallGraph_node94" class="node">
-<title>interface~helio_coord_vb2vh_tp</title>
-<g id="a_call~~graph~~CallGraph_node94"><a xlink:href=".././interface/helio_coord_vb2vh_tp.html" xlink:title="helio_coord_vb2vh_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="156,-4712 38,-4712 38,-4688 156,-4688 156,-4712"/>
-<text text-anchor="middle" x="97" y="-4697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vb2vh_tp</text>
+<!-- interface~util_rescale_system -->
+<g id="call~~graph~~CallGraph_node85" class="node">
+<title>interface~util_rescale_system</title>
+<g id="a_call~~graph~~CallGraph_node85"><a xlink:href=".././interface/util_rescale_system.html" xlink:title="util_rescale_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="150,-4047 44,-4047 44,-4023 150,-4023 150,-4047"/>
+<text text-anchor="middle" x="97" y="-4032.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale_system</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_coord_vb2vh_tp -->
-<g id="call~~graph~~CallGraph_node416" class="node">
-<title>proc~helio_coord_vb2vh_tp</title>
-<g id="a_call~~graph~~CallGraph_node416"><a xlink:href=".././proc/helio_coord_vb2vh_tp.html" xlink:title="helio_coord_vb2vh_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="386,-4712 268,-4712 268,-4688 386,-4688 386,-4712"/>
-<text text-anchor="middle" x="327" y="-4697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vb2vh_tp</text>
+<!-- proc~util_rescale_system -->
+<g id="call~~graph~~CallGraph_node256" class="node">
+<title>proc~util_rescale_system</title>
+<g id="a_call~~graph~~CallGraph_node256"><a xlink:href=".././proc/util_rescale_system.html" xlink:title="util_rescale_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="380,-4047 274,-4047 274,-4023 380,-4023 380,-4047"/>
+<text text-anchor="middle" x="327" y="-4032.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale_system</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_coord_vb2vh_tp&#45;&gt;proc~helio_coord_vb2vh_tp -->
-<g id="call~~graph~~CallGraph_edge84" class="edge">
-<title>interface~helio_coord_vb2vh_tp&#45;&gt;proc~helio_coord_vb2vh_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-4700C187.08,-4700 225.33,-4700 257.7,-4700"/>
-<polygon fill="#000000" stroke="#000000" points="257.98,-4703.5 267.98,-4700 257.98,-4696.5 257.98,-4703.5"/>
+<!-- interface~util_rescale_system&#45;&gt;proc~util_rescale_system -->
+<g id="call~~graph~~CallGraph_edge66" class="edge">
+<title>interface~util_rescale_system&#45;&gt;proc~util_rescale_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M150.02,-4035C183.76,-4035 227.89,-4035 263.52,-4035"/>
+<polygon fill="#000000" stroke="#000000" points="263.81,-4038.5 273.81,-4035 263.81,-4031.5 263.81,-4038.5"/>
 </g>
-<!-- interface~helio_coord_vh2vb_pl -->
-<g id="call~~graph~~CallGraph_node95" class="node">
-<title>interface~helio_coord_vh2vb_pl</title>
-<g id="a_call~~graph~~CallGraph_node95"><a xlink:href=".././interface/helio_coord_vh2vb_pl.html" xlink:title="helio_coord_vh2vb_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-4754 38.5,-4754 38.5,-4730 155.5,-4730 155.5,-4754"/>
-<text text-anchor="middle" x="97" y="-4739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vh2vb_pl</text>
+<!-- proc~tides_derivs_eval -->
+<g id="call~~graph~~CallGraph_node86" class="node">
+<title>proc~tides_derivs_eval</title>
+<g id="a_call~~graph~~CallGraph_node86"><a xlink:href=".././proc/tides_derivs_eval.html" xlink:title="tides_derivs_eval">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="144.5,-4089 49.5,-4089 49.5,-4065 144.5,-4065 144.5,-4089"/>
+<text text-anchor="middle" x="97" y="-4074.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_derivs_eval</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_coord_vh2vb_pl -->
-<g id="call~~graph~~CallGraph_node415" class="node">
-<title>proc~helio_coord_vh2vb_pl</title>
-<g id="a_call~~graph~~CallGraph_node415"><a xlink:href=".././proc/helio_coord_vh2vb_pl.html" xlink:title="helio_coord_vh2vb_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-4754 268.5,-4754 268.5,-4730 385.5,-4730 385.5,-4754"/>
-<text text-anchor="middle" x="327" y="-4739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vh2vb_pl</text>
+<!-- interface~util_peri_tp -->
+<g id="call~~graph~~CallGraph_node87" class="node">
+<title>interface~util_peri_tp</title>
+<g id="a_call~~graph~~CallGraph_node87"><a xlink:href=".././interface/util_peri_tp.html" xlink:title="util_peri_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="129.5,-2542 64.5,-2542 64.5,-2518 129.5,-2518 129.5,-2542"/>
+<text text-anchor="middle" x="97" y="-2527.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_coord_vh2vb_pl&#45;&gt;proc~helio_coord_vh2vb_pl -->
-<g id="call~~graph~~CallGraph_edge85" class="edge">
-<title>interface~helio_coord_vh2vb_pl&#45;&gt;proc~helio_coord_vh2vb_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.53,-4742C186.72,-4742 225.45,-4742 258.11,-4742"/>
-<polygon fill="#000000" stroke="#000000" points="258.48,-4745.5 268.48,-4742 258.48,-4738.5 258.48,-4745.5"/>
+<!-- interface~util_peri_tp&#45;&gt;proc~util_peri_tp -->
+<g id="call~~graph~~CallGraph_edge67" class="edge">
+<title>interface~util_peri_tp&#45;&gt;proc~util_peri_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M129.7,-2530C169.92,-2530 239.38,-2530 283.98,-2530"/>
+<polygon fill="#000000" stroke="#000000" points="284.2,-2533.5 294.2,-2530 284.2,-2526.5 284.2,-2533.5"/>
 </g>
-<!-- interface~helio_coord_vh2vb_tp -->
+<!-- proc~fragmentation_initialize -->
+<g id="call~~graph~~CallGraph_node88" class="node">
+<title>proc~fragmentation_initialize</title>
+<g id="a_call~~graph~~CallGraph_node88"><a xlink:href=".././proc/fragmentation_initialize.html" xlink:title="fragmentation_initialize">
+<polygon fill="#d9534f" stroke="#d9534f" points="388,-4131 266,-4131 266,-4107 388,-4107 388,-4131"/>
+<text text-anchor="middle" x="327" y="-4116.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
+</a>
+</g>
+</g>
+<!-- proc~rmvs_discard_tp -->
+<g id="call~~graph~~CallGraph_node89" class="node">
+<title>proc~rmvs_discard_tp</title>
+<g id="a_call~~graph~~CallGraph_node89"><a xlink:href=".././proc/rmvs_discard_tp.html" xlink:title="rmvs_discard_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-4173 281.5,-4173 281.5,-4149 372.5,-4149 372.5,-4173"/>
+<text text-anchor="middle" x="327" y="-4158.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard_tp</text>
+</a>
+</g>
+</g>
+<!-- discard_tp -->
+<g id="call~~graph~~CallGraph_node577" class="node">
+<title>discard_tp</title>
+<polygon fill="#777777" stroke="#777777" points="587,-4173 525,-4173 525,-4149 587,-4149 587,-4173"/>
+<text text-anchor="middle" x="556" y="-4158.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_tp</text>
+</g>
+<!-- proc~rmvs_discard_tp&#45;&gt;discard_tp -->
+<g id="call~~graph~~CallGraph_edge68" class="edge">
+<title>proc~rmvs_discard_tp&#45;&gt;discard_tp</title>
+<path fill="none" stroke="#000000" d="M372.58,-4161C413.82,-4161 474.62,-4161 514.51,-4161"/>
+<polygon fill="#000000" stroke="#000000" points="514.67,-4164.5 524.67,-4161 514.67,-4157.5 514.67,-4164.5"/>
+</g>
+<!-- proc~util_append_arr_char_string -->
+<g id="call~~graph~~CallGraph_node90" class="node">
+<title>proc~util_append_arr_char_string</title>
+<g id="a_call~~graph~~CallGraph_node90"><a xlink:href=".././proc/util_append_arr_char_string.html" xlink:title="util_append_arr_char_string">
+<polygon fill="#d9534f" stroke="#d9534f" points="853.5,-3672 706.5,-3672 706.5,-3648 853.5,-3648 853.5,-3672"/>
+<text text-anchor="middle" x="780" y="-3657.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_char_string</text>
+</a>
+</g>
+</g>
+<!-- proc~util_append_arr_char_string&#45;&gt;interface~util_resize~2 -->
+<g id="call~~graph~~CallGraph_edge69" class="edge">
+<title>proc~util_append_arr_char_string&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M850.44,-3647.96C857.92,-3645.5 865.26,-3642.55 872,-3639 923.16,-3612.09 969.84,-3561.43 993.4,-3533.24"/>
+<polygon fill="#000000" stroke="#000000" points="996.31,-3535.21 999.95,-3525.26 990.9,-3530.77 996.31,-3535.21"/>
+</g>
+<!-- interface~util_solve_rkf45 -->
+<g id="call~~graph~~CallGraph_node91" class="node">
+<title>interface~util_solve_rkf45</title>
+<g id="a_call~~graph~~CallGraph_node91"><a xlink:href=".././interface/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
+<polygon fill="#a7506f" stroke="#a7506f" points="370.5,-570 283.5,-570 283.5,-546 370.5,-546 370.5,-570"/>
+<text text-anchor="middle" x="327" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_rkf45</text>
+</a>
+</g>
+</g>
+<!-- interface~util_solve_rkf45&#45;&gt;proc~util_solve_rkf45 -->
+<g id="call~~graph~~CallGraph_edge70" class="edge">
+<title>interface~util_solve_rkf45&#45;&gt;proc~util_solve_rkf45</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.7,-558C408.03,-558 462.38,-558 502.39,-558"/>
+<polygon fill="#000000" stroke="#000000" points="502.49,-561.5 512.49,-558 502.49,-554.5 502.49,-561.5"/>
+</g>
+<!-- interface~util_spill~2 -->
+<g id="call~~graph~~CallGraph_node92" class="node">
+<title>interface~util_spill~2</title>
+<g id="a_call~~graph~~CallGraph_node92"><a xlink:href=".././interface/util_spill~2.html" xlink:title="util_spill">
+<polygon fill="#a7506f" stroke="#a7506f" points="1037.5,-1389 983.5,-1389 983.5,-1365 1037.5,-1365 1037.5,-1389"/>
+<text text-anchor="middle" x="1010.5" y="-1374.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+</a>
+</g>
+</g>
+<!-- proc~io_write_frame_system&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge72" class="edge">
+<title>proc~io_write_frame_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M388.76,-870.2C470.62,-868.01 610.81,-860 652,-831 732.45,-774.37 764.83,-651.52 775.05,-601.19"/>
+<polygon fill="#000000" stroke="#000000" points="778.55,-601.55 777,-591.07 771.67,-600.23 778.55,-601.55"/>
+</g>
+<!-- proc~io_write_hdr -->
+<g id="call~~graph~~CallGraph_node95" class="node">
+<title>proc~io_write_hdr</title>
+<g id="a_call~~graph~~CallGraph_node95"><a xlink:href=".././proc/io_write_hdr.html" xlink:title="io_write_hdr">
+<polygon fill="#d9534f" stroke="#d9534f" points="591.5,-902 520.5,-902 520.5,-878 591.5,-878 591.5,-902"/>
+<text text-anchor="middle" x="556" y="-887.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_hdr</text>
+</a>
+</g>
+</g>
+<!-- proc~io_write_frame_system&#45;&gt;proc~io_write_hdr -->
+<g id="call~~graph~~CallGraph_edge71" class="edge">
+<title>proc~io_write_frame_system&#45;&gt;proc~io_write_hdr</title>
+<path fill="none" stroke="#000000" d="M388.53,-876.07C426.74,-879.26 475.27,-883.33 510.06,-886.24"/>
+<polygon fill="#000000" stroke="#000000" points="510.13,-889.76 520.39,-887.1 510.71,-882.78 510.13,-889.76"/>
+</g>
+<!-- proc~io_write_hdr&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge73" class="edge">
+<title>proc~io_write_hdr&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M591.59,-887.76C611.27,-884.86 635.26,-878.37 652,-864 735.46,-792.35 766.42,-655.06 775.66,-601.33"/>
+<polygon fill="#000000" stroke="#000000" points="779.16,-601.62 777.31,-591.19 772.25,-600.5 779.16,-601.62"/>
+</g>
+<!-- interface~util_sort_rearrange_body -->
 <g id="call~~graph~~CallGraph_node96" class="node">
-<title>interface~helio_coord_vh2vb_tp</title>
-<g id="a_call~~graph~~CallGraph_node96"><a xlink:href=".././interface/helio_coord_vh2vb_tp.html" xlink:title="helio_coord_vh2vb_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="156,-4796 38,-4796 38,-4772 156,-4772 156,-4796"/>
-<text text-anchor="middle" x="97" y="-4781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vh2vb_tp</text>
+<title>interface~util_sort_rearrange_body</title>
+<g id="a_call~~graph~~CallGraph_node96"><a xlink:href=".././interface/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="622.5,-4246 489.5,-4246 489.5,-4222 622.5,-4222 622.5,-4246"/>
+<text text-anchor="middle" x="556" y="-4231.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_coord_vh2vb_tp -->
-<g id="call~~graph~~CallGraph_node418" class="node">
-<title>proc~helio_coord_vh2vb_tp</title>
-<g id="a_call~~graph~~CallGraph_node418"><a xlink:href=".././proc/helio_coord_vh2vb_tp.html" xlink:title="helio_coord_vh2vb_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="386,-4796 268,-4796 268,-4772 386,-4772 386,-4796"/>
-<text text-anchor="middle" x="327" y="-4781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vh2vb_tp</text>
+<!-- proc~util_sort_rearrange_body -->
+<g id="call~~graph~~CallGraph_node274" class="node">
+<title>proc~util_sort_rearrange_body</title>
+<g id="a_call~~graph~~CallGraph_node274"><a xlink:href=".././proc/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="846.5,-4246 713.5,-4246 713.5,-4222 846.5,-4222 846.5,-4246"/>
+<text text-anchor="middle" x="780" y="-4231.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_coord_vh2vb_tp&#45;&gt;proc~helio_coord_vh2vb_tp -->
-<g id="call~~graph~~CallGraph_edge86" class="edge">
-<title>interface~helio_coord_vh2vb_tp&#45;&gt;proc~helio_coord_vh2vb_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-4784C187.08,-4784 225.33,-4784 257.7,-4784"/>
-<polygon fill="#000000" stroke="#000000" points="257.98,-4787.5 267.98,-4784 257.98,-4780.5 257.98,-4787.5"/>
+<!-- interface~util_sort_rearrange_body&#45;&gt;proc~util_sort_rearrange_body -->
+<g id="call~~graph~~CallGraph_edge74" class="edge">
+<title>interface~util_sort_rearrange_body&#45;&gt;proc~util_sort_rearrange_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.71,-4234C647.99,-4234 677.06,-4234 703.22,-4234"/>
+<polygon fill="#000000" stroke="#000000" points="703.46,-4237.5 713.46,-4234 703.46,-4230.5 703.46,-4237.5"/>
 </g>
-<!-- interface~helio_drift_body -->
+<!-- interface~util_sort_rearrange_pl -->
 <g id="call~~graph~~CallGraph_node97" class="node">
-<title>interface~helio_drift_body</title>
-<g id="a_call~~graph~~CallGraph_node97"><a xlink:href=".././interface/helio_drift_body.html" xlink:title="helio_drift_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="606.5,-1747 518.5,-1747 518.5,-1723 606.5,-1723 606.5,-1747"/>
-<text text-anchor="middle" x="562.5" y="-1732.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_body</text>
+<title>interface~util_sort_rearrange_pl</title>
+<g id="a_call~~graph~~CallGraph_node97"><a xlink:href=".././interface/util_sort_rearrange_pl.html" xlink:title="util_sort_rearrange_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="156,-4257 38,-4257 38,-4233 156,-4233 156,-4257"/>
+<text text-anchor="middle" x="97" y="-4242.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_drift_body -->
-<g id="call~~graph~~CallGraph_node417" class="node">
-<title>proc~helio_drift_body</title>
-<g id="a_call~~graph~~CallGraph_node417"><a xlink:href=".././proc/helio_drift_body.html" xlink:title="helio_drift_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="847.5,-1747 759.5,-1747 759.5,-1723 847.5,-1723 847.5,-1747"/>
-<text text-anchor="middle" x="803.5" y="-1732.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_body</text>
+<!-- proc~util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_node280" class="node">
+<title>proc~util_sort_rearrange_pl</title>
+<g id="a_call~~graph~~CallGraph_node280"><a xlink:href=".././proc/util_sort_rearrange_pl.html" xlink:title="util_sort_rearrange_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="386,-4257 268,-4257 268,-4233 386,-4233 386,-4257"/>
+<text text-anchor="middle" x="327" y="-4242.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_drift_body&#45;&gt;proc~helio_drift_body -->
-<g id="call~~graph~~CallGraph_edge87" class="edge">
-<title>interface~helio_drift_body&#45;&gt;proc~helio_drift_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.5,-1735C646.57,-1735 706.42,-1735 749.44,-1735"/>
-<polygon fill="#000000" stroke="#000000" points="749.44,-1738.5 759.44,-1735 749.44,-1731.5 749.44,-1738.5"/>
+<!-- interface~util_sort_rearrange_pl&#45;&gt;proc~util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_edge75" class="edge">
+<title>interface~util_sort_rearrange_pl&#45;&gt;proc~util_sort_rearrange_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-4245C187.08,-4245 225.33,-4245 257.7,-4245"/>
+<polygon fill="#000000" stroke="#000000" points="257.98,-4248.5 267.98,-4245 257.98,-4241.5 257.98,-4248.5"/>
 </g>
-<!-- interface~helio_drift_pl -->
+<!-- interface~util_sort_rearrange_tp -->
 <g id="call~~graph~~CallGraph_node98" class="node">
-<title>interface~helio_drift_pl</title>
-<g id="a_call~~graph~~CallGraph_node98"><a xlink:href=".././interface/helio_drift_pl.html" xlink:title="helio_drift_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="133.5,-1710 60.5,-1710 60.5,-1686 133.5,-1686 133.5,-1710"/>
-<text text-anchor="middle" x="97" y="-1695.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_pl</text>
+<title>interface~util_sort_rearrange_tp</title>
+<g id="a_call~~graph~~CallGraph_node98"><a xlink:href=".././interface/util_sort_rearrange_tp.html" xlink:title="util_sort_rearrange_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="156,-4215 38,-4215 38,-4191 156,-4191 156,-4215"/>
+<text text-anchor="middle" x="97" y="-4200.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_drift_pl -->
-<g id="call~~graph~~CallGraph_node419" class="node">
-<title>proc~helio_drift_pl</title>
-<g id="a_call~~graph~~CallGraph_node419"><a xlink:href=".././proc/helio_drift_pl.html" xlink:title="helio_drift_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="363.5,-1710 290.5,-1710 290.5,-1686 363.5,-1686 363.5,-1710"/>
-<text text-anchor="middle" x="327" y="-1695.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_pl</text>
+<!-- proc~util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_node288" class="node">
+<title>proc~util_sort_rearrange_tp</title>
+<g id="a_call~~graph~~CallGraph_node288"><a xlink:href=".././proc/util_sort_rearrange_tp.html" xlink:title="util_sort_rearrange_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="386,-4215 268,-4215 268,-4191 386,-4191 386,-4215"/>
+<text text-anchor="middle" x="327" y="-4200.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_drift_pl&#45;&gt;proc~helio_drift_pl -->
-<g id="call~~graph~~CallGraph_edge88" class="edge">
-<title>interface~helio_drift_pl&#45;&gt;proc~helio_drift_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M133.62,-1698C173.08,-1698 236.81,-1698 280.01,-1698"/>
-<polygon fill="#000000" stroke="#000000" points="280.25,-1701.5 290.25,-1698 280.25,-1694.5 280.25,-1701.5"/>
+<!-- interface~util_sort_rearrange_tp&#45;&gt;proc~util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_edge76" class="edge">
+<title>interface~util_sort_rearrange_tp&#45;&gt;proc~util_sort_rearrange_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-4203C187.08,-4203 225.33,-4203 257.7,-4203"/>
+<polygon fill="#000000" stroke="#000000" points="257.98,-4206.5 267.98,-4203 257.98,-4199.5 257.98,-4206.5"/>
 </g>
-<!-- interface~helio_drift_tp -->
+<!-- interface~util_sort_body -->
 <g id="call~~graph~~CallGraph_node99" class="node">
-<title>interface~helio_drift_tp</title>
-<g id="a_call~~graph~~CallGraph_node99"><a xlink:href=".././interface/helio_drift_tp.html" xlink:title="helio_drift_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="134,-1752 60,-1752 60,-1728 134,-1728 134,-1752"/>
-<text text-anchor="middle" x="97" y="-1737.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_tp</text>
+<title>interface~util_sort_body</title>
+<g id="a_call~~graph~~CallGraph_node99"><a xlink:href=".././interface/util_sort_body.html" xlink:title="util_sort_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="595.5,-4309 516.5,-4309 516.5,-4285 595.5,-4285 595.5,-4309"/>
+<text text-anchor="middle" x="556" y="-4294.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_body</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_drift_tp -->
-<g id="call~~graph~~CallGraph_node420" class="node">
-<title>proc~helio_drift_tp</title>
-<g id="a_call~~graph~~CallGraph_node420"><a xlink:href=".././proc/helio_drift_tp.html" xlink:title="helio_drift_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="364,-1752 290,-1752 290,-1728 364,-1728 364,-1752"/>
-<text text-anchor="middle" x="327" y="-1737.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_tp</text>
+<!-- proc~util_sort_body -->
+<g id="call~~graph~~CallGraph_node268" class="node">
+<title>proc~util_sort_body</title>
+<g id="a_call~~graph~~CallGraph_node268"><a xlink:href=".././proc/util_sort_body.html" xlink:title="util_sort_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="819.5,-4309 740.5,-4309 740.5,-4285 819.5,-4285 819.5,-4309"/>
+<text text-anchor="middle" x="780" y="-4294.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_body</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_drift_tp&#45;&gt;proc~helio_drift_tp -->
-<g id="call~~graph~~CallGraph_edge89" class="edge">
-<title>interface~helio_drift_tp&#45;&gt;proc~helio_drift_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M134.13,-1740C173.45,-1740 236.46,-1740 279.46,-1740"/>
-<polygon fill="#000000" stroke="#000000" points="279.67,-1743.5 289.66,-1740 279.66,-1736.5 279.67,-1743.5"/>
+<!-- interface~util_sort_body&#45;&gt;proc~util_sort_body -->
+<g id="call~~graph~~CallGraph_edge77" class="edge">
+<title>interface~util_sort_body&#45;&gt;proc~util_sort_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.67,-4297C633.04,-4297 689.78,-4297 730.23,-4297"/>
+<polygon fill="#000000" stroke="#000000" points="730.4,-4300.5 740.4,-4297 730.4,-4293.5 730.4,-4300.5"/>
 </g>
-<!-- interface~helio_drift_linear_pl -->
+<!-- interface~util_sort_pl -->
 <g id="call~~graph~~CallGraph_node100" class="node">
-<title>interface~helio_drift_linear_pl</title>
-<g id="a_call~~graph~~CallGraph_node100"><a xlink:href=".././interface/helio_drift_linear_pl.html" xlink:title="helio_drift_linear_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="150,-4838 44,-4838 44,-4814 150,-4814 150,-4838"/>
-<text text-anchor="middle" x="97" y="-4823.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_linear_pl</text>
+<title>interface~util_sort_pl</title>
+<g id="a_call~~graph~~CallGraph_node100"><a xlink:href=".././interface/util_sort_pl.html" xlink:title="util_sort_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="129,-4299 65,-4299 65,-4275 129,-4275 129,-4299"/>
+<text text-anchor="middle" x="97" y="-4284.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_drift_linear_pl -->
-<g id="call~~graph~~CallGraph_node421" class="node">
-<title>proc~helio_drift_linear_pl</title>
-<g id="a_call~~graph~~CallGraph_node421"><a xlink:href=".././proc/helio_drift_linear_pl.html" xlink:title="helio_drift_linear_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="380,-4838 274,-4838 274,-4814 380,-4814 380,-4838"/>
-<text text-anchor="middle" x="327" y="-4823.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_linear_pl</text>
+<!-- proc~util_sort_pl -->
+<g id="call~~graph~~CallGraph_node272" class="node">
+<title>proc~util_sort_pl</title>
+<g id="a_call~~graph~~CallGraph_node272"><a xlink:href=".././proc/util_sort_pl.html" xlink:title="util_sort_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="359,-4299 295,-4299 295,-4275 359,-4275 359,-4299"/>
+<text text-anchor="middle" x="327" y="-4284.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_drift_linear_pl&#45;&gt;proc~helio_drift_linear_pl -->
-<g id="call~~graph~~CallGraph_edge90" class="edge">
-<title>interface~helio_drift_linear_pl&#45;&gt;proc~helio_drift_linear_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M150.02,-4826C183.76,-4826 227.89,-4826 263.52,-4826"/>
-<polygon fill="#000000" stroke="#000000" points="263.81,-4829.5 273.81,-4826 263.81,-4822.5 263.81,-4829.5"/>
+<!-- interface~util_sort_pl&#45;&gt;proc~util_sort_pl -->
+<g id="call~~graph~~CallGraph_edge78" class="edge">
+<title>interface~util_sort_pl&#45;&gt;proc~util_sort_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M129.22,-4287C169.53,-4287 239.8,-4287 284.55,-4287"/>
+<polygon fill="#000000" stroke="#000000" points="284.79,-4290.5 294.79,-4287 284.79,-4283.5 284.79,-4290.5"/>
 </g>
-<!-- interface~helio_drift_linear_tp -->
+<!-- interface~util_sort_tp -->
 <g id="call~~graph~~CallGraph_node101" class="node">
-<title>interface~helio_drift_linear_tp</title>
-<g id="a_call~~graph~~CallGraph_node101"><a xlink:href=".././interface/helio_drift_linear_tp.html" xlink:title="helio_drift_linear_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="150,-4880 44,-4880 44,-4856 150,-4856 150,-4880"/>
-<text text-anchor="middle" x="97" y="-4865.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_linear_tp</text>
+<title>interface~util_sort_tp</title>
+<g id="a_call~~graph~~CallGraph_node101"><a xlink:href=".././interface/util_sort_tp.html" xlink:title="util_sort_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="129.5,-4341 64.5,-4341 64.5,-4317 129.5,-4317 129.5,-4341"/>
+<text text-anchor="middle" x="97" y="-4326.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_drift_linear_tp -->
-<g id="call~~graph~~CallGraph_node422" class="node">
-<title>proc~helio_drift_linear_tp</title>
-<g id="a_call~~graph~~CallGraph_node422"><a xlink:href=".././proc/helio_drift_linear_tp.html" xlink:title="helio_drift_linear_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="380,-4880 274,-4880 274,-4856 380,-4856 380,-4880"/>
-<text text-anchor="middle" x="327" y="-4865.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_linear_tp</text>
+<!-- proc~util_sort_tp -->
+<g id="call~~graph~~CallGraph_node271" class="node">
+<title>proc~util_sort_tp</title>
+<g id="a_call~~graph~~CallGraph_node271"><a xlink:href=".././proc/util_sort_tp.html" xlink:title="util_sort_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="359.5,-4341 294.5,-4341 294.5,-4317 359.5,-4317 359.5,-4341"/>
+<text text-anchor="middle" x="327" y="-4326.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_drift_linear_tp&#45;&gt;proc~helio_drift_linear_tp -->
-<g id="call~~graph~~CallGraph_edge91" class="edge">
-<title>interface~helio_drift_linear_tp&#45;&gt;proc~helio_drift_linear_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M150.02,-4868C183.76,-4868 227.89,-4868 263.52,-4868"/>
-<polygon fill="#000000" stroke="#000000" points="263.81,-4871.5 273.81,-4868 263.81,-4864.5 263.81,-4871.5"/>
+<!-- interface~util_sort_tp&#45;&gt;proc~util_sort_tp -->
+<g id="call~~graph~~CallGraph_edge79" class="edge">
+<title>interface~util_sort_tp&#45;&gt;proc~util_sort_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M129.7,-4329C169.92,-4329 239.38,-4329 283.98,-4329"/>
+<polygon fill="#000000" stroke="#000000" points="284.2,-4332.5 294.2,-4329 284.2,-4325.5 284.2,-4332.5"/>
+</g>
+<!-- proc~setup_construct_system&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge80" class="edge">
+<title>proc~setup_construct_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M620.35,-803.49C631.59,-800.31 642.67,-795.69 652,-789 719.5,-740.58 757.85,-644.1 772.3,-600.86"/>
+<polygon fill="#000000" stroke="#000000" points="775.72,-601.66 775.46,-591.07 769.06,-599.51 775.72,-601.66"/>
+</g>
+<!-- proc~setup_tp&#45;&gt;interface~setup_body -->
+<g id="call~~graph~~CallGraph_edge81" class="edge">
+<title>proc~setup_tp&#45;&gt;interface~setup_body</title>
+<path fill="none" stroke="#000000" d="M354.04,-2695.59C392.58,-2692.03 465.27,-2685.3 511.85,-2680.99"/>
+<polygon fill="#000000" stroke="#000000" points="512.31,-2684.46 521.95,-2680.06 511.67,-2677.49 512.31,-2684.46"/>
 </g>
 <!-- proc~util_append_arr_dp -->
-<g id="call~~graph~~CallGraph_node102" class="node">
+<g id="call~~graph~~CallGraph_node107" class="node">
 <title>proc~util_append_arr_dp</title>
-<g id="a_call~~graph~~CallGraph_node102"><a xlink:href=".././proc/util_append_arr_dp.html" xlink:title="util_append_arr_DP">
-<polygon fill="#d9534f" stroke="#d9534f" points="857.5,-4299 749.5,-4299 749.5,-4275 857.5,-4275 857.5,-4299"/>
-<text text-anchor="middle" x="803.5" y="-4284.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_DP</text>
+<g id="a_call~~graph~~CallGraph_node107"><a xlink:href=".././proc/util_append_arr_dp.html" xlink:title="util_append_arr_DP">
+<polygon fill="#d9534f" stroke="#d9534f" points="834,-3630 726,-3630 726,-3606 834,-3606 834,-3630"/>
+<text text-anchor="middle" x="780" y="-3615.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_DP</text>
 </a>
 </g>
 </g>
 <!-- proc~util_append_arr_dp&#45;&gt;interface~util_resize~2 -->
-<g id="call~~graph~~CallGraph_edge92" class="edge">
+<g id="call~~graph~~CallGraph_edge82" class="edge">
 <title>proc~util_append_arr_dp&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M857.53,-4279.22C873.4,-4276.05 890.66,-4271.74 906,-4266 951.79,-4248.87 1000.36,-4219.15 1029.29,-4200.04"/>
-<polygon fill="#000000" stroke="#000000" points="1031.6,-4202.71 1037.97,-4194.24 1027.71,-4196.89 1031.6,-4202.71"/>
-</g>
-<!-- interface~helio_gr_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_node103" class="node">
-<title>interface~helio_gr_kick_getacch_pl</title>
-<g id="a_call~~graph~~CallGraph_node103"><a xlink:href=".././interface/helio_gr_kick_getacch_pl.html" xlink:title="helio_gr_kick_getacch_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="163.5,-3979 30.5,-3979 30.5,-3955 163.5,-3955 163.5,-3979"/>
-<text text-anchor="middle" x="97" y="-3964.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_kick_getacch_pl</text>
-</a>
-</g>
-</g>
-<!-- proc~helio_gr_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_node363" class="node">
-<title>proc~helio_gr_kick_getacch_pl</title>
-<g id="a_call~~graph~~CallGraph_node363"><a xlink:href=".././proc/helio_gr_kick_getacch_pl.html" xlink:title="helio_gr_kick_getacch_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="393.5,-3979 260.5,-3979 260.5,-3955 393.5,-3955 393.5,-3979"/>
-<text text-anchor="middle" x="327" y="-3964.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_kick_getacch_pl</text>
-</a>
+<path fill="none" stroke="#000000" d="M834.34,-3608.71C846.94,-3605.69 860.14,-3601.84 872,-3597 914.35,-3579.71 958.7,-3550.24 985.21,-3531.2"/>
+<polygon fill="#000000" stroke="#000000" points="987.46,-3533.89 993.49,-3525.17 983.34,-3528.23 987.46,-3533.89"/>
 </g>
-</g>
-<!-- interface~helio_gr_kick_getacch_pl&#45;&gt;proc~helio_gr_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_edge93" class="edge">
-<title>interface~helio_gr_kick_getacch_pl&#45;&gt;proc~helio_gr_kick_getacch_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.64,-3967C190.71,-3967 222.24,-3967 250.27,-3967"/>
-<polygon fill="#000000" stroke="#000000" points="250.43,-3970.5 260.43,-3967 250.43,-3963.5 250.43,-3970.5"/>
+<!-- proc~setup_pl&#45;&gt;interface~setup_body -->
+<g id="call~~graph~~CallGraph_edge83" class="edge">
+<title>proc~setup_pl&#45;&gt;interface~setup_body</title>
+<path fill="none" stroke="#000000" d="M354.04,-2658.41C392.58,-2661.97 465.27,-2668.7 511.85,-2673.01"/>
+<polygon fill="#000000" stroke="#000000" points="511.67,-2676.51 521.95,-2673.94 512.31,-2669.54 511.67,-2676.51"/>
 </g>
 <!-- proc~util_append_arr_dpvec -->
-<g id="call~~graph~~CallGraph_node104" class="node">
+<g id="call~~graph~~CallGraph_node109" class="node">
 <title>proc~util_append_arr_dpvec</title>
-<g id="a_call~~graph~~CallGraph_node104"><a xlink:href=".././proc/util_append_arr_dpvec.html" xlink:title="util_append_arr_DPvec">
-<polygon fill="#d9534f" stroke="#d9534f" points="865.5,-4257 741.5,-4257 741.5,-4233 865.5,-4233 865.5,-4257"/>
-<text text-anchor="middle" x="803.5" y="-4242.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_DPvec</text>
+<g id="a_call~~graph~~CallGraph_node109"><a xlink:href=".././proc/util_append_arr_dpvec.html" xlink:title="util_append_arr_DPvec">
+<polygon fill="#d9534f" stroke="#d9534f" points="842,-3588 718,-3588 718,-3564 842,-3564 842,-3588"/>
+<text text-anchor="middle" x="780" y="-3573.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_DPvec</text>
 </a>
 </g>
 </g>
 <!-- proc~util_append_arr_dpvec&#45;&gt;interface~util_resize~2 -->
-<g id="call~~graph~~CallGraph_edge94" class="edge">
+<g id="call~~graph~~CallGraph_edge84" class="edge">
 <title>proc~util_append_arr_dpvec&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M865.57,-4233.09C878.93,-4230.28 892.97,-4227.17 906,-4224 943.65,-4214.83 986.16,-4202.71 1016.19,-4193.85"/>
-<polygon fill="#000000" stroke="#000000" points="1017.29,-4197.18 1025.88,-4190.98 1015.3,-4190.47 1017.29,-4197.18"/>
-</g>
-<!-- interface~helio_gr_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_node105" class="node">
-<title>interface~helio_gr_kick_getacch_tp</title>
-<g id="a_call~~graph~~CallGraph_node105"><a xlink:href=".././interface/helio_gr_kick_getacch_tp.html" xlink:title="helio_gr_kick_getacch_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="163.5,-3937 30.5,-3937 30.5,-3913 163.5,-3913 163.5,-3937"/>
-<text text-anchor="middle" x="97" y="-3922.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_kick_getacch_tp</text>
-</a>
+<path fill="none" stroke="#000000" d="M836.01,-3563.96C847.92,-3561.17 860.41,-3558.1 872,-3555 905.39,-3546.06 942.9,-3534.5 970.29,-3525.77"/>
+<polygon fill="#000000" stroke="#000000" points="971.44,-3529.08 979.9,-3522.69 969.31,-3522.41 971.44,-3529.08"/>
 </g>
-</g>
-<!-- proc~helio_gr_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_node381" class="node">
-<title>proc~helio_gr_kick_getacch_tp</title>
-<g id="a_call~~graph~~CallGraph_node381"><a xlink:href=".././proc/helio_gr_kick_getacch_tp.html" xlink:title="helio_gr_kick_getacch_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="393.5,-3937 260.5,-3937 260.5,-3913 393.5,-3913 393.5,-3937"/>
-<text text-anchor="middle" x="327" y="-3922.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_kick_getacch_tp</text>
+<!-- proc~util_append_arr_i4b -->
+<g id="call~~graph~~CallGraph_node110" class="node">
+<title>proc~util_append_arr_i4b</title>
+<g id="a_call~~graph~~CallGraph_node110"><a xlink:href=".././proc/util_append_arr_i4b.html" xlink:title="util_append_arr_I4B">
+<polygon fill="#d9534f" stroke="#d9534f" points="834.5,-3546 725.5,-3546 725.5,-3522 834.5,-3522 834.5,-3546"/>
+<text text-anchor="middle" x="780" y="-3531.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_I4B</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_gr_kick_getacch_tp&#45;&gt;proc~helio_gr_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_edge95" class="edge">
-<title>interface~helio_gr_kick_getacch_tp&#45;&gt;proc~helio_gr_kick_getacch_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.64,-3925C190.71,-3925 222.24,-3925 250.27,-3925"/>
-<polygon fill="#000000" stroke="#000000" points="250.43,-3928.5 260.43,-3925 250.43,-3921.5 250.43,-3928.5"/>
+<!-- proc~util_append_arr_i4b&#45;&gt;interface~util_resize~2 -->
+<g id="call~~graph~~CallGraph_edge85" class="edge">
+<title>proc~util_append_arr_i4b&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M834.57,-3529.08C875.93,-3525.28 932.23,-3520.1 969.66,-3516.66"/>
+<polygon fill="#000000" stroke="#000000" points="970.06,-3520.14 979.69,-3515.74 969.42,-3513.17 970.06,-3520.14"/>
 </g>
-<!-- interface~helio_gr_p4_pl -->
-<g id="call~~graph~~CallGraph_node106" class="node">
-<title>interface~helio_gr_p4_pl</title>
-<g id="a_call~~graph~~CallGraph_node106"><a xlink:href=".././interface/helio_gr_p4_pl.html" xlink:title="helio_gr_p4_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="138.5,-4334 55.5,-4334 55.5,-4310 138.5,-4310 138.5,-4334"/>
-<text text-anchor="middle" x="97" y="-4319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_p4_pl</text>
+<!-- proc~eucl_dist_index_plpl -->
+<g id="call~~graph~~CallGraph_node111" class="node">
+<title>proc~eucl_dist_index_plpl</title>
+<g id="a_call~~graph~~CallGraph_node111"><a xlink:href=".././proc/eucl_dist_index_plpl.html" xlink:title="eucl_dist_index_plpl">
+<polygon fill="#d9534f" stroke="#d9534f" points="381.5,-4383 272.5,-4383 272.5,-4359 381.5,-4359 381.5,-4383"/>
+<text text-anchor="middle" x="327" y="-4368.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl_dist_index_plpl</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_gr_p4_pl -->
-<g id="call~~graph~~CallGraph_node383" class="node">
-<title>proc~helio_gr_p4_pl</title>
-<g id="a_call~~graph~~CallGraph_node383"><a xlink:href=".././proc/helio_gr_p4_pl.html" xlink:title="helio_gr_p4_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="368.5,-4334 285.5,-4334 285.5,-4310 368.5,-4310 368.5,-4334"/>
-<text text-anchor="middle" x="327" y="-4319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_p4_pl</text>
+<!-- proc~util_append_arr_logical -->
+<g id="call~~graph~~CallGraph_node112" class="node">
+<title>proc~util_append_arr_logical</title>
+<g id="a_call~~graph~~CallGraph_node112"><a xlink:href=".././proc/util_append_arr_logical.html" xlink:title="util_append_arr_logical">
+<polygon fill="#d9534f" stroke="#d9534f" points="842,-3504 718,-3504 718,-3480 842,-3480 842,-3504"/>
+<text text-anchor="middle" x="780" y="-3489.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_logical</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_gr_p4_pl&#45;&gt;proc~helio_gr_p4_pl -->
-<g id="call~~graph~~CallGraph_edge96" class="edge">
-<title>interface~helio_gr_p4_pl&#45;&gt;proc~helio_gr_p4_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.76,-4322C176.9,-4322 234.01,-4322 275.12,-4322"/>
-<polygon fill="#000000" stroke="#000000" points="275.21,-4325.5 285.21,-4322 275.21,-4318.5 275.21,-4325.5"/>
+<!-- proc~util_append_arr_logical&#45;&gt;interface~util_resize~2 -->
+<g id="call~~graph~~CallGraph_edge86" class="edge">
+<title>proc~util_append_arr_logical&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M842.23,-3497.63C882.61,-3501.34 934.33,-3506.09 969.5,-3509.32"/>
+<polygon fill="#000000" stroke="#000000" points="969.57,-3512.85 979.85,-3510.27 970.21,-3505.87 969.57,-3512.85"/>
 </g>
-<!-- interface~helio_gr_p4_tp -->
-<g id="call~~graph~~CallGraph_node107" class="node">
-<title>interface~helio_gr_p4_tp</title>
-<g id="a_call~~graph~~CallGraph_node107"><a xlink:href=".././interface/helio_gr_p4_tp.html" xlink:title="helio_gr_p4_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="139,-4292 55,-4292 55,-4268 139,-4268 139,-4292"/>
-<text text-anchor="middle" x="97" y="-4277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_p4_tp</text>
+<!-- interface~util_append~2 -->
+<g id="call~~graph~~CallGraph_node180" class="node">
+<title>interface~util_append~2</title>
+<g id="a_call~~graph~~CallGraph_node180"><a xlink:href=".././interface/util_append~2.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="1285.5,-316 1217.5,-316 1217.5,-292 1285.5,-292 1285.5,-316"/>
+<text text-anchor="middle" x="1251.5" y="-301.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_gr_p4_tp -->
-<g id="call~~graph~~CallGraph_node396" class="node">
-<title>proc~helio_gr_p4_tp</title>
-<g id="a_call~~graph~~CallGraph_node396"><a xlink:href=".././proc/helio_gr_p4_tp.html" xlink:title="helio_gr_p4_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="369,-4292 285,-4292 285,-4268 369,-4268 369,-4292"/>
-<text text-anchor="middle" x="327" y="-4277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_p4_tp</text>
+<!-- proc~util_append_body&#45;&gt;interface~util_append~2 -->
+<g id="call~~graph~~CallGraph_edge87" class="edge">
+<title>proc~util_append_body&#45;&gt;interface~util_append~2</title>
+<path fill="none" stroke="#000000" d="M1059,-304C1102.18,-304 1165.33,-304 1207.16,-304"/>
+<polygon fill="#000000" stroke="#000000" points="1207.3,-307.5 1217.3,-304 1207.3,-300.5 1207.3,-307.5"/>
+</g>
+<!-- proc~orbel_esolmd -->
+<g id="call~~graph~~CallGraph_node115" class="node">
+<title>proc~orbel_esolmd</title>
+<g id="a_call~~graph~~CallGraph_node115"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1049,-2256 972,-2256 972,-2232 1049,-2232 1049,-2256"/>
+<text text-anchor="middle" x="1010.5" y="-2241.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_esolmd</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_gr_p4_tp&#45;&gt;proc~helio_gr_p4_tp -->
-<g id="call~~graph~~CallGraph_edge97" class="edge">
-<title>interface~helio_gr_p4_tp&#45;&gt;proc~helio_gr_p4_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M139.03,-4280C177.08,-4280 233.86,-4280 274.86,-4280"/>
-<polygon fill="#000000" stroke="#000000" points="274.92,-4283.5 284.92,-4280 274.92,-4276.5 274.92,-4283.5"/>
-</g>
-<!-- proc~symba_setup_pl -->
-<g id="call~~graph~~CallGraph_node108" class="node">
-<title>proc~symba_setup_pl</title>
-<g id="a_call~~graph~~CallGraph_node108"><a xlink:href=".././proc/symba_setup_pl.html" xlink:title="symba_setup_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="849,-4922 758,-4922 758,-4898 849,-4898 849,-4922"/>
-<text text-anchor="middle" x="803.5" y="-4907.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_pl</text>
-</a>
-</g>
-</g>
-<!-- setup_pl -->
-<g id="call~~graph~~CallGraph_node583" class="node">
-<title>setup_pl</title>
-<polygon fill="#777777" stroke="#777777" points="1083.5,-4943 1029.5,-4943 1029.5,-4919 1083.5,-4919 1083.5,-4943"/>
-<text text-anchor="middle" x="1056.5" y="-4928.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_pl</text>
-</g>
-<!-- proc~symba_setup_pl&#45;&gt;setup_pl -->
-<g id="call~~graph~~CallGraph_edge98" class="edge">
-<title>proc~symba_setup_pl&#45;&gt;setup_pl</title>
-<path fill="none" stroke="#000000" d="M849.08,-4913.73C897.6,-4917.79 974.24,-4924.2 1019.22,-4927.96"/>
-<polygon fill="#000000" stroke="#000000" points="1019.14,-4931.47 1029.39,-4928.82 1019.72,-4924.49 1019.14,-4931.47"/>
-</g>
-<!-- interface~helio_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_node109" class="node">
-<title>interface~helio_kick_getacch_pl</title>
-<g id="a_call~~graph~~CallGraph_node109"><a xlink:href=".././interface/helio_kick_getacch_pl.html" xlink:title="helio_kick_getacch_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-4964 38.5,-4964 38.5,-4940 155.5,-4940 155.5,-4964"/>
-<text text-anchor="middle" x="97" y="-4949.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_pl</text>
-</a>
-</g>
-</g>
-<!-- proc~helio_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_node379" class="node">
-<title>proc~helio_kick_getacch_pl</title>
-<g id="a_call~~graph~~CallGraph_node379"><a xlink:href=".././proc/helio_kick_getacch_pl.html" xlink:title="helio_kick_getacch_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-4964 268.5,-4964 268.5,-4940 385.5,-4940 385.5,-4964"/>
-<text text-anchor="middle" x="327" y="-4949.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_pl</text>
-</a>
-</g>
-</g>
-<!-- interface~helio_kick_getacch_pl&#45;&gt;proc~helio_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_edge99" class="edge">
-<title>interface~helio_kick_getacch_pl&#45;&gt;proc~helio_kick_getacch_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.53,-4952C186.72,-4952 225.45,-4952 258.11,-4952"/>
-<polygon fill="#000000" stroke="#000000" points="258.48,-4955.5 268.48,-4952 258.48,-4948.5 258.48,-4955.5"/>
+<!-- proc~orbel_esolmd&#45;&gt;interface~orbel_scget -->
+<g id="call~~graph~~CallGraph_edge88" class="edge">
+<title>proc~orbel_esolmd&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M1049.11,-2244C1092.04,-2244 1162.13,-2244 1207.28,-2244"/>
+<polygon fill="#000000" stroke="#000000" points="1207.35,-2247.5 1217.35,-2244 1207.35,-2240.5 1207.35,-2247.5"/>
 </g>
-<!-- proc~symba_setup_merger -->
-<g id="call~~graph~~CallGraph_node110" class="node">
-<title>proc~symba_setup_merger</title>
-<g id="a_call~~graph~~CallGraph_node110"><a xlink:href=".././proc/symba_setup_merger.html" xlink:title="symba_setup_merger">
-<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-4922 268.5,-4922 268.5,-4898 385.5,-4898 385.5,-4922"/>
-<text text-anchor="middle" x="327" y="-4907.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_merger</text>
+<!-- interface~whm_coord_vh2vj_pl -->
+<g id="call~~graph~~CallGraph_node116" class="node">
+<title>interface~whm_coord_vh2vj_pl</title>
+<g id="a_call~~graph~~CallGraph_node116"><a xlink:href=".././interface/whm_coord_vh2vj_pl.html" xlink:title="whm_coord_vh2vj_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="153.5,-4425 40.5,-4425 40.5,-4401 153.5,-4401 153.5,-4425"/>
+<text text-anchor="middle" x="97" y="-4410.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_vh2vj_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_setup_pl -->
-<g id="call~~graph~~CallGraph_node130" class="node">
-<title>interface~symba_setup_pl</title>
-<g id="a_call~~graph~~CallGraph_node130"><a xlink:href=".././interface/symba_setup_pl.html" xlink:title="symba_setup_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="608,-4922 517,-4922 517,-4898 608,-4898 608,-4922"/>
-<text text-anchor="middle" x="562.5" y="-4907.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_pl</text>
+<!-- proc~whm_coord_vh2vj_pl -->
+<g id="call~~graph~~CallGraph_node287" class="node">
+<title>proc~whm_coord_vh2vj_pl</title>
+<g id="a_call~~graph~~CallGraph_node287"><a xlink:href=".././proc/whm_coord_vh2vj_pl.html" xlink:title="whm_coord_vh2vj_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="383.5,-4425 270.5,-4425 270.5,-4401 383.5,-4401 383.5,-4425"/>
+<text text-anchor="middle" x="327" y="-4410.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_vh2vj_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_setup_merger&#45;&gt;interface~symba_setup_pl -->
-<g id="call~~graph~~CallGraph_edge100" class="edge">
-<title>proc~symba_setup_merger&#45;&gt;interface~symba_setup_pl</title>
-<path fill="none" stroke="#000000" d="M385.72,-4910C422.59,-4910 470.13,-4910 506.47,-4910"/>
-<polygon fill="#000000" stroke="#000000" points="506.88,-4913.5 516.88,-4910 506.88,-4906.5 506.88,-4913.5"/>
+<!-- interface~whm_coord_vh2vj_pl&#45;&gt;proc~whm_coord_vh2vj_pl -->
+<g id="call~~graph~~CallGraph_edge89" class="edge">
+<title>interface~whm_coord_vh2vj_pl&#45;&gt;proc~whm_coord_vh2vj_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.78,-4413C185.91,-4413 226.49,-4413 260.19,-4413"/>
+<polygon fill="#000000" stroke="#000000" points="260.41,-4416.5 270.41,-4413 260.41,-4409.5 260.41,-4416.5"/>
 </g>
-<!-- interface~helio_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_node111" class="node">
-<title>interface~helio_kick_getacch_tp</title>
-<g id="a_call~~graph~~CallGraph_node111"><a xlink:href=".././interface/helio_kick_getacch_tp.html" xlink:title="helio_kick_getacch_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="156,-5006 38,-5006 38,-4982 156,-4982 156,-5006"/>
-<text text-anchor="middle" x="97" y="-4991.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_tp</text>
+<!-- proc~whm_step_system -->
+<g id="call~~graph~~CallGraph_node117" class="node">
+<title>proc~whm_step_system</title>
+<g id="a_call~~graph~~CallGraph_node117"><a xlink:href=".././proc/whm_step_system.html" xlink:title="whm_step_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="377.5,-4572 276.5,-4572 276.5,-4548 377.5,-4548 377.5,-4572"/>
+<text text-anchor="middle" x="327" y="-4557.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_system</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_node401" class="node">
-<title>proc~helio_kick_getacch_tp</title>
-<g id="a_call~~graph~~CallGraph_node401"><a xlink:href=".././proc/helio_kick_getacch_tp.html" xlink:title="helio_kick_getacch_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="386,-5006 268,-5006 268,-4982 386,-4982 386,-5006"/>
-<text text-anchor="middle" x="327" y="-4991.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_tp</text>
+<!-- proc~symba_step_system -->
+<g id="call~~graph~~CallGraph_node118" class="node">
+<title>proc~symba_step_system</title>
+<g id="a_call~~graph~~CallGraph_node118"><a xlink:href=".././proc/symba_step_system.html" xlink:title="symba_step_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="382,-4635 272,-4635 272,-4611 382,-4611 382,-4635"/>
+<text text-anchor="middle" x="327" y="-4620.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_system</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_kick_getacch_tp&#45;&gt;proc~helio_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_edge101" class="edge">
-<title>interface~helio_kick_getacch_tp&#45;&gt;proc~helio_kick_getacch_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-4994C187.08,-4994 225.33,-4994 257.7,-4994"/>
-<polygon fill="#000000" stroke="#000000" points="257.98,-4997.5 267.98,-4994 257.98,-4990.5 257.98,-4997.5"/>
-</g>
-<!-- interface~helio_kick_vb_pl -->
-<g id="call~~graph~~CallGraph_node112" class="node">
-<title>interface~helio_kick_vb_pl</title>
-<g id="a_call~~graph~~CallGraph_node112"><a xlink:href=".././interface/helio_kick_vb_pl.html" xlink:title="helio_kick_vb_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-5048 51.5,-5048 51.5,-5024 142.5,-5024 142.5,-5048"/>
-<text text-anchor="middle" x="97" y="-5033.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_vb_pl</text>
-</a>
+<!-- helio_step_system -->
+<g id="call~~graph~~CallGraph_node589" class="node">
+<title>helio_step_system</title>
+<polygon fill="#777777" stroke="#777777" points="606.5,-4635 505.5,-4635 505.5,-4611 606.5,-4611 606.5,-4635"/>
+<text text-anchor="middle" x="556" y="-4620.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_system</text>
 </g>
+<!-- proc~symba_step_system&#45;&gt;helio_step_system -->
+<g id="call~~graph~~CallGraph_edge90" class="edge">
+<title>proc~symba_step_system&#45;&gt;helio_step_system</title>
+<path fill="none" stroke="#000000" d="M382.08,-4623C416.1,-4623 460.03,-4623 495.1,-4623"/>
+<polygon fill="#000000" stroke="#000000" points="495.21,-4626.5 505.21,-4623 495.21,-4619.5 495.21,-4626.5"/>
 </g>
-<!-- proc~helio_kick_vb_pl -->
-<g id="call~~graph~~CallGraph_node400" class="node">
-<title>proc~helio_kick_vb_pl</title>
-<g id="a_call~~graph~~CallGraph_node400"><a xlink:href=".././proc/helio_kick_vb_pl.html" xlink:title="helio_kick_vb_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-5048 281.5,-5048 281.5,-5024 372.5,-5024 372.5,-5048"/>
-<text text-anchor="middle" x="327" y="-5033.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_vb_pl</text>
+<!-- interface~whm_drift_pl -->
+<g id="call~~graph~~CallGraph_node119" class="node">
+<title>interface~whm_drift_pl</title>
+<g id="a_call~~graph~~CallGraph_node119"><a xlink:href=".././interface/whm_drift_pl.html" xlink:title="whm_drift_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="1047,-5467 974,-5467 974,-5443 1047,-5443 1047,-5467"/>
+<text text-anchor="middle" x="1010.5" y="-5452.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_kick_vb_pl&#45;&gt;proc~helio_kick_vb_pl -->
-<g id="call~~graph~~CallGraph_edge102" class="edge">
-<title>interface~helio_kick_vb_pl&#45;&gt;proc~helio_kick_vb_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.5,-5036C179.26,-5036 231.61,-5036 270.99,-5036"/>
-<polygon fill="#000000" stroke="#000000" points="271.22,-5039.5 281.22,-5036 271.22,-5032.5 271.22,-5039.5"/>
-</g>
-<!-- proc~util_append_arr_i4b -->
-<g id="call~~graph~~CallGraph_node113" class="node">
-<title>proc~util_append_arr_i4b</title>
-<g id="a_call~~graph~~CallGraph_node113"><a xlink:href=".././proc/util_append_arr_i4b.html" xlink:title="util_append_arr_I4B">
-<polygon fill="#d9534f" stroke="#d9534f" points="858,-4215 749,-4215 749,-4191 858,-4191 858,-4215"/>
-<text text-anchor="middle" x="803.5" y="-4200.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_I4B</text>
+<!-- proc~whm_drift_pl -->
+<g id="call~~graph~~CallGraph_node130" class="node">
+<title>proc~whm_drift_pl</title>
+<g id="a_call~~graph~~CallGraph_node130"><a xlink:href=".././proc/whm_drift_pl.html" xlink:title="whm_drift_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="1288,-5467 1215,-5467 1215,-5443 1288,-5443 1288,-5467"/>
+<text text-anchor="middle" x="1251.5" y="-5452.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_append_arr_i4b&#45;&gt;interface~util_resize~2 -->
-<g id="call~~graph~~CallGraph_edge103" class="edge">
-<title>proc~util_append_arr_i4b&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M858.04,-4198.52C905.39,-4194.56 973.38,-4188.87 1015.96,-4185.31"/>
-<polygon fill="#000000" stroke="#000000" points="1016.28,-4188.79 1025.95,-4184.47 1015.69,-4181.82 1016.28,-4188.79"/>
+<!-- interface~whm_drift_pl&#45;&gt;proc~whm_drift_pl -->
+<g id="call~~graph~~CallGraph_edge91" class="edge">
+<title>interface~whm_drift_pl&#45;&gt;proc~whm_drift_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1047.02,-5455C1088.88,-5455 1158.55,-5455 1204.5,-5455"/>
+<polygon fill="#000000" stroke="#000000" points="1204.78,-5458.5 1214.78,-5455 1204.78,-5451.5 1204.78,-5458.5"/>
 </g>
-<!-- interface~helio_kick_vb_tp -->
-<g id="call~~graph~~CallGraph_node115" class="node">
-<title>interface~helio_kick_vb_tp</title>
-<g id="a_call~~graph~~CallGraph_node115"><a xlink:href=".././interface/helio_kick_vb_tp.html" xlink:title="helio_kick_vb_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-5090 51.5,-5090 51.5,-5066 142.5,-5066 142.5,-5090"/>
-<text text-anchor="middle" x="97" y="-5075.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_vb_tp</text>
+<!-- interface~whm_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node120" class="node">
+<title>interface~whm_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node120"><a xlink:href=".././interface/whm_kick_getacch_pl.html" xlink:title="whm_kick_getacch_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-5614 38.5,-5614 38.5,-5590 155.5,-5590 155.5,-5614"/>
+<text text-anchor="middle" x="97" y="-5599.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_kick_vb_tp -->
-<g id="call~~graph~~CallGraph_node403" class="node">
-<title>proc~helio_kick_vb_tp</title>
-<g id="a_call~~graph~~CallGraph_node403"><a xlink:href=".././proc/helio_kick_vb_tp.html" xlink:title="helio_kick_vb_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-5090 281.5,-5090 281.5,-5066 372.5,-5066 372.5,-5090"/>
-<text text-anchor="middle" x="327" y="-5075.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_vb_tp</text>
+<!-- proc~whm_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node154" class="node">
+<title>proc~whm_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node154"><a xlink:href=".././proc/whm_kick_getacch_pl.html" xlink:title="whm_kick_getacch_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-5614 268.5,-5614 268.5,-5590 385.5,-5590 385.5,-5614"/>
+<text text-anchor="middle" x="327" y="-5599.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_kick_vb_tp&#45;&gt;proc~helio_kick_vb_tp -->
-<g id="call~~graph~~CallGraph_edge104" class="edge">
-<title>interface~helio_kick_vb_tp&#45;&gt;proc~helio_kick_vb_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.5,-5078C179.26,-5078 231.61,-5078 270.99,-5078"/>
-<polygon fill="#000000" stroke="#000000" points="271.22,-5081.5 281.22,-5078 271.22,-5074.5 271.22,-5081.5"/>
+<!-- interface~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_edge92" class="edge">
+<title>interface~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.53,-5602C186.72,-5602 225.45,-5602 258.11,-5602"/>
+<polygon fill="#000000" stroke="#000000" points="258.48,-5605.5 268.48,-5602 258.48,-5598.5 258.48,-5605.5"/>
 </g>
-<!-- interface~helio_step_pl -->
-<g id="call~~graph~~CallGraph_node116" class="node">
-<title>interface~helio_step_pl</title>
-<g id="a_call~~graph~~CallGraph_node116"><a xlink:href=".././interface/helio_step_pl.html" xlink:title="helio_step_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="135,-5132 59,-5132 59,-5108 135,-5108 135,-5132"/>
-<text text-anchor="middle" x="97" y="-5117.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_pl</text>
+<!-- interface~whm_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node121" class="node">
+<title>interface~whm_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node121"><a xlink:href=".././interface/whm_kick_getacch_tp.html" xlink:title="whm_kick_getacch_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="156,-5656 38,-5656 38,-5632 156,-5632 156,-5656"/>
+<text text-anchor="middle" x="97" y="-5641.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_step_pl -->
-<g id="call~~graph~~CallGraph_node367" class="node">
-<title>proc~helio_step_pl</title>
-<g id="a_call~~graph~~CallGraph_node367"><a xlink:href=".././proc/helio_step_pl.html" xlink:title="helio_step_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="365,-5132 289,-5132 289,-5108 365,-5108 365,-5132"/>
-<text text-anchor="middle" x="327" y="-5117.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_pl</text>
+<!-- proc~whm_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node156" class="node">
+<title>proc~whm_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node156"><a xlink:href=".././proc/whm_kick_getacch_tp.html" xlink:title="whm_kick_getacch_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="386,-5656 268,-5656 268,-5632 386,-5632 386,-5656"/>
+<text text-anchor="middle" x="327" y="-5641.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_step_pl&#45;&gt;proc~helio_step_pl -->
-<g id="call~~graph~~CallGraph_edge105" class="edge">
-<title>interface~helio_step_pl&#45;&gt;proc~helio_step_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.14,-5120C174.31,-5120 236.14,-5120 278.75,-5120"/>
-<polygon fill="#000000" stroke="#000000" points="278.88,-5123.5 288.88,-5120 278.88,-5116.5 278.88,-5123.5"/>
+<!-- interface~whm_kick_getacch_tp&#45;&gt;proc~whm_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_edge93" class="edge">
+<title>interface~whm_kick_getacch_tp&#45;&gt;proc~whm_kick_getacch_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-5644C187.08,-5644 225.33,-5644 257.7,-5644"/>
+<polygon fill="#000000" stroke="#000000" points="257.98,-5647.5 267.98,-5644 257.98,-5640.5 257.98,-5647.5"/>
 </g>
-<!-- interface~helio_step_system -->
-<g id="call~~graph~~CallGraph_node117" class="node">
-<title>interface~helio_step_system</title>
-<g id="a_call~~graph~~CallGraph_node117"><a xlink:href=".././interface/helio_step_system.html" xlink:title="helio_step_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="147.5,-1621 46.5,-1621 46.5,-1597 147.5,-1597 147.5,-1621"/>
-<text text-anchor="middle" x="97" y="-1606.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_system</text>
+<!-- interface~whm_kick_vh_pl -->
+<g id="call~~graph~~CallGraph_node122" class="node">
+<title>interface~whm_kick_vh_pl</title>
+<g id="a_call~~graph~~CallGraph_node122"><a xlink:href=".././interface/whm_kick_vh_pl.html" xlink:title="whm_kick_vh_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-5698 51.5,-5698 51.5,-5674 142.5,-5674 142.5,-5698"/>
+<text text-anchor="middle" x="97" y="-5683.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_vh_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_step_system -->
-<g id="call~~graph~~CallGraph_node356" class="node">
-<title>proc~helio_step_system</title>
-<g id="a_call~~graph~~CallGraph_node356"><a xlink:href=".././proc/helio_step_system.html" xlink:title="helio_step_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="377.5,-1621 276.5,-1621 276.5,-1597 377.5,-1597 377.5,-1621"/>
-<text text-anchor="middle" x="327" y="-1606.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_system</text>
+<!-- proc~whm_kick_vh_pl -->
+<g id="call~~graph~~CallGraph_node166" class="node">
+<title>proc~whm_kick_vh_pl</title>
+<g id="a_call~~graph~~CallGraph_node166"><a xlink:href=".././proc/whm_kick_vh_pl.html" xlink:title="whm_kick_vh_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-5698 281.5,-5698 281.5,-5674 372.5,-5674 372.5,-5698"/>
+<text text-anchor="middle" x="327" y="-5683.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_vh_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_step_system&#45;&gt;proc~helio_step_system -->
-<g id="call~~graph~~CallGraph_edge106" class="edge">
-<title>interface~helio_step_system&#45;&gt;proc~helio_step_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.75,-1609C182.61,-1609 229.35,-1609 266.23,-1609"/>
-<polygon fill="#000000" stroke="#000000" points="266.35,-1612.5 276.35,-1609 266.35,-1605.5 266.35,-1612.5"/>
+<!-- interface~whm_kick_vh_pl&#45;&gt;proc~whm_kick_vh_pl -->
+<g id="call~~graph~~CallGraph_edge94" class="edge">
+<title>interface~whm_kick_vh_pl&#45;&gt;proc~whm_kick_vh_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.5,-5686C179.26,-5686 231.61,-5686 270.99,-5686"/>
+<polygon fill="#000000" stroke="#000000" points="271.22,-5689.5 281.22,-5686 271.22,-5682.5 271.22,-5689.5"/>
 </g>
-<!-- interface~helio_step_tp -->
-<g id="call~~graph~~CallGraph_node118" class="node">
-<title>interface~helio_step_tp</title>
-<g id="a_call~~graph~~CallGraph_node118"><a xlink:href=".././interface/helio_step_tp.html" xlink:title="helio_step_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="135,-5174 59,-5174 59,-5150 135,-5150 135,-5174"/>
-<text text-anchor="middle" x="97" y="-5159.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_tp</text>
+<!-- interface~whm_kick_vh_tp -->
+<g id="call~~graph~~CallGraph_node123" class="node">
+<title>interface~whm_kick_vh_tp</title>
+<g id="a_call~~graph~~CallGraph_node123"><a xlink:href=".././interface/whm_kick_vh_tp.html" xlink:title="whm_kick_vh_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-5740 51.5,-5740 51.5,-5716 142.5,-5716 142.5,-5740"/>
+<text text-anchor="middle" x="97" y="-5725.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_vh_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_step_tp -->
-<g id="call~~graph~~CallGraph_node370" class="node">
-<title>proc~helio_step_tp</title>
-<g id="a_call~~graph~~CallGraph_node370"><a xlink:href=".././proc/helio_step_tp.html" xlink:title="helio_step_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="365,-5174 289,-5174 289,-5150 365,-5150 365,-5174"/>
-<text text-anchor="middle" x="327" y="-5159.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_tp</text>
+<!-- proc~whm_kick_vh_tp -->
+<g id="call~~graph~~CallGraph_node161" class="node">
+<title>proc~whm_kick_vh_tp</title>
+<g id="a_call~~graph~~CallGraph_node161"><a xlink:href=".././proc/whm_kick_vh_tp.html" xlink:title="whm_kick_vh_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-5740 281.5,-5740 281.5,-5716 372.5,-5716 372.5,-5740"/>
+<text text-anchor="middle" x="327" y="-5725.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_vh_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_step_tp&#45;&gt;proc~helio_step_tp -->
-<g id="call~~graph~~CallGraph_edge107" class="edge">
-<title>interface~helio_step_tp&#45;&gt;proc~helio_step_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.14,-5162C174.31,-5162 236.14,-5162 278.75,-5162"/>
-<polygon fill="#000000" stroke="#000000" points="278.88,-5165.5 288.88,-5162 278.88,-5158.5 278.88,-5165.5"/>
+<!-- interface~whm_kick_vh_tp&#45;&gt;proc~whm_kick_vh_tp -->
+<g id="call~~graph~~CallGraph_edge95" class="edge">
+<title>interface~whm_kick_vh_tp&#45;&gt;proc~whm_kick_vh_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.5,-5728C179.26,-5728 231.61,-5728 270.99,-5728"/>
+<polygon fill="#000000" stroke="#000000" points="271.22,-5731.5 281.22,-5728 271.22,-5724.5 271.22,-5731.5"/>
 </g>
 <!-- proc~symba_setup_pltpenc -->
-<g id="call~~graph~~CallGraph_node119" class="node">
+<g id="call~~graph~~CallGraph_node124" class="node">
 <title>proc~symba_setup_pltpenc</title>
-<g id="a_call~~graph~~CallGraph_node119"><a xlink:href=".././proc/symba_setup_pltpenc.html" xlink:title="symba_setup_pltpenc">
-<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-5216 268.5,-5216 268.5,-5192 385.5,-5192 385.5,-5216"/>
-<text text-anchor="middle" x="327" y="-5201.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_pltpenc</text>
+<g id="a_call~~graph~~CallGraph_node124"><a xlink:href=".././proc/symba_setup_pltpenc.html" xlink:title="symba_setup_pltpenc">
+<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-5782 268.5,-5782 268.5,-5758 385.5,-5758 385.5,-5782"/>
+<text text-anchor="middle" x="327" y="-5767.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_pltpenc</text>
 </a>
 </g>
 </g>
 <!-- setup_encounter -->
-<g id="call~~graph~~CallGraph_node569" class="node">
+<g id="call~~graph~~CallGraph_node566" class="node">
 <title>setup_encounter</title>
-<polygon fill="#777777" stroke="#777777" points="609,-5216 516,-5216 516,-5192 609,-5192 609,-5216"/>
-<text text-anchor="middle" x="562.5" y="-5201.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_encounter</text>
+<polygon fill="#777777" stroke="#777777" points="602.5,-5782 509.5,-5782 509.5,-5758 602.5,-5758 602.5,-5782"/>
+<text text-anchor="middle" x="556" y="-5767.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_encounter</text>
 </g>
 <!-- proc~symba_setup_pltpenc&#45;&gt;setup_encounter -->
-<g id="call~~graph~~CallGraph_edge108" class="edge">
+<g id="call~~graph~~CallGraph_edge96" class="edge">
 <title>proc~symba_setup_pltpenc&#45;&gt;setup_encounter</title>
-<path fill="none" stroke="#000000" d="M385.72,-5204C422.23,-5204 469.18,-5204 505.38,-5204"/>
-<polygon fill="#000000" stroke="#000000" points="505.76,-5207.5 515.76,-5204 505.76,-5200.5 505.76,-5207.5"/>
+<path fill="none" stroke="#000000" d="M385.58,-5770C420.33,-5770 464.42,-5770 498.91,-5770"/>
+<polygon fill="#000000" stroke="#000000" points="499.28,-5773.5 509.28,-5770 499.28,-5766.5 499.28,-5773.5"/>
 </g>
-<!-- proc~util_append_arr_logical -->
-<g id="call~~graph~~CallGraph_node120" class="node">
-<title>proc~util_append_arr_logical</title>
-<g id="a_call~~graph~~CallGraph_node120"><a xlink:href=".././proc/util_append_arr_logical.html" xlink:title="util_append_arr_logical">
-<polygon fill="#d9534f" stroke="#d9534f" points="865.5,-4173 741.5,-4173 741.5,-4149 865.5,-4149 865.5,-4173"/>
-<text text-anchor="middle" x="803.5" y="-4158.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_arr_logical</text>
+<!-- interface~whm_gr_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node125" class="node">
+<title>interface~whm_gr_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node125"><a xlink:href=".././interface/whm_gr_kick_getacch_pl.html" xlink:title="whm_gr_kick_getacch_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="163.5,-5950 30.5,-5950 30.5,-5926 163.5,-5926 163.5,-5950"/>
+<text text-anchor="middle" x="97" y="-5935.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_append_arr_logical&#45;&gt;interface~util_resize~2 -->
-<g id="call~~graph~~CallGraph_edge109" class="edge">
-<title>proc~util_append_arr_logical&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M865.58,-4166.11C912.3,-4170.02 975.37,-4175.3 1015.74,-4178.67"/>
-<polygon fill="#000000" stroke="#000000" points="1015.49,-4182.16 1025.75,-4179.51 1016.07,-4175.19 1015.49,-4182.16"/>
-</g>
-<!-- interface~symba_io_write_frame_info -->
-<g id="call~~graph~~CallGraph_node121" class="node">
-<title>interface~symba_io_write_frame_info</title>
-<g id="a_call~~graph~~CallGraph_node121"><a xlink:href=".././interface/symba_io_write_frame_info.html" xlink:title="symba_io_write_frame_info">
-<polygon fill="#a7506f" stroke="#a7506f" points="169,-2734 25,-2734 25,-2710 169,-2710 169,-2734"/>
-<text text-anchor="middle" x="97" y="-2719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_write_frame_info</text>
+<!-- proc~whm_gr_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node282" class="node">
+<title>proc~whm_gr_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node282"><a xlink:href=".././proc/whm_gr_kick_getacch_pl.html" xlink:title="whm_gr_kick_getacch_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="393.5,-5950 260.5,-5950 260.5,-5926 393.5,-5926 393.5,-5950"/>
+<text text-anchor="middle" x="327" y="-5935.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_io_write_frame_info&#45;&gt;proc~symba_io_write_frame_info -->
-<g id="call~~graph~~CallGraph_edge110" class="edge">
-<title>interface~symba_io_write_frame_info&#45;&gt;proc~symba_io_write_frame_info</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.2,-2722C193.2,-2722 220.17,-2722 244.87,-2722"/>
-<polygon fill="#000000" stroke="#000000" points="244.95,-2725.5 254.95,-2722 244.95,-2718.5 244.95,-2725.5"/>
-</g>
-<!-- proc~util_copy_encounter -->
-<g id="call~~graph~~CallGraph_node122" class="node">
-<title>proc~util_copy_encounter</title>
-<g id="a_call~~graph~~CallGraph_node122"><a xlink:href=".././proc/util_copy_encounter.html" xlink:title="util_copy_encounter">
-<polygon fill="#d9534f" stroke="#d9534f" points="381.5,-5258 272.5,-5258 272.5,-5234 381.5,-5234 381.5,-5258"/>
-<text text-anchor="middle" x="327" y="-5243.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_encounter</text>
-</a>
-</g>
+<!-- interface~whm_gr_kick_getacch_pl&#45;&gt;proc~whm_gr_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_edge97" class="edge">
+<title>interface~whm_gr_kick_getacch_pl&#45;&gt;proc~whm_gr_kick_getacch_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.64,-5938C190.71,-5938 222.24,-5938 250.27,-5938"/>
+<polygon fill="#000000" stroke="#000000" points="250.43,-5941.5 260.43,-5938 250.43,-5934.5 250.43,-5941.5"/>
 </g>
-<!-- proc~user_kick_getacch_body -->
-<g id="call~~graph~~CallGraph_node123" class="node">
-<title>proc~user_kick_getacch_body</title>
-<g id="a_call~~graph~~CallGraph_node123"><a xlink:href=".././proc/user_kick_getacch_body.html" xlink:title="user_kick_getacch_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="392,-5300 262,-5300 262,-5276 392,-5276 392,-5300"/>
-<text text-anchor="middle" x="327" y="-5285.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_kick_getacch_body</text>
+<!-- interface~whm_gr_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node126" class="node">
+<title>interface~whm_gr_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node126"><a xlink:href=".././interface/whm_gr_kick_getacch_tp.html" xlink:title="whm_gr_kick_getacch_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="163.5,-5908 30.5,-5908 30.5,-5884 163.5,-5884 163.5,-5908"/>
+<text text-anchor="middle" x="97" y="-5893.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_kick_getacch_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_setup_initialize_system -->
-<g id="call~~graph~~CallGraph_node124" class="node">
-<title>interface~symba_setup_initialize_system</title>
-<g id="a_call~~graph~~CallGraph_node124"><a xlink:href=".././interface/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="177,-4586 17,-4586 17,-4562 177,-4562 177,-4586"/>
-<text text-anchor="middle" x="97" y="-4571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
+<!-- proc~whm_gr_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node303" class="node">
+<title>proc~whm_gr_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node303"><a xlink:href=".././proc/whm_gr_kick_getacch_tp.html" xlink:title="whm_gr_kick_getacch_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="393.5,-5908 260.5,-5908 260.5,-5884 393.5,-5884 393.5,-5908"/>
+<text text-anchor="middle" x="327" y="-5893.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_kick_getacch_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system -->
-<g id="call~~graph~~CallGraph_edge111" class="edge">
-<title>interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M177.1,-4574C196.27,-4574 216.89,-4574 236.5,-4574"/>
-<polygon fill="#000000" stroke="#000000" points="236.65,-4577.5 246.65,-4574 236.65,-4570.5 236.65,-4577.5"/>
+<!-- interface~whm_gr_kick_getacch_tp&#45;&gt;proc~whm_gr_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_edge98" class="edge">
+<title>interface~whm_gr_kick_getacch_tp&#45;&gt;proc~whm_gr_kick_getacch_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.64,-5896C190.71,-5896 222.24,-5896 250.27,-5896"/>
+<polygon fill="#000000" stroke="#000000" points="250.43,-5899.5 260.43,-5896 250.43,-5892.5 250.43,-5899.5"/>
 </g>
-<!-- interface~util_sort_rearrange_body -->
-<g id="call~~graph~~CallGraph_node125" class="node">
-<title>interface~util_sort_rearrange_body</title>
-<g id="a_call~~graph~~CallGraph_node125"><a xlink:href=".././interface/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="629,-5363 496,-5363 496,-5339 629,-5339 629,-5363"/>
-<text text-anchor="middle" x="562.5" y="-5348.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
+<!-- interface~whm_gr_p4_pl -->
+<g id="call~~graph~~CallGraph_node127" class="node">
+<title>interface~whm_gr_p4_pl</title>
+<g id="a_call~~graph~~CallGraph_node127"><a xlink:href=".././interface/whm_gr_p4_pl.html" xlink:title="whm_gr_p4_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="138.5,-6118 55.5,-6118 55.5,-6094 138.5,-6094 138.5,-6118"/>
+<text text-anchor="middle" x="97" y="-6103.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_p4_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_sort_rearrange_body -->
-<g id="call~~graph~~CallGraph_node190" class="node">
-<title>proc~util_sort_rearrange_body</title>
-<g id="a_call~~graph~~CallGraph_node190"><a xlink:href=".././proc/util_sort_rearrange_body.html" xlink:title="util_sort_rearrange_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="870,-5363 737,-5363 737,-5339 870,-5339 870,-5363"/>
-<text text-anchor="middle" x="803.5" y="-5348.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_body</text>
+<!-- proc~whm_gr_p4_pl -->
+<g id="call~~graph~~CallGraph_node304" class="node">
+<title>proc~whm_gr_p4_pl</title>
+<g id="a_call~~graph~~CallGraph_node304"><a xlink:href=".././proc/whm_gr_p4_pl.html" xlink:title="whm_gr_p4_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="368.5,-6118 285.5,-6118 285.5,-6094 368.5,-6094 368.5,-6118"/>
+<text text-anchor="middle" x="327" y="-6103.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_p4_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~util_sort_rearrange_body&#45;&gt;proc~util_sort_rearrange_body -->
-<g id="call~~graph~~CallGraph_edge112" class="edge">
-<title>interface~util_sort_rearrange_body&#45;&gt;proc~util_sort_rearrange_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M629.12,-5351C659.17,-5351 694.96,-5351 726.2,-5351"/>
-<polygon fill="#000000" stroke="#000000" points="726.61,-5354.5 736.61,-5351 726.61,-5347.5 726.61,-5354.5"/>
+<!-- interface~whm_gr_p4_pl&#45;&gt;proc~whm_gr_p4_pl -->
+<g id="call~~graph~~CallGraph_edge99" class="edge">
+<title>interface~whm_gr_p4_pl&#45;&gt;proc~whm_gr_p4_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.76,-6106C176.9,-6106 234.01,-6106 275.12,-6106"/>
+<polygon fill="#000000" stroke="#000000" points="275.21,-6109.5 285.21,-6106 275.21,-6102.5 275.21,-6109.5"/>
 </g>
-<!-- proc~symba_util_append_arr_info -->
-<g id="call~~graph~~CallGraph_node126" class="node">
-<title>proc~symba_util_append_arr_info</title>
-<g id="a_call~~graph~~CallGraph_node126"><a xlink:href=".././proc/symba_util_append_arr_info.html" xlink:title="symba_util_append_arr_info">
-<polygon fill="#d9534f" stroke="#d9534f" points="877.5,-5695 729.5,-5695 729.5,-5671 877.5,-5671 877.5,-5695"/>
-<text text-anchor="middle" x="803.5" y="-5680.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_arr_info</text>
+<!-- interface~whm_gr_p4_tp -->
+<g id="call~~graph~~CallGraph_node128" class="node">
+<title>interface~whm_gr_p4_tp</title>
+<g id="a_call~~graph~~CallGraph_node128"><a xlink:href=".././interface/whm_gr_p4_tp.html" xlink:title="whm_gr_p4_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="139,-6076 55,-6076 55,-6052 139,-6052 139,-6076"/>
+<text text-anchor="middle" x="97" y="-6061.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_p4_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~util_resize -->
-<g id="call~~graph~~CallGraph_node165" class="node">
-<title>interface~util_resize</title>
-<g id="a_call~~graph~~CallGraph_node165"><a xlink:href=".././interface/util_resize.html" xlink:title="util_resize">
-<polygon fill="#a7506f" stroke="#a7506f" points="1087,-5613 1026,-5613 1026,-5589 1087,-5589 1087,-5613"/>
-<text text-anchor="middle" x="1056.5" y="-5598.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<!-- proc~whm_gr_p4_tp -->
+<g id="call~~graph~~CallGraph_node307" class="node">
+<title>proc~whm_gr_p4_tp</title>
+<g id="a_call~~graph~~CallGraph_node307"><a xlink:href=".././proc/whm_gr_p4_tp.html" xlink:title="whm_gr_p4_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="369,-6076 285,-6076 285,-6052 369,-6052 369,-6076"/>
+<text text-anchor="middle" x="327" y="-6061.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_p4_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_append_arr_info&#45;&gt;interface~util_resize -->
-<g id="call~~graph~~CallGraph_edge113" class="edge">
-<title>proc~symba_util_append_arr_info&#45;&gt;interface~util_resize</title>
-<path fill="none" stroke="#000000" d="M871.55,-5670.94C883.13,-5668.35 894.98,-5665.36 906,-5662 946.41,-5649.69 991.05,-5630.74 1020.93,-5617.23"/>
-<polygon fill="#000000" stroke="#000000" points="1022.45,-5620.38 1030.09,-5613.05 1019.54,-5614.01 1022.45,-5620.38"/>
-</g>
-<!-- interface~symba_setup_merger -->
-<g id="call~~graph~~CallGraph_node127" class="node">
-<title>interface~symba_setup_merger</title>
-<g id="a_call~~graph~~CallGraph_node127"><a xlink:href=".././interface/symba_setup_merger.html" xlink:title="symba_setup_merger">
-<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-4922 38.5,-4922 38.5,-4898 155.5,-4898 155.5,-4922"/>
-<text text-anchor="middle" x="97" y="-4907.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_merger</text>
-</a>
-</g>
-</g>
-<!-- interface~symba_setup_merger&#45;&gt;proc~symba_setup_merger -->
-<g id="call~~graph~~CallGraph_edge114" class="edge">
-<title>interface~symba_setup_merger&#45;&gt;proc~symba_setup_merger</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.53,-4910C186.72,-4910 225.45,-4910 258.11,-4910"/>
-<polygon fill="#000000" stroke="#000000" points="258.48,-4913.5 268.48,-4910 258.48,-4906.5 258.48,-4913.5"/>
+<!-- interface~whm_gr_p4_tp&#45;&gt;proc~whm_gr_p4_tp -->
+<g id="call~~graph~~CallGraph_edge100" class="edge">
+<title>interface~whm_gr_p4_tp&#45;&gt;proc~whm_gr_p4_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M139.03,-6064C177.08,-6064 233.86,-6064 274.86,-6064"/>
+<polygon fill="#000000" stroke="#000000" points="274.92,-6067.5 284.92,-6064 274.92,-6060.5 274.92,-6067.5"/>
 </g>
-<!-- interface~util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_node128" class="node">
-<title>interface~util_sort_rearrange_pl</title>
-<g id="a_call~~graph~~CallGraph_node128"><a xlink:href=".././interface/util_sort_rearrange_pl.html" xlink:title="util_sort_rearrange_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="156,-5384 38,-5384 38,-5360 156,-5360 156,-5384"/>
-<text text-anchor="middle" x="97" y="-5369.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
+<!-- interface~whm_setup_pl -->
+<g id="call~~graph~~CallGraph_node129" class="node">
+<title>interface~whm_setup_pl</title>
+<g id="a_call~~graph~~CallGraph_node129"><a xlink:href=".././interface/whm_setup_pl.html" xlink:title="whm_setup_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="597,-6202 515,-6202 515,-6178 597,-6178 597,-6202"/>
+<text text-anchor="middle" x="556" y="-6187.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_node193" class="node">
-<title>proc~util_sort_rearrange_pl</title>
-<g id="a_call~~graph~~CallGraph_node193"><a xlink:href=".././proc/util_sort_rearrange_pl.html" xlink:title="util_sort_rearrange_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="386,-5384 268,-5384 268,-5360 386,-5360 386,-5384"/>
-<text text-anchor="middle" x="327" y="-5369.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
+<!-- proc~whm_setup_pl -->
+<g id="call~~graph~~CallGraph_node325" class="node">
+<title>proc~whm_setup_pl</title>
+<g id="a_call~~graph~~CallGraph_node325"><a xlink:href=".././proc/whm_setup_pl.html" xlink:title="whm_setup_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="821,-6202 739,-6202 739,-6178 821,-6178 821,-6202"/>
+<text text-anchor="middle" x="780" y="-6187.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~util_sort_rearrange_pl&#45;&gt;proc~util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_edge115" class="edge">
-<title>interface~util_sort_rearrange_pl&#45;&gt;proc~util_sort_rearrange_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-5372C187.08,-5372 225.33,-5372 257.7,-5372"/>
-<polygon fill="#000000" stroke="#000000" points="257.98,-5375.5 267.98,-5372 257.98,-5368.5 257.98,-5375.5"/>
+<!-- interface~whm_setup_pl&#45;&gt;proc~whm_setup_pl -->
+<g id="call~~graph~~CallGraph_edge101" class="edge">
+<title>interface~whm_setup_pl&#45;&gt;proc~whm_setup_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.2,-6190C634.1,-6190 688.91,-6190 728.7,-6190"/>
+<polygon fill="#000000" stroke="#000000" points="728.72,-6193.5 738.72,-6190 728.72,-6186.5 728.72,-6193.5"/>
 </g>
-<!-- helio_drift_body -->
-<g id="call~~graph~~CallGraph_node584" class="node">
-<title>helio_drift_body</title>
-<polygon fill="#777777" stroke="#777777" points="606.5,-2923 518.5,-2923 518.5,-2899 606.5,-2899 606.5,-2923"/>
-<text text-anchor="middle" x="562.5" y="-2908.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_body</text>
+<!-- drift_all -->
+<g id="call~~graph~~CallGraph_node557" class="node">
+<title>drift_all</title>
+<polygon fill="#777777" stroke="#777777" points="1531.5,-5509 1477.5,-5509 1477.5,-5485 1531.5,-5485 1531.5,-5509"/>
+<text text-anchor="middle" x="1504.5" y="-5494.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_all</text>
 </g>
-<!-- proc~symba_drift_pl&#45;&gt;helio_drift_body -->
-<g id="call~~graph~~CallGraph_edge116" class="edge">
-<title>proc~symba_drift_pl&#45;&gt;helio_drift_body</title>
-<path fill="none" stroke="#000000" d="M368.14,-2928.39C406.81,-2924.91 465.55,-2919.63 508.14,-2915.8"/>
-<polygon fill="#000000" stroke="#000000" points="508.68,-2919.26 518.32,-2914.88 508.05,-2912.29 508.68,-2919.26"/>
+<!-- proc~whm_drift_pl&#45;&gt;drift_all -->
+<g id="call~~graph~~CallGraph_edge102" class="edge">
+<title>proc~whm_drift_pl&#45;&gt;drift_all</title>
+<path fill="none" stroke="#000000" d="M1288.2,-5460.97C1335.86,-5468.95 1419.81,-5483 1467.59,-5490.99"/>
+<polygon fill="#000000" stroke="#000000" points="1467.05,-5494.45 1477.49,-5492.65 1468.2,-5487.55 1467.05,-5494.45"/>
 </g>
-<!-- interface~symba_setup_pl&#45;&gt;proc~symba_setup_pl -->
-<g id="call~~graph~~CallGraph_edge117" class="edge">
-<title>interface~symba_setup_pl&#45;&gt;proc~symba_setup_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.17,-4910C647.62,-4910 705.26,-4910 747.52,-4910"/>
-<polygon fill="#000000" stroke="#000000" points="747.64,-4913.5 757.64,-4910 747.64,-4906.5 747.64,-4913.5"/>
+<!-- util_exit -->
+<g id="call~~graph~~CallGraph_node562" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="1531.5,-5117 1477.5,-5117 1477.5,-5093 1531.5,-5093 1531.5,-5117"/>
+<text text-anchor="middle" x="1504.5" y="-5102.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- interface~util_sort_rearrange_tp -->
+<!-- proc~whm_drift_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge103" class="edge">
+<title>proc~whm_drift_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1288.46,-5457.23C1310.48,-5456.53 1337.52,-5451.6 1354,-5434 1433.43,-5349.16 1326.49,-5272.33 1390,-5175 1408.17,-5147.15 1441.69,-5128.51 1467.61,-5117.52"/>
+<polygon fill="#000000" stroke="#000000" points="1469.16,-5120.67 1477.12,-5113.68 1466.54,-5114.18 1469.16,-5120.67"/>
+</g>
+<!-- proc~symba_setup_tp -->
 <g id="call~~graph~~CallGraph_node131" class="node">
-<title>interface~util_sort_rearrange_tp</title>
-<g id="a_call~~graph~~CallGraph_node131"><a xlink:href=".././interface/util_sort_rearrange_tp.html" xlink:title="util_sort_rearrange_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="156,-5342 38,-5342 38,-5318 156,-5318 156,-5342"/>
-<text text-anchor="middle" x="97" y="-5327.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_tp</text>
+<title>proc~symba_setup_tp</title>
+<g id="a_call~~graph~~CallGraph_node131"><a xlink:href=".././proc/symba_setup_tp.html" xlink:title="symba_setup_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-6203 281.5,-6203 281.5,-6179 372.5,-6179 372.5,-6203"/>
+<text text-anchor="middle" x="327" y="-6188.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~util_sort_rearrange_tp -->
-<g id="call~~graph~~CallGraph_node198" class="node">
-<title>proc~util_sort_rearrange_tp</title>
-<g id="a_call~~graph~~CallGraph_node198"><a xlink:href=".././proc/util_sort_rearrange_tp.html" xlink:title="util_sort_rearrange_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="386,-5342 268,-5342 268,-5318 386,-5318 386,-5342"/>
-<text text-anchor="middle" x="327" y="-5327.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_tp</text>
-</a>
-</g>
+<!-- setup_tp -->
+<g id="call~~graph~~CallGraph_node586" class="node">
+<title>setup_tp</title>
+<polygon fill="#777777" stroke="#777777" points="583,-6244 529,-6244 529,-6220 583,-6220 583,-6244"/>
+<text text-anchor="middle" x="556" y="-6229.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_tp</text>
 </g>
-<!-- interface~util_sort_rearrange_tp&#45;&gt;proc~util_sort_rearrange_tp -->
-<g id="call~~graph~~CallGraph_edge118" class="edge">
-<title>interface~util_sort_rearrange_tp&#45;&gt;proc~util_sort_rearrange_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-5330C187.08,-5330 225.33,-5330 257.7,-5330"/>
-<polygon fill="#000000" stroke="#000000" points="257.98,-5333.5 267.98,-5330 257.98,-5326.5 257.98,-5333.5"/>
+<!-- proc~symba_setup_tp&#45;&gt;setup_tp -->
+<g id="call~~graph~~CallGraph_edge104" class="edge">
+<title>proc~symba_setup_tp&#45;&gt;setup_tp</title>
+<path fill="none" stroke="#000000" d="M372.58,-6199.05C415.37,-6206.78 479.19,-6218.31 518.89,-6225.48"/>
+<polygon fill="#000000" stroke="#000000" points="518.46,-6228.96 528.92,-6227.29 519.7,-6222.07 518.46,-6228.96"/>
 </g>
-<!-- proc~rmvs_make_planetocentric -->
+<!-- interface~whm_setup_initialize_system -->
 <g id="call~~graph~~CallGraph_node132" class="node">
-<title>proc~rmvs_make_planetocentric</title>
-<g id="a_call~~graph~~CallGraph_node132"><a xlink:href=".././proc/rmvs_make_planetocentric.html" xlink:title="rmvs_make_planetocentric">
-<polygon fill="#d9534f" stroke="#d9534f" points="1127,-1663 986,-1663 986,-1639 1127,-1639 1127,-1663"/>
-<text text-anchor="middle" x="1056.5" y="-1648.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_make_planetocentric</text>
+<title>interface~whm_setup_initialize_system</title>
+<g id="a_call~~graph~~CallGraph_node132"><a xlink:href=".././interface/whm_setup_initialize_system.html" xlink:title="whm_setup_initialize_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="172.5,-6290 21.5,-6290 21.5,-6266 172.5,-6266 172.5,-6290"/>
+<text text-anchor="middle" x="97" y="-6275.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_initialize_system</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_setup_pltpenc -->
-<g id="call~~graph~~CallGraph_node133" class="node">
-<title>interface~symba_setup_pltpenc</title>
-<g id="a_call~~graph~~CallGraph_node133"><a xlink:href=".././interface/symba_setup_pltpenc.html" xlink:title="symba_setup_pltpenc">
-<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-5216 38.5,-5216 38.5,-5192 155.5,-5192 155.5,-5216"/>
-<text text-anchor="middle" x="97" y="-5201.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_pltpenc</text>
+<!-- proc~whm_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node329" class="node">
+<title>proc~whm_setup_initialize_system</title>
+<g id="a_call~~graph~~CallGraph_node329"><a xlink:href=".././proc/whm_setup_initialize_system.html" xlink:title="whm_setup_initialize_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="402.5,-6290 251.5,-6290 251.5,-6266 402.5,-6266 402.5,-6290"/>
+<text text-anchor="middle" x="327" y="-6275.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_initialize_system</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_setup_pltpenc&#45;&gt;proc~symba_setup_pltpenc -->
-<g id="call~~graph~~CallGraph_edge119" class="edge">
-<title>interface~symba_setup_pltpenc&#45;&gt;proc~symba_setup_pltpenc</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.53,-5204C186.72,-5204 225.45,-5204 258.11,-5204"/>
-<polygon fill="#000000" stroke="#000000" points="258.48,-5207.5 268.48,-5204 258.48,-5200.5 258.48,-5207.5"/>
+<!-- interface~whm_setup_initialize_system&#45;&gt;proc~whm_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_edge105" class="edge">
+<title>interface~whm_setup_initialize_system&#45;&gt;proc~whm_setup_initialize_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M172.66,-6278C194.5,-6278 218.55,-6278 240.99,-6278"/>
+<polygon fill="#000000" stroke="#000000" points="241.18,-6281.5 251.18,-6278 241.18,-6274.5 241.18,-6281.5"/>
 </g>
-<!-- interface~util_sort_body -->
-<g id="call~~graph~~CallGraph_node134" class="node">
-<title>interface~util_sort_body</title>
-<g id="a_call~~graph~~CallGraph_node134"><a xlink:href=".././interface/util_sort_body.html" xlink:title="util_sort_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="602,-5737 523,-5737 523,-5713 602,-5713 602,-5737"/>
-<text text-anchor="middle" x="562.5" y="-5722.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_body</text>
+<!-- proc~whm_step_pl -->
+<g id="call~~graph~~CallGraph_node133" class="node">
+<title>proc~whm_step_pl</title>
+<g id="a_call~~graph~~CallGraph_node133"><a xlink:href=".././proc/whm_step_pl.html" xlink:title="whm_step_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="365,-6337 289,-6337 289,-6313 365,-6313 365,-6337"/>
+<text text-anchor="middle" x="327" y="-6322.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_sort_body -->
-<g id="call~~graph~~CallGraph_node186" class="node">
-<title>proc~util_sort_body</title>
-<g id="a_call~~graph~~CallGraph_node186"><a xlink:href=".././proc/util_sort_body.html" xlink:title="util_sort_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="843,-5737 764,-5737 764,-5713 843,-5713 843,-5737"/>
-<text text-anchor="middle" x="803.5" y="-5722.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_body</text>
+<!-- proc~symba_step_set_recur_levels_system -->
+<g id="call~~graph~~CallGraph_node134" class="node">
+<title>proc~symba_step_set_recur_levels_system</title>
+<g id="a_call~~graph~~CallGraph_node134"><a xlink:href=".././proc/symba_step_set_recur_levels_system.html" xlink:title="symba_step_set_recur_levels_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="424,-6380 230,-6380 230,-6356 424,-6356 424,-6380"/>
+<text text-anchor="middle" x="327" y="-6365.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_set_recur_levels_system</text>
 </a>
 </g>
 </g>
-<!-- interface~util_sort_body&#45;&gt;proc~util_sort_body -->
-<g id="call~~graph~~CallGraph_edge120" class="edge">
-<title>interface~util_sort_body&#45;&gt;proc~util_sort_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.17,-5725C643.47,-5725 709.03,-5725 753.82,-5725"/>
-<polygon fill="#000000" stroke="#000000" points="753.89,-5728.5 763.89,-5725 753.89,-5721.5 753.89,-5728.5"/>
-</g>
-<!-- proc~rmvs_interp_out -->
+<!-- interface~whm_step_pl -->
 <g id="call~~graph~~CallGraph_node135" class="node">
-<title>proc~rmvs_interp_out</title>
-<g id="a_call~~graph~~CallGraph_node135"><a xlink:href=".././proc/rmvs_interp_out.html" xlink:title="rmvs_interp_out">
-<polygon fill="#d9534f" stroke="#d9534f" points="607.5,-1312 517.5,-1312 517.5,-1288 607.5,-1288 607.5,-1312"/>
-<text text-anchor="middle" x="562.5" y="-1297.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp_out</text>
+<title>interface~whm_step_pl</title>
+<g id="a_call~~graph~~CallGraph_node135"><a xlink:href=".././interface/whm_step_pl.html" xlink:title="whm_step_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="135,-6337 59,-6337 59,-6313 135,-6313 135,-6337"/>
+<text text-anchor="middle" x="97" y="-6322.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_interp_out&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge121" class="edge">
-<title>proc~rmvs_interp_out&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M607.54,-1297.46C687.26,-1292.43 852.26,-1279.94 906,-1260 956.83,-1241.14 1007.27,-1201.61 1034.61,-1177.98"/>
-<polygon fill="#000000" stroke="#000000" points="1037.13,-1180.43 1042.33,-1171.2 1032.51,-1175.17 1037.13,-1180.43"/>
+<!-- interface~whm_step_pl&#45;&gt;proc~whm_step_pl -->
+<g id="call~~graph~~CallGraph_edge106" class="edge">
+<title>interface~whm_step_pl&#45;&gt;proc~whm_step_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.14,-6325C174.31,-6325 236.14,-6325 278.75,-6325"/>
+<polygon fill="#000000" stroke="#000000" points="278.88,-6328.5 288.88,-6325 278.88,-6321.5 278.88,-6328.5"/>
 </g>
-<!-- interface~symba_setup_tp -->
+<!-- proc~whm_step_tp -->
 <g id="call~~graph~~CallGraph_node136" class="node">
-<title>interface~symba_setup_tp</title>
-<g id="a_call~~graph~~CallGraph_node136"><a xlink:href=".././interface/symba_setup_tp.html" xlink:title="symba_setup_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-5836 51.5,-5836 51.5,-5812 142.5,-5812 142.5,-5836"/>
-<text text-anchor="middle" x="97" y="-5821.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_tp</text>
-</a>
-</g>
-</g>
-<!-- proc~symba_setup_tp -->
-<g id="call~~graph~~CallGraph_node354" class="node">
-<title>proc~symba_setup_tp</title>
-<g id="a_call~~graph~~CallGraph_node354"><a xlink:href=".././proc/symba_setup_tp.html" xlink:title="symba_setup_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-5836 281.5,-5836 281.5,-5812 372.5,-5812 372.5,-5836"/>
-<text text-anchor="middle" x="327" y="-5821.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_tp</text>
+<title>proc~whm_step_tp</title>
+<g id="a_call~~graph~~CallGraph_node136"><a xlink:href=".././proc/whm_step_tp.html" xlink:title="whm_step_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="365,-6432 289,-6432 289,-6408 365,-6408 365,-6432"/>
+<text text-anchor="middle" x="327" y="-6417.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_setup_tp&#45;&gt;proc~symba_setup_tp -->
-<g id="call~~graph~~CallGraph_edge122" class="edge">
-<title>interface~symba_setup_tp&#45;&gt;proc~symba_setup_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.5,-5824C179.26,-5824 231.61,-5824 270.99,-5824"/>
-<polygon fill="#000000" stroke="#000000" points="271.22,-5827.5 281.22,-5824 271.22,-5820.5 271.22,-5827.5"/>
-</g>
-<!-- interface~util_sort_pl -->
+<!-- proc~symba_step_interp_system -->
 <g id="call~~graph~~CallGraph_node137" class="node">
-<title>interface~util_sort_pl</title>
-<g id="a_call~~graph~~CallGraph_node137"><a xlink:href=".././interface/util_sort_pl.html" xlink:title="util_sort_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="129,-5700 65,-5700 65,-5676 129,-5676 129,-5700"/>
-<text text-anchor="middle" x="97" y="-5685.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_pl</text>
-</a>
-</g>
-</g>
-<!-- proc~util_sort_pl -->
-<g id="call~~graph~~CallGraph_node189" class="node">
-<title>proc~util_sort_pl</title>
-<g id="a_call~~graph~~CallGraph_node189"><a xlink:href=".././proc/util_sort_pl.html" xlink:title="util_sort_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="359,-5700 295,-5700 295,-5676 359,-5676 359,-5700"/>
-<text text-anchor="middle" x="327" y="-5685.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_pl</text>
+<title>proc~symba_step_interp_system</title>
+<g id="a_call~~graph~~CallGraph_node137"><a xlink:href=".././proc/symba_step_interp_system.html" xlink:title="symba_step_interp_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="398.5,-6495 255.5,-6495 255.5,-6471 398.5,-6471 398.5,-6495"/>
+<text text-anchor="middle" x="327" y="-6480.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_interp_system</text>
 </a>
 </g>
 </g>
-<!-- interface~util_sort_pl&#45;&gt;proc~util_sort_pl -->
-<g id="call~~graph~~CallGraph_edge123" class="edge">
-<title>interface~util_sort_pl&#45;&gt;proc~util_sort_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M129.22,-5688C169.53,-5688 239.8,-5688 284.55,-5688"/>
-<polygon fill="#000000" stroke="#000000" points="284.79,-5691.5 294.79,-5688 284.79,-5684.5 284.79,-5691.5"/>
-</g>
-<!-- proc~rmvs_step_out -->
+<!-- interface~whm_step_system -->
 <g id="call~~graph~~CallGraph_node138" class="node">
-<title>proc~rmvs_step_out</title>
-<g id="a_call~~graph~~CallGraph_node138"><a xlink:href=".././proc/rmvs_step_out.html" xlink:title="rmvs_step_out">
-<polygon fill="#d9534f" stroke="#d9534f" points="604,-1579 521,-1579 521,-1555 604,-1555 604,-1579"/>
-<text text-anchor="middle" x="562.5" y="-1564.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_out</text>
-</a>
-</g>
-</g>
-<!-- proc~rmvs_interp_in -->
-<g id="call~~graph~~CallGraph_node154" class="node">
-<title>proc~rmvs_interp_in</title>
-<g id="a_call~~graph~~CallGraph_node154"><a xlink:href=".././proc/rmvs_interp_in.html" xlink:title="rmvs_interp_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="845,-1331 762,-1331 762,-1307 845,-1307 845,-1331"/>
-<text text-anchor="middle" x="803.5" y="-1316.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp_in</text>
+<title>interface~whm_step_system</title>
+<g id="a_call~~graph~~CallGraph_node138"><a xlink:href=".././interface/whm_step_system.html" xlink:title="whm_step_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="147.5,-4572 46.5,-4572 46.5,-4548 147.5,-4548 147.5,-4572"/>
+<text text-anchor="middle" x="97" y="-4557.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_system</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_out&#45;&gt;proc~rmvs_interp_in -->
-<g id="call~~graph~~CallGraph_edge124" class="edge">
-<title>proc~rmvs_step_out&#45;&gt;proc~rmvs_interp_in</title>
-<path fill="none" stroke="#000000" d="M604.24,-1568.79C625.17,-1567.45 649.47,-1562.02 665,-1546 729.69,-1479.27 636.31,-1406.73 701,-1340 714.1,-1326.48 733.45,-1320.51 751.75,-1318.17"/>
-<polygon fill="#000000" stroke="#000000" points="752.14,-1321.64 761.76,-1317.21 751.47,-1314.68 752.14,-1321.64"/>
+<!-- interface~whm_step_system&#45;&gt;proc~whm_step_system -->
+<g id="call~~graph~~CallGraph_edge107" class="edge">
+<title>interface~whm_step_system&#45;&gt;proc~whm_step_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.75,-4560C182.61,-4560 229.35,-4560 266.23,-4560"/>
+<polygon fill="#000000" stroke="#000000" points="266.35,-4563.5 276.35,-4560 266.35,-4556.5 266.35,-4563.5"/>
 </g>
-<!-- proc~rmvs_step_in -->
-<g id="call~~graph~~CallGraph_node169" class="node">
-<title>proc~rmvs_step_in</title>
-<g id="a_call~~graph~~CallGraph_node169"><a xlink:href=".././proc/rmvs_step_in.html" xlink:title="rmvs_step_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="841.5,-1642 765.5,-1642 765.5,-1618 841.5,-1618 841.5,-1642"/>
-<text text-anchor="middle" x="803.5" y="-1627.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_in</text>
+<!-- proc~symba_step_recur_system -->
+<g id="call~~graph~~CallGraph_node139" class="node">
+<title>proc~symba_step_recur_system</title>
+<g id="a_call~~graph~~CallGraph_node139"><a xlink:href=".././proc/symba_step_recur_system.html" xlink:title="symba_step_recur_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="1322,-5219 1181,-5219 1181,-5195 1322,-5195 1322,-5219"/>
+<text text-anchor="middle" x="1251.5" y="-5204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_recur_system</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_out&#45;&gt;proc~rmvs_step_in -->
-<g id="call~~graph~~CallGraph_edge125" class="edge">
-<title>proc~rmvs_step_out&#45;&gt;proc~rmvs_step_in</title>
-<path fill="none" stroke="#000000" d="M604.2,-1574.53C622.82,-1578.2 645.12,-1582.92 665,-1588 695.77,-1595.86 729.92,-1606.29 756.49,-1614.78"/>
-<polygon fill="#000000" stroke="#000000" points="755.69,-1618.2 766.28,-1617.93 757.84,-1611.54 755.69,-1618.2"/>
+<!-- proc~symba_step_recur_system&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge108" class="edge">
+<title>proc~symba_step_recur_system&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1322.05,-5195.44C1332.9,-5192.83 1343.86,-5189.7 1354,-5186 1399.29,-5169.46 1447.64,-5141.05 1476.71,-5122.66"/>
+<polygon fill="#000000" stroke="#000000" points="1478.91,-5125.4 1485.45,-5117.06 1475.14,-5119.51 1478.91,-5125.4"/>
 </g>
-<!-- interface~symba_step_system -->
+<!-- interface~whm_step_tp -->
 <g id="call~~graph~~CallGraph_node140" class="node">
-<title>interface~symba_step_system</title>
-<g id="a_call~~graph~~CallGraph_node140"><a xlink:href=".././interface/symba_step_system.html" xlink:title="symba_step_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="152,-2776 42,-2776 42,-2752 152,-2752 152,-2776"/>
-<text text-anchor="middle" x="97" y="-2761.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_system</text>
+<title>interface~whm_step_tp</title>
+<g id="a_call~~graph~~CallGraph_node140"><a xlink:href=".././interface/whm_step_tp.html" xlink:title="whm_step_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="135,-6432 59,-6432 59,-6408 135,-6408 135,-6432"/>
+<text text-anchor="middle" x="97" y="-6417.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_step_system&#45;&gt;proc~symba_step_system -->
-<g id="call~~graph~~CallGraph_edge126" class="edge">
-<title>interface~symba_step_system&#45;&gt;proc~symba_step_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M152.03,-2764C184.99,-2764 227.3,-2764 261.94,-2764"/>
-<polygon fill="#000000" stroke="#000000" points="261.96,-2767.5 271.96,-2764 261.96,-2760.5 261.96,-2767.5"/>
+<!-- interface~whm_step_tp&#45;&gt;proc~whm_step_tp -->
+<g id="call~~graph~~CallGraph_edge109" class="edge">
+<title>interface~whm_step_tp&#45;&gt;proc~whm_step_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.14,-6420C174.31,-6420 236.14,-6420 278.75,-6420"/>
+<polygon fill="#000000" stroke="#000000" points="278.88,-6423.5 288.88,-6420 278.88,-6416.5 278.88,-6423.5"/>
 </g>
-<!-- interface~util_sort_tp -->
+<!-- interface~whm_util_append_pl -->
 <g id="call~~graph~~CallGraph_node141" class="node">
-<title>interface~util_sort_tp</title>
-<g id="a_call~~graph~~CallGraph_node141"><a xlink:href=".././interface/util_sort_tp.html" xlink:title="util_sort_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="129.5,-5742 64.5,-5742 64.5,-5718 129.5,-5718 129.5,-5742"/>
-<text text-anchor="middle" x="97" y="-5727.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_tp</text>
+<title>interface~whm_util_append_pl</title>
+<g id="a_call~~graph~~CallGraph_node141"><a xlink:href=".././interface/whm_util_append_pl.html" xlink:title="whm_util_append_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="1066,-4761 955,-4761 955,-4737 1066,-4737 1066,-4761"/>
+<text text-anchor="middle" x="1010.5" y="-4746.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_sort_tp -->
-<g id="call~~graph~~CallGraph_node188" class="node">
-<title>proc~util_sort_tp</title>
-<g id="a_call~~graph~~CallGraph_node188"><a xlink:href=".././proc/util_sort_tp.html" xlink:title="util_sort_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="359.5,-5742 294.5,-5742 294.5,-5718 359.5,-5718 359.5,-5742"/>
-<text text-anchor="middle" x="327" y="-5727.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_tp</text>
+<!-- proc~whm_util_append_pl -->
+<g id="call~~graph~~CallGraph_node333" class="node">
+<title>proc~whm_util_append_pl</title>
+<g id="a_call~~graph~~CallGraph_node333"><a xlink:href=".././proc/whm_util_append_pl.html" xlink:title="whm_util_append_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="1307,-4761 1196,-4761 1196,-4737 1307,-4737 1307,-4761"/>
+<text text-anchor="middle" x="1251.5" y="-4746.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~util_sort_tp&#45;&gt;proc~util_sort_tp -->
-<g id="call~~graph~~CallGraph_edge127" class="edge">
-<title>interface~util_sort_tp&#45;&gt;proc~util_sort_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M129.7,-5730C169.92,-5730 239.38,-5730 283.98,-5730"/>
-<polygon fill="#000000" stroke="#000000" points="284.2,-5733.5 294.2,-5730 284.2,-5726.5 284.2,-5733.5"/>
+<!-- interface~whm_util_append_pl&#45;&gt;proc~whm_util_append_pl -->
+<g id="call~~graph~~CallGraph_edge110" class="edge">
+<title>interface~whm_util_append_pl&#45;&gt;proc~whm_util_append_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1066.03,-4749C1101.54,-4749 1148.05,-4749 1185.49,-4749"/>
+<polygon fill="#000000" stroke="#000000" points="1185.79,-4752.5 1195.79,-4749 1185.79,-4745.5 1185.79,-4752.5"/>
 </g>
-<!-- interface~symba_step_interp_system -->
+<!-- interface~whm_util_spill_pl -->
 <g id="call~~graph~~CallGraph_node142" class="node">
-<title>interface~symba_step_interp_system</title>
-<g id="a_call~~graph~~CallGraph_node142"><a xlink:href=".././interface/symba_step_interp_system.html" xlink:title="symba_step_interp_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="168.5,-2860 25.5,-2860 25.5,-2836 168.5,-2836 168.5,-2860"/>
-<text text-anchor="middle" x="97" y="-2845.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_interp_system</text>
+<title>interface~whm_util_spill_pl</title>
+<g id="a_call~~graph~~CallGraph_node142"><a xlink:href=".././interface/whm_util_spill_pl.html" xlink:title="whm_util_spill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="1057,-4929 964,-4929 964,-4905 1057,-4905 1057,-4929"/>
+<text text-anchor="middle" x="1010.5" y="-4914.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_spill_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_step_interp_system&#45;&gt;proc~symba_step_interp_system -->
-<g id="call~~graph~~CallGraph_edge128" class="edge">
-<title>interface~symba_step_interp_system&#45;&gt;proc~symba_step_interp_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M168.58,-2848C192.83,-2848 220.17,-2848 245.17,-2848"/>
-<polygon fill="#000000" stroke="#000000" points="245.36,-2851.5 255.36,-2848 245.36,-2844.5 245.36,-2851.5"/>
+<!-- proc~whm_util_spill_pl -->
+<g id="call~~graph~~CallGraph_node354" class="node">
+<title>proc~whm_util_spill_pl</title>
+<g id="a_call~~graph~~CallGraph_node354"><a xlink:href=".././proc/whm_util_spill_pl.html" xlink:title="whm_util_spill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="1298,-4929 1205,-4929 1205,-4905 1298,-4905 1298,-4929"/>
+<text text-anchor="middle" x="1251.5" y="-4914.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_spill_pl</text>
+</a>
 </g>
-<!-- proc~util_minimize_bfgs -->
+</g>
+<!-- interface~whm_util_spill_pl&#45;&gt;proc~whm_util_spill_pl -->
+<g id="call~~graph~~CallGraph_edge111" class="edge">
+<title>interface~whm_util_spill_pl&#45;&gt;proc~whm_util_spill_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1057.02,-4917C1096.18,-4917 1152.82,-4917 1194.7,-4917"/>
+<polygon fill="#000000" stroke="#000000" points="1194.75,-4920.5 1204.75,-4917 1194.75,-4913.5 1194.75,-4920.5"/>
+</g>
+<!-- interface~whm_util_fill_pl -->
 <g id="call~~graph~~CallGraph_node143" class="node">
-<title>proc~util_minimize_bfgs</title>
-<g id="a_call~~graph~~CallGraph_node143"><a xlink:href=".././proc/util_minimize_bfgs.html" xlink:title="util_minimize_bfgs">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="377,-5878 277,-5878 277,-5854 377,-5854 377,-5878"/>
-<text text-anchor="middle" x="327" y="-5863.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs</text>
+<title>interface~whm_util_fill_pl</title>
+<g id="a_call~~graph~~CallGraph_node143"><a xlink:href=".././interface/whm_util_fill_pl.html" xlink:title="whm_util_fill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="1053,-5677 968,-5677 968,-5653 1053,-5653 1053,-5677"/>
+<text text-anchor="middle" x="1010.5" y="-5662.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_fill_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_body -->
+<!-- proc~whm_util_fill_pl -->
+<g id="call~~graph~~CallGraph_node340" class="node">
+<title>proc~whm_util_fill_pl</title>
+<g id="a_call~~graph~~CallGraph_node340"><a xlink:href=".././proc/whm_util_fill_pl.html" xlink:title="whm_util_fill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="1294,-5677 1209,-5677 1209,-5653 1294,-5653 1294,-5677"/>
+<text text-anchor="middle" x="1251.5" y="-5662.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_fill_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~whm_util_fill_pl&#45;&gt;proc~whm_util_fill_pl -->
+<g id="call~~graph~~CallGraph_edge112" class="edge">
+<title>interface~whm_util_fill_pl&#45;&gt;proc~whm_util_fill_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1053.13,-5665C1093.62,-5665 1155.23,-5665 1198.83,-5665"/>
+<polygon fill="#000000" stroke="#000000" points="1198.95,-5668.5 1208.95,-5665 1198.95,-5661.5 1198.95,-5668.5"/>
+</g>
+<!-- interface~whm_util_resize_pl -->
 <g id="call~~graph~~CallGraph_node144" class="node">
-<title>proc~drift_body</title>
-<g id="a_call~~graph~~CallGraph_node144"><a xlink:href=".././proc/drift_body.html" xlink:title="drift_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="357,-5920 297,-5920 297,-5896 357,-5896 357,-5920"/>
-<text text-anchor="middle" x="327" y="-5905.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_body</text>
+<title>interface~whm_util_resize_pl</title>
+<g id="a_call~~graph~~CallGraph_node144"><a xlink:href=".././interface/whm_util_resize_pl.html" xlink:title="whm_util_resize_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="607.5,-6456 504.5,-6456 504.5,-6432 607.5,-6432 607.5,-6456"/>
+<text text-anchor="middle" x="556" y="-6441.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_resize_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~drift_all -->
-<g id="call~~graph~~CallGraph_node510" class="node">
-<title>interface~drift_all</title>
-<g id="a_call~~graph~~CallGraph_node510"><a xlink:href=".././interface/drift_all.html" xlink:title="drift_all">
-<polygon fill="#a7506f" stroke="#a7506f" points="589.5,-5920 535.5,-5920 535.5,-5896 589.5,-5896 589.5,-5920"/>
-<text text-anchor="middle" x="562.5" y="-5905.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_all</text>
+<!-- proc~whm_util_resize_pl -->
+<g id="call~~graph~~CallGraph_node338" class="node">
+<title>proc~whm_util_resize_pl</title>
+<g id="a_call~~graph~~CallGraph_node338"><a xlink:href=".././proc/whm_util_resize_pl.html" xlink:title="whm_util_resize_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="831.5,-6456 728.5,-6456 728.5,-6432 831.5,-6432 831.5,-6456"/>
+<text text-anchor="middle" x="780" y="-6441.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_resize_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_body&#45;&gt;interface~drift_all -->
-<g id="call~~graph~~CallGraph_edge129" class="edge">
-<title>proc~drift_body&#45;&gt;interface~drift_all</title>
-<path fill="none" stroke="#000000" d="M357.1,-5908C399.63,-5908 478.74,-5908 525.08,-5908"/>
-<polygon fill="#000000" stroke="#000000" points="525.28,-5911.5 535.28,-5908 525.28,-5904.5 525.28,-5911.5"/>
+<!-- interface~whm_util_resize_pl&#45;&gt;proc~whm_util_resize_pl -->
+<g id="call~~graph~~CallGraph_edge113" class="edge">
+<title>interface~whm_util_resize_pl&#45;&gt;proc~whm_util_resize_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.65,-6444C640.5,-6444 683.47,-6444 718.17,-6444"/>
+<polygon fill="#000000" stroke="#000000" points="718.18,-6447.5 728.18,-6444 718.18,-6440.5 718.18,-6447.5"/>
 </g>
-<!-- interface~symba_step_set_recur_levels_system -->
+<!-- proc~symba_kick_getacch_pl -->
 <g id="call~~graph~~CallGraph_node145" class="node">
-<title>interface~symba_step_set_recur_levels_system</title>
-<g id="a_call~~graph~~CallGraph_node145"><a xlink:href=".././interface/symba_step_set_recur_levels_system.html" xlink:title="symba_step_set_recur_levels_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="194,-2818 0,-2818 0,-2794 194,-2794 194,-2818"/>
-<text text-anchor="middle" x="97" y="-2803.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_set_recur_levels_system</text>
+<title>proc~symba_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node145"><a xlink:href=".././proc/symba_kick_getacch_pl.html" xlink:title="symba_kick_getacch_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="390,-6704 264,-6704 264,-6680 390,-6680 390,-6704"/>
+<text text-anchor="middle" x="327" y="-6689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_step_set_recur_levels_system&#45;&gt;proc~symba_step_set_recur_levels_system -->
-<g id="call~~graph~~CallGraph_edge130" class="edge">
-<title>interface~symba_step_set_recur_levels_system&#45;&gt;proc~symba_step_set_recur_levels_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M194.03,-2806C202.52,-2806 211.14,-2806 219.7,-2806"/>
-<polygon fill="#000000" stroke="#000000" points="219.71,-2809.5 229.71,-2806 219.71,-2802.5 219.71,-2809.5"/>
+<!-- helio_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node578" class="node">
+<title>helio_kick_getacch_pl</title>
+<polygon fill="#777777" stroke="#777777" points="614.5,-6704 497.5,-6704 497.5,-6680 614.5,-6680 614.5,-6704"/>
+<text text-anchor="middle" x="556" y="-6689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_pl</text>
 </g>
-<!-- interface~symba_step_recur_system -->
-<g id="call~~graph~~CallGraph_node146" class="node">
-<title>interface~symba_step_recur_system</title>
-<g id="a_call~~graph~~CallGraph_node146"><a xlink:href=".././interface/symba_step_recur_system.html" xlink:title="symba_step_recur_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="633,-1251 492,-1251 492,-1227 633,-1227 633,-1251"/>
-<text text-anchor="middle" x="562.5" y="-1236.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_recur_system</text>
-</a>
+<!-- proc~symba_kick_getacch_pl&#45;&gt;helio_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_edge114" class="edge">
+<title>proc~symba_kick_getacch_pl&#45;&gt;helio_kick_getacch_pl</title>
+<path fill="none" stroke="#000000" d="M390.03,-6692C420.1,-6692 456.29,-6692 487.11,-6692"/>
+<polygon fill="#000000" stroke="#000000" points="487.33,-6695.5 497.33,-6692 487.33,-6688.5 487.33,-6695.5"/>
 </g>
+<!-- interface~whm_util_set_ir3j -->
+<g id="call~~graph~~CallGraph_node146" class="node">
+<title>interface~whm_util_set_ir3j</title>
+<g id="a_call~~graph~~CallGraph_node146"><a xlink:href=".././interface/whm_util_set_ir3j.html" xlink:title="whm_util_set_ir3j">
+<polygon fill="#a7506f" stroke="#a7506f" points="144.5,-6746 49.5,-6746 49.5,-6722 144.5,-6722 144.5,-6746"/>
+<text text-anchor="middle" x="97" y="-6731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_set_ir3j</text>
+</a>
 </g>
-<!-- interface~symba_step_recur_system&#45;&gt;proc~symba_step_recur_system -->
-<g id="call~~graph~~CallGraph_edge131" class="edge">
-<title>interface~symba_step_recur_system&#45;&gt;proc~symba_step_recur_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M633.27,-1239C661.25,-1239 693.65,-1239 722.57,-1239"/>
-<polygon fill="#000000" stroke="#000000" points="722.64,-1242.5 732.64,-1239 722.64,-1235.5 722.64,-1242.5"/>
 </g>
-<!-- proc~util_peri_tp -->
-<g id="call~~graph~~CallGraph_node147" class="node">
-<title>proc~util_peri_tp</title>
-<g id="a_call~~graph~~CallGraph_node147"><a xlink:href=".././proc/util_peri_tp.html" xlink:title="util_peri_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="359.5,-5962 294.5,-5962 294.5,-5938 359.5,-5938 359.5,-5962"/>
-<text text-anchor="middle" x="327" y="-5947.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri_tp</text>
+<!-- proc~whm_util_set_ir3j -->
+<g id="call~~graph~~CallGraph_node344" class="node">
+<title>proc~whm_util_set_ir3j</title>
+<g id="a_call~~graph~~CallGraph_node344"><a xlink:href=".././proc/whm_util_set_ir3j.html" xlink:title="whm_util_set_ir3j">
+<polygon fill="#d9534f" stroke="#d9534f" points="374.5,-6746 279.5,-6746 279.5,-6722 374.5,-6722 374.5,-6746"/>
+<text text-anchor="middle" x="327" y="-6731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_set_ir3j</text>
 </a>
 </g>
 </g>
-<!-- interface~orbel_xv2aeq -->
-<g id="call~~graph~~CallGraph_node274" class="node">
-<title>interface~orbel_xv2aeq</title>
-<g id="a_call~~graph~~CallGraph_node274"><a xlink:href=".././interface/orbel_xv2aeq.html" xlink:title="orbel_xv2aeq">
-<polygon fill="#a7506f" stroke="#a7506f" points="601,-5962 524,-5962 524,-5938 601,-5938 601,-5962"/>
-<text text-anchor="middle" x="562.5" y="-5947.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aeq</text>
-</a>
+<!-- interface~whm_util_set_ir3j&#45;&gt;proc~whm_util_set_ir3j -->
+<g id="call~~graph~~CallGraph_edge115" class="edge">
+<title>interface~whm_util_set_ir3j&#45;&gt;proc~whm_util_set_ir3j</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.69,-6734C180.65,-6734 230.54,-6734 268.89,-6734"/>
+<polygon fill="#000000" stroke="#000000" points="269.37,-6737.5 279.37,-6734 269.37,-6730.5 269.37,-6737.5"/>
 </g>
+<!-- proc~symba_step_reset_system -->
+<g id="call~~graph~~CallGraph_node147" class="node">
+<title>proc~symba_step_reset_system</title>
+<g id="a_call~~graph~~CallGraph_node147"><a xlink:href=".././proc/symba_step_reset_system.html" xlink:title="symba_step_reset_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="397,-6788 257,-6788 257,-6764 397,-6764 397,-6788"/>
+<text text-anchor="middle" x="327" y="-6773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_reset_system</text>
+</a>
 </g>
-<!-- proc~util_peri_tp&#45;&gt;interface~orbel_xv2aeq -->
-<g id="call~~graph~~CallGraph_edge132" class="edge">
-<title>proc~util_peri_tp&#45;&gt;interface~orbel_xv2aeq</title>
-<path fill="none" stroke="#000000" d="M359.98,-5950C399.69,-5950 467.8,-5950 513.71,-5950"/>
-<polygon fill="#000000" stroke="#000000" points="513.73,-5953.5 523.73,-5950 513.73,-5946.5 513.73,-5953.5"/>
 </g>
-<!-- interface~symba_step_reset_system -->
+<!-- interface~whm_util_set_mu_eta_pl -->
 <g id="call~~graph~~CallGraph_node148" class="node">
-<title>interface~symba_step_reset_system</title>
-<g id="a_call~~graph~~CallGraph_node148"><a xlink:href=".././interface/symba_step_reset_system.html" xlink:title="symba_step_reset_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="167,-3706 27,-3706 27,-3682 167,-3682 167,-3706"/>
-<text text-anchor="middle" x="97" y="-3691.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_reset_system</text>
+<title>interface~whm_util_set_mu_eta_pl</title>
+<g id="a_call~~graph~~CallGraph_node148"><a xlink:href=".././interface/whm_util_set_mu_eta_pl.html" xlink:title="whm_util_set_mu_eta_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="162.5,-6830 31.5,-6830 31.5,-6806 162.5,-6806 162.5,-6830"/>
+<text text-anchor="middle" x="97" y="-6815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_set_mu_eta_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_step_reset_system&#45;&gt;proc~symba_step_reset_system -->
-<g id="call~~graph~~CallGraph_edge133" class="edge">
-<title>interface~symba_step_reset_system&#45;&gt;proc~symba_step_reset_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M167.03,-3694C192.13,-3694 220.71,-3694 246.64,-3694"/>
-<polygon fill="#000000" stroke="#000000" points="246.82,-3697.5 256.82,-3694 246.82,-3690.5 246.82,-3697.5"/>
+<!-- proc~whm_util_set_mu_eta_pl -->
+<g id="call~~graph~~CallGraph_node330" class="node">
+<title>proc~whm_util_set_mu_eta_pl</title>
+<g id="a_call~~graph~~CallGraph_node330"><a xlink:href=".././proc/whm_util_set_mu_eta_pl.html" xlink:title="whm_util_set_mu_eta_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="392.5,-6830 261.5,-6830 261.5,-6806 392.5,-6806 392.5,-6830"/>
+<text text-anchor="middle" x="327" y="-6815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_set_mu_eta_pl</text>
+</a>
 </g>
-<!-- proc~drift_all -->
+</g>
+<!-- interface~whm_util_set_mu_eta_pl&#45;&gt;proc~whm_util_set_mu_eta_pl -->
+<g id="call~~graph~~CallGraph_edge116" class="edge">
+<title>interface~whm_util_set_mu_eta_pl&#45;&gt;proc~whm_util_set_mu_eta_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M162.73,-6818C190.16,-6818 222.32,-6818 250.8,-6818"/>
+<polygon fill="#000000" stroke="#000000" points="251.11,-6821.5 261.11,-6818 251.11,-6814.5 251.11,-6821.5"/>
+</g>
+<!-- interface~whm_util_sort_pl -->
 <g id="call~~graph~~CallGraph_node149" class="node">
-<title>proc~drift_all</title>
-<g id="a_call~~graph~~CallGraph_node149"><a xlink:href=".././proc/drift_all.html" xlink:title="drift_all">
-<polygon fill="#d9534f" stroke="#d9534f" points="830.5,-5920 776.5,-5920 776.5,-5896 830.5,-5896 830.5,-5920"/>
-<text text-anchor="middle" x="803.5" y="-5905.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_all</text>
+<title>interface~whm_util_sort_pl</title>
+<g id="a_call~~graph~~CallGraph_node149"><a xlink:href=".././interface/whm_util_sort_pl.html" xlink:title="whm_util_sort_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="143.5,-6914 50.5,-6914 50.5,-6890 143.5,-6890 143.5,-6914"/>
+<text text-anchor="middle" x="97" y="-6899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_sort_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_coord_h2b_pl -->
-<g id="call~~graph~~CallGraph_node150" class="node">
-<title>proc~util_coord_h2b_pl</title>
-<g id="a_call~~graph~~CallGraph_node150"><a xlink:href=".././proc/util_coord_h2b_pl.html" xlink:title="util_coord_h2b_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="375.5,-6004 278.5,-6004 278.5,-5980 375.5,-5980 375.5,-6004"/>
-<text text-anchor="middle" x="327" y="-5989.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_h2b_pl</text>
+<!-- proc~whm_util_sort_pl -->
+<g id="call~~graph~~CallGraph_node350" class="node">
+<title>proc~whm_util_sort_pl</title>
+<g id="a_call~~graph~~CallGraph_node350"><a xlink:href=".././proc/whm_util_sort_pl.html" xlink:title="whm_util_sort_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="373.5,-6914 280.5,-6914 280.5,-6890 373.5,-6890 373.5,-6914"/>
+<text text-anchor="middle" x="327" y="-6899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_sort_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepmd -->
-<g id="call~~graph~~CallGraph_node151" class="node">
-<title>proc~drift_kepmd</title>
-<g id="a_call~~graph~~CallGraph_node151"><a xlink:href=".././proc/drift_kepmd.html" xlink:title="drift_kepmd">
-<polygon fill="#d9534f" stroke="#d9534f" points="838,-331 769,-331 769,-307 838,-307 838,-331"/>
-<text text-anchor="middle" x="803.5" y="-316.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepmd</text>
+<!-- interface~whm_util_sort_pl&#45;&gt;proc~whm_util_sort_pl -->
+<g id="call~~graph~~CallGraph_edge117" class="edge">
+<title>interface~whm_util_sort_pl&#45;&gt;proc~whm_util_sort_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M143.59,-6902C180.09,-6902 231.45,-6902 270.37,-6902"/>
+<polygon fill="#000000" stroke="#000000" points="270.49,-6905.5 280.49,-6902 270.49,-6898.5 270.49,-6905.5"/>
+</g>
+<!-- interface~whm_util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_node150" class="node">
+<title>interface~whm_util_sort_rearrange_pl</title>
+<g id="a_call~~graph~~CallGraph_node150"><a xlink:href=".././interface/whm_util_sort_rearrange_pl.html" xlink:title="whm_util_sort_rearrange_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="170,-7040 24,-7040 24,-7016 170,-7016 170,-7040"/>
+<text text-anchor="middle" x="97" y="-7025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_sort_rearrange_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_one -->
-<g id="call~~graph~~CallGraph_node152" class="node">
-<title>proc~drift_one</title>
-<g id="a_call~~graph~~CallGraph_node152"><a xlink:href=".././proc/drift_one.html" xlink:title="drift_one">
-<polygon fill="#d9534f" stroke="#d9534f" points="354.5,-6046 299.5,-6046 299.5,-6022 354.5,-6022 354.5,-6046"/>
-<text text-anchor="middle" x="327" y="-6031.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_one</text>
+<!-- proc~whm_util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_node342" class="node">
+<title>proc~whm_util_sort_rearrange_pl</title>
+<g id="a_call~~graph~~CallGraph_node342"><a xlink:href=".././proc/whm_util_sort_rearrange_pl.html" xlink:title="whm_util_sort_rearrange_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="400,-7040 254,-7040 254,-7016 400,-7016 400,-7040"/>
+<text text-anchor="middle" x="327" y="-7025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_sort_rearrange_pl</text>
 </a>
 </g>
 </g>
-<!-- fragmentation_initialize -->
-<g id="call~~graph~~CallGraph_node587" class="node">
-<title>fragmentation_initialize</title>
-<polygon fill="#777777" stroke="#777777" points="1594,-1831 1472,-1831 1472,-1807 1594,-1807 1594,-1831"/>
-<text text-anchor="middle" x="1533" y="-1816.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
-</g>
-<!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize -->
-<g id="call~~graph~~CallGraph_edge134" class="edge">
-<title>proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize</title>
-<path fill="none" stroke="#000000" d="M1389.49,-1789.02C1404.79,-1791.87 1420.97,-1794.97 1436,-1798 1446.56,-1800.13 1457.76,-1802.49 1468.63,-1804.83"/>
-<polygon fill="#000000" stroke="#000000" points="1467.98,-1808.27 1478.5,-1806.97 1469.47,-1801.43 1467.98,-1808.27"/>
+<!-- interface~whm_util_sort_rearrange_pl&#45;&gt;proc~whm_util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_edge118" class="edge">
+<title>interface~whm_util_sort_rearrange_pl&#45;&gt;proc~whm_util_sort_rearrange_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.14,-7028C193.54,-7028 219.68,-7028 243.76,-7028"/>
+<polygon fill="#000000" stroke="#000000" points="243.94,-7031.5 253.94,-7028 243.94,-7024.5 243.94,-7031.5"/>
 </g>
-<!-- proc~rmvs_interp_in&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge135" class="edge">
-<title>proc~rmvs_interp_in&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M845.17,-1313.2C864.41,-1309.32 887.23,-1303.03 906,-1293 961.68,-1263.25 1013.41,-1208.52 1038.9,-1179.05"/>
-<polygon fill="#000000" stroke="#000000" points="1041.84,-1180.99 1045.66,-1171.11 1036.52,-1176.45 1041.84,-1180.99"/>
+<!-- proc~symba_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node151" class="node">
+<title>proc~symba_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node151"><a xlink:href=".././proc/symba_kick_getacch_tp.html" xlink:title="symba_kick_getacch_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="390.5,-7082 263.5,-7082 263.5,-7058 390.5,-7058 390.5,-7082"/>
+<text text-anchor="middle" x="327" y="-7067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_getacch_tp</text>
+</a>
 </g>
-<!-- proc~symba_drift_tp&#45;&gt;helio_drift_body -->
-<g id="call~~graph~~CallGraph_edge136" class="edge">
-<title>proc~symba_drift_tp&#45;&gt;helio_drift_body</title>
-<path fill="none" stroke="#000000" d="M368.67,-2893.66C407.3,-2897.13 465.61,-2902.38 507.99,-2906.19"/>
-<polygon fill="#000000" stroke="#000000" points="507.85,-2909.69 518.13,-2907.1 508.48,-2902.72 507.85,-2909.69"/>
 </g>
-<!-- proc~util_coord_b2h_pl -->
-<g id="call~~graph~~CallGraph_node156" class="node">
-<title>proc~util_coord_b2h_pl</title>
-<g id="a_call~~graph~~CallGraph_node156"><a xlink:href=".././proc/util_coord_b2h_pl.html" xlink:title="util_coord_b2h_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="375.5,-6298 278.5,-6298 278.5,-6274 375.5,-6274 375.5,-6298"/>
-<text text-anchor="middle" x="327" y="-6283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_b2h_pl</text>
-</a>
+<!-- helio_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node606" class="node">
+<title>helio_kick_getacch_tp</title>
+<polygon fill="#777777" stroke="#777777" points="615,-7082 497,-7082 497,-7058 615,-7058 615,-7082"/>
+<text text-anchor="middle" x="556" y="-7067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_tp</text>
 </g>
+<!-- proc~symba_kick_getacch_tp&#45;&gt;helio_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_edge119" class="edge">
+<title>proc~symba_kick_getacch_tp&#45;&gt;helio_kick_getacch_tp</title>
+<path fill="none" stroke="#000000" d="M390.63,-7070C420.46,-7070 456.2,-7070 486.72,-7070"/>
+<polygon fill="#000000" stroke="#000000" points="486.86,-7073.5 496.86,-7070 486.86,-7066.5 486.86,-7073.5"/>
 </g>
-<!-- vh -->
-<g id="call~~graph~~CallGraph_node557" class="node">
-<title>vh</title>
-<polygon fill="#777777" stroke="#777777" points="589.5,-6214 535.5,-6214 535.5,-6190 589.5,-6190 589.5,-6214"/>
-<text text-anchor="middle" x="562.5" y="-6199.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
+<!-- proc~symba_kick_pltpenc -->
+<g id="call~~graph~~CallGraph_node152" class="node">
+<title>proc~symba_kick_pltpenc</title>
+<g id="a_call~~graph~~CallGraph_node152"><a xlink:href=".././proc/symba_kick_pltpenc.html" xlink:title="symba_kick_pltpenc">
+<polygon fill="#d9534f" stroke="#d9534f" points="381.5,-7250 272.5,-7250 272.5,-7226 381.5,-7226 381.5,-7250"/>
+<text text-anchor="middle" x="327" y="-7235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_pltpenc</text>
+</a>
 </g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;vh -->
-<g id="call~~graph~~CallGraph_edge141" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;vh</title>
-<path fill="none" stroke="#000000" d="M349.28,-6273.86C374.83,-6259.76 419.33,-6236.69 460,-6223 481.11,-6215.9 505.53,-6210.75 525.12,-6207.33"/>
-<polygon fill="#000000" stroke="#000000" points="525.89,-6210.76 535.18,-6205.66 524.74,-6203.85 525.89,-6210.76"/>
 </g>
-<!-- xbcb -->
-<g id="call~~graph~~CallGraph_node565" class="node">
-<title>xbcb</title>
-<polygon fill="#777777" stroke="#777777" points="589.5,-6298 535.5,-6298 535.5,-6274 589.5,-6274 589.5,-6298"/>
-<text text-anchor="middle" x="562.5" y="-6283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xbcb</text>
+<!-- ind2 -->
+<g id="call~~graph~~CallGraph_node599" class="node">
+<title>ind2</title>
+<polygon fill="#777777" stroke="#777777" points="583,-7250 529,-7250 529,-7226 583,-7226 583,-7250"/>
+<text text-anchor="middle" x="556" y="-7235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind2</text>
 </g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;xbcb -->
-<g id="call~~graph~~CallGraph_edge140" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;xbcb</title>
-<path fill="none" stroke="#000000" d="M375.53,-6286C419.84,-6286 484.97,-6286 525.23,-6286"/>
-<polygon fill="#000000" stroke="#000000" points="525.4,-6289.5 535.4,-6286 525.4,-6282.5 525.4,-6289.5"/>
+<!-- proc~symba_kick_pltpenc&#45;&gt;ind2 -->
+<g id="call~~graph~~CallGraph_edge120" class="edge">
+<title>proc~symba_kick_pltpenc&#45;&gt;ind2</title>
+<path fill="none" stroke="#000000" d="M381.51,-7238C423.74,-7238 481.52,-7238 518.56,-7238"/>
+<polygon fill="#000000" stroke="#000000" points="518.89,-7241.5 528.89,-7238 518.89,-7234.5 518.89,-7241.5"/>
 </g>
-<!-- vb -->
-<g id="call~~graph~~CallGraph_node610" class="node">
-<title>vb</title>
-<polygon fill="#777777" stroke="#777777" points="589.5,-6424 535.5,-6424 535.5,-6400 589.5,-6400 589.5,-6424"/>
-<text text-anchor="middle" x="562.5" y="-6409.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vb</text>
+<!-- ind1 -->
+<g id="call~~graph~~CallGraph_node617" class="node">
+<title>ind1</title>
+<polygon fill="#777777" stroke="#777777" points="583,-7208 529,-7208 529,-7184 583,-7184 583,-7208"/>
+<text text-anchor="middle" x="556" y="-7193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind1</text>
 </g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;vb -->
-<g id="call~~graph~~CallGraph_edge142" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;vb</title>
-<path fill="none" stroke="#000000" d="M375.86,-6287.62C392.62,-6290.33 410.59,-6295.91 424,-6307 455.31,-6332.87 428.54,-6365.3 460,-6391 478.12,-6405.8 504.02,-6410.99 525.12,-6412.5"/>
-<polygon fill="#000000" stroke="#000000" points="525.19,-6416.01 535.34,-6412.99 525.52,-6409.02 525.19,-6416.01"/>
+<!-- proc~symba_kick_pltpenc&#45;&gt;ind1 -->
+<g id="call~~graph~~CallGraph_edge121" class="edge">
+<title>proc~symba_kick_pltpenc&#45;&gt;ind1</title>
+<path fill="none" stroke="#000000" d="M381.51,-7228.1C423.92,-7220.25 482.02,-7209.5 519.04,-7202.65"/>
+<polygon fill="#000000" stroke="#000000" points="519.69,-7206.09 528.89,-7200.83 518.42,-7199.21 519.69,-7206.09"/>
 </g>
-<!-- xb -->
-<g id="call~~graph~~CallGraph_node616" class="node">
-<title>xb</title>
-<polygon fill="#777777" stroke="#777777" points="589.5,-6382 535.5,-6382 535.5,-6358 589.5,-6358 589.5,-6382"/>
-<text text-anchor="middle" x="562.5" y="-6367.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xb</text>
+<!-- proc~symba_drift_pl -->
+<g id="call~~graph~~CallGraph_node153" class="node">
+<title>proc~symba_drift_pl</title>
+<g id="a_call~~graph~~CallGraph_node153"><a xlink:href=".././proc/symba_drift_pl.html" xlink:title="symba_drift_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="368,-7292 286,-7292 286,-7268 368,-7268 368,-7292"/>
+<text text-anchor="middle" x="327" y="-7277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift_pl</text>
+</a>
 </g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;xb -->
-<g id="call~~graph~~CallGraph_edge139" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;xb</title>
-<path fill="none" stroke="#000000" d="M375.68,-6290.23C391.86,-6293.23 409.5,-6298.33 424,-6307 445.1,-6319.61 438.83,-6336.51 460,-6349 479.66,-6360.6 504.77,-6365.86 525.09,-6368.22"/>
-<polygon fill="#000000" stroke="#000000" points="524.94,-6371.72 535.23,-6369.2 525.61,-6364.75 524.94,-6371.72"/>
 </g>
-<!-- xh -->
-<g id="call~~graph~~CallGraph_node618" class="node">
-<title>xh</title>
-<polygon fill="#777777" stroke="#777777" points="589.5,-6256 535.5,-6256 535.5,-6232 589.5,-6232 589.5,-6256"/>
-<text text-anchor="middle" x="562.5" y="-6241.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
+<!-- helio_drift_body -->
+<g id="call~~graph~~CallGraph_node613" class="node">
+<title>helio_drift_body</title>
+<polygon fill="#777777" stroke="#777777" points="600,-7313 512,-7313 512,-7289 600,-7289 600,-7313"/>
+<text text-anchor="middle" x="556" y="-7298.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_body</text>
 </g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;xh -->
-<g id="call~~graph~~CallGraph_edge138" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;xh</title>
-<path fill="none" stroke="#000000" d="M375.53,-6277.45C419.94,-6269.46 485.25,-6257.71 525.49,-6250.48"/>
-<polygon fill="#000000" stroke="#000000" points="526.17,-6253.91 535.4,-6248.7 524.94,-6247.02 526.17,-6253.91"/>
+<!-- proc~symba_drift_pl&#45;&gt;helio_drift_body -->
+<g id="call~~graph~~CallGraph_edge122" class="edge">
+<title>proc~symba_drift_pl&#45;&gt;helio_drift_body</title>
+<path fill="none" stroke="#000000" d="M368.06,-7283.71C405.26,-7287.15 460.89,-7292.29 501.8,-7296.08"/>
+<polygon fill="#000000" stroke="#000000" points="501.58,-7299.57 511.86,-7297.01 502.23,-7292.6 501.58,-7299.57"/>
 </g>
-<!-- vbcb -->
-<g id="call~~graph~~CallGraph_node624" class="node">
-<title>vbcb</title>
-<polygon fill="#777777" stroke="#777777" points="589.5,-6340 535.5,-6340 535.5,-6316 589.5,-6316 589.5,-6340"/>
-<text text-anchor="middle" x="562.5" y="-6325.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vbcb</text>
+<!-- proc~whm_kick_getacch_ah0 -->
+<g id="call~~graph~~CallGraph_node155" class="node">
+<title>proc~whm_kick_getacch_ah0</title>
+<g id="a_call~~graph~~CallGraph_node155"><a xlink:href=".././proc/whm_kick_getacch_ah0.html" xlink:title="whm_kick_getacch_ah0">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="619.5,-5656 492.5,-5656 492.5,-5632 619.5,-5632 619.5,-5656"/>
+<text text-anchor="middle" x="556" y="-5641.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah0</text>
+</a>
 </g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;vbcb -->
-<g id="call~~graph~~CallGraph_edge137" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;vbcb</title>
-<path fill="none" stroke="#000000" d="M375.53,-6294.55C419.94,-6302.54 485.25,-6314.29 525.49,-6321.52"/>
-<polygon fill="#000000" stroke="#000000" points="524.94,-6324.98 535.4,-6323.3 526.17,-6318.09 524.94,-6324.98"/>
 </g>
-<!-- interface~rmvs_chk_ind&#45;&gt;proc~rmvs_chk_ind -->
-<g id="call~~graph~~CallGraph_edge143" class="edge">
-<title>interface~rmvs_chk_ind&#45;&gt;proc~rmvs_chk_ind</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.17,-2239C643.47,-2239 709.03,-2239 753.82,-2239"/>
-<polygon fill="#000000" stroke="#000000" points="753.89,-2242.5 763.89,-2239 753.89,-2235.5 753.89,-2242.5"/>
+<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0 -->
+<g id="call~~graph~~CallGraph_edge125" class="edge">
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0</title>
+<path fill="none" stroke="#000000" d="M385.58,-5612.65C414.97,-5618.09 451.03,-5624.76 482.32,-5630.55"/>
+<polygon fill="#000000" stroke="#000000" points="481.83,-5634.02 492.3,-5632.4 483.1,-5627.14 481.83,-5634.02"/>
 </g>
-<!-- proc~util_coord_h2b_tp -->
+<!-- proc~whm_kick_getacch_ah1 -->
 <g id="call~~graph~~CallGraph_node158" class="node">
-<title>proc~util_coord_h2b_tp</title>
-<g id="a_call~~graph~~CallGraph_node158"><a xlink:href=".././proc/util_coord_h2b_tp.html" xlink:title="util_coord_h2b_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="376,-6340 278,-6340 278,-6316 376,-6316 376,-6340"/>
-<text text-anchor="middle" x="327" y="-6325.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_h2b_tp</text>
+<title>proc~whm_kick_getacch_ah1</title>
+<g id="a_call~~graph~~CallGraph_node158"><a xlink:href=".././proc/whm_kick_getacch_ah1.html" xlink:title="whm_kick_getacch_ah1">
+<polygon fill="#d9534f" stroke="#d9534f" points="619.5,-5614 492.5,-5614 492.5,-5590 619.5,-5590 619.5,-5614"/>
+<text text-anchor="middle" x="556" y="-5599.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah1</text>
 </a>
 </g>
 </g>
-<!-- status -->
-<g id="call~~graph~~CallGraph_node554" class="node">
-<title>status</title>
-<polygon fill="#777777" stroke="#777777" points="589.5,-6466 535.5,-6466 535.5,-6442 589.5,-6442 589.5,-6466"/>
-<text text-anchor="middle" x="562.5" y="-6451.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">status</text>
-</g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;status -->
-<g id="call~~graph~~CallGraph_edge148" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;status</title>
-<path fill="none" stroke="#000000" d="M376.35,-6329.7C392.97,-6332.44 410.72,-6338.02 424,-6349 455.31,-6374.87 428.54,-6407.3 460,-6433 478.12,-6447.8 504.02,-6452.99 525.12,-6454.5"/>
-<polygon fill="#000000" stroke="#000000" points="525.19,-6458.01 535.34,-6454.99 525.52,-6451.02 525.19,-6458.01"/>
+<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah1 -->
+<g id="call~~graph~~CallGraph_edge123" class="edge">
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah1</title>
+<path fill="none" stroke="#000000" d="M385.58,-5602C414.84,-5602 450.72,-5602 481.92,-5602"/>
+<polygon fill="#000000" stroke="#000000" points="482.3,-5605.5 492.3,-5602 482.3,-5598.5 482.3,-5605.5"/>
 </g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;vh -->
-<g id="call~~graph~~CallGraph_edge149" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;vh</title>
-<path fill="none" stroke="#000000" d="M376.35,-6326.3C392.97,-6323.56 410.72,-6317.98 424,-6307 455.31,-6281.13 428.54,-6248.7 460,-6223 478.12,-6208.2 504.02,-6203.01 525.12,-6201.5"/>
-<polygon fill="#000000" stroke="#000000" points="525.52,-6204.98 535.34,-6201.01 525.19,-6197.99 525.52,-6204.98"/>
+<!-- proc~whm_kick_getacch_ah2 -->
+<g id="call~~graph~~CallGraph_node162" class="node">
+<title>proc~whm_kick_getacch_ah2</title>
+<g id="a_call~~graph~~CallGraph_node162"><a xlink:href=".././proc/whm_kick_getacch_ah2.html" xlink:title="whm_kick_getacch_ah2">
+<polygon fill="#d9534f" stroke="#d9534f" points="619.5,-5572 492.5,-5572 492.5,-5548 619.5,-5548 619.5,-5572"/>
+<text text-anchor="middle" x="556" y="-5557.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah2</text>
+</a>
 </g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;xbcb -->
-<g id="call~~graph~~CallGraph_edge147" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;xbcb</title>
-<path fill="none" stroke="#000000" d="M376.1,-6319.35C420.43,-6311.37 485.26,-6299.71 525.34,-6292.51"/>
-<polygon fill="#000000" stroke="#000000" points="525.99,-6295.94 535.21,-6290.73 524.75,-6289.05 525.99,-6295.94"/>
 </g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;vb -->
-<g id="call~~graph~~CallGraph_edge150" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;vb</title>
-<path fill="none" stroke="#000000" d="M376.17,-6332.32C392.22,-6335.33 409.65,-6340.42 424,-6349 445.1,-6361.61 438.83,-6378.51 460,-6391 479.66,-6402.6 504.77,-6407.86 525.09,-6410.22"/>
-<polygon fill="#000000" stroke="#000000" points="524.94,-6413.72 535.23,-6411.2 525.61,-6406.75 524.94,-6413.72"/>
+<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2 -->
+<g id="call~~graph~~CallGraph_edge124" class="edge">
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2</title>
+<path fill="none" stroke="#000000" d="M385.58,-5591.35C414.97,-5585.91 451.03,-5579.24 482.32,-5573.45"/>
+<polygon fill="#000000" stroke="#000000" points="483.1,-5576.86 492.3,-5571.6 481.83,-5569.98 483.1,-5576.86"/>
 </g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;xb -->
-<g id="call~~graph~~CallGraph_edge146" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;xb</title>
-<path fill="none" stroke="#000000" d="M376.1,-6336.65C420.43,-6344.63 485.26,-6356.29 525.34,-6363.49"/>
-<polygon fill="#000000" stroke="#000000" points="524.75,-6366.95 535.21,-6365.27 525.99,-6360.06 524.75,-6366.95"/>
+<!-- proc~whm_kick_getacch_tp&#45;&gt;proc~whm_kick_getacch_ah0 -->
+<g id="call~~graph~~CallGraph_edge126" class="edge">
+<title>proc~whm_kick_getacch_tp&#45;&gt;proc~whm_kick_getacch_ah0</title>
+<path fill="none" stroke="#000000" d="M386.16,-5644C415.31,-5644 450.91,-5644 481.89,-5644"/>
+<polygon fill="#000000" stroke="#000000" points="482.21,-5647.5 492.21,-5644 482.21,-5640.5 482.21,-5647.5"/>
 </g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;xh -->
-<g id="call~~graph~~CallGraph_edge145" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;xh</title>
-<path fill="none" stroke="#000000" d="M376.17,-6323.68C392.22,-6320.67 409.65,-6315.58 424,-6307 445.1,-6294.39 438.83,-6277.49 460,-6265 479.66,-6253.4 504.77,-6248.14 525.09,-6245.78"/>
-<polygon fill="#000000" stroke="#000000" points="525.61,-6249.25 535.23,-6244.8 524.94,-6242.28 525.61,-6249.25"/>
+<!-- proc~symba_encounter_check_pl -->
+<g id="call~~graph~~CallGraph_node157" class="node">
+<title>proc~symba_encounter_check_pl</title>
+<g id="a_call~~graph~~CallGraph_node157"><a xlink:href=".././proc/symba_encounter_check_pl.html" xlink:title="symba_encounter_check_pl">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="400,-7376 254,-7376 254,-7352 400,-7352 400,-7376"/>
+<text text-anchor="middle" x="327" y="-7361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_pl</text>
+</a>
 </g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;vbcb -->
-<g id="call~~graph~~CallGraph_edge144" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;vbcb</title>
-<path fill="none" stroke="#000000" d="M376.1,-6328C420.34,-6328 484.98,-6328 525.08,-6328"/>
-<polygon fill="#000000" stroke="#000000" points="525.21,-6331.5 535.21,-6328 525.21,-6324.5 525.21,-6331.5"/>
 </g>
-<!-- proc~drift_dan -->
+<!-- proc~symba_fragmentation_casedisruption -->
 <g id="call~~graph~~CallGraph_node159" class="node">
-<title>proc~drift_dan</title>
-<g id="a_call~~graph~~CallGraph_node159"><a xlink:href=".././proc/drift_dan.html" xlink:title="drift_dan">
-<polygon fill="#d9534f" stroke="#d9534f" points="590,-352 535,-352 535,-328 590,-328 590,-352"/>
-<text text-anchor="middle" x="562.5" y="-337.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_dan</text>
+<title>proc~symba_fragmentation_casedisruption</title>
+<g id="a_call~~graph~~CallGraph_node159"><a xlink:href=".././proc/symba_fragmentation_casedisruption.html" xlink:title="symba_fragmentation_casedisruption">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1865,-4467 1674,-4467 1674,-4443 1865,-4443 1865,-4467"/>
+<text text-anchor="middle" x="1769.5" y="-4452.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casedisruption</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_dan&#45;&gt;proc~drift_kepmd -->
-<g id="call~~graph~~CallGraph_edge151" class="edge">
-<title>proc~drift_dan&#45;&gt;proc~drift_kepmd</title>
-<path fill="none" stroke="#000000" d="M590.45,-337.63C631.37,-334.04 709.58,-327.16 758.73,-322.85"/>
-<polygon fill="#000000" stroke="#000000" points="759.1,-326.33 768.75,-321.97 758.48,-319.35 759.1,-326.33"/>
-</g>
-<!-- proc~drift_kepu -->
-<g id="call~~graph~~CallGraph_node192" class="node">
-<title>proc~drift_kepu</title>
-<g id="a_call~~graph~~CallGraph_node192"><a xlink:href=".././proc/drift_kepu.html" xlink:title="drift_kepu">
-<polygon fill="#d9534f" stroke="#d9534f" points="833.5,-373 773.5,-373 773.5,-349 833.5,-349 833.5,-373"/>
-<text text-anchor="middle" x="803.5" y="-358.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu</text>
+<!-- proc~symba_fragmentation_mergeaddsub -->
+<g id="call~~graph~~CallGraph_node336" class="node">
+<title>proc~symba_fragmentation_mergeaddsub</title>
+<g id="a_call~~graph~~CallGraph_node336"><a xlink:href=".././proc/symba_fragmentation_mergeaddsub.html" xlink:title="symba_fragmentation_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="2108,-4467 1920,-4467 1920,-4443 2108,-4443 2108,-4467"/>
+<text text-anchor="middle" x="2014" y="-4452.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_mergeaddsub</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_dan&#45;&gt;proc~drift_kepu -->
-<g id="call~~graph~~CallGraph_edge152" class="edge">
-<title>proc~drift_dan&#45;&gt;proc~drift_kepu</title>
-<path fill="none" stroke="#000000" d="M590.45,-342.37C632.65,-346.08 714.51,-353.27 763.25,-357.55"/>
-<polygon fill="#000000" stroke="#000000" points="763.15,-361.06 773.42,-358.44 763.76,-354.08 763.15,-361.06"/>
+<!-- proc~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="call~~graph~~CallGraph_edge128" class="edge">
+<title>proc~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M1865.3,-4455C1879.87,-4455 1894.98,-4455 1909.72,-4455"/>
+<polygon fill="#000000" stroke="#000000" points="1909.86,-4458.5 1919.86,-4455 1909.86,-4451.5 1909.86,-4458.5"/>
 </g>
-<!-- interface~rmvs_encounter_check_tp -->
+<!-- fragmentation_initialize -->
+<g id="call~~graph~~CallGraph_node602" class="node">
+<title>fragmentation_initialize</title>
+<polygon fill="#777777" stroke="#777777" points="2075,-4509 1953,-4509 1953,-4485 2075,-4485 2075,-4509"/>
+<text text-anchor="middle" x="2014" y="-4494.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
+</g>
+<!-- proc~symba_fragmentation_casedisruption&#45;&gt;fragmentation_initialize -->
+<g id="call~~graph~~CallGraph_edge127" class="edge">
+<title>proc~symba_fragmentation_casedisruption&#45;&gt;fragmentation_initialize</title>
+<path fill="none" stroke="#000000" d="M1839.99,-4467.04C1872.19,-4472.61 1910.4,-4479.23 1942.7,-4484.82"/>
+<polygon fill="#000000" stroke="#000000" points="1942.51,-4488.34 1952.96,-4486.6 1943.71,-4481.45 1942.51,-4488.34"/>
+</g>
+<!-- proc~symba_drift_tp -->
 <g id="call~~graph~~CallGraph_node160" class="node">
-<title>interface~rmvs_encounter_check_tp</title>
-<g id="a_call~~graph~~CallGraph_node160"><a xlink:href=".././interface/rmvs_encounter_check_tp.html" xlink:title="rmvs_encounter_check_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="166.5,-2230 27.5,-2230 27.5,-2206 166.5,-2206 166.5,-2230"/>
-<text text-anchor="middle" x="97" y="-2215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check_tp</text>
+<title>proc~symba_drift_tp</title>
+<g id="a_call~~graph~~CallGraph_node160"><a xlink:href=".././proc/symba_drift_tp.html" xlink:title="symba_drift_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="368.5,-7334 285.5,-7334 285.5,-7310 368.5,-7310 368.5,-7334"/>
+<text text-anchor="middle" x="327" y="-7319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_encounter_check_tp&#45;&gt;proc~rmvs_encounter_check_tp -->
-<g id="call~~graph~~CallGraph_edge153" class="edge">
-<title>interface~rmvs_encounter_check_tp&#45;&gt;proc~rmvs_encounter_check_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.72,-2218C192.07,-2218 220.98,-2218 247.16,-2218"/>
-<polygon fill="#000000" stroke="#000000" points="247.42,-2221.5 257.42,-2218 247.42,-2214.5 247.42,-2221.5"/>
+<!-- proc~symba_drift_tp&#45;&gt;helio_drift_body -->
+<g id="call~~graph~~CallGraph_edge129" class="edge">
+<title>proc~symba_drift_tp&#45;&gt;helio_drift_body</title>
+<path fill="none" stroke="#000000" d="M368.58,-7318.25C405.73,-7314.81 460.96,-7309.7 501.66,-7305.93"/>
+<polygon fill="#000000" stroke="#000000" points="502.04,-7309.41 511.68,-7305.01 501.4,-7302.44 502.04,-7309.41"/>
 </g>
-<!-- interface~rmvs_discard_tp -->
-<g id="call~~graph~~CallGraph_node161" class="node">
-<title>interface~rmvs_discard_tp</title>
-<g id="a_call~~graph~~CallGraph_node161"><a xlink:href=".././interface/rmvs_discard_tp.html" xlink:title="rmvs_discard_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-6508 51.5,-6508 51.5,-6484 142.5,-6484 142.5,-6508"/>
-<text text-anchor="middle" x="97" y="-6493.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard_tp</text>
+<!-- proc~symba_encounter_check_tp -->
+<g id="call~~graph~~CallGraph_node163" class="node">
+<title>proc~symba_encounter_check_tp</title>
+<g id="a_call~~graph~~CallGraph_node163"><a xlink:href=".././proc/symba_encounter_check_tp.html" xlink:title="symba_encounter_check_tp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="400.5,-7418 253.5,-7418 253.5,-7394 400.5,-7394 400.5,-7418"/>
+<text text-anchor="middle" x="327" y="-7403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_discard_tp -->
-<g id="call~~graph~~CallGraph_node486" class="node">
-<title>proc~rmvs_discard_tp</title>
-<g id="a_call~~graph~~CallGraph_node486"><a xlink:href=".././proc/rmvs_discard_tp.html" xlink:title="rmvs_discard_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-6508 281.5,-6508 281.5,-6484 372.5,-6484 372.5,-6508"/>
-<text text-anchor="middle" x="327" y="-6493.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard_tp</text>
+<!-- proc~symba_encounter_check_pltpenc -->
+<g id="call~~graph~~CallGraph_node164" class="node">
+<title>proc~symba_encounter_check_pltpenc</title>
+<g id="a_call~~graph~~CallGraph_node164"><a xlink:href=".././proc/symba_encounter_check_pltpenc.html" xlink:title="symba_encounter_check_pltpenc">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="413,-7208 241,-7208 241,-7184 413,-7184 413,-7208"/>
+<text text-anchor="middle" x="327" y="-7193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_pltpenc</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_discard_tp&#45;&gt;proc~rmvs_discard_tp -->
-<g id="call~~graph~~CallGraph_edge154" class="edge">
-<title>interface~rmvs_discard_tp&#45;&gt;proc~rmvs_discard_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.5,-6496C179.26,-6496 231.61,-6496 270.99,-6496"/>
-<polygon fill="#000000" stroke="#000000" points="271.22,-6499.5 281.22,-6496 271.22,-6492.5 271.22,-6499.5"/>
+<!-- proc~symba_encounter_check_pltpenc&#45;&gt;ind2 -->
+<g id="call~~graph~~CallGraph_edge130" class="edge">
+<title>proc~symba_encounter_check_pltpenc&#45;&gt;ind2</title>
+<path fill="none" stroke="#000000" d="M393.05,-7208.04C434.01,-7215.61 485.34,-7225.11 519.1,-7231.36"/>
+<polygon fill="#000000" stroke="#000000" points="518.51,-7234.81 528.98,-7233.19 519.78,-7227.92 518.51,-7234.81"/>
 </g>
-<!-- interface~rmvs_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_node162" class="node">
-<title>interface~rmvs_kick_getacch_tp</title>
-<g id="a_call~~graph~~CallGraph_node162"><a xlink:href=".././interface/rmvs_kick_getacch_tp.html" xlink:title="rmvs_kick_getacch_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="156,-6550 38,-6550 38,-6526 156,-6526 156,-6550"/>
-<text text-anchor="middle" x="97" y="-6535.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick_getacch_tp</text>
+<!-- proc~symba_encounter_check_pltpenc&#45;&gt;ind1 -->
+<g id="call~~graph~~CallGraph_edge131" class="edge">
+<title>proc~symba_encounter_check_pltpenc&#45;&gt;ind1</title>
+<path fill="none" stroke="#000000" d="M413.17,-7196C449.65,-7196 490.3,-7196 518.69,-7196"/>
+<polygon fill="#000000" stroke="#000000" points="518.94,-7199.5 528.94,-7196 518.94,-7192.5 518.94,-7199.5"/>
+</g>
+<!-- proc~symba_encounter_check_one -->
+<g id="call~~graph~~CallGraph_node165" class="node">
+<title>proc~symba_encounter_check_one</title>
+<g id="a_call~~graph~~CallGraph_node165"><a xlink:href=".././proc/symba_encounter_check_one.html" xlink:title="symba_encounter_check_one">
+<polygon fill="#d9534f" stroke="#d9534f" points="405,-7460 249,-7460 249,-7436 405,-7436 405,-7460"/>
+<text text-anchor="middle" x="327" y="-7445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_one</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_node323" class="node">
-<title>proc~rmvs_kick_getacch_tp</title>
-<g id="a_call~~graph~~CallGraph_node323"><a xlink:href=".././proc/rmvs_kick_getacch_tp.html" xlink:title="rmvs_kick_getacch_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="386,-6550 268,-6550 268,-6526 386,-6526 386,-6550"/>
-<text text-anchor="middle" x="327" y="-6535.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick_getacch_tp</text>
+<!-- interface~rmvs_chk_ind -->
+<g id="call~~graph~~CallGraph_node515" class="node">
+<title>interface~rmvs_chk_ind</title>
+<g id="a_call~~graph~~CallGraph_node515"><a xlink:href=".././interface/rmvs_chk_ind.html" xlink:title="rmvs_chk_ind">
+<polygon fill="#a7506f" stroke="#a7506f" points="595.5,-7481 516.5,-7481 516.5,-7457 595.5,-7457 595.5,-7481"/>
+<text text-anchor="middle" x="556" y="-7466.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_chk_ind</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_kick_getacch_tp&#45;&gt;proc~rmvs_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_edge155" class="edge">
-<title>interface~rmvs_kick_getacch_tp&#45;&gt;proc~rmvs_kick_getacch_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-6538C187.08,-6538 225.33,-6538 257.7,-6538"/>
-<polygon fill="#000000" stroke="#000000" points="257.98,-6541.5 267.98,-6538 257.98,-6534.5 257.98,-6541.5"/>
+<!-- proc~symba_encounter_check_one&#45;&gt;interface~rmvs_chk_ind -->
+<g id="call~~graph~~CallGraph_edge132" class="edge">
+<title>proc~symba_encounter_check_one&#45;&gt;interface~rmvs_chk_ind</title>
+<path fill="none" stroke="#000000" d="M405.17,-7455.14C438.63,-7458.23 476.79,-7461.76 506.23,-7464.49"/>
+<polygon fill="#000000" stroke="#000000" points="505.98,-7467.98 516.26,-7465.42 506.62,-7461.01 505.98,-7467.98"/>
 </g>
-<!-- interface~rmvs_setup_pl -->
-<g id="call~~graph~~CallGraph_node163" class="node">
-<title>interface~rmvs_setup_pl</title>
-<g id="a_call~~graph~~CallGraph_node163"><a xlink:href=".././interface/rmvs_setup_pl.html" xlink:title="rmvs_setup_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="138,-6592 56,-6592 56,-6568 138,-6568 138,-6592"/>
-<text text-anchor="middle" x="97" y="-6577.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_pl</text>
-</a>
-</g>
-</g>
-<!-- proc~rmvs_setup_pl -->
-<g id="call~~graph~~CallGraph_node330" class="node">
-<title>proc~rmvs_setup_pl</title>
-<g id="a_call~~graph~~CallGraph_node330"><a xlink:href=".././proc/rmvs_setup_pl.html" xlink:title="rmvs_setup_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="368,-6592 286,-6592 286,-6568 368,-6568 368,-6592"/>
-<text text-anchor="middle" x="327" y="-6577.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_pl</text>
+<!-- proc~symba_fragmentation_casehitandrun -->
+<g id="call~~graph~~CallGraph_node167" class="node">
+<title>proc~symba_fragmentation_casehitandrun</title>
+<g id="a_call~~graph~~CallGraph_node167"><a xlink:href=".././proc/symba_fragmentation_casehitandrun.html" xlink:title="symba_fragmentation_casehitandrun">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1864.5,-4551 1674.5,-4551 1674.5,-4527 1864.5,-4527 1864.5,-4551"/>
+<text text-anchor="middle" x="1769.5" y="-4536.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casehitandrun</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_setup_pl&#45;&gt;proc~rmvs_setup_pl -->
-<g id="call~~graph~~CallGraph_edge156" class="edge">
-<title>interface~rmvs_setup_pl&#45;&gt;proc~rmvs_setup_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.24,-6580C176.54,-6580 234.31,-6580 275.65,-6580"/>
-<polygon fill="#000000" stroke="#000000" points="275.78,-6583.5 285.78,-6580 275.78,-6576.5 275.78,-6583.5"/>
-</g>
-<!-- interface~rmvs_setup_initialize_system -->
-<g id="call~~graph~~CallGraph_node164" class="node">
-<title>interface~rmvs_setup_initialize_system</title>
-<g id="a_call~~graph~~CallGraph_node164"><a xlink:href=".././interface/rmvs_setup_initialize_system.html" xlink:title="rmvs_setup_initialize_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="172.5,-4628 21.5,-4628 21.5,-4604 172.5,-4604 172.5,-4628"/>
-<text text-anchor="middle" x="97" y="-4613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_initialize_system</text>
-</a>
+<!-- proc~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="call~~graph~~CallGraph_edge134" class="edge">
+<title>proc~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M1864.63,-4526.9C1871.38,-4524.44 1877.92,-4521.5 1884,-4518 1905.3,-4505.73 1898.94,-4488.69 1920,-4476 1923,-4474.19 1926.13,-4472.54 1929.37,-4471.04"/>
+<polygon fill="#000000" stroke="#000000" points="1930.81,-4474.23 1938.69,-4467.15 1928.12,-4467.76 1930.81,-4474.23"/>
 </g>
+<!-- proc~symba_fragmentation_casehitandrun&#45;&gt;fragmentation_initialize -->
+<g id="call~~graph~~CallGraph_edge133" class="edge">
+<title>proc~symba_fragmentation_casehitandrun&#45;&gt;fragmentation_initialize</title>
+<path fill="none" stroke="#000000" d="M1839.99,-4526.96C1872.19,-4521.39 1910.4,-4514.77 1942.7,-4509.18"/>
+<polygon fill="#000000" stroke="#000000" points="1943.71,-4512.55 1952.96,-4507.4 1942.51,-4505.66 1943.71,-4512.55"/>
 </g>
-<!-- proc~rmvs_setup_initialize_system -->
-<g id="call~~graph~~CallGraph_node338" class="node">
-<title>proc~rmvs_setup_initialize_system</title>
-<g id="a_call~~graph~~CallGraph_node338"><a xlink:href=".././proc/rmvs_setup_initialize_system.html" xlink:title="rmvs_setup_initialize_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="402.5,-4628 251.5,-4628 251.5,-4604 402.5,-4604 402.5,-4628"/>
-<text text-anchor="middle" x="327" y="-4613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_initialize_system</text>
+<!-- proc~symba_fragmentation_casemerge -->
+<g id="call~~graph~~CallGraph_node168" class="node">
+<title>proc~symba_fragmentation_casemerge</title>
+<g id="a_call~~graph~~CallGraph_node168"><a xlink:href=".././proc/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1857,-4425 1682,-4425 1682,-4401 1857,-4401 1857,-4425"/>
+<text text-anchor="middle" x="1769.5" y="-4410.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_setup_initialize_system&#45;&gt;proc~rmvs_setup_initialize_system -->
-<g id="call~~graph~~CallGraph_edge157" class="edge">
-<title>interface~rmvs_setup_initialize_system&#45;&gt;proc~rmvs_setup_initialize_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M172.66,-4616C194.5,-4616 218.55,-4616 240.99,-4616"/>
-<polygon fill="#000000" stroke="#000000" points="241.18,-4619.5 251.18,-4616 241.18,-4612.5 241.18,-4619.5"/>
+<!-- proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="call~~graph~~CallGraph_edge135" class="edge">
+<title>proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M1839.99,-4425.04C1869.16,-4430.09 1903.26,-4435.99 1933.43,-4441.22"/>
+<polygon fill="#000000" stroke="#000000" points="1933.05,-4444.7 1943.5,-4442.96 1934.24,-4437.81 1933.05,-4444.7"/>
 </g>
-<!-- interface~rmvs_setup_tp -->
-<g id="call~~graph~~CallGraph_node166" class="node">
-<title>interface~rmvs_setup_tp</title>
-<g id="a_call~~graph~~CallGraph_node166"><a xlink:href=".././interface/rmvs_setup_tp.html" xlink:title="rmvs_setup_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="138.5,-5794 55.5,-5794 55.5,-5770 138.5,-5770 138.5,-5794"/>
-<text text-anchor="middle" x="97" y="-5779.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_tp</text>
+<!-- interface~whm_coord_h2j_pl -->
+<g id="call~~graph~~CallGraph_node169" class="node">
+<title>interface~whm_coord_h2j_pl</title>
+<g id="a_call~~graph~~CallGraph_node169"><a xlink:href=".././interface/whm_coord_h2j_pl.html" xlink:title="whm_coord_h2j_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="148.5,-4467 45.5,-4467 45.5,-4443 148.5,-4443 148.5,-4467"/>
+<text text-anchor="middle" x="97" y="-4452.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_h2j_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_setup_tp -->
-<g id="call~~graph~~CallGraph_node340" class="node">
-<title>proc~rmvs_setup_tp</title>
-<g id="a_call~~graph~~CallGraph_node340"><a xlink:href=".././proc/rmvs_setup_tp.html" xlink:title="rmvs_setup_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="368.5,-5794 285.5,-5794 285.5,-5770 368.5,-5770 368.5,-5794"/>
-<text text-anchor="middle" x="327" y="-5779.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_tp</text>
+<!-- proc~whm_coord_h2j_pl -->
+<g id="call~~graph~~CallGraph_node250" class="node">
+<title>proc~whm_coord_h2j_pl</title>
+<g id="a_call~~graph~~CallGraph_node250"><a xlink:href=".././proc/whm_coord_h2j_pl.html" xlink:title="whm_coord_h2j_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="378.5,-4467 275.5,-4467 275.5,-4443 378.5,-4443 378.5,-4467"/>
+<text text-anchor="middle" x="327" y="-4452.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_h2j_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_setup_tp&#45;&gt;proc~rmvs_setup_tp -->
-<g id="call~~graph~~CallGraph_edge158" class="edge">
-<title>interface~rmvs_setup_tp&#45;&gt;proc~rmvs_setup_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.76,-5782C176.9,-5782 234.01,-5782 275.12,-5782"/>
-<polygon fill="#000000" stroke="#000000" points="275.21,-5785.5 285.21,-5782 275.21,-5778.5 275.21,-5785.5"/>
+<!-- interface~whm_coord_h2j_pl&#45;&gt;proc~whm_coord_h2j_pl -->
+<g id="call~~graph~~CallGraph_edge136" class="edge">
+<title>interface~whm_coord_h2j_pl&#45;&gt;proc~whm_coord_h2j_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.6,-4455C183.02,-4455 228.74,-4455 265.14,-4455"/>
+<polygon fill="#000000" stroke="#000000" points="265.15,-4458.5 275.15,-4455 265.15,-4451.5 265.15,-4458.5"/>
 </g>
-<!-- interface~rmvs_util_append_pl -->
-<g id="call~~graph~~CallGraph_node167" class="node">
-<title>interface~rmvs_util_append_pl</title>
-<g id="a_call~~graph~~CallGraph_node167"><a xlink:href=".././interface/rmvs_util_append_pl.html" xlink:title="rmvs_util_append_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="618.5,-1663 506.5,-1663 506.5,-1639 618.5,-1639 618.5,-1663"/>
-<text text-anchor="middle" x="562.5" y="-1648.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_append_pl</text>
+<!-- interface~whm_coord_j2h_pl -->
+<g id="call~~graph~~CallGraph_node170" class="node">
+<title>interface~whm_coord_j2h_pl</title>
+<g id="a_call~~graph~~CallGraph_node170"><a xlink:href=".././interface/whm_coord_j2h_pl.html" xlink:title="whm_coord_j2h_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="148.5,-4509 45.5,-4509 45.5,-4485 148.5,-4485 148.5,-4509"/>
+<text text-anchor="middle" x="97" y="-4494.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_j2h_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_util_append_pl -->
-<g id="call~~graph~~CallGraph_node525" class="node">
-<title>proc~rmvs_util_append_pl</title>
-<g id="a_call~~graph~~CallGraph_node525"><a xlink:href=".././proc/rmvs_util_append_pl.html" xlink:title="rmvs_util_append_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="859.5,-1579 747.5,-1579 747.5,-1555 859.5,-1555 859.5,-1579"/>
-<text text-anchor="middle" x="803.5" y="-1564.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_append_pl</text>
+<!-- proc~whm_coord_j2h_pl -->
+<g id="call~~graph~~CallGraph_node284" class="node">
+<title>proc~whm_coord_j2h_pl</title>
+<g id="a_call~~graph~~CallGraph_node284"><a xlink:href=".././proc/whm_coord_j2h_pl.html" xlink:title="whm_coord_j2h_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="378.5,-4509 275.5,-4509 275.5,-4485 378.5,-4485 378.5,-4509"/>
+<text text-anchor="middle" x="327" y="-4494.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_j2h_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_util_append_pl&#45;&gt;proc~rmvs_util_append_pl -->
-<g id="call~~graph~~CallGraph_edge159" class="edge">
-<title>interface~rmvs_util_append_pl&#45;&gt;proc~rmvs_util_append_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M618.69,-1642.95C633.98,-1639.82 650.38,-1635.6 665,-1630 682.3,-1623.37 684.4,-1617.23 701,-1609 720.21,-1599.48 742.12,-1590.22 760.65,-1582.83"/>
-<polygon fill="#000000" stroke="#000000" points="761.98,-1586.07 770,-1579.15 759.42,-1579.56 761.98,-1586.07"/>
+<!-- interface~whm_coord_j2h_pl&#45;&gt;proc~whm_coord_j2h_pl -->
+<g id="call~~graph~~CallGraph_edge137" class="edge">
+<title>interface~whm_coord_j2h_pl&#45;&gt;proc~whm_coord_j2h_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.6,-4497C183.02,-4497 228.74,-4497 265.14,-4497"/>
+<polygon fill="#000000" stroke="#000000" points="265.15,-4500.5 275.15,-4497 265.15,-4493.5 265.15,-4500.5"/>
 </g>
-<!-- interface~rmvs_util_append_tp -->
-<g id="call~~graph~~CallGraph_node168" class="node">
-<title>interface~rmvs_util_append_tp</title>
-<g id="a_call~~graph~~CallGraph_node168"><a xlink:href=".././interface/rmvs_util_append_tp.html" xlink:title="rmvs_util_append_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="618.5,-1537 506.5,-1537 506.5,-1513 618.5,-1513 618.5,-1537"/>
-<text text-anchor="middle" x="562.5" y="-1522.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_append_tp</text>
+<!-- proc~io_read_encounter -->
+<g id="call~~graph~~CallGraph_node171" class="node">
+<title>proc~io_read_encounter</title>
+<g id="a_call~~graph~~CallGraph_node171"><a xlink:href=".././proc/io_read_encounter.html" xlink:title="io_read_encounter">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="607.5,-780 504.5,-780 504.5,-756 607.5,-756 607.5,-780"/>
+<text text-anchor="middle" x="556" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_encounter</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_util_append_tp -->
-<g id="call~~graph~~CallGraph_node263" class="node">
-<title>proc~rmvs_util_append_tp</title>
-<g id="a_call~~graph~~CallGraph_node263"><a xlink:href=".././proc/rmvs_util_append_tp.html" xlink:title="rmvs_util_append_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="859.5,-1537 747.5,-1537 747.5,-1513 859.5,-1513 859.5,-1537"/>
-<text text-anchor="middle" x="803.5" y="-1522.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_append_tp</text>
-</a>
-</g>
+<!-- proc~io_read_encounter&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge138" class="edge">
+<title>proc~io_read_encounter&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M607.91,-763.52C622.97,-760.47 638.92,-755.39 652,-747 709.94,-709.82 751.36,-636.44 769.21,-600.23"/>
+<polygon fill="#000000" stroke="#000000" points="772.44,-601.6 773.61,-591.07 766.13,-598.56 772.44,-601.6"/>
 </g>
-<!-- interface~rmvs_util_append_tp&#45;&gt;proc~rmvs_util_append_tp -->
-<g id="call~~graph~~CallGraph_edge160" class="edge">
-<title>interface~rmvs_util_append_tp&#45;&gt;proc~rmvs_util_append_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M618.63,-1525C653.91,-1525 699.87,-1525 737.01,-1525"/>
-<polygon fill="#000000" stroke="#000000" points="737.23,-1528.5 747.23,-1525 737.23,-1521.5 737.23,-1528.5"/>
+<!-- proc~drift_kepu_lag -->
+<g id="call~~graph~~CallGraph_node172" class="node">
+<title>proc~drift_kepu_lag</title>
+<g id="a_call~~graph~~CallGraph_node172"><a xlink:href=".././proc/drift_kepu_lag.html" xlink:title="drift_kepu_lag">
+<polygon fill="#d9534f" stroke="#d9534f" points="1050.5,-2046 970.5,-2046 970.5,-2022 1050.5,-2022 1050.5,-2046"/>
+<text text-anchor="middle" x="1010.5" y="-2031.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_lag</text>
+</a>
 </g>
-<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric -->
-<g id="call~~graph~~CallGraph_edge162" class="edge">
-<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric</title>
-<path fill="none" stroke="#000000" d="M841.54,-1633.1C876.72,-1636.04 930.77,-1640.56 975.74,-1644.33"/>
-<polygon fill="#000000" stroke="#000000" points="975.52,-1647.82 985.78,-1645.17 976.1,-1640.85 975.52,-1647.82"/>
 </g>
-<!-- proc~rmvs_peri_tp -->
-<g id="call~~graph~~CallGraph_node191" class="node">
-<title>proc~rmvs_peri_tp</title>
-<g id="a_call~~graph~~CallGraph_node191"><a xlink:href=".././proc/rmvs_peri_tp.html" xlink:title="rmvs_peri_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="1094,-1621 1019,-1621 1019,-1597 1094,-1597 1094,-1621"/>
-<text text-anchor="middle" x="1056.5" y="-1606.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_peri_tp</text>
+<!-- proc~drift_kepu_stumpff -->
+<g id="call~~graph~~CallGraph_node323" class="node">
+<title>proc~drift_kepu_stumpff</title>
+<g id="a_call~~graph~~CallGraph_node323"><a xlink:href=".././proc/drift_kepu_stumpff.html" xlink:title="drift_kepu_stumpff">
+<polygon fill="#d9534f" stroke="#d9534f" points="1302,-2088 1201,-2088 1201,-2064 1302,-2064 1302,-2088"/>
+<text text-anchor="middle" x="1251.5" y="-2073.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_stumpff</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp -->
-<g id="call~~graph~~CallGraph_edge161" class="edge">
-<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp</title>
-<path fill="none" stroke="#000000" d="M841.54,-1626.9C885.87,-1623.19 960.19,-1616.97 1008.52,-1612.93"/>
-<polygon fill="#000000" stroke="#000000" points="1009.05,-1616.4 1018.72,-1612.08 1008.46,-1609.42 1009.05,-1616.4"/>
+<!-- proc~drift_kepu_lag&#45;&gt;proc~drift_kepu_stumpff -->
+<g id="call~~graph~~CallGraph_edge139" class="edge">
+<title>proc~drift_kepu_lag&#45;&gt;proc~drift_kepu_stumpff</title>
+<path fill="none" stroke="#000000" d="M1050.7,-2040.89C1088.78,-2047.58 1147.13,-2057.83 1190.95,-2065.54"/>
+<polygon fill="#000000" stroke="#000000" points="1190.46,-2069 1200.91,-2067.29 1191.67,-2062.11 1190.46,-2069"/>
 </g>
-<!-- proc~rmvs_end_planetocentric -->
-<g id="call~~graph~~CallGraph_node218" class="node">
-<title>proc~rmvs_end_planetocentric</title>
-<g id="a_call~~graph~~CallGraph_node218"><a xlink:href=".././proc/rmvs_end_planetocentric.html" xlink:title="rmvs_end_planetocentric">
-<polygon fill="#d9534f" stroke="#d9534f" points="1123,-1705 990,-1705 990,-1681 1123,-1681 1123,-1705"/>
-<text text-anchor="middle" x="1056.5" y="-1690.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_end_planetocentric</text>
+<!-- proc~rmvs_make_planetocentric -->
+<g id="call~~graph~~CallGraph_node173" class="node">
+<title>proc~rmvs_make_planetocentric</title>
+<g id="a_call~~graph~~CallGraph_node173"><a xlink:href=".././proc/rmvs_make_planetocentric.html" xlink:title="rmvs_make_planetocentric">
+<polygon fill="#d9534f" stroke="#d9534f" points="1575,-5425 1434,-5425 1434,-5401 1575,-5401 1575,-5425"/>
+<text text-anchor="middle" x="1504.5" y="-5410.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_make_planetocentric</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric -->
-<g id="call~~graph~~CallGraph_edge163" class="edge">
-<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric</title>
-<path fill="none" stroke="#000000" d="M840.09,-1642.09C867.67,-1651.16 906.96,-1663.44 942,-1672 954.13,-1674.97 967.09,-1677.73 979.75,-1680.22"/>
-<polygon fill="#000000" stroke="#000000" points="979.33,-1683.7 989.81,-1682.16 980.65,-1676.83 979.33,-1683.7"/>
-</g>
-<!-- proc~util_coord_b2h_tp -->
-<g id="call~~graph~~CallGraph_node170" class="node">
-<title>proc~util_coord_b2h_tp</title>
-<g id="a_call~~graph~~CallGraph_node170"><a xlink:href=".././proc/util_coord_b2h_tp.html" xlink:title="util_coord_b2h_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="376,-6382 278,-6382 278,-6358 376,-6358 376,-6382"/>
-<text text-anchor="middle" x="327" y="-6367.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_b2h_tp</text>
+<!-- proc~io_read_hdr -->
+<g id="call~~graph~~CallGraph_node194" class="node">
+<title>proc~io_read_hdr</title>
+<g id="a_call~~graph~~CallGraph_node194"><a xlink:href=".././proc/io_read_hdr.html" xlink:title="io_read_hdr">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="591,-1500 521,-1500 521,-1476 591,-1476 591,-1500"/>
+<text text-anchor="middle" x="556" y="-1485.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_hdr</text>
 </a>
 </g>
 </g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;status -->
-<g id="call~~graph~~CallGraph_edge168" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;status</title>
-<path fill="none" stroke="#000000" d="M349.28,-6382.14C374.83,-6396.24 419.33,-6419.31 460,-6433 481.11,-6440.1 505.53,-6445.25 525.12,-6448.67"/>
-<polygon fill="#000000" stroke="#000000" points="524.74,-6452.15 535.18,-6450.34 525.89,-6445.24 524.74,-6452.15"/>
-</g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;vh -->
-<g id="call~~graph~~CallGraph_edge169" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;vh</title>
-<path fill="none" stroke="#000000" d="M376.16,-6369.35C393.15,-6366.78 411.19,-6361.03 424,-6349 466.46,-6309.13 417.32,-6262.62 460,-6223 477.34,-6206.9 503.64,-6201.8 525.13,-6200.65"/>
-<polygon fill="#000000" stroke="#000000" points="525.33,-6204.14 535.23,-6200.37 525.13,-6197.15 525.33,-6204.14"/>
+<!-- proc~io_read_frame_system&#45;&gt;proc~io_read_hdr -->
+<g id="call~~graph~~CallGraph_edge140" class="edge">
+<title>proc~io_read_frame_system&#45;&gt;proc~io_read_hdr</title>
+<path fill="none" stroke="#000000" d="M388.24,-1488C426.68,-1488 475.68,-1488 510.59,-1488"/>
+<polygon fill="#000000" stroke="#000000" points="510.95,-1491.5 520.95,-1488 510.95,-1484.5 510.95,-1491.5"/>
 </g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;xbcb -->
-<g id="call~~graph~~CallGraph_edge167" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;xbcb</title>
-<path fill="none" stroke="#000000" d="M376.17,-6365.68C392.22,-6362.67 409.65,-6357.58 424,-6349 445.1,-6336.39 438.83,-6319.49 460,-6307 479.66,-6295.4 504.77,-6290.14 525.09,-6287.78"/>
-<polygon fill="#000000" stroke="#000000" points="525.61,-6291.25 535.23,-6286.8 524.94,-6284.28 525.61,-6291.25"/>
+<!-- proc~util_sort_index_sp -->
+<g id="call~~graph~~CallGraph_node175" class="node">
+<title>proc~util_sort_index_sp</title>
+<g id="a_call~~graph~~CallGraph_node175"><a xlink:href=".././proc/util_sort_index_sp.html" xlink:title="util_sort_index_sp">
+<polygon fill="#d9534f" stroke="#d9534f" points="146.5,-7544 47.5,-7544 47.5,-7520 146.5,-7520 146.5,-7544"/>
+<text text-anchor="middle" x="97" y="-7529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_index_sp</text>
+</a>
 </g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;vb -->
-<g id="call~~graph~~CallGraph_edge170" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;vb</title>
-<path fill="none" stroke="#000000" d="M376.1,-6378.65C420.43,-6386.63 485.26,-6398.29 525.34,-6405.49"/>
-<polygon fill="#000000" stroke="#000000" points="524.75,-6408.95 535.21,-6407.27 525.99,-6402.06 524.75,-6408.95"/>
 </g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;xb -->
-<g id="call~~graph~~CallGraph_edge166" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;xb</title>
-<path fill="none" stroke="#000000" d="M376.1,-6370C420.34,-6370 484.98,-6370 525.08,-6370"/>
-<polygon fill="#000000" stroke="#000000" points="525.21,-6373.5 535.21,-6370 525.21,-6366.5 525.21,-6373.5"/>
+<!-- proc~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el -->
+<g id="call~~graph~~CallGraph_edge141" class="edge">
+<title>proc~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el</title>
+<path fill="none" stroke="#000000" d="M372.04,-2614C412.51,-2614 472.14,-2614 512.22,-2614"/>
+<polygon fill="#000000" stroke="#000000" points="512.47,-2617.5 522.47,-2614 512.47,-2610.5 512.47,-2617.5"/>
 </g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;xh -->
-<g id="call~~graph~~CallGraph_edge165" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;xh</title>
-<path fill="none" stroke="#000000" d="M376.35,-6368.3C392.97,-6365.56 410.72,-6359.98 424,-6349 455.31,-6323.13 428.54,-6290.7 460,-6265 478.12,-6250.2 504.02,-6245.01 525.12,-6243.5"/>
-<polygon fill="#000000" stroke="#000000" points="525.52,-6246.98 535.34,-6243.01 525.19,-6239.99 525.52,-6246.98"/>
+<!-- proc~util_spill_arr_char_string -->
+<g id="call~~graph~~CallGraph_node177" class="node">
+<title>proc~util_spill_arr_char_string</title>
+<g id="a_call~~graph~~CallGraph_node177"><a xlink:href=".././proc/util_spill_arr_char_string.html" xlink:title="util_spill_arr_char_string">
+<polygon fill="#d9534f" stroke="#d9534f" points="161.5,-7586 32.5,-7586 32.5,-7562 161.5,-7562 161.5,-7586"/>
+<text text-anchor="middle" x="97" y="-7571.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_char_string</text>
+</a>
 </g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;vbcb -->
-<g id="call~~graph~~CallGraph_edge164" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;vbcb</title>
-<path fill="none" stroke="#000000" d="M376.1,-6361.35C420.43,-6353.37 485.26,-6341.71 525.34,-6334.51"/>
-<polygon fill="#000000" stroke="#000000" points="525.99,-6337.94 535.21,-6332.73 524.75,-6331.05 525.99,-6337.94"/>
 </g>
-<!-- interface~rmvs_util_fill_pl -->
-<g id="call~~graph~~CallGraph_node171" class="node">
-<title>interface~rmvs_util_fill_pl</title>
-<g id="a_call~~graph~~CallGraph_node171"><a xlink:href=".././interface/rmvs_util_fill_pl.html" xlink:title="rmvs_util_fill_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="605,-1129 520,-1129 520,-1105 605,-1105 605,-1129"/>
-<text text-anchor="middle" x="562.5" y="-1114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_fill_pl</text>
+<!-- proc~orbel_fhybrid -->
+<g id="call~~graph~~CallGraph_node178" class="node">
+<title>proc~orbel_fhybrid</title>
+<g id="a_call~~graph~~CallGraph_node178"><a xlink:href=".././proc/orbel_fhybrid.html" xlink:title="orbel_fhybrid">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="817.5,-2399 742.5,-2399 742.5,-2375 817.5,-2375 817.5,-2399"/>
+<text text-anchor="middle" x="780" y="-2384.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fhybrid</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_util_fill_pl -->
-<g id="call~~graph~~CallGraph_node266" class="node">
-<title>proc~rmvs_util_fill_pl</title>
-<g id="a_call~~graph~~CallGraph_node266"><a xlink:href=".././proc/rmvs_util_fill_pl.html" xlink:title="rmvs_util_fill_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="846,-1129 761,-1129 761,-1105 846,-1105 846,-1129"/>
-<text text-anchor="middle" x="803.5" y="-1114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_fill_pl</text>
+<!-- proc~orbel_fget -->
+<g id="call~~graph~~CallGraph_node209" class="node">
+<title>proc~orbel_fget</title>
+<g id="a_call~~graph~~CallGraph_node209"><a xlink:href=".././proc/orbel_fget.html" xlink:title="orbel_fget">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1041,-2420 980,-2420 980,-2396 1041,-2396 1041,-2420"/>
+<text text-anchor="middle" x="1010.5" y="-2405.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fget</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_util_fill_pl&#45;&gt;proc~rmvs_util_fill_pl -->
-<g id="call~~graph~~CallGraph_edge171" class="edge">
-<title>interface~rmvs_util_fill_pl&#45;&gt;proc~rmvs_util_fill_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.13,-1117C645.62,-1117 707.23,-1117 750.83,-1117"/>
-<polygon fill="#000000" stroke="#000000" points="750.95,-1120.5 760.95,-1117 750.95,-1113.5 750.95,-1120.5"/>
+<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_fget -->
+<g id="call~~graph~~CallGraph_edge143" class="edge">
+<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_fget</title>
+<path fill="none" stroke="#000000" d="M817.71,-2390.37C859.32,-2394.2 926.9,-2400.41 969.73,-2404.35"/>
+<polygon fill="#000000" stroke="#000000" points="969.52,-2407.84 979.79,-2405.27 970.16,-2400.87 969.52,-2407.84"/>
 </g>
-<!-- interface~rmvs_util_fill_tp -->
-<g id="call~~graph~~CallGraph_node172" class="node">
-<title>interface~rmvs_util_fill_tp</title>
-<g id="a_call~~graph~~CallGraph_node172"><a xlink:href=".././interface/rmvs_util_fill_tp.html" xlink:title="rmvs_util_fill_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="605.5,-1045 519.5,-1045 519.5,-1021 605.5,-1021 605.5,-1045"/>
-<text text-anchor="middle" x="562.5" y="-1030.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_fill_tp</text>
+<!-- proc~orbel_flon -->
+<g id="call~~graph~~CallGraph_node213" class="node">
+<title>proc~orbel_flon</title>
+<g id="a_call~~graph~~CallGraph_node213"><a xlink:href=".././proc/orbel_flon.html" xlink:title="orbel_flon">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1040.5,-2378 980.5,-2378 980.5,-2354 1040.5,-2354 1040.5,-2378"/>
+<text text-anchor="middle" x="1010.5" y="-2363.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_flon</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_util_fill_tp -->
-<g id="call~~graph~~CallGraph_node268" class="node">
-<title>proc~rmvs_util_fill_tp</title>
-<g id="a_call~~graph~~CallGraph_node268"><a xlink:href=".././proc/rmvs_util_fill_tp.html" xlink:title="rmvs_util_fill_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="846.5,-1045 760.5,-1045 760.5,-1021 846.5,-1021 846.5,-1045"/>
-<text text-anchor="middle" x="803.5" y="-1030.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_fill_tp</text>
+<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_flon -->
+<g id="call~~graph~~CallGraph_edge142" class="edge">
+<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_flon</title>
+<path fill="none" stroke="#000000" d="M817.71,-2383.63C859.55,-2379.78 927.66,-2373.52 970.45,-2369.59"/>
+<polygon fill="#000000" stroke="#000000" points="970.85,-2373.07 980.49,-2368.67 970.21,-2366.1 970.85,-2373.07"/>
+</g>
+<!-- proc~orbel_ehybrid -->
+<g id="call~~graph~~CallGraph_node179" class="node">
+<title>proc~orbel_ehybrid</title>
+<g id="a_call~~graph~~CallGraph_node179"><a xlink:href=".././proc/orbel_ehybrid.html" xlink:title="orbel_ehybrid">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="819,-2277 741,-2277 741,-2253 819,-2253 819,-2277"/>
+<text text-anchor="middle" x="780" y="-2262.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehybrid</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_util_fill_tp&#45;&gt;proc~rmvs_util_fill_tp -->
-<g id="call~~graph~~CallGraph_edge172" class="edge">
-<title>interface~rmvs_util_fill_tp&#45;&gt;proc~rmvs_util_fill_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.68,-1033C646,-1033 706.9,-1033 750.27,-1033"/>
-<polygon fill="#000000" stroke="#000000" points="750.34,-1036.5 760.34,-1033 750.34,-1029.5 750.34,-1036.5"/>
+<!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd -->
+<g id="call~~graph~~CallGraph_edge144" class="edge">
+<title>proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd</title>
+<path fill="none" stroke="#000000" d="M819.25,-2261.49C858.45,-2257.88 919.5,-2252.27 961.82,-2248.38"/>
+<polygon fill="#000000" stroke="#000000" points="962.25,-2251.86 971.89,-2247.46 961.61,-2244.89 962.25,-2251.86"/>
 </g>
-<!-- interface~symba_util_append_merger -->
-<g id="call~~graph~~CallGraph_node173" class="node">
-<title>interface~symba_util_append_merger</title>
-<g id="a_call~~graph~~CallGraph_node173"><a xlink:href=".././interface/symba_util_append_merger.html" xlink:title="symba_util_append_merger">
-<polygon fill="#a7506f" stroke="#a7506f" points="170,-1373 24,-1373 24,-1349 170,-1349 170,-1373"/>
-<text text-anchor="middle" x="97" y="-1358.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_merger</text>
+<!-- proc~orbel_ehie -->
+<g id="call~~graph~~CallGraph_node212" class="node">
+<title>proc~orbel_ehie</title>
+<g id="a_call~~graph~~CallGraph_node212"><a xlink:href=".././proc/orbel_ehie.html" xlink:title="orbel_ehie">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1042,-2214 979,-2214 979,-2190 1042,-2190 1042,-2214"/>
+<text text-anchor="middle" x="1010.5" y="-2199.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehie</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_append_merger -->
-<g id="call~~graph~~CallGraph_node202" class="node">
-<title>proc~symba_util_append_merger</title>
-<g id="a_call~~graph~~CallGraph_node202"><a xlink:href=".././proc/symba_util_append_merger.html" xlink:title="symba_util_append_merger">
-<polygon fill="#d9534f" stroke="#d9534f" points="400,-1373 254,-1373 254,-1349 400,-1349 400,-1373"/>
-<text text-anchor="middle" x="327" y="-1358.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_merger</text>
+<!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie -->
+<g id="call~~graph~~CallGraph_edge145" class="edge">
+<title>proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie</title>
+<path fill="none" stroke="#000000" d="M813.84,-2252.98C839.3,-2243.94 875.59,-2231.68 908,-2223 927.8,-2217.7 950.07,-2212.96 968.7,-2209.33"/>
+<polygon fill="#000000" stroke="#000000" points="969.47,-2212.74 978.64,-2207.43 968.16,-2205.87 969.47,-2212.74"/>
+</g>
+<!-- proc~orbel_eget -->
+<g id="call~~graph~~CallGraph_node216" class="node">
+<title>proc~orbel_eget</title>
+<g id="a_call~~graph~~CallGraph_node216"><a xlink:href=".././proc/orbel_eget.html" xlink:title="orbel_eget">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1042.5,-2298 978.5,-2298 978.5,-2274 1042.5,-2274 1042.5,-2298"/>
+<text text-anchor="middle" x="1010.5" y="-2283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_eget</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_append_merger&#45;&gt;proc~symba_util_append_merger -->
-<g id="call~~graph~~CallGraph_edge173" class="edge">
-<title>interface~symba_util_append_merger&#45;&gt;proc~symba_util_append_merger</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.14,-1361C193.54,-1361 219.68,-1361 243.76,-1361"/>
-<polygon fill="#000000" stroke="#000000" points="243.94,-1364.5 253.94,-1361 243.94,-1357.5 243.94,-1364.5"/>
+<!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_eget -->
+<g id="call~~graph~~CallGraph_edge146" class="edge">
+<title>proc~orbel_ehybrid&#45;&gt;proc~orbel_eget</title>
+<path fill="none" stroke="#000000" d="M819.25,-2268.51C860.56,-2272.31 926.14,-2278.34 968.5,-2282.23"/>
+<polygon fill="#000000" stroke="#000000" points="968.2,-2285.72 978.48,-2283.15 968.84,-2278.75 968.2,-2285.72"/>
 </g>
-<!-- interface~rmvs_util_resize_pl -->
-<g id="call~~graph~~CallGraph_node174" class="node">
-<title>interface~rmvs_util_resize_pl</title>
-<g id="a_call~~graph~~CallGraph_node174"><a xlink:href=".././interface/rmvs_util_resize_pl.html" xlink:title="rmvs_util_resize_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="614.5,-5405 510.5,-5405 510.5,-5381 614.5,-5381 614.5,-5405"/>
-<text text-anchor="middle" x="562.5" y="-5390.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_resize_pl</text>
+<!-- proc~rmvs_peri_tp -->
+<g id="call~~graph~~CallGraph_node181" class="node">
+<title>proc~rmvs_peri_tp</title>
+<g id="a_call~~graph~~CallGraph_node181"><a xlink:href=".././proc/rmvs_peri_tp.html" xlink:title="rmvs_peri_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="1542,-5383 1467,-5383 1467,-5359 1542,-5359 1542,-5383"/>
+<text text-anchor="middle" x="1504.5" y="-5368.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_peri_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_util_resize_pl -->
-<g id="call~~graph~~CallGraph_node406" class="node">
-<title>proc~rmvs_util_resize_pl</title>
-<g id="a_call~~graph~~CallGraph_node406"><a xlink:href=".././proc/rmvs_util_resize_pl.html" xlink:title="rmvs_util_resize_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="855.5,-5405 751.5,-5405 751.5,-5381 855.5,-5381 855.5,-5405"/>
-<text text-anchor="middle" x="803.5" y="-5390.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_resize_pl</text>
-</a>
+<!-- vpc -->
+<g id="call~~graph~~CallGraph_node564" class="node">
+<title>vpc</title>
+<polygon fill="#777777" stroke="#777777" points="1796.5,-5404 1742.5,-5404 1742.5,-5380 1796.5,-5380 1796.5,-5404"/>
+<text text-anchor="middle" x="1769.5" y="-5389.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vpc</text>
 </g>
+<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
+<g id="call~~graph~~CallGraph_edge147" class="edge">
+<title>proc~rmvs_peri_tp&#45;&gt;vpc</title>
+<path fill="none" stroke="#000000" d="M1542.07,-5373.92C1592.27,-5377.93 1682.01,-5385.09 1732.11,-5389.09"/>
+<polygon fill="#000000" stroke="#000000" points="1731.93,-5392.59 1742.18,-5389.9 1732.49,-5385.61 1731.93,-5392.59"/>
 </g>
-<!-- interface~rmvs_util_resize_pl&#45;&gt;proc~rmvs_util_resize_pl -->
-<g id="call~~graph~~CallGraph_edge174" class="edge">
-<title>interface~rmvs_util_resize_pl&#45;&gt;proc~rmvs_util_resize_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.77,-5393C651.79,-5393 701.94,-5393 741.1,-5393"/>
-<polygon fill="#000000" stroke="#000000" points="741.31,-5396.5 751.31,-5393 741.31,-5389.5 741.31,-5396.5"/>
+<!-- xpc -->
+<g id="call~~graph~~CallGraph_node622" class="node">
+<title>xpc</title>
+<polygon fill="#777777" stroke="#777777" points="1796.5,-5362 1742.5,-5362 1742.5,-5338 1796.5,-5338 1796.5,-5362"/>
+<text text-anchor="middle" x="1769.5" y="-5347.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xpc</text>
 </g>
-<!-- interface~symba_util_append_pl -->
-<g id="call~~graph~~CallGraph_node175" class="node">
-<title>interface~symba_util_append_pl</title>
-<g id="a_call~~graph~~CallGraph_node175"><a xlink:href=".././interface/symba_util_append_pl.html" xlink:title="symba_util_append_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="622.5,-1373 502.5,-1373 502.5,-1349 622.5,-1349 622.5,-1373"/>
-<text text-anchor="middle" x="562.5" y="-1358.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_pl</text>
-</a>
+<!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
+<g id="call~~graph~~CallGraph_edge148" class="edge">
+<title>proc~rmvs_peri_tp&#45;&gt;xpc</title>
+<path fill="none" stroke="#000000" d="M1542.07,-5368.08C1592.27,-5364.07 1682.01,-5356.91 1732.11,-5352.91"/>
+<polygon fill="#000000" stroke="#000000" points="1732.49,-5356.39 1742.18,-5352.1 1731.93,-5349.41 1732.49,-5356.39"/>
 </g>
+<!-- proc~io_read_frame_body&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge149" class="edge">
+<title>proc~io_read_frame_body&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M612.15,-719.28C625.72,-716.17 639.84,-711.63 652,-705 700.47,-678.55 742.86,-628.08 764.24,-599.7"/>
+<polygon fill="#000000" stroke="#000000" points="767.31,-601.45 770.43,-591.32 761.68,-597.29 767.31,-601.45"/>
 </g>
-<!-- proc~symba_util_append_pl -->
-<g id="call~~graph~~CallGraph_node196" class="node">
-<title>proc~symba_util_append_pl</title>
-<g id="a_call~~graph~~CallGraph_node196"><a xlink:href=".././proc/symba_util_append_pl.html" xlink:title="symba_util_append_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="863.5,-1373 743.5,-1373 743.5,-1349 863.5,-1349 863.5,-1373"/>
-<text text-anchor="middle" x="803.5" y="-1358.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_pl</text>
+<!-- proc~drift_kepu_guess -->
+<g id="call~~graph~~CallGraph_node183" class="node">
+<title>proc~drift_kepu_guess</title>
+<g id="a_call~~graph~~CallGraph_node183"><a xlink:href=".././proc/drift_kepu_guess.html" xlink:title="drift_kepu_guess">
+<polygon fill="#d9534f" stroke="#d9534f" points="1057.5,-2172 963.5,-2172 963.5,-2148 1057.5,-2148 1057.5,-2172"/>
+<text text-anchor="middle" x="1010.5" y="-2157.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_guess</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_append_pl&#45;&gt;proc~symba_util_append_pl -->
-<g id="call~~graph~~CallGraph_edge175" class="edge">
-<title>interface~symba_util_append_pl&#45;&gt;proc~symba_util_append_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.58,-1361C656.04,-1361 698.09,-1361 733.12,-1361"/>
-<polygon fill="#000000" stroke="#000000" points="733.27,-1364.5 743.27,-1361 733.27,-1357.5 733.27,-1364.5"/>
+<!-- proc~drift_kepu_guess&#45;&gt;interface~orbel_scget -->
+<g id="call~~graph~~CallGraph_edge150" class="edge">
+<title>proc~drift_kepu_guess&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M1057.55,-2167.25C1075.13,-2170.61 1095.22,-2175.17 1113,-2181 1150.72,-2193.37 1191.84,-2213.1 1219.19,-2227.18"/>
+<polygon fill="#000000" stroke="#000000" points="1217.78,-2230.39 1228.26,-2231.91 1221.01,-2224.18 1217.78,-2230.39"/>
 </g>
-<!-- proc~util_version -->
-<g id="call~~graph~~CallGraph_node176" class="node">
-<title>proc~util_version</title>
-<g id="a_call~~graph~~CallGraph_node176"><a xlink:href=".././proc/util_version.html" xlink:title="util_version">
-<polygon fill="#d9534f" stroke="#d9534f" points="1355,-3028 1288,-3028 1288,-3004 1355,-3004 1355,-3028"/>
-<text text-anchor="middle" x="1321.5" y="-3013.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version</text>
+<!-- proc~drift_kepu_p3solve -->
+<g id="call~~graph~~CallGraph_node198" class="node">
+<title>proc~drift_kepu_p3solve</title>
+<g id="a_call~~graph~~CallGraph_node198"><a xlink:href=".././proc/drift_kepu_p3solve.html" xlink:title="drift_kepu_p3solve">
+<polygon fill="#d9534f" stroke="#d9534f" points="1303,-2172 1200,-2172 1200,-2148 1303,-2148 1303,-2172"/>
+<text text-anchor="middle" x="1251.5" y="-2157.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_p3solve</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_util_resize_tp -->
-<g id="call~~graph~~CallGraph_node177" class="node">
-<title>interface~rmvs_util_resize_tp</title>
-<g id="a_call~~graph~~CallGraph_node177"><a xlink:href=".././interface/rmvs_util_resize_tp.html" xlink:title="rmvs_util_resize_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="615,-5447 510,-5447 510,-5423 615,-5423 615,-5447"/>
-<text text-anchor="middle" x="562.5" y="-5432.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_resize_tp</text>
+<!-- proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve -->
+<g id="call~~graph~~CallGraph_edge151" class="edge">
+<title>proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve</title>
+<path fill="none" stroke="#000000" d="M1057.58,-2160C1095.1,-2160 1148.37,-2160 1189.44,-2160"/>
+<polygon fill="#000000" stroke="#000000" points="1189.59,-2163.5 1199.59,-2160 1189.59,-2156.5 1189.59,-2163.5"/>
+</g>
+<!-- proc~util_spill_arr_logical -->
+<g id="call~~graph~~CallGraph_node184" class="node">
+<title>proc~util_spill_arr_logical</title>
+<g id="a_call~~graph~~CallGraph_node184"><a xlink:href=".././proc/util_spill_arr_logical.html" xlink:title="util_spill_arr_logical">
+<polygon fill="#d9534f" stroke="#d9534f" points="150,-7628 44,-7628 44,-7604 150,-7604 150,-7628"/>
+<text text-anchor="middle" x="97" y="-7613.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_logical</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_util_resize_tp -->
-<g id="call~~graph~~CallGraph_node275" class="node">
-<title>proc~rmvs_util_resize_tp</title>
-<g id="a_call~~graph~~CallGraph_node275"><a xlink:href=".././proc/rmvs_util_resize_tp.html" xlink:title="rmvs_util_resize_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="856,-5447 751,-5447 751,-5423 856,-5423 856,-5447"/>
-<text text-anchor="middle" x="803.5" y="-5432.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_resize_tp</text>
+<!-- proc~util_spill_arr_dp -->
+<g id="call~~graph~~CallGraph_node185" class="node">
+<title>proc~util_spill_arr_dp</title>
+<g id="a_call~~graph~~CallGraph_node185"><a xlink:href=".././proc/util_spill_arr_dp.html" xlink:title="util_spill_arr_DP">
+<polygon fill="#d9534f" stroke="#d9534f" points="142,-7670 52,-7670 52,-7646 142,-7646 142,-7670"/>
+<text text-anchor="middle" x="97" y="-7655.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_DP</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_util_resize_tp&#45;&gt;proc~rmvs_util_resize_tp -->
-<g id="call~~graph~~CallGraph_edge176" class="edge">
-<title>interface~rmvs_util_resize_tp&#45;&gt;proc~rmvs_util_resize_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M615.07,-5435C651.85,-5435 701.49,-5435 740.44,-5435"/>
-<polygon fill="#000000" stroke="#000000" points="740.62,-5438.5 750.62,-5435 740.62,-5431.5 740.62,-5438.5"/>
+<!-- proc~io_read_frame_cb&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge152" class="edge">
+<title>proc~io_read_frame_cb&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M606.4,-676.65C621.4,-673.48 637.69,-669.07 652,-663 691.62,-646.2 732.21,-616.8 756.52,-597.61"/>
+<polygon fill="#000000" stroke="#000000" points="758.79,-600.28 764.4,-591.29 754.41,-594.81 758.79,-600.28"/>
 </g>
-<!-- interface~symba_util_append_tp -->
-<g id="call~~graph~~CallGraph_node178" class="node">
-<title>interface~symba_util_append_tp</title>
-<g id="a_call~~graph~~CallGraph_node178"><a xlink:href=".././interface/symba_util_append_tp.html" xlink:title="symba_util_append_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="623,-1415 502,-1415 502,-1391 623,-1391 623,-1415"/>
-<text text-anchor="middle" x="562.5" y="-1400.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_tp</text>
+<!-- proc~util_spill_arr_dpvec -->
+<g id="call~~graph~~CallGraph_node187" class="node">
+<title>proc~util_spill_arr_dpvec</title>
+<g id="a_call~~graph~~CallGraph_node187"><a xlink:href=".././proc/util_spill_arr_dpvec.html" xlink:title="util_spill_arr_DPvec">
+<polygon fill="#d9534f" stroke="#d9534f" points="150,-7712 44,-7712 44,-7688 150,-7688 150,-7712"/>
+<text text-anchor="middle" x="97" y="-7697.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_DPvec</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_append_tp -->
-<g id="call~~graph~~CallGraph_node194" class="node">
-<title>proc~symba_util_append_tp</title>
-<g id="a_call~~graph~~CallGraph_node194"><a xlink:href=".././proc/symba_util_append_tp.html" xlink:title="symba_util_append_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="864,-1415 743,-1415 743,-1391 864,-1391 864,-1415"/>
-<text text-anchor="middle" x="803.5" y="-1400.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_tp</text>
+<!-- proc~util_spill_arr_i4b -->
+<g id="call~~graph~~CallGraph_node188" class="node">
+<title>proc~util_spill_arr_i4b</title>
+<g id="a_call~~graph~~CallGraph_node188"><a xlink:href=".././proc/util_spill_arr_i4b.html" xlink:title="util_spill_arr_I4B">
+<polygon fill="#d9534f" stroke="#d9534f" points="142.5,-7754 51.5,-7754 51.5,-7730 142.5,-7730 142.5,-7754"/>
+<text text-anchor="middle" x="97" y="-7739.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_I4B</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_append_tp&#45;&gt;proc~symba_util_append_tp -->
-<g id="call~~graph~~CallGraph_edge177" class="edge">
-<title>interface~symba_util_append_tp&#45;&gt;proc~symba_util_append_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M623.19,-1403C656.42,-1403 697.95,-1403 732.67,-1403"/>
-<polygon fill="#000000" stroke="#000000" points="732.74,-1406.5 742.74,-1403 732.74,-1399.5 732.74,-1406.5"/>
+<!-- proc~util_spill_pl&#45;&gt;interface~util_spill_body -->
+<g id="call~~graph~~CallGraph_edge154" class="edge">
+<title>proc~util_spill_pl&#45;&gt;interface~util_spill_body</title>
+<path fill="none" stroke="#000000" d="M359.09,-1423.03C397.05,-1418.18 461.7,-1409.92 506.29,-1404.22"/>
+<polygon fill="#000000" stroke="#000000" points="506.85,-1407.68 516.32,-1402.94 505.96,-1400.74 506.85,-1407.68"/>
 </g>
-<!-- interface~rmvs_util_sort_pl -->
-<g id="call~~graph~~CallGraph_node179" class="node">
-<title>interface~rmvs_util_sort_pl</title>
-<g id="a_call~~graph~~CallGraph_node179"><a xlink:href=".././interface/rmvs_util_sort_pl.html" xlink:title="rmvs_util_sort_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="144,-6634 50,-6634 50,-6610 144,-6610 144,-6634"/>
-<text text-anchor="middle" x="97" y="-6619.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_pl</text>
+<!-- proc~util_spill_pl&#45;&gt;interface~util_spill~2 -->
+<g id="call~~graph~~CallGraph_edge153" class="edge">
+<title>proc~util_spill_pl&#45;&gt;interface~util_spill~2</title>
+<path fill="none" stroke="#000000" d="M359.23,-1429.59C442.95,-1435.86 679.07,-1449.26 872,-1419 907.47,-1413.44 946.49,-1400.87 973.87,-1390.92"/>
+<polygon fill="#000000" stroke="#000000" points="975.24,-1394.14 983.4,-1387.39 972.81,-1387.58 975.24,-1394.14"/>
+</g>
+<!-- proc~drift_kepu_new -->
+<g id="call~~graph~~CallGraph_node190" class="node">
+<title>proc~drift_kepu_new</title>
+<g id="a_call~~graph~~CallGraph_node190"><a xlink:href=".././proc/drift_kepu_new.html" xlink:title="drift_kepu_new">
+<polygon fill="#d9534f" stroke="#d9534f" points="1053,-2130 968,-2130 968,-2106 1053,-2106 1053,-2130"/>
+<text text-anchor="middle" x="1010.5" y="-2115.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_new</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_util_sort_pl -->
-<g id="call~~graph~~CallGraph_node296" class="node">
-<title>proc~rmvs_util_sort_pl</title>
-<g id="a_call~~graph~~CallGraph_node296"><a xlink:href=".././proc/rmvs_util_sort_pl.html" xlink:title="rmvs_util_sort_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="374,-6634 280,-6634 280,-6610 374,-6610 374,-6634"/>
-<text text-anchor="middle" x="327" y="-6619.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_pl</text>
+<!-- proc~drift_kepu_new&#45;&gt;proc~drift_kepu_stumpff -->
+<g id="call~~graph~~CallGraph_edge155" class="edge">
+<title>proc~drift_kepu_new&#45;&gt;proc~drift_kepu_stumpff</title>
+<path fill="none" stroke="#000000" d="M1053.13,-2110.68C1091.14,-2104 1147.77,-2094.05 1190.63,-2086.52"/>
+<polygon fill="#000000" stroke="#000000" points="1191.42,-2089.94 1200.66,-2084.76 1190.21,-2083.04 1191.42,-2089.94"/>
+</g>
+<!-- interface~util_append -->
+<g id="call~~graph~~CallGraph_node191" class="node">
+<title>interface~util_append</title>
+<g id="a_call~~graph~~CallGraph_node191"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="1538.5,-4677 1470.5,-4677 1470.5,-4653 1538.5,-4653 1538.5,-4677"/>
+<text text-anchor="middle" x="1504.5" y="-4662.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_util_sort_pl&#45;&gt;proc~rmvs_util_sort_pl -->
-<g id="call~~graph~~CallGraph_edge178" class="edge">
-<title>interface~rmvs_util_sort_pl&#45;&gt;proc~rmvs_util_sort_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.14,-6622C180.45,-6622 231.21,-6622 269.87,-6622"/>
-<polygon fill="#000000" stroke="#000000" points="269.93,-6625.5 279.93,-6622 269.93,-6618.5 269.93,-6625.5"/>
+<!-- proc~util_spill_body&#45;&gt;interface~util_spill~2 -->
+<g id="call~~graph~~CallGraph_edge156" class="edge">
+<title>proc~util_spill_body&#45;&gt;interface~util_spill~2</title>
+<path fill="none" stroke="#000000" d="M819.5,-1394.46C862.42,-1390.52 931.28,-1384.19 973.26,-1380.33"/>
+<polygon fill="#000000" stroke="#000000" points="973.68,-1383.81 983.32,-1379.41 973.04,-1376.84 973.68,-1383.81"/>
 </g>
-<!-- interface~rmvs_util_sort_tp -->
-<g id="call~~graph~~CallGraph_node180" class="node">
-<title>interface~rmvs_util_sort_tp</title>
-<g id="a_call~~graph~~CallGraph_node180"><a xlink:href=".././interface/rmvs_util_sort_tp.html" xlink:title="rmvs_util_sort_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="144,-6718 50,-6718 50,-6694 144,-6694 144,-6718"/>
-<text text-anchor="middle" x="97" y="-6703.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_tp</text>
+<!-- proc~rmvs_end_planetocentric -->
+<g id="call~~graph~~CallGraph_node195" class="node">
+<title>proc~rmvs_end_planetocentric</title>
+<g id="a_call~~graph~~CallGraph_node195"><a xlink:href=".././proc/rmvs_end_planetocentric.html" xlink:title="rmvs_end_planetocentric">
+<polygon fill="#d9534f" stroke="#d9534f" points="1571,-5467 1438,-5467 1438,-5443 1571,-5443 1571,-5467"/>
+<text text-anchor="middle" x="1504.5" y="-5452.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_end_planetocentric</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_util_sort_tp -->
-<g id="call~~graph~~CallGraph_node299" class="node">
-<title>proc~rmvs_util_sort_tp</title>
-<g id="a_call~~graph~~CallGraph_node299"><a xlink:href=".././proc/rmvs_util_sort_tp.html" xlink:title="rmvs_util_sort_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="374,-6718 280,-6718 280,-6694 374,-6694 374,-6718"/>
-<text text-anchor="middle" x="327" y="-6703.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_tp</text>
-</a>
+<!-- proc~util_spill_encounter&#45;&gt;interface~util_spill~2 -->
+<g id="call~~graph~~CallGraph_edge157" class="edge">
+<title>proc~util_spill_encounter&#45;&gt;interface~util_spill~2</title>
+<path fill="none" stroke="#000000" d="M832.28,-1360.71C875.1,-1364.65 935.07,-1370.16 973.1,-1373.66"/>
+<polygon fill="#000000" stroke="#000000" points="972.94,-1377.15 983.21,-1374.58 973.58,-1370.18 972.94,-1377.15"/>
 </g>
+<!-- proc~util_spill_tp&#45;&gt;interface~util_spill_body -->
+<g id="call~~graph~~CallGraph_edge159" class="edge">
+<title>proc~util_spill_tp&#45;&gt;interface~util_spill_body</title>
+<path fill="none" stroke="#000000" d="M359.7,-1343.91C386.24,-1353.62 425.26,-1367.27 460,-1377 474.93,-1381.18 491.37,-1385.07 506.32,-1388.33"/>
+<polygon fill="#000000" stroke="#000000" points="505.88,-1391.81 516.39,-1390.48 507.35,-1384.97 505.88,-1391.81"/>
 </g>
-<!-- interface~rmvs_util_sort_tp&#45;&gt;proc~rmvs_util_sort_tp -->
-<g id="call~~graph~~CallGraph_edge179" class="edge">
-<title>interface~rmvs_util_sort_tp&#45;&gt;proc~rmvs_util_sort_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.14,-6706C180.45,-6706 231.21,-6706 269.87,-6706"/>
-<polygon fill="#000000" stroke="#000000" points="269.93,-6709.5 279.93,-6706 269.93,-6702.5 269.93,-6709.5"/>
+<!-- proc~util_spill_tp&#45;&gt;interface~util_spill~2 -->
+<g id="call~~graph~~CallGraph_edge158" class="edge">
+<title>proc~util_spill_tp&#45;&gt;interface~util_spill~2</title>
+<path fill="none" stroke="#000000" d="M359.53,-1329C443.47,-1321.7 679.19,-1305.67 872,-1335 907.49,-1340.4 946.51,-1352.99 973.88,-1362.99"/>
+<polygon fill="#000000" stroke="#000000" points="972.82,-1366.33 983.41,-1366.53 975.26,-1359.77 972.82,-1366.33"/>
 </g>
-<!-- proc~drift_kepu_fchk -->
-<g id="call~~graph~~CallGraph_node181" class="node">
-<title>proc~drift_kepu_fchk</title>
-<g id="a_call~~graph~~CallGraph_node181"><a xlink:href=".././proc/drift_kepu_fchk.html" xlink:title="drift_kepu_fchk">
-<polygon fill="#d9534f" stroke="#d9534f" points="1099,-352 1014,-352 1014,-328 1099,-328 1099,-352"/>
-<text text-anchor="middle" x="1056.5" y="-337.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_fchk</text>
-</a>
+<!-- proc~io_read_param_in&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge160" class="edge">
+<title>proc~io_read_param_in&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M606.05,-632.16C620.89,-628.91 637.18,-625.08 652,-621 683.23,-612.41 718.13,-600.71 743.43,-591.84"/>
+<polygon fill="#000000" stroke="#000000" points="744.71,-595.1 752.97,-588.47 742.37,-588.5 744.71,-595.1"/>
 </g>
+<!-- proc~orbel_zget -->
+<g id="call~~graph~~CallGraph_node202" class="node">
+<title>proc~orbel_zget</title>
+<g id="a_call~~graph~~CallGraph_node202"><a xlink:href=".././proc/orbel_zget.html" xlink:title="orbel_zget">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="811.5,-2500 748.5,-2500 748.5,-2476 811.5,-2476 811.5,-2500"/>
+<text text-anchor="middle" x="780" y="-2485.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_zget</text>
+</a>
 </g>
-<!-- proc~drift_kepu_fchk&#45;&gt;proc~drift_kepu_stumpff -->
-<g id="call~~graph~~CallGraph_edge180" class="edge">
-<title>proc~drift_kepu_fchk&#45;&gt;proc~drift_kepu_stumpff</title>
-<path fill="none" stroke="#000000" d="M1099.17,-346.66C1142.81,-353.62 1211.71,-364.63 1261.05,-372.51"/>
-<polygon fill="#000000" stroke="#000000" points="1260.53,-375.97 1270.95,-374.09 1261.63,-369.05 1260.53,-375.97"/>
 </g>
-<!-- interface~rmvs_util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_node182" class="node">
-<title>interface~rmvs_util_sort_rearrange_pl</title>
-<g id="a_call~~graph~~CallGraph_node182"><a xlink:href=".././interface/rmvs_util_sort_rearrange_pl.html" xlink:title="rmvs_util_sort_rearrange_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="170.5,-6844 23.5,-6844 23.5,-6820 170.5,-6820 170.5,-6844"/>
-<text text-anchor="middle" x="97" y="-6829.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_rearrange_pl</text>
+<!-- proc~helio_coord_vb2vh_tp -->
+<g id="call~~graph~~CallGraph_node203" class="node">
+<title>proc~helio_coord_vb2vh_tp</title>
+<g id="a_call~~graph~~CallGraph_node203"><a xlink:href=".././proc/helio_coord_vb2vh_tp.html" xlink:title="helio_coord_vb2vh_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="386,-7796 268,-7796 268,-7772 386,-7772 386,-7796"/>
+<text text-anchor="middle" x="327" y="-7781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vb2vh_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_node292" class="node">
-<title>proc~rmvs_util_sort_rearrange_pl</title>
-<g id="a_call~~graph~~CallGraph_node292"><a xlink:href=".././proc/rmvs_util_sort_rearrange_pl.html" xlink:title="rmvs_util_sort_rearrange_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="400.5,-6844 253.5,-6844 253.5,-6820 400.5,-6820 400.5,-6844"/>
-<text text-anchor="middle" x="327" y="-6829.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_rearrange_pl</text>
+<!-- proc~orbel_schget -->
+<g id="call~~graph~~CallGraph_node204" class="node">
+<title>proc~orbel_schget</title>
+<g id="a_call~~graph~~CallGraph_node204"><a xlink:href=".././proc/orbel_schget.html" xlink:title="orbel_schget">
+<polygon fill="#d9534f" stroke="#d9534f" points="1288.5,-2440 1214.5,-2440 1214.5,-2416 1288.5,-2416 1288.5,-2440"/>
+<text text-anchor="middle" x="1251.5" y="-2425.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_schget</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_util_sort_rearrange_pl&#45;&gt;proc~rmvs_util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_edge181" class="edge">
-<title>interface~rmvs_util_sort_rearrange_pl&#45;&gt;proc~rmvs_util_sort_rearrange_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.77,-6832C193.8,-6832 219.43,-6832 243.12,-6832"/>
-<polygon fill="#000000" stroke="#000000" points="243.14,-6835.5 253.14,-6832 243.14,-6828.5 243.14,-6835.5"/>
+<!-- proc~io_write_discard&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge161" class="edge">
+<title>proc~io_write_discard&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M601.13,-595.83C642.5,-591.91 703.65,-586.13 742.39,-582.46"/>
+<polygon fill="#000000" stroke="#000000" points="743.06,-585.92 752.69,-581.49 742.4,-578.95 743.06,-585.92"/>
 </g>
-<!-- interface~rmvs_util_sort_rearrange_tp -->
-<g id="call~~graph~~CallGraph_node183" class="node">
-<title>interface~rmvs_util_sort_rearrange_tp</title>
-<g id="a_call~~graph~~CallGraph_node183"><a xlink:href=".././interface/rmvs_util_sort_rearrange_tp.html" xlink:title="rmvs_util_sort_rearrange_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="171,-6928 23,-6928 23,-6904 171,-6904 171,-6928"/>
-<text text-anchor="middle" x="97" y="-6913.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_rearrange_tp</text>
+<!-- proc~util_valid_id_system&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge162" class="edge">
+<title>proc~util_valid_id_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M610.01,-929.58C624.99,-926.59 640.36,-921.04 652,-911 748.82,-827.53 772.11,-661.76 777.47,-601.54"/>
+<polygon fill="#000000" stroke="#000000" points="780.98,-601.51 778.3,-591.26 774,-600.94 780.98,-601.51"/>
+</g>
+<!-- interface~util_sort -->
+<g id="call~~graph~~CallGraph_node360" class="node">
+<title>interface~util_sort</title>
+<g id="a_call~~graph~~CallGraph_node360"><a xlink:href=".././interface/util_sort.html" xlink:title="util_sort">
+<polygon fill="#a7506f" stroke="#a7506f" points="807,-944 753,-944 753,-920 807,-920 807,-944"/>
+<text text-anchor="middle" x="780" y="-929.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_util_sort_rearrange_tp -->
-<g id="call~~graph~~CallGraph_node302" class="node">
-<title>proc~rmvs_util_sort_rearrange_tp</title>
-<g id="a_call~~graph~~CallGraph_node302"><a xlink:href=".././proc/rmvs_util_sort_rearrange_tp.html" xlink:title="rmvs_util_sort_rearrange_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="401,-6928 253,-6928 253,-6904 401,-6904 401,-6928"/>
-<text text-anchor="middle" x="327" y="-6913.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_rearrange_tp</text>
+<!-- proc~util_valid_id_system&#45;&gt;interface~util_sort -->
+<g id="call~~graph~~CallGraph_edge163" class="edge">
+<title>proc~util_valid_id_system&#45;&gt;interface~util_sort</title>
+<path fill="none" stroke="#000000" d="M610.17,-932C651.15,-932 706.72,-932 742.72,-932"/>
+<polygon fill="#000000" stroke="#000000" points="742.77,-935.5 752.77,-932 742.77,-928.5 742.77,-935.5"/>
+</g>
+<!-- proc~orbel_fget&#45;&gt;proc~orbel_schget -->
+<g id="call~~graph~~CallGraph_edge164" class="edge">
+<title>proc~orbel_fget&#45;&gt;proc~orbel_schget</title>
+<path fill="none" stroke="#000000" d="M1041.29,-2410.49C1082.21,-2413.92 1156.2,-2420.11 1204.32,-2424.14"/>
+<polygon fill="#000000" stroke="#000000" points="1204.22,-2427.64 1214.48,-2424.99 1204.8,-2420.66 1204.22,-2427.64"/>
+</g>
+<!-- interface~operator(.cross.) -->
+<g id="call~~graph~~CallGraph_node210" class="node">
+<title>interface~operator(.cross.)</title>
+<g id="a_call~~graph~~CallGraph_node210"><a xlink:href=".././interface/operator%28.cross.%29.html" xlink:title="operator(.cross.)">
+<polygon fill="#a7506f" stroke="#a7506f" points="143,-7838 51,-7838 51,-7814 143,-7814 143,-7838"/>
+<text text-anchor="middle" x="97" y="-7823.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator(.cross.)</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_util_sort_rearrange_tp&#45;&gt;proc~rmvs_util_sort_rearrange_tp -->
-<g id="call~~graph~~CallGraph_edge182" class="edge">
-<title>interface~rmvs_util_sort_rearrange_tp&#45;&gt;proc~rmvs_util_sort_rearrange_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M171.08,-6916C193.89,-6916 219.21,-6916 242.67,-6916"/>
-<polygon fill="#000000" stroke="#000000" points="242.94,-6919.5 252.94,-6916 242.94,-6912.5 242.94,-6919.5"/>
+<!-- proc~orbel_ehie&#45;&gt;interface~orbel_scget -->
+<g id="call~~graph~~CallGraph_edge165" class="edge">
+<title>proc~orbel_ehie&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M1042.26,-2207.4C1084.19,-2214.77 1159.52,-2228.01 1207.16,-2236.38"/>
+<polygon fill="#000000" stroke="#000000" points="1206.72,-2239.86 1217.17,-2238.14 1207.93,-2232.97 1206.72,-2239.86"/>
 </g>
-<!-- interface~rmvs_util_spill_pl -->
-<g id="call~~graph~~CallGraph_node184" class="node">
-<title>interface~rmvs_util_spill_pl</title>
-<g id="a_call~~graph~~CallGraph_node184"><a xlink:href=".././interface/rmvs_util_spill_pl.html" xlink:title="rmvs_util_spill_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="609.5,-919 515.5,-919 515.5,-895 609.5,-895 609.5,-919"/>
-<text text-anchor="middle" x="562.5" y="-904.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_spill_pl</text>
-</a>
+<!-- 3 -->
+<g id="call~~graph~~CallGraph_node625" class="node">
+<title>3</title>
+<polygon fill="#777777" stroke="#777777" points="1278.5,-2378 1224.5,-2378 1224.5,-2354 1278.5,-2354 1278.5,-2378"/>
+<text text-anchor="middle" x="1251.5" y="-2363.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">3</text>
 </g>
+<!-- proc~orbel_flon&#45;&gt;3 -->
+<g id="call~~graph~~CallGraph_edge166" class="edge">
+<title>proc~orbel_flon&#45;&gt;3</title>
+<path fill="none" stroke="#000000" d="M1040.81,-2366C1084.49,-2366 1166.63,-2366 1214.11,-2366"/>
+<polygon fill="#000000" stroke="#000000" points="1214.25,-2369.5 1224.25,-2366 1214.25,-2362.5 1214.25,-2369.5"/>
 </g>
-<!-- proc~rmvs_util_spill_pl -->
-<g id="call~~graph~~CallGraph_node311" class="node">
-<title>proc~rmvs_util_spill_pl</title>
-<g id="a_call~~graph~~CallGraph_node311"><a xlink:href=".././proc/rmvs_util_spill_pl.html" xlink:title="rmvs_util_spill_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="850.5,-919 756.5,-919 756.5,-895 850.5,-895 850.5,-919"/>
-<text text-anchor="middle" x="803.5" y="-904.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_spill_pl</text>
+<!-- interface~operator(.mag.) -->
+<g id="call~~graph~~CallGraph_node214" class="node">
+<title>interface~operator(.mag.)</title>
+<g id="a_call~~graph~~CallGraph_node214"><a xlink:href=".././interface/operator%28.mag.%29.html" xlink:title="operator(.mag.)">
+<polygon fill="#a7506f" stroke="#a7506f" points="141,-7880 53,-7880 53,-7856 141,-7856 141,-7880"/>
+<text text-anchor="middle" x="97" y="-7865.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator(.mag.)</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_util_spill_pl&#45;&gt;proc~rmvs_util_spill_pl -->
-<g id="call~~graph~~CallGraph_edge183" class="edge">
-<title>interface~rmvs_util_spill_pl&#45;&gt;proc~rmvs_util_spill_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.58,-907C648.47,-907 704.3,-907 745.9,-907"/>
-<polygon fill="#000000" stroke="#000000" points="746.15,-910.5 756.15,-907 746.15,-903.5 746.15,-910.5"/>
+<!-- proc~orbel_eget&#45;&gt;interface~orbel_scget -->
+<g id="call~~graph~~CallGraph_edge167" class="edge">
+<title>proc~orbel_eget&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M1042.75,-2280.51C1084.83,-2273.11 1159.91,-2259.92 1207.35,-2251.58"/>
+<polygon fill="#000000" stroke="#000000" points="1208.08,-2255.01 1217.33,-2249.83 1206.87,-2248.11 1208.08,-2255.01"/>
 </g>
-<!-- interface~rmvs_util_spill_tp -->
-<g id="call~~graph~~CallGraph_node185" class="node">
-<title>interface~rmvs_util_spill_tp</title>
-<g id="a_call~~graph~~CallGraph_node185"><a xlink:href=".././interface/rmvs_util_spill_tp.html" xlink:title="rmvs_util_spill_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="609.5,-835 515.5,-835 515.5,-811 609.5,-811 609.5,-835"/>
-<text text-anchor="middle" x="562.5" y="-820.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_spill_tp</text>
+<!-- proc~io_write_encounter&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge168" class="edge">
+<title>proc~io_write_encounter&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M607.52,-526.17C621.96,-529.34 637.67,-533.06 652,-537 683.23,-545.59 718.13,-557.29 743.43,-566.16"/>
+<polygon fill="#000000" stroke="#000000" points="742.37,-569.5 752.97,-569.53 744.71,-562.9 742.37,-569.5"/>
+</g>
+<!-- interface~symba_collision_encounter_scrub -->
+<g id="call~~graph~~CallGraph_node218" class="node">
+<title>interface~symba_collision_encounter_scrub</title>
+<g id="a_call~~graph~~CallGraph_node218"><a xlink:href=".././interface/symba_collision_encounter_scrub.html" xlink:title="symba_collision_encounter_scrub">
+<polygon fill="#a7506f" stroke="#a7506f" points="1097.5,-4310 923.5,-4310 923.5,-4286 1097.5,-4286 1097.5,-4310"/>
+<text text-anchor="middle" x="1010.5" y="-4295.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_encounter_scrub</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_util_spill_tp -->
-<g id="call~~graph~~CallGraph_node305" class="node">
-<title>proc~rmvs_util_spill_tp</title>
-<g id="a_call~~graph~~CallGraph_node305"><a xlink:href=".././proc/rmvs_util_spill_tp.html" xlink:title="rmvs_util_spill_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="850.5,-835 756.5,-835 756.5,-811 850.5,-811 850.5,-835"/>
-<text text-anchor="middle" x="803.5" y="-820.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_spill_tp</text>
+<!-- proc~symba_collision_encounter_scrub -->
+<g id="call~~graph~~CallGraph_node453" class="node">
+<title>proc~symba_collision_encounter_scrub</title>
+<g id="a_call~~graph~~CallGraph_node453"><a xlink:href=".././proc/symba_collision_encounter_scrub.html" xlink:title="symba_collision_encounter_scrub">
+<polygon fill="#d9534f" stroke="#d9534f" points="1338.5,-4310 1164.5,-4310 1164.5,-4286 1338.5,-4286 1338.5,-4310"/>
+<text text-anchor="middle" x="1251.5" y="-4295.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_encounter_scrub</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_util_spill_tp&#45;&gt;proc~rmvs_util_spill_tp -->
-<g id="call~~graph~~CallGraph_edge184" class="edge">
-<title>interface~rmvs_util_spill_tp&#45;&gt;proc~rmvs_util_spill_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.58,-823C648.47,-823 704.3,-823 745.9,-823"/>
-<polygon fill="#000000" stroke="#000000" points="746.15,-826.5 756.15,-823 746.15,-819.5 746.15,-826.5"/>
+<!-- interface~symba_collision_encounter_scrub&#45;&gt;proc~symba_collision_encounter_scrub -->
+<g id="call~~graph~~CallGraph_edge169" class="edge">
+<title>interface~symba_collision_encounter_scrub&#45;&gt;proc~symba_collision_encounter_scrub</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1097.78,-4298C1116.06,-4298 1135.46,-4298 1154.09,-4298"/>
+<polygon fill="#000000" stroke="#000000" points="1154.34,-4301.5 1164.34,-4298 1154.34,-4294.5 1154.34,-4301.5"/>
 </g>
-<!-- interface~rmvs_step_system -->
-<g id="call~~graph~~CallGraph_node187" class="node">
-<title>interface~rmvs_step_system</title>
-<g id="a_call~~graph~~CallGraph_node187"><a xlink:href=".././interface/rmvs_step_system.html" xlink:title="rmvs_step_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="148,-1579 46,-1579 46,-1555 148,-1555 148,-1579"/>
-<text text-anchor="middle" x="97" y="-1564.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_system</text>
+<!-- proc~symba_util_fill_tp -->
+<g id="call~~graph~~CallGraph_node220" class="node">
+<title>proc~symba_util_fill_tp</title>
+<g id="a_call~~graph~~CallGraph_node220"><a xlink:href=".././proc/symba_util_fill_tp.html" xlink:title="symba_util_fill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="1298.5,-5551 1204.5,-5551 1204.5,-5527 1298.5,-5527 1298.5,-5551"/>
+<text text-anchor="middle" x="1251.5" y="-5536.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_system -->
-<g id="call~~graph~~CallGraph_node257" class="node">
-<title>proc~rmvs_step_system</title>
-<g id="a_call~~graph~~CallGraph_node257"><a xlink:href=".././proc/rmvs_step_system.html" xlink:title="rmvs_step_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="378,-1579 276,-1579 276,-1555 378,-1555 378,-1579"/>
-<text text-anchor="middle" x="327" y="-1564.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_system</text>
+<!-- interface~util_fill -->
+<g id="call~~graph~~CallGraph_node542" class="node">
+<title>interface~util_fill</title>
+<g id="a_call~~graph~~CallGraph_node542"><a xlink:href=".././interface/util_fill.html" xlink:title="util_fill">
+<polygon fill="#a7506f" stroke="#a7506f" points="1531.5,-5593 1477.5,-5593 1477.5,-5569 1531.5,-5569 1531.5,-5593"/>
+<text text-anchor="middle" x="1504.5" y="-5578.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
 </a>
 </g>
 </g>
-<!-- interface~rmvs_step_system&#45;&gt;proc~rmvs_step_system -->
-<g id="call~~graph~~CallGraph_edge185" class="edge">
-<title>interface~rmvs_step_system&#45;&gt;proc~rmvs_step_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.04,-1567C182.66,-1567 228.93,-1567 265.61,-1567"/>
-<polygon fill="#000000" stroke="#000000" points="265.69,-1570.5 275.69,-1567 265.69,-1563.5 265.69,-1570.5"/>
-</g>
-<!-- proc~util_sort_tp&#45;&gt;interface~util_sort_body -->
-<g id="call~~graph~~CallGraph_edge186" class="edge">
-<title>proc~util_sort_tp&#45;&gt;interface~util_sort_body</title>
-<path fill="none" stroke="#000000" d="M359.98,-5729.32C399.46,-5728.47 467,-5727.02 512.91,-5726.04"/>
-<polygon fill="#000000" stroke="#000000" points="513.01,-5729.54 522.93,-5725.83 512.86,-5722.54 513.01,-5729.54"/>
+<!-- proc~symba_util_fill_tp&#45;&gt;interface~util_fill -->
+<g id="call~~graph~~CallGraph_edge172" class="edge">
+<title>proc~symba_util_fill_tp&#45;&gt;interface~util_fill</title>
+<path fill="none" stroke="#000000" d="M1298.54,-5546.7C1347.15,-5554.84 1422.77,-5567.49 1467.3,-5574.94"/>
+<polygon fill="#000000" stroke="#000000" points="1466.93,-5578.43 1477.37,-5576.63 1468.09,-5571.53 1466.93,-5578.43"/>
 </g>
-<!-- proc~util_sort_pl&#45;&gt;interface~util_sort_body -->
-<g id="call~~graph~~CallGraph_edge187" class="edge">
-<title>proc~util_sort_pl&#45;&gt;interface~util_sort_body</title>
-<path fill="none" stroke="#000000" d="M359.01,-5692.91C398.34,-5699.15 466.59,-5709.96 512.88,-5717.3"/>
-<polygon fill="#000000" stroke="#000000" points="512.56,-5720.79 522.98,-5718.9 513.65,-5713.87 512.56,-5720.79"/>
+<!-- proc~symba_util_fill_tp&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge171" class="edge">
+<title>proc~symba_util_fill_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1298.58,-5540.85C1318.41,-5539.09 1340.17,-5533.28 1354,-5518 1405.43,-5461.18 1349.2,-5239.88 1390,-5175 1407.81,-5146.67 1441.69,-5128.02 1467.82,-5117.15"/>
+<polygon fill="#000000" stroke="#000000" points="1469.39,-5120.29 1477.4,-5113.35 1466.81,-5113.78 1469.39,-5120.29"/>
 </g>
-<!-- xpc -->
-<g id="call~~graph~~CallGraph_node567" class="node">
-<title>xpc</title>
-<polygon fill="#777777" stroke="#777777" points="1348.5,-1642 1294.5,-1642 1294.5,-1618 1348.5,-1618 1348.5,-1642"/>
-<text text-anchor="middle" x="1321.5" y="-1627.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xpc</text>
+<!-- util_fill_tp -->
+<g id="call~~graph~~CallGraph_node605" class="node">
+<title>util_fill_tp</title>
+<polygon fill="#777777" stroke="#777777" points="1533,-5551 1476,-5551 1476,-5527 1533,-5527 1533,-5551"/>
+<text text-anchor="middle" x="1504.5" y="-5536.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
 </g>
-<!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
-<g id="call~~graph~~CallGraph_edge188" class="edge">
-<title>proc~rmvs_peri_tp&#45;&gt;xpc</title>
-<path fill="none" stroke="#000000" d="M1094.07,-1611.92C1144.27,-1615.93 1234.01,-1623.09 1284.11,-1627.09"/>
-<polygon fill="#000000" stroke="#000000" points="1283.93,-1630.59 1294.18,-1627.9 1284.49,-1623.61 1283.93,-1630.59"/>
+<!-- proc~symba_util_fill_tp&#45;&gt;util_fill_tp -->
+<g id="call~~graph~~CallGraph_edge170" class="edge">
+<title>proc~symba_util_fill_tp&#45;&gt;util_fill_tp</title>
+<path fill="none" stroke="#000000" d="M1298.54,-5539C1346.62,-5539 1421.15,-5539 1465.85,-5539"/>
+<polygon fill="#000000" stroke="#000000" points="1465.99,-5542.5 1475.99,-5539 1465.99,-5535.5 1465.99,-5542.5"/>
 </g>
-<!-- vpc -->
-<g id="call~~graph~~CallGraph_node611" class="node">
-<title>vpc</title>
-<polygon fill="#777777" stroke="#777777" points="1348.5,-1600 1294.5,-1600 1294.5,-1576 1348.5,-1576 1348.5,-1600"/>
-<text text-anchor="middle" x="1321.5" y="-1585.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vpc</text>
+<!-- interface~symba_collision_make_family_pl -->
+<g id="call~~graph~~CallGraph_node221" class="node">
+<title>interface~symba_collision_make_family_pl</title>
+<g id="a_call~~graph~~CallGraph_node221"><a xlink:href=".././interface/symba_collision_make_family_pl.html" xlink:title="symba_collision_make_family_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="181,-7922 13,-7922 13,-7898 181,-7898 181,-7922"/>
+<text text-anchor="middle" x="97" y="-7907.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_make_family_pl</text>
+</a>
 </g>
-<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
-<g id="call~~graph~~CallGraph_edge189" class="edge">
-<title>proc~rmvs_peri_tp&#45;&gt;vpc</title>
-<path fill="none" stroke="#000000" d="M1094.07,-1606.08C1144.27,-1602.07 1234.01,-1594.91 1284.11,-1590.91"/>
-<polygon fill="#000000" stroke="#000000" points="1284.49,-1594.39 1294.18,-1590.1 1283.93,-1587.41 1284.49,-1594.39"/>
 </g>
-<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_lag -->
-<g id="call~~graph~~CallGraph_edge193" class="edge">
-<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_lag</title>
-<path fill="none" stroke="#000000" d="M833.74,-370.99C861.39,-380.18 904.18,-393.76 942,-403 962.98,-408.13 986.42,-412.66 1006.52,-416.19"/>
-<polygon fill="#000000" stroke="#000000" points="1005.95,-419.64 1016.4,-417.89 1007.13,-412.74 1005.95,-419.64"/>
+<!-- proc~symba_collision_make_family_pl -->
+<g id="call~~graph~~CallGraph_node468" class="node">
+<title>proc~symba_collision_make_family_pl</title>
+<g id="a_call~~graph~~CallGraph_node468"><a xlink:href=".././proc/symba_collision_make_family_pl.html" xlink:title="symba_collision_make_family_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="411,-7922 243,-7922 243,-7898 411,-7898 411,-7922"/>
+<text text-anchor="middle" x="327" y="-7907.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_make_family_pl</text>
+</a>
 </g>
-<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_guess -->
-<g id="call~~graph~~CallGraph_edge190" class="edge">
-<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_guess</title>
-<path fill="none" stroke="#000000" d="M833.64,-357.53C854.33,-354.45 882.48,-349.02 906,-340 923.3,-333.37 924.64,-325.45 942,-319 960.07,-312.29 980.58,-307.66 999.16,-304.49"/>
-<polygon fill="#000000" stroke="#000000" points="999.92,-307.91 1009.24,-302.88 998.82,-301 999.92,-307.91"/>
 </g>
-<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_new -->
-<g id="call~~graph~~CallGraph_edge191" class="edge">
-<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_new</title>
-<path fill="none" stroke="#000000" d="M833.78,-363.45C875.4,-366.93 952.3,-373.37 1003.68,-377.66"/>
-<polygon fill="#000000" stroke="#000000" points="1003.66,-381.18 1013.92,-378.52 1004.25,-374.2 1003.66,-381.18"/>
+<!-- interface~symba_collision_make_family_pl&#45;&gt;proc~symba_collision_make_family_pl -->
+<g id="call~~graph~~CallGraph_edge173" class="edge">
+<title>interface~symba_collision_make_family_pl&#45;&gt;proc~symba_collision_make_family_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.28,-7910C197.93,-7910 215.51,-7910 232.48,-7910"/>
+<polygon fill="#000000" stroke="#000000" points="232.94,-7913.5 242.94,-7910 232.94,-7906.5 232.94,-7913.5"/>
 </g>
-<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_fchk -->
-<g id="call~~graph~~CallGraph_edge192" class="edge">
-<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_fchk</title>
-<path fill="none" stroke="#000000" d="M833.78,-358.55C875.4,-355.07 952.3,-348.63 1003.68,-344.34"/>
-<polygon fill="#000000" stroke="#000000" points="1004.25,-347.8 1013.92,-343.48 1003.66,-340.82 1004.25,-347.8"/>
-</g>
-<!-- proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange_body -->
-<g id="call~~graph~~CallGraph_edge194" class="edge">
-<title>proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange_body</title>
-<path fill="none" stroke="#000000" d="M386.02,-5366.78C416.12,-5364.07 453.27,-5360.73 485.62,-5357.82"/>
-<polygon fill="#000000" stroke="#000000" points="486.3,-5361.28 495.95,-5356.9 485.67,-5354.31 486.3,-5361.28"/>
-</g>
-<!-- interface~util_append -->
-<g id="call~~graph~~CallGraph_node366" class="node">
-<title>interface~util_append</title>
-<g id="a_call~~graph~~CallGraph_node366"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
-<polygon fill="#a7506f" stroke="#a7506f" points="1090.5,-1411 1022.5,-1411 1022.5,-1387 1090.5,-1387 1090.5,-1411"/>
-<text text-anchor="middle" x="1056.5" y="-1396.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<!-- proc~symba_util_peri_pl -->
+<g id="call~~graph~~CallGraph_node222" class="node">
+<title>proc~symba_util_peri_pl</title>
+<g id="a_call~~graph~~CallGraph_node222"><a xlink:href=".././proc/symba_util_peri_pl.html" xlink:title="symba_util_peri_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="607,-7124 505,-7124 505,-7100 607,-7100 607,-7124"/>
+<text text-anchor="middle" x="556" y="-7109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_peri_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_append_tp&#45;&gt;interface~util_append -->
-<g id="call~~graph~~CallGraph_edge197" class="edge">
-<title>proc~symba_util_append_tp&#45;&gt;interface~util_append</title>
-<path fill="none" stroke="#000000" d="M864.3,-1402.05C909.79,-1401.32 971.31,-1400.34 1012.14,-1399.69"/>
-<polygon fill="#000000" stroke="#000000" points="1012.37,-1403.19 1022.31,-1399.53 1012.26,-1396.19 1012.37,-1403.19"/>
-</g>
-<!-- proc~symba_util_append_tp&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge195" class="edge">
-<title>proc~symba_util_append_tp&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M864.2,-1398.55C878.76,-1395.41 893.68,-1390.29 906,-1382 982.43,-1330.59 1029.94,-1225.68 1047.64,-1180.49"/>
-<polygon fill="#000000" stroke="#000000" points="1050.94,-1181.66 1051.24,-1171.07 1044.4,-1179.17 1050.94,-1181.66"/>
-</g>
-<!-- util_append_tp -->
-<g id="call~~graph~~CallGraph_node602" class="node">
-<title>util_append_tp</title>
-<polygon fill="#777777" stroke="#777777" points="1098,-1495 1015,-1495 1015,-1471 1098,-1471 1098,-1495"/>
-<text text-anchor="middle" x="1056.5" y="-1480.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
+<!-- orbel_xv2aeq -->
+<g id="call~~graph~~CallGraph_node573" class="node">
+<title>orbel_xv2aeq</title>
+<polygon fill="#777777" stroke="#777777" points="818.5,-7145 741.5,-7145 741.5,-7121 818.5,-7121 818.5,-7145"/>
+<text text-anchor="middle" x="780" y="-7130.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aeq</text>
 </g>
-<!-- proc~symba_util_append_tp&#45;&gt;util_append_tp -->
-<g id="call~~graph~~CallGraph_edge196" class="edge">
-<title>proc~symba_util_append_tp&#45;&gt;util_append_tp</title>
-<path fill="none" stroke="#000000" d="M828.23,-1415.11C855.17,-1428.4 900.73,-1449.5 942,-1462 962.17,-1468.11 984.92,-1472.74 1004.73,-1476.08"/>
-<polygon fill="#000000" stroke="#000000" points="1004.36,-1479.57 1014.79,-1477.71 1005.48,-1472.66 1004.36,-1479.57"/>
+<!-- proc~symba_util_peri_pl&#45;&gt;orbel_xv2aeq -->
+<g id="call~~graph~~CallGraph_edge174" class="edge">
+<title>proc~symba_util_peri_pl&#45;&gt;orbel_xv2aeq</title>
+<path fill="none" stroke="#000000" d="M607.1,-7116.74C644.11,-7120.24 694.21,-7124.98 730.77,-7128.44"/>
+<polygon fill="#000000" stroke="#000000" points="730.89,-7131.96 741.18,-7129.42 731.55,-7125 730.89,-7131.96"/>
 </g>
-<!-- proc~symba_util_append_arr_kin -->
-<g id="call~~graph~~CallGraph_node195" class="node">
-<title>proc~symba_util_append_arr_kin</title>
-<g id="a_call~~graph~~CallGraph_node195"><a xlink:href=".././proc/symba_util_append_arr_kin.html" xlink:title="symba_util_append_arr_kin">
-<polygon fill="#d9534f" stroke="#d9534f" points="876,-5653 731,-5653 731,-5629 876,-5629 876,-5653"/>
-<text text-anchor="middle" x="803.5" y="-5638.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_arr_kin</text>
+<!-- proc~rmvs_encounter_check_tp -->
+<g id="call~~graph~~CallGraph_node223" class="node">
+<title>proc~rmvs_encounter_check_tp</title>
+<g id="a_call~~graph~~CallGraph_node223"><a xlink:href=".././proc/rmvs_encounter_check_tp.html" xlink:title="rmvs_encounter_check_tp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="396.5,-7502 257.5,-7502 257.5,-7478 396.5,-7478 396.5,-7502"/>
+<text text-anchor="middle" x="327" y="-7487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_append_arr_kin&#45;&gt;interface~util_resize -->
-<g id="call~~graph~~CallGraph_edge198" class="edge">
-<title>proc~symba_util_append_arr_kin&#45;&gt;interface~util_resize</title>
-<path fill="none" stroke="#000000" d="M876.09,-5629.59C921.39,-5622.37 978.25,-5613.31 1015.67,-5607.35"/>
-<polygon fill="#000000" stroke="#000000" points="1016.36,-5610.78 1025.69,-5605.75 1015.26,-5603.87 1016.36,-5610.78"/>
-</g>
-<!-- proc~symba_util_append_pl&#45;&gt;interface~util_append -->
-<g id="call~~graph~~CallGraph_edge201" class="edge">
-<title>proc~symba_util_append_pl&#45;&gt;interface~util_append</title>
-<path fill="none" stroke="#000000" d="M863.67,-1369.96C909.36,-1376.88 971.52,-1386.29 1012.54,-1392.5"/>
-<polygon fill="#000000" stroke="#000000" points="1012.08,-1395.97 1022.49,-1394 1013.13,-1389.05 1012.08,-1395.97"/>
-</g>
-<!-- proc~symba_util_append_pl&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge200" class="edge">
-<title>proc~symba_util_append_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M863.65,-1355.69C878.22,-1352.57 893.28,-1347.66 906,-1340 972.66,-1299.84 1023.05,-1218.9 1044.36,-1180.35"/>
-<polygon fill="#000000" stroke="#000000" points="1047.68,-1181.55 1049.36,-1171.09 1041.53,-1178.22 1047.68,-1181.55"/>
-</g>
-<!-- util_append_pl -->
-<g id="call~~graph~~CallGraph_node627" class="node">
-<title>util_append_pl</title>
-<polygon fill="#777777" stroke="#777777" points="1097.5,-1453 1015.5,-1453 1015.5,-1429 1097.5,-1429 1097.5,-1453"/>
-<text text-anchor="middle" x="1056.5" y="-1438.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
-</g>
-<!-- proc~symba_util_append_pl&#45;&gt;util_append_pl -->
-<g id="call~~graph~~CallGraph_edge199" class="edge">
-<title>proc~symba_util_append_pl&#45;&gt;util_append_pl</title>
-<path fill="none" stroke="#000000" d="M863.56,-1366.96C878.06,-1370.08 893.11,-1374.82 906,-1382 926.32,-1393.32 921.56,-1408.89 942,-1420 961.21,-1430.43 984.65,-1435.79 1005.23,-1438.5"/>
-<polygon fill="#000000" stroke="#000000" points="1005.05,-1442 1015.39,-1439.66 1005.85,-1435.05 1005.05,-1442"/>
+<!-- proc~rmvs_encounter_check_tp&#45;&gt;interface~rmvs_chk_ind -->
+<g id="call~~graph~~CallGraph_edge175" class="edge">
+<title>proc~rmvs_encounter_check_tp&#45;&gt;interface~rmvs_chk_ind</title>
+<path fill="none" stroke="#000000" d="M396.72,-7483.64C432.05,-7480.37 474.26,-7476.47 506.21,-7473.51"/>
+<polygon fill="#000000" stroke="#000000" points="506.56,-7477 516.2,-7472.59 505.92,-7470.03 506.56,-7477"/>
 </g>
-<!-- interface~util_spill_body -->
-<g id="call~~graph~~CallGraph_node197" class="node">
-<title>interface~util_spill_body</title>
-<g id="a_call~~graph~~CallGraph_node197"><a xlink:href=".././interface/util_spill_body.html" xlink:title="util_spill_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="602,-7056 523,-7056 523,-7032 602,-7032 602,-7056"/>
-<text text-anchor="middle" x="562.5" y="-7041.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
+<!-- interface~symba_collision_resolve_fragmentations -->
+<g id="call~~graph~~CallGraph_node224" class="node">
+<title>interface~symba_collision_resolve_fragmentations</title>
+<g id="a_call~~graph~~CallGraph_node224"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#a7506f" stroke="#a7506f" points="1113,-4425 908,-4425 908,-4401 1113,-4401 1113,-4425"/>
+<text text-anchor="middle" x="1010.5" y="-4410.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_body -->
-<g id="call~~graph~~CallGraph_node241" class="node">
-<title>proc~util_spill_body</title>
-<g id="a_call~~graph~~CallGraph_node241"><a xlink:href=".././proc/util_spill_body.html" xlink:title="util_spill_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="843,-7056 764,-7056 764,-7032 843,-7032 843,-7056"/>
-<text text-anchor="middle" x="803.5" y="-7041.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
+<!-- proc~symba_collision_resolve_fragmentations -->
+<g id="call~~graph~~CallGraph_node452" class="node">
+<title>proc~symba_collision_resolve_fragmentations</title>
+<g id="a_call~~graph~~CallGraph_node452"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#d9534f" stroke="#d9534f" points="1354,-4425 1149,-4425 1149,-4401 1354,-4401 1354,-4425"/>
+<text text-anchor="middle" x="1251.5" y="-4410.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
 </a>
 </g>
 </g>
-<!-- interface~util_spill_body&#45;&gt;proc~util_spill_body -->
-<g id="call~~graph~~CallGraph_edge202" class="edge">
-<title>interface~util_spill_body&#45;&gt;proc~util_spill_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.17,-7044C643.47,-7044 709.03,-7044 753.82,-7044"/>
-<polygon fill="#000000" stroke="#000000" points="753.89,-7047.5 763.89,-7044 753.89,-7040.5 753.89,-7047.5"/>
-</g>
-<!-- proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange_body -->
-<g id="call~~graph~~CallGraph_edge203" class="edge">
-<title>proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange_body</title>
-<path fill="none" stroke="#000000" d="M386.02,-5335.22C416.12,-5337.93 453.27,-5341.27 485.62,-5344.18"/>
-<polygon fill="#000000" stroke="#000000" points="485.67,-5347.69 495.95,-5345.1 486.3,-5340.72 485.67,-5347.69"/>
+<!-- interface~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_resolve_fragmentations -->
+<g id="call~~graph~~CallGraph_edge176" class="edge">
+<title>interface~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_resolve_fragmentations</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1113.2,-4413C1121.7,-4413 1130.31,-4413 1138.87,-4413"/>
+<polygon fill="#000000" stroke="#000000" points="1138.89,-4416.5 1148.89,-4413 1138.89,-4409.5 1138.89,-4416.5"/>
 </g>
-<!-- interface~util_spill_encounter -->
-<g id="call~~graph~~CallGraph_node199" class="node">
-<title>interface~util_spill_encounter</title>
-<g id="a_call~~graph~~CallGraph_node199"><a xlink:href=".././interface/util_spill_encounter.html" xlink:title="util_spill_encounter">
-<polygon fill="#a7506f" stroke="#a7506f" points="614.5,-7014 510.5,-7014 510.5,-6990 614.5,-6990 614.5,-7014"/>
-<text text-anchor="middle" x="562.5" y="-6999.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_encounter</text>
+<!-- proc~drift_body -->
+<g id="call~~graph~~CallGraph_node226" class="node">
+<title>proc~drift_body</title>
+<g id="a_call~~graph~~CallGraph_node226"><a xlink:href=".././proc/drift_body.html" xlink:title="drift_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="357,-7964 297,-7964 297,-7940 357,-7940 357,-7964"/>
+<text text-anchor="middle" x="327" y="-7949.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_body</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_encounter -->
-<g id="call~~graph~~CallGraph_node242" class="node">
-<title>proc~util_spill_encounter</title>
-<g id="a_call~~graph~~CallGraph_node242"><a xlink:href=".././proc/util_spill_encounter.html" xlink:title="util_spill_encounter">
-<polygon fill="#d9534f" stroke="#d9534f" points="855.5,-7014 751.5,-7014 751.5,-6990 855.5,-6990 855.5,-7014"/>
-<text text-anchor="middle" x="803.5" y="-6999.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_encounter</text>
+<!-- interface~drift_all -->
+<g id="call~~graph~~CallGraph_node477" class="node">
+<title>interface~drift_all</title>
+<g id="a_call~~graph~~CallGraph_node477"><a xlink:href=".././interface/drift_all.html" xlink:title="drift_all">
+<polygon fill="#a7506f" stroke="#a7506f" points="583,-7964 529,-7964 529,-7940 583,-7940 583,-7964"/>
+<text text-anchor="middle" x="556" y="-7949.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_all</text>
 </a>
 </g>
 </g>
-<!-- interface~util_spill_encounter&#45;&gt;proc~util_spill_encounter -->
-<g id="call~~graph~~CallGraph_edge204" class="edge">
-<title>interface~util_spill_encounter&#45;&gt;proc~util_spill_encounter</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.77,-7002C651.79,-7002 701.94,-7002 741.1,-7002"/>
-<polygon fill="#000000" stroke="#000000" points="741.31,-7005.5 751.31,-7002 741.31,-6998.5 741.31,-7005.5"/>
+<!-- proc~drift_body&#45;&gt;interface~drift_all -->
+<g id="call~~graph~~CallGraph_edge177" class="edge">
+<title>proc~drift_body&#45;&gt;interface~drift_all</title>
+<path fill="none" stroke="#000000" d="M357.21,-7952C398.45,-7952 473.7,-7952 518.55,-7952"/>
+<polygon fill="#000000" stroke="#000000" points="518.71,-7955.5 528.71,-7952 518.71,-7948.5 518.71,-7955.5"/>
 </g>
-<!-- interface~util_spill_pl -->
-<g id="call~~graph~~CallGraph_node200" class="node">
-<title>interface~util_spill_pl</title>
-<g id="a_call~~graph~~CallGraph_node200"><a xlink:href=".././interface/util_spill_pl.html" xlink:title="util_spill_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="129,-7076 65,-7076 65,-7052 129,-7052 129,-7076"/>
-<text text-anchor="middle" x="97" y="-7061.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
+<!-- interface~symba_collision_resolve_mergers -->
+<g id="call~~graph~~CallGraph_node227" class="node">
+<title>interface~symba_collision_resolve_mergers</title>
+<g id="a_call~~graph~~CallGraph_node227"><a xlink:href=".././interface/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
+<polygon fill="#a7506f" stroke="#a7506f" points="1097.5,-4373 923.5,-4373 923.5,-4349 1097.5,-4349 1097.5,-4373"/>
+<text text-anchor="middle" x="1010.5" y="-4358.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_mergers</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_pl -->
-<g id="call~~graph~~CallGraph_node239" class="node">
-<title>proc~util_spill_pl</title>
-<g id="a_call~~graph~~CallGraph_node239"><a xlink:href=".././proc/util_spill_pl.html" xlink:title="util_spill_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="359,-7076 295,-7076 295,-7052 359,-7052 359,-7076"/>
-<text text-anchor="middle" x="327" y="-7061.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
+<!-- proc~symba_collision_resolve_mergers -->
+<g id="call~~graph~~CallGraph_node412" class="node">
+<title>proc~symba_collision_resolve_mergers</title>
+<g id="a_call~~graph~~CallGraph_node412"><a xlink:href=".././proc/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
+<polygon fill="#d9534f" stroke="#d9534f" points="1338.5,-4373 1164.5,-4373 1164.5,-4349 1338.5,-4349 1338.5,-4373"/>
+<text text-anchor="middle" x="1251.5" y="-4358.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_mergers</text>
 </a>
 </g>
 </g>
-<!-- interface~util_spill_pl&#45;&gt;proc~util_spill_pl -->
-<g id="call~~graph~~CallGraph_edge205" class="edge">
-<title>interface~util_spill_pl&#45;&gt;proc~util_spill_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M129.22,-7064C169.53,-7064 239.8,-7064 284.55,-7064"/>
-<polygon fill="#000000" stroke="#000000" points="284.79,-7067.5 294.79,-7064 284.79,-7060.5 284.79,-7067.5"/>
+<!-- interface~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_resolve_mergers -->
+<g id="call~~graph~~CallGraph_edge178" class="edge">
+<title>interface~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_resolve_mergers</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1097.78,-4361C1116.06,-4361 1135.46,-4361 1154.09,-4361"/>
+<polygon fill="#000000" stroke="#000000" points="1154.34,-4364.5 1164.34,-4361 1154.34,-4357.5 1154.34,-4364.5"/>
 </g>
-<!-- interface~util_spill_tp -->
-<g id="call~~graph~~CallGraph_node201" class="node">
-<title>interface~util_spill_tp</title>
-<g id="a_call~~graph~~CallGraph_node201"><a xlink:href=".././interface/util_spill_tp.html" xlink:title="util_spill_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="129.5,-6989 64.5,-6989 64.5,-6965 129.5,-6965 129.5,-6989"/>
-<text text-anchor="middle" x="97" y="-6974.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
+<!-- proc~rmvs_chk_ind -->
+<g id="call~~graph~~CallGraph_node229" class="node">
+<title>proc~rmvs_chk_ind</title>
+<g id="a_call~~graph~~CallGraph_node229"><a xlink:href=".././proc/rmvs_chk_ind.html" xlink:title="rmvs_chk_ind">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="819.5,-7481 740.5,-7481 740.5,-7457 819.5,-7457 819.5,-7481"/>
+<text text-anchor="middle" x="780" y="-7466.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_chk_ind</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_tp -->
-<g id="call~~graph~~CallGraph_node246" class="node">
-<title>proc~util_spill_tp</title>
-<g id="a_call~~graph~~CallGraph_node246"><a xlink:href=".././proc/util_spill_tp.html" xlink:title="util_spill_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="359.5,-6989 294.5,-6989 294.5,-6965 359.5,-6965 359.5,-6989"/>
-<text text-anchor="middle" x="327" y="-6974.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
+<!-- interface~symba_discard_pl -->
+<g id="call~~graph~~CallGraph_node230" class="node">
+<title>interface~symba_discard_pl</title>
+<g id="a_call~~graph~~CallGraph_node230"><a xlink:href=".././interface/symba_discard_pl.html" xlink:title="symba_discard_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="146.5,-8032 47.5,-8032 47.5,-8008 146.5,-8008 146.5,-8032"/>
+<text text-anchor="middle" x="97" y="-8017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~util_spill_tp&#45;&gt;proc~util_spill_tp -->
-<g id="call~~graph~~CallGraph_edge206" class="edge">
-<title>interface~util_spill_tp&#45;&gt;proc~util_spill_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M129.7,-6977C169.92,-6977 239.38,-6977 283.98,-6977"/>
-<polygon fill="#000000" stroke="#000000" points="284.2,-6980.5 294.2,-6977 284.2,-6973.5 284.2,-6980.5"/>
-</g>
-<!-- proc~symba_util_append_merger&#45;&gt;interface~symba_util_append_pl -->
-<g id="call~~graph~~CallGraph_edge207" class="edge">
-<title>proc~symba_util_append_merger&#45;&gt;interface~symba_util_append_pl</title>
-<path fill="none" stroke="#000000" d="M400.28,-1361C429.64,-1361 463.4,-1361 492.42,-1361"/>
-<polygon fill="#000000" stroke="#000000" points="492.47,-1364.5 502.47,-1361 492.47,-1357.5 492.47,-1364.5"/>
-</g>
-<!-- proc~symba_util_append_merger&#45;&gt;interface~util_append -->
-<g id="call~~graph~~CallGraph_edge209" class="edge">
-<title>proc~symba_util_append_merger&#45;&gt;interface~util_append</title>
-<path fill="none" stroke="#000000" d="M346.69,-1373.25C371.41,-1388.65 416.91,-1414.24 460,-1424 653.33,-1467.77 708.46,-1440.4 906,-1424 942.13,-1421 982.66,-1413.99 1012.4,-1408.15"/>
-<polygon fill="#000000" stroke="#000000" points="1013.33,-1411.54 1022.45,-1406.15 1011.95,-1404.67 1013.33,-1411.54"/>
-</g>
-<!-- proc~symba_util_append_merger&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge208" class="edge">
-<title>proc~symba_util_append_merger&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M332.36,-1348.51C345.3,-1313.55 387.23,-1214.79 460,-1176 557.26,-1124.15 905.31,-1146.85 1019.17,-1155.91"/>
-<polygon fill="#000000" stroke="#000000" points="1019.19,-1159.42 1029.44,-1156.74 1019.75,-1152.44 1019.19,-1159.42"/>
-</g>
-<!-- interface~symba_util_fill_pl -->
-<g id="call~~graph~~CallGraph_node203" class="node">
-<title>interface~symba_util_fill_pl</title>
-<g id="a_call~~graph~~CallGraph_node203"><a xlink:href=".././interface/symba_util_fill_pl.html" xlink:title="symba_util_fill_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="609.5,-1003 515.5,-1003 515.5,-979 609.5,-979 609.5,-1003"/>
-<text text-anchor="middle" x="562.5" y="-988.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_pl</text>
+<!-- proc~symba_discard_pl -->
+<g id="call~~graph~~CallGraph_node301" class="node">
+<title>proc~symba_discard_pl</title>
+<g id="a_call~~graph~~CallGraph_node301"><a xlink:href=".././proc/symba_discard_pl.html" xlink:title="symba_discard_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="376.5,-8032 277.5,-8032 277.5,-8008 376.5,-8008 376.5,-8032"/>
+<text text-anchor="middle" x="327" y="-8017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_fill_pl -->
-<g id="call~~graph~~CallGraph_node216" class="node">
-<title>proc~symba_util_fill_pl</title>
-<g id="a_call~~graph~~CallGraph_node216"><a xlink:href=".././proc/symba_util_fill_pl.html" xlink:title="symba_util_fill_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="850.5,-1003 756.5,-1003 756.5,-979 850.5,-979 850.5,-1003"/>
-<text text-anchor="middle" x="803.5" y="-988.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_pl</text>
+<!-- interface~symba_discard_pl&#45;&gt;proc~symba_discard_pl -->
+<g id="call~~graph~~CallGraph_edge179" class="edge">
+<title>interface~symba_discard_pl&#45;&gt;proc~symba_discard_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M146.63,-8020C181.9,-8020 229.77,-8020 267.19,-8020"/>
+<polygon fill="#000000" stroke="#000000" points="267.44,-8023.5 277.44,-8020 267.44,-8016.5 267.44,-8023.5"/>
+</g>
+<!-- interface~symba_drift_pl -->
+<g id="call~~graph~~CallGraph_node232" class="node">
+<title>interface~symba_drift_pl</title>
+<g id="a_call~~graph~~CallGraph_node232"><a xlink:href=".././interface/symba_drift_pl.html" xlink:title="symba_drift_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="138,-7292 56,-7292 56,-7268 138,-7268 138,-7292"/>
+<text text-anchor="middle" x="97" y="-7277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_fill_pl&#45;&gt;proc~symba_util_fill_pl -->
-<g id="call~~graph~~CallGraph_edge210" class="edge">
-<title>interface~symba_util_fill_pl&#45;&gt;proc~symba_util_fill_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.58,-991C648.47,-991 704.3,-991 745.9,-991"/>
-<polygon fill="#000000" stroke="#000000" points="746.15,-994.5 756.15,-991 746.15,-987.5 746.15,-994.5"/>
+<!-- interface~symba_drift_pl&#45;&gt;proc~symba_drift_pl -->
+<g id="call~~graph~~CallGraph_edge180" class="edge">
+<title>interface~symba_drift_pl&#45;&gt;proc~symba_drift_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.24,-7280C176.54,-7280 234.31,-7280 275.65,-7280"/>
+<polygon fill="#000000" stroke="#000000" points="275.78,-7283.5 285.78,-7280 275.78,-7276.5 275.78,-7283.5"/>
 </g>
-<!-- interface~util_valid -->
-<g id="call~~graph~~CallGraph_node204" class="node">
-<title>interface~util_valid</title>
-<g id="a_call~~graph~~CallGraph_node204"><a xlink:href=".././interface/util_valid.html" xlink:title="util_valid">
-<polygon fill="#a7506f" stroke="#a7506f" points="589.5,-3643 535.5,-3643 535.5,-3619 589.5,-3619 589.5,-3643"/>
-<text text-anchor="middle" x="562.5" y="-3628.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid</text>
+<!-- proc~symba_util_rearray_pl -->
+<g id="call~~graph~~CallGraph_node233" class="node">
+<title>proc~symba_util_rearray_pl</title>
+<g id="a_call~~graph~~CallGraph_node233"><a xlink:href=".././proc/symba_util_rearray_pl.html" xlink:title="symba_util_rearray_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="839,-5071 721,-5071 721,-5047 839,-5047 839,-5071"/>
+<text text-anchor="middle" x="780" y="-5056.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_rearray_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_valid -->
-<g id="call~~graph~~CallGraph_node255" class="node">
-<title>proc~util_valid</title>
-<g id="a_call~~graph~~CallGraph_node255"><a xlink:href=".././proc/util_valid.html" xlink:title="util_valid">
-<polygon fill="#d9534f" stroke="#d9534f" points="830.5,-3643 776.5,-3643 776.5,-3619 830.5,-3619 830.5,-3643"/>
-<text text-anchor="middle" x="803.5" y="-3628.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid</text>
+<!-- interface~symba_io_dump_particle_info -->
+<g id="call~~graph~~CallGraph_node238" class="node">
+<title>interface~symba_io_dump_particle_info</title>
+<g id="a_call~~graph~~CallGraph_node238"><a xlink:href=".././interface/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="1088,-5051 933,-5051 933,-5027 1088,-5027 1088,-5051"/>
+<text text-anchor="middle" x="1010.5" y="-5036.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
 </a>
 </g>
 </g>
-<!-- interface~util_valid&#45;&gt;proc~util_valid -->
-<g id="call~~graph~~CallGraph_edge211" class="edge">
-<title>interface~util_valid&#45;&gt;proc~util_valid</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M589.53,-3631C632.36,-3631 717.78,-3631 766.42,-3631"/>
-<polygon fill="#000000" stroke="#000000" points="766.5,-3634.5 776.5,-3631 766.5,-3627.5 766.5,-3634.5"/>
+<!-- proc~symba_util_rearray_pl&#45;&gt;interface~symba_io_dump_particle_info -->
+<g id="call~~graph~~CallGraph_edge181" class="edge">
+<title>proc~symba_util_rearray_pl&#45;&gt;interface~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" d="M839.25,-5053.9C864.57,-5051.69 894.76,-5049.04 922.64,-5046.6"/>
+<polygon fill="#000000" stroke="#000000" points="923.14,-5050.07 932.8,-5045.71 922.53,-5043.1 923.14,-5050.07"/>
 </g>
-<!-- interface~symba_util_fill_tp -->
-<g id="call~~graph~~CallGraph_node205" class="node">
-<title>interface~symba_util_fill_tp</title>
-<g id="a_call~~graph~~CallGraph_node205"><a xlink:href=".././interface/symba_util_fill_tp.html" xlink:title="symba_util_fill_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="609.5,-961 515.5,-961 515.5,-937 609.5,-937 609.5,-961"/>
-<text text-anchor="middle" x="562.5" y="-946.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_tp</text>
+<!-- proc~symba_io_write_discard -->
+<g id="call~~graph~~CallGraph_node234" class="node">
+<title>proc~symba_io_write_discard</title>
+<g id="a_call~~graph~~CallGraph_node234"><a xlink:href=".././proc/symba_io_write_discard.html" xlink:title="symba_io_write_discard">
+<polygon fill="#d9534f" stroke="#d9534f" points="1315,-5177 1188,-5177 1188,-5153 1315,-5153 1315,-5177"/>
+<text text-anchor="middle" x="1251.5" y="-5162.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_write_discard</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_fill_tp -->
-<g id="call~~graph~~CallGraph_node219" class="node">
-<title>proc~symba_util_fill_tp</title>
-<g id="a_call~~graph~~CallGraph_node219"><a xlink:href=".././proc/symba_util_fill_tp.html" xlink:title="symba_util_fill_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="850.5,-961 756.5,-961 756.5,-937 850.5,-937 850.5,-961"/>
-<text text-anchor="middle" x="803.5" y="-946.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_tp</text>
+<!-- proc~symba_io_write_discard&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge182" class="edge">
+<title>proc~symba_io_write_discard&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1302.99,-5152.93C1351.76,-5141.27 1424.41,-5123.91 1467.56,-5113.59"/>
+<polygon fill="#000000" stroke="#000000" points="1468.43,-5116.98 1477.34,-5111.25 1466.8,-5110.17 1468.43,-5116.98"/>
+</g>
+<!-- interface~symba_drift_tp -->
+<g id="call~~graph~~CallGraph_node235" class="node">
+<title>interface~symba_drift_tp</title>
+<g id="a_call~~graph~~CallGraph_node235"><a xlink:href=".././interface/symba_drift_tp.html" xlink:title="symba_drift_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="138.5,-7334 55.5,-7334 55.5,-7310 138.5,-7310 138.5,-7334"/>
+<text text-anchor="middle" x="97" y="-7319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_fill_tp&#45;&gt;proc~symba_util_fill_tp -->
-<g id="call~~graph~~CallGraph_edge212" class="edge">
-<title>interface~symba_util_fill_tp&#45;&gt;proc~symba_util_fill_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.58,-949C648.47,-949 704.3,-949 745.9,-949"/>
-<polygon fill="#000000" stroke="#000000" points="746.15,-952.5 756.15,-949 746.15,-945.5 746.15,-952.5"/>
+<!-- interface~symba_drift_tp&#45;&gt;proc~symba_drift_tp -->
+<g id="call~~graph~~CallGraph_edge183" class="edge">
+<title>interface~symba_drift_tp&#45;&gt;proc~symba_drift_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.76,-7322C176.9,-7322 234.01,-7322 275.12,-7322"/>
+<polygon fill="#000000" stroke="#000000" points="275.21,-7325.5 285.21,-7322 275.21,-7318.5 275.21,-7325.5"/>
 </g>
-<!-- interface~util_version -->
-<g id="call~~graph~~CallGraph_node206" class="node">
-<title>interface~util_version</title>
-<g id="a_call~~graph~~CallGraph_node206"><a xlink:href=".././interface/util_version.html" xlink:title="util_version">
-<polygon fill="#a7506f" stroke="#a7506f" points="1090,-3028 1023,-3028 1023,-3004 1090,-3004 1090,-3028"/>
-<text text-anchor="middle" x="1056.5" y="-3013.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version</text>
+<!-- interface~symba_encounter_check_one -->
+<g id="call~~graph~~CallGraph_node236" class="node">
+<title>interface~symba_encounter_check_one</title>
+<g id="a_call~~graph~~CallGraph_node236"><a xlink:href=".././interface/symba_encounter_check_one.html" xlink:title="symba_encounter_check_one">
+<polygon fill="#a7506f" stroke="#a7506f" points="175,-7460 19,-7460 19,-7436 175,-7436 175,-7460"/>
+<text text-anchor="middle" x="97" y="-7445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_one</text>
 </a>
 </g>
 </g>
-<!-- interface~util_version&#45;&gt;proc~util_version -->
-<g id="call~~graph~~CallGraph_edge213" class="edge">
-<title>interface~util_version&#45;&gt;proc~util_version</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1090.01,-3016C1137.3,-3016 1225.12,-3016 1277.64,-3016"/>
-<polygon fill="#000000" stroke="#000000" points="1277.65,-3019.5 1287.65,-3016 1277.65,-3012.5 1277.65,-3019.5"/>
+<!-- interface~symba_encounter_check_one&#45;&gt;proc~symba_encounter_check_one -->
+<g id="call~~graph~~CallGraph_edge184" class="edge">
+<title>interface~symba_encounter_check_one&#45;&gt;proc~symba_encounter_check_one</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M175.19,-7448C195.62,-7448 217.81,-7448 238.73,-7448"/>
+<polygon fill="#000000" stroke="#000000" points="238.89,-7451.5 248.89,-7448 238.89,-7444.5 238.89,-7451.5"/>
 </g>
-<!-- interface~symba_util_peri_pl -->
-<g id="call~~graph~~CallGraph_node207" class="node">
-<title>interface~symba_util_peri_pl</title>
-<g id="a_call~~graph~~CallGraph_node207"><a xlink:href=".././interface/symba_util_peri_pl.html" xlink:title="symba_util_peri_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="378,-520 276,-520 276,-496 378,-496 378,-520"/>
-<text text-anchor="middle" x="327" y="-505.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_peri_pl</text>
+<!-- interface~symba_io_write_discard -->
+<g id="call~~graph~~CallGraph_node237" class="node">
+<title>interface~symba_io_write_discard</title>
+<g id="a_call~~graph~~CallGraph_node237"><a xlink:href=".././interface/symba_io_write_discard.html" xlink:title="symba_io_write_discard">
+<polygon fill="#a7506f" stroke="#a7506f" points="1074,-5215 947,-5215 947,-5191 1074,-5191 1074,-5215"/>
+<text text-anchor="middle" x="1010.5" y="-5200.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_write_discard</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_peri_pl -->
-<g id="call~~graph~~CallGraph_node454" class="node">
-<title>proc~symba_util_peri_pl</title>
-<g id="a_call~~graph~~CallGraph_node454"><a xlink:href=".././proc/symba_util_peri_pl.html" xlink:title="symba_util_peri_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="613.5,-520 511.5,-520 511.5,-496 613.5,-496 613.5,-520"/>
-<text text-anchor="middle" x="562.5" y="-505.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_peri_pl</text>
+<!-- interface~symba_io_write_discard&#45;&gt;proc~symba_io_write_discard -->
+<g id="call~~graph~~CallGraph_edge185" class="edge">
+<title>interface~symba_io_write_discard&#45;&gt;proc~symba_io_write_discard</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1074.29,-5193.02C1106,-5187.97 1144.65,-5181.83 1177.66,-5176.58"/>
+<polygon fill="#000000" stroke="#000000" points="1178.38,-5180.01 1187.71,-5174.98 1177.28,-5173.1 1178.38,-5180.01"/>
+</g>
+<!-- proc~symba_io_dump_particle_info -->
+<g id="call~~graph~~CallGraph_node500" class="node">
+<title>proc~symba_io_dump_particle_info</title>
+<g id="a_call~~graph~~CallGraph_node500"><a xlink:href=".././proc/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="1329,-5054 1174,-5054 1174,-5030 1329,-5030 1329,-5054"/>
+<text text-anchor="middle" x="1251.5" y="-5039.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_peri_pl&#45;&gt;proc~symba_util_peri_pl -->
-<g id="call~~graph~~CallGraph_edge214" class="edge">
-<title>interface~symba_util_peri_pl&#45;&gt;proc~symba_util_peri_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M378.09,-508C414.1,-508 462.84,-508 501.02,-508"/>
-<polygon fill="#000000" stroke="#000000" points="501.49,-511.5 511.49,-508 501.49,-504.5 501.49,-511.5"/>
+<!-- interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info -->
+<g id="call~~graph~~CallGraph_edge186" class="edge">
+<title>interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1088.11,-5039.96C1112.23,-5040.26 1139.04,-5040.6 1163.81,-5040.91"/>
+<polygon fill="#000000" stroke="#000000" points="1163.87,-5044.41 1173.92,-5041.04 1163.96,-5037.41 1163.87,-5044.41"/>
 </g>
-<!-- proc~util_sort_dp -->
-<g id="call~~graph~~CallGraph_node208" class="node">
-<title>proc~util_sort_dp</title>
-<g id="a_call~~graph~~CallGraph_node208"><a xlink:href=".././proc/util_sort_dp.html" xlink:title="util_sort_dp">
-<polygon fill="#d9534f" stroke="#d9534f" points="131,-7118 63,-7118 63,-7094 131,-7094 131,-7118"/>
-<text text-anchor="middle" x="97" y="-7103.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_dp</text>
+<!-- proc~drift_all -->
+<g id="call~~graph~~CallGraph_node239" class="node">
+<title>proc~drift_all</title>
+<g id="a_call~~graph~~CallGraph_node239"><a xlink:href=".././proc/drift_all.html" xlink:title="drift_all">
+<polygon fill="#d9534f" stroke="#d9534f" points="807,-7964 753,-7964 753,-7940 807,-7940 807,-7964"/>
+<text text-anchor="middle" x="780" y="-7949.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_all</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_rearray_pl -->
-<g id="call~~graph~~CallGraph_node209" class="node">
-<title>interface~symba_util_rearray_pl</title>
-<g id="a_call~~graph~~CallGraph_node209"><a xlink:href=".././interface/symba_util_rearray_pl.html" xlink:title="symba_util_rearray_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="156,-7160 38,-7160 38,-7136 156,-7136 156,-7160"/>
-<text text-anchor="middle" x="97" y="-7145.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_rearray_pl</text>
+<!-- proc~symba_util_resize_arr_info -->
+<g id="call~~graph~~CallGraph_node240" class="node">
+<title>proc~symba_util_resize_arr_info</title>
+<g id="a_call~~graph~~CallGraph_node240"><a xlink:href=".././proc/symba_util_resize_arr_info.html" xlink:title="symba_util_resize_arr_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="167.5,-8095 26.5,-8095 26.5,-8071 167.5,-8071 167.5,-8095"/>
+<text text-anchor="middle" x="97" y="-8080.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_arr_info</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_rearray_pl -->
-<g id="call~~graph~~CallGraph_node460" class="node">
-<title>proc~symba_util_rearray_pl</title>
-<g id="a_call~~graph~~CallGraph_node460"><a xlink:href=".././proc/symba_util_rearray_pl.html" xlink:title="symba_util_rearray_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="386,-7160 268,-7160 268,-7136 386,-7136 386,-7160"/>
-<text text-anchor="middle" x="327" y="-7145.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_rearray_pl</text>
+<!-- interface~symba_io_param_reader -->
+<g id="call~~graph~~CallGraph_node241" class="node">
+<title>interface~symba_io_param_reader</title>
+<g id="a_call~~graph~~CallGraph_node241"><a xlink:href=".././interface/symba_io_param_reader.html" xlink:title="symba_io_param_reader">
+<polygon fill="#a7506f" stroke="#a7506f" points="163.5,-8147 30.5,-8147 30.5,-8123 163.5,-8123 163.5,-8147"/>
+<text text-anchor="middle" x="97" y="-8132.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_param_reader</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_rearray_pl&#45;&gt;proc~symba_util_rearray_pl -->
-<g id="call~~graph~~CallGraph_edge215" class="edge">
-<title>interface~symba_util_rearray_pl&#45;&gt;proc~symba_util_rearray_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-7148C187.08,-7148 225.33,-7148 257.7,-7148"/>
-<polygon fill="#000000" stroke="#000000" points="257.98,-7151.5 267.98,-7148 257.98,-7144.5 257.98,-7151.5"/>
-</g>
-<!-- interface~util_spill -->
-<g id="call~~graph~~CallGraph_node210" class="node">
-<title>interface~util_spill</title>
-<g id="a_call~~graph~~CallGraph_node210"><a xlink:href=".././interface/util_spill.html" xlink:title="util_spill">
-<polygon fill="#a7506f" stroke="#a7506f" points="1083.5,-751 1029.5,-751 1029.5,-727 1083.5,-727 1083.5,-751"/>
-<text text-anchor="middle" x="1056.5" y="-736.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+<!-- proc~symba_io_param_reader -->
+<g id="call~~graph~~CallGraph_node513" class="node">
+<title>proc~symba_io_param_reader</title>
+<g id="a_call~~graph~~CallGraph_node513"><a xlink:href=".././proc/symba_io_param_reader.html" xlink:title="symba_io_param_reader">
+<polygon fill="#d9534f" stroke="#d9534f" points="393.5,-8147 260.5,-8147 260.5,-8123 393.5,-8123 393.5,-8147"/>
+<text text-anchor="middle" x="327" y="-8132.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_param_reader</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_fill_arr_kin -->
-<g id="call~~graph~~CallGraph_node211" class="node">
-<title>proc~symba_util_fill_arr_kin</title>
-<g id="a_call~~graph~~CallGraph_node211"><a xlink:href=".././proc/symba_util_fill_arr_kin.html" xlink:title="symba_util_fill_arr_kin">
-<polygon fill="#d9534f" stroke="#d9534f" points="156,-7202 38,-7202 38,-7178 156,-7178 156,-7202"/>
-<text text-anchor="middle" x="97" y="-7187.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_arr_kin</text>
+<!-- interface~symba_io_param_reader&#45;&gt;proc~symba_io_param_reader -->
+<g id="call~~graph~~CallGraph_edge187" class="edge">
+<title>interface~symba_io_param_reader&#45;&gt;proc~symba_io_param_reader</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.64,-8135C190.71,-8135 222.24,-8135 250.27,-8135"/>
+<polygon fill="#000000" stroke="#000000" points="250.43,-8138.5 260.43,-8135 250.43,-8131.5 250.43,-8138.5"/>
+</g>
+<!-- interface~symba_io_param_writer -->
+<g id="call~~graph~~CallGraph_node242" class="node">
+<title>interface~symba_io_param_writer</title>
+<g id="a_call~~graph~~CallGraph_node242"><a xlink:href=".././interface/symba_io_param_writer.html" xlink:title="symba_io_param_writer">
+<polygon fill="#a7506f" stroke="#a7506f" points="160.5,-8231 33.5,-8231 33.5,-8207 160.5,-8207 160.5,-8231"/>
+<text text-anchor="middle" x="97" y="-8216.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_param_writer</text>
 </a>
 </g>
 </g>
-<!-- proc~util_sort_index_dp -->
-<g id="call~~graph~~CallGraph_node212" class="node">
-<title>proc~util_sort_index_dp</title>
-<g id="a_call~~graph~~CallGraph_node212"><a xlink:href=".././proc/util_sort_index_dp.html" xlink:title="util_sort_index_dp">
-<polygon fill="#d9534f" stroke="#d9534f" points="147,-7244 47,-7244 47,-7220 147,-7220 147,-7244"/>
-<text text-anchor="middle" x="97" y="-7229.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_index_dp</text>
+<!-- proc~symba_io_param_writer -->
+<g id="call~~graph~~CallGraph_node514" class="node">
+<title>proc~symba_io_param_writer</title>
+<g id="a_call~~graph~~CallGraph_node514"><a xlink:href=".././proc/symba_io_param_writer.html" xlink:title="symba_io_param_writer">
+<polygon fill="#d9534f" stroke="#d9534f" points="390.5,-8231 263.5,-8231 263.5,-8207 390.5,-8207 390.5,-8231"/>
+<text text-anchor="middle" x="327" y="-8216.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_param_writer</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_fill_arr_info -->
-<g id="call~~graph~~CallGraph_node213" class="node">
-<title>proc~symba_util_fill_arr_info</title>
-<g id="a_call~~graph~~CallGraph_node213"><a xlink:href=".././proc/symba_util_fill_arr_info.html" xlink:title="symba_util_fill_arr_info">
-<polygon fill="#d9534f" stroke="#d9534f" points="158,-7286 36,-7286 36,-7262 158,-7262 158,-7286"/>
-<text text-anchor="middle" x="97" y="-7271.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_arr_info</text>
+<!-- interface~symba_io_param_writer&#45;&gt;proc~symba_io_param_writer -->
+<g id="call~~graph~~CallGraph_edge188" class="edge">
+<title>interface~symba_io_param_writer&#45;&gt;proc~symba_io_param_writer</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160.6,-8219C189.14,-8219 223.11,-8219 252.83,-8219"/>
+<polygon fill="#000000" stroke="#000000" points="253.14,-8222.5 263.14,-8219 253.14,-8215.5 253.14,-8222.5"/>
+</g>
+<!-- interface~symba_io_read_particle -->
+<g id="call~~graph~~CallGraph_node243" class="node">
+<title>interface~symba_io_read_particle</title>
+<g id="a_call~~graph~~CallGraph_node243"><a xlink:href=".././interface/symba_io_read_particle.html" xlink:title="symba_io_read_particle">
+<polygon fill="#a7506f" stroke="#a7506f" points="619.5,-5160 492.5,-5160 492.5,-5136 619.5,-5136 619.5,-5160"/>
+<text text-anchor="middle" x="556" y="-5145.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_read_particle</text>
 </a>
 </g>
 </g>
-<!-- proc~util_sort_i4b -->
-<g id="call~~graph~~CallGraph_node214" class="node">
-<title>proc~util_sort_i4b</title>
-<g id="a_call~~graph~~CallGraph_node214"><a xlink:href=".././proc/util_sort_i4b.html" xlink:title="util_sort_i4b">
-<polygon fill="#d9534f" stroke="#d9534f" points="132,-7328 62,-7328 62,-7304 132,-7304 132,-7328"/>
-<text text-anchor="middle" x="97" y="-7313.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_i4b</text>
+<!-- proc~symba_io_read_particle -->
+<g id="call~~graph~~CallGraph_node543" class="node">
+<title>proc~symba_io_read_particle</title>
+<g id="a_call~~graph~~CallGraph_node543"><a xlink:href=".././proc/symba_io_read_particle.html" xlink:title="symba_io_read_particle">
+<polygon fill="#d9534f" stroke="#d9534f" points="843.5,-5165 716.5,-5165 716.5,-5141 843.5,-5141 843.5,-5165"/>
+<text text-anchor="middle" x="780" y="-5150.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_read_particle</text>
 </a>
 </g>
 </g>
-<!-- proc~util_sort_index_i4b -->
-<g id="call~~graph~~CallGraph_node215" class="node">
-<title>proc~util_sort_index_i4b</title>
-<g id="a_call~~graph~~CallGraph_node215"><a xlink:href=".././proc/util_sort_index_i4b.html" xlink:title="util_sort_index_i4b">
-<polygon fill="#d9534f" stroke="#d9534f" points="148,-7370 46,-7370 46,-7346 148,-7346 148,-7370"/>
-<text text-anchor="middle" x="97" y="-7355.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_index_i4b</text>
+<!-- interface~symba_io_read_particle&#45;&gt;proc~symba_io_read_particle -->
+<g id="call~~graph~~CallGraph_edge189" class="edge">
+<title>interface~symba_io_read_particle&#45;&gt;proc~symba_io_read_particle</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619.73,-5149.41C646.68,-5150.02 678.34,-5150.73 706.31,-5151.36"/>
+<polygon fill="#000000" stroke="#000000" points="706.35,-5154.86 716.43,-5151.59 706.51,-5147.87 706.35,-5154.86"/>
+</g>
+<!-- interface~symba_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node244" class="node">
+<title>interface~symba_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node244"><a xlink:href=".././interface/symba_kick_getacch_pl.html" xlink:title="symba_kick_getacch_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="160,-6704 34,-6704 34,-6680 160,-6680 160,-6704"/>
+<text text-anchor="middle" x="97" y="-6689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_fill_pl&#45;&gt;interface~util_fill -->
-<g id="call~~graph~~CallGraph_edge216" class="edge">
-<title>proc~symba_util_fill_pl&#45;&gt;interface~util_fill</title>
-<path fill="none" stroke="#000000" d="M850.54,-983.3C899.15,-975.16 974.77,-962.51 1019.3,-955.06"/>
-<polygon fill="#000000" stroke="#000000" points="1020.09,-958.47 1029.37,-953.37 1018.93,-951.57 1020.09,-958.47"/>
+<!-- interface~symba_kick_getacch_pl&#45;&gt;proc~symba_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_edge190" class="edge">
+<title>interface~symba_kick_getacch_pl&#45;&gt;proc~symba_kick_getacch_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160,-6692C188.91,-6692 223.49,-6692 253.59,-6692"/>
+<polygon fill="#000000" stroke="#000000" points="253.62,-6695.5 263.62,-6692 253.62,-6688.5 253.62,-6695.5"/>
 </g>
-<!-- proc~symba_util_fill_pl&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge218" class="edge">
-<title>proc~symba_util_fill_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M850.7,-990.44C869.96,-992.55 891.23,-998.29 906,-1012 948.68,-1051.62 898.9,-1098.83 942,-1138 962.63,-1156.75 994.36,-1161.32 1019.03,-1161.59"/>
-<polygon fill="#000000" stroke="#000000" points="1019.16,-1165.09 1029.12,-1161.47 1019.08,-1158.09 1019.16,-1165.09"/>
+<!-- proc~symba_util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_node245" class="node">
+<title>proc~symba_util_sort_rearrange_pl</title>
+<g id="a_call~~graph~~CallGraph_node245"><a xlink:href=".././proc/symba_util_sort_rearrange_pl.html" xlink:title="symba_util_sort_rearrange_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="404.5,-6998 249.5,-6998 249.5,-6974 404.5,-6974 404.5,-6998"/>
+<text text-anchor="middle" x="327" y="-6983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_rearrange_pl</text>
+</a>
 </g>
-<!-- util_fill_pl -->
-<g id="call~~graph~~CallGraph_node621" class="node">
-<title>util_fill_pl</title>
-<polygon fill="#777777" stroke="#777777" points="1084.5,-1045 1028.5,-1045 1028.5,-1021 1084.5,-1021 1084.5,-1045"/>
-<text text-anchor="middle" x="1056.5" y="-1030.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
 </g>
-<!-- proc~symba_util_fill_pl&#45;&gt;util_fill_pl -->
-<g id="call~~graph~~CallGraph_edge217" class="edge">
-<title>proc~symba_util_fill_pl&#45;&gt;util_fill_pl</title>
-<path fill="none" stroke="#000000" d="M850.54,-998.7C898.75,-1006.77 973.55,-1019.29 1018.21,-1026.76"/>
-<polygon fill="#000000" stroke="#000000" points="1017.9,-1030.26 1028.34,-1028.46 1019.06,-1023.35 1017.9,-1030.26"/>
+<!-- util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_node600" class="node">
+<title>util_sort_rearrange_pl</title>
+<polygon fill="#777777" stroke="#777777" points="615,-6998 497,-6998 497,-6974 615,-6974 615,-6998"/>
+<text text-anchor="middle" x="556" y="-6983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
 </g>
-<!-- interface~lambda_obj~2 -->
-<g id="call~~graph~~CallGraph_node217" class="node">
-<title>interface~lambda_obj~2</title>
-<g id="a_call~~graph~~CallGraph_node217"><a xlink:href=".././interface/lambda_obj~2.html" xlink:title="lambda_obj">
-<polygon fill="#a7506f" stroke="#a7506f" points="131,-7412 63,-7412 63,-7388 131,-7388 131,-7412"/>
-<text text-anchor="middle" x="97" y="-7397.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj</text>
+<!-- proc~symba_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_edge191" class="edge">
+<title>proc~symba_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl</title>
+<path fill="none" stroke="#000000" d="M404.54,-6986C431.12,-6986 460.75,-6986 486.64,-6986"/>
+<polygon fill="#000000" stroke="#000000" points="486.73,-6989.5 496.73,-6986 486.73,-6982.5 486.73,-6989.5"/>
+</g>
+<!-- interface~symba_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node246" class="node">
+<title>interface~symba_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node246"><a xlink:href=".././interface/symba_kick_getacch_tp.html" xlink:title="symba_kick_getacch_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="160.5,-7082 33.5,-7082 33.5,-7058 160.5,-7058 160.5,-7082"/>
+<text text-anchor="middle" x="97" y="-7067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_getacch_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~lambda_init_0 -->
-<g id="call~~graph~~CallGraph_node220" class="node">
-<title>proc~lambda_init_0</title>
-<g id="a_call~~graph~~CallGraph_node220"><a xlink:href=".././proc/lambda_init_0.html" xlink:title="lambda_init_0">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="366.5,-7454 287.5,-7454 287.5,-7430 366.5,-7430 366.5,-7454"/>
-<text text-anchor="middle" x="327" y="-7439.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_init_0</text>
+<!-- interface~symba_kick_getacch_tp&#45;&gt;proc~symba_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_edge192" class="edge">
+<title>interface~symba_kick_getacch_tp&#45;&gt;proc~symba_kick_getacch_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160.6,-7070C189.14,-7070 223.11,-7070 252.83,-7070"/>
+<polygon fill="#000000" stroke="#000000" points="253.14,-7073.5 263.14,-7070 253.14,-7066.5 253.14,-7073.5"/>
+</g>
+<!-- proc~orbel_el2xv -->
+<g id="call~~graph~~CallGraph_node302" class="node">
+<title>proc~orbel_el2xv</title>
+<g id="a_call~~graph~~CallGraph_node302"><a xlink:href=".././proc/orbel_el2xv.html" xlink:title="orbel_el2xv">
+<polygon fill="#d9534f" stroke="#d9534f" points="589.5,-2399 522.5,-2399 522.5,-2375 589.5,-2375 589.5,-2399"/>
+<text text-anchor="middle" x="556" y="-2384.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv</text>
 </a>
 </g>
 </g>
-<!-- interface~lambda_obj~2&#45;&gt;proc~lambda_init_0 -->
-<g id="call~~graph~~CallGraph_edge221" class="edge">
-<title>interface~lambda_obj~2&#45;&gt;proc~lambda_init_0</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M131.15,-7406.11C169.65,-7413.2 233.5,-7424.96 277.55,-7433.08"/>
-<polygon fill="#000000" stroke="#000000" points="277,-7436.53 287.47,-7434.9 278.27,-7429.65 277,-7436.53"/>
+<!-- proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv -->
+<g id="call~~graph~~CallGraph_edge193" class="edge">
+<title>proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv</title>
+<path fill="none" stroke="#000000" d="M372.04,-2387C412.51,-2387 472.14,-2387 512.22,-2387"/>
+<polygon fill="#000000" stroke="#000000" points="512.47,-2390.5 522.47,-2387 512.47,-2383.5 512.47,-2390.5"/>
 </g>
-<!-- proc~lambda_init_0_err -->
-<g id="call~~graph~~CallGraph_node459" class="node">
-<title>proc~lambda_init_0_err</title>
-<g id="a_call~~graph~~CallGraph_node459"><a xlink:href=".././proc/lambda_init_0_err.html" xlink:title="lambda_init_0_err">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="376.5,-7412 277.5,-7412 277.5,-7388 376.5,-7388 376.5,-7412"/>
-<text text-anchor="middle" x="327" y="-7397.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_init_0_err</text>
+<!-- proc~drift_kepmd -->
+<g id="call~~graph~~CallGraph_node248" class="node">
+<title>proc~drift_kepmd</title>
+<g id="a_call~~graph~~CallGraph_node248"><a xlink:href=".././proc/drift_kepmd.html" xlink:title="drift_kepmd">
+<polygon fill="#d9534f" stroke="#d9534f" points="814.5,-2067 745.5,-2067 745.5,-2043 814.5,-2043 814.5,-2067"/>
+<text text-anchor="middle" x="780" y="-2052.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepmd</text>
 </a>
 </g>
 </g>
-<!-- interface~lambda_obj~2&#45;&gt;proc~lambda_init_0_err -->
-<g id="call~~graph~~CallGraph_edge220" class="edge">
-<title>interface~lambda_obj~2&#45;&gt;proc~lambda_init_0_err</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M131.15,-7400C166.71,-7400 223.89,-7400 267.14,-7400"/>
-<polygon fill="#000000" stroke="#000000" points="267.25,-7403.5 277.25,-7400 267.25,-7396.5 267.25,-7403.5"/>
-</g>
-<!-- proc~lambda_init_tvar -->
-<g id="call~~graph~~CallGraph_node471" class="node">
-<title>proc~lambda_init_tvar</title>
-<g id="a_call~~graph~~CallGraph_node471"><a xlink:href=".././proc/lambda_init_tvar.html" xlink:title="lambda_init_tvar">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="372.5,-7370 281.5,-7370 281.5,-7346 372.5,-7346 372.5,-7370"/>
-<text text-anchor="middle" x="327" y="-7355.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_init_tvar</text>
+<!-- interface~symba_kick_pltpenc -->
+<g id="call~~graph~~CallGraph_node249" class="node">
+<title>interface~symba_kick_pltpenc</title>
+<g id="a_call~~graph~~CallGraph_node249"><a xlink:href=".././interface/symba_kick_pltpenc.html" xlink:title="symba_kick_pltpenc">
+<polygon fill="#a7506f" stroke="#a7506f" points="151.5,-7250 42.5,-7250 42.5,-7226 151.5,-7226 151.5,-7250"/>
+<text text-anchor="middle" x="97" y="-7235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick_pltpenc</text>
 </a>
 </g>
 </g>
-<!-- interface~lambda_obj~2&#45;&gt;proc~lambda_init_tvar -->
-<g id="call~~graph~~CallGraph_edge219" class="edge">
-<title>interface~lambda_obj~2&#45;&gt;proc~lambda_init_tvar</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M131.15,-7393.89C167.93,-7387.12 227.85,-7376.08 271.54,-7368.03"/>
-<polygon fill="#000000" stroke="#000000" points="272.24,-7371.46 281.44,-7366.21 270.97,-7364.58 272.24,-7371.46"/>
+<!-- interface~symba_kick_pltpenc&#45;&gt;proc~symba_kick_pltpenc -->
+<g id="call~~graph~~CallGraph_edge194" class="edge">
+<title>interface~symba_kick_pltpenc&#45;&gt;proc~symba_kick_pltpenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.74,-7238C184.82,-7238 227.38,-7238 262.17,-7238"/>
+<polygon fill="#000000" stroke="#000000" points="262.22,-7241.5 272.22,-7238 262.22,-7234.5 262.22,-7241.5"/>
 </g>
-<!-- proc~symba_util_fill_tp&#45;&gt;interface~util_fill -->
-<g id="call~~graph~~CallGraph_edge222" class="edge">
-<title>proc~symba_util_fill_tp&#45;&gt;interface~util_fill</title>
-<path fill="none" stroke="#000000" d="M850.54,-949C899.15,-949 974.77,-949 1019.3,-949"/>
-<polygon fill="#000000" stroke="#000000" points="1019.37,-952.5 1029.37,-949 1019.37,-945.5 1019.37,-952.5"/>
+<!-- xj -->
+<g id="call~~graph~~CallGraph_node556" class="node">
+<title>xj</title>
+<polygon fill="#777777" stroke="#777777" points="583,-4593 529,-4593 529,-4569 583,-4569 583,-4593"/>
+<text text-anchor="middle" x="556" y="-4578.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xj</text>
 </g>
-<!-- proc~symba_util_fill_tp&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge224" class="edge">
-<title>proc~symba_util_fill_tp&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M850.62,-947.93C870.1,-949.9 891.57,-955.67 906,-970 960.19,-1023.8 887.25,-1084.77 942,-1138 962.12,-1157.56 994.17,-1162 1019.1,-1162.02"/>
-<polygon fill="#000000" stroke="#000000" points="1019.37,-1165.51 1029.29,-1161.78 1019.21,-1158.52 1019.37,-1165.51"/>
+<!-- proc~whm_coord_h2j_pl&#45;&gt;xj -->
+<g id="call~~graph~~CallGraph_edge198" class="edge">
+<title>proc~whm_coord_h2j_pl&#45;&gt;xj</title>
+<path fill="none" stroke="#000000" d="M378.83,-4457.13C394.72,-4460.01 411.37,-4465.57 424,-4476 455.31,-4501.87 428.72,-4534.09 460,-4560 476.32,-4573.52 499.46,-4578.83 518.81,-4580.73"/>
+<polygon fill="#000000" stroke="#000000" points="518.6,-4584.22 528.82,-4581.46 519.1,-4577.24 518.6,-4584.22"/>
 </g>
-<!-- util_fill_tp -->
-<g id="call~~graph~~CallGraph_node623" class="node">
-<title>util_fill_tp</title>
-<polygon fill="#777777" stroke="#777777" points="1085,-1003 1028,-1003 1028,-979 1085,-979 1085,-1003"/>
-<text text-anchor="middle" x="1056.5" y="-988.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
+<!-- eta -->
+<g id="call~~graph~~CallGraph_node563" class="node">
+<title>eta</title>
+<polygon fill="#777777" stroke="#777777" points="583,-4509 529,-4509 529,-4485 583,-4485 583,-4509"/>
+<text text-anchor="middle" x="556" y="-4494.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
 </g>
-<!-- proc~symba_util_fill_tp&#45;&gt;util_fill_tp -->
-<g id="call~~graph~~CallGraph_edge223" class="edge">
-<title>proc~symba_util_fill_tp&#45;&gt;util_fill_tp</title>
-<path fill="none" stroke="#000000" d="M850.54,-956.7C898.72,-964.77 973.46,-977.27 1018.13,-984.75"/>
-<polygon fill="#000000" stroke="#000000" points="1017.55,-988.2 1027.99,-986.4 1018.71,-981.29 1017.55,-988.2"/>
+<!-- proc~whm_coord_h2j_pl&#45;&gt;eta -->
+<g id="call~~graph~~CallGraph_edge195" class="edge">
+<title>proc~whm_coord_h2j_pl&#45;&gt;eta</title>
+<path fill="none" stroke="#000000" d="M378.66,-4464.37C421.18,-4472.24 480.88,-4483.29 518.75,-4490.29"/>
+<polygon fill="#000000" stroke="#000000" points="518.35,-4493.78 528.82,-4492.16 519.62,-4486.9 518.35,-4493.78"/>
 </g>
-<!-- proc~util_sort_sp -->
-<g id="call~~graph~~CallGraph_node221" class="node">
-<title>proc~util_sort_sp</title>
-<g id="a_call~~graph~~CallGraph_node221"><a xlink:href=".././proc/util_sort_sp.html" xlink:title="util_sort_sp">
-<polygon fill="#d9534f" stroke="#d9534f" points="130.5,-7454 63.5,-7454 63.5,-7430 130.5,-7430 130.5,-7454"/>
-<text text-anchor="middle" x="97" y="-7439.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_sp</text>
-</a>
+<!-- gmpl -->
+<g id="call~~graph~~CallGraph_node567" class="node">
+<title>gmpl</title>
+<polygon fill="#777777" stroke="#777777" points="583,-4467 529,-4467 529,-4443 583,-4443 583,-4467"/>
+<text text-anchor="middle" x="556" y="-4452.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gmpl</text>
 </g>
+<!-- proc~whm_coord_h2j_pl&#45;&gt;gmpl -->
+<g id="call~~graph~~CallGraph_edge199" class="edge">
+<title>proc~whm_coord_h2j_pl&#45;&gt;gmpl</title>
+<path fill="none" stroke="#000000" d="M378.66,-4455C421.18,-4455 480.88,-4455 518.75,-4455"/>
+<polygon fill="#000000" stroke="#000000" points="518.82,-4458.5 528.82,-4455 518.82,-4451.5 518.82,-4458.5"/>
 </g>
-<!-- proc~util_append_tp -->
-<g id="call~~graph~~CallGraph_node222" class="node">
-<title>proc~util_append_tp</title>
-<g id="a_call~~graph~~CallGraph_node222"><a xlink:href=".././proc/util_append_tp.html" xlink:title="util_append_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="845,-3685 762,-3685 762,-3661 845,-3661 845,-3685"/>
-<text text-anchor="middle" x="803.5" y="-3670.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
-</a>
+<!-- vj -->
+<g id="call~~graph~~CallGraph_node585" class="node">
+<title>vj</title>
+<polygon fill="#777777" stroke="#777777" points="583,-4425 529,-4425 529,-4401 583,-4401 583,-4425"/>
+<text text-anchor="middle" x="556" y="-4410.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
 </g>
+<!-- proc~whm_coord_h2j_pl&#45;&gt;vj -->
+<g id="call~~graph~~CallGraph_edge196" class="edge">
+<title>proc~whm_coord_h2j_pl&#45;&gt;vj</title>
+<path fill="none" stroke="#000000" d="M378.66,-4445.63C421.18,-4437.76 480.88,-4426.71 518.75,-4419.71"/>
+<polygon fill="#000000" stroke="#000000" points="519.62,-4423.1 528.82,-4417.84 518.35,-4416.22 519.62,-4423.1"/>
 </g>
-<!-- proc~util_append_tp&#45;&gt;interface~util_append~2 -->
-<g id="call~~graph~~CallGraph_edge226" class="edge">
-<title>proc~util_append_tp&#45;&gt;interface~util_append~2</title>
-<path fill="none" stroke="#000000" d="M845.33,-3671.54C946.09,-3668.49 1214.46,-3663.85 1436,-3691 1453.53,-3693.15 1472.58,-3696.99 1489.05,-3700.81"/>
-<polygon fill="#000000" stroke="#000000" points="1488.4,-3704.25 1498.94,-3703.17 1490.03,-3697.44 1488.4,-3704.25"/>
+<!-- xh -->
+<g id="call~~graph~~CallGraph_node598" class="node">
+<title>xh</title>
+<polygon fill="#777777" stroke="#777777" points="583,-4551 529,-4551 529,-4527 583,-4527 583,-4551"/>
+<text text-anchor="middle" x="556" y="-4536.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
 </g>
-<!-- interface~util_append_body -->
-<g id="call~~graph~~CallGraph_node347" class="node">
-<title>interface~util_append_body</title>
-<g id="a_call~~graph~~CallGraph_node347"><a xlink:href=".././interface/util_append_body.html" xlink:title="util_append_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="1105,-3724 1008,-3724 1008,-3700 1105,-3700 1105,-3724"/>
-<text text-anchor="middle" x="1056.5" y="-3709.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
-</a>
+<!-- proc~whm_coord_h2j_pl&#45;&gt;xh -->
+<g id="call~~graph~~CallGraph_edge197" class="edge">
+<title>proc~whm_coord_h2j_pl&#45;&gt;xh</title>
+<path fill="none" stroke="#000000" d="M378.63,-4459.8C393.99,-4462.86 410.38,-4467.86 424,-4476 445.1,-4488.61 438.91,-4505.36 460,-4518 477.64,-4528.57 500,-4533.84 518.59,-4536.45"/>
+<polygon fill="#000000" stroke="#000000" points="518.41,-4539.96 528.76,-4537.68 519.25,-4533.01 518.41,-4539.96"/>
 </g>
+<!-- vh -->
+<g id="call~~graph~~CallGraph_node603" class="node">
+<title>vh</title>
+<polygon fill="#777777" stroke="#777777" points="583,-4383 529,-4383 529,-4359 583,-4359 583,-4383"/>
+<text text-anchor="middle" x="556" y="-4368.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
 </g>
-<!-- proc~util_append_tp&#45;&gt;interface~util_append_body -->
-<g id="call~~graph~~CallGraph_edge225" class="edge">
-<title>proc~util_append_tp&#45;&gt;interface~util_append_body</title>
-<path fill="none" stroke="#000000" d="M845.11,-3679.31C886.47,-3685.74 951,-3695.76 997.69,-3703.02"/>
-<polygon fill="#000000" stroke="#000000" points="997.24,-3706.49 1007.66,-3704.57 998.32,-3699.57 997.24,-3706.49"/>
+<!-- proc~whm_coord_h2j_pl&#45;&gt;vh -->
+<g id="call~~graph~~CallGraph_edge200" class="edge">
+<title>proc~whm_coord_h2j_pl&#45;&gt;vh</title>
+<path fill="none" stroke="#000000" d="M378.63,-4450.2C393.99,-4447.14 410.38,-4442.14 424,-4434 445.1,-4421.39 438.91,-4404.64 460,-4392 477.64,-4381.43 500,-4376.16 518.59,-4373.55"/>
+<polygon fill="#000000" stroke="#000000" points="519.25,-4376.99 528.76,-4372.32 518.41,-4370.04 519.25,-4376.99"/>
 </g>
-<!-- interface~util_exit -->
-<g id="call~~graph~~CallGraph_node461" class="node">
-<title>interface~util_exit</title>
-<g id="a_call~~graph~~CallGraph_node461"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" points="1083.5,-3374 1029.5,-3374 1029.5,-3350 1083.5,-3350 1083.5,-3374"/>
-<text text-anchor="middle" x="1056.5" y="-3359.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<!-- interface~symba_setup_initialize_particle_info -->
+<g id="call~~graph~~CallGraph_node251" class="node">
+<title>interface~symba_setup_initialize_particle_info</title>
+<g id="a_call~~graph~~CallGraph_node251"><a xlink:href=".././interface/symba_setup_initialize_particle_info.html" xlink:title="symba_setup_initialize_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="648,-5029 464,-5029 464,-5005 648,-5005 648,-5029"/>
+<text text-anchor="middle" x="556" y="-5014.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_particle_info</text>
 </a>
 </g>
 </g>
-<!-- proc~util_append_tp&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge227" class="edge">
-<title>proc~util_append_tp&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M845.44,-3672.57C865.42,-3670.49 888.8,-3665.06 906,-3652 953.23,-3616.14 1023.21,-3444.93 1047.13,-3383.78"/>
-<polygon fill="#000000" stroke="#000000" points="1050.45,-3384.9 1050.81,-3374.31 1043.92,-3382.37 1050.45,-3384.9"/>
-</g>
-<!-- proc~util_append_body -->
-<g id="call~~graph~~CallGraph_node223" class="node">
-<title>proc~util_append_body</title>
-<g id="a_call~~graph~~CallGraph_node223"><a xlink:href=".././proc/util_append_body.html" xlink:title="util_append_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="1370,-3724 1273,-3724 1273,-3700 1370,-3700 1370,-3724"/>
-<text text-anchor="middle" x="1321.5" y="-3709.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
+<!-- proc~symba_setup_initialize_particle_info -->
+<g id="call~~graph~~CallGraph_node469" class="node">
+<title>proc~symba_setup_initialize_particle_info</title>
+<g id="a_call~~graph~~CallGraph_node469"><a xlink:href=".././proc/symba_setup_initialize_particle_info.html" xlink:title="symba_setup_initialize_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="872,-5029 688,-5029 688,-5005 872,-5005 872,-5029"/>
+<text text-anchor="middle" x="780" y="-5014.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_particle_info</text>
 </a>
 </g>
 </g>
-<!-- proc~util_append_body&#45;&gt;interface~util_append~2 -->
-<g id="call~~graph~~CallGraph_edge228" class="edge">
-<title>proc~util_append_body&#45;&gt;interface~util_append~2</title>
-<path fill="none" stroke="#000000" d="M1370.04,-3712C1405.71,-3712 1454.14,-3712 1488.73,-3712"/>
-<polygon fill="#000000" stroke="#000000" points="1488.99,-3715.5 1498.99,-3712 1488.99,-3708.5 1488.99,-3715.5"/>
+<!-- interface~symba_setup_initialize_particle_info&#45;&gt;proc~symba_setup_initialize_particle_info -->
+<g id="call~~graph~~CallGraph_edge201" class="edge">
+<title>interface~symba_setup_initialize_particle_info&#45;&gt;proc~symba_setup_initialize_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M648.26,-5017C657.93,-5017 667.81,-5017 677.59,-5017"/>
+<polygon fill="#000000" stroke="#000000" points="677.74,-5020.5 687.74,-5017 677.74,-5013.5 677.74,-5020.5"/>
 </g>
-<!-- proc~io_write_frame_system -->
-<g id="call~~graph~~CallGraph_node224" class="node">
-<title>proc~io_write_frame_system</title>
-<g id="a_call~~graph~~CallGraph_node224"><a xlink:href=".././proc/io_write_frame_system.html" xlink:title="io_write_frame_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="624,-3582 501,-3582 501,-3558 624,-3558 624,-3582"/>
-<text text-anchor="middle" x="562.5" y="-3567.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</text>
+<!-- proc~drift_one -->
+<g id="call~~graph~~CallGraph_node252" class="node">
+<title>proc~drift_one</title>
+<g id="a_call~~graph~~CallGraph_node252"><a xlink:href=".././proc/drift_one.html" xlink:title="drift_one">
+<polygon fill="#d9534f" stroke="#d9534f" points="354.5,-8273 299.5,-8273 299.5,-8249 354.5,-8249 354.5,-8273"/>
+<text text-anchor="middle" x="327" y="-8258.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_one</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_hdr -->
-<g id="call~~graph~~CallGraph_node232" class="node">
-<title>proc~io_write_hdr</title>
-<g id="a_call~~graph~~CallGraph_node232"><a xlink:href=".././proc/io_write_hdr.html" xlink:title="io_write_hdr">
-<polygon fill="#d9534f" stroke="#d9534f" points="839,-3601 768,-3601 768,-3577 839,-3577 839,-3601"/>
-<text text-anchor="middle" x="803.5" y="-3586.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_hdr</text>
+<!-- interface~symba_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node253" class="node">
+<title>interface~symba_setup_initialize_system</title>
+<g id="a_call~~graph~~CallGraph_node253"><a xlink:href=".././interface/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="177,-5029 17,-5029 17,-5005 177,-5005 177,-5029"/>
+<text text-anchor="middle" x="97" y="-5014.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_frame_system&#45;&gt;proc~io_write_hdr -->
-<g id="call~~graph~~CallGraph_edge229" class="edge">
-<title>proc~io_write_frame_system&#45;&gt;proc~io_write_hdr</title>
-<path fill="none" stroke="#000000" d="M624.12,-3574.82C665.71,-3578.13 719.98,-3582.44 757.69,-3585.44"/>
-<polygon fill="#000000" stroke="#000000" points="757.62,-3588.94 767.86,-3586.25 758.17,-3581.96 757.62,-3588.94"/>
+<!-- proc~symba_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node484" class="node">
+<title>proc~symba_setup_initialize_system</title>
+<g id="a_call~~graph~~CallGraph_node484"><a xlink:href=".././proc/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="407,-5029 247,-5029 247,-5005 407,-5005 407,-5029"/>
+<text text-anchor="middle" x="327" y="-5014.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
+</a>
 </g>
-<!-- proc~io_write_frame_system&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge230" class="edge">
-<title>proc~io_write_frame_system&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M624.21,-3568.06C709.13,-3564.49 858.34,-3554.81 906,-3530 971.81,-3495.75 1022.29,-3419.78 1043.94,-3382.9"/>
-<polygon fill="#000000" stroke="#000000" points="1047.1,-3384.42 1049.04,-3374.01 1041.03,-3380.94 1047.1,-3384.42"/>
 </g>
-<!-- proc~util_sort_index_sp -->
-<g id="call~~graph~~CallGraph_node225" class="node">
-<title>proc~util_sort_index_sp</title>
-<g id="a_call~~graph~~CallGraph_node225"><a xlink:href=".././proc/util_sort_index_sp.html" xlink:title="util_sort_index_sp">
-<polygon fill="#d9534f" stroke="#d9534f" points="146.5,-7496 47.5,-7496 47.5,-7472 146.5,-7472 146.5,-7496"/>
-<text text-anchor="middle" x="97" y="-7481.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_index_sp</text>
+<!-- interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_edge202" class="edge">
+<title>interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M177.1,-5017C196.27,-5017 216.89,-5017 236.5,-5017"/>
+<polygon fill="#000000" stroke="#000000" points="236.65,-5020.5 246.65,-5017 236.65,-5013.5 236.65,-5020.5"/>
+</g>
+<!-- interface~symba_setup_merger -->
+<g id="call~~graph~~CallGraph_node254" class="node">
+<title>interface~symba_setup_merger</title>
+<g id="a_call~~graph~~CallGraph_node254"><a xlink:href=".././interface/symba_setup_merger.html" xlink:title="symba_setup_merger">
+<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-6160 38.5,-6160 38.5,-6136 155.5,-6136 155.5,-6160"/>
+<text text-anchor="middle" x="97" y="-6145.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_merger</text>
 </a>
 </g>
 </g>
-<!-- proc~util_append_pl -->
-<g id="call~~graph~~CallGraph_node226" class="node">
-<title>proc~util_append_pl</title>
-<g id="a_call~~graph~~CallGraph_node226"><a xlink:href=".././proc/util_append_pl.html" xlink:title="util_append_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="844.5,-3727 762.5,-3727 762.5,-3703 844.5,-3703 844.5,-3727"/>
-<text text-anchor="middle" x="803.5" y="-3712.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
+<!-- proc~symba_setup_merger -->
+<g id="call~~graph~~CallGraph_node486" class="node">
+<title>proc~symba_setup_merger</title>
+<g id="a_call~~graph~~CallGraph_node486"><a xlink:href=".././proc/symba_setup_merger.html" xlink:title="symba_setup_merger">
+<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-6160 268.5,-6160 268.5,-6136 385.5,-6136 385.5,-6160"/>
+<text text-anchor="middle" x="327" y="-6145.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_merger</text>
 </a>
 </g>
 </g>
-<!-- proc~util_append_pl&#45;&gt;interface~util_append~2 -->
-<g id="call~~graph~~CallGraph_edge232" class="edge">
-<title>proc~util_append_pl&#45;&gt;interface~util_append~2</title>
-<path fill="none" stroke="#000000" d="M844.68,-3721.66C872.02,-3725.85 909.09,-3730.85 942,-3733 1161.09,-3747.28 1217.72,-3756.6 1436,-3733 1453.56,-3731.1 1472.61,-3727.31 1489.08,-3723.46"/>
-<polygon fill="#000000" stroke="#000000" points="1490.07,-3726.82 1498.97,-3721.07 1488.43,-3720.01 1490.07,-3726.82"/>
+<!-- interface~symba_setup_merger&#45;&gt;proc~symba_setup_merger -->
+<g id="call~~graph~~CallGraph_edge203" class="edge">
+<title>interface~symba_setup_merger&#45;&gt;proc~symba_setup_merger</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.53,-6148C186.72,-6148 225.45,-6148 258.11,-6148"/>
+<polygon fill="#000000" stroke="#000000" points="258.48,-6151.5 268.48,-6148 258.48,-6144.5 258.48,-6151.5"/>
 </g>
-<!-- proc~util_append_pl&#45;&gt;interface~util_append_body -->
-<g id="call~~graph~~CallGraph_edge231" class="edge">
-<title>proc~util_append_pl&#45;&gt;interface~util_append_body</title>
-<path fill="none" stroke="#000000" d="M844.55,-3714.52C885.94,-3714.03 950.95,-3713.25 997.86,-3712.69"/>
-<polygon fill="#000000" stroke="#000000" points="997.92,-3716.19 1007.88,-3712.57 997.84,-3709.19 997.92,-3716.19"/>
+<!-- interface~symba_setup_pl -->
+<g id="call~~graph~~CallGraph_node255" class="node">
+<title>interface~symba_setup_pl</title>
+<g id="a_call~~graph~~CallGraph_node255"><a xlink:href=".././interface/symba_setup_pl.html" xlink:title="symba_setup_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="601.5,-6160 510.5,-6160 510.5,-6136 601.5,-6136 601.5,-6160"/>
+<text text-anchor="middle" x="556" y="-6145.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_pl</text>
+</a>
 </g>
-<!-- proc~util_append_pl&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge233" class="edge">
-<title>proc~util_append_pl&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M844.84,-3715.18C865.15,-3713.31 889,-3707.89 906,-3694 937.46,-3668.3 925.55,-3647.14 942,-3610 979.38,-3525.63 1025.62,-3426 1045.57,-3383.23"/>
-<polygon fill="#000000" stroke="#000000" points="1048.79,-3384.62 1049.84,-3374.08 1042.44,-3381.66 1048.79,-3384.62"/>
 </g>
-<!-- proc~io_write_frame_cb -->
-<g id="call~~graph~~CallGraph_node227" class="node">
-<title>proc~io_write_frame_cb</title>
-<g id="a_call~~graph~~CallGraph_node227"><a xlink:href=".././proc/io_write_frame_cb.html" xlink:title="io_write_frame_cb">
-<polygon fill="#d9534f" stroke="#d9534f" points="377,-7538 277,-7538 277,-7514 377,-7514 377,-7538"/>
-<text text-anchor="middle" x="327" y="-7523.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_cb</text>
+<!-- proc~symba_setup_pl -->
+<g id="call~~graph~~CallGraph_node482" class="node">
+<title>proc~symba_setup_pl</title>
+<g id="a_call~~graph~~CallGraph_node482"><a xlink:href=".././proc/symba_setup_pl.html" xlink:title="symba_setup_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="825.5,-6160 734.5,-6160 734.5,-6136 825.5,-6136 825.5,-6160"/>
+<text text-anchor="middle" x="780" y="-6145.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_xv2el -->
-<g id="call~~graph~~CallGraph_node228" class="node">
-<title>proc~orbel_xv2el</title>
-<g id="a_call~~graph~~CallGraph_node228"><a xlink:href=".././proc/orbel_xv2el.html" xlink:title="orbel_xv2el">
-<polygon fill="#d9534f" stroke="#d9534f" points="596,-7580 529,-7580 529,-7556 596,-7556 596,-7580"/>
-<text text-anchor="middle" x="562.5" y="-7565.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el</text>
-</a>
-</g>
+<!-- interface~symba_setup_pl&#45;&gt;proc~symba_setup_pl -->
+<g id="call~~graph~~CallGraph_edge204" class="edge">
+<title>interface~symba_setup_pl&#45;&gt;proc~symba_setup_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.66,-6148C636.96,-6148 686.4,-6148 724.11,-6148"/>
+<polygon fill="#000000" stroke="#000000" points="724.41,-6151.5 734.41,-6148 724.41,-6144.5 724.41,-6151.5"/>
 </g>
-<!-- interface~kick_getacch_int_tp -->
-<g id="call~~graph~~CallGraph_node229" class="node">
-<title>interface~kick_getacch_int_tp</title>
-<g id="a_call~~graph~~CallGraph_node229"><a xlink:href=".././interface/kick_getacch_int_tp.html" xlink:title="kick_getacch_int_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="150,-2650 44,-2650 44,-2626 150,-2626 150,-2650"/>
-<text text-anchor="middle" x="97" y="-2635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_tp</text>
+<!-- interface~symba_setup_pltpenc -->
+<g id="call~~graph~~CallGraph_node257" class="node">
+<title>interface~symba_setup_pltpenc</title>
+<g id="a_call~~graph~~CallGraph_node257"><a xlink:href=".././interface/symba_setup_pltpenc.html" xlink:title="symba_setup_pltpenc">
+<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-5782 38.5,-5782 38.5,-5758 155.5,-5758 155.5,-5782"/>
+<text text-anchor="middle" x="97" y="-5767.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_pltpenc</text>
 </a>
 </g>
 </g>
-<!-- interface~kick_getacch_int_tp&#45;&gt;proc~kick_getacch_int_tp -->
-<g id="call~~graph~~CallGraph_edge234" class="edge">
-<title>interface~kick_getacch_int_tp&#45;&gt;proc~kick_getacch_int_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M150.02,-2638C183.76,-2638 227.89,-2638 263.52,-2638"/>
-<polygon fill="#000000" stroke="#000000" points="263.81,-2641.5 273.81,-2638 263.81,-2634.5 263.81,-2641.5"/>
+<!-- interface~symba_setup_pltpenc&#45;&gt;proc~symba_setup_pltpenc -->
+<g id="call~~graph~~CallGraph_edge205" class="edge">
+<title>interface~symba_setup_pltpenc&#45;&gt;proc~symba_setup_pltpenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.53,-5770C186.72,-5770 225.45,-5770 258.11,-5770"/>
+<polygon fill="#000000" stroke="#000000" points="258.48,-5773.5 268.48,-5770 258.48,-5766.5 258.48,-5773.5"/>
 </g>
-<!-- proc~util_spill_arr_char_string -->
-<g id="call~~graph~~CallGraph_node230" class="node">
-<title>proc~util_spill_arr_char_string</title>
-<g id="a_call~~graph~~CallGraph_node230"><a xlink:href=".././proc/util_spill_arr_char_string.html" xlink:title="util_spill_arr_char_string">
-<polygon fill="#d9534f" stroke="#d9534f" points="161.5,-7622 32.5,-7622 32.5,-7598 161.5,-7598 161.5,-7622"/>
-<text text-anchor="middle" x="97" y="-7607.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_char_string</text>
+<!-- proc~symba_util_resize_arr_kin -->
+<g id="call~~graph~~CallGraph_node258" class="node">
+<title>proc~symba_util_resize_arr_kin</title>
+<g id="a_call~~graph~~CallGraph_node258"><a xlink:href=".././proc/symba_util_resize_arr_kin.html" xlink:title="symba_util_resize_arr_kin">
+<polygon fill="#d9534f" stroke="#d9534f" points="165.5,-8315 28.5,-8315 28.5,-8291 165.5,-8291 165.5,-8315"/>
+<text text-anchor="middle" x="97" y="-8300.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_arr_kin</text>
 </a>
 </g>
 </g>
-<!-- proc~util_get_energy_momentum_system -->
-<g id="call~~graph~~CallGraph_node231" class="node">
-<title>proc~util_get_energy_momentum_system</title>
-<g id="a_call~~graph~~CallGraph_node231"><a xlink:href=".././proc/util_get_energy_momentum_system.html" xlink:title="util_get_energy_momentum_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="420,-7664 234,-7664 234,-7640 420,-7640 420,-7664"/>
-<text text-anchor="middle" x="327" y="-7649.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum_system</text>
+<!-- interface~symba_setup_tp -->
+<g id="call~~graph~~CallGraph_node259" class="node">
+<title>interface~symba_setup_tp</title>
+<g id="a_call~~graph~~CallGraph_node259"><a xlink:href=".././interface/symba_setup_tp.html" xlink:title="symba_setup_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-6203 51.5,-6203 51.5,-6179 142.5,-6179 142.5,-6203"/>
+<text text-anchor="middle" x="97" y="-6188.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~obl_pot -->
-<g id="call~~graph~~CallGraph_node267" class="node">
-<title>interface~obl_pot</title>
-<g id="a_call~~graph~~CallGraph_node267"><a xlink:href=".././interface/obl_pot.html" xlink:title="obl_pot">
-<polygon fill="#a7506f" stroke="#a7506f" points="589.5,-7664 535.5,-7664 535.5,-7640 589.5,-7640 589.5,-7664"/>
-<text text-anchor="middle" x="562.5" y="-7649.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot</text>
-</a>
+<!-- interface~symba_setup_tp&#45;&gt;proc~symba_setup_tp -->
+<g id="call~~graph~~CallGraph_edge206" class="edge">
+<title>interface~symba_setup_tp&#45;&gt;proc~symba_setup_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.5,-6191C179.26,-6191 231.61,-6191 270.99,-6191"/>
+<polygon fill="#000000" stroke="#000000" points="271.22,-6194.5 281.22,-6191 271.22,-6187.5 271.22,-6194.5"/>
 </g>
+<!-- interface~symba_step_system -->
+<g id="call~~graph~~CallGraph_node260" class="node">
+<title>interface~symba_step_system</title>
+<g id="a_call~~graph~~CallGraph_node260"><a xlink:href=".././interface/symba_step_system.html" xlink:title="symba_step_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="152,-4635 42,-4635 42,-4611 152,-4611 152,-4635"/>
+<text text-anchor="middle" x="97" y="-4620.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_system</text>
+</a>
 </g>
-<!-- proc~util_get_energy_momentum_system&#45;&gt;interface~obl_pot -->
-<g id="call~~graph~~CallGraph_edge235" class="edge">
-<title>proc~util_get_energy_momentum_system&#45;&gt;interface~obl_pot</title>
-<path fill="none" stroke="#000000" d="M420.29,-7652C457.02,-7652 497.14,-7652 525.2,-7652"/>
-<polygon fill="#000000" stroke="#000000" points="525.33,-7655.5 535.33,-7652 525.33,-7648.5 525.33,-7655.5"/>
 </g>
-<!-- proc~io_write_hdr&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge236" class="edge">
-<title>proc~io_write_hdr&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M839.31,-3585.95C860.1,-3582.78 886.21,-3576.28 906,-3563 976.06,-3515.99 1025.79,-3424.79 1045.77,-3383.38"/>
-<polygon fill="#000000" stroke="#000000" points="1049,-3384.75 1050.1,-3374.21 1042.67,-3381.76 1049,-3384.75"/>
+<!-- interface~symba_step_system&#45;&gt;proc~symba_step_system -->
+<g id="call~~graph~~CallGraph_edge207" class="edge">
+<title>interface~symba_step_system&#45;&gt;proc~symba_step_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M152.03,-4623C184.99,-4623 227.3,-4623 261.94,-4623"/>
+<polygon fill="#000000" stroke="#000000" points="261.96,-4626.5 271.96,-4623 261.96,-4619.5 261.96,-4626.5"/>
 </g>
-<!-- proc~util_spill_arr_logical -->
-<g id="call~~graph~~CallGraph_node233" class="node">
-<title>proc~util_spill_arr_logical</title>
-<g id="a_call~~graph~~CallGraph_node233"><a xlink:href=".././proc/util_spill_arr_logical.html" xlink:title="util_spill_arr_logical">
-<polygon fill="#d9534f" stroke="#d9534f" points="150,-7706 44,-7706 44,-7682 150,-7682 150,-7706"/>
-<text text-anchor="middle" x="97" y="-7691.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_logical</text>
+<!-- proc~drift_dan -->
+<g id="call~~graph~~CallGraph_node261" class="node">
+<title>proc~drift_dan</title>
+<g id="a_call~~graph~~CallGraph_node261"><a xlink:href=".././proc/drift_dan.html" xlink:title="drift_dan">
+<polygon fill="#d9534f" stroke="#d9534f" points="583.5,-2088 528.5,-2088 528.5,-2064 583.5,-2064 583.5,-2088"/>
+<text text-anchor="middle" x="556" y="-2073.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_dan</text>
 </a>
 </g>
 </g>
-<!-- proc~gr_kick_getaccb_ns_body -->
-<g id="call~~graph~~CallGraph_node234" class="node">
-<title>proc~gr_kick_getaccb_ns_body</title>
-<g id="a_call~~graph~~CallGraph_node234"><a xlink:href=".././proc/gr_kick_getaccb_ns_body.html" xlink:title="gr_kick_getaccb_ns_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="395,-7748 259,-7748 259,-7724 395,-7724 395,-7748"/>
-<text text-anchor="middle" x="327" y="-7733.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_kick_getaccb_ns_body</text>
-</a>
-</g>
+<!-- proc~drift_dan&#45;&gt;proc~drift_kepmd -->
+<g id="call~~graph~~CallGraph_edge209" class="edge">
+<title>proc~drift_dan&#45;&gt;proc~drift_kepmd</title>
+<path fill="none" stroke="#000000" d="M583.78,-2073.47C621.33,-2069.91 690.08,-2063.41 735.16,-2059.15"/>
+<polygon fill="#000000" stroke="#000000" points="735.61,-2062.62 745.24,-2058.19 734.95,-2055.65 735.61,-2062.62"/>
 </g>
-<!-- proc~util_spill_arr_dp -->
-<g id="call~~graph~~CallGraph_node235" class="node">
-<title>proc~util_spill_arr_dp</title>
-<g id="a_call~~graph~~CallGraph_node235"><a xlink:href=".././proc/util_spill_arr_dp.html" xlink:title="util_spill_arr_DP">
-<polygon fill="#d9534f" stroke="#d9534f" points="142,-7790 52,-7790 52,-7766 142,-7766 142,-7790"/>
-<text text-anchor="middle" x="97" y="-7775.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_DP</text>
+<!-- proc~drift_kepu -->
+<g id="call~~graph~~CallGraph_node289" class="node">
+<title>proc~drift_kepu</title>
+<g id="a_call~~graph~~CallGraph_node289"><a xlink:href=".././proc/drift_kepu.html" xlink:title="drift_kepu">
+<polygon fill="#d9534f" stroke="#d9534f" points="810,-2109 750,-2109 750,-2085 810,-2085 810,-2109"/>
+<text text-anchor="middle" x="780" y="-2094.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_arr_dpvec -->
-<g id="call~~graph~~CallGraph_node236" class="node">
-<title>proc~util_spill_arr_dpvec</title>
-<g id="a_call~~graph~~CallGraph_node236"><a xlink:href=".././proc/util_spill_arr_dpvec.html" xlink:title="util_spill_arr_DPvec">
-<polygon fill="#d9534f" stroke="#d9534f" points="150,-7832 44,-7832 44,-7808 150,-7808 150,-7832"/>
-<text text-anchor="middle" x="97" y="-7817.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_DPvec</text>
+<!-- proc~drift_dan&#45;&gt;proc~drift_kepu -->
+<g id="call~~graph~~CallGraph_edge208" class="edge">
+<title>proc~drift_dan&#45;&gt;proc~drift_kepu</title>
+<path fill="none" stroke="#000000" d="M583.78,-2078.53C622.62,-2082.21 694.82,-2089.04 739.7,-2093.28"/>
+<polygon fill="#000000" stroke="#000000" points="739.37,-2096.77 749.66,-2094.22 740.03,-2089.8 739.37,-2096.77"/>
+</g>
+<!-- interface~symba_step_interp_system -->
+<g id="call~~graph~~CallGraph_node262" class="node">
+<title>interface~symba_step_interp_system</title>
+<g id="a_call~~graph~~CallGraph_node262"><a xlink:href=".././interface/symba_step_interp_system.html" xlink:title="symba_step_interp_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="168.5,-6495 25.5,-6495 25.5,-6471 168.5,-6471 168.5,-6495"/>
+<text text-anchor="middle" x="97" y="-6480.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_interp_system</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_coord_h2j_pl -->
-<g id="call~~graph~~CallGraph_node237" class="node">
-<title>proc~whm_coord_h2j_pl</title>
-<g id="a_call~~graph~~CallGraph_node237"><a xlink:href=".././proc/whm_coord_h2j_pl.html" xlink:title="whm_coord_h2j_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="378.5,-6130 275.5,-6130 275.5,-6106 378.5,-6106 378.5,-6130"/>
-<text text-anchor="middle" x="327" y="-6115.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_h2j_pl</text>
-</a>
+<!-- interface~symba_step_interp_system&#45;&gt;proc~symba_step_interp_system -->
+<g id="call~~graph~~CallGraph_edge210" class="edge">
+<title>interface~symba_step_interp_system&#45;&gt;proc~symba_step_interp_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M168.58,-6483C192.83,-6483 220.17,-6483 245.17,-6483"/>
+<polygon fill="#000000" stroke="#000000" points="245.36,-6486.5 255.36,-6483 245.36,-6479.5 245.36,-6486.5"/>
 </g>
+<!-- interface~symba_step_set_recur_levels_system -->
+<g id="call~~graph~~CallGraph_node264" class="node">
+<title>interface~symba_step_set_recur_levels_system</title>
+<g id="a_call~~graph~~CallGraph_node264"><a xlink:href=".././interface/symba_step_set_recur_levels_system.html" xlink:title="symba_step_set_recur_levels_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="194,-6380 0,-6380 0,-6356 194,-6356 194,-6380"/>
+<text text-anchor="middle" x="97" y="-6365.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_set_recur_levels_system</text>
+</a>
 </g>
-<!-- gmpl -->
-<g id="call~~graph~~CallGraph_node555" class="node">
-<title>gmpl</title>
-<polygon fill="#777777" stroke="#777777" points="589.5,-6046 535.5,-6046 535.5,-6022 589.5,-6022 589.5,-6046"/>
-<text text-anchor="middle" x="562.5" y="-6031.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gmpl</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;gmpl -->
-<g id="call~~graph~~CallGraph_edge238" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;gmpl</title>
-<path fill="none" stroke="#000000" d="M378.63,-6113.2C393.99,-6110.14 410.38,-6105.14 424,-6097 445.1,-6084.39 438.83,-6067.49 460,-6055 479.66,-6043.4 504.77,-6038.14 525.09,-6035.78"/>
-<polygon fill="#000000" stroke="#000000" points="525.61,-6039.25 535.23,-6034.8 524.94,-6032.28 525.61,-6039.25"/>
+<!-- interface~symba_step_set_recur_levels_system&#45;&gt;proc~symba_step_set_recur_levels_system -->
+<g id="call~~graph~~CallGraph_edge211" class="edge">
+<title>interface~symba_step_set_recur_levels_system&#45;&gt;proc~symba_step_set_recur_levels_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M194.03,-6368C202.52,-6368 211.14,-6368 219.7,-6368"/>
+<polygon fill="#000000" stroke="#000000" points="219.71,-6371.5 229.71,-6368 219.71,-6364.5 219.71,-6371.5"/>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;vh -->
-<g id="call~~graph~~CallGraph_edge242" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;vh</title>
-<path fill="none" stroke="#000000" d="M378.63,-6122.8C393.99,-6125.86 410.38,-6130.86 424,-6139 445.1,-6151.61 438.83,-6168.51 460,-6181 479.66,-6192.6 504.77,-6197.86 525.09,-6200.22"/>
-<polygon fill="#000000" stroke="#000000" points="524.94,-6203.72 535.23,-6201.2 525.61,-6196.75 524.94,-6203.72"/>
+<!-- interface~symba_step_recur_system -->
+<g id="call~~graph~~CallGraph_node265" class="node">
+<title>interface~symba_step_recur_system</title>
+<g id="a_call~~graph~~CallGraph_node265"><a xlink:href=".././interface/symba_step_recur_system.html" xlink:title="symba_step_recur_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="1081,-5257 940,-5257 940,-5233 1081,-5233 1081,-5257"/>
+<text text-anchor="middle" x="1010.5" y="-5242.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_recur_system</text>
+</a>
 </g>
-<!-- eta -->
-<g id="call~~graph~~CallGraph_node589" class="node">
-<title>eta</title>
-<polygon fill="#777777" stroke="#777777" points="589.5,-6130 535.5,-6130 535.5,-6106 589.5,-6106 589.5,-6130"/>
-<text text-anchor="middle" x="562.5" y="-6115.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;eta -->
-<g id="call~~graph~~CallGraph_edge241" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;eta</title>
-<path fill="none" stroke="#000000" d="M378.67,-6118C422.9,-6118 486,-6118 525.31,-6118"/>
-<polygon fill="#000000" stroke="#000000" points="525.49,-6121.5 535.49,-6118 525.49,-6114.5 525.49,-6121.5"/>
+<!-- interface~symba_step_recur_system&#45;&gt;proc~symba_step_recur_system -->
+<g id="call~~graph~~CallGraph_edge212" class="edge">
+<title>interface~symba_step_recur_system&#45;&gt;proc~symba_step_recur_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1081.27,-5233.91C1109.25,-5229.46 1141.65,-5224.31 1170.57,-5219.71"/>
+<polygon fill="#000000" stroke="#000000" points="1171.32,-5223.13 1180.64,-5218.11 1170.22,-5216.22 1171.32,-5223.13"/>
 </g>
-<!-- xj -->
-<g id="call~~graph~~CallGraph_node591" class="node">
-<title>xj</title>
-<polygon fill="#777777" stroke="#777777" points="589.5,-6172 535.5,-6172 535.5,-6148 589.5,-6148 589.5,-6172"/>
-<text text-anchor="middle" x="562.5" y="-6157.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xj</text>
+<!-- interface~symba_step_reset_system -->
+<g id="call~~graph~~CallGraph_node266" class="node">
+<title>interface~symba_step_reset_system</title>
+<g id="a_call~~graph~~CallGraph_node266"><a xlink:href=".././interface/symba_step_reset_system.html" xlink:title="symba_step_reset_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="167,-6788 27,-6788 27,-6764 167,-6764 167,-6788"/>
+<text text-anchor="middle" x="97" y="-6773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step_reset_system</text>
+</a>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;xj -->
-<g id="call~~graph~~CallGraph_edge240" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;xj</title>
-<path fill="none" stroke="#000000" d="M378.67,-6127.11C422.99,-6135.09 486.27,-6146.47 525.56,-6153.54"/>
-<polygon fill="#000000" stroke="#000000" points="525.03,-6157 535.49,-6155.32 526.27,-6150.11 525.03,-6157"/>
 </g>
-<!-- vj -->
-<g id="call~~graph~~CallGraph_node612" class="node">
-<title>vj</title>
-<polygon fill="#777777" stroke="#777777" points="589.5,-6088 535.5,-6088 535.5,-6064 589.5,-6064 589.5,-6088"/>
-<text text-anchor="middle" x="562.5" y="-6073.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
+<!-- interface~symba_step_reset_system&#45;&gt;proc~symba_step_reset_system -->
+<g id="call~~graph~~CallGraph_edge213" class="edge">
+<title>interface~symba_step_reset_system&#45;&gt;proc~symba_step_reset_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M167.03,-6776C192.13,-6776 220.71,-6776 246.64,-6776"/>
+<polygon fill="#000000" stroke="#000000" points="246.82,-6779.5 256.82,-6776 246.82,-6772.5 246.82,-6779.5"/>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;vj -->
-<g id="call~~graph~~CallGraph_edge239" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;vj</title>
-<path fill="none" stroke="#000000" d="M378.67,-6108.89C422.99,-6100.91 486.27,-6089.53 525.56,-6082.46"/>
-<polygon fill="#000000" stroke="#000000" points="526.27,-6085.89 535.49,-6080.68 525.03,-6079 526.27,-6085.89"/>
+<!-- proc~symba_util_resize_merger -->
+<g id="call~~graph~~CallGraph_node267" class="node">
+<title>proc~symba_util_resize_merger</title>
+<g id="a_call~~graph~~CallGraph_node267"><a xlink:href=".././proc/symba_util_resize_merger.html" xlink:title="symba_util_resize_merger">
+<polygon fill="#d9534f" stroke="#d9534f" points="396.5,-6631 257.5,-6631 257.5,-6607 396.5,-6607 396.5,-6631"/>
+<text text-anchor="middle" x="327" y="-6616.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_merger</text>
+</a>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;xh -->
-<g id="call~~graph~~CallGraph_edge237" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;xh</title>
-<path fill="none" stroke="#000000" d="M378.83,-6120.13C394.72,-6123.01 411.37,-6128.57 424,-6139 455.31,-6164.87 428.54,-6197.3 460,-6223 478.12,-6237.8 504.02,-6242.99 525.12,-6244.5"/>
-<polygon fill="#000000" stroke="#000000" points="525.19,-6248.01 535.34,-6244.99 525.52,-6241.02 525.19,-6248.01"/>
 </g>
-<!-- proc~util_spill_arr_i4b -->
-<g id="call~~graph~~CallGraph_node238" class="node">
-<title>proc~util_spill_arr_i4b</title>
-<g id="a_call~~graph~~CallGraph_node238"><a xlink:href=".././proc/util_spill_arr_i4b.html" xlink:title="util_spill_arr_I4B">
-<polygon fill="#d9534f" stroke="#d9534f" points="142.5,-7874 51.5,-7874 51.5,-7850 142.5,-7850 142.5,-7874"/>
-<text text-anchor="middle" x="97" y="-7859.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_arr_I4B</text>
+<!-- interface~util_resize -->
+<g id="call~~graph~~CallGraph_node286" class="node">
+<title>interface~util_resize</title>
+<g id="a_call~~graph~~CallGraph_node286"><a xlink:href=".././interface/util_resize.html" xlink:title="util_resize">
+<polygon fill="#a7506f" stroke="#a7506f" points="1041,-6582 980,-6582 980,-6558 1041,-6558 1041,-6582"/>
+<text text-anchor="middle" x="1010.5" y="-6567.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_pl&#45;&gt;interface~util_spill_body -->
-<g id="call~~graph~~CallGraph_edge243" class="edge">
-<title>proc~util_spill_pl&#45;&gt;interface~util_spill_body</title>
-<path fill="none" stroke="#000000" d="M359.01,-7061.34C398.34,-7057.98 466.59,-7052.13 512.88,-7048.16"/>
-<polygon fill="#000000" stroke="#000000" points="513.32,-7051.64 522.98,-7047.3 512.72,-7044.67 513.32,-7051.64"/>
+<!-- proc~symba_util_resize_merger&#45;&gt;interface~util_resize -->
+<g id="call~~graph~~CallGraph_edge214" class="edge">
+<title>proc~symba_util_resize_merger&#45;&gt;interface~util_resize</title>
+<path fill="none" stroke="#000000" d="M395.98,-6631.02C499.92,-6647.11 704.01,-6669.65 872,-6633 911.93,-6624.29 954.13,-6602.88 981.09,-6587.44"/>
+<polygon fill="#000000" stroke="#000000" points="983.09,-6590.32 989.95,-6582.25 979.56,-6584.28 983.09,-6590.32"/>
 </g>
-<!-- interface~util_spill~2 -->
-<g id="call~~graph~~CallGraph_node399" class="node">
-<title>interface~util_spill~2</title>
-<g id="a_call~~graph~~CallGraph_node399"><a xlink:href=".././interface/util_spill~2.html" xlink:title="util_spill">
-<polygon fill="#a7506f" stroke="#a7506f" points="1083.5,-7035 1029.5,-7035 1029.5,-7011 1083.5,-7011 1083.5,-7035"/>
-<text text-anchor="middle" x="1056.5" y="-7020.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+<!-- interface~symba_util_resize_pl -->
+<g id="call~~graph~~CallGraph_node345" class="node">
+<title>interface~symba_util_resize_pl</title>
+<g id="a_call~~graph~~CallGraph_node345"><a xlink:href=".././interface/symba_util_resize_pl.html" xlink:title="symba_util_resize_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="612,-6570 500,-6570 500,-6546 612,-6546 612,-6570"/>
+<text text-anchor="middle" x="556" y="-6555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_pl&#45;&gt;interface~util_spill~2 -->
-<g id="call~~graph~~CallGraph_edge244" class="edge">
-<title>proc~util_spill_pl&#45;&gt;interface~util_spill~2</title>
-<path fill="none" stroke="#000000" d="M359.22,-7067.07C446.28,-7074.98 698.98,-7093.53 906,-7065 945.83,-7059.51 989.99,-7046.16 1019.92,-7035.98"/>
-<polygon fill="#000000" stroke="#000000" points="1021.19,-7039.24 1029.5,-7032.66 1018.9,-7032.62 1021.19,-7039.24"/>
+<!-- proc~symba_util_resize_merger&#45;&gt;interface~symba_util_resize_pl -->
+<g id="call~~graph~~CallGraph_edge215" class="edge">
+<title>proc~symba_util_resize_merger&#45;&gt;interface~symba_util_resize_pl</title>
+<path fill="none" stroke="#000000" d="M372.85,-6606.95C409.38,-6597.13 461.11,-6583.23 500.11,-6572.75"/>
+<polygon fill="#000000" stroke="#000000" points="501.5,-6576 510.25,-6570.03 499.68,-6569.24 501.5,-6576"/>
 </g>
-<!-- proc~setup_construct_system -->
-<g id="call~~graph~~CallGraph_node240" class="node">
-<title>proc~setup_construct_system</title>
-<g id="a_call~~graph~~CallGraph_node240"><a xlink:href=".././proc/setup_construct_system.html" xlink:title="setup_construct_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="867.5,-3521 739.5,-3521 739.5,-3497 867.5,-3497 867.5,-3521"/>
-<text text-anchor="middle" x="803.5" y="-3506.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
+<!-- proc~symba_util_resize_pl -->
+<g id="call~~graph~~CallGraph_node269" class="node">
+<title>proc~symba_util_resize_pl</title>
+<g id="a_call~~graph~~CallGraph_node269"><a xlink:href=".././proc/symba_util_resize_pl.html" xlink:title="symba_util_resize_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="836,-6540 724,-6540 724,-6516 836,-6516 836,-6540"/>
+<text text-anchor="middle" x="780" y="-6525.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~setup_construct_system&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge245" class="edge">
-<title>proc~setup_construct_system&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M867.57,-3501.01C880.67,-3497.97 894.1,-3493.78 906,-3488 960.74,-3461.41 1012.14,-3410.26 1038.02,-3381.99"/>
-<polygon fill="#000000" stroke="#000000" points="1040.83,-3384.11 1044.92,-3374.34 1035.63,-3379.42 1040.83,-3384.11"/>
+<!-- proc~symba_util_resize_pl&#45;&gt;interface~util_resize -->
+<g id="call~~graph~~CallGraph_edge216" class="edge">
+<title>proc~symba_util_resize_pl&#45;&gt;interface~util_resize</title>
+<path fill="none" stroke="#000000" d="M836.02,-6538.11C877.3,-6545.7 932.85,-6555.91 969.85,-6562.71"/>
+<polygon fill="#000000" stroke="#000000" points="969.29,-6566.17 979.76,-6564.53 970.56,-6559.28 969.29,-6566.17"/>
 </g>
-<!-- proc~util_spill_body&#45;&gt;interface~util_spill~2 -->
-<g id="call~~graph~~CallGraph_edge246" class="edge">
-<title>proc~util_spill_body&#45;&gt;interface~util_spill~2</title>
-<path fill="none" stroke="#000000" d="M843.17,-7040.76C891.24,-7036.74 972.64,-7029.93 1019.46,-7026.02"/>
-<polygon fill="#000000" stroke="#000000" points="1019.79,-7029.5 1029.46,-7025.18 1019.2,-7022.52 1019.79,-7029.5"/>
+<!-- util_resize_pl -->
+<g id="call~~graph~~CallGraph_node595" class="node">
+<title>util_resize_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1048,-6530 973,-6530 973,-6506 1048,-6506 1048,-6530"/>
+<text text-anchor="middle" x="1010.5" y="-6515.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
 </g>
-<!-- proc~util_spill_encounter&#45;&gt;interface~util_spill~2 -->
-<g id="call~~graph~~CallGraph_edge247" class="edge">
-<title>proc~util_spill_encounter&#45;&gt;interface~util_spill~2</title>
-<path fill="none" stroke="#000000" d="M855.6,-7006.27C904.33,-7010.35 976.48,-7016.39 1019.47,-7019.99"/>
-<polygon fill="#000000" stroke="#000000" points="1019.22,-7023.48 1029.47,-7020.82 1019.8,-7016.5 1019.22,-7023.48"/>
+<!-- proc~symba_util_resize_pl&#45;&gt;util_resize_pl -->
+<g id="call~~graph~~CallGraph_edge217" class="edge">
+<title>proc~symba_util_resize_pl&#45;&gt;util_resize_pl</title>
+<path fill="none" stroke="#000000" d="M836.02,-6525.59C874.6,-6523.9 925.64,-6521.67 962.36,-6520.06"/>
+<polygon fill="#000000" stroke="#000000" points="962.95,-6523.54 972.78,-6519.61 962.64,-6516.55 962.95,-6523.54"/>
 </g>
-<!-- proc~setup_tp -->
-<g id="call~~graph~~CallGraph_node243" class="node">
-<title>proc~setup_tp</title>
-<g id="a_call~~graph~~CallGraph_node243"><a xlink:href=".././proc/setup_tp.html" xlink:title="setup_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="354,-7916 300,-7916 300,-7892 354,-7892 354,-7916"/>
-<text text-anchor="middle" x="327" y="-7901.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_tp</text>
+<!-- proc~symba_discard_cb_pl -->
+<g id="call~~graph~~CallGraph_node270" class="node">
+<title>proc~symba_discard_cb_pl</title>
+<g id="a_call~~graph~~CallGraph_node270"><a xlink:href=".././proc/symba_discard_cb_pl.html" xlink:title="symba_discard_cb_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="838,-8048 722,-8048 722,-8024 838,-8024 838,-8048"/>
+<text text-anchor="middle" x="780" y="-8033.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_cb_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_body -->
-<g id="call~~graph~~CallGraph_node278" class="node">
-<title>interface~setup_body</title>
-<g id="a_call~~graph~~CallGraph_node278"><a xlink:href=".././interface/setup_body.html" xlink:title="setup_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="596.5,-7937 528.5,-7937 528.5,-7913 596.5,-7913 596.5,-7937"/>
-<text text-anchor="middle" x="562.5" y="-7922.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_body</text>
-</a>
-</g>
+<!-- proc~util_sort_tp&#45;&gt;interface~util_sort_body -->
+<g id="call~~graph~~CallGraph_edge218" class="edge">
+<title>proc~util_sort_tp&#45;&gt;interface~util_sort_body</title>
+<path fill="none" stroke="#000000" d="M359.56,-4324.55C397.54,-4319.2 461.71,-4310.15 506.11,-4303.89"/>
+<polygon fill="#000000" stroke="#000000" points="506.69,-4307.34 516.11,-4302.48 505.72,-4300.41 506.69,-4307.34"/>
 </g>
-<!-- proc~setup_tp&#45;&gt;interface~setup_body -->
-<g id="call~~graph~~CallGraph_edge248" class="edge">
-<title>proc~setup_tp&#45;&gt;interface~setup_body</title>
-<path fill="none" stroke="#000000" d="M354.33,-7906.37C394.11,-7909.95 469.98,-7916.77 518.03,-7921.09"/>
-<polygon fill="#000000" stroke="#000000" points="517.86,-7924.59 528.14,-7922 518.49,-7917.62 517.86,-7924.59"/>
+<!-- proc~util_sort_pl&#45;&gt;interface~util_sort_body -->
+<g id="call~~graph~~CallGraph_edge219" class="edge">
+<title>proc~util_sort_pl&#45;&gt;interface~util_sort_body</title>
+<path fill="none" stroke="#000000" d="M359.09,-4288.37C397.05,-4290.04 461.7,-4292.89 506.29,-4294.85"/>
+<polygon fill="#000000" stroke="#000000" points="506.18,-4298.35 516.32,-4295.3 506.49,-4291.36 506.18,-4298.35"/>
 </g>
-<!-- proc~setup_encounter -->
-<g id="call~~graph~~CallGraph_node244" class="node">
-<title>proc~setup_encounter</title>
-<g id="a_call~~graph~~CallGraph_node244"><a xlink:href=".././proc/setup_encounter.html" xlink:title="setup_encounter">
-<polygon fill="#d9534f" stroke="#d9534f" points="373.5,-8000 280.5,-8000 280.5,-7976 373.5,-7976 373.5,-8000"/>
-<text text-anchor="middle" x="327" y="-7985.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_encounter</text>
+<!-- proc~symba_discard_nonplpl -->
+<g id="call~~graph~~CallGraph_node273" class="node">
+<title>proc~symba_discard_nonplpl</title>
+<g id="a_call~~graph~~CallGraph_node273"><a xlink:href=".././proc/symba_discard_nonplpl.html" xlink:title="symba_discard_nonplpl">
+<polygon fill="#d9534f" stroke="#d9534f" points="618.5,-8048 493.5,-8048 493.5,-8024 618.5,-8024 618.5,-8048"/>
+<text text-anchor="middle" x="556" y="-8033.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_nonplpl</text>
 </a>
 </g>
 </g>
-<!-- proc~setup_initialize_system -->
-<g id="call~~graph~~CallGraph_node245" class="node">
-<title>proc~setup_initialize_system</title>
-<g id="a_call~~graph~~CallGraph_node245"><a xlink:href=".././proc/setup_initialize_system.html" xlink:title="setup_initialize_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="388,-3643 266,-3643 266,-3619 388,-3619 388,-3643"/>
-<text text-anchor="middle" x="327" y="-3628.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
+<!-- proc~symba_discard_nonplpl&#45;&gt;proc~symba_discard_cb_pl -->
+<g id="call~~graph~~CallGraph_edge220" class="edge">
+<title>proc~symba_discard_nonplpl&#45;&gt;proc~symba_discard_cb_pl</title>
+<path fill="none" stroke="#000000" d="M618.54,-8036C647.47,-8036 682.03,-8036 711.65,-8036"/>
+<polygon fill="#000000" stroke="#000000" points="711.91,-8039.5 721.91,-8036 711.91,-8032.5 711.91,-8039.5"/>
+</g>
+<!-- proc~symba_util_resize_tp -->
+<g id="call~~graph~~CallGraph_node275" class="node">
+<title>proc~symba_util_resize_tp</title>
+<g id="a_call~~graph~~CallGraph_node275"><a xlink:href=".././proc/symba_util_resize_tp.html" xlink:title="symba_util_resize_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="836.5,-6498 723.5,-6498 723.5,-6474 836.5,-6474 836.5,-6498"/>
+<text text-anchor="middle" x="780" y="-6483.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~setup_initialize_system&#45;&gt;interface~util_valid -->
-<g id="call~~graph~~CallGraph_edge249" class="edge">
-<title>proc~setup_initialize_system&#45;&gt;interface~util_valid</title>
-<path fill="none" stroke="#000000" d="M388.13,-3631C431.42,-3631 488.42,-3631 525.02,-3631"/>
-<polygon fill="#000000" stroke="#000000" points="525.23,-3634.5 535.22,-3631 525.22,-3627.5 525.23,-3634.5"/>
+<!-- proc~symba_util_resize_tp&#45;&gt;interface~util_resize -->
+<g id="call~~graph~~CallGraph_edge221" class="edge">
+<title>proc~symba_util_resize_tp&#45;&gt;interface~util_resize</title>
+<path fill="none" stroke="#000000" d="M836.94,-6494.28C848.91,-6497.31 861.2,-6501.42 872,-6507 891.02,-6516.82 889.33,-6528.52 908,-6539 927.15,-6549.75 950.48,-6557.21 969.94,-6562.12"/>
+<polygon fill="#000000" stroke="#000000" points="969.18,-6565.53 979.72,-6564.45 970.81,-6558.72 969.18,-6565.53"/>
 </g>
-<!-- proc~util_spill_tp&#45;&gt;interface~util_spill_body -->
-<g id="call~~graph~~CallGraph_edge250" class="edge">
-<title>proc~util_spill_tp&#45;&gt;interface~util_spill_body</title>
-<path fill="none" stroke="#000000" d="M358.84,-6989.04C385.36,-6999.08 424.8,-7013.27 460,-7023 476.95,-7027.68 495.75,-7031.85 512.51,-7035.22"/>
-<polygon fill="#000000" stroke="#000000" points="512.17,-7038.72 522.66,-7037.2 513.52,-7031.85 512.17,-7038.72"/>
+<!-- util_resize_tp -->
+<g id="call~~graph~~CallGraph_node616" class="node">
+<title>util_resize_tp</title>
+<polygon fill="#777777" stroke="#777777" points="1048.5,-6477 972.5,-6477 972.5,-6453 1048.5,-6453 1048.5,-6477"/>
+<text text-anchor="middle" x="1010.5" y="-6462.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
 </g>
-<!-- proc~util_spill_tp&#45;&gt;interface~util_spill~2 -->
-<g id="call~~graph~~CallGraph_edge251" class="edge">
-<title>proc~util_spill_tp&#45;&gt;interface~util_spill~2</title>
-<path fill="none" stroke="#000000" d="M359.54,-6974.29C446.93,-6967.41 699.33,-6951.79 906,-6981 945.81,-6986.63 989.98,-6999.95 1019.91,-7010.1"/>
-<polygon fill="#000000" stroke="#000000" points="1018.9,-7013.45 1029.49,-7013.4 1021.18,-7006.83 1018.9,-7013.45"/>
+<!-- proc~symba_util_resize_tp&#45;&gt;util_resize_tp -->
+<g id="call~~graph~~CallGraph_edge222" class="edge">
+<title>proc~symba_util_resize_tp&#45;&gt;util_resize_tp</title>
+<path fill="none" stroke="#000000" d="M836.61,-6480.89C874.96,-6477.36 925.41,-6472.73 961.91,-6469.37"/>
+<polygon fill="#000000" stroke="#000000" points="962.65,-6472.82 972.28,-6468.42 962.01,-6465.85 962.65,-6472.82"/>
 </g>
-<!-- proc~setup_body -->
-<g id="call~~graph~~CallGraph_node247" class="node">
-<title>proc~setup_body</title>
-<g id="a_call~~graph~~CallGraph_node247"><a xlink:href=".././proc/setup_body.html" xlink:title="setup_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="837.5,-7937 769.5,-7937 769.5,-7913 837.5,-7913 837.5,-7937"/>
-<text text-anchor="middle" x="803.5" y="-7922.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_body</text>
+<!-- proc~symba_discard_conserve_mtm -->
+<g id="call~~graph~~CallGraph_node276" class="node">
+<title>proc~symba_discard_conserve_mtm</title>
+<g id="a_call~~graph~~CallGraph_node276"><a xlink:href=".././proc/symba_discard_conserve_mtm.html" xlink:title="symba_discard_conserve_mtm">
+<polygon fill="#d9534f" stroke="#d9534f" points="177.5,-8357 16.5,-8357 16.5,-8333 177.5,-8333 177.5,-8357"/>
+<text text-anchor="middle" x="97" y="-8342.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_conserve_mtm</text>
 </a>
 </g>
 </g>
-<!-- proc~gr_p4_pos_kick -->
-<g id="call~~graph~~CallGraph_node248" class="node">
-<title>proc~gr_p4_pos_kick</title>
-<g id="a_call~~graph~~CallGraph_node248"><a xlink:href=".././proc/gr_p4_pos_kick.html" xlink:title="gr_p4_pos_kick">
-<polygon fill="#d9534f" stroke="#d9534f" points="371,-8042 283,-8042 283,-8018 371,-8018 371,-8042"/>
-<text text-anchor="middle" x="327" y="-8027.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_p4_pos_kick</text>
+<!-- proc~symba_discard_peri_pl -->
+<g id="call~~graph~~CallGraph_node277" class="node">
+<title>proc~symba_discard_peri_pl</title>
+<g id="a_call~~graph~~CallGraph_node277"><a xlink:href=".././proc/symba_discard_peri_pl.html" xlink:title="symba_discard_peri_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="158.5,-8399 35.5,-8399 35.5,-8375 158.5,-8375 158.5,-8399"/>
+<text text-anchor="middle" x="97" y="-8384.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_peri_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~gr_kick_getacch -->
-<g id="call~~graph~~CallGraph_node249" class="node">
-<title>proc~gr_kick_getacch</title>
-<g id="a_call~~graph~~CallGraph_node249"><a xlink:href=".././proc/gr_kick_getacch.html" xlink:title="gr_kick_getacch">
-<polygon fill="#d9534f" stroke="#d9534f" points="372,-8084 282,-8084 282,-8060 372,-8060 372,-8084"/>
-<text text-anchor="middle" x="327" y="-8069.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_kick_getacch</text>
+<!-- proc~symba_util_sort_pl -->
+<g id="call~~graph~~CallGraph_node278" class="node">
+<title>proc~symba_util_sort_pl</title>
+<g id="a_call~~graph~~CallGraph_node278"><a xlink:href=".././proc/symba_util_sort_pl.html" xlink:title="symba_util_sort_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="378,-6872 276,-6872 276,-6848 378,-6848 378,-6872"/>
+<text text-anchor="middle" x="327" y="-6857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~gr_pv2vh_body -->
-<g id="call~~graph~~CallGraph_node250" class="node">
-<title>proc~gr_pv2vh_body</title>
-<g id="a_call~~graph~~CallGraph_node250"><a xlink:href=".././proc/gr_pv2vh_body.html" xlink:title="gr_pv2vh_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="370,-8126 284,-8126 284,-8102 370,-8102 370,-8126"/>
-<text text-anchor="middle" x="327" y="-8111.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_pv2vh_body</text>
-</a>
+<!-- util_sort_pl -->
+<g id="call~~graph~~CallGraph_node619" class="node">
+<title>util_sort_pl</title>
+<polygon fill="#777777" stroke="#777777" points="588,-6893 524,-6893 524,-6869 588,-6869 588,-6893"/>
+<text text-anchor="middle" x="556" y="-6878.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_pl</text>
 </g>
+<!-- proc~symba_util_sort_pl&#45;&gt;util_sort_pl -->
+<g id="call~~graph~~CallGraph_edge223" class="edge">
+<title>proc~symba_util_sort_pl&#45;&gt;util_sort_pl</title>
+<path fill="none" stroke="#000000" d="M378.1,-6864.63C418.79,-6868.4 475.5,-6873.65 513.64,-6877.17"/>
+<polygon fill="#000000" stroke="#000000" points="513.6,-6880.69 523.88,-6878.12 514.25,-6873.71 513.6,-6880.69"/>
 </g>
-<!-- proc~setup_pl -->
-<g id="call~~graph~~CallGraph_node251" class="node">
-<title>proc~setup_pl</title>
-<g id="a_call~~graph~~CallGraph_node251"><a xlink:href=".././proc/setup_pl.html" xlink:title="setup_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="354,-7958 300,-7958 300,-7934 354,-7934 354,-7958"/>
-<text text-anchor="middle" x="327" y="-7943.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_pl</text>
+<!-- proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange_body -->
+<g id="call~~graph~~CallGraph_edge224" class="edge">
+<title>proc~util_sort_rearrange_pl&#45;&gt;interface~util_sort_rearrange_body</title>
+<path fill="none" stroke="#000000" d="M386.16,-4242.18C414.49,-4240.81 448.9,-4239.14 479.25,-4237.67"/>
+<polygon fill="#000000" stroke="#000000" points="479.55,-4241.16 489.37,-4237.18 479.21,-4234.17 479.55,-4241.16"/>
+</g>
+<!-- proc~symba_util_sort_tp -->
+<g id="call~~graph~~CallGraph_node281" class="node">
+<title>proc~symba_util_sort_tp</title>
+<g id="a_call~~graph~~CallGraph_node281"><a xlink:href=".././proc/symba_util_sort_tp.html" xlink:title="symba_util_sort_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="378.5,-8441 275.5,-8441 275.5,-8417 378.5,-8417 378.5,-8441"/>
+<text text-anchor="middle" x="327" y="-8426.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~setup_pl&#45;&gt;interface~setup_body -->
-<g id="call~~graph~~CallGraph_edge252" class="edge">
-<title>proc~setup_pl&#45;&gt;interface~setup_body</title>
-<path fill="none" stroke="#000000" d="M354.33,-7943.63C394.11,-7940.05 469.98,-7933.23 518.03,-7928.91"/>
-<polygon fill="#000000" stroke="#000000" points="518.49,-7932.38 528.14,-7928 517.86,-7925.41 518.49,-7932.38"/>
+<!-- util_sort_tp -->
+<g id="call~~graph~~CallGraph_node607" class="node">
+<title>util_sort_tp</title>
+<polygon fill="#777777" stroke="#777777" points="588.5,-8462 523.5,-8462 523.5,-8438 588.5,-8438 588.5,-8462"/>
+<text text-anchor="middle" x="556" y="-8447.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_tp</text>
 </g>
-<!-- proc~whm_coord_j2h_pl -->
-<g id="call~~graph~~CallGraph_node252" class="node">
-<title>proc~whm_coord_j2h_pl</title>
-<g id="a_call~~graph~~CallGraph_node252"><a xlink:href=".././proc/whm_coord_j2h_pl.html" xlink:title="whm_coord_j2h_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="378.5,-6172 275.5,-6172 275.5,-6148 378.5,-6148 378.5,-6172"/>
-<text text-anchor="middle" x="327" y="-6157.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_j2h_pl</text>
+<!-- proc~symba_util_sort_tp&#45;&gt;util_sort_tp -->
+<g id="call~~graph~~CallGraph_edge225" class="edge">
+<title>proc~symba_util_sort_tp&#45;&gt;util_sort_tp</title>
+<path fill="none" stroke="#000000" d="M378.66,-8433.69C419.15,-8437.43 475.22,-8442.62 513.18,-8446.13"/>
+<polygon fill="#000000" stroke="#000000" points="513.1,-8449.64 523.38,-8447.07 513.74,-8442.67 513.1,-8449.64"/>
+</g>
+<!-- gr_kick_getacch -->
+<g id="call~~graph~~CallGraph_node615" class="node">
+<title>gr_kick_getacch</title>
+<polygon fill="#777777" stroke="#777777" points="601,-5887 511,-5887 511,-5863 601,-5863 601,-5887"/>
+<text text-anchor="middle" x="556" y="-5872.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_kick_getacch</text>
+</g>
+<!-- proc~whm_gr_kick_getacch_pl&#45;&gt;gr_kick_getacch -->
+<g id="call~~graph~~CallGraph_edge226" class="edge">
+<title>proc~whm_gr_kick_getacch_pl&#45;&gt;gr_kick_getacch</title>
+<path fill="none" stroke="#000000" d="M387.11,-5925.99C399.35,-5923.25 412.14,-5920.19 424,-5917 453.22,-5909.14 485.6,-5898.77 510.86,-5890.31"/>
+<polygon fill="#000000" stroke="#000000" points="512.16,-5893.56 520.51,-5887.05 509.92,-5886.93 512.16,-5893.56"/>
+</g>
+<!-- proc~symba_util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_node283" class="node">
+<title>proc~symba_util_sort_rearrange_tp</title>
+<g id="a_call~~graph~~CallGraph_node283"><a xlink:href=".././proc/symba_util_sort_rearrange_tp.html" xlink:title="symba_util_sort_rearrange_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="405,-8525 249,-8525 249,-8501 405,-8501 405,-8525"/>
+<text text-anchor="middle" x="327" y="-8510.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_rearrange_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;gmpl -->
-<g id="call~~graph~~CallGraph_edge254" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;gmpl</title>
-<path fill="none" stroke="#000000" d="M378.83,-6157.87C394.72,-6154.99 411.37,-6149.43 424,-6139 455.31,-6113.13 428.54,-6080.7 460,-6055 478.12,-6040.2 504.02,-6035.01 525.12,-6033.5"/>
-<polygon fill="#000000" stroke="#000000" points="525.52,-6036.98 535.34,-6033.01 525.19,-6029.99 525.52,-6036.98"/>
+<!-- util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_node584" class="node">
+<title>util_sort_rearrange_tp</title>
+<polygon fill="#777777" stroke="#777777" points="615,-8546 497,-8546 497,-8522 615,-8522 615,-8546"/>
+<text text-anchor="middle" x="556" y="-8531.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_tp</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;vh -->
-<g id="call~~graph~~CallGraph_edge258" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;vh</title>
-<path fill="none" stroke="#000000" d="M378.67,-6169.11C422.99,-6177.09 486.27,-6188.47 525.56,-6195.54"/>
-<polygon fill="#000000" stroke="#000000" points="525.03,-6199 535.49,-6197.32 526.27,-6192.11 525.03,-6199"/>
+<!-- proc~symba_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_edge227" class="edge">
+<title>proc~symba_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp</title>
+<path fill="none" stroke="#000000" d="M405.17,-8520.14C431.61,-8522.58 460.98,-8525.3 486.67,-8527.68"/>
+<polygon fill="#000000" stroke="#000000" points="486.41,-8531.17 496.69,-8528.61 487.06,-8524.2 486.41,-8531.17"/>
+</g>
+<!-- proc~whm_coord_j2h_pl&#45;&gt;xj -->
+<g id="call~~graph~~CallGraph_edge231" class="edge">
+<title>proc~whm_coord_j2h_pl&#45;&gt;xj</title>
+<path fill="none" stroke="#000000" d="M358.25,-4509.18C377.36,-4517.13 402.43,-4528.04 424,-4539 440.51,-4547.39 442.75,-4553.25 460,-4560 478.89,-4567.39 500.97,-4572.47 519.08,-4575.78"/>
+<polygon fill="#000000" stroke="#000000" points="518.51,-4579.23 528.96,-4577.48 519.7,-4572.33 518.51,-4579.23"/>
 </g>
 <!-- proc~whm_coord_j2h_pl&#45;&gt;eta -->
-<g id="call~~graph~~CallGraph_edge257" class="edge">
+<g id="call~~graph~~CallGraph_edge228" class="edge">
 <title>proc~whm_coord_j2h_pl&#45;&gt;eta</title>
-<path fill="none" stroke="#000000" d="M378.67,-6150.89C422.99,-6142.91 486.27,-6131.53 525.56,-6124.46"/>
-<polygon fill="#000000" stroke="#000000" points="526.27,-6127.89 535.49,-6122.68 525.03,-6121 526.27,-6127.89"/>
+<path fill="none" stroke="#000000" d="M378.66,-4497C421.18,-4497 480.88,-4497 518.75,-4497"/>
+<polygon fill="#000000" stroke="#000000" points="518.82,-4500.5 528.82,-4497 518.82,-4493.5 518.82,-4500.5"/>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;xj -->
-<g id="call~~graph~~CallGraph_edge256" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;xj</title>
-<path fill="none" stroke="#000000" d="M378.67,-6160C422.9,-6160 486,-6160 525.31,-6160"/>
-<polygon fill="#000000" stroke="#000000" points="525.49,-6163.5 535.49,-6160 525.49,-6156.5 525.49,-6163.5"/>
+<!-- proc~whm_coord_j2h_pl&#45;&gt;gmpl -->
+<g id="call~~graph~~CallGraph_edge232" class="edge">
+<title>proc~whm_coord_j2h_pl&#45;&gt;gmpl</title>
+<path fill="none" stroke="#000000" d="M378.66,-4487.63C421.18,-4479.76 480.88,-4468.71 518.75,-4461.71"/>
+<polygon fill="#000000" stroke="#000000" points="519.62,-4465.1 528.82,-4459.84 518.35,-4458.22 519.62,-4465.1"/>
 </g>
 <!-- proc~whm_coord_j2h_pl&#45;&gt;vj -->
-<g id="call~~graph~~CallGraph_edge255" class="edge">
+<g id="call~~graph~~CallGraph_edge229" class="edge">
 <title>proc~whm_coord_j2h_pl&#45;&gt;vj</title>
-<path fill="none" stroke="#000000" d="M378.63,-6155.2C393.99,-6152.14 410.38,-6147.14 424,-6139 445.1,-6126.39 438.83,-6109.49 460,-6097 479.66,-6085.4 504.77,-6080.14 525.09,-6077.78"/>
-<polygon fill="#000000" stroke="#000000" points="525.61,-6081.25 535.23,-6076.8 524.94,-6074.28 525.61,-6081.25"/>
+<path fill="none" stroke="#000000" d="M378.63,-4492.2C393.99,-4489.14 410.38,-4484.14 424,-4476 445.1,-4463.39 438.91,-4446.64 460,-4434 477.64,-4423.43 500,-4418.16 518.59,-4415.55"/>
+<polygon fill="#000000" stroke="#000000" points="519.25,-4418.99 528.76,-4414.32 518.41,-4412.04 519.25,-4418.99"/>
 </g>
 <!-- proc~whm_coord_j2h_pl&#45;&gt;xh -->
-<g id="call~~graph~~CallGraph_edge253" class="edge">
+<g id="call~~graph~~CallGraph_edge230" class="edge">
 <title>proc~whm_coord_j2h_pl&#45;&gt;xh</title>
-<path fill="none" stroke="#000000" d="M349.28,-6172.14C374.83,-6186.24 419.33,-6209.31 460,-6223 481.11,-6230.1 505.53,-6235.25 525.12,-6238.67"/>
-<polygon fill="#000000" stroke="#000000" points="524.74,-6242.15 535.18,-6240.34 525.89,-6235.24 524.74,-6242.15"/>
+<path fill="none" stroke="#000000" d="M378.66,-4506.37C421.18,-4514.24 480.88,-4525.29 518.75,-4532.29"/>
+<polygon fill="#000000" stroke="#000000" points="518.35,-4535.78 528.82,-4534.16 519.62,-4528.9 518.35,-4535.78"/>
 </g>
-<!-- proc~whm_coord_vh2vj_pl -->
-<g id="call~~graph~~CallGraph_node253" class="node">
-<title>proc~whm_coord_vh2vj_pl</title>
-<g id="a_call~~graph~~CallGraph_node253"><a xlink:href=".././proc/whm_coord_vh2vj_pl.html" xlink:title="whm_coord_vh2vj_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="383.5,-6088 270.5,-6088 270.5,-6064 383.5,-6064 383.5,-6088"/>
-<text text-anchor="middle" x="327" y="-6073.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_vh2vj_pl</text>
-</a>
+<!-- proc~whm_coord_j2h_pl&#45;&gt;vh -->
+<g id="call~~graph~~CallGraph_edge233" class="edge">
+<title>proc~whm_coord_j2h_pl&#45;&gt;vh</title>
+<path fill="none" stroke="#000000" d="M378.83,-4494.87C394.72,-4491.99 411.37,-4486.43 424,-4476 455.31,-4450.13 428.72,-4417.91 460,-4392 476.32,-4378.48 499.46,-4373.17 518.81,-4371.27"/>
+<polygon fill="#000000" stroke="#000000" points="519.1,-4374.76 528.82,-4370.54 518.6,-4367.78 519.1,-4374.76"/>
 </g>
+<!-- interface~symba_fragmentation_casemerge -->
+<g id="call~~graph~~CallGraph_node285" class="node">
+<title>interface~symba_fragmentation_casemerge</title>
+<g id="a_call~~graph~~CallGraph_node285"><a xlink:href=".././interface/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
+<polygon fill="#a7506f" stroke="#a7506f" points="1592,-4425 1417,-4425 1417,-4401 1592,-4401 1592,-4425"/>
+<text text-anchor="middle" x="1504.5" y="-4410.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
+</a>
 </g>
-<!-- proc~whm_coord_vh2vj_pl&#45;&gt;gmpl -->
-<g id="call~~graph~~CallGraph_edge260" class="edge">
-<title>proc~whm_coord_vh2vj_pl&#45;&gt;gmpl</title>
-<path fill="none" stroke="#000000" d="M383.63,-6065.99C427.53,-6058.1 487.47,-6047.32 525.34,-6040.5"/>
-<polygon fill="#000000" stroke="#000000" points="526.18,-6043.91 535.4,-6038.69 524.94,-6037.02 526.18,-6043.91"/>
 </g>
-<!-- proc~whm_coord_vh2vj_pl&#45;&gt;vh -->
-<g id="call~~graph~~CallGraph_edge262" class="edge">
-<title>proc~whm_coord_vh2vj_pl&#45;&gt;vh</title>
-<path fill="none" stroke="#000000" d="M383.81,-6079.12C398.14,-6082.22 412.69,-6087.65 424,-6097 455.31,-6122.87 428.54,-6155.3 460,-6181 478.12,-6195.8 504.02,-6200.99 525.12,-6202.5"/>
-<polygon fill="#000000" stroke="#000000" points="525.19,-6206.01 535.34,-6202.99 525.52,-6199.02 525.19,-6206.01"/>
+<!-- interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge -->
+<g id="call~~graph~~CallGraph_edge234" class="edge">
+<title>interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1592.34,-4413C1617.71,-4413 1645.58,-4413 1671.53,-4413"/>
+<polygon fill="#000000" stroke="#000000" points="1671.75,-4416.5 1681.75,-4413 1671.75,-4409.5 1671.75,-4416.5"/>
 </g>
 <!-- proc~whm_coord_vh2vj_pl&#45;&gt;eta -->
-<g id="call~~graph~~CallGraph_edge259" class="edge">
+<g id="call~~graph~~CallGraph_edge237" class="edge">
 <title>proc~whm_coord_vh2vj_pl&#45;&gt;eta</title>
-<path fill="none" stroke="#000000" d="M383.63,-6086.01C427.53,-6093.9 487.47,-6104.68 525.34,-6111.5"/>
-<polygon fill="#000000" stroke="#000000" points="524.94,-6114.98 535.4,-6113.31 526.18,-6108.09 524.94,-6114.98"/>
+<path fill="none" stroke="#000000" d="M383.62,-4418.86C397.48,-4421.97 411.85,-4426.73 424,-4434 445.1,-4446.61 438.91,-4463.36 460,-4476 477.64,-4486.57 500,-4491.84 518.59,-4494.45"/>
+<polygon fill="#000000" stroke="#000000" points="518.41,-4497.96 528.76,-4495.68 519.25,-4491.01 518.41,-4497.96"/>
+</g>
+<!-- proc~whm_coord_vh2vj_pl&#45;&gt;gmpl -->
+<g id="call~~graph~~CallGraph_edge238" class="edge">
+<title>proc~whm_coord_vh2vj_pl&#45;&gt;gmpl</title>
+<path fill="none" stroke="#000000" d="M383.53,-4423.27C425.58,-4431.05 482.14,-4441.52 518.59,-4448.26"/>
+<polygon fill="#000000" stroke="#000000" points="518.3,-4451.77 528.77,-4450.15 519.57,-4444.89 518.3,-4451.77"/>
 </g>
 <!-- proc~whm_coord_vh2vj_pl&#45;&gt;vj -->
-<g id="call~~graph~~CallGraph_edge261" class="edge">
+<g id="call~~graph~~CallGraph_edge235" class="edge">
 <title>proc~whm_coord_vh2vj_pl&#45;&gt;vj</title>
-<path fill="none" stroke="#000000" d="M383.63,-6076C427.53,-6076 487.47,-6076 525.34,-6076"/>
-<polygon fill="#000000" stroke="#000000" points="525.4,-6079.5 535.4,-6076 525.4,-6072.5 525.4,-6079.5"/>
+<path fill="none" stroke="#000000" d="M383.53,-4413C425.58,-4413 482.14,-4413 518.59,-4413"/>
+<polygon fill="#000000" stroke="#000000" points="518.77,-4416.5 528.77,-4413 518.77,-4409.5 518.77,-4416.5"/>
 </g>
-<!-- proc~gr_pseudovel2vel -->
-<g id="call~~graph~~CallGraph_node254" class="node">
-<title>proc~gr_pseudovel2vel</title>
-<g id="a_call~~graph~~CallGraph_node254"><a xlink:href=".././proc/gr_pseudovel2vel.html" xlink:title="gr_pseudovel2vel">
-<polygon fill="#d9534f" stroke="#d9534f" points="375.5,-8168 278.5,-8168 278.5,-8144 375.5,-8144 375.5,-8168"/>
-<text text-anchor="middle" x="327" y="-8153.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_pseudovel2vel</text>
-</a>
+<!-- proc~whm_coord_vh2vj_pl&#45;&gt;vh -->
+<g id="call~~graph~~CallGraph_edge236" class="edge">
+<title>proc~whm_coord_vh2vj_pl&#45;&gt;vh</title>
+<path fill="none" stroke="#000000" d="M383.53,-4402.73C425.58,-4394.95 482.14,-4384.48 518.59,-4377.74"/>
+<polygon fill="#000000" stroke="#000000" points="519.57,-4381.11 528.77,-4375.85 518.3,-4374.23 519.57,-4381.11"/>
 </g>
+<!-- proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange_body -->
+<g id="call~~graph~~CallGraph_edge239" class="edge">
+<title>proc~util_sort_rearrange_tp&#45;&gt;interface~util_sort_rearrange_body</title>
+<path fill="none" stroke="#000000" d="M386.16,-4210.94C414.49,-4214.81 448.9,-4219.51 479.25,-4223.66"/>
+<polygon fill="#000000" stroke="#000000" points="478.99,-4227.15 489.37,-4225.04 479.94,-4220.22 478.99,-4227.15"/>
 </g>
-<!-- proc~util_valid&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge263" class="edge">
-<title>proc~util_valid&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M830.53,-3631.22C852.5,-3630.19 883.82,-3625.7 906,-3610 988.18,-3551.81 1033.28,-3432.85 1049.02,-3383.85"/>
-<polygon fill="#000000" stroke="#000000" points="1052.38,-3384.83 1052.01,-3374.24 1045.7,-3382.75 1052.38,-3384.83"/>
+<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_lag -->
+<g id="call~~graph~~CallGraph_edge243" class="edge">
+<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_lag</title>
+<path fill="none" stroke="#000000" d="M810.36,-2092.54C828.53,-2089.22 852.1,-2083.89 872,-2076 889.22,-2069.17 890.7,-2061.63 908,-2055 924.42,-2048.71 943.09,-2044.16 959.91,-2040.94"/>
+<polygon fill="#000000" stroke="#000000" points="960.88,-2044.32 970.1,-2039.1 959.64,-2037.43 960.88,-2044.32"/>
 </g>
-<!-- interface~util_sort -->
-<g id="call~~graph~~CallGraph_node543" class="node">
-<title>interface~util_sort</title>
-<g id="a_call~~graph~~CallGraph_node543"><a xlink:href=".././interface/util_sort.html" xlink:title="util_sort">
-<polygon fill="#a7506f" stroke="#a7506f" points="1083.5,-3643 1029.5,-3643 1029.5,-3619 1083.5,-3619 1083.5,-3643"/>
-<text text-anchor="middle" x="1056.5" y="-3628.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort</text>
+<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_guess -->
+<g id="call~~graph~~CallGraph_edge242" class="edge">
+<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_guess</title>
+<path fill="none" stroke="#000000" d="M810.22,-2107.73C835.78,-2116.86 874.02,-2129.9 908,-2139 922.55,-2142.9 938.43,-2146.49 953.22,-2149.56"/>
+<polygon fill="#000000" stroke="#000000" points="952.76,-2153.04 963.26,-2151.6 954.15,-2146.18 952.76,-2153.04"/>
+</g>
+<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_new -->
+<g id="call~~graph~~CallGraph_edge240" class="edge">
+<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_new</title>
+<path fill="none" stroke="#000000" d="M810.4,-2099.7C847.61,-2103.12 912.31,-2109.07 957.84,-2113.25"/>
+<polygon fill="#000000" stroke="#000000" points="957.54,-2116.74 967.82,-2114.17 958.18,-2109.77 957.54,-2116.74"/>
+</g>
+<!-- proc~drift_kepu_fchk -->
+<g id="call~~graph~~CallGraph_node311" class="node">
+<title>proc~drift_kepu_fchk</title>
+<g id="a_call~~graph~~CallGraph_node311"><a xlink:href=".././proc/drift_kepu_fchk.html" xlink:title="drift_kepu_fchk">
+<polygon fill="#d9534f" stroke="#d9534f" points="1053,-2088 968,-2088 968,-2064 1053,-2064 1053,-2088"/>
+<text text-anchor="middle" x="1010.5" y="-2073.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_fchk</text>
 </a>
 </g>
 </g>
-<!-- proc~util_valid&#45;&gt;interface~util_sort -->
-<g id="call~~graph~~CallGraph_edge264" class="edge">
-<title>proc~util_valid&#45;&gt;interface~util_sort</title>
-<path fill="none" stroke="#000000" d="M830.89,-3631C876.01,-3631 968.06,-3631 1019.21,-3631"/>
-<polygon fill="#000000" stroke="#000000" points="1019.47,-3634.5 1029.47,-3631 1019.47,-3627.5 1019.47,-3634.5"/>
+<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_fchk -->
+<g id="call~~graph~~CallGraph_edge241" class="edge">
+<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_fchk</title>
+<path fill="none" stroke="#000000" d="M810.4,-2094.3C847.61,-2090.88 912.31,-2084.93 957.84,-2080.75"/>
+<polygon fill="#000000" stroke="#000000" points="958.18,-2084.23 967.82,-2079.83 957.54,-2077.26 958.18,-2084.23"/>
 </g>
-<!-- proc~eucl_dist_index_plpl -->
-<g id="call~~graph~~CallGraph_node256" class="node">
-<title>proc~eucl_dist_index_plpl</title>
-<g id="a_call~~graph~~CallGraph_node256"><a xlink:href=".././proc/eucl_dist_index_plpl.html" xlink:title="eucl_dist_index_plpl">
-<polygon fill="#d9534f" stroke="#d9534f" points="381.5,-8210 272.5,-8210 272.5,-8186 381.5,-8186 381.5,-8210"/>
-<text text-anchor="middle" x="327" y="-8195.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl_dist_index_plpl</text>
+<!-- proc~symba_discard_nonplpl_conservation -->
+<g id="call~~graph~~CallGraph_node290" class="node">
+<title>proc~symba_discard_nonplpl_conservation</title>
+<g id="a_call~~graph~~CallGraph_node290"><a xlink:href=".././proc/symba_discard_nonplpl_conservation.html" xlink:title="symba_discard_nonplpl_conservation">
+<polygon fill="#d9534f" stroke="#d9534f" points="652,-8006 460,-8006 460,-7982 652,-7982 652,-8006"/>
+<text text-anchor="middle" x="556" y="-7991.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard_nonplpl_conservation</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_system&#45;&gt;proc~rmvs_interp_out -->
-<g id="call~~graph~~CallGraph_edge266" class="edge">
-<title>proc~rmvs_step_system&#45;&gt;proc~rmvs_interp_out</title>
-<path fill="none" stroke="#000000" d="M333.78,-1554.75C354.04,-1512.28 422.57,-1372.16 460,-1340 473.63,-1328.29 491.1,-1319.77 507.69,-1313.67"/>
-<polygon fill="#000000" stroke="#000000" points="509,-1316.92 517.32,-1310.36 506.73,-1310.3 509,-1316.92"/>
+<!-- proc~symba_util_spill_arr_kin -->
+<g id="call~~graph~~CallGraph_node291" class="node">
+<title>proc~symba_util_spill_arr_kin</title>
+<g id="a_call~~graph~~CallGraph_node291"><a xlink:href=".././proc/symba_util_spill_arr_kin.html" xlink:title="symba_util_spill_arr_kin">
+<polygon fill="#d9534f" stroke="#d9534f" points="160.5,-8609 33.5,-8609 33.5,-8585 160.5,-8585 160.5,-8609"/>
+<text text-anchor="middle" x="97" y="-8594.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_arr_kin</text>
+</a>
 </g>
-<!-- proc~rmvs_step_system&#45;&gt;proc~rmvs_step_out -->
-<g id="call~~graph~~CallGraph_edge265" class="edge">
-<title>proc~rmvs_step_system&#45;&gt;proc~rmvs_step_out</title>
-<path fill="none" stroke="#000000" d="M378.09,-1567C417.21,-1567 471.34,-1567 510.65,-1567"/>
-<polygon fill="#000000" stroke="#000000" points="510.81,-1570.5 520.81,-1567 510.81,-1563.5 510.81,-1570.5"/>
 </g>
-<!-- whm_step_system -->
-<g id="call~~graph~~CallGraph_node562" class="node">
-<title>whm_step_system</title>
-<polygon fill="#777777" stroke="#777777" points="613,-1621 512,-1621 512,-1597 613,-1597 613,-1621"/>
-<text text-anchor="middle" x="562.5" y="-1606.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_system</text>
+<!-- interface~symba_util_append_merger -->
+<g id="call~~graph~~CallGraph_node292" class="node">
+<title>interface~symba_util_append_merger</title>
+<g id="a_call~~graph~~CallGraph_node292"><a xlink:href=".././interface/symba_util_append_merger.html" xlink:title="symba_util_append_merger">
+<polygon fill="#a7506f" stroke="#a7506f" points="629,-4677 483,-4677 483,-4653 629,-4653 629,-4677"/>
+<text text-anchor="middle" x="556" y="-4662.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_merger</text>
+</a>
 </g>
-<!-- proc~rmvs_step_system&#45;&gt;whm_step_system -->
-<g id="call~~graph~~CallGraph_edge267" class="edge">
-<title>proc~rmvs_step_system&#45;&gt;whm_step_system</title>
-<path fill="none" stroke="#000000" d="M378.09,-1576.01C414.38,-1582.54 463.59,-1591.39 501.9,-1598.28"/>
-<polygon fill="#000000" stroke="#000000" points="501.43,-1601.75 511.89,-1600.08 502.67,-1594.86 501.43,-1601.75"/>
 </g>
-<!-- proc~io_read_encounter -->
-<g id="call~~graph~~CallGraph_node258" class="node">
-<title>proc~io_read_encounter</title>
-<g id="a_call~~graph~~CallGraph_node258"><a xlink:href=".././proc/io_read_encounter.html" xlink:title="io_read_encounter">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="855,-3437 752,-3437 752,-3413 855,-3413 855,-3437"/>
-<text text-anchor="middle" x="803.5" y="-3422.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_encounter</text>
+<!-- proc~symba_util_append_merger -->
+<g id="call~~graph~~CallGraph_node382" class="node">
+<title>proc~symba_util_append_merger</title>
+<g id="a_call~~graph~~CallGraph_node382"><a xlink:href=".././proc/symba_util_append_merger.html" xlink:title="symba_util_append_merger">
+<polygon fill="#d9534f" stroke="#d9534f" points="853,-4677 707,-4677 707,-4653 853,-4653 853,-4677"/>
+<text text-anchor="middle" x="780" y="-4662.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_merger</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_encounter&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge268" class="edge">
-<title>proc~io_read_encounter&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M855.25,-3415.22C871.52,-3411.9 889.57,-3408 906,-3404 945.18,-3394.45 989.62,-3381.72 1019.79,-3372.79"/>
-<polygon fill="#000000" stroke="#000000" points="1020.86,-3376.12 1029.45,-3369.92 1018.87,-3369.41 1020.86,-3376.12"/>
+<!-- interface~symba_util_append_merger&#45;&gt;proc~symba_util_append_merger -->
+<g id="call~~graph~~CallGraph_edge244" class="edge">
+<title>interface~symba_util_append_merger&#45;&gt;proc~symba_util_append_merger</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M629.08,-4665C650.71,-4665 674.59,-4665 696.82,-4665"/>
+<polygon fill="#000000" stroke="#000000" points="696.91,-4668.5 706.9,-4665 696.9,-4661.5 696.91,-4668.5"/>
 </g>
-<!-- interface~obl_acc_body -->
-<g id="call~~graph~~CallGraph_node259" class="node">
-<title>interface~obl_acc_body</title>
-<g id="a_call~~graph~~CallGraph_node259"><a xlink:href=".././interface/obl_acc_body.html" xlink:title="obl_acc_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="602,-8273 523,-8273 523,-8249 602,-8249 602,-8273"/>
-<text text-anchor="middle" x="562.5" y="-8258.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_body</text>
+<!-- interface~symba_util_append_pl -->
+<g id="call~~graph~~CallGraph_node293" class="node">
+<title>interface~symba_util_append_pl</title>
+<g id="a_call~~graph~~CallGraph_node293"><a xlink:href=".././interface/symba_util_append_pl.html" xlink:title="symba_util_append_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="1070.5,-4677 950.5,-4677 950.5,-4653 1070.5,-4653 1070.5,-4677"/>
+<text text-anchor="middle" x="1010.5" y="-4662.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~obl_acc_body -->
-<g id="call~~graph~~CallGraph_node476" class="node">
-<title>proc~obl_acc_body</title>
-<g id="a_call~~graph~~CallGraph_node476"><a xlink:href=".././proc/obl_acc_body.html" xlink:title="obl_acc_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="843,-8273 764,-8273 764,-8249 843,-8249 843,-8273"/>
-<text text-anchor="middle" x="803.5" y="-8258.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_body</text>
+<!-- proc~symba_util_append_pl -->
+<g id="call~~graph~~CallGraph_node370" class="node">
+<title>proc~symba_util_append_pl</title>
+<g id="a_call~~graph~~CallGraph_node370"><a xlink:href=".././proc/symba_util_append_pl.html" xlink:title="symba_util_append_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="1311.5,-4677 1191.5,-4677 1191.5,-4653 1311.5,-4653 1311.5,-4677"/>
+<text text-anchor="middle" x="1251.5" y="-4662.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~obl_acc_body&#45;&gt;proc~obl_acc_body -->
-<g id="call~~graph~~CallGraph_edge269" class="edge">
-<title>interface~obl_acc_body&#45;&gt;proc~obl_acc_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.17,-8261C643.47,-8261 709.03,-8261 753.82,-8261"/>
-<polygon fill="#000000" stroke="#000000" points="753.89,-8264.5 763.89,-8261 753.89,-8257.5 753.89,-8264.5"/>
-</g>
-<!-- proc~whm_kick_vh_tp -->
-<g id="call~~graph~~CallGraph_node260" class="node">
-<title>proc~whm_kick_vh_tp</title>
-<g id="a_call~~graph~~CallGraph_node260"><a xlink:href=".././proc/whm_kick_vh_tp.html" xlink:title="whm_kick_vh_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-8336 281.5,-8336 281.5,-8312 372.5,-8312 372.5,-8336"/>
-<text text-anchor="middle" x="327" y="-8321.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_vh_tp</text>
-</a>
-</g>
+<!-- interface~symba_util_append_pl&#45;&gt;proc~symba_util_append_pl -->
+<g id="call~~graph~~CallGraph_edge245" class="edge">
+<title>interface~symba_util_append_pl&#45;&gt;proc~symba_util_append_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1070.58,-4665C1104.04,-4665 1146.09,-4665 1181.12,-4665"/>
+<polygon fill="#000000" stroke="#000000" points="1181.27,-4668.5 1191.27,-4665 1181.27,-4661.5 1181.27,-4668.5"/>
 </g>
-<!-- interface~obl_acc_pl -->
-<g id="call~~graph~~CallGraph_node261" class="node">
-<title>interface~obl_acc_pl</title>
-<g id="a_call~~graph~~CallGraph_node261"><a xlink:href=".././interface/obl_acc_pl.html" xlink:title="obl_acc_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="129,-8252 65,-8252 65,-8228 129,-8228 129,-8252"/>
-<text text-anchor="middle" x="97" y="-8237.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_pl</text>
+<!-- interface~symba_util_append_tp -->
+<g id="call~~graph~~CallGraph_node294" class="node">
+<title>interface~symba_util_append_tp</title>
+<g id="a_call~~graph~~CallGraph_node294"><a xlink:href=".././interface/symba_util_append_tp.html" xlink:title="symba_util_append_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="1071,-4719 950,-4719 950,-4695 1071,-4695 1071,-4719"/>
+<text text-anchor="middle" x="1010.5" y="-4704.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~obl_acc_pl -->
-<g id="call~~graph~~CallGraph_node488" class="node">
-<title>proc~obl_acc_pl</title>
-<g id="a_call~~graph~~CallGraph_node488"><a xlink:href=".././proc/obl_acc_pl.html" xlink:title="obl_acc_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="359,-8252 295,-8252 295,-8228 359,-8228 359,-8252"/>
-<text text-anchor="middle" x="327" y="-8237.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_pl</text>
+<!-- proc~symba_util_append_tp -->
+<g id="call~~graph~~CallGraph_node365" class="node">
+<title>proc~symba_util_append_tp</title>
+<g id="a_call~~graph~~CallGraph_node365"><a xlink:href=".././proc/symba_util_append_tp.html" xlink:title="symba_util_append_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="1312,-4719 1191,-4719 1191,-4695 1312,-4695 1312,-4719"/>
+<text text-anchor="middle" x="1251.5" y="-4704.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~obl_acc_pl&#45;&gt;proc~obl_acc_pl -->
-<g id="call~~graph~~CallGraph_edge270" class="edge">
-<title>interface~obl_acc_pl&#45;&gt;proc~obl_acc_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M129.22,-8240C169.53,-8240 239.8,-8240 284.55,-8240"/>
-<polygon fill="#000000" stroke="#000000" points="284.79,-8243.5 294.79,-8240 284.79,-8236.5 284.79,-8243.5"/>
+<!-- interface~symba_util_append_tp&#45;&gt;proc~symba_util_append_tp -->
+<g id="call~~graph~~CallGraph_edge246" class="edge">
+<title>interface~symba_util_append_tp&#45;&gt;proc~symba_util_append_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1071.19,-4707C1104.42,-4707 1145.95,-4707 1180.67,-4707"/>
+<polygon fill="#000000" stroke="#000000" points="1180.74,-4710.5 1190.74,-4707 1180.74,-4703.5 1180.74,-4710.5"/>
 </g>
-<!-- proc~util_exit -->
-<g id="call~~graph~~CallGraph_node262" class="node">
-<title>proc~util_exit</title>
-<g id="a_call~~graph~~CallGraph_node262"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" points="1348.5,-3374 1294.5,-3374 1294.5,-3350 1348.5,-3350 1348.5,-3374"/>
-<text text-anchor="middle" x="1321.5" y="-3359.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<!-- proc~util_sort_dp -->
+<g id="call~~graph~~CallGraph_node295" class="node">
+<title>proc~util_sort_dp</title>
+<g id="a_call~~graph~~CallGraph_node295"><a xlink:href=".././proc/util_sort_dp.html" xlink:title="util_sort_dp">
+<polygon fill="#d9534f" stroke="#d9534f" points="131,-8651 63,-8651 63,-8627 131,-8627 131,-8651"/>
+<text text-anchor="middle" x="97" y="-8636.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_dp</text>
 </a>
 </g>
 </g>
-<!-- util_append -->
-<g id="call~~graph~~CallGraph_node559" class="node">
-<title>util_append</title>
-<polygon fill="#777777" stroke="#777777" points="1090.5,-1537 1022.5,-1537 1022.5,-1513 1090.5,-1513 1090.5,-1537"/>
-<text text-anchor="middle" x="1056.5" y="-1522.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<!-- proc~symba_util_spill_arr_info -->
+<g id="call~~graph~~CallGraph_node296" class="node">
+<title>proc~symba_util_spill_arr_info</title>
+<g id="a_call~~graph~~CallGraph_node296"><a xlink:href=".././proc/symba_util_spill_arr_info.html" xlink:title="symba_util_spill_arr_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="162,-8693 32,-8693 32,-8669 162,-8669 162,-8693"/>
+<text text-anchor="middle" x="97" y="-8678.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_arr_info</text>
+</a>
 </g>
-<!-- proc~rmvs_util_append_tp&#45;&gt;util_append -->
-<g id="call~~graph~~CallGraph_edge271" class="edge">
-<title>proc~rmvs_util_append_tp&#45;&gt;util_append</title>
-<path fill="none" stroke="#000000" d="M859.58,-1525C905.48,-1525 969.95,-1525 1012.22,-1525"/>
-<polygon fill="#000000" stroke="#000000" points="1012.46,-1528.5 1022.46,-1525 1012.46,-1521.5 1012.46,-1528.5"/>
 </g>
-<!-- proc~rmvs_util_append_tp&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge273" class="edge">
-<title>proc~rmvs_util_append_tp&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M859.58,-1524.33C876.26,-1521.52 893.47,-1515.63 906,-1504 948.68,-1464.38 920.49,-1432.12 942,-1378 972.03,-1302.42 1019.97,-1218.46 1042.72,-1180.14"/>
-<polygon fill="#000000" stroke="#000000" points="1045.8,-1181.8 1047.93,-1171.42 1039.8,-1178.21 1045.8,-1181.8"/>
+<!-- proc~util_sort_index_dp -->
+<g id="call~~graph~~CallGraph_node297" class="node">
+<title>proc~util_sort_index_dp</title>
+<g id="a_call~~graph~~CallGraph_node297"><a xlink:href=".././proc/util_sort_index_dp.html" xlink:title="util_sort_index_dp">
+<polygon fill="#d9534f" stroke="#d9534f" points="147,-8735 47,-8735 47,-8711 147,-8711 147,-8735"/>
+<text text-anchor="middle" x="97" y="-8720.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_index_dp</text>
+</a>
 </g>
-<!-- proc~rmvs_util_append_tp&#45;&gt;util_append_tp -->
-<g id="call~~graph~~CallGraph_edge272" class="edge">
-<title>proc~rmvs_util_append_tp&#45;&gt;util_append_tp</title>
-<path fill="none" stroke="#000000" d="M859.58,-1515.78C902.91,-1508.53 962.79,-1498.51 1004.92,-1491.46"/>
-<polygon fill="#000000" stroke="#000000" points="1005.67,-1494.89 1014.96,-1489.78 1004.52,-1487.98 1005.67,-1494.89"/>
 </g>
-<!-- interface~obl_acc_tp -->
-<g id="call~~graph~~CallGraph_node264" class="node">
-<title>interface~obl_acc_tp</title>
-<g id="a_call~~graph~~CallGraph_node264"><a xlink:href=".././interface/obl_acc_tp.html" xlink:title="obl_acc_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="129,-8294 65,-8294 65,-8270 129,-8270 129,-8294"/>
-<text text-anchor="middle" x="97" y="-8279.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_tp</text>
+<!-- proc~util_sort_i4b -->
+<g id="call~~graph~~CallGraph_node298" class="node">
+<title>proc~util_sort_i4b</title>
+<g id="a_call~~graph~~CallGraph_node298"><a xlink:href=".././proc/util_sort_i4b.html" xlink:title="util_sort_i4b">
+<polygon fill="#d9534f" stroke="#d9534f" points="132,-8777 62,-8777 62,-8753 132,-8753 132,-8777"/>
+<text text-anchor="middle" x="97" y="-8762.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_i4b</text>
 </a>
 </g>
 </g>
-<!-- proc~obl_acc_tp -->
-<g id="call~~graph~~CallGraph_node482" class="node">
-<title>proc~obl_acc_tp</title>
-<g id="a_call~~graph~~CallGraph_node482"><a xlink:href=".././proc/obl_acc_tp.html" xlink:title="obl_acc_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="359,-8294 295,-8294 295,-8270 359,-8270 359,-8294"/>
-<text text-anchor="middle" x="327" y="-8279.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_tp</text>
+<!-- proc~symba_util_spill_tp -->
+<g id="call~~graph~~CallGraph_node299" class="node">
+<title>proc~symba_util_spill_tp</title>
+<g id="a_call~~graph~~CallGraph_node299"><a xlink:href=".././proc/symba_util_spill_tp.html" xlink:title="symba_util_spill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="1303,-5341 1200,-5341 1200,-5317 1303,-5317 1303,-5341"/>
+<text text-anchor="middle" x="1251.5" y="-5326.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~obl_acc_tp&#45;&gt;proc~obl_acc_tp -->
-<g id="call~~graph~~CallGraph_edge274" class="edge">
-<title>interface~obl_acc_tp&#45;&gt;proc~obl_acc_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M129.22,-8282C169.53,-8282 239.8,-8282 284.55,-8282"/>
-<polygon fill="#000000" stroke="#000000" points="284.79,-8285.5 294.79,-8282 284.79,-8278.5 284.79,-8285.5"/>
-</g>
-<!-- proc~io_read_frame_system -->
-<g id="call~~graph~~CallGraph_node265" class="node">
-<title>proc~io_read_frame_system</title>
-<g id="a_call~~graph~~CallGraph_node265"><a xlink:href=".././proc/io_read_frame_system.html" xlink:title="io_read_frame_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="388,-8378 266,-8378 266,-8354 388,-8354 388,-8378"/>
-<text text-anchor="middle" x="327" y="-8363.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_system</text>
-</a>
-</g>
-</g>
-<!-- proc~io_read_hdr -->
-<g id="call~~graph~~CallGraph_node313" class="node">
-<title>proc~io_read_hdr</title>
-<g id="a_call~~graph~~CallGraph_node313"><a xlink:href=".././proc/io_read_hdr.html" xlink:title="io_read_hdr">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="597.5,-8378 527.5,-8378 527.5,-8354 597.5,-8354 597.5,-8378"/>
-<text text-anchor="middle" x="562.5" y="-8363.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_hdr</text>
+<!-- interface~util_spill -->
+<g id="call~~graph~~CallGraph_node309" class="node">
+<title>interface~util_spill</title>
+<g id="a_call~~graph~~CallGraph_node309"><a xlink:href=".././interface/util_spill.html" xlink:title="util_spill">
+<polygon fill="#a7506f" stroke="#a7506f" points="1531.5,-5299 1477.5,-5299 1477.5,-5275 1531.5,-5275 1531.5,-5299"/>
+<text text-anchor="middle" x="1504.5" y="-5284.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_frame_system&#45;&gt;proc~io_read_hdr -->
-<g id="call~~graph~~CallGraph_edge275" class="edge">
-<title>proc~io_read_frame_system&#45;&gt;proc~io_read_hdr</title>
-<path fill="none" stroke="#000000" d="M388.13,-8366C428.35,-8366 480.39,-8366 516.92,-8366"/>
-<polygon fill="#000000" stroke="#000000" points="517.26,-8369.5 527.26,-8366 517.26,-8362.5 517.26,-8369.5"/>
-</g>
-<!-- util_fill -->
-<g id="call~~graph~~CallGraph_node564" class="node">
-<title>util_fill</title>
-<polygon fill="#777777" stroke="#777777" points="1083.5,-1087 1029.5,-1087 1029.5,-1063 1083.5,-1063 1083.5,-1087"/>
-<text text-anchor="middle" x="1056.5" y="-1072.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
-</g>
-<!-- proc~rmvs_util_fill_pl&#45;&gt;util_fill -->
-<g id="call~~graph~~CallGraph_edge277" class="edge">
-<title>proc~rmvs_util_fill_pl&#45;&gt;util_fill</title>
-<path fill="none" stroke="#000000" d="M846.23,-1110.02C894.6,-1101.92 973.52,-1088.72 1019.37,-1081.05"/>
-<polygon fill="#000000" stroke="#000000" points="1020.16,-1084.46 1029.45,-1079.36 1019.01,-1077.56 1020.16,-1084.46"/>
+<!-- proc~symba_util_spill_tp&#45;&gt;interface~util_spill -->
+<g id="call~~graph~~CallGraph_edge249" class="edge">
+<title>proc~symba_util_spill_tp&#45;&gt;interface~util_spill</title>
+<path fill="none" stroke="#000000" d="M1303.29,-5320.5C1351.99,-5312.35 1424.29,-5300.25 1467.38,-5293.04"/>
+<polygon fill="#000000" stroke="#000000" points="1468.12,-5296.47 1477.41,-5291.37 1466.97,-5289.56 1468.12,-5296.47"/>
 </g>
-<!-- whm_util_fill_pl -->
-<g id="call~~graph~~CallGraph_node572" class="node">
-<title>whm_util_fill_pl</title>
-<polygon fill="#777777" stroke="#777777" points="1099,-1129 1014,-1129 1014,-1105 1099,-1105 1099,-1129"/>
-<text text-anchor="middle" x="1056.5" y="-1114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_fill_pl</text>
+<!-- proc~symba_util_spill_tp&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge248" class="edge">
+<title>proc~symba_util_spill_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1303.21,-5329.11C1321.25,-5326.64 1340.44,-5320.77 1354,-5308 1398.59,-5266.02 1353.37,-5224.07 1390,-5175 1409.77,-5148.51 1442.79,-5129.8 1468.13,-5118.43"/>
+<polygon fill="#000000" stroke="#000000" points="1469.62,-5121.59 1477.42,-5114.42 1466.85,-5115.16 1469.62,-5121.59"/>
 </g>
-<!-- proc~rmvs_util_fill_pl&#45;&gt;whm_util_fill_pl -->
-<g id="call~~graph~~CallGraph_edge278" class="edge">
-<title>proc~rmvs_util_fill_pl&#45;&gt;whm_util_fill_pl</title>
-<path fill="none" stroke="#000000" d="M846.23,-1117C889.39,-1117 956.86,-1117 1003.47,-1117"/>
-<polygon fill="#000000" stroke="#000000" points="1003.67,-1120.5 1013.67,-1117 1003.67,-1113.5 1003.67,-1120.5"/>
+<!-- util_spill_tp -->
+<g id="call~~graph~~CallGraph_node596" class="node">
+<title>util_spill_tp</title>
+<polygon fill="#777777" stroke="#777777" points="1537,-5208 1472,-5208 1472,-5184 1537,-5184 1537,-5208"/>
+<text text-anchor="middle" x="1504.5" y="-5193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
 </g>
-<!-- proc~rmvs_util_fill_pl&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge276" class="edge">
-<title>proc~rmvs_util_fill_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M846.23,-1123.98C894.6,-1132.08 973.52,-1145.28 1019.37,-1152.95"/>
-<polygon fill="#000000" stroke="#000000" points="1019.01,-1156.44 1029.45,-1154.64 1020.16,-1149.54 1019.01,-1156.44"/>
+<!-- proc~symba_util_spill_tp&#45;&gt;util_spill_tp -->
+<g id="call~~graph~~CallGraph_edge247" class="edge">
+<title>proc~symba_util_spill_tp&#45;&gt;util_spill_tp</title>
+<path fill="none" stroke="#000000" d="M1303.15,-5325.16C1320.19,-5322.19 1338.73,-5317.01 1354,-5308 1375.17,-5295.51 1371.31,-5281.98 1390,-5266 1414.7,-5244.88 1446.44,-5225.88 1470.07,-5213.02"/>
+<polygon fill="#000000" stroke="#000000" points="1471.85,-5216.03 1479.01,-5208.23 1468.54,-5209.86 1471.85,-5216.03"/>
 </g>
-<!-- proc~obl_pot -->
-<g id="call~~graph~~CallGraph_node479" class="node">
-<title>proc~obl_pot</title>
-<g id="a_call~~graph~~CallGraph_node479"><a xlink:href=".././proc/obl_pot.html" xlink:title="obl_pot">
-<polygon fill="#d9534f" stroke="#d9534f" points="830.5,-7664 776.5,-7664 776.5,-7640 830.5,-7640 830.5,-7664"/>
-<text text-anchor="middle" x="803.5" y="-7649.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot</text>
+<!-- proc~symba_util_spill_pl -->
+<g id="call~~graph~~CallGraph_node300" class="node">
+<title>proc~symba_util_spill_pl</title>
+<g id="a_call~~graph~~CallGraph_node300"><a xlink:href=".././proc/symba_util_spill_pl.html" xlink:title="symba_util_spill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="1302.5,-5010 1200.5,-5010 1200.5,-4986 1302.5,-4986 1302.5,-5010"/>
+<text text-anchor="middle" x="1251.5" y="-4995.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~obl_pot&#45;&gt;proc~obl_pot -->
-<g id="call~~graph~~CallGraph_edge279" class="edge">
-<title>interface~obl_pot&#45;&gt;proc~obl_pot</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M589.53,-7652C632.36,-7652 717.78,-7652 766.42,-7652"/>
-<polygon fill="#000000" stroke="#000000" points="766.5,-7655.5 776.5,-7652 766.5,-7648.5 766.5,-7655.5"/>
+<!-- proc~symba_util_spill_pl&#45;&gt;interface~util_spill -->
+<g id="call~~graph~~CallGraph_edge252" class="edge">
+<title>proc~symba_util_spill_pl&#45;&gt;interface~util_spill</title>
+<path fill="none" stroke="#000000" d="M1302.55,-4998.2C1321.06,-5000.86 1340.74,-5007.18 1354,-5021 1415.32,-5084.9 1340,-5143.9 1390,-5217 1408.78,-5244.45 1442.22,-5263.13 1467.95,-5274.25"/>
+<polygon fill="#000000" stroke="#000000" points="1466.81,-5277.56 1477.39,-5278.14 1469.48,-5271.09 1466.81,-5277.56"/>
 </g>
-<!-- proc~rmvs_util_fill_tp&#45;&gt;util_fill -->
-<g id="call~~graph~~CallGraph_edge282" class="edge">
-<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill</title>
-<path fill="none" stroke="#000000" d="M846.51,-1040.03C894.81,-1048.11 973.28,-1061.24 1019.09,-1068.91"/>
-<polygon fill="#000000" stroke="#000000" points="1018.72,-1072.39 1029.16,-1070.59 1019.88,-1065.49 1018.72,-1072.39"/>
+<!-- proc~symba_util_spill_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge250" class="edge">
+<title>proc~symba_util_spill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1302.66,-5006.37C1319.3,-5009.93 1337.73,-5014.74 1354,-5021 1399.63,-5038.56 1448.24,-5068.16 1477.23,-5087.12"/>
+<polygon fill="#000000" stroke="#000000" points="1475.65,-5090.28 1485.92,-5092.88 1479.52,-5084.44 1475.65,-5090.28"/>
 </g>
-<!-- proc~rmvs_util_fill_tp&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge281" class="edge">
-<title>proc~rmvs_util_fill_tp&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M846.6,-1032.99C866.51,-1035.01 889.49,-1040.51 906,-1054 937.46,-1079.7 910.28,-1112.64 942,-1138 963.54,-1155.22 994.73,-1160 1018.96,-1160.73"/>
-<polygon fill="#000000" stroke="#000000" points="1019.18,-1164.23 1029.21,-1160.82 1019.24,-1157.23 1019.18,-1164.23"/>
+<!-- util_spill_pl -->
+<g id="call~~graph~~CallGraph_node623" class="node">
+<title>util_spill_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1536.5,-4991 1472.5,-4991 1472.5,-4967 1536.5,-4967 1536.5,-4991"/>
+<text text-anchor="middle" x="1504.5" y="-4976.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
 </g>
-<!-- proc~rmvs_util_fill_tp&#45;&gt;util_fill_tp -->
-<g id="call~~graph~~CallGraph_edge280" class="edge">
-<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill_tp</title>
-<path fill="none" stroke="#000000" d="M846.51,-1025.97C894.29,-1017.98 971.6,-1005.04 1017.6,-997.34"/>
-<polygon fill="#000000" stroke="#000000" points="1018.47,-1000.75 1027.75,-995.64 1017.31,-993.84 1018.47,-1000.75"/>
+<!-- proc~symba_util_spill_pl&#45;&gt;util_spill_pl -->
+<g id="call~~graph~~CallGraph_edge251" class="edge">
+<title>proc~symba_util_spill_pl&#45;&gt;util_spill_pl</title>
+<path fill="none" stroke="#000000" d="M1302.69,-4994.2C1349.58,-4990.65 1418.71,-4985.42 1462.41,-4982.11"/>
+<polygon fill="#000000" stroke="#000000" points="1462.69,-4985.6 1472.4,-4981.35 1462.17,-4978.62 1462.69,-4985.6"/>
 </g>
-<!-- interface~orbel_el2xv_vec -->
-<g id="call~~graph~~CallGraph_node269" class="node">
-<title>interface~orbel_el2xv_vec</title>
-<g id="a_call~~graph~~CallGraph_node269"><a xlink:href=".././interface/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
-<polygon fill="#a7506f" stroke="#a7506f" points="142,-106 52,-106 52,-82 142,-82 142,-106"/>
-<text text-anchor="middle" x="97" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv_vec</text>
-</a>
+<!-- proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl -->
+<g id="call~~graph~~CallGraph_edge253" class="edge">
+<title>proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl</title>
+<path fill="none" stroke="#000000" d="M376.7,-8023.43C407.76,-8025.62 448.57,-8028.5 483.3,-8030.95"/>
+<polygon fill="#000000" stroke="#000000" points="483.17,-8034.45 493.4,-8031.66 483.67,-8027.46 483.17,-8034.45"/>
 </g>
+<!-- proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl_conservation -->
+<g id="call~~graph~~CallGraph_edge254" class="edge">
+<title>proc~symba_discard_pl&#45;&gt;proc~symba_discard_nonplpl_conservation</title>
+<path fill="none" stroke="#000000" d="M376.7,-8014.42C398.09,-8011.97 424.1,-8008.99 449.56,-8006.08"/>
+<polygon fill="#000000" stroke="#000000" points="450.13,-8009.53 459.66,-8004.92 449.33,-8002.58 450.13,-8009.53"/>
 </g>
-<!-- proc~orbel_el2xv_vec -->
-<g id="call~~graph~~CallGraph_node505" class="node">
-<title>proc~orbel_el2xv_vec</title>
-<g id="a_call~~graph~~CallGraph_node505"><a xlink:href=".././proc/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
-<polygon fill="#d9534f" stroke="#d9534f" points="372,-106 282,-106 282,-82 372,-82 372,-106"/>
-<text text-anchor="middle" x="327" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv_vec</text>
-</a>
+<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
+<g id="call~~graph~~CallGraph_edge257" class="edge">
+<title>proc~orbel_el2xv&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M589.54,-2381.59C616.03,-2377.23 654.4,-2371.02 688,-2366 782.3,-2351.9 1021.46,-2333.7 1113,-2307 1151.56,-2295.75 1193.13,-2275.45 1220.35,-2260.94"/>
+<polygon fill="#000000" stroke="#000000" points="1222.22,-2263.9 1229.35,-2256.07 1218.89,-2257.75 1222.22,-2263.9"/>
 </g>
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid -->
+<g id="call~~graph~~CallGraph_edge255" class="edge">
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid</title>
+<path fill="none" stroke="#000000" d="M589.76,-2387C627.42,-2387 689.53,-2387 732.26,-2387"/>
+<polygon fill="#000000" stroke="#000000" points="732.41,-2390.5 742.41,-2387 732.41,-2383.5 732.41,-2390.5"/>
 </g>
-<!-- interface~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv_vec -->
-<g id="call~~graph~~CallGraph_edge283" class="edge">
-<title>interface~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv_vec</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.23,-94C179.28,-94 232.3,-94 271.88,-94"/>
-<polygon fill="#000000" stroke="#000000" points="271.89,-97.5 281.89,-94 271.89,-90.5 271.89,-97.5"/>
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid -->
+<g id="call~~graph~~CallGraph_edge256" class="edge">
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid</title>
+<path fill="none" stroke="#000000" d="M577.72,-2374.77C603.41,-2359.69 648.64,-2333.42 688,-2312 706.98,-2301.67 728.44,-2290.56 745.75,-2281.74"/>
+<polygon fill="#000000" stroke="#000000" points="747.57,-2284.74 754.9,-2277.09 744.4,-2278.5 747.57,-2284.74"/>
 </g>
-<!-- proc~whm_kick_vh_pl -->
-<g id="call~~graph~~CallGraph_node270" class="node">
-<title>proc~whm_kick_vh_pl</title>
-<g id="a_call~~graph~~CallGraph_node270"><a xlink:href=".././proc/whm_kick_vh_pl.html" xlink:title="whm_kick_vh_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-8420 281.5,-8420 281.5,-8396 372.5,-8396 372.5,-8420"/>
-<text text-anchor="middle" x="327" y="-8405.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_vh_pl</text>
-</a>
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_zget -->
+<g id="call~~graph~~CallGraph_edge258" class="edge">
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_zget</title>
+<path fill="none" stroke="#000000" d="M574.93,-2399.14C599.52,-2415.35 645.5,-2444.08 688,-2462 704.02,-2468.76 722.35,-2474.37 738.33,-2478.63"/>
+<polygon fill="#000000" stroke="#000000" points="737.9,-2482.13 748.45,-2481.23 739.64,-2475.35 737.9,-2482.13"/>
 </g>
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_schget -->
+<g id="call~~graph~~CallGraph_edge259" class="edge">
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_schget</title>
+<path fill="none" stroke="#000000" d="M589.76,-2392.85C616.21,-2397.42 654.41,-2403.71 688,-2408 785.43,-2420.45 809.89,-2424.33 908,-2429 999.01,-2433.33 1021.89,-2429.33 1113,-2429 1143.35,-2428.89 1177.46,-2428.64 1204.12,-2428.42"/>
+<polygon fill="#000000" stroke="#000000" points="1204.34,-2431.92 1214.31,-2428.33 1204.28,-2424.92 1204.34,-2431.92"/>
 </g>
-<!-- proc~orbel_scget -->
-<g id="call~~graph~~CallGraph_node551" class="node">
-<title>proc~orbel_scget</title>
-<g id="a_call~~graph~~CallGraph_node551"><a xlink:href=".././proc/orbel_scget.html" xlink:title="orbel_scget">
-<polygon fill="#d9534f" stroke="#d9534f" points="1567,-230 1499,-230 1499,-206 1567,-206 1567,-230"/>
-<text text-anchor="middle" x="1533" y="-215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
-</a>
+<!-- proc~whm_gr_kick_getacch_tp&#45;&gt;gr_kick_getacch -->
+<g id="call~~graph~~CallGraph_edge260" class="edge">
+<title>proc~whm_gr_kick_getacch_tp&#45;&gt;gr_kick_getacch</title>
+<path fill="none" stroke="#000000" d="M393.66,-5889.93C427.57,-5886.79 468.45,-5883.01 500.58,-5880.03"/>
+<polygon fill="#000000" stroke="#000000" points="501.05,-5883.51 510.68,-5879.1 500.4,-5876.54 501.05,-5883.51"/>
 </g>
+<!-- gr_p4_pos_kick -->
+<g id="call~~graph~~CallGraph_node574" class="node">
+<title>gr_p4_pos_kick</title>
+<polygon fill="#777777" stroke="#777777" points="600,-6055 512,-6055 512,-6031 600,-6031 600,-6055"/>
+<text text-anchor="middle" x="556" y="-6040.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_p4_pos_kick</text>
 </g>
-<!-- interface~orbel_scget&#45;&gt;proc~orbel_scget -->
-<g id="call~~graph~~CallGraph_edge284" class="edge">
-<title>interface~orbel_scget&#45;&gt;proc~orbel_scget</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1355.7,-218C1391.71,-218 1449.33,-218 1488.83,-218"/>
-<polygon fill="#000000" stroke="#000000" points="1488.96,-221.5 1498.96,-218 1488.96,-214.5 1488.96,-221.5"/>
+<!-- proc~whm_gr_p4_pl&#45;&gt;gr_p4_pos_kick -->
+<g id="call~~graph~~CallGraph_edge261" class="edge">
+<title>proc~whm_gr_p4_pl&#45;&gt;gr_p4_pos_kick</title>
+<path fill="none" stroke="#000000" d="M368.85,-6097.96C385.97,-6094.36 406.04,-6089.83 424,-6085 453.22,-6077.14 485.6,-6066.77 510.86,-6058.31"/>
+<polygon fill="#000000" stroke="#000000" points="512.16,-6061.56 520.51,-6055.05 509.92,-6054.93 512.16,-6061.56"/>
 </g>
-<!-- proc~util_solve_linear_system_d -->
-<g id="call~~graph~~CallGraph_node272" class="node">
-<title>proc~util_solve_linear_system_d</title>
-<g id="a_call~~graph~~CallGraph_node272"><a xlink:href=".././proc/util_solve_linear_system_d.html" xlink:title="util_solve_linear_system_d">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="167.5,-8504 26.5,-8504 26.5,-8480 167.5,-8480 167.5,-8504"/>
-<text text-anchor="middle" x="97" y="-8489.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system_d</text>
+<!-- proc~util_sort_index_i4b -->
+<g id="call~~graph~~CallGraph_node305" class="node">
+<title>proc~util_sort_index_i4b</title>
+<g id="a_call~~graph~~CallGraph_node305"><a xlink:href=".././proc/util_sort_index_i4b.html" xlink:title="util_sort_index_i4b">
+<polygon fill="#d9534f" stroke="#d9534f" points="148,-8819 46,-8819 46,-8795 148,-8795 148,-8819"/>
+<text text-anchor="middle" x="97" y="-8804.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_index_i4b</text>
 </a>
 </g>
 </g>
-<!-- proc~ge_wpp -->
-<g id="call~~graph~~CallGraph_node279" class="node">
-<title>proc~ge_wpp</title>
-<g id="a_call~~graph~~CallGraph_node279"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="354,-8504 300,-8504 300,-8480 354,-8480 354,-8504"/>
-<text text-anchor="middle" x="327" y="-8489.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
+<!-- proc~symba_util_spill_pltpenc -->
+<g id="call~~graph~~CallGraph_node306" class="node">
+<title>proc~symba_util_spill_pltpenc</title>
+<g id="a_call~~graph~~CallGraph_node306"><a xlink:href=".././proc/symba_util_spill_pltpenc.html" xlink:title="symba_util_spill_pltpenc">
+<polygon fill="#d9534f" stroke="#d9534f" points="1315.5,-5383 1187.5,-5383 1187.5,-5359 1315.5,-5359 1315.5,-5383"/>
+<text text-anchor="middle" x="1251.5" y="-5368.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_pltpenc</text>
 </a>
 </g>
 </g>
-<!-- proc~util_solve_linear_system_d&#45;&gt;proc~ge_wpp -->
-<g id="call~~graph~~CallGraph_edge285" class="edge">
-<title>proc~util_solve_linear_system_d&#45;&gt;proc~ge_wpp</title>
-<path fill="none" stroke="#000000" d="M167.65,-8492C207.94,-8492 257,-8492 289.73,-8492"/>
-<polygon fill="#000000" stroke="#000000" points="289.75,-8495.5 299.75,-8492 289.75,-8488.5 289.75,-8495.5"/>
+<!-- proc~symba_util_spill_pltpenc&#45;&gt;interface~util_spill -->
+<g id="call~~graph~~CallGraph_edge264" class="edge">
+<title>proc~symba_util_spill_pltpenc&#45;&gt;interface~util_spill</title>
+<path fill="none" stroke="#000000" d="M1315.54,-5364.64C1328.85,-5361.5 1342.38,-5356.86 1354,-5350 1375.17,-5337.51 1368.7,-5320.27 1390,-5308 1413.49,-5294.47 1443.85,-5289.38 1467.26,-5287.58"/>
+<polygon fill="#000000" stroke="#000000" points="1467.7,-5291.06 1477.47,-5286.97 1467.28,-5284.07 1467.7,-5291.06"/>
 </g>
-<!-- proc~solve_wbs -->
-<g id="call~~graph~~CallGraph_node285" class="node">
-<title>proc~solve_wbs</title>
-<g id="a_call~~graph~~CallGraph_node285"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="358,-8462 296,-8462 296,-8438 358,-8438 358,-8462"/>
-<text text-anchor="middle" x="327" y="-8447.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
-</a>
+<!-- proc~symba_util_spill_pltpenc&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge263" class="edge">
+<title>proc~symba_util_spill_pltpenc&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1315.51,-5369.43C1329.76,-5366.2 1343.7,-5360.31 1354,-5350 1410.12,-5293.82 1344.48,-5240.06 1390,-5175 1408.95,-5147.92 1442.06,-5129.27 1467.65,-5118.08"/>
+<polygon fill="#000000" stroke="#000000" points="1469.16,-5121.24 1477.04,-5114.15 1466.46,-5114.78 1469.16,-5121.24"/>
 </g>
+<!-- util_spill_encounter -->
+<g id="call~~graph~~CallGraph_node593" class="node">
+<title>util_spill_encounter</title>
+<polygon fill="#777777" stroke="#777777" points="1556.5,-5341 1452.5,-5341 1452.5,-5317 1556.5,-5317 1556.5,-5341"/>
+<text text-anchor="middle" x="1504.5" y="-5326.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_encounter</text>
 </g>
-<!-- proc~util_solve_linear_system_d&#45;&gt;proc~solve_wbs -->
-<g id="call~~graph~~CallGraph_edge286" class="edge">
-<title>proc~util_solve_linear_system_d&#45;&gt;proc~solve_wbs</title>
-<path fill="none" stroke="#000000" d="M163.34,-8479.96C202.81,-8472.69 251.86,-8463.66 285.72,-8457.42"/>
-<polygon fill="#000000" stroke="#000000" points="286.52,-8460.83 295.72,-8455.58 285.25,-8453.95 286.52,-8460.83"/>
+<!-- proc~symba_util_spill_pltpenc&#45;&gt;util_spill_encounter -->
+<g id="call~~graph~~CallGraph_edge262" class="edge">
+<title>proc~symba_util_spill_pltpenc&#45;&gt;util_spill_encounter</title>
+<path fill="none" stroke="#000000" d="M1315.51,-5360.46C1354.31,-5353.96 1403.79,-5345.68 1442.25,-5339.25"/>
+<polygon fill="#000000" stroke="#000000" points="1443,-5342.67 1452.28,-5337.57 1441.84,-5335.77 1443,-5342.67"/>
 </g>
-<!-- proc~util_fill_arr_char_string -->
-<g id="call~~graph~~CallGraph_node273" class="node">
-<title>proc~util_fill_arr_char_string</title>
-<g id="a_call~~graph~~CallGraph_node273"><a xlink:href=".././proc/util_fill_arr_char_string.html" xlink:title="util_fill_arr_char_string">
-<polygon fill="#d9534f" stroke="#d9534f" points="157.5,-8546 36.5,-8546 36.5,-8522 157.5,-8522 157.5,-8546"/>
-<text text-anchor="middle" x="97" y="-8531.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_char_string</text>
+<!-- proc~whm_gr_p4_tp&#45;&gt;gr_p4_pos_kick -->
+<g id="call~~graph~~CallGraph_edge265" class="edge">
+<title>proc~whm_gr_p4_tp&#45;&gt;gr_p4_pos_kick</title>
+<path fill="none" stroke="#000000" d="M369.11,-6060.2C406.33,-6056.75 461.37,-6051.66 501.91,-6047.91"/>
+<polygon fill="#000000" stroke="#000000" points="502.25,-6051.4 511.88,-6046.99 501.6,-6044.43 502.25,-6051.4"/>
+</g>
+<!-- proc~util_sort_sp -->
+<g id="call~~graph~~CallGraph_node308" class="node">
+<title>proc~util_sort_sp</title>
+<g id="a_call~~graph~~CallGraph_node308"><a xlink:href=".././proc/util_sort_sp.html" xlink:title="util_sort_sp">
+<polygon fill="#d9534f" stroke="#d9534f" points="130.5,-8861 63.5,-8861 63.5,-8837 130.5,-8837 130.5,-8861"/>
+<text text-anchor="middle" x="97" y="-8846.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_sp</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_xv2aeq -->
-<g id="call~~graph~~CallGraph_node371" class="node">
-<title>proc~orbel_xv2aeq</title>
-<g id="a_call~~graph~~CallGraph_node371"><a xlink:href=".././proc/orbel_xv2aeq.html" xlink:title="orbel_xv2aeq">
-<polygon fill="#d9534f" stroke="#d9534f" points="842,-5962 765,-5962 765,-5938 842,-5938 842,-5962"/>
-<text text-anchor="middle" x="803.5" y="-5947.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aeq</text>
+<!-- interface~symba_util_fill_pl -->
+<g id="call~~graph~~CallGraph_node310" class="node">
+<title>interface~symba_util_fill_pl</title>
+<g id="a_call~~graph~~CallGraph_node310"><a xlink:href=".././interface/symba_util_fill_pl.html" xlink:title="symba_util_fill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="1057.5,-5635 963.5,-5635 963.5,-5611 1057.5,-5611 1057.5,-5635"/>
+<text text-anchor="middle" x="1010.5" y="-5620.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~orbel_xv2aeq&#45;&gt;proc~orbel_xv2aeq -->
-<g id="call~~graph~~CallGraph_edge287" class="edge">
-<title>interface~orbel_xv2aeq&#45;&gt;proc~orbel_xv2aeq</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.11,-5950C642.57,-5950 709.38,-5950 754.57,-5950"/>
-<polygon fill="#000000" stroke="#000000" points="754.72,-5953.5 764.72,-5950 754.72,-5946.5 754.72,-5953.5"/>
-</g>
-<!-- util_resize_tp -->
-<g id="call~~graph~~CallGraph_node570" class="node">
-<title>util_resize_tp</title>
-<polygon fill="#777777" stroke="#777777" points="1094.5,-5499 1018.5,-5499 1018.5,-5475 1094.5,-5475 1094.5,-5499"/>
-<text text-anchor="middle" x="1056.5" y="-5484.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
+<!-- proc~symba_util_fill_pl -->
+<g id="call~~graph~~CallGraph_node408" class="node">
+<title>proc~symba_util_fill_pl</title>
+<g id="a_call~~graph~~CallGraph_node408"><a xlink:href=".././proc/symba_util_fill_pl.html" xlink:title="symba_util_fill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="1298.5,-5635 1204.5,-5635 1204.5,-5611 1298.5,-5611 1298.5,-5635"/>
+<text text-anchor="middle" x="1251.5" y="-5620.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_pl</text>
+</a>
 </g>
-<!-- proc~rmvs_util_resize_tp&#45;&gt;util_resize_tp -->
-<g id="call~~graph~~CallGraph_edge288" class="edge">
-<title>proc~rmvs_util_resize_tp&#45;&gt;util_resize_tp</title>
-<path fill="none" stroke="#000000" d="M856.14,-5445.68C872.12,-5448.99 889.79,-5452.64 906,-5456 940.25,-5463.09 978.91,-5471.11 1008.33,-5477.21"/>
-<polygon fill="#000000" stroke="#000000" points="1007.83,-5480.68 1018.33,-5479.29 1009.25,-5473.83 1007.83,-5480.68"/>
 </g>
-<!-- util_resize -->
-<g id="call~~graph~~CallGraph_node605" class="node">
-<title>util_resize</title>
-<polygon fill="#777777" stroke="#777777" points="1087,-5447 1026,-5447 1026,-5423 1087,-5423 1087,-5447"/>
-<text text-anchor="middle" x="1056.5" y="-5432.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<!-- interface~symba_util_fill_pl&#45;&gt;proc~symba_util_fill_pl -->
+<g id="call~~graph~~CallGraph_edge266" class="edge">
+<title>interface~symba_util_fill_pl&#45;&gt;proc~symba_util_fill_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1057.58,-5623C1096.47,-5623 1152.3,-5623 1193.9,-5623"/>
+<polygon fill="#000000" stroke="#000000" points="1194.15,-5626.5 1204.15,-5623 1194.15,-5619.5 1194.15,-5626.5"/>
 </g>
-<!-- proc~rmvs_util_resize_tp&#45;&gt;util_resize -->
-<g id="call~~graph~~CallGraph_edge289" class="edge">
-<title>proc~rmvs_util_resize_tp&#45;&gt;util_resize</title>
-<path fill="none" stroke="#000000" d="M856.2,-5435C903.53,-5435 972.58,-5435 1015.73,-5435"/>
-<polygon fill="#000000" stroke="#000000" points="1015.85,-5438.5 1025.85,-5435 1015.85,-5431.5 1015.85,-5438.5"/>
+<!-- proc~drift_kepu_fchk&#45;&gt;proc~drift_kepu_stumpff -->
+<g id="call~~graph~~CallGraph_edge267" class="edge">
+<title>proc~drift_kepu_fchk&#45;&gt;proc~drift_kepu_stumpff</title>
+<path fill="none" stroke="#000000" d="M1053.13,-2076C1091.14,-2076 1147.77,-2076 1190.63,-2076"/>
+<polygon fill="#000000" stroke="#000000" points="1190.66,-2079.5 1200.66,-2076 1190.66,-2072.5 1190.66,-2079.5"/>
 </g>
-<!-- interface~orbel_xv2aqt -->
-<g id="call~~graph~~CallGraph_node276" class="node">
-<title>interface~orbel_xv2aqt</title>
-<g id="a_call~~graph~~CallGraph_node276"><a xlink:href=".././interface/orbel_xv2aqt.html" xlink:title="orbel_xv2aqt">
-<polygon fill="#a7506f" stroke="#a7506f" points="134,-8588 60,-8588 60,-8564 134,-8564 134,-8588"/>
-<text text-anchor="middle" x="97" y="-8573.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aqt</text>
+<!-- interface~symba_util_fill_tp -->
+<g id="call~~graph~~CallGraph_node312" class="node">
+<title>interface~symba_util_fill_tp</title>
+<g id="a_call~~graph~~CallGraph_node312"><a xlink:href=".././interface/symba_util_fill_tp.html" xlink:title="symba_util_fill_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="1057.5,-5551 963.5,-5551 963.5,-5527 1057.5,-5527 1057.5,-5551"/>
+<text text-anchor="middle" x="1010.5" y="-5536.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_xv2aqt -->
-<g id="call~~graph~~CallGraph_node373" class="node">
-<title>proc~orbel_xv2aqt</title>
-<g id="a_call~~graph~~CallGraph_node373"><a xlink:href=".././proc/orbel_xv2aqt.html" xlink:title="orbel_xv2aqt">
-<polygon fill="#d9534f" stroke="#d9534f" points="364,-8588 290,-8588 290,-8564 364,-8564 364,-8588"/>
-<text text-anchor="middle" x="327" y="-8573.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aqt</text>
+<!-- interface~symba_util_fill_tp&#45;&gt;proc~symba_util_fill_tp -->
+<g id="call~~graph~~CallGraph_edge268" class="edge">
+<title>interface~symba_util_fill_tp&#45;&gt;proc~symba_util_fill_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1057.58,-5539C1096.47,-5539 1152.3,-5539 1193.9,-5539"/>
+<polygon fill="#000000" stroke="#000000" points="1194.15,-5542.5 1204.15,-5539 1194.15,-5535.5 1194.15,-5542.5"/>
+</g>
+<!-- interface~symba_util_peri_pl -->
+<g id="call~~graph~~CallGraph_node313" class="node">
+<title>interface~symba_util_peri_pl</title>
+<g id="a_call~~graph~~CallGraph_node313"><a xlink:href=".././interface/symba_util_peri_pl.html" xlink:title="symba_util_peri_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="378,-7124 276,-7124 276,-7100 378,-7100 378,-7124"/>
+<text text-anchor="middle" x="327" y="-7109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_peri_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~orbel_xv2aqt&#45;&gt;proc~orbel_xv2aqt -->
-<g id="call~~graph~~CallGraph_edge290" class="edge">
-<title>interface~orbel_xv2aqt&#45;&gt;proc~orbel_xv2aqt</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M134.13,-8576C173.45,-8576 236.46,-8576 279.46,-8576"/>
-<polygon fill="#000000" stroke="#000000" points="279.67,-8579.5 289.66,-8576 279.66,-8572.5 279.67,-8579.5"/>
+<!-- interface~symba_util_peri_pl&#45;&gt;proc~symba_util_peri_pl -->
+<g id="call~~graph~~CallGraph_edge269" class="edge">
+<title>interface~symba_util_peri_pl&#45;&gt;proc~symba_util_peri_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M378.1,-7112C412.32,-7112 457.87,-7112 494.18,-7112"/>
+<polygon fill="#000000" stroke="#000000" points="494.64,-7115.5 504.64,-7112 494.64,-7108.5 494.64,-7115.5"/>
 </g>
-<!-- interface~orbel_xv2el_vec -->
-<g id="call~~graph~~CallGraph_node277" class="node">
-<title>interface~orbel_xv2el_vec</title>
-<g id="a_call~~graph~~CallGraph_node277"><a xlink:href=".././interface/orbel_xv2el_vec.html" xlink:title="orbel_xv2el_vec">
-<polygon fill="#a7506f" stroke="#a7506f" points="142,-7580 52,-7580 52,-7556 142,-7556 142,-7580"/>
-<text text-anchor="middle" x="97" y="-7565.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el_vec</text>
+<!-- proc~operator_cross_el_qp -->
+<g id="call~~graph~~CallGraph_node314" class="node">
+<title>proc~operator_cross_el_qp</title>
+<g id="a_call~~graph~~CallGraph_node314"><a xlink:href=".././proc/operator_cross_el_qp.html" xlink:title="operator_cross_el_qp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="155.5,-8903 38.5,-8903 38.5,-8879 155.5,-8879 155.5,-8903"/>
+<text text-anchor="middle" x="97" y="-8888.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_qp</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_xv2el_vec -->
-<g id="call~~graph~~CallGraph_node315" class="node">
-<title>proc~orbel_xv2el_vec</title>
-<g id="a_call~~graph~~CallGraph_node315"><a xlink:href=".././proc/orbel_xv2el_vec.html" xlink:title="orbel_xv2el_vec">
-<polygon fill="#d9534f" stroke="#d9534f" points="372,-7580 282,-7580 282,-7556 372,-7556 372,-7580"/>
-<text text-anchor="middle" x="327" y="-7565.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2el_vec</text>
+<!-- interface~symba_util_rearray_pl -->
+<g id="call~~graph~~CallGraph_node316" class="node">
+<title>interface~symba_util_rearray_pl</title>
+<g id="a_call~~graph~~CallGraph_node316"><a xlink:href=".././interface/symba_util_rearray_pl.html" xlink:title="symba_util_rearray_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="615,-5071 497,-5071 497,-5047 615,-5047 615,-5071"/>
+<text text-anchor="middle" x="556" y="-5056.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_rearray_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el_vec -->
-<g id="call~~graph~~CallGraph_edge291" class="edge">
-<title>interface~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el_vec</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.23,-7568C179.28,-7568 232.3,-7568 271.88,-7568"/>
-<polygon fill="#000000" stroke="#000000" points="271.89,-7571.5 281.89,-7568 271.89,-7564.5 271.89,-7571.5"/>
-</g>
-<!-- interface~setup_body&#45;&gt;proc~setup_body -->
-<g id="call~~graph~~CallGraph_edge292" class="edge">
-<title>interface~setup_body&#45;&gt;proc~setup_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M596.73,-7925C639.06,-7925 712.32,-7925 759.04,-7925"/>
-<polygon fill="#000000" stroke="#000000" points="759.17,-7928.5 769.17,-7925 759.17,-7921.5 759.17,-7928.5"/>
+<!-- interface~symba_util_rearray_pl&#45;&gt;proc~symba_util_rearray_pl -->
+<g id="call~~graph~~CallGraph_edge270" class="edge">
+<title>interface~symba_util_rearray_pl&#45;&gt;proc~symba_util_rearray_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M615.04,-5059C644.36,-5059 680.11,-5059 710.74,-5059"/>
+<polygon fill="#000000" stroke="#000000" points="710.92,-5062.5 720.92,-5059 710.92,-5055.5 710.92,-5062.5"/>
 </g>
-<!-- interface~setup_construct_system -->
-<g id="call~~graph~~CallGraph_node280" class="node">
-<title>interface~setup_construct_system</title>
-<g id="a_call~~graph~~CallGraph_node280"><a xlink:href=".././interface/setup_construct_system.html" xlink:title="setup_construct_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="626.5,-3521 498.5,-3521 498.5,-3497 626.5,-3497 626.5,-3521"/>
-<text text-anchor="middle" x="562.5" y="-3506.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
+<!-- proc~operator_cross_el_sp -->
+<g id="call~~graph~~CallGraph_node317" class="node">
+<title>proc~operator_cross_el_sp</title>
+<g id="a_call~~graph~~CallGraph_node317"><a xlink:href=".././proc/operator_cross_el_sp.html" xlink:title="operator_cross_el_sp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="155,-8945 39,-8945 39,-8921 155,-8921 155,-8945"/>
+<text text-anchor="middle" x="97" y="-8930.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_sp</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_construct_system&#45;&gt;proc~setup_construct_system -->
-<g id="call~~graph~~CallGraph_edge293" class="edge">
-<title>interface~setup_construct_system&#45;&gt;proc~setup_construct_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.61,-3509C658.19,-3509 696.59,-3509 729.45,-3509"/>
-<polygon fill="#000000" stroke="#000000" points="729.45,-3512.5 739.45,-3509 729.45,-3505.5 729.45,-3512.5"/>
+<!-- proc~util_append_tp&#45;&gt;interface~util_append_body -->
+<g id="call~~graph~~CallGraph_edge273" class="edge">
+<title>proc~util_append_tp&#45;&gt;interface~util_append_body</title>
+<path fill="none" stroke="#000000" d="M597.72,-305.63C632.31,-305.32 682.36,-304.87 721.11,-304.52"/>
+<polygon fill="#000000" stroke="#000000" points="721.24,-308.02 731.21,-304.43 721.18,-301.02 721.24,-308.02"/>
 </g>
-<!-- proc~util_fill_arr_dpvec -->
-<g id="call~~graph~~CallGraph_node281" class="node">
-<title>proc~util_fill_arr_dpvec</title>
-<g id="a_call~~graph~~CallGraph_node281"><a xlink:href=".././proc/util_fill_arr_dpvec.html" xlink:title="util_fill_arr_DPvec">
-<polygon fill="#d9534f" stroke="#d9534f" points="146,-8630 48,-8630 48,-8606 146,-8606 146,-8630"/>
-<text text-anchor="middle" x="97" y="-8615.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_DPvec</text>
-</a>
+<!-- proc~util_append_tp&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge272" class="edge">
+<title>proc~util_append_tp&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M597.75,-307.24C615.94,-309.63 636.66,-315.08 652,-327 729.49,-387.24 763.48,-507.53 774.59,-556.99"/>
+<polygon fill="#000000" stroke="#000000" points="771.21,-557.9 776.73,-566.94 778.05,-556.43 771.21,-557.9"/>
 </g>
+<!-- proc~util_append_tp&#45;&gt;interface~util_append~2 -->
+<g id="call~~graph~~CallGraph_edge271" class="edge">
+<title>proc~util_append_tp&#45;&gt;interface~util_append~2</title>
+<path fill="none" stroke="#000000" d="M597.55,-313.42C623.35,-317.76 657.51,-322.8 688,-325 876.4,-338.59 924.65,-339.3 1113,-325 1144.81,-322.58 1180.41,-317.07 1207.42,-312.3"/>
+<polygon fill="#000000" stroke="#000000" points="1208.1,-315.73 1217.32,-310.51 1206.86,-308.84 1208.1,-315.73"/>
 </g>
-<!-- interface~setup_encounter -->
-<g id="call~~graph~~CallGraph_node282" class="node">
-<title>interface~setup_encounter</title>
-<g id="a_call~~graph~~CallGraph_node282"><a xlink:href=".././interface/setup_encounter.html" xlink:title="setup_encounter">
-<polygon fill="#a7506f" stroke="#a7506f" points="143.5,-8000 50.5,-8000 50.5,-7976 143.5,-7976 143.5,-8000"/>
-<text text-anchor="middle" x="97" y="-7985.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_encounter</text>
-</a>
+<!-- proc~util_append_pl&#45;&gt;interface~util_append_body -->
+<g id="call~~graph~~CallGraph_edge276" class="edge">
+<title>proc~util_append_pl&#45;&gt;interface~util_append_body</title>
+<path fill="none" stroke="#000000" d="M597.2,-271.24C631.84,-277.49 682.27,-286.57 721.23,-293.59"/>
+<polygon fill="#000000" stroke="#000000" points="720.92,-297.09 731.38,-295.42 722.16,-290.2 720.92,-297.09"/>
 </g>
+<!-- proc~util_append_pl&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge275" class="edge">
+<title>proc~util_append_pl&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M597.13,-264.72C615.61,-266.95 636.76,-272.42 652,-285 696.89,-322.07 753.33,-495.25 772.38,-557.03"/>
+<polygon fill="#000000" stroke="#000000" points="769.12,-558.36 775.39,-566.9 775.82,-556.31 769.12,-558.36"/>
 </g>
-<!-- interface~setup_encounter&#45;&gt;proc~setup_encounter -->
-<g id="call~~graph~~CallGraph_edge294" class="edge">
-<title>interface~setup_encounter&#45;&gt;proc~setup_encounter</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M143.59,-7988C180.09,-7988 231.45,-7988 270.37,-7988"/>
-<polygon fill="#000000" stroke="#000000" points="270.49,-7991.5 280.49,-7988 270.49,-7984.5 270.49,-7991.5"/>
+<!-- proc~util_append_pl&#45;&gt;interface~util_append~2 -->
+<g id="call~~graph~~CallGraph_edge274" class="edge">
+<title>proc~util_append_pl&#45;&gt;interface~util_append~2</title>
+<path fill="none" stroke="#000000" d="M597.22,-263.76C688.92,-263.56 920.42,-265.07 1113,-283 1144.77,-285.96 1180.37,-291.46 1207.39,-296.09"/>
+<polygon fill="#000000" stroke="#000000" points="1206.84,-299.54 1217.29,-297.81 1208.04,-292.65 1206.84,-299.54"/>
 </g>
-<!-- proc~util_solve_linear_system_q -->
-<g id="call~~graph~~CallGraph_node283" class="node">
-<title>proc~util_solve_linear_system_q</title>
-<g id="a_call~~graph~~CallGraph_node283"><a xlink:href=".././proc/util_solve_linear_system_q.html" xlink:title="util_solve_linear_system_q">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="167.5,-8462 26.5,-8462 26.5,-8438 167.5,-8438 167.5,-8462"/>
-<text text-anchor="middle" x="97" y="-8447.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system_q</text>
+<!-- proc~symba_util_append_arr_info -->
+<g id="call~~graph~~CallGraph_node320" class="node">
+<title>proc~symba_util_append_arr_info</title>
+<g id="a_call~~graph~~CallGraph_node320"><a xlink:href=".././proc/symba_util_append_arr_info.html" xlink:title="symba_util_append_arr_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="854,-6624 706,-6624 706,-6600 854,-6600 854,-6624"/>
+<text text-anchor="middle" x="780" y="-6609.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_arr_info</text>
 </a>
 </g>
 </g>
-<!-- proc~util_solve_linear_system_q&#45;&gt;proc~ge_wpp -->
-<g id="call~~graph~~CallGraph_edge295" class="edge">
-<title>proc~util_solve_linear_system_q&#45;&gt;proc~ge_wpp</title>
-<path fill="none" stroke="#000000" d="M163.34,-8462.04C204.48,-8469.61 256.03,-8479.11 289.94,-8485.36"/>
-<polygon fill="#000000" stroke="#000000" points="289.39,-8488.82 299.86,-8487.19 290.66,-8481.93 289.39,-8488.82"/>
-</g>
-<!-- proc~util_solve_linear_system_q&#45;&gt;proc~solve_wbs -->
-<g id="call~~graph~~CallGraph_edge296" class="edge">
-<title>proc~util_solve_linear_system_q&#45;&gt;proc~solve_wbs</title>
-<path fill="none" stroke="#000000" d="M167.65,-8450C206.41,-8450 253.27,-8450 285.92,-8450"/>
-<polygon fill="#000000" stroke="#000000" points="285.99,-8453.5 295.99,-8450 285.99,-8446.5 285.99,-8453.5"/>
+<!-- proc~symba_util_append_arr_info&#45;&gt;interface~util_resize -->
+<g id="call~~graph~~CallGraph_edge277" class="edge">
+<title>proc~symba_util_append_arr_info&#45;&gt;interface~util_resize</title>
+<path fill="none" stroke="#000000" d="M846.48,-6599.96C886.28,-6592.65 935.8,-6583.55 969.75,-6577.31"/>
+<polygon fill="#000000" stroke="#000000" points="970.56,-6580.72 979.76,-6575.47 969.29,-6573.83 970.56,-6580.72"/>
 </g>
-<!-- proc~util_fill_arr_dp -->
-<g id="call~~graph~~CallGraph_node284" class="node">
-<title>proc~util_fill_arr_dp</title>
-<g id="a_call~~graph~~CallGraph_node284"><a xlink:href=".././proc/util_fill_arr_dp.html" xlink:title="util_fill_arr_DP">
-<polygon fill="#d9534f" stroke="#d9534f" points="138,-8672 56,-8672 56,-8648 138,-8648 138,-8672"/>
-<text text-anchor="middle" x="97" y="-8657.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_DP</text>
+<!-- proc~symba_fragmentation_casesupercatastrophic -->
+<g id="call~~graph~~CallGraph_node321" class="node">
+<title>proc~symba_fragmentation_casesupercatastrophic</title>
+<g id="a_call~~graph~~CallGraph_node321"><a xlink:href=".././proc/symba_fragmentation_casesupercatastrophic.html" xlink:title="symba_fragmentation_casesupercatastrophic">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1884,-4509 1655,-4509 1655,-4485 1884,-4485 1884,-4509"/>
+<text text-anchor="middle" x="1769.5" y="-4494.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casesupercatastrophic</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_initialize_system -->
-<g id="call~~graph~~CallGraph_node286" class="node">
-<title>interface~setup_initialize_system</title>
-<g id="a_call~~graph~~CallGraph_node286"><a xlink:href=".././interface/setup_initialize_system.html" xlink:title="setup_initialize_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="158,-3643 36,-3643 36,-3619 158,-3619 158,-3643"/>
-<text text-anchor="middle" x="97" y="-3628.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
-</a>
-</g>
+<!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="call~~graph~~CallGraph_edge279" class="edge">
+<title>proc~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M1839.99,-4484.96C1869.16,-4479.91 1903.26,-4474.01 1933.43,-4468.78"/>
+<polygon fill="#000000" stroke="#000000" points="1934.24,-4472.19 1943.5,-4467.04 1933.05,-4465.3 1934.24,-4472.19"/>
 </g>
-<!-- interface~setup_initialize_system&#45;&gt;proc~setup_initialize_system -->
-<g id="call~~graph~~CallGraph_edge297" class="edge">
-<title>interface~setup_initialize_system&#45;&gt;proc~setup_initialize_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M158.2,-3631C188.07,-3631 224.34,-3631 255.5,-3631"/>
-<polygon fill="#000000" stroke="#000000" points="255.86,-3634.5 265.86,-3631 255.86,-3627.5 255.86,-3634.5"/>
+<!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize -->
+<g id="call~~graph~~CallGraph_edge278" class="edge">
+<title>proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize</title>
+<path fill="none" stroke="#000000" d="M1884.29,-4497C1904.14,-4497 1924.25,-4497 1942.49,-4497"/>
+<polygon fill="#000000" stroke="#000000" points="1942.71,-4500.5 1952.71,-4497 1942.71,-4493.5 1942.71,-4500.5"/>
 </g>
-<!-- proc~util_fill_arr_i4b -->
-<g id="call~~graph~~CallGraph_node287" class="node">
-<title>proc~util_fill_arr_i4b</title>
-<g id="a_call~~graph~~CallGraph_node287"><a xlink:href=".././proc/util_fill_arr_i4b.html" xlink:title="util_fill_arr_I4B">
-<polygon fill="#d9534f" stroke="#d9534f" points="138.5,-8714 55.5,-8714 55.5,-8690 138.5,-8690 138.5,-8714"/>
-<text text-anchor="middle" x="97" y="-8699.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_I4B</text>
+<!-- proc~fragmentation_regime -->
+<g id="call~~graph~~CallGraph_node322" class="node">
+<title>proc~fragmentation_regime</title>
+<g id="a_call~~graph~~CallGraph_node322"><a xlink:href=".././proc/fragmentation_regime.html" xlink:title="fragmentation_regime">
+<polygon fill="#d9534f" stroke="#d9534f" points="386,-8987 268,-8987 268,-8963 386,-8963 386,-8987"/>
+<text text-anchor="middle" x="327" y="-8972.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_regime</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_pl -->
-<g id="call~~graph~~CallGraph_node288" class="node">
-<title>interface~setup_pl</title>
-<g id="a_call~~graph~~CallGraph_node288"><a xlink:href=".././interface/setup_pl.html" xlink:title="setup_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="124,-7958 70,-7958 70,-7934 124,-7934 124,-7958"/>
-<text text-anchor="middle" x="97" y="-7943.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_pl</text>
+<!-- proc~operator_cross_el_dp -->
+<g id="call~~graph~~CallGraph_node324" class="node">
+<title>proc~operator_cross_el_dp</title>
+<g id="a_call~~graph~~CallGraph_node324"><a xlink:href=".././proc/operator_cross_el_dp.html" xlink:title="operator_cross_el_dp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="155.5,-9029 38.5,-9029 38.5,-9005 155.5,-9005 155.5,-9029"/>
+<text text-anchor="middle" x="97" y="-9014.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_dp</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_pl&#45;&gt;proc~setup_pl -->
-<g id="call~~graph~~CallGraph_edge298" class="edge">
-<title>interface~setup_pl&#45;&gt;proc~setup_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M124.15,-7946C164.85,-7946 243.43,-7946 289.63,-7946"/>
-<polygon fill="#000000" stroke="#000000" points="289.8,-7949.5 299.8,-7946 289.8,-7942.5 289.8,-7949.5"/>
+<!-- setup_pl -->
+<g id="call~~graph~~CallGraph_node575" class="node">
+<title>setup_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1037.5,-6181 983.5,-6181 983.5,-6157 1037.5,-6157 1037.5,-6181"/>
+<text text-anchor="middle" x="1010.5" y="-6166.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_pl</text>
 </g>
-<!-- interface~setup_tp -->
-<g id="call~~graph~~CallGraph_node289" class="node">
-<title>interface~setup_tp</title>
-<g id="a_call~~graph~~CallGraph_node289"><a xlink:href=".././interface/setup_tp.html" xlink:title="setup_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="124,-7916 70,-7916 70,-7892 124,-7892 124,-7916"/>
-<text text-anchor="middle" x="97" y="-7901.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_tp</text>
+<!-- proc~whm_setup_pl&#45;&gt;setup_pl -->
+<g id="call~~graph~~CallGraph_edge280" class="edge">
+<title>proc~whm_setup_pl&#45;&gt;setup_pl</title>
+<path fill="none" stroke="#000000" d="M821.06,-6186.32C864.04,-6182.37 931.69,-6176.15 973.17,-6172.34"/>
+<polygon fill="#000000" stroke="#000000" points="973.74,-6175.8 983.37,-6171.4 973.09,-6168.83 973.74,-6175.8"/>
+</g>
+<!-- proc~io_get_args -->
+<g id="call~~graph~~CallGraph_node326" class="node">
+<title>proc~io_get_args</title>
+<g id="a_call~~graph~~CallGraph_node326"><a xlink:href=".././proc/io_get_args.html" xlink:title="io_get_args">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="590.5,-192 521.5,-192 521.5,-168 590.5,-168 590.5,-192"/>
+<text text-anchor="middle" x="556" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_tp&#45;&gt;proc~setup_tp -->
-<g id="call~~graph~~CallGraph_edge299" class="edge">
-<title>interface~setup_tp&#45;&gt;proc~setup_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M124.15,-7904C164.85,-7904 243.43,-7904 289.63,-7904"/>
-<polygon fill="#000000" stroke="#000000" points="289.8,-7907.5 299.8,-7904 289.8,-7900.5 289.8,-7907.5"/>
+<!-- proc~io_get_args&#45;&gt;interface~io_toupper -->
+<g id="call~~graph~~CallGraph_edge281" class="edge">
+<title>proc~io_get_args&#45;&gt;interface~io_toupper</title>
+<path fill="none" stroke="#000000" d="M590.72,-180.15C630.08,-180.33 695.18,-180.62 737.58,-180.81"/>
+<polygon fill="#000000" stroke="#000000" points="737.82,-184.31 747.84,-180.86 737.86,-177.31 737.82,-184.31"/>
 </g>
-<!-- interface~tides_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_node290" class="node">
-<title>interface~tides_kick_getacch_pl</title>
-<g id="a_call~~graph~~CallGraph_node290"><a xlink:href=".././interface/tides_kick_getacch_pl.html" xlink:title="tides_kick_getacch_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-8756 38.5,-8756 38.5,-8732 155.5,-8732 155.5,-8756"/>
-<text text-anchor="middle" x="97" y="-8741.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_kick_getacch_pl</text>
-</a>
+<!-- proc~io_get_args&#45;&gt;interface~util_version -->
+<g id="call~~graph~~CallGraph_edge283" class="edge">
+<title>proc~io_get_args&#45;&gt;interface~util_version</title>
+<path fill="none" stroke="#000000" d="M590.72,-173.77C629.71,-166.57 693.97,-154.7 736.39,-146.87"/>
+<polygon fill="#000000" stroke="#000000" points="737.22,-150.28 746.41,-145.02 735.95,-143.39 737.22,-150.28"/>
 </g>
+<!-- proc~io_get_args&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge282" class="edge">
+<title>proc~io_get_args&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M590.82,-179.28C610.98,-180.65 635.73,-185.75 652,-201 693.88,-240.24 670.31,-270.41 688,-325 716.14,-411.86 754.19,-513.71 770.74,-557.36"/>
+<polygon fill="#000000" stroke="#000000" points="767.55,-558.83 774.38,-566.93 774.09,-556.34 767.55,-558.83"/>
 </g>
-<!-- proc~tides_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_node310" class="node">
-<title>proc~tides_kick_getacch_pl</title>
-<g id="a_call~~graph~~CallGraph_node310"><a xlink:href=".././proc/tides_kick_getacch_pl.html" xlink:title="tides_kick_getacch_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-8756 268.5,-8756 268.5,-8732 385.5,-8732 385.5,-8756"/>
-<text text-anchor="middle" x="327" y="-8741.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_kick_getacch_pl</text>
+<!-- interface~util_solve_linear_system -->
+<g id="call~~graph~~CallGraph_node327" class="node">
+<title>interface~util_solve_linear_system</title>
+<g id="a_call~~graph~~CallGraph_node327"><a xlink:href=".././interface/util_solve_linear_system.html" xlink:title="util_solve_linear_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="161.5,-9071 32.5,-9071 32.5,-9047 161.5,-9047 161.5,-9071"/>
+<text text-anchor="middle" x="97" y="-9056.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system</text>
 </a>
 </g>
 </g>
-<!-- interface~tides_kick_getacch_pl&#45;&gt;proc~tides_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_edge300" class="edge">
-<title>interface~tides_kick_getacch_pl&#45;&gt;proc~tides_kick_getacch_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.53,-8744C186.72,-8744 225.45,-8744 258.11,-8744"/>
-<polygon fill="#000000" stroke="#000000" points="258.48,-8747.5 268.48,-8744 258.48,-8740.5 258.48,-8747.5"/>
-</g>
-<!-- proc~io_read_frame_body -->
-<g id="call~~graph~~CallGraph_node291" class="node">
-<title>proc~io_read_frame_body</title>
-<g id="a_call~~graph~~CallGraph_node291"><a xlink:href=".././proc/io_read_frame_body.html" xlink:title="io_read_frame_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="859.5,-3395 747.5,-3395 747.5,-3371 859.5,-3371 859.5,-3395"/>
-<text text-anchor="middle" x="803.5" y="-3380.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_body</text>
+<!-- proc~operator_cross_el_i1b -->
+<g id="call~~graph~~CallGraph_node328" class="node">
+<title>proc~operator_cross_el_i1b</title>
+<g id="a_call~~graph~~CallGraph_node328"><a xlink:href=".././proc/operator_cross_el_i1b.html" xlink:title="operator_cross_el_i1b">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="156.5,-9113 37.5,-9113 37.5,-9089 156.5,-9089 156.5,-9113"/>
+<text text-anchor="middle" x="97" y="-9098.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_i1b</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_frame_body&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge301" class="edge">
-<title>proc~io_read_frame_body&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M859.58,-3378.39C908.14,-3374.33 977.49,-3368.53 1019.33,-3365.03"/>
-<polygon fill="#000000" stroke="#000000" points="1019.68,-3368.51 1029.35,-3364.19 1019.09,-3361.53 1019.68,-3368.51"/>
+<!-- util_set_ir3h -->
+<g id="call~~graph~~CallGraph_node610" class="node">
+<title>util_set_ir3h</title>
+<polygon fill="#777777" stroke="#777777" points="591,-6330 521,-6330 521,-6306 591,-6306 591,-6330"/>
+<text text-anchor="middle" x="556" y="-6315.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_ir3h</text>
 </g>
-<!-- util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_node577" class="node">
-<title>util_sort_rearrange_pl</title>
-<polygon fill="#777777" stroke="#777777" points="621.5,-6802 503.5,-6802 503.5,-6778 621.5,-6778 621.5,-6802"/>
-<text text-anchor="middle" x="562.5" y="-6787.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
+<!-- proc~whm_setup_initialize_system&#45;&gt;util_set_ir3h -->
+<g id="call~~graph~~CallGraph_edge284" class="edge">
+<title>proc~whm_setup_initialize_system&#45;&gt;util_set_ir3h</title>
+<path fill="none" stroke="#000000" d="M396.11,-6290C433.23,-6296.54 478.1,-6304.45 510.68,-6310.19"/>
+<polygon fill="#000000" stroke="#000000" points="510.35,-6313.69 520.8,-6311.97 511.56,-6306.79 510.35,-6313.69"/>
 </g>
-<!-- proc~rmvs_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_edge302" class="edge">
-<title>proc~rmvs_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl</title>
-<path fill="none" stroke="#000000" d="M394.91,-6819.96C425.8,-6814.41 462.42,-6807.82 493.44,-6802.24"/>
-<polygon fill="#000000" stroke="#000000" points="494.08,-6805.68 503.3,-6800.47 492.84,-6798.79 494.08,-6805.68"/>
+<!-- setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node618" class="node">
+<title>setup_initialize_system</title>
+<polygon fill="#777777" stroke="#777777" points="617,-6288 495,-6288 495,-6264 617,-6264 617,-6288"/>
+<text text-anchor="middle" x="556" y="-6273.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
 </g>
-<!-- interface~tides_step_spin_system -->
-<g id="call~~graph~~CallGraph_node293" class="node">
-<title>interface~tides_step_spin_system</title>
-<g id="a_call~~graph~~CallGraph_node293"><a xlink:href=".././interface/tides_step_spin_system.html" xlink:title="tides_step_spin_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="160.5,-8798 33.5,-8798 33.5,-8774 160.5,-8774 160.5,-8798"/>
-<text text-anchor="middle" x="97" y="-8783.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_step_spin_system</text>
-</a>
+<!-- proc~whm_setup_initialize_system&#45;&gt;setup_initialize_system -->
+<g id="call~~graph~~CallGraph_edge285" class="edge">
+<title>proc~whm_setup_initialize_system&#45;&gt;setup_initialize_system</title>
+<path fill="none" stroke="#000000" d="M402.64,-6277.34C428.99,-6277.11 458.53,-6276.85 484.52,-6276.62"/>
+<polygon fill="#000000" stroke="#000000" points="484.7,-6280.12 494.67,-6276.53 484.64,-6273.12 484.7,-6280.12"/>
 </g>
+<!-- util_set_mu_pl -->
+<g id="call~~graph~~CallGraph_node612" class="node">
+<title>util_set_mu_pl</title>
+<polygon fill="#777777" stroke="#777777" points="597,-6830 515,-6830 515,-6806 597,-6806 597,-6830"/>
+<text text-anchor="middle" x="556" y="-6815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_mu_pl</text>
 </g>
-<!-- proc~tides_step_spin_system -->
-<g id="call~~graph~~CallGraph_node324" class="node">
-<title>proc~tides_step_spin_system</title>
-<g id="a_call~~graph~~CallGraph_node324"><a xlink:href=".././proc/tides_step_spin_system.html" xlink:title="tides_step_spin_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="390.5,-8798 263.5,-8798 263.5,-8774 390.5,-8774 390.5,-8798"/>
-<text text-anchor="middle" x="327" y="-8783.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_step_spin_system</text>
-</a>
+<!-- proc~whm_util_set_mu_eta_pl&#45;&gt;util_set_mu_pl -->
+<g id="call~~graph~~CallGraph_edge286" class="edge">
+<title>proc~whm_util_set_mu_eta_pl&#45;&gt;util_set_mu_pl</title>
+<path fill="none" stroke="#000000" d="M392.75,-6818C428.22,-6818 471.54,-6818 504.49,-6818"/>
+<polygon fill="#000000" stroke="#000000" points="504.8,-6821.5 514.8,-6818 504.8,-6814.5 504.8,-6821.5"/>
 </g>
+<!-- proc~operator_cross_el_i2b -->
+<g id="call~~graph~~CallGraph_node331" class="node">
+<title>proc~operator_cross_el_i2b</title>
+<g id="a_call~~graph~~CallGraph_node331"><a xlink:href=".././proc/operator_cross_el_i2b.html" xlink:title="operator_cross_el_i2b">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="156.5,-9155 37.5,-9155 37.5,-9131 156.5,-9131 156.5,-9155"/>
+<text text-anchor="middle" x="97" y="-9140.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_i2b</text>
+</a>
 </g>
-<!-- interface~tides_step_spin_system&#45;&gt;proc~tides_step_spin_system -->
-<g id="call~~graph~~CallGraph_edge303" class="edge">
-<title>interface~tides_step_spin_system&#45;&gt;proc~tides_step_spin_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160.6,-8786C189.14,-8786 223.11,-8786 252.83,-8786"/>
-<polygon fill="#000000" stroke="#000000" points="253.14,-8789.5 263.14,-8786 253.14,-8782.5 253.14,-8789.5"/>
 </g>
-<!-- proc~util_fill_body -->
-<g id="call~~graph~~CallGraph_node294" class="node">
-<title>proc~util_fill_body</title>
-<g id="a_call~~graph~~CallGraph_node294"><a xlink:href=".././proc/util_fill_body.html" xlink:title="util_fill_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="839,-8862 768,-8862 768,-8838 839,-8838 839,-8862"/>
-<text text-anchor="middle" x="803.5" y="-8847.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
+<!-- proc~util_get_energy_momentum_system -->
+<g id="call~~graph~~CallGraph_node332" class="node">
+<title>proc~util_get_energy_momentum_system</title>
+<g id="a_call~~graph~~CallGraph_node332"><a xlink:href=".././proc/util_get_energy_momentum_system.html" xlink:title="util_get_energy_momentum_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="420,-1920 234,-1920 234,-1896 420,-1896 420,-1920"/>
+<text text-anchor="middle" x="327" y="-1905.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum_system</text>
 </a>
 </g>
 </g>
-<!-- interface~util_fill~2 -->
-<g id="call~~graph~~CallGraph_node303" class="node">
-<title>interface~util_fill~2</title>
-<g id="a_call~~graph~~CallGraph_node303"><a xlink:href=".././interface/util_fill~2.html" xlink:title="util_fill">
-<polygon fill="#a7506f" stroke="#a7506f" points="1083.5,-8862 1029.5,-8862 1029.5,-8838 1083.5,-8838 1083.5,-8862"/>
-<text text-anchor="middle" x="1056.5" y="-8847.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
-</a>
+<!-- proc~util_get_energy_momentum_system&#45;&gt;interface~obl_pot -->
+<g id="call~~graph~~CallGraph_edge289" class="edge">
+<title>proc~util_get_energy_momentum_system&#45;&gt;interface~obl_pot</title>
+<path fill="none" stroke="#000000" d="M343.26,-1920.26C366.87,-1938.62 414.32,-1973.11 460,-1992 478.75,-1999.75 500.81,-2004.85 518.96,-2008.08"/>
+<polygon fill="#000000" stroke="#000000" points="518.42,-2011.54 528.86,-2009.73 519.57,-2004.64 518.42,-2011.54"/>
 </g>
+<!-- pz -->
+<g id="call~~graph~~CallGraph_node570" class="node">
+<title>pz</title>
+<polygon fill="#777777" stroke="#777777" points="583,-1983 529,-1983 529,-1959 583,-1959 583,-1983"/>
+<text text-anchor="middle" x="556" y="-1968.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">pz</text>
 </g>
-<!-- proc~util_fill_body&#45;&gt;interface~util_fill~2 -->
-<g id="call~~graph~~CallGraph_edge304" class="edge">
-<title>proc~util_fill_body&#45;&gt;interface~util_fill~2</title>
-<path fill="none" stroke="#000000" d="M839.14,-8850C886.4,-8850 970.71,-8850 1018.95,-8850"/>
-<polygon fill="#000000" stroke="#000000" points="1019.24,-8853.5 1029.24,-8850 1019.24,-8846.5 1019.24,-8853.5"/>
+<!-- proc~util_get_energy_momentum_system&#45;&gt;pz -->
+<g id="call~~graph~~CallGraph_edge291" class="edge">
+<title>proc~util_get_energy_momentum_system&#45;&gt;pz</title>
+<path fill="none" stroke="#000000" d="M362.76,-1920.01C389.23,-1928.92 426.67,-1941.03 460,-1950 479.23,-1955.17 500.89,-1960.03 518.66,-1963.77"/>
+<polygon fill="#000000" stroke="#000000" points="518.13,-1967.24 528.63,-1965.84 519.55,-1960.38 518.13,-1967.24"/>
 </g>
-<!-- interface~user_kick_getacch_body -->
-<g id="call~~graph~~CallGraph_node295" class="node">
-<title>interface~user_kick_getacch_body</title>
-<g id="a_call~~graph~~CallGraph_node295"><a xlink:href=".././interface/user_kick_getacch_body.html" xlink:title="user_kick_getacch_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="162,-5300 32,-5300 32,-5276 162,-5276 162,-5300"/>
-<text text-anchor="middle" x="97" y="-5285.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_kick_getacch_body</text>
-</a>
+<!-- px -->
+<g id="call~~graph~~CallGraph_node572" class="node">
+<title>px</title>
+<polygon fill="#777777" stroke="#777777" points="583,-1941 529,-1941 529,-1917 583,-1917 583,-1941"/>
+<text text-anchor="middle" x="556" y="-1926.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">px</text>
 </g>
+<!-- proc~util_get_energy_momentum_system&#45;&gt;px -->
+<g id="call~~graph~~CallGraph_edge288" class="edge">
+<title>proc~util_get_energy_momentum_system&#45;&gt;px</title>
+<path fill="none" stroke="#000000" d="M420,-1916.51C454.72,-1919.72 492.23,-1923.19 518.87,-1925.66"/>
+<polygon fill="#000000" stroke="#000000" points="518.6,-1929.15 528.88,-1926.58 519.24,-1922.18 518.6,-1929.15"/>
 </g>
-<!-- interface~user_kick_getacch_body&#45;&gt;proc~user_kick_getacch_body -->
-<g id="call~~graph~~CallGraph_edge305" class="edge">
-<title>interface~user_kick_getacch_body&#45;&gt;proc~user_kick_getacch_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M162.12,-5288C190.04,-5288 222.94,-5288 251.9,-5288"/>
-<polygon fill="#000000" stroke="#000000" points="251.97,-5291.5 261.97,-5288 251.97,-5284.5 251.97,-5291.5"/>
+<!-- py -->
+<g id="call~~graph~~CallGraph_node592" class="node">
+<title>py</title>
+<polygon fill="#777777" stroke="#777777" points="583,-1899 529,-1899 529,-1875 583,-1875 583,-1899"/>
+<text text-anchor="middle" x="556" y="-1884.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">py</text>
 </g>
-<!-- whm_util_sort_pl -->
-<g id="call~~graph~~CallGraph_node566" class="node">
-<title>whm_util_sort_pl</title>
-<polygon fill="#777777" stroke="#777777" points="609,-6634 516,-6634 516,-6610 609,-6610 609,-6634"/>
-<text text-anchor="middle" x="562.5" y="-6619.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_sort_pl</text>
+<!-- proc~util_get_energy_momentum_system&#45;&gt;py -->
+<g id="call~~graph~~CallGraph_edge287" class="edge">
+<title>proc~util_get_energy_momentum_system&#45;&gt;py</title>
+<path fill="none" stroke="#000000" d="M420,-1899.49C454.72,-1896.28 492.23,-1892.81 518.87,-1890.34"/>
+<polygon fill="#000000" stroke="#000000" points="519.24,-1893.82 528.88,-1889.42 518.6,-1886.85 519.24,-1893.82"/>
 </g>
-<!-- proc~rmvs_util_sort_pl&#45;&gt;whm_util_sort_pl -->
-<g id="call~~graph~~CallGraph_edge306" class="edge">
-<title>proc~rmvs_util_sort_pl&#45;&gt;whm_util_sort_pl</title>
-<path fill="none" stroke="#000000" d="M374.13,-6622C411.91,-6622 465.5,-6622 505.69,-6622"/>
-<polygon fill="#000000" stroke="#000000" points="505.86,-6625.5 515.86,-6622 505.86,-6618.5 505.86,-6625.5"/>
+<!-- indj -->
+<g id="call~~graph~~CallGraph_node626" class="node">
+<title>indj</title>
+<polygon fill="#777777" stroke="#777777" points="583,-1857 529,-1857 529,-1833 583,-1833 583,-1857"/>
+<text text-anchor="middle" x="556" y="-1842.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">indj</text>
 </g>
-<!-- proc~util_fill_arr_logical -->
-<g id="call~~graph~~CallGraph_node297" class="node">
-<title>proc~util_fill_arr_logical</title>
-<g id="a_call~~graph~~CallGraph_node297"><a xlink:href=".././proc/util_fill_arr_logical.html" xlink:title="util_fill_arr_logical">
-<polygon fill="#d9534f" stroke="#d9534f" points="145.5,-8943 48.5,-8943 48.5,-8919 145.5,-8919 145.5,-8943"/>
-<text text-anchor="middle" x="97" y="-8928.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_logical</text>
-</a>
+<!-- proc~util_get_energy_momentum_system&#45;&gt;indj -->
+<g id="call~~graph~~CallGraph_edge290" class="edge">
+<title>proc~util_get_energy_momentum_system&#45;&gt;indj</title>
+<path fill="none" stroke="#000000" d="M362.76,-1895.99C389.23,-1887.08 426.67,-1874.97 460,-1866 479.23,-1860.83 500.89,-1855.97 518.66,-1852.23"/>
+<polygon fill="#000000" stroke="#000000" points="519.55,-1855.62 528.63,-1850.16 518.13,-1848.76 519.55,-1855.62"/>
 </g>
+<!-- indi -->
+<g id="call~~graph~~CallGraph_node629" class="node">
+<title>indi</title>
+<polygon fill="#777777" stroke="#777777" points="583,-1815 529,-1815 529,-1791 583,-1791 583,-1815"/>
+<text text-anchor="middle" x="556" y="-1800.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">indi</text>
 </g>
-<!-- proc~util_solve_rkf45 -->
-<g id="call~~graph~~CallGraph_node298" class="node">
-<title>proc~util_solve_rkf45</title>
-<g id="a_call~~graph~~CallGraph_node298"><a xlink:href=".././proc/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="847,-3353 760,-3353 760,-3329 847,-3329 847,-3353"/>
-<text text-anchor="middle" x="803.5" y="-3338.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_rkf45</text>
-</a>
+<!-- proc~util_get_energy_momentum_system&#45;&gt;indi -->
+<g id="call~~graph~~CallGraph_edge292" class="edge">
+<title>proc~util_get_energy_momentum_system&#45;&gt;indi</title>
+<path fill="none" stroke="#000000" d="M343.26,-1895.74C366.87,-1877.38 414.32,-1842.89 460,-1824 478.75,-1816.25 500.81,-1811.15 518.96,-1807.92"/>
+<polygon fill="#000000" stroke="#000000" points="519.57,-1811.36 528.86,-1806.27 518.42,-1804.46 519.57,-1811.36"/>
 </g>
+<!-- util_append_pl -->
+<g id="call~~graph~~CallGraph_node559" class="node">
+<title>util_append_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1545.5,-4719 1463.5,-4719 1463.5,-4695 1545.5,-4695 1545.5,-4719"/>
+<text text-anchor="middle" x="1504.5" y="-4704.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </g>
-<!-- proc~util_solve_rkf45&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge307" class="edge">
-<title>proc~util_solve_rkf45&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M847.08,-3344.56C895.48,-3348.61 973.66,-3355.15 1019.26,-3358.97"/>
-<polygon fill="#000000" stroke="#000000" points="1019.03,-3362.46 1029.29,-3359.81 1019.62,-3355.49 1019.03,-3362.46"/>
+<!-- proc~whm_util_append_pl&#45;&gt;util_append_pl -->
+<g id="call~~graph~~CallGraph_edge294" class="edge">
+<title>proc~whm_util_append_pl&#45;&gt;util_append_pl</title>
+<path fill="none" stroke="#000000" d="M1307.27,-4739.83C1350.72,-4732.57 1410.95,-4722.49 1453.18,-4715.42"/>
+<polygon fill="#000000" stroke="#000000" points="1453.96,-4718.84 1463.24,-4713.74 1452.8,-4711.93 1453.96,-4718.84"/>
 </g>
-<!-- util_sort_tp -->
-<g id="call~~graph~~CallGraph_node628" class="node">
-<title>util_sort_tp</title>
-<polygon fill="#777777" stroke="#777777" points="595,-6697 530,-6697 530,-6673 595,-6673 595,-6697"/>
-<text text-anchor="middle" x="562.5" y="-6682.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_tp</text>
+<!-- proc~whm_util_append_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge293" class="edge">
+<title>proc~whm_util_append_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1307.13,-4748.57C1324.29,-4751.22 1341.9,-4757.3 1354,-4770 1425.36,-4844.92 1341.33,-4908.7 1390,-5000 1409.97,-5037.46 1448.57,-5068.7 1475.17,-5087.12"/>
+<polygon fill="#000000" stroke="#000000" points="1473.44,-5090.17 1483.69,-5092.86 1477.35,-5084.37 1473.44,-5090.17"/>
 </g>
-<!-- proc~rmvs_util_sort_tp&#45;&gt;util_sort_tp -->
-<g id="call~~graph~~CallGraph_edge308" class="edge">
-<title>proc~rmvs_util_sort_tp&#45;&gt;util_sort_tp</title>
-<path fill="none" stroke="#000000" d="M374.13,-6701.85C416.44,-6698.05 478.55,-6692.46 519.5,-6688.78"/>
-<polygon fill="#000000" stroke="#000000" points="520.04,-6692.24 529.69,-6687.86 519.41,-6685.27 520.04,-6692.24"/>
+<!-- util_append -->
+<g id="call~~graph~~CallGraph_node604" class="node">
+<title>util_append</title>
+<polygon fill="#777777" stroke="#777777" points="1538.5,-4803 1470.5,-4803 1470.5,-4779 1538.5,-4779 1538.5,-4803"/>
+<text text-anchor="middle" x="1504.5" y="-4788.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </g>
-<!-- proc~io_read_frame_cb -->
-<g id="call~~graph~~CallGraph_node300" class="node">
-<title>proc~io_read_frame_cb</title>
-<g id="a_call~~graph~~CallGraph_node300"><a xlink:href=".././proc/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
-<polygon fill="#d9534f" stroke="#d9534f" points="853.5,-3311 753.5,-3311 753.5,-3287 853.5,-3287 853.5,-3311"/>
-<text text-anchor="middle" x="803.5" y="-3296.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
-</a>
+<!-- proc~whm_util_append_pl&#45;&gt;util_append -->
+<g id="call~~graph~~CallGraph_edge295" class="edge">
+<title>proc~whm_util_append_pl&#45;&gt;util_append</title>
+<path fill="none" stroke="#000000" d="M1307.27,-4758.17C1353.25,-4765.86 1418.02,-4776.7 1460.38,-4783.78"/>
+<polygon fill="#000000" stroke="#000000" points="1459.93,-4787.26 1470.37,-4785.46 1461.09,-4780.35 1459.93,-4787.26"/>
 </g>
+<!-- proc~gr_kick_getaccb_ns_body -->
+<g id="call~~graph~~CallGraph_node334" class="node">
+<title>proc~gr_kick_getaccb_ns_body</title>
+<g id="a_call~~graph~~CallGraph_node334"><a xlink:href=".././proc/gr_kick_getaccb_ns_body.html" xlink:title="gr_kick_getaccb_ns_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="395,-9197 259,-9197 259,-9173 395,-9173 395,-9197"/>
+<text text-anchor="middle" x="327" y="-9182.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_kick_getaccb_ns_body</text>
+</a>
 </g>
-<!-- proc~io_read_frame_cb&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge309" class="edge">
-<title>proc~io_read_frame_cb&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M853.7,-3308.46C870.36,-3311.85 889.04,-3315.87 906,-3320 945.18,-3329.55 989.62,-3342.28 1019.79,-3351.21"/>
-<polygon fill="#000000" stroke="#000000" points="1018.87,-3354.59 1029.45,-3354.08 1020.86,-3347.88 1018.87,-3354.59"/>
 </g>
-<!-- proc~util_fill_pl -->
-<g id="call~~graph~~CallGraph_node301" class="node">
-<title>proc~util_fill_pl</title>
-<g id="a_call~~graph~~CallGraph_node301"><a xlink:href=".././proc/util_fill_pl.html" xlink:title="util_fill_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="355,-8840 299,-8840 299,-8816 355,-8816 355,-8840"/>
-<text text-anchor="middle" x="327" y="-8825.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
+<!-- proc~operator_cross_el_i4b -->
+<g id="call~~graph~~CallGraph_node335" class="node">
+<title>proc~operator_cross_el_i4b</title>
+<g id="a_call~~graph~~CallGraph_node335"><a xlink:href=".././proc/operator_cross_el_i4b.html" xlink:title="operator_cross_el_i4b">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="156.5,-9239 37.5,-9239 37.5,-9215 156.5,-9215 156.5,-9239"/>
+<text text-anchor="middle" x="97" y="-9224.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_i4b</text>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_pl&#45;&gt;interface~util_fill~2 -->
-<g id="call~~graph~~CallGraph_edge310" class="edge">
-<title>proc~util_fill_pl&#45;&gt;interface~util_fill~2</title>
-<path fill="none" stroke="#000000" d="M355.13,-8826.72C437.88,-8823.11 694.29,-8814.02 906,-8829 944.94,-8831.76 989.17,-8838.41 1019.36,-8843.5"/>
-<polygon fill="#000000" stroke="#000000" points="1018.97,-8846.98 1029.42,-8845.22 1020.15,-8840.08 1018.97,-8846.98"/>
-</g>
-<!-- interface~util_fill_body -->
-<g id="call~~graph~~CallGraph_node462" class="node">
-<title>interface~util_fill_body</title>
-<g id="a_call~~graph~~CallGraph_node462"><a xlink:href=".././interface/util_fill_body.html" xlink:title="util_fill_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="598,-8862 527,-8862 527,-8838 598,-8838 598,-8862"/>
-<text text-anchor="middle" x="562.5" y="-8847.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
-</a>
-</g>
-</g>
-<!-- proc~util_fill_pl&#45;&gt;interface~util_fill_body -->
-<g id="call~~graph~~CallGraph_edge311" class="edge">
-<title>proc~util_fill_pl&#45;&gt;interface~util_fill_body</title>
-<path fill="none" stroke="#000000" d="M355.24,-8830.57C394.92,-8834.3 469.06,-8841.29 516.8,-8845.79"/>
-<polygon fill="#000000" stroke="#000000" points="516.58,-8849.28 526.86,-8846.74 517.24,-8842.31 516.58,-8849.28"/>
-</g>
-<!-- util_sort_rearrange_tp -->
-<g id="call~~graph~~CallGraph_node625" class="node">
-<title>util_sort_rearrange_tp</title>
-<polygon fill="#777777" stroke="#777777" points="621.5,-6919 503.5,-6919 503.5,-6895 621.5,-6895 621.5,-6919"/>
-<text text-anchor="middle" x="562.5" y="-6904.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_tp</text>
-</g>
-<!-- proc~rmvs_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp -->
-<g id="call~~graph~~CallGraph_edge312" class="edge">
-<title>proc~rmvs_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp</title>
-<path fill="none" stroke="#000000" d="M401.24,-6913.18C430.67,-6912.04 464.41,-6910.74 493.31,-6909.63"/>
-<polygon fill="#000000" stroke="#000000" points="493.46,-6913.13 503.32,-6909.24 493.19,-6906.13 493.46,-6913.13"/>
-</g>
-<!-- proc~whm_setup_pl -->
-<g id="call~~graph~~CallGraph_node304" class="node">
-<title>proc~whm_setup_pl</title>
-<g id="a_call~~graph~~CallGraph_node304"><a xlink:href=".././proc/whm_setup_pl.html" xlink:title="whm_setup_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="844.5,-4964 762.5,-4964 762.5,-4940 844.5,-4940 844.5,-4964"/>
-<text text-anchor="middle" x="803.5" y="-4949.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_pl</text>
+<!-- proc~io_get_token -->
+<g id="call~~graph~~CallGraph_node337" class="node">
+<title>proc~io_get_token</title>
+<g id="a_call~~graph~~CallGraph_node337"><a xlink:href=".././proc/io_get_token.html" xlink:title="io_get_token">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1047.5,-235 973.5,-235 973.5,-211 1047.5,-211 1047.5,-235"/>
+<text text-anchor="middle" x="1010.5" y="-220.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_setup_pl&#45;&gt;setup_pl -->
-<g id="call~~graph~~CallGraph_edge313" class="edge">
-<title>proc~whm_setup_pl&#45;&gt;setup_pl</title>
-<path fill="none" stroke="#000000" d="M844.55,-4948.65C892.7,-4944.62 972.81,-4937.92 1019.22,-4934.04"/>
-<polygon fill="#000000" stroke="#000000" points="1019.75,-4937.5 1029.42,-4933.18 1019.16,-4930.53 1019.75,-4937.5"/>
-</g>
-<!-- util_spill_tp -->
-<g id="call~~graph~~CallGraph_node580" class="node">
-<title>util_spill_tp</title>
-<polygon fill="#777777" stroke="#777777" points="1089,-793 1024,-793 1024,-769 1089,-769 1089,-793"/>
-<text text-anchor="middle" x="1056.5" y="-778.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
-</g>
-<!-- proc~rmvs_util_spill_tp&#45;&gt;util_spill_tp -->
-<g id="call~~graph~~CallGraph_edge314" class="edge">
-<title>proc~rmvs_util_spill_tp&#45;&gt;util_spill_tp</title>
-<path fill="none" stroke="#000000" d="M850.54,-815.3C897.15,-807.5 968.6,-795.54 1013.65,-788"/>
-<polygon fill="#000000" stroke="#000000" points="1014.39,-791.43 1023.67,-786.33 1013.23,-784.52 1014.39,-791.43"/>
-</g>
-<!-- util_spill -->
-<g id="call~~graph~~CallGraph_node588" class="node">
-<title>util_spill</title>
-<polygon fill="#777777" stroke="#777777" points="1083.5,-877 1029.5,-877 1029.5,-853 1083.5,-853 1083.5,-877"/>
-<text text-anchor="middle" x="1056.5" y="-862.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
-</g>
-<!-- proc~rmvs_util_spill_tp&#45;&gt;util_spill -->
-<g id="call~~graph~~CallGraph_edge316" class="edge">
-<title>proc~rmvs_util_spill_tp&#45;&gt;util_spill</title>
-<path fill="none" stroke="#000000" d="M850.54,-830.7C899.15,-838.84 974.77,-851.49 1019.3,-858.94"/>
-<polygon fill="#000000" stroke="#000000" points="1018.93,-862.43 1029.37,-860.63 1020.09,-855.53 1018.93,-862.43"/>
-</g>
-<!-- proc~rmvs_util_spill_tp&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge315" class="edge">
-<title>proc~rmvs_util_spill_tp&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M850.72,-821.29C870.45,-823.1 892.1,-828.91 906,-844 995.18,-940.83 851.8,-1042.11 942,-1138 961.34,-1158.56 993.77,-1162.85 1019.02,-1162.55"/>
-<polygon fill="#000000" stroke="#000000" points="1019.48,-1166.04 1029.34,-1162.18 1019.22,-1159.04 1019.48,-1166.04"/>
-</g>
-<!-- proc~util_fill_tp -->
-<g id="call~~graph~~CallGraph_node306" class="node">
-<title>proc~util_fill_tp</title>
-<g id="a_call~~graph~~CallGraph_node306"><a xlink:href=".././proc/util_fill_tp.html" xlink:title="util_fill_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="355.5,-8901 298.5,-8901 298.5,-8877 355.5,-8877 355.5,-8901"/>
-<text text-anchor="middle" x="327" y="-8886.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
-</a>
-</g>
+<!-- proc~whm_util_resize_pl&#45;&gt;util_resize_pl -->
+<g id="call~~graph~~CallGraph_edge296" class="edge">
+<title>proc~whm_util_resize_pl&#45;&gt;util_resize_pl</title>
+<path fill="none" stroke="#000000" d="M831.89,-6452.9C845.19,-6455.99 859.34,-6459.98 872,-6465 889.22,-6471.83 891.06,-6478.5 908,-6486 925.37,-6493.69 945.16,-6500.36 962.63,-6505.6"/>
+<polygon fill="#000000" stroke="#000000" points="962.02,-6509.07 972.61,-6508.51 963.99,-6502.35 962.02,-6509.07"/>
 </g>
-<!-- proc~util_fill_tp&#45;&gt;interface~util_fill~2 -->
-<g id="call~~graph~~CallGraph_edge317" class="edge">
-<title>proc~util_fill_tp&#45;&gt;interface~util_fill~2</title>
-<path fill="none" stroke="#000000" d="M355.74,-8889.2C439.14,-8889.58 694.94,-8889.06 906,-8871 944.89,-8867.67 989.14,-8861.11 1019.34,-8856.2"/>
-<polygon fill="#000000" stroke="#000000" points="1020.1,-8859.62 1029.4,-8854.54 1018.97,-8852.71 1020.1,-8859.62"/>
+<!-- util_resize -->
+<g id="call~~graph~~CallGraph_node597" class="node">
+<title>util_resize</title>
+<polygon fill="#777777" stroke="#777777" points="1041,-6414 980,-6414 980,-6390 1041,-6390 1041,-6414"/>
+<text text-anchor="middle" x="1010.5" y="-6399.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </g>
-<!-- proc~util_fill_tp&#45;&gt;interface~util_fill_body -->
-<g id="call~~graph~~CallGraph_edge318" class="edge">
-<title>proc~util_fill_tp&#45;&gt;interface~util_fill_body</title>
-<path fill="none" stroke="#000000" d="M355.7,-8884.37C395.43,-8877.74 469.03,-8865.44 516.6,-8857.5"/>
-<polygon fill="#000000" stroke="#000000" points="517.34,-8860.92 526.62,-8855.83 516.18,-8854.02 517.34,-8860.92"/>
+<!-- proc~whm_util_resize_pl&#45;&gt;util_resize -->
+<g id="call~~graph~~CallGraph_edge297" class="edge">
+<title>proc~whm_util_resize_pl&#45;&gt;util_resize</title>
+<path fill="none" stroke="#000000" d="M831.71,-6434.68C873.29,-6427.04 931.34,-6416.37 969.65,-6409.33"/>
+<polygon fill="#000000" stroke="#000000" points="970.7,-6412.69 979.9,-6407.44 969.43,-6405.81 970.7,-6412.69"/>
 </g>
-<!-- proc~whm_setup_initialize_system -->
-<g id="call~~graph~~CallGraph_node307" class="node">
-<title>proc~whm_setup_initialize_system</title>
-<g id="a_call~~graph~~CallGraph_node307"><a xlink:href=".././proc/whm_setup_initialize_system.html" xlink:title="whm_setup_initialize_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="402.5,-8985 251.5,-8985 251.5,-8961 402.5,-8961 402.5,-8985"/>
-<text text-anchor="middle" x="327" y="-8970.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_initialize_system</text>
+<!-- proc~operator_cross_el_i8b -->
+<g id="call~~graph~~CallGraph_node339" class="node">
+<title>proc~operator_cross_el_i8b</title>
+<g id="a_call~~graph~~CallGraph_node339"><a xlink:href=".././proc/operator_cross_el_i8b.html" xlink:title="operator_cross_el_i8b">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="156.5,-9281 37.5,-9281 37.5,-9257 156.5,-9257 156.5,-9281"/>
+<text text-anchor="middle" x="97" y="-9266.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_i8b</text>
 </a>
 </g>
 </g>
-<!-- util_set_ir3h -->
+<!-- util_fill_pl -->
 <g id="call~~graph~~CallGraph_node558" class="node">
-<title>util_set_ir3h</title>
-<polygon fill="#777777" stroke="#777777" points="597.5,-9006 527.5,-9006 527.5,-8982 597.5,-8982 597.5,-9006"/>
-<text text-anchor="middle" x="562.5" y="-8991.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_ir3h</text>
-</g>
-<!-- proc~whm_setup_initialize_system&#45;&gt;util_set_ir3h -->
-<g id="call~~graph~~CallGraph_edge320" class="edge">
-<title>proc~whm_setup_initialize_system&#45;&gt;util_set_ir3h</title>
-<path fill="none" stroke="#000000" d="M402.52,-8979.7C440.34,-8983.1 484.99,-8987.12 517.32,-8990.03"/>
-<polygon fill="#000000" stroke="#000000" points="517.09,-8993.52 527.37,-8990.93 517.72,-8986.55 517.09,-8993.52"/>
+<title>util_fill_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1532.5,-5635 1476.5,-5635 1476.5,-5611 1532.5,-5611 1532.5,-5635"/>
+<text text-anchor="middle" x="1504.5" y="-5620.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
 </g>
-<!-- setup_initialize_system -->
-<g id="call~~graph~~CallGraph_node571" class="node">
-<title>setup_initialize_system</title>
-<polygon fill="#777777" stroke="#777777" points="623.5,-8964 501.5,-8964 501.5,-8940 623.5,-8940 623.5,-8964"/>
-<text text-anchor="middle" x="562.5" y="-8949.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
+<!-- proc~whm_util_fill_pl&#45;&gt;util_fill_pl -->
+<g id="call~~graph~~CallGraph_edge298" class="edge">
+<title>proc~whm_util_fill_pl&#45;&gt;util_fill_pl</title>
+<path fill="none" stroke="#000000" d="M1294.23,-5658.02C1342.21,-5649.99 1420.25,-5636.93 1466.26,-5629.23"/>
+<polygon fill="#000000" stroke="#000000" points="1467.11,-5632.64 1476.39,-5627.54 1465.95,-5625.73 1467.11,-5632.64"/>
 </g>
-<!-- proc~whm_setup_initialize_system&#45;&gt;setup_initialize_system -->
-<g id="call~~graph~~CallGraph_edge319" class="edge">
-<title>proc~whm_setup_initialize_system&#45;&gt;setup_initialize_system</title>
-<path fill="none" stroke="#000000" d="M402.52,-8966.3C430.93,-8963.74 463.2,-8960.84 491.2,-8958.32"/>
-<polygon fill="#000000" stroke="#000000" points="491.67,-8961.79 501.31,-8957.41 491.04,-8954.82 491.67,-8961.79"/>
+<!-- proc~whm_util_fill_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge299" class="edge">
+<title>proc~whm_util_fill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1294.13,-5667.35C1315.18,-5666.16 1339.32,-5660.68 1354,-5644 1423.06,-5565.53 1335.6,-5264.26 1390,-5175 1407.42,-5146.43 1441.34,-5127.81 1467.59,-5117.01"/>
+<polygon fill="#000000" stroke="#000000" points="1469.18,-5120.14 1477.22,-5113.24 1466.63,-5113.62 1469.18,-5120.14"/>
 </g>
-<!-- proc~util_set_beg_end_pl -->
-<g id="call~~graph~~CallGraph_node308" class="node">
-<title>proc~util_set_beg_end_pl</title>
-<g id="a_call~~graph~~CallGraph_node308"><a xlink:href=".././proc/util_set_beg_end_pl.html" xlink:title="util_set_beg_end_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="381.5,-9027 272.5,-9027 272.5,-9003 381.5,-9003 381.5,-9027"/>
-<text text-anchor="middle" x="327" y="-9012.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_beg_end_pl</text>
-</a>
+<!-- util_fill -->
+<g id="call~~graph~~CallGraph_node576" class="node">
+<title>util_fill</title>
+<polygon fill="#777777" stroke="#777777" points="1531.5,-5677 1477.5,-5677 1477.5,-5653 1531.5,-5653 1531.5,-5677"/>
+<text text-anchor="middle" x="1504.5" y="-5662.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
 </g>
+<!-- proc~whm_util_fill_pl&#45;&gt;util_fill -->
+<g id="call~~graph~~CallGraph_edge300" class="edge">
+<title>proc~whm_util_fill_pl&#45;&gt;util_fill</title>
+<path fill="none" stroke="#000000" d="M1294.23,-5665C1342.6,-5665 1421.52,-5665 1467.37,-5665"/>
+<polygon fill="#000000" stroke="#000000" points="1467.45,-5668.5 1477.45,-5665 1467.45,-5661.5 1467.45,-5668.5"/>
 </g>
-<!-- proc~whm_util_set_mu_eta_pl -->
-<g id="call~~graph~~CallGraph_node309" class="node">
-<title>proc~whm_util_set_mu_eta_pl</title>
-<g id="a_call~~graph~~CallGraph_node309"><a xlink:href=".././proc/whm_util_set_mu_eta_pl.html" xlink:title="whm_util_set_mu_eta_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="392.5,-9069 261.5,-9069 261.5,-9045 392.5,-9045 392.5,-9069"/>
-<text text-anchor="middle" x="327" y="-9054.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_set_mu_eta_pl</text>
+<!-- proc~rmvs_util_append_pl -->
+<g id="call~~graph~~CallGraph_node341" class="node">
+<title>proc~rmvs_util_append_pl</title>
+<g id="a_call~~graph~~CallGraph_node341"><a xlink:href=".././proc/rmvs_util_append_pl.html" xlink:title="rmvs_util_append_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="1307.5,-4845 1195.5,-4845 1195.5,-4821 1307.5,-4821 1307.5,-4845"/>
+<text text-anchor="middle" x="1251.5" y="-4830.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- util_set_mu_pl -->
-<g id="call~~graph~~CallGraph_node597" class="node">
-<title>util_set_mu_pl</title>
-<polygon fill="#777777" stroke="#777777" points="603.5,-9069 521.5,-9069 521.5,-9045 603.5,-9045 603.5,-9069"/>
-<text text-anchor="middle" x="562.5" y="-9054.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_mu_pl</text>
-</g>
-<!-- proc~whm_util_set_mu_eta_pl&#45;&gt;util_set_mu_pl -->
-<g id="call~~graph~~CallGraph_edge321" class="edge">
-<title>proc~whm_util_set_mu_eta_pl&#45;&gt;util_set_mu_pl</title>
-<path fill="none" stroke="#000000" d="M392.73,-9057C430.04,-9057 476.25,-9057 510.88,-9057"/>
-<polygon fill="#000000" stroke="#000000" points="511.23,-9060.5 521.23,-9057 511.23,-9053.5 511.23,-9060.5"/>
+<!-- proc~rmvs_util_append_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge301" class="edge">
+<title>proc~rmvs_util_append_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1307.57,-4833.36C1324.35,-4836.13 1341.62,-4842.08 1354,-4854 1402.14,-4900.36 1356.04,-4942.44 1390,-5000 1411.69,-5036.77 1450.23,-5068.37 1476.32,-5087.04"/>
+<polygon fill="#000000" stroke="#000000" points="1474.44,-5090 1484.64,-5092.86 1478.45,-5084.27 1474.44,-5090"/>
 </g>
-<!-- proc~rmvs_util_spill_pl&#45;&gt;util_spill -->
-<g id="call~~graph~~CallGraph_edge324" class="edge">
-<title>proc~rmvs_util_spill_pl&#45;&gt;util_spill</title>
-<path fill="none" stroke="#000000" d="M850.54,-899.3C899.15,-891.16 974.77,-878.51 1019.3,-871.06"/>
-<polygon fill="#000000" stroke="#000000" points="1020.09,-874.47 1029.37,-869.37 1018.93,-867.57 1020.09,-874.47"/>
+<!-- whm_util_append_pl -->
+<g id="call~~graph~~CallGraph_node587" class="node">
+<title>whm_util_append_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1560,-4845 1449,-4845 1449,-4821 1560,-4821 1560,-4845"/>
+<text text-anchor="middle" x="1504.5" y="-4830.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_append_pl</text>
 </g>
-<!-- proc~rmvs_util_spill_pl&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge323" class="edge">
-<title>proc~rmvs_util_spill_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M850.64,-905.62C870.25,-907.52 891.81,-913.31 906,-928 971.8,-996.1 875.48,-1070.6 942,-1138 961.71,-1157.97 993.8,-1162.38 1018.85,-1162.27"/>
-<polygon fill="#000000" stroke="#000000" points="1019.19,-1165.76 1029.09,-1161.98 1018.99,-1158.77 1019.19,-1165.76"/>
+<!-- proc~rmvs_util_append_pl&#45;&gt;whm_util_append_pl -->
+<g id="call~~graph~~CallGraph_edge303" class="edge">
+<title>proc~rmvs_util_append_pl&#45;&gt;whm_util_append_pl</title>
+<path fill="none" stroke="#000000" d="M1307.58,-4833C1346.3,-4833 1398.23,-4833 1438.9,-4833"/>
+<polygon fill="#000000" stroke="#000000" points="1438.98,-4836.5 1448.98,-4833 1438.98,-4829.5 1438.98,-4836.5"/>
 </g>
-<!-- whm_util_spill_pl -->
-<g id="call~~graph~~CallGraph_node596" class="node">
-<title>whm_util_spill_pl</title>
-<polygon fill="#777777" stroke="#777777" points="1103,-919 1010,-919 1010,-895 1103,-895 1103,-919"/>
-<text text-anchor="middle" x="1056.5" y="-904.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_spill_pl</text>
+<!-- proc~rmvs_util_append_pl&#45;&gt;util_append -->
+<g id="call~~graph~~CallGraph_edge302" class="edge">
+<title>proc~rmvs_util_append_pl&#45;&gt;util_append</title>
+<path fill="none" stroke="#000000" d="M1307.58,-4823.78C1353.58,-4816.09 1418.23,-4805.27 1460.48,-4798.2"/>
+<polygon fill="#000000" stroke="#000000" points="1461.17,-4801.63 1470.46,-4796.53 1460.02,-4794.73 1461.17,-4801.63"/>
 </g>
-<!-- proc~rmvs_util_spill_pl&#45;&gt;whm_util_spill_pl -->
-<g id="call~~graph~~CallGraph_edge322" class="edge">
-<title>proc~rmvs_util_spill_pl&#45;&gt;whm_util_spill_pl</title>
-<path fill="none" stroke="#000000" d="M850.54,-907C892.55,-907 954.75,-907 999.61,-907"/>
-<polygon fill="#000000" stroke="#000000" points="999.75,-910.5 1009.75,-907 999.75,-903.5 999.75,-910.5"/>
+<!-- proc~whm_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_edge304" class="edge">
+<title>proc~whm_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl</title>
+<path fill="none" stroke="#000000" d="M393.05,-7015.96C422.48,-7010.52 457.25,-7004.09 487.02,-6998.58"/>
+<polygon fill="#000000" stroke="#000000" points="487.71,-7002.01 496.91,-6996.75 486.44,-6995.13 487.71,-7002.01"/>
 </g>
-<!-- proc~whm_util_append_pl -->
-<g id="call~~graph~~CallGraph_node312" class="node">
-<title>proc~whm_util_append_pl</title>
-<g id="a_call~~graph~~CallGraph_node312"><a xlink:href=".././proc/whm_util_append_pl.html" xlink:title="whm_util_append_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="859,-1495 748,-1495 748,-1471 859,-1471 859,-1495"/>
-<text text-anchor="middle" x="803.5" y="-1480.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_append_pl</text>
+<!-- interface~symba_util_resize_merger -->
+<g id="call~~graph~~CallGraph_node343" class="node">
+<title>interface~symba_util_resize_merger</title>
+<g id="a_call~~graph~~CallGraph_node343"><a xlink:href=".././interface/symba_util_resize_merger.html" xlink:title="symba_util_resize_merger">
+<polygon fill="#a7506f" stroke="#a7506f" points="166.5,-6631 27.5,-6631 27.5,-6607 166.5,-6607 166.5,-6631"/>
+<text text-anchor="middle" x="97" y="-6616.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_merger</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_util_append_pl&#45;&gt;util_append -->
-<g id="call~~graph~~CallGraph_edge325" class="edge">
-<title>proc~whm_util_append_pl&#45;&gt;util_append</title>
-<path fill="none" stroke="#000000" d="M859.27,-1492.17C905.25,-1499.86 970.02,-1510.7 1012.38,-1517.78"/>
-<polygon fill="#000000" stroke="#000000" points="1011.93,-1521.26 1022.37,-1519.46 1013.09,-1514.35 1011.93,-1521.26"/>
-</g>
-<!-- proc~whm_util_append_pl&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge327" class="edge">
-<title>proc~whm_util_append_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M833.94,-1471C855.84,-1460.94 885.38,-1444.89 906,-1424 944.34,-1385.16 1018.19,-1236.36 1045.25,-1180.43"/>
-<polygon fill="#000000" stroke="#000000" points="1048.55,-1181.64 1049.73,-1171.11 1042.24,-1178.6 1048.55,-1181.64"/>
+<!-- interface~symba_util_resize_merger&#45;&gt;proc~symba_util_resize_merger -->
+<g id="call~~graph~~CallGraph_edge305" class="edge">
+<title>interface~symba_util_resize_merger&#45;&gt;proc~symba_util_resize_merger</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.72,-6619C192.07,-6619 220.98,-6619 247.16,-6619"/>
+<polygon fill="#000000" stroke="#000000" points="247.42,-6622.5 257.42,-6619 247.42,-6615.5 247.42,-6622.5"/>
 </g>
-<!-- proc~whm_util_append_pl&#45;&gt;util_append_pl -->
-<g id="call~~graph~~CallGraph_edge326" class="edge">
-<title>proc~whm_util_append_pl&#45;&gt;util_append_pl</title>
-<path fill="none" stroke="#000000" d="M859.27,-1473.83C902.72,-1466.57 962.95,-1456.49 1005.18,-1449.42"/>
-<polygon fill="#000000" stroke="#000000" points="1005.96,-1452.84 1015.24,-1447.74 1004.8,-1445.93 1005.96,-1452.84"/>
+<!-- interface~symba_util_resize_pl&#45;&gt;proc~symba_util_resize_pl -->
+<g id="call~~graph~~CallGraph_edge306" class="edge">
+<title>interface~symba_util_resize_pl&#45;&gt;proc~symba_util_resize_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.16,-6550.55C642.87,-6546.4 681.28,-6541.2 713.51,-6536.85"/>
+<polygon fill="#000000" stroke="#000000" points="714.3,-6540.28 723.74,-6535.47 713.36,-6533.34 714.3,-6540.28"/>
 </g>
-<!-- proc~util_resize_arr_char_string -->
-<g id="call~~graph~~CallGraph_node314" class="node">
-<title>proc~util_resize_arr_char_string</title>
-<g id="a_call~~graph~~CallGraph_node314"><a xlink:href=".././proc/util_resize_arr_char_string.html" xlink:title="util_resize_arr_char_string">
-<polygon fill="#d9534f" stroke="#d9534f" points="166.5,-9111 27.5,-9111 27.5,-9087 166.5,-9087 166.5,-9111"/>
-<text text-anchor="middle" x="97" y="-9096.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_arr_char_string</text>
+<!-- interface~symba_util_resize_tp -->
+<g id="call~~graph~~CallGraph_node346" class="node">
+<title>interface~symba_util_resize_tp</title>
+<g id="a_call~~graph~~CallGraph_node346"><a xlink:href=".././interface/symba_util_resize_tp.html" xlink:title="symba_util_resize_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="612.5,-6498 499.5,-6498 499.5,-6474 612.5,-6474 612.5,-6498"/>
+<text text-anchor="middle" x="556" y="-6483.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el -->
-<g id="call~~graph~~CallGraph_edge328" class="edge">
-<title>proc~orbel_xv2el_vec&#45;&gt;proc~orbel_xv2el</title>
-<path fill="none" stroke="#000000" d="M372.19,-7568C414.24,-7568 477.1,-7568 518.69,-7568"/>
-<polygon fill="#000000" stroke="#000000" points="518.78,-7571.5 528.78,-7568 518.78,-7564.5 518.78,-7571.5"/>
+<!-- interface~symba_util_resize_tp&#45;&gt;proc~symba_util_resize_tp -->
+<g id="call~~graph~~CallGraph_edge307" class="edge">
+<title>interface~symba_util_resize_tp&#45;&gt;proc~symba_util_resize_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.73,-6486C643.21,-6486 681.16,-6486 713.1,-6486"/>
+<polygon fill="#000000" stroke="#000000" points="713.24,-6489.5 723.24,-6486 713.24,-6482.5 713.24,-6489.5"/>
 </g>
-<!-- proc~whm_util_resize_pl -->
-<g id="call~~graph~~CallGraph_node316" class="node">
-<title>proc~whm_util_resize_pl</title>
-<g id="a_call~~graph~~CallGraph_node316"><a xlink:href=".././proc/whm_util_resize_pl.html" xlink:title="whm_util_resize_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="855,-5489 752,-5489 752,-5465 855,-5465 855,-5489"/>
-<text text-anchor="middle" x="803.5" y="-5474.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_resize_pl</text>
+<!-- interface~symba_util_sort_pl -->
+<g id="call~~graph~~CallGraph_node347" class="node">
+<title>interface~symba_util_sort_pl</title>
+<g id="a_call~~graph~~CallGraph_node347"><a xlink:href=".././interface/symba_util_sort_pl.html" xlink:title="symba_util_sort_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="148,-6872 46,-6872 46,-6848 148,-6848 148,-6872"/>
+<text text-anchor="middle" x="97" y="-6857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_util_resize_pl&#45;&gt;util_resize -->
-<g id="call~~graph~~CallGraph_edge330" class="edge">
-<title>proc~whm_util_resize_pl&#45;&gt;util_resize</title>
-<path fill="none" stroke="#000000" d="M855.29,-5468.5C902.77,-5460.56 972.67,-5448.86 1016.07,-5441.6"/>
-<polygon fill="#000000" stroke="#000000" points="1016.69,-5445.04 1025.98,-5439.94 1015.54,-5438.14 1016.69,-5445.04"/>
-</g>
-<!-- util_resize_pl -->
-<g id="call~~graph~~CallGraph_node622" class="node">
-<title>util_resize_pl</title>
-<polygon fill="#777777" stroke="#777777" points="1094,-5561 1019,-5561 1019,-5537 1094,-5537 1094,-5561"/>
-<text text-anchor="middle" x="1056.5" y="-5546.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
-</g>
-<!-- proc~whm_util_resize_pl&#45;&gt;util_resize_pl -->
-<g id="call~~graph~~CallGraph_edge329" class="edge">
-<title>proc~whm_util_resize_pl&#45;&gt;util_resize_pl</title>
-<path fill="none" stroke="#000000" d="M855.13,-5486.18C871.47,-5489.49 889.59,-5493.52 906,-5498 943.2,-5508.15 984.63,-5522.54 1014.43,-5533.44"/>
-<polygon fill="#000000" stroke="#000000" points="1013.47,-5536.82 1024.07,-5537 1015.9,-5530.25 1013.47,-5536.82"/>
-</g>
-<!-- proc~util_resize_tp -->
-<g id="call~~graph~~CallGraph_node317" class="node">
-<title>proc~util_resize_tp</title>
-<g id="a_call~~graph~~CallGraph_node317"><a xlink:href=".././proc/util_resize_tp.html" xlink:title="util_resize_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="365,-4063 289,-4063 289,-4039 365,-4039 365,-4063"/>
-<text text-anchor="middle" x="327" y="-4048.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
-</a>
-</g>
+<!-- interface~symba_util_sort_pl&#45;&gt;proc~symba_util_sort_pl -->
+<g id="call~~graph~~CallGraph_edge308" class="edge">
+<title>interface~symba_util_sort_pl&#45;&gt;proc~symba_util_sort_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.04,-6860C182.66,-6860 228.93,-6860 265.61,-6860"/>
+<polygon fill="#000000" stroke="#000000" points="265.69,-6863.5 275.69,-6860 265.69,-6856.5 265.69,-6863.5"/>
 </g>
-<!-- interface~util_resize_body -->
-<g id="call~~graph~~CallGraph_node376" class="node">
-<title>interface~util_resize_body</title>
-<g id="a_call~~graph~~CallGraph_node376"><a xlink:href=".././interface/util_resize_body.html" xlink:title="util_resize_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="607.5,-4093 517.5,-4093 517.5,-4069 607.5,-4069 607.5,-4093"/>
-<text text-anchor="middle" x="562.5" y="-4078.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
+<!-- interface~symba_util_sort_tp -->
+<g id="call~~graph~~CallGraph_node348" class="node">
+<title>interface~symba_util_sort_tp</title>
+<g id="a_call~~graph~~CallGraph_node348"><a xlink:href=".././interface/symba_util_sort_tp.html" xlink:title="symba_util_sort_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="148.5,-8441 45.5,-8441 45.5,-8417 148.5,-8417 148.5,-8441"/>
+<text text-anchor="middle" x="97" y="-8426.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~util_resize_tp&#45;&gt;interface~util_resize_body -->
-<g id="call~~graph~~CallGraph_edge332" class="edge">
-<title>proc~util_resize_tp&#45;&gt;interface~util_resize_body</title>
-<path fill="none" stroke="#000000" d="M365.26,-4055.79C403.52,-4060.7 463.48,-4068.41 507.06,-4074.01"/>
-<polygon fill="#000000" stroke="#000000" points="506.84,-4077.51 517.2,-4075.31 507.73,-4070.56 506.84,-4077.51"/>
-</g>
-<!-- proc~util_resize_tp&#45;&gt;interface~util_resize~2 -->
-<g id="call~~graph~~CallGraph_edge331" class="edge">
-<title>proc~util_resize_tp&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M365.01,-4043.47C458.97,-4026.03 712.97,-3989.54 906,-4060 963,-4080.81 1014.18,-4133.24 1039.24,-4162.13"/>
-<polygon fill="#000000" stroke="#000000" points="1036.74,-4164.59 1045.88,-4169.95 1042.07,-4160.06 1036.74,-4164.59"/>
+<!-- interface~symba_util_sort_tp&#45;&gt;proc~symba_util_sort_tp -->
+<g id="call~~graph~~CallGraph_edge309" class="edge">
+<title>interface~symba_util_sort_tp&#45;&gt;proc~symba_util_sort_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.6,-8429C183.02,-8429 228.74,-8429 265.14,-8429"/>
+<polygon fill="#000000" stroke="#000000" points="265.15,-8432.5 275.15,-8429 265.15,-8425.5 265.15,-8432.5"/>
 </g>
-<!-- proc~whm_util_fill_pl -->
-<g id="call~~graph~~CallGraph_node318" class="node">
-<title>proc~whm_util_fill_pl</title>
-<g id="a_call~~graph~~CallGraph_node318"><a xlink:href=".././proc/whm_util_fill_pl.html" xlink:title="whm_util_fill_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="846,-1087 761,-1087 761,-1063 846,-1063 846,-1087"/>
-<text text-anchor="middle" x="803.5" y="-1072.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_fill_pl</text>
+<!-- interface~symba_util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_node349" class="node">
+<title>interface~symba_util_sort_rearrange_pl</title>
+<g id="a_call~~graph~~CallGraph_node349"><a xlink:href=".././interface/symba_util_sort_rearrange_pl.html" xlink:title="symba_util_sort_rearrange_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="174.5,-6998 19.5,-6998 19.5,-6974 174.5,-6974 174.5,-6998"/>
+<text text-anchor="middle" x="97" y="-6983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_rearrange_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_util_fill_pl&#45;&gt;util_fill -->
-<g id="call~~graph~~CallGraph_edge335" class="edge">
-<title>proc~whm_util_fill_pl&#45;&gt;util_fill</title>
-<path fill="none" stroke="#000000" d="M846.23,-1075C894.6,-1075 973.52,-1075 1019.37,-1075"/>
-<polygon fill="#000000" stroke="#000000" points="1019.45,-1078.5 1029.45,-1075 1019.45,-1071.5 1019.45,-1078.5"/>
-</g>
-<!-- proc~whm_util_fill_pl&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge333" class="edge">
-<title>proc~whm_util_fill_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M846.24,-1077.45C865.5,-1080.09 888.02,-1085.39 906,-1096 927.17,-1108.49 920.7,-1125.73 942,-1138 965.49,-1151.53 995.85,-1156.62 1019.26,-1158.42"/>
-<polygon fill="#000000" stroke="#000000" points="1019.28,-1161.93 1029.47,-1159.03 1019.7,-1154.94 1019.28,-1161.93"/>
+<!-- interface~symba_util_sort_rearrange_pl&#45;&gt;proc~symba_util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_edge310" class="edge">
+<title>interface~symba_util_sort_rearrange_pl&#45;&gt;proc~symba_util_sort_rearrange_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.55,-6986C195.33,-6986 217.97,-6986 239.26,-6986"/>
+<polygon fill="#000000" stroke="#000000" points="239.26,-6989.5 249.26,-6986 239.26,-6982.5 239.26,-6989.5"/>
 </g>
-<!-- proc~whm_util_fill_pl&#45;&gt;util_fill_pl -->
-<g id="call~~graph~~CallGraph_edge334" class="edge">
-<title>proc~whm_util_fill_pl&#45;&gt;util_fill_pl</title>
-<path fill="none" stroke="#000000" d="M846.23,-1068.02C894.21,-1059.99 972.25,-1046.93 1018.26,-1039.23"/>
-<polygon fill="#000000" stroke="#000000" points="1019.11,-1042.64 1028.39,-1037.54 1017.95,-1035.73 1019.11,-1042.64"/>
+<!-- proc~whm_util_sort_pl&#45;&gt;util_sort_pl -->
+<g id="call~~graph~~CallGraph_edge311" class="edge">
+<title>proc~whm_util_sort_pl&#45;&gt;util_sort_pl</title>
+<path fill="none" stroke="#000000" d="M373.66,-6897.78C414.67,-6893.98 474.32,-6888.46 513.87,-6884.8"/>
+<polygon fill="#000000" stroke="#000000" points="514.33,-6888.28 523.96,-6883.87 513.69,-6881.31 514.33,-6888.28"/>
 </g>
-<!-- proc~util_resize_arr_dp -->
-<g id="call~~graph~~CallGraph_node319" class="node">
-<title>proc~util_resize_arr_dp</title>
-<g id="a_call~~graph~~CallGraph_node319"><a xlink:href=".././proc/util_resize_arr_dp.html" xlink:title="util_resize_arr_DP">
-<polygon fill="#d9534f" stroke="#d9534f" points="147,-9153 47,-9153 47,-9129 147,-9129 147,-9153"/>
-<text text-anchor="middle" x="97" y="-9138.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_arr_DP</text>
+<!-- interface~symba_util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_node351" class="node">
+<title>interface~symba_util_sort_rearrange_tp</title>
+<g id="a_call~~graph~~CallGraph_node351"><a xlink:href=".././interface/symba_util_sort_rearrange_tp.html" xlink:title="symba_util_sort_rearrange_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="175,-8525 19,-8525 19,-8501 175,-8501 175,-8525"/>
+<text text-anchor="middle" x="97" y="-8510.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_rearrange_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~io_toupper -->
-<g id="call~~graph~~CallGraph_node320" class="node">
-<title>proc~io_toupper</title>
-<g id="a_call~~graph~~CallGraph_node320"><a xlink:href=".././proc/io_toupper.html" xlink:title="io_toupper">
-<polygon fill="#d9534f" stroke="#d9534f" points="1353.5,-2986 1289.5,-2986 1289.5,-2962 1353.5,-2962 1353.5,-2986"/>
-<text text-anchor="middle" x="1321.5" y="-2971.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
-</a>
+<!-- interface~symba_util_sort_rearrange_tp&#45;&gt;proc~symba_util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_edge312" class="edge">
+<title>interface~symba_util_sort_rearrange_tp&#45;&gt;proc~symba_util_sort_rearrange_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M175.19,-8513C195.62,-8513 217.81,-8513 238.73,-8513"/>
+<polygon fill="#000000" stroke="#000000" points="238.89,-8516.5 248.89,-8513 238.89,-8509.5 238.89,-8516.5"/>
 </g>
+<!-- proc~io_param_reader&#45;&gt;interface~io_toupper -->
+<g id="call~~graph~~CallGraph_edge313" class="edge">
+<title>proc~io_param_reader&#45;&gt;interface~io_toupper</title>
+<path fill="none" stroke="#000000" d="M603.54,-213.41C643.17,-206.09 699.57,-195.67 737.64,-188.64"/>
+<polygon fill="#000000" stroke="#000000" points="738.67,-192.01 747.87,-186.75 737.4,-185.12 738.67,-192.01"/>
 </g>
-<!-- proc~whm_util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_node321" class="node">
-<title>proc~whm_util_sort_rearrange_pl</title>
-<g id="a_call~~graph~~CallGraph_node321"><a xlink:href=".././proc/whm_util_sort_rearrange_pl.html" xlink:title="whm_util_sort_rearrange_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="400,-6802 254,-6802 254,-6778 400,-6778 400,-6802"/>
-<text text-anchor="middle" x="327" y="-6787.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_sort_rearrange_pl</text>
+<!-- interface~io_get_token -->
+<g id="call~~graph~~CallGraph_node473" class="node">
+<title>interface~io_get_token</title>
+<g id="a_call~~graph~~CallGraph_node473"><a xlink:href=".././interface/io_get_token.html" xlink:title="io_get_token">
+<polygon fill="#a7506f" stroke="#a7506f" points="817,-235 743,-235 743,-211 817,-211 817,-235"/>
+<text text-anchor="middle" x="780" y="-220.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_edge336" class="edge">
-<title>proc~whm_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl</title>
-<path fill="none" stroke="#000000" d="M400.28,-6790C429.88,-6790 463.95,-6790 493.13,-6790"/>
-<polygon fill="#000000" stroke="#000000" points="493.23,-6793.5 503.23,-6790 493.23,-6786.5 493.23,-6793.5"/>
+<!-- proc~io_param_reader&#45;&gt;interface~io_get_token -->
+<g id="call~~graph~~CallGraph_edge314" class="edge">
+<title>proc~io_param_reader&#45;&gt;interface~io_get_token</title>
+<path fill="none" stroke="#000000" d="M603.54,-222.21C641.43,-222.38 694.64,-222.62 732.52,-222.79"/>
+<polygon fill="#000000" stroke="#000000" points="732.75,-226.29 742.77,-222.84 732.78,-219.29 732.75,-226.29"/>
 </g>
-<!-- proc~util_resize_arr_dpvec -->
-<g id="call~~graph~~CallGraph_node322" class="node">
-<title>proc~util_resize_arr_dpvec</title>
-<g id="a_call~~graph~~CallGraph_node322"><a xlink:href=".././proc/util_resize_arr_dpvec.html" xlink:title="util_resize_arr_DPvec">
-<polygon fill="#d9534f" stroke="#d9534f" points="155.5,-9195 38.5,-9195 38.5,-9171 155.5,-9171 155.5,-9195"/>
-<text text-anchor="middle" x="97" y="-9180.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_arr_DPvec</text>
-</a>
+<!-- proc~whm_util_spill_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge315" class="edge">
+<title>proc~whm_util_spill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1298.1,-4921.24C1316.81,-4924.77 1337.82,-4931.23 1354,-4943 1378.23,-4960.63 1370.84,-4976.96 1390,-5000 1417.79,-5033.42 1455.83,-5066.56 1480.04,-5086.42"/>
+<polygon fill="#000000" stroke="#000000" points="1478.01,-5089.28 1487.98,-5092.86 1482.42,-5083.84 1478.01,-5089.28"/>
 </g>
+<!-- util_spill -->
+<g id="call~~graph~~CallGraph_node571" class="node">
+<title>util_spill</title>
+<polygon fill="#777777" stroke="#777777" points="1531.5,-4929 1477.5,-4929 1477.5,-4905 1531.5,-4905 1531.5,-4929"/>
+<text text-anchor="middle" x="1504.5" y="-4914.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
 </g>
-<!-- whm_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_node575" class="node">
-<title>whm_kick_getacch_tp</title>
-<polygon fill="#777777" stroke="#777777" points="621.5,-6550 503.5,-6550 503.5,-6526 621.5,-6526 621.5,-6550"/>
-<text text-anchor="middle" x="562.5" y="-6535.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_tp</text>
+<!-- proc~whm_util_spill_pl&#45;&gt;util_spill -->
+<g id="call~~graph~~CallGraph_edge317" class="edge">
+<title>proc~whm_util_spill_pl&#45;&gt;util_spill</title>
+<path fill="none" stroke="#000000" d="M1298.25,-4917C1346.81,-4917 1422.59,-4917 1467.21,-4917"/>
+<polygon fill="#000000" stroke="#000000" points="1467.31,-4920.5 1477.31,-4917 1467.31,-4913.5 1467.31,-4920.5"/>
 </g>
-<!-- proc~rmvs_kick_getacch_tp&#45;&gt;whm_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_edge337" class="edge">
-<title>proc~rmvs_kick_getacch_tp&#45;&gt;whm_kick_getacch_tp</title>
-<path fill="none" stroke="#000000" d="M386.02,-6538C418.46,-6538 459.07,-6538 493.06,-6538"/>
-<polygon fill="#000000" stroke="#000000" points="493.37,-6541.5 503.37,-6538 493.37,-6534.5 493.37,-6541.5"/>
+<!-- proc~whm_util_spill_pl&#45;&gt;util_spill_pl -->
+<g id="call~~graph~~CallGraph_edge316" class="edge">
+<title>proc~whm_util_spill_pl&#45;&gt;util_spill_pl</title>
+<path fill="none" stroke="#000000" d="M1298.25,-4928.3C1345.18,-4939.89 1417.51,-4957.76 1462.6,-4968.9"/>
+<polygon fill="#000000" stroke="#000000" points="1461.79,-4972.3 1472.34,-4971.3 1463.47,-4965.51 1461.79,-4972.3"/>
 </g>
-<!-- proc~whm_util_set_ir3j -->
-<g id="call~~graph~~CallGraph_node325" class="node">
-<title>proc~whm_util_set_ir3j</title>
-<g id="a_call~~graph~~CallGraph_node325"><a xlink:href=".././proc/whm_util_set_ir3j.html" xlink:title="whm_util_set_ir3j">
-<polygon fill="#d9534f" stroke="#d9534f" points="374.5,-9237 279.5,-9237 279.5,-9213 374.5,-9213 374.5,-9237"/>
-<text text-anchor="middle" x="327" y="-9222.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_set_ir3j</text>
+<!-- proc~operator_mag_sp -->
+<g id="call~~graph~~CallGraph_node355" class="node">
+<title>proc~operator_mag_sp</title>
+<g id="a_call~~graph~~CallGraph_node355"><a xlink:href=".././proc/operator_mag_sp.html" xlink:title="operator_mag_sp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="145.5,-9323 48.5,-9323 48.5,-9299 145.5,-9299 145.5,-9323"/>
+<text text-anchor="middle" x="97" y="-9308.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag_sp</text>
 </a>
 </g>
 </g>
-<!-- proc~util_resize_arr_i4b -->
-<g id="call~~graph~~CallGraph_node326" class="node">
-<title>proc~util_resize_arr_i4b</title>
-<g id="a_call~~graph~~CallGraph_node326"><a xlink:href=".././proc/util_resize_arr_i4b.html" xlink:title="util_resize_arr_I4B">
-<polygon fill="#d9534f" stroke="#d9534f" points="148,-9279 46,-9279 46,-9255 148,-9255 148,-9279"/>
-<text text-anchor="middle" x="97" y="-9264.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_arr_I4B</text>
+<!-- proc~gr_p4_pos_kick -->
+<g id="call~~graph~~CallGraph_node356" class="node">
+<title>proc~gr_p4_pos_kick</title>
+<g id="a_call~~graph~~CallGraph_node356"><a xlink:href=".././proc/gr_p4_pos_kick.html" xlink:title="gr_p4_pos_kick">
+<polygon fill="#d9534f" stroke="#d9534f" points="371,-9365 283,-9365 283,-9341 371,-9341 371,-9365"/>
+<text text-anchor="middle" x="327" y="-9350.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_p4_pos_kick</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_param_in -->
-<g id="call~~graph~~CallGraph_node327" class="node">
-<title>proc~io_read_param_in</title>
-<g id="a_call~~graph~~CallGraph_node327"><a xlink:href=".././proc/io_read_param_in.html" xlink:title="io_read_param_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="853.5,-3269 753.5,-3269 753.5,-3245 853.5,-3245 853.5,-3269"/>
-<text text-anchor="middle" x="803.5" y="-3254.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_param_in</text>
+<!-- proc~gr_kick_getacch -->
+<g id="call~~graph~~CallGraph_node357" class="node">
+<title>proc~gr_kick_getacch</title>
+<g id="a_call~~graph~~CallGraph_node357"><a xlink:href=".././proc/gr_kick_getacch.html" xlink:title="gr_kick_getacch">
+<polygon fill="#d9534f" stroke="#d9534f" points="372,-9407 282,-9407 282,-9383 372,-9383 372,-9407"/>
+<text text-anchor="middle" x="327" y="-9392.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_param_in&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge338" class="edge">
-<title>proc~io_read_param_in&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M853.63,-3264.01C870.55,-3267.25 889.4,-3271.79 906,-3278 951.79,-3295.13 1000.36,-3324.85 1029.29,-3343.96"/>
-<polygon fill="#000000" stroke="#000000" points="1027.71,-3347.11 1037.97,-3349.76 1031.6,-3341.29 1027.71,-3347.11"/>
-</g>
-<!-- proc~whm_util_sort_pl -->
-<g id="call~~graph~~CallGraph_node328" class="node">
-<title>proc~whm_util_sort_pl</title>
-<g id="a_call~~graph~~CallGraph_node328"><a xlink:href=".././proc/whm_util_sort_pl.html" xlink:title="whm_util_sort_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="373.5,-9321 280.5,-9321 280.5,-9297 373.5,-9297 373.5,-9321"/>
-<text text-anchor="middle" x="327" y="-9306.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_sort_pl</text>
+<!-- proc~rmvs_util_fill_pl -->
+<g id="call~~graph~~CallGraph_node359" class="node">
+<title>proc~rmvs_util_fill_pl</title>
+<g id="a_call~~graph~~CallGraph_node359"><a xlink:href=".././proc/rmvs_util_fill_pl.html" xlink:title="rmvs_util_fill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="1294,-5719 1209,-5719 1209,-5695 1294,-5695 1294,-5719"/>
+<text text-anchor="middle" x="1251.5" y="-5704.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_fill_pl</text>
 </a>
 </g>
 </g>
-<!-- util_sort_pl -->
-<g id="call~~graph~~CallGraph_node619" class="node">
-<title>util_sort_pl</title>
-<polygon fill="#777777" stroke="#777777" points="594.5,-9342 530.5,-9342 530.5,-9318 594.5,-9318 594.5,-9342"/>
-<text text-anchor="middle" x="562.5" y="-9327.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_pl</text>
+<!-- proc~rmvs_util_fill_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge318" class="edge">
+<title>proc~rmvs_util_fill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1294.17,-5709.39C1315.23,-5708.2 1339.37,-5702.73 1354,-5686 1428.94,-5600.31 1331.06,-5272.39 1390,-5175 1407.33,-5146.37 1441.27,-5127.76 1467.54,-5116.97"/>
+<polygon fill="#000000" stroke="#000000" points="1469.13,-5120.11 1477.18,-5113.22 1466.59,-5113.59 1469.13,-5120.11"/>
 </g>
-<!-- proc~whm_util_sort_pl&#45;&gt;util_sort_pl -->
-<g id="call~~graph~~CallGraph_edge339" class="edge">
-<title>proc~whm_util_sort_pl&#45;&gt;util_sort_pl</title>
-<path fill="none" stroke="#000000" d="M373.58,-9313.1C416.06,-9316.92 478.89,-9322.57 520.01,-9326.27"/>
-<polygon fill="#000000" stroke="#000000" points="519.95,-9329.78 530.22,-9327.19 520.58,-9322.81 519.95,-9329.78"/>
+<!-- proc~rmvs_util_fill_pl&#45;&gt;util_fill -->
+<g id="call~~graph~~CallGraph_edge320" class="edge">
+<title>proc~rmvs_util_fill_pl&#45;&gt;util_fill</title>
+<path fill="none" stroke="#000000" d="M1294.23,-5700.02C1342.6,-5691.92 1421.52,-5678.72 1467.37,-5671.05"/>
+<polygon fill="#000000" stroke="#000000" points="1468.16,-5674.46 1477.45,-5669.36 1467.01,-5667.56 1468.16,-5674.46"/>
 </g>
-<!-- proc~util_resize_arr_logical -->
-<g id="call~~graph~~CallGraph_node329" class="node">
-<title>proc~util_resize_arr_logical</title>
-<g id="a_call~~graph~~CallGraph_node329"><a xlink:href=".././proc/util_resize_arr_logical.html" xlink:title="util_resize_arr_logical">
-<polygon fill="#d9534f" stroke="#d9534f" points="155,-9405 39,-9405 39,-9381 155,-9381 155,-9405"/>
-<text text-anchor="middle" x="97" y="-9390.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_arr_logical</text>
-</a>
+<!-- whm_util_fill_pl -->
+<g id="call~~graph~~CallGraph_node611" class="node">
+<title>whm_util_fill_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1547,-5719 1462,-5719 1462,-5695 1547,-5695 1547,-5719"/>
+<text text-anchor="middle" x="1504.5" y="-5704.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_fill_pl</text>
 </g>
+<!-- proc~rmvs_util_fill_pl&#45;&gt;whm_util_fill_pl -->
+<g id="call~~graph~~CallGraph_edge319" class="edge">
+<title>proc~rmvs_util_fill_pl&#45;&gt;whm_util_fill_pl</title>
+<path fill="none" stroke="#000000" d="M1294.23,-5707C1337.39,-5707 1404.86,-5707 1451.47,-5707"/>
+<polygon fill="#000000" stroke="#000000" points="1451.67,-5710.5 1461.67,-5707 1451.67,-5703.5 1451.67,-5710.5"/>
 </g>
-<!-- whm_setup_pl -->
-<g id="call~~graph~~CallGraph_node576" class="node">
-<title>whm_setup_pl</title>
-<polygon fill="#777777" stroke="#777777" points="603.5,-6592 521.5,-6592 521.5,-6568 603.5,-6568 603.5,-6592"/>
-<text text-anchor="middle" x="562.5" y="-6577.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_pl</text>
+<!-- proc~operator_mag_el_qp -->
+<g id="call~~graph~~CallGraph_node361" class="node">
+<title>proc~operator_mag_el_qp</title>
+<g id="a_call~~graph~~CallGraph_node361"><a xlink:href=".././proc/operator_mag_el_qp.html" xlink:title="operator_mag_el_qp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="153,-9449 41,-9449 41,-9425 153,-9425 153,-9449"/>
+<text text-anchor="middle" x="97" y="-9434.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag_el_qp</text>
+</a>
 </g>
-<!-- proc~rmvs_setup_pl&#45;&gt;whm_setup_pl -->
-<g id="call~~graph~~CallGraph_edge340" class="edge">
-<title>proc~rmvs_setup_pl&#45;&gt;whm_setup_pl</title>
-<path fill="none" stroke="#000000" d="M368.14,-6580C407.77,-6580 468.49,-6580 511.29,-6580"/>
-<polygon fill="#000000" stroke="#000000" points="511.49,-6583.5 521.49,-6580 511.49,-6576.5 511.49,-6583.5"/>
 </g>
-<!-- proc~whm_util_spill_pl -->
-<g id="call~~graph~~CallGraph_node331" class="node">
-<title>proc~whm_util_spill_pl</title>
-<g id="a_call~~graph~~CallGraph_node331"><a xlink:href=".././proc/whm_util_spill_pl.html" xlink:title="whm_util_spill_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="850,-877 757,-877 757,-853 850,-853 850,-877"/>
-<text text-anchor="middle" x="803.5" y="-862.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_spill_pl</text>
+<!-- proc~rmvs_util_append_tp -->
+<g id="call~~graph~~CallGraph_node362" class="node">
+<title>proc~rmvs_util_append_tp</title>
+<g id="a_call~~graph~~CallGraph_node362"><a xlink:href=".././proc/rmvs_util_append_tp.html" xlink:title="rmvs_util_append_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="1307.5,-4803 1195.5,-4803 1195.5,-4779 1307.5,-4779 1307.5,-4803"/>
+<text text-anchor="middle" x="1251.5" y="-4788.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_append_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_util_spill_pl&#45;&gt;util_spill -->
-<g id="call~~graph~~CallGraph_edge343" class="edge">
-<title>proc~whm_util_spill_pl&#45;&gt;util_spill</title>
-<path fill="none" stroke="#000000" d="M850.25,-865C898.81,-865 974.59,-865 1019.21,-865"/>
-<polygon fill="#000000" stroke="#000000" points="1019.31,-868.5 1029.31,-865 1019.31,-861.5 1019.31,-868.5"/>
+<!-- proc~rmvs_util_append_tp&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge321" class="edge">
+<title>proc~rmvs_util_append_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1307.68,-4790.94C1324.57,-4793.67 1341.88,-4799.69 1354,-4812 1413.71,-4872.6 1348.71,-4925.62 1390,-5000 1410.6,-5037.11 1449.06,-5068.44 1475.45,-5086.97"/>
+<polygon fill="#000000" stroke="#000000" points="1473.66,-5089.99 1483.89,-5092.75 1477.62,-5084.21 1473.66,-5089.99"/>
 </g>
-<!-- proc~whm_util_spill_pl&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge342" class="edge">
-<title>proc~whm_util_spill_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M850.06,-863.37C869.91,-865.15 891.83,-870.92 906,-886 983.48,-968.45 863.66,-1056.37 942,-1138 961.55,-1158.37 993.95,-1162.68 1019.14,-1162.44"/>
-<polygon fill="#000000" stroke="#000000" points="1019.56,-1165.92 1029.44,-1162.09 1019.33,-1158.93 1019.56,-1165.92"/>
+<!-- proc~rmvs_util_append_tp&#45;&gt;util_append -->
+<g id="call~~graph~~CallGraph_edge322" class="edge">
+<title>proc~rmvs_util_append_tp&#45;&gt;util_append</title>
+<path fill="none" stroke="#000000" d="M1307.58,-4791C1353.48,-4791 1417.95,-4791 1460.22,-4791"/>
+<polygon fill="#000000" stroke="#000000" points="1460.46,-4794.5 1470.46,-4791 1460.46,-4787.5 1460.46,-4794.5"/>
 </g>
-<!-- util_spill_pl -->
-<g id="call~~graph~~CallGraph_node604" class="node">
-<title>util_spill_pl</title>
-<polygon fill="#777777" stroke="#777777" points="1088.5,-835 1024.5,-835 1024.5,-811 1088.5,-811 1088.5,-835"/>
-<text text-anchor="middle" x="1056.5" y="-820.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
+<!-- util_append_tp -->
+<g id="call~~graph~~CallGraph_node628" class="node">
+<title>util_append_tp</title>
+<polygon fill="#777777" stroke="#777777" points="1546,-4761 1463,-4761 1463,-4737 1546,-4737 1546,-4761"/>
+<text text-anchor="middle" x="1504.5" y="-4746.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
 </g>
-<!-- proc~whm_util_spill_pl&#45;&gt;util_spill_pl -->
-<g id="call~~graph~~CallGraph_edge341" class="edge">
-<title>proc~whm_util_spill_pl&#45;&gt;util_spill_pl</title>
-<path fill="none" stroke="#000000" d="M850.25,-857.35C897.08,-849.51 969.21,-837.44 1014.31,-829.89"/>
-<polygon fill="#000000" stroke="#000000" points="1015.05,-833.32 1024.34,-828.21 1013.89,-826.41 1015.05,-833.32"/>
+<!-- proc~rmvs_util_append_tp&#45;&gt;util_append_tp -->
+<g id="call~~graph~~CallGraph_edge323" class="edge">
+<title>proc~rmvs_util_append_tp&#45;&gt;util_append_tp</title>
+<path fill="none" stroke="#000000" d="M1307.58,-4781.78C1350.91,-4774.53 1410.79,-4764.51 1452.92,-4757.46"/>
+<polygon fill="#000000" stroke="#000000" points="1453.67,-4760.89 1462.96,-4755.78 1452.52,-4753.98 1453.67,-4760.89"/>
 </g>
-<!-- proc~io_write_discard -->
-<g id="call~~graph~~CallGraph_node332" class="node">
-<title>proc~io_write_discard</title>
-<g id="a_call~~graph~~CallGraph_node332"><a xlink:href=".././proc/io_write_discard.html" xlink:title="io_write_discard">
-<polygon fill="#d9534f" stroke="#d9534f" points="848.5,-3227 758.5,-3227 758.5,-3203 848.5,-3203 848.5,-3227"/>
-<text text-anchor="middle" x="803.5" y="-3212.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_discard</text>
+<!-- interface~util_resize_body -->
+<g id="call~~graph~~CallGraph_node363" class="node">
+<title>interface~util_resize_body</title>
+<g id="a_call~~graph~~CallGraph_node363"><a xlink:href=".././interface/util_resize_body.html" xlink:title="util_resize_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="601,-3424 511,-3424 511,-3400 601,-3400 601,-3424"/>
+<text text-anchor="middle" x="556" y="-3409.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_discard&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge344" class="edge">
-<title>proc~io_write_discard&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M848.51,-3219.26C866.95,-3222.26 888.2,-3227.35 906,-3236 960.74,-3262.59 1012.14,-3313.74 1038.02,-3342.01"/>
-<polygon fill="#000000" stroke="#000000" points="1035.63,-3344.58 1044.92,-3349.66 1040.83,-3339.89 1035.63,-3344.58"/>
-</g>
-<!-- interface~lambda_obj -->
-<g id="call~~graph~~CallGraph_node333" class="node">
-<title>interface~lambda_obj</title>
-<g id="a_call~~graph~~CallGraph_node333"><a xlink:href=".././interface/lambda_obj.html" xlink:title="lambda_obj">
-<polygon fill="#a7506f" stroke="#a7506f" points="131,-9447 63,-9447 63,-9423 131,-9423 131,-9447"/>
-<text text-anchor="middle" x="97" y="-9432.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj</text>
+<!-- proc~util_resize_body -->
+<g id="call~~graph~~CallGraph_node466" class="node">
+<title>proc~util_resize_body</title>
+<g id="a_call~~graph~~CallGraph_node466"><a xlink:href=".././proc/util_resize_body.html" xlink:title="util_resize_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="825,-3424 735,-3424 735,-3400 825,-3400 825,-3424"/>
+<text text-anchor="middle" x="780" y="-3409.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
 </a>
 </g>
 </g>
-<!-- proc~tides_derivs_init -->
-<g id="call~~graph~~CallGraph_node487" class="node">
-<title>proc~tides_derivs_init</title>
-<g id="a_call~~graph~~CallGraph_node487"><a xlink:href=".././proc/tides_derivs_init.html" xlink:title="tides_derivs_init">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="371.5,-9447 282.5,-9447 282.5,-9423 371.5,-9423 371.5,-9447"/>
-<text text-anchor="middle" x="327" y="-9432.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_derivs_init</text>
+<!-- interface~util_resize_body&#45;&gt;proc~util_resize_body -->
+<g id="call~~graph~~CallGraph_edge324" class="edge">
+<title>interface~util_resize_body&#45;&gt;proc~util_resize_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.13,-3412C636.61,-3412 686.63,-3412 724.59,-3412"/>
+<polygon fill="#000000" stroke="#000000" points="724.96,-3415.5 734.96,-3412 724.96,-3408.5 724.96,-3415.5"/>
+</g>
+<!-- proc~operator_mag_dp -->
+<g id="call~~graph~~CallGraph_node364" class="node">
+<title>proc~operator_mag_dp</title>
+<g id="a_call~~graph~~CallGraph_node364"><a xlink:href=".././proc/operator_mag_dp.html" xlink:title="operator_mag_dp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-9491 48,-9491 48,-9467 146,-9467 146,-9491"/>
+<text text-anchor="middle" x="97" y="-9476.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag_dp</text>
 </a>
 </g>
 </g>
-<!-- interface~lambda_obj&#45;&gt;proc~tides_derivs_init -->
-<g id="call~~graph~~CallGraph_edge345" class="edge">
-<title>interface~lambda_obj&#45;&gt;proc~tides_derivs_init</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M131.15,-9435C168.08,-9435 228.34,-9435 272.08,-9435"/>
-<polygon fill="#000000" stroke="#000000" points="272.26,-9438.5 282.26,-9435 272.26,-9431.5 272.26,-9438.5"/>
+<!-- proc~symba_util_append_tp&#45;&gt;interface~util_append -->
+<g id="call~~graph~~CallGraph_edge326" class="edge">
+<title>proc~symba_util_append_tp&#45;&gt;interface~util_append</title>
+<path fill="none" stroke="#000000" d="M1312.3,-4696.99C1357.88,-4689.37 1419.57,-4679.04 1460.4,-4672.21"/>
+<polygon fill="#000000" stroke="#000000" points="1461.03,-4675.66 1470.31,-4670.55 1459.87,-4668.75 1461.03,-4675.66"/>
 </g>
-<!-- proc~util_resize_body -->
-<g id="call~~graph~~CallGraph_node334" class="node">
-<title>proc~util_resize_body</title>
-<g id="a_call~~graph~~CallGraph_node334"><a xlink:href=".././proc/util_resize_body.html" xlink:title="util_resize_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="848.5,-4093 758.5,-4093 758.5,-4069 848.5,-4069 848.5,-4093"/>
-<text text-anchor="middle" x="803.5" y="-4078.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_body</text>
-</a>
+<!-- proc~symba_util_append_tp&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge325" class="edge">
+<title>proc~symba_util_append_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1312.07,-4707.23C1327.68,-4710.23 1343.15,-4716.34 1354,-4728 1437.05,-4817.29 1333.91,-4891.72 1390,-5000 1409.52,-5037.69 1448.23,-5068.88 1474.98,-5087.22"/>
+<polygon fill="#000000" stroke="#000000" points="1473.28,-5090.3 1483.54,-5092.94 1477.17,-5084.47 1473.28,-5090.3"/>
+</g>
+<!-- proc~symba_util_append_tp&#45;&gt;util_append_tp -->
+<g id="call~~graph~~CallGraph_edge327" class="edge">
+<title>proc~symba_util_append_tp&#45;&gt;util_append_tp</title>
+<path fill="none" stroke="#000000" d="M1312.3,-4717.01C1355.21,-4724.19 1412.39,-4733.75 1453.01,-4740.55"/>
+<polygon fill="#000000" stroke="#000000" points="1452.52,-4744.02 1462.96,-4742.22 1453.68,-4737.11 1452.52,-4744.02"/>
 </g>
+<!-- interface~util_resize_encounter -->
+<g id="call~~graph~~CallGraph_node366" class="node">
+<title>interface~util_resize_encounter</title>
+<g id="a_call~~graph~~CallGraph_node366"><a xlink:href=".././interface/util_resize_encounter.html" xlink:title="util_resize_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="154.5,-9533 39.5,-9533 39.5,-9509 154.5,-9509 154.5,-9533"/>
+<text text-anchor="middle" x="97" y="-9518.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_encounter</text>
+</a>
 </g>
-<!-- proc~util_resize_body&#45;&gt;interface~util_resize~2 -->
-<g id="call~~graph~~CallGraph_edge346" class="edge">
-<title>proc~util_resize_body&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M848.6,-4090.12C866.66,-4094.42 887.6,-4100.12 906,-4107 949.19,-4123.15 996.33,-4148.13 1025.9,-4164.76"/>
-<polygon fill="#000000" stroke="#000000" points="1024.43,-4167.95 1034.85,-4169.85 1027.88,-4161.87 1024.43,-4167.95"/>
 </g>
 <!-- proc~util_resize_encounter -->
-<g id="call~~graph~~CallGraph_node335" class="node">
+<g id="call~~graph~~CallGraph_node467" class="node">
 <title>proc~util_resize_encounter</title>
-<g id="a_call~~graph~~CallGraph_node335"><a xlink:href=".././proc/util_resize_encounter.html" xlink:title="util_resize_encounter">
-<polygon fill="#d9534f" stroke="#d9534f" points="384.5,-9489 269.5,-9489 269.5,-9465 384.5,-9465 384.5,-9489"/>
-<text text-anchor="middle" x="327" y="-9474.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_encounter</text>
+<g id="a_call~~graph~~CallGraph_node467"><a xlink:href=".././proc/util_resize_encounter.html" xlink:title="util_resize_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="384.5,-9533 269.5,-9533 269.5,-9509 384.5,-9509 384.5,-9533"/>
+<text text-anchor="middle" x="327" y="-9518.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_encounter</text>
 </a>
 </g>
 </g>
-<!-- proc~util_set_mu_pl -->
-<g id="call~~graph~~CallGraph_node336" class="node">
-<title>proc~util_set_mu_pl</title>
-<g id="a_call~~graph~~CallGraph_node336"><a xlink:href=".././proc/util_set_mu_pl.html" xlink:title="util_set_mu_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="368,-9531 286,-9531 286,-9507 368,-9507 368,-9531"/>
-<text text-anchor="middle" x="327" y="-9516.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_mu_pl</text>
-</a>
-</g>
+<!-- interface~util_resize_encounter&#45;&gt;proc~util_resize_encounter -->
+<g id="call~~graph~~CallGraph_edge328" class="edge">
+<title>interface~util_resize_encounter&#45;&gt;proc~util_resize_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M154.65,-9521C186.33,-9521 225.98,-9521 259.17,-9521"/>
+<polygon fill="#000000" stroke="#000000" points="259.24,-9524.5 269.24,-9521 259.24,-9517.5 259.24,-9524.5"/>
 </g>
-<!-- proc~util_set_ir3h -->
-<g id="call~~graph~~CallGraph_node337" class="node">
-<title>proc~util_set_ir3h</title>
-<g id="a_call~~graph~~CallGraph_node337"><a xlink:href=".././proc/util_set_ir3h.html" xlink:title="util_set_ir3h">
-<polygon fill="#d9534f" stroke="#d9534f" points="362,-9573 292,-9573 292,-9549 362,-9549 362,-9573"/>
-<text text-anchor="middle" x="327" y="-9558.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_ir3h</text>
+<!-- proc~operator_mag_el_sp -->
+<g id="call~~graph~~CallGraph_node367" class="node">
+<title>proc~operator_mag_el_sp</title>
+<g id="a_call~~graph~~CallGraph_node367"><a xlink:href=".././proc/operator_mag_el_sp.html" xlink:title="operator_mag_el_sp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="153,-9575 41,-9575 41,-9551 153,-9551 153,-9575"/>
+<text text-anchor="middle" x="97" y="-9560.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag_el_sp</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_setup_initialize_system&#45;&gt;whm_setup_initialize_system -->
-<g id="call~~graph~~CallGraph_edge347" class="edge">
-<title>proc~rmvs_setup_initialize_system&#45;&gt;whm_setup_initialize_system</title>
-<path fill="none" stroke="#000000" d="M402.52,-4609.3C426.11,-4607.18 452.36,-4604.82 476.62,-4602.63"/>
-<polygon fill="#000000" stroke="#000000" points="477.24,-4606.09 486.88,-4601.71 476.61,-4599.12 477.24,-4606.09"/>
-</g>
-<!-- proc~util_set_msys -->
-<g id="call~~graph~~CallGraph_node339" class="node">
-<title>proc~util_set_msys</title>
-<g id="a_call~~graph~~CallGraph_node339"><a xlink:href=".././proc/util_set_msys.html" xlink:title="util_set_msys">
-<polygon fill="#d9534f" stroke="#d9534f" points="365.5,-9615 288.5,-9615 288.5,-9591 365.5,-9591 365.5,-9615"/>
-<text text-anchor="middle" x="327" y="-9600.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_msys</text>
+<!-- proc~symba_util_append_arr_kin -->
+<g id="call~~graph~~CallGraph_node368" class="node">
+<title>proc~symba_util_append_arr_kin</title>
+<g id="a_call~~graph~~CallGraph_node368"><a xlink:href=".././proc/symba_util_append_arr_kin.html" xlink:title="symba_util_append_arr_kin">
+<polygon fill="#d9534f" stroke="#d9534f" points="852.5,-6582 707.5,-6582 707.5,-6558 852.5,-6558 852.5,-6582"/>
+<text text-anchor="middle" x="780" y="-6567.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_arr_kin</text>
 </a>
 </g>
 </g>
-<!-- setup_tp -->
-<g id="call~~graph~~CallGraph_node629" class="node">
-<title>setup_tp</title>
-<polygon fill="#777777" stroke="#777777" points="589.5,-5800 535.5,-5800 535.5,-5776 589.5,-5776 589.5,-5800"/>
-<text text-anchor="middle" x="562.5" y="-5785.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_tp</text>
-</g>
-<!-- proc~rmvs_setup_tp&#45;&gt;setup_tp -->
-<g id="call~~graph~~CallGraph_edge348" class="edge">
-<title>proc~rmvs_setup_tp&#45;&gt;setup_tp</title>
-<path fill="none" stroke="#000000" d="M368.67,-5783.05C412.88,-5784.18 482.86,-5785.98 525.25,-5787.07"/>
-<polygon fill="#000000" stroke="#000000" points="525.31,-5790.57 535.4,-5787.33 525.49,-5783.57 525.31,-5790.57"/>
+<!-- proc~symba_util_append_arr_kin&#45;&gt;interface~util_resize -->
+<g id="call~~graph~~CallGraph_edge329" class="edge">
+<title>proc~symba_util_append_arr_kin&#45;&gt;interface~util_resize</title>
+<path fill="none" stroke="#000000" d="M852.67,-6570C891.24,-6570 937.37,-6570 969.57,-6570"/>
+<polygon fill="#000000" stroke="#000000" points="969.93,-6573.5 979.93,-6570 969.93,-6566.5 969.93,-6573.5"/>
 </g>
-<!-- proc~tides_spin_derivs -->
-<g id="call~~graph~~CallGraph_node341" class="node">
-<title>proc~tides_spin_derivs</title>
-<g id="a_call~~graph~~CallGraph_node341"><a xlink:href=".././proc/tides_spin_derivs.html" xlink:title="tides_spin_derivs">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="144.5,-9657 49.5,-9657 49.5,-9633 144.5,-9633 144.5,-9657"/>
-<text text-anchor="middle" x="97" y="-9642.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_derivs</text>
+<!-- interface~util_resize_pl -->
+<g id="call~~graph~~CallGraph_node369" class="node">
+<title>interface~util_resize_pl</title>
+<g id="a_call~~graph~~CallGraph_node369"><a xlink:href=".././interface/util_resize_pl.html" xlink:title="util_resize_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="134.5,-3459 59.5,-3459 59.5,-3435 134.5,-3435 134.5,-3459"/>
+<text text-anchor="middle" x="97" y="-3444.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
 </a>
 </g>
 </g>
 <!-- proc~util_resize_pl -->
-<g id="call~~graph~~CallGraph_node342" class="node">
+<g id="call~~graph~~CallGraph_node470" class="node">
 <title>proc~util_resize_pl</title>
-<g id="a_call~~graph~~CallGraph_node342"><a xlink:href=".././proc/util_resize_pl.html" xlink:title="util_resize_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="364.5,-4124 289.5,-4124 289.5,-4100 364.5,-4100 364.5,-4124"/>
-<text text-anchor="middle" x="327" y="-4109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
+<g id="a_call~~graph~~CallGraph_node470"><a xlink:href=".././proc/util_resize_pl.html" xlink:title="util_resize_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="364.5,-3459 289.5,-3459 289.5,-3435 364.5,-3435 364.5,-3459"/>
+<text text-anchor="middle" x="327" y="-3444.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_resize_pl&#45;&gt;interface~util_resize_body -->
-<g id="call~~graph~~CallGraph_edge350" class="edge">
-<title>proc~util_resize_pl&#45;&gt;interface~util_resize_body</title>
-<path fill="none" stroke="#000000" d="M364.74,-4107.12C403.11,-4102.03 463.68,-4093.99 507.49,-4088.17"/>
-<polygon fill="#000000" stroke="#000000" points="507.96,-4091.64 517.41,-4086.85 507.03,-4084.7 507.96,-4091.64"/>
+<!-- interface~util_resize_pl&#45;&gt;proc~util_resize_pl -->
+<g id="call~~graph~~CallGraph_edge330" class="edge">
+<title>interface~util_resize_pl&#45;&gt;proc~util_resize_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M134.63,-3447C173.94,-3447 236.48,-3447 279.29,-3447"/>
+<polygon fill="#000000" stroke="#000000" points="279.46,-3450.5 289.46,-3447 279.46,-3443.5 279.46,-3450.5"/>
 </g>
-<!-- proc~util_resize_pl&#45;&gt;interface~util_resize~2 -->
-<g id="call~~graph~~CallGraph_edge349" class="edge">
-<title>proc~util_resize_pl&#45;&gt;interface~util_resize~2</title>
-<path fill="none" stroke="#000000" d="M364.82,-4110.93C456.78,-4108.86 703.71,-4107.12 906,-4140 944.13,-4146.2 986.42,-4158.62 1016.26,-4168.35"/>
-<polygon fill="#000000" stroke="#000000" points="1015.29,-4171.72 1025.88,-4171.54 1017.49,-4165.07 1015.29,-4171.72"/>
+<!-- proc~symba_util_append_pl&#45;&gt;interface~util_append -->
+<g id="call~~graph~~CallGraph_edge333" class="edge">
+<title>proc~symba_util_append_pl&#45;&gt;interface~util_append</title>
+<path fill="none" stroke="#000000" d="M1311.67,-4665C1357.26,-4665 1419.26,-4665 1460.28,-4665"/>
+<polygon fill="#000000" stroke="#000000" points="1460.49,-4668.5 1470.49,-4665 1460.49,-4661.5 1460.49,-4668.5"/>
 </g>
-<!-- proc~io_write_encounter -->
-<g id="call~~graph~~CallGraph_node343" class="node">
-<title>proc~io_write_encounter</title>
-<g id="a_call~~graph~~CallGraph_node343"><a xlink:href=".././proc/io_write_encounter.html" xlink:title="io_write_encounter">
-<polygon fill="#d9534f" stroke="#d9534f" points="855,-3185 752,-3185 752,-3161 855,-3161 855,-3185"/>
-<text text-anchor="middle" x="803.5" y="-3170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
+<!-- proc~symba_util_append_pl&#45;&gt;util_append_pl -->
+<g id="call~~graph~~CallGraph_edge332" class="edge">
+<title>proc~symba_util_append_pl&#45;&gt;util_append_pl</title>
+<path fill="none" stroke="#000000" d="M1311.67,-4674.9C1354.69,-4682.1 1412.31,-4691.74 1453.14,-4698.57"/>
+<polygon fill="#000000" stroke="#000000" points="1452.69,-4702.05 1463.13,-4700.25 1453.85,-4695.14 1452.69,-4702.05"/>
+</g>
+<!-- proc~symba_util_append_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge331" class="edge">
+<title>proc~symba_util_append_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1311.67,-4665.01C1327.46,-4667.97 1343.13,-4674.11 1354,-4686 1401.38,-4737.84 1358.24,-4937.36 1390,-5000 1409.19,-5037.86 1447.98,-5069.01 1474.83,-5087.29"/>
+<polygon fill="#000000" stroke="#000000" points="1473.16,-5090.39 1483.43,-5092.99 1477.03,-5084.55 1473.16,-5090.39"/>
+</g>
+<!-- proc~rmvs_util_fill_tp -->
+<g id="call~~graph~~CallGraph_node371" class="node">
+<title>proc~rmvs_util_fill_tp</title>
+<g id="a_call~~graph~~CallGraph_node371"><a xlink:href=".././proc/rmvs_util_fill_tp.html" xlink:title="rmvs_util_fill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="1294.5,-5593 1208.5,-5593 1208.5,-5569 1294.5,-5569 1294.5,-5593"/>
+<text text-anchor="middle" x="1251.5" y="-5578.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_fill_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_encounter&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge351" class="edge">
-<title>proc~io_write_encounter&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M855.06,-3177C872.09,-3179.98 890.65,-3185.13 906,-3194 969.93,-3230.93 1020.99,-3304.97 1043.31,-3341.14"/>
-<polygon fill="#000000" stroke="#000000" points="1040.42,-3343.14 1048.59,-3349.88 1046.41,-3339.51 1040.42,-3343.14"/>
+<!-- proc~rmvs_util_fill_tp&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge335" class="edge">
+<title>proc~rmvs_util_fill_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1294.53,-5583.22C1315.43,-5581.94 1339.3,-5576.43 1354,-5560 1411.3,-5495.97 1344.67,-5248 1390,-5175 1407.65,-5146.57 1441.55,-5127.93 1467.72,-5117.09"/>
+<polygon fill="#000000" stroke="#000000" points="1469.3,-5120.23 1477.33,-5113.31 1466.74,-5113.71 1469.3,-5120.23"/>
 </g>
-<!-- proc~tides_derivs_eval -->
-<g id="call~~graph~~CallGraph_node344" class="node">
-<title>proc~tides_derivs_eval</title>
-<g id="a_call~~graph~~CallGraph_node344"><a xlink:href=".././proc/tides_derivs_eval.html" xlink:title="tides_derivs_eval">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="144.5,-9699 49.5,-9699 49.5,-9675 144.5,-9675 144.5,-9699"/>
-<text text-anchor="middle" x="97" y="-9684.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_derivs_eval</text>
-</a>
+<!-- proc~rmvs_util_fill_tp&#45;&gt;util_fill -->
+<g id="call~~graph~~CallGraph_edge336" class="edge">
+<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill</title>
+<path fill="none" stroke="#000000" d="M1294.74,-5583.52C1313.89,-5586.18 1336.18,-5591.48 1354,-5602 1375.17,-5614.49 1368.7,-5631.73 1390,-5644 1413.49,-5657.53 1443.85,-5662.62 1467.26,-5664.42"/>
+<polygon fill="#000000" stroke="#000000" points="1467.28,-5667.93 1477.47,-5665.03 1467.7,-5660.94 1467.28,-5667.93"/>
 </g>
+<!-- proc~rmvs_util_fill_tp&#45;&gt;util_fill_tp -->
+<g id="call~~graph~~CallGraph_edge334" class="edge">
+<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill_tp</title>
+<path fill="none" stroke="#000000" d="M1294.51,-5573.97C1342.29,-5565.98 1419.6,-5553.04 1465.6,-5545.34"/>
+<polygon fill="#000000" stroke="#000000" points="1466.47,-5548.75 1475.75,-5543.64 1465.31,-5541.84 1466.47,-5548.75"/>
 </g>
-<!-- proc~operator_cross_sp -->
-<g id="call~~graph~~CallGraph_node345" class="node">
-<title>proc~operator_cross_sp</title>
-<g id="a_call~~graph~~CallGraph_node345"><a xlink:href=".././proc/operator_cross_sp.html" xlink:title="operator_cross_sp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="148,-9741 46,-9741 46,-9717 148,-9717 148,-9741"/>
-<text text-anchor="middle" x="97" y="-9726.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_sp</text>
+<!-- interface~util_resize_tp -->
+<g id="call~~graph~~CallGraph_node372" class="node">
+<title>interface~util_resize_tp</title>
+<g id="a_call~~graph~~CallGraph_node372"><a xlink:href=".././interface/util_resize_tp.html" xlink:title="util_resize_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="135,-3413 59,-3413 59,-3389 135,-3389 135,-3413"/>
+<text text-anchor="middle" x="97" y="-3398.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~util_set_mu_tp -->
-<g id="call~~graph~~CallGraph_node346" class="node">
-<title>proc~util_set_mu_tp</title>
-<g id="a_call~~graph~~CallGraph_node346"><a xlink:href=".././proc/util_set_mu_tp.html" xlink:title="util_set_mu_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="368,-9783 286,-9783 286,-9759 368,-9759 368,-9783"/>
-<text text-anchor="middle" x="327" y="-9768.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_mu_tp</text>
+<!-- proc~util_resize_tp -->
+<g id="call~~graph~~CallGraph_node457" class="node">
+<title>proc~util_resize_tp</title>
+<g id="a_call~~graph~~CallGraph_node457"><a xlink:href=".././proc/util_resize_tp.html" xlink:title="util_resize_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="365,-3413 289,-3413 289,-3389 365,-3389 365,-3413"/>
+<text text-anchor="middle" x="327" y="-3398.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~util_append_body&#45;&gt;proc~util_append_body -->
-<g id="call~~graph~~CallGraph_edge352" class="edge">
-<title>interface~util_append_body&#45;&gt;proc~util_append_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1105.13,-3712C1149.4,-3712 1215.43,-3712 1262.7,-3712"/>
-<polygon fill="#000000" stroke="#000000" points="1262.78,-3715.5 1272.78,-3712 1262.78,-3708.5 1262.78,-3715.5"/>
+<!-- interface~util_resize_tp&#45;&gt;proc~util_resize_tp -->
+<g id="call~~graph~~CallGraph_edge337" class="edge">
+<title>interface~util_resize_tp&#45;&gt;proc~util_resize_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.14,-3401C174.31,-3401 236.14,-3401 278.75,-3401"/>
+<polygon fill="#000000" stroke="#000000" points="278.88,-3404.5 288.88,-3401 278.88,-3397.5 278.88,-3404.5"/>
 </g>
-<!-- proc~io_write_frame_body -->
-<g id="call~~graph~~CallGraph_node348" class="node">
-<title>proc~io_write_frame_body</title>
-<g id="a_call~~graph~~CallGraph_node348"><a xlink:href=".././proc/io_write_frame_body.html" xlink:title="io_write_frame_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="383,-9825 271,-9825 271,-9801 383,-9801 383,-9825"/>
-<text text-anchor="middle" x="327" y="-9810.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_body</text>
+<!-- interface~util_get_energy_momentum_system -->
+<g id="call~~graph~~CallGraph_node373" class="node">
+<title>interface~util_get_energy_momentum_system</title>
+<g id="a_call~~graph~~CallGraph_node373"><a xlink:href=".././interface/util_get_energy_momentum_system.html" xlink:title="util_get_energy_momentum_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="190,-1920 4,-1920 4,-1896 190,-1896 190,-1920"/>
+<text text-anchor="middle" x="97" y="-1905.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum_system</text>
 </a>
 </g>
 </g>
-<!-- interface~util_append_pl -->
-<g id="call~~graph~~CallGraph_node349" class="node">
-<title>interface~util_append_pl</title>
-<g id="a_call~~graph~~CallGraph_node349"><a xlink:href=".././interface/util_append_pl.html" xlink:title="util_append_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="603.5,-3727 521.5,-3727 521.5,-3703 603.5,-3703 603.5,-3727"/>
-<text text-anchor="middle" x="562.5" y="-3712.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
+<!-- interface~util_get_energy_momentum_system&#45;&gt;proc~util_get_energy_momentum_system -->
+<g id="call~~graph~~CallGraph_edge338" class="edge">
+<title>interface~util_get_energy_momentum_system&#45;&gt;proc~util_get_energy_momentum_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M190.08,-1908C201.15,-1908 212.51,-1908 223.71,-1908"/>
+<polygon fill="#000000" stroke="#000000" points="223.95,-1911.5 233.95,-1908 223.95,-1904.5 223.95,-1911.5"/>
+</g>
+<!-- proc~operator_mag_el_dp -->
+<g id="call~~graph~~CallGraph_node374" class="node">
+<title>proc~operator_mag_el_dp</title>
+<g id="a_call~~graph~~CallGraph_node374"><a xlink:href=".././proc/operator_mag_el_dp.html" xlink:title="operator_mag_el_dp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="153,-9617 41,-9617 41,-9593 153,-9593 153,-9617"/>
+<text text-anchor="middle" x="97" y="-9602.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag_el_dp</text>
 </a>
 </g>
 </g>
-<!-- interface~util_append_pl&#45;&gt;proc~util_append_pl -->
-<g id="call~~graph~~CallGraph_edge353" class="edge">
-<title>interface~util_append_pl&#45;&gt;proc~util_append_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M603.5,-3715C644.35,-3715 707.87,-3715 752.12,-3715"/>
-<polygon fill="#000000" stroke="#000000" points="752.37,-3718.5 762.37,-3715 752.37,-3711.5 752.37,-3718.5"/>
-</g>
-<!-- proc~util_set_rhill -->
-<g id="call~~graph~~CallGraph_node350" class="node">
-<title>proc~util_set_rhill</title>
-<g id="a_call~~graph~~CallGraph_node350"><a xlink:href=".././proc/util_set_rhill.html" xlink:title="util_set_rhill">
-<polygon fill="#d9534f" stroke="#d9534f" points="361.5,-9867 292.5,-9867 292.5,-9843 361.5,-9843 361.5,-9867"/>
-<text text-anchor="middle" x="327" y="-9852.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_rhill</text>
+<!-- proc~gr_pseudovel2vel -->
+<g id="call~~graph~~CallGraph_node375" class="node">
+<title>proc~gr_pseudovel2vel</title>
+<g id="a_call~~graph~~CallGraph_node375"><a xlink:href=".././proc/gr_pseudovel2vel.html" xlink:title="gr_pseudovel2vel">
+<polygon fill="#d9534f" stroke="#d9534f" points="375.5,-9659 278.5,-9659 278.5,-9635 375.5,-9635 375.5,-9659"/>
+<text text-anchor="middle" x="327" y="-9644.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_pseudovel2vel</text>
 </a>
 </g>
 </g>
-<!-- interface~util_append_tp -->
-<g id="call~~graph~~CallGraph_node351" class="node">
-<title>interface~util_append_tp</title>
-<g id="a_call~~graph~~CallGraph_node351"><a xlink:href=".././interface/util_append_tp.html" xlink:title="util_append_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="604,-3685 521,-3685 521,-3661 604,-3661 604,-3685"/>
-<text text-anchor="middle" x="562.5" y="-3670.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
+<!-- interface~util_set_beg_end_pl -->
+<g id="call~~graph~~CallGraph_node376" class="node">
+<title>interface~util_set_beg_end_pl</title>
+<g id="a_call~~graph~~CallGraph_node376"><a xlink:href=".././interface/util_set_beg_end_pl.html" xlink:title="util_set_beg_end_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="151.5,-1542 42.5,-1542 42.5,-1518 151.5,-1518 151.5,-1542"/>
+<text text-anchor="middle" x="97" y="-1527.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_beg_end_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~util_append_tp&#45;&gt;proc~util_append_tp -->
-<g id="call~~graph~~CallGraph_edge354" class="edge">
-<title>interface~util_append_tp&#45;&gt;proc~util_append_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.04,-3673C644.73,-3673 707.52,-3673 751.55,-3673"/>
-<polygon fill="#000000" stroke="#000000" points="751.76,-3676.5 761.76,-3673 751.76,-3669.5 751.76,-3676.5"/>
+<!-- interface~util_set_beg_end_pl&#45;&gt;proc~util_set_beg_end_pl -->
+<g id="call~~graph~~CallGraph_edge339" class="edge">
+<title>interface~util_set_beg_end_pl&#45;&gt;proc~util_set_beg_end_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.74,-1530C184.82,-1530 227.38,-1530 262.17,-1530"/>
+<polygon fill="#000000" stroke="#000000" points="262.22,-1533.5 272.22,-1530 262.22,-1526.5 262.22,-1533.5"/>
 </g>
-<!-- proc~operator_cross_dp -->
-<g id="call~~graph~~CallGraph_node352" class="node">
-<title>proc~operator_cross_dp</title>
-<g id="a_call~~graph~~CallGraph_node352"><a xlink:href=".././proc/operator_cross_dp.html" xlink:title="operator_cross_dp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="148.5,-9909 45.5,-9909 45.5,-9885 148.5,-9885 148.5,-9909"/>
-<text text-anchor="middle" x="97" y="-9894.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_dp</text>
+<!-- proc~operator_cross_sp -->
+<g id="call~~graph~~CallGraph_node377" class="node">
+<title>proc~operator_cross_sp</title>
+<g id="a_call~~graph~~CallGraph_node377"><a xlink:href=".././proc/operator_cross_sp.html" xlink:title="operator_cross_sp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="148,-9701 46,-9701 46,-9677 148,-9677 148,-9701"/>
+<text text-anchor="middle" x="97" y="-9686.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_sp</text>
 </a>
 </g>
 </g>
-<!-- proc~operator_cross_i1b -->
-<g id="call~~graph~~CallGraph_node353" class="node">
-<title>proc~operator_cross_i1b</title>
-<g id="a_call~~graph~~CallGraph_node353"><a xlink:href=".././proc/operator_cross_i1b.html" xlink:title="operator_cross_i1b">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="149.5,-9951 44.5,-9951 44.5,-9927 149.5,-9927 149.5,-9951"/>
-<text text-anchor="middle" x="97" y="-9936.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_i1b</text>
+<!-- proc~rmvs_util_resize_tp -->
+<g id="call~~graph~~CallGraph_node378" class="node">
+<title>proc~rmvs_util_resize_tp</title>
+<g id="a_call~~graph~~CallGraph_node378"><a xlink:href=".././proc/rmvs_util_resize_tp.html" xlink:title="rmvs_util_resize_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="832.5,-6414 727.5,-6414 727.5,-6390 832.5,-6390 832.5,-6414"/>
+<text text-anchor="middle" x="780" y="-6399.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_resize_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_setup_tp&#45;&gt;setup_tp -->
-<g id="call~~graph~~CallGraph_edge355" class="edge">
-<title>proc~symba_setup_tp&#45;&gt;setup_tp</title>
-<path fill="none" stroke="#000000" d="M372.74,-5817.1C417.09,-5810.26 484.16,-5799.92 525.27,-5793.59"/>
-<polygon fill="#000000" stroke="#000000" points="526.04,-5797.01 535.39,-5792.03 524.97,-5790.09 526.04,-5797.01"/>
+<!-- proc~rmvs_util_resize_tp&#45;&gt;util_resize -->
+<g id="call~~graph~~CallGraph_edge341" class="edge">
+<title>proc~rmvs_util_resize_tp&#45;&gt;util_resize</title>
+<path fill="none" stroke="#000000" d="M832.56,-6402C874.07,-6402 931.57,-6402 969.62,-6402"/>
+<polygon fill="#000000" stroke="#000000" points="969.8,-6405.5 979.8,-6402 969.8,-6398.5 969.8,-6405.5"/>
 </g>
-<!-- proc~operator_cross_el_qp -->
-<g id="call~~graph~~CallGraph_node355" class="node">
-<title>proc~operator_cross_el_qp</title>
-<g id="a_call~~graph~~CallGraph_node355"><a xlink:href=".././proc/operator_cross_el_qp.html" xlink:title="operator_cross_el_qp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="155.5,-9993 38.5,-9993 38.5,-9969 155.5,-9969 155.5,-9993"/>
-<text text-anchor="middle" x="97" y="-9978.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_qp</text>
+<!-- proc~rmvs_util_resize_tp&#45;&gt;util_resize_tp -->
+<g id="call~~graph~~CallGraph_edge340" class="edge">
+<title>proc~rmvs_util_resize_tp&#45;&gt;util_resize_tp</title>
+<path fill="none" stroke="#000000" d="M832.65,-6413.26C845.55,-6416.25 859.31,-6419.6 872,-6423 902.47,-6431.16 936.36,-6441.49 962.87,-6449.87"/>
+<polygon fill="#000000" stroke="#000000" points="962.05,-6453.29 972.64,-6452.98 964.17,-6446.61 962.05,-6453.29"/>
+</g>
+<!-- interface~util_set_ir3h -->
+<g id="call~~graph~~CallGraph_node379" class="node">
+<title>interface~util_set_ir3h</title>
+<g id="a_call~~graph~~CallGraph_node379"><a xlink:href=".././interface/util_set_ir3h.html" xlink:title="util_set_ir3h">
+<polygon fill="#a7506f" stroke="#a7506f" points="132,-3543 62,-3543 62,-3519 132,-3519 132,-3543"/>
+<text text-anchor="middle" x="97" y="-3528.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_ir3h</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_step_system&#45;&gt;whm_step_system -->
-<g id="call~~graph~~CallGraph_edge356" class="edge">
-<title>proc~helio_step_system&#45;&gt;whm_step_system</title>
-<path fill="none" stroke="#000000" d="M377.52,-1609C413.77,-1609 463.14,-1609 501.61,-1609"/>
-<polygon fill="#000000" stroke="#000000" points="501.65,-1612.5 511.65,-1609 501.65,-1605.5 501.65,-1612.5"/>
+<!-- interface~util_set_ir3h&#45;&gt;proc~util_set_ir3h -->
+<g id="call~~graph~~CallGraph_edge342" class="edge">
+<title>interface~util_set_ir3h&#45;&gt;proc~util_set_ir3h</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M132.13,-3531C171.93,-3531 237.81,-3531 281.56,-3531"/>
+<polygon fill="#000000" stroke="#000000" points="281.63,-3534.5 291.63,-3531 281.63,-3527.5 281.63,-3534.5"/>
 </g>
-<!-- proc~operator_cross_qp -->
-<g id="call~~graph~~CallGraph_node357" class="node">
-<title>proc~operator_cross_qp</title>
-<g id="a_call~~graph~~CallGraph_node357"><a xlink:href=".././proc/operator_cross_qp.html" xlink:title="operator_cross_qp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="148.5,-10035 45.5,-10035 45.5,-10011 148.5,-10011 148.5,-10035"/>
-<text text-anchor="middle" x="97" y="-10020.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_qp</text>
+<!-- interface~util_set_msys -->
+<g id="call~~graph~~CallGraph_node380" class="node">
+<title>interface~util_set_msys</title>
+<g id="a_call~~graph~~CallGraph_node380"><a xlink:href=".././interface/util_set_msys.html" xlink:title="util_set_msys">
+<polygon fill="#a7506f" stroke="#a7506f" points="135.5,-3585 58.5,-3585 58.5,-3561 135.5,-3561 135.5,-3585"/>
+<text text-anchor="middle" x="97" y="-3570.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_msys</text>
 </a>
 </g>
 </g>
-<!-- proc~io_dump_system -->
-<g id="call~~graph~~CallGraph_node358" class="node">
-<title>proc~io_dump_system</title>
-<g id="a_call~~graph~~CallGraph_node358"><a xlink:href=".././proc/io_dump_system.html" xlink:title="io_dump_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="374,-10077 280,-10077 280,-10053 374,-10053 374,-10077"/>
-<text text-anchor="middle" x="327" y="-10062.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_system</text>
+<!-- interface~util_set_msys&#45;&gt;proc~util_set_msys -->
+<g id="call~~graph~~CallGraph_edge343" class="edge">
+<title>interface~util_set_msys&#45;&gt;proc~util_set_msys</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.65,-3573C174.68,-3573 235.8,-3573 278.21,-3573"/>
+<polygon fill="#000000" stroke="#000000" points="278.29,-3576.5 288.29,-3573 278.29,-3569.5 278.29,-3576.5"/>
+</g>
+<!-- interface~util_set_mu_pl -->
+<g id="call~~graph~~CallGraph_node381" class="node">
+<title>interface~util_set_mu_pl</title>
+<g id="a_call~~graph~~CallGraph_node381"><a xlink:href=".././interface/util_set_mu_pl.html" xlink:title="util_set_mu_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="138,-3501 56,-3501 56,-3477 138,-3477 138,-3501"/>
+<text text-anchor="middle" x="97" y="-3486.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_mu_pl</text>
 </a>
 </g>
 </g>
-<!-- dump_cb_file -->
-<g id="call~~graph~~CallGraph_node568" class="node">
-<title>dump_cb_file</title>
-<polygon fill="#777777" stroke="#777777" points="600.5,-10140 524.5,-10140 524.5,-10116 600.5,-10116 600.5,-10140"/>
-<text text-anchor="middle" x="562.5" y="-10125.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_cb_file</text>
+<!-- interface~util_set_mu_pl&#45;&gt;proc~util_set_mu_pl -->
+<g id="call~~graph~~CallGraph_edge344" class="edge">
+<title>interface~util_set_mu_pl&#45;&gt;proc~util_set_mu_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.24,-3489C176.54,-3489 234.31,-3489 275.65,-3489"/>
+<polygon fill="#000000" stroke="#000000" points="275.78,-3492.5 285.78,-3489 275.78,-3485.5 275.78,-3492.5"/>
 </g>
-<!-- proc~io_dump_system&#45;&gt;dump_cb_file -->
-<g id="call~~graph~~CallGraph_edge360" class="edge">
-<title>proc~io_dump_system&#45;&gt;dump_cb_file</title>
-<path fill="none" stroke="#000000" d="M362.45,-10077.05C388.92,-10086.04 426.5,-10098.23 460,-10107 477.61,-10111.61 497.15,-10115.85 514.34,-10119.3"/>
-<polygon fill="#000000" stroke="#000000" points="513.68,-10122.74 524.16,-10121.24 515.03,-10115.87 513.68,-10122.74"/>
+<!-- proc~symba_util_append_merger&#45;&gt;interface~util_append -->
+<g id="call~~graph~~CallGraph_edge347" class="edge">
+<title>proc~symba_util_append_merger&#45;&gt;interface~util_append</title>
+<path fill="none" stroke="#000000" d="M841.15,-4652.98C862.2,-4649.33 886.06,-4645.8 908,-4644 1105.56,-4627.78 1156.26,-4630.18 1354,-4644 1390.02,-4646.52 1430.56,-4652.41 1460.33,-4657.31"/>
+<polygon fill="#000000" stroke="#000000" points="1459.95,-4660.79 1470.39,-4659 1461.1,-4653.89 1459.95,-4660.79"/>
 </g>
-<!-- dump_tp_file -->
-<g id="call~~graph~~CallGraph_node578" class="node">
-<title>dump_tp_file</title>
-<polygon fill="#777777" stroke="#777777" points="599.5,-10098 525.5,-10098 525.5,-10074 599.5,-10074 599.5,-10098"/>
-<text text-anchor="middle" x="562.5" y="-10083.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_tp_file</text>
+<!-- proc~symba_util_append_merger&#45;&gt;interface~symba_util_append_pl -->
+<g id="call~~graph~~CallGraph_edge345" class="edge">
+<title>proc~symba_util_append_merger&#45;&gt;interface~symba_util_append_pl</title>
+<path fill="none" stroke="#000000" d="M853.3,-4665C881.01,-4665 912.54,-4665 939.98,-4665"/>
+<polygon fill="#000000" stroke="#000000" points="940.28,-4668.5 950.28,-4665 940.28,-4661.5 940.28,-4668.5"/>
 </g>
-<!-- proc~io_dump_system&#45;&gt;dump_tp_file -->
-<g id="call~~graph~~CallGraph_edge359" class="edge">
-<title>proc~io_dump_system&#45;&gt;dump_tp_file</title>
-<path fill="none" stroke="#000000" d="M374.13,-10069.15C415.06,-10072.83 474.52,-10078.18 515.43,-10081.86"/>
-<polygon fill="#000000" stroke="#000000" points="515.13,-10085.34 525.4,-10082.75 515.76,-10078.37 515.13,-10085.34"/>
+<!-- proc~symba_util_append_merger&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge346" class="edge">
+<title>proc~symba_util_append_merger&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M782.44,-4677.24C788.32,-4721.31 814.9,-4872.75 908,-4938 989.47,-4995.1 1262.27,-4938.47 1354,-4977 1383.75,-4989.49 1450.97,-5053.22 1484.18,-5085.78"/>
+<polygon fill="#000000" stroke="#000000" points="1481.9,-5088.45 1491.48,-5092.97 1486.81,-5083.46 1481.9,-5088.45"/>
 </g>
-<!-- dump_pl_file -->
-<g id="call~~graph~~CallGraph_node608" class="node">
-<title>dump_pl_file</title>
-<polygon fill="#777777" stroke="#777777" points="599,-10056 526,-10056 526,-10032 599,-10032 599,-10056"/>
-<text text-anchor="middle" x="562.5" y="-10041.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_pl_file</text>
+<!-- proc~rmvs_util_resize_pl -->
+<g id="call~~graph~~CallGraph_node383" class="node">
+<title>proc~rmvs_util_resize_pl</title>
+<g id="a_call~~graph~~CallGraph_node383"><a xlink:href=".././proc/rmvs_util_resize_pl.html" xlink:title="rmvs_util_resize_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="832,-6372 728,-6372 728,-6348 832,-6348 832,-6372"/>
+<text text-anchor="middle" x="780" y="-6357.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_resize_pl</text>
+</a>
 </g>
-<!-- proc~io_dump_system&#45;&gt;dump_pl_file -->
-<g id="call~~graph~~CallGraph_edge358" class="edge">
-<title>proc~io_dump_system&#45;&gt;dump_pl_file</title>
-<path fill="none" stroke="#000000" d="M374.13,-10060.85C415.18,-10057.16 474.88,-10051.79 515.79,-10048.11"/>
-<polygon fill="#000000" stroke="#000000" points="516.12,-10051.6 525.77,-10047.21 515.49,-10044.62 516.12,-10051.6"/>
 </g>
-<!-- dump_param_file -->
-<g id="call~~graph~~CallGraph_node620" class="node">
-<title>dump_param_file</title>
-<polygon fill="#777777" stroke="#777777" points="610.5,-10014 514.5,-10014 514.5,-9990 610.5,-9990 610.5,-10014"/>
-<text text-anchor="middle" x="562.5" y="-9999.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_param_file</text>
+<!-- whm_util_resize_pl -->
+<g id="call~~graph~~CallGraph_node561" class="node">
+<title>whm_util_resize_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1062,-6372 959,-6372 959,-6348 1062,-6348 1062,-6372"/>
+<text text-anchor="middle" x="1010.5" y="-6357.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_resize_pl</text>
 </g>
-<!-- proc~io_dump_system&#45;&gt;dump_param_file -->
-<g id="call~~graph~~CallGraph_edge357" class="edge">
-<title>proc~io_dump_system&#45;&gt;dump_param_file</title>
-<path fill="none" stroke="#000000" d="M362.45,-10052.95C388.92,-10043.96 426.5,-10031.77 460,-10023 474.29,-10019.26 489.84,-10015.76 504.39,-10012.73"/>
-<polygon fill="#000000" stroke="#000000" points="505.17,-10016.14 514.27,-10010.71 503.77,-10009.28 505.17,-10016.14"/>
+<!-- proc~rmvs_util_resize_pl&#45;&gt;whm_util_resize_pl -->
+<g id="call~~graph~~CallGraph_edge348" class="edge">
+<title>proc~rmvs_util_resize_pl&#45;&gt;whm_util_resize_pl</title>
+<path fill="none" stroke="#000000" d="M832.28,-6360C866.65,-6360 912.08,-6360 948.34,-6360"/>
+<polygon fill="#000000" stroke="#000000" points="948.79,-6363.5 958.79,-6360 948.79,-6356.5 948.79,-6363.5"/>
 </g>
-<!-- proc~operator_cross_i2b -->
-<g id="call~~graph~~CallGraph_node359" class="node">
-<title>proc~operator_cross_i2b</title>
-<g id="a_call~~graph~~CallGraph_node359"><a xlink:href=".././proc/operator_cross_i2b.html" xlink:title="operator_cross_i2b">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="149.5,-10119 44.5,-10119 44.5,-10095 149.5,-10095 149.5,-10119"/>
-<text text-anchor="middle" x="97" y="-10104.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_i2b</text>
+<!-- proc~rmvs_util_resize_pl&#45;&gt;util_resize -->
+<g id="call~~graph~~CallGraph_edge349" class="edge">
+<title>proc~rmvs_util_resize_pl&#45;&gt;util_resize</title>
+<path fill="none" stroke="#000000" d="M832.28,-6369.43C873.77,-6377.05 931.38,-6387.64 969.52,-6394.65"/>
+<polygon fill="#000000" stroke="#000000" points="969.26,-6398.16 979.73,-6396.53 970.52,-6391.28 969.26,-6398.16"/>
+</g>
+<!-- interface~util_set_mu_tp -->
+<g id="call~~graph~~CallGraph_node384" class="node">
+<title>interface~util_set_mu_tp</title>
+<g id="a_call~~graph~~CallGraph_node384"><a xlink:href=".././interface/util_set_mu_tp.html" xlink:title="util_set_mu_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="138,-3627 56,-3627 56,-3603 138,-3603 138,-3627"/>
+<text text-anchor="middle" x="97" y="-3612.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_mu_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~io_get_args -->
-<g id="call~~graph~~CallGraph_node360" class="node">
-<title>proc~io_get_args</title>
-<g id="a_call~~graph~~CallGraph_node360"><a xlink:href=".././proc/io_get_args.html" xlink:title="io_get_args">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="838,-3017 769,-3017 769,-2993 838,-2993 838,-3017"/>
-<text text-anchor="middle" x="803.5" y="-3002.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
-</a>
+<!-- interface~util_set_mu_tp&#45;&gt;proc~util_set_mu_tp -->
+<g id="call~~graph~~CallGraph_edge350" class="edge">
+<title>interface~util_set_mu_tp&#45;&gt;proc~util_set_mu_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.24,-3615C176.54,-3615 234.31,-3615 275.65,-3615"/>
+<polygon fill="#000000" stroke="#000000" points="275.78,-3618.5 285.78,-3615 275.78,-3611.5 275.78,-3618.5"/>
 </g>
+<!-- interface~util_set_rhill -->
+<g id="call~~graph~~CallGraph_node385" class="node">
+<title>interface~util_set_rhill</title>
+<g id="a_call~~graph~~CallGraph_node385"><a xlink:href=".././interface/util_set_rhill.html" xlink:title="util_set_rhill">
+<polygon fill="#a7506f" stroke="#a7506f" points="131.5,-3753 62.5,-3753 62.5,-3729 131.5,-3729 131.5,-3753"/>
+<text text-anchor="middle" x="97" y="-3738.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_rhill</text>
+</a>
 </g>
-<!-- proc~io_get_args&#45;&gt;interface~util_version -->
-<g id="call~~graph~~CallGraph_edge361" class="edge">
-<title>proc~io_get_args&#45;&gt;interface~util_version</title>
-<path fill="none" stroke="#000000" d="M838.09,-3006.47C883.24,-3008.45 963.51,-3011.97 1012.87,-3014.13"/>
-<polygon fill="#000000" stroke="#000000" points="1012.76,-3017.63 1022.9,-3014.57 1013.07,-3010.64 1012.76,-3017.63"/>
 </g>
-<!-- proc~io_get_args&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge362" class="edge">
-<title>proc~io_get_args&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M838.41,-3004.43C859.89,-3005.75 887.08,-3010.76 906,-3026 1009.45,-3109.33 1043.49,-3279.14 1052.62,-3339.82"/>
-<polygon fill="#000000" stroke="#000000" points="1049.17,-3340.43 1054.04,-3349.84 1056.1,-3339.45 1049.17,-3340.43"/>
+<!-- interface~util_set_rhill&#45;&gt;proc~util_set_rhill -->
+<g id="call~~graph~~CallGraph_edge351" class="edge">
+<title>interface~util_set_rhill&#45;&gt;proc~util_set_rhill</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M131.64,-3741C171.55,-3741 238.19,-3741 282.12,-3741"/>
+<polygon fill="#000000" stroke="#000000" points="282.22,-3744.5 292.22,-3741 282.22,-3737.5 282.22,-3744.5"/>
 </g>
-<!-- interface~io_toupper -->
-<g id="call~~graph~~CallGraph_node545" class="node">
-<title>interface~io_toupper</title>
-<g id="a_call~~graph~~CallGraph_node545"><a xlink:href=".././interface/io_toupper.html" xlink:title="io_toupper">
-<polygon fill="#a7506f" stroke="#a7506f" points="1088.5,-2986 1024.5,-2986 1024.5,-2962 1088.5,-2962 1088.5,-2986"/>
-<text text-anchor="middle" x="1056.5" y="-2971.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
+<!-- interface~util_set_rhill_approximate -->
+<g id="call~~graph~~CallGraph_node386" class="node">
+<title>interface~util_set_rhill_approximate</title>
+<g id="a_call~~graph~~CallGraph_node386"><a xlink:href=".././interface/util_set_rhill_approximate.html" xlink:title="util_set_rhill_approximate">
+<polygon fill="#a7506f" stroke="#a7506f" points="164,-3879 30,-3879 30,-3855 164,-3855 164,-3879"/>
+<text text-anchor="middle" x="97" y="-3864.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_rhill_approximate</text>
 </a>
 </g>
 </g>
-<!-- proc~io_get_args&#45;&gt;interface~io_toupper -->
-<g id="call~~graph~~CallGraph_edge363" class="edge">
-<title>proc~io_get_args&#45;&gt;interface~io_toupper</title>
-<path fill="none" stroke="#000000" d="M838.09,-3000.85C883.74,-2995.21 965.29,-2985.14 1014.49,-2979.06"/>
-<polygon fill="#000000" stroke="#000000" points="1014.98,-2982.53 1024.47,-2977.83 1014.12,-2975.58 1014.98,-2982.53"/>
+<!-- interface~util_set_rhill_approximate&#45;&gt;proc~util_set_rhill_approximate -->
+<g id="call~~graph~~CallGraph_edge352" class="edge">
+<title>interface~util_set_rhill_approximate&#45;&gt;proc~util_set_rhill_approximate</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M164.25,-3867C191.07,-3867 222.19,-3867 249.92,-3867"/>
+<polygon fill="#000000" stroke="#000000" points="249.98,-3870.5 259.98,-3867 249.98,-3863.5 249.98,-3870.5"/>
 </g>
-<!-- helio_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_node606" class="node">
-<title>helio_kick_getacch_pl</title>
-<polygon fill="#777777" stroke="#777777" points="621,-3769 504,-3769 504,-3745 621,-3745 621,-3769"/>
-<text text-anchor="middle" x="562.5" y="-3754.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_pl</text>
+<!-- proc~operator_cross_dp -->
+<g id="call~~graph~~CallGraph_node387" class="node">
+<title>proc~operator_cross_dp</title>
+<g id="a_call~~graph~~CallGraph_node387"><a xlink:href=".././proc/operator_cross_dp.html" xlink:title="operator_cross_dp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="148.5,-9743 45.5,-9743 45.5,-9719 148.5,-9719 148.5,-9743"/>
+<text text-anchor="middle" x="97" y="-9728.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_dp</text>
+</a>
 </g>
-<!-- proc~symba_kick_getacch_pl&#45;&gt;helio_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_edge364" class="edge">
-<title>proc~symba_kick_getacch_pl&#45;&gt;helio_kick_getacch_pl</title>
-<path fill="none" stroke="#000000" d="M390.27,-3757C422.08,-3757 460.86,-3757 493.46,-3757"/>
-<polygon fill="#000000" stroke="#000000" points="493.81,-3760.5 503.81,-3757 493.81,-3753.5 493.81,-3760.5"/>
 </g>
-<!-- proc~operator_cross_i4b -->
-<g id="call~~graph~~CallGraph_node362" class="node">
-<title>proc~operator_cross_i4b</title>
-<g id="a_call~~graph~~CallGraph_node362"><a xlink:href=".././proc/operator_cross_i4b.html" xlink:title="operator_cross_i4b">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="149.5,-10161 44.5,-10161 44.5,-10137 149.5,-10137 149.5,-10161"/>
-<text text-anchor="middle" x="97" y="-10146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_i4b</text>
+<!-- proc~operator_cross_i1b -->
+<g id="call~~graph~~CallGraph_node388" class="node">
+<title>proc~operator_cross_i1b</title>
+<g id="a_call~~graph~~CallGraph_node388"><a xlink:href=".././proc/operator_cross_i1b.html" xlink:title="operator_cross_i1b">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="149.5,-9785 44.5,-9785 44.5,-9761 149.5,-9761 149.5,-9785"/>
+<text text-anchor="middle" x="97" y="-9770.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_i1b</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_gr_kick_getacch_pl&#45;&gt;gr_kick_getacch -->
-<g id="call~~graph~~CallGraph_edge365" class="edge">
-<title>proc~helio_gr_kick_getacch_pl&#45;&gt;gr_kick_getacch</title>
-<path fill="none" stroke="#000000" d="M393.66,-3961.09C429.48,-3957.87 473.29,-3953.93 507.17,-3950.89"/>
-<polygon fill="#000000" stroke="#000000" points="507.7,-3954.35 517.34,-3949.97 507.07,-3947.38 507.7,-3954.35"/>
-</g>
-<!-- proc~io_get_token -->
-<g id="call~~graph~~CallGraph_node364" class="node">
-<title>proc~io_get_token</title>
-<g id="a_call~~graph~~CallGraph_node364"><a xlink:href=".././proc/io_get_token.html" xlink:title="io_get_token">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="1358.5,-2944 1284.5,-2944 1284.5,-2920 1358.5,-2920 1358.5,-2944"/>
-<text text-anchor="middle" x="1321.5" y="-2929.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
+<!-- proc~rmvs_util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_node389" class="node">
+<title>proc~rmvs_util_sort_rearrange_pl</title>
+<g id="a_call~~graph~~CallGraph_node389"><a xlink:href=".././proc/rmvs_util_sort_rearrange_pl.html" xlink:title="rmvs_util_sort_rearrange_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="400.5,-6956 253.5,-6956 253.5,-6932 400.5,-6932 400.5,-6956"/>
+<text text-anchor="middle" x="327" y="-6941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_rearrange_pl</text>
 </a>
 </g>
 </g>
-<!-- helio_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_node617" class="node">
-<title>helio_kick_getacch_tp</title>
-<polygon fill="#777777" stroke="#777777" points="621.5,-3811 503.5,-3811 503.5,-3787 621.5,-3787 621.5,-3811"/>
-<text text-anchor="middle" x="562.5" y="-3796.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_tp</text>
+<!-- proc~rmvs_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_edge353" class="edge">
+<title>proc~rmvs_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl</title>
+<path fill="none" stroke="#000000" d="M393.05,-6956.04C422.48,-6961.48 457.25,-6967.91 487.02,-6973.42"/>
+<polygon fill="#000000" stroke="#000000" points="486.44,-6976.87 496.91,-6975.25 487.71,-6969.99 486.44,-6976.87"/>
 </g>
-<!-- proc~symba_kick_getacch_tp&#45;&gt;helio_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_edge366" class="edge">
-<title>proc~symba_kick_getacch_tp&#45;&gt;helio_kick_getacch_tp</title>
-<path fill="none" stroke="#000000" d="M390.57,-3799C422.14,-3799 460.51,-3799 492.88,-3799"/>
-<polygon fill="#000000" stroke="#000000" points="493.17,-3802.5 503.17,-3799 493.17,-3795.5 493.17,-3802.5"/>
+<!-- proc~gr_pv2vh_body -->
+<g id="call~~graph~~CallGraph_node390" class="node">
+<title>proc~gr_pv2vh_body</title>
+<g id="a_call~~graph~~CallGraph_node390"><a xlink:href=".././proc/gr_pv2vh_body.html" xlink:title="gr_pv2vh_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="370,-9827 284,-9827 284,-9803 370,-9803 370,-9827"/>
+<text text-anchor="middle" x="327" y="-9812.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_pv2vh_body</text>
+</a>
 </g>
-<!-- proc~symba_kick_pltpenc&#45;&gt;ind1 -->
-<g id="call~~graph~~CallGraph_edge368" class="edge">
-<title>proc~symba_kick_pltpenc&#45;&gt;ind1</title>
-<path fill="none" stroke="#000000" d="M381.57,-391.64C425.51,-399.54 486.53,-410.51 525.01,-417.44"/>
-<polygon fill="#000000" stroke="#000000" points="524.77,-420.95 535.23,-419.27 526.01,-414.06 524.77,-420.95"/>
 </g>
-<!-- proc~symba_kick_pltpenc&#45;&gt;ind2 -->
-<g id="call~~graph~~CallGraph_edge367" class="edge">
-<title>proc~symba_kick_pltpenc&#45;&gt;ind2</title>
-<path fill="none" stroke="#000000" d="M381.57,-382C425.51,-382 486.53,-382 525.01,-382"/>
-<polygon fill="#000000" stroke="#000000" points="525.23,-385.5 535.23,-382 525.23,-378.5 525.23,-385.5"/>
+<!-- proc~io_read_body_in&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge354" class="edge">
+<title>proc~io_read_body_in&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M602.03,-480.45C618.19,-483.67 636.29,-488.34 652,-495 691.62,-511.8 732.21,-541.2 756.52,-560.39"/>
+<polygon fill="#000000" stroke="#000000" points="754.41,-563.19 764.4,-566.71 758.79,-557.72 754.41,-563.19"/>
 </g>
-<!-- proc~operator_cross_i8b -->
-<g id="call~~graph~~CallGraph_node369" class="node">
-<title>proc~operator_cross_i8b</title>
-<g id="a_call~~graph~~CallGraph_node369"><a xlink:href=".././proc/operator_cross_i8b.html" xlink:title="operator_cross_i8b">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="149.5,-10203 44.5,-10203 44.5,-10179 149.5,-10179 149.5,-10203"/>
-<text text-anchor="middle" x="97" y="-10188.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_i8b</text>
+<!-- proc~symba_util_fill_arr_info -->
+<g id="call~~graph~~CallGraph_node392" class="node">
+<title>proc~symba_util_fill_arr_info</title>
+<g id="a_call~~graph~~CallGraph_node392"><a xlink:href=".././proc/symba_util_fill_arr_info.html" xlink:title="symba_util_fill_arr_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="158,-9869 36,-9869 36,-9845 158,-9845 158,-9869"/>
+<text text-anchor="middle" x="97" y="-9854.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_arr_info</text>
 </a>
 </g>
 </g>
-<!-- proc~operator_cross_el_sp -->
-<g id="call~~graph~~CallGraph_node372" class="node">
-<title>proc~operator_cross_el_sp</title>
-<g id="a_call~~graph~~CallGraph_node372"><a xlink:href=".././proc/operator_cross_el_sp.html" xlink:title="operator_cross_el_sp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="155,-10245 39,-10245 39,-10221 155,-10221 155,-10245"/>
-<text text-anchor="middle" x="97" y="-10230.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_sp</text>
+<!-- interface~symba_util_spill_pl -->
+<g id="call~~graph~~CallGraph_node393" class="node">
+<title>interface~symba_util_spill_pl</title>
+<g id="a_call~~graph~~CallGraph_node393"><a xlink:href=".././interface/symba_util_spill_pl.html" xlink:title="symba_util_spill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="1061.5,-5009 959.5,-5009 959.5,-4985 1061.5,-4985 1061.5,-5009"/>
+<text text-anchor="middle" x="1010.5" y="-4994.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~operator_cross_el_dp -->
-<g id="call~~graph~~CallGraph_node374" class="node">
-<title>proc~operator_cross_el_dp</title>
-<g id="a_call~~graph~~CallGraph_node374"><a xlink:href=".././proc/operator_cross_el_dp.html" xlink:title="operator_cross_el_dp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="155.5,-10287 38.5,-10287 38.5,-10263 155.5,-10263 155.5,-10287"/>
-<text text-anchor="middle" x="97" y="-10272.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_dp</text>
+<!-- interface~symba_util_spill_pl&#45;&gt;proc~symba_util_spill_pl -->
+<g id="call~~graph~~CallGraph_edge355" class="edge">
+<title>interface~symba_util_spill_pl&#45;&gt;proc~symba_util_spill_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1061.6,-4997.21C1099.13,-4997.37 1150.62,-4997.58 1190.37,-4997.75"/>
+<polygon fill="#000000" stroke="#000000" points="1190.45,-5001.25 1200.46,-4997.79 1190.48,-4994.25 1190.45,-5001.25"/>
+</g>
+<!-- interface~symba_util_spill_pltpenc -->
+<g id="call~~graph~~CallGraph_node394" class="node">
+<title>interface~symba_util_spill_pltpenc</title>
+<g id="a_call~~graph~~CallGraph_node394"><a xlink:href=".././interface/symba_util_spill_pltpenc.html" xlink:title="symba_util_spill_pltpenc">
+<polygon fill="#a7506f" stroke="#a7506f" points="1074.5,-5425 946.5,-5425 946.5,-5401 1074.5,-5401 1074.5,-5425"/>
+<text text-anchor="middle" x="1010.5" y="-5410.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_pltpenc</text>
 </a>
 </g>
 </g>
-<!-- proc~operator_cross_el_i1b -->
-<g id="call~~graph~~CallGraph_node375" class="node">
-<title>proc~operator_cross_el_i1b</title>
-<g id="a_call~~graph~~CallGraph_node375"><a xlink:href=".././proc/operator_cross_el_i1b.html" xlink:title="operator_cross_el_i1b">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="156.5,-10329 37.5,-10329 37.5,-10305 156.5,-10305 156.5,-10329"/>
-<text text-anchor="middle" x="97" y="-10314.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_i1b</text>
+<!-- interface~symba_util_spill_pltpenc&#45;&gt;proc~symba_util_spill_pltpenc -->
+<g id="call~~graph~~CallGraph_edge356" class="edge">
+<title>interface~symba_util_spill_pltpenc&#45;&gt;proc~symba_util_spill_pltpenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1074.61,-5401.91C1106.19,-5396.36 1144.59,-5389.61 1177.45,-5383.84"/>
+<polygon fill="#000000" stroke="#000000" points="1178.21,-5387.26 1187.45,-5382.08 1177,-5380.36 1178.21,-5387.26"/>
+</g>
+<!-- proc~operator_cross_i8b -->
+<g id="call~~graph~~CallGraph_node395" class="node">
+<title>proc~operator_cross_i8b</title>
+<g id="a_call~~graph~~CallGraph_node395"><a xlink:href=".././proc/operator_cross_i8b.html" xlink:title="operator_cross_i8b">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="149.5,-9911 44.5,-9911 44.5,-9887 149.5,-9887 149.5,-9911"/>
+<text text-anchor="middle" x="97" y="-9896.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_i8b</text>
 </a>
 </g>
 </g>
-<!-- interface~util_resize_body&#45;&gt;proc~util_resize_body -->
-<g id="call~~graph~~CallGraph_edge369" class="edge">
-<title>interface~util_resize_body&#45;&gt;proc~util_resize_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.61,-4081C647.24,-4081 705.55,-4081 748.06,-4081"/>
-<polygon fill="#000000" stroke="#000000" points="748.24,-4084.5 758.24,-4081 748.24,-4077.5 748.24,-4084.5"/>
+<!-- interface~symba_util_spill_tp -->
+<g id="call~~graph~~CallGraph_node396" class="node">
+<title>interface~symba_util_spill_tp</title>
+<g id="a_call~~graph~~CallGraph_node396"><a xlink:href=".././interface/symba_util_spill_tp.html" xlink:title="symba_util_spill_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="1062,-5383 959,-5383 959,-5359 1062,-5359 1062,-5383"/>
+<text text-anchor="middle" x="1010.5" y="-5368.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_tp</text>
+</a>
 </g>
-<!-- proc~operator_cross_el_i2b -->
-<g id="call~~graph~~CallGraph_node377" class="node">
-<title>proc~operator_cross_el_i2b</title>
-<g id="a_call~~graph~~CallGraph_node377"><a xlink:href=".././proc/operator_cross_el_i2b.html" xlink:title="operator_cross_el_i2b">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="156.5,-10371 37.5,-10371 37.5,-10347 156.5,-10347 156.5,-10371"/>
-<text text-anchor="middle" x="97" y="-10356.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_i2b</text>
+</g>
+<!-- interface~symba_util_spill_tp&#45;&gt;proc~symba_util_spill_tp -->
+<g id="call~~graph~~CallGraph_edge357" class="edge">
+<title>interface~symba_util_spill_tp&#45;&gt;proc~symba_util_spill_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1062.19,-5362.09C1099.5,-5355.54 1150.39,-5346.59 1189.86,-5339.66"/>
+<polygon fill="#000000" stroke="#000000" points="1190.64,-5343.07 1199.89,-5337.89 1189.43,-5336.18 1190.64,-5343.07"/>
+</g>
+<!-- proc~operator_cross_qp -->
+<g id="call~~graph~~CallGraph_node397" class="node">
+<title>proc~operator_cross_qp</title>
+<g id="a_call~~graph~~CallGraph_node397"><a xlink:href=".././proc/operator_cross_qp.html" xlink:title="operator_cross_qp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="148.5,-9953 45.5,-9953 45.5,-9929 148.5,-9929 148.5,-9953"/>
+<text text-anchor="middle" x="97" y="-9938.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_qp</text>
 </a>
 </g>
 </g>
-<!-- interface~util_resize_encounter -->
-<g id="call~~graph~~CallGraph_node378" class="node">
-<title>interface~util_resize_encounter</title>
-<g id="a_call~~graph~~CallGraph_node378"><a xlink:href=".././interface/util_resize_encounter.html" xlink:title="util_resize_encounter">
-<polygon fill="#a7506f" stroke="#a7506f" points="154.5,-9489 39.5,-9489 39.5,-9465 154.5,-9465 154.5,-9489"/>
-<text text-anchor="middle" x="97" y="-9474.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_encounter</text>
+<!-- proc~util_solve_linear_system_d -->
+<g id="call~~graph~~CallGraph_node398" class="node">
+<title>proc~util_solve_linear_system_d</title>
+<g id="a_call~~graph~~CallGraph_node398"><a xlink:href=".././proc/util_solve_linear_system_d.html" xlink:title="util_solve_linear_system_d">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="167.5,-66 26.5,-66 26.5,-42 167.5,-42 167.5,-66"/>
+<text text-anchor="middle" x="97" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system_d</text>
 </a>
 </g>
 </g>
-<!-- interface~util_resize_encounter&#45;&gt;proc~util_resize_encounter -->
-<g id="call~~graph~~CallGraph_edge370" class="edge">
-<title>interface~util_resize_encounter&#45;&gt;proc~util_resize_encounter</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M154.65,-9477C186.33,-9477 225.98,-9477 259.17,-9477"/>
-<polygon fill="#000000" stroke="#000000" points="259.24,-9480.5 269.24,-9477 259.24,-9473.5 259.24,-9480.5"/>
+<!-- proc~util_solve_linear_system_d&#45;&gt;proc~ge_wpp -->
+<g id="call~~graph~~CallGraph_edge359" class="edge">
+<title>proc~util_solve_linear_system_d&#45;&gt;proc~ge_wpp</title>
+<path fill="none" stroke="#000000" d="M167.65,-54C207.94,-54 257,-54 289.73,-54"/>
+<polygon fill="#000000" stroke="#000000" points="289.75,-57.5 299.75,-54 289.75,-50.5 289.75,-57.5"/>
 </g>
-<!-- interface~util_resize_pl -->
-<g id="call~~graph~~CallGraph_node380" class="node">
-<title>interface~util_resize_pl</title>
-<g id="a_call~~graph~~CallGraph_node380"><a xlink:href=".././interface/util_resize_pl.html" xlink:title="util_resize_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="134.5,-4124 59.5,-4124 59.5,-4100 134.5,-4100 134.5,-4124"/>
-<text text-anchor="middle" x="97" y="-4109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
+<!-- proc~solve_wbs -->
+<g id="call~~graph~~CallGraph_node404" class="node">
+<title>proc~solve_wbs</title>
+<g id="a_call~~graph~~CallGraph_node404"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="358,-24 296,-24 296,0 358,0 358,-24"/>
+<text text-anchor="middle" x="327" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- interface~util_resize_pl&#45;&gt;proc~util_resize_pl -->
-<g id="call~~graph~~CallGraph_edge371" class="edge">
-<title>interface~util_resize_pl&#45;&gt;proc~util_resize_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M134.63,-4112C173.94,-4112 236.48,-4112 279.29,-4112"/>
-<polygon fill="#000000" stroke="#000000" points="279.46,-4115.5 289.46,-4112 279.46,-4108.5 279.46,-4115.5"/>
-</g>
-<!-- proc~helio_gr_kick_getacch_tp&#45;&gt;gr_kick_getacch -->
-<g id="call~~graph~~CallGraph_edge372" class="edge">
-<title>proc~helio_gr_kick_getacch_tp&#45;&gt;gr_kick_getacch</title>
-<path fill="none" stroke="#000000" d="M393.66,-3930.91C429.48,-3934.13 473.29,-3938.07 507.17,-3941.11"/>
-<polygon fill="#000000" stroke="#000000" points="507.07,-3944.62 517.34,-3942.03 507.7,-3937.65 507.07,-3944.62"/>
+<!-- proc~util_solve_linear_system_d&#45;&gt;proc~solve_wbs -->
+<g id="call~~graph~~CallGraph_edge358" class="edge">
+<title>proc~util_solve_linear_system_d&#45;&gt;proc~solve_wbs</title>
+<path fill="none" stroke="#000000" d="M163.34,-41.96C202.81,-34.69 251.86,-25.66 285.72,-19.42"/>
+<polygon fill="#000000" stroke="#000000" points="286.52,-22.83 295.72,-17.58 285.25,-15.95 286.52,-22.83"/>
 </g>
-<!-- interface~util_resize_tp -->
-<g id="call~~graph~~CallGraph_node382" class="node">
-<title>interface~util_resize_tp</title>
-<g id="a_call~~graph~~CallGraph_node382"><a xlink:href=".././interface/util_resize_tp.html" xlink:title="util_resize_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="135,-4063 59,-4063 59,-4039 135,-4039 135,-4063"/>
-<text text-anchor="middle" x="97" y="-4048.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
+<!-- proc~symba_util_fill_arr_kin -->
+<g id="call~~graph~~CallGraph_node399" class="node">
+<title>proc~symba_util_fill_arr_kin</title>
+<g id="a_call~~graph~~CallGraph_node399"><a xlink:href=".././proc/symba_util_fill_arr_kin.html" xlink:title="symba_util_fill_arr_kin">
+<polygon fill="#d9534f" stroke="#d9534f" points="156,-9995 38,-9995 38,-9971 156,-9971 156,-9995"/>
+<text text-anchor="middle" x="97" y="-9980.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_fill_arr_kin</text>
 </a>
 </g>
 </g>
-<!-- interface~util_resize_tp&#45;&gt;proc~util_resize_tp -->
-<g id="call~~graph~~CallGraph_edge373" class="edge">
-<title>interface~util_resize_tp&#45;&gt;proc~util_resize_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.14,-4051C174.31,-4051 236.14,-4051 278.75,-4051"/>
-<polygon fill="#000000" stroke="#000000" points="278.88,-4054.5 288.88,-4051 278.88,-4047.5 278.88,-4054.5"/>
-</g>
-<!-- proc~helio_gr_p4_pl&#45;&gt;gr_p4_pos_kick -->
-<g id="call~~graph~~CallGraph_edge374" class="edge">
-<title>proc~helio_gr_p4_pl&#45;&gt;gr_p4_pos_kick</title>
-<path fill="none" stroke="#000000" d="M368.67,-4318.34C407.3,-4314.87 465.61,-4309.62 507.99,-4305.81"/>
-<polygon fill="#000000" stroke="#000000" points="508.48,-4309.28 518.13,-4304.9 507.85,-4302.31 508.48,-4309.28"/>
-</g>
-<!-- interface~util_get_energy_momentum_system -->
-<g id="call~~graph~~CallGraph_node384" class="node">
-<title>interface~util_get_energy_momentum_system</title>
-<g id="a_call~~graph~~CallGraph_node384"><a xlink:href=".././interface/util_get_energy_momentum_system.html" xlink:title="util_get_energy_momentum_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="190,-7664 4,-7664 4,-7640 190,-7640 190,-7664"/>
-<text text-anchor="middle" x="97" y="-7649.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum_system</text>
+<!-- proc~rmvs_util_sort_pl -->
+<g id="call~~graph~~CallGraph_node400" class="node">
+<title>proc~rmvs_util_sort_pl</title>
+<g id="a_call~~graph~~CallGraph_node400"><a xlink:href=".././proc/rmvs_util_sort_pl.html" xlink:title="rmvs_util_sort_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="374,-10037 280,-10037 280,-10013 374,-10013 374,-10037"/>
+<text text-anchor="middle" x="327" y="-10022.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~util_get_energy_momentum_system&#45;&gt;proc~util_get_energy_momentum_system -->
-<g id="call~~graph~~CallGraph_edge375" class="edge">
-<title>interface~util_get_energy_momentum_system&#45;&gt;proc~util_get_energy_momentum_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M190.08,-7652C201.15,-7652 212.51,-7652 223.71,-7652"/>
-<polygon fill="#000000" stroke="#000000" points="223.95,-7655.5 233.95,-7652 223.95,-7648.5 223.95,-7655.5"/>
+<!-- whm_util_sort_pl -->
+<g id="call~~graph~~CallGraph_node583" class="node">
+<title>whm_util_sort_pl</title>
+<polygon fill="#777777" stroke="#777777" points="602.5,-10037 509.5,-10037 509.5,-10013 602.5,-10013 602.5,-10037"/>
+<text text-anchor="middle" x="556" y="-10022.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_sort_pl</text>
 </g>
-<!-- interface~util_set_beg_end_pl -->
-<g id="call~~graph~~CallGraph_node385" class="node">
-<title>interface~util_set_beg_end_pl</title>
-<g id="a_call~~graph~~CallGraph_node385"><a xlink:href=".././interface/util_set_beg_end_pl.html" xlink:title="util_set_beg_end_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="151.5,-9027 42.5,-9027 42.5,-9003 151.5,-9003 151.5,-9027"/>
-<text text-anchor="middle" x="97" y="-9012.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_beg_end_pl</text>
+<!-- proc~rmvs_util_sort_pl&#45;&gt;whm_util_sort_pl -->
+<g id="call~~graph~~CallGraph_edge360" class="edge">
+<title>proc~rmvs_util_sort_pl&#45;&gt;whm_util_sort_pl</title>
+<path fill="none" stroke="#000000" d="M374.21,-10025C410.23,-10025 460.41,-10025 498.76,-10025"/>
+<polygon fill="#000000" stroke="#000000" points="499.24,-10028.5 509.24,-10025 499.24,-10021.5 499.24,-10028.5"/>
+</g>
+<!-- proc~rmvs_util_sort_tp -->
+<g id="call~~graph~~CallGraph_node401" class="node">
+<title>proc~rmvs_util_sort_tp</title>
+<g id="a_call~~graph~~CallGraph_node401"><a xlink:href=".././proc/rmvs_util_sort_tp.html" xlink:title="rmvs_util_sort_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="374,-8483 280,-8483 280,-8459 374,-8459 374,-8483"/>
+<text text-anchor="middle" x="327" y="-8468.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~util_set_beg_end_pl&#45;&gt;proc~util_set_beg_end_pl -->
-<g id="call~~graph~~CallGraph_edge376" class="edge">
-<title>interface~util_set_beg_end_pl&#45;&gt;proc~util_set_beg_end_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.74,-9015C184.82,-9015 227.38,-9015 262.17,-9015"/>
-<polygon fill="#000000" stroke="#000000" points="262.22,-9018.5 272.22,-9015 262.22,-9011.5 262.22,-9018.5"/>
+<!-- proc~rmvs_util_sort_tp&#45;&gt;util_sort_tp -->
+<g id="call~~graph~~CallGraph_edge361" class="edge">
+<title>proc~rmvs_util_sort_tp&#45;&gt;util_sort_tp</title>
+<path fill="none" stroke="#000000" d="M374.21,-8466.73C415.03,-8462.95 474.01,-8457.49 513.39,-8453.85"/>
+<polygon fill="#000000" stroke="#000000" points="513.81,-8457.33 523.44,-8452.92 513.16,-8450.36 513.81,-8457.33"/>
 </g>
-<!-- proc~io_param_reader -->
-<g id="call~~graph~~CallGraph_node386" class="node">
-<title>proc~io_param_reader</title>
-<g id="a_call~~graph~~CallGraph_node386"><a xlink:href=".././proc/io_param_reader.html" xlink:title="io_param_reader">
-<polygon fill="#d9534f" stroke="#d9534f" points="851,-2965 756,-2965 756,-2941 851,-2941 851,-2965"/>
-<text text-anchor="middle" x="803.5" y="-2950.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
+<!-- proc~operator_cross_i2b -->
+<g id="call~~graph~~CallGraph_node402" class="node">
+<title>proc~operator_cross_i2b</title>
+<g id="a_call~~graph~~CallGraph_node402"><a xlink:href=".././proc/operator_cross_i2b.html" xlink:title="operator_cross_i2b">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="149.5,-10079 44.5,-10079 44.5,-10055 149.5,-10055 149.5,-10079"/>
+<text text-anchor="middle" x="97" y="-10064.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_i2b</text>
 </a>
 </g>
 </g>
-<!-- interface~io_get_token -->
-<g id="call~~graph~~CallGraph_node502" class="node">
-<title>interface~io_get_token</title>
-<g id="a_call~~graph~~CallGraph_node502"><a xlink:href=".././interface/io_get_token.html" xlink:title="io_get_token">
-<polygon fill="#a7506f" stroke="#a7506f" points="1093.5,-2944 1019.5,-2944 1019.5,-2920 1093.5,-2920 1093.5,-2944"/>
-<text text-anchor="middle" x="1056.5" y="-2929.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
+<!-- proc~util_solve_linear_system_q -->
+<g id="call~~graph~~CallGraph_node405" class="node">
+<title>proc~util_solve_linear_system_q</title>
+<g id="a_call~~graph~~CallGraph_node405"><a xlink:href=".././proc/util_solve_linear_system_q.html" xlink:title="util_solve_linear_system_q">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="167.5,-24 26.5,-24 26.5,0 167.5,0 167.5,-24"/>
+<text text-anchor="middle" x="97" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system_q</text>
 </a>
 </g>
 </g>
-<!-- proc~io_param_reader&#45;&gt;interface~io_get_token -->
-<g id="call~~graph~~CallGraph_edge377" class="edge">
-<title>proc~io_param_reader&#45;&gt;interface~io_get_token</title>
-<path fill="none" stroke="#000000" d="M851.12,-2949.1C896.24,-2945.32 964.22,-2939.64 1009.22,-2935.87"/>
-<polygon fill="#000000" stroke="#000000" points="1009.62,-2939.35 1019.29,-2935.03 1009.04,-2932.38 1009.62,-2939.35"/>
-</g>
-<!-- proc~io_param_reader&#45;&gt;interface~io_toupper -->
-<g id="call~~graph~~CallGraph_edge378" class="edge">
-<title>proc~io_param_reader&#45;&gt;interface~io_toupper</title>
-<path fill="none" stroke="#000000" d="M851.12,-2956.9C897.95,-2960.82 969.4,-2966.8 1014.23,-2970.55"/>
-<polygon fill="#000000" stroke="#000000" points="1013.94,-2974.04 1024.2,-2971.38 1014.53,-2967.06 1013.94,-2974.04"/>
+<!-- proc~util_solve_linear_system_q&#45;&gt;proc~ge_wpp -->
+<g id="call~~graph~~CallGraph_edge363" class="edge">
+<title>proc~util_solve_linear_system_q&#45;&gt;proc~ge_wpp</title>
+<path fill="none" stroke="#000000" d="M163.34,-24.04C204.48,-31.61 256.03,-41.11 289.94,-47.36"/>
+<polygon fill="#000000" stroke="#000000" points="289.39,-50.82 299.86,-49.19 290.66,-43.93 289.39,-50.82"/>
 </g>
-<!-- proc~symba_fragmentation_casedisruption&#45;&gt;fragmentation_initialize -->
-<g id="call~~graph~~CallGraph_edge379" class="edge">
-<title>proc~symba_fragmentation_casedisruption&#45;&gt;fragmentation_initialize</title>
-<path fill="none" stroke="#000000" d="M1389.49,-1848.98C1404.79,-1846.13 1420.97,-1843.03 1436,-1840 1446.56,-1837.87 1457.76,-1835.51 1468.63,-1833.17"/>
-<polygon fill="#000000" stroke="#000000" points="1469.47,-1836.57 1478.5,-1831.03 1467.98,-1829.73 1469.47,-1836.57"/>
+<!-- proc~util_solve_linear_system_q&#45;&gt;proc~solve_wbs -->
+<g id="call~~graph~~CallGraph_edge362" class="edge">
+<title>proc~util_solve_linear_system_q&#45;&gt;proc~solve_wbs</title>
+<path fill="none" stroke="#000000" d="M167.65,-12C206.41,-12 253.27,-12 285.92,-12"/>
+<polygon fill="#000000" stroke="#000000" points="285.99,-15.5 295.99,-12 285.99,-8.5 285.99,-15.5"/>
 </g>
-<!-- interface~util_set_ir3h -->
-<g id="call~~graph~~CallGraph_node388" class="node">
-<title>interface~util_set_ir3h</title>
-<g id="a_call~~graph~~CallGraph_node388"><a xlink:href=".././interface/util_set_ir3h.html" xlink:title="util_set_ir3h">
-<polygon fill="#a7506f" stroke="#a7506f" points="132,-9573 62,-9573 62,-9549 132,-9549 132,-9573"/>
-<text text-anchor="middle" x="97" y="-9558.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_ir3h</text>
+<!-- proc~operator_cross_i4b -->
+<g id="call~~graph~~CallGraph_node406" class="node">
+<title>proc~operator_cross_i4b</title>
+<g id="a_call~~graph~~CallGraph_node406"><a xlink:href=".././proc/operator_cross_i4b.html" xlink:title="operator_cross_i4b">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="149.5,-10121 44.5,-10121 44.5,-10097 149.5,-10097 149.5,-10121"/>
+<text text-anchor="middle" x="97" y="-10106.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_i4b</text>
 </a>
 </g>
 </g>
-<!-- interface~util_set_ir3h&#45;&gt;proc~util_set_ir3h -->
-<g id="call~~graph~~CallGraph_edge380" class="edge">
-<title>interface~util_set_ir3h&#45;&gt;proc~util_set_ir3h</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M132.13,-9561C171.93,-9561 237.81,-9561 281.56,-9561"/>
-<polygon fill="#000000" stroke="#000000" points="281.63,-9564.5 291.63,-9561 281.63,-9557.5 281.63,-9564.5"/>
-</g>
-<!-- proc~operator_cross_el_i4b -->
-<g id="call~~graph~~CallGraph_node389" class="node">
-<title>proc~operator_cross_el_i4b</title>
-<g id="a_call~~graph~~CallGraph_node389"><a xlink:href=".././proc/operator_cross_el_i4b.html" xlink:title="operator_cross_el_i4b">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="156.5,-10413 37.5,-10413 37.5,-10389 156.5,-10389 156.5,-10413"/>
-<text text-anchor="middle" x="97" y="-10398.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_i4b</text>
-</a>
+<!-- proc~io_read_cb_in&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge364" class="edge">
+<title>proc~io_read_cb_in&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M596.19,-435.63C614.05,-438.51 634.95,-443.7 652,-453 700.47,-479.45 742.86,-529.92 764.24,-558.3"/>
+<polygon fill="#000000" stroke="#000000" points="761.68,-560.71 770.43,-566.68 767.31,-556.55 761.68,-560.71"/>
 </g>
+<!-- proc~symba_util_fill_pl&#45;&gt;interface~util_fill -->
+<g id="call~~graph~~CallGraph_edge367" class="edge">
+<title>proc~symba_util_fill_pl&#45;&gt;interface~util_fill</title>
+<path fill="none" stroke="#000000" d="M1298.54,-5615.3C1347.15,-5607.16 1422.77,-5594.51 1467.3,-5587.06"/>
+<polygon fill="#000000" stroke="#000000" points="1468.09,-5590.47 1477.37,-5585.37 1466.93,-5583.57 1468.09,-5590.47"/>
 </g>
-<!-- proc~io_param_writer -->
-<g id="call~~graph~~CallGraph_node390" class="node">
-<title>proc~io_param_writer</title>
-<g id="a_call~~graph~~CallGraph_node390"><a xlink:href=".././proc/io_param_writer.html" xlink:title="io_param_writer">
-<polygon fill="#d9534f" stroke="#d9534f" points="372,-10455 282,-10455 282,-10431 372,-10431 372,-10455"/>
-<text text-anchor="middle" x="327" y="-10440.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_writer</text>
-</a>
+<!-- proc~symba_util_fill_pl&#45;&gt;util_fill_pl -->
+<g id="call~~graph~~CallGraph_edge365" class="edge">
+<title>proc~symba_util_fill_pl&#45;&gt;util_fill_pl</title>
+<path fill="none" stroke="#000000" d="M1298.54,-5623C1346.75,-5623 1421.55,-5623 1466.21,-5623"/>
+<polygon fill="#000000" stroke="#000000" points="1466.34,-5626.5 1476.34,-5623 1466.34,-5619.5 1466.34,-5626.5"/>
 </g>
+<!-- proc~symba_util_fill_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge366" class="edge">
+<title>proc~symba_util_fill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1298.72,-5624.97C1318.58,-5623.24 1340.33,-5617.42 1354,-5602 1417.18,-5530.75 1340.13,-5256.13 1390,-5175 1407.52,-5146.49 1441.44,-5127.86 1467.65,-5117.04"/>
+<polygon fill="#000000" stroke="#000000" points="1469.24,-5120.18 1477.27,-5113.27 1466.68,-5113.66 1469.24,-5120.18"/>
 </g>
-<!-- interface~util_set_msys -->
-<g id="call~~graph~~CallGraph_node391" class="node">
-<title>interface~util_set_msys</title>
-<g id="a_call~~graph~~CallGraph_node391"><a xlink:href=".././interface/util_set_msys.html" xlink:title="util_set_msys">
-<polygon fill="#a7506f" stroke="#a7506f" points="135.5,-9615 58.5,-9615 58.5,-9591 135.5,-9591 135.5,-9615"/>
-<text text-anchor="middle" x="97" y="-9600.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_msys</text>
+<!-- proc~rmvs_util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_node409" class="node">
+<title>proc~rmvs_util_sort_rearrange_tp</title>
+<g id="a_call~~graph~~CallGraph_node409"><a xlink:href=".././proc/rmvs_util_sort_rearrange_tp.html" xlink:title="rmvs_util_sort_rearrange_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="401,-8567 253,-8567 253,-8543 401,-8543 401,-8567"/>
+<text text-anchor="middle" x="327" y="-8552.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_rearrange_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~util_set_msys&#45;&gt;proc~util_set_msys -->
-<g id="call~~graph~~CallGraph_edge381" class="edge">
-<title>interface~util_set_msys&#45;&gt;proc~util_set_msys</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.65,-9603C174.68,-9603 235.8,-9603 278.21,-9603"/>
-<polygon fill="#000000" stroke="#000000" points="278.29,-9606.5 288.29,-9603 278.29,-9599.5 278.29,-9606.5"/>
+<!-- proc~rmvs_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_edge368" class="edge">
+<title>proc~rmvs_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp</title>
+<path fill="none" stroke="#000000" d="M401.07,-8548.24C428.54,-8545.7 459.64,-8542.82 486.66,-8540.32"/>
+<polygon fill="#000000" stroke="#000000" points="487.17,-8543.79 496.8,-8539.38 486.52,-8536.82 487.17,-8543.79"/>
 </g>
-<!-- interface~util_set_mu_pl -->
-<g id="call~~graph~~CallGraph_node392" class="node">
-<title>interface~util_set_mu_pl</title>
-<g id="a_call~~graph~~CallGraph_node392"><a xlink:href=".././interface/util_set_mu_pl.html" xlink:title="util_set_mu_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="138,-9531 56,-9531 56,-9507 138,-9507 138,-9531"/>
-<text text-anchor="middle" x="97" y="-9516.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_mu_pl</text>
+<!-- proc~util_fill_arr_char_string -->
+<g id="call~~graph~~CallGraph_node410" class="node">
+<title>proc~util_fill_arr_char_string</title>
+<g id="a_call~~graph~~CallGraph_node410"><a xlink:href=".././proc/util_fill_arr_char_string.html" xlink:title="util_fill_arr_char_string">
+<polygon fill="#d9534f" stroke="#d9534f" points="157.5,-10163 36.5,-10163 36.5,-10139 157.5,-10139 157.5,-10163"/>
+<text text-anchor="middle" x="97" y="-10148.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_char_string</text>
 </a>
 </g>
 </g>
-<!-- interface~util_set_mu_pl&#45;&gt;proc~util_set_mu_pl -->
-<g id="call~~graph~~CallGraph_edge382" class="edge">
-<title>interface~util_set_mu_pl&#45;&gt;proc~util_set_mu_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.24,-9519C176.54,-9519 234.31,-9519 275.65,-9519"/>
-<polygon fill="#000000" stroke="#000000" points="275.78,-9522.5 285.78,-9519 275.78,-9515.5 275.78,-9522.5"/>
-</g>
-<!-- interface~util_set_mu_tp -->
-<g id="call~~graph~~CallGraph_node393" class="node">
-<title>interface~util_set_mu_tp</title>
-<g id="a_call~~graph~~CallGraph_node393"><a xlink:href=".././interface/util_set_mu_tp.html" xlink:title="util_set_mu_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="138,-9783 56,-9783 56,-9759 138,-9759 138,-9783"/>
-<text text-anchor="middle" x="97" y="-9768.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_mu_tp</text>
+<!-- proc~helio_coord_vh2vb_pl -->
+<g id="call~~graph~~CallGraph_node411" class="node">
+<title>proc~helio_coord_vh2vb_pl</title>
+<g id="a_call~~graph~~CallGraph_node411"><a xlink:href=".././proc/helio_coord_vh2vb_pl.html" xlink:title="helio_coord_vh2vb_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-10205 268.5,-10205 268.5,-10181 385.5,-10181 385.5,-10205"/>
+<text text-anchor="middle" x="327" y="-10190.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vh2vb_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~util_set_mu_tp&#45;&gt;proc~util_set_mu_tp -->
-<g id="call~~graph~~CallGraph_edge383" class="edge">
-<title>interface~util_set_mu_tp&#45;&gt;proc~util_set_mu_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.24,-9771C176.54,-9771 234.31,-9771 275.65,-9771"/>
-<polygon fill="#000000" stroke="#000000" points="275.78,-9774.5 285.78,-9771 275.78,-9767.5 275.78,-9774.5"/>
+<!-- proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_fragmentation_casemerge -->
+<g id="call~~graph~~CallGraph_edge372" class="edge">
+<title>proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_fragmentation_casemerge</title>
+<path fill="none" stroke="#000000" d="M1303.66,-4373.03C1329.49,-4378.98 1361.35,-4386.12 1390,-4392 1401.66,-4394.39 1414.01,-4396.8 1426.11,-4399.1"/>
+<polygon fill="#000000" stroke="#000000" points="1425.72,-4402.59 1436.2,-4400.99 1427.02,-4395.71 1425.72,-4402.59"/>
 </g>
-<!-- interface~util_set_rhill -->
-<g id="call~~graph~~CallGraph_node394" class="node">
-<title>interface~util_set_rhill</title>
-<g id="a_call~~graph~~CallGraph_node394"><a xlink:href=".././interface/util_set_rhill.html" xlink:title="util_set_rhill">
-<polygon fill="#a7506f" stroke="#a7506f" points="131.5,-9867 62.5,-9867 62.5,-9843 131.5,-9843 131.5,-9867"/>
-<text text-anchor="middle" x="97" y="-9852.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_rhill</text>
+<!-- proc~symba_collision_consolidate_familes -->
+<g id="call~~graph~~CallGraph_node431" class="node">
+<title>proc~symba_collision_consolidate_familes</title>
+<g id="a_call~~graph~~CallGraph_node431"><a xlink:href=".././proc/symba_collision_consolidate_familes.html" xlink:title="symba_collision_consolidate_familes">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="1598,-4383 1411,-4383 1411,-4359 1598,-4359 1598,-4383"/>
+<text text-anchor="middle" x="1504.5" y="-4368.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_consolidate_familes</text>
 </a>
 </g>
 </g>
-<!-- interface~util_set_rhill&#45;&gt;proc~util_set_rhill -->
-<g id="call~~graph~~CallGraph_edge384" class="edge">
-<title>interface~util_set_rhill&#45;&gt;proc~util_set_rhill</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M131.64,-9855C171.55,-9855 238.19,-9855 282.12,-9855"/>
-<polygon fill="#000000" stroke="#000000" points="282.22,-9858.5 292.22,-9855 282.22,-9851.5 282.22,-9858.5"/>
+<!-- proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_familes -->
+<g id="call~~graph~~CallGraph_edge369" class="edge">
+<title>proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_familes</title>
+<path fill="none" stroke="#000000" d="M1338.53,-4364.43C1358.53,-4365.22 1380.02,-4366.08 1400.66,-4366.9"/>
+<polygon fill="#000000" stroke="#000000" points="1400.59,-4370.4 1410.72,-4367.3 1400.87,-4363.41 1400.59,-4370.4"/>
 </g>
-<!-- interface~util_set_rhill_approximate -->
-<g id="call~~graph~~CallGraph_node395" class="node">
-<title>interface~util_set_rhill_approximate</title>
-<g id="a_call~~graph~~CallGraph_node395"><a xlink:href=".././interface/util_set_rhill_approximate.html" xlink:title="util_set_rhill_approximate">
-<polygon fill="#a7506f" stroke="#a7506f" points="164,-4208 30,-4208 30,-4184 164,-4184 164,-4208"/>
-<text text-anchor="middle" x="97" y="-4193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_rhill_approximate</text>
-</a>
+<!-- idx2 -->
+<g id="call~~graph~~CallGraph_node621" class="node">
+<title>idx2</title>
+<polygon fill="#777777" stroke="#777777" points="1531.5,-4299 1477.5,-4299 1477.5,-4275 1531.5,-4275 1531.5,-4299"/>
+<text text-anchor="middle" x="1504.5" y="-4284.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx2</text>
 </g>
+<!-- proc~symba_collision_resolve_mergers&#45;&gt;idx2 -->
+<g id="call~~graph~~CallGraph_edge370" class="edge">
+<title>proc~symba_collision_resolve_mergers&#45;&gt;idx2</title>
+<path fill="none" stroke="#000000" d="M1279.39,-4348.93C1306.75,-4337.05 1350.61,-4319.13 1390,-4308 1415.47,-4300.8 1444.87,-4295.44 1467.37,-4291.94"/>
+<polygon fill="#000000" stroke="#000000" points="1468.13,-4295.36 1477.49,-4290.41 1467.08,-4288.44 1468.13,-4295.36"/>
 </g>
-<!-- interface~util_set_rhill_approximate&#45;&gt;proc~util_set_rhill_approximate -->
-<g id="call~~graph~~CallGraph_edge385" class="edge">
-<title>interface~util_set_rhill_approximate&#45;&gt;proc~util_set_rhill_approximate</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M164.25,-4196C191.07,-4196 222.19,-4196 249.92,-4196"/>
-<polygon fill="#000000" stroke="#000000" points="249.98,-4199.5 259.98,-4196 249.98,-4192.5 249.98,-4199.5"/>
+<!-- idx1 -->
+<g id="call~~graph~~CallGraph_node627" class="node">
+<title>idx1</title>
+<polygon fill="#777777" stroke="#777777" points="1531.5,-4341 1477.5,-4341 1477.5,-4317 1531.5,-4317 1531.5,-4341"/>
+<text text-anchor="middle" x="1504.5" y="-4326.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
 </g>
-<!-- proc~helio_gr_p4_tp&#45;&gt;gr_p4_pos_kick -->
-<g id="call~~graph~~CallGraph_edge386" class="edge">
-<title>proc~helio_gr_p4_tp&#45;&gt;gr_p4_pos_kick</title>
-<path fill="none" stroke="#000000" d="M369.21,-4283.71C407.91,-4287.19 466.03,-4292.41 508.24,-4296.21"/>
-<polygon fill="#000000" stroke="#000000" points="508.06,-4299.71 518.33,-4297.12 508.69,-4292.74 508.06,-4299.71"/>
+<!-- proc~symba_collision_resolve_mergers&#45;&gt;idx1 -->
+<g id="call~~graph~~CallGraph_edge371" class="edge">
+<title>proc~symba_collision_resolve_mergers&#45;&gt;idx1</title>
+<path fill="none" stroke="#000000" d="M1338.53,-4350.03C1382.45,-4344.43 1433.56,-4337.92 1467.11,-4333.64"/>
+<polygon fill="#000000" stroke="#000000" points="1467.88,-4337.07 1477.35,-4332.33 1466.99,-4330.13 1467.88,-4337.07"/>
 </g>
-<!-- proc~operator_cross_el_i8b -->
-<g id="call~~graph~~CallGraph_node397" class="node">
-<title>proc~operator_cross_el_i8b</title>
-<g id="a_call~~graph~~CallGraph_node397"><a xlink:href=".././proc/operator_cross_el_i8b.html" xlink:title="operator_cross_el_i8b">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="156.5,-10497 37.5,-10497 37.5,-10473 156.5,-10473 156.5,-10497"/>
-<text text-anchor="middle" x="97" y="-10482.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross_el_i8b</text>
+<!-- proc~util_fill_arr_dp -->
+<g id="call~~graph~~CallGraph_node413" class="node">
+<title>proc~util_fill_arr_dp</title>
+<g id="a_call~~graph~~CallGraph_node413"><a xlink:href=".././proc/util_fill_arr_dp.html" xlink:title="util_fill_arr_DP">
+<polygon fill="#d9534f" stroke="#d9534f" points="138,-10247 56,-10247 56,-10223 138,-10223 138,-10247"/>
+<text text-anchor="middle" x="97" y="-10232.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_DP</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_esolmd -->
-<g id="call~~graph~~CallGraph_node398" class="node">
-<title>proc~orbel_esolmd</title>
-<g id="a_call~~graph~~CallGraph_node398"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="1095,-230 1018,-230 1018,-206 1095,-206 1095,-230"/>
-<text text-anchor="middle" x="1056.5" y="-215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_esolmd</text>
+<!-- proc~helio_drift_body -->
+<g id="call~~graph~~CallGraph_node414" class="node">
+<title>proc~helio_drift_body</title>
+<g id="a_call~~graph~~CallGraph_node414"><a xlink:href=".././proc/helio_drift_body.html" xlink:title="helio_drift_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="1295.5,-5509 1207.5,-5509 1207.5,-5485 1295.5,-5485 1295.5,-5509"/>
+<text text-anchor="middle" x="1251.5" y="-5494.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_body</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_esolmd&#45;&gt;interface~orbel_scget -->
-<g id="call~~graph~~CallGraph_edge387" class="edge">
-<title>proc~orbel_esolmd&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M1095.18,-218C1143.32,-218 1226.45,-218 1277.15,-218"/>
-<polygon fill="#000000" stroke="#000000" points="1277.46,-221.5 1287.46,-218 1277.46,-214.5 1277.46,-221.5"/>
-</g>
-<!-- proc~symba_fragmentation_casehitandrun&#45;&gt;fragmentation_initialize -->
-<g id="call~~graph~~CallGraph_edge388" class="edge">
-<title>proc~symba_fragmentation_casehitandrun&#45;&gt;fragmentation_initialize</title>
-<path fill="none" stroke="#000000" d="M1416.53,-1819C1431.67,-1819 1447.11,-1819 1461.58,-1819"/>
-<polygon fill="#000000" stroke="#000000" points="1461.92,-1822.5 1471.92,-1819 1461.92,-1815.5 1461.92,-1822.5"/>
+<!-- proc~helio_drift_body&#45;&gt;drift_all -->
+<g id="call~~graph~~CallGraph_edge373" class="edge">
+<title>proc~helio_drift_body&#45;&gt;drift_all</title>
+<path fill="none" stroke="#000000" d="M1295.65,-5497C1344.05,-5497 1421.71,-5497 1467.15,-5497"/>
+<polygon fill="#000000" stroke="#000000" points="1467.42,-5500.5 1477.42,-5497 1467.42,-5493.5 1467.42,-5500.5"/>
 </g>
-<!-- proc~operator_mag_sp -->
-<g id="call~~graph~~CallGraph_node404" class="node">
-<title>proc~operator_mag_sp</title>
-<g id="a_call~~graph~~CallGraph_node404"><a xlink:href=".././proc/operator_mag_sp.html" xlink:title="operator_mag_sp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="145.5,-10539 48.5,-10539 48.5,-10515 145.5,-10515 145.5,-10539"/>
-<text text-anchor="middle" x="97" y="-10524.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag_sp</text>
+<!-- proc~util_fill_arr_dpvec -->
+<g id="call~~graph~~CallGraph_node415" class="node">
+<title>proc~util_fill_arr_dpvec</title>
+<g id="a_call~~graph~~CallGraph_node415"><a xlink:href=".././proc/util_fill_arr_dpvec.html" xlink:title="util_fill_arr_DPvec">
+<polygon fill="#d9534f" stroke="#d9534f" points="146,-10289 48,-10289 48,-10265 146,-10265 146,-10289"/>
+<text text-anchor="middle" x="97" y="-10274.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_DPvec</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_util_resize_pl&#45;&gt;util_resize -->
-<g id="call~~graph~~CallGraph_edge390" class="edge">
-<title>proc~rmvs_util_resize_pl&#45;&gt;util_resize</title>
-<path fill="none" stroke="#000000" d="M855.6,-5401.55C902.97,-5409.48 972.48,-5421.11 1015.81,-5428.36"/>
-<polygon fill="#000000" stroke="#000000" points="1015.26,-5431.82 1025.7,-5430.01 1016.41,-5424.91 1015.26,-5431.82"/>
-</g>
-<!-- whm_util_resize_pl -->
-<g id="call~~graph~~CallGraph_node607" class="node">
-<title>whm_util_resize_pl</title>
-<polygon fill="#777777" stroke="#777777" points="1108,-5405 1005,-5405 1005,-5381 1108,-5381 1108,-5405"/>
-<text text-anchor="middle" x="1056.5" y="-5390.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_resize_pl</text>
+<!-- interface~helio_coord_vb2vh_pl -->
+<g id="call~~graph~~CallGraph_node416" class="node">
+<title>interface~helio_coord_vb2vh_pl</title>
+<g id="a_call~~graph~~CallGraph_node416"><a xlink:href=".././interface/helio_coord_vb2vh_pl.html" xlink:title="helio_coord_vb2vh_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-10331 38.5,-10331 38.5,-10307 155.5,-10307 155.5,-10331"/>
+<text text-anchor="middle" x="97" y="-10316.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vb2vh_pl</text>
+</a>
 </g>
-<!-- proc~rmvs_util_resize_pl&#45;&gt;whm_util_resize_pl -->
-<g id="call~~graph~~CallGraph_edge389" class="edge">
-<title>proc~rmvs_util_resize_pl&#45;&gt;whm_util_resize_pl</title>
-<path fill="none" stroke="#000000" d="M855.6,-5393C895.85,-5393 952.09,-5393 994.67,-5393"/>
-<polygon fill="#000000" stroke="#000000" points="994.9,-5396.5 1004.9,-5393 994.9,-5389.5 994.9,-5396.5"/>
 </g>
-<!-- proc~io_read_body_in -->
-<g id="call~~graph~~CallGraph_node407" class="node">
-<title>proc~io_read_body_in</title>
-<g id="a_call~~graph~~CallGraph_node407"><a xlink:href=".././proc/io_read_body_in.html" xlink:title="io_read_body_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="849.5,-3143 757.5,-3143 757.5,-3119 849.5,-3119 849.5,-3143"/>
-<text text-anchor="middle" x="803.5" y="-3128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_body_in</text>
+<!-- proc~helio_coord_vb2vh_pl -->
+<g id="call~~graph~~CallGraph_node544" class="node">
+<title>proc~helio_coord_vb2vh_pl</title>
+<g id="a_call~~graph~~CallGraph_node544"><a xlink:href=".././proc/helio_coord_vb2vh_pl.html" xlink:title="helio_coord_vb2vh_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-10331 268.5,-10331 268.5,-10307 385.5,-10307 385.5,-10331"/>
+<text text-anchor="middle" x="327" y="-10316.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vb2vh_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_body_in&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge391" class="edge">
-<title>proc~io_read_body_in&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M849.71,-3133.15C868.35,-3135.79 889.42,-3141.18 906,-3152 979.39,-3199.88 1027.97,-3297.37 1046.76,-3340.57"/>
-<polygon fill="#000000" stroke="#000000" points="1043.58,-3342.02 1050.7,-3349.86 1050.02,-3339.29 1043.58,-3342.02"/>
+<!-- interface~helio_coord_vb2vh_pl&#45;&gt;proc~helio_coord_vb2vh_pl -->
+<g id="call~~graph~~CallGraph_edge374" class="edge">
+<title>interface~helio_coord_vb2vh_pl&#45;&gt;proc~helio_coord_vb2vh_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.53,-10319C186.72,-10319 225.45,-10319 258.11,-10319"/>
+<polygon fill="#000000" stroke="#000000" points="258.48,-10322.5 268.48,-10319 258.48,-10315.5 258.48,-10322.5"/>
 </g>
-<!-- proc~operator_mag_el_qp -->
-<g id="call~~graph~~CallGraph_node409" class="node">
-<title>proc~operator_mag_el_qp</title>
-<g id="a_call~~graph~~CallGraph_node409"><a xlink:href=".././proc/operator_mag_el_qp.html" xlink:title="operator_mag_el_qp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="153,-10581 41,-10581 41,-10557 153,-10557 153,-10581"/>
-<text text-anchor="middle" x="97" y="-10566.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag_el_qp</text>
+<!-- proc~util_fill_arr_i4b -->
+<g id="call~~graph~~CallGraph_node417" class="node">
+<title>proc~util_fill_arr_i4b</title>
+<g id="a_call~~graph~~CallGraph_node417"><a xlink:href=".././proc/util_fill_arr_i4b.html" xlink:title="util_fill_arr_I4B">
+<polygon fill="#d9534f" stroke="#d9534f" points="138.5,-10373 55.5,-10373 55.5,-10349 138.5,-10349 138.5,-10373"/>
+<text text-anchor="middle" x="97" y="-10358.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_I4B</text>
 </a>
 </g>
 </g>
-<!-- proc~operator_mag_dp -->
-<g id="call~~graph~~CallGraph_node410" class="node">
-<title>proc~operator_mag_dp</title>
-<g id="a_call~~graph~~CallGraph_node410"><a xlink:href=".././proc/operator_mag_dp.html" xlink:title="operator_mag_dp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="146,-10623 48,-10623 48,-10599 146,-10599 146,-10623"/>
-<text text-anchor="middle" x="97" y="-10608.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag_dp</text>
+<!-- proc~discard_system -->
+<g id="call~~graph~~CallGraph_node418" class="node">
+<title>proc~discard_system</title>
+<g id="a_call~~graph~~CallGraph_node418"><a xlink:href=".././proc/discard_system.html" xlink:title="discard_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="370.5,-10415 283.5,-10415 283.5,-10391 370.5,-10391 370.5,-10415"/>
+<text text-anchor="middle" x="327" y="-10400.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_system</text>
 </a>
 </g>
 </g>
-<!-- proc~operator_mag_el_sp -->
-<g id="call~~graph~~CallGraph_node411" class="node">
-<title>proc~operator_mag_el_sp</title>
-<g id="a_call~~graph~~CallGraph_node411"><a xlink:href=".././proc/operator_mag_el_sp.html" xlink:title="operator_mag_el_sp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="153,-10665 41,-10665 41,-10641 153,-10641 153,-10665"/>
-<text text-anchor="middle" x="97" y="-10650.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag_el_sp</text>
+<!-- interface~helio_coord_vb2vh_tp -->
+<g id="call~~graph~~CallGraph_node419" class="node">
+<title>interface~helio_coord_vb2vh_tp</title>
+<g id="a_call~~graph~~CallGraph_node419"><a xlink:href=".././interface/helio_coord_vb2vh_tp.html" xlink:title="helio_coord_vb2vh_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="156,-7796 38,-7796 38,-7772 156,-7772 156,-7796"/>
+<text text-anchor="middle" x="97" y="-7781.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vb2vh_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~operator_mag_el_dp -->
-<g id="call~~graph~~CallGraph_node412" class="node">
-<title>proc~operator_mag_el_dp</title>
-<g id="a_call~~graph~~CallGraph_node412"><a xlink:href=".././proc/operator_mag_el_dp.html" xlink:title="operator_mag_el_dp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="153,-10707 41,-10707 41,-10683 153,-10683 153,-10707"/>
-<text text-anchor="middle" x="97" y="-10692.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag_el_dp</text>
+<!-- interface~helio_coord_vb2vh_tp&#45;&gt;proc~helio_coord_vb2vh_tp -->
+<g id="call~~graph~~CallGraph_edge375" class="edge">
+<title>interface~helio_coord_vb2vh_tp&#45;&gt;proc~helio_coord_vb2vh_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-7784C187.08,-7784 225.33,-7784 257.7,-7784"/>
+<polygon fill="#000000" stroke="#000000" points="257.98,-7787.5 267.98,-7784 257.98,-7780.5 257.98,-7787.5"/>
+</g>
+<!-- interface~helio_coord_vh2vb_pl -->
+<g id="call~~graph~~CallGraph_node420" class="node">
+<title>interface~helio_coord_vh2vb_pl</title>
+<g id="a_call~~graph~~CallGraph_node420"><a xlink:href=".././interface/helio_coord_vh2vb_pl.html" xlink:title="helio_coord_vh2vb_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-10205 38.5,-10205 38.5,-10181 155.5,-10181 155.5,-10205"/>
+<text text-anchor="middle" x="97" y="-10190.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vh2vb_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_cb_in -->
-<g id="call~~graph~~CallGraph_node413" class="node">
-<title>proc~io_read_cb_in</title>
-<g id="a_call~~graph~~CallGraph_node413"><a xlink:href=".././proc/io_read_cb_in.html" xlink:title="io_read_cb_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="843.5,-3101 763.5,-3101 763.5,-3077 843.5,-3077 843.5,-3101"/>
-<text text-anchor="middle" x="803.5" y="-3086.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_cb_in</text>
-</a>
+<!-- interface~helio_coord_vh2vb_pl&#45;&gt;proc~helio_coord_vh2vb_pl -->
+<g id="call~~graph~~CallGraph_edge376" class="edge">
+<title>interface~helio_coord_vh2vb_pl&#45;&gt;proc~helio_coord_vh2vb_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.53,-10193C186.72,-10193 225.45,-10193 258.11,-10193"/>
+<polygon fill="#000000" stroke="#000000" points="258.48,-10196.5 268.48,-10193 258.48,-10189.5 258.48,-10196.5"/>
 </g>
+<!-- proc~helio_coord_vh2vb_tp -->
+<g id="call~~graph~~CallGraph_node421" class="node">
+<title>proc~helio_coord_vh2vb_tp</title>
+<g id="a_call~~graph~~CallGraph_node421"><a xlink:href=".././proc/helio_coord_vh2vb_tp.html" xlink:title="helio_coord_vh2vb_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="386,-10457 268,-10457 268,-10433 386,-10433 386,-10457"/>
+<text text-anchor="middle" x="327" y="-10442.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vh2vb_tp</text>
+</a>
 </g>
-<!-- proc~io_read_cb_in&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge392" class="edge">
-<title>proc~io_read_cb_in&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M843.63,-3089.71C863.85,-3091.8 887.98,-3097.15 906,-3110 989.14,-3169.32 1033.82,-3290.59 1049.24,-3340.15"/>
-<polygon fill="#000000" stroke="#000000" points="1045.92,-3341.29 1052.16,-3349.85 1052.62,-3339.27 1045.92,-3341.29"/>
 </g>
-<!-- proc~helio_drift_body&#45;&gt;drift_all -->
-<g id="call~~graph~~CallGraph_edge393" class="edge">
-<title>proc~helio_drift_body&#45;&gt;drift_all</title>
-<path fill="none" stroke="#000000" d="M847.65,-1735C896.05,-1735 973.71,-1735 1019.15,-1735"/>
-<polygon fill="#000000" stroke="#000000" points="1019.42,-1738.5 1029.42,-1735 1019.42,-1731.5 1019.42,-1738.5"/>
+<!-- interface~helio_coord_vh2vb_tp -->
+<g id="call~~graph~~CallGraph_node422" class="node">
+<title>interface~helio_coord_vh2vb_tp</title>
+<g id="a_call~~graph~~CallGraph_node422"><a xlink:href=".././interface/helio_coord_vh2vb_tp.html" xlink:title="helio_coord_vh2vb_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="156,-10457 38,-10457 38,-10433 156,-10433 156,-10457"/>
+<text text-anchor="middle" x="97" y="-10442.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord_vh2vb_tp</text>
+</a>
 </g>
-<!-- proc~helio_drift_pl&#45;&gt;interface~helio_drift_body -->
-<g id="call~~graph~~CallGraph_edge394" class="edge">
-<title>proc~helio_drift_pl&#45;&gt;interface~helio_drift_body</title>
-<path fill="none" stroke="#000000" d="M363.72,-1703.66C402.24,-1709.76 463.98,-1719.55 508.23,-1726.56"/>
-<polygon fill="#000000" stroke="#000000" points="507.81,-1730.04 518.24,-1728.14 508.91,-1723.12 507.81,-1730.04"/>
 </g>
-<!-- proc~helio_drift_tp&#45;&gt;interface~helio_drift_body -->
-<g id="call~~graph~~CallGraph_edge395" class="edge">
-<title>proc~helio_drift_tp&#45;&gt;interface~helio_drift_body</title>
-<path fill="none" stroke="#000000" d="M364.23,-1739.22C402.77,-1738.4 464.14,-1737.08 508.2,-1736.14"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-1739.64 518.44,-1735.92 508.36,-1732.64 508.51,-1739.64"/>
+<!-- interface~helio_coord_vh2vb_tp&#45;&gt;proc~helio_coord_vh2vb_tp -->
+<g id="call~~graph~~CallGraph_edge377" class="edge">
+<title>interface~helio_coord_vh2vb_tp&#45;&gt;proc~helio_coord_vh2vb_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-10445C187.08,-10445 225.33,-10445 257.7,-10445"/>
+<polygon fill="#000000" stroke="#000000" points="257.98,-10448.5 267.98,-10445 257.98,-10441.5 257.98,-10448.5"/>
 </g>
-<!-- interface~operator(.cross.) -->
+<!-- proc~symba_collision_check_pltpenc -->
 <g id="call~~graph~~CallGraph_node423" class="node">
-<title>interface~operator(.cross.)</title>
-<g id="a_call~~graph~~CallGraph_node423"><a xlink:href=".././interface/operator%28.cross.%29.html" xlink:title="operator(.cross.)">
-<polygon fill="#a7506f" stroke="#a7506f" points="143,-10749 51,-10749 51,-10725 143,-10725 143,-10749"/>
-<text text-anchor="middle" x="97" y="-10734.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator(.cross.)</text>
+<title>proc~symba_collision_check_pltpenc</title>
+<g id="a_call~~graph~~CallGraph_node423"><a xlink:href=".././proc/symba_collision_check_pltpenc.html" xlink:title="symba_collision_check_pltpenc">
+<polygon fill="#d9534f" stroke="#d9534f" points="408,-7166 246,-7166 246,-7142 408,-7142 408,-7166"/>
+<text text-anchor="middle" x="327" y="-7151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_pltpenc</text>
 </a>
 </g>
 </g>
-<!-- interface~operator(.mag.) -->
-<g id="call~~graph~~CallGraph_node424" class="node">
-<title>interface~operator(.mag.)</title>
-<g id="a_call~~graph~~CallGraph_node424"><a xlink:href=".././interface/operator%28.mag.%29.html" xlink:title="operator(.mag.)">
-<polygon fill="#a7506f" stroke="#a7506f" points="141,-10791 53,-10791 53,-10767 141,-10767 141,-10791"/>
-<text text-anchor="middle" x="97" y="-10776.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator(.mag.)</text>
+<!-- proc~symba_collision_check_one -->
+<g id="call~~graph~~CallGraph_node433" class="node">
+<title>proc~symba_collision_check_one</title>
+<g id="a_call~~graph~~CallGraph_node433"><a xlink:href=".././proc/symba_collision_check_one.html" xlink:title="symba_collision_check_one">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="628.5,-7166 483.5,-7166 483.5,-7142 628.5,-7142 628.5,-7166"/>
+<text text-anchor="middle" x="556" y="-7151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_one</text>
 </a>
 </g>
 </g>
-<!-- proc~io_conservation_report -->
-<g id="call~~graph~~CallGraph_node425" class="node">
-<title>proc~io_conservation_report</title>
-<g id="a_call~~graph~~CallGraph_node425"><a xlink:href=".././proc/io_conservation_report.html" xlink:title="io_conservation_report">
-<polygon fill="#d9534f" stroke="#d9534f" points="388,-10833 266,-10833 266,-10809 388,-10809 388,-10833"/>
-<text text-anchor="middle" x="327" y="-10818.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_conservation_report</text>
-</a>
-</g>
+<!-- proc~symba_collision_check_pltpenc&#45;&gt;proc~symba_collision_check_one -->
+<g id="call~~graph~~CallGraph_edge380" class="edge">
+<title>proc~symba_collision_check_pltpenc&#45;&gt;proc~symba_collision_check_one</title>
+<path fill="none" stroke="#000000" d="M408.03,-7154C429.09,-7154 451.84,-7154 473.01,-7154"/>
+<polygon fill="#000000" stroke="#000000" points="473.25,-7157.5 483.25,-7154 473.25,-7150.5 473.25,-7157.5"/>
 </g>
-<!-- lorbit_orig -->
-<g id="call~~graph~~CallGraph_node561" class="node">
-<title>lorbit_orig</title>
-<polygon fill="#777777" stroke="#777777" points="592.5,-10896 532.5,-10896 532.5,-10872 592.5,-10872 592.5,-10896"/>
-<text text-anchor="middle" x="562.5" y="-10881.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lorbit_orig</text>
+<!-- proc~symba_collision_check_pltpenc&#45;&gt;ind2 -->
+<g id="call~~graph~~CallGraph_edge378" class="edge">
+<title>proc~symba_collision_check_pltpenc&#45;&gt;ind2</title>
+<path fill="none" stroke="#000000" d="M405.19,-7166.14C411.77,-7168.58 418.14,-7171.5 424,-7175 445.1,-7187.61 438.91,-7204.36 460,-7217 477.64,-7227.57 500,-7232.84 518.59,-7235.45"/>
+<polygon fill="#000000" stroke="#000000" points="518.41,-7238.96 528.76,-7236.68 519.25,-7232.01 518.41,-7238.96"/>
 </g>
-<!-- proc~io_conservation_report&#45;&gt;lorbit_orig -->
-<g id="call~~graph~~CallGraph_edge398" class="edge">
-<title>proc~io_conservation_report&#45;&gt;lorbit_orig</title>
-<path fill="none" stroke="#000000" d="M362.45,-10833.05C388.92,-10842.04 426.5,-10854.23 460,-10863 480.42,-10868.34 503.43,-10873.2 522.37,-10876.89"/>
-<polygon fill="#000000" stroke="#000000" points="521.96,-10880.38 532.44,-10878.82 523.28,-10873.5 521.96,-10880.38"/>
+<!-- proc~symba_collision_check_pltpenc&#45;&gt;ind1 -->
+<g id="call~~graph~~CallGraph_edge379" class="edge">
+<title>proc~symba_collision_check_pltpenc&#45;&gt;ind1</title>
+<path fill="none" stroke="#000000" d="M393.05,-7166.04C434.01,-7173.61 485.34,-7183.11 519.1,-7189.36"/>
+<polygon fill="#000000" stroke="#000000" points="518.51,-7192.81 528.98,-7191.19 519.78,-7185.92 518.51,-7192.81"/>
 </g>
-<!-- ltot_orig -->
-<g id="call~~graph~~CallGraph_node582" class="node">
-<title>ltot_orig</title>
-<polygon fill="#777777" stroke="#777777" points="589.5,-10854 535.5,-10854 535.5,-10830 589.5,-10830 589.5,-10854"/>
-<text text-anchor="middle" x="562.5" y="-10839.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ltot_orig</text>
+<!-- interface~helio_drift_body -->
+<g id="call~~graph~~CallGraph_node424" class="node">
+<title>interface~helio_drift_body</title>
+<g id="a_call~~graph~~CallGraph_node424"><a xlink:href=".././interface/helio_drift_body.html" xlink:title="helio_drift_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="1054.5,-5509 966.5,-5509 966.5,-5485 1054.5,-5485 1054.5,-5509"/>
+<text text-anchor="middle" x="1010.5" y="-5494.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_body</text>
+</a>
 </g>
-<!-- proc~io_conservation_report&#45;&gt;ltot_orig -->
-<g id="call~~graph~~CallGraph_edge397" class="edge">
-<title>proc~io_conservation_report&#45;&gt;ltot_orig</title>
-<path fill="none" stroke="#000000" d="M388.13,-10826.41C431.42,-10830.3 488.42,-10835.43 525.02,-10838.72"/>
-<polygon fill="#000000" stroke="#000000" points="524.95,-10842.23 535.22,-10839.64 525.58,-10835.26 524.95,-10842.23"/>
 </g>
-<!-- lspin_orig -->
-<g id="call~~graph~~CallGraph_node603" class="node">
-<title>lspin_orig</title>
-<polygon fill="#777777" stroke="#777777" points="591.5,-10812 533.5,-10812 533.5,-10788 591.5,-10788 591.5,-10812"/>
-<text text-anchor="middle" x="562.5" y="-10797.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lspin_orig</text>
+<!-- interface~helio_drift_body&#45;&gt;proc~helio_drift_body -->
+<g id="call~~graph~~CallGraph_edge381" class="edge">
+<title>interface~helio_drift_body&#45;&gt;proc~helio_drift_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1054.5,-5497C1094.57,-5497 1154.42,-5497 1197.44,-5497"/>
+<polygon fill="#000000" stroke="#000000" points="1197.44,-5500.5 1207.44,-5497 1197.44,-5493.5 1197.44,-5500.5"/>
 </g>
-<!-- proc~io_conservation_report&#45;&gt;lspin_orig -->
-<g id="call~~graph~~CallGraph_edge396" class="edge">
-<title>proc~io_conservation_report&#45;&gt;lspin_orig</title>
-<path fill="none" stroke="#000000" d="M388.13,-10815.59C430.69,-10811.76 486.48,-10806.75 523.13,-10803.45"/>
-<polygon fill="#000000" stroke="#000000" points="523.74,-10806.91 533.39,-10802.53 523.12,-10799.94 523.74,-10806.91"/>
+<!-- proc~util_fill_body&#45;&gt;interface~util_fill~2 -->
+<g id="call~~graph~~CallGraph_edge382" class="edge">
+<title>proc~util_fill_body&#45;&gt;interface~util_fill~2</title>
+<path fill="none" stroke="#000000" d="M815.7,-3279C858.26,-3279 930.06,-3279 973.29,-3279"/>
+<polygon fill="#000000" stroke="#000000" points="973.37,-3282.5 983.37,-3279 973.37,-3275.5 973.37,-3282.5"/>
 </g>
-<!-- lescape -->
-<g id="call~~graph~~CallGraph_node614" class="node">
-<title>lescape</title>
-<polygon fill="#777777" stroke="#777777" points="589.5,-10770 535.5,-10770 535.5,-10746 589.5,-10746 589.5,-10770"/>
-<text text-anchor="middle" x="562.5" y="-10755.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lescape</text>
+<!-- interface~helio_drift_pl -->
+<g id="call~~graph~~CallGraph_node426" class="node">
+<title>interface~helio_drift_pl</title>
+<g id="a_call~~graph~~CallGraph_node426"><a xlink:href=".././interface/helio_drift_pl.html" xlink:title="helio_drift_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="592.5,-5530 519.5,-5530 519.5,-5506 592.5,-5506 592.5,-5530"/>
+<text text-anchor="middle" x="556" y="-5515.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_pl</text>
+</a>
 </g>
-<!-- proc~io_conservation_report&#45;&gt;lescape -->
-<g id="call~~graph~~CallGraph_edge399" class="edge">
-<title>proc~io_conservation_report&#45;&gt;lescape</title>
-<path fill="none" stroke="#000000" d="M362.45,-10808.95C388.92,-10799.96 426.5,-10787.77 460,-10779 481.54,-10773.36 505.98,-10768.27 525.47,-10764.51"/>
-<polygon fill="#000000" stroke="#000000" points="526.29,-10767.92 535.46,-10762.61 524.99,-10761.04 526.29,-10767.92"/>
 </g>
-<!-- interface~whm_coord_h2j_pl -->
-<g id="call~~graph~~CallGraph_node426" class="node">
-<title>interface~whm_coord_h2j_pl</title>
-<g id="a_call~~graph~~CallGraph_node426"><a xlink:href=".././interface/whm_coord_h2j_pl.html" xlink:title="whm_coord_h2j_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="148.5,-6130 45.5,-6130 45.5,-6106 148.5,-6106 148.5,-6130"/>
-<text text-anchor="middle" x="97" y="-6115.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_h2j_pl</text>
+<!-- proc~helio_drift_pl -->
+<g id="call~~graph~~CallGraph_node440" class="node">
+<title>proc~helio_drift_pl</title>
+<g id="a_call~~graph~~CallGraph_node440"><a xlink:href=".././proc/helio_drift_pl.html" xlink:title="helio_drift_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="816.5,-5530 743.5,-5530 743.5,-5506 816.5,-5506 816.5,-5530"/>
+<text text-anchor="middle" x="780" y="-5515.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_coord_h2j_pl&#45;&gt;proc~whm_coord_h2j_pl -->
-<g id="call~~graph~~CallGraph_edge400" class="edge">
-<title>interface~whm_coord_h2j_pl&#45;&gt;proc~whm_coord_h2j_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.6,-6118C183.02,-6118 228.74,-6118 265.14,-6118"/>
-<polygon fill="#000000" stroke="#000000" points="265.15,-6121.5 275.15,-6118 265.15,-6114.5 265.15,-6121.5"/>
+<!-- interface~helio_drift_pl&#45;&gt;proc~helio_drift_pl -->
+<g id="call~~graph~~CallGraph_edge383" class="edge">
+<title>interface~helio_drift_pl&#45;&gt;proc~helio_drift_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M592.67,-5518C630.86,-5518 691.58,-5518 733.26,-5518"/>
+<polygon fill="#000000" stroke="#000000" points="733.42,-5521.5 743.42,-5518 733.42,-5514.5 733.42,-5521.5"/>
 </g>
-<!-- interface~whm_coord_j2h_pl -->
+<!-- interface~helio_drift_tp -->
 <g id="call~~graph~~CallGraph_node427" class="node">
-<title>interface~whm_coord_j2h_pl</title>
-<g id="a_call~~graph~~CallGraph_node427"><a xlink:href=".././interface/whm_coord_j2h_pl.html" xlink:title="whm_coord_j2h_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="148.5,-6172 45.5,-6172 45.5,-6148 148.5,-6148 148.5,-6172"/>
-<text text-anchor="middle" x="97" y="-6157.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_j2h_pl</text>
+<title>interface~helio_drift_tp</title>
+<g id="a_call~~graph~~CallGraph_node427"><a xlink:href=".././interface/helio_drift_tp.html" xlink:title="helio_drift_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="593,-5488 519,-5488 519,-5464 593,-5464 593,-5488"/>
+<text text-anchor="middle" x="556" y="-5473.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_coord_j2h_pl&#45;&gt;proc~whm_coord_j2h_pl -->
-<g id="call~~graph~~CallGraph_edge401" class="edge">
-<title>interface~whm_coord_j2h_pl&#45;&gt;proc~whm_coord_j2h_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.6,-6160C183.02,-6160 228.74,-6160 265.14,-6160"/>
-<polygon fill="#000000" stroke="#000000" points="265.15,-6163.5 275.15,-6160 265.15,-6156.5 265.15,-6163.5"/>
+<!-- proc~helio_drift_tp -->
+<g id="call~~graph~~CallGraph_node442" class="node">
+<title>proc~helio_drift_tp</title>
+<g id="a_call~~graph~~CallGraph_node442"><a xlink:href=".././proc/helio_drift_tp.html" xlink:title="helio_drift_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="817,-5488 743,-5488 743,-5464 817,-5464 817,-5488"/>
+<text text-anchor="middle" x="780" y="-5473.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_tp</text>
+</a>
 </g>
-<!-- interface~whm_coord_vh2vj_pl -->
+</g>
+<!-- interface~helio_drift_tp&#45;&gt;proc~helio_drift_tp -->
+<g id="call~~graph~~CallGraph_edge384" class="edge">
+<title>interface~helio_drift_tp&#45;&gt;proc~helio_drift_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M593.16,-5476C631.22,-5476 691.25,-5476 732.73,-5476"/>
+<polygon fill="#000000" stroke="#000000" points="732.85,-5479.5 742.85,-5476 732.85,-5472.5 732.85,-5479.5"/>
+</g>
+<!-- interface~helio_drift_linear_pl -->
 <g id="call~~graph~~CallGraph_node428" class="node">
-<title>interface~whm_coord_vh2vj_pl</title>
-<g id="a_call~~graph~~CallGraph_node428"><a xlink:href=".././interface/whm_coord_vh2vj_pl.html" xlink:title="whm_coord_vh2vj_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="153.5,-6088 40.5,-6088 40.5,-6064 153.5,-6064 153.5,-6088"/>
-<text text-anchor="middle" x="97" y="-6073.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord_vh2vj_pl</text>
+<title>interface~helio_drift_linear_pl</title>
+<g id="a_call~~graph~~CallGraph_node428"><a xlink:href=".././interface/helio_drift_linear_pl.html" xlink:title="helio_drift_linear_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="150,-10499 44,-10499 44,-10475 150,-10475 150,-10499"/>
+<text text-anchor="middle" x="97" y="-10484.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_linear_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_coord_vh2vj_pl&#45;&gt;proc~whm_coord_vh2vj_pl -->
-<g id="call~~graph~~CallGraph_edge402" class="edge">
-<title>interface~whm_coord_vh2vj_pl&#45;&gt;proc~whm_coord_vh2vj_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.78,-6076C185.91,-6076 226.49,-6076 260.19,-6076"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-6079.5 270.41,-6076 260.41,-6072.5 260.41,-6079.5"/>
+<!-- proc~helio_drift_linear_pl -->
+<g id="call~~graph~~CallGraph_node451" class="node">
+<title>proc~helio_drift_linear_pl</title>
+<g id="a_call~~graph~~CallGraph_node451"><a xlink:href=".././proc/helio_drift_linear_pl.html" xlink:title="helio_drift_linear_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="380,-10499 274,-10499 274,-10475 380,-10475 380,-10499"/>
+<text text-anchor="middle" x="327" y="-10484.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_linear_pl</text>
+</a>
 </g>
-<!-- interface~whm_drift_pl -->
+</g>
+<!-- interface~helio_drift_linear_pl&#45;&gt;proc~helio_drift_linear_pl -->
+<g id="call~~graph~~CallGraph_edge385" class="edge">
+<title>interface~helio_drift_linear_pl&#45;&gt;proc~helio_drift_linear_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M150.02,-10487C183.76,-10487 227.89,-10487 263.52,-10487"/>
+<polygon fill="#000000" stroke="#000000" points="263.81,-10490.5 273.81,-10487 263.81,-10483.5 263.81,-10490.5"/>
+</g>
+<!-- interface~helio_drift_linear_tp -->
 <g id="call~~graph~~CallGraph_node429" class="node">
-<title>interface~whm_drift_pl</title>
-<g id="a_call~~graph~~CallGraph_node429"><a xlink:href=".././interface/whm_drift_pl.html" xlink:title="whm_drift_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="599,-1705 526,-1705 526,-1681 599,-1681 599,-1705"/>
-<text text-anchor="middle" x="562.5" y="-1690.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift_pl</text>
+<title>interface~helio_drift_linear_tp</title>
+<g id="a_call~~graph~~CallGraph_node429"><a xlink:href=".././interface/helio_drift_linear_tp.html" xlink:title="helio_drift_linear_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="150,-10541 44,-10541 44,-10517 150,-10517 150,-10541"/>
+<text text-anchor="middle" x="97" y="-10526.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_linear_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_drift_pl&#45;&gt;proc~whm_drift_pl -->
-<g id="call~~graph~~CallGraph_edge403" class="edge">
-<title>interface~whm_drift_pl&#45;&gt;proc~whm_drift_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.02,-1693C640.88,-1693 710.55,-1693 756.5,-1693"/>
-<polygon fill="#000000" stroke="#000000" points="756.78,-1696.5 766.78,-1693 756.78,-1689.5 756.78,-1696.5"/>
+<!-- proc~helio_drift_linear_tp -->
+<g id="call~~graph~~CallGraph_node455" class="node">
+<title>proc~helio_drift_linear_tp</title>
+<g id="a_call~~graph~~CallGraph_node455"><a xlink:href=".././proc/helio_drift_linear_tp.html" xlink:title="helio_drift_linear_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="380,-10541 274,-10541 274,-10517 380,-10517 380,-10541"/>
+<text text-anchor="middle" x="327" y="-10526.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_linear_tp</text>
+</a>
 </g>
-<!-- interface~whm_kick_getacch_pl -->
+</g>
+<!-- interface~helio_drift_linear_tp&#45;&gt;proc~helio_drift_linear_tp -->
+<g id="call~~graph~~CallGraph_edge386" class="edge">
+<title>interface~helio_drift_linear_tp&#45;&gt;proc~helio_drift_linear_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M150.02,-10529C183.76,-10529 227.89,-10529 263.52,-10529"/>
+<polygon fill="#000000" stroke="#000000" points="263.81,-10532.5 273.81,-10529 263.81,-10525.5 263.81,-10532.5"/>
+</g>
+<!-- proc~util_fill_arr_logical -->
 <g id="call~~graph~~CallGraph_node430" class="node">
-<title>interface~whm_kick_getacch_pl</title>
-<g id="a_call~~graph~~CallGraph_node430"><a xlink:href=".././interface/whm_kick_getacch_pl.html" xlink:title="whm_kick_getacch_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-4502 38.5,-4502 38.5,-4478 155.5,-4478 155.5,-4502"/>
-<text text-anchor="middle" x="97" y="-4487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_pl</text>
+<title>proc~util_fill_arr_logical</title>
+<g id="a_call~~graph~~CallGraph_node430"><a xlink:href=".././proc/util_fill_arr_logical.html" xlink:title="util_fill_arr_logical">
+<polygon fill="#d9534f" stroke="#d9534f" points="145.5,-10583 48.5,-10583 48.5,-10559 145.5,-10559 145.5,-10583"/>
+<text text-anchor="middle" x="97" y="-10568.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_arr_logical</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_edge404" class="edge">
-<title>interface~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.53,-4490C186.72,-4490 225.45,-4490 258.11,-4490"/>
-<polygon fill="#000000" stroke="#000000" points="258.48,-4493.5 268.48,-4490 258.48,-4486.5 258.48,-4493.5"/>
+<!-- idx_arr -->
+<g id="call~~graph~~CallGraph_node579" class="node">
+<title>idx_arr</title>
+<polygon fill="#777777" stroke="#777777" points="1796.5,-4341 1742.5,-4341 1742.5,-4317 1796.5,-4317 1796.5,-4341"/>
+<text text-anchor="middle" x="1769.5" y="-4326.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx_arr</text>
 </g>
-<!-- interface~whm_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_node431" class="node">
-<title>interface~whm_kick_getacch_tp</title>
-<g id="a_call~~graph~~CallGraph_node431"><a xlink:href=".././interface/whm_kick_getacch_tp.html" xlink:title="whm_kick_getacch_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="156,-4544 38,-4544 38,-4520 156,-4520 156,-4544"/>
-<text text-anchor="middle" x="97" y="-4529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_tp</text>
-</a>
+<!-- proc~symba_collision_consolidate_familes&#45;&gt;idx_arr -->
+<g id="call~~graph~~CallGraph_edge387" class="edge">
+<title>proc~symba_collision_consolidate_familes&#45;&gt;idx_arr</title>
+<path fill="none" stroke="#000000" d="M1580.87,-4358.96C1630.4,-4351.05 1693.01,-4341.06 1731.91,-4334.84"/>
+<polygon fill="#000000" stroke="#000000" points="1732.9,-4338.23 1742.22,-4333.2 1731.79,-4331.32 1732.9,-4338.23"/>
 </g>
+<!-- id_arr -->
+<g id="call~~graph~~CallGraph_node620" class="node">
+<title>id_arr</title>
+<polygon fill="#777777" stroke="#777777" points="1796.5,-4383 1742.5,-4383 1742.5,-4359 1796.5,-4359 1796.5,-4383"/>
+<text text-anchor="middle" x="1769.5" y="-4368.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">id_arr</text>
 </g>
-<!-- interface~whm_kick_getacch_tp&#45;&gt;proc~whm_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_edge405" class="edge">
-<title>interface~whm_kick_getacch_tp&#45;&gt;proc~whm_kick_getacch_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-4532C187.08,-4532 225.33,-4532 257.7,-4532"/>
-<polygon fill="#000000" stroke="#000000" points="257.98,-4535.5 267.98,-4532 257.98,-4528.5 257.98,-4535.5"/>
+<!-- proc~symba_collision_consolidate_familes&#45;&gt;id_arr -->
+<g id="call~~graph~~CallGraph_edge388" class="edge">
+<title>proc~symba_collision_consolidate_familes&#45;&gt;id_arr</title>
+<path fill="none" stroke="#000000" d="M1598.22,-4371C1644.46,-4371 1697.73,-4371 1732.19,-4371"/>
+<polygon fill="#000000" stroke="#000000" points="1732.26,-4374.5 1742.26,-4371 1732.26,-4367.5 1732.26,-4374.5"/>
 </g>
-<!-- proc~io_dump_swiftest -->
+<!-- interface~helio_gr_kick_getacch_pl -->
 <g id="call~~graph~~CallGraph_node432" class="node">
-<title>proc~io_dump_swiftest</title>
-<g id="a_call~~graph~~CallGraph_node432"><a xlink:href=".././proc/io_dump_swiftest.html" xlink:title="io_dump_swiftest">
-<polygon fill="#d9534f" stroke="#d9534f" points="851,-3059 756,-3059 756,-3035 851,-3035 851,-3059"/>
-<text text-anchor="middle" x="803.5" y="-3044.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_swiftest</text>
+<title>interface~helio_gr_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node432"><a xlink:href=".././interface/helio_gr_kick_getacch_pl.html" xlink:title="helio_gr_kick_getacch_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="163.5,-5866 30.5,-5866 30.5,-5842 163.5,-5842 163.5,-5866"/>
+<text text-anchor="middle" x="97" y="-5851.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~io_dump_swiftest&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge406" class="edge">
-<title>proc~io_dump_swiftest&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M851.05,-3048.05C869.7,-3050.52 890.41,-3056.1 906,-3068 999.22,-3139.19 1038.98,-3284.69 1051.14,-3340"/>
-<polygon fill="#000000" stroke="#000000" points="1047.73,-3340.75 1053.22,-3349.81 1054.57,-3339.3 1047.73,-3340.75"/>
-</g>
-<!-- interface~whm_kick_vh_pl -->
-<g id="call~~graph~~CallGraph_node433" class="node">
-<title>interface~whm_kick_vh_pl</title>
-<g id="a_call~~graph~~CallGraph_node433"><a xlink:href=".././interface/whm_kick_vh_pl.html" xlink:title="whm_kick_vh_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-8420 51.5,-8420 51.5,-8396 142.5,-8396 142.5,-8420"/>
-<text text-anchor="middle" x="97" y="-8405.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_vh_pl</text>
+<!-- proc~helio_gr_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node496" class="node">
+<title>proc~helio_gr_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node496"><a xlink:href=".././proc/helio_gr_kick_getacch_pl.html" xlink:title="helio_gr_kick_getacch_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="393.5,-5866 260.5,-5866 260.5,-5842 393.5,-5842 393.5,-5866"/>
+<text text-anchor="middle" x="327" y="-5851.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_kick_vh_pl&#45;&gt;proc~whm_kick_vh_pl -->
-<g id="call~~graph~~CallGraph_edge407" class="edge">
-<title>interface~whm_kick_vh_pl&#45;&gt;proc~whm_kick_vh_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.5,-8408C179.26,-8408 231.61,-8408 270.99,-8408"/>
-<polygon fill="#000000" stroke="#000000" points="271.22,-8411.5 281.22,-8408 271.22,-8404.5 271.22,-8411.5"/>
+<!-- interface~helio_gr_kick_getacch_pl&#45;&gt;proc~helio_gr_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_edge389" class="edge">
+<title>interface~helio_gr_kick_getacch_pl&#45;&gt;proc~helio_gr_kick_getacch_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.64,-5854C190.71,-5854 222.24,-5854 250.27,-5854"/>
+<polygon fill="#000000" stroke="#000000" points="250.43,-5857.5 260.43,-5854 250.43,-5850.5 250.43,-5857.5"/>
 </g>
-<!-- proc~io_dump_param -->
+<!-- proc~symba_collision_check_one&#45;&gt;orbel_xv2aeq -->
+<g id="call~~graph~~CallGraph_edge390" class="edge">
+<title>proc~symba_collision_check_one&#45;&gt;orbel_xv2aeq</title>
+<path fill="none" stroke="#000000" d="M628.77,-7147.21C662.31,-7144.04 701.34,-7140.35 731.21,-7137.52"/>
+<polygon fill="#000000" stroke="#000000" points="731.74,-7140.99 741.37,-7136.56 731.08,-7134.02 731.74,-7140.99"/>
+</g>
+<!-- interface~helio_gr_kick_getacch_tp -->
 <g id="call~~graph~~CallGraph_node434" class="node">
-<title>proc~io_dump_param</title>
-<g id="a_call~~graph~~CallGraph_node434"><a xlink:href=".././proc/io_dump_param.html" xlink:title="io_dump_param">
-<polygon fill="#d9534f" stroke="#d9534f" points="849,-3479 758,-3479 758,-3455 849,-3455 849,-3479"/>
-<text text-anchor="middle" x="803.5" y="-3464.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_param</text>
+<title>interface~helio_gr_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node434"><a xlink:href=".././interface/helio_gr_kick_getacch_tp.html" xlink:title="helio_gr_kick_getacch_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="163.5,-5824 30.5,-5824 30.5,-5800 163.5,-5800 163.5,-5824"/>
+<text text-anchor="middle" x="97" y="-5809.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_kick_getacch_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~io_dump_param&#45;&gt;interface~util_exit -->
-<g id="call~~graph~~CallGraph_edge408" class="edge">
-<title>proc~io_dump_param&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M849.05,-3460.84C867.08,-3457.57 887.88,-3452.78 906,-3446 951.79,-3428.87 1000.36,-3399.15 1029.29,-3380.04"/>
-<polygon fill="#000000" stroke="#000000" points="1031.6,-3382.71 1037.97,-3374.24 1027.71,-3376.89 1031.6,-3382.71"/>
+<!-- proc~helio_gr_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node504" class="node">
+<title>proc~helio_gr_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node504"><a xlink:href=".././proc/helio_gr_kick_getacch_tp.html" xlink:title="helio_gr_kick_getacch_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="393.5,-5824 260.5,-5824 260.5,-5800 393.5,-5800 393.5,-5824"/>
+<text text-anchor="middle" x="327" y="-5809.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_kick_getacch_tp</text>
+</a>
 </g>
-<!-- interface~whm_kick_vh_tp -->
+</g>
+<!-- interface~helio_gr_kick_getacch_tp&#45;&gt;proc~helio_gr_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_edge391" class="edge">
+<title>interface~helio_gr_kick_getacch_tp&#45;&gt;proc~helio_gr_kick_getacch_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.64,-5812C190.71,-5812 222.24,-5812 250.27,-5812"/>
+<polygon fill="#000000" stroke="#000000" points="250.43,-5815.5 260.43,-5812 250.43,-5808.5 250.43,-5815.5"/>
+</g>
+<!-- interface~helio_gr_p4_pl -->
 <g id="call~~graph~~CallGraph_node435" class="node">
-<title>interface~whm_kick_vh_tp</title>
-<g id="a_call~~graph~~CallGraph_node435"><a xlink:href=".././interface/whm_kick_vh_tp.html" xlink:title="whm_kick_vh_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-8336 51.5,-8336 51.5,-8312 142.5,-8312 142.5,-8336"/>
-<text text-anchor="middle" x="97" y="-8321.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_vh_tp</text>
+<title>interface~helio_gr_p4_pl</title>
+<g id="a_call~~graph~~CallGraph_node435"><a xlink:href=".././interface/helio_gr_p4_pl.html" xlink:title="helio_gr_p4_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="138.5,-6034 55.5,-6034 55.5,-6010 138.5,-6010 138.5,-6034"/>
+<text text-anchor="middle" x="97" y="-6019.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_p4_pl</text>
+</a>
+</g>
+</g>
+<!-- proc~helio_gr_p4_pl -->
+<g id="call~~graph~~CallGraph_node505" class="node">
+<title>proc~helio_gr_p4_pl</title>
+<g id="a_call~~graph~~CallGraph_node505"><a xlink:href=".././proc/helio_gr_p4_pl.html" xlink:title="helio_gr_p4_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="368.5,-6034 285.5,-6034 285.5,-6010 368.5,-6010 368.5,-6034"/>
+<text text-anchor="middle" x="327" y="-6019.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_p4_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_kick_vh_tp&#45;&gt;proc~whm_kick_vh_tp -->
-<g id="call~~graph~~CallGraph_edge409" class="edge">
-<title>interface~whm_kick_vh_tp&#45;&gt;proc~whm_kick_vh_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.5,-8324C179.26,-8324 231.61,-8324 270.99,-8324"/>
-<polygon fill="#000000" stroke="#000000" points="271.22,-8327.5 281.22,-8324 271.22,-8320.5 271.22,-8327.5"/>
+<!-- interface~helio_gr_p4_pl&#45;&gt;proc~helio_gr_p4_pl -->
+<g id="call~~graph~~CallGraph_edge392" class="edge">
+<title>interface~helio_gr_p4_pl&#45;&gt;proc~helio_gr_p4_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.76,-6022C176.9,-6022 234.01,-6022 275.12,-6022"/>
+<polygon fill="#000000" stroke="#000000" points="275.21,-6025.5 285.21,-6022 275.21,-6018.5 275.21,-6025.5"/>
+</g>
+<!-- interface~helio_gr_p4_tp -->
+<g id="call~~graph~~CallGraph_node436" class="node">
+<title>interface~helio_gr_p4_tp</title>
+<g id="a_call~~graph~~CallGraph_node436"><a xlink:href=".././interface/helio_gr_p4_tp.html" xlink:title="helio_gr_p4_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="139,-5992 55,-5992 55,-5968 139,-5968 139,-5992"/>
+<text text-anchor="middle" x="97" y="-5977.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_p4_tp</text>
+</a>
+</g>
 </g>
-<!-- interface~whm_gr_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_node436" class="node">
-<title>interface~whm_gr_kick_getacch_pl</title>
-<g id="a_call~~graph~~CallGraph_node436"><a xlink:href=".././interface/whm_gr_kick_getacch_pl.html" xlink:title="whm_gr_kick_getacch_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="163.5,-3895 30.5,-3895 30.5,-3871 163.5,-3871 163.5,-3895"/>
-<text text-anchor="middle" x="97" y="-3880.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_kick_getacch_pl</text>
+<!-- proc~helio_gr_p4_tp -->
+<g id="call~~graph~~CallGraph_node507" class="node">
+<title>proc~helio_gr_p4_tp</title>
+<g id="a_call~~graph~~CallGraph_node507"><a xlink:href=".././proc/helio_gr_p4_tp.html" xlink:title="helio_gr_p4_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="369,-5992 285,-5992 285,-5968 369,-5968 369,-5992"/>
+<text text-anchor="middle" x="327" y="-5977.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr_p4_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_gr_kick_getacch_pl&#45;&gt;proc~whm_gr_kick_getacch_pl -->
-<g id="call~~graph~~CallGraph_edge410" class="edge">
-<title>interface~whm_gr_kick_getacch_pl&#45;&gt;proc~whm_gr_kick_getacch_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.64,-3883C190.71,-3883 222.24,-3883 250.27,-3883"/>
-<polygon fill="#000000" stroke="#000000" points="250.43,-3886.5 260.43,-3883 250.43,-3879.5 250.43,-3886.5"/>
+<!-- interface~helio_gr_p4_tp&#45;&gt;proc~helio_gr_p4_tp -->
+<g id="call~~graph~~CallGraph_edge393" class="edge">
+<title>interface~helio_gr_p4_tp&#45;&gt;proc~helio_gr_p4_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M139.03,-5980C177.08,-5980 233.86,-5980 274.86,-5980"/>
+<polygon fill="#000000" stroke="#000000" points="274.92,-5983.5 284.92,-5980 274.92,-5976.5 274.92,-5983.5"/>
 </g>
-<!-- interface~whm_gr_kick_getacch_tp -->
+<!-- interface~helio_kick_getacch_pl -->
 <g id="call~~graph~~CallGraph_node437" class="node">
-<title>interface~whm_gr_kick_getacch_tp</title>
-<g id="a_call~~graph~~CallGraph_node437"><a xlink:href=".././interface/whm_gr_kick_getacch_tp.html" xlink:title="whm_gr_kick_getacch_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="163.5,-4021 30.5,-4021 30.5,-3997 163.5,-3997 163.5,-4021"/>
-<text text-anchor="middle" x="97" y="-4006.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_kick_getacch_tp</text>
+<title>interface~helio_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node437"><a xlink:href=".././interface/helio_kick_getacch_pl.html" xlink:title="helio_kick_getacch_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="155.5,-10625 38.5,-10625 38.5,-10601 155.5,-10601 155.5,-10625"/>
+<text text-anchor="middle" x="97" y="-10610.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_gr_kick_getacch_tp&#45;&gt;proc~whm_gr_kick_getacch_tp -->
-<g id="call~~graph~~CallGraph_edge411" class="edge">
-<title>interface~whm_gr_kick_getacch_tp&#45;&gt;proc~whm_gr_kick_getacch_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.64,-4009C190.71,-4009 222.24,-4009 250.27,-4009"/>
-<polygon fill="#000000" stroke="#000000" points="250.43,-4012.5 260.43,-4009 250.43,-4005.5 250.43,-4012.5"/>
-</g>
-<!-- interface~whm_gr_p4_pl -->
-<g id="call~~graph~~CallGraph_node438" class="node">
-<title>interface~whm_gr_p4_pl</title>
-<g id="a_call~~graph~~CallGraph_node438"><a xlink:href=".././interface/whm_gr_p4_pl.html" xlink:title="whm_gr_p4_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="138.5,-4250 55.5,-4250 55.5,-4226 138.5,-4226 138.5,-4250"/>
-<text text-anchor="middle" x="97" y="-4235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_p4_pl</text>
+<!-- proc~helio_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_node503" class="node">
+<title>proc~helio_kick_getacch_pl</title>
+<g id="a_call~~graph~~CallGraph_node503"><a xlink:href=".././proc/helio_kick_getacch_pl.html" xlink:title="helio_kick_getacch_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="385.5,-10625 268.5,-10625 268.5,-10601 385.5,-10601 385.5,-10625"/>
+<text text-anchor="middle" x="327" y="-10610.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_gr_p4_pl&#45;&gt;proc~whm_gr_p4_pl -->
-<g id="call~~graph~~CallGraph_edge412" class="edge">
-<title>interface~whm_gr_p4_pl&#45;&gt;proc~whm_gr_p4_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.76,-4238C176.9,-4238 234.01,-4238 275.12,-4238"/>
-<polygon fill="#000000" stroke="#000000" points="275.21,-4241.5 285.21,-4238 275.21,-4234.5 275.21,-4241.5"/>
+<!-- interface~helio_kick_getacch_pl&#45;&gt;proc~helio_kick_getacch_pl -->
+<g id="call~~graph~~CallGraph_edge394" class="edge">
+<title>interface~helio_kick_getacch_pl&#45;&gt;proc~helio_kick_getacch_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.53,-10613C186.72,-10613 225.45,-10613 258.11,-10613"/>
+<polygon fill="#000000" stroke="#000000" points="258.48,-10616.5 268.48,-10613 258.48,-10609.5 258.48,-10616.5"/>
 </g>
-<!-- interface~whm_gr_p4_tp -->
+<!-- proc~util_fill_pl&#45;&gt;interface~util_fill_body -->
+<g id="call~~graph~~CallGraph_edge395" class="edge">
+<title>proc~util_fill_pl&#45;&gt;interface~util_fill_body</title>
+<path fill="none" stroke="#000000" d="M355.38,-3291.31C393.86,-3288.94 464.38,-3284.59 510.46,-3281.75"/>
+<polygon fill="#000000" stroke="#000000" points="510.71,-3285.24 520.48,-3281.13 510.28,-3278.25 510.71,-3285.24"/>
+</g>
+<!-- proc~util_fill_pl&#45;&gt;interface~util_fill~2 -->
+<g id="call~~graph~~CallGraph_edge396" class="edge">
+<title>proc~util_fill_pl&#45;&gt;interface~util_fill~2</title>
+<path fill="none" stroke="#000000" d="M355.22,-3295.05C434.86,-3300.69 674.22,-3315.02 872,-3300 906.59,-3297.37 945.65,-3291.08 973.28,-3286.07"/>
+<polygon fill="#000000" stroke="#000000" points="974.08,-3289.48 983.28,-3284.22 972.81,-3282.6 974.08,-3289.48"/>
+</g>
+<!-- interface~helio_kick_getacch_tp -->
 <g id="call~~graph~~CallGraph_node439" class="node">
-<title>interface~whm_gr_p4_tp</title>
-<g id="a_call~~graph~~CallGraph_node439"><a xlink:href=".././interface/whm_gr_p4_tp.html" xlink:title="whm_gr_p4_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="139,-4376 55,-4376 55,-4352 139,-4352 139,-4376"/>
-<text text-anchor="middle" x="97" y="-4361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr_p4_tp</text>
+<title>interface~helio_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node439"><a xlink:href=".././interface/helio_kick_getacch_tp.html" xlink:title="helio_kick_getacch_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="156,-10667 38,-10667 38,-10643 156,-10643 156,-10667"/>
+<text text-anchor="middle" x="97" y="-10652.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_gr_p4_tp&#45;&gt;proc~whm_gr_p4_tp -->
-<g id="call~~graph~~CallGraph_edge413" class="edge">
-<title>interface~whm_gr_p4_tp&#45;&gt;proc~whm_gr_p4_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M139.03,-4364C177.08,-4364 233.86,-4364 274.86,-4364"/>
-<polygon fill="#000000" stroke="#000000" points="274.92,-4367.5 284.92,-4364 274.92,-4360.5 274.92,-4367.5"/>
-</g>
-<!-- interface~whm_setup_pl -->
-<g id="call~~graph~~CallGraph_node440" class="node">
-<title>interface~whm_setup_pl</title>
-<g id="a_call~~graph~~CallGraph_node440"><a xlink:href=".././interface/whm_setup_pl.html" xlink:title="whm_setup_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="603.5,-4964 521.5,-4964 521.5,-4940 603.5,-4940 603.5,-4964"/>
-<text text-anchor="middle" x="562.5" y="-4949.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_pl</text>
+<!-- proc~helio_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node526" class="node">
+<title>proc~helio_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node526"><a xlink:href=".././proc/helio_kick_getacch_tp.html" xlink:title="helio_kick_getacch_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="386,-10667 268,-10667 268,-10643 386,-10643 386,-10667"/>
+<text text-anchor="middle" x="327" y="-10652.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_getacch_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_setup_pl&#45;&gt;proc~whm_setup_pl -->
-<g id="call~~graph~~CallGraph_edge414" class="edge">
-<title>interface~whm_setup_pl&#45;&gt;proc~whm_setup_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M603.5,-4952C644.35,-4952 707.87,-4952 752.12,-4952"/>
-<polygon fill="#000000" stroke="#000000" points="752.37,-4955.5 762.37,-4952 752.37,-4948.5 752.37,-4955.5"/>
+<!-- interface~helio_kick_getacch_tp&#45;&gt;proc~helio_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_edge397" class="edge">
+<title>interface~helio_kick_getacch_tp&#45;&gt;proc~helio_kick_getacch_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-10655C187.08,-10655 225.33,-10655 257.7,-10655"/>
+<polygon fill="#000000" stroke="#000000" points="257.98,-10658.5 267.98,-10655 257.98,-10651.5 257.98,-10658.5"/>
 </g>
-<!-- interface~whm_setup_initialize_system -->
+<!-- proc~helio_drift_pl&#45;&gt;interface~helio_drift_body -->
+<g id="call~~graph~~CallGraph_edge398" class="edge">
+<title>proc~helio_drift_pl&#45;&gt;interface~helio_drift_body</title>
+<path fill="none" stroke="#000000" d="M816.7,-5514.72C854.12,-5511.28 913.32,-5505.84 956.26,-5501.89"/>
+<polygon fill="#000000" stroke="#000000" points="956.61,-5505.38 966.25,-5500.97 955.97,-5498.4 956.61,-5505.38"/>
+</g>
+<!-- interface~helio_kick_vb_pl -->
 <g id="call~~graph~~CallGraph_node441" class="node">
-<title>interface~whm_setup_initialize_system</title>
-<g id="a_call~~graph~~CallGraph_node441"><a xlink:href=".././interface/whm_setup_initialize_system.html" xlink:title="whm_setup_initialize_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="172.5,-8985 21.5,-8985 21.5,-8961 172.5,-8961 172.5,-8985"/>
-<text text-anchor="middle" x="97" y="-8970.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_initialize_system</text>
+<title>interface~helio_kick_vb_pl</title>
+<g id="a_call~~graph~~CallGraph_node441"><a xlink:href=".././interface/helio_kick_vb_pl.html" xlink:title="helio_kick_vb_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-10709 51.5,-10709 51.5,-10685 142.5,-10685 142.5,-10709"/>
+<text text-anchor="middle" x="97" y="-10694.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_vb_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_setup_initialize_system&#45;&gt;proc~whm_setup_initialize_system -->
-<g id="call~~graph~~CallGraph_edge415" class="edge">
-<title>interface~whm_setup_initialize_system&#45;&gt;proc~whm_setup_initialize_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M172.66,-8973C194.5,-8973 218.55,-8973 240.99,-8973"/>
-<polygon fill="#000000" stroke="#000000" points="241.18,-8976.5 251.18,-8973 241.18,-8969.5 241.18,-8976.5"/>
-</g>
-<!-- interface~whm_step_pl -->
-<g id="call~~graph~~CallGraph_node442" class="node">
-<title>interface~whm_step_pl</title>
-<g id="a_call~~graph~~CallGraph_node442"><a xlink:href=".././interface/whm_step_pl.html" xlink:title="whm_step_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="135,-4418 59,-4418 59,-4394 135,-4394 135,-4418"/>
-<text text-anchor="middle" x="97" y="-4403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_pl</text>
+<!-- proc~helio_kick_vb_pl -->
+<g id="call~~graph~~CallGraph_node523" class="node">
+<title>proc~helio_kick_vb_pl</title>
+<g id="a_call~~graph~~CallGraph_node523"><a xlink:href=".././proc/helio_kick_vb_pl.html" xlink:title="helio_kick_vb_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-10709 281.5,-10709 281.5,-10685 372.5,-10685 372.5,-10709"/>
+<text text-anchor="middle" x="327" y="-10694.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_vb_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_step_pl&#45;&gt;proc~whm_step_pl -->
-<g id="call~~graph~~CallGraph_edge416" class="edge">
-<title>interface~whm_step_pl&#45;&gt;proc~whm_step_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.14,-4406C174.31,-4406 236.14,-4406 278.75,-4406"/>
-<polygon fill="#000000" stroke="#000000" points="278.88,-4409.5 288.88,-4406 278.88,-4402.5 278.88,-4409.5"/>
+<!-- interface~helio_kick_vb_pl&#45;&gt;proc~helio_kick_vb_pl -->
+<g id="call~~graph~~CallGraph_edge399" class="edge">
+<title>interface~helio_kick_vb_pl&#45;&gt;proc~helio_kick_vb_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.5,-10697C179.26,-10697 231.61,-10697 270.99,-10697"/>
+<polygon fill="#000000" stroke="#000000" points="271.22,-10700.5 281.22,-10697 271.22,-10693.5 271.22,-10700.5"/>
 </g>
-<!-- interface~whm_step_system -->
+<!-- proc~helio_drift_tp&#45;&gt;interface~helio_drift_body -->
+<g id="call~~graph~~CallGraph_edge400" class="edge">
+<title>proc~helio_drift_tp&#45;&gt;interface~helio_drift_body</title>
+<path fill="none" stroke="#000000" d="M817.21,-5479.33C854.64,-5482.77 913.49,-5488.18 956.23,-5492.1"/>
+<polygon fill="#000000" stroke="#000000" points="956.17,-5495.61 966.45,-5493.04 956.81,-5488.64 956.17,-5495.61"/>
+</g>
+<!-- interface~helio_kick_vb_tp -->
 <g id="call~~graph~~CallGraph_node443" class="node">
-<title>interface~whm_step_system</title>
-<g id="a_call~~graph~~CallGraph_node443"><a xlink:href=".././interface/whm_step_system.html" xlink:title="whm_step_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="147.5,-4166 46.5,-4166 46.5,-4142 147.5,-4142 147.5,-4166"/>
-<text text-anchor="middle" x="97" y="-4151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_system</text>
+<title>interface~helio_kick_vb_tp</title>
+<g id="a_call~~graph~~CallGraph_node443"><a xlink:href=".././interface/helio_kick_vb_tp.html" xlink:title="helio_kick_vb_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-10751 51.5,-10751 51.5,-10727 142.5,-10727 142.5,-10751"/>
+<text text-anchor="middle" x="97" y="-10736.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_vb_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_step_system&#45;&gt;proc~whm_step_system -->
-<g id="call~~graph~~CallGraph_edge417" class="edge">
-<title>interface~whm_step_system&#45;&gt;proc~whm_step_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.75,-4154C182.61,-4154 229.35,-4154 266.23,-4154"/>
-<polygon fill="#000000" stroke="#000000" points="266.35,-4157.5 276.35,-4154 266.35,-4150.5 266.35,-4157.5"/>
-</g>
-<!-- interface~whm_step_tp -->
-<g id="call~~graph~~CallGraph_node444" class="node">
-<title>interface~whm_step_tp</title>
-<g id="a_call~~graph~~CallGraph_node444"><a xlink:href=".././interface/whm_step_tp.html" xlink:title="whm_step_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="135,-4460 59,-4460 59,-4436 135,-4436 135,-4460"/>
-<text text-anchor="middle" x="97" y="-4445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_tp</text>
+<!-- proc~helio_kick_vb_tp -->
+<g id="call~~graph~~CallGraph_node529" class="node">
+<title>proc~helio_kick_vb_tp</title>
+<g id="a_call~~graph~~CallGraph_node529"><a xlink:href=".././proc/helio_kick_vb_tp.html" xlink:title="helio_kick_vb_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="372.5,-10751 281.5,-10751 281.5,-10727 372.5,-10727 372.5,-10751"/>
+<text text-anchor="middle" x="327" y="-10736.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick_vb_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_step_tp&#45;&gt;proc~whm_step_tp -->
-<g id="call~~graph~~CallGraph_edge418" class="edge">
-<title>interface~whm_step_tp&#45;&gt;proc~whm_step_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.14,-4448C174.31,-4448 236.14,-4448 278.75,-4448"/>
-<polygon fill="#000000" stroke="#000000" points="278.88,-4451.5 288.88,-4448 278.88,-4444.5 278.88,-4451.5"/>
+<!-- interface~helio_kick_vb_tp&#45;&gt;proc~helio_kick_vb_tp -->
+<g id="call~~graph~~CallGraph_edge401" class="edge">
+<title>interface~helio_kick_vb_tp&#45;&gt;proc~helio_kick_vb_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.5,-10739C179.26,-10739 231.61,-10739 270.99,-10739"/>
+<polygon fill="#000000" stroke="#000000" points="271.22,-10742.5 281.22,-10739 271.22,-10735.5 271.22,-10742.5"/>
 </g>
-<!-- interface~whm_util_append_pl -->
-<g id="call~~graph~~CallGraph_node445" class="node">
-<title>interface~whm_util_append_pl</title>
-<g id="a_call~~graph~~CallGraph_node445"><a xlink:href=".././interface/whm_util_append_pl.html" xlink:title="whm_util_append_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="618,-1495 507,-1495 507,-1471 618,-1471 618,-1495"/>
-<text text-anchor="middle" x="562.5" y="-1480.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_append_pl</text>
+<!-- interface~helio_step_pl -->
+<g id="call~~graph~~CallGraph_node444" class="node">
+<title>interface~helio_step_pl</title>
+<g id="a_call~~graph~~CallGraph_node444"><a xlink:href=".././interface/helio_step_pl.html" xlink:title="helio_step_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="135,-10793 59,-10793 59,-10769 135,-10769 135,-10793"/>
+<text text-anchor="middle" x="97" y="-10778.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_util_append_pl&#45;&gt;proc~whm_util_append_pl -->
-<g id="call~~graph~~CallGraph_edge419" class="edge">
-<title>interface~whm_util_append_pl&#45;&gt;proc~whm_util_append_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M618.03,-1483C653.54,-1483 700.05,-1483 737.49,-1483"/>
-<polygon fill="#000000" stroke="#000000" points="737.79,-1486.5 747.79,-1483 737.79,-1479.5 737.79,-1486.5"/>
-</g>
-<!-- interface~whm_util_spill_pl -->
-<g id="call~~graph~~CallGraph_node446" class="node">
-<title>interface~whm_util_spill_pl</title>
-<g id="a_call~~graph~~CallGraph_node446"><a xlink:href=".././interface/whm_util_spill_pl.html" xlink:title="whm_util_spill_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="609,-877 516,-877 516,-853 609,-853 609,-877"/>
-<text text-anchor="middle" x="562.5" y="-862.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_spill_pl</text>
+<!-- proc~helio_step_pl -->
+<g id="call~~graph~~CallGraph_node497" class="node">
+<title>proc~helio_step_pl</title>
+<g id="a_call~~graph~~CallGraph_node497"><a xlink:href=".././proc/helio_step_pl.html" xlink:title="helio_step_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="365,-10793 289,-10793 289,-10769 365,-10769 365,-10793"/>
+<text text-anchor="middle" x="327" y="-10778.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_util_spill_pl&#45;&gt;proc~whm_util_spill_pl -->
-<g id="call~~graph~~CallGraph_edge420" class="edge">
-<title>interface~whm_util_spill_pl&#45;&gt;proc~whm_util_spill_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.02,-865C648.18,-865 704.82,-865 746.7,-865"/>
-<polygon fill="#000000" stroke="#000000" points="746.75,-868.5 756.75,-865 746.75,-861.5 746.75,-868.5"/>
+<!-- interface~helio_step_pl&#45;&gt;proc~helio_step_pl -->
+<g id="call~~graph~~CallGraph_edge402" class="edge">
+<title>interface~helio_step_pl&#45;&gt;proc~helio_step_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.14,-10781C174.31,-10781 236.14,-10781 278.75,-10781"/>
+<polygon fill="#000000" stroke="#000000" points="278.88,-10784.5 288.88,-10781 278.88,-10777.5 278.88,-10784.5"/>
 </g>
-<!-- interface~whm_util_fill_pl -->
-<g id="call~~graph~~CallGraph_node447" class="node">
-<title>interface~whm_util_fill_pl</title>
-<g id="a_call~~graph~~CallGraph_node447"><a xlink:href=".././interface/whm_util_fill_pl.html" xlink:title="whm_util_fill_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="605,-1087 520,-1087 520,-1063 605,-1063 605,-1087"/>
-<text text-anchor="middle" x="562.5" y="-1072.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_fill_pl</text>
+<!-- interface~helio_step_system -->
+<g id="call~~graph~~CallGraph_node445" class="node">
+<title>interface~helio_step_system</title>
+<g id="a_call~~graph~~CallGraph_node445"><a xlink:href=".././interface/helio_step_system.html" xlink:title="helio_step_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="606.5,-5113 505.5,-5113 505.5,-5089 606.5,-5089 606.5,-5113"/>
+<text text-anchor="middle" x="556" y="-5098.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_system</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_util_fill_pl&#45;&gt;proc~whm_util_fill_pl -->
-<g id="call~~graph~~CallGraph_edge421" class="edge">
-<title>interface~whm_util_fill_pl&#45;&gt;proc~whm_util_fill_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.13,-1075C645.62,-1075 707.23,-1075 750.83,-1075"/>
-<polygon fill="#000000" stroke="#000000" points="750.95,-1078.5 760.95,-1075 750.95,-1071.5 750.95,-1078.5"/>
-</g>
-<!-- interface~whm_util_resize_pl -->
-<g id="call~~graph~~CallGraph_node448" class="node">
-<title>interface~whm_util_resize_pl</title>
-<g id="a_call~~graph~~CallGraph_node448"><a xlink:href=".././interface/whm_util_resize_pl.html" xlink:title="whm_util_resize_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="614,-5489 511,-5489 511,-5465 614,-5465 614,-5489"/>
-<text text-anchor="middle" x="562.5" y="-5474.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_resize_pl</text>
+<!-- proc~helio_step_system -->
+<g id="call~~graph~~CallGraph_node493" class="node">
+<title>proc~helio_step_system</title>
+<g id="a_call~~graph~~CallGraph_node493"><a xlink:href=".././proc/helio_step_system.html" xlink:title="helio_step_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="830.5,-5113 729.5,-5113 729.5,-5089 830.5,-5089 830.5,-5113"/>
+<text text-anchor="middle" x="780" y="-5098.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_system</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_util_resize_pl&#45;&gt;proc~whm_util_resize_pl -->
-<g id="call~~graph~~CallGraph_edge422" class="edge">
-<title>interface~whm_util_resize_pl&#45;&gt;proc~whm_util_resize_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.19,-5477C651.5,-5477 702.39,-5477 741.86,-5477"/>
-<polygon fill="#000000" stroke="#000000" points="741.89,-5480.5 751.89,-5477 741.89,-5473.5 741.89,-5480.5"/>
+<!-- interface~helio_step_system&#45;&gt;proc~helio_step_system -->
+<g id="call~~graph~~CallGraph_edge403" class="edge">
+<title>interface~helio_step_system&#45;&gt;proc~helio_step_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.54,-5101C639.81,-5101 683.83,-5101 719.06,-5101"/>
+<polygon fill="#000000" stroke="#000000" points="719.22,-5104.5 729.22,-5101 719.22,-5097.5 719.22,-5104.5"/>
 </g>
-<!-- interface~whm_util_set_ir3j -->
-<g id="call~~graph~~CallGraph_node449" class="node">
-<title>interface~whm_util_set_ir3j</title>
-<g id="a_call~~graph~~CallGraph_node449"><a xlink:href=".././interface/whm_util_set_ir3j.html" xlink:title="whm_util_set_ir3j">
-<polygon fill="#a7506f" stroke="#a7506f" points="144.5,-9237 49.5,-9237 49.5,-9213 144.5,-9213 144.5,-9237"/>
-<text text-anchor="middle" x="97" y="-9222.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_set_ir3j</text>
+<!-- interface~helio_step_tp -->
+<g id="call~~graph~~CallGraph_node446" class="node">
+<title>interface~helio_step_tp</title>
+<g id="a_call~~graph~~CallGraph_node446"><a xlink:href=".././interface/helio_step_tp.html" xlink:title="helio_step_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="135,-10835 59,-10835 59,-10811 135,-10811 135,-10835"/>
+<text text-anchor="middle" x="97" y="-10820.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_util_set_ir3j&#45;&gt;proc~whm_util_set_ir3j -->
-<g id="call~~graph~~CallGraph_edge423" class="edge">
-<title>interface~whm_util_set_ir3j&#45;&gt;proc~whm_util_set_ir3j</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.69,-9225C180.65,-9225 230.54,-9225 268.89,-9225"/>
-<polygon fill="#000000" stroke="#000000" points="269.37,-9228.5 279.37,-9225 269.37,-9221.5 269.37,-9228.5"/>
-</g>
-<!-- interface~whm_util_set_mu_eta_pl -->
-<g id="call~~graph~~CallGraph_node450" class="node">
-<title>interface~whm_util_set_mu_eta_pl</title>
-<g id="a_call~~graph~~CallGraph_node450"><a xlink:href=".././interface/whm_util_set_mu_eta_pl.html" xlink:title="whm_util_set_mu_eta_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="162.5,-9069 31.5,-9069 31.5,-9045 162.5,-9045 162.5,-9069"/>
-<text text-anchor="middle" x="97" y="-9054.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_set_mu_eta_pl</text>
+<!-- proc~helio_step_tp -->
+<g id="call~~graph~~CallGraph_node498" class="node">
+<title>proc~helio_step_tp</title>
+<g id="a_call~~graph~~CallGraph_node498"><a xlink:href=".././proc/helio_step_tp.html" xlink:title="helio_step_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="365,-10835 289,-10835 289,-10811 365,-10811 365,-10835"/>
+<text text-anchor="middle" x="327" y="-10820.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_util_set_mu_eta_pl&#45;&gt;proc~whm_util_set_mu_eta_pl -->
-<g id="call~~graph~~CallGraph_edge424" class="edge">
-<title>interface~whm_util_set_mu_eta_pl&#45;&gt;proc~whm_util_set_mu_eta_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M162.73,-9057C190.16,-9057 222.32,-9057 250.8,-9057"/>
-<polygon fill="#000000" stroke="#000000" points="251.11,-9060.5 261.11,-9057 251.11,-9053.5 251.11,-9060.5"/>
-</g>
-<!-- interface~whm_util_sort_pl -->
-<g id="call~~graph~~CallGraph_node451" class="node">
-<title>interface~whm_util_sort_pl</title>
-<g id="a_call~~graph~~CallGraph_node451"><a xlink:href=".././interface/whm_util_sort_pl.html" xlink:title="whm_util_sort_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="143.5,-9321 50.5,-9321 50.5,-9297 143.5,-9297 143.5,-9321"/>
-<text text-anchor="middle" x="97" y="-9306.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_sort_pl</text>
-</a>
+<!-- interface~helio_step_tp&#45;&gt;proc~helio_step_tp -->
+<g id="call~~graph~~CallGraph_edge404" class="edge">
+<title>interface~helio_step_tp&#45;&gt;proc~helio_step_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.14,-10823C174.31,-10823 236.14,-10823 278.75,-10823"/>
+<polygon fill="#000000" stroke="#000000" points="278.88,-10826.5 288.88,-10823 278.88,-10819.5 278.88,-10826.5"/>
 </g>
+<!-- proc~util_fill_tp&#45;&gt;interface~util_fill_body -->
+<g id="call~~graph~~CallGraph_edge405" class="edge">
+<title>proc~util_fill_tp&#45;&gt;interface~util_fill_body</title>
+<path fill="none" stroke="#000000" d="M355.83,-3248.29C394.36,-3254.23 464.36,-3265.02 510.27,-3272.1"/>
+<polygon fill="#000000" stroke="#000000" points="509.83,-3275.58 520.25,-3273.64 510.9,-3268.66 509.83,-3275.58"/>
 </g>
-<!-- interface~whm_util_sort_pl&#45;&gt;proc~whm_util_sort_pl -->
-<g id="call~~graph~~CallGraph_edge425" class="edge">
-<title>interface~whm_util_sort_pl&#45;&gt;proc~whm_util_sort_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M143.59,-9309C180.09,-9309 231.45,-9309 270.37,-9309"/>
-<polygon fill="#000000" stroke="#000000" points="270.49,-9312.5 280.49,-9309 270.49,-9305.5 270.49,-9312.5"/>
+<!-- proc~util_fill_tp&#45;&gt;interface~util_fill~2 -->
+<g id="call~~graph~~CallGraph_edge406" class="edge">
+<title>proc~util_fill_tp&#45;&gt;interface~util_fill~2</title>
+<path fill="none" stroke="#000000" d="M355.52,-3243.49C435.49,-3242.26 674.62,-3240.46 872,-3258 906.55,-3261.07 945.62,-3267.31 973.26,-3272.19"/>
+<polygon fill="#000000" stroke="#000000" points="972.8,-3275.66 983.26,-3273.99 974.04,-3268.77 972.8,-3275.66"/>
 </g>
-<!-- interface~whm_util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_node452" class="node">
-<title>interface~whm_util_sort_rearrange_pl</title>
-<g id="a_call~~graph~~CallGraph_node452"><a xlink:href=".././interface/whm_util_sort_rearrange_pl.html" xlink:title="whm_util_sort_rearrange_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="170,-6802 24,-6802 24,-6778 170,-6778 170,-6802"/>
-<text text-anchor="middle" x="97" y="-6787.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_sort_rearrange_pl</text>
+<!-- proc~discard_tp -->
+<g id="call~~graph~~CallGraph_node448" class="node">
+<title>proc~discard_tp</title>
+<g id="a_call~~graph~~CallGraph_node448"><a xlink:href=".././proc/discard_tp.html" xlink:title="discard_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="358,-10877 296,-10877 296,-10853 358,-10853 358,-10877"/>
+<text text-anchor="middle" x="327" y="-10862.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~whm_util_sort_rearrange_pl&#45;&gt;proc~whm_util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_edge426" class="edge">
-<title>interface~whm_util_sort_rearrange_pl&#45;&gt;proc~whm_util_sort_rearrange_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.14,-6790C193.54,-6790 219.68,-6790 243.76,-6790"/>
-<polygon fill="#000000" stroke="#000000" points="243.94,-6793.5 253.94,-6790 243.94,-6786.5 243.94,-6793.5"/>
+<!-- proc~discard_pl -->
+<g id="call~~graph~~CallGraph_node449" class="node">
+<title>proc~discard_pl</title>
+<g id="a_call~~graph~~CallGraph_node449"><a xlink:href=".././proc/discard_pl.html" xlink:title="discard_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="357.5,-10919 296.5,-10919 296.5,-10895 357.5,-10895 357.5,-10919"/>
+<text text-anchor="middle" x="327" y="-10904.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_pl</text>
+</a>
 </g>
-<!-- interface~util_coord_b2h_pl -->
-<g id="call~~graph~~CallGraph_node453" class="node">
-<title>interface~util_coord_b2h_pl</title>
-<g id="a_call~~graph~~CallGraph_node453"><a xlink:href=".././interface/util_coord_b2h_pl.html" xlink:title="util_coord_b2h_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="145.5,-6298 48.5,-6298 48.5,-6274 145.5,-6274 145.5,-6298"/>
-<text text-anchor="middle" x="97" y="-6283.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_b2h_pl</text>
+</g>
+<!-- proc~discard_cb_tp -->
+<g id="call~~graph~~CallGraph_node450" class="node">
+<title>proc~discard_cb_tp</title>
+<g id="a_call~~graph~~CallGraph_node450"><a xlink:href=".././proc/discard_cb_tp.html" xlink:title="discard_cb_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="136.5,-10961 57.5,-10961 57.5,-10937 136.5,-10937 136.5,-10961"/>
+<text text-anchor="middle" x="97" y="-10946.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_cb_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~util_coord_b2h_pl&#45;&gt;proc~util_coord_b2h_pl -->
-<g id="call~~graph~~CallGraph_edge427" class="edge">
-<title>interface~util_coord_b2h_pl&#45;&gt;proc~util_coord_b2h_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.52,-6286C181.07,-6286 229.87,-6286 267.77,-6286"/>
-<polygon fill="#000000" stroke="#000000" points="268.15,-6289.5 278.15,-6286 268.15,-6282.5 268.15,-6289.5"/>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge -->
+<g id="call~~graph~~CallGraph_edge410" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge</title>
+<path fill="none" stroke="#000000" d="M1354.23,-4413C1371.61,-4413 1389.62,-4413 1406.86,-4413"/>
+<polygon fill="#000000" stroke="#000000" points="1406.92,-4416.5 1416.92,-4413 1406.92,-4409.5 1406.92,-4416.5"/>
 </g>
-<!-- proc~symba_util_peri_pl&#45;&gt;orbel_xv2aeq -->
-<g id="call~~graph~~CallGraph_edge428" class="edge">
-<title>proc~symba_util_peri_pl&#45;&gt;orbel_xv2aeq</title>
-<path fill="none" stroke="#000000" d="M613.6,-503.6C655.24,-499.94 714.09,-494.77 754.99,-491.17"/>
-<polygon fill="#000000" stroke="#000000" points="755.33,-494.66 764.99,-490.3 754.72,-487.69 755.33,-494.66"/>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_familes -->
+<g id="call~~graph~~CallGraph_edge408" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_familes</title>
+<path fill="none" stroke="#000000" d="M1324.43,-4400.96C1354.75,-4395.89 1390.22,-4389.96 1421.55,-4384.71"/>
+<polygon fill="#000000" stroke="#000000" points="1422.28,-4388.14 1431.56,-4383.04 1421.12,-4381.24 1422.28,-4388.14"/>
 </g>
-<!-- interface~util_coord_b2h_tp -->
-<g id="call~~graph~~CallGraph_node455" class="node">
-<title>interface~util_coord_b2h_tp</title>
-<g id="a_call~~graph~~CallGraph_node455"><a xlink:href=".././interface/util_coord_b2h_tp.html" xlink:title="util_coord_b2h_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="146,-6382 48,-6382 48,-6358 146,-6358 146,-6382"/>
-<text text-anchor="middle" x="97" y="-6367.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_b2h_tp</text>
+<!-- interface~symba_fragmentation_casedisruption -->
+<g id="call~~graph~~CallGraph_node548" class="node">
+<title>interface~symba_fragmentation_casedisruption</title>
+<g id="a_call~~graph~~CallGraph_node548"><a xlink:href=".././interface/symba_fragmentation_casedisruption.html" xlink:title="symba_fragmentation_casedisruption">
+<polygon fill="#a7506f" stroke="#a7506f" points="1600,-4467 1409,-4467 1409,-4443 1600,-4443 1600,-4467"/>
+<text text-anchor="middle" x="1504.5" y="-4452.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casedisruption</text>
 </a>
 </g>
 </g>
-<!-- interface~util_coord_b2h_tp&#45;&gt;proc~util_coord_b2h_tp -->
-<g id="call~~graph~~CallGraph_edge429" class="edge">
-<title>interface~util_coord_b2h_tp&#45;&gt;proc~util_coord_b2h_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M146.07,-6370C181.54,-6370 229.98,-6370 267.67,-6370"/>
-<polygon fill="#000000" stroke="#000000" points="267.99,-6373.5 277.99,-6370 267.99,-6366.5 267.99,-6373.5"/>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption -->
+<g id="call~~graph~~CallGraph_edge414" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption</title>
+<path fill="none" stroke="#000000" d="M1324.43,-4425.04C1354.75,-4430.11 1390.22,-4436.04 1421.55,-4441.29"/>
+<polygon fill="#000000" stroke="#000000" points="1421.12,-4444.76 1431.56,-4442.96 1422.28,-4437.86 1421.12,-4444.76"/>
 </g>
-<!-- interface~util_coord_h2b_pl -->
-<g id="call~~graph~~CallGraph_node456" class="node">
-<title>interface~util_coord_h2b_pl</title>
-<g id="a_call~~graph~~CallGraph_node456"><a xlink:href=".././interface/util_coord_h2b_pl.html" xlink:title="util_coord_h2b_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="145.5,-6004 48.5,-6004 48.5,-5980 145.5,-5980 145.5,-6004"/>
-<text text-anchor="middle" x="97" y="-5989.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_h2b_pl</text>
+<!-- interface~symba_fragmentation_casehitandrun -->
+<g id="call~~graph~~CallGraph_node549" class="node">
+<title>interface~symba_fragmentation_casehitandrun</title>
+<g id="a_call~~graph~~CallGraph_node549"><a xlink:href=".././interface/symba_fragmentation_casehitandrun.html" xlink:title="symba_fragmentation_casehitandrun">
+<polygon fill="#a7506f" stroke="#a7506f" points="1599.5,-4551 1409.5,-4551 1409.5,-4527 1599.5,-4527 1599.5,-4551"/>
+<text text-anchor="middle" x="1504.5" y="-4536.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casehitandrun</text>
 </a>
 </g>
 </g>
-<!-- interface~util_coord_h2b_pl&#45;&gt;proc~util_coord_h2b_pl -->
-<g id="call~~graph~~CallGraph_edge430" class="edge">
-<title>interface~util_coord_h2b_pl&#45;&gt;proc~util_coord_h2b_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.52,-5992C181.07,-5992 229.87,-5992 267.77,-5992"/>
-<polygon fill="#000000" stroke="#000000" points="268.15,-5995.5 278.15,-5992 268.15,-5988.5 268.15,-5995.5"/>
-</g>
-<!-- interface~util_coord_h2b_tp -->
-<g id="call~~graph~~CallGraph_node457" class="node">
-<title>interface~util_coord_h2b_tp</title>
-<g id="a_call~~graph~~CallGraph_node457"><a xlink:href=".././interface/util_coord_h2b_tp.html" xlink:title="util_coord_h2b_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="146,-6340 48,-6340 48,-6316 146,-6316 146,-6340"/>
-<text text-anchor="middle" x="97" y="-6325.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord_h2b_tp</text>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun -->
+<g id="call~~graph~~CallGraph_edge412" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun</title>
+<path fill="none" stroke="#000000" d="M1264.1,-4425.02C1286.3,-4447.24 1337.29,-4494.61 1390,-4518 1394.98,-4520.21 1400.18,-4522.19 1405.5,-4523.96"/>
+<polygon fill="#000000" stroke="#000000" points="1404.6,-4527.34 1415.19,-4526.92 1406.65,-4520.65 1404.6,-4527.34"/>
+</g>
+<!-- interface~symba_fragmentation_casesupercatastrophic -->
+<g id="call~~graph~~CallGraph_node551" class="node">
+<title>interface~symba_fragmentation_casesupercatastrophic</title>
+<g id="a_call~~graph~~CallGraph_node551"><a xlink:href=".././interface/symba_fragmentation_casesupercatastrophic.html" xlink:title="symba_fragmentation_casesupercatastrophic">
+<polygon fill="#a7506f" stroke="#a7506f" points="1619,-4509 1390,-4509 1390,-4485 1619,-4485 1619,-4509"/>
+<text text-anchor="middle" x="1504.5" y="-4494.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casesupercatastrophic</text>
 </a>
 </g>
 </g>
-<!-- interface~util_coord_h2b_tp&#45;&gt;proc~util_coord_h2b_tp -->
-<g id="call~~graph~~CallGraph_edge431" class="edge">
-<title>interface~util_coord_h2b_tp&#45;&gt;proc~util_coord_h2b_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M146.07,-6328C181.54,-6328 229.98,-6328 267.67,-6328"/>
-<polygon fill="#000000" stroke="#000000" points="267.99,-6331.5 277.99,-6328 267.99,-6324.5 267.99,-6331.5"/>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casesupercatastrophic -->
+<g id="call~~graph~~CallGraph_edge409" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casesupercatastrophic</title>
+<path fill="none" stroke="#000000" d="M1274.69,-4425.25C1301.32,-4439.45 1347.69,-4462.62 1390,-4476 1397.9,-4478.5 1406.2,-4480.74 1414.58,-4482.73"/>
+<polygon fill="#000000" stroke="#000000" points="1413.89,-4486.17 1424.42,-4484.97 1415.45,-4479.34 1413.89,-4486.17"/>
 </g>
-<!-- interface~util_copy_encounter -->
-<g id="call~~graph~~CallGraph_node458" class="node">
-<title>interface~util_copy_encounter</title>
-<g id="a_call~~graph~~CallGraph_node458"><a xlink:href=".././interface/util_copy_encounter.html" xlink:title="util_copy_encounter">
-<polygon fill="#a7506f" stroke="#a7506f" points="151.5,-5258 42.5,-5258 42.5,-5234 151.5,-5234 151.5,-5258"/>
-<text text-anchor="middle" x="97" y="-5243.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy_encounter</text>
-</a>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge413" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1263.91,-4425.1C1285.89,-4449.27 1333.73,-4506.17 1354,-4564 1418.31,-4747.49 1304.84,-4825.2 1390,-5000 1408.48,-5037.94 1447.08,-5068.88 1474.1,-5087.11"/>
+<polygon fill="#000000" stroke="#000000" points="1472.5,-5090.25 1482.78,-5092.8 1476.34,-5084.39 1472.5,-5090.25"/>
 </g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx2 -->
+<g id="call~~graph~~CallGraph_edge407" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx2</title>
+<path fill="none" stroke="#000000" d="M1319.86,-4400.96C1332.16,-4396.49 1344.2,-4390.38 1354,-4382 1381.8,-4358.24 1360.89,-4330.15 1390,-4308 1411.95,-4291.3 1443.1,-4286.48 1467.22,-4285.6"/>
+<polygon fill="#000000" stroke="#000000" points="1467.47,-4289.1 1477.41,-4285.45 1467.36,-4282.1 1467.47,-4289.1"/>
 </g>
-<!-- interface~util_copy_encounter&#45;&gt;proc~util_copy_encounter -->
-<g id="call~~graph~~CallGraph_edge432" class="edge">
-<title>interface~util_copy_encounter&#45;&gt;proc~util_copy_encounter</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.74,-5246C184.82,-5246 227.38,-5246 262.17,-5246"/>
-<polygon fill="#000000" stroke="#000000" points="262.22,-5249.5 272.22,-5246 262.22,-5242.5 262.22,-5249.5"/>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx1 -->
+<g id="call~~graph~~CallGraph_edge411" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx1</title>
+<path fill="none" stroke="#000000" d="M1307.21,-4400.96C1322.89,-4396.29 1339.62,-4390.07 1354,-4382 1372.67,-4371.52 1370.77,-4359.4 1390,-4350 1414.2,-4338.17 1444.28,-4332.97 1467.39,-4330.7"/>
+<polygon fill="#000000" stroke="#000000" points="1467.8,-4334.18 1477.47,-4329.86 1467.21,-4327.21 1467.8,-4334.18"/>
 </g>
-<!-- interface~util_exit&#45;&gt;proc~util_exit -->
-<g id="call~~graph~~CallGraph_edge433" class="edge">
-<title>interface~util_exit&#45;&gt;proc~util_exit</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1083.68,-3362C1130.94,-3362 1230.58,-3362 1284.32,-3362"/>
-<polygon fill="#000000" stroke="#000000" points="1284.43,-3365.5 1294.43,-3362 1284.43,-3358.5 1284.43,-3365.5"/>
+<!-- proc~symba_collision_encounter_scrub&#45;&gt;idx2 -->
+<g id="call~~graph~~CallGraph_edge415" class="edge">
+<title>proc~symba_collision_encounter_scrub&#45;&gt;idx2</title>
+<path fill="none" stroke="#000000" d="M1338.53,-4294.23C1382.45,-4292.3 1433.56,-4290.07 1467.11,-4288.59"/>
+<polygon fill="#000000" stroke="#000000" points="1467.52,-4292.08 1477.35,-4288.15 1467.21,-4285.09 1467.52,-4292.08"/>
 </g>
-<!-- interface~util_fill_body&#45;&gt;proc~util_fill_body -->
-<g id="call~~graph~~CallGraph_edge434" class="edge">
-<title>interface~util_fill_body&#45;&gt;proc~util_fill_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M598.25,-8850C640.38,-8850 711.46,-8850 757.67,-8850"/>
-<polygon fill="#000000" stroke="#000000" points="757.71,-8853.5 767.71,-8850 757.71,-8846.5 757.71,-8853.5"/>
+<!-- proc~symba_collision_encounter_scrub&#45;&gt;idx1 -->
+<g id="call~~graph~~CallGraph_edge416" class="edge">
+<title>proc~symba_collision_encounter_scrub&#45;&gt;idx1</title>
+<path fill="none" stroke="#000000" d="M1338.53,-4308.63C1382.45,-4314.05 1433.56,-4320.36 1467.11,-4324.51"/>
+<polygon fill="#000000" stroke="#000000" points="1467,-4328.02 1477.35,-4325.77 1467.86,-4321.07 1467,-4328.02"/>
 </g>
-<!-- interface~util_fill_pl -->
-<g id="call~~graph~~CallGraph_node463" class="node">
-<title>interface~util_fill_pl</title>
-<g id="a_call~~graph~~CallGraph_node463"><a xlink:href=".././interface/util_fill_pl.html" xlink:title="util_fill_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="125,-8840 69,-8840 69,-8816 125,-8816 125,-8840"/>
-<text text-anchor="middle" x="97" y="-8825.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
+<!-- proc~util_resize_arr_char_string -->
+<g id="call~~graph~~CallGraph_node454" class="node">
+<title>proc~util_resize_arr_char_string</title>
+<g id="a_call~~graph~~CallGraph_node454"><a xlink:href=".././proc/util_resize_arr_char_string.html" xlink:title="util_resize_arr_char_string">
+<polygon fill="#d9534f" stroke="#d9534f" points="166.5,-11003 27.5,-11003 27.5,-10979 166.5,-10979 166.5,-11003"/>
+<text text-anchor="middle" x="97" y="-10988.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_arr_char_string</text>
 </a>
 </g>
 </g>
-<!-- interface~util_fill_pl&#45;&gt;proc~util_fill_pl -->
-<g id="call~~graph~~CallGraph_edge435" class="edge">
-<title>interface~util_fill_pl&#45;&gt;proc~util_fill_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M125.05,-8828C165.76,-8828 242.89,-8828 288.85,-8828"/>
-<polygon fill="#000000" stroke="#000000" points="288.99,-8831.5 298.99,-8828 288.99,-8824.5 288.99,-8831.5"/>
-</g>
-<!-- interface~util_fill_tp -->
-<g id="call~~graph~~CallGraph_node464" class="node">
-<title>interface~util_fill_tp</title>
-<g id="a_call~~graph~~CallGraph_node464"><a xlink:href=".././interface/util_fill_tp.html" xlink:title="util_fill_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="125.5,-8901 68.5,-8901 68.5,-8877 125.5,-8877 125.5,-8901"/>
-<text text-anchor="middle" x="97" y="-8886.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
+<!-- proc~discard_pl_tp -->
+<g id="call~~graph~~CallGraph_node456" class="node">
+<title>proc~discard_pl_tp</title>
+<g id="a_call~~graph~~CallGraph_node456"><a xlink:href=".././proc/discard_pl_tp.html" xlink:title="discard_pl_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="135,-11045 59,-11045 59,-11021 135,-11021 135,-11045"/>
+<text text-anchor="middle" x="97" y="-11030.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_pl_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~util_fill_tp&#45;&gt;proc~util_fill_tp -->
-<g id="call~~graph~~CallGraph_edge436" class="edge">
-<title>interface~util_fill_tp&#45;&gt;proc~util_fill_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M125.5,-8889C166.16,-8889 242.42,-8889 288.27,-8889"/>
-<polygon fill="#000000" stroke="#000000" points="288.4,-8892.5 298.4,-8889 288.4,-8885.5 288.4,-8892.5"/>
+<!-- proc~util_resize_tp&#45;&gt;interface~util_resize~2 -->
+<g id="call~~graph~~CallGraph_edge417" class="edge">
+<title>proc~util_resize_tp&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M365.24,-3391.14C455.7,-3369.1 692.73,-3322.94 872,-3391 925.81,-3411.43 972.04,-3463.62 994.67,-3492.68"/>
+<polygon fill="#000000" stroke="#000000" points="992.08,-3495.06 1000.92,-3500.9 997.65,-3490.82 992.08,-3495.06"/>
 </g>
-<!-- proc~symba_util_resize_arr_info -->
-<g id="call~~graph~~CallGraph_node465" class="node">
-<title>proc~symba_util_resize_arr_info</title>
-<g id="a_call~~graph~~CallGraph_node465"><a xlink:href=".././proc/symba_util_resize_arr_info.html" xlink:title="symba_util_resize_arr_info">
-<polygon fill="#d9534f" stroke="#d9534f" points="167.5,-10875 26.5,-10875 26.5,-10851 167.5,-10851 167.5,-10875"/>
-<text text-anchor="middle" x="97" y="-10860.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_arr_info</text>
+<!-- proc~util_resize_tp&#45;&gt;interface~util_resize_body -->
+<g id="call~~graph~~CallGraph_edge418" class="edge">
+<title>proc~util_resize_tp&#45;&gt;interface~util_resize_body</title>
+<path fill="none" stroke="#000000" d="M365.23,-3402.8C402.07,-3404.59 458.85,-3407.34 500.71,-3409.37"/>
+<polygon fill="#000000" stroke="#000000" points="500.58,-3412.87 510.74,-3409.86 500.92,-3405.88 500.58,-3412.87"/>
+</g>
+<!-- proc~util_resize_arr_dp -->
+<g id="call~~graph~~CallGraph_node458" class="node">
+<title>proc~util_resize_arr_dp</title>
+<g id="a_call~~graph~~CallGraph_node458"><a xlink:href=".././proc/util_resize_arr_dp.html" xlink:title="util_resize_arr_DP">
+<polygon fill="#d9534f" stroke="#d9534f" points="147,-11087 47,-11087 47,-11063 147,-11063 147,-11087"/>
+<text text-anchor="middle" x="97" y="-11072.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_arr_DP</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_node466" class="node">
-<title>proc~symba_util_sort_rearrange_pl</title>
-<g id="a_call~~graph~~CallGraph_node466"><a xlink:href=".././proc/symba_util_sort_rearrange_pl.html" xlink:title="symba_util_sort_rearrange_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="404.5,-6760 249.5,-6760 249.5,-6736 404.5,-6736 404.5,-6760"/>
-<text text-anchor="middle" x="327" y="-6745.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_rearrange_pl</text>
+<!-- proc~util_resize_arr_dpvec -->
+<g id="call~~graph~~CallGraph_node459" class="node">
+<title>proc~util_resize_arr_dpvec</title>
+<g id="a_call~~graph~~CallGraph_node459"><a xlink:href=".././proc/util_resize_arr_dpvec.html" xlink:title="util_resize_arr_DPvec">
+<polygon fill="#d9534f" stroke="#d9534f" points="155.5,-11129 38.5,-11129 38.5,-11105 155.5,-11105 155.5,-11129"/>
+<text text-anchor="middle" x="97" y="-11114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_arr_DPvec</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_edge437" class="edge">
-<title>proc~symba_util_sort_rearrange_pl&#45;&gt;util_sort_rearrange_pl</title>
-<path fill="none" stroke="#000000" d="M394.91,-6760.04C425.8,-6765.59 462.42,-6772.18 493.44,-6777.76"/>
-<polygon fill="#000000" stroke="#000000" points="492.84,-6781.21 503.3,-6779.53 494.08,-6774.32 492.84,-6781.21"/>
-</g>
-<!-- interface~symba_util_resize_merger -->
-<g id="call~~graph~~CallGraph_node467" class="node">
-<title>interface~symba_util_resize_merger</title>
-<g id="a_call~~graph~~CallGraph_node467"><a xlink:href=".././interface/symba_util_resize_merger.html" xlink:title="symba_util_resize_merger">
-<polygon fill="#a7506f" stroke="#a7506f" points="166.5,-5593 27.5,-5593 27.5,-5569 166.5,-5569 166.5,-5593"/>
-<text text-anchor="middle" x="97" y="-5578.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_merger</text>
+<!-- proc~discard_peri_tp -->
+<g id="call~~graph~~CallGraph_node460" class="node">
+<title>proc~discard_peri_tp</title>
+<g id="a_call~~graph~~CallGraph_node460"><a xlink:href=".././proc/discard_peri_tp.html" xlink:title="discard_peri_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="140,-11171 54,-11171 54,-11147 140,-11147 140,-11171"/>
+<text text-anchor="middle" x="97" y="-11156.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_peri_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_resize_merger -->
-<g id="call~~graph~~CallGraph_node480" class="node">
-<title>proc~symba_util_resize_merger</title>
-<g id="a_call~~graph~~CallGraph_node480"><a xlink:href=".././proc/symba_util_resize_merger.html" xlink:title="symba_util_resize_merger">
-<polygon fill="#d9534f" stroke="#d9534f" points="396.5,-5593 257.5,-5593 257.5,-5569 396.5,-5569 396.5,-5593"/>
-<text text-anchor="middle" x="327" y="-5578.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_merger</text>
+<!-- proc~util_resize_arr_i4b -->
+<g id="call~~graph~~CallGraph_node461" class="node">
+<title>proc~util_resize_arr_i4b</title>
+<g id="a_call~~graph~~CallGraph_node461"><a xlink:href=".././proc/util_resize_arr_i4b.html" xlink:title="util_resize_arr_I4B">
+<polygon fill="#d9534f" stroke="#d9534f" points="148,-11213 46,-11213 46,-11189 148,-11189 148,-11213"/>
+<text text-anchor="middle" x="97" y="-11198.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_arr_I4B</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_resize_merger&#45;&gt;proc~symba_util_resize_merger -->
-<g id="call~~graph~~CallGraph_edge438" class="edge">
-<title>interface~symba_util_resize_merger&#45;&gt;proc~symba_util_resize_merger</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.72,-5581C192.07,-5581 220.98,-5581 247.16,-5581"/>
-<polygon fill="#000000" stroke="#000000" points="247.42,-5584.5 257.42,-5581 247.42,-5577.5 247.42,-5584.5"/>
-</g>
-<!-- interface~symba_util_resize_pl -->
-<g id="call~~graph~~CallGraph_node468" class="node">
-<title>interface~symba_util_resize_pl</title>
-<g id="a_call~~graph~~CallGraph_node468"><a xlink:href=".././interface/symba_util_resize_pl.html" xlink:title="symba_util_resize_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="618.5,-5573 506.5,-5573 506.5,-5549 618.5,-5549 618.5,-5573"/>
-<text text-anchor="middle" x="562.5" y="-5558.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_pl</text>
+<!-- proc~discard_pl_close -->
+<g id="call~~graph~~CallGraph_node462" class="node">
+<title>proc~discard_pl_close</title>
+<g id="a_call~~graph~~CallGraph_node462"><a xlink:href=".././proc/discard_pl_close.html" xlink:title="discard_pl_close">
+<polygon fill="#d9534f" stroke="#d9534f" points="143,-11255 51,-11255 51,-11231 143,-11231 143,-11255"/>
+<text text-anchor="middle" x="97" y="-11240.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_pl_close</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_resize_pl -->
-<g id="call~~graph~~CallGraph_node485" class="node">
-<title>proc~symba_util_resize_pl</title>
-<g id="a_call~~graph~~CallGraph_node485"><a xlink:href=".././proc/symba_util_resize_pl.html" xlink:title="symba_util_resize_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="859.5,-5573 747.5,-5573 747.5,-5549 859.5,-5549 859.5,-5573"/>
-<text text-anchor="middle" x="803.5" y="-5558.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_pl</text>
-</a>
+<!-- ltot_orig -->
+<g id="call~~graph~~CallGraph_node565" class="node">
+<title>ltot_orig</title>
+<polygon fill="#777777" stroke="#777777" points="583,-1112 529,-1112 529,-1088 583,-1088 583,-1112"/>
+<text text-anchor="middle" x="556" y="-1097.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ltot_orig</text>
 </g>
+<!-- proc~io_conservation_report&#45;&gt;ltot_orig -->
+<g id="call~~graph~~CallGraph_edge422" class="edge">
+<title>proc~io_conservation_report&#45;&gt;ltot_orig</title>
+<path fill="none" stroke="#000000" d="M362.76,-1049.01C389.23,-1057.92 426.67,-1070.03 460,-1079 479.23,-1084.17 500.89,-1089.03 518.66,-1092.77"/>
+<polygon fill="#000000" stroke="#000000" points="518.13,-1096.24 528.63,-1094.84 519.55,-1089.38 518.13,-1096.24"/>
 </g>
-<!-- interface~symba_util_resize_pl&#45;&gt;proc~symba_util_resize_pl -->
-<g id="call~~graph~~CallGraph_edge439" class="edge">
-<title>interface~symba_util_resize_pl&#45;&gt;proc~symba_util_resize_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M618.63,-5561C653.91,-5561 699.87,-5561 737.01,-5561"/>
-<polygon fill="#000000" stroke="#000000" points="737.23,-5564.5 747.23,-5561 737.23,-5557.5 737.23,-5564.5"/>
+<!-- lescape -->
+<g id="call~~graph~~CallGraph_node582" class="node">
+<title>lescape</title>
+<polygon fill="#777777" stroke="#777777" points="583,-1070 529,-1070 529,-1046 583,-1046 583,-1070"/>
+<text text-anchor="middle" x="556" y="-1055.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lescape</text>
 </g>
-<!-- interface~symba_util_resize_tp -->
-<g id="call~~graph~~CallGraph_node469" class="node">
-<title>interface~symba_util_resize_tp</title>
-<g id="a_call~~graph~~CallGraph_node469"><a xlink:href=".././interface/symba_util_resize_tp.html" xlink:title="symba_util_resize_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="619,-5531 506,-5531 506,-5507 619,-5507 619,-5531"/>
-<text text-anchor="middle" x="562.5" y="-5516.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_tp</text>
-</a>
+<!-- proc~io_conservation_report&#45;&gt;lescape -->
+<g id="call~~graph~~CallGraph_edge419" class="edge">
+<title>proc~io_conservation_report&#45;&gt;lescape</title>
+<path fill="none" stroke="#000000" d="M388.24,-1042.57C429.78,-1046.42 483.63,-1051.4 518.74,-1054.65"/>
+<polygon fill="#000000" stroke="#000000" points="518.71,-1058.16 528.99,-1055.59 519.36,-1051.19 518.71,-1058.16"/>
 </g>
+<!-- lspin_orig -->
+<g id="call~~graph~~CallGraph_node588" class="node">
+<title>lspin_orig</title>
+<polygon fill="#777777" stroke="#777777" points="585,-1028 527,-1028 527,-1004 585,-1004 585,-1028"/>
+<text text-anchor="middle" x="556" y="-1013.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lspin_orig</text>
 </g>
-<!-- proc~symba_util_resize_tp -->
-<g id="call~~graph~~CallGraph_node489" class="node">
-<title>proc~symba_util_resize_tp</title>
-<g id="a_call~~graph~~CallGraph_node489"><a xlink:href=".././proc/symba_util_resize_tp.html" xlink:title="symba_util_resize_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="860,-5531 747,-5531 747,-5507 860,-5507 860,-5531"/>
-<text text-anchor="middle" x="803.5" y="-5516.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_tp</text>
-</a>
+<!-- proc~io_conservation_report&#45;&gt;lspin_orig -->
+<g id="call~~graph~~CallGraph_edge420" class="edge">
+<title>proc~io_conservation_report&#45;&gt;lspin_orig</title>
+<path fill="none" stroke="#000000" d="M388.24,-1031.43C428.95,-1027.66 481.48,-1022.8 516.6,-1019.55"/>
+<polygon fill="#000000" stroke="#000000" points="517.28,-1023 526.91,-1018.6 516.63,-1016.03 517.28,-1023"/>
 </g>
+<!-- lorbit_orig -->
+<g id="call~~graph~~CallGraph_node591" class="node">
+<title>lorbit_orig</title>
+<polygon fill="#777777" stroke="#777777" points="586,-986 526,-986 526,-962 586,-962 586,-986"/>
+<text text-anchor="middle" x="556" y="-971.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lorbit_orig</text>
 </g>
-<!-- interface~symba_util_resize_tp&#45;&gt;proc~symba_util_resize_tp -->
-<g id="call~~graph~~CallGraph_edge440" class="edge">
-<title>interface~symba_util_resize_tp&#45;&gt;proc~symba_util_resize_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619.23,-5519C654.28,-5519 699.69,-5519 736.53,-5519"/>
-<polygon fill="#000000" stroke="#000000" points="736.68,-5522.5 746.68,-5519 736.68,-5515.5 736.68,-5522.5"/>
+<!-- proc~io_conservation_report&#45;&gt;lorbit_orig -->
+<g id="call~~graph~~CallGraph_edge421" class="edge">
+<title>proc~io_conservation_report&#45;&gt;lorbit_orig</title>
+<path fill="none" stroke="#000000" d="M362.76,-1024.99C389.23,-1016.08 426.67,-1003.97 460,-995 478.1,-990.13 498.36,-985.54 515.5,-981.89"/>
+<polygon fill="#000000" stroke="#000000" points="516.66,-985.23 525.73,-979.76 515.22,-978.38 516.66,-985.23"/>
 </g>
-<!-- interface~symba_util_sort_pl -->
-<g id="call~~graph~~CallGraph_node470" class="node">
-<title>interface~symba_util_sort_pl</title>
-<g id="a_call~~graph~~CallGraph_node470"><a xlink:href=".././interface/symba_util_sort_pl.html" xlink:title="symba_util_sort_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="148,-9363 46,-9363 46,-9339 148,-9339 148,-9363"/>
-<text text-anchor="middle" x="97" y="-9348.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_pl</text>
+<!-- proc~util_resize_arr_logical -->
+<g id="call~~graph~~CallGraph_node464" class="node">
+<title>proc~util_resize_arr_logical</title>
+<g id="a_call~~graph~~CallGraph_node464"><a xlink:href=".././proc/util_resize_arr_logical.html" xlink:title="util_resize_arr_logical">
+<polygon fill="#d9534f" stroke="#d9534f" points="155,-11297 39,-11297 39,-11273 155,-11273 155,-11297"/>
+<text text-anchor="middle" x="97" y="-11282.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_arr_logical</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_sort_pl -->
-<g id="call~~graph~~CallGraph_node490" class="node">
-<title>proc~symba_util_sort_pl</title>
-<g id="a_call~~graph~~CallGraph_node490"><a xlink:href=".././proc/symba_util_sort_pl.html" xlink:title="symba_util_sort_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="378,-9363 276,-9363 276,-9339 378,-9339 378,-9363"/>
-<text text-anchor="middle" x="327" y="-9348.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_pl</text>
-</a>
+<!-- proc~io_dump_param&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge423" class="edge">
+<title>proc~io_dump_param&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M601.59,-393.3C618.41,-396.17 637.07,-401.42 652,-411 709.94,-448.18 751.36,-521.56 769.21,-557.77"/>
+<polygon fill="#000000" stroke="#000000" points="766.13,-559.44 773.61,-566.93 772.44,-556.4 766.13,-559.44"/>
 </g>
+<!-- proc~util_resize_body&#45;&gt;interface~util_resize~2 -->
+<g id="call~~graph~~CallGraph_edge424" class="edge">
+<title>proc~util_resize_body&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M825.18,-3422.51C840.27,-3426.65 857.1,-3431.9 872,-3438 911.79,-3454.3 954.88,-3479.08 982.02,-3495.64"/>
+<polygon fill="#000000" stroke="#000000" points="980.23,-3498.65 990.58,-3500.92 983.91,-3492.69 980.23,-3498.65"/>
 </g>
-<!-- interface~symba_util_sort_pl&#45;&gt;proc~symba_util_sort_pl -->
-<g id="call~~graph~~CallGraph_edge441" class="edge">
-<title>interface~symba_util_sort_pl&#45;&gt;proc~symba_util_sort_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.04,-9351C182.66,-9351 228.93,-9351 265.61,-9351"/>
-<polygon fill="#000000" stroke="#000000" points="265.69,-9354.5 275.69,-9351 265.69,-9347.5 265.69,-9354.5"/>
+<!-- proc~symba_setup_initialize_particle_info&#45;&gt;interface~symba_io_dump_particle_info -->
+<g id="call~~graph~~CallGraph_edge425" class="edge">
+<title>proc~symba_setup_initialize_particle_info&#45;&gt;interface~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" d="M872.29,-5025.79C888.87,-5027.39 906.11,-5029.05 922.56,-5030.63"/>
+<polygon fill="#000000" stroke="#000000" points="922.39,-5034.13 932.68,-5031.6 923.06,-5027.16 922.39,-5034.13"/>
 </g>
-<!-- interface~symba_util_sort_tp -->
-<g id="call~~graph~~CallGraph_node472" class="node">
-<title>interface~symba_util_sort_tp</title>
-<g id="a_call~~graph~~CallGraph_node472"><a xlink:href=".././interface/symba_util_sort_tp.html" xlink:title="symba_util_sort_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="148.5,-6676 45.5,-6676 45.5,-6652 148.5,-6652 148.5,-6676"/>
-<text text-anchor="middle" x="97" y="-6661.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_tp</text>
-</a>
+<!-- proc~util_resize_pl&#45;&gt;interface~util_resize~2 -->
+<g id="call~~graph~~CallGraph_edge426" class="edge">
+<title>proc~util_resize_pl&#45;&gt;interface~util_resize~2</title>
+<path fill="none" stroke="#000000" d="M364.63,-3445.46C452.76,-3442.42 683.33,-3438.56 872,-3471 905.96,-3476.84 943.28,-3488.59 970.46,-3498.19"/>
+<polygon fill="#000000" stroke="#000000" points="969.39,-3501.52 979.99,-3501.61 971.76,-3494.93 969.39,-3501.52"/>
 </g>
+<!-- proc~util_resize_pl&#45;&gt;interface~util_resize_body -->
+<g id="call~~graph~~CallGraph_edge427" class="edge">
+<title>proc~util_resize_pl&#45;&gt;interface~util_resize_body</title>
+<path fill="none" stroke="#000000" d="M364.72,-3441.34C401.59,-3435.65 458.79,-3426.83 500.86,-3420.35"/>
+<polygon fill="#000000" stroke="#000000" points="501.58,-3423.78 510.93,-3418.79 500.52,-3416.86 501.58,-3423.78"/>
 </g>
-<!-- proc~symba_util_sort_tp -->
-<g id="call~~graph~~CallGraph_node492" class="node">
-<title>proc~symba_util_sort_tp</title>
-<g id="a_call~~graph~~CallGraph_node492"><a xlink:href=".././proc/symba_util_sort_tp.html" xlink:title="symba_util_sort_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="378.5,-6676 275.5,-6676 275.5,-6652 378.5,-6652 378.5,-6676"/>
-<text text-anchor="middle" x="327" y="-6661.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_tp</text>
+<!-- interface~io_get_args -->
+<g id="call~~graph~~CallGraph_node471" class="node">
+<title>interface~io_get_args</title>
+<g id="a_call~~graph~~CallGraph_node471"><a xlink:href=".././interface/io_get_args.html" xlink:title="io_get_args">
+<polygon fill="#a7506f" stroke="#a7506f" points="361.5,-192 292.5,-192 292.5,-168 361.5,-168 361.5,-192"/>
+<text text-anchor="middle" x="327" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_sort_tp&#45;&gt;proc~symba_util_sort_tp -->
-<g id="call~~graph~~CallGraph_edge442" class="edge">
-<title>interface~symba_util_sort_tp&#45;&gt;proc~symba_util_sort_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.6,-6664C183.02,-6664 228.74,-6664 265.14,-6664"/>
-<polygon fill="#000000" stroke="#000000" points="265.15,-6667.5 275.15,-6664 265.15,-6660.5 265.15,-6667.5"/>
-</g>
-<!-- interface~util_solve_linear_system -->
-<g id="call~~graph~~CallGraph_node473" class="node">
-<title>interface~util_solve_linear_system</title>
-<g id="a_call~~graph~~CallGraph_node473"><a xlink:href=".././interface/util_solve_linear_system.html" xlink:title="util_solve_linear_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="161.5,-10917 32.5,-10917 32.5,-10893 161.5,-10893 161.5,-10917"/>
-<text text-anchor="middle" x="97" y="-10902.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system</text>
-</a>
+<!-- interface~io_get_args&#45;&gt;proc~io_get_args -->
+<g id="call~~graph~~CallGraph_edge428" class="edge">
+<title>interface~io_get_args&#45;&gt;proc~io_get_args</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.98,-180C401.72,-180 467.58,-180 511.13,-180"/>
+<polygon fill="#000000" stroke="#000000" points="511.15,-183.5 521.15,-180 511.15,-176.5 511.15,-183.5"/>
 </g>
+<!-- interface~io_get_token&#45;&gt;proc~io_get_token -->
+<g id="call~~graph~~CallGraph_edge429" class="edge">
+<title>interface~io_get_token&#45;&gt;proc~io_get_token</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M817.21,-223C856.73,-223 920.13,-223 963.24,-223"/>
+<polygon fill="#000000" stroke="#000000" points="963.46,-226.5 973.46,-223 963.46,-219.5 963.46,-226.5"/>
 </g>
-<!-- interface~symba_util_sort_rearrange_pl -->
+<!-- interface~discard_pl -->
 <g id="call~~graph~~CallGraph_node474" class="node">
-<title>interface~symba_util_sort_rearrange_pl</title>
-<g id="a_call~~graph~~CallGraph_node474"><a xlink:href=".././interface/symba_util_sort_rearrange_pl.html" xlink:title="symba_util_sort_rearrange_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="174.5,-6760 19.5,-6760 19.5,-6736 174.5,-6736 174.5,-6760"/>
-<text text-anchor="middle" x="97" y="-6745.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_rearrange_pl</text>
+<title>interface~discard_pl</title>
+<g id="a_call~~graph~~CallGraph_node474"><a xlink:href=".././interface/discard_pl.html" xlink:title="discard_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="127.5,-10919 66.5,-10919 66.5,-10895 127.5,-10895 127.5,-10919"/>
+<text text-anchor="middle" x="97" y="-10904.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_sort_rearrange_pl&#45;&gt;proc~symba_util_sort_rearrange_pl -->
-<g id="call~~graph~~CallGraph_edge443" class="edge">
-<title>interface~symba_util_sort_rearrange_pl&#45;&gt;proc~symba_util_sort_rearrange_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M174.55,-6748C195.33,-6748 217.97,-6748 239.26,-6748"/>
-<polygon fill="#000000" stroke="#000000" points="239.26,-6751.5 249.26,-6748 239.26,-6744.5 239.26,-6751.5"/>
+<!-- interface~discard_pl&#45;&gt;proc~discard_pl -->
+<g id="call~~graph~~CallGraph_edge430" class="edge">
+<title>interface~discard_pl&#45;&gt;proc~discard_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M127.81,-10907C168.35,-10907 240.98,-10907 286.16,-10907"/>
+<polygon fill="#000000" stroke="#000000" points="286.19,-10910.5 296.19,-10907 286.19,-10903.5 286.19,-10910.5"/>
 </g>
-<!-- interface~symba_util_sort_rearrange_tp -->
+<!-- interface~discard_system -->
 <g id="call~~graph~~CallGraph_node475" class="node">
-<title>interface~symba_util_sort_rearrange_tp</title>
-<g id="a_call~~graph~~CallGraph_node475"><a xlink:href=".././interface/symba_util_sort_rearrange_tp.html" xlink:title="symba_util_sort_rearrange_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="175,-6886 19,-6886 19,-6862 175,-6862 175,-6886"/>
-<text text-anchor="middle" x="97" y="-6871.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_rearrange_tp</text>
+<title>interface~discard_system</title>
+<g id="a_call~~graph~~CallGraph_node475"><a xlink:href=".././interface/discard_system.html" xlink:title="discard_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="140.5,-10415 53.5,-10415 53.5,-10391 140.5,-10391 140.5,-10415"/>
+<text text-anchor="middle" x="97" y="-10400.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_system</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_sort_rearrange_tp -->
-<g id="call~~graph~~CallGraph_node496" class="node">
-<title>proc~symba_util_sort_rearrange_tp</title>
-<g id="a_call~~graph~~CallGraph_node496"><a xlink:href=".././proc/symba_util_sort_rearrange_tp.html" xlink:title="symba_util_sort_rearrange_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="405,-6886 249,-6886 249,-6862 405,-6862 405,-6886"/>
-<text text-anchor="middle" x="327" y="-6871.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_sort_rearrange_tp</text>
+<!-- interface~discard_system&#45;&gt;proc~discard_system -->
+<g id="call~~graph~~CallGraph_edge431" class="edge">
+<title>interface~discard_system&#45;&gt;proc~discard_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.62,-10403C178.09,-10403 232.77,-10403 273.04,-10403"/>
+<polygon fill="#000000" stroke="#000000" points="273.2,-10406.5 283.2,-10403 273.2,-10399.5 273.2,-10406.5"/>
+</g>
+<!-- interface~discard_tp -->
+<g id="call~~graph~~CallGraph_node476" class="node">
+<title>interface~discard_tp</title>
+<g id="a_call~~graph~~CallGraph_node476"><a xlink:href=".././interface/discard_tp.html" xlink:title="discard_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="128,-10877 66,-10877 66,-10853 128,-10853 128,-10877"/>
+<text text-anchor="middle" x="97" y="-10862.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_sort_rearrange_tp&#45;&gt;proc~symba_util_sort_rearrange_tp -->
-<g id="call~~graph~~CallGraph_edge444" class="edge">
-<title>interface~symba_util_sort_rearrange_tp&#45;&gt;proc~symba_util_sort_rearrange_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M175.19,-6874C195.62,-6874 217.81,-6874 238.73,-6874"/>
-<polygon fill="#000000" stroke="#000000" points="238.89,-6877.5 248.89,-6874 238.89,-6870.5 238.89,-6877.5"/>
+<!-- interface~discard_tp&#45;&gt;proc~discard_tp -->
+<g id="call~~graph~~CallGraph_edge432" class="edge">
+<title>interface~discard_tp&#45;&gt;proc~discard_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M128.28,-10865C168.76,-10865 240.64,-10865 285.68,-10865"/>
+<polygon fill="#000000" stroke="#000000" points="285.96,-10868.5 295.96,-10865 285.96,-10861.5 285.96,-10868.5"/>
 </g>
-<!-- proc~symba_util_resize_arr_kin -->
-<g id="call~~graph~~CallGraph_node477" class="node">
-<title>proc~symba_util_resize_arr_kin</title>
-<g id="a_call~~graph~~CallGraph_node477"><a xlink:href=".././proc/symba_util_resize_arr_kin.html" xlink:title="symba_util_resize_arr_kin">
-<polygon fill="#d9534f" stroke="#d9534f" points="165.5,-10959 28.5,-10959 28.5,-10935 165.5,-10935 165.5,-10959"/>
-<text text-anchor="middle" x="97" y="-10944.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_arr_kin</text>
+<!-- interface~drift_all&#45;&gt;proc~drift_all -->
+<g id="call~~graph~~CallGraph_edge433" class="edge">
+<title>interface~drift_all&#45;&gt;proc~drift_all</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M583.34,-7952C622.89,-7952 697.76,-7952 742.54,-7952"/>
+<polygon fill="#000000" stroke="#000000" points="742.7,-7955.5 752.7,-7952 742.7,-7948.5 742.7,-7955.5"/>
+</g>
+<!-- interface~drift_body -->
+<g id="call~~graph~~CallGraph_node478" class="node">
+<title>interface~drift_body</title>
+<g id="a_call~~graph~~CallGraph_node478"><a xlink:href=".././interface/drift_body.html" xlink:title="drift_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="127,-7964 67,-7964 67,-7940 127,-7940 127,-7964"/>
+<text text-anchor="middle" x="97" y="-7949.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_body</text>
 </a>
 </g>
 </g>
-<!-- proc~lambda_eval_0 -->
-<g id="call~~graph~~CallGraph_node478" class="node">
-<title>proc~lambda_eval_0</title>
-<g id="a_call~~graph~~CallGraph_node478"><a xlink:href=".././proc/lambda_eval_0.html" xlink:title="lambda_eval_0">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="139.5,-11001 54.5,-11001 54.5,-10977 139.5,-10977 139.5,-11001"/>
-<text text-anchor="middle" x="97" y="-10986.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_eval_0</text>
+<!-- interface~drift_body&#45;&gt;proc~drift_body -->
+<g id="call~~graph~~CallGraph_edge434" class="edge">
+<title>interface~drift_body&#45;&gt;proc~drift_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M127.34,-7952C167.96,-7952 241.42,-7952 286.73,-7952"/>
+<polygon fill="#000000" stroke="#000000" points="286.77,-7955.5 296.77,-7952 286.77,-7948.5 286.77,-7955.5"/>
+</g>
+<!-- interface~drift_one -->
+<g id="call~~graph~~CallGraph_node479" class="node">
+<title>interface~drift_one</title>
+<g id="a_call~~graph~~CallGraph_node479"><a xlink:href=".././interface/drift_one.html" xlink:title="drift_one">
+<polygon fill="#a7506f" stroke="#a7506f" points="124.5,-8273 69.5,-8273 69.5,-8249 124.5,-8249 124.5,-8273"/>
+<text text-anchor="middle" x="97" y="-8258.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_one</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_resize_merger&#45;&gt;interface~util_resize -->
-<g id="call~~graph~~CallGraph_edge446" class="edge">
-<title>proc~symba_util_resize_merger&#45;&gt;interface~util_resize</title>
-<path fill="none" stroke="#000000" d="M396.77,-5582.89C546.33,-5587 897.24,-5596.65 1015.66,-5599.9"/>
-<polygon fill="#000000" stroke="#000000" points="1015.65,-5603.41 1025.74,-5600.18 1015.84,-5596.41 1015.65,-5603.41"/>
+<!-- interface~drift_one&#45;&gt;proc~drift_one -->
+<g id="call~~graph~~CallGraph_edge435" class="edge">
+<title>interface~drift_one&#45;&gt;proc~drift_one</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M124.6,-8261C165.25,-8261 242.95,-8261 289.05,-8261"/>
+<polygon fill="#000000" stroke="#000000" points="289.22,-8264.5 299.22,-8261 289.22,-8257.5 289.22,-8264.5"/>
+</g>
+<!-- interface~eucl_dist_index_plpl -->
+<g id="call~~graph~~CallGraph_node480" class="node">
+<title>interface~eucl_dist_index_plpl</title>
+<g id="a_call~~graph~~CallGraph_node480"><a xlink:href=".././interface/eucl_dist_index_plpl.html" xlink:title="eucl_dist_index_plpl">
+<polygon fill="#a7506f" stroke="#a7506f" points="151.5,-4383 42.5,-4383 42.5,-4359 151.5,-4359 151.5,-4383"/>
+<text text-anchor="middle" x="97" y="-4368.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl_dist_index_plpl</text>
+</a>
+</g>
 </g>
-<!-- proc~symba_util_resize_merger&#45;&gt;interface~symba_util_resize_pl -->
-<g id="call~~graph~~CallGraph_edge445" class="edge">
-<title>proc~symba_util_resize_merger&#45;&gt;interface~symba_util_resize_pl</title>
-<path fill="none" stroke="#000000" d="M396.79,-5575.11C428.22,-5572.42 465.25,-5569.24 496.24,-5566.59"/>
-<polygon fill="#000000" stroke="#000000" points="496.83,-5570.05 506.5,-5565.71 496.23,-5563.08 496.83,-5570.05"/>
+<!-- interface~eucl_dist_index_plpl&#45;&gt;proc~eucl_dist_index_plpl -->
+<g id="call~~graph~~CallGraph_edge436" class="edge">
+<title>interface~eucl_dist_index_plpl&#45;&gt;proc~eucl_dist_index_plpl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.74,-4371C184.82,-4371 227.38,-4371 262.17,-4371"/>
+<polygon fill="#000000" stroke="#000000" points="262.22,-4374.5 272.22,-4371 262.22,-4367.5 262.22,-4374.5"/>
 </g>
-<!-- proc~lambda_eval_tvar -->
+<!-- interface~fragmentation_initialize -->
 <g id="call~~graph~~CallGraph_node481" class="node">
-<title>proc~lambda_eval_tvar</title>
-<g id="a_call~~graph~~CallGraph_node481"><a xlink:href=".././proc/lambda_eval_tvar.html" xlink:title="lambda_eval_tvar">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="145.5,-11043 48.5,-11043 48.5,-11019 145.5,-11019 145.5,-11043"/>
-<text text-anchor="middle" x="97" y="-11028.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_eval_tvar</text>
+<title>interface~fragmentation_initialize</title>
+<g id="a_call~~graph~~CallGraph_node481"><a xlink:href=".././interface/fragmentation_initialize.html" xlink:title="fragmentation_initialize">
+<polygon fill="#a7506f" stroke="#a7506f" points="158,-4131 36,-4131 36,-4107 158,-4107 158,-4131"/>
+<text text-anchor="middle" x="97" y="-4116.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
 </a>
 </g>
 </g>
-<!-- proc~obl_acc_tp&#45;&gt;interface~obl_acc_body -->
-<g id="call~~graph~~CallGraph_edge447" class="edge">
-<title>proc~obl_acc_tp&#45;&gt;interface~obl_acc_body</title>
-<path fill="none" stroke="#000000" d="M359.01,-8279.21C398.34,-8275.67 466.59,-8269.54 512.88,-8265.37"/>
-<polygon fill="#000000" stroke="#000000" points="513.34,-8268.85 522.98,-8264.46 512.71,-8261.87 513.34,-8268.85"/>
+<!-- interface~fragmentation_initialize&#45;&gt;proc~fragmentation_initialize -->
+<g id="call~~graph~~CallGraph_edge437" class="edge">
+<title>interface~fragmentation_initialize&#45;&gt;proc~fragmentation_initialize</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M158.2,-4119C188.07,-4119 224.34,-4119 255.5,-4119"/>
+<polygon fill="#000000" stroke="#000000" points="255.86,-4122.5 265.86,-4119 255.86,-4115.5 255.86,-4122.5"/>
 </g>
-<!-- proc~lambda_eval_0_err -->
+<!-- proc~symba_setup_pl&#45;&gt;setup_pl -->
+<g id="call~~graph~~CallGraph_edge438" class="edge">
+<title>proc~symba_setup_pl&#45;&gt;setup_pl</title>
+<path fill="none" stroke="#000000" d="M825.6,-6152.1C868.64,-6156.05 933,-6161.97 973.06,-6165.65"/>
+<polygon fill="#000000" stroke="#000000" points="972.9,-6169.15 983.18,-6166.58 973.55,-6162.18 972.9,-6169.15"/>
+</g>
+<!-- interface~fragmentation_regime -->
 <g id="call~~graph~~CallGraph_node483" class="node">
-<title>proc~lambda_eval_0_err</title>
-<g id="a_call~~graph~~CallGraph_node483"><a xlink:href=".././proc/lambda_eval_0_err.html" xlink:title="lambda_eval_0_err">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="149.5,-11085 44.5,-11085 44.5,-11061 149.5,-11061 149.5,-11085"/>
-<text text-anchor="middle" x="97" y="-11070.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_eval_0_err</text>
+<title>interface~fragmentation_regime</title>
+<g id="a_call~~graph~~CallGraph_node483"><a xlink:href=".././interface/fragmentation_regime.html" xlink:title="fragmentation_regime">
+<polygon fill="#a7506f" stroke="#a7506f" points="156,-8987 38,-8987 38,-8963 156,-8963 156,-8987"/>
+<text text-anchor="middle" x="97" y="-8972.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_regime</text>
 </a>
 </g>
 </g>
-<!-- proc~lambda_destroy -->
-<g id="call~~graph~~CallGraph_node484" class="node">
-<title>proc~lambda_destroy</title>
-<g id="a_call~~graph~~CallGraph_node484"><a xlink:href=".././proc/lambda_destroy.html" xlink:title="lambda_destroy">
-<polygon fill="#d9534f" stroke="#d9534f" points="141.5,-11127 52.5,-11127 52.5,-11103 141.5,-11103 141.5,-11127"/>
-<text text-anchor="middle" x="97" y="-11112.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_destroy</text>
-</a>
-</g>
+<!-- interface~fragmentation_regime&#45;&gt;proc~fragmentation_regime -->
+<g id="call~~graph~~CallGraph_edge439" class="edge">
+<title>interface~fragmentation_regime&#45;&gt;proc~fragmentation_regime</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-8975C187.08,-8975 225.33,-8975 257.7,-8975"/>
+<polygon fill="#000000" stroke="#000000" points="257.98,-8978.5 267.98,-8975 257.98,-8971.5 257.98,-8978.5"/>
 </g>
-<!-- proc~symba_util_resize_pl&#45;&gt;interface~util_resize -->
-<g id="call~~graph~~CallGraph_edge449" class="edge">
-<title>proc~symba_util_resize_pl&#45;&gt;interface~util_resize</title>
-<path fill="none" stroke="#000000" d="M859.58,-5569.78C906.91,-5577.32 973.99,-5588.01 1016.1,-5594.72"/>
-<polygon fill="#000000" stroke="#000000" points="1015.56,-5598.18 1025.98,-5596.3 1016.66,-5591.27 1015.56,-5598.18"/>
+<!-- proc~symba_setup_initialize_system&#45;&gt;interface~symba_io_read_particle -->
+<g id="call~~graph~~CallGraph_edge441" class="edge">
+<title>proc~symba_setup_initialize_system&#45;&gt;interface~symba_io_read_particle</title>
+<path fill="none" stroke="#000000" d="M339.9,-5029.32C361.71,-5051.18 410.38,-5096.82 460,-5122 468.37,-5126.25 477.53,-5129.87 486.74,-5132.94"/>
+<polygon fill="#000000" stroke="#000000" points="485.75,-5136.3 496.33,-5135.94 487.84,-5129.62 485.75,-5136.3"/>
 </g>
-<!-- proc~symba_util_resize_pl&#45;&gt;util_resize_pl -->
-<g id="call~~graph~~CallGraph_edge448" class="edge">
-<title>proc~symba_util_resize_pl&#45;&gt;util_resize_pl</title>
-<path fill="none" stroke="#000000" d="M859.58,-5558.37C904.24,-5556.23 966.5,-5553.26 1008.75,-5551.23"/>
-<polygon fill="#000000" stroke="#000000" points="1008.96,-5554.73 1018.78,-5550.76 1008.62,-5547.74 1008.96,-5554.73"/>
+<!-- proc~symba_setup_initialize_system&#45;&gt;interface~symba_setup_initialize_particle_info -->
+<g id="call~~graph~~CallGraph_edge442" class="edge">
+<title>proc~symba_setup_initialize_system&#45;&gt;interface~symba_setup_initialize_particle_info</title>
+<path fill="none" stroke="#000000" d="M407.07,-5017C422.08,-5017 437.98,-5017 453.57,-5017"/>
+<polygon fill="#000000" stroke="#000000" points="453.76,-5020.5 463.76,-5017 453.76,-5013.5 453.76,-5020.5"/>
 </g>
-<!-- discard_tp -->
-<g id="call~~graph~~CallGraph_node563" class="node">
-<title>discard_tp</title>
-<polygon fill="#777777" stroke="#777777" points="593.5,-6508 531.5,-6508 531.5,-6484 593.5,-6484 593.5,-6508"/>
-<text text-anchor="middle" x="562.5" y="-6493.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_tp</text>
+<!-- whm_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_node609" class="node">
+<title>whm_setup_initialize_system</title>
+<polygon fill="#777777" stroke="#777777" points="631.5,-4987 480.5,-4987 480.5,-4963 631.5,-4963 631.5,-4987"/>
+<text text-anchor="middle" x="556" y="-4972.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_initialize_system</text>
 </g>
-<!-- proc~rmvs_discard_tp&#45;&gt;discard_tp -->
-<g id="call~~graph~~CallGraph_edge450" class="edge">
-<title>proc~rmvs_discard_tp&#45;&gt;discard_tp</title>
-<path fill="none" stroke="#000000" d="M372.74,-6496C415.63,-6496 479.77,-6496 521.12,-6496"/>
-<polygon fill="#000000" stroke="#000000" points="521.38,-6499.5 531.38,-6496 521.38,-6492.5 521.38,-6499.5"/>
+<!-- proc~symba_setup_initialize_system&#45;&gt;whm_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_edge440" class="edge">
+<title>proc~symba_setup_initialize_system&#45;&gt;whm_setup_initialize_system</title>
+<path fill="none" stroke="#000000" d="M393.05,-5004.96C420.12,-4999.96 451.72,-4994.11 479.78,-4988.92"/>
+<polygon fill="#000000" stroke="#000000" points="480.75,-4992.3 489.94,-4987.04 479.47,-4985.42 480.75,-4992.3"/>
 </g>
-<!-- proc~obl_acc_pl&#45;&gt;interface~obl_acc_body -->
-<g id="call~~graph~~CallGraph_edge451" class="edge">
-<title>proc~obl_acc_pl&#45;&gt;interface~obl_acc_body</title>
-<path fill="none" stroke="#000000" d="M359.01,-8242.79C398.34,-8246.33 466.59,-8252.46 512.88,-8256.63"/>
-<polygon fill="#000000" stroke="#000000" points="512.71,-8260.13 522.98,-8257.54 513.34,-8253.15 512.71,-8260.13"/>
+<!-- interface~gr_kick_getaccb_ns_body -->
+<g id="call~~graph~~CallGraph_node485" class="node">
+<title>interface~gr_kick_getaccb_ns_body</title>
+<g id="a_call~~graph~~CallGraph_node485"><a xlink:href=".././interface/gr_kick_getaccb_ns_body.html" xlink:title="gr_kick_getaccb_ns_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="165,-9197 29,-9197 29,-9173 165,-9173 165,-9197"/>
+<text text-anchor="middle" x="97" y="-9182.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_kick_getaccb_ns_body</text>
+</a>
 </g>
-<!-- proc~symba_util_resize_tp&#45;&gt;interface~util_resize -->
-<g id="call~~graph~~CallGraph_edge453" class="edge">
-<title>proc~symba_util_resize_tp&#45;&gt;interface~util_resize</title>
-<path fill="none" stroke="#000000" d="M860.1,-5525.43C875.47,-5528.54 891.82,-5533.16 906,-5540 924.76,-5549.05 923.53,-5560.37 942,-5570 965.09,-5582.04 993.33,-5589.78 1015.86,-5594.51"/>
-<polygon fill="#000000" stroke="#000000" points="1015.28,-5597.96 1025.77,-5596.48 1016.65,-5591.1 1015.28,-5597.96"/>
 </g>
-<!-- proc~symba_util_resize_tp&#45;&gt;util_resize_tp -->
-<g id="call~~graph~~CallGraph_edge452" class="edge">
-<title>proc~symba_util_resize_tp&#45;&gt;util_resize_tp</title>
-<path fill="none" stroke="#000000" d="M860.21,-5511.9C904.64,-5506.23 966.18,-5498.39 1008.23,-5493.03"/>
-<polygon fill="#000000" stroke="#000000" points="1008.74,-5496.49 1018.21,-5491.75 1007.85,-5489.55 1008.74,-5496.49"/>
+<!-- interface~gr_kick_getaccb_ns_body&#45;&gt;proc~gr_kick_getaccb_ns_body -->
+<g id="call~~graph~~CallGraph_edge443" class="edge">
+<title>interface~gr_kick_getaccb_ns_body&#45;&gt;proc~gr_kick_getaccb_ns_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M165.17,-9185C191.38,-9185 221.58,-9185 248.69,-9185"/>
+<polygon fill="#000000" stroke="#000000" points="248.91,-9188.5 258.91,-9185 248.91,-9181.5 248.91,-9188.5"/>
 </g>
-<!-- proc~symba_util_sort_pl&#45;&gt;util_sort_pl -->
-<g id="call~~graph~~CallGraph_edge454" class="edge">
-<title>proc~symba_util_sort_pl&#45;&gt;util_sort_pl</title>
-<path fill="none" stroke="#000000" d="M378.09,-9346.49C420.53,-9342.68 480.64,-9337.27 520.32,-9333.7"/>
-<polygon fill="#000000" stroke="#000000" points="520.8,-9337.17 530.45,-9332.79 520.17,-9330.2 520.8,-9337.17"/>
+<!-- proc~symba_setup_merger&#45;&gt;interface~symba_setup_pl -->
+<g id="call~~graph~~CallGraph_edge444" class="edge">
+<title>proc~symba_setup_merger&#45;&gt;interface~symba_setup_pl</title>
+<path fill="none" stroke="#000000" d="M385.58,-6148C420.69,-6148 465.33,-6148 499.97,-6148"/>
+<polygon fill="#000000" stroke="#000000" points="500.38,-6151.5 510.38,-6148 500.38,-6144.5 500.38,-6151.5"/>
 </g>
-<!-- proc~orbel_ehie -->
-<g id="call~~graph~~CallGraph_node491" class="node">
-<title>proc~orbel_ehie</title>
-<g id="a_call~~graph~~CallGraph_node491"><a xlink:href=".././proc/orbel_ehie.html" xlink:title="orbel_ehie">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="1088,-188 1025,-188 1025,-164 1088,-164 1088,-188"/>
-<text text-anchor="middle" x="1056.5" y="-173.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehie</text>
+<!-- interface~gr_kick_getacch -->
+<g id="call~~graph~~CallGraph_node487" class="node">
+<title>interface~gr_kick_getacch</title>
+<g id="a_call~~graph~~CallGraph_node487"><a xlink:href=".././interface/gr_kick_getacch.html" xlink:title="gr_kick_getacch">
+<polygon fill="#a7506f" stroke="#a7506f" points="142,-9407 52,-9407 52,-9383 142,-9383 142,-9407"/>
+<text text-anchor="middle" x="97" y="-9392.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_ehie&#45;&gt;interface~orbel_scget -->
-<g id="call~~graph~~CallGraph_edge455" class="edge">
-<title>proc~orbel_ehie&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M1088.18,-180.9C1134.8,-188.35 1223.68,-202.54 1276.96,-211.05"/>
-<polygon fill="#000000" stroke="#000000" points="1276.69,-214.55 1287.12,-212.67 1277.8,-207.64 1276.69,-214.55"/>
+<!-- interface~gr_kick_getacch&#45;&gt;proc~gr_kick_getacch -->
+<g id="call~~graph~~CallGraph_edge445" class="edge">
+<title>interface~gr_kick_getacch&#45;&gt;proc~gr_kick_getacch</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.23,-9395C179.28,-9395 232.3,-9395 271.88,-9395"/>
+<polygon fill="#000000" stroke="#000000" points="271.89,-9398.5 281.89,-9395 271.89,-9391.5 271.89,-9398.5"/>
 </g>
-<!-- proc~symba_util_sort_tp&#45;&gt;util_sort_tp -->
-<g id="call~~graph~~CallGraph_edge456" class="edge">
-<title>proc~symba_util_sort_tp&#45;&gt;util_sort_tp</title>
-<path fill="none" stroke="#000000" d="M378.67,-6668.56C420.9,-6672.35 480.33,-6677.7 519.84,-6681.25"/>
-<polygon fill="#000000" stroke="#000000" points="519.65,-6684.75 529.93,-6682.16 520.28,-6677.78 519.65,-6684.75"/>
+<!-- dump_param_file -->
+<g id="call~~graph~~CallGraph_node560" class="node">
+<title>dump_param_file</title>
+<polygon fill="#777777" stroke="#777777" points="604,-1280 508,-1280 508,-1256 604,-1256 604,-1280"/>
+<text text-anchor="middle" x="556" y="-1265.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_param_file</text>
 </g>
-<!-- interface~util_minimize_bfgs -->
-<g id="call~~graph~~CallGraph_node494" class="node">
-<title>interface~util_minimize_bfgs</title>
-<g id="a_call~~graph~~CallGraph_node494"><a xlink:href=".././interface/util_minimize_bfgs.html" xlink:title="util_minimize_bfgs">
-<polygon fill="#a7506f" stroke="#a7506f" points="147,-5878 47,-5878 47,-5854 147,-5854 147,-5878"/>
-<text text-anchor="middle" x="97" y="-5863.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs</text>
-</a>
+<!-- proc~io_dump_system&#45;&gt;dump_param_file -->
+<g id="call~~graph~~CallGraph_edge448" class="edge">
+<title>proc~io_dump_system&#45;&gt;dump_param_file</title>
+<path fill="none" stroke="#000000" d="M374.21,-1228.18C409.91,-1236.04 459.51,-1246.97 497.73,-1255.39"/>
+<polygon fill="#000000" stroke="#000000" points="497.16,-1258.84 507.68,-1257.58 498.67,-1252.01 497.16,-1258.84"/>
 </g>
+<!-- dump_pl_file -->
+<g id="call~~graph~~CallGraph_node568" class="node">
+<title>dump_pl_file</title>
+<polygon fill="#777777" stroke="#777777" points="592.5,-1238 519.5,-1238 519.5,-1214 592.5,-1214 592.5,-1238"/>
+<text text-anchor="middle" x="556" y="-1223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_pl_file</text>
 </g>
-<!-- interface~util_minimize_bfgs&#45;&gt;proc~util_minimize_bfgs -->
-<g id="call~~graph~~CallGraph_edge457" class="edge">
-<title>interface~util_minimize_bfgs&#45;&gt;proc~util_minimize_bfgs</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.19,-5866C182.25,-5866 229.56,-5866 266.71,-5866"/>
-<polygon fill="#000000" stroke="#000000" points="266.9,-5869.5 276.9,-5866 266.9,-5862.5 266.9,-5869.5"/>
+<!-- proc~io_dump_system&#45;&gt;dump_pl_file -->
+<g id="call~~graph~~CallGraph_edge447" class="edge">
+<title>proc~io_dump_system&#45;&gt;dump_pl_file</title>
+<path fill="none" stroke="#000000" d="M374.21,-1219.63C413.6,-1221.02 469.91,-1223 509.18,-1224.39"/>
+<polygon fill="#000000" stroke="#000000" points="509.16,-1227.89 519.28,-1224.74 509.41,-1220.89 509.16,-1227.89"/>
 </g>
-<!-- interface~util_peri_tp -->
-<g id="call~~graph~~CallGraph_node495" class="node">
-<title>interface~util_peri_tp</title>
-<g id="a_call~~graph~~CallGraph_node495"><a xlink:href=".././interface/util_peri_tp.html" xlink:title="util_peri_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="129.5,-5962 64.5,-5962 64.5,-5938 129.5,-5938 129.5,-5962"/>
-<text text-anchor="middle" x="97" y="-5947.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri_tp</text>
-</a>
+<!-- dump_tp_file -->
+<g id="call~~graph~~CallGraph_node569" class="node">
+<title>dump_tp_file</title>
+<polygon fill="#777777" stroke="#777777" points="593,-1196 519,-1196 519,-1172 593,-1172 593,-1196"/>
+<text text-anchor="middle" x="556" y="-1181.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_tp_file</text>
 </g>
+<!-- proc~io_dump_system&#45;&gt;dump_tp_file -->
+<g id="call~~graph~~CallGraph_edge446" class="edge">
+<title>proc~io_dump_system&#45;&gt;dump_tp_file</title>
+<path fill="none" stroke="#000000" d="M374.21,-1211.08C413.48,-1205.2 469.57,-1196.8 508.83,-1190.92"/>
+<polygon fill="#000000" stroke="#000000" points="509.55,-1194.35 518.92,-1189.4 508.52,-1187.42 509.55,-1194.35"/>
 </g>
-<!-- interface~util_peri_tp&#45;&gt;proc~util_peri_tp -->
-<g id="call~~graph~~CallGraph_edge458" class="edge">
-<title>interface~util_peri_tp&#45;&gt;proc~util_peri_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M129.7,-5950C169.92,-5950 239.38,-5950 283.98,-5950"/>
-<polygon fill="#000000" stroke="#000000" points="284.2,-5953.5 294.2,-5950 284.2,-5946.5 284.2,-5953.5"/>
+<!-- dump_cb_file -->
+<g id="call~~graph~~CallGraph_node624" class="node">
+<title>dump_cb_file</title>
+<polygon fill="#777777" stroke="#777777" points="594,-1154 518,-1154 518,-1130 594,-1130 594,-1154"/>
+<text text-anchor="middle" x="556" y="-1139.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_cb_file</text>
 </g>
-<!-- proc~symba_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp -->
-<g id="call~~graph~~CallGraph_edge459" class="edge">
-<title>proc~symba_util_sort_rearrange_tp&#45;&gt;util_sort_rearrange_tp</title>
-<path fill="none" stroke="#000000" d="M405.1,-6884.9C433.62,-6888.93 465.71,-6893.46 493.37,-6897.37"/>
-<polygon fill="#000000" stroke="#000000" points="492.95,-6900.85 503.34,-6898.78 493.93,-6893.92 492.95,-6900.85"/>
+<!-- proc~io_dump_system&#45;&gt;dump_cb_file -->
+<g id="call~~graph~~CallGraph_edge449" class="edge">
+<title>proc~io_dump_system&#45;&gt;dump_cb_file</title>
+<path fill="none" stroke="#000000" d="M353.3,-1205.88C379.5,-1193.7 421.89,-1175.05 460,-1163 475.33,-1158.16 492.38,-1154.01 507.77,-1150.72"/>
+<polygon fill="#000000" stroke="#000000" points="508.52,-1154.13 517.6,-1148.67 507.1,-1147.28 508.52,-1154.13"/>
 </g>
-<!-- proc~orbel_eget -->
-<g id="call~~graph~~CallGraph_node497" class="node">
-<title>proc~orbel_eget</title>
-<g id="a_call~~graph~~CallGraph_node497"><a xlink:href=".././proc/orbel_eget.html" xlink:title="orbel_eget">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="1088.5,-146 1024.5,-146 1024.5,-122 1088.5,-122 1088.5,-146"/>
-<text text-anchor="middle" x="1056.5" y="-131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_eget</text>
+<!-- interface~gr_p4_pos_kick -->
+<g id="call~~graph~~CallGraph_node489" class="node">
+<title>interface~gr_p4_pos_kick</title>
+<g id="a_call~~graph~~CallGraph_node489"><a xlink:href=".././interface/gr_p4_pos_kick.html" xlink:title="gr_p4_pos_kick">
+<polygon fill="#a7506f" stroke="#a7506f" points="141,-9365 53,-9365 53,-9341 141,-9341 141,-9365"/>
+<text text-anchor="middle" x="97" y="-9350.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_p4_pos_kick</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_eget&#45;&gt;interface~orbel_scget -->
-<g id="call~~graph~~CallGraph_edge460" class="edge">
-<title>proc~orbel_eget&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M1088.76,-137.93C1111.8,-141.27 1143.74,-146.84 1171,-155 1212.27,-167.35 1257.59,-187.43 1287.39,-201.6"/>
-<polygon fill="#000000" stroke="#000000" points="1285.96,-204.8 1296.49,-205.97 1289,-198.49 1285.96,-204.8"/>
+<!-- interface~gr_p4_pos_kick&#45;&gt;proc~gr_p4_pos_kick -->
+<g id="call~~graph~~CallGraph_edge450" class="edge">
+<title>interface~gr_p4_pos_kick&#45;&gt;proc~gr_p4_pos_kick</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.15,-9353C178.44,-9353 232.49,-9353 272.52,-9353"/>
+<polygon fill="#000000" stroke="#000000" points="272.64,-9356.5 282.64,-9353 272.64,-9349.5 272.64,-9356.5"/>
 </g>
-<!-- proc~fragmentation_regime -->
-<g id="call~~graph~~CallGraph_node498" class="node">
-<title>proc~fragmentation_regime</title>
-<g id="a_call~~graph~~CallGraph_node498"><a xlink:href=".././proc/fragmentation_regime.html" xlink:title="fragmentation_regime">
-<polygon fill="#d9534f" stroke="#d9534f" points="386,-11169 268,-11169 268,-11145 386,-11145 386,-11169"/>
-<text text-anchor="middle" x="327" y="-11154.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_regime</text>
+<!-- interface~gr_pseudovel2vel -->
+<g id="call~~graph~~CallGraph_node490" class="node">
+<title>interface~gr_pseudovel2vel</title>
+<g id="a_call~~graph~~CallGraph_node490"><a xlink:href=".././interface/gr_pseudovel2vel.html" xlink:title="gr_pseudovel2vel">
+<polygon fill="#a7506f" stroke="#a7506f" points="145.5,-9659 48.5,-9659 48.5,-9635 145.5,-9635 145.5,-9659"/>
+<text text-anchor="middle" x="97" y="-9644.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_pseudovel2vel</text>
 </a>
 </g>
 </g>
-<!-- proc~fragmentation_initialize -->
-<g id="call~~graph~~CallGraph_node499" class="node">
-<title>proc~fragmentation_initialize</title>
-<g id="a_call~~graph~~CallGraph_node499"><a xlink:href=".././proc/fragmentation_initialize.html" xlink:title="fragmentation_initialize">
-<polygon fill="#d9534f" stroke="#d9534f" points="388,-6466 266,-6466 266,-6442 388,-6442 388,-6466"/>
-<text text-anchor="middle" x="327" y="-6451.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
+<!-- interface~gr_pseudovel2vel&#45;&gt;proc~gr_pseudovel2vel -->
+<g id="call~~graph~~CallGraph_edge451" class="edge">
+<title>interface~gr_pseudovel2vel&#45;&gt;proc~gr_pseudovel2vel</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.52,-9647C181.07,-9647 229.87,-9647 267.77,-9647"/>
+<polygon fill="#000000" stroke="#000000" points="268.15,-9650.5 278.15,-9647 268.15,-9643.5 268.15,-9650.5"/>
+</g>
+<!-- interface~gr_pv2vh_body -->
+<g id="call~~graph~~CallGraph_node491" class="node">
+<title>interface~gr_pv2vh_body</title>
+<g id="a_call~~graph~~CallGraph_node491"><a xlink:href=".././interface/gr_pv2vh_body.html" xlink:title="gr_pv2vh_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="140,-9827 54,-9827 54,-9803 140,-9803 140,-9827"/>
+<text text-anchor="middle" x="97" y="-9812.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_pv2vh_body</text>
 </a>
 </g>
 </g>
-<!-- proc~fragmentation_initialize&#45;&gt;status -->
-<g id="call~~graph~~CallGraph_edge461" class="edge">
-<title>proc~fragmentation_initialize&#45;&gt;status</title>
-<path fill="none" stroke="#000000" d="M388.13,-6454C431.42,-6454 488.42,-6454 525.02,-6454"/>
-<polygon fill="#000000" stroke="#000000" points="525.23,-6457.5 535.22,-6454 525.22,-6450.5 525.23,-6457.5"/>
+<!-- interface~gr_pv2vh_body&#45;&gt;proc~gr_pv2vh_body -->
+<g id="call~~graph~~CallGraph_edge452" class="edge">
+<title>interface~gr_pv2vh_body&#45;&gt;proc~gr_pv2vh_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.08,-9815C177.73,-9815 233.05,-9815 273.55,-9815"/>
+<polygon fill="#000000" stroke="#000000" points="273.78,-9818.5 283.78,-9815 273.78,-9811.5 273.78,-9818.5"/>
 </g>
-<!-- interface~io_get_args -->
-<g id="call~~graph~~CallGraph_node500" class="node">
-<title>interface~io_get_args</title>
-<g id="a_call~~graph~~CallGraph_node500"><a xlink:href=".././interface/io_get_args.html" xlink:title="io_get_args">
-<polygon fill="#a7506f" stroke="#a7506f" points="597,-3017 528,-3017 528,-2993 597,-2993 597,-3017"/>
-<text text-anchor="middle" x="562.5" y="-3002.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
-</a>
+<!-- proc~io_dump_swiftest&#45;&gt;interface~util_exit -->
+<g id="call~~graph~~CallGraph_edge453" class="edge">
+<title>proc~io_dump_swiftest&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M603.57,-350.75C620.07,-353.58 638,-358.96 652,-369 719.5,-417.42 757.85,-513.9 772.3,-557.14"/>
+<polygon fill="#000000" stroke="#000000" points="769.06,-558.49 775.46,-566.93 775.72,-556.34 769.06,-558.49"/>
 </g>
+<!-- whm_step_system -->
+<g id="call~~graph~~CallGraph_node614" class="node">
+<title>whm_step_system</title>
+<polygon fill="#777777" stroke="#777777" points="1061,-5093 960,-5093 960,-5069 1061,-5069 1061,-5093"/>
+<text text-anchor="middle" x="1010.5" y="-5078.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_system</text>
 </g>
-<!-- interface~io_get_args&#45;&gt;proc~io_get_args -->
-<g id="call~~graph~~CallGraph_edge462" class="edge">
-<title>interface~io_get_args&#45;&gt;proc~io_get_args</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.24,-3005C639.58,-3005 712.3,-3005 758.85,-3005"/>
-<polygon fill="#000000" stroke="#000000" points="758.94,-3008.5 768.94,-3005 758.94,-3001.5 758.94,-3008.5"/>
+<!-- proc~helio_step_system&#45;&gt;whm_step_system -->
+<g id="call~~graph~~CallGraph_edge454" class="edge">
+<title>proc~helio_step_system&#45;&gt;whm_step_system</title>
+<path fill="none" stroke="#000000" d="M830.58,-5096.66C865.49,-5093.6 912.42,-5089.5 949.46,-5086.26"/>
+<polygon fill="#000000" stroke="#000000" points="949.96,-5089.72 959.62,-5085.37 949.35,-5082.75 949.96,-5089.72"/>
 </g>
-<!-- interface~symba_util_spill_pl -->
-<g id="call~~graph~~CallGraph_node501" class="node">
-<title>interface~symba_util_spill_pl</title>
-<g id="a_call~~graph~~CallGraph_node501"><a xlink:href=".././interface/symba_util_spill_pl.html" xlink:title="symba_util_spill_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="613.5,-793 511.5,-793 511.5,-769 613.5,-769 613.5,-793"/>
-<text text-anchor="middle" x="562.5" y="-778.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_pl</text>
+<!-- proc~rmvs_util_spill_tp -->
+<g id="call~~graph~~CallGraph_node494" class="node">
+<title>proc~rmvs_util_spill_tp</title>
+<g id="a_call~~graph~~CallGraph_node494"><a xlink:href=".././proc/rmvs_util_spill_tp.html" xlink:title="rmvs_util_spill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="1298.5,-5097 1204.5,-5097 1204.5,-5073 1298.5,-5073 1298.5,-5097"/>
+<text text-anchor="middle" x="1251.5" y="-5082.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_spill_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_spill_pl -->
-<g id="call~~graph~~CallGraph_node530" class="node">
-<title>proc~symba_util_spill_pl</title>
-<g id="a_call~~graph~~CallGraph_node530"><a xlink:href=".././proc/symba_util_spill_pl.html" xlink:title="symba_util_spill_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="854.5,-793 752.5,-793 752.5,-769 854.5,-769 854.5,-793"/>
-<text text-anchor="middle" x="803.5" y="-778.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_pl</text>
-</a>
-</g>
+<!-- proc~rmvs_util_spill_tp&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge456" class="edge">
+<title>proc~rmvs_util_spill_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1298.54,-5088.67C1347.15,-5092.54 1422.77,-5098.57 1467.3,-5102.12"/>
+<polygon fill="#000000" stroke="#000000" points="1467.13,-5105.61 1477.37,-5102.92 1467.68,-5098.63 1467.13,-5105.61"/>
 </g>
-<!-- interface~symba_util_spill_pl&#45;&gt;proc~symba_util_spill_pl -->
-<g id="call~~graph~~CallGraph_edge463" class="edge">
-<title>interface~symba_util_spill_pl&#45;&gt;proc~symba_util_spill_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M613.6,-781C651.13,-781 702.62,-781 742.37,-781"/>
-<polygon fill="#000000" stroke="#000000" points="742.46,-784.5 752.46,-781 742.46,-777.5 742.46,-784.5"/>
+<!-- proc~rmvs_util_spill_tp&#45;&gt;util_spill -->
+<g id="call~~graph~~CallGraph_edge457" class="edge">
+<title>proc~rmvs_util_spill_tp&#45;&gt;util_spill</title>
+<path fill="none" stroke="#000000" d="M1298.65,-5084.66C1317.79,-5082.26 1338.98,-5076.36 1354,-5063 1390.86,-5030.21 1355.4,-4993.17 1390,-4958 1410.44,-4937.22 1442.19,-4926.92 1466.91,-4921.84"/>
+<polygon fill="#000000" stroke="#000000" points="1467.83,-4925.23 1477.03,-4919.97 1466.56,-4918.35 1467.83,-4925.23"/>
 </g>
-<!-- interface~io_get_token&#45;&gt;proc~io_get_token -->
-<g id="call~~graph~~CallGraph_edge464" class="edge">
-<title>interface~io_get_token&#45;&gt;proc~io_get_token</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1093.52,-2932C1140.5,-2932 1222.78,-2932 1274.31,-2932"/>
-<polygon fill="#000000" stroke="#000000" points="1274.5,-2935.5 1284.5,-2932 1274.5,-2928.5 1274.5,-2935.5"/>
+<!-- proc~rmvs_util_spill_tp&#45;&gt;util_spill_tp -->
+<g id="call~~graph~~CallGraph_edge455" class="edge">
+<title>proc~rmvs_util_spill_tp&#45;&gt;util_spill_tp</title>
+<path fill="none" stroke="#000000" d="M1279.84,-5097.09C1325.2,-5117.15 1416.04,-5157.32 1466.88,-5179.81"/>
+<polygon fill="#000000" stroke="#000000" points="1465.63,-5183.08 1476.19,-5183.92 1468.46,-5176.68 1465.63,-5183.08"/>
 </g>
-<!-- interface~symba_util_spill_pltpenc -->
-<g id="call~~graph~~CallGraph_node503" class="node">
-<title>interface~symba_util_spill_pltpenc</title>
-<g id="a_call~~graph~~CallGraph_node503"><a xlink:href=".././interface/symba_util_spill_pltpenc.html" xlink:title="symba_util_spill_pltpenc">
-<polygon fill="#a7506f" stroke="#a7506f" points="626.5,-709 498.5,-709 498.5,-685 626.5,-685 626.5,-709"/>
-<text text-anchor="middle" x="562.5" y="-694.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_pltpenc</text>
+<!-- proc~rmvs_util_spill_pl -->
+<g id="call~~graph~~CallGraph_node495" class="node">
+<title>proc~rmvs_util_spill_pl</title>
+<g id="a_call~~graph~~CallGraph_node495"><a xlink:href=".././proc/rmvs_util_spill_pl.html" xlink:title="rmvs_util_spill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="1298.5,-4887 1204.5,-4887 1204.5,-4863 1298.5,-4863 1298.5,-4887"/>
+<text text-anchor="middle" x="1251.5" y="-4872.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_spill_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_spill_pltpenc -->
-<g id="call~~graph~~CallGraph_node536" class="node">
-<title>proc~symba_util_spill_pltpenc</title>
-<g id="a_call~~graph~~CallGraph_node536"><a xlink:href=".././proc/symba_util_spill_pltpenc.html" xlink:title="symba_util_spill_pltpenc">
-<polygon fill="#d9534f" stroke="#d9534f" points="867.5,-709 739.5,-709 739.5,-685 867.5,-685 867.5,-709"/>
-<text text-anchor="middle" x="803.5" y="-694.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_pltpenc</text>
-</a>
+<!-- proc~rmvs_util_spill_pl&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge458" class="edge">
+<title>proc~rmvs_util_spill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1298.6,-4874.86C1317.73,-4877.07 1338.93,-4882.76 1354,-4896 1390.75,-4928.28 1363.25,-4959.05 1390,-5000 1413.48,-5035.94 1451.92,-5067.95 1477.46,-5086.92"/>
+<polygon fill="#000000" stroke="#000000" points="1475.45,-5089.78 1485.59,-5092.84 1479.57,-5084.12 1475.45,-5089.78"/>
 </g>
+<!-- proc~rmvs_util_spill_pl&#45;&gt;util_spill -->
+<g id="call~~graph~~CallGraph_edge459" class="edge">
+<title>proc~rmvs_util_spill_pl&#45;&gt;util_spill</title>
+<path fill="none" stroke="#000000" d="M1298.54,-4882.7C1347.15,-4890.84 1422.77,-4903.49 1467.3,-4910.94"/>
+<polygon fill="#000000" stroke="#000000" points="1466.93,-4914.43 1477.37,-4912.63 1468.09,-4907.53 1466.93,-4914.43"/>
 </g>
-<!-- interface~symba_util_spill_pltpenc&#45;&gt;proc~symba_util_spill_pltpenc -->
-<g id="call~~graph~~CallGraph_edge465" class="edge">
-<title>interface~symba_util_spill_pltpenc&#45;&gt;proc~symba_util_spill_pltpenc</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.61,-697C658.19,-697 696.59,-697 729.45,-697"/>
-<polygon fill="#000000" stroke="#000000" points="729.45,-700.5 739.45,-697 729.45,-693.5 729.45,-700.5"/>
+<!-- whm_util_spill_pl -->
+<g id="call~~graph~~CallGraph_node601" class="node">
+<title>whm_util_spill_pl</title>
+<polygon fill="#777777" stroke="#777777" points="1551,-4887 1458,-4887 1458,-4863 1551,-4863 1551,-4887"/>
+<text text-anchor="middle" x="1504.5" y="-4872.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_spill_pl</text>
 </g>
-<!-- interface~discard_pl -->
-<g id="call~~graph~~CallGraph_node504" class="node">
-<title>interface~discard_pl</title>
-<g id="a_call~~graph~~CallGraph_node504"><a xlink:href=".././interface/discard_pl.html" xlink:title="discard_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="127.5,-2398 66.5,-2398 66.5,-2374 127.5,-2374 127.5,-2398"/>
-<text text-anchor="middle" x="97" y="-2383.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_pl</text>
-</a>
+<!-- proc~rmvs_util_spill_pl&#45;&gt;whm_util_spill_pl -->
+<g id="call~~graph~~CallGraph_edge460" class="edge">
+<title>proc~rmvs_util_spill_pl&#45;&gt;whm_util_spill_pl</title>
+<path fill="none" stroke="#000000" d="M1298.54,-4875C1340.55,-4875 1402.75,-4875 1447.61,-4875"/>
+<polygon fill="#000000" stroke="#000000" points="1447.75,-4878.5 1457.75,-4875 1447.75,-4871.5 1447.75,-4878.5"/>
 </g>
+<!-- proc~helio_gr_kick_getacch_pl&#45;&gt;gr_kick_getacch -->
+<g id="call~~graph~~CallGraph_edge461" class="edge">
+<title>proc~helio_gr_kick_getacch_pl&#45;&gt;gr_kick_getacch</title>
+<path fill="none" stroke="#000000" d="M393.66,-5860.07C427.57,-5863.21 468.45,-5866.99 500.58,-5869.97"/>
+<polygon fill="#000000" stroke="#000000" points="500.4,-5873.46 510.68,-5870.9 501.05,-5866.49 500.4,-5873.46"/>
 </g>
-<!-- interface~discard_pl&#45;&gt;proc~discard_pl -->
-<g id="call~~graph~~CallGraph_edge466" class="edge">
-<title>interface~discard_pl&#45;&gt;proc~discard_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M127.81,-2386C168.35,-2386 240.98,-2386 286.16,-2386"/>
-<polygon fill="#000000" stroke="#000000" points="286.19,-2389.5 296.19,-2386 286.19,-2382.5 286.19,-2389.5"/>
+<!-- proc~rmvs_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node499" class="node">
+<title>proc~rmvs_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node499"><a xlink:href=".././proc/rmvs_kick_getacch_tp.html" xlink:title="rmvs_kick_getacch_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="386,-11339 268,-11339 268,-11315 386,-11315 386,-11339"/>
+<text text-anchor="middle" x="327" y="-11324.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick_getacch_tp</text>
+</a>
 </g>
-<!-- proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv -->
-<g id="call~~graph~~CallGraph_edge467" class="edge">
-<title>proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv</title>
-<path fill="none" stroke="#000000" d="M372.19,-94C414.24,-94 477.1,-94 518.69,-94"/>
-<polygon fill="#000000" stroke="#000000" points="518.78,-97.5 528.78,-94 518.78,-90.5 518.78,-97.5"/>
 </g>
-<!-- interface~symba_util_spill_tp -->
-<g id="call~~graph~~CallGraph_node506" class="node">
-<title>interface~symba_util_spill_tp</title>
-<g id="a_call~~graph~~CallGraph_node506"><a xlink:href=".././interface/symba_util_spill_tp.html" xlink:title="symba_util_spill_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="614,-751 511,-751 511,-727 614,-727 614,-751"/>
-<text text-anchor="middle" x="562.5" y="-736.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_tp</text>
-</a>
+<!-- whm_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_node590" class="node">
+<title>whm_kick_getacch_tp</title>
+<polygon fill="#777777" stroke="#777777" points="615,-11339 497,-11339 497,-11315 615,-11315 615,-11339"/>
+<text text-anchor="middle" x="556" y="-11324.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_tp</text>
+</g>
+<!-- proc~rmvs_kick_getacch_tp&#45;&gt;whm_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_edge462" class="edge">
+<title>proc~rmvs_kick_getacch_tp&#45;&gt;whm_kick_getacch_tp</title>
+<path fill="none" stroke="#000000" d="M386.16,-11327C416.86,-11327 454.71,-11327 486.79,-11327"/>
+<polygon fill="#000000" stroke="#000000" points="486.99,-11330.5 496.99,-11327 486.99,-11323.5 486.99,-11330.5"/>
 </g>
+<!-- proc~symba_io_dump_particle_info&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge463" class="edge">
+<title>proc~symba_io_dump_particle_info&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1310.59,-5054.02C1324.83,-5057.13 1339.99,-5060.56 1354,-5064 1393.1,-5073.59 1437.55,-5085.97 1467.75,-5094.61"/>
+<polygon fill="#000000" stroke="#000000" points="1466.84,-5097.99 1477.42,-5097.38 1468.77,-5091.26 1466.84,-5097.99"/>
 </g>
-<!-- proc~symba_util_spill_tp -->
-<g id="call~~graph~~CallGraph_node523" class="node">
-<title>proc~symba_util_spill_tp</title>
-<g id="a_call~~graph~~CallGraph_node523"><a xlink:href=".././proc/symba_util_spill_tp.html" xlink:title="symba_util_spill_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="855,-751 752,-751 752,-727 855,-727 855,-751"/>
-<text text-anchor="middle" x="803.5" y="-736.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_tp</text>
+<!-- proc~rmvs_setup_pl -->
+<g id="call~~graph~~CallGraph_node501" class="node">
+<title>proc~rmvs_setup_pl</title>
+<g id="a_call~~graph~~CallGraph_node501"><a xlink:href=".././proc/rmvs_setup_pl.html" xlink:title="rmvs_setup_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="368,-11381 286,-11381 286,-11357 368,-11357 368,-11381"/>
+<text text-anchor="middle" x="327" y="-11366.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_util_spill_tp&#45;&gt;proc~symba_util_spill_tp -->
-<g id="call~~graph~~CallGraph_edge468" class="edge">
-<title>interface~symba_util_spill_tp&#45;&gt;proc~symba_util_spill_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.19,-739C651.5,-739 702.39,-739 741.86,-739"/>
-<polygon fill="#000000" stroke="#000000" points="741.89,-742.5 751.89,-739 741.89,-735.5 741.89,-742.5"/>
+<!-- whm_setup_pl -->
+<g id="call~~graph~~CallGraph_node630" class="node">
+<title>whm_setup_pl</title>
+<polygon fill="#777777" stroke="#777777" points="597,-11381 515,-11381 515,-11357 597,-11357 597,-11381"/>
+<text text-anchor="middle" x="556" y="-11366.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_pl</text>
 </g>
-<!-- interface~discard_system -->
-<g id="call~~graph~~CallGraph_node507" class="node">
-<title>interface~discard_system</title>
-<g id="a_call~~graph~~CallGraph_node507"><a xlink:href=".././interface/discard_system.html" xlink:title="discard_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="140.5,-2052 53.5,-2052 53.5,-2028 140.5,-2028 140.5,-2052"/>
-<text text-anchor="middle" x="97" y="-2037.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_system</text>
-</a>
+<!-- proc~rmvs_setup_pl&#45;&gt;whm_setup_pl -->
+<g id="call~~graph~~CallGraph_edge464" class="edge">
+<title>proc~rmvs_setup_pl&#45;&gt;whm_setup_pl</title>
+<path fill="none" stroke="#000000" d="M368.06,-11369C406.19,-11369 463.71,-11369 504.87,-11369"/>
+<polygon fill="#000000" stroke="#000000" points="504.96,-11372.5 514.96,-11369 504.96,-11365.5 504.96,-11372.5"/>
 </g>
+<!-- proc~helio_gr_kick_getacch_tp&#45;&gt;gr_kick_getacch -->
+<g id="call~~graph~~CallGraph_edge465" class="edge">
+<title>proc~helio_gr_kick_getacch_tp&#45;&gt;gr_kick_getacch</title>
+<path fill="none" stroke="#000000" d="M387.11,-5824.01C399.35,-5826.75 412.14,-5829.81 424,-5833 453.22,-5840.86 485.6,-5851.23 510.86,-5859.69"/>
+<polygon fill="#000000" stroke="#000000" points="509.92,-5863.07 520.51,-5862.95 512.16,-5856.44 509.92,-5863.07"/>
 </g>
-<!-- interface~discard_system&#45;&gt;proc~discard_system -->
-<g id="call~~graph~~CallGraph_edge469" class="edge">
-<title>interface~discard_system&#45;&gt;proc~discard_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.62,-2040C178.09,-2040 232.77,-2040 273.04,-2040"/>
-<polygon fill="#000000" stroke="#000000" points="273.2,-2043.5 283.2,-2040 273.2,-2036.5 273.2,-2043.5"/>
+<!-- proc~helio_gr_p4_pl&#45;&gt;gr_p4_pos_kick -->
+<g id="call~~graph~~CallGraph_edge466" class="edge">
+<title>proc~helio_gr_p4_pl&#45;&gt;gr_p4_pos_kick</title>
+<path fill="none" stroke="#000000" d="M368.58,-6025.75C405.73,-6029.19 460.96,-6034.3 501.66,-6038.07"/>
+<polygon fill="#000000" stroke="#000000" points="501.4,-6041.56 511.68,-6038.99 502.04,-6034.59 501.4,-6041.56"/>
 </g>
-<!-- proc~symba_util_spill_arr_kin -->
+<!-- proc~helio_gr_p4_tp&#45;&gt;gr_p4_pos_kick -->
+<g id="call~~graph~~CallGraph_edge467" class="edge">
+<title>proc~helio_gr_p4_tp&#45;&gt;gr_p4_pos_kick</title>
+<path fill="none" stroke="#000000" d="M369.32,-5988.14C386.34,-5991.73 406.21,-5996.21 424,-6001 453.22,-6008.86 485.6,-6019.23 510.86,-6027.69"/>
+<polygon fill="#000000" stroke="#000000" points="509.92,-6031.07 520.51,-6030.95 512.16,-6024.44 509.92,-6031.07"/>
+</g>
+<!-- proc~rmvs_setup_initialize_system -->
 <g id="call~~graph~~CallGraph_node508" class="node">
-<title>proc~symba_util_spill_arr_kin</title>
-<g id="a_call~~graph~~CallGraph_node508"><a xlink:href=".././proc/symba_util_spill_arr_kin.html" xlink:title="symba_util_spill_arr_kin">
-<polygon fill="#d9534f" stroke="#d9534f" points="160.5,-11211 33.5,-11211 33.5,-11187 160.5,-11187 160.5,-11211"/>
-<text text-anchor="middle" x="97" y="-11196.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_arr_kin</text>
+<title>proc~rmvs_setup_initialize_system</title>
+<g id="a_call~~graph~~CallGraph_node508"><a xlink:href=".././proc/rmvs_setup_initialize_system.html" xlink:title="rmvs_setup_initialize_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="402.5,-4987 251.5,-4987 251.5,-4963 402.5,-4963 402.5,-4987"/>
+<text text-anchor="middle" x="327" y="-4972.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_initialize_system</text>
 </a>
 </g>
 </g>
-<!-- interface~discard_tp -->
-<g id="call~~graph~~CallGraph_node509" class="node">
-<title>interface~discard_tp</title>
-<g id="a_call~~graph~~CallGraph_node509"><a xlink:href=".././interface/discard_tp.html" xlink:title="discard_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="128,-2356 66,-2356 66,-2332 128,-2332 128,-2356"/>
-<text text-anchor="middle" x="97" y="-2341.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard_tp</text>
+<!-- proc~rmvs_setup_initialize_system&#45;&gt;whm_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_edge468" class="edge">
+<title>proc~rmvs_setup_initialize_system&#45;&gt;whm_setup_initialize_system</title>
+<path fill="none" stroke="#000000" d="M402.64,-4975C424.27,-4975 448.04,-4975 470.24,-4975"/>
+<polygon fill="#000000" stroke="#000000" points="470.31,-4978.5 480.31,-4975 470.31,-4971.5 470.31,-4978.5"/>
+</g>
+<!-- proc~obl_acc_tp&#45;&gt;interface~obl_acc_body -->
+<g id="call~~graph~~CallGraph_edge469" class="edge">
+<title>proc~obl_acc_tp&#45;&gt;interface~obl_acc_body</title>
+<path fill="none" stroke="#000000" d="M359.09,-1779.12C397.05,-1775.61 461.7,-1769.63 506.29,-1765.51"/>
+<polygon fill="#000000" stroke="#000000" points="506.69,-1768.98 516.32,-1764.58 506.04,-1762.01 506.69,-1768.98"/>
+</g>
+<!-- proc~rmvs_setup_tp -->
+<g id="call~~graph~~CallGraph_node510" class="node">
+<title>proc~rmvs_setup_tp</title>
+<g id="a_call~~graph~~CallGraph_node510"><a xlink:href=".././proc/rmvs_setup_tp.html" xlink:title="rmvs_setup_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="368.5,-6245 285.5,-6245 285.5,-6221 368.5,-6221 368.5,-6245"/>
+<text text-anchor="middle" x="327" y="-6230.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~discard_tp&#45;&gt;proc~discard_tp -->
+<!-- proc~rmvs_setup_tp&#45;&gt;setup_tp -->
 <g id="call~~graph~~CallGraph_edge470" class="edge">
-<title>interface~discard_tp&#45;&gt;proc~discard_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M128.28,-2344C168.76,-2344 240.64,-2344 285.68,-2344"/>
-<polygon fill="#000000" stroke="#000000" points="285.96,-2347.5 295.96,-2344 285.96,-2340.5 285.96,-2347.5"/>
+<title>proc~rmvs_setup_tp&#45;&gt;setup_tp</title>
+<path fill="none" stroke="#000000" d="M368.58,-6232.82C411.29,-6232.63 477.87,-6232.34 518.83,-6232.16"/>
+<polygon fill="#000000" stroke="#000000" points="518.93,-6235.66 528.91,-6232.11 518.9,-6228.66 518.93,-6235.66"/>
 </g>
-<!-- interface~drift_all&#45;&gt;proc~drift_all -->
+<!-- proc~obl_acc_pl&#45;&gt;interface~obl_acc_body -->
 <g id="call~~graph~~CallGraph_edge471" class="edge">
-<title>interface~drift_all&#45;&gt;proc~drift_all</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M589.53,-5908C632.36,-5908 717.78,-5908 766.42,-5908"/>
-<polygon fill="#000000" stroke="#000000" points="766.5,-5911.5 776.5,-5908 766.5,-5904.5 766.5,-5911.5"/>
+<title>proc~obl_acc_pl&#45;&gt;interface~obl_acc_body</title>
+<path fill="none" stroke="#000000" d="M359.09,-1742.88C397.05,-1746.39 461.7,-1752.37 506.29,-1756.49"/>
+<polygon fill="#000000" stroke="#000000" points="506.04,-1759.99 516.32,-1757.42 506.69,-1753.02 506.04,-1759.99"/>
 </g>
-<!-- interface~drift_body -->
-<g id="call~~graph~~CallGraph_node511" class="node">
-<title>interface~drift_body</title>
-<g id="a_call~~graph~~CallGraph_node511"><a xlink:href=".././interface/drift_body.html" xlink:title="drift_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="127,-5920 67,-5920 67,-5896 127,-5896 127,-5920"/>
-<text text-anchor="middle" x="97" y="-5905.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_body</text>
-</a>
+<!-- io_param_reader -->
+<g id="call~~graph~~CallGraph_node554" class="node">
+<title>io_param_reader</title>
+<polygon fill="#777777" stroke="#777777" points="603.5,-8189 508.5,-8189 508.5,-8165 603.5,-8165 603.5,-8189"/>
+<text text-anchor="middle" x="556" y="-8174.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
 </g>
+<!-- proc~symba_io_param_reader&#45;&gt;io_param_reader -->
+<g id="call~~graph~~CallGraph_edge473" class="edge">
+<title>proc~symba_io_param_reader&#45;&gt;io_param_reader</title>
+<path fill="none" stroke="#000000" d="M393.05,-8147.04C426.27,-8153.18 466.3,-8160.59 498.26,-8166.5"/>
+<polygon fill="#000000" stroke="#000000" points="497.86,-8169.99 508.33,-8168.36 499.13,-8163.1 497.86,-8169.99"/>
 </g>
-<!-- interface~drift_body&#45;&gt;proc~drift_body -->
-<g id="call~~graph~~CallGraph_edge472" class="edge">
-<title>interface~drift_body&#45;&gt;proc~drift_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M127.34,-5908C167.96,-5908 241.42,-5908 286.73,-5908"/>
-<polygon fill="#000000" stroke="#000000" points="286.77,-5911.5 296.77,-5908 286.77,-5904.5 286.77,-5911.5"/>
+<!-- io_get_token -->
+<g id="call~~graph~~CallGraph_node580" class="node">
+<title>io_get_token</title>
+<polygon fill="#777777" stroke="#777777" points="593,-8147 519,-8147 519,-8123 593,-8123 593,-8147"/>
+<text text-anchor="middle" x="556" y="-8132.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
 </g>
-<!-- interface~drift_one -->
-<g id="call~~graph~~CallGraph_node512" class="node">
-<title>interface~drift_one</title>
-<g id="a_call~~graph~~CallGraph_node512"><a xlink:href=".././interface/drift_one.html" xlink:title="drift_one">
-<polygon fill="#a7506f" stroke="#a7506f" points="124.5,-6046 69.5,-6046 69.5,-6022 124.5,-6022 124.5,-6046"/>
-<text text-anchor="middle" x="97" y="-6031.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_one</text>
-</a>
+<!-- proc~symba_io_param_reader&#45;&gt;io_get_token -->
+<g id="call~~graph~~CallGraph_edge474" class="edge">
+<title>proc~symba_io_param_reader&#45;&gt;io_get_token</title>
+<path fill="none" stroke="#000000" d="M393.66,-8135C430.4,-8135 475.34,-8135 508.45,-8135"/>
+<polygon fill="#000000" stroke="#000000" points="508.75,-8138.5 518.75,-8135 508.75,-8131.5 508.75,-8138.5"/>
 </g>
+<!-- io_toupper -->
+<g id="call~~graph~~CallGraph_node594" class="node">
+<title>io_toupper</title>
+<polygon fill="#777777" stroke="#777777" points="588,-8105 524,-8105 524,-8081 588,-8081 588,-8105"/>
+<text text-anchor="middle" x="556" y="-8090.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
 </g>
-<!-- interface~drift_one&#45;&gt;proc~drift_one -->
-<g id="call~~graph~~CallGraph_edge473" class="edge">
-<title>interface~drift_one&#45;&gt;proc~drift_one</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M124.6,-6034C165.25,-6034 242.95,-6034 289.05,-6034"/>
-<polygon fill="#000000" stroke="#000000" points="289.22,-6037.5 299.22,-6034 289.22,-6030.5 289.22,-6037.5"/>
+<!-- proc~symba_io_param_reader&#45;&gt;io_toupper -->
+<g id="call~~graph~~CallGraph_edge472" class="edge">
+<title>proc~symba_io_param_reader&#45;&gt;io_toupper</title>
+<path fill="none" stroke="#000000" d="M393.05,-8122.96C431.99,-8115.76 480.3,-8106.82 513.98,-8100.59"/>
+<polygon fill="#000000" stroke="#000000" points="514.74,-8104.01 523.93,-8098.75 513.46,-8097.13 514.74,-8104.01"/>
 </g>
-<!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd -->
-<g id="call~~graph~~CallGraph_edge475" class="edge">
-<title>proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd</title>
-<path fill="none" stroke="#000000" d="M840.09,-167.09C867.67,-176.16 906.96,-188.44 942,-197 963.48,-202.25 987.53,-206.88 1007.95,-210.44"/>
-<polygon fill="#000000" stroke="#000000" points="1007.51,-213.92 1017.96,-212.15 1008.69,-207.02 1007.51,-213.92"/>
+<!-- io_param_writer -->
+<g id="call~~graph~~CallGraph_node555" class="node">
+<title>io_param_writer</title>
+<polygon fill="#777777" stroke="#777777" points="601,-8231 511,-8231 511,-8207 601,-8207 601,-8231"/>
+<text text-anchor="middle" x="556" y="-8216.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_writer</text>
 </g>
-<!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie -->
-<g id="call~~graph~~CallGraph_edge474" class="edge">
-<title>proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie</title>
-<path fill="none" stroke="#000000" d="M842.62,-158.19C889.03,-162.07 967.09,-168.6 1014.68,-172.59"/>
-<polygon fill="#000000" stroke="#000000" points="1014.68,-176.1 1024.93,-173.44 1015.26,-169.12 1014.68,-176.1"/>
+<!-- proc~symba_io_param_writer&#45;&gt;io_param_writer -->
+<g id="call~~graph~~CallGraph_edge475" class="edge">
+<title>proc~symba_io_param_writer&#45;&gt;io_param_writer</title>
+<path fill="none" stroke="#000000" d="M390.63,-8219C425.09,-8219 467.44,-8219 500.52,-8219"/>
+<polygon fill="#000000" stroke="#000000" points="500.91,-8222.5 510.91,-8219 500.91,-8215.5 500.91,-8222.5"/>
 </g>
-<!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_eget -->
+<!-- interface~rmvs_chk_ind&#45;&gt;proc~rmvs_chk_ind -->
 <g id="call~~graph~~CallGraph_edge476" class="edge">
-<title>proc~orbel_ehybrid&#45;&gt;proc~orbel_eget</title>
-<path fill="none" stroke="#000000" d="M842.62,-151.81C888.87,-147.94 966.56,-141.44 1014.2,-137.46"/>
-<polygon fill="#000000" stroke="#000000" points="1014.5,-140.94 1024.17,-136.62 1013.92,-133.97 1014.5,-140.94"/>
+<title>interface~rmvs_chk_ind&#45;&gt;proc~rmvs_chk_ind</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.67,-7469C633.04,-7469 689.78,-7469 730.23,-7469"/>
+<polygon fill="#000000" stroke="#000000" points="730.4,-7472.5 740.4,-7469 730.4,-7465.5 730.4,-7472.5"/>
 </g>
-<!-- interface~eucl_dist_index_plpl -->
-<g id="call~~graph~~CallGraph_node514" class="node">
-<title>interface~eucl_dist_index_plpl</title>
-<g id="a_call~~graph~~CallGraph_node514"><a xlink:href=".././interface/eucl_dist_index_plpl.html" xlink:title="eucl_dist_index_plpl">
-<polygon fill="#a7506f" stroke="#a7506f" points="151.5,-8210 42.5,-8210 42.5,-8186 151.5,-8186 151.5,-8210"/>
-<text text-anchor="middle" x="97" y="-8195.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl_dist_index_plpl</text>
+<!-- interface~rmvs_encounter_check_tp -->
+<g id="call~~graph~~CallGraph_node516" class="node">
+<title>interface~rmvs_encounter_check_tp</title>
+<g id="a_call~~graph~~CallGraph_node516"><a xlink:href=".././interface/rmvs_encounter_check_tp.html" xlink:title="rmvs_encounter_check_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="166.5,-7502 27.5,-7502 27.5,-7478 166.5,-7478 166.5,-7502"/>
+<text text-anchor="middle" x="97" y="-7487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~eucl_dist_index_plpl&#45;&gt;proc~eucl_dist_index_plpl -->
+<!-- interface~rmvs_encounter_check_tp&#45;&gt;proc~rmvs_encounter_check_tp -->
 <g id="call~~graph~~CallGraph_edge477" class="edge">
-<title>interface~eucl_dist_index_plpl&#45;&gt;proc~eucl_dist_index_plpl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.74,-8198C184.82,-8198 227.38,-8198 262.17,-8198"/>
-<polygon fill="#000000" stroke="#000000" points="262.22,-8201.5 272.22,-8198 262.22,-8194.5 262.22,-8201.5"/>
+<title>interface~rmvs_encounter_check_tp&#45;&gt;proc~rmvs_encounter_check_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.72,-7490C192.07,-7490 220.98,-7490 247.16,-7490"/>
+<polygon fill="#000000" stroke="#000000" points="247.42,-7493.5 257.42,-7490 247.42,-7486.5 247.42,-7493.5"/>
 </g>
-<!-- interface~fragmentation_initialize -->
-<g id="call~~graph~~CallGraph_node515" class="node">
-<title>interface~fragmentation_initialize</title>
-<g id="a_call~~graph~~CallGraph_node515"><a xlink:href=".././interface/fragmentation_initialize.html" xlink:title="fragmentation_initialize">
-<polygon fill="#a7506f" stroke="#a7506f" points="158,-6466 36,-6466 36,-6442 158,-6442 158,-6466"/>
-<text text-anchor="middle" x="97" y="-6451.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
+<!-- interface~rmvs_discard_tp -->
+<g id="call~~graph~~CallGraph_node517" class="node">
+<title>interface~rmvs_discard_tp</title>
+<g id="a_call~~graph~~CallGraph_node517"><a xlink:href=".././interface/rmvs_discard_tp.html" xlink:title="rmvs_discard_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="142.5,-4173 51.5,-4173 51.5,-4149 142.5,-4149 142.5,-4173"/>
+<text text-anchor="middle" x="97" y="-4158.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~fragmentation_initialize&#45;&gt;proc~fragmentation_initialize -->
+<!-- interface~rmvs_discard_tp&#45;&gt;proc~rmvs_discard_tp -->
 <g id="call~~graph~~CallGraph_edge478" class="edge">
-<title>interface~fragmentation_initialize&#45;&gt;proc~fragmentation_initialize</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M158.2,-6454C188.07,-6454 224.34,-6454 255.5,-6454"/>
-<polygon fill="#000000" stroke="#000000" points="255.86,-6457.5 265.86,-6454 255.86,-6450.5 255.86,-6457.5"/>
+<title>interface~rmvs_discard_tp&#45;&gt;proc~rmvs_discard_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.5,-4161C179.26,-4161 231.61,-4161 270.99,-4161"/>
+<polygon fill="#000000" stroke="#000000" points="271.22,-4164.5 281.22,-4161 271.22,-4157.5 271.22,-4164.5"/>
 </g>
-<!-- proc~symba_util_spill_arr_info -->
-<g id="call~~graph~~CallGraph_node516" class="node">
-<title>proc~symba_util_spill_arr_info</title>
-<g id="a_call~~graph~~CallGraph_node516"><a xlink:href=".././proc/symba_util_spill_arr_info.html" xlink:title="symba_util_spill_arr_info">
-<polygon fill="#d9534f" stroke="#d9534f" points="162,-11253 32,-11253 32,-11229 162,-11229 162,-11253"/>
-<text text-anchor="middle" x="97" y="-11238.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_spill_arr_info</text>
+<!-- proc~rmvs_step_system -->
+<g id="call~~graph~~CallGraph_node518" class="node">
+<title>proc~rmvs_step_system</title>
+<g id="a_call~~graph~~CallGraph_node518"><a xlink:href=".././proc/rmvs_step_system.html" xlink:title="rmvs_step_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="831,-5299 729,-5299 729,-5275 831,-5275 831,-5299"/>
+<text text-anchor="middle" x="780" y="-5284.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_system</text>
 </a>
 </g>
 </g>
-<!-- interface~fragmentation_regime -->
-<g id="call~~graph~~CallGraph_node517" class="node">
-<title>interface~fragmentation_regime</title>
-<g id="a_call~~graph~~CallGraph_node517"><a xlink:href=".././interface/fragmentation_regime.html" xlink:title="fragmentation_regime">
-<polygon fill="#a7506f" stroke="#a7506f" points="156,-11169 38,-11169 38,-11145 156,-11145 156,-11169"/>
-<text text-anchor="middle" x="97" y="-11154.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_regime</text>
+<!-- proc~rmvs_interp_out -->
+<g id="call~~graph~~CallGraph_node525" class="node">
+<title>proc~rmvs_interp_out</title>
+<g id="a_call~~graph~~CallGraph_node525"><a xlink:href=".././proc/rmvs_interp_out.html" xlink:title="rmvs_interp_out">
+<polygon fill="#d9534f" stroke="#d9534f" points="1055.5,-5299 965.5,-5299 965.5,-5275 1055.5,-5275 1055.5,-5299"/>
+<text text-anchor="middle" x="1010.5" y="-5284.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp_out</text>
 </a>
 </g>
 </g>
-<!-- interface~fragmentation_regime&#45;&gt;proc~fragmentation_regime -->
-<g id="call~~graph~~CallGraph_edge479" class="edge">
-<title>interface~fragmentation_regime&#45;&gt;proc~fragmentation_regime</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-11157C187.08,-11157 225.33,-11157 257.7,-11157"/>
-<polygon fill="#000000" stroke="#000000" points="257.98,-11160.5 267.98,-11157 257.98,-11153.5 257.98,-11160.5"/>
+<!-- proc~rmvs_step_system&#45;&gt;proc~rmvs_interp_out -->
+<g id="call~~graph~~CallGraph_edge480" class="edge">
+<title>proc~rmvs_step_system&#45;&gt;proc~rmvs_interp_out</title>
+<path fill="none" stroke="#000000" d="M831.15,-5287C867.77,-5287 917.39,-5287 955,-5287"/>
+<polygon fill="#000000" stroke="#000000" points="955.26,-5290.5 965.26,-5287 955.26,-5283.5 955.26,-5290.5"/>
 </g>
-<!-- interface~gr_kick_getaccb_ns_body -->
-<g id="call~~graph~~CallGraph_node518" class="node">
-<title>interface~gr_kick_getaccb_ns_body</title>
-<g id="a_call~~graph~~CallGraph_node518"><a xlink:href=".././interface/gr_kick_getaccb_ns_body.html" xlink:title="gr_kick_getaccb_ns_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="165,-7748 29,-7748 29,-7724 165,-7724 165,-7748"/>
-<text text-anchor="middle" x="97" y="-7733.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_kick_getaccb_ns_body</text>
+<!-- proc~rmvs_step_out -->
+<g id="call~~graph~~CallGraph_node527" class="node">
+<title>proc~rmvs_step_out</title>
+<g id="a_call~~graph~~CallGraph_node527"><a xlink:href=".././proc/rmvs_step_out.html" xlink:title="rmvs_step_out">
+<polygon fill="#d9534f" stroke="#d9534f" points="1052,-5341 969,-5341 969,-5317 1052,-5317 1052,-5341"/>
+<text text-anchor="middle" x="1010.5" y="-5326.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_out</text>
 </a>
 </g>
 </g>
-<!-- interface~gr_kick_getaccb_ns_body&#45;&gt;proc~gr_kick_getaccb_ns_body -->
-<g id="call~~graph~~CallGraph_edge480" class="edge">
-<title>interface~gr_kick_getaccb_ns_body&#45;&gt;proc~gr_kick_getaccb_ns_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M165.17,-7736C191.38,-7736 221.58,-7736 248.69,-7736"/>
-<polygon fill="#000000" stroke="#000000" points="248.91,-7739.5 258.91,-7736 248.91,-7732.5 248.91,-7739.5"/>
+<!-- proc~rmvs_step_system&#45;&gt;proc~rmvs_step_out -->
+<g id="call~~graph~~CallGraph_edge481" class="edge">
+<title>proc~rmvs_step_system&#45;&gt;proc~rmvs_step_out</title>
+<path fill="none" stroke="#000000" d="M831.15,-5296.22C869.13,-5303.2 921.1,-5312.75 959.14,-5319.74"/>
+<polygon fill="#000000" stroke="#000000" points="958.52,-5323.19 968.98,-5321.55 959.78,-5316.3 958.52,-5323.19"/>
 </g>
-<!-- interface~gr_kick_getacch -->
+<!-- proc~rmvs_step_system&#45;&gt;whm_step_system -->
+<g id="call~~graph~~CallGraph_edge479" class="edge">
+<title>proc~rmvs_step_system&#45;&gt;whm_step_system</title>
+<path fill="none" stroke="#000000" d="M792.31,-5274.79C810.51,-5254.76 846.82,-5213.21 872,-5174 891.33,-5143.89 879.64,-5123.81 908,-5102 919.94,-5092.82 934.92,-5087.4 949.67,-5084.26"/>
+<polygon fill="#000000" stroke="#000000" points="950.59,-5087.65 959.81,-5082.43 949.35,-5080.76 950.59,-5087.65"/>
+</g>
+<!-- interface~rmvs_kick_getacch_tp -->
 <g id="call~~graph~~CallGraph_node519" class="node">
-<title>interface~gr_kick_getacch</title>
-<g id="a_call~~graph~~CallGraph_node519"><a xlink:href=".././interface/gr_kick_getacch.html" xlink:title="gr_kick_getacch">
-<polygon fill="#a7506f" stroke="#a7506f" points="142,-8084 52,-8084 52,-8060 142,-8060 142,-8084"/>
-<text text-anchor="middle" x="97" y="-8069.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_kick_getacch</text>
+<title>interface~rmvs_kick_getacch_tp</title>
+<g id="a_call~~graph~~CallGraph_node519"><a xlink:href=".././interface/rmvs_kick_getacch_tp.html" xlink:title="rmvs_kick_getacch_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="156,-11339 38,-11339 38,-11315 156,-11315 156,-11339"/>
+<text text-anchor="middle" x="97" y="-11324.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick_getacch_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~gr_kick_getacch&#45;&gt;proc~gr_kick_getacch -->
-<g id="call~~graph~~CallGraph_edge481" class="edge">
-<title>interface~gr_kick_getacch&#45;&gt;proc~gr_kick_getacch</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.23,-8072C179.28,-8072 232.3,-8072 271.88,-8072"/>
-<polygon fill="#000000" stroke="#000000" points="271.89,-8075.5 281.89,-8072 271.89,-8068.5 271.89,-8075.5"/>
+<!-- interface~rmvs_kick_getacch_tp&#45;&gt;proc~rmvs_kick_getacch_tp -->
+<g id="call~~graph~~CallGraph_edge482" class="edge">
+<title>interface~rmvs_kick_getacch_tp&#45;&gt;proc~rmvs_kick_getacch_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.12,-11327C187.08,-11327 225.33,-11327 257.7,-11327"/>
+<polygon fill="#000000" stroke="#000000" points="257.98,-11330.5 267.98,-11327 257.98,-11323.5 257.98,-11330.5"/>
 </g>
-<!-- interface~gr_p4_pos_kick -->
+<!-- interface~rmvs_setup_pl -->
 <g id="call~~graph~~CallGraph_node520" class="node">
-<title>interface~gr_p4_pos_kick</title>
-<g id="a_call~~graph~~CallGraph_node520"><a xlink:href=".././interface/gr_p4_pos_kick.html" xlink:title="gr_p4_pos_kick">
-<polygon fill="#a7506f" stroke="#a7506f" points="141,-8042 53,-8042 53,-8018 141,-8018 141,-8042"/>
-<text text-anchor="middle" x="97" y="-8027.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_p4_pos_kick</text>
+<title>interface~rmvs_setup_pl</title>
+<g id="a_call~~graph~~CallGraph_node520"><a xlink:href=".././interface/rmvs_setup_pl.html" xlink:title="rmvs_setup_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="138,-11381 56,-11381 56,-11357 138,-11357 138,-11381"/>
+<text text-anchor="middle" x="97" y="-11366.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~gr_p4_pos_kick&#45;&gt;proc~gr_p4_pos_kick -->
-<g id="call~~graph~~CallGraph_edge482" class="edge">
-<title>interface~gr_p4_pos_kick&#45;&gt;proc~gr_p4_pos_kick</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.15,-8030C178.44,-8030 232.49,-8030 272.52,-8030"/>
-<polygon fill="#000000" stroke="#000000" points="272.64,-8033.5 282.64,-8030 272.64,-8026.5 272.64,-8033.5"/>
+<!-- interface~rmvs_setup_pl&#45;&gt;proc~rmvs_setup_pl -->
+<g id="call~~graph~~CallGraph_edge483" class="edge">
+<title>interface~rmvs_setup_pl&#45;&gt;proc~rmvs_setup_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.24,-11369C176.54,-11369 234.31,-11369 275.65,-11369"/>
+<polygon fill="#000000" stroke="#000000" points="275.78,-11372.5 285.78,-11369 275.78,-11365.5 275.78,-11372.5"/>
 </g>
-<!-- interface~gr_pseudovel2vel -->
+<!-- interface~rmvs_setup_initialize_system -->
 <g id="call~~graph~~CallGraph_node521" class="node">
-<title>interface~gr_pseudovel2vel</title>
-<g id="a_call~~graph~~CallGraph_node521"><a xlink:href=".././interface/gr_pseudovel2vel.html" xlink:title="gr_pseudovel2vel">
-<polygon fill="#a7506f" stroke="#a7506f" points="145.5,-8168 48.5,-8168 48.5,-8144 145.5,-8144 145.5,-8168"/>
-<text text-anchor="middle" x="97" y="-8153.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_pseudovel2vel</text>
+<title>interface~rmvs_setup_initialize_system</title>
+<g id="a_call~~graph~~CallGraph_node521"><a xlink:href=".././interface/rmvs_setup_initialize_system.html" xlink:title="rmvs_setup_initialize_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="172.5,-4987 21.5,-4987 21.5,-4963 172.5,-4963 172.5,-4987"/>
+<text text-anchor="middle" x="97" y="-4972.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_initialize_system</text>
 </a>
 </g>
 </g>
-<!-- interface~gr_pseudovel2vel&#45;&gt;proc~gr_pseudovel2vel -->
-<g id="call~~graph~~CallGraph_edge483" class="edge">
-<title>interface~gr_pseudovel2vel&#45;&gt;proc~gr_pseudovel2vel</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.52,-8156C181.07,-8156 229.87,-8156 267.77,-8156"/>
-<polygon fill="#000000" stroke="#000000" points="268.15,-8159.5 278.15,-8156 268.15,-8152.5 268.15,-8159.5"/>
+<!-- interface~rmvs_setup_initialize_system&#45;&gt;proc~rmvs_setup_initialize_system -->
+<g id="call~~graph~~CallGraph_edge484" class="edge">
+<title>interface~rmvs_setup_initialize_system&#45;&gt;proc~rmvs_setup_initialize_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M172.66,-4975C194.5,-4975 218.55,-4975 240.99,-4975"/>
+<polygon fill="#000000" stroke="#000000" points="241.18,-4978.5 251.18,-4975 241.18,-4971.5 241.18,-4978.5"/>
 </g>
-<!-- interface~gr_pv2vh_body -->
+<!-- interface~rmvs_setup_tp -->
 <g id="call~~graph~~CallGraph_node522" class="node">
-<title>interface~gr_pv2vh_body</title>
-<g id="a_call~~graph~~CallGraph_node522"><a xlink:href=".././interface/gr_pv2vh_body.html" xlink:title="gr_pv2vh_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="140,-8126 54,-8126 54,-8102 140,-8102 140,-8126"/>
-<text text-anchor="middle" x="97" y="-8111.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_pv2vh_body</text>
+<title>interface~rmvs_setup_tp</title>
+<g id="a_call~~graph~~CallGraph_node522"><a xlink:href=".././interface/rmvs_setup_tp.html" xlink:title="rmvs_setup_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="138.5,-6245 55.5,-6245 55.5,-6221 138.5,-6221 138.5,-6245"/>
+<text text-anchor="middle" x="97" y="-6230.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~gr_pv2vh_body&#45;&gt;proc~gr_pv2vh_body -->
-<g id="call~~graph~~CallGraph_edge484" class="edge">
-<title>interface~gr_pv2vh_body&#45;&gt;proc~gr_pv2vh_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.08,-8114C177.73,-8114 233.05,-8114 273.55,-8114"/>
-<polygon fill="#000000" stroke="#000000" points="273.78,-8117.5 283.78,-8114 273.78,-8110.5 273.78,-8117.5"/>
-</g>
-<!-- proc~symba_util_spill_tp&#45;&gt;interface~util_spill -->
+<!-- interface~rmvs_setup_tp&#45;&gt;proc~rmvs_setup_tp -->
 <g id="call~~graph~~CallGraph_edge485" class="edge">
-<title>proc~symba_util_spill_tp&#45;&gt;interface~util_spill</title>
-<path fill="none" stroke="#000000" d="M855.29,-739C903.99,-739 976.29,-739 1019.38,-739"/>
-<polygon fill="#000000" stroke="#000000" points="1019.41,-742.5 1029.41,-739 1019.41,-735.5 1019.41,-742.5"/>
-</g>
-<!-- proc~symba_util_spill_tp&#45;&gt;util_spill_tp -->
-<g id="call~~graph~~CallGraph_edge486" class="edge">
-<title>proc~symba_util_spill_tp&#45;&gt;util_spill_tp</title>
-<path fill="none" stroke="#000000" d="M855.29,-747.5C901.97,-755.31 970.34,-766.75 1013.87,-774.03"/>
-<polygon fill="#000000" stroke="#000000" points="1013.4,-777.5 1023.84,-775.7 1014.55,-770.6 1013.4,-777.5"/>
-</g>
-<!-- proc~symba_util_spill_tp&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge487" class="edge">
-<title>proc~symba_util_spill_tp&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M855.09,-737.55C873.68,-739.76 893.27,-745.8 906,-760 962.32,-822.83 885.02,-1075.77 942,-1138 961.15,-1158.91 993.81,-1163.12 1019.19,-1162.71"/>
-<polygon fill="#000000" stroke="#000000" points="1019.36,-1166.2 1029.21,-1162.3 1019.08,-1159.21 1019.36,-1166.2"/>
+<title>interface~rmvs_setup_tp&#45;&gt;proc~rmvs_setup_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M138.76,-6233C176.9,-6233 234.01,-6233 275.12,-6233"/>
+<polygon fill="#000000" stroke="#000000" points="275.21,-6236.5 285.21,-6233 275.21,-6229.5 275.21,-6236.5"/>
 </g>
-<!-- interface~gr_vel2pseudovel -->
+<!-- interface~rmvs_util_append_pl -->
 <g id="call~~graph~~CallGraph_node524" class="node">
-<title>interface~gr_vel2pseudovel</title>
-<g id="a_call~~graph~~CallGraph_node524"><a xlink:href=".././interface/gr_vel2pseudovel.html" xlink:title="gr_vel2pseudovel">
-<polygon fill="#a7506f" stroke="#a7506f" points="145.5,-280 48.5,-280 48.5,-256 145.5,-256 145.5,-280"/>
-<text text-anchor="middle" x="97" y="-265.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_vel2pseudovel</text>
+<title>interface~rmvs_util_append_pl</title>
+<g id="a_call~~graph~~CallGraph_node524"><a xlink:href=".././interface/rmvs_util_append_pl.html" xlink:title="rmvs_util_append_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="1066.5,-4845 954.5,-4845 954.5,-4821 1066.5,-4821 1066.5,-4845"/>
+<text text-anchor="middle" x="1010.5" y="-4830.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~gr_vel2pseudovel&#45;&gt;proc~gr_vel2pseudovel -->
-<g id="call~~graph~~CallGraph_edge488" class="edge">
-<title>interface~gr_vel2pseudovel&#45;&gt;proc~gr_vel2pseudovel</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.52,-268C181.07,-268 229.87,-268 267.77,-268"/>
-<polygon fill="#000000" stroke="#000000" points="268.15,-271.5 278.15,-268 268.15,-264.5 268.15,-271.5"/>
-</g>
-<!-- proc~rmvs_util_append_pl&#45;&gt;util_append -->
-<g id="call~~graph~~CallGraph_edge489" class="edge">
-<title>proc~rmvs_util_append_pl&#45;&gt;util_append</title>
-<path fill="none" stroke="#000000" d="M859.58,-1557.78C905.58,-1550.09 970.23,-1539.27 1012.48,-1532.2"/>
-<polygon fill="#000000" stroke="#000000" points="1013.17,-1535.63 1022.46,-1530.53 1012.02,-1528.73 1013.17,-1535.63"/>
-</g>
-<!-- proc~rmvs_util_append_pl&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge490" class="edge">
-<title>proc~rmvs_util_append_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M859.52,-1566.91C876.4,-1564.17 893.74,-1558.17 906,-1546 960.19,-1492.2 916.2,-1449.87 942,-1378 969.47,-1301.46 1018.65,-1217.96 1042.2,-1179.95"/>
-<polygon fill="#000000" stroke="#000000" points="1045.28,-1181.63 1047.61,-1171.3 1039.34,-1177.92 1045.28,-1181.63"/>
-</g>
-<!-- whm_util_append_pl -->
-<g id="call~~graph~~CallGraph_node599" class="node">
-<title>whm_util_append_pl</title>
-<polygon fill="#777777" stroke="#777777" points="1112,-1579 1001,-1579 1001,-1555 1112,-1555 1112,-1579"/>
-<text text-anchor="middle" x="1056.5" y="-1564.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_append_pl</text>
+<!-- interface~rmvs_util_append_pl&#45;&gt;proc~rmvs_util_append_pl -->
+<g id="call~~graph~~CallGraph_edge486" class="edge">
+<title>interface~rmvs_util_append_pl&#45;&gt;proc~rmvs_util_append_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1066.63,-4833C1101.91,-4833 1147.87,-4833 1185.01,-4833"/>
+<polygon fill="#000000" stroke="#000000" points="1185.23,-4836.5 1195.23,-4833 1185.23,-4829.5 1185.23,-4836.5"/>
 </g>
-<!-- proc~rmvs_util_append_pl&#45;&gt;whm_util_append_pl -->
-<g id="call~~graph~~CallGraph_edge491" class="edge">
-<title>proc~rmvs_util_append_pl&#45;&gt;whm_util_append_pl</title>
-<path fill="none" stroke="#000000" d="M859.58,-1567C898.3,-1567 950.23,-1567 990.9,-1567"/>
-<polygon fill="#000000" stroke="#000000" points="990.98,-1570.5 1000.98,-1567 990.98,-1563.5 990.98,-1570.5"/>
+<!-- proc~rmvs_interp_out&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge487" class="edge">
+<title>proc~rmvs_interp_out&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1055.7,-5280.33C1145.42,-5266.65 1341.51,-5236.05 1354,-5228 1377.94,-5212.58 1369.43,-5194.69 1390,-5175 1413.18,-5152.82 1444.53,-5134.13 1468.41,-5121.67"/>
+<polygon fill="#000000" stroke="#000000" points="1470.17,-5124.7 1477.49,-5117.03 1466.99,-5118.46 1470.17,-5124.7"/>
 </g>
-<!-- interface~gr_vh2pv_body -->
-<g id="call~~graph~~CallGraph_node526" class="node">
-<title>interface~gr_vh2pv_body</title>
-<g id="a_call~~graph~~CallGraph_node526"><a xlink:href=".././interface/gr_vh2pv_body.html" xlink:title="gr_vh2pv_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="140,-1857 54,-1857 54,-1833 140,-1833 140,-1857"/>
-<text text-anchor="middle" x="97" y="-1842.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr_vh2pv_body</text>
+<!-- proc~rmvs_interp_in -->
+<g id="call~~graph~~CallGraph_node541" class="node">
+<title>proc~rmvs_interp_in</title>
+<g id="a_call~~graph~~CallGraph_node541"><a xlink:href=".././proc/rmvs_interp_in.html" xlink:title="rmvs_interp_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="1293,-5299 1210,-5299 1210,-5275 1293,-5275 1293,-5299"/>
+<text text-anchor="middle" x="1251.5" y="-5284.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp_in</text>
 </a>
 </g>
 </g>
-<!-- interface~gr_vh2pv_body&#45;&gt;proc~gr_vh2pv_body -->
-<g id="call~~graph~~CallGraph_edge492" class="edge">
-<title>interface~gr_vh2pv_body&#45;&gt;proc~gr_vh2pv_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.08,-1845C177.73,-1845 233.05,-1845 273.55,-1845"/>
-<polygon fill="#000000" stroke="#000000" points="273.78,-1848.5 283.78,-1845 273.78,-1841.5 273.78,-1848.5"/>
+<!-- proc~rmvs_step_out&#45;&gt;proc~rmvs_interp_in -->
+<g id="call~~graph~~CallGraph_edge488" class="edge">
+<title>proc~rmvs_step_out&#45;&gt;proc~rmvs_interp_in</title>
+<path fill="none" stroke="#000000" d="M1052.04,-5321.88C1092.82,-5314.71 1155.79,-5303.64 1199.83,-5295.9"/>
+<polygon fill="#000000" stroke="#000000" points="1200.51,-5299.34 1209.76,-5294.16 1199.3,-5292.44 1200.51,-5299.34"/>
 </g>
-<!-- interface~io_conservation_report -->
-<g id="call~~graph~~CallGraph_node527" class="node">
-<title>interface~io_conservation_report</title>
-<g id="a_call~~graph~~CallGraph_node527"><a xlink:href=".././interface/io_conservation_report.html" xlink:title="io_conservation_report">
-<polygon fill="#a7506f" stroke="#a7506f" points="158,-10833 36,-10833 36,-10809 158,-10809 158,-10833"/>
-<text text-anchor="middle" x="97" y="-10818.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_conservation_report</text>
+<!-- proc~rmvs_step_in -->
+<g id="call~~graph~~CallGraph_node550" class="node">
+<title>proc~rmvs_step_in</title>
+<g id="a_call~~graph~~CallGraph_node550"><a xlink:href=".././proc/rmvs_step_in.html" xlink:title="rmvs_step_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="1289.5,-5425 1213.5,-5425 1213.5,-5401 1289.5,-5401 1289.5,-5425"/>
+<text text-anchor="middle" x="1251.5" y="-5410.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_in</text>
 </a>
 </g>
 </g>
-<!-- interface~io_conservation_report&#45;&gt;proc~io_conservation_report -->
-<g id="call~~graph~~CallGraph_edge493" class="edge">
-<title>interface~io_conservation_report&#45;&gt;proc~io_conservation_report</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M158.2,-10821C188.07,-10821 224.34,-10821 255.5,-10821"/>
-<polygon fill="#000000" stroke="#000000" points="255.86,-10824.5 265.86,-10821 255.86,-10817.5 255.86,-10824.5"/>
+<!-- proc~rmvs_step_out&#45;&gt;proc~rmvs_step_in -->
+<g id="call~~graph~~CallGraph_edge489" class="edge">
+<title>proc~rmvs_step_out&#45;&gt;proc~rmvs_step_in</title>
+<path fill="none" stroke="#000000" d="M1052.24,-5331.32C1071.72,-5333.9 1094.71,-5339.21 1113,-5350 1134.17,-5362.49 1127.83,-5379.51 1149,-5392 1165.27,-5401.6 1185.26,-5406.86 1203.19,-5409.72"/>
+<polygon fill="#000000" stroke="#000000" points="1202.8,-5413.2 1213.18,-5411.11 1203.76,-5406.27 1202.8,-5413.2"/>
 </g>
-<!-- interface~io_dump_param -->
+<!-- interface~rmvs_util_append_tp -->
 <g id="call~~graph~~CallGraph_node528" class="node">
-<title>interface~io_dump_param</title>
-<g id="a_call~~graph~~CallGraph_node528"><a xlink:href=".././interface/io_dump_param.html" xlink:title="io_dump_param">
-<polygon fill="#a7506f" stroke="#a7506f" points="608,-3479 517,-3479 517,-3455 608,-3455 608,-3479"/>
-<text text-anchor="middle" x="562.5" y="-3464.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_param</text>
+<title>interface~rmvs_util_append_tp</title>
+<g id="a_call~~graph~~CallGraph_node528"><a xlink:href=".././interface/rmvs_util_append_tp.html" xlink:title="rmvs_util_append_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="1066.5,-4803 954.5,-4803 954.5,-4779 1066.5,-4779 1066.5,-4803"/>
+<text text-anchor="middle" x="1010.5" y="-4788.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_append_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~io_dump_param&#45;&gt;proc~io_dump_param -->
-<g id="call~~graph~~CallGraph_edge494" class="edge">
-<title>interface~io_dump_param&#45;&gt;proc~io_dump_param</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.17,-3467C647.62,-3467 705.26,-3467 747.52,-3467"/>
-<polygon fill="#000000" stroke="#000000" points="747.64,-3470.5 757.64,-3467 747.64,-3463.5 747.64,-3470.5"/>
+<!-- interface~rmvs_util_append_tp&#45;&gt;proc~rmvs_util_append_tp -->
+<g id="call~~graph~~CallGraph_edge490" class="edge">
+<title>interface~rmvs_util_append_tp&#45;&gt;proc~rmvs_util_append_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1066.63,-4791C1101.91,-4791 1147.87,-4791 1185.01,-4791"/>
+<polygon fill="#000000" stroke="#000000" points="1185.23,-4794.5 1195.23,-4791 1185.23,-4787.5 1185.23,-4794.5"/>
 </g>
-<!-- interface~util_solve_rkf45 -->
-<g id="call~~graph~~CallGraph_node529" class="node">
-<title>interface~util_solve_rkf45</title>
-<g id="a_call~~graph~~CallGraph_node529"><a xlink:href=".././interface/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
-<polygon fill="#a7506f" stroke="#a7506f" points="606,-3353 519,-3353 519,-3329 606,-3329 606,-3353"/>
-<text text-anchor="middle" x="562.5" y="-3338.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_rkf45</text>
+<!-- interface~rmvs_util_fill_pl -->
+<g id="call~~graph~~CallGraph_node530" class="node">
+<title>interface~rmvs_util_fill_pl</title>
+<g id="a_call~~graph~~CallGraph_node530"><a xlink:href=".././interface/rmvs_util_fill_pl.html" xlink:title="rmvs_util_fill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="1053,-5719 968,-5719 968,-5695 1053,-5695 1053,-5719"/>
+<text text-anchor="middle" x="1010.5" y="-5704.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_fill_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~util_solve_rkf45&#45;&gt;proc~util_solve_rkf45 -->
-<g id="call~~graph~~CallGraph_edge495" class="edge">
-<title>interface~util_solve_rkf45&#45;&gt;proc~util_solve_rkf45</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.23,-3341C646.38,-3341 706.58,-3341 749.71,-3341"/>
-<polygon fill="#000000" stroke="#000000" points="749.74,-3344.5 759.74,-3341 749.74,-3337.5 749.74,-3344.5"/>
-</g>
-<!-- proc~symba_util_spill_pl&#45;&gt;interface~util_spill -->
-<g id="call~~graph~~CallGraph_edge496" class="edge">
-<title>proc~symba_util_spill_pl&#45;&gt;interface~util_spill</title>
-<path fill="none" stroke="#000000" d="M854.69,-772.6C903.33,-764.46 975.91,-752.32 1019.2,-745.07"/>
-<polygon fill="#000000" stroke="#000000" points="1019.99,-748.49 1029.28,-743.39 1018.83,-741.59 1019.99,-748.49"/>
-</g>
-<!-- proc~symba_util_spill_pl&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge497" class="edge">
-<title>proc~symba_util_spill_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M854.74,-779.6C873.39,-781.79 893.12,-787.81 906,-802 1006.91,-913.24 839.92,-1027.83 942,-1138 961.27,-1158.8 993.92,-1163.02 1019.26,-1162.64"/>
-<polygon fill="#000000" stroke="#000000" points="1019.41,-1166.13 1029.27,-1162.25 1019.14,-1159.14 1019.41,-1166.13"/>
-</g>
-<!-- proc~symba_util_spill_pl&#45;&gt;util_spill_pl -->
-<g id="call~~graph~~CallGraph_edge498" class="edge">
-<title>proc~symba_util_spill_pl&#45;&gt;util_spill_pl</title>
-<path fill="none" stroke="#000000" d="M854.69,-789.4C901.58,-797.24 970.71,-808.81 1014.41,-816.12"/>
-<polygon fill="#000000" stroke="#000000" points="1013.96,-819.6 1024.4,-817.8 1015.12,-812.69 1013.96,-819.6"/>
+<!-- interface~rmvs_util_fill_pl&#45;&gt;proc~rmvs_util_fill_pl -->
+<g id="call~~graph~~CallGraph_edge491" class="edge">
+<title>interface~rmvs_util_fill_pl&#45;&gt;proc~rmvs_util_fill_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1053.13,-5707C1093.62,-5707 1155.23,-5707 1198.83,-5707"/>
+<polygon fill="#000000" stroke="#000000" points="1198.95,-5710.5 1208.95,-5707 1198.95,-5703.5 1198.95,-5710.5"/>
 </g>
-<!-- interface~io_dump_swiftest -->
+<!-- interface~rmvs_util_fill_tp -->
 <g id="call~~graph~~CallGraph_node531" class="node">
-<title>interface~io_dump_swiftest</title>
-<g id="a_call~~graph~~CallGraph_node531"><a xlink:href=".././interface/io_dump_swiftest.html" xlink:title="io_dump_swiftest">
-<polygon fill="#a7506f" stroke="#a7506f" points="610,-3059 515,-3059 515,-3035 610,-3035 610,-3059"/>
-<text text-anchor="middle" x="562.5" y="-3044.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_swiftest</text>
+<title>interface~rmvs_util_fill_tp</title>
+<g id="a_call~~graph~~CallGraph_node531"><a xlink:href=".././interface/rmvs_util_fill_tp.html" xlink:title="rmvs_util_fill_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="1053.5,-5593 967.5,-5593 967.5,-5569 1053.5,-5569 1053.5,-5593"/>
+<text text-anchor="middle" x="1010.5" y="-5578.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_fill_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest -->
-<g id="call~~graph~~CallGraph_edge499" class="edge">
-<title>interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.15,-3047C648.97,-3047 704.38,-3047 745.77,-3047"/>
-<polygon fill="#000000" stroke="#000000" points="745.97,-3050.5 755.97,-3047 745.97,-3043.5 745.97,-3050.5"/>
+<!-- interface~rmvs_util_fill_tp&#45;&gt;proc~rmvs_util_fill_tp -->
+<g id="call~~graph~~CallGraph_edge492" class="edge">
+<title>interface~rmvs_util_fill_tp&#45;&gt;proc~rmvs_util_fill_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1053.68,-5581C1094,-5581 1154.9,-5581 1198.27,-5581"/>
+<polygon fill="#000000" stroke="#000000" points="1198.34,-5584.5 1208.34,-5581 1198.34,-5577.5 1198.34,-5584.5"/>
 </g>
-<!-- interface~io_dump_system -->
+<!-- interface~rmvs_util_resize_pl -->
 <g id="call~~graph~~CallGraph_node532" class="node">
-<title>interface~io_dump_system</title>
-<g id="a_call~~graph~~CallGraph_node532"><a xlink:href=".././interface/io_dump_system.html" xlink:title="io_dump_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="144,-10077 50,-10077 50,-10053 144,-10053 144,-10077"/>
-<text text-anchor="middle" x="97" y="-10062.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_system</text>
+<title>interface~rmvs_util_resize_pl</title>
+<g id="a_call~~graph~~CallGraph_node532"><a xlink:href=".././interface/rmvs_util_resize_pl.html" xlink:title="rmvs_util_resize_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="608,-6372 504,-6372 504,-6348 608,-6348 608,-6372"/>
+<text text-anchor="middle" x="556" y="-6357.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_resize_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~io_dump_system&#45;&gt;proc~io_dump_system -->
-<g id="call~~graph~~CallGraph_edge500" class="edge">
-<title>interface~io_dump_system&#45;&gt;proc~io_dump_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.14,-10065C180.45,-10065 231.21,-10065 269.87,-10065"/>
-<polygon fill="#000000" stroke="#000000" points="269.93,-10068.5 279.93,-10065 269.93,-10061.5 269.93,-10068.5"/>
+<!-- interface~rmvs_util_resize_pl&#45;&gt;proc~rmvs_util_resize_pl -->
+<g id="call~~graph~~CallGraph_edge493" class="edge">
+<title>interface~rmvs_util_resize_pl&#45;&gt;proc~rmvs_util_resize_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.21,-6360C640.7,-6360 682.94,-6360 717.28,-6360"/>
+<polygon fill="#000000" stroke="#000000" points="717.66,-6363.5 727.66,-6360 717.66,-6356.5 717.66,-6363.5"/>
 </g>
-<!-- interface~io_param_reader -->
+<!-- interface~rmvs_util_resize_tp -->
 <g id="call~~graph~~CallGraph_node533" class="node">
-<title>interface~io_param_reader</title>
-<g id="a_call~~graph~~CallGraph_node533"><a xlink:href=".././interface/io_param_reader.html" xlink:title="io_param_reader">
-<polygon fill="#a7506f" stroke="#a7506f" points="610,-2965 515,-2965 515,-2941 610,-2941 610,-2965"/>
-<text text-anchor="middle" x="562.5" y="-2950.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
+<title>interface~rmvs_util_resize_tp</title>
+<g id="a_call~~graph~~CallGraph_node533"><a xlink:href=".././interface/rmvs_util_resize_tp.html" xlink:title="rmvs_util_resize_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="608.5,-6414 503.5,-6414 503.5,-6390 608.5,-6390 608.5,-6414"/>
+<text text-anchor="middle" x="556" y="-6399.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_resize_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~io_param_reader&#45;&gt;proc~io_param_reader -->
-<g id="call~~graph~~CallGraph_edge501" class="edge">
-<title>interface~io_param_reader&#45;&gt;proc~io_param_reader</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.15,-2953C648.97,-2953 704.38,-2953 745.77,-2953"/>
-<polygon fill="#000000" stroke="#000000" points="745.97,-2956.5 755.97,-2953 745.97,-2949.5 745.97,-2956.5"/>
+<!-- interface~rmvs_util_resize_tp&#45;&gt;proc~rmvs_util_resize_tp -->
+<g id="call~~graph~~CallGraph_edge494" class="edge">
+<title>interface~rmvs_util_resize_tp&#45;&gt;proc~rmvs_util_resize_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-6402C641.05,-6402 682.78,-6402 716.84,-6402"/>
+<polygon fill="#000000" stroke="#000000" points="717.15,-6405.5 727.15,-6402 717.15,-6398.5 717.15,-6405.5"/>
 </g>
-<!-- interface~io_param_writer -->
+<!-- interface~rmvs_util_sort_pl -->
 <g id="call~~graph~~CallGraph_node534" class="node">
-<title>interface~io_param_writer</title>
-<g id="a_call~~graph~~CallGraph_node534"><a xlink:href=".././interface/io_param_writer.html" xlink:title="io_param_writer">
-<polygon fill="#a7506f" stroke="#a7506f" points="142,-10455 52,-10455 52,-10431 142,-10431 142,-10455"/>
-<text text-anchor="middle" x="97" y="-10440.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_writer</text>
+<title>interface~rmvs_util_sort_pl</title>
+<g id="a_call~~graph~~CallGraph_node534"><a xlink:href=".././interface/rmvs_util_sort_pl.html" xlink:title="rmvs_util_sort_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="144,-10037 50,-10037 50,-10013 144,-10013 144,-10037"/>
+<text text-anchor="middle" x="97" y="-10022.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~io_param_writer&#45;&gt;proc~io_param_writer -->
-<g id="call~~graph~~CallGraph_edge502" class="edge">
-<title>interface~io_param_writer&#45;&gt;proc~io_param_writer</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.23,-10443C179.28,-10443 232.3,-10443 271.88,-10443"/>
-<polygon fill="#000000" stroke="#000000" points="271.89,-10446.5 281.89,-10443 271.89,-10439.5 271.89,-10446.5"/>
+<!-- interface~rmvs_util_sort_pl&#45;&gt;proc~rmvs_util_sort_pl -->
+<g id="call~~graph~~CallGraph_edge495" class="edge">
+<title>interface~rmvs_util_sort_pl&#45;&gt;proc~rmvs_util_sort_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.14,-10025C180.45,-10025 231.21,-10025 269.87,-10025"/>
+<polygon fill="#000000" stroke="#000000" points="269.93,-10028.5 279.93,-10025 269.93,-10021.5 269.93,-10028.5"/>
 </g>
-<!-- interface~io_read_body_in -->
+<!-- interface~rmvs_util_sort_tp -->
 <g id="call~~graph~~CallGraph_node535" class="node">
-<title>interface~io_read_body_in</title>
-<g id="a_call~~graph~~CallGraph_node535"><a xlink:href=".././interface/io_read_body_in.html" xlink:title="io_read_body_in">
-<polygon fill="#a7506f" stroke="#a7506f" points="608.5,-3143 516.5,-3143 516.5,-3119 608.5,-3119 608.5,-3143"/>
-<text text-anchor="middle" x="562.5" y="-3128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_body_in</text>
+<title>interface~rmvs_util_sort_tp</title>
+<g id="a_call~~graph~~CallGraph_node535"><a xlink:href=".././interface/rmvs_util_sort_tp.html" xlink:title="rmvs_util_sort_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="144,-8483 50,-8483 50,-8459 144,-8459 144,-8483"/>
+<text text-anchor="middle" x="97" y="-8468.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_body_in&#45;&gt;proc~io_read_body_in -->
-<g id="call~~graph~~CallGraph_edge503" class="edge">
-<title>interface~io_read_body_in&#45;&gt;proc~io_read_body_in</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.74,-3131C648.12,-3131 705.33,-3131 747.38,-3131"/>
-<polygon fill="#000000" stroke="#000000" points="747.45,-3134.5 757.45,-3131 747.45,-3127.5 747.45,-3134.5"/>
-</g>
-<!-- proc~symba_util_spill_pltpenc&#45;&gt;interface~util_spill -->
-<g id="call~~graph~~CallGraph_edge504" class="edge">
-<title>proc~symba_util_spill_pltpenc&#45;&gt;interface~util_spill</title>
-<path fill="none" stroke="#000000" d="M867.51,-707.54C915.5,-715.57 979.86,-726.34 1019.46,-732.97"/>
-<polygon fill="#000000" stroke="#000000" points="1019.02,-736.44 1029.46,-734.64 1020.17,-729.54 1019.02,-736.44"/>
+<!-- interface~rmvs_util_sort_tp&#45;&gt;proc~rmvs_util_sort_tp -->
+<g id="call~~graph~~CallGraph_edge496" class="edge">
+<title>interface~rmvs_util_sort_tp&#45;&gt;proc~rmvs_util_sort_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.14,-8471C180.45,-8471 231.21,-8471 269.87,-8471"/>
+<polygon fill="#000000" stroke="#000000" points="269.93,-8474.5 279.93,-8471 269.93,-8467.5 269.93,-8474.5"/>
 </g>
-<!-- util_spill_encounter -->
-<g id="call~~graph~~CallGraph_node574" class="node">
-<title>util_spill_encounter</title>
-<polygon fill="#777777" stroke="#777777" points="1108.5,-709 1004.5,-709 1004.5,-685 1108.5,-685 1108.5,-709"/>
-<text text-anchor="middle" x="1056.5" y="-694.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_encounter</text>
+<!-- interface~rmvs_util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_node536" class="node">
+<title>interface~rmvs_util_sort_rearrange_pl</title>
+<g id="a_call~~graph~~CallGraph_node536"><a xlink:href=".././interface/rmvs_util_sort_rearrange_pl.html" xlink:title="rmvs_util_sort_rearrange_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="170.5,-6956 23.5,-6956 23.5,-6932 170.5,-6932 170.5,-6956"/>
+<text text-anchor="middle" x="97" y="-6941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_rearrange_pl</text>
+</a>
 </g>
-<!-- proc~symba_util_spill_pltpenc&#45;&gt;util_spill_encounter -->
-<g id="call~~graph~~CallGraph_edge506" class="edge">
-<title>proc~symba_util_spill_pltpenc&#45;&gt;util_spill_encounter</title>
-<path fill="none" stroke="#000000" d="M867.51,-697C906.31,-697 955.79,-697 994.25,-697"/>
-<polygon fill="#000000" stroke="#000000" points="994.28,-700.5 1004.28,-697 994.28,-693.5 994.28,-700.5"/>
 </g>
-<!-- proc~symba_util_spill_pltpenc&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge505" class="edge">
-<title>proc~symba_util_spill_pltpenc&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M867.59,-697.57C882.1,-700.77 896.14,-706.9 906,-718 968.2,-788.05 879.07,-1068.61 942,-1138 961.05,-1159 993.72,-1163.2 1019.13,-1162.76"/>
-<polygon fill="#000000" stroke="#000000" points="1019.32,-1166.26 1029.16,-1162.34 1019.03,-1159.26 1019.32,-1166.26"/>
+<!-- interface~rmvs_util_sort_rearrange_pl&#45;&gt;proc~rmvs_util_sort_rearrange_pl -->
+<g id="call~~graph~~CallGraph_edge497" class="edge">
+<title>interface~rmvs_util_sort_rearrange_pl&#45;&gt;proc~rmvs_util_sort_rearrange_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.77,-6944C193.8,-6944 219.43,-6944 243.12,-6944"/>
+<polygon fill="#000000" stroke="#000000" points="243.14,-6947.5 253.14,-6944 243.14,-6940.5 243.14,-6947.5"/>
 </g>
-<!-- interface~io_read_cb_in -->
+<!-- interface~rmvs_util_sort_rearrange_tp -->
 <g id="call~~graph~~CallGraph_node537" class="node">
-<title>interface~io_read_cb_in</title>
-<g id="a_call~~graph~~CallGraph_node537"><a xlink:href=".././interface/io_read_cb_in.html" xlink:title="io_read_cb_in">
-<polygon fill="#a7506f" stroke="#a7506f" points="602.5,-3101 522.5,-3101 522.5,-3077 602.5,-3077 602.5,-3101"/>
-<text text-anchor="middle" x="562.5" y="-3086.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_cb_in</text>
+<title>interface~rmvs_util_sort_rearrange_tp</title>
+<g id="a_call~~graph~~CallGraph_node537"><a xlink:href=".././interface/rmvs_util_sort_rearrange_tp.html" xlink:title="rmvs_util_sort_rearrange_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="171,-8567 23,-8567 23,-8543 171,-8543 171,-8567"/>
+<text text-anchor="middle" x="97" y="-8552.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_sort_rearrange_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_cb_in&#45;&gt;proc~io_read_cb_in -->
-<g id="call~~graph~~CallGraph_edge507" class="edge">
-<title>interface~io_read_cb_in&#45;&gt;proc~io_read_cb_in</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.7,-3089C643.86,-3089 708.67,-3089 753.25,-3089"/>
-<polygon fill="#000000" stroke="#000000" points="753.28,-3092.5 763.28,-3089 753.28,-3085.5 753.28,-3092.5"/>
+<!-- interface~rmvs_util_sort_rearrange_tp&#45;&gt;proc~rmvs_util_sort_rearrange_tp -->
+<g id="call~~graph~~CallGraph_edge498" class="edge">
+<title>interface~rmvs_util_sort_rearrange_tp&#45;&gt;proc~rmvs_util_sort_rearrange_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M171.08,-8555C193.89,-8555 219.21,-8555 242.67,-8555"/>
+<polygon fill="#000000" stroke="#000000" points="242.94,-8558.5 252.94,-8555 242.94,-8551.5 242.94,-8558.5"/>
 </g>
-<!-- interface~io_read_param_in -->
+<!-- interface~rmvs_util_spill_pl -->
 <g id="call~~graph~~CallGraph_node538" class="node">
-<title>interface~io_read_param_in</title>
-<g id="a_call~~graph~~CallGraph_node538"><a xlink:href=".././interface/io_read_param_in.html" xlink:title="io_read_param_in">
-<polygon fill="#a7506f" stroke="#a7506f" points="612.5,-3269 512.5,-3269 512.5,-3245 612.5,-3245 612.5,-3269"/>
-<text text-anchor="middle" x="562.5" y="-3254.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_param_in</text>
+<title>interface~rmvs_util_spill_pl</title>
+<g id="a_call~~graph~~CallGraph_node538"><a xlink:href=".././interface/rmvs_util_spill_pl.html" xlink:title="rmvs_util_spill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="1057.5,-4887 963.5,-4887 963.5,-4863 1057.5,-4863 1057.5,-4887"/>
+<text text-anchor="middle" x="1010.5" y="-4872.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_spill_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_param_in&#45;&gt;proc~io_read_param_in -->
-<g id="call~~graph~~CallGraph_edge508" class="edge">
-<title>interface~io_read_param_in&#45;&gt;proc~io_read_param_in</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.73,-3257C650.57,-3257 702.98,-3257 743.14,-3257"/>
-<polygon fill="#000000" stroke="#000000" points="743.33,-3260.5 753.33,-3257 743.33,-3253.5 743.33,-3260.5"/>
+<!-- interface~rmvs_util_spill_pl&#45;&gt;proc~rmvs_util_spill_pl -->
+<g id="call~~graph~~CallGraph_edge499" class="edge">
+<title>interface~rmvs_util_spill_pl&#45;&gt;proc~rmvs_util_spill_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1057.58,-4875C1096.47,-4875 1152.3,-4875 1193.9,-4875"/>
+<polygon fill="#000000" stroke="#000000" points="1194.15,-4878.5 1204.15,-4875 1194.15,-4871.5 1194.15,-4878.5"/>
 </g>
-<!-- interface~io_read_frame_body -->
+<!-- interface~rmvs_util_spill_tp -->
 <g id="call~~graph~~CallGraph_node539" class="node">
-<title>interface~io_read_frame_body</title>
-<g id="a_call~~graph~~CallGraph_node539"><a xlink:href=".././interface/io_read_frame_body.html" xlink:title="io_read_frame_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="618.5,-3395 506.5,-3395 506.5,-3371 618.5,-3371 618.5,-3395"/>
-<text text-anchor="middle" x="562.5" y="-3380.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_body</text>
+<title>interface~rmvs_util_spill_tp</title>
+<g id="a_call~~graph~~CallGraph_node539"><a xlink:href=".././interface/rmvs_util_spill_tp.html" xlink:title="rmvs_util_spill_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="1057.5,-5135 963.5,-5135 963.5,-5111 1057.5,-5111 1057.5,-5135"/>
+<text text-anchor="middle" x="1010.5" y="-5120.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util_spill_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_frame_body&#45;&gt;proc~io_read_frame_body -->
-<g id="call~~graph~~CallGraph_edge509" class="edge">
-<title>interface~io_read_frame_body&#45;&gt;proc~io_read_frame_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M618.63,-3383C653.91,-3383 699.87,-3383 737.01,-3383"/>
-<polygon fill="#000000" stroke="#000000" points="737.23,-3386.5 747.23,-3383 737.23,-3379.5 737.23,-3386.5"/>
+<!-- interface~rmvs_util_spill_tp&#45;&gt;proc~rmvs_util_spill_tp -->
+<g id="call~~graph~~CallGraph_edge500" class="edge">
+<title>interface~rmvs_util_spill_tp&#45;&gt;proc~rmvs_util_spill_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1057.58,-5115.67C1096.55,-5109.48 1152.54,-5100.58 1194.17,-5093.96"/>
+<polygon fill="#000000" stroke="#000000" points="1194.83,-5097.4 1204.15,-5092.37 1193.73,-5090.48 1194.83,-5097.4"/>
 </g>
-<!-- interface~io_read_frame_cb -->
+<!-- interface~rmvs_step_system -->
 <g id="call~~graph~~CallGraph_node540" class="node">
-<title>interface~io_read_frame_cb</title>
-<g id="a_call~~graph~~CallGraph_node540"><a xlink:href=".././interface/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
-<polygon fill="#a7506f" stroke="#a7506f" points="612.5,-3311 512.5,-3311 512.5,-3287 612.5,-3287 612.5,-3311"/>
-<text text-anchor="middle" x="562.5" y="-3296.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
+<title>interface~rmvs_step_system</title>
+<g id="a_call~~graph~~CallGraph_node540"><a xlink:href=".././interface/rmvs_step_system.html" xlink:title="rmvs_step_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="607,-5299 505,-5299 505,-5275 607,-5275 607,-5299"/>
+<text text-anchor="middle" x="556" y="-5284.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_system</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_frame_cb&#45;&gt;proc~io_read_frame_cb -->
-<g id="call~~graph~~CallGraph_edge510" class="edge">
-<title>interface~io_read_frame_cb&#45;&gt;proc~io_read_frame_cb</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.73,-3299C650.57,-3299 702.98,-3299 743.14,-3299"/>
-<polygon fill="#000000" stroke="#000000" points="743.33,-3302.5 753.33,-3299 743.33,-3295.5 743.33,-3302.5"/>
-</g>
-<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_flon -->
-<g id="call~~graph~~CallGraph_edge512" class="edge">
-<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_flon</title>
-<path fill="none" stroke="#000000" d="M841.27,-47.85C888.08,-40.01 968.61,-26.54 1016.48,-18.53"/>
-<polygon fill="#000000" stroke="#000000" points="1017.17,-21.96 1026.46,-16.86 1016.02,-15.06 1017.17,-21.96"/>
-</g>
-<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_fget -->
-<g id="call~~graph~~CallGraph_edge511" class="edge">
-<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_fget</title>
-<path fill="none" stroke="#000000" d="M841.27,-54C887.82,-54 967.74,-54 1015.69,-54"/>
-<polygon fill="#000000" stroke="#000000" points="1015.71,-57.5 1025.71,-54 1015.71,-50.5 1015.71,-57.5"/>
-</g>
-<!-- interface~io_read_frame_system -->
-<g id="call~~graph~~CallGraph_node542" class="node">
-<title>interface~io_read_frame_system</title>
-<g id="a_call~~graph~~CallGraph_node542"><a xlink:href=".././interface/io_read_frame_system.html" xlink:title="io_read_frame_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="158,-8378 36,-8378 36,-8354 158,-8354 158,-8378"/>
-<text text-anchor="middle" x="97" y="-8363.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_system</text>
-</a>
+<!-- interface~rmvs_step_system&#45;&gt;proc~rmvs_step_system -->
+<g id="call~~graph~~CallGraph_edge501" class="edge">
+<title>interface~rmvs_step_system&#45;&gt;proc~rmvs_step_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.1,-5287C640.15,-5287 683.65,-5287 718.61,-5287"/>
+<polygon fill="#000000" stroke="#000000" points="718.7,-5290.5 728.7,-5287 718.7,-5283.5 718.7,-5290.5"/>
 </g>
+<!-- proc~rmvs_interp_in&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge502" class="edge">
+<title>proc~rmvs_interp_in&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M1293.01,-5285.01C1313.37,-5282.09 1337.21,-5275.51 1354,-5261 1385.35,-5233.91 1363.08,-5206.5 1390,-5175 1411.12,-5150.3 1443.2,-5131.64 1467.87,-5119.82"/>
+<polygon fill="#000000" stroke="#000000" points="1469.66,-5122.86 1477.27,-5115.48 1466.72,-5116.5 1469.66,-5122.86"/>
 </g>
-<!-- interface~io_read_frame_system&#45;&gt;proc~io_read_frame_system -->
-<g id="call~~graph~~CallGraph_edge513" class="edge">
-<title>interface~io_read_frame_system&#45;&gt;proc~io_read_frame_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M158.2,-8366C188.07,-8366 224.34,-8366 255.5,-8366"/>
-<polygon fill="#000000" stroke="#000000" points="255.86,-8369.5 265.86,-8366 255.86,-8362.5 255.86,-8369.5"/>
+<!-- proc~symba_io_read_particle&#45;&gt;util_exit -->
+<g id="call~~graph~~CallGraph_edge503" class="edge">
+<title>proc~symba_io_read_particle&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M843.78,-5152.65C910.59,-5151.96 1019.35,-5149.94 1113,-5144 1243.65,-5135.72 1398.15,-5117.9 1467.11,-5109.52"/>
+<polygon fill="#000000" stroke="#000000" points="1467.54,-5113 1477.04,-5108.31 1466.69,-5106.05 1467.54,-5113"/>
 </g>
-<!-- interface~io_write_discard -->
-<g id="call~~graph~~CallGraph_node544" class="node">
-<title>interface~io_write_discard</title>
-<g id="a_call~~graph~~CallGraph_node544"><a xlink:href=".././interface/io_write_discard.html" xlink:title="io_write_discard">
-<polygon fill="#a7506f" stroke="#a7506f" points="607.5,-3227 517.5,-3227 517.5,-3203 607.5,-3203 607.5,-3227"/>
-<text text-anchor="middle" x="562.5" y="-3212.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_discard</text>
+<!-- interface~symba_encounter_check_pl -->
+<g id="call~~graph~~CallGraph_node545" class="node">
+<title>interface~symba_encounter_check_pl</title>
+<g id="a_call~~graph~~CallGraph_node545"><a xlink:href=".././interface/symba_encounter_check_pl.html" xlink:title="symba_encounter_check_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="170,-7376 24,-7376 24,-7352 170,-7352 170,-7376"/>
+<text text-anchor="middle" x="97" y="-7361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~io_write_discard&#45;&gt;proc~io_write_discard -->
-<g id="call~~graph~~CallGraph_edge514" class="edge">
-<title>interface~io_write_discard&#45;&gt;proc~io_write_discard</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.61,-3215C647.24,-3215 705.55,-3215 748.06,-3215"/>
-<polygon fill="#000000" stroke="#000000" points="748.24,-3218.5 758.24,-3215 748.24,-3211.5 748.24,-3218.5"/>
-</g>
-<!-- interface~io_toupper&#45;&gt;proc~io_toupper -->
-<g id="call~~graph~~CallGraph_edge515" class="edge">
-<title>interface~io_toupper&#45;&gt;proc~io_toupper</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1088.7,-2974C1136.16,-2974 1226.51,-2974 1279.3,-2974"/>
-<polygon fill="#000000" stroke="#000000" points="1279.34,-2977.5 1289.34,-2974 1279.34,-2970.5 1279.34,-2977.5"/>
+<!-- interface~symba_encounter_check_pl&#45;&gt;proc~symba_encounter_check_pl -->
+<g id="call~~graph~~CallGraph_edge504" class="edge">
+<title>interface~symba_encounter_check_pl&#45;&gt;proc~symba_encounter_check_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.14,-7364C193.54,-7364 219.68,-7364 243.76,-7364"/>
+<polygon fill="#000000" stroke="#000000" points="243.94,-7367.5 253.94,-7364 243.94,-7360.5 243.94,-7367.5"/>
 </g>
-<!-- interface~io_write_encounter -->
+<!-- interface~symba_encounter_check_pltpenc -->
 <g id="call~~graph~~CallGraph_node546" class="node">
-<title>interface~io_write_encounter</title>
-<g id="a_call~~graph~~CallGraph_node546"><a xlink:href=".././interface/io_write_encounter.html" xlink:title="io_write_encounter">
-<polygon fill="#a7506f" stroke="#a7506f" points="614,-3185 511,-3185 511,-3161 614,-3161 614,-3185"/>
-<text text-anchor="middle" x="562.5" y="-3170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
+<title>interface~symba_encounter_check_pltpenc</title>
+<g id="a_call~~graph~~CallGraph_node546"><a xlink:href=".././interface/symba_encounter_check_pltpenc.html" xlink:title="symba_encounter_check_pltpenc">
+<polygon fill="#a7506f" stroke="#a7506f" points="183,-7208 11,-7208 11,-7184 183,-7184 183,-7208"/>
+<text text-anchor="middle" x="97" y="-7193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_pltpenc</text>
 </a>
 </g>
 </g>
-<!-- interface~io_write_encounter&#45;&gt;proc~io_write_encounter -->
-<g id="call~~graph~~CallGraph_edge516" class="edge">
-<title>interface~io_write_encounter&#45;&gt;proc~io_write_encounter</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M614.19,-3173C651.5,-3173 702.39,-3173 741.86,-3173"/>
-<polygon fill="#000000" stroke="#000000" points="741.89,-3176.5 751.89,-3173 741.89,-3169.5 741.89,-3176.5"/>
+<!-- interface~symba_encounter_check_pltpenc&#45;&gt;proc~symba_encounter_check_pltpenc -->
+<g id="call~~graph~~CallGraph_edge505" class="edge">
+<title>interface~symba_encounter_check_pltpenc&#45;&gt;proc~symba_encounter_check_pltpenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M183.22,-7196C198.68,-7196 214.9,-7196 230.63,-7196"/>
+<polygon fill="#000000" stroke="#000000" points="230.88,-7199.5 240.88,-7196 230.88,-7192.5 230.88,-7199.5"/>
 </g>
-<!-- interface~io_write_frame_body -->
+<!-- interface~symba_encounter_check_tp -->
 <g id="call~~graph~~CallGraph_node547" class="node">
-<title>interface~io_write_frame_body</title>
-<g id="a_call~~graph~~CallGraph_node547"><a xlink:href=".././interface/io_write_frame_body.html" xlink:title="io_write_frame_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="153,-9825 41,-9825 41,-9801 153,-9801 153,-9825"/>
-<text text-anchor="middle" x="97" y="-9810.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_body</text>
+<title>interface~symba_encounter_check_tp</title>
+<g id="a_call~~graph~~CallGraph_node547"><a xlink:href=".././interface/symba_encounter_check_tp.html" xlink:title="symba_encounter_check_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="170.5,-7418 23.5,-7418 23.5,-7394 170.5,-7394 170.5,-7418"/>
+<text text-anchor="middle" x="97" y="-7403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~io_write_frame_body&#45;&gt;proc~io_write_frame_body -->
-<g id="call~~graph~~CallGraph_edge517" class="edge">
-<title>interface~io_write_frame_body&#45;&gt;proc~io_write_frame_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.19,-9813C185.56,-9813 226.64,-9813 260.62,-9813"/>
-<polygon fill="#000000" stroke="#000000" points="260.92,-9816.5 270.92,-9813 260.92,-9809.5 260.92,-9816.5"/>
+<!-- interface~symba_encounter_check_tp&#45;&gt;proc~symba_encounter_check_tp -->
+<g id="call~~graph~~CallGraph_edge506" class="edge">
+<title>interface~symba_encounter_check_tp&#45;&gt;proc~symba_encounter_check_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.77,-7406C193.8,-7406 219.43,-7406 243.12,-7406"/>
+<polygon fill="#000000" stroke="#000000" points="243.14,-7409.5 253.14,-7406 243.14,-7402.5 243.14,-7409.5"/>
 </g>
-<!-- interface~io_write_frame_cb -->
-<g id="call~~graph~~CallGraph_node548" class="node">
-<title>interface~io_write_frame_cb</title>
-<g id="a_call~~graph~~CallGraph_node548"><a xlink:href=".././interface/io_write_frame_cb.html" xlink:title="io_write_frame_cb">
-<polygon fill="#a7506f" stroke="#a7506f" points="147,-7538 47,-7538 47,-7514 147,-7514 147,-7538"/>
-<text text-anchor="middle" x="97" y="-7523.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_cb</text>
-</a>
+<!-- interface~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_casedisruption -->
+<g id="call~~graph~~CallGraph_edge507" class="edge">
+<title>interface~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_casedisruption</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1600.08,-4455C1620.71,-4455 1642.65,-4455 1663.65,-4455"/>
+<polygon fill="#000000" stroke="#000000" points="1663.88,-4458.5 1673.88,-4455 1663.88,-4451.5 1663.88,-4458.5"/>
 </g>
+<!-- interface~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_casehitandrun -->
+<g id="call~~graph~~CallGraph_edge508" class="edge">
+<title>interface~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_casehitandrun</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1599.71,-4539C1620.57,-4539 1642.81,-4539 1664.06,-4539"/>
+<polygon fill="#000000" stroke="#000000" points="1664.07,-4542.5 1674.07,-4539 1664.07,-4535.5 1664.07,-4542.5"/>
 </g>
-<!-- interface~io_write_frame_cb&#45;&gt;proc~io_write_frame_cb -->
-<g id="call~~graph~~CallGraph_edge518" class="edge">
-<title>interface~io_write_frame_cb&#45;&gt;proc~io_write_frame_cb</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.19,-7526C182.25,-7526 229.56,-7526 266.71,-7526"/>
-<polygon fill="#000000" stroke="#000000" points="266.9,-7529.5 276.9,-7526 266.9,-7522.5 266.9,-7529.5"/>
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric -->
+<g id="call~~graph~~CallGraph_edge509" class="edge">
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric</title>
+<path fill="none" stroke="#000000" d="M1289.54,-5413C1324.72,-5413 1378.77,-5413 1423.74,-5413"/>
+<polygon fill="#000000" stroke="#000000" points="1423.78,-5416.5 1433.78,-5413 1423.78,-5409.5 1423.78,-5416.5"/>
 </g>
-<!-- interface~io_write_frame_system -->
-<g id="call~~graph~~CallGraph_node549" class="node">
-<title>interface~io_write_frame_system</title>
-<g id="a_call~~graph~~CallGraph_node549"><a xlink:href=".././interface/io_write_frame_system.html" xlink:title="io_write_frame_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="388.5,-3582 265.5,-3582 265.5,-3558 388.5,-3558 388.5,-3582"/>
-<text text-anchor="middle" x="327" y="-3567.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</text>
-</a>
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp -->
+<g id="call~~graph~~CallGraph_edge511" class="edge">
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp</title>
+<path fill="none" stroke="#000000" d="M1289.54,-5406.8C1333.97,-5399.37 1408.5,-5386.9 1456.83,-5378.81"/>
+<polygon fill="#000000" stroke="#000000" points="1457.44,-5382.26 1466.72,-5377.15 1456.28,-5375.35 1457.44,-5382.26"/>
 </g>
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric -->
+<g id="call~~graph~~CallGraph_edge510" class="edge">
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric</title>
+<path fill="none" stroke="#000000" d="M1289.54,-5419.2C1325.74,-5425.26 1381.94,-5434.66 1427.66,-5442.31"/>
+<polygon fill="#000000" stroke="#000000" points="1427.1,-5445.76 1437.54,-5443.96 1428.25,-5438.86 1427.1,-5445.76"/>
 </g>
-<!-- interface~io_write_frame_system&#45;&gt;proc~io_write_frame_system -->
-<g id="call~~graph~~CallGraph_edge519" class="edge">
-<title>interface~io_write_frame_system&#45;&gt;proc~io_write_frame_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.74,-3570C419.83,-3570 457.87,-3570 490.33,-3570"/>
-<polygon fill="#000000" stroke="#000000" points="490.66,-3573.5 500.66,-3570 490.66,-3566.5 490.66,-3573.5"/>
+<!-- interface~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_casesupercatastrophic -->
+<g id="call~~graph~~CallGraph_edge512" class="edge">
+<title>interface~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_casesupercatastrophic</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1619.33,-4497C1627.72,-4497 1636.2,-4497 1644.65,-4497"/>
+<polygon fill="#000000" stroke="#000000" points="1644.92,-4500.5 1654.92,-4497 1644.92,-4493.5 1644.92,-4500.5"/>
 </g>
-<!-- interface~kick_getacch_int_pl -->
-<g id="call~~graph~~CallGraph_node550" class="node">
-<title>interface~kick_getacch_int_pl</title>
-<g id="a_call~~graph~~CallGraph_node550"><a xlink:href=".././interface/kick_getacch_int_pl.html" xlink:title="kick_getacch_int_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="150,-3853 44,-3853 44,-3829 150,-3829 150,-3853"/>
-<text text-anchor="middle" x="97" y="-3838.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick_getacch_int_pl</text>
+<!-- interface~symba_collision_check_pltpenc -->
+<g id="call~~graph~~CallGraph_node552" class="node">
+<title>interface~symba_collision_check_pltpenc</title>
+<g id="a_call~~graph~~CallGraph_node552"><a xlink:href=".././interface/symba_collision_check_pltpenc.html" xlink:title="symba_collision_check_pltpenc">
+<polygon fill="#a7506f" stroke="#a7506f" points="178,-7166 16,-7166 16,-7142 178,-7142 178,-7166"/>
+<text text-anchor="middle" x="97" y="-7151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_pltpenc</text>
 </a>
 </g>
 </g>
-<!-- interface~kick_getacch_int_pl&#45;&gt;proc~kick_getacch_int_pl -->
-<g id="call~~graph~~CallGraph_edge520" class="edge">
-<title>interface~kick_getacch_int_pl&#45;&gt;proc~kick_getacch_int_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M150.02,-3841C183.76,-3841 227.89,-3841 263.52,-3841"/>
-<polygon fill="#000000" stroke="#000000" points="263.81,-3844.5 273.81,-3841 263.81,-3837.5 263.81,-3844.5"/>
+<!-- interface~symba_collision_check_pltpenc&#45;&gt;proc~symba_collision_check_pltpenc -->
+<g id="call~~graph~~CallGraph_edge513" class="edge">
+<title>interface~symba_collision_check_pltpenc&#45;&gt;proc~symba_collision_check_pltpenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.06,-7154C196.66,-7154 216.59,-7154 235.6,-7154"/>
+<polygon fill="#000000" stroke="#000000" points="235.74,-7157.5 245.74,-7154 235.74,-7150.5 235.74,-7157.5"/>
 </g>
 <!-- program~swiftest_driver -->
-<g id="call~~graph~~CallGraph_node552" class="node">
+<g id="call~~graph~~CallGraph_node553" class="node">
 <title>program~swiftest_driver</title>
-<g id="a_call~~graph~~CallGraph_node552"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="844,-667 763,-667 763,-643 844,-643 844,-667"/>
-<text text-anchor="middle" x="803.5" y="-652.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
+<g id="a_call~~graph~~CallGraph_node553"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="1292,-4597 1211,-4597 1211,-4573 1292,-4573 1292,-4597"/>
+<text text-anchor="middle" x="1251.5" y="-4582.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
 </a>
 </g>
 </g>
 <!-- program~swiftest_driver&#45;&gt;util_exit -->
-<g id="call~~graph~~CallGraph_edge523" class="edge">
+<g id="call~~graph~~CallGraph_edge515" class="edge">
 <title>program~swiftest_driver&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M844.08,-652.55C865.6,-653.51 890.83,-658.79 906,-676 974.08,-753.26 873.11,-1061.46 942,-1138 960.97,-1159.08 993.65,-1163.27 1019.08,-1162.8"/>
-<polygon fill="#000000" stroke="#000000" points="1019.28,-1166.3 1029.13,-1162.38 1018.99,-1159.3 1019.28,-1166.3"/>
+<path fill="none" stroke="#000000" d="M1290.36,-4597.1C1312.69,-4606.29 1339.37,-4621.3 1354,-4644 1440.15,-4777.67 1319.04,-4857.68 1390,-5000 1408.83,-5037.77 1447.34,-5068.75 1474.26,-5087.04"/>
+<polygon fill="#000000" stroke="#000000" points="1472.62,-5090.15 1482.9,-5092.74 1476.48,-5084.31 1472.62,-5090.15"/>
 </g>
 <!-- setup_construct_system -->
-<g id="call~~graph~~CallGraph_node601" class="node">
+<g id="call~~graph~~CallGraph_node581" class="node">
 <title>setup_construct_system</title>
-<polygon fill="#777777" stroke="#777777" points="1120.5,-667 992.5,-667 992.5,-643 1120.5,-643 1120.5,-667"/>
-<text text-anchor="middle" x="1056.5" y="-652.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
+<polygon fill="#777777" stroke="#777777" points="1568.5,-4635 1440.5,-4635 1440.5,-4611 1568.5,-4611 1568.5,-4635"/>
+<text text-anchor="middle" x="1504.5" y="-4620.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
 </g>
 <!-- program~swiftest_driver&#45;&gt;setup_construct_system -->
-<g id="call~~graph~~CallGraph_edge522" class="edge">
+<g id="call~~graph~~CallGraph_edge514" class="edge">
 <title>program~swiftest_driver&#45;&gt;setup_construct_system</title>
-<path fill="none" stroke="#000000" d="M844.27,-655C881.28,-655 937.35,-655 982.42,-655"/>
-<polygon fill="#000000" stroke="#000000" points="982.45,-658.5 992.45,-655 982.45,-651.5 982.45,-658.5"/>
+<path fill="none" stroke="#000000" d="M1292.27,-4591.02C1329.28,-4596.62 1385.35,-4605.11 1430.42,-4611.94"/>
+<polygon fill="#000000" stroke="#000000" points="1430.03,-4615.42 1440.45,-4613.45 1431.08,-4608.5 1430.03,-4615.42"/>
 </g>
 <!-- io_get_args -->
-<g id="call~~graph~~CallGraph_node615" class="node">
+<g id="call~~graph~~CallGraph_node608" class="node">
 <title>io_get_args</title>
-<polygon fill="#777777" stroke="#777777" points="1091,-625 1022,-625 1022,-601 1091,-601 1091,-625"/>
-<text text-anchor="middle" x="1056.5" y="-610.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
+<polygon fill="#777777" stroke="#777777" points="1539,-4593 1470,-4593 1470,-4569 1539,-4569 1539,-4593"/>
+<text text-anchor="middle" x="1504.5" y="-4578.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
 </g>
 <!-- program~swiftest_driver&#45;&gt;io_get_args -->
-<g id="call~~graph~~CallGraph_edge521" class="edge">
+<g id="call~~graph~~CallGraph_edge516" class="edge">
 <title>program~swiftest_driver&#45;&gt;io_get_args</title>
-<path fill="none" stroke="#000000" d="M844.27,-648.34C889.99,-640.69 964.78,-628.18 1012.01,-620.28"/>
-<polygon fill="#000000" stroke="#000000" points="1012.65,-623.72 1021.94,-618.62 1011.5,-616.81 1012.65,-623.72"/>
+<path fill="none" stroke="#000000" d="M1292.27,-4584.37C1337.89,-4583.64 1412.47,-4582.45 1459.71,-4581.7"/>
+<polygon fill="#000000" stroke="#000000" points="1460,-4585.19 1469.94,-4581.53 1459.88,-4578.19 1460,-4585.19"/>
 </g>
 </g>
 </svg>
diff --git a/docs/lists/types.html b/docs/lists/types.html
index a41d4a0bd..a66494360 100644
--- a/docs/lists/types.html
+++ b/docs/lists/types.html
@@ -181,7 +181,7 @@ <h1>Derived Types</h1>
 			 
 			   <tr><td><a href='../type/symba_parameters.html'>symba_parameters</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td><a href='../type/swiftest_parameters.html'>swiftest_parameters</a></td><td></td></tr>
 			 
-			   <tr><td><a href='../type/symba_particle_info.html'>symba_particle_info</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td><a href='../type/swiftest_base.html'>swiftest_base</a></td><td><p>Class definition for the particle origin information object. This object is used to track time, location, and collisional regime
+			   <tr><td><a href='../type/symba_particle_info.html'>symba_particle_info</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td>None</td><td><p>Class definition for the particle origin information object. This object is used to track time, location, and collisional regime
  of fragments produced in collisional events.</p></td></tr>
 			 
 			   <tr><td><a href='../type/symba_pl.html'>symba_pl</a></td><td><a href='../module/symba_classes.html'>symba_classes</a></td><td><a href='../type/helio_pl.html'>helio_pl</a></td><td><p>SyMBA massive body class</p></td></tr>
@@ -210,588 +210,597 @@ <h1>Derived Types</h1>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~graph~~TypeGraph Pages: 1 -->
-<svg id="typegraphTypeGraph" width="855pt" height="386pt"
- viewBox="0.00 0.00 855.00 386.11" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~graph~~TypeGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 565)">
+<svg id="typegraphTypeGraph" width="855pt" height="452pt"
+ viewBox="0.00 0.00 855.00 452.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~graph~~TypeGraph" class="graph" transform="scale(0.74 0.74) rotate(0) translate(4 604)">
 <title>type~~graph~~TypeGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-565 1256,-565 1256,4 -4,4"/>
-<!-- type~symba_cb -->
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-604 1145,-604 1145,4 -4,4"/>
+<!-- type~rmvs_pl -->
 <g id="type~~graph~~TypeGraph_node1" class="node">
-<title>type~symba_cb</title>
-<g id="a_type~~graph~~TypeGraph_node1"><a xlink:href=".././type/symba_cb.html" xlink:title="symba_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="735.5,-438 674.5,-438 674.5,-414 735.5,-414 735.5,-438"/>
-<text text-anchor="middle" x="705" y="-423.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_cb</text>
+<title>type~rmvs_pl</title>
+<g id="a_type~~graph~~TypeGraph_node1"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1108.5,-432 1054.5,-432 1054.5,-408 1108.5,-408 1108.5,-432"/>
+<text text-anchor="middle" x="1081.5" y="-417.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_pl</text>
 </a>
 </g>
 </g>
-<!-- type~helio_cb -->
+<!-- type~whm_pl -->
+<g id="type~~graph~~TypeGraph_node5" class="node">
+<title>type~whm_pl</title>
+<g id="a_type~~graph~~TypeGraph_node5"><a xlink:href=".././type/whm_pl.html" xlink:title="whm_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="792,-460 738,-460 738,-436 792,-436 792,-460"/>
+<text text-anchor="middle" x="765" y="-445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_pl</text>
+</a>
+</g>
+</g>
+<!-- type~rmvs_pl&#45;&gt;type~whm_pl -->
+<g id="type~~graph~~TypeGraph_edge3" class="edge">
+<title>type~rmvs_pl&#45;&gt;type~whm_pl</title>
+<path fill="none" stroke="#000000" d="M1054.39,-425.39C1039.65,-428.28 1020.86,-431.71 1004,-434 933.04,-443.66 849.28,-446.66 802.44,-447.58"/>
+<polygon fill="#000000" stroke="#000000" points="802.12,-444.09 792.19,-447.77 802.25,-451.09 802.12,-444.09"/>
+</g>
+<!-- type~rmvs_nbody_system -->
+<g id="type~~graph~~TypeGraph_node25" class="node">
+<title>type~rmvs_nbody_system</title>
+<g id="a_type~~graph~~TypeGraph_node25"><a xlink:href=".././type/rmvs_nbody_system.html" xlink:title="rmvs_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="926,-432 815,-432 815,-408 926,-408 926,-432"/>
+<text text-anchor="middle" x="870.5" y="-417.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_nbody_system</text>
+</a>
+</g>
+</g>
+<!-- type~rmvs_pl&#45;&gt;type~rmvs_nbody_system -->
+<g id="type~~graph~~TypeGraph_edge2" class="edge">
+<title>type~rmvs_pl&#45;&gt;type~rmvs_nbody_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1054.45,-420C1025.06,-420 976.15,-420 936.29,-420"/>
+<polygon fill="#000000" stroke="#000000" points="936.11,-416.5 926.11,-420 936.11,-423.5 936.11,-416.5"/>
+<text text-anchor="middle" x="974" y="-422.4" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
+</g>
+<!-- type~rmvs_interp -->
 <g id="type~~graph~~TypeGraph_node27" class="node">
-<title>type~helio_cb</title>
-<g id="a_type~~graph~~TypeGraph_node27"><a xlink:href=".././type/helio_cb.html" xlink:title="helio_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="525.5,-438 471.5,-438 471.5,-414 525.5,-414 525.5,-438"/>
-<text text-anchor="middle" x="498.5" y="-423.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_cb</text>
+<title>type~rmvs_interp</title>
+<g id="a_type~~graph~~TypeGraph_node27"><a xlink:href=".././type/rmvs_interp.html" xlink:title="rmvs_interp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="488,-364 419,-364 419,-340 488,-340 488,-364"/>
+<text text-anchor="middle" x="453.5" y="-349.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp</text>
 </a>
 </g>
 </g>
-<!-- type~symba_cb&#45;&gt;type~helio_cb -->
+<!-- type~rmvs_pl&#45;&gt;type~rmvs_interp -->
 <g id="type~~graph~~TypeGraph_edge1" class="edge">
-<title>type~symba_cb&#45;&gt;type~helio_cb</title>
-<path fill="none" stroke="#000000" d="M674.26,-426C637.63,-426 575.42,-426 535.95,-426"/>
-<polygon fill="#000000" stroke="#000000" points="535.7,-422.5 525.7,-426 535.7,-429.5 535.7,-422.5"/>
+<title>type~rmvs_pl&#45;&gt;type~rmvs_interp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1058.56,-407.95C1029.34,-392.63 975.55,-366.99 926,-357 771.32,-325.82 582.26,-338.76 498.29,-347.06"/>
+<polygon fill="#000000" stroke="#000000" points="497.7,-343.6 488.1,-348.09 498.41,-350.56 497.7,-343.6"/>
+<text text-anchor="middle" x="765" y="-342.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
 </g>
-<!-- type~whm_cb -->
+<!-- type~rmvs_tp -->
 <g id="type~~graph~~TypeGraph_node2" class="node">
-<title>type~whm_cb</title>
-<g id="a_type~~graph~~TypeGraph_node2"><a xlink:href=".././type/whm_cb.html" xlink:title="whm_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="525.5,-354 471.5,-354 471.5,-330 525.5,-330 525.5,-354"/>
-<text text-anchor="middle" x="498.5" y="-339.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_cb</text>
+<title>type~rmvs_tp</title>
+<g id="a_type~~graph~~TypeGraph_node2"><a xlink:href=".././type/rmvs_tp.html" xlink:title="rmvs_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="897.5,-222 843.5,-222 843.5,-198 897.5,-198 897.5,-222"/>
+<text text-anchor="middle" x="870.5" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_tp</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_cb -->
-<g id="type~~graph~~TypeGraph_node29" class="node">
-<title>type~swiftest_cb</title>
-<g id="a_type~~graph~~TypeGraph_node29"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="293,-370 228,-370 228,-346 293,-346 293,-370"/>
-<text text-anchor="middle" x="260.5" y="-355.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
+<!-- type~whm_tp -->
+<g id="type~~graph~~TypeGraph_node17" class="node">
+<title>type~whm_tp</title>
+<g id="a_type~~graph~~TypeGraph_node17"><a xlink:href=".././type/whm_tp.html" xlink:title="whm_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="587,-262 533,-262 533,-238 587,-238 587,-262"/>
+<text text-anchor="middle" x="560" y="-247.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_tp</text>
 </a>
 </g>
 </g>
-<!-- type~whm_cb&#45;&gt;type~swiftest_cb -->
-<g id="type~~graph~~TypeGraph_edge2" class="edge">
-<title>type~whm_cb&#45;&gt;type~swiftest_cb</title>
-<path fill="none" stroke="#000000" d="M364,-402C337.49,-398.47 309.74,-385.94 289.82,-375.15"/>
-<polygon fill="#000000" stroke="#000000" points="291.41,-372.03 280.97,-370.2 287.99,-378.14 291.41,-372.03"/>
-<path fill="none" stroke="#000000" d="M471.22,-350.05C460.46,-353.62 447.97,-358.12 437,-363 404.1,-377.62 401.69,-406.75 366,-402"/>
+<!-- type~rmvs_tp&#45;&gt;type~whm_tp -->
+<g id="type~~graph~~TypeGraph_edge5" class="edge">
+<title>type~rmvs_tp&#45;&gt;type~whm_tp</title>
+<path fill="none" stroke="#000000" d="M843.41,-215.57C829.65,-218.37 812.46,-221.66 797,-224 726.67,-234.65 643.93,-242.75 597.46,-246.91"/>
+<polygon fill="#000000" stroke="#000000" points="596.94,-243.44 587.28,-247.81 597.55,-250.41 596.94,-243.44"/>
 </g>
-<!-- type~helio_tp -->
+<!-- type~rmvs_cb -->
+<g id="type~~graph~~TypeGraph_node34" class="node">
+<title>type~rmvs_cb</title>
+<g id="a_type~~graph~~TypeGraph_node34"><a xlink:href=".././type/rmvs_cb.html" xlink:title="rmvs_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="687,-222 633,-222 633,-198 687,-198 687,-222"/>
+<text text-anchor="middle" x="660" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_cb</text>
+</a>
+</g>
+</g>
+<!-- type~rmvs_tp&#45;&gt;type~rmvs_cb -->
+<g id="type~~graph~~TypeGraph_edge4" class="edge">
+<title>type~rmvs_tp&#45;&gt;type~rmvs_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M843.09,-210C806.2,-210 739.08,-210 697.45,-210"/>
+<polygon fill="#000000" stroke="#000000" points="697.19,-206.5 687.19,-210 697.19,-213.5 697.19,-206.5"/>
+<text text-anchor="middle" x="765" y="-212.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb_heliocentric</text>
+</g>
+<!-- type~swiftest_pl -->
 <g id="type~~graph~~TypeGraph_node3" class="node">
+<title>type~swiftest_pl</title>
+<g id="a_type~~graph~~TypeGraph_node3"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="291.5,-366 229.5,-366 229.5,-342 291.5,-342 291.5,-366"/>
+<text text-anchor="middle" x="260.5" y="-351.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_body -->
+<g id="type~~graph~~TypeGraph_node12" class="node">
+<title>type~swiftest_body</title>
+<g id="a_type~~graph~~TypeGraph_node12"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-366 114,-366 114,-342 191,-342 191,-366"/>
+<text text-anchor="middle" x="152.5" y="-351.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
+<g id="type~~graph~~TypeGraph_edge6" class="edge">
+<title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
+<path fill="none" stroke="#000000" d="M229.47,-352.09C223,-352.21 216.23,-352.74 210,-354"/>
+</g>
+<!-- type~helio_tp -->
+<g id="type~~graph~~TypeGraph_node4" class="node">
 <title>type~helio_tp</title>
-<g id="a_type~~graph~~TypeGraph_node3"><a xlink:href=".././type/helio_tp.html" xlink:title="helio_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="525.5,-190 471.5,-190 471.5,-166 525.5,-166 525.5,-190"/>
-<text text-anchor="middle" x="498.5" y="-175.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_tp</text>
+<g id="a_type~~graph~~TypeGraph_node4"><a xlink:href=".././type/helio_tp.html" xlink:title="helio_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="480.5,-116 426.5,-116 426.5,-92 480.5,-92 480.5,-116"/>
+<text text-anchor="middle" x="453.5" y="-101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_tp</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_tp -->
-<g id="type~~graph~~TypeGraph_node25" class="node">
+<g id="type~~graph~~TypeGraph_node6" class="node">
 <title>type~swiftest_tp</title>
-<g id="a_type~~graph~~TypeGraph_node25"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="292,-248 229,-248 229,-224 292,-224 292,-248"/>
-<text text-anchor="middle" x="260.5" y="-233.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
+<g id="a_type~~graph~~TypeGraph_node6"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="292,-323 229,-323 229,-299 292,-299 292,-323"/>
+<text text-anchor="middle" x="260.5" y="-308.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
 </a>
 </g>
 </g>
 <!-- type~helio_tp&#45;&gt;type~swiftest_tp -->
-<g id="type~~graph~~TypeGraph_edge3" class="edge">
+<g id="type~~graph~~TypeGraph_edge7" class="edge">
 <title>type~helio_tp&#45;&gt;type~swiftest_tp</title>
-<path fill="none" stroke="#000000" d="M471.49,-166.29C439.14,-152.4 385.76,-131.84 366,-138"/>
+<path fill="none" stroke="#000000" d="M341.5,-270C327.36,-278.72 311.15,-287.28 297.04,-294.3"/>
+<polygon fill="#000000" stroke="#000000" points="295.09,-291.36 287.65,-298.9 298.17,-297.64 295.09,-291.36"/>
+<path fill="none" stroke="#000000" d="M426.27,-106.81C414.05,-109.51 400.39,-114.77 392,-125 354.74,-170.45 409.03,-208.81 374,-256 365.11,-267.98 356.19,-262.17 343.5,-270"/>
 </g>
-<!-- type~rmvs_nbody_system -->
-<g id="type~~graph~~TypeGraph_node4" class="node">
-<title>type~rmvs_nbody_system</title>
-<g id="a_type~~graph~~TypeGraph_node4"><a xlink:href=".././type/rmvs_nbody_system.html" xlink:title="rmvs_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="971,-354 860,-354 860,-330 971,-330 971,-354"/>
-<text text-anchor="middle" x="915.5" y="-339.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_nbody_system</text>
-</a>
+<!-- type~whm_pl&#45;&gt;type~swiftest_pl -->
+<g id="type~~graph~~TypeGraph_edge8" class="edge">
+<title>type~whm_pl&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M737.91,-448.15C676.67,-447.96 519.29,-444.4 392,-415 354.44,-406.32 345.62,-400.95 311,-384 303.51,-380.33 295.68,-375.89 288.51,-371.57"/>
+<polygon fill="#000000" stroke="#000000" points="290.2,-368.5 279.86,-366.21 286.52,-374.45 290.2,-368.5"/>
 </g>
+<!-- type~swiftest_tp&#45;&gt;type~swiftest_body -->
+<g id="type~~graph~~TypeGraph_edge9" class="edge">
+<title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
+<path fill="none" stroke="#000000" d="M240.58,-323.05C236.29,-326.1 231.86,-329.51 228,-333 218.89,-341.25 222.05,-351.56 210,-354"/>
+<path fill="none" stroke="#000000" d="M209,-354C206.48,-354.51 203.88,-354.91 201.25,-355.23"/>
+<polygon fill="#000000" stroke="#000000" points="200.72,-351.76 191.02,-356.03 201.26,-358.74 200.72,-351.76"/>
 </g>
 <!-- type~whm_nbody_system -->
-<g id="type~~graph~~TypeGraph_node22" class="node">
+<g id="type~~graph~~TypeGraph_node7" class="node">
 <title>type~whm_nbody_system</title>
-<g id="a_type~~graph~~TypeGraph_node22"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="760,-354 650,-354 650,-330 760,-330 760,-354"/>
-<text text-anchor="middle" x="705" y="-339.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
+<g id="a_type~~graph~~TypeGraph_node7"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="715,-411 605,-411 605,-387 715,-387 715,-411"/>
+<text text-anchor="middle" x="660" y="-396.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
-<g id="type~~graph~~TypeGraph_edge4" class="edge">
-<title>type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system</title>
-<path fill="none" stroke="#000000" d="M859.88,-340C844.08,-339.96 826.83,-340.44 811,-342"/>
-</g>
-<!-- type~swiftest_parameters -->
-<g id="type~~graph~~TypeGraph_node5" class="node">
-<title>type~swiftest_parameters</title>
-<g id="a_type~~graph~~TypeGraph_node5"><a xlink:href=".././type/swiftest_parameters.html" xlink:title="swiftest_parameters">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="970,-435 861,-435 861,-411 970,-411 970,-435"/>
-<text text-anchor="middle" x="915.5" y="-420.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_parameters</text>
+<!-- type~swiftest_nbody_system -->
+<g id="type~~graph~~TypeGraph_node33" class="node">
+<title>type~swiftest_nbody_system</title>
+<g id="a_type~~graph~~TypeGraph_node33"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="515,-406 392,-406 392,-382 515,-382 515,-406"/>
+<text text-anchor="middle" x="453.5" y="-391.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_nbody_system</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_interp -->
-<g id="type~~graph~~TypeGraph_node6" class="node">
-<title>type~rmvs_interp</title>
-<g id="a_type~~graph~~TypeGraph_node6"><a xlink:href=".././type/rmvs_interp.html" xlink:title="rmvs_interp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="533,-396 464,-396 464,-372 533,-372 533,-396"/>
-<text text-anchor="middle" x="498.5" y="-381.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp</text>
+<!-- type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system -->
+<g id="type~~graph~~TypeGraph_edge10" class="edge">
+<title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
+<path fill="none" stroke="#000000" d="M604.73,-397.67C580.4,-397.08 551.36,-396.37 525.34,-395.73"/>
+<polygon fill="#000000" stroke="#000000" points="525.24,-392.23 515.15,-395.48 525.06,-399.23 525.24,-392.23"/>
+</g>
+<!-- type~swiftest_cb -->
+<g id="type~~graph~~TypeGraph_node8" class="node">
+<title>type~swiftest_cb</title>
+<g id="a_type~~graph~~TypeGraph_node8"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="293,-257 228,-257 228,-233 293,-233 293,-257"/>
+<text text-anchor="middle" x="260.5" y="-242.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_base -->
-<g id="type~~graph~~TypeGraph_node7" class="node">
+<g id="type~~graph~~TypeGraph_node26" class="node">
 <title>type~swiftest_base</title>
-<g id="a_type~~graph~~TypeGraph_node7"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-290 0,-290 0,-266 77,-266 77,-290"/>
-<text text-anchor="middle" x="38.5" y="-275.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
+<g id="a_type~~graph~~TypeGraph_node26"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-366 0,-366 0,-342 77,-342 77,-366"/>
+<text text-anchor="middle" x="38.5" y="-351.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
 </a>
 </g>
 </g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
+<g id="type~~graph~~TypeGraph_edge11" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M95,-354C92.47,-354 89.88,-354 87.26,-354"/>
+<polygon fill="#000000" stroke="#000000" points="87.12,-350.5 77.12,-354 87.12,-357.5 87.12,-350.5"/>
+<path fill="none" stroke="#000000" d="M234.5,-257C204.19,-272.23 152.4,-300.46 114,-333 104.62,-340.95 108.29,-354 96,-354"/>
+</g>
 <!-- type~helio_pl -->
-<g id="type~~graph~~TypeGraph_node8" class="node">
+<g id="type~~graph~~TypeGraph_node9" class="node">
 <title>type~helio_pl</title>
-<g id="a_type~~graph~~TypeGraph_node8"><a xlink:href=".././type/helio_pl.html" xlink:title="helio_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="525.5,-232 471.5,-232 471.5,-208 525.5,-208 525.5,-232"/>
-<text text-anchor="middle" x="498.5" y="-217.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
-</a>
-</g>
-</g>
-<!-- type~swiftest_pl -->
-<g id="type~~graph~~TypeGraph_node21" class="node">
-<title>type~swiftest_pl</title>
-<g id="a_type~~graph~~TypeGraph_node21"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="291.5,-290 229.5,-290 229.5,-266 291.5,-266 291.5,-290"/>
-<text text-anchor="middle" x="260.5" y="-275.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
+<g id="a_type~~graph~~TypeGraph_node9"><a xlink:href=".././type/helio_pl.html" xlink:title="helio_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="480.5,-242 426.5,-242 426.5,-218 480.5,-218 480.5,-242"/>
+<text text-anchor="middle" x="453.5" y="-227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
 </a>
 </g>
 </g>
 <!-- type~helio_pl&#45;&gt;type~swiftest_pl -->
-<g id="type~~graph~~TypeGraph_edge5" class="edge">
+<g id="type~~graph~~TypeGraph_edge12" class="edge">
 <title>type~helio_pl&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" d="M364,-260C343.38,-263.32 320.48,-267.31 301.57,-270.69"/>
-<polygon fill="#000000" stroke="#000000" points="300.74,-267.29 291.51,-272.5 301.97,-274.18 300.74,-267.29"/>
-<path fill="none" stroke="#000000" d="M471.3,-230.28C445.11,-240 403.46,-253.97 366,-260"/>
-</g>
-<!-- type~symba_particle_info -->
-<g id="type~~graph~~TypeGraph_node9" class="node">
-<title>type~symba_particle_info</title>
-<g id="a_type~~graph~~TypeGraph_node9"><a xlink:href=".././type/symba_particle_info.html" xlink:title="symba_particle_info">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="419,-118 311,-118 311,-94 419,-94 419,-118"/>
-<text text-anchor="middle" x="365" y="-103.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_particle_info</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" d="M437.84,-242.06C424.77,-253.3 405.65,-271 392,-289 381.91,-302.31 387.05,-311.57 374,-322 353.41,-338.45 324.78,-346.45 301.56,-350.33"/>
+<polygon fill="#000000" stroke="#000000" points="301.02,-346.87 291.64,-351.8 302.05,-353.8 301.02,-346.87"/>
 </g>
-<!-- type~symba_particle_info&#45;&gt;type~swiftest_base -->
-<g id="type~~graph~~TypeGraph_edge6" class="edge">
-<title>type~symba_particle_info&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M324.73,-118.01C320.03,-119.84 315.35,-121.84 311,-124 216.37,-170.96 192.86,-186.71 114,-257 104.82,-265.18 108.29,-277.64 96,-278"/>
-<path fill="none" stroke="#000000" d="M95,-278C92.47,-278.09 89.88,-278.16 87.26,-278.21"/>
-<polygon fill="#000000" stroke="#000000" points="87.07,-274.72 77.12,-278.36 87.17,-281.72 87.07,-274.72"/>
-</g>
-<!-- type~symba_parameters -->
+<!-- type~lambda_obj -->
 <g id="type~~graph~~TypeGraph_node10" class="node">
-<title>type~symba_parameters</title>
-<g id="a_type~~graph~~TypeGraph_node10"><a xlink:href=".././type/symba_parameters.html" xlink:title="symba_parameters">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="1245,-435 1140,-435 1140,-411 1245,-411 1245,-435"/>
-<text text-anchor="middle" x="1192.5" y="-420.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_parameters</text>
+<title>type~lambda_obj</title>
+<g id="a_type~~graph~~TypeGraph_node10"><a xlink:href=".././type/lambda_obj.html" xlink:title="lambda_obj">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="904.5,-516 836.5,-516 836.5,-492 904.5,-492 904.5,-516"/>
+<text text-anchor="middle" x="870.5" y="-501.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj</text>
 </a>
 </g>
 </g>
-<!-- type~symba_parameters&#45;&gt;type~swiftest_parameters -->
-<g id="type~~graph~~TypeGraph_edge7" class="edge">
-<title>type~symba_parameters&#45;&gt;type~swiftest_parameters</title>
-<path fill="none" stroke="#000000" d="M1139.77,-423C1094.6,-423 1028.86,-423 980.41,-423"/>
-<polygon fill="#000000" stroke="#000000" points="980.34,-419.5 970.34,-423 980.34,-426.5 980.34,-419.5"/>
-</g>
-<!-- type~symba_kinship -->
+<!-- type~lambda_obj_err -->
 <g id="type~~graph~~TypeGraph_node11" class="node">
-<title>type~symba_kinship</title>
-<g id="a_type~~graph~~TypeGraph_node11"><a xlink:href=".././type/symba_kinship.html" xlink:title="symba_kinship">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="540,-72 457,-72 457,-48 540,-48 540,-72"/>
-<text text-anchor="middle" x="498.5" y="-57.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kinship</text>
+<title>type~lambda_obj_err</title>
+<g id="a_type~~graph~~TypeGraph_node11"><a xlink:href=".././type/lambda_obj_err.html" xlink:title="lambda_obj_err">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1125.5,-516 1037.5,-516 1037.5,-492 1125.5,-492 1125.5,-516"/>
+<text text-anchor="middle" x="1081.5" y="-501.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj_err</text>
 </a>
 </g>
 </g>
-<!-- type~lambda_obj -->
-<g id="type~~graph~~TypeGraph_node12" class="node">
-<title>type~lambda_obj</title>
-<g id="a_type~~graph~~TypeGraph_node12"><a xlink:href=".././type/lambda_obj.html" xlink:title="lambda_obj">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="949.5,-519 881.5,-519 881.5,-495 949.5,-495 949.5,-519"/>
-<text text-anchor="middle" x="915.5" y="-504.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj</text>
-</a>
+<!-- type~lambda_obj_err&#45;&gt;type~lambda_obj -->
+<g id="type~~graph~~TypeGraph_edge13" class="edge">
+<title>type~lambda_obj_err&#45;&gt;type~lambda_obj</title>
+<path fill="none" stroke="#000000" d="M1037.29,-502.12C1018.16,-501.78 995.42,-502.02 975,-504"/>
 </g>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
+<g id="type~~graph~~TypeGraph_edge14" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M113.88,-354C107.9,-354 101.78,-354 96,-354"/>
 </g>
-<!-- type~symba_tp -->
+<!-- type~swiftest_encounter -->
 <g id="type~~graph~~TypeGraph_node13" class="node">
-<title>type~symba_tp</title>
-<g id="a_type~~graph~~TypeGraph_node13"><a xlink:href=".././type/symba_tp.html" xlink:title="symba_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="734.5,-202 675.5,-202 675.5,-178 734.5,-178 734.5,-202"/>
-<text text-anchor="middle" x="705" y="-187.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_tp</text>
+<title>type~swiftest_encounter</title>
+<g id="a_type~~graph~~TypeGraph_node13"><a xlink:href=".././type/swiftest_encounter.html" xlink:title="swiftest_encounter">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="504.5,-322 402.5,-322 402.5,-298 504.5,-298 504.5,-322"/>
+<text text-anchor="middle" x="453.5" y="-307.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_encounter</text>
 </a>
 </g>
 </g>
-<!-- type~symba_tp&#45;&gt;type~helio_tp -->
-<g id="type~~graph~~TypeGraph_edge8" class="edge">
-<title>type~symba_tp&#45;&gt;type~helio_tp</title>
-<path fill="none" stroke="#000000" d="M675.13,-188.31C638.55,-186.16 575.47,-182.46 535.7,-180.12"/>
-<polygon fill="#000000" stroke="#000000" points="535.82,-176.63 525.63,-179.53 535.41,-183.61 535.82,-176.63"/>
-</g>
-<!-- type~lambda_obj_err -->
+<!-- type~symba_plplenc -->
 <g id="type~~graph~~TypeGraph_node14" class="node">
-<title>type~lambda_obj_err</title>
-<g id="a_type~~graph~~TypeGraph_node14"><a xlink:href=".././type/lambda_obj_err.html" xlink:title="lambda_obj_err">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="1236.5,-519 1148.5,-519 1148.5,-495 1236.5,-495 1236.5,-519"/>
-<text text-anchor="middle" x="1192.5" y="-504.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj_err</text>
+<title>type~symba_plplenc</title>
+<g id="a_type~~graph~~TypeGraph_node14"><a xlink:href=".././type/symba_plplenc.html" xlink:title="symba_plplenc">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="912.5,-264 828.5,-264 828.5,-240 912.5,-240 912.5,-264"/>
+<text text-anchor="middle" x="870.5" y="-249.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_plplenc</text>
 </a>
 </g>
 </g>
-<!-- type~lambda_obj_err&#45;&gt;type~lambda_obj -->
-<g id="type~~graph~~TypeGraph_edge9" class="edge">
-<title>type~lambda_obj_err&#45;&gt;type~lambda_obj</title>
-<path fill="none" stroke="#000000" d="M1148.39,-505.36C1121.03,-504.72 1084.89,-504.63 1053,-507"/>
-</g>
-<!-- type~swiftest_nbody_system -->
-<g id="type~~graph~~TypeGraph_node15" class="node">
-<title>type~swiftest_nbody_system</title>
-<g id="a_type~~graph~~TypeGraph_node15"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="560,-312 437,-312 437,-288 560,-288 560,-312"/>
-<text text-anchor="middle" x="498.5" y="-297.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_nbody_system</text>
+<!-- type~symba_pltpenc -->
+<g id="type~~graph~~TypeGraph_node18" class="node">
+<title>type~symba_pltpenc</title>
+<g id="a_type~~graph~~TypeGraph_node18"><a xlink:href=".././type/symba_pltpenc.html" xlink:title="symba_pltpenc">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="702.5,-310 617.5,-310 617.5,-286 702.5,-286 702.5,-310"/>
+<text text-anchor="middle" x="660" y="-295.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pltpenc</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_base -->
-<g id="type~~graph~~TypeGraph_edge13" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M209,-358C159.65,-352.1 151.73,-331.36 114,-299 104.67,-291 108.29,-277.57 96,-278"/>
-<path fill="none" stroke="#000000" d="M436.81,-303.34C368.63,-307.95 262.93,-317.95 228,-337 217.21,-342.89 222.27,-358.76 210,-358"/>
+<!-- type~symba_plplenc&#45;&gt;type~symba_pltpenc -->
+<g id="type~~graph~~TypeGraph_edge15" class="edge">
+<title>type~symba_plplenc&#45;&gt;type~symba_pltpenc</title>
+<path fill="none" stroke="#000000" d="M844.07,-264.04C814.11,-278.19 768.12,-299.78 766,-300"/>
+<path fill="none" stroke="#000000" d="M764,-300C747.51,-301.69 729.45,-301.9 713.13,-301.47"/>
+<polygon fill="#000000" stroke="#000000" points="712.81,-297.96 702.69,-301.11 712.56,-304.95 712.81,-297.96"/>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_pl -->
-<g id="type~~graph~~TypeGraph_edge11" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M436.72,-294.33C394.46,-290.39 339.28,-285.25 302.23,-281.8"/>
-<polygon fill="#000000" stroke="#000000" points="302.1,-278.27 291.82,-280.83 301.45,-285.24 302.1,-278.27"/>
-<text text-anchor="middle" x="365" y="-295.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl</text>
+<!-- type~helio_cb -->
+<g id="type~~graph~~TypeGraph_node15" class="node">
+<title>type~helio_cb</title>
+<g id="a_type~~graph~~TypeGraph_node15"><a xlink:href=".././type/helio_cb.html" xlink:title="helio_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="480.5,-24 426.5,-24 426.5,0 480.5,0 480.5,-24"/>
+<text text-anchor="middle" x="453.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_cb</text>
+</a>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_tp -->
-<g id="type~~graph~~TypeGraph_edge12" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.6,-287.93C474.03,-272.44 447.99,-246.32 419,-236 381.11,-222.51 334.77,-224.52 302.2,-228.68"/>
-<polygon fill="#000000" stroke="#000000" points="301.55,-225.23 292.13,-230.08 302.52,-232.16 301.55,-225.23"/>
-<text text-anchor="middle" x="365" y="-238.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
-<g id="type~~graph~~TypeGraph_edge10" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M458.92,-312C451.53,-314.69 443.94,-317.72 437,-321 428.52,-325 427.79,-328.73 419,-332 381.26,-346.04 335.64,-352.51 303.22,-355.49"/>
-<polygon fill="#000000" stroke="#000000" points="302.86,-352.01 293.19,-356.34 303.45,-358.99 302.86,-352.01"/>
-<text text-anchor="middle" x="365" y="-357.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
+<!-- type~helio_cb&#45;&gt;type~swiftest_cb -->
+<g id="type~~graph~~TypeGraph_edge16" class="edge">
+<title>type~helio_cb&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" d="M426.32,-19.31C414.41,-23.83 401,-30.77 392,-41 346.57,-92.67 398.73,-146.98 343.5,-188"/>
+<path fill="none" stroke="#000000" d="M341.5,-188C323.48,-201.39 302.84,-216.07 287.04,-227.19"/>
+<polygon fill="#000000" stroke="#000000" points="284.98,-224.36 278.81,-232.96 289,-230.09 284.98,-224.36"/>
 </g>
-<!-- type~rmvs_pl -->
+<!-- type~symba_nbody_system -->
 <g id="type~~graph~~TypeGraph_node16" class="node">
-<title>type~rmvs_pl</title>
-<g id="a_type~~graph~~TypeGraph_node16"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="1219.5,-354 1165.5,-354 1165.5,-330 1219.5,-330 1219.5,-354"/>
-<text text-anchor="middle" x="1192.5" y="-339.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_pl</text>
+<title>type~symba_nbody_system</title>
+<g id="a_type~~graph~~TypeGraph_node16"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1141,-264 1022,-264 1022,-240 1141,-240 1141,-264"/>
+<text text-anchor="middle" x="1081.5" y="-249.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_pl&#45;&gt;type~rmvs_nbody_system -->
-<g id="type~~graph~~TypeGraph_edge15" class="edge">
-<title>type~rmvs_pl&#45;&gt;type~rmvs_nbody_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1165.13,-342C1123.15,-342 1039.9,-342 981.33,-342"/>
-<polygon fill="#000000" stroke="#000000" points="981.06,-338.5 971.06,-342 981.06,-345.5 981.06,-338.5"/>
-<text text-anchor="middle" x="1052" y="-344.4" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
+<!-- type~symba_nbody_system&#45;&gt;type~symba_plplenc -->
+<g id="type~~graph~~TypeGraph_edge19" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~symba_plplenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1021.73,-252C990.62,-252 952.78,-252 922.86,-252"/>
+<polygon fill="#000000" stroke="#000000" points="922.64,-248.5 912.64,-252 922.64,-255.5 922.64,-248.5"/>
+<text text-anchor="middle" x="974" y="-254.4" font-family="Helvetica,sans-Serif" font-size="9.50">plplenc_list</text>
 </g>
-<!-- type~rmvs_pl&#45;&gt;type~rmvs_interp -->
-<g id="type~~graph~~TypeGraph_edge14" class="edge">
-<title>type~rmvs_pl&#45;&gt;type~rmvs_interp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1165.43,-347.66C1150.7,-350.63 1131.9,-354.05 1115,-356 1051.35,-363.34 1035.01,-360.02 971,-363 813.62,-370.33 626.67,-378.5 543.35,-382.11"/>
-<polygon fill="#000000" stroke="#000000" points="543.07,-378.62 533.23,-382.54 543.38,-385.61 543.07,-378.62"/>
-<text text-anchor="middle" x="810" y="-374.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
+<!-- type~symba_nbody_system&#45;&gt;type~symba_pltpenc -->
+<g id="type~~graph~~TypeGraph_edge18" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~symba_pltpenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M973,-300C887.91,-334.99 857.52,-290.6 766,-300"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1054.12,-264.18C1032.82,-273.97 1002.04,-288.02 975,-300"/>
+<text text-anchor="middle" x="870.5" y="-315.4" font-family="Helvetica,sans-Serif" font-size="9.50">pltpenc_list</text>
 </g>
-<!-- type~whm_pl -->
-<g id="type~~graph~~TypeGraph_node18" class="node">
-<title>type~whm_pl</title>
-<g id="a_type~~graph~~TypeGraph_node18"><a xlink:href=".././type/whm_pl.html" xlink:title="whm_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="837,-272 783,-272 783,-248 837,-248 837,-272"/>
-<text text-anchor="middle" x="810" y="-257.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_pl</text>
+<!-- type~helio_nbody_system -->
+<g id="type~~graph~~TypeGraph_node22" class="node">
+<title>type~helio_nbody_system</title>
+<g id="a_type~~graph~~TypeGraph_node22"><a xlink:href=".././type/helio_nbody_system.html" xlink:title="helio_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="925.5,-390 815.5,-390 815.5,-366 925.5,-366 925.5,-390"/>
+<text text-anchor="middle" x="870.5" y="-375.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_nbody_system</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_pl&#45;&gt;type~whm_pl -->
-<g id="type~~graph~~TypeGraph_edge16" class="edge">
-<title>type~rmvs_pl&#45;&gt;type~whm_pl</title>
-<path fill="none" stroke="#000000" d="M1165.36,-333.05C1124.41,-319.38 1042.43,-293.35 971,-279 928.93,-270.55 879.83,-265.4 847.23,-262.64"/>
-<polygon fill="#000000" stroke="#000000" points="847.51,-259.15 837.25,-261.82 846.93,-266.12 847.51,-259.15"/>
+<!-- type~symba_nbody_system&#45;&gt;type~helio_nbody_system -->
+<g id="type~~graph~~TypeGraph_edge20" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
+<path fill="none" stroke="#000000" d="M973,-300C940.3,-313.45 909.05,-340.3 890.07,-358.71"/>
+<polygon fill="#000000" stroke="#000000" points="887.58,-356.25 882.95,-365.78 892.51,-361.21 887.58,-356.25"/>
 </g>
-<!-- type~rmvs_cb -->
-<g id="type~~graph~~TypeGraph_node17" class="node">
-<title>type~rmvs_cb</title>
-<g id="a_type~~graph~~TypeGraph_node17"><a xlink:href=".././type/rmvs_cb.html" xlink:title="rmvs_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="732,-312 678,-312 678,-288 732,-288 732,-312"/>
-<text text-anchor="middle" x="705" y="-297.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_cb</text>
+<!-- type~symba_merger -->
+<g id="type~~graph~~TypeGraph_node35" class="node">
+<title>type~symba_merger</title>
+<g id="a_type~~graph~~TypeGraph_node35"><a xlink:href=".././type/symba_merger.html" xlink:title="symba_merger">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="913,-179 828,-179 828,-155 913,-155 913,-179"/>
+<text text-anchor="middle" x="870.5" y="-164.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_merger</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_cb&#45;&gt;type~whm_cb -->
-<g id="type~~graph~~TypeGraph_edge18" class="edge">
-<title>type~rmvs_cb&#45;&gt;type~whm_cb</title>
-<path fill="none" stroke="#000000" d="M677.68,-305.4C641.56,-312.82 576.47,-326.19 535.76,-334.55"/>
-<polygon fill="#000000" stroke="#000000" points="534.81,-331.18 525.72,-336.62 536.21,-338.03 534.81,-331.18"/>
-</g>
-<!-- type~rmvs_cb&#45;&gt;type~rmvs_interp -->
+<!-- type~symba_nbody_system&#45;&gt;type~symba_merger -->
 <g id="type~~graph~~TypeGraph_edge17" class="edge">
-<title>type~rmvs_cb&#45;&gt;type~rmvs_interp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M677.75,-308.46C668.7,-311.83 658.66,-316.09 650,-321 641.18,-326 640.82,-330 632,-335 602.14,-351.94 592.22,-351.15 560,-363 554.45,-365.04 548.6,-367.14 542.81,-369.19"/>
-<polygon fill="#000000" stroke="#000000" points="541.46,-365.95 533.18,-372.56 543.77,-372.55 541.46,-365.95"/>
-<text text-anchor="middle" x="605" y="-359.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
+<title>type~symba_nbody_system&#45;&gt;type~symba_merger</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1050.89,-239.89C1019.8,-227.18 969.48,-206.64 926,-189 921.16,-187.04 916.08,-184.98 911.04,-182.94"/>
+<polygon fill="#000000" stroke="#000000" points="912.07,-179.59 901.49,-179.08 909.45,-186.08 912.07,-179.59"/>
+<text text-anchor="middle" x="974" y="-222.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl_adds</text>
 </g>
-<!-- type~whm_pl&#45;&gt;type~swiftest_pl -->
-<g id="type~~graph~~TypeGraph_edge19" class="edge">
-<title>type~whm_pl&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" d="M782.8,-257.12C713.95,-250.16 522.42,-234.81 366,-260"/>
+<!-- type~whm_tp&#45;&gt;type~swiftest_tp -->
+<g id="type~~graph~~TypeGraph_edge21" class="edge">
+<title>type~whm_tp&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" d="M532.86,-251.13C478.98,-253.64 359.29,-260.26 343.5,-270"/>
 </g>
-<!-- type~rmvs_tp -->
+<!-- type~symba_pltpenc&#45;&gt;type~swiftest_encounter -->
+<g id="type~~graph~~TypeGraph_edge22" class="edge">
+<title>type~symba_pltpenc&#45;&gt;type~swiftest_encounter</title>
+<path fill="none" stroke="#000000" d="M617.12,-300.46C587.7,-302.18 547.9,-304.52 515.03,-306.45"/>
+<polygon fill="#000000" stroke="#000000" points="514.41,-302.98 504.63,-307.06 514.82,-309.97 514.41,-302.98"/>
+</g>
+<!-- type~swiftest_parameters -->
 <g id="type~~graph~~TypeGraph_node19" class="node">
-<title>type~rmvs_tp</title>
-<g id="a_type~~graph~~TypeGraph_node19"><a xlink:href=".././type/rmvs_tp.html" xlink:title="rmvs_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="942.5,-195 888.5,-195 888.5,-171 942.5,-171 942.5,-195"/>
-<text text-anchor="middle" x="915.5" y="-180.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_tp</text>
+<title>type~swiftest_parameters</title>
+<g id="a_type~~graph~~TypeGraph_node19"><a xlink:href=".././type/swiftest_parameters.html" xlink:title="swiftest_parameters">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="925,-558 816,-558 816,-534 925,-534 925,-558"/>
+<text text-anchor="middle" x="870.5" y="-543.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_parameters</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_tp&#45;&gt;type~rmvs_cb -->
-<g id="type~~graph~~TypeGraph_edge20" class="edge">
-<title>type~rmvs_tp&#45;&gt;type~rmvs_cb</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M908.69,-195.33C898.37,-215.74 874.8,-256.26 842,-276 811.72,-294.22 771.22,-299.41 742.31,-300.54"/>
-<polygon fill="#000000" stroke="#000000" points="742.14,-297.05 732.22,-300.79 742.31,-304.04 742.14,-297.05"/>
-<text text-anchor="middle" x="810" y="-300.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb_heliocentric</text>
-</g>
-<!-- type~whm_tp -->
-<g id="type~~graph~~TypeGraph_node34" class="node">
-<title>type~whm_tp</title>
-<g id="a_type~~graph~~TypeGraph_node34"><a xlink:href=".././type/whm_tp.html" xlink:title="whm_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="632,-150 578,-150 578,-126 632,-126 632,-150"/>
-<text text-anchor="middle" x="605" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_tp</text>
+<!-- type~tides_derivs_func -->
+<g id="type~~graph~~TypeGraph_node20" class="node">
+<title>type~tides_derivs_func</title>
+<g id="a_type~~graph~~TypeGraph_node20"><a xlink:href=".././type/tides_derivs_func.html" xlink:title="tides_derivs_func">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1129.5,-600 1033.5,-600 1033.5,-576 1129.5,-576 1129.5,-600"/>
+<text text-anchor="middle" x="1081.5" y="-585.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_derivs_func</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_tp&#45;&gt;type~whm_tp -->
-<g id="type~~graph~~TypeGraph_edge21" class="edge">
-<title>type~rmvs_tp&#45;&gt;type~whm_tp</title>
-<path fill="none" stroke="#000000" d="M888.46,-179.2C833.54,-171.19 705.68,-152.54 642.57,-143.33"/>
-<polygon fill="#000000" stroke="#000000" points="642.69,-139.82 632.29,-141.84 641.68,-146.74 642.69,-139.82"/>
-</g>
-<!-- type~symba_pltpenc -->
-<g id="type~~graph~~TypeGraph_node20" class="node">
-<title>type~symba_pltpenc</title>
-<g id="a_type~~graph~~TypeGraph_node20"><a xlink:href=".././type/symba_pltpenc.html" xlink:title="symba_pltpenc">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="747.5,-50 662.5,-50 662.5,-26 747.5,-26 747.5,-50"/>
-<text text-anchor="middle" x="705" y="-35.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pltpenc</text>
-</a>
+<!-- lambda_obj_tvar -->
+<g id="type~~graph~~TypeGraph_node36" class="node">
+<title>lambda_obj_tvar</title>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="916.5,-600 824.5,-600 824.5,-576 916.5,-576 916.5,-600"/>
+<text text-anchor="middle" x="870.5" y="-585.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj_tvar</text>
 </g>
+<!-- type~tides_derivs_func&#45;&gt;lambda_obj_tvar -->
+<g id="type~~graph~~TypeGraph_edge23" class="edge">
+<title>type~tides_derivs_func&#45;&gt;lambda_obj_tvar</title>
+<path fill="none" stroke="#000000" d="M1033.34,-588C1001.69,-588 959.9,-588 926.7,-588"/>
+<polygon fill="#000000" stroke="#000000" points="926.7,-584.5 916.7,-588 926.7,-591.5 926.7,-584.5"/>
 </g>
-<!-- type~swiftest_encounter -->
-<g id="type~~graph~~TypeGraph_node32" class="node">
-<title>type~swiftest_encounter</title>
-<g id="a_type~~graph~~TypeGraph_node32"><a xlink:href=".././type/swiftest_encounter.html" xlink:title="swiftest_encounter">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="549.5,-30 447.5,-30 447.5,-6 549.5,-6 549.5,-30"/>
-<text text-anchor="middle" x="498.5" y="-15.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_encounter</text>
+<!-- type~symba_particle_info -->
+<g id="type~~graph~~TypeGraph_node21" class="node">
+<title>type~symba_particle_info</title>
+<g id="a_type~~graph~~TypeGraph_node21"><a xlink:href=".././type/symba_particle_info.html" xlink:title="symba_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="507.5,-74 399.5,-74 399.5,-50 507.5,-50 507.5,-74"/>
+<text text-anchor="middle" x="453.5" y="-59.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_particle_info</text>
 </a>
 </g>
 </g>
-<!-- type~symba_pltpenc&#45;&gt;type~swiftest_encounter -->
-<g id="type~~graph~~TypeGraph_edge22" class="edge">
-<title>type~symba_pltpenc&#45;&gt;type~swiftest_encounter</title>
-<path fill="none" stroke="#000000" d="M662.12,-33.9C632.58,-31.01 592.55,-27.1 559.61,-23.88"/>
-<polygon fill="#000000" stroke="#000000" points="559.92,-20.39 549.63,-22.9 559.24,-27.36 559.92,-20.39"/>
+<!-- type~helio_nbody_system&#45;&gt;type~whm_nbody_system -->
+<g id="type~~graph~~TypeGraph_edge24" class="edge">
+<title>type~helio_nbody_system&#45;&gt;type~whm_nbody_system</title>
+<path fill="none" stroke="#000000" d="M764,-415C751.36,-415 737.96,-413.8 725.14,-412.07"/>
+<polygon fill="#000000" stroke="#000000" points="725.42,-408.57 715.01,-410.58 724.4,-415.5 725.42,-408.57"/>
+<path fill="none" stroke="#000000" d="M837.54,-390.01C808.56,-400.82 769.78,-415 766,-415"/>
 </g>
-<!-- type~swiftest_body -->
-<g id="type~~graph~~TypeGraph_node33" class="node">
-<title>type~swiftest_body</title>
-<g id="a_type~~graph~~TypeGraph_node33"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-290 114,-290 114,-266 191,-266 191,-290"/>
-<text text-anchor="middle" x="152.5" y="-275.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
+<!-- type~whm_cb -->
+<g id="type~~graph~~TypeGraph_node23" class="node">
+<title>type~whm_cb</title>
+<g id="a_type~~graph~~TypeGraph_node23"><a xlink:href=".././type/whm_cb.html" xlink:title="whm_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="480.5,-200 426.5,-200 426.5,-176 480.5,-176 480.5,-200"/>
+<text text-anchor="middle" x="453.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_cb</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
-<g id="type~~graph~~TypeGraph_edge23" class="edge">
-<title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M229.48,-276.13C223.01,-276.25 216.24,-276.77 210,-278"/>
-</g>
-<!-- type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system -->
-<g id="type~~graph~~TypeGraph_edge24" class="edge">
-<title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
-<path fill="none" stroke="#000000" d="M649.73,-330.86C624.66,-325.7 594.6,-319.53 567.98,-314.07"/>
-<polygon fill="#000000" stroke="#000000" points="568.47,-310.59 557.97,-312.01 567.06,-317.45 568.47,-310.59"/>
+<!-- type~whm_cb&#45;&gt;type~swiftest_cb -->
+<g id="type~~graph~~TypeGraph_edge25" class="edge">
+<title>type~whm_cb&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" d="M426.45,-179.94C402.49,-174.25 367.2,-170.4 343.5,-188"/>
 </g>
-<!-- type~symba_merger -->
-<g id="type~~graph~~TypeGraph_node23" class="node">
-<title>type~symba_merger</title>
-<g id="a_type~~graph~~TypeGraph_node23"><a xlink:href=".././type/symba_merger.html" xlink:title="symba_merger">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="958,-112 873,-112 873,-88 958,-88 958,-112"/>
-<text text-anchor="middle" x="915.5" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_merger</text>
+<!-- type~lambda_obj_tvar -->
+<g id="type~~graph~~TypeGraph_node24" class="node">
+<title>type~lambda_obj_tvar</title>
+<g id="a_type~~graph~~TypeGraph_node24"><a xlink:href=".././type/lambda_obj_tvar.html" xlink:title="lambda_obj_tvar">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1127.5,-474 1035.5,-474 1035.5,-450 1127.5,-450 1127.5,-474"/>
+<text text-anchor="middle" x="1081.5" y="-459.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj_tvar</text>
 </a>
 </g>
 </g>
+<!-- type~lambda_obj_tvar&#45;&gt;type~lambda_obj -->
+<g id="type~~graph~~TypeGraph_edge26" class="edge">
+<title>type~lambda_obj_tvar&#45;&gt;type~lambda_obj</title>
+<path fill="none" stroke="#000000" d="M973,-504C954.09,-505.83 933.1,-506.12 915.14,-505.84"/>
+<polygon fill="#000000" stroke="#000000" points="915.02,-502.34 904.95,-505.62 914.87,-509.33 915.02,-502.34"/>
+<path fill="none" stroke="#000000" d="M1045.69,-474.01C1037.86,-476.85 1029.61,-479.94 1022,-483 1000.77,-491.54 997.77,-501.8 975,-504"/>
+</g>
+<!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
+<g id="type~~graph~~TypeGraph_edge27" class="edge">
+<title>type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system</title>
+<path fill="none" stroke="#000000" d="M814.74,-416.37C799.01,-415.6 781.83,-415.01 766,-415"/>
+</g>
 <!-- type~symba_pl -->
-<g id="type~~graph~~TypeGraph_node24" class="node">
+<g id="type~~graph~~TypeGraph_node28" class="node">
 <title>type~symba_pl</title>
-<g id="a_type~~graph~~TypeGraph_node24"><a xlink:href=".././type/symba_pl.html" xlink:title="symba_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="734,-112 676,-112 676,-88 734,-88 734,-112"/>
-<text text-anchor="middle" x="705" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pl</text>
+<g id="a_type~~graph~~TypeGraph_node28"><a xlink:href=".././type/symba_pl.html" xlink:title="symba_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="689,-173 631,-173 631,-149 689,-149 689,-173"/>
+<text text-anchor="middle" x="660" y="-158.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pl</text>
 </a>
 </g>
 </g>
-<!-- type~symba_merger&#45;&gt;type~symba_pl -->
-<g id="type~~graph~~TypeGraph_edge25" class="edge">
-<title>type~symba_merger&#45;&gt;type~symba_pl</title>
-<path fill="none" stroke="#000000" d="M872.81,-100C835.38,-100 780.89,-100 744.49,-100"/>
-<polygon fill="#000000" stroke="#000000" points="744.27,-96.5 734.27,-100 744.27,-103.5 744.27,-96.5"/>
-</g>
 <!-- type~symba_pl&#45;&gt;type~helio_pl -->
-<g id="type~~graph~~TypeGraph_edge28" class="edge">
+<g id="type~~graph~~TypeGraph_edge30" class="edge">
 <title>type~symba_pl&#45;&gt;type~helio_pl</title>
-<path fill="none" stroke="#000000" d="M689.33,-112.2C664.23,-132.57 610.81,-173.76 560,-199 552.2,-202.88 543.51,-206.35 535.2,-209.3"/>
-<polygon fill="#000000" stroke="#000000" points="534.05,-205.99 525.7,-212.51 536.29,-212.62 534.05,-205.99"/>
+<path fill="none" stroke="#000000" d="M630.99,-170.45C594.39,-182.8 530.24,-204.45 490.19,-217.96"/>
+<polygon fill="#000000" stroke="#000000" points="488.91,-214.7 480.55,-221.21 491.15,-221.33 488.91,-214.7"/>
 </g>
 <!-- type~symba_pl&#45;&gt;type~symba_particle_info -->
-<g id="type~~graph~~TypeGraph_edge27" class="edge">
+<g id="type~~graph~~TypeGraph_edge29" class="edge">
 <title>type~symba_pl&#45;&gt;type~symba_particle_info</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M675.76,-100.5C621.82,-101.46 502.91,-103.57 429.12,-104.88"/>
-<polygon fill="#000000" stroke="#000000" points="428.95,-101.38 419.02,-105.06 429.08,-108.38 428.95,-101.38"/>
-<text text-anchor="middle" x="605" y="-105.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.02,-148.82C611.68,-132.48 560.79,-103.19 515,-83 510.82,-81.16 506.43,-79.37 502,-77.66"/>
+<polygon fill="#000000" stroke="#000000" points="502.9,-74.26 492.3,-74.06 500.46,-80.82 502.9,-74.26"/>
+<text text-anchor="middle" x="560" y="-119.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
+</g>
+<!-- type~symba_kinship -->
+<g id="type~~graph~~TypeGraph_node29" class="node">
+<title>type~symba_kinship</title>
+<g id="a_type~~graph~~TypeGraph_node29"><a xlink:href=".././type/symba_kinship.html" xlink:title="symba_kinship">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="495,-158 412,-158 412,-134 495,-134 495,-158"/>
+<text text-anchor="middle" x="453.5" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kinship</text>
+</a>
+</g>
 </g>
 <!-- type~symba_pl&#45;&gt;type~symba_kinship -->
-<g id="type~~graph~~TypeGraph_edge26" class="edge">
+<g id="type~~graph~~TypeGraph_edge28" class="edge">
 <title>type~symba_pl&#45;&gt;type~symba_kinship</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M682.35,-87.92C668.42,-80.78 649.67,-72.31 632,-68 605.55,-61.55 575.3,-59.35 550.39,-58.85"/>
-<polygon fill="#000000" stroke="#000000" points="550.1,-55.34 540.06,-58.73 550.02,-62.34 550.1,-55.34"/>
-<text text-anchor="middle" x="605" y="-70.4" font-family="Helvetica,sans-Serif" font-size="9.50">kin</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630.99,-158.95C598.69,-156.58 544.94,-152.63 505.23,-149.72"/>
+<polygon fill="#000000" stroke="#000000" points="505.43,-146.23 495.2,-148.99 504.92,-153.21 505.43,-146.23"/>
+<text text-anchor="middle" x="560" y="-158.4" font-family="Helvetica,sans-Serif" font-size="9.50">kin</text>
 </g>
-<!-- type~swiftest_tp&#45;&gt;type~swiftest_body -->
-<g id="type~~graph~~TypeGraph_edge29" class="edge">
-<title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M209,-278C206.48,-278.5 203.88,-278.89 201.24,-279.2"/>
-<polygon fill="#000000" stroke="#000000" points="200.72,-275.73 191.01,-279.99 201.25,-282.71 200.72,-275.73"/>
-<path fill="none" stroke="#000000" d="M239.56,-248.09C235.58,-250.83 231.54,-253.86 228,-257 218.8,-265.15 222.06,-275.61 210,-278"/>
-</g>
-<!-- type~helio_nbody_system -->
-<g id="type~~graph~~TypeGraph_node26" class="node">
-<title>type~helio_nbody_system</title>
-<g id="a_type~~graph~~TypeGraph_node26"><a xlink:href=".././type/helio_nbody_system.html" xlink:title="helio_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="970.5,-312 860.5,-312 860.5,-288 970.5,-288 970.5,-312"/>
-<text text-anchor="middle" x="915.5" y="-297.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_nbody_system</text>
+<!-- type~symba_parameters -->
+<g id="type~~graph~~TypeGraph_node30" class="node">
+<title>type~symba_parameters</title>
+<g id="a_type~~graph~~TypeGraph_node30"><a xlink:href=".././type/symba_parameters.html" xlink:title="symba_parameters">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1134,-558 1029,-558 1029,-534 1134,-534 1134,-558"/>
+<text text-anchor="middle" x="1081.5" y="-543.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_parameters</text>
 </a>
 </g>
 </g>
-<!-- type~helio_nbody_system&#45;&gt;type~whm_nbody_system -->
-<g id="type~~graph~~TypeGraph_edge30" class="edge">
-<title>type~helio_nbody_system&#45;&gt;type~whm_nbody_system</title>
-<path fill="none" stroke="#000000" d="M809,-342C796.5,-343.23 783.11,-343.79 770.26,-343.95"/>
-<polygon fill="#000000" stroke="#000000" points="770.07,-340.45 760.09,-343.99 770.1,-347.45 770.07,-340.45"/>
-<path fill="none" stroke="#000000" d="M882.72,-312.02C875.25,-314.91 867.33,-318.02 860,-321 838.05,-329.93 834.58,-339.68 811,-342"/>
-</g>
-<!-- type~helio_cb&#45;&gt;type~swiftest_cb -->
+<!-- type~symba_parameters&#45;&gt;type~swiftest_parameters -->
 <g id="type~~graph~~TypeGraph_edge31" class="edge">
-<title>type~helio_cb&#45;&gt;type~swiftest_cb</title>
-<path fill="none" stroke="#000000" d="M471.42,-420.47C444.97,-415.05 402.81,-406.9 366,-402"/>
+<title>type~symba_parameters&#45;&gt;type~swiftest_parameters</title>
+<path fill="none" stroke="#000000" d="M1028.84,-546C1000.61,-546 965.42,-546 935.47,-546"/>
+<polygon fill="#000000" stroke="#000000" points="935.12,-542.5 925.12,-546 935.12,-549.5 935.12,-542.5"/>
 </g>
-<!-- type~tides_derivs_func -->
-<g id="type~~graph~~TypeGraph_node28" class="node">
-<title>type~tides_derivs_func</title>
-<g id="a_type~~graph~~TypeGraph_node28"><a xlink:href=".././type/tides_derivs_func.html" xlink:title="tides_derivs_func">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="1240.5,-561 1144.5,-561 1144.5,-537 1240.5,-537 1240.5,-561"/>
-<text text-anchor="middle" x="1192.5" y="-546.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_derivs_func</text>
+<!-- type~symba_cb -->
+<g id="type~~graph~~TypeGraph_node31" class="node">
+<title>type~symba_cb</title>
+<g id="a_type~~graph~~TypeGraph_node31"><a xlink:href=".././type/symba_cb.html" xlink:title="symba_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="690.5,-32 629.5,-32 629.5,-8 690.5,-8 690.5,-32"/>
+<text text-anchor="middle" x="660" y="-17.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_cb</text>
 </a>
 </g>
 </g>
-<!-- lambda_obj_tvar -->
-<g id="type~~graph~~TypeGraph_node36" class="node">
-<title>lambda_obj_tvar</title>
-<polygon fill="#5cb85c" stroke="#5cb85c" points="961.5,-561 869.5,-561 869.5,-537 961.5,-537 961.5,-561"/>
-<text text-anchor="middle" x="915.5" y="-546.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj_tvar</text>
-</g>
-<!-- type~tides_derivs_func&#45;&gt;lambda_obj_tvar -->
-<g id="type~~graph~~TypeGraph_edge32" class="edge">
-<title>type~tides_derivs_func&#45;&gt;lambda_obj_tvar</title>
-<path fill="none" stroke="#000000" d="M1144.23,-549C1096.38,-549 1022.45,-549 971.89,-549"/>
-<polygon fill="#000000" stroke="#000000" points="971.79,-545.5 961.79,-549 971.79,-552.5 971.79,-545.5"/>
-</g>
-<!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
+<!-- type~symba_cb&#45;&gt;type~helio_cb -->
 <g id="type~~graph~~TypeGraph_edge33" class="edge">
-<title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M227.75,-359.12C221.83,-359.01 215.72,-358.68 210,-358"/>
-</g>
-<!-- type~lambda_obj_tvar -->
-<g id="type~~graph~~TypeGraph_node30" class="node">
-<title>type~lambda_obj_tvar</title>
-<g id="a_type~~graph~~TypeGraph_node30"><a xlink:href=".././type/lambda_obj_tvar.html" xlink:title="lambda_obj_tvar">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="1238.5,-477 1146.5,-477 1146.5,-453 1238.5,-453 1238.5,-477"/>
-<text text-anchor="middle" x="1192.5" y="-462.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_obj_tvar</text>
-</a>
-</g>
+<title>type~symba_cb&#45;&gt;type~helio_cb</title>
+<path fill="none" stroke="#000000" d="M629.23,-18.73C616.26,-18.19 600.88,-17.55 587,-17 554.51,-15.71 517.54,-14.32 490.92,-13.34"/>
+<polygon fill="#000000" stroke="#000000" points="491.02,-9.84 480.9,-12.97 490.76,-16.83 491.02,-9.84"/>
 </g>
-<!-- type~lambda_obj_tvar&#45;&gt;type~lambda_obj -->
-<g id="type~~graph~~TypeGraph_edge34" class="edge">
-<title>type~lambda_obj_tvar&#45;&gt;type~lambda_obj</title>
-<path fill="none" stroke="#000000" d="M1051,-507C1020.57,-509.26 986.17,-509.21 959.78,-508.63"/>
-<polygon fill="#000000" stroke="#000000" points="959.8,-505.13 949.72,-508.37 959.62,-512.12 959.8,-505.13"/>
-<path fill="none" stroke="#000000" d="M1158.03,-477C1123.99,-488.87 1073.42,-505.48 1053,-507"/>
+<!-- type~symba_cb&#45;&gt;type~symba_particle_info -->
+<g id="type~~graph~~TypeGraph_edge32" class="edge">
+<title>type~symba_cb&#45;&gt;type~symba_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M629.26,-26.11C600.2,-32.08 555.04,-41.35 517.91,-48.98"/>
+<polygon fill="#000000" stroke="#000000" points="516.76,-45.64 507.67,-51.08 518.17,-52.5 516.76,-45.64"/>
+<text text-anchor="middle" x="560" y="-47.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
-<!-- type~symba_plplenc -->
-<g id="type~~graph~~TypeGraph_node31" class="node">
-<title>type~symba_plplenc</title>
-<g id="a_type~~graph~~TypeGraph_node31"><a xlink:href=".././type/symba_plplenc.html" xlink:title="symba_plplenc">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="957.5,-24 873.5,-24 873.5,0 957.5,0 957.5,-24"/>
-<text text-anchor="middle" x="915.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_plplenc</text>
+<!-- type~symba_tp -->
+<g id="type~~graph~~TypeGraph_node32" class="node">
+<title>type~symba_tp</title>
+<g id="a_type~~graph~~TypeGraph_node32"><a xlink:href=".././type/symba_tp.html" xlink:title="symba_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="689.5,-94 630.5,-94 630.5,-70 689.5,-70 689.5,-94"/>
+<text text-anchor="middle" x="660" y="-79.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_tp</text>
 </a>
 </g>
 </g>
-<!-- type~symba_plplenc&#45;&gt;type~symba_pltpenc -->
+<!-- type~symba_tp&#45;&gt;type~helio_tp -->
 <g id="type~~graph~~TypeGraph_edge35" class="edge">
-<title>type~symba_plplenc&#45;&gt;type~symba_pltpenc</title>
-<path fill="none" stroke="#000000" d="M889.07,-24.11C859.12,-38.32 813.13,-59.98 811,-60"/>
-<path fill="none" stroke="#000000" d="M809,-60C790.51,-60.16 770.55,-56.76 753.17,-52.58"/>
-<polygon fill="#000000" stroke="#000000" points="753.82,-49.14 743.26,-50.06 752.09,-55.92 753.82,-49.14"/>
+<title>type~symba_tp&#45;&gt;type~helio_tp</title>
+<path fill="none" stroke="#000000" d="M630.13,-85.11C593.55,-89.04 530.47,-95.83 490.7,-100.11"/>
+<polygon fill="#000000" stroke="#000000" points="490.2,-96.64 480.63,-101.19 490.95,-103.6 490.2,-96.64"/>
 </g>
-<!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
-<g id="type~~graph~~TypeGraph_edge36" class="edge">
-<title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M113.88,-277.7C107.9,-277.74 101.78,-277.83 96,-278"/>
+<!-- type~symba_tp&#45;&gt;type~symba_particle_info -->
+<g id="type~~graph~~TypeGraph_edge34" class="edge">
+<title>type~symba_tp&#45;&gt;type~symba_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630.37,-76.52C617.2,-74.18 601.35,-71.63 587,-70 564.56,-67.46 539.89,-65.69 517.98,-64.48"/>
+<polygon fill="#000000" stroke="#000000" points="517.97,-60.97 507.8,-63.94 517.6,-67.96 517.97,-60.97"/>
+<text text-anchor="middle" x="560" y="-72.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
-<!-- type~whm_tp&#45;&gt;type~swiftest_tp -->
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_pl -->
 <g id="type~~graph~~TypeGraph_edge37" class="edge">
-<title>type~whm_tp&#45;&gt;type~swiftest_tp</title>
-<path fill="none" stroke="#000000" d="M364,-138C321.1,-151.38 326.15,-179.66 293,-210 290.36,-212.42 287.53,-214.9 284.69,-217.31"/>
-<polygon fill="#000000" stroke="#000000" points="282.27,-214.78 276.83,-223.88 286.75,-220.16 282.27,-214.78"/>
-<path fill="none" stroke="#000000" d="M577.88,-133.05C533.25,-125.66 439.96,-114.93 366,-138"/>
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M417.25,-381.95C403.83,-377.7 388.33,-373.19 374,-370 350.34,-364.73 323.47,-360.84 301.92,-358.21"/>
+<polygon fill="#000000" stroke="#000000" points="302.15,-354.71 291.81,-357.02 301.33,-361.66 302.15,-354.71"/>
+<text text-anchor="middle" x="342.5" y="-372.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </g>
-<!-- type~symba_nbody_system -->
-<g id="type~~graph~~TypeGraph_node35" class="node">
-<title>type~symba_nbody_system</title>
-<g id="a_type~~graph~~TypeGraph_node35"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="1252,-89 1133,-89 1133,-65 1252,-65 1252,-89"/>
-<text text-anchor="middle" x="1192.5" y="-74.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
-</a>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_tp -->
+<g id="type~~graph~~TypeGraph_edge38" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.82,-381.91C401.54,-379.45 396.46,-376.51 392,-373 380.37,-363.85 385.81,-353.91 374,-345 353.24,-329.33 325.26,-320.84 302.4,-316.26"/>
+<polygon fill="#000000" stroke="#000000" points="302.76,-312.77 292.3,-314.42 301.51,-319.65 302.76,-312.77"/>
+<text text-anchor="middle" x="342.5" y="-347.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </g>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
+<g id="type~~graph~~TypeGraph_edge36" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.29,-381.89C398.42,-379.45 394.9,-376.52 392,-373 355.77,-328.99 416.88,-283.57 374,-246 355.06,-229.41 326.66,-229.27 303.14,-233.23"/>
+<polygon fill="#000000" stroke="#000000" points="302.2,-229.85 293.06,-235.21 303.55,-236.71 302.2,-229.85"/>
+<text text-anchor="middle" x="342.5" y="-248.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
 </g>
-<!-- type~symba_nbody_system&#45;&gt;type~symba_pltpenc -->
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_base -->
 <g id="type~~graph~~TypeGraph_edge39" class="edge">
-<title>type~symba_nbody_system&#45;&gt;type~symba_pltpenc</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1132.87,-72.44C1058.17,-67.08 925.06,-59.02 811,-60"/>
-<text text-anchor="middle" x="915.5" y="-66.4" font-family="Helvetica,sans-Serif" font-size="9.50">pltpenc_list</text>
-</g>
-<!-- type~symba_nbody_system&#45;&gt;type~symba_merger -->
-<g id="type~~graph~~TypeGraph_edge38" class="edge">
-<title>type~symba_nbody_system&#45;&gt;type~symba_merger</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1132.84,-81.91C1084.01,-85.99 1015.13,-91.75 968.31,-95.67"/>
-<polygon fill="#000000" stroke="#000000" points="967.75,-92.2 958.08,-96.52 968.34,-99.18 967.75,-92.2"/>
-<text text-anchor="middle" x="1052" y="-96.4" font-family="Helvetica,sans-Serif" font-size="9.50">mergeadd_list, mergesub_list</text>
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M391.74,-404.3C321.07,-413.29 202.78,-418.89 114,-375 102.98,-369.55 108.29,-353.71 96,-354"/>
 </g>
-<!-- type~symba_nbody_system&#45;&gt;type~helio_nbody_system -->
+<!-- type~rmvs_cb&#45;&gt;type~whm_cb -->
 <g id="type~~graph~~TypeGraph_edge41" class="edge">
-<title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
-<path fill="none" stroke="#000000" d="M1176.32,-89.31C1130.68,-126.32 994.48,-236.77 939.7,-281.19"/>
-<polygon fill="#000000" stroke="#000000" points="937.19,-278.71 931.63,-287.73 941.6,-284.15 937.19,-278.71"/>
+<title>type~rmvs_cb&#45;&gt;type~whm_cb</title>
+<path fill="none" stroke="#000000" d="M632.68,-207.17C596.56,-203.28 531.47,-196.28 490.76,-191.9"/>
+<polygon fill="#000000" stroke="#000000" points="491.03,-188.41 480.72,-190.82 490.28,-195.37 491.03,-188.41"/>
 </g>
-<!-- type~symba_nbody_system&#45;&gt;type~symba_plplenc -->
+<!-- type~rmvs_cb&#45;&gt;type~rmvs_interp -->
 <g id="type~~graph~~TypeGraph_edge40" class="edge">
-<title>type~symba_nbody_system&#45;&gt;type~symba_plplenc</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1173.5,-64.85C1158.51,-55.37 1136.26,-42.72 1115,-36 1066.59,-20.7 1008.7,-15.05 967.96,-13.01"/>
-<polygon fill="#000000" stroke="#000000" points="967.88,-9.51 957.73,-12.56 967.57,-16.5 967.88,-9.51"/>
-<text text-anchor="middle" x="1052" y="-38.4" font-family="Helvetica,sans-Serif" font-size="9.50">plplenc_list</text>
+<title>type~rmvs_cb&#45;&gt;type~rmvs_interp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M643.6,-222.17C619.57,-241.26 571.91,-279.64 533,-314 524.75,-321.28 524.41,-325.29 515,-331 509.64,-334.26 503.7,-337.1 497.7,-339.55"/>
+<polygon fill="#000000" stroke="#000000" points="496.42,-336.29 488.29,-343.08 498.88,-342.84 496.42,-336.29"/>
+<text text-anchor="middle" x="560" y="-316.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
+</g>
+<!-- type~symba_merger&#45;&gt;type~symba_pl -->
+<g id="type~~graph~~TypeGraph_edge42" class="edge">
+<title>type~symba_merger&#45;&gt;type~symba_pl</title>
+<path fill="none" stroke="#000000" d="M827.81,-165.8C790.38,-164.72 735.89,-163.16 699.49,-162.11"/>
+<polygon fill="#000000" stroke="#000000" points="699.36,-158.6 689.27,-161.81 699.16,-165.6 699.36,-158.6"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/drift_implementation.html b/docs/module/drift_implementation.html
index 29de46ca0..f30432e1a 100644
--- a/docs/module/drift_implementation.html
+++ b/docs/module/drift_implementation.html
@@ -134,7 +134,7 @@ <h1>drift_implementation
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 2.7% of total for modules and submodules.">352 statements</a>
+    title=" 2.6% of total for modules and submodules.">352 statements</a>
      </li> 
      
      
@@ -299,255 +299,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~drift_implementation~~UsesGraph Pages: 1 -->
-<svg id="moduledrift_implementationUsesGraph" width="641pt" height="188pt"
- viewBox="0.00 0.00 641.00 187.67" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~drift_implementation~~UsesGraph" class="graph" transform="scale(0.67 0.67) rotate(0) translate(4 274.43)">
+<svg id="moduledrift_implementationUsesGraph" width="641pt" height="182pt"
+ viewBox="0.00 0.00 641.00 181.95" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~drift_implementation~~UsesGraph" class="graph" transform="scale(0.67 0.67) rotate(0) translate(4 265.94)">
 <title>module~~drift_implementation~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-274.43 947,-274.43 947,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 947,-265.94 947,4 -4,4"/>
 <!-- module~drift_implementation -->
 <g id="module~~drift_implementation~~UsesGraph_node1" class="node">
 <title>module~drift_implementation</title>
-<polygon fill="none" stroke="black" points="943,-217.16 834,-217.16 834,-193.16 943,-193.16 943,-217.16"/>
-<text text-anchor="middle" x="888.5" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">drift_implementation</text>
+<polygon fill="none" stroke="black" points="943,-234.94 834,-234.94 834,-210.94 943,-210.94 943,-234.94"/>
+<text text-anchor="middle" x="888.5" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">drift_implementation</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~drift_implementation~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~drift_implementation~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~drift_implementation&#45;&gt;module~swiftest_classes -->
 <g id="module~~drift_implementation~~UsesGraph_edge2" class="edge">
 <title>module~drift_implementation&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M858.54,-217.18C794.56,-242.03 636.77,-293.86 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M845.11,-234.96C800.91,-246.42 729.42,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~drift_implementation~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~drift_implementation~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~drift_implementation&#45;&gt;module~swiftest -->
 <g id="module~~drift_implementation~~UsesGraph_edge1" class="edge">
 <title>module~drift_implementation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M863.01,-193.07C846.31,-184.83 824,-173.82 805.65,-164.76"/>
-<polygon fill="#000000" stroke="#000000" points="806.98,-161.52 796.46,-160.23 803.88,-167.79 806.98,-161.52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.81,-213.64C825.11,-212.14 816.29,-210.61 808.14,-209.2"/>
+<polygon fill="#000000" stroke="#000000" points="808.68,-205.74 798.23,-207.48 807.49,-212.64 808.68,-205.74"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~drift_implementation~~UsesGraph_node9" class="node">
+<g id="module~~drift_implementation~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~drift_implementation~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~drift_implementation~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~drift_implementation~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~drift_implementation~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~drift_implementation~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~drift_implementation~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~drift_implementation~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~drift_implementation~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~drift_implementation~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~drift_implementation~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~drift_implementation~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~drift_implementation~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~drift_implementation~~UsesGraph_edge6" class="edge">
+<g id="module~~drift_implementation~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~drift_implementation~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~drift_implementation~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~drift_implementation~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~drift_implementation~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~drift_implementation~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~drift_implementation~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~drift_implementation~~UsesGraph_edge7" class="edge">
+<g id="module~~drift_implementation~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~drift_implementation~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~drift_implementation~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~drift_implementation~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~drift_implementation~~UsesGraph_node8" class="node">
+<g id="module~~drift_implementation~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~drift_implementation~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~drift_implementation~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~drift_implementation~~UsesGraph_edge8" class="edge">
+<g id="module~~drift_implementation~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~drift_implementation~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~drift_implementation~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~drift_implementation~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~drift_implementation~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~drift_implementation~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~drift_implementation~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~drift_implementation~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~drift_implementation~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~drift_implementation~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~drift_implementation~~UsesGraph_edge12" class="edge">
+<g id="module~~drift_implementation~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~drift_implementation~~UsesGraph_edge14" class="edge">
+<g id="module~~drift_implementation~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~drift_implementation~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~drift_implementation~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~drift_implementation~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~drift_implementation~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~drift_implementation~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~drift_implementation~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~drift_implementation~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~drift_implementation~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~drift_implementation~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~drift_implementation~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~drift_implementation~~UsesGraph_edge21" class="edge">
+<g id="module~~drift_implementation~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~drift_implementation~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~drift_implementation~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~drift_implementation~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~drift_implementation~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~drift_implementation~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~drift_implementation~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/helio_classes.html b/docs/module/helio_classes.html
index 4f5932710..419753e49 100644
--- a/docs/module/helio_classes.html
+++ b/docs/module/helio_classes.html
@@ -136,7 +136,7 @@ <h1>helio_classes
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.5% of total for modules and submodules.">192 statements</a>
+    title=" 1.4% of total for modules and submodules.">192 statements</a>
      </li> 
      
      
@@ -318,94 +318,95 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~helio_classes~~UsesGraph Pages: 1 -->
-<svg id="modulehelio_classesUsesGraph" width="568pt" height="72pt"
- viewBox="0.00 0.00 568.00 72.49" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~helio_classes~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 68.49)">
+<svg id="modulehelio_classesUsesGraph" width="568pt" height="73pt"
+ viewBox="0.00 0.00 568.00 73.13" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~helio_classes~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 69.13)">
 <title>module~~helio_classes~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-68.49 564,-68.49 564,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-69.13 564,-69.13 564,4 -4,4"/>
 <!-- module~helio_classes -->
 <g id="module~~helio_classes~~UsesGraph_node1" class="node">
 <title>module~helio_classes</title>
-<polygon fill="none" stroke="black" points="560,-52.05 484,-52.05 484,-28.05 560,-28.05 560,-52.05"/>
-<text text-anchor="middle" x="522" y="-37.65" font-family="Helvetica,sans-Serif" font-size="10.50">helio_classes</text>
+<polygon fill="none" stroke="black" points="560,-57.04 484,-57.04 484,-33.04 560,-33.04 560,-57.04"/>
+<text text-anchor="middle" x="522" y="-42.64" font-family="Helvetica,sans-Serif" font-size="10.50">helio_classes</text>
 </g>
-<!-- module~swiftest_classes -->
+<!-- module~swiftest_globals -->
 <g id="module~~helio_classes~~UsesGraph_node2" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~helio_classes~~UsesGraph_node2"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-37.04 123,-37.04 123,-13.04 211,-13.04 211,-37.04"/>
+<text text-anchor="middle" x="167" y="-22.64" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+</a>
+</g>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~helio_classes~~UsesGraph_edge1" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409,-65.04C336.51,-65.39 318.21,-59.61 247,-46.04 237.79,-44.29 228.06,-42.04 218.71,-39.67"/>
+<polygon fill="#000000" stroke="#000000" points="219.31,-36.21 208.75,-37.06 217.54,-42.98 219.31,-36.21"/>
+</g>
+<!-- module~swiftest_classes -->
+<g id="module~~helio_classes~~UsesGraph_node3" class="node">
 <title>module~swiftest_classes</title>
-<g id="a_module~~helio_classes~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="336,-52.05 247,-52.05 247,-28.05 336,-28.05 336,-52.05"/>
-<text text-anchor="middle" x="291.5" y="-37.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~helio_classes~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="336,-37.04 247,-37.04 247,-13.04 336,-13.04 336,-37.04"/>
+<text text-anchor="middle" x="291.5" y="-22.64" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~helio_classes~~UsesGraph_edge1" class="edge">
+<g id="module~~helio_classes~~UsesGraph_edge3" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M486.53,-52.11C474.49,-55.74 460.8,-59.24 448,-61.05 414.55,-65.76 405.5,-65.39 372,-61.05 361.49,-59.68 350.38,-57.34 339.92,-54.7"/>
-<polygon fill="#000000" stroke="#000000" points="340.68,-51.29 330.11,-52.11 338.89,-58.05 340.68,-51.29"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409,-65.04C378.5,-65.19 345.82,-52.75 322.86,-41.71"/>
+<polygon fill="#000000" stroke="#000000" points="324.16,-38.45 313.65,-37.11 321.03,-44.71 324.16,-38.45"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.88,-55.13C462.7,-60.04 435.55,-64.93 411,-65.04"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~helio_classes~~UsesGraph_node3" class="node">
+<g id="module~~helio_classes~~UsesGraph_node4" class="node">
 <title>module~whm_classes</title>
-<g id="a_module~~helio_classes~~UsesGraph_node3"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="448,-52.05 372,-52.05 372,-28.05 448,-28.05 448,-52.05"/>
-<text text-anchor="middle" x="410" y="-37.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<g id="a_module~~helio_classes~~UsesGraph_node4"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="448,-37.04 372,-37.04 372,-13.04 448,-13.04 448,-37.04"/>
+<text text-anchor="middle" x="410" y="-22.64" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
 <g id="module~~helio_classes~~UsesGraph_edge2" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.76,-40.05C475.61,-40.05 466.87,-40.05 458.38,-40.05"/>
-<polygon fill="#000000" stroke="#000000" points="458.2,-36.55 448.2,-40.05 458.2,-43.55 458.2,-36.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.76,-38.27C475.52,-36.77 466.68,-35.17 458.1,-33.61"/>
+<polygon fill="#000000" stroke="#000000" points="458.67,-30.15 448.2,-31.81 457.42,-37.04 458.67,-30.15"/>
 </g>
-<!-- module~swiftest_globals -->
-<g id="module~~helio_classes~~UsesGraph_node4" class="node">
-<title>module~swiftest_globals</title>
-<g id="a_module~~helio_classes~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-32.05 123,-32.05 123,-8.05 211,-8.05 211,-32.05"/>
-<text text-anchor="middle" x="167" y="-17.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<!-- iso_fortran_env -->
+<g id="module~~helio_classes~~UsesGraph_node5" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~helio_classes~~UsesGraph_node5"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-37.04 0,-37.04 0,-13.04 87,-13.04 87,-37.04"/>
+<text text-anchor="middle" x="43.5" y="-22.64" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~helio_classes~~UsesGraph_edge3" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.5,-0.05C267.53,0.05 242.44,-3.41 220.99,-7.47"/>
-<polygon fill="#000000" stroke="#000000" points="220.22,-4.05 211.09,-9.43 221.58,-10.92 220.22,-4.05"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.77,-28.1C472.38,-24.79 459.76,-21.44 448,-19.05 379.77,-5.16 362.12,-0.32 292.5,-0.05"/>
-</g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
 <g id="module~~helio_classes~~UsesGraph_edge4" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.97,-32.94C238.66,-31.58 229.88,-30.15 221.31,-28.75"/>
-<polygon fill="#000000" stroke="#000000" points="221.83,-25.29 211.39,-27.13 220.7,-32.2 221.83,-25.29"/>
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-25.04C114.58,-25.04 105.86,-25.04 97.36,-25.04"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-21.54 87.13,-25.04 97.13,-28.54 97.13,-21.54"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~helio_classes~~UsesGraph_edge5" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.82,-40.05C363.68,-40.05 354.91,-40.05 346.27,-40.05"/>
-<polygon fill="#000000" stroke="#000000" points="346.24,-36.55 336.24,-40.05 346.24,-43.55 346.24,-36.55"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.97,-25.04C238.75,-25.04 230.07,-25.04 221.59,-25.04"/>
+<polygon fill="#000000" stroke="#000000" points="221.39,-21.54 211.39,-25.04 221.39,-28.54 221.39,-21.54"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~helio_classes~~UsesGraph_edge6" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M387.43,-27.88C364.59,-16.16 327.14,-0.18 292.5,-0.05"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~helio_classes~~UsesGraph_node5" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~helio_classes~~UsesGraph_node5"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-32.05 0,-32.05 0,-8.05 87,-8.05 87,-32.05"/>
-<text text-anchor="middle" x="43.5" y="-17.65" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.53,-12.98C362.49,-9.35 348.8,-5.85 336,-4.04 296.83,1.48 286.22,1.08 247,-4.04 236.55,-5.41 225.51,-7.75 215.11,-10.38"/>
+<polygon fill="#000000" stroke="#000000" points="214.14,-7.02 205.37,-12.98 215.94,-13.78 214.14,-7.02"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~helio_classes~~UsesGraph_edge7" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-20.05C114.58,-20.05 105.86,-20.05 97.36,-20.05"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-16.55 87.13,-20.05 97.13,-23.55 97.13,-16.55"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.82,-25.04C363.68,-25.04 354.91,-25.04 346.27,-25.04"/>
+<polygon fill="#000000" stroke="#000000" points="346.24,-21.54 336.24,-25.04 346.24,-28.54 346.24,-21.54"/>
 </g>
 </g>
 </svg>
@@ -506,1031 +507,1048 @@ <h3 class="panel-title">Used by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~helio_classes~~UsedByGraph Pages: 1 -->
-<svg id="modulehelio_classesUsedByGraph" width="488pt" height="2510pt"
- viewBox="0.00 0.00 488.00 2510.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~helio_classes~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2506)">
+<svg id="modulehelio_classesUsedByGraph" width="488pt" height="2552pt"
+ viewBox="0.00 0.00 488.00 2552.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~helio_classes~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2548)">
 <title>module~~helio_classes~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2506 484,-2506 484,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2548 484,-2548 484,4 -4,4"/>
 <!-- module~helio_classes -->
 <g id="module~~helio_classes~~UsedByGraph_node1" class="node">
 <title>module~helio_classes</title>
-<polygon fill="none" stroke="black" points="76,-1241 0,-1241 0,-1217 76,-1217 76,-1241"/>
-<text text-anchor="middle" x="38" y="-1226.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_classes</text>
+<polygon fill="none" stroke="black" points="76,-2134 0,-2134 0,-2110 76,-2110 76,-2134"/>
+<text text-anchor="middle" x="38" y="-2119.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_classes</text>
 </g>
-<!-- module~swiftest -->
+<!-- module~s_helio_coord -->
 <g id="module~~helio_classes~~UsedByGraph_node2" class="node">
+<title>module~s_helio_coord</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node2"><a xlink:href=".././module/s_helio_coord.html" xlink:title="s_helio_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-2544 362,-2544 362,-2520 441,-2520 441,-2544"/>
+<text text-anchor="middle" x="401.5" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_coord</text>
+</a>
+</g>
+</g>
+<!-- module~s_helio_coord&#45;&gt;module~helio_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge3" class="edge">
+<title>module~s_helio_coord&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M361.85,-2525.75C348.92,-2522.59 334.79,-2517.89 323,-2511 289.08,-2491.17 300.28,-2448 261,-2448"/>
+</g>
+<!-- module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_node7" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="287,-1221 233,-1221 233,-1197 287,-1197 287,-1221"/>
-<text text-anchor="middle" x="260" y="-1206.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~helio_classes~~UsedByGraph_node7"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="287,-1326 233,-1326 233,-1302 287,-1302 287,-1326"/>
+<text text-anchor="middle" x="260" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge2" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M232.65,-1200.24C209.43,-1194.34 176.18,-1190.61 155.5,-1209"/>
+<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge60" class="edge">
+<title>module~s_helio_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.82,-2530.74C347.44,-2528.18 332.37,-2522.61 323,-2511 284.64,-2463.46 264.48,-1495.65 261.41,-1336.16"/>
+<polygon fill="#000000" stroke="#000000" points="264.91,-1336.03 261.22,-1326.1 257.91,-1336.16 264.91,-1336.03"/>
 </g>
-<!-- module~symba_classes -->
-<g id="module~~helio_classes~~UsedByGraph_node5" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node5"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="197,-1261 112,-1261 112,-1237 197,-1237 197,-1261"/>
-<text text-anchor="middle" x="154.5" y="-1246.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<!-- module~s_helio_drift -->
+<g id="module~~helio_classes~~UsedByGraph_node3" class="node">
+<title>module~s_helio_drift</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node3"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-2502 366.5,-2502 366.5,-2478 436.5,-2478 436.5,-2502"/>
+<text text-anchor="middle" x="401.5" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge68" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M232.88,-1219.09C221.83,-1223.37 208.68,-1228.45 196.39,-1233.2"/>
-<polygon fill="#000000" stroke="#000000" points="194.84,-1230.04 186.77,-1236.91 197.36,-1236.57 194.84,-1230.04"/>
+<!-- module~s_helio_drift&#45;&gt;module~helio_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge4" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M366.42,-2481.25C352.85,-2477.64 337.14,-2473.3 323,-2469 295.17,-2460.52 290.09,-2448 261,-2448"/>
+</g>
+<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge30" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.23,-2489.42C350.62,-2487.25 333.34,-2481.79 323,-2469 286.01,-2423.25 264.78,-1493.09 261.46,-1336.33"/>
+<polygon fill="#000000" stroke="#000000" points="264.95,-1335.97 261.24,-1326.05 257.96,-1336.12 264.95,-1335.97"/>
 </g>
 <!-- module~s_helio_kick -->
-<g id="module~~helio_classes~~UsedByGraph_node3" class="node">
+<g id="module~~helio_classes~~UsedByGraph_node4" class="node">
 <title>module~s_helio_kick</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node3"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-2082 366.5,-2082 366.5,-2058 436.5,-2058 436.5,-2082"/>
-<text text-anchor="middle" x="401.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
+<g id="a_module~~helio_classes~~UsedByGraph_node4"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-2460 366.5,-2460 366.5,-2436 436.5,-2436 436.5,-2460"/>
+<text text-anchor="middle" x="401.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
 </a>
 </g>
 </g>
 <!-- module~s_helio_kick&#45;&gt;module~helio_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge3" class="edge">
+<g id="module~~helio_classes~~UsedByGraph_edge5" class="edge">
 <title>module~s_helio_kick&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M366.38,-2068.91C350.99,-2066.59 333.87,-2061.16 323,-2049 196.18,-1907.06 297.72,-1082.49 155.5,-1209"/>
+<path fill="none" stroke="#000000" d="M366.39,-2448C338.15,-2448 296.96,-2448 261,-2448"/>
 </g>
 <!-- module~s_helio_kick&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge11" class="edge">
+<g id="module~~helio_classes~~UsedByGraph_edge41" class="edge">
 <title>module~s_helio_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.18,-2069.47C350.55,-2067.3 333.28,-2061.84 323,-2049 266.41,-1978.33 323.49,-1317.86 287,-1235 286.08,-1232.91 284.91,-1230.9 283.58,-1228.98"/>
-<polygon fill="#000000" stroke="#000000" points="286.13,-1226.58 276.97,-1221.25 280.81,-1231.13 286.13,-1226.58"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.25,-2447.41C350.63,-2445.24 333.35,-2439.78 323,-2427 287.38,-2383.04 265.09,-1490.31 261.51,-1336.48"/>
+<polygon fill="#000000" stroke="#000000" points="265.01,-1336.26 261.28,-1326.34 258.01,-1336.42 265.01,-1336.26"/>
 </g>
 <!-- module~s_helio_gr -->
-<g id="module~~helio_classes~~UsedByGraph_node4" class="node">
+<g id="module~~helio_classes~~UsedByGraph_node5" class="node">
 <title>module~s_helio_gr</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node4"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="432.5,-150 370.5,-150 370.5,-126 432.5,-126 432.5,-150"/>
-<text text-anchor="middle" x="401.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
+<g id="a_module~~helio_classes~~UsedByGraph_node5"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="432.5,-2418 370.5,-2418 370.5,-2394 432.5,-2394 432.5,-2418"/>
+<text text-anchor="middle" x="401.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
 </a>
 </g>
 </g>
 <!-- module~s_helio_gr&#45;&gt;module~helio_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge4" class="edge">
+<g id="module~~helio_classes~~UsedByGraph_edge6" class="edge">
 <title>module~s_helio_gr&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M370.2,-130.25C355.83,-126.46 338.47,-121.71 323,-117 295.17,-108.52 281.02,-74.89 261,-96"/>
+<path fill="none" stroke="#000000" d="M370.2,-2413.75C355.83,-2417.54 338.47,-2422.29 323,-2427 295.17,-2435.48 290.09,-2448 261,-2448"/>
 </g>
 <!-- module~s_helio_gr&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge37" class="edge">
+<g id="module~~helio_classes~~UsedByGraph_edge53" class="edge">
 <title>module~s_helio_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.19,-138.12C353.63,-139.9 334.26,-145.15 323,-159 255.99,-241.43 259.57,-1041.56 260.78,-1186.53"/>
-<polygon fill="#000000" stroke="#000000" points="257.28,-1186.88 260.87,-1196.84 264.28,-1186.81 257.28,-1186.88"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge1" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M111.84,-1241.72C103.57,-1240.28 94.82,-1238.75 86.37,-1237.27"/>
-<polygon fill="#000000" stroke="#000000" points="86.72,-1233.78 76.27,-1235.51 85.52,-1240.68 86.72,-1233.78"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.19,-2405.89C353.62,-2404.1 334.25,-2398.85 323,-2385 254.63,-2300.8 259.35,-1483.08 260.75,-1336.45"/>
+<polygon fill="#000000" stroke="#000000" points="264.26,-1336.08 260.86,-1326.04 257.26,-1336.01 264.26,-1336.08"/>
 </g>
 <!-- module~s_helio_step -->
 <g id="module~~helio_classes~~UsedByGraph_node6" class="node">
 <title>module~s_helio_step</title>
 <g id="a_module~~helio_classes~~UsedByGraph_node6"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="438,-108 365,-108 365,-84 438,-84 438,-108"/>
-<text text-anchor="middle" x="401.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="438,-2376 365,-2376 365,-2352 438,-2352 438,-2376"/>
+<text text-anchor="middle" x="401.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
 </a>
 </g>
 </g>
 <!-- module~s_helio_step&#45;&gt;module~helio_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge5" class="edge">
+<g id="module~~helio_classes~~UsedByGraph_edge7" class="edge">
 <title>module~s_helio_step&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M367.01,-83.97C334.9,-74.83 287.5,-68.06 261,-96"/>
+<path fill="none" stroke="#000000" d="M365,-2369.5C351.24,-2372.66 335.76,-2377.54 323,-2385 289.08,-2404.83 300.28,-2448 261,-2448"/>
+<path fill="none" stroke="#000000" d="M259,-2448C213,-2448 201.35,-2444.34 155.5,-2448"/>
 </g>
 <!-- module~s_helio_step&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge15" class="edge">
+<g id="module~~helio_classes~~UsedByGraph_edge66" class="edge">
 <title>module~s_helio_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.66,-96.82C349.47,-99.14 333.01,-104.66 323,-117 288.06,-160.08 265.25,-1034.27 261.54,-1186.49"/>
-<polygon fill="#000000" stroke="#000000" points="258.03,-1186.81 261.28,-1196.89 265.03,-1186.98 258.03,-1186.81"/>
-</g>
-<!-- module~s_helio_coord -->
-<g id="module~~helio_classes~~UsedByGraph_node7" class="node">
-<title>module~s_helio_coord</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node7"><a xlink:href=".././module/s_helio_coord.html" xlink:title="s_helio_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-66 362,-66 362,-42 441,-42 441,-66"/>
-<text text-anchor="middle" x="401.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_coord</text>
-</a>
-</g>
-</g>
-<!-- module~s_helio_coord&#45;&gt;module~helio_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge6" class="edge">
-<title>module~s_helio_coord&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M361.98,-55.48C330.52,-58.79 287.11,-68.47 261,-96"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.68,-2363.16C349.5,-2360.84 333.03,-2355.33 323,-2343 257.34,-2262.34 259.8,-1479.74 260.81,-1336.47"/>
+<polygon fill="#000000" stroke="#000000" points="264.31,-1336.28 260.89,-1326.26 257.31,-1336.23 264.31,-1336.28"/>
 </g>
-<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge16" class="edge">
-<title>module~s_helio_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.84,-55.28C347.46,-57.83 332.38,-63.41 323,-75 286.7,-119.86 264.94,-1031.27 261.48,-1186.59"/>
-<polygon fill="#000000" stroke="#000000" points="257.98,-1186.73 261.26,-1196.8 264.98,-1186.88 257.98,-1186.73"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge1" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.5,-2448C89.09,-2453.14 52,-2218.75 41.86,-2144.34"/>
+<polygon fill="#000000" stroke="#000000" points="45.3,-2143.66 40.51,-2134.2 38.36,-2144.58 45.3,-2143.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.54,-1326.3C253.94,-1448.66 214.68,-2443.28 155.5,-2448"/>
 </g>
-<!-- module~s_helio_drift -->
+<!-- module~symba_classes -->
 <g id="module~~helio_classes~~UsedByGraph_node8" class="node">
-<title>module~s_helio_drift</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node8"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-24 366.5,-24 366.5,0 436.5,0 436.5,-24"/>
-<text text-anchor="middle" x="401.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
+<title>module~symba_classes</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="197,-1809 112,-1809 112,-1785 197,-1785 197,-1809"/>
+<text text-anchor="middle" x="154.5" y="-1794.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_drift&#45;&gt;module~helio_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge7" class="edge">
-<title>module~s_helio_drift&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M259,-96C88.05,-276.22 353.55,-1059.07 155.5,-1209"/>
-<path fill="none" stroke="#000000" d="M153.5,-1209C134.54,-1223.35 108.78,-1228.73 86.49,-1230.35"/>
-<polygon fill="#000000" stroke="#000000" points="86.01,-1226.87 76.2,-1230.86 86.36,-1233.86 86.01,-1226.87"/>
-<path fill="none" stroke="#000000" d="M366.16,-17.24C352.11,-20.39 336.12,-25.33 323,-33 289.08,-52.83 288.04,-67.5 261,-96"/>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge69" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.34,-1326.42C242.45,-1391.21 178.31,-1690.55 160.25,-1774.85"/>
+<polygon fill="#000000" stroke="#000000" points="156.82,-1774.15 158.14,-1784.66 163.66,-1775.61 156.82,-1774.15"/>
 </g>
-<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge46" class="edge">
-<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.23,-12.57C350.61,-14.74 333.34,-20.2 323,-33 285.32,-79.64 264.63,-1028.56 261.44,-1186.74"/>
-<polygon fill="#000000" stroke="#000000" points="257.94,-1186.67 261.24,-1196.74 264.94,-1186.81 257.94,-1186.67"/>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge2" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M149.15,-1809.34C131.97,-1858.12 68.66,-2037.8 46.62,-2100.36"/>
+<polygon fill="#000000" stroke="#000000" points="43.25,-2099.4 43.23,-2109.99 49.86,-2101.72 43.25,-2099.4"/>
 </g>
-<!-- module~s_obl -->
+<!-- module~s_setup -->
 <g id="module~~helio_classes~~UsedByGraph_node9" class="node">
-<title>module~s_obl</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node9"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-2040 374.5,-2040 374.5,-2016 428.5,-2016 428.5,-2040"/>
-<text text-anchor="middle" x="401.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
+<title>module~s_setup</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node9"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-2208 374.5,-2208 374.5,-2184 428.5,-2184 428.5,-2208"/>
+<text text-anchor="middle" x="401.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_obl&#45;&gt;module~swiftest -->
+<!-- module~s_setup&#45;&gt;module~swiftest -->
 <g id="module~~helio_classes~~UsedByGraph_edge8" class="edge">
-<title>module~s_obl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.33,-2028.32C356.94,-2027 335.13,-2022.11 323,-2007 269.25,-1940.03 321.7,-1313.55 287,-1235 286.08,-1232.91 284.91,-1230.9 283.57,-1228.98"/>
-<polygon fill="#000000" stroke="#000000" points="286.12,-1226.58 276.96,-1221.26 280.8,-1231.13 286.12,-1226.58"/>
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.45,-2196.22C357.11,-2194.86 335.32,-2189.96 323,-2175 268.14,-2108.4 261.81,-1464.83 261.09,-1336.28"/>
+<polygon fill="#000000" stroke="#000000" points="264.59,-1336.06 261.04,-1326.08 257.59,-1336.09 264.59,-1336.06"/>
 </g>
-<!-- module~s_util_solve -->
+<!-- module~drift_implementation -->
 <g id="module~~helio_classes~~UsedByGraph_node10" class="node">
-<title>module~s_util_solve</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node10"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="435.5,-1998 367.5,-1998 367.5,-1974 435.5,-1974 435.5,-1998"/>
-<text text-anchor="middle" x="401.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
+<title>module~drift_implementation</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node10"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="456,-2166 347,-2166 347,-2142 456,-2142 456,-2166"/>
+<text text-anchor="middle" x="401.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<!-- module~drift_implementation&#45;&gt;module~swiftest -->
 <g id="module~~helio_classes~~UsedByGraph_edge9" class="edge">
-<title>module~s_util_solve&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.4,-1985.6C351.47,-1983.55 333.58,-1978.14 323,-1965 272.08,-1901.74 319.92,-1309.24 287,-1235 286.07,-1232.91 284.9,-1230.9 283.57,-1228.99"/>
-<polygon fill="#000000" stroke="#000000" points="286.11,-1226.58 276.95,-1221.26 280.8,-1231.13 286.11,-1226.58"/>
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346.67,-2148.62C337.58,-2145.36 329.13,-2140.41 323,-2133 270.85,-2069.92 262.37,-1461.29 261.18,-1336.35"/>
+<polygon fill="#000000" stroke="#000000" points="264.68,-1336.06 261.09,-1326.09 257.68,-1336.12 264.68,-1336.06"/>
 </g>
-<!-- module~s_util_spill -->
+<!-- module~s_rmvs_kick -->
 <g id="module~~helio_classes~~UsedByGraph_node11" class="node">
-<title>module~s_util_spill</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node11"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="432,-1956 371,-1956 371,-1932 432,-1932 432,-1956"/>
-<text text-anchor="middle" x="401.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node11"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="437,-2124 366,-2124 366,-2100 437,-2100 437,-2124"/>
+<text text-anchor="middle" x="401.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_spill&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge10" class="edge">
-<title>module~s_util_spill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.93,-1943.99C354.19,-1942.3 334.38,-1937.1 323,-1923 274.91,-1863.44 318.13,-1304.93 287,-1235 286.07,-1232.92 284.9,-1230.91 283.56,-1228.99"/>
-<polygon fill="#000000" stroke="#000000" points="286.11,-1226.58 276.94,-1221.26 280.79,-1231.14 286.11,-1226.58"/>
+<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge11" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.98,-2111.25C350.5,-2109.01 333.42,-2103.55 323,-2091 273.54,-2031.43 262.96,-1457.35 261.27,-1336.33"/>
+<polygon fill="#000000" stroke="#000000" points="264.77,-1336.01 261.14,-1326.06 257.77,-1336.11 264.77,-1336.01"/>
 </g>
-<!-- module~s_util_append -->
+<!-- module~s_symba_encounter_check -->
 <g id="module~~helio_classes~~UsedByGraph_node12" class="node">
-<title>module~s_util_append</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node12"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-1914 362,-1914 362,-1890 441,-1890 441,-1914"/>
-<text text-anchor="middle" x="401.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
+<title>module~s_symba_encounter_check</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node12"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="473,-2334 330,-2334 330,-2310 473,-2310 473,-2334"/>
+<text text-anchor="middle" x="401.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_append&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge12" class="edge">
-<title>module~s_util_append&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.84,-1900.72C347.47,-1898.16 332.39,-1892.59 323,-1881 277.74,-1825.14 316.35,-1300.63 287,-1235 286.05,-1232.87 284.84,-1230.82 283.46,-1228.86"/>
-<polygon fill="#000000" stroke="#000000" points="285.85,-1226.28 276.66,-1221 280.56,-1230.86 285.85,-1226.28"/>
+<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge10" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M332.81,-2309.84C329.15,-2307.38 325.82,-2304.46 323,-2301 260.05,-2223.86 260.27,-1476.06 260.87,-1336.4"/>
+<polygon fill="#000000" stroke="#000000" points="264.37,-1336.11 260.92,-1326.09 257.37,-1336.08 264.37,-1336.11"/>
 </g>
-<!-- module~s_discard -->
+<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge73" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M329.82,-2311.8C306.04,-2305.64 280.6,-2295.78 261,-2280"/>
+</g>
+<!-- module~s_rmvs_chk -->
 <g id="module~~helio_classes~~UsedByGraph_node13" class="node">
-<title>module~s_discard</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node13"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="430.5,-1872 372.5,-1872 372.5,-1848 430.5,-1848 430.5,-1872"/>
-<text text-anchor="middle" x="401.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
+<title>module~s_rmvs_chk</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node13"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-2082 366.5,-2082 366.5,-2058 436.5,-2058 436.5,-2082"/>
+<text text-anchor="middle" x="401.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
 </a>
 </g>
 </g>
-<!-- module~s_discard&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge13" class="edge">
-<title>module~s_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.12,-1860.08C355.16,-1858.49 334.7,-1853.38 323,-1839 238.15,-1734.69 342.13,-1357.64 287,-1235 286.04,-1232.87 284.83,-1230.82 283.45,-1228.87"/>
-<polygon fill="#000000" stroke="#000000" points="285.84,-1226.28 276.65,-1221.01 280.55,-1230.86 285.84,-1226.28"/>
+<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge12" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.4,-2069.28C350.83,-2067.08 333.54,-2061.63 323,-2049 276.27,-1992.97 263.6,-1454.15 261.39,-1336.58"/>
+<polygon fill="#000000" stroke="#000000" points="264.88,-1336.21 261.2,-1326.27 257.88,-1336.33 264.88,-1336.21"/>
 </g>
-<!-- module~drift_implementation -->
+<!-- module~s_util_get_energy_momentum -->
 <g id="module~~helio_classes~~UsedByGraph_node14" class="node">
-<title>module~drift_implementation</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node14"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="456,-1830 347,-1830 347,-1806 456,-1806 456,-1830"/>
-<text text-anchor="middle" x="401.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node14"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="480,-2040 323,-2040 323,-2016 480,-2016 480,-2040"/>
+<text text-anchor="middle" x="401.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
 </a>
 </g>
 </g>
-<!-- module~drift_implementation&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge14" class="edge">
-<title>module~drift_implementation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346.99,-1812.82C337.77,-1809.55 329.17,-1804.56 323,-1797 243.82,-1700.09 338.56,-1349.03 287,-1235 286.04,-1232.87 284.82,-1230.82 283.44,-1228.87"/>
-<polygon fill="#000000" stroke="#000000" points="285.83,-1226.28 276.63,-1221.02 280.54,-1230.87 285.83,-1226.28"/>
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge13" class="edge">
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M333.26,-2015.98C329.44,-2013.49 325.96,-2010.53 323,-2007 278.92,-1954.42 264.25,-1449.34 261.5,-1336.35"/>
+<polygon fill="#000000" stroke="#000000" points="265,-1336.04 261.26,-1326.13 258,-1336.21 265,-1336.04"/>
 </g>
-<!-- module~s_whm_gr -->
+<!-- module~s_util_coord -->
 <g id="module~~helio_classes~~UsedByGraph_node15" class="node">
-<title>module~s_whm_gr</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node15"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="432.5,-1788 370.5,-1788 370.5,-1764 432.5,-1764 432.5,-1788"/>
-<text text-anchor="middle" x="401.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
+<title>module~s_util_coord</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node15"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-1998 366.5,-1998 366.5,-1974 436.5,-1974 436.5,-1998"/>
+<text text-anchor="middle" x="401.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge62" class="edge">
-<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.24,-1775.84C353.7,-1774.04 334.33,-1768.79 323,-1755 249.48,-1665.49 335,-1340.42 287,-1235 286.03,-1232.88 284.81,-1230.83 283.43,-1228.88"/>
-<polygon fill="#000000" stroke="#000000" points="285.81,-1226.28 276.62,-1221.02 280.52,-1230.87 285.81,-1226.28"/>
+<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge14" class="edge">
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.46,-1985.23C350.9,-1983.02 333.6,-1977.58 323,-1965 281.6,-1915.91 264.95,-1445.13 261.64,-1336.35"/>
+<polygon fill="#000000" stroke="#000000" points="265.13,-1336.09 261.34,-1326.2 258.14,-1336.3 265.13,-1336.09"/>
 </g>
-<!-- module~s_rmvs_util -->
+<!-- module~s_util_set -->
 <g id="module~~helio_classes~~UsedByGraph_node16" class="node">
-<title>module~s_rmvs_util</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node16"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="435,-1746 368,-1746 368,-1722 435,-1722 435,-1746"/>
-<text text-anchor="middle" x="401.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
+<title>module~s_util_set</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node16"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="430.5,-1956 372.5,-1956 372.5,-1932 430.5,-1932 430.5,-1956"/>
+<text text-anchor="middle" x="401.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge17" class="edge">
-<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.93,-1733.54C351.94,-1731.49 333.83,-1726.11 323,-1713 255.14,-1630.89 331.43,-1331.81 287,-1235 286.03,-1232.88 284.8,-1230.83 283.41,-1228.88"/>
-<polygon fill="#000000" stroke="#000000" points="285.8,-1226.29 276.6,-1221.03 280.51,-1230.88 285.8,-1226.29"/>
+<!-- module~s_util_set&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge15" class="edge">
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.33,-1943.9C355.45,-1942.25 335,-1937.13 323,-1923 284.26,-1877.37 265.69,-1440.4 261.79,-1336.22"/>
+<polygon fill="#000000" stroke="#000000" points="265.29,-1336.06 261.42,-1326.19 258.29,-1336.31 265.29,-1336.06"/>
 </g>
-<!-- module~s_util_resize -->
+<!-- module~s_symba_drift -->
 <g id="module~~helio_classes~~UsedByGraph_node17" class="node">
-<title>module~s_util_resize</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node17"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-1704 365.5,-1704 365.5,-1680 437.5,-1680 437.5,-1704"/>
-<text text-anchor="middle" x="401.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
+<title>module~s_symba_drift</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node17"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-2292 362,-2292 362,-2268 441,-2268 441,-2292"/>
+<text text-anchor="middle" x="401.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_resize&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge18" class="edge">
-<title>module~s_util_resize&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.2,-1691.12C349.94,-1688.81 333.26,-1683.32 323,-1671 260.8,-1596.29 327.87,-1323.21 287,-1235 286.02,-1232.88 284.79,-1230.84 283.4,-1228.89"/>
-<polygon fill="#000000" stroke="#000000" points="285.78,-1226.29 276.57,-1221.04 280.49,-1230.89 285.78,-1226.29"/>
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge16" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.9,-2278.67C347.54,-2276.11 332.45,-2270.54 323,-2259 262.74,-2185.36 260.76,-1472.18 260.94,-1336.3"/>
+<polygon fill="#000000" stroke="#000000" points="264.44,-1336.24 260.96,-1326.24 257.44,-1336.23 264.44,-1336.24"/>
 </g>
-<!-- module~s_operator_cross -->
+<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge75" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M361.87,-2292C331.18,-2298.97 288.92,-2302.48 261,-2280"/>
+</g>
+<!-- module~s_util_rescale -->
 <g id="module~~helio_classes~~UsedByGraph_node18" class="node">
-<title>module~s_operator_cross</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node18"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="449.5,-1662 353.5,-1662 353.5,-1638 449.5,-1638 449.5,-1662"/>
-<text text-anchor="middle" x="401.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
+<title>module~s_util_rescale</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node18"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="440.5,-1914 362.5,-1914 362.5,-1890 440.5,-1890 440.5,-1914"/>
+<text text-anchor="middle" x="401.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_rescale</text>
 </a>
 </g>
 </g>
-<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge19" class="edge">
-<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M353.16,-1646.55C341.73,-1643.44 330.62,-1638.07 323,-1629 266.45,-1561.68 324.31,-1314.61 287,-1235 286.01,-1232.89 284.77,-1230.85 283.38,-1228.9"/>
-<polygon fill="#000000" stroke="#000000" points="285.75,-1226.3 276.54,-1221.06 280.47,-1230.9 285.75,-1226.3"/>
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge17" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.15,-1900.46C347.82,-1897.86 332.69,-1892.34 323,-1881 286.94,-1838.84 266.5,-1435.95 261.97,-1336.24"/>
+<polygon fill="#000000" stroke="#000000" points="265.46,-1335.93 261.51,-1326.1 258.46,-1336.24 265.46,-1335.93"/>
 </g>
-<!-- module~s_user_kick_getacch -->
+<!-- module~s_util_version -->
 <g id="module~~helio_classes~~UsedByGraph_node19" class="node">
-<title>module~s_user_kick_getacch</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node19"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="457.5,-1620 345.5,-1620 345.5,-1596 457.5,-1596 457.5,-1620"/>
-<text text-anchor="middle" x="401.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
+<title>module~s_util_version</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node19"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="440.5,-1872 362.5,-1872 362.5,-1848 440.5,-1848 440.5,-1872"/>
+<text text-anchor="middle" x="401.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
 </a>
 </g>
 </g>
-<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge20" class="edge">
-<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345.25,-1601.91C336.75,-1598.66 328.87,-1593.91 323,-1587 272.1,-1527.07 320.75,-1306.02 287,-1235 286,-1232.89 284.75,-1230.86 283.35,-1228.91"/>
-<polygon fill="#000000" stroke="#000000" points="285.72,-1226.31 276.51,-1221.07 280.45,-1230.91 285.72,-1226.31"/>
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge18" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.2,-1858.42C347.88,-1855.81 332.74,-1850.29 323,-1839 289.62,-1800.31 267.4,-1431.69 262.18,-1336.4"/>
+<polygon fill="#000000" stroke="#000000" points="265.68,-1336.2 261.64,-1326.4 258.69,-1336.57 265.68,-1336.2"/>
 </g>
-<!-- module~s_symba_collision -->
+<!-- module~s_util_minimize_bfgs -->
 <g id="module~~helio_classes~~UsedByGraph_node20" class="node">
-<title>module~s_symba_collision</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node20"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="451,-2166 352,-2166 352,-2142 451,-2142 451,-2166"/>
-<text text-anchor="middle" x="401.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node20"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="457.5,-1830 345.5,-1830 345.5,-1806 457.5,-1806 457.5,-1830"/>
+<text text-anchor="middle" x="401.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge64" class="edge">
-<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M351.8,-2150.34C340.8,-2147.17 330.25,-2141.84 323,-2133 264.14,-2061.18 261.02,-1366.53 260.97,-1231.63"/>
-<polygon fill="#000000" stroke="#000000" points="264.47,-1231.29 260.98,-1221.29 257.47,-1231.29 264.47,-1231.29"/>
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge19" class="edge">
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345.39,-1811.78C336.88,-1808.55 328.95,-1803.83 323,-1797 262,-1727.01 260.03,-1421.58 260.7,-1336.23"/>
+<polygon fill="#000000" stroke="#000000" points="264.21,-1336.14 260.81,-1326.1 257.21,-1336.07 264.21,-1336.14"/>
 </g>
-<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge75" class="edge">
-<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M351.97,-2160.43C341.6,-2163.56 331.28,-2168.18 323,-2175 274.83,-2214.68 307.28,-2342.87 261,-2301"/>
-</g>
-<!-- module~s_eucl -->
+<!-- module~s_rmvs_discard -->
 <g id="module~~helio_classes~~UsedByGraph_node21" class="node">
-<title>module~s_eucl</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node21"><a xlink:href=".././module/s_eucl.html" xlink:title="s_eucl">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-1578 374.5,-1578 374.5,-1554 428.5,-1554 428.5,-1578"/>
-<text text-anchor="middle" x="401.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_eucl</text>
+<title>module~s_rmvs_discard</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node21"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="445.5,-1788 357.5,-1788 357.5,-1764 445.5,-1764 445.5,-1788"/>
+<text text-anchor="middle" x="401.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_eucl&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge22" class="edge">
-<title>module~s_eucl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.28,-1566.02C357.09,-1564.54 335.55,-1559.58 323,-1545 277.75,-1492.45 317.2,-1297.43 287,-1235 285.98,-1232.9 284.73,-1230.87 283.32,-1228.93"/>
-<polygon fill="#000000" stroke="#000000" points="285.68,-1226.31 276.46,-1221.09 280.42,-1230.92 285.68,-1226.31"/>
+<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge20" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M357.49,-1773.31C344.69,-1770.38 331.76,-1764.93 323,-1755 267.31,-1691.88 261.5,-1417.06 261.01,-1336.36"/>
+<polygon fill="#000000" stroke="#000000" points="264.51,-1336.29 260.97,-1326.3 257.51,-1336.31 264.51,-1336.29"/>
 </g>
-<!-- module~s_rmvs_discard -->
+<!-- proc~solve_wbs -->
 <g id="module~~helio_classes~~UsedByGraph_node22" class="node">
-<title>module~s_rmvs_discard</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node22"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="445.5,-1536 357.5,-1536 357.5,-1512 445.5,-1512 445.5,-1536"/>
-<text text-anchor="middle" x="401.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
+<title>proc~solve_wbs</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node22"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="432.5,-1746 370.5,-1746 370.5,-1722 432.5,-1722 432.5,-1746"/>
+<text text-anchor="middle" x="401.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge23" class="edge">
-<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M357.46,-1521.34C344.65,-1518.42 331.73,-1512.96 323,-1503 243.77,-1412.64 340.3,-1342.72 287,-1235 285.96,-1232.91 284.7,-1230.88 283.28,-1228.95"/>
-<polygon fill="#000000" stroke="#000000" points="285.63,-1226.33 276.41,-1221.12 280.37,-1230.95 285.63,-1226.33"/>
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge21" class="edge">
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.29,-1733.42C353.97,-1731.46 334.81,-1726.19 323,-1713 272.63,-1656.74 263.13,-1412.59 261.38,-1336.64"/>
+<polygon fill="#000000" stroke="#000000" points="264.88,-1336.24 261.17,-1326.32 257.88,-1336.39 264.88,-1336.24"/>
 </g>
-<!-- module~s_util_coord -->
+<!-- module~s_gr -->
 <g id="module~~helio_classes~~UsedByGraph_node23" class="node">
-<title>module~s_util_coord</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node23"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-1494 366.5,-1494 366.5,-1470 436.5,-1470 436.5,-1494"/>
-<text text-anchor="middle" x="401.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
+<title>module~s_gr</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node23"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-1704 374.5,-1704 374.5,-1680 428.5,-1680 428.5,-1704"/>
+<text text-anchor="middle" x="401.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge24" class="edge">
-<title>module~s_util_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.41,-1480.88C351.03,-1478.56 333.9,-1473.13 323,-1461 255.02,-1385.35 333.22,-1325.6 287,-1235 285.94,-1232.92 284.65,-1230.91 283.22,-1228.98"/>
-<polygon fill="#000000" stroke="#000000" points="285.57,-1226.34 276.33,-1221.16 280.32,-1230.98 285.57,-1226.34"/>
+<!-- module~s_gr&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge22" class="edge">
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.17,-1691.76C357.16,-1690.14 335.86,-1685.12 323,-1671 277.84,-1621.45 264.9,-1406.95 261.83,-1336.51"/>
+<polygon fill="#000000" stroke="#000000" points="265.32,-1335.98 261.41,-1326.14 258.32,-1336.27 265.32,-1335.98"/>
 </g>
-<!-- module~s_symba_fragmentation -->
+<!-- module~s_kick -->
 <g id="module~~helio_classes~~UsedByGraph_node24" class="node">
-<title>module~s_symba_fragmentation</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node24"><a xlink:href=".././module/s_symba_fragmentation.html" xlink:title="s_symba_fragmentation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="465,-2124 338,-2124 338,-2100 465,-2100 465,-2124"/>
-<text text-anchor="middle" x="401.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_fragmentation</text>
+<title>module~s_kick</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node24"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-1662 374.5,-1662 374.5,-1638 428.5,-1638 428.5,-1662"/>
+<text text-anchor="middle" x="401.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge25" class="edge">
-<title>module~s_symba_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M337.83,-2102.79C332.18,-2099.8 327.07,-2095.95 323,-2091 266.81,-2022.66 261.54,-1362.11 261.05,-1231.41"/>
-<polygon fill="#000000" stroke="#000000" points="264.55,-1231.04 261.02,-1221.05 257.55,-1231.06 264.55,-1231.04"/>
-</g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~symba_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge70" class="edge">
-<title>module~s_symba_fragmentation&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M259,-2301C179.75,-2229.3 159.03,-1417.13 155.94,-1271.34"/>
-<polygon fill="#000000" stroke="#000000" points="159.44,-1271.25 155.73,-1261.33 152.44,-1271.4 159.44,-1271.25"/>
-<path fill="none" stroke="#000000" d="M337.63,-2123.21C332.31,-2125.83 327.32,-2129.05 323,-2133 264.28,-2186.72 320.02,-2354.4 261,-2301"/>
+<!-- module~s_kick&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge23" class="edge">
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.27,-1649.66C357.3,-1648 336.02,-1642.97 323,-1629 283.03,-1586.11 266.88,-1401 262.4,-1336.37"/>
+<polygon fill="#000000" stroke="#000000" points="265.87,-1335.83 261.71,-1326.09 258.88,-1336.3 265.87,-1335.83"/>
 </g>
-<!-- module~s_whm_kick -->
+<!-- module~s_util_resize -->
 <g id="module~~helio_classes~~UsedByGraph_node25" class="node">
-<title>module~s_whm_kick</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node25"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-1452 366.5,-1452 366.5,-1428 436.5,-1428 436.5,-1452"/>
-<text text-anchor="middle" x="401.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
+<title>module~s_util_resize</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node25"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-1620 365.5,-1620 365.5,-1596 437.5,-1596 437.5,-1620"/>
+<text text-anchor="middle" x="401.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge26" class="edge">
-<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.2,-1438.65C350.96,-1436.26 334.02,-1430.84 323,-1419 266.22,-1358.01 326.17,-1308.55 287,-1235 285.9,-1232.94 284.59,-1230.94 283.14,-1229.02"/>
-<polygon fill="#000000" stroke="#000000" points="285.47,-1226.37 276.21,-1221.22 280.24,-1231.02 285.47,-1226.37"/>
+<!-- module~s_util_resize&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge24" class="edge">
+<title>module~s_util_resize&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.18,-1606.3C350.28,-1603.79 333.91,-1598.37 323,-1587 288.15,-1550.68 269.1,-1394.39 263.1,-1336.06"/>
+<polygon fill="#000000" stroke="#000000" points="266.58,-1335.67 262.11,-1326.06 259.62,-1336.36 266.58,-1335.67"/>
 </g>
-<!-- module~s_util_valid -->
+<!-- module~s_symba_kick -->
 <g id="module~~helio_classes~~UsedByGraph_node26" class="node">
-<title>module~s_util_valid</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node26"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="434,-1410 369,-1410 369,-1386 434,-1386 434,-1410"/>
-<text text-anchor="middle" x="401.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
+<title>module~s_symba_kick</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node26"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-2250 362,-2250 362,-2226 441,-2226 441,-2250"/>
+<text text-anchor="middle" x="401.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_valid&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge27" class="edge">
-<title>module~s_util_valid&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.83,-1396.73C353.09,-1394.46 334.93,-1389.12 323,-1377 277.34,-1330.59 319.17,-1291.6 287,-1235 285.73,-1232.77 284.22,-1230.59 282.57,-1228.51"/>
-<polygon fill="#000000" stroke="#000000" points="285.09,-1226.09 275.77,-1221.05 279.92,-1230.8 285.09,-1226.09"/>
+<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge25" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.92,-2236.66C347.56,-2234.09 332.46,-2228.53 323,-2217 265.42,-2146.85 261.27,-1467.96 261.01,-1336.12"/>
+<polygon fill="#000000" stroke="#000000" points="264.51,-1336.01 261,-1326.01 257.51,-1336.02 264.51,-1336.01"/>
 </g>
-<!-- module~s_util_set -->
+<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge71" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M361.73,-2248C349.31,-2251.34 335.54,-2255.18 323,-2259 295.17,-2267.48 283.66,-2298.25 261,-2280"/>
+<path fill="none" stroke="#000000" d="M259,-2280C185.41,-2220.75 161.82,-1905.68 156.68,-1819.05"/>
+<polygon fill="#000000" stroke="#000000" points="160.17,-1818.8 156.11,-1809.02 153.18,-1819.2 160.17,-1818.8"/>
+</g>
+<!-- module~s_whm_util -->
 <g id="module~~helio_classes~~UsedByGraph_node27" class="node">
-<title>module~s_util_set</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node27"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="430.5,-1368 372.5,-1368 372.5,-1344 430.5,-1344 430.5,-1368"/>
-<text text-anchor="middle" x="401.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
+<title>module~s_whm_util</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node27"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="434.5,-1578 368.5,-1578 368.5,-1554 434.5,-1554 434.5,-1578"/>
+<text text-anchor="middle" x="401.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_set&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge28" class="edge">
-<title>module~s_util_set&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.34,-1354.67C356.1,-1352.51 336.32,-1347.29 323,-1335 288.27,-1302.98 312.31,-1274.88 287,-1235 285.62,-1232.83 284.04,-1230.7 282.34,-1228.65"/>
-<polygon fill="#000000" stroke="#000000" points="284.83,-1226.19 275.47,-1221.23 279.7,-1230.95 284.83,-1226.19"/>
+<!-- module~s_whm_util&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge26" class="edge">
+<title>module~s_whm_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.12,-1564.54C352.58,-1562.2 334.81,-1556.84 323,-1545 265.29,-1487.15 259.67,-1381.75 260.15,-1336.08"/>
+<polygon fill="#000000" stroke="#000000" points="263.65,-1336.14 260.37,-1326.06 256.66,-1335.98 263.65,-1336.14"/>
 </g>
-<!-- module~s_util_exit -->
+<!-- module~s_util_spill -->
 <g id="module~~helio_classes~~UsedByGraph_node28" class="node">
-<title>module~s_util_exit</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node28"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="431.5,-1326 371.5,-1326 371.5,-1302 431.5,-1302 431.5,-1326"/>
-<text text-anchor="middle" x="401.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
+<title>module~s_util_spill</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node28"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="432,-1536 371,-1536 371,-1512 432,-1512 432,-1536"/>
+<text text-anchor="middle" x="401.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge29" class="edge">
-<title>module~s_util_exit&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.37,-1311.31C355.78,-1308.66 336.98,-1303.41 323,-1293 298.66,-1274.88 305.85,-1258.77 287,-1235 285.33,-1232.9 283.52,-1230.79 281.64,-1228.73"/>
-<polygon fill="#000000" stroke="#000000" points="283.78,-1225.9 274.31,-1221.15 278.74,-1230.77 283.78,-1225.9"/>
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge27" class="edge">
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.7,-1522.61C354.71,-1520.37 335.74,-1515.09 323,-1503 275.48,-1457.9 264.34,-1375.85 261.76,-1336.38"/>
+<polygon fill="#000000" stroke="#000000" points="265.25,-1336.03 261.23,-1326.23 258.26,-1336.4 265.25,-1336.03"/>
 </g>
-<!-- program~swiftest_driver -->
+<!-- proc~ge_wpp -->
 <g id="module~~helio_classes~~UsedByGraph_node29" class="node">
-<title>program~swiftest_driver</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node29"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="442,-1284 361,-1284 361,-1260 442,-1260 442,-1284"/>
-<text text-anchor="middle" x="401.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
+<title>proc~ge_wpp</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node29"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="428.5,-1494 374.5,-1494 374.5,-1470 428.5,-1470 428.5,-1494"/>
+<text text-anchor="middle" x="401.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge30" class="edge">
-<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M360.98,-1263.98C348.52,-1260.75 334.91,-1256.46 323,-1251 309.25,-1244.69 295.19,-1235.45 283.95,-1227.23"/>
-<polygon fill="#000000" stroke="#000000" points="286.04,-1224.43 275.95,-1221.22 281.84,-1230.02 286.04,-1224.43"/>
+<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge28" class="edge">
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.42,-1480.66C357.95,-1478.55 337.17,-1473.38 323,-1461 285.5,-1428.23 270.09,-1368.98 264.24,-1336.61"/>
+<polygon fill="#000000" stroke="#000000" points="267.63,-1335.66 262.55,-1326.37 260.73,-1336.8 267.63,-1335.66"/>
 </g>
-<!-- module~s_rmvs_kick -->
+<!-- module~s_orbel -->
 <g id="module~~helio_classes~~UsedByGraph_node30" class="node">
-<title>module~s_rmvs_kick</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node30"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="437,-1242 366,-1242 366,-1218 437,-1218 437,-1242"/>
-<text text-anchor="middle" x="401.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
+<title>module~s_orbel</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node30"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-1452 374.5,-1452 374.5,-1428 428.5,-1428 428.5,-1452"/>
+<text text-anchor="middle" x="401.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge31" class="edge">
-<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.66,-1224.75C344.71,-1221.6 318.11,-1217.6 296.97,-1214.41"/>
-<polygon fill="#000000" stroke="#000000" points="297.49,-1210.95 287.08,-1212.93 296.44,-1217.88 297.49,-1210.95"/>
+<!-- module~s_orbel&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge29" class="edge">
+<title>module~s_orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.23,-1437.9C358.09,-1435.46 337.75,-1430.24 323,-1419 294.98,-1397.66 277.19,-1359.7 268.17,-1335.75"/>
+<polygon fill="#000000" stroke="#000000" points="271.4,-1334.37 264.74,-1326.13 264.81,-1336.73 271.4,-1334.37"/>
 </g>
-<!-- module~s_whm_step -->
+<!-- module~s_symba_setup -->
 <g id="module~~helio_classes~~UsedByGraph_node31" class="node">
-<title>module~s_whm_step</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node31"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="438,-1200 365,-1200 365,-1176 438,-1176 438,-1200"/>
-<text text-anchor="middle" x="401.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
+<title>module~s_symba_setup</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node31"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="445.5,-276 357.5,-276 357.5,-252 445.5,-252 445.5,-276"/>
+<text text-anchor="middle" x="401.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_step&#45;&gt;module~swiftest -->
+<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
 <g id="module~~helio_classes~~UsedByGraph_edge32" class="edge">
-<title>module~s_whm_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.94,-1193.35C344.22,-1196.47 318.16,-1200.4 297.31,-1203.53"/>
-<polygon fill="#000000" stroke="#000000" points="296.61,-1200.1 287.25,-1205.05 297.66,-1207.02 296.61,-1200.1"/>
+<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M357.42,-266.19C344.46,-269.07 331.45,-274.62 323,-285 257.34,-365.66 259.8,-1148.26 260.81,-1291.53"/>
+<polygon fill="#000000" stroke="#000000" points="257.31,-1291.77 260.89,-1301.74 264.31,-1291.72 257.31,-1291.77"/>
 </g>
-<!-- module~s_setup -->
+<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge74" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M357.26,-257.68C345.45,-254.57 333.13,-249.92 323,-243 284.7,-216.81 292.42,-124.86 261,-159"/>
+</g>
+<!-- module~s_operator_cross -->
 <g id="module~~helio_classes~~UsedByGraph_node32" class="node">
-<title>module~s_setup</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node32"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-1158 374.5,-1158 374.5,-1134 428.5,-1134 428.5,-1158"/>
-<text text-anchor="middle" x="401.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
+<title>module~s_operator_cross</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node32"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="449.5,-1410 353.5,-1410 353.5,-1386 449.5,-1386 449.5,-1410"/>
+<text text-anchor="middle" x="401.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
 </a>
 </g>
 </g>
-<!-- module~s_setup&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge34" class="edge">
-<title>module~s_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.27,-1150.84C358.9,-1154.23 339.35,-1159.5 323,-1167 309.25,-1173.31 295.19,-1182.55 283.95,-1190.77"/>
-<polygon fill="#000000" stroke="#000000" points="281.84,-1187.98 275.95,-1196.78 286.04,-1193.57 281.84,-1187.98"/>
+<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge31" class="edge">
+<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M353.41,-1389.5C342.97,-1386.48 332.27,-1382.42 323,-1377 304.35,-1366.1 287.46,-1348.13 276.04,-1334.17"/>
+<polygon fill="#000000" stroke="#000000" points="278.61,-1331.78 269.66,-1326.1 273.11,-1336.11 278.61,-1331.78"/>
 </g>
-<!-- module~s_util_get_energy_momentum -->
+<!-- program~swiftest_driver -->
 <g id="module~~helio_classes~~UsedByGraph_node33" class="node">
-<title>module~s_util_get_energy_momentum</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node33"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="480,-1116 323,-1116 323,-1092 480,-1092 480,-1116"/>
-<text text-anchor="middle" x="401.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
+<title>program~swiftest_driver</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node33"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="442,-1368 361,-1368 361,-1344 442,-1344 442,-1368"/>
+<text text-anchor="middle" x="401.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge35" class="edge">
-<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M339.9,-1116.07C333.93,-1118.51 328.18,-1121.46 323,-1125 299.58,-1141.02 281.62,-1168.86 271.2,-1188.07"/>
-<polygon fill="#000000" stroke="#000000" points="268.08,-1186.48 266.57,-1196.97 274.29,-1189.71 268.08,-1186.48"/>
+<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge33" class="edge">
+<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M360.94,-1345.79C348.73,-1342.5 335.27,-1338.74 323,-1335 314.48,-1332.41 305.37,-1329.43 296.83,-1326.56"/>
+<polygon fill="#000000" stroke="#000000" points="297.72,-1323.16 287.13,-1323.25 295.47,-1329.79 297.72,-1323.16"/>
 </g>
-<!-- module~s_tides_kick_getacch -->
+<!-- module~s_util_copy -->
 <g id="module~~helio_classes~~UsedByGraph_node34" class="node">
-<title>module~s_tides_kick_getacch</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node34"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="458.5,-1074 344.5,-1074 344.5,-1050 458.5,-1050 458.5,-1074"/>
-<text text-anchor="middle" x="401.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
+<title>module~s_util_copy</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node34"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="434.5,-1326 368.5,-1326 368.5,-1302 434.5,-1302 434.5,-1326"/>
+<text text-anchor="middle" x="401.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge36" class="edge">
-<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M344.33,-1071.03C336.63,-1073.97 329.24,-1077.86 323,-1083 290.13,-1110.08 273.25,-1158.87 265.84,-1187.13"/>
-<polygon fill="#000000" stroke="#000000" points="262.44,-1186.33 263.45,-1196.87 269.24,-1187.99 262.44,-1186.33"/>
+<!-- module~s_util_copy&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge34" class="edge">
+<title>module~s_util_copy&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.5,-1314C347.34,-1314 319.56,-1314 297.54,-1314"/>
+<polygon fill="#000000" stroke="#000000" points="297.25,-1310.5 287.25,-1314 297.25,-1317.5 297.25,-1310.5"/>
 </g>
-<!-- module~s_symba_kick -->
+<!-- module~s_util_valid -->
 <g id="module~~helio_classes~~UsedByGraph_node35" class="node">
-<title>module~s_symba_kick</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node35"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-2502 362,-2502 362,-2478 441,-2478 441,-2502"/>
-<text text-anchor="middle" x="401.5" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
+<title>module~s_util_valid</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node35"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="434,-1284 369,-1284 369,-1260 434,-1260 434,-1284"/>
+<text text-anchor="middle" x="401.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge63" class="edge">
-<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.8,-2488.75C347.43,-2486.2 332.35,-2480.62 323,-2469 282.64,-2418.86 264.12,-1398.08 261.37,-1231.8"/>
-<polygon fill="#000000" stroke="#000000" points="264.86,-1231.28 261.19,-1221.33 257.86,-1231.39 264.86,-1231.28"/>
-</g>
-<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge74" class="edge">
-<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M361.89,-2486.85C348.21,-2483.98 333.59,-2478.69 323,-2469 264.28,-2415.28 320.02,-2354.4 261,-2301"/>
+<!-- module~s_util_valid&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge35" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.7,-1280.14C354.64,-1283.86 337.94,-1288.45 323,-1293 314.48,-1295.59 305.37,-1298.57 296.83,-1301.44"/>
+<polygon fill="#000000" stroke="#000000" points="295.47,-1298.21 287.13,-1304.75 297.72,-1304.84 295.47,-1298.21"/>
 </g>
-<!-- module~s_orbel -->
+<!-- module~s_tides_step_spin -->
 <g id="module~~helio_classes~~UsedByGraph_node36" class="node">
-<title>module~s_orbel</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node36"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-1032 374.5,-1032 374.5,-1008 428.5,-1008 428.5,-1032"/>
-<text text-anchor="middle" x="401.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node36"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="450.5,-1242 352.5,-1242 352.5,-1218 450.5,-1218 450.5,-1242"/>
+<text text-anchor="middle" x="401.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
 </a>
 </g>
 </g>
-<!-- module~s_orbel&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge39" class="edge">
-<title>module~s_orbel&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.23,-1021.13C357.68,-1023.15 336.89,-1028.3 323,-1041 280.38,-1079.99 266.97,-1150.86 262.82,-1186.81"/>
-<polygon fill="#000000" stroke="#000000" points="259.33,-1186.47 261.8,-1196.78 266.3,-1187.18 259.33,-1186.47"/>
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge36" class="edge">
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M352.19,-1238.86C342.14,-1241.84 331.91,-1245.79 323,-1251 304.35,-1261.9 287.46,-1279.87 276.04,-1293.83"/>
+<polygon fill="#000000" stroke="#000000" points="273.11,-1291.89 269.66,-1301.9 278.61,-1296.22 273.11,-1291.89"/>
 </g>
-<!-- module~s_symba_drift -->
+<!-- module~s_util_sort -->
 <g id="module~~helio_classes~~UsedByGraph_node37" class="node">
-<title>module~s_symba_drift</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node37"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-2460 362,-2460 362,-2436 441,-2436 441,-2460"/>
-<text text-anchor="middle" x="401.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
+<title>module~s_util_sort</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node37"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="432,-1200 371,-1200 371,-1176 432,-1176 432,-1200"/>
+<text text-anchor="middle" x="401.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge40" class="edge">
-<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.81,-2446.74C347.44,-2444.19 332.36,-2438.61 323,-2427 283.99,-2378.61 264.37,-1393.83 261.4,-1231.55"/>
-<polygon fill="#000000" stroke="#000000" points="264.9,-1231.24 261.21,-1221.31 257.9,-1231.37 264.9,-1231.24"/>
-</g>
-<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge76" class="edge">
-<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M361.62,-2444.07C348.22,-2441.11 333.87,-2435.95 323,-2427 274.83,-2387.32 307.28,-2342.87 261,-2301"/>
+<!-- module~s_util_sort&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge37" class="edge">
+<title>module~s_util_sort&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.9,-1190.64C355.36,-1193.27 336.75,-1198.53 323,-1209 294.98,-1230.34 277.19,-1268.3 268.17,-1292.25"/>
+<polygon fill="#000000" stroke="#000000" points="264.81,-1291.27 264.74,-1301.87 271.4,-1293.63 264.81,-1291.27"/>
 </g>
-<!-- module~s_whm_setup -->
+<!-- module~s_tides_kick_getacch -->
 <g id="module~~helio_classes~~UsedByGraph_node38" class="node">
-<title>module~s_whm_setup</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node38"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-990 362,-990 362,-966 441,-966 441,-990"/>
-<text text-anchor="middle" x="401.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node38"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="458.5,-1158 344.5,-1158 344.5,-1134 458.5,-1134 458.5,-1158"/>
+<text text-anchor="middle" x="401.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge41" class="edge">
-<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.94,-980.7C348.1,-983.5 333.37,-988.86 323,-999 270.48,-1050.35 261.92,-1143.83 260.88,-1186.58"/>
-<polygon fill="#000000" stroke="#000000" points="257.38,-1186.72 260.76,-1196.76 264.38,-1186.8 257.38,-1186.72"/>
+<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge38" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M344.45,-1154.55C336.65,-1157.56 329.19,-1161.59 323,-1167 285.5,-1199.77 270.09,-1259.02 264.24,-1291.39"/>
+<polygon fill="#000000" stroke="#000000" points="260.73,-1291.2 262.55,-1301.63 267.63,-1292.34 260.73,-1291.2"/>
 </g>
-<!-- module~s_io -->
+<!-- module~s_whm_kick -->
 <g id="module~~helio_classes~~UsedByGraph_node39" class="node">
-<title>module~s_io</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node39"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-948 374.5,-948 374.5,-924 428.5,-924 428.5,-948"/>
-<text text-anchor="middle" x="401.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
-</a>
-</g>
-</g>
-<!-- module~s_io&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge42" class="edge">
-<title>module~s_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.48,-936.54C357.6,-938.29 336.35,-943.34 323,-957 290.75,-990.02 270.41,-1131.6 263.57,-1186.82"/>
-<polygon fill="#000000" stroke="#000000" points="260.07,-1186.59 262.35,-1196.94 267.02,-1187.43 260.07,-1186.59"/>
-</g>
-<!-- module~s_util_version -->
-<g id="module~~helio_classes~~UsedByGraph_node40" class="node">
-<title>module~s_util_version</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node40"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="440.5,-906 362.5,-906 362.5,-882 440.5,-882 440.5,-906"/>
-<text text-anchor="middle" x="401.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
+<title>module~s_whm_kick</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node39"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-1116 366.5,-1116 366.5,-1092 436.5,-1092 436.5,-1116"/>
+<text text-anchor="middle" x="401.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_version&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge43" class="edge">
-<title>module~s_util_version&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.31,-896.12C348.18,-898.81 333.15,-904.26 323,-915 285.65,-954.53 268.01,-1124.72 262.75,-1186.49"/>
-<polygon fill="#000000" stroke="#000000" points="259.24,-1186.46 261.91,-1196.71 266.22,-1187.03 259.24,-1186.46"/>
+<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge39" class="edge">
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.45,-1106.05C351.45,-1108.61 334.63,-1113.96 323,-1125 275.48,-1170.1 264.34,-1252.15 261.76,-1291.62"/>
+<polygon fill="#000000" stroke="#000000" points="258.26,-1291.6 261.23,-1301.77 265.25,-1291.97 258.26,-1291.6"/>
 </g>
 <!-- module~s_util_fill -->
-<g id="module~~helio_classes~~UsedByGraph_node41" class="node">
+<g id="module~~helio_classes~~UsedByGraph_node40" class="node">
 <title>module~s_util_fill</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node41"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-864 374.5,-864 374.5,-840 428.5,-840 428.5,-864"/>
-<text text-anchor="middle" x="401.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
+<g id="a_module~~helio_classes~~UsedByGraph_node40"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-1074 374.5,-1074 374.5,-1050 428.5,-1050 428.5,-1074"/>
+<text text-anchor="middle" x="401.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_fill&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge44" class="edge">
+<g id="module~~helio_classes~~UsedByGraph_edge40" class="edge">
 <title>module~s_util_fill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.22,-852.29C357.22,-853.93 335.94,-858.95 323,-873 280.45,-919.19 265.87,-1118.85 262.1,-1186.49"/>
-<polygon fill="#000000" stroke="#000000" points="258.59,-1186.68 261.55,-1196.85 265.58,-1187.05 258.59,-1186.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.2,-1062.67C357.43,-1064.49 336.39,-1069.58 323,-1083 265.29,-1140.85 259.67,-1246.25 260.15,-1291.92"/>
+<polygon fill="#000000" stroke="#000000" points="256.66,-1292.02 260.37,-1301.94 263.65,-1291.86 256.66,-1292.02"/>
 </g>
-<!-- module~s_util_peri -->
-<g id="module~~helio_classes~~UsedByGraph_node42" class="node">
-<title>module~s_util_peri</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node42"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="432,-822 371,-822 371,-798 432,-798 432,-822"/>
-<text text-anchor="middle" x="401.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
+<!-- module~s_symba_collision -->
+<g id="module~~helio_classes~~UsedByGraph_node41" class="node">
+<title>module~s_symba_collision</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node41"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="451,-234 352,-234 352,-210 451,-210 451,-234"/>
+<text text-anchor="middle" x="401.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_peri&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge45" class="edge">
-<title>module~s_util_peri&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.72,-810.57C354.33,-812.51 334.96,-817.76 323,-831 275.2,-883.95 263.97,-1113.59 261.59,-1186.62"/>
-<polygon fill="#000000" stroke="#000000" points="258.08,-1186.84 261.28,-1196.94 265.08,-1187.05 258.08,-1186.84"/>
+<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge42" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M351.75,-225.62C340.75,-228.78 330.21,-234.13 323,-243 254.63,-327.2 259.35,-1144.92 260.75,-1291.55"/>
+<polygon fill="#000000" stroke="#000000" points="257.26,-1291.99 260.86,-1301.96 264.26,-1291.92 257.26,-1291.99"/>
 </g>
-<!-- module~s_fragmentation -->
-<g id="module~~helio_classes~~UsedByGraph_node43" class="node">
-<title>module~s_fragmentation</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node43"><a xlink:href=".././module/s_fragmentation.html" xlink:title="s_fragmentation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="446.5,-780 356.5,-780 356.5,-756 446.5,-756 446.5,-780"/>
-<text text-anchor="middle" x="401.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fragmentation</text>
+<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge77" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M351.67,-211.41C341.96,-208.58 332,-205.13 323,-201 292.75,-187.12 283.54,-134.51 261,-159"/>
+</g>
+<!-- module~s_symba_discard -->
+<g id="module~~helio_classes~~UsedByGraph_node42" class="node">
+<title>module~s_symba_discard</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node42"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="449.5,-192 353.5,-192 353.5,-168 449.5,-168 449.5,-192"/>
+<text text-anchor="middle" x="401.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge47" class="edge">
-<title>module~s_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M356.32,-771.01C343.92,-774 331.52,-779.41 323,-789 269.93,-848.74 262.28,-1108.6 261.18,-1186.71"/>
-<polygon fill="#000000" stroke="#000000" points="257.68,-1186.83 261.06,-1196.87 264.68,-1186.91 257.68,-1186.83"/>
+<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge43" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M353.35,-183.16C341.77,-186.26 330.55,-191.69 323,-201 287.38,-244.96 265.09,-1137.69 261.51,-1291.52"/>
+<polygon fill="#000000" stroke="#000000" points="258.01,-1291.58 261.28,-1301.66 265.01,-1291.74 258.01,-1291.58"/>
 </g>
-<!-- proc~solve_wbs -->
-<g id="module~~helio_classes~~UsedByGraph_node44" class="node">
-<title>proc~solve_wbs</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node44"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="432.5,-738 370.5,-738 370.5,-714 432.5,-714 432.5,-738"/>
-<text text-anchor="middle" x="401.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
+<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge76" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M353.26,-169.03C315.3,-160.84 267.3,-152.15 261,-159"/>
+</g>
+<!-- module~s_symba_util -->
+<g id="module~~helio_classes~~UsedByGraph_node43" class="node">
+<title>module~s_symba_util</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node43"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="439,-150 364,-150 364,-126 439,-126 439,-150"/>
+<text text-anchor="middle" x="401.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
 </a>
 </g>
 </g>
-<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge48" class="edge">
-<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.19,-726.48C353.84,-728.42 334.67,-733.69 323,-747 264.6,-813.61 260.74,-1104.2 260.85,-1186.94"/>
-<polygon fill="#000000" stroke="#000000" points="257.35,-1187 260.89,-1196.99 264.35,-1186.98 257.35,-1187"/>
+<!-- module~s_symba_util&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge44" class="edge">
+<title>module~s_symba_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M363.84,-138.93C348.88,-141.32 332.82,-146.86 323,-159 286.01,-204.75 264.78,-1134.91 261.46,-1291.67"/>
+<polygon fill="#000000" stroke="#000000" points="257.96,-1291.88 261.24,-1301.95 264.95,-1292.03 257.96,-1291.88"/>
 </g>
-<!-- module~s_whm_coord -->
-<g id="module~~helio_classes~~UsedByGraph_node45" class="node">
-<title>module~s_whm_coord</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node45"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-696 362,-696 362,-672 441,-672 441,-696"/>
-<text text-anchor="middle" x="401.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
+<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge79" class="edge">
+<title>module~s_symba_util&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M363.87,-132.13C331.83,-129.28 286.54,-131.25 261,-159"/>
+</g>
+<!-- module~s_util_solve -->
+<g id="module~~helio_classes~~UsedByGraph_node44" class="node">
+<title>module~s_util_solve</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node44"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="435.5,-1032 367.5,-1032 367.5,-1008 435.5,-1008 435.5,-1032"/>
+<text text-anchor="middle" x="401.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge49" class="edge">
-<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.83,-685.68C347.63,-688.32 332.68,-693.84 323,-705 259.37,-778.38 259.34,-1098.82 260.57,-1186.66"/>
-<polygon fill="#000000" stroke="#000000" points="257.07,-1186.89 260.73,-1196.83 264.07,-1186.78 257.07,-1186.89"/>
+<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge45" class="edge">
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.15,-1021.38C351.74,-1023.74 334.39,-1029.13 323,-1041 288.15,-1077.32 269.1,-1233.61 263.1,-1291.94"/>
+<polygon fill="#000000" stroke="#000000" points="259.62,-1291.64 262.11,-1301.94 266.58,-1292.33 259.62,-1291.64"/>
 </g>
-<!-- module~s_tides_step_spin -->
-<g id="module~~helio_classes~~UsedByGraph_node46" class="node">
-<title>module~s_tides_step_spin</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node46"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="450.5,-654 352.5,-654 352.5,-630 450.5,-630 450.5,-654"/>
-<text text-anchor="middle" x="401.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
+<!-- module~s_rmvs_step -->
+<g id="module~~helio_classes~~UsedByGraph_node45" class="node">
+<title>module~s_rmvs_step</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node45"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="438,-990 365,-990 365,-966 438,-966 438,-990"/>
+<text text-anchor="middle" x="401.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge50" class="edge">
-<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M352.49,-645.78C341.34,-648.93 330.54,-654.22 323,-663 288.32,-703.38 266.99,-1088.27 262.09,-1186.35"/>
-<polygon fill="#000000" stroke="#000000" points="258.58,-1186.45 261.58,-1196.61 265.57,-1186.79 258.58,-1186.45"/>
+<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge46" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.63,-979.62C349.81,-982.13 333.65,-987.58 323,-999 283.03,-1041.89 266.88,-1227 262.4,-1291.63"/>
+<polygon fill="#000000" stroke="#000000" points="258.88,-1291.7 261.71,-1301.91 265.87,-1292.17 258.88,-1291.7"/>
 </g>
 <!-- module~s_symba_io -->
-<g id="module~~helio_classes~~UsedByGraph_node47" class="node">
+<g id="module~~helio_classes~~UsedByGraph_node46" class="node">
 <title>module~s_symba_io</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node47"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-2418 366.5,-2418 366.5,-2394 436.5,-2394 436.5,-2418"/>
-<text text-anchor="middle" x="401.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
+<g id="a_module~~helio_classes~~UsedByGraph_node46"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-108 366.5,-108 366.5,-84 436.5,-84 436.5,-108"/>
+<text text-anchor="middle" x="401.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_io&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge51" class="edge">
+<g id="module~~helio_classes~~UsedByGraph_edge47" class="edge">
 <title>module~s_symba_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.23,-2405.43C350.61,-2403.26 333.34,-2397.8 323,-2385 285.32,-2338.36 264.63,-1389.44 261.44,-1231.26"/>
-<polygon fill="#000000" stroke="#000000" points="264.94,-1231.19 261.24,-1221.26 257.94,-1231.33 264.94,-1231.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.22,-96.57C350.6,-98.74 333.33,-104.2 323,-117 284.64,-164.54 264.48,-1132.35 261.41,-1291.84"/>
+<polygon fill="#000000" stroke="#000000" points="257.91,-1291.84 261.22,-1301.9 264.91,-1291.97 257.91,-1291.84"/>
 </g>
 <!-- module~s_symba_io&#45;&gt;module~symba_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge69" class="edge">
+<g id="module~~helio_classes~~UsedByGraph_edge70" class="edge">
 <title>module~s_symba_io&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M366.37,-2401.83C352.04,-2398.84 335.77,-2393.73 323,-2385 284.7,-2358.81 295.41,-2332.13 261,-2301"/>
+<path fill="none" stroke="#000000" d="M366.46,-102.65C352.62,-106.01 336.68,-110.72 323,-117 292.75,-130.88 283.54,-134.51 261,-159"/>
 </g>
-<!-- module~s_util_sort -->
+<!-- module~s_rmvs_util -->
+<g id="module~~helio_classes~~UsedByGraph_node47" class="node">
+<title>module~s_rmvs_util</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node47"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="435,-948 368,-948 368,-924 435,-924 435,-948"/>
+<text text-anchor="middle" x="401.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
+</a>
+</g>
+</g>
+<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge48" class="edge">
+<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.66,-937.02C352,-939.25 334.27,-944.64 323,-957 277.84,-1006.55 264.9,-1221.05 261.83,-1291.49"/>
+<polygon fill="#000000" stroke="#000000" points="258.32,-1291.73 261.41,-1301.86 265.32,-1292.02 258.32,-1291.73"/>
+</g>
+<!-- module~whm_drift -->
 <g id="module~~helio_classes~~UsedByGraph_node48" class="node">
-<title>module~s_util_sort</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node48"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="432,-612 371,-612 371,-588 432,-588 432,-612"/>
-<text text-anchor="middle" x="401.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
+<title>module~whm_drift</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node48"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="431,-906 372,-906 372,-882 431,-882 431,-906"/>
+<text text-anchor="middle" x="401.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_sort&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge52" class="edge">
-<title>module~s_util_sort&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.81,-600.27C354.25,-602.09 334.66,-607.31 323,-621 285.58,-664.92 266.07,-1085.2 261.87,-1186.91"/>
-<polygon fill="#000000" stroke="#000000" points="258.37,-1186.84 261.46,-1196.97 265.36,-1187.12 258.37,-1186.84"/>
+<!-- module~whm_drift&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge49" class="edge">
+<title>module~whm_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.82,-894.4C355.19,-896.21 335.18,-901.39 323,-915 272.63,-971.26 263.13,-1215.41 261.38,-1291.36"/>
+<polygon fill="#000000" stroke="#000000" points="257.88,-1291.61 261.17,-1301.68 264.88,-1291.76 257.88,-1291.61"/>
 </g>
-<!-- module~s_util_minimize_bfgs -->
+<!-- module~s_whm_coord -->
 <g id="module~~helio_classes~~UsedByGraph_node49" class="node">
-<title>module~s_util_minimize_bfgs</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node49"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="457.5,-570 345.5,-570 345.5,-546 457.5,-546 457.5,-570"/>
-<text text-anchor="middle" x="401.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
+<title>module~s_whm_coord</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node49"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-864 362,-864 362,-840 441,-840 441,-864"/>
+<text text-anchor="middle" x="401.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge53" class="edge">
-<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345.22,-564.07C336.73,-567.32 328.85,-572.08 323,-579 282.94,-626.36 265.32,-1080.2 261.71,-1186.71"/>
-<polygon fill="#000000" stroke="#000000" points="258.21,-1186.82 261.37,-1196.93 265.2,-1187.05 258.21,-1186.82"/>
+<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge50" class="edge">
+<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.93,-853.77C347.74,-856.41 332.78,-861.92 323,-873 267.31,-936.12 261.5,-1210.94 261.01,-1291.64"/>
+<polygon fill="#000000" stroke="#000000" points="257.51,-1291.69 260.97,-1301.7 264.51,-1291.71 257.51,-1291.69"/>
 </g>
-<!-- module~s_whm_util -->
+<!-- module~s_io -->
 <g id="module~~helio_classes~~UsedByGraph_node50" class="node">
-<title>module~s_whm_util</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node50"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="434.5,-528 368.5,-528 368.5,-504 434.5,-504 434.5,-528"/>
-<text text-anchor="middle" x="401.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
+<title>module~s_io</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node50"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-822 374.5,-822 374.5,-798 428.5,-798 428.5,-822"/>
+<text text-anchor="middle" x="401.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_util&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge54" class="edge">
-<title>module~s_whm_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.42,-516.49C352.36,-518.52 334.03,-523.88 323,-537 280.26,-587.83 264.59,-1075.73 261.57,-1186.64"/>
-<polygon fill="#000000" stroke="#000000" points="258.06,-1186.88 261.3,-1196.97 265.06,-1187.06 258.06,-1186.88"/>
+<!-- module~s_io&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge51" class="edge">
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.34,-810.03C357.17,-811.53 335.64,-816.5 323,-831 262,-900.99 260.03,-1206.42 260.7,-1291.77"/>
+<polygon fill="#000000" stroke="#000000" points="257.21,-1291.93 260.81,-1301.9 264.21,-1291.86 257.21,-1291.93"/>
 </g>
-<!-- module~s_util_copy -->
+<!-- module~s_obl -->
 <g id="module~~helio_classes~~UsedByGraph_node51" class="node">
-<title>module~s_util_copy</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node51"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="434.5,-486 368.5,-486 368.5,-462 434.5,-462 434.5,-486"/>
-<text text-anchor="middle" x="401.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
+<title>module~s_obl</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node51"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-780 374.5,-780 374.5,-756 428.5,-756 428.5,-780"/>
+<text text-anchor="middle" x="401.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_copy&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge55" class="edge">
-<title>module~s_util_copy&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.39,-474.46C352.32,-476.48 334,-481.85 323,-495 277.57,-549.33 263.91,-1071.73 261.44,-1186.7"/>
-<polygon fill="#000000" stroke="#000000" points="257.94,-1186.72 261.23,-1196.79 264.94,-1186.87 257.94,-1186.72"/>
+<!-- module~s_obl&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge52" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.29,-767.99C357.11,-769.47 335.57,-774.43 323,-789 289.62,-827.69 267.4,-1196.31 262.18,-1291.6"/>
+<polygon fill="#000000" stroke="#000000" points="258.69,-1291.43 261.64,-1301.6 265.68,-1291.8 258.69,-1291.43"/>
 </g>
-<!-- proc~ge_wpp -->
+<!-- module~s_eucl -->
 <g id="module~~helio_classes~~UsedByGraph_node52" class="node">
-<title>proc~ge_wpp</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node52"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="428.5,-444 374.5,-444 374.5,-420 428.5,-420 428.5,-444"/>
-<text text-anchor="middle" x="401.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
+<title>module~s_eucl</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node52"><a xlink:href=".././module/s_eucl.html" xlink:title="s_eucl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-738 374.5,-738 374.5,-714 428.5,-714 428.5,-738"/>
+<text text-anchor="middle" x="401.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_eucl</text>
 </a>
 </g>
 </g>
-<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge56" class="edge">
-<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.5,-431.82C357.18,-433.19 335.39,-438.11 323,-453 274.86,-510.86 263.25,-1068.34 261.32,-1186.9"/>
-<polygon fill="#000000" stroke="#000000" points="257.82,-1186.92 261.17,-1196.97 264.82,-1187.03 257.82,-1186.92"/>
+<!-- module~s_eucl&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge54" class="edge">
+<title>module~s_eucl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.25,-725.95C357.05,-727.42 335.5,-732.38 323,-747 286.94,-789.16 266.5,-1192.05 261.97,-1291.76"/>
+<polygon fill="#000000" stroke="#000000" points="258.46,-1291.76 261.51,-1301.9 265.46,-1292.07 258.46,-1291.76"/>
 </g>
-<!-- module~s_rmvs_chk -->
+<!-- module~s_util_append -->
 <g id="module~~helio_classes~~UsedByGraph_node53" class="node">
-<title>module~s_rmvs_chk</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node53"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-402 366.5,-402 366.5,-378 436.5,-378 436.5,-402"/>
-<text text-anchor="middle" x="401.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
+<title>module~s_util_append</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node53"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-696 362,-696 362,-672 441,-672 441,-696"/>
+<text text-anchor="middle" x="401.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge57" class="edge">
-<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.37,-390.69C350.78,-392.88 333.49,-398.33 323,-411 272.17,-472.35 262.65,-1064.23 261.22,-1186.84"/>
-<polygon fill="#000000" stroke="#000000" points="257.72,-1186.88 261.11,-1196.92 264.72,-1186.96 257.72,-1186.88"/>
+<!-- module~s_util_append&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge55" class="edge">
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.71,-685.58C347.49,-688.2 332.56,-693.73 323,-705 284.26,-750.63 265.69,-1187.6 261.79,-1291.78"/>
+<polygon fill="#000000" stroke="#000000" points="258.29,-1291.69 261.42,-1301.81 265.29,-1291.94 258.29,-1291.69"/>
 </g>
-<!-- module~s_kick -->
+<!-- module~s_fragmentation -->
 <g id="module~~helio_classes~~UsedByGraph_node54" class="node">
-<title>module~s_kick</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node54"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-360 374.5,-360 374.5,-336 428.5,-336 428.5,-360"/>
-<text text-anchor="middle" x="401.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
+<title>module~s_fragmentation</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node54"><a xlink:href=".././module/s_fragmentation.html" xlink:title="s_fragmentation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="446.5,-654 356.5,-654 356.5,-630 446.5,-630 446.5,-654"/>
+<text text-anchor="middle" x="401.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fragmentation</text>
 </a>
 </g>
 </g>
-<!-- module~s_kick&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge58" class="edge">
-<title>module~s_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.46,-347.78C357.12,-349.15 335.33,-354.05 323,-369 269.47,-433.87 262.08,-1060.52 261.13,-1186.87"/>
-<polygon fill="#000000" stroke="#000000" points="257.63,-1186.89 261.06,-1196.91 264.63,-1186.93 257.63,-1186.89"/>
+<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge56" class="edge">
+<title>module~s_fragmentation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M356.42,-644.65C343.87,-647.61 331.36,-653.09 323,-663 281.6,-712.09 264.95,-1182.87 261.64,-1291.65"/>
+<polygon fill="#000000" stroke="#000000" points="258.14,-1291.7 261.34,-1301.8 265.13,-1291.91 258.14,-1291.7"/>
 </g>
-<!-- module~s_rmvs_setup -->
+<!-- module~s_user_kick_getacch -->
 <g id="module~~helio_classes~~UsedByGraph_node55" class="node">
-<title>module~s_rmvs_setup</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node55"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-318 362,-318 362,-294 441,-294 441,-318"/>
-<text text-anchor="middle" x="401.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node55"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="457.5,-612 345.5,-612 345.5,-588 457.5,-588 457.5,-612"/>
+<text text-anchor="middle" x="401.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge59" class="edge">
-<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.93,-307.35C347.57,-309.92 332.47,-315.48 323,-327 266.81,-395.34 261.54,-1055.89 261.05,-1186.59"/>
-<polygon fill="#000000" stroke="#000000" points="257.55,-1186.94 261.02,-1196.95 264.55,-1186.96 257.55,-1186.94"/>
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge57" class="edge">
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345.17,-606.03C336.68,-609.28 328.82,-614.06 323,-621 278.92,-673.58 264.25,-1178.66 261.5,-1291.65"/>
+<polygon fill="#000000" stroke="#000000" points="258,-1291.79 261.26,-1301.87 265,-1291.96 258,-1291.79"/>
 </g>
-<!-- module~whm_drift -->
+<!-- module~s_symba_fragmentation -->
 <g id="module~~helio_classes~~UsedByGraph_node56" class="node">
-<title>module~whm_drift</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node56"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="431,-276 372,-276 372,-252 431,-252 431,-276"/>
-<text text-anchor="middle" x="401.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
+<title>module~s_symba_fragmentation</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node56"><a xlink:href=".././module/s_symba_fragmentation.html" xlink:title="s_symba_fragmentation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="465,-66 338,-66 338,-42 465,-42 465,-66"/>
+<text text-anchor="middle" x="401.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_fragmentation</text>
 </a>
 </g>
 </g>
-<!-- module~whm_drift&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge60" class="edge">
-<title>module~whm_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.78,-263.99C354.9,-265.63 334.66,-270.77 323,-285 264.14,-356.82 261.02,-1051.47 260.97,-1186.37"/>
-<polygon fill="#000000" stroke="#000000" points="257.47,-1186.71 260.98,-1196.71 264.47,-1186.71 257.47,-1186.71"/>
+<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge58" class="edge">
+<title>module~s_symba_fragmentation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M337.73,-63.13C332.1,-66.13 327.02,-70.01 323,-75 283.29,-124.29 264.23,-1128.06 261.38,-1291.57"/>
+<polygon fill="#000000" stroke="#000000" points="257.87,-1291.81 261.2,-1301.87 264.87,-1291.93 257.87,-1291.81"/>
 </g>
-<!-- module~s_symba_setup -->
+<!-- module~s_symba_fragmentation&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge72" class="edge">
+<title>module~s_symba_fragmentation&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M339.9,-66.07C333.93,-68.51 328.18,-71.46 323,-75 284.7,-101.19 292.42,-124.86 261,-159"/>
+</g>
+<!-- module~s_whm_step -->
 <g id="module~~helio_classes~~UsedByGraph_node57" class="node">
-<title>module~s_symba_setup</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node57"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="445.5,-2376 357.5,-2376 357.5,-2352 445.5,-2352 445.5,-2376"/>
-<text text-anchor="middle" x="401.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
+<title>module~s_whm_step</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node57"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="438,-570 365,-570 365,-546 438,-546 438,-570"/>
+<text text-anchor="middle" x="401.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge33" class="edge">
-<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M357.39,-2361.83C344.42,-2358.96 331.42,-2353.4 323,-2343 286.7,-2298.14 264.94,-1386.73 261.48,-1231.41"/>
-<polygon fill="#000000" stroke="#000000" points="264.98,-1231.12 261.26,-1221.2 257.98,-1231.27 264.98,-1231.12"/>
-</g>
-<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge72" class="edge">
-<title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M357.37,-2355.02C345.93,-2351.91 333.77,-2347.94 323,-2343 292.75,-2329.12 285.68,-2323.33 261,-2301"/>
+<!-- module~s_whm_step&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge59" class="edge">
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.81,-558.95C349.66,-561.3 333.18,-566.8 323,-579 276.27,-635.03 263.6,-1173.85 261.39,-1291.42"/>
+<polygon fill="#000000" stroke="#000000" points="257.88,-1291.67 261.2,-1301.73 264.88,-1291.79 257.88,-1291.67"/>
 </g>
-<!-- module~s_symba_discard -->
+<!-- module~s_util_peri -->
 <g id="module~~helio_classes~~UsedByGraph_node58" class="node">
-<title>module~s_symba_discard</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node58"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="449.5,-2334 353.5,-2334 353.5,-2310 449.5,-2310 449.5,-2334"/>
-<text text-anchor="middle" x="401.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
+<title>module~s_util_peri</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node58"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="432,-528 371,-528 371,-504 432,-504 432,-528"/>
+<text text-anchor="middle" x="401.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge21" class="edge">
-<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M353.35,-2318.84C341.78,-2315.74 330.55,-2310.31 323,-2301 288.06,-2257.92 265.25,-1383.73 261.54,-1231.51"/>
-<polygon fill="#000000" stroke="#000000" points="265.03,-1231.02 261.28,-1221.11 258.03,-1231.19 265.03,-1231.02"/>
-</g>
-<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge73" class="edge">
-<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M353.23,-2327.22C323.25,-2327.84 285.61,-2323.26 261,-2301"/>
+<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge61" class="edge">
+<title>module~s_util_peri&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.69,-516.16C354.08,-517.94 334.49,-523.16 323,-537 273.54,-596.57 262.96,-1170.65 261.27,-1291.67"/>
+<polygon fill="#000000" stroke="#000000" points="257.77,-1291.89 261.14,-1301.94 264.77,-1291.99 257.77,-1291.89"/>
 </g>
-<!-- module~s_gr -->
+<!-- module~s_rmvs_setup -->
 <g id="module~~helio_classes~~UsedByGraph_node59" class="node">
-<title>module~s_gr</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node59"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="428.5,-234 374.5,-234 374.5,-210 428.5,-210 428.5,-234"/>
-<text text-anchor="middle" x="401.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
+<title>module~s_rmvs_setup</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node59"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-486 362,-486 362,-462 441,-462 441,-486"/>
+<text text-anchor="middle" x="401.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_gr&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge61" class="edge">
-<title>module~s_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.42,-221.75C357.06,-223.09 335.26,-228 323,-243 261.39,-318.39 260.52,-1048.85 260.9,-1186.64"/>
-<polygon fill="#000000" stroke="#000000" points="257.41,-1186.84 260.94,-1196.83 264.41,-1186.82 257.41,-1186.84"/>
+<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge62" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.96,-475.38C347.6,-477.95 332.5,-483.5 323,-495 270.85,-558.08 262.37,-1166.71 261.18,-1291.65"/>
+<polygon fill="#000000" stroke="#000000" points="257.68,-1291.88 261.09,-1301.91 264.68,-1291.94 257.68,-1291.88"/>
 </g>
-<!-- module~s_rmvs_step -->
+<!-- module~s_whm_setup -->
 <g id="module~~helio_classes~~UsedByGraph_node60" class="node">
-<title>module~s_rmvs_step</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node60"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="438,-192 365,-192 365,-168 438,-168 438,-192"/>
-<text text-anchor="middle" x="401.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
+<title>module~s_whm_setup</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node60"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441,-444 362,-444 362,-420 441,-420 441,-444"/>
+<text text-anchor="middle" x="401.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge38" class="edge">
-<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.68,-180.85C349.51,-183.17 333.04,-188.68 323,-201 258.69,-279.9 260.04,-1045.1 260.84,-1186.57"/>
-<polygon fill="#000000" stroke="#000000" points="257.34,-1187.01 260.91,-1196.99 264.34,-1186.97 257.34,-1187.01"/>
+<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge63" class="edge">
+<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.94,-433.36C347.58,-435.93 332.48,-441.49 323,-453 268.14,-519.6 261.81,-1163.17 261.09,-1291.72"/>
+<polygon fill="#000000" stroke="#000000" points="257.59,-1291.91 261.04,-1301.92 264.59,-1291.94 257.59,-1291.91"/>
 </g>
-<!-- module~s_symba_encounter_check -->
+<!-- module~s_discard -->
 <g id="module~~helio_classes~~UsedByGraph_node61" class="node">
-<title>module~s_symba_encounter_check</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node61"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="473,-2292 330,-2292 330,-2268 473,-2268 473,-2292"/>
-<text text-anchor="middle" x="401.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
+<title>module~s_discard</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node61"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="430.5,-402 372.5,-402 372.5,-378 430.5,-378 430.5,-402"/>
+<text text-anchor="middle" x="401.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge65" class="edge">
-<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M332.79,-2267.85C329.14,-2265.39 325.81,-2262.46 323,-2259 255.99,-2176.57 259.57,-1376.44 260.78,-1231.47"/>
-<polygon fill="#000000" stroke="#000000" points="264.28,-1231.19 260.87,-1221.16 257.28,-1231.12 264.28,-1231.19"/>
-</g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge71" class="edge">
-<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M347.13,-2292.02C310.56,-2299.58 267.52,-2306.89 261,-2301"/>
+<!-- module~s_discard&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge64" class="edge">
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.17,-389.96C355.22,-391.56 334.76,-396.67 323,-411 265.42,-481.15 261.27,-1160.04 261.01,-1291.88"/>
+<polygon fill="#000000" stroke="#000000" points="257.51,-1291.98 261,-1301.99 264.51,-1291.99 257.51,-1291.98"/>
 </g>
-<!-- module~s_symba_util -->
+<!-- module~s_symba_step -->
 <g id="module~~helio_classes~~UsedByGraph_node62" class="node">
-<title>module~s_symba_util</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node62"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="439,-2250 364,-2250 364,-2226 439,-2226 439,-2250"/>
-<text text-anchor="middle" x="401.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
+<title>module~s_symba_step</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node62"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442.5,-24 360.5,-24 360.5,0 442.5,0 442.5,-24"/>
+<text text-anchor="middle" x="401.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_util&#45;&gt;module~swiftest -->
-<g id="module~~helio_classes~~UsedByGraph_edge66" class="edge">
-<title>module~s_symba_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M363.88,-2237.03C348.93,-2234.64 332.86,-2229.1 323,-2217 258.69,-2138.1 260.04,-1372.9 260.84,-1231.43"/>
-<polygon fill="#000000" stroke="#000000" points="264.34,-1231.03 260.91,-1221.01 257.34,-1230.99 264.34,-1231.03"/>
+<!-- module~s_symba_step&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge65" class="edge">
+<title>module~s_symba_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M360.18,-13.55C346.3,-16.23 332,-21.81 323,-33 281.91,-84.1 263.94,-1126 261.34,-1291.84"/>
+<polygon fill="#000000" stroke="#000000" points="257.84,-1291.81 261.18,-1301.86 264.84,-1291.92 257.84,-1291.81"/>
 </g>
-<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge77" class="edge">
-<title>module~s_symba_util&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M363.75,-2245.32C350.56,-2248.62 335.8,-2253.13 323,-2259 292.75,-2272.88 285.68,-2323.33 261,-2301"/>
+<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
+<g id="module~~helio_classes~~UsedByGraph_edge78" class="edge">
+<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M259,-159C201.6,-221.38 161.47,-1583.63 156.11,-1774.79"/>
+<polygon fill="#000000" stroke="#000000" points="152.61,-1774.71 155.83,-1784.8 159.61,-1774.9 152.61,-1774.71"/>
+<path fill="none" stroke="#000000" d="M360.43,-16.2C347.37,-19.2 333.54,-24.31 323,-33 274.83,-72.68 303.26,-113.07 261,-159"/>
 </g>
-<!-- module~s_symba_step -->
+<!-- module~s_util_exit -->
 <g id="module~~helio_classes~~UsedByGraph_node63" class="node">
-<title>module~s_symba_step</title>
-<g id="a_module~~helio_classes~~UsedByGraph_node63"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="442.5,-2208 360.5,-2208 360.5,-2184 442.5,-2184 442.5,-2208"/>
-<text text-anchor="middle" x="401.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
+<title>module~s_util_exit</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node63"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="431.5,-360 371.5,-360 371.5,-336 431.5,-336 431.5,-360"/>
+<text text-anchor="middle" x="401.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~swiftest -->
+<!-- module~s_util_exit&#45;&gt;module~swiftest -->
 <g id="module~~helio_classes~~UsedByGraph_edge67" class="edge">
-<title>module~s_symba_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M360.28,-2194.38C346.41,-2191.69 332.09,-2186.12 323,-2175 261.39,-2099.61 260.52,-1369.15 260.9,-1231.36"/>
-<polygon fill="#000000" stroke="#000000" points="264.41,-1231.18 260.94,-1221.17 257.41,-1231.16 264.41,-1231.18"/>
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.38,-348.02C354.59,-349.7 334.57,-354.87 323,-369 262.74,-442.64 260.76,-1155.82 260.94,-1291.7"/>
+<polygon fill="#000000" stroke="#000000" points="257.44,-1291.77 260.96,-1301.76 264.44,-1291.76 257.44,-1291.77"/>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
-<g id="module~~helio_classes~~UsedByGraph_edge78" class="edge">
-<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M360.47,-2201.5C347.71,-2204.6 334.05,-2209.45 323,-2217 284.7,-2243.19 295.41,-2332.13 261,-2301"/>
+<!-- module~s_whm_gr -->
+<g id="module~~helio_classes~~UsedByGraph_node64" class="node">
+<title>module~s_whm_gr</title>
+<g id="a_module~~helio_classes~~UsedByGraph_node64"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="432.5,-318 370.5,-318 370.5,-294 432.5,-294 432.5,-318"/>
+<text text-anchor="middle" x="401.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
+</a>
+</g>
+</g>
+<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
+<g id="module~~helio_classes~~UsedByGraph_edge68" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.21,-306.13C353.66,-307.93 334.28,-313.18 323,-327 260.05,-404.14 260.27,-1151.94 260.87,-1291.6"/>
+<polygon fill="#000000" stroke="#000000" points="257.37,-1291.92 260.92,-1301.91 264.37,-1291.89 257.37,-1291.92"/>
 </g>
 </g>
 </svg>
@@ -3860,6 +3878,20 @@ <h4>Components</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-pl_discards"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  
+  <td>public,</td>
+  <td>allocatable</td><td>::</td>
+  <td><strong>pl_discards</strong></td><td></td><td></td><td><p>Discarded massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-gmtot"></span>real(kind=DP),</td>
@@ -4078,6 +4110,12 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-get_energy_and_momentum'>get_energy_and_momentum</a></strong>  => util_get_energy_momentum_system </td>
        <td><p>Calculates the total system energy and momentum</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-rescale'>rescale</a></strong>  => util_rescale_system </td>
+       <td><p>Rescales the system into a new set of units</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-validate_ids'>validate_ids</a></strong>  => util_valid_id_system </td>
+       <td><p>Validate the numerical ids passed to the system and save the maximum value</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/whm_nbody_system.html#boundprocedure-initialize~4'>initialize</a></strong>  => whm_setup_initialize_system </td>
        <td><p>Replace the abstract procedures with concrete ones
  Performs WHM-specific initilization steps, like calculating the Jacobi masses</p></td></tr>
diff --git a/docs/module/lambda_function.html b/docs/module/lambda_function.html
index 6a79cebdc..26599095a 100644
--- a/docs/module/lambda_function.html
+++ b/docs/module/lambda_function.html
@@ -545,931 +545,946 @@ <h3 class="panel-title">Used by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~lambda_function~~UsedByGraph Pages: 1 -->
-<svg id="modulelambda_functionUsedByGraph" width="382pt" height="2510pt"
- viewBox="0.00 0.00 382.00 2510.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~lambda_function~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2506)">
+<svg id="modulelambda_functionUsedByGraph" width="382pt" height="2552pt"
+ viewBox="0.00 0.00 382.00 2552.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~lambda_function~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2548)">
 <title>module~~lambda_function~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2506 378,-2506 378,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2548 378,-2548 378,4 -4,4"/>
 <!-- module~lambda_function -->
 <g id="module~~lambda_function~~UsedByGraph_node1" class="node">
 <title>module~lambda_function</title>
-<polygon fill="none" stroke="black" points="91,-1263 0,-1263 0,-1239 91,-1239 91,-1263"/>
-<text text-anchor="middle" x="45.5" y="-1248.6" font-family="Helvetica,sans-Serif" font-size="10.50">lambda_function</text>
+<polygon fill="none" stroke="black" points="91,-1284 0,-1284 0,-1260 91,-1260 91,-1284"/>
+<text text-anchor="middle" x="45.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50">lambda_function</text>
 </g>
 <!-- module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_node2" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~lambda_function~~UsedByGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="181,-1263 127,-1263 127,-1239 181,-1239 181,-1263"/>
-<text text-anchor="middle" x="154" y="-1248.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="181,-1284 127,-1284 127,-1260 181,-1260 181,-1284"/>
+<text text-anchor="middle" x="154" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~lambda_function~~UsedByGraph_edge1" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M126.95,-1251C119.16,-1251 110.32,-1251 101.41,-1251"/>
-<polygon fill="#000000" stroke="#000000" points="101.38,-1247.5 91.38,-1251 101.38,-1254.5 101.38,-1247.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M126.95,-1272C119.16,-1272 110.32,-1272 101.41,-1272"/>
+<polygon fill="#000000" stroke="#000000" points="101.38,-1268.5 91.38,-1272 101.38,-1275.5 101.38,-1268.5"/>
 </g>
-<!-- module~s_obl -->
+<!-- module~s_setup -->
 <g id="module~~lambda_function~~UsedByGraph_node3" class="node">
-<title>module~s_obl</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node3"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-2502 268.5,-2502 268.5,-2478 322.5,-2478 322.5,-2502"/>
-<text text-anchor="middle" x="295.5" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
+<title>module~s_setup</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node3"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-2544 268.5,-2544 268.5,-2520 322.5,-2520 322.5,-2544"/>
+<text text-anchor="middle" x="295.5" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_obl&#45;&gt;module~swiftest -->
+<!-- module~s_setup&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge2" class="edge">
-<title>module~s_obl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.35,-2490.3C250.96,-2488.98 229.16,-2484.08 217,-2469 177.99,-2420.61 158.37,-1435.83 155.4,-1273.55"/>
-<polygon fill="#000000" stroke="#000000" points="158.9,-1273.24 155.21,-1263.31 151.9,-1273.37 158.9,-1273.24"/>
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.35,-2532.31C250.96,-2530.98 229.16,-2526.09 217,-2511 177.29,-2461.71 158.23,-1457.94 155.38,-1294.43"/>
+<polygon fill="#000000" stroke="#000000" points="158.87,-1294.07 155.2,-1284.13 151.87,-1294.19 158.87,-1294.07"/>
 </g>
-<!-- module~s_util_solve -->
+<!-- module~drift_implementation -->
 <g id="module~~lambda_function~~UsedByGraph_node4" class="node">
-<title>module~s_util_solve</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node4"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="329.5,-2460 261.5,-2460 261.5,-2436 329.5,-2436 329.5,-2460"/>
-<text text-anchor="middle" x="295.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
+<title>module~drift_implementation</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node4"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="350,-2502 241,-2502 241,-2478 350,-2478 350,-2502"/>
+<text text-anchor="middle" x="295.5" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<!-- module~drift_implementation&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge3" class="edge">
-<title>module~s_util_solve&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M261.42,-2447.59C245.49,-2445.53 227.6,-2440.12 217,-2427 179.32,-2380.36 158.63,-1431.44 155.44,-1273.26"/>
-<polygon fill="#000000" stroke="#000000" points="158.94,-1273.19 155.24,-1263.26 151.94,-1273.33 158.94,-1273.19"/>
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M240.92,-2484.88C231.7,-2481.61 223.13,-2476.59 217,-2469 178.64,-2421.46 158.48,-1453.65 155.41,-1294.16"/>
+<polygon fill="#000000" stroke="#000000" points="158.91,-1294.03 155.22,-1284.1 151.91,-1294.16 158.91,-1294.03"/>
 </g>
-<!-- module~s_util_spill -->
+<!-- module~s_rmvs_kick -->
 <g id="module~~lambda_function~~UsedByGraph_node5" class="node">
-<title>module~s_util_spill</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node5"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-2418 265,-2418 265,-2394 326,-2394 326,-2418"/>
-<text text-anchor="middle" x="295.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node5"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="331,-2460 260,-2460 260,-2436 331,-2436 331,-2460"/>
+<text text-anchor="middle" x="295.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_spill&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge4" class="edge">
-<title>module~s_util_spill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.94,-2405.98C248.21,-2404.28 228.4,-2399.09 217,-2385 180.7,-2340.14 158.94,-1428.73 155.48,-1273.41"/>
-<polygon fill="#000000" stroke="#000000" points="158.98,-1273.12 155.26,-1263.2 151.98,-1273.27 158.98,-1273.12"/>
+<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge5" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.84,-2447.37C244.32,-2445.16 227.25,-2439.68 217,-2427 180.01,-2381.25 158.78,-1451.09 155.46,-1294.33"/>
+<polygon fill="#000000" stroke="#000000" points="158.95,-1293.97 155.24,-1284.05 151.96,-1294.12 158.95,-1293.97"/>
 </g>
-<!-- module~s_helio_kick -->
+<!-- module~s_symba_encounter_check -->
 <g id="module~~lambda_function~~UsedByGraph_node6" class="node">
-<title>module~s_helio_kick</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node6"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-2376 260.5,-2376 260.5,-2352 330.5,-2352 330.5,-2376"/>
-<text text-anchor="middle" x="295.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
+<title>module~s_symba_encounter_check</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node6"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="367,-2418 224,-2418 224,-2394 367,-2394 367,-2418"/>
+<text text-anchor="middle" x="295.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge5" class="edge">
-<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.25,-2363.41C244.64,-2361.24 227.36,-2355.78 217,-2343 182.06,-2299.92 159.25,-1425.73 155.54,-1273.51"/>
-<polygon fill="#000000" stroke="#000000" points="159.03,-1273.02 155.28,-1263.11 152.03,-1273.19 159.03,-1273.02"/>
+<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge4" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M226.78,-2393.86C223.13,-2391.39 219.81,-2388.47 217,-2385 181.38,-2341.04 159.09,-1448.31 155.51,-1294.48"/>
+<polygon fill="#000000" stroke="#000000" points="159.01,-1294.26 155.28,-1284.34 152.01,-1294.42 159.01,-1294.26"/>
 </g>
-<!-- module~s_util_append -->
+<!-- module~s_rmvs_chk -->
 <g id="module~~lambda_function~~UsedByGraph_node7" class="node">
-<title>module~s_util_append</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node7"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-2334 256,-2334 256,-2310 335,-2310 335,-2334"/>
-<text text-anchor="middle" x="295.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
+<title>module~s_rmvs_chk</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node7"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-2376 260.5,-2376 260.5,-2352 330.5,-2352 330.5,-2376"/>
+<text text-anchor="middle" x="295.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_append&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge6" class="edge">
-<title>module~s_util_append&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.86,-2320.7C241.49,-2318.14 226.41,-2312.57 217,-2301 149.99,-2218.57 153.57,-1418.44 154.78,-1273.47"/>
-<polygon fill="#000000" stroke="#000000" points="158.28,-1273.19 154.87,-1263.16 151.28,-1273.12 158.28,-1273.19"/>
+<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.26,-2363.4C244.64,-2361.23 227.37,-2355.77 217,-2343 148.63,-2258.8 153.35,-1441.08 154.75,-1294.45"/>
+<polygon fill="#000000" stroke="#000000" points="158.26,-1294.08 154.86,-1284.04 151.26,-1294.01 158.26,-1294.08"/>
 </g>
-<!-- module~s_discard -->
+<!-- module~s_util_get_energy_momentum -->
 <g id="module~~lambda_function~~UsedByGraph_node8" class="node">
-<title>module~s_discard</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node8"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-2292 266.5,-2292 266.5,-2268 324.5,-2268 324.5,-2292"/>
-<text text-anchor="middle" x="295.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node8"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="374,-2334 217,-2334 217,-2310 374,-2310 374,-2334"/>
+<text text-anchor="middle" x="295.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
 </a>
 </g>
 </g>
-<!-- module~s_discard&#45;&gt;module~swiftest -->
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge7" class="edge">
-<title>module~s_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.13,-2280.07C249.17,-2278.48 228.71,-2273.37 217,-2259 152.69,-2180.1 154.04,-1414.9 154.84,-1273.43"/>
-<polygon fill="#000000" stroke="#000000" points="158.34,-1273.03 154.91,-1263.01 151.34,-1272.99 158.34,-1273.03"/>
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M226.8,-2309.85C223.14,-2307.38 219.82,-2304.46 217,-2301 151.34,-2220.34 153.8,-1437.74 154.81,-1294.47"/>
+<polygon fill="#000000" stroke="#000000" points="158.31,-1294.28 154.89,-1284.26 151.31,-1294.23 158.31,-1294.28"/>
 </g>
-<!-- module~drift_implementation -->
+<!-- module~s_util_coord -->
 <g id="module~~lambda_function~~UsedByGraph_node9" class="node">
-<title>module~drift_implementation</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node9"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="350,-2250 241,-2250 241,-2226 350,-2226 350,-2250"/>
-<text text-anchor="middle" x="295.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
+<title>module~s_util_coord</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node9"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-2292 260.5,-2292 260.5,-2268 330.5,-2268 330.5,-2292"/>
+<text text-anchor="middle" x="295.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
 </a>
 </g>
 </g>
-<!-- module~drift_implementation&#45;&gt;module~swiftest -->
+<!-- module~s_util_coord&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge8" class="edge">
-<title>module~drift_implementation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M240.99,-2232.82C231.77,-2229.55 223.17,-2224.56 217,-2217 155.39,-2141.61 154.52,-1411.15 154.9,-1273.36"/>
-<polygon fill="#000000" stroke="#000000" points="158.41,-1273.18 154.94,-1263.17 151.41,-1273.16 158.41,-1273.18"/>
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.28,-2279.38C244.68,-2277.2 227.4,-2271.74 217,-2259 154.05,-2181.86 154.27,-1434.06 154.87,-1294.4"/>
+<polygon fill="#000000" stroke="#000000" points="158.37,-1294.11 154.92,-1284.09 151.37,-1294.08 158.37,-1294.11"/>
 </g>
-<!-- module~s_whm_gr -->
+<!-- module~s_util_set -->
 <g id="module~~lambda_function~~UsedByGraph_node10" class="node">
-<title>module~s_whm_gr</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node10"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="326.5,-2208 264.5,-2208 264.5,-2184 326.5,-2184 326.5,-2208"/>
-<text text-anchor="middle" x="295.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
+<title>module~s_util_set</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node10"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-2250 266.5,-2250 266.5,-2226 324.5,-2226 324.5,-2250"/>
+<text text-anchor="middle" x="295.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge56" class="edge">
-<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.23,-2195.85C247.69,-2194.05 228.31,-2188.8 217,-2175 158.14,-2103.18 155.02,-1408.53 154.97,-1273.63"/>
-<polygon fill="#000000" stroke="#000000" points="158.47,-1273.29 154.98,-1263.29 151.47,-1273.29 158.47,-1273.29"/>
+<!-- module~s_util_set&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge9" class="edge">
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.15,-2238.05C249.2,-2236.46 228.74,-2231.35 217,-2217 156.74,-2143.36 154.76,-1430.18 154.94,-1294.3"/>
+<polygon fill="#000000" stroke="#000000" points="158.44,-1294.24 154.96,-1284.24 151.44,-1294.23 158.44,-1294.24"/>
 </g>
-<!-- module~s_helio_step -->
+<!-- module~s_symba_drift -->
 <g id="module~~lambda_function~~UsedByGraph_node11" class="node">
-<title>module~s_helio_step</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node11"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="332,-2166 259,-2166 259,-2142 332,-2142 332,-2166"/>
-<text text-anchor="middle" x="295.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
+<title>module~s_symba_drift</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node11"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-2208 256,-2208 256,-2184 335,-2184 335,-2208"/>
+<text text-anchor="middle" x="295.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_step&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge9" class="edge">
-<title>module~s_helio_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.73,-2153.11C243.57,-2150.78 227.09,-2145.27 217,-2133 160.81,-2064.66 155.54,-1404.11 155.05,-1273.41"/>
-<polygon fill="#000000" stroke="#000000" points="158.55,-1273.04 155.02,-1263.05 151.55,-1273.06 158.55,-1273.04"/>
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge10" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.92,-2194.66C241.56,-2192.09 226.46,-2186.53 217,-2175 159.42,-2104.85 155.27,-1425.96 155.01,-1294.12"/>
+<polygon fill="#000000" stroke="#000000" points="158.51,-1294.01 155,-1284.01 151.51,-1294.02 158.51,-1294.01"/>
 </g>
-<!-- module~s_helio_coord -->
+<!-- module~s_util_rescale -->
 <g id="module~~lambda_function~~UsedByGraph_node12" class="node">
-<title>module~s_helio_coord</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node12"><a xlink:href=".././module/s_helio_coord.html" xlink:title="s_helio_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-2124 256,-2124 256,-2100 335,-2100 335,-2124"/>
-<text text-anchor="middle" x="295.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_coord</text>
+<title>module~s_util_rescale</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node12"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="334.5,-2166 256.5,-2166 256.5,-2142 334.5,-2142 334.5,-2166"/>
+<text text-anchor="middle" x="295.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_rescale</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge10" class="edge">
-<title>module~s_helio_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.95,-2110.63C241.59,-2108.06 226.49,-2102.5 217,-2091 163.47,-2026.13 156.08,-1399.48 155.13,-1273.13"/>
-<polygon fill="#000000" stroke="#000000" points="158.63,-1273.07 155.06,-1263.09 151.63,-1273.11 158.63,-1273.07"/>
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge11" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.34,-2152.71C241.86,-2150.17 226.57,-2144.62 217,-2133 162.14,-2066.4 155.81,-1422.83 155.09,-1294.28"/>
+<polygon fill="#000000" stroke="#000000" points="158.59,-1294.06 155.04,-1284.08 151.59,-1294.09 158.59,-1294.06"/>
 </g>
-<!-- module~s_rmvs_util -->
+<!-- module~s_util_version -->
 <g id="module~~lambda_function~~UsedByGraph_node13" class="node">
-<title>module~s_rmvs_util</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node13"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-2082 262,-2082 262,-2058 329,-2058 329,-2082"/>
-<text text-anchor="middle" x="295.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
+<title>module~s_util_version</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node13"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="334.5,-2124 256.5,-2124 256.5,-2100 334.5,-2100 334.5,-2124"/>
+<text text-anchor="middle" x="295.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge11" class="edge">
-<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M261.95,-2069.53C245.96,-2067.48 227.85,-2062.1 217,-2049 166.17,-1987.65 156.65,-1395.77 155.22,-1273.16"/>
-<polygon fill="#000000" stroke="#000000" points="158.72,-1273.04 155.11,-1263.08 151.72,-1273.12 158.72,-1273.04"/>
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge12" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.36,-2110.69C241.89,-2108.15 226.59,-2102.6 217,-2091 164.85,-2027.92 156.37,-1419.29 155.18,-1294.35"/>
+<polygon fill="#000000" stroke="#000000" points="158.68,-1294.06 155.09,-1284.09 151.68,-1294.12 158.68,-1294.06"/>
 </g>
-<!-- module~s_util_resize -->
+<!-- module~s_util_minimize_bfgs -->
 <g id="module~~lambda_function~~UsedByGraph_node14" class="node">
-<title>module~s_util_resize</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node14"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="331.5,-2040 259.5,-2040 259.5,-2016 331.5,-2016 331.5,-2040"/>
-<text text-anchor="middle" x="295.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node14"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="351.5,-2082 239.5,-2082 239.5,-2058 351.5,-2058 351.5,-2082"/>
+<text text-anchor="middle" x="295.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_resize&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge12" class="edge">
-<title>module~s_util_resize&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.2,-2027.12C243.93,-2024.81 227.25,-2019.32 217,-2007 168.86,-1949.14 157.25,-1391.66 155.32,-1273.1"/>
-<polygon fill="#000000" stroke="#000000" points="158.82,-1272.97 155.17,-1263.03 151.82,-1273.08 158.82,-1272.97"/>
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge13" class="edge">
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M239.12,-2064.02C230.63,-2060.76 222.79,-2055.97 217,-2049 167.54,-1989.43 156.96,-1415.35 155.27,-1294.33"/>
+<polygon fill="#000000" stroke="#000000" points="158.77,-1294.01 155.14,-1284.06 151.77,-1294.11 158.77,-1294.01"/>
 </g>
-<!-- module~s_operator_cross -->
+<!-- module~s_rmvs_discard -->
 <g id="module~~lambda_function~~UsedByGraph_node15" class="node">
-<title>module~s_operator_cross</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node15"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="343.5,-1998 247.5,-1998 247.5,-1974 343.5,-1974 343.5,-1998"/>
-<text text-anchor="middle" x="295.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
+<title>module~s_rmvs_discard</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node15"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="339.5,-2040 251.5,-2040 251.5,-2016 339.5,-2016 339.5,-2040"/>
+<text text-anchor="middle" x="295.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge13" class="edge">
-<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.13,-1982.58C235.7,-1979.46 224.6,-1974.09 217,-1965 171.57,-1910.67 157.91,-1388.27 155.44,-1273.3"/>
-<polygon fill="#000000" stroke="#000000" points="158.94,-1273.13 155.23,-1263.21 151.94,-1273.28 158.94,-1273.13"/>
+<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge14" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M251.16,-2025.6C238.34,-2022.68 225.48,-2017.17 217,-2007 170.27,-1950.97 157.6,-1412.15 155.39,-1294.58"/>
+<polygon fill="#000000" stroke="#000000" points="158.88,-1294.21 155.2,-1284.27 151.88,-1294.33 158.88,-1294.21"/>
 </g>
-<!-- module~s_user_kick_getacch -->
+<!-- proc~solve_wbs -->
 <g id="module~~lambda_function~~UsedByGraph_node16" class="node">
-<title>module~s_user_kick_getacch</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node16"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="351.5,-1956 239.5,-1956 239.5,-1932 351.5,-1932 351.5,-1956"/>
-<text text-anchor="middle" x="295.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
+<title>proc~solve_wbs</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node16"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="326.5,-1998 264.5,-1998 264.5,-1974 326.5,-1974 326.5,-1998"/>
+<text text-anchor="middle" x="295.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge14" class="edge">
-<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M239.19,-1937.96C230.7,-1934.7 222.83,-1929.94 217,-1923 174.26,-1872.17 158.59,-1384.27 155.57,-1273.36"/>
-<polygon fill="#000000" stroke="#000000" points="159.06,-1272.94 155.3,-1263.03 152.06,-1273.12 159.06,-1272.94"/>
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge15" class="edge">
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.35,-1985.76C247.84,-1983.92 228.46,-1978.67 217,-1965 172.92,-1912.42 158.25,-1407.34 155.5,-1294.35"/>
+<polygon fill="#000000" stroke="#000000" points="159,-1294.04 155.26,-1284.13 152,-1294.21 159,-1294.04"/>
 </g>
-<!-- module~s_symba_collision -->
+<!-- module~s_gr -->
 <g id="module~~lambda_function~~UsedByGraph_node17" class="node">
-<title>module~s_symba_collision</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node17"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="345,-1914 246,-1914 246,-1890 345,-1890 345,-1914"/>
-<text text-anchor="middle" x="295.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
+<title>module~s_gr</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node17"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-1956 268.5,-1956 268.5,-1932 322.5,-1932 322.5,-1956"/>
+<text text-anchor="middle" x="295.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge58" class="edge">
-<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.99,-1898.18C234.99,-1895.02 224.38,-1889.73 217,-1881 176.94,-1833.64 159.32,-1379.8 155.71,-1273.29"/>
-<polygon fill="#000000" stroke="#000000" points="159.2,-1272.95 155.37,-1263.07 152.21,-1273.18 159.2,-1272.95"/>
+<!-- module~s_gr&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge16" class="edge">
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.19,-1944.1C250.95,-1942.66 229.4,-1937.71 217,-1923 175.6,-1873.91 158.95,-1403.13 155.64,-1294.35"/>
+<polygon fill="#000000" stroke="#000000" points="159.13,-1294.09 155.34,-1284.2 152.14,-1294.3 159.13,-1294.09"/>
 </g>
-<!-- module~s_eucl -->
+<!-- module~s_kick -->
 <g id="module~~lambda_function~~UsedByGraph_node18" class="node">
-<title>module~s_eucl</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node18"><a xlink:href=".././module/s_eucl.html" xlink:title="s_eucl">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-1872 268.5,-1872 268.5,-1848 322.5,-1848 322.5,-1872"/>
-<text text-anchor="middle" x="295.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_eucl</text>
+<title>module~s_kick</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node18"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-1914 268.5,-1914 268.5,-1890 322.5,-1890 322.5,-1914"/>
+<text text-anchor="middle" x="295.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_eucl&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge16" class="edge">
-<title>module~s_eucl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.23,-1860.06C251.02,-1858.6 229.48,-1853.64 217,-1839 179.58,-1795.08 160.07,-1374.8 155.87,-1273.09"/>
-<polygon fill="#000000" stroke="#000000" points="159.36,-1272.88 155.46,-1263.03 152.37,-1273.16 159.36,-1272.88"/>
+<!-- module~s_kick&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge17" class="edge">
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.22,-1902.08C251,-1900.62 229.45,-1895.67 217,-1881 178.26,-1835.37 159.69,-1398.4 155.79,-1294.22"/>
+<polygon fill="#000000" stroke="#000000" points="159.29,-1294.06 155.42,-1284.19 152.29,-1294.31 159.29,-1294.06"/>
 </g>
-<!-- module~s_rmvs_discard -->
+<!-- module~s_util_resize -->
 <g id="module~~lambda_function~~UsedByGraph_node19" class="node">
-<title>module~s_rmvs_discard</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node19"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="339.5,-1830 251.5,-1830 251.5,-1806 339.5,-1806 339.5,-1830"/>
-<text text-anchor="middle" x="295.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
+<title>module~s_util_resize</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node19"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="331.5,-1872 259.5,-1872 259.5,-1848 331.5,-1848 331.5,-1872"/>
+<text text-anchor="middle" x="295.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge17" class="edge">
-<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M251.33,-1815.45C238.53,-1812.53 225.63,-1807.05 217,-1797 182.32,-1756.62 160.99,-1371.73 156.09,-1273.65"/>
-<polygon fill="#000000" stroke="#000000" points="159.57,-1273.21 155.58,-1263.39 152.58,-1273.55 159.57,-1273.21"/>
+<!-- module~s_util_resize&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge18" class="edge">
+<title>module~s_util_resize&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.35,-1858.99C244.12,-1856.66 227.42,-1851.18 217,-1839 180.94,-1796.84 160.5,-1393.95 155.97,-1294.24"/>
+<polygon fill="#000000" stroke="#000000" points="159.46,-1293.93 155.51,-1284.1 152.46,-1294.24 159.46,-1293.93"/>
 </g>
-<!-- module~s_util_coord -->
+<!-- module~s_symba_kick -->
 <g id="module~~lambda_function~~UsedByGraph_node20" class="node">
-<title>module~s_util_coord</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node20"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-1788 260.5,-1788 260.5,-1764 330.5,-1764 330.5,-1788"/>
-<text text-anchor="middle" x="295.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
+<title>module~s_symba_kick</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node20"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-1830 256,-1830 256,-1806 335,-1806 335,-1830"/>
+<text text-anchor="middle" x="295.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge18" class="edge">
-<title>module~s_util_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.22,-1775.05C244.79,-1772.77 227.68,-1767.32 217,-1755 153.37,-1681.62 153.34,-1361.18 154.57,-1273.34"/>
-<polygon fill="#000000" stroke="#000000" points="158.07,-1273.22 154.73,-1263.17 151.07,-1273.11 158.07,-1273.22"/>
+<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge19" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.8,-1816.34C241.6,-1813.71 226.65,-1808.19 217,-1797 183.62,-1758.31 161.4,-1389.69 156.18,-1294.4"/>
+<polygon fill="#000000" stroke="#000000" points="159.68,-1294.2 155.64,-1284.4 152.69,-1294.57 159.68,-1294.2"/>
 </g>
-<!-- module~s_symba_fragmentation -->
+<!-- module~s_whm_util -->
 <g id="module~~lambda_function~~UsedByGraph_node21" class="node">
-<title>module~s_symba_fragmentation</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node21"><a xlink:href=".././module/s_symba_fragmentation.html" xlink:title="s_symba_fragmentation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="359,-1746 232,-1746 232,-1722 359,-1722 359,-1746"/>
-<text text-anchor="middle" x="295.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_fragmentation</text>
+<title>module~s_whm_util</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node21"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="328.5,-1788 262.5,-1788 262.5,-1764 328.5,-1764 328.5,-1788"/>
+<text text-anchor="middle" x="295.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge19" class="edge">
-<title>module~s_symba_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M231.77,-1724.33C226.21,-1721.42 221.14,-1717.72 217,-1713 158.6,-1646.39 154.74,-1355.8 154.85,-1273.06"/>
-<polygon fill="#000000" stroke="#000000" points="158.35,-1273.02 154.89,-1263.01 151.35,-1273 158.35,-1273.02"/>
+<!-- module~s_whm_util&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge20" class="edge">
+<title>module~s_whm_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.21,-1775.3C246.3,-1773.19 228.17,-1767.82 217,-1755 156,-1685.01 154.03,-1379.58 154.7,-1294.23"/>
+<polygon fill="#000000" stroke="#000000" points="158.21,-1294.14 154.81,-1284.1 151.21,-1294.07 158.21,-1294.14"/>
 </g>
-<!-- module~s_whm_kick -->
+<!-- module~s_util_spill -->
 <g id="module~~lambda_function~~UsedByGraph_node22" class="node">
-<title>module~s_whm_kick</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node22"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-1704 260.5,-1704 260.5,-1680 330.5,-1680 330.5,-1704"/>
-<text text-anchor="middle" x="295.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
+<title>module~s_util_spill</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node22"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-1746 265,-1746 265,-1722 326,-1722 326,-1746"/>
+<text text-anchor="middle" x="295.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge20" class="edge">
-<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.35,-1690.93C244.95,-1688.63 227.83,-1683.19 217,-1671 163.93,-1611.26 156.28,-1351.4 155.18,-1273.29"/>
-<polygon fill="#000000" stroke="#000000" points="158.68,-1273.09 155.06,-1263.13 151.68,-1273.17 158.68,-1273.09"/>
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge21" class="edge">
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.99,-1733.58C248.48,-1731.71 228.9,-1726.48 217,-1713 161.31,-1649.88 155.5,-1375.06 155.01,-1294.36"/>
+<polygon fill="#000000" stroke="#000000" points="158.51,-1294.29 154.97,-1284.3 151.51,-1294.31 158.51,-1294.29"/>
 </g>
-<!-- module~s_util_valid -->
+<!-- proc~ge_wpp -->
 <g id="module~~lambda_function~~UsedByGraph_node23" class="node">
-<title>module~s_util_valid</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node23"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="328,-1662 263,-1662 263,-1638 328,-1638 328,-1662"/>
-<text text-anchor="middle" x="295.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
+<title>proc~ge_wpp</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node23"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="322.5,-1704 268.5,-1704 268.5,-1680 322.5,-1680 322.5,-1704"/>
+<text text-anchor="middle" x="295.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_valid&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge21" class="edge">
-<title>module~s_util_valid&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.78,-1649.19C246.83,-1647.07 228.49,-1641.73 217,-1629 169.2,-1576.05 157.97,-1346.41 155.59,-1273.38"/>
-<polygon fill="#000000" stroke="#000000" points="159.08,-1272.95 155.28,-1263.06 152.08,-1273.16 159.08,-1272.95"/>
+<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge22" class="edge">
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.46,-1691.86C251.35,-1690.32 229.83,-1685.33 217,-1671 166.63,-1614.74 157.13,-1370.59 155.38,-1294.64"/>
+<polygon fill="#000000" stroke="#000000" points="158.88,-1294.24 155.17,-1284.32 151.88,-1294.39 158.88,-1294.24"/>
 </g>
-<!-- module~s_util_set -->
+<!-- module~s_orbel -->
 <g id="module~~lambda_function~~UsedByGraph_node24" class="node">
-<title>module~s_util_set</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node24"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-1620 266.5,-1620 266.5,-1596 324.5,-1596 324.5,-1620"/>
-<text text-anchor="middle" x="295.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
+<title>module~s_orbel</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node24"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-1662 268.5,-1662 268.5,-1638 322.5,-1638 322.5,-1662"/>
+<text text-anchor="middle" x="295.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_set&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge22" class="edge">
-<title>module~s_util_set&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.34,-1607.52C249.68,-1605.69 229.47,-1600.53 217,-1587 174.45,-1540.81 159.87,-1341.15 156.1,-1273.51"/>
-<polygon fill="#000000" stroke="#000000" points="159.58,-1272.95 155.55,-1263.15 152.59,-1273.32 159.58,-1272.95"/>
+<!-- module~s_orbel&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge23" class="edge">
+<title>module~s_orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.17,-1649.76C251.16,-1648.14 229.86,-1643.12 217,-1629 171.84,-1579.45 158.9,-1364.95 155.83,-1294.51"/>
+<polygon fill="#000000" stroke="#000000" points="159.32,-1293.98 155.41,-1284.14 152.32,-1294.27 159.32,-1293.98"/>
 </g>
-<!-- module~s_util_exit -->
+<!-- module~s_helio_drift -->
 <g id="module~~lambda_function~~UsedByGraph_node25" class="node">
-<title>module~s_util_exit</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node25"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="325.5,-1578 265.5,-1578 265.5,-1554 325.5,-1554 325.5,-1578"/>
-<text text-anchor="middle" x="295.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
+<title>module~s_helio_drift</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node25"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-1620 260.5,-1620 260.5,-1596 330.5,-1596 330.5,-1620"/>
+<text text-anchor="middle" x="295.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge23" class="edge">
-<title>module~s_util_exit&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M265.32,-1565.27C248.93,-1563.3 229.35,-1558.07 217,-1545 179.65,-1505.47 162.01,-1335.28 156.75,-1273.51"/>
-<polygon fill="#000000" stroke="#000000" points="160.22,-1272.97 155.91,-1263.29 153.24,-1273.54 160.22,-1272.97"/>
+<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge24" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.21,-1606.64C244.97,-1604.25 228.03,-1598.83 217,-1587 177.03,-1544.11 160.88,-1359 156.4,-1294.37"/>
+<polygon fill="#000000" stroke="#000000" points="159.87,-1293.83 155.71,-1284.09 152.88,-1294.3 159.87,-1293.83"/>
 </g>
-<!-- program~swiftest_driver -->
+<!-- module~s_operator_cross -->
 <g id="module~~lambda_function~~UsedByGraph_node26" class="node">
-<title>program~swiftest_driver</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node26"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="336,-1536 255,-1536 255,-1512 336,-1512 336,-1536"/>
-<text text-anchor="middle" x="295.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
+<title>module~s_operator_cross</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node26"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="343.5,-1578 247.5,-1578 247.5,-1554 343.5,-1554 343.5,-1578"/>
+<text text-anchor="middle" x="295.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
 </a>
 </g>
 </g>
-<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge24" class="edge">
-<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.89,-1521.39C241.26,-1518.57 226.94,-1513.17 217,-1503 184.75,-1469.98 164.41,-1328.4 157.57,-1273.18"/>
-<polygon fill="#000000" stroke="#000000" points="161.02,-1272.57 156.35,-1263.06 154.07,-1273.41 161.02,-1272.57"/>
+<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge25" class="edge">
+<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.13,-1561.63C235.97,-1558.49 225.01,-1553.35 217,-1545 182.15,-1508.68 163.1,-1352.39 157.1,-1294.06"/>
+<polygon fill="#000000" stroke="#000000" points="160.58,-1293.67 156.11,-1284.06 153.62,-1294.36 160.58,-1293.67"/>
 </g>
-<!-- module~s_rmvs_kick -->
+<!-- module~s_symba_setup -->
 <g id="module~~lambda_function~~UsedByGraph_node27" class="node">
-<title>module~s_rmvs_kick</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node27"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="331,-1494 260,-1494 260,-1470 331,-1470 331,-1494"/>
-<text text-anchor="middle" x="295.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
+<title>module~s_symba_setup</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node27"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="339.5,-1536 251.5,-1536 251.5,-1512 339.5,-1512 339.5,-1536"/>
+<text text-anchor="middle" x="295.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge25" class="edge">
-<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.91,-1480.04C244.97,-1477.49 228.36,-1472.11 217,-1461 164.48,-1409.65 155.92,-1316.17 154.88,-1273.42"/>
-<polygon fill="#000000" stroke="#000000" points="158.38,-1273.2 154.76,-1263.24 151.38,-1273.28 158.38,-1273.2"/>
+<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge26" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M251.39,-1520.46C238.89,-1517.46 226.16,-1512.18 217,-1503 159.29,-1445.15 153.67,-1339.75 154.15,-1294.08"/>
+<polygon fill="#000000" stroke="#000000" points="157.65,-1294.14 154.37,-1284.06 150.66,-1293.98 157.65,-1294.14"/>
 </g>
-<!-- module~s_whm_step -->
+<!-- program~swiftest_driver -->
 <g id="module~~lambda_function~~UsedByGraph_node28" class="node">
-<title>module~s_whm_step</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node28"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="332,-1452 259,-1452 259,-1428 332,-1428 332,-1452"/>
-<text text-anchor="middle" x="295.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
+<title>program~swiftest_driver</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node28"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="336,-1494 255,-1494 255,-1470 336,-1470 336,-1494"/>
+<text text-anchor="middle" x="295.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_step&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge26" class="edge">
-<title>module~s_whm_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.67,-1437.4C244.21,-1434.68 228.31,-1429.35 217,-1419 174.38,-1380.01 160.97,-1309.14 156.82,-1273.19"/>
-<polygon fill="#000000" stroke="#000000" points="160.3,-1272.82 155.8,-1263.22 153.33,-1273.53 160.3,-1272.82"/>
+<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge27" class="edge">
+<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.9,-1478.89C241.43,-1476 227.21,-1470.69 217,-1461 169.48,-1415.9 158.34,-1333.85 155.76,-1294.38"/>
+<polygon fill="#000000" stroke="#000000" points="159.25,-1294.03 155.23,-1284.23 152.26,-1294.4 159.25,-1294.03"/>
 </g>
-<!-- module~s_setup -->
+<!-- module~s_util_copy -->
 <g id="module~~lambda_function~~UsedByGraph_node29" class="node">
-<title>module~s_setup</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node29"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-1410 268.5,-1410 268.5,-1386 322.5,-1386 322.5,-1410"/>
-<text text-anchor="middle" x="295.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
+<title>module~s_util_copy</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node29"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="328.5,-1452 262.5,-1452 262.5,-1428 328.5,-1428 328.5,-1452"/>
+<text text-anchor="middle" x="295.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
 </a>
 </g>
 </g>
-<!-- module~s_setup&#45;&gt;module~swiftest -->
+<!-- module~s_util_copy&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge28" class="edge">
-<title>module~s_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.3,-1396.33C251.98,-1394.07 231.42,-1388.88 217,-1377 184.13,-1349.92 167.25,-1301.13 159.84,-1272.87"/>
-<polygon fill="#000000" stroke="#000000" points="163.24,-1272.01 157.45,-1263.13 156.44,-1273.67 163.24,-1272.01"/>
+<title>module~s_util_copy&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.4,-1437.77C247.12,-1435.22 229.49,-1429.92 217,-1419 179.5,-1386.23 164.09,-1326.98 158.24,-1294.61"/>
+<polygon fill="#000000" stroke="#000000" points="161.63,-1293.66 156.55,-1284.37 154.73,-1294.8 161.63,-1293.66"/>
 </g>
-<!-- module~s_util_get_energy_momentum -->
+<!-- module~s_util_valid -->
 <g id="module~~lambda_function~~UsedByGraph_node30" class="node">
-<title>module~s_util_get_energy_momentum</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node30"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="374,-1368 217,-1368 217,-1344 374,-1344 374,-1368"/>
-<text text-anchor="middle" x="295.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
+<title>module~s_util_valid</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node30"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="328,-1410 263,-1410 263,-1386 328,-1386 328,-1410"/>
+<text text-anchor="middle" x="295.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<!-- module~s_util_valid&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge29" class="edge">
-<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M233.9,-1343.93C227.93,-1341.49 222.18,-1338.54 217,-1335 193.58,-1318.98 175.62,-1291.14 165.2,-1271.93"/>
-<polygon fill="#000000" stroke="#000000" points="168.29,-1270.29 160.57,-1263.03 162.08,-1273.52 168.29,-1270.29"/>
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.63,-1394.96C247.57,-1392.21 230.08,-1386.97 217,-1377 188.98,-1355.66 171.19,-1317.7 162.17,-1293.75"/>
+<polygon fill="#000000" stroke="#000000" points="165.4,-1292.37 158.74,-1284.13 158.81,-1294.73 165.4,-1292.37"/>
 </g>
-<!-- module~s_tides_kick_getacch -->
+<!-- module~s_tides_step_spin -->
 <g id="module~~lambda_function~~UsedByGraph_node31" class="node">
-<title>module~s_tides_kick_getacch</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node31"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="352.5,-1326 238.5,-1326 238.5,-1302 352.5,-1302 352.5,-1326"/>
-<text text-anchor="middle" x="295.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node31"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="344.5,-1368 246.5,-1368 246.5,-1344 344.5,-1344 344.5,-1368"/>
+<text text-anchor="middle" x="295.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge30" class="edge">
-<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M240.73,-1301.92C232.62,-1299.39 224.48,-1296.43 217,-1293 203.25,-1286.69 189.19,-1277.45 177.95,-1269.23"/>
-<polygon fill="#000000" stroke="#000000" points="180.04,-1266.43 169.95,-1263.22 175.84,-1272.02 180.04,-1266.43"/>
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.19,-1347.14C236.14,-1344.16 225.91,-1340.21 217,-1335 198.35,-1324.1 181.46,-1306.13 170.04,-1292.17"/>
+<polygon fill="#000000" stroke="#000000" points="172.61,-1289.78 163.66,-1284.1 167.11,-1294.11 172.61,-1289.78"/>
 </g>
-<!-- module~s_symba_kick -->
+<!-- module~s_util_sort -->
 <g id="module~~lambda_function~~UsedByGraph_node32" class="node">
-<title>module~s_symba_kick</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node32"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-1284 256,-1284 256,-1260 335,-1260 335,-1284"/>
-<text text-anchor="middle" x="295.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
+<title>module~s_util_sort</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node32"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-1326 265,-1326 265,-1302 326,-1302 326,-1326"/>
+<text text-anchor="middle" x="295.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge57" class="edge">
-<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.64,-1266.15C235.55,-1263.13 211.17,-1259.46 191.44,-1256.49"/>
-<polygon fill="#000000" stroke="#000000" points="191.72,-1252.99 181.31,-1254.96 190.68,-1259.91 191.72,-1252.99"/>
+<!-- module~s_util_sort&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge31" class="edge">
+<title>module~s_util_sort&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.94,-1306.45C250.43,-1302.63 232.74,-1297.79 217,-1293 208.48,-1290.41 199.37,-1287.43 190.83,-1284.56"/>
+<polygon fill="#000000" stroke="#000000" points="191.72,-1281.16 181.13,-1281.25 189.47,-1287.79 191.72,-1281.16"/>
 </g>
-<!-- module~s_helio_gr -->
+<!-- module~s_tides_kick_getacch -->
 <g id="module~~lambda_function~~UsedByGraph_node33" class="node">
-<title>module~s_helio_gr</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node33"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="326.5,-1242 264.5,-1242 264.5,-1218 326.5,-1218 326.5,-1242"/>
-<text text-anchor="middle" x="295.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node33"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="352.5,-1284 238.5,-1284 238.5,-1260 352.5,-1260 352.5,-1284"/>
+<text text-anchor="middle" x="295.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge31" class="edge">
-<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.23,-1234.56C242.83,-1237.78 214.03,-1242.11 191.38,-1245.52"/>
-<polygon fill="#000000" stroke="#000000" points="190.82,-1242.07 181.45,-1247.02 191.86,-1248.99 190.82,-1242.07"/>
+<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge32" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M238.16,-1272C222.5,-1272 205.89,-1272 191.67,-1272"/>
+<polygon fill="#000000" stroke="#000000" points="191.32,-1268.5 181.32,-1272 191.32,-1275.5 191.32,-1268.5"/>
 </g>
-<!-- module~s_orbel -->
+<!-- module~s_whm_kick -->
 <g id="module~~lambda_function~~UsedByGraph_node34" class="node">
-<title>module~s_orbel</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node34"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-1200 268.5,-1200 268.5,-1176 322.5,-1176 322.5,-1200"/>
-<text text-anchor="middle" x="295.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
+<title>module~s_whm_kick</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node34"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-1242 260.5,-1242 260.5,-1218 330.5,-1218 330.5,-1242"/>
+<text text-anchor="middle" x="295.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_orbel&#45;&gt;module~swiftest -->
+<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge33" class="edge">
-<title>module~s_orbel&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.27,-1192.84C252.9,-1196.23 233.35,-1201.5 217,-1209 203.25,-1215.31 189.19,-1224.55 177.95,-1232.77"/>
-<polygon fill="#000000" stroke="#000000" points="175.84,-1229.98 169.95,-1238.78 180.04,-1235.57 175.84,-1229.98"/>
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.42,-1238.75C246.85,-1242.36 231.14,-1246.7 217,-1251 208.48,-1253.59 199.37,-1256.57 190.83,-1259.44"/>
+<polygon fill="#000000" stroke="#000000" points="189.47,-1256.21 181.13,-1262.75 191.72,-1262.84 189.47,-1256.21"/>
 </g>
-<!-- module~s_symba_drift -->
+<!-- module~s_util_fill -->
 <g id="module~~lambda_function~~UsedByGraph_node35" class="node">
-<title>module~s_symba_drift</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node35"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-1158 256,-1158 256,-1134 335,-1134 335,-1158"/>
-<text text-anchor="middle" x="295.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
+<title>module~s_util_fill</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node35"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-1200 268.5,-1200 268.5,-1176 322.5,-1176 322.5,-1200"/>
+<text text-anchor="middle" x="295.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<!-- module~s_util_fill&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge34" class="edge">
-<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.66,-1151.22C242.56,-1154.3 228.39,-1159.21 217,-1167 193.58,-1183.02 175.62,-1210.86 165.2,-1230.07"/>
-<polygon fill="#000000" stroke="#000000" points="162.08,-1228.48 160.57,-1238.97 168.29,-1231.71 162.08,-1228.48"/>
+<title>module~s_util_fill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.39,-1191.54C252.69,-1194.5 232.77,-1199.78 217,-1209 198.35,-1219.9 181.46,-1237.87 170.04,-1251.83"/>
+<polygon fill="#000000" stroke="#000000" points="167.11,-1249.89 163.66,-1259.9 172.61,-1254.22 167.11,-1249.89"/>
 </g>
-<!-- module~s_whm_setup -->
+<!-- module~s_helio_kick -->
 <g id="module~~lambda_function~~UsedByGraph_node36" class="node">
-<title>module~s_whm_setup</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node36"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-1116 256,-1116 256,-1092 335,-1092 335,-1116"/>
-<text text-anchor="middle" x="295.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
+<title>module~s_helio_kick</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node36"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-1158 260.5,-1158 260.5,-1134 330.5,-1134 330.5,-1158"/>
+<text text-anchor="middle" x="295.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
+<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge35" class="edge">
-<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.62,-1107.93C242.22,-1110.89 227.87,-1116.05 217,-1125 184.13,-1152.08 167.25,-1200.87 159.84,-1229.13"/>
-<polygon fill="#000000" stroke="#000000" points="156.44,-1228.33 157.45,-1238.87 163.24,-1229.99 156.44,-1228.33"/>
+<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.31,-1149.48C245.81,-1152.34 229.42,-1157.54 217,-1167 188.98,-1188.34 171.19,-1226.3 162.17,-1250.25"/>
+<polygon fill="#000000" stroke="#000000" points="158.81,-1249.27 158.74,-1259.87 165.4,-1251.63 158.81,-1249.27"/>
 </g>
-<!-- module~s_io -->
+<!-- module~s_symba_collision -->
 <g id="module~~lambda_function~~UsedByGraph_node37" class="node">
-<title>module~s_io</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node37"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-1074 268.5,-1074 268.5,-1050 322.5,-1050 322.5,-1074"/>
-<text text-anchor="middle" x="295.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
+<title>module~s_symba_collision</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node37"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="345,-1116 246,-1116 246,-1092 345,-1092 345,-1116"/>
+<text text-anchor="middle" x="295.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
 </a>
 </g>
 </g>
-<!-- module~s_io&#45;&gt;module~swiftest -->
+<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge36" class="edge">
-<title>module~s_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.23,-1063.13C251.68,-1065.15 230.89,-1070.3 217,-1083 174.38,-1121.99 160.97,-1192.86 156.82,-1228.81"/>
-<polygon fill="#000000" stroke="#000000" points="153.33,-1228.47 155.8,-1238.78 160.3,-1229.18 153.33,-1228.47"/>
+<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.67,-1110.08C235.31,-1113.22 225.08,-1117.94 217,-1125 179.5,-1157.77 164.09,-1217.02 158.24,-1249.39"/>
+<polygon fill="#000000" stroke="#000000" points="154.73,-1249.2 156.55,-1259.63 161.63,-1250.34 154.73,-1249.2"/>
 </g>
-<!-- module~s_util_version -->
+<!-- module~s_symba_discard -->
 <g id="module~~lambda_function~~UsedByGraph_node38" class="node">
-<title>module~s_util_version</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node38"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="334.5,-1032 256.5,-1032 256.5,-1008 334.5,-1008 334.5,-1032"/>
-<text text-anchor="middle" x="295.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
+<title>module~s_symba_discard</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node38"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="343.5,-1074 247.5,-1074 247.5,-1050 343.5,-1050 343.5,-1074"/>
+<text text-anchor="middle" x="295.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge37" class="edge">
-<title>module~s_util_version&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.34,-1022.62C242.38,-1025.4 227.47,-1030.77 217,-1041 164.48,-1092.35 155.92,-1185.83 154.88,-1228.58"/>
-<polygon fill="#000000" stroke="#000000" points="151.38,-1228.72 154.76,-1238.76 158.38,-1228.8 151.38,-1228.72"/>
+<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.25,-1067.01C236.22,-1070.15 225.29,-1075.13 217,-1083 169.48,-1128.1 158.34,-1210.15 155.76,-1249.62"/>
+<polygon fill="#000000" stroke="#000000" points="152.26,-1249.6 155.23,-1259.77 159.25,-1249.97 152.26,-1249.6"/>
 </g>
-<!-- module~s_util_fill -->
+<!-- module~s_symba_util -->
 <g id="module~~lambda_function~~UsedByGraph_node39" class="node">
-<title>module~s_util_fill</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node39"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-990 268.5,-990 268.5,-966 322.5,-966 322.5,-990"/>
-<text text-anchor="middle" x="295.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
+<title>module~s_symba_util</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node39"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="333,-1032 258,-1032 258,-1008 333,-1008 333,-1032"/>
+<text text-anchor="middle" x="295.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_fill&#45;&gt;module~swiftest -->
+<!-- module~s_symba_util&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge38" class="edge">
-<title>module~s_util_fill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.48,-978.54C251.6,-980.29 230.35,-985.34 217,-999 184.75,-1032.02 164.41,-1173.6 157.57,-1228.82"/>
-<polygon fill="#000000" stroke="#000000" points="154.07,-1228.59 156.35,-1238.94 161.02,-1229.43 154.07,-1228.59"/>
+<title>module~s_symba_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.8,-1022.18C243.37,-1024.84 227.73,-1030.24 217,-1041 159.29,-1098.85 153.67,-1204.25 154.15,-1249.92"/>
+<polygon fill="#000000" stroke="#000000" points="150.66,-1250.02 154.37,-1259.94 157.65,-1249.86 150.66,-1250.02"/>
 </g>
-<!-- module~s_util_peri -->
+<!-- module~s_util_solve -->
 <g id="module~~lambda_function~~UsedByGraph_node40" class="node">
-<title>module~s_util_peri</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node40"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-948 265,-948 265,-924 326,-924 326,-948"/>
-<text text-anchor="middle" x="295.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
+<title>module~s_util_solve</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node40"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329.5,-990 261.5,-990 261.5,-966 329.5,-966 329.5,-990"/>
+<text text-anchor="middle" x="295.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<!-- module~s_util_solve&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge39" class="edge">
-<title>module~s_util_peri&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.94,-936.77C248.63,-938.78 229.25,-944.03 217,-957 179.65,-996.53 162.01,-1166.72 156.75,-1228.49"/>
-<polygon fill="#000000" stroke="#000000" points="153.24,-1228.46 155.91,-1238.71 160.22,-1229.03 153.24,-1228.46"/>
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M261.15,-979.38C245.74,-981.74 228.39,-987.13 217,-999 182.15,-1035.32 163.1,-1191.61 157.1,-1249.94"/>
+<polygon fill="#000000" stroke="#000000" points="153.62,-1249.64 156.11,-1259.94 160.58,-1250.33 153.62,-1249.64"/>
 </g>
-<!-- module~s_helio_drift -->
+<!-- module~s_rmvs_step -->
 <g id="module~~lambda_function~~UsedByGraph_node41" class="node">
-<title>module~s_helio_drift</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node41"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-906 260.5,-906 260.5,-882 330.5,-882 330.5,-906"/>
-<text text-anchor="middle" x="295.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
+<title>module~s_rmvs_step</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node41"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="332,-948 259,-948 259,-924 332,-924 332,-948"/>
+<text text-anchor="middle" x="295.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge40" class="edge">
-<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.15,-895.3C244.89,-897.68 227.96,-903.11 217,-915 174.45,-961.19 159.87,-1160.85 156.1,-1228.49"/>
-<polygon fill="#000000" stroke="#000000" points="152.59,-1228.68 155.55,-1238.85 159.58,-1229.05 152.59,-1228.68"/>
+<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.63,-937.62C243.81,-940.13 227.65,-945.58 217,-957 177.03,-999.89 160.88,-1185 156.4,-1249.63"/>
+<polygon fill="#000000" stroke="#000000" points="152.88,-1249.7 155.71,-1259.91 159.87,-1250.17 152.88,-1249.7"/>
 </g>
-<!-- module~s_fragmentation -->
+<!-- module~s_symba_io -->
 <g id="module~~lambda_function~~UsedByGraph_node42" class="node">
-<title>module~s_fragmentation</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node42"><a xlink:href=".././module/s_fragmentation.html" xlink:title="s_fragmentation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="340.5,-864 250.5,-864 250.5,-840 340.5,-840 340.5,-864"/>
-<text text-anchor="middle" x="295.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fragmentation</text>
+<title>module~s_symba_io</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node42"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-906 260.5,-906 260.5,-882 330.5,-882 330.5,-906"/>
+<text text-anchor="middle" x="295.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
+<!-- module~s_symba_io&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge41" class="edge">
-<title>module~s_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M250.41,-855.09C238.02,-858.09 225.59,-863.48 217,-873 169.2,-925.95 157.97,-1155.59 155.59,-1228.62"/>
-<polygon fill="#000000" stroke="#000000" points="152.08,-1228.84 155.28,-1238.94 159.08,-1229.05 152.08,-1228.84"/>
+<title>module~s_symba_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.48,-895.19C245.12,-897.52 227.99,-902.95 217,-915 171.84,-964.55 158.9,-1179.05 155.83,-1249.49"/>
+<polygon fill="#000000" stroke="#000000" points="152.32,-1249.73 155.41,-1259.86 159.32,-1250.02 152.32,-1249.73"/>
 </g>
-<!-- proc~solve_wbs -->
+<!-- module~s_rmvs_util -->
 <g id="module~~lambda_function~~UsedByGraph_node43" class="node">
-<title>proc~solve_wbs</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node43"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="326.5,-822 264.5,-822 264.5,-798 326.5,-798 326.5,-822"/>
-<text text-anchor="middle" x="295.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
+<title>module~s_rmvs_util</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node43"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-864 262,-864 262,-840 329,-840 329,-864"/>
+<text text-anchor="middle" x="295.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
 </a>
 </g>
 </g>
-<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge42" class="edge">
-<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.25,-810.54C247.92,-812.49 228.76,-817.76 217,-831 163.93,-890.74 156.28,-1150.6 155.18,-1228.71"/>
-<polygon fill="#000000" stroke="#000000" points="151.68,-1228.83 155.06,-1238.87 158.68,-1228.91 151.68,-1228.83"/>
+<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M261.96,-852.88C246.18,-855.05 228.25,-860.43 217,-873 166.63,-929.26 157.13,-1173.41 155.38,-1249.36"/>
+<polygon fill="#000000" stroke="#000000" points="151.88,-1249.61 155.17,-1259.68 158.88,-1249.76 151.88,-1249.61"/>
 </g>
-<!-- module~s_whm_coord -->
+<!-- module~whm_drift -->
 <g id="module~~lambda_function~~UsedByGraph_node44" class="node">
-<title>module~s_whm_coord</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node44"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-780 256,-780 256,-756 335,-756 335,-780"/>
-<text text-anchor="middle" x="295.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
+<title>module~whm_drift</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node44"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="325,-822 266,-822 266,-798 325,-798 325,-822"/>
+<text text-anchor="middle" x="295.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
+<!-- module~whm_drift&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge43" class="edge">
-<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.89,-769.74C241.7,-772.38 226.74,-777.89 217,-789 158.6,-855.61 154.74,-1146.2 154.85,-1228.94"/>
-<polygon fill="#000000" stroke="#000000" points="151.35,-1229 154.89,-1238.99 158.35,-1228.98 151.35,-1229"/>
+<title>module~whm_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M265.75,-810.34C249.09,-812.13 229.08,-817.31 217,-831 161.31,-894.12 155.5,-1168.94 155.01,-1249.64"/>
+<polygon fill="#000000" stroke="#000000" points="151.51,-1249.69 154.97,-1259.7 158.51,-1249.71 151.51,-1249.69"/>
 </g>
-<!-- module~s_tides_step_spin -->
+<!-- module~s_whm_coord -->
 <g id="module~~lambda_function~~UsedByGraph_node45" class="node">
-<title>module~s_tides_step_spin</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node45"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="344.5,-738 246.5,-738 246.5,-714 344.5,-714 344.5,-738"/>
-<text text-anchor="middle" x="295.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
+<title>module~s_whm_coord</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node45"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-780 256,-780 256,-756 335,-756 335,-780"/>
+<text text-anchor="middle" x="295.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge44" class="edge">
-<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.14,-729.95C235.13,-733.1 224.49,-738.36 217,-747 153.37,-820.38 153.34,-1140.82 154.57,-1228.66"/>
-<polygon fill="#000000" stroke="#000000" points="151.07,-1228.89 154.73,-1238.83 158.07,-1228.78 151.07,-1228.89"/>
+<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.86,-769.71C241.67,-772.35 226.71,-777.86 217,-789 156,-858.99 154.03,-1164.42 154.7,-1249.77"/>
+<polygon fill="#000000" stroke="#000000" points="151.21,-1249.93 154.81,-1259.9 158.21,-1249.86 151.21,-1249.93"/>
 </g>
-<!-- module~s_symba_io -->
+<!-- module~s_io -->
 <g id="module~~lambda_function~~UsedByGraph_node46" class="node">
-<title>module~s_symba_io</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node46"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-696 260.5,-696 260.5,-672 330.5,-672 330.5,-696"/>
-<text text-anchor="middle" x="295.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
+<title>module~s_io</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node46"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-738 268.5,-738 268.5,-714 322.5,-714 322.5,-738"/>
+<text text-anchor="middle" x="295.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_io&#45;&gt;module~swiftest -->
+<!-- module~s_io&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge45" class="edge">
-<title>module~s_symba_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.17,-684.91C244.73,-687.18 227.63,-692.63 217,-705 182.32,-745.38 160.99,-1130.27 156.09,-1228.35"/>
-<polygon fill="#000000" stroke="#000000" points="152.58,-1228.45 155.58,-1238.61 159.57,-1228.79 152.58,-1228.45"/>
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.29,-725.99C251.11,-727.47 229.57,-732.43 217,-747 183.62,-785.69 161.4,-1154.31 156.18,-1249.6"/>
+<polygon fill="#000000" stroke="#000000" points="152.69,-1249.43 155.64,-1259.6 159.68,-1249.8 152.69,-1249.43"/>
 </g>
-<!-- module~s_util_sort -->
+<!-- module~s_obl -->
 <g id="module~~lambda_function~~UsedByGraph_node47" class="node">
-<title>module~s_util_sort</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node47"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-654 265,-654 265,-630 326,-630 326,-654"/>
-<text text-anchor="middle" x="295.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
+<title>module~s_obl</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node47"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-696 268.5,-696 268.5,-672 322.5,-672 322.5,-696"/>
+<text text-anchor="middle" x="295.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_sort&#45;&gt;module~swiftest -->
+<!-- module~s_obl&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge46" class="edge">
-<title>module~s_util_sort&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.81,-642.27C248.25,-644.09 228.66,-649.31 217,-663 179.58,-706.92 160.07,-1127.2 155.87,-1228.91"/>
-<polygon fill="#000000" stroke="#000000" points="152.37,-1228.84 155.46,-1238.97 159.36,-1229.12 152.37,-1228.84"/>
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.25,-683.95C251.05,-685.42 229.5,-690.38 217,-705 180.94,-747.16 160.5,-1150.05 155.97,-1249.76"/>
+<polygon fill="#000000" stroke="#000000" points="152.46,-1249.76 155.51,-1259.9 159.46,-1250.07 152.46,-1249.76"/>
 </g>
-<!-- module~s_util_minimize_bfgs -->
+<!-- module~s_helio_gr -->
 <g id="module~~lambda_function~~UsedByGraph_node48" class="node">
-<title>module~s_util_minimize_bfgs</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node48"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="351.5,-612 239.5,-612 239.5,-588 351.5,-588 351.5,-612"/>
-<text text-anchor="middle" x="295.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
+<title>module~s_helio_gr</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node48"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="326.5,-654 264.5,-654 264.5,-630 326.5,-630 326.5,-654"/>
+<text text-anchor="middle" x="295.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge47" class="edge">
-<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M239.22,-606.07C230.73,-609.32 222.85,-614.08 217,-621 176.94,-668.36 159.32,-1122.2 155.71,-1228.71"/>
-<polygon fill="#000000" stroke="#000000" points="152.21,-1228.82 155.37,-1238.93 159.2,-1229.05 152.21,-1228.82"/>
+<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.41,-642.3C247.92,-644.15 228.55,-649.4 217,-663 178.26,-708.63 159.69,-1145.6 155.79,-1249.78"/>
+<polygon fill="#000000" stroke="#000000" points="152.29,-1249.69 155.42,-1259.81 159.29,-1249.94 152.29,-1249.69"/>
 </g>
-<!-- module~s_whm_util -->
+<!-- module~s_eucl -->
 <g id="module~~lambda_function~~UsedByGraph_node49" class="node">
-<title>module~s_whm_util</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node49"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="328.5,-570 262.5,-570 262.5,-546 328.5,-546 328.5,-570"/>
-<text text-anchor="middle" x="295.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
+<title>module~s_eucl</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node49"><a xlink:href=".././module/s_eucl.html" xlink:title="s_eucl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-612 268.5,-612 268.5,-588 322.5,-588 322.5,-612"/>
+<text text-anchor="middle" x="295.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_eucl</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_util&#45;&gt;module~swiftest -->
+<!-- module~s_eucl&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge48" class="edge">
-<title>module~s_whm_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.42,-558.49C246.36,-560.52 228.03,-565.88 217,-579 174.26,-629.83 158.59,-1117.73 155.57,-1228.64"/>
-<polygon fill="#000000" stroke="#000000" points="152.06,-1228.88 155.3,-1238.97 159.06,-1229.06 152.06,-1228.88"/>
+<title>module~s_eucl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.19,-599.9C250.95,-601.34 229.4,-606.29 217,-621 175.6,-670.09 158.95,-1140.87 155.64,-1249.65"/>
+<polygon fill="#000000" stroke="#000000" points="152.14,-1249.7 155.34,-1259.8 159.13,-1249.91 152.14,-1249.7"/>
 </g>
-<!-- module~s_util_copy -->
+<!-- module~s_util_append -->
 <g id="module~~lambda_function~~UsedByGraph_node50" class="node">
-<title>module~s_util_copy</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node50"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="328.5,-528 262.5,-528 262.5,-504 328.5,-504 328.5,-528"/>
-<text text-anchor="middle" x="295.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
+<title>module~s_util_append</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node50"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-570 256,-570 256,-546 335,-546 335,-570"/>
+<text text-anchor="middle" x="295.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_copy&#45;&gt;module~swiftest -->
+<!-- module~s_util_append&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge49" class="edge">
-<title>module~s_util_copy&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.39,-516.46C246.32,-518.48 228,-523.85 217,-537 171.57,-591.33 157.91,-1113.73 155.44,-1228.7"/>
-<polygon fill="#000000" stroke="#000000" points="151.94,-1228.72 155.23,-1238.79 158.94,-1228.87 151.94,-1228.72"/>
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.64,-559.52C241.41,-562.13 226.49,-567.68 217,-579 172.92,-631.58 158.25,-1136.66 155.5,-1249.65"/>
+<polygon fill="#000000" stroke="#000000" points="152,-1249.79 155.26,-1259.87 159,-1249.96 152,-1249.79"/>
 </g>
-<!-- proc~ge_wpp -->
+<!-- module~s_fragmentation -->
 <g id="module~~lambda_function~~UsedByGraph_node51" class="node">
-<title>proc~ge_wpp</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node51"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="322.5,-486 268.5,-486 268.5,-462 322.5,-462 322.5,-486"/>
-<text text-anchor="middle" x="295.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
+<title>module~s_fragmentation</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node51"><a xlink:href=".././module/s_fragmentation.html" xlink:title="s_fragmentation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="340.5,-528 250.5,-528 250.5,-504 340.5,-504 340.5,-528"/>
+<text text-anchor="middle" x="295.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fragmentation</text>
 </a>
 </g>
 </g>
-<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge50" class="edge">
-<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.5,-473.82C251.18,-475.19 229.39,-480.11 217,-495 168.86,-552.86 157.25,-1110.34 155.32,-1228.9"/>
-<polygon fill="#000000" stroke="#000000" points="151.82,-1228.92 155.17,-1238.97 158.82,-1229.03 151.82,-1228.92"/>
+<title>module~s_fragmentation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M250.35,-518.59C237.8,-521.55 225.3,-527.04 217,-537 170.27,-593.03 157.6,-1131.85 155.39,-1249.42"/>
+<polygon fill="#000000" stroke="#000000" points="151.88,-1249.67 155.2,-1259.73 158.88,-1249.79 151.88,-1249.67"/>
 </g>
-<!-- module~s_rmvs_chk -->
+<!-- module~s_user_kick_getacch -->
 <g id="module~~lambda_function~~UsedByGraph_node52" class="node">
-<title>module~s_rmvs_chk</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node52"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-444 260.5,-444 260.5,-420 330.5,-420 330.5,-444"/>
-<text text-anchor="middle" x="295.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node52"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="351.5,-486 239.5,-486 239.5,-462 351.5,-462 351.5,-486"/>
+<text text-anchor="middle" x="295.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge51" class="edge">
-<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.37,-432.69C244.78,-434.88 227.49,-440.33 217,-453 166.17,-514.35 156.65,-1106.23 155.22,-1228.84"/>
-<polygon fill="#000000" stroke="#000000" points="151.72,-1228.88 155.11,-1238.92 158.72,-1228.96 151.72,-1228.88"/>
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M239.12,-479.98C230.63,-483.24 222.79,-488.03 217,-495 167.54,-554.57 156.96,-1128.65 155.27,-1249.67"/>
+<polygon fill="#000000" stroke="#000000" points="151.77,-1249.89 155.14,-1259.94 158.77,-1249.99 151.77,-1249.89"/>
 </g>
-<!-- module~s_kick -->
+<!-- module~s_symba_fragmentation -->
 <g id="module~~lambda_function~~UsedByGraph_node53" class="node">
-<title>module~s_kick</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node53"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-402 268.5,-402 268.5,-378 322.5,-378 322.5,-402"/>
-<text text-anchor="middle" x="295.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
+<title>module~s_symba_fragmentation</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node53"><a xlink:href=".././module/s_symba_fragmentation.html" xlink:title="s_symba_fragmentation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="359,-444 232,-444 232,-420 359,-420 359,-444"/>
+<text text-anchor="middle" x="295.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_fragmentation</text>
 </a>
 </g>
 </g>
-<!-- module~s_kick&#45;&gt;module~swiftest -->
+<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge52" class="edge">
-<title>module~s_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.46,-389.78C251.12,-391.15 229.33,-396.05 217,-411 163.47,-475.87 156.08,-1102.52 155.13,-1228.87"/>
-<polygon fill="#000000" stroke="#000000" points="151.63,-1228.89 155.06,-1238.91 158.63,-1228.93 151.63,-1228.89"/>
+<title>module~s_symba_fragmentation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M231.86,-441.23C226.21,-444.21 221.09,-448.06 217,-453 164.85,-516.08 156.37,-1124.71 155.18,-1249.65"/>
+<polygon fill="#000000" stroke="#000000" points="151.68,-1249.88 155.09,-1259.91 158.68,-1249.94 151.68,-1249.88"/>
 </g>
-<!-- module~s_rmvs_setup -->
+<!-- module~s_whm_step -->
 <g id="module~~lambda_function~~UsedByGraph_node54" class="node">
-<title>module~s_rmvs_setup</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node54"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-360 256,-360 256,-336 335,-336 335,-360"/>
-<text text-anchor="middle" x="295.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
+<title>module~s_whm_step</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node54"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="332,-402 259,-402 259,-378 332,-378 332,-402"/>
+<text text-anchor="middle" x="295.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
+<!-- module~s_whm_step&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge53" class="edge">
-<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.93,-349.35C241.57,-351.92 226.47,-357.48 217,-369 160.81,-437.34 155.54,-1097.89 155.05,-1228.59"/>
-<polygon fill="#000000" stroke="#000000" points="151.55,-1228.94 155.02,-1238.95 158.55,-1228.96 151.55,-1228.94"/>
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.74,-390.89C243.58,-393.23 227.1,-398.73 217,-411 162.14,-477.6 155.81,-1121.17 155.09,-1249.72"/>
+<polygon fill="#000000" stroke="#000000" points="151.59,-1249.91 155.04,-1259.92 158.59,-1249.94 151.59,-1249.91"/>
 </g>
-<!-- module~whm_drift -->
+<!-- module~s_helio_coord -->
 <g id="module~~lambda_function~~UsedByGraph_node55" class="node">
-<title>module~whm_drift</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node55"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="325,-318 266,-318 266,-294 325,-294 325,-318"/>
-<text text-anchor="middle" x="295.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
+<title>module~s_helio_coord</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node55"><a xlink:href=".././module/s_helio_coord.html" xlink:title="s_helio_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-360 256,-360 256,-336 335,-336 335,-360"/>
+<text text-anchor="middle" x="295.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_coord</text>
 </a>
 </g>
 </g>
-<!-- module~whm_drift&#45;&gt;module~swiftest -->
+<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge54" class="edge">
-<title>module~whm_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M265.78,-305.99C248.9,-307.63 228.66,-312.77 217,-327 158.14,-398.82 155.02,-1093.47 154.97,-1228.37"/>
-<polygon fill="#000000" stroke="#000000" points="151.47,-1228.71 154.98,-1238.71 158.47,-1228.71 151.47,-1228.71"/>
+<title>module~s_helio_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.92,-349.34C241.56,-351.91 226.46,-357.47 217,-369 159.42,-439.15 155.27,-1118.04 155.01,-1249.88"/>
+<polygon fill="#000000" stroke="#000000" points="151.51,-1249.98 155,-1259.99 158.51,-1249.99 151.51,-1249.98"/>
 </g>
-<!-- module~s_symba_setup -->
+<!-- module~s_util_peri -->
 <g id="module~~lambda_function~~UsedByGraph_node56" class="node">
-<title>module~s_symba_setup</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node56"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="339.5,-276 251.5,-276 251.5,-252 339.5,-252 339.5,-276"/>
-<text text-anchor="middle" x="295.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
+<title>module~s_util_peri</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node56"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-318 265,-318 265,-294 326,-294 326,-318"/>
+<text text-anchor="middle" x="295.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge27" class="edge">
-<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M251.45,-266.21C238.48,-269.09 225.47,-274.64 217,-285 155.39,-360.39 154.52,-1090.85 154.9,-1228.64"/>
-<polygon fill="#000000" stroke="#000000" points="151.41,-1228.84 154.94,-1238.83 158.41,-1228.82 151.41,-1228.84"/>
+<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge55" class="edge">
+<title>module~s_util_peri&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M265,-306.06C248.28,-307.78 228.48,-312.98 217,-327 156.74,-400.64 154.76,-1113.82 154.94,-1249.7"/>
+<polygon fill="#000000" stroke="#000000" points="151.44,-1249.77 154.96,-1259.76 158.44,-1249.76 151.44,-1249.77"/>
 </g>
-<!-- module~s_symba_discard -->
+<!-- module~s_rmvs_setup -->
 <g id="module~~lambda_function~~UsedByGraph_node57" class="node">
-<title>module~s_symba_discard</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node57"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="343.5,-234 247.5,-234 247.5,-210 343.5,-210 343.5,-234"/>
-<text text-anchor="middle" x="295.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
+<title>module~s_rmvs_setup</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node57"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-276 256,-276 256,-252 335,-252 335,-276"/>
+<text text-anchor="middle" x="295.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge15" class="edge">
-<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.38,-225.19C235.8,-228.29 224.57,-233.71 217,-243 152.69,-321.9 154.04,-1087.1 154.84,-1228.57"/>
-<polygon fill="#000000" stroke="#000000" points="151.34,-1229.01 154.91,-1238.99 158.34,-1228.97 151.34,-1229.01"/>
+<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge56" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.88,-265.32C241.52,-267.88 226.43,-273.44 217,-285 154.05,-362.14 154.27,-1109.94 154.87,-1249.6"/>
+<polygon fill="#000000" stroke="#000000" points="151.37,-1249.92 154.92,-1259.91 158.37,-1249.89 151.37,-1249.92"/>
 </g>
-<!-- module~s_gr -->
+<!-- module~s_whm_setup -->
 <g id="module~~lambda_function~~UsedByGraph_node58" class="node">
-<title>module~s_gr</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node58"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-192 268.5,-192 268.5,-168 322.5,-168 322.5,-192"/>
-<text text-anchor="middle" x="295.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
+<title>module~s_whm_setup</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node58"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="335,-234 256,-234 256,-210 335,-210 335,-234"/>
+<text text-anchor="middle" x="295.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_gr&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge55" class="edge">
-<title>module~s_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.39,-179.73C251.02,-181.07 229.22,-185.96 217,-201 149.99,-283.43 153.57,-1083.56 154.78,-1228.53"/>
-<polygon fill="#000000" stroke="#000000" points="151.28,-1228.88 154.87,-1238.84 158.28,-1228.81 151.28,-1228.88"/>
+<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge57" class="edge">
+<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.87,-223.3C241.5,-225.87 226.42,-231.43 217,-243 151.34,-323.66 153.8,-1106.26 154.81,-1249.53"/>
+<polygon fill="#000000" stroke="#000000" points="151.31,-1249.77 154.89,-1259.74 158.31,-1249.72 151.31,-1249.77"/>
 </g>
-<!-- module~s_rmvs_step -->
+<!-- module~s_discard -->
 <g id="module~~lambda_function~~UsedByGraph_node59" class="node">
-<title>module~s_rmvs_step</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node59"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="332,-150 259,-150 259,-126 332,-126 332,-150"/>
-<text text-anchor="middle" x="295.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
+<title>module~s_discard</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node59"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-192 266.5,-192 266.5,-168 324.5,-168 324.5,-192"/>
+<text text-anchor="middle" x="295.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
-<g id="module~~lambda_function~~UsedByGraph_edge32" class="edge">
-<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.66,-138.82C243.47,-141.14 227.01,-146.66 217,-159 182.06,-202.08 159.25,-1076.27 155.54,-1228.49"/>
-<polygon fill="#000000" stroke="#000000" points="152.03,-1228.81 155.28,-1238.89 159.03,-1228.98 152.03,-1228.81"/>
+<!-- module~s_discard&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge58" class="edge">
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.5,-179.88C249.46,-181.42 228.77,-186.5 217,-201 148.63,-285.2 153.35,-1102.92 154.75,-1249.55"/>
+<polygon fill="#000000" stroke="#000000" points="151.26,-1249.99 154.86,-1259.96 158.26,-1249.92 151.26,-1249.99"/>
 </g>
-<!-- module~s_symba_encounter_check -->
+<!-- module~s_symba_step -->
 <g id="module~~lambda_function~~UsedByGraph_node60" class="node">
-<title>module~s_symba_encounter_check</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node60"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="367,-108 224,-108 224,-84 367,-84 367,-108"/>
-<text text-anchor="middle" x="295.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
+<title>module~s_symba_step</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node60"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="336.5,-150 254.5,-150 254.5,-126 336.5,-126 336.5,-150"/>
+<text text-anchor="middle" x="295.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<!-- module~s_symba_step&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge59" class="edge">
-<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M226.78,-108.13C223.12,-110.6 219.81,-113.53 217,-117 180.7,-161.86 158.94,-1073.27 155.48,-1228.59"/>
-<polygon fill="#000000" stroke="#000000" points="151.98,-1228.73 155.26,-1238.8 158.98,-1228.88 151.98,-1228.73"/>
+<title>module~s_symba_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.23,-139.58C240.35,-142.27 226.04,-147.84 217,-159 181.38,-202.96 159.09,-1095.69 155.51,-1249.52"/>
+<polygon fill="#000000" stroke="#000000" points="152.01,-1249.58 155.28,-1259.66 159.01,-1249.74 152.01,-1249.58"/>
 </g>
-<!-- module~s_symba_util -->
+<!-- module~s_helio_step -->
 <g id="module~~lambda_function~~UsedByGraph_node61" class="node">
-<title>module~s_symba_util</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node61"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="333,-66 258,-66 258,-42 333,-42 333,-66"/>
-<text text-anchor="middle" x="295.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
+<title>module~s_helio_step</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node61"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="332,-108 259,-108 259,-84 332,-84 332,-108"/>
+<text text-anchor="middle" x="295.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_util&#45;&gt;module~swiftest -->
+<!-- module~s_helio_step&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge60" class="edge">
-<title>module~s_symba_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.83,-54.93C242.87,-57.32 226.81,-62.85 217,-75 179.32,-121.64 158.63,-1070.56 155.44,-1228.74"/>
-<polygon fill="#000000" stroke="#000000" points="151.94,-1228.67 155.24,-1238.74 158.94,-1228.81 151.94,-1228.67"/>
+<title>module~s_helio_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.64,-96.81C243.45,-99.13 226.99,-104.64 217,-117 180.01,-162.75 158.78,-1092.91 155.46,-1249.67"/>
+<polygon fill="#000000" stroke="#000000" points="151.96,-1249.88 155.24,-1259.95 158.95,-1250.03 151.96,-1249.88"/>
 </g>
-<!-- module~s_symba_step -->
+<!-- module~s_util_exit -->
 <g id="module~~lambda_function~~UsedByGraph_node62" class="node">
-<title>module~s_symba_step</title>
-<g id="a_module~~lambda_function~~UsedByGraph_node62"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="336.5,-24 254.5,-24 254.5,0 336.5,0 336.5,-24"/>
-<text text-anchor="middle" x="295.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
+<title>module~s_util_exit</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node62"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="325.5,-66 265.5,-66 265.5,-42 325.5,-42 325.5,-66"/>
+<text text-anchor="middle" x="295.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~swiftest -->
+<!-- module~s_util_exit&#45;&gt;module~swiftest -->
 <g id="module~~lambda_function~~UsedByGraph_edge61" class="edge">
-<title>module~s_symba_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.2,-13.56C240.32,-16.24 226.01,-21.82 217,-33 177.99,-81.39 158.37,-1066.17 155.4,-1228.45"/>
-<polygon fill="#000000" stroke="#000000" points="151.9,-1228.63 155.21,-1238.69 158.9,-1228.76 151.9,-1228.63"/>
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M265.31,-53.97C248.49,-55.62 228.47,-60.79 217,-75 178.64,-122.54 158.48,-1090.35 155.41,-1249.84"/>
+<polygon fill="#000000" stroke="#000000" points="151.91,-1249.84 155.22,-1259.9 158.91,-1249.97 151.91,-1249.84"/>
+</g>
+<!-- module~s_whm_gr -->
+<g id="module~~lambda_function~~UsedByGraph_node63" class="node">
+<title>module~s_whm_gr</title>
+<g id="a_module~~lambda_function~~UsedByGraph_node63"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="326.5,-24 264.5,-24 264.5,0 326.5,0 326.5,-24"/>
+<text text-anchor="middle" x="295.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
+</a>
+</g>
+</g>
+<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
+<g id="module~~lambda_function~~UsedByGraph_edge62" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.14,-12.08C247.57,-13.85 228.19,-19.1 217,-33 177.29,-82.29 158.23,-1086.06 155.38,-1249.57"/>
+<polygon fill="#000000" stroke="#000000" points="151.87,-1249.81 155.2,-1259.87 158.87,-1249.93 151.87,-1249.81"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/rmvs_classes.html b/docs/module/rmvs_classes.html
index ab17f82be..8874ecf23 100644
--- a/docs/module/rmvs_classes.html
+++ b/docs/module/rmvs_classes.html
@@ -333,67 +333,45 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~rmvs_classes~~UsesGraph Pages: 1 -->
-<svg id="modulermvs_classesUsesGraph" width="569pt" height="65pt"
- viewBox="0.00 0.00 569.00 65.04" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~rmvs_classes~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 61.04)">
+<svg id="modulermvs_classesUsesGraph" width="569pt" height="60pt"
+ viewBox="0.00 0.00 569.00 60.05" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~rmvs_classes~~UsesGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 56.05)">
 <title>module~~rmvs_classes~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-61.04 565,-61.04 565,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-56.05 565,-56.05 565,4 -4,4"/>
 <!-- module~rmvs_classes -->
 <g id="module~~rmvs_classes~~UsesGraph_node1" class="node">
 <title>module~rmvs_classes</title>
-<polygon fill="none" stroke="black" points="561,-24 484,-24 484,0 561,0 561,-24"/>
-<text text-anchor="middle" x="522.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_classes</text>
-</g>
-<!-- module~whm_classes -->
-<g id="module~~rmvs_classes~~UsesGraph_node2" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~rmvs_classes~~UsesGraph_node2"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="448,-44 372,-44 372,-20 448,-20 448,-44"/>
-<text text-anchor="middle" x="410" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
-</a>
-</g>
-</g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~rmvs_classes~~UsesGraph_edge1" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.78,-18.83C475.51,-20.32 466.66,-21.93 458.08,-23.48"/>
-<polygon fill="#000000" stroke="#000000" points="457.39,-20.05 448.17,-25.27 458.64,-26.93 457.39,-20.05"/>
+<polygon fill="none" stroke="black" points="561,-44 484,-44 484,-20 561,-20 561,-44"/>
+<text text-anchor="middle" x="522.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_classes</text>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~rmvs_classes~~UsesGraph_node3" class="node">
+<g id="module~~rmvs_classes~~UsesGraph_node2" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~rmvs_classes~~UsesGraph_node3"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<g id="a_module~~rmvs_classes~~UsesGraph_node2"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
 <polygon fill="#337ab7" stroke="#337ab7" points="211,-44 123,-44 123,-20 211,-20 211,-44"/>
 <text text-anchor="middle" x="167" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~rmvs_classes~~UsesGraph_edge2" class="edge">
+<g id="module~~rmvs_classes~~UsesGraph_edge1" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.56,-8.68C430.41,-4.76 330.88,-0.04 247,-11 236.55,-12.37 225.51,-14.71 215.11,-17.34"/>
-<polygon fill="#000000" stroke="#000000" points="214.14,-13.98 205.37,-19.94 215.94,-20.74 214.14,-13.98"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~rmvs_classes~~UsesGraph_edge4" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.53,-44.06C362.49,-47.7 348.8,-51.2 336,-53 296.83,-58.52 286.22,-58.12 247,-53 236.55,-51.63 225.51,-49.29 215.11,-46.66"/>
-<polygon fill="#000000" stroke="#000000" points="215.94,-43.26 205.37,-44.06 214.14,-50.02 215.94,-43.26"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.9,-37.22C438.6,-43.05 360.14,-51.73 292.5,-52"/>
 </g>
-<!-- module~swiftest_classes -->
-<g id="module~~rmvs_classes~~UsesGraph_node4" class="node">
-<title>module~swiftest_classes</title>
-<g id="a_module~~rmvs_classes~~UsesGraph_node4"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="336,-44 247,-44 247,-20 336,-20 336,-44"/>
-<text text-anchor="middle" x="291.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<!-- module~whm_classes -->
+<g id="module~~rmvs_classes~~UsesGraph_node3" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~rmvs_classes~~UsesGraph_node3"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="448,-24 372,-24 372,0 448,0 448,-24"/>
+<text text-anchor="middle" x="410" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~rmvs_classes~~UsesGraph_edge3" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.82,-32C363.68,-32 354.91,-32 346.27,-32"/>
-<polygon fill="#000000" stroke="#000000" points="346.24,-28.5 336.24,-32 346.24,-35.5 346.24,-28.5"/>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~rmvs_classes~~UsesGraph_edge2" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.78,-25.17C475.51,-23.68 466.66,-22.07 458.08,-20.52"/>
+<polygon fill="#000000" stroke="#000000" points="458.64,-17.07 448.17,-18.73 457.39,-23.95 458.64,-17.07"/>
 </g>
 <!-- iso_fortran_env -->
 <g id="module~~rmvs_classes~~UsesGraph_node5" class="node">
@@ -405,16 +383,38 @@ <h3 class="panel-title">Uses</h3>
 </g>
 </g>
 <!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~rmvs_classes~~UsesGraph_edge5" class="edge">
+<g id="module~~rmvs_classes~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-32C114.58,-32 105.86,-32 97.36,-32"/>
 <polygon fill="#000000" stroke="#000000" points="97.13,-28.5 87.13,-32 97.13,-35.5 97.13,-28.5"/>
 </g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~rmvs_classes~~UsesGraph_edge4" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M387.43,-24.16C364.59,-35.88 327.14,-51.86 292.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.5,-52C267.53,-52.09 242.44,-48.64 220.99,-44.58"/>
+<polygon fill="#000000" stroke="#000000" points="221.58,-41.13 211.09,-42.61 220.22,-47.99 221.58,-41.13"/>
+</g>
+<!-- module~swiftest_classes -->
+<g id="module~~rmvs_classes~~UsesGraph_node4" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~rmvs_classes~~UsesGraph_node4"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="336,-24 247,-24 247,0 336,0 336,-24"/>
+<text text-anchor="middle" x="291.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
+</g>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~rmvs_classes~~UsesGraph_edge5" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.82,-12C363.68,-12 354.91,-12 346.27,-12"/>
+<polygon fill="#000000" stroke="#000000" points="346.24,-8.5 336.24,-12 346.24,-15.5 346.24,-8.5"/>
+</g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~rmvs_classes~~UsesGraph_edge6" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.97,-32C238.75,-32 230.07,-32 221.59,-32"/>
-<polygon fill="#000000" stroke="#000000" points="221.39,-28.5 211.39,-32 221.39,-35.5 221.39,-28.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.97,-19.11C238.66,-20.46 229.88,-21.9 221.31,-23.3"/>
+<polygon fill="#000000" stroke="#000000" points="220.7,-19.85 211.39,-24.92 221.83,-26.76 220.7,-19.85"/>
 </g>
 </g>
 </svg>
@@ -517,1037 +517,1051 @@ <h3 class="panel-title">Used by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~rmvs_classes~~UsedByGraph Pages: 1 -->
-<svg id="modulermvs_classesUsedByGraph" width="489pt" height="2510pt"
- viewBox="0.00 0.00 489.00 2510.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~rmvs_classes~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2506)">
+<svg id="modulermvs_classesUsedByGraph" width="489pt" height="2552pt"
+ viewBox="0.00 0.00 489.00 2552.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~rmvs_classes~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2548)">
 <title>module~~rmvs_classes~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2506 485,-2506 485,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2548 485,-2548 485,4 -4,4"/>
 <!-- module~rmvs_classes -->
 <g id="module~~rmvs_classes~~UsedByGraph_node1" class="node">
 <title>module~rmvs_classes</title>
-<polygon fill="none" stroke="black" points="77,-1745 0,-1745 0,-1721 77,-1721 77,-1745"/>
-<text text-anchor="middle" x="38.5" y="-1730.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_classes</text>
+<polygon fill="none" stroke="black" points="77,-1893 0,-1893 0,-1869 77,-1869 77,-1893"/>
+<text text-anchor="middle" x="38.5" y="-1878.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_classes</text>
 </g>
-<!-- module~s_rmvs_discard -->
+<!-- module~s_rmvs_util -->
 <g id="module~~rmvs_classes~~UsedByGraph_node2" class="node">
-<title>module~s_rmvs_discard</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node2"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="446.5,-2502 358.5,-2502 358.5,-2478 446.5,-2478 446.5,-2502"/>
-<text text-anchor="middle" x="402.5" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
+<title>module~s_rmvs_util</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node2"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="436,-2544 369,-2544 369,-2520 436,-2520 436,-2544"/>
+<text text-anchor="middle" x="402.5" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_discard&#45;&gt;module~rmvs_classes -->
+<!-- module~s_rmvs_util&#45;&gt;module~rmvs_classes -->
 <g id="module~~rmvs_classes~~UsedByGraph_edge3" class="edge">
-<title>module~s_rmvs_discard&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M358.48,-2485.29C346.27,-2482.22 333.68,-2477.2 324,-2469 250.84,-2407.07 270.27,-2361.73 234,-2273 152.95,-2074.76 70.9,-1828.76 46.65,-1754.93"/>
-<polygon fill="#000000" stroke="#000000" points="49.94,-1753.73 43.5,-1745.31 43.29,-1755.9 49.94,-1753.73"/>
+<title>module~s_rmvs_util&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M368.7,-2527.1C354.29,-2523.97 337.6,-2518.95 324,-2511 290.08,-2491.17 301.18,-2445.11 262,-2448"/>
 </g>
 <!-- module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_node3" class="node">
+<g id="module~~rmvs_classes~~UsedByGraph_node8" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="288,-1242 234,-1242 234,-1218 288,-1218 288,-1242"/>
-<text text-anchor="middle" x="261" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node8"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="288,-1305 234,-1305 234,-1281 288,-1281 288,-1305"/>
+<text text-anchor="middle" x="261" y="-1290.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge24" class="edge">
-<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M358.36,-2487.86C345.39,-2484.98 332.39,-2479.42 324,-2469 284.29,-2419.71 265.23,-1415.94 262.38,-1252.43"/>
-<polygon fill="#000000" stroke="#000000" points="265.87,-1252.07 262.2,-1242.13 258.87,-1252.19 265.87,-1252.07"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge2" class="edge">
-<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.17,-1217.66C261.72,-1096.93 270.56,-131.28 156.5,-138"/>
+<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge49" class="edge">
+<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.8,-2531.64C352.78,-2529.63 334.67,-2524.24 324,-2511 284.99,-2462.61 265.37,-1477.83 262.4,-1315.55"/>
+<polygon fill="#000000" stroke="#000000" points="265.9,-1315.24 262.21,-1305.31 258.9,-1315.37 265.9,-1315.24"/>
 </g>
-<!-- module~symba_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_node4" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node4"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="198,-1745 113,-1745 113,-1721 198,-1721 198,-1745"/>
-<text text-anchor="middle" x="155.5" y="-1730.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<!-- module~s_rmvs_kick -->
+<g id="module~~rmvs_classes~~UsedByGraph_node3" class="node">
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node3"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="438,-2502 367,-2502 367,-2478 438,-2478 438,-2502"/>
+<text text-anchor="middle" x="402.5" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge69" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.44,-1242.43C243.74,-1309.03 178.99,-1623.7 161.09,-1710.68"/>
-<polygon fill="#000000" stroke="#000000" points="157.65,-1710.05 159.06,-1720.55 164.51,-1711.46 157.65,-1710.05"/>
+<!-- module~s_rmvs_kick&#45;&gt;module~rmvs_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge4" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M366.65,-2481.05C353.26,-2477.48 337.87,-2473.22 324,-2469 296.17,-2460.52 291.01,-2445.86 262,-2448"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge1" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M112.98,-1733C104.66,-1733 95.85,-1733 87.33,-1733"/>
-<polygon fill="#000000" stroke="#000000" points="87.14,-1729.5 77.14,-1733 87.14,-1736.5 87.14,-1729.5"/>
+<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge12" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.83,-2489.37C351.32,-2487.16 334.25,-2481.69 324,-2469 286.32,-2422.36 265.63,-1473.44 262.44,-1315.26"/>
+<polygon fill="#000000" stroke="#000000" points="265.94,-1315.19 262.24,-1305.26 258.94,-1315.33 265.94,-1315.19"/>
 </g>
 <!-- module~s_rmvs_chk -->
-<g id="module~~rmvs_classes~~UsedByGraph_node5" class="node">
+<g id="module~~rmvs_classes~~UsedByGraph_node4" class="node">
 <title>module~s_rmvs_chk</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node5"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-192 367.5,-192 367.5,-168 437.5,-168 437.5,-192"/>
-<text text-anchor="middle" x="402.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node4"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-2460 367.5,-2460 367.5,-2436 437.5,-2436 437.5,-2460"/>
+<text text-anchor="middle" x="402.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
 </a>
 </g>
 </g>
 <!-- module~s_rmvs_chk&#45;&gt;module~rmvs_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge4" class="edge">
+<g id="module~~rmvs_classes~~UsedByGraph_edge5" class="edge">
 <title>module~s_rmvs_chk&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M367.42,-171.25C353.85,-167.64 338.14,-163.3 324,-159 296.17,-150.52 290.79,-133.82 262,-138"/>
+<path fill="none" stroke="#000000" d="M367.34,-2446.6C339.06,-2445.78 297.87,-2445.35 262,-2448"/>
 </g>
 <!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge58" class="edge">
+<g id="module~~rmvs_classes~~UsedByGraph_edge13" class="edge">
 <title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.27,-180.61C351.66,-182.78 334.38,-188.24 324,-201 258.34,-281.66 260.8,-1064.26 261.81,-1207.53"/>
-<polygon fill="#000000" stroke="#000000" points="258.31,-1207.77 261.89,-1217.74 265.31,-1207.72 258.31,-1207.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.24,-2447.42C351.62,-2445.25 334.35,-2439.79 324,-2427 287.7,-2382.14 265.94,-1470.73 262.48,-1315.41"/>
+<polygon fill="#000000" stroke="#000000" points="265.98,-1315.12 262.26,-1305.2 258.98,-1315.27 265.98,-1315.12"/>
 </g>
 <!-- module~s_rmvs_setup -->
-<g id="module~~rmvs_classes~~UsedByGraph_node6" class="node">
+<g id="module~~rmvs_classes~~UsedByGraph_node5" class="node">
 <title>module~s_rmvs_setup</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node6"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-150 363,-150 363,-126 442,-126 442,-150"/>
-<text text-anchor="middle" x="402.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node5"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-2418 363,-2418 363,-2394 442,-2394 442,-2418"/>
+<text text-anchor="middle" x="402.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
 </a>
 </g>
 </g>
 <!-- module~s_rmvs_setup&#45;&gt;module~rmvs_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge5" class="edge">
+<g id="module~~rmvs_classes~~UsedByGraph_edge6" class="edge">
 <title>module~s_rmvs_setup&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M362.8,-135.03C334.68,-133.59 295.79,-133.09 262,-138"/>
+<path fill="none" stroke="#000000" d="M362.73,-2416C350.31,-2419.34 336.54,-2423.18 324,-2427 296.17,-2435.48 291.01,-2445.86 262,-2448"/>
 </g>
 <!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge60" class="edge">
+<g id="module~~rmvs_classes~~UsedByGraph_edge63" class="edge">
 <title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.85,-139.29C348.48,-141.85 333.4,-147.42 324,-159 255.63,-243.2 260.35,-1060.92 261.75,-1207.55"/>
-<polygon fill="#000000" stroke="#000000" points="258.26,-1207.99 261.86,-1217.96 265.26,-1207.92 258.26,-1207.99"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.85,-2404.71C348.48,-2402.15 333.4,-2396.58 324,-2385 289.06,-2341.92 266.25,-1467.73 262.54,-1315.51"/>
+<polygon fill="#000000" stroke="#000000" points="266.03,-1315.02 262.28,-1305.11 259.03,-1315.19 266.03,-1315.02"/>
 </g>
-<!-- module~s_rmvs_util -->
-<g id="module~~rmvs_classes~~UsedByGraph_node7" class="node">
-<title>module~s_rmvs_util</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node7"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="436,-108 369,-108 369,-84 436,-84 436,-108"/>
-<text text-anchor="middle" x="402.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
+<!-- module~s_rmvs_discard -->
+<g id="module~~rmvs_classes~~UsedByGraph_node6" class="node">
+<title>module~s_rmvs_discard</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node6"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="446.5,-2376 358.5,-2376 358.5,-2352 446.5,-2352 446.5,-2376"/>
+<text text-anchor="middle" x="402.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_util&#45;&gt;module~rmvs_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge6" class="edge">
-<title>module~s_rmvs_util&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M368.94,-104.34C355.04,-108.03 338.67,-112.53 324,-117 296.17,-125.48 290.79,-133.82 262,-138"/>
+<!-- module~s_rmvs_discard&#45;&gt;module~rmvs_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge7" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M358.46,-2371.37C346.77,-2374.49 334.47,-2378.88 324,-2385 290.08,-2404.83 301.18,-2445.11 262,-2448"/>
 </g>
-<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge18" class="edge">
-<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.83,-96.38C352.81,-98.4 334.71,-103.79 324,-117 288.38,-160.96 266.09,-1053.69 262.51,-1207.52"/>
-<polygon fill="#000000" stroke="#000000" points="259.01,-1207.58 262.28,-1217.66 266.01,-1207.74 259.01,-1207.58"/>
+<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge21" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M358.41,-2361.81C345.45,-2358.93 332.44,-2353.38 324,-2343 256.99,-2260.57 260.57,-1460.44 261.78,-1315.47"/>
+<polygon fill="#000000" stroke="#000000" points="265.28,-1315.19 261.87,-1305.16 258.28,-1315.12 265.28,-1315.19"/>
 </g>
 <!-- module~s_rmvs_step -->
-<g id="module~~rmvs_classes~~UsedByGraph_node8" class="node">
+<g id="module~~rmvs_classes~~UsedByGraph_node7" class="node">
 <title>module~s_rmvs_step</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node8"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="439,-66 366,-66 366,-42 439,-42 439,-66"/>
-<text text-anchor="middle" x="402.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node7"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="439,-2334 366,-2334 366,-2310 439,-2310 439,-2334"/>
+<text text-anchor="middle" x="402.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
 </a>
 </g>
 </g>
 <!-- module~s_rmvs_step&#45;&gt;module~rmvs_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge7" class="edge">
+<g id="module~~rmvs_classes~~UsedByGraph_edge8" class="edge">
 <title>module~s_rmvs_step&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M366,-59.5C352.24,-62.66 336.76,-67.54 324,-75 290.08,-94.83 300.88,-132.35 262,-138"/>
+<path fill="none" stroke="#000000" d="M365.75,-2325.79C351.64,-2328.71 335.98,-2333.88 324,-2343 280.89,-2375.84 316.05,-2444.01 262,-2448"/>
+<path fill="none" stroke="#000000" d="M260,-2448C214.12,-2451.39 202.5,-2447.48 156.5,-2448"/>
 </g>
 <!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge39" class="edge">
+<g id="module~~rmvs_classes~~UsedByGraph_edge47" class="edge">
 <title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.64,-54.81C350.45,-57.13 333.99,-62.64 324,-75 287.01,-120.75 265.78,-1050.91 262.46,-1207.67"/>
-<polygon fill="#000000" stroke="#000000" points="258.96,-1207.88 262.24,-1217.95 265.95,-1208.03 258.96,-1207.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.68,-2321.15C350.51,-2318.83 334.04,-2313.32 324,-2301 259.69,-2222.1 261.04,-1456.9 261.84,-1315.43"/>
+<polygon fill="#000000" stroke="#000000" points="265.34,-1315.03 261.91,-1305.01 258.34,-1314.99 265.34,-1315.03"/>
 </g>
-<!-- module~s_rmvs_kick -->
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge1" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.57,-1305.18C255.17,-1428.55 217.02,-2447.31 156.5,-2448"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M154.5,-2448C41.24,-2449.29 38.29,-2008.24 39.19,-1903.24"/>
+<polygon fill="#000000" stroke="#000000" points="42.69,-1903.17 39.29,-1893.14 35.69,-1903.1 42.69,-1903.17"/>
+</g>
+<!-- module~symba_classes -->
 <g id="module~~rmvs_classes~~UsedByGraph_node9" class="node">
-<title>module~s_rmvs_kick</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node9"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="438,-24 367,-24 367,0 438,0 438,-24"/>
-<text text-anchor="middle" x="402.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
+<title>module~symba_classes</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node9"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="198,-1305 113,-1305 113,-1281 198,-1281 198,-1305"/>
+<text text-anchor="middle" x="155.5" y="-1290.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_kick&#45;&gt;module~rmvs_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge8" class="edge">
-<title>module~s_rmvs_kick&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M260,-138C214.48,-144.61 202.42,-135.3 156.5,-138"/>
-<path fill="none" stroke="#000000" d="M154.5,-138C72.05,-142.86 43.51,-1517.37 39.9,-1710.55"/>
-<polygon fill="#000000" stroke="#000000" points="36.4,-1710.6 39.72,-1720.66 43.4,-1710.73 36.4,-1710.6"/>
-<path fill="none" stroke="#000000" d="M366.92,-15.55C352.51,-18.43 336.31,-23.62 324,-33 280.89,-65.84 315.63,-130.21 262,-138"/>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge70" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M233.88,-1293C226.13,-1293 217.36,-1293 208.58,-1293"/>
+<polygon fill="#000000" stroke="#000000" points="208.32,-1289.5 198.32,-1293 208.32,-1296.5 208.32,-1289.5"/>
 </g>
-<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge32" class="edge">
-<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.83,-12.62C351.31,-14.83 334.24,-20.31 324,-33 285.64,-80.54 265.48,-1048.35 262.41,-1207.84"/>
-<polygon fill="#000000" stroke="#000000" points="258.91,-1207.84 262.22,-1217.9 265.91,-1207.97 258.91,-1207.84"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge2" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M152.15,-1305.01C137.87,-1378.01 62.73,-1762.2 43.82,-1858.9"/>
+<polygon fill="#000000" stroke="#000000" points="40.38,-1858.28 41.89,-1868.76 47.25,-1859.62 40.38,-1858.28"/>
 </g>
-<!-- module~s_obl -->
+<!-- module~s_setup -->
 <g id="module~~rmvs_classes~~UsedByGraph_node10" class="node">
-<title>module~s_obl</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node10"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-1200 375.5,-1200 375.5,-1176 429.5,-1176 429.5,-1200"/>
-<text text-anchor="middle" x="402.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
+<title>module~s_setup</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node10"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-2166 375.5,-2166 375.5,-2142 429.5,-2142 429.5,-2166"/>
+<text text-anchor="middle" x="402.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_obl&#45;&gt;module~swiftest -->
+<!-- module~s_setup&#45;&gt;module~swiftest -->
 <g id="module~~rmvs_classes~~UsedByGraph_edge9" class="edge">
-<title>module~s_obl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.2,-1194.69C360.14,-1198.63 340.94,-1203.84 324,-1209 315.48,-1211.59 306.37,-1214.57 297.83,-1217.44"/>
-<polygon fill="#000000" stroke="#000000" points="296.47,-1214.21 288.13,-1220.75 298.72,-1220.84 296.47,-1214.21"/>
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.46,-2154.22C358.12,-2152.85 336.33,-2147.95 324,-2133 270.47,-2068.13 263.08,-1441.48 262.13,-1315.13"/>
+<polygon fill="#000000" stroke="#000000" points="265.63,-1315.07 262.06,-1305.09 258.63,-1315.11 265.63,-1315.07"/>
 </g>
-<!-- module~s_util_solve -->
+<!-- module~drift_implementation -->
 <g id="module~~rmvs_classes~~UsedByGraph_node11" class="node">
-<title>module~s_util_solve</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node11"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-1158 368.5,-1158 368.5,-1134 436.5,-1134 436.5,-1158"/>
-<text text-anchor="middle" x="402.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
+<title>module~drift_implementation</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node11"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="457,-2124 348,-2124 348,-2100 457,-2100 457,-2124"/>
+<text text-anchor="middle" x="402.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<!-- module~drift_implementation&#45;&gt;module~swiftest -->
 <g id="module~~rmvs_classes~~UsedByGraph_edge10" class="edge">
-<title>module~s_util_solve&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.32,-1150.98C354,-1154.12 337.48,-1159.12 324,-1167 305.35,-1177.9 288.46,-1195.87 277.04,-1209.83"/>
-<polygon fill="#000000" stroke="#000000" points="274.11,-1207.89 270.66,-1217.9 279.61,-1212.22 274.11,-1207.89"/>
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M347.68,-2106.61C338.6,-2103.35 330.14,-2098.41 324,-2091 273.17,-2029.65 263.65,-1437.77 262.22,-1315.16"/>
+<polygon fill="#000000" stroke="#000000" points="265.72,-1315.04 262.11,-1305.08 258.72,-1315.12 265.72,-1315.04"/>
 </g>
-<!-- module~s_util_spill -->
+<!-- module~s_symba_encounter_check -->
 <g id="module~~rmvs_classes~~UsedByGraph_node12" class="node">
-<title>module~s_util_spill</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node12"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="433,-1116 372,-1116 372,-1092 433,-1092 433,-1116"/>
-<text text-anchor="middle" x="402.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
+<title>module~s_symba_encounter_check</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node12"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="474,-402 331,-402 331,-378 474,-378 474,-402"/>
+<text text-anchor="middle" x="402.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
 <g id="module~~rmvs_classes~~UsedByGraph_edge11" class="edge">
-<title>module~s_util_spill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.9,-1106.64C356.36,-1109.27 337.75,-1114.53 324,-1125 295.98,-1146.34 278.19,-1184.3 269.17,-1208.25"/>
-<polygon fill="#000000" stroke="#000000" points="265.81,-1207.27 265.74,-1217.87 272.4,-1209.63 265.81,-1207.27"/>
+<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M333.84,-402.18C330.17,-404.64 326.83,-407.55 324,-411 267.81,-479.34 262.54,-1139.89 262.05,-1270.59"/>
+<polygon fill="#000000" stroke="#000000" points="258.55,-1270.94 262.02,-1280.95 265.55,-1270.96 258.55,-1270.94"/>
 </g>
-<!-- module~s_helio_kick -->
+<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge74" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M337.29,-377.83C332.5,-375.4 327.99,-372.49 324,-369 270.61,-322.34 310.89,-170.64 262,-222"/>
+</g>
+<!-- module~s_util_get_energy_momentum -->
 <g id="module~~rmvs_classes~~UsedByGraph_node13" class="node">
-<title>module~s_helio_kick</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node13"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-1074 367.5,-1074 367.5,-1050 437.5,-1050 437.5,-1074"/>
-<text text-anchor="middle" x="402.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node13"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="481,-2082 324,-2082 324,-2058 481,-2058 481,-2082"/>
+<text text-anchor="middle" x="402.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge12" class="edge">
-<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.46,-1064.56C352.64,-1067.24 335.97,-1072.54 324,-1083 286.5,-1115.77 271.09,-1175.02 265.24,-1207.39"/>
-<polygon fill="#000000" stroke="#000000" points="261.73,-1207.2 263.55,-1217.63 268.63,-1208.34 261.73,-1207.2"/>
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge14" class="edge">
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M333.88,-2057.78C330.2,-2055.33 326.85,-2052.43 324,-2049 275.86,-1991.14 264.25,-1433.66 262.32,-1315.1"/>
+<polygon fill="#000000" stroke="#000000" points="265.82,-1314.97 262.17,-1305.03 258.82,-1315.08 265.82,-1314.97"/>
 </g>
-<!-- module~s_util_append -->
+<!-- module~s_util_coord -->
 <g id="module~~rmvs_classes~~UsedByGraph_node14" class="node">
-<title>module~s_util_append</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node14"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-1032 363,-1032 363,-1008 442,-1008 442,-1032"/>
-<text text-anchor="middle" x="402.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
+<title>module~s_util_coord</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node14"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-2040 367.5,-2040 367.5,-2016 437.5,-2016 437.5,-2040"/>
+<text text-anchor="middle" x="402.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_append&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge13" class="edge">
-<title>module~s_util_append&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.7,-1022.95C349,-1025.79 334.42,-1031.12 324,-1041 276.48,-1086.1 265.34,-1168.15 262.76,-1207.62"/>
-<polygon fill="#000000" stroke="#000000" points="259.26,-1207.6 262.23,-1217.77 266.25,-1207.97 259.26,-1207.6"/>
+<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge15" class="edge">
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.42,-2027.27C351.84,-2025.07 334.55,-2019.62 324,-2007 278.57,-1952.67 264.91,-1430.27 262.44,-1315.3"/>
+<polygon fill="#000000" stroke="#000000" points="265.94,-1315.13 262.23,-1305.21 258.94,-1315.28 265.94,-1315.13"/>
 </g>
-<!-- module~s_discard -->
+<!-- module~s_util_set -->
 <g id="module~~rmvs_classes~~UsedByGraph_node15" class="node">
-<title>module~s_discard</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node15"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="431.5,-990 373.5,-990 373.5,-966 431.5,-966 431.5,-990"/>
-<text text-anchor="middle" x="402.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
+<title>module~s_util_set</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node15"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="431.5,-1998 373.5,-1998 373.5,-1974 431.5,-1974 431.5,-1998"/>
+<text text-anchor="middle" x="402.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
 </a>
 </g>
 </g>
-<!-- module~s_discard&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge14" class="edge">
-<title>module~s_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.34,-978.88C356.89,-980.88 336.9,-986.07 324,-999 266.29,-1056.85 260.67,-1162.25 261.15,-1207.92"/>
-<polygon fill="#000000" stroke="#000000" points="257.66,-1208.02 261.37,-1217.94 264.65,-1207.86 257.66,-1208.02"/>
+<!-- module~s_util_set&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge16" class="edge">
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.28,-1985.94C356.38,-1984.31 335.93,-1979.19 324,-1965 281.26,-1914.17 265.59,-1426.27 262.57,-1315.36"/>
+<polygon fill="#000000" stroke="#000000" points="266.06,-1314.94 262.3,-1305.03 259.06,-1315.12 266.06,-1314.94"/>
 </g>
-<!-- module~drift_implementation -->
+<!-- module~s_symba_drift -->
 <g id="module~~rmvs_classes~~UsedByGraph_node16" class="node">
-<title>module~drift_implementation</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node16"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="457,-948 348,-948 348,-924 457,-924 457,-948"/>
-<text text-anchor="middle" x="402.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
+<title>module~s_symba_drift</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node16"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-360 363,-360 363,-336 442,-336 442,-360"/>
+<text text-anchor="middle" x="402.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
 </a>
 </g>
 </g>
-<!-- module~drift_implementation&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge15" class="edge">
-<title>module~drift_implementation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M347.72,-942.42C338.86,-945.61 330.47,-950.26 324,-957 289.15,-993.32 270.1,-1149.61 264.1,-1207.94"/>
-<polygon fill="#000000" stroke="#000000" points="260.62,-1207.64 263.11,-1217.94 267.58,-1208.33 260.62,-1207.64"/>
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge17" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.91,-349.34C348.55,-351.9 333.46,-357.46 324,-369 265.14,-440.82 262.02,-1135.47 261.97,-1270.37"/>
+<polygon fill="#000000" stroke="#000000" points="258.47,-1270.71 261.98,-1280.71 265.47,-1270.71 258.47,-1270.71"/>
 </g>
-<!-- module~s_whm_gr -->
+<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge76" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M362.99,-343.61C349.63,-340.6 335.2,-335.53 324,-327 280.89,-294.16 299.37,-182.75 262,-222"/>
+</g>
+<!-- module~s_util_rescale -->
 <g id="module~~rmvs_classes~~UsedByGraph_node17" class="node">
-<title>module~s_whm_gr</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node17"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="433.5,-906 371.5,-906 371.5,-882 433.5,-882 433.5,-906"/>
-<text text-anchor="middle" x="402.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
+<title>module~s_util_rescale</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node17"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441.5,-1956 363.5,-1956 363.5,-1932 441.5,-1932 441.5,-1956"/>
+<text text-anchor="middle" x="402.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_rescale</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge63" class="edge">
-<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.49,-894.76C355.24,-896.78 336.07,-902.05 324,-915 284.03,-957.89 267.88,-1143 263.4,-1207.63"/>
-<polygon fill="#000000" stroke="#000000" points="259.88,-1207.7 262.71,-1217.91 266.87,-1208.17 259.88,-1207.7"/>
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge18" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M363.49,-1942.58C349.04,-1940.03 333.72,-1934.49 324,-1923 283.94,-1875.64 266.32,-1421.8 262.71,-1315.29"/>
+<polygon fill="#000000" stroke="#000000" points="266.2,-1314.95 262.37,-1305.07 259.21,-1315.18 266.2,-1314.95"/>
 </g>
-<!-- module~s_helio_step -->
+<!-- module~s_util_version -->
 <g id="module~~rmvs_classes~~UsedByGraph_node18" class="node">
-<title>module~s_helio_step</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node18"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="439,-864 366,-864 366,-840 439,-840 439,-864"/>
-<text text-anchor="middle" x="402.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
+<title>module~s_util_version</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node18"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="441.5,-1914 363.5,-1914 363.5,-1890 441.5,-1890 441.5,-1914"/>
+<text text-anchor="middle" x="402.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_step&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge16" class="edge">
-<title>module~s_helio_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.9,-853.44C350.95,-855.9 334.61,-861.36 324,-873 278.84,-922.55 265.9,-1137.05 262.83,-1207.49"/>
-<polygon fill="#000000" stroke="#000000" points="259.32,-1207.73 262.41,-1217.86 266.32,-1208.02 259.32,-1207.73"/>
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge19" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M363.13,-1900.48C348.8,-1897.89 333.67,-1892.35 324,-1881 286.58,-1837.08 267.07,-1416.8 262.87,-1315.09"/>
+<polygon fill="#000000" stroke="#000000" points="266.36,-1314.88 262.46,-1305.03 259.37,-1315.16 266.36,-1314.88"/>
 </g>
-<!-- module~s_helio_coord -->
+<!-- module~s_util_minimize_bfgs -->
 <g id="module~~rmvs_classes~~UsedByGraph_node19" class="node">
-<title>module~s_helio_coord</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node19"><a xlink:href=".././module/s_helio_coord.html" xlink:title="s_helio_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-822 363,-822 363,-798 442,-798 442,-822"/>
-<text text-anchor="middle" x="402.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_coord</text>
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node19"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="458.5,-1872 346.5,-1872 346.5,-1848 458.5,-1848 458.5,-1872"/>
+<text text-anchor="middle" x="402.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge17" class="edge">
-<title>module~s_helio_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.61,-811.92C348.55,-814.6 333.76,-820.09 324,-831 273.63,-887.26 264.13,-1131.41 262.38,-1207.36"/>
-<polygon fill="#000000" stroke="#000000" points="258.88,-1207.61 262.17,-1217.68 265.88,-1207.76 258.88,-1207.61"/>
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge20" class="edge">
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346.31,-1853.85C337.81,-1850.61 329.9,-1845.87 324,-1839 289.32,-1798.62 267.99,-1413.73 263.09,-1315.65"/>
+<polygon fill="#000000" stroke="#000000" points="266.57,-1315.21 262.58,-1305.39 259.58,-1315.55 266.57,-1315.21"/>
 </g>
-<!-- module~s_util_resize -->
+<!-- proc~solve_wbs -->
 <g id="module~~rmvs_classes~~UsedByGraph_node20" class="node">
-<title>module~s_util_resize</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node20"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="438.5,-780 366.5,-780 366.5,-756 438.5,-756 438.5,-780"/>
-<text text-anchor="middle" x="402.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
+<title>proc~solve_wbs</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node20"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="433.5,-1830 371.5,-1830 371.5,-1806 433.5,-1806 433.5,-1830"/>
+<text text-anchor="middle" x="402.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_resize&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge19" class="edge">
-<title>module~s_util_resize&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.12,-769.22C351.03,-771.62 334.51,-777.08 324,-789 268.31,-852.12 262.5,-1126.94 262.01,-1207.64"/>
-<polygon fill="#000000" stroke="#000000" points="258.51,-1207.69 261.97,-1217.7 265.51,-1207.71 258.51,-1207.69"/>
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge22" class="edge">
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.13,-1817.57C354.76,-1815.65 335.6,-1810.38 324,-1797 260.37,-1723.62 260.34,-1403.18 261.57,-1315.34"/>
+<polygon fill="#000000" stroke="#000000" points="265.07,-1315.22 261.73,-1305.17 258.07,-1315.11 265.07,-1315.22"/>
 </g>
-<!-- module~s_operator_cross -->
+<!-- module~s_gr -->
 <g id="module~~rmvs_classes~~UsedByGraph_node21" class="node">
-<title>module~s_operator_cross</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node21"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="450.5,-738 354.5,-738 354.5,-714 450.5,-714 450.5,-738"/>
-<text text-anchor="middle" x="402.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
+<title>module~s_gr</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node21"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-1788 375.5,-1788 375.5,-1764 429.5,-1764 429.5,-1788"/>
+<text text-anchor="middle" x="402.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge20" class="edge">
-<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M354.38,-729.64C342.95,-732.75 331.79,-738.07 324,-747 263,-816.99 261.03,-1122.42 261.7,-1207.77"/>
-<polygon fill="#000000" stroke="#000000" points="258.21,-1207.93 261.81,-1217.9 265.21,-1207.86 258.21,-1207.93"/>
+<!-- module~s_gr&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge23" class="edge">
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.37,-1775.95C358.21,-1774.44 336.68,-1769.47 324,-1755 265.6,-1688.39 261.74,-1397.8 261.85,-1315.06"/>
+<polygon fill="#000000" stroke="#000000" points="265.35,-1315.02 261.89,-1305.01 258.35,-1315 265.35,-1315.02"/>
 </g>
-<!-- module~s_user_kick_getacch -->
+<!-- module~s_kick -->
 <g id="module~~rmvs_classes~~UsedByGraph_node22" class="node">
-<title>module~s_user_kick_getacch</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node22"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="458.5,-696 346.5,-696 346.5,-672 458.5,-672 458.5,-696"/>
-<text text-anchor="middle" x="402.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
+<title>module~s_kick</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node22"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-1746 375.5,-1746 375.5,-1722 429.5,-1722 429.5,-1746"/>
+<text text-anchor="middle" x="402.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge21" class="edge">
-<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346.34,-690.17C337.83,-693.41 329.92,-698.14 324,-705 290.62,-743.69 268.4,-1112.31 263.18,-1207.6"/>
-<polygon fill="#000000" stroke="#000000" points="259.69,-1207.43 262.64,-1217.6 266.68,-1207.8 259.69,-1207.43"/>
+<!-- module~s_kick&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge24" class="edge">
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.43,-1733.89C358.3,-1732.36 336.78,-1727.38 324,-1713 270.93,-1653.26 263.28,-1393.4 262.18,-1315.29"/>
+<polygon fill="#000000" stroke="#000000" points="265.68,-1315.09 262.06,-1305.13 258.68,-1315.17 265.68,-1315.09"/>
 </g>
-<!-- module~s_eucl -->
+<!-- module~s_util_resize -->
 <g id="module~~rmvs_classes~~UsedByGraph_node23" class="node">
-<title>module~s_eucl</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node23"><a xlink:href=".././module/s_eucl.html" xlink:title="s_eucl">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-654 375.5,-654 375.5,-630 429.5,-630 429.5,-654"/>
-<text text-anchor="middle" x="402.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_eucl</text>
+<title>module~s_util_resize</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node23"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="438.5,-1704 366.5,-1704 366.5,-1680 438.5,-1680 438.5,-1704"/>
+<text text-anchor="middle" x="402.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
 </a>
 </g>
 </g>
-<!-- module~s_eucl&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge23" class="edge">
-<title>module~s_eucl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.25,-641.95C358.05,-643.42 336.5,-648.38 324,-663 287.94,-705.16 267.5,-1108.05 262.97,-1207.76"/>
-<polygon fill="#000000" stroke="#000000" points="259.46,-1207.76 262.51,-1217.9 266.46,-1208.07 259.46,-1207.76"/>
+<!-- module~s_util_resize&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge25" class="edge">
+<title>module~s_util_resize&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M366.25,-1690.67C351.18,-1688.25 334.65,-1682.8 324,-1671 276.2,-1618.05 264.97,-1388.41 262.59,-1315.38"/>
+<polygon fill="#000000" stroke="#000000" points="266.08,-1314.95 262.28,-1305.06 259.08,-1315.16 266.08,-1314.95"/>
 </g>
-<!-- module~s_util_coord -->
+<!-- module~s_symba_kick -->
 <g id="module~~rmvs_classes~~UsedByGraph_node24" class="node">
-<title>module~s_util_coord</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node24"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-612 367.5,-612 367.5,-588 437.5,-588 437.5,-612"/>
-<text text-anchor="middle" x="402.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
+<title>module~s_symba_kick</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node24"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-318 363,-318 363,-294 442,-294 442,-318"/>
+<text text-anchor="middle" x="402.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge25" class="edge">
-<title>module~s_util_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.5,-600.8C351.94,-603.02 334.64,-608.46 324,-621 285.26,-666.63 266.69,-1103.6 262.79,-1207.78"/>
-<polygon fill="#000000" stroke="#000000" points="259.29,-1207.69 262.42,-1217.81 266.29,-1207.94 259.29,-1207.69"/>
+<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge26" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.89,-307.32C348.53,-309.89 333.44,-315.45 324,-327 262.39,-402.39 261.52,-1132.85 261.9,-1270.64"/>
+<polygon fill="#000000" stroke="#000000" points="258.41,-1270.84 261.94,-1280.83 265.41,-1270.82 258.41,-1270.84"/>
 </g>
-<!-- module~s_symba_fragmentation -->
+<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge72" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M362.85,-299.75C349.92,-296.59 335.79,-291.89 324,-285 290.08,-265.17 289.09,-193.55 262,-222"/>
+</g>
+<!-- module~s_whm_util -->
 <g id="module~~rmvs_classes~~UsedByGraph_node25" class="node">
-<title>module~s_symba_fragmentation</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node25"><a xlink:href=".././module/s_symba_fragmentation.html" xlink:title="s_symba_fragmentation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="466,-2124 339,-2124 339,-2100 466,-2100 466,-2124"/>
-<text text-anchor="middle" x="402.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_fragmentation</text>
+<title>module~s_whm_util</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node25"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="435.5,-1662 369.5,-1662 369.5,-1638 435.5,-1638 435.5,-1662"/>
+<text text-anchor="middle" x="402.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge26" class="edge">
-<title>module~s_symba_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.84,-2102.78C333.19,-2099.8 328.08,-2095.95 324,-2091 269.14,-2024.4 262.81,-1380.83 262.09,-1252.28"/>
-<polygon fill="#000000" stroke="#000000" points="265.59,-1252.06 262.04,-1242.08 258.59,-1252.09 265.59,-1252.06"/>
-</g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~symba_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge71" class="edge">
-<title>module~s_symba_fragmentation&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M338.66,-2123.87C333.4,-2126.36 328.41,-2129.37 324,-2133 275.83,-2172.68 310.28,-2298.56 262,-2259"/>
+<!-- module~s_whm_util&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge27" class="edge">
+<title>module~s_whm_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M369.5,-1649.04C353.66,-1646.87 335.52,-1641.51 324,-1629 281.45,-1582.81 266.87,-1383.15 263.1,-1315.51"/>
+<polygon fill="#000000" stroke="#000000" points="266.58,-1314.95 262.55,-1305.15 259.59,-1315.32 266.58,-1314.95"/>
 </g>
-<!-- module~s_whm_kick -->
+<!-- module~s_util_spill -->
 <g id="module~~rmvs_classes~~UsedByGraph_node26" class="node">
-<title>module~s_whm_kick</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node26"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-570 367.5,-570 367.5,-546 437.5,-546 437.5,-570"/>
-<text text-anchor="middle" x="402.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
+<title>module~s_util_spill</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node26"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="433,-1620 372,-1620 372,-1596 433,-1596 433,-1620"/>
+<text text-anchor="middle" x="402.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge27" class="edge">
-<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.46,-558.77C351.9,-560.98 334.6,-566.42 324,-579 282.6,-628.09 265.95,-1098.87 262.64,-1207.65"/>
-<polygon fill="#000000" stroke="#000000" points="259.14,-1207.7 262.34,-1217.8 266.13,-1207.91 259.14,-1207.7"/>
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge28" class="edge">
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.94,-1607.23C355.63,-1605.22 336.25,-1599.97 324,-1587 286.65,-1547.47 269.01,-1377.28 263.75,-1315.51"/>
+<polygon fill="#000000" stroke="#000000" points="267.22,-1314.97 262.91,-1305.29 260.24,-1315.54 267.22,-1314.97"/>
 </g>
-<!-- module~s_util_valid -->
+<!-- proc~ge_wpp -->
 <g id="module~~rmvs_classes~~UsedByGraph_node27" class="node">
-<title>module~s_util_valid</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node27"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="435,-528 370,-528 370,-504 435,-504 435,-528"/>
-<text text-anchor="middle" x="402.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
+<title>proc~ge_wpp</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node27"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="429.5,-1578 375.5,-1578 375.5,-1554 429.5,-1554 429.5,-1578"/>
+<text text-anchor="middle" x="402.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_valid&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge28" class="edge">
-<title>module~s_util_valid&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M369.79,-516.43C353.64,-518.41 335.11,-523.75 324,-537 279.92,-589.58 265.25,-1094.66 262.5,-1207.65"/>
-<polygon fill="#000000" stroke="#000000" points="259,-1207.79 262.26,-1217.87 266,-1207.96 259,-1207.79"/>
+<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge29" class="edge">
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.48,-1565.46C358.6,-1563.71 337.35,-1558.66 324,-1545 291.75,-1511.98 271.41,-1370.4 264.57,-1315.18"/>
+<polygon fill="#000000" stroke="#000000" points="268.02,-1314.57 263.35,-1305.06 261.07,-1315.41 268.02,-1314.57"/>
 </g>
-<!-- module~s_util_set -->
+<!-- module~s_orbel -->
 <g id="module~~rmvs_classes~~UsedByGraph_node28" class="node">
-<title>module~s_util_set</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node28"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="431.5,-486 373.5,-486 373.5,-462 431.5,-462 431.5,-486"/>
-<text text-anchor="middle" x="402.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
+<title>module~s_orbel</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node28"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-1536 375.5,-1536 375.5,-1512 429.5,-1512 429.5,-1536"/>
+<text text-anchor="middle" x="402.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_set&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge29" class="edge">
-<title>module~s_util_set&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.24,-474.02C356.33,-475.65 335.88,-480.76 324,-495 277.27,-551.03 264.6,-1089.85 262.39,-1207.42"/>
-<polygon fill="#000000" stroke="#000000" points="258.88,-1207.67 262.2,-1217.73 265.88,-1207.79 258.88,-1207.67"/>
+<!-- module~s_orbel&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge30" class="edge">
+<title>module~s_orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.31,-1523.22C358.58,-1521.35 337.56,-1516.25 324,-1503 271.48,-1451.65 262.92,-1358.17 261.88,-1315.42"/>
+<polygon fill="#000000" stroke="#000000" points="265.38,-1315.2 261.76,-1305.24 258.38,-1315.28 265.38,-1315.2"/>
 </g>
-<!-- module~s_util_exit -->
+<!-- module~s_helio_drift -->
 <g id="module~~rmvs_classes~~UsedByGraph_node29" class="node">
-<title>module~s_util_exit</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node29"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="432.5,-444 372.5,-444 372.5,-420 432.5,-420 432.5,-444"/>
-<text text-anchor="middle" x="402.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
+<title>module~s_helio_drift</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node29"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-1494 367.5,-1494 367.5,-1470 437.5,-1470 437.5,-1494"/>
+<text text-anchor="middle" x="402.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge30" class="edge">
-<title>module~s_util_exit&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.46,-432.08C355.69,-433.78 335.66,-438.95 324,-453 274.54,-512.57 263.96,-1086.65 262.27,-1207.67"/>
-<polygon fill="#000000" stroke="#000000" points="258.77,-1207.89 262.14,-1217.94 265.77,-1207.99 258.77,-1207.89"/>
+<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge31" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.24,-1479.69C352.38,-1477.06 335.73,-1471.73 324,-1461 281.38,-1422.01 267.97,-1351.14 263.82,-1315.19"/>
+<polygon fill="#000000" stroke="#000000" points="267.3,-1314.82 262.8,-1305.22 260.33,-1315.53 267.3,-1314.82"/>
 </g>
-<!-- program~swiftest_driver -->
+<!-- module~s_operator_cross -->
 <g id="module~~rmvs_classes~~UsedByGraph_node30" class="node">
-<title>program~swiftest_driver</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node30"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="443,-402 362,-402 362,-378 443,-378 443,-402"/>
-<text text-anchor="middle" x="402.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
+<title>module~s_operator_cross</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node30"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="450.5,-1452 354.5,-1452 354.5,-1428 450.5,-1428 450.5,-1452"/>
+<text text-anchor="middle" x="402.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
 </a>
 </g>
 </g>
-<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge31" class="edge">
-<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.75,-391.6C347.76,-394.27 333.24,-399.83 324,-411 271.85,-474.08 263.37,-1082.71 262.18,-1207.65"/>
-<polygon fill="#000000" stroke="#000000" points="258.68,-1207.88 262.09,-1217.91 265.68,-1207.94 258.68,-1207.88"/>
+<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge32" class="edge">
+<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M354.18,-1433.92C343.4,-1430.8 332.61,-1426.09 324,-1419 291.13,-1391.92 274.25,-1343.13 266.84,-1314.87"/>
+<polygon fill="#000000" stroke="#000000" points="270.24,-1314.01 264.45,-1305.13 263.44,-1315.67 270.24,-1314.01"/>
 </g>
-<!-- module~s_whm_step -->
+<!-- module~s_symba_setup -->
 <g id="module~~rmvs_classes~~UsedByGraph_node31" class="node">
-<title>module~s_whm_step</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node31"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="439,-360 366,-360 366,-336 439,-336 439,-360"/>
-<text text-anchor="middle" x="402.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
+<title>module~s_symba_setup</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node31"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="446.5,-234 358.5,-234 358.5,-210 446.5,-210 446.5,-234"/>
+<text text-anchor="middle" x="402.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_step&#45;&gt;module~swiftest -->
+<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
 <g id="module~~rmvs_classes~~UsedByGraph_edge33" class="edge">
-<title>module~s_whm_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.74,-348.89C350.58,-351.23 334.1,-356.73 324,-369 269.14,-435.6 262.81,-1079.17 262.09,-1207.72"/>
-<polygon fill="#000000" stroke="#000000" points="258.59,-1207.91 262.04,-1217.92 265.59,-1207.94 258.59,-1207.91"/>
+<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M358.41,-224.19C345.45,-227.07 332.44,-232.62 324,-243 256.99,-325.43 260.57,-1125.56 261.78,-1270.53"/>
+<polygon fill="#000000" stroke="#000000" points="258.28,-1270.88 261.87,-1280.84 265.28,-1270.81 258.28,-1270.88"/>
 </g>
-<!-- module~s_setup -->
+<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge75" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M368.03,-209.99C335.93,-200.86 288.55,-194.11 262,-222"/>
+</g>
+<!-- program~swiftest_driver -->
 <g id="module~~rmvs_classes~~UsedByGraph_node32" class="node">
-<title>module~s_setup</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node32"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-318 375.5,-318 375.5,-294 429.5,-294 429.5,-318"/>
-<text text-anchor="middle" x="402.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
+<title>program~swiftest_driver</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node32"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="443,-1410 362,-1410 362,-1386 443,-1386 443,-1410"/>
+<text text-anchor="middle" x="402.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
 </a>
 </g>
 </g>
-<!-- module~s_setup&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge35" class="edge">
-<title>module~s_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.44,-305.76C358.09,-307.12 336.29,-312.02 324,-327 266.42,-397.15 262.27,-1076.04 262.01,-1207.88"/>
-<polygon fill="#000000" stroke="#000000" points="258.51,-1207.98 262,-1217.99 265.51,-1207.99 258.51,-1207.98"/>
+<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge34" class="edge">
+<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.87,-1392.59C348.99,-1389.5 335.16,-1384.63 324,-1377 300.58,-1360.98 282.62,-1333.14 272.2,-1313.93"/>
+<polygon fill="#000000" stroke="#000000" points="275.29,-1312.29 267.57,-1305.03 269.08,-1315.52 275.29,-1312.29"/>
 </g>
-<!-- module~s_util_get_energy_momentum -->
+<!-- module~s_util_copy -->
 <g id="module~~rmvs_classes~~UsedByGraph_node33" class="node">
-<title>module~s_util_get_energy_momentum</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node33"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="481,-276 324,-276 324,-252 481,-252 481,-276"/>
-<text text-anchor="middle" x="402.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
+<title>module~s_util_copy</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node33"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="435.5,-1368 369.5,-1368 369.5,-1344 435.5,-1344 435.5,-1368"/>
+<text text-anchor="middle" x="402.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge36" class="edge">
-<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M333.82,-276.17C330.15,-278.63 326.83,-281.55 324,-285 263.74,-358.64 261.76,-1071.82 261.94,-1207.7"/>
-<polygon fill="#000000" stroke="#000000" points="258.44,-1207.77 261.96,-1217.76 265.44,-1207.76 258.44,-1207.77"/>
+<!-- module~s_util_copy&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge35" class="edge">
+<title>module~s_util_copy&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M369.37,-1349.81C355.1,-1346.43 338.32,-1341.57 324,-1335 310.25,-1328.69 296.19,-1319.45 284.95,-1311.23"/>
+<polygon fill="#000000" stroke="#000000" points="287.04,-1308.43 276.95,-1305.22 282.84,-1314.02 287.04,-1308.43"/>
 </g>
-<!-- module~s_tides_kick_getacch -->
+<!-- module~s_util_valid -->
 <g id="module~~rmvs_classes~~UsedByGraph_node34" class="node">
-<title>module~s_tides_kick_getacch</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node34"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="459.5,-234 345.5,-234 345.5,-210 459.5,-210 459.5,-234"/>
-<text text-anchor="middle" x="402.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
+<title>module~s_util_valid</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node34"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="435,-1326 370,-1326 370,-1302 435,-1302 435,-1326"/>
+<text text-anchor="middle" x="402.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge37" class="edge">
-<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345.24,-228.21C337.07,-231.47 329.55,-236.2 324,-243 261.05,-320.14 261.27,-1067.94 261.87,-1207.6"/>
-<polygon fill="#000000" stroke="#000000" points="258.37,-1207.92 261.92,-1217.91 265.37,-1207.89 258.37,-1207.92"/>
+<!-- module~s_util_valid&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge36" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M369.85,-1309.23C348.61,-1306.04 320.58,-1301.82 298.42,-1298.48"/>
+<polygon fill="#000000" stroke="#000000" points="298.79,-1295 288.38,-1296.97 297.75,-1301.92 298.79,-1295"/>
 </g>
-<!-- module~s_symba_kick -->
+<!-- module~s_tides_step_spin -->
 <g id="module~~rmvs_classes~~UsedByGraph_node35" class="node">
-<title>module~s_symba_kick</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node35"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-2082 363,-2082 363,-2058 442,-2058 442,-2082"/>
-<text text-anchor="middle" x="402.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node35"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="451.5,-1284 353.5,-1284 353.5,-1260 451.5,-1260 451.5,-1284"/>
+<text text-anchor="middle" x="402.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge64" class="edge">
-<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.96,-2068.62C348.6,-2066.05 333.5,-2060.5 324,-2049 271.85,-1985.92 263.37,-1377.29 262.18,-1252.35"/>
-<polygon fill="#000000" stroke="#000000" points="265.68,-1252.06 262.09,-1242.09 258.68,-1252.12 265.68,-1252.06"/>
-</g>
-<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge75" class="edge">
-<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M362.89,-2073.15C349.21,-2076.02 334.59,-2081.31 324,-2091 265.28,-2144.72 323.56,-2309.44 262,-2259"/>
-<path fill="none" stroke="#000000" d="M260,-2259C180.18,-2193.6 160.98,-1846.83 157.28,-1755.21"/>
-<polygon fill="#000000" stroke="#000000" points="160.77,-1754.98 156.89,-1745.12 153.77,-1755.25 160.77,-1754.98"/>
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge37" class="edge">
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M353.49,-1279.23C335.35,-1281.96 315.02,-1285.02 298.15,-1287.56"/>
+<polygon fill="#000000" stroke="#000000" points="297.5,-1284.12 288.13,-1289.07 298.54,-1291.04 297.5,-1284.12"/>
 </g>
-<!-- module~s_helio_gr -->
+<!-- module~s_util_sort -->
 <g id="module~~rmvs_classes~~UsedByGraph_node36" class="node">
-<title>module~s_helio_gr</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node36"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="433.5,-2040 371.5,-2040 371.5,-2016 433.5,-2016 433.5,-2040"/>
-<text text-anchor="middle" x="402.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
+<title>module~s_util_sort</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node36"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="433,-1242 372,-1242 372,-1218 433,-1218 433,-1242"/>
+<text text-anchor="middle" x="402.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
+<!-- module~s_util_sort&#45;&gt;module~swiftest -->
 <g id="module~~rmvs_classes~~UsedByGraph_edge38" class="edge">
-<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.3,-2027.8C354.77,-2025.98 335.4,-2020.73 324,-2007 274.54,-1947.43 263.96,-1373.35 262.27,-1252.33"/>
-<polygon fill="#000000" stroke="#000000" points="265.77,-1252.01 262.14,-1242.06 258.77,-1252.11 265.77,-1252.01"/>
+<title>module~s_util_sort&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372,-1235.58C357.18,-1238.98 339.21,-1244.03 324,-1251 310.25,-1257.31 296.19,-1266.55 284.95,-1274.77"/>
+<polygon fill="#000000" stroke="#000000" points="282.84,-1271.98 276.95,-1280.78 287.04,-1277.57 282.84,-1271.98"/>
 </g>
-<!-- module~s_orbel -->
+<!-- module~s_tides_kick_getacch -->
 <g id="module~~rmvs_classes~~UsedByGraph_node37" class="node">
-<title>module~s_orbel</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node37"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-1998 375.5,-1998 375.5,-1974 429.5,-1974 429.5,-1998"/>
-<text text-anchor="middle" x="402.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node37"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="459.5,-1200 345.5,-1200 345.5,-1176 459.5,-1176 459.5,-1200"/>
+<text text-anchor="middle" x="402.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~s_orbel&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge40" class="edge">
-<title>module~s_orbel&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.14,-1986.14C357.88,-1984.72 336.32,-1979.77 324,-1965 277.27,-1908.97 264.6,-1370.15 262.39,-1252.58"/>
-<polygon fill="#000000" stroke="#000000" points="265.88,-1252.21 262.2,-1242.27 258.88,-1252.33 265.88,-1252.21"/>
+<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge39" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345.3,-1198.36C337.78,-1201.11 330.44,-1204.59 324,-1209 300.58,-1225.02 282.62,-1252.86 272.2,-1272.07"/>
+<polygon fill="#000000" stroke="#000000" points="269.08,-1270.48 267.57,-1280.97 275.29,-1273.71 269.08,-1270.48"/>
 </g>
-<!-- module~s_symba_drift -->
+<!-- module~s_whm_kick -->
 <g id="module~~rmvs_classes~~UsedByGraph_node38" class="node">
-<title>module~s_symba_drift</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node38"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-2460 363,-2460 363,-2436 442,-2436 442,-2460"/>
-<text text-anchor="middle" x="402.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
+<title>module~s_whm_kick</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node38"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-1158 367.5,-1158 367.5,-1134 437.5,-1134 437.5,-1158"/>
+<text text-anchor="middle" x="402.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge41" class="edge">
-<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.82,-2446.74C348.44,-2444.18 333.37,-2438.61 324,-2427 285.64,-2379.46 265.48,-1411.65 262.41,-1252.16"/>
-<polygon fill="#000000" stroke="#000000" points="265.91,-1252.03 262.22,-1242.1 258.91,-1252.16 265.91,-1252.03"/>
-</g>
-<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge77" class="edge">
-<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M362.89,-2444.85C349.21,-2441.98 334.59,-2436.69 324,-2427 265.28,-2373.28 323.56,-2309.44 262,-2259"/>
+<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge40" class="edge">
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.35,-1148.96C352.68,-1151.72 336.16,-1156.98 324,-1167 291.13,-1194.08 274.25,-1242.87 266.84,-1271.13"/>
+<polygon fill="#000000" stroke="#000000" points="263.44,-1270.33 264.45,-1280.87 270.24,-1271.99 263.44,-1270.33"/>
 </g>
-<!-- module~s_whm_setup -->
+<!-- module~s_util_fill -->
 <g id="module~~rmvs_classes~~UsedByGraph_node39" class="node">
-<title>module~s_whm_setup</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node39"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-1956 363,-1956 363,-1932 442,-1932 442,-1956"/>
-<text text-anchor="middle" x="402.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
+<title>module~s_util_fill</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node39"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-1116 375.5,-1116 375.5,-1092 429.5,-1092 429.5,-1116"/>
+<text text-anchor="middle" x="402.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge42" class="edge">
-<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.64,-1942.48C348.41,-1939.87 333.49,-1934.32 324,-1923 279.92,-1870.42 265.25,-1365.34 262.5,-1252.35"/>
-<polygon fill="#000000" stroke="#000000" points="266,-1252.04 262.26,-1242.13 259,-1252.21 266,-1252.04"/>
+<!-- module~s_util_fill&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge41" class="edge">
+<title>module~s_util_fill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.23,-1105.13C358.68,-1107.15 337.89,-1112.3 324,-1125 281.38,-1163.99 267.97,-1234.86 263.82,-1270.81"/>
+<polygon fill="#000000" stroke="#000000" points="260.33,-1270.47 262.8,-1280.78 267.3,-1271.18 260.33,-1270.47"/>
 </g>
-<!-- module~s_io -->
+<!-- module~s_helio_kick -->
 <g id="module~~rmvs_classes~~UsedByGraph_node40" class="node">
-<title>module~s_io</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node40"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-1914 375.5,-1914 375.5,-1890 429.5,-1890 429.5,-1914"/>
-<text text-anchor="middle" x="402.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
+<title>module~s_helio_kick</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node40"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-1074 367.5,-1074 367.5,-1050 437.5,-1050 437.5,-1074"/>
+<text text-anchor="middle" x="402.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_io&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge43" class="edge">
-<title>module~s_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.19,-1902.1C357.95,-1900.66 336.4,-1895.71 324,-1881 282.6,-1831.91 265.95,-1361.13 262.64,-1252.35"/>
-<polygon fill="#000000" stroke="#000000" points="266.13,-1252.09 262.34,-1242.2 259.14,-1252.3 266.13,-1252.09"/>
+<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge42" class="edge">
+<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.3,-1063.89C352.27,-1066.42 335.46,-1071.79 324,-1083 271.48,-1134.35 262.92,-1227.83 261.88,-1270.58"/>
+<polygon fill="#000000" stroke="#000000" points="258.38,-1270.72 261.76,-1280.76 265.38,-1270.8 258.38,-1270.72"/>
 </g>
-<!-- module~s_util_version -->
+<!-- module~s_symba_collision -->
 <g id="module~~rmvs_classes~~UsedByGraph_node41" class="node">
-<title>module~s_util_version</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node41"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="441.5,-1872 363.5,-1872 363.5,-1848 441.5,-1848 441.5,-1872"/>
-<text text-anchor="middle" x="402.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
+<title>module~s_symba_collision</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node41"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="452,-192 353,-192 353,-168 452,-168 452,-192"/>
+<text text-anchor="middle" x="402.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_version&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge44" class="edge">
-<title>module~s_util_version&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M363.11,-1858.5C348.78,-1855.91 333.65,-1850.37 324,-1839 285.26,-1793.37 266.69,-1356.4 262.79,-1252.22"/>
-<polygon fill="#000000" stroke="#000000" points="266.29,-1252.06 262.42,-1242.19 259.29,-1252.31 266.29,-1252.06"/>
+<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge43" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M352.74,-183.61C341.74,-186.78 331.2,-192.12 324,-201 289.06,-244.08 266.25,-1118.27 262.54,-1270.49"/>
+<polygon fill="#000000" stroke="#000000" points="259.03,-1270.81 262.28,-1280.89 266.03,-1270.98 259.03,-1270.81"/>
 </g>
-<!-- module~s_util_fill -->
+<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge78" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M352.91,-182.75C322.77,-187.02 285.46,-197.36 262,-222"/>
+</g>
+<!-- module~s_symba_discard -->
 <g id="module~~rmvs_classes~~UsedByGraph_node42" class="node">
-<title>module~s_util_fill</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node42"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-1830 375.5,-1830 375.5,-1806 429.5,-1806 429.5,-1830"/>
-<text text-anchor="middle" x="402.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
+<title>module~s_symba_discard</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node42"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="450.5,-150 354.5,-150 354.5,-126 450.5,-126 450.5,-150"/>
+<text text-anchor="middle" x="402.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_fill&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge45" class="edge">
-<title>module~s_util_fill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.25,-1818.05C358.05,-1816.58 336.5,-1811.62 324,-1797 287.94,-1754.84 267.5,-1351.95 262.97,-1252.24"/>
-<polygon fill="#000000" stroke="#000000" points="266.46,-1251.93 262.51,-1242.1 259.46,-1252.24 266.46,-1251.93"/>
+<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge44" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M354.34,-141.15C342.76,-144.25 331.54,-149.68 324,-159 287.7,-203.86 265.94,-1115.27 262.48,-1270.59"/>
+<polygon fill="#000000" stroke="#000000" points="258.98,-1270.73 262.26,-1280.8 265.98,-1270.88 258.98,-1270.73"/>
+</g>
+<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge77" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M354.41,-146.5C343.97,-149.52 333.27,-153.58 324,-159 290.08,-178.83 289.09,-193.55 262,-222"/>
 </g>
-<!-- module~s_util_peri -->
+<!-- module~s_symba_util -->
 <g id="module~~rmvs_classes~~UsedByGraph_node43" class="node">
-<title>module~s_util_peri</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node43"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="433,-1788 372,-1788 372,-1764 433,-1764 433,-1788"/>
-<text text-anchor="middle" x="402.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
+<title>module~s_symba_util</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node43"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="440,-108 365,-108 365,-84 440,-84 440,-108"/>
+<text text-anchor="middle" x="402.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_peri&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge46" class="edge">
-<title>module~s_util_peri&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.88,-1775.68C355.33,-1773.84 335.75,-1768.62 324,-1755 290.62,-1716.31 268.4,-1347.69 263.18,-1252.4"/>
-<polygon fill="#000000" stroke="#000000" points="266.68,-1252.2 262.64,-1242.4 259.69,-1252.57 266.68,-1252.2"/>
+<!-- module~s_symba_util&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge45" class="edge">
+<title>module~s_symba_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.83,-96.93C349.87,-99.32 333.81,-104.85 324,-117 286.32,-163.64 265.63,-1112.56 262.44,-1270.74"/>
+<polygon fill="#000000" stroke="#000000" points="258.94,-1270.67 262.24,-1280.74 265.94,-1270.81 258.94,-1270.67"/>
 </g>
-<!-- module~s_helio_drift -->
+<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge80" class="edge">
+<title>module~s_symba_util&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M364.96,-99.96C351.06,-102.91 335.75,-108.05 324,-117 280.89,-149.84 299.37,-182.75 262,-222"/>
+</g>
+<!-- module~s_util_solve -->
 <g id="module~~rmvs_classes~~UsedByGraph_node44" class="node">
-<title>module~s_helio_drift</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node44"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-1746 367.5,-1746 367.5,-1722 437.5,-1722 437.5,-1746"/>
-<text text-anchor="middle" x="402.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
+<title>module~s_util_solve</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node44"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="436.5,-1032 368.5,-1032 368.5,-1008 436.5,-1008 436.5,-1032"/>
+<text text-anchor="middle" x="402.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge47" class="edge">
-<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.25,-1733.02C351.83,-1730.74 334.72,-1725.29 324,-1713 263,-1643.01 261.03,-1337.58 261.7,-1252.23"/>
-<polygon fill="#000000" stroke="#000000" points="265.21,-1252.14 261.81,-1242.1 258.21,-1252.07 265.21,-1252.14"/>
+<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge46" class="edge">
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M368.24,-1021.47C352.86,-1023.85 335.49,-1029.23 324,-1041 291.75,-1074.02 271.41,-1215.6 264.57,-1270.82"/>
+<polygon fill="#000000" stroke="#000000" points="261.07,-1270.59 263.35,-1280.94 268.02,-1271.43 261.07,-1270.59"/>
 </g>
-<!-- module~s_fragmentation -->
+<!-- module~s_symba_io -->
 <g id="module~~rmvs_classes~~UsedByGraph_node45" class="node">
-<title>module~s_fragmentation</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node45"><a xlink:href=".././module/s_fragmentation.html" xlink:title="s_fragmentation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="447.5,-1704 357.5,-1704 357.5,-1680 447.5,-1680 447.5,-1704"/>
-<text text-anchor="middle" x="402.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fragmentation</text>
+<title>module~s_symba_io</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node45"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-66 367.5,-66 367.5,-42 437.5,-42 437.5,-66"/>
+<text text-anchor="middle" x="402.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
+<!-- module~s_symba_io&#45;&gt;module~swiftest -->
 <g id="module~~rmvs_classes~~UsedByGraph_edge48" class="edge">
-<title>module~s_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M357.28,-1689.03C344.88,-1686.03 332.48,-1680.62 324,-1671 268.31,-1607.88 262.5,-1333.06 262.01,-1252.36"/>
-<polygon fill="#000000" stroke="#000000" points="265.51,-1252.29 261.97,-1242.3 258.51,-1252.31 265.51,-1252.29"/>
+<title>module~s_symba_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.22,-54.56C351.6,-56.73 334.32,-62.19 324,-75 284.99,-123.39 265.37,-1108.17 262.4,-1270.45"/>
+<polygon fill="#000000" stroke="#000000" points="258.9,-1270.63 262.21,-1280.69 265.9,-1270.76 258.9,-1270.63"/>
 </g>
-<!-- proc~solve_wbs -->
+<!-- module~s_symba_io&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge71" class="edge">
+<title>module~s_symba_io&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M367.46,-56.56C352.64,-59.24 335.97,-64.54 324,-75 270.61,-121.66 310.89,-170.64 262,-222"/>
+</g>
+<!-- module~whm_drift -->
 <g id="module~~rmvs_classes~~UsedByGraph_node46" class="node">
-<title>proc~solve_wbs</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node46"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="433.5,-1662 371.5,-1662 371.5,-1638 433.5,-1638 433.5,-1662"/>
-<text text-anchor="middle" x="402.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
+<title>module~whm_drift</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node46"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="432,-990 373,-990 373,-966 432,-966 432,-990"/>
+<text text-anchor="middle" x="402.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
 </a>
 </g>
 </g>
-<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge49" class="edge">
-<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.29,-1649.42C354.97,-1647.46 335.81,-1642.19 324,-1629 273.63,-1572.74 264.13,-1328.59 262.38,-1252.64"/>
-<polygon fill="#000000" stroke="#000000" points="265.88,-1252.24 262.17,-1242.32 258.88,-1252.39 265.88,-1252.24"/>
+<!-- module~whm_drift&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge50" class="edge">
+<title>module~whm_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.7,-978.68C356.24,-980.62 336.45,-985.83 324,-999 286.65,-1038.53 269.01,-1208.72 263.75,-1270.49"/>
+<polygon fill="#000000" stroke="#000000" points="260.24,-1270.46 262.91,-1280.71 267.22,-1271.03 260.24,-1270.46"/>
 </g>
 <!-- module~s_whm_coord -->
 <g id="module~~rmvs_classes~~UsedByGraph_node47" class="node">
 <title>module~s_whm_coord</title>
 <g id="a_module~~rmvs_classes~~UsedByGraph_node47"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-1620 363,-1620 363,-1596 442,-1596 442,-1620"/>
-<text text-anchor="middle" x="402.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-948 363,-948 363,-924 442,-924 442,-948"/>
+<text text-anchor="middle" x="402.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
 </a>
 </g>
 </g>
 <!-- module~s_whm_coord&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge50" class="edge">
+<g id="module~~rmvs_classes~~UsedByGraph_edge51" class="edge">
 <title>module~s_whm_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.71,-1605.99C348.67,-1603.29 333.86,-1597.82 324,-1587 278.84,-1537.45 265.9,-1322.95 262.83,-1252.51"/>
-<polygon fill="#000000" stroke="#000000" points="266.32,-1251.98 262.41,-1242.14 259.32,-1252.27 266.32,-1251.98"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.77,-938.06C348.74,-940.77 333.92,-946.23 324,-957 281.45,-1003.19 266.87,-1202.85 263.1,-1270.49"/>
+<polygon fill="#000000" stroke="#000000" points="259.59,-1270.68 262.55,-1280.85 266.58,-1271.05 259.59,-1270.68"/>
 </g>
-<!-- module~s_tides_step_spin -->
+<!-- module~s_io -->
 <g id="module~~rmvs_classes~~UsedByGraph_node48" class="node">
-<title>module~s_tides_step_spin</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node48"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="451.5,-1578 353.5,-1578 353.5,-1554 451.5,-1554 451.5,-1578"/>
-<text text-anchor="middle" x="402.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
+<title>module~s_io</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node48"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-906 375.5,-906 375.5,-882 429.5,-882 429.5,-906"/>
+<text text-anchor="middle" x="402.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge51" class="edge">
-<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M353.16,-1561.56C342.28,-1558.4 331.7,-1553.26 324,-1545 284.03,-1502.11 267.88,-1317 263.4,-1252.37"/>
-<polygon fill="#000000" stroke="#000000" points="266.87,-1251.83 262.71,-1242.09 259.88,-1252.3 266.87,-1251.83"/>
+<!-- module~s_io&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge52" class="edge">
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.5,-894.17C358.4,-895.73 336.89,-900.72 324,-915 276.2,-967.95 264.97,-1197.59 262.59,-1270.62"/>
+<polygon fill="#000000" stroke="#000000" points="259.08,-1270.84 262.28,-1280.94 266.08,-1271.05 259.08,-1270.84"/>
 </g>
-<!-- module~s_symba_io -->
+<!-- module~s_obl -->
 <g id="module~~rmvs_classes~~UsedByGraph_node49" class="node">
-<title>module~s_symba_io</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node49"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="437.5,-2418 367.5,-2418 367.5,-2394 437.5,-2394 437.5,-2418"/>
-<text text-anchor="middle" x="402.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
+<title>module~s_obl</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node49"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-864 375.5,-864 375.5,-840 429.5,-840 429.5,-864"/>
+<text text-anchor="middle" x="402.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_io&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge52" class="edge">
-<title>module~s_symba_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M367.23,-2405.42C351.62,-2403.25 334.34,-2397.79 324,-2385 287.01,-2339.25 265.78,-1409.09 262.46,-1252.33"/>
-<polygon fill="#000000" stroke="#000000" points="265.95,-1251.97 262.24,-1242.05 258.96,-1252.12 265.95,-1251.97"/>
-</g>
-<!-- module~s_symba_io&#45;&gt;module~symba_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge70" class="edge">
-<title>module~s_symba_io&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M367.35,-2403.04C352.68,-2400.28 336.16,-2395.02 324,-2385 275.83,-2345.32 310.28,-2298.56 262,-2259"/>
+<!-- module~s_obl&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge53" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.43,-852.11C358.3,-853.64 336.78,-858.62 324,-873 270.93,-932.74 263.28,-1192.6 262.18,-1270.71"/>
+<polygon fill="#000000" stroke="#000000" points="258.68,-1270.83 262.06,-1280.87 265.68,-1270.91 258.68,-1270.83"/>
 </g>
-<!-- module~s_util_sort -->
+<!-- module~s_helio_gr -->
 <g id="module~~rmvs_classes~~UsedByGraph_node50" class="node">
-<title>module~s_util_sort</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node50"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="433,-1536 372,-1536 372,-1512 433,-1512 433,-1536"/>
-<text text-anchor="middle" x="402.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
+<title>module~s_helio_gr</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node50"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="433.5,-822 371.5,-822 371.5,-798 433.5,-798 433.5,-822"/>
+<text text-anchor="middle" x="402.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_sort&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge53" class="edge">
-<title>module~s_util_sort&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.63,-1523.11C355.43,-1521.04 336.26,-1515.77 324,-1503 289.15,-1466.68 270.1,-1310.39 264.1,-1252.06"/>
-<polygon fill="#000000" stroke="#000000" points="267.58,-1251.67 263.11,-1242.06 260.62,-1252.36 267.58,-1251.67"/>
+<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge54" class="edge">
+<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.19,-810.48C354.84,-812.42 335.67,-817.69 324,-831 265.6,-897.61 261.74,-1188.2 261.85,-1270.94"/>
+<polygon fill="#000000" stroke="#000000" points="258.35,-1271 261.89,-1280.99 265.35,-1270.98 258.35,-1271"/>
 </g>
-<!-- module~s_util_minimize_bfgs -->
+<!-- module~s_eucl -->
 <g id="module~~rmvs_classes~~UsedByGraph_node51" class="node">
-<title>module~s_util_minimize_bfgs</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node51"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="458.5,-1494 346.5,-1494 346.5,-1470 458.5,-1470 458.5,-1494"/>
-<text text-anchor="middle" x="402.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
+<title>module~s_eucl</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node51"><a xlink:href=".././module/s_eucl.html" xlink:title="s_eucl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-780 375.5,-780 375.5,-756 429.5,-756 429.5,-780"/>
+<text text-anchor="middle" x="402.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_eucl</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge54" class="edge">
-<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346.35,-1474.79C338.05,-1471.65 330.2,-1467.22 324,-1461 266.29,-1403.15 260.67,-1297.75 261.15,-1252.08"/>
-<polygon fill="#000000" stroke="#000000" points="264.65,-1252.14 261.37,-1242.06 257.66,-1251.98 264.65,-1252.14"/>
+<!-- module~s_eucl&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge55" class="edge">
+<title>module~s_eucl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.31,-768.01C358.14,-769.5 336.6,-774.47 324,-789 260.37,-862.38 260.34,-1182.82 261.57,-1270.66"/>
+<polygon fill="#000000" stroke="#000000" points="258.07,-1270.89 261.73,-1280.83 265.07,-1270.78 258.07,-1270.89"/>
 </g>
-<!-- module~s_whm_util -->
+<!-- module~s_util_append -->
 <g id="module~~rmvs_classes~~UsedByGraph_node52" class="node">
-<title>module~s_whm_util</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node52"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="435.5,-1452 369.5,-1452 369.5,-1428 435.5,-1428 435.5,-1452"/>
-<text text-anchor="middle" x="402.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
+<title>module~s_util_append</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node52"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-738 363,-738 363,-714 442,-714 442,-738"/>
+<text text-anchor="middle" x="402.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_util&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge55" class="edge">
-<title>module~s_whm_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M369.4,-1438.27C353.92,-1435.85 336.13,-1430.51 324,-1419 276.48,-1373.9 265.34,-1291.85 262.76,-1252.38"/>
-<polygon fill="#000000" stroke="#000000" points="266.25,-1252.03 262.23,-1242.23 259.26,-1252.4 266.25,-1252.03"/>
+<!-- module~s_util_append&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge56" class="edge">
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.77,-727.63C348.57,-730.26 333.63,-735.79 324,-747 289.32,-787.38 267.99,-1172.27 263.09,-1270.35"/>
+<polygon fill="#000000" stroke="#000000" points="259.58,-1270.45 262.58,-1280.61 266.57,-1270.79 259.58,-1270.45"/>
 </g>
-<!-- module~s_util_copy -->
+<!-- module~s_fragmentation -->
 <g id="module~~rmvs_classes~~UsedByGraph_node53" class="node">
-<title>module~s_util_copy</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node53"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="435.5,-1410 369.5,-1410 369.5,-1386 435.5,-1386 435.5,-1410"/>
-<text text-anchor="middle" x="402.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
+<title>module~s_fragmentation</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node53"><a xlink:href=".././module/s_fragmentation.html" xlink:title="s_fragmentation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="447.5,-696 357.5,-696 357.5,-672 447.5,-672 447.5,-696"/>
+<text text-anchor="middle" x="402.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fragmentation</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_copy&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge56" class="edge">
-<title>module~s_util_copy&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M369.4,-1395.77C354.12,-1393.22 336.49,-1387.92 324,-1377 286.5,-1344.23 271.09,-1284.98 265.24,-1252.61"/>
-<polygon fill="#000000" stroke="#000000" points="268.63,-1251.66 263.55,-1242.37 261.73,-1252.8 268.63,-1251.66"/>
+<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge57" class="edge">
+<title>module~s_fragmentation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M357.48,-686.7C344.93,-689.66 332.41,-695.13 324,-705 286.58,-748.92 267.07,-1169.2 262.87,-1270.91"/>
+<polygon fill="#000000" stroke="#000000" points="259.37,-1270.84 262.46,-1280.97 266.36,-1271.12 259.37,-1270.84"/>
 </g>
-<!-- proc~ge_wpp -->
+<!-- module~s_user_kick_getacch -->
 <g id="module~~rmvs_classes~~UsedByGraph_node54" class="node">
-<title>proc~ge_wpp</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node54"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="429.5,-1368 375.5,-1368 375.5,-1344 429.5,-1344 429.5,-1368"/>
-<text text-anchor="middle" x="402.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node54"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="458.5,-654 346.5,-654 346.5,-630 458.5,-630 458.5,-654"/>
+<text text-anchor="middle" x="402.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge57" class="edge">
-<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.23,-1353.9C359.09,-1351.46 338.75,-1346.24 324,-1335 295.98,-1313.66 278.19,-1275.7 269.17,-1251.75"/>
-<polygon fill="#000000" stroke="#000000" points="272.4,-1250.37 265.74,-1242.13 265.81,-1252.73 272.4,-1250.37"/>
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge58" class="edge">
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M346.22,-648.07C337.73,-651.32 329.85,-656.08 324,-663 283.94,-710.36 266.32,-1164.2 262.71,-1270.71"/>
+<polygon fill="#000000" stroke="#000000" points="259.21,-1270.82 262.37,-1280.93 266.2,-1271.05 259.21,-1270.82"/>
 </g>
-<!-- module~s_kick -->
+<!-- module~s_symba_fragmentation -->
 <g id="module~~rmvs_classes~~UsedByGraph_node55" class="node">
-<title>module~s_kick</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node55"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-1326 375.5,-1326 375.5,-1302 429.5,-1302 429.5,-1326"/>
-<text text-anchor="middle" x="402.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
+<title>module~s_symba_fragmentation</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node55"><a xlink:href=".././module/s_symba_fragmentation.html" xlink:title="s_symba_fragmentation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="466,-24 339,-24 339,0 466,0 466,-24"/>
+<text text-anchor="middle" x="402.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_fragmentation</text>
 </a>
 </g>
 </g>
-<!-- module~s_kick&#45;&gt;module~swiftest -->
+<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
 <g id="module~~rmvs_classes~~UsedByGraph_edge59" class="edge">
-<title>module~s_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.39,-1310.46C359.69,-1307.5 339.77,-1302.22 324,-1293 305.35,-1282.1 288.46,-1264.13 277.04,-1250.17"/>
-<polygon fill="#000000" stroke="#000000" points="279.61,-1247.78 270.66,-1242.1 274.11,-1252.11 279.61,-1247.78"/>
+<title>module~s_symba_fragmentation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.72,-21.12C333.1,-24.13 328.02,-28 324,-33 283.64,-83.14 265.12,-1103.92 262.37,-1270.2"/>
+<polygon fill="#000000" stroke="#000000" points="258.86,-1270.61 262.19,-1280.67 265.86,-1270.72 258.86,-1270.61"/>
 </g>
-<!-- module~whm_drift -->
+<!-- module~s_symba_fragmentation&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge73" class="edge">
+<title>module~s_symba_fragmentation&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M338.86,-22.85C333.42,-25.54 328.35,-28.87 324,-33 259.87,-93.85 322.96,-157.97 262,-222"/>
+<path fill="none" stroke="#000000" d="M260,-222C184.91,-300.87 160.74,-1124.6 157.03,-1270.86"/>
+<polygon fill="#000000" stroke="#000000" points="153.53,-1270.8 156.78,-1280.88 160.53,-1270.97 153.53,-1270.8"/>
+</g>
+<!-- module~s_whm_step -->
 <g id="module~~rmvs_classes~~UsedByGraph_node56" class="node">
-<title>module~whm_drift</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node56"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="432,-1284 373,-1284 373,-1260 432,-1260 432,-1284"/>
-<text text-anchor="middle" x="402.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
+<title>module~s_whm_step</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node56"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="439,-612 366,-612 366,-588 439,-588 439,-612"/>
+<text text-anchor="middle" x="402.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
 </a>
 </g>
 </g>
-<!-- module~whm_drift&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge61" class="edge">
-<title>module~whm_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.67,-1264.64C358.03,-1260.79 340,-1255.87 324,-1251 315.48,-1248.41 306.37,-1245.43 297.83,-1242.56"/>
-<polygon fill="#000000" stroke="#000000" points="298.72,-1239.16 288.13,-1239.25 296.47,-1245.79 298.72,-1239.16"/>
+<!-- module~s_whm_step&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge60" class="edge">
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.86,-600.99C350.71,-603.34 334.23,-608.84 324,-621 281.26,-671.83 265.59,-1159.73 262.57,-1270.64"/>
+<polygon fill="#000000" stroke="#000000" points="259.06,-1270.88 262.3,-1280.97 266.06,-1271.06 259.06,-1270.88"/>
 </g>
-<!-- module~s_symba_setup -->
+<!-- module~s_helio_coord -->
 <g id="module~~rmvs_classes~~UsedByGraph_node57" class="node">
-<title>module~s_symba_setup</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node57"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="446.5,-2376 358.5,-2376 358.5,-2352 446.5,-2352 446.5,-2376"/>
-<text text-anchor="middle" x="402.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
+<title>module~s_helio_coord</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node57"><a xlink:href=".././module/s_helio_coord.html" xlink:title="s_helio_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-570 363,-570 363,-546 442,-546 442,-570"/>
+<text text-anchor="middle" x="402.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge34" class="edge">
-<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M358.39,-2361.83C345.43,-2358.95 332.42,-2353.4 324,-2343 288.38,-2299.04 266.09,-1406.31 262.51,-1252.48"/>
-<polygon fill="#000000" stroke="#000000" points="266.01,-1252.26 262.28,-1242.34 259.01,-1252.42 266.01,-1252.26"/>
-</g>
-<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge73" class="edge">
-<title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M358.26,-2357.68C346.45,-2354.57 334.13,-2349.92 324,-2343 285.7,-2316.81 297.89,-2288.41 262,-2259"/>
+<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge61" class="edge">
+<title>module~s_helio_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.62,-559.5C348.39,-562.12 333.48,-567.66 324,-579 278.57,-633.33 264.91,-1155.73 262.44,-1270.7"/>
+<polygon fill="#000000" stroke="#000000" points="258.94,-1270.72 262.23,-1280.79 265.94,-1270.87 258.94,-1270.72"/>
 </g>
-<!-- module~s_symba_discard -->
+<!-- module~s_util_peri -->
 <g id="module~~rmvs_classes~~UsedByGraph_node58" class="node">
-<title>module~s_symba_discard</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node58"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="450.5,-2334 354.5,-2334 354.5,-2310 450.5,-2310 450.5,-2334"/>
-<text text-anchor="middle" x="402.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
+<title>module~s_util_peri</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node58"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="433,-528 372,-528 372,-504 433,-504 433,-528"/>
+<text text-anchor="middle" x="402.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge22" class="edge">
-<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M354.36,-2318.83C342.78,-2315.73 331.56,-2310.31 324,-2301 255.63,-2216.8 260.35,-1399.08 261.75,-1252.45"/>
-<polygon fill="#000000" stroke="#000000" points="265.26,-1252.08 261.86,-1242.04 258.26,-1252.01 265.26,-1252.08"/>
-</g>
-<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge74" class="edge">
-<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M354.31,-2311.89C344.09,-2308.97 333.5,-2305.36 324,-2301 293.75,-2287.12 287.74,-2280.09 262,-2259"/>
+<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge62" class="edge">
+<title>module~s_util_peri&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.7,-516.17C355.09,-517.95 335.5,-523.18 324,-537 275.86,-594.86 264.25,-1152.34 262.32,-1270.9"/>
+<polygon fill="#000000" stroke="#000000" points="258.82,-1270.92 262.17,-1280.97 265.82,-1271.03 258.82,-1270.92"/>
 </g>
-<!-- module~s_gr -->
+<!-- module~s_whm_setup -->
 <g id="module~~rmvs_classes~~UsedByGraph_node59" class="node">
-<title>module~s_gr</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node59"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="429.5,-1242 375.5,-1242 375.5,-1218 429.5,-1218 429.5,-1242"/>
-<text text-anchor="middle" x="402.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
+<title>module~s_whm_setup</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node59"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="442,-486 363,-486 363,-462 442,-462 442,-486"/>
+<text text-anchor="middle" x="402.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_gr&#45;&gt;module~swiftest -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge62" class="edge">
-<title>module~s_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.26,-1230C353.54,-1230 322.43,-1230 298.32,-1230"/>
-<polygon fill="#000000" stroke="#000000" points="298.12,-1226.5 288.12,-1230 298.12,-1233.5 298.12,-1226.5"/>
+<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge64" class="edge">
+<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362.97,-475.39C348.62,-477.96 333.52,-483.51 324,-495 273.17,-556.35 263.65,-1148.23 262.22,-1270.84"/>
+<polygon fill="#000000" stroke="#000000" points="258.72,-1270.88 262.11,-1280.92 265.72,-1270.96 258.72,-1270.88"/>
 </g>
-<!-- module~s_symba_collision -->
+<!-- module~s_discard -->
 <g id="module~~rmvs_classes~~UsedByGraph_node60" class="node">
-<title>module~s_symba_collision</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node60"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="452,-2292 353,-2292 353,-2268 452,-2268 452,-2292"/>
-<text text-anchor="middle" x="402.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
+<title>module~s_discard</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node60"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="431.5,-444 373.5,-444 373.5,-420 431.5,-420 431.5,-444"/>
+<text text-anchor="middle" x="402.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
+<!-- module~s_discard&#45;&gt;module~swiftest -->
 <g id="module~~rmvs_classes~~UsedByGraph_edge65" class="edge">
-<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M352.76,-2276.37C341.76,-2273.21 331.22,-2267.87 324,-2259 258.34,-2178.34 260.8,-1395.74 261.81,-1252.47"/>
-<polygon fill="#000000" stroke="#000000" points="265.31,-1252.28 261.89,-1242.26 258.31,-1252.23 265.31,-1252.28"/>
-</g>
-<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge76" class="edge">
-<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M352.95,-2284.41C323.59,-2284.47 287.1,-2279.57 262,-2259"/>
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.19,-431.98C356.26,-433.59 335.8,-438.7 324,-453 270.47,-517.87 263.08,-1144.52 262.13,-1270.87"/>
+<polygon fill="#000000" stroke="#000000" points="258.63,-1270.89 262.06,-1280.91 265.63,-1270.93 258.63,-1270.89"/>
 </g>
-<!-- module~s_symba_encounter_check -->
+<!-- module~s_symba_step -->
 <g id="module~~rmvs_classes~~UsedByGraph_node61" class="node">
-<title>module~s_symba_encounter_check</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node61"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="474,-2250 331,-2250 331,-2226 474,-2226 474,-2250"/>
-<text text-anchor="middle" x="402.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
+<title>module~s_symba_step</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node61"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="443.5,-276 361.5,-276 361.5,-252 443.5,-252 443.5,-276"/>
+<text text-anchor="middle" x="402.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<!-- module~s_symba_step&#45;&gt;module~swiftest -->
 <g id="module~~rmvs_classes~~UsedByGraph_edge66" class="edge">
-<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M333.81,-2225.84C330.15,-2223.38 326.82,-2220.46 324,-2217 261.05,-2139.86 261.27,-1392.06 261.87,-1252.4"/>
-<polygon fill="#000000" stroke="#000000" points="265.37,-1252.11 261.92,-1242.09 258.37,-1252.08 265.37,-1252.11"/>
+<title>module~s_symba_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.26,-265.61C347.39,-268.3 333.07,-273.87 324,-285 259.69,-363.9 261.04,-1129.1 261.84,-1270.57"/>
+<polygon fill="#000000" stroke="#000000" points="258.34,-1271.01 261.91,-1280.99 265.34,-1270.97 258.34,-1271.01"/>
 </g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge72" class="edge">
-<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M347.15,-2250.06C310.91,-2257.45 268.73,-2264.51 262,-2259"/>
+<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge79" class="edge">
+<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M361.14,-253.57C349.14,-250.34 336,-246.65 324,-243 296.17,-234.52 282.06,-200.93 262,-222"/>
 </g>
-<!-- module~s_symba_util -->
+<!-- module~s_helio_step -->
 <g id="module~~rmvs_classes~~UsedByGraph_node62" class="node">
-<title>module~s_symba_util</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node62"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="440,-2208 365,-2208 365,-2184 440,-2184 440,-2208"/>
-<text text-anchor="middle" x="402.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
+<title>module~s_helio_step</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node62"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="439,-2292 366,-2292 366,-2268 439,-2268 439,-2292"/>
+<text text-anchor="middle" x="402.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_util&#45;&gt;module~swiftest -->
+<!-- module~s_helio_step&#45;&gt;module~swiftest -->
 <g id="module~~rmvs_classes~~UsedByGraph_edge67" class="edge">
-<title>module~s_symba_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M364.91,-2195.01C349.96,-2192.61 333.89,-2187.08 324,-2175 263.74,-2101.36 261.76,-1388.18 261.94,-1252.3"/>
-<polygon fill="#000000" stroke="#000000" points="265.44,-1252.24 261.96,-1242.24 258.44,-1252.23 265.44,-1252.24"/>
-</g>
-<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge78" class="edge">
-<title>module~s_symba_util&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M364.75,-2203.32C351.56,-2206.62 336.8,-2211.13 324,-2217 293.75,-2230.88 287.74,-2280.09 262,-2259"/>
+<title>module~s_helio_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M365.7,-2279.14C350.52,-2276.82 334.06,-2271.31 324,-2259 262.39,-2183.61 261.52,-1453.15 261.9,-1315.36"/>
+<polygon fill="#000000" stroke="#000000" points="265.41,-1315.18 261.94,-1305.17 258.41,-1315.16 265.41,-1315.18"/>
 </g>
-<!-- module~s_symba_step -->
+<!-- module~s_util_exit -->
 <g id="module~~rmvs_classes~~UsedByGraph_node63" class="node">
-<title>module~s_symba_step</title>
-<g id="a_module~~rmvs_classes~~UsedByGraph_node63"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="443.5,-2166 361.5,-2166 361.5,-2142 443.5,-2142 443.5,-2166"/>
-<text text-anchor="middle" x="402.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
+<title>module~s_util_exit</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node63"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="432.5,-2250 372.5,-2250 372.5,-2226 432.5,-2226 432.5,-2250"/>
+<text text-anchor="middle" x="402.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~swiftest -->
+<!-- module~s_util_exit&#45;&gt;module~swiftest -->
 <g id="module~~rmvs_classes~~UsedByGraph_edge68" class="edge">
-<title>module~s_symba_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M361.3,-2152.36C347.44,-2149.66 333.11,-2144.1 324,-2133 266.42,-2062.85 262.27,-1383.96 262.01,-1252.12"/>
-<polygon fill="#000000" stroke="#000000" points="265.51,-1252.01 262,-1242.01 258.51,-1252.02 265.51,-1252.01"/>
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M372.39,-2237.97C355.6,-2236.29 335.58,-2231.12 324,-2217 265.14,-2145.18 262.02,-1450.53 261.97,-1315.63"/>
+<polygon fill="#000000" stroke="#000000" points="265.47,-1315.29 261.98,-1305.29 258.47,-1315.29 265.47,-1315.29"/>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
-<g id="module~~rmvs_classes~~UsedByGraph_edge79" class="edge">
-<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M361.47,-2159.5C348.71,-2162.6 335.05,-2167.45 324,-2175 285.7,-2201.19 297.89,-2288.41 262,-2259"/>
+<!-- module~s_whm_gr -->
+<g id="module~~rmvs_classes~~UsedByGraph_node64" class="node">
+<title>module~s_whm_gr</title>
+<g id="a_module~~rmvs_classes~~UsedByGraph_node64"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="433.5,-2208 371.5,-2208 371.5,-2184 433.5,-2184 433.5,-2208"/>
+<text text-anchor="middle" x="402.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
+</a>
+</g>
+</g>
+<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
+<g id="module~~rmvs_classes~~UsedByGraph_edge69" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.25,-2195.84C354.71,-2194.03 335.33,-2188.78 324,-2175 267.81,-2106.66 262.54,-1446.11 262.05,-1315.41"/>
+<polygon fill="#000000" stroke="#000000" points="265.55,-1315.04 262.02,-1305.05 258.55,-1315.06 265.55,-1315.04"/>
 </g>
 </g>
 </svg>
@@ -2631,7 +2645,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -2723,7 +2737,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -3843,6 +3857,20 @@ <h4>Components</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-pl_discards"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  
+  <td>public,</td>
+  <td>allocatable</td><td>::</td>
+  <td><strong>pl_discards</strong></td><td></td><td></td><td><p>Discarded massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-gmtot"></span>real(kind=DP),</td>
@@ -4104,6 +4132,12 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-get_energy_and_momentum'>get_energy_and_momentum</a></strong>  => util_get_energy_momentum_system </td>
        <td><p>Calculates the total system energy and momentum</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-rescale'>rescale</a></strong>  => util_rescale_system </td>
+       <td><p>Rescales the system into a new set of units</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-validate_ids'>validate_ids</a></strong>  => util_valid_id_system </td>
+       <td><p>Validate the numerical ids passed to the system and save the maximum value</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/rmvs_nbody_system.html#boundprocedure-initialize'>initialize</a></strong>  => rmvs_setup_initialize_system </td>
        <td><p>Replace the abstract procedures with concrete ones
  Performs RMVS-specific initilization steps, including generating the close encounter planetocentric structures</p></td></tr>
diff --git a/docs/module/s_discard.html b/docs/module/s_discard.html
index 42310ea0d..4bceeb6c2 100644
--- a/docs/module/s_discard.html
+++ b/docs/module/s_discard.html
@@ -134,7 +134,7 @@ <h1>s_discard
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.4% of total for modules and submodules.">181 statements</a>
+    title=" 1.5% of total for modules and submodules.">195 statements</a>
      </li> 
      
      
@@ -267,255 +267,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_discard~~UsesGraph Pages: 1 -->
-<svg id="modules_discardUsesGraph" width="641pt" height="198pt"
- viewBox="0.00 0.00 641.00 197.54" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_discard~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 273.36)">
+<svg id="modules_discardUsesGraph" width="641pt" height="192pt"
+ viewBox="0.00 0.00 641.00 192.26" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_discard~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 265.94)">
 <title>module~~s_discard~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.36 896,-273.36 896,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 896,-265.94 896,4 -4,4"/>
 <!-- module~s_discard -->
 <g id="module~~s_discard~~UsesGraph_node1" class="node">
 <title>module~s_discard</title>
-<polygon fill="none" stroke="black" points="892,-217.16 834,-217.16 834,-193.16 892,-193.16 892,-217.16"/>
-<text text-anchor="middle" x="863" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_discard</text>
+<polygon fill="none" stroke="black" points="892,-234.94 834,-234.94 834,-210.94 892,-210.94 892,-234.94"/>
+<text text-anchor="middle" x="863" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_discard</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_discard~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_discard~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_discard&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_discard~~UsesGraph_edge2" class="edge">
 <title>module~s_discard&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M834.12,-217.2C773.94,-241.48 627.78,-291.33 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.86,-232.18C796.18,-243.72 727.07,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_discard~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_discard~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_discard&#45;&gt;module~swiftest -->
 <g id="module~~s_discard~~UsesGraph_edge1" class="edge">
 <title>module~s_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M842.91,-193.07C830.38,-185.14 813.79,-174.63 799.8,-165.77"/>
-<polygon fill="#000000" stroke="#000000" points="801.38,-162.62 791.06,-160.23 797.63,-168.54 801.38,-162.62"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.52,-216.61C825.47,-214.82 816.59,-212.85 808.15,-210.97"/>
+<polygon fill="#000000" stroke="#000000" points="808.67,-207.51 798.15,-208.75 807.16,-214.34 808.67,-207.51"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_discard~~UsesGraph_node9" class="node">
+<g id="module~~s_discard~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_discard~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_discard~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_discard~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_discard~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_discard~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_discard~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_discard~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_discard~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_discard~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_discard~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_discard~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_discard~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_discard~~UsesGraph_edge6" class="edge">
+<g id="module~~s_discard~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_discard~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_discard~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_discard~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_discard~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_discard~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_discard~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_discard~~UsesGraph_edge7" class="edge">
+<g id="module~~s_discard~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_discard~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_discard~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_discard~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_discard~~UsesGraph_node8" class="node">
+<g id="module~~s_discard~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_discard~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_discard~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_discard~~UsesGraph_edge8" class="edge">
+<g id="module~~s_discard~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_discard~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_discard~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_discard~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_discard~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_discard~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_discard~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_discard~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_discard~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_discard~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_discard~~UsesGraph_edge12" class="edge">
+<g id="module~~s_discard~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_discard~~UsesGraph_edge14" class="edge">
+<g id="module~~s_discard~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_discard~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_discard~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_discard~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_discard~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_discard~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_discard~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_discard~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_discard~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_discard~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_discard~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_discard~~UsesGraph_edge21" class="edge">
+<g id="module~~s_discard~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_discard~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_discard~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_discard~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_discard~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_discard~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_discard~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_eucl.html b/docs/module/s_eucl.html
index 4655f1711..87589a9af 100644
--- a/docs/module/s_eucl.html
+++ b/docs/module/s_eucl.html
@@ -245,255 +245,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_eucl~~UsesGraph Pages: 1 -->
-<svg id="modules_euclUsesGraph" width="641pt" height="198pt"
- viewBox="0.00 0.00 641.00 198.38" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_eucl~~UsesGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 273.3)">
+<svg id="modules_euclUsesGraph" width="641pt" height="193pt"
+ viewBox="0.00 0.00 641.00 193.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_eucl~~UsesGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 265.94)">
 <title>module~~s_eucl~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.3 892,-273.3 892,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 892,-265.94 892,4 -4,4"/>
 <!-- module~s_eucl -->
 <g id="module~~s_eucl~~UsesGraph_node1" class="node">
 <title>module~s_eucl</title>
-<polygon fill="none" stroke="black" points="888,-217.16 834,-217.16 834,-193.16 888,-193.16 888,-217.16"/>
-<text text-anchor="middle" x="861" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_eucl</text>
+<polygon fill="none" stroke="black" points="888,-234.94 834,-234.94 834,-210.94 888,-210.94 888,-234.94"/>
+<text text-anchor="middle" x="861" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_eucl</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_eucl~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_eucl~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_eucl&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_eucl~~UsesGraph_edge2" class="edge">
 <title>module~s_eucl&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M833.63,-216.62C774.65,-240.64 628.02,-291.39 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.73,-231.69C796.83,-243.19 727.33,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_eucl~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_eucl~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_eucl&#45;&gt;module~swiftest -->
 <g id="module~~s_eucl~~UsesGraph_edge1" class="edge">
 <title>module~s_eucl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M841.34,-193.07C829.09,-185.14 812.86,-174.63 799.19,-165.77"/>
-<polygon fill="#000000" stroke="#000000" points="800.93,-162.73 790.64,-160.23 797.13,-168.6 800.93,-162.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.6,-216.94C825.52,-215.1 816.49,-213.05 807.9,-211.1"/>
+<polygon fill="#000000" stroke="#000000" points="808.61,-207.67 798.08,-208.87 807.06,-214.5 808.61,-207.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_eucl~~UsesGraph_node9" class="node">
+<g id="module~~s_eucl~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_eucl~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_eucl~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_eucl~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_eucl~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_eucl~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_eucl~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_eucl~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_eucl~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_eucl~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_eucl~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_eucl~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_eucl~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_eucl~~UsesGraph_edge6" class="edge">
+<g id="module~~s_eucl~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_eucl~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_eucl~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_eucl~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_eucl~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_eucl~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_eucl~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_eucl~~UsesGraph_edge7" class="edge">
+<g id="module~~s_eucl~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_eucl~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_eucl~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_eucl~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_eucl~~UsesGraph_node8" class="node">
+<g id="module~~s_eucl~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_eucl~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_eucl~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_eucl~~UsesGraph_edge8" class="edge">
+<g id="module~~s_eucl~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_eucl~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_eucl~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_eucl~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_eucl~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_eucl~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_eucl~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_eucl~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_eucl~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_eucl~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_eucl~~UsesGraph_edge12" class="edge">
+<g id="module~~s_eucl~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_eucl~~UsesGraph_edge14" class="edge">
+<g id="module~~s_eucl~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_eucl~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_eucl~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_eucl~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_eucl~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_eucl~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_eucl~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_eucl~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_eucl~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_eucl~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_eucl~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_eucl~~UsesGraph_edge21" class="edge">
+<g id="module~~s_eucl~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_eucl~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_eucl~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_eucl~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_eucl~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_eucl~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_eucl~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_fragmentation.html b/docs/module/s_fragmentation.html
index fd9090ed3..bd6c2e3a6 100644
--- a/docs/module/s_fragmentation.html
+++ b/docs/module/s_fragmentation.html
@@ -134,7 +134,7 @@ <h1>s_fragmentation
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 5.8% of total for modules and submodules.">766 statements</a>
+    title=" 5.9% of total for modules and submodules.">784 statements</a>
      </li> 
      
      
@@ -247,255 +247,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_fragmentation~~UsesGraph Pages: 1 -->
-<svg id="modules_fragmentationUsesGraph" width="641pt" height="191pt"
- viewBox="0.00 0.00 641.00 191.22" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_fragmentation~~UsesGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 274.03)">
+<svg id="modules_fragmentationUsesGraph" width="641pt" height="186pt"
+ viewBox="0.00 0.00 641.00 185.66" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_fragmentation~~UsesGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 265.94)">
 <title>module~~s_fragmentation~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-274.03 928,-274.03 928,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 928,-265.94 928,4 -4,4"/>
 <!-- module~s_fragmentation -->
 <g id="module~~s_fragmentation~~UsesGraph_node1" class="node">
 <title>module~s_fragmentation</title>
-<polygon fill="none" stroke="black" points="924,-217.16 834,-217.16 834,-193.16 924,-193.16 924,-217.16"/>
-<text text-anchor="middle" x="879" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_fragmentation</text>
+<polygon fill="none" stroke="black" points="924,-234.94 834,-234.94 834,-210.94 924,-210.94 924,-234.94"/>
+<text text-anchor="middle" x="879" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_fragmentation</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_fragmentation~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_fragmentation~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_fragmentation&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_fragmentation~~UsesGraph_edge2" class="edge">
 <title>module~s_fragmentation&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M849.31,-217.24C786.66,-241.9 633.33,-292.89 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M837.47,-234.96C795.19,-246.42 726.8,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_fragmentation~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_fragmentation~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_fragmentation&#45;&gt;module~swiftest -->
 <g id="module~~s_fragmentation~~UsesGraph_edge1" class="edge">
 <title>module~s_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M855.52,-193.07C840.34,-184.91 820.1,-174.02 803.34,-165.01"/>
-<polygon fill="#000000" stroke="#000000" points="804.91,-161.88 794.45,-160.23 801.6,-168.05 804.91,-161.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.97,-214.63C825.41,-213.02 816.53,-211.34 808.25,-209.78"/>
+<polygon fill="#000000" stroke="#000000" points="808.64,-206.29 798.17,-207.88 807.35,-213.17 808.64,-206.29"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_fragmentation~~UsesGraph_node9" class="node">
+<g id="module~~s_fragmentation~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_fragmentation~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_fragmentation~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_fragmentation~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_fragmentation~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_fragmentation~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_fragmentation~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_fragmentation~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_fragmentation~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_fragmentation~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_fragmentation~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_fragmentation~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_fragmentation~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_fragmentation~~UsesGraph_edge6" class="edge">
+<g id="module~~s_fragmentation~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_fragmentation~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_fragmentation~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_fragmentation~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_fragmentation~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_fragmentation~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_fragmentation~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_fragmentation~~UsesGraph_edge7" class="edge">
+<g id="module~~s_fragmentation~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_fragmentation~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_fragmentation~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_fragmentation~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_fragmentation~~UsesGraph_node8" class="node">
+<g id="module~~s_fragmentation~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_fragmentation~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_fragmentation~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_fragmentation~~UsesGraph_edge8" class="edge">
+<g id="module~~s_fragmentation~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_fragmentation~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_fragmentation~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_fragmentation~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_fragmentation~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_fragmentation~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_fragmentation~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_fragmentation~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fragmentation~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_fragmentation~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_fragmentation~~UsesGraph_edge12" class="edge">
+<g id="module~~s_fragmentation~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_fragmentation~~UsesGraph_edge14" class="edge">
+<g id="module~~s_fragmentation~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_fragmentation~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_fragmentation~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_fragmentation~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_fragmentation~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_fragmentation~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_fragmentation~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_fragmentation~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fragmentation~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_fragmentation~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_fragmentation~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_fragmentation~~UsesGraph_edge21" class="edge">
+<g id="module~~s_fragmentation~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_fragmentation~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_fragmentation~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_fragmentation~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_fragmentation~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_fragmentation~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_fragmentation~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
@@ -691,7 +694,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -706,7 +709,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -721,7 +724,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>family</strong></td><td></td>
+  <td><strong>family</strong></td><td><p>Index of bodies involved in the collision</p></td>
   
 </tr>
 
@@ -736,7 +739,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td></td>
+  <td><strong>x</strong></td><td><p>Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</p></td>
   
 </tr>
 
@@ -751,7 +754,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td></td>
+  <td><strong>v</strong></td><td><p>Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</p></td>
   
 </tr>
 
@@ -766,7 +769,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td></td>
+  <td><strong>L_spin</strong></td><td><p>Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</p></td>
   
 </tr>
 
@@ -781,7 +784,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td></td>
+  <td><strong>Ip</strong></td><td><p>Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</p></td>
   
 </tr>
 
@@ -796,7 +799,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td></td>
+  <td><strong>mass</strong></td><td><p>Two-body equivalent mass and radii for the bodies in the collision</p></td>
   
 </tr>
 
@@ -811,7 +814,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td></td>
+  <td><strong>radius</strong></td><td><p>Two-body equivalent mass and radii for the bodies in the collision</p></td>
   
 </tr>
 
@@ -826,7 +829,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>nfrag</strong></td><td></td>
+  <td><strong>nfrag</strong></td><td><p>Number of fragments to generate</p></td>
   
 </tr>
 
@@ -841,7 +844,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>Ip_frag</strong></td><td></td>
+  <td><strong>Ip_frag</strong></td><td><p>Fragment rotational inertia vectors</p></td>
   
 </tr>
 
@@ -856,7 +859,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>m_frag</strong></td><td></td>
+  <td><strong>m_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
   
 </tr>
 
@@ -871,7 +874,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>rad_frag</strong></td><td></td>
+  <td><strong>rad_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
   
 </tr>
 
@@ -886,7 +889,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xb_frag</strong></td><td></td>
+  <td><strong>xb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
   
 </tr>
 
@@ -901,7 +904,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vb_frag</strong></td><td></td>
+  <td><strong>vb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
   
 </tr>
 
@@ -916,7 +919,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>rot_frag</strong></td><td></td>
+  <td><strong>rot_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
   
 </tr>
 
@@ -931,7 +934,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td></td>
+  <td><strong>Qloss</strong></td><td><p>Energy lost during the collision</p></td>
   
 </tr>
 
@@ -946,7 +949,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>lfailure</strong></td><td></td>
+  <td><strong>lfailure</strong></td><td><p>Answers the question: Should this have been a merger instead?</p></td>
   
 </tr>
 
diff --git a/docs/module/s_gr.html b/docs/module/s_gr.html
index 97f271f00..c4e4bc489 100644
--- a/docs/module/s_gr.html
+++ b/docs/module/s_gr.html
@@ -257,255 +257,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_gr~~UsesGraph Pages: 1 -->
-<svg id="modules_grUsesGraph" width="641pt" height="198pt"
- viewBox="0.00 0.00 641.00 198.38" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_gr~~UsesGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 273.3)">
+<svg id="modules_grUsesGraph" width="641pt" height="193pt"
+ viewBox="0.00 0.00 641.00 193.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_gr~~UsesGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 265.94)">
 <title>module~~s_gr~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.3 892,-273.3 892,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 892,-265.94 892,4 -4,4"/>
 <!-- module~s_gr -->
 <g id="module~~s_gr~~UsesGraph_node1" class="node">
 <title>module~s_gr</title>
-<polygon fill="none" stroke="black" points="888,-217.16 834,-217.16 834,-193.16 888,-193.16 888,-217.16"/>
-<text text-anchor="middle" x="861" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_gr</text>
+<polygon fill="none" stroke="black" points="888,-234.94 834,-234.94 834,-210.94 888,-210.94 888,-234.94"/>
+<text text-anchor="middle" x="861" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_gr</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_gr~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_gr~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_gr&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_gr~~UsesGraph_edge2" class="edge">
 <title>module~s_gr&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M833.63,-216.62C774.65,-240.64 628.02,-291.39 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.73,-231.69C796.83,-243.19 727.33,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_gr~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_gr~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_gr&#45;&gt;module~swiftest -->
 <g id="module~~s_gr~~UsesGraph_edge1" class="edge">
 <title>module~s_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M841.34,-193.07C829.09,-185.14 812.86,-174.63 799.19,-165.77"/>
-<polygon fill="#000000" stroke="#000000" points="800.93,-162.73 790.64,-160.23 797.13,-168.6 800.93,-162.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.6,-216.94C825.52,-215.1 816.49,-213.05 807.9,-211.1"/>
+<polygon fill="#000000" stroke="#000000" points="808.61,-207.67 798.08,-208.87 807.06,-214.5 808.61,-207.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_gr~~UsesGraph_node9" class="node">
+<g id="module~~s_gr~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_gr~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_gr~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_gr~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_gr~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_gr~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_gr~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_gr~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_gr~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_gr~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_gr~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_gr~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_gr~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_gr~~UsesGraph_edge6" class="edge">
+<g id="module~~s_gr~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_gr~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_gr~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_gr~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_gr~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_gr~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_gr~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_gr~~UsesGraph_edge7" class="edge">
+<g id="module~~s_gr~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_gr~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_gr~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_gr~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_gr~~UsesGraph_node8" class="node">
+<g id="module~~s_gr~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_gr~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_gr~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_gr~~UsesGraph_edge8" class="edge">
+<g id="module~~s_gr~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_gr~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_gr~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_gr~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_gr~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_gr~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_gr~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_gr~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_gr~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_gr~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_gr~~UsesGraph_edge12" class="edge">
+<g id="module~~s_gr~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_gr~~UsesGraph_edge14" class="edge">
+<g id="module~~s_gr~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_gr~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_gr~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_gr~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_gr~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_gr~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_gr~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_gr~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_gr~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_gr~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_gr~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_gr~~UsesGraph_edge21" class="edge">
+<g id="module~~s_gr~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_gr~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_gr~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_gr~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_gr~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_gr~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_gr~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_helio_coord.html b/docs/module/s_helio_coord.html
index 2f78f8296..95a24713e 100644
--- a/docs/module/s_helio_coord.html
+++ b/docs/module/s_helio_coord.html
@@ -251,259 +251,259 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_helio_coord~~UsesGraph Pages: 1 -->
-<svg id="modules_helio_coordUsesGraph" width="641pt" height="173pt"
- viewBox="0.00 0.00 641.00 173.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_helio_coord~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 245.19)">
+<svg id="modules_helio_coordUsesGraph" width="641pt" height="188pt"
+ viewBox="0.00 0.00 641.00 187.55" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_helio_coord~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 265.48)">
 <title>module~~s_helio_coord~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-245.19 917,-245.19 917,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.48 917,-265.48 917,4 -4,4"/>
 <!-- module~s_helio_coord -->
 <g id="module~~s_helio_coord~~UsesGraph_node1" class="node">
 <title>module~s_helio_coord</title>
-<polygon fill="none" stroke="black" points="913,-141.19 834,-141.19 834,-117.19 913,-117.19 913,-141.19"/>
-<text text-anchor="middle" x="873.5" y="-126.79" font-family="Helvetica,sans-Serif" font-size="10.50">s_helio_coord</text>
+<polygon fill="none" stroke="black" points="913,-214.94 834,-214.94 834,-190.94 913,-190.94 913,-214.94"/>
+<text text-anchor="middle" x="873.5" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_helio_coord</text>
 </g>
 <!-- module~helio_classes -->
 <g id="module~~s_helio_coord~~UsesGraph_node2" class="node">
 <title>module~helio_classes</title>
 <g id="a_module~~s_helio_coord~~UsesGraph_node2"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-161.19 510.5,-161.19 510.5,-137.19 586.5,-137.19 586.5,-161.19"/>
-<text text-anchor="middle" x="548.5" y="-146.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-234.94 510.5,-234.94 510.5,-210.94 586.5,-210.94 586.5,-234.94"/>
+<text text-anchor="middle" x="548.5" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_helio_coord&#45;&gt;module~helio_classes -->
 <g id="module~~s_helio_coord~~UsesGraph_edge2" class="edge">
 <title>module~s_helio_coord&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M833.78,-133.02C792.38,-137.1 724.81,-143.71 666.5,-149.19"/>
+<path fill="none" stroke="#000000" d="M833.86,-205.33C774.54,-209 661.16,-216.02 596.94,-220"/>
+<polygon fill="#000000" stroke="#000000" points="596.45,-216.52 586.69,-220.63 596.89,-223.51 596.45,-216.52"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_helio_coord~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_helio_coord~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-121.19 744,-121.19 744,-97.19 798,-97.19 798,-121.19"/>
-<text text-anchor="middle" x="771" y="-106.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-194.94 744,-194.94 744,-170.94 798,-170.94 798,-194.94"/>
+<text text-anchor="middle" x="771" y="-180.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_helio_coord&#45;&gt;module~swiftest -->
 <g id="module~~s_helio_coord~~UsesGraph_edge1" class="edge">
 <title>module~s_helio_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.93,-121.51C825.43,-119.82 816.46,-118.04 808.06,-116.37"/>
-<polygon fill="#000000" stroke="#000000" points="808.67,-112.92 798.18,-114.4 807.3,-119.78 808.67,-112.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.93,-195.26C825.43,-193.57 816.46,-191.78 808.06,-190.11"/>
+<polygon fill="#000000" stroke="#000000" points="808.67,-186.66 798.18,-188.14 807.3,-193.53 808.67,-186.66"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_helio_coord~~UsesGraph_node8" class="node">
+<g id="module~~s_helio_coord~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_helio_coord~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-83.19 123,-83.19 123,-59.19 211,-59.19 211,-83.19"/>
-<text text-anchor="middle" x="167" y="-68.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_helio_coord~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-136.94 123,-136.94 123,-112.94 211,-112.94 211,-136.94"/>
+<text text-anchor="middle" x="167" y="-122.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_coord~~UsesGraph_edge5" class="edge">
+<g id="module~~s_helio_coord~~UsesGraph_edge3" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.89,-161.29C477.1,-182.06 376.37,-219.45 298,-189.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-224.94C370.5,-216.94 351.02,-247.33 298,-224.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-224.94C251.42,-206.11 209.09,-167.59 186.03,-144.24"/>
+<polygon fill="#000000" stroke="#000000" points="188.44,-141.7 178.97,-136.95 183.41,-146.57 188.44,-141.7"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_helio_coord~~UsesGraph_node8" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_helio_coord~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-116.94 390.5,-116.94 390.5,-92.94 466.5,-92.94 466.5,-116.94"/>
+<text text-anchor="middle" x="428.5" y="-102.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_helio_coord~~UsesGraph_edge4" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.88,-210.73C527.7,-191.9 502.3,-155.4 474,-130.94 470.56,-127.96 466.72,-125.14 462.79,-122.53"/>
+<polygon fill="#000000" stroke="#000000" points="464.49,-119.46 454.14,-117.18 460.81,-125.42 464.49,-119.46"/>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_helio_coord~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_helio_coord~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-123.19 252.5,-123.19 252.5,-99.19 341.5,-99.19 341.5,-123.19"/>
-<text text-anchor="middle" x="297" y="-108.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-156.94 252.5,-156.94 252.5,-132.94 341.5,-132.94 341.5,-156.94"/>
+<text text-anchor="middle" x="297" y="-142.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_edge3" class="edge">
+<g id="module~~s_helio_coord~~UsesGraph_edge5" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M527.29,-137C504.31,-124.42 465.34,-106.93 429.5,-109.19"/>
-</g>
-<!-- module~whm_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_helio_coord~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-161.19 390.5,-161.19 390.5,-137.19 466.5,-137.19 466.5,-161.19"/>
-<text text-anchor="middle" x="428.5" y="-146.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
-</a>
-</g>
-</g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_edge4" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.49,-149.19C499.83,-149.19 488.05,-149.19 476.86,-149.19"/>
-<polygon fill="#000000" stroke="#000000" points="476.79,-145.69 466.79,-149.19 476.79,-152.69 476.79,-145.69"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.38,-226.52C487.05,-228.04 456.38,-228.71 429.5,-224.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-224.94C383.25,-218.73 340.97,-185.83 317.35,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="319.48,-161.4 309.8,-157.08 314.68,-166.49 319.48,-161.4"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_edge6" class="edge">
+<g id="module~~s_helio_coord~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M749.05,-121.24C728.72,-131.96 696.61,-146.36 666.5,-149.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-149.19C642.31,-151.27 617.6,-151.54 596.79,-151.18"/>
-<polygon fill="#000000" stroke="#000000" points="596.69,-147.68 586.61,-150.95 596.53,-154.67 596.69,-147.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-182.94C635.56,-185.39 604.57,-196.73 582.06,-206.71"/>
+<polygon fill="#000000" stroke="#000000" points="580.59,-203.53 572.96,-210.88 583.51,-209.9 580.59,-203.53"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_coord~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.71,-194.7C708.76,-209.63 644.68,-234.57 587,-243.94 459.94,-264.55 416.58,-275.01 298,-224.94"/>
 </g>
 <!-- module~lambda_function -->
-<g id="module~~s_helio_coord~~UsesGraph_node4" class="node">
+<g id="module~~s_helio_coord~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
-<g id="a_module~~s_helio_coord~~UsesGraph_node4"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-241.19 383,-241.19 383,-217.19 474,-217.19 474,-241.19"/>
-<text text-anchor="middle" x="428.5" y="-226.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<g id="a_module~~s_helio_coord~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-36.94 383,-36.94 383,-12.94 474,-12.94 474,-36.94"/>
+<text text-anchor="middle" x="428.5" y="-22.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_helio_coord~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-229.19C526.83,-228.79 504.12,-228.7 484.19,-228.75"/>
-<polygon fill="#000000" stroke="#000000" points="484.04,-225.25 474.05,-228.78 484.06,-232.25 484.04,-225.25"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-24.94C527.51,-18.4 504.58,-17.1 484.28,-17.9"/>
+<polygon fill="#000000" stroke="#000000" points="484.03,-14.41 474.24,-18.47 484.42,-21.4 484.03,-14.41"/>
 </g>
 <!-- module~swiftest_operators -->
-<g id="module~~s_helio_coord~~UsesGraph_node5" class="node">
+<g id="module~~s_helio_coord~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
-<g id="a_module~~s_helio_coord~~UsesGraph_node5"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="347,-41.19 247,-41.19 247,-17.19 347,-17.19 347,-41.19"/>
-<text text-anchor="middle" x="297" y="-26.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<g id="a_module~~s_helio_coord~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-36.94 247,-36.94 247,-12.94 347,-12.94 347,-36.94"/>
+<text text-anchor="middle" x="297" y="-22.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_helio_coord~~UsesGraph_edge8" class="edge">
+<g id="module~~s_helio_coord~~UsesGraph_edge9" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-29.19C404.66,-27.46 379.5,-27.11 357.47,-27.31"/>
-<polygon fill="#000000" stroke="#000000" points="357.21,-23.81 347.26,-27.45 357.31,-30.81 357.21,-23.81"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.28,-170.91C745.16,-149.64 708.48,-105.61 666.5,-83.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-83.94C613.46,-57.58 604.1,-42.79 549.5,-24.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-24.94C477.45,-2.02 456.16,4.97 383,-3.94 371.56,-5.33 359.45,-7.74 348.06,-10.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-7.06 338.27,-12.87 348.82,-13.85 347.13,-7.06"/>
 </g>
 <!-- module~rmvs_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_node6" class="node">
+<g id="module~~s_helio_coord~~UsesGraph_node7" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_helio_coord~~UsesGraph_node6"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-81.19 510,-81.19 510,-57.19 587,-57.19 587,-81.19"/>
-<text text-anchor="middle" x="548.5" y="-66.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_helio_coord~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-76.94 510,-76.94 510,-52.94 587,-52.94 587,-76.94"/>
+<text text-anchor="middle" x="548.5" y="-62.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_edge9" class="edge">
+<g id="module~~s_helio_coord~~UsesGraph_edge13" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-29.19C632.78,-21.43 597.46,-37.61 574.44,-51.65"/>
-<polygon fill="#000000" stroke="#000000" points="572.5,-48.74 565.96,-57.07 576.27,-54.64 572.5,-48.74"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-83.94C643.83,-73.76 618.79,-68.88 597.37,-66.59"/>
+<polygon fill="#000000" stroke="#000000" points="597.45,-63.09 587.17,-65.67 596.81,-70.06 597.45,-63.09"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_helio_coord~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-83.94C656.21,-79.86 542.97,-91.95 476.76,-99.45"/>
+<polygon fill="#000000" stroke="#000000" points="476.1,-96 466.56,-100.61 476.9,-102.96 476.1,-96"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_helio_coord~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.57,-181.71C722.63,-181.03 692.64,-180.72 666.5,-182.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-182.94C553.17,-192.38 423.15,-171.25 351.77,-156.87"/>
+<polygon fill="#000000" stroke="#000000" points="352.17,-153.38 341.67,-154.8 350.77,-160.24 352.17,-153.38"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_node7" class="node">
+<g id="module~~s_helio_coord~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_helio_coord~~UsesGraph_node7"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-121.19 623,-121.19 623,-97.19 708,-97.19 708,-121.19"/>
-<text text-anchor="middle" x="665.5" y="-106.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_helio_coord~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-154.94 623,-154.94 623,-130.94 708,-130.94 708,-154.94"/>
+<text text-anchor="middle" x="665.5" y="-140.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_edge10" class="edge">
+<g id="module~~s_helio_coord~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-109.19C736.13,-109.19 727.36,-109.19 718.58,-109.19"/>
-<polygon fill="#000000" stroke="#000000" points="718.32,-105.69 708.32,-109.19 718.32,-112.69 718.32,-105.69"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-172.84C732.83,-168.57 719.68,-163.49 707.39,-158.74"/>
+<polygon fill="#000000" stroke="#000000" points="708.36,-155.36 697.77,-155.02 705.84,-161.89 708.36,-155.36"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_coord~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-29.19C495.73,-37.59 481.8,-33.14 429.5,-29.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-29.19C614.85,-17.05 599.95,-21 549.5,-29.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.49,-97.08C743.96,-77.31 707.75,-39.27 666.5,-29.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-29.19C390.63,-26.4 383.67,-12.89 347,-8.19 302.92,-2.53 288.95,6.49 247,-8.19 222.47,-16.77 199.87,-36.53 185.18,-51.64"/>
-<polygon fill="#000000" stroke="#000000" points="182.53,-49.35 178.26,-59.04 187.64,-54.13 182.53,-49.35"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_helio_coord~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_helio_coord~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-136.94 0,-136.94 0,-112.94 87,-112.94 87,-136.94"/>
+<text text-anchor="middle" x="43.5" y="-122.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-109.19C402.58,-110.76 374.9,-111.34 351.56,-111.5"/>
-<polygon fill="#000000" stroke="#000000" points="351.49,-108 341.5,-111.55 351.52,-115 351.49,-108"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-29.19C484.96,-39.34 492.74,-105.2 429.5,-109.19"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_edge13" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-229.19C506.38,-222.52 468.32,-190.03 447.07,-168.56"/>
-<polygon fill="#000000" stroke="#000000" points="449.48,-166.02 440.03,-161.22 444.42,-170.86 449.48,-166.02"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M759.52,-121.31C729.48,-154.56 639.41,-243.78 549.5,-229.19"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_helio_coord~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-124.94C114.58,-124.94 105.86,-124.94 97.36,-124.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-121.44 87.13,-124.94 97.13,-128.44 97.13,-121.44"/>
 </g>
 <!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_coord~~UsesGraph_edge14" class="edge">
+<g id="module~~s_helio_coord~~UsesGraph_edge15" class="edge">
 <title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M383.23,-217.16C357.97,-209.88 325.88,-199.95 298,-189.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-104.94C271.4,-108.7 244.16,-112.94 221.15,-116.55"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-113.1 211.24,-118.11 221.66,-120.02 220.58,-113.1"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-36.95C399.1,-41.29 390.64,-46.28 383,-50.94 344.78,-74.23 342.24,-98.17 298,-104.94"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_coord~~UsesGraph_edge15" class="edge">
+<g id="module~~s_helio_coord~~UsesGraph_edge16" class="edge">
 <title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.32,-41.22C245.26,-45.84 229.04,-51.16 214.2,-56.03"/>
-<polygon fill="#000000" stroke="#000000" points="213.1,-52.71 204.69,-59.15 215.28,-59.36 213.1,-52.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-37C258.46,-54.27 217.61,-86.18 191.67,-106.44"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-103.92 183.49,-112.83 193.53,-109.43 189.22,-103.92"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_helio_coord~~UsesGraph_edge17" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.98,-71.57C486.77,-72.61 456.37,-73.19 429.5,-71.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-71.19C356.32,-65.88 273.85,-67.14 221.33,-68.88"/>
-<polygon fill="#000000" stroke="#000000" points="221.11,-65.38 211.23,-69.23 221.35,-72.38 221.11,-65.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-67.92C476.26,-70.9 426.14,-76.15 383,-83.94 344.71,-90.85 336.47,-99.05 298,-104.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_edge16" class="edge">
+<g id="module~~s_helio_coord~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M529.43,-81.42C523.22,-85.71 516.26,-90.59 510,-95.19 493.67,-107.19 490.79,-111.83 474,-123.19 469.66,-126.12 464.99,-129.07 460.35,-131.88"/>
-<polygon fill="#000000" stroke="#000000" points="458.41,-128.96 451.58,-137.06 461.97,-134.99 458.41,-128.96"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630,-121.19C618.73,-125.11 606.05,-129.52 594.15,-133.66"/>
-<polygon fill="#000000" stroke="#000000" points="592.67,-130.47 584.38,-137.06 594.97,-137.08 592.67,-130.47"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-76.94C500.42,-80.9 487.26,-85.35 474.94,-89.53"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-86.28 465.29,-92.8 475.88,-92.91 473.63,-86.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_helio_coord~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630,-97.19C618.73,-93.27 606.05,-88.86 594.15,-84.72"/>
-<polygon fill="#000000" stroke="#000000" points="594.97,-81.3 584.38,-81.32 592.67,-87.91 594.97,-81.3"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-101.97C364.42,-100.62 328.89,-100.21 298,-104.94"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_helio_coord~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.92,-110.76C601.04,-111.19 573.78,-111.1 549.5,-109.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-109.19C492.57,-104.87 484.39,-75.91 429.5,-71.19"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_coord~~UsesGraph_edge18" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-109.19C495.22,-105.08 481.84,-105.89 429.5,-109.19"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-116.4C376.79,-120.6 361.18,-125.42 346.71,-129.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-126.62 336.92,-132.91 347.51,-133.31 345.44,-126.62"/>
 </g>
-<!-- iso_fortran_env -->
-<g id="module~~s_helio_coord~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_helio_coord~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-83.19 0,-83.19 0,-59.19 87,-59.19 87,-83.19"/>
-<text text-anchor="middle" x="43.5" y="-68.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_coord~~UsesGraph_edge21" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-138.11C242.31,-136.55 231.58,-134.87 221.24,-133.25"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-129.75 211.06,-131.66 220.4,-136.67 221.48,-129.75"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_helio_coord~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.47,-155.07C637.59,-159.35 629.89,-164.25 623,-168.94 606.19,-180.36 587.76,-193.9 573.56,-204.57"/>
+<polygon fill="#000000" stroke="#000000" points="571.18,-201.97 565.31,-210.79 575.4,-207.56 571.18,-201.97"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_helio_coord~~UsesGraph_edge22" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-71.19C114.58,-71.19 105.86,-71.19 97.36,-71.19"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-67.69 87.13,-71.19 97.13,-74.69 97.13,-67.69"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-144.94C367.43,-140.39 357.64,-96.49 298,-104.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.83,-145.4C575.8,-147.69 497.04,-150.04 429.5,-144.94"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_helio_coord~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-99.19C244.68,-95.15 230.09,-90.59 216.5,-86.35"/>
-<polygon fill="#000000" stroke="#000000" points="217.41,-82.96 206.82,-83.32 215.32,-89.64 217.41,-82.96"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_coord~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-189.19C245.63,-169.74 203.22,-119.96 182.19,-91.66"/>
-<polygon fill="#000000" stroke="#000000" points="184.84,-89.34 176.14,-83.3 179.17,-93.45 184.84,-89.34"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.75,-161.27C369.76,-175.56 317.04,-196.54 298,-189.19"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.53,-130.75C627.54,-117.87 597.41,-97.43 575.76,-82.74"/>
+<polygon fill="#000000" stroke="#000000" points="577.58,-79.75 567.34,-77.04 573.65,-85.55 577.58,-79.75"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_helio_coord~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-138.3C377.52,-134.52 362.86,-130.22 349.06,-126.17"/>
-<polygon fill="#000000" stroke="#000000" points="349.79,-122.74 339.21,-123.28 347.82,-129.46 349.79,-122.74"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-144.94C402.6,-143.05 374.93,-142.8 351.58,-143.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-139.63 341.52,-143.3 351.58,-146.63 351.46,-139.63"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_helio_drift.html b/docs/module/s_helio_drift.html
index f757eac83..d84b7791b 100644
--- a/docs/module/s_helio_drift.html
+++ b/docs/module/s_helio_drift.html
@@ -253,259 +253,259 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_helio_drift~~UsesGraph Pages: 1 -->
-<svg id="modules_helio_driftUsesGraph" width="641pt" height="175pt"
- viewBox="0.00 0.00 641.00 175.14" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_helio_drift~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 245.19)">
+<svg id="modules_helio_driftUsesGraph" width="641pt" height="189pt"
+ viewBox="0.00 0.00 641.00 189.41" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_helio_drift~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 265.48)">
 <title>module~~s_helio_drift~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-245.19 908,-245.19 908,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.48 908,-265.48 908,4 -4,4"/>
 <!-- module~s_helio_drift -->
 <g id="module~~s_helio_drift~~UsesGraph_node1" class="node">
 <title>module~s_helio_drift</title>
-<polygon fill="none" stroke="black" points="904,-141.19 834,-141.19 834,-117.19 904,-117.19 904,-141.19"/>
-<text text-anchor="middle" x="869" y="-126.79" font-family="Helvetica,sans-Serif" font-size="10.50">s_helio_drift</text>
+<polygon fill="none" stroke="black" points="904,-214.94 834,-214.94 834,-190.94 904,-190.94 904,-214.94"/>
+<text text-anchor="middle" x="869" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_helio_drift</text>
 </g>
 <!-- module~helio_classes -->
 <g id="module~~s_helio_drift~~UsesGraph_node2" class="node">
 <title>module~helio_classes</title>
 <g id="a_module~~s_helio_drift~~UsesGraph_node2"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-161.19 510.5,-161.19 510.5,-137.19 586.5,-137.19 586.5,-161.19"/>
-<text text-anchor="middle" x="548.5" y="-146.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-234.94 510.5,-234.94 510.5,-210.94 586.5,-210.94 586.5,-234.94"/>
+<text text-anchor="middle" x="548.5" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_helio_drift&#45;&gt;module~helio_classes -->
 <g id="module~~s_helio_drift~~UsesGraph_edge2" class="edge">
 <title>module~s_helio_drift&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M833.78,-132.7C793.7,-136.78 725.3,-143.67 666.5,-149.19"/>
+<path fill="none" stroke="#000000" d="M833.91,-205.08C776.83,-208.66 661.79,-215.88 596.88,-219.96"/>
+<polygon fill="#000000" stroke="#000000" points="596.28,-216.49 586.52,-220.61 596.72,-223.48 596.28,-216.49"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_helio_drift~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_helio_drift~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-121.19 744,-121.19 744,-97.19 798,-97.19 798,-121.19"/>
-<text text-anchor="middle" x="771" y="-106.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-194.94 744,-194.94 744,-170.94 798,-170.94 798,-194.94"/>
+<text text-anchor="middle" x="771" y="-180.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_helio_drift&#45;&gt;module~swiftest -->
 <g id="module~~s_helio_drift~~UsesGraph_edge1" class="edge">
 <title>module~s_helio_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.88,-122.08C825.53,-120.34 816.56,-118.47 808.12,-116.71"/>
-<polygon fill="#000000" stroke="#000000" points="808.66,-113.25 798.16,-114.64 807.24,-120.11 808.66,-113.25"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.88,-195.83C825.53,-194.09 816.56,-192.22 808.12,-190.46"/>
+<polygon fill="#000000" stroke="#000000" points="808.66,-187 798.16,-188.39 807.24,-193.85 808.66,-187"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_helio_drift~~UsesGraph_node8" class="node">
+<g id="module~~s_helio_drift~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_helio_drift~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-83.19 123,-83.19 123,-59.19 211,-59.19 211,-83.19"/>
-<text text-anchor="middle" x="167" y="-68.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_helio_drift~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-136.94 123,-136.94 123,-112.94 211,-112.94 211,-136.94"/>
+<text text-anchor="middle" x="167" y="-122.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_drift~~UsesGraph_edge5" class="edge">
+<g id="module~~s_helio_drift~~UsesGraph_edge3" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.89,-161.29C477.1,-182.06 376.37,-219.45 298,-189.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-224.94C370.5,-216.94 351.02,-247.33 298,-224.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-224.94C251.42,-206.11 209.09,-167.59 186.03,-144.24"/>
+<polygon fill="#000000" stroke="#000000" points="188.44,-141.7 178.97,-136.95 183.41,-146.57 188.44,-141.7"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_helio_drift~~UsesGraph_node8" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_helio_drift~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-116.94 390.5,-116.94 390.5,-92.94 466.5,-92.94 466.5,-116.94"/>
+<text text-anchor="middle" x="428.5" y="-102.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_helio_drift~~UsesGraph_edge4" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.88,-210.73C527.7,-191.9 502.3,-155.4 474,-130.94 470.56,-127.96 466.72,-125.14 462.79,-122.53"/>
+<polygon fill="#000000" stroke="#000000" points="464.49,-119.46 454.14,-117.18 460.81,-125.42 464.49,-119.46"/>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_helio_drift~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_helio_drift~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-123.19 252.5,-123.19 252.5,-99.19 341.5,-99.19 341.5,-123.19"/>
-<text text-anchor="middle" x="297" y="-108.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-156.94 252.5,-156.94 252.5,-132.94 341.5,-132.94 341.5,-156.94"/>
+<text text-anchor="middle" x="297" y="-142.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_edge3" class="edge">
+<g id="module~~s_helio_drift~~UsesGraph_edge5" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M527.29,-137C504.31,-124.42 465.34,-106.93 429.5,-109.19"/>
-</g>
-<!-- module~whm_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_helio_drift~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-161.19 390.5,-161.19 390.5,-137.19 466.5,-137.19 466.5,-161.19"/>
-<text text-anchor="middle" x="428.5" y="-146.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
-</a>
-</g>
-</g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_edge4" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.49,-149.19C499.83,-149.19 488.05,-149.19 476.86,-149.19"/>
-<polygon fill="#000000" stroke="#000000" points="476.79,-145.69 466.79,-149.19 476.79,-152.69 476.79,-145.69"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.38,-226.52C487.05,-228.04 456.38,-228.71 429.5,-224.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-224.94C383.25,-218.73 340.97,-185.83 317.35,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="319.48,-161.4 309.8,-157.08 314.68,-166.49 319.48,-161.4"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_edge6" class="edge">
+<g id="module~~s_helio_drift~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M749.05,-121.24C728.72,-131.96 696.61,-146.36 666.5,-149.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-149.19C642.31,-151.27 617.6,-151.54 596.79,-151.18"/>
-<polygon fill="#000000" stroke="#000000" points="596.69,-147.68 586.61,-150.95 596.53,-154.67 596.69,-147.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-182.94C635.56,-185.39 604.57,-196.73 582.06,-206.71"/>
+<polygon fill="#000000" stroke="#000000" points="580.59,-203.53 572.96,-210.88 583.51,-209.9 580.59,-203.53"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_drift~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.71,-194.7C708.76,-209.63 644.68,-234.57 587,-243.94 459.94,-264.55 416.58,-275.01 298,-224.94"/>
 </g>
 <!-- module~lambda_function -->
-<g id="module~~s_helio_drift~~UsesGraph_node4" class="node">
+<g id="module~~s_helio_drift~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
-<g id="a_module~~s_helio_drift~~UsesGraph_node4"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-241.19 383,-241.19 383,-217.19 474,-217.19 474,-241.19"/>
-<text text-anchor="middle" x="428.5" y="-226.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<g id="a_module~~s_helio_drift~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-36.94 383,-36.94 383,-12.94 474,-12.94 474,-36.94"/>
+<text text-anchor="middle" x="428.5" y="-22.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_helio_drift~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-229.19C526.83,-228.79 504.12,-228.7 484.19,-228.75"/>
-<polygon fill="#000000" stroke="#000000" points="484.04,-225.25 474.05,-228.78 484.06,-232.25 484.04,-225.25"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-24.94C527.51,-18.4 504.58,-17.1 484.28,-17.9"/>
+<polygon fill="#000000" stroke="#000000" points="484.03,-14.41 474.24,-18.47 484.42,-21.4 484.03,-14.41"/>
 </g>
 <!-- module~swiftest_operators -->
-<g id="module~~s_helio_drift~~UsesGraph_node5" class="node">
+<g id="module~~s_helio_drift~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
-<g id="a_module~~s_helio_drift~~UsesGraph_node5"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="347,-41.19 247,-41.19 247,-17.19 347,-17.19 347,-41.19"/>
-<text text-anchor="middle" x="297" y="-26.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<g id="a_module~~s_helio_drift~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-36.94 247,-36.94 247,-12.94 347,-12.94 347,-36.94"/>
+<text text-anchor="middle" x="297" y="-22.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_helio_drift~~UsesGraph_edge8" class="edge">
+<g id="module~~s_helio_drift~~UsesGraph_edge9" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-29.19C404.66,-27.46 379.5,-27.11 357.47,-27.31"/>
-<polygon fill="#000000" stroke="#000000" points="357.21,-23.81 347.26,-27.45 357.31,-30.81 357.21,-23.81"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.28,-170.91C745.16,-149.64 708.48,-105.61 666.5,-83.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-83.94C613.46,-57.58 604.1,-42.79 549.5,-24.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-24.94C477.45,-2.02 456.16,4.97 383,-3.94 371.56,-5.33 359.45,-7.74 348.06,-10.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-7.06 338.27,-12.87 348.82,-13.85 347.13,-7.06"/>
 </g>
 <!-- module~rmvs_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_node6" class="node">
+<g id="module~~s_helio_drift~~UsesGraph_node7" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_helio_drift~~UsesGraph_node6"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-81.19 510,-81.19 510,-57.19 587,-57.19 587,-81.19"/>
-<text text-anchor="middle" x="548.5" y="-66.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_helio_drift~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-76.94 510,-76.94 510,-52.94 587,-52.94 587,-76.94"/>
+<text text-anchor="middle" x="548.5" y="-62.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_edge9" class="edge">
+<g id="module~~s_helio_drift~~UsesGraph_edge13" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-29.19C632.78,-21.43 597.46,-37.61 574.44,-51.65"/>
-<polygon fill="#000000" stroke="#000000" points="572.5,-48.74 565.96,-57.07 576.27,-54.64 572.5,-48.74"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-83.94C643.83,-73.76 618.79,-68.88 597.37,-66.59"/>
+<polygon fill="#000000" stroke="#000000" points="597.45,-63.09 587.17,-65.67 596.81,-70.06 597.45,-63.09"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_helio_drift~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-83.94C656.21,-79.86 542.97,-91.95 476.76,-99.45"/>
+<polygon fill="#000000" stroke="#000000" points="476.1,-96 466.56,-100.61 476.9,-102.96 476.1,-96"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_helio_drift~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.57,-181.71C722.63,-181.03 692.64,-180.72 666.5,-182.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-182.94C553.17,-192.38 423.15,-171.25 351.77,-156.87"/>
+<polygon fill="#000000" stroke="#000000" points="352.17,-153.38 341.67,-154.8 350.77,-160.24 352.17,-153.38"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_node7" class="node">
+<g id="module~~s_helio_drift~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_helio_drift~~UsesGraph_node7"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-121.19 623,-121.19 623,-97.19 708,-97.19 708,-121.19"/>
-<text text-anchor="middle" x="665.5" y="-106.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_helio_drift~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-154.94 623,-154.94 623,-130.94 708,-130.94 708,-154.94"/>
+<text text-anchor="middle" x="665.5" y="-140.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_edge10" class="edge">
+<g id="module~~s_helio_drift~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-109.19C736.13,-109.19 727.36,-109.19 718.58,-109.19"/>
-<polygon fill="#000000" stroke="#000000" points="718.32,-105.69 708.32,-109.19 718.32,-112.69 718.32,-105.69"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-172.84C732.83,-168.57 719.68,-163.49 707.39,-158.74"/>
+<polygon fill="#000000" stroke="#000000" points="708.36,-155.36 697.77,-155.02 705.84,-161.89 708.36,-155.36"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_drift~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-29.19C495.73,-37.59 481.8,-33.14 429.5,-29.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-29.19C614.85,-17.05 599.95,-21 549.5,-29.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.49,-97.08C743.96,-77.31 707.75,-39.27 666.5,-29.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-29.19C390.63,-26.4 383.67,-12.89 347,-8.19 302.92,-2.53 288.95,6.49 247,-8.19 222.47,-16.77 199.87,-36.53 185.18,-51.64"/>
-<polygon fill="#000000" stroke="#000000" points="182.53,-49.35 178.26,-59.04 187.64,-54.13 182.53,-49.35"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_helio_drift~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_helio_drift~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-136.94 0,-136.94 0,-112.94 87,-112.94 87,-136.94"/>
+<text text-anchor="middle" x="43.5" y="-122.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-109.19C402.58,-110.76 374.9,-111.34 351.56,-111.5"/>
-<polygon fill="#000000" stroke="#000000" points="351.49,-108 341.5,-111.55 351.52,-115 351.49,-108"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-29.19C484.96,-39.34 492.74,-105.2 429.5,-109.19"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_edge13" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-229.19C506.38,-222.52 468.32,-190.03 447.07,-168.56"/>
-<polygon fill="#000000" stroke="#000000" points="449.48,-166.02 440.03,-161.22 444.42,-170.86 449.48,-166.02"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M759.52,-121.31C729.48,-154.56 639.41,-243.78 549.5,-229.19"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_helio_drift~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-124.94C114.58,-124.94 105.86,-124.94 97.36,-124.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-121.44 87.13,-124.94 97.13,-128.44 97.13,-121.44"/>
 </g>
 <!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_drift~~UsesGraph_edge14" class="edge">
+<g id="module~~s_helio_drift~~UsesGraph_edge15" class="edge">
 <title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M383.23,-217.16C357.97,-209.88 325.88,-199.95 298,-189.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-104.94C271.4,-108.7 244.16,-112.94 221.15,-116.55"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-113.1 211.24,-118.11 221.66,-120.02 220.58,-113.1"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-36.95C399.1,-41.29 390.64,-46.28 383,-50.94 344.78,-74.23 342.24,-98.17 298,-104.94"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_drift~~UsesGraph_edge15" class="edge">
+<g id="module~~s_helio_drift~~UsesGraph_edge16" class="edge">
 <title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.32,-41.22C245.26,-45.84 229.04,-51.16 214.2,-56.03"/>
-<polygon fill="#000000" stroke="#000000" points="213.1,-52.71 204.69,-59.15 215.28,-59.36 213.1,-52.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-37C258.46,-54.27 217.61,-86.18 191.67,-106.44"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-103.92 183.49,-112.83 193.53,-109.43 189.22,-103.92"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_helio_drift~~UsesGraph_edge17" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.98,-71.57C486.77,-72.61 456.37,-73.19 429.5,-71.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-71.19C356.32,-65.88 273.85,-67.14 221.33,-68.88"/>
-<polygon fill="#000000" stroke="#000000" points="221.11,-65.38 211.23,-69.23 221.35,-72.38 221.11,-65.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-67.92C476.26,-70.9 426.14,-76.15 383,-83.94 344.71,-90.85 336.47,-99.05 298,-104.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_edge16" class="edge">
+<g id="module~~s_helio_drift~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M529.43,-81.42C523.22,-85.71 516.26,-90.59 510,-95.19 493.67,-107.19 490.79,-111.83 474,-123.19 469.66,-126.12 464.99,-129.07 460.35,-131.88"/>
-<polygon fill="#000000" stroke="#000000" points="458.41,-128.96 451.58,-137.06 461.97,-134.99 458.41,-128.96"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630,-121.19C618.73,-125.11 606.05,-129.52 594.15,-133.66"/>
-<polygon fill="#000000" stroke="#000000" points="592.67,-130.47 584.38,-137.06 594.97,-137.08 592.67,-130.47"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-76.94C500.42,-80.9 487.26,-85.35 474.94,-89.53"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-86.28 465.29,-92.8 475.88,-92.91 473.63,-86.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_helio_drift~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630,-97.19C618.73,-93.27 606.05,-88.86 594.15,-84.72"/>
-<polygon fill="#000000" stroke="#000000" points="594.97,-81.3 584.38,-81.32 592.67,-87.91 594.97,-81.3"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-101.97C364.42,-100.62 328.89,-100.21 298,-104.94"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_helio_drift~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.92,-110.76C601.04,-111.19 573.78,-111.1 549.5,-109.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-109.19C492.57,-104.87 484.39,-75.91 429.5,-71.19"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_drift~~UsesGraph_edge18" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-109.19C495.22,-105.08 481.84,-105.89 429.5,-109.19"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-116.4C376.79,-120.6 361.18,-125.42 346.71,-129.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-126.62 336.92,-132.91 347.51,-133.31 345.44,-126.62"/>
 </g>
-<!-- iso_fortran_env -->
-<g id="module~~s_helio_drift~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_helio_drift~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-83.19 0,-83.19 0,-59.19 87,-59.19 87,-83.19"/>
-<text text-anchor="middle" x="43.5" y="-68.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_drift~~UsesGraph_edge21" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-138.11C242.31,-136.55 231.58,-134.87 221.24,-133.25"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-129.75 211.06,-131.66 220.4,-136.67 221.48,-129.75"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_helio_drift~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.47,-155.07C637.59,-159.35 629.89,-164.25 623,-168.94 606.19,-180.36 587.76,-193.9 573.56,-204.57"/>
+<polygon fill="#000000" stroke="#000000" points="571.18,-201.97 565.31,-210.79 575.4,-207.56 571.18,-201.97"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_helio_drift~~UsesGraph_edge22" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-71.19C114.58,-71.19 105.86,-71.19 97.36,-71.19"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-67.69 87.13,-71.19 97.13,-74.69 97.13,-67.69"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-144.94C367.43,-140.39 357.64,-96.49 298,-104.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.83,-145.4C575.8,-147.69 497.04,-150.04 429.5,-144.94"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_helio_drift~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-99.19C244.68,-95.15 230.09,-90.59 216.5,-86.35"/>
-<polygon fill="#000000" stroke="#000000" points="217.41,-82.96 206.82,-83.32 215.32,-89.64 217.41,-82.96"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_drift~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-189.19C245.63,-169.74 203.22,-119.96 182.19,-91.66"/>
-<polygon fill="#000000" stroke="#000000" points="184.84,-89.34 176.14,-83.3 179.17,-93.45 184.84,-89.34"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.75,-161.27C369.76,-175.56 317.04,-196.54 298,-189.19"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.53,-130.75C627.54,-117.87 597.41,-97.43 575.76,-82.74"/>
+<polygon fill="#000000" stroke="#000000" points="577.58,-79.75 567.34,-77.04 573.65,-85.55 577.58,-79.75"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_helio_drift~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-138.3C377.52,-134.52 362.86,-130.22 349.06,-126.17"/>
-<polygon fill="#000000" stroke="#000000" points="349.79,-122.74 339.21,-123.28 347.82,-129.46 349.79,-122.74"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-144.94C402.6,-143.05 374.93,-142.8 351.58,-143.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-139.63 341.52,-143.3 351.58,-146.63 351.46,-139.63"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_helio_gr.html b/docs/module/s_helio_gr.html
index ac6ce7d2c..5079c011c 100644
--- a/docs/module/s_helio_gr.html
+++ b/docs/module/s_helio_gr.html
@@ -134,7 +134,7 @@ <h1>s_helio_gr
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.5% of total for modules and submodules.">60 statements</a>
+    title=" 0.4% of total for modules and submodules.">60 statements</a>
      </li> 
      
      
@@ -251,259 +251,259 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_helio_gr~~UsesGraph Pages: 1 -->
-<svg id="modules_helio_grUsesGraph" width="641pt" height="177pt"
- viewBox="0.00 0.00 641.00 176.69" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_helio_gr~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 245.19)">
+<svg id="modules_helio_grUsesGraph" width="641pt" height="191pt"
+ viewBox="0.00 0.00 641.00 191.08" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_helio_gr~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 265.48)">
 <title>module~~s_helio_gr~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-245.19 900,-245.19 900,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.48 900,-265.48 900,4 -4,4"/>
 <!-- module~s_helio_gr -->
 <g id="module~~s_helio_gr~~UsesGraph_node1" class="node">
 <title>module~s_helio_gr</title>
-<polygon fill="none" stroke="black" points="896,-141.19 834,-141.19 834,-117.19 896,-117.19 896,-141.19"/>
-<text text-anchor="middle" x="865" y="-126.79" font-family="Helvetica,sans-Serif" font-size="10.50">s_helio_gr</text>
+<polygon fill="none" stroke="black" points="896,-214.94 834,-214.94 834,-190.94 896,-190.94 896,-214.94"/>
+<text text-anchor="middle" x="865" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_helio_gr</text>
 </g>
 <!-- module~helio_classes -->
 <g id="module~~s_helio_gr~~UsesGraph_node2" class="node">
 <title>module~helio_classes</title>
 <g id="a_module~~s_helio_gr~~UsesGraph_node2"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-161.19 510.5,-161.19 510.5,-137.19 586.5,-137.19 586.5,-161.19"/>
-<text text-anchor="middle" x="548.5" y="-146.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-234.94 510.5,-234.94 510.5,-210.94 586.5,-210.94 586.5,-234.94"/>
+<text text-anchor="middle" x="548.5" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_helio_gr&#45;&gt;module~helio_classes -->
 <g id="module~~s_helio_gr~~UsesGraph_edge2" class="edge">
 <title>module~s_helio_gr&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M833.9,-132.37C795.19,-136.44 725.86,-143.61 666.5,-149.19"/>
+<path fill="none" stroke="#000000" d="M833.84,-204.85C778.97,-208.34 662.43,-215.75 596.86,-219.92"/>
+<polygon fill="#000000" stroke="#000000" points="596.55,-216.44 586.79,-220.56 596.99,-223.42 596.55,-216.44"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_helio_gr~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_helio_gr~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-121.19 744,-121.19 744,-97.19 798,-97.19 798,-121.19"/>
-<text text-anchor="middle" x="771" y="-106.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-194.94 744,-194.94 744,-170.94 798,-170.94 798,-194.94"/>
+<text text-anchor="middle" x="771" y="-180.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_helio_gr&#45;&gt;module~swiftest -->
 <g id="module~~s_helio_gr~~UsesGraph_edge1" class="edge">
 <title>module~s_helio_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.88,-122.64C825.68,-120.86 816.72,-118.91 808.22,-117.06"/>
-<polygon fill="#000000" stroke="#000000" points="808.69,-113.58 798.17,-114.88 807.2,-120.42 808.69,-113.58"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.88,-196.39C825.68,-194.61 816.72,-192.66 808.22,-190.81"/>
+<polygon fill="#000000" stroke="#000000" points="808.69,-187.33 798.17,-188.63 807.2,-194.17 808.69,-187.33"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_helio_gr~~UsesGraph_node8" class="node">
+<g id="module~~s_helio_gr~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_helio_gr~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-83.19 123,-83.19 123,-59.19 211,-59.19 211,-83.19"/>
-<text text-anchor="middle" x="167" y="-68.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_helio_gr~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-136.94 123,-136.94 123,-112.94 211,-112.94 211,-136.94"/>
+<text text-anchor="middle" x="167" y="-122.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_gr~~UsesGraph_edge5" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge3" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.89,-161.29C477.1,-182.06 376.37,-219.45 298,-189.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-224.94C370.5,-216.94 351.02,-247.33 298,-224.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-224.94C251.42,-206.11 209.09,-167.59 186.03,-144.24"/>
+<polygon fill="#000000" stroke="#000000" points="188.44,-141.7 178.97,-136.95 183.41,-146.57 188.44,-141.7"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_helio_gr~~UsesGraph_node8" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_helio_gr~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-116.94 390.5,-116.94 390.5,-92.94 466.5,-92.94 466.5,-116.94"/>
+<text text-anchor="middle" x="428.5" y="-102.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_helio_gr~~UsesGraph_edge4" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.88,-210.73C527.7,-191.9 502.3,-155.4 474,-130.94 470.56,-127.96 466.72,-125.14 462.79,-122.53"/>
+<polygon fill="#000000" stroke="#000000" points="464.49,-119.46 454.14,-117.18 460.81,-125.42 464.49,-119.46"/>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_helio_gr~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_helio_gr~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-123.19 252.5,-123.19 252.5,-99.19 341.5,-99.19 341.5,-123.19"/>
-<text text-anchor="middle" x="297" y="-108.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-156.94 252.5,-156.94 252.5,-132.94 341.5,-132.94 341.5,-156.94"/>
+<text text-anchor="middle" x="297" y="-142.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_edge3" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge5" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M527.29,-137C504.31,-124.42 465.34,-106.93 429.5,-109.19"/>
-</g>
-<!-- module~whm_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_helio_gr~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-161.19 390.5,-161.19 390.5,-137.19 466.5,-137.19 466.5,-161.19"/>
-<text text-anchor="middle" x="428.5" y="-146.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
-</a>
-</g>
-</g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_edge4" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.49,-149.19C499.83,-149.19 488.05,-149.19 476.86,-149.19"/>
-<polygon fill="#000000" stroke="#000000" points="476.79,-145.69 466.79,-149.19 476.79,-152.69 476.79,-145.69"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.38,-226.52C487.05,-228.04 456.38,-228.71 429.5,-224.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-224.94C383.25,-218.73 340.97,-185.83 317.35,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="319.48,-161.4 309.8,-157.08 314.68,-166.49 319.48,-161.4"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_edge6" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M749.05,-121.24C728.72,-131.96 696.61,-146.36 666.5,-149.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-149.19C642.31,-151.27 617.6,-151.54 596.79,-151.18"/>
-<polygon fill="#000000" stroke="#000000" points="596.69,-147.68 586.61,-150.95 596.53,-154.67 596.69,-147.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-182.94C635.56,-185.39 604.57,-196.73 582.06,-206.71"/>
+<polygon fill="#000000" stroke="#000000" points="580.59,-203.53 572.96,-210.88 583.51,-209.9 580.59,-203.53"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_gr~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.71,-194.7C708.76,-209.63 644.68,-234.57 587,-243.94 459.94,-264.55 416.58,-275.01 298,-224.94"/>
 </g>
 <!-- module~lambda_function -->
-<g id="module~~s_helio_gr~~UsesGraph_node4" class="node">
+<g id="module~~s_helio_gr~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
-<g id="a_module~~s_helio_gr~~UsesGraph_node4"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-241.19 383,-241.19 383,-217.19 474,-217.19 474,-241.19"/>
-<text text-anchor="middle" x="428.5" y="-226.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<g id="a_module~~s_helio_gr~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-36.94 383,-36.94 383,-12.94 474,-12.94 474,-36.94"/>
+<text text-anchor="middle" x="428.5" y="-22.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_helio_gr~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-229.19C526.83,-228.79 504.12,-228.7 484.19,-228.75"/>
-<polygon fill="#000000" stroke="#000000" points="484.04,-225.25 474.05,-228.78 484.06,-232.25 484.04,-225.25"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-24.94C527.51,-18.4 504.58,-17.1 484.28,-17.9"/>
+<polygon fill="#000000" stroke="#000000" points="484.03,-14.41 474.24,-18.47 484.42,-21.4 484.03,-14.41"/>
 </g>
 <!-- module~swiftest_operators -->
-<g id="module~~s_helio_gr~~UsesGraph_node5" class="node">
+<g id="module~~s_helio_gr~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
-<g id="a_module~~s_helio_gr~~UsesGraph_node5"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="347,-41.19 247,-41.19 247,-17.19 347,-17.19 347,-41.19"/>
-<text text-anchor="middle" x="297" y="-26.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<g id="a_module~~s_helio_gr~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-36.94 247,-36.94 247,-12.94 347,-12.94 347,-36.94"/>
+<text text-anchor="middle" x="297" y="-22.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_helio_gr~~UsesGraph_edge8" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge9" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-29.19C404.66,-27.46 379.5,-27.11 357.47,-27.31"/>
-<polygon fill="#000000" stroke="#000000" points="357.21,-23.81 347.26,-27.45 357.31,-30.81 357.21,-23.81"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.28,-170.91C745.16,-149.64 708.48,-105.61 666.5,-83.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-83.94C613.46,-57.58 604.1,-42.79 549.5,-24.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-24.94C477.45,-2.02 456.16,4.97 383,-3.94 371.56,-5.33 359.45,-7.74 348.06,-10.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-7.06 338.27,-12.87 348.82,-13.85 347.13,-7.06"/>
 </g>
 <!-- module~rmvs_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_node6" class="node">
+<g id="module~~s_helio_gr~~UsesGraph_node7" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_helio_gr~~UsesGraph_node6"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-81.19 510,-81.19 510,-57.19 587,-57.19 587,-81.19"/>
-<text text-anchor="middle" x="548.5" y="-66.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_helio_gr~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-76.94 510,-76.94 510,-52.94 587,-52.94 587,-76.94"/>
+<text text-anchor="middle" x="548.5" y="-62.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_edge9" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge13" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-29.19C632.78,-21.43 597.46,-37.61 574.44,-51.65"/>
-<polygon fill="#000000" stroke="#000000" points="572.5,-48.74 565.96,-57.07 576.27,-54.64 572.5,-48.74"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-83.94C643.83,-73.76 618.79,-68.88 597.37,-66.59"/>
+<polygon fill="#000000" stroke="#000000" points="597.45,-63.09 587.17,-65.67 596.81,-70.06 597.45,-63.09"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_helio_gr~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-83.94C656.21,-79.86 542.97,-91.95 476.76,-99.45"/>
+<polygon fill="#000000" stroke="#000000" points="476.1,-96 466.56,-100.61 476.9,-102.96 476.1,-96"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_helio_gr~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.57,-181.71C722.63,-181.03 692.64,-180.72 666.5,-182.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-182.94C553.17,-192.38 423.15,-171.25 351.77,-156.87"/>
+<polygon fill="#000000" stroke="#000000" points="352.17,-153.38 341.67,-154.8 350.77,-160.24 352.17,-153.38"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_node7" class="node">
+<g id="module~~s_helio_gr~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_helio_gr~~UsesGraph_node7"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-121.19 623,-121.19 623,-97.19 708,-97.19 708,-121.19"/>
-<text text-anchor="middle" x="665.5" y="-106.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_helio_gr~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-154.94 623,-154.94 623,-130.94 708,-130.94 708,-154.94"/>
+<text text-anchor="middle" x="665.5" y="-140.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_edge10" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-109.19C736.13,-109.19 727.36,-109.19 718.58,-109.19"/>
-<polygon fill="#000000" stroke="#000000" points="718.32,-105.69 708.32,-109.19 718.32,-112.69 718.32,-105.69"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-172.84C732.83,-168.57 719.68,-163.49 707.39,-158.74"/>
+<polygon fill="#000000" stroke="#000000" points="708.36,-155.36 697.77,-155.02 705.84,-161.89 708.36,-155.36"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_gr~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-29.19C495.73,-37.59 481.8,-33.14 429.5,-29.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-29.19C614.85,-17.05 599.95,-21 549.5,-29.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.49,-97.08C743.96,-77.31 707.75,-39.27 666.5,-29.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-29.19C390.63,-26.4 383.67,-12.89 347,-8.19 302.92,-2.53 288.95,6.49 247,-8.19 222.47,-16.77 199.87,-36.53 185.18,-51.64"/>
-<polygon fill="#000000" stroke="#000000" points="182.53,-49.35 178.26,-59.04 187.64,-54.13 182.53,-49.35"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_helio_gr~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_helio_gr~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-136.94 0,-136.94 0,-112.94 87,-112.94 87,-136.94"/>
+<text text-anchor="middle" x="43.5" y="-122.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-109.19C402.58,-110.76 374.9,-111.34 351.56,-111.5"/>
-<polygon fill="#000000" stroke="#000000" points="351.49,-108 341.5,-111.55 351.52,-115 351.49,-108"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-29.19C484.96,-39.34 492.74,-105.2 429.5,-109.19"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_edge13" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-229.19C506.38,-222.52 468.32,-190.03 447.07,-168.56"/>
-<polygon fill="#000000" stroke="#000000" points="449.48,-166.02 440.03,-161.22 444.42,-170.86 449.48,-166.02"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M759.52,-121.31C729.48,-154.56 639.41,-243.78 549.5,-229.19"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_helio_gr~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-124.94C114.58,-124.94 105.86,-124.94 97.36,-124.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-121.44 87.13,-124.94 97.13,-128.44 97.13,-121.44"/>
 </g>
 <!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_gr~~UsesGraph_edge14" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge15" class="edge">
 <title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M383.23,-217.16C357.97,-209.88 325.88,-199.95 298,-189.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-104.94C271.4,-108.7 244.16,-112.94 221.15,-116.55"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-113.1 211.24,-118.11 221.66,-120.02 220.58,-113.1"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-36.95C399.1,-41.29 390.64,-46.28 383,-50.94 344.78,-74.23 342.24,-98.17 298,-104.94"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_gr~~UsesGraph_edge15" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge16" class="edge">
 <title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.32,-41.22C245.26,-45.84 229.04,-51.16 214.2,-56.03"/>
-<polygon fill="#000000" stroke="#000000" points="213.1,-52.71 204.69,-59.15 215.28,-59.36 213.1,-52.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-37C258.46,-54.27 217.61,-86.18 191.67,-106.44"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-103.92 183.49,-112.83 193.53,-109.43 189.22,-103.92"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_helio_gr~~UsesGraph_edge17" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.98,-71.57C486.77,-72.61 456.37,-73.19 429.5,-71.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-71.19C356.32,-65.88 273.85,-67.14 221.33,-68.88"/>
-<polygon fill="#000000" stroke="#000000" points="221.11,-65.38 211.23,-69.23 221.35,-72.38 221.11,-65.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-67.92C476.26,-70.9 426.14,-76.15 383,-83.94 344.71,-90.85 336.47,-99.05 298,-104.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_edge16" class="edge">
+<g id="module~~s_helio_gr~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M529.43,-81.42C523.22,-85.71 516.26,-90.59 510,-95.19 493.67,-107.19 490.79,-111.83 474,-123.19 469.66,-126.12 464.99,-129.07 460.35,-131.88"/>
-<polygon fill="#000000" stroke="#000000" points="458.41,-128.96 451.58,-137.06 461.97,-134.99 458.41,-128.96"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630,-121.19C618.73,-125.11 606.05,-129.52 594.15,-133.66"/>
-<polygon fill="#000000" stroke="#000000" points="592.67,-130.47 584.38,-137.06 594.97,-137.08 592.67,-130.47"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-76.94C500.42,-80.9 487.26,-85.35 474.94,-89.53"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-86.28 465.29,-92.8 475.88,-92.91 473.63,-86.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_helio_gr~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630,-97.19C618.73,-93.27 606.05,-88.86 594.15,-84.72"/>
-<polygon fill="#000000" stroke="#000000" points="594.97,-81.3 584.38,-81.32 592.67,-87.91 594.97,-81.3"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-101.97C364.42,-100.62 328.89,-100.21 298,-104.94"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_helio_gr~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.92,-110.76C601.04,-111.19 573.78,-111.1 549.5,-109.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-109.19C492.57,-104.87 484.39,-75.91 429.5,-71.19"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_gr~~UsesGraph_edge18" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-109.19C495.22,-105.08 481.84,-105.89 429.5,-109.19"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-116.4C376.79,-120.6 361.18,-125.42 346.71,-129.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-126.62 336.92,-132.91 347.51,-133.31 345.44,-126.62"/>
 </g>
-<!-- iso_fortran_env -->
-<g id="module~~s_helio_gr~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_helio_gr~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-83.19 0,-83.19 0,-59.19 87,-59.19 87,-83.19"/>
-<text text-anchor="middle" x="43.5" y="-68.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_gr~~UsesGraph_edge21" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-138.11C242.31,-136.55 231.58,-134.87 221.24,-133.25"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-129.75 211.06,-131.66 220.4,-136.67 221.48,-129.75"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_helio_gr~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.47,-155.07C637.59,-159.35 629.89,-164.25 623,-168.94 606.19,-180.36 587.76,-193.9 573.56,-204.57"/>
+<polygon fill="#000000" stroke="#000000" points="571.18,-201.97 565.31,-210.79 575.4,-207.56 571.18,-201.97"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_helio_gr~~UsesGraph_edge22" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-71.19C114.58,-71.19 105.86,-71.19 97.36,-71.19"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-67.69 87.13,-71.19 97.13,-74.69 97.13,-67.69"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-144.94C367.43,-140.39 357.64,-96.49 298,-104.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.83,-145.4C575.8,-147.69 497.04,-150.04 429.5,-144.94"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_helio_gr~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-99.19C244.68,-95.15 230.09,-90.59 216.5,-86.35"/>
-<polygon fill="#000000" stroke="#000000" points="217.41,-82.96 206.82,-83.32 215.32,-89.64 217.41,-82.96"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_gr~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-189.19C245.63,-169.74 203.22,-119.96 182.19,-91.66"/>
-<polygon fill="#000000" stroke="#000000" points="184.84,-89.34 176.14,-83.3 179.17,-93.45 184.84,-89.34"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.75,-161.27C369.76,-175.56 317.04,-196.54 298,-189.19"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.53,-130.75C627.54,-117.87 597.41,-97.43 575.76,-82.74"/>
+<polygon fill="#000000" stroke="#000000" points="577.58,-79.75 567.34,-77.04 573.65,-85.55 577.58,-79.75"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_helio_gr~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-138.3C377.52,-134.52 362.86,-130.22 349.06,-126.17"/>
-<polygon fill="#000000" stroke="#000000" points="349.79,-122.74 339.21,-123.28 347.82,-129.46 349.79,-122.74"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-144.94C402.6,-143.05 374.93,-142.8 351.58,-143.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-139.63 341.52,-143.3 351.58,-146.63 351.46,-139.63"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_helio_kick.html b/docs/module/s_helio_kick.html
index 957f068f0..0c9386a92 100644
--- a/docs/module/s_helio_kick.html
+++ b/docs/module/s_helio_kick.html
@@ -251,259 +251,259 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_helio_kick~~UsesGraph Pages: 1 -->
-<svg id="modules_helio_kickUsesGraph" width="641pt" height="175pt"
- viewBox="0.00 0.00 641.00 175.14" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_helio_kick~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 245.19)">
+<svg id="modules_helio_kickUsesGraph" width="641pt" height="189pt"
+ viewBox="0.00 0.00 641.00 189.41" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_helio_kick~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 265.48)">
 <title>module~~s_helio_kick~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-245.19 908,-245.19 908,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.48 908,-265.48 908,4 -4,4"/>
 <!-- module~s_helio_kick -->
 <g id="module~~s_helio_kick~~UsesGraph_node1" class="node">
 <title>module~s_helio_kick</title>
-<polygon fill="none" stroke="black" points="904,-141.19 834,-141.19 834,-117.19 904,-117.19 904,-141.19"/>
-<text text-anchor="middle" x="869" y="-126.79" font-family="Helvetica,sans-Serif" font-size="10.50">s_helio_kick</text>
+<polygon fill="none" stroke="black" points="904,-214.94 834,-214.94 834,-190.94 904,-190.94 904,-214.94"/>
+<text text-anchor="middle" x="869" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_helio_kick</text>
 </g>
 <!-- module~helio_classes -->
 <g id="module~~s_helio_kick~~UsesGraph_node2" class="node">
 <title>module~helio_classes</title>
 <g id="a_module~~s_helio_kick~~UsesGraph_node2"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-161.19 510.5,-161.19 510.5,-137.19 586.5,-137.19 586.5,-161.19"/>
-<text text-anchor="middle" x="548.5" y="-146.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-234.94 510.5,-234.94 510.5,-210.94 586.5,-210.94 586.5,-234.94"/>
+<text text-anchor="middle" x="548.5" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_helio_kick&#45;&gt;module~helio_classes -->
 <g id="module~~s_helio_kick~~UsesGraph_edge2" class="edge">
 <title>module~s_helio_kick&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M833.78,-132.7C793.7,-136.78 725.3,-143.67 666.5,-149.19"/>
+<path fill="none" stroke="#000000" d="M833.91,-205.08C776.83,-208.66 661.79,-215.88 596.88,-219.96"/>
+<polygon fill="#000000" stroke="#000000" points="596.28,-216.49 586.52,-220.61 596.72,-223.48 596.28,-216.49"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_helio_kick~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_helio_kick~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-121.19 744,-121.19 744,-97.19 798,-97.19 798,-121.19"/>
-<text text-anchor="middle" x="771" y="-106.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-194.94 744,-194.94 744,-170.94 798,-170.94 798,-194.94"/>
+<text text-anchor="middle" x="771" y="-180.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_helio_kick&#45;&gt;module~swiftest -->
 <g id="module~~s_helio_kick~~UsesGraph_edge1" class="edge">
 <title>module~s_helio_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.88,-122.08C825.53,-120.34 816.56,-118.47 808.12,-116.71"/>
-<polygon fill="#000000" stroke="#000000" points="808.66,-113.25 798.16,-114.64 807.24,-120.11 808.66,-113.25"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.88,-195.83C825.53,-194.09 816.56,-192.22 808.12,-190.46"/>
+<polygon fill="#000000" stroke="#000000" points="808.66,-187 798.16,-188.39 807.24,-193.85 808.66,-187"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_helio_kick~~UsesGraph_node8" class="node">
+<g id="module~~s_helio_kick~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_helio_kick~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-83.19 123,-83.19 123,-59.19 211,-59.19 211,-83.19"/>
-<text text-anchor="middle" x="167" y="-68.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_helio_kick~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-136.94 123,-136.94 123,-112.94 211,-112.94 211,-136.94"/>
+<text text-anchor="middle" x="167" y="-122.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_kick~~UsesGraph_edge5" class="edge">
+<g id="module~~s_helio_kick~~UsesGraph_edge3" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.89,-161.29C477.1,-182.06 376.37,-219.45 298,-189.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-224.94C370.5,-216.94 351.02,-247.33 298,-224.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-224.94C251.42,-206.11 209.09,-167.59 186.03,-144.24"/>
+<polygon fill="#000000" stroke="#000000" points="188.44,-141.7 178.97,-136.95 183.41,-146.57 188.44,-141.7"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_helio_kick~~UsesGraph_node8" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_helio_kick~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-116.94 390.5,-116.94 390.5,-92.94 466.5,-92.94 466.5,-116.94"/>
+<text text-anchor="middle" x="428.5" y="-102.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_helio_kick~~UsesGraph_edge4" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.88,-210.73C527.7,-191.9 502.3,-155.4 474,-130.94 470.56,-127.96 466.72,-125.14 462.79,-122.53"/>
+<polygon fill="#000000" stroke="#000000" points="464.49,-119.46 454.14,-117.18 460.81,-125.42 464.49,-119.46"/>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_helio_kick~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_helio_kick~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-123.19 252.5,-123.19 252.5,-99.19 341.5,-99.19 341.5,-123.19"/>
-<text text-anchor="middle" x="297" y="-108.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-156.94 252.5,-156.94 252.5,-132.94 341.5,-132.94 341.5,-156.94"/>
+<text text-anchor="middle" x="297" y="-142.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_edge3" class="edge">
+<g id="module~~s_helio_kick~~UsesGraph_edge5" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M527.29,-137C504.31,-124.42 465.34,-106.93 429.5,-109.19"/>
-</g>
-<!-- module~whm_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_helio_kick~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-161.19 390.5,-161.19 390.5,-137.19 466.5,-137.19 466.5,-161.19"/>
-<text text-anchor="middle" x="428.5" y="-146.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
-</a>
-</g>
-</g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_edge4" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.49,-149.19C499.83,-149.19 488.05,-149.19 476.86,-149.19"/>
-<polygon fill="#000000" stroke="#000000" points="476.79,-145.69 466.79,-149.19 476.79,-152.69 476.79,-145.69"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.38,-226.52C487.05,-228.04 456.38,-228.71 429.5,-224.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-224.94C383.25,-218.73 340.97,-185.83 317.35,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="319.48,-161.4 309.8,-157.08 314.68,-166.49 319.48,-161.4"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_edge6" class="edge">
+<g id="module~~s_helio_kick~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M749.05,-121.24C728.72,-131.96 696.61,-146.36 666.5,-149.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-149.19C642.31,-151.27 617.6,-151.54 596.79,-151.18"/>
-<polygon fill="#000000" stroke="#000000" points="596.69,-147.68 586.61,-150.95 596.53,-154.67 596.69,-147.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-182.94C635.56,-185.39 604.57,-196.73 582.06,-206.71"/>
+<polygon fill="#000000" stroke="#000000" points="580.59,-203.53 572.96,-210.88 583.51,-209.9 580.59,-203.53"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_kick~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.71,-194.7C708.76,-209.63 644.68,-234.57 587,-243.94 459.94,-264.55 416.58,-275.01 298,-224.94"/>
 </g>
 <!-- module~lambda_function -->
-<g id="module~~s_helio_kick~~UsesGraph_node4" class="node">
+<g id="module~~s_helio_kick~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
-<g id="a_module~~s_helio_kick~~UsesGraph_node4"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-241.19 383,-241.19 383,-217.19 474,-217.19 474,-241.19"/>
-<text text-anchor="middle" x="428.5" y="-226.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<g id="a_module~~s_helio_kick~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-36.94 383,-36.94 383,-12.94 474,-12.94 474,-36.94"/>
+<text text-anchor="middle" x="428.5" y="-22.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_helio_kick~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-229.19C526.83,-228.79 504.12,-228.7 484.19,-228.75"/>
-<polygon fill="#000000" stroke="#000000" points="484.04,-225.25 474.05,-228.78 484.06,-232.25 484.04,-225.25"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-24.94C527.51,-18.4 504.58,-17.1 484.28,-17.9"/>
+<polygon fill="#000000" stroke="#000000" points="484.03,-14.41 474.24,-18.47 484.42,-21.4 484.03,-14.41"/>
 </g>
 <!-- module~swiftest_operators -->
-<g id="module~~s_helio_kick~~UsesGraph_node5" class="node">
+<g id="module~~s_helio_kick~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
-<g id="a_module~~s_helio_kick~~UsesGraph_node5"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="347,-41.19 247,-41.19 247,-17.19 347,-17.19 347,-41.19"/>
-<text text-anchor="middle" x="297" y="-26.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<g id="a_module~~s_helio_kick~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-36.94 247,-36.94 247,-12.94 347,-12.94 347,-36.94"/>
+<text text-anchor="middle" x="297" y="-22.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_helio_kick~~UsesGraph_edge8" class="edge">
+<g id="module~~s_helio_kick~~UsesGraph_edge9" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-29.19C404.66,-27.46 379.5,-27.11 357.47,-27.31"/>
-<polygon fill="#000000" stroke="#000000" points="357.21,-23.81 347.26,-27.45 357.31,-30.81 357.21,-23.81"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.28,-170.91C745.16,-149.64 708.48,-105.61 666.5,-83.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-83.94C613.46,-57.58 604.1,-42.79 549.5,-24.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-24.94C477.45,-2.02 456.16,4.97 383,-3.94 371.56,-5.33 359.45,-7.74 348.06,-10.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-7.06 338.27,-12.87 348.82,-13.85 347.13,-7.06"/>
 </g>
 <!-- module~rmvs_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_node6" class="node">
+<g id="module~~s_helio_kick~~UsesGraph_node7" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_helio_kick~~UsesGraph_node6"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-81.19 510,-81.19 510,-57.19 587,-57.19 587,-81.19"/>
-<text text-anchor="middle" x="548.5" y="-66.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_helio_kick~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-76.94 510,-76.94 510,-52.94 587,-52.94 587,-76.94"/>
+<text text-anchor="middle" x="548.5" y="-62.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_edge9" class="edge">
+<g id="module~~s_helio_kick~~UsesGraph_edge13" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-29.19C632.78,-21.43 597.46,-37.61 574.44,-51.65"/>
-<polygon fill="#000000" stroke="#000000" points="572.5,-48.74 565.96,-57.07 576.27,-54.64 572.5,-48.74"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-83.94C643.83,-73.76 618.79,-68.88 597.37,-66.59"/>
+<polygon fill="#000000" stroke="#000000" points="597.45,-63.09 587.17,-65.67 596.81,-70.06 597.45,-63.09"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_helio_kick~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-83.94C656.21,-79.86 542.97,-91.95 476.76,-99.45"/>
+<polygon fill="#000000" stroke="#000000" points="476.1,-96 466.56,-100.61 476.9,-102.96 476.1,-96"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_helio_kick~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.57,-181.71C722.63,-181.03 692.64,-180.72 666.5,-182.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-182.94C553.17,-192.38 423.15,-171.25 351.77,-156.87"/>
+<polygon fill="#000000" stroke="#000000" points="352.17,-153.38 341.67,-154.8 350.77,-160.24 352.17,-153.38"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_node7" class="node">
+<g id="module~~s_helio_kick~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_helio_kick~~UsesGraph_node7"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-121.19 623,-121.19 623,-97.19 708,-97.19 708,-121.19"/>
-<text text-anchor="middle" x="665.5" y="-106.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_helio_kick~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-154.94 623,-154.94 623,-130.94 708,-130.94 708,-154.94"/>
+<text text-anchor="middle" x="665.5" y="-140.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_edge10" class="edge">
+<g id="module~~s_helio_kick~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-109.19C736.13,-109.19 727.36,-109.19 718.58,-109.19"/>
-<polygon fill="#000000" stroke="#000000" points="718.32,-105.69 708.32,-109.19 718.32,-112.69 718.32,-105.69"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-172.84C732.83,-168.57 719.68,-163.49 707.39,-158.74"/>
+<polygon fill="#000000" stroke="#000000" points="708.36,-155.36 697.77,-155.02 705.84,-161.89 708.36,-155.36"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_kick~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-29.19C495.73,-37.59 481.8,-33.14 429.5,-29.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-29.19C614.85,-17.05 599.95,-21 549.5,-29.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.49,-97.08C743.96,-77.31 707.75,-39.27 666.5,-29.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-29.19C390.63,-26.4 383.67,-12.89 347,-8.19 302.92,-2.53 288.95,6.49 247,-8.19 222.47,-16.77 199.87,-36.53 185.18,-51.64"/>
-<polygon fill="#000000" stroke="#000000" points="182.53,-49.35 178.26,-59.04 187.64,-54.13 182.53,-49.35"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_helio_kick~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_helio_kick~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-136.94 0,-136.94 0,-112.94 87,-112.94 87,-136.94"/>
+<text text-anchor="middle" x="43.5" y="-122.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-109.19C402.58,-110.76 374.9,-111.34 351.56,-111.5"/>
-<polygon fill="#000000" stroke="#000000" points="351.49,-108 341.5,-111.55 351.52,-115 351.49,-108"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-29.19C484.96,-39.34 492.74,-105.2 429.5,-109.19"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_edge13" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-229.19C506.38,-222.52 468.32,-190.03 447.07,-168.56"/>
-<polygon fill="#000000" stroke="#000000" points="449.48,-166.02 440.03,-161.22 444.42,-170.86 449.48,-166.02"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M759.52,-121.31C729.48,-154.56 639.41,-243.78 549.5,-229.19"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_helio_kick~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-124.94C114.58,-124.94 105.86,-124.94 97.36,-124.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-121.44 87.13,-124.94 97.13,-128.44 97.13,-121.44"/>
 </g>
 <!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_kick~~UsesGraph_edge14" class="edge">
+<g id="module~~s_helio_kick~~UsesGraph_edge15" class="edge">
 <title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M383.23,-217.16C357.97,-209.88 325.88,-199.95 298,-189.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-104.94C271.4,-108.7 244.16,-112.94 221.15,-116.55"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-113.1 211.24,-118.11 221.66,-120.02 220.58,-113.1"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-36.95C399.1,-41.29 390.64,-46.28 383,-50.94 344.78,-74.23 342.24,-98.17 298,-104.94"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_kick~~UsesGraph_edge15" class="edge">
+<g id="module~~s_helio_kick~~UsesGraph_edge16" class="edge">
 <title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.32,-41.22C245.26,-45.84 229.04,-51.16 214.2,-56.03"/>
-<polygon fill="#000000" stroke="#000000" points="213.1,-52.71 204.69,-59.15 215.28,-59.36 213.1,-52.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-37C258.46,-54.27 217.61,-86.18 191.67,-106.44"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-103.92 183.49,-112.83 193.53,-109.43 189.22,-103.92"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_helio_kick~~UsesGraph_edge17" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.98,-71.57C486.77,-72.61 456.37,-73.19 429.5,-71.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-71.19C356.32,-65.88 273.85,-67.14 221.33,-68.88"/>
-<polygon fill="#000000" stroke="#000000" points="221.11,-65.38 211.23,-69.23 221.35,-72.38 221.11,-65.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-67.92C476.26,-70.9 426.14,-76.15 383,-83.94 344.71,-90.85 336.47,-99.05 298,-104.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_edge16" class="edge">
+<g id="module~~s_helio_kick~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M529.43,-81.42C523.22,-85.71 516.26,-90.59 510,-95.19 493.67,-107.19 490.79,-111.83 474,-123.19 469.66,-126.12 464.99,-129.07 460.35,-131.88"/>
-<polygon fill="#000000" stroke="#000000" points="458.41,-128.96 451.58,-137.06 461.97,-134.99 458.41,-128.96"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630,-121.19C618.73,-125.11 606.05,-129.52 594.15,-133.66"/>
-<polygon fill="#000000" stroke="#000000" points="592.67,-130.47 584.38,-137.06 594.97,-137.08 592.67,-130.47"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-76.94C500.42,-80.9 487.26,-85.35 474.94,-89.53"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-86.28 465.29,-92.8 475.88,-92.91 473.63,-86.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_helio_kick~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630,-97.19C618.73,-93.27 606.05,-88.86 594.15,-84.72"/>
-<polygon fill="#000000" stroke="#000000" points="594.97,-81.3 584.38,-81.32 592.67,-87.91 594.97,-81.3"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-101.97C364.42,-100.62 328.89,-100.21 298,-104.94"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_helio_kick~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.92,-110.76C601.04,-111.19 573.78,-111.1 549.5,-109.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-109.19C492.57,-104.87 484.39,-75.91 429.5,-71.19"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_kick~~UsesGraph_edge18" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-109.19C495.22,-105.08 481.84,-105.89 429.5,-109.19"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-116.4C376.79,-120.6 361.18,-125.42 346.71,-129.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-126.62 336.92,-132.91 347.51,-133.31 345.44,-126.62"/>
 </g>
-<!-- iso_fortran_env -->
-<g id="module~~s_helio_kick~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_helio_kick~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-83.19 0,-83.19 0,-59.19 87,-59.19 87,-83.19"/>
-<text text-anchor="middle" x="43.5" y="-68.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_kick~~UsesGraph_edge21" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-138.11C242.31,-136.55 231.58,-134.87 221.24,-133.25"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-129.75 211.06,-131.66 220.4,-136.67 221.48,-129.75"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_helio_kick~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.47,-155.07C637.59,-159.35 629.89,-164.25 623,-168.94 606.19,-180.36 587.76,-193.9 573.56,-204.57"/>
+<polygon fill="#000000" stroke="#000000" points="571.18,-201.97 565.31,-210.79 575.4,-207.56 571.18,-201.97"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_helio_kick~~UsesGraph_edge22" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-71.19C114.58,-71.19 105.86,-71.19 97.36,-71.19"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-67.69 87.13,-71.19 97.13,-74.69 97.13,-67.69"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-144.94C367.43,-140.39 357.64,-96.49 298,-104.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.83,-145.4C575.8,-147.69 497.04,-150.04 429.5,-144.94"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_helio_kick~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-99.19C244.68,-95.15 230.09,-90.59 216.5,-86.35"/>
-<polygon fill="#000000" stroke="#000000" points="217.41,-82.96 206.82,-83.32 215.32,-89.64 217.41,-82.96"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_kick~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-189.19C245.63,-169.74 203.22,-119.96 182.19,-91.66"/>
-<polygon fill="#000000" stroke="#000000" points="184.84,-89.34 176.14,-83.3 179.17,-93.45 184.84,-89.34"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.75,-161.27C369.76,-175.56 317.04,-196.54 298,-189.19"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.53,-130.75C627.54,-117.87 597.41,-97.43 575.76,-82.74"/>
+<polygon fill="#000000" stroke="#000000" points="577.58,-79.75 567.34,-77.04 573.65,-85.55 577.58,-79.75"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_helio_kick~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-138.3C377.52,-134.52 362.86,-130.22 349.06,-126.17"/>
-<polygon fill="#000000" stroke="#000000" points="349.79,-122.74 339.21,-123.28 347.82,-129.46 349.79,-122.74"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-144.94C402.6,-143.05 374.93,-142.8 351.58,-143.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-139.63 341.52,-143.3 351.58,-146.63 351.46,-139.63"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_helio_step.html b/docs/module/s_helio_step.html
index 5938bf3c2..957be1910 100644
--- a/docs/module/s_helio_step.html
+++ b/docs/module/s_helio_step.html
@@ -249,259 +249,259 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_helio_step~~UsesGraph Pages: 1 -->
-<svg id="modules_helio_stepUsesGraph" width="641pt" height="175pt"
- viewBox="0.00 0.00 641.00 174.57" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_helio_step~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 245.19)">
+<svg id="modules_helio_stepUsesGraph" width="641pt" height="189pt"
+ viewBox="0.00 0.00 641.00 188.78" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_helio_step~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 265.48)">
 <title>module~~s_helio_step~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-245.19 911,-245.19 911,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.48 911,-265.48 911,4 -4,4"/>
 <!-- module~s_helio_step -->
 <g id="module~~s_helio_step~~UsesGraph_node1" class="node">
 <title>module~s_helio_step</title>
-<polygon fill="none" stroke="black" points="907,-141.19 834,-141.19 834,-117.19 907,-117.19 907,-141.19"/>
-<text text-anchor="middle" x="870.5" y="-126.79" font-family="Helvetica,sans-Serif" font-size="10.50">s_helio_step</text>
+<polygon fill="none" stroke="black" points="907,-214.94 834,-214.94 834,-190.94 907,-190.94 907,-214.94"/>
+<text text-anchor="middle" x="870.5" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_helio_step</text>
 </g>
 <!-- module~helio_classes -->
 <g id="module~~s_helio_step~~UsesGraph_node2" class="node">
 <title>module~helio_classes</title>
 <g id="a_module~~s_helio_step~~UsesGraph_node2"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-161.19 510.5,-161.19 510.5,-137.19 586.5,-137.19 586.5,-161.19"/>
-<text text-anchor="middle" x="548.5" y="-146.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-234.94 510.5,-234.94 510.5,-210.94 586.5,-210.94 586.5,-234.94"/>
+<text text-anchor="middle" x="548.5" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_helio_step&#45;&gt;module~helio_classes -->
 <g id="module~~s_helio_step~~UsesGraph_edge2" class="edge">
 <title>module~s_helio_step&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M833.94,-132.79C793.42,-136.87 725.21,-143.67 666.5,-149.19"/>
+<path fill="none" stroke="#000000" d="M833.72,-205.17C775.79,-208.79 661.43,-215.94 596.83,-219.98"/>
+<polygon fill="#000000" stroke="#000000" points="596.28,-216.5 586.52,-220.62 596.72,-223.49 596.28,-216.5"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_helio_step~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_helio_step~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-121.19 744,-121.19 744,-97.19 798,-97.19 798,-121.19"/>
-<text text-anchor="middle" x="771" y="-106.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-194.94 744,-194.94 744,-170.94 798,-170.94 798,-194.94"/>
+<text text-anchor="middle" x="771" y="-180.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_helio_step&#45;&gt;module~swiftest -->
 <g id="module~~s_helio_step~~UsesGraph_edge1" class="edge">
 <title>module~s_helio_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.75,-121.86C825.4,-120.14 816.51,-118.32 808.15,-116.6"/>
-<polygon fill="#000000" stroke="#000000" points="808.78,-113.16 798.28,-114.58 807.37,-120.02 808.78,-113.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.75,-195.6C825.4,-193.89 816.51,-192.07 808.15,-190.35"/>
+<polygon fill="#000000" stroke="#000000" points="808.78,-186.91 798.28,-188.33 807.37,-193.76 808.78,-186.91"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_helio_step~~UsesGraph_node8" class="node">
+<g id="module~~s_helio_step~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_helio_step~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-83.19 123,-83.19 123,-59.19 211,-59.19 211,-83.19"/>
-<text text-anchor="middle" x="167" y="-68.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_helio_step~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-136.94 123,-136.94 123,-112.94 211,-112.94 211,-136.94"/>
+<text text-anchor="middle" x="167" y="-122.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_step~~UsesGraph_edge5" class="edge">
+<g id="module~~s_helio_step~~UsesGraph_edge3" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.89,-161.29C477.1,-182.06 376.37,-219.45 298,-189.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-224.94C370.5,-216.94 351.02,-247.33 298,-224.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-224.94C251.42,-206.11 209.09,-167.59 186.03,-144.24"/>
+<polygon fill="#000000" stroke="#000000" points="188.44,-141.7 178.97,-136.95 183.41,-146.57 188.44,-141.7"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_helio_step~~UsesGraph_node8" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_helio_step~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-116.94 390.5,-116.94 390.5,-92.94 466.5,-92.94 466.5,-116.94"/>
+<text text-anchor="middle" x="428.5" y="-102.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_helio_step~~UsesGraph_edge4" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.88,-210.73C527.7,-191.9 502.3,-155.4 474,-130.94 470.56,-127.96 466.72,-125.14 462.79,-122.53"/>
+<polygon fill="#000000" stroke="#000000" points="464.49,-119.46 454.14,-117.18 460.81,-125.42 464.49,-119.46"/>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_helio_step~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_helio_step~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-123.19 252.5,-123.19 252.5,-99.19 341.5,-99.19 341.5,-123.19"/>
-<text text-anchor="middle" x="297" y="-108.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-156.94 252.5,-156.94 252.5,-132.94 341.5,-132.94 341.5,-156.94"/>
+<text text-anchor="middle" x="297" y="-142.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_step~~UsesGraph_edge3" class="edge">
+<g id="module~~s_helio_step~~UsesGraph_edge5" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M527.29,-137C504.31,-124.42 465.34,-106.93 429.5,-109.19"/>
-</g>
-<!-- module~whm_classes -->
-<g id="module~~s_helio_step~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_helio_step~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-161.19 390.5,-161.19 390.5,-137.19 466.5,-137.19 466.5,-161.19"/>
-<text text-anchor="middle" x="428.5" y="-146.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
-</a>
-</g>
-</g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_step~~UsesGraph_edge4" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.49,-149.19C499.83,-149.19 488.05,-149.19 476.86,-149.19"/>
-<polygon fill="#000000" stroke="#000000" points="476.79,-145.69 466.79,-149.19 476.79,-152.69 476.79,-145.69"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.38,-226.52C487.05,-228.04 456.38,-228.71 429.5,-224.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-224.94C383.25,-218.73 340.97,-185.83 317.35,-164.2"/>
+<polygon fill="#000000" stroke="#000000" points="319.48,-161.4 309.8,-157.08 314.68,-166.49 319.48,-161.4"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_step~~UsesGraph_edge6" class="edge">
+<g id="module~~s_helio_step~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M749.05,-121.24C728.72,-131.96 696.61,-146.36 666.5,-149.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-149.19C642.31,-151.27 617.6,-151.54 596.79,-151.18"/>
-<polygon fill="#000000" stroke="#000000" points="596.69,-147.68 586.61,-150.95 596.53,-154.67 596.69,-147.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-182.94C635.56,-185.39 604.57,-196.73 582.06,-206.71"/>
+<polygon fill="#000000" stroke="#000000" points="580.59,-203.53 572.96,-210.88 583.51,-209.9 580.59,-203.53"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_step~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.71,-194.7C708.76,-209.63 644.68,-234.57 587,-243.94 459.94,-264.55 416.58,-275.01 298,-224.94"/>
 </g>
 <!-- module~lambda_function -->
-<g id="module~~s_helio_step~~UsesGraph_node4" class="node">
+<g id="module~~s_helio_step~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
-<g id="a_module~~s_helio_step~~UsesGraph_node4"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-241.19 383,-241.19 383,-217.19 474,-217.19 474,-241.19"/>
-<text text-anchor="middle" x="428.5" y="-226.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<g id="a_module~~s_helio_step~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-36.94 383,-36.94 383,-12.94 474,-12.94 474,-36.94"/>
+<text text-anchor="middle" x="428.5" y="-22.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_helio_step~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-229.19C526.83,-228.79 504.12,-228.7 484.19,-228.75"/>
-<polygon fill="#000000" stroke="#000000" points="484.04,-225.25 474.05,-228.78 484.06,-232.25 484.04,-225.25"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-24.94C527.51,-18.4 504.58,-17.1 484.28,-17.9"/>
+<polygon fill="#000000" stroke="#000000" points="484.03,-14.41 474.24,-18.47 484.42,-21.4 484.03,-14.41"/>
 </g>
 <!-- module~swiftest_operators -->
-<g id="module~~s_helio_step~~UsesGraph_node5" class="node">
+<g id="module~~s_helio_step~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
-<g id="a_module~~s_helio_step~~UsesGraph_node5"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="347,-41.19 247,-41.19 247,-17.19 347,-17.19 347,-41.19"/>
-<text text-anchor="middle" x="297" y="-26.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<g id="a_module~~s_helio_step~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-36.94 247,-36.94 247,-12.94 347,-12.94 347,-36.94"/>
+<text text-anchor="middle" x="297" y="-22.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_helio_step~~UsesGraph_edge8" class="edge">
+<g id="module~~s_helio_step~~UsesGraph_edge9" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-29.19C404.66,-27.46 379.5,-27.11 357.47,-27.31"/>
-<polygon fill="#000000" stroke="#000000" points="357.21,-23.81 347.26,-27.45 357.31,-30.81 357.21,-23.81"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.28,-170.91C745.16,-149.64 708.48,-105.61 666.5,-83.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-83.94C613.46,-57.58 604.1,-42.79 549.5,-24.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-24.94C477.45,-2.02 456.16,4.97 383,-3.94 371.56,-5.33 359.45,-7.74 348.06,-10.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-7.06 338.27,-12.87 348.82,-13.85 347.13,-7.06"/>
 </g>
 <!-- module~rmvs_classes -->
-<g id="module~~s_helio_step~~UsesGraph_node6" class="node">
+<g id="module~~s_helio_step~~UsesGraph_node7" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_helio_step~~UsesGraph_node6"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-81.19 510,-81.19 510,-57.19 587,-57.19 587,-81.19"/>
-<text text-anchor="middle" x="548.5" y="-66.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_helio_step~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-76.94 510,-76.94 510,-52.94 587,-52.94 587,-76.94"/>
+<text text-anchor="middle" x="548.5" y="-62.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_helio_step~~UsesGraph_edge9" class="edge">
+<g id="module~~s_helio_step~~UsesGraph_edge13" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-29.19C632.78,-21.43 597.46,-37.61 574.44,-51.65"/>
-<polygon fill="#000000" stroke="#000000" points="572.5,-48.74 565.96,-57.07 576.27,-54.64 572.5,-48.74"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-83.94C643.83,-73.76 618.79,-68.88 597.37,-66.59"/>
+<polygon fill="#000000" stroke="#000000" points="597.45,-63.09 587.17,-65.67 596.81,-70.06 597.45,-63.09"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_helio_step~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-83.94C656.21,-79.86 542.97,-91.95 476.76,-99.45"/>
+<polygon fill="#000000" stroke="#000000" points="476.1,-96 466.56,-100.61 476.9,-102.96 476.1,-96"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_helio_step~~UsesGraph_edge12" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.57,-181.71C722.63,-181.03 692.64,-180.72 666.5,-182.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-182.94C553.17,-192.38 423.15,-171.25 351.77,-156.87"/>
+<polygon fill="#000000" stroke="#000000" points="352.17,-153.38 341.67,-154.8 350.77,-160.24 352.17,-153.38"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_helio_step~~UsesGraph_node7" class="node">
+<g id="module~~s_helio_step~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_helio_step~~UsesGraph_node7"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-121.19 623,-121.19 623,-97.19 708,-97.19 708,-121.19"/>
-<text text-anchor="middle" x="665.5" y="-106.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_helio_step~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-154.94 623,-154.94 623,-130.94 708,-130.94 708,-154.94"/>
+<text text-anchor="middle" x="665.5" y="-140.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_helio_step~~UsesGraph_edge10" class="edge">
+<g id="module~~s_helio_step~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-109.19C736.13,-109.19 727.36,-109.19 718.58,-109.19"/>
-<polygon fill="#000000" stroke="#000000" points="718.32,-105.69 708.32,-109.19 718.32,-112.69 718.32,-105.69"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-172.84C732.83,-168.57 719.68,-163.49 707.39,-158.74"/>
+<polygon fill="#000000" stroke="#000000" points="708.36,-155.36 697.77,-155.02 705.84,-161.89 708.36,-155.36"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_step~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-29.19C495.73,-37.59 481.8,-33.14 429.5,-29.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-29.19C614.85,-17.05 599.95,-21 549.5,-29.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.49,-97.08C743.96,-77.31 707.75,-39.27 666.5,-29.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-29.19C390.63,-26.4 383.67,-12.89 347,-8.19 302.92,-2.53 288.95,6.49 247,-8.19 222.47,-16.77 199.87,-36.53 185.18,-51.64"/>
-<polygon fill="#000000" stroke="#000000" points="182.53,-49.35 178.26,-59.04 187.64,-54.13 182.53,-49.35"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_helio_step~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_helio_step~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-136.94 0,-136.94 0,-112.94 87,-112.94 87,-136.94"/>
+<text text-anchor="middle" x="43.5" y="-122.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_step~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-109.19C402.58,-110.76 374.9,-111.34 351.56,-111.5"/>
-<polygon fill="#000000" stroke="#000000" points="351.49,-108 341.5,-111.55 351.52,-115 351.49,-108"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-29.19C484.96,-39.34 492.74,-105.2 429.5,-109.19"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_step~~UsesGraph_edge13" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-229.19C506.38,-222.52 468.32,-190.03 447.07,-168.56"/>
-<polygon fill="#000000" stroke="#000000" points="449.48,-166.02 440.03,-161.22 444.42,-170.86 449.48,-166.02"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M759.52,-121.31C729.48,-154.56 639.41,-243.78 549.5,-229.19"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_helio_step~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-124.94C114.58,-124.94 105.86,-124.94 97.36,-124.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-121.44 87.13,-124.94 97.13,-128.44 97.13,-121.44"/>
 </g>
 <!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_step~~UsesGraph_edge14" class="edge">
+<g id="module~~s_helio_step~~UsesGraph_edge15" class="edge">
 <title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M383.23,-217.16C357.97,-209.88 325.88,-199.95 298,-189.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-104.94C271.4,-108.7 244.16,-112.94 221.15,-116.55"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-113.1 211.24,-118.11 221.66,-120.02 220.58,-113.1"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-36.95C399.1,-41.29 390.64,-46.28 383,-50.94 344.78,-74.23 342.24,-98.17 298,-104.94"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_step~~UsesGraph_edge15" class="edge">
+<g id="module~~s_helio_step~~UsesGraph_edge16" class="edge">
 <title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.32,-41.22C245.26,-45.84 229.04,-51.16 214.2,-56.03"/>
-<polygon fill="#000000" stroke="#000000" points="213.1,-52.71 204.69,-59.15 215.28,-59.36 213.1,-52.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-37C258.46,-54.27 217.61,-86.18 191.67,-106.44"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-103.92 183.49,-112.83 193.53,-109.43 189.22,-103.92"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_helio_step~~UsesGraph_edge17" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.98,-71.57C486.77,-72.61 456.37,-73.19 429.5,-71.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-71.19C356.32,-65.88 273.85,-67.14 221.33,-68.88"/>
-<polygon fill="#000000" stroke="#000000" points="221.11,-65.38 211.23,-69.23 221.35,-72.38 221.11,-65.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-67.92C476.26,-70.9 426.14,-76.15 383,-83.94 344.71,-90.85 336.47,-99.05 298,-104.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_helio_step~~UsesGraph_edge16" class="edge">
+<g id="module~~s_helio_step~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M529.43,-81.42C523.22,-85.71 516.26,-90.59 510,-95.19 493.67,-107.19 490.79,-111.83 474,-123.19 469.66,-126.12 464.99,-129.07 460.35,-131.88"/>
-<polygon fill="#000000" stroke="#000000" points="458.41,-128.96 451.58,-137.06 461.97,-134.99 458.41,-128.96"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_helio_step~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630,-121.19C618.73,-125.11 606.05,-129.52 594.15,-133.66"/>
-<polygon fill="#000000" stroke="#000000" points="592.67,-130.47 584.38,-137.06 594.97,-137.08 592.67,-130.47"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-76.94C500.42,-80.9 487.26,-85.35 474.94,-89.53"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-86.28 465.29,-92.8 475.88,-92.91 473.63,-86.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_helio_step~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630,-97.19C618.73,-93.27 606.05,-88.86 594.15,-84.72"/>
-<polygon fill="#000000" stroke="#000000" points="594.97,-81.3 584.38,-81.32 592.67,-87.91 594.97,-81.3"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-101.97C364.42,-100.62 328.89,-100.21 298,-104.94"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_helio_step~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.92,-110.76C601.04,-111.19 573.78,-111.1 549.5,-109.19"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-109.19C492.57,-104.87 484.39,-75.91 429.5,-71.19"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_helio_step~~UsesGraph_edge18" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-109.19C495.22,-105.08 481.84,-105.89 429.5,-109.19"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-116.4C376.79,-120.6 361.18,-125.42 346.71,-129.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-126.62 336.92,-132.91 347.51,-133.31 345.44,-126.62"/>
 </g>
-<!-- iso_fortran_env -->
-<g id="module~~s_helio_step~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_helio_step~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-83.19 0,-83.19 0,-59.19 87,-59.19 87,-83.19"/>
-<text text-anchor="middle" x="43.5" y="-68.79" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_helio_step~~UsesGraph_edge21" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-138.11C242.31,-136.55 231.58,-134.87 221.24,-133.25"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-129.75 211.06,-131.66 220.4,-136.67 221.48,-129.75"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_helio_step~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.47,-155.07C637.59,-159.35 629.89,-164.25 623,-168.94 606.19,-180.36 587.76,-193.9 573.56,-204.57"/>
+<polygon fill="#000000" stroke="#000000" points="571.18,-201.97 565.31,-210.79 575.4,-207.56 571.18,-201.97"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_helio_step~~UsesGraph_edge22" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-71.19C114.58,-71.19 105.86,-71.19 97.36,-71.19"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-67.69 87.13,-71.19 97.13,-74.69 97.13,-67.69"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-144.94C367.43,-140.39 357.64,-96.49 298,-104.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.83,-145.4C575.8,-147.69 497.04,-150.04 429.5,-144.94"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_helio_step~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-99.19C244.68,-95.15 230.09,-90.59 216.5,-86.35"/>
-<polygon fill="#000000" stroke="#000000" points="217.41,-82.96 206.82,-83.32 215.32,-89.64 217.41,-82.96"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_helio_step~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-189.19C245.63,-169.74 203.22,-119.96 182.19,-91.66"/>
-<polygon fill="#000000" stroke="#000000" points="184.84,-89.34 176.14,-83.3 179.17,-93.45 184.84,-89.34"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.75,-161.27C369.76,-175.56 317.04,-196.54 298,-189.19"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M646.53,-130.75C627.54,-117.87 597.41,-97.43 575.76,-82.74"/>
+<polygon fill="#000000" stroke="#000000" points="577.58,-79.75 567.34,-77.04 573.65,-85.55 577.58,-79.75"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_helio_step~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-138.3C377.52,-134.52 362.86,-130.22 349.06,-126.17"/>
-<polygon fill="#000000" stroke="#000000" points="349.79,-122.74 339.21,-123.28 347.82,-129.46 349.79,-122.74"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-144.94C402.6,-143.05 374.93,-142.8 351.58,-143.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-139.63 341.52,-143.3 351.58,-146.63 351.46,-139.63"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_io.html b/docs/module/s_io.html
index eef5b07f4..66886f160 100644
--- a/docs/module/s_io.html
+++ b/docs/module/s_io.html
@@ -134,7 +134,7 @@ <h1>s_io
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 9.5% of total for modules and submodules.">1253 statements</a>
+    title=" 9.6% of total for modules and submodules.">1282 statements</a>
      </li> 
      
      
@@ -319,255 +319,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_io~~UsesGraph Pages: 1 -->
-<svg id="modules_ioUsesGraph" width="641pt" height="198pt"
- viewBox="0.00 0.00 641.00 198.38" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_io~~UsesGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 273.3)">
+<svg id="modules_ioUsesGraph" width="641pt" height="193pt"
+ viewBox="0.00 0.00 641.00 193.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_io~~UsesGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 265.94)">
 <title>module~~s_io~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.3 892,-273.3 892,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 892,-265.94 892,4 -4,4"/>
 <!-- module~s_io -->
 <g id="module~~s_io~~UsesGraph_node1" class="node">
 <title>module~s_io</title>
-<polygon fill="none" stroke="black" points="888,-217.16 834,-217.16 834,-193.16 888,-193.16 888,-217.16"/>
-<text text-anchor="middle" x="861" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_io</text>
+<polygon fill="none" stroke="black" points="888,-234.94 834,-234.94 834,-210.94 888,-210.94 888,-234.94"/>
+<text text-anchor="middle" x="861" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_io</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_io~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_io~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_io&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_io~~UsesGraph_edge2" class="edge">
 <title>module~s_io&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M833.63,-216.62C774.65,-240.64 628.02,-291.39 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.73,-231.69C796.83,-243.19 727.33,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_io~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_io~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_io&#45;&gt;module~swiftest -->
 <g id="module~~s_io~~UsesGraph_edge1" class="edge">
 <title>module~s_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M841.34,-193.07C829.09,-185.14 812.86,-174.63 799.19,-165.77"/>
-<polygon fill="#000000" stroke="#000000" points="800.93,-162.73 790.64,-160.23 797.13,-168.6 800.93,-162.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.6,-216.94C825.52,-215.1 816.49,-213.05 807.9,-211.1"/>
+<polygon fill="#000000" stroke="#000000" points="808.61,-207.67 798.08,-208.87 807.06,-214.5 808.61,-207.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_io~~UsesGraph_node9" class="node">
+<g id="module~~s_io~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_io~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_io~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_io~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_io~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_io~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_io~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_io~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_io~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_io~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_io~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_io~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_io~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_io~~UsesGraph_edge6" class="edge">
+<g id="module~~s_io~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_io~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_io~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_io~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_io~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_io~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_io~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_io~~UsesGraph_edge7" class="edge">
+<g id="module~~s_io~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_io~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_io~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_io~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_io~~UsesGraph_node8" class="node">
+<g id="module~~s_io~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_io~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_io~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_io~~UsesGraph_edge8" class="edge">
+<g id="module~~s_io~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_io~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_io~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_io~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_io~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_io~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_io~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_io~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_io~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_io~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_io~~UsesGraph_edge12" class="edge">
+<g id="module~~s_io~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_io~~UsesGraph_edge14" class="edge">
+<g id="module~~s_io~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_io~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_io~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_io~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_io~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_io~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_io~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_io~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_io~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_io~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_io~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_io~~UsesGraph_edge21" class="edge">
+<g id="module~~s_io~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_io~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_io~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_io~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_io~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_io~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_io~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
@@ -1769,7 +1772,7 @@ <h4>Arguments</h4>
         
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-io_dump_swiftest"></span><h3>
-module subroutine <a href='../proc/io_dump_swiftest.html'>io_dump_swiftest</a>(self, param, msg)
+module subroutine <a href='../proc/io_dump_swiftest.html'>io_dump_swiftest</a>(self, param)
     
     
    <a href='../interface/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
@@ -1841,21 +1844,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -1870,7 +1858,7 @@ <h4>Arguments</h4>
         
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-io_dump_system"></span><h3>
-module subroutine <a href='../proc/io_dump_system.html'>io_dump_system</a>(self, param, msg)
+module subroutine <a href='../proc/io_dump_system.html'>io_dump_system</a>(self, param)
     
     
    <a href='../interface/io_dump_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
@@ -1944,21 +1932,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
diff --git a/docs/module/s_kick.html b/docs/module/s_kick.html
index 313b55615..c7ea69085 100644
--- a/docs/module/s_kick.html
+++ b/docs/module/s_kick.html
@@ -247,255 +247,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_kick~~UsesGraph Pages: 1 -->
-<svg id="modules_kickUsesGraph" width="641pt" height="198pt"
- viewBox="0.00 0.00 641.00 198.38" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_kick~~UsesGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 273.3)">
+<svg id="modules_kickUsesGraph" width="641pt" height="193pt"
+ viewBox="0.00 0.00 641.00 193.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_kick~~UsesGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 265.94)">
 <title>module~~s_kick~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.3 892,-273.3 892,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 892,-265.94 892,4 -4,4"/>
 <!-- module~s_kick -->
 <g id="module~~s_kick~~UsesGraph_node1" class="node">
 <title>module~s_kick</title>
-<polygon fill="none" stroke="black" points="888,-217.16 834,-217.16 834,-193.16 888,-193.16 888,-217.16"/>
-<text text-anchor="middle" x="861" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_kick</text>
+<polygon fill="none" stroke="black" points="888,-234.94 834,-234.94 834,-210.94 888,-210.94 888,-234.94"/>
+<text text-anchor="middle" x="861" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_kick</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_kick~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_kick~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_kick&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_kick~~UsesGraph_edge2" class="edge">
 <title>module~s_kick&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M833.63,-216.62C774.65,-240.64 628.02,-291.39 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.73,-231.69C796.83,-243.19 727.33,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_kick~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_kick~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_kick&#45;&gt;module~swiftest -->
 <g id="module~~s_kick~~UsesGraph_edge1" class="edge">
 <title>module~s_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M841.34,-193.07C829.09,-185.14 812.86,-174.63 799.19,-165.77"/>
-<polygon fill="#000000" stroke="#000000" points="800.93,-162.73 790.64,-160.23 797.13,-168.6 800.93,-162.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.6,-216.94C825.52,-215.1 816.49,-213.05 807.9,-211.1"/>
+<polygon fill="#000000" stroke="#000000" points="808.61,-207.67 798.08,-208.87 807.06,-214.5 808.61,-207.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_kick~~UsesGraph_node9" class="node">
+<g id="module~~s_kick~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_kick~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_kick~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_kick~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_kick~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_kick~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_kick~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_kick~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_kick~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_kick~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_kick~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_kick~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_kick~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_kick~~UsesGraph_edge6" class="edge">
+<g id="module~~s_kick~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_kick~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_kick~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_kick~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_kick~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_kick~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_kick~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_kick~~UsesGraph_edge7" class="edge">
+<g id="module~~s_kick~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_kick~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_kick~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_kick~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_kick~~UsesGraph_node8" class="node">
+<g id="module~~s_kick~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_kick~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_kick~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_kick~~UsesGraph_edge8" class="edge">
+<g id="module~~s_kick~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_kick~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_kick~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_kick~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_kick~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_kick~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_kick~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_kick~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_kick~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_kick~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_kick~~UsesGraph_edge12" class="edge">
+<g id="module~~s_kick~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_kick~~UsesGraph_edge14" class="edge">
+<g id="module~~s_kick~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_kick~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_kick~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_kick~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_kick~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_kick~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_kick~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_kick~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_kick~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_kick~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_kick~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_kick~~UsesGraph_edge21" class="edge">
+<g id="module~~s_kick~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_kick~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_kick~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_kick~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_kick~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_kick~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_kick~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_obl.html b/docs/module/s_obl.html
index 9a9274f14..5b3534525 100644
--- a/docs/module/s_obl.html
+++ b/docs/module/s_obl.html
@@ -251,255 +251,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_obl~~UsesGraph Pages: 1 -->
-<svg id="modules_oblUsesGraph" width="641pt" height="198pt"
- viewBox="0.00 0.00 641.00 198.38" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_obl~~UsesGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 273.3)">
+<svg id="modules_oblUsesGraph" width="641pt" height="193pt"
+ viewBox="0.00 0.00 641.00 193.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_obl~~UsesGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 265.94)">
 <title>module~~s_obl~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.3 892,-273.3 892,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 892,-265.94 892,4 -4,4"/>
 <!-- module~s_obl -->
 <g id="module~~s_obl~~UsesGraph_node1" class="node">
 <title>module~s_obl</title>
-<polygon fill="none" stroke="black" points="888,-217.16 834,-217.16 834,-193.16 888,-193.16 888,-217.16"/>
-<text text-anchor="middle" x="861" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_obl</text>
+<polygon fill="none" stroke="black" points="888,-234.94 834,-234.94 834,-210.94 888,-210.94 888,-234.94"/>
+<text text-anchor="middle" x="861" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_obl</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_obl~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_obl~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_obl&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_obl~~UsesGraph_edge2" class="edge">
 <title>module~s_obl&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M833.63,-216.62C774.65,-240.64 628.02,-291.39 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.73,-231.69C796.83,-243.19 727.33,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_obl~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_obl~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_obl&#45;&gt;module~swiftest -->
 <g id="module~~s_obl~~UsesGraph_edge1" class="edge">
 <title>module~s_obl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M841.34,-193.07C829.09,-185.14 812.86,-174.63 799.19,-165.77"/>
-<polygon fill="#000000" stroke="#000000" points="800.93,-162.73 790.64,-160.23 797.13,-168.6 800.93,-162.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.6,-216.94C825.52,-215.1 816.49,-213.05 807.9,-211.1"/>
+<polygon fill="#000000" stroke="#000000" points="808.61,-207.67 798.08,-208.87 807.06,-214.5 808.61,-207.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_obl~~UsesGraph_node9" class="node">
+<g id="module~~s_obl~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_obl~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_obl~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_obl~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_obl~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_obl~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_obl~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_obl~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_obl~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_obl~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_obl~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_obl~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_obl~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_obl~~UsesGraph_edge6" class="edge">
+<g id="module~~s_obl~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_obl~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_obl~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_obl~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_obl~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_obl~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_obl~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_obl~~UsesGraph_edge7" class="edge">
+<g id="module~~s_obl~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_obl~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_obl~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_obl~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_obl~~UsesGraph_node8" class="node">
+<g id="module~~s_obl~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_obl~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_obl~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_obl~~UsesGraph_edge8" class="edge">
+<g id="module~~s_obl~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_obl~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_obl~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_obl~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_obl~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_obl~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_obl~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_obl~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_obl~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_obl~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_obl~~UsesGraph_edge12" class="edge">
+<g id="module~~s_obl~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_obl~~UsesGraph_edge14" class="edge">
+<g id="module~~s_obl~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_obl~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_obl~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_obl~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_obl~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_obl~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_obl~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_obl~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_obl~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_obl~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_obl~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_obl~~UsesGraph_edge21" class="edge">
+<g id="module~~s_obl~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_obl~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_obl~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_obl~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_obl~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_obl~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_obl~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_operator_cross.html b/docs/module/s_operator_cross.html
index eea9855ba..e7faefc83 100644
--- a/docs/module/s_operator_cross.html
+++ b/docs/module/s_operator_cross.html
@@ -317,9 +317,9 @@ <h3 class="panel-title">Uses</h3>
 <polygon fill="#000000" stroke="#000000" points="812.71,-213.18 802.24,-214.81 811.44,-220.06 812.71,-213.18"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_operator_cross~~UsesGraph_node8" class="node">
+<g id="module~~s_operator_cross~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_operator_cross~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<g id="a_module~~s_operator_cross~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
 <polygon fill="#337ab7" stroke="#337ab7" points="211,-104 123,-104 123,-80 211,-80 211,-104"/>
 <text text-anchor="middle" x="167" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
@@ -331,25 +331,16 @@ <h3 class="panel-title">Uses</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M611.94,-258.17C562.07,-264.6 483.18,-269.56 418.5,-250"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_operator_cross~~UsesGraph_edge6" class="edge">
+<g id="module~~s_operator_cross~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M747.98,-219.38C735.48,-223.88 720.18,-229.4 706.02,-234.5"/>
 <polygon fill="#000000" stroke="#000000" points="704.67,-231.26 696.44,-237.95 707.04,-237.85 704.67,-231.26"/>
 </g>
-<!-- module~helio_classes -->
-<g id="module~~s_operator_cross~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_operator_cross~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="575.5,-104 499.5,-104 499.5,-80 575.5,-80 575.5,-104"/>
-<text text-anchor="middle" x="537.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_operator_cross~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M661,-52C645.18,-43.86 601.73,-61.28 571.09,-75.63"/>
-<polygon fill="#000000" stroke="#000000" points="569.56,-72.49 562.04,-79.96 572.57,-78.81 569.56,-72.49"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.5,-250C396.09,-243.23 389.13,-244 372,-231 327.04,-196.9 344.59,-153.69 292.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.5,-210C481.13,-209.62 471.06,-267.43 418.5,-250"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_operator_cross~~UsesGraph_node5" class="node">
@@ -366,42 +357,51 @@ <h3 class="panel-title">Uses</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.5,-210C515.83,-210 493.12,-210 473.19,-210"/>
 <polygon fill="#000000" stroke="#000000" points="473.05,-206.5 463.05,-210 473.05,-213.5 473.05,-206.5"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_operator_cross~~UsesGraph_node6" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_operator_cross~~UsesGraph_node6"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="575.5,-104 499.5,-104 499.5,-80 575.5,-80 575.5,-104"/>
+<text text-anchor="middle" x="537.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_operator_cross~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M661,-52C645.18,-43.86 601.73,-61.28 571.09,-75.63"/>
+<polygon fill="#000000" stroke="#000000" points="569.56,-72.49 562.04,-79.96 572.57,-78.81 569.56,-72.49"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_operator_cross~~UsesGraph_node7" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_operator_cross~~UsesGraph_node6"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<g id="a_module~~s_operator_cross~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
 <polygon fill="#337ab7" stroke="#337ab7" points="576,-24 499,-24 499,0 576,0 576,-24"/>
 <text text-anchor="middle" x="537.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_operator_cross~~UsesGraph_edge7" class="edge">
+<g id="module~~s_operator_cross~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M661,-52C637.32,-39.82 609.19,-30.33 585.86,-23.65"/>
 <polygon fill="#000000" stroke="#000000" points="586.75,-20.26 576.18,-20.96 584.88,-27.01 586.75,-20.26"/>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M769.65,-197.88C761.1,-175.19 740.45,-125.51 712,-91 694.3,-69.52 687.75,-64.73 663,-52"/>
 </g>
-<!-- module~symba_classes -->
-<g id="module~~s_operator_cross~~UsesGraph_node7" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~s_operator_cross~~UsesGraph_node7"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="704.5,-124 619.5,-124 619.5,-100 704.5,-100 704.5,-124"/>
-<text text-anchor="middle" x="662" y="-109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<!-- module~whm_classes -->
+<g id="module~~s_operator_cross~~UsesGraph_node8" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_operator_cross~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="455.5,-64 379.5,-64 379.5,-40 455.5,-40 455.5,-64"/>
+<text text-anchor="middle" x="417.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_operator_cross~~UsesGraph_edge8" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.39,-197.98C741.42,-181.23 706.83,-150.69 684.39,-130.88"/>
-<polygon fill="#000000" stroke="#000000" points="686.54,-128.11 676.72,-124.12 681.9,-133.36 686.54,-128.11"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
 <g id="module~~s_operator_cross~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.5,-250C396.09,-243.23 389.13,-244 372,-231 327.04,-196.9 344.59,-153.69 292.5,-132"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.5,-210C481.13,-209.62 471.06,-267.43 418.5,-250"/>
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M661,-52C628.17,-35.12 526.54,-41.36 465.76,-46.97"/>
+<polygon fill="#000000" stroke="#000000" points="465.27,-43.51 455.64,-47.94 465.93,-50.47 465.27,-43.51"/>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_operator_cross~~UsesGraph_node9" class="node">
@@ -419,20 +419,40 @@ <h3 class="panel-title">Uses</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.5,-210C516.89,-210 389.06,-155.68 372,-146 354.37,-136 352.73,-129.44 336,-118 331.75,-115.09 327.17,-112.16 322.64,-109.36"/>
 <polygon fill="#000000" stroke="#000000" points="324.44,-106.36 314.07,-104.19 320.82,-112.35 324.44,-106.36"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~symba_classes -->
 <g id="module~~s_operator_cross~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_operator_cross~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="455.5,-64 379.5,-64 379.5,-40 455.5,-40 455.5,-64"/>
-<text text-anchor="middle" x="417.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<title>module~symba_classes</title>
+<g id="a_module~~s_operator_cross~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="704.5,-124 619.5,-124 619.5,-100 704.5,-100 704.5,-124"/>
+<text text-anchor="middle" x="662" y="-109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_operator_cross~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M661,-52C628.17,-35.12 526.54,-41.36 465.76,-46.97"/>
-<polygon fill="#000000" stroke="#000000" points="465.27,-43.51 455.64,-47.94 465.93,-50.47 465.27,-43.51"/>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_operator_cross~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.39,-197.98C741.42,-181.23 706.83,-150.69 684.39,-130.88"/>
+<polygon fill="#000000" stroke="#000000" points="686.54,-128.11 676.72,-124.12 681.9,-133.36 686.54,-128.11"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_operator_cross~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_operator_cross~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-104 0,-104 0,-80 87,-80 87,-104"/>
+<text text-anchor="middle" x="43.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_operator_cross~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-92C114.58,-92 105.86,-92 97.36,-92"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-88.5 87.13,-92 97.13,-95.5 97.13,-88.5"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_operator_cross~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M395.09,-197.79C387.73,-193.5 379.46,-188.61 372,-184 336.09,-161.79 331.48,-148.23 292.5,-132"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_operator_cross~~UsesGraph_edge14" class="edge">
@@ -440,94 +460,74 @@ <h3 class="panel-title">Uses</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.5,-92C358.77,-87.45 349.71,-43.04 292.5,-52"/>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M499.24,-93.5C475.99,-94.06 445.46,-94.13 418.5,-92"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_operator_cross~~UsesGraph_edge12" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.5,-92C393.53,-90.19 368.08,-89.89 346.25,-90.16"/>
-<polygon fill="#000000" stroke="#000000" points="346.12,-86.66 336.18,-90.33 346.24,-93.66 346.12,-86.66"/>
-</g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_operator_cross~~UsesGraph_edge13" class="edge">
+<g id="module~~s_operator_cross~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M501.1,-80C489.42,-76.04 476.26,-71.58 463.94,-67.4"/>
 <polygon fill="#000000" stroke="#000000" points="464.88,-64.03 454.29,-64.13 462.63,-70.66 464.88,-64.03"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_operator_cross~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M395.09,-197.79C387.73,-193.5 379.46,-188.61 372,-184 336.09,-161.79 331.48,-148.23 292.5,-132"/>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_operator_cross~~UsesGraph_edge16" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.5,-92C393.53,-90.19 368.08,-89.89 346.25,-90.16"/>
+<polygon fill="#000000" stroke="#000000" points="346.12,-86.66 336.18,-90.33 346.24,-93.66 346.12,-86.66"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_operator_cross~~UsesGraph_edge17" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M498.7,-14.82C465.21,-17.68 415.08,-22.87 372,-31 336.09,-37.78 328.6,-46.34 292.5,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.5,-52C260.9,-56.12 228.83,-66.83 204.93,-76.14"/>
-<polygon fill="#000000" stroke="#000000" points="203.54,-72.92 195.55,-79.88 206.13,-79.42 203.54,-72.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.5,-52C260.9,-56.16 228.84,-66.87 204.94,-76.16"/>
+<polygon fill="#000000" stroke="#000000" points="203.55,-72.95 195.55,-79.9 206.14,-79.45 203.55,-72.95"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_operator_cross~~UsesGraph_edge16" class="edge">
+<g id="module~~s_operator_cross~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M501.1,-24C489.42,-27.96 476.26,-32.42 463.94,-36.6"/>
 <polygon fill="#000000" stroke="#000000" points="462.63,-33.34 454.29,-39.87 464.88,-39.97 462.63,-33.34"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_operator_cross~~UsesGraph_edge19" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M379.37,-49.01C354.61,-47.75 321.42,-47.47 292.5,-52"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_operator_cross~~UsesGraph_edge20" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M379.3,-64C366.9,-68 352.93,-72.51 339.87,-76.72"/>
+<polygon fill="#000000" stroke="#000000" points="338.55,-73.47 330.11,-79.87 340.7,-80.13 338.55,-73.47"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_operator_cross~~UsesGraph_edge21" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.97,-92C238.75,-92 230.07,-92 221.59,-92"/>
+<polygon fill="#000000" stroke="#000000" points="221.39,-88.5 211.39,-92 221.39,-95.5 221.39,-88.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_operator_cross~~UsesGraph_edge22" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.5,-132C361.51,-128.35 343.38,-153.19 292.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.5,-132C267.93,-122.6 242.31,-113.94 220.36,-107.1"/>
+<polygon fill="#000000" stroke="#000000" points="221.14,-103.68 210.55,-104.08 219.09,-110.37 221.14,-103.68"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_operator_cross~~UsesGraph_edge25" class="edge">
 <title>module~symba_classes&#45;&gt;module~helio_classes</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619.19,-105.17C608.36,-103.41 596.63,-101.49 585.56,-99.68"/>
 <polygon fill="#000000" stroke="#000000" points="586.05,-96.22 575.62,-98.06 584.92,-103.13 586.05,-96.22"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_operator_cross~~UsesGraph_edge19" class="edge">
+<g id="module~~s_operator_cross~~UsesGraph_edge23" class="edge">
 <title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M645.98,-99.74C624.74,-82.4 585.77,-50.59 561.05,-30.41"/>
 <polygon fill="#000000" stroke="#000000" points="563.22,-27.66 553.26,-24.05 558.79,-33.09 563.22,-27.66"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_operator_cross~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.5,-132C267.93,-122.6 242.31,-113.94 220.36,-107.1"/>
-<polygon fill="#000000" stroke="#000000" points="221.14,-103.68 210.55,-104.08 219.09,-110.37 221.14,-103.68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.5,-132C361.51,-128.35 343.38,-153.19 292.5,-132"/>
-</g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_operator_cross~~UsesGraph_edge18" class="edge">
+<g id="module~~s_operator_cross~~UsesGraph_edge24" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.5,-132C385.38,-129.55 351.78,-118.12 327.42,-108.1"/>
 <polygon fill="#000000" stroke="#000000" points="328.48,-104.75 317.91,-104.07 325.75,-111.19 328.48,-104.75"/>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619.38,-119.51C571.09,-127.28 489.04,-137.56 418.5,-132"/>
 </g>
-<!-- iso_fortran_env -->
-<g id="module~~s_operator_cross~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_operator_cross~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-104 0,-104 0,-80 87,-80 87,-104"/>
-<text text-anchor="middle" x="43.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
-</g>
-</g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~s_operator_cross~~UsesGraph_edge22" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-92C114.58,-92 105.86,-92 97.36,-92"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-88.5 87.13,-92 97.13,-95.5 97.13,-88.5"/>
-</g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_operator_cross~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.97,-92C238.75,-92 230.07,-92 221.59,-92"/>
-<polygon fill="#000000" stroke="#000000" points="221.39,-88.5 211.39,-92 221.39,-95.5 221.39,-88.5"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_operator_cross~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M379.37,-49.01C354.61,-47.75 321.42,-47.47 292.5,-52"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_operator_cross~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M379.3,-64C366.9,-68 352.93,-72.51 339.87,-76.72"/>
-<polygon fill="#000000" stroke="#000000" points="338.55,-73.47 330.11,-79.87 340.7,-80.13 338.55,-73.47"/>
-</g>
 </g>
 </svg>
 </div><script>var panmodules_operator_crossUsesGraph = svgPanZoom('#modules_operator_crossUsesGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
diff --git a/docs/module/s_orbel.html b/docs/module/s_orbel.html
index a2e77cee2..0f0018660 100644
--- a/docs/module/s_orbel.html
+++ b/docs/module/s_orbel.html
@@ -519,255 +519,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_orbel~~UsesGraph Pages: 1 -->
-<svg id="modules_orbelUsesGraph" width="641pt" height="198pt"
- viewBox="0.00 0.00 641.00 198.38" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_orbel~~UsesGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 273.3)">
+<svg id="modules_orbelUsesGraph" width="641pt" height="193pt"
+ viewBox="0.00 0.00 641.00 193.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_orbel~~UsesGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 265.94)">
 <title>module~~s_orbel~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.3 892,-273.3 892,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 892,-265.94 892,4 -4,4"/>
 <!-- module~s_orbel -->
 <g id="module~~s_orbel~~UsesGraph_node1" class="node">
 <title>module~s_orbel</title>
-<polygon fill="none" stroke="black" points="888,-217.16 834,-217.16 834,-193.16 888,-193.16 888,-217.16"/>
-<text text-anchor="middle" x="861" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_orbel</text>
+<polygon fill="none" stroke="black" points="888,-234.94 834,-234.94 834,-210.94 888,-210.94 888,-234.94"/>
+<text text-anchor="middle" x="861" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_orbel</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_orbel~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_orbel~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_orbel&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_orbel~~UsesGraph_edge2" class="edge">
 <title>module~s_orbel&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M833.63,-216.62C774.65,-240.64 628.02,-291.39 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.73,-231.69C796.83,-243.19 727.33,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_orbel~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_orbel~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_orbel&#45;&gt;module~swiftest -->
 <g id="module~~s_orbel~~UsesGraph_edge1" class="edge">
 <title>module~s_orbel&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M841.34,-193.07C829.09,-185.14 812.86,-174.63 799.19,-165.77"/>
-<polygon fill="#000000" stroke="#000000" points="800.93,-162.73 790.64,-160.23 797.13,-168.6 800.93,-162.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.6,-216.94C825.52,-215.1 816.49,-213.05 807.9,-211.1"/>
+<polygon fill="#000000" stroke="#000000" points="808.61,-207.67 798.08,-208.87 807.06,-214.5 808.61,-207.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_orbel~~UsesGraph_node9" class="node">
+<g id="module~~s_orbel~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_orbel~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_orbel~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_orbel~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_orbel~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_orbel~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_orbel~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_orbel~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_orbel~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_orbel~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_orbel~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_orbel~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_orbel~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_orbel~~UsesGraph_edge6" class="edge">
+<g id="module~~s_orbel~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_orbel~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_orbel~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_orbel~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_orbel~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_orbel~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_orbel~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_orbel~~UsesGraph_edge7" class="edge">
+<g id="module~~s_orbel~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_orbel~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_orbel~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_orbel~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_orbel~~UsesGraph_node8" class="node">
+<g id="module~~s_orbel~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_orbel~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_orbel~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_orbel~~UsesGraph_edge8" class="edge">
+<g id="module~~s_orbel~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_orbel~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_orbel~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_orbel~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_orbel~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_orbel~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_orbel~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_orbel~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_orbel~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_orbel~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_orbel~~UsesGraph_edge12" class="edge">
+<g id="module~~s_orbel~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_orbel~~UsesGraph_edge14" class="edge">
+<g id="module~~s_orbel~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_orbel~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_orbel~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_orbel~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_orbel~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_orbel~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_orbel~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_orbel~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_orbel~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_orbel~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_orbel~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_orbel~~UsesGraph_edge21" class="edge">
+<g id="module~~s_orbel~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_orbel~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_orbel~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_orbel~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_orbel~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_orbel~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_orbel~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_rmvs_chk.html b/docs/module/s_rmvs_chk.html
index 622ed45ce..41825c390 100644
--- a/docs/module/s_rmvs_chk.html
+++ b/docs/module/s_rmvs_chk.html
@@ -247,260 +247,261 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_rmvs_chk~~UsesGraph Pages: 1 -->
-<svg id="modules_rmvs_chkUsesGraph" width="641pt" height="201pt"
- viewBox="0.00 0.00 641.00 201.03" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_rmvs_chk~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 282.03)">
+<svg id="modules_rmvs_chkUsesGraph" width="641pt" height="189pt"
+ viewBox="0.00 0.00 641.00 188.61" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_rmvs_chk~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 264.35)">
 <title>module~~s_rmvs_chk~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282.03 908,-282.03 908,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-264.35 908,-264.35 908,4 -4,4"/>
 <!-- module~s_rmvs_chk -->
 <g id="module~~s_rmvs_chk~~UsesGraph_node1" class="node">
 <title>module~s_rmvs_chk</title>
-<polygon fill="none" stroke="black" points="904,-204.23 834,-204.23 834,-180.23 904,-180.23 904,-204.23"/>
-<text text-anchor="middle" x="869" y="-189.83" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_chk</text>
-</g>
-<!-- module~rmvs_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_node2" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~s_rmvs_chk~~UsesGraph_node2"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-244.23 510,-244.23 510,-220.23 587,-220.23 587,-244.23"/>
-<text text-anchor="middle" x="548.5" y="-229.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
-</a>
-</g>
-</g>
-<!-- module~s_rmvs_chk&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge2" class="edge">
-<title>module~s_rmvs_chk&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M833.91,-196.51C776.87,-203.67 661.93,-218.11 596.99,-226.26"/>
-<polygon fill="#000000" stroke="#000000" points="596.5,-222.8 587.02,-227.51 597.37,-229.74 596.5,-222.8"/>
+<polygon fill="none" stroke="black" points="904,-44 834,-44 834,-20 904,-20 904,-44"/>
+<text text-anchor="middle" x="869" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_chk</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_rmvs_chk~~UsesGraph_node3" class="node">
+<g id="module~~s_rmvs_chk~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~s_rmvs_chk~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-184.23 744,-184.23 744,-160.23 798,-160.23 798,-184.23"/>
-<text text-anchor="middle" x="771" y="-169.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~s_rmvs_chk~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-84 744,-84 744,-60 798,-60 798,-84"/>
+<text text-anchor="middle" x="771" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
 <g id="module~~s_rmvs_chk~~UsesGraph_edge1" class="edge">
 <title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.88,-185.12C825.53,-183.38 816.56,-181.51 808.12,-179.75"/>
-<polygon fill="#000000" stroke="#000000" points="808.66,-176.29 798.16,-177.68 807.24,-183.14 808.66,-176.29"/>
-</g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_rmvs_chk~~UsesGraph_node8" class="node">
-<title>module~swiftest_globals</title>
-<g id="a_module~~s_rmvs_chk~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-84.23 123,-84.23 123,-60.23 211,-60.23 211,-84.23"/>
-<text text-anchor="middle" x="167" y="-69.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
-</a>
-</g>
-</g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge4" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-272.23C360.14,-263.73 350.75,-239.55 293.5,-212.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.08,-244.46C504.34,-258.01 462.69,-277.32 425,-272.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M839.2,-44C829.22,-48.16 817.91,-52.87 807.46,-57.22"/>
+<polygon fill="#000000" stroke="#000000" points="806.05,-54.02 798.17,-61.1 808.74,-60.48 806.05,-54.02"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_rmvs_chk~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-224.23 386,-224.23 386,-200.23 462,-200.23 462,-224.23"/>
-<text text-anchor="middle" x="424" y="-209.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- module~rmvs_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_node3" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_rmvs_chk~~UsesGraph_node3"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-24 510,-24 510,0 587,0 587,-24"/>
+<text text-anchor="middle" x="548.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge3" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-226.06C497.99,-224.14 484.88,-222 472.55,-219.99"/>
-<polygon fill="#000000" stroke="#000000" points="472.85,-216.49 462.42,-218.34 471.72,-223.4 472.85,-216.49"/>
+<!-- module~s_rmvs_chk&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge2" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M833.91,-29.86C776.99,-26.28 662.41,-19.09 597.39,-15.01"/>
+<polygon fill="#000000" stroke="#000000" points="597.22,-11.49 587.02,-14.36 596.78,-18.48 597.22,-11.49"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge8" class="edge">
+<g id="module~~s_rmvs_chk~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C637.75,-198.06 608.78,-207.91 586.61,-216.51"/>
-<polygon fill="#000000" stroke="#000000" points="585.25,-213.28 577.24,-220.22 587.82,-219.79 585.25,-213.28"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.66,-66.72C722.76,-62.58 692.8,-56.74 666.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-52C637.32,-47.1 607.92,-36.78 585.66,-27.85"/>
+<polygon fill="#000000" stroke="#000000" points="586.85,-24.56 576.27,-24 584.19,-31.04 586.85,-24.56"/>
 </g>
-<!-- module~helio_classes -->
+<!-- module~swiftest_globals -->
 <g id="module~~s_rmvs_chk~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_rmvs_chk~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-164.23 510.5,-164.23 510.5,-140.23 586.5,-140.23 586.5,-164.23"/>
-<text text-anchor="middle" x="548.5" y="-149.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_rmvs_chk~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-143 123,-143 123,-119 211,-119 211,-143"/>
+<text text-anchor="middle" x="167" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge5" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C632.78,-198.96 598.17,-183.42 575.3,-169.85"/>
-<polygon fill="#000000" stroke="#000000" points="576.89,-166.72 566.55,-164.42 573.2,-172.67 576.89,-166.72"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.69,-177.89C722.8,-182.31 692.84,-188.47 666.5,-193.23"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C513.53,-211 507.34,-225.49 474,-232 396.78,-247.08 373.23,-274.04 298,-251"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_rmvs_chk~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_rmvs_chk~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-44.23 247,-44.23 247,-20.23 338,-20.23 338,-44.23"/>
-<text text-anchor="middle" x="292.5" y="-29.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-223 383,-223 383,-199 474,-199 474,-223"/>
+<text text-anchor="middle" x="428.5" y="-208.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge6" class="edge">
+<g id="module~~s_rmvs_chk~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-74.23C495.08,-59.53 479.44,-74.64 425,-74.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-74.23C388.42,-73.96 351.07,-60.28 325.41,-48.61"/>
-<polygon fill="#000000" stroke="#000000" points="326.71,-45.35 316.17,-44.26 323.73,-51.69 326.71,-45.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C526.83,-211 504.12,-211 484.19,-211"/>
+<polygon fill="#000000" stroke="#000000" points="484.05,-207.5 474.05,-211 484.05,-214.5 484.05,-207.5"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_rmvs_chk~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_rmvs_chk~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-25.23 374,-25.23 374,-1.23 474,-1.23 474,-25.23"/>
-<text text-anchor="middle" x="424" y="-10.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-183 247,-183 247,-159 347,-159 347,-183"/>
+<text text-anchor="middle" x="297" y="-168.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge7" class="edge">
+<g id="module~~s_rmvs_chk~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M753.5,-160.14C741.34,-151.59 724.17,-140.28 708,-132.23 640.85,-98.8 623.97,-83.22 549.5,-74.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-74.23C512.81,-64.5 476.24,-44.9 452.19,-30.53"/>
-<polygon fill="#000000" stroke="#000000" points="453.97,-27.52 443.61,-25.31 450.33,-33.5 453.97,-27.52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-171C405.21,-163.9 379.64,-162.57 357.15,-163.49"/>
+<polygon fill="#000000" stroke="#000000" points="356.83,-160 347.05,-164.06 357.23,-166.99 356.83,-160"/>
 </g>
-<!-- module~symba_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_rmvs_chk~~UsesGraph_node7" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~s_rmvs_chk~~UsesGraph_node7"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-165.23 623,-165.23 623,-141.23 708,-141.23 708,-165.23"/>
-<text text-anchor="middle" x="665.5" y="-150.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<title>module~helio_classes</title>
+<g id="a_module~~s_rmvs_chk~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-143 510.5,-143 510.5,-119 586.5,-119 586.5,-143"/>
+<text text-anchor="middle" x="548.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-167.43C736.05,-165.99 727.17,-164.36 718.29,-162.73"/>
-<polygon fill="#000000" stroke="#000000" points="718.79,-159.27 708.32,-160.9 717.52,-166.15 718.79,-159.27"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-211C622.73,-223.74 582.98,-179.25 562.96,-151.54"/>
+<polygon fill="#000000" stroke="#000000" points="565.76,-149.44 557.18,-143.23 560.02,-153.44 565.76,-149.44"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.34,-84.21C756.38,-114.7 725.49,-193 666.5,-211"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_node8" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_rmvs_chk~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-63 390.5,-63 390.5,-39 466.5,-39 466.5,-63"/>
+<text text-anchor="middle" x="428.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C621.75,-201.59 627.33,-236.75 587,-253.23 519.89,-280.64 496.84,-281.94 425,-272.23"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-52C600.35,-40.44 524.73,-42.92 476.95,-46.42"/>
+<polygon fill="#000000" stroke="#000000" points="476.6,-42.93 466.9,-47.2 477.14,-49.91 476.6,-42.93"/>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_rmvs_chk~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_rmvs_chk~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-124.23 248,-124.23 248,-100.23 337,-100.23 337,-124.23"/>
-<text text-anchor="middle" x="292.5" y="-109.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-103 252.5,-103 252.5,-79 341.5,-79 341.5,-103"/>
+<text text-anchor="middle" x="297" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge11" class="edge">
+<g id="module~~s_rmvs_chk~~UsesGraph_edge9" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-74.23C389.76,-73.97 353.59,-85.67 327.94,-96.15"/>
-<polygon fill="#000000" stroke="#000000" points="326.5,-92.96 318.66,-100.08 329.23,-99.41 326.5,-92.96"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-171C386.28,-157.86 344.83,-128.82 320.29,-109.58"/>
+<polygon fill="#000000" stroke="#000000" points="322.34,-106.74 312.34,-103.22 317.97,-112.2 322.34,-106.74"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C519.81,-211 455.88,-179.41 429.5,-171"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-211C615.61,-225.91 600.61,-211 549.5,-211"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<!-- module~symba_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_node10" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_rmvs_chk~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-104 623,-104 623,-80 708,-80 708,-104"/>
+<text text-anchor="middle" x="665.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-77.05C736.05,-78.56 727.17,-80.28 718.29,-81.99"/>
+<polygon fill="#000000" stroke="#000000" points="717.47,-78.59 708.32,-83.92 718.8,-85.46 717.47,-78.59"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge11" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-14.69C476.26,-17.42 426.14,-22.35 383,-30 344.68,-36.8 335.44,-40.4 298,-51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-51C273.42,-56.99 267.34,-58.52 247,-70 225.86,-81.93 204.21,-99.06 188.93,-112.14"/>
+<polygon fill="#000000" stroke="#000000" points="186.38,-109.72 181.14,-118.92 190.98,-114.99 186.38,-109.72"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <g id="module~~s_rmvs_chk~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C598.54,-205.14 521.01,-209.59 472.43,-211.24"/>
-<polygon fill="#000000" stroke="#000000" points="472.1,-207.75 462.22,-211.56 472.33,-214.75 472.1,-207.75"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.13,-24.02C499.92,-27.73 487.42,-31.86 475.63,-35.75"/>
+<polygon fill="#000000" stroke="#000000" points="474.35,-32.49 465.95,-38.95 476.54,-39.14 474.35,-32.49"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge15" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-212.23C237.95,-186.67 197.84,-126.07 179.32,-93.62"/>
-<polygon fill="#000000" stroke="#000000" points="182.19,-91.57 174.28,-84.52 176.07,-94.97 182.19,-91.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-172.23C362.81,-174.74 347.86,-238.17 293.5,-212.23"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_rmvs_chk~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_rmvs_chk~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-143 0,-143 0,-119 87,-119 87,-143"/>
+<text text-anchor="middle" x="43.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-172.23C382.25,-173.93 340.37,-148.64 315.65,-130.36"/>
-<polygon fill="#000000" stroke="#000000" points="317.73,-127.54 307.66,-124.25 313.48,-133.1 317.73,-127.54"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.48,-160.65C486.3,-165.56 453.96,-171.02 425,-172.23"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge14" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.71,-164.37C504.36,-173.35 479.15,-185.7 458.94,-195.61"/>
-<polygon fill="#000000" stroke="#000000" points="457.19,-192.56 449.75,-200.1 460.27,-198.85 457.19,-192.56"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge13" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-131C114.58,-131 105.86,-131 97.36,-131"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-127.5 87.13,-131 97.13,-134.5 97.13,-127.5"/>
 </g>
 <!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge16" class="edge">
+<g id="module~~s_rmvs_chk~~UsesGraph_edge14" class="edge">
 <title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-44.23C242.1,-48.23 228.18,-52.73 215.18,-56.95"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-53.68 205.45,-60.1 216.05,-60.34 213.89,-53.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.07,-223.01C369.16,-236.83 317.35,-256.93 298,-251"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-251C243.21,-234.83 201.01,-181.4 180.86,-151.58"/>
+<polygon fill="#000000" stroke="#000000" points="183.75,-149.59 175.33,-143.15 177.89,-153.43 183.75,-149.59"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge17" class="edge">
+<g id="module~~s_rmvs_chk~~UsesGraph_edge15" class="edge">
 <title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.81,-4.06C337.73,0.64 288.07,2.78 247,-11.23 222.84,-19.47 200.32,-38.43 185.56,-53.04"/>
-<polygon fill="#000000" stroke="#000000" points="183.05,-50.6 178.58,-60.2 188.07,-55.48 183.05,-50.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-159C244.68,-154.96 230.09,-150.4 216.5,-146.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-142.77 206.82,-143.13 215.32,-149.45 217.41,-142.77"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.49,-165.4C637.62,-169.68 629.91,-174.58 623,-179.23 606.35,-190.43 588.05,-203.62 573.88,-214.04"/>
-<polygon fill="#000000" stroke="#000000" points="571.6,-211.37 565.63,-220.13 575.76,-217 571.6,-211.37"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-152.87C614.47,-152.79 605.46,-152.71 596.76,-152.64"/>
-<polygon fill="#000000" stroke="#000000" points="596.79,-149.14 586.76,-152.55 596.73,-156.14 596.79,-149.14"/>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge16" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131C356.32,-125.62 273.85,-126.9 221.33,-128.66"/>
+<polygon fill="#000000" stroke="#000000" points="221.11,-125.16 211.24,-129.01 221.35,-132.16 221.11,-125.16"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-112.23C384.2,-109.29 376.31,-98.07 338,-91.23 299.19,-84.29 254.91,-79.44 221.27,-76.38"/>
-<polygon fill="#000000" stroke="#000000" points="221.46,-72.88 211.19,-75.48 220.84,-79.85 221.46,-72.88"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.56,-141.15C614.06,-137.52 600.03,-133.82 587,-131.23 515.9,-117.06 497.39,-116.07 425,-112.23"/>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge17" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M532.07,-118.93C517.42,-107.65 494.65,-90.56 474,-77 469.63,-74.13 464.93,-71.21 460.28,-68.42"/>
+<polygon fill="#000000" stroke="#000000" points="461.9,-65.31 451.51,-63.25 458.35,-71.34 461.9,-65.31"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_chk~~UsesGraph_edge18" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-112.23C398.1,-110.34 370.43,-110.09 347.08,-110.42"/>
-<polygon fill="#000000" stroke="#000000" points="346.96,-106.92 337.02,-110.59 347.08,-113.92 346.96,-106.92"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_rmvs_chk~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_rmvs_chk~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-84.23 0,-84.23 0,-60.23 87,-60.23 87,-84.23"/>
-<text text-anchor="middle" x="43.5" y="-69.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-132.44C486.99,-132.98 456.46,-133.04 429.5,-131"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131C394.83,-128.53 359.4,-116.92 333.87,-106.84"/>
+<polygon fill="#000000" stroke="#000000" points="335.18,-103.59 324.59,-103.07 332.54,-110.08 335.18,-103.59"/>
 </g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge19" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.48,-45.72C364.18,-43.23 328.29,-42.43 298,-51"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge22" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-72.23C114.58,-72.23 105.86,-72.23 97.36,-72.23"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-68.73 87.13,-72.23 97.13,-75.73 97.13,-68.73"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge20" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-62.46C376.79,-66.66 361.18,-71.48 346.71,-75.95"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-72.68 336.92,-78.98 347.51,-79.37 345.44,-72.68"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_chk~~UsesGraph_edge23" class="edge">
+<g id="module~~s_rmvs_chk~~UsesGraph_edge21" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-100.23C242.1,-96.23 228.18,-91.72 215.18,-87.51"/>
-<polygon fill="#000000" stroke="#000000" points="216.05,-84.11 205.45,-84.36 213.89,-90.77 216.05,-84.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-103C244.68,-107.04 230.09,-111.6 216.5,-115.84"/>
+<polygon fill="#000000" stroke="#000000" points="215.32,-112.55 206.82,-118.87 217.41,-119.23 215.32,-112.55"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge23" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.47,-79.86C637.59,-75.59 629.89,-70.68 623,-66 606.19,-54.58 587.76,-41.04 573.56,-30.37"/>
+<polygon fill="#000000" stroke="#000000" points="575.4,-27.38 565.31,-24.14 571.18,-32.96 575.4,-27.38"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_chk~~UsesGraph_edge22" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.83,-93.61C575.8,-95.01 497.03,-96.11 429.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-91C367.49,-85.71 356.22,-35.55 298,-51"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <g id="module~~s_rmvs_chk~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.97,-220.41C359,-224.47 322.31,-225.98 293.5,-212.23"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M629.06,-104.02C618.24,-107.69 606.19,-111.78 594.81,-115.64"/>
+<polygon fill="#000000" stroke="#000000" points="593.37,-112.43 585.02,-118.95 595.62,-119.06 593.37,-112.43"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_chk~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.34,-200.19C389.6,-196.14 381.23,-191.34 374,-186.23 350.82,-169.84 327.26,-147.34 311.66,-131.47"/>
-<polygon fill="#000000" stroke="#000000" points="314.16,-129.02 304.69,-124.27 309.13,-133.89 314.16,-129.02"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-91C402.6,-89.12 374.93,-88.87 351.58,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-85.69 341.52,-89.37 351.58,-92.69 351.46,-85.69"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_rmvs_discard.html b/docs/module/s_rmvs_discard.html
index 13bad24ee..33f011d37 100644
--- a/docs/module/s_rmvs_discard.html
+++ b/docs/module/s_rmvs_discard.html
@@ -245,260 +245,261 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_rmvs_discard~~UsesGraph Pages: 1 -->
-<svg id="modules_rmvs_discardUsesGraph" width="641pt" height="197pt"
- viewBox="0.00 0.00 641.00 197.14" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_rmvs_discard~~UsesGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 282.03)">
+<svg id="modules_rmvs_discardUsesGraph" width="641pt" height="185pt"
+ viewBox="0.00 0.00 641.00 184.96" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_rmvs_discard~~UsesGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 264.35)">
 <title>module~~s_rmvs_discard~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282.03 926,-282.03 926,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-264.35 926,-264.35 926,4 -4,4"/>
 <!-- module~s_rmvs_discard -->
 <g id="module~~s_rmvs_discard~~UsesGraph_node1" class="node">
 <title>module~s_rmvs_discard</title>
-<polygon fill="none" stroke="black" points="922,-204.23 834,-204.23 834,-180.23 922,-180.23 922,-204.23"/>
-<text text-anchor="middle" x="878" y="-189.83" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_discard</text>
-</g>
-<!-- module~rmvs_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_node2" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~s_rmvs_discard~~UsesGraph_node2"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-244.23 510,-244.23 510,-220.23 587,-220.23 587,-244.23"/>
-<text text-anchor="middle" x="548.5" y="-229.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
-</a>
-</g>
-</g>
-<!-- module~s_rmvs_discard&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge2" class="edge">
-<title>module~s_rmvs_discard&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M833.85,-197.5C772.64,-204.97 660.99,-218.61 597.33,-226.38"/>
-<polygon fill="#000000" stroke="#000000" points="596.66,-222.94 587.16,-227.63 597.51,-229.89 596.66,-222.94"/>
+<polygon fill="none" stroke="black" points="922,-44 834,-44 834,-20 922,-20 922,-44"/>
+<text text-anchor="middle" x="878" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_discard</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_rmvs_discard~~UsesGraph_node3" class="node">
+<g id="module~~s_rmvs_discard~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~s_rmvs_discard~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-184.23 744,-184.23 744,-160.23 798,-160.23 798,-184.23"/>
-<text text-anchor="middle" x="771" y="-169.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~s_rmvs_discard~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-84 744,-84 744,-60 798,-60 798,-84"/>
+<text text-anchor="middle" x="771" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
 <g id="module~~s_rmvs_discard~~UsesGraph_edge1" class="edge">
 <title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.99,-184.03C825.47,-182.41 816.6,-180.72 808.33,-179.15"/>
-<polygon fill="#000000" stroke="#000000" points="808.72,-175.66 798.24,-177.22 807.41,-182.53 808.72,-175.66"/>
-</g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_rmvs_discard~~UsesGraph_node8" class="node">
-<title>module~swiftest_globals</title>
-<g id="a_module~~s_rmvs_discard~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-84.23 123,-84.23 123,-60.23 211,-60.23 211,-84.23"/>
-<text text-anchor="middle" x="167" y="-69.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
-</a>
-</g>
-</g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge4" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-272.23C360.14,-263.73 350.75,-239.55 293.5,-212.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.08,-244.46C504.34,-258.01 462.69,-277.32 425,-272.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M845.5,-44C833.58,-48.54 819.94,-53.74 807.66,-58.41"/>
+<polygon fill="#000000" stroke="#000000" points="806.28,-55.2 798.18,-62.03 808.77,-61.74 806.28,-55.2"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_rmvs_discard~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-224.23 386,-224.23 386,-200.23 462,-200.23 462,-224.23"/>
-<text text-anchor="middle" x="424" y="-209.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- module~rmvs_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_node3" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_rmvs_discard~~UsesGraph_node3"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-24 510,-24 510,0 587,0 587,-24"/>
+<text text-anchor="middle" x="548.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge3" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-226.06C497.99,-224.14 484.88,-222 472.55,-219.99"/>
-<polygon fill="#000000" stroke="#000000" points="472.85,-216.49 462.42,-218.34 471.72,-223.4 472.85,-216.49"/>
+<!-- module~s_rmvs_discard&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge2" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M833.85,-29.36C772.64,-25.63 660.99,-18.81 597.33,-14.92"/>
+<polygon fill="#000000" stroke="#000000" points="597.36,-11.42 587.16,-14.3 596.93,-18.4 597.36,-11.42"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge8" class="edge">
+<g id="module~~s_rmvs_discard~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C637.75,-198.06 608.78,-207.91 586.61,-216.51"/>
-<polygon fill="#000000" stroke="#000000" points="585.25,-213.28 577.24,-220.22 587.82,-219.79 585.25,-213.28"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.66,-66.72C722.76,-62.58 692.8,-56.74 666.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-52C637.32,-47.1 607.92,-36.78 585.66,-27.85"/>
+<polygon fill="#000000" stroke="#000000" points="586.85,-24.56 576.27,-24 584.19,-31.04 586.85,-24.56"/>
 </g>
-<!-- module~helio_classes -->
+<!-- module~swiftest_globals -->
 <g id="module~~s_rmvs_discard~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_rmvs_discard~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-164.23 510.5,-164.23 510.5,-140.23 586.5,-140.23 586.5,-164.23"/>
-<text text-anchor="middle" x="548.5" y="-149.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_rmvs_discard~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-143 123,-143 123,-119 211,-119 211,-143"/>
+<text text-anchor="middle" x="167" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge5" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C632.78,-198.96 598.17,-183.42 575.3,-169.85"/>
-<polygon fill="#000000" stroke="#000000" points="576.89,-166.72 566.55,-164.42 573.2,-172.67 576.89,-166.72"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.69,-177.89C722.8,-182.31 692.84,-188.47 666.5,-193.23"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C513.53,-211 507.34,-225.49 474,-232 396.78,-247.08 373.23,-274.04 298,-251"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_rmvs_discard~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_rmvs_discard~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-44.23 247,-44.23 247,-20.23 338,-20.23 338,-44.23"/>
-<text text-anchor="middle" x="292.5" y="-29.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-223 383,-223 383,-199 474,-199 474,-223"/>
+<text text-anchor="middle" x="428.5" y="-208.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge6" class="edge">
+<g id="module~~s_rmvs_discard~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-74.23C495.08,-59.53 479.44,-74.64 425,-74.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-74.23C388.42,-73.96 351.07,-60.28 325.41,-48.61"/>
-<polygon fill="#000000" stroke="#000000" points="326.71,-45.35 316.17,-44.26 323.73,-51.69 326.71,-45.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C526.83,-211 504.12,-211 484.19,-211"/>
+<polygon fill="#000000" stroke="#000000" points="484.05,-207.5 474.05,-211 484.05,-214.5 484.05,-207.5"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_rmvs_discard~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_rmvs_discard~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-25.23 374,-25.23 374,-1.23 474,-1.23 474,-25.23"/>
-<text text-anchor="middle" x="424" y="-10.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-183 247,-183 247,-159 347,-159 347,-183"/>
+<text text-anchor="middle" x="297" y="-168.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge7" class="edge">
+<g id="module~~s_rmvs_discard~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M753.5,-160.14C741.34,-151.59 724.17,-140.28 708,-132.23 640.85,-98.8 623.97,-83.22 549.5,-74.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-74.23C512.81,-64.5 476.24,-44.9 452.19,-30.53"/>
-<polygon fill="#000000" stroke="#000000" points="453.97,-27.52 443.61,-25.31 450.33,-33.5 453.97,-27.52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-171C405.21,-163.9 379.64,-162.57 357.15,-163.49"/>
+<polygon fill="#000000" stroke="#000000" points="356.83,-160 347.05,-164.06 357.23,-166.99 356.83,-160"/>
 </g>
-<!-- module~symba_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_rmvs_discard~~UsesGraph_node7" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~s_rmvs_discard~~UsesGraph_node7"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-165.23 623,-165.23 623,-141.23 708,-141.23 708,-165.23"/>
-<text text-anchor="middle" x="665.5" y="-150.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<title>module~helio_classes</title>
+<g id="a_module~~s_rmvs_discard~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-143 510.5,-143 510.5,-119 586.5,-119 586.5,-143"/>
+<text text-anchor="middle" x="548.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-167.43C736.05,-165.99 727.17,-164.36 718.29,-162.73"/>
-<polygon fill="#000000" stroke="#000000" points="718.79,-159.27 708.32,-160.9 717.52,-166.15 718.79,-159.27"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-211C622.73,-223.74 582.98,-179.25 562.96,-151.54"/>
+<polygon fill="#000000" stroke="#000000" points="565.76,-149.44 557.18,-143.23 560.02,-153.44 565.76,-149.44"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.34,-84.21C756.38,-114.7 725.49,-193 666.5,-211"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_node8" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_rmvs_discard~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-63 390.5,-63 390.5,-39 466.5,-39 466.5,-63"/>
+<text text-anchor="middle" x="428.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C621.75,-201.59 627.33,-236.75 587,-253.23 519.89,-280.64 496.84,-281.94 425,-272.23"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-52C600.35,-40.44 524.73,-42.92 476.95,-46.42"/>
+<polygon fill="#000000" stroke="#000000" points="476.6,-42.93 466.9,-47.2 477.14,-49.91 476.6,-42.93"/>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_rmvs_discard~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_rmvs_discard~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-124.23 248,-124.23 248,-100.23 337,-100.23 337,-124.23"/>
-<text text-anchor="middle" x="292.5" y="-109.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-103 252.5,-103 252.5,-79 341.5,-79 341.5,-103"/>
+<text text-anchor="middle" x="297" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge11" class="edge">
+<g id="module~~s_rmvs_discard~~UsesGraph_edge9" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-74.23C389.76,-73.97 353.59,-85.67 327.94,-96.15"/>
-<polygon fill="#000000" stroke="#000000" points="326.5,-92.96 318.66,-100.08 329.23,-99.41 326.5,-92.96"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-171C386.28,-157.86 344.83,-128.82 320.29,-109.58"/>
+<polygon fill="#000000" stroke="#000000" points="322.34,-106.74 312.34,-103.22 317.97,-112.2 322.34,-106.74"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C519.81,-211 455.88,-179.41 429.5,-171"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-211C615.61,-225.91 600.61,-211 549.5,-211"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<!-- module~symba_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_node10" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_rmvs_discard~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-104 623,-104 623,-80 708,-80 708,-104"/>
+<text text-anchor="middle" x="665.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-77.05C736.05,-78.56 727.17,-80.28 718.29,-81.99"/>
+<polygon fill="#000000" stroke="#000000" points="717.47,-78.59 708.32,-83.92 718.8,-85.46 717.47,-78.59"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge11" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-14.69C476.26,-17.42 426.14,-22.35 383,-30 344.68,-36.8 335.44,-40.4 298,-51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-51C273.42,-56.99 267.34,-58.52 247,-70 225.86,-81.93 204.21,-99.06 188.93,-112.14"/>
+<polygon fill="#000000" stroke="#000000" points="186.38,-109.72 181.14,-118.92 190.98,-114.99 186.38,-109.72"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <g id="module~~s_rmvs_discard~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C598.54,-205.14 521.01,-209.59 472.43,-211.24"/>
-<polygon fill="#000000" stroke="#000000" points="472.1,-207.75 462.22,-211.56 472.33,-214.75 472.1,-207.75"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.13,-24.02C499.92,-27.73 487.42,-31.86 475.63,-35.75"/>
+<polygon fill="#000000" stroke="#000000" points="474.35,-32.49 465.95,-38.95 476.54,-39.14 474.35,-32.49"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge15" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-212.23C237.95,-186.67 197.84,-126.07 179.32,-93.62"/>
-<polygon fill="#000000" stroke="#000000" points="182.19,-91.57 174.28,-84.52 176.07,-94.97 182.19,-91.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-172.23C362.81,-174.74 347.86,-238.17 293.5,-212.23"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_rmvs_discard~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_rmvs_discard~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-143 0,-143 0,-119 87,-119 87,-143"/>
+<text text-anchor="middle" x="43.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-172.23C382.25,-173.93 340.37,-148.64 315.65,-130.36"/>
-<polygon fill="#000000" stroke="#000000" points="317.73,-127.54 307.66,-124.25 313.48,-133.1 317.73,-127.54"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.48,-160.65C486.3,-165.56 453.96,-171.02 425,-172.23"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge14" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.71,-164.37C504.36,-173.35 479.15,-185.7 458.94,-195.61"/>
-<polygon fill="#000000" stroke="#000000" points="457.19,-192.56 449.75,-200.1 460.27,-198.85 457.19,-192.56"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge13" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-131C114.58,-131 105.86,-131 97.36,-131"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-127.5 87.13,-131 97.13,-134.5 97.13,-127.5"/>
 </g>
 <!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge16" class="edge">
+<g id="module~~s_rmvs_discard~~UsesGraph_edge14" class="edge">
 <title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-44.23C242.1,-48.23 228.18,-52.73 215.18,-56.95"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-53.68 205.45,-60.1 216.05,-60.34 213.89,-53.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.07,-223.01C369.16,-236.83 317.35,-256.93 298,-251"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-251C243.21,-234.83 201.01,-181.4 180.86,-151.58"/>
+<polygon fill="#000000" stroke="#000000" points="183.75,-149.59 175.33,-143.15 177.89,-153.43 183.75,-149.59"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge17" class="edge">
+<g id="module~~s_rmvs_discard~~UsesGraph_edge15" class="edge">
 <title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.81,-4.06C337.73,0.64 288.07,2.78 247,-11.23 222.84,-19.47 200.32,-38.43 185.56,-53.04"/>
-<polygon fill="#000000" stroke="#000000" points="183.05,-50.6 178.58,-60.2 188.07,-55.48 183.05,-50.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-159C244.68,-154.96 230.09,-150.4 216.5,-146.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-142.77 206.82,-143.13 215.32,-149.45 217.41,-142.77"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.49,-165.4C637.62,-169.68 629.91,-174.58 623,-179.23 606.35,-190.43 588.05,-203.62 573.88,-214.04"/>
-<polygon fill="#000000" stroke="#000000" points="571.6,-211.37 565.63,-220.13 575.76,-217 571.6,-211.37"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-152.87C614.47,-152.79 605.46,-152.71 596.76,-152.64"/>
-<polygon fill="#000000" stroke="#000000" points="596.79,-149.14 586.76,-152.55 596.73,-156.14 596.79,-149.14"/>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge16" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131C356.32,-125.62 273.85,-126.9 221.33,-128.66"/>
+<polygon fill="#000000" stroke="#000000" points="221.11,-125.16 211.24,-129.01 221.35,-132.16 221.11,-125.16"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-112.23C384.2,-109.29 376.31,-98.07 338,-91.23 299.19,-84.29 254.91,-79.44 221.27,-76.38"/>
-<polygon fill="#000000" stroke="#000000" points="221.46,-72.88 211.19,-75.48 220.84,-79.85 221.46,-72.88"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.56,-141.15C614.06,-137.52 600.03,-133.82 587,-131.23 515.9,-117.06 497.39,-116.07 425,-112.23"/>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge17" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M532.07,-118.93C517.42,-107.65 494.65,-90.56 474,-77 469.63,-74.13 464.93,-71.21 460.28,-68.42"/>
+<polygon fill="#000000" stroke="#000000" points="461.9,-65.31 451.51,-63.25 458.35,-71.34 461.9,-65.31"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_discard~~UsesGraph_edge18" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-112.23C398.1,-110.34 370.43,-110.09 347.08,-110.42"/>
-<polygon fill="#000000" stroke="#000000" points="346.96,-106.92 337.02,-110.59 347.08,-113.92 346.96,-106.92"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_rmvs_discard~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_rmvs_discard~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-84.23 0,-84.23 0,-60.23 87,-60.23 87,-84.23"/>
-<text text-anchor="middle" x="43.5" y="-69.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-132.44C486.99,-132.98 456.46,-133.04 429.5,-131"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131C394.83,-128.53 359.4,-116.92 333.87,-106.84"/>
+<polygon fill="#000000" stroke="#000000" points="335.18,-103.59 324.59,-103.07 332.54,-110.08 335.18,-103.59"/>
 </g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge19" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.48,-45.72C364.18,-43.23 328.29,-42.43 298,-51"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge22" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-72.23C114.58,-72.23 105.86,-72.23 97.36,-72.23"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-68.73 87.13,-72.23 97.13,-75.73 97.13,-68.73"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge20" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-62.46C376.79,-66.66 361.18,-71.48 346.71,-75.95"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-72.68 336.92,-78.98 347.51,-79.37 345.44,-72.68"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_discard~~UsesGraph_edge23" class="edge">
+<g id="module~~s_rmvs_discard~~UsesGraph_edge21" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-100.23C242.1,-96.23 228.18,-91.72 215.18,-87.51"/>
-<polygon fill="#000000" stroke="#000000" points="216.05,-84.11 205.45,-84.36 213.89,-90.77 216.05,-84.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-103C244.68,-107.04 230.09,-111.6 216.5,-115.84"/>
+<polygon fill="#000000" stroke="#000000" points="215.32,-112.55 206.82,-118.87 217.41,-119.23 215.32,-112.55"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge23" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.47,-79.86C637.59,-75.59 629.89,-70.68 623,-66 606.19,-54.58 587.76,-41.04 573.56,-30.37"/>
+<polygon fill="#000000" stroke="#000000" points="575.4,-27.38 565.31,-24.14 571.18,-32.96 575.4,-27.38"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_discard~~UsesGraph_edge22" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.83,-93.61C575.8,-95.01 497.03,-96.11 429.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-91C367.49,-85.71 356.22,-35.55 298,-51"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <g id="module~~s_rmvs_discard~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.97,-220.41C359,-224.47 322.31,-225.98 293.5,-212.23"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M629.06,-104.02C618.24,-107.69 606.19,-111.78 594.81,-115.64"/>
+<polygon fill="#000000" stroke="#000000" points="593.37,-112.43 585.02,-118.95 595.62,-119.06 593.37,-112.43"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_discard~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.34,-200.19C389.6,-196.14 381.23,-191.34 374,-186.23 350.82,-169.84 327.26,-147.34 311.66,-131.47"/>
-<polygon fill="#000000" stroke="#000000" points="314.16,-129.02 304.69,-124.27 309.13,-133.89 314.16,-129.02"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-91C402.6,-89.12 374.93,-88.87 351.58,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-85.69 341.52,-89.37 351.58,-92.69 351.46,-85.69"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_rmvs_kick.html b/docs/module/s_rmvs_kick.html
index 2373989ce..17c31e217 100644
--- a/docs/module/s_rmvs_kick.html
+++ b/docs/module/s_rmvs_kick.html
@@ -245,260 +245,261 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_rmvs_kick~~UsesGraph Pages: 1 -->
-<svg id="modules_rmvs_kickUsesGraph" width="641pt" height="201pt"
- viewBox="0.00 0.00 641.00 200.81" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_rmvs_kick~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 282.03)">
+<svg id="modules_rmvs_kickUsesGraph" width="641pt" height="188pt"
+ viewBox="0.00 0.00 641.00 188.40" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_rmvs_kick~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 264.35)">
 <title>module~~s_rmvs_kick~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282.03 909,-282.03 909,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-264.35 909,-264.35 909,4 -4,4"/>
 <!-- module~s_rmvs_kick -->
 <g id="module~~s_rmvs_kick~~UsesGraph_node1" class="node">
 <title>module~s_rmvs_kick</title>
-<polygon fill="none" stroke="black" points="905,-204.23 834,-204.23 834,-180.23 905,-180.23 905,-204.23"/>
-<text text-anchor="middle" x="869.5" y="-189.83" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_kick</text>
-</g>
-<!-- module~rmvs_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_node2" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~s_rmvs_kick~~UsesGraph_node2"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-244.23 510,-244.23 510,-220.23 587,-220.23 587,-244.23"/>
-<text text-anchor="middle" x="548.5" y="-229.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
-</a>
-</g>
-</g>
-<!-- module~s_rmvs_kick&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge2" class="edge">
-<title>module~s_rmvs_kick&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M833.75,-196.58C776.43,-203.77 661.94,-218.13 597.12,-226.26"/>
-<polygon fill="#000000" stroke="#000000" points="596.64,-222.79 587.16,-227.5 597.51,-229.73 596.64,-222.79"/>
+<polygon fill="none" stroke="black" points="905,-44 834,-44 834,-20 905,-20 905,-44"/>
+<text text-anchor="middle" x="869.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_kick</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_rmvs_kick~~UsesGraph_node3" class="node">
+<g id="module~~s_rmvs_kick~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~s_rmvs_kick~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-184.23 744,-184.23 744,-160.23 798,-160.23 798,-184.23"/>
-<text text-anchor="middle" x="771" y="-169.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~s_rmvs_kick~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-84 744,-84 744,-60 798,-60 798,-84"/>
+<text text-anchor="middle" x="771" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
 <g id="module~~s_rmvs_kick~~UsesGraph_edge1" class="edge">
 <title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.93,-185.06C825.55,-183.33 816.57,-181.46 808.12,-179.71"/>
-<polygon fill="#000000" stroke="#000000" points="808.65,-176.25 798.15,-177.65 807.23,-183.1 808.65,-176.25"/>
-</g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_rmvs_kick~~UsesGraph_node8" class="node">
-<title>module~swiftest_globals</title>
-<g id="a_module~~s_rmvs_kick~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-84.23 123,-84.23 123,-60.23 211,-60.23 211,-84.23"/>
-<text text-anchor="middle" x="167" y="-69.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
-</a>
-</g>
-</g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge4" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-272.23C360.14,-263.73 350.75,-239.55 293.5,-212.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.08,-244.46C504.34,-258.01 462.69,-277.32 425,-272.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M839.55,-44C829.52,-48.16 818.15,-52.87 807.65,-57.22"/>
+<polygon fill="#000000" stroke="#000000" points="806.2,-54.04 798.3,-61.1 808.88,-60.5 806.2,-54.04"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_rmvs_kick~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-224.23 386,-224.23 386,-200.23 462,-200.23 462,-224.23"/>
-<text text-anchor="middle" x="424" y="-209.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- module~rmvs_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_node3" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_rmvs_kick~~UsesGraph_node3"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-24 510,-24 510,0 587,0 587,-24"/>
+<text text-anchor="middle" x="548.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge3" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-226.06C497.99,-224.14 484.88,-222 472.55,-219.99"/>
-<polygon fill="#000000" stroke="#000000" points="472.85,-216.49 462.42,-218.34 471.72,-223.4 472.85,-216.49"/>
+<!-- module~s_rmvs_kick&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge2" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M833.75,-29.82C776.55,-26.23 662.41,-19.08 597.52,-15.01"/>
+<polygon fill="#000000" stroke="#000000" points="597.36,-11.49 587.16,-14.36 596.92,-18.48 597.36,-11.49"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge8" class="edge">
+<g id="module~~s_rmvs_kick~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C637.75,-198.06 608.78,-207.91 586.61,-216.51"/>
-<polygon fill="#000000" stroke="#000000" points="585.25,-213.28 577.24,-220.22 587.82,-219.79 585.25,-213.28"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.66,-66.72C722.76,-62.58 692.8,-56.74 666.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-52C637.32,-47.1 607.92,-36.78 585.66,-27.85"/>
+<polygon fill="#000000" stroke="#000000" points="586.85,-24.56 576.27,-24 584.19,-31.04 586.85,-24.56"/>
 </g>
-<!-- module~helio_classes -->
+<!-- module~swiftest_globals -->
 <g id="module~~s_rmvs_kick~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_rmvs_kick~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-164.23 510.5,-164.23 510.5,-140.23 586.5,-140.23 586.5,-164.23"/>
-<text text-anchor="middle" x="548.5" y="-149.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_rmvs_kick~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-143 123,-143 123,-119 211,-119 211,-143"/>
+<text text-anchor="middle" x="167" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge5" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C632.78,-198.96 598.17,-183.42 575.3,-169.85"/>
-<polygon fill="#000000" stroke="#000000" points="576.89,-166.72 566.55,-164.42 573.2,-172.67 576.89,-166.72"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.69,-177.89C722.8,-182.31 692.84,-188.47 666.5,-193.23"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C513.53,-211 507.34,-225.49 474,-232 396.78,-247.08 373.23,-274.04 298,-251"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_rmvs_kick~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_rmvs_kick~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-44.23 247,-44.23 247,-20.23 338,-20.23 338,-44.23"/>
-<text text-anchor="middle" x="292.5" y="-29.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-223 383,-223 383,-199 474,-199 474,-223"/>
+<text text-anchor="middle" x="428.5" y="-208.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge6" class="edge">
+<g id="module~~s_rmvs_kick~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-74.23C495.08,-59.53 479.44,-74.64 425,-74.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-74.23C388.42,-73.96 351.07,-60.28 325.41,-48.61"/>
-<polygon fill="#000000" stroke="#000000" points="326.71,-45.35 316.17,-44.26 323.73,-51.69 326.71,-45.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C526.83,-211 504.12,-211 484.19,-211"/>
+<polygon fill="#000000" stroke="#000000" points="484.05,-207.5 474.05,-211 484.05,-214.5 484.05,-207.5"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_rmvs_kick~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_rmvs_kick~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-25.23 374,-25.23 374,-1.23 474,-1.23 474,-25.23"/>
-<text text-anchor="middle" x="424" y="-10.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-183 247,-183 247,-159 347,-159 347,-183"/>
+<text text-anchor="middle" x="297" y="-168.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge7" class="edge">
+<g id="module~~s_rmvs_kick~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M753.5,-160.14C741.34,-151.59 724.17,-140.28 708,-132.23 640.85,-98.8 623.97,-83.22 549.5,-74.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-74.23C512.81,-64.5 476.24,-44.9 452.19,-30.53"/>
-<polygon fill="#000000" stroke="#000000" points="453.97,-27.52 443.61,-25.31 450.33,-33.5 453.97,-27.52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-171C405.21,-163.9 379.64,-162.57 357.15,-163.49"/>
+<polygon fill="#000000" stroke="#000000" points="356.83,-160 347.05,-164.06 357.23,-166.99 356.83,-160"/>
 </g>
-<!-- module~symba_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_rmvs_kick~~UsesGraph_node7" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~s_rmvs_kick~~UsesGraph_node7"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-165.23 623,-165.23 623,-141.23 708,-141.23 708,-165.23"/>
-<text text-anchor="middle" x="665.5" y="-150.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<title>module~helio_classes</title>
+<g id="a_module~~s_rmvs_kick~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-143 510.5,-143 510.5,-119 586.5,-119 586.5,-143"/>
+<text text-anchor="middle" x="548.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-167.43C736.05,-165.99 727.17,-164.36 718.29,-162.73"/>
-<polygon fill="#000000" stroke="#000000" points="718.79,-159.27 708.32,-160.9 717.52,-166.15 718.79,-159.27"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-211C622.73,-223.74 582.98,-179.25 562.96,-151.54"/>
+<polygon fill="#000000" stroke="#000000" points="565.76,-149.44 557.18,-143.23 560.02,-153.44 565.76,-149.44"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.34,-84.21C756.38,-114.7 725.49,-193 666.5,-211"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_node8" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_rmvs_kick~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-63 390.5,-63 390.5,-39 466.5,-39 466.5,-63"/>
+<text text-anchor="middle" x="428.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C621.75,-201.59 627.33,-236.75 587,-253.23 519.89,-280.64 496.84,-281.94 425,-272.23"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-52C600.35,-40.44 524.73,-42.92 476.95,-46.42"/>
+<polygon fill="#000000" stroke="#000000" points="476.6,-42.93 466.9,-47.2 477.14,-49.91 476.6,-42.93"/>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_rmvs_kick~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_rmvs_kick~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-124.23 248,-124.23 248,-100.23 337,-100.23 337,-124.23"/>
-<text text-anchor="middle" x="292.5" y="-109.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-103 252.5,-103 252.5,-79 341.5,-79 341.5,-103"/>
+<text text-anchor="middle" x="297" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge11" class="edge">
+<g id="module~~s_rmvs_kick~~UsesGraph_edge9" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-74.23C389.76,-73.97 353.59,-85.67 327.94,-96.15"/>
-<polygon fill="#000000" stroke="#000000" points="326.5,-92.96 318.66,-100.08 329.23,-99.41 326.5,-92.96"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-171C386.28,-157.86 344.83,-128.82 320.29,-109.58"/>
+<polygon fill="#000000" stroke="#000000" points="322.34,-106.74 312.34,-103.22 317.97,-112.2 322.34,-106.74"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C519.81,-211 455.88,-179.41 429.5,-171"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-211C615.61,-225.91 600.61,-211 549.5,-211"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<!-- module~symba_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_node10" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_rmvs_kick~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-104 623,-104 623,-80 708,-80 708,-104"/>
+<text text-anchor="middle" x="665.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-77.05C736.05,-78.56 727.17,-80.28 718.29,-81.99"/>
+<polygon fill="#000000" stroke="#000000" points="717.47,-78.59 708.32,-83.92 718.8,-85.46 717.47,-78.59"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge11" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-14.69C476.26,-17.42 426.14,-22.35 383,-30 344.68,-36.8 335.44,-40.4 298,-51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-51C273.42,-56.99 267.34,-58.52 247,-70 225.86,-81.93 204.21,-99.06 188.93,-112.14"/>
+<polygon fill="#000000" stroke="#000000" points="186.38,-109.72 181.14,-118.92 190.98,-114.99 186.38,-109.72"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <g id="module~~s_rmvs_kick~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C598.54,-205.14 521.01,-209.59 472.43,-211.24"/>
-<polygon fill="#000000" stroke="#000000" points="472.1,-207.75 462.22,-211.56 472.33,-214.75 472.1,-207.75"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.13,-24.02C499.92,-27.73 487.42,-31.86 475.63,-35.75"/>
+<polygon fill="#000000" stroke="#000000" points="474.35,-32.49 465.95,-38.95 476.54,-39.14 474.35,-32.49"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge15" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-212.23C237.95,-186.67 197.84,-126.07 179.32,-93.62"/>
-<polygon fill="#000000" stroke="#000000" points="182.19,-91.57 174.28,-84.52 176.07,-94.97 182.19,-91.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-172.23C362.81,-174.74 347.86,-238.17 293.5,-212.23"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_rmvs_kick~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_rmvs_kick~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-143 0,-143 0,-119 87,-119 87,-143"/>
+<text text-anchor="middle" x="43.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-172.23C382.25,-173.93 340.37,-148.64 315.65,-130.36"/>
-<polygon fill="#000000" stroke="#000000" points="317.73,-127.54 307.66,-124.25 313.48,-133.1 317.73,-127.54"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.48,-160.65C486.3,-165.56 453.96,-171.02 425,-172.23"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge14" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.71,-164.37C504.36,-173.35 479.15,-185.7 458.94,-195.61"/>
-<polygon fill="#000000" stroke="#000000" points="457.19,-192.56 449.75,-200.1 460.27,-198.85 457.19,-192.56"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge13" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-131C114.58,-131 105.86,-131 97.36,-131"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-127.5 87.13,-131 97.13,-134.5 97.13,-127.5"/>
 </g>
 <!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge16" class="edge">
+<g id="module~~s_rmvs_kick~~UsesGraph_edge14" class="edge">
 <title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-44.23C242.1,-48.23 228.18,-52.73 215.18,-56.95"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-53.68 205.45,-60.1 216.05,-60.34 213.89,-53.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.07,-223.01C369.16,-236.83 317.35,-256.93 298,-251"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-251C243.21,-234.83 201.01,-181.4 180.86,-151.58"/>
+<polygon fill="#000000" stroke="#000000" points="183.75,-149.59 175.33,-143.15 177.89,-153.43 183.75,-149.59"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge17" class="edge">
+<g id="module~~s_rmvs_kick~~UsesGraph_edge15" class="edge">
 <title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.81,-4.06C337.73,0.64 288.07,2.78 247,-11.23 222.84,-19.47 200.32,-38.43 185.56,-53.04"/>
-<polygon fill="#000000" stroke="#000000" points="183.05,-50.6 178.58,-60.2 188.07,-55.48 183.05,-50.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-159C244.68,-154.96 230.09,-150.4 216.5,-146.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-142.77 206.82,-143.13 215.32,-149.45 217.41,-142.77"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.49,-165.4C637.62,-169.68 629.91,-174.58 623,-179.23 606.35,-190.43 588.05,-203.62 573.88,-214.04"/>
-<polygon fill="#000000" stroke="#000000" points="571.6,-211.37 565.63,-220.13 575.76,-217 571.6,-211.37"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-152.87C614.47,-152.79 605.46,-152.71 596.76,-152.64"/>
-<polygon fill="#000000" stroke="#000000" points="596.79,-149.14 586.76,-152.55 596.73,-156.14 596.79,-149.14"/>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge16" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131C356.32,-125.62 273.85,-126.9 221.33,-128.66"/>
+<polygon fill="#000000" stroke="#000000" points="221.11,-125.16 211.24,-129.01 221.35,-132.16 221.11,-125.16"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-112.23C384.2,-109.29 376.31,-98.07 338,-91.23 299.19,-84.29 254.91,-79.44 221.27,-76.38"/>
-<polygon fill="#000000" stroke="#000000" points="221.46,-72.88 211.19,-75.48 220.84,-79.85 221.46,-72.88"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.56,-141.15C614.06,-137.52 600.03,-133.82 587,-131.23 515.9,-117.06 497.39,-116.07 425,-112.23"/>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge17" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M532.07,-118.93C517.42,-107.65 494.65,-90.56 474,-77 469.63,-74.13 464.93,-71.21 460.28,-68.42"/>
+<polygon fill="#000000" stroke="#000000" points="461.9,-65.31 451.51,-63.25 458.35,-71.34 461.9,-65.31"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_kick~~UsesGraph_edge18" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-112.23C398.1,-110.34 370.43,-110.09 347.08,-110.42"/>
-<polygon fill="#000000" stroke="#000000" points="346.96,-106.92 337.02,-110.59 347.08,-113.92 346.96,-106.92"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_rmvs_kick~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_rmvs_kick~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-84.23 0,-84.23 0,-60.23 87,-60.23 87,-84.23"/>
-<text text-anchor="middle" x="43.5" y="-69.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-132.44C486.99,-132.98 456.46,-133.04 429.5,-131"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131C394.83,-128.53 359.4,-116.92 333.87,-106.84"/>
+<polygon fill="#000000" stroke="#000000" points="335.18,-103.59 324.59,-103.07 332.54,-110.08 335.18,-103.59"/>
 </g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge19" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.48,-45.72C364.18,-43.23 328.29,-42.43 298,-51"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge22" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-72.23C114.58,-72.23 105.86,-72.23 97.36,-72.23"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-68.73 87.13,-72.23 97.13,-75.73 97.13,-68.73"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge20" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-62.46C376.79,-66.66 361.18,-71.48 346.71,-75.95"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-72.68 336.92,-78.98 347.51,-79.37 345.44,-72.68"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_kick~~UsesGraph_edge23" class="edge">
+<g id="module~~s_rmvs_kick~~UsesGraph_edge21" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-100.23C242.1,-96.23 228.18,-91.72 215.18,-87.51"/>
-<polygon fill="#000000" stroke="#000000" points="216.05,-84.11 205.45,-84.36 213.89,-90.77 216.05,-84.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-103C244.68,-107.04 230.09,-111.6 216.5,-115.84"/>
+<polygon fill="#000000" stroke="#000000" points="215.32,-112.55 206.82,-118.87 217.41,-119.23 215.32,-112.55"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge23" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.47,-79.86C637.59,-75.59 629.89,-70.68 623,-66 606.19,-54.58 587.76,-41.04 573.56,-30.37"/>
+<polygon fill="#000000" stroke="#000000" points="575.4,-27.38 565.31,-24.14 571.18,-32.96 575.4,-27.38"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_kick~~UsesGraph_edge22" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.83,-93.61C575.8,-95.01 497.03,-96.11 429.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-91C367.49,-85.71 356.22,-35.55 298,-51"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <g id="module~~s_rmvs_kick~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.97,-220.41C359,-224.47 322.31,-225.98 293.5,-212.23"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M629.06,-104.02C618.24,-107.69 606.19,-111.78 594.81,-115.64"/>
+<polygon fill="#000000" stroke="#000000" points="593.37,-112.43 585.02,-118.95 595.62,-119.06 593.37,-112.43"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_kick~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.34,-200.19C389.6,-196.14 381.23,-191.34 374,-186.23 350.82,-169.84 327.26,-147.34 311.66,-131.47"/>
-<polygon fill="#000000" stroke="#000000" points="314.16,-129.02 304.69,-124.27 309.13,-133.89 314.16,-129.02"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-91C402.6,-89.12 374.93,-88.87 351.58,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-85.69 341.52,-89.37 351.58,-92.69 351.46,-85.69"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_rmvs_setup.html b/docs/module/s_rmvs_setup.html
index ef63e19fe..e02d65b72 100644
--- a/docs/module/s_rmvs_setup.html
+++ b/docs/module/s_rmvs_setup.html
@@ -134,7 +134,7 @@ <h1>s_rmvs_setup
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.9% of total for modules and submodules.">113 statements</a>
+    title=" 0.8% of total for modules and submodules.">113 statements</a>
      </li> 
      
      
@@ -249,260 +249,261 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_rmvs_setup~~UsesGraph Pages: 1 -->
-<svg id="modules_rmvs_setupUsesGraph" width="641pt" height="199pt"
- viewBox="0.00 0.00 641.00 199.07" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_rmvs_setup~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 282.03)">
+<svg id="modules_rmvs_setupUsesGraph" width="641pt" height="187pt"
+ viewBox="0.00 0.00 641.00 186.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_rmvs_setup~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 264.35)">
 <title>module~~s_rmvs_setup~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282.03 917,-282.03 917,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-264.35 917,-264.35 917,4 -4,4"/>
 <!-- module~s_rmvs_setup -->
 <g id="module~~s_rmvs_setup~~UsesGraph_node1" class="node">
 <title>module~s_rmvs_setup</title>
-<polygon fill="none" stroke="black" points="913,-204.23 834,-204.23 834,-180.23 913,-180.23 913,-204.23"/>
-<text text-anchor="middle" x="873.5" y="-189.83" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_setup</text>
-</g>
-<!-- module~rmvs_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_node2" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~s_rmvs_setup~~UsesGraph_node2"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-244.23 510,-244.23 510,-220.23 587,-220.23 587,-244.23"/>
-<text text-anchor="middle" x="548.5" y="-229.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
-</a>
-</g>
-</g>
-<!-- module~s_rmvs_setup&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge2" class="edge">
-<title>module~s_rmvs_setup&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M833.86,-197.01C774.69,-204.34 661.77,-218.32 597.46,-226.29"/>
-<polygon fill="#000000" stroke="#000000" points="596.68,-222.86 587.18,-227.56 597.54,-229.8 596.68,-222.86"/>
+<polygon fill="none" stroke="black" points="913,-44 834,-44 834,-20 913,-20 913,-44"/>
+<text text-anchor="middle" x="873.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_setup</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_rmvs_setup~~UsesGraph_node3" class="node">
+<g id="module~~s_rmvs_setup~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~s_rmvs_setup~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-184.23 744,-184.23 744,-160.23 798,-160.23 798,-184.23"/>
-<text text-anchor="middle" x="771" y="-169.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~s_rmvs_setup~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-84 744,-84 744,-60 798,-60 798,-84"/>
+<text text-anchor="middle" x="771" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
 <g id="module~~s_rmvs_setup~~UsesGraph_edge1" class="edge">
 <title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.93,-184.55C825.43,-182.86 816.46,-181.07 808.06,-179.4"/>
-<polygon fill="#000000" stroke="#000000" points="808.67,-175.95 798.18,-177.44 807.3,-182.82 808.67,-175.95"/>
-</g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_rmvs_setup~~UsesGraph_node8" class="node">
-<title>module~swiftest_globals</title>
-<g id="a_module~~s_rmvs_setup~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-84.23 123,-84.23 123,-60.23 211,-60.23 211,-84.23"/>
-<text text-anchor="middle" x="167" y="-69.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
-</a>
-</g>
-</g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge4" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-272.23C360.14,-263.73 350.75,-239.55 293.5,-212.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.08,-244.46C504.34,-258.01 462.69,-277.32 425,-272.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M842.35,-44C831.44,-48.34 819.01,-53.29 807.67,-57.8"/>
+<polygon fill="#000000" stroke="#000000" points="806.05,-54.68 798.05,-61.63 808.63,-61.19 806.05,-54.68"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_rmvs_setup~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-224.23 386,-224.23 386,-200.23 462,-200.23 462,-224.23"/>
-<text text-anchor="middle" x="424" y="-209.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- module~rmvs_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_node3" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_rmvs_setup~~UsesGraph_node3"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-24 510,-24 510,0 587,0 587,-24"/>
+<text text-anchor="middle" x="548.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge3" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-226.06C497.99,-224.14 484.88,-222 472.55,-219.99"/>
-<polygon fill="#000000" stroke="#000000" points="472.85,-216.49 462.42,-218.34 471.72,-223.4 472.85,-216.49"/>
+<!-- module~s_rmvs_setup&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge2" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M833.86,-29.61C774.69,-25.94 661.77,-18.95 597.46,-14.97"/>
+<polygon fill="#000000" stroke="#000000" points="597.38,-11.46 587.18,-14.33 596.95,-18.44 597.38,-11.46"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge8" class="edge">
+<g id="module~~s_rmvs_setup~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C637.75,-198.06 608.78,-207.91 586.61,-216.51"/>
-<polygon fill="#000000" stroke="#000000" points="585.25,-213.28 577.24,-220.22 587.82,-219.79 585.25,-213.28"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.66,-66.72C722.76,-62.58 692.8,-56.74 666.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-52C637.32,-47.1 607.92,-36.78 585.66,-27.85"/>
+<polygon fill="#000000" stroke="#000000" points="586.85,-24.56 576.27,-24 584.19,-31.04 586.85,-24.56"/>
 </g>
-<!-- module~helio_classes -->
+<!-- module~swiftest_globals -->
 <g id="module~~s_rmvs_setup~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_rmvs_setup~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-164.23 510.5,-164.23 510.5,-140.23 586.5,-140.23 586.5,-164.23"/>
-<text text-anchor="middle" x="548.5" y="-149.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_rmvs_setup~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-143 123,-143 123,-119 211,-119 211,-143"/>
+<text text-anchor="middle" x="167" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge5" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C632.78,-198.96 598.17,-183.42 575.3,-169.85"/>
-<polygon fill="#000000" stroke="#000000" points="576.89,-166.72 566.55,-164.42 573.2,-172.67 576.89,-166.72"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.69,-177.89C722.8,-182.31 692.84,-188.47 666.5,-193.23"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C513.53,-211 507.34,-225.49 474,-232 396.78,-247.08 373.23,-274.04 298,-251"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_rmvs_setup~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_rmvs_setup~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-44.23 247,-44.23 247,-20.23 338,-20.23 338,-44.23"/>
-<text text-anchor="middle" x="292.5" y="-29.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-223 383,-223 383,-199 474,-199 474,-223"/>
+<text text-anchor="middle" x="428.5" y="-208.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge6" class="edge">
+<g id="module~~s_rmvs_setup~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-74.23C495.08,-59.53 479.44,-74.64 425,-74.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-74.23C388.42,-73.96 351.07,-60.28 325.41,-48.61"/>
-<polygon fill="#000000" stroke="#000000" points="326.71,-45.35 316.17,-44.26 323.73,-51.69 326.71,-45.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C526.83,-211 504.12,-211 484.19,-211"/>
+<polygon fill="#000000" stroke="#000000" points="484.05,-207.5 474.05,-211 484.05,-214.5 484.05,-207.5"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_rmvs_setup~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_rmvs_setup~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-25.23 374,-25.23 374,-1.23 474,-1.23 474,-25.23"/>
-<text text-anchor="middle" x="424" y="-10.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-183 247,-183 247,-159 347,-159 347,-183"/>
+<text text-anchor="middle" x="297" y="-168.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge7" class="edge">
+<g id="module~~s_rmvs_setup~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M753.5,-160.14C741.34,-151.59 724.17,-140.28 708,-132.23 640.85,-98.8 623.97,-83.22 549.5,-74.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-74.23C512.81,-64.5 476.24,-44.9 452.19,-30.53"/>
-<polygon fill="#000000" stroke="#000000" points="453.97,-27.52 443.61,-25.31 450.33,-33.5 453.97,-27.52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-171C405.21,-163.9 379.64,-162.57 357.15,-163.49"/>
+<polygon fill="#000000" stroke="#000000" points="356.83,-160 347.05,-164.06 357.23,-166.99 356.83,-160"/>
 </g>
-<!-- module~symba_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_rmvs_setup~~UsesGraph_node7" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~s_rmvs_setup~~UsesGraph_node7"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-165.23 623,-165.23 623,-141.23 708,-141.23 708,-165.23"/>
-<text text-anchor="middle" x="665.5" y="-150.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<title>module~helio_classes</title>
+<g id="a_module~~s_rmvs_setup~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-143 510.5,-143 510.5,-119 586.5,-119 586.5,-143"/>
+<text text-anchor="middle" x="548.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-167.43C736.05,-165.99 727.17,-164.36 718.29,-162.73"/>
-<polygon fill="#000000" stroke="#000000" points="718.79,-159.27 708.32,-160.9 717.52,-166.15 718.79,-159.27"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-211C622.73,-223.74 582.98,-179.25 562.96,-151.54"/>
+<polygon fill="#000000" stroke="#000000" points="565.76,-149.44 557.18,-143.23 560.02,-153.44 565.76,-149.44"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.34,-84.21C756.38,-114.7 725.49,-193 666.5,-211"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_node8" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_rmvs_setup~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-63 390.5,-63 390.5,-39 466.5,-39 466.5,-63"/>
+<text text-anchor="middle" x="428.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C621.75,-201.59 627.33,-236.75 587,-253.23 519.89,-280.64 496.84,-281.94 425,-272.23"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-52C600.35,-40.44 524.73,-42.92 476.95,-46.42"/>
+<polygon fill="#000000" stroke="#000000" points="476.6,-42.93 466.9,-47.2 477.14,-49.91 476.6,-42.93"/>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_rmvs_setup~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_rmvs_setup~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-124.23 248,-124.23 248,-100.23 337,-100.23 337,-124.23"/>
-<text text-anchor="middle" x="292.5" y="-109.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-103 252.5,-103 252.5,-79 341.5,-79 341.5,-103"/>
+<text text-anchor="middle" x="297" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge11" class="edge">
+<g id="module~~s_rmvs_setup~~UsesGraph_edge9" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-74.23C389.76,-73.97 353.59,-85.67 327.94,-96.15"/>
-<polygon fill="#000000" stroke="#000000" points="326.5,-92.96 318.66,-100.08 329.23,-99.41 326.5,-92.96"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-171C386.28,-157.86 344.83,-128.82 320.29,-109.58"/>
+<polygon fill="#000000" stroke="#000000" points="322.34,-106.74 312.34,-103.22 317.97,-112.2 322.34,-106.74"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C519.81,-211 455.88,-179.41 429.5,-171"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-211C615.61,-225.91 600.61,-211 549.5,-211"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<!-- module~symba_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_node10" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_rmvs_setup~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-104 623,-104 623,-80 708,-80 708,-104"/>
+<text text-anchor="middle" x="665.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-77.05C736.05,-78.56 727.17,-80.28 718.29,-81.99"/>
+<polygon fill="#000000" stroke="#000000" points="717.47,-78.59 708.32,-83.92 718.8,-85.46 717.47,-78.59"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge11" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-14.69C476.26,-17.42 426.14,-22.35 383,-30 344.68,-36.8 335.44,-40.4 298,-51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-51C273.42,-56.99 267.34,-58.52 247,-70 225.86,-81.93 204.21,-99.06 188.93,-112.14"/>
+<polygon fill="#000000" stroke="#000000" points="186.38,-109.72 181.14,-118.92 190.98,-114.99 186.38,-109.72"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <g id="module~~s_rmvs_setup~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C598.54,-205.14 521.01,-209.59 472.43,-211.24"/>
-<polygon fill="#000000" stroke="#000000" points="472.1,-207.75 462.22,-211.56 472.33,-214.75 472.1,-207.75"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.13,-24.02C499.92,-27.73 487.42,-31.86 475.63,-35.75"/>
+<polygon fill="#000000" stroke="#000000" points="474.35,-32.49 465.95,-38.95 476.54,-39.14 474.35,-32.49"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge15" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-212.23C237.95,-186.67 197.84,-126.07 179.32,-93.62"/>
-<polygon fill="#000000" stroke="#000000" points="182.19,-91.57 174.28,-84.52 176.07,-94.97 182.19,-91.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-172.23C362.81,-174.74 347.86,-238.17 293.5,-212.23"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_rmvs_setup~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_rmvs_setup~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-143 0,-143 0,-119 87,-119 87,-143"/>
+<text text-anchor="middle" x="43.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-172.23C382.25,-173.93 340.37,-148.64 315.65,-130.36"/>
-<polygon fill="#000000" stroke="#000000" points="317.73,-127.54 307.66,-124.25 313.48,-133.1 317.73,-127.54"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.48,-160.65C486.3,-165.56 453.96,-171.02 425,-172.23"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge14" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.71,-164.37C504.36,-173.35 479.15,-185.7 458.94,-195.61"/>
-<polygon fill="#000000" stroke="#000000" points="457.19,-192.56 449.75,-200.1 460.27,-198.85 457.19,-192.56"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge13" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-131C114.58,-131 105.86,-131 97.36,-131"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-127.5 87.13,-131 97.13,-134.5 97.13,-127.5"/>
 </g>
 <!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge16" class="edge">
+<g id="module~~s_rmvs_setup~~UsesGraph_edge14" class="edge">
 <title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-44.23C242.1,-48.23 228.18,-52.73 215.18,-56.95"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-53.68 205.45,-60.1 216.05,-60.34 213.89,-53.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.07,-223.01C369.16,-236.83 317.35,-256.93 298,-251"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-251C243.21,-234.83 201.01,-181.4 180.86,-151.58"/>
+<polygon fill="#000000" stroke="#000000" points="183.75,-149.59 175.33,-143.15 177.89,-153.43 183.75,-149.59"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge17" class="edge">
+<g id="module~~s_rmvs_setup~~UsesGraph_edge15" class="edge">
 <title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.81,-4.06C337.73,0.64 288.07,2.78 247,-11.23 222.84,-19.47 200.32,-38.43 185.56,-53.04"/>
-<polygon fill="#000000" stroke="#000000" points="183.05,-50.6 178.58,-60.2 188.07,-55.48 183.05,-50.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-159C244.68,-154.96 230.09,-150.4 216.5,-146.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-142.77 206.82,-143.13 215.32,-149.45 217.41,-142.77"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.49,-165.4C637.62,-169.68 629.91,-174.58 623,-179.23 606.35,-190.43 588.05,-203.62 573.88,-214.04"/>
-<polygon fill="#000000" stroke="#000000" points="571.6,-211.37 565.63,-220.13 575.76,-217 571.6,-211.37"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-152.87C614.47,-152.79 605.46,-152.71 596.76,-152.64"/>
-<polygon fill="#000000" stroke="#000000" points="596.79,-149.14 586.76,-152.55 596.73,-156.14 596.79,-149.14"/>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge16" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131C356.32,-125.62 273.85,-126.9 221.33,-128.66"/>
+<polygon fill="#000000" stroke="#000000" points="221.11,-125.16 211.24,-129.01 221.35,-132.16 221.11,-125.16"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-112.23C384.2,-109.29 376.31,-98.07 338,-91.23 299.19,-84.29 254.91,-79.44 221.27,-76.38"/>
-<polygon fill="#000000" stroke="#000000" points="221.46,-72.88 211.19,-75.48 220.84,-79.85 221.46,-72.88"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.56,-141.15C614.06,-137.52 600.03,-133.82 587,-131.23 515.9,-117.06 497.39,-116.07 425,-112.23"/>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge17" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M532.07,-118.93C517.42,-107.65 494.65,-90.56 474,-77 469.63,-74.13 464.93,-71.21 460.28,-68.42"/>
+<polygon fill="#000000" stroke="#000000" points="461.9,-65.31 451.51,-63.25 458.35,-71.34 461.9,-65.31"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_setup~~UsesGraph_edge18" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-112.23C398.1,-110.34 370.43,-110.09 347.08,-110.42"/>
-<polygon fill="#000000" stroke="#000000" points="346.96,-106.92 337.02,-110.59 347.08,-113.92 346.96,-106.92"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_rmvs_setup~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_rmvs_setup~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-84.23 0,-84.23 0,-60.23 87,-60.23 87,-84.23"/>
-<text text-anchor="middle" x="43.5" y="-69.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-132.44C486.99,-132.98 456.46,-133.04 429.5,-131"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131C394.83,-128.53 359.4,-116.92 333.87,-106.84"/>
+<polygon fill="#000000" stroke="#000000" points="335.18,-103.59 324.59,-103.07 332.54,-110.08 335.18,-103.59"/>
 </g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge19" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.48,-45.72C364.18,-43.23 328.29,-42.43 298,-51"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge22" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-72.23C114.58,-72.23 105.86,-72.23 97.36,-72.23"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-68.73 87.13,-72.23 97.13,-75.73 97.13,-68.73"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge20" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-62.46C376.79,-66.66 361.18,-71.48 346.71,-75.95"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-72.68 336.92,-78.98 347.51,-79.37 345.44,-72.68"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_setup~~UsesGraph_edge23" class="edge">
+<g id="module~~s_rmvs_setup~~UsesGraph_edge21" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-100.23C242.1,-96.23 228.18,-91.72 215.18,-87.51"/>
-<polygon fill="#000000" stroke="#000000" points="216.05,-84.11 205.45,-84.36 213.89,-90.77 216.05,-84.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-103C244.68,-107.04 230.09,-111.6 216.5,-115.84"/>
+<polygon fill="#000000" stroke="#000000" points="215.32,-112.55 206.82,-118.87 217.41,-119.23 215.32,-112.55"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge23" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.47,-79.86C637.59,-75.59 629.89,-70.68 623,-66 606.19,-54.58 587.76,-41.04 573.56,-30.37"/>
+<polygon fill="#000000" stroke="#000000" points="575.4,-27.38 565.31,-24.14 571.18,-32.96 575.4,-27.38"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_setup~~UsesGraph_edge22" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.83,-93.61C575.8,-95.01 497.03,-96.11 429.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-91C367.49,-85.71 356.22,-35.55 298,-51"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <g id="module~~s_rmvs_setup~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.97,-220.41C359,-224.47 322.31,-225.98 293.5,-212.23"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M629.06,-104.02C618.24,-107.69 606.19,-111.78 594.81,-115.64"/>
+<polygon fill="#000000" stroke="#000000" points="593.37,-112.43 585.02,-118.95 595.62,-119.06 593.37,-112.43"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_setup~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.34,-200.19C389.6,-196.14 381.23,-191.34 374,-186.23 350.82,-169.84 327.26,-147.34 311.66,-131.47"/>
-<polygon fill="#000000" stroke="#000000" points="314.16,-129.02 304.69,-124.27 309.13,-133.89 314.16,-129.02"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-91C402.6,-89.12 374.93,-88.87 351.58,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-85.69 341.52,-89.37 351.58,-92.69 351.46,-85.69"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_rmvs_step.html b/docs/module/s_rmvs_step.html
index f3575af51..e98d51abc 100644
--- a/docs/module/s_rmvs_step.html
+++ b/docs/module/s_rmvs_step.html
@@ -269,260 +269,261 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_rmvs_step~~UsesGraph Pages: 1 -->
-<svg id="modules_rmvs_stepUsesGraph" width="641pt" height="200pt"
- viewBox="0.00 0.00 641.00 200.37" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_rmvs_step~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 282.03)">
+<svg id="modules_rmvs_stepUsesGraph" width="641pt" height="188pt"
+ viewBox="0.00 0.00 641.00 187.99" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_rmvs_step~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 264.35)">
 <title>module~~s_rmvs_step~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282.03 911,-282.03 911,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-264.35 911,-264.35 911,4 -4,4"/>
 <!-- module~s_rmvs_step -->
 <g id="module~~s_rmvs_step~~UsesGraph_node1" class="node">
 <title>module~s_rmvs_step</title>
-<polygon fill="none" stroke="black" points="907,-204.23 834,-204.23 834,-180.23 907,-180.23 907,-204.23"/>
-<text text-anchor="middle" x="870.5" y="-189.83" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_step</text>
-</g>
-<!-- module~rmvs_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_node2" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~s_rmvs_step~~UsesGraph_node2"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-244.23 510,-244.23 510,-220.23 587,-220.23 587,-244.23"/>
-<text text-anchor="middle" x="548.5" y="-229.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
-</a>
-</g>
-</g>
-<!-- module~s_rmvs_step&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge2" class="edge">
-<title>module~s_rmvs_step&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M833.72,-196.7C775.82,-203.94 661.57,-218.22 596.95,-226.3"/>
-<polygon fill="#000000" stroke="#000000" points="596.51,-222.82 587.02,-227.54 597.38,-229.77 596.51,-222.82"/>
+<polygon fill="none" stroke="black" points="907,-44 834,-44 834,-20 907,-20 907,-44"/>
+<text text-anchor="middle" x="870.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_step</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_rmvs_step~~UsesGraph_node3" class="node">
+<g id="module~~s_rmvs_step~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~s_rmvs_step~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-184.23 744,-184.23 744,-160.23 798,-160.23 798,-184.23"/>
-<text text-anchor="middle" x="771" y="-169.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~s_rmvs_step~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-84 744,-84 744,-60 798,-60 798,-84"/>
+<text text-anchor="middle" x="771" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
 <g id="module~~s_rmvs_step~~UsesGraph_edge1" class="edge">
 <title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.75,-184.89C825.4,-183.18 816.51,-181.36 808.15,-179.64"/>
-<polygon fill="#000000" stroke="#000000" points="808.78,-176.2 798.28,-177.62 807.37,-183.06 808.78,-176.2"/>
-</g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_rmvs_step~~UsesGraph_node8" class="node">
-<title>module~swiftest_globals</title>
-<g id="a_module~~s_rmvs_step~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-84.23 123,-84.23 123,-60.23 211,-60.23 211,-84.23"/>
-<text text-anchor="middle" x="167" y="-69.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
-</a>
-</g>
-</g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge4" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-272.23C360.14,-263.73 350.75,-239.55 293.5,-212.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.08,-244.46C504.34,-258.01 462.69,-277.32 425,-272.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M840.25,-44C830.03,-48.19 818.44,-52.95 807.75,-57.34"/>
+<polygon fill="#000000" stroke="#000000" points="806.17,-54.2 798.25,-61.23 808.83,-60.67 806.17,-54.2"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_rmvs_step~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-224.23 386,-224.23 386,-200.23 462,-200.23 462,-224.23"/>
-<text text-anchor="middle" x="424" y="-209.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- module~rmvs_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_node3" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_rmvs_step~~UsesGraph_node3"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-24 510,-24 510,0 587,0 587,-24"/>
+<text text-anchor="middle" x="548.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge3" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-226.06C497.99,-224.14 484.88,-222 472.55,-219.99"/>
-<polygon fill="#000000" stroke="#000000" points="472.85,-216.49 462.42,-218.34 471.72,-223.4 472.85,-216.49"/>
+<!-- module~s_rmvs_step&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge2" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M833.72,-29.76C775.94,-26.15 662.04,-19.03 597.35,-14.99"/>
+<polygon fill="#000000" stroke="#000000" points="597.22,-11.48 587.02,-14.34 596.78,-18.46 597.22,-11.48"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge8" class="edge">
+<g id="module~~s_rmvs_step~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C637.75,-198.06 608.78,-207.91 586.61,-216.51"/>
-<polygon fill="#000000" stroke="#000000" points="585.25,-213.28 577.24,-220.22 587.82,-219.79 585.25,-213.28"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.66,-66.72C722.76,-62.58 692.8,-56.74 666.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-52C637.32,-47.1 607.92,-36.78 585.66,-27.85"/>
+<polygon fill="#000000" stroke="#000000" points="586.85,-24.56 576.27,-24 584.19,-31.04 586.85,-24.56"/>
 </g>
-<!-- module~helio_classes -->
+<!-- module~swiftest_globals -->
 <g id="module~~s_rmvs_step~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_rmvs_step~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-164.23 510.5,-164.23 510.5,-140.23 586.5,-140.23 586.5,-164.23"/>
-<text text-anchor="middle" x="548.5" y="-149.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_rmvs_step~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-143 123,-143 123,-119 211,-119 211,-143"/>
+<text text-anchor="middle" x="167" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge5" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C632.78,-198.96 598.17,-183.42 575.3,-169.85"/>
-<polygon fill="#000000" stroke="#000000" points="576.89,-166.72 566.55,-164.42 573.2,-172.67 576.89,-166.72"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.69,-177.89C722.8,-182.31 692.84,-188.47 666.5,-193.23"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C513.53,-211 507.34,-225.49 474,-232 396.78,-247.08 373.23,-274.04 298,-251"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_rmvs_step~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_rmvs_step~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-44.23 247,-44.23 247,-20.23 338,-20.23 338,-44.23"/>
-<text text-anchor="middle" x="292.5" y="-29.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-223 383,-223 383,-199 474,-199 474,-223"/>
+<text text-anchor="middle" x="428.5" y="-208.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge6" class="edge">
+<g id="module~~s_rmvs_step~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-74.23C495.08,-59.53 479.44,-74.64 425,-74.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-74.23C388.42,-73.96 351.07,-60.28 325.41,-48.61"/>
-<polygon fill="#000000" stroke="#000000" points="326.71,-45.35 316.17,-44.26 323.73,-51.69 326.71,-45.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C526.83,-211 504.12,-211 484.19,-211"/>
+<polygon fill="#000000" stroke="#000000" points="484.05,-207.5 474.05,-211 484.05,-214.5 484.05,-207.5"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_rmvs_step~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_rmvs_step~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-25.23 374,-25.23 374,-1.23 474,-1.23 474,-25.23"/>
-<text text-anchor="middle" x="424" y="-10.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-183 247,-183 247,-159 347,-159 347,-183"/>
+<text text-anchor="middle" x="297" y="-168.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge7" class="edge">
+<g id="module~~s_rmvs_step~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M753.5,-160.14C741.34,-151.59 724.17,-140.28 708,-132.23 640.85,-98.8 623.97,-83.22 549.5,-74.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-74.23C512.81,-64.5 476.24,-44.9 452.19,-30.53"/>
-<polygon fill="#000000" stroke="#000000" points="453.97,-27.52 443.61,-25.31 450.33,-33.5 453.97,-27.52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-171C405.21,-163.9 379.64,-162.57 357.15,-163.49"/>
+<polygon fill="#000000" stroke="#000000" points="356.83,-160 347.05,-164.06 357.23,-166.99 356.83,-160"/>
 </g>
-<!-- module~symba_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_rmvs_step~~UsesGraph_node7" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~s_rmvs_step~~UsesGraph_node7"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-165.23 623,-165.23 623,-141.23 708,-141.23 708,-165.23"/>
-<text text-anchor="middle" x="665.5" y="-150.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<title>module~helio_classes</title>
+<g id="a_module~~s_rmvs_step~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-143 510.5,-143 510.5,-119 586.5,-119 586.5,-143"/>
+<text text-anchor="middle" x="548.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-167.43C736.05,-165.99 727.17,-164.36 718.29,-162.73"/>
-<polygon fill="#000000" stroke="#000000" points="718.79,-159.27 708.32,-160.9 717.52,-166.15 718.79,-159.27"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-211C622.73,-223.74 582.98,-179.25 562.96,-151.54"/>
+<polygon fill="#000000" stroke="#000000" points="565.76,-149.44 557.18,-143.23 560.02,-153.44 565.76,-149.44"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.34,-84.21C756.38,-114.7 725.49,-193 666.5,-211"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_node8" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_rmvs_step~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-63 390.5,-63 390.5,-39 466.5,-39 466.5,-63"/>
+<text text-anchor="middle" x="428.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C621.75,-201.59 627.33,-236.75 587,-253.23 519.89,-280.64 496.84,-281.94 425,-272.23"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-52C600.35,-40.44 524.73,-42.92 476.95,-46.42"/>
+<polygon fill="#000000" stroke="#000000" points="476.6,-42.93 466.9,-47.2 477.14,-49.91 476.6,-42.93"/>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_rmvs_step~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_rmvs_step~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-124.23 248,-124.23 248,-100.23 337,-100.23 337,-124.23"/>
-<text text-anchor="middle" x="292.5" y="-109.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-103 252.5,-103 252.5,-79 341.5,-79 341.5,-103"/>
+<text text-anchor="middle" x="297" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge11" class="edge">
+<g id="module~~s_rmvs_step~~UsesGraph_edge9" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-74.23C389.76,-73.97 353.59,-85.67 327.94,-96.15"/>
-<polygon fill="#000000" stroke="#000000" points="326.5,-92.96 318.66,-100.08 329.23,-99.41 326.5,-92.96"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-171C386.28,-157.86 344.83,-128.82 320.29,-109.58"/>
+<polygon fill="#000000" stroke="#000000" points="322.34,-106.74 312.34,-103.22 317.97,-112.2 322.34,-106.74"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C519.81,-211 455.88,-179.41 429.5,-171"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-211C615.61,-225.91 600.61,-211 549.5,-211"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<!-- module~symba_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_node10" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_rmvs_step~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-104 623,-104 623,-80 708,-80 708,-104"/>
+<text text-anchor="middle" x="665.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-77.05C736.05,-78.56 727.17,-80.28 718.29,-81.99"/>
+<polygon fill="#000000" stroke="#000000" points="717.47,-78.59 708.32,-83.92 718.8,-85.46 717.47,-78.59"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge11" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-14.69C476.26,-17.42 426.14,-22.35 383,-30 344.68,-36.8 335.44,-40.4 298,-51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-51C273.42,-56.99 267.34,-58.52 247,-70 225.86,-81.93 204.21,-99.06 188.93,-112.14"/>
+<polygon fill="#000000" stroke="#000000" points="186.38,-109.72 181.14,-118.92 190.98,-114.99 186.38,-109.72"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <g id="module~~s_rmvs_step~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C598.54,-205.14 521.01,-209.59 472.43,-211.24"/>
-<polygon fill="#000000" stroke="#000000" points="472.1,-207.75 462.22,-211.56 472.33,-214.75 472.1,-207.75"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.13,-24.02C499.92,-27.73 487.42,-31.86 475.63,-35.75"/>
+<polygon fill="#000000" stroke="#000000" points="474.35,-32.49 465.95,-38.95 476.54,-39.14 474.35,-32.49"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge15" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-212.23C237.95,-186.67 197.84,-126.07 179.32,-93.62"/>
-<polygon fill="#000000" stroke="#000000" points="182.19,-91.57 174.28,-84.52 176.07,-94.97 182.19,-91.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-172.23C362.81,-174.74 347.86,-238.17 293.5,-212.23"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_rmvs_step~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_rmvs_step~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-143 0,-143 0,-119 87,-119 87,-143"/>
+<text text-anchor="middle" x="43.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-172.23C382.25,-173.93 340.37,-148.64 315.65,-130.36"/>
-<polygon fill="#000000" stroke="#000000" points="317.73,-127.54 307.66,-124.25 313.48,-133.1 317.73,-127.54"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.48,-160.65C486.3,-165.56 453.96,-171.02 425,-172.23"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge14" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.71,-164.37C504.36,-173.35 479.15,-185.7 458.94,-195.61"/>
-<polygon fill="#000000" stroke="#000000" points="457.19,-192.56 449.75,-200.1 460.27,-198.85 457.19,-192.56"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge13" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-131C114.58,-131 105.86,-131 97.36,-131"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-127.5 87.13,-131 97.13,-134.5 97.13,-127.5"/>
 </g>
 <!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge16" class="edge">
+<g id="module~~s_rmvs_step~~UsesGraph_edge14" class="edge">
 <title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-44.23C242.1,-48.23 228.18,-52.73 215.18,-56.95"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-53.68 205.45,-60.1 216.05,-60.34 213.89,-53.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.07,-223.01C369.16,-236.83 317.35,-256.93 298,-251"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-251C243.21,-234.83 201.01,-181.4 180.86,-151.58"/>
+<polygon fill="#000000" stroke="#000000" points="183.75,-149.59 175.33,-143.15 177.89,-153.43 183.75,-149.59"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge17" class="edge">
+<g id="module~~s_rmvs_step~~UsesGraph_edge15" class="edge">
 <title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.81,-4.06C337.73,0.64 288.07,2.78 247,-11.23 222.84,-19.47 200.32,-38.43 185.56,-53.04"/>
-<polygon fill="#000000" stroke="#000000" points="183.05,-50.6 178.58,-60.2 188.07,-55.48 183.05,-50.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-159C244.68,-154.96 230.09,-150.4 216.5,-146.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-142.77 206.82,-143.13 215.32,-149.45 217.41,-142.77"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.49,-165.4C637.62,-169.68 629.91,-174.58 623,-179.23 606.35,-190.43 588.05,-203.62 573.88,-214.04"/>
-<polygon fill="#000000" stroke="#000000" points="571.6,-211.37 565.63,-220.13 575.76,-217 571.6,-211.37"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-152.87C614.47,-152.79 605.46,-152.71 596.76,-152.64"/>
-<polygon fill="#000000" stroke="#000000" points="596.79,-149.14 586.76,-152.55 596.73,-156.14 596.79,-149.14"/>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge16" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131C356.32,-125.62 273.85,-126.9 221.33,-128.66"/>
+<polygon fill="#000000" stroke="#000000" points="221.11,-125.16 211.24,-129.01 221.35,-132.16 221.11,-125.16"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-112.23C384.2,-109.29 376.31,-98.07 338,-91.23 299.19,-84.29 254.91,-79.44 221.27,-76.38"/>
-<polygon fill="#000000" stroke="#000000" points="221.46,-72.88 211.19,-75.48 220.84,-79.85 221.46,-72.88"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.56,-141.15C614.06,-137.52 600.03,-133.82 587,-131.23 515.9,-117.06 497.39,-116.07 425,-112.23"/>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge17" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M532.07,-118.93C517.42,-107.65 494.65,-90.56 474,-77 469.63,-74.13 464.93,-71.21 460.28,-68.42"/>
+<polygon fill="#000000" stroke="#000000" points="461.9,-65.31 451.51,-63.25 458.35,-71.34 461.9,-65.31"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_step~~UsesGraph_edge18" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-112.23C398.1,-110.34 370.43,-110.09 347.08,-110.42"/>
-<polygon fill="#000000" stroke="#000000" points="346.96,-106.92 337.02,-110.59 347.08,-113.92 346.96,-106.92"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_rmvs_step~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_rmvs_step~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-84.23 0,-84.23 0,-60.23 87,-60.23 87,-84.23"/>
-<text text-anchor="middle" x="43.5" y="-69.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-132.44C486.99,-132.98 456.46,-133.04 429.5,-131"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131C394.83,-128.53 359.4,-116.92 333.87,-106.84"/>
+<polygon fill="#000000" stroke="#000000" points="335.18,-103.59 324.59,-103.07 332.54,-110.08 335.18,-103.59"/>
 </g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge19" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.48,-45.72C364.18,-43.23 328.29,-42.43 298,-51"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge22" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-72.23C114.58,-72.23 105.86,-72.23 97.36,-72.23"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-68.73 87.13,-72.23 97.13,-75.73 97.13,-68.73"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge20" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-62.46C376.79,-66.66 361.18,-71.48 346.71,-75.95"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-72.68 336.92,-78.98 347.51,-79.37 345.44,-72.68"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_step~~UsesGraph_edge23" class="edge">
+<g id="module~~s_rmvs_step~~UsesGraph_edge21" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-100.23C242.1,-96.23 228.18,-91.72 215.18,-87.51"/>
-<polygon fill="#000000" stroke="#000000" points="216.05,-84.11 205.45,-84.36 213.89,-90.77 216.05,-84.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-103C244.68,-107.04 230.09,-111.6 216.5,-115.84"/>
+<polygon fill="#000000" stroke="#000000" points="215.32,-112.55 206.82,-118.87 217.41,-119.23 215.32,-112.55"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge23" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.47,-79.86C637.59,-75.59 629.89,-70.68 623,-66 606.19,-54.58 587.76,-41.04 573.56,-30.37"/>
+<polygon fill="#000000" stroke="#000000" points="575.4,-27.38 565.31,-24.14 571.18,-32.96 575.4,-27.38"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_step~~UsesGraph_edge22" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.83,-93.61C575.8,-95.01 497.03,-96.11 429.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-91C367.49,-85.71 356.22,-35.55 298,-51"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <g id="module~~s_rmvs_step~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.97,-220.41C359,-224.47 322.31,-225.98 293.5,-212.23"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M629.06,-104.02C618.24,-107.69 606.19,-111.78 594.81,-115.64"/>
+<polygon fill="#000000" stroke="#000000" points="593.37,-112.43 585.02,-118.95 595.62,-119.06 593.37,-112.43"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_step~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.34,-200.19C389.6,-196.14 381.23,-191.34 374,-186.23 350.82,-169.84 327.26,-147.34 311.66,-131.47"/>
-<polygon fill="#000000" stroke="#000000" points="314.16,-129.02 304.69,-124.27 309.13,-133.89 314.16,-129.02"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-91C402.6,-89.12 374.93,-88.87 351.58,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-85.69 341.52,-89.37 351.58,-92.69 351.46,-85.69"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_rmvs_util.html b/docs/module/s_rmvs_util.html
index 6b8686cec..0ca4664c1 100644
--- a/docs/module/s_rmvs_util.html
+++ b/docs/module/s_rmvs_util.html
@@ -134,7 +134,7 @@ <h1>s_rmvs_util
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.8% of total for modules and submodules.">232 statements</a>
+    title=" 1.8% of total for modules and submodules.">236 statements</a>
      </li> 
      
      
@@ -267,260 +267,261 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_rmvs_util~~UsesGraph Pages: 1 -->
-<svg id="modules_rmvs_utilUsesGraph" width="641pt" height="202pt"
- viewBox="0.00 0.00 641.00 201.70" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_rmvs_util~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 282.03)">
+<svg id="modules_rmvs_utilUsesGraph" width="641pt" height="189pt"
+ viewBox="0.00 0.00 641.00 189.23" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_rmvs_util~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 264.35)">
 <title>module~~s_rmvs_util~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282.03 905,-282.03 905,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-264.35 905,-264.35 905,4 -4,4"/>
 <!-- module~s_rmvs_util -->
 <g id="module~~s_rmvs_util~~UsesGraph_node1" class="node">
 <title>module~s_rmvs_util</title>
-<polygon fill="none" stroke="black" points="901,-204.23 834,-204.23 834,-180.23 901,-180.23 901,-204.23"/>
-<text text-anchor="middle" x="867.5" y="-189.83" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_util</text>
-</g>
-<!-- module~rmvs_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_node2" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~s_rmvs_util~~UsesGraph_node2"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-244.23 510,-244.23 510,-220.23 587,-220.23 587,-244.23"/>
-<text text-anchor="middle" x="548.5" y="-229.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
-</a>
-</g>
-</g>
-<!-- module~s_rmvs_util&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge2" class="edge">
-<title>module~s_rmvs_util&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M833.77,-196.36C777.54,-203.45 662.35,-217.99 597.19,-226.21"/>
-<polygon fill="#000000" stroke="#000000" points="596.66,-222.75 587.18,-227.47 597.54,-229.69 596.66,-222.75"/>
+<polygon fill="none" stroke="black" points="901,-44 834,-44 834,-20 901,-20 901,-44"/>
+<text text-anchor="middle" x="867.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_rmvs_util</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_rmvs_util~~UsesGraph_node3" class="node">
+<g id="module~~s_rmvs_util~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~s_rmvs_util~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-184.23 744,-184.23 744,-160.23 798,-160.23 798,-184.23"/>
-<text text-anchor="middle" x="771" y="-169.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~s_rmvs_util~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-84 744,-84 744,-60 798,-60 798,-84"/>
+<text text-anchor="middle" x="771" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
 <g id="module~~s_rmvs_util~~UsesGraph_edge1" class="edge">
 <title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.98,-185.34C825.63,-183.58 816.6,-181.66 808.08,-179.86"/>
-<polygon fill="#000000" stroke="#000000" points="808.53,-176.38 798.02,-177.73 807.08,-183.23 808.53,-176.38"/>
-</g>
-<!-- module~swiftest_globals -->
-<g id="module~~s_rmvs_util~~UsesGraph_node8" class="node">
-<title>module~swiftest_globals</title>
-<g id="a_module~~s_rmvs_util~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-84.23 123,-84.23 123,-60.23 211,-60.23 211,-84.23"/>
-<text text-anchor="middle" x="167" y="-69.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
-</a>
-</g>
-</g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge4" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-272.23C360.14,-263.73 350.75,-239.55 293.5,-212.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.08,-244.46C504.34,-258.01 462.69,-277.32 425,-272.23"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M838.15,-44C828.51,-48.08 817.61,-52.69 807.48,-56.98"/>
+<polygon fill="#000000" stroke="#000000" points="805.92,-53.84 798.07,-60.96 808.65,-60.29 805.92,-53.84"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_rmvs_util~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-224.23 386,-224.23 386,-200.23 462,-200.23 462,-224.23"/>
-<text text-anchor="middle" x="424" y="-209.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- module~rmvs_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_node3" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_rmvs_util~~UsesGraph_node3"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-24 510,-24 510,0 587,0 587,-24"/>
+<text text-anchor="middle" x="548.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge3" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-226.06C497.99,-224.14 484.88,-222 472.55,-219.99"/>
-<polygon fill="#000000" stroke="#000000" points="472.85,-216.49 462.42,-218.34 471.72,-223.4 472.85,-216.49"/>
+<!-- module~s_rmvs_util&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge2" class="edge">
+<title>module~s_rmvs_util&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M833.77,-29.93C777.54,-26.39 662.35,-19.12 597.19,-15.01"/>
+<polygon fill="#000000" stroke="#000000" points="597.38,-11.51 587.18,-14.38 596.94,-18.5 597.38,-11.51"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge8" class="edge">
+<g id="module~~s_rmvs_util~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C637.75,-198.06 608.78,-207.91 586.61,-216.51"/>
-<polygon fill="#000000" stroke="#000000" points="585.25,-213.28 577.24,-220.22 587.82,-219.79 585.25,-213.28"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.66,-66.72C722.76,-62.58 692.8,-56.74 666.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-52C637.32,-47.1 607.92,-36.78 585.66,-27.85"/>
+<polygon fill="#000000" stroke="#000000" points="586.85,-24.56 576.27,-24 584.19,-31.04 586.85,-24.56"/>
 </g>
-<!-- module~helio_classes -->
+<!-- module~swiftest_globals -->
 <g id="module~~s_rmvs_util~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_rmvs_util~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-164.23 510.5,-164.23 510.5,-140.23 586.5,-140.23 586.5,-164.23"/>
-<text text-anchor="middle" x="548.5" y="-149.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_rmvs_util~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-143 123,-143 123,-119 211,-119 211,-143"/>
+<text text-anchor="middle" x="167" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge5" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C632.78,-198.96 598.17,-183.42 575.3,-169.85"/>
-<polygon fill="#000000" stroke="#000000" points="576.89,-166.72 566.55,-164.42 573.2,-172.67 576.89,-166.72"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.69,-177.89C722.8,-182.31 692.84,-188.47 666.5,-193.23"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge3" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C513.53,-211 507.34,-225.49 474,-232 396.78,-247.08 373.23,-274.04 298,-251"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_rmvs_util~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_rmvs_util~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-44.23 247,-44.23 247,-20.23 338,-20.23 338,-44.23"/>
-<text text-anchor="middle" x="292.5" y="-29.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-223 383,-223 383,-199 474,-199 474,-223"/>
+<text text-anchor="middle" x="428.5" y="-208.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge6" class="edge">
+<g id="module~~s_rmvs_util~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-74.23C495.08,-59.53 479.44,-74.64 425,-74.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-74.23C388.42,-73.96 351.07,-60.28 325.41,-48.61"/>
-<polygon fill="#000000" stroke="#000000" points="326.71,-45.35 316.17,-44.26 323.73,-51.69 326.71,-45.35"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C526.83,-211 504.12,-211 484.19,-211"/>
+<polygon fill="#000000" stroke="#000000" points="484.05,-207.5 474.05,-211 484.05,-214.5 484.05,-207.5"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_rmvs_util~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_rmvs_util~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-25.23 374,-25.23 374,-1.23 474,-1.23 474,-25.23"/>
-<text text-anchor="middle" x="424" y="-10.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-183 247,-183 247,-159 347,-159 347,-183"/>
+<text text-anchor="middle" x="297" y="-168.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge7" class="edge">
+<g id="module~~s_rmvs_util~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M753.5,-160.14C741.34,-151.59 724.17,-140.28 708,-132.23 640.85,-98.8 623.97,-83.22 549.5,-74.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-74.23C512.81,-64.5 476.24,-44.9 452.19,-30.53"/>
-<polygon fill="#000000" stroke="#000000" points="453.97,-27.52 443.61,-25.31 450.33,-33.5 453.97,-27.52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-171C405.21,-163.9 379.64,-162.57 357.15,-163.49"/>
+<polygon fill="#000000" stroke="#000000" points="356.83,-160 347.05,-164.06 357.23,-166.99 356.83,-160"/>
 </g>
-<!-- module~symba_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_rmvs_util~~UsesGraph_node7" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~s_rmvs_util~~UsesGraph_node7"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-165.23 623,-165.23 623,-141.23 708,-141.23 708,-165.23"/>
-<text text-anchor="middle" x="665.5" y="-150.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<title>module~helio_classes</title>
+<g id="a_module~~s_rmvs_util~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-143 510.5,-143 510.5,-119 586.5,-119 586.5,-143"/>
+<text text-anchor="middle" x="548.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-167.43C736.05,-165.99 727.17,-164.36 718.29,-162.73"/>
-<polygon fill="#000000" stroke="#000000" points="718.79,-159.27 708.32,-160.9 717.52,-166.15 718.79,-159.27"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-211C622.73,-223.74 582.98,-179.25 562.96,-151.54"/>
+<polygon fill="#000000" stroke="#000000" points="565.76,-149.44 557.18,-143.23 560.02,-153.44 565.76,-149.44"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.34,-84.21C756.38,-114.7 725.49,-193 666.5,-211"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_node8" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_rmvs_util~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-63 390.5,-63 390.5,-39 466.5,-39 466.5,-63"/>
+<text text-anchor="middle" x="428.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C621.75,-201.59 627.33,-236.75 587,-253.23 519.89,-280.64 496.84,-281.94 425,-272.23"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-52C600.35,-40.44 524.73,-42.92 476.95,-46.42"/>
+<polygon fill="#000000" stroke="#000000" points="476.6,-42.93 466.9,-47.2 477.14,-49.91 476.6,-42.93"/>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_rmvs_util~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_rmvs_util~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-124.23 248,-124.23 248,-100.23 337,-100.23 337,-124.23"/>
-<text text-anchor="middle" x="292.5" y="-109.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-103 252.5,-103 252.5,-79 341.5,-79 341.5,-103"/>
+<text text-anchor="middle" x="297" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge11" class="edge">
+<g id="module~~s_rmvs_util~~UsesGraph_edge9" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-74.23C389.76,-73.97 353.59,-85.67 327.94,-96.15"/>
-<polygon fill="#000000" stroke="#000000" points="326.5,-92.96 318.66,-100.08 329.23,-99.41 326.5,-92.96"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-171C386.28,-157.86 344.83,-128.82 320.29,-109.58"/>
+<polygon fill="#000000" stroke="#000000" points="322.34,-106.74 312.34,-103.22 317.97,-112.2 322.34,-106.74"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-211C519.81,-211 455.88,-179.41 429.5,-171"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-211C615.61,-225.91 600.61,-211 549.5,-211"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<!-- module~symba_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_node10" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_rmvs_util~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-104 623,-104 623,-80 708,-80 708,-104"/>
+<text text-anchor="middle" x="665.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-77.05C736.05,-78.56 727.17,-80.28 718.29,-81.99"/>
+<polygon fill="#000000" stroke="#000000" points="717.47,-78.59 708.32,-83.92 718.8,-85.46 717.47,-78.59"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge11" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-14.69C476.26,-17.42 426.14,-22.35 383,-30 344.68,-36.8 335.44,-40.4 298,-51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-51C273.42,-56.99 267.34,-58.52 247,-70 225.86,-81.93 204.21,-99.06 188.93,-112.14"/>
+<polygon fill="#000000" stroke="#000000" points="186.38,-109.72 181.14,-118.92 190.98,-114.99 186.38,-109.72"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
 <g id="module~~s_rmvs_util~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-193.23C598.54,-205.14 521.01,-209.59 472.43,-211.24"/>
-<polygon fill="#000000" stroke="#000000" points="472.1,-207.75 462.22,-211.56 472.33,-214.75 472.1,-207.75"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.13,-24.02C499.92,-27.73 487.42,-31.86 475.63,-35.75"/>
+<polygon fill="#000000" stroke="#000000" points="474.35,-32.49 465.95,-38.95 476.54,-39.14 474.35,-32.49"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge15" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-212.23C237.95,-186.67 197.84,-126.07 179.32,-93.62"/>
-<polygon fill="#000000" stroke="#000000" points="182.19,-91.57 174.28,-84.52 176.07,-94.97 182.19,-91.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-172.23C362.81,-174.74 347.86,-238.17 293.5,-212.23"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_rmvs_util~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_rmvs_util~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-143 0,-143 0,-119 87,-119 87,-143"/>
+<text text-anchor="middle" x="43.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-172.23C382.25,-173.93 340.37,-148.64 315.65,-130.36"/>
-<polygon fill="#000000" stroke="#000000" points="317.73,-127.54 307.66,-124.25 313.48,-133.1 317.73,-127.54"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.48,-160.65C486.3,-165.56 453.96,-171.02 425,-172.23"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge14" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.71,-164.37C504.36,-173.35 479.15,-185.7 458.94,-195.61"/>
-<polygon fill="#000000" stroke="#000000" points="457.19,-192.56 449.75,-200.1 460.27,-198.85 457.19,-192.56"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge13" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-131C114.58,-131 105.86,-131 97.36,-131"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-127.5 87.13,-131 97.13,-134.5 97.13,-127.5"/>
 </g>
 <!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge16" class="edge">
+<g id="module~~s_rmvs_util~~UsesGraph_edge14" class="edge">
 <title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-44.23C242.1,-48.23 228.18,-52.73 215.18,-56.95"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-53.68 205.45,-60.1 216.05,-60.34 213.89,-53.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.07,-223.01C369.16,-236.83 317.35,-256.93 298,-251"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-251C243.21,-234.83 201.01,-181.4 180.86,-151.58"/>
+<polygon fill="#000000" stroke="#000000" points="183.75,-149.59 175.33,-143.15 177.89,-153.43 183.75,-149.59"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge17" class="edge">
+<g id="module~~s_rmvs_util~~UsesGraph_edge15" class="edge">
 <title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.81,-4.06C337.73,0.64 288.07,2.78 247,-11.23 222.84,-19.47 200.32,-38.43 185.56,-53.04"/>
-<polygon fill="#000000" stroke="#000000" points="183.05,-50.6 178.58,-60.2 188.07,-55.48 183.05,-50.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-159C244.68,-154.96 230.09,-150.4 216.5,-146.16"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-142.77 206.82,-143.13 215.32,-149.45 217.41,-142.77"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.49,-165.4C637.62,-169.68 629.91,-174.58 623,-179.23 606.35,-190.43 588.05,-203.62 573.88,-214.04"/>
-<polygon fill="#000000" stroke="#000000" points="571.6,-211.37 565.63,-220.13 575.76,-217 571.6,-211.37"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-152.87C614.47,-152.79 605.46,-152.71 596.76,-152.64"/>
-<polygon fill="#000000" stroke="#000000" points="596.79,-149.14 586.76,-152.55 596.73,-156.14 596.79,-149.14"/>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge16" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131C356.32,-125.62 273.85,-126.9 221.33,-128.66"/>
+<polygon fill="#000000" stroke="#000000" points="221.11,-125.16 211.24,-129.01 221.35,-132.16 221.11,-125.16"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-112.23C384.2,-109.29 376.31,-98.07 338,-91.23 299.19,-84.29 254.91,-79.44 221.27,-76.38"/>
-<polygon fill="#000000" stroke="#000000" points="221.46,-72.88 211.19,-75.48 220.84,-79.85 221.46,-72.88"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.56,-141.15C614.06,-137.52 600.03,-133.82 587,-131.23 515.9,-117.06 497.39,-116.07 425,-112.23"/>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge17" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M532.07,-118.93C517.42,-107.65 494.65,-90.56 474,-77 469.63,-74.13 464.93,-71.21 460.28,-68.42"/>
+<polygon fill="#000000" stroke="#000000" points="461.9,-65.31 451.51,-63.25 458.35,-71.34 461.9,-65.31"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_util~~UsesGraph_edge18" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-112.23C398.1,-110.34 370.43,-110.09 347.08,-110.42"/>
-<polygon fill="#000000" stroke="#000000" points="346.96,-106.92 337.02,-110.59 347.08,-113.92 346.96,-106.92"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_rmvs_util~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_rmvs_util~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-84.23 0,-84.23 0,-60.23 87,-60.23 87,-84.23"/>
-<text text-anchor="middle" x="43.5" y="-69.83" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-132.44C486.99,-132.98 456.46,-133.04 429.5,-131"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131C394.83,-128.53 359.4,-116.92 333.87,-106.84"/>
+<polygon fill="#000000" stroke="#000000" points="335.18,-103.59 324.59,-103.07 332.54,-110.08 335.18,-103.59"/>
 </g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge19" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.48,-45.72C364.18,-43.23 328.29,-42.43 298,-51"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge22" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-72.23C114.58,-72.23 105.86,-72.23 97.36,-72.23"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-68.73 87.13,-72.23 97.13,-75.73 97.13,-68.73"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge20" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-62.46C376.79,-66.66 361.18,-71.48 346.71,-75.95"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-72.68 336.92,-78.98 347.51,-79.37 345.44,-72.68"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_rmvs_util~~UsesGraph_edge23" class="edge">
+<g id="module~~s_rmvs_util~~UsesGraph_edge21" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-100.23C242.1,-96.23 228.18,-91.72 215.18,-87.51"/>
-<polygon fill="#000000" stroke="#000000" points="216.05,-84.11 205.45,-84.36 213.89,-90.77 216.05,-84.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-103C244.68,-107.04 230.09,-111.6 216.5,-115.84"/>
+<polygon fill="#000000" stroke="#000000" points="215.32,-112.55 206.82,-118.87 217.41,-119.23 215.32,-112.55"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge23" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.47,-79.86C637.59,-75.59 629.89,-70.68 623,-66 606.19,-54.58 587.76,-41.04 573.56,-30.37"/>
+<polygon fill="#000000" stroke="#000000" points="575.4,-27.38 565.31,-24.14 571.18,-32.96 575.4,-27.38"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_rmvs_util~~UsesGraph_edge22" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.83,-93.61C575.8,-95.01 497.03,-96.11 429.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-91C367.49,-85.71 356.22,-35.55 298,-51"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <g id="module~~s_rmvs_util~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.97,-220.41C359,-224.47 322.31,-225.98 293.5,-212.23"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M629.06,-104.02C618.24,-107.69 606.19,-111.78 594.81,-115.64"/>
+<polygon fill="#000000" stroke="#000000" points="593.37,-112.43 585.02,-118.95 595.62,-119.06 593.37,-112.43"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_rmvs_util~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.34,-200.19C389.6,-196.14 381.23,-191.34 374,-186.23 350.82,-169.84 327.26,-147.34 311.66,-131.47"/>
-<polygon fill="#000000" stroke="#000000" points="314.16,-129.02 304.69,-124.27 309.13,-133.89 314.16,-129.02"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-91C402.6,-89.12 374.93,-88.87 351.58,-89.19"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-85.69 341.52,-89.37 351.58,-92.69 351.46,-85.69"/>
 </g>
 </g>
 </svg>
@@ -765,7 +766,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -868,7 +869,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/module/s_setup.html b/docs/module/s_setup.html
index 7ddf9791e..fef20ab24 100644
--- a/docs/module/s_setup.html
+++ b/docs/module/s_setup.html
@@ -134,7 +134,7 @@ <h1>s_setup
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.8% of total for modules and submodules.">236 statements</a>
+    title=" 1.8% of total for modules and submodules.">235 statements</a>
      </li> 
      
      
@@ -255,255 +255,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_setup~~UsesGraph Pages: 1 -->
-<svg id="modules_setupUsesGraph" width="641pt" height="198pt"
- viewBox="0.00 0.00 641.00 198.38" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_setup~~UsesGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 273.3)">
+<svg id="modules_setupUsesGraph" width="641pt" height="193pt"
+ viewBox="0.00 0.00 641.00 193.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_setup~~UsesGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 265.94)">
 <title>module~~s_setup~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.3 892,-273.3 892,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 892,-265.94 892,4 -4,4"/>
 <!-- module~s_setup -->
 <g id="module~~s_setup~~UsesGraph_node1" class="node">
 <title>module~s_setup</title>
-<polygon fill="none" stroke="black" points="888,-217.16 834,-217.16 834,-193.16 888,-193.16 888,-217.16"/>
-<text text-anchor="middle" x="861" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_setup</text>
+<polygon fill="none" stroke="black" points="888,-234.94 834,-234.94 834,-210.94 888,-210.94 888,-234.94"/>
+<text text-anchor="middle" x="861" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_setup</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_setup~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_setup~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_setup&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_setup~~UsesGraph_edge2" class="edge">
 <title>module~s_setup&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M833.63,-216.62C774.65,-240.64 628.02,-291.39 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.73,-231.69C796.83,-243.19 727.33,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_setup~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_setup~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_setup&#45;&gt;module~swiftest -->
 <g id="module~~s_setup~~UsesGraph_edge1" class="edge">
 <title>module~s_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M841.34,-193.07C829.09,-185.14 812.86,-174.63 799.19,-165.77"/>
-<polygon fill="#000000" stroke="#000000" points="800.93,-162.73 790.64,-160.23 797.13,-168.6 800.93,-162.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.6,-216.94C825.52,-215.1 816.49,-213.05 807.9,-211.1"/>
+<polygon fill="#000000" stroke="#000000" points="808.61,-207.67 798.08,-208.87 807.06,-214.5 808.61,-207.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_setup~~UsesGraph_node9" class="node">
+<g id="module~~s_setup~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_setup~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_setup~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_setup~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_setup~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_setup~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_setup~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_setup~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_setup~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_setup~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_setup~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_setup~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_setup~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_setup~~UsesGraph_edge6" class="edge">
+<g id="module~~s_setup~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_setup~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_setup~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_setup~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_setup~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_setup~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_setup~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_setup~~UsesGraph_edge7" class="edge">
+<g id="module~~s_setup~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_setup~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_setup~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_setup~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_setup~~UsesGraph_node8" class="node">
+<g id="module~~s_setup~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_setup~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_setup~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_setup~~UsesGraph_edge8" class="edge">
+<g id="module~~s_setup~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_setup~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_setup~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_setup~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_setup~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_setup~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_setup~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_setup~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_setup~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_setup~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_setup~~UsesGraph_edge12" class="edge">
+<g id="module~~s_setup~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_setup~~UsesGraph_edge14" class="edge">
+<g id="module~~s_setup~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_setup~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_setup~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_setup~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_setup~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_setup~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_setup~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_setup~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_setup~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_setup~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_setup~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_setup~~UsesGraph_edge21" class="edge">
+<g id="module~~s_setup~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_setup~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_setup~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_setup~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_setup~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_setup~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_setup~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_symba_collision.html b/docs/module/s_symba_collision.html
index 5d960344a..86fbc61a8 100644
--- a/docs/module/s_symba_collision.html
+++ b/docs/module/s_symba_collision.html
@@ -267,261 +267,260 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_symba_collision~~UsesGraph Pages: 1 -->
-<svg id="modules_symba_collisionUsesGraph" width="641pt" height="208pt"
- viewBox="0.00 0.00 641.00 208.36" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_symba_collision~~UsesGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 301.88)">
+<svg id="modules_symba_collisionUsesGraph" width="641pt" height="166pt"
+ viewBox="0.00 0.00 641.00 165.57" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_symba_collision~~UsesGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 239.06)">
 <title>module~~s_symba_collision~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.88 937,-301.88 937,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 937,-239.06 937,4 -4,4"/>
 <!-- module~s_symba_collision -->
 <g id="module~~s_symba_collision~~UsesGraph_node1" class="node">
 <title>module~s_symba_collision</title>
-<polygon fill="none" stroke="black" points="933,-242.42 834,-242.42 834,-218.42 933,-218.42 933,-242.42"/>
-<text text-anchor="middle" x="883.5" y="-228.02" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_collision</text>
-</g>
-<!-- module~symba_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_node2" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~s_symba_collision~~UsesGraph_node2"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-262.42 623,-262.42 623,-238.42 708,-238.42 708,-262.42"/>
-<text text-anchor="middle" x="665.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
-</a>
-</g>
-</g>
-<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_edge2" class="edge">
-<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M833.76,-234.93C799.33,-238.12 753.27,-242.38 718.2,-245.63"/>
-<polygon fill="#000000" stroke="#000000" points="717.79,-242.15 708.15,-246.56 718.44,-249.12 717.79,-242.15"/>
+<polygon fill="none" stroke="black" points="933,-180.63 834,-180.63 834,-156.63 933,-156.63 933,-180.63"/>
+<text text-anchor="middle" x="883.5" y="-166.23" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_collision</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_symba_collision~~UsesGraph_node3" class="node">
+<g id="module~~s_symba_collision~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~s_symba_collision~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-222.42 744,-222.42 744,-198.42 798,-198.42 798,-222.42"/>
-<text text-anchor="middle" x="771" y="-208.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~s_symba_collision~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.63 744,-160.63 744,-136.63 798,-136.63 798,-160.63"/>
+<text text-anchor="middle" x="771" y="-146.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_collision&#45;&gt;module~swiftest -->
 <g id="module~~s_symba_collision~~UsesGraph_edge1" class="edge">
 <title>module~s_symba_collision&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.71,-221.59C825.09,-220.03 816.26,-218.43 808.07,-216.95"/>
-<polygon fill="#000000" stroke="#000000" points="808.57,-213.48 798.11,-215.14 807.32,-220.37 808.57,-213.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.71,-159.8C825.09,-158.24 816.26,-156.64 808.07,-155.16"/>
+<polygon fill="#000000" stroke="#000000" points="808.57,-151.69 798.11,-153.35 807.32,-158.58 808.57,-151.69"/>
 </g>
-<!-- module~helio_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_symba_collision~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-262.42 510.5,-262.42 510.5,-238.42 586.5,-238.42 586.5,-262.42"/>
-<text text-anchor="middle" x="548.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<!-- module~symba_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_node3" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_symba_collision~~UsesGraph_node3"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-200.63 623,-200.63 623,-176.63 708,-176.63 708,-200.63"/>
+<text text-anchor="middle" x="665.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_edge6" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-250.42C614.47,-250.42 605.46,-250.42 596.76,-250.42"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-246.92 586.76,-250.42 596.76,-253.92 596.76,-246.92"/>
-</g>
-<!-- module~rmvs_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_node7" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~s_symba_collision~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-182.42 510,-182.42 510,-158.42 587,-158.42 587,-182.42"/>
-<text text-anchor="middle" x="548.5" y="-168.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
-</a>
-</g>
+<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_edge2" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M833.76,-173.14C799.33,-176.33 753.27,-180.59 718.2,-183.84"/>
+<polygon fill="#000000" stroke="#000000" points="717.79,-180.36 708.15,-184.77 718.44,-187.33 717.79,-180.36"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_edge4" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-238.39C637.51,-234.12 629.83,-229.19 623,-224.42 606.39,-212.8 603.33,-208.42 587,-196.42 583.48,-193.83 579.74,-191.16 576.03,-188.55"/>
-<polygon fill="#000000" stroke="#000000" points="577.78,-185.5 567.57,-182.65 573.78,-191.24 577.78,-185.5"/>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-158.72C732.83,-162.99 719.68,-168.08 707.39,-172.83"/>
+<polygon fill="#000000" stroke="#000000" points="705.84,-169.67 697.77,-176.54 708.36,-176.2 705.84,-169.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_symba_collision~~UsesGraph_node8" class="node">
+<g id="module~~s_symba_collision~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_symba_collision~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.42 123,-144.42 123,-120.42 211,-120.42 211,-144.42"/>
-<text text-anchor="middle" x="167" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
-</a>
-</g>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_collision~~UsesGraph_edge5" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C365.83,-282.75 347.02,-310.58 293.5,-289.42"/>
-</g>
-<!-- module~swiftest_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<g id="a_module~~s_symba_collision~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-223.42 248,-223.42 248,-199.42 337,-199.42 337,-223.42"/>
-<text text-anchor="middle" x="292.5" y="-209.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~s_symba_collision~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-124.63 123,-124.63 123,-100.63 211,-100.63 211,-124.63"/>
+<text text-anchor="middle" x="167" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_collision~~UsesGraph_edge3" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C379.35,-282.9 337.16,-251.29 313.35,-230.36"/>
-<polygon fill="#000000" stroke="#000000" points="315.49,-227.57 305.73,-223.46 310.8,-232.77 315.49,-227.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630.83,-262.54C584.52,-277.7 498.54,-300.4 425,-289.42"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-220.51C732.83,-224.79 719.68,-229.87 707.39,-234.62"/>
-<polygon fill="#000000" stroke="#000000" points="705.84,-231.46 697.77,-238.33 708.36,-237.99 705.84,-231.46"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_edge7" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C633.34,-206.58 599.62,-220.66 576.81,-233.16"/>
-<polygon fill="#000000" stroke="#000000" points="574.97,-230.18 568.03,-238.19 578.45,-236.25 574.97,-230.18"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-72.63C370.07,-68.82 354.92,-64.07 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C499.75,-46.87 481.86,-76.1 429.5,-72.63"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_symba_collision~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_symba_collision~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-104.42 247,-104.42 247,-80.42 338,-80.42 338,-104.42"/>
-<text text-anchor="middle" x="292.5" y="-90.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-44.63 383,-44.63 383,-20.63 474,-20.63 474,-44.63"/>
+<text text-anchor="middle" x="428.5" y="-30.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
-<g id="module~~s_symba_collision~~UsesGraph_edge8" class="edge">
+<g id="module~~s_symba_collision~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C515.3,-73.76 412.68,-79.93 348.16,-86.19"/>
-<polygon fill="#000000" stroke="#000000" points="347.75,-82.71 338.15,-87.19 348.45,-89.68 347.75,-82.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C527.49,-59.07 504.36,-51.35 483.9,-45.55"/>
+<polygon fill="#000000" stroke="#000000" points="484.68,-42.13 474.11,-42.86 482.82,-48.88 484.68,-42.13"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_symba_collision~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_symba_collision~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-65.42 374,-65.42 374,-41.42 474,-41.42 474,-65.42"/>
-<text text-anchor="middle" x="424" y="-51.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-24.63 247,-24.63 247,-0.63 347,-0.63 347,-24.63"/>
+<text text-anchor="middle" x="297" y="-10.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_symba_collision~~UsesGraph_edge9" class="edge">
+<g id="module~~s_symba_collision~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C528.13,-81.59 504.88,-72.86 483.86,-66.62"/>
-<polygon fill="#000000" stroke="#000000" points="484.64,-63.21 474.07,-63.85 482.73,-69.94 484.64,-63.21"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.57,-149.86C722.63,-150.53 692.64,-150.85 666.5,-148.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C620.82,-144.92 623.95,-111.2 587,-87.63 571.25,-77.58 566.36,-76.68 549.5,-68.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C510.2,-50.81 513.11,-25.02 474,-11.63 436.64,1.16 392.14,0.78 357.24,-2.73"/>
+<polygon fill="#000000" stroke="#000000" points="356.75,0.74 347.2,-3.85 357.53,-6.22 356.75,0.74"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C636.36,-206.95 606.13,-196.14 583.73,-186.62"/>
-<polygon fill="#000000" stroke="#000000" points="584.9,-183.31 574.33,-182.51 582.09,-189.73 584.9,-183.31"/>
+<!-- module~helio_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_symba_collision~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-200.63 510.5,-200.63 510.5,-176.63 586.5,-176.63 586.5,-200.63"/>
+<text text-anchor="middle" x="548.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_collision~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.95,-212.17C722.95,-213.17 692.72,-213.65 666.5,-210.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-13.42C240.23,-29.5 199.87,-82.05 180.52,-111.65"/>
-<polygon fill="#000000" stroke="#000000" points="177.38,-110.06 174.99,-120.39 183.3,-113.81 177.38,-110.06"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C592.13,-201.51 611.22,-132.23 549.5,-93.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C511.56,-70.82 513.12,-48.9 474,-32.42 399.66,-1.09 370.47,10.72 293.5,-13.42"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_edge13" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C478.6,-205.19 398.87,-206.74 347.4,-208.72"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-205.24 337.17,-209.14 347.31,-212.23 347.02,-205.24"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C633.58,-146 600.32,-159.54 577.56,-171.56"/>
+<polygon fill="#000000" stroke="#000000" points="575.85,-168.51 568.78,-176.4 579.23,-174.64 575.85,-168.51"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_node10" class="node">
+<g id="module~~s_symba_collision~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
-<g id="a_module~~s_symba_collision~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-183.42 386,-183.42 386,-159.42 462,-159.42 462,-183.42"/>
-<text text-anchor="middle" x="424" y="-169.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<g id="a_module~~s_symba_collision~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-124.63 390.5,-124.63 390.5,-100.63 466.5,-100.63 466.5,-124.63"/>
+<text text-anchor="middle" x="428.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_edge14" class="edge">
+<g id="module~~s_symba_collision~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C517.18,-208.12 484.44,-197.22 460.44,-187.53"/>
-<polygon fill="#000000" stroke="#000000" points="461.63,-184.23 451.05,-183.62 458.94,-190.69 461.63,-184.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C613.77,-204.17 600.46,-214.29 549.5,-210.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C519.26,-146.75 488.74,-137.22 465.81,-128.44"/>
+<polygon fill="#000000" stroke="#000000" points="467.07,-125.17 456.48,-124.75 464.49,-131.68 467.07,-125.17"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C613.57,-144.31 600.5,-152.01 549.5,-148.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_collision~~UsesGraph_edge17" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-289.42C230.48,-265.29 192.19,-191.07 176.37,-153.98"/>
-<polygon fill="#000000" stroke="#000000" points="179.54,-152.49 172.5,-144.57 173.07,-155.15 179.54,-152.49"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C363.02,-251.43 349.28,-311.47 293.5,-289.42"/>
+<!-- module~swiftest_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_node9" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_collision~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-164.63 252.5,-164.63 252.5,-140.63 341.5,-140.63 341.5,-164.63"/>
+<text text-anchor="middle" x="297" y="-150.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_edge15" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C388.99,-251.43 352.1,-238.67 326.43,-227.57"/>
-<polygon fill="#000000" stroke="#000000" points="327.73,-224.31 317.17,-223.42 324.87,-230.7 327.73,-224.31"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-250.88C485.97,-251.14 453.61,-251.41 425,-251.42"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_edge16" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.63,-238.25C508.25,-225.1 475.59,-204.04 452.38,-189.08"/>
-<polygon fill="#000000" stroke="#000000" points="453.99,-185.95 443.69,-183.47 450.2,-191.83 453.99,-185.95"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C480.17,-144.16 402.4,-146.61 351.83,-149.21"/>
+<polygon fill="#000000" stroke="#000000" points="351.57,-145.72 341.77,-149.75 351.95,-152.71 351.57,-145.72"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_collision~~UsesGraph_edge18" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-104.42C242.1,-108.42 228.18,-112.93 215.18,-117.14"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-113.88 205.45,-120.29 216.05,-120.54 213.89,-113.88"/>
+<!-- module~rmvs_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_node10" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_collision~~UsesGraph_node10"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-120.63 510,-120.63 510,-96.63 587,-96.63 587,-120.63"/>
+<text text-anchor="middle" x="548.5" y="-106.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+</a>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_collision~~UsesGraph_edge19" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.56,-41.37C364.63,-27.5 312.81,-7.36 293.5,-13.42"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_collision~~UsesGraph_edge21" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.63,-158.82C498.26,-155.69 485.7,-152.58 474,-150.42 394.72,-135.78 373.91,-138.2 293.5,-132.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-132.42C268.56,-130.26 243.11,-129.91 221.31,-130.24"/>
-<polygon fill="#000000" stroke="#000000" points="221.17,-126.74 211.24,-130.44 221.31,-133.74 221.17,-126.74"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C635.56,-146.17 604.57,-134.83 582.06,-124.85"/>
+<polygon fill="#000000" stroke="#000000" points="583.51,-121.67 572.96,-120.69 580.59,-128.03 583.51,-121.67"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_edge20" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-170.73C497.99,-170.82 484.88,-170.93 472.55,-171.03"/>
-<polygon fill="#000000" stroke="#000000" points="472.39,-167.53 462.42,-171.11 472.45,-174.53 472.39,-167.53"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_collision~~UsesGraph_edge11" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C370.28,-222.46 353.11,-245.23 298,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-188.63C614.47,-188.63 605.46,-188.63 596.76,-188.63"/>
+<polygon fill="#000000" stroke="#000000" points="596.76,-185.13 586.76,-188.63 596.76,-192.13 596.76,-185.13"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C384.32,-222.51 342.28,-191.94 318.32,-171.48"/>
+<polygon fill="#000000" stroke="#000000" points="320.46,-168.7 310.63,-164.73 315.84,-173.96 320.46,-168.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.9,-200.64C586.6,-215.84 502.03,-238.9 429.5,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_edge12" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-176.6C637.51,-172.33 629.83,-167.4 623,-162.63 606.39,-151.01 603.33,-146.63 587,-134.63 583.48,-132.04 579.74,-129.36 576.03,-126.75"/>
+<polygon fill="#000000" stroke="#000000" points="577.78,-123.7 567.57,-120.86 573.78,-129.45 577.78,-123.7"/>
 </g>
 <!-- iso_fortran_env -->
 <g id="module~~s_symba_collision~~UsesGraph_node11" class="node">
 <title>iso_fortran_env</title>
 <g id="a_module~~s_symba_collision~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.42 0,-144.42 0,-120.42 87,-120.42 87,-144.42"/>
-<text text-anchor="middle" x="43.5" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-124.63 0,-124.63 0,-100.63 87,-100.63 87,-124.63"/>
+<text text-anchor="middle" x="43.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~s_symba_collision~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_collision~~UsesGraph_edge15" class="edge">
 <title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-132.42C114.58,-132.42 105.86,-132.42 97.36,-132.42"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-128.92 87.13,-132.42 97.13,-135.92 97.13,-128.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-112.63C114.58,-112.63 105.86,-112.63 97.36,-112.63"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-109.13 87.13,-112.63 97.13,-116.13 97.13,-109.13"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_collision~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-199.25C251.83,-186.05 218.71,-164.85 195.3,-149.88"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-146.91 186.85,-144.47 193.38,-152.81 197.16,-146.91"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_collision~~UsesGraph_edge16" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-72.63C265.31,-77.24 231.87,-87.9 206.87,-97.05"/>
+<polygon fill="#000000" stroke="#000000" points="205.53,-93.82 197.39,-100.6 207.98,-100.37 205.53,-93.82"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.75,-44.63C371.88,-54.38 333.14,-67.34 298,-72.63"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_collision~~UsesGraph_edge17" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-24.69C258.46,-41.96 217.61,-73.87 191.67,-94.14"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-91.61 183.49,-100.52 193.53,-97.12 189.22,-91.61"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_collision~~UsesGraph_edge18" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-228.63C244.44,-213.1 202.23,-162.28 181.63,-133.32"/>
+<polygon fill="#000000" stroke="#000000" points="184.28,-131 175.71,-124.76 178.52,-134.98 184.28,-131"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C367.52,-191.13 355.43,-245.93 298,-228.63"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.8,-176.59C509.5,-164.15 479.16,-144.62 457.1,-130.4"/>
+<polygon fill="#000000" stroke="#000000" points="458.8,-127.34 448.5,-124.87 455.01,-133.22 458.8,-127.34"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.3,-189.42C487.07,-189.88 456.54,-190.4 429.5,-190.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C394.26,-190.9 358.09,-179.2 332.44,-168.72"/>
+<polygon fill="#000000" stroke="#000000" points="333.73,-165.46 323.16,-164.78 331,-171.91 333.73,-165.46"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_collision~~UsesGraph_edge25" class="edge">
+<g id="module~~s_symba_collision~~UsesGraph_edge21" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M395.88,-159.42C370.13,-148.95 330.03,-135.04 293.5,-132.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_collision~~UsesGraph_edge24" class="edge">
+<g id="module~~s_symba_collision~~UsesGraph_edge22" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-182.88C372.29,-187.08 356.68,-191.9 342.21,-196.37"/>
-<polygon fill="#000000" stroke="#000000" points="340.94,-193.1 332.42,-199.4 343.01,-199.79 340.94,-193.1"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-124.09C376.79,-128.29 361.18,-133.11 346.71,-137.58"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-134.31 336.92,-140.61 347.51,-141 345.44,-134.31"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_collision~~UsesGraph_edge23" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-140.63C244.68,-136.59 230.09,-132.03 216.5,-127.79"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-124.4 206.82,-124.76 215.32,-131.08 217.41,-124.4"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_collision~~UsesGraph_edge24" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M520.52,-96.51C497.03,-86.91 461.77,-74.77 429.5,-72.63"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_collision~~UsesGraph_edge25" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.84,-109.9C499.41,-110.26 487.96,-110.65 477.05,-111.02"/>
+<polygon fill="#000000" stroke="#000000" points="476.68,-107.53 466.8,-111.36 476.92,-114.52 476.68,-107.53"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_symba_discard.html b/docs/module/s_symba_discard.html
index 5df291a68..dbb88838b 100644
--- a/docs/module/s_symba_discard.html
+++ b/docs/module/s_symba_discard.html
@@ -134,7 +134,7 @@ <h1>s_symba_discard
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.7% of total for modules and submodules.">229 statements</a>
+    title=" 1.8% of total for modules and submodules.">239 statements</a>
      </li> 
      
      
@@ -265,261 +265,260 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_symba_discard~~UsesGraph Pages: 1 -->
-<svg id="modules_symba_discardUsesGraph" width="641pt" height="209pt"
- viewBox="0.00 0.00 641.00 209.03" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_symba_discard~~UsesGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 301.88)">
+<svg id="modules_symba_discardUsesGraph" width="641pt" height="166pt"
+ viewBox="0.00 0.00 641.00 166.10" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_symba_discard~~UsesGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 239.06)">
 <title>module~~s_symba_discard~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.88 934,-301.88 934,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 934,-239.06 934,4 -4,4"/>
 <!-- module~s_symba_discard -->
 <g id="module~~s_symba_discard~~UsesGraph_node1" class="node">
 <title>module~s_symba_discard</title>
-<polygon fill="none" stroke="black" points="930,-242.42 834,-242.42 834,-218.42 930,-218.42 930,-242.42"/>
-<text text-anchor="middle" x="882" y="-228.02" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_discard</text>
-</g>
-<!-- module~symba_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_node2" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~s_symba_discard~~UsesGraph_node2"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-262.42 623,-262.42 623,-238.42 708,-238.42 708,-262.42"/>
-<text text-anchor="middle" x="665.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
-</a>
-</g>
-</g>
-<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_edge2" class="edge">
-<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M833.93,-234.81C799.69,-238 753.36,-242.32 718.12,-245.61"/>
-<polygon fill="#000000" stroke="#000000" points="717.66,-242.13 708.03,-246.55 718.31,-249.1 717.66,-242.13"/>
+<polygon fill="none" stroke="black" points="930,-180.63 834,-180.63 834,-156.63 930,-156.63 930,-180.63"/>
+<text text-anchor="middle" x="882" y="-166.23" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_discard</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_symba_discard~~UsesGraph_node3" class="node">
+<g id="module~~s_symba_discard~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~s_symba_discard~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-222.42 744,-222.42 744,-198.42 798,-198.42 798,-222.42"/>
-<text text-anchor="middle" x="771" y="-208.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~s_symba_discard~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.63 744,-160.63 744,-136.63 798,-136.63 798,-160.63"/>
+<text text-anchor="middle" x="771" y="-146.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_discard&#45;&gt;module~swiftest -->
 <g id="module~~s_symba_discard~~UsesGraph_edge1" class="edge">
 <title>module~s_symba_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.82,-221.76C825.25,-220.19 816.43,-218.57 808.23,-217.07"/>
-<polygon fill="#000000" stroke="#000000" points="808.71,-213.6 798.24,-215.23 807.44,-220.48 808.71,-213.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.82,-159.97C825.25,-158.4 816.43,-156.78 808.23,-155.28"/>
+<polygon fill="#000000" stroke="#000000" points="808.71,-151.8 798.24,-153.44 807.44,-158.69 808.71,-151.8"/>
 </g>
-<!-- module~helio_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_symba_discard~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-262.42 510.5,-262.42 510.5,-238.42 586.5,-238.42 586.5,-262.42"/>
-<text text-anchor="middle" x="548.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<!-- module~symba_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_node3" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_symba_discard~~UsesGraph_node3"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-200.63 623,-200.63 623,-176.63 708,-176.63 708,-200.63"/>
+<text text-anchor="middle" x="665.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_edge6" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-250.42C614.47,-250.42 605.46,-250.42 596.76,-250.42"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-246.92 586.76,-250.42 596.76,-253.92 596.76,-246.92"/>
-</g>
-<!-- module~rmvs_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_node7" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~s_symba_discard~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-182.42 510,-182.42 510,-158.42 587,-158.42 587,-182.42"/>
-<text text-anchor="middle" x="548.5" y="-168.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
-</a>
-</g>
+<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_edge2" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M833.93,-173.02C799.69,-176.21 753.36,-180.53 718.12,-183.82"/>
+<polygon fill="#000000" stroke="#000000" points="717.66,-180.34 708.03,-184.76 718.31,-187.31 717.66,-180.34"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_edge4" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-238.39C637.51,-234.12 629.83,-229.19 623,-224.42 606.39,-212.8 603.33,-208.42 587,-196.42 583.48,-193.83 579.74,-191.16 576.03,-188.55"/>
-<polygon fill="#000000" stroke="#000000" points="577.78,-185.5 567.57,-182.65 573.78,-191.24 577.78,-185.5"/>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-158.72C732.83,-162.99 719.68,-168.08 707.39,-172.83"/>
+<polygon fill="#000000" stroke="#000000" points="705.84,-169.67 697.77,-176.54 708.36,-176.2 705.84,-169.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_symba_discard~~UsesGraph_node8" class="node">
+<g id="module~~s_symba_discard~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_symba_discard~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.42 123,-144.42 123,-120.42 211,-120.42 211,-144.42"/>
-<text text-anchor="middle" x="167" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
-</a>
-</g>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_discard~~UsesGraph_edge5" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C365.83,-282.75 347.02,-310.58 293.5,-289.42"/>
-</g>
-<!-- module~swiftest_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<g id="a_module~~s_symba_discard~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-223.42 248,-223.42 248,-199.42 337,-199.42 337,-223.42"/>
-<text text-anchor="middle" x="292.5" y="-209.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~s_symba_discard~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-124.63 123,-124.63 123,-100.63 211,-100.63 211,-124.63"/>
+<text text-anchor="middle" x="167" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_discard~~UsesGraph_edge3" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C379.35,-282.9 337.16,-251.29 313.35,-230.36"/>
-<polygon fill="#000000" stroke="#000000" points="315.49,-227.57 305.73,-223.46 310.8,-232.77 315.49,-227.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630.83,-262.54C584.52,-277.7 498.54,-300.4 425,-289.42"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-220.51C732.83,-224.79 719.68,-229.87 707.39,-234.62"/>
-<polygon fill="#000000" stroke="#000000" points="705.84,-231.46 697.77,-238.33 708.36,-237.99 705.84,-231.46"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_edge7" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C633.34,-206.58 599.62,-220.66 576.81,-233.16"/>
-<polygon fill="#000000" stroke="#000000" points="574.97,-230.18 568.03,-238.19 578.45,-236.25 574.97,-230.18"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-72.63C370.07,-68.82 354.92,-64.07 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C499.75,-46.87 481.86,-76.1 429.5,-72.63"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_symba_discard~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_symba_discard~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-104.42 247,-104.42 247,-80.42 338,-80.42 338,-104.42"/>
-<text text-anchor="middle" x="292.5" y="-90.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-44.63 383,-44.63 383,-20.63 474,-20.63 474,-44.63"/>
+<text text-anchor="middle" x="428.5" y="-30.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
-<g id="module~~s_symba_discard~~UsesGraph_edge8" class="edge">
+<g id="module~~s_symba_discard~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C515.3,-73.76 412.68,-79.93 348.16,-86.19"/>
-<polygon fill="#000000" stroke="#000000" points="347.75,-82.71 338.15,-87.19 348.45,-89.68 347.75,-82.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C527.49,-59.07 504.36,-51.35 483.9,-45.55"/>
+<polygon fill="#000000" stroke="#000000" points="484.68,-42.13 474.11,-42.86 482.82,-48.88 484.68,-42.13"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_symba_discard~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_symba_discard~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-65.42 374,-65.42 374,-41.42 474,-41.42 474,-65.42"/>
-<text text-anchor="middle" x="424" y="-51.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-24.63 247,-24.63 247,-0.63 347,-0.63 347,-24.63"/>
+<text text-anchor="middle" x="297" y="-10.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_symba_discard~~UsesGraph_edge9" class="edge">
+<g id="module~~s_symba_discard~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C528.13,-81.59 504.88,-72.86 483.86,-66.62"/>
-<polygon fill="#000000" stroke="#000000" points="484.64,-63.21 474.07,-63.85 482.73,-69.94 484.64,-63.21"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.57,-149.86C722.63,-150.53 692.64,-150.85 666.5,-148.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C620.82,-144.92 623.95,-111.2 587,-87.63 571.25,-77.58 566.36,-76.68 549.5,-68.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C510.2,-50.81 513.11,-25.02 474,-11.63 436.64,1.16 392.14,0.78 357.24,-2.73"/>
+<polygon fill="#000000" stroke="#000000" points="356.75,0.74 347.2,-3.85 357.53,-6.22 356.75,0.74"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C636.36,-206.95 606.13,-196.14 583.73,-186.62"/>
-<polygon fill="#000000" stroke="#000000" points="584.9,-183.31 574.33,-182.51 582.09,-189.73 584.9,-183.31"/>
+<!-- module~helio_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_symba_discard~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-200.63 510.5,-200.63 510.5,-176.63 586.5,-176.63 586.5,-200.63"/>
+<text text-anchor="middle" x="548.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_discard~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.95,-212.17C722.95,-213.17 692.72,-213.65 666.5,-210.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-13.42C240.23,-29.5 199.87,-82.05 180.52,-111.65"/>
-<polygon fill="#000000" stroke="#000000" points="177.38,-110.06 174.99,-120.39 183.3,-113.81 177.38,-110.06"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C592.13,-201.51 611.22,-132.23 549.5,-93.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C511.56,-70.82 513.12,-48.9 474,-32.42 399.66,-1.09 370.47,10.72 293.5,-13.42"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_edge13" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C478.6,-205.19 398.87,-206.74 347.4,-208.72"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-205.24 337.17,-209.14 347.31,-212.23 347.02,-205.24"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C633.58,-146 600.32,-159.54 577.56,-171.56"/>
+<polygon fill="#000000" stroke="#000000" points="575.85,-168.51 568.78,-176.4 579.23,-174.64 575.85,-168.51"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_node10" class="node">
+<g id="module~~s_symba_discard~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
-<g id="a_module~~s_symba_discard~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-183.42 386,-183.42 386,-159.42 462,-159.42 462,-183.42"/>
-<text text-anchor="middle" x="424" y="-169.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<g id="a_module~~s_symba_discard~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-124.63 390.5,-124.63 390.5,-100.63 466.5,-100.63 466.5,-124.63"/>
+<text text-anchor="middle" x="428.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_edge14" class="edge">
+<g id="module~~s_symba_discard~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C517.18,-208.12 484.44,-197.22 460.44,-187.53"/>
-<polygon fill="#000000" stroke="#000000" points="461.63,-184.23 451.05,-183.62 458.94,-190.69 461.63,-184.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C613.77,-204.17 600.46,-214.29 549.5,-210.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C519.26,-146.75 488.74,-137.22 465.81,-128.44"/>
+<polygon fill="#000000" stroke="#000000" points="467.07,-125.17 456.48,-124.75 464.49,-131.68 467.07,-125.17"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C613.57,-144.31 600.5,-152.01 549.5,-148.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_discard~~UsesGraph_edge17" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-289.42C230.48,-265.29 192.19,-191.07 176.37,-153.98"/>
-<polygon fill="#000000" stroke="#000000" points="179.54,-152.49 172.5,-144.57 173.07,-155.15 179.54,-152.49"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C363.02,-251.43 349.28,-311.47 293.5,-289.42"/>
+<!-- module~swiftest_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_node9" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_discard~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-164.63 252.5,-164.63 252.5,-140.63 341.5,-140.63 341.5,-164.63"/>
+<text text-anchor="middle" x="297" y="-150.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_edge15" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C388.99,-251.43 352.1,-238.67 326.43,-227.57"/>
-<polygon fill="#000000" stroke="#000000" points="327.73,-224.31 317.17,-223.42 324.87,-230.7 327.73,-224.31"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-250.88C485.97,-251.14 453.61,-251.41 425,-251.42"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_edge16" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.63,-238.25C508.25,-225.1 475.59,-204.04 452.38,-189.08"/>
-<polygon fill="#000000" stroke="#000000" points="453.99,-185.95 443.69,-183.47 450.2,-191.83 453.99,-185.95"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C480.17,-144.16 402.4,-146.61 351.83,-149.21"/>
+<polygon fill="#000000" stroke="#000000" points="351.57,-145.72 341.77,-149.75 351.95,-152.71 351.57,-145.72"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_discard~~UsesGraph_edge18" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-104.42C242.1,-108.42 228.18,-112.93 215.18,-117.14"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-113.88 205.45,-120.29 216.05,-120.54 213.89,-113.88"/>
+<!-- module~rmvs_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_node10" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_discard~~UsesGraph_node10"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-120.63 510,-120.63 510,-96.63 587,-96.63 587,-120.63"/>
+<text text-anchor="middle" x="548.5" y="-106.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+</a>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_discard~~UsesGraph_edge19" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.56,-41.37C364.63,-27.5 312.81,-7.36 293.5,-13.42"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_discard~~UsesGraph_edge21" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.63,-158.82C498.26,-155.69 485.7,-152.58 474,-150.42 394.72,-135.78 373.91,-138.2 293.5,-132.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-132.42C268.56,-130.26 243.11,-129.91 221.31,-130.24"/>
-<polygon fill="#000000" stroke="#000000" points="221.17,-126.74 211.24,-130.44 221.31,-133.74 221.17,-126.74"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C635.56,-146.17 604.57,-134.83 582.06,-124.85"/>
+<polygon fill="#000000" stroke="#000000" points="583.51,-121.67 572.96,-120.69 580.59,-128.03 583.51,-121.67"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_edge20" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-170.73C497.99,-170.82 484.88,-170.93 472.55,-171.03"/>
-<polygon fill="#000000" stroke="#000000" points="472.39,-167.53 462.42,-171.11 472.45,-174.53 472.39,-167.53"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_discard~~UsesGraph_edge11" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C370.28,-222.46 353.11,-245.23 298,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-188.63C614.47,-188.63 605.46,-188.63 596.76,-188.63"/>
+<polygon fill="#000000" stroke="#000000" points="596.76,-185.13 586.76,-188.63 596.76,-192.13 596.76,-185.13"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C384.32,-222.51 342.28,-191.94 318.32,-171.48"/>
+<polygon fill="#000000" stroke="#000000" points="320.46,-168.7 310.63,-164.73 315.84,-173.96 320.46,-168.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.9,-200.64C586.6,-215.84 502.03,-238.9 429.5,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_edge12" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-176.6C637.51,-172.33 629.83,-167.4 623,-162.63 606.39,-151.01 603.33,-146.63 587,-134.63 583.48,-132.04 579.74,-129.36 576.03,-126.75"/>
+<polygon fill="#000000" stroke="#000000" points="577.78,-123.7 567.57,-120.86 573.78,-129.45 577.78,-123.7"/>
 </g>
 <!-- iso_fortran_env -->
 <g id="module~~s_symba_discard~~UsesGraph_node11" class="node">
 <title>iso_fortran_env</title>
 <g id="a_module~~s_symba_discard~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.42 0,-144.42 0,-120.42 87,-120.42 87,-144.42"/>
-<text text-anchor="middle" x="43.5" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-124.63 0,-124.63 0,-100.63 87,-100.63 87,-124.63"/>
+<text text-anchor="middle" x="43.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~s_symba_discard~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_discard~~UsesGraph_edge15" class="edge">
 <title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-132.42C114.58,-132.42 105.86,-132.42 97.36,-132.42"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-128.92 87.13,-132.42 97.13,-135.92 97.13,-128.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-112.63C114.58,-112.63 105.86,-112.63 97.36,-112.63"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-109.13 87.13,-112.63 97.13,-116.13 97.13,-109.13"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_discard~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-199.25C251.83,-186.05 218.71,-164.85 195.3,-149.88"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-146.91 186.85,-144.47 193.38,-152.81 197.16,-146.91"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_discard~~UsesGraph_edge16" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-72.63C265.31,-77.24 231.87,-87.9 206.87,-97.05"/>
+<polygon fill="#000000" stroke="#000000" points="205.53,-93.82 197.39,-100.6 207.98,-100.37 205.53,-93.82"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.75,-44.63C371.88,-54.38 333.14,-67.34 298,-72.63"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_discard~~UsesGraph_edge17" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-24.69C258.46,-41.96 217.61,-73.87 191.67,-94.14"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-91.61 183.49,-100.52 193.53,-97.12 189.22,-91.61"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_discard~~UsesGraph_edge18" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-228.63C244.44,-213.1 202.23,-162.28 181.63,-133.32"/>
+<polygon fill="#000000" stroke="#000000" points="184.28,-131 175.71,-124.76 178.52,-134.98 184.28,-131"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C367.52,-191.13 355.43,-245.93 298,-228.63"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.8,-176.59C509.5,-164.15 479.16,-144.62 457.1,-130.4"/>
+<polygon fill="#000000" stroke="#000000" points="458.8,-127.34 448.5,-124.87 455.01,-133.22 458.8,-127.34"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.3,-189.42C487.07,-189.88 456.54,-190.4 429.5,-190.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C394.26,-190.9 358.09,-179.2 332.44,-168.72"/>
+<polygon fill="#000000" stroke="#000000" points="333.73,-165.46 323.16,-164.78 331,-171.91 333.73,-165.46"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_discard~~UsesGraph_edge25" class="edge">
+<g id="module~~s_symba_discard~~UsesGraph_edge21" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M395.88,-159.42C370.13,-148.95 330.03,-135.04 293.5,-132.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_discard~~UsesGraph_edge24" class="edge">
+<g id="module~~s_symba_discard~~UsesGraph_edge22" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-182.88C372.29,-187.08 356.68,-191.9 342.21,-196.37"/>
-<polygon fill="#000000" stroke="#000000" points="340.94,-193.1 332.42,-199.4 343.01,-199.79 340.94,-193.1"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-124.09C376.79,-128.29 361.18,-133.11 346.71,-137.58"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-134.31 336.92,-140.61 347.51,-141 345.44,-134.31"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_discard~~UsesGraph_edge23" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-140.63C244.68,-136.59 230.09,-132.03 216.5,-127.79"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-124.4 206.82,-124.76 215.32,-131.08 217.41,-124.4"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_discard~~UsesGraph_edge24" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M520.52,-96.51C497.03,-86.91 461.77,-74.77 429.5,-72.63"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_discard~~UsesGraph_edge25" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.84,-109.9C499.41,-110.26 487.96,-110.65 477.05,-111.02"/>
+<polygon fill="#000000" stroke="#000000" points="476.68,-107.53 466.8,-111.36 476.92,-114.52 476.68,-107.53"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_symba_drift.html b/docs/module/s_symba_drift.html
index 344cc6c2d..94d9c68ca 100644
--- a/docs/module/s_symba_drift.html
+++ b/docs/module/s_symba_drift.html
@@ -247,261 +247,260 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_symba_drift~~UsesGraph Pages: 1 -->
-<svg id="modules_symba_driftUsesGraph" width="641pt" height="213pt"
- viewBox="0.00 0.00 641.00 212.89" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_symba_drift~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 301.88)">
+<svg id="modules_symba_driftUsesGraph" width="641pt" height="169pt"
+ viewBox="0.00 0.00 641.00 169.16" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_symba_drift~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 239.06)">
 <title>module~~s_symba_drift~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.88 917,-301.88 917,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 917,-239.06 917,4 -4,4"/>
 <!-- module~s_symba_drift -->
 <g id="module~~s_symba_drift~~UsesGraph_node1" class="node">
 <title>module~s_symba_drift</title>
-<polygon fill="none" stroke="black" points="913,-242.42 834,-242.42 834,-218.42 913,-218.42 913,-242.42"/>
-<text text-anchor="middle" x="873.5" y="-228.02" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_drift</text>
-</g>
-<!-- module~symba_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_node2" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~s_symba_drift~~UsesGraph_node2"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-262.42 623,-262.42 623,-238.42 708,-238.42 708,-262.42"/>
-<text text-anchor="middle" x="665.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
-</a>
-</g>
-</g>
-<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_edge2" class="edge">
-<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M833.75,-234.18C801.19,-237.34 754.35,-241.89 718.52,-245.37"/>
-<polygon fill="#000000" stroke="#000000" points="717.87,-241.91 708.26,-246.36 718.55,-248.88 717.87,-241.91"/>
+<polygon fill="none" stroke="black" points="913,-180.63 834,-180.63 834,-156.63 913,-156.63 913,-180.63"/>
+<text text-anchor="middle" x="873.5" y="-166.23" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_drift</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_symba_drift~~UsesGraph_node3" class="node">
+<g id="module~~s_symba_drift~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~s_symba_drift~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-222.42 744,-222.42 744,-198.42 798,-198.42 798,-222.42"/>
-<text text-anchor="middle" x="771" y="-208.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~s_symba_drift~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.63 744,-160.63 744,-136.63 798,-136.63 798,-160.63"/>
+<text text-anchor="middle" x="771" y="-146.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_drift&#45;&gt;module~swiftest -->
 <g id="module~~s_symba_drift~~UsesGraph_edge1" class="edge">
 <title>module~s_symba_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.93,-222.74C825.43,-221.05 816.46,-219.27 808.06,-217.6"/>
-<polygon fill="#000000" stroke="#000000" points="808.67,-214.15 798.18,-215.63 807.3,-221.01 808.67,-214.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.93,-160.95C825.43,-159.26 816.46,-157.48 808.06,-155.8"/>
+<polygon fill="#000000" stroke="#000000" points="808.67,-152.36 798.18,-153.84 807.3,-159.22 808.67,-152.36"/>
 </g>
-<!-- module~helio_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_symba_drift~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-262.42 510.5,-262.42 510.5,-238.42 586.5,-238.42 586.5,-262.42"/>
-<text text-anchor="middle" x="548.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<!-- module~symba_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_node3" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_symba_drift~~UsesGraph_node3"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-200.63 623,-200.63 623,-176.63 708,-176.63 708,-200.63"/>
+<text text-anchor="middle" x="665.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_edge6" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-250.42C614.47,-250.42 605.46,-250.42 596.76,-250.42"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-246.92 586.76,-250.42 596.76,-253.92 596.76,-246.92"/>
-</g>
-<!-- module~rmvs_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_node7" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~s_symba_drift~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-182.42 510,-182.42 510,-158.42 587,-158.42 587,-182.42"/>
-<text text-anchor="middle" x="548.5" y="-168.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
-</a>
-</g>
+<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_edge2" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M833.75,-172.39C801.19,-175.55 754.35,-180.1 718.52,-183.58"/>
+<polygon fill="#000000" stroke="#000000" points="717.87,-180.12 708.26,-184.57 718.55,-187.09 717.87,-180.12"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_edge4" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-238.39C637.51,-234.12 629.83,-229.19 623,-224.42 606.39,-212.8 603.33,-208.42 587,-196.42 583.48,-193.83 579.74,-191.16 576.03,-188.55"/>
-<polygon fill="#000000" stroke="#000000" points="577.78,-185.5 567.57,-182.65 573.78,-191.24 577.78,-185.5"/>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-158.72C732.83,-162.99 719.68,-168.08 707.39,-172.83"/>
+<polygon fill="#000000" stroke="#000000" points="705.84,-169.67 697.77,-176.54 708.36,-176.2 705.84,-169.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_symba_drift~~UsesGraph_node8" class="node">
+<g id="module~~s_symba_drift~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_symba_drift~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.42 123,-144.42 123,-120.42 211,-120.42 211,-144.42"/>
-<text text-anchor="middle" x="167" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
-</a>
-</g>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_drift~~UsesGraph_edge5" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C365.83,-282.75 347.02,-310.58 293.5,-289.42"/>
-</g>
-<!-- module~swiftest_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<g id="a_module~~s_symba_drift~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-223.42 248,-223.42 248,-199.42 337,-199.42 337,-223.42"/>
-<text text-anchor="middle" x="292.5" y="-209.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~s_symba_drift~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-124.63 123,-124.63 123,-100.63 211,-100.63 211,-124.63"/>
+<text text-anchor="middle" x="167" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_drift~~UsesGraph_edge3" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C379.35,-282.9 337.16,-251.29 313.35,-230.36"/>
-<polygon fill="#000000" stroke="#000000" points="315.49,-227.57 305.73,-223.46 310.8,-232.77 315.49,-227.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630.83,-262.54C584.52,-277.7 498.54,-300.4 425,-289.42"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-220.51C732.83,-224.79 719.68,-229.87 707.39,-234.62"/>
-<polygon fill="#000000" stroke="#000000" points="705.84,-231.46 697.77,-238.33 708.36,-237.99 705.84,-231.46"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_edge7" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C633.34,-206.58 599.62,-220.66 576.81,-233.16"/>
-<polygon fill="#000000" stroke="#000000" points="574.97,-230.18 568.03,-238.19 578.45,-236.25 574.97,-230.18"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-72.63C370.07,-68.82 354.92,-64.07 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C499.75,-46.87 481.86,-76.1 429.5,-72.63"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_symba_drift~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_symba_drift~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-104.42 247,-104.42 247,-80.42 338,-80.42 338,-104.42"/>
-<text text-anchor="middle" x="292.5" y="-90.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-44.63 383,-44.63 383,-20.63 474,-20.63 474,-44.63"/>
+<text text-anchor="middle" x="428.5" y="-30.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
-<g id="module~~s_symba_drift~~UsesGraph_edge8" class="edge">
+<g id="module~~s_symba_drift~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C515.3,-73.76 412.68,-79.93 348.16,-86.19"/>
-<polygon fill="#000000" stroke="#000000" points="347.75,-82.71 338.15,-87.19 348.45,-89.68 347.75,-82.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C527.49,-59.07 504.36,-51.35 483.9,-45.55"/>
+<polygon fill="#000000" stroke="#000000" points="484.68,-42.13 474.11,-42.86 482.82,-48.88 484.68,-42.13"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_symba_drift~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_symba_drift~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-65.42 374,-65.42 374,-41.42 474,-41.42 474,-65.42"/>
-<text text-anchor="middle" x="424" y="-51.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-24.63 247,-24.63 247,-0.63 347,-0.63 347,-24.63"/>
+<text text-anchor="middle" x="297" y="-10.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_symba_drift~~UsesGraph_edge9" class="edge">
+<g id="module~~s_symba_drift~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C528.13,-81.59 504.88,-72.86 483.86,-66.62"/>
-<polygon fill="#000000" stroke="#000000" points="484.64,-63.21 474.07,-63.85 482.73,-69.94 484.64,-63.21"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.57,-149.86C722.63,-150.53 692.64,-150.85 666.5,-148.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C620.82,-144.92 623.95,-111.2 587,-87.63 571.25,-77.58 566.36,-76.68 549.5,-68.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C510.2,-50.81 513.11,-25.02 474,-11.63 436.64,1.16 392.14,0.78 357.24,-2.73"/>
+<polygon fill="#000000" stroke="#000000" points="356.75,0.74 347.2,-3.85 357.53,-6.22 356.75,0.74"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C636.36,-206.95 606.13,-196.14 583.73,-186.62"/>
-<polygon fill="#000000" stroke="#000000" points="584.9,-183.31 574.33,-182.51 582.09,-189.73 584.9,-183.31"/>
+<!-- module~helio_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_symba_drift~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-200.63 510.5,-200.63 510.5,-176.63 586.5,-176.63 586.5,-200.63"/>
+<text text-anchor="middle" x="548.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_drift~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.95,-212.17C722.95,-213.17 692.72,-213.65 666.5,-210.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-13.42C240.23,-29.5 199.87,-82.05 180.52,-111.65"/>
-<polygon fill="#000000" stroke="#000000" points="177.38,-110.06 174.99,-120.39 183.3,-113.81 177.38,-110.06"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C592.13,-201.51 611.22,-132.23 549.5,-93.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C511.56,-70.82 513.12,-48.9 474,-32.42 399.66,-1.09 370.47,10.72 293.5,-13.42"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_edge13" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C478.6,-205.19 398.87,-206.74 347.4,-208.72"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-205.24 337.17,-209.14 347.31,-212.23 347.02,-205.24"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C633.58,-146 600.32,-159.54 577.56,-171.56"/>
+<polygon fill="#000000" stroke="#000000" points="575.85,-168.51 568.78,-176.4 579.23,-174.64 575.85,-168.51"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_node10" class="node">
+<g id="module~~s_symba_drift~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
-<g id="a_module~~s_symba_drift~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-183.42 386,-183.42 386,-159.42 462,-159.42 462,-183.42"/>
-<text text-anchor="middle" x="424" y="-169.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<g id="a_module~~s_symba_drift~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-124.63 390.5,-124.63 390.5,-100.63 466.5,-100.63 466.5,-124.63"/>
+<text text-anchor="middle" x="428.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_edge14" class="edge">
+<g id="module~~s_symba_drift~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C517.18,-208.12 484.44,-197.22 460.44,-187.53"/>
-<polygon fill="#000000" stroke="#000000" points="461.63,-184.23 451.05,-183.62 458.94,-190.69 461.63,-184.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C613.77,-204.17 600.46,-214.29 549.5,-210.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C519.26,-146.75 488.74,-137.22 465.81,-128.44"/>
+<polygon fill="#000000" stroke="#000000" points="467.07,-125.17 456.48,-124.75 464.49,-131.68 467.07,-125.17"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C613.57,-144.31 600.5,-152.01 549.5,-148.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_drift~~UsesGraph_edge17" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-289.42C230.48,-265.29 192.19,-191.07 176.37,-153.98"/>
-<polygon fill="#000000" stroke="#000000" points="179.54,-152.49 172.5,-144.57 173.07,-155.15 179.54,-152.49"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C363.02,-251.43 349.28,-311.47 293.5,-289.42"/>
+<!-- module~swiftest_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_node9" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_drift~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-164.63 252.5,-164.63 252.5,-140.63 341.5,-140.63 341.5,-164.63"/>
+<text text-anchor="middle" x="297" y="-150.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_edge15" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C388.99,-251.43 352.1,-238.67 326.43,-227.57"/>
-<polygon fill="#000000" stroke="#000000" points="327.73,-224.31 317.17,-223.42 324.87,-230.7 327.73,-224.31"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-250.88C485.97,-251.14 453.61,-251.41 425,-251.42"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_edge16" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.63,-238.25C508.25,-225.1 475.59,-204.04 452.38,-189.08"/>
-<polygon fill="#000000" stroke="#000000" points="453.99,-185.95 443.69,-183.47 450.2,-191.83 453.99,-185.95"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C480.17,-144.16 402.4,-146.61 351.83,-149.21"/>
+<polygon fill="#000000" stroke="#000000" points="351.57,-145.72 341.77,-149.75 351.95,-152.71 351.57,-145.72"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_drift~~UsesGraph_edge18" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-104.42C242.1,-108.42 228.18,-112.93 215.18,-117.14"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-113.88 205.45,-120.29 216.05,-120.54 213.89,-113.88"/>
+<!-- module~rmvs_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_node10" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_drift~~UsesGraph_node10"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-120.63 510,-120.63 510,-96.63 587,-96.63 587,-120.63"/>
+<text text-anchor="middle" x="548.5" y="-106.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+</a>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_drift~~UsesGraph_edge19" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.56,-41.37C364.63,-27.5 312.81,-7.36 293.5,-13.42"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_drift~~UsesGraph_edge21" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.63,-158.82C498.26,-155.69 485.7,-152.58 474,-150.42 394.72,-135.78 373.91,-138.2 293.5,-132.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-132.42C268.56,-130.26 243.11,-129.91 221.31,-130.24"/>
-<polygon fill="#000000" stroke="#000000" points="221.17,-126.74 211.24,-130.44 221.31,-133.74 221.17,-126.74"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C635.56,-146.17 604.57,-134.83 582.06,-124.85"/>
+<polygon fill="#000000" stroke="#000000" points="583.51,-121.67 572.96,-120.69 580.59,-128.03 583.51,-121.67"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_edge20" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-170.73C497.99,-170.82 484.88,-170.93 472.55,-171.03"/>
-<polygon fill="#000000" stroke="#000000" points="472.39,-167.53 462.42,-171.11 472.45,-174.53 472.39,-167.53"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_drift~~UsesGraph_edge11" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C370.28,-222.46 353.11,-245.23 298,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-188.63C614.47,-188.63 605.46,-188.63 596.76,-188.63"/>
+<polygon fill="#000000" stroke="#000000" points="596.76,-185.13 586.76,-188.63 596.76,-192.13 596.76,-185.13"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C384.32,-222.51 342.28,-191.94 318.32,-171.48"/>
+<polygon fill="#000000" stroke="#000000" points="320.46,-168.7 310.63,-164.73 315.84,-173.96 320.46,-168.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.9,-200.64C586.6,-215.84 502.03,-238.9 429.5,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_edge12" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-176.6C637.51,-172.33 629.83,-167.4 623,-162.63 606.39,-151.01 603.33,-146.63 587,-134.63 583.48,-132.04 579.74,-129.36 576.03,-126.75"/>
+<polygon fill="#000000" stroke="#000000" points="577.78,-123.7 567.57,-120.86 573.78,-129.45 577.78,-123.7"/>
 </g>
 <!-- iso_fortran_env -->
 <g id="module~~s_symba_drift~~UsesGraph_node11" class="node">
 <title>iso_fortran_env</title>
 <g id="a_module~~s_symba_drift~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.42 0,-144.42 0,-120.42 87,-120.42 87,-144.42"/>
-<text text-anchor="middle" x="43.5" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-124.63 0,-124.63 0,-100.63 87,-100.63 87,-124.63"/>
+<text text-anchor="middle" x="43.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~s_symba_drift~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_drift~~UsesGraph_edge15" class="edge">
 <title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-132.42C114.58,-132.42 105.86,-132.42 97.36,-132.42"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-128.92 87.13,-132.42 97.13,-135.92 97.13,-128.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-112.63C114.58,-112.63 105.86,-112.63 97.36,-112.63"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-109.13 87.13,-112.63 97.13,-116.13 97.13,-109.13"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_drift~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-199.25C251.83,-186.05 218.71,-164.85 195.3,-149.88"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-146.91 186.85,-144.47 193.38,-152.81 197.16,-146.91"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_drift~~UsesGraph_edge16" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-72.63C265.31,-77.24 231.87,-87.9 206.87,-97.05"/>
+<polygon fill="#000000" stroke="#000000" points="205.53,-93.82 197.39,-100.6 207.98,-100.37 205.53,-93.82"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.75,-44.63C371.88,-54.38 333.14,-67.34 298,-72.63"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_drift~~UsesGraph_edge17" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-24.69C258.46,-41.96 217.61,-73.87 191.67,-94.14"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-91.61 183.49,-100.52 193.53,-97.12 189.22,-91.61"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_drift~~UsesGraph_edge18" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-228.63C244.44,-213.1 202.23,-162.28 181.63,-133.32"/>
+<polygon fill="#000000" stroke="#000000" points="184.28,-131 175.71,-124.76 178.52,-134.98 184.28,-131"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C367.52,-191.13 355.43,-245.93 298,-228.63"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.8,-176.59C509.5,-164.15 479.16,-144.62 457.1,-130.4"/>
+<polygon fill="#000000" stroke="#000000" points="458.8,-127.34 448.5,-124.87 455.01,-133.22 458.8,-127.34"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.3,-189.42C487.07,-189.88 456.54,-190.4 429.5,-190.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C394.26,-190.9 358.09,-179.2 332.44,-168.72"/>
+<polygon fill="#000000" stroke="#000000" points="333.73,-165.46 323.16,-164.78 331,-171.91 333.73,-165.46"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_drift~~UsesGraph_edge25" class="edge">
+<g id="module~~s_symba_drift~~UsesGraph_edge21" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M395.88,-159.42C370.13,-148.95 330.03,-135.04 293.5,-132.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_drift~~UsesGraph_edge24" class="edge">
+<g id="module~~s_symba_drift~~UsesGraph_edge22" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-182.88C372.29,-187.08 356.68,-191.9 342.21,-196.37"/>
-<polygon fill="#000000" stroke="#000000" points="340.94,-193.1 332.42,-199.4 343.01,-199.79 340.94,-193.1"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-124.09C376.79,-128.29 361.18,-133.11 346.71,-137.58"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-134.31 336.92,-140.61 347.51,-141 345.44,-134.31"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_drift~~UsesGraph_edge23" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-140.63C244.68,-136.59 230.09,-132.03 216.5,-127.79"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-124.4 206.82,-124.76 215.32,-131.08 217.41,-124.4"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_drift~~UsesGraph_edge24" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M520.52,-96.51C497.03,-86.91 461.77,-74.77 429.5,-72.63"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_drift~~UsesGraph_edge25" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.84,-109.9C499.41,-110.26 487.96,-110.65 477.05,-111.02"/>
+<polygon fill="#000000" stroke="#000000" points="476.68,-107.53 466.8,-111.36 476.92,-114.52 476.68,-107.53"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_symba_encounter_check.html b/docs/module/s_symba_encounter_check.html
index f4ae81413..bfdef2cd7 100644
--- a/docs/module/s_symba_encounter_check.html
+++ b/docs/module/s_symba_encounter_check.html
@@ -261,261 +261,260 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_symba_encounter_check~~UsesGraph Pages: 1 -->
-<svg id="modules_symba_encounter_checkUsesGraph" width="641pt" height="199pt"
- viewBox="0.00 0.00 641.00 199.05" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_symba_encounter_check~~UsesGraph" class="graph" transform="scale(0.65 0.65) rotate(0) translate(4 301.88)">
+<svg id="modules_symba_encounter_checkUsesGraph" width="641pt" height="158pt"
+ viewBox="0.00 0.00 641.00 158.17" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_symba_encounter_check~~UsesGraph" class="graph" transform="scale(0.65 0.65) rotate(0) translate(4 239.06)">
 <title>module~~s_symba_encounter_check~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.88 981,-301.88 981,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 981,-239.06 981,4 -4,4"/>
 <!-- module~s_symba_encounter_check -->
 <g id="module~~s_symba_encounter_check~~UsesGraph_node1" class="node">
 <title>module~s_symba_encounter_check</title>
-<polygon fill="none" stroke="black" points="977,-242.42 834,-242.42 834,-218.42 977,-218.42 977,-242.42"/>
-<text text-anchor="middle" x="905.5" y="-228.02" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_encounter_check</text>
-</g>
-<!-- module~symba_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_node2" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~s_symba_encounter_check~~UsesGraph_node2"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-262.42 623,-262.42 623,-238.42 708,-238.42 708,-262.42"/>
-<text text-anchor="middle" x="665.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
-</a>
-</g>
-</g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge2" class="edge">
-<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M833.74,-236.37C796.73,-239.47 752.24,-243.21 718.45,-246.05"/>
-<polygon fill="#000000" stroke="#000000" points="718,-242.58 708.32,-246.9 718.58,-249.55 718,-242.58"/>
+<polygon fill="none" stroke="black" points="977,-180.63 834,-180.63 834,-156.63 977,-156.63 977,-180.63"/>
+<text text-anchor="middle" x="905.5" y="-166.23" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_encounter_check</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_node3" class="node">
+<g id="module~~s_symba_encounter_check~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~s_symba_encounter_check~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-222.42 744,-222.42 744,-198.42 798,-198.42 798,-222.42"/>
-<text text-anchor="middle" x="771" y="-208.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~s_symba_encounter_check~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.63 744,-160.63 744,-136.63 798,-136.63 798,-160.63"/>
+<text text-anchor="middle" x="771" y="-146.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
 <g id="module~~s_symba_encounter_check~~UsesGraph_edge1" class="edge">
 <title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.98,-219.77C825.04,-218.43 816.21,-217.09 808.13,-215.87"/>
-<polygon fill="#000000" stroke="#000000" points="808.42,-212.38 798.01,-214.34 807.38,-219.3 808.42,-212.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.98,-157.98C825.04,-156.63 816.21,-155.3 808.13,-154.08"/>
+<polygon fill="#000000" stroke="#000000" points="808.42,-150.59 798.01,-152.55 807.38,-157.51 808.42,-150.59"/>
 </g>
-<!-- module~helio_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_symba_encounter_check~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-262.42 510.5,-262.42 510.5,-238.42 586.5,-238.42 586.5,-262.42"/>
-<text text-anchor="middle" x="548.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<!-- module~symba_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_node3" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_symba_encounter_check~~UsesGraph_node3"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-200.63 623,-200.63 623,-176.63 708,-176.63 708,-200.63"/>
+<text text-anchor="middle" x="665.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge6" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-250.42C614.47,-250.42 605.46,-250.42 596.76,-250.42"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-246.92 586.76,-250.42 596.76,-253.92 596.76,-246.92"/>
-</g>
-<!-- module~rmvs_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_node7" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~s_symba_encounter_check~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-182.42 510,-182.42 510,-158.42 587,-158.42 587,-182.42"/>
-<text text-anchor="middle" x="548.5" y="-168.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
-</a>
-</g>
+<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge2" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M833.74,-174.57C796.73,-177.68 752.24,-181.42 718.45,-184.26"/>
+<polygon fill="#000000" stroke="#000000" points="718,-180.79 708.32,-185.11 718.58,-187.76 718,-180.79"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge4" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-238.39C637.51,-234.12 629.83,-229.19 623,-224.42 606.39,-212.8 603.33,-208.42 587,-196.42 583.48,-193.83 579.74,-191.16 576.03,-188.55"/>
-<polygon fill="#000000" stroke="#000000" points="577.78,-185.5 567.57,-182.65 573.78,-191.24 577.78,-185.5"/>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-158.72C732.83,-162.99 719.68,-168.08 707.39,-172.83"/>
+<polygon fill="#000000" stroke="#000000" points="705.84,-169.67 697.77,-176.54 708.36,-176.2 705.84,-169.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_node8" class="node">
+<g id="module~~s_symba_encounter_check~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_symba_encounter_check~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.42 123,-144.42 123,-120.42 211,-120.42 211,-144.42"/>
-<text text-anchor="middle" x="167" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
-</a>
-</g>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge5" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C365.83,-282.75 347.02,-310.58 293.5,-289.42"/>
-</g>
-<!-- module~swiftest_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<g id="a_module~~s_symba_encounter_check~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-223.42 248,-223.42 248,-199.42 337,-199.42 337,-223.42"/>
-<text text-anchor="middle" x="292.5" y="-209.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~s_symba_encounter_check~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-124.63 123,-124.63 123,-100.63 211,-100.63 211,-124.63"/>
+<text text-anchor="middle" x="167" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_encounter_check~~UsesGraph_edge3" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C379.35,-282.9 337.16,-251.29 313.35,-230.36"/>
-<polygon fill="#000000" stroke="#000000" points="315.49,-227.57 305.73,-223.46 310.8,-232.77 315.49,-227.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630.83,-262.54C584.52,-277.7 498.54,-300.4 425,-289.42"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-220.51C732.83,-224.79 719.68,-229.87 707.39,-234.62"/>
-<polygon fill="#000000" stroke="#000000" points="705.84,-231.46 697.77,-238.33 708.36,-237.99 705.84,-231.46"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge7" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C633.34,-206.58 599.62,-220.66 576.81,-233.16"/>
-<polygon fill="#000000" stroke="#000000" points="574.97,-230.18 568.03,-238.19 578.45,-236.25 574.97,-230.18"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-72.63C370.07,-68.82 354.92,-64.07 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C499.75,-46.87 481.86,-76.1 429.5,-72.63"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_symba_encounter_check~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_symba_encounter_check~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-104.42 247,-104.42 247,-80.42 338,-80.42 338,-104.42"/>
-<text text-anchor="middle" x="292.5" y="-90.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-44.63 383,-44.63 383,-20.63 474,-20.63 474,-44.63"/>
+<text text-anchor="middle" x="428.5" y="-30.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge8" class="edge">
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C515.3,-73.76 412.68,-79.93 348.16,-86.19"/>
-<polygon fill="#000000" stroke="#000000" points="347.75,-82.71 338.15,-87.19 348.45,-89.68 347.75,-82.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C527.49,-59.07 504.36,-51.35 483.9,-45.55"/>
+<polygon fill="#000000" stroke="#000000" points="484.68,-42.13 474.11,-42.86 482.82,-48.88 484.68,-42.13"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_symba_encounter_check~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_symba_encounter_check~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-65.42 374,-65.42 374,-41.42 474,-41.42 474,-65.42"/>
-<text text-anchor="middle" x="424" y="-51.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-24.63 247,-24.63 247,-0.63 347,-0.63 347,-24.63"/>
+<text text-anchor="middle" x="297" y="-10.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge9" class="edge">
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C528.13,-81.59 504.88,-72.86 483.86,-66.62"/>
-<polygon fill="#000000" stroke="#000000" points="484.64,-63.21 474.07,-63.85 482.73,-69.94 484.64,-63.21"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.57,-149.86C722.63,-150.53 692.64,-150.85 666.5,-148.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C620.82,-144.92 623.95,-111.2 587,-87.63 571.25,-77.58 566.36,-76.68 549.5,-68.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C510.2,-50.81 513.11,-25.02 474,-11.63 436.64,1.16 392.14,0.78 357.24,-2.73"/>
+<polygon fill="#000000" stroke="#000000" points="356.75,0.74 347.2,-3.85 357.53,-6.22 356.75,0.74"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C636.36,-206.95 606.13,-196.14 583.73,-186.62"/>
-<polygon fill="#000000" stroke="#000000" points="584.9,-183.31 574.33,-182.51 582.09,-189.73 584.9,-183.31"/>
+<!-- module~helio_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_symba_encounter_check~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-200.63 510.5,-200.63 510.5,-176.63 586.5,-176.63 586.5,-200.63"/>
+<text text-anchor="middle" x="548.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.95,-212.17C722.95,-213.17 692.72,-213.65 666.5,-210.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-13.42C240.23,-29.5 199.87,-82.05 180.52,-111.65"/>
-<polygon fill="#000000" stroke="#000000" points="177.38,-110.06 174.99,-120.39 183.3,-113.81 177.38,-110.06"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C592.13,-201.51 611.22,-132.23 549.5,-93.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C511.56,-70.82 513.12,-48.9 474,-32.42 399.66,-1.09 370.47,10.72 293.5,-13.42"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge13" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C478.6,-205.19 398.87,-206.74 347.4,-208.72"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-205.24 337.17,-209.14 347.31,-212.23 347.02,-205.24"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C633.58,-146 600.32,-159.54 577.56,-171.56"/>
+<polygon fill="#000000" stroke="#000000" points="575.85,-168.51 568.78,-176.4 579.23,-174.64 575.85,-168.51"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_node10" class="node">
+<g id="module~~s_symba_encounter_check~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
-<g id="a_module~~s_symba_encounter_check~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-183.42 386,-183.42 386,-159.42 462,-159.42 462,-183.42"/>
-<text text-anchor="middle" x="424" y="-169.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<g id="a_module~~s_symba_encounter_check~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-124.63 390.5,-124.63 390.5,-100.63 466.5,-100.63 466.5,-124.63"/>
+<text text-anchor="middle" x="428.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge14" class="edge">
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C517.18,-208.12 484.44,-197.22 460.44,-187.53"/>
-<polygon fill="#000000" stroke="#000000" points="461.63,-184.23 451.05,-183.62 458.94,-190.69 461.63,-184.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C613.77,-204.17 600.46,-214.29 549.5,-210.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C519.26,-146.75 488.74,-137.22 465.81,-128.44"/>
+<polygon fill="#000000" stroke="#000000" points="467.07,-125.17 456.48,-124.75 464.49,-131.68 467.07,-125.17"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C613.57,-144.31 600.5,-152.01 549.5,-148.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge17" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-289.42C230.48,-265.29 192.19,-191.07 176.37,-153.98"/>
-<polygon fill="#000000" stroke="#000000" points="179.54,-152.49 172.5,-144.57 173.07,-155.15 179.54,-152.49"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C363.02,-251.43 349.28,-311.47 293.5,-289.42"/>
+<!-- module~swiftest_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_node9" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_encounter_check~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-164.63 252.5,-164.63 252.5,-140.63 341.5,-140.63 341.5,-164.63"/>
+<text text-anchor="middle" x="297" y="-150.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge15" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C388.99,-251.43 352.1,-238.67 326.43,-227.57"/>
-<polygon fill="#000000" stroke="#000000" points="327.73,-224.31 317.17,-223.42 324.87,-230.7 327.73,-224.31"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-250.88C485.97,-251.14 453.61,-251.41 425,-251.42"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge16" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.63,-238.25C508.25,-225.1 475.59,-204.04 452.38,-189.08"/>
-<polygon fill="#000000" stroke="#000000" points="453.99,-185.95 443.69,-183.47 450.2,-191.83 453.99,-185.95"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C480.17,-144.16 402.4,-146.61 351.83,-149.21"/>
+<polygon fill="#000000" stroke="#000000" points="351.57,-145.72 341.77,-149.75 351.95,-152.71 351.57,-145.72"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge18" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-104.42C242.1,-108.42 228.18,-112.93 215.18,-117.14"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-113.88 205.45,-120.29 216.05,-120.54 213.89,-113.88"/>
+<!-- module~rmvs_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_node10" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_encounter_check~~UsesGraph_node10"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-120.63 510,-120.63 510,-96.63 587,-96.63 587,-120.63"/>
+<text text-anchor="middle" x="548.5" y="-106.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+</a>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge19" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.56,-41.37C364.63,-27.5 312.81,-7.36 293.5,-13.42"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge21" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.63,-158.82C498.26,-155.69 485.7,-152.58 474,-150.42 394.72,-135.78 373.91,-138.2 293.5,-132.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-132.42C268.56,-130.26 243.11,-129.91 221.31,-130.24"/>
-<polygon fill="#000000" stroke="#000000" points="221.17,-126.74 211.24,-130.44 221.31,-133.74 221.17,-126.74"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C635.56,-146.17 604.57,-134.83 582.06,-124.85"/>
+<polygon fill="#000000" stroke="#000000" points="583.51,-121.67 572.96,-120.69 580.59,-128.03 583.51,-121.67"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge20" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-170.73C497.99,-170.82 484.88,-170.93 472.55,-171.03"/>
-<polygon fill="#000000" stroke="#000000" points="472.39,-167.53 462.42,-171.11 472.45,-174.53 472.39,-167.53"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge11" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C370.28,-222.46 353.11,-245.23 298,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-188.63C614.47,-188.63 605.46,-188.63 596.76,-188.63"/>
+<polygon fill="#000000" stroke="#000000" points="596.76,-185.13 586.76,-188.63 596.76,-192.13 596.76,-185.13"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C384.32,-222.51 342.28,-191.94 318.32,-171.48"/>
+<polygon fill="#000000" stroke="#000000" points="320.46,-168.7 310.63,-164.73 315.84,-173.96 320.46,-168.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.9,-200.64C586.6,-215.84 502.03,-238.9 429.5,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge12" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-176.6C637.51,-172.33 629.83,-167.4 623,-162.63 606.39,-151.01 603.33,-146.63 587,-134.63 583.48,-132.04 579.74,-129.36 576.03,-126.75"/>
+<polygon fill="#000000" stroke="#000000" points="577.78,-123.7 567.57,-120.86 573.78,-129.45 577.78,-123.7"/>
 </g>
 <!-- iso_fortran_env -->
 <g id="module~~s_symba_encounter_check~~UsesGraph_node11" class="node">
 <title>iso_fortran_env</title>
 <g id="a_module~~s_symba_encounter_check~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.42 0,-144.42 0,-120.42 87,-120.42 87,-144.42"/>
-<text text-anchor="middle" x="43.5" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-124.63 0,-124.63 0,-100.63 87,-100.63 87,-124.63"/>
+<text text-anchor="middle" x="43.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge15" class="edge">
 <title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-132.42C114.58,-132.42 105.86,-132.42 97.36,-132.42"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-128.92 87.13,-132.42 97.13,-135.92 97.13,-128.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-112.63C114.58,-112.63 105.86,-112.63 97.36,-112.63"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-109.13 87.13,-112.63 97.13,-116.13 97.13,-109.13"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-199.25C251.83,-186.05 218.71,-164.85 195.3,-149.88"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-146.91 186.85,-144.47 193.38,-152.81 197.16,-146.91"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge16" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-72.63C265.31,-77.24 231.87,-87.9 206.87,-97.05"/>
+<polygon fill="#000000" stroke="#000000" points="205.53,-93.82 197.39,-100.6 207.98,-100.37 205.53,-93.82"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.75,-44.63C371.88,-54.38 333.14,-67.34 298,-72.63"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge17" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-24.69C258.46,-41.96 217.61,-73.87 191.67,-94.14"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-91.61 183.49,-100.52 193.53,-97.12 189.22,-91.61"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge18" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-228.63C244.44,-213.1 202.23,-162.28 181.63,-133.32"/>
+<polygon fill="#000000" stroke="#000000" points="184.28,-131 175.71,-124.76 178.52,-134.98 184.28,-131"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C367.52,-191.13 355.43,-245.93 298,-228.63"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.8,-176.59C509.5,-164.15 479.16,-144.62 457.1,-130.4"/>
+<polygon fill="#000000" stroke="#000000" points="458.8,-127.34 448.5,-124.87 455.01,-133.22 458.8,-127.34"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.3,-189.42C487.07,-189.88 456.54,-190.4 429.5,-190.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C394.26,-190.9 358.09,-179.2 332.44,-168.72"/>
+<polygon fill="#000000" stroke="#000000" points="333.73,-165.46 323.16,-164.78 331,-171.91 333.73,-165.46"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge25" class="edge">
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge21" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M395.88,-159.42C370.13,-148.95 330.03,-135.04 293.5,-132.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_encounter_check~~UsesGraph_edge24" class="edge">
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge22" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-182.88C372.29,-187.08 356.68,-191.9 342.21,-196.37"/>
-<polygon fill="#000000" stroke="#000000" points="340.94,-193.1 332.42,-199.4 343.01,-199.79 340.94,-193.1"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-124.09C376.79,-128.29 361.18,-133.11 346.71,-137.58"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-134.31 336.92,-140.61 347.51,-141 345.44,-134.31"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge23" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-140.63C244.68,-136.59 230.09,-132.03 216.5,-127.79"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-124.4 206.82,-124.76 215.32,-131.08 217.41,-124.4"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge24" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M520.52,-96.51C497.03,-86.91 461.77,-74.77 429.5,-72.63"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_encounter_check~~UsesGraph_edge25" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.84,-109.9C499.41,-110.26 487.96,-110.65 477.05,-111.02"/>
+<polygon fill="#000000" stroke="#000000" points="476.68,-107.53 466.8,-111.36 476.92,-114.52 476.68,-107.53"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_symba_fragmentation.html b/docs/module/s_symba_fragmentation.html
index 947d8a8db..eb55ad5b2 100644
--- a/docs/module/s_symba_fragmentation.html
+++ b/docs/module/s_symba_fragmentation.html
@@ -134,7 +134,7 @@ <h1>s_symba_fragmentation
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 3.4% of total for modules and submodules.">444 statements</a>
+    title=" 2.6% of total for modules and submodules.">345 statements</a>
      </li> 
      
      
@@ -197,6 +197,18 @@ <h3>Contents</h3>
 
 
 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#subs-0">Subroutines</a></h3></div>
+  <div class="list-group">
+    <div id="subs-0" class="panel-collapse collapse">
+      
+      <a class="list-group-item" href="../module/s_symba_fragmentation.html#proc-symba_fragmentation_mergeaddsub">symba_fragmentation_mergeaddsub</a>
+      
+    </div>
+  </div>
+</div>
+
+
 
 <div class="panel panel-primary">
   <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#modfuncs-0">Module Functions</a></h3></div>
@@ -265,261 +277,260 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_symba_fragmentation~~UsesGraph Pages: 1 -->
-<svg id="modules_symba_fragmentationUsesGraph" width="641pt" height="202pt"
- viewBox="0.00 0.00 641.00 202.34" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_symba_fragmentation~~UsesGraph" class="graph" transform="scale(0.66 0.66) rotate(0) translate(4 301.88)">
+<svg id="modules_symba_fragmentationUsesGraph" width="641pt" height="161pt"
+ viewBox="0.00 0.00 641.00 160.79" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_symba_fragmentation~~UsesGraph" class="graph" transform="scale(0.66 0.66) rotate(0) translate(4 239.06)">
 <title>module~~s_symba_fragmentation~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.88 965,-301.88 965,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 965,-239.06 965,4 -4,4"/>
 <!-- module~s_symba_fragmentation -->
 <g id="module~~s_symba_fragmentation~~UsesGraph_node1" class="node">
 <title>module~s_symba_fragmentation</title>
-<polygon fill="none" stroke="black" points="961,-242.42 834,-242.42 834,-218.42 961,-218.42 961,-242.42"/>
-<text text-anchor="middle" x="897.5" y="-228.02" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_fragmentation</text>
-</g>
-<!-- module~symba_classes -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_node2" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~s_symba_fragmentation~~UsesGraph_node2"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-262.42 623,-262.42 623,-238.42 708,-238.42 708,-262.42"/>
-<text text-anchor="middle" x="665.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
-</a>
-</g>
-</g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge2" class="edge">
-<title>module~s_symba_fragmentation&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M833.96,-235.86C797.79,-239 752.82,-242.91 718.59,-245.89"/>
-<polygon fill="#000000" stroke="#000000" points="717.99,-242.43 708.33,-246.78 718.59,-249.4 717.99,-242.43"/>
+<polygon fill="none" stroke="black" points="961,-180.63 834,-180.63 834,-156.63 961,-156.63 961,-180.63"/>
+<text text-anchor="middle" x="897.5" y="-166.23" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_fragmentation</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_node3" class="node">
+<g id="module~~s_symba_fragmentation~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~s_symba_fragmentation~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-222.42 744,-222.42 744,-198.42 798,-198.42 798,-222.42"/>
-<text text-anchor="middle" x="771" y="-208.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~s_symba_fragmentation~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.63 744,-160.63 744,-136.63 798,-136.63 798,-160.63"/>
+<text text-anchor="middle" x="771" y="-146.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
 <g id="module~~s_symba_fragmentation~~UsesGraph_edge1" class="edge">
 <title>module~s_symba_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.89,-220.36C825.13,-218.95 816.38,-217.55 808.34,-216.26"/>
-<polygon fill="#000000" stroke="#000000" points="808.65,-212.76 798.22,-214.63 807.54,-219.67 808.65,-212.76"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.89,-158.57C825.13,-157.16 816.38,-155.76 808.34,-154.46"/>
+<polygon fill="#000000" stroke="#000000" points="808.65,-150.97 798.22,-152.84 807.54,-157.88 808.65,-150.97"/>
 </g>
-<!-- module~helio_classes -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_symba_fragmentation~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-262.42 510.5,-262.42 510.5,-238.42 586.5,-238.42 586.5,-262.42"/>
-<text text-anchor="middle" x="548.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<!-- module~symba_classes -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_node3" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_symba_fragmentation~~UsesGraph_node3"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-200.63 623,-200.63 623,-176.63 708,-176.63 708,-200.63"/>
+<text text-anchor="middle" x="665.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge6" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-250.42C614.47,-250.42 605.46,-250.42 596.76,-250.42"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-246.92 586.76,-250.42 596.76,-253.92 596.76,-246.92"/>
-</g>
-<!-- module~rmvs_classes -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_node7" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~s_symba_fragmentation~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-182.42 510,-182.42 510,-158.42 587,-158.42 587,-182.42"/>
-<text text-anchor="middle" x="548.5" y="-168.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
-</a>
-</g>
+<!-- module~s_symba_fragmentation&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge2" class="edge">
+<title>module~s_symba_fragmentation&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M833.96,-174.07C797.79,-177.21 752.82,-181.12 718.59,-184.1"/>
+<polygon fill="#000000" stroke="#000000" points="717.99,-180.64 708.33,-184.99 718.59,-187.61 717.99,-180.64"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge4" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-238.39C637.51,-234.12 629.83,-229.19 623,-224.42 606.39,-212.8 603.33,-208.42 587,-196.42 583.48,-193.83 579.74,-191.16 576.03,-188.55"/>
-<polygon fill="#000000" stroke="#000000" points="577.78,-185.5 567.57,-182.65 573.78,-191.24 577.78,-185.5"/>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-158.72C732.83,-162.99 719.68,-168.08 707.39,-172.83"/>
+<polygon fill="#000000" stroke="#000000" points="705.84,-169.67 697.77,-176.54 708.36,-176.2 705.84,-169.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_node8" class="node">
+<g id="module~~s_symba_fragmentation~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_symba_fragmentation~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.42 123,-144.42 123,-120.42 211,-120.42 211,-144.42"/>
-<text text-anchor="middle" x="167" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_symba_fragmentation~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-124.63 123,-124.63 123,-100.63 211,-100.63 211,-124.63"/>
+<text text-anchor="middle" x="167" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge5" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C365.83,-282.75 347.02,-310.58 293.5,-289.42"/>
-</g>
-<!-- module~swiftest_classes -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<g id="a_module~~s_symba_fragmentation~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-223.42 248,-223.42 248,-199.42 337,-199.42 337,-223.42"/>
-<text text-anchor="middle" x="292.5" y="-209.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
-</a>
-</g>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_fragmentation~~UsesGraph_edge3" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C379.35,-282.9 337.16,-251.29 313.35,-230.36"/>
-<polygon fill="#000000" stroke="#000000" points="315.49,-227.57 305.73,-223.46 310.8,-232.77 315.49,-227.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630.83,-262.54C584.52,-277.7 498.54,-300.4 425,-289.42"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-220.51C732.83,-224.79 719.68,-229.87 707.39,-234.62"/>
-<polygon fill="#000000" stroke="#000000" points="705.84,-231.46 697.77,-238.33 708.36,-237.99 705.84,-231.46"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge7" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C633.34,-206.58 599.62,-220.66 576.81,-233.16"/>
-<polygon fill="#000000" stroke="#000000" points="574.97,-230.18 568.03,-238.19 578.45,-236.25 574.97,-230.18"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-72.63C370.07,-68.82 354.92,-64.07 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C499.75,-46.87 481.86,-76.1 429.5,-72.63"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_symba_fragmentation~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_symba_fragmentation~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-104.42 247,-104.42 247,-80.42 338,-80.42 338,-104.42"/>
-<text text-anchor="middle" x="292.5" y="-90.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-44.63 383,-44.63 383,-20.63 474,-20.63 474,-44.63"/>
+<text text-anchor="middle" x="428.5" y="-30.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge8" class="edge">
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C515.3,-73.76 412.68,-79.93 348.16,-86.19"/>
-<polygon fill="#000000" stroke="#000000" points="347.75,-82.71 338.15,-87.19 348.45,-89.68 347.75,-82.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C527.49,-59.07 504.36,-51.35 483.9,-45.55"/>
+<polygon fill="#000000" stroke="#000000" points="484.68,-42.13 474.11,-42.86 482.82,-48.88 484.68,-42.13"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_symba_fragmentation~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_symba_fragmentation~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-65.42 374,-65.42 374,-41.42 474,-41.42 474,-65.42"/>
-<text text-anchor="middle" x="424" y="-51.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-24.63 247,-24.63 247,-0.63 347,-0.63 347,-24.63"/>
+<text text-anchor="middle" x="297" y="-10.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge9" class="edge">
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C528.13,-81.59 504.88,-72.86 483.86,-66.62"/>
-<polygon fill="#000000" stroke="#000000" points="484.64,-63.21 474.07,-63.85 482.73,-69.94 484.64,-63.21"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.57,-149.86C722.63,-150.53 692.64,-150.85 666.5,-148.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C620.82,-144.92 623.95,-111.2 587,-87.63 571.25,-77.58 566.36,-76.68 549.5,-68.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C510.2,-50.81 513.11,-25.02 474,-11.63 436.64,1.16 392.14,0.78 357.24,-2.73"/>
+<polygon fill="#000000" stroke="#000000" points="356.75,0.74 347.2,-3.85 357.53,-6.22 356.75,0.74"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C636.36,-206.95 606.13,-196.14 583.73,-186.62"/>
-<polygon fill="#000000" stroke="#000000" points="584.9,-183.31 574.33,-182.51 582.09,-189.73 584.9,-183.31"/>
+<!-- module~helio_classes -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_symba_fragmentation~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-200.63 510.5,-200.63 510.5,-176.63 586.5,-176.63 586.5,-200.63"/>
+<text text-anchor="middle" x="548.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.95,-212.17C722.95,-213.17 692.72,-213.65 666.5,-210.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-13.42C240.23,-29.5 199.87,-82.05 180.52,-111.65"/>
-<polygon fill="#000000" stroke="#000000" points="177.38,-110.06 174.99,-120.39 183.3,-113.81 177.38,-110.06"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C592.13,-201.51 611.22,-132.23 549.5,-93.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C511.56,-70.82 513.12,-48.9 474,-32.42 399.66,-1.09 370.47,10.72 293.5,-13.42"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge13" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C478.6,-205.19 398.87,-206.74 347.4,-208.72"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-205.24 337.17,-209.14 347.31,-212.23 347.02,-205.24"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C633.58,-146 600.32,-159.54 577.56,-171.56"/>
+<polygon fill="#000000" stroke="#000000" points="575.85,-168.51 568.78,-176.4 579.23,-174.64 575.85,-168.51"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_node10" class="node">
+<g id="module~~s_symba_fragmentation~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
-<g id="a_module~~s_symba_fragmentation~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-183.42 386,-183.42 386,-159.42 462,-159.42 462,-183.42"/>
-<text text-anchor="middle" x="424" y="-169.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<g id="a_module~~s_symba_fragmentation~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-124.63 390.5,-124.63 390.5,-100.63 466.5,-100.63 466.5,-124.63"/>
+<text text-anchor="middle" x="428.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge14" class="edge">
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C517.18,-208.12 484.44,-197.22 460.44,-187.53"/>
-<polygon fill="#000000" stroke="#000000" points="461.63,-184.23 451.05,-183.62 458.94,-190.69 461.63,-184.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C613.77,-204.17 600.46,-214.29 549.5,-210.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C519.26,-146.75 488.74,-137.22 465.81,-128.44"/>
+<polygon fill="#000000" stroke="#000000" points="467.07,-125.17 456.48,-124.75 464.49,-131.68 467.07,-125.17"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C613.57,-144.31 600.5,-152.01 549.5,-148.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge17" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-289.42C230.48,-265.29 192.19,-191.07 176.37,-153.98"/>
-<polygon fill="#000000" stroke="#000000" points="179.54,-152.49 172.5,-144.57 173.07,-155.15 179.54,-152.49"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C363.02,-251.43 349.28,-311.47 293.5,-289.42"/>
+<!-- module~swiftest_classes -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_node9" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_fragmentation~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-164.63 252.5,-164.63 252.5,-140.63 341.5,-140.63 341.5,-164.63"/>
+<text text-anchor="middle" x="297" y="-150.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge15" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C388.99,-251.43 352.1,-238.67 326.43,-227.57"/>
-<polygon fill="#000000" stroke="#000000" points="327.73,-224.31 317.17,-223.42 324.87,-230.7 327.73,-224.31"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-250.88C485.97,-251.14 453.61,-251.41 425,-251.42"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge16" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.63,-238.25C508.25,-225.1 475.59,-204.04 452.38,-189.08"/>
-<polygon fill="#000000" stroke="#000000" points="453.99,-185.95 443.69,-183.47 450.2,-191.83 453.99,-185.95"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C480.17,-144.16 402.4,-146.61 351.83,-149.21"/>
+<polygon fill="#000000" stroke="#000000" points="351.57,-145.72 341.77,-149.75 351.95,-152.71 351.57,-145.72"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge18" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-104.42C242.1,-108.42 228.18,-112.93 215.18,-117.14"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-113.88 205.45,-120.29 216.05,-120.54 213.89,-113.88"/>
+<!-- module~rmvs_classes -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_node10" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_fragmentation~~UsesGraph_node10"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-120.63 510,-120.63 510,-96.63 587,-96.63 587,-120.63"/>
+<text text-anchor="middle" x="548.5" y="-106.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+</a>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge19" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.56,-41.37C364.63,-27.5 312.81,-7.36 293.5,-13.42"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge21" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.63,-158.82C498.26,-155.69 485.7,-152.58 474,-150.42 394.72,-135.78 373.91,-138.2 293.5,-132.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-132.42C268.56,-130.26 243.11,-129.91 221.31,-130.24"/>
-<polygon fill="#000000" stroke="#000000" points="221.17,-126.74 211.24,-130.44 221.31,-133.74 221.17,-126.74"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C635.56,-146.17 604.57,-134.83 582.06,-124.85"/>
+<polygon fill="#000000" stroke="#000000" points="583.51,-121.67 572.96,-120.69 580.59,-128.03 583.51,-121.67"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge20" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-170.73C497.99,-170.82 484.88,-170.93 472.55,-171.03"/>
-<polygon fill="#000000" stroke="#000000" points="472.39,-167.53 462.42,-171.11 472.45,-174.53 472.39,-167.53"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge11" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C370.28,-222.46 353.11,-245.23 298,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-188.63C614.47,-188.63 605.46,-188.63 596.76,-188.63"/>
+<polygon fill="#000000" stroke="#000000" points="596.76,-185.13 586.76,-188.63 596.76,-192.13 596.76,-185.13"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C384.32,-222.51 342.28,-191.94 318.32,-171.48"/>
+<polygon fill="#000000" stroke="#000000" points="320.46,-168.7 310.63,-164.73 315.84,-173.96 320.46,-168.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.9,-200.64C586.6,-215.84 502.03,-238.9 429.5,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge12" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-176.6C637.51,-172.33 629.83,-167.4 623,-162.63 606.39,-151.01 603.33,-146.63 587,-134.63 583.48,-132.04 579.74,-129.36 576.03,-126.75"/>
+<polygon fill="#000000" stroke="#000000" points="577.78,-123.7 567.57,-120.86 573.78,-129.45 577.78,-123.7"/>
 </g>
 <!-- iso_fortran_env -->
 <g id="module~~s_symba_fragmentation~~UsesGraph_node11" class="node">
 <title>iso_fortran_env</title>
 <g id="a_module~~s_symba_fragmentation~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.42 0,-144.42 0,-120.42 87,-120.42 87,-144.42"/>
-<text text-anchor="middle" x="43.5" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-124.63 0,-124.63 0,-100.63 87,-100.63 87,-124.63"/>
+<text text-anchor="middle" x="43.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge15" class="edge">
 <title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-132.42C114.58,-132.42 105.86,-132.42 97.36,-132.42"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-128.92 87.13,-132.42 97.13,-135.92 97.13,-128.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-112.63C114.58,-112.63 105.86,-112.63 97.36,-112.63"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-109.13 87.13,-112.63 97.13,-116.13 97.13,-109.13"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-199.25C251.83,-186.05 218.71,-164.85 195.3,-149.88"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-146.91 186.85,-144.47 193.38,-152.81 197.16,-146.91"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge16" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-72.63C265.31,-77.24 231.87,-87.9 206.87,-97.05"/>
+<polygon fill="#000000" stroke="#000000" points="205.53,-93.82 197.39,-100.6 207.98,-100.37 205.53,-93.82"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.75,-44.63C371.88,-54.38 333.14,-67.34 298,-72.63"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge17" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-24.69C258.46,-41.96 217.61,-73.87 191.67,-94.14"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-91.61 183.49,-100.52 193.53,-97.12 189.22,-91.61"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge18" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-228.63C244.44,-213.1 202.23,-162.28 181.63,-133.32"/>
+<polygon fill="#000000" stroke="#000000" points="184.28,-131 175.71,-124.76 178.52,-134.98 184.28,-131"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C367.52,-191.13 355.43,-245.93 298,-228.63"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.8,-176.59C509.5,-164.15 479.16,-144.62 457.1,-130.4"/>
+<polygon fill="#000000" stroke="#000000" points="458.8,-127.34 448.5,-124.87 455.01,-133.22 458.8,-127.34"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.3,-189.42C487.07,-189.88 456.54,-190.4 429.5,-190.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C394.26,-190.9 358.09,-179.2 332.44,-168.72"/>
+<polygon fill="#000000" stroke="#000000" points="333.73,-165.46 323.16,-164.78 331,-171.91 333.73,-165.46"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge25" class="edge">
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge21" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M395.88,-159.42C370.13,-148.95 330.03,-135.04 293.5,-132.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_fragmentation~~UsesGraph_edge24" class="edge">
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge22" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-182.88C372.29,-187.08 356.68,-191.9 342.21,-196.37"/>
-<polygon fill="#000000" stroke="#000000" points="340.94,-193.1 332.42,-199.4 343.01,-199.79 340.94,-193.1"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-124.09C376.79,-128.29 361.18,-133.11 346.71,-137.58"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-134.31 336.92,-140.61 347.51,-141 345.44,-134.31"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge23" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-140.63C244.68,-136.59 230.09,-132.03 216.5,-127.79"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-124.4 206.82,-124.76 215.32,-131.08 217.41,-124.4"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge24" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M520.52,-96.51C497.03,-86.91 461.77,-74.77 429.5,-72.63"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_fragmentation~~UsesGraph_edge25" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.84,-109.9C499.41,-110.26 487.96,-110.65 477.05,-111.02"/>
+<polygon fill="#000000" stroke="#000000" points="476.68,-107.53 466.8,-111.36 476.92,-114.52 476.68,-107.53"/>
 </g>
 </g>
 </svg>
@@ -624,6 +635,18 @@ <h3>Contents</h3>
 
 
 
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#subs-1">Subroutines</a></h3></div>
+  <div class="list-group">
+    <div id="subs-1" class="panel-collapse collapse">
+      
+      <a class="list-group-item" href="../module/s_symba_fragmentation.html#proc-symba_fragmentation_mergeaddsub">symba_fragmentation_mergeaddsub</a>
+      
+    </div>
+  </div>
+</div>
+
+
 
 <div class="panel panel-primary">
   <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#modfuncs-1">Module Functions</a></h3></div>
@@ -714,6 +737,231 @@ <h2>Variables</h2>
     
 
     
+    <section>
+    <h2>Subroutines</h2>
+    
+    
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_fragmentation_mergeaddsub"></span><h3>
+subroutine <a href='../proc/symba_fragmentation_mergeaddsub.html'>symba_fragmentation_mergeaddsub</a>(system, param, family, id_frag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, status)
+    
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Fills the pl_discards and pl_adds with removed and added bodies</p>
+    
+    <h4>Arguments</h4>
+    
+      
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA additions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>family</strong></td><td><p>List of indices of all bodies inovlved in the collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>id_frag</strong></td><td><p>List of fragment ids</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>Ip_frag</strong></td><td><p>Fragment rotational inertia vectors</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>m_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>rad_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>xb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>vb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>rot_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>status</strong></td><td><p>Status flag to assign to adds</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+    
+    </section>    
+    <br>
+    
     
     
     
diff --git a/docs/module/s_symba_io.html b/docs/module/s_symba_io.html
index 72bccc11a..a97d06cc6 100644
--- a/docs/module/s_symba_io.html
+++ b/docs/module/s_symba_io.html
@@ -134,7 +134,7 @@ <h1>s_symba_io
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.7% of total for modules and submodules.">229 statements</a>
+    title=" 2.5% of total for modules and submodules.">336 statements</a>
      </li> 
      
      
@@ -192,18 +192,14 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_symba_io.html#proc-symba_io_dump_particle_info">symba_io_dump_particle_info</a>
       
-      <a class="list-group-item" href="../module/s_symba_io.html#proc-symba_io_initialize_particle_info">symba_io_initialize_particle_info</a>
-      
       <a class="list-group-item" href="../module/s_symba_io.html#proc-symba_io_param_reader">symba_io_param_reader</a>
       
       <a class="list-group-item" href="../module/s_symba_io.html#proc-symba_io_param_writer">symba_io_param_writer</a>
       
-      <a class="list-group-item" href="../module/s_symba_io.html#proc-symba_io_read_frame_info">symba_io_read_frame_info</a>
+      <a class="list-group-item" href="../module/s_symba_io.html#proc-symba_io_read_particle">symba_io_read_particle</a>
       
       <a class="list-group-item" href="../module/s_symba_io.html#proc-symba_io_write_discard">symba_io_write_discard</a>
       
-      <a class="list-group-item" href="../module/s_symba_io.html#proc-symba_io_write_frame_info">symba_io_write_frame_info</a>
-      
     </div>
   </div>
 </div>
@@ -257,261 +253,260 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_symba_io~~UsesGraph Pages: 1 -->
-<svg id="modules_symba_ioUsesGraph" width="641pt" height="215pt"
- viewBox="0.00 0.00 641.00 214.99" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_symba_io~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 301.88)">
+<svg id="modules_symba_ioUsesGraph" width="641pt" height="171pt"
+ viewBox="0.00 0.00 641.00 170.83" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_symba_io~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 239.06)">
 <title>module~~s_symba_io~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.88 908,-301.88 908,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 908,-239.06 908,4 -4,4"/>
 <!-- module~s_symba_io -->
 <g id="module~~s_symba_io~~UsesGraph_node1" class="node">
 <title>module~s_symba_io</title>
-<polygon fill="none" stroke="black" points="904,-242.42 834,-242.42 834,-218.42 904,-218.42 904,-242.42"/>
-<text text-anchor="middle" x="869" y="-228.02" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_io</text>
-</g>
-<!-- module~symba_classes -->
-<g id="module~~s_symba_io~~UsesGraph_node2" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~s_symba_io~~UsesGraph_node2"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-262.42 623,-262.42 623,-238.42 708,-238.42 708,-262.42"/>
-<text text-anchor="middle" x="665.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
-</a>
-</g>
-</g>
-<!-- module~s_symba_io&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_io~~UsesGraph_edge2" class="edge">
-<title>module~s_symba_io&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M833.82,-233.81C802.24,-236.95 754.87,-241.65 718.58,-245.25"/>
-<polygon fill="#000000" stroke="#000000" points="717.79,-241.81 708.19,-246.28 718.48,-248.78 717.79,-241.81"/>
+<polygon fill="none" stroke="black" points="904,-180.63 834,-180.63 834,-156.63 904,-156.63 904,-180.63"/>
+<text text-anchor="middle" x="869" y="-166.23" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_io</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_symba_io~~UsesGraph_node3" class="node">
+<g id="module~~s_symba_io~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~s_symba_io~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-222.42 744,-222.42 744,-198.42 798,-198.42 798,-222.42"/>
-<text text-anchor="middle" x="771" y="-208.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~s_symba_io~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.63 744,-160.63 744,-136.63 798,-136.63 798,-160.63"/>
+<text text-anchor="middle" x="771" y="-146.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_io&#45;&gt;module~swiftest -->
 <g id="module~~s_symba_io~~UsesGraph_edge1" class="edge">
 <title>module~s_symba_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.88,-223.31C825.53,-221.57 816.56,-219.7 808.12,-217.94"/>
-<polygon fill="#000000" stroke="#000000" points="808.66,-214.48 798.16,-215.87 807.24,-221.33 808.66,-214.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.88,-161.52C825.53,-159.78 816.56,-157.91 808.12,-156.15"/>
+<polygon fill="#000000" stroke="#000000" points="808.66,-152.69 798.16,-154.08 807.24,-159.54 808.66,-152.69"/>
 </g>
-<!-- module~helio_classes -->
-<g id="module~~s_symba_io~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_symba_io~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-262.42 510.5,-262.42 510.5,-238.42 586.5,-238.42 586.5,-262.42"/>
-<text text-anchor="middle" x="548.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<!-- module~symba_classes -->
+<g id="module~~s_symba_io~~UsesGraph_node3" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_symba_io~~UsesGraph_node3"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-200.63 623,-200.63 623,-176.63 708,-176.63 708,-200.63"/>
+<text text-anchor="middle" x="665.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_io~~UsesGraph_edge6" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-250.42C614.47,-250.42 605.46,-250.42 596.76,-250.42"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-246.92 586.76,-250.42 596.76,-253.92 596.76,-246.92"/>
-</g>
-<!-- module~rmvs_classes -->
-<g id="module~~s_symba_io~~UsesGraph_node7" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~s_symba_io~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-182.42 510,-182.42 510,-158.42 587,-158.42 587,-182.42"/>
-<text text-anchor="middle" x="548.5" y="-168.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
-</a>
-</g>
+<!-- module~s_symba_io&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_io~~UsesGraph_edge2" class="edge">
+<title>module~s_symba_io&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M833.82,-172.02C802.24,-175.15 754.87,-179.86 718.58,-183.46"/>
+<polygon fill="#000000" stroke="#000000" points="717.79,-180.02 708.19,-184.49 718.48,-186.99 717.79,-180.02"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_io~~UsesGraph_edge4" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-238.39C637.51,-234.12 629.83,-229.19 623,-224.42 606.39,-212.8 603.33,-208.42 587,-196.42 583.48,-193.83 579.74,-191.16 576.03,-188.55"/>
-<polygon fill="#000000" stroke="#000000" points="577.78,-185.5 567.57,-182.65 573.78,-191.24 577.78,-185.5"/>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_io~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-158.72C732.83,-162.99 719.68,-168.08 707.39,-172.83"/>
+<polygon fill="#000000" stroke="#000000" points="705.84,-169.67 697.77,-176.54 708.36,-176.2 705.84,-169.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_symba_io~~UsesGraph_node8" class="node">
+<g id="module~~s_symba_io~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_symba_io~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.42 123,-144.42 123,-120.42 211,-120.42 211,-144.42"/>
-<text text-anchor="middle" x="167" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
-</a>
-</g>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_io~~UsesGraph_edge5" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C365.83,-282.75 347.02,-310.58 293.5,-289.42"/>
-</g>
-<!-- module~swiftest_classes -->
-<g id="module~~s_symba_io~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<g id="a_module~~s_symba_io~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-223.42 248,-223.42 248,-199.42 337,-199.42 337,-223.42"/>
-<text text-anchor="middle" x="292.5" y="-209.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~s_symba_io~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-124.63 123,-124.63 123,-100.63 211,-100.63 211,-124.63"/>
+<text text-anchor="middle" x="167" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_io~~UsesGraph_edge3" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C379.35,-282.9 337.16,-251.29 313.35,-230.36"/>
-<polygon fill="#000000" stroke="#000000" points="315.49,-227.57 305.73,-223.46 310.8,-232.77 315.49,-227.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630.83,-262.54C584.52,-277.7 498.54,-300.4 425,-289.42"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_io~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-220.51C732.83,-224.79 719.68,-229.87 707.39,-234.62"/>
-<polygon fill="#000000" stroke="#000000" points="705.84,-231.46 697.77,-238.33 708.36,-237.99 705.84,-231.46"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_io~~UsesGraph_edge7" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C633.34,-206.58 599.62,-220.66 576.81,-233.16"/>
-<polygon fill="#000000" stroke="#000000" points="574.97,-230.18 568.03,-238.19 578.45,-236.25 574.97,-230.18"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-72.63C370.07,-68.82 354.92,-64.07 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C499.75,-46.87 481.86,-76.1 429.5,-72.63"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_symba_io~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_symba_io~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-104.42 247,-104.42 247,-80.42 338,-80.42 338,-104.42"/>
-<text text-anchor="middle" x="292.5" y="-90.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-44.63 383,-44.63 383,-20.63 474,-20.63 474,-44.63"/>
+<text text-anchor="middle" x="428.5" y="-30.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
-<g id="module~~s_symba_io~~UsesGraph_edge8" class="edge">
+<g id="module~~s_symba_io~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C515.3,-73.76 412.68,-79.93 348.16,-86.19"/>
-<polygon fill="#000000" stroke="#000000" points="347.75,-82.71 338.15,-87.19 348.45,-89.68 347.75,-82.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C527.49,-59.07 504.36,-51.35 483.9,-45.55"/>
+<polygon fill="#000000" stroke="#000000" points="484.68,-42.13 474.11,-42.86 482.82,-48.88 484.68,-42.13"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_symba_io~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_symba_io~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-65.42 374,-65.42 374,-41.42 474,-41.42 474,-65.42"/>
-<text text-anchor="middle" x="424" y="-51.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-24.63 247,-24.63 247,-0.63 347,-0.63 347,-24.63"/>
+<text text-anchor="middle" x="297" y="-10.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_symba_io~~UsesGraph_edge9" class="edge">
+<g id="module~~s_symba_io~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C528.13,-81.59 504.88,-72.86 483.86,-66.62"/>
-<polygon fill="#000000" stroke="#000000" points="484.64,-63.21 474.07,-63.85 482.73,-69.94 484.64,-63.21"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.57,-149.86C722.63,-150.53 692.64,-150.85 666.5,-148.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C620.82,-144.92 623.95,-111.2 587,-87.63 571.25,-77.58 566.36,-76.68 549.5,-68.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C510.2,-50.81 513.11,-25.02 474,-11.63 436.64,1.16 392.14,0.78 357.24,-2.73"/>
+<polygon fill="#000000" stroke="#000000" points="356.75,0.74 347.2,-3.85 357.53,-6.22 356.75,0.74"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_io~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C636.36,-206.95 606.13,-196.14 583.73,-186.62"/>
-<polygon fill="#000000" stroke="#000000" points="584.9,-183.31 574.33,-182.51 582.09,-189.73 584.9,-183.31"/>
+<!-- module~helio_classes -->
+<g id="module~~s_symba_io~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_symba_io~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-200.63 510.5,-200.63 510.5,-176.63 586.5,-176.63 586.5,-200.63"/>
+<text text-anchor="middle" x="548.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_io~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.95,-212.17C722.95,-213.17 692.72,-213.65 666.5,-210.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-13.42C240.23,-29.5 199.87,-82.05 180.52,-111.65"/>
-<polygon fill="#000000" stroke="#000000" points="177.38,-110.06 174.99,-120.39 183.3,-113.81 177.38,-110.06"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C592.13,-201.51 611.22,-132.23 549.5,-93.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C511.56,-70.82 513.12,-48.9 474,-32.42 399.66,-1.09 370.47,10.72 293.5,-13.42"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_io~~UsesGraph_edge13" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C478.6,-205.19 398.87,-206.74 347.4,-208.72"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-205.24 337.17,-209.14 347.31,-212.23 347.02,-205.24"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_io~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C633.58,-146 600.32,-159.54 577.56,-171.56"/>
+<polygon fill="#000000" stroke="#000000" points="575.85,-168.51 568.78,-176.4 579.23,-174.64 575.85,-168.51"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_symba_io~~UsesGraph_node10" class="node">
+<g id="module~~s_symba_io~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
-<g id="a_module~~s_symba_io~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-183.42 386,-183.42 386,-159.42 462,-159.42 462,-183.42"/>
-<text text-anchor="middle" x="424" y="-169.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<g id="a_module~~s_symba_io~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-124.63 390.5,-124.63 390.5,-100.63 466.5,-100.63 466.5,-124.63"/>
+<text text-anchor="middle" x="428.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_io~~UsesGraph_edge14" class="edge">
+<g id="module~~s_symba_io~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C517.18,-208.12 484.44,-197.22 460.44,-187.53"/>
-<polygon fill="#000000" stroke="#000000" points="461.63,-184.23 451.05,-183.62 458.94,-190.69 461.63,-184.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C613.77,-204.17 600.46,-214.29 549.5,-210.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C519.26,-146.75 488.74,-137.22 465.81,-128.44"/>
+<polygon fill="#000000" stroke="#000000" points="467.07,-125.17 456.48,-124.75 464.49,-131.68 467.07,-125.17"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C613.57,-144.31 600.5,-152.01 549.5,-148.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_io~~UsesGraph_edge17" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-289.42C230.48,-265.29 192.19,-191.07 176.37,-153.98"/>
-<polygon fill="#000000" stroke="#000000" points="179.54,-152.49 172.5,-144.57 173.07,-155.15 179.54,-152.49"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C363.02,-251.43 349.28,-311.47 293.5,-289.42"/>
+<!-- module~swiftest_classes -->
+<g id="module~~s_symba_io~~UsesGraph_node9" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_io~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-164.63 252.5,-164.63 252.5,-140.63 341.5,-140.63 341.5,-164.63"/>
+<text text-anchor="middle" x="297" y="-150.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_io~~UsesGraph_edge15" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C388.99,-251.43 352.1,-238.67 326.43,-227.57"/>
-<polygon fill="#000000" stroke="#000000" points="327.73,-224.31 317.17,-223.42 324.87,-230.7 327.73,-224.31"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-250.88C485.97,-251.14 453.61,-251.41 425,-251.42"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_io~~UsesGraph_edge16" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.63,-238.25C508.25,-225.1 475.59,-204.04 452.38,-189.08"/>
-<polygon fill="#000000" stroke="#000000" points="453.99,-185.95 443.69,-183.47 450.2,-191.83 453.99,-185.95"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_io~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C480.17,-144.16 402.4,-146.61 351.83,-149.21"/>
+<polygon fill="#000000" stroke="#000000" points="351.57,-145.72 341.77,-149.75 351.95,-152.71 351.57,-145.72"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_io~~UsesGraph_edge18" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-104.42C242.1,-108.42 228.18,-112.93 215.18,-117.14"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-113.88 205.45,-120.29 216.05,-120.54 213.89,-113.88"/>
+<!-- module~rmvs_classes -->
+<g id="module~~s_symba_io~~UsesGraph_node10" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_io~~UsesGraph_node10"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-120.63 510,-120.63 510,-96.63 587,-96.63 587,-120.63"/>
+<text text-anchor="middle" x="548.5" y="-106.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+</a>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_io~~UsesGraph_edge19" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.56,-41.37C364.63,-27.5 312.81,-7.36 293.5,-13.42"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_io~~UsesGraph_edge21" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.63,-158.82C498.26,-155.69 485.7,-152.58 474,-150.42 394.72,-135.78 373.91,-138.2 293.5,-132.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-132.42C268.56,-130.26 243.11,-129.91 221.31,-130.24"/>
-<polygon fill="#000000" stroke="#000000" points="221.17,-126.74 211.24,-130.44 221.31,-133.74 221.17,-126.74"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_io~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C635.56,-146.17 604.57,-134.83 582.06,-124.85"/>
+<polygon fill="#000000" stroke="#000000" points="583.51,-121.67 572.96,-120.69 580.59,-128.03 583.51,-121.67"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_io~~UsesGraph_edge20" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-170.73C497.99,-170.82 484.88,-170.93 472.55,-171.03"/>
-<polygon fill="#000000" stroke="#000000" points="472.39,-167.53 462.42,-171.11 472.45,-174.53 472.39,-167.53"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_io~~UsesGraph_edge11" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C370.28,-222.46 353.11,-245.23 298,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_io~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-188.63C614.47,-188.63 605.46,-188.63 596.76,-188.63"/>
+<polygon fill="#000000" stroke="#000000" points="596.76,-185.13 586.76,-188.63 596.76,-192.13 596.76,-185.13"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_io~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C384.32,-222.51 342.28,-191.94 318.32,-171.48"/>
+<polygon fill="#000000" stroke="#000000" points="320.46,-168.7 310.63,-164.73 315.84,-173.96 320.46,-168.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.9,-200.64C586.6,-215.84 502.03,-238.9 429.5,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_io~~UsesGraph_edge12" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-176.6C637.51,-172.33 629.83,-167.4 623,-162.63 606.39,-151.01 603.33,-146.63 587,-134.63 583.48,-132.04 579.74,-129.36 576.03,-126.75"/>
+<polygon fill="#000000" stroke="#000000" points="577.78,-123.7 567.57,-120.86 573.78,-129.45 577.78,-123.7"/>
 </g>
 <!-- iso_fortran_env -->
 <g id="module~~s_symba_io~~UsesGraph_node11" class="node">
 <title>iso_fortran_env</title>
 <g id="a_module~~s_symba_io~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.42 0,-144.42 0,-120.42 87,-120.42 87,-144.42"/>
-<text text-anchor="middle" x="43.5" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-124.63 0,-124.63 0,-100.63 87,-100.63 87,-124.63"/>
+<text text-anchor="middle" x="43.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~s_symba_io~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_io~~UsesGraph_edge15" class="edge">
 <title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-132.42C114.58,-132.42 105.86,-132.42 97.36,-132.42"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-128.92 87.13,-132.42 97.13,-135.92 97.13,-128.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-112.63C114.58,-112.63 105.86,-112.63 97.36,-112.63"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-109.13 87.13,-112.63 97.13,-116.13 97.13,-109.13"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_io~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-199.25C251.83,-186.05 218.71,-164.85 195.3,-149.88"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-146.91 186.85,-144.47 193.38,-152.81 197.16,-146.91"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_io~~UsesGraph_edge16" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-72.63C265.31,-77.24 231.87,-87.9 206.87,-97.05"/>
+<polygon fill="#000000" stroke="#000000" points="205.53,-93.82 197.39,-100.6 207.98,-100.37 205.53,-93.82"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.75,-44.63C371.88,-54.38 333.14,-67.34 298,-72.63"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_io~~UsesGraph_edge17" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-24.69C258.46,-41.96 217.61,-73.87 191.67,-94.14"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-91.61 183.49,-100.52 193.53,-97.12 189.22,-91.61"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_io~~UsesGraph_edge18" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-228.63C244.44,-213.1 202.23,-162.28 181.63,-133.32"/>
+<polygon fill="#000000" stroke="#000000" points="184.28,-131 175.71,-124.76 178.52,-134.98 184.28,-131"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C367.52,-191.13 355.43,-245.93 298,-228.63"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_io~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.8,-176.59C509.5,-164.15 479.16,-144.62 457.1,-130.4"/>
+<polygon fill="#000000" stroke="#000000" points="458.8,-127.34 448.5,-124.87 455.01,-133.22 458.8,-127.34"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_io~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.3,-189.42C487.07,-189.88 456.54,-190.4 429.5,-190.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C394.26,-190.9 358.09,-179.2 332.44,-168.72"/>
+<polygon fill="#000000" stroke="#000000" points="333.73,-165.46 323.16,-164.78 331,-171.91 333.73,-165.46"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_io~~UsesGraph_edge25" class="edge">
+<g id="module~~s_symba_io~~UsesGraph_edge21" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M395.88,-159.42C370.13,-148.95 330.03,-135.04 293.5,-132.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_io~~UsesGraph_edge24" class="edge">
+<g id="module~~s_symba_io~~UsesGraph_edge22" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-182.88C372.29,-187.08 356.68,-191.9 342.21,-196.37"/>
-<polygon fill="#000000" stroke="#000000" points="340.94,-193.1 332.42,-199.4 343.01,-199.79 340.94,-193.1"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-124.09C376.79,-128.29 361.18,-133.11 346.71,-137.58"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-134.31 336.92,-140.61 347.51,-141 345.44,-134.31"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_io~~UsesGraph_edge23" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-140.63C244.68,-136.59 230.09,-132.03 216.5,-127.79"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-124.4 206.82,-124.76 215.32,-131.08 217.41,-124.4"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_io~~UsesGraph_edge24" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M520.52,-96.51C497.03,-86.91 461.77,-74.77 429.5,-72.63"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_io~~UsesGraph_edge25" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.84,-109.9C499.41,-110.26 487.96,-110.65 477.05,-111.02"/>
+<polygon fill="#000000" stroke="#000000" points="476.68,-107.53 466.8,-111.36 476.92,-114.52 476.68,-107.53"/>
 </g>
 </g>
 </svg>
@@ -611,18 +606,14 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/s_symba_io.html#proc-symba_io_dump_particle_info">symba_io_dump_particle_info</a>
       
-      <a class="list-group-item" href="../module/s_symba_io.html#proc-symba_io_initialize_particle_info">symba_io_initialize_particle_info</a>
-      
       <a class="list-group-item" href="../module/s_symba_io.html#proc-symba_io_param_reader">symba_io_param_reader</a>
       
       <a class="list-group-item" href="../module/s_symba_io.html#proc-symba_io_param_writer">symba_io_param_writer</a>
       
-      <a class="list-group-item" href="../module/s_symba_io.html#proc-symba_io_read_frame_info">symba_io_read_frame_info</a>
+      <a class="list-group-item" href="../module/s_symba_io.html#proc-symba_io_read_particle">symba_io_read_particle</a>
       
       <a class="list-group-item" href="../module/s_symba_io.html#proc-symba_io_write_discard">symba_io_write_discard</a>
       
-      <a class="list-group-item" href="../module/s_symba_io.html#proc-symba_io_write_frame_info">symba_io_write_frame_info</a>
-      
     </div>
   </div>
 </div>
@@ -664,7 +655,7 @@ <h2>Module Subroutines</h2>
         
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-symba_io_dump_particle_info"></span><h3>
-module subroutine <a href='../proc/symba_io_dump_particle_info.html'>symba_io_dump_particle_info</a>(self, param, msg)
+module subroutine <a href='../proc/symba_io_dump_particle_info.html'>symba_io_dump_particle_info</a>(system, param, lincludecb, tpidx, plidx)
     
     
    <a href='../interface/symba_io_dump_particle_info.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
@@ -691,7 +682,8 @@ <h2>Module Subroutines</h2>
 
 
 
-<p>Dumps the particle information data to a file</p>
+<p>Dumps the particle information data to a file. 
+ Pass a list of array indices for test particles (tpidx) and/or massive bodies (plidx) to append</p>
     
     <h4>Arguments</h4>
     
@@ -712,12 +704,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system object</p></td>
   
 </tr>
 
@@ -727,12 +719,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA extensions</p></td>
   
 </tr>
 
@@ -742,84 +734,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
+  <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
   <td>optional</td>
   
   <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
+  <td><strong>lincludecb</strong></td><td><p>Set to true to include the central body (default is false)</p></td>
   
 </tr>
 
-</tbody>
-</table>
-
-      
-    
-    
-
-  </div>
-  </div>
-
-        
-        
-  <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_io_initialize_particle_info"></span><h3>
-module subroutine <a href='../proc/symba_io_initialize_particle_info.html'>symba_io_initialize_particle_info</a>(self, param)
-    
-    
-   <a href='../interface/symba_io_initialize_particle_info.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
-    
-   
-</h3></div>
-  <div class="panel-body">
-       
-    
-
-
-
-
-
-  <dl class="dl-horizontal">
-    
-    <dt>Author</dt><dd>David A. Minton</dd>
-    
-    
-    
-    
-    
-  </dl>
-
-
-
-<p>Initializes a particle info data structure, either starting a new one or reading one in 
- from a file if it is a restarted run</p>
-    
-    <h4>Arguments</h4>
-    
-      
-      
-<table class="table table-striped varlist">
-<thead><tr><th>Type</th>
-<th>Intent</th><th>Optional</th>
-<th>Attributes</th><th></th><th>Name</th><th></th></thead>
-
-
-
-<tbody>
-
   
   
   
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
   
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA particle info object</p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>tpidx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
   
 </tr>
 
@@ -829,12 +764,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
   
-  <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>plidx</strong></td><td><p>Array of massive body indices to append to the particle file</p></td>
   
 </tr>
 
@@ -1145,11 +1080,11 @@ <h4>Arguments</h4>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_io_read_frame_info"></span><h3>
-module subroutine <a href='../proc/symba_io_read_frame_info.html'>symba_io_read_frame_info</a>(self, iu, param, form, ierr)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_io_read_particle"></span><h3>
+module subroutine <a href='../proc/symba_io_read_particle.html'>symba_io_read_particle</a>(system, param)
     
     
-   <a href='../interface/symba_io_read_frame_info.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_io_read_particle.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -1173,7 +1108,7 @@ <h4>Arguments</h4>
 
 
 
-<p>Reads a single frame of a particle info data from a file.</p>
+<p>Reads an old particle information file for a restartd run</p>
     
     <h4>Arguments</h4>
     
@@ -1194,27 +1129,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA particle info object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system file</p></td>
   
 </tr>
 
@@ -1224,42 +1144,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>form</strong></td><td><p>Input format code ("XV" or "EL")</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA extensions</p></td>
   
 </tr>
 
@@ -1320,89 +1210,6 @@ <h4>Arguments</h4>
   
   
   
-<tr>
-  
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-  </div>
-  </div>
-
-        
-        
-  <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_io_write_frame_info"></span><h3>
-module subroutine <a href='../proc/symba_io_write_frame_info.html'>symba_io_write_frame_info</a>(self, iu, param)
-    
-    
-   <a href='../interface/symba_io_write_frame_info.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
-    
-   
-</h3></div>
-  <div class="panel-body">
-       
-    
-    
-    <h4>Arguments</h4>
-    
-      
-      
-<table class="table table-striped varlist">
-<thead><tr><th>Type</th>
-<th>Intent</th><th>Optional</th>
-<th>Attributes</th><th></th><th>Name</th><th></th></thead>
-
-
-
-<tbody>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA particle info object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
-  
-</tr>
-
-  
-  
-  
-  
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
diff --git a/docs/module/s_symba_kick.html b/docs/module/s_symba_kick.html
index 7543e95d5..abe0b62f6 100644
--- a/docs/module/s_symba_kick.html
+++ b/docs/module/s_symba_kick.html
@@ -249,261 +249,260 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_symba_kick~~UsesGraph Pages: 1 -->
-<svg id="modules_symba_kickUsesGraph" width="641pt" height="213pt"
- viewBox="0.00 0.00 641.00 212.89" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_symba_kick~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 301.88)">
+<svg id="modules_symba_kickUsesGraph" width="641pt" height="169pt"
+ viewBox="0.00 0.00 641.00 169.16" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_symba_kick~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 239.06)">
 <title>module~~s_symba_kick~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.88 917,-301.88 917,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 917,-239.06 917,4 -4,4"/>
 <!-- module~s_symba_kick -->
 <g id="module~~s_symba_kick~~UsesGraph_node1" class="node">
 <title>module~s_symba_kick</title>
-<polygon fill="none" stroke="black" points="913,-242.42 834,-242.42 834,-218.42 913,-218.42 913,-242.42"/>
-<text text-anchor="middle" x="873.5" y="-228.02" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_kick</text>
-</g>
-<!-- module~symba_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_node2" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~s_symba_kick~~UsesGraph_node2"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-262.42 623,-262.42 623,-238.42 708,-238.42 708,-262.42"/>
-<text text-anchor="middle" x="665.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
-</a>
-</g>
-</g>
-<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_edge2" class="edge">
-<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M833.75,-234.18C801.19,-237.34 754.35,-241.89 718.52,-245.37"/>
-<polygon fill="#000000" stroke="#000000" points="717.87,-241.91 708.26,-246.36 718.55,-248.88 717.87,-241.91"/>
+<polygon fill="none" stroke="black" points="913,-180.63 834,-180.63 834,-156.63 913,-156.63 913,-180.63"/>
+<text text-anchor="middle" x="873.5" y="-166.23" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_kick</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_symba_kick~~UsesGraph_node3" class="node">
+<g id="module~~s_symba_kick~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~s_symba_kick~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-222.42 744,-222.42 744,-198.42 798,-198.42 798,-222.42"/>
-<text text-anchor="middle" x="771" y="-208.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~s_symba_kick~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.63 744,-160.63 744,-136.63 798,-136.63 798,-160.63"/>
+<text text-anchor="middle" x="771" y="-146.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_kick&#45;&gt;module~swiftest -->
 <g id="module~~s_symba_kick~~UsesGraph_edge1" class="edge">
 <title>module~s_symba_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.93,-222.74C825.43,-221.05 816.46,-219.27 808.06,-217.6"/>
-<polygon fill="#000000" stroke="#000000" points="808.67,-214.15 798.18,-215.63 807.3,-221.01 808.67,-214.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.93,-160.95C825.43,-159.26 816.46,-157.48 808.06,-155.8"/>
+<polygon fill="#000000" stroke="#000000" points="808.67,-152.36 798.18,-153.84 807.3,-159.22 808.67,-152.36"/>
 </g>
-<!-- module~helio_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_symba_kick~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-262.42 510.5,-262.42 510.5,-238.42 586.5,-238.42 586.5,-262.42"/>
-<text text-anchor="middle" x="548.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<!-- module~symba_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_node3" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_symba_kick~~UsesGraph_node3"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-200.63 623,-200.63 623,-176.63 708,-176.63 708,-200.63"/>
+<text text-anchor="middle" x="665.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_edge6" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-250.42C614.47,-250.42 605.46,-250.42 596.76,-250.42"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-246.92 586.76,-250.42 596.76,-253.92 596.76,-246.92"/>
-</g>
-<!-- module~rmvs_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_node7" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~s_symba_kick~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-182.42 510,-182.42 510,-158.42 587,-158.42 587,-182.42"/>
-<text text-anchor="middle" x="548.5" y="-168.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
-</a>
-</g>
+<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_edge2" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M833.75,-172.39C801.19,-175.55 754.35,-180.1 718.52,-183.58"/>
+<polygon fill="#000000" stroke="#000000" points="717.87,-180.12 708.26,-184.57 718.55,-187.09 717.87,-180.12"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_edge4" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-238.39C637.51,-234.12 629.83,-229.19 623,-224.42 606.39,-212.8 603.33,-208.42 587,-196.42 583.48,-193.83 579.74,-191.16 576.03,-188.55"/>
-<polygon fill="#000000" stroke="#000000" points="577.78,-185.5 567.57,-182.65 573.78,-191.24 577.78,-185.5"/>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-158.72C732.83,-162.99 719.68,-168.08 707.39,-172.83"/>
+<polygon fill="#000000" stroke="#000000" points="705.84,-169.67 697.77,-176.54 708.36,-176.2 705.84,-169.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_symba_kick~~UsesGraph_node8" class="node">
+<g id="module~~s_symba_kick~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_symba_kick~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.42 123,-144.42 123,-120.42 211,-120.42 211,-144.42"/>
-<text text-anchor="middle" x="167" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
-</a>
-</g>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_kick~~UsesGraph_edge5" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C365.83,-282.75 347.02,-310.58 293.5,-289.42"/>
-</g>
-<!-- module~swiftest_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<g id="a_module~~s_symba_kick~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-223.42 248,-223.42 248,-199.42 337,-199.42 337,-223.42"/>
-<text text-anchor="middle" x="292.5" y="-209.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~s_symba_kick~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-124.63 123,-124.63 123,-100.63 211,-100.63 211,-124.63"/>
+<text text-anchor="middle" x="167" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_kick~~UsesGraph_edge3" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C379.35,-282.9 337.16,-251.29 313.35,-230.36"/>
-<polygon fill="#000000" stroke="#000000" points="315.49,-227.57 305.73,-223.46 310.8,-232.77 315.49,-227.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630.83,-262.54C584.52,-277.7 498.54,-300.4 425,-289.42"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-220.51C732.83,-224.79 719.68,-229.87 707.39,-234.62"/>
-<polygon fill="#000000" stroke="#000000" points="705.84,-231.46 697.77,-238.33 708.36,-237.99 705.84,-231.46"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_edge7" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C633.34,-206.58 599.62,-220.66 576.81,-233.16"/>
-<polygon fill="#000000" stroke="#000000" points="574.97,-230.18 568.03,-238.19 578.45,-236.25 574.97,-230.18"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-72.63C370.07,-68.82 354.92,-64.07 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C499.75,-46.87 481.86,-76.1 429.5,-72.63"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_symba_kick~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_symba_kick~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-104.42 247,-104.42 247,-80.42 338,-80.42 338,-104.42"/>
-<text text-anchor="middle" x="292.5" y="-90.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-44.63 383,-44.63 383,-20.63 474,-20.63 474,-44.63"/>
+<text text-anchor="middle" x="428.5" y="-30.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
-<g id="module~~s_symba_kick~~UsesGraph_edge8" class="edge">
+<g id="module~~s_symba_kick~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C515.3,-73.76 412.68,-79.93 348.16,-86.19"/>
-<polygon fill="#000000" stroke="#000000" points="347.75,-82.71 338.15,-87.19 348.45,-89.68 347.75,-82.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C527.49,-59.07 504.36,-51.35 483.9,-45.55"/>
+<polygon fill="#000000" stroke="#000000" points="484.68,-42.13 474.11,-42.86 482.82,-48.88 484.68,-42.13"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_symba_kick~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_symba_kick~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-65.42 374,-65.42 374,-41.42 474,-41.42 474,-65.42"/>
-<text text-anchor="middle" x="424" y="-51.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-24.63 247,-24.63 247,-0.63 347,-0.63 347,-24.63"/>
+<text text-anchor="middle" x="297" y="-10.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_symba_kick~~UsesGraph_edge9" class="edge">
+<g id="module~~s_symba_kick~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C528.13,-81.59 504.88,-72.86 483.86,-66.62"/>
-<polygon fill="#000000" stroke="#000000" points="484.64,-63.21 474.07,-63.85 482.73,-69.94 484.64,-63.21"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.57,-149.86C722.63,-150.53 692.64,-150.85 666.5,-148.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C620.82,-144.92 623.95,-111.2 587,-87.63 571.25,-77.58 566.36,-76.68 549.5,-68.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C510.2,-50.81 513.11,-25.02 474,-11.63 436.64,1.16 392.14,0.78 357.24,-2.73"/>
+<polygon fill="#000000" stroke="#000000" points="356.75,0.74 347.2,-3.85 357.53,-6.22 356.75,0.74"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C636.36,-206.95 606.13,-196.14 583.73,-186.62"/>
-<polygon fill="#000000" stroke="#000000" points="584.9,-183.31 574.33,-182.51 582.09,-189.73 584.9,-183.31"/>
+<!-- module~helio_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_symba_kick~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-200.63 510.5,-200.63 510.5,-176.63 586.5,-176.63 586.5,-200.63"/>
+<text text-anchor="middle" x="548.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_kick~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.95,-212.17C722.95,-213.17 692.72,-213.65 666.5,-210.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-13.42C240.23,-29.5 199.87,-82.05 180.52,-111.65"/>
-<polygon fill="#000000" stroke="#000000" points="177.38,-110.06 174.99,-120.39 183.3,-113.81 177.38,-110.06"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C592.13,-201.51 611.22,-132.23 549.5,-93.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C511.56,-70.82 513.12,-48.9 474,-32.42 399.66,-1.09 370.47,10.72 293.5,-13.42"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_edge13" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C478.6,-205.19 398.87,-206.74 347.4,-208.72"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-205.24 337.17,-209.14 347.31,-212.23 347.02,-205.24"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C633.58,-146 600.32,-159.54 577.56,-171.56"/>
+<polygon fill="#000000" stroke="#000000" points="575.85,-168.51 568.78,-176.4 579.23,-174.64 575.85,-168.51"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_node10" class="node">
+<g id="module~~s_symba_kick~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
-<g id="a_module~~s_symba_kick~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-183.42 386,-183.42 386,-159.42 462,-159.42 462,-183.42"/>
-<text text-anchor="middle" x="424" y="-169.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<g id="a_module~~s_symba_kick~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-124.63 390.5,-124.63 390.5,-100.63 466.5,-100.63 466.5,-124.63"/>
+<text text-anchor="middle" x="428.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_edge14" class="edge">
+<g id="module~~s_symba_kick~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C517.18,-208.12 484.44,-197.22 460.44,-187.53"/>
-<polygon fill="#000000" stroke="#000000" points="461.63,-184.23 451.05,-183.62 458.94,-190.69 461.63,-184.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C613.77,-204.17 600.46,-214.29 549.5,-210.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C519.26,-146.75 488.74,-137.22 465.81,-128.44"/>
+<polygon fill="#000000" stroke="#000000" points="467.07,-125.17 456.48,-124.75 464.49,-131.68 467.07,-125.17"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C613.57,-144.31 600.5,-152.01 549.5,-148.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_kick~~UsesGraph_edge17" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-289.42C230.48,-265.29 192.19,-191.07 176.37,-153.98"/>
-<polygon fill="#000000" stroke="#000000" points="179.54,-152.49 172.5,-144.57 173.07,-155.15 179.54,-152.49"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C363.02,-251.43 349.28,-311.47 293.5,-289.42"/>
+<!-- module~swiftest_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_node9" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_kick~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-164.63 252.5,-164.63 252.5,-140.63 341.5,-140.63 341.5,-164.63"/>
+<text text-anchor="middle" x="297" y="-150.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_edge15" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C388.99,-251.43 352.1,-238.67 326.43,-227.57"/>
-<polygon fill="#000000" stroke="#000000" points="327.73,-224.31 317.17,-223.42 324.87,-230.7 327.73,-224.31"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-250.88C485.97,-251.14 453.61,-251.41 425,-251.42"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_edge16" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.63,-238.25C508.25,-225.1 475.59,-204.04 452.38,-189.08"/>
-<polygon fill="#000000" stroke="#000000" points="453.99,-185.95 443.69,-183.47 450.2,-191.83 453.99,-185.95"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C480.17,-144.16 402.4,-146.61 351.83,-149.21"/>
+<polygon fill="#000000" stroke="#000000" points="351.57,-145.72 341.77,-149.75 351.95,-152.71 351.57,-145.72"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_kick~~UsesGraph_edge18" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-104.42C242.1,-108.42 228.18,-112.93 215.18,-117.14"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-113.88 205.45,-120.29 216.05,-120.54 213.89,-113.88"/>
+<!-- module~rmvs_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_node10" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_kick~~UsesGraph_node10"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-120.63 510,-120.63 510,-96.63 587,-96.63 587,-120.63"/>
+<text text-anchor="middle" x="548.5" y="-106.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+</a>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_kick~~UsesGraph_edge19" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.56,-41.37C364.63,-27.5 312.81,-7.36 293.5,-13.42"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_kick~~UsesGraph_edge21" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.63,-158.82C498.26,-155.69 485.7,-152.58 474,-150.42 394.72,-135.78 373.91,-138.2 293.5,-132.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-132.42C268.56,-130.26 243.11,-129.91 221.31,-130.24"/>
-<polygon fill="#000000" stroke="#000000" points="221.17,-126.74 211.24,-130.44 221.31,-133.74 221.17,-126.74"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C635.56,-146.17 604.57,-134.83 582.06,-124.85"/>
+<polygon fill="#000000" stroke="#000000" points="583.51,-121.67 572.96,-120.69 580.59,-128.03 583.51,-121.67"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_edge20" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-170.73C497.99,-170.82 484.88,-170.93 472.55,-171.03"/>
-<polygon fill="#000000" stroke="#000000" points="472.39,-167.53 462.42,-171.11 472.45,-174.53 472.39,-167.53"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_kick~~UsesGraph_edge11" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C370.28,-222.46 353.11,-245.23 298,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-188.63C614.47,-188.63 605.46,-188.63 596.76,-188.63"/>
+<polygon fill="#000000" stroke="#000000" points="596.76,-185.13 586.76,-188.63 596.76,-192.13 596.76,-185.13"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C384.32,-222.51 342.28,-191.94 318.32,-171.48"/>
+<polygon fill="#000000" stroke="#000000" points="320.46,-168.7 310.63,-164.73 315.84,-173.96 320.46,-168.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.9,-200.64C586.6,-215.84 502.03,-238.9 429.5,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_edge12" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-176.6C637.51,-172.33 629.83,-167.4 623,-162.63 606.39,-151.01 603.33,-146.63 587,-134.63 583.48,-132.04 579.74,-129.36 576.03,-126.75"/>
+<polygon fill="#000000" stroke="#000000" points="577.78,-123.7 567.57,-120.86 573.78,-129.45 577.78,-123.7"/>
 </g>
 <!-- iso_fortran_env -->
 <g id="module~~s_symba_kick~~UsesGraph_node11" class="node">
 <title>iso_fortran_env</title>
 <g id="a_module~~s_symba_kick~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.42 0,-144.42 0,-120.42 87,-120.42 87,-144.42"/>
-<text text-anchor="middle" x="43.5" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-124.63 0,-124.63 0,-100.63 87,-100.63 87,-124.63"/>
+<text text-anchor="middle" x="43.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~s_symba_kick~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_kick~~UsesGraph_edge15" class="edge">
 <title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-132.42C114.58,-132.42 105.86,-132.42 97.36,-132.42"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-128.92 87.13,-132.42 97.13,-135.92 97.13,-128.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-112.63C114.58,-112.63 105.86,-112.63 97.36,-112.63"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-109.13 87.13,-112.63 97.13,-116.13 97.13,-109.13"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_kick~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-199.25C251.83,-186.05 218.71,-164.85 195.3,-149.88"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-146.91 186.85,-144.47 193.38,-152.81 197.16,-146.91"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_kick~~UsesGraph_edge16" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-72.63C265.31,-77.24 231.87,-87.9 206.87,-97.05"/>
+<polygon fill="#000000" stroke="#000000" points="205.53,-93.82 197.39,-100.6 207.98,-100.37 205.53,-93.82"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.75,-44.63C371.88,-54.38 333.14,-67.34 298,-72.63"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_kick~~UsesGraph_edge17" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-24.69C258.46,-41.96 217.61,-73.87 191.67,-94.14"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-91.61 183.49,-100.52 193.53,-97.12 189.22,-91.61"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_kick~~UsesGraph_edge18" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-228.63C244.44,-213.1 202.23,-162.28 181.63,-133.32"/>
+<polygon fill="#000000" stroke="#000000" points="184.28,-131 175.71,-124.76 178.52,-134.98 184.28,-131"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C367.52,-191.13 355.43,-245.93 298,-228.63"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.8,-176.59C509.5,-164.15 479.16,-144.62 457.1,-130.4"/>
+<polygon fill="#000000" stroke="#000000" points="458.8,-127.34 448.5,-124.87 455.01,-133.22 458.8,-127.34"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.3,-189.42C487.07,-189.88 456.54,-190.4 429.5,-190.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C394.26,-190.9 358.09,-179.2 332.44,-168.72"/>
+<polygon fill="#000000" stroke="#000000" points="333.73,-165.46 323.16,-164.78 331,-171.91 333.73,-165.46"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_kick~~UsesGraph_edge25" class="edge">
+<g id="module~~s_symba_kick~~UsesGraph_edge21" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M395.88,-159.42C370.13,-148.95 330.03,-135.04 293.5,-132.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_kick~~UsesGraph_edge24" class="edge">
+<g id="module~~s_symba_kick~~UsesGraph_edge22" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-182.88C372.29,-187.08 356.68,-191.9 342.21,-196.37"/>
-<polygon fill="#000000" stroke="#000000" points="340.94,-193.1 332.42,-199.4 343.01,-199.79 340.94,-193.1"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-124.09C376.79,-128.29 361.18,-133.11 346.71,-137.58"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-134.31 336.92,-140.61 347.51,-141 345.44,-134.31"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_kick~~UsesGraph_edge23" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-140.63C244.68,-136.59 230.09,-132.03 216.5,-127.79"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-124.4 206.82,-124.76 215.32,-131.08 217.41,-124.4"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_kick~~UsesGraph_edge24" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M520.52,-96.51C497.03,-86.91 461.77,-74.77 429.5,-72.63"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_kick~~UsesGraph_edge25" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.84,-109.9C499.41,-110.26 487.96,-110.65 477.05,-111.02"/>
+<polygon fill="#000000" stroke="#000000" points="476.68,-107.53 466.8,-111.36 476.92,-114.52 476.68,-107.53"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_symba_setup.html b/docs/module/s_symba_setup.html
index 5781003d8..ba48649d5 100644
--- a/docs/module/s_symba_setup.html
+++ b/docs/module/s_symba_setup.html
@@ -134,7 +134,7 @@ <h1>s_symba_setup
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.9% of total for modules and submodules.">113 statements</a>
+    title=" 1.2% of total for modules and submodules.">164 statements</a>
      </li> 
      
      
@@ -190,6 +190,8 @@ <h3>Contents</h3>
   <div id="modsubs-0" class="panel-collapse collapse">
     <div class="list-group">
       
+      <a class="list-group-item" href="../module/s_symba_setup.html#proc-symba_setup_initialize_particle_info">symba_setup_initialize_particle_info</a>
+      
       <a class="list-group-item" href="../module/s_symba_setup.html#proc-symba_setup_initialize_system">symba_setup_initialize_system</a>
       
       <a class="list-group-item" href="../module/s_symba_setup.html#proc-symba_setup_merger">symba_setup_merger</a>
@@ -253,261 +255,260 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_symba_setup~~UsesGraph Pages: 1 -->
-<svg id="modules_symba_setupUsesGraph" width="641pt" height="211pt"
- viewBox="0.00 0.00 641.00 210.83" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_symba_setup~~UsesGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 301.88)">
+<svg id="modules_symba_setupUsesGraph" width="641pt" height="168pt"
+ viewBox="0.00 0.00 641.00 167.53" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_symba_setup~~UsesGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 239.06)">
 <title>module~~s_symba_setup~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.88 926,-301.88 926,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 926,-239.06 926,4 -4,4"/>
 <!-- module~s_symba_setup -->
 <g id="module~~s_symba_setup~~UsesGraph_node1" class="node">
 <title>module~s_symba_setup</title>
-<polygon fill="none" stroke="black" points="922,-242.42 834,-242.42 834,-218.42 922,-218.42 922,-242.42"/>
-<text text-anchor="middle" x="878" y="-228.02" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_setup</text>
-</g>
-<!-- module~symba_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_node2" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~s_symba_setup~~UsesGraph_node2"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-262.42 623,-262.42 623,-238.42 708,-238.42 708,-262.42"/>
-<text text-anchor="middle" x="665.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
-</a>
-</g>
-</g>
-<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_edge2" class="edge">
-<title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M833.89,-234.51C800.39,-237.7 753.81,-242.12 718.29,-245.5"/>
-<polygon fill="#000000" stroke="#000000" points="717.74,-242.03 708.11,-246.46 718.4,-249 717.74,-242.03"/>
+<polygon fill="none" stroke="black" points="922,-180.63 834,-180.63 834,-156.63 922,-156.63 922,-180.63"/>
+<text text-anchor="middle" x="878" y="-166.23" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_setup</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_symba_setup~~UsesGraph_node3" class="node">
+<g id="module~~s_symba_setup~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~s_symba_setup~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-222.42 744,-222.42 744,-198.42 798,-198.42 798,-222.42"/>
-<text text-anchor="middle" x="771" y="-208.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~s_symba_setup~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.63 744,-160.63 744,-136.63 798,-136.63 798,-160.63"/>
+<text text-anchor="middle" x="771" y="-146.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_setup&#45;&gt;module~swiftest -->
 <g id="module~~s_symba_setup~~UsesGraph_edge1" class="edge">
 <title>module~s_symba_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.99,-222.23C825.47,-220.6 816.6,-218.91 808.33,-217.34"/>
-<polygon fill="#000000" stroke="#000000" points="808.72,-213.85 798.24,-215.42 807.41,-220.73 808.72,-213.85"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.99,-160.44C825.47,-158.81 816.6,-157.12 808.33,-155.55"/>
+<polygon fill="#000000" stroke="#000000" points="808.72,-152.06 798.24,-153.63 807.41,-158.93 808.72,-152.06"/>
 </g>
-<!-- module~helio_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_symba_setup~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-262.42 510.5,-262.42 510.5,-238.42 586.5,-238.42 586.5,-262.42"/>
-<text text-anchor="middle" x="548.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<!-- module~symba_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_node3" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_symba_setup~~UsesGraph_node3"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-200.63 623,-200.63 623,-176.63 708,-176.63 708,-200.63"/>
+<text text-anchor="middle" x="665.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_edge6" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-250.42C614.47,-250.42 605.46,-250.42 596.76,-250.42"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-246.92 586.76,-250.42 596.76,-253.92 596.76,-246.92"/>
-</g>
-<!-- module~rmvs_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_node7" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~s_symba_setup~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-182.42 510,-182.42 510,-158.42 587,-158.42 587,-182.42"/>
-<text text-anchor="middle" x="548.5" y="-168.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
-</a>
-</g>
+<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_edge2" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M833.89,-172.72C800.39,-175.91 753.81,-180.33 718.29,-183.71"/>
+<polygon fill="#000000" stroke="#000000" points="717.74,-180.24 708.11,-184.67 718.4,-187.21 717.74,-180.24"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_edge4" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-238.39C637.51,-234.12 629.83,-229.19 623,-224.42 606.39,-212.8 603.33,-208.42 587,-196.42 583.48,-193.83 579.74,-191.16 576.03,-188.55"/>
-<polygon fill="#000000" stroke="#000000" points="577.78,-185.5 567.57,-182.65 573.78,-191.24 577.78,-185.5"/>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-158.72C732.83,-162.99 719.68,-168.08 707.39,-172.83"/>
+<polygon fill="#000000" stroke="#000000" points="705.84,-169.67 697.77,-176.54 708.36,-176.2 705.84,-169.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_symba_setup~~UsesGraph_node8" class="node">
+<g id="module~~s_symba_setup~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_symba_setup~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.42 123,-144.42 123,-120.42 211,-120.42 211,-144.42"/>
-<text text-anchor="middle" x="167" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
-</a>
-</g>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_setup~~UsesGraph_edge5" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C365.83,-282.75 347.02,-310.58 293.5,-289.42"/>
-</g>
-<!-- module~swiftest_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<g id="a_module~~s_symba_setup~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-223.42 248,-223.42 248,-199.42 337,-199.42 337,-223.42"/>
-<text text-anchor="middle" x="292.5" y="-209.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~s_symba_setup~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-124.63 123,-124.63 123,-100.63 211,-100.63 211,-124.63"/>
+<text text-anchor="middle" x="167" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_setup~~UsesGraph_edge3" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C379.35,-282.9 337.16,-251.29 313.35,-230.36"/>
-<polygon fill="#000000" stroke="#000000" points="315.49,-227.57 305.73,-223.46 310.8,-232.77 315.49,-227.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630.83,-262.54C584.52,-277.7 498.54,-300.4 425,-289.42"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-220.51C732.83,-224.79 719.68,-229.87 707.39,-234.62"/>
-<polygon fill="#000000" stroke="#000000" points="705.84,-231.46 697.77,-238.33 708.36,-237.99 705.84,-231.46"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_edge7" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C633.34,-206.58 599.62,-220.66 576.81,-233.16"/>
-<polygon fill="#000000" stroke="#000000" points="574.97,-230.18 568.03,-238.19 578.45,-236.25 574.97,-230.18"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-72.63C370.07,-68.82 354.92,-64.07 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C499.75,-46.87 481.86,-76.1 429.5,-72.63"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_symba_setup~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_symba_setup~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-104.42 247,-104.42 247,-80.42 338,-80.42 338,-104.42"/>
-<text text-anchor="middle" x="292.5" y="-90.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-44.63 383,-44.63 383,-20.63 474,-20.63 474,-44.63"/>
+<text text-anchor="middle" x="428.5" y="-30.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
-<g id="module~~s_symba_setup~~UsesGraph_edge8" class="edge">
+<g id="module~~s_symba_setup~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C515.3,-73.76 412.68,-79.93 348.16,-86.19"/>
-<polygon fill="#000000" stroke="#000000" points="347.75,-82.71 338.15,-87.19 348.45,-89.68 347.75,-82.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C527.49,-59.07 504.36,-51.35 483.9,-45.55"/>
+<polygon fill="#000000" stroke="#000000" points="484.68,-42.13 474.11,-42.86 482.82,-48.88 484.68,-42.13"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_symba_setup~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_symba_setup~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-65.42 374,-65.42 374,-41.42 474,-41.42 474,-65.42"/>
-<text text-anchor="middle" x="424" y="-51.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-24.63 247,-24.63 247,-0.63 347,-0.63 347,-24.63"/>
+<text text-anchor="middle" x="297" y="-10.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_symba_setup~~UsesGraph_edge9" class="edge">
+<g id="module~~s_symba_setup~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C528.13,-81.59 504.88,-72.86 483.86,-66.62"/>
-<polygon fill="#000000" stroke="#000000" points="484.64,-63.21 474.07,-63.85 482.73,-69.94 484.64,-63.21"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.57,-149.86C722.63,-150.53 692.64,-150.85 666.5,-148.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C620.82,-144.92 623.95,-111.2 587,-87.63 571.25,-77.58 566.36,-76.68 549.5,-68.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C510.2,-50.81 513.11,-25.02 474,-11.63 436.64,1.16 392.14,0.78 357.24,-2.73"/>
+<polygon fill="#000000" stroke="#000000" points="356.75,0.74 347.2,-3.85 357.53,-6.22 356.75,0.74"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C636.36,-206.95 606.13,-196.14 583.73,-186.62"/>
-<polygon fill="#000000" stroke="#000000" points="584.9,-183.31 574.33,-182.51 582.09,-189.73 584.9,-183.31"/>
+<!-- module~helio_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_symba_setup~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-200.63 510.5,-200.63 510.5,-176.63 586.5,-176.63 586.5,-200.63"/>
+<text text-anchor="middle" x="548.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_setup~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.95,-212.17C722.95,-213.17 692.72,-213.65 666.5,-210.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-13.42C240.23,-29.5 199.87,-82.05 180.52,-111.65"/>
-<polygon fill="#000000" stroke="#000000" points="177.38,-110.06 174.99,-120.39 183.3,-113.81 177.38,-110.06"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C592.13,-201.51 611.22,-132.23 549.5,-93.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C511.56,-70.82 513.12,-48.9 474,-32.42 399.66,-1.09 370.47,10.72 293.5,-13.42"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_edge13" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C478.6,-205.19 398.87,-206.74 347.4,-208.72"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-205.24 337.17,-209.14 347.31,-212.23 347.02,-205.24"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C633.58,-146 600.32,-159.54 577.56,-171.56"/>
+<polygon fill="#000000" stroke="#000000" points="575.85,-168.51 568.78,-176.4 579.23,-174.64 575.85,-168.51"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_node10" class="node">
+<g id="module~~s_symba_setup~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
-<g id="a_module~~s_symba_setup~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-183.42 386,-183.42 386,-159.42 462,-159.42 462,-183.42"/>
-<text text-anchor="middle" x="424" y="-169.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<g id="a_module~~s_symba_setup~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-124.63 390.5,-124.63 390.5,-100.63 466.5,-100.63 466.5,-124.63"/>
+<text text-anchor="middle" x="428.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_edge14" class="edge">
+<g id="module~~s_symba_setup~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C517.18,-208.12 484.44,-197.22 460.44,-187.53"/>
-<polygon fill="#000000" stroke="#000000" points="461.63,-184.23 451.05,-183.62 458.94,-190.69 461.63,-184.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C613.77,-204.17 600.46,-214.29 549.5,-210.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C519.26,-146.75 488.74,-137.22 465.81,-128.44"/>
+<polygon fill="#000000" stroke="#000000" points="467.07,-125.17 456.48,-124.75 464.49,-131.68 467.07,-125.17"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C613.57,-144.31 600.5,-152.01 549.5,-148.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_setup~~UsesGraph_edge17" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-289.42C230.48,-265.29 192.19,-191.07 176.37,-153.98"/>
-<polygon fill="#000000" stroke="#000000" points="179.54,-152.49 172.5,-144.57 173.07,-155.15 179.54,-152.49"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C363.02,-251.43 349.28,-311.47 293.5,-289.42"/>
+<!-- module~swiftest_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_node9" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_setup~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-164.63 252.5,-164.63 252.5,-140.63 341.5,-140.63 341.5,-164.63"/>
+<text text-anchor="middle" x="297" y="-150.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_edge15" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C388.99,-251.43 352.1,-238.67 326.43,-227.57"/>
-<polygon fill="#000000" stroke="#000000" points="327.73,-224.31 317.17,-223.42 324.87,-230.7 327.73,-224.31"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-250.88C485.97,-251.14 453.61,-251.41 425,-251.42"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_edge16" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.63,-238.25C508.25,-225.1 475.59,-204.04 452.38,-189.08"/>
-<polygon fill="#000000" stroke="#000000" points="453.99,-185.95 443.69,-183.47 450.2,-191.83 453.99,-185.95"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C480.17,-144.16 402.4,-146.61 351.83,-149.21"/>
+<polygon fill="#000000" stroke="#000000" points="351.57,-145.72 341.77,-149.75 351.95,-152.71 351.57,-145.72"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_setup~~UsesGraph_edge18" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-104.42C242.1,-108.42 228.18,-112.93 215.18,-117.14"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-113.88 205.45,-120.29 216.05,-120.54 213.89,-113.88"/>
+<!-- module~rmvs_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_node10" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_setup~~UsesGraph_node10"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-120.63 510,-120.63 510,-96.63 587,-96.63 587,-120.63"/>
+<text text-anchor="middle" x="548.5" y="-106.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+</a>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_setup~~UsesGraph_edge19" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.56,-41.37C364.63,-27.5 312.81,-7.36 293.5,-13.42"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_setup~~UsesGraph_edge21" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.63,-158.82C498.26,-155.69 485.7,-152.58 474,-150.42 394.72,-135.78 373.91,-138.2 293.5,-132.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-132.42C268.56,-130.26 243.11,-129.91 221.31,-130.24"/>
-<polygon fill="#000000" stroke="#000000" points="221.17,-126.74 211.24,-130.44 221.31,-133.74 221.17,-126.74"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C635.56,-146.17 604.57,-134.83 582.06,-124.85"/>
+<polygon fill="#000000" stroke="#000000" points="583.51,-121.67 572.96,-120.69 580.59,-128.03 583.51,-121.67"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_edge20" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-170.73C497.99,-170.82 484.88,-170.93 472.55,-171.03"/>
-<polygon fill="#000000" stroke="#000000" points="472.39,-167.53 462.42,-171.11 472.45,-174.53 472.39,-167.53"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_setup~~UsesGraph_edge11" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C370.28,-222.46 353.11,-245.23 298,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-188.63C614.47,-188.63 605.46,-188.63 596.76,-188.63"/>
+<polygon fill="#000000" stroke="#000000" points="596.76,-185.13 586.76,-188.63 596.76,-192.13 596.76,-185.13"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C384.32,-222.51 342.28,-191.94 318.32,-171.48"/>
+<polygon fill="#000000" stroke="#000000" points="320.46,-168.7 310.63,-164.73 315.84,-173.96 320.46,-168.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.9,-200.64C586.6,-215.84 502.03,-238.9 429.5,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_edge12" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-176.6C637.51,-172.33 629.83,-167.4 623,-162.63 606.39,-151.01 603.33,-146.63 587,-134.63 583.48,-132.04 579.74,-129.36 576.03,-126.75"/>
+<polygon fill="#000000" stroke="#000000" points="577.78,-123.7 567.57,-120.86 573.78,-129.45 577.78,-123.7"/>
 </g>
 <!-- iso_fortran_env -->
 <g id="module~~s_symba_setup~~UsesGraph_node11" class="node">
 <title>iso_fortran_env</title>
 <g id="a_module~~s_symba_setup~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.42 0,-144.42 0,-120.42 87,-120.42 87,-144.42"/>
-<text text-anchor="middle" x="43.5" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-124.63 0,-124.63 0,-100.63 87,-100.63 87,-124.63"/>
+<text text-anchor="middle" x="43.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~s_symba_setup~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_setup~~UsesGraph_edge15" class="edge">
 <title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-132.42C114.58,-132.42 105.86,-132.42 97.36,-132.42"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-128.92 87.13,-132.42 97.13,-135.92 97.13,-128.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-112.63C114.58,-112.63 105.86,-112.63 97.36,-112.63"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-109.13 87.13,-112.63 97.13,-116.13 97.13,-109.13"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_setup~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-199.25C251.83,-186.05 218.71,-164.85 195.3,-149.88"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-146.91 186.85,-144.47 193.38,-152.81 197.16,-146.91"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_setup~~UsesGraph_edge16" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-72.63C265.31,-77.24 231.87,-87.9 206.87,-97.05"/>
+<polygon fill="#000000" stroke="#000000" points="205.53,-93.82 197.39,-100.6 207.98,-100.37 205.53,-93.82"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.75,-44.63C371.88,-54.38 333.14,-67.34 298,-72.63"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_setup~~UsesGraph_edge17" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-24.69C258.46,-41.96 217.61,-73.87 191.67,-94.14"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-91.61 183.49,-100.52 193.53,-97.12 189.22,-91.61"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_setup~~UsesGraph_edge18" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-228.63C244.44,-213.1 202.23,-162.28 181.63,-133.32"/>
+<polygon fill="#000000" stroke="#000000" points="184.28,-131 175.71,-124.76 178.52,-134.98 184.28,-131"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C367.52,-191.13 355.43,-245.93 298,-228.63"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.8,-176.59C509.5,-164.15 479.16,-144.62 457.1,-130.4"/>
+<polygon fill="#000000" stroke="#000000" points="458.8,-127.34 448.5,-124.87 455.01,-133.22 458.8,-127.34"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.3,-189.42C487.07,-189.88 456.54,-190.4 429.5,-190.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C394.26,-190.9 358.09,-179.2 332.44,-168.72"/>
+<polygon fill="#000000" stroke="#000000" points="333.73,-165.46 323.16,-164.78 331,-171.91 333.73,-165.46"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_setup~~UsesGraph_edge25" class="edge">
+<g id="module~~s_symba_setup~~UsesGraph_edge21" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M395.88,-159.42C370.13,-148.95 330.03,-135.04 293.5,-132.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_setup~~UsesGraph_edge24" class="edge">
+<g id="module~~s_symba_setup~~UsesGraph_edge22" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-182.88C372.29,-187.08 356.68,-191.9 342.21,-196.37"/>
-<polygon fill="#000000" stroke="#000000" points="340.94,-193.1 332.42,-199.4 343.01,-199.79 340.94,-193.1"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-124.09C376.79,-128.29 361.18,-133.11 346.71,-137.58"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-134.31 336.92,-140.61 347.51,-141 345.44,-134.31"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_setup~~UsesGraph_edge23" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-140.63C244.68,-136.59 230.09,-132.03 216.5,-127.79"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-124.4 206.82,-124.76 215.32,-131.08 217.41,-124.4"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_setup~~UsesGraph_edge24" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M520.52,-96.51C497.03,-86.91 461.77,-74.77 429.5,-72.63"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_setup~~UsesGraph_edge25" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.84,-109.9C499.41,-110.26 487.96,-110.65 477.05,-111.02"/>
+<polygon fill="#000000" stroke="#000000" points="476.68,-107.53 466.8,-111.36 476.92,-114.52 476.68,-107.53"/>
 </g>
 </g>
 </svg>
@@ -605,6 +606,8 @@ <h3>Contents</h3>
   <div id="modsubs-1" class="panel-collapse collapse">
     <div class="list-group">
       
+      <a class="list-group-item" href="../module/s_symba_setup.html#proc-symba_setup_initialize_particle_info">symba_setup_initialize_particle_info</a>
+      
       <a class="list-group-item" href="../module/s_symba_setup.html#proc-symba_setup_initialize_system">symba_setup_initialize_system</a>
       
       <a class="list-group-item" href="../module/s_symba_setup.html#proc-symba_setup_merger">symba_setup_merger</a>
@@ -654,6 +657,92 @@ <h3>Contents</h3>
         <h2>Module Subroutines</h2>
         
         
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-symba_setup_initialize_particle_info"></span><h3>
+module subroutine <a href='../proc/symba_setup_initialize_particle_info.html'>symba_setup_initialize_particle_info</a>(system, param)
+    
+    
+   <a href='../interface/symba_setup_initialize_particle_info.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Initializes a new particle information data structure with initial conditions recorded</p>
+    
+    <h4>Arguments</h4>
+    
+      
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA extensions</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-symba_setup_initialize_system"></span><h3>
 module subroutine <a href='../proc/symba_setup_initialize_system.html'>symba_setup_initialize_system</a>(self, param)
diff --git a/docs/module/s_symba_step.html b/docs/module/s_symba_step.html
index 270be1ec6..8ec03b216 100644
--- a/docs/module/s_symba_step.html
+++ b/docs/module/s_symba_step.html
@@ -253,261 +253,260 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_symba_step~~UsesGraph Pages: 1 -->
-<svg id="modules_symba_stepUsesGraph" width="641pt" height="212pt"
- viewBox="0.00 0.00 641.00 212.20" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_symba_step~~UsesGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 301.88)">
+<svg id="modules_symba_stepUsesGraph" width="641pt" height="169pt"
+ viewBox="0.00 0.00 641.00 168.62" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_symba_step~~UsesGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 239.06)">
 <title>module~~s_symba_step~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.88 920,-301.88 920,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 920,-239.06 920,4 -4,4"/>
 <!-- module~s_symba_step -->
 <g id="module~~s_symba_step~~UsesGraph_node1" class="node">
 <title>module~s_symba_step</title>
-<polygon fill="none" stroke="black" points="916,-242.42 834,-242.42 834,-218.42 916,-218.42 916,-242.42"/>
-<text text-anchor="middle" x="875" y="-228.02" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_step</text>
-</g>
-<!-- module~symba_classes -->
-<g id="module~~s_symba_step~~UsesGraph_node2" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~s_symba_step~~UsesGraph_node2"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-262.42 623,-262.42 623,-238.42 708,-238.42 708,-262.42"/>
-<text text-anchor="middle" x="665.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
-</a>
-</g>
-</g>
-<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_step~~UsesGraph_edge2" class="edge">
-<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M833.99,-234.27C801.09,-237.45 754.21,-241.96 718.42,-245.41"/>
-<polygon fill="#000000" stroke="#000000" points="717.78,-241.96 708.16,-246.4 718.45,-248.93 717.78,-241.96"/>
+<polygon fill="none" stroke="black" points="916,-180.63 834,-180.63 834,-156.63 916,-156.63 916,-180.63"/>
+<text text-anchor="middle" x="875" y="-166.23" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_step</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_symba_step~~UsesGraph_node3" class="node">
+<g id="module~~s_symba_step~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~s_symba_step~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-222.42 744,-222.42 744,-198.42 798,-198.42 798,-222.42"/>
-<text text-anchor="middle" x="771" y="-208.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~s_symba_step~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.63 744,-160.63 744,-136.63 798,-136.63 798,-160.63"/>
+<text text-anchor="middle" x="771" y="-146.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_step&#45;&gt;module~swiftest -->
 <g id="module~~s_symba_step~~UsesGraph_edge1" class="edge">
 <title>module~s_symba_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.98,-222.57C825.41,-220.89 816.4,-219.13 808,-217.48"/>
-<polygon fill="#000000" stroke="#000000" points="808.59,-214.03 798.11,-215.54 807.25,-220.9 808.59,-214.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.98,-160.78C825.41,-159.1 816.4,-157.33 808,-155.69"/>
+<polygon fill="#000000" stroke="#000000" points="808.59,-152.24 798.11,-153.75 807.25,-159.11 808.59,-152.24"/>
 </g>
-<!-- module~helio_classes -->
-<g id="module~~s_symba_step~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_symba_step~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-262.42 510.5,-262.42 510.5,-238.42 586.5,-238.42 586.5,-262.42"/>
-<text text-anchor="middle" x="548.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<!-- module~symba_classes -->
+<g id="module~~s_symba_step~~UsesGraph_node3" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_symba_step~~UsesGraph_node3"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-200.63 623,-200.63 623,-176.63 708,-176.63 708,-200.63"/>
+<text text-anchor="middle" x="665.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_step~~UsesGraph_edge6" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-250.42C614.47,-250.42 605.46,-250.42 596.76,-250.42"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-246.92 586.76,-250.42 596.76,-253.92 596.76,-246.92"/>
-</g>
-<!-- module~rmvs_classes -->
-<g id="module~~s_symba_step~~UsesGraph_node7" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~s_symba_step~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-182.42 510,-182.42 510,-158.42 587,-158.42 587,-182.42"/>
-<text text-anchor="middle" x="548.5" y="-168.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
-</a>
-</g>
+<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_step~~UsesGraph_edge2" class="edge">
+<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M833.99,-172.48C801.09,-175.66 754.21,-180.17 718.42,-183.62"/>
+<polygon fill="#000000" stroke="#000000" points="717.78,-180.17 708.16,-184.61 718.45,-187.14 717.78,-180.17"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_step~~UsesGraph_edge4" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-238.39C637.51,-234.12 629.83,-229.19 623,-224.42 606.39,-212.8 603.33,-208.42 587,-196.42 583.48,-193.83 579.74,-191.16 576.03,-188.55"/>
-<polygon fill="#000000" stroke="#000000" points="577.78,-185.5 567.57,-182.65 573.78,-191.24 577.78,-185.5"/>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_step~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-158.72C732.83,-162.99 719.68,-168.08 707.39,-172.83"/>
+<polygon fill="#000000" stroke="#000000" points="705.84,-169.67 697.77,-176.54 708.36,-176.2 705.84,-169.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_symba_step~~UsesGraph_node8" class="node">
+<g id="module~~s_symba_step~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_symba_step~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.42 123,-144.42 123,-120.42 211,-120.42 211,-144.42"/>
-<text text-anchor="middle" x="167" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
-</a>
-</g>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_step~~UsesGraph_edge5" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C365.83,-282.75 347.02,-310.58 293.5,-289.42"/>
-</g>
-<!-- module~swiftest_classes -->
-<g id="module~~s_symba_step~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<g id="a_module~~s_symba_step~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-223.42 248,-223.42 248,-199.42 337,-199.42 337,-223.42"/>
-<text text-anchor="middle" x="292.5" y="-209.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~s_symba_step~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-124.63 123,-124.63 123,-100.63 211,-100.63 211,-124.63"/>
+<text text-anchor="middle" x="167" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_step~~UsesGraph_edge3" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C379.35,-282.9 337.16,-251.29 313.35,-230.36"/>
-<polygon fill="#000000" stroke="#000000" points="315.49,-227.57 305.73,-223.46 310.8,-232.77 315.49,-227.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630.83,-262.54C584.52,-277.7 498.54,-300.4 425,-289.42"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_step~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-220.51C732.83,-224.79 719.68,-229.87 707.39,-234.62"/>
-<polygon fill="#000000" stroke="#000000" points="705.84,-231.46 697.77,-238.33 708.36,-237.99 705.84,-231.46"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_step~~UsesGraph_edge7" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C633.34,-206.58 599.62,-220.66 576.81,-233.16"/>
-<polygon fill="#000000" stroke="#000000" points="574.97,-230.18 568.03,-238.19 578.45,-236.25 574.97,-230.18"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-72.63C370.07,-68.82 354.92,-64.07 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C499.75,-46.87 481.86,-76.1 429.5,-72.63"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_symba_step~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_symba_step~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-104.42 247,-104.42 247,-80.42 338,-80.42 338,-104.42"/>
-<text text-anchor="middle" x="292.5" y="-90.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-44.63 383,-44.63 383,-20.63 474,-20.63 474,-44.63"/>
+<text text-anchor="middle" x="428.5" y="-30.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
-<g id="module~~s_symba_step~~UsesGraph_edge8" class="edge">
+<g id="module~~s_symba_step~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C515.3,-73.76 412.68,-79.93 348.16,-86.19"/>
-<polygon fill="#000000" stroke="#000000" points="347.75,-82.71 338.15,-87.19 348.45,-89.68 347.75,-82.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C527.49,-59.07 504.36,-51.35 483.9,-45.55"/>
+<polygon fill="#000000" stroke="#000000" points="484.68,-42.13 474.11,-42.86 482.82,-48.88 484.68,-42.13"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_symba_step~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_symba_step~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-65.42 374,-65.42 374,-41.42 474,-41.42 474,-65.42"/>
-<text text-anchor="middle" x="424" y="-51.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-24.63 247,-24.63 247,-0.63 347,-0.63 347,-24.63"/>
+<text text-anchor="middle" x="297" y="-10.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_symba_step~~UsesGraph_edge9" class="edge">
+<g id="module~~s_symba_step~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C528.13,-81.59 504.88,-72.86 483.86,-66.62"/>
-<polygon fill="#000000" stroke="#000000" points="484.64,-63.21 474.07,-63.85 482.73,-69.94 484.64,-63.21"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.57,-149.86C722.63,-150.53 692.64,-150.85 666.5,-148.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C620.82,-144.92 623.95,-111.2 587,-87.63 571.25,-77.58 566.36,-76.68 549.5,-68.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C510.2,-50.81 513.11,-25.02 474,-11.63 436.64,1.16 392.14,0.78 357.24,-2.73"/>
+<polygon fill="#000000" stroke="#000000" points="356.75,0.74 347.2,-3.85 357.53,-6.22 356.75,0.74"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_step~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C636.36,-206.95 606.13,-196.14 583.73,-186.62"/>
-<polygon fill="#000000" stroke="#000000" points="584.9,-183.31 574.33,-182.51 582.09,-189.73 584.9,-183.31"/>
+<!-- module~helio_classes -->
+<g id="module~~s_symba_step~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_symba_step~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-200.63 510.5,-200.63 510.5,-176.63 586.5,-176.63 586.5,-200.63"/>
+<text text-anchor="middle" x="548.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_step~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.95,-212.17C722.95,-213.17 692.72,-213.65 666.5,-210.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-13.42C240.23,-29.5 199.87,-82.05 180.52,-111.65"/>
-<polygon fill="#000000" stroke="#000000" points="177.38,-110.06 174.99,-120.39 183.3,-113.81 177.38,-110.06"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C592.13,-201.51 611.22,-132.23 549.5,-93.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C511.56,-70.82 513.12,-48.9 474,-32.42 399.66,-1.09 370.47,10.72 293.5,-13.42"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_step~~UsesGraph_edge13" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C478.6,-205.19 398.87,-206.74 347.4,-208.72"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-205.24 337.17,-209.14 347.31,-212.23 347.02,-205.24"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_step~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C633.58,-146 600.32,-159.54 577.56,-171.56"/>
+<polygon fill="#000000" stroke="#000000" points="575.85,-168.51 568.78,-176.4 579.23,-174.64 575.85,-168.51"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_symba_step~~UsesGraph_node10" class="node">
+<g id="module~~s_symba_step~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
-<g id="a_module~~s_symba_step~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-183.42 386,-183.42 386,-159.42 462,-159.42 462,-183.42"/>
-<text text-anchor="middle" x="424" y="-169.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<g id="a_module~~s_symba_step~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-124.63 390.5,-124.63 390.5,-100.63 466.5,-100.63 466.5,-124.63"/>
+<text text-anchor="middle" x="428.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_step~~UsesGraph_edge14" class="edge">
+<g id="module~~s_symba_step~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C517.18,-208.12 484.44,-197.22 460.44,-187.53"/>
-<polygon fill="#000000" stroke="#000000" points="461.63,-184.23 451.05,-183.62 458.94,-190.69 461.63,-184.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C613.77,-204.17 600.46,-214.29 549.5,-210.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C519.26,-146.75 488.74,-137.22 465.81,-128.44"/>
+<polygon fill="#000000" stroke="#000000" points="467.07,-125.17 456.48,-124.75 464.49,-131.68 467.07,-125.17"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C613.57,-144.31 600.5,-152.01 549.5,-148.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_step~~UsesGraph_edge17" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-289.42C230.48,-265.29 192.19,-191.07 176.37,-153.98"/>
-<polygon fill="#000000" stroke="#000000" points="179.54,-152.49 172.5,-144.57 173.07,-155.15 179.54,-152.49"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C363.02,-251.43 349.28,-311.47 293.5,-289.42"/>
+<!-- module~swiftest_classes -->
+<g id="module~~s_symba_step~~UsesGraph_node9" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_step~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-164.63 252.5,-164.63 252.5,-140.63 341.5,-140.63 341.5,-164.63"/>
+<text text-anchor="middle" x="297" y="-150.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_step~~UsesGraph_edge15" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C388.99,-251.43 352.1,-238.67 326.43,-227.57"/>
-<polygon fill="#000000" stroke="#000000" points="327.73,-224.31 317.17,-223.42 324.87,-230.7 327.73,-224.31"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-250.88C485.97,-251.14 453.61,-251.41 425,-251.42"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_step~~UsesGraph_edge16" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.63,-238.25C508.25,-225.1 475.59,-204.04 452.38,-189.08"/>
-<polygon fill="#000000" stroke="#000000" points="453.99,-185.95 443.69,-183.47 450.2,-191.83 453.99,-185.95"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_step~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C480.17,-144.16 402.4,-146.61 351.83,-149.21"/>
+<polygon fill="#000000" stroke="#000000" points="351.57,-145.72 341.77,-149.75 351.95,-152.71 351.57,-145.72"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_step~~UsesGraph_edge18" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-104.42C242.1,-108.42 228.18,-112.93 215.18,-117.14"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-113.88 205.45,-120.29 216.05,-120.54 213.89,-113.88"/>
+<!-- module~rmvs_classes -->
+<g id="module~~s_symba_step~~UsesGraph_node10" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_step~~UsesGraph_node10"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-120.63 510,-120.63 510,-96.63 587,-96.63 587,-120.63"/>
+<text text-anchor="middle" x="548.5" y="-106.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+</a>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_step~~UsesGraph_edge19" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.56,-41.37C364.63,-27.5 312.81,-7.36 293.5,-13.42"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_step~~UsesGraph_edge21" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.63,-158.82C498.26,-155.69 485.7,-152.58 474,-150.42 394.72,-135.78 373.91,-138.2 293.5,-132.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-132.42C268.56,-130.26 243.11,-129.91 221.31,-130.24"/>
-<polygon fill="#000000" stroke="#000000" points="221.17,-126.74 211.24,-130.44 221.31,-133.74 221.17,-126.74"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_step~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C635.56,-146.17 604.57,-134.83 582.06,-124.85"/>
+<polygon fill="#000000" stroke="#000000" points="583.51,-121.67 572.96,-120.69 580.59,-128.03 583.51,-121.67"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_step~~UsesGraph_edge20" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-170.73C497.99,-170.82 484.88,-170.93 472.55,-171.03"/>
-<polygon fill="#000000" stroke="#000000" points="472.39,-167.53 462.42,-171.11 472.45,-174.53 472.39,-167.53"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_step~~UsesGraph_edge11" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C370.28,-222.46 353.11,-245.23 298,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_step~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-188.63C614.47,-188.63 605.46,-188.63 596.76,-188.63"/>
+<polygon fill="#000000" stroke="#000000" points="596.76,-185.13 586.76,-188.63 596.76,-192.13 596.76,-185.13"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_step~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C384.32,-222.51 342.28,-191.94 318.32,-171.48"/>
+<polygon fill="#000000" stroke="#000000" points="320.46,-168.7 310.63,-164.73 315.84,-173.96 320.46,-168.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.9,-200.64C586.6,-215.84 502.03,-238.9 429.5,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_step~~UsesGraph_edge12" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-176.6C637.51,-172.33 629.83,-167.4 623,-162.63 606.39,-151.01 603.33,-146.63 587,-134.63 583.48,-132.04 579.74,-129.36 576.03,-126.75"/>
+<polygon fill="#000000" stroke="#000000" points="577.78,-123.7 567.57,-120.86 573.78,-129.45 577.78,-123.7"/>
 </g>
 <!-- iso_fortran_env -->
 <g id="module~~s_symba_step~~UsesGraph_node11" class="node">
 <title>iso_fortran_env</title>
 <g id="a_module~~s_symba_step~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.42 0,-144.42 0,-120.42 87,-120.42 87,-144.42"/>
-<text text-anchor="middle" x="43.5" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-124.63 0,-124.63 0,-100.63 87,-100.63 87,-124.63"/>
+<text text-anchor="middle" x="43.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~s_symba_step~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_step~~UsesGraph_edge15" class="edge">
 <title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-132.42C114.58,-132.42 105.86,-132.42 97.36,-132.42"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-128.92 87.13,-132.42 97.13,-135.92 97.13,-128.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-112.63C114.58,-112.63 105.86,-112.63 97.36,-112.63"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-109.13 87.13,-112.63 97.13,-116.13 97.13,-109.13"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_step~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-199.25C251.83,-186.05 218.71,-164.85 195.3,-149.88"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-146.91 186.85,-144.47 193.38,-152.81 197.16,-146.91"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_step~~UsesGraph_edge16" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-72.63C265.31,-77.24 231.87,-87.9 206.87,-97.05"/>
+<polygon fill="#000000" stroke="#000000" points="205.53,-93.82 197.39,-100.6 207.98,-100.37 205.53,-93.82"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.75,-44.63C371.88,-54.38 333.14,-67.34 298,-72.63"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_step~~UsesGraph_edge17" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-24.69C258.46,-41.96 217.61,-73.87 191.67,-94.14"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-91.61 183.49,-100.52 193.53,-97.12 189.22,-91.61"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_step~~UsesGraph_edge18" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-228.63C244.44,-213.1 202.23,-162.28 181.63,-133.32"/>
+<polygon fill="#000000" stroke="#000000" points="184.28,-131 175.71,-124.76 178.52,-134.98 184.28,-131"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C367.52,-191.13 355.43,-245.93 298,-228.63"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_step~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.8,-176.59C509.5,-164.15 479.16,-144.62 457.1,-130.4"/>
+<polygon fill="#000000" stroke="#000000" points="458.8,-127.34 448.5,-124.87 455.01,-133.22 458.8,-127.34"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_step~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.3,-189.42C487.07,-189.88 456.54,-190.4 429.5,-190.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C394.26,-190.9 358.09,-179.2 332.44,-168.72"/>
+<polygon fill="#000000" stroke="#000000" points="333.73,-165.46 323.16,-164.78 331,-171.91 333.73,-165.46"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_step~~UsesGraph_edge25" class="edge">
+<g id="module~~s_symba_step~~UsesGraph_edge21" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M395.88,-159.42C370.13,-148.95 330.03,-135.04 293.5,-132.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_step~~UsesGraph_edge24" class="edge">
+<g id="module~~s_symba_step~~UsesGraph_edge22" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-182.88C372.29,-187.08 356.68,-191.9 342.21,-196.37"/>
-<polygon fill="#000000" stroke="#000000" points="340.94,-193.1 332.42,-199.4 343.01,-199.79 340.94,-193.1"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-124.09C376.79,-128.29 361.18,-133.11 346.71,-137.58"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-134.31 336.92,-140.61 347.51,-141 345.44,-134.31"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_step~~UsesGraph_edge23" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-140.63C244.68,-136.59 230.09,-132.03 216.5,-127.79"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-124.4 206.82,-124.76 215.32,-131.08 217.41,-124.4"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_step~~UsesGraph_edge24" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M520.52,-96.51C497.03,-86.91 461.77,-74.77 429.5,-72.63"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_step~~UsesGraph_edge25" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.84,-109.9C499.41,-110.26 487.96,-110.65 477.05,-111.02"/>
+<polygon fill="#000000" stroke="#000000" points="476.68,-107.53 466.8,-111.36 476.92,-114.52 476.68,-107.53"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_symba_util.html b/docs/module/s_symba_util.html
index 58dc5825e..48725b8a6 100644
--- a/docs/module/s_symba_util.html
+++ b/docs/module/s_symba_util.html
@@ -293,261 +293,260 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_symba_util~~UsesGraph Pages: 1 -->
-<svg id="modules_symba_utilUsesGraph" width="641pt" height="214pt"
- viewBox="0.00 0.00 641.00 213.82" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_symba_util~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 301.88)">
+<svg id="modules_symba_utilUsesGraph" width="641pt" height="170pt"
+ viewBox="0.00 0.00 641.00 169.90" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_symba_util~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 239.06)">
 <title>module~~s_symba_util~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.88 913,-301.88 913,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.06 913,-239.06 913,4 -4,4"/>
 <!-- module~s_symba_util -->
 <g id="module~~s_symba_util~~UsesGraph_node1" class="node">
 <title>module~s_symba_util</title>
-<polygon fill="none" stroke="black" points="909,-242.42 834,-242.42 834,-218.42 909,-218.42 909,-242.42"/>
-<text text-anchor="middle" x="871.5" y="-228.02" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_util</text>
-</g>
-<!-- module~symba_classes -->
-<g id="module~~s_symba_util~~UsesGraph_node2" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~s_symba_util~~UsesGraph_node2"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-262.42 623,-262.42 623,-238.42 708,-238.42 708,-262.42"/>
-<text text-anchor="middle" x="665.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
-</a>
-</g>
-</g>
-<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_util~~UsesGraph_edge2" class="edge">
-<title>module~s_symba_util&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M833.56,-234.04C801.37,-237.2 754.35,-241.81 718.39,-245.33"/>
-<polygon fill="#000000" stroke="#000000" points="717.7,-241.88 708.09,-246.34 718.38,-248.85 717.7,-241.88"/>
+<polygon fill="none" stroke="black" points="909,-180.63 834,-180.63 834,-156.63 909,-156.63 909,-180.63"/>
+<text text-anchor="middle" x="871.5" y="-166.23" font-family="Helvetica,sans-Serif" font-size="10.50">s_symba_util</text>
 </g>
 <!-- module~swiftest -->
-<g id="module~~s_symba_util~~UsesGraph_node3" class="node">
+<g id="module~~s_symba_util~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~s_symba_util~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-222.42 744,-222.42 744,-198.42 798,-198.42 798,-222.42"/>
-<text text-anchor="middle" x="771" y="-208.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~s_symba_util~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.63 744,-160.63 744,-136.63 798,-136.63 798,-160.63"/>
+<text text-anchor="middle" x="771" y="-146.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_util&#45;&gt;module~swiftest -->
 <g id="module~~s_symba_util~~UsesGraph_edge1" class="edge">
 <title>module~s_symba_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.82,-222.97C825.42,-221.27 816.5,-219.45 808.12,-217.75"/>
-<polygon fill="#000000" stroke="#000000" points="808.75,-214.31 798.25,-215.75 807.35,-221.17 808.75,-214.31"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.82,-161.18C825.42,-159.48 816.5,-157.66 808.12,-155.96"/>
+<polygon fill="#000000" stroke="#000000" points="808.75,-152.52 798.25,-153.96 807.35,-159.38 808.75,-152.52"/>
 </g>
-<!-- module~helio_classes -->
-<g id="module~~s_symba_util~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_symba_util~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-262.42 510.5,-262.42 510.5,-238.42 586.5,-238.42 586.5,-262.42"/>
-<text text-anchor="middle" x="548.5" y="-248.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<!-- module~symba_classes -->
+<g id="module~~s_symba_util~~UsesGraph_node3" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_symba_util~~UsesGraph_node3"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-200.63 623,-200.63 623,-176.63 708,-176.63 708,-200.63"/>
+<text text-anchor="middle" x="665.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_util~~UsesGraph_edge6" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-250.42C614.47,-250.42 605.46,-250.42 596.76,-250.42"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-246.92 586.76,-250.42 596.76,-253.92 596.76,-246.92"/>
-</g>
-<!-- module~rmvs_classes -->
-<g id="module~~s_symba_util~~UsesGraph_node7" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~s_symba_util~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-182.42 510,-182.42 510,-158.42 587,-158.42 587,-182.42"/>
-<text text-anchor="middle" x="548.5" y="-168.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
-</a>
-</g>
+<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_util~~UsesGraph_edge2" class="edge">
+<title>module~s_symba_util&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M833.56,-172.25C801.37,-175.41 754.35,-180.02 718.39,-183.54"/>
+<polygon fill="#000000" stroke="#000000" points="717.7,-180.09 708.09,-184.55 718.38,-187.06 717.7,-180.09"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_util~~UsesGraph_edge4" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-238.39C637.51,-234.12 629.83,-229.19 623,-224.42 606.39,-212.8 603.33,-208.42 587,-196.42 583.48,-193.83 579.74,-191.16 576.03,-188.55"/>
-<polygon fill="#000000" stroke="#000000" points="577.78,-185.5 567.57,-182.65 573.78,-191.24 577.78,-185.5"/>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_symba_util~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-158.72C732.83,-162.99 719.68,-168.08 707.39,-172.83"/>
+<polygon fill="#000000" stroke="#000000" points="705.84,-169.67 697.77,-176.54 708.36,-176.2 705.84,-169.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_symba_util~~UsesGraph_node8" class="node">
+<g id="module~~s_symba_util~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_symba_util~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-144.42 123,-144.42 123,-120.42 211,-120.42 211,-144.42"/>
-<text text-anchor="middle" x="167" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
-</a>
-</g>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_util~~UsesGraph_edge5" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C365.83,-282.75 347.02,-310.58 293.5,-289.42"/>
-</g>
-<!-- module~swiftest_classes -->
-<g id="module~~s_symba_util~~UsesGraph_node9" class="node">
-<title>module~swiftest_classes</title>
-<g id="a_module~~s_symba_util~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-223.42 248,-223.42 248,-199.42 337,-199.42 337,-223.42"/>
-<text text-anchor="middle" x="292.5" y="-209.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~s_symba_util~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-124.63 123,-124.63 123,-100.63 211,-100.63 211,-124.63"/>
+<text text-anchor="middle" x="167" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_symba_util~~UsesGraph_edge3" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-289.42C379.35,-282.9 337.16,-251.29 313.35,-230.36"/>
-<polygon fill="#000000" stroke="#000000" points="315.49,-227.57 305.73,-223.46 310.8,-232.77 315.49,-227.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M630.83,-262.54C584.52,-277.7 498.54,-300.4 425,-289.42"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_symba_util~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-220.51C732.83,-224.79 719.68,-229.87 707.39,-234.62"/>
-<polygon fill="#000000" stroke="#000000" points="705.84,-231.46 697.77,-238.33 708.36,-237.99 705.84,-231.46"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~s_symba_util~~UsesGraph_edge7" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C633.34,-206.58 599.62,-220.66 576.81,-233.16"/>
-<polygon fill="#000000" stroke="#000000" points="574.97,-230.18 568.03,-238.19 578.45,-236.25 574.97,-230.18"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-72.63C370.07,-68.82 354.92,-64.07 298,-72.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C499.75,-46.87 481.86,-76.1 429.5,-72.63"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_symba_util~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_symba_util~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-104.42 247,-104.42 247,-80.42 338,-80.42 338,-104.42"/>
-<text text-anchor="middle" x="292.5" y="-90.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-44.63 383,-44.63 383,-20.63 474,-20.63 474,-44.63"/>
+<text text-anchor="middle" x="428.5" y="-30.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
-<g id="module~~s_symba_util~~UsesGraph_edge8" class="edge">
+<g id="module~~s_symba_util~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C515.3,-73.76 412.68,-79.93 348.16,-86.19"/>
-<polygon fill="#000000" stroke="#000000" points="347.75,-82.71 338.15,-87.19 348.45,-89.68 347.75,-82.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C527.49,-59.07 504.36,-51.35 483.9,-45.55"/>
+<polygon fill="#000000" stroke="#000000" points="484.68,-42.13 474.11,-42.86 482.82,-48.88 484.68,-42.13"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_symba_util~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_symba_util~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-65.42 374,-65.42 374,-41.42 474,-41.42 474,-65.42"/>
-<text text-anchor="middle" x="424" y="-51.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-24.63 247,-24.63 247,-0.63 347,-0.63 347,-24.63"/>
+<text text-anchor="middle" x="297" y="-10.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_symba_util~~UsesGraph_edge9" class="edge">
+<g id="module~~s_symba_util~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C528.13,-81.59 504.88,-72.86 483.86,-66.62"/>
-<polygon fill="#000000" stroke="#000000" points="484.64,-63.21 474.07,-63.85 482.73,-69.94 484.64,-63.21"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.57,-149.86C722.63,-150.53 692.64,-150.85 666.5,-148.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C620.82,-144.92 623.95,-111.2 587,-87.63 571.25,-77.58 566.36,-76.68 549.5,-68.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-68.63C510.2,-50.81 513.11,-25.02 474,-11.63 436.64,1.16 392.14,0.78 357.24,-2.73"/>
+<polygon fill="#000000" stroke="#000000" points="356.75,0.74 347.2,-3.85 357.53,-6.22 356.75,0.74"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_symba_util~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C636.36,-206.95 606.13,-196.14 583.73,-186.62"/>
-<polygon fill="#000000" stroke="#000000" points="584.9,-183.31 574.33,-182.51 582.09,-189.73 584.9,-183.31"/>
+<!-- module~helio_classes -->
+<g id="module~~s_symba_util~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_symba_util~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-200.63 510.5,-200.63 510.5,-176.63 586.5,-176.63 586.5,-200.63"/>
+<text text-anchor="middle" x="548.5" y="-186.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_util~~UsesGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.95,-212.17C722.95,-213.17 692.72,-213.65 666.5,-210.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-13.42C240.23,-29.5 199.87,-82.05 180.52,-111.65"/>
-<polygon fill="#000000" stroke="#000000" points="177.38,-110.06 174.99,-120.39 183.3,-113.81 177.38,-110.06"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C592.13,-201.51 611.22,-132.23 549.5,-93.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-93.42C511.56,-70.82 513.12,-48.9 474,-32.42 399.66,-1.09 370.47,10.72 293.5,-13.42"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_util~~UsesGraph_edge13" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C478.6,-205.19 398.87,-206.74 347.4,-208.72"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-205.24 337.17,-209.14 347.31,-212.23 347.02,-205.24"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_util~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C633.58,-146 600.32,-159.54 577.56,-171.56"/>
+<polygon fill="#000000" stroke="#000000" points="575.85,-168.51 568.78,-176.4 579.23,-174.64 575.85,-168.51"/>
 </g>
 <!-- module~whm_classes -->
-<g id="module~~s_symba_util~~UsesGraph_node10" class="node">
+<g id="module~~s_symba_util~~UsesGraph_node8" class="node">
 <title>module~whm_classes</title>
-<g id="a_module~~s_symba_util~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-183.42 386,-183.42 386,-159.42 462,-159.42 462,-183.42"/>
-<text text-anchor="middle" x="424" y="-169.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<g id="a_module~~s_symba_util~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-124.63 390.5,-124.63 390.5,-100.63 466.5,-100.63 466.5,-124.63"/>
+<text text-anchor="middle" x="428.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_util~~UsesGraph_edge14" class="edge">
+<g id="module~~s_symba_util~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-210.42C517.18,-208.12 484.44,-197.22 460.44,-187.53"/>
-<polygon fill="#000000" stroke="#000000" points="461.63,-184.23 451.05,-183.62 458.94,-190.69 461.63,-184.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-210.42C613.77,-204.17 600.46,-214.29 549.5,-210.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C519.26,-146.75 488.74,-137.22 465.81,-128.44"/>
+<polygon fill="#000000" stroke="#000000" points="467.07,-125.17 456.48,-124.75 464.49,-131.68 467.07,-125.17"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C613.57,-144.31 600.5,-152.01 549.5,-148.63"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_util~~UsesGraph_edge17" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-289.42C230.48,-265.29 192.19,-191.07 176.37,-153.98"/>
-<polygon fill="#000000" stroke="#000000" points="179.54,-152.49 172.5,-144.57 173.07,-155.15 179.54,-152.49"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C363.02,-251.43 349.28,-311.47 293.5,-289.42"/>
+<!-- module~swiftest_classes -->
+<g id="module~~s_symba_util~~UsesGraph_node9" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_symba_util~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-164.63 252.5,-164.63 252.5,-140.63 341.5,-140.63 341.5,-164.63"/>
+<text text-anchor="middle" x="297" y="-150.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_util~~UsesGraph_edge15" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-251.42C388.99,-251.43 352.1,-238.67 326.43,-227.57"/>
-<polygon fill="#000000" stroke="#000000" points="327.73,-224.31 317.17,-223.42 324.87,-230.7 327.73,-224.31"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-250.88C485.97,-251.14 453.61,-251.41 425,-251.42"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_util~~UsesGraph_edge16" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.63,-238.25C508.25,-225.1 475.59,-204.04 452.38,-189.08"/>
-<polygon fill="#000000" stroke="#000000" points="453.99,-185.95 443.69,-183.47 450.2,-191.83 453.99,-185.95"/>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_util~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-148.63C480.17,-144.16 402.4,-146.61 351.83,-149.21"/>
+<polygon fill="#000000" stroke="#000000" points="351.57,-145.72 341.77,-149.75 351.95,-152.71 351.57,-145.72"/>
 </g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_util~~UsesGraph_edge18" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-104.42C242.1,-108.42 228.18,-112.93 215.18,-117.14"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-113.88 205.45,-120.29 216.05,-120.54 213.89,-113.88"/>
+<!-- module~rmvs_classes -->
+<g id="module~~s_symba_util~~UsesGraph_node10" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_symba_util~~UsesGraph_node10"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-120.63 510,-120.63 510,-96.63 587,-96.63 587,-120.63"/>
+<text text-anchor="middle" x="548.5" y="-106.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+</a>
 </g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_util~~UsesGraph_edge19" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.56,-41.37C364.63,-27.5 312.81,-7.36 293.5,-13.42"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_util~~UsesGraph_edge21" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.63,-158.82C498.26,-155.69 485.7,-152.58 474,-150.42 394.72,-135.78 373.91,-138.2 293.5,-132.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-132.42C268.56,-130.26 243.11,-129.91 221.31,-130.24"/>
-<polygon fill="#000000" stroke="#000000" points="221.17,-126.74 211.24,-130.44 221.31,-133.74 221.17,-126.74"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_util~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-148.63C635.56,-146.17 604.57,-134.83 582.06,-124.85"/>
+<polygon fill="#000000" stroke="#000000" points="583.51,-121.67 572.96,-120.69 580.59,-128.03 583.51,-121.67"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_symba_util~~UsesGraph_edge20" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-170.73C497.99,-170.82 484.88,-170.93 472.55,-171.03"/>
-<polygon fill="#000000" stroke="#000000" points="472.39,-167.53 462.42,-171.11 472.45,-174.53 472.39,-167.53"/>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_util~~UsesGraph_edge11" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C370.28,-222.46 353.11,-245.23 298,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_symba_util~~UsesGraph_edge14" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-188.63C614.47,-188.63 605.46,-188.63 596.76,-188.63"/>
+<polygon fill="#000000" stroke="#000000" points="596.76,-185.13 586.76,-188.63 596.76,-192.13 596.76,-185.13"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_util~~UsesGraph_edge13" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-228.63C384.32,-222.51 342.28,-191.94 318.32,-171.48"/>
+<polygon fill="#000000" stroke="#000000" points="320.46,-168.7 310.63,-164.73 315.84,-173.96 320.46,-168.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.9,-200.64C586.6,-215.84 502.03,-238.9 429.5,-228.63"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_symba_util~~UsesGraph_edge12" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-176.6C637.51,-172.33 629.83,-167.4 623,-162.63 606.39,-151.01 603.33,-146.63 587,-134.63 583.48,-132.04 579.74,-129.36 576.03,-126.75"/>
+<polygon fill="#000000" stroke="#000000" points="577.78,-123.7 567.57,-120.86 573.78,-129.45 577.78,-123.7"/>
 </g>
 <!-- iso_fortran_env -->
 <g id="module~~s_symba_util~~UsesGraph_node11" class="node">
 <title>iso_fortran_env</title>
 <g id="a_module~~s_symba_util~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-144.42 0,-144.42 0,-120.42 87,-120.42 87,-144.42"/>
-<text text-anchor="middle" x="43.5" y="-130.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-124.63 0,-124.63 0,-100.63 87,-100.63 87,-124.63"/>
+<text text-anchor="middle" x="43.5" y="-110.23" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~s_symba_util~~UsesGraph_edge22" class="edge">
+<g id="module~~s_symba_util~~UsesGraph_edge15" class="edge">
 <title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-132.42C114.58,-132.42 105.86,-132.42 97.36,-132.42"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-128.92 87.13,-132.42 97.13,-135.92 97.13,-128.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-112.63C114.58,-112.63 105.86,-112.63 97.36,-112.63"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-109.13 87.13,-112.63 97.13,-116.13 97.13,-109.13"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_util~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-199.25C251.83,-186.05 218.71,-164.85 195.3,-149.88"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-146.91 186.85,-144.47 193.38,-152.81 197.16,-146.91"/>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_util~~UsesGraph_edge16" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-72.63C265.31,-77.24 231.87,-87.9 206.87,-97.05"/>
+<polygon fill="#000000" stroke="#000000" points="205.53,-93.82 197.39,-100.6 207.98,-100.37 205.53,-93.82"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.75,-44.63C371.88,-54.38 333.14,-67.34 298,-72.63"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_util~~UsesGraph_edge17" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-24.69C258.46,-41.96 217.61,-73.87 191.67,-94.14"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-91.61 183.49,-100.52 193.53,-97.12 189.22,-91.61"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_util~~UsesGraph_edge18" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-228.63C244.44,-213.1 202.23,-162.28 181.63,-133.32"/>
+<polygon fill="#000000" stroke="#000000" points="184.28,-131 175.71,-124.76 178.52,-134.98 184.28,-131"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C367.52,-191.13 355.43,-245.93 298,-228.63"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_util~~UsesGraph_edge19" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.8,-176.59C509.5,-164.15 479.16,-144.62 457.1,-130.4"/>
+<polygon fill="#000000" stroke="#000000" points="458.8,-127.34 448.5,-124.87 455.01,-133.22 458.8,-127.34"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_symba_util~~UsesGraph_edge20" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.3,-189.42C487.07,-189.88 456.54,-190.4 429.5,-190.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-190.63C394.26,-190.9 358.09,-179.2 332.44,-168.72"/>
+<polygon fill="#000000" stroke="#000000" points="333.73,-165.46 323.16,-164.78 331,-171.91 333.73,-165.46"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_symba_util~~UsesGraph_edge25" class="edge">
+<g id="module~~s_symba_util~~UsesGraph_edge21" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M395.88,-159.42C370.13,-148.95 330.03,-135.04 293.5,-132.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M407.75,-100.59C382.72,-86.74 338.02,-66.61 298,-72.63"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_symba_util~~UsesGraph_edge24" class="edge">
+<g id="module~~s_symba_util~~UsesGraph_edge22" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-182.88C372.29,-187.08 356.68,-191.9 342.21,-196.37"/>
-<polygon fill="#000000" stroke="#000000" points="340.94,-193.1 332.42,-199.4 343.01,-199.79 340.94,-193.1"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-124.09C376.79,-128.29 361.18,-133.11 346.71,-137.58"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-134.31 336.92,-140.61 347.51,-141 345.44,-134.31"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_util~~UsesGraph_edge23" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-140.63C244.68,-136.59 230.09,-132.03 216.5,-127.79"/>
+<polygon fill="#000000" stroke="#000000" points="217.41,-124.4 206.82,-124.76 215.32,-131.08 217.41,-124.4"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_symba_util~~UsesGraph_edge24" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M520.52,-96.51C497.03,-86.91 461.77,-74.77 429.5,-72.63"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_symba_util~~UsesGraph_edge25" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.84,-109.9C499.41,-110.26 487.96,-110.65 477.05,-111.02"/>
+<polygon fill="#000000" stroke="#000000" points="476.68,-107.53 466.8,-111.36 476.92,-114.52 476.68,-107.53"/>
 </g>
 </g>
 </svg>
@@ -736,7 +735,7 @@ <h2>Module Subroutines</h2>
         
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_append_arr_info"></span><h3>
-subroutine <a href='../proc/symba_util_append_arr_info.html'>symba_util_append_arr_info</a>(arr, source, lsource_mask)
+subroutine <a href='../proc/symba_util_append_arr_info.html'>symba_util_append_arr_info</a>(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -810,11 +809,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -835,7 +864,7 @@ <h4>Arguments</h4>
         
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-symba_util_append_arr_kin"></span><h3>
-subroutine <a href='../proc/symba_util_append_arr_kin.html'>symba_util_append_arr_kin</a>(arr, source, lsource_mask)
+subroutine <a href='../proc/symba_util_append_arr_kin.html'>symba_util_append_arr_kin</a>(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -909,11 +938,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -1016,7 +1075,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -1118,7 +1177,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -1221,7 +1280,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/module/s_tides_kick_getacch.html b/docs/module/s_tides_kick_getacch.html
index fea985aed..6e5c39261 100644
--- a/docs/module/s_tides_kick_getacch.html
+++ b/docs/module/s_tides_kick_getacch.html
@@ -245,255 +245,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_tides_kick_getacch~~UsesGraph Pages: 1 -->
-<svg id="modules_tides_kick_getacchUsesGraph" width="641pt" height="187pt"
- viewBox="0.00 0.00 641.00 186.75" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_tides_kick_getacch~~UsesGraph" class="graph" transform="scale(0.67 0.67) rotate(0) translate(4 274.53)">
+<svg id="modules_tides_kick_getacchUsesGraph" width="641pt" height="181pt"
+ viewBox="0.00 0.00 641.00 181.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_tides_kick_getacch~~UsesGraph" class="graph" transform="scale(0.67 0.67) rotate(0) translate(4 265.94)">
 <title>module~~s_tides_kick_getacch~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-274.53 952,-274.53 952,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 952,-265.94 952,4 -4,4"/>
 <!-- module~s_tides_kick_getacch -->
 <g id="module~~s_tides_kick_getacch~~UsesGraph_node1" class="node">
 <title>module~s_tides_kick_getacch</title>
-<polygon fill="none" stroke="black" points="948,-217.16 834,-217.16 834,-193.16 948,-193.16 948,-217.16"/>
-<text text-anchor="middle" x="891" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_tides_kick_getacch</text>
+<polygon fill="none" stroke="black" points="948,-234.94 834,-234.94 834,-210.94 948,-210.94 948,-234.94"/>
+<text text-anchor="middle" x="891" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_tides_kick_getacch</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_tides_kick_getacch~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_tides_kick_getacch~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_tides_kick_getacch~~UsesGraph_edge2" class="edge">
 <title>module~s_tides_kick_getacch&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M860.85,-217.22C796.44,-242.13 637.59,-294.09 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M847.12,-234.96C802.41,-246.42 730.11,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_tides_kick_getacch~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_tides_kick_getacch~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
 <g id="module~~s_tides_kick_getacch~~UsesGraph_edge1" class="edge">
 <title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M864.98,-193.07C847.84,-184.8 824.92,-173.72 806.12,-164.64"/>
-<polygon fill="#000000" stroke="#000000" points="807.52,-161.43 796.99,-160.23 804.47,-167.73 807.52,-161.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.76,-213.41C825,-211.92 816.15,-210.42 808,-209.04"/>
+<polygon fill="#000000" stroke="#000000" points="808.55,-205.59 798.11,-207.37 807.38,-212.49 808.55,-205.59"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_node9" class="node">
+<g id="module~~s_tides_kick_getacch~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_tides_kick_getacch~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_tides_kick_getacch~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_tides_kick_getacch~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_tides_kick_getacch~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_tides_kick_getacch~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_tides_kick_getacch~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_tides_kick_getacch~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_tides_kick_getacch~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge6" class="edge">
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_tides_kick_getacch~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge7" class="edge">
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_node8" class="node">
+<g id="module~~s_tides_kick_getacch~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge8" class="edge">
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge12" class="edge">
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge14" class="edge">
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_tides_kick_getacch~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_tides_kick_getacch~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_tides_kick_getacch~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_tides_kick_getacch~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge21" class="edge">
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_tides_kick_getacch~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_tides_kick_getacch~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_tides_kick_getacch~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_tides_kick_getacch~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_tides_step_spin.html b/docs/module/s_tides_step_spin.html
index 7eaafb696..7e78e78b4 100644
--- a/docs/module/s_tides_step_spin.html
+++ b/docs/module/s_tides_step_spin.html
@@ -297,255 +297,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_tides_step_spin~~UsesGraph Pages: 1 -->
-<svg id="modules_tides_step_spinUsesGraph" width="641pt" height="190pt"
- viewBox="0.00 0.00 641.00 189.70" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_tides_step_spin~~UsesGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 274.19)">
+<svg id="modules_tides_step_spinUsesGraph" width="641pt" height="184pt"
+ viewBox="0.00 0.00 641.00 184.08" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_tides_step_spin~~UsesGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 265.94)">
 <title>module~~s_tides_step_spin~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-274.19 936,-274.19 936,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 936,-265.94 936,4 -4,4"/>
 <!-- module~s_tides_step_spin -->
 <g id="module~~s_tides_step_spin~~UsesGraph_node1" class="node">
 <title>module~s_tides_step_spin</title>
-<polygon fill="none" stroke="black" points="932,-217.16 834,-217.16 834,-193.16 932,-193.16 932,-217.16"/>
-<text text-anchor="middle" x="883" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_tides_step_spin</text>
+<polygon fill="none" stroke="black" points="932,-234.94 834,-234.94 834,-210.94 932,-210.94 932,-234.94"/>
+<text text-anchor="middle" x="883" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_tides_step_spin</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_tides_step_spin~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_tides_step_spin~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_tides_step_spin&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_tides_step_spin~~UsesGraph_edge2" class="edge">
 <title>module~s_tides_step_spin&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M852.99,-217.29C789.65,-242.06 634.64,-293.26 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M840.69,-234.96C797.6,-246.42 727.9,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_tides_step_spin~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_tides_step_spin~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
 <g id="module~~s_tides_step_spin~~UsesGraph_edge1" class="edge">
 <title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M858.67,-193.07C842.92,-184.91 821.91,-174.02 804.53,-165.01"/>
-<polygon fill="#000000" stroke="#000000" points="805.78,-161.72 795.29,-160.23 802.56,-167.94 805.78,-161.72"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.75,-214.17C825.15,-212.6 816.32,-211 808.13,-209.51"/>
+<polygon fill="#000000" stroke="#000000" points="808.62,-206.04 798.15,-207.7 807.37,-212.93 808.62,-206.04"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_tides_step_spin~~UsesGraph_node9" class="node">
+<g id="module~~s_tides_step_spin~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_tides_step_spin~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_tides_step_spin~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_tides_step_spin~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_tides_step_spin~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_tides_step_spin~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_tides_step_spin~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_tides_step_spin~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_tides_step_spin~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_tides_step_spin~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_tides_step_spin~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_tides_step_spin~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_tides_step_spin~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge6" class="edge">
+<g id="module~~s_tides_step_spin~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_tides_step_spin~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_tides_step_spin~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_tides_step_spin~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_tides_step_spin~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge7" class="edge">
+<g id="module~~s_tides_step_spin~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_tides_step_spin~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_tides_step_spin~~UsesGraph_node8" class="node">
+<g id="module~~s_tides_step_spin~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_tides_step_spin~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_tides_step_spin~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge8" class="edge">
+<g id="module~~s_tides_step_spin~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_tides_step_spin~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_tides_step_spin~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_tides_step_spin~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_tides_step_spin~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge12" class="edge">
+<g id="module~~s_tides_step_spin~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge14" class="edge">
+<g id="module~~s_tides_step_spin~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_tides_step_spin~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_tides_step_spin~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_tides_step_spin~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_tides_step_spin~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge21" class="edge">
+<g id="module~~s_tides_step_spin~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_tides_step_spin~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_tides_step_spin~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_tides_step_spin~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_tides_step_spin~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_tides_step_spin~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_user_kick_getacch.html b/docs/module/s_user_kick_getacch.html
index e40aa94b9..93472376e 100644
--- a/docs/module/s_user_kick_getacch.html
+++ b/docs/module/s_user_kick_getacch.html
@@ -245,255 +245,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_user_kick_getacch~~UsesGraph Pages: 1 -->
-<svg id="modules_user_kick_getacchUsesGraph" width="641pt" height="187pt"
- viewBox="0.00 0.00 641.00 187.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_user_kick_getacch~~UsesGraph" class="graph" transform="scale(0.67 0.67) rotate(0) translate(4 274.49)">
+<svg id="modules_user_kick_getacchUsesGraph" width="641pt" height="181pt"
+ viewBox="0.00 0.00 641.00 181.38" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_user_kick_getacch~~UsesGraph" class="graph" transform="scale(0.67 0.67) rotate(0) translate(4 265.94)">
 <title>module~~s_user_kick_getacch~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-274.49 950,-274.49 950,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 950,-265.94 950,4 -4,4"/>
 <!-- module~s_user_kick_getacch -->
 <g id="module~~s_user_kick_getacch~~UsesGraph_node1" class="node">
 <title>module~s_user_kick_getacch</title>
-<polygon fill="none" stroke="black" points="946,-217.16 834,-217.16 834,-193.16 946,-193.16 946,-217.16"/>
-<text text-anchor="middle" x="890" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_user_kick_getacch</text>
+<polygon fill="none" stroke="black" points="946,-234.94 834,-234.94 834,-210.94 946,-210.94 946,-234.94"/>
+<text text-anchor="middle" x="890" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_user_kick_getacch</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_user_kick_getacch~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_user_kick_getacch~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_user_kick_getacch&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_user_kick_getacch~~UsesGraph_edge2" class="edge">
 <title>module~s_user_kick_getacch&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M859.93,-217.2C795.69,-242.09 637.26,-294 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M846.32,-234.96C801.81,-246.42 729.84,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_user_kick_getacch~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_user_kick_getacch~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
 <g id="module~~s_user_kick_getacch~~UsesGraph_edge1" class="edge">
 <title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M864.19,-193.07C847.2,-184.8 824.47,-173.72 805.83,-164.64"/>
-<polygon fill="#000000" stroke="#000000" points="807.3,-161.46 796.78,-160.23 804.23,-167.76 807.3,-161.46"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.93,-213.53C825.17,-212.03 816.32,-210.52 808.15,-209.12"/>
+<polygon fill="#000000" stroke="#000000" points="808.67,-205.66 798.23,-207.42 807.49,-212.56 808.67,-205.66"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_node9" class="node">
+<g id="module~~s_user_kick_getacch~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_user_kick_getacch~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_user_kick_getacch~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_user_kick_getacch~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_user_kick_getacch~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_user_kick_getacch~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_user_kick_getacch~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_user_kick_getacch~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_user_kick_getacch~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_user_kick_getacch~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_user_kick_getacch~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_user_kick_getacch~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge6" class="edge">
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_user_kick_getacch~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_user_kick_getacch~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_user_kick_getacch~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_user_kick_getacch~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge7" class="edge">
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_user_kick_getacch~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_node8" class="node">
+<g id="module~~s_user_kick_getacch~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_user_kick_getacch~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_user_kick_getacch~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge8" class="edge">
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_user_kick_getacch~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_user_kick_getacch~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge12" class="edge">
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge14" class="edge">
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_user_kick_getacch~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_user_kick_getacch~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_user_kick_getacch~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_user_kick_getacch~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge21" class="edge">
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_user_kick_getacch~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_user_kick_getacch~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_user_kick_getacch~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_user_kick_getacch~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_append.html b/docs/module/s_util_append.html
index 9c460981e..f29cf4975 100644
--- a/docs/module/s_util_append.html
+++ b/docs/module/s_util_append.html
@@ -134,7 +134,7 @@ <h1>s_util_append
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.6% of total for modules and submodules.">210 statements</a>
+    title=" 1.2% of total for modules and submodules.">161 statements</a>
      </li> 
      
      
@@ -259,255 +259,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_util_append~~UsesGraph Pages: 1 -->
-<svg id="modules_util_appendUsesGraph" width="641pt" height="193pt"
- viewBox="0.00 0.00 641.00 193.34" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_util_append~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 273.8)">
+<svg id="modules_util_appendUsesGraph" width="641pt" height="188pt"
+ viewBox="0.00 0.00 641.00 187.87" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_util_append~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 265.94)">
 <title>module~~s_util_append~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.8 917,-273.8 917,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 917,-265.94 917,4 -4,4"/>
 <!-- module~s_util_append -->
 <g id="module~~s_util_append~~UsesGraph_node1" class="node">
 <title>module~s_util_append</title>
-<polygon fill="none" stroke="black" points="913,-217.16 834,-217.16 834,-193.16 913,-193.16 913,-217.16"/>
-<text text-anchor="middle" x="873.5" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_append</text>
+<polygon fill="none" stroke="black" points="913,-234.94 834,-234.94 834,-210.94 913,-210.94 913,-234.94"/>
+<text text-anchor="middle" x="873.5" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_append</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_util_append~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_util_append~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_append&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_append~~UsesGraph_edge2" class="edge">
 <title>module~s_util_append&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M844.24,-217.16C782.54,-241.67 631.52,-292.38 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.8,-234.75C792.71,-246.23 725.65,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_util_append~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_util_append~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_append&#45;&gt;module~swiftest -->
 <g id="module~~s_util_append~~UsesGraph_edge1" class="edge">
 <title>module~s_util_append&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M851.19,-193.07C836.93,-184.98 817.96,-174.22 802.16,-165.26"/>
-<polygon fill="#000000" stroke="#000000" points="803.71,-162.12 793.28,-160.23 800.25,-168.21 803.71,-162.12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.93,-215.27C825.43,-213.57 816.46,-211.79 808.06,-210.12"/>
+<polygon fill="#000000" stroke="#000000" points="808.67,-206.67 798.18,-208.15 807.3,-213.53 808.67,-206.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_util_append~~UsesGraph_node9" class="node">
+<g id="module~~s_util_append~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_util_append~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_util_append~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_append~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_append~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~helio_classes -->
-<g id="module~~s_util_append~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_util_append~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_append~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_util_append~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_util_append~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_util_append~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_util_append~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_util_append~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_util_append~~UsesGraph_edge6" class="edge">
+<g id="module~~s_util_append~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_util_append~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_util_append~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_append~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_util_append~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_util_append~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_util_append~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_append~~UsesGraph_edge7" class="edge">
+<g id="module~~s_util_append~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_util_append~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_append~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_append~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_util_append~~UsesGraph_node8" class="node">
+<g id="module~~s_util_append~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_util_append~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_util_append~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_util_append~~UsesGraph_edge8" class="edge">
+<g id="module~~s_util_append~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_append~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
-</g>
-<!-- module~whm_classes -->
-<g id="module~~s_util_append~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_util_append~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_util_append~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_append~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_append~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_util_append~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_append~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_append~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_append~~UsesGraph_edge12" class="edge">
+<g id="module~~s_util_append~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_append~~UsesGraph_edge14" class="edge">
+<g id="module~~s_util_append~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_append~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_append~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_append~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_append~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_append~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_append~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_append~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_append~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_append~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_append~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_append~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_append~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_util_append~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_util_append~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_append~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_util_append~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_append~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_append~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
@@ -662,7 +665,7 @@ <h2>Module Subroutines</h2>
         
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-util_append_arr_char_string"></span><h3>
-subroutine <a href='../proc/util_append_arr_char_string.html'>util_append_arr_char_string</a>(arr, source, lsource_mask)
+subroutine <a href='../proc/util_append_arr_char_string.html'>util_append_arr_char_string</a>(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -736,11 +739,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -761,7 +794,7 @@ <h4>Arguments</h4>
         
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-util_append_arr_dp"></span><h3>
-subroutine <a href='../proc/util_append_arr_dp.html'>util_append_arr_DP</a>(arr, source, lsource_mask)
+subroutine <a href='../proc/util_append_arr_dp.html'>util_append_arr_DP</a>(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -835,11 +868,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -860,7 +923,7 @@ <h4>Arguments</h4>
         
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-util_append_arr_dpvec"></span><h3>
-subroutine <a href='../proc/util_append_arr_dpvec.html'>util_append_arr_DPvec</a>(arr, source, lsource_mask)
+subroutine <a href='../proc/util_append_arr_dpvec.html'>util_append_arr_DPvec</a>(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -934,11 +997,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -959,7 +1052,7 @@ <h4>Arguments</h4>
         
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-util_append_arr_i4b"></span><h3>
-subroutine <a href='../proc/util_append_arr_i4b.html'>util_append_arr_I4B</a>(arr, source, lsource_mask)
+subroutine <a href='../proc/util_append_arr_i4b.html'>util_append_arr_I4B</a>(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -1033,11 +1126,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -1058,7 +1181,7 @@ <h4>Arguments</h4>
         
   <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="proc-util_append_arr_logical"></span><h3>
-subroutine <a href='../proc/util_append_arr_logical.html'>util_append_arr_logical</a>(arr, source, lsource_mask)
+subroutine <a href='../proc/util_append_arr_logical.html'>util_append_arr_logical</a>(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -1132,11 +1255,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -1238,7 +1391,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -1340,7 +1493,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -1442,7 +1595,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/module/s_util_coord.html b/docs/module/s_util_coord.html
index 091415956..eb6602dd7 100644
--- a/docs/module/s_util_coord.html
+++ b/docs/module/s_util_coord.html
@@ -134,7 +134,7 @@ <h1>s_util_coord
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for modules and submodules.">78 statements</a>
+    title=" 0.6% of total for modules and submodules.">74 statements</a>
      </li> 
      
      
@@ -251,255 +251,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_util_coord~~UsesGraph Pages: 1 -->
-<svg id="modules_util_coordUsesGraph" width="641pt" height="195pt"
- viewBox="0.00 0.00 641.00 195.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_util_coord~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 273.61)">
+<svg id="modules_util_coordUsesGraph" width="641pt" height="190pt"
+ viewBox="0.00 0.00 641.00 189.73" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_util_coord~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 265.94)">
 <title>module~~s_util_coord~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.61 908,-273.61 908,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 908,-265.94 908,4 -4,4"/>
 <!-- module~s_util_coord -->
 <g id="module~~s_util_coord~~UsesGraph_node1" class="node">
 <title>module~s_util_coord</title>
-<polygon fill="none" stroke="black" points="904,-217.16 834,-217.16 834,-193.16 904,-193.16 904,-217.16"/>
-<text text-anchor="middle" x="869" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_coord</text>
+<polygon fill="none" stroke="black" points="904,-234.94 834,-234.94 834,-210.94 904,-210.94 904,-234.94"/>
+<text text-anchor="middle" x="869" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_coord</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_util_coord~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_util_coord~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_coord&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_coord~~UsesGraph_edge2" class="edge">
 <title>module~s_util_coord&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M839.64,-217.28C778.42,-241.73 629.75,-291.88 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.8,-233.7C794.03,-245.24 726.18,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_util_coord~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_util_coord~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_coord&#45;&gt;module~swiftest -->
 <g id="module~~s_util_coord~~UsesGraph_edge1" class="edge">
 <title>module~s_util_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M847.64,-193.07C834.15,-185.06 816.24,-174.43 801.23,-165.52"/>
-<polygon fill="#000000" stroke="#000000" points="802.72,-162.33 792.33,-160.23 799.14,-168.34 802.72,-162.33"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.88,-215.83C825.53,-214.09 816.56,-212.23 808.12,-210.47"/>
+<polygon fill="#000000" stroke="#000000" points="808.66,-207 798.16,-208.39 807.24,-213.86 808.66,-207"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_util_coord~~UsesGraph_node9" class="node">
+<g id="module~~s_util_coord~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_util_coord~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_util_coord~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_coord~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_coord~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_util_coord~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_util_coord~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_coord~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_util_coord~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_util_coord~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_util_coord~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_util_coord~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_util_coord~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_util_coord~~UsesGraph_edge6" class="edge">
+<g id="module~~s_util_coord~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_util_coord~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_util_coord~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_coord~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_util_coord~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_util_coord~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_util_coord~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_coord~~UsesGraph_edge7" class="edge">
+<g id="module~~s_util_coord~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_util_coord~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_coord~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_coord~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_util_coord~~UsesGraph_node8" class="node">
+<g id="module~~s_util_coord~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_util_coord~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_util_coord~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_util_coord~~UsesGraph_edge8" class="edge">
+<g id="module~~s_util_coord~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_coord~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_util_coord~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_util_coord~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_util_coord~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_coord~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_coord~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_util_coord~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_coord~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_coord~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_coord~~UsesGraph_edge12" class="edge">
+<g id="module~~s_util_coord~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_coord~~UsesGraph_edge14" class="edge">
+<g id="module~~s_util_coord~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_coord~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_coord~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_coord~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_coord~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_coord~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_coord~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_coord~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_coord~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_coord~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_coord~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_coord~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_coord~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_util_coord~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_util_coord~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_coord~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_util_coord~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_coord~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_coord~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_copy.html b/docs/module/s_util_copy.html
index 386a9f2be..9407d19d4 100644
--- a/docs/module/s_util_copy.html
+++ b/docs/module/s_util_copy.html
@@ -245,255 +245,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_util_copy~~UsesGraph Pages: 1 -->
-<svg id="modules_util_copyUsesGraph" width="641pt" height="196pt"
- viewBox="0.00 0.00 641.00 195.92" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_util_copy~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 273.53)">
+<svg id="modules_util_copyUsesGraph" width="641pt" height="191pt"
+ viewBox="0.00 0.00 641.00 190.56" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_util_copy~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 265.94)">
 <title>module~~s_util_copy~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.53 904,-273.53 904,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 904,-265.94 904,4 -4,4"/>
 <!-- module~s_util_copy -->
 <g id="module~~s_util_copy~~UsesGraph_node1" class="node">
 <title>module~s_util_copy</title>
-<polygon fill="none" stroke="black" points="900,-217.16 834,-217.16 834,-193.16 900,-193.16 900,-217.16"/>
-<text text-anchor="middle" x="867" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_copy</text>
+<polygon fill="none" stroke="black" points="900,-234.94 834,-234.94 834,-210.94 900,-210.94 900,-234.94"/>
+<text text-anchor="middle" x="867" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_copy</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_util_copy~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_util_copy~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_copy&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_copy~~UsesGraph_edge2" class="edge">
 <title>module~s_util_copy&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M837.8,-217.25C776.92,-241.65 629.09,-291.7 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.9,-233.19C794.78,-244.74 726.49,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_util_copy~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_util_copy~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_copy&#45;&gt;module~swiftest -->
 <g id="module~~s_util_copy~~UsesGraph_edge1" class="edge">
 <title>module~s_util_copy&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M846.07,-193.07C832.85,-185.06 815.32,-174.43 800.62,-165.52"/>
-<polygon fill="#000000" stroke="#000000" points="802.27,-162.42 791.91,-160.23 798.64,-168.41 802.27,-162.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.91,-216.11C825.59,-214.34 816.58,-212.43 808.07,-210.62"/>
+<polygon fill="#000000" stroke="#000000" points="808.54,-207.14 798.03,-208.48 807.08,-213.98 808.54,-207.14"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_util_copy~~UsesGraph_node9" class="node">
+<g id="module~~s_util_copy~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_util_copy~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_util_copy~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_copy~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_copy~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_util_copy~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_util_copy~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_copy~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_util_copy~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_util_copy~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_util_copy~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_util_copy~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_util_copy~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_util_copy~~UsesGraph_edge6" class="edge">
+<g id="module~~s_util_copy~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_util_copy~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_util_copy~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_copy~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_util_copy~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_util_copy~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_util_copy~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_copy~~UsesGraph_edge7" class="edge">
+<g id="module~~s_util_copy~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_util_copy~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_copy~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_copy~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_util_copy~~UsesGraph_node8" class="node">
+<g id="module~~s_util_copy~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_util_copy~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_util_copy~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_util_copy~~UsesGraph_edge8" class="edge">
+<g id="module~~s_util_copy~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_copy~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_util_copy~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_util_copy~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_util_copy~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_copy~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_copy~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_util_copy~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_copy~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_copy~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_copy~~UsesGraph_edge12" class="edge">
+<g id="module~~s_util_copy~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_copy~~UsesGraph_edge14" class="edge">
+<g id="module~~s_util_copy~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_copy~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_copy~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_copy~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_copy~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_copy~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_copy~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_copy~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_copy~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_copy~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_copy~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_copy~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_copy~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_util_copy~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_util_copy~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_copy~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_util_copy~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_copy~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_copy~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_exit.html b/docs/module/s_util_exit.html
index 44e995895..f0fc4d395 100644
--- a/docs/module/s_util_exit.html
+++ b/docs/module/s_util_exit.html
@@ -245,255 +245,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_util_exit~~UsesGraph Pages: 1 -->
-<svg id="modules_util_exitUsesGraph" width="641pt" height="197pt"
- viewBox="0.00 0.00 641.00 197.13" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_util_exit~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 273.4)">
+<svg id="modules_util_exitUsesGraph" width="641pt" height="192pt"
+ viewBox="0.00 0.00 641.00 191.83" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_util_exit~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 265.94)">
 <title>module~~s_util_exit~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.4 898,-273.4 898,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 898,-265.94 898,4 -4,4"/>
 <!-- module~s_util_exit -->
 <g id="module~~s_util_exit~~UsesGraph_node1" class="node">
 <title>module~s_util_exit</title>
-<polygon fill="none" stroke="black" points="894,-217.16 834,-217.16 834,-193.16 894,-193.16 894,-217.16"/>
-<text text-anchor="middle" x="864" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_exit</text>
+<polygon fill="none" stroke="black" points="894,-234.94 834,-234.94 834,-210.94 894,-210.94 894,-234.94"/>
+<text text-anchor="middle" x="864" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_exit</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_util_exit~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_util_exit~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_exit&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_exit~~UsesGraph_edge2" class="edge">
 <title>module~s_util_exit&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M835.04,-217.21C774.68,-241.53 628.11,-291.42 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.73,-232.48C795.65,-244.03 726.84,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_util_exit~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_util_exit~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_exit&#45;&gt;module~swiftest -->
 <g id="module~~s_util_exit~~UsesGraph_edge1" class="edge">
 <title>module~s_util_exit&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M843.7,-193.07C831.03,-185.14 814.25,-174.63 800.11,-165.77"/>
-<polygon fill="#000000" stroke="#000000" points="801.6,-162.57 791.27,-160.23 797.89,-168.5 801.6,-162.57"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.96,-216.56C825.73,-214.75 816.68,-212.76 808.09,-210.87"/>
+<polygon fill="#000000" stroke="#000000" points="808.82,-207.45 798.3,-208.72 807.32,-214.29 808.82,-207.45"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_util_exit~~UsesGraph_node9" class="node">
+<g id="module~~s_util_exit~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_util_exit~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_util_exit~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_exit~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_exit~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_util_exit~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_util_exit~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_exit~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_util_exit~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_util_exit~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_util_exit~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_util_exit~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_util_exit~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_util_exit~~UsesGraph_edge6" class="edge">
+<g id="module~~s_util_exit~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_util_exit~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_util_exit~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_exit~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_util_exit~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_util_exit~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_util_exit~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_exit~~UsesGraph_edge7" class="edge">
+<g id="module~~s_util_exit~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_util_exit~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_exit~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_exit~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_util_exit~~UsesGraph_node8" class="node">
+<g id="module~~s_util_exit~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_util_exit~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_util_exit~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_util_exit~~UsesGraph_edge8" class="edge">
+<g id="module~~s_util_exit~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_exit~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_util_exit~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_util_exit~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_util_exit~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_exit~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_exit~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_util_exit~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_exit~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_exit~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_exit~~UsesGraph_edge12" class="edge">
+<g id="module~~s_util_exit~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_exit~~UsesGraph_edge14" class="edge">
+<g id="module~~s_util_exit~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_exit~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_exit~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_exit~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_exit~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_exit~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_exit~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_exit~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_exit~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_exit~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_exit~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_exit~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_exit~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_util_exit~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_util_exit~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_exit~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_util_exit~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_exit~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_exit~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_fill.html b/docs/module/s_util_fill.html
index e8b14a283..c6a263c97 100644
--- a/docs/module/s_util_fill.html
+++ b/docs/module/s_util_fill.html
@@ -259,255 +259,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_util_fill~~UsesGraph Pages: 1 -->
-<svg id="modules_util_fillUsesGraph" width="641pt" height="198pt"
- viewBox="0.00 0.00 641.00 198.38" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_util_fill~~UsesGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 273.3)">
+<svg id="modules_util_fillUsesGraph" width="641pt" height="193pt"
+ viewBox="0.00 0.00 641.00 193.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_util_fill~~UsesGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 265.94)">
 <title>module~~s_util_fill~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.3 892,-273.3 892,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 892,-265.94 892,4 -4,4"/>
 <!-- module~s_util_fill -->
 <g id="module~~s_util_fill~~UsesGraph_node1" class="node">
 <title>module~s_util_fill</title>
-<polygon fill="none" stroke="black" points="888,-217.16 834,-217.16 834,-193.16 888,-193.16 888,-217.16"/>
-<text text-anchor="middle" x="861" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_fill</text>
+<polygon fill="none" stroke="black" points="888,-234.94 834,-234.94 834,-210.94 888,-210.94 888,-234.94"/>
+<text text-anchor="middle" x="861" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_fill</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_util_fill~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_util_fill~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_fill&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_fill~~UsesGraph_edge2" class="edge">
 <title>module~s_util_fill&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M833.63,-216.62C774.65,-240.64 628.02,-291.39 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.73,-231.69C796.83,-243.19 727.33,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_util_fill~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_util_fill~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_fill&#45;&gt;module~swiftest -->
 <g id="module~~s_util_fill~~UsesGraph_edge1" class="edge">
 <title>module~s_util_fill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M841.34,-193.07C829.09,-185.14 812.86,-174.63 799.19,-165.77"/>
-<polygon fill="#000000" stroke="#000000" points="800.93,-162.73 790.64,-160.23 797.13,-168.6 800.93,-162.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.6,-216.94C825.52,-215.1 816.49,-213.05 807.9,-211.1"/>
+<polygon fill="#000000" stroke="#000000" points="808.61,-207.67 798.08,-208.87 807.06,-214.5 808.61,-207.67"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_util_fill~~UsesGraph_node9" class="node">
+<g id="module~~s_util_fill~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_util_fill~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_util_fill~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_fill~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_fill~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_util_fill~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_util_fill~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_fill~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_util_fill~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_util_fill~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_util_fill~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_util_fill~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_util_fill~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_util_fill~~UsesGraph_edge6" class="edge">
+<g id="module~~s_util_fill~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_util_fill~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_util_fill~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_fill~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_util_fill~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_util_fill~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_util_fill~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_fill~~UsesGraph_edge7" class="edge">
+<g id="module~~s_util_fill~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_util_fill~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_fill~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_fill~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_util_fill~~UsesGraph_node8" class="node">
+<g id="module~~s_util_fill~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_util_fill~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_util_fill~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_util_fill~~UsesGraph_edge8" class="edge">
+<g id="module~~s_util_fill~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_fill~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_util_fill~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_util_fill~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_util_fill~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_fill~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_fill~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_util_fill~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_fill~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_fill~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_fill~~UsesGraph_edge12" class="edge">
+<g id="module~~s_util_fill~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_fill~~UsesGraph_edge14" class="edge">
+<g id="module~~s_util_fill~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_fill~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_fill~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_fill~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_fill~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_fill~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_fill~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_fill~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_fill~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_fill~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_fill~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_fill~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_fill~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_util_fill~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_util_fill~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_fill~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_util_fill~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_fill~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_fill~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_get_energy_momentum.html b/docs/module/s_util_get_energy_momentum.html
index 63a6339fc..4277d8a5f 100644
--- a/docs/module/s_util_get_energy_momentum.html
+++ b/docs/module/s_util_get_energy_momentum.html
@@ -134,7 +134,7 @@ <h1>s_util_get_energy_momentum
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for modules and submodules.">84 statements</a>
+    title=" 0.8% of total for modules and submodules.">101 statements</a>
      </li> 
      
      
@@ -245,255 +245,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_util_get_energy_momentum~~UsesGraph Pages: 1 -->
-<svg id="modules_util_get_energy_momentumUsesGraph" width="641pt" height="179pt"
- viewBox="0.00 0.00 641.00 179.29" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_util_get_energy_momentum~~UsesGraph" class="graph" transform="scale(0.64 0.64) rotate(0) translate(4 275.43)">
+<svg id="modules_util_get_energy_momentumUsesGraph" width="641pt" height="173pt"
+ viewBox="0.00 0.00 641.00 173.21" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_util_get_energy_momentum~~UsesGraph" class="graph" transform="scale(0.64 0.64) rotate(0) translate(4 265.94)">
 <title>module~~s_util_get_energy_momentum~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-275.43 995,-275.43 995,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 995,-265.94 995,4 -4,4"/>
 <!-- module~s_util_get_energy_momentum -->
 <g id="module~~s_util_get_energy_momentum~~UsesGraph_node1" class="node">
 <title>module~s_util_get_energy_momentum</title>
-<polygon fill="none" stroke="black" points="991,-217.16 834,-217.16 834,-193.16 991,-193.16 991,-217.16"/>
-<text text-anchor="middle" x="912.5" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_get_energy_momentum</text>
+<polygon fill="none" stroke="black" points="991,-234.94 834,-234.94 834,-210.94 991,-210.94 991,-234.94"/>
+<text text-anchor="middle" x="912.5" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_get_energy_momentum</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_util_get_energy_momentum~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_get_energy_momentum~~UsesGraph_edge2" class="edge">
 <title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M881.45,-217.23C813.85,-242.62 645.18,-296.23 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M864.43,-234.96C815.36,-246.42 736.06,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_util_get_energy_momentum~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
 <g id="module~~s_util_get_energy_momentum~~UsesGraph_edge1" class="edge">
 <title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M881.92,-193.07C860.22,-184.21 830.66,-172.13 807.66,-162.73"/>
-<polygon fill="#000000" stroke="#000000" points="808.83,-159.43 798.25,-158.88 806.18,-165.91 808.83,-159.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M834,-211.83C825.02,-210.54 816.21,-209.28 808.18,-208.13"/>
+<polygon fill="#000000" stroke="#000000" points="808.52,-204.64 798.12,-206.69 807.52,-211.57 808.52,-204.64"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_node9" class="node">
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_get_energy_momentum~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_get_energy_momentum~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_get_energy_momentum~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_util_get_energy_momentum~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_util_get_energy_momentum~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_util_get_energy_momentum~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge6" class="edge">
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_util_get_energy_momentum~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge7" class="edge">
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_node8" class="node">
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge8" class="edge">
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge12" class="edge">
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge14" class="edge">
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_get_energy_momentum~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_get_energy_momentum~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_get_energy_momentum~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_get_energy_momentum~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_util_get_energy_momentum~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_util_get_energy_momentum~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_get_energy_momentum~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_minimize_bfgs.html b/docs/module/s_util_minimize_bfgs.html
index 5a3a0a1f5..310dccb95 100644
--- a/docs/module/s_util_minimize_bfgs.html
+++ b/docs/module/s_util_minimize_bfgs.html
@@ -245,255 +245,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_util_minimize_bfgs~~UsesGraph Pages: 1 -->
-<svg id="modules_util_minimize_bfgsUsesGraph" width="641pt" height="187pt"
- viewBox="0.00 0.00 641.00 187.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_util_minimize_bfgs~~UsesGraph" class="graph" transform="scale(0.67 0.67) rotate(0) translate(4 274.49)">
+<svg id="modules_util_minimize_bfgsUsesGraph" width="641pt" height="181pt"
+ viewBox="0.00 0.00 641.00 181.38" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_util_minimize_bfgs~~UsesGraph" class="graph" transform="scale(0.67 0.67) rotate(0) translate(4 265.94)">
 <title>module~~s_util_minimize_bfgs~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-274.49 950,-274.49 950,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 950,-265.94 950,4 -4,4"/>
 <!-- module~s_util_minimize_bfgs -->
 <g id="module~~s_util_minimize_bfgs~~UsesGraph_node1" class="node">
 <title>module~s_util_minimize_bfgs</title>
-<polygon fill="none" stroke="black" points="946,-217.16 834,-217.16 834,-193.16 946,-193.16 946,-217.16"/>
-<text text-anchor="middle" x="890" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_minimize_bfgs</text>
+<polygon fill="none" stroke="black" points="946,-234.94 834,-234.94 834,-210.94 946,-210.94 946,-234.94"/>
+<text text-anchor="middle" x="890" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_minimize_bfgs</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_util_minimize_bfgs~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_minimize_bfgs~~UsesGraph_edge2" class="edge">
 <title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M859.93,-217.2C795.69,-242.09 637.26,-294 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M846.32,-234.96C801.81,-246.42 729.84,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_util_minimize_bfgs~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
 <g id="module~~s_util_minimize_bfgs~~UsesGraph_edge1" class="edge">
 <title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M864.19,-193.07C847.2,-184.8 824.47,-173.72 805.83,-164.64"/>
-<polygon fill="#000000" stroke="#000000" points="807.3,-161.46 796.78,-160.23 804.23,-167.76 807.3,-161.46"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.93,-213.53C825.17,-212.03 816.32,-210.52 808.15,-209.12"/>
+<polygon fill="#000000" stroke="#000000" points="808.67,-205.66 798.23,-207.42 807.49,-212.56 808.67,-205.66"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_node9" class="node">
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_minimize_bfgs~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_minimize_bfgs~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_minimize_bfgs~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_util_minimize_bfgs~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_util_minimize_bfgs~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_util_minimize_bfgs~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge6" class="edge">
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_util_minimize_bfgs~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge7" class="edge">
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_node8" class="node">
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge8" class="edge">
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge12" class="edge">
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge14" class="edge">
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_minimize_bfgs~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_minimize_bfgs~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_minimize_bfgs~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_minimize_bfgs~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_util_minimize_bfgs~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_util_minimize_bfgs~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_minimize_bfgs~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_peri.html b/docs/module/s_util_peri.html
index 58445004d..32409b543 100644
--- a/docs/module/s_util_peri.html
+++ b/docs/module/s_util_peri.html
@@ -245,255 +245,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_util_peri~~UsesGraph Pages: 1 -->
-<svg id="modules_util_periUsesGraph" width="641pt" height="197pt"
- viewBox="0.00 0.00 641.00 196.93" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_util_peri~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 273.42)">
+<svg id="modules_util_periUsesGraph" width="641pt" height="192pt"
+ viewBox="0.00 0.00 641.00 191.62" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_util_peri~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 265.94)">
 <title>module~~s_util_peri~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.42 899,-273.42 899,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 899,-265.94 899,4 -4,4"/>
 <!-- module~s_util_peri -->
 <g id="module~~s_util_peri~~UsesGraph_node1" class="node">
 <title>module~s_util_peri</title>
-<polygon fill="none" stroke="black" points="895,-217.16 834,-217.16 834,-193.16 895,-193.16 895,-217.16"/>
-<text text-anchor="middle" x="864.5" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_peri</text>
+<polygon fill="none" stroke="black" points="895,-234.94 834,-234.94 834,-210.94 895,-210.94 895,-234.94"/>
+<text text-anchor="middle" x="864.5" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_peri</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_util_peri~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_util_peri~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_peri&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_peri~~UsesGraph_edge2" class="edge">
 <title>module~s_util_peri&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M835.5,-217.22C775.06,-241.55 628.27,-291.47 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.82,-232.58C795.58,-244.13 726.82,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_util_peri~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_util_peri~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_peri&#45;&gt;module~swiftest -->
 <g id="module~~s_util_peri~~UsesGraph_edge1" class="edge">
 <title>module~s_util_peri&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M844.1,-193.07C831.36,-185.14 814.49,-174.63 800.27,-165.77"/>
-<polygon fill="#000000" stroke="#000000" points="801.72,-162.55 791.38,-160.23 798.01,-168.49 801.72,-162.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.79,-216.45C825.63,-214.66 816.69,-212.71 808.21,-210.85"/>
+<polygon fill="#000000" stroke="#000000" points="808.69,-207.38 798.17,-208.66 807.19,-214.22 808.69,-207.38"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_util_peri~~UsesGraph_node9" class="node">
+<g id="module~~s_util_peri~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_util_peri~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_util_peri~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_peri~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_peri~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_util_peri~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_util_peri~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_peri~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_util_peri~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_util_peri~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_util_peri~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_util_peri~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_util_peri~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_util_peri~~UsesGraph_edge6" class="edge">
+<g id="module~~s_util_peri~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_util_peri~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_util_peri~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_peri~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_util_peri~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_util_peri~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_util_peri~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_peri~~UsesGraph_edge7" class="edge">
+<g id="module~~s_util_peri~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_util_peri~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_peri~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_peri~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_util_peri~~UsesGraph_node8" class="node">
+<g id="module~~s_util_peri~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_util_peri~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_util_peri~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_util_peri~~UsesGraph_edge8" class="edge">
+<g id="module~~s_util_peri~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_peri~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_util_peri~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_util_peri~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_util_peri~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_peri~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_peri~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_util_peri~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_peri~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_peri~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_peri~~UsesGraph_edge12" class="edge">
+<g id="module~~s_util_peri~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_peri~~UsesGraph_edge14" class="edge">
+<g id="module~~s_util_peri~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_peri~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_peri~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_peri~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_peri~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_peri~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_peri~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_peri~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_peri~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_peri~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_peri~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_peri~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_peri~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_util_peri~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_util_peri~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_peri~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_util_peri~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_peri~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_peri~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_rescale.html b/docs/module/s_util_rescale.html
new file mode 100644
index 000000000..a5b5ff320
--- /dev/null
+++ b/docs/module/s_util_rescale.html
@@ -0,0 +1,830 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   
+   <meta name="description" content="Swiftest - The Fastest Symplectic Massive Body Integrator in the West (someday, hopefully)">
+    
+    <meta name="author" content="David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>s_util_rescale &ndash; swiftest</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+    
+    
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">swiftest </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+        
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+          
+              
+            <li><a href="../lists/files.html">Source Files</a></li>
+        
+        
+        
+            <li><a href="../lists/modules.html">Modules</a></li>
+        
+            
+                                
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+        
+        
+            <li><a href="../lists/absint.html">Abstract Interfaces</a></li>
+               
+            <li><a href="../lists/types.html">Derived Types</a></li>
+        
+        
+            <li><a href="../program/swiftest_driver.html">Program</a></li>
+      
+            </ul>
+            </li>
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/absint.html">Abstract Interfaces</a></li>
+                             
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../program/swiftest_driver.html">Program</a></li>
+
+          </ul>
+        
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+    
+  
+  <div class="row">
+    <h1>s_util_rescale 
+    <small>Submodule</small>
+    
+    </h1>
+    
+<div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+     
+     
+     
+     
+    
+    
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title=" 0.3% of total for modules and submodules.">35 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_rescale.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/util_rescale.f90.html'>util_rescale.f90</a></li>
+    
+  
+     <li class="active">s_util_rescale</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    
+<div id="sidebar">
+  
+<h3>Contents</h3>
+ 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#modsubs-0">Module Subroutines</a></h3></div>
+  <div id="modsubs-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/s_util_rescale.html#proc-util_rescale_system">util_rescale_system</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+    
+      <br>
+    
+  
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Uses</h3>
+      </div>
+      <ul class="list-group">
+      
+      <li class="list-group-item">
+  <ul class="list-inline">
+    
+    <li><a href='../module/swiftest.html'>swiftest</a></li>
+    
+  </ul>
+      </li>
+      
+      
+      <li class="list-group-item">
+  <ul class="list-inline">
+    <li><h5>Ancestors:</h5></li>
+    
+    <li><a href='../module/swiftest_classes.html'>swiftest_classes</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.47.1 (20210417.1919)
+ -->
+<!-- Title: module~~s_util_rescale~~UsesGraph Pages: 1 -->
+<svg id="modules_util_rescaleUsesGraph" width="641pt" height="188pt"
+ viewBox="0.00 0.00 641.00 188.08" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_util_rescale~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 265.94)">
+<title>module~~s_util_rescale~~UsesGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 916,-265.94 916,4 -4,4"/>
+<!-- module~s_util_rescale -->
+<g id="module~~s_util_rescale~~UsesGraph_node1" class="node">
+<title>module~s_util_rescale</title>
+<polygon fill="none" stroke="black" points="912,-234.94 834,-234.94 834,-210.94 912,-210.94 912,-234.94"/>
+<text text-anchor="middle" x="873" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_rescale</text>
+</g>
+<!-- module~swiftest_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_node2" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_rescale&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge2" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M833.78,-234.64C792.82,-246.13 725.69,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
+</g>
+<!-- module~swiftest -->
+<g id="module~~s_util_rescale~~UsesGraph_node3" class="node">
+<title>module~swiftest</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<g id="module~~s_util_rescale~~UsesGraph_edge1" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.91,-215.32C825.43,-213.63 816.47,-211.84 808.08,-210.16"/>
+<polygon fill="#000000" stroke="#000000" points="808.69,-206.71 798.2,-208.18 807.32,-213.57 808.69,-206.71"/>
+</g>
+<!-- module~swiftest_globals -->
+<g id="module~~s_util_rescale~~UsesGraph_node4" class="node">
+<title>module~swiftest_globals</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_rescale~~UsesGraph_edge3" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_rescale~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
+</g>
+<!-- module~lambda_function -->
+<g id="module~~s_util_rescale~~UsesGraph_node5" class="node">
+<title>module~lambda_function</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~lambda_function -->
+<g id="module~~s_util_rescale~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~lambda_function</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
+</g>
+<!-- module~swiftest_operators -->
+<g id="module~~s_util_rescale~~UsesGraph_node6" class="node">
+<title>module~swiftest_operators</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~s_util_rescale~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
+</g>
+<!-- module~helio_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_node8" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
+</g>
+<!-- module~symba_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_node10" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
+</g>
+<!-- iso_fortran_env -->
+<g id="module~~s_util_rescale~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_rescale~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_util_rescale~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_rescale~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_rescale~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge17" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_rescale~~UsesGraph_edge15" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge16" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_rescale~~UsesGraph_edge18" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge19" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
+</g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_rescale~~UsesGraph_edge20" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_rescale~~UsesGraph_edge22" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_util_rescale~~UsesGraph_edge23" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
+</g>
+</g>
+</svg>
+</div><script>var panmodules_util_rescaleUsesGraph = svgPanZoom('#modules_util_rescaleUsesGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?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.47.1 (20210417.1919)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="490pt" height="32pt"
+ viewBox="0.00 0.00 489.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)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 485.5,-28 485.5,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>
+</g>
+<!-- Submodule -->
+<g id="node2" class="node">
+<title>Submodule</title>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="139.5,-24 72.5,-24 72.5,0 139.5,0 139.5,-24"/>
+<text text-anchor="middle" x="106" y="-9.6" 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="222,-24 158,-24 158,0 222,0 222,-24"/>
+<text text-anchor="middle" x="190" y="-9.6" 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="294,-24 240,-24 240,0 294,0 294,-24"/>
+<text text-anchor="middle" x="267" y="-9.6" 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="366,-24 312,-24 312,0 366,0 366,-24"/>
+<text text-anchor="middle" x="339" y="-9.6" 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="481.5,-24 384.5,-24 384.5,0 481.5,0 481.5,-24"/>
+<text text-anchor="middle" x="433" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a submodule to the (sub)module which it is
+    descended from. Dashed arrows point from a module or program unit to 
+    modules which it uses.
+    </p>
+    </div></div></div></div>
+      </li>
+      
+      </ul>
+    </div>
+    
+
+    
+    
+
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      
+<h3>Contents</h3>
+ 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#modsubs-1">Module Subroutines</a></h3></div>
+  <div id="modsubs-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/s_util_rescale.html#proc-util_rescale_system">util_rescale_system</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+
+    
+    
+    
+    
+    
+
+    
+    
+    
+    
+    
+
+    
+    
+    
+    
+        
+
+        
+        <section>
+        <h2>Module Subroutines</h2>
+        
+        
+  <div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_rescale_system"></span><h3>
+module subroutine <a href='../proc/util_rescale_system.html'>util_rescale_system</a>(self, param, mscale, dscale, tscale)
+    
+    
+   <a href='../interface/util_rescale_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h3></div>
+  <div class="panel-body">
+       
+    
+
+
+
+
+
+  <dl class="dl-horizontal">
+    
+    <dt>Author</dt><dd>David A. Minton</dd>
+    
+    
+    
+    
+    
+  </dl>
+
+
+
+<p>Rescales an nbody system to a new set of units. Inputs are the multipliers on the mass (mscale), distance (dscale), and time units (tscale). 
+ Rescales all united quantities in the system, as well as the mass conversion factors, gravitational constant, and Einstein's constant in the parameter object.</p>
+    
+    <h4>Arguments</h4>
+    
+      
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters. Returns with new values of the scale vactors and GU</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>mscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>tscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+  </div>
+  </div>
+
+        
+        </section>
+        <br>
+        
+
+        
+    
+    
+    </div>
+  </div>
+
+  
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-4"><p>&copy; 2021 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+                                          </p></div>
+        <div class="col-xs-6 col-md-4 col-md-push-4">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/cmacmackin/ford">FORD</a>
+            
+          </p>
+        </div>
+        <div class="col-xs-12 col-md-4 col-md-pull-4"><p class="text-center"> swiftest was developed by David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</p></div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/docs/module/s_util_resize.html b/docs/module/s_util_resize.html
index 7f4c2b206..997723cc8 100644
--- a/docs/module/s_util_resize.html
+++ b/docs/module/s_util_resize.html
@@ -261,255 +261,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_util_resize~~UsesGraph Pages: 1 -->
-<svg id="modules_util_resizeUsesGraph" width="641pt" height="195pt"
- viewBox="0.00 0.00 641.00 194.72" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_util_resize~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 273.65)">
+<svg id="modules_util_resizeUsesGraph" width="641pt" height="189pt"
+ viewBox="0.00 0.00 641.00 189.31" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_util_resize~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 265.94)">
 <title>module~~s_util_resize~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.65 910,-273.65 910,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 910,-265.94 910,4 -4,4"/>
 <!-- module~s_util_resize -->
 <g id="module~~s_util_resize~~UsesGraph_node1" class="node">
 <title>module~s_util_resize</title>
-<polygon fill="none" stroke="black" points="906,-217.16 834,-217.16 834,-193.16 906,-193.16 906,-217.16"/>
-<text text-anchor="middle" x="870" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_resize</text>
+<polygon fill="none" stroke="black" points="906,-234.94 834,-234.94 834,-210.94 906,-210.94 906,-234.94"/>
+<text text-anchor="middle" x="870" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_resize</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_util_resize~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_util_resize~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_resize&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_resize~~UsesGraph_edge2" class="edge">
 <title>module~s_util_resize&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M840.56,-217.3C779.16,-241.78 630.07,-291.97 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.91,-233.91C793.84,-245.44 726.11,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_util_resize~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_util_resize~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_resize&#45;&gt;module~swiftest -->
 <g id="module~~s_util_resize~~UsesGraph_edge1" class="edge">
 <title>module~s_util_resize&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M848.43,-193.07C834.8,-185.06 816.7,-174.43 801.54,-165.52"/>
-<polygon fill="#000000" stroke="#000000" points="802.94,-162.28 792.54,-160.23 799.39,-168.31 802.94,-162.28"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.98,-215.72C825.57,-213.99 816.57,-212.13 808.11,-210.39"/>
+<polygon fill="#000000" stroke="#000000" points="808.64,-206.92 798.14,-208.33 807.22,-213.78 808.64,-206.92"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_util_resize~~UsesGraph_node9" class="node">
+<g id="module~~s_util_resize~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_util_resize~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_util_resize~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_resize~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_resize~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_util_resize~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_util_resize~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_resize~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_util_resize~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_util_resize~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_util_resize~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_util_resize~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_util_resize~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_util_resize~~UsesGraph_edge6" class="edge">
+<g id="module~~s_util_resize~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_util_resize~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_util_resize~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_resize~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_util_resize~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_util_resize~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_util_resize~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_resize~~UsesGraph_edge7" class="edge">
+<g id="module~~s_util_resize~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_util_resize~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_resize~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_resize~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_util_resize~~UsesGraph_node8" class="node">
+<g id="module~~s_util_resize~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_util_resize~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_util_resize~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_util_resize~~UsesGraph_edge8" class="edge">
+<g id="module~~s_util_resize~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_resize~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_util_resize~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_util_resize~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_util_resize~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_resize~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_resize~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_util_resize~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_resize~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_resize~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_resize~~UsesGraph_edge12" class="edge">
+<g id="module~~s_util_resize~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_resize~~UsesGraph_edge14" class="edge">
+<g id="module~~s_util_resize~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_resize~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_resize~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_resize~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_resize~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_resize~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_resize~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_resize~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_resize~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_resize~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_resize~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_resize~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_resize~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_util_resize~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_util_resize~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_resize~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_util_resize~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_resize~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_resize~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_set.html b/docs/module/s_util_set.html
index 89ec8c4ab..903d339ba 100644
--- a/docs/module/s_util_set.html
+++ b/docs/module/s_util_set.html
@@ -259,255 +259,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_util_set~~UsesGraph Pages: 1 -->
-<svg id="modules_util_setUsesGraph" width="641pt" height="198pt"
- viewBox="0.00 0.00 641.00 197.54" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_util_set~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 273.36)">
+<svg id="modules_util_setUsesGraph" width="641pt" height="192pt"
+ viewBox="0.00 0.00 641.00 192.26" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_util_set~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 265.94)">
 <title>module~~s_util_set~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.36 896,-273.36 896,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 896,-265.94 896,4 -4,4"/>
 <!-- module~s_util_set -->
 <g id="module~~s_util_set~~UsesGraph_node1" class="node">
 <title>module~s_util_set</title>
-<polygon fill="none" stroke="black" points="892,-217.16 834,-217.16 834,-193.16 892,-193.16 892,-217.16"/>
-<text text-anchor="middle" x="863" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_set</text>
+<polygon fill="none" stroke="black" points="892,-234.94 834,-234.94 834,-210.94 892,-210.94 892,-234.94"/>
+<text text-anchor="middle" x="863" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_set</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_util_set~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_util_set~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_set&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_set~~UsesGraph_edge2" class="edge">
 <title>module~s_util_set&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M834.12,-217.2C773.94,-241.48 627.78,-291.33 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.86,-232.18C796.18,-243.72 727.07,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_util_set~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_util_set~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_set&#45;&gt;module~swiftest -->
 <g id="module~~s_util_set~~UsesGraph_edge1" class="edge">
 <title>module~s_util_set&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M842.91,-193.07C830.38,-185.14 813.79,-174.63 799.8,-165.77"/>
-<polygon fill="#000000" stroke="#000000" points="801.38,-162.62 791.06,-160.23 797.63,-168.54 801.38,-162.62"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.52,-216.61C825.47,-214.82 816.59,-212.85 808.15,-210.97"/>
+<polygon fill="#000000" stroke="#000000" points="808.67,-207.51 798.15,-208.75 807.16,-214.34 808.67,-207.51"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_util_set~~UsesGraph_node9" class="node">
+<g id="module~~s_util_set~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_util_set~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_util_set~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_set~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_set~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_util_set~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_util_set~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_set~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_util_set~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_util_set~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_util_set~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_util_set~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_util_set~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_util_set~~UsesGraph_edge6" class="edge">
+<g id="module~~s_util_set~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_util_set~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_util_set~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_set~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_util_set~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_util_set~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_util_set~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_set~~UsesGraph_edge7" class="edge">
+<g id="module~~s_util_set~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_util_set~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_set~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_set~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_util_set~~UsesGraph_node8" class="node">
+<g id="module~~s_util_set~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_util_set~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_util_set~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_util_set~~UsesGraph_edge8" class="edge">
+<g id="module~~s_util_set~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_set~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_util_set~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_util_set~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_util_set~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_set~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_set~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_util_set~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_set~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_set~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_set~~UsesGraph_edge12" class="edge">
+<g id="module~~s_util_set~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_set~~UsesGraph_edge14" class="edge">
+<g id="module~~s_util_set~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_set~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_set~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_set~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_set~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_set~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_set~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_set~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_set~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_set~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_set~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_set~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_set~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_util_set~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_util_set~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_set~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_util_set~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_set~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_set~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_solve.html b/docs/module/s_util_solve.html
index ff81c4588..dc238c18d 100644
--- a/docs/module/s_util_solve.html
+++ b/docs/module/s_util_solve.html
@@ -263,255 +263,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_util_solve~~UsesGraph Pages: 1 -->
-<svg id="modules_util_solveUsesGraph" width="641pt" height="196pt"
- viewBox="0.00 0.00 641.00 195.52" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_util_solve~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 273.57)">
+<svg id="modules_util_solveUsesGraph" width="641pt" height="190pt"
+ viewBox="0.00 0.00 641.00 190.15" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_util_solve~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 265.94)">
 <title>module~~s_util_solve~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.57 906,-273.57 906,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 906,-265.94 906,4 -4,4"/>
 <!-- module~s_util_solve -->
 <g id="module~~s_util_solve~~UsesGraph_node1" class="node">
 <title>module~s_util_solve</title>
-<polygon fill="none" stroke="black" points="902,-217.16 834,-217.16 834,-193.16 902,-193.16 902,-217.16"/>
-<text text-anchor="middle" x="868" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_solve</text>
+<polygon fill="none" stroke="black" points="902,-234.94 834,-234.94 834,-210.94 902,-210.94 902,-234.94"/>
+<text text-anchor="middle" x="868" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_solve</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_util_solve~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_util_solve~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_solve&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_solve~~UsesGraph_edge2" class="edge">
 <title>module~s_util_solve&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M838.72,-217.27C777.67,-241.69 629.42,-291.79 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.68,-233.49C794.21,-245.04 726.25,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_util_solve~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_util_solve~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_solve&#45;&gt;module~swiftest -->
 <g id="module~~s_util_solve~~UsesGraph_edge1" class="edge">
 <title>module~s_util_solve&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M846.85,-193.07C833.5,-185.06 815.78,-174.43 800.93,-165.52"/>
-<polygon fill="#000000" stroke="#000000" points="802.49,-162.37 792.12,-160.23 798.89,-168.38 802.49,-162.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.77,-215.95C825.48,-214.2 816.55,-212.32 808.12,-210.55"/>
+<polygon fill="#000000" stroke="#000000" points="808.68,-207.09 798.18,-208.45 807.24,-213.94 808.68,-207.09"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_util_solve~~UsesGraph_node9" class="node">
+<g id="module~~s_util_solve~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_util_solve~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_util_solve~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_solve~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_solve~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_util_solve~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_util_solve~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_solve~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_util_solve~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_util_solve~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_util_solve~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_util_solve~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_util_solve~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_util_solve~~UsesGraph_edge6" class="edge">
+<g id="module~~s_util_solve~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_util_solve~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_util_solve~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_solve~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_util_solve~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_util_solve~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_util_solve~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_solve~~UsesGraph_edge7" class="edge">
+<g id="module~~s_util_solve~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_util_solve~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_solve~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_solve~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_util_solve~~UsesGraph_node8" class="node">
+<g id="module~~s_util_solve~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_util_solve~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_util_solve~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_util_solve~~UsesGraph_edge8" class="edge">
+<g id="module~~s_util_solve~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_solve~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_util_solve~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_util_solve~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_util_solve~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_solve~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_solve~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_util_solve~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_solve~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_solve~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_solve~~UsesGraph_edge12" class="edge">
+<g id="module~~s_util_solve~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_solve~~UsesGraph_edge14" class="edge">
+<g id="module~~s_util_solve~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_solve~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_solve~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_solve~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_solve~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_solve~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_solve~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_solve~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_solve~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_solve~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_solve~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_solve~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_solve~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_util_solve~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_util_solve~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_solve~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_util_solve~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_solve~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_solve~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_sort.html b/docs/module/s_util_sort.html
index 93027c1b4..d0fe68f72 100644
--- a/docs/module/s_util_sort.html
+++ b/docs/module/s_util_sort.html
@@ -267,255 +267,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_util_sort~~UsesGraph Pages: 1 -->
-<svg id="modules_util_sortUsesGraph" width="641pt" height="197pt"
- viewBox="0.00 0.00 641.00 196.93" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_util_sort~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 273.42)">
+<svg id="modules_util_sortUsesGraph" width="641pt" height="192pt"
+ viewBox="0.00 0.00 641.00 191.62" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_util_sort~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 265.94)">
 <title>module~~s_util_sort~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.42 899,-273.42 899,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 899,-265.94 899,4 -4,4"/>
 <!-- module~s_util_sort -->
 <g id="module~~s_util_sort~~UsesGraph_node1" class="node">
 <title>module~s_util_sort</title>
-<polygon fill="none" stroke="black" points="895,-217.16 834,-217.16 834,-193.16 895,-193.16 895,-217.16"/>
-<text text-anchor="middle" x="864.5" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_sort</text>
+<polygon fill="none" stroke="black" points="895,-234.94 834,-234.94 834,-210.94 895,-210.94 895,-234.94"/>
+<text text-anchor="middle" x="864.5" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_sort</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_util_sort~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_util_sort~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_sort&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_sort~~UsesGraph_edge2" class="edge">
 <title>module~s_util_sort&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M835.5,-217.22C775.06,-241.55 628.27,-291.47 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.82,-232.58C795.58,-244.13 726.82,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_util_sort~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_util_sort~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_sort&#45;&gt;module~swiftest -->
 <g id="module~~s_util_sort~~UsesGraph_edge1" class="edge">
 <title>module~s_util_sort&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M844.1,-193.07C831.36,-185.14 814.49,-174.63 800.27,-165.77"/>
-<polygon fill="#000000" stroke="#000000" points="801.72,-162.55 791.38,-160.23 798.01,-168.49 801.72,-162.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.79,-216.45C825.63,-214.66 816.69,-212.71 808.21,-210.85"/>
+<polygon fill="#000000" stroke="#000000" points="808.69,-207.38 798.17,-208.66 807.19,-214.22 808.69,-207.38"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_util_sort~~UsesGraph_node9" class="node">
+<g id="module~~s_util_sort~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_util_sort~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_util_sort~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_sort~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_sort~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_util_sort~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_util_sort~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_sort~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_util_sort~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_util_sort~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_util_sort~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_util_sort~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_util_sort~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_util_sort~~UsesGraph_edge6" class="edge">
+<g id="module~~s_util_sort~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_util_sort~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_util_sort~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_sort~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_util_sort~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_util_sort~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_util_sort~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_sort~~UsesGraph_edge7" class="edge">
+<g id="module~~s_util_sort~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_util_sort~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_sort~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_sort~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_util_sort~~UsesGraph_node8" class="node">
+<g id="module~~s_util_sort~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_util_sort~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_util_sort~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_util_sort~~UsesGraph_edge8" class="edge">
+<g id="module~~s_util_sort~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_sort~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_util_sort~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_util_sort~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_util_sort~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_sort~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_sort~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_util_sort~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_sort~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_sort~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_sort~~UsesGraph_edge12" class="edge">
+<g id="module~~s_util_sort~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_sort~~UsesGraph_edge14" class="edge">
+<g id="module~~s_util_sort~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_sort~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_sort~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_sort~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_sort~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_sort~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_sort~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_sort~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_sort~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_sort~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_sort~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_sort~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_sort~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_util_sort~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_util_sort~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_sort~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_util_sort~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_sort~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_sort~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_spill.html b/docs/module/s_util_spill.html
index 70e2eed0d..99090e2ad 100644
--- a/docs/module/s_util_spill.html
+++ b/docs/module/s_util_spill.html
@@ -261,255 +261,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_util_spill~~UsesGraph Pages: 1 -->
-<svg id="modules_util_spillUsesGraph" width="641pt" height="197pt"
- viewBox="0.00 0.00 641.00 196.93" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_util_spill~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 273.42)">
+<svg id="modules_util_spillUsesGraph" width="641pt" height="192pt"
+ viewBox="0.00 0.00 641.00 191.62" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_util_spill~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 265.94)">
 <title>module~~s_util_spill~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.42 899,-273.42 899,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 899,-265.94 899,4 -4,4"/>
 <!-- module~s_util_spill -->
 <g id="module~~s_util_spill~~UsesGraph_node1" class="node">
 <title>module~s_util_spill</title>
-<polygon fill="none" stroke="black" points="895,-217.16 834,-217.16 834,-193.16 895,-193.16 895,-217.16"/>
-<text text-anchor="middle" x="864.5" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_spill</text>
+<polygon fill="none" stroke="black" points="895,-234.94 834,-234.94 834,-210.94 895,-210.94 895,-234.94"/>
+<text text-anchor="middle" x="864.5" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_spill</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_util_spill~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_util_spill~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_spill&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_spill~~UsesGraph_edge2" class="edge">
 <title>module~s_util_spill&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M835.5,-217.22C775.06,-241.55 628.27,-291.47 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.82,-232.58C795.58,-244.13 726.82,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_util_spill~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_util_spill~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_spill&#45;&gt;module~swiftest -->
 <g id="module~~s_util_spill~~UsesGraph_edge1" class="edge">
 <title>module~s_util_spill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M844.1,-193.07C831.36,-185.14 814.49,-174.63 800.27,-165.77"/>
-<polygon fill="#000000" stroke="#000000" points="801.72,-162.55 791.38,-160.23 798.01,-168.49 801.72,-162.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.79,-216.45C825.63,-214.66 816.69,-212.71 808.21,-210.85"/>
+<polygon fill="#000000" stroke="#000000" points="808.69,-207.38 798.17,-208.66 807.19,-214.22 808.69,-207.38"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_util_spill~~UsesGraph_node9" class="node">
+<g id="module~~s_util_spill~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_util_spill~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_util_spill~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_spill~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_spill~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_util_spill~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_util_spill~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_spill~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_util_spill~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_util_spill~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_util_spill~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_util_spill~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_util_spill~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_util_spill~~UsesGraph_edge6" class="edge">
+<g id="module~~s_util_spill~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_util_spill~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_util_spill~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_spill~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_util_spill~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_util_spill~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_util_spill~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_spill~~UsesGraph_edge7" class="edge">
+<g id="module~~s_util_spill~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_util_spill~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_spill~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_spill~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_util_spill~~UsesGraph_node8" class="node">
+<g id="module~~s_util_spill~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_util_spill~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_util_spill~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_util_spill~~UsesGraph_edge8" class="edge">
+<g id="module~~s_util_spill~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_spill~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_util_spill~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_util_spill~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_util_spill~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_spill~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_spill~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_util_spill~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_spill~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_spill~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_spill~~UsesGraph_edge12" class="edge">
+<g id="module~~s_util_spill~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_spill~~UsesGraph_edge14" class="edge">
+<g id="module~~s_util_spill~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_spill~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_spill~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_spill~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_spill~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_spill~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_spill~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_spill~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_spill~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_spill~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_spill~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_spill~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_spill~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_util_spill~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_util_spill~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_spill~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_util_spill~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_spill~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_spill~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_util_valid.html b/docs/module/s_util_valid.html
index 2faf0bcf0..8259dfcd5 100644
--- a/docs/module/s_util_valid.html
+++ b/docs/module/s_util_valid.html
@@ -134,7 +134,7 @@ <h1>s_util_valid
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.2% of total for modules and submodules.">29 statements</a>
+    title=" 0.2% of total for modules and submodules.">31 statements</a>
      </li> 
      
      
@@ -190,7 +190,7 @@ <h3>Contents</h3>
   <div id="modsubs-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../module/s_util_valid.html#proc-util_valid">util_valid</a>
+      <a class="list-group-item" href="../module/s_util_valid.html#proc-util_valid_id_system">util_valid_id_system</a>
       
     </div>
   </div>
@@ -245,255 +245,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_util_valid~~UsesGraph Pages: 1 -->
-<svg id="modules_util_validUsesGraph" width="641pt" height="196pt"
- viewBox="0.00 0.00 641.00 196.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_util_valid~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 273.51)">
+<svg id="modules_util_validUsesGraph" width="641pt" height="191pt"
+ viewBox="0.00 0.00 641.00 190.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_util_valid~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 265.94)">
 <title>module~~s_util_valid~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.51 903,-273.51 903,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 903,-265.94 903,4 -4,4"/>
 <!-- module~s_util_valid -->
 <g id="module~~s_util_valid~~UsesGraph_node1" class="node">
 <title>module~s_util_valid</title>
-<polygon fill="none" stroke="black" points="899,-217.16 834,-217.16 834,-193.16 899,-193.16 899,-217.16"/>
-<text text-anchor="middle" x="866.5" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_valid</text>
+<polygon fill="none" stroke="black" points="899,-234.94 834,-234.94 834,-210.94 899,-210.94 899,-234.94"/>
+<text text-anchor="middle" x="866.5" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_valid</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_util_valid~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_util_valid~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_valid&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_valid~~UsesGraph_edge2" class="edge">
 <title>module~s_util_valid&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M837.34,-217.25C776.55,-241.63 628.93,-291.65 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.82,-233.09C794.87,-244.64 726.53,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_util_valid~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_util_valid~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_valid&#45;&gt;module~swiftest -->
 <g id="module~~s_util_valid~~UsesGraph_edge1" class="edge">
 <title>module~s_util_valid&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M845.67,-193.07C832.53,-185.06 815.09,-174.43 800.47,-165.52"/>
-<polygon fill="#000000" stroke="#000000" points="802.16,-162.45 791.8,-160.23 798.52,-168.42 802.16,-162.45"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.85,-216.17C825.56,-214.4 816.56,-212.47 808.07,-210.66"/>
+<polygon fill="#000000" stroke="#000000" points="808.54,-207.18 798.03,-208.51 807.08,-214.02 808.54,-207.18"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_util_valid~~UsesGraph_node9" class="node">
+<g id="module~~s_util_valid~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_util_valid~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_util_valid~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_valid~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_valid~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_util_valid~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_util_valid~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_valid~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_util_valid~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_util_valid~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_util_valid~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_util_valid~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_util_valid~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_util_valid~~UsesGraph_edge6" class="edge">
+<g id="module~~s_util_valid~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_util_valid~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_util_valid~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_valid~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_util_valid~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_util_valid~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_util_valid~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_valid~~UsesGraph_edge7" class="edge">
+<g id="module~~s_util_valid~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_util_valid~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_valid~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_valid~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_util_valid~~UsesGraph_node8" class="node">
+<g id="module~~s_util_valid~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_util_valid~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_util_valid~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_util_valid~~UsesGraph_edge8" class="edge">
+<g id="module~~s_util_valid~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_valid~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_util_valid~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_util_valid~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_util_valid~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_valid~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_valid~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_util_valid~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_valid~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_valid~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_valid~~UsesGraph_edge12" class="edge">
+<g id="module~~s_util_valid~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_valid~~UsesGraph_edge14" class="edge">
+<g id="module~~s_util_valid~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_valid~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_valid~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_valid~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_valid~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_valid~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_valid~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_valid~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_valid~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_valid~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_valid~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_valid~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_valid~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_util_valid~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_util_valid~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_valid~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_util_valid~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_valid~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_valid~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
@@ -591,7 +594,7 @@ <h3>Contents</h3>
   <div id="modsubs-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../module/s_util_valid.html#proc-util_valid">util_valid</a>
+      <a class="list-group-item" href="../module/s_util_valid.html#proc-util_valid_id_system">util_valid_id_system</a>
       
     </div>
   </div>
@@ -633,11 +636,11 @@ <h2>Module Subroutines</h2>
         
         
   <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="proc-util_valid"></span><h3>
-module subroutine <a href='../proc/util_valid.html'>util_valid</a>(pl, tp)
+  <div class="panel-heading codesum"><span class="anchor" id="proc-util_valid_id_system"></span><h3>
+module subroutine <a href='../proc/util_valid_id_system.html'>util_valid_id_system</a>(self, param)
     
     
-   <a href='../interface/util_valid.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/util_valid_id_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h3></div>
@@ -662,7 +665,7 @@ <h2>Module Subroutines</h2>
 
 
 <p>Validate massive body and test particle ids
- Subroutine causes program to exit with error if any ids are not unique</p><a href="../proc/util_valid.html" class="pull-right"><emph>Read more&hellip;</emph></a>
+ Subroutine causes program to exit with error if any ids are not unique</p><a href="../proc/util_valid_id_system.html" class="pull-right"><emph>Read more&hellip;</emph></a>
     
     <h4>Arguments</h4>
     
@@ -683,12 +686,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>pl</strong></td><td></td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -698,12 +701,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>tp</strong></td><td></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
diff --git a/docs/module/s_util_version.html b/docs/module/s_util_version.html
index d00e43a41..3816a5596 100644
--- a/docs/module/s_util_version.html
+++ b/docs/module/s_util_version.html
@@ -245,255 +245,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_util_version~~UsesGraph Pages: 1 -->
-<svg id="modules_util_versionUsesGraph" width="641pt" height="194pt"
- viewBox="0.00 0.00 641.00 193.53" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_util_version~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 273.77)">
+<svg id="modules_util_versionUsesGraph" width="641pt" height="188pt"
+ viewBox="0.00 0.00 641.00 188.08" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_util_version~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 265.94)">
 <title>module~~s_util_version~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-273.77 916,-273.77 916,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-265.94 916,-265.94 916,4 -4,4"/>
 <!-- module~s_util_version -->
 <g id="module~~s_util_version~~UsesGraph_node1" class="node">
 <title>module~s_util_version</title>
-<polygon fill="none" stroke="black" points="912,-217.16 834,-217.16 834,-193.16 912,-193.16 912,-217.16"/>
-<text text-anchor="middle" x="873" y="-202.76" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_version</text>
+<polygon fill="none" stroke="black" points="912,-234.94 834,-234.94 834,-210.94 912,-210.94 912,-234.94"/>
+<text text-anchor="middle" x="873" y="-220.54" font-family="Helvetica,sans-Serif" font-size="10.50">s_util_version</text>
 </g>
 <!-- module~swiftest_classes -->
 <g id="module~~s_util_version~~UsesGraph_node2" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_module~~s_util_version~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-139.16 248,-139.16 248,-115.16 337,-115.16 337,-139.16"/>
-<text text-anchor="middle" x="292.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-157.94 252.5,-157.94 252.5,-133.94 341.5,-133.94 341.5,-157.94"/>
+<text text-anchor="middle" x="297" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_version&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_version~~UsesGraph_edge2" class="edge">
 <title>module~s_util_version&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M843.32,-217.34C781.4,-241.9 631.06,-292.25 510,-258.16 467.37,-246.15 467.57,-218.38 425,-206.16"/>
+<path fill="none" stroke="#000000" d="M833.78,-234.64C792.82,-246.13 725.69,-261.94 666.5,-261.94 666.5,-261.94 666.5,-261.94 547.5,-261.94 456.11,-261.94 361.97,-197.15 320.23,-164.41"/>
+<polygon fill="#000000" stroke="#000000" points="322.37,-161.64 312.37,-158.14 318,-167.11 322.37,-161.64"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_util_version~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_util_version~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-160.16 744,-160.16 744,-136.16 798,-136.16 798,-160.16"/>
-<text text-anchor="middle" x="771" y="-145.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-214.94 744,-214.94 744,-190.94 798,-190.94 798,-214.94"/>
+<text text-anchor="middle" x="771" y="-200.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_version&#45;&gt;module~swiftest -->
 <g id="module~~s_util_version~~UsesGraph_edge1" class="edge">
 <title>module~s_util_version&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M850.79,-193.07C836.61,-184.98 817.73,-174.22 802.01,-165.26"/>
-<polygon fill="#000000" stroke="#000000" points="803.6,-162.14 793.18,-160.23 800.13,-168.22 803.6,-162.14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.91,-215.32C825.43,-213.63 816.47,-211.84 808.08,-210.16"/>
+<polygon fill="#000000" stroke="#000000" points="808.69,-206.71 798.2,-208.18 807.32,-213.57 808.69,-206.71"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_util_version~~UsesGraph_node9" class="node">
+<g id="module~~s_util_version~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_util_version~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-139.16 123,-139.16 123,-115.16 211,-115.16 211,-139.16"/>
-<text text-anchor="middle" x="167" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_util_version~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-137.94 123,-137.94 123,-113.94 211,-113.94 211,-137.94"/>
+<text text-anchor="middle" x="167" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_version~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M247.96,-127.16C239.37,-127.16 230.27,-127.16 221.41,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-123.66 211.15,-127.16 221.15,-130.66 221.15,-123.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-139.11C242.31,-137.55 231.58,-135.88 221.24,-134.26"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-130.75 211.06,-132.67 220.4,-137.67 221.48,-130.75"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_version~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C603.79,-176.4 609.39,-231.25 549.5,-244.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C491.78,-256.17 479.79,-221.89 425,-206.16"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_util_version~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_util_version~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-140.16 510.5,-140.16 510.5,-116.16 586.5,-116.16 586.5,-140.16"/>
-<text text-anchor="middle" x="548.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.92,-210.98C723.16,-216.7 693.26,-223.47 666.5,-223.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C610.68,-224.9 602.78,-193.59 549.5,-185.94"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_version~~UsesGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C633.06,-172.74 598.9,-158.16 576.05,-145.33"/>
-<polygon fill="#000000" stroke="#000000" points="577.68,-142.23 567.29,-140.18 574.14,-148.27 577.68,-142.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.74,-153.93C722.89,-158.34 692.94,-164.3 666.5,-168.16"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-223.94C613.4,-224.85 600.49,-220.47 549.5,-223.94"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_util_version~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_util_version~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-218.16 247,-218.16 247,-194.16 338,-194.16 338,-218.16"/>
-<text text-anchor="middle" x="292.5" y="-203.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-37.94 383,-37.94 383,-13.94 474,-13.94 474,-37.94"/>
+<text text-anchor="middle" x="428.5" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_util_version~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-244.16C473.33,-260.15 385.55,-238.09 335.01,-221.51"/>
-<polygon fill="#000000" stroke="#000000" points="336.01,-218.15 325.41,-218.27 333.77,-224.78 336.01,-218.15"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C527.83,-18.03 504.77,-16.51 484.28,-17.52"/>
+<polygon fill="#000000" stroke="#000000" points="483.88,-14.04 474.15,-18.22 484.37,-21.02 483.88,-14.04"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_util_version~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_util_version~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-58.16 374,-58.16 374,-34.16 474,-34.16 474,-58.16"/>
-<text text-anchor="middle" x="424" y="-43.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.94 247,-37.94 247,-13.94 347,-13.94 347,-37.94"/>
+<text text-anchor="middle" x="297" y="-23.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_util_version~~UsesGraph_edge6" class="edge">
+<g id="module~~s_util_version~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C517.44,-10.32 484.92,-20.82 460.95,-30.23"/>
-<polygon fill="#000000" stroke="#000000" points="459.51,-27.04 451.56,-34.04 462.14,-33.53 459.51,-27.04"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-25.94C479.12,1.57 456.16,3.96 383,-4.94 371.56,-6.33 359.45,-8.74 348.06,-11.44"/>
+<polygon fill="#000000" stroke="#000000" points="347.13,-8.07 338.27,-13.87 348.82,-14.86 347.13,-8.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C625.31,-86.3 623.95,-68.52 587,-44.94 571.25,-34.89 567.07,-32.31 549.5,-25.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.99,-190.77C744.69,-169.73 708.11,-126.8 666.5,-105.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_util_version~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_util_version~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-157.94 510.5,-157.94 510.5,-133.94 586.5,-133.94 586.5,-157.94"/>
+<text text-anchor="middle" x="548.5" y="-143.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_version~~UsesGraph_edge8" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C649.67,-98.66 610.07,-115.19 581.48,-129.16"/>
+<polygon fill="#000000" stroke="#000000" points="579.64,-126.17 572.26,-133.76 582.77,-132.43 579.64,-126.17"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_util_version~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_util_version~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-98.16 510,-98.16 510,-74.16 587,-74.16 587,-98.16"/>
-<text text-anchor="middle" x="548.5" y="-83.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_util_version~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-77.94 510,-77.94 510,-53.94 587,-53.94 587,-77.94"/>
+<text text-anchor="middle" x="548.5" y="-63.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_util_version~~UsesGraph_edge7" class="edge">
+<g id="module~~s_util_version~~UsesGraph_edge11" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C623.34,4.65 583.62,-38.41 563.38,-65.6"/>
-<polygon fill="#000000" stroke="#000000" points="560.5,-63.61 557.51,-73.78 566.18,-67.69 560.5,-63.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C643.04,-95.41 618.1,-86.37 596.94,-79.57"/>
+<polygon fill="#000000" stroke="#000000" points="597.79,-76.17 587.2,-76.51 595.69,-82.85 597.79,-76.17"/>
+</g>
+<!-- module~whm_classes -->
+<g id="module~~s_util_version~~UsesGraph_node9" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~s_util_version~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-117.94 390.5,-117.94 390.5,-93.94 466.5,-93.94 466.5,-117.94"/>
+<text text-anchor="middle" x="428.5" y="-103.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~s_util_version~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-105.94C632.72,-90.34 535.99,-95.89 477.01,-101.09"/>
+<polygon fill="#000000" stroke="#000000" points="476.46,-97.62 466.81,-102.02 477.09,-104.6 476.46,-97.62"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_util_version~~UsesGraph_node8" class="node">
+<g id="module~~s_util_version~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_util_version~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-140.16 623,-140.16 623,-116.16 708,-116.16 708,-140.16"/>
-<text text-anchor="middle" x="665.5" y="-125.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_util_version~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-195.94 623,-195.94 623,-171.94 708,-171.94 708,-195.94"/>
+<text text-anchor="middle" x="665.5" y="-181.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_util_version~~UsesGraph_edge8" class="edge">
+<g id="module~~s_util_version~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.11C736.05,-141.6 727.17,-139.88 718.29,-138.17"/>
-<polygon fill="#000000" stroke="#000000" points="718.8,-134.7 708.32,-136.24 717.47,-141.57 718.8,-134.7"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_version~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M766.36,-135.9C756.44,-105.27 725.67,-26.57 666.5,-8.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-8.16C470.22,-13.72 446.15,3.08 374,-25.16 332.2,-41.52 337.18,-75.82 293.5,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-86.16C263.13,-92.57 232.05,-102.9 208.17,-111.59"/>
-<polygon fill="#000000" stroke="#000000" points="206.91,-108.33 198.74,-115.07 209.33,-114.89 206.91,-108.33"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-8.16C615.7,7.03 600.39,-3.4 549.5,-8.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-198.15C736.05,-196.71 727.17,-195.08 718.29,-193.45"/>
+<polygon fill="#000000" stroke="#000000" points="718.79,-189.98 708.32,-191.62 717.52,-196.87 718.79,-189.98"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~s_util_version~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~s_util_version~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-139.16 386,-139.16 386,-115.16 462,-115.16 462,-139.16"/>
-<text text-anchor="middle" x="424" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- iso_fortran_env -->
+<g id="module~~s_util_version~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_util_version~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-137.94 0,-137.94 0,-113.94 87,-113.94 87,-137.94"/>
+<text text-anchor="middle" x="43.5" y="-123.54" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_version~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-168.16C595.13,-178.27 514.9,-157.98 467.14,-142.49"/>
-<polygon fill="#000000" stroke="#000000" points="468.05,-139.11 457.46,-139.28 465.84,-145.75 468.05,-139.11"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_util_version~~UsesGraph_edge12" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-125.94C114.58,-125.94 105.86,-125.94 97.36,-125.94"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-122.44 87.13,-125.94 97.13,-129.44 97.13,-122.44"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_version~~UsesGraph_edge13" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.58,-37.95C399.1,-42.3 390.64,-47.28 383,-51.94 344.78,-75.23 342.24,-99.17 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-105.94C271.4,-109.7 244.16,-113.95 221.15,-117.56"/>
+<polygon fill="#000000" stroke="#000000" points="220.58,-114.1 211.24,-119.11 221.66,-121.02 220.58,-114.1"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_util_version~~UsesGraph_edge14" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.56,-38C258.46,-55.27 217.61,-87.19 191.67,-107.45"/>
+<polygon fill="#000000" stroke="#000000" points="189.22,-104.92 183.49,-113.84 193.53,-110.44 189.22,-104.92"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_version~~UsesGraph_edge12" class="edge">
+<g id="module~~s_util_version~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.1,-140.29C520.32,-165.77 472.83,-221.3 425,-206.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-206.16C381.9,-193.15 340.41,-164.47 315.84,-145.49"/>
-<polygon fill="#000000" stroke="#000000" points="317.9,-142.66 307.88,-139.22 313.57,-148.16 317.9,-142.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C402.6,-144.06 374.93,-143.81 351.58,-144.13"/>
+<polygon fill="#000000" stroke="#000000" points="351.46,-140.63 341.52,-144.31 351.58,-147.63 351.46,-140.63"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_version~~UsesGraph_edge14" class="edge">
+<g id="module~~s_util_version~~UsesGraph_edge15" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M526.13,-116.05C502.26,-103.68 462.1,-86.26 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-145.94C367.43,-141.4 357.55,-96.83 298,-105.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-147.38C486.99,-147.92 456.46,-147.98 429.5,-145.94"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_version~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-127.86C498.53,-127.76 485.2,-127.65 472.67,-127.55"/>
-<polygon fill="#000000" stroke="#000000" points="472.41,-124.05 462.38,-127.46 472.35,-131.05 472.41,-124.05"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_version~~UsesGraph_edge15" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.47,-193.99C251.83,-180.79 218.71,-159.59 195.3,-144.62"/>
-<polygon fill="#000000" stroke="#000000" points="197.16,-141.65 186.85,-139.21 193.38,-147.55 197.16,-141.65"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_version~~UsesGraph_edge16" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.45,-58.22C362.56,-66.92 326.13,-78.44 293.5,-86.16"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-133.94C500.42,-129.98 487.26,-125.52 474.94,-121.35"/>
+<polygon fill="#000000" stroke="#000000" points="475.88,-117.97 465.29,-118.07 473.63,-124.6 475.88,-117.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_version~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.97,-86.21C485.73,-86.23 453.5,-86.24 425,-86.16"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.73,-68.93C476.26,-71.9 426.14,-77.15 383,-84.94 344.71,-91.85 336.47,-100.06 298,-105.94"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_util_version~~UsesGraph_edge17" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M511.41,-98.24C498.69,-102.5 484.21,-107.34 470.8,-111.83"/>
-<polygon fill="#000000" stroke="#000000" points="469.63,-108.53 461.26,-115.02 471.85,-115.17 469.63,-108.53"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_util_version~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M639.94,-140.18C587.58,-165.15 466.38,-219.26 425,-206.16"/>
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.1,-77.94C500.42,-81.9 487.26,-86.36 474.94,-90.54"/>
+<polygon fill="#000000" stroke="#000000" points="473.63,-87.28 465.29,-93.81 475.88,-93.91 473.63,-87.28"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_util_version~~UsesGraph_edge22" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-128.16C614.47,-128.16 605.46,-128.16 596.76,-128.16"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-124.66 586.76,-128.16 596.76,-131.66 596.76,-124.66"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_version~~UsesGraph_edge21" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.39,-117.4C376.79,-121.6 361.18,-126.43 346.71,-130.89"/>
+<polygon fill="#000000" stroke="#000000" points="345.44,-127.62 336.92,-133.92 347.51,-134.31 345.44,-127.62"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_util_version~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-116.12C619.28,-111.64 605.17,-106.49 592.15,-101.74"/>
-<polygon fill="#000000" stroke="#000000" points="593.05,-98.34 582.46,-98.2 590.65,-104.91 593.05,-98.34"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.43,-102.98C364.42,-101.62 328.89,-101.22 298,-105.94"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_util_version~~UsesGraph_edge24" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.93,-186.54C601.05,-187.43 573.79,-187.8 549.5,-185.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-185.94C479.57,-180.75 402.24,-167.13 351.91,-157.23"/>
+<polygon fill="#000000" stroke="#000000" points="352.4,-153.76 341.91,-155.24 351.03,-160.62 352.4,-153.76"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_version~~UsesGraph_edge21" class="edge">
+<g id="module~~s_util_version~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.49,-116.02C641.02,-100.73 615.43,-75.26 587,-65.16 554.75,-53.7 543.97,-61.02 510,-65.16 471.37,-69.86 463.91,-86.26 425,-86.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-86.16C365.46,-84.85 349.51,-72.9 293.5,-86.16"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="module~~s_util_version~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_util_version~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-139.16 0,-139.16 0,-115.16 87,-115.16 87,-139.16"/>
-<text text-anchor="middle" x="43.5" y="-124.76" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-223.94C412.05,-235.43 375.47,-211.39 247,-166.94 229.51,-160.89 211.09,-151.53 196.45,-143.28"/>
+<polygon fill="#000000" stroke="#000000" points="197.82,-140.03 187.41,-138.06 194.32,-146.09 197.82,-140.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M641.49,-196.04C618.82,-206.97 582.82,-221.67 549.5,-223.94"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_util_version~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M628.11,-171.92C617.84,-168.52 606.51,-164.78 595.74,-161.22"/>
+<polygon fill="#000000" stroke="#000000" points="596.64,-157.83 586.04,-158.02 594.44,-164.48 596.64,-157.83"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
 <g id="module~~s_util_version~~UsesGraph_edge23" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-127.16C114.58,-127.16 105.86,-127.16 97.36,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-123.66 87.13,-127.16 97.13,-130.66 97.13,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_util_version~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-127.16C373.86,-127.16 360.26,-127.16 347.27,-127.16"/>
-<polygon fill="#000000" stroke="#000000" points="347.02,-123.66 337.02,-127.16 347.02,-130.66 347.02,-123.66"/>
-</g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_util_version~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.14,-115.06C364.31,-101.37 313.12,-81.51 293.5,-86.16"/>
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M652.63,-171.76C632.74,-151.35 592.54,-110.1 568.63,-85.57"/>
+<polygon fill="#000000" stroke="#000000" points="570.97,-82.95 561.48,-78.23 565.95,-87.84 570.97,-82.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_whm_coord.html b/docs/module/s_whm_coord.html
index 0743d0cd7..33b917bc0 100644
--- a/docs/module/s_whm_coord.html
+++ b/docs/module/s_whm_coord.html
@@ -249,260 +249,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_whm_coord~~UsesGraph Pages: 1 -->
-<svg id="modules_whm_coordUsesGraph" width="641pt" height="199pt"
- viewBox="0.00 0.00 641.00 198.90" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_whm_coord~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 281.78)">
+<svg id="modules_whm_coordUsesGraph" width="641pt" height="207pt"
+ viewBox="0.00 0.00 641.00 207.15" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_whm_coord~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 293.64)">
 <title>module~~s_whm_coord~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-281.78 917,-281.78 917,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-293.64 917,-293.64 917,4 -4,4"/>
 <!-- module~s_whm_coord -->
 <g id="module~~s_whm_coord~~UsesGraph_node1" class="node">
 <title>module~s_whm_coord</title>
-<polygon fill="none" stroke="black" points="913,-258 834,-258 834,-234 913,-234 913,-258"/>
-<text text-anchor="middle" x="873.5" y="-243.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_coord</text>
+<polygon fill="none" stroke="black" points="913,-250.91 834,-250.91 834,-226.91 913,-226.91 913,-250.91"/>
+<text text-anchor="middle" x="873.5" y="-236.51" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_coord</text>
 </g>
 <!-- module~whm_classes -->
 <g id="module~~s_whm_coord~~UsesGraph_node2" class="node">
 <title>module~whm_classes</title>
 <g id="a_module~~s_whm_coord~~UsesGraph_node2"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-219 386,-219 386,-195 462,-195 462,-219"/>
-<text text-anchor="middle" x="424" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-232.91 390.5,-232.91 390.5,-208.91 466.5,-208.91 466.5,-232.91"/>
+<text text-anchor="middle" x="428.5" y="-218.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_whm_coord&#45;&gt;module~whm_classes -->
 <g id="module~~s_whm_coord~~UsesGraph_edge2" class="edge">
 <title>module~s_whm_coord&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M833.96,-255.49C766.66,-270.35 624.01,-294.15 510,-261 486.13,-254.06 462.55,-238.16 446.3,-225.41"/>
-<polygon fill="#000000" stroke="#000000" points="448.48,-222.67 438.51,-219.09 444.07,-228.11 448.48,-222.67"/>
+<path fill="none" stroke="#000000" d="M838.41,-250.92C773.13,-272.04 626.62,-310.4 510,-274.91 487.31,-268.01 465.21,-252.34 449.93,-239.65"/>
+<polygon fill="#000000" stroke="#000000" points="452.04,-236.85 442.17,-232.99 447.47,-242.16 452.04,-236.85"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_whm_coord~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_whm_coord~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-238 744,-238 744,-214 798,-214 798,-238"/>
-<text text-anchor="middle" x="771" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-230.91 744,-230.91 744,-206.91 798,-206.91 798,-230.91"/>
+<text text-anchor="middle" x="771" y="-216.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_whm_coord&#45;&gt;module~swiftest -->
 <g id="module~~s_whm_coord~~UsesGraph_edge1" class="edge">
 <title>module~s_whm_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.93,-238.32C825.43,-236.63 816.46,-234.85 808.06,-233.18"/>
-<polygon fill="#000000" stroke="#000000" points="808.67,-229.73 798.18,-231.21 807.3,-236.59 808.67,-229.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.93,-231.24C825.43,-229.54 816.46,-227.76 808.06,-226.09"/>
+<polygon fill="#000000" stroke="#000000" points="808.67,-222.64 798.18,-224.12 807.3,-229.5 808.67,-222.64"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_whm_coord~~UsesGraph_node9" class="node">
+<g id="module~~s_whm_coord~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_whm_coord~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-103 123,-103 123,-79 211,-79 211,-103"/>
-<text text-anchor="middle" x="167" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_whm_coord~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-136.91 123,-136.91 123,-112.91 211,-112.91 211,-136.91"/>
+<text text-anchor="middle" x="167" y="-122.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_coord~~UsesGraph_edge4" class="edge">
+<g id="module~~s_whm_coord~~UsesGraph_edge3" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.79,-199.42C349.1,-191.04 292.14,-175.51 247,-152 225.35,-140.72 203.6,-123.38 188.41,-110.06"/>
-<polygon fill="#000000" stroke="#000000" points="190.48,-107.22 180.7,-103.14 185.81,-112.43 190.48,-107.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.17,-211.68C353.18,-202.03 295.23,-185.58 247,-165.91 230.22,-159.07 212.23,-149.88 197.66,-141.95"/>
+<polygon fill="#000000" stroke="#000000" points="199.07,-138.73 188.63,-136.95 195.68,-144.85 199.07,-138.73"/>
 </g>
 <!-- module~swiftest_classes -->
-<g id="module~~s_whm_coord~~UsesGraph_node10" class="node">
+<g id="module~~s_whm_coord~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
-<g id="a_module~~s_whm_coord~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-143 248,-143 248,-119 337,-119 337,-143"/>
-<text text-anchor="middle" x="292.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~s_whm_coord~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-156.91 252.5,-156.91 252.5,-132.91 341.5,-132.91 341.5,-156.91"/>
+<text text-anchor="middle" x="297" y="-142.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_coord~~UsesGraph_edge3" class="edge">
+<g id="module~~s_whm_coord~~UsesGraph_edge4" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M399.39,-194.89C391.28,-190.62 382.18,-185.7 374,-181 356,-170.65 336.18,-158.35 320.71,-148.54"/>
-<polygon fill="#000000" stroke="#000000" points="322.46,-145.51 312.15,-143.08 318.7,-151.41 322.46,-145.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.66,-208.75C399.2,-204.39 390.72,-199.44 383,-194.91 364.6,-184.13 343.99,-172 327.67,-162.39"/>
+<polygon fill="#000000" stroke="#000000" points="328.99,-159.11 318.6,-157.05 325.44,-165.14 328.99,-159.11"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_coord~~UsesGraph_edge12" class="edge">
+<g id="module~~s_whm_coord~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C613.51,-243.48 600.45,-251.07 549.5,-247"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247C516.73,-244.54 483.54,-233.11 459.48,-223.1"/>
-<polygon fill="#000000" stroke="#000000" points="460.65,-219.79 450.08,-219.07 457.89,-226.23 460.65,-219.79"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_whm_coord~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_whm_coord~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-219 510.5,-219 510.5,-195 586.5,-195 586.5,-219"/>
-<text text-anchor="middle" x="548.5" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C613.4,-262.04 600.44,-265.13 549.5,-260.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-260.91C517.89,-258.46 486.07,-247.12 462.95,-237.14"/>
+<polygon fill="#000000" stroke="#000000" points="464.17,-233.85 453.61,-232.97 461.32,-240.24 464.17,-233.85"/>
 </g>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_coord~~UsesGraph_edge5" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C635.35,-244.98 604.14,-233.48 581.6,-223.32"/>
-<polygon fill="#000000" stroke="#000000" points="583.05,-220.14 572.51,-219.08 580.09,-226.48 583.05,-220.14"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C492.89,-30.85 354.73,-100.18 298,-104.91"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_whm_coord~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_whm_coord~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-63 247,-63 247,-39 338,-39 338,-63"/>
-<text text-anchor="middle" x="292.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-38.91 383,-38.91 383,-14.91 474,-14.91 474,-38.91"/>
+<text text-anchor="middle" x="428.5" y="-24.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_whm_coord~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-53C495.62,-36.48 479.32,-49.3 425,-53"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-53C398.59,-54.66 371.52,-54.55 348.48,-53.87"/>
-<polygon fill="#000000" stroke="#000000" points="348.31,-50.36 338.2,-53.52 348.07,-57.36 348.31,-50.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C526.69,-45.19 504.04,-41.74 484.19,-38.18"/>
+<polygon fill="#000000" stroke="#000000" points="484.57,-34.69 474.1,-36.32 483.3,-41.57 484.57,-34.69"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_whm_coord~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_whm_coord~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-24 374,-24 374,0 474,0 474,-24"/>
-<text text-anchor="middle" x="424" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.91 247,-37.91 247,-13.91 347,-13.91 347,-37.91"/>
+<text text-anchor="middle" x="297" y="-23.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_whm_coord~~UsesGraph_edge7" class="edge">
+<g id="module~~s_whm_coord~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-53C516.46,-50.46 483.05,-38.61 458.97,-28.3"/>
-<polygon fill="#000000" stroke="#000000" points="460.15,-24.99 449.58,-24.16 457.32,-31.4 460.15,-24.99"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M762.35,-213.98C737.24,-176.14 653.04,-61.47 549.5,-53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C510.22,-43.83 510.2,-15.32 474,-5.91 434.86,4.27 423.17,-1.25 383,-5.91 372.39,-7.14 361.18,-9.21 350.5,-11.56"/>
+<polygon fill="#000000" stroke="#000000" points="349.42,-8.22 340.46,-13.89 351,-15.04 349.42,-8.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M762.34,-206.77C737.22,-168.59 652.97,-53.07 549.5,-46.91"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_whm_coord~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_whm_coord~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-232.91 510.5,-232.91 510.5,-208.91 586.5,-208.91 586.5,-232.91"/>
+<text text-anchor="middle" x="548.5" y="-218.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_coord~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C634.17,-261.58 601.71,-248.93 579.04,-237.69"/>
+<polygon fill="#000000" stroke="#000000" points="580.44,-234.47 569.95,-232.99 577.23,-240.69 580.44,-234.47"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_whm_coord~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_whm_coord~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-177 510,-177 510,-153 587,-153 587,-177"/>
-<text text-anchor="middle" x="548.5" y="-162.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_whm_coord~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-190.91 510,-190.91 510,-166.91 587,-166.91 587,-190.91"/>
+<text text-anchor="middle" x="548.5" y="-176.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_whm_coord~~UsesGraph_edge8" class="edge">
+<g id="module~~s_whm_coord~~UsesGraph_edge12" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C620.77,-243.98 623.46,-210.34 587,-186 585.13,-184.75 583.19,-183.51 581.21,-182.29"/>
-<polygon fill="#000000" stroke="#000000" points="582.84,-179.18 572.45,-177.1 579.27,-185.21 582.84,-179.18"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.89,-235.32C723.11,-241.76 693.21,-248.85 666.5,-247"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C620.68,-261.88 623.46,-224.25 587,-199.91 585.13,-198.66 583.19,-197.42 581.21,-196.2"/>
+<polygon fill="#000000" stroke="#000000" points="582.84,-193.09 572.45,-191.01 579.27,-199.12 582.84,-193.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M751.83,-231.01C731.83,-243.17 698.29,-260.21 666.5,-260.91"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_whm_coord~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-260.91C474.15,-254.84 448.17,-276.1 383,-241.91 349.89,-224.54 323.81,-188.56 309.67,-165.64"/>
+<polygon fill="#000000" stroke="#000000" points="312.65,-163.79 304.52,-156.99 306.63,-167.37 312.65,-163.79"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_whm_coord~~UsesGraph_node8" class="node">
+<g id="module~~s_whm_coord~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_whm_coord~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-198 623,-198 623,-174 708,-174 708,-198"/>
-<text text-anchor="middle" x="665.5" y="-183.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_whm_coord~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-210.91 623,-210.91 623,-186.91 708,-186.91 708,-210.91"/>
+<text text-anchor="middle" x="665.5" y="-196.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_whm_coord~~UsesGraph_edge9" class="edge">
+<g id="module~~s_whm_coord~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-215.91C732.83,-211.63 719.68,-206.55 707.39,-201.8"/>
-<polygon fill="#000000" stroke="#000000" points="708.36,-198.43 697.77,-198.09 705.84,-204.96 708.36,-198.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-213.86C736.05,-212.35 727.17,-210.63 718.29,-208.92"/>
+<polygon fill="#000000" stroke="#000000" points="718.8,-205.45 708.32,-206.99 717.47,-212.32 718.8,-205.45"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_coord~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-91C268.51,-89.48 243.05,-89.23 221.25,-89.46"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-85.96 211.2,-89.6 221.25,-92.96 221.15,-85.96"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-53C363.16,-57.08 353.35,-94.97 293.5,-91"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_whm_coord~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_whm_coord~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-136.91 0,-136.91 0,-112.91 87,-112.91 87,-136.91"/>
+<text text-anchor="middle" x="43.5" y="-122.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_coord~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247C470.17,-240.83 442.31,-264.75 374,-228 341.96,-210.76 317.58,-175 304.43,-152.05"/>
-<polygon fill="#000000" stroke="#000000" points="307.38,-150.16 299.49,-143.09 301.25,-153.54 307.38,-150.16"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_whm_coord~~UsesGraph_edge13" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-124.91C114.58,-124.91 105.86,-124.91 97.36,-124.91"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-121.41 87.13,-124.91 97.13,-128.41 97.13,-121.41"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_coord~~UsesGraph_edge14" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.62,-38.99C399.15,-43.35 390.68,-48.32 383,-52.91 344.99,-75.64 342.15,-101.47 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-104.91C271.19,-106.85 243.92,-110.84 220.95,-114.76"/>
+<polygon fill="#000000" stroke="#000000" points="220.31,-111.32 211.06,-116.49 221.51,-118.21 220.31,-111.32"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_coord~~UsesGraph_edge15" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.3,-38.05C258.23,-55.12 217.84,-86.37 191.99,-106.36"/>
+<polygon fill="#000000" stroke="#000000" points="189.59,-103.79 183.82,-112.67 193.88,-109.32 189.59,-103.79"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_whm_coord~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-207C498.53,-207 485.2,-207 472.67,-207"/>
-<polygon fill="#000000" stroke="#000000" points="472.38,-203.5 462.38,-207 472.38,-210.5 472.38,-203.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.49,-220.91C499.83,-220.91 488.05,-220.91 476.86,-220.91"/>
+<polygon fill="#000000" stroke="#000000" points="476.79,-217.41 466.79,-220.91 476.79,-224.41 476.79,-217.41"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_coord~~UsesGraph_edge15" class="edge">
+<g id="module~~s_whm_coord~~UsesGraph_edge16" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-195.71C485.82,-188.09 453.3,-177.55 425,-167"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-167C399.07,-158.08 395.13,-151.34 374,-137 357.45,-125.77 355.32,-120 338,-110 319.38,-99.25 314.96,-92.42 293.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-180.91C365.09,-157.27 364.5,-99.37 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.32,-209.05C486.97,-201.42 456.3,-191.07 429.5,-180.91"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_coord~~UsesGraph_edge13" class="edge">
+<g id="module~~s_whm_coord~~UsesGraph_edge18" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-167C398.51,-157.87 370.66,-149.84 347.08,-143.69"/>
-<polygon fill="#000000" stroke="#000000" points="347.81,-140.27 337.26,-141.18 346.08,-147.05 347.81,-140.27"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_coord~~UsesGraph_edge16" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-63C242.1,-67 228.18,-71.51 215.18,-75.72"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-72.46 205.45,-78.87 216.05,-79.12 213.89,-72.46"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_coord~~UsesGraph_edge17" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.86,-9.91C337.58,-10.04 287.65,-13.78 247,-30 223.78,-39.27 201.64,-57.46 186.74,-71.58"/>
-<polygon fill="#000000" stroke="#000000" points="183.94,-69.43 179.24,-78.92 188.84,-74.43 183.94,-69.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-180.91C402.96,-171.61 375,-163.54 351.35,-157.41"/>
+<polygon fill="#000000" stroke="#000000" points="352.06,-153.97 341.5,-154.9 350.33,-160.76 352.06,-153.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_coord~~UsesGraph_edge18" class="edge">
+<g id="module~~s_whm_coord~~UsesGraph_edge20" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.4,-177.04C499.07,-181.6 483.71,-186.87 469.62,-191.7"/>
-<polygon fill="#000000" stroke="#000000" points="468.43,-188.41 460.11,-194.96 470.7,-195.03 468.43,-188.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M513.69,-190.95C500.97,-195.47 486.34,-200.68 472.87,-205.47"/>
+<polygon fill="#000000" stroke="#000000" points="471.57,-202.22 463.32,-208.87 473.91,-208.82 471.57,-202.22"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_coord~~UsesGraph_edge19" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.84,-152.93C453.98,-132.76 336.68,-94.1 293.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M517.06,-166.89C460.58,-145.07 341.36,-101.53 298,-104.91"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_whm_coord~~UsesGraph_edge23" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-193.58C614.47,-195.14 605.46,-196.78 596.76,-198.37"/>
-<polygon fill="#000000" stroke="#000000" points="595.97,-194.96 586.76,-200.2 597.22,-201.84 595.97,-194.96"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_coord~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-178.42C614.57,-176.88 605.65,-175.25 597.05,-173.68"/>
-<polygon fill="#000000" stroke="#000000" points="597.6,-170.23 587.14,-171.87 596.34,-177.11 597.6,-170.23"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-138.08C242.31,-136.52 231.58,-134.85 221.24,-133.23"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-129.72 211.06,-131.64 220.4,-136.64 221.48,-129.72"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_coord~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M648.78,-173.99C611.65,-146.96 514.88,-84.2 425,-91"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-91C365.47,-89.42 350.93,-94.8 293.5,-91"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_coord~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-91C390.33,-93.47 354.9,-105.08 329.37,-115.16"/>
-<polygon fill="#000000" stroke="#000000" points="328.04,-111.92 320.09,-118.93 330.68,-118.41 328.04,-111.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-104.91C370.11,-109.25 355.36,-100.13 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M648.82,-186.84C612.21,-160 517.57,-98.25 429.5,-104.91"/>
 </g>
-<!-- iso_fortran_env -->
-<g id="module~~s_whm_coord~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_whm_coord~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-103 0,-103 0,-79 87,-79 87,-103"/>
-<text text-anchor="middle" x="43.5" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_coord~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-206.85C614.47,-208.48 605.46,-210.21 596.76,-211.87"/>
+<polygon fill="#000000" stroke="#000000" points="595.92,-208.47 586.76,-213.78 597.24,-215.34 595.92,-208.47"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_coord~~UsesGraph_edge23" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-191.69C614.57,-190.23 605.65,-188.68 597.05,-187.18"/>
+<polygon fill="#000000" stroke="#000000" points="597.59,-183.72 587.14,-185.46 596.39,-190.62 597.59,-183.72"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_whm_coord~~UsesGraph_edge24" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-91C114.58,-91 105.86,-91 97.36,-91"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-87.5 87.13,-91 97.13,-94.5 97.13,-87.5"/>
-</g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_coord~~UsesGraph_edge25" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-119C242.1,-115 228.18,-110.49 215.18,-106.28"/>
-<polygon fill="#000000" stroke="#000000" points="216.05,-102.88 205.45,-103.13 213.89,-109.54 216.05,-102.88"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-104.91C394.83,-107.38 359.4,-118.99 333.87,-129.07"/>
+<polygon fill="#000000" stroke="#000000" points="332.54,-125.84 324.59,-132.84 335.18,-132.32 332.54,-125.84"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_whm_gr.html b/docs/module/s_whm_gr.html
index 977e1691a..8544c9f2a 100644
--- a/docs/module/s_whm_gr.html
+++ b/docs/module/s_whm_gr.html
@@ -251,260 +251,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_whm_gr~~UsesGraph Pages: 1 -->
-<svg id="modules_whm_grUsesGraph" width="641pt" height="202pt"
- viewBox="0.00 0.00 641.00 202.38" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_whm_gr~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 281.42)">
+<svg id="modules_whm_grUsesGraph" width="641pt" height="211pt"
+ viewBox="0.00 0.00 641.00 210.73" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_whm_gr~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 293.2)">
 <title>module~~s_whm_gr~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-281.42 900,-281.42 900,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-293.2 900,-293.2 900,4 -4,4"/>
 <!-- module~s_whm_gr -->
 <g id="module~~s_whm_gr~~UsesGraph_node1" class="node">
 <title>module~s_whm_gr</title>
-<polygon fill="none" stroke="black" points="896,-258 834,-258 834,-234 896,-234 896,-258"/>
-<text text-anchor="middle" x="865" y="-243.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_gr</text>
+<polygon fill="none" stroke="black" points="896,-250.91 834,-250.91 834,-226.91 896,-226.91 896,-250.91"/>
+<text text-anchor="middle" x="865" y="-236.51" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_gr</text>
 </g>
 <!-- module~whm_classes -->
 <g id="module~~s_whm_gr~~UsesGraph_node2" class="node">
 <title>module~whm_classes</title>
 <g id="a_module~~s_whm_gr~~UsesGraph_node2"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-219 386,-219 386,-195 462,-195 462,-219"/>
-<text text-anchor="middle" x="424" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-232.91 390.5,-232.91 390.5,-208.91 466.5,-208.91 466.5,-232.91"/>
+<text text-anchor="middle" x="428.5" y="-218.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_whm_gr&#45;&gt;module~whm_classes -->
 <g id="module~~s_whm_gr~~UsesGraph_edge2" class="edge">
 <title>module~s_whm_gr&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M833.86,-253.63C771.78,-267.99 625.77,-294.66 510,-261 486.13,-254.06 462.55,-238.16 446.3,-225.41"/>
-<polygon fill="#000000" stroke="#000000" points="448.48,-222.67 438.51,-219.09 444.07,-228.11 448.48,-222.67"/>
+<path fill="none" stroke="#000000" d="M833.87,-249.73C771.81,-270.33 625.83,-310.16 510,-274.91 487.31,-268.01 465.21,-252.34 449.93,-239.65"/>
+<polygon fill="#000000" stroke="#000000" points="452.04,-236.85 442.17,-232.99 447.47,-242.16 452.04,-236.85"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_whm_gr~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_whm_gr~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-238 744,-238 744,-214 798,-214 798,-238"/>
-<text text-anchor="middle" x="771" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-230.91 744,-230.91 744,-206.91 798,-206.91 798,-230.91"/>
+<text text-anchor="middle" x="771" y="-216.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_whm_gr&#45;&gt;module~swiftest -->
 <g id="module~~s_whm_gr~~UsesGraph_edge1" class="edge">
 <title>module~s_whm_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.88,-239.45C825.68,-237.67 816.72,-235.72 808.22,-233.87"/>
-<polygon fill="#000000" stroke="#000000" points="808.69,-230.39 798.17,-231.69 807.2,-237.23 808.69,-230.39"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.88,-232.36C825.68,-230.58 816.72,-228.63 808.22,-226.78"/>
+<polygon fill="#000000" stroke="#000000" points="808.69,-223.3 798.17,-224.6 807.2,-230.14 808.69,-223.3"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_whm_gr~~UsesGraph_node9" class="node">
+<g id="module~~s_whm_gr~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_whm_gr~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-103 123,-103 123,-79 211,-79 211,-103"/>
-<text text-anchor="middle" x="167" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_whm_gr~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-136.91 123,-136.91 123,-112.91 211,-112.91 211,-136.91"/>
+<text text-anchor="middle" x="167" y="-122.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_gr~~UsesGraph_edge4" class="edge">
+<g id="module~~s_whm_gr~~UsesGraph_edge3" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.79,-199.42C349.1,-191.04 292.14,-175.51 247,-152 225.35,-140.72 203.6,-123.38 188.41,-110.06"/>
-<polygon fill="#000000" stroke="#000000" points="190.48,-107.22 180.7,-103.14 185.81,-112.43 190.48,-107.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.17,-211.68C353.18,-202.03 295.23,-185.58 247,-165.91 230.22,-159.07 212.23,-149.88 197.66,-141.95"/>
+<polygon fill="#000000" stroke="#000000" points="199.07,-138.73 188.63,-136.95 195.68,-144.85 199.07,-138.73"/>
 </g>
 <!-- module~swiftest_classes -->
-<g id="module~~s_whm_gr~~UsesGraph_node10" class="node">
+<g id="module~~s_whm_gr~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
-<g id="a_module~~s_whm_gr~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-143 248,-143 248,-119 337,-119 337,-143"/>
-<text text-anchor="middle" x="292.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~s_whm_gr~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-156.91 252.5,-156.91 252.5,-132.91 341.5,-132.91 341.5,-156.91"/>
+<text text-anchor="middle" x="297" y="-142.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_gr~~UsesGraph_edge3" class="edge">
+<g id="module~~s_whm_gr~~UsesGraph_edge4" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M399.39,-194.89C391.28,-190.62 382.18,-185.7 374,-181 356,-170.65 336.18,-158.35 320.71,-148.54"/>
-<polygon fill="#000000" stroke="#000000" points="322.46,-145.51 312.15,-143.08 318.7,-151.41 322.46,-145.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.66,-208.75C399.2,-204.39 390.72,-199.44 383,-194.91 364.6,-184.13 343.99,-172 327.67,-162.39"/>
+<polygon fill="#000000" stroke="#000000" points="328.99,-159.11 318.6,-157.05 325.44,-165.14 328.99,-159.11"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_gr~~UsesGraph_edge12" class="edge">
+<g id="module~~s_whm_gr~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C613.51,-243.48 600.45,-251.07 549.5,-247"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247C516.73,-244.54 483.54,-233.11 459.48,-223.1"/>
-<polygon fill="#000000" stroke="#000000" points="460.65,-219.79 450.08,-219.07 457.89,-226.23 460.65,-219.79"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_whm_gr~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_whm_gr~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-219 510.5,-219 510.5,-195 586.5,-195 586.5,-219"/>
-<text text-anchor="middle" x="548.5" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C613.4,-262.04 600.44,-265.13 549.5,-260.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-260.91C517.89,-258.46 486.07,-247.12 462.95,-237.14"/>
+<polygon fill="#000000" stroke="#000000" points="464.17,-233.85 453.61,-232.97 461.32,-240.24 464.17,-233.85"/>
 </g>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_gr~~UsesGraph_edge5" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C635.35,-244.98 604.14,-233.48 581.6,-223.32"/>
-<polygon fill="#000000" stroke="#000000" points="583.05,-220.14 572.51,-219.08 580.09,-226.48 583.05,-220.14"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C492.89,-30.85 354.73,-100.18 298,-104.91"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_whm_gr~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_whm_gr~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-63 247,-63 247,-39 338,-39 338,-63"/>
-<text text-anchor="middle" x="292.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-38.91 383,-38.91 383,-14.91 474,-14.91 474,-38.91"/>
+<text text-anchor="middle" x="428.5" y="-24.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_whm_gr~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-53C495.62,-36.48 479.32,-49.3 425,-53"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-53C398.59,-54.66 371.52,-54.55 348.48,-53.87"/>
-<polygon fill="#000000" stroke="#000000" points="348.31,-50.36 338.2,-53.52 348.07,-57.36 348.31,-50.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C526.69,-45.19 504.04,-41.74 484.19,-38.18"/>
+<polygon fill="#000000" stroke="#000000" points="484.57,-34.69 474.1,-36.32 483.3,-41.57 484.57,-34.69"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_whm_gr~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_whm_gr~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-24 374,-24 374,0 474,0 474,-24"/>
-<text text-anchor="middle" x="424" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.91 247,-37.91 247,-13.91 347,-13.91 347,-37.91"/>
+<text text-anchor="middle" x="297" y="-23.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_whm_gr~~UsesGraph_edge7" class="edge">
+<g id="module~~s_whm_gr~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-53C516.46,-50.46 483.05,-38.61 458.97,-28.3"/>
-<polygon fill="#000000" stroke="#000000" points="460.15,-24.99 449.58,-24.16 457.32,-31.4 460.15,-24.99"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M762.35,-213.98C737.24,-176.14 653.04,-61.47 549.5,-53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C510.22,-43.83 510.2,-15.32 474,-5.91 434.86,4.27 423.17,-1.25 383,-5.91 372.39,-7.14 361.18,-9.21 350.5,-11.56"/>
+<polygon fill="#000000" stroke="#000000" points="349.42,-8.22 340.46,-13.89 351,-15.04 349.42,-8.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M762.34,-206.77C737.22,-168.59 652.97,-53.07 549.5,-46.91"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_whm_gr~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_whm_gr~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-232.91 510.5,-232.91 510.5,-208.91 586.5,-208.91 586.5,-232.91"/>
+<text text-anchor="middle" x="548.5" y="-218.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_gr~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C634.17,-261.58 601.71,-248.93 579.04,-237.69"/>
+<polygon fill="#000000" stroke="#000000" points="580.44,-234.47 569.95,-232.99 577.23,-240.69 580.44,-234.47"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_whm_gr~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_whm_gr~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-177 510,-177 510,-153 587,-153 587,-177"/>
-<text text-anchor="middle" x="548.5" y="-162.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_whm_gr~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-190.91 510,-190.91 510,-166.91 587,-166.91 587,-190.91"/>
+<text text-anchor="middle" x="548.5" y="-176.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_whm_gr~~UsesGraph_edge8" class="edge">
+<g id="module~~s_whm_gr~~UsesGraph_edge12" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C620.77,-243.98 623.46,-210.34 587,-186 585.13,-184.75 583.19,-183.51 581.21,-182.29"/>
-<polygon fill="#000000" stroke="#000000" points="582.84,-179.18 572.45,-177.1 579.27,-185.21 582.84,-179.18"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.89,-235.32C723.11,-241.76 693.21,-248.85 666.5,-247"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C620.68,-261.88 623.46,-224.25 587,-199.91 585.13,-198.66 583.19,-197.42 581.21,-196.2"/>
+<polygon fill="#000000" stroke="#000000" points="582.84,-193.09 572.45,-191.01 579.27,-199.12 582.84,-193.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M751.83,-231.01C731.83,-243.17 698.29,-260.21 666.5,-260.91"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_whm_gr~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-260.91C474.15,-254.84 448.17,-276.1 383,-241.91 349.89,-224.54 323.81,-188.56 309.67,-165.64"/>
+<polygon fill="#000000" stroke="#000000" points="312.65,-163.79 304.52,-156.99 306.63,-167.37 312.65,-163.79"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_whm_gr~~UsesGraph_node8" class="node">
+<g id="module~~s_whm_gr~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_whm_gr~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-198 623,-198 623,-174 708,-174 708,-198"/>
-<text text-anchor="middle" x="665.5" y="-183.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_whm_gr~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-210.91 623,-210.91 623,-186.91 708,-186.91 708,-210.91"/>
+<text text-anchor="middle" x="665.5" y="-196.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_whm_gr~~UsesGraph_edge9" class="edge">
+<g id="module~~s_whm_gr~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-215.91C732.83,-211.63 719.68,-206.55 707.39,-201.8"/>
-<polygon fill="#000000" stroke="#000000" points="708.36,-198.43 697.77,-198.09 705.84,-204.96 708.36,-198.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-213.86C736.05,-212.35 727.17,-210.63 718.29,-208.92"/>
+<polygon fill="#000000" stroke="#000000" points="718.8,-205.45 708.32,-206.99 717.47,-212.32 718.8,-205.45"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_gr~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-91C268.51,-89.48 243.05,-89.23 221.25,-89.46"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-85.96 211.2,-89.6 221.25,-92.96 221.15,-85.96"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-53C363.16,-57.08 353.35,-94.97 293.5,-91"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_whm_gr~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_whm_gr~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-136.91 0,-136.91 0,-112.91 87,-112.91 87,-136.91"/>
+<text text-anchor="middle" x="43.5" y="-122.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_gr~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247C470.17,-240.83 442.31,-264.75 374,-228 341.96,-210.76 317.58,-175 304.43,-152.05"/>
-<polygon fill="#000000" stroke="#000000" points="307.38,-150.16 299.49,-143.09 301.25,-153.54 307.38,-150.16"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_whm_gr~~UsesGraph_edge13" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-124.91C114.58,-124.91 105.86,-124.91 97.36,-124.91"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-121.41 87.13,-124.91 97.13,-128.41 97.13,-121.41"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_gr~~UsesGraph_edge14" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.62,-38.99C399.15,-43.35 390.68,-48.32 383,-52.91 344.99,-75.64 342.15,-101.47 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-104.91C271.19,-106.85 243.92,-110.84 220.95,-114.76"/>
+<polygon fill="#000000" stroke="#000000" points="220.31,-111.32 211.06,-116.49 221.51,-118.21 220.31,-111.32"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_gr~~UsesGraph_edge15" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.3,-38.05C258.23,-55.12 217.84,-86.37 191.99,-106.36"/>
+<polygon fill="#000000" stroke="#000000" points="189.59,-103.79 183.82,-112.67 193.88,-109.32 189.59,-103.79"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_whm_gr~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-207C498.53,-207 485.2,-207 472.67,-207"/>
-<polygon fill="#000000" stroke="#000000" points="472.38,-203.5 462.38,-207 472.38,-210.5 472.38,-203.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.49,-220.91C499.83,-220.91 488.05,-220.91 476.86,-220.91"/>
+<polygon fill="#000000" stroke="#000000" points="476.79,-217.41 466.79,-220.91 476.79,-224.41 476.79,-217.41"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_gr~~UsesGraph_edge15" class="edge">
+<g id="module~~s_whm_gr~~UsesGraph_edge16" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-195.71C485.82,-188.09 453.3,-177.55 425,-167"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-167C399.07,-158.08 395.13,-151.34 374,-137 357.45,-125.77 355.32,-120 338,-110 319.38,-99.25 314.96,-92.42 293.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-180.91C365.09,-157.27 364.5,-99.37 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.32,-209.05C486.97,-201.42 456.3,-191.07 429.5,-180.91"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_gr~~UsesGraph_edge13" class="edge">
+<g id="module~~s_whm_gr~~UsesGraph_edge18" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-167C398.51,-157.87 370.66,-149.84 347.08,-143.69"/>
-<polygon fill="#000000" stroke="#000000" points="347.81,-140.27 337.26,-141.18 346.08,-147.05 347.81,-140.27"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_gr~~UsesGraph_edge16" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-63C242.1,-67 228.18,-71.51 215.18,-75.72"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-72.46 205.45,-78.87 216.05,-79.12 213.89,-72.46"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_gr~~UsesGraph_edge17" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.86,-9.91C337.58,-10.04 287.65,-13.78 247,-30 223.78,-39.27 201.64,-57.46 186.74,-71.58"/>
-<polygon fill="#000000" stroke="#000000" points="183.94,-69.43 179.24,-78.92 188.84,-74.43 183.94,-69.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-180.91C402.96,-171.61 375,-163.54 351.35,-157.41"/>
+<polygon fill="#000000" stroke="#000000" points="352.06,-153.97 341.5,-154.9 350.33,-160.76 352.06,-153.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_gr~~UsesGraph_edge18" class="edge">
+<g id="module~~s_whm_gr~~UsesGraph_edge20" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.4,-177.04C499.07,-181.6 483.71,-186.87 469.62,-191.7"/>
-<polygon fill="#000000" stroke="#000000" points="468.43,-188.41 460.11,-194.96 470.7,-195.03 468.43,-188.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M513.69,-190.95C500.97,-195.47 486.34,-200.68 472.87,-205.47"/>
+<polygon fill="#000000" stroke="#000000" points="471.57,-202.22 463.32,-208.87 473.91,-208.82 471.57,-202.22"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_gr~~UsesGraph_edge19" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.84,-152.93C453.98,-132.76 336.68,-94.1 293.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M517.06,-166.89C460.58,-145.07 341.36,-101.53 298,-104.91"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_whm_gr~~UsesGraph_edge23" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-193.58C614.47,-195.14 605.46,-196.78 596.76,-198.37"/>
-<polygon fill="#000000" stroke="#000000" points="595.97,-194.96 586.76,-200.2 597.22,-201.84 595.97,-194.96"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_gr~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-178.42C614.57,-176.88 605.65,-175.25 597.05,-173.68"/>
-<polygon fill="#000000" stroke="#000000" points="597.6,-170.23 587.14,-171.87 596.34,-177.11 597.6,-170.23"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-138.08C242.31,-136.52 231.58,-134.85 221.24,-133.23"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-129.72 211.06,-131.64 220.4,-136.64 221.48,-129.72"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_gr~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M648.78,-173.99C611.65,-146.96 514.88,-84.2 425,-91"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-91C365.47,-89.42 350.93,-94.8 293.5,-91"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_gr~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-91C390.33,-93.47 354.9,-105.08 329.37,-115.16"/>
-<polygon fill="#000000" stroke="#000000" points="328.04,-111.92 320.09,-118.93 330.68,-118.41 328.04,-111.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-104.91C370.11,-109.25 355.36,-100.13 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M648.82,-186.84C612.21,-160 517.57,-98.25 429.5,-104.91"/>
 </g>
-<!-- iso_fortran_env -->
-<g id="module~~s_whm_gr~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_whm_gr~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-103 0,-103 0,-79 87,-79 87,-103"/>
-<text text-anchor="middle" x="43.5" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_gr~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-206.85C614.47,-208.48 605.46,-210.21 596.76,-211.87"/>
+<polygon fill="#000000" stroke="#000000" points="595.92,-208.47 586.76,-213.78 597.24,-215.34 595.92,-208.47"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_gr~~UsesGraph_edge23" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-191.69C614.57,-190.23 605.65,-188.68 597.05,-187.18"/>
+<polygon fill="#000000" stroke="#000000" points="597.59,-183.72 587.14,-185.46 596.39,-190.62 597.59,-183.72"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_whm_gr~~UsesGraph_edge24" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-91C114.58,-91 105.86,-91 97.36,-91"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-87.5 87.13,-91 97.13,-94.5 97.13,-87.5"/>
-</g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_gr~~UsesGraph_edge25" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-119C242.1,-115 228.18,-110.49 215.18,-106.28"/>
-<polygon fill="#000000" stroke="#000000" points="216.05,-102.88 205.45,-103.13 213.89,-109.54 216.05,-102.88"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-104.91C394.83,-107.38 359.4,-118.99 333.87,-129.07"/>
+<polygon fill="#000000" stroke="#000000" points="332.54,-125.84 324.59,-132.84 335.18,-132.32 332.54,-125.84"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_whm_kick.html b/docs/module/s_whm_kick.html
index 81cc36686..1905913d0 100644
--- a/docs/module/s_whm_kick.html
+++ b/docs/module/s_whm_kick.html
@@ -277,260 +277,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_whm_kick~~UsesGraph Pages: 1 -->
-<svg id="modules_whm_kickUsesGraph" width="641pt" height="201pt"
- viewBox="0.00 0.00 641.00 200.73" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_whm_kick~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 281.59)">
+<svg id="modules_whm_kickUsesGraph" width="641pt" height="209pt"
+ viewBox="0.00 0.00 641.00 209.03" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_whm_kick~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 293.4)">
 <title>module~~s_whm_kick~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-281.59 908,-281.59 908,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-293.4 908,-293.4 908,4 -4,4"/>
 <!-- module~s_whm_kick -->
 <g id="module~~s_whm_kick~~UsesGraph_node1" class="node">
 <title>module~s_whm_kick</title>
-<polygon fill="none" stroke="black" points="904,-258 834,-258 834,-234 904,-234 904,-258"/>
-<text text-anchor="middle" x="869" y="-243.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_kick</text>
+<polygon fill="none" stroke="black" points="904,-250.91 834,-250.91 834,-226.91 904,-226.91 904,-250.91"/>
+<text text-anchor="middle" x="869" y="-236.51" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_kick</text>
 </g>
 <!-- module~whm_classes -->
 <g id="module~~s_whm_kick~~UsesGraph_node2" class="node">
 <title>module~whm_classes</title>
 <g id="a_module~~s_whm_kick~~UsesGraph_node2"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-219 386,-219 386,-195 462,-195 462,-219"/>
-<text text-anchor="middle" x="424" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-232.91 390.5,-232.91 390.5,-208.91 466.5,-208.91 466.5,-232.91"/>
+<text text-anchor="middle" x="428.5" y="-218.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_whm_kick&#45;&gt;module~whm_classes -->
 <g id="module~~s_whm_kick~~UsesGraph_edge2" class="edge">
 <title>module~s_whm_kick&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M833.82,-254.54C769.09,-269.17 624.84,-294.39 510,-261 486.13,-254.06 462.55,-238.16 446.3,-225.41"/>
-<polygon fill="#000000" stroke="#000000" points="448.48,-222.67 438.51,-219.09 444.07,-228.11 448.48,-222.67"/>
+<path fill="none" stroke="#000000" d="M834.08,-250.92C769.49,-271.92 625.04,-309.92 510,-274.91 487.31,-268.01 465.21,-252.34 449.93,-239.65"/>
+<polygon fill="#000000" stroke="#000000" points="452.04,-236.85 442.17,-232.99 447.47,-242.16 452.04,-236.85"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_whm_kick~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_whm_kick~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-238 744,-238 744,-214 798,-214 798,-238"/>
-<text text-anchor="middle" x="771" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-230.91 744,-230.91 744,-206.91 798,-206.91 798,-230.91"/>
+<text text-anchor="middle" x="771" y="-216.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_whm_kick&#45;&gt;module~swiftest -->
 <g id="module~~s_whm_kick~~UsesGraph_edge1" class="edge">
 <title>module~s_whm_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.88,-238.89C825.53,-237.15 816.56,-235.28 808.12,-233.53"/>
-<polygon fill="#000000" stroke="#000000" points="808.66,-230.06 798.16,-231.45 807.24,-236.92 808.66,-230.06"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.88,-231.8C825.53,-230.06 816.56,-228.19 808.12,-226.44"/>
+<polygon fill="#000000" stroke="#000000" points="808.66,-222.97 798.16,-224.36 807.24,-229.83 808.66,-222.97"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_whm_kick~~UsesGraph_node9" class="node">
+<g id="module~~s_whm_kick~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_whm_kick~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-103 123,-103 123,-79 211,-79 211,-103"/>
-<text text-anchor="middle" x="167" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_whm_kick~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-136.91 123,-136.91 123,-112.91 211,-112.91 211,-136.91"/>
+<text text-anchor="middle" x="167" y="-122.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_kick~~UsesGraph_edge4" class="edge">
+<g id="module~~s_whm_kick~~UsesGraph_edge3" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.79,-199.42C349.1,-191.04 292.14,-175.51 247,-152 225.35,-140.72 203.6,-123.38 188.41,-110.06"/>
-<polygon fill="#000000" stroke="#000000" points="190.48,-107.22 180.7,-103.14 185.81,-112.43 190.48,-107.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.17,-211.68C353.18,-202.03 295.23,-185.58 247,-165.91 230.22,-159.07 212.23,-149.88 197.66,-141.95"/>
+<polygon fill="#000000" stroke="#000000" points="199.07,-138.73 188.63,-136.95 195.68,-144.85 199.07,-138.73"/>
 </g>
 <!-- module~swiftest_classes -->
-<g id="module~~s_whm_kick~~UsesGraph_node10" class="node">
+<g id="module~~s_whm_kick~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
-<g id="a_module~~s_whm_kick~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-143 248,-143 248,-119 337,-119 337,-143"/>
-<text text-anchor="middle" x="292.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~s_whm_kick~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-156.91 252.5,-156.91 252.5,-132.91 341.5,-132.91 341.5,-156.91"/>
+<text text-anchor="middle" x="297" y="-142.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_kick~~UsesGraph_edge3" class="edge">
+<g id="module~~s_whm_kick~~UsesGraph_edge4" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M399.39,-194.89C391.28,-190.62 382.18,-185.7 374,-181 356,-170.65 336.18,-158.35 320.71,-148.54"/>
-<polygon fill="#000000" stroke="#000000" points="322.46,-145.51 312.15,-143.08 318.7,-151.41 322.46,-145.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.66,-208.75C399.2,-204.39 390.72,-199.44 383,-194.91 364.6,-184.13 343.99,-172 327.67,-162.39"/>
+<polygon fill="#000000" stroke="#000000" points="328.99,-159.11 318.6,-157.05 325.44,-165.14 328.99,-159.11"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_kick~~UsesGraph_edge12" class="edge">
+<g id="module~~s_whm_kick~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C613.51,-243.48 600.45,-251.07 549.5,-247"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247C516.73,-244.54 483.54,-233.11 459.48,-223.1"/>
-<polygon fill="#000000" stroke="#000000" points="460.65,-219.79 450.08,-219.07 457.89,-226.23 460.65,-219.79"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_whm_kick~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_whm_kick~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-219 510.5,-219 510.5,-195 586.5,-195 586.5,-219"/>
-<text text-anchor="middle" x="548.5" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C613.4,-262.04 600.44,-265.13 549.5,-260.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-260.91C517.89,-258.46 486.07,-247.12 462.95,-237.14"/>
+<polygon fill="#000000" stroke="#000000" points="464.17,-233.85 453.61,-232.97 461.32,-240.24 464.17,-233.85"/>
 </g>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_kick~~UsesGraph_edge5" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C635.35,-244.98 604.14,-233.48 581.6,-223.32"/>
-<polygon fill="#000000" stroke="#000000" points="583.05,-220.14 572.51,-219.08 580.09,-226.48 583.05,-220.14"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C492.89,-30.85 354.73,-100.18 298,-104.91"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_whm_kick~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_whm_kick~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-63 247,-63 247,-39 338,-39 338,-63"/>
-<text text-anchor="middle" x="292.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-38.91 383,-38.91 383,-14.91 474,-14.91 474,-38.91"/>
+<text text-anchor="middle" x="428.5" y="-24.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_whm_kick~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-53C495.62,-36.48 479.32,-49.3 425,-53"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-53C398.59,-54.66 371.52,-54.55 348.48,-53.87"/>
-<polygon fill="#000000" stroke="#000000" points="348.31,-50.36 338.2,-53.52 348.07,-57.36 348.31,-50.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C526.69,-45.19 504.04,-41.74 484.19,-38.18"/>
+<polygon fill="#000000" stroke="#000000" points="484.57,-34.69 474.1,-36.32 483.3,-41.57 484.57,-34.69"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_whm_kick~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_whm_kick~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-24 374,-24 374,0 474,0 474,-24"/>
-<text text-anchor="middle" x="424" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.91 247,-37.91 247,-13.91 347,-13.91 347,-37.91"/>
+<text text-anchor="middle" x="297" y="-23.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_whm_kick~~UsesGraph_edge7" class="edge">
+<g id="module~~s_whm_kick~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-53C516.46,-50.46 483.05,-38.61 458.97,-28.3"/>
-<polygon fill="#000000" stroke="#000000" points="460.15,-24.99 449.58,-24.16 457.32,-31.4 460.15,-24.99"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M762.35,-213.98C737.24,-176.14 653.04,-61.47 549.5,-53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C510.22,-43.83 510.2,-15.32 474,-5.91 434.86,4.27 423.17,-1.25 383,-5.91 372.39,-7.14 361.18,-9.21 350.5,-11.56"/>
+<polygon fill="#000000" stroke="#000000" points="349.42,-8.22 340.46,-13.89 351,-15.04 349.42,-8.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M762.34,-206.77C737.22,-168.59 652.97,-53.07 549.5,-46.91"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_whm_kick~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_whm_kick~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-232.91 510.5,-232.91 510.5,-208.91 586.5,-208.91 586.5,-232.91"/>
+<text text-anchor="middle" x="548.5" y="-218.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_kick~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C634.17,-261.58 601.71,-248.93 579.04,-237.69"/>
+<polygon fill="#000000" stroke="#000000" points="580.44,-234.47 569.95,-232.99 577.23,-240.69 580.44,-234.47"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_whm_kick~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_whm_kick~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-177 510,-177 510,-153 587,-153 587,-177"/>
-<text text-anchor="middle" x="548.5" y="-162.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_whm_kick~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-190.91 510,-190.91 510,-166.91 587,-166.91 587,-190.91"/>
+<text text-anchor="middle" x="548.5" y="-176.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_whm_kick~~UsesGraph_edge8" class="edge">
+<g id="module~~s_whm_kick~~UsesGraph_edge12" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C620.77,-243.98 623.46,-210.34 587,-186 585.13,-184.75 583.19,-183.51 581.21,-182.29"/>
-<polygon fill="#000000" stroke="#000000" points="582.84,-179.18 572.45,-177.1 579.27,-185.21 582.84,-179.18"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.89,-235.32C723.11,-241.76 693.21,-248.85 666.5,-247"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C620.68,-261.88 623.46,-224.25 587,-199.91 585.13,-198.66 583.19,-197.42 581.21,-196.2"/>
+<polygon fill="#000000" stroke="#000000" points="582.84,-193.09 572.45,-191.01 579.27,-199.12 582.84,-193.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M751.83,-231.01C731.83,-243.17 698.29,-260.21 666.5,-260.91"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_whm_kick~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-260.91C474.15,-254.84 448.17,-276.1 383,-241.91 349.89,-224.54 323.81,-188.56 309.67,-165.64"/>
+<polygon fill="#000000" stroke="#000000" points="312.65,-163.79 304.52,-156.99 306.63,-167.37 312.65,-163.79"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_whm_kick~~UsesGraph_node8" class="node">
+<g id="module~~s_whm_kick~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_whm_kick~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-198 623,-198 623,-174 708,-174 708,-198"/>
-<text text-anchor="middle" x="665.5" y="-183.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_whm_kick~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-210.91 623,-210.91 623,-186.91 708,-186.91 708,-210.91"/>
+<text text-anchor="middle" x="665.5" y="-196.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_whm_kick~~UsesGraph_edge9" class="edge">
+<g id="module~~s_whm_kick~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-215.91C732.83,-211.63 719.68,-206.55 707.39,-201.8"/>
-<polygon fill="#000000" stroke="#000000" points="708.36,-198.43 697.77,-198.09 705.84,-204.96 708.36,-198.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-213.86C736.05,-212.35 727.17,-210.63 718.29,-208.92"/>
+<polygon fill="#000000" stroke="#000000" points="718.8,-205.45 708.32,-206.99 717.47,-212.32 718.8,-205.45"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_kick~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-91C268.51,-89.48 243.05,-89.23 221.25,-89.46"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-85.96 211.2,-89.6 221.25,-92.96 221.15,-85.96"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-53C363.16,-57.08 353.35,-94.97 293.5,-91"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_whm_kick~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_whm_kick~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-136.91 0,-136.91 0,-112.91 87,-112.91 87,-136.91"/>
+<text text-anchor="middle" x="43.5" y="-122.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_kick~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247C470.17,-240.83 442.31,-264.75 374,-228 341.96,-210.76 317.58,-175 304.43,-152.05"/>
-<polygon fill="#000000" stroke="#000000" points="307.38,-150.16 299.49,-143.09 301.25,-153.54 307.38,-150.16"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_whm_kick~~UsesGraph_edge13" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-124.91C114.58,-124.91 105.86,-124.91 97.36,-124.91"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-121.41 87.13,-124.91 97.13,-128.41 97.13,-121.41"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_kick~~UsesGraph_edge14" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.62,-38.99C399.15,-43.35 390.68,-48.32 383,-52.91 344.99,-75.64 342.15,-101.47 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-104.91C271.19,-106.85 243.92,-110.84 220.95,-114.76"/>
+<polygon fill="#000000" stroke="#000000" points="220.31,-111.32 211.06,-116.49 221.51,-118.21 220.31,-111.32"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_kick~~UsesGraph_edge15" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.3,-38.05C258.23,-55.12 217.84,-86.37 191.99,-106.36"/>
+<polygon fill="#000000" stroke="#000000" points="189.59,-103.79 183.82,-112.67 193.88,-109.32 189.59,-103.79"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_whm_kick~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-207C498.53,-207 485.2,-207 472.67,-207"/>
-<polygon fill="#000000" stroke="#000000" points="472.38,-203.5 462.38,-207 472.38,-210.5 472.38,-203.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.49,-220.91C499.83,-220.91 488.05,-220.91 476.86,-220.91"/>
+<polygon fill="#000000" stroke="#000000" points="476.79,-217.41 466.79,-220.91 476.79,-224.41 476.79,-217.41"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_kick~~UsesGraph_edge15" class="edge">
+<g id="module~~s_whm_kick~~UsesGraph_edge16" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-195.71C485.82,-188.09 453.3,-177.55 425,-167"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-167C399.07,-158.08 395.13,-151.34 374,-137 357.45,-125.77 355.32,-120 338,-110 319.38,-99.25 314.96,-92.42 293.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-180.91C365.09,-157.27 364.5,-99.37 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.32,-209.05C486.97,-201.42 456.3,-191.07 429.5,-180.91"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_kick~~UsesGraph_edge13" class="edge">
+<g id="module~~s_whm_kick~~UsesGraph_edge18" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-167C398.51,-157.87 370.66,-149.84 347.08,-143.69"/>
-<polygon fill="#000000" stroke="#000000" points="347.81,-140.27 337.26,-141.18 346.08,-147.05 347.81,-140.27"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_kick~~UsesGraph_edge16" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-63C242.1,-67 228.18,-71.51 215.18,-75.72"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-72.46 205.45,-78.87 216.05,-79.12 213.89,-72.46"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_kick~~UsesGraph_edge17" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.86,-9.91C337.58,-10.04 287.65,-13.78 247,-30 223.78,-39.27 201.64,-57.46 186.74,-71.58"/>
-<polygon fill="#000000" stroke="#000000" points="183.94,-69.43 179.24,-78.92 188.84,-74.43 183.94,-69.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-180.91C402.96,-171.61 375,-163.54 351.35,-157.41"/>
+<polygon fill="#000000" stroke="#000000" points="352.06,-153.97 341.5,-154.9 350.33,-160.76 352.06,-153.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_kick~~UsesGraph_edge18" class="edge">
+<g id="module~~s_whm_kick~~UsesGraph_edge20" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.4,-177.04C499.07,-181.6 483.71,-186.87 469.62,-191.7"/>
-<polygon fill="#000000" stroke="#000000" points="468.43,-188.41 460.11,-194.96 470.7,-195.03 468.43,-188.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M513.69,-190.95C500.97,-195.47 486.34,-200.68 472.87,-205.47"/>
+<polygon fill="#000000" stroke="#000000" points="471.57,-202.22 463.32,-208.87 473.91,-208.82 471.57,-202.22"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_kick~~UsesGraph_edge19" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.84,-152.93C453.98,-132.76 336.68,-94.1 293.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M517.06,-166.89C460.58,-145.07 341.36,-101.53 298,-104.91"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_whm_kick~~UsesGraph_edge23" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-193.58C614.47,-195.14 605.46,-196.78 596.76,-198.37"/>
-<polygon fill="#000000" stroke="#000000" points="595.97,-194.96 586.76,-200.2 597.22,-201.84 595.97,-194.96"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_kick~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-178.42C614.57,-176.88 605.65,-175.25 597.05,-173.68"/>
-<polygon fill="#000000" stroke="#000000" points="597.6,-170.23 587.14,-171.87 596.34,-177.11 597.6,-170.23"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-138.08C242.31,-136.52 231.58,-134.85 221.24,-133.23"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-129.72 211.06,-131.64 220.4,-136.64 221.48,-129.72"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_kick~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M648.78,-173.99C611.65,-146.96 514.88,-84.2 425,-91"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-91C365.47,-89.42 350.93,-94.8 293.5,-91"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_kick~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-91C390.33,-93.47 354.9,-105.08 329.37,-115.16"/>
-<polygon fill="#000000" stroke="#000000" points="328.04,-111.92 320.09,-118.93 330.68,-118.41 328.04,-111.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-104.91C370.11,-109.25 355.36,-100.13 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M648.82,-186.84C612.21,-160 517.57,-98.25 429.5,-104.91"/>
 </g>
-<!-- iso_fortran_env -->
-<g id="module~~s_whm_kick~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_whm_kick~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-103 0,-103 0,-79 87,-79 87,-103"/>
-<text text-anchor="middle" x="43.5" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_kick~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-206.85C614.47,-208.48 605.46,-210.21 596.76,-211.87"/>
+<polygon fill="#000000" stroke="#000000" points="595.92,-208.47 586.76,-213.78 597.24,-215.34 595.92,-208.47"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_kick~~UsesGraph_edge23" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-191.69C614.57,-190.23 605.65,-188.68 597.05,-187.18"/>
+<polygon fill="#000000" stroke="#000000" points="597.59,-183.72 587.14,-185.46 596.39,-190.62 597.59,-183.72"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_whm_kick~~UsesGraph_edge24" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-91C114.58,-91 105.86,-91 97.36,-91"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-87.5 87.13,-91 97.13,-94.5 97.13,-87.5"/>
-</g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_kick~~UsesGraph_edge25" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-119C242.1,-115 228.18,-110.49 215.18,-106.28"/>
-<polygon fill="#000000" stroke="#000000" points="216.05,-102.88 205.45,-103.13 213.89,-109.54 216.05,-102.88"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-104.91C394.83,-107.38 359.4,-118.99 333.87,-129.07"/>
+<polygon fill="#000000" stroke="#000000" points="332.54,-125.84 324.59,-132.84 335.18,-132.32 332.54,-125.84"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_whm_setup.html b/docs/module/s_whm_setup.html
index ba64ec67b..f87399d52 100644
--- a/docs/module/s_whm_setup.html
+++ b/docs/module/s_whm_setup.html
@@ -249,260 +249,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_whm_setup~~UsesGraph Pages: 1 -->
-<svg id="modules_whm_setupUsesGraph" width="641pt" height="199pt"
- viewBox="0.00 0.00 641.00 198.90" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_whm_setup~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 281.78)">
+<svg id="modules_whm_setupUsesGraph" width="641pt" height="207pt"
+ viewBox="0.00 0.00 641.00 207.15" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_whm_setup~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 293.64)">
 <title>module~~s_whm_setup~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-281.78 917,-281.78 917,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-293.64 917,-293.64 917,4 -4,4"/>
 <!-- module~s_whm_setup -->
 <g id="module~~s_whm_setup~~UsesGraph_node1" class="node">
 <title>module~s_whm_setup</title>
-<polygon fill="none" stroke="black" points="913,-258 834,-258 834,-234 913,-234 913,-258"/>
-<text text-anchor="middle" x="873.5" y="-243.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_setup</text>
+<polygon fill="none" stroke="black" points="913,-250.91 834,-250.91 834,-226.91 913,-226.91 913,-250.91"/>
+<text text-anchor="middle" x="873.5" y="-236.51" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_setup</text>
 </g>
 <!-- module~whm_classes -->
 <g id="module~~s_whm_setup~~UsesGraph_node2" class="node">
 <title>module~whm_classes</title>
 <g id="a_module~~s_whm_setup~~UsesGraph_node2"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-219 386,-219 386,-195 462,-195 462,-219"/>
-<text text-anchor="middle" x="424" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-232.91 390.5,-232.91 390.5,-208.91 466.5,-208.91 466.5,-232.91"/>
+<text text-anchor="middle" x="428.5" y="-218.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_whm_setup&#45;&gt;module~whm_classes -->
 <g id="module~~s_whm_setup~~UsesGraph_edge2" class="edge">
 <title>module~s_whm_setup&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M833.96,-255.49C766.66,-270.35 624.01,-294.15 510,-261 486.13,-254.06 462.55,-238.16 446.3,-225.41"/>
-<polygon fill="#000000" stroke="#000000" points="448.48,-222.67 438.51,-219.09 444.07,-228.11 448.48,-222.67"/>
+<path fill="none" stroke="#000000" d="M838.41,-250.92C773.13,-272.04 626.62,-310.4 510,-274.91 487.31,-268.01 465.21,-252.34 449.93,-239.65"/>
+<polygon fill="#000000" stroke="#000000" points="452.04,-236.85 442.17,-232.99 447.47,-242.16 452.04,-236.85"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_whm_setup~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_whm_setup~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-238 744,-238 744,-214 798,-214 798,-238"/>
-<text text-anchor="middle" x="771" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-230.91 744,-230.91 744,-206.91 798,-206.91 798,-230.91"/>
+<text text-anchor="middle" x="771" y="-216.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_whm_setup&#45;&gt;module~swiftest -->
 <g id="module~~s_whm_setup~~UsesGraph_edge1" class="edge">
 <title>module~s_whm_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.93,-238.32C825.43,-236.63 816.46,-234.85 808.06,-233.18"/>
-<polygon fill="#000000" stroke="#000000" points="808.67,-229.73 798.18,-231.21 807.3,-236.59 808.67,-229.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.93,-231.24C825.43,-229.54 816.46,-227.76 808.06,-226.09"/>
+<polygon fill="#000000" stroke="#000000" points="808.67,-222.64 798.18,-224.12 807.3,-229.5 808.67,-222.64"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_whm_setup~~UsesGraph_node9" class="node">
+<g id="module~~s_whm_setup~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_whm_setup~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-103 123,-103 123,-79 211,-79 211,-103"/>
-<text text-anchor="middle" x="167" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_whm_setup~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-136.91 123,-136.91 123,-112.91 211,-112.91 211,-136.91"/>
+<text text-anchor="middle" x="167" y="-122.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_setup~~UsesGraph_edge4" class="edge">
+<g id="module~~s_whm_setup~~UsesGraph_edge3" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.79,-199.42C349.1,-191.04 292.14,-175.51 247,-152 225.35,-140.72 203.6,-123.38 188.41,-110.06"/>
-<polygon fill="#000000" stroke="#000000" points="190.48,-107.22 180.7,-103.14 185.81,-112.43 190.48,-107.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.17,-211.68C353.18,-202.03 295.23,-185.58 247,-165.91 230.22,-159.07 212.23,-149.88 197.66,-141.95"/>
+<polygon fill="#000000" stroke="#000000" points="199.07,-138.73 188.63,-136.95 195.68,-144.85 199.07,-138.73"/>
 </g>
 <!-- module~swiftest_classes -->
-<g id="module~~s_whm_setup~~UsesGraph_node10" class="node">
+<g id="module~~s_whm_setup~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
-<g id="a_module~~s_whm_setup~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-143 248,-143 248,-119 337,-119 337,-143"/>
-<text text-anchor="middle" x="292.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~s_whm_setup~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-156.91 252.5,-156.91 252.5,-132.91 341.5,-132.91 341.5,-156.91"/>
+<text text-anchor="middle" x="297" y="-142.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_setup~~UsesGraph_edge3" class="edge">
+<g id="module~~s_whm_setup~~UsesGraph_edge4" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M399.39,-194.89C391.28,-190.62 382.18,-185.7 374,-181 356,-170.65 336.18,-158.35 320.71,-148.54"/>
-<polygon fill="#000000" stroke="#000000" points="322.46,-145.51 312.15,-143.08 318.7,-151.41 322.46,-145.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.66,-208.75C399.2,-204.39 390.72,-199.44 383,-194.91 364.6,-184.13 343.99,-172 327.67,-162.39"/>
+<polygon fill="#000000" stroke="#000000" points="328.99,-159.11 318.6,-157.05 325.44,-165.14 328.99,-159.11"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_setup~~UsesGraph_edge12" class="edge">
+<g id="module~~s_whm_setup~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C613.51,-243.48 600.45,-251.07 549.5,-247"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247C516.73,-244.54 483.54,-233.11 459.48,-223.1"/>
-<polygon fill="#000000" stroke="#000000" points="460.65,-219.79 450.08,-219.07 457.89,-226.23 460.65,-219.79"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_whm_setup~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_whm_setup~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-219 510.5,-219 510.5,-195 586.5,-195 586.5,-219"/>
-<text text-anchor="middle" x="548.5" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C613.4,-262.04 600.44,-265.13 549.5,-260.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-260.91C517.89,-258.46 486.07,-247.12 462.95,-237.14"/>
+<polygon fill="#000000" stroke="#000000" points="464.17,-233.85 453.61,-232.97 461.32,-240.24 464.17,-233.85"/>
 </g>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_setup~~UsesGraph_edge5" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C635.35,-244.98 604.14,-233.48 581.6,-223.32"/>
-<polygon fill="#000000" stroke="#000000" points="583.05,-220.14 572.51,-219.08 580.09,-226.48 583.05,-220.14"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C492.89,-30.85 354.73,-100.18 298,-104.91"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_whm_setup~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_whm_setup~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-63 247,-63 247,-39 338,-39 338,-63"/>
-<text text-anchor="middle" x="292.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-38.91 383,-38.91 383,-14.91 474,-14.91 474,-38.91"/>
+<text text-anchor="middle" x="428.5" y="-24.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_whm_setup~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-53C495.62,-36.48 479.32,-49.3 425,-53"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-53C398.59,-54.66 371.52,-54.55 348.48,-53.87"/>
-<polygon fill="#000000" stroke="#000000" points="348.31,-50.36 338.2,-53.52 348.07,-57.36 348.31,-50.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C526.69,-45.19 504.04,-41.74 484.19,-38.18"/>
+<polygon fill="#000000" stroke="#000000" points="484.57,-34.69 474.1,-36.32 483.3,-41.57 484.57,-34.69"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_whm_setup~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_whm_setup~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-24 374,-24 374,0 474,0 474,-24"/>
-<text text-anchor="middle" x="424" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.91 247,-37.91 247,-13.91 347,-13.91 347,-37.91"/>
+<text text-anchor="middle" x="297" y="-23.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_whm_setup~~UsesGraph_edge7" class="edge">
+<g id="module~~s_whm_setup~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-53C516.46,-50.46 483.05,-38.61 458.97,-28.3"/>
-<polygon fill="#000000" stroke="#000000" points="460.15,-24.99 449.58,-24.16 457.32,-31.4 460.15,-24.99"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M762.35,-213.98C737.24,-176.14 653.04,-61.47 549.5,-53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C510.22,-43.83 510.2,-15.32 474,-5.91 434.86,4.27 423.17,-1.25 383,-5.91 372.39,-7.14 361.18,-9.21 350.5,-11.56"/>
+<polygon fill="#000000" stroke="#000000" points="349.42,-8.22 340.46,-13.89 351,-15.04 349.42,-8.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M762.34,-206.77C737.22,-168.59 652.97,-53.07 549.5,-46.91"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_whm_setup~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_whm_setup~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-232.91 510.5,-232.91 510.5,-208.91 586.5,-208.91 586.5,-232.91"/>
+<text text-anchor="middle" x="548.5" y="-218.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_setup~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C634.17,-261.58 601.71,-248.93 579.04,-237.69"/>
+<polygon fill="#000000" stroke="#000000" points="580.44,-234.47 569.95,-232.99 577.23,-240.69 580.44,-234.47"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_whm_setup~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_whm_setup~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-177 510,-177 510,-153 587,-153 587,-177"/>
-<text text-anchor="middle" x="548.5" y="-162.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_whm_setup~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-190.91 510,-190.91 510,-166.91 587,-166.91 587,-190.91"/>
+<text text-anchor="middle" x="548.5" y="-176.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_whm_setup~~UsesGraph_edge8" class="edge">
+<g id="module~~s_whm_setup~~UsesGraph_edge12" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C620.77,-243.98 623.46,-210.34 587,-186 585.13,-184.75 583.19,-183.51 581.21,-182.29"/>
-<polygon fill="#000000" stroke="#000000" points="582.84,-179.18 572.45,-177.1 579.27,-185.21 582.84,-179.18"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.89,-235.32C723.11,-241.76 693.21,-248.85 666.5,-247"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C620.68,-261.88 623.46,-224.25 587,-199.91 585.13,-198.66 583.19,-197.42 581.21,-196.2"/>
+<polygon fill="#000000" stroke="#000000" points="582.84,-193.09 572.45,-191.01 579.27,-199.12 582.84,-193.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M751.83,-231.01C731.83,-243.17 698.29,-260.21 666.5,-260.91"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_whm_setup~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-260.91C474.15,-254.84 448.17,-276.1 383,-241.91 349.89,-224.54 323.81,-188.56 309.67,-165.64"/>
+<polygon fill="#000000" stroke="#000000" points="312.65,-163.79 304.52,-156.99 306.63,-167.37 312.65,-163.79"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_whm_setup~~UsesGraph_node8" class="node">
+<g id="module~~s_whm_setup~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_whm_setup~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-198 623,-198 623,-174 708,-174 708,-198"/>
-<text text-anchor="middle" x="665.5" y="-183.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_whm_setup~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-210.91 623,-210.91 623,-186.91 708,-186.91 708,-210.91"/>
+<text text-anchor="middle" x="665.5" y="-196.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_whm_setup~~UsesGraph_edge9" class="edge">
+<g id="module~~s_whm_setup~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-215.91C732.83,-211.63 719.68,-206.55 707.39,-201.8"/>
-<polygon fill="#000000" stroke="#000000" points="708.36,-198.43 697.77,-198.09 705.84,-204.96 708.36,-198.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-213.86C736.05,-212.35 727.17,-210.63 718.29,-208.92"/>
+<polygon fill="#000000" stroke="#000000" points="718.8,-205.45 708.32,-206.99 717.47,-212.32 718.8,-205.45"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_setup~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-91C268.51,-89.48 243.05,-89.23 221.25,-89.46"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-85.96 211.2,-89.6 221.25,-92.96 221.15,-85.96"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-53C363.16,-57.08 353.35,-94.97 293.5,-91"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_whm_setup~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_whm_setup~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-136.91 0,-136.91 0,-112.91 87,-112.91 87,-136.91"/>
+<text text-anchor="middle" x="43.5" y="-122.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_setup~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247C470.17,-240.83 442.31,-264.75 374,-228 341.96,-210.76 317.58,-175 304.43,-152.05"/>
-<polygon fill="#000000" stroke="#000000" points="307.38,-150.16 299.49,-143.09 301.25,-153.54 307.38,-150.16"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_whm_setup~~UsesGraph_edge13" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-124.91C114.58,-124.91 105.86,-124.91 97.36,-124.91"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-121.41 87.13,-124.91 97.13,-128.41 97.13,-121.41"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_setup~~UsesGraph_edge14" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.62,-38.99C399.15,-43.35 390.68,-48.32 383,-52.91 344.99,-75.64 342.15,-101.47 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-104.91C271.19,-106.85 243.92,-110.84 220.95,-114.76"/>
+<polygon fill="#000000" stroke="#000000" points="220.31,-111.32 211.06,-116.49 221.51,-118.21 220.31,-111.32"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_setup~~UsesGraph_edge15" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.3,-38.05C258.23,-55.12 217.84,-86.37 191.99,-106.36"/>
+<polygon fill="#000000" stroke="#000000" points="189.59,-103.79 183.82,-112.67 193.88,-109.32 189.59,-103.79"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_whm_setup~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-207C498.53,-207 485.2,-207 472.67,-207"/>
-<polygon fill="#000000" stroke="#000000" points="472.38,-203.5 462.38,-207 472.38,-210.5 472.38,-203.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.49,-220.91C499.83,-220.91 488.05,-220.91 476.86,-220.91"/>
+<polygon fill="#000000" stroke="#000000" points="476.79,-217.41 466.79,-220.91 476.79,-224.41 476.79,-217.41"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_setup~~UsesGraph_edge15" class="edge">
+<g id="module~~s_whm_setup~~UsesGraph_edge16" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-195.71C485.82,-188.09 453.3,-177.55 425,-167"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-167C399.07,-158.08 395.13,-151.34 374,-137 357.45,-125.77 355.32,-120 338,-110 319.38,-99.25 314.96,-92.42 293.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-180.91C365.09,-157.27 364.5,-99.37 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.32,-209.05C486.97,-201.42 456.3,-191.07 429.5,-180.91"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_setup~~UsesGraph_edge13" class="edge">
+<g id="module~~s_whm_setup~~UsesGraph_edge18" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-167C398.51,-157.87 370.66,-149.84 347.08,-143.69"/>
-<polygon fill="#000000" stroke="#000000" points="347.81,-140.27 337.26,-141.18 346.08,-147.05 347.81,-140.27"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_setup~~UsesGraph_edge16" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-63C242.1,-67 228.18,-71.51 215.18,-75.72"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-72.46 205.45,-78.87 216.05,-79.12 213.89,-72.46"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_setup~~UsesGraph_edge17" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.86,-9.91C337.58,-10.04 287.65,-13.78 247,-30 223.78,-39.27 201.64,-57.46 186.74,-71.58"/>
-<polygon fill="#000000" stroke="#000000" points="183.94,-69.43 179.24,-78.92 188.84,-74.43 183.94,-69.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-180.91C402.96,-171.61 375,-163.54 351.35,-157.41"/>
+<polygon fill="#000000" stroke="#000000" points="352.06,-153.97 341.5,-154.9 350.33,-160.76 352.06,-153.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_setup~~UsesGraph_edge18" class="edge">
+<g id="module~~s_whm_setup~~UsesGraph_edge20" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.4,-177.04C499.07,-181.6 483.71,-186.87 469.62,-191.7"/>
-<polygon fill="#000000" stroke="#000000" points="468.43,-188.41 460.11,-194.96 470.7,-195.03 468.43,-188.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M513.69,-190.95C500.97,-195.47 486.34,-200.68 472.87,-205.47"/>
+<polygon fill="#000000" stroke="#000000" points="471.57,-202.22 463.32,-208.87 473.91,-208.82 471.57,-202.22"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_setup~~UsesGraph_edge19" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.84,-152.93C453.98,-132.76 336.68,-94.1 293.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M517.06,-166.89C460.58,-145.07 341.36,-101.53 298,-104.91"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_whm_setup~~UsesGraph_edge23" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-193.58C614.47,-195.14 605.46,-196.78 596.76,-198.37"/>
-<polygon fill="#000000" stroke="#000000" points="595.97,-194.96 586.76,-200.2 597.22,-201.84 595.97,-194.96"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_setup~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-178.42C614.57,-176.88 605.65,-175.25 597.05,-173.68"/>
-<polygon fill="#000000" stroke="#000000" points="597.6,-170.23 587.14,-171.87 596.34,-177.11 597.6,-170.23"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-138.08C242.31,-136.52 231.58,-134.85 221.24,-133.23"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-129.72 211.06,-131.64 220.4,-136.64 221.48,-129.72"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_setup~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M648.78,-173.99C611.65,-146.96 514.88,-84.2 425,-91"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-91C365.47,-89.42 350.93,-94.8 293.5,-91"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_setup~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-91C390.33,-93.47 354.9,-105.08 329.37,-115.16"/>
-<polygon fill="#000000" stroke="#000000" points="328.04,-111.92 320.09,-118.93 330.68,-118.41 328.04,-111.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-104.91C370.11,-109.25 355.36,-100.13 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M648.82,-186.84C612.21,-160 517.57,-98.25 429.5,-104.91"/>
 </g>
-<!-- iso_fortran_env -->
-<g id="module~~s_whm_setup~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_whm_setup~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-103 0,-103 0,-79 87,-79 87,-103"/>
-<text text-anchor="middle" x="43.5" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_setup~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-206.85C614.47,-208.48 605.46,-210.21 596.76,-211.87"/>
+<polygon fill="#000000" stroke="#000000" points="595.92,-208.47 586.76,-213.78 597.24,-215.34 595.92,-208.47"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_setup~~UsesGraph_edge23" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-191.69C614.57,-190.23 605.65,-188.68 597.05,-187.18"/>
+<polygon fill="#000000" stroke="#000000" points="597.59,-183.72 587.14,-185.46 596.39,-190.62 597.59,-183.72"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_whm_setup~~UsesGraph_edge24" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-91C114.58,-91 105.86,-91 97.36,-91"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-87.5 87.13,-91 97.13,-94.5 97.13,-87.5"/>
-</g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_setup~~UsesGraph_edge25" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-119C242.1,-115 228.18,-110.49 215.18,-106.28"/>
-<polygon fill="#000000" stroke="#000000" points="216.05,-102.88 205.45,-103.13 213.89,-109.54 216.05,-102.88"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-104.91C394.83,-107.38 359.4,-118.99 333.87,-129.07"/>
+<polygon fill="#000000" stroke="#000000" points="332.54,-125.84 324.59,-132.84 335.18,-132.32 332.54,-125.84"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_whm_step.html b/docs/module/s_whm_step.html
index 440a9631a..fb1bac56f 100644
--- a/docs/module/s_whm_step.html
+++ b/docs/module/s_whm_step.html
@@ -249,260 +249,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_whm_step~~UsesGraph Pages: 1 -->
-<svg id="modules_whm_stepUsesGraph" width="641pt" height="200pt"
- viewBox="0.00 0.00 641.00 200.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_whm_step~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 281.66)">
+<svg id="modules_whm_stepUsesGraph" width="641pt" height="208pt"
+ viewBox="0.00 0.00 641.00 208.40" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_whm_step~~UsesGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 293.48)">
 <title>module~~s_whm_step~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-281.66 911,-281.66 911,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-293.48 911,-293.48 911,4 -4,4"/>
 <!-- module~s_whm_step -->
 <g id="module~~s_whm_step~~UsesGraph_node1" class="node">
 <title>module~s_whm_step</title>
-<polygon fill="none" stroke="black" points="907,-258 834,-258 834,-234 907,-234 907,-258"/>
-<text text-anchor="middle" x="870.5" y="-243.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_step</text>
+<polygon fill="none" stroke="black" points="907,-250.91 834,-250.91 834,-226.91 907,-226.91 907,-250.91"/>
+<text text-anchor="middle" x="870.5" y="-236.51" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_step</text>
 </g>
 <!-- module~whm_classes -->
 <g id="module~~s_whm_step~~UsesGraph_node2" class="node">
 <title>module~whm_classes</title>
 <g id="a_module~~s_whm_step~~UsesGraph_node2"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-219 386,-219 386,-195 462,-195 462,-219"/>
-<text text-anchor="middle" x="424" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-232.91 390.5,-232.91 390.5,-208.91 466.5,-208.91 466.5,-232.91"/>
+<text text-anchor="middle" x="428.5" y="-218.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_whm_step&#45;&gt;module~whm_classes -->
 <g id="module~~s_whm_step~~UsesGraph_edge2" class="edge">
 <title>module~s_whm_step&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M833.9,-254.85C768.3,-269.57 624.57,-294.31 510,-261 486.13,-254.06 462.55,-238.16 446.3,-225.41"/>
-<polygon fill="#000000" stroke="#000000" points="448.48,-222.67 438.51,-219.09 444.07,-228.11 448.48,-222.67"/>
+<path fill="none" stroke="#000000" d="M835.44,-250.95C770.58,-272 625.52,-310.07 510,-274.91 487.31,-268.01 465.21,-252.34 449.93,-239.65"/>
+<polygon fill="#000000" stroke="#000000" points="452.04,-236.85 442.17,-232.99 447.47,-242.16 452.04,-236.85"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_whm_step~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_whm_step~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-238 744,-238 744,-214 798,-214 798,-238"/>
-<text text-anchor="middle" x="771" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-230.91 744,-230.91 744,-206.91 798,-206.91 798,-230.91"/>
+<text text-anchor="middle" x="771" y="-216.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_whm_step&#45;&gt;module~swiftest -->
 <g id="module~~s_whm_step~~UsesGraph_edge1" class="edge">
 <title>module~s_whm_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.75,-238.67C825.4,-236.95 816.51,-235.13 808.15,-233.41"/>
-<polygon fill="#000000" stroke="#000000" points="808.78,-229.97 798.28,-231.39 807.37,-236.83 808.78,-229.97"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.75,-231.58C825.4,-229.86 816.51,-228.04 808.15,-226.32"/>
+<polygon fill="#000000" stroke="#000000" points="808.78,-222.88 798.28,-224.3 807.37,-229.74 808.78,-222.88"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_whm_step~~UsesGraph_node9" class="node">
+<g id="module~~s_whm_step~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_whm_step~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-103 123,-103 123,-79 211,-79 211,-103"/>
-<text text-anchor="middle" x="167" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_whm_step~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-136.91 123,-136.91 123,-112.91 211,-112.91 211,-136.91"/>
+<text text-anchor="middle" x="167" y="-122.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_step~~UsesGraph_edge4" class="edge">
+<g id="module~~s_whm_step~~UsesGraph_edge3" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.79,-199.42C349.1,-191.04 292.14,-175.51 247,-152 225.35,-140.72 203.6,-123.38 188.41,-110.06"/>
-<polygon fill="#000000" stroke="#000000" points="190.48,-107.22 180.7,-103.14 185.81,-112.43 190.48,-107.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.17,-211.68C353.18,-202.03 295.23,-185.58 247,-165.91 230.22,-159.07 212.23,-149.88 197.66,-141.95"/>
+<polygon fill="#000000" stroke="#000000" points="199.07,-138.73 188.63,-136.95 195.68,-144.85 199.07,-138.73"/>
 </g>
 <!-- module~swiftest_classes -->
-<g id="module~~s_whm_step~~UsesGraph_node10" class="node">
+<g id="module~~s_whm_step~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
-<g id="a_module~~s_whm_step~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-143 248,-143 248,-119 337,-119 337,-143"/>
-<text text-anchor="middle" x="292.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~s_whm_step~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-156.91 252.5,-156.91 252.5,-132.91 341.5,-132.91 341.5,-156.91"/>
+<text text-anchor="middle" x="297" y="-142.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_step~~UsesGraph_edge3" class="edge">
+<g id="module~~s_whm_step~~UsesGraph_edge4" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M399.39,-194.89C391.28,-190.62 382.18,-185.7 374,-181 356,-170.65 336.18,-158.35 320.71,-148.54"/>
-<polygon fill="#000000" stroke="#000000" points="322.46,-145.51 312.15,-143.08 318.7,-151.41 322.46,-145.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.66,-208.75C399.2,-204.39 390.72,-199.44 383,-194.91 364.6,-184.13 343.99,-172 327.67,-162.39"/>
+<polygon fill="#000000" stroke="#000000" points="328.99,-159.11 318.6,-157.05 325.44,-165.14 328.99,-159.11"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_step~~UsesGraph_edge12" class="edge">
+<g id="module~~s_whm_step~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C613.51,-243.48 600.45,-251.07 549.5,-247"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247C516.73,-244.54 483.54,-233.11 459.48,-223.1"/>
-<polygon fill="#000000" stroke="#000000" points="460.65,-219.79 450.08,-219.07 457.89,-226.23 460.65,-219.79"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_whm_step~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_whm_step~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-219 510.5,-219 510.5,-195 586.5,-195 586.5,-219"/>
-<text text-anchor="middle" x="548.5" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C613.4,-262.04 600.44,-265.13 549.5,-260.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-260.91C517.89,-258.46 486.07,-247.12 462.95,-237.14"/>
+<polygon fill="#000000" stroke="#000000" points="464.17,-233.85 453.61,-232.97 461.32,-240.24 464.17,-233.85"/>
 </g>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_step~~UsesGraph_edge5" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C635.35,-244.98 604.14,-233.48 581.6,-223.32"/>
-<polygon fill="#000000" stroke="#000000" points="583.05,-220.14 572.51,-219.08 580.09,-226.48 583.05,-220.14"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C492.89,-30.85 354.73,-100.18 298,-104.91"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_whm_step~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_whm_step~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-63 247,-63 247,-39 338,-39 338,-63"/>
-<text text-anchor="middle" x="292.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-38.91 383,-38.91 383,-14.91 474,-14.91 474,-38.91"/>
+<text text-anchor="middle" x="428.5" y="-24.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_whm_step~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-53C495.62,-36.48 479.32,-49.3 425,-53"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-53C398.59,-54.66 371.52,-54.55 348.48,-53.87"/>
-<polygon fill="#000000" stroke="#000000" points="348.31,-50.36 338.2,-53.52 348.07,-57.36 348.31,-50.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C526.69,-45.19 504.04,-41.74 484.19,-38.18"/>
+<polygon fill="#000000" stroke="#000000" points="484.57,-34.69 474.1,-36.32 483.3,-41.57 484.57,-34.69"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_whm_step~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_whm_step~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-24 374,-24 374,0 474,0 474,-24"/>
-<text text-anchor="middle" x="424" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.91 247,-37.91 247,-13.91 347,-13.91 347,-37.91"/>
+<text text-anchor="middle" x="297" y="-23.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_whm_step~~UsesGraph_edge7" class="edge">
+<g id="module~~s_whm_step~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-53C516.46,-50.46 483.05,-38.61 458.97,-28.3"/>
-<polygon fill="#000000" stroke="#000000" points="460.15,-24.99 449.58,-24.16 457.32,-31.4 460.15,-24.99"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M762.35,-213.98C737.24,-176.14 653.04,-61.47 549.5,-53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C510.22,-43.83 510.2,-15.32 474,-5.91 434.86,4.27 423.17,-1.25 383,-5.91 372.39,-7.14 361.18,-9.21 350.5,-11.56"/>
+<polygon fill="#000000" stroke="#000000" points="349.42,-8.22 340.46,-13.89 351,-15.04 349.42,-8.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M762.34,-206.77C737.22,-168.59 652.97,-53.07 549.5,-46.91"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_whm_step~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_whm_step~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-232.91 510.5,-232.91 510.5,-208.91 586.5,-208.91 586.5,-232.91"/>
+<text text-anchor="middle" x="548.5" y="-218.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_step~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C634.17,-261.58 601.71,-248.93 579.04,-237.69"/>
+<polygon fill="#000000" stroke="#000000" points="580.44,-234.47 569.95,-232.99 577.23,-240.69 580.44,-234.47"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_whm_step~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_whm_step~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-177 510,-177 510,-153 587,-153 587,-177"/>
-<text text-anchor="middle" x="548.5" y="-162.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_whm_step~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-190.91 510,-190.91 510,-166.91 587,-166.91 587,-190.91"/>
+<text text-anchor="middle" x="548.5" y="-176.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_whm_step~~UsesGraph_edge8" class="edge">
+<g id="module~~s_whm_step~~UsesGraph_edge12" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C620.77,-243.98 623.46,-210.34 587,-186 585.13,-184.75 583.19,-183.51 581.21,-182.29"/>
-<polygon fill="#000000" stroke="#000000" points="582.84,-179.18 572.45,-177.1 579.27,-185.21 582.84,-179.18"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.89,-235.32C723.11,-241.76 693.21,-248.85 666.5,-247"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C620.68,-261.88 623.46,-224.25 587,-199.91 585.13,-198.66 583.19,-197.42 581.21,-196.2"/>
+<polygon fill="#000000" stroke="#000000" points="582.84,-193.09 572.45,-191.01 579.27,-199.12 582.84,-193.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M751.83,-231.01C731.83,-243.17 698.29,-260.21 666.5,-260.91"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_whm_step~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-260.91C474.15,-254.84 448.17,-276.1 383,-241.91 349.89,-224.54 323.81,-188.56 309.67,-165.64"/>
+<polygon fill="#000000" stroke="#000000" points="312.65,-163.79 304.52,-156.99 306.63,-167.37 312.65,-163.79"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_whm_step~~UsesGraph_node8" class="node">
+<g id="module~~s_whm_step~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_whm_step~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-198 623,-198 623,-174 708,-174 708,-198"/>
-<text text-anchor="middle" x="665.5" y="-183.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_whm_step~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-210.91 623,-210.91 623,-186.91 708,-186.91 708,-210.91"/>
+<text text-anchor="middle" x="665.5" y="-196.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_whm_step~~UsesGraph_edge9" class="edge">
+<g id="module~~s_whm_step~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-215.91C732.83,-211.63 719.68,-206.55 707.39,-201.8"/>
-<polygon fill="#000000" stroke="#000000" points="708.36,-198.43 697.77,-198.09 705.84,-204.96 708.36,-198.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-213.86C736.05,-212.35 727.17,-210.63 718.29,-208.92"/>
+<polygon fill="#000000" stroke="#000000" points="718.8,-205.45 708.32,-206.99 717.47,-212.32 718.8,-205.45"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_step~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-91C268.51,-89.48 243.05,-89.23 221.25,-89.46"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-85.96 211.2,-89.6 221.25,-92.96 221.15,-85.96"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-53C363.16,-57.08 353.35,-94.97 293.5,-91"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_whm_step~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_whm_step~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-136.91 0,-136.91 0,-112.91 87,-112.91 87,-136.91"/>
+<text text-anchor="middle" x="43.5" y="-122.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_step~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247C470.17,-240.83 442.31,-264.75 374,-228 341.96,-210.76 317.58,-175 304.43,-152.05"/>
-<polygon fill="#000000" stroke="#000000" points="307.38,-150.16 299.49,-143.09 301.25,-153.54 307.38,-150.16"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_whm_step~~UsesGraph_edge13" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-124.91C114.58,-124.91 105.86,-124.91 97.36,-124.91"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-121.41 87.13,-124.91 97.13,-128.41 97.13,-121.41"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_step~~UsesGraph_edge14" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.62,-38.99C399.15,-43.35 390.68,-48.32 383,-52.91 344.99,-75.64 342.15,-101.47 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-104.91C271.19,-106.85 243.92,-110.84 220.95,-114.76"/>
+<polygon fill="#000000" stroke="#000000" points="220.31,-111.32 211.06,-116.49 221.51,-118.21 220.31,-111.32"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_step~~UsesGraph_edge15" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.3,-38.05C258.23,-55.12 217.84,-86.37 191.99,-106.36"/>
+<polygon fill="#000000" stroke="#000000" points="189.59,-103.79 183.82,-112.67 193.88,-109.32 189.59,-103.79"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_whm_step~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-207C498.53,-207 485.2,-207 472.67,-207"/>
-<polygon fill="#000000" stroke="#000000" points="472.38,-203.5 462.38,-207 472.38,-210.5 472.38,-203.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.49,-220.91C499.83,-220.91 488.05,-220.91 476.86,-220.91"/>
+<polygon fill="#000000" stroke="#000000" points="476.79,-217.41 466.79,-220.91 476.79,-224.41 476.79,-217.41"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_step~~UsesGraph_edge15" class="edge">
+<g id="module~~s_whm_step~~UsesGraph_edge16" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-195.71C485.82,-188.09 453.3,-177.55 425,-167"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-167C399.07,-158.08 395.13,-151.34 374,-137 357.45,-125.77 355.32,-120 338,-110 319.38,-99.25 314.96,-92.42 293.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-180.91C365.09,-157.27 364.5,-99.37 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.32,-209.05C486.97,-201.42 456.3,-191.07 429.5,-180.91"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_step~~UsesGraph_edge13" class="edge">
+<g id="module~~s_whm_step~~UsesGraph_edge18" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-167C398.51,-157.87 370.66,-149.84 347.08,-143.69"/>
-<polygon fill="#000000" stroke="#000000" points="347.81,-140.27 337.26,-141.18 346.08,-147.05 347.81,-140.27"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_step~~UsesGraph_edge16" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-63C242.1,-67 228.18,-71.51 215.18,-75.72"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-72.46 205.45,-78.87 216.05,-79.12 213.89,-72.46"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_step~~UsesGraph_edge17" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.86,-9.91C337.58,-10.04 287.65,-13.78 247,-30 223.78,-39.27 201.64,-57.46 186.74,-71.58"/>
-<polygon fill="#000000" stroke="#000000" points="183.94,-69.43 179.24,-78.92 188.84,-74.43 183.94,-69.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-180.91C402.96,-171.61 375,-163.54 351.35,-157.41"/>
+<polygon fill="#000000" stroke="#000000" points="352.06,-153.97 341.5,-154.9 350.33,-160.76 352.06,-153.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_step~~UsesGraph_edge18" class="edge">
+<g id="module~~s_whm_step~~UsesGraph_edge20" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.4,-177.04C499.07,-181.6 483.71,-186.87 469.62,-191.7"/>
-<polygon fill="#000000" stroke="#000000" points="468.43,-188.41 460.11,-194.96 470.7,-195.03 468.43,-188.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M513.69,-190.95C500.97,-195.47 486.34,-200.68 472.87,-205.47"/>
+<polygon fill="#000000" stroke="#000000" points="471.57,-202.22 463.32,-208.87 473.91,-208.82 471.57,-202.22"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_step~~UsesGraph_edge19" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.84,-152.93C453.98,-132.76 336.68,-94.1 293.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M517.06,-166.89C460.58,-145.07 341.36,-101.53 298,-104.91"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_whm_step~~UsesGraph_edge23" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-193.58C614.47,-195.14 605.46,-196.78 596.76,-198.37"/>
-<polygon fill="#000000" stroke="#000000" points="595.97,-194.96 586.76,-200.2 597.22,-201.84 595.97,-194.96"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_step~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-178.42C614.57,-176.88 605.65,-175.25 597.05,-173.68"/>
-<polygon fill="#000000" stroke="#000000" points="597.6,-170.23 587.14,-171.87 596.34,-177.11 597.6,-170.23"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-138.08C242.31,-136.52 231.58,-134.85 221.24,-133.23"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-129.72 211.06,-131.64 220.4,-136.64 221.48,-129.72"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_step~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M648.78,-173.99C611.65,-146.96 514.88,-84.2 425,-91"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-91C365.47,-89.42 350.93,-94.8 293.5,-91"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_step~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-91C390.33,-93.47 354.9,-105.08 329.37,-115.16"/>
-<polygon fill="#000000" stroke="#000000" points="328.04,-111.92 320.09,-118.93 330.68,-118.41 328.04,-111.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-104.91C370.11,-109.25 355.36,-100.13 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M648.82,-186.84C612.21,-160 517.57,-98.25 429.5,-104.91"/>
 </g>
-<!-- iso_fortran_env -->
-<g id="module~~s_whm_step~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_whm_step~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-103 0,-103 0,-79 87,-79 87,-103"/>
-<text text-anchor="middle" x="43.5" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_step~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-206.85C614.47,-208.48 605.46,-210.21 596.76,-211.87"/>
+<polygon fill="#000000" stroke="#000000" points="595.92,-208.47 586.76,-213.78 597.24,-215.34 595.92,-208.47"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_step~~UsesGraph_edge23" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-191.69C614.57,-190.23 605.65,-188.68 597.05,-187.18"/>
+<polygon fill="#000000" stroke="#000000" points="597.59,-183.72 587.14,-185.46 596.39,-190.62 597.59,-183.72"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_whm_step~~UsesGraph_edge24" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-91C114.58,-91 105.86,-91 97.36,-91"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-87.5 87.13,-91 97.13,-94.5 97.13,-87.5"/>
-</g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_step~~UsesGraph_edge25" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-119C242.1,-115 228.18,-110.49 215.18,-106.28"/>
-<polygon fill="#000000" stroke="#000000" points="216.05,-102.88 205.45,-103.13 213.89,-109.54 216.05,-102.88"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-104.91C394.83,-107.38 359.4,-118.99 333.87,-129.07"/>
+<polygon fill="#000000" stroke="#000000" points="332.54,-125.84 324.59,-132.84 335.18,-132.32 332.54,-125.84"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/s_whm_util.html b/docs/module/s_whm_util.html
index f57311a72..f98857444 100644
--- a/docs/module/s_whm_util.html
+++ b/docs/module/s_whm_util.html
@@ -134,7 +134,7 @@ <h1>s_whm_util
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.1% of total for modules and submodules.">146 statements</a>
+    title=" 1.1% of total for modules and submodules.">148 statements</a>
      </li> 
      
      
@@ -257,260 +257,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~s_whm_util~~UsesGraph Pages: 1 -->
-<svg id="modules_whm_utilUsesGraph" width="641pt" height="202pt"
- viewBox="0.00 0.00 641.00 201.55" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~s_whm_util~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 281.51)">
+<svg id="modules_whm_utilUsesGraph" width="641pt" height="210pt"
+ viewBox="0.00 0.00 641.00 209.88" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~s_whm_util~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 293.3)">
 <title>module~~s_whm_util~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-281.51 904,-281.51 904,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-293.3 904,-293.3 904,4 -4,4"/>
 <!-- module~s_whm_util -->
 <g id="module~~s_whm_util~~UsesGraph_node1" class="node">
 <title>module~s_whm_util</title>
-<polygon fill="none" stroke="black" points="900,-258 834,-258 834,-234 900,-234 900,-258"/>
-<text text-anchor="middle" x="867" y="-243.6" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_util</text>
+<polygon fill="none" stroke="black" points="900,-250.91 834,-250.91 834,-226.91 900,-226.91 900,-250.91"/>
+<text text-anchor="middle" x="867" y="-236.51" font-family="Helvetica,sans-Serif" font-size="10.50">s_whm_util</text>
 </g>
 <!-- module~whm_classes -->
 <g id="module~~s_whm_util~~UsesGraph_node2" class="node">
 <title>module~whm_classes</title>
 <g id="a_module~~s_whm_util~~UsesGraph_node2"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-219 386,-219 386,-195 462,-195 462,-219"/>
-<text text-anchor="middle" x="424" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-232.91 390.5,-232.91 390.5,-208.91 466.5,-208.91 466.5,-232.91"/>
+<text text-anchor="middle" x="428.5" y="-218.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~s_whm_util&#45;&gt;module~whm_classes -->
 <g id="module~~s_whm_util~~UsesGraph_edge2" class="edge">
 <title>module~s_whm_util&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M833.75,-254.11C770.26,-268.62 625.24,-294.51 510,-261 486.13,-254.06 462.55,-238.16 446.3,-225.41"/>
-<polygon fill="#000000" stroke="#000000" points="448.48,-222.67 438.51,-219.09 444.07,-228.11 448.48,-222.67"/>
+<path fill="none" stroke="#000000" d="M833.76,-250.4C770.29,-271.23 625.29,-310 510,-274.91 487.31,-268.01 465.21,-252.34 449.93,-239.65"/>
+<polygon fill="#000000" stroke="#000000" points="452.04,-236.85 442.17,-232.99 447.47,-242.16 452.04,-236.85"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~s_whm_util~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~s_whm_util~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-238 744,-238 744,-214 798,-214 798,-238"/>
-<text text-anchor="middle" x="771" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-230.91 744,-230.91 744,-206.91 798,-206.91 798,-230.91"/>
+<text text-anchor="middle" x="771" y="-216.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_whm_util&#45;&gt;module~swiftest -->
 <g id="module~~s_whm_util~~UsesGraph_edge1" class="edge">
 <title>module~s_whm_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.91,-239.17C825.59,-237.4 816.58,-235.49 808.07,-233.68"/>
-<polygon fill="#000000" stroke="#000000" points="808.54,-230.2 798.03,-231.54 807.08,-237.04 808.54,-230.2"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.91,-232.08C825.59,-230.31 816.58,-228.4 808.07,-226.59"/>
+<polygon fill="#000000" stroke="#000000" points="808.54,-223.11 798.03,-224.45 807.08,-229.95 808.54,-223.11"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~s_whm_util~~UsesGraph_node9" class="node">
+<g id="module~~s_whm_util~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~s_whm_util~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-103 123,-103 123,-79 211,-79 211,-103"/>
-<text text-anchor="middle" x="167" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~s_whm_util~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-136.91 123,-136.91 123,-112.91 211,-112.91 211,-136.91"/>
+<text text-anchor="middle" x="167" y="-122.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_util~~UsesGraph_edge4" class="edge">
+<g id="module~~s_whm_util~~UsesGraph_edge3" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.79,-199.42C349.1,-191.04 292.14,-175.51 247,-152 225.35,-140.72 203.6,-123.38 188.41,-110.06"/>
-<polygon fill="#000000" stroke="#000000" points="190.48,-107.22 180.7,-103.14 185.81,-112.43 190.48,-107.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.17,-211.68C353.18,-202.03 295.23,-185.58 247,-165.91 230.22,-159.07 212.23,-149.88 197.66,-141.95"/>
+<polygon fill="#000000" stroke="#000000" points="199.07,-138.73 188.63,-136.95 195.68,-144.85 199.07,-138.73"/>
 </g>
 <!-- module~swiftest_classes -->
-<g id="module~~s_whm_util~~UsesGraph_node10" class="node">
+<g id="module~~s_whm_util~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
-<g id="a_module~~s_whm_util~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-143 248,-143 248,-119 337,-119 337,-143"/>
-<text text-anchor="middle" x="292.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~s_whm_util~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-156.91 252.5,-156.91 252.5,-132.91 341.5,-132.91 341.5,-156.91"/>
+<text text-anchor="middle" x="297" y="-142.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_util~~UsesGraph_edge3" class="edge">
+<g id="module~~s_whm_util~~UsesGraph_edge4" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M399.39,-194.89C391.28,-190.62 382.18,-185.7 374,-181 356,-170.65 336.18,-158.35 320.71,-148.54"/>
-<polygon fill="#000000" stroke="#000000" points="322.46,-145.51 312.15,-143.08 318.7,-151.41 322.46,-145.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.66,-208.75C399.2,-204.39 390.72,-199.44 383,-194.91 364.6,-184.13 343.99,-172 327.67,-162.39"/>
+<polygon fill="#000000" stroke="#000000" points="328.99,-159.11 318.6,-157.05 325.44,-165.14 328.99,-159.11"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_util~~UsesGraph_edge12" class="edge">
+<g id="module~~s_whm_util~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C613.51,-243.48 600.45,-251.07 549.5,-247"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247C516.73,-244.54 483.54,-233.11 459.48,-223.1"/>
-<polygon fill="#000000" stroke="#000000" points="460.65,-219.79 450.08,-219.07 457.89,-226.23 460.65,-219.79"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~s_whm_util~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~s_whm_util~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-219 510.5,-219 510.5,-195 586.5,-195 586.5,-219"/>
-<text text-anchor="middle" x="548.5" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C613.4,-262.04 600.44,-265.13 549.5,-260.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-260.91C517.89,-258.46 486.07,-247.12 462.95,-237.14"/>
+<polygon fill="#000000" stroke="#000000" points="464.17,-233.85 453.61,-232.97 461.32,-240.24 464.17,-233.85"/>
 </g>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_util~~UsesGraph_edge5" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C635.35,-244.98 604.14,-233.48 581.6,-223.32"/>
-<polygon fill="#000000" stroke="#000000" points="583.05,-220.14 572.51,-219.08 580.09,-226.48 583.05,-220.14"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C492.89,-30.85 354.73,-100.18 298,-104.91"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~s_whm_util~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~s_whm_util~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-63 247,-63 247,-39 338,-39 338,-63"/>
-<text text-anchor="middle" x="292.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-38.91 383,-38.91 383,-14.91 474,-14.91 474,-38.91"/>
+<text text-anchor="middle" x="428.5" y="-24.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~s_whm_util~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-53C495.62,-36.48 479.32,-49.3 425,-53"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-53C398.59,-54.66 371.52,-54.55 348.48,-53.87"/>
-<polygon fill="#000000" stroke="#000000" points="348.31,-50.36 338.2,-53.52 348.07,-57.36 348.31,-50.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C526.69,-45.19 504.04,-41.74 484.19,-38.18"/>
+<polygon fill="#000000" stroke="#000000" points="484.57,-34.69 474.1,-36.32 483.3,-41.57 484.57,-34.69"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~s_whm_util~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~s_whm_util~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-24 374,-24 374,0 474,0 474,-24"/>
-<text text-anchor="middle" x="424" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.91 247,-37.91 247,-13.91 347,-13.91 347,-37.91"/>
+<text text-anchor="middle" x="297" y="-23.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~s_whm_util~~UsesGraph_edge7" class="edge">
+<g id="module~~s_whm_util~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-53C516.46,-50.46 483.05,-38.61 458.97,-28.3"/>
-<polygon fill="#000000" stroke="#000000" points="460.15,-24.99 449.58,-24.16 457.32,-31.4 460.15,-24.99"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M762.35,-213.98C737.24,-176.14 653.04,-61.47 549.5,-53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C510.22,-43.83 510.2,-15.32 474,-5.91 434.86,4.27 423.17,-1.25 383,-5.91 372.39,-7.14 361.18,-9.21 350.5,-11.56"/>
+<polygon fill="#000000" stroke="#000000" points="349.42,-8.22 340.46,-13.89 351,-15.04 349.42,-8.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M762.34,-206.77C737.22,-168.59 652.97,-53.07 549.5,-46.91"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~s_whm_util~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~s_whm_util~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-232.91 510.5,-232.91 510.5,-208.91 586.5,-208.91 586.5,-232.91"/>
+<text text-anchor="middle" x="548.5" y="-218.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_util~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C634.17,-261.58 601.71,-248.93 579.04,-237.69"/>
+<polygon fill="#000000" stroke="#000000" points="580.44,-234.47 569.95,-232.99 577.23,-240.69 580.44,-234.47"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~s_whm_util~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~s_whm_util~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-177 510,-177 510,-153 587,-153 587,-177"/>
-<text text-anchor="middle" x="548.5" y="-162.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~s_whm_util~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-190.91 510,-190.91 510,-166.91 587,-166.91 587,-190.91"/>
+<text text-anchor="middle" x="548.5" y="-176.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~s_whm_util~~UsesGraph_edge8" class="edge">
+<g id="module~~s_whm_util~~UsesGraph_edge12" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C620.77,-243.98 623.46,-210.34 587,-186 585.13,-184.75 583.19,-183.51 581.21,-182.29"/>
-<polygon fill="#000000" stroke="#000000" points="582.84,-179.18 572.45,-177.1 579.27,-185.21 582.84,-179.18"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.89,-235.32C723.11,-241.76 693.21,-248.85 666.5,-247"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C620.68,-261.88 623.46,-224.25 587,-199.91 585.13,-198.66 583.19,-197.42 581.21,-196.2"/>
+<polygon fill="#000000" stroke="#000000" points="582.84,-193.09 572.45,-191.01 579.27,-199.12 582.84,-193.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M751.83,-231.01C731.83,-243.17 698.29,-260.21 666.5,-260.91"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~s_whm_util~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-260.91C474.15,-254.84 448.17,-276.1 383,-241.91 349.89,-224.54 323.81,-188.56 309.67,-165.64"/>
+<polygon fill="#000000" stroke="#000000" points="312.65,-163.79 304.52,-156.99 306.63,-167.37 312.65,-163.79"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~s_whm_util~~UsesGraph_node8" class="node">
+<g id="module~~s_whm_util~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~s_whm_util~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-198 623,-198 623,-174 708,-174 708,-198"/>
-<text text-anchor="middle" x="665.5" y="-183.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~s_whm_util~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-210.91 623,-210.91 623,-186.91 708,-186.91 708,-210.91"/>
+<text text-anchor="middle" x="665.5" y="-196.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~s_whm_util~~UsesGraph_edge9" class="edge">
+<g id="module~~s_whm_util~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-215.91C732.83,-211.63 719.68,-206.55 707.39,-201.8"/>
-<polygon fill="#000000" stroke="#000000" points="708.36,-198.43 697.77,-198.09 705.84,-204.96 708.36,-198.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-213.86C736.05,-212.35 727.17,-210.63 718.29,-208.92"/>
+<polygon fill="#000000" stroke="#000000" points="718.8,-205.45 708.32,-206.99 717.47,-212.32 718.8,-205.45"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_util~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-91C268.51,-89.48 243.05,-89.23 221.25,-89.46"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-85.96 211.2,-89.6 221.25,-92.96 221.15,-85.96"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-53C363.16,-57.08 353.35,-94.97 293.5,-91"/>
+<!-- iso_fortran_env -->
+<g id="module~~s_whm_util~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~s_whm_util~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-136.91 0,-136.91 0,-112.91 87,-112.91 87,-136.91"/>
+<text text-anchor="middle" x="43.5" y="-122.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_util~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247C470.17,-240.83 442.31,-264.75 374,-228 341.96,-210.76 317.58,-175 304.43,-152.05"/>
-<polygon fill="#000000" stroke="#000000" points="307.38,-150.16 299.49,-143.09 301.25,-153.54 307.38,-150.16"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~s_whm_util~~UsesGraph_edge13" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-124.91C114.58,-124.91 105.86,-124.91 97.36,-124.91"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-121.41 87.13,-124.91 97.13,-128.41 97.13,-121.41"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_util~~UsesGraph_edge14" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.62,-38.99C399.15,-43.35 390.68,-48.32 383,-52.91 344.99,-75.64 342.15,-101.47 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-104.91C271.19,-106.85 243.92,-110.84 220.95,-114.76"/>
+<polygon fill="#000000" stroke="#000000" points="220.31,-111.32 211.06,-116.49 221.51,-118.21 220.31,-111.32"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~s_whm_util~~UsesGraph_edge15" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.3,-38.05C258.23,-55.12 217.84,-86.37 191.99,-106.36"/>
+<polygon fill="#000000" stroke="#000000" points="189.59,-103.79 183.82,-112.67 193.88,-109.32 189.59,-103.79"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~s_whm_util~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-207C498.53,-207 485.2,-207 472.67,-207"/>
-<polygon fill="#000000" stroke="#000000" points="472.38,-203.5 462.38,-207 472.38,-210.5 472.38,-203.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.49,-220.91C499.83,-220.91 488.05,-220.91 476.86,-220.91"/>
+<polygon fill="#000000" stroke="#000000" points="476.79,-217.41 466.79,-220.91 476.79,-224.41 476.79,-217.41"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_util~~UsesGraph_edge15" class="edge">
+<g id="module~~s_whm_util~~UsesGraph_edge16" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-195.71C485.82,-188.09 453.3,-177.55 425,-167"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-167C399.07,-158.08 395.13,-151.34 374,-137 357.45,-125.77 355.32,-120 338,-110 319.38,-99.25 314.96,-92.42 293.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-180.91C365.09,-157.27 364.5,-99.37 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.32,-209.05C486.97,-201.42 456.3,-191.07 429.5,-180.91"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_util~~UsesGraph_edge13" class="edge">
+<g id="module~~s_whm_util~~UsesGraph_edge18" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-167C398.51,-157.87 370.66,-149.84 347.08,-143.69"/>
-<polygon fill="#000000" stroke="#000000" points="347.81,-140.27 337.26,-141.18 346.08,-147.05 347.81,-140.27"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_util~~UsesGraph_edge16" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-63C242.1,-67 228.18,-71.51 215.18,-75.72"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-72.46 205.45,-78.87 216.05,-79.12 213.89,-72.46"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_util~~UsesGraph_edge17" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.86,-9.91C337.58,-10.04 287.65,-13.78 247,-30 223.78,-39.27 201.64,-57.46 186.74,-71.58"/>
-<polygon fill="#000000" stroke="#000000" points="183.94,-69.43 179.24,-78.92 188.84,-74.43 183.94,-69.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-180.91C402.96,-171.61 375,-163.54 351.35,-157.41"/>
+<polygon fill="#000000" stroke="#000000" points="352.06,-153.97 341.5,-154.9 350.33,-160.76 352.06,-153.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~s_whm_util~~UsesGraph_edge18" class="edge">
+<g id="module~~s_whm_util~~UsesGraph_edge20" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.4,-177.04C499.07,-181.6 483.71,-186.87 469.62,-191.7"/>
-<polygon fill="#000000" stroke="#000000" points="468.43,-188.41 460.11,-194.96 470.7,-195.03 468.43,-188.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M513.69,-190.95C500.97,-195.47 486.34,-200.68 472.87,-205.47"/>
+<polygon fill="#000000" stroke="#000000" points="471.57,-202.22 463.32,-208.87 473.91,-208.82 471.57,-202.22"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_util~~UsesGraph_edge19" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.84,-152.93C453.98,-132.76 336.68,-94.1 293.5,-91"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~s_whm_util~~UsesGraph_edge23" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-193.58C614.47,-195.14 605.46,-196.78 596.76,-198.37"/>
-<polygon fill="#000000" stroke="#000000" points="595.97,-194.96 586.76,-200.2 597.22,-201.84 595.97,-194.96"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M517.06,-166.89C460.58,-145.07 341.36,-101.53 298,-104.91"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_util~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-178.42C614.57,-176.88 605.65,-175.25 597.05,-173.68"/>
-<polygon fill="#000000" stroke="#000000" points="597.6,-170.23 587.14,-171.87 596.34,-177.11 597.6,-170.23"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-138.08C242.31,-136.52 231.58,-134.85 221.24,-133.23"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-129.72 211.06,-131.64 220.4,-136.64 221.48,-129.72"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~s_whm_util~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M648.78,-173.99C611.65,-146.96 514.88,-84.2 425,-91"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-91C365.47,-89.42 350.93,-94.8 293.5,-91"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~s_whm_util~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-91C390.33,-93.47 354.9,-105.08 329.37,-115.16"/>
-<polygon fill="#000000" stroke="#000000" points="328.04,-111.92 320.09,-118.93 330.68,-118.41 328.04,-111.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-104.91C370.11,-109.25 355.36,-100.13 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M648.82,-186.84C612.21,-160 517.57,-98.25 429.5,-104.91"/>
 </g>
-<!-- iso_fortran_env -->
-<g id="module~~s_whm_util~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~s_whm_util~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-103 0,-103 0,-79 87,-79 87,-103"/>
-<text text-anchor="middle" x="43.5" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~s_whm_util~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-206.85C614.47,-208.48 605.46,-210.21 596.76,-211.87"/>
+<polygon fill="#000000" stroke="#000000" points="595.92,-208.47 586.76,-213.78 597.24,-215.34 595.92,-208.47"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~s_whm_util~~UsesGraph_edge23" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-191.69C614.57,-190.23 605.65,-188.68 597.05,-187.18"/>
+<polygon fill="#000000" stroke="#000000" points="597.59,-183.72 587.14,-185.46 596.39,-190.62 597.59,-183.72"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~s_whm_util~~UsesGraph_edge24" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-91C114.58,-91 105.86,-91 97.36,-91"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-87.5 87.13,-91 97.13,-94.5 97.13,-87.5"/>
-</g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~s_whm_util~~UsesGraph_edge25" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-119C242.1,-115 228.18,-110.49 215.18,-106.28"/>
-<polygon fill="#000000" stroke="#000000" points="216.05,-102.88 205.45,-103.13 213.89,-109.54 216.05,-102.88"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-104.91C394.83,-107.38 359.4,-118.99 333.87,-129.07"/>
+<polygon fill="#000000" stroke="#000000" points="332.54,-125.84 324.59,-132.84 335.18,-132.32 332.54,-125.84"/>
 </g>
 </g>
 </svg>
@@ -745,7 +743,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/module/swiftest_classes.html b/docs/module/swiftest_classes.html
index 0d7c6e041..714620ca7 100644
--- a/docs/module/swiftest_classes.html
+++ b/docs/module/swiftest_classes.html
@@ -136,7 +136,7 @@ <h1>swiftest_classes
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 8.3% of total for modules and submodules.">1099 statements</a>
+    title=" 8.3% of total for modules and submodules.">1112 statements</a>
      </li> 
      
      
@@ -328,11 +328,9 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_minimize_bfgs">util_minimize_bfgs</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_peri_tp">util_peri_tp</a>
-      
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_solve_linear_system">util_solve_linear_system</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_rescale_system">util_rescale_system</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_solve_rkf45">util_solve_rkf45</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_peri_tp">util_peri_tp</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_resize~2">util_resize</a>
       
@@ -360,6 +358,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_set_rhill_approximate">util_set_rhill_approximate</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_solve_linear_system">util_solve_linear_system</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_solve_rkf45">util_solve_rkf45</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_sort">util_sort</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_sort_rearrange_body">util_sort_rearrange_body</a>
@@ -384,7 +386,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_spill_tp">util_spill_tp</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_valid">util_valid</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_valid_id_system">util_valid_id_system</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_version">util_version</a>
       
@@ -674,6 +676,8 @@ <h3 class="panel-title">Used by</h3>
       
       <li><a href='../module/s_util_peri.html'>s_util_peri</a></li>
       
+      <li><a href='../module/s_util_rescale.html'>s_util_rescale</a></li>
+      
       <li><a href='../module/s_util_resize.html'>s_util_resize</a></li>
       
       <li><a href='../module/s_util_set.html'>s_util_set</a></li>
@@ -699,1326 +703,1347 @@ <h3 class="panel-title">Used by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~swiftest_classes~~UsedByGraph Pages: 1 -->
-<svg id="moduleswiftest_classesUsedByGraph" width="641pt" height="2216pt"
- viewBox="0.00 0.00 641.00 2216.13" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~swiftest_classes~~UsedByGraph" class="graph" transform="scale(0.88 0.88) rotate(0) translate(4 2506)">
+<svg id="moduleswiftest_classesUsedByGraph" width="641pt" height="2253pt"
+ viewBox="0.00 0.00 641.00 2253.21" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~swiftest_classes~~UsedByGraph" class="graph" transform="scale(0.88 0.88) rotate(0) translate(4 2548)">
 <title>module~~swiftest_classes~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2506 722,-2506 722,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2548 722,-2548 722,4 -4,4"/>
 <!-- module~swiftest_classes -->
 <g id="module~~swiftest_classes~~UsedByGraph_node1" class="node">
 <title>module~swiftest_classes</title>
-<polygon fill="none" stroke="black" points="89,-1394 0,-1394 0,-1370 89,-1370 89,-1394"/>
-<text text-anchor="middle" x="44.5" y="-1379.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_classes</text>
+<polygon fill="none" stroke="black" points="89,-1560 0,-1560 0,-1536 89,-1536 89,-1560"/>
+<text text-anchor="middle" x="44.5" y="-1545.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_classes</text>
 </g>
-<!-- module~s_obl -->
+<!-- module~s_setup -->
 <g id="module~~swiftest_classes~~UsedByGraph_node2" class="node">
-<title>module~s_obl</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node2"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="666.5,-2502 612.5,-2502 612.5,-2478 666.5,-2478 666.5,-2502"/>
-<text text-anchor="middle" x="639.5" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
+<title>module~s_setup</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node2"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="666.5,-2544 612.5,-2544 612.5,-2520 666.5,-2520 666.5,-2544"/>
+<text text-anchor="middle" x="639.5" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_obl&#45;&gt;module~swiftest_classes -->
+<!-- module~s_setup&#45;&gt;module~swiftest_classes -->
 <g id="module~~swiftest_classes~~UsedByGraph_edge5" class="edge">
-<title>module~s_obl&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M612.2,-2489.33C595.43,-2487.51 574.39,-2482.42 561,-2469 485.92,-2393.74 590.03,-2292.9 499,-2238"/>
+<title>module~s_setup&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M612.23,-2529.9C596.09,-2527.46 575.75,-2522.24 561,-2511 517.89,-2478.16 545.86,-2433.22 499,-2406"/>
 </g>
 <!-- module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_node17" class="node">
+<g id="module~~swiftest_classes~~UsedByGraph_node12" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node17"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="525,-1305 471,-1305 471,-1281 525,-1281 525,-1305"/>
-<text text-anchor="middle" x="498" y="-1290.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node12"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="525,-1326 471,-1326 471,-1302 525,-1302 525,-1326"/>
+<text text-anchor="middle" x="498" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
-<!-- module~s_obl&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge50" class="edge">
-<title>module~s_obl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.3,-2490.34C594.89,-2489.04 573.08,-2484.15 561,-2469 529.94,-2430.05 528.3,-1622.71 525,-1573 518.61,-1476.94 506.64,-1362.73 501.47,-1315.33"/>
-<polygon fill="#000000" stroke="#000000" points="504.94,-1314.82 500.37,-1305.26 497.98,-1315.59 504.94,-1314.82"/>
+<!-- module~s_setup&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge44" class="edge">
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.29,-2532.35C594.87,-2531.05 573.06,-2526.17 561,-2511 527.81,-2469.27 528.9,-1605.17 525,-1552 519.16,-1472.28 507.42,-1378.02 501.94,-1336.06"/>
+<polygon fill="#000000" stroke="#000000" points="505.41,-1335.57 500.63,-1326.11 498.47,-1336.48 505.41,-1335.57"/>
 </g>
-<!-- module~s_util_solve -->
+<!-- module~drift_implementation -->
 <g id="module~~swiftest_classes~~UsedByGraph_node3" class="node">
-<title>module~s_util_solve</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node3"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="673.5,-2460 605.5,-2460 605.5,-2436 673.5,-2436 673.5,-2460"/>
-<text text-anchor="middle" x="639.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
+<title>module~drift_implementation</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node3"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="694,-2502 585,-2502 585,-2478 694,-2478 694,-2502"/>
+<text text-anchor="middle" x="639.5" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_solve&#45;&gt;module~swiftest_classes -->
+<!-- module~drift_implementation&#45;&gt;module~swiftest_classes -->
 <g id="module~~swiftest_classes~~UsedByGraph_edge6" class="edge">
-<title>module~s_util_solve&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M605.23,-2446.08C590.04,-2443.58 572.83,-2438.23 561,-2427 496.87,-2366.15 574.7,-2283.66 499,-2238"/>
+<title>module~drift_implementation&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M584.88,-2479.48C576.58,-2476.73 568.34,-2473.29 561,-2469 527.08,-2449.17 532.97,-2425.73 499,-2406"/>
 </g>
-<!-- module~s_util_solve&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge51" class="edge">
-<title>module~s_util_solve&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.36,-2447.63C589.42,-2445.59 571.53,-2440.18 561,-2427 531.36,-2389.9 528.2,-1620.38 525,-1573 518.52,-1476.95 506.6,-1362.74 501.46,-1315.33"/>
-<polygon fill="#000000" stroke="#000000" points="504.93,-1314.83 500.36,-1305.26 497.97,-1315.58 504.93,-1314.83"/>
+<!-- module~drift_implementation&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge45" class="edge">
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M584.84,-2484.94C575.63,-2481.66 567.08,-2476.63 561,-2469 529.23,-2429.12 528.77,-1602.84 525,-1552 519.09,-1472.28 507.39,-1378.02 501.93,-1336.06"/>
+<polygon fill="#000000" stroke="#000000" points="505.39,-1335.57 500.62,-1326.11 498.45,-1336.48 505.39,-1335.57"/>
 </g>
-<!-- module~s_util_spill -->
+<!-- module~s_util_get_energy_momentum -->
 <g id="module~~swiftest_classes~~UsedByGraph_node4" class="node">
-<title>module~s_util_spill</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node4"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="670,-2418 609,-2418 609,-2394 670,-2394 670,-2418"/>
-<text text-anchor="middle" x="639.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node4"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="718,-2460 561,-2460 561,-2436 718,-2436 718,-2460"/>
+<text text-anchor="middle" x="639.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_spill&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest_classes -->
 <g id="module~~swiftest_classes~~UsedByGraph_edge7" class="edge">
-<title>module~s_util_spill&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M608.7,-2404.14C592.91,-2401.74 574.12,-2396.47 561,-2385 507.61,-2338.34 559.72,-2274.62 499,-2238"/>
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M576.57,-2435.97C551.4,-2429.43 522.73,-2419.78 499,-2406"/>
 </g>
-<!-- module~s_util_spill&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge52" class="edge">
-<title>module~s_util_spill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.89,-2406.03C592.14,-2404.34 572.33,-2399.15 561,-2385 532.77,-2349.75 528.09,-1618.05 525,-1573 518.42,-1476.96 506.55,-1362.74 501.44,-1315.33"/>
-<polygon fill="#000000" stroke="#000000" points="504.91,-1314.83 500.35,-1305.26 497.95,-1315.58 504.91,-1314.83"/>
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge49" class="edge">
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M570.72,-2435.91C567.08,-2433.43 563.78,-2430.49 561,-2427 530.65,-2388.98 528.64,-1600.52 525,-1552 519.01,-1472.29 507.35,-1378.03 501.92,-1336.06"/>
+<polygon fill="#000000" stroke="#000000" points="505.38,-1335.57 500.62,-1326.11 498.44,-1336.48 505.38,-1335.57"/>
 </g>
-<!-- module~s_util_append -->
+<!-- module~s_util_coord -->
 <g id="module~~swiftest_classes~~UsedByGraph_node5" class="node">
-<title>module~s_util_append</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node5"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="679,-2376 600,-2376 600,-2352 679,-2352 679,-2376"/>
-<text text-anchor="middle" x="639.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
+<title>module~s_util_coord</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node5"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="674.5,-2418 604.5,-2418 604.5,-2394 674.5,-2394 674.5,-2418"/>
+<text text-anchor="middle" x="639.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_append&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_coord&#45;&gt;module~swiftest_classes -->
 <g id="module~~swiftest_classes~~UsedByGraph_edge8" class="edge">
-<title>module~s_util_append&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M599.99,-2359.61C586.63,-2356.6 572.2,-2351.53 561,-2343 517.89,-2310.16 545.41,-2265.99 499,-2238"/>
+<title>module~s_util_coord&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M604.49,-2415.04C574.61,-2420.98 531.04,-2424.61 499,-2406"/>
 </g>
-<!-- module~s_util_append&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge54" class="edge">
-<title>module~s_util_append&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.79,-2362.76C585.41,-2360.21 570.34,-2354.63 561,-2343 534.19,-2309.61 527.98,-1615.72 525,-1573 518.3,-1476.96 506.5,-1362.74 501.43,-1315.34"/>
-<polygon fill="#000000" stroke="#000000" points="504.89,-1314.83 500.34,-1305.27 497.93,-1315.58 504.89,-1314.83"/>
+<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge50" class="edge">
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.18,-2405.47C588.54,-2403.31 571.28,-2397.85 561,-2385 532.07,-2348.83 528.52,-1598.19 525,-1552 518.93,-1472.29 507.31,-1378.03 501.9,-1336.06"/>
+<polygon fill="#000000" stroke="#000000" points="505.37,-1335.58 500.61,-1326.11 498.42,-1336.48 505.37,-1335.58"/>
 </g>
-<!-- module~s_discard -->
+<!-- module~s_util_set -->
 <g id="module~~swiftest_classes~~UsedByGraph_node6" class="node">
-<title>module~s_discard</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node6"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="668.5,-2334 610.5,-2334 610.5,-2310 668.5,-2310 668.5,-2334"/>
-<text text-anchor="middle" x="639.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
+<title>module~s_util_set</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node6"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="668.5,-2376 610.5,-2376 610.5,-2352 668.5,-2352 668.5,-2376"/>
+<text text-anchor="middle" x="639.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
 </a>
 </g>
 </g>
-<!-- module~s_discard&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_set&#45;&gt;module~swiftest_classes -->
 <g id="module~~swiftest_classes~~UsedByGraph_edge9" class="edge">
-<title>module~s_discard&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M610.21,-2318.04C594.87,-2315.01 576.04,-2309.79 561,-2301 527.08,-2281.17 532.64,-2258.29 499,-2238"/>
+<title>module~s_util_set&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M610.4,-2371.17C595.63,-2375.04 577.27,-2380.05 561,-2385 533.17,-2393.48 524.16,-2420.61 499,-2406"/>
 </g>
-<!-- module~s_discard&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge55" class="edge">
-<title>module~s_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.45,-2322.15C593.4,-2320.62 572.71,-2315.55 561,-2301 510.21,-2237.91 530.75,-1653.78 525,-1573 518.17,-1476.97 506.44,-1362.75 501.4,-1315.34"/>
-<polygon fill="#000000" stroke="#000000" points="504.87,-1314.84 500.33,-1305.27 497.91,-1315.58 504.87,-1314.84"/>
+<!-- module~s_util_set&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge51" class="edge">
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.43,-2364.17C593.37,-2362.64 572.69,-2357.57 561,-2343 533.48,-2308.68 528.39,-1595.86 525,-1552 518.84,-1472.3 507.26,-1378.03 501.88,-1336.06"/>
+<polygon fill="#000000" stroke="#000000" points="505.35,-1335.58 500.6,-1326.11 498.41,-1336.48 505.35,-1335.58"/>
 </g>
-<!-- module~drift_implementation -->
+<!-- module~s_util_rescale -->
 <g id="module~~swiftest_classes~~UsedByGraph_node7" class="node">
-<title>module~drift_implementation</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node7"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="694,-2292 585,-2292 585,-2268 694,-2268 694,-2292"/>
-<text text-anchor="middle" x="639.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
+<title>module~s_util_rescale</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node7"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="678.5,-2334 600.5,-2334 600.5,-2310 678.5,-2310 678.5,-2334"/>
+<text text-anchor="middle" x="639.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_rescale</text>
 </a>
 </g>
 </g>
-<!-- module~drift_implementation&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_rescale&#45;&gt;module~swiftest_classes -->
 <g id="module~~swiftest_classes~~UsedByGraph_edge10" class="edge">
-<title>module~drift_implementation&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M584.9,-2270.47C557.8,-2264.05 525.21,-2253.81 499,-2238"/>
+<title>module~s_util_rescale&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M600.25,-2328.15C587.2,-2331.32 572.91,-2336.04 561,-2343 527.08,-2362.83 532.97,-2425.73 499,-2406"/>
 </g>
-<!-- module~drift_implementation&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge56" class="edge">
-<title>module~drift_implementation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M584.92,-2274.87C575.7,-2271.6 567.13,-2266.59 561,-2259 513.05,-2199.62 530.53,-1649.13 525,-1573 518.03,-1476.98 506.37,-1362.75 501.38,-1315.34"/>
-<polygon fill="#000000" stroke="#000000" points="504.85,-1314.84 500.32,-1305.27 497.89,-1315.58 504.85,-1314.84"/>
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge53" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M600.2,-2320.82C585.7,-2318.3 570.43,-2312.73 561,-2301 508.8,-2236.06 531.53,-1635.06 525,-1552 518.74,-1472.31 507.21,-1378.04 501.86,-1336.06"/>
+<polygon fill="#000000" stroke="#000000" points="505.33,-1335.58 500.59,-1326.11 498.39,-1336.48 505.33,-1335.58"/>
 </g>
-<!-- module~s_util_resize -->
+<!-- module~s_util_version -->
 <g id="module~~swiftest_classes~~UsedByGraph_node8" class="node">
-<title>module~s_util_resize</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node8"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="675.5,-2250 603.5,-2250 603.5,-2226 675.5,-2226 675.5,-2250"/>
-<text text-anchor="middle" x="639.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
+<title>module~s_util_version</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node8"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="678.5,-2292 600.5,-2292 600.5,-2268 678.5,-2268 678.5,-2292"/>
+<text text-anchor="middle" x="639.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_resize&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_version&#45;&gt;module~swiftest_classes -->
 <g id="module~~swiftest_classes~~UsedByGraph_edge11" class="edge">
-<title>module~s_util_resize&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M603.45,-2247.47C573.51,-2253.47 530.42,-2256.95 499,-2238"/>
+<title>module~s_util_version&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M600.39,-2284.3C586.91,-2287.3 572.31,-2292.38 561,-2301 517.89,-2333.84 550.06,-2424.17 499,-2406"/>
+<path fill="none" stroke="#000000" d="M497,-2406C315.97,-2341.56 347.84,-1663.9 164,-1608"/>
 </g>
-<!-- module~s_util_resize&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge60" class="edge">
-<title>module~s_util_resize&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M603.45,-2237.3C588.05,-2235.05 571.18,-2229.56 561,-2217 515.88,-2161.32 530.31,-1644.47 525,-1573 517.86,-1477 506.29,-1362.76 501.36,-1315.34"/>
-<polygon fill="#000000" stroke="#000000" points="504.82,-1314.85 500.3,-1305.27 497.86,-1315.58 504.82,-1314.85"/>
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge54" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M600.22,-2278.81C585.72,-2276.29 570.45,-2270.72 561,-2259 511.63,-2197.77 531.27,-1630.41 525,-1552 518.62,-1472.32 507.15,-1378.04 501.84,-1336.07"/>
+<polygon fill="#000000" stroke="#000000" points="505.31,-1335.59 500.57,-1326.11 498.37,-1336.48 505.31,-1335.59"/>
 </g>
-<!-- module~s_user_kick_getacch -->
+<!-- module~whm_classes -->
 <g id="module~~swiftest_classes~~UsedByGraph_node9" class="node">
-<title>module~s_user_kick_getacch</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node9"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="695.5,-2208 583.5,-2208 583.5,-2184 695.5,-2184 695.5,-2208"/>
-<text text-anchor="middle" x="639.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
+<title>module~whm_classes</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="201,-1560 125,-1560 125,-1536 201,-1536 201,-1560"/>
+<text text-anchor="middle" x="163" y="-1545.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge12" class="edge">
-<title>module~s_user_kick_getacch&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M592.06,-2208.08C581.79,-2210.89 571,-2213.95 561,-2217 533.17,-2225.48 523.91,-2253.03 499,-2238"/>
-</g>
-<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge62" class="edge">
-<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M583.39,-2190.26C574.77,-2186.99 566.81,-2182.14 561,-2175 518.71,-2123.02 530.1,-1639.81 525,-1573 517.68,-1477.01 506.21,-1362.77 501.33,-1315.34"/>
-<polygon fill="#000000" stroke="#000000" points="504.79,-1314.86 500.28,-1305.27 497.83,-1315.58 504.79,-1314.86"/>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge2" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M124.82,-1548C116.68,-1548 107.91,-1548 99.27,-1548"/>
+<polygon fill="#000000" stroke="#000000" points="99.24,-1544.5 89.24,-1548 99.24,-1551.5 99.24,-1544.5"/>
 </g>
-<!-- module~s_eucl -->
+<!-- module~s_util_minimize_bfgs -->
 <g id="module~~swiftest_classes~~UsedByGraph_node10" class="node">
-<title>module~s_eucl</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node10"><a xlink:href=".././module/s_eucl.html" xlink:title="s_eucl">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="666.5,-2166 612.5,-2166 612.5,-2142 666.5,-2142 666.5,-2166"/>
-<text text-anchor="middle" x="639.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_eucl</text>
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node10"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="695.5,-906 583.5,-906 583.5,-882 695.5,-882 695.5,-906"/>
+<text text-anchor="middle" x="639.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
 </a>
 </g>
 </g>
-<!-- module~s_eucl&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge13" class="edge">
-<title>module~s_eucl&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M612.39,-2157.54C596.69,-2160.5 576.77,-2165.78 561,-2175 527.08,-2194.83 532.64,-2258.29 499,-2238"/>
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge12" class="edge">
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M583.15,-887.5C574.77,-884.28 566.95,-879.65 561,-873 501.15,-806.15 588.49,-467.4 499,-474"/>
 </g>
-<!-- module~s_eucl&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge64" class="edge">
-<title>module~s_eucl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.42,-2154.25C595.06,-2152.91 573.26,-2148 561,-2133 521.54,-2084.72 529.88,-1635.16 525,-1573 517.46,-1477.03 506.11,-1362.77 501.29,-1315.35"/>
-<polygon fill="#000000" stroke="#000000" points="504.76,-1314.86 500.26,-1305.27 497.8,-1315.57 504.76,-1314.86"/>
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge55" class="edge">
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M583.15,-900.5C574.77,-903.72 566.95,-908.35 561,-915 548.23,-929.26 512.11,-1209.74 501.79,-1291.7"/>
+<polygon fill="#000000" stroke="#000000" points="498.3,-1291.33 500.53,-1301.69 505.25,-1292.21 498.3,-1291.33"/>
 </g>
-<!-- module~s_util_coord -->
+<!-- module~s_gr -->
 <g id="module~~swiftest_classes~~UsedByGraph_node11" class="node">
-<title>module~s_util_coord</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node11"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="674.5,-2124 604.5,-2124 604.5,-2100 674.5,-2100 674.5,-2124"/>
-<text text-anchor="middle" x="639.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
-</a>
-</g>
-</g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge14" class="edge">
-<title>module~s_util_coord&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M604.31,-2115.48C589.81,-2118.34 573.42,-2123.54 561,-2133 517.89,-2165.84 545.41,-2265.99 499,-2238"/>
-</g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge66" class="edge">
-<title>module~s_util_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.32,-2111.35C588.72,-2109.16 571.44,-2103.71 561,-2091 524.37,-2046.42 529.67,-1630.51 525,-1573 517.21,-1477.05 506,-1362.78 501.25,-1315.35"/>
-<polygon fill="#000000" stroke="#000000" points="504.72,-1314.87 500.24,-1305.27 497.76,-1315.57 504.72,-1314.87"/>
-</g>
-<!-- module~s_util_valid -->
-<g id="module~~swiftest_classes~~UsedByGraph_node12" class="node">
-<title>module~s_util_valid</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node12"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="672,-2082 607,-2082 607,-2058 672,-2058 672,-2082"/>
-<text text-anchor="middle" x="639.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
-</a>
-</g>
-</g>
-<!-- module~s_util_valid&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge15" class="edge">
-<title>module~s_util_valid&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M606.79,-2072.16C591.41,-2074.69 573.6,-2079.99 561,-2091 507.61,-2137.66 559.72,-2274.62 499,-2238"/>
-</g>
-<!-- module~s_util_valid&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge69" class="edge">
-<title>module~s_util_valid&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.72,-2069.63C590.54,-2067.67 572.01,-2062.32 561,-2049 527.2,-2008.12 529.45,-1625.85 525,-1573 516.9,-1476.85 505.81,-1362.26 501.17,-1315.02"/>
-<polygon fill="#000000" stroke="#000000" points="504.65,-1314.61 500.19,-1305 497.68,-1315.3 504.65,-1314.61"/>
-</g>
-<!-- module~s_util_set -->
-<g id="module~~swiftest_classes~~UsedByGraph_node13" class="node">
-<title>module~s_util_set</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node13"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="668.5,-2040 610.5,-2040 610.5,-2016 668.5,-2016 668.5,-2040"/>
-<text text-anchor="middle" x="639.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
-</a>
-</g>
-</g>
-<!-- module~s_util_set&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge16" class="edge">
-<title>module~s_util_set&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M610.21,-2029.19C593.93,-2031.31 574.15,-2036.53 561,-2049 496.87,-2109.85 574.7,-2283.66 499,-2238"/>
-</g>
-<!-- module~s_util_set&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge70" class="edge">
-<title>module~s_util_set&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.24,-2027.98C593.32,-2026.36 572.87,-2021.25 561,-2007 530.03,-1969.82 529.24,-1621.2 525,-1573 516.55,-1476.88 505.65,-1362.27 501.12,-1315.02"/>
-<polygon fill="#000000" stroke="#000000" points="504.6,-1314.62 500.16,-1305 497.63,-1315.29 504.6,-1314.62"/>
-</g>
-<!-- module~s_util_exit -->
-<g id="module~~swiftest_classes~~UsedByGraph_node14" class="node">
-<title>module~s_util_exit</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node14"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="669.5,-1998 609.5,-1998 609.5,-1974 669.5,-1974 669.5,-1998"/>
-<text text-anchor="middle" x="639.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
+<title>module~s_gr</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node11"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="666.5,-864 612.5,-864 612.5,-840 666.5,-840 666.5,-864"/>
+<text text-anchor="middle" x="639.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge17" class="edge">
-<title>module~s_util_exit&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M497,-2238C326.51,-2149.81 345.14,-1504.49 164,-1441"/>
-<path fill="none" stroke="#000000" d="M609.2,-1987.03C592.98,-1989.12 573.6,-1994.37 561,-2007 485.92,-2082.26 590.03,-2292.9 499,-2238"/>
-</g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge71" class="edge">
-<title>module~s_util_exit&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.13,-1985.83C592.46,-1984.07 572.66,-1978.87 561,-1965 532.86,-1931.52 529.02,-1616.55 525,-1573 516.13,-1476.91 505.46,-1362.29 501.05,-1315.03"/>
-<polygon fill="#000000" stroke="#000000" points="504.53,-1314.64 500.12,-1305.01 497.56,-1315.29 504.53,-1314.64"/>
-</g>
-<!-- module~whm_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_node15" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node15"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="201,-1394 125,-1394 125,-1370 201,-1370 201,-1394"/>
-<text text-anchor="middle" x="163" y="-1379.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
-</a>
+<!-- module~s_gr&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge13" class="edge">
+<title>module~s_gr&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M612.17,-851.76C595.16,-850.14 573.86,-845.12 561,-831 506.76,-771.49 579.3,-468.07 499,-474"/>
 </g>
+<!-- module~s_gr&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge58" class="edge">
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.39,-852.08C595.25,-853.6 573.73,-858.57 561,-873 553.93,-881.01 512.85,-1203.98 501.76,-1292.03"/>
+<polygon fill="#000000" stroke="#000000" points="498.28,-1291.63 500.5,-1301.99 505.22,-1292.51 498.28,-1291.63"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="module~~swiftest_classes~~UsedByGraph_edge3" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M124.82,-1382C116.68,-1382 107.91,-1382 99.27,-1382"/>
-<polygon fill="#000000" stroke="#000000" points="99.24,-1378.5 89.24,-1382 99.24,-1385.5 99.24,-1378.5"/>
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M162,-1608C129.67,-1598.17 95.64,-1579.55 72.76,-1565.65"/>
+<polygon fill="#000000" stroke="#000000" points="74.32,-1562.49 63.97,-1560.2 70.63,-1568.44 74.32,-1562.49"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M274.5,-1528C256.22,-1531.88 252.6,-1536.72 237,-1547 201.69,-1570.26 204.45,-1620.3 164,-1608"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge35" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M494.26,-1326.14C485.64,-1361.81 455.85,-1467.51 393.5,-1528"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M391.5,-1528C354.82,-1563.59 326.5,-1517.39 276.5,-1528"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M274.5,-1528C253.79,-1532.39 230.78,-1536.66 211.13,-1540.11"/>
+<polygon fill="#000000" stroke="#000000" points="210.45,-1536.68 201.19,-1541.84 211.65,-1543.58 210.45,-1536.68"/>
 </g>
 <!-- module~helio_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_node16" class="node">
+<g id="module~~swiftest_classes~~UsedByGraph_node24" class="node">
 <title>module~helio_classes</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node16"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="313.5,-1493 237.5,-1493 237.5,-1469 313.5,-1469 313.5,-1493"/>
-<text text-anchor="middle" x="275.5" y="-1478.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node24"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="313.5,-1660 237.5,-1660 237.5,-1636 313.5,-1636 313.5,-1660"/>
+<text text-anchor="middle" x="275.5" y="-1645.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge1" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M242.26,-1468.82C220.3,-1460.66 190.52,-1449.82 164,-1441"/>
-</g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge35" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.95,-1468.86C242.06,-1451.94 207.63,-1421.09 185.29,-1401.08"/>
-<polygon fill="#000000" stroke="#000000" points="187.44,-1398.3 177.66,-1394.24 182.77,-1403.52 187.44,-1398.3"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge4" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M162,-1441C130.78,-1430.06 97.31,-1412.43 74.29,-1399.28"/>
-<polygon fill="#000000" stroke="#000000" points="75.81,-1396.12 65.4,-1394.13 72.3,-1402.17 75.81,-1396.12"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M274.5,-1403C222.6,-1404.96 213.01,-1458.18 164,-1441"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge34" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M274.5,-1403C253.4,-1403.8 230.4,-1400.17 210.88,-1395.72"/>
-<polygon fill="#000000" stroke="#000000" points="211.56,-1392.28 201.02,-1393.34 209.92,-1399.09 211.56,-1392.28"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M391.5,-1403C345.64,-1425.56 327.57,-1401.07 276.5,-1403"/>
-</g>
 <!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge44" class="edge">
+<g id="module~~swiftest_classes~~UsedByGraph_edge105" class="edge">
 <title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M391.5,-1403C357.33,-1419.8 321.58,-1445.54 299.19,-1462.8"/>
-<polygon fill="#000000" stroke="#000000" points="297.02,-1460.05 291.29,-1468.97 301.33,-1465.57 297.02,-1460.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M391.5,-1528C356.15,-1562.3 316.81,-1604.21 294.52,-1628.33"/>
+<polygon fill="#000000" stroke="#000000" points="291.85,-1626.07 287.64,-1635.8 296.99,-1630.81 291.85,-1626.07"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_node21" class="node">
+<g id="module~~swiftest_classes~~UsedByGraph_node34" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node21"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="435,-1493 350,-1493 350,-1469 435,-1469 435,-1493"/>
-<text text-anchor="middle" x="392.5" y="-1478.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node34"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="435,-1660 350,-1660 350,-1636 435,-1636 435,-1660"/>
+<text text-anchor="middle" x="392.5" y="-1645.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge110" class="edge">
+<g id="module~~swiftest_classes~~UsedByGraph_edge112" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M491.45,-1305.2C481.1,-1327.71 457.82,-1377.09 435,-1417 426.51,-1431.84 416.03,-1447.99 407.73,-1460.35"/>
-<polygon fill="#000000" stroke="#000000" points="404.59,-1458.74 401.87,-1468.98 410.38,-1462.67 404.59,-1458.74"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M494.22,-1326C486.21,-1360.14 461.91,-1460.6 435,-1542 425.19,-1571.67 411.67,-1605.13 402.76,-1626.38"/>
+<polygon fill="#000000" stroke="#000000" points="399.46,-1625.18 398.79,-1635.76 405.91,-1627.91 399.46,-1625.18"/>
 </g>
 <!-- module~rmvs_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_node54" class="node">
+<g id="module~~swiftest_classes~~UsedByGraph_node67" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node54"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="314,-1375 237,-1375 237,-1351 314,-1351 314,-1375"/>
-<text text-anchor="middle" x="275.5" y="-1360.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node67"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="314,-1580 237,-1580 237,-1556 314,-1556 314,-1580"/>
+<text text-anchor="middle" x="275.5" y="-1565.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge122" class="edge">
+<g id="module~~swiftest_classes~~UsedByGraph_edge123" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M489.76,-1305.28C475.05,-1328.96 439.15,-1380.55 393.5,-1403"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M391.5,-1403C376.67,-1410.29 337.07,-1393.76 308.48,-1379.78"/>
-<polygon fill="#000000" stroke="#000000" points="309.77,-1376.52 299.26,-1375.18 306.64,-1382.78 309.77,-1376.52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M391.5,-1528C381.43,-1537.77 350.9,-1548.16 323.83,-1555.9"/>
+<polygon fill="#000000" stroke="#000000" points="322.74,-1552.57 314.05,-1558.62 324.63,-1559.31 322.74,-1552.57"/>
 </g>
-<!-- module~s_setup -->
-<g id="module~~swiftest_classes~~UsedByGraph_node18" class="node">
-<title>module~s_setup</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node18"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="666.5,-612 612.5,-612 612.5,-588 666.5,-588 666.5,-612"/>
-<text text-anchor="middle" x="639.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
+<!-- module~s_kick -->
+<g id="module~~swiftest_classes~~UsedByGraph_node13" class="node">
+<title>module~s_kick</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node13"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="666.5,-822 612.5,-822 612.5,-798 666.5,-798 666.5,-822"/>
+<text text-anchor="middle" x="639.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_setup&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge18" class="edge">
-<title>module~s_setup&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M612.48,-599.46C595.6,-597.71 574.35,-592.66 561,-579 480.4,-496.49 614.03,-318.51 499,-327"/>
-</g>
-<!-- module~s_setup&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge76" class="edge">
-<title>module~s_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.49,-599.81C595.16,-601.18 573.37,-606.09 561,-621 528.62,-660.03 530.02,-1025.54 525,-1076 517.91,-1147.29 507.14,-1231.46 501.97,-1270.73"/>
-<polygon fill="#000000" stroke="#000000" points="498.48,-1270.41 500.64,-1280.78 505.42,-1271.33 498.48,-1270.41"/>
+<!-- module~s_kick&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge14" class="edge">
+<title>module~s_kick&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M612.27,-809.66C595.3,-808 574.02,-802.97 561,-789 463.71,-684.62 641.3,-463.5 499,-474"/>
 </g>
-<!-- module~s_util_get_energy_momentum -->
-<g id="module~~swiftest_classes~~UsedByGraph_node19" class="node">
-<title>module~s_util_get_energy_momentum</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node19"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="718,-570 561,-570 561,-546 718,-546 718,-570"/>
-<text text-anchor="middle" x="639.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
-</a>
+<!-- module~s_kick&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge59" class="edge">
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.34,-810.03C595.17,-811.53 573.64,-816.5 561,-831 557.14,-835.43 513.17,-1196.88 501.72,-1291.52"/>
+<polygon fill="#000000" stroke="#000000" points="498.21,-1291.35 500.48,-1301.7 505.16,-1292.19 498.21,-1291.35"/>
 </g>
-</g>
-<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge19" class="edge">
-<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M573.12,-545.9C568.7,-543.45 564.59,-540.51 561,-537 491.42,-468.96 596.05,-319.84 499,-327"/>
-</g>
-<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge77" class="edge">
-<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M570.85,-570.19C567.18,-572.65 563.84,-575.56 561,-579 525.79,-621.73 530.29,-1020.89 525,-1076 518.15,-1147.31 507.26,-1231.47 502.02,-1270.74"/>
-<polygon fill="#000000" stroke="#000000" points="498.53,-1270.41 500.67,-1280.79 505.47,-1271.34 498.53,-1270.41"/>
-</g>
-<!-- module~s_tides_kick_getacch -->
-<g id="module~~swiftest_classes~~UsedByGraph_node20" class="node">
-<title>module~s_tides_kick_getacch</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node20"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="696.5,-528 582.5,-528 582.5,-504 696.5,-504 696.5,-528"/>
-<text text-anchor="middle" x="639.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
+<!-- module~s_util_resize -->
+<g id="module~~swiftest_classes~~UsedByGraph_node14" class="node">
+<title>module~s_util_resize</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node14"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="675.5,-780 603.5,-780 603.5,-756 675.5,-756 675.5,-780"/>
+<text text-anchor="middle" x="639.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge20" class="edge">
-<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M582.23,-507.69C574.46,-504.66 567.07,-500.55 561,-495 502.28,-441.28 578.37,-321.14 499,-327"/>
+<!-- module~s_util_resize&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge15" class="edge">
+<title>module~s_util_resize&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M603.18,-766.3C588.28,-763.79 571.91,-758.37 561,-747 474.85,-657.22 623.09,-464.84 499,-474"/>
 </g>
-<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge78" class="edge">
-<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.26,-522.23C574.09,-525.49 566.57,-530.21 561,-537 522.96,-583.43 530.57,-1016.24 525,-1076 518.35,-1147.33 507.37,-1231.48 502.06,-1270.74"/>
-<polygon fill="#000000" stroke="#000000" points="498.57,-1270.41 500.69,-1280.79 505.51,-1271.35 498.57,-1270.41"/>
+<!-- module~s_util_resize&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge60" class="edge">
+<title>module~s_util_resize&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M603.39,-769.04C588.17,-771.38 571.47,-776.86 561,-789 516.02,-841.2 533.1,-1028.57 525,-1097 516.58,-1168.14 506.44,-1252.38 501.69,-1291.7"/>
+<polygon fill="#000000" stroke="#000000" points="498.2,-1291.42 500.48,-1301.77 505.15,-1292.26 498.2,-1291.42"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge2" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M351.13,-1468.92C339.25,-1465.68 326.17,-1462.41 314,-1460 248.08,-1446.96 227.76,-1462.21 164,-1441"/>
+<!-- module~s_util_spill -->
+<g id="module~~swiftest_classes~~UsedByGraph_node15" class="node">
+<title>module~s_util_spill</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node15"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="670,-738 609,-738 609,-714 670,-714 670,-738"/>
+<text text-anchor="middle" x="639.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
+</a>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge43" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.98,-1481C341.47,-1481 332.46,-1481 323.76,-1481"/>
-<polygon fill="#000000" stroke="#000000" points="323.76,-1477.5 313.76,-1481 323.76,-1484.5 323.76,-1477.5"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge121" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M379.63,-1468.82C359.74,-1448.41 319.54,-1407.16 295.63,-1382.63"/>
-<polygon fill="#000000" stroke="#000000" points="297.97,-1380.01 288.48,-1375.29 292.95,-1384.9 297.97,-1380.01"/>
+<!-- module~s_util_spill&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge16" class="edge">
+<title>module~s_util_spill&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M608.82,-724.92C592.67,-722.8 573.5,-717.53 561,-705 485.92,-629.74 605.01,-466.18 499,-474"/>
+</g>
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge63" class="edge">
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.8,-726.26C592.23,-728.07 572.64,-733.3 561,-747 510.37,-806.58 533.65,-1019.29 525,-1097 517.07,-1168.2 506.7,-1252.41 501.8,-1291.71"/>
+<polygon fill="#000000" stroke="#000000" points="498.31,-1291.42 500.54,-1301.77 505.25,-1292.28 498.31,-1291.42"/>
 </g>
 <!-- module~s_orbel -->
-<g id="module~~swiftest_classes~~UsedByGraph_node22" class="node">
+<g id="module~~swiftest_classes~~UsedByGraph_node16" class="node">
 <title>module~s_orbel</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node22"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="666.5,-486 612.5,-486 612.5,-462 666.5,-462 666.5,-486"/>
-<text text-anchor="middle" x="639.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node16"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="666.5,-696 612.5,-696 612.5,-672 666.5,-672 666.5,-696"/>
+<text text-anchor="middle" x="639.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
 </a>
 </g>
 </g>
 <!-- module~s_orbel&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge21" class="edge">
+<g id="module~~swiftest_classes~~UsedByGraph_edge17" class="edge">
 <title>module~s_orbel&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M612.3,-472.33C595.98,-470.07 575.42,-464.88 561,-453 512.83,-413.32 561.24,-322.41 499,-327"/>
+<path fill="none" stroke="#000000" d="M612.44,-683.09C595.77,-681.16 574.75,-676.05 561,-663 496.87,-602.15 587.16,-467.49 499,-474"/>
 </g>
 <!-- module~s_orbel&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge81" class="edge">
+<g id="module~~swiftest_classes~~UsedByGraph_edge65" class="edge">
 <title>module~s_orbel&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.41,-473.74C595.04,-475.08 573.24,-479.98 561,-495 520.13,-545.13 530.85,-1011.59 525,-1076 518.52,-1147.35 507.46,-1231.49 502.09,-1270.74"/>
-<polygon fill="#000000" stroke="#000000" points="498.61,-1270.41 500.71,-1280.79 505.54,-1271.36 498.61,-1270.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.17,-683.88C594.93,-685.32 573.38,-690.27 561,-705 504.72,-771.97 534.2,-1010.01 525,-1097 517.46,-1168.24 506.9,-1252.43 501.88,-1291.72"/>
+<polygon fill="#000000" stroke="#000000" points="498.39,-1291.41 500.58,-1301.78 505.33,-1292.3 498.39,-1291.41"/>
 </g>
-<!-- module~s_fragmentation -->
-<g id="module~~swiftest_classes~~UsedByGraph_node23" class="node">
-<title>module~s_fragmentation</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node23"><a xlink:href=".././module/s_fragmentation.html" xlink:title="s_fragmentation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="684.5,-444 594.5,-444 594.5,-420 684.5,-420 684.5,-444"/>
-<text text-anchor="middle" x="639.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fragmentation</text>
+<!-- module~s_util_copy -->
+<g id="module~~swiftest_classes~~UsedByGraph_node17" class="node">
+<title>module~s_util_copy</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node17"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="672.5,-654 606.5,-654 606.5,-630 672.5,-630 672.5,-654"/>
+<text text-anchor="middle" x="639.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
 </a>
 </g>
 </g>
-<!-- module~s_fragmentation&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge22" class="edge">
-<title>module~s_fragmentation&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M594.45,-425.47C582.89,-422.36 570.9,-417.77 561,-411 522.7,-384.81 545.28,-323.58 499,-327"/>
+<!-- module~s_util_copy&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge18" class="edge">
+<title>module~s_util_copy&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M606.4,-639.77C591.12,-637.22 573.49,-631.92 561,-621 507.61,-574.34 569.71,-468.78 499,-474"/>
 </g>
-<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge89" class="edge">
-<title>module~s_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M594.19,-434.46C581.63,-437.41 569.17,-442.94 561,-453 517.3,-506.83 531.13,-1006.93 525,-1076 518.67,-1147.36 507.53,-1231.5 502.12,-1270.75"/>
-<polygon fill="#000000" stroke="#000000" points="498.64,-1270.41 500.73,-1280.79 505.57,-1271.37 498.64,-1270.41"/>
+<!-- module~s_util_copy&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge70" class="edge">
+<title>module~s_util_copy&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.37,-642.45C590.29,-644.46 571.97,-649.82 561,-663 530.03,-700.18 529.88,-1048.86 525,-1097 517.78,-1168.27 507.07,-1252.45 501.94,-1291.73"/>
+<polygon fill="#000000" stroke="#000000" points="498.45,-1291.41 500.62,-1301.78 505.39,-1292.32 498.45,-1291.41"/>
 </g>
-<!-- module~s_io -->
-<g id="module~~swiftest_classes~~UsedByGraph_node24" class="node">
-<title>module~s_io</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node24"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="666.5,-402 612.5,-402 612.5,-378 666.5,-378 666.5,-402"/>
-<text text-anchor="middle" x="639.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
+<!-- module~s_util_valid -->
+<g id="module~~swiftest_classes~~UsedByGraph_node18" class="node">
+<title>module~s_util_valid</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node18"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="672,-612 607,-612 607,-588 672,-588 672,-612"/>
+<text text-anchor="middle" x="639.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
 </a>
 </g>
 </g>
-<!-- module~s_io&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge23" class="edge">
-<title>module~s_io&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M612.27,-385.16C596.9,-381.77 577.35,-376.5 561,-369 530.75,-355.12 532.19,-324.55 499,-327"/>
+<!-- module~s_util_valid&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge19" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M606.63,-596.96C591.57,-594.21 574.08,-588.97 561,-579 517.89,-546.16 553.05,-470.01 499,-474"/>
 </g>
-<!-- module~s_io&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge84" class="edge">
-<title>module~s_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.37,-389.71C594.99,-391.04 573.19,-395.93 561,-411 514.46,-468.53 531.4,-1002.28 525,-1076 518.8,-1147.37 507.6,-1231.5 502.15,-1270.75"/>
-<polygon fill="#000000" stroke="#000000" points="498.67,-1270.4 500.75,-1280.79 505.6,-1271.38 498.67,-1270.4"/>
+<!-- module~s_util_valid&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge71" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.72,-600.37C590.54,-602.33 572.01,-607.68 561,-621 527.2,-661.88 530.16,-1044.21 525,-1097 518.04,-1168.3 507.2,-1252.46 501.99,-1291.73"/>
+<polygon fill="#000000" stroke="#000000" points="498.51,-1291.41 500.65,-1301.78 505.44,-1292.34 498.51,-1291.41"/>
 </g>
-<!-- module~s_util_version -->
-<g id="module~~swiftest_classes~~UsedByGraph_node25" class="node">
-<title>module~s_util_version</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node25"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="678.5,-360 600.5,-360 600.5,-336 678.5,-336 678.5,-360"/>
-<text text-anchor="middle" x="639.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
+<!-- module~s_tides_step_spin -->
+<g id="module~~swiftest_classes~~UsedByGraph_node19" class="node">
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node19"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="688.5,-570 590.5,-570 590.5,-546 688.5,-546 688.5,-570"/>
+<text text-anchor="middle" x="639.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_version&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge24" class="edge">
-<title>module~s_util_version&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M600.49,-337.62C572.54,-331.13 533.56,-324.45 499,-327"/>
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge20" class="edge">
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M590.19,-549.14C580.14,-546.16 569.91,-542.21 561,-537 527.08,-517.17 538.18,-471.11 499,-474"/>
 </g>
-<!-- module~s_util_version&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge85" class="edge">
-<title>module~s_util_version&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M600.22,-349.19C585.72,-351.71 570.45,-357.28 561,-369 511.63,-430.23 531.68,-997.63 525,-1076 518.91,-1147.38 507.66,-1231.51 502.18,-1270.75"/>
-<polygon fill="#000000" stroke="#000000" points="498.69,-1270.4 500.76,-1280.79 505.62,-1271.38 498.69,-1270.4"/>
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge72" class="edge">
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M590.22,-561.56C579.07,-564.71 568.35,-570.06 561,-579 524.37,-623.58 530.43,-1039.56 525,-1097 518.25,-1168.32 507.32,-1252.48 502.04,-1291.74"/>
+<polygon fill="#000000" stroke="#000000" points="498.55,-1291.41 500.68,-1301.79 505.49,-1292.35 498.55,-1291.41"/>
+</g>
+<!-- module~s_util_sort -->
+<g id="module~~swiftest_classes~~UsedByGraph_node20" class="node">
+<title>module~s_util_sort</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node20"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="670,-528 609,-528 609,-504 670,-504 670,-528"/>
+<text text-anchor="middle" x="639.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
+</a>
+</g>
+</g>
+<!-- module~s_util_sort&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge21" class="edge">
+<title>module~s_util_sort&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M608.94,-508.45C594.43,-504.63 576.74,-499.79 561,-495 533.17,-486.52 528.01,-471.86 499,-474"/>
+</g>
+<!-- module~s_util_sort&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge73" class="edge">
+<title>module~s_util_sort&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.99,-516.06C592.27,-517.77 572.47,-522.97 561,-537 521.54,-585.28 530.71,-1034.91 525,-1097 518.44,-1168.34 507.41,-1252.48 502.08,-1291.74"/>
+<polygon fill="#000000" stroke="#000000" points="498.59,-1291.41 500.7,-1301.79 505.53,-1292.36 498.59,-1291.41"/>
+</g>
+<!-- module~s_tides_kick_getacch -->
+<g id="module~~swiftest_classes~~UsedByGraph_node21" class="node">
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node21"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="696.5,-486 582.5,-486 582.5,-462 696.5,-462 696.5,-486"/>
+<text text-anchor="middle" x="639.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
+</a>
+</g>
+</g>
+<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge22" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M582.43,-472.12C556.94,-471.75 526.41,-471.98 499,-474"/>
+</g>
+<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge74" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.22,-480.19C574.05,-483.46 566.54,-488.19 561,-495 518.71,-546.98 530.99,-1030.26 525,-1097 518.6,-1168.35 507.5,-1252.49 502.11,-1291.75"/>
+<polygon fill="#000000" stroke="#000000" points="498.62,-1291.41 500.72,-1301.79 505.56,-1292.36 498.62,-1291.41"/>
 </g>
 <!-- module~s_util_fill -->
-<g id="module~~swiftest_classes~~UsedByGraph_node26" class="node">
+<g id="module~~swiftest_classes~~UsedByGraph_node22" class="node">
 <title>module~s_util_fill</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node26"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="666.5,-318 612.5,-318 612.5,-294 666.5,-294 666.5,-318"/>
-<text text-anchor="middle" x="639.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node22"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="666.5,-444 612.5,-444 612.5,-420 666.5,-420 666.5,-444"/>
+<text text-anchor="middle" x="639.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
 </a>
 </g>
 </g>
 <!-- module~s_util_fill&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge25" class="edge">
+<g id="module~~swiftest_classes~~UsedByGraph_edge23" class="edge">
 <title>module~s_util_fill&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M612.41,-311.14C584.48,-316.35 538.81,-324.06 499,-327"/>
+<path fill="none" stroke="#000000" d="M612.2,-438.69C597.14,-442.63 577.94,-447.84 561,-453 533.17,-461.48 528.01,-471.86 499,-474"/>
 </g>
 <!-- module~s_util_fill&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge86" class="edge">
+<g id="module~~swiftest_classes~~UsedByGraph_edge76" class="edge">
 <title>module~s_util_fill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.34,-305.69C594.95,-307 573.14,-311.9 561,-327 508.8,-391.94 531.96,-992.97 525,-1076 519.02,-1147.39 507.72,-1231.51 502.2,-1270.75"/>
-<polygon fill="#000000" stroke="#000000" points="498.71,-1270.4 500.77,-1280.8 505.64,-1271.39 498.71,-1270.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.38,-431.72C595,-433.05 573.2,-437.95 561,-453 515.88,-508.68 531.27,-1025.61 525,-1097 518.74,-1168.36 507.57,-1252.5 502.14,-1291.75"/>
+<polygon fill="#000000" stroke="#000000" points="498.65,-1291.4 500.74,-1301.79 505.59,-1292.37 498.65,-1291.4"/>
 </g>
-<!-- module~s_util_peri -->
-<g id="module~~swiftest_classes~~UsedByGraph_node27" class="node">
-<title>module~s_util_peri</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node27"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="670,-276 609,-276 609,-252 670,-252 670,-276"/>
-<text text-anchor="middle" x="639.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
+<!-- module~s_util_solve -->
+<g id="module~~swiftest_classes~~UsedByGraph_node23" class="node">
+<title>module~s_util_solve</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node23"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="673.5,-402 605.5,-402 605.5,-378 673.5,-378 673.5,-402"/>
+<text text-anchor="middle" x="639.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_peri&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge26" class="edge">
-<title>module~s_util_peri&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M609,-269.58C594.18,-272.98 576.21,-278.03 561,-285 530.75,-298.88 532.19,-324.55 499,-327"/>
+<!-- module~s_util_solve&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge24" class="edge">
+<title>module~s_util_solve&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M605.32,-394.98C591,-398.12 574.48,-403.12 561,-411 527.08,-430.83 538.18,-471.11 499,-474"/>
 </g>
-<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge81" class="edge">
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.42,-390.41C589.49,-392.47 571.6,-397.88 561,-411 513.05,-470.38 531.54,-1020.95 525,-1097 518.86,-1168.38 507.63,-1252.5 502.16,-1291.75"/>
+<polygon fill="#000000" stroke="#000000" points="498.68,-1291.4 500.75,-1301.79 505.61,-1292.38 498.68,-1291.4"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge1" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M244.38,-1635.83C222.37,-1627.24 191.66,-1615.91 164,-1608"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge34" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.95,-1635.74C241.96,-1618.55 207.25,-1587.14 184.93,-1566.94"/>
+<polygon fill="#000000" stroke="#000000" points="187.08,-1564.16 177.32,-1560.05 182.38,-1569.36 187.08,-1564.16"/>
+</g>
+<!-- module~s_io -->
+<g id="module~~swiftest_classes~~UsedByGraph_node25" class="node">
+<title>module~s_io</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node25"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="666.5,-360 612.5,-360 612.5,-336 666.5,-336 666.5,-360"/>
+<text text-anchor="middle" x="639.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
+</a>
+</g>
+</g>
+<!-- module~s_io&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge25" class="edge">
+<title>module~s_io&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M612.23,-350.1C596.09,-352.54 575.75,-357.76 561,-369 517.89,-401.84 553.05,-470.01 499,-474"/>
+</g>
+<!-- module~s_io&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_classes~~UsedByGraph_edge87" class="edge">
-<title>module~s_util_peri&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.9,-263.98C592.14,-265.67 572.34,-270.86 561,-285 533.48,-319.32 528.62,-1032.16 525,-1076 519.11,-1147.4 507.76,-1231.52 502.22,-1270.75"/>
-<polygon fill="#000000" stroke="#000000" points="498.73,-1270.4 500.78,-1280.8 505.66,-1271.39 498.73,-1270.4"/>
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.35,-347.69C594.95,-349.01 573.15,-353.91 561,-369 510.21,-432.09 531.82,-1016.3 525,-1097 518.97,-1168.38 507.69,-1252.51 502.19,-1291.75"/>
+<polygon fill="#000000" stroke="#000000" points="498.7,-1291.4 500.77,-1301.79 505.63,-1292.38 498.7,-1291.4"/>
 </g>
-<!-- module~s_tides_step_spin -->
-<g id="module~~swiftest_classes~~UsedByGraph_node28" class="node">
-<title>module~s_tides_step_spin</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node28"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="688.5,-234 590.5,-234 590.5,-210 688.5,-210 688.5,-234"/>
-<text text-anchor="middle" x="639.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
+<!-- module~s_obl -->
+<g id="module~~swiftest_classes~~UsedByGraph_node26" class="node">
+<title>module~s_obl</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node26"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="666.5,-318 612.5,-318 612.5,-294 666.5,-294 666.5,-318"/>
+<text text-anchor="middle" x="639.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_step_spin&#45;&gt;module~swiftest_classes -->
+<!-- module~s_obl&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge26" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M612.42,-307.34C595.95,-309.45 575.17,-314.62 561,-327 507.61,-373.66 569.71,-468.78 499,-474"/>
+</g>
+<!-- module~s_obl&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge88" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.33,-305.68C594.94,-307 573.13,-311.89 561,-327 507.38,-393.79 532.1,-1011.65 525,-1097 519.06,-1168.39 507.74,-1252.51 502.21,-1291.75"/>
+<polygon fill="#000000" stroke="#000000" points="498.72,-1291.4 500.78,-1301.8 505.65,-1292.39 498.72,-1291.4"/>
+</g>
+<!-- module~s_eucl -->
+<g id="module~~swiftest_classes~~UsedByGraph_node27" class="node">
+<title>module~s_eucl</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node27"><a xlink:href=".././module/s_eucl.html" xlink:title="s_eucl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="666.5,-276 612.5,-276 612.5,-252 666.5,-252 666.5,-276"/>
+<text text-anchor="middle" x="639.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_eucl</text>
+</a>
+</g>
+</g>
+<!-- module~s_eucl&#45;&gt;module~swiftest_classes -->
 <g id="module~~swiftest_classes~~UsedByGraph_edge27" class="edge">
-<title>module~s_tides_step_spin&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M590.41,-229.68C580.13,-232.74 569.75,-237.02 561,-243 522.7,-269.19 545.28,-323.58 499,-327"/>
+<title>module~s_eucl&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M612.44,-264.91C595.77,-266.84 574.75,-271.95 561,-285 496.87,-345.85 587.16,-467.49 499,-474"/>
 </g>
-<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge92" class="edge">
-<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M590.46,-225.32C579.17,-228.45 568.31,-233.86 561,-243 532.07,-279.17 528.76,-1029.83 525,-1076 519.19,-1147.4 507.81,-1231.52 502.23,-1270.76"/>
-<polygon fill="#000000" stroke="#000000" points="498.75,-1270.4 500.79,-1280.8 505.68,-1271.4 498.75,-1270.4"/>
+<!-- module~s_eucl&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge90" class="edge">
+<title>module~s_eucl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.32,-263.67C594.92,-264.98 573.11,-269.88 561,-285 532.77,-320.25 528.69,-1052 525,-1097 519.15,-1168.4 507.79,-1252.52 502.22,-1291.76"/>
+<polygon fill="#000000" stroke="#000000" points="498.74,-1291.4 500.79,-1301.8 505.67,-1292.39 498.74,-1291.4"/>
 </g>
-<!-- module~s_util_sort -->
-<g id="module~~swiftest_classes~~UsedByGraph_node29" class="node">
-<title>module~s_util_sort</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node29"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="670,-192 609,-192 609,-168 670,-168 670,-192"/>
-<text text-anchor="middle" x="639.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
+<!-- module~s_util_append -->
+<g id="module~~swiftest_classes~~UsedByGraph_node28" class="node">
+<title>module~s_util_append</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node28"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="679,-234 600,-234 600,-210 679,-210 679,-234"/>
+<text text-anchor="middle" x="639.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_sort&#45;&gt;module~swiftest_classes -->
+<!-- module~s_util_append&#45;&gt;module~swiftest_classes -->
 <g id="module~~swiftest_classes~~UsedByGraph_edge28" class="edge">
-<title>module~s_util_sort&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M608.95,-182.17C593.24,-184.65 574.45,-189.92 561,-201 512.83,-240.68 561.24,-322.41 499,-327"/>
+<title>module~s_util_append&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M599.81,-224.56C585.95,-227.35 571.24,-232.74 561,-243 485.92,-318.26 605.01,-466.18 499,-474"/>
 </g>
-<!-- module~s_util_sort&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge94" class="edge">
-<title>module~s_util_sort&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.87,-179.96C592.11,-181.64 572.31,-186.84 561,-201 530.65,-239.02 528.9,-1027.5 525,-1076 519.26,-1147.41 507.85,-1231.52 502.25,-1270.76"/>
-<polygon fill="#000000" stroke="#000000" points="498.76,-1270.4 500.8,-1280.8 505.69,-1271.4 498.76,-1270.4"/>
+<!-- module~s_util_append&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge91" class="edge">
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.76,-223.22C585.38,-225.77 570.31,-231.35 561,-243 531.36,-280.1 528.83,-1049.67 525,-1097 519.23,-1168.41 507.83,-1252.52 502.24,-1291.76"/>
+<polygon fill="#000000" stroke="#000000" points="498.76,-1291.4 500.8,-1301.8 505.68,-1292.4 498.76,-1291.4"/>
 </g>
-<!-- module~s_util_minimize_bfgs -->
+<!-- module~s_fragmentation -->
+<g id="module~~swiftest_classes~~UsedByGraph_node29" class="node">
+<title>module~s_fragmentation</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node29"><a xlink:href=".././module/s_fragmentation.html" xlink:title="s_fragmentation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="684.5,-192 594.5,-192 594.5,-168 684.5,-168 684.5,-192"/>
+<text text-anchor="middle" x="639.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fragmentation</text>
+</a>
+</g>
+</g>
+<!-- module~s_fragmentation&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge29" class="edge">
+<title>module~s_fragmentation&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M594.36,-183.52C582.11,-186.55 569.78,-191.85 561,-201 474.85,-290.78 623.09,-464.84 499,-474"/>
+</g>
+<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge92" class="edge">
+<title>module~s_fragmentation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M594.49,-182.28C581.79,-185.2 569.17,-190.75 561,-201 529.94,-239.95 528.97,-1047.34 525,-1097 519.3,-1168.41 507.86,-1252.52 502.25,-1291.76"/>
+<polygon fill="#000000" stroke="#000000" points="498.77,-1291.4 500.81,-1301.8 505.7,-1292.4 498.77,-1291.4"/>
+</g>
+<!-- module~s_user_kick_getacch -->
 <g id="module~~swiftest_classes~~UsedByGraph_node30" class="node">
-<title>module~s_util_minimize_bfgs</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node30"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node30"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
 <polygon fill="#5bc0de" stroke="#5bc0de" points="695.5,-150 583.5,-150 583.5,-126 695.5,-126 695.5,-150"/>
-<text text-anchor="middle" x="639.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
+<text text-anchor="middle" x="639.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge29" class="edge">
-<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M583.42,-145.85C575.21,-148.93 567.38,-153.17 561,-159 502.28,-212.72 578.37,-321.14 499,-327"/>
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge30" class="edge">
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M583.37,-144.71C574.97,-147.9 567.08,-152.47 561,-159 463.71,-263.38 641.3,-463.5 499,-474"/>
 </g>
-<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge95" class="edge">
-<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M583.27,-143.64C574.66,-146.92 566.73,-151.8 561,-159 529.23,-198.88 529.04,-1025.18 525,-1076 519.33,-1147.41 507.88,-1231.52 502.26,-1270.76"/>
-<polygon fill="#000000" stroke="#000000" points="498.78,-1270.4 500.81,-1280.8 505.7,-1271.4 498.78,-1270.4"/>
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge93" class="edge">
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M583.27,-143.64C574.66,-146.92 566.73,-151.8 561,-159 528.52,-199.8 529.11,-1045.01 525,-1097 519.36,-1168.42 507.9,-1252.53 502.27,-1291.76"/>
+<polygon fill="#000000" stroke="#000000" points="498.78,-1291.4 500.81,-1301.8 505.71,-1292.4 498.78,-1291.4"/>
 </g>
-<!-- module~s_util_copy -->
+<!-- module~s_util_peri -->
 <g id="module~~swiftest_classes~~UsedByGraph_node31" class="node">
-<title>module~s_util_copy</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node31"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="672.5,-108 606.5,-108 606.5,-84 672.5,-84 672.5,-108"/>
-<text text-anchor="middle" x="639.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
+<title>module~s_util_peri</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node31"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="670,-108 609,-108 609,-84 670,-84 670,-108"/>
+<text text-anchor="middle" x="639.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_copy&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge30" class="edge">
-<title>module~s_util_copy&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M606.25,-97.58C590.74,-99.96 572.96,-105.31 561,-117 491.42,-185.04 596.05,-319.84 499,-327"/>
+<!-- module~s_util_peri&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge31" class="edge">
+<title>module~s_util_peri&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M608.76,-96.61C592.39,-98.56 573.02,-103.81 561,-117 506.76,-176.51 579.3,-468.07 499,-474"/>
 </g>
-<!-- module~s_util_copy&#45;&gt;module~swiftest -->
+<!-- module~s_util_peri&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_classes~~UsedByGraph_edge97" class="edge">
-<title>module~s_util_copy&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.12,-96.25C589.98,-98.21 571.67,-103.58 561,-117 527.81,-158.73 529.17,-1022.85 525,-1076 519.39,-1147.42 507.91,-1231.53 502.27,-1270.76"/>
-<polygon fill="#000000" stroke="#000000" points="498.79,-1270.4 500.82,-1280.8 505.72,-1271.41 498.79,-1270.4"/>
+<title>module~s_util_peri&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.85,-95.94C592.08,-97.62 572.27,-102.81 561,-117 527.11,-159.65 529.24,-1042.68 525,-1097 519.42,-1168.42 507.93,-1252.53 502.28,-1291.76"/>
+<polygon fill="#000000" stroke="#000000" points="498.8,-1291.4 500.82,-1301.8 505.72,-1292.41 498.8,-1291.4"/>
 </g>
-<!-- module~s_kick -->
+<!-- module~s_discard -->
 <g id="module~~swiftest_classes~~UsedByGraph_node32" class="node">
-<title>module~s_kick</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node32"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="666.5,-66 612.5,-66 612.5,-42 666.5,-42 666.5,-66"/>
-<text text-anchor="middle" x="639.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
+<title>module~s_discard</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node32"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="668.5,-66 610.5,-66 610.5,-42 668.5,-42 668.5,-66"/>
+<text text-anchor="middle" x="639.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_kick&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge31" class="edge">
-<title>module~s_kick&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M612.48,-54.54C595.6,-56.29 574.35,-61.34 561,-75 480.4,-157.51 614.03,-318.51 499,-327"/>
+<!-- module~s_discard&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge32" class="edge">
+<title>module~s_discard&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M610.2,-54.36C593.49,-56.14 573.27,-61.29 561,-75 501.15,-141.85 588.49,-467.4 499,-474"/>
 </g>
-<!-- module~s_kick&#45;&gt;module~swiftest -->
+<!-- module~s_discard&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_classes~~UsedByGraph_edge100" class="edge">
-<title>module~s_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.28,-53.64C594.86,-54.94 573.05,-59.82 561,-75 526.4,-118.58 529.31,-1020.52 525,-1076 519.45,-1147.42 507.94,-1231.53 502.29,-1270.76"/>
-<polygon fill="#000000" stroke="#000000" points="498.8,-1270.4 500.82,-1280.8 505.73,-1271.41 498.8,-1270.4"/>
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M610.38,-53.79C593.3,-55.3 572.61,-60.37 561,-75 525.69,-119.51 529.38,-1040.36 525,-1097 519.47,-1168.43 507.96,-1252.53 502.29,-1291.76"/>
+<polygon fill="#000000" stroke="#000000" points="498.81,-1291.4 500.83,-1301.8 505.73,-1292.41 498.81,-1291.4"/>
 </g>
-<!-- module~s_gr -->
+<!-- module~s_util_exit -->
 <g id="module~~swiftest_classes~~UsedByGraph_node33" class="node">
-<title>module~s_gr</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node33"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="666.5,-24 612.5,-24 612.5,0 666.5,0 666.5,-24"/>
-<text text-anchor="middle" x="639.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
+<title>module~s_util_exit</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node33"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="669.5,-24 609.5,-24 609.5,0 669.5,0 669.5,-24"/>
+<text text-anchor="middle" x="639.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
 </a>
 </g>
 </g>
-<!-- module~s_gr&#45;&gt;module~swiftest_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge32" class="edge">
-<title>module~s_gr&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" d="M612.33,-12.4C595.39,-14.08 574.12,-19.12 561,-33 469.29,-130.07 632.18,-317.17 499,-327"/>
-<path fill="none" stroke="#000000" d="M497,-327C264.64,-344.15 79.98,-1210.65 49.82,-1360.15"/>
-<polygon fill="#000000" stroke="#000000" points="46.38,-1359.51 47.85,-1370 53.24,-1360.88 46.38,-1359.51"/>
+<!-- module~s_util_exit&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge33" class="edge">
+<title>module~s_util_exit&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" d="M609.37,-12.38C592.79,-14.21 572.99,-19.41 561,-33 495.53,-107.21 597.7,-466.72 499,-474"/>
+<path fill="none" stroke="#000000" d="M497,-474C261.1,-491.41 79.36,-1373.55 49.74,-1525.75"/>
+<polygon fill="#000000" stroke="#000000" points="46.26,-1525.3 47.8,-1535.78 53.14,-1526.63 46.26,-1525.3"/>
 </g>
-<!-- module~s_gr&#45;&gt;module~swiftest -->
+<!-- module~s_util_exit&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_classes~~UsedByGraph_edge103" class="edge">
-<title>module~s_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.28,-11.64C594.85,-12.93 573.04,-17.82 561,-33 524.98,-78.43 529.45,-1018.19 525,-1076 519.5,-1147.43 507.97,-1231.53 502.3,-1270.76"/>
-<polygon fill="#000000" stroke="#000000" points="498.81,-1270.4 500.83,-1280.8 505.74,-1271.41 498.81,-1270.4"/>
-</g>
-<!-- module~s_helio_kick -->
-<g id="module~~swiftest_classes~~UsedByGraph_node34" class="node">
-<title>module~s_helio_kick</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node34"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="674.5,-1368 604.5,-1368 604.5,-1344 674.5,-1344 674.5,-1368"/>
-<text text-anchor="middle" x="639.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
-</a>
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.22,-11.89C592.37,-13.52 572.34,-18.69 561,-33 524.27,-79.36 529.52,-1038.03 525,-1097 519.52,-1168.43 507.98,-1252.53 502.3,-1291.76"/>
+<polygon fill="#000000" stroke="#000000" points="498.82,-1291.4 500.83,-1301.8 505.74,-1292.41 498.82,-1291.4"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge4" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M351.13,-1635.92C339.25,-1632.68 326.17,-1629.41 314,-1627 248.08,-1613.96 228.61,-1626.49 164,-1608"/>
 </g>
-<!-- module~s_helio_kick&#45;&gt;module~helio_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge45" class="edge">
-<title>module~s_helio_kick&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M604.36,-1364.57C590.79,-1368.16 575.08,-1372.53 561,-1377 472.58,-1405.08 370.93,-1443.85 316.26,-1465.24"/>
-<polygon fill="#000000" stroke="#000000" points="314.97,-1461.98 306.94,-1468.89 317.52,-1468.5 314.97,-1461.98"/>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge106" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.98,-1648C341.47,-1648 332.46,-1648 323.76,-1648"/>
+<polygon fill="#000000" stroke="#000000" points="323.76,-1644.5 313.76,-1648 323.76,-1651.5 323.76,-1644.5"/>
 </g>
-<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge53" class="edge">
-<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.46,-1349.35C590.62,-1345.99 574.68,-1341.28 561,-1335 547.25,-1328.69 533.19,-1319.45 521.95,-1311.23"/>
-<polygon fill="#000000" stroke="#000000" points="524.04,-1308.43 513.95,-1305.22 519.84,-1314.02 524.04,-1308.43"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge124" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.27,-1635.98C358.57,-1625.03 334.74,-1608.41 314,-1594 310.24,-1591.39 306.26,-1588.63 302.36,-1585.92"/>
+<polygon fill="#000000" stroke="#000000" points="304.27,-1582.98 294.06,-1580.16 300.28,-1588.74 304.27,-1582.98"/>
 </g>
-<!-- module~s_helio_step -->
+<!-- module~s_symba_encounter_check -->
 <g id="module~~swiftest_classes~~UsedByGraph_node35" class="node">
-<title>module~s_helio_step</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node35"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="676,-1956 603,-1956 603,-1932 676,-1932 676,-1956"/>
-<text text-anchor="middle" x="639.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
+<title>module~s_symba_encounter_check</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node35"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="711,-1998 568,-1998 568,-1974 711,-1974 711,-1998"/>
+<text text-anchor="middle" x="639.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_step&#45;&gt;module~helio_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge47" class="edge">
-<title>module~s_helio_step&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M602.82,-1936.19C574.02,-1929.2 532.87,-1917.64 499,-1902"/>
+<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge46" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.25,-1973.99C567.43,-1971.5 563.95,-1968.53 561,-1965 531.45,-1929.67 529.5,-1597.84 525,-1552 517.19,-1472.45 506.44,-1378.1 501.58,-1336.09"/>
+<polygon fill="#000000" stroke="#000000" points="505.05,-1335.66 500.42,-1326.13 498.1,-1336.46 505.05,-1335.66"/>
 </g>
-<!-- module~s_helio_step&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge57" class="edge">
-<title>module~s_helio_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.89,-1942.98C587.75,-1940.62 571.26,-1935.13 561,-1923 558.48,-1920.02 511.7,-1427.17 501.12,-1315.37"/>
-<polygon fill="#000000" stroke="#000000" points="504.58,-1314.86 500.16,-1305.24 497.61,-1315.52 504.58,-1314.86"/>
+<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge116" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M577.9,-1973.93C571.93,-1971.49 566.18,-1968.54 561,-1965 522.7,-1938.81 537.99,-1906.15 499,-1881"/>
 </g>
-<!-- module~s_helio_coord -->
+<!-- module~s_rmvs_kick -->
 <g id="module~~swiftest_classes~~UsedByGraph_node36" class="node">
-<title>module~s_helio_coord</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node36"><a xlink:href=".././module/s_helio_coord.html" xlink:title="s_helio_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="679,-1914 600,-1914 600,-1890 679,-1890 679,-1914"/>
-<text text-anchor="middle" x="639.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_coord</text>
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node36"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="675,-1620 604,-1620 604,-1596 675,-1596 675,-1620"/>
+<text text-anchor="middle" x="639.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_coord&#45;&gt;module~helio_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge48" class="edge">
-<title>module~s_helio_coord&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M599.94,-1910.4C570.84,-1914.8 530.66,-1916.62 499,-1902"/>
+<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge47" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M603.97,-1606.43C588.87,-1603.98 572.1,-1598.57 561,-1587 526.15,-1550.68 507.1,-1394.39 501.1,-1336.06"/>
+<polygon fill="#000000" stroke="#000000" points="504.58,-1335.67 500.11,-1326.06 497.62,-1336.36 504.58,-1335.67"/>
 </g>
-<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge58" class="edge">
-<title>module~s_helio_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.73,-1900.4C585.52,-1897.78 570.58,-1892.25 561,-1881 551.61,-1869.97 510.56,-1421.05 501,-1315.2"/>
-<polygon fill="#000000" stroke="#000000" points="504.46,-1314.67 500.08,-1305.03 497.49,-1315.3 504.46,-1314.67"/>
+<!-- module~s_rmvs_kick&#45;&gt;module~rmvs_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge126" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M603.65,-1599.05C590.26,-1595.48 574.87,-1591.22 561,-1587 533.17,-1578.52 527.79,-1561.82 499,-1566"/>
 </g>
-<!-- module~s_rmvs_util -->
+<!-- module~s_rmvs_chk -->
 <g id="module~~swiftest_classes~~UsedByGraph_node37" class="node">
-<title>module~s_rmvs_util</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node37"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="673,-1032 606,-1032 606,-1008 673,-1008 673,-1032"/>
-<text text-anchor="middle" x="639.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
+<title>module~s_rmvs_chk</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node37"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="674.5,-1578 604.5,-1578 604.5,-1554 674.5,-1554 674.5,-1578"/>
+<text text-anchor="middle" x="639.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge59" class="edge">
-<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.63,-1021.41C590.15,-1023.76 572.59,-1029.13 561,-1041 528.75,-1074.02 508.41,-1215.6 501.57,-1270.82"/>
-<polygon fill="#000000" stroke="#000000" points="498.07,-1270.59 500.35,-1280.94 505.02,-1271.43 498.07,-1270.59"/>
+<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge48" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.17,-1564.23C589.11,-1561.74 572.32,-1556.35 561,-1545 503.29,-1487.15 497.67,-1381.75 498.15,-1336.08"/>
+<polygon fill="#000000" stroke="#000000" points="501.65,-1336.14 498.37,-1326.06 494.66,-1335.98 501.65,-1336.14"/>
 </g>
-<!-- module~s_rmvs_util&#45;&gt;module~rmvs_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge126" class="edge">
-<title>module~s_rmvs_util&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M605.94,-1028.34C592.04,-1032.03 575.67,-1036.53 561,-1041 533.17,-1049.48 528.01,-1059.86 499,-1062"/>
+<!-- module~s_rmvs_chk&#45;&gt;module~rmvs_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge127" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M604.48,-1563.28C576.11,-1561.66 534.71,-1560.81 499,-1566"/>
 </g>
-<!-- module~s_symba_discard -->
+<!-- module~s_symba_drift -->
 <g id="module~~swiftest_classes~~UsedByGraph_node38" class="node">
-<title>module~s_symba_discard</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node38"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="687.5,-1494 591.5,-1494 591.5,-1470 687.5,-1470 687.5,-1494"/>
-<text text-anchor="middle" x="639.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
+<title>module~s_symba_drift</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node38"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="679,-1956 600,-1956 600,-1932 679,-1932 679,-1956"/>
+<text text-anchor="middle" x="639.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge63" class="edge">
-<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M591.45,-1476.78C580.42,-1473.64 569.43,-1468.72 561,-1461 518.38,-1422.01 504.97,-1351.14 500.82,-1315.19"/>
-<polygon fill="#000000" stroke="#000000" points="504.3,-1314.82 499.8,-1305.22 497.33,-1315.53 504.3,-1314.82"/>
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge52" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.68,-1942.45C585.46,-1939.83 570.54,-1934.29 561,-1923 507.55,-1859.72 533.5,-1634.39 525,-1552 516.8,-1472.49 506.25,-1378.12 501.5,-1336.1"/>
+<polygon fill="#000000" stroke="#000000" points="504.98,-1335.67 500.38,-1326.13 498.02,-1336.46 504.98,-1335.67"/>
 </g>
-<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge115" class="edge">
-<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M591.22,-1489.44C580.68,-1492.52 569.98,-1496.86 561,-1503 522.7,-1529.19 541.85,-1604.81 499,-1587"/>
+<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge118" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M599.78,-1936.18C587.1,-1932.93 573.16,-1928.58 561,-1923 530.75,-1909.12 526.97,-1899.04 499,-1881"/>
 </g>
-<!-- module~s_operator_cross -->
+<!-- module~s_rmvs_discard -->
 <g id="module~~swiftest_classes~~UsedByGraph_node39" class="node">
-<title>module~s_operator_cross</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node39"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="687.5,-1242 591.5,-1242 591.5,-1218 687.5,-1218 687.5,-1242"/>
-<text text-anchor="middle" x="639.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
+<title>module~s_rmvs_discard</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node39"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="683.5,-1494 595.5,-1494 595.5,-1470 683.5,-1470 683.5,-1494"/>
+<text text-anchor="middle" x="639.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge61" class="edge">
-<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M591.31,-1240.11C581.09,-1243.03 570.5,-1246.64 561,-1251 547.25,-1257.31 533.19,-1266.55 521.95,-1274.77"/>
-<polygon fill="#000000" stroke="#000000" points="519.84,-1271.98 513.95,-1280.78 524.04,-1277.57 519.84,-1271.98"/>
+<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge56" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.32,-1477.48C583.11,-1474.41 570.55,-1469.35 561,-1461 523.5,-1428.23 508.09,-1368.98 502.24,-1336.61"/>
+<polygon fill="#000000" stroke="#000000" points="505.63,-1335.66 500.55,-1326.37 498.73,-1336.8 505.63,-1335.66"/>
 </g>
-<!-- module~s_symba_collision -->
+<!-- module~s_rmvs_discard&#45;&gt;module~rmvs_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge129" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M595.46,-1489.37C583.77,-1492.49 571.47,-1496.88 561,-1503 527.08,-1522.83 537.88,-1560.35 499,-1566"/>
+</g>
+<!-- proc~solve_wbs -->
 <g id="module~~swiftest_classes~~UsedByGraph_node40" class="node">
-<title>module~s_symba_collision</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node40"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="689,-1452 590,-1452 590,-1428 689,-1428 689,-1452"/>
-<text text-anchor="middle" x="639.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
+<title>proc~solve_wbs</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node40"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="670.5,-1284 608.5,-1284 608.5,-1260 670.5,-1260 670.5,-1284"/>
+<text text-anchor="middle" x="639.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge106" class="edge">
-<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M589.97,-1433.57C579.6,-1430.44 569.28,-1425.82 561,-1419 528.13,-1391.92 511.25,-1343.13 503.84,-1314.87"/>
-<polygon fill="#000000" stroke="#000000" points="507.24,-1314.01 501.45,-1305.13 500.44,-1315.67 507.24,-1314.01"/>
-</g>
-<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge117" class="edge">
-<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M589.97,-1446.43C579.6,-1449.56 569.28,-1454.18 561,-1461 512.83,-1500.68 556.63,-1610.95 499,-1587"/>
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge57" class="edge">
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.2,-1279.75C593.83,-1283.54 576.47,-1288.29 561,-1293 552.48,-1295.59 543.37,-1298.57 534.83,-1301.44"/>
+<polygon fill="#000000" stroke="#000000" points="533.47,-1298.21 525.13,-1304.75 535.72,-1304.84 533.47,-1298.21"/>
 </g>
-<!-- module~s_rmvs_discard -->
+<!-- module~s_symba_kick -->
 <g id="module~~swiftest_classes~~UsedByGraph_node41" class="node">
-<title>module~s_rmvs_discard</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node41"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="683.5,-990 595.5,-990 595.5,-966 683.5,-966 683.5,-990"/>
-<text text-anchor="middle" x="639.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
+<title>module~s_symba_kick</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node41"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="679,-1914 600,-1914 600,-1890 679,-1890 679,-1914"/>
+<text text-anchor="middle" x="639.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge65" class="edge">
-<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.48,-981.14C582.84,-984.11 570,-989.48 561,-999 523.65,-1038.53 506.01,-1208.72 500.75,-1270.49"/>
-<polygon fill="#000000" stroke="#000000" points="497.24,-1270.46 499.91,-1280.71 504.22,-1271.03 497.24,-1270.46"/>
+<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge61" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.75,-1900.39C585.54,-1897.76 570.6,-1892.23 561,-1881 561,-1881 512.88,-1440.93 501.43,-1336.18"/>
+<polygon fill="#000000" stroke="#000000" points="504.89,-1335.67 500.32,-1326.1 497.93,-1336.43 504.89,-1335.67"/>
 </g>
-<!-- module~s_rmvs_discard&#45;&gt;module~rmvs_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge123" class="edge">
-<title>module~s_rmvs_discard&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M595.46,-985.37C583.77,-988.49 571.47,-992.88 561,-999 527.08,-1018.83 538.18,-1059.11 499,-1062"/>
+<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge114" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M599.7,-1904.44C569.92,-1904.46 528.95,-1900.31 499,-1881"/>
 </g>
-<!-- module~s_symba_fragmentation -->
+<!-- module~s_whm_util -->
 <g id="module~~swiftest_classes~~UsedByGraph_node42" class="node">
-<title>module~s_symba_fragmentation</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node42"><a xlink:href=".././module/s_symba_fragmentation.html" xlink:title="s_symba_fragmentation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="703,-1410 576,-1410 576,-1386 703,-1386 703,-1410"/>
-<text text-anchor="middle" x="639.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_fragmentation</text>
+<title>module~s_whm_util</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node42"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="672.5,-1200 606.5,-1200 606.5,-1176 672.5,-1176 672.5,-1200"/>
+<text text-anchor="middle" x="639.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge67" class="edge">
-<title>module~s_symba_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M577.9,-1385.93C571.93,-1383.49 566.18,-1380.54 561,-1377 537.58,-1360.98 519.62,-1333.14 509.2,-1313.93"/>
-<polygon fill="#000000" stroke="#000000" points="512.29,-1312.29 504.57,-1305.03 506.08,-1315.52 512.29,-1312.29"/>
+<!-- module~s_whm_util&#45;&gt;module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge40" class="edge">
+<title>module~s_whm_util&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M606.29,-1184.22C591.51,-1181.3 574.35,-1176.13 561,-1167 522.7,-1140.81 545.28,-1079.58 499,-1083"/>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~symba_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge112" class="edge">
-<title>module~s_symba_fragmentation&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M497,-1587C455.96,-1569.95 423.17,-1527.63 406.19,-1501.91"/>
-<polygon fill="#000000" stroke="#000000" points="409,-1499.81 400.66,-1493.27 403.1,-1503.58 409,-1499.81"/>
-<path fill="none" stroke="#000000" d="M575.63,-1409.21C570.31,-1411.83 565.32,-1415.05 561,-1419 502.28,-1472.72 572.49,-1617.54 499,-1587"/>
+<!-- module~s_whm_util&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge62" class="edge">
+<title>module~s_whm_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.24,-1191.11C591.28,-1193.88 573.97,-1199.12 561,-1209 532.98,-1230.34 515.19,-1268.3 506.17,-1292.25"/>
+<polygon fill="#000000" stroke="#000000" points="502.81,-1291.27 502.74,-1301.87 509.4,-1293.63 502.81,-1291.27"/>
 </g>
-<!-- module~s_whm_kick -->
+<!-- module~s_helio_drift -->
 <g id="module~~swiftest_classes~~UsedByGraph_node43" class="node">
-<title>module~s_whm_kick</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node43"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="674.5,-780 604.5,-780 604.5,-756 674.5,-756 674.5,-780"/>
-<text text-anchor="middle" x="639.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
+<title>module~s_helio_drift</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node43"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="674.5,-1662 604.5,-1662 604.5,-1638 674.5,-1638 674.5,-1662"/>
+<text text-anchor="middle" x="639.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_kick&#45;&gt;module~whm_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge38" class="edge">
-<title>module~s_whm_kick&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M604.27,-774.63C576.13,-779.73 535.15,-786.33 499,-789"/>
+<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge66" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.21,-1648.64C588.97,-1646.25 572.03,-1640.83 561,-1629 521.03,-1586.11 504.88,-1401 500.4,-1336.37"/>
+<polygon fill="#000000" stroke="#000000" points="503.87,-1335.83 499.71,-1326.09 496.88,-1336.3 503.87,-1335.83"/>
 </g>
-<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge68" class="edge">
-<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.22,-768.95C588.79,-771.23 571.68,-776.68 561,-789 558.98,-791.32 513.28,-1173.37 501.66,-1270.66"/>
-<polygon fill="#000000" stroke="#000000" points="498.19,-1270.26 500.48,-1280.61 505.14,-1271.09 498.19,-1270.26"/>
+<!-- module~s_helio_drift&#45;&gt;module~helio_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge108" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M604.16,-1642.43C549.95,-1631.57 441.31,-1614.21 350,-1627 340.44,-1628.34 330.38,-1630.61 320.87,-1633.18"/>
+<polygon fill="#000000" stroke="#000000" points="319.87,-1629.83 311.21,-1635.94 321.79,-1636.56 319.87,-1629.83"/>
 </g>
-<!-- program~swiftest_driver -->
+<!-- proc~ge_wpp -->
 <g id="module~~swiftest_classes~~UsedByGraph_node44" class="node">
-<title>program~swiftest_driver</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node44"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="680,-1200 599,-1200 599,-1176 680,-1176 680,-1200"/>
-<text text-anchor="middle" x="639.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
+<title>proc~ge_wpp</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node44"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="666.5,-1410 612.5,-1410 612.5,-1386 666.5,-1386 666.5,-1410"/>
+<text text-anchor="middle" x="639.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge72" class="edge">
-<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M598.87,-1193.41C585.99,-1196.5 572.16,-1201.37 561,-1209 537.58,-1225.02 519.62,-1252.86 509.2,-1272.07"/>
-<polygon fill="#000000" stroke="#000000" points="506.08,-1270.48 504.57,-1280.97 512.29,-1273.71 506.08,-1270.48"/>
+<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge64" class="edge">
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.39,-1394.46C596.69,-1391.5 576.77,-1386.22 561,-1377 542.35,-1366.1 525.46,-1348.13 514.04,-1334.17"/>
+<polygon fill="#000000" stroke="#000000" points="516.61,-1331.78 507.66,-1326.1 511.11,-1336.11 516.61,-1331.78"/>
 </g>
-<!-- module~s_rmvs_kick -->
+<!-- module~s_symba_setup -->
 <g id="module~~swiftest_classes~~UsedByGraph_node45" class="node">
-<title>module~s_rmvs_kick</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node45"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="675,-948 604,-948 604,-924 675,-924 675,-948"/>
-<text text-anchor="middle" x="639.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
+<title>module~s_symba_setup</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node45"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="683.5,-1872 595.5,-1872 595.5,-1848 683.5,-1848 683.5,-1872"/>
+<text text-anchor="middle" x="639.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge73" class="edge">
-<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M603.75,-937.36C588.6,-939.77 571.86,-945.21 561,-957 539.5,-980.35 510.61,-1199.55 501.72,-1270.77"/>
-<polygon fill="#000000" stroke="#000000" points="498.22,-1270.52 500.47,-1280.88 505.17,-1271.38 498.22,-1270.52"/>
+<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge68" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.36,-1857.43C582.55,-1854.5 569.65,-1849.03 561,-1839 556.8,-1834.13 512.44,-1435.43 501.45,-1336.18"/>
+<polygon fill="#000000" stroke="#000000" points="504.91,-1335.63 500.33,-1326.08 497.95,-1336.4 504.91,-1335.63"/>
 </g>
-<!-- module~s_rmvs_kick&#45;&gt;module~rmvs_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge128" class="edge">
-<title>module~s_rmvs_kick&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M497,-1062C359.62,-1072.14 298.32,-1273.15 281.51,-1340.91"/>
-<polygon fill="#000000" stroke="#000000" points="278.03,-1340.4 279.11,-1350.94 284.84,-1342.03 278.03,-1340.4"/>
-<path fill="none" stroke="#000000" d="M603.92,-939.55C589.51,-942.43 573.31,-947.62 561,-957 517.89,-989.84 550.1,-1043.96 499,-1062"/>
+<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge117" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M597.94,-1872.03C562.73,-1881.42 514.95,-1891.29 499,-1881"/>
 </g>
-<!-- module~s_whm_step -->
+<!-- module~s_operator_cross -->
 <g id="module~~swiftest_classes~~UsedByGraph_node46" class="node">
-<title>module~s_whm_step</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node46"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="676,-738 603,-738 603,-714 676,-714 676,-738"/>
-<text text-anchor="middle" x="639.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
+<title>module~s_operator_cross</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node46"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="687.5,-1368 591.5,-1368 591.5,-1344 687.5,-1344 687.5,-1368"/>
+<text text-anchor="middle" x="639.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_step&#45;&gt;module~whm_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge42" class="edge">
-<title>module~s_whm_step&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M602.92,-733.03C589.44,-736.36 574.18,-740.96 561,-747 530.75,-760.88 532.19,-786.55 499,-789"/>
-</g>
-<!-- module~s_whm_step&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge74" class="edge">
-<title>module~s_whm_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.95,-727.07C587.83,-729.44 571.33,-734.92 561,-747 513.19,-802.89 533.37,-1002.93 525,-1076 516.84,-1147.17 506.58,-1231.4 501.75,-1270.71"/>
-<polygon fill="#000000" stroke="#000000" points="498.26,-1270.42 500.51,-1280.77 505.2,-1271.27 498.26,-1270.42"/>
+<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge67" class="edge">
+<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M592.06,-1343.92C581.79,-1341.11 571,-1338.05 561,-1335 552.48,-1332.41 543.37,-1329.43 534.83,-1326.56"/>
+<polygon fill="#000000" stroke="#000000" points="535.72,-1323.16 525.13,-1323.25 533.47,-1329.79 535.72,-1323.16"/>
 </g>
-<!-- module~s_helio_gr -->
+<!-- program~swiftest_driver -->
 <g id="module~~swiftest_classes~~UsedByGraph_node47" class="node">
-<title>module~s_helio_gr</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node47"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="670.5,-1872 608.5,-1872 608.5,-1848 670.5,-1848 670.5,-1872"/>
-<text text-anchor="middle" x="639.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
+<title>program~swiftest_driver</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node47"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="680,-1326 599,-1326 599,-1302 680,-1302 680,-1326"/>
+<text text-anchor="middle" x="639.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_gr&#45;&gt;module~helio_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge46" class="edge">
-<title>module~s_helio_gr&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M608.2,-1867.75C593.83,-1871.54 576.47,-1876.29 561,-1881 533.17,-1889.48 525.41,-1914.2 499,-1902"/>
-</g>
-<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge79" class="edge">
-<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.47,-1859.65C592,-1857.79 572.63,-1852.54 561,-1839 552.28,-1828.84 511.14,-1416.3 501.18,-1315.19"/>
-<polygon fill="#000000" stroke="#000000" points="504.65,-1314.78 500.19,-1305.17 497.69,-1315.47 504.65,-1314.78"/>
+<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge69" class="edge">
+<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M598.9,-1314C578.82,-1314 554.62,-1314 535.07,-1314"/>
+<polygon fill="#000000" stroke="#000000" points="535.03,-1310.5 525.03,-1314 535.03,-1317.5 535.03,-1310.5"/>
 </g>
-<!-- module~s_symba_drift -->
+<!-- module~s_whm_kick -->
 <g id="module~~swiftest_classes~~UsedByGraph_node48" class="node">
-<title>module~s_symba_drift</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node48"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="679,-1788 600,-1788 600,-1764 679,-1764 679,-1788"/>
-<text text-anchor="middle" x="639.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
+<title>module~s_whm_kick</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node48"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="674.5,-1158 604.5,-1158 604.5,-1134 674.5,-1134 674.5,-1158"/>
+<text text-anchor="middle" x="639.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge82" class="edge">
-<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.89,-1774.26C585.7,-1771.62 570.74,-1766.11 561,-1755 546.24,-1738.17 510.68,-1405.28 501.3,-1315.27"/>
-<polygon fill="#000000" stroke="#000000" points="504.78,-1314.9 500.27,-1305.32 497.82,-1315.62 504.78,-1314.9"/>
+<!-- module~s_whm_kick&#45;&gt;module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge42" class="edge">
+<title>module~s_whm_kick&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M604.46,-1139.35C590.62,-1135.99 574.68,-1131.28 561,-1125 530.75,-1111.12 532.19,-1080.55 499,-1083"/>
 </g>
-<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge118" class="edge">
-<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M599.89,-1772.85C586.21,-1769.98 571.59,-1764.69 561,-1755 502.28,-1701.28 572.49,-1617.54 499,-1587"/>
+<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge75" class="edge">
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.46,-1148.56C589.64,-1151.24 572.97,-1156.54 561,-1167 523.5,-1199.77 508.09,-1259.02 502.24,-1291.39"/>
+<polygon fill="#000000" stroke="#000000" points="498.73,-1291.2 500.55,-1301.63 505.63,-1292.34 498.73,-1291.2"/>
 </g>
-<!-- module~s_whm_setup -->
+<!-- module~s_helio_kick -->
 <g id="module~~swiftest_classes~~UsedByGraph_node49" class="node">
-<title>module~s_whm_setup</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node49"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="679,-696 600,-696 600,-672 679,-672 679,-696"/>
-<text text-anchor="middle" x="639.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
+<title>module~s_helio_kick</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node49"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="674.5,-2250 604.5,-2250 604.5,-2226 674.5,-2226 674.5,-2250"/>
+<text text-anchor="middle" x="639.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_setup&#45;&gt;module~whm_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge40" class="edge">
-<title>module~s_whm_setup&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M599.66,-689.22C586.56,-692.3 572.39,-697.21 561,-705 522.7,-731.19 545.28,-785.58 499,-789"/>
+<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge77" class="edge">
+<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.24,-2237.42C588.62,-2235.25 571.34,-2229.79 561,-2217 514.46,-2159.47 531.02,-1625.75 525,-1552 518.5,-1472.33 507.09,-1378.05 501.82,-1336.07"/>
+<polygon fill="#000000" stroke="#000000" points="505.29,-1335.6 500.56,-1326.11 498.34,-1336.47 505.29,-1335.6"/>
 </g>
-<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge83" class="edge">
-<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.68,-685.55C585.46,-688.17 570.54,-693.71 561,-705 507.55,-768.28 533.93,-993.65 525,-1076 517.28,-1147.22 506.8,-1231.42 501.84,-1270.72"/>
-<polygon fill="#000000" stroke="#000000" points="498.35,-1270.41 500.56,-1280.78 505.29,-1271.29 498.35,-1270.41"/>
+<!-- module~s_helio_kick&#45;&gt;module~helio_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge109" class="edge">
+<title>module~s_helio_kick&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M604.31,-2231.76C575.1,-2225.5 532.61,-2214.14 499,-2196"/>
 </g>
-<!-- module~s_helio_drift -->
+<!-- module~s_symba_collision -->
 <g id="module~~swiftest_classes~~UsedByGraph_node50" class="node">
-<title>module~s_helio_drift</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node50"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="674.5,-1830 604.5,-1830 604.5,-1806 674.5,-1806 674.5,-1830"/>
-<text text-anchor="middle" x="639.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
+<title>module~s_symba_collision</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node50"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="689,-1830 590,-1830 590,-1806 689,-1806 689,-1830"/>
+<text text-anchor="middle" x="639.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_drift&#45;&gt;module~helio_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge49" class="edge">
-<title>module~s_helio_drift&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M497,-1902C304.04,-1916.24 438.53,-1655.08 314,-1507 311.69,-1504.25 309.01,-1501.66 306.18,-1499.25"/>
-<polygon fill="#000000" stroke="#000000" points="308.04,-1496.26 297.96,-1493 303.8,-1501.84 308.04,-1496.26"/>
-<path fill="none" stroke="#000000" d="M604.16,-1823.24C590.11,-1826.39 574.12,-1831.33 561,-1839 527.08,-1858.83 534.66,-1918.47 499,-1902"/>
+<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge78" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M589.77,-1813.91C578.9,-1810.74 568.42,-1805.51 561,-1797 553.28,-1788.14 512.16,-1429.96 501.52,-1336.25"/>
+<polygon fill="#000000" stroke="#000000" points="504.98,-1335.71 500.37,-1326.17 498.02,-1336.5 504.98,-1335.71"/>
 </g>
-<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge88" class="edge">
-<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.22,-1817.05C588.79,-1814.77 571.68,-1809.32 561,-1797 544.92,-1778.46 509.9,-1410.82 501.06,-1315.45"/>
-<polygon fill="#000000" stroke="#000000" points="504.54,-1315.07 500.14,-1305.44 497.57,-1315.71 504.54,-1315.07"/>
+<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge120" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M589.67,-1828.59C579.96,-1831.42 570,-1834.87 561,-1839 530.75,-1852.88 526.97,-1899.04 499,-1881"/>
 </g>
-<!-- proc~solve_wbs -->
+<!-- module~s_symba_discard -->
 <g id="module~~swiftest_classes~~UsedByGraph_node51" class="node">
-<title>proc~solve_wbs</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node51"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="670.5,-1326 608.5,-1326 608.5,-1302 670.5,-1302 670.5,-1326"/>
-<text text-anchor="middle" x="639.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
+<title>module~s_symba_discard</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node51"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="687.5,-1788 591.5,-1788 591.5,-1764 687.5,-1764 687.5,-1788"/>
+<text text-anchor="middle" x="639.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
 </a>
 </g>
 </g>
-<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge90" class="edge">
-<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.23,-1309.44C586.83,-1306.22 558.03,-1301.89 535.38,-1298.48"/>
-<polygon fill="#000000" stroke="#000000" points="535.86,-1295.01 525.45,-1296.98 534.82,-1301.93 535.86,-1295.01"/>
+<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge79" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M591.45,-1772.3C580.02,-1769.19 568.84,-1763.89 561,-1755 546.91,-1739.03 511.14,-1423.85 501.45,-1336.36"/>
+<polygon fill="#000000" stroke="#000000" points="504.91,-1335.76 500.33,-1326.21 497.95,-1336.53 504.91,-1335.76"/>
 </g>
-<!-- module~s_whm_coord -->
+<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge119" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M591.22,-1783.44C580.68,-1786.52 569.98,-1790.86 561,-1797 522.7,-1823.19 537.99,-1906.15 499,-1881"/>
+</g>
+<!-- module~s_symba_util -->
 <g id="module~~swiftest_classes~~UsedByGraph_node52" class="node">
-<title>module~s_whm_coord</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node52"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="679,-654 600,-654 600,-630 679,-630 679,-654"/>
-<text text-anchor="middle" x="639.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
+<title>module~s_symba_util</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node52"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="677,-1746 602,-1746 602,-1722 677,-1722 677,-1746"/>
+<text text-anchor="middle" x="639.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_coord&#45;&gt;module~whm_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge36" class="edge">
-<title>module~s_whm_coord&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M599.62,-645.93C586.22,-648.89 571.87,-654.05 561,-663 512.83,-702.68 561.24,-784.41 499,-789"/>
-<path fill="none" stroke="#000000" d="M497,-789C231.43,-808.6 175.33,-1253.91 165.74,-1359.63"/>
-<polygon fill="#000000" stroke="#000000" points="162.24,-1359.54 164.87,-1369.8 169.21,-1360.14 162.24,-1359.54"/>
+<!-- module~s_symba_util&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge80" class="edge">
+<title>module~s_symba_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.61,-1732.45C586.97,-1729.91 571.23,-1724.42 561,-1713 535.6,-1684.62 508.65,-1416.91 501.08,-1336.64"/>
+<polygon fill="#000000" stroke="#000000" points="504.52,-1335.84 500.11,-1326.21 497.55,-1336.49 504.52,-1335.84"/>
 </g>
-<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge91" class="edge">
-<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.62,-643.51C585.4,-646.12 570.48,-651.67 561,-663 531.45,-698.33 529.74,-1030.18 525,-1076 517.63,-1147.26 506.99,-1231.44 501.91,-1270.73"/>
-<polygon fill="#000000" stroke="#000000" points="498.42,-1270.41 500.6,-1280.78 505.36,-1271.31 498.42,-1270.41"/>
+<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge122" class="edge">
+<title>module~s_symba_util&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M602,-1737.42C587.94,-1740.29 572.51,-1745.52 561,-1755 512.83,-1794.68 551.45,-1914.83 499,-1881"/>
 </g>
-<!-- module~s_symba_io -->
+<!-- module~s_rmvs_step -->
 <g id="module~~swiftest_classes~~UsedByGraph_node53" class="node">
+<title>module~s_rmvs_step</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node53"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="676,-1536 603,-1536 603,-1512 676,-1512 676,-1536"/>
+<text text-anchor="middle" x="639.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
+</a>
+</g>
+</g>
+<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge82" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.88,-1521.67C588.29,-1519.01 572.22,-1513.65 561,-1503 513.48,-1457.9 502.34,-1375.85 499.76,-1336.38"/>
+<polygon fill="#000000" stroke="#000000" points="503.25,-1336.03 499.23,-1326.23 496.26,-1336.4 503.25,-1336.03"/>
+</g>
+<!-- module~s_rmvs_step&#45;&gt;module~rmvs_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge130" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M602.87,-1533.16C589.67,-1536.68 574.6,-1540.86 561,-1545 533.17,-1553.48 527.79,-1561.82 499,-1566"/>
+</g>
+<!-- module~s_symba_io -->
+<g id="module~~swiftest_classes~~UsedByGraph_node54" class="node">
 <title>module~s_symba_io</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node53"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="674.5,-1746 604.5,-1746 604.5,-1722 674.5,-1722 674.5,-1746"/>
-<text text-anchor="middle" x="639.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node54"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="674.5,-1704 604.5,-1704 604.5,-1680 674.5,-1680 674.5,-1704"/>
+<text text-anchor="middle" x="639.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_io&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge93" class="edge">
+<g id="module~~swiftest_classes~~UsedByGraph_edge83" class="edge">
 <title>module~s_symba_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.35,-1732.93C588.95,-1730.63 571.83,-1725.19 561,-1713 534.26,-1682.91 508.01,-1398.32 500.88,-1315.51"/>
-<polygon fill="#000000" stroke="#000000" points="504.36,-1315.08 500.02,-1305.41 497.39,-1315.67 504.36,-1315.08"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.48,-1690.81C589.12,-1688.48 571.99,-1683.05 561,-1671 538.18,-1645.96 509.86,-1410.23 501.46,-1336.16"/>
+<polygon fill="#000000" stroke="#000000" points="504.92,-1335.63 500.32,-1326.08 497.96,-1336.41 504.92,-1335.63"/>
 </g>
 <!-- module~s_symba_io&#45;&gt;module~symba_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge111" class="edge">
+<g id="module~~swiftest_classes~~UsedByGraph_edge113" class="edge">
 <title>module~s_symba_io&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M604.35,-1731.04C589.68,-1728.28 573.16,-1723.02 561,-1713 512.83,-1673.32 556.63,-1610.95 499,-1587"/>
-</g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge33" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M236.78,-1369.49C228.51,-1370.91 219.66,-1372.43 211.08,-1373.91"/>
-<polygon fill="#000000" stroke="#000000" points="210.44,-1370.46 201.17,-1375.61 211.62,-1377.36 210.44,-1370.46"/>
+<path fill="none" stroke="#000000" d="M604.24,-1694.31C589.38,-1696.94 572.73,-1702.27 561,-1713 502.28,-1766.72 565.89,-1924.14 499,-1881"/>
+<path fill="none" stroke="#000000" d="M497,-1881C422.8,-1833.15 401.4,-1718.41 395.56,-1670.07"/>
+<polygon fill="#000000" stroke="#000000" points="399.03,-1669.61 394.46,-1660.05 392.07,-1670.37 399.03,-1669.61"/>
 </g>
-<!-- module~s_whm_util -->
+<!-- module~s_rmvs_util -->
 <g id="module~~swiftest_classes~~UsedByGraph_node55" class="node">
-<title>module~s_whm_util</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node55"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="672.5,-906 606.5,-906 606.5,-882 672.5,-882 672.5,-906"/>
-<text text-anchor="middle" x="639.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
+<title>module~s_rmvs_util</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node55"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="673,-1452 606,-1452 606,-1428 673,-1428 673,-1452"/>
+<text text-anchor="middle" x="639.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_util&#45;&gt;module~whm_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge37" class="edge">
-<title>module~s_whm_util&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M606.29,-890.22C591.51,-887.3 574.35,-882.13 561,-873 522.7,-846.81 545.28,-785.58 499,-789"/>
+<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge84" class="edge">
+<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.86,-1436.82C590.98,-1434.03 573.86,-1428.8 561,-1419 532.98,-1397.66 515.19,-1359.7 506.17,-1335.75"/>
+<polygon fill="#000000" stroke="#000000" points="509.4,-1334.37 502.74,-1326.13 502.81,-1336.73 509.4,-1334.37"/>
 </g>
-<!-- module~s_whm_util&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge96" class="edge">
-<title>module~s_whm_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.4,-894.86C590.53,-897.02 572.4,-902.38 561,-915 548.89,-928.41 512.66,-1191.44 501.99,-1270.63"/>
-<polygon fill="#000000" stroke="#000000" points="498.47,-1270.55 500.61,-1280.93 505.41,-1271.48 498.47,-1270.55"/>
+<!-- module~s_rmvs_util&#45;&gt;module~rmvs_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge125" class="edge">
+<title>module~s_rmvs_util&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M497,-1566C437.95,-1574.58 369.07,-1573.45 324.22,-1571.26"/>
+<polygon fill="#000000" stroke="#000000" points="324.36,-1567.76 314.19,-1570.73 323.99,-1574.75 324.36,-1567.76"/>
+<path fill="none" stroke="#000000" d="M605.86,-1443.18C590.98,-1445.97 573.86,-1451.2 561,-1461 517.89,-1493.84 552.39,-1556.69 499,-1566"/>
 </g>
-<!-- proc~ge_wpp -->
+<!-- module~whm_drift -->
 <g id="module~~swiftest_classes~~UsedByGraph_node56" class="node">
-<title>proc~ge_wpp</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node56"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="666.5,-1284 612.5,-1284 612.5,-1260 666.5,-1260 666.5,-1284"/>
-<text text-anchor="middle" x="639.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
+<title>module~whm_drift</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node56"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="669,-1116 610,-1116 610,-1092 669,-1092 669,-1116"/>
+<text text-anchor="middle" x="639.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
 </a>
 </g>
 </g>
-<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge98" class="edge">
-<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.26,-1275.95C590.54,-1279.22 559.43,-1283.9 535.32,-1287.53"/>
-<polygon fill="#000000" stroke="#000000" points="534.49,-1284.12 525.12,-1289.07 535.53,-1291.04 534.49,-1284.12"/>
+<!-- module~whm_drift&#45;&gt;module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge37" class="edge">
+<title>module~whm_drift&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M609.79,-1095.87C581.69,-1088.82 537.59,-1080.15 499,-1083"/>
 </g>
-<!-- module~s_rmvs_chk -->
+<!-- module~whm_drift&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge85" class="edge">
+<title>module~whm_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.83,-1105.24C593.62,-1107.39 574.04,-1112.62 561,-1125 513.48,-1170.1 502.34,-1252.15 499.76,-1291.62"/>
+<polygon fill="#000000" stroke="#000000" points="496.26,-1291.6 499.23,-1301.77 503.25,-1291.97 496.26,-1291.6"/>
+</g>
+<!-- module~s_whm_coord -->
 <g id="module~~swiftest_classes~~UsedByGraph_node57" class="node">
-<title>module~s_rmvs_chk</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node57"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="674.5,-1158 604.5,-1158 604.5,-1134 674.5,-1134 674.5,-1158"/>
-<text text-anchor="middle" x="639.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
+<title>module~s_whm_coord</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node57"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="679,-1074 600,-1074 600,-1050 679,-1050 679,-1074"/>
+<text text-anchor="middle" x="639.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge99" class="edge">
-<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.35,-1148.96C589.68,-1151.72 573.16,-1156.98 561,-1167 528.13,-1194.08 511.25,-1242.87 503.84,-1271.13"/>
-<polygon fill="#000000" stroke="#000000" points="500.44,-1270.33 501.45,-1280.87 507.24,-1271.99 500.44,-1270.33"/>
+<!-- module~s_whm_coord&#45;&gt;module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge38" class="edge">
+<title>module~s_whm_coord&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M599.89,-1069.42C571.99,-1074.39 533.32,-1080.47 499,-1083"/>
 </g>
-<!-- module~s_rmvs_chk&#45;&gt;module~rmvs_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge124" class="edge">
-<title>module~s_rmvs_chk&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M604.16,-1140.76C590.11,-1137.61 574.12,-1132.67 561,-1125 527.08,-1105.17 538.18,-1059.11 499,-1062"/>
+<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge86" class="edge">
+<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.81,-1064.56C585.95,-1067.35 571.24,-1072.74 561,-1083 503.29,-1140.85 497.67,-1246.25 498.15,-1291.92"/>
+<polygon fill="#000000" stroke="#000000" points="494.66,-1292.02 498.37,-1301.94 501.65,-1291.86 494.66,-1292.02"/>
 </g>
-<!-- module~s_rmvs_setup -->
+<!-- module~s_helio_gr -->
 <g id="module~~swiftest_classes~~UsedByGraph_node58" class="node">
-<title>module~s_rmvs_setup</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node58"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="679,-1116 600,-1116 600,-1092 679,-1092 679,-1116"/>
-<text text-anchor="middle" x="639.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
+<title>module~s_helio_gr</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node58"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="670.5,-2208 608.5,-2208 608.5,-2184 670.5,-2184 670.5,-2208"/>
+<text text-anchor="middle" x="639.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge101" class="edge">
-<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.89,-1107.15C586.21,-1110.02 571.59,-1115.31 561,-1125 518.38,-1163.99 504.97,-1234.86 500.82,-1270.81"/>
-<polygon fill="#000000" stroke="#000000" points="497.33,-1270.47 499.8,-1280.78 504.3,-1271.18 497.33,-1270.47"/>
+<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge89" class="edge">
+<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.19,-2195.89C591.62,-2194.1 572.25,-2188.85 561,-2175 517.3,-2121.17 530.77,-1621.1 525,-1552 518.35,-1472.34 507.02,-1378.05 501.79,-1336.07"/>
+<polygon fill="#000000" stroke="#000000" points="505.26,-1335.6 500.54,-1326.12 498.32,-1336.47 505.26,-1335.6"/>
 </g>
-<!-- module~s_rmvs_setup&#45;&gt;module~rmvs_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge125" class="edge">
-<title>module~s_rmvs_setup&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M599.73,-1094C587.31,-1090.66 573.54,-1086.82 561,-1083 533.17,-1074.52 528.01,-1059.86 499,-1062"/>
+<!-- module~s_helio_gr&#45;&gt;module~helio_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge110" class="edge">
+<title>module~s_helio_gr&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M608.47,-2203.82C578.78,-2209.84 532.99,-2214.35 499,-2196"/>
 </g>
-<!-- module~whm_drift -->
+<!-- module~s_symba_fragmentation -->
 <g id="module~~swiftest_classes~~UsedByGraph_node59" class="node">
-<title>module~whm_drift</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node59"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="669,-864 610,-864 610,-840 669,-840 669,-864"/>
-<text text-anchor="middle" x="639.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
+<title>module~s_symba_fragmentation</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node59"><a xlink:href=".././module/s_symba_fragmentation.html" xlink:title="s_symba_fragmentation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="703,-2082 576,-2082 576,-2058 703,-2058 703,-2082"/>
+<text text-anchor="middle" x="639.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_fragmentation</text>
 </a>
 </g>
 </g>
-<!-- module~whm_drift&#45;&gt;module~whm_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge39" class="edge">
-<title>module~whm_drift&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M609.73,-846.59C594.78,-843.19 576.46,-838.09 561,-831 530.75,-817.12 532.19,-786.55 499,-789"/>
+<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge94" class="edge">
+<title>module~s_symba_fragmentation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.84,-2060.78C570.19,-2057.8 565.08,-2053.95 561,-2049 525.79,-2006.27 530.01,-1607.14 525,-1552 517.77,-1472.39 506.73,-1378.08 501.68,-1336.08"/>
+<polygon fill="#000000" stroke="#000000" points="505.16,-1335.63 500.48,-1326.12 498.21,-1336.47 505.16,-1335.63"/>
 </g>
-<!-- module~whm_drift&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge102" class="edge">
-<title>module~whm_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M609.79,-852.37C593.14,-854.17 573.13,-859.35 561,-873 547.56,-888.13 511.54,-1186.46 501.58,-1270.9"/>
-<polygon fill="#000000" stroke="#000000" points="498.1,-1270.6 500.4,-1280.94 505.05,-1271.42 498.1,-1270.6"/>
+<!-- module~s_symba_fragmentation&#45;&gt;module~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge115" class="edge">
+<title>module~s_symba_fragmentation&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M575.63,-2058.79C570.31,-2056.17 565.32,-2052.95 561,-2049 502.28,-1995.28 565.89,-1924.14 499,-1881"/>
 </g>
-<!-- module~s_symba_setup -->
+<!-- module~s_whm_step -->
 <g id="module~~swiftest_classes~~UsedByGraph_node60" class="node">
-<title>module~s_symba_setup</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node60"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="683.5,-1704 595.5,-1704 595.5,-1680 683.5,-1680 683.5,-1704"/>
-<text text-anchor="middle" x="639.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
+<title>module~s_whm_step</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node60"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="676,-1032 603,-1032 603,-1008 676,-1008 676,-1032"/>
+<text text-anchor="middle" x="639.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge75" class="edge">
-<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.22,-1689.1C582.56,-1686.14 569.78,-1680.73 561,-1671 536.9,-1644.3 509.25,-1392.73 501.27,-1315.46"/>
-<polygon fill="#000000" stroke="#000000" points="504.73,-1314.97 500.23,-1305.37 497.77,-1315.68 504.73,-1314.97"/>
+<!-- module~s_whm_step&#45;&gt;module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge39" class="edge">
+<title>module~s_whm_step&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M602.92,-1027.03C589.44,-1030.36 574.18,-1034.96 561,-1041 530.75,-1054.88 532.19,-1080.55 499,-1083"/>
 </g>
-<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge114" class="edge">
-<title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M595.26,-1685.68C583.45,-1682.57 571.13,-1677.92 561,-1671 522.7,-1644.81 541.85,-1604.81 499,-1587"/>
+<!-- module~s_whm_step&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge95" class="edge">
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.78,-1021.77C587.99,-1024.31 571.81,-1029.73 561,-1041 526.15,-1077.32 507.1,-1233.61 501.1,-1291.94"/>
+<polygon fill="#000000" stroke="#000000" points="497.62,-1291.64 500.11,-1301.94 504.58,-1292.33 497.62,-1291.64"/>
 </g>
-<!-- module~s_whm_gr -->
+<!-- module~s_helio_coord -->
 <g id="module~~swiftest_classes~~UsedByGraph_node61" class="node">
-<title>module~s_whm_gr</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node61"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="670.5,-822 608.5,-822 608.5,-798 670.5,-798 670.5,-822"/>
-<text text-anchor="middle" x="639.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
+<title>module~s_helio_coord</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node61"><a xlink:href=".././module/s_helio_coord.html" xlink:title="s_helio_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="679,-2166 600,-2166 600,-2142 679,-2142 679,-2166"/>
+<text text-anchor="middle" x="639.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_gr&#45;&gt;module~whm_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge41" class="edge">
-<title>module~s_whm_gr&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M608.44,-801.54C580.29,-794.55 536.98,-786.2 499,-789"/>
+<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge96" class="edge">
+<title>module~s_helio_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.88,-2152.69C585.51,-2150.13 570.43,-2144.56 561,-2133 520.13,-2082.87 530.51,-1616.44 525,-1552 518.19,-1472.35 506.94,-1378.06 501.76,-1336.07"/>
+<polygon fill="#000000" stroke="#000000" points="505.23,-1335.61 500.53,-1326.12 498.28,-1336.47 505.23,-1335.61"/>
 </g>
-<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge104" class="edge">
-<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.19,-810.48C591.84,-812.42 572.67,-817.69 561,-831 553.61,-839.43 512.5,-1179.91 501.64,-1270.86"/>
-<polygon fill="#000000" stroke="#000000" points="498.15,-1270.55 500.44,-1280.89 505.1,-1271.38 498.15,-1270.55"/>
+<!-- module~s_helio_coord&#45;&gt;module~helio_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge107" class="edge">
+<title>module~s_helio_coord&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M599.73,-2164C587.31,-2167.34 573.54,-2171.18 561,-2175 533.17,-2183.48 524.6,-2209.82 499,-2196"/>
 </g>
-<!-- module~s_symba_kick -->
+<!-- module~s_rmvs_setup -->
 <g id="module~~swiftest_classes~~UsedByGraph_node62" class="node">
-<title>module~s_symba_kick</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node62"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="679,-1662 600,-1662 600,-1638 679,-1638 679,-1662"/>
-<text text-anchor="middle" x="639.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
+<title>module~s_rmvs_setup</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node62"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="679,-1242 600,-1242 600,-1218 679,-1218 679,-1242"/>
+<text text-anchor="middle" x="639.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge105" class="edge">
-<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.77,-1647.94C585.74,-1645.23 570.92,-1639.77 561,-1629 518.45,-1582.81 503.87,-1383.15 500.1,-1315.51"/>
-<polygon fill="#000000" stroke="#000000" points="503.58,-1314.95 499.55,-1305.15 496.59,-1315.32 503.58,-1314.95"/>
-</g>
-<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge116" class="edge">
-<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M599.78,-1642.18C587.1,-1638.93 573.16,-1634.58 561,-1629 530.75,-1615.12 529.73,-1599.77 499,-1587"/>
+<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge98" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.85,-1236.25C586.92,-1239.41 572.79,-1244.11 561,-1251 542.35,-1261.9 525.46,-1279.87 514.04,-1293.83"/>
+<polygon fill="#000000" stroke="#000000" points="511.11,-1291.89 507.66,-1301.9 516.61,-1296.22 511.11,-1291.89"/>
 </g>
-<!-- module~s_rmvs_step -->
+<!-- module~s_rmvs_setup&#45;&gt;module~rmvs_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge128" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M599.87,-1236.87C563.3,-1245.01 508.55,-1261.63 471,-1293 380.31,-1368.76 311.6,-1496.27 286.68,-1546.62"/>
+<polygon fill="#000000" stroke="#000000" points="283.4,-1545.37 282.16,-1555.89 289.69,-1548.43 283.4,-1545.37"/>
+</g>
+<!-- module~s_whm_setup -->
 <g id="module~~swiftest_classes~~UsedByGraph_node63" class="node">
-<title>module~s_rmvs_step</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node63"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="676,-1074 603,-1074 603,-1050 676,-1050 676,-1074"/>
-<text text-anchor="middle" x="639.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
+<title>module~s_whm_setup</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node63"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="679,-990 600,-990 600,-966 679,-966 679,-990"/>
+<text text-anchor="middle" x="639.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge80" class="edge">
-<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.72,-1064.17C588.1,-1066.8 572.06,-1072.18 561,-1083 508.48,-1134.35 499.92,-1227.83 498.88,-1270.58"/>
-<polygon fill="#000000" stroke="#000000" points="495.38,-1270.72 498.76,-1280.76 502.38,-1270.8 495.38,-1270.72"/>
+<!-- module~s_whm_setup&#45;&gt;module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge41" class="edge">
+<title>module~s_whm_setup&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M599.66,-983.22C586.56,-986.3 572.39,-991.21 561,-999 522.7,-1025.19 545.28,-1079.58 499,-1083"/>
 </g>
-<!-- module~s_rmvs_step&#45;&gt;module~rmvs_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge127" class="edge">
-<title>module~s_rmvs_step&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M602.9,-1060.56C574.68,-1059.76 534.26,-1059.4 499,-1062"/>
+<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge99" class="edge">
+<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.83,-980.12C585.81,-982.84 570.98,-988.29 561,-999 540.8,-1020.68 511.37,-1223.71 501.99,-1291.84"/>
+<polygon fill="#000000" stroke="#000000" points="498.5,-1291.52 500.62,-1301.91 505.44,-1292.47 498.5,-1291.52"/>
 </g>
-<!-- module~s_symba_encounter_check -->
+<!-- module~s_symba_step -->
 <g id="module~~swiftest_classes~~UsedByGraph_node64" class="node">
-<title>module~s_symba_encounter_check</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node64"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="711,-1620 568,-1620 568,-1596 711,-1596 711,-1620"/>
-<text text-anchor="middle" x="639.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
+<title>module~s_symba_step</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node64"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="680.5,-2040 598.5,-2040 598.5,-2016 680.5,-2016 680.5,-2040"/>
+<text text-anchor="middle" x="639.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge107" class="edge">
-<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.44,-1596C568.23,-1593.52 564.35,-1590.55 561,-1587 523.65,-1547.47 506.01,-1377.28 500.75,-1315.51"/>
-<polygon fill="#000000" stroke="#000000" points="504.22,-1314.97 499.91,-1305.29 497.24,-1315.54 504.22,-1314.97"/>
+<!-- module~s_symba_step&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge101" class="edge">
+<title>module~s_symba_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M598.37,-2026.3C584.5,-2023.61 570.17,-2018.05 561,-2007 528.62,-1967.97 529.75,-1602.49 525,-1552 517.51,-1472.42 506.6,-1378.09 501.64,-1336.08"/>
+<polygon fill="#000000" stroke="#000000" points="505.11,-1335.64 500.45,-1326.12 498.16,-1336.47 505.11,-1335.64"/>
 </g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge113" class="edge">
-<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M567.87,-1604.12C545.24,-1601.12 520.49,-1595.93 499,-1587"/>
+<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge121" class="edge">
+<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M598.43,-2023.8C585.37,-2020.8 571.54,-2015.69 561,-2007 512.83,-1967.32 551.45,-1914.83 499,-1881"/>
 </g>
-<!-- module~s_symba_util -->
+<!-- module~s_helio_step -->
 <g id="module~~swiftest_classes~~UsedByGraph_node65" class="node">
-<title>module~s_symba_util</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node65"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="677,-1578 602,-1578 602,-1554 677,-1554 677,-1578"/>
-<text text-anchor="middle" x="639.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
+<title>module~s_helio_step</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node65"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="676,-2124 603,-2124 603,-2100 676,-2100 676,-2124"/>
+<text text-anchor="middle" x="639.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_util&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge108" class="edge">
-<title>module~s_symba_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.69,-1563.93C587.24,-1561.29 571.62,-1555.87 561,-1545 528.75,-1511.98 508.41,-1370.4 501.57,-1315.18"/>
-<polygon fill="#000000" stroke="#000000" points="505.02,-1314.57 500.35,-1305.06 498.07,-1315.41 505.02,-1314.57"/>
+<!-- module~s_helio_step&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge102" class="edge">
+<title>module~s_helio_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.71,-2111.13C587.54,-2108.8 571.07,-2103.29 561,-2091 522.96,-2044.57 530.26,-1611.79 525,-1552 517.99,-1472.37 506.84,-1378.07 501.73,-1336.08"/>
+<polygon fill="#000000" stroke="#000000" points="505.2,-1335.62 500.51,-1326.12 498.25,-1336.47 505.2,-1335.62"/>
 </g>
-<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge119" class="edge">
-<title>module~s_symba_util&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M601.99,-1575.82C567.06,-1584.44 517.09,-1594.52 499,-1587"/>
+<!-- module~s_helio_step&#45;&gt;module~helio_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge111" class="edge">
+<title>module~s_helio_step&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M603,-2117.5C589.24,-2120.66 573.76,-2125.54 561,-2133 527.08,-2152.83 538.18,-2193.11 499,-2196"/>
+<path fill="none" stroke="#000000" d="M497,-2196C251.82,-2214.09 462.95,-1869.58 314,-1674 311.98,-1671.35 309.62,-1668.87 307.08,-1666.58"/>
+<polygon fill="#000000" stroke="#000000" points="309.1,-1663.72 299.08,-1660.27 304.76,-1669.21 309.1,-1663.72"/>
 </g>
-<!-- module~s_symba_step -->
+<!-- module~s_whm_gr -->
 <g id="module~~swiftest_classes~~UsedByGraph_node66" class="node">
-<title>module~s_symba_step</title>
-<g id="a_module~~swiftest_classes~~UsedByGraph_node66"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="680.5,-1536 598.5,-1536 598.5,-1512 680.5,-1512 680.5,-1536"/>
-<text text-anchor="middle" x="639.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
+<title>module~s_whm_gr</title>
+<g id="a_module~~swiftest_classes~~UsedByGraph_node66"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="670.5,-948 608.5,-948 608.5,-924 670.5,-924 670.5,-948"/>
+<text text-anchor="middle" x="639.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge109" class="edge">
-<title>module~s_symba_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M598.34,-1520.97C584.97,-1518.08 570.97,-1512.75 561,-1503 508.48,-1451.65 499.92,-1358.17 498.88,-1315.42"/>
-<polygon fill="#000000" stroke="#000000" points="502.38,-1315.2 498.76,-1305.24 495.38,-1315.28 502.38,-1315.2"/>
+<!-- module~s_whm_gr&#45;&gt;module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge43" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M608.2,-938.29C592.64,-940.82 574.23,-946.1 561,-957 512.83,-996.68 561.24,-1078.41 499,-1083"/>
+<path fill="none" stroke="#000000" d="M497,-1083C277.89,-1099.17 188.77,-1434.78 168.62,-1525.54"/>
+<polygon fill="#000000" stroke="#000000" points="165.15,-1525.07 166.46,-1535.58 171.99,-1526.54 165.15,-1525.07"/>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
-<g id="module~~swiftest_classes~~UsedByGraph_edge120" class="edge">
-<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M598.19,-1532.23C585.95,-1535.44 572.66,-1539.65 561,-1545 530.75,-1558.88 529.73,-1599.77 499,-1587"/>
+<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge104" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.38,-936.66C592.09,-938.64 572.93,-943.92 561,-957 538.18,-982.04 509.86,-1217.77 501.46,-1291.84"/>
+<polygon fill="#000000" stroke="#000000" points="497.96,-1291.59 500.32,-1301.92 504.92,-1292.37 497.96,-1291.59"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~swiftest_classes~~UsedByGraph_edge36" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M236.78,-1561.17C228.51,-1559.68 219.66,-1558.07 211.08,-1556.52"/>
+<polygon fill="#000000" stroke="#000000" points="211.64,-1553.07 201.17,-1554.73 210.39,-1559.95 211.64,-1553.07"/>
 </g>
 </g>
 </svg>
@@ -2249,11 +2274,9 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_minimize_bfgs">util_minimize_bfgs</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_peri_tp">util_peri_tp</a>
-      
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_solve_linear_system">util_solve_linear_system</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_rescale_system">util_rescale_system</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_solve_rkf45">util_solve_rkf45</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_peri_tp">util_peri_tp</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_resize~2">util_resize</a>
       
@@ -2281,6 +2304,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_set_rhill_approximate">util_set_rhill_approximate</a>
       
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_solve_linear_system">util_solve_linear_system</a>
+      
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_solve_rkf45">util_solve_rkf45</a>
+      
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_sort">util_sort</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_sort_rearrange_body">util_sort_rearrange_body</a>
@@ -2305,7 +2332,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_spill_tp">util_spill_tp</a>
       
-      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_valid">util_valid</a>
+      <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_valid_id_system">util_valid_id_system</a>
       
       <a class="list-group-item" href="../module/swiftest_classes.html#interface-util_version">util_version</a>
       
@@ -3419,7 +3446,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -3434,7 +3461,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -3449,7 +3476,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>family</strong></td><td></td>
+  <td><strong>family</strong></td><td><p>Index of bodies involved in the collision</p></td>
   
 </tr>
 
@@ -3464,7 +3491,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td></td>
+  <td><strong>x</strong></td><td><p>Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</p></td>
   
 </tr>
 
@@ -3479,7 +3506,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td></td>
+  <td><strong>v</strong></td><td><p>Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</p></td>
   
 </tr>
 
@@ -3494,7 +3521,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td></td>
+  <td><strong>L_spin</strong></td><td><p>Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</p></td>
   
 </tr>
 
@@ -3509,7 +3536,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td></td>
+  <td><strong>Ip</strong></td><td><p>Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</p></td>
   
 </tr>
 
@@ -3524,7 +3551,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td></td>
+  <td><strong>mass</strong></td><td><p>Two-body equivalent mass and radii for the bodies in the collision</p></td>
   
 </tr>
 
@@ -3539,7 +3566,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td></td>
+  <td><strong>radius</strong></td><td><p>Two-body equivalent mass and radii for the bodies in the collision</p></td>
   
 </tr>
 
@@ -3554,7 +3581,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>nfrag</strong></td><td></td>
+  <td><strong>nfrag</strong></td><td><p>Number of fragments to generate</p></td>
   
 </tr>
 
@@ -3569,7 +3596,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>Ip_frag</strong></td><td></td>
+  <td><strong>Ip_frag</strong></td><td><p>Fragment rotational inertia vectors</p></td>
   
 </tr>
 
@@ -3584,7 +3611,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>m_frag</strong></td><td></td>
+  <td><strong>m_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
   
 </tr>
 
@@ -3599,7 +3626,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>rad_frag</strong></td><td></td>
+  <td><strong>rad_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
   
 </tr>
 
@@ -3614,7 +3641,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xb_frag</strong></td><td></td>
+  <td><strong>xb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
   
 </tr>
 
@@ -3629,7 +3656,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vb_frag</strong></td><td></td>
+  <td><strong>vb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
   
 </tr>
 
@@ -3644,7 +3671,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>rot_frag</strong></td><td></td>
+  <td><strong>rot_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
   
 </tr>
 
@@ -3659,7 +3686,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td></td>
+  <td><strong>Qloss</strong></td><td><p>Energy lost during the collision</p></td>
   
 </tr>
 
@@ -3674,7 +3701,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>lfailure</strong></td><td></td>
+  <td><strong>lfailure</strong></td><td><p>Answers the question: Should this have been a merger instead?</p></td>
   
 </tr>
 
@@ -3961,7 +3988,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td><p>The residual energy after the collision </p></td>
+  <td><strong>Qloss</strong></td><td><p>Energy lost during the collision</p></td>
   
 </tr>
 
@@ -4893,7 +4920,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -4945,21 +4972,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -4985,7 +4997,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine io_dump_system(self, param, msg)
+public module subroutine io_dump_system(self, param)
     
     
    
@@ -5037,21 +5049,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -8523,7 +8520,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public subroutine util_append_arr_char_string(arr, source, lsource_mask)
+public subroutine util_append_arr_char_string(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -8577,11 +8574,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -8601,7 +8628,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public subroutine util_append_arr_DP(arr, source, lsource_mask)
+public subroutine util_append_arr_DP(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -8655,11 +8682,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -8679,7 +8736,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public subroutine util_append_arr_DPvec(arr, source, lsource_mask)
+public subroutine util_append_arr_DPvec(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -8733,11 +8790,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -8757,7 +8844,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public subroutine util_append_arr_I4B(arr, source, lsource_mask)
+public subroutine util_append_arr_I4B(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -8811,11 +8898,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -8835,7 +8952,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public subroutine util_append_arr_logical(arr, source, lsource_mask)
+public subroutine util_append_arr_logical(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -8861,12 +8978,42 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Destination array </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>source</strong></td><td><p>Array to append </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>arr</strong></td><td><p>Destination array </p></td>
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
   
 </tr>
 
@@ -8876,12 +9023,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>source</strong></td><td><p>Array to append </p></td>
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
   
 </tr>
 
@@ -8893,7 +9040,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -8987,7 +9134,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -9079,7 +9226,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -9171,7 +9318,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -10452,7 +10599,7 @@ <h4>Return Value <small>real(kind=DP),
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_peri_tp"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_rescale_system"></span><h3>interface 
     
   </h3></div>
   
@@ -10462,11 +10609,11 @@ <h4>Return Value <small>real(kind=DP),
     
     
     <h3>
-public module subroutine util_peri_tp(self, system, param)
+public module subroutine util_rescale_system(self, param, mscale, dscale, tscale)
     
     
    
-   <a href='../proc/util_peri_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_rescale_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -10488,21 +10635,6 @@ <h4>Arguments</h4>
   
   
   
-<tr>
-  
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
@@ -10510,7 +10642,7 @@ <h4>Arguments</h4>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -10521,72 +10653,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(in)</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
-  
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_solve_linear_system"></span><h3>public interface <a href='../interface/util_solve_linear_system.html'>util_solve_linear_system</a>
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
-  
-    <li class="list-group-item">
-    
-    
-    <h3>
-public function util_solve_linear_system_d(A, b, n, lerr) result(x)
-    
-    
-   
-</h3>
-    
-    
-    <h4>Arguments</h4>
-    
-      
-      
-<table class="table table-striped varlist">
-<thead><tr><th>Type</th>
-<th>Intent</th><th>Optional</th>
-<th>Attributes</th><th></th><th>Name</th><th></th></thead>
-
-
-
-<tbody>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>A</strong></td><td></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters. Returns with new values of the scale vactors and GU</p></td>
   
 </tr>
 
@@ -10597,113 +10668,11 @@ <h4>Arguments</h4>
 <tr>
   
   <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>b</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>n</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>lerr</strong></td><td></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-  
-  
-  
-  
-     <h4>Return Value <small>real(kind=DP),
-  dimension(n)</small></h4>
-  
-    
-
-    </li>
-  
-    <li class="list-group-item">
-    
-    
-    <h3>
-public function util_solve_linear_system_q(A, b, n, lerr) result(x)
-    
-    
-   
-</h3>
-    
-    
-    <h4>Arguments</h4>
-    
-      
-      
-<table class="table table-striped varlist">
-<thead><tr><th>Type</th>
-<th>Intent</th><th>Optional</th>
-<th>Attributes</th><th></th><th>Name</th><th></th></thead>
-
-
-
-<tbody>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=QP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:,:)</td><td>::</td>
-  <td><strong>A</strong></td><td></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=QP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>b</strong></td><td></td>
+  <td><strong>mscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
   
 </tr>
 
@@ -10713,12 +10682,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>n</strong></td><td></td>
+  <td><strong>dscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
   
 </tr>
 
@@ -10728,12 +10697,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>logical,</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>lerr</strong></td><td></td>
+  <td><strong>tscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
   
 </tr>
 
@@ -10744,26 +10713,15 @@ <h4>Arguments</h4>
     
     
 
-  
-  
-  
-  
-     <h4>Return Value <small>real(kind=QP),
-  dimension(n)</small></h4>
-  
-    
-
     </li>
   
-  
-  
   </ul>
 </div>
 
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_solve_rkf45"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_peri_tp"></span><h3>interface 
     
   </h3></div>
   
@@ -10773,11 +10731,11 @@ <h4>Return Value <small>real(kind=QP),
     
     
     <h3>
-public module function util_solve_rkf45(f, y0in, t1, dt0, tol) result(y1)
+public module subroutine util_peri_tp(self, system, param)
     
     
    
-   <a href='../proc/util_solve_rkf45.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_peri_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -10793,37 +10751,7 @@ <h4>Arguments</h4>
 
 
 
-<tbody>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>class(lambda_obj),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>f</strong></td><td><p>lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in),</td>
-  <td></td>
-  
-  <td>dimension(:)</td><td>::</td>
-  <td><strong>y0in</strong></td><td><p>Initial value at t=0</p></td>
-  
-</tr>
+<tbody>
 
   
   
@@ -10831,12 +10759,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>t1</strong></td><td><p>Final time</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
   
 </tr>
 
@@ -10846,12 +10774,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>dt0</strong></td><td><p>Initial step size guess</p></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -10861,12 +10789,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>tol</strong></td><td><p>Tolerance on solution</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -10877,15 +10805,6 @@ <h4>Arguments</h4>
     
     
 
-  
-  
-  
-  
-     <h4>Return Value <small>real(kind=DP),
-  dimension(:), allocatable</small></h4>
-  <p>Final result</p>
-    
-
     </li>
   
   </ul>
@@ -11792,7 +11711,223 @@ <h3>
     
     
    
-   <a href='../proc/util_set_msys.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_msys.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest system object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_mu_pl"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine util_set_mu_pl(self, cb)
+    
+    
+   
+   <a href='../proc/util_set_mu_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_mu_tp"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine util_set_mu_tp(self, cb)
+    
+    
+   
+   <a href='../proc/util_set_mu_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+    </li>
+  
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_rhill"></span><h3>interface 
+    
+  </h3></div>
+  
+  <ul class="list-group">
+  
+    <li class="list-group-item">
+    
+    
+    <h3>
+public module subroutine util_set_rhill(self, cb)
+    
+    
+   
+   <a href='../proc/util_set_rhill.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -11816,12 +11951,27 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest system object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
   
 </tr>
 
@@ -11840,7 +11990,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_mu_pl"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_rhill_approximate"></span><h3>interface 
     
   </h3></div>
   
@@ -11850,11 +12000,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_set_mu_pl(self, cb)
+public module subroutine util_set_rhill_approximate(self, cb)
     
     
    
-   <a href='../proc/util_set_mu_pl.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_set_rhill_approximate.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -11917,22 +12067,21 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_mu_tp"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_solve_linear_system"></span><h3>public interface <a href='../interface/util_solve_linear_system.html'>util_solve_linear_system</a>
     
   </h3></div>
   
   <ul class="list-group">
   
+  
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine util_set_mu_tp(self, cb)
+public function util_solve_linear_system_d(A, b, n, lerr) result(x)
     
     
    
-   <a href='../proc/util_set_mu_tp.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -11955,12 +12104,42 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>A</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>b</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest test particle object</p></td>
+  <td><strong>n</strong></td><td></td>
   
 </tr>
 
@@ -11970,12 +12149,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>lerr</strong></td><td></td>
   
 </tr>
 
@@ -11986,30 +12165,25 @@ <h4>Arguments</h4>
     
     
 
-    </li>
   
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_rhill"></span><h3>interface 
-    
-  </h3></div>
   
-  <ul class="list-group">
+  
+  
+     <h4>Return Value <small>real(kind=DP),
+  dimension(n)</small></h4>
+  
+    
+
+    </li>
   
     <li class="list-group-item">
     
     
     <h3>
-public module subroutine util_set_rhill(self, cb)
+public function util_solve_linear_system_q(A, b, n, lerr) result(x)
     
     
    
-   <a href='../proc/util_set_rhill.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
 </h3>
     
     
@@ -12032,12 +12206,42 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>real(kind=QP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>A</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=QP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>b</strong></td><td></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
+  <td><strong>n</strong></td><td></td>
   
 </tr>
 
@@ -12047,12 +12251,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>logical,</td>
+  <td>intent(out)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>lerr</strong></td><td></td>
   
 </tr>
 
@@ -12063,15 +12267,26 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>real(kind=QP),
+  dimension(n)</small></h4>
+  
+    
+
     </li>
   
+  
+  
   </ul>
 </div>
 
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_set_rhill_approximate"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_solve_rkf45"></span><h3>interface 
     
   </h3></div>
   
@@ -12081,11 +12296,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_set_rhill_approximate(self, cb)
+public module function util_solve_rkf45(f, y0in, t1, dt0, tol) result(y1)
     
     
    
-   <a href='../proc/util_set_rhill_approximate.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_solve_rkf45.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -12109,12 +12324,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" ></span>class(lambda_obj),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest massive body object</p></td>
+  <td><strong>f</strong></td><td><p>lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set</p></td>
   
 </tr>
 
@@ -12124,12 +12339,57 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_cb.html'>swiftest_cb</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>y0in</strong></td><td><p>Initial value at t=0</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>cb</strong></td><td><p>Swiftest central body object</p></td>
+  <td><strong>t1</strong></td><td><p>Final time</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dt0</strong></td><td><p>Initial step size guess</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>tol</strong></td><td><p>Tolerance on solution</p></td>
   
 </tr>
 
@@ -12140,6 +12400,15 @@ <h4>Arguments</h4>
     
     
 
+  
+  
+  
+  
+     <h4>Return Value <small>real(kind=DP),
+  dimension(:), allocatable</small></h4>
+  <p>Final result</p>
+    
+
     </li>
   
   </ul>
@@ -13911,7 +14180,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-util_valid"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-util_valid_id_system"></span><h3>interface 
     
   </h3></div>
   
@@ -13921,11 +14190,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine util_valid(pl, tp)
+public module subroutine util_valid_id_system(self, param)
     
     
    
-   <a href='../proc/util_valid.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/util_valid_id_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -13949,12 +14218,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>pl</strong></td><td></td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -13964,12 +14233,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>tp</strong></td><td></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -15410,11 +15679,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ennergy_out"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-energy_out"></span>character(len=STRMAX),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>ennergy_out</strong></td><td> =</td><td>""</td><td><p>Name of output energy and momentum report file</p></td>
+  <td><strong>energy_out</strong></td><td> =</td><td>""</td><td><p>Name of output energy and momentum report file</p></td>
   
 </tr>
 
@@ -15716,6 +15985,20 @@ <h4>Components</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-lrestart"></span>logical,</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>lrestart</strong></td><td> =</td><td>.false.</td><td><p>Indicates whether or not this is a restarted run</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-lgr"></span>logical,</td>
@@ -15835,13 +16118,13 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_swiftest </td>
        <td></td></tr>
       
-       <tr><td>procedure(abstract_initialize), public :: <strong><a href='../type/swiftest_base.html#boundprocedure-initialize~7'>initialize</a></strong>  </td>
+       <tr><td>procedure(abstract_initialize), public :: <strong><a href='../type/swiftest_base.html#boundprocedure-initialize~6'>initialize</a></strong>  </td>
        <td></td></tr>
       
-       <tr><td>procedure(abstract_read_frame), public :: <strong><a href='../type/swiftest_base.html#boundprocedure-read_frame~5'>read_frame</a></strong>  </td>
+       <tr><td>procedure(abstract_read_frame), public :: <strong><a href='../type/swiftest_base.html#boundprocedure-read_frame~4'>read_frame</a></strong>  </td>
        <td></td></tr>
       
-       <tr><td>procedure(abstract_write_frame), public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame~5'>write_frame</a></strong>  </td>
+       <tr><td>procedure(abstract_write_frame), public :: <strong><a href='../type/swiftest_base.html#boundprocedure-write_frame~4'>write_frame</a></strong>  </td>
        <td></td></tr>
       
        </tbody>
@@ -17992,6 +18275,20 @@ <h4>Components</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-pl_discards"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  
+  <td>public,</td>
+  <td>allocatable</td><td>::</td>
+  <td><strong>pl_discards</strong></td><td></td><td></td><td><p>Discarded massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-gmtot"></span>real(kind=DP),</td>
@@ -18204,7 +18501,7 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-write_frame'>write_frame</a></strong>  => io_write_frame_system </td>
        <td><p>Append a frame of output data to file</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-initialize~8'>initialize</a></strong>  => setup_initialize_system </td>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-initialize~7'>initialize</a></strong>  => setup_initialize_system </td>
        <td><p>Initialize the system from input files</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-step_spin'>step_spin</a></strong>  => tides_step_spin_system </td>
@@ -18216,6 +18513,12 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-get_energy_and_momentum'>get_energy_and_momentum</a></strong>  => util_get_energy_momentum_system </td>
        <td><p>Calculates the total system energy and momentum</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-rescale'>rescale</a></strong>  => util_rescale_system </td>
+       <td><p>Rescales the system into a new set of units</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-validate_ids'>validate_ids</a></strong>  => util_valid_id_system </td>
+       <td><p>Validate the numerical ids passed to the system and save the maximum value</p></td></tr>
+      
        </tbody>
        </table>
      
diff --git a/docs/module/swiftest_operators.html b/docs/module/swiftest_operators.html
index 90a7de127..f2f60621a 100644
--- a/docs/module/swiftest_operators.html
+++ b/docs/module/swiftest_operators.html
@@ -381,952 +381,967 @@ <h3 class="panel-title">Used by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~swiftest_operators~~UsedByGraph Pages: 1 -->
-<svg id="moduleswiftest_operatorsUsedByGraph" width="428pt" height="2510pt"
- viewBox="0.00 0.00 428.00 2510.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~swiftest_operators~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2506)">
+<svg id="moduleswiftest_operatorsUsedByGraph" width="428pt" height="2552pt"
+ viewBox="0.00 0.00 428.00 2552.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~swiftest_operators~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2548)">
 <title>module~~swiftest_operators~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2506 424,-2506 424,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2548 424,-2548 424,4 -4,4"/>
 <!-- module~swiftest_operators -->
 <g id="module~~swiftest_operators~~UsedByGraph_node1" class="node">
 <title>module~swiftest_operators</title>
-<polygon fill="none" stroke="black" points="100,-1284 0,-1284 0,-1260 100,-1260 100,-1284"/>
-<text text-anchor="middle" x="50" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_operators</text>
+<polygon fill="none" stroke="black" points="100,-1305 0,-1305 0,-1281 100,-1281 100,-1305"/>
+<text text-anchor="middle" x="50" y="-1290.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_operators</text>
 </g>
 <!-- module~s_operator_cross -->
 <g id="module~~swiftest_operators~~UsedByGraph_node2" class="node">
 <title>module~s_operator_cross</title>
 <g id="a_module~~swiftest_operators~~UsedByGraph_node2"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="389.5,-2502 293.5,-2502 293.5,-2478 389.5,-2478 389.5,-2502"/>
-<text text-anchor="middle" x="341.5" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="389.5,-2544 293.5,-2544 293.5,-2520 389.5,-2520 389.5,-2544"/>
+<text text-anchor="middle" x="341.5" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
 </a>
 </g>
 </g>
 <!-- module~s_operator_cross&#45;&gt;module~swiftest_operators -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge2" class="edge">
 <title>module~s_operator_cross&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" d="M293.26,-2486C281.96,-2482.87 270.9,-2477.64 263,-2469 96.95,-2287.42 57.51,-1443.55 51.8,-1294.52"/>
-<polygon fill="#000000" stroke="#000000" points="55.29,-1294.17 51.42,-1284.31 48.29,-1294.43 55.29,-1294.17"/>
+<path fill="none" stroke="#000000" d="M293.24,-2528.02C281.95,-2524.89 270.89,-2519.65 263,-2511 94.23,-2325.89 56.98,-1465.74 51.72,-1315.44"/>
+<polygon fill="#000000" stroke="#000000" points="55.21,-1315.04 51.37,-1305.16 48.21,-1315.27 55.21,-1315.04"/>
 </g>
 <!-- module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_node4" class="node">
+<g id="module~~swiftest_operators~~UsedByGraph_node3" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node4"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="208.5,-1284 154.5,-1284 154.5,-1260 208.5,-1260 208.5,-1284"/>
-<text text-anchor="middle" x="181.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="208.5,-1305 154.5,-1305 154.5,-1281 208.5,-1281 208.5,-1305"/>
+<text text-anchor="middle" x="181.5" y="-1290.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_operator_cross&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge15" class="edge">
+<g id="module~~swiftest_operators~~UsedByGraph_edge27" class="edge">
 <title>module~s_operator_cross&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M293.38,-2486.81C281.81,-2483.71 270.58,-2478.29 263,-2469 222.06,-2418.78 231.34,-1951.64 227,-1887 211.46,-1655.4 190.32,-1374.91 184.21,-1294.52"/>
-<polygon fill="#000000" stroke="#000000" points="187.67,-1293.84 183.43,-1284.13 180.69,-1294.37 187.67,-1293.84"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M293.38,-2528.82C281.8,-2525.72 270.57,-2520.3 263,-2511 221.32,-2459.81 231.34,-1983.87 227,-1918 211.45,-1682.15 190.24,-1396.42 184.18,-1315.38"/>
+<polygon fill="#000000" stroke="#000000" points="187.66,-1315.04 183.43,-1305.33 180.68,-1315.57 187.66,-1315.04"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge1" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M154.29,-1293C141.56,-1293 125.7,-1293 110.27,-1293"/>
+<polygon fill="#000000" stroke="#000000" points="110.22,-1289.5 100.22,-1293 110.22,-1296.5 110.22,-1289.5"/>
 </g>
 <!-- module~s_operator_mag -->
-<g id="module~~swiftest_operators~~UsedByGraph_node3" class="node">
+<g id="module~~swiftest_operators~~UsedByGraph_node4" class="node">
 <title>module~s_operator_mag</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node3"><a xlink:href=".././module/s_operator_mag.html" xlink:title="s_operator_mag">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="227,-1242 136,-1242 136,-1218 227,-1218 227,-1242"/>
-<text text-anchor="middle" x="181.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_mag</text>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node4"><a xlink:href=".././module/s_operator_mag.html" xlink:title="s_operator_mag">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="227,-1263 136,-1263 136,-1239 227,-1239 227,-1263"/>
+<text text-anchor="middle" x="181.5" y="-1248.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_mag</text>
 </a>
 </g>
 </g>
 <!-- module~s_operator_mag&#45;&gt;module~swiftest_operators -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge3" class="edge">
 <title>module~s_operator_mag&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" d="M143.39,-1242.04C129.17,-1246.65 112.75,-1251.97 97.74,-1256.84"/>
-<polygon fill="#000000" stroke="#000000" points="96.55,-1253.55 88.11,-1259.96 98.71,-1260.21 96.55,-1253.55"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge1" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M154.29,-1272C141.56,-1272 125.7,-1272 110.27,-1272"/>
-<polygon fill="#000000" stroke="#000000" points="110.22,-1268.5 100.22,-1272 110.22,-1275.5 110.22,-1268.5"/>
+<path fill="none" stroke="#000000" d="M143.39,-1263.04C129.17,-1267.65 112.75,-1272.97 97.74,-1277.84"/>
+<polygon fill="#000000" stroke="#000000" points="96.55,-1274.55 88.11,-1280.96 98.71,-1281.21 96.55,-1274.55"/>
 </g>
-<!-- module~s_obl -->
+<!-- module~s_setup -->
 <g id="module~~swiftest_operators~~UsedByGraph_node5" class="node">
-<title>module~s_obl</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node5"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-2460 314.5,-2460 314.5,-2436 368.5,-2436 368.5,-2460"/>
-<text text-anchor="middle" x="341.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
+<title>module~s_setup</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node5"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-2502 314.5,-2502 314.5,-2478 368.5,-2478 368.5,-2502"/>
+<text text-anchor="middle" x="341.5" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_obl&#45;&gt;module~swiftest -->
+<!-- module~s_setup&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge4" class="edge">
-<title>module~s_obl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.43,-2448.24C297.07,-2446.89 275.28,-2441.99 263,-2427 224.89,-2380.48 231.17,-1946.99 227,-1887 210.9,-1655.44 190.15,-1374.93 184.18,-1294.52"/>
-<polygon fill="#000000" stroke="#000000" points="187.64,-1293.85 183.4,-1284.14 180.65,-1294.37 187.64,-1293.85"/>
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.42,-2490.25C297.06,-2488.9 275.27,-2484 263,-2469 224.15,-2421.51 231.18,-1979.21 227,-1918 210.9,-1682.19 190.07,-1396.43 184.14,-1315.38"/>
+<polygon fill="#000000" stroke="#000000" points="187.63,-1315.05 183.41,-1305.33 180.64,-1315.56 187.63,-1315.05"/>
 </g>
-<!-- module~s_util_solve -->
+<!-- module~drift_implementation -->
 <g id="module~~swiftest_operators~~UsedByGraph_node6" class="node">
-<title>module~s_util_solve</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node6"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="375.5,-2418 307.5,-2418 307.5,-2394 375.5,-2394 375.5,-2418"/>
-<text text-anchor="middle" x="341.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
+<title>module~drift_implementation</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node6"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="396,-2460 287,-2460 287,-2436 396,-2436 396,-2460"/>
+<text text-anchor="middle" x="341.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<!-- module~drift_implementation&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge5" class="edge">
-<title>module~s_util_solve&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.13,-2405.45C291.33,-2403.33 273.64,-2397.91 263,-2385 227.72,-2342.18 231,-1942.33 227,-1887 210.26,-1655.48 189.95,-1374.94 184.13,-1294.52"/>
-<polygon fill="#000000" stroke="#000000" points="187.59,-1293.86 183.38,-1284.14 180.61,-1294.36 187.59,-1293.86"/>
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.64,-2442.65C277.56,-2439.38 269.11,-2434.43 263,-2427 226.98,-2383.21 231.01,-1974.55 227,-1918 210.27,-1682.23 189.88,-1396.44 184.1,-1315.39"/>
+<polygon fill="#000000" stroke="#000000" points="187.58,-1315.06 183.38,-1305.34 180.6,-1315.56 187.58,-1315.06"/>
 </g>
-<!-- module~s_util_spill -->
+<!-- module~s_rmvs_kick -->
 <g id="module~~swiftest_operators~~UsedByGraph_node7" class="node">
-<title>module~s_util_spill</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node7"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="372,-2376 311,-2376 311,-2352 372,-2352 372,-2376"/>
-<text text-anchor="middle" x="341.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node7"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="377,-2418 306,-2418 306,-2394 377,-2394 377,-2418"/>
+<text text-anchor="middle" x="341.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_spill&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge6" class="edge">
-<title>module~s_util_spill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.66,-2363.86C294.04,-2362.09 274.46,-2356.86 263,-2343 260.83,-2340.37 195.43,-1448.5 184.15,-1294.51"/>
-<polygon fill="#000000" stroke="#000000" points="187.63,-1294.08 183.4,-1284.37 180.64,-1294.59 187.63,-1294.08"/>
+<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge7" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.95,-2405.28C290.46,-2403.05 273.38,-2397.58 263,-2385 260.79,-2382.32 195.28,-1471.07 184.11,-1315.47"/>
+<polygon fill="#000000" stroke="#000000" points="187.58,-1314.96 183.38,-1305.23 180.6,-1315.46 187.58,-1314.96"/>
 </g>
-<!-- module~s_helio_kick -->
+<!-- module~s_symba_encounter_check -->
 <g id="module~~swiftest_operators~~UsedByGraph_node8" class="node">
-<title>module~s_helio_kick</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node8"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="376.5,-2334 306.5,-2334 306.5,-2310 376.5,-2310 376.5,-2334"/>
-<text text-anchor="middle" x="341.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
+<title>module~s_symba_encounter_check</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node8"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="413,-2376 270,-2376 270,-2352 413,-2352 413,-2376"/>
+<text text-anchor="middle" x="341.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge7" class="edge">
-<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.37,-2321.31C290.78,-2319.12 273.5,-2313.66 263,-2301 254.66,-2290.94 194.6,-1443.75 184.07,-1294.37"/>
-<polygon fill="#000000" stroke="#000000" points="187.55,-1293.87 183.35,-1284.14 180.56,-1294.37 187.55,-1293.87"/>
+<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge6" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.86,-2351.8C269.19,-2349.34 265.84,-2346.44 263,-2343 258.74,-2337.86 195.19,-1467.34 184.13,-1315.47"/>
+<polygon fill="#000000" stroke="#000000" points="187.6,-1314.81 183.38,-1305.09 180.61,-1315.32 187.6,-1314.81"/>
 </g>
-<!-- module~s_util_append -->
+<!-- module~s_rmvs_chk -->
 <g id="module~~swiftest_operators~~UsedByGraph_node9" class="node">
-<title>module~s_util_append</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node9"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-2292 302,-2292 302,-2268 381,-2268 381,-2292"/>
-<text text-anchor="middle" x="341.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
+<title>module~s_rmvs_chk</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node9"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="376.5,-2334 306.5,-2334 306.5,-2310 376.5,-2310 376.5,-2334"/>
+<text text-anchor="middle" x="341.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_append&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge8" class="edge">
-<title>module~s_util_append&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.99,-2278.59C287.64,-2276.02 272.54,-2270.47 263,-2259 255,-2249.38 194.91,-1440.13 184.15,-1294.36"/>
-<polygon fill="#000000" stroke="#000000" points="187.64,-1294.06 183.41,-1284.35 180.65,-1294.58 187.64,-1294.06"/>
+<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.38,-2321.3C290.79,-2319.11 273.51,-2313.66 263,-2301 254.83,-2291.16 194.76,-1462.98 184.11,-1315.38"/>
+<polygon fill="#000000" stroke="#000000" points="187.59,-1314.97 183.38,-1305.25 180.61,-1315.48 187.59,-1314.97"/>
 </g>
-<!-- module~s_discard -->
+<!-- module~s_util_get_energy_momentum -->
 <g id="module~~swiftest_operators~~UsedByGraph_node10" class="node">
-<title>module~s_discard</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node10"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="370.5,-2250 312.5,-2250 312.5,-2226 370.5,-2226 370.5,-2250"/>
-<text text-anchor="middle" x="341.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node10"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="420,-2292 263,-2292 263,-2268 420,-2268 420,-2292"/>
+<text text-anchor="middle" x="341.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
 </a>
 </g>
 </g>
-<!-- module~s_discard&#45;&gt;module~swiftest -->
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge9" class="edge">
-<title>module~s_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312.25,-2237.97C295.34,-2236.35 274.88,-2231.23 263,-2217 247.67,-2198.64 193.81,-1434.46 184.03,-1294.05"/>
-<polygon fill="#000000" stroke="#000000" points="187.52,-1293.77 183.33,-1284.04 180.53,-1294.26 187.52,-1293.77"/>
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.89,-2267.77C269.21,-2265.33 265.86,-2262.43 263,-2259 247.35,-2240.22 193.75,-1459.07 184.02,-1315.53"/>
+<polygon fill="#000000" stroke="#000000" points="187.5,-1315.05 183.33,-1305.3 180.51,-1315.52 187.5,-1315.05"/>
 </g>
-<!-- module~drift_implementation -->
+<!-- module~s_util_coord -->
 <g id="module~~swiftest_operators~~UsedByGraph_node11" class="node">
-<title>module~drift_implementation</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node11"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="396,-2208 287,-2208 287,-2184 396,-2184 396,-2208"/>
-<text text-anchor="middle" x="341.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
+<title>module~s_util_coord</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node11"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="376.5,-2250 306.5,-2250 306.5,-2226 376.5,-2226 376.5,-2250"/>
+<text text-anchor="middle" x="341.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
 </a>
 </g>
 </g>
-<!-- module~drift_implementation&#45;&gt;module~swiftest -->
+<!-- module~s_util_coord&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge10" class="edge">
-<title>module~drift_implementation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.75,-2190.56C277.66,-2187.3 269.18,-2182.37 263,-2175 248.36,-2157.53 194.26,-1431.76 184.14,-1294.33"/>
-<polygon fill="#000000" stroke="#000000" points="187.61,-1293.88 183.39,-1284.16 180.63,-1294.39 187.61,-1293.88"/>
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.42,-2237.27C290.84,-2235.07 273.55,-2229.62 263,-2217 248.02,-2199.09 194.09,-1454.91 184.1,-1315.41"/>
+<polygon fill="#000000" stroke="#000000" points="187.57,-1314.83 183.36,-1305.11 180.58,-1315.33 187.57,-1314.83"/>
 </g>
-<!-- module~s_whm_gr -->
+<!-- module~s_util_set -->
 <g id="module~~swiftest_operators~~UsedByGraph_node12" class="node">
-<title>module~s_whm_gr</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node12"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="372.5,-2166 310.5,-2166 310.5,-2142 372.5,-2142 372.5,-2166"/>
-<text text-anchor="middle" x="341.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
+<title>module~s_util_set</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node12"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="370.5,-2208 312.5,-2208 312.5,-2184 370.5,-2184 370.5,-2208"/>
+<text text-anchor="middle" x="341.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge58" class="edge">
-<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.37,-2153.74C293.87,-2151.9 274.49,-2146.65 263,-2133 235.11,-2099.87 192.09,-1426.79 183.88,-1294.47"/>
-<polygon fill="#000000" stroke="#000000" points="187.36,-1294.07 183.25,-1284.31 180.37,-1294.5 187.36,-1294.07"/>
+<!-- module~s_util_set&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge11" class="edge">
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312.28,-2195.95C295.38,-2194.31 274.92,-2189.2 263,-2175 234.44,-2141 191.87,-1450.11 183.83,-1315.59"/>
+<polygon fill="#000000" stroke="#000000" points="187.31,-1315.05 183.22,-1305.27 180.32,-1315.46 187.31,-1315.05"/>
 </g>
-<!-- module~s_helio_step -->
+<!-- module~s_symba_drift -->
 <g id="module~~swiftest_operators~~UsedByGraph_node13" class="node">
-<title>module~s_helio_step</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node13"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="378,-2124 305,-2124 305,-2100 378,-2100 378,-2124"/>
-<text text-anchor="middle" x="341.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
+<title>module~s_symba_drift</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node13"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-2166 302,-2166 302,-2142 381,-2142 381,-2166"/>
+<text text-anchor="middle" x="341.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_step&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge11" class="edge">
-<title>module~s_helio_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M304.89,-2110.98C289.75,-2108.62 273.26,-2103.13 263,-2091 236.44,-2059.6 192.52,-1421.88 183.97,-1294.16"/>
-<polygon fill="#000000" stroke="#000000" points="187.45,-1293.76 183.29,-1284.02 180.46,-1294.23 187.45,-1293.76"/>
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge12" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.67,-2152.45C287.45,-2149.83 272.53,-2144.29 263,-2133 235.77,-2100.73 192.3,-1445.34 183.92,-1315.31"/>
+<polygon fill="#000000" stroke="#000000" points="187.39,-1314.76 183.26,-1305.01 180.41,-1315.21 187.39,-1314.76"/>
 </g>
-<!-- module~s_helio_coord -->
+<!-- module~s_util_rescale -->
 <g id="module~~swiftest_operators~~UsedByGraph_node14" class="node">
-<title>module~s_helio_coord</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node14"><a xlink:href=".././module/s_helio_coord.html" xlink:title="s_helio_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-2082 302,-2082 302,-2058 381,-2058 381,-2082"/>
-<text text-anchor="middle" x="341.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_coord</text>
+<title>module~s_util_rescale</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node14"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="380.5,-2124 302.5,-2124 302.5,-2100 380.5,-2100 380.5,-2124"/>
+<text text-anchor="middle" x="341.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_rescale</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge12" class="edge">
-<title>module~s_helio_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.72,-2068.41C287.5,-2065.79 272.57,-2060.26 263,-2049 237.79,-2019.35 193.05,-1417.97 184.09,-1294.17"/>
-<polygon fill="#000000" stroke="#000000" points="187.57,-1293.72 183.36,-1284 180.58,-1294.23 187.57,-1293.72"/>
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge13" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.1,-2110.5C287.77,-2107.91 272.65,-2102.38 263,-2091 237.13,-2060.49 192.83,-1441.6 184.04,-1315.36"/>
+<polygon fill="#000000" stroke="#000000" points="187.51,-1314.75 183.32,-1305.01 180.52,-1315.23 187.51,-1314.75"/>
 </g>
-<!-- module~s_rmvs_util -->
+<!-- module~s_util_version -->
 <g id="module~~swiftest_operators~~UsedByGraph_node15" class="node">
-<title>module~s_rmvs_util</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node15"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="375,-2040 308,-2040 308,-2016 375,-2016 375,-2040"/>
-<text text-anchor="middle" x="341.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
+<title>module~s_util_version</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node15"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="380.5,-2082 302.5,-2082 302.5,-2058 380.5,-2058 380.5,-2082"/>
+<text text-anchor="middle" x="341.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge13" class="edge">
-<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.72,-2027.33C291.88,-2025.21 273.96,-2019.82 263,-2007 215.46,-1951.42 188.76,-1412.25 183.48,-1294.6"/>
-<polygon fill="#000000" stroke="#000000" points="186.96,-1294.12 183.02,-1284.28 179.97,-1294.42 186.96,-1294.12"/>
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge14" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.14,-2068.47C287.81,-2065.88 272.68,-2060.35 263,-2049 214.05,-1991.6 188.33,-1433.76 183.39,-1315.12"/>
+<polygon fill="#000000" stroke="#000000" points="186.88,-1314.88 182.97,-1305.04 179.88,-1315.17 186.88,-1314.88"/>
 </g>
-<!-- module~s_util_resize -->
+<!-- module~s_util_minimize_bfgs -->
 <g id="module~~swiftest_operators~~UsedByGraph_node16" class="node">
-<title>module~s_util_resize</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node16"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="377.5,-1998 305.5,-1998 305.5,-1974 377.5,-1974 377.5,-1998"/>
-<text text-anchor="middle" x="341.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node16"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="397.5,-2040 285.5,-2040 285.5,-2016 397.5,-2016 397.5,-2040"/>
+<text text-anchor="middle" x="341.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_resize&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge14" class="edge">
-<title>module~s_util_resize&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.39,-1984.96C290.16,-1982.62 273.46,-1977.15 263,-1965 218.11,-1912.87 189.49,-1407.44 183.62,-1294.36"/>
-<polygon fill="#000000" stroke="#000000" points="187.11,-1293.94 183.1,-1284.14 180.12,-1294.3 187.11,-1293.94"/>
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge15" class="edge">
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.31,-2021.86C276.8,-2018.61 268.9,-2013.88 263,-2007 216.76,-1953.12 189.1,-1430.37 183.54,-1315.32"/>
+<polygon fill="#000000" stroke="#000000" points="187.03,-1315.04 183.06,-1305.21 180.04,-1315.37 187.03,-1315.04"/>
 </g>
-<!-- module~s_user_kick_getacch -->
+<!-- module~s_rmvs_discard -->
 <g id="module~~swiftest_operators~~UsedByGraph_node17" class="node">
-<title>module~s_user_kick_getacch</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node17"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="397.5,-1956 285.5,-1956 285.5,-1932 397.5,-1932 397.5,-1956"/>
-<text text-anchor="middle" x="341.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
+<title>module~s_rmvs_discard</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node17"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="385.5,-1998 297.5,-1998 297.5,-1974 385.5,-1974 385.5,-1998"/>
+<text text-anchor="middle" x="341.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge16" class="edge">
-<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.37,-1937.8C276.86,-1934.57 268.94,-1929.84 263,-1923 179.11,-1826.3 180.48,-1397.36 182.06,-1294.31"/>
-<polygon fill="#000000" stroke="#000000" points="185.56,-1294.19 182.23,-1284.13 178.56,-1294.07 185.56,-1294.19"/>
+<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M297.37,-1983.42C284.56,-1980.49 271.66,-1975.02 263,-1965 219.41,-1914.56 189.84,-1425.39 183.69,-1315.04"/>
+<polygon fill="#000000" stroke="#000000" points="187.18,-1314.84 183.14,-1305.04 180.19,-1315.22 187.18,-1314.84"/>
 </g>
-<!-- module~s_symba_collision -->
+<!-- proc~solve_wbs -->
 <g id="module~~swiftest_operators~~UsedByGraph_node18" class="node">
-<title>module~s_symba_collision</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node18"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="391,-1914 292,-1914 292,-1890 391,-1890 391,-1914"/>
-<text text-anchor="middle" x="341.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
+<title>proc~solve_wbs</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node18"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="372.5,-1956 310.5,-1956 310.5,-1932 372.5,-1932 372.5,-1956"/>
+<text text-anchor="middle" x="341.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge60" class="edge">
-<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.79,-1897.89C280.92,-1894.72 270.44,-1889.5 263,-1881 184.39,-1791.16 181.71,-1392.72 182.27,-1294.12"/>
-<polygon fill="#000000" stroke="#000000" points="185.77,-1294.12 182.35,-1284.09 178.77,-1294.07 185.77,-1294.12"/>
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge17" class="edge">
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.15,-1943.55C293.79,-1941.62 274.63,-1936.35 263,-1923 181.84,-1829.83 181.09,-1416.96 182.16,-1315.55"/>
+<polygon fill="#000000" stroke="#000000" points="185.66,-1315.29 182.29,-1305.25 178.66,-1315.21 185.66,-1315.29"/>
 </g>
-<!-- module~s_eucl -->
+<!-- module~s_gr -->
 <g id="module~~swiftest_operators~~UsedByGraph_node19" class="node">
-<title>module~s_eucl</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node19"><a xlink:href=".././module/s_eucl.html" xlink:title="s_eucl">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-1872 314.5,-1872 314.5,-1848 368.5,-1848 368.5,-1872"/>
-<text text-anchor="middle" x="341.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_eucl</text>
+<title>module~s_gr</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node19"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-1914 314.5,-1914 314.5,-1890 368.5,-1890 368.5,-1914"/>
+<text text-anchor="middle" x="341.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_eucl&#45;&gt;module~swiftest -->
+<!-- module~s_gr&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge18" class="edge">
-<title>module~s_eucl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.4,-1859.92C297.26,-1858.39 275.74,-1853.42 263,-1839 189.78,-1756.12 183.03,-1389.13 182.51,-1294.38"/>
-<polygon fill="#000000" stroke="#000000" points="186.01,-1294.2 182.48,-1284.22 179.01,-1294.23 186.01,-1294.2"/>
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.38,-1901.94C297.23,-1900.42 275.7,-1895.45 263,-1881 187.09,-1794.65 182.35,-1412.02 182.39,-1315.28"/>
+<polygon fill="#000000" stroke="#000000" points="185.89,-1315.18 182.41,-1305.17 178.89,-1315.16 185.89,-1315.18"/>
 </g>
-<!-- module~s_rmvs_discard -->
+<!-- module~s_kick -->
 <g id="module~~swiftest_operators~~UsedByGraph_node20" class="node">
-<title>module~s_rmvs_discard</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node20"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="385.5,-1830 297.5,-1830 297.5,-1806 385.5,-1806 385.5,-1830"/>
-<text text-anchor="middle" x="341.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
+<title>module~s_kick</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node20"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-1872 314.5,-1872 314.5,-1848 368.5,-1848 368.5,-1872"/>
+<text text-anchor="middle" x="341.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
+<!-- module~s_kick&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge19" class="edge">
-<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M297.16,-1815.15C284.5,-1812.2 271.73,-1806.77 263,-1797 195.1,-1721 184.44,-1384.82 182.79,-1294.44"/>
-<polygon fill="#000000" stroke="#000000" points="186.29,-1294.17 182.63,-1284.23 179.29,-1294.29 186.29,-1294.17"/>
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.42,-1859.9C297.3,-1858.36 275.78,-1853.38 263,-1839 192.45,-1759.57 183.72,-1408.07 182.65,-1315.44"/>
+<polygon fill="#000000" stroke="#000000" points="186.15,-1315.2 182.55,-1305.24 179.15,-1315.27 186.15,-1315.2"/>
 </g>
-<!-- module~s_util_coord -->
+<!-- module~s_util_resize -->
 <g id="module~~swiftest_operators~~UsedByGraph_node21" class="node">
-<title>module~s_util_coord</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node21"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="376.5,-1788 306.5,-1788 306.5,-1764 376.5,-1764 376.5,-1788"/>
-<text text-anchor="middle" x="341.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
+<title>module~s_util_resize</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node21"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="377.5,-1830 305.5,-1830 305.5,-1806 377.5,-1806 377.5,-1830"/>
+<text text-anchor="middle" x="341.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<!-- module~s_util_resize&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge20" class="edge">
-<title>module~s_util_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.45,-1774.84C291.07,-1772.52 273.95,-1767.09 263,-1755 200.35,-1685.79 185.95,-1379.8 183.12,-1294.28"/>
-<polygon fill="#000000" stroke="#000000" points="186.61,-1294.02 182.8,-1284.13 179.62,-1294.23 186.61,-1294.02"/>
+<title>module~s_util_resize&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.22,-1816.69C290.16,-1814.27 273.62,-1808.82 263,-1797 197.73,-1724.4 185.18,-1403.4 182.95,-1315.39"/>
+<polygon fill="#000000" stroke="#000000" points="186.45,-1315.11 182.71,-1305.2 179.45,-1315.27 186.45,-1315.11"/>
 </g>
-<!-- module~s_symba_fragmentation -->
+<!-- module~s_symba_kick -->
 <g id="module~~swiftest_operators~~UsedByGraph_node22" class="node">
-<title>module~s_symba_fragmentation</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node22"><a xlink:href=".././module/s_symba_fragmentation.html" xlink:title="s_symba_fragmentation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="405,-1746 278,-1746 278,-1722 405,-1722 405,-1746"/>
-<text text-anchor="middle" x="341.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_fragmentation</text>
+<title>module~s_symba_kick</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node22"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-1788 302,-1788 302,-1764 381,-1764 381,-1788"/>
+<text text-anchor="middle" x="341.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
+<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge21" class="edge">
-<title>module~s_symba_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M277.99,-1724.13C272.39,-1721.26 267.25,-1717.62 263,-1713 205.65,-1650.62 187.62,-1375.28 183.51,-1294.41"/>
-<polygon fill="#000000" stroke="#000000" points="187,-1294.15 183.02,-1284.33 180.01,-1294.49 187,-1294.15"/>
+<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.71,-1773.99C287.67,-1771.29 272.86,-1765.82 263,-1755 202.95,-1689.14 186.73,-1398.02 183.3,-1315.11"/>
+<polygon fill="#000000" stroke="#000000" points="186.79,-1314.89 182.9,-1305.03 179.8,-1315.16 186.79,-1314.89"/>
 </g>
-<!-- module~s_whm_kick -->
+<!-- module~s_whm_util -->
 <g id="module~~swiftest_operators~~UsedByGraph_node23" class="node">
-<title>module~s_whm_kick</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node23"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="376.5,-1704 306.5,-1704 306.5,-1680 376.5,-1680 376.5,-1704"/>
-<text text-anchor="middle" x="341.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
+<title>module~s_whm_util</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node23"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="374.5,-1746 308.5,-1746 308.5,-1722 374.5,-1722 374.5,-1746"/>
+<text text-anchor="middle" x="341.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
+<!-- module~s_whm_util&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge22" class="edge">
-<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.23,-1690.62C291,-1688.22 274.05,-1682.8 263,-1671 210.97,-1615.44 189.5,-1370.81 184,-1294.69"/>
-<polygon fill="#000000" stroke="#000000" points="187.47,-1294.08 183.28,-1284.35 180.49,-1294.57 187.47,-1294.08"/>
+<title>module~s_whm_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M308.14,-1732.96C292.41,-1730.74 274.47,-1725.37 263,-1713 208.26,-1653.98 188.5,-1393.62 183.73,-1315.34"/>
+<polygon fill="#000000" stroke="#000000" points="187.21,-1314.93 183.14,-1305.16 180.23,-1315.34 187.21,-1314.93"/>
 </g>
-<!-- module~s_util_valid -->
+<!-- module~s_util_spill -->
 <g id="module~~swiftest_operators~~UsedByGraph_node24" class="node">
-<title>module~s_util_valid</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node24"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="374,-1662 309,-1662 309,-1638 374,-1638 374,-1662"/>
-<text text-anchor="middle" x="341.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
+<title>module~s_util_spill</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node24"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="372,-1704 311,-1704 311,-1680 372,-1680 372,-1704"/>
+<text text-anchor="middle" x="341.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_valid&#45;&gt;module~swiftest -->
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge23" class="edge">
-<title>module~s_util_valid&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M308.7,-1648.86C292.92,-1646.63 274.77,-1641.28 263,-1629 216.06,-1580.01 191.41,-1364.28 184.53,-1294.13"/>
-<polygon fill="#000000" stroke="#000000" points="188.02,-1293.79 183.58,-1284.17 181.05,-1294.45 188.02,-1293.79"/>
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.95,-1691.22C294.64,-1689.21 275.27,-1683.96 263,-1671 213.52,-1618.74 190.44,-1388.63 184.26,-1315.44"/>
+<polygon fill="#000000" stroke="#000000" points="187.72,-1314.77 183.41,-1305.09 180.74,-1315.34 187.72,-1314.77"/>
 </g>
-<!-- module~s_util_set -->
+<!-- proc~ge_wpp -->
 <g id="module~~swiftest_operators~~UsedByGraph_node25" class="node">
-<title>module~s_util_set</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node25"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="370.5,-1620 312.5,-1620 312.5,-1596 370.5,-1596 370.5,-1620"/>
-<text text-anchor="middle" x="341.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
+<title>proc~ge_wpp</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node25"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="368.5,-1662 314.5,-1662 314.5,-1638 368.5,-1638 368.5,-1662"/>
+<text text-anchor="middle" x="341.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_set&#45;&gt;module~swiftest -->
+<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge24" class="edge">
-<title>module~s_util_set&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312.28,-1607.17C295.81,-1605.2 275.82,-1600.01 263,-1587 221.32,-1544.72 193.78,-1359.21 185.29,-1294.43"/>
-<polygon fill="#000000" stroke="#000000" points="188.71,-1293.59 183.97,-1284.12 181.77,-1294.48 188.71,-1293.59"/>
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.45,-1649.49C297.56,-1647.75 276.3,-1642.7 263,-1629 218.67,-1583.34 192.52,-1382.54 184.87,-1315.14"/>
+<polygon fill="#000000" stroke="#000000" points="188.35,-1314.73 183.77,-1305.18 181.39,-1315.5 188.35,-1314.73"/>
 </g>
-<!-- module~s_util_exit -->
+<!-- module~s_orbel -->
 <g id="module~~swiftest_operators~~UsedByGraph_node26" class="node">
-<title>module~s_util_exit</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node26"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="371.5,-1578 311.5,-1578 311.5,-1554 371.5,-1554 371.5,-1578"/>
-<text text-anchor="middle" x="341.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
+<title>module~s_orbel</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node26"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-1620 314.5,-1620 314.5,-1596 368.5,-1596 368.5,-1620"/>
+<text text-anchor="middle" x="341.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest -->
+<!-- module~s_orbel&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge25" class="edge">
-<title>module~s_util_exit&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.32,-1564.86C295.13,-1562.73 275.76,-1557.48 263,-1545 191.75,-1475.31 182.8,-1345.96 182.21,-1294.23"/>
-<polygon fill="#000000" stroke="#000000" points="185.71,-1294.14 182.2,-1284.15 178.71,-1294.16 185.71,-1294.14"/>
+<title>module~s_orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.23,-1607.31C297.46,-1605.48 276.42,-1600.39 263,-1587 186.74,-1510.94 180.86,-1370 181.65,-1315.41"/>
+<polygon fill="#000000" stroke="#000000" points="185.15,-1315.21 181.9,-1305.13 178.16,-1315.04 185.15,-1315.21"/>
 </g>
-<!-- program~swiftest_driver -->
+<!-- module~s_helio_drift -->
 <g id="module~~swiftest_operators~~UsedByGraph_node27" class="node">
-<title>program~swiftest_driver</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node27"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="382,-1536 301,-1536 301,-1512 382,-1512 382,-1536"/>
-<text text-anchor="middle" x="341.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
+<title>module~s_helio_drift</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node27"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="376.5,-1578 306.5,-1578 306.5,-1554 376.5,-1554 376.5,-1578"/>
+<text text-anchor="middle" x="341.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
 </a>
 </g>
 </g>
-<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
+<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge26" class="edge">
-<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.6,-1520.7C287.26,-1517.79 273.2,-1512.5 263,-1503 201.86,-1446.03 187.15,-1340.16 183.61,-1294.22"/>
-<polygon fill="#000000" stroke="#000000" points="187.1,-1293.89 182.95,-1284.14 180.12,-1294.35 187.1,-1293.89"/>
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.41,-1563.99C291.4,-1561.44 274.59,-1556.08 263,-1545 196.79,-1481.68 184.89,-1364.05 182.86,-1315.18"/>
+<polygon fill="#000000" stroke="#000000" points="186.35,-1314.96 182.54,-1305.07 179.36,-1315.17 186.35,-1314.96"/>
 </g>
-<!-- module~s_rmvs_kick -->
+<!-- module~s_symba_setup -->
 <g id="module~~swiftest_operators~~UsedByGraph_node28" class="node">
-<title>module~s_rmvs_kick</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node28"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="377,-1494 306,-1494 306,-1470 377,-1470 377,-1494"/>
-<text text-anchor="middle" x="341.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
+<title>module~s_symba_setup</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node28"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="385.5,-1536 297.5,-1536 297.5,-1512 385.5,-1512 385.5,-1536"/>
+<text text-anchor="middle" x="341.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge27" class="edge">
-<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.7,-1479.27C291.08,-1476.55 274.78,-1471.25 263,-1461 211.86,-1416.47 192.28,-1333.84 185.59,-1294.26"/>
-<polygon fill="#000000" stroke="#000000" points="189.04,-1293.64 184.03,-1284.3 182.12,-1294.73 189.04,-1293.64"/>
+<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge28" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M297.15,-1519.67C284.93,-1516.62 272.41,-1511.5 263,-1503 206.88,-1452.3 189.6,-1358.11 184.51,-1315.26"/>
+<polygon fill="#000000" stroke="#000000" points="187.97,-1314.64 183.42,-1305.07 181.01,-1315.38 187.97,-1314.64"/>
 </g>
-<!-- module~s_whm_step -->
+<!-- program~swiftest_driver -->
 <g id="module~~swiftest_operators~~UsedByGraph_node29" class="node">
-<title>module~s_whm_step</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node29"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="378,-1452 305,-1452 305,-1428 378,-1428 378,-1452"/>
-<text text-anchor="middle" x="341.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
+<title>program~swiftest_driver</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node29"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="382,-1494 301,-1494 301,-1470 382,-1470 382,-1494"/>
+<text text-anchor="middle" x="341.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_step&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge28" class="edge">
-<title>module~s_whm_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M304.99,-1436.48C290.76,-1433.61 274.94,-1428.4 263,-1419 221.52,-1386.32 198.39,-1326.1 188.45,-1293.81"/>
-<polygon fill="#000000" stroke="#000000" points="191.75,-1292.62 185.57,-1284.01 185.03,-1294.59 191.75,-1292.62"/>
+<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge29" class="edge">
+<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.77,-1477.96C287.6,-1474.97 273.61,-1469.83 263,-1461 216.82,-1422.56 195.27,-1351.43 186.92,-1315.31"/>
+<polygon fill="#000000" stroke="#000000" points="190.29,-1314.32 184.74,-1305.3 183.45,-1315.81 190.29,-1314.32"/>
 </g>
-<!-- module~s_setup -->
+<!-- module~s_util_copy -->
 <g id="module~~swiftest_operators~~UsedByGraph_node30" class="node">
-<title>module~s_setup</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node30"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-1410 314.5,-1410 314.5,-1386 368.5,-1386 368.5,-1410"/>
-<text text-anchor="middle" x="341.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
+<title>module~s_util_copy</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node30"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="374.5,-1452 308.5,-1452 308.5,-1428 374.5,-1428 374.5,-1452"/>
+<text text-anchor="middle" x="341.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
 </a>
 </g>
 </g>
-<!-- module~s_setup&#45;&gt;module~swiftest -->
+<!-- module~s_util_copy&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge30" class="edge">
-<title>module~s_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.32,-1395.2C298.41,-1392.51 278.28,-1387.25 263,-1377 230.97,-1355.53 206.33,-1317.06 193.17,-1293.13"/>
-<polygon fill="#000000" stroke="#000000" points="196.17,-1291.33 188.39,-1284.14 189.99,-1294.62 196.17,-1291.33"/>
+<title>module~s_util_copy&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M308.39,-1436.69C293.46,-1433.87 276.15,-1428.65 263,-1419 226.29,-1392.04 202.09,-1342.85 190.49,-1314.56"/>
+<polygon fill="#000000" stroke="#000000" points="193.71,-1313.19 186.79,-1305.17 187.2,-1315.76 193.71,-1313.19"/>
 </g>
-<!-- module~s_util_get_energy_momentum -->
+<!-- module~s_util_valid -->
 <g id="module~~swiftest_operators~~UsedByGraph_node31" class="node">
-<title>module~s_util_get_energy_momentum</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node31"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="420,-1368 263,-1368 263,-1344 420,-1344 420,-1368"/>
-<text text-anchor="middle" x="341.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
+<title>module~s_util_valid</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node31"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="374,-1410 309,-1410 309,-1386 374,-1386 374,-1410"/>
+<text text-anchor="middle" x="341.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<!-- module~s_util_valid&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge31" class="edge">
-<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.28,-1343.98C277.61,-1341.47 269.98,-1338.5 263,-1335 240.16,-1323.56 217.56,-1305.07 202.15,-1291.08"/>
-<polygon fill="#000000" stroke="#000000" points="204.49,-1288.47 194.78,-1284.23 199.72,-1293.6 204.49,-1288.47"/>
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M308.79,-1393.43C294.12,-1390.34 276.91,-1385.25 263,-1377 235.59,-1360.73 211.38,-1332.59 196.84,-1313.41"/>
+<polygon fill="#000000" stroke="#000000" points="199.61,-1311.27 190.87,-1305.3 193.98,-1315.42 199.61,-1311.27"/>
 </g>
-<!-- module~s_tides_kick_getacch -->
+<!-- module~s_tides_step_spin -->
 <g id="module~~swiftest_operators~~UsedByGraph_node32" class="node">
-<title>module~s_tides_kick_getacch</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node32"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="398.5,-1326 284.5,-1326 284.5,-1302 398.5,-1302 398.5,-1326"/>
-<text text-anchor="middle" x="341.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node32"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="390.5,-1368 292.5,-1368 292.5,-1344 390.5,-1344 390.5,-1368"/>
+<text text-anchor="middle" x="341.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge32" class="edge">
-<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.22,-1301.96C270.87,-1295.49 241.25,-1287.62 218.48,-1281.56"/>
-<polygon fill="#000000" stroke="#000000" points="219.11,-1278.11 208.55,-1278.92 217.31,-1284.88 219.11,-1278.11"/>
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.43,-1344.71C282.57,-1341.92 272.35,-1338.66 263,-1335 245.37,-1328.11 226.57,-1318.44 211.57,-1310.12"/>
+<polygon fill="#000000" stroke="#000000" points="213.2,-1307.02 202.77,-1305.15 209.76,-1313.11 213.2,-1307.02"/>
 </g>
-<!-- module~s_symba_kick -->
+<!-- module~s_util_sort -->
 <g id="module~~swiftest_operators~~UsedByGraph_node33" class="node">
-<title>module~s_symba_kick</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node33"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-1284 302,-1284 302,-1260 381,-1260 381,-1284"/>
-<text text-anchor="middle" x="341.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
+<title>module~s_util_sort</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node33"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="372,-1326 311,-1326 311,-1302 372,-1302 372,-1326"/>
+<text text-anchor="middle" x="341.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge59" class="edge">
-<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.85,-1272C276.59,-1272 243.8,-1272 218.99,-1272"/>
-<polygon fill="#000000" stroke="#000000" points="218.89,-1268.5 208.89,-1272 218.89,-1275.5 218.89,-1268.5"/>
+<!-- module~s_util_sort&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge33" class="edge">
+<title>module~s_util_sort&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.78,-1310.05C284.7,-1306.58 246.7,-1301.53 218.82,-1297.83"/>
+<polygon fill="#000000" stroke="#000000" points="219.05,-1294.33 208.68,-1296.48 218.13,-1301.27 219.05,-1294.33"/>
 </g>
-<!-- module~s_helio_gr -->
+<!-- module~s_tides_kick_getacch -->
 <g id="module~~swiftest_operators~~UsedByGraph_node34" class="node">
-<title>module~s_helio_gr</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node34"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="372.5,-1242 310.5,-1242 310.5,-1218 372.5,-1218 372.5,-1242"/>
-<text text-anchor="middle" x="341.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node34"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="398.5,-1284 284.5,-1284 284.5,-1260 398.5,-1260 398.5,-1284"/>
+<text text-anchor="middle" x="341.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge33" class="edge">
-<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.41,-1238C284.17,-1244.97 246.07,-1255.1 218.28,-1262.49"/>
-<polygon fill="#000000" stroke="#000000" points="217.32,-1259.12 208.55,-1265.08 219.11,-1265.89 217.32,-1259.12"/>
+<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge34" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.35,-1279.46C262.55,-1282.36 238.2,-1285.6 218.78,-1288.18"/>
+<polygon fill="#000000" stroke="#000000" points="218.28,-1284.71 208.83,-1289.5 219.21,-1291.65 218.28,-1284.71"/>
 </g>
-<!-- module~s_orbel -->
+<!-- module~s_whm_kick -->
 <g id="module~~swiftest_operators~~UsedByGraph_node35" class="node">
-<title>module~s_orbel</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node35"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-1200 314.5,-1200 314.5,-1176 368.5,-1176 368.5,-1200"/>
-<text text-anchor="middle" x="341.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
+<title>module~s_whm_kick</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node35"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="376.5,-1242 306.5,-1242 306.5,-1218 376.5,-1218 376.5,-1242"/>
+<text text-anchor="middle" x="341.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_orbel&#45;&gt;module~swiftest -->
+<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge35" class="edge">
-<title>module~s_orbel&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.15,-1191.16C298.37,-1193.98 278.44,-1199.25 263,-1209 242.21,-1222.13 246.55,-1236.09 227,-1251 224.04,-1253.26 220.8,-1255.35 217.46,-1257.28"/>
-<polygon fill="#000000" stroke="#000000" points="215.74,-1254.23 208.51,-1261.97 218.99,-1260.43 215.74,-1254.23"/>
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.28,-1237.21C292.56,-1240.63 276.76,-1245.24 263,-1251 245.91,-1258.15 243.39,-1263.37 227,-1272 224.05,-1273.55 220.97,-1275.12 217.86,-1276.66"/>
+<polygon fill="#000000" stroke="#000000" points="216.04,-1273.65 208.57,-1281.16 219.1,-1279.95 216.04,-1273.65"/>
 </g>
-<!-- module~s_symba_drift -->
+<!-- module~s_util_fill -->
 <g id="module~~swiftest_operators~~UsedByGraph_node36" class="node">
-<title>module~s_symba_drift</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node36"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-1158 302,-1158 302,-1134 381,-1134 381,-1158"/>
-<text text-anchor="middle" x="341.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
+<title>module~s_util_fill</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node36"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-1200 314.5,-1200 314.5,-1176 368.5,-1176 368.5,-1200"/>
+<text text-anchor="middle" x="341.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<!-- module~s_util_fill&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge36" class="edge">
-<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.76,-1149.53C288.22,-1152.45 273.73,-1157.68 263,-1167 232.34,-1193.64 255.2,-1221.77 227,-1251 224.21,-1253.89 220.94,-1256.43 217.47,-1258.65"/>
-<polygon fill="#000000" stroke="#000000" points="215.66,-1255.65 208.56,-1263.51 219.01,-1261.79 215.66,-1255.65"/>
+<title>module~s_util_fill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.18,-1190.03C298.01,-1192.43 277.67,-1197.66 263,-1209 237.49,-1228.72 250.68,-1250.11 227,-1272 224.2,-1274.59 221.03,-1276.91 217.69,-1278.99"/>
+<polygon fill="#000000" stroke="#000000" points="215.76,-1276.05 208.64,-1283.9 219.09,-1282.21 215.76,-1276.05"/>
 </g>
-<!-- module~s_whm_setup -->
+<!-- module~s_helio_kick -->
 <g id="module~~swiftest_operators~~UsedByGraph_node37" class="node">
-<title>module~s_whm_setup</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node37"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-1116 302,-1116 302,-1092 381,-1092 381,-1116"/>
-<text text-anchor="middle" x="341.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
+<title>module~s_helio_kick</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node37"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="376.5,-1158 306.5,-1158 306.5,-1134 376.5,-1134 376.5,-1158"/>
+<text text-anchor="middle" x="341.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
+<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge37" class="edge">
-<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.9,-1106.65C288.05,-1109.44 273.32,-1114.82 263,-1125 221.54,-1165.9 264.7,-1206.61 227,-1251 224.34,-1254.13 221.11,-1256.83 217.61,-1259.15"/>
-<polygon fill="#000000" stroke="#000000" points="215.62,-1256.25 208.55,-1264.14 219,-1262.38 215.62,-1256.25"/>
+<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.13,-1148.19C291.24,-1150.79 274.6,-1156.14 263,-1167 226.99,-1200.72 259.9,-1235.24 227,-1272 224.32,-1274.99 221.12,-1277.6 217.69,-1279.85"/>
+<polygon fill="#000000" stroke="#000000" points="215.88,-1276.85 208.83,-1284.76 219.27,-1282.98 215.88,-1276.85"/>
 </g>
-<!-- module~s_io -->
+<!-- module~s_symba_collision -->
 <g id="module~~swiftest_operators~~UsedByGraph_node38" class="node">
-<title>module~s_io</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node38"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-1074 314.5,-1074 314.5,-1050 368.5,-1050 368.5,-1074"/>
-<text text-anchor="middle" x="341.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
+<title>module~s_symba_collision</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node38"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="391,-1116 292,-1116 292,-1092 391,-1092 391,-1116"/>
+<text text-anchor="middle" x="341.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
 </a>
 </g>
 </g>
-<!-- module~s_io&#45;&gt;module~swiftest -->
+<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge38" class="edge">
-<title>module~s_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.35,-1062.41C297.41,-1064.1 276.14,-1069.14 263,-1083 210.47,-1138.42 274.45,-1191.17 227,-1251 224.45,-1254.22 221.28,-1256.97 217.82,-1259.32"/>
-<polygon fill="#000000" stroke="#000000" points="215.83,-1256.42 208.81,-1264.35 219.24,-1262.53 215.83,-1256.42"/>
+<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.62,-1108.93C281.02,-1112.1 270.69,-1117.12 263,-1125 216.02,-1173.14 269.56,-1219.91 227,-1272 224.4,-1275.18 221.2,-1277.91 217.73,-1280.25"/>
+<polygon fill="#000000" stroke="#000000" points="215.74,-1277.35 208.7,-1285.26 219.14,-1283.47 215.74,-1277.35"/>
 </g>
-<!-- module~s_util_version -->
+<!-- module~s_symba_discard -->
 <g id="module~~swiftest_operators~~UsedByGraph_node39" class="node">
-<title>module~s_util_version</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node39"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="380.5,-1032 302.5,-1032 302.5,-1008 380.5,-1008 380.5,-1032"/>
-<text text-anchor="middle" x="341.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
+<title>module~s_symba_discard</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node39"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="389.5,-1074 293.5,-1074 293.5,-1050 389.5,-1050 389.5,-1074"/>
+<text text-anchor="middle" x="341.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge39" class="edge">
-<title>module~s_util_version&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.5,-1021.85C288.22,-1024.49 273.04,-1029.96 263,-1041 199.29,-1111.06 284.29,-1175.6 227,-1251 224.51,-1254.27 221.39,-1257.06 217.95,-1259.42"/>
-<polygon fill="#000000" stroke="#000000" points="215.97,-1256.52 208.96,-1264.47 219.4,-1262.63 215.97,-1256.52"/>
+<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M293.33,-1066.07C282.04,-1069.2 270.96,-1074.41 263,-1083 204.89,-1145.73 279.36,-1204.4 227,-1272 224.48,-1275.25 221.34,-1278.02 217.89,-1280.38"/>
+<polygon fill="#000000" stroke="#000000" points="215.91,-1277.48 208.89,-1285.42 219.33,-1283.58 215.91,-1277.48"/>
 </g>
-<!-- module~s_util_fill -->
+<!-- module~s_symba_util -->
 <g id="module~~swiftest_operators~~UsedByGraph_node40" class="node">
-<title>module~s_util_fill</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node40"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-990 314.5,-990 314.5,-966 368.5,-966 368.5,-990"/>
-<text text-anchor="middle" x="341.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
+<title>module~s_symba_util</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node40"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="379,-1032 304,-1032 304,-1008 379,-1008 379,-1032"/>
+<text text-anchor="middle" x="341.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_fill&#45;&gt;module~swiftest -->
+<!-- module~s_symba_util&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge40" class="edge">
-<title>module~s_util_fill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.4,-978.09C297.27,-979.61 275.74,-984.59 263,-999 188.06,-1083.76 294.19,-1159.98 227,-1251 224.43,-1254.48 221.14,-1257.4 217.51,-1259.86"/>
-<polygon fill="#000000" stroke="#000000" points="215.67,-1256.87 208.61,-1264.76 219.05,-1263 215.67,-1256.87"/>
+<title>module~s_symba_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.61,-1021.55C288.98,-1024.09 273.23,-1029.58 263,-1041 193.68,-1118.4 289.24,-1188.8 227,-1272 224.41,-1275.46 221.1,-1278.38 217.47,-1280.83"/>
+<polygon fill="#000000" stroke="#000000" points="215.63,-1277.84 208.56,-1285.73 219.01,-1283.97 215.63,-1277.84"/>
 </g>
-<!-- module~s_util_peri -->
+<!-- module~s_util_solve -->
 <g id="module~~swiftest_operators~~UsedByGraph_node41" class="node">
-<title>module~s_util_peri</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node41"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="372,-948 311,-948 311,-924 372,-924 372,-948"/>
-<text text-anchor="middle" x="341.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
+<title>module~s_util_solve</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node41"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="375.5,-990 307.5,-990 307.5,-966 375.5,-966 375.5,-990"/>
+<text text-anchor="middle" x="341.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<!-- module~s_util_solve&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge41" class="edge">
-<title>module~s_util_peri&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.9,-936.34C294.36,-938.18 274.78,-943.41 263,-957 176.79,-1056.49 304.12,-1144.31 227,-1251 224.47,-1254.51 221.19,-1257.45 217.58,-1259.91"/>
-<polygon fill="#000000" stroke="#000000" points="215.74,-1256.92 208.69,-1264.82 219.13,-1263.05 215.74,-1256.92"/>
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.45,-978.82C291.73,-981.01 274.01,-986.41 263,-999 182.43,-1091.12 299.15,-1173.15 227,-1272 224.45,-1275.49 221.17,-1278.43 217.54,-1280.88"/>
+<polygon fill="#000000" stroke="#000000" points="215.71,-1277.9 208.65,-1285.8 219.1,-1284.03 215.71,-1277.9"/>
 </g>
-<!-- module~s_helio_drift -->
+<!-- module~s_rmvs_step -->
 <g id="module~~swiftest_operators~~UsedByGraph_node42" class="node">
-<title>module~s_helio_drift</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node42"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="376.5,-906 306.5,-906 306.5,-882 376.5,-882 376.5,-906"/>
-<text text-anchor="middle" x="341.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
+<title>module~s_rmvs_step</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node42"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="378,-948 305,-948 305,-924 378,-924 378,-948"/>
+<text text-anchor="middle" x="341.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge42" class="edge">
-<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.13,-894.88C290.69,-897.14 273.59,-902.59 263,-915 165.51,-1029.24 314.06,-1128.62 227,-1251 224.49,-1254.52 221.24,-1257.48 217.63,-1259.94"/>
-<polygon fill="#000000" stroke="#000000" points="215.8,-1256.96 208.75,-1264.86 219.19,-1263.08 215.8,-1256.96"/>
+<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M304.98,-937.09C289.86,-939.47 273.36,-944.95 263,-957 171.15,-1063.86 309.08,-1157.47 227,-1272 224.48,-1275.52 221.22,-1278.46 217.6,-1280.93"/>
+<polygon fill="#000000" stroke="#000000" points="215.77,-1277.94 208.72,-1285.84 219.16,-1284.06 215.77,-1277.94"/>
 </g>
-<!-- module~s_fragmentation -->
+<!-- module~s_symba_io -->
 <g id="module~~swiftest_operators~~UsedByGraph_node43" class="node">
-<title>module~s_fragmentation</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node43"><a xlink:href=".././module/s_fragmentation.html" xlink:title="s_fragmentation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="386.5,-864 296.5,-864 296.5,-840 386.5,-840 386.5,-864"/>
-<text text-anchor="middle" x="341.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fragmentation</text>
+<title>module~s_symba_io</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node43"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="376.5,-906 306.5,-906 306.5,-882 376.5,-882 376.5,-906"/>
+<text text-anchor="middle" x="341.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
+<!-- module~s_symba_io&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge43" class="edge">
-<title>module~s_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296.42,-854.65C283.87,-857.61 271.36,-863.09 263,-873 208.6,-937.51 275.51,-1181.95 227,-1251 224.51,-1254.54 221.27,-1257.5 217.67,-1259.97"/>
-<polygon fill="#000000" stroke="#000000" points="215.84,-1256.98 208.79,-1264.9 219.23,-1263.1 215.84,-1256.98"/>
+<title>module~s_symba_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.49,-894.79C290.94,-897.01 273.64,-902.45 263,-915 211.43,-975.81 273.02,-1206.88 227,-1272 224.5,-1275.53 221.26,-1278.49 217.65,-1280.96"/>
+<polygon fill="#000000" stroke="#000000" points="215.82,-1277.97 208.77,-1285.88 219.21,-1284.09 215.82,-1277.97"/>
 </g>
-<!-- proc~solve_wbs -->
+<!-- module~s_rmvs_util -->
 <g id="module~~swiftest_operators~~UsedByGraph_node44" class="node">
-<title>proc~solve_wbs</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node44"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="372.5,-822 310.5,-822 310.5,-798 372.5,-798 372.5,-822"/>
-<text text-anchor="middle" x="341.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
+<title>module~s_rmvs_util</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node44"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="375,-864 308,-864 308,-840 375,-840 375,-864"/>
+<text text-anchor="middle" x="341.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
 </a>
 </g>
 </g>
-<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge44" class="edge">
-<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.33,-810.23C293.81,-812.06 274.44,-817.31 263,-831 202.95,-902.9 280.49,-1174.1 227,-1251 224.53,-1254.55 221.3,-1257.52 217.7,-1259.99"/>
-<polygon fill="#000000" stroke="#000000" points="215.87,-1257.01 208.83,-1264.92 219.27,-1263.13 215.87,-1257.01"/>
+<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.62,-852.58C291.75,-854.68 273.84,-860.08 263,-873 205.78,-941.2 278,-1199.03 227,-1272 224.52,-1275.54 221.29,-1278.51 217.68,-1280.98"/>
+<polygon fill="#000000" stroke="#000000" points="215.85,-1278 208.81,-1285.91 219.25,-1284.12 215.85,-1278"/>
 </g>
-<!-- module~s_whm_coord -->
+<!-- module~whm_drift -->
 <g id="module~~swiftest_operators~~UsedByGraph_node45" class="node">
-<title>module~s_whm_coord</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node45"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-780 302,-780 302,-756 381,-756 381,-780"/>
-<text text-anchor="middle" x="341.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
+<title>module~whm_drift</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node45"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="371,-822 312,-822 312,-798 371,-798 371,-822"/>
+<text text-anchor="middle" x="341.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
+<!-- module~whm_drift&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge45" class="edge">
-<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.97,-769.39C287.62,-771.96 272.52,-777.51 263,-789 197.29,-868.29 285.47,-1166.23 227,-1251 224.54,-1254.56 221.32,-1257.53 217.73,-1260.01"/>
-<polygon fill="#000000" stroke="#000000" points="215.9,-1257.02 208.86,-1264.95 219.3,-1263.14 215.9,-1257.02"/>
+<title>module~whm_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.85,-810.05C295,-811.71 274.77,-816.85 263,-831 200.12,-906.59 282.98,-1191.16 227,-1272 224.54,-1275.56 221.31,-1278.53 217.71,-1281"/>
+<polygon fill="#000000" stroke="#000000" points="215.88,-1278.02 208.85,-1285.93 219.29,-1284.13 215.88,-1278.02"/>
 </g>
-<!-- module~s_tides_step_spin -->
+<!-- module~s_whm_coord -->
 <g id="module~~swiftest_operators~~UsedByGraph_node46" class="node">
-<title>module~s_tides_step_spin</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node46"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="390.5,-738 292.5,-738 292.5,-714 390.5,-714 390.5,-738"/>
-<text text-anchor="middle" x="341.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
+<title>module~s_whm_coord</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node46"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-780 302,-780 302,-756 381,-756 381,-780"/>
+<text text-anchor="middle" x="341.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge46" class="edge">
-<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.23,-729.57C281.09,-732.72 270.35,-738.07 263,-747 191.63,-833.69 290.46,-1158.36 227,-1251 224.56,-1254.57 221.34,-1257.55 217.75,-1260.03"/>
-<polygon fill="#000000" stroke="#000000" points="215.92,-1257.04 208.89,-1264.96 219.33,-1263.16 215.92,-1257.04"/>
+<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.95,-769.37C287.6,-771.94 272.5,-777.5 263,-789 194.46,-871.99 287.96,-1183.3 227,-1272 224.55,-1275.56 221.33,-1278.54 217.74,-1281.02"/>
+<polygon fill="#000000" stroke="#000000" points="215.91,-1278.03 208.87,-1285.95 219.31,-1284.15 215.91,-1278.03"/>
 </g>
-<!-- module~s_symba_io -->
+<!-- module~s_io -->
 <g id="module~~swiftest_operators~~UsedByGraph_node47" class="node">
-<title>module~s_symba_io</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node47"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="376.5,-696 306.5,-696 306.5,-672 376.5,-672 376.5,-696"/>
-<text text-anchor="middle" x="341.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
+<title>module~s_io</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node47"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-738 314.5,-738 314.5,-714 368.5,-714 368.5,-738"/>
+<text text-anchor="middle" x="341.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_io&#45;&gt;module~swiftest -->
+<!-- module~s_io&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge47" class="edge">
-<title>module~s_symba_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.3,-684.63C290.7,-686.82 273.42,-692.27 263,-705 185.97,-799.09 295.44,-1150.49 227,-1251 224.57,-1254.57 221.35,-1257.56 217.77,-1260.04"/>
-<polygon fill="#000000" stroke="#000000" points="215.94,-1257.05 208.91,-1264.98 219.35,-1263.17 215.94,-1257.05"/>
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.44,-725.76C297.09,-727.12 275.29,-732.02 263,-747 188.8,-837.39 292.95,-1175.43 227,-1272 224.56,-1275.57 221.35,-1278.55 217.76,-1281.03"/>
+<polygon fill="#000000" stroke="#000000" points="215.93,-1278.05 208.9,-1285.97 219.34,-1284.16 215.93,-1278.05"/>
 </g>
-<!-- module~s_util_sort -->
+<!-- module~s_obl -->
 <g id="module~~swiftest_operators~~UsedByGraph_node48" class="node">
-<title>module~s_util_sort</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node48"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="372,-654 311,-654 311,-630 372,-630 372,-654"/>
-<text text-anchor="middle" x="341.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
+<title>module~s_obl</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node48"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-696 314.5,-696 314.5,-672 368.5,-672 368.5,-696"/>
+<text text-anchor="middle" x="341.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_sort&#45;&gt;module~swiftest -->
+<!-- module~s_obl&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge48" class="edge">
-<title>module~s_util_sort&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.98,-642.04C294.25,-643.75 274.45,-648.95 263,-663 180.31,-764.49 300.43,-1142.62 227,-1251 224.57,-1254.58 221.37,-1257.57 217.78,-1260.05"/>
-<polygon fill="#000000" stroke="#000000" points="215.96,-1257.06 208.93,-1264.99 219.37,-1263.18 215.96,-1257.06"/>
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.41,-683.75C297.05,-685.09 275.26,-689.99 263,-705 183.14,-802.79 297.94,-1167.56 227,-1272 224.57,-1275.58 221.36,-1278.56 217.78,-1281.05"/>
+<polygon fill="#000000" stroke="#000000" points="215.95,-1278.06 208.92,-1285.98 219.36,-1284.17 215.95,-1278.06"/>
 </g>
-<!-- module~s_util_minimize_bfgs -->
+<!-- module~s_helio_gr -->
 <g id="module~~swiftest_operators~~UsedByGraph_node49" class="node">
-<title>module~s_util_minimize_bfgs</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node49"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="397.5,-612 285.5,-612 285.5,-588 397.5,-588 397.5,-612"/>
-<text text-anchor="middle" x="341.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
+<title>module~s_helio_gr</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node49"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="372.5,-654 310.5,-654 310.5,-630 372.5,-630 372.5,-654"/>
+<text text-anchor="middle" x="341.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge49" class="edge">
-<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.38,-605.73C276.76,-609 268.8,-613.86 263,-621 174.65,-729.89 305.42,-1134.75 227,-1251 224.58,-1254.59 221.38,-1257.57 217.8,-1260.06"/>
-<polygon fill="#000000" stroke="#000000" points="215.97,-1257.07 208.94,-1265 219.38,-1263.19 215.97,-1257.07"/>
+<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.19,-642.12C293.63,-643.9 274.26,-649.15 263,-663 177.48,-768.19 302.93,-1159.69 227,-1272 224.58,-1275.58 221.37,-1278.57 217.79,-1281.06"/>
+<polygon fill="#000000" stroke="#000000" points="215.96,-1278.07 208.94,-1286 219.37,-1284.18 215.96,-1278.07"/>
 </g>
-<!-- module~s_whm_util -->
+<!-- module~s_eucl -->
 <g id="module~~swiftest_operators~~UsedByGraph_node50" class="node">
-<title>module~s_whm_util</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node50"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="374.5,-570 308.5,-570 308.5,-546 374.5,-546 374.5,-570"/>
-<text text-anchor="middle" x="341.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
+<title>module~s_eucl</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node50"><a xlink:href=".././module/s_eucl.html" xlink:title="s_eucl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-612 314.5,-612 314.5,-588 368.5,-588 368.5,-612"/>
+<text text-anchor="middle" x="341.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_eucl</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_util&#45;&gt;module~swiftest -->
+<!-- module~s_eucl&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge50" class="edge">
-<title>module~s_whm_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M308.21,-558.32C292.09,-560.3 273.78,-565.67 263,-579 168.98,-695.3 310.41,-1126.88 227,-1251 224.59,-1254.59 221.39,-1257.58 217.81,-1260.07"/>
-<polygon fill="#000000" stroke="#000000" points="215.98,-1257.08 208.96,-1265.01 219.4,-1263.19 215.98,-1257.08"/>
+<title>module~s_eucl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.37,-599.71C296.99,-601.04 275.19,-605.94 263,-621 171.82,-733.6 307.92,-1151.81 227,-1272 224.58,-1275.59 221.38,-1278.58 217.8,-1281.07"/>
+<polygon fill="#000000" stroke="#000000" points="215.98,-1278.08 208.95,-1286.01 219.39,-1284.19 215.98,-1278.08"/>
 </g>
-<!-- module~s_util_copy -->
+<!-- module~s_util_append -->
 <g id="module~~swiftest_operators~~UsedByGraph_node51" class="node">
-<title>module~s_util_copy</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node51"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="374.5,-528 308.5,-528 308.5,-504 374.5,-504 374.5,-528"/>
-<text text-anchor="middle" x="341.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
+<title>module~s_util_append</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node51"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-570 302,-570 302,-546 381,-546 381,-570"/>
+<text text-anchor="middle" x="341.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_copy&#45;&gt;module~swiftest -->
+<!-- module~s_util_append&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge51" class="edge">
-<title>module~s_util_copy&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M308.19,-516.3C292.07,-518.28 273.76,-523.65 263,-537 163.32,-660.7 315.4,-1119 227,-1251 224.54,-1254.67 221.26,-1257.72 217.58,-1260.24"/>
-<polygon fill="#000000" stroke="#000000" points="215.59,-1257.35 208.5,-1265.23 218.95,-1263.48 215.59,-1257.35"/>
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.82,-559.26C287.44,-561.82 272.37,-567.39 263,-579 166.15,-699 312.91,-1143.94 227,-1272 224.59,-1275.59 221.39,-1278.58 217.82,-1281.07"/>
+<polygon fill="#000000" stroke="#000000" points="215.99,-1278.08 208.96,-1286.02 219.4,-1284.2 215.99,-1278.08"/>
 </g>
-<!-- proc~ge_wpp -->
+<!-- module~s_fragmentation -->
 <g id="module~~swiftest_operators~~UsedByGraph_node52" class="node">
-<title>proc~ge_wpp</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node52"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="368.5,-486 314.5,-486 314.5,-462 368.5,-462 368.5,-486"/>
-<text text-anchor="middle" x="341.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
+<title>module~s_fragmentation</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node52"><a xlink:href=".././module/s_fragmentation.html" xlink:title="s_fragmentation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="386.5,-528 296.5,-528 296.5,-504 386.5,-504 386.5,-528"/>
+<text text-anchor="middle" x="341.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fragmentation</text>
 </a>
 </g>
 </g>
-<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge52" class="edge">
-<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.34,-473.68C296.94,-475 275.14,-479.9 263,-495 210.33,-560.55 273.7,-1181.06 227,-1251 224.55,-1254.68 221.26,-1257.72 217.59,-1260.25"/>
-<polygon fill="#000000" stroke="#000000" points="215.6,-1257.35 208.52,-1265.23 218.97,-1263.49 215.6,-1257.35"/>
+<title>module~s_fragmentation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296.14,-518.41C283.58,-521.37 271.13,-526.9 263,-537 211.74,-600.7 272.45,-1204.03 227,-1272 224.54,-1275.67 221.26,-1278.72 217.59,-1281.25"/>
+<polygon fill="#000000" stroke="#000000" points="215.59,-1278.35 208.51,-1286.23 218.96,-1284.48 215.59,-1278.35"/>
 </g>
-<!-- module~s_rmvs_chk -->
+<!-- module~s_user_kick_getacch -->
 <g id="module~~swiftest_operators~~UsedByGraph_node53" class="node">
-<title>module~s_rmvs_chk</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node53"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="376.5,-444 306.5,-444 306.5,-420 376.5,-420 376.5,-444"/>
-<text text-anchor="middle" x="341.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node53"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="397.5,-486 285.5,-486 285.5,-462 397.5,-462 397.5,-486"/>
+<text text-anchor="middle" x="341.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge53" class="edge">
-<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.19,-432.54C290.56,-434.7 273.29,-440.16 263,-453 207.49,-522.26 276.19,-1177.12 227,-1251 224.55,-1254.68 221.27,-1257.73 217.6,-1260.25"/>
-<polygon fill="#000000" stroke="#000000" points="215.6,-1257.36 208.53,-1265.24 218.98,-1263.49 215.6,-1257.36"/>
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.31,-479.67C276.7,-482.95 268.76,-487.82 263,-495 208.91,-562.41 274.95,-1200.09 227,-1272 224.55,-1275.68 221.27,-1278.73 217.6,-1281.25"/>
+<polygon fill="#000000" stroke="#000000" points="215.6,-1278.35 208.52,-1286.24 218.97,-1284.49 215.6,-1278.35"/>
 </g>
-<!-- module~s_kick -->
+<!-- module~s_symba_fragmentation -->
 <g id="module~~swiftest_operators~~UsedByGraph_node54" class="node">
-<title>module~s_kick</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node54"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-402 314.5,-402 314.5,-378 368.5,-378 368.5,-402"/>
-<text text-anchor="middle" x="341.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
+<title>module~s_symba_fragmentation</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node54"><a xlink:href=".././module/s_symba_fragmentation.html" xlink:title="s_symba_fragmentation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="405,-444 278,-444 278,-420 405,-420 405,-444"/>
+<text text-anchor="middle" x="341.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_fragmentation</text>
 </a>
 </g>
 </g>
-<!-- module~s_kick&#45;&gt;module~swiftest -->
+<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge54" class="edge">
-<title>module~s_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.32,-389.67C296.91,-390.98 275.1,-395.87 263,-411 204.66,-483.96 278.69,-1173.19 227,-1251 224.55,-1254.68 221.28,-1257.73 217.61,-1260.26"/>
-<polygon fill="#000000" stroke="#000000" points="215.61,-1257.36 208.54,-1265.25 218.98,-1263.5 215.61,-1257.36"/>
+<title>module~s_symba_fragmentation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M277.7,-441.1C272.08,-444.11 267.01,-447.99 263,-453 206.08,-524.11 277.44,-1196.15 227,-1272 224.55,-1275.68 221.27,-1278.73 217.6,-1281.26"/>
+<polygon fill="#000000" stroke="#000000" points="215.61,-1278.36 208.53,-1286.24 218.98,-1284.5 215.61,-1278.36"/>
 </g>
-<!-- module~s_rmvs_setup -->
+<!-- module~s_whm_step -->
 <g id="module~~swiftest_operators~~UsedByGraph_node55" class="node">
-<title>module~s_rmvs_setup</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node55"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-360 302,-360 302,-336 381,-336 381,-360"/>
-<text text-anchor="middle" x="341.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
+<title>module~s_whm_step</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node55"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="378,-402 305,-402 305,-378 378,-378 378,-402"/>
+<text text-anchor="middle" x="341.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
+<!-- module~s_whm_step&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge55" class="edge">
-<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.75,-349.21C287.37,-351.76 272.3,-357.34 263,-369 201.82,-445.67 281.19,-1169.25 227,-1251 224.56,-1254.68 221.28,-1257.74 217.62,-1260.26"/>
-<polygon fill="#000000" stroke="#000000" points="215.62,-1257.37 208.54,-1265.25 218.99,-1263.5 215.62,-1257.37"/>
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M304.97,-390.69C289.66,-392.96 273.01,-398.47 263,-411 203.24,-485.81 279.94,-1192.22 227,-1272 224.56,-1275.68 221.28,-1278.74 217.61,-1281.26"/>
+<polygon fill="#000000" stroke="#000000" points="215.62,-1278.37 208.54,-1286.25 218.99,-1284.5 215.62,-1278.37"/>
 </g>
-<!-- module~whm_drift -->
+<!-- module~s_helio_coord -->
 <g id="module~~swiftest_operators~~UsedByGraph_node56" class="node">
-<title>module~whm_drift</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node56"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="371,-318 312,-318 312,-294 371,-294 371,-318"/>
-<text text-anchor="middle" x="341.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
+<title>module~s_helio_coord</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node56"><a xlink:href=".././module/s_helio_coord.html" xlink:title="s_helio_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-360 302,-360 302,-336 381,-336 381,-360"/>
+<text text-anchor="middle" x="341.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_coord</text>
 </a>
 </g>
 </g>
-<!-- module~whm_drift&#45;&gt;module~swiftest -->
+<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge56" class="edge">
-<title>module~whm_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.63,-305.88C294.71,-307.47 274.46,-312.61 263,-327 198.99,-407.37 283.68,-1165.31 227,-1251 224.56,-1254.69 221.29,-1257.74 217.62,-1260.27"/>
-<polygon fill="#000000" stroke="#000000" points="215.63,-1257.37 208.55,-1265.26 219,-1263.51 215.63,-1257.37"/>
+<title>module~s_helio_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.75,-349.21C287.36,-351.75 272.3,-357.34 263,-369 200.41,-447.52 282.44,-1188.28 227,-1272 224.56,-1275.69 221.29,-1278.74 217.62,-1281.27"/>
+<polygon fill="#000000" stroke="#000000" points="215.62,-1278.37 208.55,-1286.26 219,-1284.5 215.62,-1278.37"/>
 </g>
-<!-- module~s_symba_setup -->
+<!-- module~s_util_peri -->
 <g id="module~~swiftest_operators~~UsedByGraph_node57" class="node">
-<title>module~s_symba_setup</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node57"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="385.5,-276 297.5,-276 297.5,-252 385.5,-252 385.5,-276"/>
-<text text-anchor="middle" x="341.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
+<title>module~s_util_peri</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node57"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="372,-318 311,-318 311,-294 372,-294 372,-318"/>
+<text text-anchor="middle" x="341.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge29" class="edge">
-<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M297.28,-266.08C284.31,-268.95 271.33,-274.52 263,-285 196.16,-369.07 286.18,-1161.37 227,-1251 224.56,-1254.69 221.29,-1257.75 217.63,-1260.27"/>
-<polygon fill="#000000" stroke="#000000" points="215.63,-1257.38 208.56,-1265.26 219.01,-1263.51 215.63,-1257.38"/>
+<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge57" class="edge">
+<title>module~s_util_peri&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.86,-305.95C294.09,-307.63 274.28,-312.82 263,-327 197.57,-409.22 284.93,-1184.34 227,-1272 224.56,-1275.69 221.29,-1278.74 217.63,-1281.27"/>
+<polygon fill="#000000" stroke="#000000" points="215.63,-1278.37 208.55,-1286.26 219,-1284.51 215.63,-1278.37"/>
 </g>
-<!-- module~s_symba_discard -->
+<!-- module~s_rmvs_setup -->
 <g id="module~~swiftest_operators~~UsedByGraph_node58" class="node">
-<title>module~s_symba_discard</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node58"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="389.5,-234 293.5,-234 293.5,-210 389.5,-210 389.5,-234"/>
-<text text-anchor="middle" x="341.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
+<title>module~s_rmvs_setup</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node58"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-276 302,-276 302,-252 381,-252 381,-276"/>
+<text text-anchor="middle" x="341.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge17" class="edge">
-<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M293.22,-225.06C281.65,-228.16 270.45,-233.61 263,-243 193.32,-330.78 288.68,-1157.43 227,-1251 224.57,-1254.69 221.3,-1257.75 217.63,-1260.28"/>
-<polygon fill="#000000" stroke="#000000" points="215.64,-1257.38 208.56,-1265.27 219.01,-1263.51 215.64,-1257.38"/>
+<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge58" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.73,-265.19C287.34,-267.74 272.28,-273.32 263,-285 194.74,-370.93 287.43,-1180.4 227,-1272 224.57,-1275.69 221.3,-1278.75 217.63,-1281.27"/>
+<polygon fill="#000000" stroke="#000000" points="215.64,-1278.38 208.56,-1286.26 219.01,-1284.51 215.64,-1278.38"/>
 </g>
-<!-- module~s_gr -->
+<!-- module~s_whm_setup -->
 <g id="module~~swiftest_operators~~UsedByGraph_node59" class="node">
-<title>module~s_gr</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node59"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="368.5,-192 314.5,-192 314.5,-168 368.5,-168 368.5,-192"/>
-<text text-anchor="middle" x="341.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
+<title>module~s_whm_setup</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node59"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="381,-234 302,-234 302,-210 381,-210 381,-234"/>
+<text text-anchor="middle" x="341.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_gr&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge57" class="edge">
-<title>module~s_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.28,-179.63C296.85,-180.93 275.04,-185.81 263,-201 190.49,-292.48 291.18,-1153.49 227,-1251 224.57,-1254.69 221.3,-1257.75 217.64,-1260.28"/>
-<polygon fill="#000000" stroke="#000000" points="215.64,-1257.38 208.57,-1265.27 219.02,-1263.52 215.64,-1257.38"/>
+<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge59" class="edge">
+<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.72,-223.18C287.33,-225.73 272.27,-231.31 263,-243 191.91,-332.63 289.93,-1176.46 227,-1272 224.57,-1275.69 221.3,-1278.75 217.64,-1281.28"/>
+<polygon fill="#000000" stroke="#000000" points="215.64,-1278.38 208.57,-1286.27 219.02,-1284.51 215.64,-1278.38"/>
 </g>
-<!-- module~s_rmvs_step -->
+<!-- module~s_discard -->
 <g id="module~~swiftest_operators~~UsedByGraph_node60" class="node">
-<title>module~s_rmvs_step</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node60"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="378,-150 305,-150 305,-126 378,-126 378,-150"/>
-<text text-anchor="middle" x="341.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
+<title>module~s_discard</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node60"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="370.5,-192 312.5,-192 312.5,-168 370.5,-168 370.5,-192"/>
+<text text-anchor="middle" x="341.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
-<g id="module~~swiftest_operators~~UsedByGraph_edge34" class="edge">
-<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M304.92,-138.65C289.6,-140.92 272.95,-146.43 263,-159 187.65,-254.19 293.67,-1149.55 227,-1251 224.57,-1254.69 221.31,-1257.75 217.64,-1260.28"/>
-<polygon fill="#000000" stroke="#000000" points="215.65,-1257.39 208.57,-1265.27 219.02,-1263.52 215.65,-1257.39"/>
+<!-- module~s_discard&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge60" class="edge">
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312.37,-179.79C295.29,-181.29 274.6,-186.36 263,-201 189.07,-294.34 292.42,-1172.52 227,-1272 224.57,-1275.69 221.31,-1278.75 217.64,-1281.28"/>
+<polygon fill="#000000" stroke="#000000" points="215.65,-1278.38 208.57,-1286.27 219.02,-1284.52 215.65,-1278.38"/>
 </g>
-<!-- module~s_symba_encounter_check -->
+<!-- module~s_symba_step -->
 <g id="module~~swiftest_operators~~UsedByGraph_node61" class="node">
-<title>module~s_symba_encounter_check</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node61"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="413,-108 270,-108 270,-84 413,-84 413,-108"/>
-<text text-anchor="middle" x="341.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
+<title>module~s_symba_step</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node61"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="382.5,-150 300.5,-150 300.5,-126 382.5,-126 382.5,-150"/>
+<text text-anchor="middle" x="341.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<!-- module~s_symba_step&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge61" class="edge">
-<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M272.68,-108.06C269.05,-110.55 265.77,-113.5 263,-117 184.82,-215.89 296.17,-1145.61 227,-1251 224.57,-1254.7 221.31,-1257.76 217.65,-1260.29"/>
-<polygon fill="#000000" stroke="#000000" points="215.65,-1257.39 208.58,-1265.28 219.03,-1263.52 215.65,-1257.39"/>
+<title>module~s_symba_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.49,-139.39C286.47,-142.03 271.99,-147.63 263,-159 186.24,-256.04 294.92,-1168.58 227,-1272 224.57,-1275.7 221.31,-1278.75 217.65,-1281.28"/>
+<polygon fill="#000000" stroke="#000000" points="215.65,-1278.39 208.58,-1286.28 219.03,-1284.52 215.65,-1278.39"/>
 </g>
-<!-- module~s_symba_util -->
+<!-- module~s_helio_step -->
 <g id="module~~swiftest_operators~~UsedByGraph_node62" class="node">
-<title>module~s_symba_util</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node62"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="379,-66 304,-66 304,-42 379,-42 379,-66"/>
-<text text-anchor="middle" x="341.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
+<title>module~s_helio_step</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node62"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="378,-108 305,-108 305,-84 378,-84 378,-108"/>
+<text text-anchor="middle" x="341.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_util&#45;&gt;module~swiftest -->
+<!-- module~s_helio_step&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge62" class="edge">
-<title>module~s_symba_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.71,-54.83C288.72,-57.2 272.68,-62.75 263,-75 181.98,-177.6 298.67,-1141.67 227,-1251 224.58,-1254.7 221.31,-1257.76 217.65,-1260.29"/>
-<polygon fill="#000000" stroke="#000000" points="215.66,-1257.39 208.58,-1265.28 219.03,-1263.52 215.66,-1257.39"/>
+<title>module~s_helio_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M304.91,-96.65C289.59,-98.91 272.94,-104.42 263,-117 183.4,-217.75 297.42,-1164.64 227,-1272 224.58,-1275.7 221.31,-1278.76 217.65,-1281.29"/>
+<polygon fill="#000000" stroke="#000000" points="215.65,-1278.39 208.58,-1286.28 219.03,-1284.52 215.65,-1278.39"/>
 </g>
-<!-- module~s_symba_step -->
+<!-- module~s_util_exit -->
 <g id="module~~swiftest_operators~~UsedByGraph_node63" class="node">
-<title>module~s_symba_step</title>
-<g id="a_module~~swiftest_operators~~UsedByGraph_node63"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="382.5,-24 300.5,-24 300.5,0 382.5,0 382.5,-24"/>
-<text text-anchor="middle" x="341.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
+<title>module~s_util_exit</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node63"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="371.5,-66 311.5,-66 311.5,-42 371.5,-42 371.5,-66"/>
+<text text-anchor="middle" x="341.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~swiftest -->
+<!-- module~s_util_exit&#45;&gt;module~swiftest -->
 <g id="module~~swiftest_operators~~UsedByGraph_edge63" class="edge">
-<title>module~s_symba_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.48,-13.38C286.45,-16.02 271.98,-21.62 263,-33 179.15,-139.3 301.17,-1137.73 227,-1251 224.58,-1254.7 221.32,-1257.76 217.66,-1260.29"/>
-<polygon fill="#000000" stroke="#000000" points="215.66,-1257.39 208.59,-1265.28 219.04,-1263.53 215.66,-1257.39"/>
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.2,-53.88C294.34,-55.5 274.31,-60.67 263,-75 180.57,-179.45 299.92,-1160.7 227,-1272 224.58,-1275.7 221.32,-1278.76 217.65,-1281.29"/>
+<polygon fill="#000000" stroke="#000000" points="215.66,-1278.39 208.59,-1286.28 219.03,-1284.52 215.66,-1278.39"/>
+</g>
+<!-- module~s_whm_gr -->
+<g id="module~~swiftest_operators~~UsedByGraph_node64" class="node">
+<title>module~s_whm_gr</title>
+<g id="a_module~~swiftest_operators~~UsedByGraph_node64"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="372.5,-24 310.5,-24 310.5,0 372.5,0 372.5,-24"/>
+<text text-anchor="middle" x="341.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
+</a>
+</g>
+</g>
+<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
+<g id="module~~swiftest_operators~~UsedByGraph_edge64" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.42,-11.95C293.73,-13.66 274.13,-18.88 263,-33 177.73,-141.16 302.41,-1156.76 227,-1272 224.58,-1275.7 221.32,-1278.76 217.66,-1281.29"/>
+<polygon fill="#000000" stroke="#000000" points="215.66,-1278.39 208.59,-1286.28 219.04,-1284.53 215.66,-1278.39"/>
 </g>
 </g>
 </svg>
diff --git a/docs/module/symba_classes.html b/docs/module/symba_classes.html
index d6c87ae63..66a26108f 100644
--- a/docs/module/symba_classes.html
+++ b/docs/module/symba_classes.html
@@ -136,7 +136,7 @@ <h1>symba_classes
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 4.4% of total for modules and submodules.">578 statements</a>
+    title=" 4.2% of total for modules and submodules.">566 statements</a>
      </li> 
      
      
@@ -248,9 +248,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_param_writer">symba_io_param_writer</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_initialize_particle_info">symba_io_initialize_particle_info</a>
-      
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_read_frame_info">symba_io_read_frame_info</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_read_particle">symba_io_read_particle</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_kick_getacch_pl">symba_kick_getacch_pl</a>
       
@@ -258,7 +256,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_kick_pltpenc">symba_kick_pltpenc</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_write_frame_info">symba_io_write_frame_info</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_setup_initialize_particle_info">symba_setup_initialize_particle_info</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_setup_initialize_system">symba_setup_initialize_system</a>
       
@@ -336,12 +334,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#type-symba_parameters">symba_parameters</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#type-symba_cb">symba_cb</a>
-      
       <a class="list-group-item" href="../module/symba_classes.html#type-symba_particle_info">symba_particle_info</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#type-symba_kinship">symba_kinship</a>
       
+      <a class="list-group-item" href="../module/symba_classes.html#type-symba_cb">symba_cb</a>
+      
       <a class="list-group-item" href="../module/symba_classes.html#type-symba_pl">symba_pl</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#type-symba_merger">symba_merger</a>
@@ -377,9 +375,6 @@ <h3>Contents</h3>
     <p>Definition of classes and methods specific to the Democratic SyMBAcentric Method
  Adapted from David E. Kaufmann's Swifter routine: helio.f90</p>
 <hr>
-<p>symba_cb class definitions and method interfaces</p>
-<hr>
-<hr>
 <div class="codehilite"><pre><span></span><code><span class="err">                                symba_particle_info class definitions and method interfaces</span>
 </code></pre></div>
 
@@ -390,6 +385,9 @@ <h3>Contents</h3>
 </code></pre></div>
 
 
+<hr>
+<hr>
+<p>symba_cb class definitions and method interfaces</p>
 <hr>
 <hr>
 <div class="codehilite"><pre><span></span><code><span class="err">                                symba_pl class definitions and method interfaces</span>
@@ -461,56 +459,25 @@ <h3 class="panel-title">Uses</h3>
 <polygon fill="none" stroke="black" points="682,-76.24 597,-76.24 597,-52.24 682,-52.24 682,-76.24"/>
 <text text-anchor="middle" x="639.5" y="-61.84" font-family="Helvetica,sans-Serif" font-size="10.50">symba_classes</text>
 </g>
-<!-- module~swiftest_classes -->
-<g id="module~~symba_classes~~UsesGraph_node2" class="node">
-<title>module~swiftest_classes</title>
-<g id="a_module~~symba_classes~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="336,-76.24 247,-76.24 247,-52.24 336,-52.24 336,-76.24"/>
-<text text-anchor="middle" x="291.5" y="-61.84" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
-</a>
-</g>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~symba_classes~~UsesGraph_edge1" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.9,-76.31C558.34,-90.08 479.54,-109.98 411,-104.24"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409,-104.24C379.09,-102.93 347.05,-91.09 324.16,-80.63"/>
-<polygon fill="#000000" stroke="#000000" points="325.48,-77.38 314.94,-76.27 322.48,-83.71 325.48,-77.38"/>
-</g>
-<!-- module~rmvs_classes -->
-<g id="module~~symba_classes~~UsesGraph_node3" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~symba_classes~~UsesGraph_node3"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="561,-34.24 484,-34.24 484,-10.24 561,-10.24 561,-34.24"/>
-<text text-anchor="middle" x="522.5" y="-19.84" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
-</a>
-</g>
-</g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~symba_classes~~UsesGraph_edge2" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.55,-52.2C593.28,-47.72 579.17,-42.57 566.15,-37.82"/>
-<polygon fill="#000000" stroke="#000000" points="567.05,-34.42 556.46,-34.28 564.65,-41 567.05,-34.42"/>
-</g>
 <!-- module~swiftest_globals -->
-<g id="module~~symba_classes~~UsesGraph_node4" class="node">
+<g id="module~~symba_classes~~UsesGraph_node2" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~symba_classes~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<g id="a_module~~symba_classes~~UsesGraph_node2"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
 <polygon fill="#337ab7" stroke="#337ab7" points="211,-76.24 123,-76.24 123,-52.24 211,-52.24 211,-76.24"/>
 <text text-anchor="middle" x="167" y="-61.84" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~symba_classes~~UsesGraph_edge3" class="edge">
+<g id="module~~symba_classes~~UsesGraph_edge1" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409,-104.24C336.58,-101.07 318.21,-98.81 247,-85.24 237.79,-83.48 228.06,-81.24 218.71,-78.87"/>
 <polygon fill="#000000" stroke="#000000" points="219.31,-75.4 208.75,-76.26 217.54,-82.18 219.31,-75.4"/>
 </g>
 <!-- module~helio_classes -->
-<g id="module~~symba_classes~~UsesGraph_node5" class="node">
+<g id="module~~symba_classes~~UsesGraph_node3" class="node">
 <title>module~helio_classes</title>
-<g id="a_module~~symba_classes~~UsesGraph_node5"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<g id="a_module~~symba_classes~~UsesGraph_node3"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
 <polygon fill="#337ab7" stroke="#337ab7" points="560.5,-76.24 484.5,-76.24 484.5,-52.24 560.5,-52.24 560.5,-76.24"/>
 <text text-anchor="middle" x="522.5" y="-61.84" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
@@ -522,78 +489,109 @@ <h3 class="panel-title">Uses</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M596.98,-64.24C588.47,-64.24 579.46,-64.24 570.76,-64.24"/>
 <polygon fill="#000000" stroke="#000000" points="570.76,-60.74 560.76,-64.24 570.76,-67.74 570.76,-60.74"/>
 </g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~symba_classes~~UsesGraph_edge5" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.97,-64.24C238.75,-64.24 230.07,-64.24 221.59,-64.24"/>
-<polygon fill="#000000" stroke="#000000" points="221.39,-60.74 211.39,-64.24 221.39,-67.74 221.39,-60.74"/>
+<!-- module~swiftest_classes -->
+<g id="module~~symba_classes~~UsesGraph_node4" class="node">
+<title>module~swiftest_classes</title>
+<g id="a_module~~symba_classes~~UsesGraph_node4"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="336,-76.24 247,-76.24 247,-52.24 336,-52.24 336,-76.24"/>
+<text text-anchor="middle" x="291.5" y="-61.84" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+</a>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~symba_classes~~UsesGraph_edge7" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.5,-24.24C261.17,-28.84 229.32,-39.42 205.46,-48.54"/>
-<polygon fill="#000000" stroke="#000000" points="204.11,-45.31 196.07,-52.21 206.66,-51.83 204.11,-45.31"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.71,-10.52C472.34,-7.53 459.77,-4.74 448,-3.24 414.49,1.02 405.5,1.11 372,-3.24 335.76,-7.95 328.6,-18.58 292.5,-24.24"/>
 </g>
-<!-- module~whm_classes -->
-<g id="module~~symba_classes~~UsesGraph_node7" class="node">
-<title>module~whm_classes</title>
-<g id="a_module~~symba_classes~~UsesGraph_node7"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="448,-36.24 372,-36.24 372,-12.24 448,-12.24 448,-36.24"/>
-<text text-anchor="middle" x="410" y="-21.84" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~symba_classes~~UsesGraph_edge3" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.9,-76.31C558.34,-90.08 479.54,-109.98 411,-104.24"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409,-104.24C379.09,-102.93 347.05,-91.09 324.16,-80.63"/>
+<polygon fill="#000000" stroke="#000000" points="325.48,-77.38 314.94,-76.27 322.48,-83.71 325.48,-77.38"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~symba_classes~~UsesGraph_node5" class="node">
+<title>module~rmvs_classes</title>
+<g id="a_module~~symba_classes~~UsesGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="561,-34.24 484,-34.24 484,-10.24 561,-10.24 561,-34.24"/>
+<text text-anchor="middle" x="522.5" y="-19.84" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~symba_classes~~UsesGraph_edge6" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.78,-22.92C475.6,-23.07 466.85,-23.23 458.36,-23.38"/>
-<polygon fill="#000000" stroke="#000000" points="458.11,-19.89 448.17,-23.57 458.24,-26.89 458.11,-19.89"/>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~symba_classes~~UsesGraph_edge2" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M605.55,-52.2C593.28,-47.72 579.17,-42.57 566.15,-37.82"/>
+<polygon fill="#000000" stroke="#000000" points="567.05,-34.42 556.46,-34.28 564.65,-41 567.05,-34.42"/>
 </g>
 <!-- iso_fortran_env -->
-<g id="module~~symba_classes~~UsesGraph_node6" class="node">
+<g id="module~~symba_classes~~UsesGraph_node7" class="node">
 <title>iso_fortran_env</title>
-<g id="a_module~~symba_classes~~UsesGraph_node6"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<g id="a_module~~symba_classes~~UsesGraph_node7"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
 <polygon fill="#337ab7" stroke="#337ab7" points="87,-76.24 0,-76.24 0,-52.24 87,-52.24 87,-76.24"/>
 <text text-anchor="middle" x="43.5" y="-61.84" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~symba_classes~~UsesGraph_edge8" class="edge">
+<g id="module~~symba_classes~~UsesGraph_edge5" class="edge">
 <title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-64.24C114.58,-64.24 105.86,-64.24 97.36,-64.24"/>
 <polygon fill="#000000" stroke="#000000" points="97.13,-60.74 87.13,-64.24 97.13,-67.74 97.13,-60.74"/>
 </g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~symba_classes~~UsesGraph_edge6" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M484.35,-65.78C462.88,-66.29 435.37,-66.28 411,-64.24"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409,-64.24C354.45,-59.67 346.58,-15.76 292.5,-24.24"/>
+</g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~symba_classes~~UsesGraph_edge9" class="edge">
+<g id="module~~symba_classes~~UsesGraph_edge8" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409,-64.24C388.49,-62.52 365.88,-62.17 346.07,-62.37"/>
 <polygon fill="#000000" stroke="#000000" points="345.95,-58.87 336,-62.52 346.05,-65.87 345.95,-58.87"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~symba_classes~~UsesGraph_edge11" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409,-64.24C354.45,-59.67 346.58,-15.76 292.5,-24.24"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M484.35,-65.78C462.88,-66.29 435.37,-66.28 411,-64.24"/>
+<!-- module~whm_classes -->
+<g id="module~~symba_classes~~UsesGraph_node6" class="node">
+<title>module~whm_classes</title>
+<g id="a_module~~symba_classes~~UsesGraph_node6"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="448,-36.24 372,-36.24 372,-12.24 448,-12.24 448,-36.24"/>
+<text text-anchor="middle" x="410" y="-21.84" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+</a>
+</g>
 </g>
 <!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~symba_classes~~UsesGraph_edge10" class="edge">
+<g id="module~~symba_classes~~UsesGraph_edge7" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M488.35,-52.24C477.63,-48.36 465.58,-44 454.24,-39.89"/>
 <polygon fill="#000000" stroke="#000000" points="455.11,-36.48 444.51,-36.37 452.72,-43.07 455.11,-36.48"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~symba_classes~~UsesGraph_edge12" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.05,-36.24C362.52,-40.2 349.53,-44.66 337.37,-48.84"/>
-<polygon fill="#000000" stroke="#000000" points="336.15,-45.55 327.83,-52.11 338.43,-52.17 336.15,-45.55"/>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~symba_classes~~UsesGraph_edge9" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.97,-64.24C238.75,-64.24 230.07,-64.24 221.59,-64.24"/>
+<polygon fill="#000000" stroke="#000000" points="221.39,-60.74 211.39,-64.24 221.39,-67.74 221.39,-60.74"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~symba_classes~~UsesGraph_edge10" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.5,-24.24C261.17,-28.84 229.32,-39.42 205.46,-48.54"/>
+<polygon fill="#000000" stroke="#000000" points="204.11,-45.31 196.07,-52.21 206.66,-51.83 204.11,-45.31"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.71,-10.52C472.34,-7.53 459.77,-4.74 448,-3.24 414.49,1.02 405.5,1.11 372,-3.24 335.76,-7.95 328.6,-18.58 292.5,-24.24"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~symba_classes~~UsesGraph_edge11" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.78,-22.92C475.6,-23.07 466.85,-23.23 458.36,-23.38"/>
+<polygon fill="#000000" stroke="#000000" points="458.11,-19.89 448.17,-23.57 458.24,-26.89 458.11,-19.89"/>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~symba_classes~~UsesGraph_edge13" class="edge">
+<g id="module~~symba_classes~~UsesGraph_edge12" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.78,-21.32C348.8,-20.24 318.78,-20.12 292.5,-24.24"/>
 </g>
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<g id="module~~symba_classes~~UsesGraph_edge13" class="edge">
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M374.05,-36.24C362.52,-40.2 349.53,-44.66 337.37,-48.84"/>
+<polygon fill="#000000" stroke="#000000" points="336.15,-45.55 327.83,-52.11 338.43,-52.17 336.15,-45.55"/>
+</g>
 </g>
 </svg>
 </div><script>var panmodulesymba_classesUsesGraph = svgPanZoom('#modulesymba_classesUsesGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
@@ -703,91 +701,105 @@ <h3 class="panel-title">Used by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~symba_classes~~UsedByGraph Pages: 1 -->
-<svg id="modulesymba_classesUsedByGraph" width="376pt" height="2510pt"
- viewBox="0.00 0.00 376.00 2510.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~symba_classes~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2506)">
+<svg id="modulesymba_classesUsedByGraph" width="376pt" height="2552pt"
+ viewBox="0.00 0.00 376.00 2552.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~symba_classes~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2548)">
 <title>module~~symba_classes~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2506 372,-2506 372,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2548 372,-2548 372,4 -4,4"/>
 <!-- module~symba_classes -->
 <g id="module~~symba_classes~~UsedByGraph_node1" class="node">
 <title>module~symba_classes</title>
-<polygon fill="none" stroke="black" points="85,-1788 0,-1788 0,-1764 85,-1764 85,-1788"/>
-<text text-anchor="middle" x="42.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_classes</text>
+<polygon fill="none" stroke="black" points="85,-1809 0,-1809 0,-1785 85,-1785 85,-1809"/>
+<text text-anchor="middle" x="42.5" y="-1794.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_classes</text>
 </g>
 <!-- module~s_symba_io -->
 <g id="module~~symba_classes~~UsedByGraph_node2" class="node">
 <title>module~s_symba_io</title>
 <g id="a_module~~symba_classes~~UsedByGraph_node2"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-2502 254.5,-2502 254.5,-2478 324.5,-2478 324.5,-2502"/>
-<text text-anchor="middle" x="289.5" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-2544 254.5,-2544 254.5,-2520 324.5,-2520 324.5,-2544"/>
+<text text-anchor="middle" x="289.5" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_io&#45;&gt;module~symba_classes -->
 <g id="module~~symba_classes~~UsedByGraph_edge2" class="edge">
 <title>module~s_symba_io&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M254.24,-2487.69C239.38,-2485.06 222.73,-2479.73 211,-2469 152.28,-2415.28 210.57,-2351.43 149,-2301"/>
+<path fill="none" stroke="#000000" d="M254.24,-2529.69C239.38,-2527.06 222.73,-2521.73 211,-2511 152.28,-2457.28 210.38,-2393.66 149,-2343"/>
 </g>
 <!-- module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_node3" class="node">
+<g id="module~~symba_classes~~UsedByGraph_node12" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="175,-1284 121,-1284 121,-1260 175,-1260 175,-1284"/>
-<text text-anchor="middle" x="148" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~symba_classes~~UsedByGraph_node12"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="175,-1305 121,-1305 121,-1281 175,-1281 175,-1305"/>
+<text text-anchor="middle" x="148" y="-1290.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_io&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge55" class="edge">
+<g id="module~~symba_classes~~UsedByGraph_edge51" class="edge">
 <title>module~s_symba_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.22,-2489.43C238.6,-2487.26 221.33,-2481.8 211,-2469 172.64,-2421.46 152.48,-1453.65 149.41,-1294.16"/>
-<polygon fill="#000000" stroke="#000000" points="152.91,-1294.03 149.22,-1284.1 145.91,-1294.16 152.91,-1294.03"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~symba_classes~~UsedByGraph_edge1" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.44,-1284.46C130.72,-1351.26 65.84,-1667.21 48.03,-1753.93"/>
-<polygon fill="#000000" stroke="#000000" points="44.55,-1753.48 45.97,-1763.98 51.41,-1754.89 44.55,-1753.48"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.22,-2531.44C238.6,-2529.27 221.32,-2523.81 211,-2511 171.99,-2462.61 152.37,-1477.83 149.4,-1315.55"/>
+<polygon fill="#000000" stroke="#000000" points="152.9,-1315.24 149.21,-1305.31 145.9,-1315.37 152.9,-1315.24"/>
 </g>
-<!-- module~s_symba_fragmentation -->
-<g id="module~~symba_classes~~UsedByGraph_node4" class="node">
-<title>module~s_symba_fragmentation</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node4"><a xlink:href=".././module/s_symba_fragmentation.html" xlink:title="s_symba_fragmentation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="353,-2460 226,-2460 226,-2436 353,-2436 353,-2460"/>
-<text text-anchor="middle" x="289.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_fragmentation</text>
+<!-- module~s_symba_kick -->
+<g id="module~~symba_classes~~UsedByGraph_node3" class="node">
+<title>module~s_symba_kick</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node3"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-2502 250,-2502 250,-2478 329,-2478 329,-2502"/>
+<text text-anchor="middle" x="289.5" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~symba_classes -->
+<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
 <g id="module~~symba_classes~~UsedByGraph_edge3" class="edge">
-<title>module~s_symba_fragmentation&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M225.66,-2436.13C220.4,-2433.64 215.41,-2430.63 211,-2427 162.83,-2387.32 197.28,-2340.55 149,-2301"/>
+<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M249.62,-2486.07C236.22,-2483.11 221.87,-2477.95 211,-2469 162.83,-2429.32 197.14,-2382.73 149,-2343"/>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
+<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
 <g id="module~~symba_classes~~UsedByGraph_edge29" class="edge">
-<title>module~s_symba_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M225.75,-2438.86C220.12,-2435.86 215.03,-2431.99 211,-2427 174.01,-2381.25 152.78,-1451.09 149.46,-1294.33"/>
-<polygon fill="#000000" stroke="#000000" points="152.95,-1293.97 149.24,-1284.05 145.96,-1294.12 152.95,-1293.97"/>
+<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.82,-2488.73C235.45,-2486.18 220.37,-2480.6 211,-2469 173.32,-2422.36 152.63,-1473.44 149.44,-1315.26"/>
+<polygon fill="#000000" stroke="#000000" points="152.94,-1315.19 149.24,-1305.26 145.94,-1315.33 152.94,-1315.19"/>
 </g>
 <!-- module~s_symba_encounter_check -->
-<g id="module~~symba_classes~~UsedByGraph_node5" class="node">
+<g id="module~~symba_classes~~UsedByGraph_node4" class="node">
 <title>module~s_symba_encounter_check</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node5"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="361,-2418 218,-2418 218,-2394 361,-2394 361,-2418"/>
-<text text-anchor="middle" x="289.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
+<g id="a_module~~symba_classes~~UsedByGraph_node4"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="361,-2460 218,-2460 218,-2436 361,-2436 361,-2460"/>
+<text text-anchor="middle" x="289.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
-<g id="module~~symba_classes~~UsedByGraph_edge4" class="edge">
+<g id="module~~symba_classes~~UsedByGraph_edge5" class="edge">
 <title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M227.9,-2393.93C221.93,-2391.49 216.18,-2388.54 211,-2385 172.7,-2358.81 184.9,-2330.4 149,-2301"/>
+<path fill="none" stroke="#000000" d="M227.9,-2435.93C221.93,-2433.49 216.18,-2430.54 211,-2427 172.7,-2400.81 184.79,-2372.53 149,-2343"/>
 </g>
 <!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge69" class="edge">
+<g id="module~~symba_classes~~UsedByGraph_edge14" class="edge">
 <title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M220.78,-2393.86C217.13,-2391.39 213.81,-2388.47 211,-2385 175.38,-2341.04 153.09,-1448.31 149.51,-1294.48"/>
-<polygon fill="#000000" stroke="#000000" points="153.01,-1294.26 149.28,-1284.34 146.01,-1294.42 153.01,-1294.26"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M220.78,-2435.87C217.12,-2433.4 213.81,-2430.47 211,-2427 174.7,-2382.14 152.94,-1470.73 149.48,-1315.41"/>
+<polygon fill="#000000" stroke="#000000" points="152.98,-1315.12 149.26,-1305.2 145.98,-1315.27 152.98,-1315.12"/>
+</g>
+<!-- module~s_symba_fragmentation -->
+<g id="module~~symba_classes~~UsedByGraph_node5" class="node">
+<title>module~s_symba_fragmentation</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node5"><a xlink:href=".././module/s_symba_fragmentation.html" xlink:title="s_symba_fragmentation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="353,-2418 226,-2418 226,-2394 353,-2394 353,-2418"/>
+<text text-anchor="middle" x="289.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_fragmentation</text>
+</a>
+</g>
+</g>
+<!-- module~s_symba_fragmentation&#45;&gt;module~symba_classes -->
+<g id="module~~symba_classes~~UsedByGraph_edge4" class="edge">
+<title>module~s_symba_fragmentation&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M234.73,-2393.92C226.62,-2391.39 218.48,-2388.43 211,-2385 180.75,-2371.12 174.67,-2364.18 149,-2343"/>
+</g>
+<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge62" class="edge">
+<title>module~s_symba_fragmentation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M225.76,-2396.84C220.13,-2393.85 215.04,-2389.98 211,-2385 176.06,-2341.92 153.25,-1467.73 149.54,-1315.51"/>
+<polygon fill="#000000" stroke="#000000" points="153.03,-1315.02 149.28,-1305.11 146.03,-1315.19 153.03,-1315.02"/>
 </g>
 <!-- module~s_symba_setup -->
 <g id="module~~symba_classes~~UsedByGraph_node6" class="node">
@@ -799,95 +811,95 @@ <h3 class="panel-title">Used by</h3>
 </g>
 </g>
 <!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
-<g id="module~~symba_classes~~UsedByGraph_edge5" class="edge">
+<g id="module~~symba_classes~~UsedByGraph_edge6" class="edge">
 <title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M245.37,-2355.02C233.93,-2351.91 221.77,-2347.94 211,-2343 180.75,-2329.12 174.75,-2322.09 149,-2301"/>
+<path fill="none" stroke="#000000" d="M245.46,-2368.4C215.25,-2369.12 175.63,-2364.98 149,-2343"/>
 </g>
 <!-- module~s_symba_setup&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge37" class="edge">
+<g id="module~~symba_classes~~UsedByGraph_edge36" class="edge">
 <title>module~s_symba_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.41,-2361.82C232.44,-2358.94 219.44,-2353.39 211,-2343 142.63,-2258.8 147.35,-1441.08 148.75,-1294.45"/>
-<polygon fill="#000000" stroke="#000000" points="152.26,-1294.08 148.86,-1284.04 145.26,-1294.01 152.26,-1294.08"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.41,-2361.81C232.45,-2358.93 219.44,-2353.38 211,-2343 143.99,-2260.57 147.57,-1460.44 148.78,-1315.47"/>
+<polygon fill="#000000" stroke="#000000" points="152.28,-1315.19 148.87,-1305.16 145.28,-1315.12 152.28,-1315.19"/>
 </g>
-<!-- module~s_symba_discard -->
+<!-- module~s_symba_collision -->
 <g id="module~~symba_classes~~UsedByGraph_node7" class="node">
-<title>module~s_symba_discard</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node7"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="337.5,-2334 241.5,-2334 241.5,-2310 337.5,-2310 337.5,-2334"/>
-<text text-anchor="middle" x="289.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
+<title>module~s_symba_collision</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node7"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="339,-2334 240,-2334 240,-2310 339,-2310 339,-2334"/>
+<text text-anchor="middle" x="289.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
-<g id="module~~symba_classes~~UsedByGraph_edge6" class="edge">
-<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M241.28,-2326.4C211.7,-2326.61 174.48,-2321.87 149,-2301"/>
+<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
+<g id="module~~symba_classes~~UsedByGraph_edge9" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M239.82,-2332.9C202.45,-2340.69 156.06,-2348.83 149,-2343"/>
 </g>
-<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge25" class="edge">
-<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M241.37,-2318.82C229.8,-2315.72 218.57,-2310.3 211,-2301 145.34,-2220.34 147.8,-1437.74 148.81,-1294.47"/>
-<polygon fill="#000000" stroke="#000000" points="152.31,-1294.28 148.89,-1284.26 145.31,-1294.23 152.31,-1294.28"/>
+<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge46" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M239.77,-2318.36C228.77,-2315.2 218.22,-2309.86 211,-2301 146.69,-2222.1 148.04,-1456.9 148.84,-1315.43"/>
+<polygon fill="#000000" stroke="#000000" points="152.34,-1315.03 148.91,-1305.01 145.34,-1314.99 152.34,-1315.03"/>
 </g>
-<!-- module~s_symba_kick -->
+<!-- module~s_symba_drift -->
 <g id="module~~symba_classes~~UsedByGraph_node8" class="node">
-<title>module~s_symba_kick</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node8"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<title>module~s_symba_drift</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node8"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
 <polygon fill="#5bc0de" stroke="#5bc0de" points="329,-2292 250,-2292 250,-2268 329,-2268 329,-2292"/>
-<text text-anchor="middle" x="289.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
+<text text-anchor="middle" x="289.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
+<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
 <g id="module~~symba_classes~~UsedByGraph_edge7" class="edge">
-<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M249.7,-2288.8C211.16,-2297.08 156.72,-2307.32 149,-2301"/>
+<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M249.78,-2287.82C237.1,-2291.07 223.16,-2295.42 211,-2301 180.75,-2314.88 174.67,-2364.18 149,-2343"/>
 </g>
-<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge67" class="edge">
-<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.88,-2278.68C235.52,-2276.12 220.43,-2270.56 211,-2259 148.05,-2181.86 148.27,-1434.06 148.87,-1294.4"/>
-<polygon fill="#000000" stroke="#000000" points="152.37,-1294.11 148.92,-1284.09 145.37,-1294.08 152.37,-1294.11"/>
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge20" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.89,-2278.68C235.53,-2276.11 220.44,-2270.55 211,-2259 149.39,-2183.61 148.52,-1453.15 148.9,-1315.36"/>
+<polygon fill="#000000" stroke="#000000" points="152.41,-1315.18 148.94,-1305.17 145.41,-1315.16 152.41,-1315.18"/>
 </g>
-<!-- module~s_symba_collision -->
+<!-- module~s_symba_discard -->
 <g id="module~~symba_classes~~UsedByGraph_node9" class="node">
-<title>module~s_symba_collision</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node9"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="339,-2250 240,-2250 240,-2226 339,-2226 339,-2250"/>
-<text text-anchor="middle" x="289.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
+<title>module~s_symba_discard</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node9"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="337.5,-2250 241.5,-2250 241.5,-2226 337.5,-2226 337.5,-2250"/>
+<text text-anchor="middle" x="289.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
+<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
 <g id="module~~symba_classes~~UsedByGraph_edge8" class="edge">
-<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M239.67,-2248.59C229.96,-2251.42 220,-2254.87 211,-2259 180.75,-2272.88 174.75,-2322.09 149,-2301"/>
+<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M241.22,-2245.44C230.68,-2248.52 219.98,-2252.86 211,-2259 172.7,-2285.19 184.79,-2372.53 149,-2343"/>
 </g>
-<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge68" class="edge">
-<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M239.79,-2234.34C228.79,-2231.18 218.24,-2225.85 211,-2217 150.74,-2143.36 148.76,-1430.18 148.94,-1294.3"/>
-<polygon fill="#000000" stroke="#000000" points="152.44,-1294.24 148.96,-1284.24 145.44,-1294.23 152.44,-1294.24"/>
+<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge47" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M241.42,-2234.78C229.84,-2231.68 218.6,-2226.27 211,-2217 152.14,-2145.18 149.02,-1450.53 148.97,-1315.63"/>
+<polygon fill="#000000" stroke="#000000" points="152.47,-1315.29 148.98,-1305.29 145.47,-1315.29 152.47,-1315.29"/>
 </g>
-<!-- module~s_symba_drift -->
+<!-- module~s_symba_step -->
 <g id="module~~symba_classes~~UsedByGraph_node10" class="node">
-<title>module~s_symba_drift</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node10"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-2208 250,-2208 250,-2184 329,-2184 329,-2208"/>
-<text text-anchor="middle" x="289.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
+<title>module~s_symba_step</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node10"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-2208 248.5,-2208 248.5,-2184 330.5,-2184 330.5,-2208"/>
+<text text-anchor="middle" x="289.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
-<g id="module~~symba_classes~~UsedByGraph_edge9" class="edge">
-<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M249.66,-2201.22C236.56,-2204.3 222.39,-2209.21 211,-2217 172.7,-2243.19 184.9,-2330.4 149,-2301"/>
+<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
+<g id="module~~symba_classes~~UsedByGraph_edge10" class="edge">
+<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M248.43,-2200.2C235.37,-2203.2 221.54,-2208.31 211,-2217 162.83,-2256.68 197.14,-2382.73 149,-2343"/>
 </g>
-<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge44" class="edge">
-<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.92,-2194.66C235.56,-2192.09 220.46,-2186.53 211,-2175 153.42,-2104.85 149.27,-1425.96 149.01,-1294.12"/>
-<polygon fill="#000000" stroke="#000000" points="152.51,-1294.01 149,-1284.01 145.51,-1294.02 152.51,-1294.01"/>
+<!-- module~s_symba_step&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge69" class="edge">
+<title>module~s_symba_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M248.31,-2194.35C234.45,-2191.66 220.12,-2186.09 211,-2175 154.81,-2106.66 149.54,-1446.11 149.05,-1315.41"/>
+<polygon fill="#000000" stroke="#000000" points="152.55,-1315.04 149.02,-1305.05 145.55,-1315.06 152.55,-1315.04"/>
 </g>
 <!-- module~s_symba_util -->
 <g id="module~~symba_classes~~UsedByGraph_node11" class="node">
@@ -899,787 +911,788 @@ <h3 class="panel-title">Used by</h3>
 </g>
 </g>
 <!-- module~s_symba_util&#45;&gt;module~symba_classes -->
-<g id="module~~symba_classes~~UsedByGraph_edge10" class="edge">
+<g id="module~~symba_classes~~UsedByGraph_edge11" class="edge">
 <title>module~s_symba_util&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M252,-2157.42C237.94,-2160.29 222.51,-2165.52 211,-2175 162.83,-2214.68 197.28,-2340.55 149,-2301"/>
+<path fill="none" stroke="#000000" d="M147,-2343C64.23,-2274.69 47.16,-1912.81 44.1,-1819.15"/>
+<polygon fill="#000000" stroke="#000000" points="47.6,-1818.98 43.8,-1809.09 40.6,-1819.19 47.6,-1818.98"/>
+<path fill="none" stroke="#000000" d="M251.88,-2156.75C237.64,-2159.51 222.11,-2164.84 211,-2175 152.28,-2228.72 210.38,-2393.66 149,-2343"/>
 </g>
 <!-- module~s_symba_util&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge70" class="edge">
+<g id="module~~symba_classes~~UsedByGraph_edge48" class="edge">
 <title>module~s_symba_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M251.94,-2152.98C237,-2150.58 220.93,-2145.05 211,-2133 156.14,-2066.4 149.81,-1422.83 149.09,-1294.28"/>
-<polygon fill="#000000" stroke="#000000" points="152.59,-1294.06 149.04,-1284.08 145.59,-1294.09 152.59,-1294.06"/>
-</g>
-<!-- module~s_symba_step -->
-<g id="module~~symba_classes~~UsedByGraph_node12" class="node">
-<title>module~s_symba_step</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node12"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="330.5,-2124 248.5,-2124 248.5,-2100 330.5,-2100 330.5,-2124"/>
-<text text-anchor="middle" x="289.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M251.95,-2152.97C237.01,-2150.57 220.94,-2145.04 211,-2133 157.47,-2068.13 150.08,-1441.48 149.13,-1315.13"/>
+<polygon fill="#000000" stroke="#000000" points="152.63,-1315.07 149.06,-1305.09 145.63,-1315.11 152.63,-1315.07"/>
 </g>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~symba_classes~~UsedByGraph_edge1" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.44,-1305.46C130.72,-1372.26 65.84,-1688.21 48.03,-1774.93"/>
+<polygon fill="#000000" stroke="#000000" points="44.55,-1774.48 45.97,-1784.98 51.41,-1775.89 44.55,-1774.48"/>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
-<g id="module~~symba_classes~~UsedByGraph_edge11" class="edge">
-<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M147,-2301C67.31,-2235.73 48.02,-1889.61 44.28,-1798.17"/>
-<polygon fill="#000000" stroke="#000000" points="47.78,-1797.95 43.89,-1788.1 40.78,-1798.23 47.78,-1797.95"/>
-<path fill="none" stroke="#000000" d="M248.3,-2115.5C235.08,-2118.43 221.18,-2123.68 211,-2133 152.28,-2186.72 210.57,-2351.43 149,-2301"/>
-</g>
-<!-- module~s_symba_step&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge71" class="edge">
-<title>module~s_symba_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M248.35,-2110.32C234.48,-2107.63 220.15,-2102.07 211,-2091 158.85,-2027.92 150.37,-1419.29 149.18,-1294.35"/>
-<polygon fill="#000000" stroke="#000000" points="152.68,-1294.06 149.09,-1284.09 145.68,-1294.12 152.68,-1294.06"/>
-</g>
-<!-- module~s_obl -->
+<!-- module~s_setup -->
 <g id="module~~symba_classes~~UsedByGraph_node13" class="node">
-<title>module~s_obl</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node13"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-822 262.5,-822 262.5,-798 316.5,-798 316.5,-822"/>
-<text text-anchor="middle" x="289.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
+<title>module~s_setup</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node13"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-864 262.5,-864 262.5,-840 316.5,-840 316.5,-864"/>
+<text text-anchor="middle" x="289.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_obl&#45;&gt;module~swiftest -->
+<!-- module~s_setup&#45;&gt;module~swiftest -->
 <g id="module~~symba_classes~~UsedByGraph_edge12" class="edge">
-<title>module~s_obl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.39,-810.08C245.25,-811.6 223.73,-816.57 211,-831 155.31,-894.12 149.5,-1168.94 149.01,-1249.64"/>
-<polygon fill="#000000" stroke="#000000" points="145.51,-1249.69 148.97,-1259.7 152.51,-1249.71 145.51,-1249.69"/>
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.43,-852.11C245.3,-853.64 223.78,-858.62 211,-873 157.93,-932.74 150.28,-1192.6 149.18,-1270.71"/>
+<polygon fill="#000000" stroke="#000000" points="145.68,-1270.83 149.06,-1280.87 152.68,-1270.91 145.68,-1270.83"/>
 </g>
-<!-- module~s_util_solve -->
+<!-- module~drift_implementation -->
 <g id="module~~symba_classes~~UsedByGraph_node14" class="node">
-<title>module~s_util_solve</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node14"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="323.5,-780 255.5,-780 255.5,-756 323.5,-756 323.5,-780"/>
-<text text-anchor="middle" x="289.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
+<title>module~drift_implementation</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node14"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="344,-822 235,-822 235,-798 344,-798 344,-822"/>
+<text text-anchor="middle" x="289.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<!-- module~drift_implementation&#45;&gt;module~swiftest -->
 <g id="module~~symba_classes~~UsedByGraph_edge13" class="edge">
-<title>module~s_util_solve&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.43,-768.81C239.71,-770.99 221.99,-776.39 211,-789 150,-858.99 148.03,-1164.42 148.7,-1249.77"/>
-<polygon fill="#000000" stroke="#000000" points="145.21,-1249.93 148.81,-1259.9 152.21,-1249.86 145.21,-1249.93"/>
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M234.61,-815.81C225.65,-819.05 217.25,-823.87 211,-831 152.6,-897.61 148.74,-1188.2 148.85,-1270.94"/>
+<polygon fill="#000000" stroke="#000000" points="145.35,-1271 148.89,-1280.99 152.35,-1270.98 145.35,-1271"/>
 </g>
-<!-- module~s_util_spill -->
+<!-- module~s_rmvs_kick -->
 <g id="module~~symba_classes~~UsedByGraph_node15" class="node">
-<title>module~s_util_spill</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node15"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="320,-738 259,-738 259,-714 320,-714 320,-738"/>
-<text text-anchor="middle" x="289.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node15"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="325,-780 254,-780 254,-756 325,-756 325,-780"/>
+<text text-anchor="middle" x="289.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_spill&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge14" class="edge">
-<title>module~s_util_spill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.88,-726.32C242.33,-728.16 222.75,-733.38 211,-747 177.62,-785.69 155.4,-1154.31 150.18,-1249.6"/>
-<polygon fill="#000000" stroke="#000000" points="146.69,-1249.43 149.64,-1259.6 153.68,-1249.8 146.69,-1249.43"/>
+<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge15" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M253.82,-769.01C238.5,-771.33 221.59,-776.78 211,-789 147.37,-862.38 147.34,-1182.82 148.57,-1270.66"/>
+<polygon fill="#000000" stroke="#000000" points="145.07,-1270.89 148.73,-1280.83 152.07,-1270.78 145.07,-1270.89"/>
 </g>
-<!-- module~s_helio_kick -->
+<!-- module~s_rmvs_chk -->
 <g id="module~~symba_classes~~UsedByGraph_node16" class="node">
-<title>module~s_helio_kick</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node16"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-696 254.5,-696 254.5,-672 324.5,-672 324.5,-696"/>
-<text text-anchor="middle" x="289.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
+<title>module~s_rmvs_chk</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node16"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-738 254.5,-738 254.5,-714 324.5,-714 324.5,-738"/>
+<text text-anchor="middle" x="289.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge15" class="edge">
-<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.14,-684.89C238.7,-687.15 221.6,-692.61 211,-705 174.94,-747.16 154.5,-1150.05 149.97,-1249.76"/>
-<polygon fill="#000000" stroke="#000000" points="146.46,-1249.76 149.51,-1259.9 153.46,-1250.07 146.46,-1249.76"/>
+<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge16" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.17,-726.91C238.73,-729.18 221.63,-734.63 211,-747 176.32,-787.38 154.99,-1172.27 150.09,-1270.35"/>
+<polygon fill="#000000" stroke="#000000" points="146.58,-1270.45 149.58,-1280.61 153.57,-1270.79 146.58,-1270.45"/>
 </g>
-<!-- module~s_util_append -->
+<!-- module~s_util_get_energy_momentum -->
 <g id="module~~symba_classes~~UsedByGraph_node17" class="node">
-<title>module~s_util_append</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node17"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-654 250,-654 250,-630 329,-630 329,-654"/>
-<text text-anchor="middle" x="289.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node17"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="368,-696 211,-696 211,-672 368,-672 368,-696"/>
+<text text-anchor="middle" x="289.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_append&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge16" class="edge">
-<title>module~s_util_append&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.71,-643.58C235.49,-646.2 220.56,-651.73 211,-663 172.26,-708.63 153.69,-1145.6 149.79,-1249.78"/>
-<polygon fill="#000000" stroke="#000000" points="146.29,-1249.69 149.42,-1259.81 153.29,-1249.94 146.29,-1249.69"/>
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge17" class="edge">
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M221.32,-696.07C217.49,-698.55 213.98,-701.5 211,-705 173.58,-748.92 154.07,-1169.2 149.87,-1270.91"/>
+<polygon fill="#000000" stroke="#000000" points="146.37,-1270.84 149.46,-1280.97 153.36,-1271.12 146.37,-1270.84"/>
 </g>
-<!-- module~s_discard -->
+<!-- module~s_util_coord -->
 <g id="module~~symba_classes~~UsedByGraph_node18" class="node">
-<title>module~s_discard</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node18"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="318.5,-612 260.5,-612 260.5,-588 318.5,-588 318.5,-612"/>
-<text text-anchor="middle" x="289.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
+<title>module~s_util_coord</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node18"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-654 254.5,-654 254.5,-630 324.5,-630 324.5,-654"/>
+<text text-anchor="middle" x="289.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_discard&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge17" class="edge">
-<title>module~s_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.3,-600.07C243.4,-601.71 222.95,-606.83 211,-621 169.6,-670.09 152.95,-1140.87 149.64,-1249.65"/>
-<polygon fill="#000000" stroke="#000000" points="146.14,-1249.7 149.34,-1259.8 153.13,-1249.91 146.14,-1249.7"/>
+<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge18" class="edge">
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.48,-642.78C238.92,-645 221.62,-650.44 211,-663 170.94,-710.36 153.32,-1164.2 149.71,-1270.71"/>
+<polygon fill="#000000" stroke="#000000" points="146.21,-1270.82 149.37,-1280.93 153.2,-1271.05 146.21,-1270.82"/>
 </g>
-<!-- module~drift_implementation -->
+<!-- module~s_util_set -->
 <g id="module~~symba_classes~~UsedByGraph_node19" class="node">
-<title>module~drift_implementation</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node19"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="344,-570 235,-570 235,-546 344,-546 344,-570"/>
-<text text-anchor="middle" x="289.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
+<title>module~s_util_set</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node19"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="318.5,-612 260.5,-612 260.5,-588 318.5,-588 318.5,-612"/>
+<text text-anchor="middle" x="289.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
 </a>
 </g>
 </g>
-<!-- module~drift_implementation&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge18" class="edge">
-<title>module~drift_implementation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M234.75,-563.45C225.66,-566.71 217.18,-571.63 211,-579 166.92,-631.58 152.25,-1136.66 149.5,-1249.65"/>
-<polygon fill="#000000" stroke="#000000" points="146,-1249.79 149.26,-1259.87 153,-1249.96 146,-1249.79"/>
+<!-- module~s_util_set&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge19" class="edge">
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.28,-600.06C243.38,-601.69 222.93,-606.81 211,-621 168.26,-671.83 152.59,-1159.73 149.57,-1270.64"/>
+<polygon fill="#000000" stroke="#000000" points="146.06,-1270.88 149.3,-1280.97 153.06,-1271.06 146.06,-1270.88"/>
 </g>
-<!-- module~s_helio_step -->
+<!-- module~s_util_rescale -->
 <g id="module~~symba_classes~~UsedByGraph_node20" class="node">
-<title>module~s_helio_step</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node20"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-528 253,-528 253,-504 326,-504 326,-528"/>
-<text text-anchor="middle" x="289.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
+<title>module~s_util_rescale</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node20"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="328.5,-570 250.5,-570 250.5,-546 328.5,-546 328.5,-570"/>
+<text text-anchor="middle" x="289.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_rescale</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_step&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge19" class="edge">
-<title>module~s_helio_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.81,-516.95C237.66,-519.3 221.18,-524.8 211,-537 164.27,-593.03 151.6,-1131.85 149.39,-1249.42"/>
-<polygon fill="#000000" stroke="#000000" points="145.88,-1249.67 149.2,-1259.73 152.88,-1249.79 145.88,-1249.67"/>
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge21" class="edge">
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M250.43,-559.36C235.96,-561.91 220.66,-567.45 211,-579 165.57,-633.33 151.91,-1155.73 149.44,-1270.7"/>
+<polygon fill="#000000" stroke="#000000" points="145.94,-1270.72 149.23,-1280.79 152.94,-1270.87 145.94,-1270.72"/>
 </g>
-<!-- module~s_helio_coord -->
+<!-- module~s_util_version -->
 <g id="module~~symba_classes~~UsedByGraph_node21" class="node">
-<title>module~s_helio_coord</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node21"><a xlink:href=".././module/s_helio_coord.html" xlink:title="s_helio_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-486 250,-486 250,-462 329,-462 329,-486"/>
-<text text-anchor="middle" x="289.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_coord</text>
+<title>module~s_util_version</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node21"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="328.5,-528 250.5,-528 250.5,-504 328.5,-504 328.5,-528"/>
+<text text-anchor="middle" x="289.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge20" class="edge">
-<title>module~s_helio_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.98,-475.4C235.63,-477.97 220.53,-483.52 211,-495 161.54,-554.57 150.96,-1128.65 149.27,-1249.67"/>
-<polygon fill="#000000" stroke="#000000" points="145.77,-1249.89 149.14,-1259.94 152.77,-1249.99 145.77,-1249.89"/>
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge22" class="edge">
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M250.4,-517.34C235.93,-519.88 220.63,-525.43 211,-537 162.86,-594.86 151.25,-1152.34 149.32,-1270.9"/>
+<polygon fill="#000000" stroke="#000000" points="145.82,-1270.92 149.17,-1280.97 152.82,-1271.03 145.82,-1270.92"/>
 </g>
-<!-- module~s_rmvs_util -->
+<!-- module~s_util_minimize_bfgs -->
 <g id="module~~symba_classes~~UsedByGraph_node22" class="node">
-<title>module~s_rmvs_util</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node22"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="323,-444 256,-444 256,-420 323,-420 323,-444"/>
-<text text-anchor="middle" x="289.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node22"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="345.5,-486 233.5,-486 233.5,-462 345.5,-462 345.5,-486"/>
+<text text-anchor="middle" x="289.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge21" class="edge">
-<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.93,-432.46C239.95,-434.51 221.84,-439.89 211,-453 158.85,-516.08 150.37,-1124.71 149.18,-1249.65"/>
-<polygon fill="#000000" stroke="#000000" points="145.68,-1249.88 149.09,-1259.91 152.68,-1249.94 145.68,-1249.88"/>
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge23" class="edge">
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M233.5,-479.82C224.86,-483.09 216.87,-487.92 211,-495 160.17,-556.35 150.65,-1148.23 149.22,-1270.84"/>
+<polygon fill="#000000" stroke="#000000" points="145.72,-1270.88 149.11,-1280.92 152.72,-1270.96 145.72,-1270.88"/>
 </g>
-<!-- module~s_util_resize -->
+<!-- module~s_rmvs_discard -->
 <g id="module~~symba_classes~~UsedByGraph_node23" class="node">
-<title>module~s_util_resize</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node23"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="325.5,-402 253.5,-402 253.5,-378 325.5,-378 325.5,-402"/>
-<text text-anchor="middle" x="289.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
+<title>module~s_rmvs_discard</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node23"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="333.5,-444 245.5,-444 245.5,-420 333.5,-420 333.5,-444"/>
+<text text-anchor="middle" x="289.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_resize&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge22" class="edge">
-<title>module~s_util_resize&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M253.14,-390.83C237.87,-393.13 221.19,-398.63 211,-411 156.14,-477.6 149.81,-1121.17 149.09,-1249.72"/>
-<polygon fill="#000000" stroke="#000000" points="145.59,-1249.91 149.04,-1259.92 152.59,-1249.94 145.59,-1249.91"/>
+<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge24" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.1,-434.35C232.27,-437.26 219.43,-442.79 211,-453 157.47,-517.87 150.08,-1144.52 149.13,-1270.87"/>
+<polygon fill="#000000" stroke="#000000" points="145.63,-1270.89 149.06,-1280.91 152.63,-1270.93 145.63,-1270.89"/>
 </g>
-<!-- module~s_operator_cross -->
+<!-- proc~solve_wbs -->
 <g id="module~~symba_classes~~UsedByGraph_node24" class="node">
-<title>module~s_operator_cross</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node24"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="337.5,-360 241.5,-360 241.5,-336 337.5,-336 337.5,-360"/>
-<text text-anchor="middle" x="289.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
+<title>proc~solve_wbs</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node24"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="320.5,-402 258.5,-402 258.5,-378 320.5,-378 320.5,-402"/>
+<text text-anchor="middle" x="289.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge23" class="edge">
-<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M241.43,-351.22C229.85,-354.32 218.61,-359.73 211,-369 153.42,-439.15 149.27,-1118.04 149.01,-1249.88"/>
-<polygon fill="#000000" stroke="#000000" points="145.51,-1249.98 149,-1259.99 152.51,-1249.99 145.51,-1249.98"/>
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge25" class="edge">
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.25,-390.16C241.71,-391.97 222.33,-397.22 211,-411 154.81,-479.34 149.54,-1139.89 149.05,-1270.59"/>
+<polygon fill="#000000" stroke="#000000" points="145.55,-1270.94 149.02,-1280.95 152.55,-1270.96 145.55,-1270.94"/>
 </g>
-<!-- module~s_user_kick_getacch -->
+<!-- module~s_gr -->
 <g id="module~~symba_classes~~UsedByGraph_node25" class="node">
-<title>module~s_user_kick_getacch</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node25"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="345.5,-318 233.5,-318 233.5,-294 345.5,-294 345.5,-318"/>
-<text text-anchor="middle" x="289.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
+<title>module~s_gr</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node25"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-360 262.5,-360 262.5,-336 316.5,-336 316.5,-360"/>
+<text text-anchor="middle" x="289.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge24" class="edge">
-<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M233.43,-311.77C224.8,-315.04 216.83,-319.88 211,-327 150.74,-400.64 148.76,-1113.82 148.94,-1249.7"/>
-<polygon fill="#000000" stroke="#000000" points="145.44,-1249.77 148.96,-1259.76 152.44,-1249.76 145.44,-1249.77"/>
+<!-- module~s_gr&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge26" class="edge">
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.43,-347.76C245.08,-349.11 223.28,-354.01 211,-369 152.14,-440.82 149.02,-1135.47 148.97,-1270.37"/>
+<polygon fill="#000000" stroke="#000000" points="145.47,-1270.71 148.98,-1280.71 152.47,-1270.71 145.47,-1270.71"/>
 </g>
-<!-- module~s_eucl -->
+<!-- module~s_kick -->
 <g id="module~~symba_classes~~UsedByGraph_node26" class="node">
-<title>module~s_eucl</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node26"><a xlink:href=".././module/s_eucl.html" xlink:title="s_eucl">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-276 262.5,-276 262.5,-252 316.5,-252 316.5,-276"/>
-<text text-anchor="middle" x="289.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_eucl</text>
+<title>module~s_kick</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node26"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-318 262.5,-318 262.5,-294 316.5,-294 316.5,-318"/>
+<text text-anchor="middle" x="289.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_eucl&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge26" class="edge">
-<title>module~s_eucl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.41,-263.74C245.05,-265.09 223.25,-269.99 211,-285 148.05,-362.14 148.27,-1109.94 148.87,-1249.6"/>
-<polygon fill="#000000" stroke="#000000" points="145.37,-1249.92 148.92,-1259.91 152.37,-1249.89 145.37,-1249.92"/>
+<!-- module~s_kick&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge27" class="edge">
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.42,-305.75C245.06,-307.09 223.26,-312 211,-327 149.39,-402.39 148.52,-1132.85 148.9,-1270.64"/>
+<polygon fill="#000000" stroke="#000000" points="145.41,-1270.84 148.94,-1280.83 152.41,-1270.82 145.41,-1270.84"/>
 </g>
-<!-- module~s_rmvs_discard -->
+<!-- module~s_util_resize -->
 <g id="module~~symba_classes~~UsedByGraph_node27" class="node">
-<title>module~s_rmvs_discard</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node27"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="333.5,-234 245.5,-234 245.5,-210 333.5,-210 333.5,-234"/>
-<text text-anchor="middle" x="289.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
+<title>module~s_util_resize</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node27"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="325.5,-276 253.5,-276 253.5,-252 325.5,-252 325.5,-276"/>
+<text text-anchor="middle" x="289.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge27" class="edge">
-<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M245.42,-224.19C232.46,-227.07 219.45,-232.62 211,-243 145.34,-323.66 147.8,-1106.26 148.81,-1249.53"/>
-<polygon fill="#000000" stroke="#000000" points="145.31,-1249.77 148.89,-1259.74 152.31,-1249.72 145.31,-1249.77"/>
+<!-- module~s_util_resize&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge28" class="edge">
+<title>module~s_util_resize&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M253.48,-264.73C238.09,-266.98 221.22,-272.47 211,-285 146.69,-363.9 148.04,-1129.1 148.84,-1270.57"/>
+<polygon fill="#000000" stroke="#000000" points="145.34,-1271.01 148.91,-1280.99 152.34,-1270.97 145.34,-1271.01"/>
 </g>
-<!-- module~s_util_coord -->
+<!-- module~s_whm_util -->
 <g id="module~~symba_classes~~UsedByGraph_node28" class="node">
-<title>module~s_util_coord</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node28"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-192 254.5,-192 254.5,-168 324.5,-168 324.5,-192"/>
-<text text-anchor="middle" x="289.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
+<title>module~s_whm_util</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node28"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-234 256.5,-234 256.5,-210 322.5,-210 322.5,-234"/>
+<text text-anchor="middle" x="289.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge28" class="edge">
-<title>module~s_util_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.26,-180.6C238.64,-182.77 221.37,-188.23 211,-201 142.63,-285.2 147.35,-1102.92 148.75,-1249.55"/>
-<polygon fill="#000000" stroke="#000000" points="145.26,-1249.99 148.86,-1259.96 152.26,-1249.92 145.26,-1249.99"/>
+<!-- module~s_whm_util&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge30" class="edge">
+<title>module~s_whm_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.24,-222.34C240.13,-224.33 221.82,-229.7 211,-243 143.99,-325.43 147.57,-1125.56 148.78,-1270.53"/>
+<polygon fill="#000000" stroke="#000000" points="145.28,-1270.88 148.87,-1280.84 152.28,-1270.81 145.28,-1270.88"/>
 </g>
-<!-- module~s_whm_kick -->
+<!-- module~s_util_spill -->
 <g id="module~~symba_classes~~UsedByGraph_node29" class="node">
-<title>module~s_whm_kick</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node29"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-150 254.5,-150 254.5,-126 324.5,-126 324.5,-150"/>
-<text text-anchor="middle" x="289.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
+<title>module~s_util_spill</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node29"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="320,-192 259,-192 259,-168 320,-168 320,-192"/>
+<text text-anchor="middle" x="289.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge30" class="edge">
-<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.25,-138.59C238.63,-140.76 221.35,-146.22 211,-159 175.38,-202.96 153.09,-1095.69 149.51,-1249.52"/>
-<polygon fill="#000000" stroke="#000000" points="146.01,-1249.58 149.28,-1259.66 153.01,-1249.74 146.01,-1249.58"/>
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge31" class="edge">
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.95,-180.03C242.22,-181.73 222.42,-186.93 211,-201 176.06,-244.08 153.25,-1118.27 149.54,-1270.49"/>
+<polygon fill="#000000" stroke="#000000" points="146.03,-1270.81 149.28,-1280.89 153.03,-1270.98 146.03,-1270.81"/>
 </g>
-<!-- module~s_util_valid -->
+<!-- proc~ge_wpp -->
 <g id="module~~symba_classes~~UsedByGraph_node30" class="node">
-<title>module~s_util_valid</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node30"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="322,-108 257,-108 257,-84 322,-84 322,-108"/>
-<text text-anchor="middle" x="289.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
+<title>proc~ge_wpp</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node30"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="316.5,-150 262.5,-150 262.5,-126 316.5,-126 316.5,-150"/>
+<text text-anchor="middle" x="289.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_valid&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge31" class="edge">
-<title>module~s_util_valid&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.99,-96.22C240.69,-98.13 221.96,-103.45 211,-117 174.01,-162.75 152.78,-1092.91 149.46,-1249.67"/>
-<polygon fill="#000000" stroke="#000000" points="145.96,-1249.88 149.24,-1259.95 152.95,-1250.03 145.96,-1249.88"/>
+<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge32" class="edge">
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.37,-137.71C244.99,-139.04 223.19,-143.94 211,-159 174.7,-203.86 152.94,-1115.27 149.48,-1270.59"/>
+<polygon fill="#000000" stroke="#000000" points="145.98,-1270.73 149.26,-1280.8 152.98,-1270.88 145.98,-1270.73"/>
 </g>
-<!-- module~s_util_set -->
+<!-- module~s_orbel -->
 <g id="module~~symba_classes~~UsedByGraph_node31" class="node">
-<title>module~s_util_set</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node31"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="318.5,-66 260.5,-66 260.5,-42 318.5,-42 318.5,-66"/>
-<text text-anchor="middle" x="289.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
+<title>module~s_orbel</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node31"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-108 262.5,-108 262.5,-84 316.5,-84 316.5,-108"/>
+<text text-anchor="middle" x="289.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_set&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge32" class="edge">
-<title>module~s_util_set&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.47,-53.86C243.41,-55.39 222.73,-60.46 211,-75 172.64,-122.54 152.48,-1090.35 149.41,-1249.84"/>
-<polygon fill="#000000" stroke="#000000" points="145.91,-1249.84 149.22,-1259.9 152.91,-1249.97 145.91,-1249.84"/>
+<!-- module~s_orbel&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge33" class="edge">
+<title>module~s_orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.36,-95.7C244.98,-97.03 223.18,-101.93 211,-117 173.32,-163.64 152.63,-1112.56 149.44,-1270.74"/>
+<polygon fill="#000000" stroke="#000000" points="145.94,-1270.67 149.24,-1280.74 152.94,-1270.81 145.94,-1270.67"/>
 </g>
-<!-- module~s_util_exit -->
+<!-- module~s_helio_drift -->
 <g id="module~~symba_classes~~UsedByGraph_node32" class="node">
-<title>module~s_util_exit</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node32"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="319.5,-24 259.5,-24 259.5,0 319.5,0 319.5,-24"/>
-<text text-anchor="middle" x="289.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
+<title>module~s_helio_drift</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node32"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-66 254.5,-66 254.5,-42 324.5,-42 324.5,-66"/>
+<text text-anchor="middle" x="289.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge33" class="edge">
-<title>module~s_util_exit&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.31,-11.96C242.48,-13.61 222.46,-18.78 211,-33 171.29,-82.29 152.23,-1086.06 149.38,-1249.57"/>
-<polygon fill="#000000" stroke="#000000" points="145.87,-1249.81 149.2,-1259.87 152.87,-1249.93 145.87,-1249.81"/>
+<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge34" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.22,-54.56C238.6,-56.73 221.32,-62.19 211,-75 171.99,-123.39 152.37,-1108.17 149.4,-1270.45"/>
+<polygon fill="#000000" stroke="#000000" points="145.9,-1270.63 149.21,-1280.69 152.9,-1270.76 145.9,-1270.63"/>
 </g>
-<!-- program~swiftest_driver -->
+<!-- module~s_operator_cross -->
 <g id="module~~symba_classes~~UsedByGraph_node33" class="node">
-<title>program~swiftest_driver</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node33"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="330,-2082 249,-2082 249,-2058 330,-2058 330,-2082"/>
-<text text-anchor="middle" x="289.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
+<title>module~s_operator_cross</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node33"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="337.5,-24 241.5,-24 241.5,0 337.5,0 337.5,-24"/>
+<text text-anchor="middle" x="289.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
 </a>
 </g>
 </g>
-<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge34" class="edge">
-<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M248.77,-2068.38C234.79,-2065.71 220.26,-2060.15 211,-2049 161.54,-1989.43 150.96,-1415.35 149.27,-1294.33"/>
-<polygon fill="#000000" stroke="#000000" points="152.77,-1294.01 149.14,-1284.06 145.77,-1294.11 152.77,-1294.01"/>
+<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge35" class="edge">
+<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M241.31,-15.13C229.73,-18.23 218.52,-23.66 211,-33 170.64,-83.14 152.12,-1103.92 149.37,-1270.2"/>
+<polygon fill="#000000" stroke="#000000" points="145.86,-1270.61 149.19,-1280.67 152.86,-1270.72 145.86,-1270.61"/>
 </g>
-<!-- module~s_rmvs_kick -->
+<!-- program~swiftest_driver -->
 <g id="module~~symba_classes~~UsedByGraph_node34" class="node">
-<title>module~s_rmvs_kick</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node34"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="325,-2040 254,-2040 254,-2016 325,-2016 325,-2040"/>
-<text text-anchor="middle" x="289.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
+<title>program~swiftest_driver</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node34"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="330,-2124 249,-2124 249,-2100 330,-2100 330,-2124"/>
+<text text-anchor="middle" x="289.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge35" class="edge">
-<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M253.61,-2027.17C238.24,-2024.89 221.36,-2019.42 211,-2007 164.27,-1950.97 151.6,-1412.15 149.39,-1294.58"/>
-<polygon fill="#000000" stroke="#000000" points="152.88,-1294.21 149.2,-1284.27 145.88,-1294.33 152.88,-1294.21"/>
+<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge37" class="edge">
+<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M248.76,-2110.39C234.77,-2107.72 220.25,-2102.16 211,-2091 160.17,-2029.65 150.65,-1437.77 149.22,-1315.16"/>
+<polygon fill="#000000" stroke="#000000" points="152.72,-1315.04 149.11,-1305.08 145.72,-1315.12 152.72,-1315.04"/>
 </g>
-<!-- module~s_whm_step -->
+<!-- module~s_util_copy -->
 <g id="module~~symba_classes~~UsedByGraph_node35" class="node">
-<title>module~s_whm_step</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node35"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-1998 253,-1998 253,-1974 326,-1974 326,-1998"/>
-<text text-anchor="middle" x="289.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
+<title>module~s_util_copy</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node35"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-2082 256.5,-2082 256.5,-2058 322.5,-2058 322.5,-2082"/>
+<text text-anchor="middle" x="289.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_step&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge36" class="edge">
-<title>module~s_whm_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.84,-1985.03C237.69,-1982.67 221.21,-1977.18 211,-1965 166.92,-1912.42 152.25,-1407.34 149.5,-1294.35"/>
-<polygon fill="#000000" stroke="#000000" points="153,-1294.04 149.26,-1284.13 146,-1294.21 153,-1294.04"/>
+<!-- module~s_util_copy&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge38" class="edge">
+<title>module~s_util_copy&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.36,-2069.56C240.29,-2067.54 221.97,-2062.18 211,-2049 162.86,-1991.14 151.25,-1433.66 149.32,-1315.1"/>
+<polygon fill="#000000" stroke="#000000" points="152.82,-1314.97 149.17,-1305.03 145.82,-1315.08 152.82,-1314.97"/>
 </g>
-<!-- module~s_setup -->
+<!-- module~s_util_valid -->
 <g id="module~~symba_classes~~UsedByGraph_node36" class="node">
-<title>module~s_setup</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node36"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-1956 262.5,-1956 262.5,-1932 316.5,-1932 316.5,-1956"/>
-<text text-anchor="middle" x="289.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
+<title>module~s_util_valid</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node36"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="322,-2040 257,-2040 257,-2016 322,-2016 322,-2040"/>
+<text text-anchor="middle" x="289.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
 </a>
 </g>
 </g>
-<!-- module~s_setup&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge38" class="edge">
-<title>module~s_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.19,-1944.1C244.95,-1942.66 223.4,-1937.71 211,-1923 169.6,-1873.91 152.95,-1403.13 149.64,-1294.35"/>
-<polygon fill="#000000" stroke="#000000" points="153.13,-1294.09 149.34,-1284.2 146.14,-1294.3 153.13,-1294.09"/>
+<!-- module~s_util_valid&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge39" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.78,-2027.58C240.62,-2025.6 222.09,-2020.26 211,-2007 165.57,-1952.67 151.91,-1430.27 149.44,-1315.3"/>
+<polygon fill="#000000" stroke="#000000" points="152.94,-1315.13 149.23,-1305.21 145.94,-1315.28 152.94,-1315.13"/>
 </g>
-<!-- module~s_util_get_energy_momentum -->
+<!-- module~s_tides_step_spin -->
 <g id="module~~symba_classes~~UsedByGraph_node37" class="node">
-<title>module~s_util_get_energy_momentum</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node37"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="368,-1914 211,-1914 211,-1890 368,-1890 368,-1914"/>
-<text text-anchor="middle" x="289.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node37"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="338.5,-1998 240.5,-1998 240.5,-1974 338.5,-1974 338.5,-1998"/>
+<text text-anchor="middle" x="289.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge39" class="edge">
-<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M221.31,-1889.94C217.47,-1887.46 213.98,-1884.51 211,-1881 172.26,-1835.37 153.69,-1398.4 149.79,-1294.22"/>
-<polygon fill="#000000" stroke="#000000" points="153.29,-1294.06 149.42,-1284.19 146.29,-1294.31 153.29,-1294.06"/>
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge40" class="edge">
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M240.36,-1982.32C229.21,-1979.18 218.45,-1973.86 211,-1965 168.26,-1914.17 152.59,-1426.27 149.57,-1315.36"/>
+<polygon fill="#000000" stroke="#000000" points="153.06,-1314.94 149.3,-1305.03 146.06,-1315.12 153.06,-1314.94"/>
 </g>
-<!-- module~s_tides_kick_getacch -->
+<!-- module~s_util_sort -->
 <g id="module~~symba_classes~~UsedByGraph_node38" class="node">
-<title>module~s_tides_kick_getacch</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node38"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="346.5,-1872 232.5,-1872 232.5,-1848 346.5,-1848 346.5,-1872"/>
-<text text-anchor="middle" x="289.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
+<title>module~s_util_sort</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node38"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="320,-1956 259,-1956 259,-1932 320,-1932 320,-1956"/>
+<text text-anchor="middle" x="289.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge40" class="edge">
-<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M232.11,-1853.41C224.06,-1850.19 216.62,-1845.57 211,-1839 174.94,-1796.84 154.5,-1393.95 149.97,-1294.24"/>
-<polygon fill="#000000" stroke="#000000" points="153.46,-1293.93 149.51,-1284.1 146.46,-1294.24 153.46,-1293.93"/>
+<!-- module~s_util_sort&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge41" class="edge">
+<title>module~s_util_sort&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.78,-1943.76C242.2,-1941.95 222.61,-1936.73 211,-1923 170.94,-1875.64 153.32,-1421.8 149.71,-1315.29"/>
+<polygon fill="#000000" stroke="#000000" points="153.2,-1314.95 149.37,-1305.07 146.21,-1315.18 153.2,-1314.95"/>
 </g>
-<!-- module~s_helio_gr -->
+<!-- module~s_tides_kick_getacch -->
 <g id="module~~symba_classes~~UsedByGraph_node39" class="node">
-<title>module~s_helio_gr</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node39"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="320.5,-1830 258.5,-1830 258.5,-1806 320.5,-1806 320.5,-1830"/>
-<text text-anchor="middle" x="289.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node39"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="346.5,-1914 232.5,-1914 232.5,-1890 346.5,-1890 346.5,-1914"/>
+<text text-anchor="middle" x="289.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge41" class="edge">
-<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.49,-1817.63C242.03,-1815.76 222.66,-1810.51 211,-1797 177.62,-1758.31 155.4,-1389.69 150.18,-1294.4"/>
-<polygon fill="#000000" stroke="#000000" points="153.68,-1294.2 149.64,-1284.4 146.69,-1294.57 153.68,-1294.2"/>
+<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge42" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M232.48,-1895.59C224.28,-1892.35 216.7,-1887.69 211,-1881 173.58,-1837.08 154.07,-1416.8 149.87,-1315.09"/>
+<polygon fill="#000000" stroke="#000000" points="153.36,-1314.88 149.46,-1305.03 146.37,-1315.16 153.36,-1314.88"/>
 </g>
-<!-- module~s_orbel -->
+<!-- module~s_whm_kick -->
 <g id="module~~symba_classes~~UsedByGraph_node40" class="node">
-<title>module~s_orbel</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node40"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-1788 262.5,-1788 262.5,-1764 316.5,-1764 316.5,-1788"/>
-<text text-anchor="middle" x="289.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
+<title>module~s_whm_kick</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node40"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-1872 254.5,-1872 254.5,-1848 324.5,-1848 324.5,-1872"/>
+<text text-anchor="middle" x="289.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_orbel&#45;&gt;module~swiftest -->
+<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
 <g id="module~~symba_classes~~UsedByGraph_edge43" class="edge">
-<title>module~s_orbel&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.34,-1775.97C245.17,-1774.47 223.64,-1769.5 211,-1755 150,-1685.01 148.03,-1379.58 148.7,-1294.23"/>
-<polygon fill="#000000" stroke="#000000" points="152.21,-1294.14 148.81,-1284.1 145.21,-1294.07 152.21,-1294.14"/>
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.17,-1859.09C238.73,-1856.82 221.63,-1851.37 211,-1839 176.32,-1798.62 154.99,-1413.73 150.09,-1315.65"/>
+<polygon fill="#000000" stroke="#000000" points="153.57,-1315.21 149.58,-1305.39 146.58,-1315.55 153.57,-1315.21"/>
 </g>
-<!-- module~s_fragmentation -->
+<!-- module~s_util_fill -->
 <g id="module~~symba_classes~~UsedByGraph_node41" class="node">
-<title>module~s_fragmentation</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node41"><a xlink:href=".././module/s_fragmentation.html" xlink:title="s_fragmentation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="334.5,-1746 244.5,-1746 244.5,-1722 334.5,-1722 334.5,-1746"/>
-<text text-anchor="middle" x="289.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fragmentation</text>
+<title>module~s_util_fill</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node41"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-1830 262.5,-1830 262.5,-1806 316.5,-1806 316.5,-1830"/>
+<text text-anchor="middle" x="289.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
 </a>
 </g>
 </g>
-<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge51" class="edge">
-<title>module~s_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M244.28,-1731.03C231.88,-1728.03 219.48,-1722.62 211,-1713 155.31,-1649.88 149.5,-1375.06 149.01,-1294.36"/>
-<polygon fill="#000000" stroke="#000000" points="152.51,-1294.29 148.97,-1284.3 145.51,-1294.31 152.51,-1294.29"/>
+<!-- module~s_util_fill&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge44" class="edge">
+<title>module~s_util_fill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.31,-1817.99C245.14,-1816.5 223.6,-1811.53 211,-1797 147.37,-1723.62 147.34,-1403.18 148.57,-1315.34"/>
+<polygon fill="#000000" stroke="#000000" points="152.07,-1315.22 148.73,-1305.17 145.07,-1315.11 152.07,-1315.22"/>
 </g>
-<!-- module~s_whm_setup -->
+<!-- module~s_helio_kick -->
 <g id="module~~symba_classes~~UsedByGraph_node42" class="node">
-<title>module~s_whm_setup</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node42"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-1704 250,-1704 250,-1680 329,-1680 329,-1704"/>
-<text text-anchor="middle" x="289.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
+<title>module~s_helio_kick</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node42"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-1788 254.5,-1788 254.5,-1764 324.5,-1764 324.5,-1788"/>
+<text text-anchor="middle" x="289.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
+<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
 <g id="module~~symba_classes~~UsedByGraph_edge45" class="edge">
-<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.61,-1690.08C235.55,-1687.4 220.76,-1681.91 211,-1671 160.63,-1614.74 151.13,-1370.59 149.38,-1294.64"/>
-<polygon fill="#000000" stroke="#000000" points="152.88,-1294.24 149.17,-1284.32 145.88,-1294.39 152.88,-1294.24"/>
+<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.28,-1775C238.86,-1772.7 221.75,-1767.26 211,-1755 152.6,-1688.39 148.74,-1397.8 148.85,-1315.06"/>
+<polygon fill="#000000" stroke="#000000" points="152.35,-1315.02 148.89,-1305.01 145.35,-1315 152.35,-1315.02"/>
 </g>
-<!-- module~s_io -->
+<!-- module~s_util_solve -->
 <g id="module~~symba_classes~~UsedByGraph_node43" class="node">
-<title>module~s_io</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node43"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-1662 262.5,-1662 262.5,-1638 316.5,-1638 316.5,-1662"/>
-<text text-anchor="middle" x="289.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
+<title>module~s_util_solve</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node43"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="323.5,-1746 255.5,-1746 255.5,-1722 323.5,-1722 323.5,-1746"/>
+<text text-anchor="middle" x="289.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
 </a>
 </g>
 </g>
-<!-- module~s_io&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge46" class="edge">
-<title>module~s_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.17,-1649.76C245.16,-1648.14 223.86,-1643.12 211,-1629 165.84,-1579.45 152.9,-1364.95 149.83,-1294.51"/>
-<polygon fill="#000000" stroke="#000000" points="153.32,-1293.98 149.41,-1284.14 146.32,-1294.27 153.32,-1293.98"/>
+<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge49" class="edge">
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.14,-1733.05C239.54,-1730.81 222.02,-1725.4 211,-1713 157.93,-1653.26 150.28,-1393.4 149.18,-1315.29"/>
+<polygon fill="#000000" stroke="#000000" points="152.68,-1315.09 149.06,-1305.13 145.68,-1315.17 152.68,-1315.09"/>
 </g>
-<!-- module~s_util_version -->
+<!-- module~s_rmvs_step -->
 <g id="module~~symba_classes~~UsedByGraph_node44" class="node">
-<title>module~s_util_version</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node44"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="328.5,-1620 250.5,-1620 250.5,-1596 328.5,-1596 328.5,-1620"/>
-<text text-anchor="middle" x="289.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
+<title>module~s_rmvs_step</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node44"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-1704 253,-1704 253,-1680 326,-1680 326,-1704"/>
+<text text-anchor="middle" x="289.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_version&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge47" class="edge">
-<title>module~s_util_version&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M250.24,-1605.95C236.09,-1603.27 221.08,-1597.81 211,-1587 171.03,-1544.11 154.88,-1359 150.4,-1294.37"/>
-<polygon fill="#000000" stroke="#000000" points="153.87,-1293.83 149.71,-1284.09 146.88,-1294.3 153.87,-1293.83"/>
+<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge50" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.85,-1690.61C237.89,-1688.15 221.56,-1682.69 211,-1671 163.2,-1618.05 151.97,-1388.41 149.59,-1315.38"/>
+<polygon fill="#000000" stroke="#000000" points="153.08,-1314.95 149.28,-1305.06 146.08,-1315.16 153.08,-1314.95"/>
 </g>
-<!-- module~s_util_fill -->
+<!-- module~s_rmvs_util -->
 <g id="module~~symba_classes~~UsedByGraph_node45" class="node">
-<title>module~s_util_fill</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node45"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-1578 262.5,-1578 262.5,-1554 316.5,-1554 316.5,-1578"/>
-<text text-anchor="middle" x="289.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
+<title>module~s_rmvs_util</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node45"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="323,-1662 256,-1662 256,-1638 323,-1638 323,-1662"/>
+<text text-anchor="middle" x="289.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_fill&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge48" class="edge">
-<title>module~s_util_fill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.4,-1565.54C245.49,-1563.83 224.22,-1558.78 211,-1545 176.15,-1508.68 157.1,-1352.39 151.1,-1294.06"/>
-<polygon fill="#000000" stroke="#000000" points="154.58,-1293.67 150.11,-1284.06 147.62,-1294.36 154.58,-1293.67"/>
+<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge52" class="edge">
+<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.72,-1648.93C240.07,-1646.69 222.33,-1641.3 211,-1629 168.45,-1582.81 153.87,-1383.15 150.1,-1315.51"/>
+<polygon fill="#000000" stroke="#000000" points="153.58,-1314.95 149.55,-1305.15 146.59,-1315.32 153.58,-1314.95"/>
 </g>
-<!-- module~s_util_peri -->
+<!-- module~whm_drift -->
 <g id="module~~symba_classes~~UsedByGraph_node46" class="node">
-<title>module~s_util_peri</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node46"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="320,-1536 259,-1536 259,-1512 320,-1512 320,-1536"/>
-<text text-anchor="middle" x="289.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
+<title>module~whm_drift</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node46"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="319,-1620 260,-1620 260,-1596 319,-1596 319,-1620"/>
+<text text-anchor="middle" x="289.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_peri&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge49" class="edge">
-<title>module~s_util_peri&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.82,-1522.92C242.67,-1520.8 223.5,-1515.53 211,-1503 153.29,-1445.15 147.67,-1339.75 148.15,-1294.08"/>
-<polygon fill="#000000" stroke="#000000" points="151.65,-1294.14 148.37,-1284.06 144.66,-1293.98 151.65,-1294.14"/>
+<!-- module~whm_drift&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge53" class="edge">
+<title>module~whm_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.7,-1607.32C243.24,-1605.38 223.45,-1600.17 211,-1587 173.65,-1547.47 156.01,-1377.28 150.75,-1315.51"/>
+<polygon fill="#000000" stroke="#000000" points="154.22,-1314.97 149.91,-1305.29 147.24,-1315.54 154.22,-1314.97"/>
 </g>
-<!-- module~s_helio_drift -->
+<!-- module~s_whm_coord -->
 <g id="module~~symba_classes~~UsedByGraph_node47" class="node">
-<title>module~s_helio_drift</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node47"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-1494 254.5,-1494 254.5,-1470 324.5,-1470 324.5,-1494"/>
-<text text-anchor="middle" x="289.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
+<title>module~s_whm_coord</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node47"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-1578 250,-1578 250,-1554 329,-1554 329,-1578"/>
+<text text-anchor="middle" x="289.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge50" class="edge">
-<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-1479.95C239.45,-1477.39 222.63,-1472.04 211,-1461 163.48,-1415.9 152.34,-1333.85 149.76,-1294.38"/>
-<polygon fill="#000000" stroke="#000000" points="153.25,-1294.03 149.23,-1284.23 146.26,-1294.4 153.25,-1294.03"/>
+<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge54" class="edge">
+<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.69,-1563.55C235.82,-1560.78 221.13,-1555.37 211,-1545 178.75,-1511.98 158.41,-1370.4 151.57,-1315.18"/>
+<polygon fill="#000000" stroke="#000000" points="155.02,-1314.57 150.35,-1305.06 148.07,-1315.41 155.02,-1314.57"/>
 </g>
-<!-- proc~solve_wbs -->
+<!-- module~s_io -->
 <g id="module~~symba_classes~~UsedByGraph_node48" class="node">
-<title>proc~solve_wbs</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node48"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="320.5,-1452 258.5,-1452 258.5,-1428 320.5,-1428 320.5,-1452"/>
-<text text-anchor="middle" x="289.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
+<title>module~s_io</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node48"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-1536 262.5,-1536 262.5,-1512 316.5,-1512 316.5,-1536"/>
+<text text-anchor="middle" x="289.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
 </a>
 </g>
 </g>
-<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge52" class="edge">
-<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.32,-1438.08C242.61,-1435.66 224.02,-1430.37 211,-1419 173.5,-1386.23 158.09,-1326.98 152.24,-1294.61"/>
-<polygon fill="#000000" stroke="#000000" points="155.63,-1293.66 150.55,-1284.37 148.73,-1294.8 155.63,-1293.66"/>
+<!-- module~s_io&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge55" class="edge">
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.31,-1523.22C245.58,-1521.35 224.56,-1516.25 211,-1503 158.48,-1451.65 149.92,-1358.17 148.88,-1315.42"/>
+<polygon fill="#000000" stroke="#000000" points="152.38,-1315.2 148.76,-1305.24 145.38,-1315.28 152.38,-1315.2"/>
 </g>
-<!-- module~s_whm_coord -->
+<!-- module~s_obl -->
 <g id="module~~symba_classes~~UsedByGraph_node49" class="node">
-<title>module~s_whm_coord</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node49"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-1410 250,-1410 250,-1386 329,-1386 329,-1410"/>
-<text text-anchor="middle" x="289.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
+<title>module~s_obl</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node49"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-1494 262.5,-1494 262.5,-1470 316.5,-1470 316.5,-1494"/>
+<text text-anchor="middle" x="289.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge53" class="edge">
-<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.99,-1393.61C236.63,-1390.6 222.2,-1385.53 211,-1377 182.98,-1355.66 165.19,-1317.7 156.17,-1293.75"/>
-<polygon fill="#000000" stroke="#000000" points="159.4,-1292.37 152.74,-1284.13 152.81,-1294.73 159.4,-1292.37"/>
+<!-- module~s_obl&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge56" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.23,-1480.87C245.68,-1478.85 224.89,-1473.7 211,-1461 168.38,-1422.01 154.97,-1351.14 150.82,-1315.19"/>
+<polygon fill="#000000" stroke="#000000" points="154.3,-1314.82 149.8,-1305.22 147.33,-1315.53 154.3,-1314.82"/>
 </g>
-<!-- module~s_tides_step_spin -->
+<!-- module~s_helio_gr -->
 <g id="module~~symba_classes~~UsedByGraph_node50" class="node">
-<title>module~s_tides_step_spin</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node50"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="338.5,-1368 240.5,-1368 240.5,-1344 338.5,-1344 338.5,-1368"/>
-<text text-anchor="middle" x="289.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
+<title>module~s_helio_gr</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node50"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="320.5,-1452 258.5,-1452 258.5,-1428 320.5,-1428 320.5,-1452"/>
+<text text-anchor="middle" x="289.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge54" class="edge">
-<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M240.19,-1347.14C230.14,-1344.16 219.91,-1340.21 211,-1335 192.35,-1324.1 175.46,-1306.13 164.04,-1292.17"/>
-<polygon fill="#000000" stroke="#000000" points="166.61,-1289.78 157.66,-1284.1 161.11,-1294.11 166.61,-1289.78"/>
+<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge57" class="edge">
+<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.2,-1437.71C242.64,-1435.18 224.23,-1429.9 211,-1419 178.13,-1391.92 161.25,-1343.13 153.84,-1314.87"/>
+<polygon fill="#000000" stroke="#000000" points="157.24,-1314.01 151.45,-1305.13 150.44,-1315.67 157.24,-1314.01"/>
 </g>
-<!-- module~s_util_sort -->
+<!-- module~s_eucl -->
 <g id="module~~symba_classes~~UsedByGraph_node51" class="node">
-<title>module~s_util_sort</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node51"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="320,-1326 259,-1326 259,-1302 320,-1302 320,-1326"/>
-<text text-anchor="middle" x="289.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
+<title>module~s_eucl</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node51"><a xlink:href=".././module/s_eucl.html" xlink:title="s_eucl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-1410 262.5,-1410 262.5,-1386 316.5,-1386 316.5,-1410"/>
+<text text-anchor="middle" x="289.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_eucl</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_sort&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge56" class="edge">
-<title>module~s_util_sort&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.94,-1306.45C244.43,-1302.63 226.74,-1297.79 211,-1293 202.48,-1290.41 193.37,-1287.43 184.83,-1284.56"/>
-<polygon fill="#000000" stroke="#000000" points="185.72,-1281.16 175.13,-1281.25 183.47,-1287.79 185.72,-1281.16"/>
+<!-- module~s_eucl&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge58" class="edge">
+<title>module~s_eucl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.26,-1395.3C246.32,-1392.65 226.19,-1387.39 211,-1377 187.58,-1360.98 169.62,-1333.14 159.2,-1313.93"/>
+<polygon fill="#000000" stroke="#000000" points="162.29,-1312.29 154.57,-1305.03 156.08,-1315.52 162.29,-1312.29"/>
 </g>
-<!-- module~s_util_minimize_bfgs -->
+<!-- module~s_util_append -->
 <g id="module~~symba_classes~~UsedByGraph_node52" class="node">
-<title>module~s_util_minimize_bfgs</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node52"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="345.5,-1284 233.5,-1284 233.5,-1260 345.5,-1260 345.5,-1284"/>
-<text text-anchor="middle" x="289.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
+<title>module~s_util_append</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node52"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-1368 250,-1368 250,-1344 329,-1344 329,-1368"/>
+<text text-anchor="middle" x="289.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge57" class="edge">
-<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M233.37,-1272C217.19,-1272 199.91,-1272 185.23,-1272"/>
-<polygon fill="#000000" stroke="#000000" points="185.05,-1268.5 175.05,-1272 185.05,-1275.5 185.05,-1268.5"/>
+<!-- module~s_util_append&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge59" class="edge">
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.78,-1348.18C237.1,-1344.93 223.16,-1340.58 211,-1335 197.25,-1328.69 183.19,-1319.45 171.95,-1311.23"/>
+<polygon fill="#000000" stroke="#000000" points="174.04,-1308.43 163.95,-1305.22 169.84,-1314.02 174.04,-1308.43"/>
 </g>
-<!-- module~s_whm_util -->
+<!-- module~s_fragmentation -->
 <g id="module~~symba_classes~~UsedByGraph_node53" class="node">
-<title>module~s_whm_util</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node53"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-1242 256.5,-1242 256.5,-1218 322.5,-1218 322.5,-1242"/>
-<text text-anchor="middle" x="289.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
+<title>module~s_fragmentation</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node53"><a xlink:href=".././module/s_fragmentation.html" xlink:title="s_fragmentation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="334.5,-1326 244.5,-1326 244.5,-1302 334.5,-1302 334.5,-1326"/>
+<text text-anchor="middle" x="289.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fragmentation</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_util&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge58" class="edge">
-<title>module~s_whm_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.32,-1238.24C242.34,-1241.95 225.8,-1246.49 211,-1251 202.48,-1253.59 193.37,-1256.57 184.83,-1259.44"/>
-<polygon fill="#000000" stroke="#000000" points="183.47,-1256.21 175.13,-1262.75 185.72,-1262.84 183.47,-1256.21"/>
+<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge60" class="edge">
+<title>module~s_fragmentation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M244.36,-1307.36C225.41,-1304.5 203.53,-1301.21 185.51,-1298.5"/>
+<polygon fill="#000000" stroke="#000000" points="185.81,-1295 175.4,-1296.97 184.77,-1301.92 185.81,-1295"/>
 </g>
-<!-- module~s_util_copy -->
+<!-- module~s_user_kick_getacch -->
 <g id="module~~symba_classes~~UsedByGraph_node54" class="node">
-<title>module~s_util_copy</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node54"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="322.5,-1200 256.5,-1200 256.5,-1176 322.5,-1176 322.5,-1200"/>
-<text text-anchor="middle" x="289.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node54"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="345.5,-1284 233.5,-1284 233.5,-1260 345.5,-1260 345.5,-1284"/>
+<text text-anchor="middle" x="289.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_copy&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge59" class="edge">
-<title>module~s_util_copy&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.46,-1192.73C241.88,-1195.85 224.84,-1200.91 211,-1209 192.35,-1219.9 175.46,-1237.87 164.04,-1251.83"/>
-<polygon fill="#000000" stroke="#000000" points="161.11,-1249.89 157.66,-1259.9 166.61,-1254.22 161.11,-1249.89"/>
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge61" class="edge">
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M233.37,-1280.3C217.19,-1282.74 199.91,-1285.34 185.23,-1287.55"/>
+<polygon fill="#000000" stroke="#000000" points="184.42,-1284.13 175.05,-1289.08 185.46,-1291.05 184.42,-1284.13"/>
 </g>
-<!-- proc~ge_wpp -->
+<!-- module~s_whm_step -->
 <g id="module~~symba_classes~~UsedByGraph_node55" class="node">
-<title>proc~ge_wpp</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node55"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="316.5,-1158 262.5,-1158 262.5,-1134 316.5,-1134 316.5,-1158"/>
-<text text-anchor="middle" x="289.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
+<title>module~s_whm_step</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node55"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-1242 253,-1242 253,-1218 326,-1218 326,-1242"/>
+<text text-anchor="middle" x="289.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
 </a>
 </g>
 </g>
-<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge60" class="edge">
-<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.23,-1148.1C246.09,-1150.54 225.75,-1155.76 211,-1167 182.98,-1188.34 165.19,-1226.3 156.17,-1250.25"/>
-<polygon fill="#000000" stroke="#000000" points="152.81,-1249.27 152.74,-1259.87 159.4,-1251.63 152.81,-1249.27"/>
+<!-- module~s_whm_step&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge63" class="edge">
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.92,-1237.03C239.44,-1240.36 224.18,-1244.96 211,-1251 197.25,-1257.31 183.19,-1266.55 171.95,-1274.77"/>
+<polygon fill="#000000" stroke="#000000" points="169.84,-1271.98 163.95,-1280.78 174.04,-1277.57 169.84,-1271.98"/>
 </g>
-<!-- module~s_rmvs_chk -->
+<!-- module~s_helio_coord -->
 <g id="module~~symba_classes~~UsedByGraph_node56" class="node">
-<title>module~s_rmvs_chk</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node56"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="324.5,-1116 254.5,-1116 254.5,-1092 324.5,-1092 324.5,-1116"/>
-<text text-anchor="middle" x="289.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
+<title>module~s_helio_coord</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node56"><a xlink:href=".././module/s_helio_coord.html" xlink:title="s_helio_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-1200 250,-1200 250,-1176 329,-1176 329,-1200"/>
+<text text-anchor="middle" x="289.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge61" class="edge">
-<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.46,-1106.56C239.64,-1109.24 222.97,-1114.54 211,-1125 173.5,-1157.77 158.09,-1217.02 152.24,-1249.39"/>
-<polygon fill="#000000" stroke="#000000" points="148.73,-1249.2 150.55,-1259.63 155.63,-1250.34 148.73,-1249.2"/>
+<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge64" class="edge">
+<title>module~s_helio_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.66,-1193.22C236.56,-1196.3 222.39,-1201.21 211,-1209 187.58,-1225.02 169.62,-1252.86 159.2,-1272.07"/>
+<polygon fill="#000000" stroke="#000000" points="156.08,-1270.48 154.57,-1280.97 162.29,-1273.71 156.08,-1270.48"/>
 </g>
-<!-- module~s_kick -->
+<!-- module~s_util_peri -->
 <g id="module~~symba_classes~~UsedByGraph_node57" class="node">
-<title>module~s_kick</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node57"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-1074 262.5,-1074 262.5,-1050 316.5,-1050 316.5,-1074"/>
-<text text-anchor="middle" x="289.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
+<title>module~s_util_peri</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node57"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="320,-1158 259,-1158 259,-1134 320,-1134 320,-1158"/>
+<text text-anchor="middle" x="289.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
 </a>
 </g>
 </g>
-<!-- module~s_kick&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge62" class="edge">
-<title>module~s_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.44,-1062.91C245.77,-1064.84 224.75,-1069.95 211,-1083 163.48,-1128.1 152.34,-1210.15 149.76,-1249.62"/>
-<polygon fill="#000000" stroke="#000000" points="146.26,-1249.6 149.23,-1259.77 153.25,-1249.97 146.26,-1249.6"/>
+<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge65" class="edge">
+<title>module~s_util_peri&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.95,-1148.17C243.24,-1150.65 224.45,-1155.92 211,-1167 178.13,-1194.08 161.25,-1242.87 153.84,-1271.13"/>
+<polygon fill="#000000" stroke="#000000" points="150.44,-1270.33 151.45,-1280.87 157.24,-1271.99 150.44,-1270.33"/>
 </g>
 <!-- module~s_rmvs_setup -->
 <g id="module~~symba_classes~~UsedByGraph_node58" class="node">
 <title>module~s_rmvs_setup</title>
 <g id="a_module~~symba_classes~~UsedByGraph_node58"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-1032 250,-1032 250,-1008 329,-1008 329,-1032"/>
-<text text-anchor="middle" x="289.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-1116 250,-1116 250,-1092 329,-1092 329,-1116"/>
+<text text-anchor="middle" x="289.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
 </a>
 </g>
 </g>
 <!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge63" class="edge">
+<g id="module~~symba_classes~~UsedByGraph_edge66" class="edge">
 <title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.81,-1022.56C235.95,-1025.35 221.24,-1030.74 211,-1041 153.29,-1098.85 147.67,-1204.25 148.15,-1249.92"/>
-<polygon fill="#000000" stroke="#000000" points="144.66,-1250.02 148.37,-1259.94 151.65,-1249.86 144.66,-1250.02"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.89,-1107.15C236.21,-1110.02 221.59,-1115.31 211,-1125 168.38,-1163.99 154.97,-1234.86 150.82,-1270.81"/>
+<polygon fill="#000000" stroke="#000000" points="147.33,-1270.47 149.8,-1280.78 154.3,-1271.18 147.33,-1270.47"/>
 </g>
-<!-- module~whm_drift -->
+<!-- module~s_whm_setup -->
 <g id="module~~symba_classes~~UsedByGraph_node59" class="node">
-<title>module~whm_drift</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node59"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="319,-990 260,-990 260,-966 319,-966 319,-990"/>
-<text text-anchor="middle" x="289.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
+<title>module~s_whm_setup</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node59"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="329,-1074 250,-1074 250,-1050 329,-1050 329,-1074"/>
+<text text-anchor="middle" x="289.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
 </a>
 </g>
 </g>
-<!-- module~whm_drift&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge64" class="edge">
-<title>module~whm_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.78,-978.75C243.34,-980.71 223.55,-985.92 211,-999 176.15,-1035.32 157.1,-1191.61 151.1,-1249.94"/>
-<polygon fill="#000000" stroke="#000000" points="147.62,-1249.64 150.11,-1259.94 154.58,-1250.33 147.62,-1249.64"/>
+<!-- module~s_whm_setup&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge67" class="edge">
+<title>module~s_whm_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M249.94,-1064.7C236.1,-1067.5 221.37,-1072.86 211,-1083 158.48,-1134.35 149.92,-1227.83 148.88,-1270.58"/>
+<polygon fill="#000000" stroke="#000000" points="145.38,-1270.72 148.76,-1280.76 152.38,-1270.8 145.38,-1270.72"/>
 </g>
-<!-- module~s_gr -->
+<!-- module~s_discard -->
 <g id="module~~symba_classes~~UsedByGraph_node60" class="node">
-<title>module~s_gr</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node60"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="316.5,-948 262.5,-948 262.5,-924 316.5,-924 316.5,-948"/>
-<text text-anchor="middle" x="289.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
+<title>module~s_discard</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node60"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="318.5,-1032 260.5,-1032 260.5,-1008 318.5,-1008 318.5,-1032"/>
+<text text-anchor="middle" x="289.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_gr&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge65" class="edge">
-<title>module~s_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M262.27,-936.34C245.3,-938 224.02,-943.03 211,-957 171.03,-999.89 154.88,-1185 150.4,-1249.63"/>
-<polygon fill="#000000" stroke="#000000" points="146.88,-1249.7 149.71,-1259.91 153.87,-1250.17 146.88,-1249.7"/>
+<!-- module~s_discard&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge68" class="edge">
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.24,-1020.79C243.76,-1022.74 223.76,-1027.94 211,-1041 178.75,-1074.02 158.41,-1215.6 151.57,-1270.82"/>
+<polygon fill="#000000" stroke="#000000" points="148.07,-1270.59 150.35,-1280.94 155.02,-1271.43 148.07,-1270.59"/>
 </g>
-<!-- module~s_whm_gr -->
+<!-- module~s_helio_step -->
 <g id="module~~symba_classes~~UsedByGraph_node61" class="node">
-<title>module~s_whm_gr</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node61"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="320.5,-906 258.5,-906 258.5,-882 320.5,-882 320.5,-906"/>
-<text text-anchor="middle" x="289.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
+<title>module~s_helio_step</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node61"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-990 253,-990 253,-966 326,-966 326,-990"/>
+<text text-anchor="middle" x="289.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge66" class="edge">
-<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.38,-894.66C242.09,-896.64 222.93,-901.92 211,-915 165.84,-964.55 152.9,-1179.05 149.83,-1249.49"/>
-<polygon fill="#000000" stroke="#000000" points="146.32,-1249.73 149.41,-1259.86 153.32,-1250.02 146.32,-1249.73"/>
+<!-- module~s_helio_step&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge70" class="edge">
+<title>module~s_helio_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.7,-979.69C237.9,-982.21 221.72,-987.65 211,-999 173.65,-1038.53 156.01,-1208.72 150.75,-1270.49"/>
+<polygon fill="#000000" stroke="#000000" points="147.24,-1270.46 149.91,-1280.71 154.22,-1271.03 147.24,-1270.46"/>
 </g>
-<!-- module~s_rmvs_step -->
+<!-- module~s_util_exit -->
 <g id="module~~symba_classes~~UsedByGraph_node62" class="node">
-<title>module~s_rmvs_step</title>
-<g id="a_module~~symba_classes~~UsedByGraph_node62"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="326,-864 253,-864 253,-840 326,-840 326,-864"/>
-<text text-anchor="middle" x="289.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
+<title>module~s_util_exit</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node62"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="319.5,-948 259.5,-948 259.5,-924 319.5,-924 319.5,-948"/>
+<text text-anchor="middle" x="289.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
-<g id="module~~symba_classes~~UsedByGraph_edge42" class="edge">
-<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.8,-853.35C237.84,-855.8 221.51,-861.26 211,-873 160.63,-929.26 151.13,-1173.41 149.38,-1249.36"/>
-<polygon fill="#000000" stroke="#000000" points="145.88,-1249.61 149.17,-1259.68 152.88,-1249.76 145.88,-1249.61"/>
+<!-- module~s_util_exit&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge71" class="edge">
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M259.2,-936.61C242.77,-938.54 223.18,-943.77 211,-957 168.45,-1003.19 153.87,-1202.85 150.1,-1270.49"/>
+<polygon fill="#000000" stroke="#000000" points="146.59,-1270.68 149.55,-1280.85 153.58,-1271.05 146.59,-1270.68"/>
+</g>
+<!-- module~s_whm_gr -->
+<g id="module~~symba_classes~~UsedByGraph_node63" class="node">
+<title>module~s_whm_gr</title>
+<g id="a_module~~symba_classes~~UsedByGraph_node63"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="320.5,-906 258.5,-906 258.5,-882 320.5,-882 320.5,-906"/>
+<text text-anchor="middle" x="289.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
+</a>
+</g>
+</g>
+<!-- module~s_whm_gr&#45;&gt;module~swiftest -->
+<g id="module~~symba_classes~~UsedByGraph_edge72" class="edge">
+<title>module~s_whm_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.33,-894.61C242.03,-896.59 222.86,-901.86 211,-915 163.2,-967.95 151.97,-1197.59 149.59,-1270.62"/>
+<polygon fill="#000000" stroke="#000000" points="146.08,-1270.84 149.28,-1280.94 153.08,-1271.05 146.08,-1270.84"/>
 </g>
 </g>
 </svg>
@@ -1830,9 +1843,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_param_writer">symba_io_param_writer</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_initialize_particle_info">symba_io_initialize_particle_info</a>
-      
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_read_frame_info">symba_io_read_frame_info</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_read_particle">symba_io_read_particle</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_kick_getacch_pl">symba_kick_getacch_pl</a>
       
@@ -1840,7 +1851,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_kick_pltpenc">symba_kick_pltpenc</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_io_write_frame_info">symba_io_write_frame_info</a>
+      <a class="list-group-item" href="../module/symba_classes.html#interface-symba_setup_initialize_particle_info">symba_setup_initialize_particle_info</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#interface-symba_setup_initialize_system">symba_setup_initialize_system</a>
       
@@ -1918,12 +1929,12 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../module/symba_classes.html#type-symba_parameters">symba_parameters</a>
       
-      <a class="list-group-item" href="../module/symba_classes.html#type-symba_cb">symba_cb</a>
-      
       <a class="list-group-item" href="../module/symba_classes.html#type-symba_particle_info">symba_particle_info</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#type-symba_kinship">symba_kinship</a>
       
+      <a class="list-group-item" href="../module/symba_classes.html#type-symba_cb">symba_cb</a>
+      
       <a class="list-group-item" href="../module/symba_classes.html#type-symba_pl">symba_pl</a>
       
       <a class="list-group-item" href="../module/symba_classes.html#type-symba_merger">symba_merger</a>
@@ -4380,7 +4391,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine symba_io_dump_particle_info(self, param, msg)
+public module subroutine symba_io_dump_particle_info(system, param, lincludecb, tpidx, plidx)
     
     
    
@@ -4408,12 +4419,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system object</p></td>
   
 </tr>
 
@@ -4423,12 +4434,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA extensions</p></td>
   
 </tr>
 
@@ -4438,12 +4449,42 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>character(len=*),</td>
+  <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
   <td>optional</td>
   
   <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
+  <td><strong>lincludecb</strong></td><td><p>Set to true to include the central body (default is false)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>tpidx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>plidx</strong></td><td><p>Array of massive body indices to append to the particle file</p></td>
   
 </tr>
 
@@ -4738,84 +4779,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_io_initialize_particle_info"></span><h3>interface 
-    
-  </h3></div>
-  
-  <ul class="list-group">
-  
-    <li class="list-group-item">
-    
-    
-    <h3>
-public module subroutine symba_io_initialize_particle_info(self, param)
-    
-    
-   
-   <a href='../proc/symba_io_initialize_particle_info.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
-</h3>
-    
-    
-    <h4>Arguments</h4>
-    
-      
-      
-<table class="table table-striped varlist">
-<thead><tr><th>Type</th>
-<th>Intent</th><th>Optional</th>
-<th>Attributes</th><th></th><th>Name</th><th></th></thead>
-
-
-
-<tbody>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA particle info object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-    </li>
-  
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_io_read_frame_info"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_io_read_particle"></span><h3>interface 
     
   </h3></div>
   
@@ -4825,11 +4789,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine symba_io_read_frame_info(self, iu, param, form, ierr)
+public module subroutine symba_io_read_particle(system, param)
     
     
    
-   <a href='../proc/symba_io_read_frame_info.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_io_read_particle.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -4853,27 +4817,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA particle info object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system file</p></td>
   
 </tr>
 
@@ -4883,42 +4832,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>form</strong></td><td><p>Input format code ("XV" or "EL")</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA extensions</p></td>
   
 </tr>
 
@@ -5303,7 +5222,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_io_write_frame_info"></span><h3>interface 
+  <div class="panel-heading codesum"><span class="anchor" id="interface-symba_setup_initialize_particle_info"></span><h3>interface 
     
   </h3></div>
   
@@ -5313,11 +5232,11 @@ <h4>Arguments</h4>
     
     
     <h3>
-public module subroutine symba_io_write_frame_info(self, iu, param)
+public module subroutine symba_setup_initialize_particle_info(system, param)
     
     
    
-   <a href='../proc/symba_io_write_frame_info.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+   <a href='../proc/symba_setup_initialize_particle_info.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
     
 </h3>
     
@@ -5341,27 +5260,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA particle info object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system object</p></td>
   
 </tr>
 
@@ -5371,12 +5275,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" ></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA extensions</p></td>
   
 </tr>
 
@@ -6296,7 +6200,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public subroutine symba_util_append_arr_info(arr, source, lsource_mask)
+public subroutine symba_util_append_arr_info(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -6322,12 +6226,42 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
-  <td>intent(inout),</td>
+  <td><span class="anchor" ></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td>intent(inout),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>arr</strong></td><td><p>Destination array </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>source</strong></td><td><p>Array to append </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>arr</strong></td><td><p>Destination array </p></td>
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
   
 </tr>
 
@@ -6337,12 +6271,12 @@ <h4>Arguments</h4>
   
 <tr>
   
-  <td><span class="anchor" ></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
-  <td>intent(in),</td>
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
   <td></td>
   
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>source</strong></td><td><p>Array to append </p></td>
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
   
 </tr>
 
@@ -6354,7 +6288,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -6374,7 +6308,7 @@ <h4>Arguments</h4>
     
     
     <h3>
-public subroutine symba_util_append_arr_kin(arr, source, lsource_mask)
+public subroutine symba_util_append_arr_kin(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -6428,11 +6362,41 @@ <h4>Arguments</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -6526,7 +6490,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -6618,7 +6582,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -6710,7 +6674,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -8970,11 +8934,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ennergy_out"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-energy_out"></span>character(len=STRMAX),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>ennergy_out</strong></td><td> =</td><td>""</td><td><p>Name of output energy and momentum report file</p></td>
+  <td><strong>energy_out</strong></td><td> =</td><td>""</td><td><p>Name of output energy and momentum report file</p></td>
   
 </tr>
 
@@ -9276,6 +9240,20 @@ <h4>Components</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-lrestart"></span>logical,</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>lrestart</strong></td><td> =</td><td>.false.</td><td><p>Indicates whether or not this is a restarted run</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-lgr"></span>logical,</td>
@@ -9320,11 +9298,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-particle_file"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-particle_out"></span>character(len=STRMAX),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>particle_file</strong></td><td> =</td><td>PARTICLE_OUTFILE</td><td><p>Name of output particle information file</p></td>
+  <td><strong>particle_out</strong></td><td> =</td><td>PARTICLE_OUTFILE</td><td><p>Name of output particle information file</p></td>
   
 </tr>
 
@@ -9334,11 +9312,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mtiny"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmtiny"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>MTINY</strong></td><td> =</td><td>-1.0_DP</td><td><p>Smallest mass that is fully gravitating</p></td>
+  <td><strong>GMTINY</strong></td><td> =</td><td>-1.0_DP</td><td><p>Smallest mass that is fully gravitating</p></td>
   
 </tr>
 
@@ -9377,25 +9355,190 @@ <h4>Components</h4>
      
           
      
-     <h4>Type-Bound Procedures</h4>
-      <table class="table table-striped varlist">
-      <tbody>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_parameters.html#boundprocedure-dump~3'>dump</a></strong>  => io_dump_param </td>
-       <td></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_parameters.html#boundprocedure-read_from_file'>read_from_file</a></strong>  => io_read_param_in </td>
-       <td></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/symba_parameters.html#boundprocedure-reader'>reader</a></strong>  => symba_io_param_reader </td>
-       <td></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/symba_parameters.html#boundprocedure-writer'>writer</a></strong>  => symba_io_param_writer </td>
-       <td></td></tr>
-      
-       </tbody>
-       </table>
-     
+     <h4>Type-Bound Procedures</h4>
+      <table class="table table-striped varlist">
+      <tbody>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_parameters.html#boundprocedure-dump~3'>dump</a></strong>  => io_dump_param </td>
+       <td></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_parameters.html#boundprocedure-read_from_file'>read_from_file</a></strong>  => io_read_param_in </td>
+       <td></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_parameters.html#boundprocedure-reader'>reader</a></strong>  => symba_io_param_reader </td>
+       <td></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/symba_parameters.html#boundprocedure-writer'>writer</a></strong>  => symba_io_param_writer </td>
+       <td></td></tr>
+      
+       </tbody>
+       </table>
+     
+  </div>
+</div>
+
+     
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-symba_particle_info"></span><h3>type, public, sequence  :: <a href='../type/symba_particle_info.html'>symba_particle_info</a>
+    
+  </h3></div>
+  <div class="panel-body">
+    
+    
+    <p>Class definition for the particle origin information object. This object is used to track time, location, and collisional regime
+ of fragments produced in collisional events.</p>
+    
+     
+     <h4>Components</h4>
+    
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th>
+
+<th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_type"></span>character(len=32),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>origin_type</strong></td><td></td><td></td><td><p>String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_time"></span>real(kind=DP),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>origin_time</strong></td><td></td><td></td><td><p>The time of the particle's formation</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_xh"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>origin_xh</strong></td><td></td><td></td><td><p>The heliocentric distance vector at the time of the particle's formation</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-origin_vh"></span>real(kind=DP),</td>
+  
+  <td>public,</td>
+  <td>dimension(NDIM)</td><td>::</td>
+  <td><strong>origin_vh</strong></td><td></td><td></td><td><p>The heliocentric velocity vector at the time of the particle's formation</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+     
+     
+          
+     
+  </div>
+</div>
+
+     
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="type-symba_kinship"></span><h3>type, public :: <a href='../type/symba_kinship.html'>symba_kinship</a>
+    
+  </h3></div>
+  <div class="panel-body">
+    
+    
+    <p>Class definition for the kinship relationships used in bookkeeping multiple collisions bodies in a single time step.</p>
+    
+     
+     <h4>Components</h4>
+    
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th><th>Visibility</th>
+
+<th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-parent"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>parent</strong></td><td></td><td></td><td><p>Index of parent particle</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nchild"></span>integer(kind=I4B),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>nchild</strong></td><td></td><td></td><td><p>number of children in merger list</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-child"></span>integer(kind=I4B),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>child</strong></td><td></td><td></td><td><p>Index of children particles</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+     
+     
+          
+     
   </div>
 </div>
 
@@ -9856,126 +9999,17 @@ <h4>Components</h4>
   
 </tr>
 
-</tbody>
-</table>
-
-     
-     
-          
-     
-     <h4>Type-Bound Procedures</h4>
-      <table class="table table-striped varlist">
-      <tbody>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_swiftest </td>
-       <td></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-initialize~2'>initialize</a></strong>  => io_read_cb_in </td>
-       <td><p>I/O routine for reading in central body data</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-read_frame~2'>read_frame</a></strong>  => io_read_frame_cb </td>
-       <td><p>I/O routine for reading out a single frame of time-series data for the central body</p></td></tr>
-      
-       <tr><td>procedure, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-write_frame~2'>write_frame</a></strong>  => io_write_frame_cb </td>
-       <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
-      
-       </tbody>
-       </table>
-     
-  </div>
-</div>
-
-     
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="type-symba_particle_info"></span><h3>type, public, extends(<a href='../type/swiftest_base.html'>swiftest_base</a>) :: <a href='../type/symba_particle_info.html'>symba_particle_info</a>
-    
-  </h3></div>
-  <div class="panel-body">
-    
-    
-    <p>Class definition for the particle origin information object. This object is used to track time, location, and collisional regime
- of fragments produced in collisional events.</p>
-    
-     
-     <h4>Components</h4>
-    
-<table class="table table-striped varlist">
-<thead><tr><th>Type</th><th>Visibility</th>
-
-<th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
-
-
-
-<tbody>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-lintegrate"></span>logical,</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>lintegrate</strong></td><td> =</td><td>.false.</td><td><p>Flag indicating that this object should be integrated in the current step </p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-origin_type"></span>character(len=32),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>origin_type</strong></td><td></td><td></td><td><p>String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.)</p></td>
-  
-</tr>
-
   
   
   
   
 <tr>
   
-  <td><span class="anchor" id="variable-origin_time"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-info"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>origin_time</strong></td><td></td><td></td><td><p>The time of the particle's formation</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-origin_xh"></span>real(kind=DP),</td>
-  
-  <td>public,</td>
-  <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>origin_xh</strong></td><td></td><td></td><td><p>The heliocentric distance vector at the time of the particle's formation</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-origin_vh"></span>real(kind=DP),</td>
-  
-  <td>public,</td>
-  <td>dimension(NDIM)</td><td>::</td>
-  <td><strong>origin_vh</strong></td><td></td><td></td><td><p>The heliocentric velocity vector at the time of the particle's formation</p></td>
+  <td><strong>info</strong></td><td></td><td></td><td></td>
   
 </tr>
 
@@ -9990,17 +10024,17 @@ <h4>Type-Bound Procedures</h4>
       <table class="table table-striped varlist">
       <tbody>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_particle_info.html#boundprocedure-dump~4'>dump</a></strong>  => symba_io_dump_particle_info </td>
-       <td><p>I/O routine for dumping particle info to file</p></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_base.html#boundprocedure-dump~2'>dump</a></strong>  => io_dump_swiftest </td>
+       <td></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_particle_info.html#boundprocedure-initialize~5'>initialize</a></strong>  => symba_io_initialize_particle_info </td>
-       <td><p>I/O routine for reading in particle info data</p></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-initialize~2'>initialize</a></strong>  => io_read_cb_in </td>
+       <td><p>I/O routine for reading in central body data</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_particle_info.html#boundprocedure-read_frame~4'>read_frame</a></strong>  => symba_io_read_frame_info </td>
-       <td><p>I/O routine for reading in a single frame of particle info</p></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-read_frame~2'>read_frame</a></strong>  => io_read_frame_cb </td>
+       <td><p>I/O routine for reading out a single frame of time-series data for the central body</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_particle_info.html#boundprocedure-write_frame~4'>write_frame</a></strong>  => symba_io_write_frame_info </td>
-       <td><p>I/O routine for writing out a single frame of particle info</p></td></tr>
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_cb.html#boundprocedure-write_frame~2'>write_frame</a></strong>  => io_write_frame_cb </td>
+       <td><p>I/O routine for writing out a single frame of time-series data for the central body</p></td></tr>
       
        </tbody>
        </table>
@@ -10010,81 +10044,6 @@ <h4>Type-Bound Procedures</h4>
 
      
      
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="type-symba_kinship"></span><h3>type, public :: <a href='../type/symba_kinship.html'>symba_kinship</a>
-    
-  </h3></div>
-  <div class="panel-body">
-    
-    
-    <p>Class definition for the kinship relationships used in bookkeeping multiple collisions bodies in a single time step.</p>
-    
-     
-     <h4>Components</h4>
-    
-<table class="table table-striped varlist">
-<thead><tr><th>Type</th><th>Visibility</th>
-
-<th>Attributes</th><th></th><th>Name</th><th></th><th>Initial</th><th></th></thead>
-
-
-
-<tbody>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-parent"></span>integer(kind=I4B),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>parent</strong></td><td></td><td></td><td><p>Index of parent particle</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-nchild"></span>integer(kind=I4B),</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>nchild</strong></td><td></td><td></td><td><p>number of children in merger list</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-child"></span>integer(kind=I4B),</td>
-  
-  <td>public,</td>
-  <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>child</strong></td><td></td><td></td><td><p>Index of children particles</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-     
-     
-          
-     
-  </div>
-</div>
-
-     
-     
 <div class="panel panel-default">
   <div class="panel-heading codesum"><span class="anchor" id="type-symba_pl"></span><h3>type, public, extends(<a href='../type/helio_pl.html'>helio_pl</a>) :: <a href='../type/symba_pl.html'>symba_pl</a>
     
@@ -10694,7 +10653,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>lmtiny</strong></td><td></td><td></td><td><p>flag indicating whether this body is below the MTINY cutoff value</p></td>
+  <td><strong>lmtiny</strong></td><td></td><td></td><td><p>flag indicating whether this body is below the GMTINY cutoff value</p></td>
   
 </tr>
 
@@ -10708,7 +10667,7 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>nplm</strong></td><td></td><td></td><td><p>number of bodies above the MTINY limit</p></td>
+  <td><strong>nplm</strong></td><td></td><td></td><td><p>number of bodies above the GMTINY limit</p></td>
   
 </tr>
 
@@ -10722,7 +10681,7 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>nplplm</strong></td><td></td><td></td><td><p>Number of body (all massive)-body (only those above MTINY) comparisons in the flattened upper triangular matrix </p></td>
+  <td><strong>nplplm</strong></td><td></td><td></td><td><p>Number of body (all massive)-body (only those above GMTINY) comparisons in the flattened upper triangular matrix </p></td>
   
 </tr>
 
@@ -10844,7 +10803,7 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-info"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
@@ -11597,7 +11556,7 @@ <h4>Components</h4>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>lmtiny</strong></td><td></td><td></td><td><p>flag indicating whether this body is below the MTINY cutoff value</p></td>
+  <td><strong>lmtiny</strong></td><td></td><td></td><td><p>flag indicating whether this body is below the GMTINY cutoff value</p></td>
   
 </tr>
 
@@ -11611,7 +11570,7 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>nplm</strong></td><td></td><td></td><td><p>number of bodies above the MTINY limit</p></td>
+  <td><strong>nplm</strong></td><td></td><td></td><td><p>number of bodies above the GMTINY limit</p></td>
   
 </tr>
 
@@ -11625,7 +11584,7 @@ <h4>Components</h4>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>nplplm</strong></td><td></td><td></td><td><p>Number of body (all massive)-body (only those above MTINY) comparisons in the flattened upper triangular matrix </p></td>
+  <td><strong>nplplm</strong></td><td></td><td></td><td><p>Number of body (all massive)-body (only those above GMTINY) comparisons in the flattened upper triangular matrix </p></td>
   
 </tr>
 
@@ -11747,7 +11706,7 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-info"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
@@ -12353,6 +12312,20 @@ <h4>Components</h4>
   
 </tr>
 
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-info~3"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>info</strong></td><td></td><td></td><td></td>
+  
+</tr>
+
 </tbody>
 </table>
 
@@ -12977,6 +12950,20 @@ <h4>Components</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-pl_discards"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  
+  <td>public,</td>
+  <td>allocatable</td><td>::</td>
+  <td><strong>pl_discards</strong></td><td></td><td></td><td><p>Discarded massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-gmtot"></span>real(kind=DP),</td>
@@ -13163,25 +13150,11 @@ <h4>Components</h4>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mergeadd_list"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
-  
-  <td>public,</td>
-  <td>allocatable</td><td>::</td>
-  <td><strong>mergeadd_list</strong></td><td></td><td></td><td><p>List of added bodies in mergers or collisions</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mergesub_list"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
+  <td><span class="anchor" id="variable-pl_adds"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
   
   <td>public,</td>
   <td>allocatable</td><td>::</td>
-  <td><strong>mergesub_list</strong></td><td></td><td></td><td><p>List of subtracted bodies in mergers or collisions</p></td>
+  <td><strong>pl_adds</strong></td><td></td><td></td><td><p>List of added bodies in mergers or collisions</p></td>
   
 </tr>
 
@@ -13262,10 +13235,16 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-get_energy_and_momentum'>get_energy_and_momentum</a></strong>  => util_get_energy_momentum_system </td>
        <td><p>Calculates the total system energy and momentum</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-rescale'>rescale</a></strong>  => util_rescale_system </td>
+       <td><p>Rescales the system into a new set of units</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-validate_ids'>validate_ids</a></strong>  => util_valid_id_system </td>
+       <td><p>Validate the numerical ids passed to the system and save the maximum value</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/symba_nbody_system.html#boundprocedure-write_discard~2'>write_discard</a></strong>  => symba_io_write_discard </td>
        <td><p>Write out information about discarded and merged planets and test particles in SyMBA</p></td></tr>
       
-       <tr><td>procedure, public :: <strong><a href='../type/symba_nbody_system.html#boundprocedure-initialize~6'>initialize</a></strong>  => symba_setup_initialize_system </td>
+       <tr><td>procedure, public :: <strong><a href='../type/symba_nbody_system.html#boundprocedure-initialize~5'>initialize</a></strong>  => symba_setup_initialize_system </td>
        <td><p>Performs SyMBA-specific initilization steps</p></td></tr>
       
        <tr><td>procedure, public :: <strong><a href='../type/symba_nbody_system.html#boundprocedure-step~8'>step</a></strong>  => symba_step_system </td>
diff --git a/docs/module/whm_classes.html b/docs/module/whm_classes.html
index 4d2da5922..9d84cb49c 100644
--- a/docs/module/whm_classes.html
+++ b/docs/module/whm_classes.html
@@ -330,59 +330,59 @@ <h3 class="panel-title">Uses</h3>
 <!-- module~whm_classes -->
 <g id="module~~whm_classes~~UsesGraph_node1" class="node">
 <title>module~whm_classes</title>
-<polygon fill="none" stroke="black" points="448,-24 372,-24 372,0 448,0 448,-24"/>
-<text text-anchor="middle" x="410" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_classes</text>
+<polygon fill="none" stroke="black" points="448,-44 372,-44 372,-20 448,-20 448,-44"/>
+<text text-anchor="middle" x="410" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_classes</text>
 </g>
-<!-- module~swiftest_classes -->
+<!-- module~swiftest_globals -->
 <g id="module~~whm_classes~~UsesGraph_node2" class="node">
-<title>module~swiftest_classes</title>
-<g id="a_module~~whm_classes~~UsesGraph_node2"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="336,-44 247,-44 247,-20 336,-20 336,-44"/>
-<text text-anchor="middle" x="291.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<title>module~swiftest_globals</title>
+<g id="a_module~~whm_classes~~UsesGraph_node2"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-44 123,-44 123,-20 211,-20 211,-44"/>
+<text text-anchor="middle" x="167" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~whm_classes~~UsesGraph_edge1" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.82,-18.38C363.68,-19.78 354.91,-21.29 346.27,-22.77"/>
-<polygon fill="#000000" stroke="#000000" points="345.5,-19.35 336.24,-24.49 346.69,-26.25 345.5,-19.35"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.86,-32.61C360.37,-32.77 347.66,-32.92 336,-33 296.45,-33.27 286.55,-33.25 247,-33 238.62,-32.95 229.74,-32.86 221.08,-32.76"/>
+<polygon fill="#000000" stroke="#000000" points="221.09,-29.26 211.05,-32.64 221.01,-36.26 221.09,-29.26"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~swiftest_classes -->
 <g id="module~~whm_classes~~UsesGraph_node3" class="node">
-<title>module~swiftest_globals</title>
-<g id="a_module~~whm_classes~~UsesGraph_node3"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-24 123,-24 123,0 211,0 211,-24"/>
-<text text-anchor="middle" x="167" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<title>module~swiftest_classes</title>
+<g id="a_module~~whm_classes~~UsesGraph_node3"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="336,-24 247,-24 247,0 336,0 336,-24"/>
+<text text-anchor="middle" x="291.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~whm_classes~~UsesGraph_edge2" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.86,-11.39C360.37,-11.23 347.66,-11.08 336,-11 296.45,-10.73 286.55,-10.75 247,-11 238.62,-11.05 229.74,-11.14 221.08,-11.24"/>
-<polygon fill="#000000" stroke="#000000" points="221.01,-7.74 211.05,-11.36 221.09,-14.74 221.01,-7.74"/>
-</g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~whm_classes~~UsesGraph_edge3" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.97,-24.89C238.66,-23.54 229.88,-22.1 221.31,-20.7"/>
-<polygon fill="#000000" stroke="#000000" points="221.83,-17.24 211.39,-19.08 220.7,-24.15 221.83,-17.24"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M371.82,-25.62C363.68,-24.22 354.91,-22.71 346.27,-21.23"/>
+<polygon fill="#000000" stroke="#000000" points="346.69,-17.75 336.24,-19.51 345.5,-24.65 346.69,-17.75"/>
 </g>
 <!-- iso_fortran_env -->
 <g id="module~~whm_classes~~UsesGraph_node4" class="node">
 <title>iso_fortran_env</title>
 <g id="a_module~~whm_classes~~UsesGraph_node4"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-24 0,-24 0,0 87,0 87,-24"/>
-<text text-anchor="middle" x="43.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-44 0,-44 0,-20 87,-20 87,-44"/>
+<text text-anchor="middle" x="43.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="module~~whm_classes~~UsesGraph_edge4" class="edge">
+<g id="module~~whm_classes~~UsesGraph_edge3" class="edge">
 <title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-12C114.58,-12 105.86,-12 97.36,-12"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-8.5 87.13,-12 97.13,-15.5 97.13,-8.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-32C114.58,-32 105.86,-32 97.36,-32"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-28.5 87.13,-32 97.13,-35.5 97.13,-28.5"/>
+</g>
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
+<g id="module~~whm_classes~~UsesGraph_edge4" class="edge">
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.97,-19.11C238.66,-20.46 229.88,-21.9 221.31,-23.3"/>
+<polygon fill="#000000" stroke="#000000" points="220.7,-19.85 211.39,-24.92 221.83,-26.76 220.7,-19.85"/>
 </g>
 </g>
 </svg>
@@ -487,175 +487,126 @@ <h3 class="panel-title">Used by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~whm_classes~~UsedByGraph Pages: 1 -->
-<svg id="modulewhm_classesUsedByGraph" width="601pt" height="2510pt"
- viewBox="0.00 0.00 601.00 2510.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~whm_classes~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2506)">
+<svg id="modulewhm_classesUsedByGraph" width="601pt" height="2552pt"
+ viewBox="0.00 0.00 601.00 2552.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~whm_classes~~UsedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2548)">
 <title>module~~whm_classes~~UsedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2506 597,-2506 597,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2548 597,-2548 597,4 -4,4"/>
 <!-- module~whm_classes -->
 <g id="module~~whm_classes~~UsedByGraph_node1" class="node">
 <title>module~whm_classes</title>
-<polygon fill="none" stroke="black" points="76,-1284 0,-1284 0,-1260 76,-1260 76,-1284"/>
-<text text-anchor="middle" x="38" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_classes</text>
+<polygon fill="none" stroke="black" points="76,-1305 0,-1305 0,-1281 76,-1281 76,-1305"/>
+<text text-anchor="middle" x="38" y="-1290.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_classes</text>
 </g>
-<!-- module~s_whm_coord -->
+<!-- module~whm_drift -->
 <g id="module~~whm_classes~~UsedByGraph_node2" class="node">
-<title>module~s_whm_coord</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node2"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-2502 475,-2502 475,-2478 554,-2478 554,-2502"/>
-<text text-anchor="middle" x="514.5" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
+<title>module~whm_drift</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node2"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="544,-2544 485,-2544 485,-2520 544,-2520 544,-2544"/>
+<text text-anchor="middle" x="514.5" y="-2529.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_coord&#45;&gt;module~whm_classes -->
+<!-- module~whm_drift&#45;&gt;module~whm_classes -->
 <g id="module~~whm_classes~~UsedByGraph_edge4" class="edge">
-<title>module~s_whm_coord&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M474.92,-2483.64C461.99,-2480.46 447.85,-2475.79 436,-2469 322.01,-2403.7 286.87,-2377.89 225,-2262 38.29,-1912.23 36.4,-1405.53 38.42,-1294.17"/>
-<polygon fill="#000000" stroke="#000000" points="41.92,-1294.19 38.63,-1284.12 34.92,-1294.04 41.92,-1294.19"/>
+<title>module~whm_drift&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M484.99,-2527.7C469.77,-2524.58 451.11,-2519.39 436,-2511 324.08,-2448.9 286.49,-2427.26 225,-2315 125.03,-2132.49 54.15,-1448.52 41.15,-1315.5"/>
+<polygon fill="#000000" stroke="#000000" points="44.61,-1314.91 40.16,-1305.3 37.64,-1315.59 44.61,-1314.91"/>
 </g>
 <!-- module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_node4" class="node">
+<g id="module~~whm_classes~~UsedByGraph_node10" class="node">
 <title>module~swiftest</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node4"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="400,-1284 346,-1284 346,-1260 400,-1260 400,-1284"/>
-<text text-anchor="middle" x="373" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<g id="a_module~~whm_classes~~UsedByGraph_node10"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
+<polygon fill="#337ab7" stroke="#337ab7" points="400,-1305 346,-1305 346,-1281 400,-1281 400,-1305"/>
+<text text-anchor="middle" x="373" y="-1290.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
+<!-- module~whm_drift&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge59" class="edge">
-<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.82,-2488.74C460.44,-2486.18 445.37,-2480.61 436,-2469 416.82,-2445.23 380.65,-1457.58 374.81,-1294.65"/>
-<polygon fill="#000000" stroke="#000000" points="378.29,-1294.23 374.44,-1284.37 371.3,-1294.48 378.29,-1294.23"/>
+<title>module~whm_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M484.69,-2532.07C467.79,-2530.46 447.55,-2525.33 436,-2511 416.47,-2486.78 380.52,-1479.74 374.78,-1315.53"/>
+<polygon fill="#000000" stroke="#000000" points="378.27,-1315.06 374.42,-1305.19 371.27,-1315.3 378.27,-1315.06"/>
 </g>
-<!-- module~helio_classes -->
+<!-- module~s_whm_coord -->
 <g id="module~~whm_classes~~UsedByGraph_node3" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node3"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="188.5,-1324 112.5,-1324 112.5,-1300 188.5,-1300 188.5,-1324"/>
-<text text-anchor="middle" x="150.5" y="-1309.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<title>module~s_whm_coord</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node3"><a xlink:href=".././module/s_whm_coord.html" xlink:title="s_whm_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-234 475,-234 475,-210 554,-210 554,-234"/>
+<text text-anchor="middle" x="514.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_coord</text>
 </a>
 </g>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge3" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M116.35,-1300C105.63,-1296.12 93.58,-1291.76 82.24,-1287.65"/>
-<polygon fill="#000000" stroke="#000000" points="83.11,-1284.24 72.51,-1284.13 80.72,-1290.83 83.11,-1284.24"/>
-</g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge2" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.5,-1272C204.21,-1272 132.32,-1272 86.31,-1272"/>
-<polygon fill="#000000" stroke="#000000" points="86.04,-1268.5 76.04,-1272 86.04,-1275.5 86.04,-1268.5"/>
+<!-- module~s_whm_coord&#45;&gt;module~whm_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge5" class="edge">
+<title>module~s_whm_coord&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M474.85,-215.75C461.92,-212.59 447.79,-207.89 436,-201 402.08,-181.17 413.18,-135.11 374,-138"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge12" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.5,-1272C236.35,-1272 204.1,-1284.42 181.45,-1295.41"/>
-<polygon fill="#000000" stroke="#000000" points="179.71,-1292.37 172.36,-1300 182.87,-1298.62 179.71,-1292.37"/>
+<!-- module~s_whm_coord&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge60" class="edge">
+<title>module~s_whm_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.86,-223.3C460.49,-225.86 445.41,-231.43 436,-243 402.43,-284.3 378.58,-1121.48 374.59,-1270.43"/>
+<polygon fill="#000000" stroke="#000000" points="371.09,-1270.56 374.32,-1280.65 378.08,-1270.74 371.09,-1270.56"/>
 </g>
-<!-- module~rmvs_classes -->
-<g id="module~~whm_classes~~UsedByGraph_node5" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node5"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="189,-1244 112,-1244 112,-1220 189,-1220 189,-1244"/>
-<text text-anchor="middle" x="150.5" y="-1229.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<!-- module~s_whm_step -->
+<g id="module~~whm_classes~~UsedByGraph_node4" class="node">
+<title>module~s_whm_step</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node4"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="551,-192 478,-192 478,-168 551,-168 551,-192"/>
+<text text-anchor="middle" x="514.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge79" class="edge">
-<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345.63,-1272C324.71,-1272 294.73,-1272 268.5,-1272"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.5,-1272C236.35,-1272 204.1,-1259.58 181.45,-1248.59"/>
-<polygon fill="#000000" stroke="#000000" points="182.87,-1245.38 172.36,-1244 179.71,-1251.63 182.87,-1245.38"/>
+<!-- module~s_whm_step&#45;&gt;module~whm_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge6" class="edge">
+<title>module~s_whm_step&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M477.87,-170.84C464.67,-167.32 449.6,-163.14 436,-159 408.17,-150.52 403.01,-135.86 374,-138"/>
 </g>
-<!-- module~symba_classes -->
-<g id="module~~whm_classes~~UsedByGraph_node39" class="node">
-<title>module~symba_classes</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node39"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="310,-1324 225,-1324 225,-1300 310,-1300 310,-1324"/>
-<text text-anchor="middle" x="267.5" y="-1309.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
-</a>
+<!-- module~s_whm_step&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge69" class="edge">
+<title>module~s_whm_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M477.66,-180.82C462.47,-183.14 446.01,-188.66 436,-201 401.06,-244.08 378.25,-1118.27 374.54,-1270.49"/>
+<polygon fill="#000000" stroke="#000000" points="371.03,-1270.81 374.28,-1280.89 378.03,-1270.98 371.03,-1270.81"/>
 </g>
+<!-- module~helio_classes -->
+<g id="module~~whm_classes~~UsedByGraph_node5" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node5"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="188.5,-1345 112.5,-1345 112.5,-1321 188.5,-1321 188.5,-1345"/>
+<text text-anchor="middle" x="150.5" y="-1330.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge86" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345.88,-1282.09C334.83,-1286.37 321.68,-1291.45 309.39,-1296.2"/>
-<polygon fill="#000000" stroke="#000000" points="307.84,-1293.04 299.77,-1299.91 310.36,-1299.57 307.84,-1293.04"/>
 </g>
-<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
 <g id="module~~whm_classes~~UsedByGraph_edge1" class="edge">
-<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M116.35,-1244C105.63,-1247.88 93.58,-1252.24 82.24,-1256.35"/>
-<polygon fill="#000000" stroke="#000000" points="80.72,-1253.17 72.51,-1259.87 83.11,-1259.76 80.72,-1253.17"/>
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M116.35,-1321C105.63,-1317.12 93.58,-1312.76 82.24,-1308.65"/>
+<polygon fill="#000000" stroke="#000000" points="83.11,-1305.24 72.51,-1305.13 80.72,-1311.83 83.11,-1305.24"/>
 </g>
 <!-- module~s_whm_util -->
 <g id="module~~whm_classes~~UsedByGraph_node6" class="node">
 <title>module~s_whm_util</title>
 <g id="a_module~~whm_classes~~UsedByGraph_node6"><a xlink:href=".././module/s_whm_util.html" xlink:title="s_whm_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="547.5,-234 481.5,-234 481.5,-210 547.5,-210 547.5,-234"/>
-<text text-anchor="middle" x="514.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
+<polygon fill="#5bc0de" stroke="#5bc0de" points="547.5,-150 481.5,-150 481.5,-126 547.5,-126 547.5,-150"/>
+<text text-anchor="middle" x="514.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_util</text>
 </a>
 </g>
 </g>
 <!-- module~s_whm_util&#45;&gt;module~whm_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge5" class="edge">
+<g id="module~~whm_classes~~UsedByGraph_edge7" class="edge">
 <title>module~s_whm_util&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M481.46,-217.27C466.88,-214.15 449.84,-209.09 436,-201 402.08,-181.17 413.18,-135.11 374,-138"/>
+<path fill="none" stroke="#000000" d="M481.31,-136.66C453.01,-135.8 410.71,-135.29 374,-138"/>
 </g>
 <!-- module~s_whm_util&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge64" class="edge">
-<title>module~s_whm_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M481.25,-222.35C465.14,-224.33 446.82,-229.7 436,-243 403.07,-283.46 378.69,-1103.9 374.61,-1249.88"/>
-<polygon fill="#000000" stroke="#000000" points="371.11,-1249.8 374.33,-1259.89 378.1,-1249.99 371.11,-1249.8"/>
-</g>
-<!-- module~s_whm_kick -->
-<g id="module~~whm_classes~~UsedByGraph_node7" class="node">
-<title>module~s_whm_kick</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node7"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="549.5,-192 479.5,-192 479.5,-168 549.5,-168 549.5,-192"/>
-<text text-anchor="middle" x="514.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
-</a>
-</g>
-</g>
-<!-- module~s_whm_kick&#45;&gt;module~whm_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge6" class="edge">
-<title>module~s_whm_kick&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M479.42,-171.25C465.85,-167.64 450.14,-163.3 436,-159 408.17,-150.52 403.01,-135.86 374,-138"/>
-</g>
-<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge36" class="edge">
-<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.26,-180.6C463.64,-182.77 446.37,-188.23 436,-201 401.75,-243.19 378.41,-1098.84 374.56,-1249.46"/>
-<polygon fill="#000000" stroke="#000000" points="371.06,-1249.68 374.3,-1259.77 378.05,-1249.86 371.06,-1249.68"/>
-</g>
-<!-- module~whm_drift -->
-<g id="module~~whm_classes~~UsedByGraph_node8" class="node">
-<title>module~whm_drift</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node8"><a xlink:href=".././module/whm_drift.html" xlink:title="whm_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="544,-150 485,-150 485,-126 544,-126 544,-150"/>
-<text text-anchor="middle" x="514.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift</text>
-</a>
-</g>
-</g>
-<!-- module~whm_drift&#45;&gt;module~whm_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge7" class="edge">
-<title>module~whm_drift&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M484.87,-136.77C456.64,-135.85 412.28,-135.17 374,-138"/>
-</g>
-<!-- module~whm_drift&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge70" class="edge">
-<title>module~whm_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M484.72,-137.94C467.83,-139.57 447.58,-144.7 436,-159 400.38,-202.96 378.09,-1095.69 374.51,-1249.52"/>
-<polygon fill="#000000" stroke="#000000" points="371.01,-1249.58 374.28,-1259.66 378.01,-1249.74 371.01,-1249.58"/>
+<title>module~s_whm_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M481.22,-138.32C465.1,-140.3 446.79,-145.67 436,-159 399.7,-203.86 377.94,-1115.27 374.48,-1270.59"/>
+<polygon fill="#000000" stroke="#000000" points="370.98,-1270.73 374.26,-1280.8 377.98,-1270.88 370.98,-1270.73"/>
 </g>
 <!-- module~s_whm_setup -->
-<g id="module~~whm_classes~~UsedByGraph_node9" class="node">
+<g id="module~~whm_classes~~UsedByGraph_node7" class="node">
 <title>module~s_whm_setup</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node9"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
+<g id="a_module~~whm_classes~~UsedByGraph_node7"><a xlink:href=".././module/s_whm_setup.html" xlink:title="s_whm_setup">
 <polygon fill="#5bc0de" stroke="#5bc0de" points="554,-108 475,-108 475,-84 554,-84 554,-108"/>
 <text text-anchor="middle" x="514.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_setup</text>
 </a>
@@ -667,970 +618,1034 @@ <h3 class="panel-title">Used by</h3>
 <path fill="none" stroke="#000000" d="M474.73,-106C462.31,-109.34 448.54,-113.18 436,-117 408.17,-125.48 403.01,-135.86 374,-138"/>
 </g>
 <!-- module~s_whm_setup&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge51" class="edge">
+<g id="module~~whm_classes~~UsedByGraph_edge73" class="edge">
 <title>module~s_whm_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.83,-97.27C460.46,-99.83 445.38,-105.4 436,-117 399.01,-162.75 377.78,-1092.91 374.46,-1249.67"/>
-<polygon fill="#000000" stroke="#000000" points="370.96,-1249.88 374.24,-1259.95 377.95,-1250.03 370.96,-1249.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.82,-97.27C460.45,-99.82 445.37,-105.4 436,-117 398.32,-163.64 377.63,-1112.56 374.44,-1270.74"/>
+<polygon fill="#000000" stroke="#000000" points="370.94,-1270.67 374.24,-1280.74 377.94,-1270.81 370.94,-1270.67"/>
+</g>
+<!-- module~s_whm_kick -->
+<g id="module~~whm_classes~~UsedByGraph_node8" class="node">
+<title>module~s_whm_kick</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node8"><a xlink:href=".././module/s_whm_kick.html" xlink:title="s_whm_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="549.5,-66 479.5,-66 479.5,-42 549.5,-42 549.5,-66"/>
+<text text-anchor="middle" x="514.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_kick</text>
+</a>
+</g>
+</g>
+<!-- module~s_whm_kick&#45;&gt;module~whm_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge9" class="edge">
+<title>module~s_whm_kick&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" d="M479.16,-59.24C465.11,-62.39 449.12,-67.33 436,-75 402.08,-94.83 413.18,-135.11 374,-138"/>
+</g>
+<!-- module~s_whm_kick&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge49" class="edge">
+<title>module~s_whm_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.22,-54.56C463.6,-56.73 446.32,-62.19 436,-75 396.99,-123.39 377.37,-1108.17 374.4,-1270.45"/>
+<polygon fill="#000000" stroke="#000000" points="370.9,-1270.63 374.21,-1280.69 377.9,-1270.76 370.9,-1270.63"/>
 </g>
 <!-- module~s_whm_gr -->
-<g id="module~~whm_classes~~UsedByGraph_node10" class="node">
+<g id="module~~whm_classes~~UsedByGraph_node9" class="node">
 <title>module~s_whm_gr</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node10"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="545.5,-66 483.5,-66 483.5,-42 545.5,-42 545.5,-66"/>
-<text text-anchor="middle" x="514.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
+<g id="a_module~~whm_classes~~UsedByGraph_node9"><a xlink:href=".././module/s_whm_gr.html" xlink:title="s_whm_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="545.5,-24 483.5,-24 483.5,0 545.5,0 545.5,-24"/>
+<text text-anchor="middle" x="514.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_gr</text>
 </a>
 </g>
 </g>
 <!-- module~s_whm_gr&#45;&gt;module~whm_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge9" class="edge">
+<g id="module~~whm_classes~~UsedByGraph_edge10" class="edge">
 <title>module~s_whm_gr&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M483.35,-58.34C468.37,-61.42 450.44,-66.56 436,-75 402.08,-94.83 413.18,-135.11 374,-138"/>
+<path fill="none" stroke="#000000" d="M372,-138C127.85,-156.02 51.52,-1111.14 40.47,-1270.55"/>
+<polygon fill="#000000" stroke="#000000" points="36.97,-1270.42 39.79,-1280.63 43.96,-1270.89 36.97,-1270.42"/>
+<path fill="none" stroke="#000000" d="M483.15,-14.77C467.76,-17.44 449.53,-22.69 436,-33 392.89,-65.84 423.52,-115.98 374,-138"/>
 </g>
 <!-- module~s_whm_gr&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge72" class="edge">
+<g id="module~~whm_classes~~UsedByGraph_edge78" class="edge">
 <title>module~s_whm_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.15,-54.09C466.58,-55.86 447.21,-61.11 436,-75 397.64,-122.54 377.48,-1090.35 374.41,-1249.84"/>
-<polygon fill="#000000" stroke="#000000" points="370.91,-1249.84 374.22,-1259.9 377.91,-1249.97 370.91,-1249.84"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.14,-12.07C466.56,-13.85 447.19,-19.1 436,-33 415.78,-58.12 380.27,-1104.08 374.73,-1270.72"/>
+<polygon fill="#000000" stroke="#000000" points="371.23,-1270.68 374.4,-1280.79 378.23,-1270.92 371.23,-1270.68"/>
 </g>
-<!-- module~s_whm_step -->
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge2" class="edge">
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.5,-1293C204.21,-1293 132.32,-1293 86.31,-1293"/>
+<polygon fill="#000000" stroke="#000000" points="86.04,-1289.5 76.04,-1293 86.04,-1296.5 86.04,-1289.5"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.5,-1293C236.35,-1293 204.1,-1305.42 181.45,-1316.41"/>
+<polygon fill="#000000" stroke="#000000" points="179.71,-1313.37 172.36,-1321 182.87,-1319.62 179.71,-1313.37"/>
+</g>
+<!-- module~rmvs_classes -->
 <g id="module~~whm_classes~~UsedByGraph_node11" class="node">
-<title>module~s_whm_step</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node11"><a xlink:href=".././module/s_whm_step.html" xlink:title="s_whm_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="551,-24 478,-24 478,0 551,0 551,-24"/>
-<text text-anchor="middle" x="514.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_whm_step</text>
+<title>module~rmvs_classes</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node11"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="189,-1265 112,-1265 112,-1241 189,-1241 189,-1265"/>
+<text text-anchor="middle" x="150.5" y="-1250.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~s_whm_step&#45;&gt;module~whm_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge10" class="edge">
-<title>module~s_whm_step&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M372,-138C132.19,-155.7 52.36,-1091.57 40.59,-1249.49"/>
-<polygon fill="#000000" stroke="#000000" points="37.07,-1249.63 39.83,-1259.86 44.05,-1250.14 37.07,-1249.63"/>
-<path fill="none" stroke="#000000" d="M477.75,-15.79C463.64,-18.71 447.98,-23.88 436,-33 392.89,-65.84 423.64,-116.26 374,-138"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge79" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.5,-1293C236.35,-1293 204.1,-1280.58 181.45,-1269.59"/>
+<polygon fill="#000000" stroke="#000000" points="182.87,-1266.38 172.36,-1265 179.71,-1272.63 182.87,-1266.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345.63,-1293C324.71,-1293 294.73,-1293 268.5,-1293"/>
 </g>
-<!-- module~s_whm_step&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge42" class="edge">
-<title>module~s_whm_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M477.62,-12.79C462.43,-15.11 445.97,-20.62 436,-33 416.13,-57.67 380.39,-1084.17 374.76,-1249.6"/>
-<polygon fill="#000000" stroke="#000000" points="371.25,-1249.88 374.4,-1260 378.24,-1250.12 371.25,-1249.88"/>
+<!-- module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_node66" class="node">
+<title>module~symba_classes</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node66"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="310,-1345 225,-1345 225,-1321 310,-1321 310,-1345"/>
+<text text-anchor="middle" x="267.5" y="-1330.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+</a>
 </g>
-<!-- module~s_obl -->
+</g>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge87" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345.88,-1303.09C334.83,-1307.37 321.68,-1312.45 309.39,-1317.2"/>
+<polygon fill="#000000" stroke="#000000" points="307.84,-1314.04 299.77,-1320.91 310.36,-1320.57 307.84,-1314.04"/>
+</g>
+<!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge3" class="edge">
+<title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M116.35,-1265C105.63,-1268.88 93.58,-1273.24 82.24,-1277.35"/>
+<polygon fill="#000000" stroke="#000000" points="80.72,-1274.17 72.51,-1280.87 83.11,-1280.76 80.72,-1274.17"/>
+</g>
+<!-- module~s_setup -->
 <g id="module~~whm_classes~~UsedByGraph_node12" class="node">
-<title>module~s_obl</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node12"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<title>module~s_setup</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node12"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
 <polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-990 487.5,-990 487.5,-966 541.5,-966 541.5,-990"/>
-<text text-anchor="middle" x="514.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
+<text text-anchor="middle" x="514.5" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_obl&#45;&gt;module~swiftest -->
+<!-- module~s_setup&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge18" class="edge">
-<title>module~s_obl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.4,-978.46C470.49,-980.17 449.22,-985.22 436,-999 401.15,-1035.32 382.1,-1191.61 376.1,-1249.94"/>
-<polygon fill="#000000" stroke="#000000" points="372.62,-1249.64 375.11,-1259.94 379.58,-1250.33 372.62,-1249.64"/>
+<title>module~s_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.33,-978.4C470.39,-980.08 449.12,-985.12 436,-999 398.65,-1038.53 381.01,-1208.72 375.75,-1270.49"/>
+<polygon fill="#000000" stroke="#000000" points="372.24,-1270.46 374.91,-1280.71 379.22,-1271.03 372.24,-1270.46"/>
 </g>
-<!-- module~s_util_solve -->
+<!-- module~drift_implementation -->
 <g id="module~~whm_classes~~UsedByGraph_node13" class="node">
-<title>module~s_util_solve</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node13"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="548.5,-948 480.5,-948 480.5,-924 548.5,-924 548.5,-948"/>
-<text text-anchor="middle" x="514.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
+<title>module~drift_implementation</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node13"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="569,-948 460,-948 460,-924 569,-924 569,-948"/>
+<text text-anchor="middle" x="514.5" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_solve&#45;&gt;module~swiftest -->
+<!-- module~drift_implementation&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge19" class="edge">
-<title>module~s_util_solve&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M480.39,-937.18C464.85,-939.47 447.31,-944.87 436,-957 396.03,-999.89 379.88,-1185 375.4,-1249.63"/>
-<polygon fill="#000000" stroke="#000000" points="371.88,-1249.7 374.71,-1259.91 378.87,-1250.17 371.88,-1249.7"/>
+<title>module~drift_implementation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M459.89,-942.06C450.9,-945.28 442.42,-950.03 436,-957 393.45,-1003.19 378.87,-1202.85 375.1,-1270.49"/>
+<polygon fill="#000000" stroke="#000000" points="371.59,-1270.68 374.55,-1280.85 378.58,-1271.05 371.59,-1270.68"/>
 </g>
-<!-- module~s_util_spill -->
+<!-- module~s_symba_encounter_check -->
 <g id="module~~whm_classes~~UsedByGraph_node14" class="node">
-<title>module~s_util_spill</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node14"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="545,-906 484,-906 484,-882 545,-882 545,-906"/>
-<text text-anchor="middle" x="514.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
+<title>module~s_symba_encounter_check</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node14"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="586,-1914 443,-1914 443,-1890 586,-1890 586,-1914"/>
+<text text-anchor="middle" x="514.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge20" class="edge">
-<title>module~s_util_spill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.76,-894.61C467.39,-896.56 448.02,-901.81 436,-915 390.84,-964.55 377.9,-1179.05 374.83,-1249.49"/>
-<polygon fill="#000000" stroke="#000000" points="371.32,-1249.73 374.41,-1259.86 378.32,-1250.02 371.32,-1249.73"/>
+<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.32,-1889.93C442.49,-1887.45 438.98,-1884.5 436,-1881 398.58,-1837.08 379.07,-1416.8 374.87,-1315.09"/>
+<polygon fill="#000000" stroke="#000000" points="378.36,-1314.88 374.46,-1305.03 371.37,-1315.16 378.36,-1314.88"/>
 </g>
-<!-- module~s_helio_kick -->
+<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge91" class="edge">
+<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M372,-2091C314.74,-2041.16 277.21,-1475.78 269.83,-1355.44"/>
+<polygon fill="#000000" stroke="#000000" points="273.31,-1354.98 269.21,-1345.21 266.32,-1355.41 273.31,-1354.98"/>
+<path fill="none" stroke="#000000" d="M448.74,-1914.17C444.13,-1916.6 439.81,-1919.52 436,-1923 377.28,-1976.72 434.03,-2143.26 374,-2091"/>
+</g>
+<!-- module~s_rmvs_kick -->
 <g id="module~~whm_classes~~UsedByGraph_node15" class="node">
-<title>module~s_helio_kick</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node15"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="549.5,-2334 479.5,-2334 479.5,-2310 549.5,-2310 549.5,-2334"/>
-<text text-anchor="middle" x="514.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
+<title>module~s_rmvs_kick</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node15"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="550,-276 479,-276 479,-252 550,-252 550,-276"/>
+<text text-anchor="middle" x="514.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_kick&#45;&gt;module~helio_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge13" class="edge">
-<title>module~s_helio_kick&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M479.42,-2330.75C465.85,-2334.36 450.14,-2338.7 436,-2343 408.17,-2351.48 400.61,-2375.77 374,-2364"/>
-</g>
-<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge21" class="edge">
-<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.27,-2321.39C463.66,-2319.22 446.38,-2313.76 436,-2301 403.07,-2260.54 378.69,-1440.1 374.61,-1294.12"/>
-<polygon fill="#000000" stroke="#000000" points="378.1,-1294.01 374.33,-1284.11 371.11,-1294.2 378.1,-1294.01"/>
+<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M478.88,-264.67C463.38,-266.88 446.3,-272.36 436,-285 371.69,-363.9 373.04,-1129.1 373.84,-1270.57"/>
+<polygon fill="#000000" stroke="#000000" points="370.34,-1271.01 373.91,-1280.99 377.34,-1270.97 370.34,-1271.01"/>
 </g>
-<!-- module~s_util_append -->
+<!-- module~s_rmvs_kick&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge82" class="edge">
+<title>module~s_rmvs_kick&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M372,-390C193.86,-403.15 157.67,-1095.34 152.3,-1230.32"/>
+<polygon fill="#000000" stroke="#000000" points="148.79,-1230.55 151.91,-1240.67 155.78,-1230.81 148.79,-1230.55"/>
+<path fill="none" stroke="#000000" d="M478.92,-267.55C464.51,-270.43 448.31,-275.62 436,-285 392.89,-317.84 420.64,-362.39 374,-390"/>
+</g>
+<!-- module~s_rmvs_chk -->
 <g id="module~~whm_classes~~UsedByGraph_node16" class="node">
-<title>module~s_util_append</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node16"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-864 475,-864 475,-840 554,-840 554,-864"/>
-<text text-anchor="middle" x="514.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
+<title>module~s_rmvs_chk</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node16"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="549.5,-486 479.5,-486 479.5,-462 549.5,-462 549.5,-486"/>
+<text text-anchor="middle" x="514.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_append&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge22" class="edge">
-<title>module~s_util_append&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.61,-853.92C460.55,-856.6 445.76,-862.09 436,-873 385.63,-929.26 376.13,-1173.41 374.38,-1249.36"/>
-<polygon fill="#000000" stroke="#000000" points="370.88,-1249.61 374.17,-1259.68 377.88,-1249.76 370.88,-1249.61"/>
+<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.37,-474.69C463.78,-476.88 446.49,-482.33 436,-495 385.17,-556.35 375.65,-1148.23 374.22,-1270.84"/>
+<polygon fill="#000000" stroke="#000000" points="370.72,-1270.88 374.11,-1280.92 377.72,-1270.96 370.72,-1270.88"/>
 </g>
-<!-- module~s_discard -->
+<!-- module~s_rmvs_chk&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge83" class="edge">
+<title>module~s_rmvs_chk&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M479.16,-468.76C465.11,-465.61 449.12,-460.67 436,-453 402.08,-433.17 413.18,-387.11 374,-390"/>
+</g>
+<!-- module~s_util_get_energy_momentum -->
 <g id="module~~whm_classes~~UsedByGraph_node17" class="node">
-<title>module~s_discard</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node17"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="543.5,-822 485.5,-822 485.5,-798 543.5,-798 543.5,-822"/>
-<text text-anchor="middle" x="514.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
+<title>module~s_util_get_energy_momentum</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node17"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="593,-906 436,-906 436,-882 593,-882 593,-906"/>
+<text text-anchor="middle" x="514.5" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
 </a>
 </g>
 </g>
-<!-- module~s_discard&#45;&gt;module~swiftest -->
+<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge23" class="edge">
-<title>module~s_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M485.13,-810.3C468.4,-812.05 448.17,-817.2 436,-831 380.31,-894.12 374.5,-1168.94 374.01,-1249.64"/>
-<polygon fill="#000000" stroke="#000000" points="370.51,-1249.69 373.97,-1259.7 377.51,-1249.71 370.51,-1249.69"/>
+<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.9,-906.05C442.88,-908.53 439.18,-911.48 436,-915 388.2,-967.95 376.97,-1197.59 374.59,-1270.62"/>
+<polygon fill="#000000" stroke="#000000" points="371.08,-1270.84 374.28,-1280.94 378.08,-1271.05 371.08,-1270.84"/>
 </g>
-<!-- module~drift_implementation -->
+<!-- module~s_util_coord -->
 <g id="module~~whm_classes~~UsedByGraph_node18" class="node">
-<title>module~drift_implementation</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node18"><a xlink:href=".././module/drift_implementation.html" xlink:title="drift_implementation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="569,-780 460,-780 460,-756 569,-756 569,-780"/>
-<text text-anchor="middle" x="514.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_implementation</text>
+<title>module~s_util_coord</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node18"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="549.5,-864 479.5,-864 479.5,-840 549.5,-840 549.5,-864"/>
+<text text-anchor="middle" x="514.5" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
 </a>
 </g>
 </g>
-<!-- module~drift_implementation&#45;&gt;module~swiftest -->
+<!-- module~s_util_coord&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge24" class="edge">
-<title>module~drift_implementation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M459.97,-773.64C450.86,-776.88 442.32,-781.75 436,-789 375,-858.99 373.03,-1164.42 373.7,-1249.77"/>
-<polygon fill="#000000" stroke="#000000" points="370.21,-1249.93 373.81,-1259.9 377.21,-1249.86 370.21,-1249.93"/>
+<title>module~s_util_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.35,-853.07C463.95,-855.37 446.83,-860.81 436,-873 382.93,-932.74 375.28,-1192.6 374.18,-1270.71"/>
+<polygon fill="#000000" stroke="#000000" points="370.68,-1270.83 374.06,-1280.87 377.68,-1270.91 370.68,-1270.83"/>
 </g>
-<!-- module~s_helio_step -->
+<!-- module~s_util_set -->
 <g id="module~~whm_classes~~UsedByGraph_node19" class="node">
-<title>module~s_helio_step</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node19"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="551,-2292 478,-2292 478,-2268 551,-2268 551,-2292"/>
-<text text-anchor="middle" x="514.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
+<title>module~s_util_set</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node19"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="543.5,-822 485.5,-822 485.5,-798 543.5,-798 543.5,-822"/>
+<text text-anchor="middle" x="514.5" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_step&#45;&gt;module~helio_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge15" class="edge">
-<title>module~s_helio_step&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M372,-2364C153.98,-2364 150.25,-1487.58 151.26,-1334.63"/>
-<polygon fill="#000000" stroke="#000000" points="154.77,-1334.21 151.35,-1324.18 147.77,-1334.15 154.77,-1334.21"/>
-<path fill="none" stroke="#000000" d="M478,-2285.5C464.24,-2288.66 448.76,-2293.54 436,-2301 402.08,-2320.83 409.93,-2379.89 374,-2364"/>
-</g>
-<!-- module~s_helio_step&#45;&gt;module~swiftest -->
+<!-- module~s_util_set&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge25" class="edge">
-<title>module~s_helio_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M477.69,-2279.15C462.52,-2276.82 446.05,-2271.31 436,-2259 404.46,-2220.35 379.08,-1438.1 374.68,-1294.53"/>
-<polygon fill="#000000" stroke="#000000" points="378.17,-1294.19 374.37,-1284.3 371.17,-1294.4 378.17,-1294.19"/>
+<title>module~s_util_set&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M485.48,-810.23C468.66,-811.94 448.22,-817.06 436,-831 377.6,-897.61 373.74,-1188.2 373.85,-1270.94"/>
+<polygon fill="#000000" stroke="#000000" points="370.35,-1271 373.89,-1280.99 377.35,-1270.98 370.35,-1271"/>
 </g>
-<!-- module~s_helio_coord -->
+<!-- module~s_symba_drift -->
 <g id="module~~whm_classes~~UsedByGraph_node20" class="node">
-<title>module~s_helio_coord</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node20"><a xlink:href=".././module/s_helio_coord.html" xlink:title="s_helio_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-2460 475,-2460 475,-2436 554,-2436 554,-2460"/>
-<text text-anchor="middle" x="514.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_coord</text>
+<title>module~s_symba_drift</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node20"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-2292 475,-2292 475,-2268 554,-2268 554,-2292"/>
+<text text-anchor="middle" x="514.5" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_coord&#45;&gt;module~helio_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge16" class="edge">
-<title>module~s_helio_coord&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M474.85,-2441.75C461.92,-2438.59 447.79,-2433.89 436,-2427 402.08,-2407.17 409.93,-2379.89 374,-2364"/>
-</g>
-<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
+<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge26" class="edge">
-<title>module~s_helio_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.83,-2446.73C460.46,-2444.17 445.38,-2438.6 436,-2427 417.49,-2404.1 380.83,-1453.05 374.84,-1294.34"/>
-<polygon fill="#000000" stroke="#000000" points="378.33,-1294.17 374.46,-1284.31 371.34,-1294.44 378.33,-1294.17"/>
+<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.89,-2278.68C460.53,-2276.11 445.44,-2270.55 436,-2259 405.1,-2221.19 379.2,-1455.57 374.69,-1315.05"/>
+<polygon fill="#000000" stroke="#000000" points="378.19,-1314.92 374.37,-1305.04 371.19,-1315.14 378.19,-1314.92"/>
 </g>
-<!-- module~s_rmvs_util -->
+<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge93" class="edge">
+<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M474.89,-2276.85C461.21,-2273.98 446.59,-2268.69 436,-2259 377.28,-2205.28 434.03,-2143.26 374,-2091"/>
+</g>
+<!-- module~s_util_rescale -->
 <g id="module~~whm_classes~~UsedByGraph_node21" class="node">
-<title>module~s_rmvs_util</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node21"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="548,-318 481,-318 481,-294 548,-294 548,-318"/>
-<text text-anchor="middle" x="514.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
+<title>module~s_util_rescale</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node21"><a xlink:href=".././module/s_util_rescale.html" xlink:title="s_util_rescale">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="553.5,-780 475.5,-780 475.5,-756 553.5,-756 553.5,-780"/>
+<text text-anchor="middle" x="514.5" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_rescale</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
+<!-- module~s_util_rescale&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge27" class="edge">
-<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M480.88,-306.42C464.88,-308.45 446.77,-313.84 436,-327 375.74,-400.64 373.76,-1113.82 373.94,-1249.7"/>
-<polygon fill="#000000" stroke="#000000" points="370.44,-1249.77 373.96,-1259.76 377.44,-1249.76 370.44,-1249.77"/>
-</g>
-<!-- module~s_rmvs_util&#45;&gt;module~rmvs_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge83" class="edge">
-<title>module~s_rmvs_util&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M480.7,-310.9C466.29,-314.03 449.6,-319.05 436,-327 402.08,-346.83 413.18,-387.11 374,-390"/>
+<title>module~s_util_rescale&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.23,-769.61C460.91,-772.21 445.77,-777.73 436,-789 372.37,-862.38 372.34,-1182.82 373.57,-1270.66"/>
+<polygon fill="#000000" stroke="#000000" points="370.07,-1270.89 373.73,-1280.83 377.07,-1270.78 370.07,-1270.89"/>
 </g>
-<!-- module~s_util_resize -->
+<!-- module~s_util_version -->
 <g id="module~~whm_classes~~UsedByGraph_node22" class="node">
-<title>module~s_util_resize</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node22"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="550.5,-738 478.5,-738 478.5,-714 550.5,-714 550.5,-738"/>
-<text text-anchor="middle" x="514.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
+<title>module~s_util_version</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node22"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="553.5,-738 475.5,-738 475.5,-714 553.5,-714 553.5,-738"/>
+<text text-anchor="middle" x="514.5" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_resize&#45;&gt;module~swiftest -->
+<!-- module~s_util_version&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge28" class="edge">
-<title>module~s_util_resize&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M478.4,-727.05C463.18,-729.39 446.47,-734.86 436,-747 402.62,-785.69 380.4,-1154.31 375.18,-1249.6"/>
-<polygon fill="#000000" stroke="#000000" points="371.69,-1249.43 374.64,-1259.6 378.68,-1249.8 371.69,-1249.43"/>
+<title>module~s_util_version&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.18,-727.56C460.85,-730.16 445.72,-735.68 436,-747 401.32,-787.38 379.99,-1172.27 375.09,-1270.35"/>
+<polygon fill="#000000" stroke="#000000" points="371.58,-1270.45 374.58,-1280.61 378.57,-1270.79 371.58,-1270.45"/>
 </g>
-<!-- module~s_operator_cross -->
+<!-- module~s_util_minimize_bfgs -->
 <g id="module~~whm_classes~~UsedByGraph_node23" class="node">
-<title>module~s_operator_cross</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node23"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="562.5,-696 466.5,-696 466.5,-672 562.5,-672 562.5,-696"/>
-<text text-anchor="middle" x="514.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
+<title>module~s_util_minimize_bfgs</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node23"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="570.5,-696 458.5,-696 458.5,-672 570.5,-672 570.5,-696"/>
+<text text-anchor="middle" x="514.5" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
 </a>
 </g>
 </g>
-<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
+<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge29" class="edge">
-<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.27,-687.54C454.83,-690.66 443.7,-696 436,-705 399.94,-747.16 379.5,-1150.05 374.97,-1249.76"/>
-<polygon fill="#000000" stroke="#000000" points="371.46,-1249.76 374.51,-1259.9 378.46,-1250.07 371.46,-1249.76"/>
+<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M458.26,-690.11C449.76,-693.35 441.88,-698.1 436,-705 398.58,-748.92 379.07,-1169.2 374.87,-1270.91"/>
+<polygon fill="#000000" stroke="#000000" points="371.37,-1270.84 374.46,-1280.97 378.36,-1271.12 371.37,-1270.84"/>
 </g>
-<!-- module~s_user_kick_getacch -->
+<!-- module~s_rmvs_discard -->
 <g id="module~~whm_classes~~UsedByGraph_node24" class="node">
-<title>module~s_user_kick_getacch</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node24"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="570.5,-654 458.5,-654 458.5,-630 570.5,-630 570.5,-654"/>
-<text text-anchor="middle" x="514.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
+<title>module~s_rmvs_discard</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node24"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="558.5,-444 470.5,-444 470.5,-420 558.5,-420 558.5,-444"/>
+<text text-anchor="middle" x="514.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge30" class="edge">
-<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M458.24,-648.09C449.75,-651.34 441.86,-656.09 436,-663 397.26,-708.63 378.69,-1145.6 374.79,-1249.78"/>
-<polygon fill="#000000" stroke="#000000" points="371.29,-1249.69 374.42,-1259.81 378.29,-1249.94 371.29,-1249.69"/>
+<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.1,-434.35C457.27,-437.26 444.43,-442.79 436,-453 382.47,-517.87 375.08,-1144.52 374.13,-1270.87"/>
+<polygon fill="#000000" stroke="#000000" points="370.63,-1270.89 374.06,-1280.91 377.63,-1270.93 370.63,-1270.89"/>
 </g>
-<!-- module~s_symba_collision -->
+<!-- module~s_rmvs_discard&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge85" class="edge">
+<title>module~s_rmvs_discard&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M470.32,-420.81C459.11,-417.76 447.07,-414.37 436,-411 408.17,-402.52 403.01,-387.86 374,-390"/>
+</g>
+<!-- proc~solve_wbs -->
 <g id="module~~whm_classes~~UsedByGraph_node25" class="node">
-<title>module~s_symba_collision</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node25"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="564,-1914 465,-1914 465,-1890 564,-1890 564,-1914"/>
-<text text-anchor="middle" x="514.5" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
+<title>proc~solve_wbs</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node25"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="545.5,-654 483.5,-654 483.5,-630 545.5,-630 545.5,-654"/>
+<text text-anchor="middle" x="514.5" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge74" class="edge">
-<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.61,-1898.04C453.75,-1894.87 443.31,-1889.61 436,-1881 397.26,-1835.37 378.69,-1398.4 374.79,-1294.22"/>
-<polygon fill="#000000" stroke="#000000" points="378.29,-1294.06 374.42,-1284.19 371.29,-1294.31 378.29,-1294.06"/>
-</g>
-<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge93" class="edge">
-<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M464.97,-1908.43C454.6,-1911.56 444.28,-1916.18 436,-1923 387.83,-1962.68 421.16,-2089.89 374,-2049"/>
+<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge31" class="edge">
+<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.39,-642.28C466.9,-644.13 447.52,-649.38 436,-663 395.94,-710.36 378.32,-1164.2 374.71,-1270.71"/>
+<polygon fill="#000000" stroke="#000000" points="371.21,-1270.82 374.37,-1280.93 378.2,-1271.05 371.21,-1270.82"/>
 </g>
-<!-- module~s_eucl -->
+<!-- module~s_gr -->
 <g id="module~~whm_classes~~UsedByGraph_node26" class="node">
-<title>module~s_eucl</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node26"><a xlink:href=".././module/s_eucl.html" xlink:title="s_eucl">
+<title>module~s_gr</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node26"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
 <polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-612 487.5,-612 487.5,-588 541.5,-588 541.5,-612"/>
-<text text-anchor="middle" x="514.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_eucl</text>
+<text text-anchor="middle" x="514.5" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_eucl&#45;&gt;module~swiftest -->
+<!-- module~s_gr&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge32" class="edge">
-<title>module~s_eucl&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.19,-599.9C469.95,-601.34 448.4,-606.29 436,-621 394.6,-670.09 377.95,-1140.87 374.64,-1249.65"/>
-<polygon fill="#000000" stroke="#000000" points="371.14,-1249.7 374.34,-1259.8 378.13,-1249.91 371.14,-1249.7"/>
+<title>module~s_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.17,-599.89C469.93,-601.32 448.38,-606.28 436,-621 393.26,-671.83 377.59,-1159.73 374.57,-1270.64"/>
+<polygon fill="#000000" stroke="#000000" points="371.06,-1270.88 374.3,-1280.97 378.06,-1271.06 371.06,-1270.88"/>
 </g>
-<!-- module~s_rmvs_discard -->
+<!-- module~s_kick -->
 <g id="module~~whm_classes~~UsedByGraph_node27" class="node">
-<title>module~s_rmvs_discard</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node27"><a xlink:href=".././module/s_rmvs_discard.html" xlink:title="s_rmvs_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="558.5,-276 470.5,-276 470.5,-252 558.5,-252 558.5,-276"/>
-<text text-anchor="middle" x="514.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_discard</text>
+<title>module~s_kick</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node27"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-570 487.5,-570 487.5,-546 541.5,-546 541.5,-570"/>
+<text text-anchor="middle" x="514.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_discard&#45;&gt;module~swiftest -->
+<!-- module~s_kick&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge33" class="edge">
-<title>module~s_rmvs_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.44,-266.21C457.47,-269.09 444.46,-274.63 436,-285 373.05,-362.14 373.27,-1109.94 373.87,-1249.6"/>
-<polygon fill="#000000" stroke="#000000" points="370.37,-1249.92 373.92,-1259.91 377.37,-1249.89 370.37,-1249.92"/>
-</g>
-<!-- module~s_rmvs_discard&#45;&gt;module~rmvs_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge80" class="edge">
-<title>module~s_rmvs_discard&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M372,-390C197.93,-402.85 158.46,-1078.18 152.42,-1209.87"/>
-<polygon fill="#000000" stroke="#000000" points="148.92,-1209.83 151.97,-1219.97 155.91,-1210.14 148.92,-1209.83"/>
-<path fill="none" stroke="#000000" d="M470.19,-269.55C458.24,-272.65 445.87,-277.48 436,-285 392.89,-317.84 420.83,-362.72 374,-390"/>
+<title>module~s_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.15,-557.87C469.9,-559.29 448.34,-564.24 436,-579 390.57,-633.33 376.91,-1155.73 374.44,-1270.7"/>
+<polygon fill="#000000" stroke="#000000" points="370.94,-1270.72 374.23,-1280.79 377.94,-1270.87 370.94,-1270.72"/>
 </g>
-<!-- module~s_util_coord -->
+<!-- module~s_util_resize -->
 <g id="module~~whm_classes~~UsedByGraph_node28" class="node">
-<title>module~s_util_coord</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node28"><a xlink:href=".././module/s_util_coord.html" xlink:title="s_util_coord">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="549.5,-570 479.5,-570 479.5,-546 549.5,-546 549.5,-570"/>
-<text text-anchor="middle" x="514.5" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_coord</text>
+<title>module~s_util_resize</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node28"><a xlink:href=".././module/s_util_resize.html" xlink:title="s_util_resize">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="550.5,-528 478.5,-528 478.5,-504 550.5,-504 550.5,-528"/>
+<text text-anchor="middle" x="514.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_resize</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_coord&#45;&gt;module~swiftest -->
+<!-- module~s_util_resize&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge34" class="edge">
-<title>module~s_util_coord&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.43,-558.74C463.86,-560.95 446.57,-566.39 436,-579 391.92,-631.58 377.25,-1136.66 374.5,-1249.65"/>
-<polygon fill="#000000" stroke="#000000" points="371,-1249.79 374.26,-1259.87 378,-1249.96 371,-1249.79"/>
+<title>module~s_util_resize&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M478.2,-516.88C462.93,-519.19 446.25,-524.68 436,-537 387.86,-594.86 376.25,-1152.34 374.32,-1270.9"/>
+<polygon fill="#000000" stroke="#000000" points="370.82,-1270.92 374.17,-1280.97 377.82,-1271.03 370.82,-1270.92"/>
 </g>
-<!-- module~s_symba_fragmentation -->
+<!-- module~s_symba_kick -->
 <g id="module~~whm_classes~~UsedByGraph_node29" class="node">
-<title>module~s_symba_fragmentation</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node29"><a xlink:href=".././module/s_symba_fragmentation.html" xlink:title="s_symba_fragmentation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="578,-1872 451,-1872 451,-1848 578,-1848 578,-1872"/>
-<text text-anchor="middle" x="514.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_fragmentation</text>
+<title>module~s_symba_kick</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node29"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-2250 475,-2250 475,-2226 554,-2226 554,-2250"/>
+<text text-anchor="middle" x="514.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
+<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge35" class="edge">
-<title>module~s_symba_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M450.65,-1850.43C445.12,-1847.51 440.08,-1843.77 436,-1839 399.94,-1796.84 379.5,-1393.95 374.97,-1294.24"/>
-<polygon fill="#000000" stroke="#000000" points="378.46,-1293.93 374.51,-1284.1 371.46,-1294.24 378.46,-1293.93"/>
+<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.91,-2236.66C460.55,-2234.1 445.46,-2228.54 436,-2217 377.14,-2145.18 374.02,-1450.53 373.97,-1315.63"/>
+<polygon fill="#000000" stroke="#000000" points="377.47,-1315.29 373.98,-1305.29 370.47,-1315.29 377.47,-1315.29"/>
 </g>
-<!-- module~s_symba_fragmentation&#45;&gt;module~symba_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge88" class="edge">
-<title>module~s_symba_fragmentation&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M372,-2049C316.26,-2000.67 277.6,-1452.01 269.91,-1334.19"/>
-<polygon fill="#000000" stroke="#000000" points="273.4,-1333.92 269.26,-1324.17 266.41,-1334.37 273.4,-1333.92"/>
-<path fill="none" stroke="#000000" d="M450.63,-1871.21C445.31,-1873.83 440.32,-1877.05 436,-1881 377.28,-1934.72 434.13,-2101.14 374,-2049"/>
+<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge89" class="edge">
+<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M474.62,-2234.07C461.22,-2231.11 446.87,-2225.95 436,-2217 387.83,-2177.32 421.08,-2131.98 374,-2091"/>
 </g>
-<!-- module~s_util_valid -->
+<!-- module~s_helio_drift -->
 <g id="module~~whm_classes~~UsedByGraph_node30" class="node">
-<title>module~s_util_valid</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node30"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="547,-528 482,-528 482,-504 547,-504 547,-528"/>
-<text text-anchor="middle" x="514.5" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
+<title>module~s_helio_drift</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node30"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="549.5,-2376 479.5,-2376 479.5,-2352 549.5,-2352 549.5,-2376"/>
+<text text-anchor="middle" x="514.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_valid&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge37" class="edge">
-<title>module~s_util_valid&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M481.77,-516.4C465.6,-518.38 447.07,-523.73 436,-537 389.27,-593.03 376.6,-1131.85 374.39,-1249.42"/>
-<polygon fill="#000000" stroke="#000000" points="370.88,-1249.67 374.2,-1259.73 377.88,-1249.79 370.88,-1249.67"/>
+<!-- module~s_helio_drift&#45;&gt;module~helio_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge14" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M479.42,-2372.75C465.85,-2376.36 450.14,-2380.7 436,-2385 408.17,-2393.48 400.89,-2417.1 374,-2406"/>
 </g>
-<!-- module~s_util_set -->
+<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge40" class="edge">
+<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.26,-2363.4C463.65,-2361.22 446.38,-2355.76 436,-2343 402.43,-2301.7 378.58,-1464.52 374.59,-1315.57"/>
+<polygon fill="#000000" stroke="#000000" points="378.08,-1315.26 374.32,-1305.35 371.09,-1315.44 378.08,-1315.26"/>
+</g>
+<!-- module~s_util_spill -->
 <g id="module~~whm_classes~~UsedByGraph_node31" class="node">
-<title>module~s_util_set</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node31"><a xlink:href=".././module/s_util_set.html" xlink:title="s_util_set">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="543.5,-1830 485.5,-1830 485.5,-1806 543.5,-1806 543.5,-1830"/>
-<text text-anchor="middle" x="514.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_set</text>
+<title>module~s_util_spill</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node31"><a xlink:href=".././module/s_util_spill.html" xlink:title="s_util_spill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="545,-1872 484,-1872 484,-1848 545,-1848 545,-1872"/>
+<text text-anchor="middle" x="514.5" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_spill</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_set&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge38" class="edge">
-<title>module~s_util_set&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M485.41,-1817.84C468.56,-1816.16 448.11,-1811.04 436,-1797 402.62,-1758.31 380.4,-1389.69 375.18,-1294.4"/>
-<polygon fill="#000000" stroke="#000000" points="378.68,-1294.2 374.64,-1284.4 371.69,-1294.57 378.68,-1294.2"/>
+<!-- module~s_util_spill&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge37" class="edge">
+<title>module~s_util_spill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.85,-1859.7C467.3,-1857.87 447.72,-1852.64 436,-1839 401.32,-1798.62 379.99,-1413.73 375.09,-1315.65"/>
+<polygon fill="#000000" stroke="#000000" points="378.57,-1315.21 374.58,-1305.39 371.58,-1315.55 378.57,-1315.21"/>
 </g>
-<!-- module~s_util_exit -->
+<!-- proc~ge_wpp -->
 <g id="module~~whm_classes~~UsedByGraph_node32" class="node">
-<title>module~s_util_exit</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node32"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="544.5,-1788 484.5,-1788 484.5,-1764 544.5,-1764 544.5,-1788"/>
-<text text-anchor="middle" x="514.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
+<title>proc~ge_wpp</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node32"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="541.5,-1830 487.5,-1830 487.5,-1806 541.5,-1806 541.5,-1830"/>
+<text text-anchor="middle" x="514.5" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_exit&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge39" class="edge">
-<title>module~s_util_exit&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M484.31,-1775.67C467.71,-1773.86 447.91,-1768.66 436,-1755 375,-1685.01 373.03,-1379.58 373.7,-1294.23"/>
-<polygon fill="#000000" stroke="#000000" points="377.21,-1294.14 373.81,-1284.1 370.21,-1294.07 377.21,-1294.14"/>
+<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge38" class="edge">
+<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.31,-1817.99C470.14,-1816.5 448.6,-1811.53 436,-1797 372.37,-1723.62 372.34,-1403.18 373.57,-1315.34"/>
+<polygon fill="#000000" stroke="#000000" points="377.07,-1315.22 373.73,-1305.17 370.07,-1315.11 377.07,-1315.22"/>
 </g>
-<!-- program~swiftest_driver -->
+<!-- module~s_orbel -->
 <g id="module~~whm_classes~~UsedByGraph_node33" class="node">
-<title>program~swiftest_driver</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node33"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="555,-1746 474,-1746 474,-1722 555,-1722 555,-1746"/>
-<text text-anchor="middle" x="514.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
+<title>module~s_orbel</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node33"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-1788 487.5,-1788 487.5,-1764 541.5,-1764 541.5,-1788"/>
+<text text-anchor="middle" x="514.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
 </a>
 </g>
 </g>
-<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge40" class="edge">
-<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M473.72,-1732C459.9,-1729.27 445.5,-1723.77 436,-1713 380.31,-1649.88 374.5,-1375.06 374.01,-1294.36"/>
-<polygon fill="#000000" stroke="#000000" points="377.51,-1294.29 373.97,-1284.3 370.51,-1294.31 377.51,-1294.29"/>
+<!-- module~s_orbel&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge39" class="edge">
+<title>module~s_orbel&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.37,-1775.95C470.21,-1774.44 448.68,-1769.47 436,-1755 377.6,-1688.39 373.74,-1397.8 373.85,-1315.06"/>
+<polygon fill="#000000" stroke="#000000" points="377.35,-1315.02 373.89,-1305.01 370.35,-1315 377.35,-1315.02"/>
 </g>
-<!-- module~s_rmvs_kick -->
+<!-- module~s_operator_cross -->
 <g id="module~~whm_classes~~UsedByGraph_node34" class="node">
-<title>module~s_rmvs_kick</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node34"><a xlink:href=".././module/s_rmvs_kick.html" xlink:title="s_rmvs_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="550,-486 479,-486 479,-462 550,-462 550,-486"/>
-<text text-anchor="middle" x="514.5" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_kick</text>
+<title>module~s_operator_cross</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node34"><a xlink:href=".././module/s_operator_cross.html" xlink:title="s_operator_cross">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="562.5,-1746 466.5,-1746 466.5,-1722 562.5,-1722 562.5,-1746"/>
+<text text-anchor="middle" x="514.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_operator_cross</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_kick&#45;&gt;module~swiftest -->
+<!-- module~s_operator_cross&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge41" class="edge">
-<title>module~s_rmvs_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M478.98,-474.75C463.5,-476.99 446.42,-482.45 436,-495 386.54,-554.57 375.96,-1128.65 374.27,-1249.67"/>
-<polygon fill="#000000" stroke="#000000" points="370.77,-1249.89 374.14,-1259.94 377.77,-1249.99 370.77,-1249.89"/>
-</g>
-<!-- module~s_rmvs_kick&#45;&gt;module~rmvs_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge85" class="edge">
-<title>module~s_rmvs_kick&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M478.77,-468.68C464.82,-465.52 449,-460.6 436,-453 402.08,-433.17 413.18,-387.11 374,-390"/>
+<title>module~s_operator_cross&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.49,-1730.27C455.06,-1727.15 443.87,-1721.86 436,-1713 382.93,-1653.26 375.28,-1393.4 374.18,-1315.29"/>
+<polygon fill="#000000" stroke="#000000" points="377.68,-1315.09 374.06,-1305.13 370.68,-1315.17 377.68,-1315.09"/>
 </g>
-<!-- module~s_setup -->
+<!-- module~s_symba_setup -->
 <g id="module~~whm_classes~~UsedByGraph_node35" class="node">
-<title>module~s_setup</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node35"><a xlink:href=".././module/s_setup.html" xlink:title="s_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-1704 487.5,-1704 487.5,-1680 541.5,-1680 541.5,-1704"/>
-<text text-anchor="middle" x="514.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_setup</text>
+<title>module~s_symba_setup</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node35"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="558.5,-2208 470.5,-2208 470.5,-2184 558.5,-2184 558.5,-2208"/>
+<text text-anchor="middle" x="514.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_setup&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge44" class="edge">
-<title>module~s_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.46,-1691.86C470.35,-1690.32 448.83,-1685.33 436,-1671 385.63,-1614.74 376.13,-1370.59 374.38,-1294.64"/>
-<polygon fill="#000000" stroke="#000000" points="377.88,-1294.24 374.17,-1284.32 370.88,-1294.39 377.88,-1294.24"/>
+<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge42" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.48,-2193.76C457.52,-2190.87 444.5,-2185.34 436,-2175 379.81,-2106.66 374.54,-1446.11 374.05,-1315.41"/>
+<polygon fill="#000000" stroke="#000000" points="377.55,-1315.04 374.02,-1305.05 370.55,-1315.06 377.55,-1315.04"/>
 </g>
-<!-- module~s_util_get_energy_momentum -->
+<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge92" class="edge">
+<title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M470.26,-2189.68C458.45,-2186.57 446.13,-2181.92 436,-2175 397.7,-2148.81 409,-2121.47 374,-2091"/>
+</g>
+<!-- program~swiftest_driver -->
 <g id="module~~whm_classes~~UsedByGraph_node36" class="node">
-<title>module~s_util_get_energy_momentum</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node36"><a xlink:href=".././module/s_util_get_energy_momentum.html" xlink:title="s_util_get_energy_momentum">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="593,-1662 436,-1662 436,-1638 593,-1638 593,-1662"/>
-<text text-anchor="middle" x="514.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_get_energy_momentum</text>
+<title>program~swiftest_driver</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node36"><a xlink:href=".././program/swiftest_driver.html" xlink:title="swiftest_driver">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="555,-1704 474,-1704 474,-1680 555,-1680 555,-1704"/>
+<text text-anchor="middle" x="514.5" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_get_energy_momentum&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge45" class="edge">
-<title>module~s_util_get_energy_momentum&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.94,-1637.92C442.9,-1635.45 439.19,-1632.5 436,-1629 390.84,-1579.45 377.9,-1364.95 374.83,-1294.51"/>
-<polygon fill="#000000" stroke="#000000" points="378.32,-1293.98 374.41,-1284.14 371.32,-1294.27 378.32,-1293.98"/>
+<!-- program~swiftest_driver&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge43" class="edge">
+<title>program~swiftest_driver&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M473.85,-1689.88C460.05,-1687.14 445.62,-1681.66 436,-1671 388.2,-1618.05 376.97,-1388.41 374.59,-1315.38"/>
+<polygon fill="#000000" stroke="#000000" points="378.08,-1314.95 374.28,-1305.06 371.08,-1315.16 378.08,-1314.95"/>
 </g>
-<!-- module~s_tides_kick_getacch -->
+<!-- module~s_util_copy -->
 <g id="module~~whm_classes~~UsedByGraph_node37" class="node">
-<title>module~s_tides_kick_getacch</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node37"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="571.5,-1620 457.5,-1620 457.5,-1596 571.5,-1596 571.5,-1620"/>
-<text text-anchor="middle" x="514.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
+<title>module~s_util_copy</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node37"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="547.5,-1662 481.5,-1662 481.5,-1638 547.5,-1638 547.5,-1662"/>
+<text text-anchor="middle" x="514.5" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
 </a>
 </g>
 </g>
-<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge46" class="edge">
-<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.2,-1600.84C449.23,-1597.67 441.8,-1593.22 436,-1587 396.03,-1544.11 379.88,-1359 375.4,-1294.37"/>
-<polygon fill="#000000" stroke="#000000" points="378.87,-1293.83 374.71,-1284.09 371.88,-1294.3 378.87,-1293.83"/>
+<!-- module~s_util_copy&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge44" class="edge">
+<title>module~s_util_copy&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M481.5,-1649.04C465.66,-1646.87 447.52,-1641.51 436,-1629 393.45,-1582.81 378.87,-1383.15 375.1,-1315.51"/>
+<polygon fill="#000000" stroke="#000000" points="378.58,-1314.95 374.55,-1305.15 371.59,-1315.32 378.58,-1314.95"/>
 </g>
-<!-- module~s_helio_gr -->
+<!-- module~s_util_valid -->
 <g id="module~~whm_classes~~UsedByGraph_node38" class="node">
-<title>module~s_helio_gr</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node38"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="545.5,-2418 483.5,-2418 483.5,-2394 545.5,-2394 545.5,-2418"/>
-<text text-anchor="middle" x="514.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
+<title>module~s_util_valid</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node38"><a xlink:href=".././module/s_util_valid.html" xlink:title="s_util_valid">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="547,-1620 482,-1620 482,-1596 547,-1596 547,-1620"/>
+<text text-anchor="middle" x="514.5" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_valid</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_gr&#45;&gt;module~helio_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge14" class="edge">
-<title>module~s_helio_gr&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M483.34,-2399.22C454.56,-2392.22 410.32,-2380.06 374,-2364"/>
+<!-- module~s_util_valid&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge45" class="edge">
+<title>module~s_util_valid&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M481.63,-1606.92C465.83,-1604.71 447.68,-1599.36 436,-1587 398.65,-1547.47 381.01,-1377.28 375.75,-1315.51"/>
+<polygon fill="#000000" stroke="#000000" points="379.22,-1314.97 374.91,-1305.29 372.24,-1315.54 379.22,-1314.97"/>
 </g>
-<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge47" class="edge">
-<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.17,-2405.9C466.61,-2404.11 447.23,-2398.86 436,-2385 400.38,-2341.04 378.09,-1448.31 374.51,-1294.48"/>
-<polygon fill="#000000" stroke="#000000" points="378.01,-1294.26 374.28,-1284.34 371.01,-1294.42 378.01,-1294.26"/>
+<!-- module~s_tides_step_spin -->
+<g id="module~~whm_classes~~UsedByGraph_node39" class="node">
+<title>module~s_tides_step_spin</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node39"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="563.5,-1578 465.5,-1578 465.5,-1554 563.5,-1554 563.5,-1578"/>
+<text text-anchor="middle" x="514.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
+</a>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge11" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M224.98,-1312C216.47,-1312 207.46,-1312 198.76,-1312"/>
-<polygon fill="#000000" stroke="#000000" points="198.76,-1308.5 188.76,-1312 198.76,-1315.5 198.76,-1308.5"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge78" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.47,-1299.86C239.59,-1295.59 231.89,-1290.68 225,-1286 208.19,-1274.58 189.76,-1261.04 175.56,-1250.37"/>
-<polygon fill="#000000" stroke="#000000" points="177.4,-1247.38 167.31,-1244.14 173.18,-1252.96 177.4,-1247.38"/>
+<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge46" class="edge">
+<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.43,-1561.3C454.55,-1558.15 443.89,-1553.08 436,-1545 403.75,-1511.98 383.41,-1370.4 376.57,-1315.18"/>
+<polygon fill="#000000" stroke="#000000" points="380.02,-1314.57 375.35,-1305.06 373.07,-1315.41 380.02,-1314.57"/>
 </g>
-<!-- module~s_orbel -->
+<!-- module~s_util_sort -->
 <g id="module~~whm_classes~~UsedByGraph_node40" class="node">
-<title>module~s_orbel</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node40"><a xlink:href=".././module/s_orbel.html" xlink:title="s_orbel">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-1578 487.5,-1578 487.5,-1554 541.5,-1554 541.5,-1578"/>
-<text text-anchor="middle" x="514.5" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_orbel</text>
+<title>module~s_util_sort</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node40"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="545,-1536 484,-1536 484,-1512 545,-1512 545,-1536"/>
+<text text-anchor="middle" x="514.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
 </a>
 </g>
 </g>
-<!-- module~s_orbel&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge49" class="edge">
-<title>module~s_orbel&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.4,-1565.54C470.49,-1563.83 449.22,-1558.78 436,-1545 401.15,-1508.68 382.1,-1352.39 376.1,-1294.06"/>
-<polygon fill="#000000" stroke="#000000" points="379.58,-1293.67 375.11,-1284.06 372.62,-1294.36 379.58,-1293.67"/>
+<!-- module~s_util_sort&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge47" class="edge">
+<title>module~s_util_sort&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.94,-1522.81C467.83,-1520.64 448.66,-1515.38 436,-1503 383.48,-1451.65 374.92,-1358.17 373.88,-1315.42"/>
+<polygon fill="#000000" stroke="#000000" points="377.38,-1315.2 373.76,-1305.24 370.38,-1315.28 377.38,-1315.2"/>
 </g>
-<!-- module~s_symba_drift -->
+<!-- module~s_helio_kick -->
 <g id="module~~whm_classes~~UsedByGraph_node41" class="node">
-<title>module~s_symba_drift</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node41"><a xlink:href=".././module/s_symba_drift.html" xlink:title="s_symba_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-2250 475,-2250 475,-2226 554,-2226 554,-2250"/>
-<text text-anchor="middle" x="514.5" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_drift</text>
+<title>module~s_helio_kick</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node41"><a xlink:href=".././module/s_helio_kick.html" xlink:title="s_helio_kick">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="549.5,-2334 479.5,-2334 479.5,-2310 549.5,-2310 549.5,-2334"/>
+<text text-anchor="middle" x="514.5" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_kick</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_drift&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge50" class="edge">
-<title>module~s_symba_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.9,-2236.67C460.54,-2234.11 445.45,-2228.54 436,-2217 405.81,-2180.1 379.42,-1434.1 374.74,-1294.43"/>
-<polygon fill="#000000" stroke="#000000" points="378.23,-1293.99 374.39,-1284.11 371.23,-1294.22 378.23,-1293.99"/>
+<!-- module~s_helio_kick&#45;&gt;module~helio_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge15" class="edge">
+<title>module~s_helio_kick&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M372,-2406C149.36,-2406 149.53,-1508.42 151.18,-1355.13"/>
+<polygon fill="#000000" stroke="#000000" points="154.68,-1355.09 151.3,-1345.05 147.68,-1355.01 154.68,-1355.09"/>
+<path fill="none" stroke="#000000" d="M479.16,-2327.24C465.11,-2330.39 449.12,-2335.33 436,-2343 402.08,-2362.83 410.31,-2420.99 374,-2406"/>
 </g>
-<!-- module~s_symba_drift&#45;&gt;module~symba_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge94" class="edge">
-<title>module~s_symba_drift&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M474.89,-2234.85C461.21,-2231.98 446.59,-2226.69 436,-2217 377.28,-2163.28 434.13,-2101.14 374,-2049"/>
+<!-- module~s_helio_kick&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge51" class="edge">
+<title>module~s_helio_kick&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.28,-2321.39C463.67,-2319.21 446.39,-2313.75 436,-2301 403.78,-2261.47 378.91,-1460.95 374.65,-1315.55"/>
+<polygon fill="#000000" stroke="#000000" points="378.14,-1315.1 374.35,-1305.21 371.14,-1315.31 378.14,-1315.1"/>
 </g>
-<!-- module~s_fragmentation -->
+<!-- module~s_tides_kick_getacch -->
 <g id="module~~whm_classes~~UsedByGraph_node42" class="node">
-<title>module~s_fragmentation</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node42"><a xlink:href=".././module/s_fragmentation.html" xlink:title="s_fragmentation">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="559.5,-1536 469.5,-1536 469.5,-1512 559.5,-1512 559.5,-1536"/>
-<text text-anchor="middle" x="514.5" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fragmentation</text>
+<title>module~s_tides_kick_getacch</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node42"><a xlink:href=".././module/s_tides_kick_getacch.html" xlink:title="s_tides_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="571.5,-1494 457.5,-1494 457.5,-1470 571.5,-1470 571.5,-1494"/>
+<text text-anchor="middle" x="514.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge57" class="edge">
-<title>module~s_fragmentation&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M469.18,-1520.17C457.07,-1517.11 444.86,-1511.88 436,-1503 378.29,-1445.15 372.67,-1339.75 373.15,-1294.08"/>
-<polygon fill="#000000" stroke="#000000" points="376.65,-1294.14 373.37,-1284.06 369.66,-1293.98 376.65,-1294.14"/>
+<!-- module~s_tides_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge48" class="edge">
+<title>module~s_tides_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.23,-1473.69C449.46,-1470.66 442.07,-1466.55 436,-1461 393.38,-1422.01 379.97,-1351.14 375.82,-1315.19"/>
+<polygon fill="#000000" stroke="#000000" points="379.3,-1314.82 374.8,-1305.22 372.33,-1315.53 379.3,-1314.82"/>
 </g>
-<!-- module~s_io -->
+<!-- module~s_util_fill -->
 <g id="module~~whm_classes~~UsedByGraph_node43" class="node">
-<title>module~s_io</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node43"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-1494 487.5,-1494 487.5,-1470 541.5,-1470 541.5,-1494"/>
-<text text-anchor="middle" x="514.5" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
+<title>module~s_util_fill</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node43"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-1452 487.5,-1452 487.5,-1428 541.5,-1428 541.5,-1452"/>
+<text text-anchor="middle" x="514.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
 </a>
 </g>
 </g>
-<!-- module~s_io&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge52" class="edge">
-<title>module~s_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.44,-1481.09C470.77,-1479.16 449.75,-1474.05 436,-1461 388.48,-1415.9 377.34,-1333.85 374.76,-1294.38"/>
-<polygon fill="#000000" stroke="#000000" points="378.25,-1294.03 374.23,-1284.23 371.26,-1294.4 378.25,-1294.03"/>
+<!-- module~s_util_fill&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge50" class="edge">
+<title>module~s_util_fill&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.3,-1438.33C470.98,-1436.07 450.42,-1430.88 436,-1419 403.13,-1391.92 386.25,-1343.13 378.84,-1314.87"/>
+<polygon fill="#000000" stroke="#000000" points="382.24,-1314.01 376.45,-1305.13 375.44,-1315.67 382.24,-1314.01"/>
 </g>
-<!-- module~s_helio_drift -->
+<!-- module~s_symba_collision -->
 <g id="module~~whm_classes~~UsedByGraph_node44" class="node">
-<title>module~s_helio_drift</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node44"><a xlink:href=".././module/s_helio_drift.html" xlink:title="s_helio_drift">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="549.5,-2376 479.5,-2376 479.5,-2352 549.5,-2352 549.5,-2376"/>
-<text text-anchor="middle" x="514.5" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_drift</text>
+<title>module~s_symba_collision</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node44"><a xlink:href=".././module/s_symba_collision.html" xlink:title="s_symba_collision">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="564,-2166 465,-2166 465,-2142 564,-2142 564,-2166"/>
+<text text-anchor="middle" x="514.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_collision</text>
 </a>
 </g>
 </g>
-<!-- module~s_helio_drift&#45;&gt;module~helio_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge17" class="edge">
-<title>module~s_helio_drift&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" d="M479.23,-2371.46C449.97,-2376.13 407.45,-2378.79 374,-2364"/>
+<!-- module~s_symba_collision&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge52" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.84,-2150.3C453.84,-2147.14 443.28,-2141.82 436,-2133 382.47,-2068.13 375.08,-1441.48 374.13,-1315.13"/>
+<polygon fill="#000000" stroke="#000000" points="377.63,-1315.07 374.06,-1305.09 370.63,-1315.11 377.63,-1315.07"/>
 </g>
-<!-- module~s_helio_drift&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge56" class="edge">
-<title>module~s_helio_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.26,-2363.4C463.64,-2361.23 446.37,-2355.77 436,-2343 401.75,-2300.81 378.41,-1445.16 374.56,-1294.54"/>
-<polygon fill="#000000" stroke="#000000" points="378.05,-1294.14 374.3,-1284.23 371.06,-1294.32 378.05,-1294.14"/>
+<!-- module~s_symba_collision&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge95" class="edge">
+<title>module~s_symba_collision&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M464.67,-2143.41C454.96,-2140.58 445,-2137.13 436,-2133 405.75,-2119.12 399.1,-2112.85 374,-2091"/>
 </g>
-<!-- module~s_util_version -->
+<!-- module~s_symba_discard -->
 <g id="module~~whm_classes~~UsedByGraph_node45" class="node">
-<title>module~s_util_version</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node45"><a xlink:href=".././module/s_util_version.html" xlink:title="s_util_version">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="553.5,-1452 475.5,-1452 475.5,-1428 553.5,-1428 553.5,-1452"/>
-<text text-anchor="middle" x="514.5" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_version</text>
+<title>module~s_symba_discard</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node45"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="562.5,-2124 466.5,-2124 466.5,-2100 562.5,-2100 562.5,-2124"/>
+<text text-anchor="middle" x="514.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_version&#45;&gt;module~swiftest -->
+<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge53" class="edge">
-<title>module~s_util_version&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M475.13,-1436.59C461.47,-1433.69 446.81,-1428.45 436,-1419 398.5,-1386.23 383.09,-1326.98 377.24,-1294.61"/>
-<polygon fill="#000000" stroke="#000000" points="380.63,-1293.66 375.55,-1284.37 373.73,-1294.8 380.63,-1293.66"/>
+<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.48,-2108.73C454.9,-2105.63 443.65,-2100.23 436,-2091 385.17,-2029.65 375.65,-1437.77 374.22,-1315.16"/>
+<polygon fill="#000000" stroke="#000000" points="377.72,-1315.04 374.11,-1305.08 370.72,-1315.12 377.72,-1315.04"/>
 </g>
-<!-- module~s_util_fill -->
+<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge94" class="edge">
+<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M466.18,-2116.91C436.37,-2117.36 398.94,-2112.71 374,-2091"/>
+</g>
+<!-- module~s_symba_util -->
 <g id="module~~whm_classes~~UsedByGraph_node46" class="node">
-<title>module~s_util_fill</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node46"><a xlink:href=".././module/s_util_fill.html" xlink:title="s_util_fill">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-1410 487.5,-1410 487.5,-1386 541.5,-1386 541.5,-1410"/>
-<text text-anchor="middle" x="514.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_fill</text>
+<title>module~s_symba_util</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node46"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="552,-2082 477,-2082 477,-2058 552,-2058 552,-2082"/>
+<text text-anchor="middle" x="514.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_fill&#45;&gt;module~swiftest -->
+<!-- module~s_symba_util&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge54" class="edge">
-<title>module~s_util_fill&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.23,-1395.9C471.09,-1393.46 450.75,-1388.24 436,-1377 407.98,-1355.66 390.19,-1317.7 381.17,-1293.75"/>
-<polygon fill="#000000" stroke="#000000" points="384.4,-1292.37 377.74,-1284.13 377.81,-1294.73 384.4,-1292.37"/>
+<title>module~s_symba_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.6,-2068.87C461.78,-2066.42 445.9,-2060.89 436,-2049 387.86,-1991.14 376.25,-1433.66 374.32,-1315.1"/>
+<polygon fill="#000000" stroke="#000000" points="377.82,-1314.97 374.17,-1305.03 370.82,-1315.08 377.82,-1314.97"/>
 </g>
-<!-- module~s_util_peri -->
+<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge97" class="edge">
+<title>module~s_symba_util&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M476.74,-2078.44C438.05,-2086.86 381.67,-2097.67 374,-2091"/>
+</g>
+<!-- module~s_util_solve -->
 <g id="module~~whm_classes~~UsedByGraph_node47" class="node">
-<title>module~s_util_peri</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node47"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="545,-1368 484,-1368 484,-1344 545,-1344 545,-1368"/>
-<text text-anchor="middle" x="514.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
+<title>module~s_util_solve</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node47"><a xlink:href=".././module/s_util_solve.html" xlink:title="s_util_solve">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="548.5,-1410 480.5,-1410 480.5,-1386 548.5,-1386 548.5,-1410"/>
+<text text-anchor="middle" x="514.5" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_solve</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<!-- module~s_util_solve&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge55" class="edge">
-<title>module~s_util_peri&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.72,-1351.74C468.67,-1348.67 450.56,-1343.51 436,-1335 417.35,-1324.1 400.46,-1306.13 389.04,-1292.17"/>
-<polygon fill="#000000" stroke="#000000" points="391.61,-1289.78 382.66,-1284.1 386.11,-1294.11 391.61,-1289.78"/>
+<title>module~s_util_solve&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M480.14,-1393.99C465.63,-1391.03 449,-1385.89 436,-1377 412.58,-1360.98 394.62,-1333.14 384.2,-1313.93"/>
+<polygon fill="#000000" stroke="#000000" points="387.29,-1312.29 379.57,-1305.03 381.08,-1315.52 387.29,-1312.29"/>
 </g>
-<!-- proc~solve_wbs -->
+<!-- module~s_rmvs_step -->
 <g id="module~~whm_classes~~UsedByGraph_node48" class="node">
-<title>proc~solve_wbs</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node48"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="545.5,-1326 483.5,-1326 483.5,-1302 545.5,-1302 545.5,-1326"/>
-<text text-anchor="middle" x="514.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
+<title>module~s_rmvs_step</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node48"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="551,-402 478,-402 478,-378 551,-378 551,-402"/>
+<text text-anchor="middle" x="514.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
 </a>
 </g>
 </g>
-<!-- proc~solve_wbs&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge58" class="edge">
-<title>proc~solve_wbs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.2,-1306.25C468.83,-1302.46 451.47,-1297.71 436,-1293 427.48,-1290.41 418.37,-1287.43 409.83,-1284.56"/>
-<polygon fill="#000000" stroke="#000000" points="410.72,-1281.16 400.13,-1281.25 408.47,-1287.79 410.72,-1281.16"/>
-</g>
-<!-- module~s_tides_step_spin -->
-<g id="module~~whm_classes~~UsedByGraph_node49" class="node">
-<title>module~s_tides_step_spin</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node49"><a xlink:href=".././module/s_tides_step_spin.html" xlink:title="s_tides_step_spin">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="563.5,-1284 465.5,-1284 465.5,-1260 563.5,-1260 563.5,-1284"/>
-<text text-anchor="middle" x="514.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_tides_step_spin</text>
-</a>
-</g>
+<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge56" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M477.73,-390.89C462.57,-393.22 446.09,-398.73 436,-411 379.81,-479.34 374.54,-1139.89 374.05,-1270.59"/>
+<polygon fill="#000000" stroke="#000000" points="370.55,-1270.94 374.02,-1280.95 377.55,-1270.96 370.55,-1270.94"/>
 </g>
-<!-- module~s_tides_step_spin&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge60" class="edge">
-<title>module~s_tides_step_spin&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.49,-1272C447.35,-1272 427.02,-1272 410.15,-1272"/>
-<polygon fill="#000000" stroke="#000000" points="410.13,-1268.5 400.13,-1272 410.13,-1275.5 410.13,-1268.5"/>
+<!-- module~s_rmvs_step&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge86" class="edge">
+<title>module~s_rmvs_step&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M477.9,-388.56C449.68,-387.76 409.26,-387.4 374,-390"/>
 </g>
 <!-- module~s_symba_io -->
-<g id="module~~whm_classes~~UsedByGraph_node50" class="node">
+<g id="module~~whm_classes~~UsedByGraph_node49" class="node">
 <title>module~s_symba_io</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node50"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="549.5,-2208 479.5,-2208 479.5,-2184 549.5,-2184 549.5,-2208"/>
-<text text-anchor="middle" x="514.5" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
+<g id="a_module~~whm_classes~~UsedByGraph_node49"><a xlink:href=".././module/s_symba_io.html" xlink:title="s_symba_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="549.5,-2040 479.5,-2040 479.5,-2016 549.5,-2016 549.5,-2040"/>
+<text text-anchor="middle" x="514.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_io</text>
 </a>
 </g>
 </g>
 <!-- module~s_symba_io&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge61" class="edge">
+<g id="module~~whm_classes~~UsedByGraph_edge57" class="edge">
 <title>module~s_symba_io&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.32,-2195.36C463.72,-2193.17 446.44,-2187.71 436,-2175 378.42,-2104.85 374.27,-1425.96 374.01,-1294.12"/>
-<polygon fill="#000000" stroke="#000000" points="377.51,-1294.01 374,-1284.01 370.51,-1294.02 377.51,-1294.01"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.42,-2027.27C463.84,-2025.07 446.55,-2019.62 436,-2007 390.57,-1952.67 376.91,-1430.27 374.44,-1315.3"/>
+<polygon fill="#000000" stroke="#000000" points="377.94,-1315.13 374.23,-1305.21 370.94,-1315.28 377.94,-1315.13"/>
 </g>
 <!-- module~s_symba_io&#45;&gt;module~symba_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge87" class="edge">
+<g id="module~~whm_classes~~UsedByGraph_edge88" class="edge">
 <title>module~s_symba_io&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M479.35,-2193.04C464.68,-2190.28 448.16,-2185.02 436,-2175 387.83,-2135.32 421.16,-2089.89 374,-2049"/>
+<path fill="none" stroke="#000000" d="M479.46,-2034.65C465.62,-2038.01 449.68,-2042.72 436,-2049 405.75,-2062.88 399.1,-2112.85 374,-2091"/>
 </g>
-<!-- module~s_util_sort -->
+<!-- module~s_rmvs_util -->
+<g id="module~~whm_classes~~UsedByGraph_node50" class="node">
+<title>module~s_rmvs_util</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node50"><a xlink:href=".././module/s_rmvs_util.html" xlink:title="s_rmvs_util">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="548,-360 481,-360 481,-336 548,-336 548,-360"/>
+<text text-anchor="middle" x="514.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_util</text>
+</a>
+</g>
+</g>
+<!-- module~s_rmvs_util&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge58" class="edge">
+<title>module~s_rmvs_util&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M480.89,-348.43C464.89,-350.46 446.78,-355.85 436,-369 377.14,-440.82 374.02,-1135.47 373.97,-1270.37"/>
+<polygon fill="#000000" stroke="#000000" points="370.47,-1270.71 373.98,-1280.71 377.47,-1270.71 370.47,-1270.71"/>
+</g>
+<!-- module~s_rmvs_util&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge81" class="edge">
+<title>module~s_rmvs_util&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M480.94,-356.34C467.04,-360.03 450.67,-364.53 436,-369 408.17,-377.48 403.01,-387.86 374,-390"/>
+</g>
+<!-- module~s_io -->
 <g id="module~~whm_classes~~UsedByGraph_node51" class="node">
-<title>module~s_util_sort</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node51"><a xlink:href=".././module/s_util_sort.html" xlink:title="s_util_sort">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="545,-1242 484,-1242 484,-1218 545,-1218 545,-1242"/>
-<text text-anchor="middle" x="514.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_sort</text>
+<title>module~s_io</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node51"><a xlink:href=".././module/s_io.html" xlink:title="s_io">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-1368 487.5,-1368 487.5,-1344 541.5,-1344 541.5,-1368"/>
+<text text-anchor="middle" x="514.5" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_io</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_sort&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge62" class="edge">
-<title>module~s_util_sort&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.94,-1237.55C469.43,-1241.37 451.74,-1246.21 436,-1251 427.48,-1253.59 418.37,-1256.57 409.83,-1259.44"/>
-<polygon fill="#000000" stroke="#000000" points="408.47,-1256.21 400.13,-1262.75 410.72,-1262.84 408.47,-1256.21"/>
+<!-- module~s_io&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge61" class="edge">
+<title>module~s_io&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.27,-1351.16C471.9,-1347.77 452.35,-1342.5 436,-1335 422.25,-1328.69 408.19,-1319.45 396.95,-1311.23"/>
+<polygon fill="#000000" stroke="#000000" points="399.04,-1308.43 388.95,-1305.22 394.84,-1314.02 399.04,-1308.43"/>
 </g>
-<!-- module~s_util_minimize_bfgs -->
+<!-- module~s_obl -->
 <g id="module~~whm_classes~~UsedByGraph_node52" class="node">
-<title>module~s_util_minimize_bfgs</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node52"><a xlink:href=".././module/s_util_minimize_bfgs.html" xlink:title="s_util_minimize_bfgs">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="570.5,-1200 458.5,-1200 458.5,-1176 570.5,-1176 570.5,-1200"/>
-<text text-anchor="middle" x="514.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_minimize_bfgs</text>
+<title>module~s_obl</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node52"><a xlink:href=".././module/s_obl.html" xlink:title="s_obl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-1326 487.5,-1326 487.5,-1302 541.5,-1302 541.5,-1326"/>
+<text text-anchor="middle" x="514.5" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_obl</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_minimize_bfgs&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge63" class="edge">
-<title>module~s_util_minimize_bfgs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M458.25,-1199.07C450.51,-1201.72 442.86,-1204.99 436,-1209 417.35,-1219.9 400.46,-1237.87 389.04,-1251.83"/>
-<polygon fill="#000000" stroke="#000000" points="386.11,-1249.89 382.66,-1259.9 391.61,-1254.22 386.11,-1249.89"/>
+<!-- module~s_obl&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge62" class="edge">
+<title>module~s_obl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.26,-1310.05C465.54,-1306.78 434.43,-1302.1 410.32,-1298.47"/>
+<polygon fill="#000000" stroke="#000000" points="410.53,-1294.96 400.12,-1296.93 409.49,-1301.88 410.53,-1294.96"/>
 </g>
-<!-- module~s_util_copy -->
+<!-- module~s_helio_gr -->
 <g id="module~~whm_classes~~UsedByGraph_node53" class="node">
-<title>module~s_util_copy</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node53"><a xlink:href=".././module/s_util_copy.html" xlink:title="s_util_copy">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="547.5,-1158 481.5,-1158 481.5,-1134 547.5,-1134 547.5,-1158"/>
-<text text-anchor="middle" x="514.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_copy</text>
+<title>module~s_helio_gr</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node53"><a xlink:href=".././module/s_helio_gr.html" xlink:title="s_helio_gr">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="545.5,-2502 483.5,-2502 483.5,-2478 545.5,-2478 545.5,-2502"/>
+<text text-anchor="middle" x="514.5" y="-2487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_gr</text>
 </a>
 </g>
 </g>
-<!-- module~s_util_copy&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge65" class="edge">
-<title>module~s_util_copy&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M481.24,-1149.11C466.28,-1151.88 448.97,-1157.12 436,-1167 407.98,-1188.34 390.19,-1226.3 381.17,-1250.25"/>
-<polygon fill="#000000" stroke="#000000" points="377.81,-1249.27 377.74,-1259.87 384.4,-1251.63 377.81,-1249.27"/>
+<!-- module~s_helio_gr&#45;&gt;module~helio_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge16" class="edge">
+<title>module~s_helio_gr&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M483.35,-2485.66C468.37,-2482.58 450.44,-2477.44 436,-2469 402.08,-2449.17 410.31,-2420.99 374,-2406"/>
 </g>
-<!-- proc~ge_wpp -->
+<!-- module~s_helio_gr&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge63" class="edge">
+<title>module~s_helio_gr&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.16,-2489.91C466.59,-2488.13 447.21,-2482.88 436,-2469 417.14,-2445.65 380.7,-1475.32 374.81,-1315.25"/>
+<polygon fill="#000000" stroke="#000000" points="378.31,-1315.01 374.44,-1305.15 371.31,-1315.27 378.31,-1315.01"/>
+</g>
+<!-- module~s_eucl -->
 <g id="module~~whm_classes~~UsedByGraph_node54" class="node">
-<title>proc~ge_wpp</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node54"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="541.5,-1116 487.5,-1116 487.5,-1092 541.5,-1092 541.5,-1116"/>
-<text text-anchor="middle" x="514.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
+<title>module~s_eucl</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node54"><a xlink:href=".././module/s_eucl.html" xlink:title="s_eucl">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-1284 487.5,-1284 487.5,-1260 541.5,-1260 541.5,-1284"/>
+<text text-anchor="middle" x="514.5" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_eucl</text>
 </a>
 </g>
 </g>
-<!-- proc~ge_wpp&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge66" class="edge">
-<title>proc~ge_wpp&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.42,-1105.34C470.95,-1107.45 450.17,-1112.62 436,-1125 398.5,-1157.77 383.09,-1217.02 377.24,-1249.39"/>
-<polygon fill="#000000" stroke="#000000" points="373.73,-1249.2 375.55,-1259.63 380.63,-1250.34 373.73,-1249.2"/>
+<!-- module~s_eucl&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge64" class="edge">
+<title>module~s_eucl&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.26,-1275.95C465.54,-1279.22 434.43,-1283.9 410.32,-1287.53"/>
+<polygon fill="#000000" stroke="#000000" points="409.49,-1284.12 400.12,-1289.07 410.53,-1291.04 409.49,-1284.12"/>
 </g>
-<!-- module~s_rmvs_chk -->
+<!-- module~s_util_append -->
 <g id="module~~whm_classes~~UsedByGraph_node55" class="node">
-<title>module~s_rmvs_chk</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node55"><a xlink:href=".././module/s_rmvs_chk.html" xlink:title="s_rmvs_chk">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="549.5,-444 479.5,-444 479.5,-420 549.5,-420 549.5,-444"/>
-<text text-anchor="middle" x="514.5" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_chk</text>
+<title>module~s_util_append</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node55"><a xlink:href=".././module/s_util_append.html" xlink:title="s_util_append">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-1242 475,-1242 475,-1218 554,-1218 554,-1242"/>
+<text text-anchor="middle" x="514.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_append</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_chk&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge67" class="edge">
-<title>module~s_rmvs_chk&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M479.36,-432.68C463.77,-434.87 446.48,-440.32 436,-453 383.85,-516.08 375.37,-1124.71 374.18,-1249.65"/>
-<polygon fill="#000000" stroke="#000000" points="370.68,-1249.88 374.09,-1259.91 377.68,-1249.94 370.68,-1249.88"/>
-</g>
-<!-- module~s_rmvs_chk&#45;&gt;module~rmvs_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge81" class="edge">
-<title>module~s_rmvs_chk&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M479.42,-423.25C465.85,-419.64 450.14,-415.3 436,-411 408.17,-402.52 403.01,-387.86 374,-390"/>
+<!-- module~s_util_append&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge65" class="edge">
+<title>module~s_util_append&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.78,-1237.82C462.1,-1241.07 448.16,-1245.42 436,-1251 422.25,-1257.31 408.19,-1266.55 396.95,-1274.77"/>
+<polygon fill="#000000" stroke="#000000" points="394.84,-1271.98 388.95,-1280.78 399.04,-1277.57 394.84,-1271.98"/>
 </g>
-<!-- module~s_kick -->
+<!-- module~s_fragmentation -->
 <g id="module~~whm_classes~~UsedByGraph_node56" class="node">
-<title>module~s_kick</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node56"><a xlink:href=".././module/s_kick.html" xlink:title="s_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-1074 487.5,-1074 487.5,-1050 541.5,-1050 541.5,-1074"/>
-<text text-anchor="middle" x="514.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_kick</text>
+<title>module~s_fragmentation</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node56"><a xlink:href=".././module/s_fragmentation.html" xlink:title="s_fragmentation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="559.5,-1200 469.5,-1200 469.5,-1176 559.5,-1176 559.5,-1200"/>
+<text text-anchor="middle" x="514.5" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_fragmentation</text>
 </a>
 </g>
 </g>
-<!-- module~s_kick&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge68" class="edge">
-<title>module~s_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.44,-1062.91C470.77,-1064.84 449.75,-1069.95 436,-1083 388.48,-1128.1 377.34,-1210.15 374.76,-1249.62"/>
-<polygon fill="#000000" stroke="#000000" points="371.26,-1249.6 374.23,-1259.77 378.25,-1249.97 371.26,-1249.6"/>
+<!-- module~s_fragmentation&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge66" class="edge">
+<title>module~s_fragmentation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M469.45,-1194.53C457.89,-1197.64 445.9,-1202.23 436,-1209 412.58,-1225.02 394.62,-1252.86 384.2,-1272.07"/>
+<polygon fill="#000000" stroke="#000000" points="381.08,-1270.48 379.57,-1280.97 387.29,-1273.71 381.08,-1270.48"/>
 </g>
-<!-- module~s_rmvs_setup -->
+<!-- module~s_user_kick_getacch -->
 <g id="module~~whm_classes~~UsedByGraph_node57" class="node">
-<title>module~s_rmvs_setup</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node57"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-402 475,-402 475,-378 554,-378 554,-402"/>
-<text text-anchor="middle" x="514.5" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
+<title>module~s_user_kick_getacch</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node57"><a xlink:href=".././module/s_user_kick_getacch.html" xlink:title="s_user_kick_getacch">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="570.5,-1158 458.5,-1158 458.5,-1134 570.5,-1134 570.5,-1158"/>
+<text text-anchor="middle" x="514.5" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_user_kick_getacch</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge69" class="edge">
-<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.94,-391.36C460.58,-393.93 445.48,-399.49 436,-411 381.14,-477.6 374.81,-1121.17 374.09,-1249.72"/>
-<polygon fill="#000000" stroke="#000000" points="370.59,-1249.91 374.04,-1259.92 377.59,-1249.94 370.59,-1249.91"/>
-</g>
-<!-- module~s_rmvs_setup&#45;&gt;module~rmvs_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge82" class="edge">
-<title>module~s_rmvs_setup&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M474.96,-388.48C446.92,-387.74 408.06,-387.49 374,-390"/>
+<!-- module~s_user_kick_getacch&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge67" class="edge">
+<title>module~s_user_kick_getacch&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M458.13,-1154.73C450.14,-1157.7 442.46,-1161.68 436,-1167 403.13,-1194.08 386.25,-1242.87 378.84,-1271.13"/>
+<polygon fill="#000000" stroke="#000000" points="375.44,-1270.33 376.45,-1280.87 382.24,-1271.99 375.44,-1270.33"/>
 </g>
-<!-- module~s_gr -->
+<!-- module~s_symba_fragmentation -->
 <g id="module~~whm_classes~~UsedByGraph_node58" class="node">
-<title>module~s_gr</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node58"><a xlink:href=".././module/s_gr.html" xlink:title="s_gr">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="541.5,-1032 487.5,-1032 487.5,-1008 541.5,-1008 541.5,-1032"/>
-<text text-anchor="middle" x="514.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_gr</text>
+<title>module~s_symba_fragmentation</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node58"><a xlink:href=".././module/s_symba_fragmentation.html" xlink:title="s_symba_fragmentation">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="578,-1998 451,-1998 451,-1974 578,-1974 578,-1998"/>
+<text text-anchor="middle" x="514.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_fragmentation</text>
 </a>
 </g>
 </g>
-<!-- module~s_gr&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge71" class="edge">
-<title>module~s_gr&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.2,-1020.67C470.43,-1022.49 449.39,-1027.58 436,-1041 378.29,-1098.85 372.67,-1204.25 373.15,-1249.92"/>
-<polygon fill="#000000" stroke="#000000" points="369.66,-1250.02 373.37,-1259.94 376.65,-1249.86 369.66,-1250.02"/>
+<!-- module~s_symba_fragmentation&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge68" class="edge">
+<title>module~s_symba_fragmentation&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M450.94,-1976.7C445.27,-1973.73 440.13,-1969.91 436,-1965 393.26,-1914.17 377.59,-1426.27 374.57,-1315.36"/>
+<polygon fill="#000000" stroke="#000000" points="378.06,-1314.94 374.3,-1305.03 371.06,-1315.12 378.06,-1314.94"/>
 </g>
-<!-- module~s_symba_setup -->
+<!-- module~s_symba_fragmentation&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge90" class="edge">
+<title>module~s_symba_fragmentation&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M452.9,-1998.07C446.93,-2000.51 441.18,-2003.46 436,-2007 397.7,-2033.19 409,-2121.47 374,-2091"/>
+</g>
+<!-- module~s_helio_coord -->
 <g id="module~~whm_classes~~UsedByGraph_node59" class="node">
-<title>module~s_symba_setup</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node59"><a xlink:href=".././module/s_symba_setup.html" xlink:title="s_symba_setup">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="558.5,-2166 470.5,-2166 470.5,-2142 558.5,-2142 558.5,-2166"/>
-<text text-anchor="middle" x="514.5" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_setup</text>
+<title>module~s_helio_coord</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node59"><a xlink:href=".././module/s_helio_coord.html" xlink:title="s_helio_coord">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-2460 475,-2460 475,-2436 554,-2436 554,-2460"/>
+<text text-anchor="middle" x="514.5" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_coord</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_setup&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge43" class="edge">
-<title>module~s_symba_setup&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.49,-2151.75C457.53,-2148.86 444.51,-2143.33 436,-2133 381.14,-2066.4 374.81,-1422.83 374.09,-1294.28"/>
-<polygon fill="#000000" stroke="#000000" points="377.59,-1294.06 374.04,-1284.08 370.59,-1294.09 377.59,-1294.06"/>
+<!-- module~s_helio_coord&#45;&gt;module~helio_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge13" class="edge">
+<title>module~s_helio_coord&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M474.9,-2438.58C446.49,-2431.13 407.2,-2419.7 374,-2406"/>
 </g>
-<!-- module~s_symba_setup&#45;&gt;module~symba_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge90" class="edge">
-<title>module~s_symba_setup&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M470.26,-2147.68C458.45,-2144.57 446.13,-2139.92 436,-2133 397.7,-2106.81 409.06,-2079.4 374,-2049"/>
+<!-- module~s_helio_coord&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge70" class="edge">
+<title>module~s_helio_coord&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.84,-2446.72C460.46,-2444.17 445.38,-2438.59 436,-2427 399.7,-2382.14 377.94,-1470.73 374.48,-1315.41"/>
+<polygon fill="#000000" stroke="#000000" points="377.98,-1315.12 374.26,-1305.2 370.98,-1315.27 377.98,-1315.12"/>
 </g>
-<!-- module~s_symba_discard -->
+<!-- module~s_util_peri -->
 <g id="module~~whm_classes~~UsedByGraph_node60" class="node">
-<title>module~s_symba_discard</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node60"><a xlink:href=".././module/s_symba_discard.html" xlink:title="s_symba_discard">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="562.5,-2124 466.5,-2124 466.5,-2100 562.5,-2100 562.5,-2124"/>
-<text text-anchor="middle" x="514.5" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_discard</text>
+<title>module~s_util_peri</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node60"><a xlink:href=".././module/s_util_peri.html" xlink:title="s_util_peri">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="545,-1116 484,-1116 484,-1092 545,-1092 545,-1116"/>
+<text text-anchor="middle" x="514.5" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_peri</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_discard&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge31" class="edge">
-<title>module~s_symba_discard&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M466.47,-2108.74C454.89,-2105.64 443.64,-2100.24 436,-2091 383.85,-2027.92 375.37,-1419.29 374.18,-1294.35"/>
-<polygon fill="#000000" stroke="#000000" points="377.68,-1294.06 374.09,-1284.09 370.68,-1294.12 377.68,-1294.06"/>
-</g>
-<!-- module~s_symba_discard&#45;&gt;module~symba_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge91" class="edge">
-<title>module~s_symba_discard&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M466.31,-2101.89C456.09,-2098.97 445.5,-2095.36 436,-2091 405.75,-2077.12 399.15,-2070.8 374,-2049"/>
+<!-- module~s_util_peri&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge71" class="edge">
+<title>module~s_util_peri&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.87,-1105.57C467.94,-1107.87 448.96,-1113.14 436,-1125 393.38,-1163.99 379.97,-1234.86 375.82,-1270.81"/>
+<polygon fill="#000000" stroke="#000000" points="372.33,-1270.47 374.8,-1280.78 379.3,-1271.18 372.33,-1270.47"/>
 </g>
-<!-- module~s_symba_kick -->
+<!-- module~s_rmvs_setup -->
 <g id="module~~whm_classes~~UsedByGraph_node61" class="node">
-<title>module~s_symba_kick</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node61"><a xlink:href=".././module/s_symba_kick.html" xlink:title="s_symba_kick">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-2082 475,-2082 475,-2058 554,-2058 554,-2082"/>
-<text text-anchor="middle" x="514.5" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_kick</text>
+<title>module~s_rmvs_setup</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node61"><a xlink:href=".././module/s_rmvs_setup.html" xlink:title="s_rmvs_setup">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="554,-318 475,-318 475,-294 554,-294 554,-318"/>
+<text text-anchor="middle" x="514.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_setup</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_kick&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge73" class="edge">
-<title>module~s_symba_kick&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.98,-2068.6C460.63,-2066.03 445.53,-2060.48 436,-2049 386.54,-1989.43 375.96,-1415.35 374.27,-1294.33"/>
-<polygon fill="#000000" stroke="#000000" points="377.77,-1294.01 374.14,-1284.06 370.77,-1294.11 377.77,-1294.01"/>
+<!-- module~s_rmvs_setup&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge72" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M474.89,-307.32C460.53,-309.89 445.44,-315.45 436,-327 374.39,-402.39 373.52,-1132.85 373.9,-1270.64"/>
+<polygon fill="#000000" stroke="#000000" points="370.41,-1270.84 373.94,-1280.83 377.41,-1270.82 370.41,-1270.84"/>
 </g>
-<!-- module~s_symba_kick&#45;&gt;module~symba_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge92" class="edge">
-<title>module~s_symba_kick&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M474.9,-2074.6C444.02,-2076.08 401.48,-2072.83 374,-2049"/>
+<!-- module~s_rmvs_setup&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge84" class="edge">
+<title>module~s_rmvs_setup&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" d="M474.85,-312.25C461.92,-315.41 447.79,-320.11 436,-327 402.08,-346.83 413.18,-387.11 374,-390"/>
 </g>
-<!-- module~s_rmvs_step -->
+<!-- module~s_discard -->
 <g id="module~~whm_classes~~UsedByGraph_node62" class="node">
-<title>module~s_rmvs_step</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node62"><a xlink:href=".././module/s_rmvs_step.html" xlink:title="s_rmvs_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="551,-360 478,-360 478,-336 551,-336 551,-360"/>
-<text text-anchor="middle" x="514.5" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_rmvs_step</text>
+<title>module~s_discard</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node62"><a xlink:href=".././module/s_discard.html" xlink:title="s_discard">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="543.5,-1074 485.5,-1074 485.5,-1050 543.5,-1050 543.5,-1074"/>
+<text text-anchor="middle" x="514.5" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_discard</text>
 </a>
 </g>
 </g>
-<!-- module~s_rmvs_step&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge48" class="edge">
-<title>module~s_rmvs_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M477.73,-348.88C462.55,-351.21 446.08,-356.72 436,-369 378.42,-439.15 374.27,-1118.04 374.01,-1249.88"/>
-<polygon fill="#000000" stroke="#000000" points="370.51,-1249.98 374,-1259.99 377.51,-1249.99 370.51,-1249.98"/>
-</g>
-<!-- module~s_rmvs_step&#45;&gt;module~rmvs_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge84" class="edge">
-<title>module~s_rmvs_step&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" d="M477.87,-357.16C464.67,-360.68 449.6,-364.86 436,-369 408.17,-377.48 403.01,-387.86 374,-390"/>
+<!-- module~s_discard&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge74" class="edge">
+<title>module~s_discard&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M485.45,-1063C469.04,-1065.03 449.06,-1070.23 436,-1083 383.48,-1134.35 374.92,-1227.83 373.88,-1270.58"/>
+<polygon fill="#000000" stroke="#000000" points="370.38,-1270.72 373.76,-1280.76 377.38,-1270.8 370.38,-1270.72"/>
 </g>
-<!-- module~s_symba_encounter_check -->
+<!-- module~s_symba_step -->
 <g id="module~~whm_classes~~UsedByGraph_node63" class="node">
-<title>module~s_symba_encounter_check</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node63"><a xlink:href=".././module/s_symba_encounter_check.html" xlink:title="s_symba_encounter_check">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="586,-2040 443,-2040 443,-2016 586,-2016 586,-2040"/>
-<text text-anchor="middle" x="514.5" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_encounter_check</text>
+<title>module~s_symba_step</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node63"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="555.5,-1956 473.5,-1956 473.5,-1932 555.5,-1932 555.5,-1956"/>
+<text text-anchor="middle" x="514.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~swiftest -->
+<!-- module~s_symba_step&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge75" class="edge">
-<title>module~s_symba_encounter_check&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.24,-2016C442.42,-2013.5 438.95,-2010.53 436,-2007 389.27,-1950.97 376.6,-1412.15 374.39,-1294.58"/>
-<polygon fill="#000000" stroke="#000000" points="377.88,-1294.21 374.2,-1284.27 370.88,-1294.33 377.88,-1294.21"/>
+<title>module~s_symba_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M473.48,-1942.21C459.63,-1939.5 445.27,-1933.96 436,-1923 395.94,-1875.64 378.32,-1421.8 374.71,-1315.29"/>
+<polygon fill="#000000" stroke="#000000" points="378.2,-1314.95 374.37,-1305.07 371.21,-1315.18 378.2,-1314.95"/>
 </g>
-<!-- module~s_symba_encounter_check&#45;&gt;module~symba_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge89" class="edge">
-<title>module~s_symba_encounter_check&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M459.82,-2040.02C423.37,-2047.51 380.62,-2054.74 374,-2049"/>
+<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge96" class="edge">
+<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" d="M473.43,-1948.2C460.37,-1951.2 446.54,-1956.31 436,-1965 387.83,-2004.68 421.08,-2131.98 374,-2091"/>
 </g>
-<!-- module~s_symba_util -->
+<!-- module~s_helio_step -->
 <g id="module~~whm_classes~~UsedByGraph_node64" class="node">
-<title>module~s_symba_util</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node64"><a xlink:href=".././module/s_symba_util.html" xlink:title="s_symba_util">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="552,-1998 477,-1998 477,-1974 552,-1974 552,-1998"/>
-<text text-anchor="middle" x="514.5" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_util</text>
+<title>module~s_helio_step</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node64"><a xlink:href=".././module/s_helio_step.html" xlink:title="s_helio_step">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="551,-2418 478,-2418 478,-2394 551,-2394 551,-2418"/>
+<text text-anchor="middle" x="514.5" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_helio_step</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_util&#45;&gt;module~swiftest -->
-<g id="module~~whm_classes~~UsedByGraph_edge76" class="edge">
-<title>module~s_symba_util&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.64,-1984.83C461.83,-1982.38 445.94,-1976.86 436,-1965 391.92,-1912.42 377.25,-1407.34 374.5,-1294.35"/>
-<polygon fill="#000000" stroke="#000000" points="378,-1294.04 374.26,-1284.13 371,-1294.21 378,-1294.04"/>
+<!-- module~s_helio_step&#45;&gt;module~helio_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge17" class="edge">
+<title>module~s_helio_step&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" d="M477.95,-2413.26C448.86,-2417.53 407.24,-2419.72 374,-2406"/>
 </g>
-<!-- module~s_symba_util&#45;&gt;module~symba_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge95" class="edge">
-<title>module~s_symba_util&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M476.75,-1993.32C463.56,-1996.62 448.8,-2001.13 436,-2007 405.75,-2020.88 399.15,-2070.8 374,-2049"/>
+<!-- module~s_helio_step&#45;&gt;module~swiftest -->
+<g id="module~~whm_classes~~UsedByGraph_edge76" class="edge">
+<title>module~s_helio_step&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M477.66,-2405.18C462.47,-2402.86 446.01,-2397.34 436,-2385 401.06,-2341.92 378.25,-1467.73 374.54,-1315.51"/>
+<polygon fill="#000000" stroke="#000000" points="378.03,-1315.02 374.28,-1305.11 371.03,-1315.19 378.03,-1315.02"/>
 </g>
-<!-- module~s_symba_step -->
+<!-- module~s_util_exit -->
 <g id="module~~whm_classes~~UsedByGraph_node65" class="node">
-<title>module~s_symba_step</title>
-<g id="a_module~~whm_classes~~UsedByGraph_node65"><a xlink:href=".././module/s_symba_step.html" xlink:title="s_symba_step">
-<polygon fill="#5bc0de" stroke="#5bc0de" points="555.5,-1956 473.5,-1956 473.5,-1932 555.5,-1932 555.5,-1956"/>
-<text text-anchor="middle" x="514.5" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_symba_step</text>
+<title>module~s_util_exit</title>
+<g id="a_module~~whm_classes~~UsedByGraph_node65"><a xlink:href=".././module/s_util_exit.html" xlink:title="s_util_exit">
+<polygon fill="#5bc0de" stroke="#5bc0de" points="544.5,-1032 484.5,-1032 484.5,-1008 544.5,-1008 544.5,-1032"/>
+<text text-anchor="middle" x="514.5" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">s_util_exit</text>
 </a>
 </g>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~swiftest -->
+<!-- module~s_util_exit&#45;&gt;module~swiftest -->
 <g id="module~~whm_classes~~UsedByGraph_edge77" class="edge">
-<title>module~s_symba_step&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M473.46,-1942.23C459.61,-1939.52 445.26,-1933.98 436,-1923 394.6,-1873.91 377.95,-1403.13 374.64,-1294.35"/>
-<polygon fill="#000000" stroke="#000000" points="378.13,-1294.09 374.34,-1284.2 371.14,-1294.3 378.13,-1294.09"/>
+<title>module~s_util_exit&#45;&gt;module~swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M484.48,-1020.88C468.15,-1022.9 448.57,-1028.14 436,-1041 403.75,-1074.02 383.41,-1215.6 376.57,-1270.82"/>
+<polygon fill="#000000" stroke="#000000" points="373.07,-1270.59 375.35,-1280.94 380.02,-1271.43 373.07,-1270.59"/>
 </g>
-<!-- module~s_symba_step&#45;&gt;module~symba_classes -->
-<g id="module~~whm_classes~~UsedByGraph_edge96" class="edge">
-<title>module~s_symba_step&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" d="M473.47,-1949.5C460.71,-1952.6 447.05,-1957.45 436,-1965 397.7,-1991.19 409.06,-2079.4 374,-2049"/>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge12" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M224.98,-1333C216.47,-1333 207.46,-1333 198.76,-1333"/>
+<polygon fill="#000000" stroke="#000000" points="198.76,-1329.5 188.76,-1333 198.76,-1336.5 198.76,-1329.5"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_classes~~UsedByGraph_edge80" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.47,-1320.86C239.59,-1316.59 231.89,-1311.68 225,-1307 208.19,-1295.58 189.76,-1282.04 175.56,-1271.37"/>
+<polygon fill="#000000" stroke="#000000" points="177.4,-1268.38 167.31,-1265.14 173.18,-1273.96 177.4,-1268.38"/>
 </g>
 </g>
 </svg>
@@ -3615,7 +3630,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -6010,6 +6025,20 @@ <h4>Components</h4>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-pl_discards"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  
+  <td>public,</td>
+  <td>allocatable</td><td>::</td>
+  <td><strong>pl_discards</strong></td><td></td><td></td><td><p>Discarded massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-gmtot"></span>real(kind=DP),</td>
@@ -6228,6 +6257,12 @@ <h4>Type-Bound Procedures</h4>
        <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-get_energy_and_momentum'>get_energy_and_momentum</a></strong>  => util_get_energy_momentum_system </td>
        <td><p>Calculates the total system energy and momentum</p></td></tr>
       
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-rescale'>rescale</a></strong>  => util_rescale_system </td>
+       <td><p>Rescales the system into a new set of units</p></td></tr>
+      
+       <tr><td>procedure, public :: <strong><a href='../type/swiftest_nbody_system.html#boundprocedure-validate_ids'>validate_ids</a></strong>  => util_valid_id_system </td>
+       <td><p>Validate the numerical ids passed to the system and save the maximum value</p></td></tr>
+      
        <tr><td>procedure, public :: <strong><a href='../type/whm_nbody_system.html#boundprocedure-initialize~4'>initialize</a></strong>  => whm_setup_initialize_system </td>
        <td><p>Replace the abstract procedures with concrete ones
  Performs WHM-specific initilization steps, like calculating the Jacobi masses</p></td></tr>
diff --git a/docs/module/whm_drift.html b/docs/module/whm_drift.html
index c9bf15811..8ac505087 100644
--- a/docs/module/whm_drift.html
+++ b/docs/module/whm_drift.html
@@ -245,260 +245,258 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: module~~whm_drift~~UsesGraph Pages: 1 -->
-<svg id="modulewhm_driftUsesGraph" width="641pt" height="203pt"
- viewBox="0.00 0.00 641.00 203.01" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="module~~whm_drift~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 281.35)">
+<svg id="modulewhm_driftUsesGraph" width="641pt" height="211pt"
+ viewBox="0.00 0.00 641.00 211.38" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="module~~whm_drift~~UsesGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 293.12)">
 <title>module~~whm_drift~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-281.35 897,-281.35 897,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-293.12 897,-293.12 897,4 -4,4"/>
 <!-- module~whm_drift -->
 <g id="module~~whm_drift~~UsesGraph_node1" class="node">
 <title>module~whm_drift</title>
-<polygon fill="none" stroke="black" points="893,-258 834,-258 834,-234 893,-234 893,-258"/>
-<text text-anchor="middle" x="863.5" y="-243.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_drift</text>
+<polygon fill="none" stroke="black" points="893,-250.91 834,-250.91 834,-226.91 893,-226.91 893,-250.91"/>
+<text text-anchor="middle" x="863.5" y="-236.51" font-family="Helvetica,sans-Serif" font-size="10.50">whm_drift</text>
 </g>
 <!-- module~whm_classes -->
 <g id="module~~whm_drift~~UsesGraph_node2" class="node">
 <title>module~whm_classes</title>
 <g id="a_module~~whm_drift~~UsesGraph_node2"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="462,-219 386,-219 386,-195 462,-195 462,-219"/>
-<text text-anchor="middle" x="424" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-232.91 390.5,-232.91 390.5,-208.91 466.5,-208.91 466.5,-232.91"/>
+<text text-anchor="middle" x="428.5" y="-218.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
 <!-- module~whm_drift&#45;&gt;module~whm_classes -->
 <g id="module~~whm_drift~~UsesGraph_edge2" class="edge">
 <title>module~whm_drift&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" d="M833.89,-253.28C772.89,-267.51 626.16,-294.78 510,-261 486.13,-254.06 462.55,-238.16 446.3,-225.41"/>
-<polygon fill="#000000" stroke="#000000" points="448.48,-222.67 438.51,-219.09 444.07,-228.11 448.48,-222.67"/>
+<path fill="none" stroke="#000000" d="M833.9,-249.23C772.93,-269.65 626.23,-310.28 510,-274.91 487.31,-268.01 465.21,-252.34 449.93,-239.65"/>
+<polygon fill="#000000" stroke="#000000" points="452.04,-236.85 442.17,-232.99 447.47,-242.16 452.04,-236.85"/>
 </g>
 <!-- module~swiftest -->
 <g id="module~~whm_drift~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_module~~whm_drift~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-238 744,-238 744,-214 798,-214 798,-238"/>
-<text text-anchor="middle" x="771" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-230.91 744,-230.91 744,-206.91 798,-206.91 798,-230.91"/>
+<text text-anchor="middle" x="771" y="-216.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- module~whm_drift&#45;&gt;module~swiftest -->
 <g id="module~~whm_drift~~UsesGraph_edge1" class="edge">
 <title>module~whm_drift&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.87,-239.67C825.68,-237.86 816.65,-235.87 808.07,-233.97"/>
-<polygon fill="#000000" stroke="#000000" points="808.82,-230.55 798.3,-231.81 807.31,-237.39 808.82,-230.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.87,-232.58C825.68,-230.77 816.65,-228.78 808.07,-226.88"/>
+<polygon fill="#000000" stroke="#000000" points="808.82,-223.46 798.3,-224.72 807.31,-230.3 808.82,-223.46"/>
 </g>
 <!-- module~swiftest_globals -->
-<g id="module~~whm_drift~~UsesGraph_node9" class="node">
+<g id="module~~whm_drift~~UsesGraph_node4" class="node">
 <title>module~swiftest_globals</title>
-<g id="a_module~~whm_drift~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-103 123,-103 123,-79 211,-79 211,-103"/>
-<text text-anchor="middle" x="167" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<g id="a_module~~whm_drift~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-136.91 123,-136.91 123,-112.91 211,-112.91 211,-136.91"/>
+<text text-anchor="middle" x="167" y="-122.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~whm_drift~~UsesGraph_edge4" class="edge">
+<g id="module~~whm_drift~~UsesGraph_edge3" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.79,-199.42C349.1,-191.04 292.14,-175.51 247,-152 225.35,-140.72 203.6,-123.38 188.41,-110.06"/>
-<polygon fill="#000000" stroke="#000000" points="190.48,-107.22 180.7,-103.14 185.81,-112.43 190.48,-107.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M390.17,-211.68C353.18,-202.03 295.23,-185.58 247,-165.91 230.22,-159.07 212.23,-149.88 197.66,-141.95"/>
+<polygon fill="#000000" stroke="#000000" points="199.07,-138.73 188.63,-136.95 195.68,-144.85 199.07,-138.73"/>
 </g>
 <!-- module~swiftest_classes -->
-<g id="module~~whm_drift~~UsesGraph_node10" class="node">
+<g id="module~~whm_drift~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
-<g id="a_module~~whm_drift~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="337,-143 248,-143 248,-119 337,-119 337,-143"/>
-<text text-anchor="middle" x="292.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<g id="a_module~~whm_drift~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-156.91 252.5,-156.91 252.5,-132.91 341.5,-132.91 341.5,-156.91"/>
+<text text-anchor="middle" x="297" y="-142.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~whm_drift~~UsesGraph_edge3" class="edge">
+<g id="module~~whm_drift~~UsesGraph_edge4" class="edge">
 <title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M399.39,-194.89C391.28,-190.62 382.18,-185.7 374,-181 356,-170.65 336.18,-158.35 320.71,-148.54"/>
-<polygon fill="#000000" stroke="#000000" points="322.46,-145.51 312.15,-143.08 318.7,-151.41 322.46,-145.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.66,-208.75C399.2,-204.39 390.72,-199.44 383,-194.91 364.6,-184.13 343.99,-172 327.67,-162.39"/>
+<polygon fill="#000000" stroke="#000000" points="328.99,-159.11 318.6,-157.05 325.44,-165.14 328.99,-159.11"/>
 </g>
 <!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="module~~whm_drift~~UsesGraph_edge12" class="edge">
+<g id="module~~whm_drift~~UsesGraph_edge10" class="edge">
 <title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C613.51,-243.48 600.45,-251.07 549.5,-247"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247C516.73,-244.54 483.54,-233.11 459.48,-223.1"/>
-<polygon fill="#000000" stroke="#000000" points="460.65,-219.79 450.08,-219.07 457.89,-226.23 460.65,-219.79"/>
-</g>
-<!-- module~helio_classes -->
-<g id="module~~whm_drift~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_module~~whm_drift~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-219 510.5,-219 510.5,-195 586.5,-195 586.5,-219"/>
-<text text-anchor="middle" x="548.5" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C613.4,-262.04 600.44,-265.13 549.5,-260.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-260.91C517.89,-258.46 486.07,-247.12 462.95,-237.14"/>
+<polygon fill="#000000" stroke="#000000" points="464.17,-233.85 453.61,-232.97 461.32,-240.24 464.17,-233.85"/>
 </g>
-</g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="module~~whm_drift~~UsesGraph_edge5" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C635.35,-244.98 604.14,-233.48 581.6,-223.32"/>
-<polygon fill="#000000" stroke="#000000" points="583.05,-220.14 572.51,-219.08 580.09,-226.48 583.05,-220.14"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C492.89,-30.85 354.73,-100.18 298,-104.91"/>
 </g>
 <!-- module~lambda_function -->
 <g id="module~~whm_drift~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_module~~whm_drift~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="338,-63 247,-63 247,-39 338,-39 338,-63"/>
-<text text-anchor="middle" x="292.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-38.91 383,-38.91 383,-14.91 474,-14.91 474,-38.91"/>
+<text text-anchor="middle" x="428.5" y="-24.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="module~~whm_drift~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-53C495.62,-36.48 479.32,-49.3 425,-53"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-53C398.59,-54.66 371.52,-54.55 348.48,-53.87"/>
-<polygon fill="#000000" stroke="#000000" points="348.31,-50.36 338.2,-53.52 348.07,-57.36 348.31,-50.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C526.69,-45.19 504.04,-41.74 484.19,-38.18"/>
+<polygon fill="#000000" stroke="#000000" points="484.57,-34.69 474.1,-36.32 483.3,-41.57 484.57,-34.69"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="module~~whm_drift~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_module~~whm_drift~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-24 374,-24 374,0 474,0 474,-24"/>
-<text text-anchor="middle" x="424" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="347,-37.91 247,-37.91 247,-13.91 347,-13.91 347,-37.91"/>
+<text text-anchor="middle" x="297" y="-23.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="module~~whm_drift~~UsesGraph_edge7" class="edge">
+<g id="module~~whm_drift~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-53C516.46,-50.46 483.05,-38.61 458.97,-28.3"/>
-<polygon fill="#000000" stroke="#000000" points="460.15,-24.99 449.58,-24.16 457.32,-31.4 460.15,-24.99"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M762.35,-213.98C737.24,-176.14 653.04,-61.47 549.5,-53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-46.91C510.22,-43.83 510.2,-15.32 474,-5.91 434.86,4.27 423.17,-1.25 383,-5.91 372.39,-7.14 361.18,-9.21 350.5,-11.56"/>
+<polygon fill="#000000" stroke="#000000" points="349.42,-8.22 340.46,-13.89 351,-15.04 349.42,-8.22"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M762.34,-206.77C737.22,-168.59 652.97,-53.07 549.5,-46.91"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="module~~whm_drift~~UsesGraph_node7" class="node">
+<title>module~helio_classes</title>
+<g id="a_module~~whm_drift~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-232.91 510.5,-232.91 510.5,-208.91 586.5,-208.91 586.5,-232.91"/>
+<text text-anchor="middle" x="548.5" y="-218.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+</a>
+</g>
+</g>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="module~~whm_drift~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C634.17,-261.58 601.71,-248.93 579.04,-237.69"/>
+<polygon fill="#000000" stroke="#000000" points="580.44,-234.47 569.95,-232.99 577.23,-240.69 580.44,-234.47"/>
+</g>
+<!-- module~rmvs_classes -->
+<g id="module~~whm_drift~~UsesGraph_node8" class="node">
 <title>module~rmvs_classes</title>
-<g id="a_module~~whm_drift~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-177 510,-177 510,-153 587,-153 587,-177"/>
-<text text-anchor="middle" x="548.5" y="-162.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<g id="a_module~~whm_drift~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-190.91 510,-190.91 510,-166.91 587,-166.91 587,-190.91"/>
+<text text-anchor="middle" x="548.5" y="-176.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="module~~whm_drift~~UsesGraph_edge8" class="edge">
+<g id="module~~whm_drift~~UsesGraph_edge12" class="edge">
 <title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-247C620.77,-243.98 623.46,-210.34 587,-186 585.13,-184.75 583.19,-183.51 581.21,-182.29"/>
-<polygon fill="#000000" stroke="#000000" points="582.84,-179.18 572.45,-177.1 579.27,-185.21 582.84,-179.18"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.89,-235.32C723.11,-241.76 693.21,-248.85 666.5,-247"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-260.91C620.68,-261.88 623.46,-224.25 587,-199.91 585.13,-198.66 583.19,-197.42 581.21,-196.2"/>
+<polygon fill="#000000" stroke="#000000" points="582.84,-193.09 572.45,-191.01 579.27,-199.12 582.84,-193.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M751.83,-231.01C731.83,-243.17 698.29,-260.21 666.5,-260.91"/>
+</g>
+<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
+<g id="module~~whm_drift~~UsesGraph_edge11" class="edge">
+<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-260.91C474.15,-254.84 448.17,-276.1 383,-241.91 349.89,-224.54 323.81,-188.56 309.67,-165.64"/>
+<polygon fill="#000000" stroke="#000000" points="312.65,-163.79 304.52,-156.99 306.63,-167.37 312.65,-163.79"/>
 </g>
 <!-- module~symba_classes -->
-<g id="module~~whm_drift~~UsesGraph_node8" class="node">
+<g id="module~~whm_drift~~UsesGraph_node10" class="node">
 <title>module~symba_classes</title>
-<g id="a_module~~whm_drift~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-198 623,-198 623,-174 708,-174 708,-198"/>
-<text text-anchor="middle" x="665.5" y="-183.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<g id="a_module~~whm_drift~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-210.91 623,-210.91 623,-186.91 708,-186.91 708,-210.91"/>
+<text text-anchor="middle" x="665.5" y="-196.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="module~~whm_drift~~UsesGraph_edge9" class="edge">
+<g id="module~~whm_drift~~UsesGraph_edge7" class="edge">
 <title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-215.91C732.83,-211.63 719.68,-206.55 707.39,-201.8"/>
-<polygon fill="#000000" stroke="#000000" points="708.36,-198.43 697.77,-198.09 705.84,-204.96 708.36,-198.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-213.86C736.05,-212.35 727.17,-210.63 718.29,-208.92"/>
+<polygon fill="#000000" stroke="#000000" points="718.8,-205.45 708.32,-206.99 717.47,-212.32 718.8,-205.45"/>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
-<g id="module~~whm_drift~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-91C268.51,-89.48 243.05,-89.23 221.25,-89.46"/>
-<polygon fill="#000000" stroke="#000000" points="221.15,-85.96 211.2,-89.6 221.25,-92.96 221.15,-85.96"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-53C363.16,-57.08 353.35,-94.97 293.5,-91"/>
+<!-- iso_fortran_env -->
+<g id="module~~whm_drift~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_module~~whm_drift~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-136.91 0,-136.91 0,-112.91 87,-112.91 87,-136.91"/>
+<text text-anchor="middle" x="43.5" y="-122.51" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_classes -->
-<g id="module~~whm_drift~~UsesGraph_edge11" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247C470.17,-240.83 442.31,-264.75 374,-228 341.96,-210.76 317.58,-175 304.43,-152.05"/>
-<polygon fill="#000000" stroke="#000000" points="307.38,-150.16 299.49,-143.09 301.25,-153.54 307.38,-150.16"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="module~~whm_drift~~UsesGraph_edge13" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-124.91C114.58,-124.91 105.86,-124.91 97.36,-124.91"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-121.41 87.13,-124.91 97.13,-128.41 97.13,-121.41"/>
+</g>
+<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
 <g id="module~~whm_drift~~UsesGraph_edge14" class="edge">
+<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.62,-38.99C399.15,-43.35 390.68,-48.32 383,-52.91 344.99,-75.64 342.15,-101.47 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-104.91C271.19,-106.85 243.92,-110.84 220.95,-114.76"/>
+<polygon fill="#000000" stroke="#000000" points="220.31,-111.32 211.06,-116.49 221.51,-118.21 220.31,-111.32"/>
+</g>
+<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
+<g id="module~~whm_drift~~UsesGraph_edge15" class="edge">
+<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.3,-38.05C258.23,-55.12 217.84,-86.37 191.99,-106.36"/>
+<polygon fill="#000000" stroke="#000000" points="189.59,-103.79 183.82,-112.67 193.88,-109.32 189.59,-103.79"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="module~~whm_drift~~UsesGraph_edge17" class="edge">
 <title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.41,-207C498.53,-207 485.2,-207 472.67,-207"/>
-<polygon fill="#000000" stroke="#000000" points="472.38,-203.5 462.38,-207 472.38,-210.5 472.38,-203.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.49,-220.91C499.83,-220.91 488.05,-220.91 476.86,-220.91"/>
+<polygon fill="#000000" stroke="#000000" points="476.79,-217.41 466.79,-220.91 476.79,-224.41 476.79,-217.41"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~whm_drift~~UsesGraph_edge15" class="edge">
+<g id="module~~whm_drift~~UsesGraph_edge16" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.24,-195.71C485.82,-188.09 453.3,-177.55 425,-167"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-167C399.07,-158.08 395.13,-151.34 374,-137 357.45,-125.77 355.32,-120 338,-110 319.38,-99.25 314.96,-92.42 293.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-180.91C365.09,-157.27 364.5,-99.37 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.32,-209.05C486.97,-201.42 456.3,-191.07 429.5,-180.91"/>
 </g>
 <!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~whm_drift~~UsesGraph_edge13" class="edge">
+<g id="module~~whm_drift~~UsesGraph_edge18" class="edge">
 <title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-167C398.51,-157.87 370.66,-149.84 347.08,-143.69"/>
-<polygon fill="#000000" stroke="#000000" points="347.81,-140.27 337.26,-141.18 346.08,-147.05 347.81,-140.27"/>
-</g>
-<!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="module~~whm_drift~~UsesGraph_edge16" class="edge">
-<title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-63C242.1,-67 228.18,-71.51 215.18,-75.72"/>
-<polygon fill="#000000" stroke="#000000" points="213.89,-72.46 205.45,-78.87 216.05,-79.12 213.89,-72.46"/>
-</g>
-<!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="module~~whm_drift~~UsesGraph_edge17" class="edge">
-<title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M373.86,-9.91C337.58,-10.04 287.65,-13.78 247,-30 223.78,-39.27 201.64,-57.46 186.74,-71.58"/>
-<polygon fill="#000000" stroke="#000000" points="183.94,-69.43 179.24,-78.92 188.84,-74.43 183.94,-69.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-180.91C402.96,-171.61 375,-163.54 351.35,-157.41"/>
+<polygon fill="#000000" stroke="#000000" points="352.06,-153.97 341.5,-154.9 350.33,-160.76 352.06,-153.97"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="module~~whm_drift~~UsesGraph_edge18" class="edge">
+<g id="module~~whm_drift~~UsesGraph_edge20" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.4,-177.04C499.07,-181.6 483.71,-186.87 469.62,-191.7"/>
-<polygon fill="#000000" stroke="#000000" points="468.43,-188.41 460.11,-194.96 470.7,-195.03 468.43,-188.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M513.69,-190.95C500.97,-195.47 486.34,-200.68 472.87,-205.47"/>
+<polygon fill="#000000" stroke="#000000" points="471.57,-202.22 463.32,-208.87 473.91,-208.82 471.57,-202.22"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~whm_drift~~UsesGraph_edge19" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.84,-152.93C453.98,-132.76 336.68,-94.1 293.5,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M517.06,-166.89C460.58,-145.07 341.36,-101.53 298,-104.91"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="module~~whm_drift~~UsesGraph_edge23" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-193.58C614.47,-195.14 605.46,-196.78 596.76,-198.37"/>
-<polygon fill="#000000" stroke="#000000" points="595.97,-194.96 586.76,-200.2 597.22,-201.84 595.97,-194.96"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~whm_drift~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-178.42C614.57,-176.88 605.65,-175.25 597.05,-173.68"/>
-<polygon fill="#000000" stroke="#000000" points="597.6,-170.23 587.14,-171.87 596.34,-177.11 597.6,-170.23"/>
+<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M252.31,-138.08C242.31,-136.52 231.58,-134.85 221.24,-133.23"/>
+<polygon fill="#000000" stroke="#000000" points="221.48,-129.72 211.06,-131.64 220.4,-136.64 221.48,-129.72"/>
 </g>
 <!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
 <g id="module~~whm_drift~~UsesGraph_edge22" class="edge">
 <title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M648.78,-173.99C611.65,-146.96 514.88,-84.2 425,-91"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-91C365.47,-89.42 350.93,-94.8 293.5,-91"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="module~~whm_drift~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-91C390.33,-93.47 354.9,-105.08 329.37,-115.16"/>
-<polygon fill="#000000" stroke="#000000" points="328.04,-111.92 320.09,-118.93 330.68,-118.41 328.04,-111.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-104.91C370.11,-109.25 355.36,-100.13 298,-104.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M648.82,-186.84C612.21,-160 517.57,-98.25 429.5,-104.91"/>
 </g>
-<!-- iso_fortran_env -->
-<g id="module~~whm_drift~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_module~~whm_drift~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-103 0,-103 0,-79 87,-79 87,-103"/>
-<text text-anchor="middle" x="43.5" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
+<g id="module~~whm_drift~~UsesGraph_edge25" class="edge">
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-206.85C614.47,-208.48 605.46,-210.21 596.76,-211.87"/>
+<polygon fill="#000000" stroke="#000000" points="595.92,-208.47 586.76,-213.78 597.24,-215.34 595.92,-208.47"/>
 </g>
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="module~~whm_drift~~UsesGraph_edge23" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-191.69C614.57,-190.23 605.65,-188.68 597.05,-187.18"/>
+<polygon fill="#000000" stroke="#000000" points="597.59,-183.72 587.14,-185.46 596.39,-190.62 597.59,-183.72"/>
 </g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="module~~whm_drift~~UsesGraph_edge24" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-91C114.58,-91 105.86,-91 97.36,-91"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-87.5 87.13,-91 97.13,-94.5 97.13,-87.5"/>
-</g>
-<!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="module~~whm_drift~~UsesGraph_edge25" class="edge">
-<title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-119C242.1,-115 228.18,-110.49 215.18,-106.28"/>
-<polygon fill="#000000" stroke="#000000" points="216.05,-102.88 205.45,-103.13 213.89,-109.54 216.05,-102.88"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-104.91C394.83,-107.38 359.4,-118.99 333.87,-129.07"/>
+<polygon fill="#000000" stroke="#000000" points="332.54,-125.84 324.59,-132.84 335.18,-132.32 332.54,-125.84"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/discard_pl.html b/docs/proc/discard_pl.html
index b4c980261..d48e5b512 100644
--- a/docs/proc/discard_pl.html
+++ b/docs/proc/discard_pl.html
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~78"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~82"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -267,7 +267,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~141"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~145"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/discard_system.html b/docs/proc/discard_system.html
index a84c2d96a..2b30cc50b 100644
--- a/docs/proc/discard_system.html
+++ b/docs/proc/discard_system.html
@@ -136,7 +136,7 @@ <h1>discard_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">15 statements</a>
+    title=" 0.1% of total for procedures.">25 statements</a>
      </li> 
      
      
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~140"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~144"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/discard_tp.html b/docs/proc/discard_tp.html
index 4420b107b..b8d07f965 100644
--- a/docs/proc/discard_tp.html
+++ b/docs/proc/discard_tp.html
@@ -136,7 +136,7 @@ <h1>discard_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">18 statements</a>
+    title=" 0.0% of total for procedures.">22 statements</a>
      </li> 
      
      
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~79"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~83"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~142"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~146"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/drift_all.html b/docs/proc/drift_all.html
index 030b83472..c9310df88 100644
--- a/docs/proc/drift_all.html
+++ b/docs/proc/drift_all.html
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~176"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~180"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/drift_body.html b/docs/proc/drift_body.html
index 3d889b784..e436b051f 100644
--- a/docs/proc/drift_body.html
+++ b/docs/proc/drift_body.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~91"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~95"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~175"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~179"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/drift_dan.html b/docs/proc/drift_dan.html
index d43bf8f84..7d6cb0183 100644
--- a/docs/proc/drift_dan.html
+++ b/docs/proc/drift_dan.html
@@ -333,170 +333,170 @@ <h3 class="panel-title">Calls</h3>
 <!-- proc~drift_dan -->
 <g id="proc~~drift_dan~~CallsGraph_node1" class="node">
 <title>proc~drift_dan</title>
-<polygon fill="none" stroke="black" points="55,-108 0,-108 0,-84 55,-84 55,-108"/>
-<text text-anchor="middle" x="27.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50">drift_dan</text>
+<polygon fill="none" stroke="black" points="55,-87 0,-87 0,-63 55,-63 55,-87"/>
+<text text-anchor="middle" x="27.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">drift_dan</text>
 </g>
-<!-- proc~drift_kepmd -->
+<!-- proc~drift_kepu -->
 <g id="proc~~drift_dan~~CallsGraph_node2" class="node">
-<title>proc~drift_kepmd</title>
-<g id="a_proc~~drift_dan~~CallsGraph_node2"><a xlink:href=".././proc/drift_kepmd.html" xlink:title="drift_kepmd">
-<polygon fill="#d9534f" stroke="#d9534f" points="160,-129 91,-129 91,-105 160,-105 160,-129"/>
-<text text-anchor="middle" x="125.5" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepmd</text>
+<title>proc~drift_kepu</title>
+<g id="a_proc~~drift_dan~~CallsGraph_node2"><a xlink:href=".././proc/drift_kepu.html" xlink:title="drift_kepu">
+<polygon fill="#d9534f" stroke="#d9534f" points="155.5,-108 95.5,-108 95.5,-84 155.5,-84 155.5,-108"/>
+<text text-anchor="middle" x="125.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_dan&#45;&gt;proc~drift_kepmd -->
+<!-- proc~drift_dan&#45;&gt;proc~drift_kepu -->
 <g id="proc~~drift_dan~~CallsGraph_edge1" class="edge">
-<title>proc~drift_dan&#45;&gt;proc~drift_kepmd</title>
-<path fill="none" stroke="#000000" d="M55.24,-101.85C63.14,-103.58 71.99,-105.51 80.67,-107.41"/>
-<polygon fill="#000000" stroke="#000000" points="80.18,-110.89 90.7,-109.61 81.68,-104.05 80.18,-110.89"/>
+<title>proc~drift_dan&#45;&gt;proc~drift_kepu</title>
+<path fill="none" stroke="#000000" d="M55.24,-80.85C64.56,-82.89 75.22,-85.22 85.34,-87.43"/>
+<polygon fill="#000000" stroke="#000000" points="84.69,-90.87 95.21,-89.59 86.19,-84.04 84.69,-90.87"/>
 </g>
-<!-- proc~drift_kepu -->
+<!-- proc~drift_kepmd -->
 <g id="proc~~drift_dan~~CallsGraph_node3" class="node">
-<title>proc~drift_kepu</title>
-<g id="a_proc~~drift_dan~~CallsGraph_node3"><a xlink:href=".././proc/drift_kepu.html" xlink:title="drift_kepu">
-<polygon fill="#d9534f" stroke="#d9534f" points="155.5,-87 95.5,-87 95.5,-63 155.5,-63 155.5,-87"/>
-<text text-anchor="middle" x="125.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu</text>
+<title>proc~drift_kepmd</title>
+<g id="a_proc~~drift_dan~~CallsGraph_node3"><a xlink:href=".././proc/drift_kepmd.html" xlink:title="drift_kepmd">
+<polygon fill="#d9534f" stroke="#d9534f" points="160,-66 91,-66 91,-42 160,-42 160,-66"/>
+<text text-anchor="middle" x="125.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepmd</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_dan&#45;&gt;proc~drift_kepu -->
+<!-- proc~drift_dan&#45;&gt;proc~drift_kepmd -->
 <g id="proc~~drift_dan~~CallsGraph_edge2" class="edge">
-<title>proc~drift_dan&#45;&gt;proc~drift_kepu</title>
-<path fill="none" stroke="#000000" d="M55.24,-90.15C64.56,-88.11 75.22,-85.78 85.34,-83.57"/>
-<polygon fill="#000000" stroke="#000000" points="86.19,-86.96 95.21,-81.41 84.69,-80.13 86.19,-86.96"/>
+<title>proc~drift_dan&#45;&gt;proc~drift_kepmd</title>
+<path fill="none" stroke="#000000" d="M55.24,-69.15C63.14,-67.42 71.99,-65.49 80.67,-63.59"/>
+<polygon fill="#000000" stroke="#000000" points="81.68,-66.95 90.7,-61.39 80.18,-60.11 81.68,-66.95"/>
 </g>
-<!-- proc~drift_kepu_guess -->
+<!-- proc~drift_kepu_new -->
 <g id="proc~~drift_dan~~CallsGraph_node4" class="node">
-<title>proc~drift_kepu_guess</title>
-<g id="a_proc~~drift_dan~~CallsGraph_node4"><a xlink:href=".././proc/drift_kepu_guess.html" xlink:title="drift_kepu_guess">
-<polygon fill="#d9534f" stroke="#d9534f" points="290,-150 196,-150 196,-126 290,-126 290,-150"/>
-<text text-anchor="middle" x="243" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_guess</text>
+<title>proc~drift_kepu_new</title>
+<g id="a_proc~~drift_dan~~CallsGraph_node4"><a xlink:href=".././proc/drift_kepu_new.html" xlink:title="drift_kepu_new">
+<polygon fill="#d9534f" stroke="#d9534f" points="285.5,-171 200.5,-171 200.5,-147 285.5,-147 285.5,-171"/>
+<text text-anchor="middle" x="243" y="-156.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_new</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_guess -->
+<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_new -->
 <g id="proc~~drift_dan~~CallsGraph_edge3" class="edge">
-<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_guess</title>
-<path fill="none" stroke="#000000" d="M145.91,-87.07C162.9,-97.58 186.34,-111.9 196,-117 198.87,-118.52 201.88,-120.03 204.91,-121.52"/>
-<polygon fill="#000000" stroke="#000000" points="203.48,-124.72 214.02,-125.85 206.49,-118.4 203.48,-124.72"/>
+<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_new</title>
+<path fill="none" stroke="#000000" d="M145.04,-108.01C158.85,-116.75 178.3,-128.65 196,-138 198.87,-139.52 201.88,-141.03 204.91,-142.52"/>
+<polygon fill="#000000" stroke="#000000" points="203.48,-145.72 214.02,-146.85 206.49,-139.4 203.48,-145.72"/>
 </g>
-<!-- proc~drift_kepu_new -->
+<!-- proc~drift_kepu_fchk -->
 <g id="proc~~drift_dan~~CallsGraph_node5" class="node">
-<title>proc~drift_kepu_new</title>
-<g id="a_proc~~drift_dan~~CallsGraph_node5"><a xlink:href=".././proc/drift_kepu_new.html" xlink:title="drift_kepu_new">
-<polygon fill="#d9534f" stroke="#d9534f" points="285.5,-108 200.5,-108 200.5,-84 285.5,-84 285.5,-108"/>
-<text text-anchor="middle" x="243" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_new</text>
+<title>proc~drift_kepu_fchk</title>
+<g id="a_proc~~drift_dan~~CallsGraph_node5"><a xlink:href=".././proc/drift_kepu_fchk.html" xlink:title="drift_kepu_fchk">
+<polygon fill="#d9534f" stroke="#d9534f" points="285.5,-129 200.5,-129 200.5,-105 285.5,-105 285.5,-129"/>
+<text text-anchor="middle" x="243" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_fchk</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_new -->
+<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_fchk -->
 <g id="proc~~drift_dan~~CallsGraph_edge4" class="edge">
-<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_new</title>
-<path fill="none" stroke="#000000" d="M155.65,-80.3C166.19,-82.22 178.44,-84.44 190.34,-86.61"/>
-<polygon fill="#000000" stroke="#000000" points="189.75,-90.06 200.21,-88.4 191,-83.17 189.75,-90.06"/>
+<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_fchk</title>
+<path fill="none" stroke="#000000" d="M155.65,-101.3C166.19,-103.22 178.44,-105.44 190.34,-107.61"/>
+<polygon fill="#000000" stroke="#000000" points="189.75,-111.06 200.21,-109.4 191,-104.17 189.75,-111.06"/>
 </g>
-<!-- proc~drift_kepu_fchk -->
+<!-- proc~drift_kepu_guess -->
 <g id="proc~~drift_dan~~CallsGraph_node6" class="node">
-<title>proc~drift_kepu_fchk</title>
-<g id="a_proc~~drift_dan~~CallsGraph_node6"><a xlink:href=".././proc/drift_kepu_fchk.html" xlink:title="drift_kepu_fchk">
-<polygon fill="#d9534f" stroke="#d9534f" points="285.5,-66 200.5,-66 200.5,-42 285.5,-42 285.5,-66"/>
-<text text-anchor="middle" x="243" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_fchk</text>
+<title>proc~drift_kepu_guess</title>
+<g id="a_proc~~drift_dan~~CallsGraph_node6"><a xlink:href=".././proc/drift_kepu_guess.html" xlink:title="drift_kepu_guess">
+<polygon fill="#d9534f" stroke="#d9534f" points="290,-45 196,-45 196,-21 290,-21 290,-45"/>
+<text text-anchor="middle" x="243" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_guess</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_fchk -->
+<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_guess -->
 <g id="proc~~drift_dan~~CallsGraph_edge5" class="edge">
-<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_fchk</title>
-<path fill="none" stroke="#000000" d="M155.65,-69.7C166.19,-67.78 178.44,-65.56 190.34,-63.39"/>
-<polygon fill="#000000" stroke="#000000" points="191,-66.83 200.21,-61.6 189.75,-59.94 191,-66.83"/>
+<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_guess</title>
+<path fill="none" stroke="#000000" d="M145.91,-83.93C162.9,-73.42 186.34,-59.1 196,-54 198.87,-52.48 201.88,-50.97 204.91,-49.48"/>
+<polygon fill="#000000" stroke="#000000" points="206.49,-52.6 214.02,-45.15 203.48,-46.28 206.49,-52.6"/>
 </g>
 <!-- proc~drift_kepu_lag -->
 <g id="proc~~drift_dan~~CallsGraph_node7" class="node">
 <title>proc~drift_kepu_lag</title>
 <g id="a_proc~~drift_dan~~CallsGraph_node7"><a xlink:href=".././proc/drift_kepu_lag.html" xlink:title="drift_kepu_lag">
-<polygon fill="#d9534f" stroke="#d9534f" points="283,-24 203,-24 203,0 283,0 283,-24"/>
-<text text-anchor="middle" x="243" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_lag</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="283,-87 203,-87 203,-63 283,-63 283,-87"/>
+<text text-anchor="middle" x="243" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_lag</text>
 </a>
 </g>
 </g>
 <!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_lag -->
 <g id="proc~~drift_dan~~CallsGraph_edge6" class="edge">
 <title>proc~drift_kepu&#45;&gt;proc~drift_kepu_lag</title>
-<path fill="none" stroke="#000000" d="M145.04,-62.99C158.85,-54.25 178.3,-42.35 196,-33 198.87,-31.48 201.88,-29.97 204.91,-28.48"/>
-<polygon fill="#000000" stroke="#000000" points="206.49,-31.6 214.02,-24.15 203.48,-25.28 206.49,-31.6"/>
+<path fill="none" stroke="#000000" d="M155.65,-90.7C166.93,-88.65 180.16,-86.24 192.83,-83.94"/>
+<polygon fill="#000000" stroke="#000000" points="193.61,-87.35 202.83,-82.12 192.36,-80.47 193.61,-87.35"/>
 </g>
-<!-- proc~drift_kepu_p3solve -->
+<!-- proc~drift_kepu_stumpff -->
 <g id="proc~~drift_dan~~CallsGraph_node9" class="node">
-<title>proc~drift_kepu_p3solve</title>
-<g id="a_proc~~drift_dan~~CallsGraph_node9"><a xlink:href=".././proc/drift_kepu_p3solve.html" xlink:title="drift_kepu_p3solve">
-<polygon fill="#d9534f" stroke="#d9534f" points="429,-171 326,-171 326,-147 429,-147 429,-171"/>
-<text text-anchor="middle" x="377.5" y="-156.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_p3solve</text>
+<title>proc~drift_kepu_stumpff</title>
+<g id="a_proc~~drift_dan~~CallsGraph_node9"><a xlink:href=".././proc/drift_kepu_stumpff.html" xlink:title="drift_kepu_stumpff">
+<polygon fill="#d9534f" stroke="#d9534f" points="428,-129 327,-129 327,-105 428,-105 428,-129"/>
+<text text-anchor="middle" x="377.5" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_stumpff</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve -->
+<!-- proc~drift_kepu_new&#45;&gt;proc~drift_kepu_stumpff -->
 <g id="proc~~drift_dan~~CallsGraph_edge7" class="edge">
-<title>proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve</title>
-<path fill="none" stroke="#000000" d="M290.34,-145.34C298.6,-146.65 307.32,-148.04 315.91,-149.4"/>
-<polygon fill="#000000" stroke="#000000" points="315.47,-152.87 325.89,-150.98 316.56,-145.96 315.47,-152.87"/>
+<title>proc~drift_kepu_new&#45;&gt;proc~drift_kepu_stumpff</title>
+<path fill="none" stroke="#000000" d="M281.97,-146.96C296.52,-142.35 313.32,-137.03 328.68,-132.16"/>
+<polygon fill="#000000" stroke="#000000" points="330.05,-135.4 338.53,-129.04 327.94,-128.72 330.05,-135.4"/>
+</g>
+<!-- proc~drift_kepu_fchk&#45;&gt;proc~drift_kepu_stumpff -->
+<g id="proc~~drift_dan~~CallsGraph_edge8" class="edge">
+<title>proc~drift_kepu_fchk&#45;&gt;proc~drift_kepu_stumpff</title>
+<path fill="none" stroke="#000000" d="M285.56,-117C295.35,-117 305.98,-117 316.41,-117"/>
+<polygon fill="#000000" stroke="#000000" points="316.72,-120.5 326.72,-117 316.72,-113.5 316.72,-120.5"/>
 </g>
 <!-- interface~orbel_scget -->
-<g id="proc~~drift_dan~~CallsGraph_node10" class="node">
+<g id="proc~~drift_dan~~CallsGraph_node8" class="node">
 <title>interface~orbel_scget</title>
-<g id="a_proc~~drift_dan~~CallsGraph_node10"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
-<polygon fill="#a7506f" stroke="#a7506f" points="411.5,-129 343.5,-129 343.5,-105 411.5,-105 411.5,-129"/>
-<text text-anchor="middle" x="377.5" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
+<g id="a_proc~~drift_dan~~CallsGraph_node8"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
+<polygon fill="#a7506f" stroke="#a7506f" points="411.5,-66 343.5,-66 343.5,-42 411.5,-42 411.5,-66"/>
+<text text-anchor="middle" x="377.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
 </a>
 </g>
 </g>
 <!-- proc~drift_kepu_guess&#45;&gt;interface~orbel_scget -->
-<g id="proc~~drift_dan~~CallsGraph_edge8" class="edge">
+<g id="proc~~drift_dan~~CallsGraph_edge9" class="edge">
 <title>proc~drift_kepu_guess&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M290.34,-130.66C304.26,-128.45 319.47,-126.04 333.18,-123.87"/>
-<polygon fill="#000000" stroke="#000000" points="334,-127.28 343.33,-122.26 332.9,-120.37 334,-127.28"/>
+<path fill="none" stroke="#000000" d="M290.34,-40.34C304.26,-42.55 319.47,-44.96 333.18,-47.13"/>
+<polygon fill="#000000" stroke="#000000" points="332.9,-50.63 343.33,-48.74 334,-43.72 332.9,-50.63"/>
 </g>
-<!-- proc~drift_kepu_stumpff -->
-<g id="proc~~drift_dan~~CallsGraph_node8" class="node">
-<title>proc~drift_kepu_stumpff</title>
-<g id="a_proc~~drift_dan~~CallsGraph_node8"><a xlink:href=".././proc/drift_kepu_stumpff.html" xlink:title="drift_kepu_stumpff">
-<polygon fill="#d9534f" stroke="#d9534f" points="428,-66 327,-66 327,-42 428,-42 428,-66"/>
-<text text-anchor="middle" x="377.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_stumpff</text>
+<!-- proc~drift_kepu_p3solve -->
+<g id="proc~~drift_dan~~CallsGraph_node10" class="node">
+<title>proc~drift_kepu_p3solve</title>
+<g id="a_proc~~drift_dan~~CallsGraph_node10"><a xlink:href=".././proc/drift_kepu_p3solve.html" xlink:title="drift_kepu_p3solve">
+<polygon fill="#d9534f" stroke="#d9534f" points="429,-24 326,-24 326,0 429,0 429,-24"/>
+<text text-anchor="middle" x="377.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_p3solve</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu_new&#45;&gt;proc~drift_kepu_stumpff -->
-<g id="proc~~drift_dan~~CallsGraph_edge9" class="edge">
-<title>proc~drift_kepu_new&#45;&gt;proc~drift_kepu_stumpff</title>
-<path fill="none" stroke="#000000" d="M281.97,-83.96C296.52,-79.35 313.32,-74.03 328.68,-69.16"/>
-<polygon fill="#000000" stroke="#000000" points="330.05,-72.4 338.53,-66.04 327.94,-65.72 330.05,-72.4"/>
-</g>
-<!-- proc~drift_kepu_fchk&#45;&gt;proc~drift_kepu_stumpff -->
+<!-- proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve -->
 <g id="proc~~drift_dan~~CallsGraph_edge10" class="edge">
-<title>proc~drift_kepu_fchk&#45;&gt;proc~drift_kepu_stumpff</title>
-<path fill="none" stroke="#000000" d="M285.56,-54C295.35,-54 305.98,-54 316.41,-54"/>
-<polygon fill="#000000" stroke="#000000" points="316.72,-57.5 326.72,-54 316.72,-50.5 316.72,-57.5"/>
+<title>proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve</title>
+<path fill="none" stroke="#000000" d="M290.34,-25.66C298.6,-24.35 307.32,-22.96 315.91,-21.6"/>
+<polygon fill="#000000" stroke="#000000" points="316.56,-25.04 325.89,-20.02 315.47,-18.13 316.56,-25.04"/>
 </g>
 <!-- proc~drift_kepu_lag&#45;&gt;proc~drift_kepu_stumpff -->
 <g id="proc~~drift_dan~~CallsGraph_edge11" class="edge">
 <title>proc~drift_kepu_lag&#45;&gt;proc~drift_kepu_stumpff</title>
-<path fill="none" stroke="#000000" d="M281.97,-24.04C296.52,-28.65 313.32,-33.97 328.68,-38.84"/>
-<polygon fill="#000000" stroke="#000000" points="327.94,-42.28 338.53,-41.96 330.05,-35.6 327.94,-42.28"/>
+<path fill="none" stroke="#000000" d="M281.97,-87.04C296.52,-91.65 313.32,-96.97 328.68,-101.84"/>
+<polygon fill="#000000" stroke="#000000" points="327.94,-105.28 338.53,-104.96 330.05,-98.6 327.94,-105.28"/>
 </g>
 <!-- proc~orbel_scget -->
 <g id="proc~~drift_dan~~CallsGraph_node11" class="node">
 <title>proc~orbel_scget</title>
 <g id="a_proc~~drift_dan~~CallsGraph_node11"><a xlink:href=".././proc/orbel_scget.html" xlink:title="orbel_scget">
-<polygon fill="#d9534f" stroke="#d9534f" points="533,-129 465,-129 465,-105 533,-105 533,-129"/>
-<text text-anchor="middle" x="499" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="533,-66 465,-66 465,-42 533,-42 533,-66"/>
+<text text-anchor="middle" x="499" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
 </a>
 </g>
 </g>
 <!-- interface~orbel_scget&#45;&gt;proc~orbel_scget -->
 <g id="proc~~drift_dan~~CallsGraph_edge12" class="edge">
 <title>interface~orbel_scget&#45;&gt;proc~orbel_scget</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.79,-117C425.12,-117 440.67,-117 454.85,-117"/>
-<polygon fill="#000000" stroke="#000000" points="454.89,-120.5 464.89,-117 454.89,-113.5 454.89,-120.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.79,-54C425.12,-54 440.67,-54 454.85,-54"/>
+<polygon fill="#000000" stroke="#000000" points="454.89,-57.5 464.89,-54 454.89,-50.5 454.89,-57.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/drift_kepu.html b/docs/proc/drift_kepu.html
index fac6e61bd..6337eca86 100644
--- a/docs/proc/drift_kepu.html
+++ b/docs/proc/drift_kepu.html
@@ -408,140 +408,140 @@ <h3 class="panel-title">Calls</h3>
 <!-- proc~drift_kepu -->
 <g id="proc~~drift_kepu~~CallsGraph_node1" class="node">
 <title>proc~drift_kepu</title>
-<polygon fill="none" stroke="black" points="60,-87 0,-87 0,-63 60,-63 60,-87"/>
-<text text-anchor="middle" x="30" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">drift_kepu</text>
+<polygon fill="none" stroke="black" points="60,-108 0,-108 0,-84 60,-84 60,-108"/>
+<text text-anchor="middle" x="30" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50">drift_kepu</text>
 </g>
-<!-- proc~drift_kepu_guess -->
+<!-- proc~drift_kepu_new -->
 <g id="proc~~drift_kepu~~CallsGraph_node2" class="node">
-<title>proc~drift_kepu_guess</title>
-<g id="a_proc~~drift_kepu~~CallsGraph_node2"><a xlink:href=".././proc/drift_kepu_guess.html" xlink:title="drift_kepu_guess">
-<polygon fill="#d9534f" stroke="#d9534f" points="190,-150 96,-150 96,-126 190,-126 190,-150"/>
-<text text-anchor="middle" x="143" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_guess</text>
+<title>proc~drift_kepu_new</title>
+<g id="a_proc~~drift_kepu~~CallsGraph_node2"><a xlink:href=".././proc/drift_kepu_new.html" xlink:title="drift_kepu_new">
+<polygon fill="#d9534f" stroke="#d9534f" points="185.5,-171 100.5,-171 100.5,-147 185.5,-147 185.5,-171"/>
+<text text-anchor="middle" x="143" y="-156.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_new</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_guess -->
+<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_new -->
 <g id="proc~~drift_kepu~~CallsGraph_edge1" class="edge">
-<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_guess</title>
-<path fill="none" stroke="#000000" d="M48.23,-87.12C61.1,-95.92 79.27,-107.84 96,-117 98.85,-118.56 101.84,-120.11 104.86,-121.61"/>
-<polygon fill="#000000" stroke="#000000" points="103.42,-124.81 113.95,-125.98 106.45,-118.5 103.42,-124.81"/>
+<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_new</title>
+<path fill="none" stroke="#000000" d="M48.23,-108.12C61.1,-116.92 79.27,-128.84 96,-138 98.85,-139.56 101.84,-141.11 104.86,-142.61"/>
+<polygon fill="#000000" stroke="#000000" points="103.42,-145.81 113.95,-146.98 106.45,-139.5 103.42,-145.81"/>
 </g>
-<!-- proc~drift_kepu_new -->
+<!-- proc~drift_kepu_fchk -->
 <g id="proc~~drift_kepu~~CallsGraph_node3" class="node">
-<title>proc~drift_kepu_new</title>
-<g id="a_proc~~drift_kepu~~CallsGraph_node3"><a xlink:href=".././proc/drift_kepu_new.html" xlink:title="drift_kepu_new">
-<polygon fill="#d9534f" stroke="#d9534f" points="185.5,-108 100.5,-108 100.5,-84 185.5,-84 185.5,-108"/>
-<text text-anchor="middle" x="143" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_new</text>
+<title>proc~drift_kepu_fchk</title>
+<g id="a_proc~~drift_kepu~~CallsGraph_node3"><a xlink:href=".././proc/drift_kepu_fchk.html" xlink:title="drift_kepu_fchk">
+<polygon fill="#d9534f" stroke="#d9534f" points="185.5,-129 100.5,-129 100.5,-105 185.5,-105 185.5,-129"/>
+<text text-anchor="middle" x="143" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_fchk</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_new -->
+<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_fchk -->
 <g id="proc~~drift_kepu~~CallsGraph_edge2" class="edge">
-<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_new</title>
-<path fill="none" stroke="#000000" d="M60.16,-80.52C69.32,-82.25 79.71,-84.22 89.95,-86.15"/>
-<polygon fill="#000000" stroke="#000000" points="89.61,-89.65 100.09,-88.07 90.91,-82.77 89.61,-89.65"/>
+<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_fchk</title>
+<path fill="none" stroke="#000000" d="M60.16,-101.52C69.32,-103.25 79.71,-105.22 89.95,-107.15"/>
+<polygon fill="#000000" stroke="#000000" points="89.61,-110.65 100.09,-109.07 90.91,-103.77 89.61,-110.65"/>
 </g>
-<!-- proc~drift_kepu_fchk -->
+<!-- proc~drift_kepu_guess -->
 <g id="proc~~drift_kepu~~CallsGraph_node4" class="node">
-<title>proc~drift_kepu_fchk</title>
-<g id="a_proc~~drift_kepu~~CallsGraph_node4"><a xlink:href=".././proc/drift_kepu_fchk.html" xlink:title="drift_kepu_fchk">
-<polygon fill="#d9534f" stroke="#d9534f" points="185.5,-66 100.5,-66 100.5,-42 185.5,-42 185.5,-66"/>
-<text text-anchor="middle" x="143" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_fchk</text>
+<title>proc~drift_kepu_guess</title>
+<g id="a_proc~~drift_kepu~~CallsGraph_node4"><a xlink:href=".././proc/drift_kepu_guess.html" xlink:title="drift_kepu_guess">
+<polygon fill="#d9534f" stroke="#d9534f" points="190,-45 96,-45 96,-21 190,-21 190,-45"/>
+<text text-anchor="middle" x="143" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_guess</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_fchk -->
+<!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_guess -->
 <g id="proc~~drift_kepu~~CallsGraph_edge3" class="edge">
-<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_fchk</title>
-<path fill="none" stroke="#000000" d="M60.16,-69.48C69.32,-67.75 79.71,-65.78 89.95,-63.85"/>
-<polygon fill="#000000" stroke="#000000" points="90.91,-67.23 100.09,-61.93 89.61,-60.35 90.91,-67.23"/>
+<title>proc~drift_kepu&#45;&gt;proc~drift_kepu_guess</title>
+<path fill="none" stroke="#000000" d="M48.23,-83.88C61.1,-75.08 79.27,-63.16 96,-54 98.85,-52.44 101.84,-50.89 104.86,-49.39"/>
+<polygon fill="#000000" stroke="#000000" points="106.45,-52.5 113.95,-45.02 103.42,-46.19 106.45,-52.5"/>
 </g>
 <!-- proc~drift_kepu_lag -->
 <g id="proc~~drift_kepu~~CallsGraph_node5" class="node">
 <title>proc~drift_kepu_lag</title>
 <g id="a_proc~~drift_kepu~~CallsGraph_node5"><a xlink:href=".././proc/drift_kepu_lag.html" xlink:title="drift_kepu_lag">
-<polygon fill="#d9534f" stroke="#d9534f" points="183,-24 103,-24 103,0 183,0 183,-24"/>
-<text text-anchor="middle" x="143" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_lag</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="183,-87 103,-87 103,-63 183,-63 183,-87"/>
+<text text-anchor="middle" x="143" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_lag</text>
 </a>
 </g>
 </g>
 <!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_lag -->
 <g id="proc~~drift_kepu~~CallsGraph_edge4" class="edge">
 <title>proc~drift_kepu&#45;&gt;proc~drift_kepu_lag</title>
-<path fill="none" stroke="#000000" d="M48.23,-62.88C61.1,-54.08 79.27,-42.16 96,-33 98.85,-31.44 101.84,-29.89 104.86,-28.39"/>
-<polygon fill="#000000" stroke="#000000" points="106.45,-31.5 113.95,-24.02 103.42,-25.19 106.45,-31.5"/>
+<path fill="none" stroke="#000000" d="M60.16,-90.48C70.1,-88.6 81.5,-86.45 92.57,-84.35"/>
+<polygon fill="#000000" stroke="#000000" points="93.42,-87.75 102.6,-82.45 92.12,-80.87 93.42,-87.75"/>
 </g>
-<!-- proc~drift_kepu_p3solve -->
+<!-- proc~drift_kepu_stumpff -->
 <g id="proc~~drift_kepu~~CallsGraph_node7" class="node">
-<title>proc~drift_kepu_p3solve</title>
-<g id="a_proc~~drift_kepu~~CallsGraph_node7"><a xlink:href=".././proc/drift_kepu_p3solve.html" xlink:title="drift_kepu_p3solve">
-<polygon fill="#d9534f" stroke="#d9534f" points="329,-171 226,-171 226,-147 329,-147 329,-171"/>
-<text text-anchor="middle" x="277.5" y="-156.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_p3solve</text>
+<title>proc~drift_kepu_stumpff</title>
+<g id="a_proc~~drift_kepu~~CallsGraph_node7"><a xlink:href=".././proc/drift_kepu_stumpff.html" xlink:title="drift_kepu_stumpff">
+<polygon fill="#d9534f" stroke="#d9534f" points="328,-129 227,-129 227,-105 328,-105 328,-129"/>
+<text text-anchor="middle" x="277.5" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_stumpff</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve -->
+<!-- proc~drift_kepu_new&#45;&gt;proc~drift_kepu_stumpff -->
 <g id="proc~~drift_kepu~~CallsGraph_edge5" class="edge">
-<title>proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve</title>
-<path fill="none" stroke="#000000" d="M190.34,-145.34C198.6,-146.65 207.32,-148.04 215.91,-149.4"/>
-<polygon fill="#000000" stroke="#000000" points="215.47,-152.87 225.89,-150.98 216.56,-145.96 215.47,-152.87"/>
+<title>proc~drift_kepu_new&#45;&gt;proc~drift_kepu_stumpff</title>
+<path fill="none" stroke="#000000" d="M181.97,-146.96C196.52,-142.35 213.32,-137.03 228.68,-132.16"/>
+<polygon fill="#000000" stroke="#000000" points="230.05,-135.4 238.53,-129.04 227.94,-128.72 230.05,-135.4"/>
+</g>
+<!-- proc~drift_kepu_fchk&#45;&gt;proc~drift_kepu_stumpff -->
+<g id="proc~~drift_kepu~~CallsGraph_edge6" class="edge">
+<title>proc~drift_kepu_fchk&#45;&gt;proc~drift_kepu_stumpff</title>
+<path fill="none" stroke="#000000" d="M185.56,-117C195.35,-117 205.98,-117 216.41,-117"/>
+<polygon fill="#000000" stroke="#000000" points="216.72,-120.5 226.72,-117 216.72,-113.5 216.72,-120.5"/>
 </g>
 <!-- interface~orbel_scget -->
-<g id="proc~~drift_kepu~~CallsGraph_node8" class="node">
+<g id="proc~~drift_kepu~~CallsGraph_node6" class="node">
 <title>interface~orbel_scget</title>
-<g id="a_proc~~drift_kepu~~CallsGraph_node8"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
-<polygon fill="#a7506f" stroke="#a7506f" points="311.5,-129 243.5,-129 243.5,-105 311.5,-105 311.5,-129"/>
-<text text-anchor="middle" x="277.5" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
+<g id="a_proc~~drift_kepu~~CallsGraph_node6"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
+<polygon fill="#a7506f" stroke="#a7506f" points="311.5,-66 243.5,-66 243.5,-42 311.5,-42 311.5,-66"/>
+<text text-anchor="middle" x="277.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
 </a>
 </g>
 </g>
 <!-- proc~drift_kepu_guess&#45;&gt;interface~orbel_scget -->
-<g id="proc~~drift_kepu~~CallsGraph_edge6" class="edge">
+<g id="proc~~drift_kepu~~CallsGraph_edge7" class="edge">
 <title>proc~drift_kepu_guess&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M190.34,-130.66C204.26,-128.45 219.47,-126.04 233.18,-123.87"/>
-<polygon fill="#000000" stroke="#000000" points="234,-127.28 243.33,-122.26 232.9,-120.37 234,-127.28"/>
+<path fill="none" stroke="#000000" d="M190.34,-40.34C204.26,-42.55 219.47,-44.96 233.18,-47.13"/>
+<polygon fill="#000000" stroke="#000000" points="232.9,-50.63 243.33,-48.74 234,-43.72 232.9,-50.63"/>
 </g>
-<!-- proc~drift_kepu_stumpff -->
-<g id="proc~~drift_kepu~~CallsGraph_node6" class="node">
-<title>proc~drift_kepu_stumpff</title>
-<g id="a_proc~~drift_kepu~~CallsGraph_node6"><a xlink:href=".././proc/drift_kepu_stumpff.html" xlink:title="drift_kepu_stumpff">
-<polygon fill="#d9534f" stroke="#d9534f" points="328,-66 227,-66 227,-42 328,-42 328,-66"/>
-<text text-anchor="middle" x="277.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_stumpff</text>
+<!-- proc~drift_kepu_p3solve -->
+<g id="proc~~drift_kepu~~CallsGraph_node8" class="node">
+<title>proc~drift_kepu_p3solve</title>
+<g id="a_proc~~drift_kepu~~CallsGraph_node8"><a xlink:href=".././proc/drift_kepu_p3solve.html" xlink:title="drift_kepu_p3solve">
+<polygon fill="#d9534f" stroke="#d9534f" points="329,-24 226,-24 226,0 329,0 329,-24"/>
+<text text-anchor="middle" x="277.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_p3solve</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu_new&#45;&gt;proc~drift_kepu_stumpff -->
-<g id="proc~~drift_kepu~~CallsGraph_edge7" class="edge">
-<title>proc~drift_kepu_new&#45;&gt;proc~drift_kepu_stumpff</title>
-<path fill="none" stroke="#000000" d="M181.97,-83.96C196.52,-79.35 213.32,-74.03 228.68,-69.16"/>
-<polygon fill="#000000" stroke="#000000" points="230.05,-72.4 238.53,-66.04 227.94,-65.72 230.05,-72.4"/>
-</g>
-<!-- proc~drift_kepu_fchk&#45;&gt;proc~drift_kepu_stumpff -->
+<!-- proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve -->
 <g id="proc~~drift_kepu~~CallsGraph_edge8" class="edge">
-<title>proc~drift_kepu_fchk&#45;&gt;proc~drift_kepu_stumpff</title>
-<path fill="none" stroke="#000000" d="M185.56,-54C195.35,-54 205.98,-54 216.41,-54"/>
-<polygon fill="#000000" stroke="#000000" points="216.72,-57.5 226.72,-54 216.72,-50.5 216.72,-57.5"/>
+<title>proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve</title>
+<path fill="none" stroke="#000000" d="M190.34,-25.66C198.6,-24.35 207.32,-22.96 215.91,-21.6"/>
+<polygon fill="#000000" stroke="#000000" points="216.56,-25.04 225.89,-20.02 215.47,-18.13 216.56,-25.04"/>
 </g>
 <!-- proc~drift_kepu_lag&#45;&gt;proc~drift_kepu_stumpff -->
 <g id="proc~~drift_kepu~~CallsGraph_edge9" class="edge">
 <title>proc~drift_kepu_lag&#45;&gt;proc~drift_kepu_stumpff</title>
-<path fill="none" stroke="#000000" d="M181.97,-24.04C196.52,-28.65 213.32,-33.97 228.68,-38.84"/>
-<polygon fill="#000000" stroke="#000000" points="227.94,-42.28 238.53,-41.96 230.05,-35.6 227.94,-42.28"/>
+<path fill="none" stroke="#000000" d="M181.97,-87.04C196.52,-91.65 213.32,-96.97 228.68,-101.84"/>
+<polygon fill="#000000" stroke="#000000" points="227.94,-105.28 238.53,-104.96 230.05,-98.6 227.94,-105.28"/>
 </g>
 <!-- proc~orbel_scget -->
 <g id="proc~~drift_kepu~~CallsGraph_node9" class="node">
 <title>proc~orbel_scget</title>
 <g id="a_proc~~drift_kepu~~CallsGraph_node9"><a xlink:href=".././proc/orbel_scget.html" xlink:title="orbel_scget">
-<polygon fill="#d9534f" stroke="#d9534f" points="433,-129 365,-129 365,-105 433,-105 433,-129"/>
-<text text-anchor="middle" x="399" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="433,-66 365,-66 365,-42 433,-42 433,-66"/>
+<text text-anchor="middle" x="399" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
 </a>
 </g>
 </g>
 <!-- interface~orbel_scget&#45;&gt;proc~orbel_scget -->
 <g id="proc~~drift_kepu~~CallsGraph_edge10" class="edge">
 <title>interface~orbel_scget&#45;&gt;proc~orbel_scget</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.79,-117C325.12,-117 340.67,-117 354.85,-117"/>
-<polygon fill="#000000" stroke="#000000" points="354.89,-120.5 364.89,-117 354.89,-113.5 354.89,-120.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.79,-54C325.12,-54 340.67,-54 354.85,-54"/>
+<polygon fill="#000000" stroke="#000000" points="354.89,-57.5 364.89,-54 354.89,-50.5 354.89,-57.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/drift_kepu_guess.html b/docs/proc/drift_kepu_guess.html
index 7f5c6f9c0..f73a75841 100644
--- a/docs/proc/drift_kepu_guess.html
+++ b/docs/proc/drift_kepu_guess.html
@@ -351,50 +351,50 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="94,-45 0,-45 0,-21 94,-21 94,-45"/>
 <text text-anchor="middle" x="47" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">drift_kepu_guess</text>
 </g>
-<!-- proc~drift_kepu_p3solve -->
+<!-- interface~orbel_scget -->
 <g id="proc~~drift_kepu_guess~~CallsGraph_node2" class="node">
-<title>proc~drift_kepu_p3solve</title>
-<g id="a_proc~~drift_kepu_guess~~CallsGraph_node2"><a xlink:href=".././proc/drift_kepu_p3solve.html" xlink:title="drift_kepu_p3solve">
-<polygon fill="#d9534f" stroke="#d9534f" points="233,-66 130,-66 130,-42 233,-42 233,-66"/>
-<text text-anchor="middle" x="181.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_p3solve</text>
+<title>interface~orbel_scget</title>
+<g id="a_proc~~drift_kepu_guess~~CallsGraph_node2"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
+<polygon fill="#a7506f" stroke="#a7506f" points="215.5,-66 147.5,-66 147.5,-42 215.5,-42 215.5,-66"/>
+<text text-anchor="middle" x="181.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve -->
+<!-- proc~drift_kepu_guess&#45;&gt;interface~orbel_scget -->
 <g id="proc~~drift_kepu_guess~~CallsGraph_edge1" class="edge">
-<title>proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve</title>
-<path fill="none" stroke="#000000" d="M94.34,-40.34C102.6,-41.65 111.32,-43.04 119.91,-44.4"/>
-<polygon fill="#000000" stroke="#000000" points="119.47,-47.87 129.89,-45.98 120.56,-40.96 119.47,-47.87"/>
+<title>proc~drift_kepu_guess&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M94.34,-40.34C108.26,-42.55 123.47,-44.96 137.18,-47.13"/>
+<polygon fill="#000000" stroke="#000000" points="136.9,-50.63 147.33,-48.74 138,-43.72 136.9,-50.63"/>
 </g>
-<!-- interface~orbel_scget -->
+<!-- proc~drift_kepu_p3solve -->
 <g id="proc~~drift_kepu_guess~~CallsGraph_node3" class="node">
-<title>interface~orbel_scget</title>
-<g id="a_proc~~drift_kepu_guess~~CallsGraph_node3"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
-<polygon fill="#a7506f" stroke="#a7506f" points="215.5,-24 147.5,-24 147.5,0 215.5,0 215.5,-24"/>
-<text text-anchor="middle" x="181.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
+<title>proc~drift_kepu_p3solve</title>
+<g id="a_proc~~drift_kepu_guess~~CallsGraph_node3"><a xlink:href=".././proc/drift_kepu_p3solve.html" xlink:title="drift_kepu_p3solve">
+<polygon fill="#d9534f" stroke="#d9534f" points="233,-24 130,-24 130,0 233,0 233,-24"/>
+<text text-anchor="middle" x="181.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_p3solve</text>
 </a>
 </g>
 </g>
-<!-- proc~drift_kepu_guess&#45;&gt;interface~orbel_scget -->
+<!-- proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve -->
 <g id="proc~~drift_kepu_guess~~CallsGraph_edge2" class="edge">
-<title>proc~drift_kepu_guess&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M94.34,-25.66C108.26,-23.45 123.47,-21.04 137.18,-18.87"/>
-<polygon fill="#000000" stroke="#000000" points="138,-22.28 147.33,-17.26 136.9,-15.37 138,-22.28"/>
+<title>proc~drift_kepu_guess&#45;&gt;proc~drift_kepu_p3solve</title>
+<path fill="none" stroke="#000000" d="M94.34,-25.66C102.6,-24.35 111.32,-22.96 119.91,-21.6"/>
+<polygon fill="#000000" stroke="#000000" points="120.56,-25.04 129.89,-20.02 119.47,-18.13 120.56,-25.04"/>
 </g>
 <!-- proc~orbel_scget -->
 <g id="proc~~drift_kepu_guess~~CallsGraph_node4" class="node">
 <title>proc~orbel_scget</title>
 <g id="a_proc~~drift_kepu_guess~~CallsGraph_node4"><a xlink:href=".././proc/orbel_scget.html" xlink:title="orbel_scget">
-<polygon fill="#d9534f" stroke="#d9534f" points="337,-24 269,-24 269,0 337,0 337,-24"/>
-<text text-anchor="middle" x="303" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="337,-66 269,-66 269,-42 337,-42 337,-66"/>
+<text text-anchor="middle" x="303" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
 </a>
 </g>
 </g>
 <!-- interface~orbel_scget&#45;&gt;proc~orbel_scget -->
 <g id="proc~~drift_kepu_guess~~CallsGraph_edge3" class="edge">
 <title>interface~orbel_scget&#45;&gt;proc~orbel_scget</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M215.79,-12C229.12,-12 244.67,-12 258.85,-12"/>
-<polygon fill="#000000" stroke="#000000" points="258.89,-15.5 268.89,-12 258.89,-8.5 258.89,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M215.79,-54C229.12,-54 244.67,-54 258.85,-54"/>
+<polygon fill="#000000" stroke="#000000" points="258.89,-57.5 268.89,-54 258.89,-50.5 258.89,-57.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/fragmentation_initialize.html b/docs/proc/fragmentation_initialize.html
index 12d9d876f..cf3575725 100644
--- a/docs/proc/fragmentation_initialize.html
+++ b/docs/proc/fragmentation_initialize.html
@@ -136,7 +136,7 @@ <h1>fragmentation_initialize
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.3% of total for procedures.">575 statements</a>
+    title=" 1.3% of total for procedures.">593 statements</a>
      </li> 
      
      
@@ -350,12 +350,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~111"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~118"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>system</strong></td><td></td>
+  <td><strong>system</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -365,12 +365,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~204"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~207"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
   
 </tr>
 
@@ -380,12 +380,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-family~11"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-family~12"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>family</strong></td><td></td>
+  <td><strong>family</strong></td><td><p>Index of bodies involved in the collision</p></td>
   
 </tr>
 
@@ -400,7 +400,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>x</strong></td><td></td>
+  <td><strong>x</strong></td><td><p>Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</p></td>
   
 </tr>
 
@@ -415,7 +415,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>v</strong></td><td></td>
+  <td><strong>v</strong></td><td><p>Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</p></td>
   
 </tr>
 
@@ -430,7 +430,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>L_spin</strong></td><td></td>
+  <td><strong>L_spin</strong></td><td><p>Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</p></td>
   
 </tr>
 
@@ -445,7 +445,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td>dimension(:,:)</td><td>::</td>
-  <td><strong>Ip</strong></td><td></td>
+  <td><strong>Ip</strong></td><td><p>Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</p></td>
   
 </tr>
 
@@ -460,7 +460,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>mass</strong></td><td></td>
+  <td><strong>mass</strong></td><td><p>Two-body equivalent mass and radii for the bodies in the collision</p></td>
   
 </tr>
 
@@ -475,7 +475,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td>dimension(:)</td><td>::</td>
-  <td><strong>radius</strong></td><td></td>
+  <td><strong>radius</strong></td><td><p>Two-body equivalent mass and radii for the bodies in the collision</p></td>
   
 </tr>
 
@@ -490,7 +490,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>nfrag</strong></td><td></td>
+  <td><strong>nfrag</strong></td><td><p>Number of fragments to generate</p></td>
   
 </tr>
 
@@ -500,12 +500,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ip_frag~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-ip_frag~3"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>Ip_frag</strong></td><td></td>
+  <td><strong>Ip_frag</strong></td><td><p>Fragment rotational inertia vectors</p></td>
   
 </tr>
 
@@ -515,12 +515,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-m_frag~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-m_frag~3"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>m_frag</strong></td><td></td>
+  <td><strong>m_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
   
 </tr>
 
@@ -530,12 +530,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-rad_frag~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-rad_frag~3"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>rad_frag</strong></td><td></td>
+  <td><strong>rad_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
   
 </tr>
 
@@ -545,12 +545,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-xb_frag~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-xb_frag~3"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>xb_frag</strong></td><td></td>
+  <td><strong>xb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
   
 </tr>
 
@@ -560,12 +560,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-vb_frag~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-vb_frag~3"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>vb_frag</strong></td><td></td>
+  <td><strong>vb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
   
 </tr>
 
@@ -575,12 +575,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-rot_frag~2"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-rot_frag~3"></span>real(kind=DP),</td>
   <td>intent(inout),</td>
   <td></td>
   
   <td>dimension(:,:), allocatable</td><td>::</td>
-  <td><strong>rot_frag</strong></td><td></td>
+  <td><strong>rot_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
   
 </tr>
 
@@ -595,7 +595,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>Qloss</strong></td><td></td>
+  <td><strong>Qloss</strong></td><td><p>Energy lost during the collision</p></td>
   
 </tr>
 
@@ -610,7 +610,7 @@ <h3>Arguments</h3>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>lfailure</strong></td><td></td>
+  <td><strong>lfailure</strong></td><td><p>Answers the question: Should this have been a merger instead?</p></td>
   
 </tr>
 
@@ -623,104 +623,6 @@ <h3>Arguments</h3>
     <br>
     
     
-    <div class="panel panel-default">
-      <div class="panel-heading">
-  <h3 class="panel-title">Calls</h3>
-      </div>
-      <div class="panel-body">
-  <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.47.1 (20210417.1919)
- -->
-<!-- Title: proc~~fragmentation_initialize~~CallsGraph Pages: 1 -->
-<svg id="procfragmentation_initializeCallsGraph" 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~~fragmentation_initialize~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~fragmentation_initialize~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 216,-28 216,4 -4,4"/>
-<!-- proc~fragmentation_initialize -->
-<g id="proc~~fragmentation_initialize~~CallsGraph_node1" class="node">
-<title>proc~fragmentation_initialize</title>
-<polygon fill="none" stroke="black" points="122,-24 0,-24 0,0 122,0 122,-24"/>
-<text text-anchor="middle" x="61" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fragmentation_initialize</text>
-</g>
-<!-- status -->
-<g id="proc~~fragmentation_initialize~~CallsGraph_node2" class="node">
-<title>status</title>
-<polygon fill="#777777" stroke="#777777" points="212,-24 158,-24 158,0 212,0 212,-24"/>
-<text text-anchor="middle" x="185" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">status</text>
-</g>
-<!-- proc~fragmentation_initialize&#45;&gt;status -->
-<g id="proc~~fragmentation_initialize~~CallsGraph_edge1" class="edge">
-<title>proc~fragmentation_initialize&#45;&gt;status</title>
-<path fill="none" stroke="#000000" d="M122.29,-12C130.97,-12 139.67,-12 147.69,-12"/>
-<polygon fill="#000000" stroke="#000000" points="147.77,-15.5 157.77,-12 147.77,-8.5 147.77,-15.5"/>
-</g>
-</g>
-</svg>
-</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
-    <p>Nodes of different colours represent the following: </p>
-    <?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.47.1 (20210417.1919)
- -->
-<!-- Title: Graph Key Pages: 1 -->
-<svg width="560pt" height="32pt"
- viewBox="0.00 0.00 559.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)">
-<title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
-<!-- Subroutine -->
-<g id="node1" class="node">
-<title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
-<text text-anchor="middle" x="32" y="-9.6" 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="136,-24 82,-24 82,0 136,0 136,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" 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="209.5,-24 154.5,-24 154.5,0 209.5,0 209.5,-24"/>
-<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
-</g>
-<!-- Unknown Procedure Type -->
-<g id="node4" class="node">
-<title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,0 364,0 364,-24"/>
-<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
-</g>
-<!-- Program -->
-<g id="node5" class="node">
-<title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,0 436,0 436,-24"/>
-<text text-anchor="middle" x="409" y="-9.6" 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="551.5,-24 454.5,-24 454.5,0 551.5,0 551.5,-24"/>
-<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
-</g>
-</g>
-</svg>
-
-    
-    <p>Solid arrows point from a procedure to one which it calls. Dashed 
-    arrows point from an interface to procedures which implement that interface.
-    This could include the module procedures in a generic interface or the
-    implementation in a submodule of an interface in a parent module.
-    </p>
-    </div></div></div></div>
-      </div>
-    </div>
-     
      
     <div class="panel panel-default">
       <div class="panel-heading">
diff --git a/docs/proc/ge_wpp.html b/docs/proc/ge_wpp.html
index 8c0943bcf..e6785c7d1 100644
--- a/docs/proc/ge_wpp.html
+++ b/docs/proc/ge_wpp.html
@@ -233,270 +233,267 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~ge_wpp~~UsesGraph Pages: 1 -->
-<svg id="procge_wppUsesGraph" width="641pt" height="211pt"
- viewBox="0.00 0.00 641.00 210.66" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~ge_wpp~~UsesGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 302.3)">
+<svg id="procge_wppUsesGraph" width="641pt" height="192pt"
+ viewBox="0.00 0.00 641.00 191.55" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~ge_wpp~~UsesGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 274.51)">
 <title>proc~~ge_wpp~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-302.3 928,-302.3 928,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-274.51 928,-274.51 928,4 -4,4"/>
 <!-- proc~ge_wpp -->
 <g id="proc~~ge_wpp~~UsesGraph_node1" class="node">
 <title>proc~ge_wpp</title>
-<polygon fill="none" stroke="black" points="924,-164.42 870,-164.42 870,-140.42 924,-140.42 924,-164.42"/>
-<text text-anchor="middle" x="897" y="-150.02" font-family="Helvetica,sans-Serif" font-size="10.50">ge_wpp</text>
+<polygon fill="none" stroke="black" points="924,-176.71 870,-176.71 870,-152.71 924,-152.71 924,-176.71"/>
+<text text-anchor="middle" x="897" y="-162.31" font-family="Helvetica,sans-Serif" font-size="10.50">ge_wpp</text>
 </g>
 <!-- ieee_exceptions -->
 <g id="proc~~ge_wpp~~UsesGraph_node2" class="node">
 <title>ieee_exceptions</title>
 <g id="a_proc~~ge_wpp~~UsesGraph_node2"><a xlink:href="http://fortranwiki.org/fortran/show/IEEE+arithmetic" xlink:title="ieee_exceptions">
-<polygon fill="#337ab7" stroke="#337ab7" points="834,-185.42 744,-185.42 744,-161.42 834,-161.42 834,-185.42"/>
-<text text-anchor="middle" x="789" y="-171.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_exceptions</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="834,-197.71 744,-197.71 744,-173.71 834,-173.71 834,-197.71"/>
+<text text-anchor="middle" x="789" y="-183.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_exceptions</text>
 </a>
 </g>
 </g>
 <!-- proc~ge_wpp&#45;&gt;ieee_exceptions -->
 <g id="proc~~ge_wpp~~UsesGraph_edge1" class="edge">
 <title>proc~ge_wpp&#45;&gt;ieee_exceptions</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M869.8,-157.61C861.96,-159.17 853.06,-160.93 844.11,-162.7"/>
-<polygon fill="#000000" stroke="#000000" points="843.18,-159.32 834.05,-164.69 844.54,-166.18 843.18,-159.32"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M869.8,-169.9C861.96,-171.45 853.06,-173.22 844.11,-174.99"/>
+<polygon fill="#000000" stroke="#000000" points="843.18,-171.6 834.05,-176.98 844.54,-178.47 843.18,-171.6"/>
 </g>
 <!-- module~swiftest -->
 <g id="proc~~ge_wpp~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_proc~~ge_wpp~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="816,-143.42 762,-143.42 762,-119.42 816,-119.42 816,-143.42"/>
-<text text-anchor="middle" x="789" y="-129.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="816,-155.71 762,-155.71 762,-131.71 816,-131.71 816,-155.71"/>
+<text text-anchor="middle" x="789" y="-141.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- proc~ge_wpp&#45;&gt;module~swiftest -->
 <g id="proc~~ge_wpp~~UsesGraph_edge2" class="edge">
 <title>proc~ge_wpp&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M869.8,-147.23C856.67,-144.63 840.58,-141.44 826.29,-138.61"/>
-<polygon fill="#000000" stroke="#000000" points="826.76,-135.14 816.27,-136.63 825.4,-142 826.76,-135.14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M869.8,-159.52C856.67,-156.92 840.58,-153.73 826.29,-150.9"/>
+<polygon fill="#000000" stroke="#000000" points="826.76,-147.42 816.27,-148.91 825.4,-154.29 826.76,-147.42"/>
 </g>
-<!-- module~helio_classes -->
+<!-- module~swiftest_globals -->
 <g id="proc~~ge_wpp~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_proc~~ge_wpp~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-143.42 510.5,-143.42 510.5,-119.42 586.5,-119.42 586.5,-143.42"/>
-<text text-anchor="middle" x="548.5" y="-129.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<title>module~swiftest_globals</title>
+<g id="a_proc~~ge_wpp~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-197.71 123,-197.71 123,-173.71 211,-173.71 211,-197.71"/>
+<text text-anchor="middle" x="167" y="-183.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="proc~~ge_wpp~~UsesGraph_edge3" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-91.42C633.12,-86.47 598.95,-101.12 576.08,-114.06"/>
-<polygon fill="#000000" stroke="#000000" points="574.13,-111.15 567.31,-119.26 577.69,-117.17 574.13,-111.15"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-265.71C344.57,-271.99 319.99,-276.08 247,-246.71 223.81,-237.38 201.66,-219.19 186.75,-205.09"/>
+<polygon fill="#000000" stroke="#000000" points="188.85,-202.25 179.25,-197.76 183.96,-207.25 188.85,-202.25"/>
 </g>
 <!-- module~lambda_function -->
 <g id="proc~~ge_wpp~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_proc~~ge_wpp~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-259.42 383,-259.42 383,-235.42 474,-235.42 474,-259.42"/>
-<text text-anchor="middle" x="428.5" y="-245.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="338,-237.71 247,-237.71 247,-213.71 338,-213.71 338,-237.71"/>
+<text text-anchor="middle" x="292.5" y="-223.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="proc~~ge_wpp~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247.42C526.83,-247.42 504.12,-247.42 484.19,-247.42"/>
-<polygon fill="#000000" stroke="#000000" points="484.05,-243.92 474.05,-247.42 484.05,-250.92 484.05,-243.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-265.71C388.06,-268.51 349.93,-254.5 324.16,-242.31"/>
+<polygon fill="#000000" stroke="#000000" points="325.44,-239.03 314.92,-237.76 322.34,-245.31 325.44,-239.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-225.71C490.31,-222.65 482.09,-261.13 425,-265.71"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="proc~~ge_wpp~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_proc~~ge_wpp~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="347,-221.42 247,-221.42 247,-197.42 347,-197.42 347,-221.42"/>
-<text text-anchor="middle" x="297" y="-207.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-237.71 374,-237.71 374,-213.71 474,-213.71 474,-237.71"/>
+<text text-anchor="middle" x="424" y="-223.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="proc~~ge_wpp~~UsesGraph_edge5" class="edge">
+<g id="proc~~ge_wpp~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247.42C513.53,-247.42 507.38,-232.75 474,-226.42 435.6,-219.14 391.86,-214.9 357.59,-212.47"/>
-<polygon fill="#000000" stroke="#000000" points="357.49,-208.96 347.27,-211.78 357.01,-215.94 357.49,-208.96"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M762.39,-143.6C756.35,-146.48 749.95,-149.55 744,-152.42 657.37,-194.25 645.69,-245.68 549.5,-247.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-225.71C526.97,-224.61 504.49,-224.34 484.44,-224.43"/>
+<polygon fill="#000000" stroke="#000000" points="484.18,-220.94 474.21,-224.51 484.23,-227.94 484.18,-220.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="proc~~ge_wpp~~UsesGraph_node7" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_proc~~ge_wpp~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-63.42 510,-63.42 510,-39.42 587,-39.42 587,-63.42"/>
-<text text-anchor="middle" x="548.5" y="-49.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<title>module~helio_classes</title>
+<g id="a_proc~~ge_wpp~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-197.71 510.5,-197.71 510.5,-173.71 586.5,-173.71 586.5,-197.71"/>
+<text text-anchor="middle" x="548.5" y="-183.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="proc~~ge_wpp~~UsesGraph_edge6" class="edge">
-<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-91.42C637.04,-87.08 607.43,-76.64 585.14,-67.52"/>
-<polygon fill="#000000" stroke="#000000" points="586.33,-64.22 575.76,-63.58 583.62,-70.67 586.33,-64.22"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.59,-119.97C737.39,-110.15 700.28,-96.76 666.5,-91.42"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="proc~~ge_wpp~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-225.71C633.17,-229.67 599.23,-215.38 576.41,-202.8"/>
+<polygon fill="#000000" stroke="#000000" points="578.06,-199.71 567.64,-197.74 574.56,-205.77 578.06,-199.71"/>
 </g>
-<!-- module~symba_classes -->
+<!-- module~rmvs_classes -->
 <g id="proc~~ge_wpp~~UsesGraph_node8" class="node">
-<title>module~symba_classes</title>
-<g id="a_proc~~ge_wpp~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-143.42 623,-143.42 623,-119.42 708,-119.42 708,-143.42"/>
-<text text-anchor="middle" x="665.5" y="-129.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<title>module~rmvs_classes</title>
+<g id="a_proc~~ge_wpp~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-155.71 510,-155.71 510,-131.71 587,-131.71 587,-155.71"/>
+<text text-anchor="middle" x="548.5" y="-141.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="proc~~ge_wpp~~UsesGraph_edge7" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.94,-131.42C749.24,-131.42 733.52,-131.42 718.52,-131.42"/>
-<polygon fill="#000000" stroke="#000000" points="718.29,-127.92 708.29,-131.42 718.29,-134.92 718.29,-127.92"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="proc~~ge_wpp~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.9,-154.99C755.88,-157.91 749.61,-161.22 744,-164.71 706.77,-187.85 709.99,-220.21 666.5,-225.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-225.71C621.01,-231.21 623.46,-189.05 587,-164.71 585.13,-163.46 583.19,-162.22 581.21,-161"/>
+<polygon fill="#000000" stroke="#000000" points="582.84,-157.89 572.45,-155.81 579.27,-163.92 582.84,-157.89"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~whm_classes -->
 <g id="proc~~ge_wpp~~UsesGraph_node9" class="node">
-<title>module~swiftest_globals</title>
-<g id="a_proc~~ge_wpp~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-181.42 123,-181.42 123,-157.42 211,-157.42 211,-181.42"/>
-<text text-anchor="middle" x="167" y="-167.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<title>module~whm_classes</title>
+<g id="a_proc~~ge_wpp~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="462,-157.71 386,-157.71 386,-133.71 462,-133.71 462,-157.71"/>
+<text text-anchor="middle" x="424" y="-143.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
 <g id="proc~~ge_wpp~~UsesGraph_edge8" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247.42C437.55,-270.32 405.52,-319.86 298,-287.42"/>
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-225.71C503.94,-223.38 463.69,-188.17 441.92,-165.24"/>
+<polygon fill="#000000" stroke="#000000" points="444.35,-162.72 435.01,-157.72 439.19,-167.45 444.35,-162.72"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-225.71C613.79,-232.12 600.54,-228.43 549.5,-225.71"/>
 </g>
 <!-- module~swiftest_classes -->
 <g id="proc~~ge_wpp~~UsesGraph_node10" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_proc~~ge_wpp~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-141.42 252.5,-141.42 252.5,-117.42 341.5,-117.42 341.5,-141.42"/>
-<text text-anchor="middle" x="297" y="-127.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="337,-137.71 248,-137.71 248,-113.71 337,-113.71 337,-137.71"/>
+<text text-anchor="middle" x="292.5" y="-123.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="proc~~ge_wpp~~UsesGraph_edge9" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-91.42C478.05,-85.67 398.6,-101.73 348.37,-114.72"/>
-<polygon fill="#000000" stroke="#000000" points="347.19,-111.42 338.42,-117.36 348.98,-118.18 347.19,-111.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-29.71C379.06,-47.82 336.44,-84.14 312.71,-106.55"/>
+<polygon fill="#000000" stroke="#000000" points="310.2,-104.11 305.42,-113.57 315.05,-109.16 310.2,-104.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M774.76,-131.34C744.43,-103.96 666.44,-38.85 587,-15.71 517.62,4.51 491.81,-2.16 425,-29.71"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~symba_classes -->
 <g id="proc~~ge_wpp~~UsesGraph_node11" class="node">
-<title>module~whm_classes</title>
-<g id="a_proc~~ge_wpp~~UsesGraph_node11"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-63.42 390.5,-63.42 390.5,-39.42 466.5,-39.42 466.5,-63.42"/>
-<text text-anchor="middle" x="428.5" y="-49.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<title>module~symba_classes</title>
+<g id="a_proc~~ge_wpp~~UsesGraph_node11"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-155.71 623,-155.71 623,-131.71 708,-131.71 708,-155.71"/>
+<text text-anchor="middle" x="665.5" y="-141.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="proc~~ge_wpp~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-91.42C517.89,-88.97 486.07,-77.63 462.95,-67.65"/>
-<polygon fill="#000000" stroke="#000000" points="464.17,-64.36 453.61,-63.48 461.32,-70.75 464.17,-64.36"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-91.42C614.01,-83.45 600.44,-95.64 549.5,-91.42"/>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="proc~~ge_wpp~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.94,-143.71C749.24,-143.71 733.52,-143.71 718.52,-143.71"/>
+<polygon fill="#000000" stroke="#000000" points="718.29,-140.21 708.29,-143.71 718.29,-147.21 718.29,-140.21"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="proc~~ge_wpp~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-169.42C271.49,-171.18 244.28,-171.42 221.27,-171.13"/>
-<polygon fill="#000000" stroke="#000000" points="221.07,-167.62 211.01,-170.96 220.95,-174.62 221.07,-167.62"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131.42C367.66,-135.5 357.83,-165.12 298,-169.42"/>
+<!-- iso_fortran_env -->
+<g id="proc~~ge_wpp~~UsesGraph_node12" class="node">
+<title>iso_fortran_env</title>
+<g id="a_proc~~ge_wpp~~UsesGraph_node12"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-197.71 0,-197.71 0,-173.71 87,-173.71 87,-197.71"/>
+<text text-anchor="middle" x="43.5" y="-183.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="proc~~ge_wpp~~UsesGraph_edge11" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131.42C402.58,-133.12 374.91,-132.97 351.57,-132.25"/>
-<polygon fill="#000000" stroke="#000000" points="351.63,-128.75 341.51,-131.9 351.38,-135.75 351.63,-128.75"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.25,-130.13C487.01,-129.64 456.48,-129.58 429.5,-131.42"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="proc~~ge_wpp~~UsesGraph_edge12" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M529.58,-119.27C509.88,-105.92 478.07,-84.35 455.61,-69.12"/>
-<polygon fill="#000000" stroke="#000000" points="457.44,-66.14 447.2,-63.42 453.52,-71.93 457.44,-66.14"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="proc~~ge_wpp~~UsesGraph_edge11" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-185.71C114.58,-185.71 105.86,-185.71 97.36,-185.71"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-182.21 87.13,-185.71 97.13,-189.21 97.13,-182.21"/>
 </g>
 <!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="proc~~ge_wpp~~UsesGraph_edge14" class="edge">
+<g id="proc~~ge_wpp~~UsesGraph_edge12" class="edge">
 <title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-287.42C243.82,-271.67 201.63,-219.55 181.26,-190.12"/>
-<polygon fill="#000000" stroke="#000000" points="184.13,-188.13 175.65,-181.78 178.32,-192.03 184.13,-188.13"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M400.8,-259.52C368.87,-273.32 317.32,-293.25 298,-287.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-213.71C242.1,-209.71 228.18,-205.2 215.18,-200.99"/>
+<polygon fill="#000000" stroke="#000000" points="216.05,-197.59 205.45,-197.84 213.89,-204.25 216.05,-197.59"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="proc~~ge_wpp~~UsesGraph_edge15" class="edge">
+<g id="proc~~ge_wpp~~UsesGraph_edge13" class="edge">
 <title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-197.42C244.68,-193.38 230.09,-188.83 216.5,-184.58"/>
-<polygon fill="#000000" stroke="#000000" points="217.41,-181.19 206.82,-181.55 215.32,-187.88 217.41,-181.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.44,-213.71C377.32,-200.39 333.26,-181.3 293.5,-185.71"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="proc~~ge_wpp~~UsesGraph_edge14" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.34,-183.16C460.73,-180.33 370.2,-177.21 293.5,-185.71"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="proc~~ge_wpp~~UsesGraph_edge15" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.75,-173.71C498.5,-169.71 484.7,-165.2 471.8,-160.99"/>
+<polygon fill="#000000" stroke="#000000" points="472.74,-157.62 462.15,-157.84 470.57,-164.27 472.74,-157.62"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="proc~~ge_wpp~~UsesGraph_edge16" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.94,-173.49C518.47,-170.84 513.96,-167.88 510,-164.71 491.32,-149.78 495.85,-134.44 474,-124.71 434.23,-106.99 384.46,-108.8 347.26,-114.16"/>
+<polygon fill="#000000" stroke="#000000" points="346.46,-110.74 337.12,-115.75 347.54,-117.66 346.46,-110.74"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="proc~~ge_wpp~~UsesGraph_edge17" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-11.42C233.62,-35.31 193.53,-110.2 176.85,-147.65"/>
-<polygon fill="#000000" stroke="#000000" points="173.51,-146.57 172.77,-157.14 179.94,-149.34 173.51,-146.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.91,-39.36C477.15,-18.67 376.45,18.62 298,-11.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-185.71C268.52,-188.36 242.96,-188.78 221.09,-188.37"/>
+<polygon fill="#000000" stroke="#000000" points="221.09,-184.87 211.01,-188.12 220.92,-191.87 221.09,-184.87"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M513.65,-131.68C478,-120.91 420.67,-109.02 374,-124.71 331.45,-139.01 338.09,-180.56 293.5,-185.71"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="proc~~ge_wpp~~UsesGraph_edge16" class="edge">
+<g id="proc~~ge_wpp~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.84,-51.42C499.41,-51.42 487.96,-51.42 477.05,-51.42"/>
-<polygon fill="#000000" stroke="#000000" points="476.8,-47.92 466.8,-51.42 476.8,-54.92 476.8,-47.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-144.32C497.99,-144.52 484.88,-144.73 472.55,-144.93"/>
+<polygon fill="#000000" stroke="#000000" points="472.36,-141.43 462.42,-145.1 472.47,-148.43 472.36,-141.43"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="proc~~ge_wpp~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-131.42C614.47,-131.42 605.46,-131.42 596.76,-131.42"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-127.92 586.76,-131.42 596.76,-134.92 596.76,-127.92"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="proc~~ge_wpp~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-119.39C637.51,-115.13 629.83,-110.2 623,-105.42 606.39,-93.8 603.33,-89.42 587,-77.42 583.48,-74.84 579.74,-72.16 576.03,-69.55"/>
-<polygon fill="#000000" stroke="#000000" points="577.78,-66.5 567.57,-63.65 573.78,-72.24 577.78,-66.5"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M394.86,-157.8C369.06,-168.05 329.52,-181.72 293.5,-185.71"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <g id="proc~~ge_wpp~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-169.42C369.98,-167.47 355.41,-165.3 298,-169.42"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="proc~~ge_wpp~~UsesGraph_edge18" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.05,-143.51C579.7,-156.72 499.31,-175.28 429.5,-169.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-169.42C394.13,-168.29 357.98,-156.13 332.37,-145.51"/>
-<polygon fill="#000000" stroke="#000000" points="333.67,-142.26 323.1,-141.54 330.92,-148.69 333.67,-142.26"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="proc~~ge_wpp~~UsesGraph_node12" class="node">
-<title>iso_fortran_env</title>
-<g id="a_proc~~ge_wpp~~UsesGraph_node12"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-181.42 0,-181.42 0,-157.42 87,-157.42 87,-181.42"/>
-<text text-anchor="middle" x="43.5" y="-167.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
-</g>
-</g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="proc~~ge_wpp~~UsesGraph_edge22" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-169.42C114.58,-169.42 105.86,-169.42 97.36,-169.42"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-165.92 87.13,-169.42 97.13,-172.92 97.13,-165.92"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-139.98C373.86,-138.12 360.26,-136.02 347.27,-134.01"/>
+<polygon fill="#000000" stroke="#000000" points="347.44,-130.5 337.02,-132.43 346.37,-137.42 347.44,-130.5"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="proc~~ge_wpp~~UsesGraph_edge23" class="edge">
+<g id="proc~~ge_wpp~~UsesGraph_edge21" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-141.42C244.68,-145.46 230.09,-150.02 216.5,-154.26"/>
-<polygon fill="#000000" stroke="#000000" points="215.32,-150.97 206.82,-157.29 217.41,-157.65 215.32,-150.97"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.51,-137.85C248.01,-146.84 222.59,-159.18 202.21,-169.09"/>
+<polygon fill="#000000" stroke="#000000" points="200.42,-166.07 192.95,-173.58 203.48,-172.36 200.42,-166.07"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="proc~~ge_wpp~~UsesGraph_edge22" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.38,-131.54C639.61,-107.5 598.57,-54.14 549.5,-29.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-29.71C478.25,4.77 447.78,7.57 374,-15.71 288.08,-42.82 213.91,-126.71 183.16,-165.57"/>
+<polygon fill="#000000" stroke="#000000" points="180.31,-163.53 176.94,-173.57 185.84,-167.82 180.31,-163.53"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <g id="proc~~ge_wpp~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.76,-39.36C369.77,-25.09 317.06,-4.12 298,-11.42"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-155.74C619.28,-160.23 605.17,-165.38 592.15,-170.13"/>
+<polygon fill="#000000" stroke="#000000" points="590.65,-166.95 582.46,-173.67 593.05,-173.53 590.65,-166.95"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="proc~~ge_wpp~~UsesGraph_edge23" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-143.71C614.66,-143.71 605.85,-143.71 597.33,-143.71"/>
+<polygon fill="#000000" stroke="#000000" points="597.14,-140.21 587.14,-143.71 597.14,-147.21 597.14,-140.21"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="proc~~ge_wpp~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.62,-63.5C399.15,-67.86 390.68,-72.83 383,-77.42 363.96,-88.81 342.66,-101.84 326.15,-112"/>
-<polygon fill="#000000" stroke="#000000" points="324.19,-109.1 317.51,-117.33 327.86,-115.06 324.19,-109.1"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-29.71C498.76,-5.44 475.33,-8.96 425,-29.71"/>
 </g>
 </g>
 </svg>
@@ -655,33 +652,33 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="none" stroke="black" points="231,-45 177,-45 177,-21 231,-21 231,-45"/>
 <text text-anchor="middle" x="204" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">ge_wpp</text>
 </g>
-<!-- proc~util_solve_linear_system_q -->
+<!-- proc~util_solve_linear_system_d -->
 <g id="proc~~ge_wpp~~CalledByGraph_node2" class="node">
-<title>proc~util_solve_linear_system_q</title>
-<g id="a_proc~~ge_wpp~~CalledByGraph_node2"><a xlink:href=".././proc/util_solve_linear_system_q.html" xlink:title="util_solve_linear_system_q">
+<title>proc~util_solve_linear_system_d</title>
+<g id="a_proc~~ge_wpp~~CalledByGraph_node2"><a xlink:href=".././proc/util_solve_linear_system_d.html" xlink:title="util_solve_linear_system_d">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="141,-66 0,-66 0,-42 141,-42 141,-66"/>
-<text text-anchor="middle" x="70.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system_q</text>
+<text text-anchor="middle" x="70.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system_d</text>
 </a>
 </g>
 </g>
-<!-- proc~util_solve_linear_system_q&#45;&gt;proc~ge_wpp -->
+<!-- proc~util_solve_linear_system_d&#45;&gt;proc~ge_wpp -->
 <g id="proc~~ge_wpp~~CalledByGraph_edge1" class="edge">
-<title>proc~util_solve_linear_system_q&#45;&gt;proc~ge_wpp</title>
+<title>proc~util_solve_linear_system_d&#45;&gt;proc~ge_wpp</title>
 <path fill="none" stroke="#000000" d="M141.1,-42.89C149.92,-41.48 158.66,-40.08 166.66,-38.8"/>
 <polygon fill="#000000" stroke="#000000" points="167.37,-42.23 176.7,-37.2 166.27,-35.32 167.37,-42.23"/>
 </g>
-<!-- proc~util_solve_linear_system_d -->
+<!-- proc~util_solve_linear_system_q -->
 <g id="proc~~ge_wpp~~CalledByGraph_node3" class="node">
-<title>proc~util_solve_linear_system_d</title>
-<g id="a_proc~~ge_wpp~~CalledByGraph_node3"><a xlink:href=".././proc/util_solve_linear_system_d.html" xlink:title="util_solve_linear_system_d">
+<title>proc~util_solve_linear_system_q</title>
+<g id="a_proc~~ge_wpp~~CalledByGraph_node3"><a xlink:href=".././proc/util_solve_linear_system_q.html" xlink:title="util_solve_linear_system_q">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="141,-24 0,-24 0,0 141,0 141,-24"/>
-<text text-anchor="middle" x="70.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system_d</text>
+<text text-anchor="middle" x="70.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system_q</text>
 </a>
 </g>
 </g>
-<!-- proc~util_solve_linear_system_d&#45;&gt;proc~ge_wpp -->
+<!-- proc~util_solve_linear_system_q&#45;&gt;proc~ge_wpp -->
 <g id="proc~~ge_wpp~~CalledByGraph_edge2" class="edge">
-<title>proc~util_solve_linear_system_d&#45;&gt;proc~ge_wpp</title>
+<title>proc~util_solve_linear_system_q&#45;&gt;proc~ge_wpp</title>
 <path fill="none" stroke="#000000" d="M141.1,-23.11C149.92,-24.52 158.66,-25.92 166.66,-27.2"/>
 <polygon fill="#000000" stroke="#000000" points="166.27,-30.68 176.7,-28.8 167.37,-23.77 166.27,-30.68"/>
 </g>
diff --git a/docs/proc/gr_kick_getaccb_ns_body.html b/docs/proc/gr_kick_getaccb_ns_body.html
index bf74a7c43..a1c30a8ea 100644
--- a/docs/proc/gr_kick_getaccb_ns_body.html
+++ b/docs/proc/gr_kick_getaccb_ns_body.html
@@ -256,7 +256,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~77"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~81"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -271,7 +271,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~134"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~138"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/gr_p4_pos_kick.html b/docs/proc/gr_p4_pos_kick.html
index 98bd1e9aa..ac3e1d37c 100644
--- a/docs/proc/gr_p4_pos_kick.html
+++ b/docs/proc/gr_p4_pos_kick.html
@@ -241,7 +241,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~135"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~139"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/gr_pseudovel2vel.html b/docs/proc/gr_pseudovel2vel.html
index c85be318d..c937f997b 100644
--- a/docs/proc/gr_pseudovel2vel.html
+++ b/docs/proc/gr_pseudovel2vel.html
@@ -241,7 +241,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~136"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~140"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/gr_pv2vh_body.html b/docs/proc/gr_pv2vh_body.html
index 428e39bd7..9cec4f2e0 100644
--- a/docs/proc/gr_pv2vh_body.html
+++ b/docs/proc/gr_pv2vh_body.html
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~137"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~141"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/gr_vel2pseudovel.html b/docs/proc/gr_vel2pseudovel.html
index 014ab964d..95acae1a3 100644
--- a/docs/proc/gr_vel2pseudovel.html
+++ b/docs/proc/gr_vel2pseudovel.html
@@ -242,7 +242,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~138"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~142"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/gr_vh2pv_body.html b/docs/proc/gr_vh2pv_body.html
index 8d936633e..d710e1540 100644
--- a/docs/proc/gr_vh2pv_body.html
+++ b/docs/proc/gr_vh2pv_body.html
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~139"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~143"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_drift_body.html b/docs/proc/helio_drift_body.html
index 798b99d2e..b6698e281 100644
--- a/docs/proc/helio_drift_body.html
+++ b/docs/proc/helio_drift_body.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~86"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~90"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~154"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~158"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -437,65 +437,65 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M308.01,-33C316.4,-33 325.28,-33 333.94,-33"/>
 <polygon fill="#000000" stroke="#000000" points="333.96,-36.5 343.96,-33 333.96,-29.5 333.96,-36.5"/>
 </g>
-<!-- proc~helio_drift_tp -->
+<!-- proc~helio_drift_pl -->
 <g id="proc~~helio_drift_body~~CalledByGraph_node3" class="node">
-<title>proc~helio_drift_tp</title>
-<g id="a_proc~~helio_drift_body~~CalledByGraph_node3"><a xlink:href=".././proc/helio_drift_tp.html" xlink:title="helio_drift_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="184,-66 110,-66 110,-42 184,-42 184,-66"/>
-<text text-anchor="middle" x="147" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_tp</text>
+<title>proc~helio_drift_pl</title>
+<g id="a_proc~~helio_drift_body~~CalledByGraph_node3"><a xlink:href=".././proc/helio_drift_pl.html" xlink:title="helio_drift_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="183.5,-66 110.5,-66 110.5,-42 183.5,-42 183.5,-66"/>
+<text text-anchor="middle" x="147" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_drift_tp&#45;&gt;interface~helio_drift_body -->
+<!-- proc~helio_drift_pl&#45;&gt;interface~helio_drift_body -->
 <g id="proc~~helio_drift_body~~CalledByGraph_edge2" class="edge">
-<title>proc~helio_drift_tp&#45;&gt;interface~helio_drift_body</title>
-<path fill="none" stroke="#000000" d="M184.07,-47.41C192.21,-45.93 201.03,-44.32 209.71,-42.73"/>
-<polygon fill="#000000" stroke="#000000" points="210.59,-46.13 219.8,-40.89 209.33,-39.24 210.59,-46.13"/>
+<title>proc~helio_drift_pl&#45;&gt;interface~helio_drift_body</title>
+<path fill="none" stroke="#000000" d="M183.76,-47.47C192.09,-45.95 201.14,-44.3 210.05,-42.67"/>
+<polygon fill="#000000" stroke="#000000" points="210.78,-46.09 219.99,-40.85 209.53,-39.21 210.78,-46.09"/>
 </g>
-<!-- proc~helio_drift_pl -->
+<!-- proc~helio_drift_tp -->
 <g id="proc~~helio_drift_body~~CalledByGraph_node4" class="node">
-<title>proc~helio_drift_pl</title>
-<g id="a_proc~~helio_drift_body~~CalledByGraph_node4"><a xlink:href=".././proc/helio_drift_pl.html" xlink:title="helio_drift_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="183.5,-24 110.5,-24 110.5,0 183.5,0 183.5,-24"/>
-<text text-anchor="middle" x="147" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_pl</text>
+<title>proc~helio_drift_tp</title>
+<g id="a_proc~~helio_drift_body~~CalledByGraph_node4"><a xlink:href=".././proc/helio_drift_tp.html" xlink:title="helio_drift_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="184,-24 110,-24 110,0 184,0 184,-24"/>
+<text text-anchor="middle" x="147" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~helio_drift_pl&#45;&gt;interface~helio_drift_body -->
+<!-- proc~helio_drift_tp&#45;&gt;interface~helio_drift_body -->
 <g id="proc~~helio_drift_body~~CalledByGraph_edge3" class="edge">
-<title>proc~helio_drift_pl&#45;&gt;interface~helio_drift_body</title>
-<path fill="none" stroke="#000000" d="M183.76,-18.53C192.09,-20.05 201.14,-21.7 210.05,-23.33"/>
-<polygon fill="#000000" stroke="#000000" points="209.53,-26.79 219.99,-25.15 210.78,-19.91 209.53,-26.79"/>
+<title>proc~helio_drift_tp&#45;&gt;interface~helio_drift_body</title>
+<path fill="none" stroke="#000000" d="M184.07,-18.59C192.21,-20.07 201.03,-21.68 209.71,-23.27"/>
+<polygon fill="#000000" stroke="#000000" points="209.33,-26.76 219.8,-25.11 210.59,-19.87 209.33,-26.76"/>
 </g>
-<!-- interface~helio_drift_tp -->
+<!-- interface~helio_drift_pl -->
 <g id="proc~~helio_drift_body~~CalledByGraph_node5" class="node">
-<title>interface~helio_drift_tp</title>
-<g id="a_proc~~helio_drift_body~~CalledByGraph_node5"><a xlink:href=".././interface/helio_drift_tp.html" xlink:title="helio_drift_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="74,-66 0,-66 0,-42 74,-42 74,-66"/>
-<text text-anchor="middle" x="37" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_tp</text>
+<title>interface~helio_drift_pl</title>
+<g id="a_proc~~helio_drift_body~~CalledByGraph_node5"><a xlink:href=".././interface/helio_drift_pl.html" xlink:title="helio_drift_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="73.5,-66 0.5,-66 0.5,-42 73.5,-42 73.5,-66"/>
+<text text-anchor="middle" x="37" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_drift_tp&#45;&gt;proc~helio_drift_tp -->
+<!-- interface~helio_drift_pl&#45;&gt;proc~helio_drift_pl -->
 <g id="proc~~helio_drift_body~~CalledByGraph_edge4" class="edge">
-<title>interface~helio_drift_tp&#45;&gt;proc~helio_drift_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M74.26,-54C82.37,-54 91.07,-54 99.52,-54"/>
-<polygon fill="#000000" stroke="#000000" points="99.65,-57.5 109.65,-54 99.65,-50.5 99.65,-57.5"/>
+<title>interface~helio_drift_pl&#45;&gt;proc~helio_drift_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M73.66,-54C82.14,-54 91.3,-54 100.17,-54"/>
+<polygon fill="#000000" stroke="#000000" points="100.37,-57.5 110.37,-54 100.37,-50.5 100.37,-57.5"/>
 </g>
-<!-- interface~helio_drift_pl -->
+<!-- interface~helio_drift_tp -->
 <g id="proc~~helio_drift_body~~CalledByGraph_node6" class="node">
-<title>interface~helio_drift_pl</title>
-<g id="a_proc~~helio_drift_body~~CalledByGraph_node6"><a xlink:href=".././interface/helio_drift_pl.html" xlink:title="helio_drift_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="73.5,-24 0.5,-24 0.5,0 73.5,0 73.5,-24"/>
-<text text-anchor="middle" x="37" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift_pl</text>
+<title>interface~helio_drift_tp</title>
+<g id="a_proc~~helio_drift_body~~CalledByGraph_node6"><a xlink:href=".././interface/helio_drift_tp.html" xlink:title="helio_drift_tp">
+<polygon fill="#a7506f" stroke="#a7506f" 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">helio_drift_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~helio_drift_pl&#45;&gt;proc~helio_drift_pl -->
+<!-- interface~helio_drift_tp&#45;&gt;proc~helio_drift_tp -->
 <g id="proc~~helio_drift_body~~CalledByGraph_edge5" class="edge">
-<title>interface~helio_drift_pl&#45;&gt;proc~helio_drift_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M73.66,-12C82.14,-12 91.3,-12 100.17,-12"/>
-<polygon fill="#000000" stroke="#000000" points="100.37,-15.5 110.37,-12 100.37,-8.5 100.37,-15.5"/>
+<title>interface~helio_drift_tp&#45;&gt;proc~helio_drift_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M74.26,-12C82.37,-12 91.07,-12 99.52,-12"/>
+<polygon fill="#000000" stroke="#000000" points="99.65,-15.5 109.65,-12 99.65,-8.5 99.65,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/helio_drift_pl.html b/docs/proc/helio_drift_pl.html
index bf29616af..b886615b2 100644
--- a/docs/proc/helio_drift_pl.html
+++ b/docs/proc/helio_drift_pl.html
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~87"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~91"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~155"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~159"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_drift_tp.html b/docs/proc/helio_drift_tp.html
index 84086b944..dc11d4a18 100644
--- a/docs/proc/helio_drift_tp.html
+++ b/docs/proc/helio_drift_tp.html
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~88"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~92"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~156"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~160"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_gr_kick_getacch_pl.html b/docs/proc/helio_gr_kick_getacch_pl.html
index 750af3c96..2a5707cc0 100644
--- a/docs/proc/helio_gr_kick_getacch_pl.html
+++ b/docs/proc/helio_gr_kick_getacch_pl.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~146"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~150"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_gr_kick_getacch_tp.html b/docs/proc/helio_gr_kick_getacch_tp.html
index c879cd682..c1d9d2ab9 100644
--- a/docs/proc/helio_gr_kick_getacch_tp.html
+++ b/docs/proc/helio_gr_kick_getacch_tp.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~147"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~151"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_gr_p4_pl.html b/docs/proc/helio_gr_p4_pl.html
index c86a03319..548825c67 100644
--- a/docs/proc/helio_gr_p4_pl.html
+++ b/docs/proc/helio_gr_p4_pl.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~148"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~152"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_gr_p4_tp.html b/docs/proc/helio_gr_p4_tp.html
index 4c2cbc3cd..a553e1ce9 100644
--- a/docs/proc/helio_gr_p4_tp.html
+++ b/docs/proc/helio_gr_p4_tp.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~149"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~153"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_kick_getacch_pl.html b/docs/proc/helio_kick_getacch_pl.html
index 0cb72f29a..fd2f5823a 100644
--- a/docs/proc/helio_kick_getacch_pl.html
+++ b/docs/proc/helio_kick_getacch_pl.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~82"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~86"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~150"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~154"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_kick_getacch_tp.html b/docs/proc/helio_kick_getacch_tp.html
index ddb646edc..8266d69ad 100644
--- a/docs/proc/helio_kick_getacch_tp.html
+++ b/docs/proc/helio_kick_getacch_tp.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~83"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~87"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~151"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~155"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_kick_vb_pl.html b/docs/proc/helio_kick_vb_pl.html
index 65da0b1ff..5ce66d1f2 100644
--- a/docs/proc/helio_kick_vb_pl.html
+++ b/docs/proc/helio_kick_vb_pl.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~84"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~88"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~152"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~156"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_kick_vb_tp.html b/docs/proc/helio_kick_vb_tp.html
index 2741ca08a..105908136 100644
--- a/docs/proc/helio_kick_vb_tp.html
+++ b/docs/proc/helio_kick_vb_tp.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~85"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~89"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~153"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~157"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/helio_step_pl.html b/docs/proc/helio_step_pl.html
index d06201247..133aedc96 100644
--- a/docs/proc/helio_step_pl.html
+++ b/docs/proc/helio_step_pl.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~80"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~84"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~144"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~148"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/helio_step_system.html b/docs/proc/helio_step_system.html
index 4f58cd342..a72104158 100644
--- a/docs/proc/helio_step_system.html
+++ b/docs/proc/helio_step_system.html
@@ -255,7 +255,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~143"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~147"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/helio_step_tp.html b/docs/proc/helio_step_tp.html
index ebd7e7f7f..a26ecb3c9 100644
--- a/docs/proc/helio_step_tp.html
+++ b/docs/proc/helio_step_tp.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~81"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~85"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~145"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~149"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/io_conservation_report.html b/docs/proc/io_conservation_report.html
index 6e34317d4..8acbd2b59 100644
--- a/docs/proc/io_conservation_report.html
+++ b/docs/proc/io_conservation_report.html
@@ -136,7 +136,7 @@ <h1>io_conservation_report
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.2% of total for procedures.">71 statements</a>
+    title=" 0.2% of total for procedures.">74 statements</a>
      </li> 
      
      
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~157"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~161"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -306,29 +306,29 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="122,-87 0,-87 0,-63 122,-63 122,-87"/>
 <text text-anchor="middle" x="61" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_conservation_report</text>
 </g>
-<!-- lspin_orig -->
+<!-- lescape -->
 <g id="proc~~io_conservation_report~~CallsGraph_node2" class="node">
-<title>lspin_orig</title>
-<polygon fill="#777777" stroke="#777777" points="217,-150 159,-150 159,-126 217,-126 217,-150"/>
-<text text-anchor="middle" x="188" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lspin_orig</text>
+<title>lescape</title>
+<polygon fill="#777777" stroke="#777777" points="215,-150 161,-150 161,-126 215,-126 215,-150"/>
+<text text-anchor="middle" x="188" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lescape</text>
 </g>
-<!-- proc~io_conservation_report&#45;&gt;lspin_orig -->
+<!-- proc~io_conservation_report&#45;&gt;lescape -->
 <g id="proc~~io_conservation_report~~CallsGraph_edge1" class="edge">
-<title>proc~io_conservation_report&#45;&gt;lspin_orig</title>
+<title>proc~io_conservation_report&#45;&gt;lescape</title>
 <path fill="none" stroke="#000000" d="M86.1,-87.15C105.38,-96.86 132.62,-110.59 153.94,-121.34"/>
 <polygon fill="#000000" stroke="#000000" points="152.47,-124.51 162.97,-125.89 155.62,-118.26 152.47,-124.51"/>
 </g>
-<!-- ltot_orig -->
+<!-- lspin_orig -->
 <g id="proc~~io_conservation_report~~CallsGraph_node3" class="node">
-<title>ltot_orig</title>
-<polygon fill="#777777" stroke="#777777" points="215,-108 161,-108 161,-84 215,-84 215,-108"/>
-<text text-anchor="middle" x="188" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ltot_orig</text>
+<title>lspin_orig</title>
+<polygon fill="#777777" stroke="#777777" points="217,-108 159,-108 159,-84 217,-84 217,-108"/>
+<text text-anchor="middle" x="188" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lspin_orig</text>
 </g>
-<!-- proc~io_conservation_report&#45;&gt;ltot_orig -->
+<!-- proc~io_conservation_report&#45;&gt;lspin_orig -->
 <g id="proc~~io_conservation_report~~CallsGraph_edge2" class="edge">
-<title>proc~io_conservation_report&#45;&gt;ltot_orig</title>
-<path fill="none" stroke="#000000" d="M122.3,-85.13C132.09,-86.77 141.94,-88.43 150.91,-89.94"/>
-<polygon fill="#000000" stroke="#000000" points="150.52,-93.42 160.96,-91.63 151.68,-86.52 150.52,-93.42"/>
+<title>proc~io_conservation_report&#45;&gt;lspin_orig</title>
+<path fill="none" stroke="#000000" d="M122.3,-85.13C131.36,-86.65 140.47,-88.18 148.89,-89.6"/>
+<polygon fill="#000000" stroke="#000000" points="148.32,-93.05 158.76,-91.26 149.48,-86.15 148.32,-93.05"/>
 </g>
 <!-- lorbit_orig -->
 <g id="proc~~io_conservation_report~~CallsGraph_node4" class="node">
@@ -342,15 +342,15 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M122.3,-64.87C130.99,-63.41 139.74,-61.94 147.87,-60.57"/>
 <polygon fill="#000000" stroke="#000000" points="148.51,-64.02 157.79,-58.91 147.35,-57.11 148.51,-64.02"/>
 </g>
-<!-- lescape -->
+<!-- ltot_orig -->
 <g id="proc~~io_conservation_report~~CallsGraph_node5" class="node">
-<title>lescape</title>
+<title>ltot_orig</title>
 <polygon fill="#777777" stroke="#777777" points="215,-24 161,-24 161,0 215,0 215,-24"/>
-<text text-anchor="middle" x="188" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lescape</text>
+<text text-anchor="middle" x="188" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ltot_orig</text>
 </g>
-<!-- proc~io_conservation_report&#45;&gt;lescape -->
+<!-- proc~io_conservation_report&#45;&gt;ltot_orig -->
 <g id="proc~~io_conservation_report~~CallsGraph_edge4" class="edge">
-<title>proc~io_conservation_report&#45;&gt;lescape</title>
+<title>proc~io_conservation_report&#45;&gt;ltot_orig</title>
 <path fill="none" stroke="#000000" d="M86.1,-62.85C105.38,-53.14 132.62,-39.41 153.94,-28.66"/>
 <polygon fill="#000000" stroke="#000000" points="155.62,-31.74 162.97,-24.11 152.47,-25.49 155.62,-31.74"/>
 </g>
diff --git a/docs/proc/io_dump_swiftest.html b/docs/proc/io_dump_swiftest.html
index 5fb7805dc..7b2c377a1 100644
--- a/docs/proc/io_dump_swiftest.html
+++ b/docs/proc/io_dump_swiftest.html
@@ -136,7 +136,7 @@ <h1>io_dump_swiftest
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">27 statements</a>
+    title=" 0.1% of total for procedures.">26 statements</a>
      </li> 
      
      
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine io_dump_swiftest(self, param, msg)
+module subroutine io_dump_swiftest(self, param)
     
     
    <a href='../interface/io_dump_swiftest.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~158"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~162"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -262,21 +262,6 @@ <h3>Arguments</h3>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-msg~4"></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
diff --git a/docs/proc/io_dump_system.html b/docs/proc/io_dump_system.html
index 7d3ebae2d..1087f2322 100644
--- a/docs/proc/io_dump_system.html
+++ b/docs/proc/io_dump_system.html
@@ -136,7 +136,7 @@ <h1>io_dump_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">28 statements</a>
+    title=" 0.1% of total for procedures.">44 statements</a>
      </li> 
      
      
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine io_dump_system(self, param, msg)
+module subroutine io_dump_system(self, param)
     
     
    <a href='../interface/io_dump_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~159"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~163"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -262,21 +262,6 @@ <h3>Arguments</h3>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-msg~5"></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -308,15 +293,15 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="94,-87 0,-87 0,-63 94,-63 94,-87"/>
 <text text-anchor="middle" x="47" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_dump_system</text>
 </g>
-<!-- dump_param_file -->
+<!-- dump_tp_file -->
 <g id="proc~~io_dump_system~~CallsGraph_node2" class="node">
-<title>dump_param_file</title>
-<polygon fill="#777777" stroke="#777777" points="226,-150 130,-150 130,-126 226,-126 226,-150"/>
-<text text-anchor="middle" x="178" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_param_file</text>
+<title>dump_tp_file</title>
+<polygon fill="#777777" stroke="#777777" points="215,-150 141,-150 141,-126 215,-126 215,-150"/>
+<text text-anchor="middle" x="178" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_tp_file</text>
 </g>
-<!-- proc~io_dump_system&#45;&gt;dump_param_file -->
+<!-- proc~io_dump_system&#45;&gt;dump_tp_file -->
 <g id="proc~~io_dump_system~~CallsGraph_edge1" class="edge">
-<title>proc~io_dump_system&#45;&gt;dump_param_file</title>
+<title>proc~io_dump_system&#45;&gt;dump_tp_file</title>
 <path fill="none" stroke="#000000" d="M70.81,-87.1C87.17,-95.67 109.81,-107.32 130,-117 133.16,-118.51 136.45,-120.06 139.76,-121.58"/>
 <polygon fill="#000000" stroke="#000000" points="138.5,-124.85 149.05,-125.81 141.4,-118.48 138.5,-124.85"/>
 </g>
@@ -332,17 +317,17 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M94.21,-82.52C106.17,-84.47 119.06,-86.57 131.01,-88.51"/>
 <polygon fill="#000000" stroke="#000000" points="130.8,-92.02 141.23,-90.18 131.92,-85.12 130.8,-92.02"/>
 </g>
-<!-- dump_tp_file -->
+<!-- dump_param_file -->
 <g id="proc~~io_dump_system~~CallsGraph_node4" class="node">
-<title>dump_tp_file</title>
-<polygon fill="#777777" stroke="#777777" points="215,-66 141,-66 141,-42 215,-42 215,-66"/>
-<text text-anchor="middle" x="178" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_tp_file</text>
+<title>dump_param_file</title>
+<polygon fill="#777777" stroke="#777777" points="226,-66 130,-66 130,-42 226,-42 226,-66"/>
+<text text-anchor="middle" x="178" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">dump_param_file</text>
 </g>
-<!-- proc~io_dump_system&#45;&gt;dump_tp_file -->
+<!-- proc~io_dump_system&#45;&gt;dump_param_file -->
 <g id="proc~~io_dump_system~~CallsGraph_edge3" class="edge">
-<title>proc~io_dump_system&#45;&gt;dump_tp_file</title>
-<path fill="none" stroke="#000000" d="M94.21,-67.48C106.06,-65.55 118.81,-63.47 130.67,-61.54"/>
-<polygon fill="#000000" stroke="#000000" points="131.51,-64.95 140.82,-59.89 130.39,-58.04 131.51,-64.95"/>
+<title>proc~io_dump_system&#45;&gt;dump_param_file</title>
+<path fill="none" stroke="#000000" d="M94.21,-67.48C102.52,-66.12 111.28,-64.7 119.86,-63.3"/>
+<polygon fill="#000000" stroke="#000000" points="120.5,-66.74 129.81,-61.68 119.38,-59.83 120.5,-66.74"/>
 </g>
 <!-- dump_cb_file -->
 <g id="proc~~io_dump_system~~CallsGraph_node5" class="node">
diff --git a/docs/proc/io_get_args.html b/docs/proc/io_get_args.html
index 6f4e18515..3bb3dc400 100644
--- a/docs/proc/io_get_args.html
+++ b/docs/proc/io_get_args.html
@@ -270,7 +270,7 @@ <h3>Arguments</h3>
     
     
     
-   <h3>Return Value <small><span class="anchor" id="variable-ierr~10"></span>integer(kind=I4B)
+   <h3>Return Value <small><span class="anchor" id="variable-ierr~9"></span>integer(kind=I4B)
   </small></h3>
     <p>I/O error code</p>
     
@@ -300,18 +300,18 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="69,-66 0,-66 0,-42 69,-42 69,-66"/>
 <text text-anchor="middle" x="34.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_get_args</text>
 </g>
-<!-- interface~util_version -->
+<!-- interface~io_toupper -->
 <g id="proc~~io_get_args~~CallsGraph_node2" class="node">
-<title>interface~util_version</title>
-<g id="a_proc~~io_get_args~~CallsGraph_node2"><a xlink:href=".././interface/util_version.html" xlink:title="util_version">
-<polygon fill="#a7506f" stroke="#a7506f" points="172,-108 105,-108 105,-84 172,-84 172,-108"/>
-<text text-anchor="middle" x="138.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version</text>
+<title>interface~io_toupper</title>
+<g id="a_proc~~io_get_args~~CallsGraph_node2"><a xlink:href=".././interface/io_toupper.html" xlink:title="io_toupper">
+<polygon fill="#a7506f" stroke="#a7506f" points="170.5,-108 106.5,-108 106.5,-84 170.5,-84 170.5,-108"/>
+<text text-anchor="middle" x="138.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
 </a>
 </g>
 </g>
-<!-- proc~io_get_args&#45;&gt;interface~util_version -->
+<!-- proc~io_get_args&#45;&gt;interface~io_toupper -->
 <g id="proc~~io_get_args~~CallsGraph_edge1" class="edge">
-<title>proc~io_get_args&#45;&gt;interface~util_version</title>
+<title>proc~io_get_args&#45;&gt;interface~io_toupper</title>
 <path fill="none" stroke="#000000" d="M64.73,-66.04C75.4,-70.43 87.63,-75.47 98.99,-80.14"/>
 <polygon fill="#000000" stroke="#000000" points="97.69,-83.39 108.27,-83.96 100.35,-76.92 97.69,-83.39"/>
 </g>
@@ -330,35 +330,35 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M69.18,-54C79.45,-54 90.79,-54 101.22,-54"/>
 <polygon fill="#000000" stroke="#000000" points="101.28,-57.5 111.28,-54 101.28,-50.5 101.28,-57.5"/>
 </g>
-<!-- interface~io_toupper -->
+<!-- interface~util_version -->
 <g id="proc~~io_get_args~~CallsGraph_node4" class="node">
-<title>interface~io_toupper</title>
-<g id="a_proc~~io_get_args~~CallsGraph_node4"><a xlink:href=".././interface/io_toupper.html" xlink:title="io_toupper">
-<polygon fill="#a7506f" stroke="#a7506f" points="170.5,-24 106.5,-24 106.5,0 170.5,0 170.5,-24"/>
-<text text-anchor="middle" x="138.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
+<title>interface~util_version</title>
+<g id="a_proc~~io_get_args~~CallsGraph_node4"><a xlink:href=".././interface/util_version.html" xlink:title="util_version">
+<polygon fill="#a7506f" stroke="#a7506f" points="172,-24 105,-24 105,0 172,0 172,-24"/>
+<text text-anchor="middle" x="138.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version</text>
 </a>
 </g>
 </g>
-<!-- proc~io_get_args&#45;&gt;interface~io_toupper -->
+<!-- proc~io_get_args&#45;&gt;interface~util_version -->
 <g id="proc~~io_get_args~~CallsGraph_edge3" class="edge">
-<title>proc~io_get_args&#45;&gt;interface~io_toupper</title>
+<title>proc~io_get_args&#45;&gt;interface~util_version</title>
 <path fill="none" stroke="#000000" d="M64.73,-41.96C75.4,-37.57 87.63,-32.53 98.99,-27.86"/>
 <polygon fill="#000000" stroke="#000000" points="100.35,-31.08 108.27,-24.04 97.69,-24.61 100.35,-31.08"/>
 </g>
-<!-- proc~util_version -->
-<g id="proc~~io_get_args~~CallsGraph_node7" class="node">
-<title>proc~util_version</title>
-<g id="a_proc~~io_get_args~~CallsGraph_node7"><a xlink:href=".././proc/util_version.html" xlink:title="util_version">
-<polygon fill="#d9534f" stroke="#d9534f" points="275,-108 208,-108 208,-84 275,-84 275,-108"/>
-<text text-anchor="middle" x="241.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version</text>
+<!-- proc~io_toupper -->
+<g id="proc~~io_get_args~~CallsGraph_node5" class="node">
+<title>proc~io_toupper</title>
+<g id="a_proc~~io_get_args~~CallsGraph_node5"><a xlink:href=".././proc/io_toupper.html" xlink:title="io_toupper">
+<polygon fill="#d9534f" stroke="#d9534f" points="273.5,-108 209.5,-108 209.5,-84 273.5,-84 273.5,-108"/>
+<text text-anchor="middle" x="241.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
 </a>
 </g>
 </g>
-<!-- interface~util_version&#45;&gt;proc~util_version -->
+<!-- interface~io_toupper&#45;&gt;proc~io_toupper -->
 <g id="proc~~io_get_args~~CallsGraph_edge4" class="edge">
-<title>interface~util_version&#45;&gt;proc~util_version</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M172.01,-96C180.13,-96 188.96,-96 197.5,-96"/>
-<polygon fill="#000000" stroke="#000000" points="197.7,-99.5 207.7,-96 197.7,-92.5 197.7,-99.5"/>
+<title>interface~io_toupper&#45;&gt;proc~io_toupper</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.63,-96C179.65,-96 189.65,-96 199.19,-96"/>
+<polygon fill="#000000" stroke="#000000" points="199.3,-99.5 209.3,-96 199.3,-92.5 199.3,-99.5"/>
 </g>
 <!-- proc~util_exit -->
 <g id="proc~~io_get_args~~CallsGraph_node6" class="node">
@@ -375,20 +375,20 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M165.51,-54C177.2,-54 191.2,-54 203.92,-54"/>
 <polygon fill="#000000" stroke="#000000" points="204.23,-57.5 214.23,-54 204.23,-50.5 204.23,-57.5"/>
 </g>
-<!-- proc~io_toupper -->
-<g id="proc~~io_get_args~~CallsGraph_node5" class="node">
-<title>proc~io_toupper</title>
-<g id="a_proc~~io_get_args~~CallsGraph_node5"><a xlink:href=".././proc/io_toupper.html" xlink:title="io_toupper">
-<polygon fill="#d9534f" stroke="#d9534f" points="273.5,-24 209.5,-24 209.5,0 273.5,0 273.5,-24"/>
-<text text-anchor="middle" x="241.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
+<!-- proc~util_version -->
+<g id="proc~~io_get_args~~CallsGraph_node7" class="node">
+<title>proc~util_version</title>
+<g id="a_proc~~io_get_args~~CallsGraph_node7"><a xlink:href=".././proc/util_version.html" xlink:title="util_version">
+<polygon fill="#d9534f" stroke="#d9534f" points="275,-24 208,-24 208,0 275,0 275,-24"/>
+<text text-anchor="middle" x="241.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version</text>
 </a>
 </g>
 </g>
-<!-- interface~io_toupper&#45;&gt;proc~io_toupper -->
+<!-- interface~util_version&#45;&gt;proc~util_version -->
 <g id="proc~~io_get_args~~CallsGraph_edge6" class="edge">
-<title>interface~io_toupper&#45;&gt;proc~io_toupper</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.63,-12C179.65,-12 189.65,-12 199.19,-12"/>
-<polygon fill="#000000" stroke="#000000" points="199.3,-15.5 209.3,-12 199.3,-8.5 199.3,-15.5"/>
+<title>interface~util_version&#45;&gt;proc~util_version</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M172.01,-12C180.13,-12 188.96,-12 197.5,-12"/>
+<polygon fill="#000000" stroke="#000000" points="197.7,-15.5 207.7,-12 197.7,-8.5 197.7,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/io_get_token.html b/docs/proc/io_get_token.html
index 9ce2d5523..a58a0f605 100644
--- a/docs/proc/io_get_token.html
+++ b/docs/proc/io_get_token.html
@@ -285,7 +285,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ierr~11"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ierr~10"></span>integer(kind=I4B),</td>
   <td>intent(out)</td>
   <td></td>
   
diff --git a/docs/proc/io_param_reader.html b/docs/proc/io_param_reader.html
index 588e28369..9620798b7 100644
--- a/docs/proc/io_param_reader.html
+++ b/docs/proc/io_param_reader.html
@@ -136,7 +136,7 @@ <h1>io_param_reader
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.7% of total for procedures.">298 statements</a>
+    title=" 0.7% of total for procedures.">301 statements</a>
      </li> 
      
      
@@ -358,65 +358,65 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="95,-45 0,-45 0,-21 95,-21 95,-45"/>
 <text text-anchor="middle" x="47.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">io_param_reader</text>
 </g>
-<!-- interface~io_get_token -->
-<g id="proc~~io_param_reader~~CallsGraph_node2" class="node">
-<title>interface~io_get_token</title>
-<g id="a_proc~~io_param_reader~~CallsGraph_node2"><a xlink:href=".././interface/io_get_token.html" xlink:title="io_get_token">
-<polygon fill="#a7506f" stroke="#a7506f" points="205,-66 131,-66 131,-42 205,-42 205,-66"/>
-<text text-anchor="middle" x="168" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
-</a>
-</g>
-</g>
-<!-- proc~io_param_reader&#45;&gt;interface~io_get_token -->
-<g id="proc~~io_param_reader~~CallsGraph_edge1" class="edge">
-<title>proc~io_param_reader&#45;&gt;interface~io_get_token</title>
-<path fill="none" stroke="#000000" d="M95.33,-41.3C103.7,-42.78 112.42,-44.33 120.78,-45.81"/>
-<polygon fill="#000000" stroke="#000000" points="120.28,-49.27 130.74,-47.57 121.5,-42.38 120.28,-49.27"/>
-</g>
 <!-- interface~io_toupper -->
-<g id="proc~~io_param_reader~~CallsGraph_node3" class="node">
+<g id="proc~~io_param_reader~~CallsGraph_node2" class="node">
 <title>interface~io_toupper</title>
-<g id="a_proc~~io_param_reader~~CallsGraph_node3"><a xlink:href=".././interface/io_toupper.html" xlink:title="io_toupper">
-<polygon fill="#a7506f" stroke="#a7506f" points="200,-24 136,-24 136,0 200,0 200,-24"/>
-<text text-anchor="middle" x="168" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
+<g id="a_proc~~io_param_reader~~CallsGraph_node2"><a xlink:href=".././interface/io_toupper.html" xlink:title="io_toupper">
+<polygon fill="#a7506f" stroke="#a7506f" points="200,-66 136,-66 136,-42 200,-42 200,-66"/>
+<text text-anchor="middle" x="168" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
 </a>
 </g>
 </g>
 <!-- proc~io_param_reader&#45;&gt;interface~io_toupper -->
-<g id="proc~~io_param_reader~~CallsGraph_edge2" class="edge">
+<g id="proc~~io_param_reader~~CallsGraph_edge1" class="edge">
 <title>proc~io_param_reader&#45;&gt;interface~io_toupper</title>
-<path fill="none" stroke="#000000" d="M95.33,-24.7C105.42,-22.91 116,-21.04 125.85,-19.29"/>
-<polygon fill="#000000" stroke="#000000" points="126.56,-22.72 135.79,-17.53 125.34,-15.83 126.56,-22.72"/>
+<path fill="none" stroke="#000000" d="M95.33,-41.3C105.42,-43.09 116,-44.96 125.85,-46.71"/>
+<polygon fill="#000000" stroke="#000000" points="125.34,-50.17 135.79,-48.47 126.56,-43.28 125.34,-50.17"/>
 </g>
-<!-- proc~io_get_token -->
-<g id="proc~~io_param_reader~~CallsGraph_node5" class="node">
-<title>proc~io_get_token</title>
-<g id="a_proc~~io_param_reader~~CallsGraph_node5"><a xlink:href=".././proc/io_get_token.html" xlink:title="io_get_token">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="315,-66 241,-66 241,-42 315,-42 315,-66"/>
-<text text-anchor="middle" x="278" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
+<!-- interface~io_get_token -->
+<g id="proc~~io_param_reader~~CallsGraph_node3" class="node">
+<title>interface~io_get_token</title>
+<g id="a_proc~~io_param_reader~~CallsGraph_node3"><a xlink:href=".././interface/io_get_token.html" xlink:title="io_get_token">
+<polygon fill="#a7506f" stroke="#a7506f" points="205,-24 131,-24 131,0 205,0 205,-24"/>
+<text text-anchor="middle" x="168" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
 </a>
 </g>
 </g>
-<!-- interface~io_get_token&#45;&gt;proc~io_get_token -->
-<g id="proc~~io_param_reader~~CallsGraph_edge3" class="edge">
-<title>interface~io_get_token&#45;&gt;proc~io_get_token</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M205.26,-54C213.37,-54 222.07,-54 230.52,-54"/>
-<polygon fill="#000000" stroke="#000000" points="230.65,-57.5 240.65,-54 230.65,-50.5 230.65,-57.5"/>
+<!-- proc~io_param_reader&#45;&gt;interface~io_get_token -->
+<g id="proc~~io_param_reader~~CallsGraph_edge2" class="edge">
+<title>proc~io_param_reader&#45;&gt;interface~io_get_token</title>
+<path fill="none" stroke="#000000" d="M95.33,-24.7C103.7,-23.22 112.42,-21.67 120.78,-20.19"/>
+<polygon fill="#000000" stroke="#000000" points="121.5,-23.62 130.74,-18.43 120.28,-16.73 121.5,-23.62"/>
 </g>
 <!-- proc~io_toupper -->
 <g id="proc~~io_param_reader~~CallsGraph_node4" class="node">
 <title>proc~io_toupper</title>
 <g id="a_proc~~io_param_reader~~CallsGraph_node4"><a xlink:href=".././proc/io_toupper.html" xlink:title="io_toupper">
-<polygon fill="#d9534f" stroke="#d9534f" points="310,-24 246,-24 246,0 310,0 310,-24"/>
-<text text-anchor="middle" x="278" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="310,-66 246,-66 246,-42 310,-42 310,-66"/>
+<text text-anchor="middle" x="278" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_toupper</text>
 </a>
 </g>
 </g>
 <!-- interface~io_toupper&#45;&gt;proc~io_toupper -->
-<g id="proc~~io_param_reader~~CallsGraph_edge4" class="edge">
+<g id="proc~~io_param_reader~~CallsGraph_edge3" class="edge">
 <title>interface~io_toupper&#45;&gt;proc~io_toupper</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200.24,-12C211.32,-12 223.97,-12 235.76,-12"/>
-<polygon fill="#000000" stroke="#000000" points="235.83,-15.5 245.83,-12 235.83,-8.5 235.83,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200.24,-54C211.32,-54 223.97,-54 235.76,-54"/>
+<polygon fill="#000000" stroke="#000000" points="235.83,-57.5 245.83,-54 235.83,-50.5 235.83,-57.5"/>
+</g>
+<!-- proc~io_get_token -->
+<g id="proc~~io_param_reader~~CallsGraph_node5" class="node">
+<title>proc~io_get_token</title>
+<g id="a_proc~~io_param_reader~~CallsGraph_node5"><a xlink:href=".././proc/io_get_token.html" xlink:title="io_get_token">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="315,-24 241,-24 241,0 315,0 315,-24"/>
+<text text-anchor="middle" x="278" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_token</text>
+</a>
+</g>
+</g>
+<!-- interface~io_get_token&#45;&gt;proc~io_get_token -->
+<g id="proc~~io_param_reader~~CallsGraph_edge4" class="edge">
+<title>interface~io_get_token&#45;&gt;proc~io_get_token</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M205.26,-12C213.37,-12 222.07,-12 230.52,-12"/>
+<polygon fill="#000000" stroke="#000000" points="230.65,-15.5 240.65,-12 230.65,-8.5 230.65,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/io_read_body_in.html b/docs/proc/io_read_body_in.html
index 5287e9220..ee56aa742 100644
--- a/docs/proc/io_read_body_in.html
+++ b/docs/proc/io_read_body_in.html
@@ -136,7 +136,7 @@ <h1>io_read_body_in
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.2% of total for procedures.">75 statements</a>
+    title=" 0.2% of total for procedures.">78 statements</a>
      </li> 
      
      
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~160"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~164"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/io_read_cb_in.html b/docs/proc/io_read_cb_in.html
index 7d8a364a3..184ae2aa0 100644
--- a/docs/proc/io_read_cb_in.html
+++ b/docs/proc/io_read_cb_in.html
@@ -136,7 +136,7 @@ <h1>io_read_cb_in
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">32 statements</a>
+    title=" 0.1% of total for procedures.">37 statements</a>
      </li> 
      
      
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~161"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~165"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/io_read_frame_body.html b/docs/proc/io_read_frame_body.html
index 5228d455e..1dd99774b 100644
--- a/docs/proc/io_read_frame_body.html
+++ b/docs/proc/io_read_frame_body.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~13"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~11"></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~162"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~166"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-form~6"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-form~5"></span>character(len=*),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ierr~12"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ierr~11"></span>integer(kind=I4B),</td>
   <td>intent(out)</td>
   <td></td>
   
diff --git a/docs/proc/io_read_frame_cb.html b/docs/proc/io_read_frame_cb.html
index c5b7745ba..a8522404b 100644
--- a/docs/proc/io_read_frame_cb.html
+++ b/docs/proc/io_read_frame_cb.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~14"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~12"></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~163"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~167"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -283,7 +283,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-form~7"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-form~6"></span>character(len=*),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -298,7 +298,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ierr~13"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ierr~12"></span>integer(kind=I4B),</td>
   <td>intent(out)</td>
   <td></td>
   
diff --git a/docs/proc/io_read_frame_system.html b/docs/proc/io_read_frame_system.html
index f20348bdf..105286247 100644
--- a/docs/proc/io_read_frame_system.html
+++ b/docs/proc/io_read_frame_system.html
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~15"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~13"></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~164"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~168"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -281,7 +281,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-form~8"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-form~7"></span>character(len=*),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -296,7 +296,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ierr~14"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-ierr~13"></span>integer(kind=I4B),</td>
   <td>intent(out)</td>
   <td></td>
   
diff --git a/docs/proc/io_toupper.html b/docs/proc/io_toupper.html
index bba3e5e93..da4c23bee 100644
--- a/docs/proc/io_toupper.html
+++ b/docs/proc/io_toupper.html
@@ -323,25 +323,10 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" d="M226.32,-20.66C234.83,-22.24 243.65,-23.87 251.97,-25.41"/>
 <polygon fill="#000000" stroke="#000000" points="251.36,-28.86 261.83,-27.23 252.63,-21.97 251.36,-28.86"/>
 </g>
-<!-- interface~io_get_args -->
-<g id="proc~~io_toupper~~CalledByGraph_node5" class="node">
-<title>interface~io_get_args</title>
-<g id="a_proc~~io_toupper~~CalledByGraph_node5"><a xlink:href=".././interface/io_get_args.html" xlink:title="io_get_args">
-<polygon fill="#a7506f" stroke="#a7506f" points="82,-66 13,-66 13,-42 82,-42 82,-66"/>
-<text text-anchor="middle" x="47.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
-</a>
-</g>
-</g>
-<!-- interface~io_get_args&#45;&gt;proc~io_get_args -->
-<g id="proc~~io_toupper~~CalledByGraph_edge4" class="edge">
-<title>interface~io_get_args&#45;&gt;proc~io_get_args</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M82.06,-54C97.76,-54 116.67,-54 133.5,-54"/>
-<polygon fill="#000000" stroke="#000000" points="133.66,-57.5 143.66,-54 133.66,-50.5 133.66,-57.5"/>
-</g>
 <!-- interface~io_param_reader -->
-<g id="proc~~io_toupper~~CalledByGraph_node6" class="node">
+<g id="proc~~io_toupper~~CalledByGraph_node5" class="node">
 <title>interface~io_param_reader</title>
-<g id="a_proc~~io_toupper~~CalledByGraph_node6"><a xlink:href=".././interface/io_param_reader.html" xlink:title="io_param_reader">
+<g id="a_proc~~io_toupper~~CalledByGraph_node5"><a xlink:href=".././interface/io_param_reader.html" xlink:title="io_param_reader">
 <polygon fill="#a7506f" stroke="#a7506f" points="95,-24 0,-24 0,0 95,0 95,-24"/>
 <text text-anchor="middle" x="47.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_param_reader</text>
 </a>
@@ -353,6 +338,21 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M95.07,-12C103.48,-12 112.32,-12 120.97,-12"/>
 <polygon fill="#000000" stroke="#000000" points="121,-15.5 131,-12 121,-8.5 121,-15.5"/>
 </g>
+<!-- interface~io_get_args -->
+<g id="proc~~io_toupper~~CalledByGraph_node6" class="node">
+<title>interface~io_get_args</title>
+<g id="a_proc~~io_toupper~~CalledByGraph_node6"><a xlink:href=".././interface/io_get_args.html" xlink:title="io_get_args">
+<polygon fill="#a7506f" stroke="#a7506f" points="82,-66 13,-66 13,-42 82,-42 82,-66"/>
+<text text-anchor="middle" x="47.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
+</a>
+</g>
+</g>
+<!-- interface~io_get_args&#45;&gt;proc~io_get_args -->
+<g id="proc~~io_toupper~~CalledByGraph_edge4" class="edge">
+<title>interface~io_get_args&#45;&gt;proc~io_get_args</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M82.06,-54C97.76,-54 116.67,-54 133.5,-54"/>
+<polygon fill="#000000" stroke="#000000" points="133.66,-57.5 143.66,-54 133.66,-50.5 133.66,-57.5"/>
+</g>
 </g>
 </svg>
 </div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
diff --git a/docs/proc/io_write_discard.html b/docs/proc/io_write_discard.html
index a303dc624..4e0c4c9b7 100644
--- a/docs/proc/io_write_discard.html
+++ b/docs/proc/io_write_discard.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~165"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~169"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/io_write_frame_body.html b/docs/proc/io_write_frame_body.html
index 0d971d6d3..0c4ffad43 100644
--- a/docs/proc/io_write_frame_body.html
+++ b/docs/proc/io_write_frame_body.html
@@ -254,7 +254,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~16"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~14"></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -269,7 +269,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~166"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~170"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/io_write_frame_cb.html b/docs/proc/io_write_frame_cb.html
index ce87608c2..74c20b352 100644
--- a/docs/proc/io_write_frame_cb.html
+++ b/docs/proc/io_write_frame_cb.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~17"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~15"></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~167"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~171"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/io_write_frame_system.html b/docs/proc/io_write_frame_system.html
index 3cdabca6c..7f978a8c2 100644
--- a/docs/proc/io_write_frame_system.html
+++ b/docs/proc/io_write_frame_system.html
@@ -254,7 +254,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~18"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-iu~16"></span>integer(kind=I4B),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -269,7 +269,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~168"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~172"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/kick_getacch_int_pl.html b/docs/proc/kick_getacch_int_pl.html
index 6866c3bf0..8bb4e8e68 100644
--- a/docs/proc/kick_getacch_int_pl.html
+++ b/docs/proc/kick_getacch_int_pl.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~200"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~198"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/kick_getacch_int_tp.html b/docs/proc/kick_getacch_int_tp.html
index 46e5919c8..5a7439638 100644
--- a/docs/proc/kick_getacch_int_tp.html
+++ b/docs/proc/kick_getacch_int_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~201"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~199"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/lambda_destroy.html b/docs/proc/lambda_destroy.html
index a688b79c7..85334ebd5 100644
--- a/docs/proc/lambda_destroy.html
+++ b/docs/proc/lambda_destroy.html
@@ -230,7 +230,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~199"></span>type(<a href='../type/lambda_obj.html'>lambda_obj</a>)</td>
+  <td><span class="anchor" id="variable-self~197"></span>type(<a href='../type/lambda_obj.html'>lambda_obj</a>)</td>
   <td></td>
   <td></td>
   
diff --git a/docs/proc/lambda_eval_0.html b/docs/proc/lambda_eval_0.html
index c58ea1440..3c2127801 100644
--- a/docs/proc/lambda_eval_0.html
+++ b/docs/proc/lambda_eval_0.html
@@ -230,7 +230,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~196"></span>class(<a href='../type/lambda_obj.html'>lambda_obj</a>),</td>
+  <td><span class="anchor" id="variable-self~194"></span>class(<a href='../type/lambda_obj.html'>lambda_obj</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/lambda_eval_0_err.html b/docs/proc/lambda_eval_0_err.html
index 8c76b8fdd..b1eab143e 100644
--- a/docs/proc/lambda_eval_0_err.html
+++ b/docs/proc/lambda_eval_0_err.html
@@ -230,7 +230,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~197"></span>class(<a href='../type/lambda_obj_err.html'>lambda_obj_err</a>),</td>
+  <td><span class="anchor" id="variable-self~195"></span>class(<a href='../type/lambda_obj_err.html'>lambda_obj_err</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/lambda_eval_tvar.html b/docs/proc/lambda_eval_tvar.html
index 67b079ca3..8532ece39 100644
--- a/docs/proc/lambda_eval_tvar.html
+++ b/docs/proc/lambda_eval_tvar.html
@@ -230,7 +230,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~198"></span>class(<a href='../type/lambda_obj_tvar.html'>lambda_obj_tvar</a>),</td>
+  <td><span class="anchor" id="variable-self~196"></span>class(<a href='../type/lambda_obj_tvar.html'>lambda_obj_tvar</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/obl_acc_body.html b/docs/proc/obl_acc_body.html
index bdf5706ba..4183f39bd 100644
--- a/docs/proc/obl_acc_body.html
+++ b/docs/proc/obl_acc_body.html
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~204"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~202"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -254,7 +254,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~66"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~70"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -310,63 +310,63 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.07,-33C287.25,-33 296,-33 304.51,-33"/>
 <polygon fill="#000000" stroke="#000000" points="304.72,-36.5 314.72,-33 304.72,-29.5 304.72,-36.5"/>
 </g>
-<!-- proc~obl_acc_tp -->
+<!-- proc~obl_acc_pl -->
 <g id="proc~~obl_acc_body~~CalledByGraph_node3" class="node">
-<title>proc~obl_acc_tp</title>
-<g id="a_proc~~obl_acc_body~~CalledByGraph_node3"><a xlink:href=".././proc/obl_acc_tp.html" xlink:title="obl_acc_tp">
+<title>proc~obl_acc_pl</title>
+<g id="a_proc~~obl_acc_body~~CalledByGraph_node3"><a xlink:href=".././proc/obl_acc_pl.html" xlink:title="obl_acc_pl">
 <polygon fill="#d9534f" stroke="#d9534f" points="164,-66 100,-66 100,-42 164,-42 164,-66"/>
-<text text-anchor="middle" x="132" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_tp</text>
+<text text-anchor="middle" x="132" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~obl_acc_tp&#45;&gt;interface~obl_acc_body -->
+<!-- proc~obl_acc_pl&#45;&gt;interface~obl_acc_body -->
 <g id="proc~~obl_acc_body~~CalledByGraph_edge2" class="edge">
-<title>proc~obl_acc_tp&#45;&gt;interface~obl_acc_body</title>
+<title>proc~obl_acc_pl&#45;&gt;interface~obl_acc_body</title>
 <path fill="none" stroke="#000000" d="M164.08,-47.81C172.21,-46.2 181.16,-44.41 189.96,-42.66"/>
 <polygon fill="#000000" stroke="#000000" points="190.65,-46.09 199.78,-40.71 189.29,-39.23 190.65,-46.09"/>
 </g>
-<!-- proc~obl_acc_pl -->
+<!-- proc~obl_acc_tp -->
 <g id="proc~~obl_acc_body~~CalledByGraph_node4" class="node">
-<title>proc~obl_acc_pl</title>
-<g id="a_proc~~obl_acc_body~~CalledByGraph_node4"><a xlink:href=".././proc/obl_acc_pl.html" xlink:title="obl_acc_pl">
+<title>proc~obl_acc_tp</title>
+<g id="a_proc~~obl_acc_body~~CalledByGraph_node4"><a xlink:href=".././proc/obl_acc_tp.html" xlink:title="obl_acc_tp">
 <polygon fill="#d9534f" stroke="#d9534f" points="164,-24 100,-24 100,0 164,0 164,-24"/>
-<text text-anchor="middle" x="132" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_pl</text>
+<text text-anchor="middle" x="132" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~obl_acc_pl&#45;&gt;interface~obl_acc_body -->
+<!-- proc~obl_acc_tp&#45;&gt;interface~obl_acc_body -->
 <g id="proc~~obl_acc_body~~CalledByGraph_edge3" class="edge">
-<title>proc~obl_acc_pl&#45;&gt;interface~obl_acc_body</title>
+<title>proc~obl_acc_tp&#45;&gt;interface~obl_acc_body</title>
 <path fill="none" stroke="#000000" d="M164.08,-18.19C172.21,-19.8 181.16,-21.59 189.96,-23.34"/>
 <polygon fill="#000000" stroke="#000000" points="189.29,-26.77 199.78,-25.29 190.65,-19.91 189.29,-26.77"/>
 </g>
-<!-- interface~obl_acc_pl -->
+<!-- interface~obl_acc_tp -->
 <g id="proc~~obl_acc_body~~CalledByGraph_node5" class="node">
-<title>interface~obl_acc_pl</title>
-<g id="a_proc~~obl_acc_body~~CalledByGraph_node5"><a xlink:href=".././interface/obl_acc_pl.html" xlink:title="obl_acc_pl">
+<title>interface~obl_acc_tp</title>
+<g id="a_proc~~obl_acc_body~~CalledByGraph_node5"><a xlink:href=".././interface/obl_acc_tp.html" xlink:title="obl_acc_tp">
 <polygon fill="#a7506f" stroke="#a7506f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
-<text text-anchor="middle" x="32" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_pl</text>
+<text text-anchor="middle" x="32" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~obl_acc_pl&#45;&gt;proc~obl_acc_pl -->
+<!-- interface~obl_acc_tp&#45;&gt;proc~obl_acc_tp -->
 <g id="proc~~obl_acc_body~~CalledByGraph_edge5" class="edge">
-<title>interface~obl_acc_pl&#45;&gt;proc~obl_acc_pl</title>
+<title>interface~obl_acc_tp&#45;&gt;proc~obl_acc_tp</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M64.01,-12C72.14,-12 81.04,-12 89.62,-12"/>
 <polygon fill="#000000" stroke="#000000" points="89.86,-15.5 99.86,-12 89.86,-8.5 89.86,-15.5"/>
 </g>
-<!-- interface~obl_acc_tp -->
+<!-- interface~obl_acc_pl -->
 <g id="proc~~obl_acc_body~~CalledByGraph_node6" class="node">
-<title>interface~obl_acc_tp</title>
-<g id="a_proc~~obl_acc_body~~CalledByGraph_node6"><a xlink:href=".././interface/obl_acc_tp.html" xlink:title="obl_acc_tp">
+<title>interface~obl_acc_pl</title>
+<g id="a_proc~~obl_acc_body~~CalledByGraph_node6"><a xlink:href=".././interface/obl_acc_pl.html" xlink:title="obl_acc_pl">
 <polygon fill="#a7506f" stroke="#a7506f" points="64,-66 0,-66 0,-42 64,-42 64,-66"/>
-<text text-anchor="middle" x="32" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_tp</text>
+<text text-anchor="middle" x="32" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_acc_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~obl_acc_tp&#45;&gt;proc~obl_acc_tp -->
+<!-- interface~obl_acc_pl&#45;&gt;proc~obl_acc_pl -->
 <g id="proc~~obl_acc_body~~CalledByGraph_edge4" class="edge">
-<title>interface~obl_acc_tp&#45;&gt;proc~obl_acc_tp</title>
+<title>interface~obl_acc_pl&#45;&gt;proc~obl_acc_pl</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M64.01,-54C72.14,-54 81.04,-54 89.62,-54"/>
 <polygon fill="#000000" stroke="#000000" points="89.86,-57.5 99.86,-54 89.86,-50.5 89.86,-57.5"/>
 </g>
diff --git a/docs/proc/obl_acc_pl.html b/docs/proc/obl_acc_pl.html
index 19a859f10..a4115167a 100644
--- a/docs/proc/obl_acc_pl.html
+++ b/docs/proc/obl_acc_pl.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~205"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~203"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~67"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~71"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/obl_acc_tp.html b/docs/proc/obl_acc_tp.html
index b745cb17f..04d11ea76 100644
--- a/docs/proc/obl_acc_tp.html
+++ b/docs/proc/obl_acc_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~206"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~204"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~68"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~72"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/orbel_ehybrid.html b/docs/proc/orbel_ehybrid.html
index 975faba33..0541fde42 100644
--- a/docs/proc/orbel_ehybrid.html
+++ b/docs/proc/orbel_ehybrid.html
@@ -294,50 +294,50 @@ <h3 class="panel-title">Calls</h3>
 <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">orbel_ehybrid</text>
 </g>
-<!-- proc~orbel_ehie -->
-<g id="proc~~orbel_ehybrid~~CallsGraph_node2" class="node">
-<title>proc~orbel_ehie</title>
-<g id="a_proc~~orbel_ehybrid~~CallsGraph_node2"><a xlink:href=".././proc/orbel_ehie.html" xlink:title="orbel_ehie">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="184,-108 121,-108 121,-84 184,-84 184,-108"/>
-<text text-anchor="middle" x="152.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehie</text>
-</a>
-</g>
-</g>
-<!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie -->
-<g id="proc~~orbel_ehybrid~~CallsGraph_edge1" class="edge">
-<title>proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie</title>
-<path fill="none" stroke="#000000" d="M71.95,-66.04C84.16,-70.63 98.23,-75.94 111.12,-80.79"/>
-<polygon fill="#000000" stroke="#000000" points="110.1,-84.15 120.7,-84.4 112.57,-77.6 110.1,-84.15"/>
-</g>
 <!-- proc~orbel_esolmd -->
-<g id="proc~~orbel_ehybrid~~CallsGraph_node3" class="node">
+<g id="proc~~orbel_ehybrid~~CallsGraph_node2" class="node">
 <title>proc~orbel_esolmd</title>
-<g id="a_proc~~orbel_ehybrid~~CallsGraph_node3"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="191,-66 114,-66 114,-42 191,-42 191,-66"/>
-<text text-anchor="middle" x="152.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_esolmd</text>
+<g id="a_proc~~orbel_ehybrid~~CallsGraph_node2"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="191,-108 114,-108 114,-84 191,-84 191,-108"/>
+<text text-anchor="middle" x="152.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_esolmd</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd -->
-<g id="proc~~orbel_ehybrid~~CallsGraph_edge2" class="edge">
+<g id="proc~~orbel_ehybrid~~CallsGraph_edge1" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd</title>
-<path fill="none" stroke="#000000" d="M78.06,-54C86.31,-54 95.14,-54 103.72,-54"/>
-<polygon fill="#000000" stroke="#000000" points="103.99,-57.5 113.99,-54 103.99,-50.5 103.99,-57.5"/>
+<path fill="none" stroke="#000000" d="M71.95,-66.04C83.85,-70.52 97.53,-75.67 110.15,-80.42"/>
+<polygon fill="#000000" stroke="#000000" points="108.95,-83.71 119.54,-83.96 111.42,-77.16 108.95,-83.71"/>
 </g>
 <!-- proc~orbel_eget -->
-<g id="proc~~orbel_ehybrid~~CallsGraph_node4" class="node">
+<g id="proc~~orbel_ehybrid~~CallsGraph_node3" class="node">
 <title>proc~orbel_eget</title>
-<g id="a_proc~~orbel_ehybrid~~CallsGraph_node4"><a xlink:href=".././proc/orbel_eget.html" xlink:title="orbel_eget">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="184.5,-24 120.5,-24 120.5,0 184.5,0 184.5,-24"/>
-<text text-anchor="middle" x="152.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_eget</text>
+<g id="a_proc~~orbel_ehybrid~~CallsGraph_node3"><a xlink:href=".././proc/orbel_eget.html" xlink:title="orbel_eget">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="184.5,-66 120.5,-66 120.5,-42 184.5,-42 184.5,-66"/>
+<text text-anchor="middle" x="152.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_eget</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_eget -->
 <g id="proc~~orbel_ehybrid~~CallsGraph_edge3" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_eget</title>
-<path fill="none" stroke="#000000" d="M71.95,-41.96C84.05,-37.41 98,-32.15 110.8,-27.33"/>
-<polygon fill="#000000" stroke="#000000" points="112.19,-30.55 120.31,-23.75 109.72,-24 112.19,-30.55"/>
+<path fill="none" stroke="#000000" d="M78.06,-54C88.37,-54 99.59,-54 110.08,-54"/>
+<polygon fill="#000000" stroke="#000000" points="110.27,-57.5 120.27,-54 110.27,-50.5 110.27,-57.5"/>
+</g>
+<!-- proc~orbel_ehie -->
+<g id="proc~~orbel_ehybrid~~CallsGraph_node4" class="node">
+<title>proc~orbel_ehie</title>
+<g id="a_proc~~orbel_ehybrid~~CallsGraph_node4"><a xlink:href=".././proc/orbel_ehie.html" xlink:title="orbel_ehie">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="184,-24 121,-24 121,0 184,0 184,-24"/>
+<text text-anchor="middle" x="152.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehie</text>
+</a>
+</g>
+</g>
+<!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie -->
+<g id="proc~~orbel_ehybrid~~CallsGraph_edge2" class="edge">
+<title>proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie</title>
+<path fill="none" stroke="#000000" d="M71.95,-41.96C84.16,-37.37 98.23,-32.06 111.12,-27.21"/>
+<polygon fill="#000000" stroke="#000000" points="112.57,-30.4 120.7,-23.6 110.1,-23.85 112.57,-30.4"/>
 </g>
 <!-- interface~orbel_scget -->
 <g id="proc~~orbel_ehybrid~~CallsGraph_node5" class="node">
@@ -348,21 +348,21 @@ <h3 class="panel-title">Calls</h3>
 </a>
 </g>
 </g>
-<!-- proc~orbel_ehie&#45;&gt;interface~orbel_scget -->
+<!-- proc~orbel_esolmd&#45;&gt;interface~orbel_scget -->
 <g id="proc~~orbel_ehybrid~~CallsGraph_edge4" class="edge">
-<title>proc~orbel_ehie&#45;&gt;interface~orbel_scget</title>
+<title>proc~orbel_esolmd&#45;&gt;interface~orbel_scget</title>
 <path fill="none" stroke="#000000" d="M184.02,-83.96C195.27,-79.53 208.19,-74.43 220.15,-69.72"/>
 <polygon fill="#000000" stroke="#000000" points="221.46,-72.96 229.48,-66.04 218.89,-66.45 221.46,-72.96"/>
 </g>
-<!-- proc~orbel_esolmd&#45;&gt;interface~orbel_scget -->
+<!-- proc~orbel_eget&#45;&gt;interface~orbel_scget -->
 <g id="proc~~orbel_ehybrid~~CallsGraph_edge5" class="edge">
-<title>proc~orbel_esolmd&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M191.05,-54C199.31,-54 208.12,-54 216.59,-54"/>
-<polygon fill="#000000" stroke="#000000" points="216.69,-57.5 226.69,-54 216.69,-50.5 216.69,-57.5"/>
+<title>proc~orbel_eget&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M184.59,-54C194.64,-54 205.97,-54 216.74,-54"/>
+<polygon fill="#000000" stroke="#000000" points="216.83,-57.5 226.83,-54 216.83,-50.5 216.83,-57.5"/>
 </g>
-<!-- proc~orbel_eget&#45;&gt;interface~orbel_scget -->
+<!-- proc~orbel_ehie&#45;&gt;interface~orbel_scget -->
 <g id="proc~~orbel_ehybrid~~CallsGraph_edge6" class="edge">
-<title>proc~orbel_eget&#45;&gt;interface~orbel_scget</title>
+<title>proc~orbel_ehie&#45;&gt;interface~orbel_scget</title>
 <path fill="none" stroke="#000000" d="M184.02,-24.04C195.27,-28.47 208.19,-33.57 220.15,-38.28"/>
 <polygon fill="#000000" stroke="#000000" points="218.89,-41.55 229.48,-41.96 221.46,-35.04 218.89,-41.55"/>
 </g>
diff --git a/docs/proc/orbel_el2xv.html b/docs/proc/orbel_el2xv.html
index 8613cde3a..12b22b1a6 100644
--- a/docs/proc/orbel_el2xv.html
+++ b/docs/proc/orbel_el2xv.html
@@ -403,83 +403,83 @@ <h3 class="panel-title">Calls</h3>
 <!-- proc~orbel_el2xv -->
 <g id="proc~~orbel_el2xv~~CallsGraph_node1" class="node">
 <title>proc~orbel_el2xv</title>
-<polygon fill="none" stroke="black" points="67,-186 0,-186 0,-162 67,-162 67,-186"/>
-<text text-anchor="middle" x="33.5" y="-171.6" font-family="Helvetica,sans-Serif" font-size="10.50">orbel_el2xv</text>
+<polygon fill="none" stroke="black" points="67,-148 0,-148 0,-124 67,-124 67,-148"/>
+<text text-anchor="middle" x="33.5" y="-133.6" font-family="Helvetica,sans-Serif" font-size="10.50">orbel_el2xv</text>
 </g>
 <!-- proc~orbel_fhybrid -->
 <g id="proc~~orbel_el2xv~~CallsGraph_node2" class="node">
 <title>proc~orbel_fhybrid</title>
 <g id="a_proc~~orbel_el2xv~~CallsGraph_node2"><a xlink:href=".././proc/orbel_fhybrid.html" xlink:title="orbel_fhybrid">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="179.5,-268 104.5,-268 104.5,-244 179.5,-244 179.5,-268"/>
-<text text-anchor="middle" x="142" y="-253.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fhybrid</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="179.5,-226 104.5,-226 104.5,-202 179.5,-202 179.5,-226"/>
+<text text-anchor="middle" x="142" y="-211.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fhybrid</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid -->
 <g id="proc~~orbel_el2xv~~CallsGraph_edge1" class="edge">
 <title>proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid</title>
-<path fill="none" stroke="#000000" d="M46.42,-186.12C59.57,-199.12 81.69,-219.91 103,-235 104.8,-236.27 106.68,-237.53 108.61,-238.76"/>
-<polygon fill="#000000" stroke="#000000" points="106.82,-241.76 117.19,-243.91 110.42,-235.76 106.82,-241.76"/>
+<path fill="none" stroke="#000000" d="M50.12,-148.2C63.89,-158.88 84.59,-174.73 103,-188 106.67,-190.65 110.58,-193.4 114.44,-196.07"/>
+<polygon fill="#000000" stroke="#000000" points="112.48,-198.97 122.7,-201.75 116.44,-193.2 112.48,-198.97"/>
 </g>
-<!-- proc~orbel_zget -->
+<!-- proc~orbel_ehybrid -->
 <g id="proc~~orbel_el2xv~~CallsGraph_node3" class="node">
-<title>proc~orbel_zget</title>
-<g id="a_proc~~orbel_el2xv~~CallsGraph_node3"><a xlink:href=".././proc/orbel_zget.html" xlink:title="orbel_zget">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="173.5,-226 110.5,-226 110.5,-202 173.5,-202 173.5,-226"/>
-<text text-anchor="middle" x="142" y="-211.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_zget</text>
+<title>proc~orbel_ehybrid</title>
+<g id="a_proc~~orbel_el2xv~~CallsGraph_node3"><a xlink:href=".././proc/orbel_ehybrid.html" xlink:title="orbel_ehybrid">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="181,-66 103,-66 103,-42 181,-42 181,-66"/>
+<text text-anchor="middle" x="142" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehybrid</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_zget -->
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid -->
 <g id="proc~~orbel_el2xv~~CallsGraph_edge2" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;proc~orbel_zget</title>
-<path fill="none" stroke="#000000" d="M66.45,-186C77.16,-190.02 89.25,-194.56 100.52,-198.8"/>
-<polygon fill="#000000" stroke="#000000" points="99.57,-202.18 110.17,-202.42 102.04,-195.63 99.57,-202.18"/>
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid</title>
+<path fill="none" stroke="#000000" d="M46.42,-123.88C59.57,-110.88 81.69,-90.09 103,-75 104.8,-73.73 106.68,-72.47 108.61,-71.24"/>
+<polygon fill="#000000" stroke="#000000" points="110.42,-74.24 117.19,-66.09 106.82,-68.24 110.42,-74.24"/>
 </g>
-<!-- proc~orbel_schget -->
+<!-- interface~orbel_scget -->
 <g id="proc~~orbel_el2xv~~CallsGraph_node4" class="node">
-<title>proc~orbel_schget</title>
-<g id="a_proc~~orbel_el2xv~~CallsGraph_node4"><a xlink:href=".././proc/orbel_schget.html" xlink:title="orbel_schget">
-<polygon fill="#d9534f" stroke="#d9534f" points="404,-206 330,-206 330,-182 404,-182 404,-206"/>
-<text text-anchor="middle" x="367" y="-191.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_schget</text>
+<title>interface~orbel_scget</title>
+<g id="a_proc~~orbel_el2xv~~CallsGraph_node4"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
+<polygon fill="#a7506f" stroke="#a7506f" points="401,-87 333,-87 333,-63 401,-63 401,-87"/>
+<text text-anchor="middle" x="367" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_schget -->
+<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
 <g id="proc~~orbel_el2xv~~CallsGraph_edge3" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;proc~orbel_schget</title>
-<path fill="none" stroke="#000000" d="M67.19,-175.97C126.47,-179.55 251.81,-187.11 319.8,-191.21"/>
-<polygon fill="#000000" stroke="#000000" points="319.61,-194.71 329.8,-191.82 320.03,-187.72 319.61,-194.71"/>
+<title>proc~orbel_el2xv&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M67.33,-138.26C117.44,-140.68 215.47,-141.34 294,-117 310.96,-111.74 328.2,-101.88 341.56,-93.03"/>
+<polygon fill="#000000" stroke="#000000" points="343.87,-95.68 350.13,-87.14 339.91,-89.92 343.87,-95.68"/>
 </g>
-<!-- interface~orbel_scget -->
+<!-- proc~orbel_zget -->
 <g id="proc~~orbel_el2xv~~CallsGraph_node5" class="node">
-<title>interface~orbel_scget</title>
-<g id="a_proc~~orbel_el2xv~~CallsGraph_node5"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
-<polygon fill="#a7506f" stroke="#a7506f" points="401,-87 333,-87 333,-63 401,-63 401,-87"/>
-<text text-anchor="middle" x="367" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
+<title>proc~orbel_zget</title>
+<g id="a_proc~~orbel_el2xv~~CallsGraph_node5"><a xlink:href=".././proc/orbel_zget.html" xlink:title="orbel_zget">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="173.5,-108 110.5,-108 110.5,-84 173.5,-84 173.5,-108"/>
+<text text-anchor="middle" x="142" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_zget</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_zget -->
 <g id="proc~~orbel_el2xv~~CallsGraph_edge4" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M67.41,-170.12C117.63,-163.46 215.8,-147.53 294,-117 310.1,-110.72 326.85,-101.15 340.14,-92.74"/>
-<polygon fill="#000000" stroke="#000000" points="342.26,-95.54 348.73,-87.15 338.44,-89.67 342.26,-95.54"/>
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_zget</title>
+<path fill="none" stroke="#000000" d="M66.45,-124C77.16,-119.98 89.25,-115.44 100.52,-111.2"/>
+<polygon fill="#000000" stroke="#000000" points="102.04,-114.37 110.17,-107.58 99.57,-107.82 102.04,-114.37"/>
 </g>
-<!-- proc~orbel_ehybrid -->
+<!-- proc~orbel_schget -->
 <g id="proc~~orbel_el2xv~~CallsGraph_node6" class="node">
-<title>proc~orbel_ehybrid</title>
-<g id="a_proc~~orbel_el2xv~~CallsGraph_node6"><a xlink:href=".././proc/orbel_ehybrid.html" xlink:title="orbel_ehybrid">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="181,-87 103,-87 103,-63 181,-63 181,-87"/>
-<text text-anchor="middle" x="142" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehybrid</text>
+<title>proc~orbel_schget</title>
+<g id="a_proc~~orbel_el2xv~~CallsGraph_node6"><a xlink:href=".././proc/orbel_schget.html" xlink:title="orbel_schget">
+<polygon fill="#d9534f" stroke="#d9534f" points="404,-206 330,-206 330,-182 404,-182 404,-206"/>
+<text text-anchor="middle" x="367" y="-191.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_schget</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid -->
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_schget -->
 <g id="proc~~orbel_el2xv~~CallsGraph_edge5" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid</title>
-<path fill="none" stroke="#000000" d="M47.56,-161.86C65.76,-144.94 98.95,-114.09 120.48,-94.08"/>
-<polygon fill="#000000" stroke="#000000" points="122.89,-96.61 127.83,-87.24 118.13,-91.48 122.89,-96.61"/>
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_schget</title>
+<path fill="none" stroke="#000000" d="M67.21,-142.93C78.53,-145.27 91.3,-147.83 103,-150 178.74,-164.07 267.14,-178.44 319.74,-186.77"/>
+<polygon fill="#000000" stroke="#000000" points="319.34,-190.26 329.77,-188.36 320.44,-183.34 319.34,-190.26"/>
 </g>
 <!-- proc~orbel_flon -->
 <g id="proc~~orbel_el2xv~~CallsGraph_node8" class="node">
@@ -491,85 +491,91 @@ <h3 class="panel-title">Calls</h3>
 </g>
 </g>
 <!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_flon -->
-<g id="proc~~orbel_el2xv~~CallsGraph_edge7" class="edge">
+<g id="proc~~orbel_el2xv~~CallsGraph_edge6" class="edge">
 <title>proc~orbel_fhybrid&#45;&gt;proc~orbel_flon</title>
-<path fill="none" stroke="#000000" d="M179.51,-256C190.89,-256 203.49,-256 215.06,-256"/>
-<polygon fill="#000000" stroke="#000000" points="215.33,-259.5 225.33,-256 215.33,-252.5 215.33,-259.5"/>
+<path fill="none" stroke="#000000" d="M174.95,-226.04C187.69,-230.83 202.47,-236.4 215.81,-241.43"/>
+<polygon fill="#000000" stroke="#000000" points="214.62,-244.72 225.21,-244.97 217.09,-238.17 214.62,-244.72"/>
 </g>
 <!-- proc~orbel_fget -->
-<g id="proc~~orbel_el2xv~~CallsGraph_node9" class="node">
+<g id="proc~~orbel_el2xv~~CallsGraph_node10" class="node">
 <title>proc~orbel_fget</title>
-<g id="a_proc~~orbel_el2xv~~CallsGraph_node9"><a xlink:href=".././proc/orbel_fget.html" xlink:title="orbel_fget">
+<g id="a_proc~~orbel_el2xv~~CallsGraph_node10"><a xlink:href=".././proc/orbel_fget.html" xlink:title="orbel_fget">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="286,-226 225,-226 225,-202 286,-202 286,-226"/>
 <text text-anchor="middle" x="255.5" y="-211.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fget</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_fget -->
-<g id="proc~~orbel_el2xv~~CallsGraph_edge6" class="edge">
+<g id="proc~~orbel_el2xv~~CallsGraph_edge7" class="edge">
 <title>proc~orbel_fhybrid&#45;&gt;proc~orbel_fget</title>
-<path fill="none" stroke="#000000" d="M174.95,-243.96C187.46,-239.25 201.95,-233.8 215.1,-228.84"/>
-<polygon fill="#000000" stroke="#000000" points="216.71,-231.97 224.84,-225.17 214.25,-225.42 216.71,-231.97"/>
-</g>
-<!-- proc~orbel_scget -->
-<g id="proc~~orbel_el2xv~~CallsGraph_node7" class="node">
-<title>proc~orbel_scget</title>
-<g id="a_proc~~orbel_el2xv~~CallsGraph_node7"><a xlink:href=".././proc/orbel_scget.html" xlink:title="orbel_scget">
-<polygon fill="#d9534f" stroke="#d9534f" points="508,-87 440,-87 440,-63 508,-63 508,-87"/>
-<text text-anchor="middle" x="474" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
-</a>
-</g>
-</g>
-<!-- interface~orbel_scget&#45;&gt;proc~orbel_scget -->
-<g id="proc~~orbel_el2xv~~CallsGraph_edge8" class="edge">
-<title>interface~orbel_scget&#45;&gt;proc~orbel_scget</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.22,-75C410.31,-75 420.3,-75 429.85,-75"/>
-<polygon fill="#000000" stroke="#000000" points="429.99,-78.5 439.99,-75 429.99,-71.5 429.99,-78.5"/>
+<path fill="none" stroke="#000000" d="M179.51,-214C190.79,-214 203.27,-214 214.76,-214"/>
+<polygon fill="#000000" stroke="#000000" points="214.97,-217.5 224.97,-214 214.97,-210.5 214.97,-217.5"/>
 </g>
 <!-- proc~orbel_esolmd -->
-<g id="proc~~orbel_el2xv~~CallsGraph_node10" class="node">
+<g id="proc~~orbel_el2xv~~CallsGraph_node7" class="node">
 <title>proc~orbel_esolmd</title>
-<g id="a_proc~~orbel_el2xv~~CallsGraph_node10"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="294,-108 217,-108 217,-84 294,-84 294,-108"/>
-<text text-anchor="middle" x="255.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_esolmd</text>
+<g id="a_proc~~orbel_el2xv~~CallsGraph_node7"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="294,-24 217,-24 217,0 294,0 294,-24"/>
+<text text-anchor="middle" x="255.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_esolmd</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd -->
-<g id="proc~~orbel_el2xv~~CallsGraph_edge10" class="edge">
+<g id="proc~~orbel_el2xv~~CallsGraph_edge8" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd</title>
-<path fill="none" stroke="#000000" d="M181.06,-82.17C189.4,-83.74 198.34,-85.42 207,-87.05"/>
-<polygon fill="#000000" stroke="#000000" points="206.51,-90.52 216.99,-88.94 207.81,-83.64 206.51,-90.52"/>
+<path fill="none" stroke="#000000" d="M174.95,-41.96C186.85,-37.48 200.53,-32.33 213.15,-27.58"/>
+<polygon fill="#000000" stroke="#000000" points="214.42,-30.84 222.54,-24.04 211.95,-24.29 214.42,-30.84"/>
 </g>
 <!-- proc~orbel_eget -->
-<g id="proc~~orbel_el2xv~~CallsGraph_node11" class="node">
+<g id="proc~~orbel_el2xv~~CallsGraph_node9" class="node">
 <title>proc~orbel_eget</title>
-<g id="a_proc~~orbel_el2xv~~CallsGraph_node11"><a xlink:href=".././proc/orbel_eget.html" xlink:title="orbel_eget">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="287.5,-66 223.5,-66 223.5,-42 287.5,-42 287.5,-66"/>
-<text text-anchor="middle" x="255.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_eget</text>
+<g id="a_proc~~orbel_el2xv~~CallsGraph_node9"><a xlink:href=".././proc/orbel_eget.html" xlink:title="orbel_eget">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="287.5,-108 223.5,-108 223.5,-84 287.5,-84 287.5,-108"/>
+<text text-anchor="middle" x="255.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_eget</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_eget -->
-<g id="proc~~orbel_el2xv~~CallsGraph_edge11" class="edge">
+<g id="proc~~orbel_el2xv~~CallsGraph_edge10" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_eget</title>
-<path fill="none" stroke="#000000" d="M181.06,-67.83C191.48,-65.87 202.82,-63.73 213.41,-61.74"/>
-<polygon fill="#000000" stroke="#000000" points="214.09,-65.17 223.27,-59.88 212.79,-58.29 214.09,-65.17"/>
+<path fill="none" stroke="#000000" d="M174.95,-66.04C187.05,-70.59 201,-75.85 213.8,-80.67"/>
+<polygon fill="#000000" stroke="#000000" points="212.72,-84 223.31,-84.25 215.19,-77.45 212.72,-84"/>
 </g>
 <!-- proc~orbel_ehie -->
 <g id="proc~~orbel_el2xv~~CallsGraph_node12" class="node">
 <title>proc~orbel_ehie</title>
 <g id="a_proc~~orbel_el2xv~~CallsGraph_node12"><a xlink:href=".././proc/orbel_ehie.html" xlink:title="orbel_ehie">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="287,-24 224,-24 224,0 287,0 287,-24"/>
-<text text-anchor="middle" x="255.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehie</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="287,-66 224,-66 224,-42 287,-42 287,-66"/>
+<text text-anchor="middle" x="255.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehie</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie -->
 <g id="proc~~orbel_el2xv~~CallsGraph_edge9" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie</title>
-<path fill="none" stroke="#000000" d="M164.35,-62.84C179.13,-54.43 199.24,-43.01 217,-33 219.22,-31.75 221.51,-30.46 223.82,-29.16"/>
-<polygon fill="#000000" stroke="#000000" points="225.67,-32.14 232.68,-24.19 222.24,-26.03 225.67,-32.14"/>
+<path fill="none" stroke="#000000" d="M181.06,-54C191.56,-54 203,-54 213.66,-54"/>
+<polygon fill="#000000" stroke="#000000" points="213.99,-57.5 223.99,-54 213.99,-50.5 213.99,-57.5"/>
+</g>
+<!-- proc~orbel_scget -->
+<g id="proc~~orbel_el2xv~~CallsGraph_node11" class="node">
+<title>proc~orbel_scget</title>
+<g id="a_proc~~orbel_el2xv~~CallsGraph_node11"><a xlink:href=".././proc/orbel_scget.html" xlink:title="orbel_scget">
+<polygon fill="#d9534f" stroke="#d9534f" points="508,-87 440,-87 440,-63 508,-63 508,-87"/>
+<text text-anchor="middle" x="474" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
+</a>
+</g>
+</g>
+<!-- interface~orbel_scget&#45;&gt;proc~orbel_scget -->
+<g id="proc~~orbel_el2xv~~CallsGraph_edge11" class="edge">
+<title>interface~orbel_scget&#45;&gt;proc~orbel_scget</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.22,-75C410.31,-75 420.3,-75 429.85,-75"/>
+<polygon fill="#000000" stroke="#000000" points="429.99,-78.5 439.99,-75 429.99,-71.5 429.99,-78.5"/>
+</g>
+<!-- proc~orbel_esolmd&#45;&gt;interface~orbel_scget -->
+<g id="proc~~orbel_el2xv~~CallsGraph_edge12" class="edge">
+<title>proc~orbel_esolmd&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M278.35,-24.15C283.49,-27.03 288.95,-30.11 294,-33 308.05,-41.03 323.57,-50.06 336.59,-57.69"/>
+<polygon fill="#000000" stroke="#000000" points="335.18,-60.92 345.57,-62.96 338.72,-54.88 335.18,-60.92"/>
 </g>
 <!-- 3 -->
 <g id="proc~~orbel_el2xv~~CallsGraph_node13" class="node">
@@ -578,34 +584,28 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="367" y="-253.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">3</text>
 </g>
 <!-- proc~orbel_flon&#45;&gt;3 -->
-<g id="proc~~orbel_el2xv~~CallsGraph_edge12" class="edge">
+<g id="proc~~orbel_el2xv~~CallsGraph_edge13" class="edge">
 <title>proc~orbel_flon&#45;&gt;3</title>
 <path fill="none" stroke="#000000" d="M285.56,-256C299.12,-256 315.4,-256 329.76,-256"/>
 <polygon fill="#000000" stroke="#000000" points="329.81,-259.5 339.81,-256 329.81,-252.5 329.81,-259.5"/>
 </g>
+<!-- proc~orbel_eget&#45;&gt;interface~orbel_scget -->
+<g id="proc~~orbel_el2xv~~CallsGraph_edge14" class="edge">
+<title>proc~orbel_eget&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M287.59,-90.04C298.54,-87.94 311.06,-85.54 322.83,-83.28"/>
+<polygon fill="#000000" stroke="#000000" points="323.76,-86.66 332.92,-81.34 322.44,-79.79 323.76,-86.66"/>
+</g>
 <!-- proc~orbel_fget&#45;&gt;proc~orbel_schget -->
-<g id="proc~~orbel_el2xv~~CallsGraph_edge13" class="edge">
+<g id="proc~~orbel_el2xv~~CallsGraph_edge15" class="edge">
 <title>proc~orbel_fget&#45;&gt;proc~orbel_schget</title>
 <path fill="none" stroke="#000000" d="M286.13,-208.59C296.52,-206.69 308.44,-204.51 319.86,-202.43"/>
 <polygon fill="#000000" stroke="#000000" points="320.49,-205.87 329.7,-200.63 319.24,-198.98 320.49,-205.87"/>
 </g>
-<!-- proc~orbel_esolmd&#45;&gt;interface~orbel_scget -->
-<g id="proc~~orbel_el2xv~~CallsGraph_edge14" class="edge">
-<title>proc~orbel_esolmd&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M294.18,-88.77C303.36,-87.01 313.25,-85.12 322.67,-83.31"/>
-<polygon fill="#000000" stroke="#000000" points="323.48,-86.72 332.64,-81.4 322.16,-79.84 323.48,-86.72"/>
-</g>
-<!-- proc~orbel_eget&#45;&gt;interface~orbel_scget -->
-<g id="proc~~orbel_el2xv~~CallsGraph_edge15" class="edge">
-<title>proc~orbel_eget&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M287.59,-59.96C298.54,-62.06 311.06,-64.46 322.83,-66.72"/>
-<polygon fill="#000000" stroke="#000000" points="322.44,-70.21 332.92,-68.66 323.76,-63.34 322.44,-70.21"/>
-</g>
 <!-- proc~orbel_ehie&#45;&gt;interface~orbel_scget -->
 <g id="proc~~orbel_el2xv~~CallsGraph_edge16" class="edge">
 <title>proc~orbel_ehie&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M278.35,-24.15C283.49,-27.03 288.95,-30.11 294,-33 308.05,-41.03 323.57,-50.06 336.59,-57.69"/>
-<polygon fill="#000000" stroke="#000000" points="335.18,-60.92 345.57,-62.96 338.72,-54.88 335.18,-60.92"/>
+<path fill="none" stroke="#000000" d="M287,-59.85C298.18,-61.99 311.04,-64.46 323.09,-66.77"/>
+<polygon fill="#000000" stroke="#000000" points="322.5,-70.22 332.98,-68.67 323.82,-63.35 322.5,-70.22"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/orbel_el2xv_vec.html b/docs/proc/orbel_el2xv_vec.html
index 107ef2e14..3b2690ff1 100644
--- a/docs/proc/orbel_el2xv_vec.html
+++ b/docs/proc/orbel_el2xv_vec.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~207"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~205"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -288,98 +288,98 @@ <h3 class="panel-title">Calls</h3>
 <!-- proc~orbel_el2xv_vec -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_node1" class="node">
 <title>proc~orbel_el2xv_vec</title>
-<polygon fill="none" stroke="black" points="90,-186 0,-186 0,-162 90,-162 90,-186"/>
-<text text-anchor="middle" x="45" y="-171.6" font-family="Helvetica,sans-Serif" font-size="10.50">orbel_el2xv_vec</text>
+<polygon fill="none" stroke="black" points="90,-148 0,-148 0,-124 90,-124 90,-148"/>
+<text text-anchor="middle" x="45" y="-133.6" font-family="Helvetica,sans-Serif" font-size="10.50">orbel_el2xv_vec</text>
 </g>
 <!-- proc~orbel_el2xv -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_node2" class="node">
 <title>proc~orbel_el2xv</title>
 <g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node2"><a xlink:href=".././proc/orbel_el2xv.html" xlink:title="orbel_el2xv">
-<polygon fill="#d9534f" stroke="#d9534f" points="193,-186 126,-186 126,-162 193,-162 193,-186"/>
-<text text-anchor="middle" x="159.5" y="-171.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="193,-148 126,-148 126,-124 193,-124 193,-148"/>
+<text text-anchor="middle" x="159.5" y="-133.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_edge1" class="edge">
 <title>proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv</title>
-<path fill="none" stroke="#000000" d="M90.14,-174C98.63,-174 107.51,-174 115.95,-174"/>
-<polygon fill="#000000" stroke="#000000" points="115.97,-177.5 125.97,-174 115.97,-170.5 115.97,-177.5"/>
+<path fill="none" stroke="#000000" d="M90.14,-136C98.63,-136 107.51,-136 115.95,-136"/>
+<polygon fill="#000000" stroke="#000000" points="115.97,-139.5 125.97,-136 115.97,-132.5 115.97,-139.5"/>
 </g>
 <!-- proc~orbel_fhybrid -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_node3" class="node">
 <title>proc~orbel_fhybrid</title>
 <g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node3"><a xlink:href=".././proc/orbel_fhybrid.html" xlink:title="orbel_fhybrid">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="305.5,-268 230.5,-268 230.5,-244 305.5,-244 305.5,-268"/>
-<text text-anchor="middle" x="268" y="-253.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fhybrid</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="305.5,-226 230.5,-226 230.5,-202 305.5,-202 305.5,-226"/>
+<text text-anchor="middle" x="268" y="-211.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fhybrid</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_edge2" class="edge">
 <title>proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid</title>
-<path fill="none" stroke="#000000" d="M172.42,-186.12C185.57,-199.12 207.69,-219.91 229,-235 230.8,-236.27 232.68,-237.53 234.61,-238.76"/>
-<polygon fill="#000000" stroke="#000000" points="232.82,-241.76 243.19,-243.91 236.42,-235.76 232.82,-241.76"/>
+<path fill="none" stroke="#000000" d="M176.12,-148.2C189.89,-158.88 210.59,-174.73 229,-188 232.67,-190.65 236.58,-193.4 240.44,-196.07"/>
+<polygon fill="#000000" stroke="#000000" points="238.48,-198.97 248.7,-201.75 242.44,-193.2 238.48,-198.97"/>
 </g>
-<!-- proc~orbel_zget -->
+<!-- proc~orbel_ehybrid -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_node4" class="node">
-<title>proc~orbel_zget</title>
-<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node4"><a xlink:href=".././proc/orbel_zget.html" xlink:title="orbel_zget">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="299.5,-226 236.5,-226 236.5,-202 299.5,-202 299.5,-226"/>
-<text text-anchor="middle" x="268" y="-211.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_zget</text>
+<title>proc~orbel_ehybrid</title>
+<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node4"><a xlink:href=".././proc/orbel_ehybrid.html" xlink:title="orbel_ehybrid">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="307,-66 229,-66 229,-42 307,-42 307,-66"/>
+<text text-anchor="middle" x="268" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehybrid</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_zget -->
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_edge3" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;proc~orbel_zget</title>
-<path fill="none" stroke="#000000" d="M192.45,-186C203.16,-190.02 215.25,-194.56 226.52,-198.8"/>
-<polygon fill="#000000" stroke="#000000" points="225.57,-202.18 236.17,-202.42 228.04,-195.63 225.57,-202.18"/>
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid</title>
+<path fill="none" stroke="#000000" d="M172.42,-123.88C185.57,-110.88 207.69,-90.09 229,-75 230.8,-73.73 232.68,-72.47 234.61,-71.24"/>
+<polygon fill="#000000" stroke="#000000" points="236.42,-74.24 243.19,-66.09 232.82,-68.24 236.42,-74.24"/>
 </g>
-<!-- proc~orbel_schget -->
+<!-- interface~orbel_scget -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_node5" class="node">
-<title>proc~orbel_schget</title>
-<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node5"><a xlink:href=".././proc/orbel_schget.html" xlink:title="orbel_schget">
-<polygon fill="#d9534f" stroke="#d9534f" points="530,-206 456,-206 456,-182 530,-182 530,-206"/>
-<text text-anchor="middle" x="493" y="-191.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_schget</text>
+<title>interface~orbel_scget</title>
+<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node5"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
+<polygon fill="#a7506f" stroke="#a7506f" points="527,-87 459,-87 459,-63 527,-63 527,-87"/>
+<text text-anchor="middle" x="493" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_schget -->
+<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_edge4" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;proc~orbel_schget</title>
-<path fill="none" stroke="#000000" d="M193.19,-175.97C252.47,-179.55 377.81,-187.11 445.8,-191.21"/>
-<polygon fill="#000000" stroke="#000000" points="445.61,-194.71 455.8,-191.82 446.03,-187.72 445.61,-194.71"/>
+<title>proc~orbel_el2xv&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M193.33,-138.26C243.44,-140.68 341.47,-141.34 420,-117 436.96,-111.74 454.2,-101.88 467.56,-93.03"/>
+<polygon fill="#000000" stroke="#000000" points="469.87,-95.68 476.13,-87.14 465.91,-89.92 469.87,-95.68"/>
 </g>
-<!-- interface~orbel_scget -->
+<!-- proc~orbel_zget -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_node6" class="node">
-<title>interface~orbel_scget</title>
-<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node6"><a xlink:href=".././interface/orbel_scget.html" xlink:title="orbel_scget">
-<polygon fill="#a7506f" stroke="#a7506f" points="527,-87 459,-87 459,-63 527,-63 527,-87"/>
-<text text-anchor="middle" x="493" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
+<title>proc~orbel_zget</title>
+<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node6"><a xlink:href=".././proc/orbel_zget.html" xlink:title="orbel_zget">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="299.5,-108 236.5,-108 236.5,-84 299.5,-84 299.5,-108"/>
+<text text-anchor="middle" x="268" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_zget</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_zget -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_edge5" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M193.41,-170.12C243.63,-163.46 341.8,-147.53 420,-117 436.1,-110.72 452.85,-101.15 466.14,-92.74"/>
-<polygon fill="#000000" stroke="#000000" points="468.26,-95.54 474.73,-87.15 464.44,-89.67 468.26,-95.54"/>
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_zget</title>
+<path fill="none" stroke="#000000" d="M192.45,-124C203.16,-119.98 215.25,-115.44 226.52,-111.2"/>
+<polygon fill="#000000" stroke="#000000" points="228.04,-114.37 236.17,-107.58 225.57,-107.82 228.04,-114.37"/>
 </g>
-<!-- proc~orbel_ehybrid -->
+<!-- proc~orbel_schget -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_node7" class="node">
-<title>proc~orbel_ehybrid</title>
-<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node7"><a xlink:href=".././proc/orbel_ehybrid.html" xlink:title="orbel_ehybrid">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="307,-87 229,-87 229,-63 307,-63 307,-87"/>
-<text text-anchor="middle" x="268" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehybrid</text>
+<title>proc~orbel_schget</title>
+<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node7"><a xlink:href=".././proc/orbel_schget.html" xlink:title="orbel_schget">
+<polygon fill="#d9534f" stroke="#d9534f" points="530,-206 456,-206 456,-182 530,-182 530,-206"/>
+<text text-anchor="middle" x="493" y="-191.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_schget</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid -->
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_schget -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_edge6" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid</title>
-<path fill="none" stroke="#000000" d="M173.56,-161.86C191.76,-144.94 224.95,-114.09 246.48,-94.08"/>
-<polygon fill="#000000" stroke="#000000" points="248.89,-96.61 253.83,-87.24 244.13,-91.48 248.89,-96.61"/>
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_schget</title>
+<path fill="none" stroke="#000000" d="M193.21,-142.93C204.53,-145.27 217.3,-147.83 229,-150 304.74,-164.07 393.14,-178.44 445.74,-186.77"/>
+<polygon fill="#000000" stroke="#000000" points="445.34,-190.26 455.77,-188.36 446.44,-183.34 445.34,-190.26"/>
 </g>
 <!-- proc~orbel_flon -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_node9" class="node">
@@ -391,85 +391,91 @@ <h3 class="panel-title">Calls</h3>
 </g>
 </g>
 <!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_flon -->
-<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge8" class="edge">
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge7" class="edge">
 <title>proc~orbel_fhybrid&#45;&gt;proc~orbel_flon</title>
-<path fill="none" stroke="#000000" d="M305.51,-256C316.89,-256 329.49,-256 341.06,-256"/>
-<polygon fill="#000000" stroke="#000000" points="341.33,-259.5 351.33,-256 341.33,-252.5 341.33,-259.5"/>
+<path fill="none" stroke="#000000" d="M300.95,-226.04C313.69,-230.83 328.47,-236.4 341.81,-241.43"/>
+<polygon fill="#000000" stroke="#000000" points="340.62,-244.72 351.21,-244.97 343.09,-238.17 340.62,-244.72"/>
 </g>
 <!-- proc~orbel_fget -->
-<g id="proc~~orbel_el2xv_vec~~CallsGraph_node10" class="node">
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_node11" class="node">
 <title>proc~orbel_fget</title>
-<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node10"><a xlink:href=".././proc/orbel_fget.html" xlink:title="orbel_fget">
+<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node11"><a xlink:href=".././proc/orbel_fget.html" xlink:title="orbel_fget">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="412,-226 351,-226 351,-202 412,-202 412,-226"/>
 <text text-anchor="middle" x="381.5" y="-211.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fget</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_fget -->
-<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge7" class="edge">
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge8" class="edge">
 <title>proc~orbel_fhybrid&#45;&gt;proc~orbel_fget</title>
-<path fill="none" stroke="#000000" d="M300.95,-243.96C313.46,-239.25 327.95,-233.8 341.1,-228.84"/>
-<polygon fill="#000000" stroke="#000000" points="342.71,-231.97 350.84,-225.17 340.25,-225.42 342.71,-231.97"/>
-</g>
-<!-- proc~orbel_scget -->
-<g id="proc~~orbel_el2xv_vec~~CallsGraph_node8" class="node">
-<title>proc~orbel_scget</title>
-<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node8"><a xlink:href=".././proc/orbel_scget.html" xlink:title="orbel_scget">
-<polygon fill="#d9534f" stroke="#d9534f" points="634,-87 566,-87 566,-63 634,-63 634,-87"/>
-<text text-anchor="middle" x="600" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
-</a>
-</g>
-</g>
-<!-- interface~orbel_scget&#45;&gt;proc~orbel_scget -->
-<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge9" class="edge">
-<title>interface~orbel_scget&#45;&gt;proc~orbel_scget</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M527.22,-75C536.31,-75 546.3,-75 555.85,-75"/>
-<polygon fill="#000000" stroke="#000000" points="555.99,-78.5 565.99,-75 555.99,-71.5 555.99,-78.5"/>
+<path fill="none" stroke="#000000" d="M305.51,-214C316.79,-214 329.27,-214 340.76,-214"/>
+<polygon fill="#000000" stroke="#000000" points="340.97,-217.5 350.97,-214 340.97,-210.5 340.97,-217.5"/>
 </g>
 <!-- proc~orbel_esolmd -->
-<g id="proc~~orbel_el2xv_vec~~CallsGraph_node11" class="node">
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_node8" class="node">
 <title>proc~orbel_esolmd</title>
-<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node11"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="420,-108 343,-108 343,-84 420,-84 420,-108"/>
-<text text-anchor="middle" x="381.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_esolmd</text>
+<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node8"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="420,-24 343,-24 343,0 420,0 420,-24"/>
+<text text-anchor="middle" x="381.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_esolmd</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd -->
-<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge11" class="edge">
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge9" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd</title>
-<path fill="none" stroke="#000000" d="M307.06,-82.17C315.4,-83.74 324.34,-85.42 333,-87.05"/>
-<polygon fill="#000000" stroke="#000000" points="332.51,-90.52 342.99,-88.94 333.81,-83.64 332.51,-90.52"/>
+<path fill="none" stroke="#000000" d="M300.95,-41.96C312.85,-37.48 326.53,-32.33 339.15,-27.58"/>
+<polygon fill="#000000" stroke="#000000" points="340.42,-30.84 348.54,-24.04 337.95,-24.29 340.42,-30.84"/>
 </g>
 <!-- proc~orbel_eget -->
-<g id="proc~~orbel_el2xv_vec~~CallsGraph_node12" class="node">
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_node10" class="node">
 <title>proc~orbel_eget</title>
-<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node12"><a xlink:href=".././proc/orbel_eget.html" xlink:title="orbel_eget">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="413.5,-66 349.5,-66 349.5,-42 413.5,-42 413.5,-66"/>
-<text text-anchor="middle" x="381.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_eget</text>
+<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node10"><a xlink:href=".././proc/orbel_eget.html" xlink:title="orbel_eget">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="413.5,-108 349.5,-108 349.5,-84 413.5,-84 413.5,-108"/>
+<text text-anchor="middle" x="381.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_eget</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_eget -->
-<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge12" class="edge">
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge11" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_eget</title>
-<path fill="none" stroke="#000000" d="M307.06,-67.83C317.48,-65.87 328.82,-63.73 339.41,-61.74"/>
-<polygon fill="#000000" stroke="#000000" points="340.09,-65.17 349.27,-59.88 338.79,-58.29 340.09,-65.17"/>
+<path fill="none" stroke="#000000" d="M300.95,-66.04C313.05,-70.59 327,-75.85 339.8,-80.67"/>
+<polygon fill="#000000" stroke="#000000" points="338.72,-84 349.31,-84.25 341.19,-77.45 338.72,-84"/>
 </g>
 <!-- proc~orbel_ehie -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_node13" class="node">
 <title>proc~orbel_ehie</title>
 <g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node13"><a xlink:href=".././proc/orbel_ehie.html" xlink:title="orbel_ehie">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="413,-24 350,-24 350,0 413,0 413,-24"/>
-<text text-anchor="middle" x="381.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehie</text>
+<polygon fill="#d94e8f" stroke="#d94e8f" points="413,-66 350,-66 350,-42 413,-42 413,-66"/>
+<text text-anchor="middle" x="381.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehie</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_edge10" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_ehie</title>
-<path fill="none" stroke="#000000" d="M290.35,-62.84C305.13,-54.43 325.24,-43.01 343,-33 345.22,-31.75 347.51,-30.46 349.82,-29.16"/>
-<polygon fill="#000000" stroke="#000000" points="351.67,-32.14 358.68,-24.19 348.24,-26.03 351.67,-32.14"/>
+<path fill="none" stroke="#000000" d="M307.06,-54C317.56,-54 329,-54 339.66,-54"/>
+<polygon fill="#000000" stroke="#000000" points="339.99,-57.5 349.99,-54 339.99,-50.5 339.99,-57.5"/>
+</g>
+<!-- proc~orbel_scget -->
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_node12" class="node">
+<title>proc~orbel_scget</title>
+<g id="a_proc~~orbel_el2xv_vec~~CallsGraph_node12"><a xlink:href=".././proc/orbel_scget.html" xlink:title="orbel_scget">
+<polygon fill="#d9534f" stroke="#d9534f" points="634,-87 566,-87 566,-63 634,-63 634,-87"/>
+<text text-anchor="middle" x="600" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_scget</text>
+</a>
+</g>
+</g>
+<!-- interface~orbel_scget&#45;&gt;proc~orbel_scget -->
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge12" class="edge">
+<title>interface~orbel_scget&#45;&gt;proc~orbel_scget</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M527.22,-75C536.31,-75 546.3,-75 555.85,-75"/>
+<polygon fill="#000000" stroke="#000000" points="555.99,-78.5 565.99,-75 555.99,-71.5 555.99,-78.5"/>
+</g>
+<!-- proc~orbel_esolmd&#45;&gt;interface~orbel_scget -->
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge13" class="edge">
+<title>proc~orbel_esolmd&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M404.35,-24.15C409.49,-27.03 414.95,-30.11 420,-33 434.05,-41.03 449.57,-50.06 462.59,-57.69"/>
+<polygon fill="#000000" stroke="#000000" points="461.18,-60.92 471.57,-62.96 464.72,-54.88 461.18,-60.92"/>
 </g>
 <!-- 3 -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_node14" class="node">
@@ -478,34 +484,28 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="493" y="-253.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">3</text>
 </g>
 <!-- proc~orbel_flon&#45;&gt;3 -->
-<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge13" class="edge">
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge14" class="edge">
 <title>proc~orbel_flon&#45;&gt;3</title>
 <path fill="none" stroke="#000000" d="M411.56,-256C425.12,-256 441.4,-256 455.76,-256"/>
 <polygon fill="#000000" stroke="#000000" points="455.81,-259.5 465.81,-256 455.81,-252.5 455.81,-259.5"/>
 </g>
+<!-- proc~orbel_eget&#45;&gt;interface~orbel_scget -->
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge15" class="edge">
+<title>proc~orbel_eget&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M413.59,-90.04C424.54,-87.94 437.06,-85.54 448.83,-83.28"/>
+<polygon fill="#000000" stroke="#000000" points="449.76,-86.66 458.92,-81.34 448.44,-79.79 449.76,-86.66"/>
+</g>
 <!-- proc~orbel_fget&#45;&gt;proc~orbel_schget -->
-<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge14" class="edge">
+<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge16" class="edge">
 <title>proc~orbel_fget&#45;&gt;proc~orbel_schget</title>
 <path fill="none" stroke="#000000" d="M412.13,-208.59C422.52,-206.69 434.44,-204.51 445.86,-202.43"/>
 <polygon fill="#000000" stroke="#000000" points="446.49,-205.87 455.7,-200.63 445.24,-198.98 446.49,-205.87"/>
 </g>
-<!-- proc~orbel_esolmd&#45;&gt;interface~orbel_scget -->
-<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge15" class="edge">
-<title>proc~orbel_esolmd&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M420.18,-88.77C429.36,-87.01 439.25,-85.12 448.67,-83.31"/>
-<polygon fill="#000000" stroke="#000000" points="449.48,-86.72 458.64,-81.4 448.16,-79.84 449.48,-86.72"/>
-</g>
-<!-- proc~orbel_eget&#45;&gt;interface~orbel_scget -->
-<g id="proc~~orbel_el2xv_vec~~CallsGraph_edge16" class="edge">
-<title>proc~orbel_eget&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M413.59,-59.96C424.54,-62.06 437.06,-64.46 448.83,-66.72"/>
-<polygon fill="#000000" stroke="#000000" points="448.44,-70.21 458.92,-68.66 449.76,-63.34 448.44,-70.21"/>
-</g>
 <!-- proc~orbel_ehie&#45;&gt;interface~orbel_scget -->
 <g id="proc~~orbel_el2xv_vec~~CallsGraph_edge17" class="edge">
 <title>proc~orbel_ehie&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M404.35,-24.15C409.49,-27.03 414.95,-30.11 420,-33 434.05,-41.03 449.57,-50.06 462.59,-57.69"/>
-<polygon fill="#000000" stroke="#000000" points="461.18,-60.92 471.57,-62.96 464.72,-54.88 461.18,-60.92"/>
+<path fill="none" stroke="#000000" d="M413,-59.85C424.18,-61.99 437.04,-64.46 449.09,-66.77"/>
+<polygon fill="#000000" stroke="#000000" points="448.5,-70.22 458.98,-68.67 449.82,-63.35 448.5,-70.22"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/orbel_fhybrid.html b/docs/proc/orbel_fhybrid.html
index e2d880bb8..8a946661f 100644
--- a/docs/proc/orbel_fhybrid.html
+++ b/docs/proc/orbel_fhybrid.html
@@ -294,62 +294,62 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="75,-45 0,-45 0,-21 75,-21 75,-45"/>
 <text text-anchor="middle" x="37.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">orbel_fhybrid</text>
 </g>
-<!-- proc~orbel_fget -->
+<!-- proc~orbel_flon -->
 <g id="proc~~orbel_fhybrid~~CallsGraph_node2" class="node">
-<title>proc~orbel_fget</title>
-<g id="a_proc~~orbel_fhybrid~~CallsGraph_node2"><a xlink:href=".././proc/orbel_fget.html" xlink:title="orbel_fget">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="172,-66 111,-66 111,-42 172,-42 172,-66"/>
-<text text-anchor="middle" x="141.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fget</text>
+<title>proc~orbel_flon</title>
+<g id="a_proc~~orbel_fhybrid~~CallsGraph_node2"><a xlink:href=".././proc/orbel_flon.html" xlink:title="orbel_flon">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="171.5,-66 111.5,-66 111.5,-42 171.5,-42 171.5,-66"/>
+<text text-anchor="middle" x="141.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_flon</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_fget -->
+<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_flon -->
 <g id="proc~~orbel_fhybrid~~CallsGraph_edge1" class="edge">
-<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_fget</title>
-<path fill="none" stroke="#000000" d="M75.04,-40.52C83.5,-42.26 92.54,-44.13 101.12,-45.89"/>
-<polygon fill="#000000" stroke="#000000" points="100.42,-49.32 110.92,-47.91 101.83,-42.47 100.42,-49.32"/>
+<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_flon</title>
+<path fill="none" stroke="#000000" d="M75.04,-40.52C83.58,-42.28 92.72,-44.16 101.37,-45.94"/>
+<polygon fill="#000000" stroke="#000000" points="100.74,-49.39 111.25,-47.98 102.16,-42.53 100.74,-49.39"/>
 </g>
-<!-- proc~orbel_flon -->
+<!-- proc~orbel_fget -->
 <g id="proc~~orbel_fhybrid~~CallsGraph_node3" class="node">
-<title>proc~orbel_flon</title>
-<g id="a_proc~~orbel_fhybrid~~CallsGraph_node3"><a xlink:href=".././proc/orbel_flon.html" xlink:title="orbel_flon">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="171.5,-24 111.5,-24 111.5,0 171.5,0 171.5,-24"/>
-<text text-anchor="middle" x="141.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_flon</text>
+<title>proc~orbel_fget</title>
+<g id="a_proc~~orbel_fhybrid~~CallsGraph_node3"><a xlink:href=".././proc/orbel_fget.html" xlink:title="orbel_fget">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="172,-24 111,-24 111,0 172,0 172,-24"/>
+<text text-anchor="middle" x="141.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fget</text>
 </a>
 </g>
 </g>
-<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_flon -->
+<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_fget -->
 <g id="proc~~orbel_fhybrid~~CallsGraph_edge2" class="edge">
-<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_flon</title>
-<path fill="none" stroke="#000000" d="M75.04,-25.48C83.58,-23.72 92.72,-21.84 101.37,-20.06"/>
-<polygon fill="#000000" stroke="#000000" points="102.16,-23.47 111.25,-18.02 100.74,-16.61 102.16,-23.47"/>
+<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_fget</title>
+<path fill="none" stroke="#000000" d="M75.04,-25.48C83.5,-23.74 92.54,-21.87 101.12,-20.11"/>
+<polygon fill="#000000" stroke="#000000" points="101.83,-23.53 110.92,-18.09 100.42,-16.68 101.83,-23.53"/>
+</g>
+<!-- 3 -->
+<g id="proc~~orbel_fhybrid~~CallsGraph_node5" class="node">
+<title>3</title>
+<polygon fill="#777777" stroke="#777777" points="272,-66 218,-66 218,-42 272,-42 272,-66"/>
+<text text-anchor="middle" x="245" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">3</text>
+</g>
+<!-- proc~orbel_flon&#45;&gt;3 -->
+<g id="proc~~orbel_fhybrid~~CallsGraph_edge3" class="edge">
+<title>proc~orbel_flon&#45;&gt;3</title>
+<path fill="none" stroke="#000000" d="M171.59,-54C182.82,-54 195.8,-54 207.64,-54"/>
+<polygon fill="#000000" stroke="#000000" points="207.68,-57.5 217.68,-54 207.68,-50.5 207.68,-57.5"/>
 </g>
 <!-- proc~orbel_schget -->
 <g id="proc~~orbel_fhybrid~~CallsGraph_node4" class="node">
 <title>proc~orbel_schget</title>
 <g id="a_proc~~orbel_fhybrid~~CallsGraph_node4"><a xlink:href=".././proc/orbel_schget.html" xlink:title="orbel_schget">
-<polygon fill="#d9534f" stroke="#d9534f" points="282,-66 208,-66 208,-42 282,-42 282,-66"/>
-<text text-anchor="middle" x="245" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_schget</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="282,-24 208,-24 208,0 282,0 282,-24"/>
+<text text-anchor="middle" x="245" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_schget</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_fget&#45;&gt;proc~orbel_schget -->
-<g id="proc~~orbel_fhybrid~~CallsGraph_edge3" class="edge">
-<title>proc~orbel_fget&#45;&gt;proc~orbel_schget</title>
-<path fill="none" stroke="#000000" d="M172.13,-54C180.12,-54 188.96,-54 197.63,-54"/>
-<polygon fill="#000000" stroke="#000000" points="197.67,-57.5 207.67,-54 197.67,-50.5 197.67,-57.5"/>
-</g>
-<!-- 3 -->
-<g id="proc~~orbel_fhybrid~~CallsGraph_node5" class="node">
-<title>3</title>
-<polygon fill="#777777" stroke="#777777" points="272,-24 218,-24 218,0 272,0 272,-24"/>
-<text text-anchor="middle" x="245" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">3</text>
-</g>
-<!-- proc~orbel_flon&#45;&gt;3 -->
 <g id="proc~~orbel_fhybrid~~CallsGraph_edge4" class="edge">
-<title>proc~orbel_flon&#45;&gt;3</title>
-<path fill="none" stroke="#000000" d="M171.59,-12C182.82,-12 195.8,-12 207.64,-12"/>
-<polygon fill="#000000" stroke="#000000" points="207.68,-15.5 217.68,-12 207.68,-8.5 207.68,-15.5"/>
+<title>proc~orbel_fget&#45;&gt;proc~orbel_schget</title>
+<path fill="none" stroke="#000000" d="M172.13,-12C180.12,-12 188.96,-12 197.63,-12"/>
+<polygon fill="#000000" stroke="#000000" points="197.67,-15.5 207.67,-12 197.67,-8.5 197.67,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/orbel_scget.html b/docs/proc/orbel_scget.html
index e987cc9af..851042e90 100644
--- a/docs/proc/orbel_scget.html
+++ b/docs/proc/orbel_scget.html
@@ -325,81 +325,81 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M667.12,-96C675.22,-96 684.02,-96 692.53,-96"/>
 <polygon fill="#000000" stroke="#000000" points="692.7,-99.5 702.7,-96 692.7,-92.5 692.7,-99.5"/>
 </g>
-<!-- proc~orbel_el2xv -->
-<g id="proc~~orbel_scget~~CalledByGraph_node3" class="node">
-<title>proc~orbel_el2xv</title>
-<g id="a_proc~~orbel_scget~~CalledByGraph_node3"><a xlink:href=".././proc/orbel_el2xv.html" xlink:title="orbel_el2xv">
-<polygon fill="#d9534f" stroke="#d9534f" points="319,-149 252,-149 252,-125 319,-125 319,-149"/>
-<text text-anchor="middle" x="285.5" y="-134.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv</text>
-</a>
-</g>
-</g>
-<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
-<g id="proc~~orbel_scget~~CalledByGraph_edge2" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;interface~orbel_scget</title>
-<path fill="none" stroke="#000000" d="M319.34,-148.57C372.53,-165.38 479.94,-191.21 563,-159 585,-150.47 604.27,-131.29 616.82,-116.32"/>
-<polygon fill="#000000" stroke="#000000" points="619.88,-118.1 623.4,-108.11 614.41,-113.73 619.88,-118.1"/>
-</g>
-<!-- proc~orbel_ehybrid -->
-<g id="proc~~orbel_scget~~CalledByGraph_node10" class="node">
-<title>proc~orbel_ehybrid</title>
-<g id="a_proc~~orbel_scget~~CalledByGraph_node10"><a xlink:href=".././proc/orbel_ehybrid.html" xlink:title="orbel_ehybrid">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="433,-129 355,-129 355,-105 433,-105 433,-129"/>
-<text text-anchor="middle" x="394" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehybrid</text>
-</a>
-</g>
-</g>
-<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid -->
-<g id="proc~~orbel_scget~~CalledByGraph_edge14" class="edge">
-<title>proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid</title>
-<path fill="none" stroke="#000000" d="M319.03,-130.89C327.12,-129.37 335.97,-127.71 344.64,-126.08"/>
-<polygon fill="#000000" stroke="#000000" points="345.5,-129.48 354.68,-124.2 344.21,-122.6 345.5,-129.48"/>
-</g>
 <!-- proc~orbel_esolmd -->
-<g id="proc~~orbel_scget~~CalledByGraph_node4" class="node">
+<g id="proc~~orbel_scget~~CalledByGraph_node3" class="node">
 <title>proc~orbel_esolmd</title>
-<g id="a_proc~~orbel_scget~~CalledByGraph_node4"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
+<g id="a_proc~~orbel_scget~~CalledByGraph_node3"><a xlink:href=".././proc/orbel_esolmd.html" xlink:title="orbel_esolmd">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="554.5,-150 477.5,-150 477.5,-126 554.5,-126 554.5,-150"/>
 <text text-anchor="middle" x="516" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_esolmd</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_esolmd&#45;&gt;interface~orbel_scget -->
-<g id="proc~~orbel_scget~~CalledByGraph_edge3" class="edge">
+<g id="proc~~orbel_scget~~CalledByGraph_edge2" class="edge">
 <title>proc~orbel_esolmd&#45;&gt;interface~orbel_scget</title>
 <path fill="none" stroke="#000000" d="M549.95,-125.96C562.22,-121.48 576.33,-116.33 589.35,-111.58"/>
 <polygon fill="#000000" stroke="#000000" points="590.85,-114.76 599.04,-108.04 588.45,-108.18 590.85,-114.76"/>
 </g>
 <!-- proc~orbel_eget -->
-<g id="proc~~orbel_scget~~CalledByGraph_node5" class="node">
+<g id="proc~~orbel_scget~~CalledByGraph_node4" class="node">
 <title>proc~orbel_eget</title>
-<g id="a_proc~~orbel_scget~~CalledByGraph_node5"><a xlink:href=".././proc/orbel_eget.html" xlink:title="orbel_eget">
+<g id="a_proc~~orbel_scget~~CalledByGraph_node4"><a xlink:href=".././proc/orbel_eget.html" xlink:title="orbel_eget">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="548,-108 484,-108 484,-84 548,-84 548,-108"/>
 <text text-anchor="middle" x="516" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_eget</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_eget&#45;&gt;interface~orbel_scget -->
-<g id="proc~~orbel_scget~~CalledByGraph_edge4" class="edge">
+<g id="proc~~orbel_scget~~CalledByGraph_edge3" class="edge">
 <title>proc~orbel_eget&#45;&gt;interface~orbel_scget</title>
 <path fill="none" stroke="#000000" d="M548.12,-96C560.63,-96 575.27,-96 588.78,-96"/>
 <polygon fill="#000000" stroke="#000000" points="588.84,-99.5 598.84,-96 588.84,-92.5 588.84,-99.5"/>
 </g>
 <!-- proc~drift_kepu_guess -->
-<g id="proc~~orbel_scget~~CalledByGraph_node6" class="node">
+<g id="proc~~orbel_scget~~CalledByGraph_node5" class="node">
 <title>proc~drift_kepu_guess</title>
-<g id="a_proc~~orbel_scget~~CalledByGraph_node6"><a xlink:href=".././proc/drift_kepu_guess.html" xlink:title="drift_kepu_guess">
+<g id="a_proc~~orbel_scget~~CalledByGraph_node5"><a xlink:href=".././proc/drift_kepu_guess.html" xlink:title="drift_kepu_guess">
 <polygon fill="#d9534f" stroke="#d9534f" points="563,-24 469,-24 469,0 563,0 563,-24"/>
 <text text-anchor="middle" x="516" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu_guess</text>
 </a>
 </g>
 </g>
 <!-- proc~drift_kepu_guess&#45;&gt;interface~orbel_scget -->
-<g id="proc~~orbel_scget~~CalledByGraph_edge5" class="edge">
+<g id="proc~~orbel_scget~~CalledByGraph_edge4" class="edge">
 <title>proc~drift_kepu_guess&#45;&gt;interface~orbel_scget</title>
 <path fill="none" stroke="#000000" d="M546.93,-24.02C552.44,-26.68 558.02,-29.71 563,-33 581.78,-45.41 600.47,-62.88 613.66,-76.27"/>
 <polygon fill="#000000" stroke="#000000" points="611.28,-78.85 620.74,-83.62 616.32,-73.99 611.28,-78.85"/>
 </g>
+<!-- proc~orbel_el2xv -->
+<g id="proc~~orbel_scget~~CalledByGraph_node6" class="node">
+<title>proc~orbel_el2xv</title>
+<g id="a_proc~~orbel_scget~~CalledByGraph_node6"><a xlink:href=".././proc/orbel_el2xv.html" xlink:title="orbel_el2xv">
+<polygon fill="#d9534f" stroke="#d9534f" points="319,-149 252,-149 252,-125 319,-125 319,-149"/>
+<text text-anchor="middle" x="285.5" y="-134.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv</text>
+</a>
+</g>
+</g>
+<!-- proc~orbel_el2xv&#45;&gt;interface~orbel_scget -->
+<g id="proc~~orbel_scget~~CalledByGraph_edge5" class="edge">
+<title>proc~orbel_el2xv&#45;&gt;interface~orbel_scget</title>
+<path fill="none" stroke="#000000" d="M319.34,-148.57C372.53,-165.38 479.94,-191.21 563,-159 585,-150.47 604.27,-131.29 616.82,-116.32"/>
+<polygon fill="#000000" stroke="#000000" points="619.88,-118.1 623.4,-108.11 614.41,-113.73 619.88,-118.1"/>
+</g>
+<!-- proc~orbel_ehybrid -->
+<g id="proc~~orbel_scget~~CalledByGraph_node10" class="node">
+<title>proc~orbel_ehybrid</title>
+<g id="a_proc~~orbel_scget~~CalledByGraph_node10"><a xlink:href=".././proc/orbel_ehybrid.html" xlink:title="orbel_ehybrid">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="433,-129 355,-129 355,-105 433,-105 433,-129"/>
+<text text-anchor="middle" x="394" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_ehybrid</text>
+</a>
+</g>
+</g>
+<!-- proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid -->
+<g id="proc~~orbel_scget~~CalledByGraph_edge14" class="edge">
+<title>proc~orbel_el2xv&#45;&gt;proc~orbel_ehybrid</title>
+<path fill="none" stroke="#000000" d="M319.03,-130.89C327.12,-129.37 335.97,-127.71 344.64,-126.08"/>
+<polygon fill="#000000" stroke="#000000" points="345.5,-129.48 354.68,-124.2 344.21,-122.6 345.5,-129.48"/>
+</g>
 <!-- proc~orbel_ehie -->
 <g id="proc~~orbel_scget~~CalledByGraph_node7" class="node">
 <title>proc~orbel_ehie</title>
@@ -415,44 +415,44 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" d="M547.52,-65.14C560.38,-69.84 575.58,-75.4 589.52,-80.48"/>
 <polygon fill="#000000" stroke="#000000" points="588.32,-83.77 598.92,-83.92 590.72,-77.2 588.32,-83.77"/>
 </g>
-<!-- proc~orbel_el2xv_vec -->
-<g id="proc~~orbel_scget~~CalledByGraph_node8" class="node">
-<title>proc~orbel_el2xv_vec</title>
-<g id="a_proc~~orbel_scget~~CalledByGraph_node8"><a xlink:href=".././proc/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
-<polygon fill="#d9534f" stroke="#d9534f" points="216,-149 126,-149 126,-125 216,-125 216,-149"/>
-<text text-anchor="middle" x="171" y="-134.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv_vec</text>
-</a>
-</g>
-</g>
-<!-- proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv -->
-<g id="proc~~orbel_scget~~CalledByGraph_edge7" class="edge">
-<title>proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv</title>
-<path fill="none" stroke="#000000" d="M216.14,-137C224.63,-137 233.51,-137 241.95,-137"/>
-<polygon fill="#000000" stroke="#000000" points="241.97,-140.5 251.97,-137 241.97,-133.5 241.97,-140.5"/>
-</g>
 <!-- proc~drift_kepu -->
-<g id="proc~~orbel_scget~~CalledByGraph_node9" class="node">
+<g id="proc~~orbel_scget~~CalledByGraph_node8" class="node">
 <title>proc~drift_kepu</title>
-<g id="a_proc~~orbel_scget~~CalledByGraph_node9"><a xlink:href=".././proc/drift_kepu.html" xlink:title="drift_kepu">
+<g id="a_proc~~orbel_scget~~CalledByGraph_node8"><a xlink:href=".././proc/drift_kepu.html" xlink:title="drift_kepu">
 <polygon fill="#d9534f" stroke="#d9534f" points="424,-24 364,-24 364,0 424,0 424,-24"/>
 <text text-anchor="middle" x="394" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift_kepu</text>
 </a>
 </g>
 </g>
 <!-- proc~drift_kepu&#45;&gt;proc~drift_kepu_guess -->
-<g id="proc~~orbel_scget~~CalledByGraph_edge10" class="edge">
+<g id="proc~~orbel_scget~~CalledByGraph_edge9" class="edge">
 <title>proc~drift_kepu&#45;&gt;proc~drift_kepu_guess</title>
 <path fill="none" stroke="#000000" d="M424.05,-12C434.56,-12 446.82,-12 458.87,-12"/>
 <polygon fill="#000000" stroke="#000000" points="458.9,-15.5 468.9,-12 458.9,-8.5 458.9,-15.5"/>
 </g>
+<!-- proc~orbel_el2xv_vec -->
+<g id="proc~~orbel_scget~~CalledByGraph_node9" class="node">
+<title>proc~orbel_el2xv_vec</title>
+<g id="a_proc~~orbel_scget~~CalledByGraph_node9"><a xlink:href=".././proc/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
+<polygon fill="#d9534f" stroke="#d9534f" points="216,-149 126,-149 126,-125 216,-125 216,-149"/>
+<text text-anchor="middle" x="171" y="-134.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv_vec</text>
+</a>
+</g>
+</g>
+<!-- proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv -->
+<g id="proc~~orbel_scget~~CalledByGraph_edge10" class="edge">
+<title>proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv</title>
+<path fill="none" stroke="#000000" d="M216.14,-137C224.63,-137 233.51,-137 241.95,-137"/>
+<polygon fill="#000000" stroke="#000000" points="241.97,-140.5 251.97,-137 241.97,-133.5 241.97,-140.5"/>
+</g>
 <!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd -->
-<g id="proc~~orbel_scget~~CalledByGraph_edge8" class="edge">
+<g id="proc~~orbel_scget~~CalledByGraph_edge7" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_esolmd</title>
 <path fill="none" stroke="#000000" d="M433.3,-123.7C444.12,-125.6 456.02,-127.68 467.32,-129.66"/>
 <polygon fill="#000000" stroke="#000000" points="467.02,-133.16 477.47,-131.43 468.23,-126.26 467.02,-133.16"/>
 </g>
 <!-- proc~orbel_ehybrid&#45;&gt;proc~orbel_eget -->
-<g id="proc~~orbel_scget~~CalledByGraph_edge9" class="edge">
+<g id="proc~~orbel_scget~~CalledByGraph_edge8" class="edge">
 <title>proc~orbel_ehybrid&#45;&gt;proc~orbel_eget</title>
 <path fill="none" stroke="#000000" d="M433.3,-110.3C446.18,-108.04 460.6,-105.52 473.7,-103.23"/>
 <polygon fill="#000000" stroke="#000000" points="474.63,-106.62 483.87,-101.45 473.42,-99.72 474.63,-106.62"/>
@@ -473,7 +473,7 @@ <h3 class="panel-title">Called by</h3>
 </g>
 </g>
 <!-- interface~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv_vec -->
-<g id="proc~~orbel_scget~~CalledByGraph_edge12" class="edge">
+<g id="proc~~orbel_scget~~CalledByGraph_edge13" class="edge">
 <title>interface~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv_vec</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M90.07,-137C98.28,-137 106.96,-137 115.44,-137"/>
 <polygon fill="#000000" stroke="#000000" points="115.66,-140.5 125.66,-137 115.66,-133.5 115.66,-140.5"/>
@@ -488,7 +488,7 @@ <h3 class="panel-title">Called by</h3>
 </g>
 </g>
 <!-- proc~drift_dan&#45;&gt;proc~drift_kepu -->
-<g id="proc~~orbel_scget~~CalledByGraph_edge13" class="edge">
+<g id="proc~~orbel_scget~~CalledByGraph_edge12" class="edge">
 <title>proc~drift_dan&#45;&gt;proc~drift_kepu</title>
 <path fill="none" stroke="#000000" d="M313.1,-12C325.37,-12 340.19,-12 353.72,-12"/>
 <polygon fill="#000000" stroke="#000000" points="353.75,-15.5 363.75,-12 353.75,-8.5 353.75,-15.5"/>
diff --git a/docs/proc/orbel_schget.html b/docs/proc/orbel_schget.html
index d96d990bb..ce569d35a 100644
--- a/docs/proc/orbel_schget.html
+++ b/docs/proc/orbel_schget.html
@@ -301,72 +301,72 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="none" stroke="black" points="637,-44 563,-44 563,-20 637,-20 637,-44"/>
 <text text-anchor="middle" x="600" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">orbel_schget</text>
 </g>
-<!-- proc~orbel_fget -->
-<g id="proc~~orbel_schget~~CalledByGraph_node2" class="node">
-<title>proc~orbel_fget</title>
-<g id="a_proc~~orbel_schget~~CalledByGraph_node2"><a xlink:href=".././proc/orbel_fget.html" xlink:title="orbel_fget">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="527,-24 466,-24 466,0 527,0 527,-24"/>
-<text text-anchor="middle" x="496.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fget</text>
-</a>
-</g>
-</g>
-<!-- proc~orbel_fget&#45;&gt;proc~orbel_schget -->
-<g id="proc~~orbel_schget~~CalledByGraph_edge1" class="edge">
-<title>proc~orbel_fget&#45;&gt;proc~orbel_schget</title>
-<path fill="none" stroke="#000000" d="M527.13,-17.84C535.12,-19.41 543.96,-21.16 552.63,-22.86"/>
-<polygon fill="#000000" stroke="#000000" points="552.18,-26.34 562.67,-24.84 553.53,-19.47 552.18,-26.34"/>
-</g>
 <!-- proc~orbel_el2xv -->
-<g id="proc~~orbel_schget~~CalledByGraph_node3" class="node">
+<g id="proc~~orbel_schget~~CalledByGraph_node2" class="node">
 <title>proc~orbel_el2xv</title>
-<g id="a_proc~~orbel_schget~~CalledByGraph_node3"><a xlink:href=".././proc/orbel_el2xv.html" xlink:title="orbel_el2xv">
+<g id="a_proc~~orbel_schget~~CalledByGraph_node2"><a xlink:href=".././proc/orbel_el2xv.html" xlink:title="orbel_el2xv">
 <polygon fill="#d9534f" stroke="#d9534f" points="319,-44 252,-44 252,-20 319,-20 319,-44"/>
 <text text-anchor="middle" x="285.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_el2xv&#45;&gt;proc~orbel_schget -->
-<g id="proc~~orbel_schget~~CalledByGraph_edge2" class="edge">
+<g id="proc~~orbel_schget~~CalledByGraph_edge1" class="edge">
 <title>proc~orbel_el2xv&#45;&gt;proc~orbel_schget</title>
 <path fill="none" stroke="#000000" d="M319.25,-32.58C330.57,-32.75 343.34,-32.91 355,-33 431.44,-33.56 450.56,-33.53 527,-33 535.27,-32.94 544.06,-32.85 552.57,-32.74"/>
 <polygon fill="#000000" stroke="#000000" points="552.79,-36.24 562.74,-32.6 552.7,-29.24 552.79,-36.24"/>
 </g>
 <!-- proc~orbel_fhybrid -->
-<g id="proc~~orbel_schget~~CalledByGraph_node4" class="node">
+<g id="proc~~orbel_schget~~CalledByGraph_node5" class="node">
 <title>proc~orbel_fhybrid</title>
-<g id="a_proc~~orbel_schget~~CalledByGraph_node4"><a xlink:href=".././proc/orbel_fhybrid.html" xlink:title="orbel_fhybrid">
+<g id="a_proc~~orbel_schget~~CalledByGraph_node5"><a xlink:href=".././proc/orbel_fhybrid.html" xlink:title="orbel_fhybrid">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="430,-24 355,-24 355,0 430,0 430,-24"/>
 <text text-anchor="middle" x="392.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fhybrid</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid -->
-<g id="proc~~orbel_schget~~CalledByGraph_edge5" class="edge">
+<g id="proc~~orbel_schget~~CalledByGraph_edge6" class="edge">
 <title>proc~orbel_el2xv&#45;&gt;proc~orbel_fhybrid</title>
 <path fill="none" stroke="#000000" d="M319.15,-25.78C327.28,-24.23 336.16,-22.54 344.83,-20.89"/>
 <polygon fill="#000000" stroke="#000000" points="345.68,-24.29 354.85,-18.98 344.37,-17.41 345.68,-24.29"/>
 </g>
-<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_fget -->
-<g id="proc~~orbel_schget~~CalledByGraph_edge3" class="edge">
-<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_fget</title>
-<path fill="none" stroke="#000000" d="M430.04,-12C438.41,-12 447.35,-12 455.84,-12"/>
-<polygon fill="#000000" stroke="#000000" points="455.92,-15.5 465.92,-12 455.92,-8.5 455.92,-15.5"/>
+<!-- proc~orbel_fget -->
+<g id="proc~~orbel_schget~~CalledByGraph_node3" class="node">
+<title>proc~orbel_fget</title>
+<g id="a_proc~~orbel_schget~~CalledByGraph_node3"><a xlink:href=".././proc/orbel_fget.html" xlink:title="orbel_fget">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="527,-24 466,-24 466,0 527,0 527,-24"/>
+<text text-anchor="middle" x="496.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_fget</text>
+</a>
+</g>
+</g>
+<!-- proc~orbel_fget&#45;&gt;proc~orbel_schget -->
+<g id="proc~~orbel_schget~~CalledByGraph_edge2" class="edge">
+<title>proc~orbel_fget&#45;&gt;proc~orbel_schget</title>
+<path fill="none" stroke="#000000" d="M527.13,-17.84C535.12,-19.41 543.96,-21.16 552.63,-22.86"/>
+<polygon fill="#000000" stroke="#000000" points="552.18,-26.34 562.67,-24.84 553.53,-19.47 552.18,-26.34"/>
 </g>
 <!-- proc~orbel_el2xv_vec -->
-<g id="proc~~orbel_schget~~CalledByGraph_node5" class="node">
+<g id="proc~~orbel_schget~~CalledByGraph_node4" class="node">
 <title>proc~orbel_el2xv_vec</title>
-<g id="a_proc~~orbel_schget~~CalledByGraph_node5"><a xlink:href=".././proc/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
+<g id="a_proc~~orbel_schget~~CalledByGraph_node4"><a xlink:href=".././proc/orbel_el2xv_vec.html" xlink:title="orbel_el2xv_vec">
 <polygon fill="#d9534f" stroke="#d9534f" points="216,-44 126,-44 126,-20 216,-20 216,-44"/>
 <text text-anchor="middle" x="171" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_el2xv_vec</text>
 </a>
 </g>
 </g>
 <!-- proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv -->
-<g id="proc~~orbel_schget~~CalledByGraph_edge4" class="edge">
+<g id="proc~~orbel_schget~~CalledByGraph_edge3" class="edge">
 <title>proc~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv</title>
 <path fill="none" stroke="#000000" d="M216.14,-32C224.63,-32 233.51,-32 241.95,-32"/>
 <polygon fill="#000000" stroke="#000000" points="241.97,-35.5 251.97,-32 241.97,-28.5 241.97,-35.5"/>
 </g>
+<!-- proc~orbel_fhybrid&#45;&gt;proc~orbel_fget -->
+<g id="proc~~orbel_schget~~CalledByGraph_edge4" class="edge">
+<title>proc~orbel_fhybrid&#45;&gt;proc~orbel_fget</title>
+<path fill="none" stroke="#000000" d="M430.04,-12C438.41,-12 447.35,-12 455.84,-12"/>
+<polygon fill="#000000" stroke="#000000" points="455.92,-15.5 465.92,-12 455.92,-8.5 455.92,-15.5"/>
+</g>
 <!-- interface~orbel_el2xv_vec -->
 <g id="proc~~orbel_schget~~CalledByGraph_node6" class="node">
 <title>interface~orbel_el2xv_vec</title>
@@ -377,7 +377,7 @@ <h3 class="panel-title">Called by</h3>
 </g>
 </g>
 <!-- interface~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv_vec -->
-<g id="proc~~orbel_schget~~CalledByGraph_edge6" class="edge">
+<g id="proc~~orbel_schget~~CalledByGraph_edge5" class="edge">
 <title>interface~orbel_el2xv_vec&#45;&gt;proc~orbel_el2xv_vec</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M90.07,-32C98.28,-32 106.96,-32 115.44,-32"/>
 <polygon fill="#000000" stroke="#000000" points="115.66,-35.5 125.66,-32 115.66,-28.5 115.66,-35.5"/>
diff --git a/docs/proc/orbel_xv2el_vec.html b/docs/proc/orbel_xv2el_vec.html
index 3678dcd5b..648a0305c 100644
--- a/docs/proc/orbel_xv2el_vec.html
+++ b/docs/proc/orbel_xv2el_vec.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~208"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~206"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_chk_ind.html b/docs/proc/rmvs_chk_ind.html
index 6c4b550df..bc6e11815 100644
--- a/docs/proc/rmvs_chk_ind.html
+++ b/docs/proc/rmvs_chk_ind.html
@@ -363,65 +363,65 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M463.07,-33C471.25,-33 480,-33 488.51,-33"/>
 <polygon fill="#000000" stroke="#000000" points="488.72,-36.5 498.72,-33 488.72,-29.5 488.72,-36.5"/>
 </g>
-<!-- proc~symba_encounter_check_one -->
+<!-- proc~rmvs_encounter_check_tp -->
 <g id="proc~~rmvs_chk_ind~~CalledByGraph_node3" class="node">
-<title>proc~symba_encounter_check_one</title>
-<g id="a_proc~~rmvs_chk_ind~~CalledByGraph_node3"><a xlink:href=".././proc/symba_encounter_check_one.html" xlink:title="symba_encounter_check_one">
-<polygon fill="#d9534f" stroke="#d9534f" points="348,-66 192,-66 192,-42 348,-42 348,-66"/>
-<text text-anchor="middle" x="270" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_one</text>
+<title>proc~rmvs_encounter_check_tp</title>
+<g id="a_proc~~rmvs_chk_ind~~CalledByGraph_node3"><a xlink:href=".././proc/rmvs_encounter_check_tp.html" xlink:title="rmvs_encounter_check_tp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="339.5,-66 200.5,-66 200.5,-42 339.5,-42 339.5,-66"/>
+<text text-anchor="middle" x="270" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_encounter_check_one&#45;&gt;interface~rmvs_chk_ind -->
+<!-- proc~rmvs_encounter_check_tp&#45;&gt;interface~rmvs_chk_ind -->
 <g id="proc~~rmvs_chk_ind~~CalledByGraph_edge2" class="edge">
-<title>proc~symba_encounter_check_one&#45;&gt;interface~rmvs_chk_ind</title>
-<path fill="none" stroke="#000000" d="M348.08,-43.32C356.82,-42.1 365.53,-40.9 373.76,-39.76"/>
-<polygon fill="#000000" stroke="#000000" points="374.45,-43.19 383.88,-38.35 373.49,-36.26 374.45,-43.19"/>
+<title>proc~rmvs_encounter_check_tp&#45;&gt;interface~rmvs_chk_ind</title>
+<path fill="none" stroke="#000000" d="M339.66,-44.48C351.17,-42.89 362.9,-41.26 373.77,-39.75"/>
+<polygon fill="#000000" stroke="#000000" points="374.48,-43.19 383.9,-38.35 373.52,-36.26 374.48,-43.19"/>
 </g>
-<!-- proc~rmvs_encounter_check_tp -->
+<!-- proc~symba_encounter_check_one -->
 <g id="proc~~rmvs_chk_ind~~CalledByGraph_node4" class="node">
-<title>proc~rmvs_encounter_check_tp</title>
-<g id="a_proc~~rmvs_chk_ind~~CalledByGraph_node4"><a xlink:href=".././proc/rmvs_encounter_check_tp.html" xlink:title="rmvs_encounter_check_tp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="339.5,-24 200.5,-24 200.5,0 339.5,0 339.5,-24"/>
-<text text-anchor="middle" x="270" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check_tp</text>
+<title>proc~symba_encounter_check_one</title>
+<g id="a_proc~~rmvs_chk_ind~~CalledByGraph_node4"><a xlink:href=".././proc/symba_encounter_check_one.html" xlink:title="symba_encounter_check_one">
+<polygon fill="#d9534f" stroke="#d9534f" points="348,-24 192,-24 192,0 348,0 348,-24"/>
+<text text-anchor="middle" x="270" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_one</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_encounter_check_tp&#45;&gt;interface~rmvs_chk_ind -->
+<!-- proc~symba_encounter_check_one&#45;&gt;interface~rmvs_chk_ind -->
 <g id="proc~~rmvs_chk_ind~~CalledByGraph_edge3" class="edge">
-<title>proc~rmvs_encounter_check_tp&#45;&gt;interface~rmvs_chk_ind</title>
-<path fill="none" stroke="#000000" d="M339.66,-21.52C351.17,-23.11 362.9,-24.74 373.77,-26.25"/>
-<polygon fill="#000000" stroke="#000000" points="373.52,-29.74 383.9,-27.65 374.48,-22.81 373.52,-29.74"/>
+<title>proc~symba_encounter_check_one&#45;&gt;interface~rmvs_chk_ind</title>
+<path fill="none" stroke="#000000" d="M348.08,-22.68C356.82,-23.9 365.53,-25.1 373.76,-26.24"/>
+<polygon fill="#000000" stroke="#000000" points="373.49,-29.74 383.88,-27.65 374.45,-22.81 373.49,-29.74"/>
 </g>
 <!-- interface~rmvs_encounter_check_tp -->
 <g id="proc~~rmvs_chk_ind~~CalledByGraph_node5" class="node">
 <title>interface~rmvs_encounter_check_tp</title>
 <g id="a_proc~~rmvs_chk_ind~~CalledByGraph_node5"><a xlink:href=".././interface/rmvs_encounter_check_tp.html" xlink:title="rmvs_encounter_check_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="147.5,-24 8.5,-24 8.5,0 147.5,0 147.5,-24"/>
-<text text-anchor="middle" x="78" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check_tp</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="147.5,-66 8.5,-66 8.5,-42 147.5,-42 147.5,-66"/>
+<text text-anchor="middle" x="78" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~rmvs_encounter_check_tp&#45;&gt;proc~rmvs_encounter_check_tp -->
-<g id="proc~~rmvs_chk_ind~~CalledByGraph_edge5" class="edge">
+<g id="proc~~rmvs_chk_ind~~CalledByGraph_edge4" class="edge">
 <title>interface~rmvs_encounter_check_tp&#45;&gt;proc~rmvs_encounter_check_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.59,-12C161.37,-12 175.94,-12 190.03,-12"/>
-<polygon fill="#000000" stroke="#000000" points="190.19,-15.5 200.19,-12 190.19,-8.5 190.19,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.59,-54C161.37,-54 175.94,-54 190.03,-54"/>
+<polygon fill="#000000" stroke="#000000" points="190.19,-57.5 200.19,-54 190.19,-50.5 190.19,-57.5"/>
 </g>
 <!-- interface~symba_encounter_check_one -->
 <g id="proc~~rmvs_chk_ind~~CalledByGraph_node6" class="node">
 <title>interface~symba_encounter_check_one</title>
 <g id="a_proc~~rmvs_chk_ind~~CalledByGraph_node6"><a xlink:href=".././interface/symba_encounter_check_one.html" xlink:title="symba_encounter_check_one">
-<polygon fill="#a7506f" stroke="#a7506f" points="156,-66 0,-66 0,-42 156,-42 156,-66"/>
-<text text-anchor="middle" x="78" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_one</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="156,-24 0,-24 0,0 156,0 156,-24"/>
+<text text-anchor="middle" x="78" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check_one</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_encounter_check_one&#45;&gt;proc~symba_encounter_check_one -->
-<g id="proc~~rmvs_chk_ind~~CalledByGraph_edge4" class="edge">
+<g id="proc~~rmvs_chk_ind~~CalledByGraph_edge5" class="edge">
 <title>interface~symba_encounter_check_one&#45;&gt;proc~symba_encounter_check_one</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.01,-54C164.51,-54 173.21,-54 181.83,-54"/>
-<polygon fill="#000000" stroke="#000000" points="181.88,-57.5 191.88,-54 181.88,-50.5 181.88,-57.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.01,-12C164.51,-12 173.21,-12 181.83,-12"/>
+<polygon fill="#000000" stroke="#000000" points="181.88,-15.5 191.88,-12 181.88,-8.5 181.88,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/rmvs_discard_tp.html b/docs/proc/rmvs_discard_tp.html
index a587d65a6..742cba17c 100644
--- a/docs/proc/rmvs_discard_tp.html
+++ b/docs/proc/rmvs_discard_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~366"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~362"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~112"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~119"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~205"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~208"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_encounter_check_tp.html b/docs/proc/rmvs_encounter_check_tp.html
index f289efc24..c72c688b4 100644
--- a/docs/proc/rmvs_encounter_check_tp.html
+++ b/docs/proc/rmvs_encounter_check_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~384"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~380"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~114"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~121"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_end_planetocentric.html b/docs/proc/rmvs_end_planetocentric.html
index 865eacbcf..c111f4ade 100644
--- a/docs/proc/rmvs_end_planetocentric.html
+++ b/docs/proc/rmvs_end_planetocentric.html
@@ -234,7 +234,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl~17"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-pl~16"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -249,7 +249,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-tp~10"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-tp~9"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_interp_in.html b/docs/proc/rmvs_interp_in.html
index 8112f75d7..fc145a256 100644
--- a/docs/proc/rmvs_interp_in.html
+++ b/docs/proc/rmvs_interp_in.html
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl~13"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-pl~12"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~64"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~68"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -281,7 +281,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~113"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~115"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_interp_out.html b/docs/proc/rmvs_interp_out.html
index f0a23ae97..60bd62276 100644
--- a/docs/proc/rmvs_interp_out.html
+++ b/docs/proc/rmvs_interp_out.html
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl~11"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-pl~10"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_kick_getacch_tp.html b/docs/proc/rmvs_kick_getacch_tp.html
index a00e313b7..cc1d2b91e 100644
--- a/docs/proc/rmvs_kick_getacch_tp.html
+++ b/docs/proc/rmvs_kick_getacch_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~379"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~375"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~113"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~120"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~206"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~209"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_make_planetocentric.html b/docs/proc/rmvs_make_planetocentric.html
index 5eeacfd50..377efb096 100644
--- a/docs/proc/rmvs_make_planetocentric.html
+++ b/docs/proc/rmvs_make_planetocentric.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~115"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~117"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl~15"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-pl~14"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -281,7 +281,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-tp~8"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-tp~7"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_peri_tp.html b/docs/proc/rmvs_peri_tp.html
index da43453ad..21bb0bd47 100644
--- a/docs/proc/rmvs_peri_tp.html
+++ b/docs/proc/rmvs_peri_tp.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-tp~9"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-tp~8"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl~16"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-pl~15"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -341,7 +341,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~116"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~118"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -381,27 +381,27 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="75,-45 0,-45 0,-21 75,-21 75,-45"/>
 <text text-anchor="middle" x="37.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_peri_tp</text>
 </g>
-<!-- xpc -->
+<!-- vpc -->
 <g id="proc~~rmvs_peri_tp~~CallsGraph_node2" class="node">
-<title>xpc</title>
+<title>vpc</title>
 <polygon fill="#777777" stroke="#777777" points="165,-66 111,-66 111,-42 165,-42 165,-66"/>
-<text text-anchor="middle" x="138" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xpc</text>
+<text text-anchor="middle" x="138" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vpc</text>
 </g>
-<!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
+<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
 <g id="proc~~rmvs_peri_tp~~CallsGraph_edge1" class="edge">
-<title>proc~rmvs_peri_tp&#45;&gt;xpc</title>
+<title>proc~rmvs_peri_tp&#45;&gt;vpc</title>
 <path fill="none" stroke="#000000" d="M75.18,-40.82C83.58,-42.61 92.5,-44.51 100.88,-46.3"/>
 <polygon fill="#000000" stroke="#000000" points="100.24,-49.74 110.75,-48.4 101.7,-42.9 100.24,-49.74"/>
 </g>
-<!-- vpc -->
+<!-- xpc -->
 <g id="proc~~rmvs_peri_tp~~CallsGraph_node3" class="node">
-<title>vpc</title>
+<title>xpc</title>
 <polygon fill="#777777" stroke="#777777" points="165,-24 111,-24 111,0 165,0 165,-24"/>
-<text text-anchor="middle" x="138" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vpc</text>
+<text text-anchor="middle" x="138" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xpc</text>
 </g>
-<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
+<!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
 <g id="proc~~rmvs_peri_tp~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_peri_tp&#45;&gt;vpc</title>
+<title>proc~rmvs_peri_tp&#45;&gt;xpc</title>
 <path fill="none" stroke="#000000" d="M75.18,-25.18C83.58,-23.39 92.5,-21.49 100.88,-19.7"/>
 <polygon fill="#000000" stroke="#000000" points="101.7,-23.1 110.75,-17.6 100.24,-16.26 101.7,-23.1"/>
 </g>
diff --git a/docs/proc/rmvs_setup_initialize_system.html b/docs/proc/rmvs_setup_initialize_system.html
index 8a7cbefb1..fcad7914d 100644
--- a/docs/proc/rmvs_setup_initialize_system.html
+++ b/docs/proc/rmvs_setup_initialize_system.html
@@ -241,7 +241,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~381"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~377"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -256,7 +256,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~208"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~211"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_setup_pl.html b/docs/proc/rmvs_setup_pl.html
index dd2e79f01..f952ede09 100644
--- a/docs/proc/rmvs_setup_pl.html
+++ b/docs/proc/rmvs_setup_pl.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~380"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~376"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~207"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~210"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_setup_tp.html b/docs/proc/rmvs_setup_tp.html
index 982478130..24000d217 100644
--- a/docs/proc/rmvs_setup_tp.html
+++ b/docs/proc/rmvs_setup_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~382"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~378"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~209"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~212"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_step_in.html b/docs/proc/rmvs_step_in.html
index 52ae4eda8..6c69b843b 100644
--- a/docs/proc/rmvs_step_in.html
+++ b/docs/proc/rmvs_step_in.html
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl~14"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-pl~13"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-tp~7"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-tp~6"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -281,7 +281,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~114"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~116"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -348,77 +348,77 @@ <h3 class="panel-title">Calls</h3>
 <!-- proc~rmvs_step_in -->
 <g id="proc~~rmvs_step_in~~CallsGraph_node1" class="node">
 <title>proc~rmvs_step_in</title>
-<polygon fill="none" stroke="black" points="76,-66 0,-66 0,-42 76,-42 76,-66"/>
-<text text-anchor="middle" x="38" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_step_in</text>
+<polygon fill="none" stroke="black" points="76,-87 0,-87 0,-63 76,-63 76,-87"/>
+<text text-anchor="middle" x="38" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_step_in</text>
 </g>
-<!-- proc~rmvs_peri_tp -->
+<!-- proc~rmvs_make_planetocentric -->
 <g id="proc~~rmvs_step_in~~CallsGraph_node2" class="node">
-<title>proc~rmvs_peri_tp</title>
-<g id="a_proc~~rmvs_step_in~~CallsGraph_node2"><a xlink:href=".././proc/rmvs_peri_tp.html" xlink:title="rmvs_peri_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="220,-108 145,-108 145,-84 220,-84 220,-108"/>
-<text text-anchor="middle" x="182.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_peri_tp</text>
+<title>proc~rmvs_make_planetocentric</title>
+<g id="a_proc~~rmvs_step_in~~CallsGraph_node2"><a xlink:href=".././proc/rmvs_make_planetocentric.html" xlink:title="rmvs_make_planetocentric">
+<polygon fill="#d9534f" stroke="#d9534f" points="253,-129 112,-129 112,-105 253,-105 253,-129"/>
+<text text-anchor="middle" x="182.5" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_make_planetocentric</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp -->
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric -->
 <g id="proc~~rmvs_step_in~~CallsGraph_edge1" class="edge">
-<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp</title>
-<path fill="none" stroke="#000000" d="M76.07,-64.93C94.05,-70.22 115.83,-76.64 134.92,-82.27"/>
-<polygon fill="#000000" stroke="#000000" points="134.04,-85.66 144.62,-85.13 136.01,-78.94 134.04,-85.66"/>
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric</title>
+<path fill="none" stroke="#000000" d="M76.07,-85.93C92.77,-90.85 112.75,-96.74 130.81,-102.06"/>
+<polygon fill="#000000" stroke="#000000" points="130.02,-105.48 140.61,-104.95 132,-98.76 130.02,-105.48"/>
 </g>
-<!-- proc~rmvs_make_planetocentric -->
+<!-- proc~rmvs_end_planetocentric -->
 <g id="proc~~rmvs_step_in~~CallsGraph_node3" class="node">
-<title>proc~rmvs_make_planetocentric</title>
-<g id="a_proc~~rmvs_step_in~~CallsGraph_node3"><a xlink:href=".././proc/rmvs_make_planetocentric.html" xlink:title="rmvs_make_planetocentric">
-<polygon fill="#d9534f" stroke="#d9534f" points="253,-66 112,-66 112,-42 253,-42 253,-66"/>
-<text text-anchor="middle" x="182.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_make_planetocentric</text>
+<title>proc~rmvs_end_planetocentric</title>
+<g id="a_proc~~rmvs_step_in~~CallsGraph_node3"><a xlink:href=".././proc/rmvs_end_planetocentric.html" xlink:title="rmvs_end_planetocentric">
+<polygon fill="#d9534f" stroke="#d9534f" points="249,-87 116,-87 116,-63 249,-63 249,-87"/>
+<text text-anchor="middle" x="182.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_end_planetocentric</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric -->
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric -->
 <g id="proc~~rmvs_step_in~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric</title>
-<path fill="none" stroke="#000000" d="M76.07,-54C84.04,-54 92.75,-54 101.65,-54"/>
-<polygon fill="#000000" stroke="#000000" points="101.74,-57.5 111.74,-54 101.74,-50.5 101.74,-57.5"/>
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric</title>
+<path fill="none" stroke="#000000" d="M76.07,-75C85.22,-75 95.36,-75 105.63,-75"/>
+<polygon fill="#000000" stroke="#000000" points="105.91,-78.5 115.91,-75 105.91,-71.5 105.91,-78.5"/>
 </g>
-<!-- proc~rmvs_end_planetocentric -->
+<!-- proc~rmvs_peri_tp -->
 <g id="proc~~rmvs_step_in~~CallsGraph_node4" class="node">
-<title>proc~rmvs_end_planetocentric</title>
-<g id="a_proc~~rmvs_step_in~~CallsGraph_node4"><a xlink:href=".././proc/rmvs_end_planetocentric.html" xlink:title="rmvs_end_planetocentric">
-<polygon fill="#d9534f" stroke="#d9534f" points="249,-24 116,-24 116,0 249,0 249,-24"/>
-<text text-anchor="middle" x="182.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_end_planetocentric</text>
+<title>proc~rmvs_peri_tp</title>
+<g id="a_proc~~rmvs_step_in~~CallsGraph_node4"><a xlink:href=".././proc/rmvs_peri_tp.html" xlink:title="rmvs_peri_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="220,-45 145,-45 145,-21 220,-21 220,-45"/>
+<text text-anchor="middle" x="182.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_peri_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric -->
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp -->
 <g id="proc~~rmvs_step_in~~CallsGraph_edge3" class="edge">
-<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric</title>
-<path fill="none" stroke="#000000" d="M76.07,-43.07C92.77,-38.15 112.75,-32.26 130.81,-26.94"/>
-<polygon fill="#000000" stroke="#000000" points="132,-30.24 140.61,-24.05 130.02,-23.52 132,-30.24"/>
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp</title>
+<path fill="none" stroke="#000000" d="M76.07,-64.07C94.05,-58.78 115.83,-52.36 134.92,-46.73"/>
+<polygon fill="#000000" stroke="#000000" points="136.01,-50.06 144.62,-43.87 134.04,-43.34 136.01,-50.06"/>
 </g>
-<!-- xpc -->
+<!-- vpc -->
 <g id="proc~~rmvs_step_in~~CallsGraph_node5" class="node">
-<title>xpc</title>
-<polygon fill="#777777" stroke="#777777" points="343,-129 289,-129 289,-105 343,-105 343,-129"/>
-<text text-anchor="middle" x="316" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xpc</text>
+<title>vpc</title>
+<polygon fill="#777777" stroke="#777777" points="343,-66 289,-66 289,-42 343,-42 343,-66"/>
+<text text-anchor="middle" x="316" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vpc</text>
 </g>
-<!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
+<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
 <g id="proc~~rmvs_step_in~~CallsGraph_edge4" class="edge">
-<title>proc~rmvs_peri_tp&#45;&gt;xpc</title>
-<path fill="none" stroke="#000000" d="M220.13,-101.85C238.51,-104.79 260.7,-108.33 278.99,-111.25"/>
-<polygon fill="#000000" stroke="#000000" points="278.55,-114.72 288.98,-112.84 279.66,-107.81 278.55,-114.72"/>
+<title>proc~rmvs_peri_tp&#45;&gt;vpc</title>
+<path fill="none" stroke="#000000" d="M220.13,-38.85C238.51,-41.79 260.7,-45.33 278.99,-48.25"/>
+<polygon fill="#000000" stroke="#000000" points="278.55,-51.72 288.98,-49.84 279.66,-44.81 278.55,-51.72"/>
 </g>
-<!-- vpc -->
+<!-- xpc -->
 <g id="proc~~rmvs_step_in~~CallsGraph_node6" class="node">
-<title>vpc</title>
-<polygon fill="#777777" stroke="#777777" points="343,-87 289,-87 289,-63 343,-63 343,-87"/>
-<text text-anchor="middle" x="316" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vpc</text>
+<title>xpc</title>
+<polygon fill="#777777" stroke="#777777" points="343,-24 289,-24 289,0 343,0 343,-24"/>
+<text text-anchor="middle" x="316" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xpc</text>
 </g>
-<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
+<!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
 <g id="proc~~rmvs_step_in~~CallsGraph_edge5" class="edge">
-<title>proc~rmvs_peri_tp&#45;&gt;vpc</title>
-<path fill="none" stroke="#000000" d="M220.13,-90.15C238.51,-87.21 260.7,-83.67 278.99,-80.75"/>
-<polygon fill="#000000" stroke="#000000" points="279.66,-84.19 288.98,-79.16 278.55,-77.28 279.66,-84.19"/>
+<title>proc~rmvs_peri_tp&#45;&gt;xpc</title>
+<path fill="none" stroke="#000000" d="M220.13,-27.15C238.51,-24.21 260.7,-20.67 278.99,-17.75"/>
+<polygon fill="#000000" stroke="#000000" points="279.66,-21.19 288.98,-16.16 278.55,-14.28 279.66,-21.19"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/rmvs_step_out.html b/docs/proc/rmvs_step_out.html
index f29d7ee7b..967208cdf 100644
--- a/docs/proc/rmvs_step_out.html
+++ b/docs/proc/rmvs_step_out.html
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl~12"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-pl~11"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -267,7 +267,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-tp~6"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-tp~5"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -282,7 +282,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~63"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~67"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -297,7 +297,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~112"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~114"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -398,7 +398,7 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="#000000" stroke="#000000" points="112.89,-86.92 122.12,-81.71 111.66,-80.03 112.89,-86.92"/>
 </g>
 <!-- util_exit -->
-<g id="proc~~rmvs_step_out~~CallsGraph_node6" class="node">
+<g id="proc~~rmvs_step_out~~CallsGraph_node4" class="node">
 <title>util_exit</title>
 <polygon fill="#777777" stroke="#777777" points="335.5,-150 281.5,-150 281.5,-126 335.5,-126 335.5,-150"/>
 <text text-anchor="middle" x="308.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
@@ -409,72 +409,72 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M202.17,-130.06C223.82,-131.7 250.23,-133.69 271.19,-135.26"/>
 <polygon fill="#000000" stroke="#000000" points="271.06,-138.76 281.3,-136.03 271.59,-131.78 271.06,-138.76"/>
 </g>
-<!-- proc~rmvs_make_planetocentric -->
-<g id="proc~~rmvs_step_out~~CallsGraph_node4" class="node">
-<title>proc~rmvs_make_planetocentric</title>
-<g id="a_proc~~rmvs_step_out~~CallsGraph_node4"><a xlink:href=".././proc/rmvs_make_planetocentric.html" xlink:title="rmvs_make_planetocentric">
-<polygon fill="#d9534f" stroke="#d9534f" points="379,-108 238,-108 238,-84 379,-84 379,-108"/>
-<text text-anchor="middle" x="308.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_make_planetocentric</text>
+<!-- proc~rmvs_end_planetocentric -->
+<g id="proc~~rmvs_step_out~~CallsGraph_node5" class="node">
+<title>proc~rmvs_end_planetocentric</title>
+<g id="a_proc~~rmvs_step_out~~CallsGraph_node5"><a xlink:href=".././proc/rmvs_end_planetocentric.html" xlink:title="rmvs_end_planetocentric">
+<polygon fill="#d9534f" stroke="#d9534f" points="375,-108 242,-108 242,-84 375,-84 375,-108"/>
+<text text-anchor="middle" x="308.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_end_planetocentric</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric -->
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric -->
 <g id="proc~~rmvs_step_out~~CallsGraph_edge5" class="edge">
-<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric</title>
-<path fill="none" stroke="#000000" d="M198.72,-80.35C207.72,-81.65 217.68,-83.08 227.81,-84.54"/>
-<polygon fill="#000000" stroke="#000000" points="227.58,-88.04 237.98,-86 228.58,-81.11 227.58,-88.04"/>
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric</title>
+<path fill="none" stroke="#000000" d="M198.72,-80.35C208.91,-81.82 220.34,-83.46 231.86,-85.12"/>
+<polygon fill="#000000" stroke="#000000" points="231.58,-88.62 241.98,-86.58 232.58,-81.69 231.58,-88.62"/>
 </g>
 <!-- proc~rmvs_peri_tp -->
-<g id="proc~~rmvs_step_out~~CallsGraph_node5" class="node">
+<g id="proc~~rmvs_step_out~~CallsGraph_node6" class="node">
 <title>proc~rmvs_peri_tp</title>
-<g id="a_proc~~rmvs_step_out~~CallsGraph_node5"><a xlink:href=".././proc/rmvs_peri_tp.html" xlink:title="rmvs_peri_tp">
+<g id="a_proc~~rmvs_step_out~~CallsGraph_node6"><a xlink:href=".././proc/rmvs_peri_tp.html" xlink:title="rmvs_peri_tp">
 <polygon fill="#d9534f" stroke="#d9534f" points="346,-66 271,-66 271,-42 346,-42 346,-66"/>
 <text text-anchor="middle" x="308.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_peri_tp</text>
 </a>
 </g>
 </g>
 <!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp -->
-<g id="proc~~rmvs_step_out~~CallsGraph_edge4" class="edge">
+<g id="proc~~rmvs_step_out~~CallsGraph_edge6" class="edge">
 <title>proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp</title>
 <path fill="none" stroke="#000000" d="M198.72,-69.65C217.57,-66.94 240.65,-63.62 260.69,-60.73"/>
 <polygon fill="#000000" stroke="#000000" points="261.45,-64.16 270.85,-59.27 260.46,-57.23 261.45,-64.16"/>
 </g>
-<!-- proc~rmvs_end_planetocentric -->
+<!-- proc~rmvs_make_planetocentric -->
 <g id="proc~~rmvs_step_out~~CallsGraph_node7" class="node">
-<title>proc~rmvs_end_planetocentric</title>
-<g id="a_proc~~rmvs_step_out~~CallsGraph_node7"><a xlink:href=".././proc/rmvs_end_planetocentric.html" xlink:title="rmvs_end_planetocentric">
-<polygon fill="#d9534f" stroke="#d9534f" points="375,-24 242,-24 242,0 375,0 375,-24"/>
-<text text-anchor="middle" x="308.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_end_planetocentric</text>
+<title>proc~rmvs_make_planetocentric</title>
+<g id="a_proc~~rmvs_step_out~~CallsGraph_node7"><a xlink:href=".././proc/rmvs_make_planetocentric.html" xlink:title="rmvs_make_planetocentric">
+<polygon fill="#d9534f" stroke="#d9534f" points="379,-24 238,-24 238,0 379,0 379,-24"/>
+<text text-anchor="middle" x="308.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_make_planetocentric</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric -->
-<g id="proc~~rmvs_step_out~~CallsGraph_edge6" class="edge">
-<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric</title>
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric -->
+<g id="proc~~rmvs_step_out~~CallsGraph_edge4" class="edge">
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric</title>
 <path fill="none" stroke="#000000" d="M180.75,-62.96C195.89,-53.85 217.75,-41.51 238,-33 242.74,-31.01 247.74,-29.11 252.79,-27.34"/>
 <polygon fill="#000000" stroke="#000000" points="254.15,-30.58 262.52,-24.09 251.93,-23.94 254.15,-30.58"/>
 </g>
-<!-- xpc -->
+<!-- vpc -->
 <g id="proc~~rmvs_step_out~~CallsGraph_node8" class="node">
-<title>xpc</title>
+<title>vpc</title>
 <polygon fill="#777777" stroke="#777777" points="469,-87 415,-87 415,-63 469,-63 469,-87"/>
-<text text-anchor="middle" x="442" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xpc</text>
+<text text-anchor="middle" x="442" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vpc</text>
 </g>
-<!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
+<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
 <g id="proc~~rmvs_step_out~~CallsGraph_edge7" class="edge">
-<title>proc~rmvs_peri_tp&#45;&gt;xpc</title>
+<title>proc~rmvs_peri_tp&#45;&gt;vpc</title>
 <path fill="none" stroke="#000000" d="M346.13,-59.85C364.51,-62.79 386.7,-66.33 404.99,-69.25"/>
 <polygon fill="#000000" stroke="#000000" points="404.55,-72.72 414.98,-70.84 405.66,-65.81 404.55,-72.72"/>
 </g>
-<!-- vpc -->
+<!-- xpc -->
 <g id="proc~~rmvs_step_out~~CallsGraph_node9" class="node">
-<title>vpc</title>
+<title>xpc</title>
 <polygon fill="#777777" stroke="#777777" points="469,-45 415,-45 415,-21 469,-21 469,-45"/>
-<text text-anchor="middle" x="442" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vpc</text>
+<text text-anchor="middle" x="442" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xpc</text>
 </g>
-<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
+<!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
 <g id="proc~~rmvs_step_out~~CallsGraph_edge8" class="edge">
-<title>proc~rmvs_peri_tp&#45;&gt;vpc</title>
+<title>proc~rmvs_peri_tp&#45;&gt;xpc</title>
 <path fill="none" stroke="#000000" d="M346.13,-48.15C364.51,-45.21 386.7,-41.67 404.99,-38.75"/>
 <polygon fill="#000000" stroke="#000000" points="405.66,-42.19 414.98,-37.16 404.55,-35.28 405.66,-42.19"/>
 </g>
diff --git a/docs/proc/rmvs_step_system.html b/docs/proc/rmvs_step_system.html
index a0bb98e1f..5de6d78fb 100644
--- a/docs/proc/rmvs_step_system.html
+++ b/docs/proc/rmvs_step_system.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~383"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~379"></span>class(<a href='../type/rmvs_nbody_system.html'>rmvs_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~210"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~213"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -312,175 +312,175 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~rmvs_step_system~~CallsGraph Pages: 1 -->
-<svg id="procrmvs_step_systemCallsGraph" width="640pt" height="197pt"
- viewBox="0.00 0.00 640.00 197.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~rmvs_step_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 193)">
+<svg id="procrmvs_step_systemCallsGraph" width="640pt" height="218pt"
+ viewBox="0.00 0.00 640.00 218.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~rmvs_step_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 214)">
 <title>proc~~rmvs_step_system~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-193 636,-193 636,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-214 636,-214 636,4 -4,4"/>
 <!-- proc~rmvs_step_system -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node1" class="node">
 <title>proc~rmvs_step_system</title>
-<polygon fill="none" stroke="black" points="102,-64 0,-64 0,-40 102,-40 102,-64"/>
-<text text-anchor="middle" x="51" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_step_system</text>
+<polygon fill="none" stroke="black" points="102,-170 0,-170 0,-146 102,-146 102,-170"/>
+<text text-anchor="middle" x="51" y="-155.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_step_system</text>
 </g>
-<!-- proc~rmvs_step_out -->
+<!-- whm_step_system -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node2" class="node">
-<title>proc~rmvs_step_out</title>
-<g id="a_proc~~rmvs_step_system~~CallsGraph_node2"><a xlink:href=".././proc/rmvs_step_out.html" xlink:title="rmvs_step_out">
-<polygon fill="#d9534f" stroke="#d9534f" points="230,-105 147,-105 147,-81 230,-81 230,-105"/>
-<text text-anchor="middle" x="188.5" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_out</text>
-</a>
-</g>
+<title>whm_step_system</title>
+<polygon fill="#777777" stroke="#777777" points="239,-210 138,-210 138,-186 239,-186 239,-210"/>
+<text text-anchor="middle" x="188.5" y="-195.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_system</text>
 </g>
-<!-- proc~rmvs_step_system&#45;&gt;proc~rmvs_step_out -->
+<!-- proc~rmvs_step_system&#45;&gt;whm_step_system -->
 <g id="proc~~rmvs_step_system~~CallsGraph_edge1" class="edge">
-<title>proc~rmvs_step_system&#45;&gt;proc~rmvs_step_out</title>
-<path fill="none" stroke="#000000" d="M91.92,-64.08C106.27,-68.42 122.62,-73.37 137.7,-77.93"/>
-<polygon fill="#000000" stroke="#000000" points="136.81,-81.32 147.4,-80.87 138.84,-74.62 136.81,-81.32"/>
+<title>proc~rmvs_step_system&#45;&gt;whm_step_system</title>
+<path fill="none" stroke="#000000" d="M92.65,-170C106.46,-174.08 122.07,-178.68 136.57,-182.97"/>
+<polygon fill="#000000" stroke="#000000" points="135.82,-186.39 146.41,-185.87 137.81,-179.68 135.82,-186.39"/>
 </g>
 <!-- proc~rmvs_interp_out -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node3" class="node">
 <title>proc~rmvs_interp_out</title>
 <g id="a_proc~~rmvs_step_system~~CallsGraph_node3"><a xlink:href=".././proc/rmvs_interp_out.html" xlink:title="rmvs_interp_out">
-<polygon fill="#d9534f" stroke="#d9534f" points="365,-63 275,-63 275,-39 365,-39 365,-63"/>
-<text text-anchor="middle" x="320" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp_out</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="365,-171 275,-171 275,-147 365,-147 365,-171"/>
+<text text-anchor="middle" x="320" y="-156.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp_out</text>
 </a>
 </g>
 </g>
 <!-- proc~rmvs_step_system&#45;&gt;proc~rmvs_interp_out -->
 <g id="proc~~rmvs_step_system~~CallsGraph_edge2" class="edge">
 <title>proc~rmvs_step_system&#45;&gt;proc~rmvs_interp_out</title>
-<path fill="none" stroke="#000000" d="M102.22,-51.81C148.52,-51.64 217.08,-51.38 264.65,-51.2"/>
-<polygon fill="#000000" stroke="#000000" points="264.78,-54.7 274.76,-51.17 264.75,-47.7 264.78,-54.7"/>
+<path fill="none" stroke="#000000" d="M102.22,-158.19C148.52,-158.36 217.08,-158.62 264.65,-158.8"/>
+<polygon fill="#000000" stroke="#000000" points="264.75,-162.3 274.76,-158.83 264.78,-155.3 264.75,-162.3"/>
 </g>
-<!-- whm_step_system -->
+<!-- proc~rmvs_step_out -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node4" class="node">
-<title>whm_step_system</title>
-<polygon fill="#777777" stroke="#777777" points="239,-24 138,-24 138,0 239,0 239,-24"/>
-<text text-anchor="middle" x="188.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step_system</text>
+<title>proc~rmvs_step_out</title>
+<g id="a_proc~~rmvs_step_system~~CallsGraph_node4"><a xlink:href=".././proc/rmvs_step_out.html" xlink:title="rmvs_step_out">
+<polygon fill="#d9534f" stroke="#d9534f" points="230,-129 147,-129 147,-105 230,-105 230,-129"/>
+<text text-anchor="middle" x="188.5" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_out</text>
+</a>
 </g>
-<!-- proc~rmvs_step_system&#45;&gt;whm_step_system -->
+</g>
+<!-- proc~rmvs_step_system&#45;&gt;proc~rmvs_step_out -->
 <g id="proc~~rmvs_step_system~~CallsGraph_edge3" class="edge">
-<title>proc~rmvs_step_system&#45;&gt;whm_step_system</title>
-<path fill="none" stroke="#000000" d="M92.65,-40C106.46,-35.92 122.07,-31.32 136.57,-27.03"/>
-<polygon fill="#000000" stroke="#000000" points="137.81,-30.32 146.41,-24.13 135.82,-23.61 137.81,-30.32"/>
+<title>proc~rmvs_step_system&#45;&gt;proc~rmvs_step_out</title>
+<path fill="none" stroke="#000000" d="M91.92,-145.92C106.27,-141.58 122.62,-136.63 137.7,-132.07"/>
+<polygon fill="#000000" stroke="#000000" points="138.84,-135.38 147.4,-129.13 136.81,-128.68 138.84,-135.38"/>
 </g>
-<!-- proc~rmvs_interp_in -->
+<!-- util_exit -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node5" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="498.5,-171 444.5,-171 444.5,-147 498.5,-147 498.5,-171"/>
+<text text-anchor="middle" x="471.5" y="-156.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~rmvs_interp_out&#45;&gt;util_exit -->
+<g id="proc~~rmvs_step_system~~CallsGraph_edge4" class="edge">
+<title>proc~rmvs_interp_out&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M365.05,-159C387,-159 413.24,-159 434.05,-159"/>
+<polygon fill="#000000" stroke="#000000" points="434.08,-162.5 444.08,-159 434.08,-155.5 434.08,-162.5"/>
+</g>
+<!-- proc~rmvs_interp_in -->
+<g id="proc~~rmvs_step_system~~CallsGraph_node6" class="node">
 <title>proc~rmvs_interp_in</title>
-<g id="a_proc~~rmvs_step_system~~CallsGraph_node5"><a xlink:href=".././proc/rmvs_interp_in.html" xlink:title="rmvs_interp_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="361.5,-105 278.5,-105 278.5,-81 361.5,-81 361.5,-105"/>
-<text text-anchor="middle" x="320" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp_in</text>
+<g id="a_proc~~rmvs_step_system~~CallsGraph_node6"><a xlink:href=".././proc/rmvs_interp_in.html" xlink:title="rmvs_interp_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="361.5,-129 278.5,-129 278.5,-105 361.5,-105 361.5,-129"/>
+<text text-anchor="middle" x="320" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp_in</text>
 </a>
 </g>
 </g>
 <!-- proc~rmvs_step_out&#45;&gt;proc~rmvs_interp_in -->
-<g id="proc~~rmvs_step_system~~CallsGraph_edge4" class="edge">
+<g id="proc~~rmvs_step_system~~CallsGraph_edge5" class="edge">
 <title>proc~rmvs_step_out&#45;&gt;proc~rmvs_interp_in</title>
-<path fill="none" stroke="#000000" d="M230.12,-93C242.06,-93 255.27,-93 267.78,-93"/>
-<polygon fill="#000000" stroke="#000000" points="268.08,-96.5 278.08,-93 268.08,-89.5 268.08,-96.5"/>
+<path fill="none" stroke="#000000" d="M230.12,-117C242.06,-117 255.27,-117 267.78,-117"/>
+<polygon fill="#000000" stroke="#000000" points="268.08,-120.5 278.08,-117 268.08,-113.5 268.08,-120.5"/>
 </g>
 <!-- proc~rmvs_step_in -->
-<g id="proc~~rmvs_step_system~~CallsGraph_node6" class="node">
+<g id="proc~~rmvs_step_system~~CallsGraph_node7" class="node">
 <title>proc~rmvs_step_in</title>
-<g id="a_proc~~rmvs_step_system~~CallsGraph_node6"><a xlink:href=".././proc/rmvs_step_in.html" xlink:title="rmvs_step_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="358,-147 282,-147 282,-123 358,-123 358,-147"/>
-<text text-anchor="middle" x="320" y="-132.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_in</text>
+<g id="a_proc~~rmvs_step_system~~CallsGraph_node7"><a xlink:href=".././proc/rmvs_step_in.html" xlink:title="rmvs_step_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="358,-87 282,-87 282,-63 358,-63 358,-87"/>
+<text text-anchor="middle" x="320" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step_in</text>
 </a>
 </g>
 </g>
 <!-- proc~rmvs_step_out&#45;&gt;proc~rmvs_step_in -->
-<g id="proc~~rmvs_step_system~~CallsGraph_edge5" class="edge">
-<title>proc~rmvs_step_out&#45;&gt;proc~rmvs_step_in</title>
-<path fill="none" stroke="#000000" d="M226.61,-105.04C240.83,-109.65 257.25,-114.97 272.26,-119.84"/>
-<polygon fill="#000000" stroke="#000000" points="271.29,-123.21 281.89,-122.96 273.45,-116.55 271.29,-123.21"/>
-</g>
-<!-- util_exit -->
-<g id="proc~~rmvs_step_system~~CallsGraph_node7" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="498.5,-63 444.5,-63 444.5,-39 498.5,-39 498.5,-63"/>
-<text text-anchor="middle" x="471.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
-</g>
-<!-- proc~rmvs_interp_out&#45;&gt;util_exit -->
 <g id="proc~~rmvs_step_system~~CallsGraph_edge6" class="edge">
-<title>proc~rmvs_interp_out&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M365.05,-51C387,-51 413.24,-51 434.05,-51"/>
-<polygon fill="#000000" stroke="#000000" points="434.08,-54.5 444.08,-51 434.08,-47.5 434.08,-54.5"/>
+<title>proc~rmvs_step_out&#45;&gt;proc~rmvs_step_in</title>
+<path fill="none" stroke="#000000" d="M226.61,-104.96C240.83,-100.35 257.25,-95.03 272.26,-90.16"/>
+<polygon fill="#000000" stroke="#000000" points="273.45,-93.45 281.89,-87.04 271.29,-86.79 273.45,-93.45"/>
 </g>
 <!-- proc~rmvs_interp_in&#45;&gt;util_exit -->
 <g id="proc~~rmvs_step_system~~CallsGraph_edge7" class="edge">
 <title>proc~rmvs_interp_in&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M361.85,-81.52C384.54,-75.15 412.51,-67.29 434.4,-61.14"/>
-<polygon fill="#000000" stroke="#000000" points="435.61,-64.44 444.29,-58.36 433.71,-57.7 435.61,-64.44"/>
+<path fill="none" stroke="#000000" d="M361.85,-128.48C384.54,-134.85 412.51,-142.71 434.4,-148.86"/>
+<polygon fill="#000000" stroke="#000000" points="433.71,-152.3 444.29,-151.64 435.61,-145.56 433.71,-152.3"/>
 </g>
-<!-- proc~rmvs_peri_tp -->
+<!-- proc~rmvs_make_planetocentric -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node8" class="node">
-<title>proc~rmvs_peri_tp</title>
-<g id="a_proc~~rmvs_step_system~~CallsGraph_node8"><a xlink:href=".././proc/rmvs_peri_tp.html" xlink:title="rmvs_peri_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="509,-147 434,-147 434,-123 509,-123 509,-147"/>
-<text text-anchor="middle" x="471.5" y="-132.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_peri_tp</text>
+<title>proc~rmvs_make_planetocentric</title>
+<g id="a_proc~~rmvs_step_system~~CallsGraph_node8"><a xlink:href=".././proc/rmvs_make_planetocentric.html" xlink:title="rmvs_make_planetocentric">
+<polygon fill="#d9534f" stroke="#d9534f" points="542,-129 401,-129 401,-105 542,-105 542,-129"/>
+<text text-anchor="middle" x="471.5" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_make_planetocentric</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp -->
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric -->
 <g id="proc~~rmvs_step_system~~CallsGraph_edge8" class="edge">
-<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp</title>
-<path fill="none" stroke="#000000" d="M358.34,-135C378.18,-135 402.77,-135 423.86,-135"/>
-<polygon fill="#000000" stroke="#000000" points="423.89,-138.5 433.89,-135 423.89,-131.5 423.89,-138.5"/>
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric</title>
+<path fill="none" stroke="#000000" d="M358.34,-85.49C376.32,-90.54 398.19,-96.68 417.82,-102.2"/>
+<polygon fill="#000000" stroke="#000000" points="416.98,-105.6 427.56,-104.94 418.87,-98.86 416.98,-105.6"/>
 </g>
-<!-- proc~rmvs_make_planetocentric -->
+<!-- proc~rmvs_end_planetocentric -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node9" class="node">
-<title>proc~rmvs_make_planetocentric</title>
-<g id="a_proc~~rmvs_step_system~~CallsGraph_node9"><a xlink:href=".././proc/rmvs_make_planetocentric.html" xlink:title="rmvs_make_planetocentric">
-<polygon fill="#d9534f" stroke="#d9534f" points="542,-105 401,-105 401,-81 542,-81 542,-105"/>
-<text text-anchor="middle" x="471.5" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_make_planetocentric</text>
+<title>proc~rmvs_end_planetocentric</title>
+<g id="a_proc~~rmvs_step_system~~CallsGraph_node9"><a xlink:href=".././proc/rmvs_end_planetocentric.html" xlink:title="rmvs_end_planetocentric">
+<polygon fill="#d9534f" stroke="#d9534f" points="538,-87 405,-87 405,-63 538,-63 538,-87"/>
+<text text-anchor="middle" x="471.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_end_planetocentric</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric -->
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric -->
 <g id="proc~~rmvs_step_system~~CallsGraph_edge9" class="edge">
-<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_make_planetocentric</title>
-<path fill="none" stroke="#000000" d="M358.34,-124.51C376.32,-119.46 398.19,-113.32 417.82,-107.8"/>
-<polygon fill="#000000" stroke="#000000" points="418.87,-111.14 427.56,-105.06 416.98,-104.4 418.87,-111.14"/>
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric</title>
+<path fill="none" stroke="#000000" d="M358.34,-75C369.46,-75 382.08,-75 394.73,-75"/>
+<polygon fill="#000000" stroke="#000000" points="394.85,-78.5 404.85,-75 394.85,-71.5 394.85,-78.5"/>
 </g>
-<!-- proc~rmvs_end_planetocentric -->
+<!-- proc~rmvs_peri_tp -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node10" class="node">
-<title>proc~rmvs_end_planetocentric</title>
-<g id="a_proc~~rmvs_step_system~~CallsGraph_node10"><a xlink:href=".././proc/rmvs_end_planetocentric.html" xlink:title="rmvs_end_planetocentric">
-<polygon fill="#d9534f" stroke="#d9534f" points="538,-189 405,-189 405,-165 538,-165 538,-189"/>
-<text text-anchor="middle" x="471.5" y="-174.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_end_planetocentric</text>
+<title>proc~rmvs_peri_tp</title>
+<g id="a_proc~~rmvs_step_system~~CallsGraph_node10"><a xlink:href=".././proc/rmvs_peri_tp.html" xlink:title="rmvs_peri_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="509,-45 434,-45 434,-21 509,-21 509,-45"/>
+<text text-anchor="middle" x="471.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_peri_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric -->
+<!-- proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp -->
 <g id="proc~~rmvs_step_system~~CallsGraph_edge10" class="edge">
-<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_end_planetocentric</title>
-<path fill="none" stroke="#000000" d="M358.34,-145.49C376.32,-150.54 398.19,-156.68 417.82,-162.2"/>
-<polygon fill="#000000" stroke="#000000" points="416.98,-165.6 427.56,-164.94 418.87,-158.86 416.98,-165.6"/>
+<title>proc~rmvs_step_in&#45;&gt;proc~rmvs_peri_tp</title>
+<path fill="none" stroke="#000000" d="M358.34,-64.51C378.27,-58.91 402.99,-51.97 424.15,-46.02"/>
+<polygon fill="#000000" stroke="#000000" points="425.21,-49.36 433.89,-43.28 423.32,-42.62 425.21,-49.36"/>
 </g>
-<!-- xpc -->
+<!-- vpc -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node11" class="node">
-<title>xpc</title>
-<polygon fill="#777777" stroke="#777777" points="632,-168 578,-168 578,-144 632,-144 632,-168"/>
-<text text-anchor="middle" x="605" y="-153.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xpc</text>
+<title>vpc</title>
+<polygon fill="#777777" stroke="#777777" points="632,-66 578,-66 578,-42 632,-42 632,-66"/>
+<text text-anchor="middle" x="605" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vpc</text>
 </g>
-<!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
+<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
 <g id="proc~~rmvs_step_system~~CallsGraph_edge11" class="edge">
-<title>proc~rmvs_peri_tp&#45;&gt;xpc</title>
-<path fill="none" stroke="#000000" d="M509.13,-140.85C527.51,-143.79 549.7,-147.33 567.99,-150.25"/>
-<polygon fill="#000000" stroke="#000000" points="567.55,-153.72 577.98,-151.84 568.66,-146.81 567.55,-153.72"/>
+<title>proc~rmvs_peri_tp&#45;&gt;vpc</title>
+<path fill="none" stroke="#000000" d="M509.13,-38.85C527.51,-41.79 549.7,-45.33 567.99,-48.25"/>
+<polygon fill="#000000" stroke="#000000" points="567.55,-51.72 577.98,-49.84 568.66,-44.81 567.55,-51.72"/>
 </g>
-<!-- vpc -->
+<!-- xpc -->
 <g id="proc~~rmvs_step_system~~CallsGraph_node12" class="node">
-<title>vpc</title>
-<polygon fill="#777777" stroke="#777777" points="632,-126 578,-126 578,-102 632,-102 632,-126"/>
-<text text-anchor="middle" x="605" y="-111.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vpc</text>
+<title>xpc</title>
+<polygon fill="#777777" stroke="#777777" points="632,-24 578,-24 578,0 632,0 632,-24"/>
+<text text-anchor="middle" x="605" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xpc</text>
 </g>
-<!-- proc~rmvs_peri_tp&#45;&gt;vpc -->
+<!-- proc~rmvs_peri_tp&#45;&gt;xpc -->
 <g id="proc~~rmvs_step_system~~CallsGraph_edge12" class="edge">
-<title>proc~rmvs_peri_tp&#45;&gt;vpc</title>
-<path fill="none" stroke="#000000" d="M509.13,-129.15C527.51,-126.21 549.7,-122.67 567.99,-119.75"/>
-<polygon fill="#000000" stroke="#000000" points="568.66,-123.19 577.98,-118.16 567.55,-116.28 568.66,-123.19"/>
+<title>proc~rmvs_peri_tp&#45;&gt;xpc</title>
+<path fill="none" stroke="#000000" d="M509.13,-27.15C527.51,-24.21 549.7,-20.67 567.99,-17.75"/>
+<polygon fill="#000000" stroke="#000000" points="568.66,-21.19 577.98,-16.16 567.55,-14.28 568.66,-21.19"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/rmvs_util_append_pl.html b/docs/proc/rmvs_util_append_pl.html
index 3bc05d5e2..e40f1370c 100644
--- a/docs/proc/rmvs_util_append_pl.html
+++ b/docs/proc/rmvs_util_append_pl.html
@@ -136,7 +136,7 @@ <h1>rmvs_util_append_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">17 statements</a>
+    title=" 0.0% of total for procedures.">19 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~367"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~363"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -270,7 +270,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask~24"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -308,29 +308,29 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="112,-66 0,-66 0,-42 112,-42 112,-66"/>
 <text text-anchor="middle" x="56" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util_append_pl</text>
 </g>
-<!-- util_append -->
+<!-- util_exit -->
 <g id="proc~~rmvs_util_append_pl~~CallsGraph_node2" class="node">
-<title>util_append</title>
-<polygon fill="#777777" stroke="#777777" points="237.5,-108 169.5,-108 169.5,-84 237.5,-84 237.5,-108"/>
-<text text-anchor="middle" x="203.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="230.5,-108 176.5,-108 176.5,-84 230.5,-84 230.5,-108"/>
+<text text-anchor="middle" x="203.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~rmvs_util_append_pl&#45;&gt;util_append -->
+<!-- proc~rmvs_util_append_pl&#45;&gt;util_exit -->
 <g id="proc~~rmvs_util_append_pl~~CallsGraph_edge1" class="edge">
-<title>proc~rmvs_util_append_pl&#45;&gt;util_append</title>
-<path fill="none" stroke="#000000" d="M98.69,-66.04C117.72,-71.53 140.22,-78.02 159.41,-83.56"/>
-<polygon fill="#000000" stroke="#000000" points="158.53,-86.95 169.11,-86.36 160.47,-80.22 158.53,-86.95"/>
+<title>proc~rmvs_util_append_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M98.69,-66.04C120.2,-72.24 146.16,-79.74 166.74,-85.68"/>
+<polygon fill="#000000" stroke="#000000" points="165.79,-89.05 176.37,-88.46 167.73,-82.32 165.79,-89.05"/>
 </g>
-<!-- util_exit -->
+<!-- util_append -->
 <g id="proc~~rmvs_util_append_pl~~CallsGraph_node3" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="230.5,-66 176.5,-66 176.5,-42 230.5,-42 230.5,-66"/>
-<text text-anchor="middle" x="203.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<title>util_append</title>
+<polygon fill="#777777" stroke="#777777" points="237.5,-66 169.5,-66 169.5,-42 237.5,-42 237.5,-66"/>
+<text text-anchor="middle" x="203.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </g>
-<!-- proc~rmvs_util_append_pl&#45;&gt;util_exit -->
+<!-- proc~rmvs_util_append_pl&#45;&gt;util_append -->
 <g id="proc~~rmvs_util_append_pl~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_util_append_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M112.01,-54C130.1,-54 149.74,-54 166.09,-54"/>
-<polygon fill="#000000" stroke="#000000" points="166.31,-57.5 176.31,-54 166.31,-50.5 166.31,-57.5"/>
+<title>proc~rmvs_util_append_pl&#45;&gt;util_append</title>
+<path fill="none" stroke="#000000" d="M112.01,-54C127.55,-54 144.24,-54 159,-54"/>
+<polygon fill="#000000" stroke="#000000" points="159.37,-57.5 169.37,-54 159.37,-50.5 159.37,-57.5"/>
 </g>
 <!-- whm_util_append_pl -->
 <g id="proc~~rmvs_util_append_pl~~CallsGraph_node4" class="node">
diff --git a/docs/proc/rmvs_util_append_tp.html b/docs/proc/rmvs_util_append_tp.html
index f47ce9db9..22cc3e96e 100644
--- a/docs/proc/rmvs_util_append_tp.html
+++ b/docs/proc/rmvs_util_append_tp.html
@@ -136,7 +136,7 @@ <h1>rmvs_util_append_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">17 statements</a>
+    title=" 0.0% of total for procedures.">19 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~368"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~364"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -270,7 +270,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask~25"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -308,41 +308,41 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="112,-66 0,-66 0,-42 112,-42 112,-66"/>
 <text text-anchor="middle" x="56" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util_append_tp</text>
 </g>
-<!-- util_append -->
+<!-- util_exit -->
 <g id="proc~~rmvs_util_append_tp~~CallsGraph_node2" class="node">
-<title>util_append</title>
-<polygon fill="#777777" stroke="#777777" points="223.5,-108 155.5,-108 155.5,-84 223.5,-84 223.5,-108"/>
-<text text-anchor="middle" x="189.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="216.5,-108 162.5,-108 162.5,-84 216.5,-84 216.5,-108"/>
+<text text-anchor="middle" x="189.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~rmvs_util_append_tp&#45;&gt;util_append -->
+<!-- proc~rmvs_util_append_tp&#45;&gt;util_exit -->
 <g id="proc~~rmvs_util_append_tp~~CallsGraph_edge1" class="edge">
-<title>proc~rmvs_util_append_tp&#45;&gt;util_append</title>
-<path fill="none" stroke="#000000" d="M94.68,-66.04C110.52,-71.09 129.03,-77.01 145.41,-82.24"/>
-<polygon fill="#000000" stroke="#000000" points="144.7,-85.68 155.29,-85.39 146.83,-79.02 144.7,-85.68"/>
+<title>proc~rmvs_util_append_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M94.68,-66.04C113,-71.88 134.89,-78.88 152.92,-84.63"/>
+<polygon fill="#000000" stroke="#000000" points="151.9,-87.98 162.49,-87.69 154.03,-81.31 151.9,-87.98"/>
 </g>
-<!-- util_append_tp -->
+<!-- util_append -->
 <g id="proc~~rmvs_util_append_tp~~CallsGraph_node3" class="node">
-<title>util_append_tp</title>
-<polygon fill="#777777" stroke="#777777" points="231,-66 148,-66 148,-42 231,-42 231,-66"/>
-<text text-anchor="middle" x="189.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
+<title>util_append</title>
+<polygon fill="#777777" stroke="#777777" points="223.5,-66 155.5,-66 155.5,-42 223.5,-42 223.5,-66"/>
+<text text-anchor="middle" x="189.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </g>
-<!-- proc~rmvs_util_append_tp&#45;&gt;util_append_tp -->
+<!-- proc~rmvs_util_append_tp&#45;&gt;util_append -->
 <g id="proc~~rmvs_util_append_tp~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_util_append_tp&#45;&gt;util_append_tp</title>
-<path fill="none" stroke="#000000" d="M112.01,-54C120.51,-54 129.26,-54 137.67,-54"/>
-<polygon fill="#000000" stroke="#000000" points="137.72,-57.5 147.72,-54 137.72,-50.5 137.72,-57.5"/>
+<title>proc~rmvs_util_append_tp&#45;&gt;util_append</title>
+<path fill="none" stroke="#000000" d="M112.01,-54C123.09,-54 134.59,-54 145.21,-54"/>
+<polygon fill="#000000" stroke="#000000" points="145.48,-57.5 155.48,-54 145.48,-50.5 145.48,-57.5"/>
 </g>
-<!-- util_exit -->
+<!-- util_append_tp -->
 <g id="proc~~rmvs_util_append_tp~~CallsGraph_node4" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="216.5,-24 162.5,-24 162.5,0 216.5,0 216.5,-24"/>
-<text text-anchor="middle" x="189.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<title>util_append_tp</title>
+<polygon fill="#777777" stroke="#777777" points="231,-24 148,-24 148,0 231,0 231,-24"/>
+<text text-anchor="middle" x="189.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
 </g>
-<!-- proc~rmvs_util_append_tp&#45;&gt;util_exit -->
+<!-- proc~rmvs_util_append_tp&#45;&gt;util_append_tp -->
 <g id="proc~~rmvs_util_append_tp~~CallsGraph_edge3" class="edge">
-<title>proc~rmvs_util_append_tp&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M94.68,-41.96C113,-36.12 134.89,-29.12 152.92,-23.37"/>
-<polygon fill="#000000" stroke="#000000" points="154.03,-26.69 162.49,-20.31 151.9,-20.02 154.03,-26.69"/>
+<title>proc~rmvs_util_append_tp&#45;&gt;util_append_tp</title>
+<path fill="none" stroke="#000000" d="M94.68,-41.96C109.13,-37.35 125.79,-32.03 141.04,-27.16"/>
+<polygon fill="#000000" stroke="#000000" points="142.35,-30.41 150.81,-24.04 140.22,-23.75 142.35,-30.41"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/rmvs_util_fill_pl.html b/docs/proc/rmvs_util_fill_pl.html
index ffd08778b..bcb6ed860 100644
--- a/docs/proc/rmvs_util_fill_pl.html
+++ b/docs/proc/rmvs_util_fill_pl.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~369"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~365"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -307,41 +307,41 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="85,-66 0,-66 0,-42 85,-42 85,-66"/>
 <text text-anchor="middle" x="42.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util_fill_pl</text>
 </g>
-<!-- util_fill -->
-<g id="proc~~rmvs_util_fill_pl~~CallsGraph_node2" class="node">
-<title>util_fill</title>
-<polygon fill="#777777" stroke="#777777" points="190.5,-108 136.5,-108 136.5,-84 190.5,-84 190.5,-108"/>
-<text text-anchor="middle" x="163.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
-</g>
-<!-- proc~rmvs_util_fill_pl&#45;&gt;util_fill -->
-<g id="proc~~rmvs_util_fill_pl~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_util_fill_pl&#45;&gt;util_fill</title>
-<path fill="none" stroke="#000000" d="M77.6,-66.04C92.92,-71.44 111.02,-77.83 126.55,-83.31"/>
-<polygon fill="#000000" stroke="#000000" points="125.74,-86.74 136.34,-86.77 128.07,-80.14 125.74,-86.74"/>
-</g>
 <!-- util_exit -->
-<g id="proc~~rmvs_util_fill_pl~~CallsGraph_node3" class="node">
+<g id="proc~~rmvs_util_fill_pl~~CallsGraph_node2" class="node">
 <title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="190.5,-66 136.5,-66 136.5,-42 190.5,-42 190.5,-66"/>
-<text text-anchor="middle" x="163.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#777777" stroke="#777777" points="190.5,-108 136.5,-108 136.5,-84 190.5,-84 190.5,-108"/>
+<text text-anchor="middle" x="163.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
 <!-- proc~rmvs_util_fill_pl&#45;&gt;util_exit -->
 <g id="proc~~rmvs_util_fill_pl~~CallsGraph_edge1" class="edge">
 <title>proc~rmvs_util_fill_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M85.12,-54C98.42,-54 113.03,-54 125.95,-54"/>
-<polygon fill="#000000" stroke="#000000" points="126.33,-57.5 136.33,-54 126.33,-50.5 126.33,-57.5"/>
+<path fill="none" stroke="#000000" d="M77.6,-66.04C92.92,-71.44 111.02,-77.83 126.55,-83.31"/>
+<polygon fill="#000000" stroke="#000000" points="125.74,-86.74 136.34,-86.77 128.07,-80.14 125.74,-86.74"/>
 </g>
 <!-- whm_util_fill_pl -->
-<g id="proc~~rmvs_util_fill_pl~~CallsGraph_node4" class="node">
+<g id="proc~~rmvs_util_fill_pl~~CallsGraph_node3" class="node">
 <title>whm_util_fill_pl</title>
-<polygon fill="#777777" stroke="#777777" points="206,-24 121,-24 121,0 206,0 206,-24"/>
-<text text-anchor="middle" x="163.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_fill_pl</text>
+<polygon fill="#777777" stroke="#777777" points="206,-66 121,-66 121,-42 206,-42 206,-66"/>
+<text text-anchor="middle" x="163.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_fill_pl</text>
 </g>
 <!-- proc~rmvs_util_fill_pl&#45;&gt;whm_util_fill_pl -->
-<g id="proc~~rmvs_util_fill_pl~~CallsGraph_edge3" class="edge">
+<g id="proc~~rmvs_util_fill_pl~~CallsGraph_edge2" class="edge">
 <title>proc~rmvs_util_fill_pl&#45;&gt;whm_util_fill_pl</title>
-<path fill="none" stroke="#000000" d="M77.6,-41.96C90.42,-37.44 105.18,-32.23 118.76,-27.44"/>
-<polygon fill="#000000" stroke="#000000" points="120.13,-30.67 128.39,-24.04 117.8,-24.07 120.13,-30.67"/>
+<path fill="none" stroke="#000000" d="M85.12,-54C93.32,-54 102.01,-54 110.5,-54"/>
+<polygon fill="#000000" stroke="#000000" points="110.7,-57.5 120.7,-54 110.7,-50.5 110.7,-57.5"/>
+</g>
+<!-- util_fill -->
+<g id="proc~~rmvs_util_fill_pl~~CallsGraph_node4" class="node">
+<title>util_fill</title>
+<polygon fill="#777777" stroke="#777777" points="190.5,-24 136.5,-24 136.5,0 190.5,0 190.5,-24"/>
+<text text-anchor="middle" x="163.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
+</g>
+<!-- proc~rmvs_util_fill_pl&#45;&gt;util_fill -->
+<g id="proc~~rmvs_util_fill_pl~~CallsGraph_edge3" class="edge">
+<title>proc~rmvs_util_fill_pl&#45;&gt;util_fill</title>
+<path fill="none" stroke="#000000" d="M77.6,-41.96C92.92,-36.56 111.02,-30.17 126.55,-24.69"/>
+<polygon fill="#000000" stroke="#000000" points="128.07,-27.86 136.34,-21.23 125.74,-21.26 128.07,-27.86"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/rmvs_util_fill_tp.html b/docs/proc/rmvs_util_fill_tp.html
index cdb75dd18..34313cc7f 100644
--- a/docs/proc/rmvs_util_fill_tp.html
+++ b/docs/proc/rmvs_util_fill_tp.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~370"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~366"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -319,27 +319,27 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M74.23,-66.04C86.05,-70.74 99.73,-76.19 112.15,-81.13"/>
 <polygon fill="#000000" stroke="#000000" points="111.21,-84.52 121.79,-84.97 113.79,-78.02 111.21,-84.52"/>
 </g>
-<!-- util_fill -->
+<!-- util_exit -->
 <g id="proc~~rmvs_util_fill_tp~~CallsGraph_node3" class="node">
-<title>util_fill</title>
+<title>util_exit</title>
 <polygon fill="#777777" stroke="#777777" points="177.5,-66 123.5,-66 123.5,-42 177.5,-42 177.5,-66"/>
-<text text-anchor="middle" x="150.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
+<text text-anchor="middle" x="150.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~rmvs_util_fill_tp&#45;&gt;util_fill -->
-<g id="proc~~rmvs_util_fill_tp~~CallsGraph_edge3" class="edge">
-<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill</title>
+<!-- proc~rmvs_util_fill_tp&#45;&gt;util_exit -->
+<g id="proc~~rmvs_util_fill_tp~~CallsGraph_edge2" class="edge">
+<title>proc~rmvs_util_fill_tp&#45;&gt;util_exit</title>
 <path fill="none" stroke="#000000" d="M86.3,-54C95.19,-54 104.48,-54 113.13,-54"/>
 <polygon fill="#000000" stroke="#000000" points="113.28,-57.5 123.28,-54 113.28,-50.5 113.28,-57.5"/>
 </g>
-<!-- util_exit -->
+<!-- util_fill -->
 <g id="proc~~rmvs_util_fill_tp~~CallsGraph_node4" class="node">
-<title>util_exit</title>
+<title>util_fill</title>
 <polygon fill="#777777" stroke="#777777" points="177.5,-24 123.5,-24 123.5,0 177.5,0 177.5,-24"/>
-<text text-anchor="middle" x="150.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<text text-anchor="middle" x="150.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
 </g>
-<!-- proc~rmvs_util_fill_tp&#45;&gt;util_exit -->
-<g id="proc~~rmvs_util_fill_tp~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_util_fill_tp&#45;&gt;util_exit</title>
+<!-- proc~rmvs_util_fill_tp&#45;&gt;util_fill -->
+<g id="proc~~rmvs_util_fill_tp~~CallsGraph_edge3" class="edge">
+<title>proc~rmvs_util_fill_tp&#45;&gt;util_fill</title>
 <path fill="none" stroke="#000000" d="M74.23,-41.96C86.56,-37.06 100.9,-31.35 113.74,-26.24"/>
 <polygon fill="#000000" stroke="#000000" points="115.21,-29.42 123.21,-22.47 112.62,-22.91 115.21,-29.42"/>
 </g>
diff --git a/docs/proc/rmvs_util_resize_pl.html b/docs/proc/rmvs_util_resize_pl.html
index 3784ab389..79fd336ee 100644
--- a/docs/proc/rmvs_util_resize_pl.html
+++ b/docs/proc/rmvs_util_resize_pl.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~371"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~367"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_util_resize_tp.html b/docs/proc/rmvs_util_resize_tp.html
index 8b3cb2d3c..4440d7627 100644
--- a/docs/proc/rmvs_util_resize_tp.html
+++ b/docs/proc/rmvs_util_resize_tp.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~372"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~368"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_util_sort_pl.html b/docs/proc/rmvs_util_sort_pl.html
index b43a42233..ef293950f 100644
--- a/docs/proc/rmvs_util_sort_pl.html
+++ b/docs/proc/rmvs_util_sort_pl.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~373"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~369"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_util_sort_rearrange_pl.html b/docs/proc/rmvs_util_sort_rearrange_pl.html
index 4ec399205..99d6f7fbc 100644
--- a/docs/proc/rmvs_util_sort_rearrange_pl.html
+++ b/docs/proc/rmvs_util_sort_rearrange_pl.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~375"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~371"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_util_sort_rearrange_tp.html b/docs/proc/rmvs_util_sort_rearrange_tp.html
index c69d2fb42..71e9b9447 100644
--- a/docs/proc/rmvs_util_sort_rearrange_tp.html
+++ b/docs/proc/rmvs_util_sort_rearrange_tp.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~376"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~372"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_util_sort_tp.html b/docs/proc/rmvs_util_sort_tp.html
index bbdbed1c3..38348d564 100644
--- a/docs/proc/rmvs_util_sort_tp.html
+++ b/docs/proc/rmvs_util_sort_tp.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~374"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~370"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/rmvs_util_spill_pl.html b/docs/proc/rmvs_util_spill_pl.html
index eea27ee86..67cfef800 100644
--- a/docs/proc/rmvs_util_spill_pl.html
+++ b/docs/proc/rmvs_util_spill_pl.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~377"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~373"></span>class(<a href='../type/rmvs_pl.html'>rmvs_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -322,17 +322,17 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="94,-66 0,-66 0,-42 94,-42 94,-66"/>
 <text text-anchor="middle" x="47" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util_spill_pl</text>
 </g>
-<!-- whm_util_spill_pl -->
+<!-- util_exit -->
 <g id="proc~~rmvs_util_spill_pl~~CallsGraph_node2" class="node">
-<title>whm_util_spill_pl</title>
-<polygon fill="#777777" stroke="#777777" points="223,-108 130,-108 130,-84 223,-84 223,-108"/>
-<text text-anchor="middle" x="176.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_spill_pl</text>
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="203.5,-108 149.5,-108 149.5,-84 203.5,-84 203.5,-108"/>
+<text text-anchor="middle" x="176.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~rmvs_util_spill_pl&#45;&gt;whm_util_spill_pl -->
+<!-- proc~rmvs_util_spill_pl&#45;&gt;util_exit -->
 <g id="proc~~rmvs_util_spill_pl~~CallsGraph_edge1" class="edge">
-<title>proc~rmvs_util_spill_pl&#45;&gt;whm_util_spill_pl</title>
-<path fill="none" stroke="#000000" d="M84.54,-66.04C98.41,-70.6 114.39,-75.87 129.06,-80.7"/>
-<polygon fill="#000000" stroke="#000000" points="128.37,-84.16 138.96,-83.96 130.56,-77.51 128.37,-84.16"/>
+<title>proc~rmvs_util_spill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M84.54,-66.04C101.88,-71.75 122.54,-78.55 139.78,-84.23"/>
+<polygon fill="#000000" stroke="#000000" points="138.89,-87.63 149.49,-87.43 141.08,-80.98 138.89,-87.63"/>
 </g>
 <!-- util_spill -->
 <g id="proc~~rmvs_util_spill_pl~~CallsGraph_node3" class="node">
@@ -341,22 +341,22 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="176.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
 </g>
 <!-- proc~rmvs_util_spill_pl&#45;&gt;util_spill -->
-<g id="proc~~rmvs_util_spill_pl~~CallsGraph_edge3" class="edge">
+<g id="proc~~rmvs_util_spill_pl~~CallsGraph_edge2" class="edge">
 <title>proc~rmvs_util_spill_pl&#45;&gt;util_spill</title>
 <path fill="none" stroke="#000000" d="M94.03,-54C108.81,-54 124.97,-54 138.97,-54"/>
 <polygon fill="#000000" stroke="#000000" points="139.2,-57.5 149.2,-54 139.2,-50.5 139.2,-57.5"/>
 </g>
-<!-- util_exit -->
+<!-- whm_util_spill_pl -->
 <g id="proc~~rmvs_util_spill_pl~~CallsGraph_node4" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="203.5,-24 149.5,-24 149.5,0 203.5,0 203.5,-24"/>
-<text text-anchor="middle" x="176.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<title>whm_util_spill_pl</title>
+<polygon fill="#777777" stroke="#777777" points="223,-24 130,-24 130,0 223,0 223,-24"/>
+<text text-anchor="middle" x="176.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util_spill_pl</text>
 </g>
-<!-- proc~rmvs_util_spill_pl&#45;&gt;util_exit -->
-<g id="proc~~rmvs_util_spill_pl~~CallsGraph_edge2" class="edge">
-<title>proc~rmvs_util_spill_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M84.54,-41.96C101.88,-36.25 122.54,-29.45 139.78,-23.77"/>
-<polygon fill="#000000" stroke="#000000" points="141.08,-27.02 149.49,-20.57 138.89,-20.37 141.08,-27.02"/>
+<!-- proc~rmvs_util_spill_pl&#45;&gt;whm_util_spill_pl -->
+<g id="proc~~rmvs_util_spill_pl~~CallsGraph_edge3" class="edge">
+<title>proc~rmvs_util_spill_pl&#45;&gt;whm_util_spill_pl</title>
+<path fill="none" stroke="#000000" d="M84.54,-41.96C98.41,-37.4 114.39,-32.13 129.06,-27.3"/>
+<polygon fill="#000000" stroke="#000000" points="130.56,-30.49 138.96,-24.04 128.37,-23.84 130.56,-30.49"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/rmvs_util_spill_tp.html b/docs/proc/rmvs_util_spill_tp.html
index 2fa04ce1c..119890b90 100644
--- a/docs/proc/rmvs_util_spill_tp.html
+++ b/docs/proc/rmvs_util_spill_tp.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~378"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~374"></span>class(<a href='../type/rmvs_tp.html'>rmvs_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -322,39 +322,39 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="94,-66 0,-66 0,-42 94,-42 94,-66"/>
 <text text-anchor="middle" x="47" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util_spill_tp</text>
 </g>
-<!-- util_spill -->
-<g id="proc~~rmvs_util_spill_tp~~CallsGraph_node2" class="node">
-<title>util_spill</title>
-<polygon fill="#777777" stroke="#777777" points="189.5,-108 135.5,-108 135.5,-84 189.5,-84 189.5,-108"/>
-<text text-anchor="middle" x="162.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
-</g>
-<!-- proc~rmvs_util_spill_tp&#45;&gt;util_spill -->
-<g id="proc~~rmvs_util_spill_tp~~CallsGraph_edge3" class="edge">
-<title>proc~rmvs_util_spill_tp&#45;&gt;util_spill</title>
-<path fill="none" stroke="#000000" d="M80.52,-66.04C94.68,-71.27 111.32,-77.43 125.81,-82.79"/>
-<polygon fill="#000000" stroke="#000000" points="124.86,-86.17 135.45,-86.36 127.29,-79.61 124.86,-86.17"/>
-</g>
 <!-- util_spill_tp -->
-<g id="proc~~rmvs_util_spill_tp~~CallsGraph_node3" class="node">
+<g id="proc~~rmvs_util_spill_tp~~CallsGraph_node2" class="node">
 <title>util_spill_tp</title>
-<polygon fill="#777777" stroke="#777777" points="195,-66 130,-66 130,-42 195,-42 195,-66"/>
-<text text-anchor="middle" x="162.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
+<polygon fill="#777777" stroke="#777777" points="195,-108 130,-108 130,-84 195,-84 195,-108"/>
+<text text-anchor="middle" x="162.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
 </g>
 <!-- proc~rmvs_util_spill_tp&#45;&gt;util_spill_tp -->
 <g id="proc~~rmvs_util_spill_tp~~CallsGraph_edge1" class="edge">
 <title>proc~rmvs_util_spill_tp&#45;&gt;util_spill_tp</title>
-<path fill="none" stroke="#000000" d="M94.16,-54C102.62,-54 111.41,-54 119.73,-54"/>
-<polygon fill="#000000" stroke="#000000" points="119.96,-57.5 129.96,-54 119.96,-50.5 119.96,-57.5"/>
+<path fill="none" stroke="#000000" d="M80.52,-66.04C92.84,-70.59 107.04,-75.85 120.07,-80.67"/>
+<polygon fill="#000000" stroke="#000000" points="119.16,-84.06 129.75,-84.25 121.59,-77.5 119.16,-84.06"/>
 </g>
 <!-- util_exit -->
-<g id="proc~~rmvs_util_spill_tp~~CallsGraph_node4" class="node">
+<g id="proc~~rmvs_util_spill_tp~~CallsGraph_node3" class="node">
 <title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="189.5,-24 135.5,-24 135.5,0 189.5,0 189.5,-24"/>
-<text text-anchor="middle" x="162.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#777777" stroke="#777777" points="189.5,-66 135.5,-66 135.5,-42 189.5,-42 189.5,-66"/>
+<text text-anchor="middle" x="162.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
 <!-- proc~rmvs_util_spill_tp&#45;&gt;util_exit -->
 <g id="proc~~rmvs_util_spill_tp~~CallsGraph_edge2" class="edge">
 <title>proc~rmvs_util_spill_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M94.16,-54C104.44,-54 115.2,-54 125.02,-54"/>
+<polygon fill="#000000" stroke="#000000" points="125.25,-57.5 135.25,-54 125.25,-50.5 125.25,-57.5"/>
+</g>
+<!-- util_spill -->
+<g id="proc~~rmvs_util_spill_tp~~CallsGraph_node4" class="node">
+<title>util_spill</title>
+<polygon fill="#777777" stroke="#777777" points="189.5,-24 135.5,-24 135.5,0 189.5,0 189.5,-24"/>
+<text text-anchor="middle" x="162.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+</g>
+<!-- proc~rmvs_util_spill_tp&#45;&gt;util_spill -->
+<g id="proc~~rmvs_util_spill_tp~~CallsGraph_edge3" class="edge">
+<title>proc~rmvs_util_spill_tp&#45;&gt;util_spill</title>
 <path fill="none" stroke="#000000" d="M80.52,-41.96C94.68,-36.73 111.32,-30.57 125.81,-25.21"/>
 <polygon fill="#000000" stroke="#000000" points="127.29,-28.39 135.45,-21.64 124.86,-21.83 127.29,-28.39"/>
 </g>
diff --git a/docs/proc/setup_body.html b/docs/proc/setup_body.html
index a73a98a50..885090211 100644
--- a/docs/proc/setup_body.html
+++ b/docs/proc/setup_body.html
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~171"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~175"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -354,25 +354,10 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" d="M144.21,-17.79C152.19,-19.56 161.18,-21.55 169.97,-23.49"/>
 <polygon fill="#000000" stroke="#000000" points="169.22,-26.91 179.74,-25.65 170.73,-20.07 169.22,-26.91"/>
 </g>
-<!-- interface~setup_pl -->
-<g id="proc~~setup_body~~CalledByGraph_node5" class="node">
-<title>interface~setup_pl</title>
-<g id="a_proc~~setup_body~~CalledByGraph_node5"><a xlink:href=".././interface/setup_pl.html" xlink:title="setup_pl">
-<polygon fill="#a7506f" stroke="#a7506f" 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">setup_pl</text>
-</a>
-</g>
-</g>
-<!-- interface~setup_pl&#45;&gt;proc~setup_pl -->
-<g id="proc~~setup_body~~CalledByGraph_edge5" class="edge">
-<title>interface~setup_pl&#45;&gt;proc~setup_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M54.4,-12C62.39,-12 71.31,-12 79.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="79.92,-15.5 89.92,-12 79.92,-8.5 79.92,-15.5"/>
-</g>
 <!-- interface~setup_tp -->
-<g id="proc~~setup_body~~CalledByGraph_node6" class="node">
+<g id="proc~~setup_body~~CalledByGraph_node5" class="node">
 <title>interface~setup_tp</title>
-<g id="a_proc~~setup_body~~CalledByGraph_node6"><a xlink:href=".././interface/setup_tp.html" xlink:title="setup_tp">
+<g id="a_proc~~setup_body~~CalledByGraph_node5"><a xlink:href=".././interface/setup_tp.html" xlink:title="setup_tp">
 <polygon fill="#a7506f" stroke="#a7506f" points="54,-66 0,-66 0,-42 54,-42 54,-66"/>
 <text text-anchor="middle" x="27" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_tp</text>
 </a>
@@ -384,6 +369,21 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M54.4,-54C62.39,-54 71.31,-54 79.82,-54"/>
 <polygon fill="#000000" stroke="#000000" points="79.92,-57.5 89.92,-54 79.92,-50.5 79.92,-57.5"/>
 </g>
+<!-- interface~setup_pl -->
+<g id="proc~~setup_body~~CalledByGraph_node6" class="node">
+<title>interface~setup_pl</title>
+<g id="a_proc~~setup_body~~CalledByGraph_node6"><a xlink:href=".././interface/setup_pl.html" xlink:title="setup_pl">
+<polygon fill="#a7506f" stroke="#a7506f" 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">setup_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~setup_pl&#45;&gt;proc~setup_pl -->
+<g id="proc~~setup_body~~CalledByGraph_edge5" class="edge">
+<title>interface~setup_pl&#45;&gt;proc~setup_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M54.4,-12C62.39,-12 71.31,-12 79.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="79.92,-15.5 89.92,-12 79.92,-8.5 79.92,-15.5"/>
+</g>
 </g>
 </svg>
 </div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
diff --git a/docs/proc/setup_construct_system.html b/docs/proc/setup_construct_system.html
index c0bfef021..64f129a38 100644
--- a/docs/proc/setup_construct_system.html
+++ b/docs/proc/setup_construct_system.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~89"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~93"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout),</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~169"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~173"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/setup_initialize_system.html b/docs/proc/setup_initialize_system.html
index ca072811d..67e6ec241 100644
--- a/docs/proc/setup_initialize_system.html
+++ b/docs/proc/setup_initialize_system.html
@@ -136,7 +136,7 @@ <h1>setup_initialize_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">16 statements</a>
+    title=" 0.0% of total for procedures.">15 statements</a>
      </li> 
      
      
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~170"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~174"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -269,167 +269,6 @@ <h3>Arguments</h3>
     <br>
     
     
-    <div class="panel panel-default">
-      <div class="panel-heading">
-  <h3 class="panel-title">Calls</h3>
-      </div>
-      <div class="panel-body">
-  <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.47.1 (20210417.1919)
- -->
-<!-- Title: proc~~setup_initialize_system~~CallsGraph Pages: 1 -->
-<svg id="procsetup_initialize_systemCallsGraph" width="490pt" height="74pt"
- viewBox="0.00 0.00 490.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~setup_initialize_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
-<title>proc~~setup_initialize_system~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 486,-70 486,4 -4,4"/>
-<!-- proc~setup_initialize_system -->
-<g id="proc~~setup_initialize_system~~CallsGraph_node1" class="node">
-<title>proc~setup_initialize_system</title>
-<polygon fill="none" stroke="black" points="122,-45 0,-45 0,-21 122,-21 122,-45"/>
-<text text-anchor="middle" x="61" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">setup_initialize_system</text>
-</g>
-<!-- interface~util_valid -->
-<g id="proc~~setup_initialize_system~~CallsGraph_node2" class="node">
-<title>interface~util_valid</title>
-<g id="a_proc~~setup_initialize_system~~CallsGraph_node2"><a xlink:href=".././interface/util_valid.html" xlink:title="util_valid">
-<polygon fill="#a7506f" stroke="#a7506f" points="212,-45 158,-45 158,-21 212,-21 212,-45"/>
-<text text-anchor="middle" x="185" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid</text>
-</a>
-</g>
-</g>
-<!-- proc~setup_initialize_system&#45;&gt;interface~util_valid -->
-<g id="proc~~setup_initialize_system~~CallsGraph_edge1" class="edge">
-<title>proc~setup_initialize_system&#45;&gt;interface~util_valid</title>
-<path fill="none" stroke="#000000" d="M122.29,-33C130.97,-33 139.67,-33 147.69,-33"/>
-<polygon fill="#000000" stroke="#000000" points="147.77,-36.5 157.77,-33 147.77,-29.5 147.77,-36.5"/>
-</g>
-<!-- proc~util_valid -->
-<g id="proc~~setup_initialize_system~~CallsGraph_node3" class="node">
-<title>proc~util_valid</title>
-<g id="a_proc~~setup_initialize_system~~CallsGraph_node3"><a xlink:href=".././proc/util_valid.html" xlink:title="util_valid">
-<polygon fill="#d9534f" stroke="#d9534f" points="302,-45 248,-45 248,-21 302,-21 302,-45"/>
-<text text-anchor="middle" x="275" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid</text>
-</a>
-</g>
-</g>
-<!-- interface~util_valid&#45;&gt;proc~util_valid -->
-<g id="proc~~setup_initialize_system~~CallsGraph_edge2" class="edge">
-<title>interface~util_valid&#45;&gt;proc~util_valid</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M212.4,-33C220.39,-33 229.31,-33 237.82,-33"/>
-<polygon fill="#000000" stroke="#000000" points="237.92,-36.5 247.92,-33 237.92,-29.5 237.92,-36.5"/>
-</g>
-<!-- interface~util_exit -->
-<g id="proc~~setup_initialize_system~~CallsGraph_node4" class="node">
-<title>interface~util_exit</title>
-<g id="a_proc~~setup_initialize_system~~CallsGraph_node4"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" points="392,-66 338,-66 338,-42 392,-42 392,-66"/>
-<text text-anchor="middle" x="365" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
-</a>
-</g>
-</g>
-<!-- proc~util_valid&#45;&gt;interface~util_exit -->
-<g id="proc~~setup_initialize_system~~CallsGraph_edge3" class="edge">
-<title>proc~util_valid&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M302.4,-39.3C310.48,-41.23 319.51,-43.38 328.1,-45.43"/>
-<polygon fill="#000000" stroke="#000000" points="327.38,-48.86 337.92,-47.78 329,-42.05 327.38,-48.86"/>
-</g>
-<!-- interface~util_sort -->
-<g id="proc~~setup_initialize_system~~CallsGraph_node5" class="node">
-<title>interface~util_sort</title>
-<g id="a_proc~~setup_initialize_system~~CallsGraph_node5"><a xlink:href=".././interface/util_sort.html" xlink:title="util_sort">
-<polygon fill="#a7506f" stroke="#a7506f" points="392,-24 338,-24 338,0 392,0 392,-24"/>
-<text text-anchor="middle" x="365" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort</text>
-</a>
-</g>
-</g>
-<!-- proc~util_valid&#45;&gt;interface~util_sort -->
-<g id="proc~~setup_initialize_system~~CallsGraph_edge4" class="edge">
-<title>proc~util_valid&#45;&gt;interface~util_sort</title>
-<path fill="none" stroke="#000000" d="M302.4,-26.7C310.48,-24.77 319.51,-22.62 328.1,-20.57"/>
-<polygon fill="#000000" stroke="#000000" points="329,-23.95 337.92,-18.22 327.38,-17.14 329,-23.95"/>
-</g>
-<!-- proc~util_exit -->
-<g id="proc~~setup_initialize_system~~CallsGraph_node6" class="node">
-<title>proc~util_exit</title>
-<g id="a_proc~~setup_initialize_system~~CallsGraph_node6"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" points="482,-66 428,-66 428,-42 482,-42 482,-66"/>
-<text text-anchor="middle" x="455" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
-</a>
-</g>
-</g>
-<!-- interface~util_exit&#45;&gt;proc~util_exit -->
-<g id="proc~~setup_initialize_system~~CallsGraph_edge5" class="edge">
-<title>interface~util_exit&#45;&gt;proc~util_exit</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M392.4,-54C400.39,-54 409.31,-54 417.82,-54"/>
-<polygon fill="#000000" stroke="#000000" points="417.92,-57.5 427.92,-54 417.92,-50.5 417.92,-57.5"/>
-</g>
-</g>
-</svg>
-</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
-    <p>Nodes of different colours represent the following: </p>
-    <?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.47.1 (20210417.1919)
- -->
-<!-- Title: Graph Key Pages: 1 -->
-<svg width="560pt" height="32pt"
- viewBox="0.00 0.00 559.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)">
-<title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
-<!-- Subroutine -->
-<g id="node1" class="node">
-<title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
-<text text-anchor="middle" x="32" y="-9.6" 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="136,-24 82,-24 82,0 136,0 136,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" 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="209.5,-24 154.5,-24 154.5,0 209.5,0 209.5,-24"/>
-<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
-</g>
-<!-- Unknown Procedure Type -->
-<g id="node4" class="node">
-<title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,0 364,0 364,-24"/>
-<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
-</g>
-<!-- Program -->
-<g id="node5" class="node">
-<title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,0 436,0 436,-24"/>
-<text text-anchor="middle" x="409" y="-9.6" 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="551.5,-24 454.5,-24 454.5,0 551.5,0 551.5,-24"/>
-<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
-</g>
-</g>
-</svg>
-
-    
-    <p>Solid arrows point from a procedure to one which it calls. Dashed 
-    arrows point from an interface to procedures which implement that interface.
-    This could include the module procedures in a generic interface or the
-    implementation in a submodule of an interface in a parent module.
-    </p>
-    </div></div></div></div>
-      </div>
-    </div>
-     
      
     <div class="panel panel-default">
       <div class="panel-heading">
diff --git a/docs/proc/setup_pl.html b/docs/proc/setup_pl.html
index 81d93b18a..72852e6de 100644
--- a/docs/proc/setup_pl.html
+++ b/docs/proc/setup_pl.html
@@ -269,7 +269,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~172"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~176"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/setup_tp.html b/docs/proc/setup_tp.html
index 3e297d60e..7558a69a3 100644
--- a/docs/proc/setup_tp.html
+++ b/docs/proc/setup_tp.html
@@ -269,7 +269,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~173"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~177"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/solve_wbs.html b/docs/proc/solve_wbs.html
index a2d31cac6..3364cb924 100644
--- a/docs/proc/solve_wbs.html
+++ b/docs/proc/solve_wbs.html
@@ -233,270 +233,267 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~solve_wbs~~UsesGraph Pages: 1 -->
-<svg id="procsolve_wbsUsesGraph" width="641pt" height="209pt"
- viewBox="0.00 0.00 641.00 208.87" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~solve_wbs~~UsesGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 302.3)">
+<svg id="procsolve_wbsUsesGraph" width="641pt" height="190pt"
+ viewBox="0.00 0.00 641.00 189.92" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~solve_wbs~~UsesGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 274.51)">
 <title>proc~~solve_wbs~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-302.3 936,-302.3 936,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-274.51 936,-274.51 936,4 -4,4"/>
 <!-- proc~solve_wbs -->
 <g id="proc~~solve_wbs~~UsesGraph_node1" class="node">
 <title>proc~solve_wbs</title>
-<polygon fill="none" stroke="black" points="932,-164.42 870,-164.42 870,-140.42 932,-140.42 932,-164.42"/>
-<text text-anchor="middle" x="901" y="-150.02" font-family="Helvetica,sans-Serif" font-size="10.50">solve_wbs</text>
+<polygon fill="none" stroke="black" points="932,-176.71 870,-176.71 870,-152.71 932,-152.71 932,-176.71"/>
+<text text-anchor="middle" x="901" y="-162.31" font-family="Helvetica,sans-Serif" font-size="10.50">solve_wbs</text>
 </g>
 <!-- ieee_exceptions -->
 <g id="proc~~solve_wbs~~UsesGraph_node2" class="node">
 <title>ieee_exceptions</title>
 <g id="a_proc~~solve_wbs~~UsesGraph_node2"><a xlink:href="http://fortranwiki.org/fortran/show/IEEE+arithmetic" xlink:title="ieee_exceptions">
-<polygon fill="#337ab7" stroke="#337ab7" points="834,-185.42 744,-185.42 744,-161.42 834,-161.42 834,-185.42"/>
-<text text-anchor="middle" x="789" y="-171.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_exceptions</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="834,-197.71 744,-197.71 744,-173.71 834,-173.71 834,-197.71"/>
+<text text-anchor="middle" x="789" y="-183.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ieee_exceptions</text>
 </a>
 </g>
 </g>
 <!-- proc~solve_wbs&#45;&gt;ieee_exceptions -->
 <g id="proc~~solve_wbs~~UsesGraph_edge1" class="edge">
 <title>proc~solve_wbs&#45;&gt;ieee_exceptions</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M869.94,-158.16C861.9,-159.69 852.96,-161.4 844.04,-163.1"/>
-<polygon fill="#000000" stroke="#000000" points="843.21,-159.7 834.05,-165.01 844.53,-166.57 843.21,-159.7"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M869.94,-170.45C861.9,-171.98 852.96,-173.69 844.04,-175.39"/>
+<polygon fill="#000000" stroke="#000000" points="843.21,-171.99 834.05,-177.3 844.53,-178.86 843.21,-171.99"/>
 </g>
 <!-- module~swiftest -->
 <g id="proc~~solve_wbs~~UsesGraph_node3" class="node">
 <title>module~swiftest</title>
 <g id="a_proc~~solve_wbs~~UsesGraph_node3"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="816,-143.42 762,-143.42 762,-119.42 816,-119.42 816,-143.42"/>
-<text text-anchor="middle" x="789" y="-129.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="816,-155.71 762,-155.71 762,-131.71 816,-131.71 816,-155.71"/>
+<text text-anchor="middle" x="789" y="-141.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- proc~solve_wbs&#45;&gt;module~swiftest -->
 <g id="proc~~solve_wbs~~UsesGraph_edge2" class="edge">
 <title>proc~solve_wbs&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M869.94,-146.68C856.43,-144.1 840.37,-141.04 826.2,-138.33"/>
-<polygon fill="#000000" stroke="#000000" points="826.76,-134.88 816.28,-136.44 825.44,-141.75 826.76,-134.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M869.94,-158.97C856.43,-156.39 840.37,-153.32 826.2,-150.62"/>
+<polygon fill="#000000" stroke="#000000" points="826.76,-147.16 816.28,-148.72 825.44,-154.04 826.76,-147.16"/>
 </g>
-<!-- module~helio_classes -->
+<!-- module~swiftest_globals -->
 <g id="proc~~solve_wbs~~UsesGraph_node4" class="node">
-<title>module~helio_classes</title>
-<g id="a_proc~~solve_wbs~~UsesGraph_node4"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-143.42 510.5,-143.42 510.5,-119.42 586.5,-119.42 586.5,-143.42"/>
-<text text-anchor="middle" x="548.5" y="-129.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<title>module~swiftest_globals</title>
+<g id="a_proc~~solve_wbs~~UsesGraph_node4"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-197.71 123,-197.71 123,-173.71 211,-173.71 211,-197.71"/>
+<text text-anchor="middle" x="167" y="-183.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="proc~~solve_wbs~~UsesGraph_edge3" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-91.42C633.12,-86.47 598.95,-101.12 576.08,-114.06"/>
-<polygon fill="#000000" stroke="#000000" points="574.13,-111.15 567.31,-119.26 577.69,-117.17 574.13,-111.15"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-265.71C344.57,-271.99 319.99,-276.08 247,-246.71 223.81,-237.38 201.66,-219.19 186.75,-205.09"/>
+<polygon fill="#000000" stroke="#000000" points="188.85,-202.25 179.25,-197.76 183.96,-207.25 188.85,-202.25"/>
 </g>
 <!-- module~lambda_function -->
 <g id="proc~~solve_wbs~~UsesGraph_node5" class="node">
 <title>module~lambda_function</title>
 <g id="a_proc~~solve_wbs~~UsesGraph_node5"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-259.42 383,-259.42 383,-235.42 474,-235.42 474,-259.42"/>
-<text text-anchor="middle" x="428.5" y="-245.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="338,-237.71 247,-237.71 247,-213.71 338,-213.71 338,-237.71"/>
+<text text-anchor="middle" x="292.5" y="-223.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="proc~~solve_wbs~~UsesGraph_edge4" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247.42C526.83,-247.42 504.12,-247.42 484.19,-247.42"/>
-<polygon fill="#000000" stroke="#000000" points="484.05,-243.92 474.05,-247.42 484.05,-250.92 484.05,-243.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-265.71C388.06,-268.51 349.93,-254.5 324.16,-242.31"/>
+<polygon fill="#000000" stroke="#000000" points="325.44,-239.03 314.92,-237.76 322.34,-245.31 325.44,-239.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-225.71C490.31,-222.65 482.09,-261.13 425,-265.71"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="proc~~solve_wbs~~UsesGraph_node6" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_proc~~solve_wbs~~UsesGraph_node6"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="347,-221.42 247,-221.42 247,-197.42 347,-197.42 347,-221.42"/>
-<text text-anchor="middle" x="297" y="-207.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-237.71 374,-237.71 374,-213.71 474,-213.71 474,-237.71"/>
+<text text-anchor="middle" x="424" y="-223.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="proc~~solve_wbs~~UsesGraph_edge5" class="edge">
+<g id="proc~~solve_wbs~~UsesGraph_edge6" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247.42C513.53,-247.42 507.38,-232.75 474,-226.42 435.6,-219.14 391.86,-214.9 357.59,-212.47"/>
-<polygon fill="#000000" stroke="#000000" points="357.49,-208.96 347.27,-211.78 357.01,-215.94 357.49,-208.96"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M762.39,-143.6C756.35,-146.48 749.95,-149.55 744,-152.42 657.37,-194.25 645.69,-245.68 549.5,-247.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-225.71C526.97,-224.61 504.49,-224.34 484.44,-224.43"/>
+<polygon fill="#000000" stroke="#000000" points="484.18,-220.94 474.21,-224.51 484.23,-227.94 484.18,-220.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="proc~~solve_wbs~~UsesGraph_node7" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_proc~~solve_wbs~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-63.42 510,-63.42 510,-39.42 587,-39.42 587,-63.42"/>
-<text text-anchor="middle" x="548.5" y="-49.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<title>module~helio_classes</title>
+<g id="a_proc~~solve_wbs~~UsesGraph_node7"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-197.71 510.5,-197.71 510.5,-173.71 586.5,-173.71 586.5,-197.71"/>
+<text text-anchor="middle" x="548.5" y="-183.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="proc~~solve_wbs~~UsesGraph_edge6" class="edge">
-<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-91.42C637.04,-87.08 607.43,-76.64 585.14,-67.52"/>
-<polygon fill="#000000" stroke="#000000" points="586.33,-64.22 575.76,-63.58 583.62,-70.67 586.33,-64.22"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.59,-119.97C737.39,-110.15 700.28,-96.76 666.5,-91.42"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="proc~~solve_wbs~~UsesGraph_edge7" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-225.71C633.17,-229.67 599.23,-215.38 576.41,-202.8"/>
+<polygon fill="#000000" stroke="#000000" points="578.06,-199.71 567.64,-197.74 574.56,-205.77 578.06,-199.71"/>
 </g>
-<!-- module~symba_classes -->
+<!-- module~rmvs_classes -->
 <g id="proc~~solve_wbs~~UsesGraph_node8" class="node">
-<title>module~symba_classes</title>
-<g id="a_proc~~solve_wbs~~UsesGraph_node8"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-143.42 623,-143.42 623,-119.42 708,-119.42 708,-143.42"/>
-<text text-anchor="middle" x="665.5" y="-129.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<title>module~rmvs_classes</title>
+<g id="a_proc~~solve_wbs~~UsesGraph_node8"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-155.71 510,-155.71 510,-131.71 587,-131.71 587,-155.71"/>
+<text text-anchor="middle" x="548.5" y="-141.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="proc~~solve_wbs~~UsesGraph_edge7" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.94,-131.42C749.24,-131.42 733.52,-131.42 718.52,-131.42"/>
-<polygon fill="#000000" stroke="#000000" points="718.29,-127.92 708.29,-131.42 718.29,-134.92 718.29,-127.92"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="proc~~solve_wbs~~UsesGraph_edge10" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.9,-154.99C755.88,-157.91 749.61,-161.22 744,-164.71 706.77,-187.85 709.99,-220.21 666.5,-225.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-225.71C621.01,-231.21 623.46,-189.05 587,-164.71 585.13,-163.46 583.19,-162.22 581.21,-161"/>
+<polygon fill="#000000" stroke="#000000" points="582.84,-157.89 572.45,-155.81 579.27,-163.92 582.84,-157.89"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~whm_classes -->
 <g id="proc~~solve_wbs~~UsesGraph_node9" class="node">
-<title>module~swiftest_globals</title>
-<g id="a_proc~~solve_wbs~~UsesGraph_node9"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-181.42 123,-181.42 123,-157.42 211,-157.42 211,-181.42"/>
-<text text-anchor="middle" x="167" y="-167.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<title>module~whm_classes</title>
+<g id="a_proc~~solve_wbs~~UsesGraph_node9"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="462,-157.71 386,-157.71 386,-133.71 462,-133.71 462,-157.71"/>
+<text text-anchor="middle" x="424" y="-143.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
 <g id="proc~~solve_wbs~~UsesGraph_edge8" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247.42C437.55,-270.32 405.52,-319.86 298,-287.42"/>
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-225.71C503.94,-223.38 463.69,-188.17 441.92,-165.24"/>
+<polygon fill="#000000" stroke="#000000" points="444.35,-162.72 435.01,-157.72 439.19,-167.45 444.35,-162.72"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-225.71C613.79,-232.12 600.54,-228.43 549.5,-225.71"/>
 </g>
 <!-- module~swiftest_classes -->
 <g id="proc~~solve_wbs~~UsesGraph_node10" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_proc~~solve_wbs~~UsesGraph_node10"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-141.42 252.5,-141.42 252.5,-117.42 341.5,-117.42 341.5,-141.42"/>
-<text text-anchor="middle" x="297" y="-127.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="337,-137.71 248,-137.71 248,-113.71 337,-113.71 337,-137.71"/>
+<text text-anchor="middle" x="292.5" y="-123.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="proc~~solve_wbs~~UsesGraph_edge9" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-91.42C478.05,-85.67 398.6,-101.73 348.37,-114.72"/>
-<polygon fill="#000000" stroke="#000000" points="347.19,-111.42 338.42,-117.36 348.98,-118.18 347.19,-111.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-29.71C379.06,-47.82 336.44,-84.14 312.71,-106.55"/>
+<polygon fill="#000000" stroke="#000000" points="310.2,-104.11 305.42,-113.57 315.05,-109.16 310.2,-104.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M774.76,-131.34C744.43,-103.96 666.44,-38.85 587,-15.71 517.62,4.51 491.81,-2.16 425,-29.71"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~symba_classes -->
 <g id="proc~~solve_wbs~~UsesGraph_node11" class="node">
-<title>module~whm_classes</title>
-<g id="a_proc~~solve_wbs~~UsesGraph_node11"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-63.42 390.5,-63.42 390.5,-39.42 466.5,-39.42 466.5,-63.42"/>
-<text text-anchor="middle" x="428.5" y="-49.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<title>module~symba_classes</title>
+<g id="a_proc~~solve_wbs~~UsesGraph_node11"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-155.71 623,-155.71 623,-131.71 708,-131.71 708,-155.71"/>
+<text text-anchor="middle" x="665.5" y="-141.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="proc~~solve_wbs~~UsesGraph_edge10" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-91.42C517.89,-88.97 486.07,-77.63 462.95,-67.65"/>
-<polygon fill="#000000" stroke="#000000" points="464.17,-64.36 453.61,-63.48 461.32,-70.75 464.17,-64.36"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-91.42C614.01,-83.45 600.44,-95.64 549.5,-91.42"/>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="proc~~solve_wbs~~UsesGraph_edge5" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.94,-143.71C749.24,-143.71 733.52,-143.71 718.52,-143.71"/>
+<polygon fill="#000000" stroke="#000000" points="718.29,-140.21 708.29,-143.71 718.29,-147.21 718.29,-140.21"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="proc~~solve_wbs~~UsesGraph_edge13" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-169.42C271.49,-171.18 244.28,-171.42 221.27,-171.13"/>
-<polygon fill="#000000" stroke="#000000" points="221.07,-167.62 211.01,-170.96 220.95,-174.62 221.07,-167.62"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131.42C367.66,-135.5 357.83,-165.12 298,-169.42"/>
+<!-- iso_fortran_env -->
+<g id="proc~~solve_wbs~~UsesGraph_node12" class="node">
+<title>iso_fortran_env</title>
+<g id="a_proc~~solve_wbs~~UsesGraph_node12"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-197.71 0,-197.71 0,-173.71 87,-173.71 87,-197.71"/>
+<text text-anchor="middle" x="43.5" y="-183.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="proc~~solve_wbs~~UsesGraph_edge11" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131.42C402.58,-133.12 374.91,-132.97 351.57,-132.25"/>
-<polygon fill="#000000" stroke="#000000" points="351.63,-128.75 341.51,-131.9 351.38,-135.75 351.63,-128.75"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.25,-130.13C487.01,-129.64 456.48,-129.58 429.5,-131.42"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="proc~~solve_wbs~~UsesGraph_edge12" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M529.58,-119.27C509.88,-105.92 478.07,-84.35 455.61,-69.12"/>
-<polygon fill="#000000" stroke="#000000" points="457.44,-66.14 447.2,-63.42 453.52,-71.93 457.44,-66.14"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="proc~~solve_wbs~~UsesGraph_edge11" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-185.71C114.58,-185.71 105.86,-185.71 97.36,-185.71"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-182.21 87.13,-185.71 97.13,-189.21 97.13,-182.21"/>
 </g>
 <!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="proc~~solve_wbs~~UsesGraph_edge14" class="edge">
+<g id="proc~~solve_wbs~~UsesGraph_edge12" class="edge">
 <title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-287.42C243.82,-271.67 201.63,-219.55 181.26,-190.12"/>
-<polygon fill="#000000" stroke="#000000" points="184.13,-188.13 175.65,-181.78 178.32,-192.03 184.13,-188.13"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M400.8,-259.52C368.87,-273.32 317.32,-293.25 298,-287.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-213.71C242.1,-209.71 228.18,-205.2 215.18,-200.99"/>
+<polygon fill="#000000" stroke="#000000" points="216.05,-197.59 205.45,-197.84 213.89,-204.25 216.05,-197.59"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="proc~~solve_wbs~~UsesGraph_edge15" class="edge">
+<g id="proc~~solve_wbs~~UsesGraph_edge13" class="edge">
 <title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-197.42C244.68,-193.38 230.09,-188.83 216.5,-184.58"/>
-<polygon fill="#000000" stroke="#000000" points="217.41,-181.19 206.82,-181.55 215.32,-187.88 217.41,-181.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.44,-213.71C377.32,-200.39 333.26,-181.3 293.5,-185.71"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="proc~~solve_wbs~~UsesGraph_edge14" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.34,-183.16C460.73,-180.33 370.2,-177.21 293.5,-185.71"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="proc~~solve_wbs~~UsesGraph_edge15" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.75,-173.71C498.5,-169.71 484.7,-165.2 471.8,-160.99"/>
+<polygon fill="#000000" stroke="#000000" points="472.74,-157.62 462.15,-157.84 470.57,-164.27 472.74,-157.62"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="proc~~solve_wbs~~UsesGraph_edge16" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.94,-173.49C518.47,-170.84 513.96,-167.88 510,-164.71 491.32,-149.78 495.85,-134.44 474,-124.71 434.23,-106.99 384.46,-108.8 347.26,-114.16"/>
+<polygon fill="#000000" stroke="#000000" points="346.46,-110.74 337.12,-115.75 347.54,-117.66 346.46,-110.74"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="proc~~solve_wbs~~UsesGraph_edge17" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-11.42C233.62,-35.31 193.53,-110.2 176.85,-147.65"/>
-<polygon fill="#000000" stroke="#000000" points="173.51,-146.57 172.77,-157.14 179.94,-149.34 173.51,-146.57"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.91,-39.36C477.15,-18.67 376.45,18.62 298,-11.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-185.71C268.52,-188.36 242.96,-188.78 221.09,-188.37"/>
+<polygon fill="#000000" stroke="#000000" points="221.09,-184.87 211.01,-188.12 220.92,-191.87 221.09,-184.87"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M513.65,-131.68C478,-120.91 420.67,-109.02 374,-124.71 331.45,-139.01 338.09,-180.56 293.5,-185.71"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="proc~~solve_wbs~~UsesGraph_edge16" class="edge">
+<g id="proc~~solve_wbs~~UsesGraph_edge18" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.84,-51.42C499.41,-51.42 487.96,-51.42 477.05,-51.42"/>
-<polygon fill="#000000" stroke="#000000" points="476.8,-47.92 466.8,-51.42 476.8,-54.92 476.8,-47.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-144.32C497.99,-144.52 484.88,-144.73 472.55,-144.93"/>
+<polygon fill="#000000" stroke="#000000" points="472.36,-141.43 462.42,-145.1 472.47,-148.43 472.36,-141.43"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="proc~~solve_wbs~~UsesGraph_edge21" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-131.42C614.47,-131.42 605.46,-131.42 596.76,-131.42"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-127.92 586.76,-131.42 596.76,-134.92 596.76,-127.92"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="proc~~solve_wbs~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-119.39C637.51,-115.13 629.83,-110.2 623,-105.42 606.39,-93.8 603.33,-89.42 587,-77.42 583.48,-74.84 579.74,-72.16 576.03,-69.55"/>
-<polygon fill="#000000" stroke="#000000" points="577.78,-66.5 567.57,-63.65 573.78,-72.24 577.78,-66.5"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M394.86,-157.8C369.06,-168.05 329.52,-181.72 293.5,-185.71"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <g id="proc~~solve_wbs~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-169.42C369.98,-167.47 355.41,-165.3 298,-169.42"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="proc~~solve_wbs~~UsesGraph_edge18" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.05,-143.51C579.7,-156.72 499.31,-175.28 429.5,-169.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-169.42C394.13,-168.29 357.98,-156.13 332.37,-145.51"/>
-<polygon fill="#000000" stroke="#000000" points="333.67,-142.26 323.1,-141.54 330.92,-148.69 333.67,-142.26"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="proc~~solve_wbs~~UsesGraph_node12" class="node">
-<title>iso_fortran_env</title>
-<g id="a_proc~~solve_wbs~~UsesGraph_node12"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-181.42 0,-181.42 0,-157.42 87,-157.42 87,-181.42"/>
-<text text-anchor="middle" x="43.5" y="-167.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
-</g>
-</g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="proc~~solve_wbs~~UsesGraph_edge22" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-169.42C114.58,-169.42 105.86,-169.42 97.36,-169.42"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-165.92 87.13,-169.42 97.13,-172.92 97.13,-165.92"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-139.98C373.86,-138.12 360.26,-136.02 347.27,-134.01"/>
+<polygon fill="#000000" stroke="#000000" points="347.44,-130.5 337.02,-132.43 346.37,-137.42 347.44,-130.5"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="proc~~solve_wbs~~UsesGraph_edge23" class="edge">
+<g id="proc~~solve_wbs~~UsesGraph_edge21" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-141.42C244.68,-145.46 230.09,-150.02 216.5,-154.26"/>
-<polygon fill="#000000" stroke="#000000" points="215.32,-150.97 206.82,-157.29 217.41,-157.65 215.32,-150.97"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.51,-137.85C248.01,-146.84 222.59,-159.18 202.21,-169.09"/>
+<polygon fill="#000000" stroke="#000000" points="200.42,-166.07 192.95,-173.58 203.48,-172.36 200.42,-166.07"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="proc~~solve_wbs~~UsesGraph_edge22" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.38,-131.54C639.61,-107.5 598.57,-54.14 549.5,-29.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-29.71C478.25,4.77 447.78,7.57 374,-15.71 288.08,-42.82 213.91,-126.71 183.16,-165.57"/>
+<polygon fill="#000000" stroke="#000000" points="180.31,-163.53 176.94,-173.57 185.84,-167.82 180.31,-163.53"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <g id="proc~~solve_wbs~~UsesGraph_edge25" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.76,-39.36C369.77,-25.09 317.06,-4.12 298,-11.42"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-155.74C619.28,-160.23 605.17,-165.38 592.15,-170.13"/>
+<polygon fill="#000000" stroke="#000000" points="590.65,-166.95 582.46,-173.67 593.05,-173.53 590.65,-166.95"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="proc~~solve_wbs~~UsesGraph_edge23" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-143.71C614.66,-143.71 605.85,-143.71 597.33,-143.71"/>
+<polygon fill="#000000" stroke="#000000" points="597.14,-140.21 587.14,-143.71 597.14,-147.21 597.14,-140.21"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="proc~~solve_wbs~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.62,-63.5C399.15,-67.86 390.68,-72.83 383,-77.42 363.96,-88.81 342.66,-101.84 326.15,-112"/>
-<polygon fill="#000000" stroke="#000000" points="324.19,-109.1 317.51,-117.33 327.86,-115.06 324.19,-109.1"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-29.71C498.76,-5.44 475.33,-8.96 425,-29.71"/>
 </g>
 </g>
 </svg>
@@ -637,33 +634,33 @@ <h3 class="panel-title">Called by</h3>
 <polygon fill="none" stroke="black" points="239,-45 177,-45 177,-21 239,-21 239,-45"/>
 <text text-anchor="middle" x="208" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">solve_wbs</text>
 </g>
-<!-- proc~util_solve_linear_system_q -->
+<!-- proc~util_solve_linear_system_d -->
 <g id="proc~~solve_wbs~~CalledByGraph_node2" class="node">
-<title>proc~util_solve_linear_system_q</title>
-<g id="a_proc~~solve_wbs~~CalledByGraph_node2"><a xlink:href=".././proc/util_solve_linear_system_q.html" xlink:title="util_solve_linear_system_q">
+<title>proc~util_solve_linear_system_d</title>
+<g id="a_proc~~solve_wbs~~CalledByGraph_node2"><a xlink:href=".././proc/util_solve_linear_system_d.html" xlink:title="util_solve_linear_system_d">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="141,-66 0,-66 0,-42 141,-42 141,-66"/>
-<text text-anchor="middle" x="70.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system_q</text>
+<text text-anchor="middle" x="70.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system_d</text>
 </a>
 </g>
 </g>
-<!-- proc~util_solve_linear_system_q&#45;&gt;proc~solve_wbs -->
+<!-- proc~util_solve_linear_system_d&#45;&gt;proc~solve_wbs -->
 <g id="proc~~solve_wbs~~CalledByGraph_edge1" class="edge">
-<title>proc~util_solve_linear_system_q&#45;&gt;proc~solve_wbs</title>
+<title>proc~util_solve_linear_system_d&#45;&gt;proc~solve_wbs</title>
 <path fill="none" stroke="#000000" d="M141.23,-43.19C150.08,-41.82 158.88,-40.46 167.03,-39.19"/>
 <polygon fill="#000000" stroke="#000000" points="167.62,-42.65 176.96,-37.66 166.55,-35.73 167.62,-42.65"/>
 </g>
-<!-- proc~util_solve_linear_system_d -->
+<!-- proc~util_solve_linear_system_q -->
 <g id="proc~~solve_wbs~~CalledByGraph_node3" class="node">
-<title>proc~util_solve_linear_system_d</title>
-<g id="a_proc~~solve_wbs~~CalledByGraph_node3"><a xlink:href=".././proc/util_solve_linear_system_d.html" xlink:title="util_solve_linear_system_d">
+<title>proc~util_solve_linear_system_q</title>
+<g id="a_proc~~solve_wbs~~CalledByGraph_node3"><a xlink:href=".././proc/util_solve_linear_system_q.html" xlink:title="util_solve_linear_system_q">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="141,-24 0,-24 0,0 141,0 141,-24"/>
-<text text-anchor="middle" x="70.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system_d</text>
+<text text-anchor="middle" x="70.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_linear_system_q</text>
 </a>
 </g>
 </g>
-<!-- proc~util_solve_linear_system_d&#45;&gt;proc~solve_wbs -->
+<!-- proc~util_solve_linear_system_q&#45;&gt;proc~solve_wbs -->
 <g id="proc~~solve_wbs~~CalledByGraph_edge2" class="edge">
-<title>proc~util_solve_linear_system_d&#45;&gt;proc~solve_wbs</title>
+<title>proc~util_solve_linear_system_q&#45;&gt;proc~solve_wbs</title>
 <path fill="none" stroke="#000000" d="M141.23,-22.81C150.08,-24.18 158.88,-25.54 167.03,-26.81"/>
 <polygon fill="#000000" stroke="#000000" points="166.55,-30.27 176.96,-28.34 167.62,-23.35 166.55,-30.27"/>
 </g>
diff --git a/docs/proc/symba_collision_check_pltpenc.html b/docs/proc/symba_collision_check_pltpenc.html
index f73cb2bef..ec8620d04 100644
--- a/docs/proc/symba_collision_check_pltpenc.html
+++ b/docs/proc/symba_collision_check_pltpenc.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~94"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~98"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~179"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~183"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -365,44 +365,44 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M135.73,-66.04C167.01,-73.04 205.61,-81.69 233.29,-87.89"/>
 <polygon fill="#000000" stroke="#000000" points="232.81,-91.37 243.33,-90.14 234.34,-84.54 232.81,-91.37"/>
 </g>
-<!-- proc~symba_collision_check_one -->
+<!-- ind1 -->
 <g id="proc~~symba_collision_check_pltpenc~~CallsGraph_node3" class="node">
+<title>ind1</title>
+<polygon fill="#777777" stroke="#777777" points="297.5,-66 243.5,-66 243.5,-42 297.5,-42 297.5,-66"/>
+<text text-anchor="middle" x="270.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind1</text>
+</g>
+<!-- proc~symba_collision_check_pltpenc&#45;&gt;ind1 -->
+<g id="proc~~symba_collision_check_pltpenc~~CallsGraph_edge2" class="edge">
+<title>proc~symba_collision_check_pltpenc&#45;&gt;ind1</title>
+<path fill="none" stroke="#000000" d="M162.06,-54C186.81,-54 212.86,-54 233.11,-54"/>
+<polygon fill="#000000" stroke="#000000" points="233.14,-57.5 243.14,-54 233.14,-50.5 233.14,-57.5"/>
+</g>
+<!-- proc~symba_collision_check_one -->
+<g id="proc~~symba_collision_check_pltpenc~~CallsGraph_node4" class="node">
 <title>proc~symba_collision_check_one</title>
-<g id="a_proc~~symba_collision_check_pltpenc~~CallsGraph_node3"><a xlink:href=".././proc/symba_collision_check_one.html" xlink:title="symba_collision_check_one">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="343,-66 198,-66 198,-42 343,-42 343,-66"/>
-<text text-anchor="middle" x="270.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_one</text>
+<g id="a_proc~~symba_collision_check_pltpenc~~CallsGraph_node4"><a xlink:href=".././proc/symba_collision_check_one.html" xlink:title="symba_collision_check_one">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="343,-24 198,-24 198,0 343,0 343,-24"/>
+<text text-anchor="middle" x="270.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_check_one</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_collision_check_pltpenc&#45;&gt;proc~symba_collision_check_one -->
 <g id="proc~~symba_collision_check_pltpenc~~CallsGraph_edge3" class="edge">
 <title>proc~symba_collision_check_pltpenc&#45;&gt;proc~symba_collision_check_one</title>
-<path fill="none" stroke="#000000" d="M162.06,-54C170.48,-54 179.05,-54 187.5,-54"/>
-<polygon fill="#000000" stroke="#000000" points="187.71,-57.5 197.71,-54 187.71,-50.5 187.71,-57.5"/>
-</g>
-<!-- ind1 -->
-<g id="proc~~symba_collision_check_pltpenc~~CallsGraph_node4" class="node">
-<title>ind1</title>
-<polygon fill="#777777" stroke="#777777" points="297.5,-24 243.5,-24 243.5,0 297.5,0 297.5,-24"/>
-<text text-anchor="middle" x="270.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ind1</text>
-</g>
-<!-- proc~symba_collision_check_pltpenc&#45;&gt;ind1 -->
-<g id="proc~~symba_collision_check_pltpenc~~CallsGraph_edge2" class="edge">
-<title>proc~symba_collision_check_pltpenc&#45;&gt;ind1</title>
-<path fill="none" stroke="#000000" d="M135.73,-41.96C167.01,-34.96 205.61,-26.31 233.29,-20.11"/>
-<polygon fill="#000000" stroke="#000000" points="234.34,-23.46 243.33,-17.86 232.81,-16.63 234.34,-23.46"/>
+<path fill="none" stroke="#000000" d="M135.73,-41.96C157.6,-37.07 183.05,-31.37 205.84,-26.26"/>
+<polygon fill="#000000" stroke="#000000" points="206.77,-29.64 215.76,-24.04 205.24,-22.81 206.77,-29.64"/>
 </g>
 <!-- orbel_xv2aeq -->
 <g id="proc~~symba_collision_check_pltpenc~~CallsGraph_node5" class="node">
 <title>orbel_xv2aeq</title>
-<polygon fill="#777777" stroke="#777777" points="456,-66 379,-66 379,-42 456,-42 456,-66"/>
-<text text-anchor="middle" x="417.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aeq</text>
+<polygon fill="#777777" stroke="#777777" points="456,-24 379,-24 379,0 456,0 456,-24"/>
+<text text-anchor="middle" x="417.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel_xv2aeq</text>
 </g>
 <!-- proc~symba_collision_check_one&#45;&gt;orbel_xv2aeq -->
 <g id="proc~~symba_collision_check_pltpenc~~CallsGraph_edge4" class="edge">
 <title>proc~symba_collision_check_one&#45;&gt;orbel_xv2aeq</title>
-<path fill="none" stroke="#000000" d="M343.15,-54C351.78,-54 360.42,-54 368.6,-54"/>
-<polygon fill="#000000" stroke="#000000" points="368.66,-57.5 378.66,-54 368.66,-50.5 368.66,-57.5"/>
+<path fill="none" stroke="#000000" d="M343.15,-12C351.78,-12 360.42,-12 368.6,-12"/>
+<polygon fill="#000000" stroke="#000000" points="368.66,-15.5 378.66,-12 368.66,-8.5 368.66,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_collision_encounter_scrub.html b/docs/proc/symba_collision_encounter_scrub.html
index dbd988d2d..75b9605d3 100644
--- a/docs/proc/symba_collision_encounter_scrub.html
+++ b/docs/proc/symba_collision_encounter_scrub.html
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~95"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~99"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~180"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~184"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -306,27 +306,27 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="174,-45 0,-45 0,-21 174,-21 174,-45"/>
 <text text-anchor="middle" x="87" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_encounter_scrub</text>
 </g>
-<!-- idx1 -->
+<!-- idx2 -->
 <g id="proc~~symba_collision_encounter_scrub~~CallsGraph_node2" class="node">
-<title>idx1</title>
+<title>idx2</title>
 <polygon fill="#777777" stroke="#777777" points="264,-66 210,-66 210,-42 264,-42 264,-66"/>
-<text text-anchor="middle" x="237" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
+<text text-anchor="middle" x="237" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx2</text>
 </g>
-<!-- proc~symba_collision_encounter_scrub&#45;&gt;idx1 -->
+<!-- proc~symba_collision_encounter_scrub&#45;&gt;idx2 -->
 <g id="proc~~symba_collision_encounter_scrub~~CallsGraph_edge1" class="edge">
-<title>proc~symba_collision_encounter_scrub&#45;&gt;idx1</title>
+<title>proc~symba_collision_encounter_scrub&#45;&gt;idx2</title>
 <path fill="none" stroke="#000000" d="M172.81,-45.03C182.25,-46.37 191.46,-47.68 199.79,-48.86"/>
 <polygon fill="#000000" stroke="#000000" points="199.44,-52.35 209.83,-50.29 200.42,-45.42 199.44,-52.35"/>
 </g>
-<!-- idx2 -->
+<!-- idx1 -->
 <g id="proc~~symba_collision_encounter_scrub~~CallsGraph_node3" class="node">
-<title>idx2</title>
+<title>idx1</title>
 <polygon fill="#777777" stroke="#777777" points="264,-24 210,-24 210,0 264,0 264,-24"/>
-<text text-anchor="middle" x="237" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx2</text>
+<text text-anchor="middle" x="237" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
 </g>
-<!-- proc~symba_collision_encounter_scrub&#45;&gt;idx2 -->
+<!-- proc~symba_collision_encounter_scrub&#45;&gt;idx1 -->
 <g id="proc~~symba_collision_encounter_scrub~~CallsGraph_edge2" class="edge">
-<title>proc~symba_collision_encounter_scrub&#45;&gt;idx2</title>
+<title>proc~symba_collision_encounter_scrub&#45;&gt;idx1</title>
 <path fill="none" stroke="#000000" d="M172.81,-20.97C182.25,-19.63 191.46,-18.32 199.79,-17.14"/>
 <polygon fill="#000000" stroke="#000000" points="200.42,-20.58 209.83,-15.71 199.44,-13.65 200.42,-20.58"/>
 </g>
diff --git a/docs/proc/symba_collision_resolve_fragmentations.html b/docs/proc/symba_collision_resolve_fragmentations.html
index 017ca700a..ad70491ea 100644
--- a/docs/proc/symba_collision_resolve_fragmentations.html
+++ b/docs/proc/symba_collision_resolve_fragmentations.html
@@ -259,7 +259,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~96"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~100"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -274,7 +274,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~181"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~185"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -303,235 +303,268 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~symba_collision_resolve_fragmentations~~CallsGraph Pages: 1 -->
-<svg id="procsymba_collision_resolve_fragmentationsCallsGraph" width="641pt" height="232pt"
- viewBox="0.00 0.00 641.00 231.93" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 322)">
+<svg id="procsymba_collision_resolve_fragmentationsCallsGraph" width="641pt" height="216pt"
+ viewBox="0.00 0.00 641.00 216.10" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph" class="graph" transform="scale(0.66 0.66) rotate(0) translate(4 322)">
 <title>proc~~symba_collision_resolve_fragmentations~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-322 897,-322 897,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-322 963,-322 963,4 -4,4"/>
 <!-- proc~symba_collision_resolve_fragmentations -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node1" class="node">
 <title>proc~symba_collision_resolve_fragmentations</title>
 <polygon fill="none" stroke="black" points="205,-171 0,-171 0,-147 205,-147 205,-171"/>
 <text text-anchor="middle" x="102.5" y="-156.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision_resolve_fragmentations</text>
 </g>
-<!-- interface~symba_fragmentation_casesupercatastrophic -->
+<!-- idx2 -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node2" class="node">
+<title>idx2</title>
+<polygon fill="#777777" stroke="#777777" points="382.5,-318 328.5,-318 328.5,-294 382.5,-294 382.5,-318"/>
+<text text-anchor="middle" x="355.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx2</text>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx2 -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge1" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx2</title>
+<path fill="none" stroke="#000000" d="M112.64,-171.07C132.75,-196.67 183.62,-256.4 241,-285 265.11,-297.02 295.19,-302.2 318.33,-304.42"/>
+<polygon fill="#000000" stroke="#000000" points="318.17,-307.92 328.42,-305.24 318.74,-300.94 318.17,-307.92"/>
+</g>
+<!-- interface~symba_fragmentation_casesupercatastrophic -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node3" class="node">
 <title>interface~symba_fragmentation_casesupercatastrophic</title>
-<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node2"><a xlink:href=".././interface/symba_fragmentation_casesupercatastrophic.html" xlink:title="symba_fragmentation_casesupercatastrophic">
-<polygon fill="#a7506f" stroke="#a7506f" points="470,-318 241,-318 241,-294 470,-294 470,-318"/>
-<text text-anchor="middle" x="355.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casesupercatastrophic</text>
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node3"><a xlink:href=".././interface/symba_fragmentation_casesupercatastrophic.html" xlink:title="symba_fragmentation_casesupercatastrophic">
+<polygon fill="#a7506f" stroke="#a7506f" points="470,-192 241,-192 241,-168 470,-168 470,-192"/>
+<text text-anchor="middle" x="355.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casesupercatastrophic</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casesupercatastrophic -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge1" class="edge">
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge3" class="edge">
 <title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casesupercatastrophic</title>
-<path fill="none" stroke="#000000" d="M112.64,-171.07C132.75,-196.67 183.62,-256.4 241,-285 245.1,-287.04 249.36,-288.89 253.74,-290.55"/>
-<polygon fill="#000000" stroke="#000000" points="252.88,-293.96 263.47,-293.92 255.17,-287.34 252.88,-293.96"/>
+<path fill="none" stroke="#000000" d="M205.23,-167.51C213.63,-168.21 222.18,-168.93 230.71,-169.64"/>
+<polygon fill="#000000" stroke="#000000" points="230.46,-173.13 240.72,-170.48 231.05,-166.16 230.46,-173.13"/>
 </g>
-<!-- interface~symba_fragmentation_casehitandrun -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node3" class="node">
-<title>interface~symba_fragmentation_casehitandrun</title>
-<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node3"><a xlink:href=".././interface/symba_fragmentation_casehitandrun.html" xlink:title="symba_fragmentation_casehitandrun">
-<polygon fill="#a7506f" stroke="#a7506f" points="450.5,-276 260.5,-276 260.5,-252 450.5,-252 450.5,-276"/>
-<text text-anchor="middle" x="355.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casehitandrun</text>
+<!-- proc~symba_collision_consolidate_familes -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node4" class="node">
+<title>proc~symba_collision_consolidate_familes</title>
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node4"><a xlink:href=".././proc/symba_collision_consolidate_familes.html" xlink:title="symba_collision_consolidate_familes">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="449,-108 262,-108 262,-84 449,-84 449,-108"/>
+<text text-anchor="middle" x="355.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_consolidate_familes</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun -->
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_familes -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge2" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun</title>
-<path fill="none" stroke="#000000" d="M119,-171.13C143.47,-189.64 193.19,-224.69 241,-243 247.22,-245.38 253.75,-247.5 260.38,-249.38"/>
-<polygon fill="#000000" stroke="#000000" points="259.61,-252.8 270.17,-251.98 261.4,-246.03 259.61,-252.8"/>
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_familes</title>
+<path fill="none" stroke="#000000" d="M139.09,-146.91C166.67,-137.84 205.96,-125.56 241,-117 251.11,-114.53 261.78,-112.2 272.38,-110.05"/>
+<polygon fill="#000000" stroke="#000000" points="273.36,-113.42 282.49,-108.05 272,-106.56 273.36,-113.42"/>
 </g>
-<!-- interface~symba_fragmentation_casedisruption -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node4" class="node">
-<title>interface~symba_fragmentation_casedisruption</title>
-<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node4"><a xlink:href=".././interface/symba_fragmentation_casedisruption.html" xlink:title="symba_fragmentation_casedisruption">
-<polygon fill="#a7506f" stroke="#a7506f" points="451,-234 260,-234 260,-210 451,-210 451,-234"/>
-<text text-anchor="middle" x="355.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casedisruption</text>
+<!-- interface~symba_fragmentation_casemerge -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node5" class="node">
+<title>interface~symba_fragmentation_casemerge</title>
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node5"><a xlink:href=".././interface/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
+<polygon fill="#a7506f" stroke="#a7506f" points="443,-150 268,-150 268,-126 443,-126 443,-150"/>
+<text text-anchor="middle" x="355.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge3" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption</title>
-<path fill="none" stroke="#000000" d="M139.09,-171.09C166.67,-180.16 205.96,-192.44 241,-201 251.11,-203.47 261.78,-205.8 272.38,-207.95"/>
-<polygon fill="#000000" stroke="#000000" points="272,-211.44 282.49,-209.95 273.36,-204.58 272,-211.44"/>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge4" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge</title>
+<path fill="none" stroke="#000000" d="M205.23,-150.49C222.61,-149.03 240.62,-147.53 257.86,-146.09"/>
+<polygon fill="#000000" stroke="#000000" points="258.24,-149.57 267.92,-145.24 257.66,-142.59 258.24,-149.57"/>
 </g>
 <!-- idx1 -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node5" class="node">
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node6" class="node">
 <title>idx1</title>
-<polygon fill="#777777" stroke="#777777" points="382.5,-192 328.5,-192 328.5,-168 382.5,-168 382.5,-192"/>
-<text text-anchor="middle" x="355.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
+<polygon fill="#777777" stroke="#777777" points="382.5,-66 328.5,-66 328.5,-42 382.5,-42 382.5,-66"/>
+<text text-anchor="middle" x="355.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
 </g>
 <!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx1 -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge4" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx1</title>
-<path fill="none" stroke="#000000" d="M205.23,-167.51C245.17,-170.85 288.44,-174.47 318.06,-176.95"/>
-<polygon fill="#000000" stroke="#000000" points="318.07,-180.46 328.32,-177.81 318.65,-173.49 318.07,-180.46"/>
-</g>
-<!-- util_exit -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node6" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="382.5,-150 328.5,-150 328.5,-126 382.5,-126 382.5,-150"/>
-<text text-anchor="middle" x="355.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
-</g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;util_exit -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge5" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M205.23,-150.49C245.17,-147.15 288.44,-143.53 318.06,-141.05"/>
-<polygon fill="#000000" stroke="#000000" points="318.65,-144.51 328.32,-140.19 318.07,-137.54 318.65,-144.51"/>
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx1</title>
+<path fill="none" stroke="#000000" d="M119,-146.87C143.47,-128.36 193.19,-93.31 241,-75 265.72,-65.54 295.14,-60.25 317.84,-57.34"/>
+<polygon fill="#000000" stroke="#000000" points="318.55,-60.79 328.07,-56.14 317.73,-53.83 318.55,-60.79"/>
 </g>
-<!-- idx2 -->
+<!-- interface~symba_fragmentation_casehitandrun -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node7" class="node">
-<title>idx2</title>
-<polygon fill="#777777" stroke="#777777" points="382.5,-108 328.5,-108 328.5,-84 382.5,-84 382.5,-108"/>
-<text text-anchor="middle" x="355.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx2</text>
+<title>interface~symba_fragmentation_casehitandrun</title>
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node7"><a xlink:href=".././interface/symba_fragmentation_casehitandrun.html" xlink:title="symba_fragmentation_casehitandrun">
+<polygon fill="#a7506f" stroke="#a7506f" points="450.5,-276 260.5,-276 260.5,-252 450.5,-252 450.5,-276"/>
+<text text-anchor="middle" x="355.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casehitandrun</text>
+</a>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;idx2 -->
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge6" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;idx2</title>
-<path fill="none" stroke="#000000" d="M139.09,-146.91C166.67,-137.84 205.96,-125.56 241,-117 266.54,-110.76 295.72,-105.4 318.1,-101.65"/>
-<polygon fill="#000000" stroke="#000000" points="318.87,-105.07 328.17,-100 317.74,-98.17 318.87,-105.07"/>
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun</title>
+<path fill="none" stroke="#000000" d="M119,-171.13C143.47,-189.64 193.19,-224.69 241,-243 247.22,-245.38 253.75,-247.5 260.38,-249.38"/>
+<polygon fill="#000000" stroke="#000000" points="259.61,-252.8 270.17,-251.98 261.4,-246.03 259.61,-252.8"/>
 </g>
-<!-- proc~symba_collision_consolidate_familes -->
+<!-- util_exit -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node8" class="node">
-<title>proc~symba_collision_consolidate_familes</title>
-<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node8"><a xlink:href=".././proc/symba_collision_consolidate_familes.html" xlink:title="symba_collision_consolidate_familes">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="449,-66 262,-66 262,-42 449,-42 449,-66"/>
-<text text-anchor="middle" x="355.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_consolidate_familes</text>
-</a>
-</g>
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="382.5,-24 328.5,-24 328.5,0 382.5,0 382.5,-24"/>
+<text text-anchor="middle" x="355.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_familes -->
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;util_exit -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge7" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_consolidate_familes</title>
-<path fill="none" stroke="#000000" d="M119,-146.87C143.47,-128.36 193.19,-93.31 241,-75 247.22,-72.62 253.75,-70.5 260.38,-68.62"/>
-<polygon fill="#000000" stroke="#000000" points="261.4,-71.97 270.17,-66.02 259.61,-65.2 261.4,-71.97"/>
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M112.64,-146.93C132.75,-121.33 183.62,-61.6 241,-33 265.11,-20.98 295.19,-15.8 318.33,-13.58"/>
+<polygon fill="#000000" stroke="#000000" points="318.74,-17.06 328.42,-12.76 318.17,-10.08 318.74,-17.06"/>
 </g>
-<!-- interface~symba_fragmentation_casemerge -->
+<!-- interface~symba_fragmentation_casedisruption -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node9" class="node">
-<title>interface~symba_fragmentation_casemerge</title>
-<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node9"><a xlink:href=".././interface/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
-<polygon fill="#a7506f" stroke="#a7506f" points="443,-24 268,-24 268,0 443,0 443,-24"/>
-<text text-anchor="middle" x="355.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
+<title>interface~symba_fragmentation_casedisruption</title>
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node9"><a xlink:href=".././interface/symba_fragmentation_casedisruption.html" xlink:title="symba_fragmentation_casedisruption">
+<polygon fill="#a7506f" stroke="#a7506f" points="451,-234 260,-234 260,-210 451,-210 451,-234"/>
+<text text-anchor="middle" x="355.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casedisruption</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge -->
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge8" class="edge">
-<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge</title>
-<path fill="none" stroke="#000000" d="M112.64,-146.93C132.75,-121.33 183.62,-61.6 241,-33 246.53,-30.24 252.38,-27.85 258.38,-25.76"/>
-<polygon fill="#000000" stroke="#000000" points="259.45,-29.09 267.93,-22.74 257.34,-22.42 259.45,-29.09"/>
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption</title>
+<path fill="none" stroke="#000000" d="M139.09,-171.09C166.67,-180.16 205.96,-192.44 241,-201 251.11,-203.47 261.78,-205.8 272.38,-207.95"/>
+<polygon fill="#000000" stroke="#000000" points="272,-211.44 282.49,-209.95 273.36,-204.58 272,-211.44"/>
 </g>
 <!-- proc~symba_fragmentation_casesupercatastrophic -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node12" class="node">
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node14" class="node">
 <title>proc~symba_fragmentation_casesupercatastrophic</title>
-<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node12"><a xlink:href=".././proc/symba_fragmentation_casesupercatastrophic.html" xlink:title="symba_fragmentation_casesupercatastrophic">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="735,-318 506,-318 506,-294 735,-294 735,-318"/>
-<text text-anchor="middle" x="620.5" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casesupercatastrophic</text>
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node14"><a xlink:href=".././proc/symba_fragmentation_casesupercatastrophic.html" xlink:title="symba_fragmentation_casesupercatastrophic">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="735,-192 506,-192 506,-168 735,-168 735,-192"/>
+<text text-anchor="middle" x="620.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casesupercatastrophic</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_casesupercatastrophic -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge9" class="edge">
 <title>interface~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_casesupercatastrophic</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.33,-306C478.72,-306 487.2,-306 495.65,-306"/>
-<polygon fill="#000000" stroke="#000000" points="495.92,-309.5 505.92,-306 495.92,-302.5 495.92,-309.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.33,-180C478.72,-180 487.2,-180 495.65,-180"/>
+<polygon fill="#000000" stroke="#000000" points="495.92,-183.5 505.92,-180 495.92,-176.5 495.92,-183.5"/>
 </g>
-<!-- proc~symba_fragmentation_casehitandrun -->
+<!-- id_arr -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node13" class="node">
+<title>id_arr</title>
+<polygon fill="#777777" stroke="#777777" points="647.5,-108 593.5,-108 593.5,-84 647.5,-84 647.5,-108"/>
+<text text-anchor="middle" x="620.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">id_arr</text>
+</g>
+<!-- proc~symba_collision_consolidate_familes&#45;&gt;id_arr -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge11" class="edge">
+<title>proc~symba_collision_consolidate_familes&#45;&gt;id_arr</title>
+<path fill="none" stroke="#000000" d="M449.22,-96C495.46,-96 548.73,-96 583.19,-96"/>
+<polygon fill="#000000" stroke="#000000" points="583.26,-99.5 593.26,-96 583.26,-92.5 583.26,-99.5"/>
+</g>
+<!-- idx_arr -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node15" class="node">
+<title>idx_arr</title>
+<polygon fill="#777777" stroke="#777777" points="647.5,-66 593.5,-66 593.5,-42 647.5,-42 647.5,-66"/>
+<text text-anchor="middle" x="620.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx_arr</text>
+</g>
+<!-- proc~symba_collision_consolidate_familes&#45;&gt;idx_arr -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge10" class="edge">
+<title>proc~symba_collision_consolidate_familes&#45;&gt;idx_arr</title>
+<path fill="none" stroke="#000000" d="M431.87,-83.96C481.4,-76.05 544.01,-66.06 582.91,-59.84"/>
+<polygon fill="#000000" stroke="#000000" points="583.9,-63.23 593.22,-58.2 582.79,-56.32 583.9,-63.23"/>
+</g>
+<!-- proc~symba_fragmentation_casemerge -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node10" class="node">
+<title>proc~symba_fragmentation_casemerge</title>
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node10"><a xlink:href=".././proc/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="708,-150 533,-150 533,-126 708,-126 708,-150"/>
+<text text-anchor="middle" x="620.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge12" class="edge">
+<title>interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.34,-138C468.71,-138 496.58,-138 522.53,-138"/>
+<polygon fill="#000000" stroke="#000000" points="522.75,-141.5 532.75,-138 522.75,-134.5 522.75,-141.5"/>
+</g>
+<!-- proc~symba_fragmentation_casehitandrun -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node11" class="node">
 <title>proc~symba_fragmentation_casehitandrun</title>
-<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node10"><a xlink:href=".././proc/symba_fragmentation_casehitandrun.html" xlink:title="symba_fragmentation_casehitandrun">
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node11"><a xlink:href=".././proc/symba_fragmentation_casehitandrun.html" xlink:title="symba_fragmentation_casehitandrun">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="715.5,-276 525.5,-276 525.5,-252 715.5,-252 715.5,-276"/>
 <text text-anchor="middle" x="620.5" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casehitandrun</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_casehitandrun -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge10" class="edge">
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge13" class="edge">
 <title>interface~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_casehitandrun</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M450.71,-264C471.57,-264 493.81,-264 515.06,-264"/>
 <polygon fill="#000000" stroke="#000000" points="515.07,-267.5 525.07,-264 515.07,-260.5 515.07,-267.5"/>
 </g>
 <!-- proc~symba_fragmentation_casedisruption -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node14" class="node">
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node12" class="node">
 <title>proc~symba_fragmentation_casedisruption</title>
-<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node14"><a xlink:href=".././proc/symba_fragmentation_casedisruption.html" xlink:title="symba_fragmentation_casedisruption">
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node12"><a xlink:href=".././proc/symba_fragmentation_casedisruption.html" xlink:title="symba_fragmentation_casedisruption">
 <polygon fill="#d94e8f" stroke="#d94e8f" points="716,-234 525,-234 525,-210 716,-210 716,-234"/>
 <text text-anchor="middle" x="620.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casedisruption</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_casedisruption -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge11" class="edge">
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge14" class="edge">
 <title>interface~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_casedisruption</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M451.08,-222C471.71,-222 493.65,-222 514.65,-222"/>
 <polygon fill="#000000" stroke="#000000" points="514.88,-225.5 524.88,-222 514.88,-218.5 514.88,-225.5"/>
 </g>
-<!-- idx_arr -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node11" class="node">
-<title>idx_arr</title>
-<polygon fill="#777777" stroke="#777777" points="647.5,-108 593.5,-108 593.5,-84 647.5,-84 647.5,-108"/>
-<text text-anchor="middle" x="620.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx_arr</text>
-</g>
-<!-- proc~symba_collision_consolidate_familes&#45;&gt;idx_arr -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge12" class="edge">
-<title>proc~symba_collision_consolidate_familes&#45;&gt;idx_arr</title>
-<path fill="none" stroke="#000000" d="M431.87,-66.04C481.4,-73.95 544.01,-83.94 582.91,-90.16"/>
-<polygon fill="#000000" stroke="#000000" points="582.79,-93.68 593.22,-91.8 583.9,-86.77 582.79,-93.68"/>
-</g>
-<!-- id_arr -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node13" class="node">
-<title>id_arr</title>
-<polygon fill="#777777" stroke="#777777" points="647.5,-66 593.5,-66 593.5,-42 647.5,-42 647.5,-66"/>
-<text text-anchor="middle" x="620.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">id_arr</text>
-</g>
-<!-- proc~symba_collision_consolidate_familes&#45;&gt;id_arr -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge13" class="edge">
-<title>proc~symba_collision_consolidate_familes&#45;&gt;id_arr</title>
-<path fill="none" stroke="#000000" d="M449.22,-54C495.46,-54 548.73,-54 583.19,-54"/>
-<polygon fill="#000000" stroke="#000000" points="583.26,-57.5 593.26,-54 583.26,-50.5 583.26,-57.5"/>
-</g>
-<!-- proc~symba_fragmentation_casemerge -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node15" class="node">
-<title>proc~symba_fragmentation_casemerge</title>
-<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node15"><a xlink:href=".././proc/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="708,-24 533,-24 533,0 708,0 708,-24"/>
-<text text-anchor="middle" x="620.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
+<!-- proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node17" class="node">
+<title>proc~symba_fragmentation_mergeaddsub</title>
+<g id="a_proc~~symba_collision_resolve_fragmentations~~CallsGraph_node17"><a xlink:href=".././proc/symba_fragmentation_mergeaddsub.html" xlink:title="symba_fragmentation_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="959,-192 771,-192 771,-168 959,-168 959,-192"/>
+<text text-anchor="middle" x="865" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_mergeaddsub</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge14" class="edge">
-<title>interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.34,-12C468.71,-12 496.58,-12 522.53,-12"/>
-<polygon fill="#000000" stroke="#000000" points="522.75,-15.5 532.75,-12 522.75,-8.5 522.75,-15.5"/>
+<!-- proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge15" class="edge">
+<title>proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M690.99,-150.04C720.16,-155.09 754.26,-160.99 784.43,-166.22"/>
+<polygon fill="#000000" stroke="#000000" points="784.05,-169.7 794.5,-167.96 785.24,-162.81 784.05,-169.7"/>
 </g>
 <!-- fragmentation_initialize -->
 <g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_node16" class="node">
 <title>fragmentation_initialize</title>
-<polygon fill="#777777" stroke="#777777" points="893,-276 771,-276 771,-252 893,-252 893,-276"/>
-<text text-anchor="middle" x="832" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
+<polygon fill="#777777" stroke="#777777" points="926,-234 804,-234 804,-210 926,-210 926,-234"/>
+<text text-anchor="middle" x="865" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
 </g>
 <!-- proc~symba_fragmentation_casehitandrun&#45;&gt;fragmentation_initialize -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge15" class="edge">
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge16" class="edge">
 <title>proc~symba_fragmentation_casehitandrun&#45;&gt;fragmentation_initialize</title>
-<path fill="none" stroke="#000000" d="M715.53,-264C730.67,-264 746.11,-264 760.58,-264"/>
-<polygon fill="#000000" stroke="#000000" points="760.92,-267.5 770.92,-264 760.92,-260.5 760.92,-267.5"/>
+<path fill="none" stroke="#000000" d="M690.99,-251.96C723.19,-246.39 761.4,-239.77 793.7,-234.18"/>
+<polygon fill="#000000" stroke="#000000" points="794.71,-237.55 803.96,-232.4 793.51,-230.66 794.71,-237.55"/>
 </g>
-<!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge16" class="edge">
-<title>proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize</title>
-<path fill="none" stroke="#000000" d="M688.49,-293.98C703.79,-291.13 719.97,-288.03 735,-285 745.56,-282.87 756.76,-280.51 767.63,-278.17"/>
-<polygon fill="#000000" stroke="#000000" points="768.47,-281.57 777.5,-276.03 766.98,-274.73 768.47,-281.57"/>
+<!-- proc~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge17" class="edge">
+<title>proc~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M715.63,-251.9C722.38,-249.44 728.92,-246.5 735,-243 756.3,-230.73 749.94,-213.69 771,-201 774,-199.19 777.13,-197.54 780.37,-196.04"/>
+<polygon fill="#000000" stroke="#000000" points="781.81,-199.23 789.69,-192.15 779.12,-192.76 781.81,-199.23"/>
 </g>
 <!-- proc~symba_fragmentation_casedisruption&#45;&gt;fragmentation_initialize -->
-<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge17" class="edge">
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge18" class="edge">
 <title>proc~symba_fragmentation_casedisruption&#45;&gt;fragmentation_initialize</title>
-<path fill="none" stroke="#000000" d="M688.49,-234.02C703.79,-236.87 719.97,-239.97 735,-243 745.56,-245.13 756.76,-247.49 767.63,-249.83"/>
-<polygon fill="#000000" stroke="#000000" points="766.98,-253.27 777.5,-251.97 768.47,-246.43 766.98,-253.27"/>
+<path fill="none" stroke="#000000" d="M716.3,-222C742.1,-222 769.59,-222 793.76,-222"/>
+<polygon fill="#000000" stroke="#000000" points="793.91,-225.5 803.91,-222 793.91,-218.5 793.91,-225.5"/>
+</g>
+<!-- proc~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge19" class="edge">
+<title>proc~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M690.99,-209.96C720.16,-204.91 754.26,-199.01 784.43,-193.78"/>
+<polygon fill="#000000" stroke="#000000" points="785.24,-197.19 794.5,-192.04 784.05,-190.3 785.24,-197.19"/>
+</g>
+<!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge20" class="edge">
+<title>proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize</title>
+<path fill="none" stroke="#000000" d="M690.99,-192.04C723.19,-197.61 761.4,-204.23 793.7,-209.82"/>
+<polygon fill="#000000" stroke="#000000" points="793.51,-213.34 803.96,-211.6 794.71,-206.45 793.51,-213.34"/>
+</g>
+<!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_collision_resolve_fragmentations~~CallsGraph_edge21" class="edge">
+<title>proc~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M735.29,-180C743.78,-180 752.32,-180 760.73,-180"/>
+<polygon fill="#000000" stroke="#000000" points="760.93,-183.5 770.93,-180 760.93,-176.5 760.93,-183.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_collision_resolve_mergers.html b/docs/proc/symba_collision_resolve_mergers.html
index 857a23100..056e80560 100644
--- a/docs/proc/symba_collision_resolve_mergers.html
+++ b/docs/proc/symba_collision_resolve_mergers.html
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~97"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~101"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~182"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~186"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -295,11 +295,11 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~symba_collision_resolve_mergers~~CallsGraph Pages: 1 -->
-<svg id="procsymba_collision_resolve_mergersCallsGraph" width="616pt" height="158pt"
- viewBox="0.00 0.00 616.00 158.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_collision_resolve_mergers~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 154)">
+<svg id="procsymba_collision_resolve_mergersCallsGraph" width="641pt" height="121pt"
+ viewBox="0.00 0.00 641.00 120.57" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_collision_resolve_mergers~~CallsGraph" class="graph" transform="scale(0.76 0.76) rotate(0) translate(4 154)">
 <title>proc~~symba_collision_resolve_mergers~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-154 612,-154 612,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-154 836,-154 836,4 -4,4"/>
 <!-- proc~symba_collision_resolve_mergers -->
 <g id="proc~~symba_collision_resolve_mergers~~CallsGraph_node1" class="node">
 <title>proc~symba_collision_resolve_mergers</title>
@@ -313,7 +313,7 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="303.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">idx1</text>
 </g>
 <!-- proc~symba_collision_resolve_mergers&#45;&gt;idx1 -->
-<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_edge1" class="edge">
+<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_edge3" class="edge">
 <title>proc~symba_collision_resolve_mergers&#45;&gt;idx1</title>
 <path fill="none" stroke="#000000" d="M119.81,-87.01C144.25,-95.98 178.98,-108.17 210,-117 228.36,-122.23 249.06,-127.03 266.22,-130.72"/>
 <polygon fill="#000000" stroke="#000000" points="265.89,-134.22 276.39,-132.86 267.33,-127.37 265.89,-134.22"/>
@@ -340,7 +340,7 @@ <h3 class="panel-title">Calls</h3>
 </g>
 </g>
 <!-- proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_familes -->
-<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_edge3" class="edge">
+<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_edge1" class="edge">
 <title>proc~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_consolidate_familes</title>
 <path fill="none" stroke="#000000" d="M174.01,-66.58C182.47,-65.75 191.12,-64.9 199.72,-64.06"/>
 <polygon fill="#000000" stroke="#000000" points="200.18,-67.53 209.79,-63.08 199.5,-60.57 200.18,-67.53"/>
@@ -399,9 +399,24 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M391.02,-12C401.45,-12 412.16,-12 422.73,-12"/>
 <polygon fill="#000000" stroke="#000000" points="422.81,-15.5 432.81,-12 422.81,-8.5 422.81,-15.5"/>
 </g>
+<!-- proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_node9" class="node">
+<title>proc~symba_fragmentation_mergeaddsub</title>
+<g id="a_proc~~symba_collision_resolve_mergers~~CallsGraph_node9"><a xlink:href=".././proc/symba_fragmentation_mergeaddsub.html" xlink:title="symba_fragmentation_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="832,-24 644,-24 644,0 832,0 832,-24"/>
+<text text-anchor="middle" x="738" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_mergeaddsub</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_collision_resolve_mergers~~CallsGraph_edge8" class="edge">
+<title>proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M608.22,-12C616.63,-12 625.21,-12 633.76,-12"/>
+<polygon fill="#000000" stroke="#000000" points="633.76,-15.5 643.76,-12 633.76,-8.5 633.76,-15.5"/>
+</g>
 </g>
 </svg>
-</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+</div><script>var panprocsymba_collision_resolve_mergersCallsGraph = svgPanZoom('#procsymba_collision_resolve_mergersCallsGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
     <p>Nodes of different colours represent the following: </p>
     <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
diff --git a/docs/proc/symba_discard_cb_pl.html b/docs/proc/symba_discard_cb_pl.html
index deee2088a..553393e6f 100644
--- a/docs/proc/symba_discard_cb_pl.html
+++ b/docs/proc/symba_discard_cb_pl.html
@@ -254,7 +254,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~8"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~9"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -269,7 +269,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~13"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~14"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_discard_conserve_mtm.html b/docs/proc/symba_discard_conserve_mtm.html
index 20047c385..e8ff69ed6 100644
--- a/docs/proc/symba_discard_conserve_mtm.html
+++ b/docs/proc/symba_discard_conserve_mtm.html
@@ -249,7 +249,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~9"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~10"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -264,7 +264,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~14"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~15"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/symba_discard_nonplpl.html b/docs/proc/symba_discard_nonplpl.html
index fdabffea0..e31acc2bf 100644
--- a/docs/proc/symba_discard_nonplpl.html
+++ b/docs/proc/symba_discard_nonplpl.html
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~10"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~11"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~15"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~16"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_discard_nonplpl_conservation.html b/docs/proc/symba_discard_nonplpl_conservation.html
index 87d2fd98b..4c94867b6 100644
--- a/docs/proc/symba_discard_nonplpl_conservation.html
+++ b/docs/proc/symba_discard_nonplpl_conservation.html
@@ -250,7 +250,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~11"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~12"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -265,7 +265,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~16"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~17"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/symba_discard_peri_pl.html b/docs/proc/symba_discard_peri_pl.html
index 4f2a0c09a..08c5b97cf 100644
--- a/docs/proc/symba_discard_peri_pl.html
+++ b/docs/proc/symba_discard_peri_pl.html
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~12"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~13"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~17"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~18"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_discard_pl.html b/docs/proc/symba_discard_pl.html
index 8bd3e3a21..29bb2de80 100644
--- a/docs/proc/symba_discard_pl.html
+++ b/docs/proc/symba_discard_pl.html
@@ -136,7 +136,7 @@ <h1>symba_discard_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">30 statements</a>
+    title=" 0.1% of total for procedures.">40 statements</a>
      </li> 
      
      
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~358"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~354"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~108"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~115"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -267,7 +267,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~198"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~201"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/symba_drift_pl.html b/docs/proc/symba_drift_pl.html
index a055c28ee..940db3181 100644
--- a/docs/proc/symba_drift_pl.html
+++ b/docs/proc/symba_drift_pl.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~364"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~360"></span>class(<a href='../type/symba_pl.html'>symba_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~109"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~116"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~202"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~205"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_drift_tp.html b/docs/proc/symba_drift_tp.html
index c4f832291..481a86f2e 100644
--- a/docs/proc/symba_drift_tp.html
+++ b/docs/proc/symba_drift_tp.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~365"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~361"></span>class(<a href='../type/symba_tp.html'>symba_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~110"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~117"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~203"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~206"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_encounter_check_pl.html b/docs/proc/symba_encounter_check_pl.html
index 4acc5aadb..85ad7732e 100644
--- a/docs/proc/symba_encounter_check_pl.html
+++ b/docs/proc/symba_encounter_check_pl.html
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~105"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~110"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/symba_encounter_check_pltpenc.html b/docs/proc/symba_encounter_check_pltpenc.html
index f3cd035a7..92ae312fe 100644
--- a/docs/proc/symba_encounter_check_pltpenc.html
+++ b/docs/proc/symba_encounter_check_pltpenc.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~106"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~111"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/symba_encounter_check_tp.html b/docs/proc/symba_encounter_check_tp.html
index dc74890cc..4afafe4b1 100644
--- a/docs/proc/symba_encounter_check_tp.html
+++ b/docs/proc/symba_encounter_check_tp.html
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~107"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~112"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/symba_fragmentation_casedisruption.html b/docs/proc/symba_fragmentation_casedisruption.html
index 12922c4c2..71504e264 100644
--- a/docs/proc/symba_fragmentation_casedisruption.html
+++ b/docs/proc/symba_fragmentation_casedisruption.html
@@ -136,7 +136,7 @@ <h1>symba_fragmentation_casedisruption
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.2% of total for procedures.">110 statements</a>
+    title=" 0.1% of total for procedures.">60 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~101"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~106"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~189"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~194"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-family~7"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-family~8"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -405,7 +405,7 @@ <h3>Arguments</h3>
     
     
     
-   <h3>Return Value <small><span class="anchor" id="variable-status~7"></span>integer(kind=I4B)
+   <h3>Return Value <small><span class="anchor" id="variable-status~8"></span>integer(kind=I4B)
   </small></h3>
     <p>Status flag assigned to this outcome</p>
     
@@ -424,28 +424,43 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~symba_fragmentation_casedisruption~~CallsGraph Pages: 1 -->
-<svg id="procsymba_fragmentation_casedisruptionCallsGraph" width="357pt" height="32pt"
- viewBox="0.00 0.00 357.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_fragmentation_casedisruption~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procsymba_fragmentation_casedisruptionCallsGraph" width="423pt" height="74pt"
+ viewBox="0.00 0.00 423.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_fragmentation_casedisruption~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>proc~~symba_fragmentation_casedisruption~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 353,-28 353,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 419,-70 419,4 -4,4"/>
 <!-- proc~symba_fragmentation_casedisruption -->
 <g id="proc~~symba_fragmentation_casedisruption~~CallsGraph_node1" class="node">
 <title>proc~symba_fragmentation_casedisruption</title>
-<polygon fill="none" stroke="black" points="191,-24 0,-24 0,0 191,0 191,-24"/>
-<text text-anchor="middle" x="95.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casedisruption</text>
+<polygon fill="none" stroke="black" points="191,-45 0,-45 0,-21 191,-21 191,-45"/>
+<text text-anchor="middle" x="95.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casedisruption</text>
 </g>
 <!-- fragmentation_initialize -->
 <g id="proc~~symba_fragmentation_casedisruption~~CallsGraph_node2" class="node">
 <title>fragmentation_initialize</title>
-<polygon fill="#777777" stroke="#777777" points="349,-24 227,-24 227,0 349,0 349,-24"/>
-<text text-anchor="middle" x="288" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
+<polygon fill="#777777" stroke="#777777" points="382,-66 260,-66 260,-42 382,-42 382,-66"/>
+<text text-anchor="middle" x="321" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
 </g>
 <!-- proc~symba_fragmentation_casedisruption&#45;&gt;fragmentation_initialize -->
 <g id="proc~~symba_fragmentation_casedisruption~~CallsGraph_edge1" class="edge">
 <title>proc~symba_fragmentation_casedisruption&#45;&gt;fragmentation_initialize</title>
-<path fill="none" stroke="#000000" d="M191.19,-12C199.82,-12 208.46,-12 216.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="216.86,-15.5 226.86,-12 216.86,-8.5 216.86,-15.5"/>
+<path fill="none" stroke="#000000" d="M191.28,-41.91C210.86,-43.75 231.15,-45.65 249.66,-47.39"/>
+<polygon fill="#000000" stroke="#000000" points="249.47,-50.89 259.75,-48.34 250.13,-43.92 249.47,-50.89"/>
+</g>
+<!-- proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_fragmentation_casedisruption~~CallsGraph_node3" class="node">
+<title>proc~symba_fragmentation_mergeaddsub</title>
+<g id="a_proc~~symba_fragmentation_casedisruption~~CallsGraph_node3"><a xlink:href=".././proc/symba_fragmentation_mergeaddsub.html" xlink:title="symba_fragmentation_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="415,-24 227,-24 227,0 415,0 415,-24"/>
+<text text-anchor="middle" x="321" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_mergeaddsub</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_fragmentation_casedisruption~~CallsGraph_edge2" class="edge">
+<title>proc~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M191.28,-24.09C199.75,-23.3 208.35,-22.49 216.88,-21.69"/>
+<polygon fill="#000000" stroke="#000000" points="217.22,-25.17 226.85,-20.75 216.57,-18.2 217.22,-25.17"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_fragmentation_casehitandrun.html b/docs/proc/symba_fragmentation_casehitandrun.html
index 8f6945af8..c28512008 100644
--- a/docs/proc/symba_fragmentation_casehitandrun.html
+++ b/docs/proc/symba_fragmentation_casehitandrun.html
@@ -136,7 +136,7 @@ <h1>symba_fragmentation_casehitandrun
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.3% of total for procedures.">127 statements</a>
+    title=" 0.2% of total for procedures.">76 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~102"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~107"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~190"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~195"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-family~8"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-family~9"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -405,7 +405,7 @@ <h3>Arguments</h3>
     
     
     
-   <h3>Return Value <small><span class="anchor" id="variable-status~8"></span>integer(kind=I4B)
+   <h3>Return Value <small><span class="anchor" id="variable-status~9"></span>integer(kind=I4B)
   </small></h3>
     <p>Status flag assigned to this outcome</p>
     
@@ -424,28 +424,43 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~symba_fragmentation_casehitandrun~~CallsGraph Pages: 1 -->
-<svg id="procsymba_fragmentation_casehitandrunCallsGraph" 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="proc~~symba_fragmentation_casehitandrun~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procsymba_fragmentation_casehitandrunCallsGraph" width="422pt" height="74pt"
+ viewBox="0.00 0.00 422.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_fragmentation_casehitandrun~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>proc~~symba_fragmentation_casehitandrun~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 352,-28 352,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 418,-70 418,4 -4,4"/>
 <!-- proc~symba_fragmentation_casehitandrun -->
 <g id="proc~~symba_fragmentation_casehitandrun~~CallsGraph_node1" class="node">
 <title>proc~symba_fragmentation_casehitandrun</title>
-<polygon fill="none" stroke="black" points="190,-24 0,-24 0,0 190,0 190,-24"/>
-<text text-anchor="middle" x="95" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casehitandrun</text>
+<polygon fill="none" stroke="black" points="190,-45 0,-45 0,-21 190,-21 190,-45"/>
+<text text-anchor="middle" x="95" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casehitandrun</text>
 </g>
 <!-- fragmentation_initialize -->
 <g id="proc~~symba_fragmentation_casehitandrun~~CallsGraph_node2" class="node">
 <title>fragmentation_initialize</title>
-<polygon fill="#777777" stroke="#777777" points="348,-24 226,-24 226,0 348,0 348,-24"/>
-<text text-anchor="middle" x="287" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
+<polygon fill="#777777" stroke="#777777" points="381,-66 259,-66 259,-42 381,-42 381,-66"/>
+<text text-anchor="middle" x="320" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
 </g>
 <!-- proc~symba_fragmentation_casehitandrun&#45;&gt;fragmentation_initialize -->
 <g id="proc~~symba_fragmentation_casehitandrun~~CallsGraph_edge1" class="edge">
 <title>proc~symba_fragmentation_casehitandrun&#45;&gt;fragmentation_initialize</title>
-<path fill="none" stroke="#000000" d="M190.17,-12C198.79,-12 207.42,-12 215.78,-12"/>
-<polygon fill="#000000" stroke="#000000" points="215.82,-15.5 225.82,-12 215.82,-8.5 215.82,-15.5"/>
+<path fill="none" stroke="#000000" d="M190.25,-41.88C209.81,-43.72 230.09,-45.63 248.61,-47.37"/>
+<polygon fill="#000000" stroke="#000000" points="248.42,-50.87 258.71,-48.32 249.08,-43.9 248.42,-50.87"/>
+</g>
+<!-- proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_fragmentation_casehitandrun~~CallsGraph_node3" class="node">
+<title>proc~symba_fragmentation_mergeaddsub</title>
+<g id="a_proc~~symba_fragmentation_casehitandrun~~CallsGraph_node3"><a xlink:href=".././proc/symba_fragmentation_mergeaddsub.html" xlink:title="symba_fragmentation_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="414,-24 226,-24 226,0 414,0 414,-24"/>
+<text text-anchor="middle" x="320" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_mergeaddsub</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_fragmentation_casehitandrun~~CallsGraph_edge2" class="edge">
+<title>proc~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M190.25,-24.12C198.71,-23.33 207.3,-22.52 215.83,-21.72"/>
+<polygon fill="#000000" stroke="#000000" points="216.17,-25.2 225.8,-20.78 215.52,-18.23 216.17,-25.2"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_fragmentation_casemerge.html b/docs/proc/symba_fragmentation_casemerge.html
index 5a07b3ab2..3c39d786a 100644
--- a/docs/proc/symba_fragmentation_casemerge.html
+++ b/docs/proc/symba_fragmentation_casemerge.html
@@ -136,7 +136,7 @@ <h1>symba_fragmentation_casemerge
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.2% of total for procedures.">93 statements</a>
+    title=" 0.1% of total for procedures.">58 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~103"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~108"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~191"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~196"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-family~9"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-family~10"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -377,7 +377,7 @@ <h3>Arguments</h3>
     
     
     
-   <h3>Return Value <small><span class="anchor" id="variable-status~9"></span>integer(kind=I4B)
+   <h3>Return Value <small><span class="anchor" id="variable-status~10"></span>integer(kind=I4B)
   </small></h3>
     <p>Status flag assigned to this outcome</p>
     
@@ -385,6 +385,107 @@ <h3>Return Value <small><span class="anchor" id="variable-status~9"></span>integ
     <br>
     
     
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Calls</h3>
+      </div>
+      <div class="panel-body">
+  <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.47.1 (20210417.1919)
+ -->
+<!-- Title: proc~~symba_fragmentation_casemerge~~CallsGraph Pages: 1 -->
+<svg id="procsymba_fragmentation_casemergeCallsGraph" width="407pt" height="32pt"
+ viewBox="0.00 0.00 407.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_fragmentation_casemerge~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_fragmentation_casemerge~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 403,-28 403,4 -4,4"/>
+<!-- proc~symba_fragmentation_casemerge -->
+<g id="proc~~symba_fragmentation_casemerge~~CallsGraph_node1" class="node">
+<title>proc~symba_fragmentation_casemerge</title>
+<polygon fill="none" stroke="black" points="175,-24 0,-24 0,0 175,0 175,-24"/>
+<text text-anchor="middle" x="87.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casemerge</text>
+</g>
+<!-- proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_fragmentation_casemerge~~CallsGraph_node2" class="node">
+<title>proc~symba_fragmentation_mergeaddsub</title>
+<g id="a_proc~~symba_fragmentation_casemerge~~CallsGraph_node2"><a xlink:href=".././proc/symba_fragmentation_mergeaddsub.html" xlink:title="symba_fragmentation_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="399,-24 211,-24 211,0 399,0 399,-24"/>
+<text text-anchor="middle" x="305" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_mergeaddsub</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_fragmentation_casemerge~~CallsGraph_edge1" class="edge">
+<title>proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M175.22,-12C183.63,-12 192.21,-12 200.76,-12"/>
+<polygon fill="#000000" stroke="#000000" points="200.76,-15.5 210.76,-12 200.76,-8.5 200.76,-15.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?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.47.1 (20210417.1919)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="560pt" height="32pt"
+ viewBox="0.00 0.00 559.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)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
+<!-- Subroutine -->
+<g id="node1" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
+<text text-anchor="middle" x="32" y="-9.6" 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="136,-24 82,-24 82,0 136,0 136,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" 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="209.5,-24 154.5,-24 154.5,0 209.5,0 209.5,-24"/>
+<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+</g>
+<!-- Unknown Procedure Type -->
+<g id="node4" class="node">
+<title>Unknown Procedure Type</title>
+<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,0 364,0 364,-24"/>
+<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,0 436,0 436,-24"/>
+<text text-anchor="middle" x="409" y="-9.6" 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="551.5,-24 454.5,-24 454.5,0 551.5,0 551.5,-24"/>
+<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a procedure to one which it calls. Dashed 
+    arrows point from an interface to procedures which implement that interface.
+    This could include the module procedures in a generic interface or the
+    implementation in a submodule of an interface in a parent module.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+     
      
     <div class="panel panel-default">
       <div class="panel-heading">
diff --git a/docs/proc/symba_fragmentation_casesupercatastrophic.html b/docs/proc/symba_fragmentation_casesupercatastrophic.html
index c72d3875b..9b7c366ed 100644
--- a/docs/proc/symba_fragmentation_casesupercatastrophic.html
+++ b/docs/proc/symba_fragmentation_casesupercatastrophic.html
@@ -136,7 +136,7 @@ <h1>symba_fragmentation_casesupercatastrophic
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.2% of total for procedures.">108 statements</a>
+    title=" 0.1% of total for procedures.">59 statements</a>
      </li> 
      
      
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~104"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~109"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~192"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~197"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-family~10"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-family~11"></span>integer(kind=I4B),</td>
   <td>intent(in),</td>
   <td></td>
   
@@ -405,7 +405,7 @@ <h3>Arguments</h3>
     
     
     
-   <h3>Return Value <small><span class="anchor" id="variable-status~10"></span>integer(kind=I4B)
+   <h3>Return Value <small><span class="anchor" id="variable-status~11"></span>integer(kind=I4B)
   </small></h3>
     <p>Status flag assigned to this outcome</p>
     
@@ -424,28 +424,43 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~symba_fragmentation_casesupercatastrophic~~CallsGraph Pages: 1 -->
-<svg id="procsymba_fragmentation_casesupercatastrophicCallsGraph" width="395pt" height="32pt"
- viewBox="0.00 0.00 395.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_fragmentation_casesupercatastrophic~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procsymba_fragmentation_casesupercatastrophicCallsGraph" width="461pt" height="74pt"
+ viewBox="0.00 0.00 461.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_fragmentation_casesupercatastrophic~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>proc~~symba_fragmentation_casesupercatastrophic~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 391,-28 391,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 457,-70 457,4 -4,4"/>
 <!-- proc~symba_fragmentation_casesupercatastrophic -->
 <g id="proc~~symba_fragmentation_casesupercatastrophic~~CallsGraph_node1" class="node">
 <title>proc~symba_fragmentation_casesupercatastrophic</title>
-<polygon fill="none" stroke="black" points="229,-24 0,-24 0,0 229,0 229,-24"/>
-<text text-anchor="middle" x="114.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casesupercatastrophic</text>
+<polygon fill="none" stroke="black" points="229,-45 0,-45 0,-21 229,-21 229,-45"/>
+<text text-anchor="middle" x="114.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_casesupercatastrophic</text>
 </g>
 <!-- fragmentation_initialize -->
 <g id="proc~~symba_fragmentation_casesupercatastrophic~~CallsGraph_node2" class="node">
 <title>fragmentation_initialize</title>
-<polygon fill="#777777" stroke="#777777" points="387,-24 265,-24 265,0 387,0 387,-24"/>
-<text text-anchor="middle" x="326" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
+<polygon fill="#777777" stroke="#777777" points="420,-66 298,-66 298,-42 420,-42 420,-66"/>
+<text text-anchor="middle" x="359" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation_initialize</text>
 </g>
 <!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize -->
 <g id="proc~~symba_fragmentation_casesupercatastrophic~~CallsGraph_edge1" class="edge">
 <title>proc~symba_fragmentation_casesupercatastrophic&#45;&gt;fragmentation_initialize</title>
-<path fill="none" stroke="#000000" d="M229.14,-12C237.8,-12 246.37,-12 254.63,-12"/>
-<polygon fill="#000000" stroke="#000000" points="254.9,-15.5 264.9,-12 254.9,-8.5 254.9,-15.5"/>
+<path fill="none" stroke="#000000" d="M229.29,-42.85C249.14,-44.57 269.25,-46.31 287.49,-47.89"/>
+<polygon fill="#000000" stroke="#000000" points="287.44,-51.4 297.71,-48.78 288.04,-44.43 287.44,-51.4"/>
+</g>
+<!-- proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_fragmentation_casesupercatastrophic~~CallsGraph_node3" class="node">
+<title>proc~symba_fragmentation_mergeaddsub</title>
+<g id="a_proc~~symba_fragmentation_casesupercatastrophic~~CallsGraph_node3"><a xlink:href=".././proc/symba_fragmentation_mergeaddsub.html" xlink:title="symba_fragmentation_mergeaddsub">
+<polygon fill="#d9534f" stroke="#d9534f" points="453,-24 265,-24 265,0 453,0 453,-24"/>
+<text text-anchor="middle" x="359" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_mergeaddsub</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_fragmentation_casesupercatastrophic~~CallsGraph_edge2" class="edge">
+<title>proc~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M229.29,-23.15C237.78,-22.41 246.32,-21.67 254.73,-20.94"/>
+<polygon fill="#000000" stroke="#000000" points="255.27,-24.41 264.93,-20.06 254.66,-17.44 255.27,-24.41"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_fragmentation_mergeaddsub.html b/docs/proc/symba_fragmentation_mergeaddsub.html
new file mode 100644
index 000000000..42ca554e2
--- /dev/null
+++ b/docs/proc/symba_fragmentation_mergeaddsub.html
@@ -0,0 +1,796 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   
+   <meta name="description" content="Swiftest - The Fastest Symplectic Massive Body Integrator in the West (someday, hopefully)">
+    
+    <meta name="author" content="David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>symba_fragmentation_mergeaddsub &ndash; swiftest</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+    
+    
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">swiftest </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+        
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+          
+              
+            <li><a href="../lists/files.html">Source Files</a></li>
+        
+        
+        
+            <li><a href="../lists/modules.html">Modules</a></li>
+        
+            
+                                
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+        
+        
+            <li><a href="../lists/absint.html">Abstract Interfaces</a></li>
+               
+            <li><a href="../lists/types.html">Derived Types</a></li>
+        
+        
+            <li><a href="../program/swiftest_driver.html">Program</a></li>
+      
+            </ul>
+            </li>
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/absint.html">Abstract Interfaces</a></li>
+                             
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../program/swiftest_driver.html">Program</a></li>
+
+          </ul>
+        
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+    
+  
+  <div class="row">
+    <h1>symba_fragmentation_mergeaddsub
+      <small>Subroutine</small>
+    
+    </h1>
+    
+<div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+     
+     <li><i class="fa fa-pencil"></i> David A. Minton</li>
+     
+     
+     
+     
+    
+    
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title=" 0.2% of total for procedures.">86 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/symba_fragmentation.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/symba_fragmentation.f90.html'>symba_fragmentation.f90</a></li>
+    
+     <li><a href='../module/s_symba_fragmentation.html'>s_symba_fragmentation</a></li>
+    
+  
+     <li class="active">symba_fragmentation_mergeaddsub</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    
+<div id="sidebar">
+  
+<h3>Contents</h3>
+ 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<em>None</em>
+
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+    <h2>
+subroutine symba_fragmentation_mergeaddsub(system, param, family, id_frag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, status)
+    
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Fills the pl_discards and pl_adds with removed and added bodies</p>
+    
+
+    <h3>Arguments</h3>
+    
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~8"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~13"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA additions</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-family~2"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>family</strong></td><td><p>List of indices of all bodies inovlved in the collision</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-id_frag"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>id_frag</strong></td><td><p>List of fragment ids</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-ip_frag"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>Ip_frag</strong></td><td><p>Fragment rotational inertia vectors</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-m_frag"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>m_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rad_frag"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>rad_frag</strong></td><td><p>Distribution of fragment mass and radii</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-xb_frag"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>xb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-vb_frag"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>vb_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-rot_frag"></span>real(kind=DP),</td>
+  <td>intent(in),</td>
+  <td></td>
+  
+  <td>dimension(:,:)</td><td>::</td>
+  <td><strong>rot_frag</strong></td><td><p>Fragment barycentric position, barycentric velocity, and rotation vectors</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-status~3"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>status</strong></td><td><p>Status flag to assign to adds</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    <br>
+    
+    
+     
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Called by</h3>
+      </div>
+      <div class="panel-body">
+  <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.47.1 (20210417.1919)
+ -->
+<!-- Title: proc~~symba_fragmentation_mergeaddsub~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_fragmentation_mergeaddsubCalledByGraph" width="641pt" height="84pt"
+ viewBox="0.00 0.00 641.00 83.84" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph" class="graph" transform="scale(0.53 0.53) rotate(0) translate(4 154)">
+<title>proc~~symba_fragmentation_mergeaddsub~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-154 1204,-154 1204,4 -4,4"/>
+<!-- proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node1" class="node">
+<title>proc~symba_fragmentation_mergeaddsub</title>
+<polygon fill="none" stroke="black" points="1200,-87 1012,-87 1012,-63 1200,-63 1200,-87"/>
+<text text-anchor="middle" x="1106" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation_mergeaddsub</text>
+</g>
+<!-- proc~symba_fragmentation_casesupercatastrophic -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node2" class="node">
+<title>proc~symba_fragmentation_casesupercatastrophic</title>
+<g id="a_proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node2"><a xlink:href=".././proc/symba_fragmentation_casesupercatastrophic.html" xlink:title="symba_fragmentation_casesupercatastrophic">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="976,-66 747,-66 747,-42 976,-42 976,-66"/>
+<text text-anchor="middle" x="861.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casesupercatastrophic</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_edge1" class="edge">
+<title>proc~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M976.29,-63.85C984.78,-64.59 993.32,-65.33 1001.73,-66.06"/>
+<polygon fill="#000000" stroke="#000000" points="1001.66,-69.56 1011.93,-66.94 1002.27,-62.59 1001.66,-69.56"/>
+</g>
+<!-- proc~symba_fragmentation_casemerge -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node3" class="node">
+<title>proc~symba_fragmentation_casemerge</title>
+<g id="a_proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node3"><a xlink:href=".././proc/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="949,-150 774,-150 774,-126 949,-126 949,-150"/>
+<text text-anchor="middle" x="861.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_edge2" class="edge">
+<title>proc~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M935.47,-125.97C949.01,-123.32 962.99,-120.31 976,-117 1005.32,-109.55 1037.7,-99 1062.68,-90.34"/>
+<polygon fill="#000000" stroke="#000000" points="1063.93,-93.61 1072.21,-87 1061.61,-87 1063.93,-93.61"/>
+</g>
+<!-- proc~symba_fragmentation_casehitandrun -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node4" class="node">
+<title>proc~symba_fragmentation_casehitandrun</title>
+<g id="a_proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node4"><a xlink:href=".././proc/symba_fragmentation_casehitandrun.html" xlink:title="symba_fragmentation_casehitandrun">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="956.5,-24 766.5,-24 766.5,0 956.5,0 956.5,-24"/>
+<text text-anchor="middle" x="861.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casehitandrun</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_edge3" class="edge">
+<title>proc~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M935.47,-24.03C949.01,-26.68 962.99,-29.69 976,-33 1005.32,-40.45 1037.7,-51 1062.68,-59.66"/>
+<polygon fill="#000000" stroke="#000000" points="1061.61,-63 1072.21,-63 1063.93,-56.39 1061.61,-63"/>
+</g>
+<!-- proc~symba_fragmentation_casedisruption -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node5" class="node">
+<title>proc~symba_fragmentation_casedisruption</title>
+<g id="a_proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node5"><a xlink:href=".././proc/symba_fragmentation_casedisruption.html" xlink:title="symba_fragmentation_casedisruption">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="957,-108 766,-108 766,-84 957,-84 957,-108"/>
+<text text-anchor="middle" x="861.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casedisruption</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_mergeaddsub -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_edge4" class="edge">
+<title>proc~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_mergeaddsub</title>
+<path fill="none" stroke="#000000" d="M957.3,-87.79C971.87,-86.53 986.98,-85.22 1001.72,-83.94"/>
+<polygon fill="#000000" stroke="#000000" points="1002.2,-87.42 1011.86,-83.07 1001.59,-80.44 1002.2,-87.42"/>
+</g>
+<!-- interface~symba_fragmentation_casedisruption -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node6" class="node">
+<title>interface~symba_fragmentation_casedisruption</title>
+<g id="a_proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node6"><a xlink:href=".././interface/symba_fragmentation_casedisruption.html" xlink:title="symba_fragmentation_casedisruption">
+<polygon fill="#a7506f" stroke="#a7506f" points="692,-108 501,-108 501,-84 692,-84 692,-108"/>
+<text text-anchor="middle" x="596.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casedisruption</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_casedisruption -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_edge8" class="edge">
+<title>interface~symba_fragmentation_casedisruption&#45;&gt;proc~symba_fragmentation_casedisruption</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.08,-96C712.71,-96 734.65,-96 755.65,-96"/>
+<polygon fill="#000000" stroke="#000000" points="755.88,-99.5 765.88,-96 755.88,-92.5 755.88,-99.5"/>
+</g>
+<!-- interface~symba_fragmentation_casesupercatastrophic -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node7" class="node">
+<title>interface~symba_fragmentation_casesupercatastrophic</title>
+<g id="a_proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node7"><a xlink:href=".././interface/symba_fragmentation_casesupercatastrophic.html" xlink:title="symba_fragmentation_casesupercatastrophic">
+<polygon fill="#a7506f" stroke="#a7506f" points="711,-66 482,-66 482,-42 711,-42 711,-66"/>
+<text text-anchor="middle" x="596.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casesupercatastrophic</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_casesupercatastrophic -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_edge5" class="edge">
+<title>interface~symba_fragmentation_casesupercatastrophic&#45;&gt;proc~symba_fragmentation_casesupercatastrophic</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M711.33,-54C719.72,-54 728.2,-54 736.65,-54"/>
+<polygon fill="#000000" stroke="#000000" points="736.92,-57.5 746.92,-54 736.92,-50.5 736.92,-57.5"/>
+</g>
+<!-- interface~symba_fragmentation_casehitandrun -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node8" class="node">
+<title>interface~symba_fragmentation_casehitandrun</title>
+<g id="a_proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node8"><a xlink:href=".././interface/symba_fragmentation_casehitandrun.html" xlink:title="symba_fragmentation_casehitandrun">
+<polygon fill="#a7506f" stroke="#a7506f" points="691.5,-24 501.5,-24 501.5,0 691.5,0 691.5,-24"/>
+<text text-anchor="middle" x="596.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casehitandrun</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_casehitandrun -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_edge7" class="edge">
+<title>interface~symba_fragmentation_casehitandrun&#45;&gt;proc~symba_fragmentation_casehitandrun</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M691.71,-12C712.57,-12 734.81,-12 756.06,-12"/>
+<polygon fill="#000000" stroke="#000000" points="756.07,-15.5 766.07,-12 756.07,-8.5 756.07,-15.5"/>
+</g>
+<!-- interface~symba_fragmentation_casemerge -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node9" class="node">
+<title>interface~symba_fragmentation_casemerge</title>
+<g id="a_proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node9"><a xlink:href=".././interface/symba_fragmentation_casemerge.html" xlink:title="symba_fragmentation_casemerge">
+<polygon fill="#a7506f" stroke="#a7506f" points="684,-150 509,-150 509,-126 684,-126 684,-150"/>
+<text text-anchor="middle" x="596.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation_casemerge</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_edge6" class="edge">
+<title>interface~symba_fragmentation_casemerge&#45;&gt;proc~symba_fragmentation_casemerge</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M684.34,-138C709.71,-138 737.58,-138 763.53,-138"/>
+<polygon fill="#000000" stroke="#000000" points="763.75,-141.5 773.75,-138 763.75,-134.5 763.75,-141.5"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node10" class="node">
+<title>proc~symba_collision_resolve_fragmentations</title>
+<g id="a_proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node10"><a xlink:href=".././proc/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#d9534f" stroke="#d9534f" points="446,-87 241,-87 241,-63 446,-63 446,-87"/>
+<text text-anchor="middle" x="343.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_edge9" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casedisruption</title>
+<path fill="none" stroke="#000000" d="M446.23,-83.51C460.91,-84.74 476.05,-86.01 490.79,-87.24"/>
+<polygon fill="#000000" stroke="#000000" points="490.67,-90.74 500.92,-88.09 491.25,-83.77 490.67,-90.74"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casesupercatastrophic -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_edge10" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casesupercatastrophic</title>
+<path fill="none" stroke="#000000" d="M446.23,-66.49C454.63,-65.79 463.18,-65.07 471.71,-64.36"/>
+<polygon fill="#000000" stroke="#000000" points="472.05,-67.84 481.72,-63.52 471.46,-60.87 472.05,-67.84"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_edge11" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casehitandrun</title>
+<path fill="none" stroke="#000000" d="M380.09,-62.91C407.67,-53.84 446.96,-41.56 482,-33 492.11,-30.53 502.78,-28.2 513.38,-26.05"/>
+<polygon fill="#000000" stroke="#000000" points="514.36,-29.42 523.49,-24.05 513,-22.56 514.36,-29.42"/>
+</g>
+<!-- proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_edge12" class="edge">
+<title>proc~symba_collision_resolve_fragmentations&#45;&gt;interface~symba_fragmentation_casemerge</title>
+<path fill="none" stroke="#000000" d="M380.09,-87.09C407.67,-96.16 446.96,-108.44 482,-117 492.11,-119.47 502.78,-121.8 513.38,-123.95"/>
+<polygon fill="#000000" stroke="#000000" points="513,-127.44 523.49,-125.95 514.36,-120.58 513,-127.44"/>
+</g>
+<!-- proc~symba_collision_resolve_mergers -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node11" class="node">
+<title>proc~symba_collision_resolve_mergers</title>
+<g id="a_proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node11"><a xlink:href=".././proc/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
+<polygon fill="#d9534f" stroke="#d9534f" points="430.5,-150 256.5,-150 256.5,-126 430.5,-126 430.5,-150"/>
+<text text-anchor="middle" x="343.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_mergers</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_fragmentation_casemerge -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_edge13" class="edge">
+<title>proc~symba_collision_resolve_mergers&#45;&gt;interface~symba_fragmentation_casemerge</title>
+<path fill="none" stroke="#000000" d="M430.53,-138C452.43,-138 476.13,-138 498.54,-138"/>
+<polygon fill="#000000" stroke="#000000" points="498.73,-141.5 508.73,-138 498.73,-134.5 498.73,-141.5"/>
+</g>
+<!-- interface~symba_collision_resolve_fragmentations -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node12" class="node">
+<title>interface~symba_collision_resolve_fragmentations</title>
+<g id="a_proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node12"><a xlink:href=".././interface/symba_collision_resolve_fragmentations.html" xlink:title="symba_collision_resolve_fragmentations">
+<polygon fill="#a7506f" stroke="#a7506f" points="205,-87 0,-87 0,-63 205,-63 205,-87"/>
+<text text-anchor="middle" x="102.5" y="-72.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_fragmentations</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_resolve_fragmentations -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_edge14" class="edge">
+<title>interface~symba_collision_resolve_fragmentations&#45;&gt;proc~symba_collision_resolve_fragmentations</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M205.2,-75C213.7,-75 222.31,-75 230.87,-75"/>
+<polygon fill="#000000" stroke="#000000" points="230.89,-78.5 240.89,-75 230.89,-71.5 230.89,-78.5"/>
+</g>
+<!-- interface~symba_collision_resolve_mergers -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node13" class="node">
+<title>interface~symba_collision_resolve_mergers</title>
+<g id="a_proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_node13"><a xlink:href=".././interface/symba_collision_resolve_mergers.html" xlink:title="symba_collision_resolve_mergers">
+<polygon fill="#a7506f" stroke="#a7506f" points="189.5,-150 15.5,-150 15.5,-126 189.5,-126 189.5,-150"/>
+<text text-anchor="middle" x="102.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision_resolve_mergers</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_resolve_mergers -->
+<g id="proc~~symba_fragmentation_mergeaddsub~~CalledByGraph_edge15" class="edge">
+<title>interface~symba_collision_resolve_mergers&#45;&gt;proc~symba_collision_resolve_mergers</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M189.78,-138C208.06,-138 227.46,-138 246.09,-138"/>
+<polygon fill="#000000" stroke="#000000" points="246.34,-141.5 256.34,-138 246.34,-134.5 246.34,-141.5"/>
+</g>
+</g>
+</svg>
+</div><script>var panprocsymba_fragmentation_mergeaddsubCalledByGraph = svgPanZoom('#procsymba_fragmentation_mergeaddsubCalledByGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?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.47.1 (20210417.1919)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="560pt" height="32pt"
+ viewBox="0.00 0.00 559.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)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
+<!-- Subroutine -->
+<g id="node1" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
+<text text-anchor="middle" x="32" y="-9.6" 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="136,-24 82,-24 82,0 136,0 136,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" 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="209.5,-24 154.5,-24 154.5,0 209.5,0 209.5,-24"/>
+<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+</g>
+<!-- Unknown Procedure Type -->
+<g id="node4" class="node">
+<title>Unknown Procedure Type</title>
+<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,0 364,0 364,-24"/>
+<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,0 436,0 436,-24"/>
+<text text-anchor="middle" x="409" y="-9.6" 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="551.5,-24 454.5,-24 454.5,0 551.5,0 551.5,-24"/>
+<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a procedure to one which it calls. Dashed 
+    arrows point from an interface to procedures which implement that interface.
+    This could include the module procedures in a generic interface or the
+    implementation in a submodule of an interface in a parent module.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+     
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      
+<h3>Contents</h3>
+ 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<em>None</em>
+
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+
+    
+    
+    
+    
+    
+
+    
+    
+    
+    
+    
+
+
+    
+    
+    
+    
+    </div>
+  </div>
+
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-4"><p>&copy; 2021 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+                                          </p></div>
+        <div class="col-xs-6 col-md-4 col-md-push-4">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/cmacmackin/ford">FORD</a>
+            
+          </p>
+        </div>
+        <div class="col-xs-12 col-md-4 col-md-pull-4"><p class="text-center"> swiftest was developed by David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</p></div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/docs/proc/symba_io_dump_particle_info.html b/docs/proc/symba_io_dump_particle_info.html
index edd8d073a..df764d4f8 100644
--- a/docs/proc/symba_io_dump_particle_info.html
+++ b/docs/proc/symba_io_dump_particle_info.html
@@ -136,7 +136,7 @@ <h1>symba_io_dump_particle_info
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">6 statements</a>
+    title=" 0.2% of total for procedures.">69 statements</a>
      </li> 
      
      
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine symba_io_dump_particle_info(self, param, msg)
+module subroutine symba_io_dump_particle_info(system, param, lincludecb, tpidx, plidx)
     
     
    <a href='../interface/symba_io_dump_particle_info.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
@@ -215,7 +215,8 @@ <h2>
 
 
     
-    <p>Dumps the particle information data to a file</p>
+    <p>Dumps the particle information data to a file. 
+ Pass a list of array indices for test particles (tpidx) and/or massive bodies (plidx) to append</p>
     
 
     <h3>Arguments</h3>
@@ -236,12 +237,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~351"></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" id="variable-system~113"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system object</p></td>
   
 </tr>
 
@@ -251,12 +252,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~193"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" id="variable-param~198"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA extensions</p></td>
   
 </tr>
 
@@ -266,12 +267,42 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-msg~6"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-lincludecb~2"></span>logical,</td>
   <td>intent(in),</td>
   <td>optional</td>
   
   <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
+  <td><strong>lincludecb</strong></td><td><p>Set to true to include the central body (default is false)</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-tpidx~2"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>tpidx</strong></td><td><p>Array of test particle indices to append to the particle file</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-plidx~2"></span>integer(kind=I4B),</td>
+  <td>intent(in),</td>
+  <td>optional</td>
+  
+  <td>dimension(:)</td><td>::</td>
+  <td><strong>plidx</strong></td><td><p>Array of massive body indices to append to the particle file</p></td>
   
 </tr>
 
@@ -284,6 +315,104 @@ <h3>Arguments</h3>
     <br>
     
     
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Calls</h3>
+      </div>
+      <div class="panel-body">
+  <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.47.1 (20210417.1919)
+ -->
+<!-- Title: proc~~symba_io_dump_particle_info~~CallsGraph Pages: 1 -->
+<svg id="procsymba_io_dump_particle_infoCallsGraph" width="253pt" height="32pt"
+ viewBox="0.00 0.00 253.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_io_dump_particle_info~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_io_dump_particle_info~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 249,-28 249,4 -4,4"/>
+<!-- proc~symba_io_dump_particle_info -->
+<g id="proc~~symba_io_dump_particle_info~~CallsGraph_node1" class="node">
+<title>proc~symba_io_dump_particle_info</title>
+<polygon fill="none" stroke="black" points="155,-24 0,-24 0,0 155,0 155,-24"/>
+<text text-anchor="middle" x="77.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_dump_particle_info</text>
+</g>
+<!-- util_exit -->
+<g id="proc~~symba_io_dump_particle_info~~CallsGraph_node2" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="245,-24 191,-24 191,0 245,0 245,-24"/>
+<text text-anchor="middle" x="218" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~symba_io_dump_particle_info&#45;&gt;util_exit -->
+<g id="proc~~symba_io_dump_particle_info~~CallsGraph_edge1" class="edge">
+<title>proc~symba_io_dump_particle_info&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M155.04,-12C164,-12 172.8,-12 180.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="180.87,-15.5 190.87,-12 180.87,-8.5 180.87,-15.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?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.47.1 (20210417.1919)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="560pt" height="32pt"
+ viewBox="0.00 0.00 559.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)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
+<!-- Subroutine -->
+<g id="node1" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
+<text text-anchor="middle" x="32" y="-9.6" 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="136,-24 82,-24 82,0 136,0 136,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" 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="209.5,-24 154.5,-24 154.5,0 209.5,0 209.5,-24"/>
+<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+</g>
+<!-- Unknown Procedure Type -->
+<g id="node4" class="node">
+<title>Unknown Procedure Type</title>
+<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,0 364,0 364,-24"/>
+<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,0 436,0 436,-24"/>
+<text text-anchor="middle" x="409" y="-9.6" 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="551.5,-24 454.5,-24 454.5,0 551.5,0 551.5,-24"/>
+<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a procedure to one which it calls. Dashed 
+    arrows point from an interface to procedures which implement that interface.
+    This could include the module procedures in a generic interface or the
+    implementation in a submodule of an interface in a parent module.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+     
      
     <div class="panel panel-default">
       <div class="panel-heading">
@@ -296,35 +425,125 @@ <h3 class="panel-title">Called by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~symba_io_dump_particle_info~~CalledByGraph Pages: 1 -->
-<svg id="procsymba_io_dump_particle_infoCalledByGraph" width="354pt" height="32pt"
- viewBox="0.00 0.00 354.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_io_dump_particle_info~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procsymba_io_dump_particle_infoCalledByGraph" width="641pt" height="40pt"
+ viewBox="0.00 0.00 641.00 39.99" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_io_dump_particle_info~~CalledByGraph" class="graph" transform="scale(0.54 0.54) rotate(0) translate(4 70)">
 <title>proc~~symba_io_dump_particle_info~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 350,-28 350,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 1182,-70 1182,4 -4,4"/>
 <!-- proc~symba_io_dump_particle_info -->
 <g id="proc~~symba_io_dump_particle_info~~CalledByGraph_node1" class="node">
 <title>proc~symba_io_dump_particle_info</title>
-<polygon fill="none" stroke="black" points="346,-24 191,-24 191,0 346,0 346,-24"/>
-<text text-anchor="middle" x="268.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_dump_particle_info</text>
+<polygon fill="none" stroke="black" points="1178,-45 1023,-45 1023,-21 1178,-21 1178,-45"/>
+<text text-anchor="middle" x="1100.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_dump_particle_info</text>
 </g>
 <!-- interface~symba_io_dump_particle_info -->
 <g id="proc~~symba_io_dump_particle_info~~CalledByGraph_node2" class="node">
 <title>interface~symba_io_dump_particle_info</title>
 <g id="a_proc~~symba_io_dump_particle_info~~CalledByGraph_node2"><a xlink:href=".././interface/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
-<polygon fill="#a7506f" stroke="#a7506f" points="155,-24 0,-24 0,0 155,0 155,-24"/>
-<text text-anchor="middle" x="77.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="987,-45 832,-45 832,-21 987,-21 987,-45"/>
+<text text-anchor="middle" x="909.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info -->
 <g id="proc~~symba_io_dump_particle_info~~CalledByGraph_edge1" class="edge">
 <title>interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.1,-12C163.56,-12 172.22,-12 180.79,-12"/>
-<polygon fill="#000000" stroke="#000000" points="180.79,-15.5 190.79,-12 180.79,-8.5 180.79,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M987.1,-33C995.56,-33 1004.22,-33 1012.79,-33"/>
+<polygon fill="#000000" stroke="#000000" points="1012.79,-36.5 1022.79,-33 1012.79,-29.5 1012.79,-36.5"/>
+</g>
+<!-- proc~symba_util_rearray_pl -->
+<g id="proc~~symba_io_dump_particle_info~~CalledByGraph_node3" class="node">
+<title>proc~symba_util_rearray_pl</title>
+<g id="a_proc~~symba_io_dump_particle_info~~CalledByGraph_node3"><a xlink:href=".././proc/symba_util_rearray_pl.html" xlink:title="symba_util_rearray_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="763,-66 645,-66 645,-42 763,-42 763,-66"/>
+<text text-anchor="middle" x="704" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_rearray_pl</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_rearray_pl&#45;&gt;interface~symba_io_dump_particle_info -->
+<g id="proc~~symba_io_dump_particle_info~~CalledByGraph_edge2" class="edge">
+<title>proc~symba_util_rearray_pl&#45;&gt;interface~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" d="M763.04,-48.01C781.33,-46.12 801.95,-44 821.79,-41.95"/>
+<polygon fill="#000000" stroke="#000000" points="822.17,-45.43 831.76,-40.92 821.45,-38.46 822.17,-45.43"/>
+</g>
+<!-- proc~symba_setup_initialize_particle_info -->
+<g id="proc~~symba_io_dump_particle_info~~CalledByGraph_node4" class="node">
+<title>proc~symba_setup_initialize_particle_info</title>
+<g id="a_proc~~symba_io_dump_particle_info~~CalledByGraph_node4"><a xlink:href=".././proc/symba_setup_initialize_particle_info.html" xlink:title="symba_setup_initialize_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="796,-24 612,-24 612,0 796,0 796,-24"/>
+<text text-anchor="middle" x="704" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_particle_info</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_setup_initialize_particle_info&#45;&gt;interface~symba_io_dump_particle_info -->
+<g id="proc~~symba_io_dump_particle_info~~CalledByGraph_edge3" class="edge">
+<title>proc~symba_setup_initialize_particle_info&#45;&gt;interface~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" d="M796.04,-21.39C804.63,-22.28 813.33,-23.18 821.88,-24.06"/>
+<polygon fill="#000000" stroke="#000000" points="821.53,-27.54 831.84,-25.09 822.25,-20.58 821.53,-27.54"/>
+</g>
+<!-- interface~symba_util_rearray_pl -->
+<g id="proc~~symba_io_dump_particle_info~~CalledByGraph_node5" class="node">
+<title>interface~symba_util_rearray_pl</title>
+<g id="a_proc~~symba_io_dump_particle_info~~CalledByGraph_node5"><a xlink:href=".././interface/symba_util_rearray_pl.html" xlink:title="symba_util_rearray_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="543,-66 425,-66 425,-42 543,-42 543,-66"/>
+<text text-anchor="middle" x="484" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_rearray_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_util_rearray_pl&#45;&gt;proc~symba_util_rearray_pl -->
+<g id="proc~~symba_io_dump_particle_info~~CalledByGraph_edge4" class="edge">
+<title>interface~symba_util_rearray_pl&#45;&gt;proc~symba_util_rearray_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M543.13,-54C571.23,-54 605.13,-54 634.48,-54"/>
+<polygon fill="#000000" stroke="#000000" points="634.65,-57.5 644.65,-54 634.65,-50.5 634.65,-57.5"/>
+</g>
+<!-- interface~symba_setup_initialize_particle_info -->
+<g id="proc~~symba_io_dump_particle_info~~CalledByGraph_node6" class="node">
+<title>interface~symba_setup_initialize_particle_info</title>
+<g id="a_proc~~symba_io_dump_particle_info~~CalledByGraph_node6"><a xlink:href=".././interface/symba_setup_initialize_particle_info.html" xlink:title="symba_setup_initialize_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="576,-24 392,-24 392,0 576,0 576,-24"/>
+<text text-anchor="middle" x="484" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_setup_initialize_particle_info&#45;&gt;proc~symba_setup_initialize_particle_info -->
+<g id="proc~~symba_io_dump_particle_info~~CalledByGraph_edge5" class="edge">
+<title>interface~symba_setup_initialize_particle_info&#45;&gt;proc~symba_setup_initialize_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M576.19,-12C584.57,-12 593.09,-12 601.55,-12"/>
+<polygon fill="#000000" stroke="#000000" points="601.83,-15.5 611.83,-12 601.83,-8.5 601.83,-15.5"/>
+</g>
+<!-- proc~symba_setup_initialize_system -->
+<g id="proc~~symba_io_dump_particle_info~~CalledByGraph_node7" class="node">
+<title>proc~symba_setup_initialize_system</title>
+<g id="a_proc~~symba_io_dump_particle_info~~CalledByGraph_node7"><a xlink:href=".././proc/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="356,-24 196,-24 196,0 356,0 356,-24"/>
+<text text-anchor="middle" x="276" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_setup_initialize_system&#45;&gt;interface~symba_setup_initialize_particle_info -->
+<g id="proc~~symba_io_dump_particle_info~~CalledByGraph_edge6" class="edge">
+<title>proc~symba_setup_initialize_system&#45;&gt;interface~symba_setup_initialize_particle_info</title>
+<path fill="none" stroke="#000000" d="M356.06,-12C364.46,-12 373.08,-12 381.69,-12"/>
+<polygon fill="#000000" stroke="#000000" points="381.77,-15.5 391.77,-12 381.77,-8.5 381.77,-15.5"/>
+</g>
+<!-- interface~symba_setup_initialize_system -->
+<g id="proc~~symba_io_dump_particle_info~~CalledByGraph_node8" class="node">
+<title>interface~symba_setup_initialize_system</title>
+<g id="a_proc~~symba_io_dump_particle_info~~CalledByGraph_node8"><a xlink:href=".././interface/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="160,-24 0,-24 0,0 160,0 160,-24"/>
+<text text-anchor="middle" x="80" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system -->
+<g id="proc~~symba_io_dump_particle_info~~CalledByGraph_edge7" class="edge">
+<title>interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160.19,-12C168.53,-12 177.05,-12 185.5,-12"/>
+<polygon fill="#000000" stroke="#000000" points="185.75,-15.5 195.75,-12 185.75,-8.5 185.75,-15.5"/>
 </g>
 </g>
 </svg>
-</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+</div><script>var panprocsymba_io_dump_particle_infoCalledByGraph = svgPanZoom('#procsymba_io_dump_particle_infoCalledByGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
     <p>Nodes of different colours represent the following: </p>
     <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
diff --git a/docs/proc/symba_io_param_reader.html b/docs/proc/symba_io_param_reader.html
index c24d5f7a6..36ab41f5d 100644
--- a/docs/proc/symba_io_param_reader.html
+++ b/docs/proc/symba_io_param_reader.html
@@ -136,7 +136,7 @@ <h1>symba_io_param_reader
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.2% of total for procedures.">86 statements</a>
+    title=" 0.2% of total for procedures.">88 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~353"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-self~351"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/symba_io_param_writer.html b/docs/proc/symba_io_param_writer.html
index 457a009d7..f670be1d6 100644
--- a/docs/proc/symba_io_param_writer.html
+++ b/docs/proc/symba_io_param_writer.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~354"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-self~352"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_io_initialize_particle_info.html b/docs/proc/symba_io_read_particle.html
similarity index 54%
rename from docs/proc/symba_io_initialize_particle_info.html
rename to docs/proc/symba_io_read_particle.html
index 0f0aeda55..fc08d6f16 100644
--- a/docs/proc/symba_io_initialize_particle_info.html
+++ b/docs/proc/symba_io_read_particle.html
@@ -10,7 +10,7 @@
     <meta name="author" content="David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott" >
     <link rel="icon" href="../favicon.png">
 
-    <title>symba_io_initialize_particle_info &ndash; swiftest</title>
+    <title>symba_io_read_particle &ndash; swiftest</title>
 
     <link href="../css/bootstrap.min.css" rel="stylesheet">
     <link href="../css/pygments.css" rel="stylesheet">
@@ -116,7 +116,7 @@
     
   
   <div class="row">
-    <h1>symba_io_initialize_particle_info
+    <h1>symba_io_read_particle
       <small>Module Subroutine</small>
     
     </h1>
@@ -136,7 +136,7 @@ <h1>symba_io_initialize_particle_info
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">5 statements</a>
+    title=" 0.1% of total for procedures.">59 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>symba_io_initialize_particle_info
      <li><a href='../module/s_symba_io.html'>s_symba_io</a></li>
     
   
-     <li class="active">symba_io_initialize_particle_info</li>
+     <li class="active">symba_io_read_particle</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine symba_io_initialize_particle_info(self, param)
+module subroutine symba_io_read_particle(system, param)
     
     
-   <a href='../interface/symba_io_initialize_particle_info.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/symba_io_read_particle.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -215,8 +215,7 @@ <h2>
 
 
     
-    <p>Initializes a particle info data structure, either starting a new one or reading one in 
- from a file if it is a restarted run</p>
+    <p>Reads an old particle information file for a restartd run</p>
     
 
     <h3>Arguments</h3>
@@ -237,12 +236,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~352"></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" id="variable-system~114"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA particle info object</p></td>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system file</p></td>
   
 </tr>
 
@@ -252,12 +251,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~194"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~199"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA extensions</p></td>
   
 </tr>
 
@@ -270,6 +269,104 @@ <h3>Arguments</h3>
     <br>
     
     
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Calls</h3>
+      </div>
+      <div class="panel-body">
+  <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.47.1 (20210417.1919)
+ -->
+<!-- Title: proc~~symba_io_read_particle~~CallsGraph Pages: 1 -->
+<svg id="procsymba_io_read_particleCallsGraph" width="225pt" height="32pt"
+ viewBox="0.00 0.00 225.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_io_read_particle~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_io_read_particle~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 221,-28 221,4 -4,4"/>
+<!-- proc~symba_io_read_particle -->
+<g id="proc~~symba_io_read_particle~~CallsGraph_node1" class="node">
+<title>proc~symba_io_read_particle</title>
+<polygon fill="none" stroke="black" points="127,-24 0,-24 0,0 127,0 127,-24"/>
+<text text-anchor="middle" x="63.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_read_particle</text>
+</g>
+<!-- util_exit -->
+<g id="proc~~symba_io_read_particle~~CallsGraph_node2" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="217,-24 163,-24 163,0 217,0 217,-24"/>
+<text text-anchor="middle" x="190" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~symba_io_read_particle&#45;&gt;util_exit -->
+<g id="proc~~symba_io_read_particle~~CallsGraph_edge1" class="edge">
+<title>proc~symba_io_read_particle&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M127.11,-12C135.87,-12 144.62,-12 152.66,-12"/>
+<polygon fill="#000000" stroke="#000000" points="152.78,-15.5 162.78,-12 152.78,-8.5 152.78,-15.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?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.47.1 (20210417.1919)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="560pt" height="32pt"
+ viewBox="0.00 0.00 559.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)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
+<!-- Subroutine -->
+<g id="node1" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
+<text text-anchor="middle" x="32" y="-9.6" 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="136,-24 82,-24 82,0 136,0 136,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" 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="209.5,-24 154.5,-24 154.5,0 209.5,0 209.5,-24"/>
+<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+</g>
+<!-- Unknown Procedure Type -->
+<g id="node4" class="node">
+<title>Unknown Procedure Type</title>
+<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,0 364,0 364,-24"/>
+<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,0 436,0 436,-24"/>
+<text text-anchor="middle" x="409" y="-9.6" 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="551.5,-24 454.5,-24 454.5,0 551.5,0 551.5,-24"/>
+<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a procedure to one which it calls. Dashed 
+    arrows point from an interface to procedures which implement that interface.
+    This could include the module procedures in a generic interface or the
+    implementation in a submodule of an interface in a parent module.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+     
      
     <div class="panel panel-default">
       <div class="panel-heading">
@@ -281,36 +378,66 @@ <h3 class="panel-title">Called by</h3>
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
-<!-- Title: proc~~symba_io_initialize_particle_info~~CalledByGraph Pages: 1 -->
-<svg id="procsymba_io_initialize_particle_infoCalledByGraph" width="376pt" height="32pt"
- viewBox="0.00 0.00 376.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_io_initialize_particle_info~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~symba_io_initialize_particle_info~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 372,-28 372,4 -4,4"/>
-<!-- proc~symba_io_initialize_particle_info -->
-<g id="proc~~symba_io_initialize_particle_info~~CalledByGraph_node1" class="node">
-<title>proc~symba_io_initialize_particle_info</title>
-<polygon fill="none" stroke="black" points="368,-24 202,-24 202,0 368,0 368,-24"/>
-<text text-anchor="middle" x="285" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_initialize_particle_info</text>
+<!-- Title: proc~~symba_io_read_particle~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_io_read_particleCalledByGraph" width="641pt" height="30pt"
+ viewBox="0.00 0.00 641.00 29.73" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_io_read_particle~~CalledByGraph" class="graph" transform="scale(0.93 0.93) rotate(0) translate(4 28)">
+<title>proc~~symba_io_read_particle~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 686,-28 686,4 -4,4"/>
+<!-- proc~symba_io_read_particle -->
+<g id="proc~~symba_io_read_particle~~CalledByGraph_node1" class="node">
+<title>proc~symba_io_read_particle</title>
+<polygon fill="none" stroke="black" points="682,-24 555,-24 555,0 682,0 682,-24"/>
+<text text-anchor="middle" x="618.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_read_particle</text>
+</g>
+<!-- interface~symba_io_read_particle -->
+<g id="proc~~symba_io_read_particle~~CalledByGraph_node2" class="node">
+<title>interface~symba_io_read_particle</title>
+<g id="a_proc~~symba_io_read_particle~~CalledByGraph_node2"><a xlink:href=".././interface/symba_io_read_particle.html" xlink:title="symba_io_read_particle">
+<polygon fill="#a7506f" stroke="#a7506f" points="519,-24 392,-24 392,0 519,0 519,-24"/>
+<text text-anchor="middle" x="455.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_read_particle</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_io_read_particle&#45;&gt;proc~symba_io_read_particle -->
+<g id="proc~~symba_io_read_particle~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_io_read_particle&#45;&gt;proc~symba_io_read_particle</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M519.21,-12C527.65,-12 536.36,-12 544.96,-12"/>
+<polygon fill="#000000" stroke="#000000" points="544.96,-15.5 554.96,-12 544.96,-8.5 544.96,-15.5"/>
 </g>
-<!-- interface~symba_io_initialize_particle_info -->
-<g id="proc~~symba_io_initialize_particle_info~~CalledByGraph_node2" class="node">
-<title>interface~symba_io_initialize_particle_info</title>
-<g id="a_proc~~symba_io_initialize_particle_info~~CalledByGraph_node2"><a xlink:href=".././interface/symba_io_initialize_particle_info.html" xlink:title="symba_io_initialize_particle_info">
-<polygon fill="#a7506f" stroke="#a7506f" points="166,-24 0,-24 0,0 166,0 166,-24"/>
-<text text-anchor="middle" x="83" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_initialize_particle_info</text>
+<!-- proc~symba_setup_initialize_system -->
+<g id="proc~~symba_io_read_particle~~CalledByGraph_node3" class="node">
+<title>proc~symba_setup_initialize_system</title>
+<g id="a_proc~~symba_io_read_particle~~CalledByGraph_node3"><a xlink:href=".././proc/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="356,-24 196,-24 196,0 356,0 356,-24"/>
+<text text-anchor="middle" x="276" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_io_initialize_particle_info&#45;&gt;proc~symba_io_initialize_particle_info -->
-<g id="proc~~symba_io_initialize_particle_info~~CalledByGraph_edge1" class="edge">
-<title>interface~symba_io_initialize_particle_info&#45;&gt;proc~symba_io_initialize_particle_info</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.21,-12C174.56,-12 183.08,-12 191.53,-12"/>
-<polygon fill="#000000" stroke="#000000" points="191.78,-15.5 201.78,-12 191.78,-8.5 191.78,-15.5"/>
+<!-- proc~symba_setup_initialize_system&#45;&gt;interface~symba_io_read_particle -->
+<g id="proc~~symba_io_read_particle~~CalledByGraph_edge2" class="edge">
+<title>proc~symba_setup_initialize_system&#45;&gt;interface~symba_io_read_particle</title>
+<path fill="none" stroke="#000000" d="M356.15,-12C364.62,-12 373.22,-12 381.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="381.75,-15.5 391.75,-12 381.75,-8.5 381.75,-15.5"/>
+</g>
+<!-- interface~symba_setup_initialize_system -->
+<g id="proc~~symba_io_read_particle~~CalledByGraph_node4" class="node">
+<title>interface~symba_setup_initialize_system</title>
+<g id="a_proc~~symba_io_read_particle~~CalledByGraph_node4"><a xlink:href=".././interface/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="160,-24 0,-24 0,0 160,0 160,-24"/>
+<text text-anchor="middle" x="80" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system -->
+<g id="proc~~symba_io_read_particle~~CalledByGraph_edge3" class="edge">
+<title>interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160.19,-12C168.53,-12 177.05,-12 185.5,-12"/>
+<polygon fill="#000000" stroke="#000000" points="185.75,-15.5 195.75,-12 185.75,-8.5 185.75,-15.5"/>
 </g>
 </g>
 </svg>
-</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+</div><script>var panprocsymba_io_read_particleCalledByGraph = svgPanZoom('#procsymba_io_read_particleCalledByGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
     <p>Nodes of different colours represent the following: </p>
     <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
diff --git a/docs/proc/symba_io_write_discard.html b/docs/proc/symba_io_write_discard.html
index bb469143a..46ba77396 100644
--- a/docs/proc/symba_io_write_discard.html
+++ b/docs/proc/symba_io_write_discard.html
@@ -134,7 +134,7 @@ <h1>symba_io_write_discard
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">62 statements</a>
+    title=" 0.1% of total for procedures.">65 statements</a>
      </li> 
      
      
@@ -232,7 +232,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~356"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~353"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -247,7 +247,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~196"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~200"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_io_write_frame_info.html b/docs/proc/symba_io_write_frame_info.html
deleted file mode 100644
index 7c3ab4482..000000000
--- a/docs/proc/symba_io_write_frame_info.html
+++ /dev/null
@@ -1,491 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-  <head>
-    <meta charset="utf-8">
-    <meta http-equiv="X-UA-Compatible" content="IE=edge">
-    <meta name="viewport" content="width=device-width, initial-scale=1">
-   
-   <meta name="description" content="Swiftest - The Fastest Symplectic Massive Body Integrator in the West (someday, hopefully)">
-    
-    <meta name="author" content="David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott" >
-    <link rel="icon" href="../favicon.png">
-
-    <title>symba_io_write_frame_info &ndash; swiftest</title>
-
-    <link href="../css/bootstrap.min.css" rel="stylesheet">
-    <link href="../css/pygments.css" rel="stylesheet">
-    <link href="../css/font-awesome.min.css" rel="stylesheet">
-    <link href="../css/local.css" rel="stylesheet">
-    
-    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
-    
-    
-
-    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
-    <!--[if lt IE 9]>
-      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
-      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
-    <![endif]-->
-    
-    <script src="../js/jquery-2.1.3.min.js"></script>
-    <script src="../js/svg-pan-zoom.min.js"></script>
-
-  </head>
-
-  <body>
-
-    <!-- Fixed navbar -->
-    <nav class="navbar navbar-inverse navbar-fixed-top">
-      <div class="container">
-        <div class="navbar-header">
-          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
-            <span class="sr-only">Toggle navigation</span>
-            <span class="icon-bar"></span>
-            <span class="icon-bar"></span>
-            <span class="icon-bar"></span>
-          </button>
-          <a class="navbar-brand" href="../index.html">swiftest </a>
-        </div>
-        <div id="navbar" class="navbar-collapse collapse">
-          <ul class="nav navbar-nav">
-        
-            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
-              <a href="#" class="dropdown-toggle"
-              data-toggle="dropdown" role="button"
-              aria-haspopup="true"
-     aria-expanded="false">Contents <span class="caret"></span></a>
-        <ul class="dropdown-menu">
-          
-              
-            <li><a href="../lists/files.html">Source Files</a></li>
-        
-        
-        
-            <li><a href="../lists/modules.html">Modules</a></li>
-        
-            
-                                
-            <li><a href="../lists/procedures.html">Procedures</a></li>
-        
-        
-            <li><a href="../lists/absint.html">Abstract Interfaces</a></li>
-               
-            <li><a href="../lists/types.html">Derived Types</a></li>
-        
-        
-            <li><a href="../program/swiftest_driver.html">Program</a></li>
-      
-            </ul>
-            </li>
-
-
-<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
-
-
-
-<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
-
-
-
-<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
-
-
-<li class="visible-xs hidden-sm visible-lg"><a href="../lists/absint.html">Abstract Interfaces</a></li>
-                             
-<li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
-
-
-<li class="visible-xs hidden-sm visible-lg"><a href="../program/swiftest_driver.html">Program</a></li>
-
-          </ul>
-        
-        <form action="../search.html" class="navbar-form navbar-right" role="search">
-        <div class="form-group">
-          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
-        </div>
-<!--
-        <button type="submit" class="btn btn-default">Submit</button>
--->
-        </form>
-        
-        </div><!--/.nav-collapse -->
-      </div>
-    </nav>
-
-    <div class="container">
-    
-  
-  <div class="row">
-    <h1>symba_io_write_frame_info
-      <small>Module Subroutine</small>
-    
-    </h1>
-    
-<div class="row">
-  <div class="col-lg-12">
-<div class="well well-sm">
-  <ul class="list-inline" style="margin-bottom:0px;display:inline">
-     
-     
-     
-     
-    
-    
-     <li><i class="fa fa-list-ol"></i>
-       <a data-toggle="tooltip"
-    data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">6 statements</a>
-     </li> 
-     
-     
-     
-    <li><i class="fa fa-code"></i><a href="../src/symba_io.f90"> Source File</a></li>
-     
-     
-  </ul>
-  <ol class="breadcrumb in-well text-right">
-  
-    
-     <li><a href='../sourcefile/symba_io.f90.html'>symba_io.f90</a></li>
-    
-     <li><a href='../module/s_symba_io.html'>s_symba_io</a></li>
-    
-  
-     <li class="active">symba_io_write_frame_info</li>
-  </ol>
-</div>
-</div>
-</div>
-<script>
-  $(function () {
-  $('[data-toggle="tooltip"]').tooltip()
-  })
-</script>
-
-  </div>
-  
-  <div class="row">
-    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
-    
-<div id="sidebar">
-  
-<h3>Contents</h3>
- 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-<em>None</em>
-
-
-</div>
-
-    </div>
-    
-    <div class="col-md-9" id='text'>
-    <h2>
-module subroutine symba_io_write_frame_info(self, iu, param)
-    
-    
-   <a href='../interface/symba_io_write_frame_info.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
-    
-   
-</h2>
-    
-  
-
-
-    
-
-    <h3>Arguments</h3>
-    
-      
-<table class="table table-striped varlist">
-<thead><tr><th>Type</th>
-<th>Intent</th><th>Optional</th>
-<th>Attributes</th><th></th><th>Name</th><th></th></thead>
-
-
-
-<tbody>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-self~357"></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA particle info object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-iu~20"></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-param~197"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-    
-    
-    
-    <br>
-    
-    
-     
-    <div class="panel panel-default">
-      <div class="panel-heading">
-  <h3 class="panel-title">Called by</h3>
-      </div>
-      <div class="panel-body">
-  <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.47.1 (20210417.1919)
- -->
-<!-- Title: proc~~symba_io_write_frame_info~~CalledByGraph Pages: 1 -->
-<svg id="procsymba_io_write_frame_infoCalledByGraph" width="332pt" height="32pt"
- viewBox="0.00 0.00 332.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_io_write_frame_info~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~symba_io_write_frame_info~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 328,-28 328,4 -4,4"/>
-<!-- proc~symba_io_write_frame_info -->
-<g id="proc~~symba_io_write_frame_info~~CalledByGraph_node1" class="node">
-<title>proc~symba_io_write_frame_info</title>
-<polygon fill="none" stroke="black" points="324,-24 180,-24 180,0 324,0 324,-24"/>
-<text text-anchor="middle" x="252" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_write_frame_info</text>
-</g>
-<!-- interface~symba_io_write_frame_info -->
-<g id="proc~~symba_io_write_frame_info~~CalledByGraph_node2" class="node">
-<title>interface~symba_io_write_frame_info</title>
-<g id="a_proc~~symba_io_write_frame_info~~CalledByGraph_node2"><a xlink:href=".././interface/symba_io_write_frame_info.html" xlink:title="symba_io_write_frame_info">
-<polygon fill="#a7506f" stroke="#a7506f" points="144,-24 0,-24 0,0 144,0 144,-24"/>
-<text text-anchor="middle" x="72" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_write_frame_info</text>
-</a>
-</g>
-</g>
-<!-- interface~symba_io_write_frame_info&#45;&gt;proc~symba_io_write_frame_info -->
-<g id="proc~~symba_io_write_frame_info~~CalledByGraph_edge1" class="edge">
-<title>interface~symba_io_write_frame_info&#45;&gt;proc~symba_io_write_frame_info</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.12,-12C152.61,-12 161.33,-12 169.94,-12"/>
-<polygon fill="#000000" stroke="#000000" points="170,-15.5 180,-12 170,-8.5 170,-15.5"/>
-</g>
-</g>
-</svg>
-</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
-    <p>Nodes of different colours represent the following: </p>
-    <?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.47.1 (20210417.1919)
- -->
-<!-- Title: Graph Key Pages: 1 -->
-<svg width="560pt" height="32pt"
- viewBox="0.00 0.00 559.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)">
-<title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
-<!-- Subroutine -->
-<g id="node1" class="node">
-<title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
-<text text-anchor="middle" x="32" y="-9.6" 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="136,-24 82,-24 82,0 136,0 136,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" 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="209.5,-24 154.5,-24 154.5,0 209.5,0 209.5,-24"/>
-<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
-</g>
-<!-- Unknown Procedure Type -->
-<g id="node4" class="node">
-<title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,0 364,0 364,-24"/>
-<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
-</g>
-<!-- Program -->
-<g id="node5" class="node">
-<title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,0 436,0 436,-24"/>
-<text text-anchor="middle" x="409" y="-9.6" 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="551.5,-24 454.5,-24 454.5,0 551.5,0 551.5,-24"/>
-<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
-</g>
-</g>
-</svg>
-
-    
-    <p>Solid arrows point from a procedure to one which it calls. Dashed 
-    arrows point from an interface to procedures which implement that interface.
-    This could include the module procedures in a generic interface or the
-    implementation in a submodule of an interface in a parent module.
-    </p>
-    </div></div></div></div>
-      </div>
-    </div>
-     
-    <br>
-
-    <section class="visible-xs visible-sm hidden-md">
-      
-<h3>Contents</h3>
- 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-<em>None</em>
-
-
-    </section>
-    <br class="visible-xs visible-sm hidden-md">
-
-    
-
-    
-    
-    
-    
-    
-
-    
-    
-    
-    
-    
-
-
-    
-    
-    
-    
-    </div>
-  </div>
-
-
-    <hr>    
-    </div> <!-- /container -->
-    <footer>
-      <div class="container">
-      <div class="row">
-        <div class="col-xs-6 col-md-4"><p>&copy; 2021 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
-                                          </p></div>
-        <div class="col-xs-6 col-md-4 col-md-push-4">
-          <p class="text-right">
-            Documentation generated by 
-            <a href="https://github.com/cmacmackin/ford">FORD</a>
-            
-          </p>
-        </div>
-        <div class="col-xs-12 col-md-4 col-md-pull-4"><p class="text-center"> swiftest was developed by David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</p></div>
-      </div>
-      <br>
-      </div> <!-- /container -->    
-    </footer>
-
-    <!-- Bootstrap core JavaScript
-    ================================================== -->
-    <!-- Placed at the end of the document so the pages load faster -->
-<!--
-    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
--->
-    <script src="../js/bootstrap.min.js"></script>
-    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
-    <script src="../js/ie10-viewport-bug-workaround.js"></script>
-
-    <!-- MathJax JavaScript
-    ================================================== -->
-    <!-- Placed at the end of the document so the pages load faster -->
-    <script type="text/x-mathjax-config">
-      MathJax.Hub.Config({
-        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
-        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
-        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
-      });
-    </script>
-    
-    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
-    
-    
-    <script src="../tipuesearch/tipuesearch_content.js"></script>
-    <script src="../tipuesearch/tipuesearch_set.js"></script>
-    <script src="../tipuesearch/tipuesearch.js"></script>
-    
-    
-  </body>
-</html>
\ No newline at end of file
diff --git a/docs/proc/symba_kick_getacch_pl.html b/docs/proc/symba_kick_getacch_pl.html
index f4a127124..e4f13438b 100644
--- a/docs/proc/symba_kick_getacch_pl.html
+++ b/docs/proc/symba_kick_getacch_pl.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~98"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~103"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~187"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~192"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_kick_getacch_tp.html b/docs/proc/symba_kick_getacch_tp.html
index 3cc421478..444f8ac05 100644
--- a/docs/proc/symba_kick_getacch_tp.html
+++ b/docs/proc/symba_kick_getacch_tp.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~99"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~104"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~188"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~193"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_kick_pltpenc.html b/docs/proc/symba_kick_pltpenc.html
index ebdd9f00a..8af2ad246 100644
--- a/docs/proc/symba_kick_pltpenc.html
+++ b/docs/proc/symba_kick_pltpenc.html
@@ -254,7 +254,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~100"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~105"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/symba_setup_initialize_particle_info.html b/docs/proc/symba_setup_initialize_particle_info.html
new file mode 100644
index 000000000..4e4532bcb
--- /dev/null
+++ b/docs/proc/symba_setup_initialize_particle_info.html
@@ -0,0 +1,638 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   
+   <meta name="description" content="Swiftest - The Fastest Symplectic Massive Body Integrator in the West (someday, hopefully)">
+    
+    <meta name="author" content="David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>symba_setup_initialize_particle_info &ndash; swiftest</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+    
+    
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">swiftest </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+        
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+          
+              
+            <li><a href="../lists/files.html">Source Files</a></li>
+        
+        
+        
+            <li><a href="../lists/modules.html">Modules</a></li>
+        
+            
+                                
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+        
+        
+            <li><a href="../lists/absint.html">Abstract Interfaces</a></li>
+               
+            <li><a href="../lists/types.html">Derived Types</a></li>
+        
+        
+            <li><a href="../program/swiftest_driver.html">Program</a></li>
+      
+            </ul>
+            </li>
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/absint.html">Abstract Interfaces</a></li>
+                             
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../program/swiftest_driver.html">Program</a></li>
+
+          </ul>
+        
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+    
+  
+  <div class="row">
+    <h1>symba_setup_initialize_particle_info
+      <small>Module Subroutine</small>
+    
+    </h1>
+    
+<div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+     
+     <li><i class="fa fa-pencil"></i> David A. Minton</li>
+     
+     
+     
+     
+    
+    
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title=" 0.1% of total for procedures.">44 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/symba_setup.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+     <li><a href='../sourcefile/symba_setup.f90.html'>symba_setup.f90</a></li>
+    
+     <li><a href='../module/s_symba_setup.html'>s_symba_setup</a></li>
+    
+  
+     <li class="active">symba_setup_initialize_particle_info</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    
+<div id="sidebar">
+  
+<h3>Contents</h3>
+ 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<em>None</em>
+
+
+</div>
+
+    </div>
+    
+    <div class="col-md-9" id='text'>
+    <h2>
+module subroutine symba_setup_initialize_particle_info(system, param)
+    
+    
+   <a href='../interface/symba_setup_initialize_particle_info.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+    
+   
+</h2>
+    
+  
+
+
+    
+    <p>Initializes a new particle information data structure with initial conditions recorded</p>
+    
+
+    <h3>Arguments</h3>
+    
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-system~102"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>system</strong></td><td><p>SyMBA nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-param~187"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters with SyMBA extensions</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+    
+    
+    
+    <br>
+    
+    
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Calls</h3>
+      </div>
+      <div class="panel-body">
+  <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.47.1 (20210417.1919)
+ -->
+<!-- Title: proc~~symba_setup_initialize_particle_info~~CallsGraph Pages: 1 -->
+<svg id="procsymba_setup_initialize_particle_infoCallsGraph" width="641pt" height="31pt"
+ viewBox="0.00 0.00 641.00 30.89" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_setup_initialize_particle_info~~CallsGraph" class="graph" transform="scale(0.97 0.97) rotate(0) translate(4 28)">
+<title>proc~~symba_setup_initialize_particle_info~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 660,-28 660,4 -4,4"/>
+<!-- proc~symba_setup_initialize_particle_info -->
+<g id="proc~~symba_setup_initialize_particle_info~~CallsGraph_node1" class="node">
+<title>proc~symba_setup_initialize_particle_info</title>
+<polygon fill="none" stroke="black" points="184,-24 0,-24 0,0 184,0 184,-24"/>
+<text text-anchor="middle" x="92" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_setup_initialize_particle_info</text>
+</g>
+<!-- interface~symba_io_dump_particle_info -->
+<g id="proc~~symba_setup_initialize_particle_info~~CallsGraph_node2" class="node">
+<title>interface~symba_io_dump_particle_info</title>
+<g id="a_proc~~symba_setup_initialize_particle_info~~CallsGraph_node2"><a xlink:href=".././interface/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="375,-24 220,-24 220,0 375,0 375,-24"/>
+<text text-anchor="middle" x="297.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_setup_initialize_particle_info&#45;&gt;interface~symba_io_dump_particle_info -->
+<g id="proc~~symba_setup_initialize_particle_info~~CallsGraph_edge1" class="edge">
+<title>proc~symba_setup_initialize_particle_info&#45;&gt;interface~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" d="M184.04,-12C192.54,-12 201.14,-12 209.6,-12"/>
+<polygon fill="#000000" stroke="#000000" points="209.84,-15.5 219.84,-12 209.84,-8.5 209.84,-15.5"/>
+</g>
+<!-- proc~symba_io_dump_particle_info -->
+<g id="proc~~symba_setup_initialize_particle_info~~CallsGraph_node3" class="node">
+<title>proc~symba_io_dump_particle_info</title>
+<g id="a_proc~~symba_setup_initialize_particle_info~~CallsGraph_node3"><a xlink:href=".././proc/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="566,-24 411,-24 411,0 566,0 566,-24"/>
+<text text-anchor="middle" x="488.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info -->
+<g id="proc~~symba_setup_initialize_particle_info~~CallsGraph_edge2" class="edge">
+<title>interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.1,-12C383.56,-12 392.22,-12 400.79,-12"/>
+<polygon fill="#000000" stroke="#000000" points="400.79,-15.5 410.79,-12 400.79,-8.5 400.79,-15.5"/>
+</g>
+<!-- util_exit -->
+<g id="proc~~symba_setup_initialize_particle_info~~CallsGraph_node4" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="656,-24 602,-24 602,0 656,0 656,-24"/>
+<text text-anchor="middle" x="629" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~symba_io_dump_particle_info&#45;&gt;util_exit -->
+<g id="proc~~symba_setup_initialize_particle_info~~CallsGraph_edge3" class="edge">
+<title>proc~symba_io_dump_particle_info&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M566.04,-12C575,-12 583.8,-12 591.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="591.87,-15.5 601.87,-12 591.87,-8.5 591.87,-15.5"/>
+</g>
+</g>
+</svg>
+</div><script>var panprocsymba_setup_initialize_particle_infoCallsGraph = svgPanZoom('#procsymba_setup_initialize_particle_infoCallsGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?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.47.1 (20210417.1919)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="560pt" height="32pt"
+ viewBox="0.00 0.00 559.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)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
+<!-- Subroutine -->
+<g id="node1" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
+<text text-anchor="middle" x="32" y="-9.6" 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="136,-24 82,-24 82,0 136,0 136,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" 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="209.5,-24 154.5,-24 154.5,0 209.5,0 209.5,-24"/>
+<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+</g>
+<!-- Unknown Procedure Type -->
+<g id="node4" class="node">
+<title>Unknown Procedure Type</title>
+<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,0 364,0 364,-24"/>
+<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,0 436,0 436,-24"/>
+<text text-anchor="middle" x="409" y="-9.6" 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="551.5,-24 454.5,-24 454.5,0 551.5,0 551.5,-24"/>
+<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a procedure to one which it calls. Dashed 
+    arrows point from an interface to procedures which implement that interface.
+    This could include the module procedures in a generic interface or the
+    implementation in a submodule of an interface in a parent module.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+     
+     
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Called by</h3>
+      </div>
+      <div class="panel-body">
+  <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.47.1 (20210417.1919)
+ -->
+<!-- Title: proc~~symba_setup_initialize_particle_info~~CalledByGraph Pages: 1 -->
+<svg id="procsymba_setup_initialize_particle_infoCalledByGraph" width="641pt" height="26pt"
+ viewBox="0.00 0.00 641.00 25.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_setup_initialize_particle_info~~CalledByGraph" class="graph" transform="scale(0.8 0.8) rotate(0) translate(4 28)">
+<title>proc~~symba_setup_initialize_particle_info~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 800,-28 800,4 -4,4"/>
+<!-- proc~symba_setup_initialize_particle_info -->
+<g id="proc~~symba_setup_initialize_particle_info~~CalledByGraph_node1" class="node">
+<title>proc~symba_setup_initialize_particle_info</title>
+<polygon fill="none" stroke="black" points="796,-24 612,-24 612,0 796,0 796,-24"/>
+<text text-anchor="middle" x="704" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_setup_initialize_particle_info</text>
+</g>
+<!-- interface~symba_setup_initialize_particle_info -->
+<g id="proc~~symba_setup_initialize_particle_info~~CalledByGraph_node2" class="node">
+<title>interface~symba_setup_initialize_particle_info</title>
+<g id="a_proc~~symba_setup_initialize_particle_info~~CalledByGraph_node2"><a xlink:href=".././interface/symba_setup_initialize_particle_info.html" xlink:title="symba_setup_initialize_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="576,-24 392,-24 392,0 576,0 576,-24"/>
+<text text-anchor="middle" x="484" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_setup_initialize_particle_info&#45;&gt;proc~symba_setup_initialize_particle_info -->
+<g id="proc~~symba_setup_initialize_particle_info~~CalledByGraph_edge1" class="edge">
+<title>interface~symba_setup_initialize_particle_info&#45;&gt;proc~symba_setup_initialize_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M576.19,-12C584.57,-12 593.09,-12 601.55,-12"/>
+<polygon fill="#000000" stroke="#000000" points="601.83,-15.5 611.83,-12 601.83,-8.5 601.83,-15.5"/>
+</g>
+<!-- proc~symba_setup_initialize_system -->
+<g id="proc~~symba_setup_initialize_particle_info~~CalledByGraph_node3" class="node">
+<title>proc~symba_setup_initialize_system</title>
+<g id="a_proc~~symba_setup_initialize_particle_info~~CalledByGraph_node3"><a xlink:href=".././proc/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="356,-24 196,-24 196,0 356,0 356,-24"/>
+<text text-anchor="middle" x="276" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_setup_initialize_system&#45;&gt;interface~symba_setup_initialize_particle_info -->
+<g id="proc~~symba_setup_initialize_particle_info~~CalledByGraph_edge2" class="edge">
+<title>proc~symba_setup_initialize_system&#45;&gt;interface~symba_setup_initialize_particle_info</title>
+<path fill="none" stroke="#000000" d="M356.06,-12C364.46,-12 373.08,-12 381.69,-12"/>
+<polygon fill="#000000" stroke="#000000" points="381.77,-15.5 391.77,-12 381.77,-8.5 381.77,-15.5"/>
+</g>
+<!-- interface~symba_setup_initialize_system -->
+<g id="proc~~symba_setup_initialize_particle_info~~CalledByGraph_node4" class="node">
+<title>interface~symba_setup_initialize_system</title>
+<g id="a_proc~~symba_setup_initialize_particle_info~~CalledByGraph_node4"><a xlink:href=".././interface/symba_setup_initialize_system.html" xlink:title="symba_setup_initialize_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="160,-24 0,-24 0,0 160,0 160,-24"/>
+<text text-anchor="middle" x="80" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_system</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system -->
+<g id="proc~~symba_setup_initialize_particle_info~~CalledByGraph_edge3" class="edge">
+<title>interface~symba_setup_initialize_system&#45;&gt;proc~symba_setup_initialize_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160.19,-12C168.53,-12 177.05,-12 185.5,-12"/>
+<polygon fill="#000000" stroke="#000000" points="185.75,-15.5 195.75,-12 185.75,-8.5 185.75,-15.5"/>
+</g>
+</g>
+</svg>
+</div><script>var panprocsymba_setup_initialize_particle_infoCalledByGraph = svgPanZoom('#procsymba_setup_initialize_particle_infoCalledByGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?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.47.1 (20210417.1919)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="560pt" height="32pt"
+ viewBox="0.00 0.00 559.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)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
+<!-- Subroutine -->
+<g id="node1" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
+<text text-anchor="middle" x="32" y="-9.6" 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="136,-24 82,-24 82,0 136,0 136,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" 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="209.5,-24 154.5,-24 154.5,0 209.5,0 209.5,-24"/>
+<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+</g>
+<!-- Unknown Procedure Type -->
+<g id="node4" class="node">
+<title>Unknown Procedure Type</title>
+<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,0 364,0 364,-24"/>
+<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,0 436,0 436,-24"/>
+<text text-anchor="middle" x="409" y="-9.6" 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="551.5,-24 454.5,-24 454.5,0 551.5,0 551.5,-24"/>
+<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a procedure to one which it calls. Dashed 
+    arrows point from an interface to procedures which implement that interface.
+    This could include the module procedures in a generic interface or the
+    implementation in a submodule of an interface in a parent module.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+     
+    <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      
+<h3>Contents</h3>
+ 
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<em>None</em>
+
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    
+
+    
+    
+    
+    
+    
+
+    
+    
+    
+    
+    
+
+
+    
+    
+    
+    
+    </div>
+  </div>
+
+
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-4"><p>&copy; 2021 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+                                          </p></div>
+        <div class="col-xs-6 col-md-4 col-md-push-4">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/cmacmackin/ford">FORD</a>
+            
+          </p>
+        </div>
+        <div class="col-xs-12 col-md-4 col-md-pull-4"><p class="text-center"> swiftest was developed by David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</p></div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/docs/proc/symba_setup_initialize_system.html b/docs/proc/symba_setup_initialize_system.html
index 2697cc37d..ebfefc7d7 100644
--- a/docs/proc/symba_setup_initialize_system.html
+++ b/docs/proc/symba_setup_initialize_system.html
@@ -136,7 +136,7 @@ <h1>symba_setup_initialize_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">21 statements</a>
+    title=" 0.1% of total for procedures.">26 statements</a>
      </li> 
      
      
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~183"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~188"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -281,32 +281,140 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~symba_setup_initialize_system~~CallsGraph Pages: 1 -->
-<svg id="procsymba_setup_initialize_systemCallsGraph" width="355pt" height="32pt"
- viewBox="0.00 0.00 355.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~symba_setup_initialize_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procsymba_setup_initialize_systemCallsGraph" width="641pt" height="69pt"
+ viewBox="0.00 0.00 641.00 68.85" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_setup_initialize_system~~CallsGraph" class="graph" transform="scale(0.59 0.59) rotate(0) translate(4 112)">
 <title>proc~~symba_setup_initialize_system~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 351,-28 351,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 1076,-112 1076,4 -4,4"/>
 <!-- proc~symba_setup_initialize_system -->
 <g id="proc~~symba_setup_initialize_system~~CallsGraph_node1" class="node">
 <title>proc~symba_setup_initialize_system</title>
-<polygon fill="none" stroke="black" points="160,-24 0,-24 0,0 160,0 160,-24"/>
-<text text-anchor="middle" x="80" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_setup_initialize_system</text>
+<polygon fill="none" stroke="black" points="160,-66 0,-66 0,-42 160,-42 160,-66"/>
+<text text-anchor="middle" x="80" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_setup_initialize_system</text>
 </g>
 <!-- whm_setup_initialize_system -->
 <g id="proc~~symba_setup_initialize_system~~CallsGraph_node2" class="node">
 <title>whm_setup_initialize_system</title>
-<polygon fill="#777777" stroke="#777777" points="347,-24 196,-24 196,0 347,0 347,-24"/>
-<text text-anchor="middle" x="271.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_initialize_system</text>
+<polygon fill="#777777" stroke="#777777" points="363.5,-108 212.5,-108 212.5,-84 363.5,-84 363.5,-108"/>
+<text text-anchor="middle" x="288" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup_initialize_system</text>
 </g>
 <!-- proc~symba_setup_initialize_system&#45;&gt;whm_setup_initialize_system -->
 <g id="proc~~symba_setup_initialize_system~~CallsGraph_edge1" class="edge">
 <title>proc~symba_setup_initialize_system&#45;&gt;whm_setup_initialize_system</title>
-<path fill="none" stroke="#000000" d="M160.27,-12C168.63,-12 177.16,-12 185.59,-12"/>
-<polygon fill="#000000" stroke="#000000" points="185.79,-15.5 195.79,-12 185.79,-8.5 185.79,-15.5"/>
+<path fill="none" stroke="#000000" d="M140.03,-66.04C164.38,-71 192.77,-76.79 218.07,-81.95"/>
+<polygon fill="#000000" stroke="#000000" points="217.46,-85.39 227.96,-83.96 218.86,-78.54 217.46,-85.39"/>
+</g>
+<!-- interface~symba_io_read_particle -->
+<g id="proc~~symba_setup_initialize_system~~CallsGraph_node3" class="node">
+<title>interface~symba_io_read_particle</title>
+<g id="a_proc~~symba_setup_initialize_system~~CallsGraph_node3"><a xlink:href=".././interface/symba_io_read_particle.html" xlink:title="symba_io_read_particle">
+<polygon fill="#a7506f" stroke="#a7506f" points="351.5,-66 224.5,-66 224.5,-42 351.5,-42 351.5,-66"/>
+<text text-anchor="middle" x="288" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_read_particle</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_setup_initialize_system&#45;&gt;interface~symba_io_read_particle -->
+<g id="proc~~symba_setup_initialize_system~~CallsGraph_edge2" class="edge">
+<title>proc~symba_setup_initialize_system&#45;&gt;interface~symba_io_read_particle</title>
+<path fill="none" stroke="#000000" d="M160.06,-54C177.89,-54 196.73,-54 214.29,-54"/>
+<polygon fill="#000000" stroke="#000000" points="214.46,-57.5 224.46,-54 214.46,-50.5 214.46,-57.5"/>
+</g>
+<!-- interface~symba_setup_initialize_particle_info -->
+<g id="proc~~symba_setup_initialize_system~~CallsGraph_node4" class="node">
+<title>interface~symba_setup_initialize_particle_info</title>
+<g id="a_proc~~symba_setup_initialize_system~~CallsGraph_node4"><a xlink:href=".././interface/symba_setup_initialize_particle_info.html" xlink:title="symba_setup_initialize_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="380,-24 196,-24 196,0 380,0 380,-24"/>
+<text text-anchor="middle" x="288" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_particle_info</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_setup_initialize_system&#45;&gt;interface~symba_setup_initialize_particle_info -->
+<g id="proc~~symba_setup_initialize_system~~CallsGraph_edge3" class="edge">
+<title>proc~symba_setup_initialize_system&#45;&gt;interface~symba_setup_initialize_particle_info</title>
+<path fill="none" stroke="#000000" d="M140.03,-41.96C164.38,-37 192.77,-31.21 218.07,-26.05"/>
+<polygon fill="#000000" stroke="#000000" points="218.86,-29.46 227.96,-24.04 217.46,-22.61 218.86,-29.46"/>
+</g>
+<!-- proc~symba_io_read_particle -->
+<g id="proc~~symba_setup_initialize_system~~CallsGraph_node6" class="node">
+<title>proc~symba_io_read_particle</title>
+<g id="a_proc~~symba_setup_initialize_system~~CallsGraph_node6"><a xlink:href=".././proc/symba_io_read_particle.html" xlink:title="symba_io_read_particle">
+<polygon fill="#d9534f" stroke="#d9534f" points="777,-66 650,-66 650,-42 777,-42 777,-66"/>
+<text text-anchor="middle" x="713.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_read_particle</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_io_read_particle&#45;&gt;proc~symba_io_read_particle -->
+<g id="proc~~symba_setup_initialize_system~~CallsGraph_edge4" class="edge">
+<title>interface~symba_io_read_particle&#45;&gt;proc~symba_io_read_particle</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M351.94,-54C428.84,-54 558.68,-54 639.77,-54"/>
+<polygon fill="#000000" stroke="#000000" points="639.9,-57.5 649.9,-54 639.9,-50.5 639.9,-57.5"/>
+</g>
+<!-- proc~symba_setup_initialize_particle_info -->
+<g id="proc~~symba_setup_initialize_system~~CallsGraph_node5" class="node">
+<title>proc~symba_setup_initialize_particle_info</title>
+<g id="a_proc~~symba_setup_initialize_system~~CallsGraph_node5"><a xlink:href=".././proc/symba_setup_initialize_particle_info.html" xlink:title="symba_setup_initialize_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="600,-24 416,-24 416,0 600,0 600,-24"/>
+<text text-anchor="middle" x="508" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup_initialize_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_setup_initialize_particle_info&#45;&gt;proc~symba_setup_initialize_particle_info -->
+<g id="proc~~symba_setup_initialize_system~~CallsGraph_edge5" class="edge">
+<title>interface~symba_setup_initialize_particle_info&#45;&gt;proc~symba_setup_initialize_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M380.19,-12C388.57,-12 397.09,-12 405.55,-12"/>
+<polygon fill="#000000" stroke="#000000" points="405.83,-15.5 415.83,-12 405.83,-8.5 405.83,-15.5"/>
+</g>
+<!-- interface~symba_io_dump_particle_info -->
+<g id="proc~~symba_setup_initialize_system~~CallsGraph_node8" class="node">
+<title>interface~symba_io_dump_particle_info</title>
+<g id="a_proc~~symba_setup_initialize_system~~CallsGraph_node8"><a xlink:href=".././interface/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="791,-24 636,-24 636,0 791,0 791,-24"/>
+<text text-anchor="middle" x="713.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_setup_initialize_particle_info&#45;&gt;interface~symba_io_dump_particle_info -->
+<g id="proc~~symba_setup_initialize_system~~CallsGraph_edge6" class="edge">
+<title>proc~symba_setup_initialize_particle_info&#45;&gt;interface~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" d="M600.04,-12C608.54,-12 617.14,-12 625.6,-12"/>
+<polygon fill="#000000" stroke="#000000" points="625.84,-15.5 635.84,-12 625.84,-8.5 625.84,-15.5"/>
+</g>
+<!-- util_exit -->
+<g id="proc~~symba_setup_initialize_system~~CallsGraph_node7" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="1072,-45 1018,-45 1018,-21 1072,-21 1072,-45"/>
+<text text-anchor="middle" x="1045" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~symba_io_read_particle&#45;&gt;util_exit -->
+<g id="proc~~symba_setup_initialize_system~~CallsGraph_edge7" class="edge">
+<title>proc~symba_io_read_particle&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M777.25,-50C845.49,-45.65 952.21,-38.85 1007.72,-35.31"/>
+<polygon fill="#000000" stroke="#000000" points="1008.03,-38.8 1017.79,-34.67 1007.59,-31.81 1008.03,-38.8"/>
+</g>
+<!-- proc~symba_io_dump_particle_info -->
+<g id="proc~~symba_setup_initialize_system~~CallsGraph_node9" class="node">
+<title>proc~symba_io_dump_particle_info</title>
+<g id="a_proc~~symba_setup_initialize_system~~CallsGraph_node9"><a xlink:href=".././proc/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="982,-25 827,-25 827,-1 982,-1 982,-25"/>
+<text text-anchor="middle" x="904.5" y="-10.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info -->
+<g id="proc~~symba_setup_initialize_system~~CallsGraph_edge8" class="edge">
+<title>interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M791.1,-12.41C799.56,-12.45 808.22,-12.5 816.79,-12.54"/>
+<polygon fill="#000000" stroke="#000000" points="816.77,-16.04 826.79,-12.59 816.81,-9.04 816.77,-16.04"/>
+</g>
+<!-- proc~symba_io_dump_particle_info&#45;&gt;util_exit -->
+<g id="proc~~symba_setup_initialize_system~~CallsGraph_edge9" class="edge">
+<title>proc~symba_io_dump_particle_info&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M982.04,-24.05C991,-25.35 999.8,-26.62 1007.82,-27.78"/>
+<polygon fill="#000000" stroke="#000000" points="1007.47,-31.26 1017.87,-29.23 1008.47,-24.33 1007.47,-31.26"/>
 </g>
 </g>
 </svg>
-</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+</div><script>var panprocsymba_setup_initialize_systemCallsGraph = svgPanZoom('#procsymba_setup_initialize_systemCallsGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
     <p>Nodes of different colours represent the following: </p>
     <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
diff --git a/docs/proc/symba_setup_merger.html b/docs/proc/symba_setup_merger.html
index 1e406a73b..8b08879ec 100644
--- a/docs/proc/symba_setup_merger.html
+++ b/docs/proc/symba_setup_merger.html
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~184"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~189"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_setup_pl.html b/docs/proc/symba_setup_pl.html
index a3af4a496..3f4561344 100644
--- a/docs/proc/symba_setup_pl.html
+++ b/docs/proc/symba_setup_pl.html
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~185"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~190"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_setup_tp.html b/docs/proc/symba_setup_tp.html
index daaf5c1cb..e5fa78507 100644
--- a/docs/proc/symba_setup_tp.html
+++ b/docs/proc/symba_setup_tp.html
@@ -136,7 +136,7 @@ <h1>symba_setup_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">18 statements</a>
+    title=" 0.0% of total for procedures.">20 statements</a>
      </li> 
      
      
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~186"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~191"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_step_interp_system.html b/docs/proc/symba_step_interp_system.html
index 2e171e036..8bcb88eb1 100644
--- a/docs/proc/symba_step_interp_system.html
+++ b/docs/proc/symba_step_interp_system.html
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~360"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~356"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -254,7 +254,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~200"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~203"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/symba_step_recur_system.html b/docs/proc/symba_step_recur_system.html
index 9bc228966..f2b324498 100644
--- a/docs/proc/symba_step_recur_system.html
+++ b/docs/proc/symba_step_recur_system.html
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~362"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~358"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -254,7 +254,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~201"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~204"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/symba_step_reset_system.html b/docs/proc/symba_step_reset_system.html
index 40af37af8..359467967 100644
--- a/docs/proc/symba_step_reset_system.html
+++ b/docs/proc/symba_step_reset_system.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~363"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~359"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/symba_step_set_recur_levels_system.html b/docs/proc/symba_step_set_recur_levels_system.html
index a5c16271a..09087f6c0 100644
--- a/docs/proc/symba_step_set_recur_levels_system.html
+++ b/docs/proc/symba_step_set_recur_levels_system.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~361"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~357"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/symba_step_system.html b/docs/proc/symba_step_system.html
index 7f258287f..0c935d185 100644
--- a/docs/proc/symba_step_system.html
+++ b/docs/proc/symba_step_system.html
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~359"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~355"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -254,7 +254,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~199"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~202"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/symba_util_append_arr_info.html b/docs/proc/symba_util_append_arr_info.html
index 6bc589cdd..30d4126ea 100644
--- a/docs/proc/symba_util_append_arr_info.html
+++ b/docs/proc/symba_util_append_arr_info.html
@@ -136,7 +136,7 @@ <h1>symba_util_append_arr_info
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">26 statements</a>
+    title=" 0.0% of total for procedures.">15 statements</a>
      </li> 
      
      
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-subroutine symba_util_append_arr_info(arr, source, lsource_mask)
+subroutine symba_util_append_arr_info(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -262,11 +262,41 @@ <h3>Arguments</h3>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-nold~6"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nsrc~6"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-lsource_mask~19"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/proc/symba_util_append_arr_kin.html b/docs/proc/symba_util_append_arr_kin.html
index 67c94d2eb..c4399b795 100644
--- a/docs/proc/symba_util_append_arr_kin.html
+++ b/docs/proc/symba_util_append_arr_kin.html
@@ -136,7 +136,7 @@ <h1>symba_util_append_arr_kin
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">26 statements</a>
+    title=" 0.0% of total for procedures.">15 statements</a>
      </li> 
      
      
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-subroutine symba_util_append_arr_kin(arr, source, lsource_mask)
+subroutine symba_util_append_arr_kin(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -262,11 +262,41 @@ <h3>Arguments</h3>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-nold~7"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nsrc~7"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-lsource_mask~20"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/proc/symba_util_append_merger.html b/docs/proc/symba_util_append_merger.html
index 3ac7f4be7..793491f59 100644
--- a/docs/proc/symba_util_append_merger.html
+++ b/docs/proc/symba_util_append_merger.html
@@ -136,7 +136,7 @@ <h1>symba_util_append_merger
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">21 statements</a>
+    title=" 0.1% of total for procedures.">25 statements</a>
      </li> 
      
      
@@ -269,7 +269,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask~22"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -307,10 +307,22 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="146,-66 0,-66 0,-42 146,-42 146,-66"/>
 <text text-anchor="middle" x="73" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_append_merger</text>
 </g>
-<!-- interface~symba_util_append_pl -->
+<!-- util_exit -->
 <g id="proc~~symba_util_append_merger~~CallsGraph_node2" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="562,-108 508,-108 508,-84 562,-84 562,-108"/>
+<text text-anchor="middle" x="535" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~symba_util_append_merger&#45;&gt;util_exit -->
+<g id="proc~~symba_util_append_merger~~CallsGraph_edge2" class="edge">
+<title>proc~symba_util_append_merger&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M128.44,-66.04C145.51,-69.43 164.47,-72.78 182,-75 296.54,-89.49 433.35,-94.03 497.46,-95.41"/>
+<polygon fill="#000000" stroke="#000000" points="497.77,-98.92 507.84,-95.62 497.91,-91.92 497.77,-98.92"/>
+</g>
+<!-- interface~symba_util_append_pl -->
+<g id="proc~~symba_util_append_merger~~CallsGraph_node3" class="node">
 <title>interface~symba_util_append_pl</title>
-<g id="a_proc~~symba_util_append_merger~~CallsGraph_node2"><a xlink:href=".././interface/symba_util_append_pl.html" xlink:title="symba_util_append_pl">
+<g id="a_proc~~symba_util_append_merger~~CallsGraph_node3"><a xlink:href=".././interface/symba_util_append_pl.html" xlink:title="symba_util_append_pl">
 <polygon fill="#a7506f" stroke="#a7506f" points="302,-66 182,-66 182,-42 302,-42 302,-66"/>
 <text text-anchor="middle" x="242" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_append_pl</text>
 </a>
@@ -323,31 +335,19 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="#000000" stroke="#000000" points="171.92,-57.5 181.92,-54 171.92,-50.5 171.92,-57.5"/>
 </g>
 <!-- interface~util_append -->
-<g id="proc~~symba_util_append_merger~~CallsGraph_node3" class="node">
+<g id="proc~~symba_util_append_merger~~CallsGraph_node4" class="node">
 <title>interface~util_append</title>
-<g id="a_proc~~symba_util_append_merger~~CallsGraph_node3"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
-<polygon fill="#a7506f" stroke="#a7506f" points="569,-108 501,-108 501,-84 569,-84 569,-108"/>
-<text text-anchor="middle" x="535" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<g id="a_proc~~symba_util_append_merger~~CallsGraph_node4"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="569,-24 501,-24 501,0 569,0 569,-24"/>
+<text text-anchor="middle" x="535" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_util_append_merger&#45;&gt;interface~util_append -->
 <g id="proc~~symba_util_append_merger~~CallsGraph_edge3" class="edge">
 <title>proc~symba_util_append_merger&#45;&gt;interface~util_append</title>
-<path fill="none" stroke="#000000" d="M128.44,-66.04C145.51,-69.43 164.47,-72.78 182,-75 292.69,-89 424.18,-93.71 490.75,-95.26"/>
-<polygon fill="#000000" stroke="#000000" points="490.79,-98.76 500.86,-95.48 490.94,-91.76 490.79,-98.76"/>
-</g>
-<!-- util_exit -->
-<g id="proc~~symba_util_append_merger~~CallsGraph_node4" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="562,-24 508,-24 508,0 562,0 562,-24"/>
-<text text-anchor="middle" x="535" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
-</g>
-<!-- proc~symba_util_append_merger&#45;&gt;util_exit -->
-<g id="proc~~symba_util_append_merger~~CallsGraph_edge2" class="edge">
-<title>proc~symba_util_append_merger&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M128.44,-41.96C145.51,-38.57 164.47,-35.22 182,-33 296.54,-18.51 433.35,-13.97 497.46,-12.59"/>
-<polygon fill="#000000" stroke="#000000" points="497.91,-16.08 507.84,-12.38 497.77,-9.08 497.91,-16.08"/>
+<path fill="none" stroke="#000000" d="M128.44,-41.96C145.51,-38.57 164.47,-35.22 182,-33 292.69,-19 424.18,-14.29 490.75,-12.74"/>
+<polygon fill="#000000" stroke="#000000" points="490.94,-16.24 500.86,-12.52 490.79,-9.24 490.94,-16.24"/>
 </g>
 <!-- proc~symba_util_append_pl -->
 <g id="proc~~symba_util_append_merger~~CallsGraph_node5" class="node">
@@ -364,17 +364,17 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.1,-54C310.42,-54 319.04,-54 327.53,-54"/>
 <polygon fill="#000000" stroke="#000000" points="327.8,-57.5 337.8,-54 327.8,-50.5 327.8,-57.5"/>
 </g>
+<!-- proc~symba_util_append_pl&#45;&gt;util_exit -->
+<g id="proc~~symba_util_append_merger~~CallsGraph_edge5" class="edge">
+<title>proc~symba_util_append_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M437.69,-66.04C456.71,-71.95 479.49,-79.04 498.11,-84.84"/>
+<polygon fill="#000000" stroke="#000000" points="497.12,-88.19 507.71,-87.82 499.2,-81.51 497.12,-88.19"/>
+</g>
 <!-- proc~symba_util_append_pl&#45;&gt;interface~util_append -->
 <g id="proc~~symba_util_append_merger~~CallsGraph_edge7" class="edge">
 <title>proc~symba_util_append_pl&#45;&gt;interface~util_append</title>
-<path fill="none" stroke="#000000" d="M437.69,-66.04C454.36,-71.22 473.92,-77.31 491.04,-82.64"/>
-<polygon fill="#000000" stroke="#000000" points="490.21,-86.04 500.8,-85.67 492.29,-79.36 490.21,-86.04"/>
-</g>
-<!-- proc~symba_util_append_pl&#45;&gt;util_exit -->
-<g id="proc~~symba_util_append_merger~~CallsGraph_edge6" class="edge">
-<title>proc~symba_util_append_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M437.69,-41.96C456.71,-36.05 479.49,-28.96 498.11,-23.16"/>
-<polygon fill="#000000" stroke="#000000" points="499.2,-26.49 507.71,-20.18 497.12,-19.81 499.2,-26.49"/>
+<path fill="none" stroke="#000000" d="M437.69,-41.96C454.36,-36.78 473.92,-30.69 491.04,-25.36"/>
+<polygon fill="#000000" stroke="#000000" points="492.29,-28.64 500.8,-22.33 490.21,-21.96 492.29,-28.64"/>
 </g>
 <!-- util_append_pl -->
 <g id="proc~~symba_util_append_merger~~CallsGraph_node6" class="node">
@@ -383,7 +383,7 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="535" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </g>
 <!-- proc~symba_util_append_pl&#45;&gt;util_append_pl -->
-<g id="proc~~symba_util_append_merger~~CallsGraph_edge5" class="edge">
+<g id="proc~~symba_util_append_merger~~CallsGraph_edge6" class="edge">
 <title>proc~symba_util_append_pl&#45;&gt;util_append_pl</title>
 <path fill="none" stroke="#000000" d="M458.21,-54C466.68,-54 475.33,-54 483.6,-54"/>
 <polygon fill="#000000" stroke="#000000" points="483.85,-57.5 493.85,-54 483.85,-50.5 483.85,-57.5"/>
diff --git a/docs/proc/symba_util_append_pl.html b/docs/proc/symba_util_append_pl.html
index 637f7b66c..afc2d4209 100644
--- a/docs/proc/symba_util_append_pl.html
+++ b/docs/proc/symba_util_append_pl.html
@@ -136,7 +136,7 @@ <h1>symba_util_append_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">26 statements</a>
+    title=" 0.1% of total for procedures.">28 statements</a>
      </li> 
      
      
@@ -270,7 +270,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask~21"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -308,44 +308,44 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="120,-66 0,-66 0,-42 120,-42 120,-66"/>
 <text text-anchor="middle" x="60" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_append_pl</text>
 </g>
-<!-- util_append_pl -->
+<!-- util_exit -->
 <g id="proc~~symba_util_append_pl~~CallsGraph_node2" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="224,-108 170,-108 170,-84 224,-84 224,-108"/>
+<text text-anchor="middle" x="197" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~symba_util_append_pl&#45;&gt;util_exit -->
+<g id="proc~~symba_util_append_pl~~CallsGraph_edge1" class="edge">
+<title>proc~symba_util_append_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M99.69,-66.04C118.71,-71.95 141.49,-79.04 160.11,-84.84"/>
+<polygon fill="#000000" stroke="#000000" points="159.12,-88.19 169.71,-87.82 161.2,-81.51 159.12,-88.19"/>
+</g>
+<!-- util_append_pl -->
+<g id="proc~~symba_util_append_pl~~CallsGraph_node3" class="node">
 <title>util_append_pl</title>
-<polygon fill="#777777" stroke="#777777" points="238,-108 156,-108 156,-84 238,-84 238,-108"/>
-<text text-anchor="middle" x="197" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
+<polygon fill="#777777" stroke="#777777" points="238,-66 156,-66 156,-42 238,-42 238,-66"/>
+<text text-anchor="middle" x="197" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </g>
 <!-- proc~symba_util_append_pl&#45;&gt;util_append_pl -->
-<g id="proc~~symba_util_append_pl~~CallsGraph_edge1" class="edge">
+<g id="proc~~symba_util_append_pl~~CallsGraph_edge2" class="edge">
 <title>proc~symba_util_append_pl&#45;&gt;util_append_pl</title>
-<path fill="none" stroke="#000000" d="M99.69,-66.04C114.65,-70.69 131.95,-76.07 147.72,-80.98"/>
-<polygon fill="#000000" stroke="#000000" points="146.72,-84.33 157.31,-83.96 148.8,-77.65 146.72,-84.33"/>
+<path fill="none" stroke="#000000" d="M120.21,-54C128.68,-54 137.33,-54 145.6,-54"/>
+<polygon fill="#000000" stroke="#000000" points="145.85,-57.5 155.85,-54 145.85,-50.5 145.85,-57.5"/>
 </g>
 <!-- interface~util_append -->
-<g id="proc~~symba_util_append_pl~~CallsGraph_node3" class="node">
+<g id="proc~~symba_util_append_pl~~CallsGraph_node4" class="node">
 <title>interface~util_append</title>
-<g id="a_proc~~symba_util_append_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
-<polygon fill="#a7506f" stroke="#a7506f" points="231,-66 163,-66 163,-42 231,-42 231,-66"/>
-<text text-anchor="middle" x="197" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<g id="a_proc~~symba_util_append_pl~~CallsGraph_node4"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="231,-24 163,-24 163,0 231,0 231,-24"/>
+<text text-anchor="middle" x="197" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_util_append_pl&#45;&gt;interface~util_append -->
 <g id="proc~~symba_util_append_pl~~CallsGraph_edge3" class="edge">
 <title>proc~symba_util_append_pl&#45;&gt;interface~util_append</title>
-<path fill="none" stroke="#000000" d="M120.21,-54C131.16,-54 142.4,-54 152.76,-54"/>
-<polygon fill="#000000" stroke="#000000" points="152.78,-57.5 162.78,-54 152.78,-50.5 152.78,-57.5"/>
-</g>
-<!-- util_exit -->
-<g id="proc~~symba_util_append_pl~~CallsGraph_node4" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="224,-24 170,-24 170,0 224,0 224,-24"/>
-<text text-anchor="middle" x="197" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
-</g>
-<!-- proc~symba_util_append_pl&#45;&gt;util_exit -->
-<g id="proc~~symba_util_append_pl~~CallsGraph_edge2" class="edge">
-<title>proc~symba_util_append_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M99.69,-41.96C118.71,-36.05 141.49,-28.96 160.11,-23.16"/>
-<polygon fill="#000000" stroke="#000000" points="161.2,-26.49 169.71,-20.18 159.12,-19.81 161.2,-26.49"/>
+<path fill="none" stroke="#000000" d="M99.69,-41.96C116.36,-36.78 135.92,-30.69 153.04,-25.36"/>
+<polygon fill="#000000" stroke="#000000" points="154.29,-28.64 162.8,-22.33 152.21,-21.96 154.29,-28.64"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_util_append_tp.html b/docs/proc/symba_util_append_tp.html
index 9f0037be2..9d4150374 100644
--- a/docs/proc/symba_util_append_tp.html
+++ b/docs/proc/symba_util_append_tp.html
@@ -136,7 +136,7 @@ <h1>symba_util_append_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">17 statements</a>
+    title=" 0.0% of total for procedures.">20 statements</a>
      </li> 
      
      
@@ -270,7 +270,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask~23"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -308,44 +308,44 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="121,-66 0,-66 0,-42 121,-42 121,-66"/>
 <text text-anchor="middle" x="60.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_append_tp</text>
 </g>
-<!-- interface~util_append -->
+<!-- util_exit -->
 <g id="proc~~symba_util_append_tp~~CallsGraph_node2" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="225.5,-108 171.5,-108 171.5,-84 225.5,-84 225.5,-108"/>
+<text text-anchor="middle" x="198.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~symba_util_append_tp&#45;&gt;util_exit -->
+<g id="proc~~symba_util_append_tp~~CallsGraph_edge1" class="edge">
+<title>proc~symba_util_append_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M100.47,-66.04C119.77,-71.99 142.9,-79.14 161.74,-84.96"/>
+<polygon fill="#000000" stroke="#000000" points="160.84,-88.34 171.43,-87.95 162.91,-81.65 160.84,-88.34"/>
+</g>
+<!-- interface~util_append -->
+<g id="proc~~symba_util_append_tp~~CallsGraph_node3" class="node">
 <title>interface~util_append</title>
-<g id="a_proc~~symba_util_append_tp~~CallsGraph_node2"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
-<polygon fill="#a7506f" stroke="#a7506f" points="232.5,-108 164.5,-108 164.5,-84 232.5,-84 232.5,-108"/>
-<text text-anchor="middle" x="198.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<g id="a_proc~~symba_util_append_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_append.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="232.5,-66 164.5,-66 164.5,-42 232.5,-42 232.5,-66"/>
+<text text-anchor="middle" x="198.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_util_append_tp&#45;&gt;interface~util_append -->
-<g id="proc~~symba_util_append_tp~~CallsGraph_edge3" class="edge">
+<g id="proc~~symba_util_append_tp~~CallsGraph_edge2" class="edge">
 <title>proc~symba_util_append_tp&#45;&gt;interface~util_append</title>
-<path fill="none" stroke="#000000" d="M100.47,-66.04C117.27,-71.22 136.98,-77.31 154.22,-82.64"/>
-<polygon fill="#000000" stroke="#000000" points="153.47,-86.07 164.06,-85.67 155.53,-79.38 153.47,-86.07"/>
+<path fill="none" stroke="#000000" d="M121.15,-54C132.29,-54 143.72,-54 154.24,-54"/>
+<polygon fill="#000000" stroke="#000000" points="154.42,-57.5 164.42,-54 154.42,-50.5 154.42,-57.5"/>
 </g>
 <!-- util_append_tp -->
-<g id="proc~~symba_util_append_tp~~CallsGraph_node3" class="node">
+<g id="proc~~symba_util_append_tp~~CallsGraph_node4" class="node">
 <title>util_append_tp</title>
-<polygon fill="#777777" stroke="#777777" points="240,-66 157,-66 157,-42 240,-42 240,-66"/>
-<text text-anchor="middle" x="198.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
+<polygon fill="#777777" stroke="#777777" points="240,-24 157,-24 157,0 240,0 240,-24"/>
+<text text-anchor="middle" x="198.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
 </g>
 <!-- proc~symba_util_append_tp&#45;&gt;util_append_tp -->
-<g id="proc~~symba_util_append_tp~~CallsGraph_edge2" class="edge">
+<g id="proc~~symba_util_append_tp~~CallsGraph_edge3" class="edge">
 <title>proc~symba_util_append_tp&#45;&gt;util_append_tp</title>
-<path fill="none" stroke="#000000" d="M121.15,-54C129.58,-54 138.19,-54 146.44,-54"/>
-<polygon fill="#000000" stroke="#000000" points="146.66,-57.5 156.66,-54 146.66,-50.5 146.66,-57.5"/>
-</g>
-<!-- util_exit -->
-<g id="proc~~symba_util_append_tp~~CallsGraph_node4" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="225.5,-24 171.5,-24 171.5,0 225.5,0 225.5,-24"/>
-<text text-anchor="middle" x="198.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
-</g>
-<!-- proc~symba_util_append_tp&#45;&gt;util_exit -->
-<g id="proc~~symba_util_append_tp~~CallsGraph_edge1" class="edge">
-<title>proc~symba_util_append_tp&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M100.47,-41.96C119.77,-36.01 142.9,-28.86 161.74,-23.04"/>
-<polygon fill="#000000" stroke="#000000" points="162.91,-26.35 171.43,-20.05 160.84,-19.66 162.91,-26.35"/>
+<path fill="none" stroke="#000000" d="M100.47,-41.96C115.55,-37.31 132.98,-31.93 148.86,-27.02"/>
+<polygon fill="#000000" stroke="#000000" points="150,-30.33 158.52,-24.04 147.93,-23.64 150,-30.33"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_util_fill_pl.html b/docs/proc/symba_util_fill_pl.html
index 7dfbd8e6d..1ac66568b 100644
--- a/docs/proc/symba_util_fill_pl.html
+++ b/docs/proc/symba_util_fill_pl.html
@@ -307,42 +307,42 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="94,-66 0,-66 0,-42 94,-42 94,-66"/>
 <text text-anchor="middle" x="47" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_fill_pl</text>
 </g>
-<!-- interface~util_fill -->
-<g id="proc~~symba_util_fill_pl~~CallsGraph_node2" class="node">
-<title>interface~util_fill</title>
-<g id="a_proc~~symba_util_fill_pl~~CallsGraph_node2"><a xlink:href=".././interface/util_fill.html" xlink:title="util_fill">
-<polygon fill="#a7506f" stroke="#a7506f" points="185,-108 131,-108 131,-84 185,-84 185,-108"/>
-<text text-anchor="middle" x="158" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
-</a>
-</g>
-</g>
-<!-- proc~symba_util_fill_pl&#45;&gt;interface~util_fill -->
-<g id="proc~~symba_util_fill_pl~~CallsGraph_edge1" class="edge">
-<title>proc~symba_util_fill_pl&#45;&gt;interface~util_fill</title>
-<path fill="none" stroke="#000000" d="M79.24,-66.04C92.4,-71.11 107.79,-77.04 121.39,-82.28"/>
-<polygon fill="#000000" stroke="#000000" points="120.33,-85.62 130.92,-85.95 122.84,-79.09 120.33,-85.62"/>
-</g>
 <!-- util_fill_pl -->
-<g id="proc~~symba_util_fill_pl~~CallsGraph_node3" class="node">
+<g id="proc~~symba_util_fill_pl~~CallsGraph_node2" class="node">
 <title>util_fill_pl</title>
-<polygon fill="#777777" stroke="#777777" points="186,-66 130,-66 130,-42 186,-42 186,-66"/>
-<text text-anchor="middle" x="158" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
+<polygon fill="#777777" stroke="#777777" points="186,-108 130,-108 130,-84 186,-84 186,-108"/>
+<text text-anchor="middle" x="158" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
 </g>
 <!-- proc~symba_util_fill_pl&#45;&gt;util_fill_pl -->
-<g id="proc~~symba_util_fill_pl~~CallsGraph_edge2" class="edge">
+<g id="proc~~symba_util_fill_pl~~CallsGraph_edge1" class="edge">
 <title>proc~symba_util_fill_pl&#45;&gt;util_fill_pl</title>
-<path fill="none" stroke="#000000" d="M94.23,-54C102.79,-54 111.64,-54 119.89,-54"/>
-<polygon fill="#000000" stroke="#000000" points="119.96,-57.5 129.96,-54 119.96,-50.5 119.96,-57.5"/>
+<path fill="none" stroke="#000000" d="M79.24,-66.04C92.09,-70.99 107.08,-76.76 120.44,-81.91"/>
+<polygon fill="#000000" stroke="#000000" points="119.24,-85.2 129.83,-85.53 121.76,-78.67 119.24,-85.2"/>
 </g>
 <!-- util_exit -->
-<g id="proc~~symba_util_fill_pl~~CallsGraph_node4" class="node">
+<g id="proc~~symba_util_fill_pl~~CallsGraph_node3" class="node">
 <title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="185,-24 131,-24 131,0 185,0 185,-24"/>
-<text text-anchor="middle" x="158" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#777777" stroke="#777777" points="185,-66 131,-66 131,-42 185,-42 185,-66"/>
+<text text-anchor="middle" x="158" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
 <!-- proc~symba_util_fill_pl&#45;&gt;util_exit -->
-<g id="proc~~symba_util_fill_pl~~CallsGraph_edge3" class="edge">
+<g id="proc~~symba_util_fill_pl~~CallsGraph_edge2" class="edge">
 <title>proc~symba_util_fill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M94.23,-54C103.14,-54 112.35,-54 120.88,-54"/>
+<polygon fill="#000000" stroke="#000000" points="120.88,-57.5 130.88,-54 120.88,-50.5 120.88,-57.5"/>
+</g>
+<!-- interface~util_fill -->
+<g id="proc~~symba_util_fill_pl~~CallsGraph_node4" class="node">
+<title>interface~util_fill</title>
+<g id="a_proc~~symba_util_fill_pl~~CallsGraph_node4"><a xlink:href=".././interface/util_fill.html" xlink:title="util_fill">
+<polygon fill="#a7506f" stroke="#a7506f" points="185,-24 131,-24 131,0 185,0 185,-24"/>
+<text text-anchor="middle" x="158" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_fill_pl&#45;&gt;interface~util_fill -->
+<g id="proc~~symba_util_fill_pl~~CallsGraph_edge3" class="edge">
+<title>proc~symba_util_fill_pl&#45;&gt;interface~util_fill</title>
 <path fill="none" stroke="#000000" d="M79.24,-41.96C92.4,-36.89 107.79,-30.96 121.39,-25.72"/>
 <polygon fill="#000000" stroke="#000000" points="122.84,-28.91 130.92,-22.05 120.33,-22.38 122.84,-28.91"/>
 </g>
diff --git a/docs/proc/symba_util_fill_tp.html b/docs/proc/symba_util_fill_tp.html
index b48ae1307..064adf4e8 100644
--- a/docs/proc/symba_util_fill_tp.html
+++ b/docs/proc/symba_util_fill_tp.html
@@ -136,7 +136,7 @@ <h1>symba_util_fill_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">19 statements</a>
+    title=" 0.0% of total for procedures.">20 statements</a>
      </li> 
      
      
@@ -307,42 +307,42 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="94,-66 0,-66 0,-42 94,-42 94,-66"/>
 <text text-anchor="middle" x="47" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_fill_tp</text>
 </g>
-<!-- interface~util_fill -->
-<g id="proc~~symba_util_fill_tp~~CallsGraph_node2" class="node">
-<title>interface~util_fill</title>
-<g id="a_proc~~symba_util_fill_tp~~CallsGraph_node2"><a xlink:href=".././interface/util_fill.html" xlink:title="util_fill">
-<polygon fill="#a7506f" stroke="#a7506f" points="185.5,-108 131.5,-108 131.5,-84 185.5,-84 185.5,-108"/>
-<text text-anchor="middle" x="158.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
-</a>
-</g>
-</g>
-<!-- proc~symba_util_fill_tp&#45;&gt;interface~util_fill -->
-<g id="proc~~symba_util_fill_tp~~CallsGraph_edge1" class="edge">
-<title>proc~symba_util_fill_tp&#45;&gt;interface~util_fill</title>
-<path fill="none" stroke="#000000" d="M79.38,-66.04C92.6,-71.11 108.06,-77.04 121.72,-82.28"/>
-<polygon fill="#000000" stroke="#000000" points="120.71,-85.64 131.3,-85.95 123.21,-79.1 120.71,-85.64"/>
-</g>
 <!-- util_fill_tp -->
-<g id="proc~~symba_util_fill_tp~~CallsGraph_node3" class="node">
+<g id="proc~~symba_util_fill_tp~~CallsGraph_node2" class="node">
 <title>util_fill_tp</title>
-<polygon fill="#777777" stroke="#777777" points="187,-66 130,-66 130,-42 187,-42 187,-66"/>
-<text text-anchor="middle" x="158.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
+<polygon fill="#777777" stroke="#777777" points="187,-108 130,-108 130,-84 187,-84 187,-108"/>
+<text text-anchor="middle" x="158.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
 </g>
 <!-- proc~symba_util_fill_tp&#45;&gt;util_fill_tp -->
-<g id="proc~~symba_util_fill_tp~~CallsGraph_edge2" class="edge">
+<g id="proc~~symba_util_fill_tp~~CallsGraph_edge1" class="edge">
 <title>proc~symba_util_fill_tp&#45;&gt;util_fill_tp</title>
-<path fill="none" stroke="#000000" d="M94.12,-54C102.67,-54 111.5,-54 119.77,-54"/>
-<polygon fill="#000000" stroke="#000000" points="119.86,-57.5 129.86,-54 119.86,-50.5 119.86,-57.5"/>
+<path fill="none" stroke="#000000" d="M79.38,-66.04C92.19,-70.95 107.11,-76.67 120.46,-81.79"/>
+<polygon fill="#000000" stroke="#000000" points="119.25,-85.08 129.84,-85.39 121.76,-78.54 119.25,-85.08"/>
 </g>
 <!-- util_exit -->
-<g id="proc~~symba_util_fill_tp~~CallsGraph_node4" class="node">
+<g id="proc~~symba_util_fill_tp~~CallsGraph_node3" class="node">
 <title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="185.5,-24 131.5,-24 131.5,0 185.5,0 185.5,-24"/>
-<text text-anchor="middle" x="158.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#777777" stroke="#777777" points="185.5,-66 131.5,-66 131.5,-42 185.5,-42 185.5,-66"/>
+<text text-anchor="middle" x="158.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
 <!-- proc~symba_util_fill_tp&#45;&gt;util_exit -->
-<g id="proc~~symba_util_fill_tp~~CallsGraph_edge3" class="edge">
+<g id="proc~~symba_util_fill_tp~~CallsGraph_edge2" class="edge">
 <title>proc~symba_util_fill_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M94.12,-54C103.18,-54 112.56,-54 121.24,-54"/>
+<polygon fill="#000000" stroke="#000000" points="121.41,-57.5 131.41,-54 121.41,-50.5 121.41,-57.5"/>
+</g>
+<!-- interface~util_fill -->
+<g id="proc~~symba_util_fill_tp~~CallsGraph_node4" class="node">
+<title>interface~util_fill</title>
+<g id="a_proc~~symba_util_fill_tp~~CallsGraph_node4"><a xlink:href=".././interface/util_fill.html" xlink:title="util_fill">
+<polygon fill="#a7506f" stroke="#a7506f" points="185.5,-24 131.5,-24 131.5,0 185.5,0 185.5,-24"/>
+<text text-anchor="middle" x="158.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_fill_tp&#45;&gt;interface~util_fill -->
+<g id="proc~~symba_util_fill_tp~~CallsGraph_edge3" class="edge">
+<title>proc~symba_util_fill_tp&#45;&gt;interface~util_fill</title>
 <path fill="none" stroke="#000000" d="M79.38,-41.96C92.6,-36.89 108.06,-30.96 121.72,-25.72"/>
 <polygon fill="#000000" stroke="#000000" points="123.21,-28.9 131.3,-22.05 120.71,-22.36 123.21,-28.9"/>
 </g>
diff --git a/docs/proc/symba_util_peri_pl.html b/docs/proc/symba_util_peri_pl.html
index 56a2380f4..516393b0f 100644
--- a/docs/proc/symba_util_peri_pl.html
+++ b/docs/proc/symba_util_peri_pl.html
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~92"></span>class(swiftest_nbody_system),</td>
+  <td><span class="anchor" id="variable-system~96"></span>class(swiftest_nbody_system),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~177"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~181"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_util_rearray_pl.html b/docs/proc/symba_util_rearray_pl.html
index abd1cd1db..c9c771a83 100644
--- a/docs/proc/symba_util_rearray_pl.html
+++ b/docs/proc/symba_util_rearray_pl.html
@@ -136,7 +136,7 @@ <h1>symba_util_rearray_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">21 statements</a>
+    title=" 0.1% of total for procedures.">30 statements</a>
      </li> 
      
      
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~93"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~97"></span>class(<a href='../type/symba_nbody_system.html'>symba_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -266,7 +266,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~178"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~182"></span>class(<a href='../type/symba_parameters.html'>symba_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -284,6 +284,134 @@ <h3>Arguments</h3>
     <br>
     
     
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">Calls</h3>
+      </div>
+      <div class="panel-body">
+  <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.47.1 (20210417.1919)
+ -->
+<!-- Title: proc~~symba_util_rearray_pl~~CallsGraph Pages: 1 -->
+<svg id="procsymba_util_rearray_plCallsGraph" width="598pt" height="32pt"
+ viewBox="0.00 0.00 598.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~symba_util_rearray_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~symba_util_rearray_pl~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 594,-28 594,4 -4,4"/>
+<!-- proc~symba_util_rearray_pl -->
+<g id="proc~~symba_util_rearray_pl~~CallsGraph_node1" class="node">
+<title>proc~symba_util_rearray_pl</title>
+<polygon fill="none" stroke="black" points="118,-24 0,-24 0,0 118,0 118,-24"/>
+<text text-anchor="middle" x="59" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_rearray_pl</text>
+</g>
+<!-- interface~symba_io_dump_particle_info -->
+<g id="proc~~symba_util_rearray_pl~~CallsGraph_node2" class="node">
+<title>interface~symba_io_dump_particle_info</title>
+<g id="a_proc~~symba_util_rearray_pl~~CallsGraph_node2"><a xlink:href=".././interface/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
+<polygon fill="#a7506f" stroke="#a7506f" points="309,-24 154,-24 154,0 309,0 309,-24"/>
+<text text-anchor="middle" x="231.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_rearray_pl&#45;&gt;interface~symba_io_dump_particle_info -->
+<g id="proc~~symba_util_rearray_pl~~CallsGraph_edge1" class="edge">
+<title>proc~symba_util_rearray_pl&#45;&gt;interface~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" d="M118.2,-12C126.45,-12 135.08,-12 143.73,-12"/>
+<polygon fill="#000000" stroke="#000000" points="143.87,-15.5 153.87,-12 143.87,-8.5 143.87,-15.5"/>
+</g>
+<!-- proc~symba_io_dump_particle_info -->
+<g id="proc~~symba_util_rearray_pl~~CallsGraph_node3" class="node">
+<title>proc~symba_io_dump_particle_info</title>
+<g id="a_proc~~symba_util_rearray_pl~~CallsGraph_node3"><a xlink:href=".././proc/symba_io_dump_particle_info.html" xlink:title="symba_io_dump_particle_info">
+<polygon fill="#d9534f" stroke="#d9534f" points="500,-24 345,-24 345,0 500,0 500,-24"/>
+<text text-anchor="middle" x="422.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_dump_particle_info</text>
+</a>
+</g>
+</g>
+<!-- interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info -->
+<g id="proc~~symba_util_rearray_pl~~CallsGraph_edge2" class="edge">
+<title>interface~symba_io_dump_particle_info&#45;&gt;proc~symba_io_dump_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M309.1,-12C317.56,-12 326.22,-12 334.79,-12"/>
+<polygon fill="#000000" stroke="#000000" points="334.79,-15.5 344.79,-12 334.79,-8.5 334.79,-15.5"/>
+</g>
+<!-- util_exit -->
+<g id="proc~~symba_util_rearray_pl~~CallsGraph_node4" class="node">
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="590,-24 536,-24 536,0 590,0 590,-24"/>
+<text text-anchor="middle" x="563" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+</g>
+<!-- proc~symba_io_dump_particle_info&#45;&gt;util_exit -->
+<g id="proc~~symba_util_rearray_pl~~CallsGraph_edge3" class="edge">
+<title>proc~symba_io_dump_particle_info&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M500.04,-12C509,-12 517.8,-12 525.82,-12"/>
+<polygon fill="#000000" stroke="#000000" points="525.87,-15.5 535.87,-12 525.87,-8.5 525.87,-15.5"/>
+</g>
+</g>
+</svg>
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?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.47.1 (20210417.1919)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="560pt" height="32pt"
+ viewBox="0.00 0.00 559.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)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
+<!-- Subroutine -->
+<g id="node1" class="node">
+<title>Subroutine</title>
+<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
+<text text-anchor="middle" x="32" y="-9.6" 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="136,-24 82,-24 82,0 136,0 136,-24"/>
+<text text-anchor="middle" x="109" y="-9.6" 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="209.5,-24 154.5,-24 154.5,0 209.5,0 209.5,-24"/>
+<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
+</g>
+<!-- Unknown Procedure Type -->
+<g id="node4" class="node">
+<title>Unknown Procedure Type</title>
+<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,0 364,0 364,-24"/>
+<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
+</g>
+<!-- Program -->
+<g id="node5" class="node">
+<title>Program</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,0 436,0 436,-24"/>
+<text text-anchor="middle" x="409" y="-9.6" 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="551.5,-24 454.5,-24 454.5,0 551.5,0 551.5,-24"/>
+<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a procedure to one which it calls. Dashed 
+    arrows point from an interface to procedures which implement that interface.
+    This could include the module procedures in a generic interface or the
+    implementation in a submodule of an interface in a parent module.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+     
      
     <div class="panel panel-default">
       <div class="panel-heading">
diff --git a/docs/proc/symba_util_resize_merger.html b/docs/proc/symba_util_resize_merger.html
index 9e038fb07..45579704e 100644
--- a/docs/proc/symba_util_resize_merger.html
+++ b/docs/proc/symba_util_resize_merger.html
@@ -288,71 +288,71 @@ <h3 class="panel-title">Calls</h3>
 <!-- proc~symba_util_resize_merger -->
 <g id="proc~~symba_util_resize_merger~~CallsGraph_node1" class="node">
 <title>proc~symba_util_resize_merger</title>
-<polygon fill="none" stroke="black" points="139,-44 0,-44 0,-20 139,-20 139,-44"/>
-<text text-anchor="middle" x="69.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_resize_merger</text>
+<polygon fill="none" stroke="black" points="139,-46 0,-46 0,-22 139,-22 139,-46"/>
+<text text-anchor="middle" x="69.5" y="-31.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_resize_merger</text>
 </g>
-<!-- interface~symba_util_resize_pl -->
+<!-- interface~util_resize -->
 <g id="proc~~symba_util_resize_merger~~CallsGraph_node2" class="node">
-<title>interface~symba_util_resize_pl</title>
-<g id="a_proc~~symba_util_resize_merger~~CallsGraph_node2"><a xlink:href=".././interface/symba_util_resize_pl.html" xlink:title="symba_util_resize_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="287,-64 175,-64 175,-40 287,-40 287,-64"/>
-<text text-anchor="middle" x="231" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_pl</text>
+<title>interface~util_resize</title>
+<g id="a_proc~~symba_util_resize_merger~~CallsGraph_node2"><a xlink:href=".././interface/util_resize.html" xlink:title="util_resize">
+<polygon fill="#a7506f" stroke="#a7506f" points="539,-66 478,-66 478,-42 539,-42 539,-66"/>
+<text text-anchor="middle" x="508.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_resize_merger&#45;&gt;interface~symba_util_resize_pl -->
+<!-- proc~symba_util_resize_merger&#45;&gt;interface~util_resize -->
 <g id="proc~~symba_util_resize_merger~~CallsGraph_edge1" class="edge">
-<title>proc~symba_util_resize_merger&#45;&gt;interface~symba_util_resize_pl</title>
-<path fill="none" stroke="#000000" d="M139.07,-40.6C147.59,-41.67 156.29,-42.76 164.76,-43.82"/>
-<polygon fill="#000000" stroke="#000000" points="164.6,-47.33 174.96,-45.1 165.47,-40.38 164.6,-47.33"/>
+<title>proc~symba_util_resize_merger&#45;&gt;interface~util_resize</title>
+<path fill="none" stroke="#000000" d="M139.26,-37.15C231.7,-41.38 393.04,-48.76 467.61,-52.17"/>
+<polygon fill="#000000" stroke="#000000" points="467.82,-55.69 477.96,-52.65 468.14,-48.69 467.82,-55.69"/>
 </g>
-<!-- interface~util_resize -->
+<!-- interface~symba_util_resize_pl -->
 <g id="proc~~symba_util_resize_merger~~CallsGraph_node3" class="node">
-<title>interface~util_resize</title>
-<g id="a_proc~~symba_util_resize_merger~~CallsGraph_node3"><a xlink:href=".././interface/util_resize.html" xlink:title="util_resize">
-<polygon fill="#a7506f" stroke="#a7506f" points="539,-24 478,-24 478,0 539,0 539,-24"/>
-<text text-anchor="middle" x="508.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<title>interface~symba_util_resize_pl</title>
+<g id="a_proc~~symba_util_resize_merger~~CallsGraph_node3"><a xlink:href=".././interface/symba_util_resize_pl.html" xlink:title="symba_util_resize_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="287,-26 175,-26 175,-2 287,-2 287,-26"/>
+<text text-anchor="middle" x="231" y="-11.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~symba_util_resize_merger&#45;&gt;interface~util_resize -->
+<!-- proc~symba_util_resize_merger&#45;&gt;interface~symba_util_resize_pl -->
 <g id="proc~~symba_util_resize_merger~~CallsGraph_edge2" class="edge">
-<title>proc~symba_util_resize_merger&#45;&gt;interface~util_resize</title>
-<path fill="none" stroke="#000000" d="M139.26,-28.85C231.7,-24.62 393.04,-17.24 467.61,-13.83"/>
-<polygon fill="#000000" stroke="#000000" points="468.14,-17.31 477.96,-13.35 467.82,-10.31 468.14,-17.31"/>
+<title>proc~symba_util_resize_merger&#45;&gt;interface~symba_util_resize_pl</title>
+<path fill="none" stroke="#000000" d="M139.07,-25.4C147.59,-24.33 156.29,-23.24 164.76,-22.18"/>
+<polygon fill="#000000" stroke="#000000" points="165.47,-25.62 174.96,-20.9 164.6,-18.67 165.47,-25.62"/>
 </g>
 <!-- proc~symba_util_resize_pl -->
 <g id="proc~~symba_util_resize_merger~~CallsGraph_node4" class="node">
 <title>proc~symba_util_resize_pl</title>
 <g id="a_proc~~symba_util_resize_merger~~CallsGraph_node4"><a xlink:href=".././proc/symba_util_resize_pl.html" xlink:title="symba_util_resize_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="435,-64 323,-64 323,-40 435,-40 435,-64"/>
-<text text-anchor="middle" x="379" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_pl</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="435,-26 323,-26 323,-2 435,-2 435,-26"/>
+<text text-anchor="middle" x="379" y="-11.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util_resize_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~symba_util_resize_pl&#45;&gt;proc~symba_util_resize_pl -->
 <g id="proc~~symba_util_resize_merger~~CallsGraph_edge3" class="edge">
 <title>interface~symba_util_resize_pl&#45;&gt;proc~symba_util_resize_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.2,-52C295.46,-52 304.05,-52 312.51,-52"/>
-<polygon fill="#000000" stroke="#000000" points="312.73,-55.5 322.73,-52 312.73,-48.5 312.73,-55.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.2,-14C295.46,-14 304.05,-14 312.51,-14"/>
+<polygon fill="#000000" stroke="#000000" points="312.73,-17.5 322.73,-14 312.73,-10.5 312.73,-17.5"/>
 </g>
 <!-- proc~symba_util_resize_pl&#45;&gt;interface~util_resize -->
-<g id="proc~~symba_util_resize_merger~~CallsGraph_edge5" class="edge">
+<g id="proc~~symba_util_resize_merger~~CallsGraph_edge4" class="edge">
 <title>proc~symba_util_resize_pl&#45;&gt;interface~util_resize</title>
-<path fill="none" stroke="#000000" d="M418.25,-40C434.05,-35.04 452.34,-29.3 468.24,-24.32"/>
-<polygon fill="#000000" stroke="#000000" points="469.29,-27.66 477.78,-21.32 467.19,-20.98 469.29,-27.66"/>
+<path fill="none" stroke="#000000" d="M418.25,-26C434.05,-30.96 452.34,-36.7 468.24,-41.68"/>
+<polygon fill="#000000" stroke="#000000" points="467.19,-45.02 477.78,-44.68 469.29,-38.34 467.19,-45.02"/>
 </g>
 <!-- util_resize_pl -->
 <g id="proc~~symba_util_resize_merger~~CallsGraph_node5" class="node">
 <title>util_resize_pl</title>
-<polygon fill="#777777" stroke="#777777" points="546,-66 471,-66 471,-42 546,-42 546,-66"/>
-<text text-anchor="middle" x="508.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
+<polygon fill="#777777" stroke="#777777" points="546,-24 471,-24 471,0 546,0 546,-24"/>
+<text text-anchor="middle" x="508.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
 </g>
 <!-- proc~symba_util_resize_pl&#45;&gt;util_resize_pl -->
-<g id="proc~~symba_util_resize_merger~~CallsGraph_edge4" class="edge">
+<g id="proc~~symba_util_resize_merger~~CallsGraph_edge5" class="edge">
 <title>proc~symba_util_resize_pl&#45;&gt;util_resize_pl</title>
-<path fill="none" stroke="#000000" d="M435.18,-52.87C443.7,-53 452.43,-53.14 460.74,-53.27"/>
-<polygon fill="#000000" stroke="#000000" points="460.94,-56.77 470.99,-53.43 461.05,-49.77 460.94,-56.77"/>
+<path fill="none" stroke="#000000" d="M435.18,-13.13C443.7,-13 452.43,-12.86 460.74,-12.73"/>
+<polygon fill="#000000" stroke="#000000" points="461.05,-16.23 470.99,-12.57 460.94,-9.23 461.05,-16.23"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_util_resize_pl.html b/docs/proc/symba_util_resize_pl.html
index 42ba29f33..2abe19bf0 100644
--- a/docs/proc/symba_util_resize_pl.html
+++ b/docs/proc/symba_util_resize_pl.html
@@ -291,32 +291,32 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="112,-45 0,-45 0,-21 112,-21 112,-45"/>
 <text text-anchor="middle" x="56" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_resize_pl</text>
 </g>
-<!-- util_resize_pl -->
-<g id="proc~~symba_util_resize_pl~~CallsGraph_node2" class="node">
-<title>util_resize_pl</title>
-<polygon fill="#777777" stroke="#777777" points="223,-66 148,-66 148,-42 223,-42 223,-66"/>
-<text text-anchor="middle" x="185.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
-</g>
-<!-- proc~symba_util_resize_pl&#45;&gt;util_resize_pl -->
-<g id="proc~~symba_util_resize_pl~~CallsGraph_edge1" class="edge">
-<title>proc~symba_util_resize_pl&#45;&gt;util_resize_pl</title>
-<path fill="none" stroke="#000000" d="M112.18,-42.09C120.79,-43.51 129.62,-44.96 138.01,-46.34"/>
-<polygon fill="#000000" stroke="#000000" points="137.56,-49.82 147.99,-47.99 138.69,-42.91 137.56,-49.82"/>
-</g>
 <!-- interface~util_resize -->
-<g id="proc~~symba_util_resize_pl~~CallsGraph_node3" class="node">
+<g id="proc~~symba_util_resize_pl~~CallsGraph_node2" class="node">
 <title>interface~util_resize</title>
-<g id="a_proc~~symba_util_resize_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_resize.html" xlink:title="util_resize">
-<polygon fill="#a7506f" stroke="#a7506f" points="216,-24 155,-24 155,0 216,0 216,-24"/>
-<text text-anchor="middle" x="185.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<g id="a_proc~~symba_util_resize_pl~~CallsGraph_node2"><a xlink:href=".././interface/util_resize.html" xlink:title="util_resize">
+<polygon fill="#a7506f" stroke="#a7506f" points="216,-66 155,-66 155,-42 216,-42 216,-66"/>
+<text text-anchor="middle" x="185.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_util_resize_pl&#45;&gt;interface~util_resize -->
-<g id="proc~~symba_util_resize_pl~~CallsGraph_edge2" class="edge">
+<g id="proc~~symba_util_resize_pl~~CallsGraph_edge1" class="edge">
 <title>proc~symba_util_resize_pl&#45;&gt;interface~util_resize</title>
-<path fill="none" stroke="#000000" d="M112.18,-23.91C123.19,-22.1 134.54,-20.23 144.89,-18.52"/>
-<polygon fill="#000000" stroke="#000000" points="145.56,-21.96 154.86,-16.88 144.43,-15.05 145.56,-21.96"/>
+<path fill="none" stroke="#000000" d="M112.18,-42.09C123.19,-43.9 134.54,-45.77 144.89,-47.48"/>
+<polygon fill="#000000" stroke="#000000" points="144.43,-50.95 154.86,-49.12 145.56,-44.04 144.43,-50.95"/>
+</g>
+<!-- util_resize_pl -->
+<g id="proc~~symba_util_resize_pl~~CallsGraph_node3" class="node">
+<title>util_resize_pl</title>
+<polygon fill="#777777" stroke="#777777" points="223,-24 148,-24 148,0 223,0 223,-24"/>
+<text text-anchor="middle" x="185.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
+</g>
+<!-- proc~symba_util_resize_pl&#45;&gt;util_resize_pl -->
+<g id="proc~~symba_util_resize_pl~~CallsGraph_edge2" class="edge">
+<title>proc~symba_util_resize_pl&#45;&gt;util_resize_pl</title>
+<path fill="none" stroke="#000000" d="M112.18,-23.91C120.79,-22.49 129.62,-21.04 138.01,-19.66"/>
+<polygon fill="#000000" stroke="#000000" points="138.69,-23.09 147.99,-18.01 137.56,-16.18 138.69,-23.09"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_util_resize_tp.html b/docs/proc/symba_util_resize_tp.html
index add3fd6e8..e27da80ad 100644
--- a/docs/proc/symba_util_resize_tp.html
+++ b/docs/proc/symba_util_resize_tp.html
@@ -136,7 +136,7 @@ <h1>symba_util_resize_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">10 statements</a>
+    title=" 0.0% of total for procedures.">11 statements</a>
      </li> 
      
      
@@ -291,32 +291,32 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="113,-45 0,-45 0,-21 113,-21 113,-45"/>
 <text text-anchor="middle" x="56.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_resize_tp</text>
 </g>
-<!-- util_resize_tp -->
-<g id="proc~~symba_util_resize_tp~~CallsGraph_node2" class="node">
-<title>util_resize_tp</title>
-<polygon fill="#777777" stroke="#777777" points="225,-66 149,-66 149,-42 225,-42 225,-66"/>
-<text text-anchor="middle" x="187" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
-</g>
-<!-- proc~symba_util_resize_tp&#45;&gt;util_resize_tp -->
-<g id="proc~~symba_util_resize_tp~~CallsGraph_edge1" class="edge">
-<title>proc~symba_util_resize_tp&#45;&gt;util_resize_tp</title>
-<path fill="none" stroke="#000000" d="M113.11,-42.09C121.7,-43.49 130.49,-44.93 138.87,-46.3"/>
-<polygon fill="#000000" stroke="#000000" points="138.4,-49.77 148.83,-47.93 139.53,-42.86 138.4,-49.77"/>
-</g>
 <!-- interface~util_resize -->
-<g id="proc~~symba_util_resize_tp~~CallsGraph_node3" class="node">
+<g id="proc~~symba_util_resize_tp~~CallsGraph_node2" class="node">
 <title>interface~util_resize</title>
-<g id="a_proc~~symba_util_resize_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_resize.html" xlink:title="util_resize">
-<polygon fill="#a7506f" stroke="#a7506f" points="217.5,-24 156.5,-24 156.5,0 217.5,0 217.5,-24"/>
-<text text-anchor="middle" x="187" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
+<g id="a_proc~~symba_util_resize_tp~~CallsGraph_node2"><a xlink:href=".././interface/util_resize.html" xlink:title="util_resize">
+<polygon fill="#a7506f" stroke="#a7506f" points="217.5,-66 156.5,-66 156.5,-42 217.5,-42 217.5,-66"/>
+<text text-anchor="middle" x="187" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize</text>
 </a>
 </g>
 </g>
 <!-- proc~symba_util_resize_tp&#45;&gt;interface~util_resize -->
-<g id="proc~~symba_util_resize_tp~~CallsGraph_edge2" class="edge">
+<g id="proc~~symba_util_resize_tp~~CallsGraph_edge1" class="edge">
 <title>proc~symba_util_resize_tp&#45;&gt;interface~util_resize</title>
-<path fill="none" stroke="#000000" d="M113.11,-23.91C124.31,-22.08 135.85,-20.2 146.37,-18.48"/>
-<polygon fill="#000000" stroke="#000000" points="147.18,-21.89 156.48,-16.82 146.05,-14.98 147.18,-21.89"/>
+<path fill="none" stroke="#000000" d="M113.11,-42.09C124.31,-43.92 135.85,-45.8 146.37,-47.52"/>
+<polygon fill="#000000" stroke="#000000" points="146.05,-51.02 156.48,-49.18 147.18,-44.11 146.05,-51.02"/>
+</g>
+<!-- util_resize_tp -->
+<g id="proc~~symba_util_resize_tp~~CallsGraph_node3" class="node">
+<title>util_resize_tp</title>
+<polygon fill="#777777" stroke="#777777" points="225,-24 149,-24 149,0 225,0 225,-24"/>
+<text text-anchor="middle" x="187" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
+</g>
+<!-- proc~symba_util_resize_tp&#45;&gt;util_resize_tp -->
+<g id="proc~~symba_util_resize_tp~~CallsGraph_edge2" class="edge">
+<title>proc~symba_util_resize_tp&#45;&gt;util_resize_tp</title>
+<path fill="none" stroke="#000000" d="M113.11,-23.91C121.7,-22.51 130.49,-21.07 138.87,-19.7"/>
+<polygon fill="#000000" stroke="#000000" points="139.53,-23.14 148.83,-18.07 138.4,-16.23 139.53,-23.14"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/symba_util_sort_rearrange_tp.html b/docs/proc/symba_util_sort_rearrange_tp.html
index 9c31a38e0..7a75ce0ad 100644
--- a/docs/proc/symba_util_sort_rearrange_tp.html
+++ b/docs/proc/symba_util_sort_rearrange_tp.html
@@ -136,7 +136,7 @@ <h1>symba_util_sort_rearrange_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">15 statements</a>
+    title=" 0.0% of total for procedures.">16 statements</a>
      </li> 
      
      
diff --git a/docs/proc/symba_util_spill_pl.html b/docs/proc/symba_util_spill_pl.html
index 5bd9c96db..6e7f6951c 100644
--- a/docs/proc/symba_util_spill_pl.html
+++ b/docs/proc/symba_util_spill_pl.html
@@ -323,18 +323,15 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="102,-66 0,-66 0,-42 102,-42 102,-66"/>
 <text text-anchor="middle" x="51" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_spill_pl</text>
 </g>
-<!-- interface~util_spill -->
+<!-- util_exit -->
 <g id="proc~~symba_util_spill_pl~~CallsGraph_node2" class="node">
-<title>interface~util_spill</title>
-<g id="a_proc~~symba_util_spill_pl~~CallsGraph_node2"><a xlink:href=".././interface/util_spill.html" xlink:title="util_spill">
-<polygon fill="#a7506f" stroke="#a7506f" points="197,-108 143,-108 143,-84 197,-84 197,-108"/>
-<text text-anchor="middle" x="170" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
-</a>
-</g>
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="197,-108 143,-108 143,-84 197,-84 197,-108"/>
+<text text-anchor="middle" x="170" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~symba_util_spill_pl&#45;&gt;interface~util_spill -->
+<!-- proc~symba_util_spill_pl&#45;&gt;util_exit -->
 <g id="proc~~symba_util_spill_pl~~CallsGraph_edge1" class="edge">
-<title>proc~symba_util_spill_pl&#45;&gt;interface~util_spill</title>
+<title>proc~symba_util_spill_pl&#45;&gt;util_exit</title>
 <path fill="none" stroke="#000000" d="M85.53,-66.04C100.48,-71.4 118.12,-77.74 133.32,-83.19"/>
 <polygon fill="#000000" stroke="#000000" points="132.31,-86.55 142.9,-86.63 134.67,-79.96 132.31,-86.55"/>
 </g>
@@ -345,20 +342,23 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="170" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
 </g>
 <!-- proc~symba_util_spill_pl&#45;&gt;util_spill_pl -->
-<g id="proc~~symba_util_spill_pl~~CallsGraph_edge3" class="edge">
+<g id="proc~~symba_util_spill_pl~~CallsGraph_edge2" class="edge">
 <title>proc~symba_util_spill_pl&#45;&gt;util_spill_pl</title>
 <path fill="none" stroke="#000000" d="M102.3,-54C110.75,-54 119.43,-54 127.62,-54"/>
 <polygon fill="#000000" stroke="#000000" points="127.68,-57.5 137.67,-54 127.67,-50.5 127.68,-57.5"/>
 </g>
-<!-- util_exit -->
+<!-- interface~util_spill -->
 <g id="proc~~symba_util_spill_pl~~CallsGraph_node4" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="197,-24 143,-24 143,0 197,0 197,-24"/>
-<text text-anchor="middle" x="170" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<title>interface~util_spill</title>
+<g id="a_proc~~symba_util_spill_pl~~CallsGraph_node4"><a xlink:href=".././interface/util_spill.html" xlink:title="util_spill">
+<polygon fill="#a7506f" stroke="#a7506f" points="197,-24 143,-24 143,0 197,0 197,-24"/>
+<text text-anchor="middle" x="170" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+</a>
 </g>
-<!-- proc~symba_util_spill_pl&#45;&gt;util_exit -->
-<g id="proc~~symba_util_spill_pl~~CallsGraph_edge2" class="edge">
-<title>proc~symba_util_spill_pl&#45;&gt;util_exit</title>
+</g>
+<!-- proc~symba_util_spill_pl&#45;&gt;interface~util_spill -->
+<g id="proc~~symba_util_spill_pl~~CallsGraph_edge3" class="edge">
+<title>proc~symba_util_spill_pl&#45;&gt;interface~util_spill</title>
 <path fill="none" stroke="#000000" d="M85.53,-41.96C100.48,-36.6 118.12,-30.26 133.32,-24.81"/>
 <polygon fill="#000000" stroke="#000000" points="134.67,-28.04 142.9,-21.37 132.31,-21.45 134.67,-28.04"/>
 </g>
diff --git a/docs/proc/symba_util_spill_pltpenc.html b/docs/proc/symba_util_spill_pltpenc.html
index 0d2239b67..3165727ac 100644
--- a/docs/proc/symba_util_spill_pltpenc.html
+++ b/docs/proc/symba_util_spill_pltpenc.html
@@ -322,42 +322,42 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="128,-66 0,-66 0,-42 128,-42 128,-66"/>
 <text text-anchor="middle" x="64" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_spill_pltpenc</text>
 </g>
-<!-- interface~util_spill -->
-<g id="proc~~symba_util_spill_pltpenc~~CallsGraph_node2" class="node">
-<title>interface~util_spill</title>
-<g id="a_proc~~symba_util_spill_pltpenc~~CallsGraph_node2"><a xlink:href=".././interface/util_spill.html" xlink:title="util_spill">
-<polygon fill="#a7506f" stroke="#a7506f" points="243,-108 189,-108 189,-84 243,-84 243,-108"/>
-<text text-anchor="middle" x="216" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
-</a>
-</g>
-</g>
-<!-- proc~symba_util_spill_pltpenc&#45;&gt;interface~util_spill -->
-<g id="proc~~symba_util_spill_pltpenc~~CallsGraph_edge1" class="edge">
-<title>proc~symba_util_spill_pltpenc&#45;&gt;interface~util_spill</title>
-<path fill="none" stroke="#000000" d="M107.98,-66.04C130.55,-72.36 157.89,-80.01 179.28,-86"/>
-<polygon fill="#000000" stroke="#000000" points="178.38,-89.38 188.95,-88.71 180.27,-82.64 178.38,-89.38"/>
-</g>
 <!-- util_spill_encounter -->
-<g id="proc~~symba_util_spill_pltpenc~~CallsGraph_node3" class="node">
+<g id="proc~~symba_util_spill_pltpenc~~CallsGraph_node2" class="node">
 <title>util_spill_encounter</title>
-<polygon fill="#777777" stroke="#777777" points="268,-66 164,-66 164,-42 268,-42 268,-66"/>
-<text text-anchor="middle" x="216" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_encounter</text>
+<polygon fill="#777777" stroke="#777777" points="268,-108 164,-108 164,-84 268,-84 268,-108"/>
+<text text-anchor="middle" x="216" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_encounter</text>
 </g>
 <!-- proc~symba_util_spill_pltpenc&#45;&gt;util_spill_encounter -->
-<g id="proc~~symba_util_spill_pltpenc~~CallsGraph_edge3" class="edge">
+<g id="proc~~symba_util_spill_pltpenc~~CallsGraph_edge1" class="edge">
 <title>proc~symba_util_spill_pltpenc&#45;&gt;util_spill_encounter</title>
-<path fill="none" stroke="#000000" d="M128.18,-54C136.6,-54 145.23,-54 153.62,-54"/>
-<polygon fill="#000000" stroke="#000000" points="153.72,-57.5 163.72,-54 153.72,-50.5 153.72,-57.5"/>
+<path fill="none" stroke="#000000" d="M107.98,-66.04C124.93,-70.78 144.56,-76.28 162.35,-81.26"/>
+<polygon fill="#000000" stroke="#000000" points="161.44,-84.64 172.01,-83.96 163.32,-77.9 161.44,-84.64"/>
 </g>
 <!-- util_exit -->
-<g id="proc~~symba_util_spill_pltpenc~~CallsGraph_node4" class="node">
+<g id="proc~~symba_util_spill_pltpenc~~CallsGraph_node3" class="node">
 <title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="243,-24 189,-24 189,0 243,0 243,-24"/>
-<text text-anchor="middle" x="216" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#777777" stroke="#777777" points="243,-66 189,-66 189,-42 243,-42 243,-66"/>
+<text text-anchor="middle" x="216" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
 <!-- proc~symba_util_spill_pltpenc&#45;&gt;util_exit -->
 <g id="proc~~symba_util_spill_pltpenc~~CallsGraph_edge2" class="edge">
 <title>proc~symba_util_spill_pltpenc&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M128.18,-54C145.48,-54 163.65,-54 178.86,-54"/>
+<polygon fill="#000000" stroke="#000000" points="178.88,-57.5 188.88,-54 178.88,-50.5 178.88,-57.5"/>
+</g>
+<!-- interface~util_spill -->
+<g id="proc~~symba_util_spill_pltpenc~~CallsGraph_node4" class="node">
+<title>interface~util_spill</title>
+<g id="a_proc~~symba_util_spill_pltpenc~~CallsGraph_node4"><a xlink:href=".././interface/util_spill.html" xlink:title="util_spill">
+<polygon fill="#a7506f" stroke="#a7506f" points="243,-24 189,-24 189,0 243,0 243,-24"/>
+<text text-anchor="middle" x="216" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_spill_pltpenc&#45;&gt;interface~util_spill -->
+<g id="proc~~symba_util_spill_pltpenc~~CallsGraph_edge3" class="edge">
+<title>proc~symba_util_spill_pltpenc&#45;&gt;interface~util_spill</title>
 <path fill="none" stroke="#000000" d="M107.98,-41.96C130.55,-35.64 157.89,-27.99 179.28,-22"/>
 <polygon fill="#000000" stroke="#000000" points="180.27,-25.36 188.95,-19.29 178.38,-18.62 180.27,-25.36"/>
 </g>
diff --git a/docs/proc/symba_util_spill_tp.html b/docs/proc/symba_util_spill_tp.html
index 162453d93..2f23af8a7 100644
--- a/docs/proc/symba_util_spill_tp.html
+++ b/docs/proc/symba_util_spill_tp.html
@@ -136,7 +136,7 @@ <h1>symba_util_spill_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">21 statements</a>
+    title=" 0.0% of total for procedures.">22 statements</a>
      </li> 
      
      
@@ -323,42 +323,42 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="103,-66 0,-66 0,-42 103,-42 103,-66"/>
 <text text-anchor="middle" x="51.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util_spill_tp</text>
 </g>
-<!-- interface~util_spill -->
-<g id="proc~~symba_util_spill_tp~~CallsGraph_node2" class="node">
-<title>interface~util_spill</title>
-<g id="a_proc~~symba_util_spill_tp~~CallsGraph_node2"><a xlink:href=".././interface/util_spill.html" xlink:title="util_spill">
-<polygon fill="#a7506f" stroke="#a7506f" points="198.5,-108 144.5,-108 144.5,-84 198.5,-84 198.5,-108"/>
-<text text-anchor="middle" x="171.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
-</a>
-</g>
-</g>
-<!-- proc~symba_util_spill_tp&#45;&gt;interface~util_spill -->
-<g id="proc~~symba_util_spill_tp~~CallsGraph_edge1" class="edge">
-<title>proc~symba_util_spill_tp&#45;&gt;interface~util_spill</title>
-<path fill="none" stroke="#000000" d="M86.31,-66.04C101.4,-71.4 119.19,-77.74 134.51,-83.19"/>
-<polygon fill="#000000" stroke="#000000" points="133.59,-86.58 144.18,-86.63 135.93,-79.98 133.59,-86.58"/>
-</g>
 <!-- util_spill_tp -->
-<g id="proc~~symba_util_spill_tp~~CallsGraph_node3" class="node">
+<g id="proc~~symba_util_spill_tp~~CallsGraph_node2" class="node">
 <title>util_spill_tp</title>
-<polygon fill="#777777" stroke="#777777" points="204,-66 139,-66 139,-42 204,-42 204,-66"/>
-<text text-anchor="middle" x="171.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
+<polygon fill="#777777" stroke="#777777" points="204,-108 139,-108 139,-84 204,-84 204,-108"/>
+<text text-anchor="middle" x="171.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
 </g>
 <!-- proc~symba_util_spill_tp&#45;&gt;util_spill_tp -->
-<g id="proc~~symba_util_spill_tp~~CallsGraph_edge2" class="edge">
+<g id="proc~~symba_util_spill_tp~~CallsGraph_edge1" class="edge">
 <title>proc~symba_util_spill_tp&#45;&gt;util_spill_tp</title>
-<path fill="none" stroke="#000000" d="M103.23,-54C111.75,-54 120.5,-54 128.76,-54"/>
-<polygon fill="#000000" stroke="#000000" points="128.91,-57.5 138.91,-54 128.91,-50.5 128.91,-57.5"/>
+<path fill="none" stroke="#000000" d="M86.31,-66.04C99.7,-70.8 115.23,-76.33 129.27,-81.32"/>
+<polygon fill="#000000" stroke="#000000" points="128.11,-84.63 138.71,-84.68 130.46,-78.03 128.11,-84.63"/>
 </g>
 <!-- util_exit -->
-<g id="proc~~symba_util_spill_tp~~CallsGraph_node4" class="node">
+<g id="proc~~symba_util_spill_tp~~CallsGraph_node3" class="node">
 <title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="198.5,-24 144.5,-24 144.5,0 198.5,0 198.5,-24"/>
-<text text-anchor="middle" x="171.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#777777" stroke="#777777" points="198.5,-66 144.5,-66 144.5,-42 198.5,-42 198.5,-66"/>
+<text text-anchor="middle" x="171.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
 <!-- proc~symba_util_spill_tp&#45;&gt;util_exit -->
-<g id="proc~~symba_util_spill_tp~~CallsGraph_edge3" class="edge">
+<g id="proc~~symba_util_spill_tp~~CallsGraph_edge2" class="edge">
 <title>proc~symba_util_spill_tp&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M103.23,-54C113.59,-54 124.31,-54 134.06,-54"/>
+<polygon fill="#000000" stroke="#000000" points="134.19,-57.5 144.19,-54 134.19,-50.5 134.19,-57.5"/>
+</g>
+<!-- interface~util_spill -->
+<g id="proc~~symba_util_spill_tp~~CallsGraph_node4" class="node">
+<title>interface~util_spill</title>
+<g id="a_proc~~symba_util_spill_tp~~CallsGraph_node4"><a xlink:href=".././interface/util_spill.html" xlink:title="util_spill">
+<polygon fill="#a7506f" stroke="#a7506f" points="198.5,-24 144.5,-24 144.5,0 198.5,0 198.5,-24"/>
+<text text-anchor="middle" x="171.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+</a>
+</g>
+</g>
+<!-- proc~symba_util_spill_tp&#45;&gt;interface~util_spill -->
+<g id="proc~~symba_util_spill_tp~~CallsGraph_edge3" class="edge">
+<title>proc~symba_util_spill_tp&#45;&gt;interface~util_spill</title>
 <path fill="none" stroke="#000000" d="M86.31,-41.96C101.4,-36.6 119.19,-30.26 134.51,-24.81"/>
 <polygon fill="#000000" stroke="#000000" points="135.93,-28.02 144.18,-21.37 133.59,-21.42 135.93,-28.02"/>
 </g>
diff --git a/docs/proc/tides_kick_getacch_pl.html b/docs/proc/tides_kick_getacch_pl.html
index b3d261ef0..45ef97db4 100644
--- a/docs/proc/tides_kick_getacch_pl.html
+++ b/docs/proc/tides_kick_getacch_pl.html
@@ -243,7 +243,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~202"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~200"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -258,7 +258,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~65"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~69"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/tides_step_spin_system.html b/docs/proc/tides_step_spin_system.html
index b740c1906..3c7e467dc 100644
--- a/docs/proc/tides_step_spin_system.html
+++ b/docs/proc/tides_step_spin_system.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~203"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~201"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~117"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~119"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/user_kick_getacch_body.html b/docs/proc/user_kick_getacch_body.html
index 25bc702f6..9e90ab702 100644
--- a/docs/proc/user_kick_getacch_body.html
+++ b/docs/proc/user_kick_getacch_body.html
@@ -252,7 +252,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~90"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~94"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -267,7 +267,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~174"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~178"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/util_append_arr_char_string.html b/docs/proc/util_append_arr_char_string.html
index b16dff17f..6ad7abe34 100644
--- a/docs/proc/util_append_arr_char_string.html
+++ b/docs/proc/util_append_arr_char_string.html
@@ -136,7 +136,7 @@ <h1>util_append_arr_char_string
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">26 statements</a>
+    title=" 0.0% of total for procedures.">15 statements</a>
      </li> 
      
      
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-subroutine util_append_arr_char_string(arr, source, lsource_mask)
+subroutine util_append_arr_char_string(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -262,11 +262,41 @@ <h3>Arguments</h3>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-nold"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nsrc"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-lsource_mask~11"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/proc/util_append_arr_dp.html b/docs/proc/util_append_arr_dp.html
index 616d3a8ee..c6c098cd0 100644
--- a/docs/proc/util_append_arr_dp.html
+++ b/docs/proc/util_append_arr_dp.html
@@ -136,7 +136,7 @@ <h1>util_append_arr_DP
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">26 statements</a>
+    title=" 0.0% of total for procedures.">15 statements</a>
      </li> 
      
      
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-subroutine util_append_arr_DP(arr, source, lsource_mask)
+subroutine util_append_arr_DP(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -262,11 +262,41 @@ <h3>Arguments</h3>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-nold~2"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nsrc~2"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-lsource_mask~12"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/proc/util_append_arr_dpvec.html b/docs/proc/util_append_arr_dpvec.html
index 57f34c2e0..823785a6c 100644
--- a/docs/proc/util_append_arr_dpvec.html
+++ b/docs/proc/util_append_arr_dpvec.html
@@ -136,7 +136,7 @@ <h1>util_append_arr_DPvec
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">28 statements</a>
+    title=" 0.0% of total for procedures.">17 statements</a>
      </li> 
      
      
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-subroutine util_append_arr_DPvec(arr, source, lsource_mask)
+subroutine util_append_arr_DPvec(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -262,11 +262,41 @@ <h3>Arguments</h3>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-nold~3"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nsrc~3"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-lsource_mask~13"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/proc/util_append_arr_i4b.html b/docs/proc/util_append_arr_i4b.html
index b184d7ce3..a0d9c2db7 100644
--- a/docs/proc/util_append_arr_i4b.html
+++ b/docs/proc/util_append_arr_i4b.html
@@ -136,7 +136,7 @@ <h1>util_append_arr_I4B
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">26 statements</a>
+    title=" 0.0% of total for procedures.">15 statements</a>
      </li> 
      
      
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-subroutine util_append_arr_I4B(arr, source, lsource_mask)
+subroutine util_append_arr_I4B(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -262,11 +262,41 @@ <h3>Arguments</h3>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-nold~4"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nsrc~4"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-lsource_mask~14"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/proc/util_append_arr_logical.html b/docs/proc/util_append_arr_logical.html
index 5b4971a4c..b28df549b 100644
--- a/docs/proc/util_append_arr_logical.html
+++ b/docs/proc/util_append_arr_logical.html
@@ -136,7 +136,7 @@ <h1>util_append_arr_logical
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">26 statements</a>
+    title=" 0.0% of total for procedures.">15 statements</a>
      </li> 
      
      
@@ -203,7 +203,7 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-subroutine util_append_arr_logical(arr, source, lsource_mask)
+subroutine util_append_arr_logical(arr, source, nold, nsrc, lsource_mask)
     
     
    
@@ -262,11 +262,41 @@ <h3>Arguments</h3>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-nold~5"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nold</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-nsrc~5"></span>integer(kind=I4B),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>nsrc</strong></td><td><p>Extend of the old array and the source array, respectively</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-lsource_mask~15"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/proc/util_append_body.html b/docs/proc/util_append_body.html
index fd0e6952e..31025bd0b 100644
--- a/docs/proc/util_append_body.html
+++ b/docs/proc/util_append_body.html
@@ -136,7 +136,7 @@ <h1>util_append_body
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">29 statements</a>
+    title=" 0.1% of total for procedures.">31 statements</a>
      </li> 
      
      
@@ -269,7 +269,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask~16"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/proc/util_append_pl.html b/docs/proc/util_append_pl.html
index ad370650f..51f4116c5 100644
--- a/docs/proc/util_append_pl.html
+++ b/docs/proc/util_append_pl.html
@@ -136,7 +136,7 @@ <h1>util_append_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">28 statements</a>
+    title=" 0.1% of total for procedures.">30 statements</a>
      </li> 
      
      
@@ -269,7 +269,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask~17"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -296,97 +296,97 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~util_append_pl~~CallsGraph Pages: 1 -->
-<svg id="procutil_append_plCallsGraph" width="460pt" height="112pt"
- viewBox="0.00 0.00 460.00 112.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~util_append_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 108)">
+<svg id="procutil_append_plCallsGraph" width="460pt" height="94pt"
+ viewBox="0.00 0.00 460.00 94.17" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_append_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 90.17)">
 <title>proc~~util_append_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-108 456,-108 456,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-90.17 456,-90.17 456,4 -4,4"/>
 <!-- proc~util_append_pl -->
 <g id="proc~~util_append_pl~~CallsGraph_node1" class="node">
 <title>proc~util_append_pl</title>
-<polygon fill="none" stroke="black" points="82,-64 0,-64 0,-40 82,-40 82,-64"/>
-<text text-anchor="middle" x="41" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_append_pl</text>
-</g>
-<!-- interface~util_append_body -->
-<g id="proc~~util_append_pl~~CallsGraph_node2" class="node">
-<title>interface~util_append_body</title>
-<g id="a_proc~~util_append_pl~~CallsGraph_node2"><a xlink:href=".././interface/util_append_body.html" xlink:title="util_append_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="215,-104 118,-104 118,-80 215,-80 215,-104"/>
-<text text-anchor="middle" x="166.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
-</a>
-</g>
-</g>
-<!-- proc~util_append_pl&#45;&gt;interface~util_append_body -->
-<g id="proc~~util_append_pl~~CallsGraph_edge1" class="edge">
-<title>proc~util_append_pl&#45;&gt;interface~util_append_body</title>
-<path fill="none" stroke="#000000" d="M79.05,-64C91.4,-68 105.32,-72.51 118.32,-76.72"/>
-<polygon fill="#000000" stroke="#000000" points="117.45,-80.12 128.05,-79.87 119.61,-73.46 117.45,-80.12"/>
+<polygon fill="none" stroke="black" points="82,-66 0,-66 0,-42 82,-42 82,-66"/>
+<text text-anchor="middle" x="41" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_append_pl</text>
 </g>
 <!-- interface~util_append~2 -->
-<g id="proc~~util_append_pl~~CallsGraph_node3" class="node">
+<g id="proc~~util_append_pl~~CallsGraph_node2" class="node">
 <title>interface~util_append~2</title>
-<g id="a_proc~~util_append_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_append~2.html" xlink:title="util_append">
-<polygon fill="#a7506f" stroke="#a7506f" points="452,-84 384,-84 384,-60 452,-60 452,-84"/>
-<text text-anchor="middle" x="418" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<g id="a_proc~~util_append_pl~~CallsGraph_node2"><a xlink:href=".././interface/util_append~2.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="452,-65 384,-65 384,-41 452,-41 452,-65"/>
+<text text-anchor="middle" x="418" y="-50.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </a>
 </g>
 </g>
 <!-- proc~util_append_pl&#45;&gt;interface~util_append~2 -->
-<g id="proc~~util_append_pl~~CallsGraph_edge2" class="edge">
+<g id="proc~~util_append_pl~~CallsGraph_edge1" class="edge">
 <title>proc~util_append_pl&#45;&gt;interface~util_append~2</title>
-<path fill="none" stroke="#000000" d="M82.13,-54.14C153.18,-57.93 300.48,-65.79 373.71,-69.69"/>
-<polygon fill="#000000" stroke="#000000" points="373.79,-73.2 383.96,-70.24 374.16,-66.21 373.79,-73.2"/>
+<path fill="none" stroke="#000000" d="M77.92,-66.06C90.45,-69.7 104.71,-73.2 118,-75 219.29,-88.74 246.99,-90.71 348,-75 357.4,-73.54 367.27,-71.02 376.51,-68.2"/>
+<polygon fill="#000000" stroke="#000000" points="377.8,-71.46 386.23,-65.05 375.64,-64.8 377.8,-71.46"/>
 </g>
 <!-- interface~util_exit -->
-<g id="proc~~util_append_pl~~CallsGraph_node4" class="node">
+<g id="proc~~util_append_pl~~CallsGraph_node3" class="node">
 <title>interface~util_exit</title>
-<g id="a_proc~~util_append_pl~~CallsGraph_node4"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" points="193.5,-24 139.5,-24 139.5,0 193.5,0 193.5,-24"/>
-<text text-anchor="middle" x="166.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_proc~~util_append_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="193.5,-66 139.5,-66 139.5,-42 193.5,-42 193.5,-66"/>
+<text text-anchor="middle" x="166.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
 <!-- proc~util_append_pl&#45;&gt;interface~util_exit -->
-<g id="proc~~util_append_pl~~CallsGraph_edge3" class="edge">
+<g id="proc~~util_append_pl~~CallsGraph_edge2" class="edge">
 <title>proc~util_append_pl&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M79.05,-40C95.02,-34.83 113.63,-28.8 129.48,-23.67"/>
-<polygon fill="#000000" stroke="#000000" points="131.01,-26.85 139.45,-20.44 128.86,-20.19 131.01,-26.85"/>
+<path fill="none" stroke="#000000" d="M82.1,-54C97.17,-54 114.22,-54 128.96,-54"/>
+<polygon fill="#000000" stroke="#000000" points="129.22,-57.5 139.22,-54 129.22,-50.5 129.22,-57.5"/>
 </g>
-<!-- proc~util_append_body -->
-<g id="proc~~util_append_pl~~CallsGraph_node6" class="node">
-<title>proc~util_append_body</title>
-<g id="a_proc~~util_append_pl~~CallsGraph_node6"><a xlink:href=".././proc/util_append_body.html" xlink:title="util_append_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="348,-104 251,-104 251,-80 348,-80 348,-104"/>
-<text text-anchor="middle" x="299.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
+<!-- interface~util_append_body -->
+<g id="proc~~util_append_pl~~CallsGraph_node4" class="node">
+<title>interface~util_append_body</title>
+<g id="a_proc~~util_append_pl~~CallsGraph_node4"><a xlink:href=".././interface/util_append_body.html" xlink:title="util_append_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="215,-24 118,-24 118,0 215,0 215,-24"/>
+<text text-anchor="middle" x="166.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
 </a>
 </g>
 </g>
-<!-- interface~util_append_body&#45;&gt;proc~util_append_body -->
-<g id="proc~~util_append_pl~~CallsGraph_edge4" class="edge">
-<title>interface~util_append_body&#45;&gt;proc~util_append_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M215.16,-92C223.38,-92 232.01,-92 240.46,-92"/>
-<polygon fill="#000000" stroke="#000000" points="240.65,-95.5 250.65,-92 240.65,-88.5 240.65,-95.5"/>
+<!-- proc~util_append_pl&#45;&gt;interface~util_append_body -->
+<g id="proc~~util_append_pl~~CallsGraph_edge3" class="edge">
+<title>proc~util_append_pl&#45;&gt;interface~util_append_body</title>
+<path fill="none" stroke="#000000" d="M77.39,-41.96C90.83,-37.4 106.31,-32.13 120.52,-27.3"/>
+<polygon fill="#000000" stroke="#000000" points="121.76,-30.57 130.1,-24.04 119.51,-23.94 121.76,-30.57"/>
 </g>
 <!-- proc~util_exit -->
 <g id="proc~~util_append_pl~~CallsGraph_node5" class="node">
 <title>proc~util_exit</title>
 <g id="a_proc~~util_append_pl~~CallsGraph_node5"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" points="326.5,-24 272.5,-24 272.5,0 326.5,0 326.5,-24"/>
-<text text-anchor="middle" x="299.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="326.5,-66 272.5,-66 272.5,-42 326.5,-42 326.5,-66"/>
+<text text-anchor="middle" x="299.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
 <!-- interface~util_exit&#45;&gt;proc~util_exit -->
-<g id="proc~~util_append_pl~~CallsGraph_edge5" class="edge">
+<g id="proc~~util_append_pl~~CallsGraph_edge4" class="edge">
 <title>interface~util_exit&#45;&gt;proc~util_exit</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M193.69,-12C213.33,-12 240.44,-12 262.17,-12"/>
-<polygon fill="#000000" stroke="#000000" points="262.35,-15.5 272.35,-12 262.35,-8.5 262.35,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M193.69,-54C213.33,-54 240.44,-54 262.17,-54"/>
+<polygon fill="#000000" stroke="#000000" points="262.35,-57.5 272.35,-54 262.35,-50.5 262.35,-57.5"/>
+</g>
+<!-- proc~util_append_body -->
+<g id="proc~~util_append_pl~~CallsGraph_node6" class="node">
+<title>proc~util_append_body</title>
+<g id="a_proc~~util_append_pl~~CallsGraph_node6"><a xlink:href=".././proc/util_append_body.html" xlink:title="util_append_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="348,-24 251,-24 251,0 348,0 348,-24"/>
+<text text-anchor="middle" x="299.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
+</a>
+</g>
+</g>
+<!-- interface~util_append_body&#45;&gt;proc~util_append_body -->
+<g id="proc~~util_append_pl~~CallsGraph_edge5" class="edge">
+<title>interface~util_append_body&#45;&gt;proc~util_append_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M215.16,-12C223.38,-12 232.01,-12 240.46,-12"/>
+<polygon fill="#000000" stroke="#000000" points="240.65,-15.5 250.65,-12 240.65,-8.5 240.65,-15.5"/>
 </g>
 <!-- proc~util_append_body&#45;&gt;interface~util_append~2 -->
 <g id="proc~~util_append_pl~~CallsGraph_edge6" class="edge">
 <title>proc~util_append_body&#45;&gt;interface~util_append~2</title>
-<path fill="none" stroke="#000000" d="M348.22,-83.81C356.71,-82.35 365.51,-80.84 373.86,-79.41"/>
-<polygon fill="#000000" stroke="#000000" points="374.51,-82.85 383.77,-77.7 373.32,-75.95 374.51,-82.85"/>
+<path fill="none" stroke="#000000" d="M334.82,-24.08C347.13,-28.41 361.15,-33.34 374.09,-37.9"/>
+<polygon fill="#000000" stroke="#000000" points="373.13,-41.27 383.72,-41.29 375.45,-34.67 373.13,-41.27"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_append_tp.html b/docs/proc/util_append_tp.html
index fee9858aa..b19842010 100644
--- a/docs/proc/util_append_tp.html
+++ b/docs/proc/util_append_tp.html
@@ -136,7 +136,7 @@ <h1>util_append_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">17 statements</a>
+    title=" 0.0% of total for procedures.">19 statements</a>
      </li> 
      
      
@@ -269,7 +269,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask~18"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -296,97 +296,97 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~util_append_tp~~CallsGraph Pages: 1 -->
-<svg id="procutil_append_tpCallsGraph" width="461pt" height="112pt"
- viewBox="0.00 0.00 461.00 112.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~util_append_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 108)">
+<svg id="procutil_append_tpCallsGraph" width="461pt" height="94pt"
+ viewBox="0.00 0.00 461.00 94.14" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_append_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 90.14)">
 <title>proc~~util_append_tp~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-108 457,-108 457,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-90.14 457,-90.14 457,4 -4,4"/>
 <!-- proc~util_append_tp -->
 <g id="proc~~util_append_tp~~CallsGraph_node1" class="node">
 <title>proc~util_append_tp</title>
-<polygon fill="none" stroke="black" points="83,-64 0,-64 0,-40 83,-40 83,-64"/>
-<text text-anchor="middle" x="41.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_append_tp</text>
-</g>
-<!-- interface~util_append_body -->
-<g id="proc~~util_append_tp~~CallsGraph_node2" class="node">
-<title>interface~util_append_body</title>
-<g id="a_proc~~util_append_tp~~CallsGraph_node2"><a xlink:href=".././interface/util_append_body.html" xlink:title="util_append_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="216,-104 119,-104 119,-80 216,-80 216,-104"/>
-<text text-anchor="middle" x="167.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
-</a>
-</g>
-</g>
-<!-- proc~util_append_tp&#45;&gt;interface~util_append_body -->
-<g id="proc~~util_append_tp~~CallsGraph_edge1" class="edge">
-<title>proc~util_append_tp&#45;&gt;interface~util_append_body</title>
-<path fill="none" stroke="#000000" d="M79.7,-64C92.1,-68 106.07,-72.51 119.13,-76.72"/>
-<polygon fill="#000000" stroke="#000000" points="118.3,-80.13 128.89,-79.87 120.45,-73.47 118.3,-80.13"/>
+<polygon fill="none" stroke="black" points="83,-66 0,-66 0,-42 83,-42 83,-66"/>
+<text text-anchor="middle" x="41.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_append_tp</text>
 </g>
 <!-- interface~util_append~2 -->
-<g id="proc~~util_append_tp~~CallsGraph_node3" class="node">
+<g id="proc~~util_append_tp~~CallsGraph_node2" class="node">
 <title>interface~util_append~2</title>
-<g id="a_proc~~util_append_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_append~2.html" xlink:title="util_append">
-<polygon fill="#a7506f" stroke="#a7506f" points="453,-84 385,-84 385,-60 453,-60 453,-84"/>
-<text text-anchor="middle" x="419" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<g id="a_proc~~util_append_tp~~CallsGraph_node2"><a xlink:href=".././interface/util_append~2.html" xlink:title="util_append">
+<polygon fill="#a7506f" stroke="#a7506f" points="453,-65 385,-65 385,-41 453,-41 453,-65"/>
+<text text-anchor="middle" x="419" y="-50.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </a>
 </g>
 </g>
 <!-- proc~util_append_tp&#45;&gt;interface~util_append~2 -->
-<g id="proc~~util_append_tp~~CallsGraph_edge2" class="edge">
+<g id="proc~~util_append_tp~~CallsGraph_edge1" class="edge">
 <title>proc~util_append_tp&#45;&gt;interface~util_append~2</title>
-<path fill="none" stroke="#000000" d="M83.04,-54.16C154.35,-57.96 301.57,-65.8 374.75,-69.7"/>
-<polygon fill="#000000" stroke="#000000" points="374.82,-73.21 384.99,-70.24 375.19,-66.22 374.82,-73.21"/>
+<path fill="none" stroke="#000000" d="M78.67,-66.06C91.28,-69.7 105.62,-73.2 119,-75 220.31,-88.65 247.99,-90.71 349,-75 358.4,-73.54 368.27,-71.02 377.51,-68.2"/>
+<polygon fill="#000000" stroke="#000000" points="378.8,-71.46 387.23,-65.05 376.64,-64.8 378.8,-71.46"/>
 </g>
 <!-- interface~util_exit -->
-<g id="proc~~util_append_tp~~CallsGraph_node4" class="node">
+<g id="proc~~util_append_tp~~CallsGraph_node3" class="node">
 <title>interface~util_exit</title>
-<g id="a_proc~~util_append_tp~~CallsGraph_node4"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" points="194.5,-24 140.5,-24 140.5,0 194.5,0 194.5,-24"/>
-<text text-anchor="middle" x="167.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_proc~~util_append_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="194.5,-66 140.5,-66 140.5,-42 194.5,-42 194.5,-66"/>
+<text text-anchor="middle" x="167.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
 <!-- proc~util_append_tp&#45;&gt;interface~util_exit -->
-<g id="proc~~util_append_tp~~CallsGraph_edge3" class="edge">
+<g id="proc~~util_append_tp~~CallsGraph_edge2" class="edge">
 <title>proc~util_append_tp&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M79.7,-40C95.89,-34.78 114.78,-28.68 130.79,-23.52"/>
-<polygon fill="#000000" stroke="#000000" points="131.9,-26.84 140.34,-20.44 129.75,-20.18 131.9,-26.84"/>
+<path fill="none" stroke="#000000" d="M83.1,-54C98.22,-54 115.27,-54 130,-54"/>
+<polygon fill="#000000" stroke="#000000" points="130.25,-57.5 140.25,-54 130.25,-50.5 130.25,-57.5"/>
 </g>
-<!-- proc~util_append_body -->
-<g id="proc~~util_append_tp~~CallsGraph_node6" class="node">
-<title>proc~util_append_body</title>
-<g id="a_proc~~util_append_tp~~CallsGraph_node6"><a xlink:href=".././proc/util_append_body.html" xlink:title="util_append_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="349,-104 252,-104 252,-80 349,-80 349,-104"/>
-<text text-anchor="middle" x="300.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
+<!-- interface~util_append_body -->
+<g id="proc~~util_append_tp~~CallsGraph_node4" class="node">
+<title>interface~util_append_body</title>
+<g id="a_proc~~util_append_tp~~CallsGraph_node4"><a xlink:href=".././interface/util_append_body.html" xlink:title="util_append_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="216,-24 119,-24 119,0 216,0 216,-24"/>
+<text text-anchor="middle" x="167.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
 </a>
 </g>
 </g>
-<!-- interface~util_append_body&#45;&gt;proc~util_append_body -->
-<g id="proc~~util_append_tp~~CallsGraph_edge4" class="edge">
-<title>interface~util_append_body&#45;&gt;proc~util_append_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M216.16,-92C224.38,-92 233.01,-92 241.46,-92"/>
-<polygon fill="#000000" stroke="#000000" points="241.65,-95.5 251.65,-92 241.65,-88.5 241.65,-95.5"/>
+<!-- proc~util_append_tp&#45;&gt;interface~util_append_body -->
+<g id="proc~~util_append_tp~~CallsGraph_edge3" class="edge">
+<title>proc~util_append_tp&#45;&gt;interface~util_append_body</title>
+<path fill="none" stroke="#000000" d="M78.03,-41.96C91.52,-37.4 107.07,-32.13 121.33,-27.3"/>
+<polygon fill="#000000" stroke="#000000" points="122.61,-30.56 130.96,-24.04 120.37,-23.93 122.61,-30.56"/>
 </g>
 <!-- proc~util_exit -->
 <g id="proc~~util_append_tp~~CallsGraph_node5" class="node">
 <title>proc~util_exit</title>
 <g id="a_proc~~util_append_tp~~CallsGraph_node5"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" points="327.5,-24 273.5,-24 273.5,0 327.5,0 327.5,-24"/>
-<text text-anchor="middle" x="300.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="327.5,-66 273.5,-66 273.5,-42 327.5,-42 327.5,-66"/>
+<text text-anchor="middle" x="300.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
 <!-- interface~util_exit&#45;&gt;proc~util_exit -->
-<g id="proc~~util_append_tp~~CallsGraph_edge5" class="edge">
+<g id="proc~~util_append_tp~~CallsGraph_edge4" class="edge">
 <title>interface~util_exit&#45;&gt;proc~util_exit</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M194.69,-12C214.33,-12 241.44,-12 263.17,-12"/>
-<polygon fill="#000000" stroke="#000000" points="263.35,-15.5 273.35,-12 263.35,-8.5 263.35,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M194.69,-54C214.33,-54 241.44,-54 263.17,-54"/>
+<polygon fill="#000000" stroke="#000000" points="263.35,-57.5 273.35,-54 263.35,-50.5 263.35,-57.5"/>
+</g>
+<!-- proc~util_append_body -->
+<g id="proc~~util_append_tp~~CallsGraph_node6" class="node">
+<title>proc~util_append_body</title>
+<g id="a_proc~~util_append_tp~~CallsGraph_node6"><a xlink:href=".././proc/util_append_body.html" xlink:title="util_append_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="349,-24 252,-24 252,0 349,0 349,-24"/>
+<text text-anchor="middle" x="300.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_body</text>
+</a>
+</g>
+</g>
+<!-- interface~util_append_body&#45;&gt;proc~util_append_body -->
+<g id="proc~~util_append_tp~~CallsGraph_edge5" class="edge">
+<title>interface~util_append_body&#45;&gt;proc~util_append_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M216.16,-12C224.38,-12 233.01,-12 241.46,-12"/>
+<polygon fill="#000000" stroke="#000000" points="241.65,-15.5 251.65,-12 241.65,-8.5 241.65,-15.5"/>
 </g>
 <!-- proc~util_append_body&#45;&gt;interface~util_append~2 -->
 <g id="proc~~util_append_tp~~CallsGraph_edge6" class="edge">
 <title>proc~util_append_body&#45;&gt;interface~util_append~2</title>
-<path fill="none" stroke="#000000" d="M349.22,-83.81C357.71,-82.35 366.51,-80.84 374.86,-79.41"/>
-<polygon fill="#000000" stroke="#000000" points="375.51,-82.85 384.77,-77.7 374.32,-75.95 375.51,-82.85"/>
+<path fill="none" stroke="#000000" d="M335.82,-24.08C348.13,-28.41 362.15,-33.34 375.09,-37.9"/>
+<polygon fill="#000000" stroke="#000000" points="374.13,-41.27 384.72,-41.29 376.45,-34.67 374.13,-41.27"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_coord_b2h_pl.html b/docs/proc/util_coord_b2h_pl.html
index 54ca0ba38..eecf7a39b 100644
--- a/docs/proc/util_coord_b2h_pl.html
+++ b/docs/proc/util_coord_b2h_pl.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~244"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~242"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -271,164 +271,6 @@ <h3>Arguments</h3>
     <br>
     
     
-    <div class="panel panel-default">
-      <div class="panel-heading">
-  <h3 class="panel-title">Calls</h3>
-      </div>
-      <div class="panel-body">
-  <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.47.1 (20210417.1919)
- -->
-<!-- Title: proc~~util_coord_b2h_pl~~CallsGraph Pages: 1 -->
-<svg id="procutil_coord_b2h_plCallsGraph" width="195pt" height="242pt"
- viewBox="0.00 0.00 195.00 242.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~util_coord_b2h_pl~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 238)">
-<title>proc~~util_coord_b2h_pl~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-238 191,-238 191,4 -4,4"/>
-<!-- proc~util_coord_b2h_pl -->
-<g id="proc~~util_coord_b2h_pl~~CallsGraph_node1" class="node">
-<title>proc~util_coord_b2h_pl</title>
-<polygon fill="none" stroke="black" points="97,-129 0,-129 0,-105 97,-105 97,-129"/>
-<text text-anchor="middle" x="48.5" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_coord_b2h_pl</text>
-</g>
-<!-- vbcb -->
-<g id="proc~~util_coord_b2h_pl~~CallsGraph_node2" class="node">
-<title>vbcb</title>
-<polygon fill="#777777" stroke="#777777" points="187,-234 133,-234 133,-210 187,-210 187,-234"/>
-<text text-anchor="middle" x="160" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vbcb</text>
-</g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;vbcb -->
-<g id="proc~~util_coord_b2h_pl~~CallsGraph_edge1" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;vbcb</title>
-<path fill="none" stroke="#000000" d="M60.73,-129.1C76.4,-145.8 105.97,-176.62 133,-201 133.82,-201.74 134.66,-202.48 135.51,-203.23"/>
-<polygon fill="#000000" stroke="#000000" points="133.46,-206.08 143.37,-209.83 137.97,-200.72 133.46,-206.08"/>
-</g>
-<!-- xh -->
-<g id="proc~~util_coord_b2h_pl~~CallsGraph_node3" class="node">
-<title>xh</title>
-<polygon fill="#777777" stroke="#777777" points="187,-192 133,-192 133,-168 187,-168 187,-192"/>
-<text text-anchor="middle" x="160" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
-</g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;xh -->
-<g id="proc~~util_coord_b2h_pl~~CallsGraph_edge2" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;xh</title>
-<path fill="none" stroke="#000000" d="M70.61,-129.15C87.2,-138.69 110.51,-152.1 129.03,-162.76"/>
-<polygon fill="#000000" stroke="#000000" points="127.54,-165.94 137.95,-167.89 131.03,-159.87 127.54,-165.94"/>
-</g>
-<!-- xb -->
-<g id="proc~~util_coord_b2h_pl~~CallsGraph_node4" class="node">
-<title>xb</title>
-<polygon fill="#777777" stroke="#777777" points="187,-150 133,-150 133,-126 187,-126 187,-150"/>
-<text text-anchor="middle" x="160" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xb</text>
-</g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;xb -->
-<g id="proc~~util_coord_b2h_pl~~CallsGraph_edge3" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;xb</title>
-<path fill="none" stroke="#000000" d="M97.21,-126.15C105.8,-127.8 114.63,-129.49 122.82,-131.06"/>
-<polygon fill="#000000" stroke="#000000" points="122.32,-134.53 132.8,-132.98 123.64,-127.65 122.32,-134.53"/>
-</g>
-<!-- xbcb -->
-<g id="proc~~util_coord_b2h_pl~~CallsGraph_node5" class="node">
-<title>xbcb</title>
-<polygon fill="#777777" stroke="#777777" points="187,-108 133,-108 133,-84 187,-84 187,-108"/>
-<text text-anchor="middle" x="160" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xbcb</text>
-</g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;xbcb -->
-<g id="proc~~util_coord_b2h_pl~~CallsGraph_edge4" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;xbcb</title>
-<path fill="none" stroke="#000000" d="M97.21,-107.85C105.8,-106.2 114.63,-104.51 122.82,-102.94"/>
-<polygon fill="#000000" stroke="#000000" points="123.64,-106.35 132.8,-101.02 122.32,-99.47 123.64,-106.35"/>
-</g>
-<!-- vh -->
-<g id="proc~~util_coord_b2h_pl~~CallsGraph_node6" class="node">
-<title>vh</title>
-<polygon fill="#777777" stroke="#777777" points="187,-66 133,-66 133,-42 187,-42 187,-66"/>
-<text text-anchor="middle" x="160" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
-</g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;vh -->
-<g id="proc~~util_coord_b2h_pl~~CallsGraph_edge5" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;vh</title>
-<path fill="none" stroke="#000000" d="M70.61,-104.85C87.2,-95.31 110.51,-81.9 129.03,-71.24"/>
-<polygon fill="#000000" stroke="#000000" points="131.03,-74.13 137.95,-66.11 127.54,-68.06 131.03,-74.13"/>
-</g>
-<!-- vb -->
-<g id="proc~~util_coord_b2h_pl~~CallsGraph_node7" class="node">
-<title>vb</title>
-<polygon fill="#777777" stroke="#777777" points="187,-24 133,-24 133,0 187,0 187,-24"/>
-<text text-anchor="middle" x="160" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vb</text>
-</g>
-<!-- proc~util_coord_b2h_pl&#45;&gt;vb -->
-<g id="proc~~util_coord_b2h_pl~~CallsGraph_edge6" class="edge">
-<title>proc~util_coord_b2h_pl&#45;&gt;vb</title>
-<path fill="none" stroke="#000000" d="M60.73,-104.9C76.4,-88.2 105.97,-57.38 133,-33 133.82,-32.26 134.66,-31.52 135.51,-30.77"/>
-<polygon fill="#000000" stroke="#000000" points="137.97,-33.28 143.37,-24.17 133.46,-27.92 137.97,-33.28"/>
-</g>
-</g>
-</svg>
-</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
-    <p>Nodes of different colours represent the following: </p>
-    <?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.47.1 (20210417.1919)
- -->
-<!-- Title: Graph Key Pages: 1 -->
-<svg width="560pt" height="32pt"
- viewBox="0.00 0.00 559.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)">
-<title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
-<!-- Subroutine -->
-<g id="node1" class="node">
-<title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
-<text text-anchor="middle" x="32" y="-9.6" 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="136,-24 82,-24 82,0 136,0 136,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" 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="209.5,-24 154.5,-24 154.5,0 209.5,0 209.5,-24"/>
-<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
-</g>
-<!-- Unknown Procedure Type -->
-<g id="node4" class="node">
-<title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,0 364,0 364,-24"/>
-<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
-</g>
-<!-- Program -->
-<g id="node5" class="node">
-<title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,0 436,0 436,-24"/>
-<text text-anchor="middle" x="409" y="-9.6" 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="551.5,-24 454.5,-24 454.5,0 551.5,0 551.5,-24"/>
-<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
-</g>
-</g>
-</svg>
-
-    
-    <p>Solid arrows point from a procedure to one which it calls. Dashed 
-    arrows point from an interface to procedures which implement that interface.
-    This could include the module procedures in a generic interface or the
-    implementation in a submodule of an interface in a parent module.
-    </p>
-    </div></div></div></div>
-      </div>
-    </div>
-     
      
     <div class="panel panel-default">
       <div class="panel-heading">
diff --git a/docs/proc/util_coord_b2h_tp.html b/docs/proc/util_coord_b2h_tp.html
index 9bbbf6ae7..bf938f8ad 100644
--- a/docs/proc/util_coord_b2h_tp.html
+++ b/docs/proc/util_coord_b2h_tp.html
@@ -136,7 +136,7 @@ <h1>util_coord_b2h_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">17 statements</a>
+    title=" 0.0% of total for procedures.">14 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~245"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~243"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -271,176 +271,6 @@ <h3>Arguments</h3>
     <br>
     
     
-    <div class="panel panel-default">
-      <div class="panel-heading">
-  <h3 class="panel-title">Calls</h3>
-      </div>
-      <div class="panel-body">
-  <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.47.1 (20210417.1919)
- -->
-<!-- Title: proc~~util_coord_b2h_tp~~CallsGraph Pages: 1 -->
-<svg id="procutil_coord_b2h_tpCallsGraph" width="196pt" height="284pt"
- viewBox="0.00 0.00 196.00 284.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~util_coord_b2h_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 280)">
-<title>proc~~util_coord_b2h_tp~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-280 192,-280 192,4 -4,4"/>
-<!-- proc~util_coord_b2h_tp -->
-<g id="proc~~util_coord_b2h_tp~~CallsGraph_node1" class="node">
-<title>proc~util_coord_b2h_tp</title>
-<polygon fill="none" stroke="black" points="98,-150 0,-150 0,-126 98,-126 98,-150"/>
-<text text-anchor="middle" x="49" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_coord_b2h_tp</text>
-</g>
-<!-- vbcb -->
-<g id="proc~~util_coord_b2h_tp~~CallsGraph_node2" class="node">
-<title>vbcb</title>
-<polygon fill="#777777" stroke="#777777" points="188,-276 134,-276 134,-252 188,-252 188,-276"/>
-<text text-anchor="middle" x="161" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vbcb</text>
-</g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;vbcb -->
-<g id="proc~~util_coord_b2h_tp~~CallsGraph_edge1" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;vbcb</title>
-<path fill="none" stroke="#000000" d="M58.31,-150.03C72.58,-170.29 103.2,-212.06 134,-243 134.66,-243.67 135.35,-244.33 136.04,-244.99"/>
-<polygon fill="#000000" stroke="#000000" points="134.03,-247.89 143.85,-251.86 138.66,-242.63 134.03,-247.89"/>
-</g>
-<!-- xh -->
-<g id="proc~~util_coord_b2h_tp~~CallsGraph_node3" class="node">
-<title>xh</title>
-<polygon fill="#777777" stroke="#777777" points="188,-234 134,-234 134,-210 188,-210 188,-234"/>
-<text text-anchor="middle" x="161" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
-</g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;xh -->
-<g id="proc~~util_coord_b2h_tp~~CallsGraph_edge2" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;xh</title>
-<path fill="none" stroke="#000000" d="M65.76,-150.04C84.14,-164.07 114.72,-187.42 136.04,-203.7"/>
-<polygon fill="#000000" stroke="#000000" points="134.2,-206.7 144.27,-209.99 138.45,-201.14 134.2,-206.7"/>
-</g>
-<!-- xb -->
-<g id="proc~~util_coord_b2h_tp~~CallsGraph_node4" class="node">
-<title>xb</title>
-<polygon fill="#777777" stroke="#777777" points="188,-192 134,-192 134,-168 188,-168 188,-192"/>
-<text text-anchor="middle" x="161" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xb</text>
-</g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;xb -->
-<g id="proc~~util_coord_b2h_tp~~CallsGraph_edge3" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;xb</title>
-<path fill="none" stroke="#000000" d="M81.52,-150.04C94.8,-155.11 110.34,-161.04 124.06,-166.28"/>
-<polygon fill="#000000" stroke="#000000" points="123.09,-169.65 133.68,-169.95 125.58,-163.11 123.09,-169.65"/>
-</g>
-<!-- xbcb -->
-<g id="proc~~util_coord_b2h_tp~~CallsGraph_node5" class="node">
-<title>xbcb</title>
-<polygon fill="#777777" stroke="#777777" points="188,-150 134,-150 134,-126 188,-126 188,-150"/>
-<text text-anchor="middle" x="161" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xbcb</text>
-</g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;xbcb -->
-<g id="proc~~util_coord_b2h_tp~~CallsGraph_edge4" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;xbcb</title>
-<path fill="none" stroke="#000000" d="M98.25,-138C106.76,-138 115.48,-138 123.6,-138"/>
-<polygon fill="#000000" stroke="#000000" points="123.85,-141.5 133.85,-138 123.85,-134.5 123.85,-141.5"/>
-</g>
-<!-- status -->
-<g id="proc~~util_coord_b2h_tp~~CallsGraph_node6" class="node">
-<title>status</title>
-<polygon fill="#777777" stroke="#777777" points="188,-108 134,-108 134,-84 188,-84 188,-108"/>
-<text text-anchor="middle" x="161" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">status</text>
-</g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;status -->
-<g id="proc~~util_coord_b2h_tp~~CallsGraph_edge5" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;status</title>
-<path fill="none" stroke="#000000" d="M81.52,-125.96C94.8,-120.89 110.34,-114.96 124.06,-109.72"/>
-<polygon fill="#000000" stroke="#000000" points="125.58,-112.89 133.68,-106.05 123.09,-106.35 125.58,-112.89"/>
-</g>
-<!-- vh -->
-<g id="proc~~util_coord_b2h_tp~~CallsGraph_node7" class="node">
-<title>vh</title>
-<polygon fill="#777777" stroke="#777777" points="188,-66 134,-66 134,-42 188,-42 188,-66"/>
-<text text-anchor="middle" x="161" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
-</g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;vh -->
-<g id="proc~~util_coord_b2h_tp~~CallsGraph_edge6" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;vh</title>
-<path fill="none" stroke="#000000" d="M65.76,-125.96C84.14,-111.93 114.72,-88.58 136.04,-72.3"/>
-<polygon fill="#000000" stroke="#000000" points="138.45,-74.86 144.27,-66.01 134.2,-69.3 138.45,-74.86"/>
-</g>
-<!-- vb -->
-<g id="proc~~util_coord_b2h_tp~~CallsGraph_node8" class="node">
-<title>vb</title>
-<polygon fill="#777777" stroke="#777777" points="188,-24 134,-24 134,0 188,0 188,-24"/>
-<text text-anchor="middle" x="161" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vb</text>
-</g>
-<!-- proc~util_coord_b2h_tp&#45;&gt;vb -->
-<g id="proc~~util_coord_b2h_tp~~CallsGraph_edge7" class="edge">
-<title>proc~util_coord_b2h_tp&#45;&gt;vb</title>
-<path fill="none" stroke="#000000" d="M58.31,-125.97C72.58,-105.71 103.2,-63.94 134,-33 134.66,-32.33 135.35,-31.67 136.04,-31.01"/>
-<polygon fill="#000000" stroke="#000000" points="138.66,-33.37 143.85,-24.14 134.03,-28.11 138.66,-33.37"/>
-</g>
-</g>
-</svg>
-</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
-    <p>Nodes of different colours represent the following: </p>
-    <?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.47.1 (20210417.1919)
- -->
-<!-- Title: Graph Key Pages: 1 -->
-<svg width="560pt" height="32pt"
- viewBox="0.00 0.00 559.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)">
-<title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
-<!-- Subroutine -->
-<g id="node1" class="node">
-<title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
-<text text-anchor="middle" x="32" y="-9.6" 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="136,-24 82,-24 82,0 136,0 136,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" 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="209.5,-24 154.5,-24 154.5,0 209.5,0 209.5,-24"/>
-<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
-</g>
-<!-- Unknown Procedure Type -->
-<g id="node4" class="node">
-<title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,0 364,0 364,-24"/>
-<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
-</g>
-<!-- Program -->
-<g id="node5" class="node">
-<title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,0 436,0 436,-24"/>
-<text text-anchor="middle" x="409" y="-9.6" 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="551.5,-24 454.5,-24 454.5,0 551.5,0 551.5,-24"/>
-<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
-</g>
-</g>
-</svg>
-
-    
-    <p>Solid arrows point from a procedure to one which it calls. Dashed 
-    arrows point from an interface to procedures which implement that interface.
-    This could include the module procedures in a generic interface or the
-    implementation in a submodule of an interface in a parent module.
-    </p>
-    </div></div></div></div>
-      </div>
-    </div>
-     
      
     <div class="panel panel-default">
       <div class="panel-heading">
diff --git a/docs/proc/util_coord_h2b_pl.html b/docs/proc/util_coord_h2b_pl.html
index c95e6b7b4..def2aa320 100644
--- a/docs/proc/util_coord_h2b_pl.html
+++ b/docs/proc/util_coord_h2b_pl.html
@@ -136,7 +136,7 @@ <h1>util_coord_h2b_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">26 statements</a>
+    title=" 0.1% of total for procedures.">28 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~242"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~240"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/util_coord_h2b_tp.html b/docs/proc/util_coord_h2b_tp.html
index 9cd53f0da..632cc1411 100644
--- a/docs/proc/util_coord_h2b_tp.html
+++ b/docs/proc/util_coord_h2b_tp.html
@@ -136,7 +136,7 @@ <h1>util_coord_h2b_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">17 statements</a>
+    title=" 0.0% of total for procedures.">14 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~243"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~241"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -271,176 +271,6 @@ <h3>Arguments</h3>
     <br>
     
     
-    <div class="panel panel-default">
-      <div class="panel-heading">
-  <h3 class="panel-title">Calls</h3>
-      </div>
-      <div class="panel-body">
-  <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.47.1 (20210417.1919)
- -->
-<!-- Title: proc~~util_coord_h2b_tp~~CallsGraph Pages: 1 -->
-<svg id="procutil_coord_h2b_tpCallsGraph" width="196pt" height="284pt"
- viewBox="0.00 0.00 196.00 284.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~util_coord_h2b_tp~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 280)">
-<title>proc~~util_coord_h2b_tp~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-280 192,-280 192,4 -4,4"/>
-<!-- proc~util_coord_h2b_tp -->
-<g id="proc~~util_coord_h2b_tp~~CallsGraph_node1" class="node">
-<title>proc~util_coord_h2b_tp</title>
-<polygon fill="none" stroke="black" points="98,-150 0,-150 0,-126 98,-126 98,-150"/>
-<text text-anchor="middle" x="49" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_coord_h2b_tp</text>
-</g>
-<!-- vbcb -->
-<g id="proc~~util_coord_h2b_tp~~CallsGraph_node2" class="node">
-<title>vbcb</title>
-<polygon fill="#777777" stroke="#777777" points="188,-276 134,-276 134,-252 188,-252 188,-276"/>
-<text text-anchor="middle" x="161" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vbcb</text>
-</g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;vbcb -->
-<g id="proc~~util_coord_h2b_tp~~CallsGraph_edge1" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;vbcb</title>
-<path fill="none" stroke="#000000" d="M58.31,-150.03C72.58,-170.29 103.2,-212.06 134,-243 134.66,-243.67 135.35,-244.33 136.04,-244.99"/>
-<polygon fill="#000000" stroke="#000000" points="134.03,-247.89 143.85,-251.86 138.66,-242.63 134.03,-247.89"/>
-</g>
-<!-- xh -->
-<g id="proc~~util_coord_h2b_tp~~CallsGraph_node3" class="node">
-<title>xh</title>
-<polygon fill="#777777" stroke="#777777" points="188,-234 134,-234 134,-210 188,-210 188,-234"/>
-<text text-anchor="middle" x="161" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
-</g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;xh -->
-<g id="proc~~util_coord_h2b_tp~~CallsGraph_edge2" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;xh</title>
-<path fill="none" stroke="#000000" d="M65.76,-150.04C84.14,-164.07 114.72,-187.42 136.04,-203.7"/>
-<polygon fill="#000000" stroke="#000000" points="134.2,-206.7 144.27,-209.99 138.45,-201.14 134.2,-206.7"/>
-</g>
-<!-- xb -->
-<g id="proc~~util_coord_h2b_tp~~CallsGraph_node4" class="node">
-<title>xb</title>
-<polygon fill="#777777" stroke="#777777" points="188,-192 134,-192 134,-168 188,-168 188,-192"/>
-<text text-anchor="middle" x="161" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xb</text>
-</g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;xb -->
-<g id="proc~~util_coord_h2b_tp~~CallsGraph_edge3" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;xb</title>
-<path fill="none" stroke="#000000" d="M81.52,-150.04C94.8,-155.11 110.34,-161.04 124.06,-166.28"/>
-<polygon fill="#000000" stroke="#000000" points="123.09,-169.65 133.68,-169.95 125.58,-163.11 123.09,-169.65"/>
-</g>
-<!-- xbcb -->
-<g id="proc~~util_coord_h2b_tp~~CallsGraph_node5" class="node">
-<title>xbcb</title>
-<polygon fill="#777777" stroke="#777777" points="188,-150 134,-150 134,-126 188,-126 188,-150"/>
-<text text-anchor="middle" x="161" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xbcb</text>
-</g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;xbcb -->
-<g id="proc~~util_coord_h2b_tp~~CallsGraph_edge4" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;xbcb</title>
-<path fill="none" stroke="#000000" d="M98.25,-138C106.76,-138 115.48,-138 123.6,-138"/>
-<polygon fill="#000000" stroke="#000000" points="123.85,-141.5 133.85,-138 123.85,-134.5 123.85,-141.5"/>
-</g>
-<!-- status -->
-<g id="proc~~util_coord_h2b_tp~~CallsGraph_node6" class="node">
-<title>status</title>
-<polygon fill="#777777" stroke="#777777" points="188,-108 134,-108 134,-84 188,-84 188,-108"/>
-<text text-anchor="middle" x="161" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">status</text>
-</g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;status -->
-<g id="proc~~util_coord_h2b_tp~~CallsGraph_edge5" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;status</title>
-<path fill="none" stroke="#000000" d="M81.52,-125.96C94.8,-120.89 110.34,-114.96 124.06,-109.72"/>
-<polygon fill="#000000" stroke="#000000" points="125.58,-112.89 133.68,-106.05 123.09,-106.35 125.58,-112.89"/>
-</g>
-<!-- vh -->
-<g id="proc~~util_coord_h2b_tp~~CallsGraph_node7" class="node">
-<title>vh</title>
-<polygon fill="#777777" stroke="#777777" points="188,-66 134,-66 134,-42 188,-42 188,-66"/>
-<text text-anchor="middle" x="161" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
-</g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;vh -->
-<g id="proc~~util_coord_h2b_tp~~CallsGraph_edge6" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;vh</title>
-<path fill="none" stroke="#000000" d="M65.76,-125.96C84.14,-111.93 114.72,-88.58 136.04,-72.3"/>
-<polygon fill="#000000" stroke="#000000" points="138.45,-74.86 144.27,-66.01 134.2,-69.3 138.45,-74.86"/>
-</g>
-<!-- vb -->
-<g id="proc~~util_coord_h2b_tp~~CallsGraph_node8" class="node">
-<title>vb</title>
-<polygon fill="#777777" stroke="#777777" points="188,-24 134,-24 134,0 188,0 188,-24"/>
-<text text-anchor="middle" x="161" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vb</text>
-</g>
-<!-- proc~util_coord_h2b_tp&#45;&gt;vb -->
-<g id="proc~~util_coord_h2b_tp~~CallsGraph_edge7" class="edge">
-<title>proc~util_coord_h2b_tp&#45;&gt;vb</title>
-<path fill="none" stroke="#000000" d="M58.31,-125.97C72.58,-105.71 103.2,-63.94 134,-33 134.66,-32.33 135.35,-31.67 136.04,-31.01"/>
-<polygon fill="#000000" stroke="#000000" points="138.66,-33.37 143.85,-24.14 134.03,-28.11 138.66,-33.37"/>
-</g>
-</g>
-</svg>
-</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
-    <p>Nodes of different colours represent the following: </p>
-    <?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.47.1 (20210417.1919)
- -->
-<!-- Title: Graph Key Pages: 1 -->
-<svg width="560pt" height="32pt"
- viewBox="0.00 0.00 559.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)">
-<title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 555.5,-28 555.5,4 -4,4"/>
-<!-- Subroutine -->
-<g id="node1" class="node">
-<title>Subroutine</title>
-<polygon fill="#d9534f" stroke="#d9534f" points="64,-24 0,-24 0,0 64,0 64,-24"/>
-<text text-anchor="middle" x="32" y="-9.6" 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="136,-24 82,-24 82,0 136,0 136,-24"/>
-<text text-anchor="middle" x="109" y="-9.6" 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="209.5,-24 154.5,-24 154.5,0 209.5,0 209.5,-24"/>
-<text text-anchor="middle" x="182" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Interface</text>
-</g>
-<!-- Unknown Procedure Type -->
-<g id="node4" class="node">
-<title>Unknown Procedure Type</title>
-<polygon fill="#777777" stroke="#777777" points="364,-24 228,-24 228,0 364,0 364,-24"/>
-<text text-anchor="middle" x="296" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">Unknown Procedure Type</text>
-</g>
-<!-- Program -->
-<g id="node5" class="node">
-<title>Program</title>
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="436,-24 382,-24 382,0 436,0 436,-24"/>
-<text text-anchor="middle" x="409" y="-9.6" 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="551.5,-24 454.5,-24 454.5,0 551.5,0 551.5,-24"/>
-<text text-anchor="middle" x="503" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
-</g>
-</g>
-</svg>
-
-    
-    <p>Solid arrows point from a procedure to one which it calls. Dashed 
-    arrows point from an interface to procedures which implement that interface.
-    This could include the module procedures in a generic interface or the
-    implementation in a submodule of an interface in a parent module.
-    </p>
-    </div></div></div></div>
-      </div>
-    </div>
-     
      
     <div class="panel panel-default">
       <div class="panel-heading">
diff --git a/docs/proc/util_exit.html b/docs/proc/util_exit.html
index 3ffd8ff3b..c03f15bbb 100644
--- a/docs/proc/util_exit.html
+++ b/docs/proc/util_exit.html
@@ -268,581 +268,551 @@ <h3 class="panel-title">Called by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~util_exit~~CalledByGraph Pages: 1 -->
-<svg id="procutil_exitCalledByGraph" width="641pt" height="597pt"
- viewBox="0.00 0.00 641.00 596.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~util_exit~~CalledByGraph" class="graph" transform="scale(0.8 0.8) rotate(0) translate(4 738)">
+<svg id="procutil_exitCalledByGraph" width="639pt" height="742pt"
+ viewBox="0.00 0.00 639.00 742.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_exit~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 738)">
 <title>proc~~util_exit~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-738 793,-738 793,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-738 635,-738 635,4 -4,4"/>
 <!-- proc~util_exit -->
 <g id="proc~~util_exit~~CalledByGraph_node1" class="node">
 <title>proc~util_exit</title>
-<polygon fill="none" stroke="black" points="789,-381 735,-381 735,-357 789,-357 789,-381"/>
-<text text-anchor="middle" x="762" y="-366.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_exit</text>
+<polygon fill="none" stroke="black" points="631,-381 577,-381 577,-357 631,-357 631,-381"/>
+<text text-anchor="middle" x="604" y="-366.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_exit</text>
 </g>
 <!-- interface~util_exit -->
 <g id="proc~~util_exit~~CalledByGraph_node2" class="node">
 <title>interface~util_exit</title>
 <g id="a_proc~~util_exit~~CalledByGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" points="699,-381 645,-381 645,-357 699,-357 699,-381"/>
-<text text-anchor="middle" x="672" y="-366.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="541,-381 487,-381 487,-357 541,-357 541,-381"/>
+<text text-anchor="middle" x="514" y="-366.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
 <!-- interface~util_exit&#45;&gt;proc~util_exit -->
 <g id="proc~~util_exit~~CalledByGraph_edge1" class="edge">
 <title>interface~util_exit&#45;&gt;proc~util_exit</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.4,-369C707.39,-369 716.31,-369 724.82,-369"/>
-<polygon fill="#000000" stroke="#000000" points="724.92,-372.5 734.92,-369 724.92,-365.5 724.92,-372.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M541.4,-369C549.39,-369 558.31,-369 566.82,-369"/>
+<polygon fill="#000000" stroke="#000000" points="566.92,-372.5 576.92,-369 566.92,-365.5 566.92,-372.5"/>
 </g>
-<!-- proc~util_append_tp -->
+<!-- proc~io_get_args -->
 <g id="proc~~util_exit~~CalledByGraph_node3" class="node">
-<title>proc~util_append_tp</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node3"><a xlink:href=".././proc/util_append_tp.html" xlink:title="util_append_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="586.5,-734 503.5,-734 503.5,-710 586.5,-710 586.5,-734"/>
-<text text-anchor="middle" x="545" y="-719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
+<title>proc~io_get_args</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node3"><a xlink:href=".././proc/io_get_args.html" xlink:title="io_get_args">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="421.5,-734 352.5,-734 352.5,-710 421.5,-710 421.5,-734"/>
+<text text-anchor="middle" x="387" y="-719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
 </a>
 </g>
 </g>
-<!-- proc~util_append_tp&#45;&gt;interface~util_exit -->
+<!-- proc~io_get_args&#45;&gt;interface~util_exit -->
 <g id="proc~~util_exit~~CalledByGraph_edge2" class="edge">
-<title>proc~util_append_tp&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M586.78,-715.37C595.14,-712.26 603.17,-707.69 609,-701 649.7,-654.3 665.45,-458.55 669.71,-391.58"/>
-<polygon fill="#000000" stroke="#000000" points="673.22,-391.5 670.34,-381.31 666.23,-391.07 673.22,-391.5"/>
+<title>proc~io_get_args&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M421.56,-717.7C432.38,-714.69 443.5,-709.6 451,-701 491.7,-654.3 507.45,-458.55 511.71,-391.58"/>
+<polygon fill="#000000" stroke="#000000" points="515.22,-391.5 512.34,-381.31 508.23,-391.07 515.22,-391.5"/>
 </g>
-<!-- proc~util_valid -->
+<!-- proc~io_read_param_in -->
 <g id="proc~~util_exit~~CalledByGraph_node4" class="node">
-<title>proc~util_valid</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node4"><a xlink:href=".././proc/util_valid.html" xlink:title="util_valid">
-<polygon fill="#d9534f" stroke="#d9534f" points="572,-692 518,-692 518,-668 572,-668 572,-692"/>
-<text text-anchor="middle" x="545" y="-677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid</text>
+<title>proc~io_read_param_in</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node4"><a xlink:href=".././proc/io_read_param_in.html" xlink:title="io_read_param_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="437,-692 337,-692 337,-668 437,-668 437,-692"/>
+<text text-anchor="middle" x="387" y="-677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_param_in</text>
 </a>
 </g>
 </g>
-<!-- proc~util_valid&#45;&gt;interface~util_exit -->
+<!-- proc~io_read_param_in&#45;&gt;interface~util_exit -->
 <g id="proc~~util_exit~~CalledByGraph_edge3" class="edge">
-<title>proc~util_valid&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M572,-677.38C584.87,-674.74 599.62,-669.48 609,-659 644.79,-618.99 663.41,-451.75 669.09,-391.1"/>
-<polygon fill="#000000" stroke="#000000" points="672.58,-391.34 670,-381.07 665.61,-390.71 672.58,-391.34"/>
+<title>proc~io_read_param_in&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M437.26,-669.44C442.41,-666.72 447.16,-663.3 451,-659 486.79,-618.99 505.41,-451.75 511.09,-391.1"/>
+<polygon fill="#000000" stroke="#000000" points="514.58,-391.34 512,-381.07 507.61,-390.71 514.58,-391.34"/>
 </g>
-<!-- proc~io_get_args -->
+<!-- proc~util_append_tp -->
 <g id="proc~~util_exit~~CalledByGraph_node5" class="node">
-<title>proc~io_get_args</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node5"><a xlink:href=".././proc/io_get_args.html" xlink:title="io_get_args">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="579.5,-650 510.5,-650 510.5,-626 579.5,-626 579.5,-650"/>
-<text text-anchor="middle" x="545" y="-635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
+<title>proc~util_append_tp</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node5"><a xlink:href=".././proc/util_append_tp.html" xlink:title="util_append_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="428.5,-650 345.5,-650 345.5,-626 428.5,-626 428.5,-650"/>
+<text text-anchor="middle" x="387" y="-635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~io_get_args&#45;&gt;interface~util_exit -->
+<!-- proc~util_append_tp&#45;&gt;interface~util_exit -->
 <g id="proc~~util_exit~~CalledByGraph_edge4" class="edge">
-<title>proc~io_get_args&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M579.6,-633.35C590.29,-630.31 601.32,-625.29 609,-617 639.82,-583.72 660.95,-445.46 668.22,-391.1"/>
-<polygon fill="#000000" stroke="#000000" points="671.7,-391.48 669.52,-381.12 664.75,-390.58 671.7,-391.48"/>
+<title>proc~util_append_tp&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M428.81,-630.99C437.08,-627.89 445.05,-623.43 451,-617 481.82,-583.72 502.95,-445.46 510.22,-391.1"/>
+<polygon fill="#000000" stroke="#000000" points="513.7,-391.48 511.52,-381.12 506.75,-390.58 513.7,-391.48"/>
 </g>
-<!-- proc~io_read_body_in -->
+<!-- proc~io_dump_param -->
 <g id="proc~~util_exit~~CalledByGraph_node6" class="node">
-<title>proc~io_read_body_in</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node6"><a xlink:href=".././proc/io_read_body_in.html" xlink:title="io_read_body_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="591,-608 499,-608 499,-584 591,-584 591,-608"/>
-<text text-anchor="middle" x="545" y="-593.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_body_in</text>
+<title>proc~io_dump_param</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node6"><a xlink:href=".././proc/io_dump_param.html" xlink:title="io_dump_param">
+<polygon fill="#d9534f" stroke="#d9534f" points="432.5,-608 341.5,-608 341.5,-584 432.5,-584 432.5,-608"/>
+<text text-anchor="middle" x="387" y="-593.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_param</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_body_in&#45;&gt;interface~util_exit -->
+<!-- proc~io_dump_param&#45;&gt;interface~util_exit -->
 <g id="proc~~util_exit~~CalledByGraph_edge5" class="edge">
-<title>proc~io_read_body_in&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M591.13,-586.93C597.76,-584 604.02,-580.13 609,-575 659.05,-523.46 668.89,-433.06 670.69,-391.3"/>
-<polygon fill="#000000" stroke="#000000" points="674.19,-391.22 671.01,-381.11 667.2,-391 674.19,-391.22"/>
+<title>proc~io_dump_param&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M432.8,-587.07C439.56,-584.13 445.94,-580.21 451,-575 501.05,-523.46 510.89,-433.06 512.69,-391.3"/>
+<polygon fill="#000000" stroke="#000000" points="516.19,-391.22 513.01,-381.11 509.2,-391 516.19,-391.22"/>
 </g>
-<!-- proc~io_read_param_in -->
+<!-- proc~io_dump_swiftest -->
 <g id="proc~~util_exit~~CalledByGraph_node7" class="node">
-<title>proc~io_read_param_in</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node7"><a xlink:href=".././proc/io_read_param_in.html" xlink:title="io_read_param_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="595,-566 495,-566 495,-542 595,-542 595,-566"/>
-<text text-anchor="middle" x="545" y="-551.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_param_in</text>
-</a>
-</g>
-</g>
-<!-- proc~io_read_param_in&#45;&gt;interface~util_exit -->
-<g id="proc~~util_exit~~CalledByGraph_edge16" class="edge">
-<title>proc~io_read_param_in&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M588.59,-541.98C596.07,-538.41 603.28,-533.83 609,-528 646.83,-489.42 662.23,-425.11 667.95,-391.31"/>
-<polygon fill="#000000" stroke="#000000" points="671.46,-391.52 669.54,-381.1 664.55,-390.44 671.46,-391.52"/>
-</g>
-<!-- proc~io_write_hdr -->
-<g id="proc~~util_exit~~CalledByGraph_node8" class="node">
-<title>proc~io_write_hdr</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node8"><a xlink:href=".././proc/io_write_hdr.html" xlink:title="io_write_hdr">
-<polygon fill="#d9534f" stroke="#d9534f" points="580.5,-486 509.5,-486 509.5,-462 580.5,-462 580.5,-486"/>
-<text text-anchor="middle" x="545" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_hdr</text>
+<title>proc~io_dump_swiftest</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node7"><a xlink:href=".././proc/io_dump_swiftest.html" xlink:title="io_dump_swiftest">
+<polygon fill="#d9534f" stroke="#d9534f" points="434.5,-566 339.5,-566 339.5,-542 434.5,-542 434.5,-566"/>
+<text text-anchor="middle" x="387" y="-551.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_swiftest</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_hdr&#45;&gt;interface~util_exit -->
-<g id="proc~~util_exit~~CalledByGraph_edge9" class="edge">
-<title>proc~io_write_hdr&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M580.53,-466.66C590.33,-463.51 600.61,-459.1 609,-453 631.73,-436.49 649.66,-409.18 660.27,-390.2"/>
-<polygon fill="#000000" stroke="#000000" points="663.49,-391.6 665.14,-381.14 657.33,-388.29 663.49,-391.6"/>
+<!-- proc~io_dump_swiftest&#45;&gt;interface~util_exit -->
+<g id="proc~~util_exit~~CalledByGraph_edge6" class="edge">
+<title>proc~io_dump_swiftest&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M434.75,-543.77C440.71,-541 446.35,-537.47 451,-533 491.4,-494.17 505.76,-426.39 510.63,-391.37"/>
+<polygon fill="#000000" stroke="#000000" points="514.13,-391.58 511.91,-381.22 507.19,-390.71 514.13,-391.58"/>
 </g>
 <!-- proc~io_read_cb_in -->
-<g id="proc~~util_exit~~CalledByGraph_node9" class="node">
+<g id="proc~~util_exit~~CalledByGraph_node8" class="node">
 <title>proc~io_read_cb_in</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node9"><a xlink:href=".././proc/io_read_cb_in.html" xlink:title="io_read_cb_in">
-<polygon fill="#d9534f" stroke="#d9534f" points="585,-444 505,-444 505,-420 585,-420 585,-444"/>
-<text text-anchor="middle" x="545" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_cb_in</text>
+<g id="a_proc~~util_exit~~CalledByGraph_node8"><a xlink:href=".././proc/io_read_cb_in.html" xlink:title="io_read_cb_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="427,-524 347,-524 347,-500 427,-500 427,-524"/>
+<text text-anchor="middle" x="387" y="-509.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_cb_in</text>
 </a>
 </g>
 </g>
 <!-- proc~io_read_cb_in&#45;&gt;interface~util_exit -->
-<g id="proc~~util_exit~~CalledByGraph_edge18" class="edge">
+<g id="proc~~util_exit~~CalledByGraph_edge7" class="edge">
 <title>proc~io_read_cb_in&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M585.32,-420.74C593.32,-417.94 601.56,-414.67 609,-411 622.25,-404.46 635.95,-395.45 647.09,-387.45"/>
-<polygon fill="#000000" stroke="#000000" points="649.44,-390.07 655.42,-381.32 645.29,-384.43 649.44,-390.07"/>
+<path fill="none" stroke="#000000" d="M427.14,-504.17C435.68,-501.11 444.19,-496.87 451,-491 481.99,-464.3 499.33,-418.34 507.38,-391.1"/>
+<polygon fill="#000000" stroke="#000000" points="510.79,-391.9 510.1,-381.33 504.04,-390.02 510.79,-391.9"/>
 </g>
-<!-- proc~io_dump_param -->
-<g id="proc~~util_exit~~CalledByGraph_node10" class="node">
-<title>proc~io_dump_param</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node10"><a xlink:href=".././proc/io_dump_param.html" xlink:title="io_dump_param">
-<polygon fill="#d9534f" stroke="#d9534f" points="590.5,-402 499.5,-402 499.5,-378 590.5,-378 590.5,-402"/>
-<text text-anchor="middle" x="545" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_param</text>
+<!-- proc~io_read_frame_body -->
+<g id="proc~~util_exit~~CalledByGraph_node9" class="node">
+<title>proc~io_read_frame_body</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node9"><a xlink:href=".././proc/io_read_frame_body.html" xlink:title="io_read_frame_body">
+<polygon fill="#d9534f" stroke="#d9534f" points="443,-482 331,-482 331,-458 443,-458 443,-482"/>
+<text text-anchor="middle" x="387" y="-467.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_body</text>
 </a>
 </g>
 </g>
-<!-- proc~io_dump_param&#45;&gt;interface~util_exit -->
-<g id="proc~~util_exit~~CalledByGraph_edge10" class="edge">
-<title>proc~io_dump_param&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M590.77,-382.48C605.18,-380.06 620.95,-377.41 634.67,-375.1"/>
-<polygon fill="#000000" stroke="#000000" points="635.42,-378.53 644.7,-373.42 634.26,-371.62 635.42,-378.53"/>
+<!-- proc~io_read_frame_body&#45;&gt;interface~util_exit -->
+<g id="proc~~util_exit~~CalledByGraph_edge8" class="edge">
+<title>proc~io_read_frame_body&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M425.59,-458C434.37,-454.27 443.38,-449.62 451,-444 471.19,-429.1 488.82,-406.25 500.06,-389.69"/>
+<polygon fill="#000000" stroke="#000000" points="503.06,-391.5 505.63,-381.22 497.21,-387.66 503.06,-391.5"/>
 </g>
-<!-- proc~io_write_discard -->
-<g id="proc~~util_exit~~CalledByGraph_node11" class="node">
-<title>proc~io_write_discard</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node11"><a xlink:href=".././proc/io_write_discard.html" xlink:title="io_write_discard">
-<polygon fill="#d9534f" stroke="#d9534f" points="590,-360 500,-360 500,-336 590,-336 590,-360"/>
-<text text-anchor="middle" x="545" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_discard</text>
+<!-- proc~io_write_hdr -->
+<g id="proc~~util_exit~~CalledByGraph_node10" class="node">
+<title>proc~io_write_hdr</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node10"><a xlink:href=".././proc/io_write_hdr.html" xlink:title="io_write_hdr">
+<polygon fill="#d9534f" stroke="#d9534f" points="422.5,-402 351.5,-402 351.5,-378 422.5,-378 422.5,-402"/>
+<text text-anchor="middle" x="387" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_hdr</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_discard&#45;&gt;interface~util_exit -->
-<g id="proc~~util_exit~~CalledByGraph_edge11" class="edge">
-<title>proc~io_write_discard&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M590.07,-355.4C604.63,-357.85 620.66,-360.54 634.59,-362.88"/>
-<polygon fill="#000000" stroke="#000000" points="634.32,-366.39 644.76,-364.59 635.48,-359.48 634.32,-366.39"/>
+<!-- proc~io_write_hdr&#45;&gt;interface~util_exit -->
+<g id="proc~~util_exit~~CalledByGraph_edge9" class="edge">
+<title>proc~io_write_hdr&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M422.82,-384.15C439.57,-381.34 459.64,-377.96 476.6,-375.12"/>
+<polygon fill="#000000" stroke="#000000" points="477.41,-378.53 486.69,-373.42 476.25,-371.63 477.41,-378.53"/>
 </g>
 <!-- proc~io_read_encounter -->
-<g id="proc~~util_exit~~CalledByGraph_node12" class="node">
+<g id="proc~~util_exit~~CalledByGraph_node11" class="node">
 <title>proc~io_read_encounter</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node12"><a xlink:href=".././proc/io_read_encounter.html" xlink:title="io_read_encounter">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="596.5,-318 493.5,-318 493.5,-294 596.5,-294 596.5,-318"/>
-<text text-anchor="middle" x="545" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_encounter</text>
+<g id="a_proc~~util_exit~~CalledByGraph_node11"><a xlink:href=".././proc/io_read_encounter.html" xlink:title="io_read_encounter">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="438.5,-360 335.5,-360 335.5,-336 438.5,-336 438.5,-360"/>
+<text text-anchor="middle" x="387" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_encounter</text>
 </a>
 </g>
 </g>
 <!-- proc~io_read_encounter&#45;&gt;interface~util_exit -->
-<g id="proc~~util_exit~~CalledByGraph_edge12" class="edge">
+<g id="proc~~util_exit~~CalledByGraph_edge10" class="edge">
 <title>proc~io_read_encounter&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M587.66,-318.09C594.91,-320.7 602.28,-323.68 609,-327 622.25,-333.54 635.95,-342.55 647.09,-350.55"/>
-<polygon fill="#000000" stroke="#000000" points="645.29,-353.57 655.42,-356.68 649.44,-347.93 645.29,-353.57"/>
+<path fill="none" stroke="#000000" d="M438.84,-356.54C451.6,-358.68 465.03,-360.94 476.9,-362.93"/>
+<polygon fill="#000000" stroke="#000000" points="476.43,-366.41 486.87,-364.61 477.59,-359.5 476.43,-366.41"/>
 </g>
 <!-- proc~io_read_frame_cb -->
-<g id="proc~~util_exit~~CalledByGraph_node13" class="node">
+<g id="proc~~util_exit~~CalledByGraph_node12" class="node">
 <title>proc~io_read_frame_cb</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node13"><a xlink:href=".././proc/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
-<polygon fill="#d9534f" stroke="#d9534f" points="595,-276 495,-276 495,-252 595,-252 595,-276"/>
-<text text-anchor="middle" x="545" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
+<g id="a_proc~~util_exit~~CalledByGraph_node12"><a xlink:href=".././proc/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
+<polygon fill="#d9534f" stroke="#d9534f" points="437,-318 337,-318 337,-294 437,-294 437,-318"/>
+<text text-anchor="middle" x="387" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
 </a>
 </g>
 </g>
 <!-- proc~io_read_frame_cb&#45;&gt;interface~util_exit -->
-<g id="proc~~util_exit~~CalledByGraph_edge13" class="edge">
+<g id="proc~~util_exit~~CalledByGraph_edge11" class="edge">
 <title>proc~io_read_frame_cb&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M593.02,-276.04C598.67,-278.52 604.15,-281.48 609,-285 631.73,-301.51 649.66,-328.82 660.27,-347.8"/>
-<polygon fill="#000000" stroke="#000000" points="657.33,-349.71 665.14,-356.86 663.49,-346.4 657.33,-349.71"/>
+<path fill="none" stroke="#000000" d="M429.66,-318.09C436.91,-320.7 444.28,-323.68 451,-327 464.25,-333.54 477.95,-342.55 489.09,-350.55"/>
+<polygon fill="#000000" stroke="#000000" points="487.29,-353.57 497.42,-356.68 491.44,-347.93 487.29,-353.57"/>
 </g>
-<!-- proc~setup_construct_system -->
-<g id="proc~~util_exit~~CalledByGraph_node14" class="node">
-<title>proc~setup_construct_system</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node14"><a xlink:href=".././proc/setup_construct_system.html" xlink:title="setup_construct_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="609,-234 481,-234 481,-210 609,-210 609,-234"/>
-<text text-anchor="middle" x="545" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
-</a>
-</g>
-</g>
-<!-- proc~setup_construct_system&#45;&gt;interface~util_exit -->
-<g id="proc~~util_exit~~CalledByGraph_edge14" class="edge">
-<title>proc~setup_construct_system&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M595.25,-234.01C600.21,-236.47 604.92,-239.44 609,-243 640.78,-270.74 657.92,-318.54 665.7,-346.62"/>
-<polygon fill="#000000" stroke="#000000" points="662.41,-347.86 668.31,-356.66 669.18,-346.1 662.41,-347.86"/>
-</g>
-<!-- proc~io_dump_swiftest -->
-<g id="proc~~util_exit~~CalledByGraph_node15" class="node">
-<title>proc~io_dump_swiftest</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node15"><a xlink:href=".././proc/io_dump_swiftest.html" xlink:title="io_dump_swiftest">
-<polygon fill="#d9534f" stroke="#d9534f" points="592.5,-192 497.5,-192 497.5,-168 592.5,-168 592.5,-192"/>
-<text text-anchor="middle" x="545" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_swiftest</text>
+<!-- proc~io_write_encounter -->
+<g id="proc~~util_exit~~CalledByGraph_node13" class="node">
+<title>proc~io_write_encounter</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node13"><a xlink:href=".././proc/io_write_encounter.html" xlink:title="io_write_encounter">
+<polygon fill="#d9534f" stroke="#d9534f" points="438.5,-276 335.5,-276 335.5,-252 438.5,-252 438.5,-276"/>
+<text text-anchor="middle" x="387" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
 </a>
 </g>
 </g>
-<!-- proc~io_dump_swiftest&#45;&gt;interface~util_exit -->
-<g id="proc~~util_exit~~CalledByGraph_edge15" class="edge">
-<title>proc~io_dump_swiftest&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M592.78,-190.2C598.74,-192.98 604.36,-196.51 609,-201 650.31,-241.01 664.29,-310.92 668.87,-346.62"/>
-<polygon fill="#000000" stroke="#000000" points="665.44,-347.4 670.05,-356.93 672.39,-346.6 665.44,-347.4"/>
+<!-- proc~io_write_encounter&#45;&gt;interface~util_exit -->
+<g id="proc~~util_exit~~CalledByGraph_edge12" class="edge">
+<title>proc~io_write_encounter&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M435.02,-276.04C440.67,-278.52 446.15,-281.48 451,-285 473.73,-301.51 491.66,-328.82 502.27,-347.8"/>
+<polygon fill="#000000" stroke="#000000" points="499.33,-349.71 507.14,-356.86 505.49,-346.4 499.33,-349.71"/>
 </g>
 <!-- proc~io_write_frame_system -->
-<g id="proc~~util_exit~~CalledByGraph_node16" class="node">
+<g id="proc~~util_exit~~CalledByGraph_node14" class="node">
 <title>proc~io_write_frame_system</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node16"><a xlink:href=".././proc/io_write_frame_system.html" xlink:title="io_write_frame_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="442.5,-505 319.5,-505 319.5,-481 442.5,-481 442.5,-505"/>
-<text text-anchor="middle" x="381" y="-490.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</text>
+<g id="a_proc~~util_exit~~CalledByGraph_node14"><a xlink:href=".././proc/io_write_frame_system.html" xlink:title="io_write_frame_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="284.5,-421 161.5,-421 161.5,-397 284.5,-397 284.5,-421"/>
+<text text-anchor="middle" x="223" y="-406.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</text>
 </a>
 </g>
 </g>
 <!-- proc~io_write_frame_system&#45;&gt;interface~util_exit -->
-<g id="proc~~util_exit~~CalledByGraph_edge6" class="edge">
+<g id="proc~~util_exit~~CalledByGraph_edge13" class="edge">
 <title>proc~io_write_frame_system&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M420.69,-505.07C468.76,-517.6 551.45,-530.82 609,-495 645.52,-472.27 661.15,-421.01 667.34,-391.35"/>
-<polygon fill="#000000" stroke="#000000" points="670.85,-391.62 669.27,-381.14 663.97,-390.32 670.85,-391.62"/>
+<path fill="none" stroke="#000000" d="M284.69,-419.31C331.25,-424.91 396.56,-427.7 451,-411 466.05,-406.38 480.74,-396.73 492.04,-387.84"/>
+<polygon fill="#000000" stroke="#000000" points="494.49,-390.36 499.97,-381.29 490.03,-384.96 494.49,-390.36"/>
 </g>
 <!-- proc~io_write_frame_system&#45;&gt;proc~io_write_hdr -->
-<g id="proc~~util_exit~~CalledByGraph_edge25" class="edge">
+<g id="proc~~util_exit~~CalledByGraph_edge27" class="edge">
 <title>proc~io_write_frame_system&#45;&gt;proc~io_write_hdr</title>
-<path fill="none" stroke="#000000" d="M442.78,-485.87C461.37,-483.69 481.48,-481.33 498.83,-479.3"/>
-<polygon fill="#000000" stroke="#000000" points="499.72,-482.72 509.25,-478.08 498.91,-475.76 499.72,-482.72"/>
+<path fill="none" stroke="#000000" d="M284.78,-401.87C303.37,-399.69 323.48,-397.33 340.83,-395.3"/>
+<polygon fill="#000000" stroke="#000000" points="341.72,-398.72 351.25,-394.08 340.91,-391.76 341.72,-398.72"/>
 </g>
-<!-- proc~io_read_frame_body -->
+<!-- proc~util_valid_id_system -->
+<g id="proc~~util_exit~~CalledByGraph_node15" class="node">
+<title>proc~util_valid_id_system</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node15"><a xlink:href=".././proc/util_valid_id_system.html" xlink:title="util_valid_id_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="441,-234 333,-234 333,-210 441,-210 441,-234"/>
+<text text-anchor="middle" x="387" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid_id_system</text>
+</a>
+</g>
+</g>
+<!-- proc~util_valid_id_system&#45;&gt;interface~util_exit -->
+<g id="proc~~util_exit~~CalledByGraph_edge14" class="edge">
+<title>proc~util_valid_id_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M437.25,-234.01C442.21,-236.47 446.92,-239.44 451,-243 482.78,-270.74 499.92,-318.54 507.7,-346.62"/>
+<polygon fill="#000000" stroke="#000000" points="504.41,-347.86 510.31,-356.66 511.18,-346.1 504.41,-347.86"/>
+</g>
+<!-- proc~setup_construct_system -->
+<g id="proc~~util_exit~~CalledByGraph_node16" class="node">
+<title>proc~setup_construct_system</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node16"><a xlink:href=".././proc/setup_construct_system.html" xlink:title="setup_construct_system">
+<polygon fill="#d9534f" stroke="#d9534f" points="451,-192 323,-192 323,-168 451,-168 451,-192"/>
+<text text-anchor="middle" x="387" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
+</a>
+</g>
+</g>
+<!-- proc~setup_construct_system&#45;&gt;interface~util_exit -->
+<g id="proc~~util_exit~~CalledByGraph_edge15" class="edge">
+<title>proc~setup_construct_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M438.56,-192.09C443.1,-194.53 447.36,-197.47 451,-201 492.31,-241.01 506.29,-310.92 510.87,-346.62"/>
+<polygon fill="#000000" stroke="#000000" points="507.44,-347.4 512.05,-356.93 514.39,-346.6 507.44,-347.4"/>
+</g>
+<!-- proc~io_read_body_in -->
 <g id="proc~~util_exit~~CalledByGraph_node17" class="node">
-<title>proc~io_read_frame_body</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node17"><a xlink:href=".././proc/io_read_frame_body.html" xlink:title="io_read_frame_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="601,-150 489,-150 489,-126 601,-126 601,-150"/>
-<text text-anchor="middle" x="545" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_body</text>
+<title>proc~io_read_body_in</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node17"><a xlink:href=".././proc/io_read_body_in.html" xlink:title="io_read_body_in">
+<polygon fill="#d9534f" stroke="#d9534f" points="433,-150 341,-150 341,-126 433,-126 433,-150"/>
+<text text-anchor="middle" x="387" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_body_in</text>
 </a>
 </g>
 </g>
-<!-- proc~io_read_frame_body&#45;&gt;interface~util_exit -->
-<g id="proc~~util_exit~~CalledByGraph_edge19" class="edge">
-<title>proc~io_read_frame_body&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M597.11,-150.02C601.49,-152.47 605.56,-155.43 609,-159 660.03,-211.83 669.35,-304.55 670.85,-346.85"/>
-<polygon fill="#000000" stroke="#000000" points="667.35,-347 671.09,-356.91 674.35,-346.83 667.35,-347"/>
+<!-- proc~io_read_body_in&#45;&gt;interface~util_exit -->
+<g id="proc~~util_exit~~CalledByGraph_edge16" class="edge">
+<title>proc~io_read_body_in&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M433.15,-147.04C439.78,-149.98 446.03,-153.86 451,-159 502.03,-211.83 511.35,-304.55 512.85,-346.85"/>
+<polygon fill="#000000" stroke="#000000" points="509.35,-347 513.09,-356.91 516.35,-346.83 509.35,-347"/>
 </g>
-<!-- proc~io_write_encounter -->
+<!-- proc~io_write_discard -->
 <g id="proc~~util_exit~~CalledByGraph_node18" class="node">
-<title>proc~io_write_encounter</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node18"><a xlink:href=".././proc/io_write_encounter.html" xlink:title="io_write_encounter">
-<polygon fill="#d9534f" stroke="#d9534f" points="596.5,-108 493.5,-108 493.5,-84 596.5,-84 596.5,-108"/>
-<text text-anchor="middle" x="545" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
+<title>proc~io_write_discard</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node18"><a xlink:href=".././proc/io_write_discard.html" xlink:title="io_write_discard">
+<polygon fill="#d9534f" stroke="#d9534f" points="432,-108 342,-108 342,-84 432,-84 432,-108"/>
+<text text-anchor="middle" x="387" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_discard</text>
 </a>
 </g>
 </g>
-<!-- proc~io_write_encounter&#45;&gt;interface~util_exit -->
+<!-- proc~io_write_discard&#45;&gt;interface~util_exit -->
 <g id="proc~~util_exit~~CalledByGraph_edge17" class="edge">
-<title>proc~io_write_encounter&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M596.67,-107.51C601.25,-110.07 605.48,-113.19 609,-117 640.23,-150.85 661.12,-291.32 668.27,-346.55"/>
-<polygon fill="#000000" stroke="#000000" points="664.82,-347.21 669.55,-356.69 671.77,-346.33 664.82,-347.21"/>
+<title>proc~io_write_discard&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M432.07,-104.29C439.15,-107.3 445.84,-111.41 451,-117 482.23,-150.85 503.12,-291.32 510.27,-346.55"/>
+<polygon fill="#000000" stroke="#000000" points="506.82,-347.21 511.55,-356.69 513.77,-346.33 506.82,-347.21"/>
 </g>
-<!-- proc~util_solve_rkf45 -->
+<!-- proc~util_append_pl -->
 <g id="proc~~util_exit~~CalledByGraph_node19" class="node">
-<title>proc~util_solve_rkf45</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node19"><a xlink:href=".././proc/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="588.5,-66 501.5,-66 501.5,-42 588.5,-42 588.5,-66"/>
-<text text-anchor="middle" x="545" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_rkf45</text>
+<title>proc~util_append_pl</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node19"><a xlink:href=".././proc/util_append_pl.html" xlink:title="util_append_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="428,-66 346,-66 346,-42 428,-42 428,-66"/>
+<text text-anchor="middle" x="387" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_solve_rkf45&#45;&gt;interface~util_exit -->
-<g id="proc~~util_exit~~CalledByGraph_edge8" class="edge">
-<title>proc~util_solve_rkf45&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M588.61,-61.48C596.28,-64.56 603.55,-68.89 609,-75 645.21,-115.58 663.56,-285.11 669.13,-346.6"/>
-<polygon fill="#000000" stroke="#000000" points="665.66,-347.11 670.02,-356.77 672.63,-346.5 665.66,-347.11"/>
+<!-- proc~util_append_pl&#45;&gt;interface~util_exit -->
+<g id="proc~~util_exit~~CalledByGraph_edge18" class="edge">
+<title>proc~util_append_pl&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M428.01,-60.49C436.62,-63.6 444.94,-68.2 451,-75 487.21,-115.58 505.56,-285.11 511.13,-346.6"/>
+<polygon fill="#000000" stroke="#000000" points="507.66,-347.11 512.02,-356.77 514.63,-346.5 507.66,-347.11"/>
 </g>
-<!-- proc~util_append_pl -->
+<!-- proc~util_solve_rkf45 -->
 <g id="proc~~util_exit~~CalledByGraph_node20" class="node">
-<title>proc~util_append_pl</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node20"><a xlink:href=".././proc/util_append_pl.html" xlink:title="util_append_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="586,-24 504,-24 504,0 586,0 586,-24"/>
-<text text-anchor="middle" x="545" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
+<title>proc~util_solve_rkf45</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node20"><a xlink:href=".././proc/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="430.5,-24 343.5,-24 343.5,0 430.5,0 430.5,-24"/>
+<text text-anchor="middle" x="387" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_rkf45</text>
 </a>
 </g>
 </g>
-<!-- proc~util_append_pl&#45;&gt;interface~util_exit -->
-<g id="proc~~util_exit~~CalledByGraph_edge7" class="edge">
-<title>proc~util_append_pl&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M586.13,-18.38C594.74,-21.5 603.02,-26.13 609,-33 650.21,-80.39 665.67,-279.27 669.78,-346.6"/>
-<polygon fill="#000000" stroke="#000000" points="666.3,-347.13 670.38,-356.91 673.29,-346.73 666.3,-347.13"/>
+<!-- proc~util_solve_rkf45&#45;&gt;interface~util_exit -->
+<g id="proc~~util_exit~~CalledByGraph_edge19" class="edge">
+<title>proc~util_solve_rkf45&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M430.73,-19.37C438.39,-22.46 445.63,-26.82 451,-33 492.21,-80.39 507.67,-279.27 511.78,-346.6"/>
+<polygon fill="#000000" stroke="#000000" points="508.3,-347.13 512.38,-356.91 515.29,-346.73 508.3,-347.13"/>
 </g>
-<!-- interface~util_solve_rkf45 -->
+<!-- interface~io_read_cb_in -->
 <g id="proc~~util_exit~~CalledByGraph_node21" class="node">
-<title>interface~util_solve_rkf45</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node21"><a xlink:href=".././interface/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
-<polygon fill="#a7506f" stroke="#a7506f" points="424.5,-66 337.5,-66 337.5,-42 424.5,-42 424.5,-66"/>
-<text text-anchor="middle" x="381" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_rkf45</text>
+<title>interface~io_read_cb_in</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node21"><a xlink:href=".././interface/io_read_cb_in.html" xlink:title="io_read_cb_in">
+<polygon fill="#a7506f" stroke="#a7506f" points="263,-524 183,-524 183,-500 263,-500 263,-524"/>
+<text text-anchor="middle" x="223" y="-509.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_cb_in</text>
 </a>
 </g>
 </g>
-<!-- interface~util_solve_rkf45&#45;&gt;proc~util_solve_rkf45 -->
-<g id="proc~~util_exit~~CalledByGraph_edge35" class="edge">
-<title>interface~util_solve_rkf45&#45;&gt;proc~util_solve_rkf45</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M424.56,-54C445.04,-54 469.78,-54 491.42,-54"/>
-<polygon fill="#000000" stroke="#000000" points="491.44,-57.5 501.44,-54 491.44,-50.5 491.44,-57.5"/>
+<!-- interface~io_read_cb_in&#45;&gt;proc~io_read_cb_in -->
+<g id="proc~~util_exit~~CalledByGraph_edge25" class="edge">
+<title>interface~io_read_cb_in&#45;&gt;proc~io_read_cb_in</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M263.22,-512C285.32,-512 313.14,-512 336.71,-512"/>
+<polygon fill="#000000" stroke="#000000" points="336.87,-515.5 346.87,-512 336.86,-508.5 336.87,-515.5"/>
 </g>
-<!-- interface~util_valid -->
+<!-- interface~util_valid_id_system -->
 <g id="proc~~util_exit~~CalledByGraph_node22" class="node">
-<title>interface~util_valid</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node22"><a xlink:href=".././interface/util_valid.html" xlink:title="util_valid">
-<polygon fill="#a7506f" stroke="#a7506f" points="408,-692 354,-692 354,-668 408,-668 408,-692"/>
-<text text-anchor="middle" x="381" y="-677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid</text>
+<title>interface~util_valid_id_system</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node22"><a xlink:href=".././interface/util_valid_id_system.html" xlink:title="util_valid_id_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="277,-234 169,-234 169,-210 277,-210 277,-234"/>
+<text text-anchor="middle" x="223" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid_id_system</text>
 </a>
 </g>
 </g>
-<!-- interface~util_valid&#45;&gt;proc~util_valid -->
-<g id="proc~~util_exit~~CalledByGraph_edge21" class="edge">
-<title>interface~util_valid&#45;&gt;proc~util_valid</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M408.03,-680C434.99,-680 477.34,-680 507.61,-680"/>
-<polygon fill="#000000" stroke="#000000" points="507.77,-683.5 517.77,-680 507.77,-676.5 507.77,-683.5"/>
+<!-- interface~util_valid_id_system&#45;&gt;proc~util_valid_id_system -->
+<g id="proc~~util_exit~~CalledByGraph_edge31" class="edge">
+<title>interface~util_valid_id_system&#45;&gt;proc~util_valid_id_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M277.04,-222C291.59,-222 307.51,-222 322.57,-222"/>
+<polygon fill="#000000" stroke="#000000" points="322.84,-225.5 332.84,-222 322.84,-218.5 322.84,-225.5"/>
 </g>
 <!-- interface~io_write_discard -->
 <g id="proc~~util_exit~~CalledByGraph_node23" class="node">
 <title>interface~io_write_discard</title>
 <g id="a_proc~~util_exit~~CalledByGraph_node23"><a xlink:href=".././interface/io_write_discard.html" xlink:title="io_write_discard">
-<polygon fill="#a7506f" stroke="#a7506f" points="426,-360 336,-360 336,-336 426,-336 426,-360"/>
-<text text-anchor="middle" x="381" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_discard</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="268,-108 178,-108 178,-84 268,-84 268,-108"/>
+<text text-anchor="middle" x="223" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_discard</text>
 </a>
 </g>
 </g>
 <!-- interface~io_write_discard&#45;&gt;proc~io_write_discard -->
-<g id="proc~~util_exit~~CalledByGraph_edge28" class="edge">
+<g id="proc~~util_exit~~CalledByGraph_edge34" class="edge">
 <title>interface~io_write_discard&#45;&gt;proc~io_write_discard</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.27,-348C445.82,-348 469,-348 489.6,-348"/>
-<polygon fill="#000000" stroke="#000000" points="489.79,-351.5 499.79,-348 489.79,-344.5 489.79,-351.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.27,-96C287.82,-96 311,-96 331.6,-96"/>
+<polygon fill="#000000" stroke="#000000" points="331.79,-99.5 341.79,-96 331.79,-92.5 331.79,-99.5"/>
 </g>
-<!-- interface~io_write_frame_system -->
+<!-- interface~util_append_pl -->
 <g id="proc~~util_exit~~CalledByGraph_node24" class="node">
-<title>interface~io_write_frame_system</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node24"><a xlink:href=".././interface/io_write_frame_system.html" xlink:title="io_write_frame_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="281,-505 158,-505 158,-481 281,-481 281,-505"/>
-<text text-anchor="middle" x="219.5" y="-490.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</text>
+<title>interface~util_append_pl</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node24"><a xlink:href=".././interface/util_append_pl.html" xlink:title="util_append_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="264,-66 182,-66 182,-42 264,-42 264,-66"/>
+<text text-anchor="middle" x="223" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~io_write_frame_system&#45;&gt;proc~io_write_frame_system -->
-<g id="proc~~util_exit~~CalledByGraph_edge32" class="edge">
-<title>interface~io_write_frame_system&#45;&gt;proc~io_write_frame_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.26,-493C290.44,-493 299.97,-493 309.34,-493"/>
-<polygon fill="#000000" stroke="#000000" points="309.41,-496.5 319.41,-493 309.41,-489.5 309.41,-496.5"/>
+<!-- interface~util_append_pl&#45;&gt;proc~util_append_pl -->
+<g id="proc~~util_exit~~CalledByGraph_edge35" class="edge">
+<title>interface~util_append_pl&#45;&gt;proc~util_append_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.04,-54C285.66,-54 312.55,-54 335.58,-54"/>
+<polygon fill="#000000" stroke="#000000" points="335.85,-57.5 345.85,-54 335.85,-50.5 335.85,-57.5"/>
 </g>
-<!-- interface~io_read_body_in -->
+<!-- interface~io_dump_swiftest -->
 <g id="proc~~util_exit~~CalledByGraph_node25" class="node">
-<title>interface~io_read_body_in</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node25"><a xlink:href=".././interface/io_read_body_in.html" xlink:title="io_read_body_in">
-<polygon fill="#a7506f" stroke="#a7506f" points="427,-608 335,-608 335,-584 427,-584 427,-608"/>
-<text text-anchor="middle" x="381" y="-593.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_body_in</text>
+<title>interface~io_dump_swiftest</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node25"><a xlink:href=".././interface/io_dump_swiftest.html" xlink:title="io_dump_swiftest">
+<polygon fill="#a7506f" stroke="#a7506f" points="270.5,-566 175.5,-566 175.5,-542 270.5,-542 270.5,-566"/>
+<text text-anchor="middle" x="223" y="-551.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_swiftest</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_body_in&#45;&gt;proc~io_read_body_in -->
-<g id="proc~~util_exit~~CalledByGraph_edge23" class="edge">
-<title>interface~io_read_body_in&#45;&gt;proc~io_read_body_in</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.13,-596C446.18,-596 468.55,-596 488.6,-596"/>
-<polygon fill="#000000" stroke="#000000" points="488.84,-599.5 498.84,-596 488.84,-592.5 488.84,-599.5"/>
+<!-- interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest -->
+<g id="proc~~util_exit~~CalledByGraph_edge24" class="edge">
+<title>interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.86,-554C289.08,-554 310.11,-554 329.18,-554"/>
+<polygon fill="#000000" stroke="#000000" points="329.25,-557.5 339.25,-554 329.25,-550.5 329.25,-557.5"/>
 </g>
 <!-- interface~util_append_tp -->
 <g id="proc~~util_exit~~CalledByGraph_node26" class="node">
 <title>interface~util_append_tp</title>
 <g id="a_proc~~util_exit~~CalledByGraph_node26"><a xlink:href=".././interface/util_append_tp.html" xlink:title="util_append_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="422.5,-734 339.5,-734 339.5,-710 422.5,-710 422.5,-734"/>
-<text text-anchor="middle" x="381" y="-719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="264.5,-650 181.5,-650 181.5,-626 264.5,-626 264.5,-650"/>
+<text text-anchor="middle" x="223" y="-635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~util_append_tp&#45;&gt;proc~util_append_tp -->
-<g id="proc~~util_exit~~CalledByGraph_edge20" class="edge">
+<g id="proc~~util_exit~~CalledByGraph_edge22" class="edge">
 <title>interface~util_append_tp&#45;&gt;proc~util_append_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M422.88,-722C444.26,-722 470.62,-722 493.29,-722"/>
-<polygon fill="#000000" stroke="#000000" points="493.41,-725.5 503.41,-722 493.41,-718.5 493.41,-725.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M264.88,-638C286.26,-638 312.62,-638 335.29,-638"/>
+<polygon fill="#000000" stroke="#000000" points="335.41,-641.5 345.41,-638 335.41,-634.5 335.41,-641.5"/>
 </g>
-<!-- interface~io_get_args -->
+<!-- interface~io_read_frame_cb -->
 <g id="proc~~util_exit~~CalledByGraph_node27" class="node">
-<title>interface~io_get_args</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node27"><a xlink:href=".././interface/io_get_args.html" xlink:title="io_get_args">
-<polygon fill="#a7506f" stroke="#a7506f" points="415.5,-650 346.5,-650 346.5,-626 415.5,-626 415.5,-650"/>
-<text text-anchor="middle" x="381" y="-635.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
+<title>interface~io_read_frame_cb</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node27"><a xlink:href=".././interface/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
+<polygon fill="#a7506f" stroke="#a7506f" points="273,-318 173,-318 173,-294 273,-294 273,-318"/>
+<text text-anchor="middle" x="223" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
 </a>
 </g>
 </g>
-<!-- interface~io_get_args&#45;&gt;proc~io_get_args -->
-<g id="proc~~util_exit~~CalledByGraph_edge22" class="edge">
-<title>interface~io_get_args&#45;&gt;proc~io_get_args</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.57,-638C440.11,-638 473.63,-638 500.27,-638"/>
-<polygon fill="#000000" stroke="#000000" points="500.48,-641.5 510.48,-638 500.48,-634.5 500.48,-641.5"/>
+<!-- interface~io_read_frame_cb&#45;&gt;proc~io_read_frame_cb -->
+<g id="proc~~util_exit~~CalledByGraph_edge28" class="edge">
+<title>interface~io_read_frame_cb&#45;&gt;proc~io_read_frame_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.04,-306C289.94,-306 309.04,-306 326.66,-306"/>
+<polygon fill="#000000" stroke="#000000" points="326.84,-309.5 336.84,-306 326.84,-302.5 326.84,-309.5"/>
 </g>
-<!-- interface~io_read_frame_body -->
+<!-- interface~io_read_body_in -->
 <g id="proc~~util_exit~~CalledByGraph_node28" class="node">
-<title>interface~io_read_frame_body</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node28"><a xlink:href=".././interface/io_read_frame_body.html" xlink:title="io_read_frame_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="437,-150 325,-150 325,-126 437,-126 437,-150"/>
-<text text-anchor="middle" x="381" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_body</text>
+<title>interface~io_read_body_in</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node28"><a xlink:href=".././interface/io_read_body_in.html" xlink:title="io_read_body_in">
+<polygon fill="#a7506f" stroke="#a7506f" points="269,-150 177,-150 177,-126 269,-126 269,-150"/>
+<text text-anchor="middle" x="223" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_body_in</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_frame_body&#45;&gt;proc~io_read_frame_body -->
+<!-- interface~io_read_body_in&#45;&gt;proc~io_read_body_in -->
 <g id="proc~~util_exit~~CalledByGraph_edge33" class="edge">
-<title>interface~io_read_frame_body&#45;&gt;proc~io_read_frame_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M437.3,-138C450.59,-138 464.92,-138 478.62,-138"/>
-<polygon fill="#000000" stroke="#000000" points="478.95,-141.5 488.95,-138 478.95,-134.5 478.95,-141.5"/>
+<title>interface~io_read_body_in&#45;&gt;proc~io_read_body_in</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.13,-138C288.18,-138 310.55,-138 330.6,-138"/>
+<polygon fill="#000000" stroke="#000000" points="330.84,-141.5 340.84,-138 330.84,-134.5 330.84,-141.5"/>
 </g>
-<!-- interface~io_read_param_in -->
+<!-- interface~setup_construct_system -->
 <g id="proc~~util_exit~~CalledByGraph_node29" class="node">
-<title>interface~io_read_param_in</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node29"><a xlink:href=".././interface/io_read_param_in.html" xlink:title="io_read_param_in">
-<polygon fill="#a7506f" stroke="#a7506f" points="431,-566 331,-566 331,-542 431,-542 431,-566"/>
-<text text-anchor="middle" x="381" y="-551.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_param_in</text>
+<title>interface~setup_construct_system</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node29"><a xlink:href=".././interface/setup_construct_system.html" xlink:title="setup_construct_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="287,-192 159,-192 159,-168 287,-168 287,-192"/>
+<text text-anchor="middle" x="223" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_param_in&#45;&gt;proc~io_read_param_in -->
-<g id="proc~~util_exit~~CalledByGraph_edge24" class="edge">
-<title>interface~io_read_param_in&#45;&gt;proc~io_read_param_in</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M431.04,-554C447.94,-554 467.04,-554 484.66,-554"/>
-<polygon fill="#000000" stroke="#000000" points="484.84,-557.5 494.84,-554 484.84,-550.5 484.84,-557.5"/>
+<!-- interface~setup_construct_system&#45;&gt;proc~setup_construct_system -->
+<g id="proc~~util_exit~~CalledByGraph_edge32" class="edge">
+<title>interface~setup_construct_system&#45;&gt;proc~setup_construct_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.1,-180C295.43,-180 304.04,-180 312.53,-180"/>
+<polygon fill="#000000" stroke="#000000" points="312.81,-183.5 322.81,-180 312.81,-176.5 312.81,-183.5"/>
 </g>
-<!-- interface~io_dump_swiftest -->
+<!-- interface~io_read_param_in -->
 <g id="proc~~util_exit~~CalledByGraph_node30" class="node">
-<title>interface~io_dump_swiftest</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node30"><a xlink:href=".././interface/io_dump_swiftest.html" xlink:title="io_dump_swiftest">
-<polygon fill="#a7506f" stroke="#a7506f" points="428.5,-192 333.5,-192 333.5,-168 428.5,-168 428.5,-192"/>
-<text text-anchor="middle" x="381" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_swiftest</text>
+<title>interface~io_read_param_in</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node30"><a xlink:href=".././interface/io_read_param_in.html" xlink:title="io_read_param_in">
+<polygon fill="#a7506f" stroke="#a7506f" points="273,-692 173,-692 173,-668 273,-668 273,-692"/>
+<text text-anchor="middle" x="223" y="-677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_param_in</text>
 </a>
 </g>
 </g>
-<!-- interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest -->
-<g id="proc~~util_exit~~CalledByGraph_edge31" class="edge">
-<title>interface~io_dump_swiftest&#45;&gt;proc~io_dump_swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428.86,-180C447.08,-180 468.11,-180 487.18,-180"/>
-<polygon fill="#000000" stroke="#000000" points="487.25,-183.5 497.25,-180 487.25,-176.5 487.25,-183.5"/>
+<!-- interface~io_read_param_in&#45;&gt;proc~io_read_param_in -->
+<g id="proc~~util_exit~~CalledByGraph_edge21" class="edge">
+<title>interface~io_read_param_in&#45;&gt;proc~io_read_param_in</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.04,-680C289.94,-680 309.04,-680 326.66,-680"/>
+<polygon fill="#000000" stroke="#000000" points="326.84,-683.5 336.84,-680 326.84,-676.5 326.84,-683.5"/>
 </g>
-<!-- interface~io_write_encounter -->
+<!-- interface~io_write_frame_system -->
 <g id="proc~~util_exit~~CalledByGraph_node31" class="node">
-<title>interface~io_write_encounter</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node31"><a xlink:href=".././interface/io_write_encounter.html" xlink:title="io_write_encounter">
-<polygon fill="#a7506f" stroke="#a7506f" points="432.5,-108 329.5,-108 329.5,-84 432.5,-84 432.5,-108"/>
-<text text-anchor="middle" x="381" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
-</a>
-</g>
-</g>
-<!-- interface~io_write_encounter&#45;&gt;proc~io_write_encounter -->
-<g id="proc~~util_exit~~CalledByGraph_edge34" class="edge">
-<title>interface~io_write_encounter&#45;&gt;proc~io_write_encounter</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432.81,-96C448.8,-96 466.61,-96 483.21,-96"/>
-<polygon fill="#000000" stroke="#000000" points="483.37,-99.5 493.37,-96 483.37,-92.5 483.37,-99.5"/>
-</g>
-<!-- interface~setup_construct_system -->
-<g id="proc~~util_exit~~CalledByGraph_node32" class="node">
-<title>interface~setup_construct_system</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node32"><a xlink:href=".././interface/setup_construct_system.html" xlink:title="setup_construct_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="445,-234 317,-234 317,-210 445,-210 445,-234"/>
-<text text-anchor="middle" x="381" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
+<title>interface~io_write_frame_system</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node31"><a xlink:href=".././interface/io_write_frame_system.html" xlink:title="io_write_frame_system">
+<polygon fill="#a7506f" stroke="#a7506f" points="123,-421 0,-421 0,-397 123,-397 123,-421"/>
+<text text-anchor="middle" x="61.5" y="-406.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_frame_system</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_construct_system&#45;&gt;proc~setup_construct_system -->
+<!-- interface~io_write_frame_system&#45;&gt;proc~io_write_frame_system -->
 <g id="proc~~util_exit~~CalledByGraph_edge30" class="edge">
-<title>interface~setup_construct_system&#45;&gt;proc~setup_construct_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.1,-222C453.43,-222 462.04,-222 470.53,-222"/>
-<polygon fill="#000000" stroke="#000000" points="470.81,-225.5 480.81,-222 470.81,-218.5 470.81,-225.5"/>
+<title>interface~io_write_frame_system&#45;&gt;proc~io_write_frame_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M123.26,-409C132.44,-409 141.97,-409 151.34,-409"/>
+<polygon fill="#000000" stroke="#000000" points="151.41,-412.5 161.41,-409 151.41,-405.5 151.41,-412.5"/>
 </g>
 <!-- interface~io_dump_param -->
-<g id="proc~~util_exit~~CalledByGraph_node33" class="node">
+<g id="proc~~util_exit~~CalledByGraph_node32" class="node">
 <title>interface~io_dump_param</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node33"><a xlink:href=".././interface/io_dump_param.html" xlink:title="io_dump_param">
-<polygon fill="#a7506f" stroke="#a7506f" points="426.5,-402 335.5,-402 335.5,-378 426.5,-378 426.5,-402"/>
-<text text-anchor="middle" x="381" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_param</text>
+<g id="a_proc~~util_exit~~CalledByGraph_node32"><a xlink:href=".././interface/io_dump_param.html" xlink:title="io_dump_param">
+<polygon fill="#a7506f" stroke="#a7506f" points="268.5,-608 177.5,-608 177.5,-584 268.5,-584 268.5,-608"/>
+<text text-anchor="middle" x="223" y="-593.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_dump_param</text>
 </a>
 </g>
 </g>
 <!-- interface~io_dump_param&#45;&gt;proc~io_dump_param -->
-<g id="proc~~util_exit~~CalledByGraph_edge27" class="edge">
+<g id="proc~~util_exit~~CalledByGraph_edge23" class="edge">
 <title>interface~io_dump_param&#45;&gt;proc~io_dump_param</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.7,-390C446.08,-390 468.97,-390 489.36,-390"/>
-<polygon fill="#000000" stroke="#000000" points="489.45,-393.5 499.45,-390 489.45,-386.5 489.45,-393.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.7,-596C288.08,-596 310.97,-596 331.36,-596"/>
+<polygon fill="#000000" stroke="#000000" points="331.45,-599.5 341.45,-596 331.45,-592.5 331.45,-599.5"/>
 </g>
-<!-- interface~io_read_frame_cb -->
-<g id="proc~~util_exit~~CalledByGraph_node34" class="node">
-<title>interface~io_read_frame_cb</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node34"><a xlink:href=".././interface/io_read_frame_cb.html" xlink:title="io_read_frame_cb">
-<polygon fill="#a7506f" stroke="#a7506f" points="431,-276 331,-276 331,-252 431,-252 431,-276"/>
-<text text-anchor="middle" x="381" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_cb</text>
+<!-- interface~io_write_encounter -->
+<g id="proc~~util_exit~~CalledByGraph_node33" class="node">
+<title>interface~io_write_encounter</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node33"><a xlink:href=".././interface/io_write_encounter.html" xlink:title="io_write_encounter">
+<polygon fill="#a7506f" stroke="#a7506f" points="274.5,-276 171.5,-276 171.5,-252 274.5,-252 274.5,-276"/>
+<text text-anchor="middle" x="223" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_write_encounter</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_frame_cb&#45;&gt;proc~io_read_frame_cb -->
+<!-- interface~io_write_encounter&#45;&gt;proc~io_write_encounter -->
 <g id="proc~~util_exit~~CalledByGraph_edge29" class="edge">
-<title>interface~io_read_frame_cb&#45;&gt;proc~io_read_frame_cb</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M431.04,-264C447.94,-264 467.04,-264 484.66,-264"/>
-<polygon fill="#000000" stroke="#000000" points="484.84,-267.5 494.84,-264 484.84,-260.5 484.84,-267.5"/>
+<title>interface~io_write_encounter&#45;&gt;proc~io_write_encounter</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M274.81,-264C290.8,-264 308.61,-264 325.21,-264"/>
+<polygon fill="#000000" stroke="#000000" points="325.37,-267.5 335.37,-264 325.37,-260.5 325.37,-267.5"/>
 </g>
-<!-- interface~io_read_cb_in -->
-<g id="proc~~util_exit~~CalledByGraph_node35" class="node">
-<title>interface~io_read_cb_in</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node35"><a xlink:href=".././interface/io_read_cb_in.html" xlink:title="io_read_cb_in">
-<polygon fill="#a7506f" stroke="#a7506f" points="421,-444 341,-444 341,-420 421,-420 421,-444"/>
-<text text-anchor="middle" x="381" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_cb_in</text>
+<!-- interface~io_read_frame_body -->
+<g id="proc~~util_exit~~CalledByGraph_node34" class="node">
+<title>interface~io_read_frame_body</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node34"><a xlink:href=".././interface/io_read_frame_body.html" xlink:title="io_read_frame_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="279,-482 167,-482 167,-458 279,-458 279,-482"/>
+<text text-anchor="middle" x="223" y="-467.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_read_frame_body</text>
 </a>
 </g>
 </g>
-<!-- interface~io_read_cb_in&#45;&gt;proc~io_read_cb_in -->
+<!-- interface~io_read_frame_body&#45;&gt;proc~io_read_frame_body -->
 <g id="proc~~util_exit~~CalledByGraph_edge26" class="edge">
-<title>interface~io_read_cb_in&#45;&gt;proc~io_read_cb_in</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421.22,-432C443.32,-432 471.14,-432 494.71,-432"/>
-<polygon fill="#000000" stroke="#000000" points="494.87,-435.5 504.87,-432 494.86,-428.5 494.87,-435.5"/>
-</g>
-<!-- interface~util_append_pl -->
-<g id="proc~~util_exit~~CalledByGraph_node36" class="node">
-<title>interface~util_append_pl</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node36"><a xlink:href=".././interface/util_append_pl.html" xlink:title="util_append_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="422,-24 340,-24 340,0 422,0 422,-24"/>
-<text text-anchor="middle" x="381" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append_pl</text>
-</a>
-</g>
-</g>
-<!-- interface~util_append_pl&#45;&gt;proc~util_append_pl -->
-<g id="proc~~util_exit~~CalledByGraph_edge36" class="edge">
-<title>interface~util_append_pl&#45;&gt;proc~util_append_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M422.04,-12C443.66,-12 470.55,-12 493.58,-12"/>
-<polygon fill="#000000" stroke="#000000" points="493.85,-15.5 503.85,-12 493.85,-8.5 493.85,-15.5"/>
+<title>interface~io_read_frame_body&#45;&gt;proc~io_read_frame_body</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.3,-470C292.59,-470 306.92,-470 320.62,-470"/>
+<polygon fill="#000000" stroke="#000000" points="320.95,-473.5 330.95,-470 320.95,-466.5 320.95,-473.5"/>
 </g>
-<!-- proc~setup_initialize_system -->
-<g id="proc~~util_exit~~CalledByGraph_node37" class="node">
-<title>proc~setup_initialize_system</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node37"><a xlink:href=".././proc/setup_initialize_system.html" xlink:title="setup_initialize_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="280.5,-692 158.5,-692 158.5,-668 280.5,-668 280.5,-692"/>
-<text text-anchor="middle" x="219.5" y="-677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
+<!-- interface~io_get_args -->
+<g id="proc~~util_exit~~CalledByGraph_node35" class="node">
+<title>interface~io_get_args</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node35"><a xlink:href=".././interface/io_get_args.html" xlink:title="io_get_args">
+<polygon fill="#a7506f" stroke="#a7506f" points="257.5,-734 188.5,-734 188.5,-710 257.5,-710 257.5,-734"/>
+<text text-anchor="middle" x="223" y="-719.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
 </a>
 </g>
 </g>
-<!-- proc~setup_initialize_system&#45;&gt;interface~util_valid -->
-<g id="proc~~util_exit~~CalledByGraph_edge37" class="edge">
-<title>proc~setup_initialize_system&#45;&gt;interface~util_valid</title>
-<path fill="none" stroke="#000000" d="M280.8,-680C301.99,-680 325.13,-680 343.73,-680"/>
-<polygon fill="#000000" stroke="#000000" points="343.83,-683.5 353.83,-680 343.83,-676.5 343.83,-683.5"/>
+<!-- interface~io_get_args&#45;&gt;proc~io_get_args -->
+<g id="proc~~util_exit~~CalledByGraph_edge20" class="edge">
+<title>interface~io_get_args&#45;&gt;proc~io_get_args</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.57,-722C282.11,-722 315.63,-722 342.27,-722"/>
+<polygon fill="#000000" stroke="#000000" points="342.48,-725.5 352.48,-722 342.48,-718.5 342.48,-725.5"/>
 </g>
-<!-- interface~setup_initialize_system -->
-<g id="proc~~util_exit~~CalledByGraph_node38" class="node">
-<title>interface~setup_initialize_system</title>
-<g id="a_proc~~util_exit~~CalledByGraph_node38"><a xlink:href=".././interface/setup_initialize_system.html" xlink:title="setup_initialize_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="122,-692 0,-692 0,-668 122,-668 122,-692"/>
-<text text-anchor="middle" x="61" y="-677.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
+<!-- interface~util_solve_rkf45 -->
+<g id="proc~~util_exit~~CalledByGraph_node36" class="node">
+<title>interface~util_solve_rkf45</title>
+<g id="a_proc~~util_exit~~CalledByGraph_node36"><a xlink:href=".././interface/util_solve_rkf45.html" xlink:title="util_solve_rkf45">
+<polygon fill="#a7506f" stroke="#a7506f" points="266.5,-24 179.5,-24 179.5,0 266.5,0 266.5,-24"/>
+<text text-anchor="middle" x="223" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve_rkf45</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_initialize_system&#45;&gt;proc~setup_initialize_system -->
-<g id="proc~~util_exit~~CalledByGraph_edge38" class="edge">
-<title>interface~setup_initialize_system&#45;&gt;proc~setup_initialize_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.06,-680C130.61,-680 139.47,-680 148.19,-680"/>
-<polygon fill="#000000" stroke="#000000" points="148.34,-683.5 158.34,-680 148.34,-676.5 148.34,-683.5"/>
+<!-- interface~util_solve_rkf45&#45;&gt;proc~util_solve_rkf45 -->
+<g id="proc~~util_exit~~CalledByGraph_edge36" class="edge">
+<title>interface~util_solve_rkf45&#45;&gt;proc~util_solve_rkf45</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.56,-12C287.04,-12 311.78,-12 333.42,-12"/>
+<polygon fill="#000000" stroke="#000000" points="333.44,-15.5 343.44,-12 333.44,-8.5 333.44,-15.5"/>
 </g>
 </g>
 </svg>
-</div><script>var panprocutil_exitCalledByGraph = svgPanZoom('#procutil_exitCalledByGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
     <p>Nodes of different colours represent the following: </p>
     <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN"
diff --git a/docs/proc/util_fill_body.html b/docs/proc/util_fill_body.html
index b621676cb..3691f5a38 100644
--- a/docs/proc/util_fill_body.html
+++ b/docs/proc/util_fill_body.html
@@ -425,65 +425,65 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.17,-33C265.33,-33 274.13,-33 282.66,-33"/>
 <polygon fill="#000000" stroke="#000000" points="282.86,-36.5 292.86,-33 282.86,-29.5 282.86,-36.5"/>
 </g>
-<!-- proc~util_fill_pl -->
+<!-- proc~util_fill_tp -->
 <g id="proc~~util_fill_body~~CalledByGraph_node3" class="node">
-<title>proc~util_fill_pl</title>
-<g id="a_proc~~util_fill_body~~CalledByGraph_node3"><a xlink:href=".././proc/util_fill_pl.html" xlink:title="util_fill_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="149.5,-66 93.5,-66 93.5,-42 149.5,-42 149.5,-66"/>
-<text text-anchor="middle" x="121.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
+<title>proc~util_fill_tp</title>
+<g id="a_proc~~util_fill_body~~CalledByGraph_node3"><a xlink:href=".././proc/util_fill_tp.html" xlink:title="util_fill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="150,-66 93,-66 93,-42 150,-42 150,-66"/>
+<text text-anchor="middle" x="121.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_pl&#45;&gt;interface~util_fill_body -->
+<!-- proc~util_fill_tp&#45;&gt;interface~util_fill_body -->
 <g id="proc~~util_fill_body~~CalledByGraph_edge2" class="edge">
-<title>proc~util_fill_pl&#45;&gt;interface~util_fill_body</title>
-<path fill="none" stroke="#000000" d="M149.54,-48.21C157.69,-46.46 166.86,-44.49 175.84,-42.57"/>
-<polygon fill="#000000" stroke="#000000" points="176.78,-45.95 185.82,-40.43 175.31,-39.1 176.78,-45.95"/>
+<title>proc~util_fill_tp&#45;&gt;interface~util_fill_body</title>
+<path fill="none" stroke="#000000" d="M150.06,-48.09C158.12,-46.37 167.15,-44.43 175.98,-42.54"/>
+<polygon fill="#000000" stroke="#000000" points="176.76,-45.95 185.8,-40.43 175.29,-39.11 176.76,-45.95"/>
 </g>
-<!-- proc~util_fill_tp -->
+<!-- proc~util_fill_pl -->
 <g id="proc~~util_fill_body~~CalledByGraph_node4" class="node">
-<title>proc~util_fill_tp</title>
-<g id="a_proc~~util_fill_body~~CalledByGraph_node4"><a xlink:href=".././proc/util_fill_tp.html" xlink:title="util_fill_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="150,-24 93,-24 93,0 150,0 150,-24"/>
-<text text-anchor="middle" x="121.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
+<title>proc~util_fill_pl</title>
+<g id="a_proc~~util_fill_body~~CalledByGraph_node4"><a xlink:href=".././proc/util_fill_pl.html" xlink:title="util_fill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="149.5,-24 93.5,-24 93.5,0 149.5,0 149.5,-24"/>
+<text text-anchor="middle" x="121.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_tp&#45;&gt;interface~util_fill_body -->
+<!-- proc~util_fill_pl&#45;&gt;interface~util_fill_body -->
 <g id="proc~~util_fill_body~~CalledByGraph_edge3" class="edge">
-<title>proc~util_fill_tp&#45;&gt;interface~util_fill_body</title>
-<path fill="none" stroke="#000000" d="M150.06,-17.91C158.12,-19.63 167.15,-21.57 175.98,-23.46"/>
-<polygon fill="#000000" stroke="#000000" points="175.29,-26.89 185.8,-25.57 176.76,-20.05 175.29,-26.89"/>
+<title>proc~util_fill_pl&#45;&gt;interface~util_fill_body</title>
+<path fill="none" stroke="#000000" d="M149.54,-17.79C157.69,-19.54 166.86,-21.51 175.84,-23.43"/>
+<polygon fill="#000000" stroke="#000000" points="175.31,-26.9 185.82,-25.57 176.78,-20.05 175.31,-26.9"/>
 </g>
-<!-- interface~util_fill_tp -->
+<!-- interface~util_fill_pl -->
 <g id="proc~~util_fill_body~~CalledByGraph_node5" class="node">
-<title>interface~util_fill_tp</title>
-<g id="a_proc~~util_fill_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_fill_tp.html" xlink:title="util_fill_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="57,-24 0,-24 0,0 57,0 57,-24"/>
-<text text-anchor="middle" x="28.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
+<title>interface~util_fill_pl</title>
+<g id="a_proc~~util_fill_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_fill_pl.html" xlink:title="util_fill_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="56.5,-24 0.5,-24 0.5,0 56.5,0 56.5,-24"/>
+<text text-anchor="middle" x="28.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~util_fill_tp&#45;&gt;proc~util_fill_tp -->
+<!-- interface~util_fill_pl&#45;&gt;proc~util_fill_pl -->
 <g id="proc~~util_fill_body~~CalledByGraph_edge5" class="edge">
-<title>interface~util_fill_tp&#45;&gt;proc~util_fill_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M57.3,-12C65.32,-12 74.22,-12 82.74,-12"/>
-<polygon fill="#000000" stroke="#000000" points="82.87,-15.5 92.87,-12 82.87,-8.5 82.87,-15.5"/>
+<title>interface~util_fill_pl&#45;&gt;proc~util_fill_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M56.8,-12C65.08,-12 74.32,-12 83.14,-12"/>
+<polygon fill="#000000" stroke="#000000" points="83.22,-15.5 93.22,-12 83.22,-8.5 83.22,-15.5"/>
 </g>
-<!-- interface~util_fill_pl -->
+<!-- interface~util_fill_tp -->
 <g id="proc~~util_fill_body~~CalledByGraph_node6" class="node">
-<title>interface~util_fill_pl</title>
-<g id="a_proc~~util_fill_body~~CalledByGraph_node6"><a xlink:href=".././interface/util_fill_pl.html" xlink:title="util_fill_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="56.5,-66 0.5,-66 0.5,-42 56.5,-42 56.5,-66"/>
-<text text-anchor="middle" x="28.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
+<title>interface~util_fill_tp</title>
+<g id="a_proc~~util_fill_body~~CalledByGraph_node6"><a xlink:href=".././interface/util_fill_tp.html" xlink:title="util_fill_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="57,-66 0,-66 0,-42 57,-42 57,-66"/>
+<text text-anchor="middle" x="28.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~util_fill_pl&#45;&gt;proc~util_fill_pl -->
+<!-- interface~util_fill_tp&#45;&gt;proc~util_fill_tp -->
 <g id="proc~~util_fill_body~~CalledByGraph_edge4" class="edge">
-<title>interface~util_fill_pl&#45;&gt;proc~util_fill_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M56.8,-54C65.08,-54 74.32,-54 83.14,-54"/>
-<polygon fill="#000000" stroke="#000000" points="83.22,-57.5 93.22,-54 83.22,-50.5 83.22,-57.5"/>
+<title>interface~util_fill_tp&#45;&gt;proc~util_fill_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M57.3,-54C65.32,-54 74.22,-54 82.74,-54"/>
+<polygon fill="#000000" stroke="#000000" points="82.87,-57.5 92.87,-54 82.87,-50.5 82.87,-57.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_fill_pl.html b/docs/proc/util_fill_pl.html
index 4a1e4b61d..daff097a0 100644
--- a/docs/proc/util_fill_pl.html
+++ b/docs/proc/util_fill_pl.html
@@ -305,59 +305,59 @@ <h3 class="panel-title">Calls</h3>
 <!-- proc~util_fill_pl -->
 <g id="proc~~util_fill_pl~~CallsGraph_node1" class="node">
 <title>proc~util_fill_pl</title>
-<polygon fill="none" stroke="black" points="56,-44 0,-44 0,-20 56,-20 56,-44"/>
-<text text-anchor="middle" x="28" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_fill_pl</text>
+<polygon fill="none" stroke="black" points="56,-24 0,-24 0,0 56,0 56,-24"/>
+<text text-anchor="middle" x="28" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_fill_pl</text>
 </g>
-<!-- interface~util_fill~2 -->
+<!-- interface~util_fill_body -->
 <g id="proc~~util_fill_pl~~CallsGraph_node2" class="node">
-<title>interface~util_fill~2</title>
-<g id="a_proc~~util_fill_pl~~CallsGraph_node2"><a xlink:href=".././interface/util_fill~2.html" xlink:title="util_fill">
-<polygon fill="#a7506f" stroke="#a7506f" points="360,-44 306,-44 306,-20 360,-20 360,-44"/>
-<text text-anchor="middle" x="333" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
+<title>interface~util_fill_body</title>
+<g id="a_proc~~util_fill_pl~~CallsGraph_node2"><a xlink:href=".././interface/util_fill_body.html" xlink:title="util_fill_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="163,-44 92,-44 92,-20 163,-20 163,-44"/>
+<text text-anchor="middle" x="127.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_pl&#45;&gt;interface~util_fill~2 -->
+<!-- proc~util_fill_pl&#45;&gt;interface~util_fill_body -->
 <g id="proc~~util_fill_pl~~CallsGraph_edge1" class="edge">
-<title>proc~util_fill_pl&#45;&gt;interface~util_fill~2</title>
-<path fill="none" stroke="#000000" d="M56.29,-32.53C67.37,-32.72 80.3,-32.91 92,-33 171.11,-33.63 190.89,-33.64 270,-33 278.25,-32.93 287.12,-32.82 295.49,-32.69"/>
-<polygon fill="#000000" stroke="#000000" points="295.81,-36.18 305.76,-32.52 295.7,-29.18 295.81,-36.18"/>
+<title>proc~util_fill_pl&#45;&gt;interface~util_fill_body</title>
+<path fill="none" stroke="#000000" d="M56.16,-17.57C64.18,-19.22 73.19,-21.06 82,-22.87"/>
+<polygon fill="#000000" stroke="#000000" points="81.31,-26.3 91.81,-24.88 82.72,-19.45 81.31,-26.3"/>
 </g>
-<!-- interface~util_fill_body -->
+<!-- interface~util_fill~2 -->
 <g id="proc~~util_fill_pl~~CallsGraph_node3" class="node">
-<title>interface~util_fill_body</title>
-<g id="a_proc~~util_fill_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_fill_body.html" xlink:title="util_fill_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="163,-24 92,-24 92,0 163,0 163,-24"/>
-<text text-anchor="middle" x="127.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
+<title>interface~util_fill~2</title>
+<g id="a_proc~~util_fill_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_fill~2.html" xlink:title="util_fill">
+<polygon fill="#a7506f" stroke="#a7506f" points="360,-24 306,-24 306,0 360,0 360,-24"/>
+<text text-anchor="middle" x="333" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_pl&#45;&gt;interface~util_fill_body -->
+<!-- proc~util_fill_pl&#45;&gt;interface~util_fill~2 -->
 <g id="proc~~util_fill_pl~~CallsGraph_edge2" class="edge">
-<title>proc~util_fill_pl&#45;&gt;interface~util_fill_body</title>
-<path fill="none" stroke="#000000" d="M56.16,-26.43C64.18,-24.78 73.19,-22.94 82,-21.13"/>
-<polygon fill="#000000" stroke="#000000" points="82.72,-24.55 91.81,-19.12 81.31,-17.7 82.72,-24.55"/>
+<title>proc~util_fill_pl&#45;&gt;interface~util_fill~2</title>
+<path fill="none" stroke="#000000" d="M56.29,-11.47C67.37,-11.28 80.3,-11.09 92,-11 171.11,-10.37 190.89,-10.36 270,-11 278.25,-11.07 287.12,-11.18 295.49,-11.31"/>
+<polygon fill="#000000" stroke="#000000" points="295.7,-14.82 305.76,-11.48 295.81,-7.82 295.7,-14.82"/>
 </g>
 <!-- proc~util_fill_body -->
 <g id="proc~~util_fill_pl~~CallsGraph_node4" class="node">
 <title>proc~util_fill_body</title>
 <g id="a_proc~~util_fill_pl~~CallsGraph_node4"><a xlink:href=".././proc/util_fill_body.html" xlink:title="util_fill_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="270,-24 199,-24 199,0 270,0 270,-24"/>
-<text text-anchor="middle" x="234.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="270,-44 199,-44 199,-20 270,-20 270,-44"/>
+<text text-anchor="middle" x="234.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
 </a>
 </g>
 </g>
 <!-- interface~util_fill_body&#45;&gt;proc~util_fill_body -->
 <g id="proc~~util_fill_pl~~CallsGraph_edge3" class="edge">
 <title>interface~util_fill_body&#45;&gt;proc~util_fill_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.17,-12C171.33,-12 180.13,-12 188.66,-12"/>
-<polygon fill="#000000" stroke="#000000" points="188.86,-15.5 198.86,-12 188.86,-8.5 188.86,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.17,-32C171.33,-32 180.13,-32 188.66,-32"/>
+<polygon fill="#000000" stroke="#000000" points="188.86,-35.5 198.86,-32 188.86,-28.5 188.86,-35.5"/>
 </g>
 <!-- proc~util_fill_body&#45;&gt;interface~util_fill~2 -->
 <g id="proc~~util_fill_pl~~CallsGraph_edge4" class="edge">
 <title>proc~util_fill_body&#45;&gt;interface~util_fill~2</title>
-<path fill="none" stroke="#000000" d="M270.07,-19.16C278.45,-20.9 287.43,-22.76 295.88,-24.51"/>
-<polygon fill="#000000" stroke="#000000" points="295.35,-27.98 305.85,-26.58 296.77,-21.12 295.35,-27.98"/>
+<path fill="none" stroke="#000000" d="M270.07,-24.84C278.45,-23.1 287.43,-21.24 295.88,-19.49"/>
+<polygon fill="#000000" stroke="#000000" points="296.77,-22.88 305.85,-17.42 295.35,-16.02 296.77,-22.88"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_fill_tp.html b/docs/proc/util_fill_tp.html
index 7245f743a..9e9c66b30 100644
--- a/docs/proc/util_fill_tp.html
+++ b/docs/proc/util_fill_tp.html
@@ -305,59 +305,59 @@ <h3 class="panel-title">Calls</h3>
 <!-- proc~util_fill_tp -->
 <g id="proc~~util_fill_tp~~CallsGraph_node1" class="node">
 <title>proc~util_fill_tp</title>
-<polygon fill="none" stroke="black" points="57,-44 0,-44 0,-20 57,-20 57,-44"/>
-<text text-anchor="middle" x="28.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_fill_tp</text>
+<polygon fill="none" stroke="black" points="57,-24 0,-24 0,0 57,0 57,-24"/>
+<text text-anchor="middle" x="28.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_fill_tp</text>
 </g>
-<!-- interface~util_fill~2 -->
+<!-- interface~util_fill_body -->
 <g id="proc~~util_fill_tp~~CallsGraph_node2" class="node">
-<title>interface~util_fill~2</title>
-<g id="a_proc~~util_fill_tp~~CallsGraph_node2"><a xlink:href=".././interface/util_fill~2.html" xlink:title="util_fill">
-<polygon fill="#a7506f" stroke="#a7506f" points="361,-44 307,-44 307,-20 361,-20 361,-44"/>
-<text text-anchor="middle" x="334" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
+<title>interface~util_fill_body</title>
+<g id="a_proc~~util_fill_tp~~CallsGraph_node2"><a xlink:href=".././interface/util_fill_body.html" xlink:title="util_fill_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="164,-44 93,-44 93,-20 164,-20 164,-44"/>
+<text text-anchor="middle" x="128.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_tp&#45;&gt;interface~util_fill~2 -->
+<!-- proc~util_fill_tp&#45;&gt;interface~util_fill_body -->
 <g id="proc~~util_fill_tp~~CallsGraph_edge1" class="edge">
-<title>proc~util_fill_tp&#45;&gt;interface~util_fill~2</title>
-<path fill="none" stroke="#000000" d="M57,-32.53C68.17,-32.72 81.2,-32.91 93,-33 172.11,-33.62 191.89,-33.64 271,-33 279.25,-32.93 288.12,-32.82 296.49,-32.69"/>
-<polygon fill="#000000" stroke="#000000" points="296.81,-36.18 306.76,-32.52 296.7,-29.18 296.81,-36.18"/>
+<title>proc~util_fill_tp&#45;&gt;interface~util_fill_body</title>
+<path fill="none" stroke="#000000" d="M57.06,-17.62C65.12,-19.27 74.15,-21.11 82.98,-22.91"/>
+<polygon fill="#000000" stroke="#000000" points="82.31,-26.35 92.8,-24.92 83.71,-19.49 82.31,-26.35"/>
 </g>
-<!-- interface~util_fill_body -->
+<!-- interface~util_fill~2 -->
 <g id="proc~~util_fill_tp~~CallsGraph_node3" class="node">
-<title>interface~util_fill_body</title>
-<g id="a_proc~~util_fill_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_fill_body.html" xlink:title="util_fill_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="164,-24 93,-24 93,0 164,0 164,-24"/>
-<text text-anchor="middle" x="128.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
+<title>interface~util_fill~2</title>
+<g id="a_proc~~util_fill_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_fill~2.html" xlink:title="util_fill">
+<polygon fill="#a7506f" stroke="#a7506f" points="361,-24 307,-24 307,0 361,0 361,-24"/>
+<text text-anchor="middle" x="334" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
 </a>
 </g>
 </g>
-<!-- proc~util_fill_tp&#45;&gt;interface~util_fill_body -->
+<!-- proc~util_fill_tp&#45;&gt;interface~util_fill~2 -->
 <g id="proc~~util_fill_tp~~CallsGraph_edge2" class="edge">
-<title>proc~util_fill_tp&#45;&gt;interface~util_fill_body</title>
-<path fill="none" stroke="#000000" d="M57.06,-26.38C65.12,-24.73 74.15,-22.89 82.98,-21.09"/>
-<polygon fill="#000000" stroke="#000000" points="83.71,-24.51 92.8,-19.08 82.31,-17.65 83.71,-24.51"/>
+<title>proc~util_fill_tp&#45;&gt;interface~util_fill~2</title>
+<path fill="none" stroke="#000000" d="M57,-11.47C68.17,-11.28 81.2,-11.09 93,-11 172.11,-10.38 191.89,-10.36 271,-11 279.25,-11.07 288.12,-11.18 296.49,-11.31"/>
+<polygon fill="#000000" stroke="#000000" points="296.7,-14.82 306.76,-11.48 296.81,-7.82 296.7,-14.82"/>
 </g>
 <!-- proc~util_fill_body -->
 <g id="proc~~util_fill_tp~~CallsGraph_node4" class="node">
 <title>proc~util_fill_body</title>
 <g id="a_proc~~util_fill_tp~~CallsGraph_node4"><a xlink:href=".././proc/util_fill_body.html" xlink:title="util_fill_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="271,-24 200,-24 200,0 271,0 271,-24"/>
-<text text-anchor="middle" x="235.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="271,-44 200,-44 200,-20 271,-20 271,-44"/>
+<text text-anchor="middle" x="235.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_body</text>
 </a>
 </g>
 </g>
 <!-- interface~util_fill_body&#45;&gt;proc~util_fill_body -->
 <g id="proc~~util_fill_tp~~CallsGraph_edge3" class="edge">
 <title>interface~util_fill_body&#45;&gt;proc~util_fill_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M164.17,-12C172.33,-12 181.13,-12 189.66,-12"/>
-<polygon fill="#000000" stroke="#000000" points="189.86,-15.5 199.86,-12 189.86,-8.5 189.86,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M164.17,-32C172.33,-32 181.13,-32 189.66,-32"/>
+<polygon fill="#000000" stroke="#000000" points="189.86,-35.5 199.86,-32 189.86,-28.5 189.86,-35.5"/>
 </g>
 <!-- proc~util_fill_body&#45;&gt;interface~util_fill~2 -->
 <g id="proc~~util_fill_tp~~CallsGraph_edge4" class="edge">
 <title>proc~util_fill_body&#45;&gt;interface~util_fill~2</title>
-<path fill="none" stroke="#000000" d="M271.07,-19.16C279.45,-20.9 288.43,-22.76 296.88,-24.51"/>
-<polygon fill="#000000" stroke="#000000" points="296.35,-27.98 306.85,-26.58 297.77,-21.12 296.35,-27.98"/>
+<path fill="none" stroke="#000000" d="M271.07,-24.84C279.45,-23.1 288.43,-21.24 296.88,-19.49"/>
+<polygon fill="#000000" stroke="#000000" points="297.77,-22.88 306.85,-17.42 296.35,-16.02 297.77,-22.88"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_get_energy_momentum_system.html b/docs/proc/util_get_energy_momentum_system.html
index 0e32b61e2..82c49f0c9 100644
--- a/docs/proc/util_get_energy_momentum_system.html
+++ b/docs/proc/util_get_energy_momentum_system.html
@@ -136,7 +136,7 @@ <h1>util_get_energy_momentum_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.2% of total for procedures.">80 statements</a>
+    title=" 0.2% of total for procedures.">97 statements</a>
      </li> 
      
      
@@ -217,8 +217,7 @@ <h2>
     
     <p>Compute total system angular momentum vector and kinetic, potential and total system energy</p>
 <p>Adapted from David E. Kaufmann Swifter routine symba_energy_eucl.f90</p>
-<p>Adapted from Martin Duncan's Swift routine anal_energy.f
-$omp simd private(v2, rot2, hx, hy, hz)</p>
+<p>Adapted from Martin Duncan's Swift routine anal_energy.f</p>
     
 
     <h3>Arguments</h3>
@@ -254,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~133"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~137"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -283,43 +282,103 @@ <h3 class="panel-title">Calls</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: proc~~util_get_energy_momentum_system~~CallsGraph Pages: 1 -->
-<svg id="procutil_get_energy_momentum_systemCallsGraph" width="374pt" height="32pt"
- viewBox="0.00 0.00 374.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~util_get_energy_momentum_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="procutil_get_energy_momentum_systemCallsGraph" width="374pt" height="242pt"
+ viewBox="0.00 0.00 374.00 242.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_get_energy_momentum_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 238)">
 <title>proc~~util_get_energy_momentum_system~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 370,-28 370,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-238 370,-238 370,4 -4,4"/>
 <!-- proc~util_get_energy_momentum_system -->
 <g id="proc~~util_get_energy_momentum_system~~CallsGraph_node1" class="node">
 <title>proc~util_get_energy_momentum_system</title>
-<polygon fill="none" stroke="black" points="186,-24 0,-24 0,0 186,0 186,-24"/>
-<text text-anchor="middle" x="93" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_get_energy_momentum_system</text>
+<polygon fill="none" stroke="black" points="186,-129 0,-129 0,-105 186,-105 186,-129"/>
+<text text-anchor="middle" x="93" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_get_energy_momentum_system</text>
 </g>
-<!-- interface~obl_pot -->
+<!-- py -->
 <g id="proc~~util_get_energy_momentum_system~~CallsGraph_node2" class="node">
+<title>py</title>
+<polygon fill="#777777" stroke="#777777" points="276,-234 222,-234 222,-210 276,-210 276,-234"/>
+<text text-anchor="middle" x="249" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">py</text>
+</g>
+<!-- proc~util_get_energy_momentum_system&#45;&gt;py -->
+<g id="proc~~util_get_energy_momentum_system~~CallsGraph_edge1" class="edge">
+<title>proc~util_get_energy_momentum_system&#45;&gt;py</title>
+<path fill="none" stroke="#000000" d="M111.67,-129.04C138.67,-147.46 190.4,-182.72 221.79,-204.13"/>
+<polygon fill="#000000" stroke="#000000" points="219.83,-207.03 230.07,-209.77 223.78,-201.25 219.83,-207.03"/>
+</g>
+<!-- px -->
+<g id="proc~~util_get_energy_momentum_system~~CallsGraph_node3" class="node">
+<title>px</title>
+<polygon fill="#777777" stroke="#777777" points="276,-192 222,-192 222,-168 276,-168 276,-192"/>
+<text text-anchor="middle" x="249" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">px</text>
+</g>
+<!-- proc~util_get_energy_momentum_system&#45;&gt;px -->
+<g id="proc~~util_get_energy_momentum_system~~CallsGraph_edge2" class="edge">
+<title>proc~util_get_energy_momentum_system&#45;&gt;px</title>
+<path fill="none" stroke="#000000" d="M123.69,-129.15C149.07,-139.53 185.64,-154.49 212.55,-165.5"/>
+<polygon fill="#000000" stroke="#000000" points="211.4,-168.81 221.98,-169.36 214.05,-162.33 211.4,-168.81"/>
+</g>
+<!-- indj -->
+<g id="proc~~util_get_energy_momentum_system~~CallsGraph_node4" class="node">
+<title>indj</title>
+<polygon fill="#777777" stroke="#777777" points="276,-150 222,-150 222,-126 276,-126 276,-150"/>
+<text text-anchor="middle" x="249" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">indj</text>
+</g>
+<!-- proc~util_get_energy_momentum_system&#45;&gt;indj -->
+<g id="proc~~util_get_energy_momentum_system~~CallsGraph_edge4" class="edge">
+<title>proc~util_get_energy_momentum_system&#45;&gt;indj</title>
+<path fill="none" stroke="#000000" d="M182.24,-129.03C192.58,-130.44 202.64,-131.81 211.66,-133.04"/>
+<polygon fill="#000000" stroke="#000000" points="211.34,-136.53 221.72,-134.42 212.28,-129.6 211.34,-136.53"/>
+</g>
+<!-- indi -->
+<g id="proc~~util_get_energy_momentum_system~~CallsGraph_node5" class="node">
+<title>indi</title>
+<polygon fill="#777777" stroke="#777777" points="276,-108 222,-108 222,-84 276,-84 276,-108"/>
+<text text-anchor="middle" x="249" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">indi</text>
+</g>
+<!-- proc~util_get_energy_momentum_system&#45;&gt;indi -->
+<g id="proc~~util_get_energy_momentum_system~~CallsGraph_edge6" class="edge">
+<title>proc~util_get_energy_momentum_system&#45;&gt;indi</title>
+<path fill="none" stroke="#000000" d="M182.24,-104.97C192.58,-103.56 202.64,-102.19 211.66,-100.96"/>
+<polygon fill="#000000" stroke="#000000" points="212.28,-104.4 221.72,-99.58 211.34,-97.47 212.28,-104.4"/>
+</g>
+<!-- pz -->
+<g id="proc~~util_get_energy_momentum_system~~CallsGraph_node6" class="node">
+<title>pz</title>
+<polygon fill="#777777" stroke="#777777" points="276,-66 222,-66 222,-42 276,-42 276,-66"/>
+<text text-anchor="middle" x="249" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">pz</text>
+</g>
+<!-- proc~util_get_energy_momentum_system&#45;&gt;pz -->
+<g id="proc~~util_get_energy_momentum_system~~CallsGraph_edge5" class="edge">
+<title>proc~util_get_energy_momentum_system&#45;&gt;pz</title>
+<path fill="none" stroke="#000000" d="M123.69,-104.85C149.07,-94.47 185.64,-79.51 212.55,-68.5"/>
+<polygon fill="#000000" stroke="#000000" points="214.05,-71.67 221.98,-64.64 211.4,-65.19 214.05,-71.67"/>
+</g>
+<!-- interface~obl_pot -->
+<g id="proc~~util_get_energy_momentum_system~~CallsGraph_node7" class="node">
 <title>interface~obl_pot</title>
-<g id="a_proc~~util_get_energy_momentum_system~~CallsGraph_node2"><a xlink:href=".././interface/obl_pot.html" xlink:title="obl_pot">
+<g id="a_proc~~util_get_energy_momentum_system~~CallsGraph_node7"><a xlink:href=".././interface/obl_pot.html" xlink:title="obl_pot">
 <polygon fill="#a7506f" stroke="#a7506f" points="276,-24 222,-24 222,0 276,0 276,-24"/>
 <text text-anchor="middle" x="249" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot</text>
 </a>
 </g>
 </g>
 <!-- proc~util_get_energy_momentum_system&#45;&gt;interface~obl_pot -->
-<g id="proc~~util_get_energy_momentum_system~~CallsGraph_edge1" class="edge">
+<g id="proc~~util_get_energy_momentum_system~~CallsGraph_edge3" class="edge">
 <title>proc~util_get_energy_momentum_system&#45;&gt;interface~obl_pot</title>
-<path fill="none" stroke="#000000" d="M186.25,-12C195.15,-12 203.76,-12 211.59,-12"/>
-<polygon fill="#000000" stroke="#000000" points="211.73,-15.5 221.73,-12 211.73,-8.5 211.73,-15.5"/>
+<path fill="none" stroke="#000000" d="M111.67,-104.96C138.67,-86.54 190.4,-51.28 221.79,-29.87"/>
+<polygon fill="#000000" stroke="#000000" points="223.78,-32.75 230.07,-24.23 219.83,-26.97 223.78,-32.75"/>
 </g>
 <!-- proc~obl_pot -->
-<g id="proc~~util_get_energy_momentum_system~~CallsGraph_node3" class="node">
+<g id="proc~~util_get_energy_momentum_system~~CallsGraph_node8" class="node">
 <title>proc~obl_pot</title>
-<g id="a_proc~~util_get_energy_momentum_system~~CallsGraph_node3"><a xlink:href=".././proc/obl_pot.html" xlink:title="obl_pot">
+<g id="a_proc~~util_get_energy_momentum_system~~CallsGraph_node8"><a xlink:href=".././proc/obl_pot.html" xlink:title="obl_pot">
 <polygon fill="#d9534f" stroke="#d9534f" points="366,-24 312,-24 312,0 366,0 366,-24"/>
 <text text-anchor="middle" x="339" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl_pot</text>
 </a>
 </g>
 </g>
 <!-- interface~obl_pot&#45;&gt;proc~obl_pot -->
-<g id="proc~~util_get_energy_momentum_system~~CallsGraph_edge2" class="edge">
+<g id="proc~~util_get_energy_momentum_system~~CallsGraph_edge7" class="edge">
 <title>interface~obl_pot&#45;&gt;proc~obl_pot</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.4,-12C284.39,-12 293.31,-12 301.82,-12"/>
 <polygon fill="#000000" stroke="#000000" points="301.92,-15.5 311.92,-12 301.92,-8.5 301.92,-15.5"/>
diff --git a/docs/proc/util_peri_tp.html b/docs/proc/util_peri_tp.html
index 30f45de9a..ddd1b7a88 100644
--- a/docs/proc/util_peri_tp.html
+++ b/docs/proc/util_peri_tp.html
@@ -240,7 +240,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~241"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~239"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -255,7 +255,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~76"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~80"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -270,7 +270,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~132"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td><span class="anchor" id="variable-param~134"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/symba_io_read_frame_info.html b/docs/proc/util_rescale_system.html
similarity index 76%
rename from docs/proc/symba_io_read_frame_info.html
rename to docs/proc/util_rescale_system.html
index 78891bded..b40e04b0c 100644
--- a/docs/proc/symba_io_read_frame_info.html
+++ b/docs/proc/util_rescale_system.html
@@ -10,7 +10,7 @@
     <meta name="author" content="David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott" >
     <link rel="icon" href="../favicon.png">
 
-    <title>symba_io_read_frame_info &ndash; swiftest</title>
+    <title>util_rescale_system &ndash; swiftest</title>
 
     <link href="../css/bootstrap.min.css" rel="stylesheet">
     <link href="../css/pygments.css" rel="stylesheet">
@@ -116,7 +116,7 @@
     
   
   <div class="row">
-    <h1>symba_io_read_frame_info
+    <h1>util_rescale_system
       <small>Module Subroutine</small>
     
     </h1>
@@ -136,24 +136,24 @@ <h1>symba_io_read_frame_info
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">9 statements</a>
+    title=" 0.1% of total for procedures.">31 statements</a>
      </li> 
      
      
      
-    <li><i class="fa fa-code"></i><a href="../src/symba_io.f90"> Source File</a></li>
+    <li><i class="fa fa-code"></i><a href="../src/util_rescale.f90"> Source File</a></li>
      
      
   </ul>
   <ol class="breadcrumb in-well text-right">
   
     
-     <li><a href='../sourcefile/symba_io.f90.html'>symba_io.f90</a></li>
+     <li><a href='../sourcefile/util_rescale.f90.html'>util_rescale.f90</a></li>
     
-     <li><a href='../module/s_symba_io.html'>s_symba_io</a></li>
+     <li><a href='../module/s_util_rescale.html'>s_util_rescale</a></li>
     
   
-     <li class="active">symba_io_read_frame_info</li>
+     <li class="active">util_rescale_system</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine symba_io_read_frame_info(self, iu, param, form, ierr)
+module subroutine util_rescale_system(self, param, mscale, dscale, tscale)
     
     
-   <a href='../interface/symba_io_read_frame_info.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/util_rescale_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -215,7 +215,8 @@ <h2>
 
 
     
-    <p>Reads a single frame of a particle info data from a file.</p>
+    <p>Rescales an nbody system to a new set of units. Inputs are the multipliers on the mass (mscale), distance (dscale), and time units (tscale). 
+ Rescales all united quantities in the system, as well as the mass conversion factors, gravitational constant, and Einstein's constant in the parameter object.</p>
     
 
     <h3>Arguments</h3>
@@ -236,12 +237,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~355"></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" id="variable-self~244"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA particle info object</p></td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -251,12 +252,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-iu~19"></span>integer(kind=I4B),</td>
+  <td><span class="anchor" id="variable-param~135"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters. Returns with new values of the scale vactors and GU</p></td>
   
 </tr>
 
@@ -266,12 +267,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~195"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(inout)</td>
+  <td><span class="anchor" id="variable-mscale~2"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
+  <td><strong>mscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
   
 </tr>
 
@@ -281,12 +282,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-form~9"></span>character(len=*),</td>
+  <td><span class="anchor" id="variable-dscale~2"></span>real(kind=DP),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>form</strong></td><td><p>Input format code ("XV" or "EL")</p></td>
+  <td><strong>dscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
   
 </tr>
 
@@ -296,12 +297,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ierr~15"></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
+  <td><span class="anchor" id="variable-tscale~2"></span>real(kind=DP),</td>
+  <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></td>
+  <td><strong>tscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
   
 </tr>
 
@@ -325,32 +326,32 @@ <h3 class="panel-title">Called by</h3>
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
-<!-- Title: proc~~symba_io_read_frame_info~~CalledByGraph Pages: 1 -->
-<svg id="procsymba_io_read_frame_infoCalledByGraph" 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="proc~~symba_io_read_frame_info~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~symba_io_read_frame_info~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 326,-28 326,4 -4,4"/>
-<!-- proc~symba_io_read_frame_info -->
-<g id="proc~~symba_io_read_frame_info~~CalledByGraph_node1" class="node">
-<title>proc~symba_io_read_frame_info</title>
-<polygon fill="none" stroke="black" points="322,-24 179,-24 179,0 322,0 322,-24"/>
-<text text-anchor="middle" x="250.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io_read_frame_info</text>
+<!-- Title: proc~~util_rescale_system~~CalledByGraph Pages: 1 -->
+<svg id="procutil_rescale_systemCalledByGraph" width="256pt" height="32pt"
+ viewBox="0.00 0.00 256.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_rescale_system~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_rescale_system~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 252,-28 252,4 -4,4"/>
+<!-- proc~util_rescale_system -->
+<g id="proc~~util_rescale_system~~CalledByGraph_node1" class="node">
+<title>proc~util_rescale_system</title>
+<polygon fill="none" stroke="black" points="248,-24 142,-24 142,0 248,0 248,-24"/>
+<text text-anchor="middle" x="195" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_rescale_system</text>
 </g>
-<!-- interface~symba_io_read_frame_info -->
-<g id="proc~~symba_io_read_frame_info~~CalledByGraph_node2" class="node">
-<title>interface~symba_io_read_frame_info</title>
-<g id="a_proc~~symba_io_read_frame_info~~CalledByGraph_node2"><a xlink:href=".././interface/symba_io_read_frame_info.html" xlink:title="symba_io_read_frame_info">
-<polygon fill="#a7506f" stroke="#a7506f" points="143,-24 0,-24 0,0 143,0 143,-24"/>
-<text text-anchor="middle" x="71.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io_read_frame_info</text>
+<!-- interface~util_rescale_system -->
+<g id="proc~~util_rescale_system~~CalledByGraph_node2" class="node">
+<title>interface~util_rescale_system</title>
+<g id="a_proc~~util_rescale_system~~CalledByGraph_node2"><a xlink:href=".././interface/util_rescale_system.html" xlink:title="util_rescale_system">
+<polygon fill="#a7506f" stroke="#a7506f" 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" fill="white">util_rescale_system</text>
 </a>
 </g>
 </g>
-<!-- interface~symba_io_read_frame_info&#45;&gt;proc~symba_io_read_frame_info -->
-<g id="proc~~symba_io_read_frame_info~~CalledByGraph_edge1" class="edge">
-<title>interface~symba_io_read_frame_info&#45;&gt;proc~symba_io_read_frame_info</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M143.22,-12C151.57,-12 160.14,-12 168.62,-12"/>
-<polygon fill="#000000" stroke="#000000" points="168.89,-15.5 178.89,-12 168.89,-8.5 168.89,-15.5"/>
+<!-- interface~util_rescale_system&#45;&gt;proc~util_rescale_system -->
+<g id="proc~~util_rescale_system~~CalledByGraph_edge1" class="edge">
+<title>interface~util_rescale_system&#45;&gt;proc~util_rescale_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M106.13,-12C114.42,-12 123.07,-12 131.57,-12"/>
+<polygon fill="#000000" stroke="#000000" points="131.83,-15.5 141.83,-12 131.83,-8.5 131.83,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_resize_body.html b/docs/proc/util_resize_body.html
index d1db9eae8..44331b091 100644
--- a/docs/proc/util_resize_body.html
+++ b/docs/proc/util_resize_body.html
@@ -408,65 +408,65 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.07,-33C322.28,-33 330.96,-33 339.44,-33"/>
 <polygon fill="#000000" stroke="#000000" points="339.66,-36.5 349.66,-33 339.66,-29.5 339.66,-36.5"/>
 </g>
-<!-- proc~util_resize_tp -->
+<!-- proc~util_resize_pl -->
 <g id="proc~~util_resize_body~~CalledByGraph_node3" class="node">
-<title>proc~util_resize_tp</title>
-<g id="a_proc~~util_resize_body~~CalledByGraph_node3"><a xlink:href=".././proc/util_resize_tp.html" xlink:title="util_resize_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="188,-66 112,-66 112,-42 188,-42 188,-66"/>
-<text text-anchor="middle" x="150" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
+<title>proc~util_resize_pl</title>
+<g id="a_proc~~util_resize_body~~CalledByGraph_node3"><a xlink:href=".././proc/util_resize_pl.html" xlink:title="util_resize_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="187.5,-66 112.5,-66 112.5,-42 187.5,-42 187.5,-66"/>
+<text text-anchor="middle" x="150" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_resize_tp&#45;&gt;interface~util_resize_body -->
+<!-- proc~util_resize_pl&#45;&gt;interface~util_resize_body -->
 <g id="proc~~util_resize_body~~CalledByGraph_edge2" class="edge">
-<title>proc~util_resize_tp&#45;&gt;interface~util_resize_body</title>
-<path fill="none" stroke="#000000" d="M188.02,-47.36C196.2,-45.89 205.03,-44.3 213.74,-42.74"/>
-<polygon fill="#000000" stroke="#000000" points="214.63,-46.14 223.85,-40.92 213.39,-39.25 214.63,-46.14"/>
+<title>proc~util_resize_pl&#45;&gt;interface~util_resize_body</title>
+<path fill="none" stroke="#000000" d="M187.7,-47.41C195.98,-45.93 204.93,-44.32 213.76,-42.74"/>
+<polygon fill="#000000" stroke="#000000" points="214.4,-46.18 223.63,-40.96 213.17,-39.29 214.4,-46.18"/>
 </g>
-<!-- proc~util_resize_pl -->
+<!-- proc~util_resize_tp -->
 <g id="proc~~util_resize_body~~CalledByGraph_node4" class="node">
-<title>proc~util_resize_pl</title>
-<g id="a_proc~~util_resize_body~~CalledByGraph_node4"><a xlink:href=".././proc/util_resize_pl.html" xlink:title="util_resize_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="187.5,-24 112.5,-24 112.5,0 187.5,0 187.5,-24"/>
-<text text-anchor="middle" x="150" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
+<title>proc~util_resize_tp</title>
+<g id="a_proc~~util_resize_body~~CalledByGraph_node4"><a xlink:href=".././proc/util_resize_tp.html" xlink:title="util_resize_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="188,-24 112,-24 112,0 188,0 188,-24"/>
+<text text-anchor="middle" x="150" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~util_resize_pl&#45;&gt;interface~util_resize_body -->
+<!-- proc~util_resize_tp&#45;&gt;interface~util_resize_body -->
 <g id="proc~~util_resize_body~~CalledByGraph_edge3" class="edge">
-<title>proc~util_resize_pl&#45;&gt;interface~util_resize_body</title>
-<path fill="none" stroke="#000000" d="M187.7,-18.59C195.98,-20.07 204.93,-21.68 213.76,-23.26"/>
-<polygon fill="#000000" stroke="#000000" points="213.17,-26.71 223.63,-25.04 214.4,-19.82 213.17,-26.71"/>
+<title>proc~util_resize_tp&#45;&gt;interface~util_resize_body</title>
+<path fill="none" stroke="#000000" d="M188.02,-18.64C196.2,-20.11 205.03,-21.7 213.74,-23.26"/>
+<polygon fill="#000000" stroke="#000000" points="213.39,-26.75 223.85,-25.08 214.63,-19.86 213.39,-26.75"/>
 </g>
-<!-- interface~util_resize_pl -->
+<!-- interface~util_resize_tp -->
 <g id="proc~~util_resize_body~~CalledByGraph_node5" class="node">
-<title>interface~util_resize_pl</title>
-<g id="a_proc~~util_resize_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_resize_pl.html" xlink:title="util_resize_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="75.5,-24 0.5,-24 0.5,0 75.5,0 75.5,-24"/>
-<text text-anchor="middle" x="38" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
+<title>interface~util_resize_tp</title>
+<g id="a_proc~~util_resize_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_resize_tp.html" xlink:title="util_resize_tp">
+<polygon fill="#a7506f" stroke="#a7506f" 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" fill="white">util_resize_tp</text>
 </a>
 </g>
 </g>
-<!-- interface~util_resize_pl&#45;&gt;proc~util_resize_pl -->
+<!-- interface~util_resize_tp&#45;&gt;proc~util_resize_tp -->
 <g id="proc~~util_resize_body~~CalledByGraph_edge5" class="edge">
-<title>interface~util_resize_pl&#45;&gt;proc~util_resize_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M75.63,-12C84.07,-12 93.17,-12 101.99,-12"/>
-<polygon fill="#000000" stroke="#000000" points="102.16,-15.5 112.16,-12 102.16,-8.5 102.16,-15.5"/>
+<title>interface~util_resize_tp&#45;&gt;proc~util_resize_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M76.24,-12C84.39,-12 93.13,-12 101.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="101.8,-15.5 111.8,-12 101.8,-8.5 101.8,-15.5"/>
 </g>
-<!-- interface~util_resize_tp -->
+<!-- interface~util_resize_pl -->
 <g id="proc~~util_resize_body~~CalledByGraph_node6" class="node">
-<title>interface~util_resize_tp</title>
-<g id="a_proc~~util_resize_body~~CalledByGraph_node6"><a xlink:href=".././interface/util_resize_tp.html" xlink:title="util_resize_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="76,-66 0,-66 0,-42 76,-42 76,-66"/>
-<text text-anchor="middle" x="38" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_tp</text>
+<title>interface~util_resize_pl</title>
+<g id="a_proc~~util_resize_body~~CalledByGraph_node6"><a xlink:href=".././interface/util_resize_pl.html" xlink:title="util_resize_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="75.5,-66 0.5,-66 0.5,-42 75.5,-42 75.5,-66"/>
+<text text-anchor="middle" x="38" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize_pl</text>
 </a>
 </g>
 </g>
-<!-- interface~util_resize_tp&#45;&gt;proc~util_resize_tp -->
+<!-- interface~util_resize_pl&#45;&gt;proc~util_resize_pl -->
 <g id="proc~~util_resize_body~~CalledByGraph_edge4" class="edge">
-<title>interface~util_resize_tp&#45;&gt;proc~util_resize_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M76.24,-54C84.39,-54 93.13,-54 101.62,-54"/>
-<polygon fill="#000000" stroke="#000000" points="101.8,-57.5 111.8,-54 101.8,-50.5 101.8,-57.5"/>
+<title>interface~util_resize_pl&#45;&gt;proc~util_resize_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M75.63,-54C84.07,-54 93.17,-54 101.99,-54"/>
+<polygon fill="#000000" stroke="#000000" points="102.16,-57.5 112.16,-54 102.16,-50.5 102.16,-57.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_set_beg_end_pl.html b/docs/proc/util_set_beg_end_pl.html
index 48698e73e..fbb628988 100644
--- a/docs/proc/util_set_beg_end_pl.html
+++ b/docs/proc/util_set_beg_end_pl.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~234"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~232"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/util_set_ir3h.html b/docs/proc/util_set_ir3h.html
index 37a50198b..4a0b24544 100644
--- a/docs/proc/util_set_ir3h.html
+++ b/docs/proc/util_set_ir3h.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~235"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~233"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/util_set_msys.html b/docs/proc/util_set_msys.html
index e8aa9198b..b8fd38aea 100644
--- a/docs/proc/util_set_msys.html
+++ b/docs/proc/util_set_msys.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~236"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~234"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/util_set_mu_pl.html b/docs/proc/util_set_mu_pl.html
index 63005bb23..1a08c8987 100644
--- a/docs/proc/util_set_mu_pl.html
+++ b/docs/proc/util_set_mu_pl.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~237"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~235"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/util_set_mu_tp.html b/docs/proc/util_set_mu_tp.html
index d03416972..61d25f0a8 100644
--- a/docs/proc/util_set_mu_tp.html
+++ b/docs/proc/util_set_mu_tp.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~238"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~236"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/util_set_rhill.html b/docs/proc/util_set_rhill.html
index 8d9de17a1..7d0d1b692 100644
--- a/docs/proc/util_set_rhill.html
+++ b/docs/proc/util_set_rhill.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~239"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~237"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/util_set_rhill_approximate.html b/docs/proc/util_set_rhill_approximate.html
index 3780578a4..27c3299f2 100644
--- a/docs/proc/util_set_rhill_approximate.html
+++ b/docs/proc/util_set_rhill_approximate.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~240"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~238"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/util_solve_linear_system_d.html b/docs/proc/util_solve_linear_system_d.html
index f3a043a6e..854166002 100644
--- a/docs/proc/util_solve_linear_system_d.html
+++ b/docs/proc/util_solve_linear_system_d.html
@@ -446,35 +446,35 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="141,-45 0,-45 0,-21 141,-21 141,-45"/>
 <text text-anchor="middle" x="70.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_solve_linear_system_d</text>
 </g>
-<!-- proc~ge_wpp -->
+<!-- proc~solve_wbs -->
 <g id="proc~~util_solve_linear_system_d~~CallsGraph_node2" class="node">
-<title>proc~ge_wpp</title>
-<g id="a_proc~~util_solve_linear_system_d~~CallsGraph_node2"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="235,-66 181,-66 181,-42 235,-42 235,-66"/>
-<text text-anchor="middle" x="208" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
+<title>proc~solve_wbs</title>
+<g id="a_proc~~util_solve_linear_system_d~~CallsGraph_node2"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="239,-66 177,-66 177,-42 239,-42 239,-66"/>
+<text text-anchor="middle" x="208" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- proc~util_solve_linear_system_d&#45;&gt;proc~ge_wpp -->
+<!-- proc~util_solve_linear_system_d&#45;&gt;proc~solve_wbs -->
 <g id="proc~~util_solve_linear_system_d~~CallsGraph_edge1" class="edge">
-<title>proc~util_solve_linear_system_d&#45;&gt;proc~ge_wpp</title>
-<path fill="none" stroke="#000000" d="M141.23,-43.81C151.51,-45.4 161.72,-46.98 170.92,-48.41"/>
-<polygon fill="#000000" stroke="#000000" points="170.41,-51.87 180.83,-49.94 171.49,-44.95 170.41,-51.87"/>
+<title>proc~util_solve_linear_system_d&#45;&gt;proc~solve_wbs</title>
+<path fill="none" stroke="#000000" d="M141.23,-43.81C150.08,-45.18 158.88,-46.54 167.03,-47.81"/>
+<polygon fill="#000000" stroke="#000000" points="166.55,-51.27 176.96,-49.34 167.62,-44.35 166.55,-51.27"/>
 </g>
-<!-- proc~solve_wbs -->
+<!-- proc~ge_wpp -->
 <g id="proc~~util_solve_linear_system_d~~CallsGraph_node3" class="node">
-<title>proc~solve_wbs</title>
-<g id="a_proc~~util_solve_linear_system_d~~CallsGraph_node3"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="239,-24 177,-24 177,0 239,0 239,-24"/>
-<text text-anchor="middle" x="208" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
+<title>proc~ge_wpp</title>
+<g id="a_proc~~util_solve_linear_system_d~~CallsGraph_node3"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="235,-24 181,-24 181,0 235,0 235,-24"/>
+<text text-anchor="middle" x="208" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- proc~util_solve_linear_system_d&#45;&gt;proc~solve_wbs -->
+<!-- proc~util_solve_linear_system_d&#45;&gt;proc~ge_wpp -->
 <g id="proc~~util_solve_linear_system_d~~CallsGraph_edge2" class="edge">
-<title>proc~util_solve_linear_system_d&#45;&gt;proc~solve_wbs</title>
-<path fill="none" stroke="#000000" d="M141.23,-22.19C150.08,-20.82 158.88,-19.46 167.03,-18.19"/>
-<polygon fill="#000000" stroke="#000000" points="167.62,-21.65 176.96,-16.66 166.55,-14.73 167.62,-21.65"/>
+<title>proc~util_solve_linear_system_d&#45;&gt;proc~ge_wpp</title>
+<path fill="none" stroke="#000000" d="M141.23,-22.19C151.51,-20.6 161.72,-19.02 170.92,-17.59"/>
+<polygon fill="#000000" stroke="#000000" points="171.49,-21.05 180.83,-16.06 170.41,-14.13 171.49,-21.05"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_solve_linear_system_q.html b/docs/proc/util_solve_linear_system_q.html
index 7ce71711a..6d2a480e3 100644
--- a/docs/proc/util_solve_linear_system_q.html
+++ b/docs/proc/util_solve_linear_system_q.html
@@ -446,35 +446,35 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="141,-45 0,-45 0,-21 141,-21 141,-45"/>
 <text text-anchor="middle" x="70.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_solve_linear_system_q</text>
 </g>
-<!-- proc~ge_wpp -->
+<!-- proc~solve_wbs -->
 <g id="proc~~util_solve_linear_system_q~~CallsGraph_node2" class="node">
-<title>proc~ge_wpp</title>
-<g id="a_proc~~util_solve_linear_system_q~~CallsGraph_node2"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="235,-66 181,-66 181,-42 235,-42 235,-66"/>
-<text text-anchor="middle" x="208" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
+<title>proc~solve_wbs</title>
+<g id="a_proc~~util_solve_linear_system_q~~CallsGraph_node2"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="239,-66 177,-66 177,-42 239,-42 239,-66"/>
+<text text-anchor="middle" x="208" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
 </a>
 </g>
 </g>
-<!-- proc~util_solve_linear_system_q&#45;&gt;proc~ge_wpp -->
+<!-- proc~util_solve_linear_system_q&#45;&gt;proc~solve_wbs -->
 <g id="proc~~util_solve_linear_system_q~~CallsGraph_edge1" class="edge">
-<title>proc~util_solve_linear_system_q&#45;&gt;proc~ge_wpp</title>
-<path fill="none" stroke="#000000" d="M141.23,-43.81C151.51,-45.4 161.72,-46.98 170.92,-48.41"/>
-<polygon fill="#000000" stroke="#000000" points="170.41,-51.87 180.83,-49.94 171.49,-44.95 170.41,-51.87"/>
+<title>proc~util_solve_linear_system_q&#45;&gt;proc~solve_wbs</title>
+<path fill="none" stroke="#000000" d="M141.23,-43.81C150.08,-45.18 158.88,-46.54 167.03,-47.81"/>
+<polygon fill="#000000" stroke="#000000" points="166.55,-51.27 176.96,-49.34 167.62,-44.35 166.55,-51.27"/>
 </g>
-<!-- proc~solve_wbs -->
+<!-- proc~ge_wpp -->
 <g id="proc~~util_solve_linear_system_q~~CallsGraph_node3" class="node">
-<title>proc~solve_wbs</title>
-<g id="a_proc~~util_solve_linear_system_q~~CallsGraph_node3"><a xlink:href=".././proc/solve_wbs.html" xlink:title="solve_wbs">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="239,-24 177,-24 177,0 239,0 239,-24"/>
-<text text-anchor="middle" x="208" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">solve_wbs</text>
+<title>proc~ge_wpp</title>
+<g id="a_proc~~util_solve_linear_system_q~~CallsGraph_node3"><a xlink:href=".././proc/ge_wpp.html" xlink:title="ge_wpp">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="235,-24 181,-24 181,0 235,0 235,-24"/>
+<text text-anchor="middle" x="208" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">ge_wpp</text>
 </a>
 </g>
 </g>
-<!-- proc~util_solve_linear_system_q&#45;&gt;proc~solve_wbs -->
+<!-- proc~util_solve_linear_system_q&#45;&gt;proc~ge_wpp -->
 <g id="proc~~util_solve_linear_system_q~~CallsGraph_edge2" class="edge">
-<title>proc~util_solve_linear_system_q&#45;&gt;proc~solve_wbs</title>
-<path fill="none" stroke="#000000" d="M141.23,-22.19C150.08,-20.82 158.88,-19.46 167.03,-18.19"/>
-<polygon fill="#000000" stroke="#000000" points="167.62,-21.65 176.96,-16.66 166.55,-14.73 167.62,-21.65"/>
+<title>proc~util_solve_linear_system_q&#45;&gt;proc~ge_wpp</title>
+<path fill="none" stroke="#000000" d="M141.23,-22.19C151.51,-20.6 161.72,-19.02 170.92,-17.59"/>
+<polygon fill="#000000" stroke="#000000" points="171.49,-21.05 180.83,-16.06 170.41,-14.13 171.49,-21.05"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_solve_rkf45.html b/docs/proc/util_solve_rkf45.html
index 19bc1c17c..ca2de1ff5 100644
--- a/docs/proc/util_solve_rkf45.html
+++ b/docs/proc/util_solve_rkf45.html
@@ -136,7 +136,7 @@ <h1>util_solve_rkf45
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">68 statements</a>
+    title=" 0.2% of total for procedures.">68 statements</a>
      </li> 
      
      
diff --git a/docs/proc/util_sort_body.html b/docs/proc/util_sort_body.html
index 7ac8221db..5fc182b50 100644
--- a/docs/proc/util_sort_body.html
+++ b/docs/proc/util_sort_body.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~246"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~245"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -323,65 +323,65 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.07,-33C289.25,-33 298,-33 306.51,-33"/>
 <polygon fill="#000000" stroke="#000000" points="306.72,-36.5 316.72,-33 306.72,-29.5 306.72,-36.5"/>
 </g>
-<!-- proc~util_sort_tp -->
+<!-- proc~util_sort_pl -->
 <g id="proc~~util_sort_body~~CalledByGraph_node3" class="node">
-<title>proc~util_sort_tp</title>
-<g id="a_proc~~util_sort_body~~CalledByGraph_node3"><a xlink:href=".././proc/util_sort_tp.html" xlink:title="util_sort_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="166,-66 101,-66 101,-42 166,-42 166,-66"/>
-<text text-anchor="middle" x="133.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_tp</text>
+<title>proc~util_sort_pl</title>
+<g id="a_proc~~util_sort_body~~CalledByGraph_node3"><a xlink:href=".././proc/util_sort_pl.html" xlink:title="util_sort_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="165.5,-66 101.5,-66 101.5,-42 165.5,-42 165.5,-66"/>
+<text text-anchor="middle" x="133.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_sort_tp&#45;&gt;interface~util_sort_body -->
+<!-- proc~util_sort_pl&#45;&gt;interface~util_sort_body -->
 <g id="proc~~util_sort_body~~CalledByGraph_edge2" class="edge">
-<title>proc~util_sort_tp&#45;&gt;interface~util_sort_body</title>
-<path fill="none" stroke="#000000" d="M166.02,-47.76C174.18,-46.14 183.15,-44.36 191.96,-42.62"/>
-<polygon fill="#000000" stroke="#000000" points="192.66,-46.05 201.79,-40.67 191.3,-39.18 192.66,-46.05"/>
+<title>proc~util_sort_pl&#45;&gt;interface~util_sort_body</title>
+<path fill="none" stroke="#000000" d="M165.73,-47.81C173.98,-46.18 183.09,-44.37 192.02,-42.6"/>
+<polygon fill="#000000" stroke="#000000" points="192.85,-46.01 201.98,-40.63 191.49,-39.14 192.85,-46.01"/>
 </g>
-<!-- proc~util_sort_pl -->
+<!-- proc~util_sort_tp -->
 <g id="proc~~util_sort_body~~CalledByGraph_node4" class="node">
-<title>proc~util_sort_pl</title>
-<g id="a_proc~~util_sort_body~~CalledByGraph_node4"><a xlink:href=".././proc/util_sort_pl.html" xlink:title="util_sort_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="165.5,-24 101.5,-24 101.5,0 165.5,0 165.5,-24"/>
-<text text-anchor="middle" x="133.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_pl</text>
+<title>proc~util_sort_tp</title>
+<g id="a_proc~~util_sort_body~~CalledByGraph_node4"><a xlink:href=".././proc/util_sort_tp.html" xlink:title="util_sort_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="166,-24 101,-24 101,0 166,0 166,-24"/>
+<text text-anchor="middle" x="133.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~util_sort_pl&#45;&gt;interface~util_sort_body -->
+<!-- proc~util_sort_tp&#45;&gt;interface~util_sort_body -->
 <g id="proc~~util_sort_body~~CalledByGraph_edge3" class="edge">
-<title>proc~util_sort_pl&#45;&gt;interface~util_sort_body</title>
-<path fill="none" stroke="#000000" d="M165.73,-18.19C173.98,-19.82 183.09,-21.63 192.02,-23.4"/>
-<polygon fill="#000000" stroke="#000000" points="191.49,-26.86 201.98,-25.37 192.85,-19.99 191.49,-26.86"/>
+<title>proc~util_sort_tp&#45;&gt;interface~util_sort_body</title>
+<path fill="none" stroke="#000000" d="M166.02,-18.24C174.18,-19.86 183.15,-21.64 191.96,-23.38"/>
+<polygon fill="#000000" stroke="#000000" points="191.3,-26.82 201.79,-25.33 192.66,-19.95 191.3,-26.82"/>
 </g>
 <!-- interface~util_sort_pl -->
 <g id="proc~~util_sort_body~~CalledByGraph_node5" class="node">
 <title>interface~util_sort_pl</title>
 <g id="a_proc~~util_sort_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_sort_pl.html" xlink:title="util_sort_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="64.5,-24 0.5,-24 0.5,0 64.5,0 64.5,-24"/>
-<text text-anchor="middle" x="32.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_pl</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="64.5,-66 0.5,-66 0.5,-42 64.5,-42 64.5,-66"/>
+<text text-anchor="middle" x="32.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~util_sort_pl&#45;&gt;proc~util_sort_pl -->
-<g id="proc~~util_sort_body~~CalledByGraph_edge5" class="edge">
+<g id="proc~~util_sort_body~~CalledByGraph_edge4" class="edge">
 <title>interface~util_sort_pl&#45;&gt;proc~util_sort_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M64.55,-12C72.95,-12 82.17,-12 91.04,-12"/>
-<polygon fill="#000000" stroke="#000000" points="91.22,-15.5 101.22,-12 91.22,-8.5 91.22,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M64.55,-54C72.95,-54 82.17,-54 91.04,-54"/>
+<polygon fill="#000000" stroke="#000000" points="91.22,-57.5 101.22,-54 91.22,-50.5 91.22,-57.5"/>
 </g>
 <!-- interface~util_sort_tp -->
 <g id="proc~~util_sort_body~~CalledByGraph_node6" class="node">
 <title>interface~util_sort_tp</title>
 <g id="a_proc~~util_sort_body~~CalledByGraph_node6"><a xlink:href=".././interface/util_sort_tp.html" xlink:title="util_sort_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="65,-66 0,-66 0,-42 65,-42 65,-66"/>
-<text text-anchor="middle" x="32.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_tp</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="65,-24 0,-24 0,0 65,0 65,-24"/>
+<text text-anchor="middle" x="32.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~util_sort_tp&#45;&gt;proc~util_sort_tp -->
-<g id="proc~~util_sort_body~~CalledByGraph_edge4" class="edge">
+<g id="proc~~util_sort_body~~CalledByGraph_edge5" class="edge">
 <title>interface~util_sort_tp&#45;&gt;proc~util_sort_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M65.1,-54C73.22,-54 82.09,-54 90.65,-54"/>
-<polygon fill="#000000" stroke="#000000" points="90.86,-57.5 100.86,-54 90.86,-50.5 90.86,-57.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M65.1,-12C73.22,-12 82.09,-12 90.65,-12"/>
+<polygon fill="#000000" stroke="#000000" points="90.86,-15.5 100.86,-12 90.86,-8.5 90.86,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_sort_pl.html b/docs/proc/util_sort_pl.html
index 251c07bbf..12b3baf16 100644
--- a/docs/proc/util_sort_pl.html
+++ b/docs/proc/util_sort_pl.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~247"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~246"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/util_sort_rearrange_body.html b/docs/proc/util_sort_rearrange_body.html
index 0151a2d5b..87c864d53 100644
--- a/docs/proc/util_sort_rearrange_body.html
+++ b/docs/proc/util_sort_rearrange_body.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~249"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~248"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -338,25 +338,10 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" d="M272.03,-19.64C280.42,-20.75 289.15,-21.89 297.82,-23.04"/>
 <polygon fill="#000000" stroke="#000000" points="297.58,-26.53 307.95,-24.37 298.49,-19.59 297.58,-26.53"/>
 </g>
-<!-- interface~util_sort_rearrange_pl -->
-<g id="proc~~util_sort_rearrange_body~~CalledByGraph_node5" class="node">
-<title>interface~util_sort_rearrange_pl</title>
-<g id="a_proc~~util_sort_rearrange_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_sort_rearrange_pl.html" xlink:title="util_sort_rearrange_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="118,-24 0,-24 0,0 118,0 118,-24"/>
-<text text-anchor="middle" x="59" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
-</a>
-</g>
-</g>
-<!-- interface~util_sort_rearrange_pl&#45;&gt;proc~util_sort_rearrange_pl -->
-<g id="proc~~util_sort_rearrange_body~~CalledByGraph_edge5" class="edge">
-<title>interface~util_sort_rearrange_pl&#45;&gt;proc~util_sort_rearrange_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M118.33,-12C126.61,-12 135.17,-12 143.62,-12"/>
-<polygon fill="#000000" stroke="#000000" points="143.82,-15.5 153.82,-12 143.82,-8.5 143.82,-15.5"/>
-</g>
 <!-- interface~util_sort_rearrange_tp -->
-<g id="proc~~util_sort_rearrange_body~~CalledByGraph_node6" class="node">
+<g id="proc~~util_sort_rearrange_body~~CalledByGraph_node5" class="node">
 <title>interface~util_sort_rearrange_tp</title>
-<g id="a_proc~~util_sort_rearrange_body~~CalledByGraph_node6"><a xlink:href=".././interface/util_sort_rearrange_tp.html" xlink:title="util_sort_rearrange_tp">
+<g id="a_proc~~util_sort_rearrange_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_sort_rearrange_tp.html" xlink:title="util_sort_rearrange_tp">
 <polygon fill="#a7506f" stroke="#a7506f" points="118,-66 0,-66 0,-42 118,-42 118,-66"/>
 <text text-anchor="middle" x="59" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_tp</text>
 </a>
@@ -368,6 +353,21 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M118.33,-54C126.61,-54 135.17,-54 143.62,-54"/>
 <polygon fill="#000000" stroke="#000000" points="143.82,-57.5 153.82,-54 143.82,-50.5 143.82,-57.5"/>
 </g>
+<!-- interface~util_sort_rearrange_pl -->
+<g id="proc~~util_sort_rearrange_body~~CalledByGraph_node6" class="node">
+<title>interface~util_sort_rearrange_pl</title>
+<g id="a_proc~~util_sort_rearrange_body~~CalledByGraph_node6"><a xlink:href=".././interface/util_sort_rearrange_pl.html" xlink:title="util_sort_rearrange_pl">
+<polygon fill="#a7506f" stroke="#a7506f" points="118,-24 0,-24 0,0 118,0 118,-24"/>
+<text text-anchor="middle" x="59" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort_rearrange_pl</text>
+</a>
+</g>
+</g>
+<!-- interface~util_sort_rearrange_pl&#45;&gt;proc~util_sort_rearrange_pl -->
+<g id="proc~~util_sort_rearrange_body~~CalledByGraph_edge5" class="edge">
+<title>interface~util_sort_rearrange_pl&#45;&gt;proc~util_sort_rearrange_pl</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M118.33,-12C126.61,-12 135.17,-12 143.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="143.82,-15.5 153.82,-12 143.82,-8.5 143.82,-15.5"/>
+</g>
 </g>
 </svg>
 </div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
diff --git a/docs/proc/util_sort_rearrange_pl.html b/docs/proc/util_sort_rearrange_pl.html
index 4846838ed..e9167ef4a 100644
--- a/docs/proc/util_sort_rearrange_pl.html
+++ b/docs/proc/util_sort_rearrange_pl.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~250"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~249"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/util_sort_rearrange_tp.html b/docs/proc/util_sort_rearrange_tp.html
index 896fb5737..925c7c82b 100644
--- a/docs/proc/util_sort_rearrange_tp.html
+++ b/docs/proc/util_sort_rearrange_tp.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~251"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~250"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/util_sort_tp.html b/docs/proc/util_sort_tp.html
index bf8f7bf36..26e883547 100644
--- a/docs/proc/util_sort_tp.html
+++ b/docs/proc/util_sort_tp.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~248"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~247"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/util_spill_body.html b/docs/proc/util_spill_body.html
index ad0cae1bb..1062fce6d 100644
--- a/docs/proc/util_spill_body.html
+++ b/docs/proc/util_spill_body.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~252"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
+  <td><span class="anchor" id="variable-self~251"></span>class(<a href='../type/swiftest_body.html'>swiftest_body</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -440,65 +440,65 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.07,-33C289.25,-33 298,-33 306.51,-33"/>
 <polygon fill="#000000" stroke="#000000" points="306.72,-36.5 316.72,-33 306.72,-29.5 306.72,-36.5"/>
 </g>
-<!-- proc~util_spill_tp -->
+<!-- proc~util_spill_pl -->
 <g id="proc~~util_spill_body~~CalledByGraph_node3" class="node">
-<title>proc~util_spill_tp</title>
-<g id="a_proc~~util_spill_body~~CalledByGraph_node3"><a xlink:href=".././proc/util_spill_tp.html" xlink:title="util_spill_tp">
-<polygon fill="#d9534f" stroke="#d9534f" points="166,-66 101,-66 101,-42 166,-42 166,-66"/>
-<text text-anchor="middle" x="133.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
+<title>proc~util_spill_pl</title>
+<g id="a_proc~~util_spill_body~~CalledByGraph_node3"><a xlink:href=".././proc/util_spill_pl.html" xlink:title="util_spill_pl">
+<polygon fill="#d9534f" stroke="#d9534f" points="165.5,-66 101.5,-66 101.5,-42 165.5,-42 165.5,-66"/>
+<text text-anchor="middle" x="133.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_tp&#45;&gt;interface~util_spill_body -->
+<!-- proc~util_spill_pl&#45;&gt;interface~util_spill_body -->
 <g id="proc~~util_spill_body~~CalledByGraph_edge2" class="edge">
-<title>proc~util_spill_tp&#45;&gt;interface~util_spill_body</title>
-<path fill="none" stroke="#000000" d="M166.02,-47.76C174.18,-46.14 183.15,-44.36 191.96,-42.62"/>
-<polygon fill="#000000" stroke="#000000" points="192.66,-46.05 201.79,-40.67 191.3,-39.18 192.66,-46.05"/>
+<title>proc~util_spill_pl&#45;&gt;interface~util_spill_body</title>
+<path fill="none" stroke="#000000" d="M165.73,-47.81C173.98,-46.18 183.09,-44.37 192.02,-42.6"/>
+<polygon fill="#000000" stroke="#000000" points="192.85,-46.01 201.98,-40.63 191.49,-39.14 192.85,-46.01"/>
 </g>
-<!-- proc~util_spill_pl -->
+<!-- proc~util_spill_tp -->
 <g id="proc~~util_spill_body~~CalledByGraph_node4" class="node">
-<title>proc~util_spill_pl</title>
-<g id="a_proc~~util_spill_body~~CalledByGraph_node4"><a xlink:href=".././proc/util_spill_pl.html" xlink:title="util_spill_pl">
-<polygon fill="#d9534f" stroke="#d9534f" points="165.5,-24 101.5,-24 101.5,0 165.5,0 165.5,-24"/>
-<text text-anchor="middle" x="133.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
+<title>proc~util_spill_tp</title>
+<g id="a_proc~~util_spill_body~~CalledByGraph_node4"><a xlink:href=".././proc/util_spill_tp.html" xlink:title="util_spill_tp">
+<polygon fill="#d9534f" stroke="#d9534f" points="166,-24 101,-24 101,0 166,0 166,-24"/>
+<text text-anchor="middle" x="133.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_pl&#45;&gt;interface~util_spill_body -->
+<!-- proc~util_spill_tp&#45;&gt;interface~util_spill_body -->
 <g id="proc~~util_spill_body~~CalledByGraph_edge3" class="edge">
-<title>proc~util_spill_pl&#45;&gt;interface~util_spill_body</title>
-<path fill="none" stroke="#000000" d="M165.73,-18.19C173.98,-19.82 183.09,-21.63 192.02,-23.4"/>
-<polygon fill="#000000" stroke="#000000" points="191.49,-26.86 201.98,-25.37 192.85,-19.99 191.49,-26.86"/>
+<title>proc~util_spill_tp&#45;&gt;interface~util_spill_body</title>
+<path fill="none" stroke="#000000" d="M166.02,-18.24C174.18,-19.86 183.15,-21.64 191.96,-23.38"/>
+<polygon fill="#000000" stroke="#000000" points="191.3,-26.82 201.79,-25.33 192.66,-19.95 191.3,-26.82"/>
 </g>
 <!-- interface~util_spill_pl -->
 <g id="proc~~util_spill_body~~CalledByGraph_node5" class="node">
 <title>interface~util_spill_pl</title>
 <g id="a_proc~~util_spill_body~~CalledByGraph_node5"><a xlink:href=".././interface/util_spill_pl.html" xlink:title="util_spill_pl">
-<polygon fill="#a7506f" stroke="#a7506f" points="64.5,-24 0.5,-24 0.5,0 64.5,0 64.5,-24"/>
-<text text-anchor="middle" x="32.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="64.5,-66 0.5,-66 0.5,-42 64.5,-42 64.5,-66"/>
+<text text-anchor="middle" x="32.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
 </a>
 </g>
 </g>
 <!-- interface~util_spill_pl&#45;&gt;proc~util_spill_pl -->
-<g id="proc~~util_spill_body~~CalledByGraph_edge5" class="edge">
+<g id="proc~~util_spill_body~~CalledByGraph_edge4" class="edge">
 <title>interface~util_spill_pl&#45;&gt;proc~util_spill_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M64.55,-12C72.95,-12 82.17,-12 91.04,-12"/>
-<polygon fill="#000000" stroke="#000000" points="91.22,-15.5 101.22,-12 91.22,-8.5 91.22,-15.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M64.55,-54C72.95,-54 82.17,-54 91.04,-54"/>
+<polygon fill="#000000" stroke="#000000" points="91.22,-57.5 101.22,-54 91.22,-50.5 91.22,-57.5"/>
 </g>
 <!-- interface~util_spill_tp -->
 <g id="proc~~util_spill_body~~CalledByGraph_node6" class="node">
 <title>interface~util_spill_tp</title>
 <g id="a_proc~~util_spill_body~~CalledByGraph_node6"><a xlink:href=".././interface/util_spill_tp.html" xlink:title="util_spill_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="65,-66 0,-66 0,-42 65,-42 65,-66"/>
-<text text-anchor="middle" x="32.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
+<polygon fill="#a7506f" stroke="#a7506f" points="65,-24 0,-24 0,0 65,0 65,-24"/>
+<text text-anchor="middle" x="32.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_tp</text>
 </a>
 </g>
 </g>
 <!-- interface~util_spill_tp&#45;&gt;proc~util_spill_tp -->
-<g id="proc~~util_spill_body~~CalledByGraph_edge4" class="edge">
+<g id="proc~~util_spill_body~~CalledByGraph_edge5" class="edge">
 <title>interface~util_spill_tp&#45;&gt;proc~util_spill_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M65.1,-54C73.22,-54 82.09,-54 90.65,-54"/>
-<polygon fill="#000000" stroke="#000000" points="90.86,-57.5 100.86,-54 90.86,-50.5 90.86,-57.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M65.1,-12C73.22,-12 82.09,-12 90.65,-12"/>
+<polygon fill="#000000" stroke="#000000" points="90.86,-15.5 100.86,-12 90.86,-8.5 90.86,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_spill_encounter.html b/docs/proc/util_spill_encounter.html
index e3ad36ff2..e34c02c97 100644
--- a/docs/proc/util_spill_encounter.html
+++ b/docs/proc/util_spill_encounter.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~253"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
+  <td><span class="anchor" id="variable-self~252"></span>class(<a href='../type/swiftest_encounter.html'>swiftest_encounter</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/util_spill_pl.html b/docs/proc/util_spill_pl.html
index 53ac2173a..ab5ab5488 100644
--- a/docs/proc/util_spill_pl.html
+++ b/docs/proc/util_spill_pl.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~254"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~253"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -320,59 +320,59 @@ <h3 class="panel-title">Calls</h3>
 <!-- proc~util_spill_pl -->
 <g id="proc~~util_spill_pl~~CallsGraph_node1" class="node">
 <title>proc~util_spill_pl</title>
-<polygon fill="none" stroke="black" points="64,-24 0,-24 0,0 64,0 64,-24"/>
-<text text-anchor="middle" x="32" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_spill_pl</text>
+<polygon fill="none" stroke="black" points="64,-44 0,-44 0,-20 64,-20 64,-44"/>
+<text text-anchor="middle" x="32" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_spill_pl</text>
 </g>
-<!-- interface~util_spill_body -->
+<!-- interface~util_spill~2 -->
 <g id="proc~~util_spill_pl~~CallsGraph_node2" class="node">
-<title>interface~util_spill_body</title>
-<g id="a_proc~~util_spill_pl~~CallsGraph_node2"><a xlink:href=".././interface/util_spill_body.html" xlink:title="util_spill_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="179,-44 100,-44 100,-20 179,-20 179,-44"/>
-<text text-anchor="middle" x="139.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
+<title>interface~util_spill~2</title>
+<g id="a_proc~~util_spill_pl~~CallsGraph_node2"><a xlink:href=".././interface/util_spill~2.html" xlink:title="util_spill">
+<polygon fill="#a7506f" stroke="#a7506f" points="384,-44 330,-44 330,-20 384,-20 384,-44"/>
+<text text-anchor="middle" x="357" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_pl&#45;&gt;interface~util_spill_body -->
+<!-- proc~util_spill_pl&#45;&gt;interface~util_spill~2 -->
 <g id="proc~~util_spill_pl~~CallsGraph_edge1" class="edge">
-<title>proc~util_spill_pl&#45;&gt;interface~util_spill_body</title>
-<path fill="none" stroke="#000000" d="M64.08,-17.89C72.12,-19.42 80.97,-21.09 89.68,-22.74"/>
-<polygon fill="#000000" stroke="#000000" points="89.3,-26.24 99.78,-24.66 90.6,-19.36 89.3,-26.24"/>
+<title>proc~util_spill_pl&#45;&gt;interface~util_spill~2</title>
+<path fill="none" stroke="#000000" d="M64.02,-32.56C75.34,-32.74 88.25,-32.91 100,-33 186.22,-33.64 207.78,-33.7 294,-33 302.25,-32.93 311.12,-32.82 319.49,-32.69"/>
+<polygon fill="#000000" stroke="#000000" points="319.81,-36.18 329.76,-32.52 319.7,-29.18 319.81,-36.18"/>
 </g>
-<!-- interface~util_spill~2 -->
+<!-- interface~util_spill_body -->
 <g id="proc~~util_spill_pl~~CallsGraph_node3" class="node">
-<title>interface~util_spill~2</title>
-<g id="a_proc~~util_spill_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_spill~2.html" xlink:title="util_spill">
-<polygon fill="#a7506f" stroke="#a7506f" points="384,-24 330,-24 330,0 384,0 384,-24"/>
-<text text-anchor="middle" x="357" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+<title>interface~util_spill_body</title>
+<g id="a_proc~~util_spill_pl~~CallsGraph_node3"><a xlink:href=".././interface/util_spill_body.html" xlink:title="util_spill_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="179,-24 100,-24 100,0 179,0 179,-24"/>
+<text text-anchor="middle" x="139.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_pl&#45;&gt;interface~util_spill~2 -->
+<!-- proc~util_spill_pl&#45;&gt;interface~util_spill_body -->
 <g id="proc~~util_spill_pl~~CallsGraph_edge2" class="edge">
-<title>proc~util_spill_pl&#45;&gt;interface~util_spill~2</title>
-<path fill="none" stroke="#000000" d="M64.02,-11.44C75.34,-11.26 88.25,-11.09 100,-11 186.22,-10.36 207.78,-10.3 294,-11 302.25,-11.07 311.12,-11.18 319.49,-11.31"/>
-<polygon fill="#000000" stroke="#000000" points="319.7,-14.82 329.76,-11.48 319.81,-7.82 319.7,-14.82"/>
+<title>proc~util_spill_pl&#45;&gt;interface~util_spill_body</title>
+<path fill="none" stroke="#000000" d="M64.08,-26.11C72.12,-24.58 80.97,-22.91 89.68,-21.26"/>
+<polygon fill="#000000" stroke="#000000" points="90.6,-24.64 99.78,-19.34 89.3,-17.76 90.6,-24.64"/>
 </g>
 <!-- proc~util_spill_body -->
 <g id="proc~~util_spill_pl~~CallsGraph_node4" class="node">
 <title>proc~util_spill_body</title>
 <g id="a_proc~~util_spill_pl~~CallsGraph_node4"><a xlink:href=".././proc/util_spill_body.html" xlink:title="util_spill_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="294,-44 215,-44 215,-20 294,-20 294,-44"/>
-<text text-anchor="middle" x="254.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="294,-24 215,-24 215,0 294,0 294,-24"/>
+<text text-anchor="middle" x="254.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
 </a>
 </g>
 </g>
 <!-- interface~util_spill_body&#45;&gt;proc~util_spill_body -->
 <g id="proc~~util_spill_pl~~CallsGraph_edge3" class="edge">
 <title>interface~util_spill_body&#45;&gt;proc~util_spill_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M179.07,-32C187.25,-32 196,-32 204.51,-32"/>
-<polygon fill="#000000" stroke="#000000" points="204.72,-35.5 214.72,-32 204.72,-28.5 204.72,-35.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M179.07,-12C187.25,-12 196,-12 204.51,-12"/>
+<polygon fill="#000000" stroke="#000000" points="204.72,-15.5 214.72,-12 204.72,-8.5 204.72,-15.5"/>
 </g>
 <!-- proc~util_spill_body&#45;&gt;interface~util_spill~2 -->
 <g id="proc~~util_spill_pl~~CallsGraph_edge4" class="edge">
 <title>proc~util_spill_body&#45;&gt;interface~util_spill~2</title>
-<path fill="none" stroke="#000000" d="M294.07,-24.32C302.57,-22.63 311.54,-20.85 319.94,-19.18"/>
-<polygon fill="#000000" stroke="#000000" points="320.7,-22.59 329.82,-17.21 319.33,-15.73 320.7,-22.59"/>
+<path fill="none" stroke="#000000" d="M294.07,-19.68C302.57,-21.37 311.54,-23.15 319.94,-24.82"/>
+<polygon fill="#000000" stroke="#000000" points="319.33,-28.27 329.82,-26.79 320.7,-21.41 319.33,-28.27"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_spill_tp.html b/docs/proc/util_spill_tp.html
index ddf171896..bcdf0a753 100644
--- a/docs/proc/util_spill_tp.html
+++ b/docs/proc/util_spill_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~255"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~254"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -320,59 +320,59 @@ <h3 class="panel-title">Calls</h3>
 <!-- proc~util_spill_tp -->
 <g id="proc~~util_spill_tp~~CallsGraph_node1" class="node">
 <title>proc~util_spill_tp</title>
-<polygon fill="none" stroke="black" points="65,-24 0,-24 0,0 65,0 65,-24"/>
-<text text-anchor="middle" x="32.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_spill_tp</text>
+<polygon fill="none" stroke="black" points="65,-44 0,-44 0,-20 65,-20 65,-44"/>
+<text text-anchor="middle" x="32.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_spill_tp</text>
 </g>
-<!-- interface~util_spill_body -->
+<!-- interface~util_spill~2 -->
 <g id="proc~~util_spill_tp~~CallsGraph_node2" class="node">
-<title>interface~util_spill_body</title>
-<g id="a_proc~~util_spill_tp~~CallsGraph_node2"><a xlink:href=".././interface/util_spill_body.html" xlink:title="util_spill_body">
-<polygon fill="#a7506f" stroke="#a7506f" points="180,-44 101,-44 101,-20 180,-20 180,-44"/>
-<text text-anchor="middle" x="140.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
+<title>interface~util_spill~2</title>
+<g id="a_proc~~util_spill_tp~~CallsGraph_node2"><a xlink:href=".././interface/util_spill~2.html" xlink:title="util_spill">
+<polygon fill="#a7506f" stroke="#a7506f" points="385,-44 331,-44 331,-20 385,-20 385,-44"/>
+<text text-anchor="middle" x="358" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_tp&#45;&gt;interface~util_spill_body -->
+<!-- proc~util_spill_tp&#45;&gt;interface~util_spill~2 -->
 <g id="proc~~util_spill_tp~~CallsGraph_edge1" class="edge">
-<title>proc~util_spill_tp&#45;&gt;interface~util_spill_body</title>
-<path fill="none" stroke="#000000" d="M65.02,-17.95C73.09,-19.47 81.96,-21.14 90.68,-22.79"/>
-<polygon fill="#000000" stroke="#000000" points="90.31,-26.28 100.79,-24.7 91.61,-19.4 90.31,-26.28"/>
+<title>proc~util_spill_tp&#45;&gt;interface~util_spill~2</title>
+<path fill="none" stroke="#000000" d="M65.09,-32.56C76.42,-32.74 89.28,-32.91 101,-33 187.22,-33.64 208.78,-33.7 295,-33 303.25,-32.93 312.12,-32.82 320.49,-32.69"/>
+<polygon fill="#000000" stroke="#000000" points="320.81,-36.18 330.76,-32.52 320.7,-29.18 320.81,-36.18"/>
 </g>
-<!-- interface~util_spill~2 -->
+<!-- interface~util_spill_body -->
 <g id="proc~~util_spill_tp~~CallsGraph_node3" class="node">
-<title>interface~util_spill~2</title>
-<g id="a_proc~~util_spill_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_spill~2.html" xlink:title="util_spill">
-<polygon fill="#a7506f" stroke="#a7506f" points="385,-24 331,-24 331,0 385,0 385,-24"/>
-<text text-anchor="middle" x="358" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+<title>interface~util_spill_body</title>
+<g id="a_proc~~util_spill_tp~~CallsGraph_node3"><a xlink:href=".././interface/util_spill_body.html" xlink:title="util_spill_body">
+<polygon fill="#a7506f" stroke="#a7506f" points="180,-24 101,-24 101,0 180,0 180,-24"/>
+<text text-anchor="middle" x="140.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
 </a>
 </g>
 </g>
-<!-- proc~util_spill_tp&#45;&gt;interface~util_spill~2 -->
+<!-- proc~util_spill_tp&#45;&gt;interface~util_spill_body -->
 <g id="proc~~util_spill_tp~~CallsGraph_edge2" class="edge">
-<title>proc~util_spill_tp&#45;&gt;interface~util_spill~2</title>
-<path fill="none" stroke="#000000" d="M65.09,-11.44C76.42,-11.26 89.28,-11.09 101,-11 187.22,-10.36 208.78,-10.3 295,-11 303.25,-11.07 312.12,-11.18 320.49,-11.31"/>
-<polygon fill="#000000" stroke="#000000" points="320.7,-14.82 330.76,-11.48 320.81,-7.82 320.7,-14.82"/>
+<title>proc~util_spill_tp&#45;&gt;interface~util_spill_body</title>
+<path fill="none" stroke="#000000" d="M65.02,-26.05C73.09,-24.53 81.96,-22.86 90.68,-21.21"/>
+<polygon fill="#000000" stroke="#000000" points="91.61,-24.6 100.79,-19.3 90.31,-17.72 91.61,-24.6"/>
 </g>
 <!-- proc~util_spill_body -->
 <g id="proc~~util_spill_tp~~CallsGraph_node4" class="node">
 <title>proc~util_spill_body</title>
 <g id="a_proc~~util_spill_tp~~CallsGraph_node4"><a xlink:href=".././proc/util_spill_body.html" xlink:title="util_spill_body">
-<polygon fill="#d9534f" stroke="#d9534f" points="295,-44 216,-44 216,-20 295,-20 295,-44"/>
-<text text-anchor="middle" x="255.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
+<polygon fill="#d9534f" stroke="#d9534f" points="295,-24 216,-24 216,0 295,0 295,-24"/>
+<text text-anchor="middle" x="255.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_body</text>
 </a>
 </g>
 </g>
 <!-- interface~util_spill_body&#45;&gt;proc~util_spill_body -->
 <g id="proc~~util_spill_tp~~CallsGraph_edge3" class="edge">
 <title>interface~util_spill_body&#45;&gt;proc~util_spill_body</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.07,-32C188.25,-32 197,-32 205.51,-32"/>
-<polygon fill="#000000" stroke="#000000" points="205.72,-35.5 215.72,-32 205.72,-28.5 205.72,-35.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.07,-12C188.25,-12 197,-12 205.51,-12"/>
+<polygon fill="#000000" stroke="#000000" points="205.72,-15.5 215.72,-12 205.72,-8.5 205.72,-15.5"/>
 </g>
 <!-- proc~util_spill_body&#45;&gt;interface~util_spill~2 -->
 <g id="proc~~util_spill_tp~~CallsGraph_edge4" class="edge">
 <title>proc~util_spill_body&#45;&gt;interface~util_spill~2</title>
-<path fill="none" stroke="#000000" d="M295.07,-24.32C303.57,-22.63 312.54,-20.85 320.94,-19.18"/>
-<polygon fill="#000000" stroke="#000000" points="321.7,-22.59 330.82,-17.21 320.33,-15.73 321.7,-22.59"/>
+<path fill="none" stroke="#000000" d="M295.07,-19.68C303.57,-21.37 312.54,-23.15 320.94,-24.82"/>
+<polygon fill="#000000" stroke="#000000" points="320.33,-28.27 330.82,-26.79 321.7,-21.41 320.33,-28.27"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/util_valid.html b/docs/proc/util_valid_id_system.html
similarity index 71%
rename from docs/proc/util_valid.html
rename to docs/proc/util_valid_id_system.html
index 5cc811113..d57c5f99e 100644
--- a/docs/proc/util_valid.html
+++ b/docs/proc/util_valid_id_system.html
@@ -10,7 +10,7 @@
     <meta name="author" content="David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott" >
     <link rel="icon" href="../favicon.png">
 
-    <title>util_valid &ndash; swiftest</title>
+    <title>util_valid_id_system &ndash; swiftest</title>
 
     <link href="../css/bootstrap.min.css" rel="stylesheet">
     <link href="../css/pygments.css" rel="stylesheet">
@@ -116,7 +116,7 @@
     
   
   <div class="row">
-    <h1>util_valid
+    <h1>util_valid_id_system
       <small>Module Subroutine</small>
     
     </h1>
@@ -136,7 +136,7 @@ <h1>util_valid
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.1% of total for procedures.">25 statements</a>
+    title=" 0.1% of total for procedures.">27 statements</a>
      </li> 
      
      
@@ -153,7 +153,7 @@ <h1>util_valid
      <li><a href='../module/s_util_valid.html'>s_util_valid</a></li>
     
   
-     <li class="active">util_valid</li>
+     <li class="active">util_valid_id_system</li>
   </ol>
 </div>
 </div>
@@ -203,10 +203,10 @@ <h3>Contents</h3>
     
     <div class="col-md-9" id='text'>
     <h2>
-module subroutine util_valid(pl, tp)
+module subroutine util_valid_id_system(self, param)
     
     
-   <a href='../interface/util_valid.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
+   <a href='../interface/util_valid_id_system.html'><button type="button" class="btn btn-info depwarn">Interface &rarr;</button></a>
     
    
 </h2>
@@ -238,12 +238,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-pl~18"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
-  <td>intent(in)</td>
+  <td><span class="anchor" id="variable-self~255"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>pl</strong></td><td></td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
   
 </tr>
 
@@ -253,12 +253,12 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-tp~11"></span>class(<a href='../type/swiftest_tp.html'>swiftest_tp</a>),</td>
+  <td><span class="anchor" id="variable-param~136"></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
   <td>intent(in)</td>
   <td></td>
   
   <td></td><td>::</td>
-  <td><strong>tp</strong></td><td></td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
   
 </tr>
 
@@ -281,62 +281,62 @@ <h3 class="panel-title">Calls</h3>
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
-<!-- Title: proc~~util_valid~~CallsGraph Pages: 1 -->
-<svg id="procutil_validCallsGraph" width="242pt" height="74pt"
- viewBox="0.00 0.00 242.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~util_valid~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
-<title>proc~~util_valid~~CallsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 238,-70 238,4 -4,4"/>
-<!-- proc~util_valid -->
-<g id="proc~~util_valid~~CallsGraph_node1" class="node">
-<title>proc~util_valid</title>
-<polygon fill="none" stroke="black" points="54,-45 0,-45 0,-21 54,-21 54,-45"/>
-<text text-anchor="middle" x="27" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_valid</text>
+<!-- Title: proc~~util_valid_id_system~~CallsGraph Pages: 1 -->
+<svg id="procutil_valid_id_systemCallsGraph" width="296pt" height="74pt"
+ viewBox="0.00 0.00 296.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_valid_id_system~~CallsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
+<title>proc~~util_valid_id_system~~CallsGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 292,-70 292,4 -4,4"/>
+<!-- proc~util_valid_id_system -->
+<g id="proc~~util_valid_id_system~~CallsGraph_node1" class="node">
+<title>proc~util_valid_id_system</title>
+<polygon fill="none" stroke="black" points="108,-45 0,-45 0,-21 108,-21 108,-45"/>
+<text text-anchor="middle" x="54" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_valid_id_system</text>
 </g>
 <!-- interface~util_exit -->
-<g id="proc~~util_valid~~CallsGraph_node2" class="node">
+<g id="proc~~util_valid_id_system~~CallsGraph_node2" class="node">
 <title>interface~util_exit</title>
-<g id="a_proc~~util_valid~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
-<polygon fill="#a7506f" stroke="#a7506f" points="144,-66 90,-66 90,-42 144,-42 144,-66"/>
-<text text-anchor="middle" x="117" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_proc~~util_valid_id_system~~CallsGraph_node2"><a xlink:href=".././interface/util_exit.html" xlink:title="util_exit">
+<polygon fill="#a7506f" stroke="#a7506f" points="198,-66 144,-66 144,-42 198,-42 198,-66"/>
+<text text-anchor="middle" x="171" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
-<!-- proc~util_valid&#45;&gt;interface~util_exit -->
-<g id="proc~~util_valid~~CallsGraph_edge1" class="edge">
-<title>proc~util_valid&#45;&gt;interface~util_exit</title>
-<path fill="none" stroke="#000000" d="M54.4,-39.3C62.48,-41.23 71.51,-43.38 80.1,-45.43"/>
-<polygon fill="#000000" stroke="#000000" points="79.38,-48.86 89.92,-47.78 81,-42.05 79.38,-48.86"/>
+<!-- proc~util_valid_id_system&#45;&gt;interface~util_exit -->
+<g id="proc~~util_valid_id_system~~CallsGraph_edge1" class="edge">
+<title>proc~util_valid_id_system&#45;&gt;interface~util_exit</title>
+<path fill="none" stroke="#000000" d="M108.12,-42.7C116.81,-44.29 125.64,-45.9 133.8,-47.39"/>
+<polygon fill="#000000" stroke="#000000" points="133.25,-50.85 143.71,-49.2 134.5,-43.96 133.25,-50.85"/>
 </g>
 <!-- interface~util_sort -->
-<g id="proc~~util_valid~~CallsGraph_node3" class="node">
+<g id="proc~~util_valid_id_system~~CallsGraph_node3" class="node">
 <title>interface~util_sort</title>
-<g id="a_proc~~util_valid~~CallsGraph_node3"><a xlink:href=".././interface/util_sort.html" xlink:title="util_sort">
-<polygon fill="#a7506f" stroke="#a7506f" 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">util_sort</text>
+<g id="a_proc~~util_valid_id_system~~CallsGraph_node3"><a xlink:href=".././interface/util_sort.html" xlink:title="util_sort">
+<polygon fill="#a7506f" stroke="#a7506f" points="198,-24 144,-24 144,0 198,0 198,-24"/>
+<text text-anchor="middle" x="171" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort</text>
 </a>
 </g>
 </g>
-<!-- proc~util_valid&#45;&gt;interface~util_sort -->
-<g id="proc~~util_valid~~CallsGraph_edge2" class="edge">
-<title>proc~util_valid&#45;&gt;interface~util_sort</title>
-<path fill="none" stroke="#000000" d="M54.4,-26.7C62.48,-24.77 71.51,-22.62 80.1,-20.57"/>
-<polygon fill="#000000" stroke="#000000" points="81,-23.95 89.92,-18.22 79.38,-17.14 81,-23.95"/>
+<!-- proc~util_valid_id_system&#45;&gt;interface~util_sort -->
+<g id="proc~~util_valid_id_system~~CallsGraph_edge2" class="edge">
+<title>proc~util_valid_id_system&#45;&gt;interface~util_sort</title>
+<path fill="none" stroke="#000000" d="M108.12,-23.3C116.81,-21.71 125.64,-20.1 133.8,-18.61"/>
+<polygon fill="#000000" stroke="#000000" points="134.5,-22.04 143.71,-16.8 133.25,-15.15 134.5,-22.04"/>
 </g>
 <!-- proc~util_exit -->
-<g id="proc~~util_valid~~CallsGraph_node4" class="node">
+<g id="proc~~util_valid_id_system~~CallsGraph_node4" class="node">
 <title>proc~util_exit</title>
-<g id="a_proc~~util_valid~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
-<polygon fill="#d9534f" stroke="#d9534f" points="234,-66 180,-66 180,-42 234,-42 234,-66"/>
-<text text-anchor="middle" x="207" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<g id="a_proc~~util_valid_id_system~~CallsGraph_node4"><a xlink:href=".././proc/util_exit.html" xlink:title="util_exit">
+<polygon fill="#d9534f" stroke="#d9534f" points="288,-66 234,-66 234,-42 288,-42 288,-66"/>
+<text text-anchor="middle" x="261" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </a>
 </g>
 </g>
 <!-- interface~util_exit&#45;&gt;proc~util_exit -->
-<g id="proc~~util_valid~~CallsGraph_edge3" class="edge">
+<g id="proc~~util_valid_id_system~~CallsGraph_edge3" class="edge">
 <title>interface~util_exit&#45;&gt;proc~util_exit</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.4,-54C152.39,-54 161.31,-54 169.82,-54"/>
-<polygon fill="#000000" stroke="#000000" points="169.92,-57.5 179.92,-54 169.92,-50.5 169.92,-57.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M198.4,-54C206.39,-54 215.31,-54 223.82,-54"/>
+<polygon fill="#000000" stroke="#000000" points="223.92,-57.5 233.92,-54 223.92,-50.5 223.92,-57.5"/>
 </g>
 </g>
 </svg>
@@ -413,62 +413,32 @@ <h3 class="panel-title">Called by</h3>
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
-<!-- Title: proc~~util_valid~~CalledByGraph Pages: 1 -->
-<svg id="procutil_validCalledByGraph" width="468pt" height="32pt"
- viewBox="0.00 0.00 468.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="proc~~util_valid~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>proc~~util_valid~~CalledByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 464,-28 464,4 -4,4"/>
-<!-- proc~util_valid -->
-<g id="proc~~util_valid~~CalledByGraph_node1" class="node">
-<title>proc~util_valid</title>
-<polygon fill="none" stroke="black" points="460,-24 406,-24 406,0 460,0 460,-24"/>
-<text text-anchor="middle" x="433" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_valid</text>
-</g>
-<!-- interface~util_valid -->
-<g id="proc~~util_valid~~CalledByGraph_node2" class="node">
-<title>interface~util_valid</title>
-<g id="a_proc~~util_valid~~CalledByGraph_node2"><a xlink:href=".././interface/util_valid.html" xlink:title="util_valid">
-<polygon fill="#a7506f" stroke="#a7506f" points="370,-24 316,-24 316,0 370,0 370,-24"/>
-<text text-anchor="middle" x="343" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid</text>
-</a>
-</g>
-</g>
-<!-- interface~util_valid&#45;&gt;proc~util_valid -->
-<g id="proc~~util_valid~~CalledByGraph_edge1" class="edge">
-<title>interface~util_valid&#45;&gt;proc~util_valid</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M370.4,-12C378.39,-12 387.31,-12 395.82,-12"/>
-<polygon fill="#000000" stroke="#000000" points="395.92,-15.5 405.92,-12 395.92,-8.5 395.92,-15.5"/>
-</g>
-<!-- proc~setup_initialize_system -->
-<g id="proc~~util_valid~~CalledByGraph_node3" class="node">
-<title>proc~setup_initialize_system</title>
-<g id="a_proc~~util_valid~~CalledByGraph_node3"><a xlink:href=".././proc/setup_initialize_system.html" xlink:title="setup_initialize_system">
-<polygon fill="#d9534f" stroke="#d9534f" points="280,-24 158,-24 158,0 280,0 280,-24"/>
-<text text-anchor="middle" x="219" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
-</a>
-</g>
-</g>
-<!-- proc~setup_initialize_system&#45;&gt;interface~util_valid -->
-<g id="proc~~util_valid~~CalledByGraph_edge2" class="edge">
-<title>proc~setup_initialize_system&#45;&gt;interface~util_valid</title>
-<path fill="none" stroke="#000000" d="M280.29,-12C288.97,-12 297.67,-12 305.69,-12"/>
-<polygon fill="#000000" stroke="#000000" points="305.77,-15.5 315.77,-12 305.77,-8.5 305.77,-15.5"/>
-</g>
-<!-- interface~setup_initialize_system -->
-<g id="proc~~util_valid~~CalledByGraph_node4" class="node">
-<title>interface~setup_initialize_system</title>
-<g id="a_proc~~util_valid~~CalledByGraph_node4"><a xlink:href=".././interface/setup_initialize_system.html" xlink:title="setup_initialize_system">
-<polygon fill="#a7506f" stroke="#a7506f" points="122,-24 0,-24 0,0 122,0 122,-24"/>
-<text text-anchor="middle" x="61" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
+<!-- Title: proc~~util_valid_id_system~~CalledByGraph Pages: 1 -->
+<svg id="procutil_valid_id_systemCalledByGraph" width="260pt" height="32pt"
+ viewBox="0.00 0.00 260.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="proc~~util_valid_id_system~~CalledByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<title>proc~~util_valid_id_system~~CalledByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 256,-28 256,4 -4,4"/>
+<!-- proc~util_valid_id_system -->
+<g id="proc~~util_valid_id_system~~CalledByGraph_node1" class="node">
+<title>proc~util_valid_id_system</title>
+<polygon fill="none" stroke="black" points="252,-24 144,-24 144,0 252,0 252,-24"/>
+<text text-anchor="middle" x="198" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_valid_id_system</text>
+</g>
+<!-- interface~util_valid_id_system -->
+<g id="proc~~util_valid_id_system~~CalledByGraph_node2" class="node">
+<title>interface~util_valid_id_system</title>
+<g id="a_proc~~util_valid_id_system~~CalledByGraph_node2"><a xlink:href=".././interface/util_valid_id_system.html" xlink:title="util_valid_id_system">
+<polygon fill="#a7506f" stroke="#a7506f" 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" fill="white">util_valid_id_system</text>
 </a>
 </g>
 </g>
-<!-- interface~setup_initialize_system&#45;&gt;proc~setup_initialize_system -->
-<g id="proc~~util_valid~~CalledByGraph_edge3" class="edge">
-<title>interface~setup_initialize_system&#45;&gt;proc~setup_initialize_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.31,-12C130.6,-12 139.17,-12 147.63,-12"/>
-<polygon fill="#000000" stroke="#000000" points="147.85,-15.5 157.85,-12 147.85,-8.5 147.85,-15.5"/>
+<!-- interface~util_valid_id_system&#45;&gt;proc~util_valid_id_system -->
+<g id="proc~~util_valid_id_system~~CalledByGraph_edge1" class="edge">
+<title>interface~util_valid_id_system&#45;&gt;proc~util_valid_id_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M108.28,-12C116.56,-12 125.18,-12 133.66,-12"/>
+<polygon fill="#000000" stroke="#000000" points="133.89,-15.5 143.89,-12 133.89,-8.5 133.89,-15.5"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/whm_coord_h2j_pl.html b/docs/proc/whm_coord_h2j_pl.html
index 03d780b02..c28ef7bb0 100644
--- a/docs/proc/whm_coord_h2j_pl.html
+++ b/docs/proc/whm_coord_h2j_pl.html
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~209"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~207"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -294,39 +294,39 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="103,-129 0,-129 0,-105 103,-105 103,-129"/>
 <text text-anchor="middle" x="51.5" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_coord_h2j_pl</text>
 </g>
-<!-- xh -->
+<!-- eta -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_node2" class="node">
-<title>xh</title>
+<title>eta</title>
 <polygon fill="#777777" stroke="#777777" points="193,-234 139,-234 139,-210 193,-210 193,-234"/>
-<text text-anchor="middle" x="166" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
+<text text-anchor="middle" x="166" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;xh -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;eta -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_edge1" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;xh</title>
+<title>proc~whm_coord_h2j_pl&#45;&gt;eta</title>
 <path fill="none" stroke="#000000" d="M64.21,-129.04C80.53,-145.68 111.27,-176.43 139,-201 139.83,-201.73 140.67,-202.47 141.53,-203.21"/>
 <polygon fill="#000000" stroke="#000000" points="139.49,-206.07 149.41,-209.79 143.98,-200.69 139.49,-206.07"/>
 </g>
-<!-- gmpl -->
+<!-- vj -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_node3" class="node">
-<title>gmpl</title>
+<title>vj</title>
 <polygon fill="#777777" stroke="#777777" points="193,-192 139,-192 139,-168 193,-168 193,-192"/>
-<text text-anchor="middle" x="166" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gmpl</text>
+<text text-anchor="middle" x="166" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;gmpl -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;vj -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;gmpl</title>
+<title>proc~whm_coord_h2j_pl&#45;&gt;vj</title>
 <path fill="none" stroke="#000000" d="M74.19,-129.15C91.31,-138.73 115.4,-152.23 134.47,-162.9"/>
 <polygon fill="#000000" stroke="#000000" points="132.94,-166.06 143.38,-167.89 136.36,-159.95 132.94,-166.06"/>
 </g>
-<!-- vj -->
+<!-- xh -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_node4" class="node">
-<title>vj</title>
+<title>xh</title>
 <polygon fill="#777777" stroke="#777777" points="193,-150 139,-150 139,-126 193,-126 193,-150"/>
-<text text-anchor="middle" x="166" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
+<text text-anchor="middle" x="166" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;vj -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;xh -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;vj</title>
+<title>proc~whm_coord_h2j_pl&#45;&gt;xh</title>
 <path fill="none" stroke="#000000" d="M103.16,-126.46C111.85,-128.08 120.72,-129.73 128.93,-131.27"/>
 <polygon fill="#000000" stroke="#000000" points="128.45,-134.74 138.92,-133.13 129.73,-127.86 128.45,-134.74"/>
 </g>
@@ -342,15 +342,15 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M103.16,-107.54C111.85,-105.92 120.72,-104.27 128.93,-102.73"/>
 <polygon fill="#000000" stroke="#000000" points="129.73,-106.14 138.92,-100.87 128.45,-99.26 129.73,-106.14"/>
 </g>
-<!-- eta -->
+<!-- gmpl -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_node6" class="node">
-<title>eta</title>
+<title>gmpl</title>
 <polygon fill="#777777" stroke="#777777" points="193,-66 139,-66 139,-42 193,-42 193,-66"/>
-<text text-anchor="middle" x="166" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
+<text text-anchor="middle" x="166" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gmpl</text>
 </g>
-<!-- proc~whm_coord_h2j_pl&#45;&gt;eta -->
+<!-- proc~whm_coord_h2j_pl&#45;&gt;gmpl -->
 <g id="proc~~whm_coord_h2j_pl~~CallsGraph_edge5" class="edge">
-<title>proc~whm_coord_h2j_pl&#45;&gt;eta</title>
+<title>proc~whm_coord_h2j_pl&#45;&gt;gmpl</title>
 <path fill="none" stroke="#000000" d="M74.19,-104.85C91.31,-95.27 115.4,-81.77 134.47,-71.1"/>
 <polygon fill="#000000" stroke="#000000" points="136.36,-74.05 143.38,-66.11 132.94,-67.94 136.36,-74.05"/>
 </g>
diff --git a/docs/proc/whm_coord_j2h_pl.html b/docs/proc/whm_coord_j2h_pl.html
index a536ba857..06f90380b 100644
--- a/docs/proc/whm_coord_j2h_pl.html
+++ b/docs/proc/whm_coord_j2h_pl.html
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~210"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~208"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -294,39 +294,39 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="103,-129 0,-129 0,-105 103,-105 103,-129"/>
 <text text-anchor="middle" x="51.5" y="-114.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_coord_j2h_pl</text>
 </g>
-<!-- xh -->
+<!-- eta -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_node2" class="node">
-<title>xh</title>
+<title>eta</title>
 <polygon fill="#777777" stroke="#777777" points="193,-234 139,-234 139,-210 193,-210 193,-234"/>
-<text text-anchor="middle" x="166" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
+<text text-anchor="middle" x="166" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;xh -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;eta -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_edge1" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;xh</title>
+<title>proc~whm_coord_j2h_pl&#45;&gt;eta</title>
 <path fill="none" stroke="#000000" d="M64.21,-129.04C80.53,-145.68 111.27,-176.43 139,-201 139.83,-201.73 140.67,-202.47 141.53,-203.21"/>
 <polygon fill="#000000" stroke="#000000" points="139.49,-206.07 149.41,-209.79 143.98,-200.69 139.49,-206.07"/>
 </g>
-<!-- gmpl -->
+<!-- vj -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_node3" class="node">
-<title>gmpl</title>
+<title>vj</title>
 <polygon fill="#777777" stroke="#777777" points="193,-192 139,-192 139,-168 193,-168 193,-192"/>
-<text text-anchor="middle" x="166" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gmpl</text>
+<text text-anchor="middle" x="166" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;gmpl -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;vj -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;gmpl</title>
+<title>proc~whm_coord_j2h_pl&#45;&gt;vj</title>
 <path fill="none" stroke="#000000" d="M74.19,-129.15C91.31,-138.73 115.4,-152.23 134.47,-162.9"/>
 <polygon fill="#000000" stroke="#000000" points="132.94,-166.06 143.38,-167.89 136.36,-159.95 132.94,-166.06"/>
 </g>
-<!-- vj -->
+<!-- xh -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_node4" class="node">
-<title>vj</title>
+<title>xh</title>
 <polygon fill="#777777" stroke="#777777" points="193,-150 139,-150 139,-126 193,-126 193,-150"/>
-<text text-anchor="middle" x="166" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
+<text text-anchor="middle" x="166" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">xh</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;vj -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;xh -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;vj</title>
+<title>proc~whm_coord_j2h_pl&#45;&gt;xh</title>
 <path fill="none" stroke="#000000" d="M103.16,-126.46C111.85,-128.08 120.72,-129.73 128.93,-131.27"/>
 <polygon fill="#000000" stroke="#000000" points="128.45,-134.74 138.92,-133.13 129.73,-127.86 128.45,-134.74"/>
 </g>
@@ -342,15 +342,15 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M103.16,-107.54C111.85,-105.92 120.72,-104.27 128.93,-102.73"/>
 <polygon fill="#000000" stroke="#000000" points="129.73,-106.14 138.92,-100.87 128.45,-99.26 129.73,-106.14"/>
 </g>
-<!-- eta -->
+<!-- gmpl -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_node6" class="node">
-<title>eta</title>
+<title>gmpl</title>
 <polygon fill="#777777" stroke="#777777" points="193,-66 139,-66 139,-42 193,-42 193,-66"/>
-<text text-anchor="middle" x="166" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
+<text text-anchor="middle" x="166" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gmpl</text>
 </g>
-<!-- proc~whm_coord_j2h_pl&#45;&gt;eta -->
+<!-- proc~whm_coord_j2h_pl&#45;&gt;gmpl -->
 <g id="proc~~whm_coord_j2h_pl~~CallsGraph_edge5" class="edge">
-<title>proc~whm_coord_j2h_pl&#45;&gt;eta</title>
+<title>proc~whm_coord_j2h_pl&#45;&gt;gmpl</title>
 <path fill="none" stroke="#000000" d="M74.19,-104.85C91.31,-95.27 115.4,-81.77 134.47,-71.1"/>
 <polygon fill="#000000" stroke="#000000" points="136.36,-74.05 143.38,-66.11 132.94,-67.94 136.36,-74.05"/>
 </g>
diff --git a/docs/proc/whm_coord_vh2vj_pl.html b/docs/proc/whm_coord_vh2vj_pl.html
index 560bbaeab..a56fd39b5 100644
--- a/docs/proc/whm_coord_vh2vj_pl.html
+++ b/docs/proc/whm_coord_vh2vj_pl.html
@@ -239,7 +239,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~211"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~209"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -301,20 +301,20 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="176" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vj</text>
 </g>
 <!-- proc~whm_coord_vh2vj_pl&#45;&gt;vj -->
-<g id="proc~~whm_coord_vh2vj_pl~~CallsGraph_edge3" class="edge">
+<g id="proc~~whm_coord_vh2vj_pl~~CallsGraph_edge1" class="edge">
 <title>proc~whm_coord_vh2vj_pl&#45;&gt;vj</title>
 <path fill="none" stroke="#000000" d="M80.16,-87.15C98.12,-96.78 123.43,-110.35 143.39,-121.05"/>
 <polygon fill="#000000" stroke="#000000" points="141.95,-124.25 152.41,-125.89 145.26,-118.08 141.95,-124.25"/>
 </g>
-<!-- gmpl -->
+<!-- vh -->
 <g id="proc~~whm_coord_vh2vj_pl~~CallsGraph_node3" class="node">
-<title>gmpl</title>
+<title>vh</title>
 <polygon fill="#777777" stroke="#777777" points="203,-108 149,-108 149,-84 203,-84 203,-108"/>
-<text text-anchor="middle" x="176" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gmpl</text>
+<text text-anchor="middle" x="176" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
 </g>
-<!-- proc~whm_coord_vh2vj_pl&#45;&gt;gmpl -->
+<!-- proc~whm_coord_vh2vj_pl&#45;&gt;vh -->
 <g id="proc~~whm_coord_vh2vj_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_coord_vh2vj_pl&#45;&gt;gmpl</title>
+<title>proc~whm_coord_vh2vj_pl&#45;&gt;vh</title>
 <path fill="none" stroke="#000000" d="M113.15,-84.95C121.91,-86.51 130.76,-88.09 138.92,-89.55"/>
 <polygon fill="#000000" stroke="#000000" points="138.37,-93.01 148.83,-91.32 139.6,-86.12 138.37,-93.01"/>
 </g>
@@ -325,20 +325,20 @@ <h3 class="panel-title">Calls</h3>
 <text text-anchor="middle" x="176" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eta</text>
 </g>
 <!-- proc~whm_coord_vh2vj_pl&#45;&gt;eta -->
-<g id="proc~~whm_coord_vh2vj_pl~~CallsGraph_edge1" class="edge">
+<g id="proc~~whm_coord_vh2vj_pl~~CallsGraph_edge3" class="edge">
 <title>proc~whm_coord_vh2vj_pl&#45;&gt;eta</title>
 <path fill="none" stroke="#000000" d="M113.15,-65.05C121.91,-63.49 130.76,-61.91 138.92,-60.45"/>
 <polygon fill="#000000" stroke="#000000" points="139.6,-63.88 148.83,-58.68 138.37,-56.99 139.6,-63.88"/>
 </g>
-<!-- vh -->
+<!-- gmpl -->
 <g id="proc~~whm_coord_vh2vj_pl~~CallsGraph_node5" class="node">
-<title>vh</title>
+<title>gmpl</title>
 <polygon fill="#777777" stroke="#777777" points="203,-24 149,-24 149,0 203,0 203,-24"/>
-<text text-anchor="middle" x="176" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">vh</text>
+<text text-anchor="middle" x="176" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gmpl</text>
 </g>
-<!-- proc~whm_coord_vh2vj_pl&#45;&gt;vh -->
+<!-- proc~whm_coord_vh2vj_pl&#45;&gt;gmpl -->
 <g id="proc~~whm_coord_vh2vj_pl~~CallsGraph_edge4" class="edge">
-<title>proc~whm_coord_vh2vj_pl&#45;&gt;vh</title>
+<title>proc~whm_coord_vh2vj_pl&#45;&gt;gmpl</title>
 <path fill="none" stroke="#000000" d="M80.16,-62.85C98.12,-53.22 123.43,-39.65 143.39,-28.95"/>
 <polygon fill="#000000" stroke="#000000" points="145.26,-31.92 152.41,-24.11 141.95,-25.75 145.26,-31.92"/>
 </g>
diff --git a/docs/proc/whm_drift_pl.html b/docs/proc/whm_drift_pl.html
index 9b5f08de4..f96b8da2c 100644
--- a/docs/proc/whm_drift_pl.html
+++ b/docs/proc/whm_drift_pl.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~219"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~217"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~71"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~75"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~125"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~127"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/whm_gr_kick_getacch_pl.html b/docs/proc/whm_gr_kick_getacch_pl.html
index 0a8b893bf..cad3443e9 100644
--- a/docs/proc/whm_gr_kick_getacch_pl.html
+++ b/docs/proc/whm_gr_kick_getacch_pl.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~212"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~210"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~118"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~120"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/whm_gr_kick_getacch_tp.html b/docs/proc/whm_gr_kick_getacch_tp.html
index 0b4649cca..0e01a7895 100644
--- a/docs/proc/whm_gr_kick_getacch_tp.html
+++ b/docs/proc/whm_gr_kick_getacch_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~213"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~211"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~119"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~121"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/whm_gr_p4_pl.html b/docs/proc/whm_gr_p4_pl.html
index 971c5599f..6268c6f74 100644
--- a/docs/proc/whm_gr_p4_pl.html
+++ b/docs/proc/whm_gr_p4_pl.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~214"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~212"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~120"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~122"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/whm_gr_p4_tp.html b/docs/proc/whm_gr_p4_tp.html
index 5c42469ec..e4a018204 100644
--- a/docs/proc/whm_gr_p4_tp.html
+++ b/docs/proc/whm_gr_p4_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~215"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~213"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~121"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~123"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/whm_kick_getacch_ah0.html b/docs/proc/whm_kick_getacch_ah0.html
index 2d41f6376..cd307ea3d 100644
--- a/docs/proc/whm_kick_getacch_ah0.html
+++ b/docs/proc/whm_kick_getacch_ah0.html
@@ -344,25 +344,10 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" d="M272.27,-19.82C280.64,-20.94 289.34,-22.11 297.95,-23.26"/>
 <polygon fill="#000000" stroke="#000000" points="297.6,-26.75 307.98,-24.61 298.53,-19.81 297.6,-26.75"/>
 </g>
-<!-- interface~whm_kick_getacch_tp -->
-<g id="proc~~whm_kick_getacch_ah0~~CalledByGraph_node4" class="node">
-<title>interface~whm_kick_getacch_tp</title>
-<g id="a_proc~~whm_kick_getacch_ah0~~CalledByGraph_node4"><a xlink:href=".././interface/whm_kick_getacch_tp.html" xlink:title="whm_kick_getacch_tp">
-<polygon fill="#a7506f" stroke="#a7506f" points="118,-24 0,-24 0,0 118,0 118,-24"/>
-<text text-anchor="middle" x="59" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_tp</text>
-</a>
-</g>
-</g>
-<!-- interface~whm_kick_getacch_tp&#45;&gt;proc~whm_kick_getacch_tp -->
-<g id="proc~~whm_kick_getacch_ah0~~CalledByGraph_edge4" class="edge">
-<title>interface~whm_kick_getacch_tp&#45;&gt;proc~whm_kick_getacch_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M118.33,-12C126.61,-12 135.17,-12 143.62,-12"/>
-<polygon fill="#000000" stroke="#000000" points="143.82,-15.5 153.82,-12 143.82,-8.5 143.82,-15.5"/>
-</g>
 <!-- interface~whm_kick_getacch_pl -->
-<g id="proc~~whm_kick_getacch_ah0~~CalledByGraph_node5" class="node">
+<g id="proc~~whm_kick_getacch_ah0~~CalledByGraph_node4" class="node">
 <title>interface~whm_kick_getacch_pl</title>
-<g id="a_proc~~whm_kick_getacch_ah0~~CalledByGraph_node5"><a xlink:href=".././interface/whm_kick_getacch_pl.html" xlink:title="whm_kick_getacch_pl">
+<g id="a_proc~~whm_kick_getacch_ah0~~CalledByGraph_node4"><a xlink:href=".././interface/whm_kick_getacch_pl.html" xlink:title="whm_kick_getacch_pl">
 <polygon fill="#a7506f" stroke="#a7506f" points="117.5,-66 0.5,-66 0.5,-42 117.5,-42 117.5,-66"/>
 <text text-anchor="middle" x="59" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_pl</text>
 </a>
@@ -374,6 +359,21 @@ <h3 class="panel-title">Called by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M117.9,-54C126.46,-54 135.35,-54 144.09,-54"/>
 <polygon fill="#000000" stroke="#000000" points="144.26,-57.5 154.26,-54 144.26,-50.5 144.26,-57.5"/>
 </g>
+<!-- interface~whm_kick_getacch_tp -->
+<g id="proc~~whm_kick_getacch_ah0~~CalledByGraph_node5" class="node">
+<title>interface~whm_kick_getacch_tp</title>
+<g id="a_proc~~whm_kick_getacch_ah0~~CalledByGraph_node5"><a xlink:href=".././interface/whm_kick_getacch_tp.html" xlink:title="whm_kick_getacch_tp">
+<polygon fill="#a7506f" stroke="#a7506f" points="118,-24 0,-24 0,0 118,0 118,-24"/>
+<text text-anchor="middle" x="59" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_tp</text>
+</a>
+</g>
+</g>
+<!-- interface~whm_kick_getacch_tp&#45;&gt;proc~whm_kick_getacch_tp -->
+<g id="proc~~whm_kick_getacch_ah0~~CalledByGraph_edge4" class="edge">
+<title>interface~whm_kick_getacch_tp&#45;&gt;proc~whm_kick_getacch_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M118.33,-12C126.61,-12 135.17,-12 143.62,-12"/>
+<polygon fill="#000000" stroke="#000000" points="143.82,-15.5 153.82,-12 143.82,-8.5 143.82,-15.5"/>
+</g>
 </g>
 </svg>
 </div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
diff --git a/docs/proc/whm_kick_getacch_pl.html b/docs/proc/whm_kick_getacch_pl.html
index 1c837e9b8..a60e58af6 100644
--- a/docs/proc/whm_kick_getacch_pl.html
+++ b/docs/proc/whm_kick_getacch_pl.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~220"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~218"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~72"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~76"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~126"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~128"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
@@ -338,48 +338,48 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="117,-66 0,-66 0,-42 117,-42 117,-66"/>
 <text text-anchor="middle" x="58.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_kick_getacch_pl</text>
 </g>
-<!-- proc~whm_kick_getacch_ah0 -->
+<!-- proc~whm_kick_getacch_ah1 -->
 <g id="proc~~whm_kick_getacch_pl~~CallsGraph_node2" class="node">
-<title>proc~whm_kick_getacch_ah0</title>
-<g id="a_proc~~whm_kick_getacch_pl~~CallsGraph_node2"><a xlink:href=".././proc/whm_kick_getacch_ah0.html" xlink:title="whm_kick_getacch_ah0">
-<polygon fill="#d94e8f" stroke="#d94e8f" points="280,-108 153,-108 153,-84 280,-84 280,-108"/>
-<text text-anchor="middle" x="216.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah0</text>
+<title>proc~whm_kick_getacch_ah1</title>
+<g id="a_proc~~whm_kick_getacch_pl~~CallsGraph_node2"><a xlink:href=".././proc/whm_kick_getacch_ah1.html" xlink:title="whm_kick_getacch_ah1">
+<polygon fill="#d9534f" stroke="#d9534f" points="280,-108 153,-108 153,-84 280,-84 280,-108"/>
+<text text-anchor="middle" x="216.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah1</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0 -->
-<g id="proc~~whm_kick_getacch_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0</title>
+<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah1 -->
+<g id="proc~~whm_kick_getacch_pl~~CallsGraph_edge1" class="edge">
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah1</title>
 <path fill="none" stroke="#000000" d="M104.2,-66.04C121.91,-70.8 142.43,-76.33 161,-81.33"/>
 <polygon fill="#000000" stroke="#000000" points="160.22,-84.74 170.79,-83.96 162.04,-77.98 160.22,-84.74"/>
 </g>
-<!-- proc~whm_kick_getacch_ah1 -->
+<!-- proc~whm_kick_getacch_ah2 -->
 <g id="proc~~whm_kick_getacch_pl~~CallsGraph_node3" class="node">
-<title>proc~whm_kick_getacch_ah1</title>
-<g id="a_proc~~whm_kick_getacch_pl~~CallsGraph_node3"><a xlink:href=".././proc/whm_kick_getacch_ah1.html" xlink:title="whm_kick_getacch_ah1">
+<title>proc~whm_kick_getacch_ah2</title>
+<g id="a_proc~~whm_kick_getacch_pl~~CallsGraph_node3"><a xlink:href=".././proc/whm_kick_getacch_ah2.html" xlink:title="whm_kick_getacch_ah2">
 <polygon fill="#d9534f" stroke="#d9534f" points="280,-66 153,-66 153,-42 280,-42 280,-66"/>
-<text text-anchor="middle" x="216.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah1</text>
+<text text-anchor="middle" x="216.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah2</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah1 -->
-<g id="proc~~whm_kick_getacch_pl~~CallsGraph_edge1" class="edge">
-<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah1</title>
+<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2 -->
+<g id="proc~~whm_kick_getacch_pl~~CallsGraph_edge2" class="edge">
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2</title>
 <path fill="none" stroke="#000000" d="M117.15,-54C125.5,-54 134.2,-54 142.81,-54"/>
 <polygon fill="#000000" stroke="#000000" points="142.85,-57.5 152.85,-54 142.85,-50.5 142.85,-57.5"/>
 </g>
-<!-- proc~whm_kick_getacch_ah2 -->
+<!-- proc~whm_kick_getacch_ah0 -->
 <g id="proc~~whm_kick_getacch_pl~~CallsGraph_node4" class="node">
-<title>proc~whm_kick_getacch_ah2</title>
-<g id="a_proc~~whm_kick_getacch_pl~~CallsGraph_node4"><a xlink:href=".././proc/whm_kick_getacch_ah2.html" xlink:title="whm_kick_getacch_ah2">
-<polygon fill="#d9534f" stroke="#d9534f" points="280,-24 153,-24 153,0 280,0 280,-24"/>
-<text text-anchor="middle" x="216.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah2</text>
+<title>proc~whm_kick_getacch_ah0</title>
+<g id="a_proc~~whm_kick_getacch_pl~~CallsGraph_node4"><a xlink:href=".././proc/whm_kick_getacch_ah0.html" xlink:title="whm_kick_getacch_ah0">
+<polygon fill="#d94e8f" stroke="#d94e8f" points="280,-24 153,-24 153,0 280,0 280,-24"/>
+<text text-anchor="middle" x="216.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick_getacch_ah0</text>
 </a>
 </g>
 </g>
-<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2 -->
+<!-- proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0 -->
 <g id="proc~~whm_kick_getacch_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah2</title>
+<title>proc~whm_kick_getacch_pl&#45;&gt;proc~whm_kick_getacch_ah0</title>
 <path fill="none" stroke="#000000" d="M104.2,-41.96C121.91,-37.2 142.43,-31.67 161,-26.67"/>
 <polygon fill="#000000" stroke="#000000" points="162.04,-30.02 170.79,-24.04 160.22,-23.26 162.04,-30.02"/>
 </g>
diff --git a/docs/proc/whm_kick_getacch_tp.html b/docs/proc/whm_kick_getacch_tp.html
index cc81d221f..919352f6a 100644
--- a/docs/proc/whm_kick_getacch_tp.html
+++ b/docs/proc/whm_kick_getacch_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~221"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~219"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~73"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~77"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~127"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~129"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/whm_kick_vh_pl.html b/docs/proc/whm_kick_vh_pl.html
index a07a4e441..e18b6869b 100644
--- a/docs/proc/whm_kick_vh_pl.html
+++ b/docs/proc/whm_kick_vh_pl.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~222"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~220"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~74"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~78"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~128"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~130"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/whm_kick_vh_tp.html b/docs/proc/whm_kick_vh_tp.html
index 8a276d1aa..2a95290ff 100644
--- a/docs/proc/whm_kick_vh_tp.html
+++ b/docs/proc/whm_kick_vh_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~223"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~221"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~75"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~79"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~129"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~131"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/whm_setup_initialize_system.html b/docs/proc/whm_setup_initialize_system.html
index 724307fa9..87f66f375 100644
--- a/docs/proc/whm_setup_initialize_system.html
+++ b/docs/proc/whm_setup_initialize_system.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~226"></span>class(<a href='../type/whm_nbody_system.html'>whm_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~224"></span>class(<a href='../type/whm_nbody_system.html'>whm_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -251,7 +251,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~131"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~133"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -291,29 +291,29 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="151,-45 0,-45 0,-21 151,-21 151,-45"/>
 <text text-anchor="middle" x="75.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_setup_initialize_system</text>
 </g>
-<!-- setup_initialize_system -->
+<!-- util_set_ir3h -->
 <g id="proc~~whm_setup_initialize_system~~CallsGraph_node2" class="node">
-<title>setup_initialize_system</title>
-<polygon fill="#777777" stroke="#777777" points="309,-66 187,-66 187,-42 309,-42 309,-66"/>
-<text text-anchor="middle" x="248" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
+<title>util_set_ir3h</title>
+<polygon fill="#777777" stroke="#777777" points="283,-66 213,-66 213,-42 283,-42 283,-66"/>
+<text text-anchor="middle" x="248" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_ir3h</text>
 </g>
-<!-- proc~whm_setup_initialize_system&#45;&gt;setup_initialize_system -->
+<!-- proc~whm_setup_initialize_system&#45;&gt;util_set_ir3h -->
 <g id="proc~~whm_setup_initialize_system~~CallsGraph_edge1" class="edge">
-<title>proc~whm_setup_initialize_system&#45;&gt;setup_initialize_system</title>
-<path fill="none" stroke="#000000" d="M151.28,-42.21C159.74,-43.25 168.34,-44.31 176.74,-45.35"/>
-<polygon fill="#000000" stroke="#000000" points="176.51,-48.84 186.87,-46.59 177.37,-41.9 176.51,-48.84"/>
+<title>proc~whm_setup_initialize_system&#45;&gt;util_set_ir3h</title>
+<path fill="none" stroke="#000000" d="M151.28,-42.21C168.9,-44.38 187.12,-46.62 202.88,-48.57"/>
+<polygon fill="#000000" stroke="#000000" points="202.49,-52.04 212.84,-49.79 203.35,-45.1 202.49,-52.04"/>
 </g>
-<!-- util_set_ir3h -->
+<!-- setup_initialize_system -->
 <g id="proc~~whm_setup_initialize_system~~CallsGraph_node3" class="node">
-<title>util_set_ir3h</title>
-<polygon fill="#777777" stroke="#777777" points="283,-24 213,-24 213,0 283,0 283,-24"/>
-<text text-anchor="middle" x="248" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set_ir3h</text>
+<title>setup_initialize_system</title>
+<polygon fill="#777777" stroke="#777777" points="309,-24 187,-24 187,0 309,0 309,-24"/>
+<text text-anchor="middle" x="248" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_initialize_system</text>
 </g>
-<!-- proc~whm_setup_initialize_system&#45;&gt;util_set_ir3h -->
+<!-- proc~whm_setup_initialize_system&#45;&gt;setup_initialize_system -->
 <g id="proc~~whm_setup_initialize_system~~CallsGraph_edge2" class="edge">
-<title>proc~whm_setup_initialize_system&#45;&gt;util_set_ir3h</title>
-<path fill="none" stroke="#000000" d="M151.28,-23.79C168.9,-21.62 187.12,-19.38 202.88,-17.43"/>
-<polygon fill="#000000" stroke="#000000" points="203.35,-20.9 212.84,-16.21 202.49,-13.96 203.35,-20.9"/>
+<title>proc~whm_setup_initialize_system&#45;&gt;setup_initialize_system</title>
+<path fill="none" stroke="#000000" d="M151.28,-23.79C159.74,-22.75 168.34,-21.69 176.74,-20.65"/>
+<polygon fill="#000000" stroke="#000000" points="177.37,-24.1 186.87,-19.41 176.51,-17.16 177.37,-24.1"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/whm_setup_pl.html b/docs/proc/whm_setup_pl.html
index 56b0d8938..0a7168cc0 100644
--- a/docs/proc/whm_setup_pl.html
+++ b/docs/proc/whm_setup_pl.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~224"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~222"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~130"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~132"></span>class(swiftest_parameters),</td>
   <td>intent(in)</td>
   <td></td>
   
diff --git a/docs/proc/whm_step_pl.html b/docs/proc/whm_step_pl.html
index 7069da196..fe642ac91 100644
--- a/docs/proc/whm_step_pl.html
+++ b/docs/proc/whm_step_pl.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~217"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~215"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~69"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~73"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~123"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~125"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/whm_step_system.html b/docs/proc/whm_step_system.html
index e22168006..664cf8b17 100644
--- a/docs/proc/whm_step_system.html
+++ b/docs/proc/whm_step_system.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~216"></span>class(<a href='../type/whm_nbody_system.html'>whm_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-self~214"></span>class(<a href='../type/whm_nbody_system.html'>whm_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~122"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~124"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/whm_step_tp.html b/docs/proc/whm_step_tp.html
index 2eae63f4e..2b6118742 100644
--- a/docs/proc/whm_step_tp.html
+++ b/docs/proc/whm_step_tp.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~218"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
+  <td><span class="anchor" id="variable-self~216"></span>class(<a href='../type/whm_tp.html'>whm_tp</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -253,7 +253,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-system~70"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td><span class="anchor" id="variable-system~74"></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -268,7 +268,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~124"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~126"></span>class(swiftest_parameters),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/whm_util_append_pl.html b/docs/proc/whm_util_append_pl.html
index eadac9a9d..db6353715 100644
--- a/docs/proc/whm_util_append_pl.html
+++ b/docs/proc/whm_util_append_pl.html
@@ -136,7 +136,7 @@ <h1>whm_util_append_pl
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.0% of total for procedures.">19 statements</a>
+    title=" 0.0% of total for procedures.">21 statements</a>
      </li> 
      
      
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~227"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~225"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -270,7 +270,7 @@ <h3>Arguments</h3>
   
   <td><span class="anchor" id="variable-lsource_mask~10"></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
@@ -308,17 +308,17 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="111,-66 0,-66 0,-42 111,-42 111,-66"/>
 <text text-anchor="middle" x="55.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_util_append_pl</text>
 </g>
-<!-- util_append -->
+<!-- util_exit -->
 <g id="proc~~whm_util_append_pl~~CallsGraph_node2" class="node">
-<title>util_append</title>
-<polygon fill="#777777" stroke="#777777" points="222,-108 154,-108 154,-84 222,-84 222,-108"/>
-<text text-anchor="middle" x="188" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
+<title>util_exit</title>
+<polygon fill="#777777" stroke="#777777" points="215,-108 161,-108 161,-84 215,-84 215,-108"/>
+<text text-anchor="middle" x="188" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~whm_util_append_pl&#45;&gt;util_append -->
+<!-- proc~whm_util_append_pl&#45;&gt;util_exit -->
 <g id="proc~~whm_util_append_pl~~CallsGraph_edge1" class="edge">
-<title>proc~whm_util_append_pl&#45;&gt;util_append</title>
-<path fill="none" stroke="#000000" d="M93.9,-66.04C109.49,-71.05 127.69,-76.91 143.85,-82.11"/>
-<polygon fill="#000000" stroke="#000000" points="143.01,-85.52 153.6,-85.25 145.16,-78.86 143.01,-85.52"/>
+<title>proc~whm_util_append_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M93.9,-66.04C111.78,-71.79 133.09,-78.65 150.81,-84.35"/>
+<polygon fill="#000000" stroke="#000000" points="150.19,-87.83 160.78,-87.56 152.33,-81.17 150.19,-87.83"/>
 </g>
 <!-- util_append_pl -->
 <g id="proc~~whm_util_append_pl~~CallsGraph_node3" class="node">
@@ -332,17 +332,17 @@ <h3 class="panel-title">Calls</h3>
 <path fill="none" stroke="#000000" d="M111.09,-54C119.63,-54 128.42,-54 136.85,-54"/>
 <polygon fill="#000000" stroke="#000000" points="136.93,-57.5 146.93,-54 136.93,-50.5 136.93,-57.5"/>
 </g>
-<!-- util_exit -->
+<!-- util_append -->
 <g id="proc~~whm_util_append_pl~~CallsGraph_node4" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="215,-24 161,-24 161,0 215,0 215,-24"/>
-<text text-anchor="middle" x="188" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<title>util_append</title>
+<polygon fill="#777777" stroke="#777777" points="222,-24 154,-24 154,0 222,0 222,-24"/>
+<text text-anchor="middle" x="188" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append</text>
 </g>
-<!-- proc~whm_util_append_pl&#45;&gt;util_exit -->
+<!-- proc~whm_util_append_pl&#45;&gt;util_append -->
 <g id="proc~~whm_util_append_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_util_append_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M93.9,-41.96C111.78,-36.21 133.09,-29.35 150.81,-23.65"/>
-<polygon fill="#000000" stroke="#000000" points="152.33,-26.83 160.78,-20.44 150.19,-20.17 152.33,-26.83"/>
+<title>proc~whm_util_append_pl&#45;&gt;util_append</title>
+<path fill="none" stroke="#000000" d="M93.9,-41.96C109.49,-36.95 127.69,-31.09 143.85,-25.89"/>
+<polygon fill="#000000" stroke="#000000" points="145.16,-29.14 153.6,-22.75 143.01,-22.48 145.16,-29.14"/>
 </g>
 </g>
 </svg>
diff --git a/docs/proc/whm_util_fill_pl.html b/docs/proc/whm_util_fill_pl.html
index 85a123b2d..05458f62a 100644
--- a/docs/proc/whm_util_fill_pl.html
+++ b/docs/proc/whm_util_fill_pl.html
@@ -238,7 +238,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~228"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~226"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -308,39 +308,39 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="85,-66 0,-66 0,-42 85,-42 85,-66"/>
 <text text-anchor="middle" x="42.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_util_fill_pl</text>
 </g>
-<!-- util_fill -->
-<g id="proc~~whm_util_fill_pl~~CallsGraph_node2" class="node">
-<title>util_fill</title>
-<polygon fill="#777777" stroke="#777777" points="176,-108 122,-108 122,-84 176,-84 176,-108"/>
-<text text-anchor="middle" x="149" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
-</g>
-<!-- proc~whm_util_fill_pl&#45;&gt;util_fill -->
-<g id="proc~~whm_util_fill_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_util_fill_pl&#45;&gt;util_fill</title>
-<path fill="none" stroke="#000000" d="M73.45,-66.04C85.65,-70.94 99.86,-76.65 112.58,-81.76"/>
-<polygon fill="#000000" stroke="#000000" points="111.37,-85.05 121.96,-85.53 113.98,-78.56 111.37,-85.05"/>
-</g>
 <!-- util_fill_pl -->
-<g id="proc~~whm_util_fill_pl~~CallsGraph_node3" class="node">
+<g id="proc~~whm_util_fill_pl~~CallsGraph_node2" class="node">
 <title>util_fill_pl</title>
-<polygon fill="#777777" stroke="#777777" points="177,-66 121,-66 121,-42 177,-42 177,-66"/>
-<text text-anchor="middle" x="149" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
+<polygon fill="#777777" stroke="#777777" points="177,-108 121,-108 121,-84 177,-84 177,-108"/>
+<text text-anchor="middle" x="149" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill_pl</text>
 </g>
 <!-- proc~whm_util_fill_pl&#45;&gt;util_fill_pl -->
-<g id="proc~~whm_util_fill_pl~~CallsGraph_edge2" class="edge">
+<g id="proc~~whm_util_fill_pl~~CallsGraph_edge1" class="edge">
 <title>proc~whm_util_fill_pl&#45;&gt;util_fill_pl</title>
-<path fill="none" stroke="#000000" d="M85.1,-54C93.59,-54 102.46,-54 110.78,-54"/>
-<polygon fill="#000000" stroke="#000000" points="110.95,-57.5 120.95,-54 110.95,-50.5 110.95,-57.5"/>
+<path fill="none" stroke="#000000" d="M73.45,-66.04C85.25,-70.78 98.92,-76.27 111.31,-81.25"/>
+<polygon fill="#000000" stroke="#000000" points="110.32,-84.63 120.91,-85.11 112.93,-78.13 110.32,-84.63"/>
 </g>
 <!-- util_exit -->
-<g id="proc~~whm_util_fill_pl~~CallsGraph_node4" class="node">
+<g id="proc~~whm_util_fill_pl~~CallsGraph_node3" class="node">
 <title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="176,-24 122,-24 122,0 176,0 176,-24"/>
-<text text-anchor="middle" x="149" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#777777" stroke="#777777" points="176,-66 122,-66 122,-42 176,-42 176,-66"/>
+<text text-anchor="middle" x="149" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
 <!-- proc~whm_util_fill_pl&#45;&gt;util_exit -->
-<g id="proc~~whm_util_fill_pl~~CallsGraph_edge1" class="edge">
+<g id="proc~~whm_util_fill_pl~~CallsGraph_edge2" class="edge">
 <title>proc~whm_util_fill_pl&#45;&gt;util_exit</title>
+<path fill="none" stroke="#000000" d="M85.1,-54C93.92,-54 103.17,-54 111.77,-54"/>
+<polygon fill="#000000" stroke="#000000" points="111.87,-57.5 121.87,-54 111.87,-50.5 111.87,-57.5"/>
+</g>
+<!-- util_fill -->
+<g id="proc~~whm_util_fill_pl~~CallsGraph_node4" class="node">
+<title>util_fill</title>
+<polygon fill="#777777" stroke="#777777" points="176,-24 122,-24 122,0 176,0 176,-24"/>
+<text text-anchor="middle" x="149" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill</text>
+</g>
+<!-- proc~whm_util_fill_pl&#45;&gt;util_fill -->
+<g id="proc~~whm_util_fill_pl~~CallsGraph_edge3" class="edge">
+<title>proc~whm_util_fill_pl&#45;&gt;util_fill</title>
 <path fill="none" stroke="#000000" d="M73.45,-41.96C85.65,-37.06 99.86,-31.35 112.58,-26.24"/>
 <polygon fill="#000000" stroke="#000000" points="113.98,-29.44 121.96,-22.47 111.37,-22.95 113.98,-29.44"/>
 </g>
diff --git a/docs/proc/whm_util_resize_pl.html b/docs/proc/whm_util_resize_pl.html
index 1b8462d9b..83912799e 100644
--- a/docs/proc/whm_util_resize_pl.html
+++ b/docs/proc/whm_util_resize_pl.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~229"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~227"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/whm_util_set_ir3j.html b/docs/proc/whm_util_set_ir3j.html
index b6168a529..fbdfcdaa2 100644
--- a/docs/proc/whm_util_set_ir3j.html
+++ b/docs/proc/whm_util_set_ir3j.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~230"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~228"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/whm_util_set_mu_eta_pl.html b/docs/proc/whm_util_set_mu_eta_pl.html
index 906ac18ad..e048d5098 100644
--- a/docs/proc/whm_util_set_mu_eta_pl.html
+++ b/docs/proc/whm_util_set_mu_eta_pl.html
@@ -236,7 +236,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~225"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~223"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/whm_util_sort_pl.html b/docs/proc/whm_util_sort_pl.html
index 2079b99be..a4e9a1ca5 100644
--- a/docs/proc/whm_util_sort_pl.html
+++ b/docs/proc/whm_util_sort_pl.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~231"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~229"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/whm_util_sort_rearrange_pl.html b/docs/proc/whm_util_sort_rearrange_pl.html
index d771544f8..5c80b2d77 100644
--- a/docs/proc/whm_util_sort_rearrange_pl.html
+++ b/docs/proc/whm_util_sort_rearrange_pl.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~232"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~230"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
diff --git a/docs/proc/whm_util_spill_pl.html b/docs/proc/whm_util_spill_pl.html
index 0ada852b6..f2d4aec3f 100644
--- a/docs/proc/whm_util_spill_pl.html
+++ b/docs/proc/whm_util_spill_pl.html
@@ -237,7 +237,7 @@ <h3>Arguments</h3>
   
 <tr>
   
-  <td><span class="anchor" id="variable-self~233"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
+  <td><span class="anchor" id="variable-self~231"></span>class(<a href='../type/whm_pl.html'>whm_pl</a>),</td>
   <td>intent(inout)</td>
   <td></td>
   
@@ -322,41 +322,41 @@ <h3 class="panel-title">Calls</h3>
 <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">whm_util_spill_pl</text>
 </g>
-<!-- util_spill -->
+<!-- util_exit -->
 <g id="proc~~whm_util_spill_pl~~CallsGraph_node2" class="node">
-<title>util_spill</title>
+<title>util_exit</title>
 <polygon fill="#777777" stroke="#777777" points="188,-108 134,-108 134,-84 188,-84 188,-108"/>
-<text text-anchor="middle" x="161" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
+<text text-anchor="middle" x="161" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
-<!-- proc~whm_util_spill_pl&#45;&gt;util_spill -->
-<g id="proc~~whm_util_spill_pl~~CallsGraph_edge3" class="edge">
-<title>proc~whm_util_spill_pl&#45;&gt;util_spill</title>
+<!-- proc~whm_util_spill_pl&#45;&gt;util_exit -->
+<g id="proc~~whm_util_spill_pl~~CallsGraph_edge1" class="edge">
+<title>proc~whm_util_spill_pl&#45;&gt;util_exit</title>
 <path fill="none" stroke="#000000" d="M79.74,-66.04C93.67,-71.24 110.01,-77.34 124.3,-82.67"/>
 <polygon fill="#000000" stroke="#000000" points="123.22,-86.01 133.81,-86.22 125.67,-79.45 123.22,-86.01"/>
 </g>
-<!-- util_exit -->
+<!-- util_spill_pl -->
 <g id="proc~~whm_util_spill_pl~~CallsGraph_node3" class="node">
-<title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="188,-66 134,-66 134,-42 188,-42 188,-66"/>
-<text text-anchor="middle" x="161" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<title>util_spill_pl</title>
+<polygon fill="#777777" stroke="#777777" points="193,-66 129,-66 129,-42 193,-42 193,-66"/>
+<text text-anchor="middle" x="161" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
 </g>
-<!-- proc~whm_util_spill_pl&#45;&gt;util_exit -->
+<!-- proc~whm_util_spill_pl&#45;&gt;util_spill_pl -->
 <g id="proc~~whm_util_spill_pl~~CallsGraph_edge2" class="edge">
-<title>proc~whm_util_spill_pl&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M93.26,-54C103.44,-54 114.11,-54 123.84,-54"/>
-<polygon fill="#000000" stroke="#000000" points="123.98,-57.5 133.98,-54 123.98,-50.5 123.98,-57.5"/>
+<title>proc~whm_util_spill_pl&#45;&gt;util_spill_pl</title>
+<path fill="none" stroke="#000000" d="M93.26,-54C101.64,-54 110.35,-54 118.59,-54"/>
+<polygon fill="#000000" stroke="#000000" points="118.74,-57.5 128.74,-54 118.74,-50.5 118.74,-57.5"/>
 </g>
-<!-- util_spill_pl -->
+<!-- util_spill -->
 <g id="proc~~whm_util_spill_pl~~CallsGraph_node4" class="node">
-<title>util_spill_pl</title>
-<polygon fill="#777777" stroke="#777777" points="193,-24 129,-24 129,0 193,0 193,-24"/>
-<text text-anchor="middle" x="161" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill_pl</text>
+<title>util_spill</title>
+<polygon fill="#777777" stroke="#777777" points="188,-24 134,-24 134,0 188,0 188,-24"/>
+<text text-anchor="middle" x="161" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill</text>
 </g>
-<!-- proc~whm_util_spill_pl&#45;&gt;util_spill_pl -->
-<g id="proc~~whm_util_spill_pl~~CallsGraph_edge1" class="edge">
-<title>proc~whm_util_spill_pl&#45;&gt;util_spill_pl</title>
-<path fill="none" stroke="#000000" d="M79.74,-41.96C92.05,-37.37 106.26,-32.06 119.26,-27.21"/>
-<polygon fill="#000000" stroke="#000000" points="120.78,-30.38 128.92,-23.6 118.33,-23.82 120.78,-30.38"/>
+<!-- proc~whm_util_spill_pl&#45;&gt;util_spill -->
+<g id="proc~~whm_util_spill_pl~~CallsGraph_edge3" class="edge">
+<title>proc~whm_util_spill_pl&#45;&gt;util_spill</title>
+<path fill="none" stroke="#000000" d="M79.74,-41.96C93.67,-36.76 110.01,-30.66 124.3,-25.33"/>
+<polygon fill="#000000" stroke="#000000" points="125.67,-28.55 133.81,-21.78 123.22,-21.99 125.67,-28.55"/>
 </g>
 </g>
 </svg>
diff --git a/docs/program/swiftest_driver.html b/docs/program/swiftest_driver.html
index b096ad7dd..6bd079f24 100644
--- a/docs/program/swiftest_driver.html
+++ b/docs/program/swiftest_driver.html
@@ -136,7 +136,7 @@ <h1>swiftest_driver
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="100.0% of total for programs.">63 statements</a>
+    title="100.0% of total for programs.">61 statements</a>
      </li> 
      
      
@@ -181,13 +181,13 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../program/swiftest_driver.html#variable-nbody_system">nbody_system</a>
       
-      <a class="list-group-item" href="../program/swiftest_driver.html#variable-param~211">param</a>
+      <a class="list-group-item" href="../program/swiftest_driver.html#variable-param~214">param</a>
       
       <a class="list-group-item" href="../program/swiftest_driver.html#variable-integrator~4">integrator</a>
       
       <a class="list-group-item" href="../program/swiftest_driver.html#variable-param_file_name~7">param_file_name</a>
       
-      <a class="list-group-item" href="../program/swiftest_driver.html#variable-ierr~16">ierr</a>
+      <a class="list-group-item" href="../program/swiftest_driver.html#variable-ierr~14">ierr</a>
       
       <a class="list-group-item" href="../program/swiftest_driver.html#variable-iloop">iloop</a>
       
@@ -197,13 +197,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../program/swiftest_driver.html#variable-nloops">nloops</a>
       
-      <a class="list-group-item" href="../program/swiftest_driver.html#variable-start_wall_time">start_wall_time</a>
-      
-      <a class="list-group-item" href="../program/swiftest_driver.html#variable-finish_wall_time">finish_wall_time</a>
-      
-      <a class="list-group-item" href="../program/swiftest_driver.html#variable-iu~21">iu</a>
-      
-      <a class="list-group-item" href="../program/swiftest_driver.html#variable-statusfmt">statusfmt</a>
+      <a class="list-group-item" href="../program/swiftest_driver.html#variable-iu~17">iu</a>
       
     </div>
   </div>
@@ -259,255 +253,252 @@ <h3 class="panel-title">Uses</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: program~~swiftest_driver~~UsesGraph Pages: 1 -->
-<svg id="programswiftest_driverUsesGraph" width="641pt" height="212pt"
- viewBox="0.00 0.00 641.00 211.55" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="program~~swiftest_driver~~UsesGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 300.62)">
+<svg id="programswiftest_driverUsesGraph" width="641pt" height="193pt"
+ viewBox="0.00 0.00 641.00 193.42" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="program~~swiftest_driver~~UsesGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 274.51)">
 <title>program~~swiftest_driver~~UsesGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-300.62 919,-300.62 919,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-274.51 919,-274.51 919,4 -4,4"/>
 <!-- program~swiftest_driver -->
 <g id="program~~swiftest_driver~~UsesGraph_node1" class="node">
 <title>program~swiftest_driver</title>
-<polygon fill="none" stroke="black" points="915,-143.42 834,-143.42 834,-119.42 915,-119.42 915,-143.42"/>
-<text text-anchor="middle" x="874.5" y="-129.02" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_driver</text>
+<polygon fill="none" stroke="black" points="915,-155.71 834,-155.71 834,-131.71 915,-131.71 915,-155.71"/>
+<text text-anchor="middle" x="874.5" y="-141.31" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_driver</text>
 </g>
 <!-- module~swiftest -->
 <g id="program~~swiftest_driver~~UsesGraph_node2" class="node">
 <title>module~swiftest</title>
 <g id="a_program~~swiftest_driver~~UsesGraph_node2"><a xlink:href=".././module/swiftest.html" xlink:title="swiftest">
-<polygon fill="#337ab7" stroke="#337ab7" points="798,-143.42 744,-143.42 744,-119.42 798,-119.42 798,-143.42"/>
-<text text-anchor="middle" x="771" y="-129.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="798,-155.71 744,-155.71 744,-131.71 798,-131.71 798,-155.71"/>
+<text text-anchor="middle" x="771" y="-141.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest</text>
 </a>
 </g>
 </g>
 <!-- program~swiftest_driver&#45;&gt;module~swiftest -->
 <g id="program~~swiftest_driver~~UsesGraph_edge1" class="edge">
 <title>program~swiftest_driver&#45;&gt;module~swiftest</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.97,-131.42C825.51,-131.42 816.62,-131.42 808.3,-131.42"/>
-<polygon fill="#000000" stroke="#000000" points="808.13,-127.92 798.13,-131.42 808.13,-134.92 808.13,-127.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M833.97,-143.71C825.51,-143.71 816.62,-143.71 808.3,-143.71"/>
+<polygon fill="#000000" stroke="#000000" points="808.13,-140.21 798.13,-143.71 808.13,-147.21 808.13,-140.21"/>
 </g>
-<!-- module~helio_classes -->
+<!-- module~swiftest_globals -->
 <g id="program~~swiftest_driver~~UsesGraph_node3" class="node">
-<title>module~helio_classes</title>
-<g id="a_program~~swiftest_driver~~UsesGraph_node3"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-143.42 510.5,-143.42 510.5,-119.42 586.5,-119.42 586.5,-143.42"/>
-<text text-anchor="middle" x="548.5" y="-129.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
+<title>module~swiftest_globals</title>
+<g id="a_program~~swiftest_driver~~UsesGraph_node3"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
+<polygon fill="#337ab7" stroke="#337ab7" points="211,-197.71 123,-197.71 123,-173.71 211,-173.71 211,-197.71"/>
+<text text-anchor="middle" x="167" y="-183.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
 <g id="program~~swiftest_driver~~UsesGraph_edge2" class="edge">
-<title>module~swiftest&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-91.42C633.07,-85.66 598.66,-100.65 575.75,-113.9"/>
-<polygon fill="#000000" stroke="#000000" points="573.71,-111.04 566.97,-119.21 577.33,-117.02 573.71,-111.04"/>
+<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-265.71C344.57,-271.99 319.99,-276.08 247,-246.71 223.81,-237.38 201.66,-219.19 186.75,-205.09"/>
+<polygon fill="#000000" stroke="#000000" points="188.85,-202.25 179.25,-197.76 183.96,-207.25 188.85,-202.25"/>
 </g>
 <!-- module~lambda_function -->
 <g id="program~~swiftest_driver~~UsesGraph_node4" class="node">
 <title>module~lambda_function</title>
 <g id="a_program~~swiftest_driver~~UsesGraph_node4"><a xlink:href=".././module/lambda_function.html" xlink:title="lambda_function">
-<polygon fill="#337ab7" stroke="#337ab7" points="474,-259.42 383,-259.42 383,-235.42 474,-235.42 474,-259.42"/>
-<text text-anchor="middle" x="428.5" y="-245.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="338,-237.71 247,-237.71 247,-213.71 338,-213.71 338,-237.71"/>
+<text text-anchor="middle" x="292.5" y="-223.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~lambda_function -->
 <g id="program~~swiftest_driver~~UsesGraph_edge3" class="edge">
 <title>module~swiftest&#45;&gt;module~lambda_function</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247.42C526.83,-247.42 504.12,-247.42 484.19,-247.42"/>
-<polygon fill="#000000" stroke="#000000" points="484.05,-243.92 474.05,-247.42 484.05,-250.92 484.05,-243.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-265.71C388.06,-268.51 349.93,-254.5 324.16,-242.31"/>
+<polygon fill="#000000" stroke="#000000" points="325.44,-239.03 314.92,-237.76 322.34,-245.31 325.44,-239.03"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-225.71C490.31,-222.65 482.09,-261.13 425,-265.71"/>
 </g>
 <!-- module~swiftest_operators -->
 <g id="program~~swiftest_driver~~UsesGraph_node5" class="node">
 <title>module~swiftest_operators</title>
 <g id="a_program~~swiftest_driver~~UsesGraph_node5"><a xlink:href=".././module/swiftest_operators.html" xlink:title="swiftest_operators">
-<polygon fill="#337ab7" stroke="#337ab7" points="347,-221.42 247,-221.42 247,-197.42 347,-197.42 347,-221.42"/>
-<text text-anchor="middle" x="297" y="-207.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="474,-237.71 374,-237.71 374,-213.71 474,-213.71 474,-237.71"/>
+<text text-anchor="middle" x="424" y="-223.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_operators -->
-<g id="program~~swiftest_driver~~UsesGraph_edge4" class="edge">
+<g id="program~~swiftest_driver~~UsesGraph_edge5" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_operators</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247.42C513.53,-247.42 507.38,-232.75 474,-226.42 435.6,-219.14 391.86,-214.9 357.59,-212.47"/>
-<polygon fill="#000000" stroke="#000000" points="357.49,-208.96 347.27,-211.78 357.01,-215.94 357.49,-208.96"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M757.32,-143.64C725.36,-173.11 637.73,-245.83 549.5,-247.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-225.71C526.97,-224.61 504.49,-224.34 484.44,-224.43"/>
+<polygon fill="#000000" stroke="#000000" points="484.18,-220.94 474.21,-224.51 484.23,-227.94 484.18,-220.94"/>
 </g>
-<!-- module~rmvs_classes -->
+<!-- module~helio_classes -->
 <g id="program~~swiftest_driver~~UsesGraph_node6" class="node">
-<title>module~rmvs_classes</title>
-<g id="a_program~~swiftest_driver~~UsesGraph_node6"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="587,-63.42 510,-63.42 510,-39.42 587,-39.42 587,-63.42"/>
-<text text-anchor="middle" x="548.5" y="-49.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
+<title>module~helio_classes</title>
+<g id="a_program~~swiftest_driver~~UsesGraph_node6"><a xlink:href=".././module/helio_classes.html" xlink:title="helio_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="586.5,-197.71 510.5,-197.71 510.5,-173.71 586.5,-173.71 586.5,-197.71"/>
+<text text-anchor="middle" x="548.5" y="-183.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
-<g id="program~~swiftest_driver~~UsesGraph_edge5" class="edge">
-<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-91.42C637.51,-86.48 608.33,-76.26 586.11,-67.4"/>
-<polygon fill="#000000" stroke="#000000" points="587.32,-64.11 576.74,-63.57 584.68,-70.59 587.32,-64.11"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M746.49,-119.4C725.98,-109.64 695.11,-96.66 666.5,-91.42"/>
+<!-- module~swiftest&#45;&gt;module~helio_classes -->
+<g id="program~~swiftest_driver~~UsesGraph_edge6" class="edge">
+<title>module~swiftest&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-225.71C632.97,-230.9 598.58,-216.01 575.7,-202.95"/>
+<polygon fill="#000000" stroke="#000000" points="577.31,-199.84 566.93,-197.71 573.72,-205.84 577.31,-199.84"/>
 </g>
-<!-- module~symba_classes -->
+<!-- module~rmvs_classes -->
 <g id="program~~swiftest_driver~~UsesGraph_node7" class="node">
-<title>module~symba_classes</title>
-<g id="a_program~~swiftest_driver~~UsesGraph_node7"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="708,-143.42 623,-143.42 623,-119.42 708,-119.42 708,-143.42"/>
-<text text-anchor="middle" x="665.5" y="-129.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
+<title>module~rmvs_classes</title>
+<g id="a_program~~swiftest_driver~~UsesGraph_node7"><a xlink:href=".././module/rmvs_classes.html" xlink:title="rmvs_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="587,-155.71 510,-155.71 510,-131.71 587,-131.71 587,-155.71"/>
+<text text-anchor="middle" x="548.5" y="-141.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~symba_classes -->
-<g id="program~~swiftest_driver~~UsesGraph_edge6" class="edge">
-<title>module~swiftest&#45;&gt;module~symba_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-131.42C736.13,-131.42 727.36,-131.42 718.58,-131.42"/>
-<polygon fill="#000000" stroke="#000000" points="718.32,-127.92 708.32,-131.42 718.32,-134.92 718.32,-127.92"/>
+<!-- module~swiftest&#45;&gt;module~rmvs_classes -->
+<g id="program~~swiftest_driver~~UsesGraph_edge9" class="edge">
+<title>module~swiftest&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-225.71C621.25,-232.83 623.46,-189.05 587,-164.71 585.13,-163.46 583.19,-162.22 581.21,-161"/>
+<polygon fill="#000000" stroke="#000000" points="582.84,-157.89 572.45,-155.81 579.27,-163.92 582.84,-157.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.48,-155.84C745.67,-176.89 709.48,-218.64 666.5,-225.71"/>
 </g>
-<!-- module~swiftest_globals -->
+<!-- module~whm_classes -->
 <g id="program~~swiftest_driver~~UsesGraph_node8" class="node">
-<title>module~swiftest_globals</title>
-<g id="a_program~~swiftest_driver~~UsesGraph_node8"><a xlink:href=".././module/swiftest_globals.html" xlink:title="swiftest_globals">
-<polygon fill="#337ab7" stroke="#337ab7" points="211,-181.42 123,-181.42 123,-157.42 211,-157.42 211,-181.42"/>
-<text text-anchor="middle" x="167" y="-167.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals</text>
+<title>module~whm_classes</title>
+<g id="a_program~~swiftest_driver~~UsesGraph_node8"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="462,-157.71 386,-157.71 386,-133.71 462,-133.71 462,-157.71"/>
+<text text-anchor="middle" x="424" y="-143.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~swiftest_globals -->
+<!-- module~swiftest&#45;&gt;module~whm_classes -->
 <g id="program~~swiftest_driver~~UsesGraph_edge7" class="edge">
-<title>module~swiftest&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-247.42C514.09,-253.6 507.34,-261.91 474,-268.42 396.78,-283.51 373.32,-310.15 298,-287.42"/>
+<title>module~swiftest&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-225.71C614.07,-234.01 600.54,-228.43 549.5,-225.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-225.71C503.94,-223.38 463.69,-188.17 441.92,-165.24"/>
+<polygon fill="#000000" stroke="#000000" points="444.35,-162.72 435.01,-157.72 439.19,-167.45 444.35,-162.72"/>
 </g>
 <!-- module~swiftest_classes -->
 <g id="program~~swiftest_driver~~UsesGraph_node9" class="node">
 <title>module~swiftest_classes</title>
 <g id="a_program~~swiftest_driver~~UsesGraph_node9"><a xlink:href=".././module/swiftest_classes.html" xlink:title="swiftest_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="341.5,-141.42 252.5,-141.42 252.5,-117.42 341.5,-117.42 341.5,-141.42"/>
-<text text-anchor="middle" x="297" y="-127.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
+<polygon fill="#337ab7" stroke="#337ab7" points="337,-137.71 248,-137.71 248,-113.71 337,-113.71 337,-137.71"/>
+<text text-anchor="middle" x="292.5" y="-123.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes</text>
 </a>
 </g>
 </g>
 <!-- module~swiftest&#45;&gt;module~swiftest_classes -->
 <g id="program~~swiftest_driver~~UsesGraph_edge8" class="edge">
 <title>module~swiftest&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-91.42C478.05,-85.67 398.6,-101.73 348.37,-114.72"/>
-<polygon fill="#000000" stroke="#000000" points="347.19,-111.42 338.42,-117.36 348.98,-118.18 347.19,-111.42"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M758.18,-131.36C731.05,-104.03 660.96,-39.01 587,-15.71 518.07,6.01 491.81,-2.16 425,-29.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423,-29.71C378.21,-46.33 335.57,-83.47 312.13,-106.37"/>
+<polygon fill="#000000" stroke="#000000" points="309.55,-104 304.94,-113.55 314.5,-108.96 309.55,-104"/>
 </g>
-<!-- module~whm_classes -->
+<!-- module~symba_classes -->
 <g id="program~~swiftest_driver~~UsesGraph_node10" class="node">
-<title>module~whm_classes</title>
-<g id="a_program~~swiftest_driver~~UsesGraph_node10"><a xlink:href=".././module/whm_classes.html" xlink:title="whm_classes">
-<polygon fill="#337ab7" stroke="#337ab7" points="466.5,-63.42 390.5,-63.42 390.5,-39.42 466.5,-39.42 466.5,-63.42"/>
-<text text-anchor="middle" x="428.5" y="-49.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes</text>
+<title>module~symba_classes</title>
+<g id="a_program~~swiftest_driver~~UsesGraph_node10"><a xlink:href=".././module/symba_classes.html" xlink:title="symba_classes">
+<polygon fill="#337ab7" stroke="#337ab7" points="708,-155.71 623,-155.71 623,-131.71 708,-131.71 708,-155.71"/>
+<text text-anchor="middle" x="665.5" y="-141.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes</text>
 </a>
 </g>
 </g>
-<!-- module~swiftest&#45;&gt;module~whm_classes -->
-<g id="program~~swiftest_driver~~UsesGraph_edge9" class="edge">
-<title>module~swiftest&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M664.5,-91.42C614.23,-82.21 600.44,-95.64 549.5,-91.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-91.42C517.89,-88.97 486.07,-77.63 462.95,-67.65"/>
-<polygon fill="#000000" stroke="#000000" points="464.17,-64.36 453.61,-63.48 461.32,-70.75 464.17,-64.36"/>
+<!-- module~swiftest&#45;&gt;module~symba_classes -->
+<g id="program~~swiftest_driver~~UsesGraph_edge4" class="edge">
+<title>module~swiftest&#45;&gt;module~symba_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M743.88,-143.71C736.13,-143.71 727.36,-143.71 718.58,-143.71"/>
+<polygon fill="#000000" stroke="#000000" points="718.32,-140.21 708.32,-143.71 718.32,-147.21 718.32,-140.21"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
-<g id="program~~swiftest_driver~~UsesGraph_edge12" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131.42C367.66,-135.5 357.83,-165.12 298,-169.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-169.42C271.49,-171.18 244.28,-171.42 221.27,-171.13"/>
-<polygon fill="#000000" stroke="#000000" points="221.07,-167.62 211.01,-170.96 220.95,-174.62 221.07,-167.62"/>
+<!-- iso_fortran_env -->
+<g id="program~~swiftest_driver~~UsesGraph_node11" class="node">
+<title>iso_fortran_env</title>
+<g id="a_program~~swiftest_driver~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
+<polygon fill="#337ab7" stroke="#337ab7" points="87,-197.71 0,-197.71 0,-173.71 87,-173.71 87,-197.71"/>
+<text text-anchor="middle" x="43.5" y="-183.31" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
+</a>
 </g>
-<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
-<g id="program~~swiftest_driver~~UsesGraph_edge10" class="edge">
-<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-131.42C402.58,-133.12 374.91,-132.97 351.57,-132.25"/>
-<polygon fill="#000000" stroke="#000000" points="351.63,-128.75 341.51,-131.9 351.38,-135.75 351.63,-128.75"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.25,-130.13C487.01,-129.64 456.48,-129.58 429.5,-131.42"/>
 </g>
-<!-- module~helio_classes&#45;&gt;module~whm_classes -->
-<g id="program~~swiftest_driver~~UsesGraph_edge11" class="edge">
-<title>module~helio_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M529.58,-119.27C509.88,-105.92 478.07,-84.35 455.61,-69.12"/>
-<polygon fill="#000000" stroke="#000000" points="457.44,-66.14 447.2,-63.42 453.52,-71.93 457.44,-66.14"/>
+<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
+<g id="program~~swiftest_driver~~UsesGraph_edge10" class="edge">
+<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-185.71C114.58,-185.71 105.86,-185.71 97.36,-185.71"/>
+<polygon fill="#000000" stroke="#000000" points="97.13,-182.21 87.13,-185.71 97.13,-189.21 97.13,-182.21"/>
 </g>
 <!-- module~lambda_function&#45;&gt;module~swiftest_globals -->
-<g id="program~~swiftest_driver~~UsesGraph_edge13" class="edge">
+<g id="program~~swiftest_driver~~UsesGraph_edge11" class="edge">
 <title>module~lambda_function&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M400.8,-259.52C368.87,-273.32 317.32,-293.25 298,-287.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-287.42C243.82,-271.67 201.63,-219.55 181.26,-190.12"/>
-<polygon fill="#000000" stroke="#000000" points="184.13,-188.13 175.65,-181.78 178.32,-192.03 184.13,-188.13"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M254.45,-213.71C242.1,-209.71 228.18,-205.2 215.18,-200.99"/>
+<polygon fill="#000000" stroke="#000000" points="216.05,-197.59 205.45,-197.84 213.89,-204.25 216.05,-197.59"/>
 </g>
 <!-- module~swiftest_operators&#45;&gt;module~swiftest_globals -->
-<g id="program~~swiftest_driver~~UsesGraph_edge14" class="edge">
+<g id="program~~swiftest_driver~~UsesGraph_edge12" class="edge">
 <title>module~swiftest_operators&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-197.42C244.68,-193.38 230.09,-188.83 216.5,-184.58"/>
-<polygon fill="#000000" stroke="#000000" points="217.41,-181.19 206.82,-181.55 215.32,-187.88 217.41,-181.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.44,-213.71C377.32,-200.39 333.26,-181.3 293.5,-185.71"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_globals -->
+<g id="program~~swiftest_driver~~UsesGraph_edge13" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.34,-183.16C460.73,-180.33 370.2,-177.21 293.5,-185.71"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~whm_classes -->
+<g id="program~~swiftest_driver~~UsesGraph_edge14" class="edge">
+<title>module~helio_classes&#45;&gt;module~whm_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M510.75,-173.71C498.5,-169.71 484.7,-165.2 471.8,-160.99"/>
+<polygon fill="#000000" stroke="#000000" points="472.74,-157.62 462.15,-157.84 470.57,-164.27 472.74,-157.62"/>
+</g>
+<!-- module~helio_classes&#45;&gt;module~swiftest_classes -->
+<g id="program~~swiftest_driver~~UsesGraph_edge15" class="edge">
+<title>module~helio_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.94,-173.49C518.47,-170.84 513.96,-167.88 510,-164.71 491.32,-149.78 495.85,-134.44 474,-124.71 434.23,-106.99 384.46,-108.8 347.26,-114.16"/>
+<polygon fill="#000000" stroke="#000000" points="346.46,-110.74 337.12,-115.75 347.54,-117.66 346.46,-110.74"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~swiftest_globals -->
 <g id="program~~swiftest_driver~~UsesGraph_edge16" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.91,-39.36C477.15,-18.67 376.45,18.62 298,-11.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296,-11.42C233.62,-35.31 193.53,-110.2 176.85,-147.65"/>
-<polygon fill="#000000" stroke="#000000" points="173.51,-146.57 172.77,-157.14 179.94,-149.34 173.51,-146.57"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.5,-185.71C268.52,-188.36 242.96,-188.78 221.09,-188.37"/>
+<polygon fill="#000000" stroke="#000000" points="221.09,-184.87 211.01,-188.12 220.92,-191.87 221.09,-184.87"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M513.65,-131.68C478,-120.91 420.67,-109.02 374,-124.71 331.45,-139.01 338.09,-180.56 293.5,-185.71"/>
 </g>
 <!-- module~rmvs_classes&#45;&gt;module~whm_classes -->
-<g id="program~~swiftest_driver~~UsesGraph_edge15" class="edge">
+<g id="program~~swiftest_driver~~UsesGraph_edge17" class="edge">
 <title>module~rmvs_classes&#45;&gt;module~whm_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.84,-51.42C499.41,-51.42 487.96,-51.42 477.05,-51.42"/>
-<polygon fill="#000000" stroke="#000000" points="476.8,-47.92 466.8,-51.42 476.8,-54.92 476.8,-47.92"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~helio_classes -->
-<g id="program~~swiftest_driver~~UsesGraph_edge20" class="edge">
-<title>module~symba_classes&#45;&gt;module~helio_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-131.42C614.47,-131.42 605.46,-131.42 596.76,-131.42"/>
-<polygon fill="#000000" stroke="#000000" points="596.76,-127.92 586.76,-131.42 596.76,-134.92 596.76,-127.92"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.75,-144.32C497.99,-144.52 484.88,-144.73 472.55,-144.93"/>
+<polygon fill="#000000" stroke="#000000" points="472.36,-141.43 462.42,-145.1 472.47,-148.43 472.36,-141.43"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
 <g id="program~~swiftest_driver~~UsesGraph_edge18" class="edge">
-<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M644.39,-119.39C637.51,-115.13 629.83,-110.2 623,-105.42 606.39,-93.8 603.33,-89.42 587,-77.42 583.48,-74.84 579.74,-72.16 576.03,-69.55"/>
-<polygon fill="#000000" stroke="#000000" points="577.78,-66.5 567.57,-63.65 573.78,-72.24 577.78,-66.5"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M394.86,-157.8C369.06,-168.05 329.52,-181.72 293.5,-185.71"/>
 </g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
 <g id="program~~swiftest_driver~~UsesGraph_edge19" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-169.42C369.98,-167.47 355.41,-165.3 298,-169.42"/>
-</g>
-<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
-<g id="program~~swiftest_driver~~UsesGraph_edge17" class="edge">
-<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M626.05,-143.51C579.7,-156.72 499.31,-175.28 429.5,-169.42"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427.5,-169.42C394.13,-168.29 357.98,-156.13 332.37,-145.51"/>
-<polygon fill="#000000" stroke="#000000" points="333.67,-142.26 323.1,-141.54 330.92,-148.69 333.67,-142.26"/>
-</g>
-<!-- iso_fortran_env -->
-<g id="program~~swiftest_driver~~UsesGraph_node11" class="node">
-<title>iso_fortran_env</title>
-<g id="a_program~~swiftest_driver~~UsesGraph_node11"><a xlink:href="http://fortranwiki.org/fortran/show/ISO_FORTRAN_ENV" xlink:title="iso_fortran_env">
-<polygon fill="#337ab7" stroke="#337ab7" points="87,-181.42 0,-181.42 0,-157.42 87,-157.42 87,-181.42"/>
-<text text-anchor="middle" x="43.5" y="-167.02" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">iso_fortran_env</text>
-</a>
-</g>
-</g>
-<!-- module~swiftest_globals&#45;&gt;iso_fortran_env -->
-<g id="program~~swiftest_driver~~UsesGraph_edge21" class="edge">
-<title>module~swiftest_globals&#45;&gt;iso_fortran_env</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M122.82,-169.42C114.58,-169.42 105.86,-169.42 97.36,-169.42"/>
-<polygon fill="#000000" stroke="#000000" points="97.13,-165.92 87.13,-169.42 97.13,-172.92 97.13,-165.92"/>
+<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.89,-139.98C373.86,-138.12 360.26,-136.02 347.27,-134.01"/>
+<polygon fill="#000000" stroke="#000000" points="347.44,-130.5 337.02,-132.43 346.37,-137.42 347.44,-130.5"/>
 </g>
 <!-- module~swiftest_classes&#45;&gt;module~swiftest_globals -->
-<g id="program~~swiftest_driver~~UsesGraph_edge22" class="edge">
+<g id="program~~swiftest_driver~~UsesGraph_edge20" class="edge">
 <title>module~swiftest_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.6,-141.42C244.68,-145.46 230.09,-150.02 216.5,-154.26"/>
-<polygon fill="#000000" stroke="#000000" points="215.32,-150.97 206.82,-157.29 217.41,-157.65 215.32,-150.97"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.51,-137.85C248.01,-146.84 222.59,-159.18 202.21,-169.09"/>
+<polygon fill="#000000" stroke="#000000" points="200.42,-166.07 192.95,-173.58 203.48,-172.36 200.42,-166.07"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_globals -->
+<!-- module~symba_classes&#45;&gt;module~swiftest_globals -->
+<g id="program~~swiftest_driver~~UsesGraph_edge21" class="edge">
+<title>module~symba_classes&#45;&gt;module~swiftest_globals</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-29.71C478.25,4.77 447.78,7.57 374,-15.71 288.08,-42.82 213.91,-126.71 183.16,-165.57"/>
+<polygon fill="#000000" stroke="#000000" points="180.31,-163.53 176.94,-173.57 185.84,-167.82 180.31,-163.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.77,-131.63C640.41,-107.26 599.62,-52.59 549.5,-29.71"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~helio_classes -->
 <g id="program~~swiftest_driver~~UsesGraph_edge24" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_globals</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.76,-39.36C369.77,-25.09 317.06,-4.12 298,-11.42"/>
+<title>module~symba_classes&#45;&gt;module~helio_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M631.55,-155.74C619.28,-160.23 605.17,-165.38 592.15,-170.13"/>
+<polygon fill="#000000" stroke="#000000" points="590.65,-166.95 582.46,-173.67 593.05,-173.53 590.65,-166.95"/>
 </g>
-<!-- module~whm_classes&#45;&gt;module~swiftest_classes -->
+<!-- module~symba_classes&#45;&gt;module~rmvs_classes -->
+<g id="program~~swiftest_driver~~UsesGraph_edge22" class="edge">
+<title>module~symba_classes&#45;&gt;module~rmvs_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.98,-143.71C614.66,-143.71 605.85,-143.71 597.33,-143.71"/>
+<polygon fill="#000000" stroke="#000000" points="597.14,-140.21 587.14,-143.71 597.14,-147.21 597.14,-140.21"/>
+</g>
+<!-- module~symba_classes&#45;&gt;module~swiftest_classes -->
 <g id="program~~swiftest_driver~~UsesGraph_edge23" class="edge">
-<title>module~whm_classes&#45;&gt;module~swiftest_classes</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.62,-63.5C399.15,-67.86 390.68,-72.83 383,-77.42 363.96,-88.81 342.66,-101.84 326.15,-112"/>
-<polygon fill="#000000" stroke="#000000" points="324.19,-109.1 317.51,-117.33 327.86,-115.06 324.19,-109.1"/>
+<title>module~symba_classes&#45;&gt;module~swiftest_classes</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.5,-29.71C498.76,-5.44 475.33,-8.96 425,-29.71"/>
 </g>
 </g>
 </svg>
@@ -584,8 +575,7 @@ <h3 class="panel-title">Uses</h3>
 <p>Step the system forward in time</p>
 <p>Evaluate any discards or collisional outcomes</p>
 <p>If the loop counter is at the output cadence value, append the data file with a single frame
- If the loop counter is at the dump cadence value, dump the state of the system to a file in case it needs to be restarted
- Dump the final state of the system to file</p>
+ If the loop counter is at the dump cadence value, dump the state of the system to a file in case it needs to be restarted</p>
     
     <br>
     <div class="panel panel-default">
@@ -610,41 +600,41 @@ <h3 class="panel-title">Calls</h3>
 <polygon fill="none" stroke="black" points="81,-66 0,-66 0,-42 81,-42 81,-66"/>
 <text text-anchor="middle" x="40.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_driver</text>
 </g>
-<!-- io_get_args -->
-<g id="program~~swiftest_driver~~CallsGraph_node2" class="node">
-<title>io_get_args</title>
-<polygon fill="#777777" stroke="#777777" points="215.5,-108 146.5,-108 146.5,-84 215.5,-84 215.5,-108"/>
-<text text-anchor="middle" x="181" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
-</g>
-<!-- program~swiftest_driver&#45;&gt;io_get_args -->
-<g id="program~~swiftest_driver~~CallsGraph_edge1" class="edge">
-<title>program~swiftest_driver&#45;&gt;io_get_args</title>
-<path fill="none" stroke="#000000" d="M81.19,-66.04C98.43,-71.26 118.68,-77.4 136.34,-82.76"/>
-<polygon fill="#000000" stroke="#000000" points="135.81,-86.26 146.4,-85.81 137.85,-79.56 135.81,-86.26"/>
-</g>
 <!-- setup_construct_system -->
-<g id="program~~swiftest_driver~~CallsGraph_node3" class="node">
+<g id="program~~swiftest_driver~~CallsGraph_node2" class="node">
 <title>setup_construct_system</title>
-<polygon fill="#777777" stroke="#777777" points="245,-66 117,-66 117,-42 245,-42 245,-66"/>
-<text text-anchor="middle" x="181" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
+<polygon fill="#777777" stroke="#777777" points="245,-108 117,-108 117,-84 245,-84 245,-108"/>
+<text text-anchor="middle" x="181" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup_construct_system</text>
 </g>
 <!-- program~swiftest_driver&#45;&gt;setup_construct_system -->
-<g id="program~~swiftest_driver~~CallsGraph_edge2" class="edge">
+<g id="program~~swiftest_driver~~CallsGraph_edge1" class="edge">
 <title>program~swiftest_driver&#45;&gt;setup_construct_system</title>
-<path fill="none" stroke="#000000" d="M81.19,-54C89.17,-54 97.81,-54 106.53,-54"/>
-<polygon fill="#000000" stroke="#000000" points="106.77,-57.5 116.77,-54 106.77,-50.5 106.77,-57.5"/>
+<path fill="none" stroke="#000000" d="M81.19,-66.04C96.55,-70.69 114.29,-76.07 130.47,-80.98"/>
+<polygon fill="#000000" stroke="#000000" points="129.72,-84.41 140.31,-83.96 131.75,-77.71 129.72,-84.41"/>
 </g>
 <!-- util_exit -->
-<g id="program~~swiftest_driver~~CallsGraph_node4" class="node">
+<g id="program~~swiftest_driver~~CallsGraph_node3" class="node">
 <title>util_exit</title>
-<polygon fill="#777777" stroke="#777777" points="208,-24 154,-24 154,0 208,0 208,-24"/>
-<text text-anchor="middle" x="181" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
+<polygon fill="#777777" stroke="#777777" points="208,-66 154,-66 154,-42 208,-42 208,-66"/>
+<text text-anchor="middle" x="181" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit</text>
 </g>
 <!-- program~swiftest_driver&#45;&gt;util_exit -->
-<g id="program~~swiftest_driver~~CallsGraph_edge3" class="edge">
+<g id="program~~swiftest_driver~~CallsGraph_edge2" class="edge">
 <title>program~swiftest_driver&#45;&gt;util_exit</title>
-<path fill="none" stroke="#000000" d="M81.19,-41.96C101.06,-35.94 124.94,-28.7 144.24,-22.84"/>
-<polygon fill="#000000" stroke="#000000" points="145.32,-26.17 153.88,-19.92 143.29,-19.47 145.32,-26.17"/>
+<path fill="none" stroke="#000000" d="M81.19,-54C100.88,-54 124.5,-54 143.71,-54"/>
+<polygon fill="#000000" stroke="#000000" points="143.88,-57.5 153.88,-54 143.88,-50.5 143.88,-57.5"/>
+</g>
+<!-- io_get_args -->
+<g id="program~~swiftest_driver~~CallsGraph_node4" class="node">
+<title>io_get_args</title>
+<polygon fill="#777777" stroke="#777777" points="215.5,-24 146.5,-24 146.5,0 215.5,0 215.5,-24"/>
+<text text-anchor="middle" x="181" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io_get_args</text>
+</g>
+<!-- program~swiftest_driver&#45;&gt;io_get_args -->
+<g id="program~~swiftest_driver~~CallsGraph_edge3" class="edge">
+<title>program~swiftest_driver&#45;&gt;io_get_args</title>
+<path fill="none" stroke="#000000" d="M81.19,-41.96C98.43,-36.74 118.68,-30.6 136.34,-25.24"/>
+<polygon fill="#000000" stroke="#000000" points="137.85,-28.44 146.4,-22.19 135.81,-21.74 137.85,-28.44"/>
 </g>
 </g>
 </svg>
@@ -726,13 +716,13 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../program/swiftest_driver.html#variable-nbody_system">nbody_system</a>
       
-      <a class="list-group-item" href="../program/swiftest_driver.html#variable-param~211">param</a>
+      <a class="list-group-item" href="../program/swiftest_driver.html#variable-param~214">param</a>
       
       <a class="list-group-item" href="../program/swiftest_driver.html#variable-integrator~4">integrator</a>
       
       <a class="list-group-item" href="../program/swiftest_driver.html#variable-param_file_name~7">param_file_name</a>
       
-      <a class="list-group-item" href="../program/swiftest_driver.html#variable-ierr~16">ierr</a>
+      <a class="list-group-item" href="../program/swiftest_driver.html#variable-ierr~14">ierr</a>
       
       <a class="list-group-item" href="../program/swiftest_driver.html#variable-iloop">iloop</a>
       
@@ -742,13 +732,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../program/swiftest_driver.html#variable-nloops">nloops</a>
       
-      <a class="list-group-item" href="../program/swiftest_driver.html#variable-start_wall_time">start_wall_time</a>
-      
-      <a class="list-group-item" href="../program/swiftest_driver.html#variable-finish_wall_time">finish_wall_time</a>
-      
-      <a class="list-group-item" href="../program/swiftest_driver.html#variable-iu~21">iu</a>
-      
-      <a class="list-group-item" href="../program/swiftest_driver.html#variable-statusfmt">statusfmt</a>
+      <a class="list-group-item" href="../program/swiftest_driver.html#variable-iu~17">iu</a>
       
     </div>
   </div>
@@ -812,7 +796,7 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-param~211"></span>class(swiftest_parameters),</td>
+  <td><span class="anchor" id="variable-param~214"></span>class(swiftest_parameters),</td>
   
   
   <td>allocatable</td><td>::</td>
@@ -854,7 +838,7 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ierr~16"></span>integer(kind=I4B)</td>
+  <td><span class="anchor" id="variable-ierr~14"></span>integer(kind=I4B)</td>
   
   
   <td></td><td>::</td>
@@ -924,35 +908,7 @@ <h2>Variables</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-start_wall_time"></span>real(kind=DP)</td>
-  
-  
-  <td></td><td>::</td>
-  <td><strong>start_wall_time</strong></td><td></td><td></td><td><p>Wall clock time at start of execution</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-finish_wall_time"></span>real(kind=DP)</td>
-  
-  
-  <td></td><td>::</td>
-  <td><strong>finish_wall_time</strong></td><td></td><td></td><td><p>Wall clock time when execution has finished</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-iu~21"></span>integer(kind=I4B)</td>
+  <td><span class="anchor" id="variable-iu~17"></span>integer(kind=I4B)</td>
   
   
   <td></td><td>::</td>
@@ -960,20 +916,6 @@ <h2>Variables</h2>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-statusfmt"></span>character(len=*),</td>
-  
-  
-  <td>parameter</td><td>::</td>
-  <td><strong>statusfmt</strong></td><td> =</td><td>'("Time = ", ES12.5, "; fraction done = ", F6.3, "; '//'Number of active pl, tp = ", I5, ", ", I5)'</td><td></td>
-  
-</tr>
-
 </tbody>
 </table>
 
diff --git a/docs/sourcefile/discard.f90.html b/docs/sourcefile/discard.f90.html
index 38416e0a3..19cb3384c 100644
--- a/docs/sourcefile/discard.f90.html
+++ b/docs/sourcefile/discard.f90.html
@@ -134,7 +134,7 @@ <h1>discard.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.4% of total for source files.">181 statements</a>
+    title=" 1.5% of total for source files.">195 statements</a>
      </li> 
      
      
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~discard.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilediscardf90EfferentGraph" width="641pt" height="207pt"
- viewBox="0.00 0.00 641.00 206.91" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~discard.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 282)">
+<svg id="sourcefilediscardf90EfferentGraph" width="641pt" height="221pt"
+ viewBox="0.00 0.00 641.00 220.84" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~discard.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 301.25)">
 <title>sourcefile~~discard.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 882,-282 882,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 882,-301.25 882,4 -4,4"/>
 <!-- sourcefile~discard.f90 -->
 <g id="sourcefile~~discard.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~discard.f90</title>
-<polygon fill="none" stroke="black" points="878,-24 813,-24 813,0 878,0 878,-24"/>
-<text text-anchor="middle" x="845.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">discard.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~discard.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M813.83,-24.02C804.76,-27.58 794.68,-31.53 785.1,-35.28"/>
-<polygon fill="#000000" stroke="#000000" points="783.77,-32.05 775.74,-38.95 786.32,-38.56 783.77,-32.05"/>
+<polygon fill="none" stroke="black" points="878,-260 813,-260 813,-236 878,-236 878,-260"/>
+<text text-anchor="middle" x="845.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">discard.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~discard.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~discard.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~discard.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.72,-11.19C732.46,-10.09 515.98,-12.87 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.77,-257.48C770.3,-269.31 692.44,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~discard.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~discard.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.74,-241.62C804.57,-239.97 795.64,-238.18 787.03,-236.45"/>
+<polygon fill="#000000" stroke="#000000" points="787.63,-233 777.14,-234.46 786.25,-239.86 787.63,-233"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~discard.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~discard.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~discard.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~discard.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~discard.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~discard.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~discard.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~discard.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~discard.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~discard.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~discard.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~discard.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~discard.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~discard.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~discard.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~discard.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~discard.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~discard.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~discard.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~discard.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~discard.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~discard.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~discard.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~discard.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~discard.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~discard.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~discard.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~discard.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~discard.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~discard.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~discard.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
@@ -570,258 +572,277 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-12"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest system object</span>
 <a name="ln-13"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
 <a name="ln-14"></a>      <span class="c">! Internals</span>
-<a name="ln-15"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lany_discards</span>
+<a name="ln-15"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lany_discards</span><span class="p">,</span> <span class="n">lpl_discards</span><span class="p">,</span> <span class="n">ltp_discards</span><span class="p">,</span> <span class="n">lpl_check</span><span class="p">,</span> <span class="n">ltp_check</span>
 <a name="ln-16"></a>
-<a name="ln-17"></a>      <span class="k">associate</span><span class="p">(</span><span class="nb">system</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">tp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">,</span> <span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-18"></a>         <span class="n">lany_discards</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-19"></a>         <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">discard</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-20"></a>         <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">discard</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-21"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="n">lany_discards</span> <span class="o">=</span> <span class="n">lany_discards</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span>  <span class="nb">any</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(:))</span>
-<a name="ln-22"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="n">lany_discards</span> <span class="o">=</span> <span class="n">lany_discards</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span>  <span class="nb">any</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(:))</span>
-<a name="ln-23"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lany_discards</span><span class="p">)</span> <span class="k">call </span><span class="nb">system</span><span class="p">%</span><span class="n">write_discard</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
-<a name="ln-24"></a>      <span class="k">end associate</span>
-<a name="ln-25"></a>
-<a name="ln-26"></a><span class="k">      return</span>
-<a name="ln-27"></a><span class="k">   end subroutine </span><span class="n">discard_system</span>
-<a name="ln-28"></a>
-<a name="ln-29"></a>
-<a name="ln-30"></a>   <span class="k">module subroutine </span><span class="n">discard_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-31"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-32"></a>      <span class="c">!!</span>
-<a name="ln-33"></a>      <span class="c">!!  Placeholder method for discarding massive bodies. This method does nothing except to ensure that the discard flag is set to false. </span>
-<a name="ln-34"></a>      <span class="c">!!  This method is intended to be overridden by more advanced integrators.</span>
-<a name="ln-35"></a>      <span class="k">implicit none</span>
-<a name="ln-36"></a>      <span class="c">! Arguments</span>
-<a name="ln-37"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest massive body object</span>
-<a name="ln-38"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-39"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameter</span>
-<a name="ln-40"></a>
-<a name="ln-41"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-42"></a><span class="k">      </span><span class="n">self</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-17"></a>      <span class="n">lpl_check</span> <span class="o">=</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">pl_discards</span><span class="p">)</span>
+<a name="ln-18"></a>      <span class="n">ltp_check</span> <span class="o">=</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tp_discards</span><span class="p">)</span>
+<a name="ln-19"></a>
+<a name="ln-20"></a>      <span class="k">associate</span><span class="p">(</span><span class="nb">system</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">tp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">,</span> <span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">tp_discards</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">tp_discards</span><span class="p">,</span> <span class="n">pl_discards</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl_discards</span><span class="p">)</span>
+<a name="ln-21"></a>         <span class="n">lpl_discards</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-22"></a>         <span class="n">ltp_discards</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-23"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lpl_check</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-24"></a><span class="k">            call </span><span class="n">pl</span><span class="p">%</span><span class="n">discard</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-25"></a>            <span class="n">lpl_discards</span> <span class="o">=</span> <span class="p">(</span><span class="n">pl_discards</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span>
+<a name="ln-26"></a>         <span class="k">end if</span>
+<a name="ln-27"></a><span class="k">            </span>
+<a name="ln-28"></a><span class="k">         if</span> <span class="p">(</span><span class="n">ltp_check</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-29"></a><span class="k">            call </span><span class="n">tp</span><span class="p">%</span><span class="n">discard</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-30"></a>            <span class="n">ltp_discards</span> <span class="o">=</span> <span class="p">(</span><span class="n">tp_discards</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span>
+<a name="ln-31"></a>         <span class="k">end if</span>
+<a name="ln-32"></a>
+<a name="ln-33"></a><span class="k">         if</span> <span class="p">(</span><span class="n">lpl_discards</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">ltp_discards</span><span class="p">)</span> <span class="k">call </span><span class="nb">system</span><span class="p">%</span><span class="n">write_discard</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-34"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lpl_discards</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="n">param</span><span class="p">%</span><span class="n">lenergy</span><span class="p">)</span> <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">conservation_report</span><span class="p">(</span><span class="n">param</span><span class="p">,</span> <span class="n">lterminal</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
+<a name="ln-35"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lpl_check</span><span class="p">)</span> <span class="k">call </span><span class="n">pl_discards</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">0</span><span class="p">,</span><span class="n">param</span><span class="p">)</span> 
+<a name="ln-36"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ltp_check</span><span class="p">)</span> <span class="k">call </span><span class="n">tp_discards</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">0</span><span class="p">,</span><span class="n">param</span><span class="p">)</span> 
+<a name="ln-37"></a>         
+<a name="ln-38"></a>      <span class="k">end associate</span>
+<a name="ln-39"></a>
+<a name="ln-40"></a><span class="k">      return</span>
+<a name="ln-41"></a><span class="k">   end subroutine </span><span class="n">discard_system</span>
+<a name="ln-42"></a>
 <a name="ln-43"></a>
-<a name="ln-44"></a>      <span class="k">return</span>
-<a name="ln-45"></a><span class="k">   end subroutine </span><span class="n">discard_pl</span>
-<a name="ln-46"></a>
-<a name="ln-47"></a>
-<a name="ln-48"></a>   <span class="k">module subroutine </span><span class="n">discard_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-49"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-50"></a>      <span class="c">!!</span>
-<a name="ln-51"></a>      <span class="c">!! Check to see if particles should be discarded based on their positions relative to the massive bodies</span>
-<a name="ln-52"></a>      <span class="c">!! </span>
-<a name="ln-53"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: discard.f90</span>
-<a name="ln-54"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard.</span>
-<a name="ln-55"></a>      <span class="k">implicit none</span>
-<a name="ln-56"></a>      <span class="c">! Arguments</span>
-<a name="ln-57"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest test particle object</span>
-<a name="ln-58"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-59"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameter</span>
+<a name="ln-44"></a>   <span class="k">module subroutine </span><span class="n">discard_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-45"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-46"></a>      <span class="c">!!</span>
+<a name="ln-47"></a>      <span class="c">!!  Placeholder method for discarding massive bodies. This method does nothing except to ensure that the discard flag is set to false. </span>
+<a name="ln-48"></a>      <span class="c">!!  This method is intended to be overridden by more advanced integrators.</span>
+<a name="ln-49"></a>      <span class="k">implicit none</span>
+<a name="ln-50"></a>      <span class="c">! Arguments</span>
+<a name="ln-51"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest massive body object</span>
+<a name="ln-52"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-53"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameter</span>
+<a name="ln-54"></a>
+<a name="ln-55"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-56"></a><span class="k">      </span><span class="n">self</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-57"></a>
+<a name="ln-58"></a>      <span class="k">return</span>
+<a name="ln-59"></a><span class="k">   end subroutine </span><span class="n">discard_pl</span>
 <a name="ln-60"></a>
-<a name="ln-61"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">tp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">cb</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">,</span> <span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
-<a name="ln-62"></a>         <span class="k">if</span> <span class="p">((</span><span class="n">ntp</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">npl</span> <span class="o">==</span><span class="mi">0</span><span class="p">))</span> <span class="k">return </span>
-<a name="ln-63"></a>
-<a name="ln-64"></a><span class="k">         if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">rmin</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">rmax</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">&amp;</span>
-<a name="ln-65"></a>             <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">rmaxu</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">qmin</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span> <span class="o">==</span> <span class="s2">&quot;BARY&quot;</span><span class="p">)))</span> <span class="k">then</span>
-<a name="ln-66"></a><span class="k">            call </span><span class="n">pl</span><span class="p">%</span><span class="n">h2b</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span> 
-<a name="ln-67"></a>            <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">h2b</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span> 
-<a name="ln-68"></a>         <span class="k">end if</span>
-<a name="ln-69"></a>
-<a name="ln-70"></a><span class="k">         if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">rmin</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">rmax</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span>  <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">rmaxu</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">))</span> <span class="k">call </span><span class="n">discard_cb_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-71"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">call </span><span class="n">discard_peri_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-72"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lclose</span><span class="p">)</span> <span class="k">call </span><span class="n">discard_pl_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-73"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">))</span> <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">spill</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">tp_discards</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">,</span> <span class="n">ldestructive</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
-<a name="ln-74"></a>      <span class="k">end associate</span>
-<a name="ln-75"></a>
-<a name="ln-76"></a><span class="k">      return</span>
-<a name="ln-77"></a><span class="k">   end subroutine </span><span class="n">discard_tp</span>
-<a name="ln-78"></a>
+<a name="ln-61"></a>
+<a name="ln-62"></a>   <span class="k">module subroutine </span><span class="n">discard_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-63"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-64"></a>      <span class="c">!!</span>
+<a name="ln-65"></a>      <span class="c">!! Check to see if particles should be discarded based on their positions relative to the massive bodies</span>
+<a name="ln-66"></a>      <span class="c">!! </span>
+<a name="ln-67"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: discard.f90</span>
+<a name="ln-68"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard.</span>
+<a name="ln-69"></a>      <span class="k">implicit none</span>
+<a name="ln-70"></a>      <span class="c">! Arguments</span>
+<a name="ln-71"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest test particle object</span>
+<a name="ln-72"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-73"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameter</span>
+<a name="ln-74"></a>      <span class="c">! Internals</span>
+<a name="ln-75"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">ldiscard</span>
+<a name="ln-76"></a>
+<a name="ln-77"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">tp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">cb</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">,</span> <span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-78"></a>         <span class="k">if</span> <span class="p">((</span><span class="n">ntp</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">npl</span> <span class="o">==</span><span class="mi">0</span><span class="p">))</span> <span class="k">return </span>
 <a name="ln-79"></a>
-<a name="ln-80"></a>   <span class="k">subroutine </span><span class="n">discard_cb_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-81"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-82"></a>      <span class="c">!!</span>
-<a name="ln-83"></a>      <span class="c">!!  Check to see if test particles should be discarded based on their positions relative to the Sun</span>
-<a name="ln-84"></a>      <span class="c">!!        or because they are unbound from the system</span>
-<a name="ln-85"></a>      <span class="c">!!</span>
-<a name="ln-86"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: discard_sun.f90</span>
-<a name="ln-87"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard_sun.f</span>
-<a name="ln-88"></a>      <span class="k">implicit none</span>
-<a name="ln-89"></a>      <span class="c">! Arguments</span>
-<a name="ln-90"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">tp</span>     <span class="c">!! Swiftest test particle object</span>
-<a name="ln-91"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-92"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
-<a name="ln-93"></a>      <span class="c">! Internals</span>
-<a name="ln-94"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>        <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-95"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>            <span class="kd">::</span> <span class="n">energy</span><span class="p">,</span> <span class="n">vb2</span><span class="p">,</span> <span class="n">rb2</span><span class="p">,</span> <span class="n">rh2</span><span class="p">,</span> <span class="n">rmin2</span><span class="p">,</span> <span class="n">rmax2</span><span class="p">,</span> <span class="n">rmaxu2</span>
-<a name="ln-96"></a>
-<a name="ln-97"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">tp</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">cb</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">,</span> <span class="n">t</span> <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">Gmtot</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">Gmtot</span><span class="p">)</span>
-<a name="ln-98"></a>         <span class="n">rmin2</span> <span class="o">=</span> <span class="nb">max</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">rmin</span> <span class="o">*</span> <span class="n">param</span><span class="p">%</span><span class="n">rmin</span><span class="p">,</span> <span class="n">cb</span><span class="p">%</span><span class="n">radius</span> <span class="o">*</span> <span class="n">cb</span><span class="p">%</span><span class="n">radius</span><span class="p">)</span>
-<a name="ln-99"></a>         <span class="n">rmax2</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">rmax</span><span class="o">**</span><span class="mi">2</span>
-<a name="ln-100"></a>         <span class="n">rmaxu2</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">rmaxu</span><span class="o">**</span><span class="mi">2</span>
-<a name="ln-101"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">ntp</span>
-<a name="ln-102"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-103"></a><span class="k">               </span><span class="n">rh2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
-<a name="ln-104"></a>               <span class="k">if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">rmax</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">rh2</span> <span class="o">&gt;</span> <span class="n">rmax2</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-105"></a><span class="k">                  </span><span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">DISCARDED_RMAX</span>
-<a name="ln-106"></a>                  <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Particle &quot;</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="s2">&quot; too far from sun at t = &quot;</span><span class="p">,</span> <span class="n">t</span>
-<a name="ln-107"></a>                  <span class="n">tp</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-108"></a>                  <span class="n">tp</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-109"></a>               <span class="k">else if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">rmin</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">rh2</span> <span class="o">&lt;</span> <span class="n">rmin2</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-110"></a><span class="k">                  </span><span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">DISCARDED_RMIN</span>
-<a name="ln-111"></a>                  <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Particle &quot;</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="s2">&quot; too close to sun at t = &quot;</span><span class="p">,</span> <span class="n">t</span>
-<a name="ln-112"></a>                  <span class="n">tp</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-113"></a>                  <span class="n">tp</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-114"></a>               <span class="k">else if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">rmaxu</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-115"></a><span class="k">                  </span><span class="n">rb2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span>  <span class="n">tp</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
-<a name="ln-116"></a>                  <span class="n">vb2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">tp</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
-<a name="ln-117"></a>                  <span class="n">energy</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">vb2</span> <span class="o">-</span> <span class="n">Gmtot</span> <span class="o">/</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">rb2</span><span class="p">)</span>
-<a name="ln-118"></a>                  <span class="k">if</span> <span class="p">((</span><span class="n">energy</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">rb2</span> <span class="o">&gt;</span> <span class="n">rmaxu2</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-119"></a><span class="k">                     </span><span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">DISCARDED_RMAXU</span>
-<a name="ln-120"></a>                     <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Particle &quot;</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="s2">&quot; is unbound and too far from barycenter at t = &quot;</span><span class="p">,</span> <span class="n">t</span>
-<a name="ln-121"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-122"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-123"></a>                  <span class="k">end if</span>
-<a name="ln-124"></a><span class="k">               end if</span>
-<a name="ln-125"></a><span class="k">            end if</span>
-<a name="ln-126"></a><span class="k">         end do</span>
-<a name="ln-127"></a><span class="k">      end associate</span>
-<a name="ln-128"></a>
-<a name="ln-129"></a><span class="k">      return</span>
-<a name="ln-130"></a><span class="k">   end subroutine </span><span class="n">discard_cb_tp</span>
-<a name="ln-131"></a>
-<a name="ln-132"></a>
-<a name="ln-133"></a>   <span class="k">subroutine </span><span class="n">discard_peri_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-134"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-135"></a>      <span class="c">!!</span>
-<a name="ln-136"></a>      <span class="c">!! Check to see if a test particle should be discarded because its perihelion distance becomes too small</span>
-<a name="ln-137"></a>      <span class="c">!!</span>
-<a name="ln-138"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: discard_peri.f90</span>
-<a name="ln-139"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard_peri.f</span>
-<a name="ln-140"></a>      <span class="k">implicit none</span>
-<a name="ln-141"></a>      <span class="c">! Arguments</span>
-<a name="ln-142"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">tp</span>   <span class="c">!! Swiftest test particle object</span>
-<a name="ln-143"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-144"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameterss</span>
-<a name="ln-145"></a>      <span class="c">! Internals</span>
-<a name="ln-146"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">save</span>             <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-147"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">ih</span>
-<a name="ln-148"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">r2</span>
-<a name="ln-149"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">dx</span>
-<a name="ln-150"></a>   
-<a name="ln-151"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">cb</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">,</span> <span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">tp</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">t</span> <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">)</span>
-<a name="ln-152"></a>         <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">get_peri</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-153"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">ntp</span>
-<a name="ln-154"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-155"></a><span class="k">               if</span> <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-156"></a><span class="k">                  </span><span class="n">ih</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-157"></a>                  <span class="k">do </span><span class="n">j</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-158"></a>                     <span class="n">dx</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span>
-<a name="ln-159"></a>                     <span class="n">r2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">dx</span><span class="p">(:),</span> <span class="n">dx</span><span class="p">(:))</span>
-<a name="ln-160"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">r2</span> <span class="o">&lt;=</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">rhill</span><span class="p">(</span><span class="n">j</span><span class="p">))</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="n">ih</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-161"></a>                  <span class="k">end do</span>
-<a name="ln-162"></a><span class="k">                  if</span> <span class="p">(</span><span class="n">ih</span> <span class="o">==</span> <span class="mi">1</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-163"></a><span class="k">                     if</span> <span class="p">((</span><span class="n">tp</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">&gt;=</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin_alo</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span>    <span class="p">&amp;</span>
-<a name="ln-164"></a>                        <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin_ahi</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span>    <span class="p">&amp;</span>           
-<a name="ln-165"></a>                        <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">peri</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-166"></a><span class="k">                        </span><span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">DISCARDED_PERI</span>
-<a name="ln-167"></a>                        <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Particle &quot;</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="s2">&quot; perihelion distance too small at t = &quot;</span><span class="p">,</span> <span class="n">t</span>
-<a name="ln-168"></a>                        <span class="n">tp</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-169"></a>                     <span class="k">end if</span>
-<a name="ln-170"></a><span class="k">                  end if</span>
-<a name="ln-171"></a><span class="k">               end if</span>
-<a name="ln-172"></a><span class="k">            end if</span>
-<a name="ln-173"></a><span class="k">         end do</span>
-<a name="ln-174"></a><span class="k">      end associate</span>
-<a name="ln-175"></a>
-<a name="ln-176"></a><span class="k">      return</span>
-<a name="ln-177"></a><span class="k">   end subroutine </span><span class="n">discard_peri_tp</span>
-<a name="ln-178"></a>
-<a name="ln-179"></a>
-<a name="ln-180"></a>   <span class="k">subroutine </span><span class="n">discard_pl_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-181"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-182"></a>      <span class="c">!!</span>
-<a name="ln-183"></a>      <span class="c">!! Check to see if test particles should be discarded based on their positions relative to the massive bodies</span>
-<a name="ln-184"></a>      <span class="c">!!</span>
-<a name="ln-185"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: discard_pl.f90</span>
-<a name="ln-186"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard_pl.f</span>
-<a name="ln-187"></a>      <span class="k">implicit none</span>
-<a name="ln-188"></a>      <span class="c">! Arguments</span>
-<a name="ln-189"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">tp</span>     <span class="c">!! Swiftest test particle object</span>
-<a name="ln-190"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-191"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
-<a name="ln-192"></a>      <span class="c">! Internals </span>
-<a name="ln-193"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">isp</span>
-<a name="ln-194"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">r2min</span><span class="p">,</span> <span class="n">radius</span>
-<a name="ln-195"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">dx</span><span class="p">,</span> <span class="n">dv</span>
-<a name="ln-196"></a>   
-<a name="ln-197"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">tp</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">t</span> <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">dt</span> <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">dt</span><span class="p">)</span>
-<a name="ln-198"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">ntp</span>
-<a name="ln-199"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-200"></a><span class="k">               do </span><span class="n">j</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-201"></a>                  <span class="n">dx</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span>
-<a name="ln-202"></a>                  <span class="n">dv</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span>
-<a name="ln-203"></a>                  <span class="n">radius</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
-<a name="ln-204"></a>                  <span class="k">call </span><span class="n">discard_pl_close</span><span class="p">(</span><span class="n">dx</span><span class="p">(:),</span> <span class="n">dv</span><span class="p">(:),</span> <span class="n">dt</span><span class="p">,</span> <span class="n">radius</span><span class="o">**</span><span class="mi">2</span><span class="p">,</span> <span class="n">isp</span><span class="p">,</span> <span class="n">r2min</span><span class="p">)</span>
-<a name="ln-205"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">isp</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-206"></a><span class="k">                     </span><span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">DISCARDED_PLR</span>
-<a name="ln-207"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-208"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-209"></a>                     <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Particle &quot;</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="s2">&quot; too close to massive body &quot;</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">j</span><span class="p">),</span> <span class="s2">&quot; at t = &quot;</span><span class="p">,</span> <span class="n">t</span>
-<a name="ln-210"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-211"></a>                     <span class="k">exit</span>
-<a name="ln-212"></a><span class="k">                  end if</span>
-<a name="ln-213"></a><span class="k">               end do</span>
-<a name="ln-214"></a><span class="k">            end if</span>
-<a name="ln-215"></a><span class="k">         end do</span>
-<a name="ln-216"></a><span class="k">      end associate</span>
-<a name="ln-217"></a>
-<a name="ln-218"></a><span class="k">      return</span>
-<a name="ln-219"></a><span class="k">   end subroutine </span><span class="n">discard_pl_tp</span>
-<a name="ln-220"></a>   
-<a name="ln-221"></a>
-<a name="ln-222"></a>   <span class="k">subroutine </span><span class="n">discard_pl_close</span><span class="p">(</span><span class="n">dx</span><span class="p">,</span> <span class="n">dv</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">r2crit</span><span class="p">,</span> <span class="n">iflag</span><span class="p">,</span> <span class="n">r2min</span><span class="p">)</span>
-<a name="ln-223"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-224"></a>      <span class="c">!!</span>
-<a name="ln-225"></a>      <span class="c">!!  Check to see if a test particle and massive body are having, or will have within the next time step, an encounter such</span>
-<a name="ln-226"></a>      <span class="c">!!          that the separation distance r is less than some critical radius rcrit (or r**2 &lt; rcrit**2 = r2crit)</span>
-<a name="ln-227"></a>      <span class="c">!!</span>
-<a name="ln-228"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: discard_pl_close.f90</span>
-<a name="ln-229"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard_pl_close.f</span>
-<a name="ln-230"></a>      <span class="k">implicit none</span>
-<a name="ln-231"></a>      <span class="c">! Arguments</span>
-<a name="ln-232"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dx</span><span class="p">,</span> <span class="n">dv</span>
-<a name="ln-233"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">dt</span><span class="p">,</span> <span class="n">r2crit</span>
-<a name="ln-234"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">iflag</span>
-<a name="ln-235"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>                 <span class="kd">::</span> <span class="n">r2min</span>
-<a name="ln-236"></a>      <span class="c">! Internals</span>
-<a name="ln-237"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">r2</span><span class="p">,</span> <span class="n">v2</span><span class="p">,</span> <span class="n">vdotr</span><span class="p">,</span> <span class="n">tmin</span>
-<a name="ln-238"></a>      
-<a name="ln-239"></a>      <span class="n">r2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">dx</span><span class="p">(:),</span> <span class="n">dx</span><span class="p">(:))</span>
-<a name="ln-240"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">r2</span> <span class="o">&lt;=</span> <span class="n">r2crit</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-241"></a><span class="k">         </span><span class="n">iflag</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-242"></a>      <span class="k">else</span>
-<a name="ln-243"></a><span class="k">         </span><span class="n">vdotr</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">dx</span><span class="p">(:),</span> <span class="n">dv</span><span class="p">(:))</span>
-<a name="ln-244"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">vdotr</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-245"></a><span class="k">            </span><span class="n">iflag</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-246"></a>         <span class="k">else</span>
-<a name="ln-247"></a><span class="k">            </span><span class="n">v2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">dv</span><span class="p">(:),</span> <span class="n">dv</span><span class="p">(:))</span>
-<a name="ln-248"></a>            <span class="n">tmin</span> <span class="o">=</span> <span class="o">-</span><span class="n">vdotr</span> <span class="o">/</span> <span class="n">v2</span>
-<a name="ln-249"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">tmin</span> <span class="o">&lt;</span> <span class="n">dt</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-250"></a><span class="k">               </span><span class="n">r2min</span> <span class="o">=</span> <span class="n">r2</span> <span class="o">-</span> <span class="n">vdotr</span> <span class="o">*</span> <span class="n">vdotr</span> <span class="o">/</span> <span class="n">v2</span>
-<a name="ln-251"></a>            <span class="k">else</span>
-<a name="ln-252"></a><span class="k">               </span><span class="n">r2min</span> <span class="o">=</span> <span class="n">r2</span> <span class="o">+</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">vdotr</span> <span class="o">*</span> <span class="n">dt</span> <span class="o">+</span> <span class="n">v2</span> <span class="o">*</span> <span class="n">dt</span><span class="o">**</span><span class="mi">2</span>
-<a name="ln-253"></a>            <span class="k">end if</span>
-<a name="ln-254"></a><span class="k">            </span><span class="n">r2min</span> <span class="o">=</span> <span class="nb">min</span><span class="p">(</span><span class="n">r2min</span><span class="p">,</span> <span class="n">r2</span><span class="p">)</span>
-<a name="ln-255"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">r2min</span> <span class="o">&lt;=</span> <span class="n">r2crit</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-256"></a><span class="k">               </span><span class="n">iflag</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-257"></a>            <span class="k">else</span>
-<a name="ln-258"></a><span class="k">               </span><span class="n">iflag</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-259"></a>            <span class="k">end if</span>
-<a name="ln-260"></a><span class="k">         end if</span>
-<a name="ln-261"></a><span class="k">      end if</span>
-<a name="ln-262"></a><span class="k">   </span>
-<a name="ln-263"></a><span class="k">      return</span>
-<a name="ln-264"></a><span class="k">   end subroutine </span><span class="n">discard_pl_close</span>
-<a name="ln-265"></a>
-<a name="ln-266"></a><span class="k">end submodule </span><span class="n">s_discard</span>
+<a name="ln-80"></a><span class="k">         if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">rmin</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">rmax</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">&amp;</span>
+<a name="ln-81"></a>             <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">rmaxu</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">qmin</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span> <span class="o">==</span> <span class="s2">&quot;BARY&quot;</span><span class="p">)))</span> <span class="k">then</span>
+<a name="ln-82"></a><span class="k">            call </span><span class="n">pl</span><span class="p">%</span><span class="n">h2b</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span> 
+<a name="ln-83"></a>            <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">h2b</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span> 
+<a name="ln-84"></a>         <span class="k">end if</span>
+<a name="ln-85"></a>
+<a name="ln-86"></a><span class="k">         if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">rmin</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">rmax</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span>  <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">rmaxu</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">))</span> <span class="k">call </span><span class="n">discard_cb_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-87"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">call </span><span class="n">discard_peri_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-88"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lclose</span><span class="p">)</span> <span class="k">call </span><span class="n">discard_pl_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-89"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-90"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">ldiscard</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">tp</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">)</span>
+<a name="ln-91"></a>            <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">spill</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">tp_discards</span><span class="p">,</span> <span class="n">ldiscard</span><span class="p">,</span> <span class="n">ldestructive</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
+<a name="ln-92"></a>         <span class="k">end if</span>
+<a name="ln-93"></a><span class="k">      end associate</span>
+<a name="ln-94"></a>
+<a name="ln-95"></a><span class="k">      return</span>
+<a name="ln-96"></a><span class="k">   end subroutine </span><span class="n">discard_tp</span>
+<a name="ln-97"></a>
+<a name="ln-98"></a>
+<a name="ln-99"></a>   <span class="k">subroutine </span><span class="n">discard_cb_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-100"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-101"></a>      <span class="c">!!</span>
+<a name="ln-102"></a>      <span class="c">!!  Check to see if test particles should be discarded based on their positions relative to the Sun</span>
+<a name="ln-103"></a>      <span class="c">!!        or because they are unbound from the system</span>
+<a name="ln-104"></a>      <span class="c">!!</span>
+<a name="ln-105"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: discard_sun.f90</span>
+<a name="ln-106"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard_sun.f</span>
+<a name="ln-107"></a>      <span class="k">implicit none</span>
+<a name="ln-108"></a>      <span class="c">! Arguments</span>
+<a name="ln-109"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">tp</span>     <span class="c">!! Swiftest test particle object</span>
+<a name="ln-110"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-111"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
+<a name="ln-112"></a>      <span class="c">! Internals</span>
+<a name="ln-113"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>        <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-114"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>            <span class="kd">::</span> <span class="n">energy</span><span class="p">,</span> <span class="n">vb2</span><span class="p">,</span> <span class="n">rb2</span><span class="p">,</span> <span class="n">rh2</span><span class="p">,</span> <span class="n">rmin2</span><span class="p">,</span> <span class="n">rmax2</span><span class="p">,</span> <span class="n">rmaxu2</span>
+<a name="ln-115"></a>
+<a name="ln-116"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">tp</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">cb</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">,</span> <span class="n">t</span> <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">Gmtot</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">Gmtot</span><span class="p">)</span>
+<a name="ln-117"></a>         <span class="n">rmin2</span> <span class="o">=</span> <span class="nb">max</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">rmin</span> <span class="o">*</span> <span class="n">param</span><span class="p">%</span><span class="n">rmin</span><span class="p">,</span> <span class="n">cb</span><span class="p">%</span><span class="n">radius</span> <span class="o">*</span> <span class="n">cb</span><span class="p">%</span><span class="n">radius</span><span class="p">)</span>
+<a name="ln-118"></a>         <span class="n">rmax2</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">rmax</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-119"></a>         <span class="n">rmaxu2</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">rmaxu</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-120"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">ntp</span>
+<a name="ln-121"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-122"></a><span class="k">               </span><span class="n">rh2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-123"></a>               <span class="k">if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">rmax</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">rh2</span> <span class="o">&gt;</span> <span class="n">rmax2</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-124"></a><span class="k">                  </span><span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">DISCARDED_RMAX</span>
+<a name="ln-125"></a>                  <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Particle &quot;</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="s2">&quot; too far from sun at t = &quot;</span><span class="p">,</span> <span class="n">t</span>
+<a name="ln-126"></a>                  <span class="n">tp</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-127"></a>                  <span class="n">tp</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-128"></a>               <span class="k">else if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">rmin</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">rh2</span> <span class="o">&lt;</span> <span class="n">rmin2</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-129"></a><span class="k">                  </span><span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">DISCARDED_RMIN</span>
+<a name="ln-130"></a>                  <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Particle &quot;</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="s2">&quot; too close to sun at t = &quot;</span><span class="p">,</span> <span class="n">t</span>
+<a name="ln-131"></a>                  <span class="n">tp</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-132"></a>                  <span class="n">tp</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-133"></a>               <span class="k">else if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">rmaxu</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-134"></a><span class="k">                  </span><span class="n">rb2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span>  <span class="n">tp</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-135"></a>                  <span class="n">vb2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">tp</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-136"></a>                  <span class="n">energy</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">vb2</span> <span class="o">-</span> <span class="n">Gmtot</span> <span class="o">/</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">rb2</span><span class="p">)</span>
+<a name="ln-137"></a>                  <span class="k">if</span> <span class="p">((</span><span class="n">energy</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">rb2</span> <span class="o">&gt;</span> <span class="n">rmaxu2</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-138"></a><span class="k">                     </span><span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">DISCARDED_RMAXU</span>
+<a name="ln-139"></a>                     <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Particle &quot;</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="s2">&quot; is unbound and too far from barycenter at t = &quot;</span><span class="p">,</span> <span class="n">t</span>
+<a name="ln-140"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-141"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-142"></a>                  <span class="k">end if</span>
+<a name="ln-143"></a><span class="k">               end if</span>
+<a name="ln-144"></a><span class="k">            end if</span>
+<a name="ln-145"></a><span class="k">         end do</span>
+<a name="ln-146"></a><span class="k">      end associate</span>
+<a name="ln-147"></a>
+<a name="ln-148"></a><span class="k">      return</span>
+<a name="ln-149"></a><span class="k">   end subroutine </span><span class="n">discard_cb_tp</span>
+<a name="ln-150"></a>
+<a name="ln-151"></a>
+<a name="ln-152"></a>   <span class="k">subroutine </span><span class="n">discard_peri_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-153"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-154"></a>      <span class="c">!!</span>
+<a name="ln-155"></a>      <span class="c">!! Check to see if a test particle should be discarded because its perihelion distance becomes too small</span>
+<a name="ln-156"></a>      <span class="c">!!</span>
+<a name="ln-157"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: discard_peri.f90</span>
+<a name="ln-158"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard_peri.f</span>
+<a name="ln-159"></a>      <span class="k">implicit none</span>
+<a name="ln-160"></a>      <span class="c">! Arguments</span>
+<a name="ln-161"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">tp</span>   <span class="c">!! Swiftest test particle object</span>
+<a name="ln-162"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-163"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameterss</span>
+<a name="ln-164"></a>      <span class="c">! Internals</span>
+<a name="ln-165"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">save</span>             <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-166"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">ih</span>
+<a name="ln-167"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">r2</span>
+<a name="ln-168"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">dx</span>
+<a name="ln-169"></a>   
+<a name="ln-170"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">cb</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">,</span> <span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">tp</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">t</span> <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">)</span>
+<a name="ln-171"></a>         <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">get_peri</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-172"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">ntp</span>
+<a name="ln-173"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-174"></a><span class="k">               if</span> <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-175"></a><span class="k">                  </span><span class="n">ih</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-176"></a>                  <span class="k">do </span><span class="n">j</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
+<a name="ln-177"></a>                     <span class="n">dx</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span>
+<a name="ln-178"></a>                     <span class="n">r2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">dx</span><span class="p">(:),</span> <span class="n">dx</span><span class="p">(:))</span>
+<a name="ln-179"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">r2</span> <span class="o">&lt;=</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">rhill</span><span class="p">(</span><span class="n">j</span><span class="p">))</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="n">ih</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-180"></a>                  <span class="k">end do</span>
+<a name="ln-181"></a><span class="k">                  if</span> <span class="p">(</span><span class="n">ih</span> <span class="o">==</span> <span class="mi">1</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-182"></a><span class="k">                     if</span> <span class="p">((</span><span class="n">tp</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">&gt;=</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin_alo</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span>    <span class="p">&amp;</span>
+<a name="ln-183"></a>                        <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin_ahi</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span>    <span class="p">&amp;</span>           
+<a name="ln-184"></a>                        <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">peri</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">&lt;=</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-185"></a><span class="k">                        </span><span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">DISCARDED_PERI</span>
+<a name="ln-186"></a>                        <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Particle &quot;</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="s2">&quot; perihelion distance too small at t = &quot;</span><span class="p">,</span> <span class="n">t</span>
+<a name="ln-187"></a>                        <span class="n">tp</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-188"></a>                     <span class="k">end if</span>
+<a name="ln-189"></a><span class="k">                  end if</span>
+<a name="ln-190"></a><span class="k">               end if</span>
+<a name="ln-191"></a><span class="k">            end if</span>
+<a name="ln-192"></a><span class="k">         end do</span>
+<a name="ln-193"></a><span class="k">      end associate</span>
+<a name="ln-194"></a>
+<a name="ln-195"></a><span class="k">      return</span>
+<a name="ln-196"></a><span class="k">   end subroutine </span><span class="n">discard_peri_tp</span>
+<a name="ln-197"></a>
+<a name="ln-198"></a>
+<a name="ln-199"></a>   <span class="k">subroutine </span><span class="n">discard_pl_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-200"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-201"></a>      <span class="c">!!</span>
+<a name="ln-202"></a>      <span class="c">!! Check to see if test particles should be discarded based on their positions relative to the massive bodies</span>
+<a name="ln-203"></a>      <span class="c">!!</span>
+<a name="ln-204"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: discard_pl.f90</span>
+<a name="ln-205"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard_pl.f</span>
+<a name="ln-206"></a>      <span class="k">implicit none</span>
+<a name="ln-207"></a>      <span class="c">! Arguments</span>
+<a name="ln-208"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">tp</span>     <span class="c">!! Swiftest test particle object</span>
+<a name="ln-209"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-210"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
+<a name="ln-211"></a>      <span class="c">! Internals </span>
+<a name="ln-212"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">isp</span>
+<a name="ln-213"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">r2min</span><span class="p">,</span> <span class="n">radius</span>
+<a name="ln-214"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">dx</span><span class="p">,</span> <span class="n">dv</span>
+<a name="ln-215"></a>   
+<a name="ln-216"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">tp</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">t</span> <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">dt</span> <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">dt</span><span class="p">)</span>
+<a name="ln-217"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">ntp</span>
+<a name="ln-218"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-219"></a><span class="k">               do </span><span class="n">j</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
+<a name="ln-220"></a>                  <span class="n">dx</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span>
+<a name="ln-221"></a>                  <span class="n">dv</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span> <span class="n">j</span><span class="p">)</span>
+<a name="ln-222"></a>                  <span class="n">radius</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">j</span><span class="p">)</span>
+<a name="ln-223"></a>                  <span class="k">call </span><span class="n">discard_pl_close</span><span class="p">(</span><span class="n">dx</span><span class="p">(:),</span> <span class="n">dv</span><span class="p">(:),</span> <span class="n">dt</span><span class="p">,</span> <span class="n">radius</span><span class="o">**</span><span class="mi">2</span><span class="p">,</span> <span class="n">isp</span><span class="p">,</span> <span class="n">r2min</span><span class="p">)</span>
+<a name="ln-224"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">isp</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-225"></a><span class="k">                     </span><span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">DISCARDED_PLR</span>
+<a name="ln-226"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-227"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-228"></a>                     <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Particle &quot;</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="s2">&quot; too close to massive body &quot;</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">j</span><span class="p">),</span> <span class="s2">&quot; at t = &quot;</span><span class="p">,</span> <span class="n">t</span>
+<a name="ln-229"></a>                     <span class="n">tp</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-230"></a>                     <span class="k">exit</span>
+<a name="ln-231"></a><span class="k">                  end if</span>
+<a name="ln-232"></a><span class="k">               end do</span>
+<a name="ln-233"></a><span class="k">            end if</span>
+<a name="ln-234"></a><span class="k">         end do</span>
+<a name="ln-235"></a><span class="k">      end associate</span>
+<a name="ln-236"></a>
+<a name="ln-237"></a><span class="k">      return</span>
+<a name="ln-238"></a><span class="k">   end subroutine </span><span class="n">discard_pl_tp</span>
+<a name="ln-239"></a>   
+<a name="ln-240"></a>
+<a name="ln-241"></a>   <span class="k">subroutine </span><span class="n">discard_pl_close</span><span class="p">(</span><span class="n">dx</span><span class="p">,</span> <span class="n">dv</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">r2crit</span><span class="p">,</span> <span class="n">iflag</span><span class="p">,</span> <span class="n">r2min</span><span class="p">)</span>
+<a name="ln-242"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-243"></a>      <span class="c">!!</span>
+<a name="ln-244"></a>      <span class="c">!!  Check to see if a test particle and massive body are having, or will have within the next time step, an encounter such</span>
+<a name="ln-245"></a>      <span class="c">!!          that the separation distance r is less than some critical radius rcrit (or r**2 &lt; rcrit**2 = r2crit)</span>
+<a name="ln-246"></a>      <span class="c">!!</span>
+<a name="ln-247"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: discard_pl_close.f90</span>
+<a name="ln-248"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine discard_pl_close.f</span>
+<a name="ln-249"></a>      <span class="k">implicit none</span>
+<a name="ln-250"></a>      <span class="c">! Arguments</span>
+<a name="ln-251"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dx</span><span class="p">,</span> <span class="n">dv</span>
+<a name="ln-252"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">dt</span><span class="p">,</span> <span class="n">r2crit</span>
+<a name="ln-253"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">iflag</span>
+<a name="ln-254"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>                 <span class="kd">::</span> <span class="n">r2min</span>
+<a name="ln-255"></a>      <span class="c">! Internals</span>
+<a name="ln-256"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">r2</span><span class="p">,</span> <span class="n">v2</span><span class="p">,</span> <span class="n">vdotr</span><span class="p">,</span> <span class="n">tmin</span>
+<a name="ln-257"></a>      
+<a name="ln-258"></a>      <span class="n">r2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">dx</span><span class="p">(:),</span> <span class="n">dx</span><span class="p">(:))</span>
+<a name="ln-259"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">r2</span> <span class="o">&lt;=</span> <span class="n">r2crit</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-260"></a><span class="k">         </span><span class="n">iflag</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-261"></a>      <span class="k">else</span>
+<a name="ln-262"></a><span class="k">         </span><span class="n">vdotr</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">dx</span><span class="p">(:),</span> <span class="n">dv</span><span class="p">(:))</span>
+<a name="ln-263"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">vdotr</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-264"></a><span class="k">            </span><span class="n">iflag</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-265"></a>         <span class="k">else</span>
+<a name="ln-266"></a><span class="k">            </span><span class="n">v2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">dv</span><span class="p">(:),</span> <span class="n">dv</span><span class="p">(:))</span>
+<a name="ln-267"></a>            <span class="n">tmin</span> <span class="o">=</span> <span class="o">-</span><span class="n">vdotr</span> <span class="o">/</span> <span class="n">v2</span>
+<a name="ln-268"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">tmin</span> <span class="o">&lt;</span> <span class="n">dt</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-269"></a><span class="k">               </span><span class="n">r2min</span> <span class="o">=</span> <span class="n">r2</span> <span class="o">-</span> <span class="n">vdotr</span> <span class="o">*</span> <span class="n">vdotr</span> <span class="o">/</span> <span class="n">v2</span>
+<a name="ln-270"></a>            <span class="k">else</span>
+<a name="ln-271"></a><span class="k">               </span><span class="n">r2min</span> <span class="o">=</span> <span class="n">r2</span> <span class="o">+</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">vdotr</span> <span class="o">*</span> <span class="n">dt</span> <span class="o">+</span> <span class="n">v2</span> <span class="o">*</span> <span class="n">dt</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-272"></a>            <span class="k">end if</span>
+<a name="ln-273"></a><span class="k">            </span><span class="n">r2min</span> <span class="o">=</span> <span class="nb">min</span><span class="p">(</span><span class="n">r2min</span><span class="p">,</span> <span class="n">r2</span><span class="p">)</span>
+<a name="ln-274"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">r2min</span> <span class="o">&lt;=</span> <span class="n">r2crit</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-275"></a><span class="k">               </span><span class="n">iflag</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-276"></a>            <span class="k">else</span>
+<a name="ln-277"></a><span class="k">               </span><span class="n">iflag</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-278"></a>            <span class="k">end if</span>
+<a name="ln-279"></a><span class="k">         end if</span>
+<a name="ln-280"></a><span class="k">      end if</span>
+<a name="ln-281"></a><span class="k">   </span>
+<a name="ln-282"></a><span class="k">      return</span>
+<a name="ln-283"></a><span class="k">   end subroutine </span><span class="n">discard_pl_close</span>
+<a name="ln-284"></a>
+<a name="ln-285"></a><span class="k">end submodule </span><span class="n">s_discard</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/drift.f90.html b/docs/sourcefile/drift.f90.html
index b8169f2cf..70dd77cb7 100644
--- a/docs/sourcefile/drift.f90.html
+++ b/docs/sourcefile/drift.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~drift.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefiledriftf90EfferentGraph" width="641pt" height="210pt"
- viewBox="0.00 0.00 641.00 209.52" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~drift.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 282)">
+<svg id="sourcefiledriftf90EfferentGraph" width="641pt" height="224pt"
+ viewBox="0.00 0.00 641.00 223.62" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~drift.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 301.25)">
 <title>sourcefile~~drift.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 871,-282 871,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 871,-301.25 871,4 -4,4"/>
 <!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~drift.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~drift.f90</title>
-<polygon fill="none" stroke="black" points="867,-24 813,-24 813,0 867,0 867,-24"/>
-<text text-anchor="middle" x="840" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">drift.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~drift.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.82,-22.86C803.68,-26.66 793.22,-30.99 783.3,-35.11"/>
-<polygon fill="#000000" stroke="#000000" points="781.91,-31.9 774.02,-38.96 784.59,-38.36 781.91,-31.9"/>
+<polygon fill="none" stroke="black" points="867,-260 813,-260 813,-236 867,-236 867,-260"/>
+<text text-anchor="middle" x="840" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">drift.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~drift.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~drift.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~drift.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-11.34C738.17,-10.21 518.02,-12.21 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-256.09C772.77,-267.78 693.44,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~drift.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~drift.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.82,-242.43C804.76,-240.72 795.69,-238.79 786.86,-236.91"/>
+<polygon fill="#000000" stroke="#000000" points="787.58,-233.48 777.07,-234.82 786.12,-240.33 787.58,-233.48"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~drift.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~drift.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~drift.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~drift.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~drift.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~drift.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~drift.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~drift.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~drift.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~drift.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~drift.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~drift.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~drift.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~drift.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~drift.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~drift.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~drift.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~drift.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~drift.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~drift.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~drift.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~drift.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~drift.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~drift.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~drift.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~drift.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~drift.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~drift.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~drift.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~drift.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~drift.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/eucl.f90.html b/docs/sourcefile/eucl.f90.html
index 6e16cb4dc..88df7c43d 100644
--- a/docs/sourcefile/eucl.f90.html
+++ b/docs/sourcefile/eucl.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~eucl.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileeuclf90EfferentGraph" width="641pt" height="210pt"
- viewBox="0.00 0.00 641.00 209.52" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~eucl.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 282)">
+<svg id="sourcefileeuclf90EfferentGraph" width="641pt" height="224pt"
+ viewBox="0.00 0.00 641.00 223.62" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~eucl.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 301.25)">
 <title>sourcefile~~eucl.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 871,-282 871,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 871,-301.25 871,4 -4,4"/>
 <!-- sourcefile~eucl.f90 -->
 <g id="sourcefile~~eucl.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~eucl.f90</title>
-<polygon fill="none" stroke="black" points="867,-24 813,-24 813,0 867,0 867,-24"/>
-<text text-anchor="middle" x="840" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">eucl.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.82,-22.86C803.68,-26.66 793.22,-30.99 783.3,-35.11"/>
-<polygon fill="#000000" stroke="#000000" points="781.91,-31.9 774.02,-38.96 784.59,-38.36 781.91,-31.9"/>
+<polygon fill="none" stroke="black" points="867,-260 813,-260 813,-236 867,-236 867,-260"/>
+<text text-anchor="middle" x="840" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">eucl.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~eucl.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~eucl.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-11.34C738.17,-10.21 518.02,-12.21 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-256.09C772.77,-267.78 693.44,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~eucl.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~eucl.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.82,-242.43C804.76,-240.72 795.69,-238.79 786.86,-236.91"/>
+<polygon fill="#000000" stroke="#000000" points="787.58,-233.48 777.07,-234.82 786.12,-240.33 787.58,-233.48"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~eucl.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~eucl.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~eucl.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~eucl.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~eucl.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~eucl.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~eucl.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~eucl.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~eucl.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~eucl.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~eucl.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~eucl.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~eucl.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~eucl.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~eucl.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~eucl.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~eucl.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~eucl.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~eucl.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~eucl.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~eucl.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~eucl.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~eucl.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~eucl.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~eucl.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~eucl.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~eucl.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~eucl.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~eucl.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~eucl.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~eucl.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/fragmentation.f90.html b/docs/sourcefile/fragmentation.f90.html
index d27cf79c5..8581cdc7a 100644
--- a/docs/sourcefile/fragmentation.f90.html
+++ b/docs/sourcefile/fragmentation.f90.html
@@ -134,7 +134,7 @@ <h1>fragmentation.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 5.8% of total for source files.">766 statements</a>
+    title=" 5.8% of total for source files.">784 statements</a>
      </li> 
      
      
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~fragmentation.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilefragmentationf90EfferentGraph" width="641pt" height="200pt"
- viewBox="0.00 0.00 641.00 199.70" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 282)">
+<svg id="sourcefilefragmentationf90EfferentGraph" width="641pt" height="213pt"
+ viewBox="0.00 0.00 641.00 213.14" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 301.25)">
 <title>sourcefile~~fragmentation.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 914,-282 914,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 914,-301.25 914,4 -4,4"/>
 <!-- sourcefile~fragmentation.f90 -->
 <g id="sourcefile~~fragmentation.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~fragmentation.f90</title>
-<polygon fill="none" stroke="black" points="910,-24 813,-24 813,0 910,0 910,-24"/>
-<text text-anchor="middle" x="861.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">fragmentation.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M824.9,-24.02C812.87,-28.08 799.33,-32.65 786.86,-36.86"/>
-<polygon fill="#000000" stroke="#000000" points="785.5,-33.63 777.14,-40.15 787.74,-40.26 785.5,-33.63"/>
+<polygon fill="none" stroke="black" points="910,-260 813,-260 813,-236 910,-236 910,-260"/>
+<text text-anchor="middle" x="861.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">fragmentation.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.76,-10.76C720.39,-9.74 511.76,-14.25 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.82,-78.02 260.91,-96.3 231.54,-109.67"/>
-<polygon fill="#000000" stroke="#000000" points="229.78,-106.63 222.16,-114 232.71,-112.99 229.78,-106.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M816.51,-260C769.39,-271.78 692.24,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.85,-239.75C804.28,-238.27 795.41,-236.73 787.01,-235.27"/>
+<polygon fill="#000000" stroke="#000000" points="787.51,-231.81 777.06,-233.55 786.32,-238.71 787.51,-231.81"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~fragmentation.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~fragmentation.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
@@ -568,22 +570,22 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-10"></a>      <span class="k">use</span><span class="p">,</span> <span class="k">intrinsic</span> <span class="kd">::</span> <span class="n">ieee_exceptions</span>
 <a name="ln-11"></a>      <span class="k">implicit none</span>
 <a name="ln-12"></a>      <span class="c">! Arguments</span>
-<a name="ln-13"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>
-<a name="ln-14"></a><span class="nb">      </span><span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">param</span> 
-<a name="ln-15"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">family</span>
-<a name="ln-16"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span>
-<a name="ln-17"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>
-<a name="ln-18"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">nfrag</span>
-<a name="ln-19"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span>
-<a name="ln-20"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Ip_frag</span>
-<a name="ln-21"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span>
-<a name="ln-22"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>                    <span class="kd">::</span> <span class="n">lfailure</span> <span class="c">! Answers the question: Should this have been a merger instead?</span>
-<a name="ln-23"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span>                 <span class="kd">::</span> <span class="n">Qloss</span>
+<a name="ln-13"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span>                              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-14"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>                                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-15"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                 <span class="k">dimension</span><span class="p">(:),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">family</span> <span class="c">!! Index of bodies involved in the collision</span>
+<a name="ln-16"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">dimension</span><span class="p">(:,:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span> <span class="c">!! Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</span>
+<a name="ln-17"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">dimension</span><span class="p">(:),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Two-body equivalent mass and radii for the bodies in the collision</span>
+<a name="ln-18"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nfrag</span>            <span class="c">!! Number of fragments to generate</span>
+<a name="ln-19"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span> <span class="c">!! Distribution of fragment mass and radii</span>
+<a name="ln-20"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Ip_frag</span>          <span class="c">!! Fragment rotational inertia vectors</span>
+<a name="ln-21"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span> <span class="c">!! Fragment barycentric position, barycentric velocity, and rotation vectors</span>
+<a name="ln-22"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                                                  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Qloss</span> <span class="c">!! Energy lost during the collision</span>
+<a name="ln-23"></a>      <span class="kt">logical</span><span class="p">,</span>                                                   <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">lfailure</span> <span class="c">!! Answers the question: Should this have been a merger instead?</span>
 <a name="ln-24"></a>      <span class="c">! Internals</span>
-<a name="ln-25"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                <span class="kd">::</span> <span class="n">mscale</span><span class="p">,</span> <span class="n">rscale</span><span class="p">,</span> <span class="n">vscale</span><span class="p">,</span> <span class="n">tscale</span><span class="p">,</span> <span class="n">Lscale</span><span class="p">,</span> <span class="n">Escale</span> <span class="c">! Scale factors that reduce quantities to O(~1) in the collisional system</span>
+<a name="ln-25"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                <span class="kd">::</span> <span class="n">mscale</span><span class="p">,</span> <span class="n">dscale</span><span class="p">,</span> <span class="n">vscale</span><span class="p">,</span> <span class="n">tscale</span><span class="p">,</span> <span class="n">Lscale</span><span class="p">,</span> <span class="n">Escale</span> <span class="c">! Scale factors that reduce quantities to O(~1) in the collisional system</span>
 <a name="ln-26"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                <span class="kd">::</span> <span class="n">mtot</span> 
 <a name="ln-27"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>               <span class="kd">::</span> <span class="n">xcom</span><span class="p">,</span> <span class="n">vcom</span>
-<a name="ln-28"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                            <span class="kd">::</span> <span class="n">ii</span>
+<a name="ln-28"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                            <span class="kd">::</span> <span class="n">ii</span><span class="p">,</span> <span class="n">npl_new</span>
 <a name="ln-29"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>      <span class="kd">::</span> <span class="n">lexclude</span>
 <a name="ln-30"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="mi">2</span><span class="p">)</span>            <span class="kd">::</span> <span class="n">rot</span><span class="p">,</span> <span class="n">L_orb</span> 
 <a name="ln-31"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span>   <span class="kd">::</span> <span class="n">x_frag</span><span class="p">,</span> <span class="n">v_frag</span><span class="p">,</span> <span class="n">v_r_unit</span><span class="p">,</span> <span class="n">v_t_unit</span><span class="p">,</span> <span class="n">v_h_unit</span>
@@ -600,1076 +602,1140 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-42"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span>                 <span class="kd">::</span> <span class="n">NFRAG_MIN</span> <span class="o">=</span> <span class="mi">7</span> <span class="c">!! The minimum allowable number of fragments (set to 6 because that&#39;s how many unknowns are needed in the tangential velocity calculation)</span>
 <a name="ln-43"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                <span class="kd">::</span> <span class="n">r_max_start</span><span class="p">,</span> <span class="n">r_max_start_old</span><span class="p">,</span> <span class="n">r_max</span><span class="p">,</span> <span class="n">f_spin</span> 
 <a name="ln-44"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>                     <span class="kd">::</span> <span class="n">Ltol</span> <span class="o">=</span> <span class="mi">10</span> <span class="o">*</span> <span class="nb">epsilon</span><span class="p">(</span><span class="mf">1.0_DP</span><span class="p">)</span>
-<a name="ln-45"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>                     <span class="kd">::</span> <span class="n">Etol</span> <span class="o">=</span> <span class="mf">1e-10_DP</span>
+<a name="ln-45"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>                     <span class="kd">::</span> <span class="n">Etol</span> <span class="o">=</span> <span class="mf">1e-9_DP</span>
 <a name="ln-46"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span>                 <span class="kd">::</span> <span class="n">MAXTRY</span> <span class="o">=</span> <span class="mi">3000</span>
 <a name="ln-47"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span>                 <span class="kd">::</span> <span class="n">TANTRY</span> <span class="o">=</span> <span class="mi">3</span>
 <a name="ln-48"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">IEEE_ALL</span><span class="p">))</span>      <span class="kd">::</span> <span class="n">fpe_halting_modes</span><span class="p">,</span> <span class="n">fpe_quiet_modes</span>
-<a name="ln-49"></a>
-<a name="ln-50"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nfrag</span> <span class="o">&lt;</span> <span class="n">NFRAG_MIN</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-51"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;symba_frag_pos needs at least &quot;</span><span class="p">,</span><span class="n">NFRAG_MIN</span><span class="p">,</span><span class="s2">&quot; fragments, but only &quot;</span><span class="p">,</span><span class="n">nfrag</span><span class="p">,</span><span class="s2">&quot; were given.&quot;</span>
-<a name="ln-52"></a>         <span class="n">lfailure</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-53"></a>         <span class="k">return</span>
-<a name="ln-54"></a><span class="k">      end if</span>
-<a name="ln-55"></a>
-<a name="ln-56"></a><span class="k">      call </span><span class="n">ieee_get_halting_mode</span><span class="p">(</span><span class="n">IEEE_ALL</span><span class="p">,</span><span class="n">fpe_halting_modes</span><span class="p">)</span>  <span class="c">! Save the current halting modes so we can turn them off temporarily</span>
-<a name="ln-57"></a>      <span class="n">fpe_quiet_modes</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-58"></a>      <span class="k">call </span><span class="n">ieee_set_halting_mode</span><span class="p">(</span><span class="n">IEEE_ALL</span><span class="p">,</span><span class="n">fpe_quiet_modes</span><span class="p">)</span>
-<a name="ln-59"></a>
-<a name="ln-60"></a>      <span class="n">f_spin</span> <span class="o">=</span> <span class="mf">0.05_DP</span>
-<a name="ln-61"></a>      <span class="n">mscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-62"></a>      <span class="n">rscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-63"></a>      <span class="n">vscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-64"></a>      <span class="n">tscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-65"></a>      <span class="n">Lscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-66"></a>      <span class="n">Escale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-67"></a>
-<a name="ln-68"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">npl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">status</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">)</span> 
-<a name="ln-69"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">lexclude</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-70"></a>         <span class="k">where</span> <span class="p">(</span><span class="n">status</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">==</span> <span class="n">INACTIVE</span><span class="p">)</span> <span class="c">! Safety check in case one of the included bodies has been previously deactivated </span>
-<a name="ln-71"></a>            <span class="n">lexclude</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>  
-<a name="ln-72"></a>         <span class="n">elsewhere</span>
-<a name="ln-73"></a>            <span class="n">lexclude</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> 
-<a name="ln-74"></a>         <span class="k">end where</span>
-<a name="ln-75"></a><span class="k">      end associate</span>
-<a name="ln-76"></a>
-<a name="ln-77"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">x_frag</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">xb_frag</span><span class="p">)</span>
-<a name="ln-78"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">v_frag</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">vb_frag</span><span class="p">)</span>
-<a name="ln-79"></a>
-<a name="ln-80"></a>      <span class="k">call </span><span class="n">set_scale_factors</span><span class="p">()</span>
-<a name="ln-81"></a>      <span class="k">call </span><span class="n">define_coordinate_system</span><span class="p">()</span>
-<a name="ln-82"></a>      <span class="k">call </span><span class="n">calculate_system_energy</span><span class="p">(</span><span class="n">linclude_fragments</span><span class="o">=</span><span class="p">.</span><span class="n">false</span><span class="p">.)</span>
-<a name="ln-83"></a>   
-<a name="ln-84"></a>      <span class="n">r_max_start</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">x</span><span class="p">(:,</span><span class="mi">2</span><span class="p">)</span> <span class="o">-</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">1</span><span class="p">))</span>
-<a name="ln-85"></a>      <span class="n">try</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-86"></a>      <span class="n">lfailure</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-87"></a>      <span class="n">ke_avg_deficit</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-88"></a>      <span class="k">do while</span> <span class="p">(</span><span class="n">try</span> <span class="o">&lt;</span> <span class="n">MAXTRY</span><span class="p">)</span>
-<a name="ln-89"></a>         <span class="n">lfailure</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-90"></a>         <span class="n">ke_avg_deficit_old</span> <span class="o">=</span> <span class="n">ke_avg_deficit</span>
-<a name="ln-91"></a>         <span class="n">ke_avg_deficit</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-92"></a>         <span class="n">subtry</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-93"></a>         <span class="k">do </span>
-<a name="ln-94"></a><span class="k">            call </span><span class="n">set_fragment_position_vectors</span><span class="p">()</span>
-<a name="ln-95"></a>            <span class="k">call </span><span class="n">set_fragment_tan_vel</span><span class="p">(</span><span class="n">lfailure</span><span class="p">)</span>
-<a name="ln-96"></a>            <span class="n">ke_avg_deficit</span> <span class="o">=</span> <span class="n">ke_avg_deficit</span> <span class="o">-</span> <span class="n">ke_radial</span>
-<a name="ln-97"></a>            <span class="n">subtry</span> <span class="o">=</span> <span class="n">subtry</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-98"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lfailure</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">subtry</span> <span class="o">==</span> <span class="n">TANTRY</span><span class="p">)</span> <span class="k">exit</span>
-<a name="ln-99"></a>            <span class="c">!write(*,*) &#39;Trying new arrangement&#39;</span>
-<a name="ln-100"></a>         <span class="k">end do</span>
-<a name="ln-101"></a><span class="k">         </span><span class="n">ke_avg_deficit</span> <span class="o">=</span> <span class="n">ke_avg_deficit</span> <span class="o">/</span> <span class="n">subtry</span>
-<a name="ln-102"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lfailure</span><span class="p">)</span> <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Failed to find tangential velocities&#39;</span>
-<a name="ln-103"></a>
-<a name="ln-104"></a>         <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lfailure</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-105"></a><span class="k">            call </span><span class="n">set_fragment_radial_velocities</span><span class="p">(</span><span class="n">lfailure</span><span class="p">)</span>
-<a name="ln-106"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lfailure</span><span class="p">)</span> <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Failed to find radial velocities&#39;</span>
-<a name="ln-107"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lfailure</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-108"></a><span class="k">               call </span><span class="n">calculate_system_energy</span><span class="p">(</span><span class="n">linclude_fragments</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
-<a name="ln-109"></a>               <span class="c">!write(*,*) &#39;Qloss : &#39;,Qloss</span>
-<a name="ln-110"></a>               <span class="c">!write(*,*) &#39;-dEtot: &#39;,-dEtot</span>
-<a name="ln-111"></a>               <span class="c">!write(*,*) &#39;delta : &#39;,abs((dEtot + Qloss)) </span>
-<a name="ln-112"></a>               <span class="k">if</span> <span class="p">((</span><span class="nb">abs</span><span class="p">(</span><span class="n">dEtot</span> <span class="o">+</span> <span class="n">Qloss</span><span class="p">)</span> <span class="o">&gt;</span> <span class="n">Etol</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">dEtot</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-113"></a><span class="k">                  write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Failed due to high energy error: &#39;</span><span class="p">,</span><span class="n">dEtot</span><span class="p">,</span> <span class="nb">abs</span><span class="p">(</span><span class="n">dEtot</span> <span class="o">+</span> <span class="n">Qloss</span><span class="p">)</span> <span class="o">/</span> <span class="n">Etol</span>
-<a name="ln-114"></a>                  <span class="n">lfailure</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-115"></a>               <span class="k">else if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">dLmag</span><span class="p">)</span> <span class="o">/</span> <span class="n">Lmag_before</span> <span class="o">&gt;</span> <span class="n">Ltol</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-116"></a><span class="k">                  write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Failed due to high angular momentum error: &#39;</span><span class="p">,</span> <span class="n">dLmag</span> <span class="o">/</span> <span class="n">Lmag_before</span>
-<a name="ln-117"></a>                  <span class="n">lfailure</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-118"></a>               <span class="k">end if</span>
-<a name="ln-119"></a><span class="k">            end if</span>
-<a name="ln-120"></a><span class="k">         end if</span>
-<a name="ln-121"></a><span class="k">   </span>
-<a name="ln-122"></a><span class="k">         if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lfailure</span><span class="p">)</span> <span class="k">exit</span>
-<a name="ln-123"></a><span class="k">         call </span><span class="n">restructure_failed_fragments</span><span class="p">()</span>
-<a name="ln-124"></a>         <span class="n">try</span> <span class="o">=</span> <span class="n">try</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-125"></a>      <span class="k">end do</span>
-<a name="ln-126"></a><span class="k">      write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span>        <span class="s2">&quot;(&#39; -------------------------------------------------------------------------------------&#39;)&quot;</span><span class="p">)</span>
-<a name="ln-127"></a>      <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span>        <span class="s2">&quot;(&#39;  Final diagnostic&#39;)&quot;</span><span class="p">)</span>
-<a name="ln-128"></a>      <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span>        <span class="s2">&quot;(&#39; -------------------------------------------------------------------------------------&#39;)&quot;</span><span class="p">)</span>
-<a name="ln-129"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">lfailure</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-130"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;symba_frag_pos failed after: &quot;</span><span class="p">,</span><span class="n">try</span><span class="p">,</span><span class="s2">&quot; tries&quot;</span>
-<a name="ln-131"></a>         <span class="k">do </span><span class="n">ii</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-132"></a>            <span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">ii</span><span class="p">)</span> <span class="o">=</span> <span class="n">vcom</span><span class="p">(:)</span>
-<a name="ln-133"></a>         <span class="k">end do</span>
-<a name="ln-134"></a><span class="k">      else</span>
-<a name="ln-135"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;symba_frag_pos succeeded after: &quot;</span><span class="p">,</span><span class="n">try</span><span class="p">,</span><span class="s2">&quot; tries&quot;</span>
-<a name="ln-136"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span>        <span class="s2">&quot;(&#39; dL_tot should be very small&#39; )&quot;</span><span class="p">)</span>
-<a name="ln-137"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="n">fmtlabel</span><span class="p">)</span> <span class="s1">&#39; dL_tot      |&#39;</span><span class="p">,</span> <span class="n">dLmag</span> <span class="o">/</span> <span class="n">Lmag_before</span>
-<a name="ln-138"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span>        <span class="s2">&quot;(&#39; dE_tot should be negative and equal to Qloss&#39; )&quot;</span><span class="p">)</span>
-<a name="ln-139"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="n">fmtlabel</span><span class="p">)</span> <span class="s1">&#39; dE_tot      |&#39;</span><span class="p">,</span> <span class="n">dEtot</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">Etot_before</span><span class="p">)</span>
-<a name="ln-140"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="n">fmtlabel</span><span class="p">)</span> <span class="s1">&#39; Qloss       |&#39;</span><span class="p">,</span> <span class="o">-</span><span class="n">Qloss</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">Etot_before</span><span class="p">)</span>
-<a name="ln-141"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="n">fmtlabel</span><span class="p">)</span> <span class="s1">&#39; dE - Qloss  |&#39;</span><span class="p">,</span> <span class="p">(</span><span class="n">Etot_after</span> <span class="o">-</span> <span class="n">Etot_before</span> <span class="o">+</span> <span class="n">Qloss</span><span class="p">)</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">Etot_before</span><span class="p">)</span>
-<a name="ln-142"></a>      <span class="k">end if</span>
-<a name="ln-143"></a><span class="k">      write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span>        <span class="s2">&quot;(&#39; -------------------------------------------------------------------------------------&#39;)&quot;</span><span class="p">)</span>
-<a name="ln-144"></a>
-<a name="ln-145"></a>      <span class="k">call </span><span class="n">restore_scale_factors</span><span class="p">()</span>
-<a name="ln-146"></a>      <span class="k">call </span><span class="n">ieee_set_halting_mode</span><span class="p">(</span><span class="n">IEEE_ALL</span><span class="p">,</span><span class="n">fpe_halting_modes</span><span class="p">)</span>  <span class="c">! Save the current halting modes so we can turn them off temporarily</span>
-<a name="ln-147"></a>
-<a name="ln-148"></a>      <span class="k">return </span>
-<a name="ln-149"></a>
-<a name="ln-150"></a><span class="k">      contains</span>
-<a name="ln-151"></a>
-<a name="ln-152"></a>      <span class="c">! Because of the complexity of this procedure, we have chosen to break it up into a series of nested subroutines.</span>
-<a name="ln-153"></a>
-<a name="ln-154"></a>      <span class="k">subroutine </span><span class="n">set_scale_factors</span><span class="p">()</span>
-<a name="ln-155"></a>         <span class="c">!! author: David A. Minton</span>
-<a name="ln-156"></a>         <span class="c">!!</span>
-<a name="ln-157"></a>         <span class="c">!! Scales dimenional quantities to ~O(1) with respect to the collisional system. This scaling makes it easier for the non-linear minimization </span>
-<a name="ln-158"></a>         <span class="c">!! to converge on a solution</span>
-<a name="ln-159"></a>         <span class="k">implicit none</span>
-<a name="ln-160"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-161"></a>
-<a name="ln-162"></a>         <span class="c">! Find the center of mass of the collisional system	</span>
-<a name="ln-163"></a>         <span class="n">mtot</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">mass</span><span class="p">(:))</span> 
-<a name="ln-164"></a>         <span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
-<a name="ln-165"></a>         <span class="n">vcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
-<a name="ln-166"></a>
-<a name="ln-167"></a>         <span class="c">! Set scale factors</span>
-<a name="ln-168"></a>         <span class="c">!! Because of the implied G, mass is actually G*mass with units of distance**3 / time**2</span>
-<a name="ln-169"></a>         <span class="n">Escale</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">v</span><span class="p">(:,</span><span class="mi">1</span><span class="p">),</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">1</span><span class="p">))</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">v</span><span class="p">(:,</span><span class="mi">2</span><span class="p">),</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">2</span><span class="p">)))</span>
-<a name="ln-170"></a>         <span class="n">rscale</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">radius</span><span class="p">(:))</span>
-<a name="ln-171"></a>         <span class="n">mscale</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">Escale</span> <span class="o">*</span> <span class="n">rscale</span><span class="p">)</span> 
-<a name="ln-172"></a>         <span class="n">vscale</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">Escale</span> <span class="o">/</span> <span class="n">mscale</span><span class="p">)</span> 
-<a name="ln-173"></a>         <span class="n">tscale</span> <span class="o">=</span> <span class="n">rscale</span> <span class="o">/</span> <span class="n">vscale</span> 
-<a name="ln-174"></a>         <span class="n">Lscale</span> <span class="o">=</span> <span class="n">mscale</span> <span class="o">*</span> <span class="n">rscale</span> <span class="o">*</span> <span class="n">vscale</span>
-<a name="ln-175"></a>
-<a name="ln-176"></a>         <span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xcom</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">rscale</span>
-<a name="ln-177"></a>         <span class="n">vcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">vcom</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">vscale</span>
-<a name="ln-178"></a>
-<a name="ln-179"></a>         <span class="n">mtot</span> <span class="o">=</span> <span class="n">mtot</span> <span class="o">/</span> <span class="n">mscale</span>
-<a name="ln-180"></a>         <span class="n">mass</span> <span class="o">=</span> <span class="n">mass</span> <span class="o">/</span> <span class="n">mscale</span>
-<a name="ln-181"></a>         <span class="n">radius</span> <span class="o">=</span> <span class="n">radius</span> <span class="o">/</span> <span class="n">rscale</span>
-<a name="ln-182"></a>         <span class="n">x</span> <span class="o">=</span> <span class="n">x</span> <span class="o">/</span> <span class="n">rscale</span>
-<a name="ln-183"></a>         <span class="n">v</span> <span class="o">=</span> <span class="n">v</span> <span class="o">/</span> <span class="n">vscale</span>
-<a name="ln-184"></a>         <span class="n">L_spin</span> <span class="o">=</span> <span class="n">L_spin</span> <span class="o">/</span> <span class="n">Lscale</span>
-<a name="ln-185"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">2</span>
-<a name="ln-186"></a>            <span class="n">rot</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">L_spin</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">radius</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">))</span>
-<a name="ln-187"></a>         <span class="k">end do</span>
-<a name="ln-188"></a>
-<a name="ln-189"></a><span class="k">         </span><span class="n">m_frag</span> <span class="o">=</span> <span class="n">m_frag</span> <span class="o">/</span> <span class="n">mscale</span>
-<a name="ln-190"></a>         <span class="n">rad_frag</span> <span class="o">=</span> <span class="n">rad_frag</span> <span class="o">/</span> <span class="n">rscale</span>
-<a name="ln-191"></a>         <span class="n">Qloss</span> <span class="o">=</span> <span class="n">Qloss</span> <span class="o">/</span> <span class="n">Escale</span>
-<a name="ln-192"></a>
-<a name="ln-193"></a>         <span class="k">return</span>
-<a name="ln-194"></a><span class="k">      end subroutine </span><span class="n">set_scale_factors</span>
+<a name="ln-49"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmpsys</span>
+<a name="ln-50"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">allocatable</span>   <span class="kd">::</span> <span class="n">tmpparam</span>
+<a name="ln-51"></a>
+<a name="ln-52"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nfrag</span> <span class="o">&lt;</span> <span class="n">NFRAG_MIN</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-53"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;symba_frag_pos needs at least &quot;</span><span class="p">,</span><span class="n">NFRAG_MIN</span><span class="p">,</span><span class="s2">&quot; fragments, but only &quot;</span><span class="p">,</span><span class="n">nfrag</span><span class="p">,</span><span class="s2">&quot; were given.&quot;</span>
+<a name="ln-54"></a>         <span class="n">lfailure</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-55"></a>         <span class="k">return</span>
+<a name="ln-56"></a><span class="k">      end if</span>
+<a name="ln-57"></a>
+<a name="ln-58"></a><span class="k">      call </span><span class="n">ieee_get_halting_mode</span><span class="p">(</span><span class="n">IEEE_ALL</span><span class="p">,</span><span class="n">fpe_halting_modes</span><span class="p">)</span>  <span class="c">! Save the current halting modes so we can turn them off temporarily</span>
+<a name="ln-59"></a>      <span class="n">fpe_quiet_modes</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-60"></a>      <span class="k">call </span><span class="n">ieee_set_halting_mode</span><span class="p">(</span><span class="n">IEEE_ALL</span><span class="p">,</span><span class="n">fpe_quiet_modes</span><span class="p">)</span>
+<a name="ln-61"></a>
+<a name="ln-62"></a>      <span class="n">f_spin</span> <span class="o">=</span> <span class="mf">0.05_DP</span>
+<a name="ln-63"></a>
+<a name="ln-64"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">x_frag</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">xb_frag</span><span class="p">)</span>
+<a name="ln-65"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">v_frag</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">vb_frag</span><span class="p">)</span>
+<a name="ln-66"></a>
+<a name="ln-67"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-68"></a>         <span class="n">npl_new</span> <span class="o">=</span> <span class="n">npl</span> <span class="o">+</span> <span class="n">nfrag</span>
+<a name="ln-69"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">lexclude</span><span class="p">(</span><span class="n">npl_new</span><span class="p">))</span>
+<a name="ln-70"></a>         <span class="n">lexclude</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">==</span> <span class="n">INACTIVE</span>
+<a name="ln-71"></a>         <span class="n">lexclude</span><span class="p">(</span><span class="n">npl</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-72"></a>      <span class="k">end associate</span>
+<a name="ln-73"></a>
+<a name="ln-74"></a><span class="k">      call </span><span class="n">set_scale_factors</span><span class="p">()</span>
+<a name="ln-75"></a>      <span class="k">call </span><span class="n">define_coordinate_system</span><span class="p">()</span>
+<a name="ln-76"></a>      <span class="k">call </span><span class="n">construct_temporary_system</span><span class="p">()</span>
+<a name="ln-77"></a>
+<a name="ln-78"></a>      <span class="c">! Calculate the initial energy of the system without the collisional family</span>
+<a name="ln-79"></a>      <span class="k">call </span><span class="n">calculate_system_energy</span><span class="p">(</span><span class="n">linclude_fragments</span><span class="o">=</span><span class="p">.</span><span class="n">false</span><span class="p">.)</span>
+<a name="ln-80"></a>      
+<a name="ln-81"></a>      <span class="n">r_max_start</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">x</span><span class="p">(:,</span><span class="mi">2</span><span class="p">)</span> <span class="o">-</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">1</span><span class="p">))</span>
+<a name="ln-82"></a>      <span class="n">try</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-83"></a>      <span class="n">lfailure</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-84"></a>      <span class="n">ke_avg_deficit</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-85"></a>      <span class="k">do while</span> <span class="p">(</span><span class="n">try</span> <span class="o">&lt;</span> <span class="n">MAXTRY</span><span class="p">)</span>
+<a name="ln-86"></a>         <span class="n">lfailure</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-87"></a>         <span class="n">ke_avg_deficit_old</span> <span class="o">=</span> <span class="n">ke_avg_deficit</span>
+<a name="ln-88"></a>         <span class="n">ke_avg_deficit</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-89"></a>         <span class="n">subtry</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-90"></a>         <span class="k">do</span> 
+<a name="ln-91"></a>            <span class="c">! Initialize the fragments with 0 velocity and spin so we can divide up the balance between the tangential, radial, and spin components while conserving momentum</span>
+<a name="ln-92"></a>            <span class="n">xb_frag</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-93"></a>            <span class="n">vb_frag</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-94"></a>            <span class="n">rot_frag</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-95"></a>            <span class="n">v_t_mag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-96"></a>            <span class="n">v_r_mag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-97"></a>            <span class="k">call </span><span class="n">set_fragment_position_vectors</span><span class="p">()</span>
+<a name="ln-98"></a>            <span class="k">call </span><span class="n">calculate_system_energy</span><span class="p">(</span><span class="n">linclude_fragments</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
+<a name="ln-99"></a>            <span class="n">ke_frag_budget</span> <span class="o">=</span> <span class="o">-</span><span class="n">dEtot</span> <span class="o">-</span> <span class="n">Qloss</span>
+<a name="ln-100"></a>            <span class="k">call </span><span class="n">set_fragment_tan_vel</span><span class="p">(</span><span class="n">lfailure</span><span class="p">)</span>
+<a name="ln-101"></a>            <span class="n">ke_avg_deficit</span> <span class="o">=</span> <span class="n">ke_avg_deficit</span> <span class="o">-</span> <span class="n">ke_radial</span>
+<a name="ln-102"></a>            <span class="n">subtry</span> <span class="o">=</span> <span class="n">subtry</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-103"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lfailure</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">subtry</span> <span class="o">==</span> <span class="n">TANTRY</span><span class="p">)</span> <span class="k">exit</span>
+<a name="ln-104"></a>            <span class="c">!write(*,*) &#39;Trying new arrangement&#39;</span>
+<a name="ln-105"></a>         <span class="k">end do</span>
+<a name="ln-106"></a><span class="k">         </span><span class="n">ke_avg_deficit</span> <span class="o">=</span> <span class="n">ke_avg_deficit</span> <span class="o">/</span> <span class="n">subtry</span>
+<a name="ln-107"></a>         <span class="c">!if (lfailure) write(*,*) &#39;Failed to find tangential velocities&#39;</span>
+<a name="ln-108"></a>
+<a name="ln-109"></a>         <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lfailure</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-110"></a><span class="k">            call </span><span class="n">calculate_system_energy</span><span class="p">(</span><span class="n">linclude_fragments</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
+<a name="ln-111"></a>            <span class="n">ke_radial</span> <span class="o">=</span> <span class="o">-</span><span class="n">dEtot</span> <span class="o">-</span> <span class="n">Qloss</span>
+<a name="ln-112"></a>            <span class="k">call </span><span class="n">set_fragment_radial_velocities</span><span class="p">(</span><span class="n">lfailure</span><span class="p">)</span>
+<a name="ln-113"></a>         <span class="c">!   if (lfailure) write(*,*) &#39;Failed to find radial velocities&#39;</span>
+<a name="ln-114"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lfailure</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-115"></a><span class="k">               call </span><span class="n">calculate_system_energy</span><span class="p">(</span><span class="n">linclude_fragments</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
+<a name="ln-116"></a>               <span class="c">! write(*,*) &#39;Qloss : &#39;,Qloss</span>
+<a name="ln-117"></a>               <span class="c">! write(*,*) &#39;-dEtot: &#39;,-dEtot</span>
+<a name="ln-118"></a>               <span class="c">! write(*,*) &#39;delta : &#39;,abs((dEtot + Qloss)) </span>
+<a name="ln-119"></a>               <span class="k">if</span> <span class="p">((</span><span class="nb">abs</span><span class="p">(</span><span class="n">dEtot</span> <span class="o">+</span> <span class="n">Qloss</span><span class="p">)</span> <span class="o">&gt;</span> <span class="n">Etol</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">dEtot</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-120"></a>                  <span class="c">!write(*,*) &#39;Failed due to high energy error: &#39;,dEtot, abs(dEtot + Qloss) / Etol</span>
+<a name="ln-121"></a>                  <span class="n">lfailure</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-122"></a>               <span class="k">else if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">dLmag</span><span class="p">)</span> <span class="o">/</span> <span class="n">Lmag_before</span> <span class="o">&gt;</span> <span class="n">Ltol</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-123"></a>                  <span class="c">!write(*,*) &#39;Failed due to high angular momentum error: &#39;, dLmag / Lmag_before</span>
+<a name="ln-124"></a>                  <span class="n">lfailure</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-125"></a>               <span class="k">end if</span>
+<a name="ln-126"></a><span class="k">            end if</span>
+<a name="ln-127"></a><span class="k">         end if</span>
+<a name="ln-128"></a><span class="k">   </span>
+<a name="ln-129"></a><span class="k">         if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lfailure</span><span class="p">)</span> <span class="k">exit</span>
+<a name="ln-130"></a><span class="k">         call </span><span class="n">restructure_failed_fragments</span><span class="p">()</span>
+<a name="ln-131"></a>         <span class="n">try</span> <span class="o">=</span> <span class="n">try</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-132"></a>      <span class="k">end do</span>
+<a name="ln-133"></a><span class="k">      call </span><span class="n">restore_scale_factors</span><span class="p">()</span>
+<a name="ln-134"></a>      <span class="k">call </span><span class="n">calculate_system_energy</span><span class="p">(</span><span class="n">linclude_fragments</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
+<a name="ln-135"></a>
+<a name="ln-136"></a>      <span class="c">! write(*,        &quot;(&#39; -------------------------------------------------------------------------------------&#39;)&quot;)</span>
+<a name="ln-137"></a>      <span class="c">! write(*,        &quot;(&#39;  Final diagnostic&#39;)&quot;)</span>
+<a name="ln-138"></a>      <span class="c">! write(*,        &quot;(&#39; -------------------------------------------------------------------------------------&#39;)&quot;)</span>
+<a name="ln-139"></a>      <span class="c">! if (lfailure) then</span>
+<a name="ln-140"></a>      <span class="c">!    write(*,*) &quot;symba_frag_pos failed after: &quot;,try,&quot; tries&quot;</span>
+<a name="ln-141"></a>      <span class="c">!    do ii = 1, nfrag</span>
+<a name="ln-142"></a>      <span class="c">!       vb_frag(:, ii) = vcom(:)</span>
+<a name="ln-143"></a>      <span class="c">!    end do</span>
+<a name="ln-144"></a>      <span class="c">! else</span>
+<a name="ln-145"></a>      <span class="c">!    write(*,*) &quot;symba_frag_pos succeeded after: &quot;,try,&quot; tries&quot;</span>
+<a name="ln-146"></a>      <span class="c">!    write(*,        &quot;(&#39; dL_tot should be very small&#39; )&quot;)</span>
+<a name="ln-147"></a>      <span class="c">!    write(*,fmtlabel) &#39; dL_tot      |&#39;, dLmag / Lmag_before</span>
+<a name="ln-148"></a>      <span class="c">!    write(*,        &quot;(&#39; dE_tot should be negative and equal to Qloss&#39; )&quot;)</span>
+<a name="ln-149"></a>      <span class="c">!    write(*,fmtlabel) &#39; dE_tot      |&#39;, dEtot / abs(Etot_before)</span>
+<a name="ln-150"></a>      <span class="c">!    write(*,fmtlabel) &#39; Qloss       |&#39;, -Qloss / abs(Etot_before)</span>
+<a name="ln-151"></a>      <span class="c">!    write(*,fmtlabel) &#39; dE - Qloss  |&#39;, (Etot_after - Etot_before + Qloss) / abs(Etot_before)</span>
+<a name="ln-152"></a>      <span class="c">! end if</span>
+<a name="ln-153"></a>      <span class="c">! write(*,        &quot;(&#39; -------------------------------------------------------------------------------------&#39;)&quot;)</span>
+<a name="ln-154"></a>
+<a name="ln-155"></a>      <span class="k">call </span><span class="n">ieee_set_halting_mode</span><span class="p">(</span><span class="n">IEEE_ALL</span><span class="p">,</span><span class="n">fpe_halting_modes</span><span class="p">)</span>  <span class="c">! Save the current halting modes so we can turn them off temporarily</span>
+<a name="ln-156"></a>
+<a name="ln-157"></a>      <span class="k">return </span>
+<a name="ln-158"></a>
+<a name="ln-159"></a><span class="k">      contains</span>
+<a name="ln-160"></a>
+<a name="ln-161"></a>         <span class="c">! Because of the complexity of this procedure, we have chosen to break it up into a series of nested subroutines.</span>
+<a name="ln-162"></a>         <span class="k">subroutine </span><span class="n">set_scale_factors</span><span class="p">()</span>
+<a name="ln-163"></a>            <span class="c">!! author: David A. Minton</span>
+<a name="ln-164"></a>            <span class="c">!!</span>
+<a name="ln-165"></a>            <span class="c">!! Scales dimenional quantities to ~O(1) with respect to the collisional system. This scaling makes it easier for the non-linear minimization </span>
+<a name="ln-166"></a>            <span class="c">!! to converge on a solution</span>
+<a name="ln-167"></a>            <span class="k">implicit none</span>
+<a name="ln-168"></a><span class="k">            </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-169"></a>
+<a name="ln-170"></a>            <span class="c">! Find the center of mass of the collisional system	</span>
+<a name="ln-171"></a>            <span class="n">mtot</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">mass</span><span class="p">(:))</span> 
+<a name="ln-172"></a>            <span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
+<a name="ln-173"></a>            <span class="n">vcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
+<a name="ln-174"></a>
+<a name="ln-175"></a>            <span class="c">! Set scale factors</span>
+<a name="ln-176"></a>            <span class="n">dscale</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">radius</span><span class="p">(:))</span>
+<a name="ln-177"></a>            <span class="n">mscale</span> <span class="o">=</span> <span class="n">mtot</span>
+<a name="ln-178"></a>            <span class="n">vscale</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">v</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">-</span> <span class="n">vcom</span><span class="p">(:))</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">v</span><span class="p">(:,</span><span class="mi">2</span><span class="p">)</span> <span class="o">-</span> <span class="n">vcom</span><span class="p">(:)))</span> <span class="o">/</span> <span class="n">mtot</span>
+<a name="ln-179"></a>            <span class="n">tscale</span> <span class="o">=</span> <span class="n">dscale</span> <span class="o">/</span> <span class="n">vscale</span> 
+<a name="ln-180"></a>            <span class="n">Lscale</span> <span class="o">=</span> <span class="n">mscale</span> <span class="o">*</span> <span class="n">dscale</span> <span class="o">*</span> <span class="n">vscale</span>
+<a name="ln-181"></a>            <span class="n">Escale</span> <span class="o">=</span> <span class="n">mscale</span> <span class="o">*</span> <span class="n">vscale</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-182"></a>
+<a name="ln-183"></a>            <span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xcom</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">dscale</span>
+<a name="ln-184"></a>            <span class="n">vcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">vcom</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">vscale</span>
+<a name="ln-185"></a>
+<a name="ln-186"></a>            <span class="n">mtot</span> <span class="o">=</span> <span class="n">mtot</span> <span class="o">/</span> <span class="n">mscale</span>
+<a name="ln-187"></a>            <span class="n">mass</span> <span class="o">=</span> <span class="n">mass</span> <span class="o">/</span> <span class="n">mscale</span>
+<a name="ln-188"></a>            <span class="n">radius</span> <span class="o">=</span> <span class="n">radius</span> <span class="o">/</span> <span class="n">dscale</span>
+<a name="ln-189"></a>            <span class="n">x</span> <span class="o">=</span> <span class="n">x</span> <span class="o">/</span> <span class="n">dscale</span>
+<a name="ln-190"></a>            <span class="n">v</span> <span class="o">=</span> <span class="n">v</span> <span class="o">/</span> <span class="n">vscale</span>
+<a name="ln-191"></a>            <span class="n">L_spin</span> <span class="o">=</span> <span class="n">L_spin</span> <span class="o">/</span> <span class="n">Lscale</span>
+<a name="ln-192"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">2</span>
+<a name="ln-193"></a>               <span class="n">rot</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">L_spin</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">radius</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-194"></a>            <span class="k">end do</span>
 <a name="ln-195"></a>
-<a name="ln-196"></a>      <span class="k">subroutine </span><span class="n">restore_scale_factors</span><span class="p">()</span>
-<a name="ln-197"></a>         <span class="c">!! author: David A. Minton</span>
-<a name="ln-198"></a>         <span class="c">!!</span>
-<a name="ln-199"></a>         <span class="c">!! Restores dimenional quantities back to the system units</span>
-<a name="ln-200"></a>         <span class="k">implicit none</span>
-<a name="ln-201"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-196"></a><span class="k">            </span><span class="n">m_frag</span> <span class="o">=</span> <span class="n">m_frag</span> <span class="o">/</span> <span class="n">mscale</span>
+<a name="ln-197"></a>            <span class="n">rad_frag</span> <span class="o">=</span> <span class="n">rad_frag</span> <span class="o">/</span> <span class="n">dscale</span>
+<a name="ln-198"></a>            <span class="n">Qloss</span> <span class="o">=</span> <span class="n">Qloss</span> <span class="o">/</span> <span class="n">Escale</span>
+<a name="ln-199"></a>
+<a name="ln-200"></a>            <span class="k">return</span>
+<a name="ln-201"></a><span class="k">         end subroutine </span><span class="n">set_scale_factors</span>
 <a name="ln-202"></a>
-<a name="ln-203"></a>         <span class="k">call </span><span class="n">ieee_set_halting_mode</span><span class="p">(</span><span class="n">IEEE_ALL</span><span class="p">,.</span><span class="n">false</span><span class="p">.)</span>
-<a name="ln-204"></a>         <span class="c">! Restore scale factors</span>
-<a name="ln-205"></a>         <span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xcom</span><span class="p">(:)</span> <span class="o">*</span> <span class="n">rscale</span>
-<a name="ln-206"></a>         <span class="n">vcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">vcom</span><span class="p">(:)</span> <span class="o">*</span> <span class="n">vscale</span>
-<a name="ln-207"></a>
-<a name="ln-208"></a>         <span class="n">mtot</span> <span class="o">=</span> <span class="n">mtot</span> <span class="o">*</span> <span class="n">mscale</span>
-<a name="ln-209"></a>         <span class="n">mass</span> <span class="o">=</span> <span class="n">mass</span> <span class="o">*</span> <span class="n">mscale</span>
-<a name="ln-210"></a>         <span class="n">radius</span> <span class="o">=</span> <span class="n">radius</span> <span class="o">*</span> <span class="n">rscale</span>
-<a name="ln-211"></a>         <span class="n">x</span> <span class="o">=</span> <span class="n">x</span> <span class="o">*</span> <span class="n">rscale</span>
-<a name="ln-212"></a>         <span class="n">v</span> <span class="o">=</span> <span class="n">v</span> <span class="o">*</span> <span class="n">vscale</span>
-<a name="ln-213"></a>         <span class="n">L_spin</span> <span class="o">=</span> <span class="n">L_spin</span> <span class="o">*</span> <span class="n">Lscale</span>
-<a name="ln-214"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">2</span>
-<a name="ln-215"></a>            <span class="n">rot</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">L_spin</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">radius</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">))</span>
-<a name="ln-216"></a>         <span class="k">end do</span>
-<a name="ln-217"></a>
-<a name="ln-218"></a><span class="k">         </span><span class="n">m_frag</span> <span class="o">=</span> <span class="n">m_frag</span> <span class="o">*</span> <span class="n">mscale</span>
-<a name="ln-219"></a>         <span class="n">rad_frag</span> <span class="o">=</span> <span class="n">rad_frag</span> <span class="o">*</span> <span class="n">rscale</span>
-<a name="ln-220"></a>         <span class="n">rot_frag</span> <span class="o">=</span> <span class="n">rot_frag</span> <span class="o">/</span> <span class="n">tscale</span>
-<a name="ln-221"></a>         <span class="n">x_frag</span> <span class="o">=</span> <span class="n">x_frag</span> <span class="o">*</span> <span class="n">rscale</span>
-<a name="ln-222"></a>         <span class="n">v_frag</span> <span class="o">=</span> <span class="n">v_frag</span> <span class="o">*</span> <span class="n">vscale</span>
-<a name="ln-223"></a>         <span class="n">Qloss</span> <span class="o">=</span> <span class="n">Qloss</span> <span class="o">*</span> <span class="n">Escale</span>
-<a name="ln-224"></a>
-<a name="ln-225"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-226"></a>            <span class="n">xb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">x_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">xcom</span><span class="p">(:)</span>
-<a name="ln-227"></a>            <span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">v_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">vcom</span><span class="p">(:)</span>
-<a name="ln-228"></a>         <span class="k">end do</span>
-<a name="ln-229"></a>
-<a name="ln-230"></a><span class="k">         </span><span class="n">Etot_before</span> <span class="o">=</span> <span class="n">Etot_before</span> <span class="o">*</span> <span class="n">Escale</span>
-<a name="ln-231"></a>         <span class="n">pe_before</span> <span class="o">=</span> <span class="n">pe_before</span> <span class="o">*</span> <span class="n">Escale</span>
-<a name="ln-232"></a>         <span class="n">ke_spin_before</span> <span class="o">=</span> <span class="n">ke_spin_before</span> <span class="o">*</span> <span class="n">Escale</span>
-<a name="ln-233"></a>         <span class="n">ke_orbit_before</span> <span class="o">=</span> <span class="n">ke_orbit_before</span> <span class="o">*</span> <span class="n">Escale</span>
-<a name="ln-234"></a>         <span class="n">Ltot_before</span> <span class="o">=</span> <span class="n">Ltot_before</span> <span class="o">*</span> <span class="n">Lscale</span>
-<a name="ln-235"></a>         <span class="n">Lmag_before</span> <span class="o">=</span> <span class="n">Lmag_before</span> <span class="o">*</span> <span class="n">Lscale</span> 
-<a name="ln-236"></a>         <span class="n">Etot_after</span> <span class="o">=</span> <span class="n">Etot_after</span> <span class="o">*</span> <span class="n">Escale</span>
-<a name="ln-237"></a>         <span class="n">pe_after</span> <span class="o">=</span> <span class="n">pe_after</span> <span class="o">*</span> <span class="n">Escale</span>
-<a name="ln-238"></a>         <span class="n">ke_spin_after</span> <span class="o">=</span> <span class="n">ke_spin_after</span> <span class="o">*</span> <span class="n">Escale</span>
-<a name="ln-239"></a>         <span class="n">ke_orbit_after</span> <span class="o">=</span> <span class="n">ke_orbit_after</span> <span class="o">*</span> <span class="n">Escale</span>
-<a name="ln-240"></a>         <span class="n">Ltot_after</span> <span class="o">=</span> <span class="n">Ltot_after</span> <span class="o">*</span> <span class="n">Lscale</span>
-<a name="ln-241"></a>         <span class="n">Lmag_after</span> <span class="o">=</span> <span class="n">Lmag_after</span> <span class="o">*</span> <span class="n">Lscale</span> 
-<a name="ln-242"></a>
-<a name="ln-243"></a>         <span class="n">mscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-244"></a>         <span class="n">rscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-245"></a>         <span class="n">vscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-246"></a>         <span class="n">tscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-247"></a>         <span class="n">Lscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-248"></a>         <span class="n">Escale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-249"></a>
-<a name="ln-250"></a>         <span class="k">return</span>
-<a name="ln-251"></a><span class="k">      end subroutine </span><span class="n">restore_scale_factors</span>
-<a name="ln-252"></a>
-<a name="ln-253"></a>      <span class="k">subroutine </span><span class="n">define_coordinate_system</span><span class="p">()</span>
-<a name="ln-254"></a>         <span class="c">!! author: David A. Minton</span>
-<a name="ln-255"></a>         <span class="c">!!</span>
-<a name="ln-256"></a>         <span class="c">!! Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments.</span>
-<a name="ln-257"></a>         <span class="k">implicit none</span>
-<a name="ln-258"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-259"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span>  <span class="n">x_cross_v</span><span class="p">,</span> <span class="n">xc</span><span class="p">,</span> <span class="n">vc</span><span class="p">,</span> <span class="n">delta_r</span><span class="p">,</span> <span class="n">delta_v</span>
-<a name="ln-260"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">r_col_norm</span><span class="p">,</span> <span class="n">v_col_norm</span>
-<a name="ln-261"></a>
-<a name="ln-262"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">rmag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-263"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">rotmag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-264"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">v_r_mag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-265"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">v_t_mag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-266"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">v_r_unit</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-267"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">v_t_unit</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-268"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">v_h_unit</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-269"></a>
-<a name="ln-270"></a>         <span class="n">rmag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-271"></a>         <span class="n">rotmag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-272"></a>         <span class="n">v_r_mag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-273"></a>         <span class="n">v_t_mag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-274"></a>         <span class="n">v_r_unit</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-275"></a>         <span class="n">v_t_unit</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-276"></a>         <span class="n">v_h_unit</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-277"></a>
-<a name="ln-278"></a>         <span class="n">L_orb</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-279"></a>         <span class="c">! Compute orbital angular momentum of pre-impact system</span>
-<a name="ln-280"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">2</span>
-<a name="ln-281"></a>            <span class="n">xc</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">xcom</span><span class="p">(:)</span> 
-<a name="ln-282"></a>            <span class="n">vc</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">v</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">vcom</span><span class="p">(:)</span>
-<a name="ln-283"></a>            <span class="n">x_cross_v</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xc</span><span class="p">(:)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">vc</span><span class="p">(:)</span>
-<a name="ln-284"></a>            <span class="n">L_orb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">x_cross_v</span><span class="p">(:)</span>
-<a name="ln-285"></a>         <span class="k">end do</span>
-<a name="ln-286"></a>
-<a name="ln-287"></a>         <span class="c">! Compute orbital angular momentum of pre-impact system. This will be the normal vector to the collision fragment plane</span>
-<a name="ln-288"></a>         <span class="n">L_frag_tot</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_spin</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">L_spin</span><span class="p">(:,</span> <span class="mi">2</span><span class="p">)</span> <span class="o">+</span> <span class="n">L_orb</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">L_orb</span><span class="p">(:,</span> <span class="mi">2</span><span class="p">)</span>
-<a name="ln-289"></a>
-<a name="ln-290"></a>         <span class="n">delta_v</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">v</span><span class="p">(:,</span> <span class="mi">2</span><span class="p">)</span> <span class="o">-</span> <span class="n">v</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span>
-<a name="ln-291"></a>         <span class="n">v_col_norm</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">delta_v</span><span class="p">(:))</span>     
-<a name="ln-292"></a>         <span class="n">delta_r</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:,</span> <span class="mi">2</span><span class="p">)</span> <span class="o">-</span> <span class="n">x</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span>
-<a name="ln-293"></a>         <span class="n">r_col_norm</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">delta_r</span><span class="p">(:))</span>
-<a name="ln-294"></a>
-<a name="ln-295"></a>         <span class="c">! We will initialize fragments on a plane defined by the pre-impact system, with the z-axis aligned with the angular momentum vector</span>
-<a name="ln-296"></a>         <span class="c">! and the y-axis aligned with the pre-impact distance vector.</span>
-<a name="ln-297"></a>         <span class="n">y_col_unit</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">delta_r</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">r_col_norm</span>  
-<a name="ln-298"></a>         <span class="n">z_col_unit</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_frag_tot</span><span class="p">(:)</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">L_frag_tot</span><span class="p">)</span>
-<a name="ln-299"></a>         <span class="c">! The cross product of the y- by z-axis will give us the x-axis</span>
-<a name="ln-300"></a>         <span class="n">x_col_unit</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">y_col_unit</span><span class="p">(:)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">z_col_unit</span><span class="p">(:)</span>
-<a name="ln-301"></a>
-<a name="ln-302"></a>         <span class="k">return</span>
-<a name="ln-303"></a><span class="k">      end subroutine </span><span class="n">define_coordinate_system</span>
-<a name="ln-304"></a>
-<a name="ln-305"></a>      <span class="k">subroutine </span><span class="n">calculate_system_energy</span><span class="p">(</span><span class="n">linclude_fragments</span><span class="p">)</span>
-<a name="ln-306"></a>         <span class="c">!! Author: David A. Minton</span>
-<a name="ln-307"></a>         <span class="c">!!</span>
-<a name="ln-308"></a>         <span class="c">!! Calculates total system energy, including all bodies in the pl list that do not have a corresponding value of the lexclude array that is true</span>
-<a name="ln-309"></a>         <span class="c">!! and optionally including fragments.</span>
-<a name="ln-310"></a>         <span class="k">implicit none</span>
-<a name="ln-311"></a>         <span class="c">! Arguments</span>
-<a name="ln-312"></a>         <span class="kt">logical</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">linclude_fragments</span>
-<a name="ln-313"></a>         <span class="c">! Internals</span>
-<a name="ln-314"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">npl_new</span><span class="p">,</span> <span class="n">nplm</span>
-<a name="ln-315"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">ltmp</span>
-<a name="ln-316"></a>         <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lk_plpl</span>
-<a name="ln-317"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmpsys</span>
+<a name="ln-203"></a>
+<a name="ln-204"></a>         <span class="k">subroutine </span><span class="n">restore_scale_factors</span><span class="p">()</span>
+<a name="ln-205"></a>            <span class="c">!! author: David A. Minton</span>
+<a name="ln-206"></a>            <span class="c">!!</span>
+<a name="ln-207"></a>            <span class="c">!! Restores dimenional quantities back to the system units</span>
+<a name="ln-208"></a>            <span class="k">implicit none</span>
+<a name="ln-209"></a><span class="k">            </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-210"></a>
+<a name="ln-211"></a>            <span class="k">call </span><span class="n">ieee_set_halting_mode</span><span class="p">(</span><span class="n">IEEE_ALL</span><span class="p">,.</span><span class="n">false</span><span class="p">.)</span>
+<a name="ln-212"></a>            <span class="c">! Restore scale factors</span>
+<a name="ln-213"></a>            <span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xcom</span><span class="p">(:)</span> <span class="o">*</span> <span class="n">dscale</span>
+<a name="ln-214"></a>            <span class="n">vcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">vcom</span><span class="p">(:)</span> <span class="o">*</span> <span class="n">vscale</span>
+<a name="ln-215"></a>
+<a name="ln-216"></a>            <span class="n">mtot</span> <span class="o">=</span> <span class="n">mtot</span> <span class="o">*</span> <span class="n">mscale</span>
+<a name="ln-217"></a>            <span class="n">mass</span> <span class="o">=</span> <span class="n">mass</span> <span class="o">*</span> <span class="n">mscale</span>
+<a name="ln-218"></a>            <span class="n">radius</span> <span class="o">=</span> <span class="n">radius</span> <span class="o">*</span> <span class="n">dscale</span>
+<a name="ln-219"></a>            <span class="n">x</span> <span class="o">=</span> <span class="n">x</span> <span class="o">*</span> <span class="n">dscale</span>
+<a name="ln-220"></a>            <span class="n">v</span> <span class="o">=</span> <span class="n">v</span> <span class="o">*</span> <span class="n">vscale</span>
+<a name="ln-221"></a>            <span class="n">L_spin</span> <span class="o">=</span> <span class="n">L_spin</span> <span class="o">*</span> <span class="n">Lscale</span>
+<a name="ln-222"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">2</span>
+<a name="ln-223"></a>               <span class="n">rot</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">L_spin</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">radius</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-224"></a>            <span class="k">end do</span>
+<a name="ln-225"></a>
+<a name="ln-226"></a><span class="k">            </span><span class="n">m_frag</span> <span class="o">=</span> <span class="n">m_frag</span> <span class="o">*</span> <span class="n">mscale</span>
+<a name="ln-227"></a>            <span class="n">rad_frag</span> <span class="o">=</span> <span class="n">rad_frag</span> <span class="o">*</span> <span class="n">dscale</span>
+<a name="ln-228"></a>            <span class="n">rot_frag</span> <span class="o">=</span> <span class="n">rot_frag</span> <span class="o">/</span> <span class="n">tscale</span>
+<a name="ln-229"></a>            <span class="n">x_frag</span> <span class="o">=</span> <span class="n">x_frag</span> <span class="o">*</span> <span class="n">dscale</span>
+<a name="ln-230"></a>            <span class="n">v_frag</span> <span class="o">=</span> <span class="n">v_frag</span> <span class="o">*</span> <span class="n">vscale</span>
+<a name="ln-231"></a>            <span class="n">Qloss</span> <span class="o">=</span> <span class="n">Qloss</span> <span class="o">*</span> <span class="n">Escale</span>
+<a name="ln-232"></a>
+<a name="ln-233"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-234"></a>               <span class="n">xb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">x_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">xcom</span><span class="p">(:)</span>
+<a name="ln-235"></a>               <span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">v_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">vcom</span><span class="p">(:)</span>
+<a name="ln-236"></a>            <span class="k">end do</span>
+<a name="ln-237"></a>
+<a name="ln-238"></a><span class="k">            </span><span class="n">Etot_before</span> <span class="o">=</span> <span class="n">Etot_before</span> <span class="o">*</span> <span class="n">Escale</span>
+<a name="ln-239"></a>            <span class="n">pe_before</span> <span class="o">=</span> <span class="n">pe_before</span> <span class="o">*</span> <span class="n">Escale</span>
+<a name="ln-240"></a>            <span class="n">ke_spin_before</span> <span class="o">=</span> <span class="n">ke_spin_before</span> <span class="o">*</span> <span class="n">Escale</span>
+<a name="ln-241"></a>            <span class="n">ke_orbit_before</span> <span class="o">=</span> <span class="n">ke_orbit_before</span> <span class="o">*</span> <span class="n">Escale</span>
+<a name="ln-242"></a>            <span class="n">Ltot_before</span> <span class="o">=</span> <span class="n">Ltot_before</span> <span class="o">*</span> <span class="n">Lscale</span>
+<a name="ln-243"></a>            <span class="n">Lmag_before</span> <span class="o">=</span> <span class="n">Lmag_before</span> <span class="o">*</span> <span class="n">Lscale</span> 
+<a name="ln-244"></a>            <span class="n">Etot_after</span> <span class="o">=</span> <span class="n">Etot_after</span> <span class="o">*</span> <span class="n">Escale</span>
+<a name="ln-245"></a>            <span class="n">pe_after</span> <span class="o">=</span> <span class="n">pe_after</span> <span class="o">*</span> <span class="n">Escale</span>
+<a name="ln-246"></a>            <span class="n">ke_spin_after</span> <span class="o">=</span> <span class="n">ke_spin_after</span> <span class="o">*</span> <span class="n">Escale</span>
+<a name="ln-247"></a>            <span class="n">ke_orbit_after</span> <span class="o">=</span> <span class="n">ke_orbit_after</span> <span class="o">*</span> <span class="n">Escale</span>
+<a name="ln-248"></a>            <span class="n">Ltot_after</span> <span class="o">=</span> <span class="n">Ltot_after</span> <span class="o">*</span> <span class="n">Lscale</span>
+<a name="ln-249"></a>            <span class="n">Lmag_after</span> <span class="o">=</span> <span class="n">Lmag_after</span> <span class="o">*</span> <span class="n">Lscale</span> 
+<a name="ln-250"></a>
+<a name="ln-251"></a>            <span class="n">dLmag</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">Ltot_after</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">Ltot_before</span><span class="p">(:))</span> 
+<a name="ln-252"></a>            <span class="n">dEtot</span> <span class="o">=</span> <span class="n">Etot_after</span> <span class="o">-</span> <span class="n">Etot_before</span>
+<a name="ln-253"></a>
+<a name="ln-254"></a>            <span class="k">call </span><span class="n">tmpsys</span><span class="p">%</span><span class="n">rescale</span><span class="p">(</span><span class="n">tmpparam</span><span class="p">,</span> <span class="n">mscale</span><span class="o">**</span><span class="p">(</span><span class="o">-</span><span class="mi">1</span><span class="p">),</span> <span class="n">dscale</span><span class="o">**</span><span class="p">(</span><span class="o">-</span><span class="mi">1</span><span class="p">),</span> <span class="n">tscale</span><span class="o">**</span><span class="p">(</span><span class="o">-</span><span class="mi">1</span><span class="p">))</span>
+<a name="ln-255"></a>
+<a name="ln-256"></a>            <span class="n">mscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-257"></a>            <span class="n">dscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-258"></a>            <span class="n">vscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-259"></a>            <span class="n">tscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-260"></a>            <span class="n">Lscale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-261"></a>            <span class="n">Escale</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-262"></a>
+<a name="ln-263"></a>            <span class="k">return</span>
+<a name="ln-264"></a><span class="k">         end subroutine </span><span class="n">restore_scale_factors</span>
+<a name="ln-265"></a>
+<a name="ln-266"></a>
+<a name="ln-267"></a>         <span class="k">subroutine </span><span class="n">define_coordinate_system</span><span class="p">()</span>
+<a name="ln-268"></a>            <span class="c">!! author: David A. Minton</span>
+<a name="ln-269"></a>            <span class="c">!!</span>
+<a name="ln-270"></a>            <span class="c">!! Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments.</span>
+<a name="ln-271"></a>            <span class="k">implicit none</span>
+<a name="ln-272"></a><span class="k">            </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-273"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span>  <span class="n">x_cross_v</span><span class="p">,</span> <span class="n">xc</span><span class="p">,</span> <span class="n">vc</span><span class="p">,</span> <span class="n">delta_r</span><span class="p">,</span> <span class="n">delta_v</span>
+<a name="ln-274"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">r_col_norm</span><span class="p">,</span> <span class="n">v_col_norm</span>
+<a name="ln-275"></a>
+<a name="ln-276"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">rmag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-277"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">rotmag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-278"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">v_r_mag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-279"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">v_t_mag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-280"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">v_r_unit</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-281"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">v_t_unit</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-282"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">v_h_unit</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-283"></a>
+<a name="ln-284"></a>            <span class="n">rmag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-285"></a>            <span class="n">rotmag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-286"></a>            <span class="n">v_r_mag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-287"></a>            <span class="n">v_t_mag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-288"></a>            <span class="n">v_r_unit</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-289"></a>            <span class="n">v_t_unit</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-290"></a>            <span class="n">v_h_unit</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-291"></a>
+<a name="ln-292"></a>            <span class="n">L_orb</span><span class="p">(:,</span> <span class="p">:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-293"></a>            <span class="c">! Compute orbital angular momentum of pre-impact system</span>
+<a name="ln-294"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">2</span>
+<a name="ln-295"></a>               <span class="n">xc</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">xcom</span><span class="p">(:)</span> 
+<a name="ln-296"></a>               <span class="n">vc</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">v</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">vcom</span><span class="p">(:)</span>
+<a name="ln-297"></a>               <span class="n">x_cross_v</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xc</span><span class="p">(:)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">vc</span><span class="p">(:)</span>
+<a name="ln-298"></a>               <span class="n">L_orb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">x_cross_v</span><span class="p">(:)</span>
+<a name="ln-299"></a>            <span class="k">end do</span>
+<a name="ln-300"></a>
+<a name="ln-301"></a>            <span class="c">! Compute orbital angular momentum of pre-impact system. This will be the normal vector to the collision fragment plane</span>
+<a name="ln-302"></a>            <span class="n">L_frag_tot</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_spin</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">L_spin</span><span class="p">(:,</span> <span class="mi">2</span><span class="p">)</span> <span class="o">+</span> <span class="n">L_orb</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">L_orb</span><span class="p">(:,</span> <span class="mi">2</span><span class="p">)</span>
+<a name="ln-303"></a>
+<a name="ln-304"></a>            <span class="n">delta_v</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">v</span><span class="p">(:,</span> <span class="mi">2</span><span class="p">)</span> <span class="o">-</span> <span class="n">v</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span>
+<a name="ln-305"></a>            <span class="n">v_col_norm</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">delta_v</span><span class="p">(:))</span>     
+<a name="ln-306"></a>            <span class="n">delta_r</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:,</span> <span class="mi">2</span><span class="p">)</span> <span class="o">-</span> <span class="n">x</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span>
+<a name="ln-307"></a>            <span class="n">r_col_norm</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">delta_r</span><span class="p">(:))</span>
+<a name="ln-308"></a>
+<a name="ln-309"></a>            <span class="c">! We will initialize fragments on a plane defined by the pre-impact system, with the z-axis aligned with the angular momentum vector</span>
+<a name="ln-310"></a>            <span class="c">! and the y-axis aligned with the pre-impact distance vector.</span>
+<a name="ln-311"></a>            <span class="n">y_col_unit</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">delta_r</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">r_col_norm</span>  
+<a name="ln-312"></a>            <span class="n">z_col_unit</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_frag_tot</span><span class="p">(:)</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">L_frag_tot</span><span class="p">)</span>
+<a name="ln-313"></a>            <span class="c">! The cross product of the y- by z-axis will give us the x-axis</span>
+<a name="ln-314"></a>            <span class="n">x_col_unit</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">y_col_unit</span><span class="p">(:)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">z_col_unit</span><span class="p">(:)</span>
+<a name="ln-315"></a>
+<a name="ln-316"></a>            <span class="k">return</span>
+<a name="ln-317"></a><span class="k">         end subroutine </span><span class="n">define_coordinate_system</span>
 <a name="ln-318"></a>
-<a name="ln-319"></a>         <span class="c">! Because we&#39;re making a copy of symba_pl with the excludes/fragments appended, we need to deallocate the</span>
-<a name="ln-320"></a>         <span class="c">! big k_plpl array and recreate it when we&#39;re done, otherwise we run the risk of blowing up the memory by</span>
-<a name="ln-321"></a>         <span class="c">! allocating two of these ginormous arrays simulteouously. This is not particularly efficient, but as this</span>
-<a name="ln-322"></a>         <span class="c">! subroutine should be called relatively infrequently, it shouldn&#39;t matter too much.</span>
-<a name="ln-323"></a>         <span class="c">!if (allocated(pl%k_plpl)) deallocate(pl%k_plpl) </span>
-<a name="ln-324"></a>
-<a name="ln-325"></a>         <span class="c">! Build the internal planet list out of the non-excluded bodies and optionally with fragments appended. This</span>
-<a name="ln-326"></a>         <span class="c">! will get passed to the energy calculation subroutine so that energy is computed exactly the same way is it</span>
-<a name="ln-327"></a>         <span class="c">! is in the main program.</span>
-<a name="ln-328"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">cb</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-329"></a>            <span class="n">lk_plpl</span> <span class="o">=</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">k_plpl</span><span class="p">)</span>
-<a name="ln-330"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lk_plpl</span><span class="p">)</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">k_plpl</span><span class="p">)</span> 
-<a name="ln-331"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">linclude_fragments</span><span class="p">)</span> <span class="k">then</span> <span class="c">! Temporarily expand the planet list to feed it into symba_energy</span>
-<a name="ln-332"></a>               <span class="n">lexclude</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span> 
-<a name="ln-333"></a>               <span class="n">npl_new</span> <span class="o">=</span> <span class="n">npl</span> <span class="o">+</span> <span class="n">nfrag</span>
-<a name="ln-334"></a>            <span class="k">else</span>
-<a name="ln-335"></a><span class="k">               </span><span class="n">npl_new</span>  <span class="o">=</span> <span class="n">npl</span>
-<a name="ln-336"></a>            <span class="k">end if</span>
-<a name="ln-337"></a><span class="k">            call </span><span class="n">setup_construct_system</span><span class="p">(</span><span class="n">tmpsys</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-338"></a>            <span class="k">deallocate</span><span class="p">(</span><span class="n">tmpsys</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-339"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">tmpsys</span><span class="p">%</span><span class="n">cb</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-340"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">ltmp</span><span class="p">(</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-341"></a>            <span class="n">ltmp</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-342"></a>            <span class="k">call </span><span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="n">npl_new</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-343"></a>            <span class="k">call </span><span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">fill</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">ltmp</span><span class="p">)</span>
-<a name="ln-344"></a>            <span class="k">deallocate</span><span class="p">(</span><span class="n">ltmp</span><span class="p">)</span>
-<a name="ln-345"></a>      
-<a name="ln-346"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">linclude_fragments</span><span class="p">)</span> <span class="k">then</span> <span class="c">! Append the fragments if they are included</span>
-<a name="ln-347"></a>               <span class="c">! Energy calculation requires the fragments to be in the system barcyentric frame, s</span>
-<a name="ln-348"></a>               <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">npl</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span>
-<a name="ln-349"></a>               <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">npl</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span> <span class="n">rad_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span>
-<a name="ln-350"></a>               <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="n">npl</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span>  <span class="n">xb_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span>
-<a name="ln-351"></a>               <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">npl</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span>  <span class="n">vb_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span>
-<a name="ln-352"></a>               <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">npl</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span> <span class="n">COLLISION</span>
-<a name="ln-353"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-354"></a><span class="k">                  </span><span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,</span><span class="n">npl</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span> <span class="n">Ip_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span>
-<a name="ln-355"></a>                  <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,</span><span class="n">npl</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span> <span class="n">rot_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span>
-<a name="ln-356"></a>               <span class="k">end if</span>
-<a name="ln-357"></a><span class="k">               call </span><span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">b2h</span><span class="p">(</span><span class="n">tmpsys</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-358"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">ltmp</span><span class="p">(</span><span class="n">npl_new</span><span class="p">))</span>
-<a name="ln-359"></a>               <span class="n">ltmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">lexclude</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span>
-<a name="ln-360"></a>               <span class="n">ltmp</span><span class="p">(</span><span class="n">npl</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-361"></a>               <span class="k">call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">ltmp</span><span class="p">,</span> <span class="n">lexclude</span><span class="p">)</span>
-<a name="ln-362"></a>            <span class="k">end if</span>
-<a name="ln-363"></a><span class="k">      </span>
-<a name="ln-364"></a><span class="k">            where</span> <span class="p">(</span><span class="n">lexclude</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">))</span>
-<a name="ln-365"></a>               <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span> <span class="n">INACTIVE</span>
-<a name="ln-366"></a>            <span class="k">end where</span>
-<a name="ln-367"></a><span class="k">     </span>
-<a name="ln-368"></a><span class="k">            select type</span><span class="p">(</span><span class="n">plwksp</span> <span class="o">=&gt;</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-369"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-370"></a>               <span class="k">select type</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
-<a name="ln-371"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">symba_parameters</span><span class="p">)</span>
-<a name="ln-372"></a>                  <span class="n">plwksp</span><span class="p">%</span><span class="n">nplm</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">plwksp</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">mtiny</span> <span class="o">/</span> <span class="n">mscale</span><span class="p">)</span>
-<a name="ln-373"></a>               <span class="k">end select</span>
-<a name="ln-374"></a><span class="k">            end select</span>
-<a name="ln-375"></a><span class="k">            call </span><span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">eucl_index</span><span class="p">()</span>
-<a name="ln-376"></a>            <span class="k">call </span><span class="n">tmpsys</span><span class="p">%</span><span class="n">get_energy_and_momentum</span><span class="p">(</span><span class="n">param</span><span class="p">)</span> 
-<a name="ln-377"></a>      
-<a name="ln-378"></a>            <span class="c">! Restore the big array</span>
-<a name="ln-379"></a>            <span class="k">deallocate</span><span class="p">(</span><span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">k_plpl</span><span class="p">)</span> 
-<a name="ln-380"></a>            <span class="k">select type</span><span class="p">(</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-381"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-382"></a>               <span class="k">select type</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
-<a name="ln-383"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">symba_parameters</span><span class="p">)</span>
-<a name="ln-384"></a>                  <span class="n">nplm</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">mass</span> <span class="o">&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">mtiny</span><span class="p">)</span>
-<a name="ln-385"></a>               <span class="k">end select</span>
-<a name="ln-386"></a><span class="k">            end select</span>
-<a name="ln-387"></a><span class="k">            if</span> <span class="p">(</span><span class="n">lk_plpl</span><span class="p">)</span> <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">eucl_index</span><span class="p">()</span>
+<a name="ln-319"></a>
+<a name="ln-320"></a>         <span class="k">subroutine </span><span class="n">construct_temporary_system</span><span class="p">()</span>
+<a name="ln-321"></a>            <span class="c">!! Author: David A. Minton</span>
+<a name="ln-322"></a>            <span class="c">!!</span>
+<a name="ln-323"></a>            <span class="c">!! Constructs a temporary internal system consisting of active bodies and additional fragments. This internal temporary system is used to calculate system energy with and without fragments</span>
+<a name="ln-324"></a>            <span class="c">!! and optionally including fragments.</span>
+<a name="ln-325"></a>            <span class="k">implicit none</span>
+<a name="ln-326"></a>            <span class="c">! Internals</span>
+<a name="ln-327"></a>            <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">lexclude_tmp</span>
+<a name="ln-328"></a>
+<a name="ln-329"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">cb</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-330"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">size</span><span class="p">(</span><span class="n">lexclude</span><span class="p">)</span> <span class="o">/=</span> <span class="n">npl</span> <span class="o">+</span> <span class="n">nfrag</span><span class="p">)</span> <span class="k">then </span>
+<a name="ln-331"></a><span class="k">                  allocate</span><span class="p">(</span><span class="n">lexclude_tmp</span><span class="p">(</span><span class="n">npl_new</span><span class="p">))</span>
+<a name="ln-332"></a>                  <span class="n">lexclude_tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">lexclude</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span>
+<a name="ln-333"></a>                  <span class="k">call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">lexclude_tmp</span><span class="p">,</span> <span class="n">lexclude</span><span class="p">)</span>
+<a name="ln-334"></a>               <span class="k">end if</span>
+<a name="ln-335"></a><span class="k">               where</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">==</span> <span class="n">INACTIVE</span><span class="p">)</span> <span class="c">! Safety check in case one of the included bodies has been previously deactivated </span>
+<a name="ln-336"></a>                  <span class="n">lexclude</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>  
+<a name="ln-337"></a>               <span class="n">elsewhere</span>
+<a name="ln-338"></a>                  <span class="n">lexclude</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> 
+<a name="ln-339"></a>               <span class="k">end where</span>
+<a name="ln-340"></a><span class="k">               </span><span class="n">lexclude</span><span class="p">(</span><span class="n">npl</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-341"></a>               <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tmpparam</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">tmpparam</span><span class="p">)</span> 
+<a name="ln-342"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">tmpparam</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-343"></a>               <span class="k">call </span><span class="n">setup_construct_system</span><span class="p">(</span><span class="n">tmpsys</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-344"></a>               <span class="k">call </span><span class="n">tmpsys</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">0</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-345"></a>               <span class="k">deallocate</span><span class="p">(</span><span class="n">tmpsys</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-346"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">tmpsys</span><span class="p">%</span><span class="n">cb</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-347"></a>               <span class="k">call </span><span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="n">npl</span> <span class="o">+</span> <span class="n">nfrag</span><span class="p">,</span> <span class="n">tmpparam</span><span class="p">)</span>
+<a name="ln-348"></a>               <span class="k">call </span><span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">fill</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="p">.</span><span class="nb">not</span><span class="p">.</span><span class="n">lexclude</span><span class="p">)</span>
+<a name="ln-349"></a>               <span class="k">call </span><span class="n">tmpsys</span><span class="p">%</span><span class="n">rescale</span><span class="p">(</span><span class="n">tmpparam</span><span class="p">,</span> <span class="n">mscale</span><span class="p">,</span> <span class="n">dscale</span><span class="p">,</span> <span class="n">tscale</span><span class="p">)</span>
+<a name="ln-350"></a>
+<a name="ln-351"></a>            <span class="k">end associate</span>
+<a name="ln-352"></a>
+<a name="ln-353"></a><span class="k">         return</span>
+<a name="ln-354"></a><span class="k">         end subroutine </span><span class="n">construct_temporary_system</span>
+<a name="ln-355"></a>
+<a name="ln-356"></a>
+<a name="ln-357"></a>         <span class="k">subroutine </span><span class="n">add_fragments_to_tmpsys</span><span class="p">()</span>
+<a name="ln-358"></a>            <span class="c">!! Author: David A. Minton</span>
+<a name="ln-359"></a>            <span class="c">!!</span>
+<a name="ln-360"></a>            <span class="c">!! Adds fragments to the temporary system pl object</span>
+<a name="ln-361"></a>            <span class="k">implicit none</span>
+<a name="ln-362"></a>            <span class="c">! Internals</span>
+<a name="ln-363"></a>            <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-364"></a>
+<a name="ln-365"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-366"></a>
+<a name="ln-367"></a>               <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">npl</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span>
+<a name="ln-368"></a>               <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">npl</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">*</span> <span class="n">tmpparam</span><span class="p">%</span><span class="n">GU</span>
+<a name="ln-369"></a>               <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">npl</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span> <span class="n">rad_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span>
+<a name="ln-370"></a>               <span class="k">do </span><span class="n">concurrent</span> <span class="p">(</span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span>
+<a name="ln-371"></a>                  <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="n">npl</span><span class="o">+</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span>  <span class="n">xb_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> 
+<a name="ln-372"></a>                  <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">npl</span><span class="o">+</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span>  <span class="n">vb_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> 
+<a name="ln-373"></a>                  <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">npl</span><span class="o">+</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span>  <span class="n">xb_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">(:)</span>
+<a name="ln-374"></a>                  <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">npl</span><span class="o">+</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span>  <span class="n">vb_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:)</span>
+<a name="ln-375"></a>               <span class="k">end do</span>
+<a name="ln-376"></a><span class="k">               if</span> <span class="p">(</span><span class="n">tmpparam</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-377"></a><span class="k">                  </span><span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,</span><span class="n">npl</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span> <span class="n">Ip_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span>
+<a name="ln-378"></a>                  <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,</span><span class="n">npl</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span> <span class="n">rot_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span>
+<a name="ln-379"></a>               <span class="k">end if</span>
+<a name="ln-380"></a>               <span class="c">! Disable the collisional family for subsequent energy calculations and coordinate shifts</span>
+<a name="ln-381"></a>               <span class="n">lexclude</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-382"></a>               <span class="n">lexclude</span><span class="p">(</span><span class="n">npl</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-383"></a>               <span class="k">where</span><span class="p">(</span><span class="n">lexclude</span><span class="p">(:))</span> 
+<a name="ln-384"></a>                  <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">INACTIVE</span>
+<a name="ln-385"></a>               <span class="n">elsewhere</span>
+<a name="ln-386"></a>                  <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
+<a name="ln-387"></a>               <span class="k">end where</span>
 <a name="ln-388"></a>
-<a name="ln-389"></a>            <span class="c">! Calculate the current fragment energy and momentum balances</span>
-<a name="ln-390"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">linclude_fragments</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-391"></a><span class="k">               </span><span class="n">Ltot_after</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">Lorbit</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">Lspin</span><span class="p">(:)</span>
-<a name="ln-392"></a>               <span class="n">Lmag_after</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">Ltot_after</span><span class="p">(:))</span>
-<a name="ln-393"></a>               <span class="n">ke_orbit_after</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">ke_orbit</span>
-<a name="ln-394"></a>               <span class="n">ke_spin_after</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">ke_spin</span>
-<a name="ln-395"></a>               <span class="n">pe_after</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">pe</span>
-<a name="ln-396"></a>               <span class="n">Etot_after</span> <span class="o">=</span> <span class="n">ke_orbit_after</span> <span class="o">+</span> <span class="n">ke_spin_after</span> <span class="o">+</span> <span class="n">pe_after</span>
-<a name="ln-397"></a>               <span class="n">dEtot</span> <span class="o">=</span> <span class="n">Etot_after</span> <span class="o">-</span> <span class="n">Etot_before</span> 
-<a name="ln-398"></a>               <span class="n">dLmag</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">Ltot_after</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">Ltot_before</span><span class="p">(:))</span> 
-<a name="ln-399"></a>            <span class="k">else</span>
-<a name="ln-400"></a><span class="k">               </span><span class="n">Ltot_before</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">Lorbit</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">Lspin</span><span class="p">(:)</span>
-<a name="ln-401"></a>               <span class="n">Lmag_before</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">Ltot_before</span><span class="p">(:))</span>
-<a name="ln-402"></a>               <span class="n">ke_orbit_before</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">ke_orbit</span>
-<a name="ln-403"></a>               <span class="n">ke_spin_before</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">ke_spin</span>
-<a name="ln-404"></a>               <span class="n">pe_before</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">pe</span>
-<a name="ln-405"></a>               <span class="n">Etot_before</span> <span class="o">=</span> <span class="n">ke_orbit_before</span> <span class="o">+</span> <span class="n">ke_spin_before</span> <span class="o">+</span> <span class="n">pe_before</span>
-<a name="ln-406"></a>            <span class="k">end if</span>
-<a name="ln-407"></a><span class="k">         end associate</span>
-<a name="ln-408"></a><span class="k">      return</span>
-<a name="ln-409"></a><span class="k">      end subroutine </span><span class="n">calculate_system_energy</span>
-<a name="ln-410"></a>
-<a name="ln-411"></a>      <span class="k">subroutine </span><span class="n">shift_vector_to_origin</span><span class="p">(</span><span class="n">m_frag</span><span class="p">,</span> <span class="n">vec_frag</span><span class="p">)</span>
-<a name="ln-412"></a>         <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
-<a name="ln-413"></a>         <span class="c">!!</span>
-<a name="ln-414"></a>         <span class="c">!! Adjusts the position or velocity of the fragments as needed to align them with the origin</span>
-<a name="ln-415"></a>         <span class="k">implicit none</span>
-<a name="ln-416"></a>         <span class="c">! Arguments</span>
-<a name="ln-417"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">m_frag</span>    <span class="c">!! Fragment masses</span>
-<a name="ln-418"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">vec_frag</span>  <span class="c">!! Fragment positions or velocities in the center of mass frame</span>
-<a name="ln-419"></a>
-<a name="ln-420"></a>         <span class="c">! Internals</span>
-<a name="ln-421"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>               <span class="kd">::</span> <span class="n">mvec_frag</span><span class="p">,</span> <span class="n">COM_offset</span>
-<a name="ln-422"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                            <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-423"></a>
-<a name="ln-424"></a>         <span class="n">mvec_frag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-425"></a>
-<a name="ln-426"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-427"></a>            <span class="n">mvec_frag</span> <span class="o">=</span> <span class="n">mvec_frag</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">vec_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-428"></a>         <span class="k">end do</span>
-<a name="ln-429"></a><span class="k">         </span><span class="n">COM_offset</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="n">mvec_frag</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">mtot</span>
-<a name="ln-430"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span> 
-<a name="ln-431"></a>            <span class="n">vec_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">vec_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">COM_offset</span><span class="p">(:)</span>
-<a name="ln-432"></a>         <span class="k">end do</span>
-<a name="ln-433"></a>
-<a name="ln-434"></a><span class="k">         return</span>
-<a name="ln-435"></a><span class="k">      end subroutine </span><span class="n">shift_vector_to_origin</span>
+<a name="ln-389"></a><span class="k">            end associate</span>
+<a name="ln-390"></a>
+<a name="ln-391"></a><span class="k">            return</span>
+<a name="ln-392"></a><span class="k">         end subroutine </span><span class="n">add_fragments_to_tmpsys</span>
+<a name="ln-393"></a>
+<a name="ln-394"></a>
+<a name="ln-395"></a>         <span class="k">subroutine </span><span class="n">calculate_system_energy</span><span class="p">(</span><span class="n">linclude_fragments</span><span class="p">)</span>
+<a name="ln-396"></a>            <span class="c">!! Author: David A. Minton</span>
+<a name="ln-397"></a>            <span class="c">!!</span>
+<a name="ln-398"></a>            <span class="c">!! Calculates total system energy, including all bodies in the pl list that do not have a corresponding value of the lexclude array that is true</span>
+<a name="ln-399"></a>            <span class="c">!! and optionally including fragments.</span>
+<a name="ln-400"></a>            <span class="k">implicit none</span>
+<a name="ln-401"></a>            <span class="c">! Arguments</span>
+<a name="ln-402"></a>            <span class="kt">logical</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">linclude_fragments</span>
+<a name="ln-403"></a>            <span class="c">! Internals</span>
+<a name="ln-404"></a>            <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">nplm</span>
+<a name="ln-405"></a>            <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">lexclude_tmp</span>
+<a name="ln-406"></a>            <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lk_plpl</span>
+<a name="ln-407"></a>
+<a name="ln-408"></a>            <span class="c">! Because we&#39;re making a copy of symba_pl with the excludes/fragments appended, we need to deallocate the</span>
+<a name="ln-409"></a>            <span class="c">! big k_plpl array and recreate it when we&#39;re done, otherwise we run the risk of blowing up the memory by</span>
+<a name="ln-410"></a>            <span class="c">! allocating two of these ginormous arrays simulteouously. This is not particularly efficient, but as this</span>
+<a name="ln-411"></a>            <span class="c">! subroutine should be called relatively infrequently, it shouldn&#39;t matter too much.</span>
+<a name="ln-412"></a>
+<a name="ln-413"></a>            <span class="c">! Build the internal planet list out of the non-excluded bodies and optionally with fragments appended. This</span>
+<a name="ln-414"></a>            <span class="c">! will get passed to the energy calculation subroutine so that energy is computed exactly the same way is it</span>
+<a name="ln-415"></a>            <span class="c">! is in the main program. This will temporarily expand the planet list in a temporary system object called tmpsys to feed it into symba_energy</span>
+<a name="ln-416"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">cb</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-417"></a>
+<a name="ln-418"></a>               <span class="k">where</span> <span class="p">(</span><span class="n">lexclude</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">))</span>
+<a name="ln-419"></a>                  <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span> <span class="n">INACTIVE</span>
+<a name="ln-420"></a>               <span class="n">elsewhere</span>
+<a name="ln-421"></a>                  <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl_new</span><span class="p">)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
+<a name="ln-422"></a>               <span class="k">end where</span>
+<a name="ln-423"></a><span class="k">      </span>
+<a name="ln-424"></a><span class="k">               select type</span><span class="p">(</span><span class="n">plwksp</span> <span class="o">=&gt;</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-425"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-426"></a>                  <span class="k">select type</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-427"></a>                  <span class="k">class is</span> <span class="p">(</span><span class="n">symba_parameters</span><span class="p">)</span>
+<a name="ln-428"></a>                     <span class="n">plwksp</span><span class="p">%</span><span class="n">nplm</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">plwksp</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">Gmtiny</span> <span class="o">/</span> <span class="n">mscale</span><span class="p">)</span>
+<a name="ln-429"></a>                  <span class="k">end select</span>
+<a name="ln-430"></a><span class="k">               end select</span>
+<a name="ln-431"></a>
+<a name="ln-432"></a><span class="k">               </span><span class="n">lk_plpl</span> <span class="o">=</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">k_plpl</span><span class="p">)</span>
+<a name="ln-433"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">lk_plpl</span><span class="p">)</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">k_plpl</span><span class="p">)</span>
+<a name="ln-434"></a>
+<a name="ln-435"></a>               <span class="k">call </span><span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">eucl_index</span><span class="p">()</span>
 <a name="ln-436"></a>
-<a name="ln-437"></a>      <span class="k">subroutine </span><span class="n">set_fragment_position_vectors</span><span class="p">()</span>
-<a name="ln-438"></a>         <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
-<a name="ln-439"></a>         <span class="c">!!</span>
-<a name="ln-440"></a>         <span class="c">!! Initializes the orbits of the fragments around the center of mass. The fragments are initially placed on a plane defined by the </span>
-<a name="ln-441"></a>         <span class="c">!! pre-impact angular momentum. They are distributed on an ellipse surrounding the center of mass.</span>
-<a name="ln-442"></a>         <span class="c">!! The initial positions do not conserve energy or momentum, so these need to be adjusted later.</span>
-<a name="ln-443"></a>
-<a name="ln-444"></a>         <span class="k">implicit none</span>
-<a name="ln-445"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">dis</span><span class="p">,</span> <span class="n">rad</span>
-<a name="ln-446"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span>  <span class="n">L_sigma</span>
-<a name="ln-447"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">loverlap</span>
-<a name="ln-448"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
-<a name="ln-449"></a>
-<a name="ln-450"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">loverlap</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-451"></a>
-<a name="ln-452"></a>         <span class="c">! Place the fragments into a region that is big enough that we should usually not have overlapping bodies</span>
-<a name="ln-453"></a>         <span class="c">! An overlapping bodies will collide in the next time step, so it&#39;s not a major problem if they do (it just slows the run down)</span>
-<a name="ln-454"></a>         <span class="n">r_max</span> <span class="o">=</span> <span class="n">r_max_start</span>
-<a name="ln-455"></a>         <span class="n">rad</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">radius</span><span class="p">(:))</span>
-<a name="ln-456"></a>
-<a name="ln-457"></a>         <span class="c">! We will treat the first two fragments of the list as special cases. They get initialized the maximum distances apart along the original impactor distance vector.</span>
-<a name="ln-458"></a>         <span class="c">! This is done because in a regular disruption, the first body is the largest, the second the second largest, and the rest are smaller equal-mass fragments.</span>
-<a name="ln-459"></a>
-<a name="ln-460"></a>         <span class="k">call </span><span class="nb">random_number</span><span class="p">(</span><span class="n">x_frag</span><span class="p">(:,</span><span class="mi">3</span><span class="p">:</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-461"></a>         <span class="n">loverlap</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-462"></a>         <span class="k">do while</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">loverlap</span><span class="p">(</span><span class="mi">3</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)))</span>
-<a name="ln-463"></a>            <span class="n">x_frag</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span> <span class="o">-</span> <span class="n">xcom</span><span class="p">(:)</span> 
-<a name="ln-464"></a>            <span class="n">x_frag</span><span class="p">(:,</span> <span class="mi">2</span><span class="p">)</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:,</span> <span class="mi">2</span><span class="p">)</span> <span class="o">-</span> <span class="n">xcom</span><span class="p">(:)</span> 
-<a name="ln-465"></a>            <span class="n">r_max</span> <span class="o">=</span> <span class="n">r_max</span> <span class="o">+</span> <span class="mf">0.1_DP</span> <span class="o">*</span> <span class="n">rad</span>
-<a name="ln-466"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">3</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-467"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">loverlap</span><span class="p">(</span><span class="n">i</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-468"></a><span class="k">                  call </span><span class="nb">random_number</span><span class="p">(</span><span class="n">x_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-469"></a>                  <span class="n">x_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="p">(</span><span class="n">x_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="mf">0.5_DP</span><span class="p">)</span> <span class="o">*</span> <span class="n">r_max</span> 
-<a name="ln-470"></a>               <span class="k">end if</span>
-<a name="ln-471"></a><span class="k">            end do</span>
-<a name="ln-472"></a><span class="k">            </span><span class="n">loverlap</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-473"></a>            <span class="k">do </span><span class="n">j</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-474"></a>               <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-475"></a>                  <span class="n">dis</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">x_frag</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">x_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-476"></a>                  <span class="n">loverlap</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">loverlap</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">dis</span> <span class="o">&lt;=</span> <span class="p">(</span><span class="n">rad_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">rad_frag</span><span class="p">(</span><span class="n">j</span><span class="p">)))</span> 
-<a name="ln-477"></a>               <span class="k">end do</span>
-<a name="ln-478"></a><span class="k">            end do</span>
-<a name="ln-479"></a><span class="k">         end do</span>
-<a name="ln-480"></a><span class="k">         call </span><span class="n">shift_vector_to_origin</span><span class="p">(</span><span class="n">m_frag</span><span class="p">,</span> <span class="n">x_frag</span><span class="p">)</span>
-<a name="ln-481"></a>
-<a name="ln-482"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-483"></a>            <span class="n">rmag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">x_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
-<a name="ln-484"></a>            <span class="n">v_r_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">x_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">/</span> <span class="n">rmag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-485"></a>            <span class="k">call </span><span class="nb">random_number</span><span class="p">(</span><span class="n">L_sigma</span><span class="p">(:))</span> <span class="c">! Randomize the tangential velocity direction. This helps to ensure that the tangential velocity doesn&#39;t completely line up with the angular momentum vector,</span>
-<a name="ln-486"></a>                                          <span class="c">! otherwise we can get an ill-conditioned system</span>
-<a name="ln-487"></a>            <span class="n">v_h_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">z_col_unit</span><span class="p">(:)</span> <span class="o">+</span> <span class="mf">2e-1_DP</span> <span class="o">*</span> <span class="p">(</span><span class="n">L_sigma</span><span class="p">(:)</span> <span class="o">-</span> <span class="mf">0.5_DP</span><span class="p">)</span>
-<a name="ln-488"></a>            <span class="n">v_h_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">v_h_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">v_h_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span> 
-<a name="ln-489"></a>            <span class="n">v_t_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">v_h_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">v_r_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-490"></a>            <span class="n">xb_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">x_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">xcom</span><span class="p">(:)</span>
-<a name="ln-491"></a>         <span class="k">end do</span>
-<a name="ln-492"></a>
-<a name="ln-493"></a><span class="k">         return</span>
-<a name="ln-494"></a><span class="k">      end subroutine </span><span class="n">set_fragment_position_vectors</span>
-<a name="ln-495"></a>
-<a name="ln-496"></a>      <span class="k">subroutine </span><span class="n">set_fragment_tan_vel</span><span class="p">(</span><span class="n">lerr</span><span class="p">)</span>
-<a name="ln-497"></a>         <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
-<a name="ln-498"></a>         <span class="c">!!</span>
-<a name="ln-499"></a>         <span class="c">!! Adjusts the tangential velocities and spins of a collection of fragments such that they conserve angular momentum without blowing the fragment kinetic energy budget.</span>
-<a name="ln-500"></a>         <span class="c">!! This procedure works in several stages, with a goal to solve the angular and linear momentum constraints on the fragments, while still leaving a positive balance of</span>
-<a name="ln-501"></a>         <span class="c">!! our fragment kinetic energy (ke_frag_budget) that we can put into the radial velocity distribution.</span>
-<a name="ln-502"></a>         <span class="c">!!</span>
-<a name="ln-503"></a>         <span class="c">!! The first thing we&#39;ll try to do is solve for the tangential velocities of the first 6 fragments, using angular and linear momentum as constraints and an initial</span>
-<a name="ln-504"></a>         <span class="c">!! tangential velocity distribution for the remaining bodies (if there are any) that distributes their angular momentum equally between them.</span>
-<a name="ln-505"></a>         <span class="c">!! If that doesn&#39;t work and we blow our kinetic energy budget, we will attempt to find a tangential velocity distribution that minimizes the kinetic energy while</span>
-<a name="ln-506"></a>         <span class="c">!! conserving momentum. </span>
-<a name="ln-507"></a>         <span class="c">!!</span>
-<a name="ln-508"></a>         <span class="c">!! A failure will trigger a restructuring of the fragments so we will try new values of the radial position distribution.</span>
-<a name="ln-509"></a>         <span class="k">implicit none</span>
-<a name="ln-510"></a>         <span class="c">! Arguments</span>
-<a name="ln-511"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">lerr</span>
-<a name="ln-512"></a>         <span class="c">! Internals</span>
-<a name="ln-513"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-514"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>                  <span class="kd">::</span> <span class="n">TOL</span> <span class="o">=</span> <span class="mf">1e-4_DP</span>
-<a name="ln-515"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">v_t_initial</span>
-<a name="ln-516"></a>         <span class="k">type</span><span class="p">(</span><span class="n">lambda_obj</span><span class="p">)</span>                     <span class="kd">::</span> <span class="n">spinfunc</span>
-<a name="ln-517"></a>         <span class="k">type</span><span class="p">(</span><span class="n">lambda_obj_err</span><span class="p">)</span>                 <span class="kd">::</span> <span class="n">objective_function</span>
-<a name="ln-518"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">L_frag_spin</span><span class="p">,</span> <span class="n">L_remainder</span><span class="p">,</span> <span class="n">Li</span><span class="p">,</span> <span class="n">rot_L</span><span class="p">,</span> <span class="n">rot_ke</span>
-<a name="ln-519"></a>
-<a name="ln-520"></a>         <span class="c">! Initialize the fragments with 0 velocity and spin so we can divide up the balance between the tangential, radial, and spin components while conserving momentum</span>
-<a name="ln-521"></a>         <span class="n">lerr</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-522"></a>         <span class="n">vb_frag</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-523"></a>         <span class="n">rot_frag</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-524"></a>         <span class="n">v_t_mag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-525"></a>         <span class="n">v_r_mag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-526"></a>
-<a name="ln-527"></a>         <span class="k">call </span><span class="n">calculate_system_energy</span><span class="p">(</span><span class="n">linclude_fragments</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
-<a name="ln-528"></a>         <span class="n">ke_frag_budget</span> <span class="o">=</span> <span class="o">-</span><span class="n">dEtot</span> <span class="o">-</span> <span class="n">Qloss</span>
-<a name="ln-529"></a>         <span class="c">!write(*,*) &#39;***************************************************&#39;</span>
-<a name="ln-530"></a>         <span class="c">!write(*,*) &#39;Original dis   : &#39;,norm2(x(:,2) - x(:,1))</span>
-<a name="ln-531"></a>         <span class="c">!write(*,*) &#39;r_max          : &#39;,r_max</span>
-<a name="ln-532"></a>         <span class="c">!write(*,*) &#39;f_spin         : &#39;,f_spin</span>
-<a name="ln-533"></a>         <span class="c">!write(*,*) &#39;***************************************************&#39;</span>
-<a name="ln-534"></a>         <span class="c">!write(*,*) &#39;Energy balance so far: &#39;</span>
-<a name="ln-535"></a>         <span class="c">!write(*,*) &#39;ke_frag_budget : &#39;,ke_frag_budget</span>
-<a name="ln-536"></a>         <span class="c">!write(*,*) &#39;ke_orbit_before: &#39;,ke_orbit_before </span>
-<a name="ln-537"></a>         <span class="c">!write(*,*) &#39;ke_orbit_after : &#39;,ke_orbit_after  </span>
-<a name="ln-538"></a>         <span class="c">!write(*,*) &#39;ke_spin_before : &#39;,ke_spin_before </span>
-<a name="ln-539"></a>         <span class="c">!write(*,*) &#39;ke_spin_after  : &#39;,ke_spin_after  </span>
-<a name="ln-540"></a>         <span class="c">!write(*,*) &#39;pe_before      : &#39;,pe_before </span>
-<a name="ln-541"></a>         <span class="c">!write(*,*) &#39;pe_after       : &#39;,pe_after  </span>
-<a name="ln-542"></a>         <span class="c">!write(*,*) &#39;Qloss          : &#39;,Qloss</span>
-<a name="ln-543"></a>         <span class="c">!write(*,*) &#39;***************************************************&#39;</span>
-<a name="ln-544"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ke_frag_budget</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-545"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Negative ke_frag_budget: &#39;</span><span class="p">,</span><span class="n">ke_frag_budget</span>
-<a name="ln-546"></a>            <span class="n">r_max_start</span> <span class="o">=</span> <span class="n">r_max_start</span> <span class="o">/</span> <span class="mi">2</span> 
-<a name="ln-547"></a>            <span class="n">lerr</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-548"></a>            <span class="k">return</span>
-<a name="ln-549"></a><span class="k">         end if</span>
-<a name="ln-550"></a>
-<a name="ln-551"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">v_t_initial</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">v_t_mag</span><span class="p">)</span>
-<a name="ln-552"></a>
-<a name="ln-553"></a>         <span class="n">L_frag_spin</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-554"></a>         <span class="n">ke_frag_spin</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-555"></a>         <span class="c">! Start the first two bodies with the same rotation as the original two impactors, then distribute the remaining angular momentum among the rest</span>
-<a name="ln-556"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">2</span>
-<a name="ln-557"></a>            <span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">rot</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-558"></a>            <span class="n">L_frag_spin</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_frag_spin</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rad_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">Ip_frag</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-559"></a>         <span class="k">end do</span>
-<a name="ln-560"></a><span class="k">         </span><span class="n">L_frag_orb</span><span class="p">(:)</span> <span class="o">=</span>  <span class="n">L_frag_tot</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">L_frag_spin</span><span class="p">(:)</span>
-<a name="ln-561"></a>         <span class="n">L_frag_spin</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-562"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-563"></a>            <span class="c">! Convert a fraction (f_spin) of either the remaining angular momentum or kinetic energy budget into spin, whichever gives the smaller rotation so as not to blow any budgets</span>
-<a name="ln-564"></a>            <span class="n">rot_ke</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">f_spin</span> <span class="o">*</span> <span class="n">ke_frag_budget</span> <span class="o">/</span> <span class="p">(</span><span class="n">nfrag</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rad_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">Ip_frag</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)))</span> <span class="o">*</span> <span class="n">L_frag_orb</span><span class="p">(:)</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">L_frag_orb</span><span class="p">(:))</span>
-<a name="ln-565"></a>            <span class="n">rot_L</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">f_spin</span> <span class="o">*</span> <span class="n">L_frag_orb</span><span class="p">(:)</span> <span class="o">/</span> <span class="p">(</span><span class="n">nfrag</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rad_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">Ip_frag</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">))</span>
-<a name="ln-566"></a>            <span class="k">if</span> <span class="p">(</span><span class="nb">norm2</span><span class="p">(</span><span class="n">rot_ke</span><span class="p">)</span> <span class="o">&lt;</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">rot_L</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-567"></a><span class="k">               </span><span class="n">rot_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">rot_ke</span><span class="p">(:)</span>
-<a name="ln-568"></a>            <span class="k">else</span>
-<a name="ln-569"></a><span class="k">               </span><span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">rot_L</span><span class="p">(:)</span>
-<a name="ln-570"></a>            <span class="k">end if</span>
-<a name="ln-571"></a><span class="k">            </span><span class="n">L_frag_spin</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_frag_spin</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rad_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">Ip_frag</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-572"></a>            <span class="n">ke_frag_spin</span> <span class="o">=</span> <span class="n">ke_frag_spin</span> <span class="o">+</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">Ip_frag</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rad_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
-<a name="ln-573"></a>         <span class="k">end do</span>
-<a name="ln-574"></a><span class="k">         </span><span class="n">ke_frag_spin</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">ke_frag_spin</span>
-<a name="ln-575"></a>         <span class="c">! Convert a fraction of the pre-impact angular momentum into fragment spin angular momentum</span>
-<a name="ln-576"></a>         <span class="n">L_frag_orb</span><span class="p">(:)</span> <span class="o">=</span>  <span class="n">L_frag_tot</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">L_frag_spin</span><span class="p">(:)</span>
-<a name="ln-577"></a>         <span class="n">L_remainder</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_frag_orb</span><span class="p">(:)</span>
-<a name="ln-578"></a>         <span class="c">! Next we will solve for the tangential component of the velocities that both conserves linear momentum and uses the remaining angular momentum not used in spin.</span>
-<a name="ln-579"></a>         <span class="c">! This will be done using a linear solver that solves for the tangential velocities of the first 6 fragments, constrained by the linear and angular momentum vectors, </span>
-<a name="ln-580"></a>         <span class="c">! which is embedded in a non-linear minimizer that will adjust the tangential velocities of the remaining i&gt;6 fragments to minimize kinetic energy for a given momentum solution</span>
-<a name="ln-581"></a>         <span class="c">! The initial conditions fed to the minimizer for the fragments will be the remaining angular momentum distributed between the fragments.</span>
-<a name="ln-582"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-583"></a>            <span class="n">v_t_initial</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">L_remainder</span><span class="p">(:))</span> <span class="o">/</span> <span class="p">((</span><span class="n">nfrag</span> <span class="o">-</span> <span class="n">i</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">x_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">)))</span>
-<a name="ln-584"></a>            <span class="n">Li</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">x_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">v_t_initial</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">v_t_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-585"></a>            <span class="n">L_remainder</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_remainder</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">Li</span><span class="p">(:)</span>
-<a name="ln-586"></a>         <span class="k">end do</span>
-<a name="ln-587"></a>
-<a name="ln-588"></a>         <span class="c">! Find the local kinetic energy minimum for the system that conserves linear and angular momentum</span>
-<a name="ln-589"></a>         <span class="n">objective_function</span> <span class="o">=</span> <span class="n">lambda_obj</span><span class="p">(</span><span class="n">tangential_objective_function</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-590"></a>         <span class="n">v_t_mag</span><span class="p">(</span><span class="mi">7</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">util_minimize_bfgs</span><span class="p">(</span><span class="n">objective_function</span><span class="p">,</span> <span class="n">nfrag</span><span class="o">-</span><span class="mi">6</span><span class="p">,</span> <span class="n">v_t_initial</span><span class="p">(</span><span class="mi">7</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">TOL</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-591"></a>         <span class="c">! Now that the KE-minimized values of the i&gt;6 fragments are found, calculate the momentum-conserving solution for tangential velociteis</span>
-<a name="ln-592"></a>         <span class="n">v_t_initial</span><span class="p">(</span><span class="mi">7</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">v_t_mag</span><span class="p">(</span><span class="mi">7</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span>
-<a name="ln-593"></a>         <span class="n">v_t_mag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">solve_fragment_tan_vel</span><span class="p">(</span><span class="n">v_t_mag_input</span><span class="o">=</span><span class="n">v_t_initial</span><span class="p">(</span><span class="mi">7</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">lerr</span><span class="o">=</span><span class="n">lerr</span><span class="p">)</span>
+<a name="ln-437"></a>               <span class="k">call </span><span class="n">tmpsys</span><span class="p">%</span><span class="n">get_energy_and_momentum</span><span class="p">(</span><span class="n">param</span><span class="p">)</span> 
+<a name="ln-438"></a>
+<a name="ln-439"></a>               <span class="c">! Restore the big array</span>
+<a name="ln-440"></a>               <span class="k">deallocate</span><span class="p">(</span><span class="n">tmpsys</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">k_plpl</span><span class="p">)</span> 
+<a name="ln-441"></a>               <span class="k">select type</span><span class="p">(</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-442"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-443"></a>                  <span class="k">select type</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-444"></a>                  <span class="k">class is</span> <span class="p">(</span><span class="n">symba_parameters</span><span class="p">)</span>
+<a name="ln-445"></a>                     <span class="n">pl</span><span class="p">%</span><span class="n">nplm</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">Gmtiny</span><span class="p">)</span>
+<a name="ln-446"></a>                  <span class="k">end select</span>
+<a name="ln-447"></a><span class="k">               end select</span>
+<a name="ln-448"></a>
+<a name="ln-449"></a><span class="k">               if</span> <span class="p">(</span><span class="n">lk_plpl</span><span class="p">)</span> <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">eucl_index</span><span class="p">()</span>
+<a name="ln-450"></a>
+<a name="ln-451"></a>               <span class="c">! Calculate the current fragment energy and momentum balances</span>
+<a name="ln-452"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">linclude_fragments</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-453"></a><span class="k">                  </span><span class="n">Ltot_after</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">Lorbit</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">Lspin</span><span class="p">(:)</span>
+<a name="ln-454"></a>                  <span class="n">Lmag_after</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">Ltot_after</span><span class="p">(:))</span>
+<a name="ln-455"></a>                  <span class="n">ke_orbit_after</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">ke_orbit</span>
+<a name="ln-456"></a>                  <span class="n">ke_spin_after</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">ke_spin</span>
+<a name="ln-457"></a>                  <span class="n">pe_after</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">pe</span>
+<a name="ln-458"></a>                  <span class="n">Etot_after</span> <span class="o">=</span> <span class="n">ke_orbit_after</span> <span class="o">+</span> <span class="n">ke_spin_after</span> <span class="o">+</span> <span class="n">pe_after</span>
+<a name="ln-459"></a>                  <span class="n">dEtot</span> <span class="o">=</span> <span class="n">Etot_after</span> <span class="o">-</span> <span class="n">Etot_before</span> 
+<a name="ln-460"></a>                  <span class="n">dLmag</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">Ltot_after</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">Ltot_before</span><span class="p">(:))</span> 
+<a name="ln-461"></a>               <span class="k">else</span>
+<a name="ln-462"></a><span class="k">                  </span><span class="n">Ltot_before</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">Lorbit</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">Lspin</span><span class="p">(:)</span>
+<a name="ln-463"></a>                  <span class="n">Lmag_before</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">Ltot_before</span><span class="p">(:))</span>
+<a name="ln-464"></a>                  <span class="n">ke_orbit_before</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">ke_orbit</span>
+<a name="ln-465"></a>                  <span class="n">ke_spin_before</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">ke_spin</span>
+<a name="ln-466"></a>                  <span class="n">pe_before</span> <span class="o">=</span> <span class="n">tmpsys</span><span class="p">%</span><span class="n">pe</span>
+<a name="ln-467"></a>                  <span class="n">Etot_before</span> <span class="o">=</span> <span class="n">ke_orbit_before</span> <span class="o">+</span> <span class="n">ke_spin_before</span> <span class="o">+</span> <span class="n">pe_before</span>
+<a name="ln-468"></a>               <span class="k">end if</span>
+<a name="ln-469"></a><span class="k">            end associate</span>
+<a name="ln-470"></a>
+<a name="ln-471"></a><span class="k">            return</span>
+<a name="ln-472"></a><span class="k">         end subroutine </span><span class="n">calculate_system_energy</span>
+<a name="ln-473"></a>
+<a name="ln-474"></a>
+<a name="ln-475"></a>         <span class="k">subroutine </span><span class="n">shift_vector_to_origin</span><span class="p">(</span><span class="n">m_frag</span><span class="p">,</span> <span class="n">vec_frag</span><span class="p">)</span>
+<a name="ln-476"></a>            <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-477"></a>            <span class="c">!!</span>
+<a name="ln-478"></a>            <span class="c">!! Adjusts the position or velocity of the fragments as needed to align them with the origin</span>
+<a name="ln-479"></a>            <span class="k">implicit none</span>
+<a name="ln-480"></a>            <span class="c">! Arguments</span>
+<a name="ln-481"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">m_frag</span>    <span class="c">!! Fragment masses</span>
+<a name="ln-482"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">vec_frag</span>  <span class="c">!! Fragment positions or velocities in the center of mass frame</span>
+<a name="ln-483"></a>
+<a name="ln-484"></a>            <span class="c">! Internals</span>
+<a name="ln-485"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>               <span class="kd">::</span> <span class="n">mvec_frag</span><span class="p">,</span> <span class="n">COM_offset</span>
+<a name="ln-486"></a>            <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                            <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-487"></a>
+<a name="ln-488"></a>            <span class="n">mvec_frag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-489"></a>
+<a name="ln-490"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-491"></a>               <span class="n">mvec_frag</span> <span class="o">=</span> <span class="n">mvec_frag</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">vec_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-492"></a>            <span class="k">end do</span>
+<a name="ln-493"></a><span class="k">            </span><span class="n">COM_offset</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="n">mvec_frag</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">mtot</span>
+<a name="ln-494"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span> 
+<a name="ln-495"></a>               <span class="n">vec_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">vec_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">COM_offset</span><span class="p">(:)</span>
+<a name="ln-496"></a>            <span class="k">end do</span>
+<a name="ln-497"></a>
+<a name="ln-498"></a><span class="k">            return</span>
+<a name="ln-499"></a><span class="k">         end subroutine </span><span class="n">shift_vector_to_origin</span>
+<a name="ln-500"></a>
+<a name="ln-501"></a>
+<a name="ln-502"></a>         <span class="k">subroutine </span><span class="n">set_fragment_position_vectors</span><span class="p">()</span>
+<a name="ln-503"></a>            <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-504"></a>            <span class="c">!!</span>
+<a name="ln-505"></a>            <span class="c">!! Initializes the orbits of the fragments around the center of mass. The fragments are initially placed on a plane defined by the </span>
+<a name="ln-506"></a>            <span class="c">!! pre-impact angular momentum. They are distributed on an ellipse surrounding the center of mass.</span>
+<a name="ln-507"></a>            <span class="c">!! The initial positions do not conserve energy or momentum, so these need to be adjusted later.</span>
+<a name="ln-508"></a>
+<a name="ln-509"></a>            <span class="k">implicit none</span>
+<a name="ln-510"></a><span class="k">            </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">dis</span><span class="p">,</span> <span class="n">rad</span>
+<a name="ln-511"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span>  <span class="n">L_sigma</span>
+<a name="ln-512"></a>            <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">loverlap</span>
+<a name="ln-513"></a>            <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
+<a name="ln-514"></a>
+<a name="ln-515"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">loverlap</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-516"></a>
+<a name="ln-517"></a>            <span class="c">! Place the fragments into a region that is big enough that we should usually not have overlapping bodies</span>
+<a name="ln-518"></a>            <span class="c">! An overlapping bodies will collide in the next time step, so it&#39;s not a major problem if they do (it just slows the run down)</span>
+<a name="ln-519"></a>            <span class="n">r_max</span> <span class="o">=</span> <span class="n">r_max_start</span>
+<a name="ln-520"></a>            <span class="n">rad</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">radius</span><span class="p">(:))</span>
+<a name="ln-521"></a>
+<a name="ln-522"></a>            <span class="c">! We will treat the first two fragments of the list as special cases. They get initialized the maximum distances apart along the original impactor distance vector.</span>
+<a name="ln-523"></a>            <span class="c">! This is done because in a regular disruption, the first body is the largest, the second the second largest, and the rest are smaller equal-mass fragments.</span>
+<a name="ln-524"></a>
+<a name="ln-525"></a>            <span class="k">call </span><span class="nb">random_number</span><span class="p">(</span><span class="n">x_frag</span><span class="p">(:,</span><span class="mi">3</span><span class="p">:</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-526"></a>            <span class="n">loverlap</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-527"></a>            <span class="k">do while</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">loverlap</span><span class="p">(</span><span class="mi">3</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)))</span>
+<a name="ln-528"></a>               <span class="n">x_frag</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span> <span class="o">-</span> <span class="n">xcom</span><span class="p">(:)</span> 
+<a name="ln-529"></a>               <span class="n">x_frag</span><span class="p">(:,</span> <span class="mi">2</span><span class="p">)</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:,</span> <span class="mi">2</span><span class="p">)</span> <span class="o">-</span> <span class="n">xcom</span><span class="p">(:)</span> 
+<a name="ln-530"></a>               <span class="n">r_max</span> <span class="o">=</span> <span class="n">r_max</span> <span class="o">+</span> <span class="mf">0.1_DP</span> <span class="o">*</span> <span class="n">rad</span>
+<a name="ln-531"></a>               <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">3</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-532"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">loverlap</span><span class="p">(</span><span class="n">i</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-533"></a><span class="k">                     call </span><span class="nb">random_number</span><span class="p">(</span><span class="n">x_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-534"></a>                     <span class="n">x_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="p">(</span><span class="n">x_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="mf">0.5_DP</span><span class="p">)</span> <span class="o">*</span> <span class="n">r_max</span> 
+<a name="ln-535"></a>                  <span class="k">end if</span>
+<a name="ln-536"></a><span class="k">               end do</span>
+<a name="ln-537"></a><span class="k">               </span><span class="n">loverlap</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-538"></a>               <span class="k">do </span><span class="n">j</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-539"></a>                  <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-540"></a>                     <span class="n">dis</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">x_frag</span><span class="p">(:,</span><span class="n">j</span><span class="p">)</span> <span class="o">-</span> <span class="n">x_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-541"></a>                     <span class="n">loverlap</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">loverlap</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">dis</span> <span class="o">&lt;=</span> <span class="p">(</span><span class="n">rad_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">rad_frag</span><span class="p">(</span><span class="n">j</span><span class="p">)))</span> 
+<a name="ln-542"></a>                  <span class="k">end do</span>
+<a name="ln-543"></a><span class="k">               end do</span>
+<a name="ln-544"></a><span class="k">            end do</span>
+<a name="ln-545"></a><span class="k">            call </span><span class="n">shift_vector_to_origin</span><span class="p">(</span><span class="n">m_frag</span><span class="p">,</span> <span class="n">x_frag</span><span class="p">)</span>
+<a name="ln-546"></a>
+<a name="ln-547"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-548"></a>               <span class="n">rmag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">x_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-549"></a>               <span class="n">v_r_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">x_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">/</span> <span class="n">rmag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-550"></a>               <span class="k">call </span><span class="nb">random_number</span><span class="p">(</span><span class="n">L_sigma</span><span class="p">(:))</span> <span class="c">! Randomize the tangential velocity direction. This helps to ensure that the tangential velocity doesn&#39;t completely line up with the angular momentum vector,</span>
+<a name="ln-551"></a>                                             <span class="c">! otherwise we can get an ill-conditioned system</span>
+<a name="ln-552"></a>               <span class="n">v_h_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">z_col_unit</span><span class="p">(:)</span> <span class="o">+</span> <span class="mf">2e-1_DP</span> <span class="o">*</span> <span class="p">(</span><span class="n">L_sigma</span><span class="p">(:)</span> <span class="o">-</span> <span class="mf">0.5_DP</span><span class="p">)</span>
+<a name="ln-553"></a>               <span class="n">v_h_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">v_h_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">v_h_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span> 
+<a name="ln-554"></a>               <span class="n">v_t_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">v_h_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">v_r_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-555"></a>               <span class="n">xb_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">x_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">xcom</span><span class="p">(:)</span>
+<a name="ln-556"></a>            <span class="k">end do</span>
+<a name="ln-557"></a>
+<a name="ln-558"></a><span class="k">            call </span><span class="n">add_fragments_to_tmpsys</span><span class="p">()</span>
+<a name="ln-559"></a>
+<a name="ln-560"></a>            <span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-561"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-562"></a>               <span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xcom</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">xb_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> 
+<a name="ln-563"></a>            <span class="k">end do</span>
+<a name="ln-564"></a><span class="k">            </span><span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xcom</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">mtot</span>
+<a name="ln-565"></a>
+<a name="ln-566"></a>            <span class="k">return</span>
+<a name="ln-567"></a><span class="k">         end subroutine </span><span class="n">set_fragment_position_vectors</span>
+<a name="ln-568"></a>
+<a name="ln-569"></a>
+<a name="ln-570"></a>         <span class="k">subroutine </span><span class="n">set_fragment_tan_vel</span><span class="p">(</span><span class="n">lerr</span><span class="p">)</span>
+<a name="ln-571"></a>            <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-572"></a>            <span class="c">!!</span>
+<a name="ln-573"></a>            <span class="c">!! Adjusts the tangential velocities and spins of a collection of fragments such that they conserve angular momentum without blowing the fragment kinetic energy budget.</span>
+<a name="ln-574"></a>            <span class="c">!! This procedure works in several stages, with a goal to solve the angular and linear momentum constraints on the fragments, while still leaving a positive balance of</span>
+<a name="ln-575"></a>            <span class="c">!! our fragment kinetic energy (ke_frag_budget) that we can put into the radial velocity distribution.</span>
+<a name="ln-576"></a>            <span class="c">!!</span>
+<a name="ln-577"></a>            <span class="c">!! The first thing we&#39;ll try to do is solve for the tangential velocities of the first 6 fragments, using angular and linear momentum as constraints and an initial</span>
+<a name="ln-578"></a>            <span class="c">!! tangential velocity distribution for the remaining bodies (if there are any) that distributes their angular momentum equally between them.</span>
+<a name="ln-579"></a>            <span class="c">!! If that doesn&#39;t work and we blow our kinetic energy budget, we will attempt to find a tangential velocity distribution that minimizes the kinetic energy while</span>
+<a name="ln-580"></a>            <span class="c">!! conserving momentum. </span>
+<a name="ln-581"></a>            <span class="c">!!</span>
+<a name="ln-582"></a>            <span class="c">!! A failure will trigger a restructuring of the fragments so we will try new values of the radial position distribution.</span>
+<a name="ln-583"></a>            <span class="k">implicit none</span>
+<a name="ln-584"></a>            <span class="c">! Arguments</span>
+<a name="ln-585"></a>            <span class="kt">logical</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">lerr</span>
+<a name="ln-586"></a>            <span class="c">! Internals</span>
+<a name="ln-587"></a>            <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-588"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>                  <span class="kd">::</span> <span class="n">TOL</span> <span class="o">=</span> <span class="mf">1e-4_DP</span>
+<a name="ln-589"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">v_t_initial</span>
+<a name="ln-590"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">kefrag</span>
+<a name="ln-591"></a>            <span class="k">type</span><span class="p">(</span><span class="n">lambda_obj</span><span class="p">)</span>                     <span class="kd">::</span> <span class="n">spinfunc</span>
+<a name="ln-592"></a>            <span class="k">type</span><span class="p">(</span><span class="n">lambda_obj_err</span><span class="p">)</span>                 <span class="kd">::</span> <span class="n">objective_function</span>
+<a name="ln-593"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">L_frag_spin</span><span class="p">,</span> <span class="n">L_remainder</span><span class="p">,</span> <span class="n">Li</span><span class="p">,</span> <span class="n">rot_L</span><span class="p">,</span> <span class="n">rot_ke</span>
 <a name="ln-594"></a>
-<a name="ln-595"></a>         <span class="c">! Perform one final shift of the radial velocity vectors to align with the center of mass of the collisional system (the origin)</span>
-<a name="ln-596"></a>         <span class="n">vb_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">vmag_to_vb</span><span class="p">(</span><span class="n">v_r_mag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">v_r_unit</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">v_t_mag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">v_t_unit</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">vcom</span><span class="p">(:))</span> 
-<a name="ln-597"></a>         <span class="c">! Now do a kinetic energy budget check to make sure we are still within the budget.</span>
-<a name="ln-598"></a>         <span class="n">ke_frag_orbit</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-599"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-600"></a>            <span class="n">v_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">vcom</span><span class="p">(:)</span>
-<a name="ln-601"></a>            <span class="n">ke_frag_orbit</span> <span class="o">=</span> <span class="n">ke_frag_orbit</span> <span class="o">+</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
-<a name="ln-602"></a>         <span class="k">end do</span>
-<a name="ln-603"></a><span class="k">         </span><span class="n">ke_frag_orbit</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">ke_frag_orbit</span>
-<a name="ln-604"></a>         <span class="n">ke_radial</span> <span class="o">=</span> <span class="n">ke_frag_budget</span> <span class="o">-</span> <span class="n">ke_frag_orbit</span> <span class="o">-</span> <span class="n">ke_frag_spin</span>
+<a name="ln-595"></a>            <span class="n">lerr</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-596"></a>
+<a name="ln-597"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">ke_frag_budget</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-598"></a><span class="k">               write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Negative ke_frag_budget: &#39;</span><span class="p">,</span><span class="n">ke_frag_budget</span>
+<a name="ln-599"></a>               <span class="n">r_max_start</span> <span class="o">=</span> <span class="n">r_max_start</span> <span class="o">/</span> <span class="mi">2</span> 
+<a name="ln-600"></a>               <span class="n">lerr</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-601"></a>               <span class="k">return</span>
+<a name="ln-602"></a><span class="k">            end if</span>
+<a name="ln-603"></a>
+<a name="ln-604"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">v_t_initial</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">v_t_mag</span><span class="p">)</span>
 <a name="ln-605"></a>
-<a name="ln-606"></a>         <span class="c">! If we are over the energy budget, flag this as a failure so we can try again</span>
-<a name="ln-607"></a>         <span class="n">lerr</span> <span class="o">=</span> <span class="p">(</span><span class="n">ke_radial</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span>
-<a name="ln-608"></a>         <span class="c">!write(*,*) &#39;Tangential&#39;</span>
-<a name="ln-609"></a>         <span class="c">!write(*,*) &#39;ke_frag_budget: &#39;,ke_frag_budget</span>
-<a name="ln-610"></a>         <span class="c">!write(*,*) &#39;ke_frag_orbit : &#39;,ke_frag_orbit</span>
-<a name="ln-611"></a>         <span class="c">!write(*,*) &#39;ke_frag_spin  : &#39;,ke_frag_spin</span>
-<a name="ln-612"></a>         <span class="c">!write(*,*) &#39;ke_radial     : &#39;,ke_radial</span>
-<a name="ln-613"></a>
-<a name="ln-614"></a>         <span class="k">return</span>
-<a name="ln-615"></a>
-<a name="ln-616"></a><span class="k">      end subroutine </span><span class="n">set_fragment_tan_vel</span>
-<a name="ln-617"></a>
-<a name="ln-618"></a>      <span class="k">function </span><span class="n">tangential_objective_function</span><span class="p">(</span><span class="n">v_t_mag_input</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">fval</span><span class="p">)</span>
-<a name="ln-619"></a>         <span class="c">!! Author: David A. Minton</span>
-<a name="ln-620"></a>         <span class="c">!!</span>
-<a name="ln-621"></a>         <span class="c">!! Objective function for evaluating how close our fragment velocities get to minimizing KE error from our required value</span>
-<a name="ln-622"></a>         <span class="k">implicit none</span>
-<a name="ln-623"></a>         <span class="c">! Arguments</span>
-<a name="ln-624"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">v_t_mag_input</span>   <span class="c">!! Unknown tangential component of velocity vector set previously by angular momentum constraint</span>
-<a name="ln-625"></a>         <span class="kt">logical</span><span class="p">,</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lerr</span>            <span class="c">!! Error flag</span>
-<a name="ln-626"></a>         <span class="c">! Result</span>
-<a name="ln-627"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                              <span class="kd">::</span> <span class="n">fval</span>
-<a name="ln-628"></a>         <span class="c">! Internals</span>
-<a name="ln-629"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-630"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">v_shift</span>
-<a name="ln-631"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">v_t_new</span>
-<a name="ln-632"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keo</span>
-<a name="ln-633"></a>
-<a name="ln-634"></a>         <span class="n">lerr</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-635"></a>
-<a name="ln-636"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">v_shift</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-637"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">v_t_new</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-638"></a>
-<a name="ln-639"></a>         <span class="n">v_t_new</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">solve_fragment_tan_vel</span><span class="p">(</span><span class="n">v_t_mag_input</span><span class="o">=</span><span class="n">v_t_mag_input</span><span class="p">(:),</span> <span class="n">lerr</span><span class="o">=</span><span class="n">lerr</span><span class="p">)</span>
-<a name="ln-640"></a>         <span class="n">v_shift</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">vmag_to_vb</span><span class="p">(</span><span class="n">v_r_mag</span><span class="p">,</span> <span class="n">v_r_unit</span><span class="p">,</span> <span class="n">v_t_new</span><span class="p">,</span> <span class="n">v_t_unit</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">vcom</span><span class="p">)</span> 
-<a name="ln-641"></a>
-<a name="ln-642"></a>         <span class="n">keo</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-643"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-644"></a>            <span class="n">keo</span> <span class="o">=</span> <span class="n">keo</span> <span class="o">+</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">v_shift</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">v_shift</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
-<a name="ln-645"></a>         <span class="k">end do</span>
-<a name="ln-646"></a><span class="k">         </span><span class="n">keo</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">keo</span>
-<a name="ln-647"></a>         <span class="n">fval</span> <span class="o">=</span> <span class="n">keo</span> 
-<a name="ln-648"></a>         <span class="n">lerr</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-649"></a>         <span class="k">return</span>
-<a name="ln-650"></a><span class="k">      end function </span><span class="n">tangential_objective_function</span>
+<a name="ln-606"></a>            <span class="n">L_frag_spin</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-607"></a>            <span class="n">ke_frag_spin</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-608"></a>            <span class="c">! Start the first two bodies with the same rotation as the original two impactors, then distribute the remaining angular momentum among the rest</span>
+<a name="ln-609"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">2</span>
+<a name="ln-610"></a>               <span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">rot</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-611"></a>               <span class="n">L_frag_spin</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_frag_spin</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rad_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">Ip_frag</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-612"></a>            <span class="k">end do</span>
+<a name="ln-613"></a><span class="k">            </span><span class="n">L_frag_orb</span><span class="p">(:)</span> <span class="o">=</span>  <span class="n">L_frag_tot</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">L_frag_spin</span><span class="p">(:)</span>
+<a name="ln-614"></a>            <span class="n">L_frag_spin</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-615"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-616"></a>               <span class="c">! Convert a fraction (f_spin) of either the remaining angular momentum or kinetic energy budget into spin, whichever gives the smaller rotation so as not to blow any budgets</span>
+<a name="ln-617"></a>               <span class="n">rot_ke</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">f_spin</span> <span class="o">*</span> <span class="n">ke_frag_budget</span> <span class="o">/</span> <span class="p">(</span><span class="n">nfrag</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rad_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">Ip_frag</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)))</span> <span class="o">*</span> <span class="n">L_frag_orb</span><span class="p">(:)</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">L_frag_orb</span><span class="p">(:))</span>
+<a name="ln-618"></a>               <span class="n">rot_L</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">f_spin</span> <span class="o">*</span> <span class="n">L_frag_orb</span><span class="p">(:)</span> <span class="o">/</span> <span class="p">(</span><span class="n">nfrag</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rad_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">Ip_frag</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-619"></a>               <span class="k">if</span> <span class="p">(</span><span class="nb">norm2</span><span class="p">(</span><span class="n">rot_ke</span><span class="p">)</span> <span class="o">&lt;</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">rot_L</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-620"></a><span class="k">                  </span><span class="n">rot_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">rot_ke</span><span class="p">(:)</span>
+<a name="ln-621"></a>               <span class="k">else</span>
+<a name="ln-622"></a><span class="k">                  </span><span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">rot_L</span><span class="p">(:)</span>
+<a name="ln-623"></a>               <span class="k">end if</span>
+<a name="ln-624"></a><span class="k">               </span><span class="n">L_frag_spin</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_frag_spin</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rad_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">Ip_frag</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-625"></a>               <span class="n">ke_frag_spin</span> <span class="o">=</span> <span class="n">ke_frag_spin</span> <span class="o">+</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">Ip_frag</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rad_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-626"></a>            <span class="k">end do</span>
+<a name="ln-627"></a><span class="k">            </span><span class="n">ke_frag_spin</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">ke_frag_spin</span>
+<a name="ln-628"></a>            <span class="c">! Convert a fraction of the pre-impact angular momentum into fragment spin angular momentum</span>
+<a name="ln-629"></a>            <span class="n">L_frag_orb</span><span class="p">(:)</span> <span class="o">=</span>  <span class="n">L_frag_tot</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">L_frag_spin</span><span class="p">(:)</span>
+<a name="ln-630"></a>            <span class="n">L_remainder</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_frag_orb</span><span class="p">(:)</span>
+<a name="ln-631"></a>            <span class="c">! Next we will solve for the tangential component of the velocities that both conserves linear momentum and uses the remaining angular momentum not used in spin.</span>
+<a name="ln-632"></a>            <span class="c">! This will be done using a linear solver that solves for the tangential velocities of the first 6 fragments, constrained by the linear and angular momentum vectors, </span>
+<a name="ln-633"></a>            <span class="c">! which is embedded in a non-linear minimizer that will adjust the tangential velocities of the remaining i&gt;6 fragments to minimize kinetic energy for a given momentum solution</span>
+<a name="ln-634"></a>            <span class="c">! The initial conditions fed to the minimizer for the fragments will be the remaining angular momentum distributed between the fragments.</span>
+<a name="ln-635"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-636"></a>               <span class="n">v_t_initial</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">L_remainder</span><span class="p">(:))</span> <span class="o">/</span> <span class="p">((</span><span class="n">nfrag</span> <span class="o">-</span> <span class="n">i</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">x_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">)))</span>
+<a name="ln-637"></a>               <span class="n">Li</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">x_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">v_t_initial</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">v_t_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-638"></a>               <span class="n">L_remainder</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_remainder</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">Li</span><span class="p">(:)</span>
+<a name="ln-639"></a>            <span class="k">end do</span>
+<a name="ln-640"></a>
+<a name="ln-641"></a>            <span class="c">! Find the local kinetic energy minimum for the system that conserves linear and angular momentum</span>
+<a name="ln-642"></a>            <span class="n">objective_function</span> <span class="o">=</span> <span class="n">lambda_obj</span><span class="p">(</span><span class="n">tangential_objective_function</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-643"></a>            <span class="n">v_t_mag</span><span class="p">(</span><span class="mi">7</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">util_minimize_bfgs</span><span class="p">(</span><span class="n">objective_function</span><span class="p">,</span> <span class="n">nfrag</span><span class="o">-</span><span class="mi">6</span><span class="p">,</span> <span class="n">v_t_initial</span><span class="p">(</span><span class="mi">7</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">TOL</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-644"></a>            <span class="c">! Now that the KE-minimized values of the i&gt;6 fragments are found, calculate the momentum-conserving solution for tangential velociteis</span>
+<a name="ln-645"></a>            <span class="n">v_t_initial</span><span class="p">(</span><span class="mi">7</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">v_t_mag</span><span class="p">(</span><span class="mi">7</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span>
+<a name="ln-646"></a>            <span class="n">v_t_mag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">solve_fragment_tan_vel</span><span class="p">(</span><span class="n">v_t_mag_input</span><span class="o">=</span><span class="n">v_t_initial</span><span class="p">(</span><span class="mi">7</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">lerr</span><span class="o">=</span><span class="n">lerr</span><span class="p">)</span>
+<a name="ln-647"></a>
+<a name="ln-648"></a>            <span class="c">! Perform one final shift of the radial velocity vectors to align with the center of mass of the collisional system (the origin)</span>
+<a name="ln-649"></a>            <span class="n">vb_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">vmag_to_vb</span><span class="p">(</span><span class="n">v_r_mag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">v_r_unit</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">v_t_mag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">v_t_unit</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">vcom</span><span class="p">(:))</span> 
+<a name="ln-650"></a>            <span class="k">call </span><span class="n">add_fragments_to_tmpsys</span><span class="p">()</span>
 <a name="ln-651"></a>
-<a name="ln-652"></a>      <span class="k">function </span><span class="n">solve_fragment_tan_vel</span><span class="p">(</span><span class="n">lerr</span><span class="p">,</span> <span class="n">v_t_mag_input</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">v_t_mag_output</span><span class="p">)</span>
-<a name="ln-653"></a>         <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
-<a name="ln-654"></a>         <span class="c">!!</span>
-<a name="ln-655"></a>         <span class="c">!! Adjusts the positions, velocities, and spins of a collection of fragments such that they conserve angular momentum</span>
-<a name="ln-656"></a>         <span class="k">implicit none</span>
-<a name="ln-657"></a>         <span class="c">! Arguments</span>
-<a name="ln-658"></a>         <span class="kt">logical</span><span class="p">,</span>                          <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lerr</span>            <span class="c">!! Error flag </span>
-<a name="ln-659"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">v_t_mag_input</span>   <span class="c">!! Unknown tangential velocities for fragments 7:nfrag</span>
-<a name="ln-660"></a>         <span class="c">! Internals</span>
-<a name="ln-661"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                            <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-662"></a>         <span class="c">! Result</span>
-<a name="ln-663"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>     <span class="kd">::</span> <span class="n">v_t_mag_output</span>
-<a name="ln-664"></a>
-<a name="ln-665"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">NDIM</span><span class="p">,</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">A</span> <span class="c">! LHS of linear equation used to solve for momentum constraint in Gauss elimination code</span>
-<a name="ln-666"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">NDIM</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">b</span>  <span class="c">! RHS of linear equation used to solve for momentum constraint in Gauss elimination code</span>
-<a name="ln-667"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>               <span class="kd">::</span> <span class="n">L_lin_others</span><span class="p">,</span> <span class="n">L_orb_others</span><span class="p">,</span> <span class="n">L</span><span class="p">,</span> <span class="n">vtmp</span>
-<a name="ln-668"></a>
-<a name="ln-669"></a>         <span class="n">v_frag</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-670"></a>         <span class="n">lerr</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-671"></a>
-<a name="ln-672"></a>         <span class="c">! We have 6 constraint equations (2 vector constraints in 3 dimensions each)</span>
-<a name="ln-673"></a>         <span class="c">! The first 3 are that the linear momentum of the fragments is zero with respect to the collisional barycenter</span>
-<a name="ln-674"></a>         <span class="c">! The second 3 are that the sum of the angular momentum of the fragments is conserved from the pre-impact state</span>
-<a name="ln-675"></a>         <span class="n">L_lin_others</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-676"></a>         <span class="n">L_orb_others</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-677"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-678"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">i</span> <span class="o">&lt;=</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">NDIM</span><span class="p">)</span> <span class="k">then</span> <span class="c">! The tangential velocities of the first set of bodies will be the unknowns we will solve for to satisfy the constraints</span>
-<a name="ln-679"></a>               <span class="n">A</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">v_t_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> 
-<a name="ln-680"></a>               <span class="n">L</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">v_r_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">v_t_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-681"></a>               <span class="n">A</span><span class="p">(</span><span class="mi">4</span><span class="p">:</span><span class="mi">6</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rmag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">L</span><span class="p">(:)</span>
-<a name="ln-682"></a>            <span class="k">else if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">v_t_mag_input</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-683"></a><span class="k">               </span><span class="n">vtmp</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">v_t_mag_input</span><span class="p">(</span><span class="n">i</span> <span class="o">-</span> <span class="mi">6</span><span class="p">)</span> <span class="o">*</span> <span class="n">v_t_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-684"></a>               <span class="n">L_lin_others</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_lin_others</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">vtmp</span><span class="p">(:)</span>
-<a name="ln-685"></a>               <span class="n">L</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">x_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">vtmp</span><span class="p">(:)</span>
-<a name="ln-686"></a>               <span class="n">L_orb_others</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_orb_others</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">L</span><span class="p">(:)</span>
-<a name="ln-687"></a>            <span class="k">end if</span>
-<a name="ln-688"></a><span class="k">         end do</span>
-<a name="ln-689"></a><span class="k">         </span><span class="n">b</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="mi">3</span><span class="p">)</span> <span class="o">=</span> <span class="o">-</span><span class="n">L_lin_others</span><span class="p">(:)</span>
-<a name="ln-690"></a>         <span class="n">b</span><span class="p">(</span><span class="mi">4</span><span class="p">:</span><span class="mi">6</span><span class="p">)</span> <span class="o">=</span> <span class="n">L_frag_orb</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">L_orb_others</span><span class="p">(:)</span>
-<a name="ln-691"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">v_t_mag_output</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-692"></a>         <span class="n">v_t_mag_output</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="mi">6</span><span class="p">)</span> <span class="o">=</span> <span class="n">util_solve_linear_system</span><span class="p">(</span><span class="n">A</span><span class="p">,</span> <span class="n">b</span><span class="p">,</span> <span class="mi">6</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-693"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">v_t_mag_input</span><span class="p">))</span> <span class="n">v_t_mag_output</span><span class="p">(</span><span class="mi">7</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">v_t_mag_input</span><span class="p">(:)</span>
+<a name="ln-652"></a>            <span class="c">! Now do a kinetic energy budget check to make sure we are still within the budget.</span>
+<a name="ln-653"></a>            <span class="n">kefrag</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-654"></a>            <span class="k">do </span><span class="n">concurrent</span><span class="p">(</span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span>
+<a name="ln-655"></a>               <span class="n">v_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">vcom</span><span class="p">(:)</span>
+<a name="ln-656"></a>               <span class="n">kefrag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-657"></a>            <span class="k">end do</span>
+<a name="ln-658"></a><span class="k">            </span><span class="n">ke_frag_orbit</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="nb">sum</span><span class="p">(</span><span class="n">kefrag</span><span class="p">(:))</span>
+<a name="ln-659"></a>            <span class="n">ke_radial</span> <span class="o">=</span> <span class="n">ke_frag_budget</span> <span class="o">-</span> <span class="n">ke_frag_orbit</span> <span class="o">-</span> <span class="n">ke_frag_spin</span>
+<a name="ln-660"></a>
+<a name="ln-661"></a>            <span class="c">! If we are over the energy budget, flag this as a failure so we can try again</span>
+<a name="ln-662"></a>            <span class="n">lerr</span> <span class="o">=</span> <span class="p">(</span><span class="n">ke_radial</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span>
+<a name="ln-663"></a>            <span class="c">! write(*,*) &#39;Tangential&#39;</span>
+<a name="ln-664"></a>            <span class="c">! write(*,*) &#39;Failure? &#39;,lerr</span>
+<a name="ln-665"></a>            <span class="c">! write(*,*) &#39;ke_frag_budget: &#39;,ke_frag_budget</span>
+<a name="ln-666"></a>            <span class="c">! write(*,*) &#39;ke_frag_spin  : &#39;,ke_frag_spin</span>
+<a name="ln-667"></a>            <span class="c">! write(*,*) &#39;ke_tangential : &#39;,ke_frag_orbit</span>
+<a name="ln-668"></a>            <span class="c">! write(*,*) &#39;ke_remainder  : &#39;,ke_radial</span>
+<a name="ln-669"></a>
+<a name="ln-670"></a>            <span class="k">return</span>
+<a name="ln-671"></a><span class="k">         end subroutine </span><span class="n">set_fragment_tan_vel</span>
+<a name="ln-672"></a>
+<a name="ln-673"></a>
+<a name="ln-674"></a>         <span class="k">function </span><span class="n">tangential_objective_function</span><span class="p">(</span><span class="n">v_t_mag_input</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">fval</span><span class="p">)</span>
+<a name="ln-675"></a>            <span class="c">!! Author: David A. Minton</span>
+<a name="ln-676"></a>            <span class="c">!!</span>
+<a name="ln-677"></a>            <span class="c">!! Objective function for evaluating how close our fragment velocities get to minimizing KE error from our required value</span>
+<a name="ln-678"></a>            <span class="k">implicit none</span>
+<a name="ln-679"></a>            <span class="c">! Arguments</span>
+<a name="ln-680"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">v_t_mag_input</span>   <span class="c">!! Unknown tangential component of velocity vector set previously by angular momentum constraint</span>
+<a name="ln-681"></a>            <span class="kt">logical</span><span class="p">,</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lerr</span>            <span class="c">!! Error flag</span>
+<a name="ln-682"></a>            <span class="c">! Result</span>
+<a name="ln-683"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                              <span class="kd">::</span> <span class="n">fval</span>
+<a name="ln-684"></a>            <span class="c">! Internals</span>
+<a name="ln-685"></a>            <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-686"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span><span class="n">nfrag</span><span class="p">)</span> <span class="kd">::</span> <span class="n">v_shift</span>
+<a name="ln-687"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span> <span class="kd">::</span> <span class="n">v_t_new</span><span class="p">,</span> <span class="n">kearr</span>
+<a name="ln-688"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keo</span>
+<a name="ln-689"></a>
+<a name="ln-690"></a>            <span class="n">lerr</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-691"></a>
+<a name="ln-692"></a>            <span class="n">v_t_new</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">solve_fragment_tan_vel</span><span class="p">(</span><span class="n">v_t_mag_input</span><span class="o">=</span><span class="n">v_t_mag_input</span><span class="p">(:),</span> <span class="n">lerr</span><span class="o">=</span><span class="n">lerr</span><span class="p">)</span>
+<a name="ln-693"></a>            <span class="n">v_shift</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">vmag_to_vb</span><span class="p">(</span><span class="n">v_r_mag</span><span class="p">,</span> <span class="n">v_r_unit</span><span class="p">,</span> <span class="n">v_t_new</span><span class="p">,</span> <span class="n">v_t_unit</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">vcom</span><span class="p">)</span> 
 <a name="ln-694"></a>
-<a name="ln-695"></a>         <span class="k">return </span>
-<a name="ln-696"></a><span class="k">      end function </span><span class="n">solve_fragment_tan_vel</span>
-<a name="ln-697"></a>
-<a name="ln-698"></a>      <span class="k">subroutine </span><span class="n">set_fragment_radial_velocities</span><span class="p">(</span><span class="n">lerr</span><span class="p">)</span>
-<a name="ln-699"></a>         <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
-<a name="ln-700"></a>         <span class="c">!!</span>
-<a name="ln-701"></a>         <span class="c">!! </span>
-<a name="ln-702"></a>         <span class="c">!! Adjust the fragment velocities to set the fragment orbital kinetic energy. This will minimize the difference between the fragment kinetic energy and the energy budget</span>
-<a name="ln-703"></a>         <span class="k">implicit none</span>
-<a name="ln-704"></a>         <span class="c">! Arguments</span>
-<a name="ln-705"></a>         <span class="kt">logical</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">lerr</span>
-<a name="ln-706"></a>         <span class="c">! Internals</span>
-<a name="ln-707"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>                   <span class="kd">::</span> <span class="n">TOL</span> <span class="o">=</span> <span class="mf">1e-10_DP</span>
-<a name="ln-708"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                          <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
-<a name="ln-709"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>   <span class="kd">::</span> <span class="n">v_r_initial</span><span class="p">,</span> <span class="n">v_r_sigma</span>
-<a name="ln-710"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">v_r</span>
-<a name="ln-711"></a>         <span class="k">type</span><span class="p">(</span><span class="n">lambda_obj</span><span class="p">)</span>                      <span class="kd">::</span> <span class="n">objective_function</span>
-<a name="ln-712"></a>
-<a name="ln-713"></a>         <span class="c">! Set the &quot;target&quot; ke_orbit_after (the value of the orbital kinetic energy that the fragments ought to have)</span>
-<a name="ln-714"></a>         
-<a name="ln-715"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">v_r_initial</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">v_r_mag</span><span class="p">)</span>
-<a name="ln-716"></a>         <span class="c">! Initialize radial velocity magnitudes with a random value that is approximately 10% of that found by distributing the kinetic energy equally</span>
-<a name="ln-717"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">v_r_sigma</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">v_r_mag</span><span class="p">)</span>
-<a name="ln-718"></a>         <span class="k">call </span><span class="nb">random_number</span><span class="p">(</span><span class="n">v_r_sigma</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-719"></a>         <span class="n">v_r_sigma</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">+</span> <span class="mi">2</span> <span class="o">*</span> <span class="p">(</span><span class="n">v_r_sigma</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">-</span> <span class="mf">0.5_DP</span><span class="p">)</span> <span class="o">*</span> <span class="mf">1e-4_DP</span><span class="p">)</span> 
-<a name="ln-720"></a>         <span class="n">v_r_initial</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">v_r_sigma</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">*</span> <span class="nb">sqrt</span><span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">ke_radial</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">*</span> <span class="n">nfrag</span><span class="p">))</span> 
-<a name="ln-721"></a>
-<a name="ln-722"></a>         <span class="c">! Initialize the lambda function using a structure constructor that calls the init method</span>
-<a name="ln-723"></a>         <span class="c">! Minimize the ke objective function using the BFGS optimizer</span>
-<a name="ln-724"></a>         <span class="n">objective_function</span> <span class="o">=</span> <span class="n">lambda_obj</span><span class="p">(</span><span class="n">radial_objective_function</span><span class="p">)</span>
-<a name="ln-725"></a>         <span class="n">v_r_mag</span> <span class="o">=</span> <span class="n">util_minimize_bfgs</span><span class="p">(</span><span class="n">objective_function</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">,</span> <span class="n">v_r_initial</span><span class="p">,</span> <span class="n">TOL</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
-<a name="ln-726"></a>         <span class="c">! Shift the radial velocity vectors to align with the center of mass of the collisional system (the origin)</span>
-<a name="ln-727"></a>         <span class="n">vb_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">vmag_to_vb</span><span class="p">(</span><span class="n">v_r_mag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">v_r_unit</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">v_t_mag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">v_t_unit</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">vcom</span><span class="p">(:))</span> 
-<a name="ln-728"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-729"></a>            <span class="n">v_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">vcom</span><span class="p">(:)</span>
-<a name="ln-730"></a>         <span class="k">end do</span>
-<a name="ln-731"></a><span class="k">         </span><span class="n">ke_frag_orbit</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-732"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-733"></a>            <span class="n">ke_frag_orbit</span> <span class="o">=</span> <span class="n">ke_frag_orbit</span> <span class="o">+</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
-<a name="ln-734"></a>         <span class="k">end do</span>
-<a name="ln-735"></a><span class="k">         </span><span class="n">ke_frag_orbit</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="n">ke_frag_orbit</span>
-<a name="ln-736"></a>         <span class="c">!write(*,*) &#39;Radial&#39;</span>
-<a name="ln-737"></a>         <span class="c">!write(*,*) &#39;Failure? &#39;,lerr </span>
-<a name="ln-738"></a>         <span class="c">!write(*,*) &#39;ke_frag_budget: &#39;,ke_frag_budget</span>
-<a name="ln-739"></a>         <span class="c">!write(*,*) &#39;ke_frag_orbit : &#39;,ke_frag_orbit</span>
-<a name="ln-740"></a>         <span class="c">!write(*,*) &#39;ke_frag_spin  : &#39;,ke_frag_spin</span>
-<a name="ln-741"></a>         <span class="c">!write(*,*) &#39;ke_remainder  : &#39;,ke_frag_budget - (ke_frag_orbit + ke_frag_spin)</span>
-<a name="ln-742"></a>         <span class="n">lerr</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-743"></a>
-<a name="ln-744"></a>         <span class="k">return</span>
-<a name="ln-745"></a><span class="k">      end subroutine </span><span class="n">set_fragment_radial_velocities</span>
-<a name="ln-746"></a>
-<a name="ln-747"></a>      <span class="k">function </span><span class="n">radial_objective_function</span><span class="p">(</span><span class="n">v_r_mag_input</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">fval</span><span class="p">)</span> 
-<a name="ln-748"></a>         <span class="c">!! Author: David A. Minton</span>
-<a name="ln-749"></a>         <span class="c">!!</span>
-<a name="ln-750"></a>         <span class="c">!! Objective function for evaluating how close our fragment velocities get to minimizing KE error from our required value</span>
-<a name="ln-751"></a>         <span class="k">implicit none</span>
-<a name="ln-752"></a>         <span class="c">! Arguments</span>
-<a name="ln-753"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">v_r_mag_input</span>   <span class="c">!! Unknown radial component of fragment velocity vector</span>
-<a name="ln-754"></a>         <span class="c">! Result</span>
-<a name="ln-755"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                              <span class="kd">::</span> <span class="n">fval</span>      <span class="c">!! The objective function result, which is the square of the difference between the calculated fragment kinetic energy and our target</span>
-<a name="ln-756"></a>                                                            <span class="c">!! Minimizing this brings us closer to our objective</span>
-<a name="ln-757"></a>         <span class="c">! Internals</span>
-<a name="ln-758"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                         <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-759"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">v_shift</span>
-<a name="ln-760"></a>
-<a name="ln-761"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">v_shift</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">vb_frag</span><span class="p">)</span>
-<a name="ln-762"></a>         <span class="n">v_shift</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">vmag_to_vb</span><span class="p">(</span><span class="n">v_r_mag_input</span><span class="p">,</span> <span class="n">v_r_unit</span><span class="p">,</span> <span class="n">v_t_mag</span><span class="p">,</span> <span class="n">v_t_unit</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">vcom</span><span class="p">)</span> 
-<a name="ln-763"></a>         <span class="n">fval</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">ke_frag_budget</span> 
-<a name="ln-764"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-765"></a>            <span class="n">fval</span> <span class="o">=</span> <span class="n">fval</span> <span class="o">-</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="n">Ip_frag</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rad_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span> <span class="o">+</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">v_shift</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">v_shift</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)))</span>
-<a name="ln-766"></a>         <span class="k">end do</span>
-<a name="ln-767"></a>         <span class="c">! The following ensures that fval = 0 is a local minimum, which is what the BFGS method is searching for</span>
-<a name="ln-768"></a>         <span class="n">fval</span> <span class="o">=</span> <span class="p">(</span><span class="n">fval</span> <span class="o">/</span> <span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">ke_radial</span><span class="p">))</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-695"></a>            <span class="n">kearr</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-696"></a>            <span class="k">do </span><span class="n">concurrent</span><span class="p">(</span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span>
+<a name="ln-697"></a>               <span class="n">kearr</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">v_shift</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">v_shift</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-698"></a>            <span class="k">end do</span>
+<a name="ln-699"></a><span class="k">            </span><span class="n">keo</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="nb">sum</span><span class="p">(</span><span class="n">kearr</span><span class="p">(:))</span>
+<a name="ln-700"></a>            <span class="n">fval</span> <span class="o">=</span> <span class="n">keo</span> 
+<a name="ln-701"></a>            <span class="n">lerr</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-702"></a>
+<a name="ln-703"></a>            <span class="k">return</span>
+<a name="ln-704"></a><span class="k">         end function </span><span class="n">tangential_objective_function</span>
+<a name="ln-705"></a>
+<a name="ln-706"></a>
+<a name="ln-707"></a>         <span class="k">function </span><span class="n">solve_fragment_tan_vel</span><span class="p">(</span><span class="n">lerr</span><span class="p">,</span> <span class="n">v_t_mag_input</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">v_t_mag_output</span><span class="p">)</span>
+<a name="ln-708"></a>            <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-709"></a>            <span class="c">!!</span>
+<a name="ln-710"></a>            <span class="c">!! Adjusts the positions, velocities, and spins of a collection of fragments such that they conserve angular momentum</span>
+<a name="ln-711"></a>            <span class="k">implicit none</span>
+<a name="ln-712"></a>            <span class="c">! Arguments</span>
+<a name="ln-713"></a>            <span class="kt">logical</span><span class="p">,</span>                          <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lerr</span>            <span class="c">!! Error flag </span>
+<a name="ln-714"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">v_t_mag_input</span>   <span class="c">!! Unknown tangential velocities for fragments 7:nfrag</span>
+<a name="ln-715"></a>            <span class="c">! Internals</span>
+<a name="ln-716"></a>            <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                            <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-717"></a>            <span class="c">! Result</span>
+<a name="ln-718"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>     <span class="kd">::</span> <span class="n">v_t_mag_output</span>
+<a name="ln-719"></a>
+<a name="ln-720"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">NDIM</span><span class="p">,</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">A</span> <span class="c">! LHS of linear equation used to solve for momentum constraint in Gauss elimination code</span>
+<a name="ln-721"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">NDIM</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">b</span>  <span class="c">! RHS of linear equation used to solve for momentum constraint in Gauss elimination code</span>
+<a name="ln-722"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>               <span class="kd">::</span> <span class="n">L_lin_others</span><span class="p">,</span> <span class="n">L_orb_others</span><span class="p">,</span> <span class="n">L</span><span class="p">,</span> <span class="n">vtmp</span>
+<a name="ln-723"></a>
+<a name="ln-724"></a>            <span class="n">v_frag</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-725"></a>            <span class="n">lerr</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-726"></a>
+<a name="ln-727"></a>            <span class="c">! We have 6 constraint equations (2 vector constraints in 3 dimensions each)</span>
+<a name="ln-728"></a>            <span class="c">! The first 3 are that the linear momentum of the fragments is zero with respect to the collisional barycenter</span>
+<a name="ln-729"></a>            <span class="c">! The second 3 are that the sum of the angular momentum of the fragments is conserved from the pre-impact state</span>
+<a name="ln-730"></a>            <span class="n">L_lin_others</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-731"></a>            <span class="n">L_orb_others</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-732"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-733"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">i</span> <span class="o">&lt;=</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">NDIM</span><span class="p">)</span> <span class="k">then</span> <span class="c">! The tangential velocities of the first set of bodies will be the unknowns we will solve for to satisfy the constraints</span>
+<a name="ln-734"></a>                  <span class="n">A</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">v_t_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> 
+<a name="ln-735"></a>                  <span class="n">L</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">v_r_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">v_t_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-736"></a>                  <span class="n">A</span><span class="p">(</span><span class="mi">4</span><span class="p">:</span><span class="mi">6</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rmag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">L</span><span class="p">(:)</span>
+<a name="ln-737"></a>               <span class="k">else if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">v_t_mag_input</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-738"></a><span class="k">                  </span><span class="n">vtmp</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">v_t_mag_input</span><span class="p">(</span><span class="n">i</span> <span class="o">-</span> <span class="mi">6</span><span class="p">)</span> <span class="o">*</span> <span class="n">v_t_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-739"></a>                  <span class="n">L_lin_others</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_lin_others</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">vtmp</span><span class="p">(:)</span>
+<a name="ln-740"></a>                  <span class="n">L</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">x_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">vtmp</span><span class="p">(:)</span>
+<a name="ln-741"></a>                  <span class="n">L_orb_others</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_orb_others</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">L</span><span class="p">(:)</span>
+<a name="ln-742"></a>               <span class="k">end if</span>
+<a name="ln-743"></a><span class="k">            end do</span>
+<a name="ln-744"></a><span class="k">            </span><span class="n">b</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="mi">3</span><span class="p">)</span> <span class="o">=</span> <span class="o">-</span><span class="n">L_lin_others</span><span class="p">(:)</span>
+<a name="ln-745"></a>            <span class="n">b</span><span class="p">(</span><span class="mi">4</span><span class="p">:</span><span class="mi">6</span><span class="p">)</span> <span class="o">=</span> <span class="n">L_frag_orb</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">L_orb_others</span><span class="p">(:)</span>
+<a name="ln-746"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">v_t_mag_output</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-747"></a>            <span class="n">v_t_mag_output</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="mi">6</span><span class="p">)</span> <span class="o">=</span> <span class="n">util_solve_linear_system</span><span class="p">(</span><span class="n">A</span><span class="p">,</span> <span class="n">b</span><span class="p">,</span> <span class="mi">6</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-748"></a>            <span class="k">if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">v_t_mag_input</span><span class="p">))</span> <span class="n">v_t_mag_output</span><span class="p">(</span><span class="mi">7</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">v_t_mag_input</span><span class="p">(:)</span>
+<a name="ln-749"></a>
+<a name="ln-750"></a>            <span class="k">return </span>
+<a name="ln-751"></a><span class="k">         end function </span><span class="n">solve_fragment_tan_vel</span>
+<a name="ln-752"></a>
+<a name="ln-753"></a>
+<a name="ln-754"></a>         <span class="k">subroutine </span><span class="n">set_fragment_radial_velocities</span><span class="p">(</span><span class="n">lerr</span><span class="p">)</span>
+<a name="ln-755"></a>            <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-756"></a>            <span class="c">!!</span>
+<a name="ln-757"></a>            <span class="c">!! </span>
+<a name="ln-758"></a>            <span class="c">!! Adjust the fragment velocities to set the fragment orbital kinetic energy. This will minimize the difference between the fragment kinetic energy and the energy budget</span>
+<a name="ln-759"></a>            <span class="k">implicit none</span>
+<a name="ln-760"></a>            <span class="c">! Arguments</span>
+<a name="ln-761"></a>            <span class="kt">logical</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">lerr</span>
+<a name="ln-762"></a>            <span class="c">! Internals</span>
+<a name="ln-763"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>                   <span class="kd">::</span> <span class="n">TOL</span> <span class="o">=</span> <span class="mf">1e-10_DP</span>
+<a name="ln-764"></a>            <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                          <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
+<a name="ln-765"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>   <span class="kd">::</span> <span class="n">v_r_initial</span><span class="p">,</span> <span class="n">v_r_sigma</span>
+<a name="ln-766"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">v_r</span>
+<a name="ln-767"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span>            <span class="kd">::</span> <span class="n">kearr</span><span class="p">,</span> <span class="n">kespinarr</span>
+<a name="ln-768"></a>            <span class="k">type</span><span class="p">(</span><span class="n">lambda_obj</span><span class="p">)</span>                      <span class="kd">::</span> <span class="n">objective_function</span>
 <a name="ln-769"></a>
-<a name="ln-770"></a>         <span class="k">return</span>
-<a name="ln-771"></a>
-<a name="ln-772"></a><span class="k">      end function </span><span class="n">radial_objective_function</span>
-<a name="ln-773"></a>
-<a name="ln-774"></a>      <span class="k">function </span><span class="n">vmag_to_vb</span><span class="p">(</span><span class="n">v_r_mag</span><span class="p">,</span> <span class="n">v_r_unit</span><span class="p">,</span> <span class="n">v_t_mag</span><span class="p">,</span> <span class="n">v_t_unit</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">vcom</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">vb</span><span class="p">)</span> 
-<a name="ln-775"></a>         <span class="c">!! Author: David A. Minton</span>
-<a name="ln-776"></a>         <span class="c">!!</span>
-<a name="ln-777"></a>         <span class="c">!! Converts radial and tangential velocity magnitudes into barycentric velocity</span>
-<a name="ln-778"></a>         <span class="k">implicit none</span>
-<a name="ln-779"></a>         <span class="c">! Arguments</span>
-<a name="ln-780"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">v_r_mag</span>   <span class="c">!! Unknown radial component of fragment velocity vector</span>
-<a name="ln-781"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">v_t_mag</span>   <span class="c">!! Tangential component of velocity vector set previously by angular momentum constraint</span>
-<a name="ln-782"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">v_r_unit</span><span class="p">,</span> <span class="n">v_t_unit</span> <span class="c">!! Radial and tangential unit vectors for each fragment</span>
-<a name="ln-783"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">m_frag</span>    <span class="c">!! Fragment masses</span>
-<a name="ln-784"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">vcom</span>      <span class="c">!! Barycentric velocity of collisional system center of mass</span>
-<a name="ln-785"></a>         <span class="c">! Result</span>
-<a name="ln-786"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span>   <span class="kd">::</span> <span class="n">vb</span>
-<a name="ln-787"></a>         <span class="c">! Internals</span>
-<a name="ln-788"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-770"></a>            <span class="c">! Set the &quot;target&quot; ke_orbit_after (the value of the orbital kinetic energy that the fragments ought to have)</span>
+<a name="ln-771"></a>            
+<a name="ln-772"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">v_r_initial</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">v_r_mag</span><span class="p">)</span>
+<a name="ln-773"></a>            <span class="c">! Initialize radial velocity magnitudes with a random value that is approximately 10% of that found by distributing the kinetic energy equally</span>
+<a name="ln-774"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">v_r_sigma</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">v_r_mag</span><span class="p">)</span>
+<a name="ln-775"></a>            <span class="k">call </span><span class="nb">random_number</span><span class="p">(</span><span class="n">v_r_sigma</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-776"></a>            <span class="n">v_r_sigma</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">+</span> <span class="mi">2</span> <span class="o">*</span> <span class="p">(</span><span class="n">v_r_sigma</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">-</span> <span class="mf">0.5_DP</span><span class="p">)</span> <span class="o">*</span> <span class="mf">1e-4_DP</span><span class="p">)</span> 
+<a name="ln-777"></a>            <span class="n">v_r_initial</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">v_r_sigma</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">*</span> <span class="nb">sqrt</span><span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">ke_radial</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">*</span> <span class="n">nfrag</span><span class="p">))</span> 
+<a name="ln-778"></a>
+<a name="ln-779"></a>            <span class="c">! Initialize the lambda function using a structure constructor that calls the init method</span>
+<a name="ln-780"></a>            <span class="c">! Minimize the ke objective function using the BFGS optimizer</span>
+<a name="ln-781"></a>            <span class="n">objective_function</span> <span class="o">=</span> <span class="n">lambda_obj</span><span class="p">(</span><span class="n">radial_objective_function</span><span class="p">)</span>
+<a name="ln-782"></a>            <span class="n">v_r_mag</span> <span class="o">=</span> <span class="n">util_minimize_bfgs</span><span class="p">(</span><span class="n">objective_function</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">,</span> <span class="n">v_r_initial</span><span class="p">,</span> <span class="n">TOL</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span>
+<a name="ln-783"></a>            <span class="c">! Shift the radial velocity vectors to align with the center of mass of the collisional system (the origin)</span>
+<a name="ln-784"></a>            <span class="n">vb_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">vmag_to_vb</span><span class="p">(</span><span class="n">v_r_mag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">v_r_unit</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">v_t_mag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">v_t_unit</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">),</span> <span class="n">vcom</span><span class="p">(:))</span> 
+<a name="ln-785"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-786"></a>               <span class="n">v_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">vcom</span><span class="p">(:)</span>
+<a name="ln-787"></a>            <span class="k">end do</span>
+<a name="ln-788"></a><span class="k">            call </span><span class="n">add_fragments_to_tmpsys</span><span class="p">()</span>
 <a name="ln-789"></a>
-<a name="ln-790"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">vb</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">v_r_unit</span><span class="p">)</span>
-<a name="ln-791"></a>         <span class="c">! Make sure the velocity magnitude stays positive</span>
-<a name="ln-792"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-793"></a>            <span class="n">vb</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="nb">abs</span><span class="p">(</span><span class="n">v_r_mag</span><span class="p">(</span><span class="n">i</span><span class="p">))</span> <span class="o">*</span> <span class="n">v_r_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-794"></a>         <span class="k">end do</span>
-<a name="ln-795"></a>         <span class="c">! In order to keep satisfying the kinetic energy constraint, we must shift the origin of the radial component of the velocities to the center of mass</span>
-<a name="ln-796"></a>         <span class="k">call </span><span class="n">shift_vector_to_origin</span><span class="p">(</span><span class="n">m_frag</span><span class="p">,</span> <span class="n">vb</span><span class="p">)</span>
-<a name="ln-797"></a>         
-<a name="ln-798"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-799"></a>            <span class="n">vb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">vb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">v_t_mag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">v_t_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">vcom</span><span class="p">(:)</span>
-<a name="ln-800"></a>         <span class="k">end do</span>
-<a name="ln-801"></a>
-<a name="ln-802"></a><span class="k">      end function </span><span class="n">vmag_to_vb</span>
+<a name="ln-790"></a>            <span class="k">do </span><span class="n">concurrent</span><span class="p">(</span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span>
+<a name="ln-791"></a>               <span class="n">kearr</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-792"></a>               <span class="n">kespinarr</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">Ip_frag</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rad_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">rot_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">rot_frag</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-793"></a>            <span class="k">end do</span>
+<a name="ln-794"></a><span class="k">            </span><span class="n">ke_frag_orbit</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="nb">sum</span><span class="p">(</span><span class="n">kearr</span><span class="p">(:))</span>
+<a name="ln-795"></a>            <span class="n">ke_frag_spin</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="nb">sum</span><span class="p">(</span><span class="n">kespinarr</span><span class="p">(:))</span>
+<a name="ln-796"></a>            <span class="c">! write(*,*) &#39;Radial&#39;</span>
+<a name="ln-797"></a>            <span class="c">! write(*,*) &#39;Failure? &#39;,lerr </span>
+<a name="ln-798"></a>            <span class="c">! write(*,*) &#39;ke_frag_budget: &#39;,ke_frag_budget</span>
+<a name="ln-799"></a>            <span class="c">! write(*,*) &#39;ke_frag_spin  : &#39;,ke_frag_spin</span>
+<a name="ln-800"></a>            <span class="c">! write(*,*) &#39;ke_frag_orbit : &#39;,ke_frag_orbit</span>
+<a name="ln-801"></a>            <span class="c">! write(*,*) &#39;ke_remainder  : &#39;,ke_frag_budget - (ke_frag_orbit + ke_frag_spin)</span>
+<a name="ln-802"></a>            <span class="n">lerr</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
 <a name="ln-803"></a>
-<a name="ln-804"></a>      <span class="k">subroutine </span><span class="n">restructure_failed_fragments</span><span class="p">()</span>
-<a name="ln-805"></a>         <span class="c">!! Author: David A. Minton</span>
-<a name="ln-806"></a>         <span class="c">!!</span>
-<a name="ln-807"></a>         <span class="c">!! We failed to find a set of positions and velocities that satisfy all the constraints, and so we will alter the fragments and try again.</span>
-<a name="ln-808"></a>         <span class="k">implicit none</span>
-<a name="ln-809"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-810"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">m_frag_new</span><span class="p">,</span> <span class="n">rad_frag_new</span>
-<a name="ln-811"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">xb_frag_new</span><span class="p">,</span> <span class="n">vb_frag_new</span><span class="p">,</span> <span class="n">Ip_frag_new</span><span class="p">,</span> <span class="n">rot_frag_new</span>
-<a name="ln-812"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">delta_r</span><span class="p">,</span> <span class="n">delta_r_max</span>
-<a name="ln-813"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">ke_avg_deficit_target</span> <span class="o">=</span> <span class="mf">0.0_DP</span> 
-<a name="ln-814"></a>
-<a name="ln-815"></a>         <span class="c">! Introduce a bit of noise in the radius determination so we don&#39;t just flip flop between similar failed positions</span>
-<a name="ln-816"></a>         <span class="k">call </span><span class="nb">random_number</span><span class="p">(</span><span class="n">delta_r_max</span><span class="p">)</span>
-<a name="ln-817"></a>         <span class="n">delta_r_max</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">radius</span><span class="p">(:))</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">+</span> <span class="mf">2e-1_DP</span> <span class="o">*</span> <span class="p">(</span><span class="n">delta_r_max</span> <span class="o">-</span> <span class="mf">0.5_DP</span><span class="p">))</span>
-<a name="ln-818"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">try</span> <span class="o">&gt;</span> <span class="mi">2</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-819"></a>            <span class="c">! Linearly interpolate the last two failed solution ke deficits to find a new distance value to try</span>
-<a name="ln-820"></a>            <span class="n">delta_r</span> <span class="o">=</span> <span class="p">(</span><span class="n">r_max_start</span> <span class="o">-</span> <span class="n">r_max_start_old</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="n">ke_avg_deficit_target</span> <span class="o">-</span> <span class="n">ke_avg_deficit_old</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">ke_avg_deficit</span> <span class="o">-</span> <span class="n">ke_avg_deficit_old</span><span class="p">)</span>
-<a name="ln-821"></a>            <span class="k">if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">delta_r</span><span class="p">)</span> <span class="o">&gt;</span> <span class="n">delta_r_max</span><span class="p">)</span> <span class="n">delta_r</span> <span class="o">=</span> <span class="nb">sign</span><span class="p">(</span><span class="n">delta_r_max</span><span class="p">,</span> <span class="n">delta_r</span><span class="p">)</span>
-<a name="ln-822"></a>         <span class="k">else</span>
-<a name="ln-823"></a><span class="k">            </span><span class="n">delta_r</span> <span class="o">=</span> <span class="n">delta_r_max</span>
-<a name="ln-824"></a>         <span class="k">end if</span>
-<a name="ln-825"></a><span class="k">         </span><span class="n">r_max_start_old</span> <span class="o">=</span> <span class="n">r_max_start</span>
-<a name="ln-826"></a>         <span class="n">r_max_start</span> <span class="o">=</span> <span class="n">r_max_start</span> <span class="o">+</span> <span class="n">delta_r</span> <span class="c">! The larger lever arm can help if the problem is in the angular momentum step</span>
-<a name="ln-827"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">f_spin</span> <span class="o">&gt;</span> <span class="nb">epsilon</span><span class="p">(</span><span class="mf">1.0_DP</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-828"></a><span class="k">            </span><span class="n">f_spin</span> <span class="o">=</span> <span class="n">f_spin</span> <span class="o">/</span> <span class="mi">2</span>
-<a name="ln-829"></a>         <span class="k">else</span>
-<a name="ln-830"></a><span class="k">            </span><span class="n">f_spin</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-831"></a>         <span class="k">end if</span>
-<a name="ln-832"></a><span class="k">      end subroutine </span><span class="n">restructure_failed_fragments</span>
-<a name="ln-833"></a>
-<a name="ln-834"></a>
-<a name="ln-835"></a>   <span class="k">end subroutine </span><span class="n">fragmentation_initialize</span>
+<a name="ln-804"></a>            <span class="k">return</span>
+<a name="ln-805"></a><span class="k">         end subroutine </span><span class="n">set_fragment_radial_velocities</span>
+<a name="ln-806"></a>
+<a name="ln-807"></a>
+<a name="ln-808"></a>         <span class="k">function </span><span class="n">radial_objective_function</span><span class="p">(</span><span class="n">v_r_mag_input</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">fval</span><span class="p">)</span> 
+<a name="ln-809"></a>            <span class="c">!! Author: David A. Minton</span>
+<a name="ln-810"></a>            <span class="c">!!</span>
+<a name="ln-811"></a>            <span class="c">!! Objective function for evaluating how close our fragment velocities get to minimizing KE error from our required value</span>
+<a name="ln-812"></a>            <span class="k">implicit none</span>
+<a name="ln-813"></a>            <span class="c">! Arguments</span>
+<a name="ln-814"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">v_r_mag_input</span>   <span class="c">!! Unknown radial component of fragment velocity vector</span>
+<a name="ln-815"></a>            <span class="c">! Result</span>
+<a name="ln-816"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                              <span class="kd">::</span> <span class="n">fval</span>      <span class="c">!! The objective function result, which is the square of the difference between the calculated fragment kinetic energy and our target</span>
+<a name="ln-817"></a>                                                               <span class="c">!! Minimizing this brings us closer to our objective</span>
+<a name="ln-818"></a>            <span class="c">! Internals</span>
+<a name="ln-819"></a>            <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                         <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-820"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">v_shift</span>
+<a name="ln-821"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">kearr</span>
+<a name="ln-822"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                               <span class="kd">::</span> <span class="n">keo</span>
+<a name="ln-823"></a>
+<a name="ln-824"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">v_shift</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">vb_frag</span><span class="p">)</span>
+<a name="ln-825"></a>            <span class="n">v_shift</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">vmag_to_vb</span><span class="p">(</span><span class="n">v_r_mag_input</span><span class="p">,</span> <span class="n">v_r_unit</span><span class="p">,</span> <span class="n">v_t_mag</span><span class="p">,</span> <span class="n">v_t_unit</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">vcom</span><span class="p">)</span> 
+<a name="ln-826"></a>            <span class="k">do </span><span class="n">concurrent</span><span class="p">(</span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span>
+<a name="ln-827"></a>               <span class="n">kearr</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="n">Ip_frag</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">rad_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">rot_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span> <span class="o">+</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">v_shift</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">v_shift</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)))</span>
+<a name="ln-828"></a>            <span class="k">end do</span>
+<a name="ln-829"></a><span class="k">            </span><span class="n">keo</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">ke_frag_budget</span> <span class="o">-</span> <span class="nb">sum</span><span class="p">(</span><span class="n">kearr</span><span class="p">(:))</span>
+<a name="ln-830"></a>            <span class="c">! The following ensures that fval = 0 is a local minimum, which is what the BFGS method is searching for</span>
+<a name="ln-831"></a>            <span class="n">fval</span> <span class="o">=</span> <span class="p">(</span><span class="n">keo</span> <span class="o">/</span> <span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">ke_radial</span><span class="p">))</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-832"></a>
+<a name="ln-833"></a>            <span class="k">return</span>
+<a name="ln-834"></a><span class="k">         end function </span><span class="n">radial_objective_function</span>
+<a name="ln-835"></a>
 <a name="ln-836"></a>
-<a name="ln-837"></a>
-<a name="ln-838"></a>
-<a name="ln-839"></a>   <span class="k">module subroutine </span><span class="n">fragmentation_regime</span><span class="p">(</span><span class="n">Mcb</span><span class="p">,</span> <span class="n">m1</span><span class="p">,</span> <span class="n">m2</span><span class="p">,</span> <span class="n">rad1</span><span class="p">,</span> <span class="n">rad2</span><span class="p">,</span> <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vb1</span><span class="p">,</span> <span class="n">vb2</span><span class="p">,</span> <span class="n">den1</span><span class="p">,</span> <span class="n">den2</span><span class="p">,</span> <span class="n">regime</span><span class="p">,</span> <span class="n">Mlr</span><span class="p">,</span> <span class="n">Mslr</span><span class="p">,</span> <span class="n">mtiny</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">)</span>
-<a name="ln-840"></a>      <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
-<a name="ln-841"></a>      <span class="c">!!</span>
-<a name="ln-842"></a>      <span class="c">!! Determine the collisional regime of two colliding bodies. </span>
-<a name="ln-843"></a>      <span class="c">!! Current version requires all values to be converted to SI units prior to calling the function</span>
-<a name="ln-844"></a>      <span class="c">!!       References:</span>
-<a name="ln-845"></a>      <span class="c">!!       Kokubo, E., Genda, H., 2010. Formation of Terrestrial Planets from Protoplanets Under a Realistic Accretion </span>
-<a name="ln-846"></a>      <span class="c">!!          Condition. ApJL 714, L21. https://doi.org/10.1088/2041-8205/714/1/L21</span>
-<a name="ln-847"></a>      <span class="c">!!       Leinhardt, Z.M., Stewart, S.T., 2012. Collisions between Gravity-dominated Bodies. I. Outcome Regimes and Scaling </span>
-<a name="ln-848"></a>      <span class="c">!!          Laws 745, 79. https://doi.org/10.1088/0004-637X/745/1/79</span>
-<a name="ln-849"></a>      <span class="c">!!       Mustill, A.J., Davies, M.B., Johansen, A., 2018. The dynamical evolution of transiting planetary systems including </span>
-<a name="ln-850"></a>      <span class="c">!!          a realistic collision prescription. Mon Not R Astron Soc 478, 2896–2908. https://doi.org/10.1093/mnras/sty1273</span>
-<a name="ln-851"></a>      <span class="c">!!       Rufu, R., Aharonson, O., 2019. Impact Dynamics of Moons Within a Planetary Potential. J. Geophys. Res. Planets 124, </span>
-<a name="ln-852"></a>      <span class="c">!!          1008–1019. https://doi.org/10.1029/2018JE005798</span>
-<a name="ln-853"></a>      <span class="c">!!       Stewart, S.T., Leinhardt, Z.M., 2012. Collisions between Gravity-dominated Bodies. II. The Diversity of Impact </span>
-<a name="ln-854"></a>      <span class="c">!!          Outcomes during the End Stage of Planet Formation. ApJ 751, 32. https://doi.org/10.1088/0004-637X/751/1/32</span>
-<a name="ln-855"></a>      <span class="c">!!</span>
-<a name="ln-856"></a>      <span class="k">implicit none</span>
-<a name="ln-857"></a>      <span class="c">! Arguments</span>
-<a name="ln-858"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>         <span class="kd">::</span> <span class="n">regime</span>
-<a name="ln-859"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">Mlr</span><span class="p">,</span> <span class="n">Mslr</span>
-<a name="ln-860"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">Mcb</span><span class="p">,</span> <span class="n">m1</span><span class="p">,</span> <span class="n">m2</span><span class="p">,</span> <span class="n">rad1</span><span class="p">,</span> <span class="n">rad2</span><span class="p">,</span> <span class="n">den1</span><span class="p">,</span> <span class="n">den2</span><span class="p">,</span> <span class="n">mtiny</span> 
-<a name="ln-861"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vb1</span><span class="p">,</span> <span class="n">vb2</span>
-<a name="ln-862"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">Qloss</span> <span class="c">!! The residual energy after the collision </span>
-<a name="ln-863"></a>      <span class="c">! Constants</span>
-<a name="ln-864"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">N1</span> <span class="o">=</span> <span class="mi">1</span>  <span class="c">!number of objects with mass equal to the largest remnant from LS12</span>
-<a name="ln-865"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">N2</span> <span class="o">=</span> <span class="mi">2</span>  <span class="c">!number of objects with mass larger than second largest remnant from LS12</span>
-<a name="ln-866"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">DENSITY1</span> <span class="o">=</span> <span class="mi">100</span><span class="mf">0.0_DP</span> <span class="c">!standard density parameter from LS12 [kg/m3]</span>
-<a name="ln-867"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">MU_BAR</span> <span class="o">=</span> <span class="mf">0.37_DP</span> <span class="c">!0.385#0.37#0.3333# 3.978 # 1/3 material parameter for hydrodynamic planet-size bodies (LS12)</span>
-<a name="ln-868"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">BETA</span> <span class="o">=</span> <span class="mf">2.85_DP</span> <span class="c">!slope of sfd for remnants from LS12 2.85</span>
-<a name="ln-869"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">C1</span> <span class="o">=</span> <span class="mf">2.43_DP</span>  <span class="c">!! Kokubo &amp; Genda (2010) eq. (3)</span>
-<a name="ln-870"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">C2</span> <span class="o">=</span> <span class="o">-</span><span class="mf">0.0408_DP</span> <span class="c">!! Kokubo &amp; Genda (2010) eq. (3)</span>
-<a name="ln-871"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">C3</span> <span class="o">=</span> <span class="mf">1.86_DP</span> <span class="c">!! Kokubo &amp; Genda (2010) eq. (3)</span>
-<a name="ln-872"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">C4</span> <span class="o">=</span> <span class="mf">1.08_DP</span> <span class="c">!! Kokubo &amp; Genda (2010) eq. (3)</span>
-<a name="ln-873"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">CRUFU</span> <span class="o">=</span> <span class="mf">2.0_DP</span> <span class="o">-</span> <span class="mi">3</span> <span class="o">*</span> <span class="n">MU_BAR</span> <span class="c">! central potential variable from Rufu and Aharonson (2019)</span>
-<a name="ln-874"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">SUPERCAT_QRATIO</span> <span class="o">=</span> <span class="mf">1.8_DP</span> <span class="c">! See Section 4.1 of LS12</span>
-<a name="ln-875"></a>      <span class="c">! Internals</span>
-<a name="ln-876"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">a1</span><span class="p">,</span> <span class="n">alpha</span><span class="p">,</span> <span class="nb">aint</span><span class="p">,</span> <span class="n">b</span><span class="p">,</span> <span class="n">bcrit</span><span class="p">,</span> <span class="n">c_star</span><span class="p">,</span> <span class="n">egy</span><span class="p">,</span> <span class="n">zeta</span><span class="p">,</span> <span class="n">l</span><span class="p">,</span> <span class="n">lint</span><span class="p">,</span> <span class="n">mu</span><span class="p">,</span> <span class="n">phi</span><span class="p">,</span> <span class="n">theta</span>
-<a name="ln-877"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">Qr</span><span class="p">,</span> <span class="n">Qrd_pstar</span><span class="p">,</span> <span class="n">Qr_erosion</span><span class="p">,</span> <span class="n">Qr_supercat</span>
-<a name="ln-878"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">Vhr</span><span class="p">,</span> <span class="n">Verosion</span><span class="p">,</span> <span class="n">Vescp</span><span class="p">,</span> <span class="n">Vhill</span><span class="p">,</span> <span class="n">Vimp</span><span class="p">,</span> <span class="n">Vsupercat</span>
-<a name="ln-879"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">Mint</span><span class="p">,</span> <span class="n">Mtot</span>
-<a name="ln-880"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">Rp</span><span class="p">,</span> <span class="n">rhill</span> 
-<a name="ln-881"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">Mresidual</span>
-<a name="ln-882"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">U_binding</span>
-<a name="ln-883"></a>
-<a name="ln-884"></a>      <span class="n">Vimp</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">vb2</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">vb1</span><span class="p">(:))</span>
-<a name="ln-885"></a>      <span class="n">b</span> <span class="o">=</span> <span class="n">calc_b</span><span class="p">(</span><span class="n">xh2</span><span class="p">,</span> <span class="n">vb2</span><span class="p">,</span> <span class="n">xh1</span><span class="p">,</span> <span class="n">vb1</span><span class="p">)</span>
-<a name="ln-886"></a>      <span class="n">l</span> <span class="o">=</span> <span class="p">(</span><span class="n">rad1</span> <span class="o">+</span> <span class="n">rad2</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="mi">1</span> <span class="o">-</span> <span class="n">b</span><span class="p">)</span>
-<a name="ln-887"></a>      <span class="n">egy</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">vb1</span><span class="p">,</span> <span class="n">vb1</span><span class="p">)</span> <span class="o">-</span> <span class="n">GC</span> <span class="o">*</span> <span class="n">Mcb</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">xh1</span><span class="p">)</span>
-<a name="ln-888"></a>      <span class="n">a1</span> <span class="o">=</span> <span class="o">-</span> <span class="n">GC</span> <span class="o">*</span> <span class="n">Mcb</span> <span class="o">/</span> <span class="mf">2.0_DP</span> <span class="o">/</span> <span class="n">egy</span>
-<a name="ln-889"></a>      <span class="n">Mtot</span> <span class="o">=</span> <span class="n">m1</span> <span class="o">+</span> <span class="n">m2</span> 
-<a name="ln-890"></a>      <span class="n">mu</span> <span class="o">=</span> <span class="p">(</span><span class="n">m1</span> <span class="o">*</span> <span class="n">m2</span><span class="p">)</span> <span class="o">/</span> <span class="n">Mtot</span>
-<a name="ln-891"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">l</span> <span class="o">&lt;</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">rad2</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-892"></a>         <span class="c">!calculate Mint</span>
-<a name="ln-893"></a>         <span class="n">phi</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="nb">acos</span><span class="p">((</span><span class="n">l</span> <span class="o">-</span> <span class="n">rad2</span><span class="p">)</span> <span class="o">/</span> <span class="n">rad2</span><span class="p">)</span>
-<a name="ln-894"></a>         <span class="nb">aint</span> <span class="o">=</span> <span class="n">rad2</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="p">(</span><span class="n">PI</span> <span class="o">-</span> <span class="p">(</span><span class="n">phi</span> <span class="o">-</span> <span class="nb">sin</span><span class="p">(</span><span class="n">phi</span><span class="p">))</span> <span class="o">/</span> <span class="mf">2.0_DP</span><span class="p">)</span>
-<a name="ln-895"></a>         <span class="n">lint</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">rad2</span><span class="o">**</span><span class="mi">2</span> <span class="o">-</span> <span class="p">(</span><span class="n">rad2</span> <span class="o">-</span> <span class="n">l</span> <span class="o">/</span> <span class="mf">2.0_DP</span><span class="p">)</span> <span class="o">**</span> <span class="mi">2</span><span class="p">)</span> 
-<a name="ln-896"></a>         <span class="n">Mint</span> <span class="o">=</span> <span class="nb">aint</span> <span class="o">*</span> <span class="n">lint</span>  <span class="c">![kg]</span>
-<a name="ln-897"></a>         <span class="n">alpha</span> <span class="o">=</span> <span class="p">(</span><span class="n">l</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="n">rad2</span> <span class="o">-</span> <span class="n">l</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="p">(</span><span class="n">rad2</span><span class="o">**</span><span class="mi">3</span><span class="p">))</span>
-<a name="ln-898"></a>      <span class="k">else</span>
-<a name="ln-899"></a><span class="k">         </span><span class="n">alpha</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-900"></a>         <span class="n">Mint</span> <span class="o">=</span> <span class="n">m2</span>
-<a name="ln-901"></a>      <span class="k">end if </span>
-<a name="ln-902"></a><span class="k">      </span><span class="n">Rp</span> <span class="o">=</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="p">(</span><span class="n">m1</span> <span class="o">/</span> <span class="n">den1</span> <span class="o">+</span> <span class="n">alpha</span> <span class="o">*</span> <span class="n">m2</span> <span class="o">/</span> <span class="n">den2</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="n">PI</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="mf">1.0_DP</span><span class="o">/</span><span class="mf">3.0_DP</span><span class="p">)</span> <span class="c">! (Mustill et al. 2018)</span>
-<a name="ln-903"></a>      <span class="n">c_star</span> <span class="o">=</span> <span class="n">calc_c_star</span><span class="p">(</span><span class="n">Rp</span><span class="p">)</span>
-<a name="ln-904"></a>      <span class="c">!calculate Vescp</span>
-<a name="ln-905"></a>      <span class="n">Vescp</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">GC</span> <span class="o">*</span> <span class="n">Mtot</span> <span class="o">/</span> <span class="n">Rp</span><span class="p">)</span> <span class="c">!Mustill et al. 2018 eq 6 </span>
-<a name="ln-906"></a>      <span class="c">!calculate rhill</span>
-<a name="ln-907"></a>      <span class="n">rhill</span> <span class="o">=</span> <span class="n">a1</span> <span class="o">*</span> <span class="p">(</span><span class="n">m1</span> <span class="o">/</span> <span class="mf">3.0_DP</span> <span class="o">/</span> <span class="p">(</span><span class="n">Mcb</span> <span class="o">+</span> <span class="n">m1</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="mf">1.0_DP</span><span class="o">/</span><span class="mf">3.0_DP</span><span class="p">)</span>
-<a name="ln-908"></a>      <span class="c">!calculate Vhill</span>
-<a name="ln-909"></a>      <span class="k">if</span> <span class="p">((</span><span class="n">rad2</span> <span class="o">+</span> <span class="n">rad1</span><span class="p">)</span> <span class="o">&lt;</span> <span class="n">rhill</span><span class="p">)</span> <span class="k">then </span>
-<a name="ln-910"></a><span class="k">         </span><span class="n">Vhill</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">GC</span> <span class="o">*</span> <span class="n">m1</span> <span class="o">*</span> <span class="p">((</span><span class="n">rhill</span><span class="o">**</span><span class="mi">2</span> <span class="o">-</span> <span class="n">rhill</span> <span class="o">*</span> <span class="p">(</span><span class="n">rad1</span> <span class="o">+</span> <span class="n">rad2</span><span class="p">))</span> <span class="o">/</span> <span class="p">&amp;</span>
-<a name="ln-911"></a>         <span class="p">(</span><span class="n">rhill</span><span class="o">**</span><span class="mi">2</span> <span class="o">-</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="p">(</span><span class="n">rad1</span> <span class="o">+</span> <span class="n">rad2</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="p">(</span><span class="n">rad1</span> <span class="o">+</span> <span class="n">rad2</span><span class="p">))</span>
-<a name="ln-912"></a>      <span class="k">else</span>
-<a name="ln-913"></a><span class="k">         </span><span class="n">Vhill</span> <span class="o">=</span> <span class="n">Vescp</span>
-<a name="ln-914"></a>      <span class="k">end if</span> 
-<a name="ln-915"></a>      <span class="c">!calculate Qr_pstar</span>
-<a name="ln-916"></a>      <span class="n">Qrd_pstar</span> <span class="o">=</span> <span class="n">calc_Qrd_pstar</span><span class="p">(</span><span class="n">m1</span><span class="p">,</span> <span class="n">m2</span><span class="p">,</span> <span class="n">alpha</span><span class="p">,</span> <span class="n">c_star</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="n">Vhill</span> <span class="o">/</span> <span class="n">Vescp</span><span class="p">)</span><span class="o">**</span><span class="n">CRUFU</span> <span class="c">!Rufu and Aharaonson eq (3)</span>
-<a name="ln-917"></a>      <span class="c">!calculate Verosion</span>
-<a name="ln-918"></a>      <span class="n">Qr_erosion</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">m1</span> <span class="o">/</span> <span class="n">Mtot</span><span class="p">)</span> <span class="o">*</span> <span class="n">Qrd_pstar</span>
-<a name="ln-919"></a>      <span class="n">Verosion</span> <span class="o">=</span> <span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">Qr_erosion</span> <span class="o">*</span> <span class="n">Mtot</span> <span class="o">/</span> <span class="n">mu</span><span class="p">)</span><span class="o">**</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">/</span> <span class="mf">2.0_DP</span><span class="p">)</span>
-<a name="ln-920"></a>      <span class="n">Qr</span> <span class="o">=</span> <span class="n">mu</span><span class="o">*</span><span class="p">(</span><span class="n">Vimp</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="o">/</span> <span class="n">Mtot</span> <span class="o">/</span> <span class="mf">2.0_DP</span>
-<a name="ln-921"></a>      <span class="c">!calculate mass largest remnant Mlr </span>
-<a name="ln-922"></a>      <span class="n">Mlr</span> <span class="o">=</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">Qr</span> <span class="o">/</span> <span class="n">Qrd_pstar</span> <span class="o">/</span> <span class="mf">2.0_DP</span><span class="p">)</span> <span class="o">*</span> <span class="n">Mtot</span>  <span class="c">! [kg] # LS12 eq (5)</span>
-<a name="ln-923"></a>      <span class="c">!calculate Vsupercat</span>
-<a name="ln-924"></a>      <span class="n">Qr_supercat</span> <span class="o">=</span> <span class="n">SUPERCAT_QRATIO</span> <span class="o">*</span> <span class="n">Qrd_pstar</span> <span class="c">! See LS12 Section 4.1 </span>
-<a name="ln-925"></a>      <span class="n">Vsupercat</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">Qr_supercat</span> <span class="o">*</span> <span class="n">Mtot</span> <span class="o">/</span> <span class="n">mu</span><span class="p">)</span>
-<a name="ln-926"></a>      <span class="c">!calculate Vhr</span>
-<a name="ln-927"></a>      <span class="n">zeta</span> <span class="o">=</span> <span class="p">(</span><span class="n">m1</span> <span class="o">-</span> <span class="n">m2</span><span class="p">)</span> <span class="o">/</span> <span class="n">Mtot</span>
-<a name="ln-928"></a>      <span class="n">theta</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">b</span>
-<a name="ln-929"></a>      <span class="n">Vhr</span> <span class="o">=</span> <span class="n">Vescp</span> <span class="o">*</span> <span class="p">(</span><span class="n">C1</span> <span class="o">*</span> <span class="n">zeta</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">theta</span><span class="o">**</span><span class="p">(</span><span class="mf">2.5_DP</span><span class="p">)</span> <span class="o">+</span> <span class="n">C2</span> <span class="o">*</span> <span class="n">zeta</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">C3</span> <span class="o">*</span> <span class="n">theta</span><span class="o">**</span><span class="p">(</span><span class="mf">2.5_DP</span><span class="p">)</span> <span class="o">+</span> <span class="n">C4</span><span class="p">)</span> <span class="c">! Kokubo &amp; Genda (2010) eq. (3)</span>
-<a name="ln-930"></a>      <span class="n">bcrit</span> <span class="o">=</span> <span class="n">rad1</span> <span class="o">/</span> <span class="p">(</span><span class="n">rad1</span> <span class="o">+</span> <span class="n">rad2</span><span class="p">)</span>
-<a name="ln-931"></a>      <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-932"></a>      <span class="n">U_binding</span> <span class="o">=</span> <span class="p">(</span><span class="mf">3.0_DP</span> <span class="o">*</span> <span class="n">Mtot</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="mf">5.0_DP</span> <span class="o">*</span> <span class="n">Rp</span><span class="p">)</span> <span class="c">! LS12 eq. 27</span>
-<a name="ln-933"></a>
-<a name="ln-934"></a>      <span class="k">if</span> <span class="p">((</span><span class="n">m1</span> <span class="o">&lt;</span> <span class="n">mtiny</span><span class="p">).</span><span class="nb">or</span><span class="p">.(</span><span class="n">m2</span> <span class="o">&lt;</span> <span class="n">mtiny</span><span class="p">))</span> <span class="k">then </span>
-<a name="ln-935"></a><span class="k">         </span><span class="n">regime</span> <span class="o">=</span> <span class="n">COLLRESOLVE_REGIME_MERGE</span> <span class="c">!perfect merging regime</span>
-<a name="ln-936"></a>         <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mtot</span>
-<a name="ln-937"></a>         <span class="n">Mslr</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-938"></a>         <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-939"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;FORCE MERGE&quot;</span>
-<a name="ln-940"></a>      <span class="k">else </span>
-<a name="ln-941"></a><span class="k">         if</span><span class="p">(</span> <span class="n">Vimp</span> <span class="o">&lt;</span> <span class="n">Vescp</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-942"></a><span class="k">            </span><span class="n">regime</span> <span class="o">=</span> <span class="n">COLLRESOLVE_REGIME_MERGE</span> <span class="c">!perfect merging regime</span>
-<a name="ln-943"></a>            <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mtot</span>
-<a name="ln-944"></a>            <span class="n">Mslr</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-945"></a>            <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-946"></a>         <span class="k">else if</span> <span class="p">(</span><span class="n">Vimp</span> <span class="o">&lt;</span> <span class="n">Verosion</span><span class="p">)</span> <span class="k">then </span>
-<a name="ln-947"></a><span class="k">            if</span> <span class="p">(</span><span class="n">b</span> <span class="o">&lt;</span> <span class="n">bcrit</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-948"></a><span class="k">               </span><span class="n">regime</span> <span class="o">=</span> <span class="n">COLLRESOLVE_REGIME_MERGE</span> <span class="c">!partial accretion regime&quot;</span>
-<a name="ln-949"></a>               <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mtot</span>
-<a name="ln-950"></a>               <span class="n">Mslr</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-951"></a>               <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-952"></a>            <span class="k">else if</span> <span class="p">((</span><span class="n">b</span> <span class="o">&gt;</span> <span class="n">bcrit</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">Vimp</span> <span class="o">&lt;</span> <span class="n">Vhr</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-953"></a><span class="k">               </span><span class="n">regime</span> <span class="o">=</span> <span class="n">COLLRESOLVE_REGIME_MERGE</span> <span class="c">! graze and merge</span>
-<a name="ln-954"></a>               <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mtot</span>
-<a name="ln-955"></a>               <span class="n">Mslr</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-956"></a>               <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-957"></a>            <span class="k">else</span>
-<a name="ln-958"></a><span class="k">               </span><span class="n">Mlr</span> <span class="o">=</span> <span class="n">m1</span>
-<a name="ln-959"></a>               <span class="n">Mslr</span> <span class="o">=</span> <span class="n">calc_Qrd_rev</span><span class="p">(</span><span class="n">m2</span><span class="p">,</span> <span class="n">m1</span><span class="p">,</span> <span class="n">Mint</span><span class="p">,</span> <span class="n">den1</span><span class="p">,</span> <span class="n">den2</span><span class="p">,</span> <span class="n">Vimp</span><span class="p">,</span> <span class="n">c_star</span><span class="p">)</span>
-<a name="ln-960"></a>               <span class="n">regime</span> <span class="o">=</span> <span class="n">COLLRESOLVE_REGIME_HIT_AND_RUN</span> <span class="c">!hit and run</span>
-<a name="ln-961"></a>               <span class="n">Qloss</span> <span class="o">=</span> <span class="p">(</span><span class="n">c_star</span> <span class="o">+</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="o">*</span> <span class="n">U_binding</span> <span class="c">! Qr </span>
-<a name="ln-962"></a>            <span class="k">end if </span>
-<a name="ln-963"></a><span class="k">         else if</span> <span class="p">(</span><span class="n">Vimp</span> <span class="o">&gt;</span> <span class="n">Verosion</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="n">Vimp</span> <span class="o">&lt;</span> <span class="n">Vsupercat</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-964"></a><span class="k">            if</span> <span class="p">(</span><span class="n">m2</span> <span class="o">&lt;</span> <span class="mf">0.001_DP</span> <span class="o">*</span> <span class="n">m1</span><span class="p">)</span> <span class="k">then </span>
-<a name="ln-965"></a><span class="k">               </span><span class="n">regime</span> <span class="o">=</span> <span class="n">COLLRESOLVE_REGIME_MERGE</span> <span class="c">!cratering regime&quot;</span>
-<a name="ln-966"></a>               <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mtot</span>
-<a name="ln-967"></a>               <span class="n">Mslr</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-968"></a>               <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-969"></a>            <span class="k">else </span>
-<a name="ln-970"></a><span class="k">               </span><span class="n">Mslr</span> <span class="o">=</span> <span class="n">Mtot</span> <span class="o">*</span> <span class="p">(</span><span class="mf">3.0_DP</span> <span class="o">-</span> <span class="n">BETA</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">N1</span> <span class="o">*</span> <span class="n">Mlr</span> <span class="o">/</span> <span class="n">Mtot</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">N2</span> <span class="o">*</span> <span class="n">BETA</span><span class="p">)</span>  <span class="c">! LS12 eq (37)</span>
-<a name="ln-971"></a>               <span class="n">regime</span> <span class="o">=</span> <span class="n">COLLRESOLVE_REGIME_DISRUPTION</span> <span class="c">!disruption</span>
-<a name="ln-972"></a>               <span class="n">Qloss</span> <span class="o">=</span> <span class="p">(</span><span class="n">c_star</span> <span class="o">+</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="o">*</span> <span class="n">U_binding</span> <span class="c">! Qr - Qr_erosion</span>
-<a name="ln-973"></a>            <span class="k">end if </span>
-<a name="ln-974"></a><span class="k">         else if</span> <span class="p">(</span><span class="n">Vimp</span> <span class="o">&gt;</span> <span class="n">Vsupercat</span><span class="p">)</span> <span class="k">then </span>
-<a name="ln-975"></a><span class="k">            </span><span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mtot</span> <span class="o">*</span> <span class="mf">0.1_DP</span> <span class="o">*</span> <span class="p">(</span><span class="n">Qr</span> <span class="o">/</span> <span class="p">(</span><span class="n">Qrd_pstar</span> <span class="o">*</span> <span class="n">SUPERCAT_QRATIO</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="o">-</span><span class="mf">1.5_DP</span><span class="p">)</span>   <span class="c">!LS12 eq (44)</span>
-<a name="ln-976"></a>            <span class="n">Mslr</span> <span class="o">=</span> <span class="n">Mtot</span> <span class="o">*</span> <span class="p">(</span><span class="mf">3.0_DP</span> <span class="o">-</span> <span class="n">BETA</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">N1</span> <span class="o">*</span> <span class="n">Mlr</span> <span class="o">/</span> <span class="n">Mtot</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">N2</span> <span class="o">*</span> <span class="n">BETA</span><span class="p">)</span>  <span class="c">!LS12 eq (37)</span>
-<a name="ln-977"></a>            <span class="n">regime</span> <span class="o">=</span> <span class="n">COLLRESOLVE_REGIME_SUPERCATASTROPHIC</span> <span class="c">! supercatastrophic</span>
-<a name="ln-978"></a>            <span class="n">Qloss</span> <span class="o">=</span> <span class="p">(</span><span class="n">c_star</span> <span class="o">+</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="o">*</span> <span class="n">U_binding</span> <span class="c">! Qr - Qr_supercat</span>
-<a name="ln-979"></a>         <span class="k">else </span>
-<a name="ln-980"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Error no regime found in symba_regime&quot;</span>
-<a name="ln-981"></a>         <span class="k">end if </span>
-<a name="ln-982"></a><span class="k">      end if </span>
-<a name="ln-983"></a><span class="k">      </span><span class="n">Mresidual</span> <span class="o">=</span> <span class="n">Mtot</span> <span class="o">-</span> <span class="n">Mlr</span> <span class="o">-</span> <span class="n">Mslr</span>
-<a name="ln-984"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">Mresidual</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span> <span class="c">! prevents final masses from going negative</span>
-<a name="ln-985"></a>         <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mlr</span> <span class="o">+</span> <span class="n">Mresidual</span>
-<a name="ln-986"></a>      <span class="k">end if</span>
-<a name="ln-987"></a><span class="k">         </span>
-<a name="ln-988"></a><span class="k">      return</span> 
-<a name="ln-989"></a>
-<a name="ln-990"></a>      <span class="c">! Internal functions</span>
-<a name="ln-991"></a>      <span class="k">contains</span>
-<a name="ln-992"></a><span class="k">         function </span><span class="n">calc_Qrd_pstar</span><span class="p">(</span><span class="n">Mtarg</span><span class="p">,</span> <span class="n">Mp</span><span class="p">,</span> <span class="n">alpha</span><span class="p">,</span> <span class="n">c_star</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">Qrd_pstar</span><span class="p">)</span>
-<a name="ln-993"></a>            <span class="c">!! author: Jennifer L.L. Pouplin and Carlisle A. Wishard</span>
-<a name="ln-994"></a>            <span class="c">!!</span>
-<a name="ln-995"></a>            <span class="c">!! Calculates the corrected Q* for oblique impacts. See Eq. (15) of LS12.</span>
-<a name="ln-996"></a>            <span class="c">!!       Reference:</span>
-<a name="ln-997"></a>            <span class="c">!!       Leinhardt, Z.M., Stewart, S.T., 2012. Collisions between Gravity-dominated Bodies. I. Outcome Regimes and Scaling </span>
-<a name="ln-998"></a>            <span class="c">!!          Laws 745, 79. https://doi.org/10.1088/0004-637X/745/1/79</span>
-<a name="ln-999"></a>            <span class="c">!! </span>
-<a name="ln-1000"></a>            <span class="k">implicit none</span>
-<a name="ln-1001"></a>            <span class="c">! Arguments</span>
-<a name="ln-1002"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Mtarg</span><span class="p">,</span> <span class="n">Mp</span><span class="p">,</span> <span class="n">alpha</span><span class="p">,</span> <span class="n">c_star</span>
-<a name="ln-1003"></a>            <span class="c">! Result</span>
-<a name="ln-1004"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>      <span class="kd">::</span> <span class="n">Qrd_pstar</span>
-<a name="ln-1005"></a>            <span class="c">! Internals</span>
-<a name="ln-1006"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>      <span class="kd">::</span> <span class="n">Qrd_star1</span><span class="p">,</span> <span class="n">mu_alpha</span><span class="p">,</span> <span class="n">mu</span><span class="p">,</span> <span class="n">Qrd_star</span>
-<a name="ln-1007"></a>
-<a name="ln-1008"></a>            <span class="c">! calc mu, mu_alpha</span>
-<a name="ln-1009"></a>            <span class="n">mu</span> <span class="o">=</span> <span class="p">(</span><span class="n">Mtarg</span> <span class="o">*</span> <span class="n">Mp</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">Mtarg</span> <span class="o">+</span> <span class="n">Mp</span><span class="p">)</span>  <span class="c">! [kg]</span>
-<a name="ln-1010"></a>            <span class="n">mu_alpha</span> <span class="o">=</span> <span class="p">(</span><span class="n">Mtarg</span> <span class="o">*</span> <span class="n">alpha</span> <span class="o">*</span> <span class="n">Mp</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">Mtarg</span> <span class="o">+</span> <span class="n">alpha</span> <span class="o">*</span> <span class="n">Mp</span><span class="p">)</span>  <span class="c">! [kg]</span>
-<a name="ln-1011"></a>            <span class="c">! calc Qrd_star1</span>
-<a name="ln-1012"></a>            <span class="n">Qrd_star1</span> <span class="o">=</span> <span class="p">(</span><span class="n">c_star</span> <span class="o">*</span> <span class="mi">4</span> <span class="o">*</span> <span class="n">PI</span> <span class="o">*</span> <span class="n">DENSITY1</span> <span class="o">*</span> <span class="n">GC</span> <span class="o">*</span> <span class="n">Rp</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="o">/</span> <span class="mf">5.0_DP</span>
-<a name="ln-1013"></a>            <span class="c">! calc Qrd_star</span>
-<a name="ln-1014"></a>            <span class="n">Qrd_star</span> <span class="o">=</span> <span class="n">Qrd_star1</span> <span class="o">*</span> <span class="p">(((</span><span class="n">Mp</span> <span class="o">/</span> <span class="n">Mtarg</span> <span class="o">+</span> <span class="mf">1.0_DP</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="n">Mp</span> <span class="o">/</span> <span class="n">Mtarg</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="mf">2.0_DP</span> <span class="o">/</span> <span class="p">(</span><span class="mf">3.0_DP</span> <span class="o">*</span> <span class="n">MU_BAR</span><span class="p">)</span> <span class="o">-</span> <span class="mf">1.0_DP</span><span class="p">)</span>  <span class="c">!(eq 23)</span>
-<a name="ln-1015"></a>            <span class="c">! calc Qrd_pstar, v_pstar</span>
-<a name="ln-1016"></a>            <span class="n">Qrd_pstar</span> <span class="o">=</span> <span class="p">((</span><span class="n">mu</span> <span class="o">/</span> <span class="n">mu_alpha</span><span class="p">)</span><span class="o">**</span><span class="p">(</span><span class="mf">2.0_DP</span> <span class="o">-</span> <span class="mf">3.0_DP</span> <span class="o">*</span> <span class="n">MU_BAR</span> <span class="o">/</span> <span class="mf">2.0_DP</span><span class="p">))</span> <span class="o">*</span> <span class="n">Qrd_star</span>  <span class="c">! (eq 15)</span>
-<a name="ln-1017"></a>
-<a name="ln-1018"></a>            <span class="k">return</span>
-<a name="ln-1019"></a><span class="k">         end function </span><span class="n">calc_Qrd_pstar</span>
-<a name="ln-1020"></a>
-<a name="ln-1021"></a>         <span class="k">function </span><span class="n">calc_Qrd_rev</span><span class="p">(</span><span class="n">Mp</span><span class="p">,</span> <span class="n">Mtarg</span><span class="p">,</span> <span class="n">Mint</span><span class="p">,</span> <span class="n">den1</span><span class="p">,</span> <span class="n">den2</span><span class="p">,</span> <span class="n">Vimp</span><span class="p">,</span> <span class="n">c_star</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">Mslr</span><span class="p">)</span>
-<a name="ln-1022"></a>            <span class="c">!! author: Jennifer L.L. Pouplin and Carlisle A. Wishard</span>
-<a name="ln-1023"></a>            <span class="c">!!</span>
-<a name="ln-1024"></a>            <span class="c">!! Calculates mass of second largest fragment.</span>
-<a name="ln-1025"></a>            <span class="c">!! </span>
-<a name="ln-1026"></a>            <span class="k">implicit none</span>
-<a name="ln-1027"></a>            <span class="c">! Arguments</span>
-<a name="ln-1028"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Mp</span><span class="p">,</span> <span class="n">Mtarg</span><span class="p">,</span> <span class="n">Mint</span><span class="p">,</span> <span class="n">den1</span><span class="p">,</span> <span class="n">den2</span><span class="p">,</span> <span class="n">Vimp</span><span class="p">,</span> <span class="n">c_star</span>
-<a name="ln-1029"></a>            <span class="c">! Result</span>
-<a name="ln-1030"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Mslr</span>
-<a name="ln-1031"></a>            <span class="c">! Internals</span>
-<a name="ln-1032"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mtot_rev</span><span class="p">,</span> <span class="n">mu_rev</span><span class="p">,</span> <span class="n">gamma_rev</span><span class="p">,</span> <span class="n">Qrd_star1</span><span class="p">,</span> <span class="n">Qrd_star</span><span class="p">,</span> <span class="n">mu_alpha_rev</span>
-<a name="ln-1033"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Qrd_pstar</span><span class="p">,</span> <span class="n">Rc1</span><span class="p">,</span> <span class="n">Qr_rev</span><span class="p">,</span> <span class="n">Qrd_pstar_rev</span><span class="p">,</span> <span class="n">Qr_supercat_rev</span>
-<a name="ln-1034"></a>
-<a name="ln-1035"></a>            <span class="c">! calc Mslr, Rc1, mu, gammalr</span>
-<a name="ln-1036"></a>            <span class="n">mtot_rev</span> <span class="o">=</span>  <span class="n">Mint</span> <span class="o">+</span> <span class="n">Mp</span>
-<a name="ln-1037"></a>            <span class="n">Rc1</span> <span class="o">=</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="p">(</span><span class="n">Mint</span> <span class="o">/</span> <span class="n">den1</span> <span class="o">+</span> <span class="n">Mp</span> <span class="o">/</span> <span class="n">den2</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="n">PI</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="mf">1.0_DP</span><span class="o">/</span><span class="mf">3.0_DP</span><span class="p">)</span> <span class="c">! [m] Mustill et al 2018</span>
-<a name="ln-1038"></a>            <span class="n">mu_rev</span> <span class="o">=</span> <span class="p">(</span><span class="n">Mint</span> <span class="o">*</span> <span class="n">Mp</span><span class="p">)</span> <span class="o">/</span> <span class="n">mtot_rev</span> <span class="c">! [kg] eq 49 LS12</span>
-<a name="ln-1039"></a>            <span class="n">mu_alpha_rev</span> <span class="o">=</span> <span class="p">(</span><span class="n">Mtarg</span> <span class="o">*</span> <span class="n">alpha</span> <span class="o">*</span> <span class="n">Mp</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">Mtarg</span> <span class="o">+</span> <span class="n">alpha</span> <span class="o">*</span> <span class="n">Mp</span><span class="p">)</span>
-<a name="ln-1040"></a>            <span class="n">gamma_rev</span> <span class="o">=</span> <span class="n">Mint</span> <span class="o">/</span> <span class="n">Mp</span> <span class="c">! eq 50 LS12</span>
-<a name="ln-1041"></a>            <span class="c">!calc Qr_rev</span>
-<a name="ln-1042"></a>            <span class="n">Qr_rev</span> <span class="o">=</span> <span class="n">mu_rev</span> <span class="o">*</span> <span class="p">(</span><span class="n">Vimp</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">mtot_rev</span><span class="p">)</span>
-<a name="ln-1043"></a>            <span class="c">! calc Qrd_star1, v_star1</span>
-<a name="ln-1044"></a>            <span class="n">Qrd_star1</span> <span class="o">=</span> <span class="p">(</span><span class="n">c_star</span> <span class="o">*</span> <span class="mi">4</span> <span class="o">*</span> <span class="n">PI</span> <span class="o">*</span> <span class="n">mtot_rev</span> <span class="o">*</span> <span class="n">GC</span> <span class="p">)</span> <span class="o">/</span> <span class="n">Rc1</span> <span class="o">/</span> <span class="mf">5.0_DP</span>
-<a name="ln-1045"></a>            <span class="c">! calc Qrd_pstar_rev</span>
-<a name="ln-1046"></a>            <span class="n">Qrd_star</span> <span class="o">=</span> <span class="n">Qrd_star1</span> <span class="o">*</span> <span class="p">(((</span><span class="n">gamma_rev</span> <span class="o">+</span> <span class="mf">1.0_DP</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="n">gamma_rev</span><span class="p">))</span> <span class="o">**</span> <span class="p">(</span><span class="mf">2.0_DP</span> <span class="o">/</span> <span class="p">(</span><span class="mf">3.0_DP</span> <span class="o">*</span> <span class="n">MU_BAR</span><span class="p">)</span> <span class="o">-</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="c">!(eq 52)</span>
-<a name="ln-1047"></a>            <span class="n">Qrd_pstar</span> <span class="o">=</span> <span class="n">Qrd_star</span> <span class="o">*</span> <span class="p">((</span><span class="n">mu_rev</span> <span class="o">/</span> <span class="n">mu_alpha_rev</span><span class="p">)</span><span class="o">**</span><span class="p">(</span><span class="mf">2.0_DP</span> <span class="o">-</span> <span class="mf">3.0_DP</span> <span class="o">*</span> <span class="n">MU_BAR</span> <span class="o">/</span> <span class="mf">2.0_DP</span><span class="p">))</span>
-<a name="ln-1048"></a>            <span class="n">Qrd_pstar_rev</span> <span class="o">=</span> <span class="n">Qrd_pstar</span> <span class="o">*</span> <span class="p">(</span><span class="n">Vhill</span> <span class="o">/</span> <span class="n">Vescp</span><span class="p">)</span><span class="o">**</span><span class="n">CRUFU</span> <span class="c">!Rufu and Aharaonson eq (3)</span>
-<a name="ln-1049"></a>            <span class="c">!calc Qr_supercat_rev</span>
-<a name="ln-1050"></a>            <span class="n">Qr_supercat_rev</span> <span class="o">=</span> <span class="mf">1.8_DP</span> <span class="o">*</span> <span class="n">Qrd_pstar_rev</span> 
-<a name="ln-1051"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">Qr_rev</span> <span class="o">&gt;</span> <span class="n">Qr_supercat_rev</span> <span class="p">)</span> <span class="k">then </span>
-<a name="ln-1052"></a><span class="k">               </span><span class="n">Mslr</span> <span class="o">=</span> <span class="n">mtot_rev</span> <span class="o">*</span> <span class="p">(</span><span class="mf">0.1_DP</span> <span class="o">*</span> <span class="p">((</span><span class="n">Qr_rev</span> <span class="o">/</span> <span class="p">(</span><span class="n">Qrd_pstar_rev</span> <span class="o">*</span> <span class="mf">1.8_DP</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="o">-</span><span class="mf">1.5_DP</span><span class="p">)))</span>   <span class="c">!eq (44)</span>
-<a name="ln-1053"></a>            <span class="k">else if</span> <span class="p">(</span> <span class="n">Qr_rev</span> <span class="o">&lt;</span> <span class="n">Qrd_pstar_rev</span> <span class="p">)</span> <span class="k">then </span>
-<a name="ln-1054"></a><span class="k">               </span><span class="n">Mslr</span> <span class="o">=</span> <span class="n">Mp</span> 
-<a name="ln-1055"></a>            <span class="k">else </span>
-<a name="ln-1056"></a><span class="k">               </span><span class="n">Mslr</span> <span class="o">=</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">Qr_rev</span> <span class="o">/</span> <span class="n">Qrd_pstar_rev</span> <span class="o">/</span> <span class="mf">2.0_DP</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="n">mtot_rev</span><span class="p">)</span>  <span class="c">! [kg] #(eq 5)</span>
-<a name="ln-1057"></a>            <span class="k">end if </span>
-<a name="ln-1058"></a>
-<a name="ln-1059"></a><span class="k">            if</span> <span class="p">(</span> <span class="n">Mslr</span> <span class="o">&gt;</span> <span class="n">Mp</span> <span class="p">)</span> <span class="n">Mslr</span> <span class="o">=</span> <span class="n">Mp</span> <span class="c">!check conservation of mass</span>
-<a name="ln-1060"></a>
-<a name="ln-1061"></a>            <span class="k">return</span>
-<a name="ln-1062"></a><span class="k">         end function </span><span class="n">calc_Qrd_rev</span>
-<a name="ln-1063"></a>
-<a name="ln-1064"></a>         <span class="k">function </span><span class="n">calc_b</span><span class="p">(</span><span class="n">proj_pos</span><span class="p">,</span> <span class="n">proj_vel</span><span class="p">,</span> <span class="n">targ_pos</span><span class="p">,</span> <span class="n">targ_vel</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">sintheta</span><span class="p">)</span>
-<a name="ln-1065"></a>            <span class="c">!! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
-<a name="ln-1066"></a>            <span class="c">!!</span>
-<a name="ln-1067"></a>            <span class="c">!! Calculates the impact factor b = sin(theta), where theta is the angle between the relative velocity</span>
-<a name="ln-1068"></a>            <span class="c">!! and distance vectors of the target and projectile bodies. See Fig. 2 of Leinhardt and Stewart (2012)</span>
-<a name="ln-1069"></a>            <span class="c">!! </span>
-<a name="ln-1070"></a>            <span class="k">implicit none</span>
-<a name="ln-1071"></a>            <span class="c">!! Arguments</span>
-<a name="ln-1072"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">proj_pos</span><span class="p">,</span> <span class="n">proj_vel</span><span class="p">,</span> <span class="n">targ_pos</span><span class="p">,</span> <span class="n">targ_vel</span>
-<a name="ln-1073"></a>            <span class="c">!! Result</span>
-<a name="ln-1074"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">sintheta</span>
-<a name="ln-1075"></a>            <span class="c">!! Internals</span>
-<a name="ln-1076"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>     <span class="kd">::</span> <span class="n">imp_vel</span><span class="p">,</span> <span class="n">distance</span><span class="p">,</span> <span class="n">x_cross_v</span>      
-<a name="ln-1077"></a>
-<a name="ln-1078"></a>            <span class="n">imp_vel</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">proj_vel</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">targ_vel</span><span class="p">(:)</span>
-<a name="ln-1079"></a>            <span class="n">distance</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">proj_pos</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">targ_pos</span><span class="p">(:)</span>
-<a name="ln-1080"></a>            <span class="n">x_cross_v</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">distance</span><span class="p">(:)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">imp_vel</span><span class="p">(:)</span> 
-<a name="ln-1081"></a>            <span class="n">sintheta</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">x_cross_v</span><span class="p">(:))</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">distance</span><span class="p">(:))</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">imp_vel</span><span class="p">(:))</span>
-<a name="ln-1082"></a>            <span class="k">return </span>
-<a name="ln-1083"></a><span class="k">         end function </span><span class="n">calc_b</span>
+<a name="ln-837"></a>         <span class="k">function </span><span class="n">vmag_to_vb</span><span class="p">(</span><span class="n">v_r_mag</span><span class="p">,</span> <span class="n">v_r_unit</span><span class="p">,</span> <span class="n">v_t_mag</span><span class="p">,</span> <span class="n">v_t_unit</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">vcom</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">vb</span><span class="p">)</span> 
+<a name="ln-838"></a>            <span class="c">!! Author: David A. Minton</span>
+<a name="ln-839"></a>            <span class="c">!!</span>
+<a name="ln-840"></a>            <span class="c">!! Converts radial and tangential velocity magnitudes into barycentric velocity</span>
+<a name="ln-841"></a>            <span class="k">implicit none</span>
+<a name="ln-842"></a>            <span class="c">! Arguments</span>
+<a name="ln-843"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">v_r_mag</span>   <span class="c">!! Unknown radial component of fragment velocity vector</span>
+<a name="ln-844"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">v_t_mag</span>   <span class="c">!! Tangential component of velocity vector set previously by angular momentum constraint</span>
+<a name="ln-845"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">v_r_unit</span><span class="p">,</span> <span class="n">v_t_unit</span> <span class="c">!! Radial and tangential unit vectors for each fragment</span>
+<a name="ln-846"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">m_frag</span>    <span class="c">!! Fragment masses</span>
+<a name="ln-847"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">vcom</span>      <span class="c">!! Barycentric velocity of collisional system center of mass</span>
+<a name="ln-848"></a>            <span class="c">! Result</span>
+<a name="ln-849"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span>   <span class="kd">::</span> <span class="n">vb</span>
+<a name="ln-850"></a>            <span class="c">! Internals</span>
+<a name="ln-851"></a>            <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-852"></a>
+<a name="ln-853"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">vb</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">v_r_unit</span><span class="p">)</span>
+<a name="ln-854"></a>            <span class="c">! Make sure the velocity magnitude stays positive</span>
+<a name="ln-855"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-856"></a>               <span class="n">vb</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="nb">abs</span><span class="p">(</span><span class="n">v_r_mag</span><span class="p">(</span><span class="n">i</span><span class="p">))</span> <span class="o">*</span> <span class="n">v_r_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-857"></a>            <span class="k">end do</span>
+<a name="ln-858"></a>            <span class="c">! In order to keep satisfying the kinetic energy constraint, we must shift the origin of the radial component of the velocities to the center of mass</span>
+<a name="ln-859"></a>            <span class="k">call </span><span class="n">shift_vector_to_origin</span><span class="p">(</span><span class="n">m_frag</span><span class="p">,</span> <span class="n">vb</span><span class="p">)</span>
+<a name="ln-860"></a>            
+<a name="ln-861"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-862"></a>               <span class="n">vb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">vb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">v_t_mag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">v_t_unit</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">vcom</span><span class="p">(:)</span>
+<a name="ln-863"></a>            <span class="k">end do</span>
+<a name="ln-864"></a>
+<a name="ln-865"></a><span class="k">            return</span>
+<a name="ln-866"></a><span class="k">         end function </span><span class="n">vmag_to_vb</span>
+<a name="ln-867"></a>
+<a name="ln-868"></a>
+<a name="ln-869"></a>         <span class="k">subroutine </span><span class="n">restructure_failed_fragments</span><span class="p">()</span>
+<a name="ln-870"></a>            <span class="c">!! Author: David A. Minton</span>
+<a name="ln-871"></a>            <span class="c">!!</span>
+<a name="ln-872"></a>            <span class="c">!! We failed to find a set of positions and velocities that satisfy all the constraints, and so we will alter the fragments and try again.</span>
+<a name="ln-873"></a>            <span class="k">implicit none</span>
+<a name="ln-874"></a><span class="k">            </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-875"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">m_frag_new</span><span class="p">,</span> <span class="n">rad_frag_new</span>
+<a name="ln-876"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">xb_frag_new</span><span class="p">,</span> <span class="n">vb_frag_new</span><span class="p">,</span> <span class="n">Ip_frag_new</span><span class="p">,</span> <span class="n">rot_frag_new</span>
+<a name="ln-877"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">delta_r</span><span class="p">,</span> <span class="n">delta_r_max</span>
+<a name="ln-878"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">ke_avg_deficit_target</span> <span class="o">=</span> <span class="mf">0.0_DP</span> 
+<a name="ln-879"></a>
+<a name="ln-880"></a>            <span class="c">! Introduce a bit of noise in the radius determination so we don&#39;t just flip flop between similar failed positions</span>
+<a name="ln-881"></a>            <span class="k">call </span><span class="nb">random_number</span><span class="p">(</span><span class="n">delta_r_max</span><span class="p">)</span>
+<a name="ln-882"></a>            <span class="n">delta_r_max</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">radius</span><span class="p">(:))</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">+</span> <span class="mf">2e-1_DP</span> <span class="o">*</span> <span class="p">(</span><span class="n">delta_r_max</span> <span class="o">-</span> <span class="mf">0.5_DP</span><span class="p">))</span>
+<a name="ln-883"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">try</span> <span class="o">&gt;</span> <span class="mi">2</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-884"></a>               <span class="c">! Linearly interpolate the last two failed solution ke deficits to find a new distance value to try</span>
+<a name="ln-885"></a>               <span class="n">delta_r</span> <span class="o">=</span> <span class="p">(</span><span class="n">r_max_start</span> <span class="o">-</span> <span class="n">r_max_start_old</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="n">ke_avg_deficit_target</span> <span class="o">-</span> <span class="n">ke_avg_deficit_old</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">ke_avg_deficit</span> <span class="o">-</span> <span class="n">ke_avg_deficit_old</span><span class="p">)</span>
+<a name="ln-886"></a>               <span class="k">if</span> <span class="p">(</span><span class="nb">abs</span><span class="p">(</span><span class="n">delta_r</span><span class="p">)</span> <span class="o">&gt;</span> <span class="n">delta_r_max</span><span class="p">)</span> <span class="n">delta_r</span> <span class="o">=</span> <span class="nb">sign</span><span class="p">(</span><span class="n">delta_r_max</span><span class="p">,</span> <span class="n">delta_r</span><span class="p">)</span>
+<a name="ln-887"></a>            <span class="k">else</span>
+<a name="ln-888"></a><span class="k">               </span><span class="n">delta_r</span> <span class="o">=</span> <span class="n">delta_r_max</span>
+<a name="ln-889"></a>            <span class="k">end if</span>
+<a name="ln-890"></a><span class="k">            </span><span class="n">r_max_start_old</span> <span class="o">=</span> <span class="n">r_max_start</span>
+<a name="ln-891"></a>            <span class="n">r_max_start</span> <span class="o">=</span> <span class="n">r_max_start</span> <span class="o">+</span> <span class="n">delta_r</span> <span class="c">! The larger lever arm can help if the problem is in the angular momentum step</span>
+<a name="ln-892"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">f_spin</span> <span class="o">&gt;</span> <span class="nb">epsilon</span><span class="p">(</span><span class="mf">1.0_DP</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-893"></a><span class="k">               </span><span class="n">f_spin</span> <span class="o">=</span> <span class="n">f_spin</span> <span class="o">/</span> <span class="mi">2</span>
+<a name="ln-894"></a>            <span class="k">else</span>
+<a name="ln-895"></a><span class="k">               </span><span class="n">f_spin</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-896"></a>            <span class="k">end if</span>
+<a name="ln-897"></a>
+<a name="ln-898"></a><span class="k">            return</span>
+<a name="ln-899"></a><span class="k">         end subroutine </span><span class="n">restructure_failed_fragments</span>
+<a name="ln-900"></a>   <span class="k">end subroutine </span><span class="n">fragmentation_initialize</span>
+<a name="ln-901"></a>
+<a name="ln-902"></a>
+<a name="ln-903"></a>   <span class="k">module subroutine </span><span class="n">fragmentation_regime</span><span class="p">(</span><span class="n">Mcb</span><span class="p">,</span> <span class="n">m1</span><span class="p">,</span> <span class="n">m2</span><span class="p">,</span> <span class="n">rad1</span><span class="p">,</span> <span class="n">rad2</span><span class="p">,</span> <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vb1</span><span class="p">,</span> <span class="n">vb2</span><span class="p">,</span> <span class="n">den1</span><span class="p">,</span> <span class="n">den2</span><span class="p">,</span> <span class="n">regime</span><span class="p">,</span> <span class="n">Mlr</span><span class="p">,</span> <span class="n">Mslr</span><span class="p">,</span> <span class="n">mtiny</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">)</span>
+<a name="ln-904"></a>      <span class="c">!! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-905"></a>      <span class="c">!!</span>
+<a name="ln-906"></a>      <span class="c">!! Determine the collisional regime of two colliding bodies. </span>
+<a name="ln-907"></a>      <span class="c">!! Current version requires all values to be converted to SI units prior to calling the function</span>
+<a name="ln-908"></a>      <span class="c">!!       References:</span>
+<a name="ln-909"></a>      <span class="c">!!       Kokubo, E., Genda, H., 2010. Formation of Terrestrial Planets from Protoplanets Under a Realistic Accretion </span>
+<a name="ln-910"></a>      <span class="c">!!          Condition. ApJL 714, L21. https://doi.org/10.1088/2041-8205/714/1/L21</span>
+<a name="ln-911"></a>      <span class="c">!!       Leinhardt, Z.M., Stewart, S.T., 2012. Collisions between Gravity-dominated Bodies. I. Outcome Regimes and Scaling </span>
+<a name="ln-912"></a>      <span class="c">!!          Laws 745, 79. https://doi.org/10.1088/0004-637X/745/1/79</span>
+<a name="ln-913"></a>      <span class="c">!!       Mustill, A.J., Davies, M.B., Johansen, A., 2018. The dynamical evolution of transiting planetary systems including </span>
+<a name="ln-914"></a>      <span class="c">!!          a realistic collision prescription. Mon Not R Astron Soc 478, 2896–2908. https://doi.org/10.1093/mnras/sty1273</span>
+<a name="ln-915"></a>      <span class="c">!!       Rufu, R., Aharonson, O., 2019. Impact Dynamics of Moons Within a Planetary Potential. J. Geophys. Res. Planets 124, </span>
+<a name="ln-916"></a>      <span class="c">!!          1008–1019. https://doi.org/10.1029/2018JE005798</span>
+<a name="ln-917"></a>      <span class="c">!!       Stewart, S.T., Leinhardt, Z.M., 2012. Collisions between Gravity-dominated Bodies. II. The Diversity of Impact </span>
+<a name="ln-918"></a>      <span class="c">!!          Outcomes during the End Stage of Planet Formation. ApJ 751, 32. https://doi.org/10.1088/0004-637X/751/1/32</span>
+<a name="ln-919"></a>      <span class="c">!!</span>
+<a name="ln-920"></a>      <span class="k">implicit none</span>
+<a name="ln-921"></a>      <span class="c">! Arguments</span>
+<a name="ln-922"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>         <span class="kd">::</span> <span class="n">regime</span>
+<a name="ln-923"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">Mlr</span><span class="p">,</span> <span class="n">Mslr</span>
+<a name="ln-924"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">Mcb</span><span class="p">,</span> <span class="n">m1</span><span class="p">,</span> <span class="n">m2</span><span class="p">,</span> <span class="n">rad1</span><span class="p">,</span> <span class="n">rad2</span><span class="p">,</span> <span class="n">den1</span><span class="p">,</span> <span class="n">den2</span><span class="p">,</span> <span class="n">mtiny</span> 
+<a name="ln-925"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vb1</span><span class="p">,</span> <span class="n">vb2</span>
+<a name="ln-926"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">Qloss</span> <span class="c">!! The residual energy after the collision </span>
+<a name="ln-927"></a>      <span class="c">! Constants</span>
+<a name="ln-928"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">N1</span> <span class="o">=</span> <span class="mi">1</span>  <span class="c">!number of objects with mass equal to the largest remnant from LS12</span>
+<a name="ln-929"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">N2</span> <span class="o">=</span> <span class="mi">2</span>  <span class="c">!number of objects with mass larger than second largest remnant from LS12</span>
+<a name="ln-930"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">DENSITY1</span> <span class="o">=</span> <span class="mi">100</span><span class="mf">0.0_DP</span> <span class="c">!standard density parameter from LS12 [kg/m3]</span>
+<a name="ln-931"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">MU_BAR</span> <span class="o">=</span> <span class="mf">0.37_DP</span> <span class="c">!0.385#0.37#0.3333# 3.978 # 1/3 material parameter for hydrodynamic planet-size bodies (LS12)</span>
+<a name="ln-932"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">BETA</span> <span class="o">=</span> <span class="mf">2.85_DP</span> <span class="c">!slope of sfd for remnants from LS12 2.85</span>
+<a name="ln-933"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">C1</span> <span class="o">=</span> <span class="mf">2.43_DP</span>  <span class="c">!! Kokubo &amp; Genda (2010) eq. (3)</span>
+<a name="ln-934"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">C2</span> <span class="o">=</span> <span class="o">-</span><span class="mf">0.0408_DP</span> <span class="c">!! Kokubo &amp; Genda (2010) eq. (3)</span>
+<a name="ln-935"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">C3</span> <span class="o">=</span> <span class="mf">1.86_DP</span> <span class="c">!! Kokubo &amp; Genda (2010) eq. (3)</span>
+<a name="ln-936"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">C4</span> <span class="o">=</span> <span class="mf">1.08_DP</span> <span class="c">!! Kokubo &amp; Genda (2010) eq. (3)</span>
+<a name="ln-937"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">CRUFU</span> <span class="o">=</span> <span class="mf">2.0_DP</span> <span class="o">-</span> <span class="mi">3</span> <span class="o">*</span> <span class="n">MU_BAR</span> <span class="c">! central potential variable from Rufu and Aharonson (2019)</span>
+<a name="ln-938"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">SUPERCAT_QRATIO</span> <span class="o">=</span> <span class="mf">1.8_DP</span> <span class="c">! See Section 4.1 of LS12</span>
+<a name="ln-939"></a>      <span class="c">! Internals</span>
+<a name="ln-940"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">a1</span><span class="p">,</span> <span class="n">alpha</span><span class="p">,</span> <span class="nb">aint</span><span class="p">,</span> <span class="n">b</span><span class="p">,</span> <span class="n">bcrit</span><span class="p">,</span> <span class="n">c_star</span><span class="p">,</span> <span class="n">egy</span><span class="p">,</span> <span class="n">zeta</span><span class="p">,</span> <span class="n">l</span><span class="p">,</span> <span class="n">lint</span><span class="p">,</span> <span class="n">mu</span><span class="p">,</span> <span class="n">phi</span><span class="p">,</span> <span class="n">theta</span>
+<a name="ln-941"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">Qr</span><span class="p">,</span> <span class="n">Qrd_pstar</span><span class="p">,</span> <span class="n">Qr_erosion</span><span class="p">,</span> <span class="n">Qr_supercat</span>
+<a name="ln-942"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">Vhr</span><span class="p">,</span> <span class="n">Verosion</span><span class="p">,</span> <span class="n">Vescp</span><span class="p">,</span> <span class="n">Vhill</span><span class="p">,</span> <span class="n">Vimp</span><span class="p">,</span> <span class="n">Vsupercat</span>
+<a name="ln-943"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">Mint</span><span class="p">,</span> <span class="n">Mtot</span>
+<a name="ln-944"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">Rp</span><span class="p">,</span> <span class="n">rhill</span> 
+<a name="ln-945"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">Mresidual</span>
+<a name="ln-946"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">U_binding</span>
+<a name="ln-947"></a>
+<a name="ln-948"></a>      <span class="n">Vimp</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">vb2</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">vb1</span><span class="p">(:))</span>
+<a name="ln-949"></a>      <span class="n">b</span> <span class="o">=</span> <span class="n">calc_b</span><span class="p">(</span><span class="n">xh2</span><span class="p">,</span> <span class="n">vb2</span><span class="p">,</span> <span class="n">xh1</span><span class="p">,</span> <span class="n">vb1</span><span class="p">)</span>
+<a name="ln-950"></a>      <span class="n">l</span> <span class="o">=</span> <span class="p">(</span><span class="n">rad1</span> <span class="o">+</span> <span class="n">rad2</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="mi">1</span> <span class="o">-</span> <span class="n">b</span><span class="p">)</span>
+<a name="ln-951"></a>      <span class="n">egy</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">vb1</span><span class="p">,</span> <span class="n">vb1</span><span class="p">)</span> <span class="o">-</span> <span class="n">GC</span> <span class="o">*</span> <span class="n">Mcb</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">xh1</span><span class="p">)</span>
+<a name="ln-952"></a>      <span class="n">a1</span> <span class="o">=</span> <span class="o">-</span> <span class="n">GC</span> <span class="o">*</span> <span class="n">Mcb</span> <span class="o">/</span> <span class="mf">2.0_DP</span> <span class="o">/</span> <span class="n">egy</span>
+<a name="ln-953"></a>      <span class="n">Mtot</span> <span class="o">=</span> <span class="n">m1</span> <span class="o">+</span> <span class="n">m2</span> 
+<a name="ln-954"></a>      <span class="n">mu</span> <span class="o">=</span> <span class="p">(</span><span class="n">m1</span> <span class="o">*</span> <span class="n">m2</span><span class="p">)</span> <span class="o">/</span> <span class="n">Mtot</span>
+<a name="ln-955"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">l</span> <span class="o">&lt;</span> <span class="mi">2</span> <span class="o">*</span> <span class="n">rad2</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-956"></a>         <span class="c">!calculate Mint</span>
+<a name="ln-957"></a>         <span class="n">phi</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="nb">acos</span><span class="p">((</span><span class="n">l</span> <span class="o">-</span> <span class="n">rad2</span><span class="p">)</span> <span class="o">/</span> <span class="n">rad2</span><span class="p">)</span>
+<a name="ln-958"></a>         <span class="nb">aint</span> <span class="o">=</span> <span class="n">rad2</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="p">(</span><span class="n">PI</span> <span class="o">-</span> <span class="p">(</span><span class="n">phi</span> <span class="o">-</span> <span class="nb">sin</span><span class="p">(</span><span class="n">phi</span><span class="p">))</span> <span class="o">/</span> <span class="mf">2.0_DP</span><span class="p">)</span>
+<a name="ln-959"></a>         <span class="n">lint</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">rad2</span><span class="o">**</span><span class="mi">2</span> <span class="o">-</span> <span class="p">(</span><span class="n">rad2</span> <span class="o">-</span> <span class="n">l</span> <span class="o">/</span> <span class="mf">2.0_DP</span><span class="p">)</span> <span class="o">**</span> <span class="mi">2</span><span class="p">)</span> 
+<a name="ln-960"></a>         <span class="n">Mint</span> <span class="o">=</span> <span class="nb">aint</span> <span class="o">*</span> <span class="n">lint</span>  <span class="c">![kg]</span>
+<a name="ln-961"></a>         <span class="n">alpha</span> <span class="o">=</span> <span class="p">(</span><span class="n">l</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="n">rad2</span> <span class="o">-</span> <span class="n">l</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="p">(</span><span class="n">rad2</span><span class="o">**</span><span class="mi">3</span><span class="p">))</span>
+<a name="ln-962"></a>      <span class="k">else</span>
+<a name="ln-963"></a><span class="k">         </span><span class="n">alpha</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-964"></a>         <span class="n">Mint</span> <span class="o">=</span> <span class="n">m2</span>
+<a name="ln-965"></a>      <span class="k">end if </span>
+<a name="ln-966"></a><span class="k">      </span><span class="n">Rp</span> <span class="o">=</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="p">(</span><span class="n">m1</span> <span class="o">/</span> <span class="n">den1</span> <span class="o">+</span> <span class="n">alpha</span> <span class="o">*</span> <span class="n">m2</span> <span class="o">/</span> <span class="n">den2</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="n">PI</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="mf">1.0_DP</span><span class="o">/</span><span class="mf">3.0_DP</span><span class="p">)</span> <span class="c">! (Mustill et al. 2018)</span>
+<a name="ln-967"></a>      <span class="n">c_star</span> <span class="o">=</span> <span class="n">calc_c_star</span><span class="p">(</span><span class="n">Rp</span><span class="p">)</span>
+<a name="ln-968"></a>      <span class="c">!calculate Vescp</span>
+<a name="ln-969"></a>      <span class="n">Vescp</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">GC</span> <span class="o">*</span> <span class="n">Mtot</span> <span class="o">/</span> <span class="n">Rp</span><span class="p">)</span> <span class="c">!Mustill et al. 2018 eq 6 </span>
+<a name="ln-970"></a>      <span class="c">!calculate rhill</span>
+<a name="ln-971"></a>      <span class="n">rhill</span> <span class="o">=</span> <span class="n">a1</span> <span class="o">*</span> <span class="p">(</span><span class="n">m1</span> <span class="o">/</span> <span class="mf">3.0_DP</span> <span class="o">/</span> <span class="p">(</span><span class="n">Mcb</span> <span class="o">+</span> <span class="n">m1</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="mf">1.0_DP</span><span class="o">/</span><span class="mf">3.0_DP</span><span class="p">)</span>
+<a name="ln-972"></a>      <span class="c">!calculate Vhill</span>
+<a name="ln-973"></a>      <span class="k">if</span> <span class="p">((</span><span class="n">rad2</span> <span class="o">+</span> <span class="n">rad1</span><span class="p">)</span> <span class="o">&lt;</span> <span class="n">rhill</span><span class="p">)</span> <span class="k">then </span>
+<a name="ln-974"></a><span class="k">         </span><span class="n">Vhill</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">GC</span> <span class="o">*</span> <span class="n">m1</span> <span class="o">*</span> <span class="p">((</span><span class="n">rhill</span><span class="o">**</span><span class="mi">2</span> <span class="o">-</span> <span class="n">rhill</span> <span class="o">*</span> <span class="p">(</span><span class="n">rad1</span> <span class="o">+</span> <span class="n">rad2</span><span class="p">))</span> <span class="o">/</span> <span class="p">&amp;</span>
+<a name="ln-975"></a>         <span class="p">(</span><span class="n">rhill</span><span class="o">**</span><span class="mi">2</span> <span class="o">-</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="p">(</span><span class="n">rad1</span> <span class="o">+</span> <span class="n">rad2</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="p">(</span><span class="n">rad1</span> <span class="o">+</span> <span class="n">rad2</span><span class="p">))</span>
+<a name="ln-976"></a>      <span class="k">else</span>
+<a name="ln-977"></a><span class="k">         </span><span class="n">Vhill</span> <span class="o">=</span> <span class="n">Vescp</span>
+<a name="ln-978"></a>      <span class="k">end if</span> 
+<a name="ln-979"></a>      <span class="c">!calculate Qr_pstar</span>
+<a name="ln-980"></a>      <span class="n">Qrd_pstar</span> <span class="o">=</span> <span class="n">calc_Qrd_pstar</span><span class="p">(</span><span class="n">m1</span><span class="p">,</span> <span class="n">m2</span><span class="p">,</span> <span class="n">alpha</span><span class="p">,</span> <span class="n">c_star</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="n">Vhill</span> <span class="o">/</span> <span class="n">Vescp</span><span class="p">)</span><span class="o">**</span><span class="n">CRUFU</span> <span class="c">!Rufu and Aharaonson eq (3)</span>
+<a name="ln-981"></a>      <span class="c">!calculate Verosion</span>
+<a name="ln-982"></a>      <span class="n">Qr_erosion</span> <span class="o">=</span> <span class="mi">2</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">m1</span> <span class="o">/</span> <span class="n">Mtot</span><span class="p">)</span> <span class="o">*</span> <span class="n">Qrd_pstar</span>
+<a name="ln-983"></a>      <span class="n">Verosion</span> <span class="o">=</span> <span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">Qr_erosion</span> <span class="o">*</span> <span class="n">Mtot</span> <span class="o">/</span> <span class="n">mu</span><span class="p">)</span><span class="o">**</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">/</span> <span class="mf">2.0_DP</span><span class="p">)</span>
+<a name="ln-984"></a>      <span class="n">Qr</span> <span class="o">=</span> <span class="n">mu</span><span class="o">*</span><span class="p">(</span><span class="n">Vimp</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="o">/</span> <span class="n">Mtot</span> <span class="o">/</span> <span class="mf">2.0_DP</span>
+<a name="ln-985"></a>      <span class="c">!calculate mass largest remnant Mlr </span>
+<a name="ln-986"></a>      <span class="n">Mlr</span> <span class="o">=</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">Qr</span> <span class="o">/</span> <span class="n">Qrd_pstar</span> <span class="o">/</span> <span class="mf">2.0_DP</span><span class="p">)</span> <span class="o">*</span> <span class="n">Mtot</span>  <span class="c">! [kg] # LS12 eq (5)</span>
+<a name="ln-987"></a>      <span class="c">!calculate Vsupercat</span>
+<a name="ln-988"></a>      <span class="n">Qr_supercat</span> <span class="o">=</span> <span class="n">SUPERCAT_QRATIO</span> <span class="o">*</span> <span class="n">Qrd_pstar</span> <span class="c">! See LS12 Section 4.1 </span>
+<a name="ln-989"></a>      <span class="n">Vsupercat</span> <span class="o">=</span> <span class="nb">sqrt</span><span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">Qr_supercat</span> <span class="o">*</span> <span class="n">Mtot</span> <span class="o">/</span> <span class="n">mu</span><span class="p">)</span>
+<a name="ln-990"></a>      <span class="c">!calculate Vhr</span>
+<a name="ln-991"></a>      <span class="n">zeta</span> <span class="o">=</span> <span class="p">(</span><span class="n">m1</span> <span class="o">-</span> <span class="n">m2</span><span class="p">)</span> <span class="o">/</span> <span class="n">Mtot</span>
+<a name="ln-992"></a>      <span class="n">theta</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">b</span>
+<a name="ln-993"></a>      <span class="n">Vhr</span> <span class="o">=</span> <span class="n">Vescp</span> <span class="o">*</span> <span class="p">(</span><span class="n">C1</span> <span class="o">*</span> <span class="n">zeta</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">theta</span><span class="o">**</span><span class="p">(</span><span class="mf">2.5_DP</span><span class="p">)</span> <span class="o">+</span> <span class="n">C2</span> <span class="o">*</span> <span class="n">zeta</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">C3</span> <span class="o">*</span> <span class="n">theta</span><span class="o">**</span><span class="p">(</span><span class="mf">2.5_DP</span><span class="p">)</span> <span class="o">+</span> <span class="n">C4</span><span class="p">)</span> <span class="c">! Kokubo &amp; Genda (2010) eq. (3)</span>
+<a name="ln-994"></a>      <span class="n">bcrit</span> <span class="o">=</span> <span class="n">rad1</span> <span class="o">/</span> <span class="p">(</span><span class="n">rad1</span> <span class="o">+</span> <span class="n">rad2</span><span class="p">)</span>
+<a name="ln-995"></a>      <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-996"></a>      <span class="n">U_binding</span> <span class="o">=</span> <span class="p">(</span><span class="mf">3.0_DP</span> <span class="o">*</span> <span class="n">Mtot</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="mf">5.0_DP</span> <span class="o">*</span> <span class="n">Rp</span><span class="p">)</span> <span class="c">! LS12 eq. 27</span>
+<a name="ln-997"></a>
+<a name="ln-998"></a>      <span class="k">if</span> <span class="p">((</span><span class="n">m1</span> <span class="o">&lt;</span> <span class="n">mtiny</span><span class="p">).</span><span class="nb">or</span><span class="p">.(</span><span class="n">m2</span> <span class="o">&lt;</span> <span class="n">mtiny</span><span class="p">))</span> <span class="k">then </span>
+<a name="ln-999"></a><span class="k">         </span><span class="n">regime</span> <span class="o">=</span> <span class="n">COLLRESOLVE_REGIME_MERGE</span> <span class="c">!perfect merging regime</span>
+<a name="ln-1000"></a>         <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mtot</span>
+<a name="ln-1001"></a>         <span class="n">Mslr</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-1002"></a>         <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-1003"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;FORCE MERGE&quot;</span>
+<a name="ln-1004"></a>      <span class="k">else </span>
+<a name="ln-1005"></a><span class="k">         if</span><span class="p">(</span> <span class="n">Vimp</span> <span class="o">&lt;</span> <span class="n">Vescp</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1006"></a><span class="k">            </span><span class="n">regime</span> <span class="o">=</span> <span class="n">COLLRESOLVE_REGIME_MERGE</span> <span class="c">!perfect merging regime</span>
+<a name="ln-1007"></a>            <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mtot</span>
+<a name="ln-1008"></a>            <span class="n">Mslr</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-1009"></a>            <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-1010"></a>         <span class="k">else if</span> <span class="p">(</span><span class="n">Vimp</span> <span class="o">&lt;</span> <span class="n">Verosion</span><span class="p">)</span> <span class="k">then </span>
+<a name="ln-1011"></a><span class="k">            if</span> <span class="p">(</span><span class="n">b</span> <span class="o">&lt;</span> <span class="n">bcrit</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1012"></a><span class="k">               </span><span class="n">regime</span> <span class="o">=</span> <span class="n">COLLRESOLVE_REGIME_MERGE</span> <span class="c">!partial accretion regime&quot;</span>
+<a name="ln-1013"></a>               <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mtot</span>
+<a name="ln-1014"></a>               <span class="n">Mslr</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-1015"></a>               <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-1016"></a>            <span class="k">else if</span> <span class="p">((</span><span class="n">b</span> <span class="o">&gt;</span> <span class="n">bcrit</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">Vimp</span> <span class="o">&lt;</span> <span class="n">Vhr</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-1017"></a><span class="k">               </span><span class="n">regime</span> <span class="o">=</span> <span class="n">COLLRESOLVE_REGIME_MERGE</span> <span class="c">! graze and merge</span>
+<a name="ln-1018"></a>               <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mtot</span>
+<a name="ln-1019"></a>               <span class="n">Mslr</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-1020"></a>               <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-1021"></a>            <span class="k">else</span>
+<a name="ln-1022"></a><span class="k">               </span><span class="n">Mlr</span> <span class="o">=</span> <span class="n">m1</span>
+<a name="ln-1023"></a>               <span class="n">Mslr</span> <span class="o">=</span> <span class="n">calc_Qrd_rev</span><span class="p">(</span><span class="n">m2</span><span class="p">,</span> <span class="n">m1</span><span class="p">,</span> <span class="n">Mint</span><span class="p">,</span> <span class="n">den1</span><span class="p">,</span> <span class="n">den2</span><span class="p">,</span> <span class="n">Vimp</span><span class="p">,</span> <span class="n">c_star</span><span class="p">)</span>
+<a name="ln-1024"></a>               <span class="n">regime</span> <span class="o">=</span> <span class="n">COLLRESOLVE_REGIME_HIT_AND_RUN</span> <span class="c">!hit and run</span>
+<a name="ln-1025"></a>               <span class="n">Qloss</span> <span class="o">=</span> <span class="p">(</span><span class="n">c_star</span> <span class="o">+</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="o">*</span> <span class="n">U_binding</span> <span class="c">! Qr </span>
+<a name="ln-1026"></a>            <span class="k">end if </span>
+<a name="ln-1027"></a><span class="k">         else if</span> <span class="p">(</span><span class="n">Vimp</span> <span class="o">&gt;</span> <span class="n">Verosion</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="n">Vimp</span> <span class="o">&lt;</span> <span class="n">Vsupercat</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1028"></a><span class="k">            if</span> <span class="p">(</span><span class="n">m2</span> <span class="o">&lt;</span> <span class="mf">0.001_DP</span> <span class="o">*</span> <span class="n">m1</span><span class="p">)</span> <span class="k">then </span>
+<a name="ln-1029"></a><span class="k">               </span><span class="n">regime</span> <span class="o">=</span> <span class="n">COLLRESOLVE_REGIME_MERGE</span> <span class="c">!cratering regime&quot;</span>
+<a name="ln-1030"></a>               <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mtot</span>
+<a name="ln-1031"></a>               <span class="n">Mslr</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-1032"></a>               <span class="n">Qloss</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-1033"></a>            <span class="k">else </span>
+<a name="ln-1034"></a><span class="k">               </span><span class="n">Mslr</span> <span class="o">=</span> <span class="n">Mtot</span> <span class="o">*</span> <span class="p">(</span><span class="mf">3.0_DP</span> <span class="o">-</span> <span class="n">BETA</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">N1</span> <span class="o">*</span> <span class="n">Mlr</span> <span class="o">/</span> <span class="n">Mtot</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">N2</span> <span class="o">*</span> <span class="n">BETA</span><span class="p">)</span>  <span class="c">! LS12 eq (37)</span>
+<a name="ln-1035"></a>               <span class="n">regime</span> <span class="o">=</span> <span class="n">COLLRESOLVE_REGIME_DISRUPTION</span> <span class="c">!disruption</span>
+<a name="ln-1036"></a>               <span class="n">Qloss</span> <span class="o">=</span> <span class="p">(</span><span class="n">c_star</span> <span class="o">+</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="o">*</span> <span class="n">U_binding</span> <span class="c">! Qr - Qr_erosion</span>
+<a name="ln-1037"></a>            <span class="k">end if </span>
+<a name="ln-1038"></a><span class="k">         else if</span> <span class="p">(</span><span class="n">Vimp</span> <span class="o">&gt;</span> <span class="n">Vsupercat</span><span class="p">)</span> <span class="k">then </span>
+<a name="ln-1039"></a><span class="k">            </span><span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mtot</span> <span class="o">*</span> <span class="mf">0.1_DP</span> <span class="o">*</span> <span class="p">(</span><span class="n">Qr</span> <span class="o">/</span> <span class="p">(</span><span class="n">Qrd_pstar</span> <span class="o">*</span> <span class="n">SUPERCAT_QRATIO</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="o">-</span><span class="mf">1.5_DP</span><span class="p">)</span>   <span class="c">!LS12 eq (44)</span>
+<a name="ln-1040"></a>            <span class="n">Mslr</span> <span class="o">=</span> <span class="n">Mtot</span> <span class="o">*</span> <span class="p">(</span><span class="mf">3.0_DP</span> <span class="o">-</span> <span class="n">BETA</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">N1</span> <span class="o">*</span> <span class="n">Mlr</span> <span class="o">/</span> <span class="n">Mtot</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">N2</span> <span class="o">*</span> <span class="n">BETA</span><span class="p">)</span>  <span class="c">!LS12 eq (37)</span>
+<a name="ln-1041"></a>            <span class="n">regime</span> <span class="o">=</span> <span class="n">COLLRESOLVE_REGIME_SUPERCATASTROPHIC</span> <span class="c">! supercatastrophic</span>
+<a name="ln-1042"></a>            <span class="n">Qloss</span> <span class="o">=</span> <span class="p">(</span><span class="n">c_star</span> <span class="o">+</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="o">*</span> <span class="n">U_binding</span> <span class="c">! Qr - Qr_supercat</span>
+<a name="ln-1043"></a>         <span class="k">else </span>
+<a name="ln-1044"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Error no regime found in symba_regime&quot;</span>
+<a name="ln-1045"></a>         <span class="k">end if </span>
+<a name="ln-1046"></a><span class="k">      end if </span>
+<a name="ln-1047"></a><span class="k">      </span><span class="n">Mresidual</span> <span class="o">=</span> <span class="n">Mtot</span> <span class="o">-</span> <span class="n">Mlr</span> <span class="o">-</span> <span class="n">Mslr</span>
+<a name="ln-1048"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">Mresidual</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span> <span class="c">! prevents final masses from going negative</span>
+<a name="ln-1049"></a>         <span class="n">Mlr</span> <span class="o">=</span> <span class="n">Mlr</span> <span class="o">+</span> <span class="n">Mresidual</span>
+<a name="ln-1050"></a>      <span class="k">end if</span>
+<a name="ln-1051"></a><span class="k">         </span>
+<a name="ln-1052"></a><span class="k">      return</span> 
+<a name="ln-1053"></a>
+<a name="ln-1054"></a>      <span class="c">! Internal functions</span>
+<a name="ln-1055"></a>      <span class="k">contains</span>
+<a name="ln-1056"></a><span class="k">         function </span><span class="n">calc_Qrd_pstar</span><span class="p">(</span><span class="n">Mtarg</span><span class="p">,</span> <span class="n">Mp</span><span class="p">,</span> <span class="n">alpha</span><span class="p">,</span> <span class="n">c_star</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">Qrd_pstar</span><span class="p">)</span>
+<a name="ln-1057"></a>            <span class="c">!! author: Jennifer L.L. Pouplin and Carlisle A. Wishard</span>
+<a name="ln-1058"></a>            <span class="c">!!</span>
+<a name="ln-1059"></a>            <span class="c">!! Calculates the corrected Q* for oblique impacts. See Eq. (15) of LS12.</span>
+<a name="ln-1060"></a>            <span class="c">!!       Reference:</span>
+<a name="ln-1061"></a>            <span class="c">!!       Leinhardt, Z.M., Stewart, S.T., 2012. Collisions between Gravity-dominated Bodies. I. Outcome Regimes and Scaling </span>
+<a name="ln-1062"></a>            <span class="c">!!          Laws 745, 79. https://doi.org/10.1088/0004-637X/745/1/79</span>
+<a name="ln-1063"></a>            <span class="c">!! </span>
+<a name="ln-1064"></a>            <span class="k">implicit none</span>
+<a name="ln-1065"></a>            <span class="c">! Arguments</span>
+<a name="ln-1066"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Mtarg</span><span class="p">,</span> <span class="n">Mp</span><span class="p">,</span> <span class="n">alpha</span><span class="p">,</span> <span class="n">c_star</span>
+<a name="ln-1067"></a>            <span class="c">! Result</span>
+<a name="ln-1068"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>      <span class="kd">::</span> <span class="n">Qrd_pstar</span>
+<a name="ln-1069"></a>            <span class="c">! Internals</span>
+<a name="ln-1070"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>      <span class="kd">::</span> <span class="n">Qrd_star1</span><span class="p">,</span> <span class="n">mu_alpha</span><span class="p">,</span> <span class="n">mu</span><span class="p">,</span> <span class="n">Qrd_star</span>
+<a name="ln-1071"></a>
+<a name="ln-1072"></a>            <span class="c">! calc mu, mu_alpha</span>
+<a name="ln-1073"></a>            <span class="n">mu</span> <span class="o">=</span> <span class="p">(</span><span class="n">Mtarg</span> <span class="o">*</span> <span class="n">Mp</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">Mtarg</span> <span class="o">+</span> <span class="n">Mp</span><span class="p">)</span>  <span class="c">! [kg]</span>
+<a name="ln-1074"></a>            <span class="n">mu_alpha</span> <span class="o">=</span> <span class="p">(</span><span class="n">Mtarg</span> <span class="o">*</span> <span class="n">alpha</span> <span class="o">*</span> <span class="n">Mp</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">Mtarg</span> <span class="o">+</span> <span class="n">alpha</span> <span class="o">*</span> <span class="n">Mp</span><span class="p">)</span>  <span class="c">! [kg]</span>
+<a name="ln-1075"></a>            <span class="c">! calc Qrd_star1</span>
+<a name="ln-1076"></a>            <span class="n">Qrd_star1</span> <span class="o">=</span> <span class="p">(</span><span class="n">c_star</span> <span class="o">*</span> <span class="mi">4</span> <span class="o">*</span> <span class="n">PI</span> <span class="o">*</span> <span class="n">DENSITY1</span> <span class="o">*</span> <span class="n">GC</span> <span class="o">*</span> <span class="n">Rp</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="o">/</span> <span class="mf">5.0_DP</span>
+<a name="ln-1077"></a>            <span class="c">! calc Qrd_star</span>
+<a name="ln-1078"></a>            <span class="n">Qrd_star</span> <span class="o">=</span> <span class="n">Qrd_star1</span> <span class="o">*</span> <span class="p">(((</span><span class="n">Mp</span> <span class="o">/</span> <span class="n">Mtarg</span> <span class="o">+</span> <span class="mf">1.0_DP</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="n">Mp</span> <span class="o">/</span> <span class="n">Mtarg</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="mf">2.0_DP</span> <span class="o">/</span> <span class="p">(</span><span class="mf">3.0_DP</span> <span class="o">*</span> <span class="n">MU_BAR</span><span class="p">)</span> <span class="o">-</span> <span class="mf">1.0_DP</span><span class="p">)</span>  <span class="c">!(eq 23)</span>
+<a name="ln-1079"></a>            <span class="c">! calc Qrd_pstar, v_pstar</span>
+<a name="ln-1080"></a>            <span class="n">Qrd_pstar</span> <span class="o">=</span> <span class="p">((</span><span class="n">mu</span> <span class="o">/</span> <span class="n">mu_alpha</span><span class="p">)</span><span class="o">**</span><span class="p">(</span><span class="mf">2.0_DP</span> <span class="o">-</span> <span class="mf">3.0_DP</span> <span class="o">*</span> <span class="n">MU_BAR</span> <span class="o">/</span> <span class="mf">2.0_DP</span><span class="p">))</span> <span class="o">*</span> <span class="n">Qrd_star</span>  <span class="c">! (eq 15)</span>
+<a name="ln-1081"></a>
+<a name="ln-1082"></a>            <span class="k">return</span>
+<a name="ln-1083"></a><span class="k">         end function </span><span class="n">calc_Qrd_pstar</span>
 <a name="ln-1084"></a>
-<a name="ln-1085"></a>         <span class="k">function </span><span class="n">calc_c_star</span><span class="p">(</span><span class="n">Rc1</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">c_star</span><span class="p">)</span>
-<a name="ln-1086"></a>            <span class="c">!! author: David A. Minton</span>
+<a name="ln-1085"></a>         <span class="k">function </span><span class="n">calc_Qrd_rev</span><span class="p">(</span><span class="n">Mp</span><span class="p">,</span> <span class="n">Mtarg</span><span class="p">,</span> <span class="n">Mint</span><span class="p">,</span> <span class="n">den1</span><span class="p">,</span> <span class="n">den2</span><span class="p">,</span> <span class="n">Vimp</span><span class="p">,</span> <span class="n">c_star</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">Mslr</span><span class="p">)</span>
+<a name="ln-1086"></a>            <span class="c">!! author: Jennifer L.L. Pouplin and Carlisle A. Wishard</span>
 <a name="ln-1087"></a>            <span class="c">!!</span>
-<a name="ln-1088"></a>            <span class="c">!! Calculates c_star as a function of impact equivalent radius. It inteRpolates between 5 for ~1 km sized bodies to</span>
-<a name="ln-1089"></a>            <span class="c">!! 1.8 for ~10000 km sized bodies. See LS12 Fig. 4 for details.</span>
-<a name="ln-1090"></a>            <span class="c">!! </span>
-<a name="ln-1091"></a>            <span class="k">implicit none</span>
-<a name="ln-1092"></a>            <span class="c">!! Arguments</span>
-<a name="ln-1093"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Rc1</span>
-<a name="ln-1094"></a>            <span class="c">!! Result</span>
-<a name="ln-1095"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">c_star</span>
-<a name="ln-1096"></a>            <span class="c">!! Internals</span>
-<a name="ln-1097"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>  <span class="kd">::</span> <span class="n">loR</span>   <span class="o">=</span> <span class="mf">1.0e3_DP</span> <span class="c">! Lower bound of inteRpolation size (m)</span>
-<a name="ln-1098"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>  <span class="kd">::</span> <span class="n">hiR</span>   <span class="o">=</span> <span class="mf">1.0e7_DP</span> <span class="c">! Upper bound of inteRpolation size (m)</span>
-<a name="ln-1099"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>  <span class="kd">::</span> <span class="n">loval</span> <span class="o">=</span> <span class="mf">5.0_DP</span>   <span class="c">! Value of C* at lower bound</span>
-<a name="ln-1100"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>  <span class="kd">::</span> <span class="n">hival</span> <span class="o">=</span> <span class="mf">1.9_DP</span>   <span class="c">! Value of C* at upper bound</span>
-<a name="ln-1101"></a>
-<a name="ln-1102"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">Rc1</span> <span class="o">&lt;</span> <span class="n">loR</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1103"></a><span class="k">               </span><span class="n">c_star</span> <span class="o">=</span> <span class="n">loval</span>
-<a name="ln-1104"></a>            <span class="k">else if</span> <span class="p">(</span><span class="n">Rc1</span> <span class="o">&lt;</span> <span class="n">hiR</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1105"></a><span class="k">               </span><span class="n">c_star</span> <span class="o">=</span> <span class="n">loval</span> <span class="o">+</span> <span class="p">(</span><span class="n">hival</span> <span class="o">-</span> <span class="n">loval</span><span class="p">)</span> <span class="o">*</span> <span class="nb">log</span><span class="p">(</span><span class="n">Rc1</span> <span class="o">/</span> <span class="n">loR</span><span class="p">)</span> <span class="o">/</span> <span class="nb">log</span><span class="p">(</span><span class="n">hiR</span> <span class="o">/</span><span class="n">loR</span><span class="p">)</span>
-<a name="ln-1106"></a>            <span class="k">else</span>
-<a name="ln-1107"></a><span class="k">               </span><span class="n">c_star</span> <span class="o">=</span> <span class="n">hival</span>
-<a name="ln-1108"></a>            <span class="k">end if</span>
-<a name="ln-1109"></a><span class="k">            return</span>
-<a name="ln-1110"></a><span class="k">         end function </span><span class="n">calc_c_star</span> 
-<a name="ln-1111"></a>
-<a name="ln-1112"></a>   <span class="k">end subroutine </span><span class="n">fragmentation_regime</span>
-<a name="ln-1113"></a>
-<a name="ln-1114"></a><span class="k">end submodule </span><span class="n">s_fragmentation</span>
+<a name="ln-1088"></a>            <span class="c">!! Calculates mass of second largest fragment.</span>
+<a name="ln-1089"></a>            <span class="c">!! </span>
+<a name="ln-1090"></a>            <span class="k">implicit none</span>
+<a name="ln-1091"></a>            <span class="c">! Arguments</span>
+<a name="ln-1092"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Mp</span><span class="p">,</span> <span class="n">Mtarg</span><span class="p">,</span> <span class="n">Mint</span><span class="p">,</span> <span class="n">den1</span><span class="p">,</span> <span class="n">den2</span><span class="p">,</span> <span class="n">Vimp</span><span class="p">,</span> <span class="n">c_star</span>
+<a name="ln-1093"></a>            <span class="c">! Result</span>
+<a name="ln-1094"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Mslr</span>
+<a name="ln-1095"></a>            <span class="c">! Internals</span>
+<a name="ln-1096"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mtot_rev</span><span class="p">,</span> <span class="n">mu_rev</span><span class="p">,</span> <span class="n">gamma_rev</span><span class="p">,</span> <span class="n">Qrd_star1</span><span class="p">,</span> <span class="n">Qrd_star</span><span class="p">,</span> <span class="n">mu_alpha_rev</span>
+<a name="ln-1097"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Qrd_pstar</span><span class="p">,</span> <span class="n">Rc1</span><span class="p">,</span> <span class="n">Qr_rev</span><span class="p">,</span> <span class="n">Qrd_pstar_rev</span><span class="p">,</span> <span class="n">Qr_supercat_rev</span>
+<a name="ln-1098"></a>
+<a name="ln-1099"></a>            <span class="c">! calc Mslr, Rc1, mu, gammalr</span>
+<a name="ln-1100"></a>            <span class="n">mtot_rev</span> <span class="o">=</span>  <span class="n">Mint</span> <span class="o">+</span> <span class="n">Mp</span>
+<a name="ln-1101"></a>            <span class="n">Rc1</span> <span class="o">=</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="p">(</span><span class="n">Mint</span> <span class="o">/</span> <span class="n">den1</span> <span class="o">+</span> <span class="n">Mp</span> <span class="o">/</span> <span class="n">den2</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="n">PI</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="mf">1.0_DP</span><span class="o">/</span><span class="mf">3.0_DP</span><span class="p">)</span> <span class="c">! [m] Mustill et al 2018</span>
+<a name="ln-1102"></a>            <span class="n">mu_rev</span> <span class="o">=</span> <span class="p">(</span><span class="n">Mint</span> <span class="o">*</span> <span class="n">Mp</span><span class="p">)</span> <span class="o">/</span> <span class="n">mtot_rev</span> <span class="c">! [kg] eq 49 LS12</span>
+<a name="ln-1103"></a>            <span class="n">mu_alpha_rev</span> <span class="o">=</span> <span class="p">(</span><span class="n">Mtarg</span> <span class="o">*</span> <span class="n">alpha</span> <span class="o">*</span> <span class="n">Mp</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">Mtarg</span> <span class="o">+</span> <span class="n">alpha</span> <span class="o">*</span> <span class="n">Mp</span><span class="p">)</span>
+<a name="ln-1104"></a>            <span class="n">gamma_rev</span> <span class="o">=</span> <span class="n">Mint</span> <span class="o">/</span> <span class="n">Mp</span> <span class="c">! eq 50 LS12</span>
+<a name="ln-1105"></a>            <span class="c">!calc Qr_rev</span>
+<a name="ln-1106"></a>            <span class="n">Qr_rev</span> <span class="o">=</span> <span class="n">mu_rev</span> <span class="o">*</span> <span class="p">(</span><span class="n">Vimp</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">mtot_rev</span><span class="p">)</span>
+<a name="ln-1107"></a>            <span class="c">! calc Qrd_star1, v_star1</span>
+<a name="ln-1108"></a>            <span class="n">Qrd_star1</span> <span class="o">=</span> <span class="p">(</span><span class="n">c_star</span> <span class="o">*</span> <span class="mi">4</span> <span class="o">*</span> <span class="n">PI</span> <span class="o">*</span> <span class="n">mtot_rev</span> <span class="o">*</span> <span class="n">GC</span> <span class="p">)</span> <span class="o">/</span> <span class="n">Rc1</span> <span class="o">/</span> <span class="mf">5.0_DP</span>
+<a name="ln-1109"></a>            <span class="c">! calc Qrd_pstar_rev</span>
+<a name="ln-1110"></a>            <span class="n">Qrd_star</span> <span class="o">=</span> <span class="n">Qrd_star1</span> <span class="o">*</span> <span class="p">(((</span><span class="n">gamma_rev</span> <span class="o">+</span> <span class="mf">1.0_DP</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="n">gamma_rev</span><span class="p">))</span> <span class="o">**</span> <span class="p">(</span><span class="mf">2.0_DP</span> <span class="o">/</span> <span class="p">(</span><span class="mf">3.0_DP</span> <span class="o">*</span> <span class="n">MU_BAR</span><span class="p">)</span> <span class="o">-</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="c">!(eq 52)</span>
+<a name="ln-1111"></a>            <span class="n">Qrd_pstar</span> <span class="o">=</span> <span class="n">Qrd_star</span> <span class="o">*</span> <span class="p">((</span><span class="n">mu_rev</span> <span class="o">/</span> <span class="n">mu_alpha_rev</span><span class="p">)</span><span class="o">**</span><span class="p">(</span><span class="mf">2.0_DP</span> <span class="o">-</span> <span class="mf">3.0_DP</span> <span class="o">*</span> <span class="n">MU_BAR</span> <span class="o">/</span> <span class="mf">2.0_DP</span><span class="p">))</span>
+<a name="ln-1112"></a>            <span class="n">Qrd_pstar_rev</span> <span class="o">=</span> <span class="n">Qrd_pstar</span> <span class="o">*</span> <span class="p">(</span><span class="n">Vhill</span> <span class="o">/</span> <span class="n">Vescp</span><span class="p">)</span><span class="o">**</span><span class="n">CRUFU</span> <span class="c">!Rufu and Aharaonson eq (3)</span>
+<a name="ln-1113"></a>            <span class="c">!calc Qr_supercat_rev</span>
+<a name="ln-1114"></a>            <span class="n">Qr_supercat_rev</span> <span class="o">=</span> <span class="mf">1.8_DP</span> <span class="o">*</span> <span class="n">Qrd_pstar_rev</span> 
+<a name="ln-1115"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">Qr_rev</span> <span class="o">&gt;</span> <span class="n">Qr_supercat_rev</span> <span class="p">)</span> <span class="k">then </span>
+<a name="ln-1116"></a><span class="k">               </span><span class="n">Mslr</span> <span class="o">=</span> <span class="n">mtot_rev</span> <span class="o">*</span> <span class="p">(</span><span class="mf">0.1_DP</span> <span class="o">*</span> <span class="p">((</span><span class="n">Qr_rev</span> <span class="o">/</span> <span class="p">(</span><span class="n">Qrd_pstar_rev</span> <span class="o">*</span> <span class="mf">1.8_DP</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="o">-</span><span class="mf">1.5_DP</span><span class="p">)))</span>   <span class="c">!eq (44)</span>
+<a name="ln-1117"></a>            <span class="k">else if</span> <span class="p">(</span> <span class="n">Qr_rev</span> <span class="o">&lt;</span> <span class="n">Qrd_pstar_rev</span> <span class="p">)</span> <span class="k">then </span>
+<a name="ln-1118"></a><span class="k">               </span><span class="n">Mslr</span> <span class="o">=</span> <span class="n">Mp</span> 
+<a name="ln-1119"></a>            <span class="k">else </span>
+<a name="ln-1120"></a><span class="k">               </span><span class="n">Mslr</span> <span class="o">=</span> <span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">-</span> <span class="n">Qr_rev</span> <span class="o">/</span> <span class="n">Qrd_pstar_rev</span> <span class="o">/</span> <span class="mf">2.0_DP</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="n">mtot_rev</span><span class="p">)</span>  <span class="c">! [kg] #(eq 5)</span>
+<a name="ln-1121"></a>            <span class="k">end if </span>
+<a name="ln-1122"></a>
+<a name="ln-1123"></a><span class="k">            if</span> <span class="p">(</span> <span class="n">Mslr</span> <span class="o">&gt;</span> <span class="n">Mp</span> <span class="p">)</span> <span class="n">Mslr</span> <span class="o">=</span> <span class="n">Mp</span> <span class="c">!check conservation of mass</span>
+<a name="ln-1124"></a>
+<a name="ln-1125"></a>            <span class="k">return</span>
+<a name="ln-1126"></a><span class="k">         end function </span><span class="n">calc_Qrd_rev</span>
+<a name="ln-1127"></a>
+<a name="ln-1128"></a>         <span class="k">function </span><span class="n">calc_b</span><span class="p">(</span><span class="n">proj_pos</span><span class="p">,</span> <span class="n">proj_vel</span><span class="p">,</span> <span class="n">targ_pos</span><span class="p">,</span> <span class="n">targ_vel</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">sintheta</span><span class="p">)</span>
+<a name="ln-1129"></a>            <span class="c">!! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-1130"></a>            <span class="c">!!</span>
+<a name="ln-1131"></a>            <span class="c">!! Calculates the impact factor b = sin(theta), where theta is the angle between the relative velocity</span>
+<a name="ln-1132"></a>            <span class="c">!! and distance vectors of the target and projectile bodies. See Fig. 2 of Leinhardt and Stewart (2012)</span>
+<a name="ln-1133"></a>            <span class="c">!! </span>
+<a name="ln-1134"></a>            <span class="k">implicit none</span>
+<a name="ln-1135"></a>            <span class="c">!! Arguments</span>
+<a name="ln-1136"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">proj_pos</span><span class="p">,</span> <span class="n">proj_vel</span><span class="p">,</span> <span class="n">targ_pos</span><span class="p">,</span> <span class="n">targ_vel</span>
+<a name="ln-1137"></a>            <span class="c">!! Result</span>
+<a name="ln-1138"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">sintheta</span>
+<a name="ln-1139"></a>            <span class="c">!! Internals</span>
+<a name="ln-1140"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>     <span class="kd">::</span> <span class="n">imp_vel</span><span class="p">,</span> <span class="n">distance</span><span class="p">,</span> <span class="n">x_cross_v</span>      
+<a name="ln-1141"></a>
+<a name="ln-1142"></a>            <span class="n">imp_vel</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">proj_vel</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">targ_vel</span><span class="p">(:)</span>
+<a name="ln-1143"></a>            <span class="n">distance</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">proj_pos</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">targ_pos</span><span class="p">(:)</span>
+<a name="ln-1144"></a>            <span class="n">x_cross_v</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">distance</span><span class="p">(:)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">imp_vel</span><span class="p">(:)</span> 
+<a name="ln-1145"></a>            <span class="n">sintheta</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">x_cross_v</span><span class="p">(:))</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">distance</span><span class="p">(:))</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">imp_vel</span><span class="p">(:))</span>
+<a name="ln-1146"></a>            <span class="k">return </span>
+<a name="ln-1147"></a><span class="k">         end function </span><span class="n">calc_b</span>
+<a name="ln-1148"></a>
+<a name="ln-1149"></a>         <span class="k">function </span><span class="n">calc_c_star</span><span class="p">(</span><span class="n">Rc1</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">c_star</span><span class="p">)</span>
+<a name="ln-1150"></a>            <span class="c">!! author: David A. Minton</span>
+<a name="ln-1151"></a>            <span class="c">!!</span>
+<a name="ln-1152"></a>            <span class="c">!! Calculates c_star as a function of impact equivalent radius. It inteRpolates between 5 for ~1 km sized bodies to</span>
+<a name="ln-1153"></a>            <span class="c">!! 1.8 for ~10000 km sized bodies. See LS12 Fig. 4 for details.</span>
+<a name="ln-1154"></a>            <span class="c">!! </span>
+<a name="ln-1155"></a>            <span class="k">implicit none</span>
+<a name="ln-1156"></a>            <span class="c">!! Arguments</span>
+<a name="ln-1157"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Rc1</span>
+<a name="ln-1158"></a>            <span class="c">!! Result</span>
+<a name="ln-1159"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">c_star</span>
+<a name="ln-1160"></a>            <span class="c">!! Internals</span>
+<a name="ln-1161"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>  <span class="kd">::</span> <span class="n">loR</span>   <span class="o">=</span> <span class="mf">1.0e3_DP</span> <span class="c">! Lower bound of inteRpolation size (m)</span>
+<a name="ln-1162"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>  <span class="kd">::</span> <span class="n">hiR</span>   <span class="o">=</span> <span class="mf">1.0e7_DP</span> <span class="c">! Upper bound of inteRpolation size (m)</span>
+<a name="ln-1163"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>  <span class="kd">::</span> <span class="n">loval</span> <span class="o">=</span> <span class="mf">5.0_DP</span>   <span class="c">! Value of C* at lower bound</span>
+<a name="ln-1164"></a>            <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">parameter</span>  <span class="kd">::</span> <span class="n">hival</span> <span class="o">=</span> <span class="mf">1.9_DP</span>   <span class="c">! Value of C* at upper bound</span>
+<a name="ln-1165"></a>
+<a name="ln-1166"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">Rc1</span> <span class="o">&lt;</span> <span class="n">loR</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1167"></a><span class="k">               </span><span class="n">c_star</span> <span class="o">=</span> <span class="n">loval</span>
+<a name="ln-1168"></a>            <span class="k">else if</span> <span class="p">(</span><span class="n">Rc1</span> <span class="o">&lt;</span> <span class="n">hiR</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1169"></a><span class="k">               </span><span class="n">c_star</span> <span class="o">=</span> <span class="n">loval</span> <span class="o">+</span> <span class="p">(</span><span class="n">hival</span> <span class="o">-</span> <span class="n">loval</span><span class="p">)</span> <span class="o">*</span> <span class="nb">log</span><span class="p">(</span><span class="n">Rc1</span> <span class="o">/</span> <span class="n">loR</span><span class="p">)</span> <span class="o">/</span> <span class="nb">log</span><span class="p">(</span><span class="n">hiR</span> <span class="o">/</span><span class="n">loR</span><span class="p">)</span>
+<a name="ln-1170"></a>            <span class="k">else</span>
+<a name="ln-1171"></a><span class="k">               </span><span class="n">c_star</span> <span class="o">=</span> <span class="n">hival</span>
+<a name="ln-1172"></a>            <span class="k">end if</span>
+<a name="ln-1173"></a><span class="k">            return</span>
+<a name="ln-1174"></a><span class="k">         end function </span><span class="n">calc_c_star</span> 
+<a name="ln-1175"></a>
+<a name="ln-1176"></a>   <span class="k">end subroutine </span><span class="n">fragmentation_regime</span>
+<a name="ln-1177"></a>
+<a name="ln-1178"></a><span class="k">end submodule </span><span class="n">s_fragmentation</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/gr.f90.html b/docs/sourcefile/gr.f90.html
index a6972cf4f..ca86bbad7 100644
--- a/docs/sourcefile/gr.f90.html
+++ b/docs/sourcefile/gr.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~gr.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilegrf90EfferentGraph" width="641pt" height="210pt"
- viewBox="0.00 0.00 641.00 209.52" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~gr.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 282)">
+<svg id="sourcefilegrf90EfferentGraph" width="641pt" height="224pt"
+ viewBox="0.00 0.00 641.00 223.62" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~gr.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 301.25)">
 <title>sourcefile~~gr.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 871,-282 871,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 871,-301.25 871,4 -4,4"/>
 <!-- sourcefile~gr.f90 -->
 <g id="sourcefile~~gr.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~gr.f90</title>
-<polygon fill="none" stroke="black" points="867,-24 813,-24 813,0 867,0 867,-24"/>
-<text text-anchor="middle" x="840" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">gr.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~gr.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.82,-22.86C803.68,-26.66 793.22,-30.99 783.3,-35.11"/>
-<polygon fill="#000000" stroke="#000000" points="781.91,-31.9 774.02,-38.96 784.59,-38.36 781.91,-31.9"/>
+<polygon fill="none" stroke="black" points="867,-260 813,-260 813,-236 867,-236 867,-260"/>
+<text text-anchor="middle" x="840" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">gr.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~gr.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~gr.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~gr.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-11.34C738.17,-10.21 518.02,-12.21 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-256.09C772.77,-267.78 693.44,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~gr.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~gr.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.82,-242.43C804.76,-240.72 795.69,-238.79 786.86,-236.91"/>
+<polygon fill="#000000" stroke="#000000" points="787.58,-233.48 777.07,-234.82 786.12,-240.33 787.58,-233.48"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~gr.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~gr.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~gr.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~gr.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~gr.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~gr.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~gr.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~gr.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~gr.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~gr.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~gr.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~gr.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~gr.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~gr.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~gr.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~gr.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~gr.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~gr.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~gr.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~gr.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~gr.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~gr.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~gr.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~gr.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~gr.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~gr.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~gr.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~gr.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~gr.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~gr.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~gr.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/helio_classes.f90.html b/docs/sourcefile/helio_classes.f90.html
index fedb53c62..a9fef7b81 100644
--- a/docs/sourcefile/helio_classes.f90.html
+++ b/docs/sourcefile/helio_classes.f90.html
@@ -226,80 +226,79 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~helio_classes.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilehelio_classesf90EfferentGraph" width="517pt" height="74pt"
- viewBox="0.00 0.00 517.00 73.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~helio_classes.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 69.51)">
+<svg id="sourcefilehelio_classesf90EfferentGraph" width="517pt" height="73pt"
+ viewBox="0.00 0.00 517.00 73.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~helio_classes.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 69.12)">
 <title>sourcefile~~helio_classes.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-69.51 513,-69.51 513,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-69.12 513,-69.12 513,4 -4,4"/>
 <!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<polygon fill="none" stroke="black" points="509,-57.36 415,-57.36 415,-33.36 509,-33.36 509,-57.36"/>
-<text text-anchor="middle" x="462" y="-42.96" font-family="Helvetica,sans-Serif" font-size="10.50">helio_classes.f90</text>
+<polygon fill="none" stroke="black" points="509,-52.29 415,-52.29 415,-28.29 509,-28.29 509,-52.29"/>
+<text text-anchor="middle" x="462" y="-37.89" font-family="Helvetica,sans-Serif" font-size="10.50">helio_classes.f90</text>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-37.36 0,-37.36 0,-13.36 106,-13.36 106,-37.36"/>
-<text text-anchor="middle" x="53" y="-22.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="249,-52.29 142,-52.29 142,-28.29 249,-28.29 249,-52.29"/>
+<text text-anchor="middle" x="195.5" y="-37.89" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331,-65.36C246.58,-65.66 225.25,-60.41 142,-46.36 131.33,-44.56 120.03,-42.21 109.21,-39.73"/>
-<polygon fill="#000000" stroke="#000000" points="109.97,-36.32 99.44,-37.43 108.37,-43.13 109.97,-36.32"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M422.18,-52.36C408.65,-55.99 393.29,-59.49 379,-61.29 337.55,-66.51 326.49,-66.15 285,-61.29 272.99,-59.89 260.25,-57.44 248.29,-54.71"/>
+<polygon fill="#000000" stroke="#000000" points="249,-51.28 238.46,-52.36 247.37,-58.09 249,-51.28"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="249,-37.36 142,-37.36 142,-13.36 249,-13.36 249,-37.36"/>
-<text text-anchor="middle" x="195.5" y="-22.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="379,-52.29 285,-52.29 285,-28.29 379,-28.29 379,-52.29"/>
+<text text-anchor="middle" x="332" y="-37.89" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.76,-56.04C390.55,-60.75 360.33,-65.26 333,-65.36"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331,-65.36C295.63,-65.49 257.13,-52.61 230.41,-41.43"/>
-<polygon fill="#000000" stroke="#000000" points="231.7,-38.18 221.13,-37.42 228.92,-44.6 231.7,-38.18"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.79,-40.29C406.54,-40.29 397.87,-40.29 389.37,-40.29"/>
+<polygon fill="#000000" stroke="#000000" points="389.14,-36.79 379.14,-40.29 389.14,-43.79 389.14,-36.79"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_classes.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="379,-37.36 285,-37.36 285,-13.36 379,-13.36 379,-37.36"/>
-<text text-anchor="middle" x="332" y="-22.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-32.29 0,-32.29 0,-8.29 106,-8.29 106,-32.29"/>
+<text text-anchor="middle" x="53" y="-17.89" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_classes.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.79,-38.14C406.45,-36.84 397.68,-35.47 389.09,-34.13"/>
-<polygon fill="#000000" stroke="#000000" points="389.56,-30.66 379.14,-32.57 388.48,-37.57 389.56,-30.66"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.7,-28.19C406.02,-24.91 392.02,-21.62 379,-19.29 298.73,-4.91 278.05,-0.54 196.5,-0.29"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M194.5,-0.29C168.74,0.29 140.59,-2.94 116.29,-6.96"/>
+<polygon fill="#000000" stroke="#000000" points="115.38,-3.57 106.13,-8.73 116.58,-10.47 115.38,-3.57"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_classes.f90~~EfferentGraph_edge4" class="edge">
 <title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.78,-25.36C133.48,-25.36 124.83,-25.36 116.33,-25.36"/>
-<polygon fill="#000000" stroke="#000000" points="116.08,-21.86 106.08,-25.36 116.08,-28.86 116.08,-21.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.78,-32.79C133.39,-31.59 124.64,-30.35 116.05,-29.12"/>
+<polygon fill="#000000" stroke="#000000" points="116.47,-25.65 106.08,-27.7 115.49,-32.58 116.47,-25.65"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.18,-13.3C278.65,-9.66 263.29,-6.16 249,-4.36 201.82,1.58 189.23,1.2 142,-4.36 130.06,-5.77 117.39,-8.21 105.49,-10.94"/>
-<polygon fill="#000000" stroke="#000000" points="104.62,-7.55 95.72,-13.29 106.26,-14.36 104.62,-7.55"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.71,-40.29C276.61,-40.29 268.05,-40.29 259.59,-40.29"/>
+<polygon fill="#000000" stroke="#000000" points="259.34,-36.79 249.34,-40.29 259.34,-43.79 259.34,-36.79"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_classes.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.71,-25.36C276.61,-25.36 268.05,-25.36 259.59,-25.36"/>
-<polygon fill="#000000" stroke="#000000" points="259.34,-21.86 249.34,-25.36 259.34,-28.86 259.34,-21.86"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.88,-28.12C279.34,-16.4 235.97,-0.41 196.5,-0.29"/>
 </g>
 </g>
 </svg>
@@ -352,1001 +351,1020 @@ <h3 class="panel-title">Files dependent on this one</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~helio_classes.f90~~AfferentGraph Pages: 1 -->
-<svg id="sourcefilehelio_classesf90AfferentGraph" width="543pt" height="2426pt"
- viewBox="0.00 0.00 543.00 2426.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2422)">
+<svg id="sourcefilehelio_classesf90AfferentGraph" width="543pt" height="2468pt"
+ viewBox="0.00 0.00 543.00 2468.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2464)">
 <title>sourcefile~~helio_classes.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2422 539,-2422 539,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 539,-2464 539,4 -4,4"/>
 <!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node1" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<polygon fill="none" stroke="black" points="94,-654 0,-654 0,-630 94,-630 94,-654"/>
-<text text-anchor="middle" x="47" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_classes.f90</text>
+<polygon fill="none" stroke="black" points="94,-1263 0,-1263 0,-1239 94,-1239 94,-1263"/>
+<text text-anchor="middle" x="47" y="-1248.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_classes.f90</text>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node2" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="233,-1179 130,-1179 130,-1155 233,-1155 233,-1179"/>
-<text text-anchor="middle" x="181.5" y="-1164.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-2460 414.5,-2460 414.5,-2436 491.5,-2436 491.5,-2460"/>
+<text text-anchor="middle" x="453" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge1" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M177.42,-1154.8C160.22,-1086.66 76.07,-753.21 53.55,-663.99"/>
-<polygon fill="#000000" stroke="#000000" points="56.9,-662.98 51.06,-654.14 50.12,-664.69 56.9,-662.98"/>
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.4,-2438.63C400.7,-2435.12 385.11,-2431.01 371,-2427 340.57,-2418.36 334.63,-2406 303,-2406"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node3" class="node">
-<title>sourcefile~helio_drift.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-192 414.5,-192 414.5,-168 491.5,-168 491.5,-192"/>
-<text text-anchor="middle" x="453" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="335,-1263 269,-1263 269,-1239 335,-1239 335,-1263"/>
+<text text-anchor="middle" x="302" y="-1248.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge28" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.16,-2447.54C398.42,-2445.27 381.42,-2439.69 371,-2427 332.94,-2380.65 307.53,-1431.49 303.55,-1273.27"/>
+<polygon fill="#000000" stroke="#000000" points="307.05,-1273.18 303.3,-1263.27 300.05,-1273.35 307.05,-1273.18"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge2" class="edge">
-<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.4,-170.63C400.7,-167.12 385.11,-163.01 371,-159 340.57,-150.36 334.34,-133.72 303,-138"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.08,-1263.25C301.75,-1387.29 303.57,-2411.44 182.5,-2406"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.5,-2406C62.11,-2400.68 49.43,-1432.97 48.14,-1273.21"/>
+<polygon fill="#000000" stroke="#000000" points="51.64,-1273.1 48.07,-1263.13 44.64,-1273.16 51.64,-1273.1"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node6" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="335,-1179 269,-1179 269,-1155 335,-1155 335,-1179"/>
-<text text-anchor="middle" x="302" y="-1164.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="233,-1263 130,-1263 130,-1239 233,-1239 233,-1263"/>
+<text text-anchor="middle" x="181.5" y="-1248.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge32" class="edge">
-<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.24,-180.52C398.51,-182.81 381.5,-188.38 371,-201 308.72,-275.89 303.47,-1006.75 303.04,-1144.63"/>
-<polygon fill="#000000" stroke="#000000" points="299.54,-1144.81 303.01,-1154.82 306.54,-1144.83 299.54,-1144.81"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge68" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.93,-1251C261.05,-1251 252.35,-1251 243.59,-1251"/>
+<polygon fill="#000000" stroke="#000000" points="243.33,-1247.5 233.33,-1251 243.33,-1254.5 243.33,-1247.5"/>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
+<!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node4" class="node">
-<title>sourcefile~helio_gr.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487,-150 419,-150 419,-126 487,-126 487,-150"/>
-<text text-anchor="middle" x="453" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-2418 413.5,-2418 413.5,-2394 492.5,-2394 492.5,-2418"/>
+<text text-anchor="middle" x="453" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge3" class="edge">
-<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.98,-135.45C388.67,-133.71 342.6,-132.6 303,-138"/>
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.41,-2406C383.33,-2406 340.51,-2406 303,-2406"/>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge45" class="edge">
-<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.77,-137.93C401.86,-139.77 382.5,-145.13 371,-159 305.94,-237.47 302.97,-1004.54 302.97,-1144.98"/>
-<polygon fill="#000000" stroke="#000000" points="299.47,-1144.99 302.97,-1154.98 306.47,-1144.98 299.47,-1144.99"/>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.34,-2405.4C397.83,-2403.05 381.25,-2397.45 371,-2385 297.8,-2296.03 301.57,-1424.74 302.79,-1273.36"/>
+<polygon fill="#000000" stroke="#000000" points="306.29,-1273.05 302.88,-1263.02 299.29,-1272.99 306.29,-1273.05"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~helio_coord.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node5" class="node">
-<title>sourcefile~helio_step.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-108 413.5,-108 413.5,-84 492.5,-84 492.5,-108"/>
-<text text-anchor="middle" x="453" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
+<title>sourcefile~helio_coord.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-2376 410,-2376 410,-2352 496,-2352 496,-2376"/>
+<text text-anchor="middle" x="453" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge4" class="edge">
-<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.17,-105.68C399.78,-109.12 384.7,-113.11 371,-117 340.57,-125.64 334.34,-133.72 303,-138"/>
+<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.86,-2374.53C397.32,-2377.77 383.58,-2381.43 371,-2385 340.57,-2393.64 334.63,-2406 303,-2406"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301,-2406C248.33,-2406 235.11,-2408.36 182.5,-2406"/>
 </g>
-<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge47" class="edge">
-<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.37,-96.62C397.87,-98.97 381.28,-104.57 371,-117 303.28,-198.9 302.49,-999.46 302.9,-1144.52"/>
-<polygon fill="#000000" stroke="#000000" points="299.41,-1144.85 302.94,-1154.84 306.41,-1144.83 299.41,-1144.85"/>
+<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge17" class="edge">
+<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.99,-2362.83C395.49,-2360.2 380.52,-2354.54 371,-2343 300.55,-2257.58 302.02,-1421.81 302.85,-1273.46"/>
+<polygon fill="#000000" stroke="#000000" points="306.35,-1273.31 302.91,-1263.29 299.35,-1273.27 306.35,-1273.31"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.93,-1154.75C300.09,-1038.84 290.16,-139.65 182.5,-138"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge12" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M268.93,-1167C261.05,-1167 252.35,-1167 243.59,-1167"/>
-<polygon fill="#000000" stroke="#000000" points="243.33,-1163.5 233.33,-1167 243.33,-1170.5 243.33,-1163.5"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M129.65,-1251C121.35,-1251 112.71,-1251 104.28,-1251"/>
+<polygon fill="#000000" stroke="#000000" points="104.16,-1247.5 94.16,-1251 104.16,-1254.5 104.16,-1247.5"/>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
+<!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node7" class="node">
-<title>sourcefile~helio_kick.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
 <polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-66 414.5,-66 414.5,-42 491.5,-42 491.5,-66"/>
-<text text-anchor="middle" x="453" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
+<text text-anchor="middle" x="453" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge6" class="edge">
-<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.26,-59.75C400.11,-62.93 384.26,-67.75 371,-75 334.85,-94.77 343.82,-132.43 303,-138"/>
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.29,-52.56C384.14,-51.76 340.81,-51.38 303,-54"/>
 </g>
-<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge68" class="edge">
-<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.19,-54.48C398.45,-56.76 381.45,-62.34 371,-75 300.55,-160.42 302.02,-996.19 302.85,-1144.54"/>
-<polygon fill="#000000" stroke="#000000" points="299.35,-1144.73 302.91,-1154.71 306.35,-1144.69 299.35,-1144.73"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge25" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.16,-54.46C398.42,-56.73 381.42,-62.31 371,-75 332.94,-121.35 307.53,-1070.51 303.55,-1228.73"/>
+<polygon fill="#000000" stroke="#000000" points="300.05,-1228.65 303.3,-1238.73 307.05,-1228.82 300.05,-1228.65"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~helio_gr.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node8" class="node">
-<title>sourcefile~helio_coord.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-24 410,-24 410,0 496,0 496,-24"/>
-<text text-anchor="middle" x="453" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487,-24 419,-24 419,0 487,0 487,-24"/>
+<text text-anchor="middle" x="453" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge7" class="edge">
-<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301,-138C248.82,-145.12 235.16,-138.81 182.5,-138"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.5,-138C79.34,-136.45 53.81,-522.26 48.97,-619.81"/>
-<polygon fill="#000000" stroke="#000000" points="45.46,-619.84 48.49,-630 52.45,-620.17 45.46,-619.84"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.88,-16.79C396.53,-19.85 382.31,-24.84 371,-33 325.91,-65.53 358.09,-130.48 303,-138"/>
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.8,-20.24C404.11,-23.98 386.65,-28.56 371,-33 340.57,-41.64 334.56,-51.82 303,-54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301,-54C51.91,-71.24 46.95,-1066.41 47.8,-1228.73"/>
+<polygon fill="#000000" stroke="#000000" points="44.3,-1228.97 47.87,-1238.95 51.3,-1228.93 44.3,-1228.97"/>
 </g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge24" class="edge">
-<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.97,-13.16C395.48,-15.79 380.51,-21.45 371,-33 297.8,-121.97 301.57,-993.26 302.79,-1144.64"/>
-<polygon fill="#000000" stroke="#000000" points="299.29,-1145.01 302.88,-1154.98 306.29,-1144.95 299.29,-1145.01"/>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge54" class="edge">
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.71,-11.88C401.78,-13.7 382.42,-19.07 371,-33 331.59,-81.09 307.26,-1066.12 303.51,-1228.45"/>
+<polygon fill="#000000" stroke="#000000" points="300,-1228.61 303.27,-1238.69 307,-1228.77 300,-1228.61"/>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~eucl.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node9" class="node">
-<title>sourcefile~obl.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480,-318 426,-318 426,-294 480,-294 480,-318"/>
-<text text-anchor="middle" x="453" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
+<title>sourcefile~eucl.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480,-2208 426,-2208 426,-2184 480,-2184 480,-2208"/>
+<text text-anchor="middle" x="453" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge19" class="edge">
-<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.63,-305.41C407.41,-306.54 384.18,-311.32 371,-327 316.86,-391.42 305.11,-1018.43 303.29,-1144.85"/>
-<polygon fill="#000000" stroke="#000000" points="299.79,-1144.85 303.15,-1154.9 306.78,-1144.95 299.79,-1144.85"/>
+<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge8" class="edge">
+<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.98,-2196.64C407.69,-2195.57 384.22,-2190.84 371,-2175 311.49,-2103.67 304.01,-1408.62 303.12,-1273.64"/>
+<polygon fill="#000000" stroke="#000000" points="306.61,-1273.28 303.05,-1263.3 299.61,-1273.32 306.61,-1273.28"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
+<!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node10" class="node">
-<title>sourcefile~util_sort.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487,-276 419,-276 419,-252 487,-252 487,-276"/>
-<text text-anchor="middle" x="453" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="488.5,-2166 417.5,-2166 417.5,-2142 488.5,-2142 488.5,-2166"/>
+<text text-anchor="middle" x="453" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge20" class="edge">
-<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.83,-263.98C401.93,-265.83 382.56,-271.19 371,-285 314.18,-352.87 304.55,-1013.8 303.2,-1144.58"/>
-<polygon fill="#000000" stroke="#000000" points="299.69,-1144.91 303.1,-1154.94 306.69,-1144.98 299.69,-1144.91"/>
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge9" class="edge">
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M417.18,-2153.83C400.69,-2151.82 382.19,-2146.37 371,-2133 314.18,-2065.13 304.55,-1404.2 303.2,-1273.42"/>
+<polygon fill="#000000" stroke="#000000" points="306.69,-1273.02 303.1,-1263.06 299.69,-1273.09 306.69,-1273.02"/>
 </g>
-<!-- sourcefile~whm_setup.f90 -->
+<!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node11" class="node">
-<title>sourcefile~whm_setup.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="495.5,-234 410.5,-234 410.5,-210 495.5,-210 495.5,-234"/>
-<text text-anchor="middle" x="453" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="489.5,-2124 416.5,-2124 416.5,-2100 489.5,-2100 489.5,-2124"/>
+<text text-anchor="middle" x="453" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge21" class="edge">
-<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.48,-223.15C395.86,-225.76 380.68,-231.4 371,-243 311.49,-314.33 304.01,-1009.38 303.12,-1144.36"/>
-<polygon fill="#000000" stroke="#000000" points="299.61,-1144.68 303.05,-1154.7 306.61,-1144.72 299.61,-1144.68"/>
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge10" class="edge">
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.38,-2111.71C400.1,-2109.61 382.03,-2104.12 371,-2091 316.86,-2026.58 305.11,-1399.57 303.29,-1273.15"/>
+<polygon fill="#000000" stroke="#000000" points="306.78,-1273.05 303.15,-1263.1 299.79,-1273.15 306.78,-1273.05"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node12" class="node">
-<title>sourcefile~whm_coord.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-1998 410,-1998 410,-1974 496,-1974 496,-1998"/>
-<text text-anchor="middle" x="453" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535,-2082 371,-2082 371,-2058 535,-2058 535,-2082"/>
+<text text-anchor="middle" x="453" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.71,-1984.64C395.36,-1981.96 380.56,-1976.32 371,-1965 319.58,-1904.08 305.72,-1311.86 303.39,-1189.18"/>
-<polygon fill="#000000" stroke="#000000" points="306.88,-1189.03 303.2,-1179.09 299.88,-1189.15 306.88,-1189.03"/>
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge11" class="edge">
+<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M381.01,-2057.82C377.29,-2055.36 373.9,-2052.44 371,-2049 319.58,-1988.08 305.72,-1395.86 303.39,-1273.18"/>
+<polygon fill="#000000" stroke="#000000" points="306.88,-1273.03 303.2,-1263.09 299.88,-1273.15 306.88,-1273.03"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node13" class="node">
-<title>sourcefile~util_append.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-1956 410,-1956 410,-1932 496,-1932 496,-1956"/>
-<text text-anchor="middle" x="453" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="500.5,-2040 405.5,-2040 405.5,-2016 500.5,-2016 500.5,-2040"/>
+<text text-anchor="middle" x="453" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge23" class="edge">
-<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.74,-1942.61C395.39,-1939.93 380.58,-1934.3 371,-1923 322.28,-1865.56 306.35,-1307.75 303.5,-1189.11"/>
-<polygon fill="#000000" stroke="#000000" points="306.99,-1188.95 303.26,-1179.04 299.99,-1189.12 306.99,-1188.95"/>
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge12" class="edge">
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.09,-2025.64C392.26,-2022.65 379.55,-2017.08 371,-2007 322.28,-1949.56 306.35,-1391.75 303.5,-1273.11"/>
+<polygon fill="#000000" stroke="#000000" points="306.99,-1272.95 303.26,-1263.04 299.99,-1273.12 306.99,-1272.95"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
+<!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node14" class="node">
-<title>sourcefile~symba_util.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="494,-2082 412,-2082 412,-2058 494,-2058 494,-2082"/>
-<text text-anchor="middle" x="453" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487,-1998 419,-1998 419,-1974 487,-1974 487,-1998"/>
+<text text-anchor="middle" x="453" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.99,-2073.73C397.89,-2076.67 382.66,-2081.86 371,-2091 320.92,-2130.26 350.49,-2259.35 303,-2217"/>
-</g>
-<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge26" class="edge">
-<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.76,-2069.05C396.77,-2066.54 380.98,-2060.92 371,-2049 314.18,-1981.13 304.55,-1320.2 303.2,-1189.42"/>
-<polygon fill="#000000" stroke="#000000" points="306.69,-1189.02 303.1,-1179.06 299.69,-1189.09 306.69,-1189.02"/>
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge13" class="edge">
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.92,-1985.94C402.06,-1984.06 382.69,-1978.71 371,-1965 325.02,-1911.07 307.04,-1388.35 303.62,-1273.32"/>
+<polygon fill="#000000" stroke="#000000" points="307.12,-1273.11 303.33,-1263.21 300.12,-1273.31 307.12,-1273.11"/>
 </g>
-<!-- sourcefile~gr.f90 -->
+<!-- sourcefile~util_exit.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node15" class="node">
-<title>sourcefile~gr.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480,-1914 426,-1914 426,-1890 480,-1890 480,-1914"/>
-<text text-anchor="middle" x="453" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="486.5,-1956 419.5,-1956 419.5,-1932 486.5,-1932 486.5,-1956"/>
+<text text-anchor="middle" x="453" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge25" class="edge">
-<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.69,-1902.53C407.51,-1901.37 384.29,-1896.59 371,-1881 325.02,-1827.07 307.04,-1304.35 303.62,-1189.32"/>
-<polygon fill="#000000" stroke="#000000" points="307.12,-1189.11 303.33,-1179.21 300.12,-1189.31 307.12,-1189.11"/>
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge14" class="edge">
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.36,-1943.96C402.41,-1942.11 382.82,-1936.78 371,-1923 327.68,-1872.5 307.73,-1383.37 303.75,-1273.04"/>
+<polygon fill="#000000" stroke="#000000" points="307.25,-1272.91 303.4,-1263.04 300.26,-1273.16 307.25,-1272.91"/>
 </g>
-<!-- sourcefile~eucl.f90 -->
+<!-- sourcefile~swiftest_driver.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node16" class="node">
-<title>sourcefile~eucl.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480,-1872 426,-1872 426,-1848 480,-1848 480,-1872"/>
-<text text-anchor="middle" x="453" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="502,-1914 404,-1914 404,-1890 502,-1890 502,-1914"/>
+<text text-anchor="middle" x="453" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge27" class="edge">
-<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.72,-1860.51C407.55,-1859.34 384.34,-1854.55 371,-1839 327.68,-1788.5 307.73,-1299.37 303.75,-1189.04"/>
-<polygon fill="#000000" stroke="#000000" points="307.25,-1188.91 303.4,-1179.04 300.26,-1189.16 307.25,-1188.91"/>
+<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge16" class="edge">
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M403.93,-1899.24C391.54,-1896.18 379.36,-1890.68 371,-1881 330.42,-1834 308.53,-1379.89 303.92,-1273.31"/>
+<polygon fill="#000000" stroke="#000000" points="307.41,-1272.92 303.49,-1263.08 300.42,-1273.22 307.41,-1272.92"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~symba_fragmentation.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node17" class="node">
-<title>sourcefile~util_copy.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="488.5,-1830 417.5,-1830 417.5,-1806 488.5,-1806 488.5,-1830"/>
-<text text-anchor="middle" x="453" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
+<title>sourcefile~symba_fragmentation.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="520,-2334 386,-2334 386,-2310 520,-2310 520,-2334"/>
+<text text-anchor="middle" x="453" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge29" class="edge">
-<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M417.36,-1817.69C400.9,-1815.63 382.39,-1810.19 371,-1797 330.42,-1750 308.53,-1295.89 303.92,-1189.31"/>
-<polygon fill="#000000" stroke="#000000" points="307.41,-1188.92 303.49,-1179.08 300.42,-1189.22 307.41,-1188.92"/>
+<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge18" class="edge">
+<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.74,-2312.78C380.14,-2309.78 375.07,-2305.93 371,-2301 303.28,-2219.1 302.49,-1418.54 302.9,-1273.48"/>
+<polygon fill="#000000" stroke="#000000" points="306.41,-1273.17 302.94,-1263.16 299.41,-1273.15 306.41,-1273.17"/>
 </g>
-<!-- sourcefile~symba_collision.f90 -->
+<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge72" class="edge">
+<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.7,-2316.22C357.38,-2310.74 325.69,-2300.19 303,-2280"/>
+</g>
+<!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node18" class="node">
-<title>sourcefile~symba_collision.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="506,-2040 400,-2040 400,-2016 506,-2016 506,-2040"/>
-<text text-anchor="middle" x="453" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="508.5,-1872 397.5,-1872 397.5,-1848 508.5,-1848 508.5,-1872"/>
+<text text-anchor="middle" x="453" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge18" class="edge">
-<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301,-2217C221.27,-2145.9 188.53,-1334.89 183.27,-1189.31"/>
-<polygon fill="#000000" stroke="#000000" points="186.77,-1189.18 182.92,-1179.31 179.77,-1189.43 186.77,-1189.18"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M399.65,-2034C389.26,-2037.17 379.08,-2041.91 371,-2049 310.44,-2102.11 363.12,-2270.61 303,-2217"/>
-</g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge30" class="edge">
-<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M399.97,-2024.36C388.92,-2021.15 378.38,-2015.79 371,-2007 316.86,-1942.58 305.11,-1315.57 303.29,-1189.15"/>
-<polygon fill="#000000" stroke="#000000" points="306.78,-1189.05 303.15,-1179.1 299.79,-1189.15 306.78,-1189.05"/>
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge19" class="edge">
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.26,-1855.28C387.28,-1852 377.87,-1846.89 371,-1839 333.08,-1795.43 309.32,-1374.89 304.09,-1273.1"/>
+<polygon fill="#000000" stroke="#000000" points="307.58,-1272.84 303.58,-1263.03 300.59,-1273.2 307.58,-1272.84"/>
 </g>
-<!-- sourcefile~symba_io.f90 -->
+<!-- sourcefile~gr.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node19" class="node">
-<title>sourcefile~symba_io.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491,-2418 415,-2418 415,-2394 491,-2394 491,-2418"/>
-<text text-anchor="middle" x="453" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480,-1830 426,-1830 426,-1806 480,-1806 480,-1830"/>
+<text text-anchor="middle" x="453" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge8" class="edge">
-<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.74,-2403.58C399.66,-2400.9 383.01,-2395.54 371,-2385 310.44,-2331.89 363.12,-2270.61 303,-2217"/>
-</g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge31" class="edge">
-<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.99,-2405.67C399.01,-2403.47 381.59,-2397.92 371,-2385 331.59,-2336.91 307.26,-1351.88 303.51,-1189.55"/>
-<polygon fill="#000000" stroke="#000000" points="307,-1189.23 303.27,-1179.31 300,-1189.39 307,-1189.23"/>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge20" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.83,-1818.41C407.71,-1817.2 384.51,-1812.39 371,-1797 301.12,-1717.41 301.28,-1366.03 302.57,-1273.43"/>
+<polygon fill="#000000" stroke="#000000" points="306.08,-1273.29 302.74,-1263.23 299.08,-1273.17 306.08,-1273.29"/>
 </g>
-<!-- sourcefile~symba_kick.f90 -->
+<!-- sourcefile~fragmentation.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node20" class="node">
-<title>sourcefile~symba_kick.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-2376 410,-2376 410,-2352 496,-2352 496,-2376"/>
-<text text-anchor="middle" x="453" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
+<title>sourcefile~fragmentation.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="501.5,-1788 404.5,-1788 404.5,-1764 501.5,-1764 501.5,-1788"/>
+<text text-anchor="middle" x="453" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge9" class="edge">
-<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.91,-2359.82C396.41,-2356.81 382.09,-2351.69 371,-2343 320.92,-2303.74 350.49,-2259.35 303,-2217"/>
-</g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge33" class="edge">
-<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.96,-2362.86C395.46,-2360.22 380.5,-2354.56 371,-2343 332.94,-2296.65 307.53,-1347.49 303.55,-1189.27"/>
-<polygon fill="#000000" stroke="#000000" points="307.05,-1189.18 303.3,-1179.27 300.05,-1189.35 307.05,-1189.18"/>
+<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge21" class="edge">
+<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.09,-1773.09C391.71,-1770.03 379.48,-1764.56 371,-1755 306.45,-1682.23 302.64,-1361.35 302.83,-1273.38"/>
+<polygon fill="#000000" stroke="#000000" points="306.33,-1273.2 302.88,-1263.19 299.33,-1273.17 306.33,-1273.2"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node21" class="node">
-<title>sourcefile~rmvs_util.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="489.5,-1788 416.5,-1788 416.5,-1764 489.5,-1764 489.5,-1788"/>
-<text text-anchor="middle" x="453" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="524,-1746 382,-1746 382,-1722 524,-1722 524,-1746"/>
+<text text-anchor="middle" x="453" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge34" class="edge">
-<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.16,-1775.49C400.04,-1773.31 382.16,-1767.82 371,-1755 333.08,-1711.43 309.32,-1290.89 304.09,-1189.1"/>
-<polygon fill="#000000" stroke="#000000" points="307.58,-1188.84 303.58,-1179.03 300.59,-1189.2 307.58,-1188.84"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge22" class="edge">
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M381.98,-1722.08C377.93,-1719.56 374.2,-1716.57 371,-1713 311.71,-1646.96 304.1,-1355.97 303.13,-1273.1"/>
+<polygon fill="#000000" stroke="#000000" points="306.63,-1272.99 303.04,-1263.03 299.63,-1273.06 306.63,-1272.99"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~util_rescale.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node22" class="node">
-<title>sourcefile~tides_getacch_pl.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="508.5,-1746 397.5,-1746 397.5,-1722 508.5,-1722 508.5,-1746"/>
-<text text-anchor="middle" x="453" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="495.5,-1704 410.5,-1704 410.5,-1680 495.5,-1680 495.5,-1704"/>
+<text text-anchor="middle" x="453" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge35" class="edge">
-<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M397.31,-1729.23C387.33,-1725.96 377.9,-1720.86 371,-1713 301.12,-1633.41 301.28,-1282.03 302.57,-1189.43"/>
-<polygon fill="#000000" stroke="#000000" points="306.08,-1189.29 302.74,-1179.23 299.08,-1189.17 306.08,-1189.29"/>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge23" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.16,-1690.24C395.86,-1687.51 380.98,-1681.95 371,-1671 317.07,-1611.8 305.71,-1351.56 303.5,-1273.32"/>
+<polygon fill="#000000" stroke="#000000" points="307,-1273.05 303.24,-1263.15 300,-1273.24 307,-1273.05"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~symba_setup.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node23" class="node">
-<title>sourcefile~tides_spin_step.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="505.5,-1704 400.5,-1704 400.5,-1680 505.5,-1680 505.5,-1704"/>
-<text text-anchor="middle" x="453" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="500,-2292 406,-2292 406,-2268 500,-2268 500,-2292"/>
+<text text-anchor="middle" x="453" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge36" class="edge">
-<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M400.3,-1688.08C389.24,-1684.87 378.62,-1679.59 371,-1671 306.45,-1598.23 302.64,-1277.35 302.83,-1189.38"/>
-<polygon fill="#000000" stroke="#000000" points="306.33,-1189.2 302.88,-1179.19 299.33,-1189.17 306.33,-1189.2"/>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.79,-2277.95C392.67,-2275.02 379.62,-2269.4 371,-2259 305.94,-2180.53 302.97,-1413.46 302.97,-1273.02"/>
+<polygon fill="#000000" stroke="#000000" points="306.47,-1273.02 302.97,-1263.02 299.47,-1273.01 306.47,-1273.02"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge73" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.32,-2292.03C382.82,-2300.84 333.44,-2307.08 303,-2280"/>
+</g>
+<!-- sourcefile~symba_drift.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node24" class="node">
-<title>sourcefile~user_getacch.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="500.5,-1662 405.5,-1662 405.5,-1638 500.5,-1638 500.5,-1662"/>
-<text text-anchor="middle" x="453" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-2250 410,-2250 410,-2226 496,-2226 496,-2250"/>
+<text text-anchor="middle" x="453" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge37" class="edge">
-<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.44,-1647.33C392.62,-1644.33 379.83,-1638.84 371,-1629 311.71,-1562.96 304.1,-1271.97 303.13,-1189.1"/>
-<polygon fill="#000000" stroke="#000000" points="306.63,-1188.99 303.04,-1179.03 299.63,-1189.06 306.63,-1188.99"/>
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge26" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.62,-2236.71C395.26,-2234.04 380.47,-2228.39 371,-2217 308.72,-2142.11 303.47,-1411.25 303.04,-1273.37"/>
+<polygon fill="#000000" stroke="#000000" points="306.54,-1273.17 303.01,-1263.18 299.54,-1273.19 306.54,-1273.17"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge77" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.86,-2248.53C397.32,-2251.77 383.58,-2255.43 371,-2259 340.57,-2267.64 326.63,-2301.03 303,-2280"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301,-2280C222.84,-2210.46 188.86,-1417.14 183.32,-1273.3"/>
+<polygon fill="#000000" stroke="#000000" points="186.81,-1272.93 182.94,-1263.07 179.82,-1273.19 186.81,-1272.93"/>
+</g>
+<!-- sourcefile~whm_drift.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node25" class="node">
-<title>sourcefile~symba_step.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-2334 409,-2334 409,-2310 497,-2310 497,-2334"/>
-<text text-anchor="middle" x="453" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-1662 414.5,-1662 414.5,-1638 491.5,-1638 491.5,-1662"/>
+<text text-anchor="middle" x="453" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge17" class="edge">
-<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M408.7,-2316.09C395.86,-2312.98 382.24,-2308.23 371,-2301 330.61,-2275 338.85,-2248.97 303,-2217"/>
-</g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge40" class="edge">
-<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M408.71,-2320.61C394.61,-2317.88 380.23,-2312.22 371,-2301 297.8,-2212.03 301.57,-1340.74 302.79,-1189.36"/>
-<polygon fill="#000000" stroke="#000000" points="306.29,-1189.05 302.88,-1179.02 299.29,-1188.99 306.29,-1189.05"/>
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge27" class="edge">
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.45,-1648.87C398.95,-1646.44 382.06,-1640.93 371,-1629 322.38,-1576.55 307.49,-1346.57 303.95,-1273.42"/>
+<polygon fill="#000000" stroke="#000000" points="307.43,-1272.91 303.47,-1263.08 300.44,-1273.23 307.43,-1272.91"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
+<!-- sourcefile~kick.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node26" class="node">
-<title>sourcefile~whm_step.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-1620 413.5,-1620 413.5,-1596 492.5,-1596 492.5,-1620"/>
-<text text-anchor="middle" x="453" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480,-1620 426,-1620 426,-1596 480,-1596 480,-1620"/>
+<text text-anchor="middle" x="453" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge38" class="edge">
-<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.1,-1606.76C397.93,-1604.25 381.66,-1598.71 371,-1587 317.07,-1527.8 305.71,-1267.56 303.5,-1189.32"/>
-<polygon fill="#000000" stroke="#000000" points="307,-1189.05 303.24,-1179.15 300,-1189.24 307,-1189.05"/>
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge29" class="edge">
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.79,-1608.07C407.9,-1606.66 384.99,-1601.76 371,-1587 327.66,-1541.26 309.49,-1341.3 304.51,-1273.55"/>
+<polygon fill="#000000" stroke="#000000" points="307.97,-1272.9 303.77,-1263.17 300.99,-1273.39 307.97,-1272.9"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
+<!-- sourcefile~rmvs_discard.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node27" class="node">
-<title>sourcefile~orbel.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480.5,-1578 425.5,-1578 425.5,-1554 480.5,-1554 480.5,-1578"/>
-<text text-anchor="middle" x="453" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="500,-1578 406,-1578 406,-1554 500,-1554 500,-1578"/>
+<text text-anchor="middle" x="453" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge39" class="edge">
-<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.31,-1566.13C407.43,-1564.73 384.73,-1559.81 371,-1545 322.38,-1492.55 307.49,-1262.57 303.95,-1189.42"/>
-<polygon fill="#000000" stroke="#000000" points="307.43,-1188.91 303.47,-1179.08 300.44,-1189.23 307.43,-1188.91"/>
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge30" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.92,-1562.88C393.13,-1559.86 380.22,-1554.47 371,-1545 332.89,-1505.87 311.75,-1335.43 305.22,-1273.55"/>
+<polygon fill="#000000" stroke="#000000" points="308.67,-1272.91 304.17,-1263.31 301.71,-1273.62 308.67,-1272.91"/>
 </g>
-<!-- sourcefile~rmvs_discard.f90 -->
+<!-- sourcefile~rmvs_setup.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node28" class="node">
-<title>sourcefile~rmvs_discard.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="500,-1536 406,-1536 406,-1512 500,-1512 500,-1536"/>
-<text text-anchor="middle" x="453" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-1536 410,-1536 410,-1512 496,-1512 496,-1536"/>
+<text text-anchor="middle" x="453" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge41" class="edge">
-<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.76,-1521.03C392.96,-1518.02 380.09,-1512.6 371,-1503 327.66,-1457.26 309.49,-1257.3 304.51,-1189.55"/>
-<polygon fill="#000000" stroke="#000000" points="307.97,-1188.9 303.77,-1179.17 300.99,-1189.39 307.97,-1188.9"/>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge31" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.92,-1521.5C395.94,-1518.66 381.32,-1513.22 371,-1503 306.77,-1439.4 301.35,-1321.93 302.09,-1273.14"/>
+<polygon fill="#000000" stroke="#000000" points="305.59,-1273.13 302.35,-1263.05 298.59,-1272.95 305.59,-1273.13"/>
 </g>
-<!-- sourcefile~whm_drift.f90 -->
+<!-- sourcefile~whm_coord.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node29" class="node">
-<title>sourcefile~whm_drift.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-1494 414.5,-1494 414.5,-1470 491.5,-1470 491.5,-1494"/>
-<text text-anchor="middle" x="453" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-1494 410,-1494 410,-1470 496,-1470 496,-1494"/>
+<text text-anchor="middle" x="453" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge42" class="edge">
-<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.31,-1480.54C398.97,-1478.03 382.25,-1472.55 371,-1461 332.89,-1421.87 311.75,-1251.43 305.22,-1189.55"/>
-<polygon fill="#000000" stroke="#000000" points="308.67,-1188.91 304.17,-1179.31 301.71,-1189.62 308.67,-1188.91"/>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge32" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.78,-1479.12C395.95,-1476.24 381.47,-1470.86 371,-1461 316.98,-1410.1 305.78,-1316.01 303.52,-1273.22"/>
+<polygon fill="#000000" stroke="#000000" points="307.01,-1272.89 303.11,-1263.05 300.02,-1273.18 307.01,-1272.89"/>
 </g>
-<!-- sourcefile~util_valid.f90 -->
+<!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node30" class="node">
-<title>sourcefile~util_valid.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="489,-1452 417,-1452 417,-1428 489,-1428 489,-1452"/>
-<text text-anchor="middle" x="453" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="490.5,-1452 415.5,-1452 415.5,-1428 490.5,-1428 490.5,-1452"/>
+<text text-anchor="middle" x="453" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge43" class="edge">
-<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.97,-1438.73C401.04,-1436.37 383.08,-1430.96 371,-1419 306.77,-1355.4 301.35,-1237.93 302.09,-1189.14"/>
-<polygon fill="#000000" stroke="#000000" points="305.59,-1189.13 302.35,-1179.05 298.59,-1188.95 305.59,-1189.13"/>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge33" class="edge">
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.15,-1437.65C399.96,-1434.99 383.12,-1429.63 371,-1419 327.05,-1380.46 311.08,-1309.38 305.62,-1273.29"/>
+<polygon fill="#000000" stroke="#000000" points="309.08,-1272.71 304.25,-1263.28 302.14,-1273.67 309.08,-1272.71"/>
 </g>
-<!-- sourcefile~kick.f90 -->
+<!-- sourcefile~setup.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node31" class="node">
-<title>sourcefile~kick.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480,-1410 426,-1410 426,-1386 480,-1386 480,-1410"/>
-<text text-anchor="middle" x="453" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481.5,-1410 424.5,-1410 424.5,-1386 481.5,-1386 481.5,-1410"/>
+<text text-anchor="middle" x="453" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge44" class="edge">
-<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.92,-1397.53C408.31,-1395.85 385.7,-1390.85 371,-1377 316.98,-1326.1 305.78,-1232.01 303.52,-1189.22"/>
-<polygon fill="#000000" stroke="#000000" points="307.01,-1188.89 303.11,-1179.05 300.02,-1189.18 307.01,-1188.89"/>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge34" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M424.4,-1396.37C407.48,-1394.12 386.21,-1388.92 371,-1377 336.83,-1350.21 317.63,-1301.32 308.88,-1272.95"/>
+<polygon fill="#000000" stroke="#000000" points="312.19,-1271.8 306.03,-1263.18 305.47,-1273.76 312.19,-1271.8"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~util_version.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node32" class="node">
-<title>sourcefile~util_resize.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-1368 413.5,-1368 413.5,-1344 492.5,-1344 492.5,-1368"/>
-<text text-anchor="middle" x="453" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="495.5,-1368 410.5,-1368 410.5,-1344 495.5,-1344 495.5,-1368"/>
+<text text-anchor="middle" x="453" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge46" class="edge">
-<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.5,-1353.35C398.75,-1350.6 382.69,-1345.25 371,-1335 327.05,-1296.46 311.08,-1225.38 305.62,-1189.29"/>
-<polygon fill="#000000" stroke="#000000" points="309.08,-1188.71 304.25,-1179.28 302.14,-1189.67 309.08,-1188.71"/>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge35" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.37,-1350.49C397.05,-1347.39 382.73,-1342.55 371,-1335 346.19,-1319.03 326.2,-1290.98 314.47,-1271.72"/>
+<polygon fill="#000000" stroke="#000000" points="317.47,-1269.92 309.39,-1263.06 311.43,-1273.46 317.47,-1269.92"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node33" class="node">
-<title>sourcefile~util_spill.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487,-1326 419,-1326 419,-1302 487,-1302 487,-1326"/>
-<text text-anchor="middle" x="453" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492,-1326 414,-1326 414,-1302 492,-1302 492,-1326"/>
+<text text-anchor="middle" x="453" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge76" class="edge">
-<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.93,-1311.56C403.07,-1308.95 384.61,-1303.66 371,-1293 336.83,-1266.21 317.63,-1217.32 308.88,-1188.95"/>
-<polygon fill="#000000" stroke="#000000" points="312.19,-1187.8 306.03,-1179.18 305.47,-1189.76 312.19,-1187.8"/>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge36" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.72,-1306.56C399.95,-1303.24 384.49,-1298.76 371,-1293 355.9,-1286.56 340.24,-1277.1 327.76,-1268.79"/>
+<polygon fill="#000000" stroke="#000000" points="329.51,-1265.75 319.28,-1263 325.57,-1271.53 329.51,-1265.75"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node34" class="node">
-<title>sourcefile~util_get_energy_momentum.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535,-1284 371,-1284 371,-1260 535,-1260 535,-1284"/>
-<text text-anchor="middle" x="453" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480.5,-1284 425.5,-1284 425.5,-1260 480.5,-1260 480.5,-1284"/>
+<text text-anchor="middle" x="453" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge48" class="edge">
-<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.83,-1259.93C382.56,-1257.48 376.5,-1254.54 371,-1251 346.19,-1235.03 326.2,-1206.98 314.47,-1187.72"/>
-<polygon fill="#000000" stroke="#000000" points="317.47,-1185.92 309.39,-1179.06 311.43,-1189.46 317.47,-1185.92"/>
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge37" class="edge">
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.36,-1268.25C403.14,-1265.11 371.08,-1260.59 345.34,-1256.97"/>
+<polygon fill="#000000" stroke="#000000" points="345.5,-1253.46 335.11,-1255.53 344.52,-1260.39 345.5,-1253.46"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~symba_util.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node35" class="node">
-<title>sourcefile~swiftest_driver.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="502,-1242 404,-1242 404,-1218 502,-1218 502,-1242"/>
-<text text-anchor="middle" x="453" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="494,-360 412,-360 412,-336 494,-336 494,-360"/>
+<text text-anchor="middle" x="453" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge49" class="edge">
-<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M403.67,-1220C392.71,-1217.04 381.29,-1213.39 371,-1209 355.9,-1202.56 340.24,-1193.1 327.76,-1184.79"/>
-<polygon fill="#000000" stroke="#000000" points="329.51,-1181.75 319.28,-1179 325.57,-1187.53 329.51,-1181.75"/>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge38" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.76,-348.95C396.77,-351.46 380.98,-357.08 371,-369 314.18,-436.87 304.55,-1097.8 303.2,-1228.58"/>
+<polygon fill="#000000" stroke="#000000" points="299.69,-1228.91 303.1,-1238.94 306.69,-1228.98 299.69,-1228.91"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90 -->
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge76" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.62,-342.78C397.95,-339.69 383.09,-334.78 371,-327 330.61,-301 336.64,-208.71 303,-243"/>
+</g>
+<!-- sourcefile~rmvs_step.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node36" class="node">
-<title>sourcefile~rmvs_setup.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-1200 410,-1200 410,-1176 496,-1176 496,-1200"/>
-<text text-anchor="middle" x="453" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="493,-1242 413,-1242 413,-1218 493,-1218 493,-1242"/>
+<text text-anchor="middle" x="453" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge50" class="edge">
-<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.7,-1182.04C389.63,-1179.21 365.69,-1175.84 345.58,-1173"/>
-<polygon fill="#000000" stroke="#000000" points="345.84,-1169.5 335.45,-1171.57 344.86,-1176.44 345.84,-1169.5"/>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge39" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.85,-1235.52C392.1,-1238.44 366.6,-1242.04 345.38,-1245.03"/>
+<polygon fill="#000000" stroke="#000000" points="344.77,-1241.58 335.35,-1246.44 345.74,-1248.51 344.77,-1241.58"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node37" class="node">
-<title>sourcefile~whm_util.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="489.5,-1158 416.5,-1158 416.5,-1134 489.5,-1134 489.5,-1158"/>
-<text text-anchor="middle" x="453" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="512,-1200 394,-1200 394,-1176 512,-1176 512,-1200"/>
+<text text-anchor="middle" x="453" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge51" class="edge">
-<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.31,-1151.03C394.88,-1154.05 367.51,-1157.91 345.04,-1161.07"/>
-<polygon fill="#000000" stroke="#000000" points="344.51,-1157.61 335.1,-1162.48 345.49,-1164.55 344.51,-1157.61"/>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge40" class="edge">
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M396.36,-1200.06C387.72,-1202.61 379.02,-1205.58 371,-1209 355.9,-1215.44 340.24,-1224.9 327.76,-1233.21"/>
+<polygon fill="#000000" stroke="#000000" points="325.57,-1230.47 319.28,-1239 329.51,-1236.25 325.57,-1230.47"/>
 </g>
 <!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node38" class="node">
 <title>sourcefile~util_coord.f90</title>
 <g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-1116 414.5,-1116 414.5,-1092 491.5,-1092 491.5,-1116"/>
-<text text-anchor="middle" x="453" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-1158 414.5,-1158 414.5,-1134 491.5,-1134 491.5,-1158"/>
+<text text-anchor="middle" x="453" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge52" class="edge">
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge41" class="edge">
 <title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.12,-1111.34C400.26,-1114.67 384.63,-1119.18 371,-1125 355.9,-1131.44 340.24,-1140.9 327.76,-1149.21"/>
-<polygon fill="#000000" stroke="#000000" points="325.57,-1146.47 319.28,-1155 329.51,-1152.25 325.57,-1146.47"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.5,-1150.6C400.06,-1153.63 383.95,-1158.66 371,-1167 346.19,-1182.97 326.2,-1211.02 314.47,-1230.28"/>
+<polygon fill="#000000" stroke="#000000" points="311.43,-1228.54 309.39,-1238.94 317.47,-1232.08 311.43,-1228.54"/>
 </g>
-<!-- sourcefile~drift.f90 -->
+<!-- sourcefile~symba_kick.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node39" class="node">
-<title>sourcefile~drift.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480,-1074 426,-1074 426,-1050 480,-1050 480,-1074"/>
-<text text-anchor="middle" x="453" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-318 410,-318 410,-294 496,-294 496,-318"/>
+<text text-anchor="middle" x="453" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge53" class="edge">
-<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.87,-1064.52C409.11,-1067.12 387.49,-1072.38 371,-1083 346.19,-1098.97 326.2,-1127.02 314.47,-1146.28"/>
-<polygon fill="#000000" stroke="#000000" points="311.43,-1144.54 309.39,-1154.94 317.47,-1148.08 311.43,-1144.54"/>
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge42" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.64,-307.3C395.28,-309.98 380.49,-315.62 371,-327 311.49,-398.33 304.01,-1093.38 303.12,-1228.36"/>
+<polygon fill="#000000" stroke="#000000" points="299.61,-1228.68 303.05,-1238.7 306.61,-1228.72 299.61,-1228.68"/>
 </g>
-<!-- sourcefile~rmvs_step.f90 -->
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge67" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410,-297.65C397.21,-294.44 383.29,-290.25 371,-285 338.33,-271.05 327.88,-217.64 303,-243"/>
+</g>
+<!-- sourcefile~io.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node40" class="node">
-<title>sourcefile~rmvs_step.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="493,-1032 413,-1032 413,-1008 493,-1008 493,-1032"/>
-<text text-anchor="middle" x="453" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480,-1116 426,-1116 426,-1092 480,-1092 480,-1116"/>
+<text text-anchor="middle" x="453" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge54" class="edge">
-<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.82,-1023.56C398.49,-1026.47 382.89,-1031.68 371,-1041 336.83,-1067.79 317.63,-1116.68 308.88,-1145.05"/>
-<polygon fill="#000000" stroke="#000000" points="305.47,-1144.24 306.03,-1154.82 312.19,-1146.2 305.47,-1144.24"/>
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge43" class="edge">
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.92,-1105.44C408.76,-1107.57 386.66,-1112.72 371,-1125 336.83,-1151.79 317.63,-1200.68 308.88,-1229.05"/>
+<polygon fill="#000000" stroke="#000000" points="305.47,-1228.24 306.03,-1238.82 312.19,-1230.2 305.47,-1228.24"/>
 </g>
-<!-- sourcefile~whm_gr.f90 -->
+<!-- sourcefile~util_fill.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node41" class="node">
-<title>sourcefile~whm_gr.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487,-990 419,-990 419,-966 487,-966 487,-990"/>
-<text text-anchor="middle" x="453" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="483,-1074 423,-1074 423,-1050 483,-1050 483,-1074"/>
+<text text-anchor="middle" x="453" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge55" class="edge">
-<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.81,-979.75C402.72,-982.17 384.11,-987.51 371,-999 327.05,-1037.54 311.08,-1108.62 305.62,-1144.71"/>
-<polygon fill="#000000" stroke="#000000" points="302.14,-1144.33 304.25,-1154.72 309.08,-1145.29 302.14,-1144.33"/>
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge44" class="edge">
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M422.77,-1063.2C405.87,-1065.33 385.2,-1070.55 371,-1083 327.05,-1121.54 311.08,-1192.62 305.62,-1228.71"/>
+<polygon fill="#000000" stroke="#000000" points="302.14,-1228.33 304.25,-1238.72 309.08,-1229.29 302.14,-1228.33"/>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
+<!-- sourcefile~whm_gr.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node42" class="node">
-<title>sourcefile~fragmentation.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="501.5,-948 404.5,-948 404.5,-924 501.5,-924 501.5,-948"/>
-<text text-anchor="middle" x="453" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487,-1032 419,-1032 419,-1008 487,-1008 487,-1032"/>
+<text text-anchor="middle" x="453" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge56" class="edge">
-<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.31,-940.15C392.22,-943.25 380.09,-948.43 371,-957 316.98,-1007.9 305.78,-1101.99 303.52,-1144.78"/>
-<polygon fill="#000000" stroke="#000000" points="300.02,-1144.82 303.11,-1154.95 307.01,-1145.11 300.02,-1144.82"/>
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge45" class="edge">
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.85,-1021.3C402.59,-1023.59 383.79,-1028.95 371,-1041 316.98,-1091.9 305.78,-1185.99 303.52,-1228.78"/>
+<polygon fill="#000000" stroke="#000000" points="300.02,-1228.82 303.11,-1238.95 307.01,-1229.11 300.02,-1228.82"/>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node43" class="node">
-<title>sourcefile~operator_cross.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="504.5,-906 401.5,-906 401.5,-882 504.5,-882 504.5,-906"/>
-<text text-anchor="middle" x="453" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-990 410,-990 410,-966 496,-966 496,-990"/>
+<text text-anchor="middle" x="453" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge57" class="edge">
-<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.5,-898.53C390.27,-901.71 379.26,-906.82 371,-915 306.77,-978.6 301.35,-1096.07 302.09,-1144.86"/>
-<polygon fill="#000000" stroke="#000000" points="298.59,-1145.05 302.35,-1154.95 305.59,-1144.87 298.59,-1145.05"/>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge46" class="edge">
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.92,-980.5C395.94,-983.34 381.32,-988.78 371,-999 306.77,-1062.6 301.35,-1180.07 302.09,-1228.86"/>
+<polygon fill="#000000" stroke="#000000" points="298.59,-1229.05 302.35,-1238.95 305.59,-1228.87 298.59,-1229.05"/>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
+<!-- sourcefile~discard.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node44" class="node">
-<title>sourcefile~symba_drift.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496,-2292 410,-2292 410,-2268 496,-2268 496,-2292"/>
-<text text-anchor="middle" x="453" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="485.5,-948 420.5,-948 420.5,-924 485.5,-924 485.5,-948"/>
+<text text-anchor="middle" x="453" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge11" class="edge">
-<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410,-2271.65C397.21,-2268.44 383.29,-2264.25 371,-2259 338.33,-2245.05 329.51,-2240.64 303,-2217"/>
-</g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge58" class="edge">
-<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.99,-2278.83C395.49,-2276.2 380.52,-2270.54 371,-2259 300.55,-2173.58 302.02,-1337.81 302.85,-1189.46"/>
-<polygon fill="#000000" stroke="#000000" points="306.35,-1189.31 302.91,-1179.29 299.35,-1189.27 306.35,-1189.31"/>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge47" class="edge">
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M420.43,-936.6C403.59,-938.6 383.77,-943.89 371,-957 332.89,-996.13 311.75,-1166.57 305.22,-1228.45"/>
+<polygon fill="#000000" stroke="#000000" points="301.71,-1228.38 304.17,-1238.69 308.67,-1229.09 301.71,-1228.38"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~symba_discard.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node45" class="node">
-<title>sourcefile~util_fill.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="483,-864 423,-864 423,-840 483,-840 483,-864"/>
-<text text-anchor="middle" x="453" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="504.5,-276 401.5,-276 401.5,-252 504.5,-252 504.5,-276"/>
+<text text-anchor="middle" x="453" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge59" class="edge">
-<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M422.82,-852.34C405.5,-854.11 384.38,-859.26 371,-873 332.89,-912.13 311.75,-1082.57 305.22,-1144.45"/>
-<polygon fill="#000000" stroke="#000000" points="301.71,-1144.38 304.17,-1154.69 308.67,-1145.09 301.71,-1144.38"/>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge48" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.16,-267.22C389.66,-270.39 378.62,-275.84 371,-285 308.72,-359.89 303.47,-1090.75 303.04,-1228.63"/>
+<polygon fill="#000000" stroke="#000000" points="299.54,-1228.81 303.01,-1238.82 306.54,-1228.83 299.54,-1228.81"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90 -->
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge70" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.25,-252.83C360.84,-244.59 309.93,-235.94 303,-243"/>
+</g>
+<!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node46" class="node">
-<title>sourcefile~symba_encounter_check.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="528,-2250 378,-2250 378,-2226 528,-2226 528,-2250"/>
-<text text-anchor="middle" x="453" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="505.5,-906 400.5,-906 400.5,-882 505.5,-882 505.5,-906"/>
+<text text-anchor="middle" x="453" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge10" class="edge">
-<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M377.85,-2243.68C351.4,-2241.87 323.18,-2235 303,-2217"/>
-</g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge60" class="edge">
-<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M380.93,-2225.89C377.23,-2223.41 373.87,-2220.47 371,-2217 303.28,-2135.1 302.49,-1334.54 302.9,-1189.48"/>
-<polygon fill="#000000" stroke="#000000" points="306.41,-1189.17 302.94,-1179.16 299.41,-1189.15 306.41,-1189.17"/>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge49" class="edge">
+<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M400.28,-898.41C389.36,-901.61 378.79,-906.77 371,-915 327.66,-960.74 309.49,-1160.7 304.51,-1228.45"/>
+<polygon fill="#000000" stroke="#000000" points="300.99,-1228.61 303.77,-1238.83 307.97,-1229.1 300.99,-1228.61"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
+<!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node47" class="node">
-<title>sourcefile~util_peri.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487,-822 419,-822 419,-798 487,-798 487,-822"/>
-<text text-anchor="middle" x="453" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="495.5,-864 410.5,-864 410.5,-840 495.5,-840 495.5,-864"/>
+<text text-anchor="middle" x="453" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge61" class="edge">
-<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.67,-810.66C402.16,-812.76 383.19,-818.13 371,-831 327.66,-876.74 309.49,-1076.7 304.51,-1144.45"/>
-<polygon fill="#000000" stroke="#000000" points="300.99,-1144.61 303.77,-1154.83 307.97,-1145.1 300.99,-1144.61"/>
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge50" class="edge">
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.27,-853.86C395.98,-856.59 381.07,-862.13 371,-873 322.38,-925.45 307.49,-1155.43 303.95,-1228.58"/>
+<polygon fill="#000000" stroke="#000000" points="300.44,-1228.77 303.47,-1238.92 307.43,-1229.09 300.44,-1228.77"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
+<!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node48" class="node">
-<title>sourcefile~rmvs_kick.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492,-780 414,-780 414,-756 492,-756 492,-780"/>
-<text text-anchor="middle" x="453" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-234 409,-234 409,-210 497,-210 497,-234"/>
+<text text-anchor="middle" x="453" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge62" class="edge">
-<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.61,-769.27C398.35,-771.76 381.86,-777.28 371,-789 322.38,-841.45 307.49,-1071.43 303.95,-1144.58"/>
-<polygon fill="#000000" stroke="#000000" points="300.44,-1144.77 303.47,-1154.92 307.43,-1145.09 300.44,-1144.77"/>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge51" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M408.75,-223.43C394.66,-226.17 380.27,-231.82 371,-243 305.94,-321.47 302.97,-1088.54 302.97,-1228.98"/>
+<polygon fill="#000000" stroke="#000000" points="299.47,-1228.99 302.97,-1238.98 306.47,-1228.98 299.47,-1228.99"/>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge74" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M408.93,-215.3C375.34,-212.71 329.98,-215.49 303,-243"/>
+</g>
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node49" class="node">
-<title>sourcefile~symba_discard.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="504.5,-2208 401.5,-2208 401.5,-2184 504.5,-2184 504.5,-2208"/>
-<text text-anchor="middle" x="453" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="489.5,-822 416.5,-822 416.5,-798 489.5,-798 489.5,-822"/>
+<text text-anchor="middle" x="453" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.48,-2206.93C361.21,-2215.02 310.38,-2223.59 303,-2217"/>
-</g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge65" class="edge">
-<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.15,-2192.79C389.65,-2189.62 378.6,-2184.17 371,-2175 305.94,-2096.53 302.97,-1329.46 302.97,-1189.02"/>
-<polygon fill="#000000" stroke="#000000" points="306.47,-1189.02 302.97,-1179.02 299.47,-1189.01 306.47,-1189.02"/>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge52" class="edge">
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.42,-810.74C400.35,-812.97 382.45,-818.43 371,-831 317.07,-890.2 305.71,-1150.44 303.5,-1228.68"/>
+<polygon fill="#000000" stroke="#000000" points="300,-1228.76 303.24,-1238.85 307,-1228.95 300,-1228.76"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~operator_cross.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node50" class="node">
-<title>sourcefile~util_set.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="485,-738 421,-738 421,-714 485,-714 485,-738"/>
-<text text-anchor="middle" x="453" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="504.5,-780 401.5,-780 401.5,-756 504.5,-756 504.5,-780"/>
+<text text-anchor="middle" x="453" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge63" class="edge">
-<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M420.89,-726.19C403.77,-728 383.52,-733.25 371,-747 317.07,-806.2 305.71,-1066.44 303.5,-1144.68"/>
-<polygon fill="#000000" stroke="#000000" points="300,-1144.76 303.24,-1154.85 307,-1144.95 300,-1144.76"/>
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge53" class="edge">
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.22,-771.75C389.86,-774.93 378.86,-780.24 371,-789 311.71,-855.04 304.1,-1146.03 303.13,-1228.9"/>
+<polygon fill="#000000" stroke="#000000" points="299.63,-1228.94 303.04,-1238.97 306.63,-1229.01 299.63,-1228.94"/>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node51" class="node">
-<title>sourcefile~util_exit.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="486.5,-696 419.5,-696 419.5,-672 486.5,-672 486.5,-696"/>
-<text text-anchor="middle" x="453" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="489,-738 417,-738 417,-714 489,-714 489,-738"/>
+<text text-anchor="middle" x="453" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge64" class="edge">
-<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.2,-684.3C402.42,-686.25 383.03,-691.6 371,-705 311.71,-771.04 304.1,-1062.03 303.13,-1144.9"/>
-<polygon fill="#000000" stroke="#000000" points="299.63,-1144.94 303.04,-1154.97 306.63,-1145.01 299.63,-1144.94"/>
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge55" class="edge">
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.68,-726.55C400.47,-728.71 382.38,-734.18 371,-747 306.45,-819.77 302.64,-1140.65 302.83,-1228.62"/>
+<polygon fill="#000000" stroke="#000000" points="299.33,-1228.83 302.88,-1238.81 306.33,-1228.8 299.33,-1228.83"/>
 </g>
-<!-- sourcefile~util_solve.f90 -->
+<!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node52" class="node">
-<title>sourcefile~util_solve.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="490.5,-654 415.5,-654 415.5,-630 490.5,-630 490.5,-654"/>
-<text text-anchor="middle" x="453" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="506,-192 400,-192 400,-168 506,-168 506,-192"/>
+<text text-anchor="middle" x="453" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge66" class="edge">
-<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.44,-642.72C399.56,-644.99 382.09,-650.5 371,-663 306.45,-735.77 302.64,-1056.65 302.83,-1144.62"/>
-<polygon fill="#000000" stroke="#000000" points="299.33,-1144.83 302.88,-1154.81 306.33,-1144.8 299.33,-1144.83"/>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge56" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M399.87,-183.55C388.83,-186.77 378.31,-192.16 371,-201 303.28,-282.9 302.49,-1083.46 302.9,-1228.52"/>
+<polygon fill="#000000" stroke="#000000" points="299.41,-1228.85 302.94,-1238.84 306.41,-1228.83 299.41,-1228.85"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge69" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M399.98,-191.19C368.35,-200.37 329.16,-216.33 303,-243"/>
+</g>
+<!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node53" class="node">
-<title>sourcefile~discard.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="485.5,-612 420.5,-612 420.5,-588 485.5,-588 485.5,-612"/>
-<text text-anchor="middle" x="453" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480,-696 426,-696 426,-672 480,-672 480,-696"/>
+<text text-anchor="middle" x="453" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge67" class="edge">
-<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M420.3,-600.06C403.2,-601.86 383.17,-607.14 371,-621 301.12,-700.59 301.28,-1051.97 302.57,-1144.57"/>
-<polygon fill="#000000" stroke="#000000" points="299.08,-1144.83 302.74,-1154.77 306.08,-1144.71 299.08,-1144.83"/>
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge57" class="edge">
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.83,-683.59C407.71,-684.8 384.51,-689.61 371,-705 301.12,-784.59 301.28,-1135.97 302.57,-1228.57"/>
+<polygon fill="#000000" stroke="#000000" points="299.08,-1228.83 302.74,-1238.77 306.08,-1228.71 299.08,-1228.83"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~symba_io.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node54" class="node">
-<title>sourcefile~io.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480,-570 426,-570 426,-546 480,-546 480,-570"/>
-<text text-anchor="middle" x="453" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491,-150 415,-150 415,-126 491,-126 491,-150"/>
+<text text-anchor="middle" x="453" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge58" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.61,-138.42C398.75,-140.66 381.54,-146.22 371,-159 300.55,-244.42 302.02,-1080.19 302.85,-1228.54"/>
+<polygon fill="#000000" stroke="#000000" points="299.35,-1228.73 302.91,-1238.71 306.35,-1228.69 299.35,-1228.73"/>
+</g>
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge71" class="edge">
-<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.79,-557.55C407.65,-558.75 384.45,-563.55 371,-579 333.08,-622.57 309.32,-1043.11 304.09,-1144.9"/>
-<polygon fill="#000000" stroke="#000000" points="300.59,-1144.8 303.58,-1154.97 307.58,-1145.16 300.59,-1144.8"/>
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.91,-142.51C400.37,-145.54 384.07,-150.59 371,-159 330.61,-185 336.64,-208.71 303,-243"/>
 </g>
 <!-- sourcefile~whm_kick.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node55" class="node">
 <title>sourcefile~whm_kick.f90</title>
 <g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-528 414.5,-528 414.5,-504 491.5,-504 491.5,-528"/>
-<text text-anchor="middle" x="453" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-654 414.5,-654 414.5,-630 491.5,-630 491.5,-654"/>
+<text text-anchor="middle" x="453" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge69" class="edge">
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge59" class="edge">
 <title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.46,-516.71C398.77,-519.03 381.73,-524.58 371,-537 330.42,-584 308.53,-1038.11 303.92,-1144.69"/>
-<polygon fill="#000000" stroke="#000000" points="300.42,-1144.78 303.49,-1154.92 307.41,-1145.08 300.42,-1144.78"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.08,-642.81C398.52,-645.17 381.68,-650.73 371,-663 333.08,-706.57 309.32,-1127.11 304.09,-1228.9"/>
+<polygon fill="#000000" stroke="#000000" points="300.59,-1228.8 303.58,-1238.97 307.58,-1229.16 300.59,-1228.8"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
+<!-- sourcefile~whm_step.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node56" class="node">
-<title>sourcefile~util_minimize_bfgs.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="512,-486 394,-486 394,-462 512,-462 512,-486"/>
-<text text-anchor="middle" x="453" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-612 413.5,-612 413.5,-588 492.5,-588 492.5,-612"/>
+<text text-anchor="middle" x="453" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge70" class="edge">
-<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M393.87,-479.81C385.14,-483.1 377.05,-487.94 371,-495 327.68,-545.5 307.73,-1034.63 303.75,-1144.96"/>
-<polygon fill="#000000" stroke="#000000" points="300.26,-1144.84 303.4,-1154.96 307.25,-1145.09 300.26,-1144.84"/>
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge60" class="edge">
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.2,-600.9C397.87,-603.33 381.44,-608.91 371,-621 330.42,-668 308.53,-1122.11 303.92,-1228.69"/>
+<polygon fill="#000000" stroke="#000000" points="300.42,-1228.78 303.49,-1238.92 307.41,-1229.08 300.42,-1228.78"/>
 </g>
-<!-- sourcefile~symba_setup.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node57" class="node">
-<title>sourcefile~symba_setup.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="500,-2166 406,-2166 406,-2142 500,-2142 500,-2166"/>
-<text text-anchor="middle" x="453" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="485,-570 421,-570 421,-546 485,-546 485,-570"/>
+<text text-anchor="middle" x="453" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.79,-2163.43C394.2,-2166.49 381.96,-2170.32 371,-2175 338.33,-2188.95 329.51,-2240.64 303,-2217"/>
-</g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge72" class="edge">
-<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.81,-2151.93C392.69,-2149 379.64,-2143.39 371,-2133 308.72,-2058.11 303.47,-1327.25 303.04,-1189.37"/>
-<polygon fill="#000000" stroke="#000000" points="306.54,-1189.17 303.01,-1179.18 299.54,-1189.19 306.54,-1189.17"/>
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge61" class="edge">
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M420.98,-557.87C403.67,-559.55 383.2,-564.78 371,-579 327.68,-629.5 307.73,-1118.63 303.75,-1228.96"/>
+<polygon fill="#000000" stroke="#000000" points="300.26,-1228.84 303.4,-1238.96 307.25,-1229.09 300.26,-1228.84"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~util_resize.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node58" class="node">
-<title>sourcefile~symba_fragmentation.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="520,-2124 386,-2124 386,-2100 520,-2100 520,-2124"/>
-<text text-anchor="middle" x="453" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-528 413.5,-528 413.5,-504 492.5,-504 492.5,-528"/>
+<text text-anchor="middle" x="453" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.83,-2124.07C382.56,-2126.52 376.5,-2129.46 371,-2133 330.61,-2159 338.85,-2248.97 303,-2217"/>
-</g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge73" class="edge">
-<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.78,-2102.75C380.17,-2099.75 375.09,-2095.91 371,-2091 311.49,-2019.67 304.01,-1324.62 303.12,-1189.64"/>
-<polygon fill="#000000" stroke="#000000" points="306.61,-1189.28 303.05,-1179.3 299.61,-1189.32 306.61,-1189.28"/>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge62" class="edge">
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.13,-516.83C397.78,-519.25 381.37,-524.84 371,-537 325.02,-590.93 307.04,-1113.65 303.62,-1228.68"/>
+<polygon fill="#000000" stroke="#000000" points="300.12,-1228.69 303.33,-1238.79 307.12,-1228.89 300.12,-1228.69"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node59" class="node">
-<title>sourcefile~util_version.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="495.5,-444 410.5,-444 410.5,-420 495.5,-420 495.5,-444"/>
-<text text-anchor="middle" x="453" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487,-486 419,-486 419,-462 487,-462 487,-486"/>
+<text text-anchor="middle" x="453" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge74" class="edge">
-<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.19,-433.34C395.72,-435.99 380.71,-441.61 371,-453 325.02,-506.93 307.04,-1029.65 303.62,-1144.68"/>
-<polygon fill="#000000" stroke="#000000" points="300.12,-1144.69 303.33,-1154.79 307.12,-1144.89 300.12,-1144.69"/>
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge63" class="edge">
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.9,-474.03C402.02,-475.91 382.65,-481.26 371,-495 322.28,-552.44 306.35,-1110.25 303.5,-1228.89"/>
+<polygon fill="#000000" stroke="#000000" points="299.99,-1228.88 303.26,-1238.96 306.99,-1229.05 299.99,-1228.88"/>
 </g>
-<!-- sourcefile~setup.f90 -->
+<!-- sourcefile~symba_encounter_check.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node60" class="node">
-<title>sourcefile~setup.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481.5,-402 424.5,-402 424.5,-378 481.5,-378 481.5,-402"/>
-<text text-anchor="middle" x="453" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="528,-108 378,-108 378,-84 528,-84 528,-108"/>
+<text text-anchor="middle" x="453" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge64" class="edge">
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M380.91,-108.09C377.22,-110.58 373.86,-113.52 371,-117 297.8,-205.97 301.57,-1077.26 302.79,-1228.64"/>
+<polygon fill="#000000" stroke="#000000" points="299.29,-1229.01 302.88,-1238.98 306.29,-1228.95 299.29,-1229.01"/>
+</g>
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge75" class="edge">
-<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M424.11,-389.56C406.17,-390.87 383.87,-395.82 371,-411 322.28,-468.44 306.35,-1026.25 303.5,-1144.89"/>
-<polygon fill="#000000" stroke="#000000" points="299.99,-1144.88 303.26,-1154.96 306.99,-1145.05 299.99,-1144.88"/>
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301,-243C229.29,-316.1 190.1,-1087.55 183.5,-1228.84"/>
+<polygon fill="#000000" stroke="#000000" points="180,-1228.76 183.04,-1238.91 187,-1229.08 180,-1228.76"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M385.68,-108.15C380.44,-110.59 375.46,-113.5 371,-117 320.92,-156.26 347.56,-197.57 303,-243"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~helio_classes.f90~~AfferentGraph_node61" class="node">
-<title>sourcefile~rmvs_encounter_check.f90</title>
-<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="524,-360 382,-360 382,-336 524,-336 524,-360"/>
-<text text-anchor="middle" x="453" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="480,-444 426,-444 426,-420 480,-420 480,-444"/>
+<text text-anchor="middle" x="453" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge28" class="edge">
-<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M381.73,-359.7C377.73,-362.27 374.09,-365.34 371,-369 319.58,-429.92 305.72,-1022.14 303.39,-1144.82"/>
-<polygon fill="#000000" stroke="#000000" points="299.88,-1144.85 303.2,-1154.91 306.88,-1144.97 299.88,-1144.85"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge65" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.65,-431.43C407.44,-432.57 384.21,-437.35 371,-453 319.58,-513.92 305.72,-1106.14 303.39,-1228.82"/>
+<polygon fill="#000000" stroke="#000000" points="299.88,-1228.85 303.2,-1238.91 306.88,-1228.97 299.88,-1228.85"/>
+</g>
+<!-- sourcefile~util_sort.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_node62" class="node">
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~helio_classes.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487,-402 419,-402 419,-378 487,-378 487,-402"/>
+<text text-anchor="middle" x="453" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~helio_classes.f90~~AfferentGraph_edge66" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.85,-389.99C401.96,-391.85 382.59,-397.21 371,-411 316.86,-475.42 305.11,-1102.43 303.29,-1228.85"/>
+<polygon fill="#000000" stroke="#000000" points="299.79,-1228.85 303.15,-1238.9 306.78,-1228.95 299.79,-1228.85"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/helio_coord.f90.html b/docs/sourcefile/helio_coord.f90.html
index 7339b37f4..a8acdd8ae 100644
--- a/docs/sourcefile/helio_coord.f90.html
+++ b/docs/sourcefile/helio_coord.f90.html
@@ -226,243 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~helio_coord.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilehelio_coordf90EfferentGraph" width="641pt" height="191pt"
- viewBox="0.00 0.00 641.00 190.82" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 266)">
+<svg id="sourcefilehelio_coordf90EfferentGraph" width="641pt" height="162pt"
+ viewBox="0.00 0.00 641.00 162.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 225.23)">
 <title>sourcefile~~helio_coord.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-266 903,-266 903,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-225.23 903,-225.23 903,4 -4,4"/>
 <!-- sourcefile~helio_coord.f90 -->
 <g id="sourcefile~~helio_coord.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~helio_coord.f90</title>
-<polygon fill="none" stroke="black" points="899,-202 813,-202 813,-178 899,-178 899,-202"/>
-<text text-anchor="middle" x="856" y="-187.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_coord.f90</text>
+<polygon fill="none" stroke="black" points="899,-164 813,-164 813,-140 899,-140 899,-164"/>
+<text text-anchor="middle" x="856" y="-149.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_coord.f90</text>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_coord.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~helio_classes.f90</title>
 <g id="a_sourcefile~~helio_coord.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-222 441.5,-222 441.5,-198 535.5,-198 535.5,-222"/>
-<text text-anchor="middle" x="488.5" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-184 441.5,-184 441.5,-160 535.5,-160 535.5,-184"/>
+<text text-anchor="middle" x="488.5" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.95,-193.76C766.75,-197.86 690.35,-204.57 624.5,-210"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.95,-155.76C766.75,-159.86 690.35,-166.57 624.5,-172"/>
 </g>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~helio_coord.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~swiftest.f90</title>
 <g id="a_sourcefile~~helio_coord.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-182 711,-182 711,-158 777,-158 777,-182"/>
-<text text-anchor="middle" x="744" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-144 711,-144 711,-120 777,-120 777,-144"/>
+<text text-anchor="middle" x="744" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.79,-182.32C804.34,-180.79 795.48,-179.18 787.04,-177.64"/>
-<polygon fill="#000000" stroke="#000000" points="787.48,-174.17 777.02,-175.82 786.23,-181.05 787.48,-174.17"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.79,-144.32C804.34,-142.79 795.48,-141.18 787.04,-139.64"/>
+<polygon fill="#000000" stroke="#000000" points="787.48,-136.17 777.02,-137.82 786.23,-143.05 787.48,-136.17"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~helio_coord.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-142 143,-142 143,-118 250,-118 250,-142"/>
-<text text-anchor="middle" x="196.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~helio_coord.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-146 147.5,-146 147.5,-122 254.5,-122 254.5,-146"/>
+<text text-anchor="middle" x="201" y="-131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge4" class="edge">
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge3" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M455.42,-197.99C427.3,-188.17 385.08,-175.1 347,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.02,-159.81C437.37,-147.24 392.29,-129.76 351.5,-132"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~helio_coord.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-103 0,-103 0,-79 106,-79 106,-103"/>
-<text text-anchor="middle" x="53" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~helio_coord.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-184 303.5,-184 303.5,-160 397.5,-160 397.5,-184"/>
+<text text-anchor="middle" x="350.5" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.25,-208.38C413.82,-207.83 378.39,-207.81 347,-210"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.46,-172C430.72,-172 419.16,-172 408.03,-172"/>
+<polygon fill="#000000" stroke="#000000" points="407.96,-168.5 397.96,-172 407.96,-175.5 407.96,-168.5"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~helio_coord.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-142 299,-142 299,-118 393,-118 393,-142"/>
-<text text-anchor="middle" x="346" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~helio_coord.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-106 0,-106 0,-82 106,-82 106,-106"/>
+<text text-anchor="middle" x="53" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.39,-197.98C456.79,-193.79 448.4,-188.91 441,-184 424.11,-172.8 422.37,-166.44 405,-156 399.22,-152.52 392.89,-149.23 386.6,-146.22"/>
-<polygon fill="#000000" stroke="#000000" points="388.05,-143.03 377.5,-142.03 385.12,-149.39 388.05,-143.03"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-212C284.11,-216.71 265.18,-229.49 202,-212"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M459.5,-184.07C432.46,-194.81 390.04,-209.22 351.5,-212"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M718.78,-182.06C695.35,-192.79 658.47,-207.2 624.5,-210"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-210C597.44,-212.07 569.64,-212.37 545.96,-212.05"/>
-<polygon fill="#000000" stroke="#000000" points="545.8,-208.54 535.74,-211.86 545.68,-215.54 545.8,-208.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-172C597.44,-174.07 569.64,-174.37 545.96,-174.05"/>
+<polygon fill="#000000" stroke="#000000" points="545.8,-170.54 535.74,-173.86 545.68,-177.54 545.8,-170.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M718.78,-144.06C695.35,-154.79 658.47,-169.2 624.5,-172"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~helio_coord.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~helio_coord.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-182 572,-182 572,-158 675,-158 675,-182"/>
-<text text-anchor="middle" x="623.5" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~helio_coord.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-66 142,-66 142,-42 260,-42 260,-66"/>
+<text text-anchor="middle" x="201" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-170C703.05,-170 694.35,-170 685.59,-170"/>
-<polygon fill="#000000" stroke="#000000" points="685.33,-166.5 675.33,-170 685.33,-173.5 685.33,-166.5"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C423.44,-141.03 411.12,-178.58 347,-170"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-170C309.6,-165.26 270.64,-154.44 241.65,-145.25"/>
-<polygon fill="#000000" stroke="#000000" points="242.43,-141.83 231.84,-142.08 240.28,-148.49 242.43,-141.83"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-52C279.83,-44.9 263.04,-50.49 197.5,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-52C159.15,-52.84 119.37,-64.85 91.27,-75.33"/>
-<polygon fill="#000000" stroke="#000000" points="89.92,-72.1 81.84,-78.95 92.43,-78.63 89.92,-72.1"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C413.36,-55.57 328.26,-55.65 270.39,-55.1"/>
+<polygon fill="#000000" stroke="#000000" points="270.31,-51.6 260.27,-54.99 270.24,-58.6 270.31,-51.6"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~helio_coord.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<g id="a_sourcefile~~helio_coord.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
 <polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-104 441,-104 441,-80 536,-80 536,-104"/>
 <text text-anchor="middle" x="488.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-111C598.01,-103.49 570.06,-98.93 546.12,-96.16"/>
-<polygon fill="#000000" stroke="#000000" points="546.45,-92.68 536.13,-95.09 545.7,-99.64 546.45,-92.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C604.37,-47.96 559.89,-63.27 527.35,-76.1"/>
+<polygon fill="#000000" stroke="#000000" points="525.65,-73.01 517.67,-79.98 528.26,-79.51 525.65,-73.01"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~helio_coord.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-24 142,-24 142,0 251,0 251,-24"/>
-<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~helio_coord.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge11" class="edge">
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-52C307.66,-49.51 266.69,-37.62 237.42,-27.45"/>
-<polygon fill="#000000" stroke="#000000" points="238.56,-24.14 227.97,-24.08 236.21,-30.73 238.56,-24.14"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-111C582.01,-98.58 576.86,-82.16 536,-71 454.56,-48.75 431.24,-57.61 347,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M724.17,-157.95C701.49,-144.08 661.79,-121.84 624.5,-111"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C451.16,-53.75 411.43,-40.14 384.35,-28.32"/>
+<polygon fill="#000000" stroke="#000000" points="385.53,-25.02 374.98,-24.08 382.65,-31.39 385.53,-25.02"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C564.81,-39.13 548.54,-49.15 489.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.69,-119.9C712.15,-100.14 669.8,-62.11 624.5,-52"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C465.2,-53.07 459.51,-58.51 441,-71 421.98,-83.83 423.8,-94.85 405,-108 383.65,-122.94 377.52,-130.57 351.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-132C321.73,-133.52 290.98,-134.12 264.78,-134.29"/>
+<polygon fill="#000000" stroke="#000000" points="264.58,-130.79 254.6,-134.34 264.62,-137.79 264.58,-130.79"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge11" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C459.88,-135.89 428.91,-135.91 403.09,-134.74"/>
-<polygon fill="#000000" stroke="#000000" points="403.27,-131.24 393.1,-134.21 402.9,-138.23 403.27,-131.24"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-111C565.29,-93.45 548.76,-123.65 489.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.77,-144.13C719.24,-156.83 697.72,-176.25 675,-186 598.49,-218.82 572.53,-217.99 489.5,-212"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-212C452.44,-211.03 414.27,-198.75 387.32,-188.04"/>
+<polygon fill="#000000" stroke="#000000" points="388.51,-184.75 377.93,-184.2 385.85,-191.23 388.51,-184.75"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~helio_coord.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-262 287,-262 287,-238 405,-238 405,-262"/>
-<text text-anchor="middle" x="346" y="-247.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~helio_coord.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-144 572,-144 572,-120 675,-120 675,-144"/>
+<text text-anchor="middle" x="623.5" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.88,-182.4C719.44,-195.33 698,-214.94 675,-224 590.19,-257.39 483.68,-259.26 415.47,-255.93"/>
-<polygon fill="#000000" stroke="#000000" points="415.45,-252.42 405.27,-255.38 415.07,-259.41 415.45,-252.42"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-132C703.05,-132 694.35,-132 685.59,-132"/>
+<polygon fill="#000000" stroke="#000000" points="685.33,-128.5 675.33,-132 685.33,-135.5 685.33,-128.5"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.6,-182C569.04,-186.08 553.73,-190.68 539.49,-194.97"/>
-<polygon fill="#000000" stroke="#000000" points="538.4,-191.64 529.84,-197.87 540.42,-198.34 538.4,-191.64"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-212C427.08,-210.33 411.79,-207.65 351.5,-212"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-170C425.21,-174.35 408.89,-178.28 347,-170"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.92,-168.35C547.06,-167.95 516.68,-168.1 489.5,-170"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-66C140.96,-70.17 123.7,-74.9 107.75,-79.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-75.92 98.03,-81.94 108.6,-82.67 106.75,-75.92"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-170C422.73,-174.52 411.77,-205.48 347,-210"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-210C143,-187.02 94.91,-138.21 70.61,-110.78"/>
-<polygon fill="#000000" stroke="#000000" points="73.05,-108.26 63.85,-103.01 67.77,-112.85 73.05,-108.26"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-210C279.6,-214.57 257.55,-236.29 197.5,-210"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.39,-104.02C456.79,-108.21 448.4,-113.09 441,-118 424.11,-129.2 422.21,-135.29 405,-146 399.65,-149.33 393.81,-152.55 388.02,-155.52"/>
+<polygon fill="#000000" stroke="#000000" points="386.44,-152.4 379.03,-159.97 389.55,-158.67 386.44,-152.4"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.68,-157.84C585.21,-147.19 559.04,-131.36 536,-118 530.87,-115.03 525.4,-111.91 520.08,-108.92"/>
-<polygon fill="#000000" stroke="#000000" points="521.78,-105.86 511.34,-104.03 518.36,-111.97 521.78,-105.86"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.88,-94.52C414.6,-95.47 381.19,-95.93 351.5,-94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-94C269.04,-88.78 176.01,-89.97 116.16,-91.66"/>
+<polygon fill="#000000" stroke="#000000" points="116,-88.17 106.11,-91.96 116.21,-95.16 116,-88.17"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.84,-10.16C252.94,-10.38 191.94,-14.57 142,-33 116.6,-42.37 91.63,-60.82 74.81,-74.98"/>
+<polygon fill="#000000" stroke="#000000" points="72.06,-72.73 66.8,-81.93 76.65,-78.02 72.06,-72.73"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.89,-117.98C137.9,-114.13 122.25,-109.81 107.63,-105.78"/>
-<polygon fill="#000000" stroke="#000000" points="108.28,-102.33 97.71,-103.05 106.42,-109.08 108.28,-102.33"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-122C140.96,-117.83 123.7,-113.1 107.75,-108.73"/>
+<polygon fill="#000000" stroke="#000000" points="108.6,-105.33 98.03,-106.06 106.75,-112.08 108.6,-105.33"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.86,-86.3C400.2,-81.25 339.64,-73.53 287,-66 247.14,-60.3 237.76,-51.75 197.5,-52"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-160.08C289.09,-156.44 273.38,-152.39 258.63,-148.59"/>
+<polygon fill="#000000" stroke="#000000" points="259.17,-145.11 248.61,-146.01 257.42,-151.89 259.17,-145.11"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-104.02C429.85,-107.59 415.24,-111.54 401.48,-115.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-111.93 391.65,-117.92 402.22,-118.69 400.39,-111.93"/>
-</g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.41,-24.1C160.62,-28.33 150.8,-33.22 142,-38 121.5,-49.13 98.98,-62.72 81.85,-73.35"/>
-<polygon fill="#000000" stroke="#000000" points="79.57,-70.65 72.94,-78.92 83.27,-76.59 79.57,-70.65"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.38,-184.06C283.02,-197.94 223.99,-218.09 202,-212"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-212C143.11,-196.25 93.64,-143.72 69.56,-114.34"/>
+<polygon fill="#000000" stroke="#000000" points="72.17,-112 63.19,-106.37 66.71,-116.37 72.17,-112"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-130C286.54,-130 273.16,-130 260.25,-130"/>
-<polygon fill="#000000" stroke="#000000" points="260.03,-126.5 250.03,-130 260.03,-133.5 260.03,-126.5"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.6,-144C569.04,-148.08 553.73,-152.68 539.49,-156.97"/>
+<polygon fill="#000000" stroke="#000000" points="538.4,-153.64 529.84,-159.87 540.42,-160.34 538.4,-153.64"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.4,-117.89C306.94,-113.7 296.43,-108.83 287,-104 246.07,-83.01 243.5,-51.72 197.5,-52"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.6,-120C569.04,-115.92 553.73,-111.32 539.49,-107.03"/>
+<polygon fill="#000000" stroke="#000000" points="540.42,-103.66 529.84,-104.13 538.4,-110.36 540.42,-103.66"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C427.2,-127.87 411.85,-128.69 351.5,-132"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_coord.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.92,-238.44C259.19,-231.87 225.94,-222.45 197.5,-210"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C424.89,-127.71 414.07,-98.9 351.5,-94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.92,-133.62C547.06,-134.01 516.68,-133.86 489.5,-132"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/helio_drift.f90.html b/docs/sourcefile/helio_drift.f90.html
index 3cdfbf66c..f4d8ac16b 100644
--- a/docs/sourcefile/helio_drift.f90.html
+++ b/docs/sourcefile/helio_drift.f90.html
@@ -226,243 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~helio_drift.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilehelio_driftf90EfferentGraph" width="641pt" height="193pt"
- viewBox="0.00 0.00 641.00 192.73" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 266)">
+<svg id="sourcefilehelio_driftf90EfferentGraph" width="641pt" height="164pt"
+ viewBox="0.00 0.00 641.00 163.63" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 225.23)">
 <title>sourcefile~~helio_drift.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-266 894,-266 894,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-225.23 894,-225.23 894,4 -4,4"/>
 <!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~helio_drift.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~helio_drift.f90</title>
-<polygon fill="none" stroke="black" points="890,-202 813,-202 813,-178 890,-178 890,-202"/>
-<text text-anchor="middle" x="851.5" y="-187.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_drift.f90</text>
+<polygon fill="none" stroke="black" points="890,-164 813,-164 813,-140 890,-140 890,-164"/>
+<text text-anchor="middle" x="851.5" y="-149.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_drift.f90</text>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_drift.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~helio_classes.f90</title>
 <g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-222 441.5,-222 441.5,-198 535.5,-198 535.5,-222"/>
-<text text-anchor="middle" x="488.5" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-184 441.5,-184 441.5,-160 535.5,-160 535.5,-184"/>
+<text text-anchor="middle" x="488.5" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.92,-193.46C768.08,-197.57 690.84,-204.53 624.5,-210"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.92,-155.46C768.08,-159.57 690.84,-166.53 624.5,-172"/>
 </g>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~helio_drift.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~swiftest.f90</title>
 <g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-182 711,-182 711,-158 777,-158 777,-182"/>
-<text text-anchor="middle" x="744" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-144 711,-144 711,-120 777,-120 777,-144"/>
+<text text-anchor="middle" x="744" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.71,-182.84C804.47,-181.27 795.7,-179.61 787.3,-178.02"/>
-<polygon fill="#000000" stroke="#000000" points="787.77,-174.55 777.3,-176.12 786.47,-181.42 787.77,-174.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.71,-144.84C804.47,-143.27 795.7,-141.61 787.3,-140.02"/>
+<polygon fill="#000000" stroke="#000000" points="787.77,-136.55 777.3,-138.12 786.47,-143.42 787.77,-136.55"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-142 143,-142 143,-118 250,-118 250,-142"/>
-<text text-anchor="middle" x="196.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-146 147.5,-146 147.5,-122 254.5,-122 254.5,-146"/>
+<text text-anchor="middle" x="201" y="-131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge4" class="edge">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge3" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M455.42,-197.99C427.3,-188.17 385.08,-175.1 347,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.02,-159.81C437.37,-147.24 392.29,-129.76 351.5,-132"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-103 0,-103 0,-79 106,-79 106,-103"/>
-<text text-anchor="middle" x="53" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-184 303.5,-184 303.5,-160 397.5,-160 397.5,-184"/>
+<text text-anchor="middle" x="350.5" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.25,-208.38C413.82,-207.83 378.39,-207.81 347,-210"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.46,-172C430.72,-172 419.16,-172 408.03,-172"/>
+<polygon fill="#000000" stroke="#000000" points="407.96,-168.5 397.96,-172 407.96,-175.5 407.96,-168.5"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-142 299,-142 299,-118 393,-118 393,-142"/>
-<text text-anchor="middle" x="346" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-106 0,-106 0,-82 106,-82 106,-106"/>
+<text text-anchor="middle" x="53" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.39,-197.98C456.79,-193.79 448.4,-188.91 441,-184 424.11,-172.8 422.37,-166.44 405,-156 399.22,-152.52 392.89,-149.23 386.6,-146.22"/>
-<polygon fill="#000000" stroke="#000000" points="388.05,-143.03 377.5,-142.03 385.12,-149.39 388.05,-143.03"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-212C284.11,-216.71 265.18,-229.49 202,-212"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M459.5,-184.07C432.46,-194.81 390.04,-209.22 351.5,-212"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M718.78,-182.06C695.35,-192.79 658.47,-207.2 624.5,-210"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-210C597.44,-212.07 569.64,-212.37 545.96,-212.05"/>
-<polygon fill="#000000" stroke="#000000" points="545.8,-208.54 535.74,-211.86 545.68,-215.54 545.8,-208.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-172C597.44,-174.07 569.64,-174.37 545.96,-174.05"/>
+<polygon fill="#000000" stroke="#000000" points="545.8,-170.54 535.74,-173.86 545.68,-177.54 545.8,-170.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M718.78,-144.06C695.35,-154.79 658.47,-169.2 624.5,-172"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~helio_drift.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-182 572,-182 572,-158 675,-158 675,-182"/>
-<text text-anchor="middle" x="623.5" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-66 142,-66 142,-42 260,-42 260,-66"/>
+<text text-anchor="middle" x="201" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-170C703.05,-170 694.35,-170 685.59,-170"/>
-<polygon fill="#000000" stroke="#000000" points="685.33,-166.5 675.33,-170 685.33,-173.5 685.33,-166.5"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C423.44,-141.03 411.12,-178.58 347,-170"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-170C309.6,-165.26 270.64,-154.44 241.65,-145.25"/>
-<polygon fill="#000000" stroke="#000000" points="242.43,-141.83 231.84,-142.08 240.28,-148.49 242.43,-141.83"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-52C279.83,-44.9 263.04,-50.49 197.5,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-52C159.15,-52.84 119.37,-64.85 91.27,-75.33"/>
-<polygon fill="#000000" stroke="#000000" points="89.92,-72.1 81.84,-78.95 92.43,-78.63 89.92,-72.1"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C413.36,-55.57 328.26,-55.65 270.39,-55.1"/>
+<polygon fill="#000000" stroke="#000000" points="270.31,-51.6 260.27,-54.99 270.24,-58.6 270.31,-51.6"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
 <polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-104 441,-104 441,-80 536,-80 536,-104"/>
 <text text-anchor="middle" x="488.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-111C598.01,-103.49 570.06,-98.93 546.12,-96.16"/>
-<polygon fill="#000000" stroke="#000000" points="546.45,-92.68 536.13,-95.09 545.7,-99.64 546.45,-92.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C604.37,-47.96 559.89,-63.27 527.35,-76.1"/>
+<polygon fill="#000000" stroke="#000000" points="525.65,-73.01 517.67,-79.98 528.26,-79.51 525.65,-73.01"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-24 142,-24 142,0 251,0 251,-24"/>
-<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge11" class="edge">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-52C307.66,-49.51 266.69,-37.62 237.42,-27.45"/>
-<polygon fill="#000000" stroke="#000000" points="238.56,-24.14 227.97,-24.08 236.21,-30.73 238.56,-24.14"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-111C582.01,-98.58 576.86,-82.16 536,-71 454.56,-48.75 431.24,-57.61 347,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M724.17,-157.95C701.49,-144.08 661.79,-121.84 624.5,-111"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C451.16,-53.75 411.43,-40.14 384.35,-28.32"/>
+<polygon fill="#000000" stroke="#000000" points="385.53,-25.02 374.98,-24.08 382.65,-31.39 385.53,-25.02"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C564.81,-39.13 548.54,-49.15 489.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.69,-119.9C712.15,-100.14 669.8,-62.11 624.5,-52"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C465.2,-53.07 459.51,-58.51 441,-71 421.98,-83.83 423.8,-94.85 405,-108 383.65,-122.94 377.52,-130.57 351.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-132C321.73,-133.52 290.98,-134.12 264.78,-134.29"/>
+<polygon fill="#000000" stroke="#000000" points="264.58,-130.79 254.6,-134.34 264.62,-137.79 264.58,-130.79"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge11" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C459.88,-135.89 428.91,-135.91 403.09,-134.74"/>
-<polygon fill="#000000" stroke="#000000" points="403.27,-131.24 393.1,-134.21 402.9,-138.23 403.27,-131.24"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-111C565.29,-93.45 548.76,-123.65 489.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.77,-144.13C719.24,-156.83 697.72,-176.25 675,-186 598.49,-218.82 572.53,-217.99 489.5,-212"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-212C452.44,-211.03 414.27,-198.75 387.32,-188.04"/>
+<polygon fill="#000000" stroke="#000000" points="388.51,-184.75 377.93,-184.2 385.85,-191.23 388.51,-184.75"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-262 287,-262 287,-238 405,-238 405,-262"/>
-<text text-anchor="middle" x="346" y="-247.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~helio_drift.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-144 572,-144 572,-120 675,-120 675,-144"/>
+<text text-anchor="middle" x="623.5" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.88,-182.4C719.44,-195.33 698,-214.94 675,-224 590.19,-257.39 483.68,-259.26 415.47,-255.93"/>
-<polygon fill="#000000" stroke="#000000" points="415.45,-252.42 405.27,-255.38 415.07,-259.41 415.45,-252.42"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-132C703.05,-132 694.35,-132 685.59,-132"/>
+<polygon fill="#000000" stroke="#000000" points="685.33,-128.5 675.33,-132 685.33,-135.5 685.33,-128.5"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.6,-182C569.04,-186.08 553.73,-190.68 539.49,-194.97"/>
-<polygon fill="#000000" stroke="#000000" points="538.4,-191.64 529.84,-197.87 540.42,-198.34 538.4,-191.64"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-212C427.08,-210.33 411.79,-207.65 351.5,-212"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-170C425.21,-174.35 408.89,-178.28 347,-170"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.92,-168.35C547.06,-167.95 516.68,-168.1 489.5,-170"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-66C140.96,-70.17 123.7,-74.9 107.75,-79.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-75.92 98.03,-81.94 108.6,-82.67 106.75,-75.92"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-170C422.73,-174.52 411.77,-205.48 347,-210"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-210C143,-187.02 94.91,-138.21 70.61,-110.78"/>
-<polygon fill="#000000" stroke="#000000" points="73.05,-108.26 63.85,-103.01 67.77,-112.85 73.05,-108.26"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-210C279.6,-214.57 257.55,-236.29 197.5,-210"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.39,-104.02C456.79,-108.21 448.4,-113.09 441,-118 424.11,-129.2 422.21,-135.29 405,-146 399.65,-149.33 393.81,-152.55 388.02,-155.52"/>
+<polygon fill="#000000" stroke="#000000" points="386.44,-152.4 379.03,-159.97 389.55,-158.67 386.44,-152.4"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.68,-157.84C585.21,-147.19 559.04,-131.36 536,-118 530.87,-115.03 525.4,-111.91 520.08,-108.92"/>
-<polygon fill="#000000" stroke="#000000" points="521.78,-105.86 511.34,-104.03 518.36,-111.97 521.78,-105.86"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.88,-94.52C414.6,-95.47 381.19,-95.93 351.5,-94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-94C269.04,-88.78 176.01,-89.97 116.16,-91.66"/>
+<polygon fill="#000000" stroke="#000000" points="116,-88.17 106.11,-91.96 116.21,-95.16 116,-88.17"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.84,-10.16C252.94,-10.38 191.94,-14.57 142,-33 116.6,-42.37 91.63,-60.82 74.81,-74.98"/>
+<polygon fill="#000000" stroke="#000000" points="72.06,-72.73 66.8,-81.93 76.65,-78.02 72.06,-72.73"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.89,-117.98C137.9,-114.13 122.25,-109.81 107.63,-105.78"/>
-<polygon fill="#000000" stroke="#000000" points="108.28,-102.33 97.71,-103.05 106.42,-109.08 108.28,-102.33"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-122C140.96,-117.83 123.7,-113.1 107.75,-108.73"/>
+<polygon fill="#000000" stroke="#000000" points="108.6,-105.33 98.03,-106.06 106.75,-112.08 108.6,-105.33"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.86,-86.3C400.2,-81.25 339.64,-73.53 287,-66 247.14,-60.3 237.76,-51.75 197.5,-52"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-160.08C289.09,-156.44 273.38,-152.39 258.63,-148.59"/>
+<polygon fill="#000000" stroke="#000000" points="259.17,-145.11 248.61,-146.01 257.42,-151.89 259.17,-145.11"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-104.02C429.85,-107.59 415.24,-111.54 401.48,-115.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-111.93 391.65,-117.92 402.22,-118.69 400.39,-111.93"/>
-</g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.41,-24.1C160.62,-28.33 150.8,-33.22 142,-38 121.5,-49.13 98.98,-62.72 81.85,-73.35"/>
-<polygon fill="#000000" stroke="#000000" points="79.57,-70.65 72.94,-78.92 83.27,-76.59 79.57,-70.65"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.38,-184.06C283.02,-197.94 223.99,-218.09 202,-212"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-212C143.11,-196.25 93.64,-143.72 69.56,-114.34"/>
+<polygon fill="#000000" stroke="#000000" points="72.17,-112 63.19,-106.37 66.71,-116.37 72.17,-112"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-130C286.54,-130 273.16,-130 260.25,-130"/>
-<polygon fill="#000000" stroke="#000000" points="260.03,-126.5 250.03,-130 260.03,-133.5 260.03,-126.5"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.6,-144C569.04,-148.08 553.73,-152.68 539.49,-156.97"/>
+<polygon fill="#000000" stroke="#000000" points="538.4,-153.64 529.84,-159.87 540.42,-160.34 538.4,-153.64"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.4,-117.89C306.94,-113.7 296.43,-108.83 287,-104 246.07,-83.01 243.5,-51.72 197.5,-52"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.6,-120C569.04,-115.92 553.73,-111.32 539.49,-107.03"/>
+<polygon fill="#000000" stroke="#000000" points="540.42,-103.66 529.84,-104.13 538.4,-110.36 540.42,-103.66"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C427.2,-127.87 411.85,-128.69 351.5,-132"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_drift.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.92,-238.44C259.19,-231.87 225.94,-222.45 197.5,-210"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C424.89,-127.71 414.07,-98.9 351.5,-94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.92,-133.62C547.06,-134.01 516.68,-133.86 489.5,-132"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/helio_gr.f90.html b/docs/sourcefile/helio_gr.f90.html
index 77ab95509..282057fac 100644
--- a/docs/sourcefile/helio_gr.f90.html
+++ b/docs/sourcefile/helio_gr.f90.html
@@ -134,7 +134,7 @@ <h1>helio_gr.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.5% of total for source files.">60 statements</a>
+    title=" 0.4% of total for source files.">60 statements</a>
      </li> 
      
      
@@ -226,243 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~helio_gr.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilehelio_grf90EfferentGraph" width="641pt" height="195pt"
- viewBox="0.00 0.00 641.00 194.68" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 266)">
+<svg id="sourcefilehelio_grf90EfferentGraph" width="641pt" height="165pt"
+ viewBox="0.00 0.00 641.00 165.28" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 225.23)">
 <title>sourcefile~~helio_gr.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-266 885,-266 885,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-225.23 885,-225.23 885,4 -4,4"/>
 <!-- sourcefile~helio_gr.f90 -->
 <g id="sourcefile~~helio_gr.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~helio_gr.f90</title>
-<polygon fill="none" stroke="black" points="881,-202 813,-202 813,-178 881,-178 881,-202"/>
-<text text-anchor="middle" x="847" y="-187.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_gr.f90</text>
+<polygon fill="none" stroke="black" points="881,-164 813,-164 813,-140 881,-140 881,-164"/>
+<text text-anchor="middle" x="847" y="-149.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_gr.f90</text>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_gr.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~helio_classes.f90</title>
 <g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-222 441.5,-222 441.5,-198 535.5,-198 535.5,-222"/>
-<text text-anchor="middle" x="488.5" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-184 441.5,-184 441.5,-160 535.5,-160 535.5,-184"/>
+<text text-anchor="middle" x="488.5" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.99,-193.14C769.72,-197.23 691.46,-204.48 624.5,-210"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.99,-155.14C769.72,-159.23 691.46,-166.48 624.5,-172"/>
 </g>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~helio_gr.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~swiftest.f90</title>
 <g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-182 711,-182 711,-158 777,-158 777,-182"/>
-<text text-anchor="middle" x="744" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-144 711,-144 711,-120 777,-120 777,-144"/>
+<text text-anchor="middle" x="744" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.93,-183.45C804.66,-181.81 795.68,-180.04 787.04,-178.32"/>
-<polygon fill="#000000" stroke="#000000" points="787.6,-174.87 777.11,-176.36 786.24,-181.73 787.6,-174.87"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.93,-145.45C804.66,-143.81 795.68,-142.04 787.04,-140.32"/>
+<polygon fill="#000000" stroke="#000000" points="787.6,-136.87 777.11,-138.36 786.24,-143.73 787.6,-136.87"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-142 143,-142 143,-118 250,-118 250,-142"/>
-<text text-anchor="middle" x="196.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-146 147.5,-146 147.5,-122 254.5,-122 254.5,-146"/>
+<text text-anchor="middle" x="201" y="-131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge4" class="edge">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge3" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M455.42,-197.99C427.3,-188.17 385.08,-175.1 347,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.02,-159.81C437.37,-147.24 392.29,-129.76 351.5,-132"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-103 0,-103 0,-79 106,-79 106,-103"/>
-<text text-anchor="middle" x="53" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-184 303.5,-184 303.5,-160 397.5,-160 397.5,-184"/>
+<text text-anchor="middle" x="350.5" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.25,-208.38C413.82,-207.83 378.39,-207.81 347,-210"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.46,-172C430.72,-172 419.16,-172 408.03,-172"/>
+<polygon fill="#000000" stroke="#000000" points="407.96,-168.5 397.96,-172 407.96,-175.5 407.96,-168.5"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-142 299,-142 299,-118 393,-118 393,-142"/>
-<text text-anchor="middle" x="346" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-106 0,-106 0,-82 106,-82 106,-106"/>
+<text text-anchor="middle" x="53" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.39,-197.98C456.79,-193.79 448.4,-188.91 441,-184 424.11,-172.8 422.37,-166.44 405,-156 399.22,-152.52 392.89,-149.23 386.6,-146.22"/>
-<polygon fill="#000000" stroke="#000000" points="388.05,-143.03 377.5,-142.03 385.12,-149.39 388.05,-143.03"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-212C284.11,-216.71 265.18,-229.49 202,-212"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M459.5,-184.07C432.46,-194.81 390.04,-209.22 351.5,-212"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M718.78,-182.06C695.35,-192.79 658.47,-207.2 624.5,-210"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-210C597.44,-212.07 569.64,-212.37 545.96,-212.05"/>
-<polygon fill="#000000" stroke="#000000" points="545.8,-208.54 535.74,-211.86 545.68,-215.54 545.8,-208.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-172C597.44,-174.07 569.64,-174.37 545.96,-174.05"/>
+<polygon fill="#000000" stroke="#000000" points="545.8,-170.54 535.74,-173.86 545.68,-177.54 545.8,-170.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M718.78,-144.06C695.35,-154.79 658.47,-169.2 624.5,-172"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~helio_gr.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-182 572,-182 572,-158 675,-158 675,-182"/>
-<text text-anchor="middle" x="623.5" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-66 142,-66 142,-42 260,-42 260,-66"/>
+<text text-anchor="middle" x="201" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-170C703.05,-170 694.35,-170 685.59,-170"/>
-<polygon fill="#000000" stroke="#000000" points="685.33,-166.5 675.33,-170 685.33,-173.5 685.33,-166.5"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C423.44,-141.03 411.12,-178.58 347,-170"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-170C309.6,-165.26 270.64,-154.44 241.65,-145.25"/>
-<polygon fill="#000000" stroke="#000000" points="242.43,-141.83 231.84,-142.08 240.28,-148.49 242.43,-141.83"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-52C279.83,-44.9 263.04,-50.49 197.5,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-52C159.15,-52.84 119.37,-64.85 91.27,-75.33"/>
-<polygon fill="#000000" stroke="#000000" points="89.92,-72.1 81.84,-78.95 92.43,-78.63 89.92,-72.1"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C413.36,-55.57 328.26,-55.65 270.39,-55.1"/>
+<polygon fill="#000000" stroke="#000000" points="270.31,-51.6 260.27,-54.99 270.24,-58.6 270.31,-51.6"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
 <polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-104 441,-104 441,-80 536,-80 536,-104"/>
 <text text-anchor="middle" x="488.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-111C598.01,-103.49 570.06,-98.93 546.12,-96.16"/>
-<polygon fill="#000000" stroke="#000000" points="546.45,-92.68 536.13,-95.09 545.7,-99.64 546.45,-92.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C604.37,-47.96 559.89,-63.27 527.35,-76.1"/>
+<polygon fill="#000000" stroke="#000000" points="525.65,-73.01 517.67,-79.98 528.26,-79.51 525.65,-73.01"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-24 142,-24 142,0 251,0 251,-24"/>
-<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge11" class="edge">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-52C307.66,-49.51 266.69,-37.62 237.42,-27.45"/>
-<polygon fill="#000000" stroke="#000000" points="238.56,-24.14 227.97,-24.08 236.21,-30.73 238.56,-24.14"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-111C582.01,-98.58 576.86,-82.16 536,-71 454.56,-48.75 431.24,-57.61 347,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M724.17,-157.95C701.49,-144.08 661.79,-121.84 624.5,-111"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C451.16,-53.75 411.43,-40.14 384.35,-28.32"/>
+<polygon fill="#000000" stroke="#000000" points="385.53,-25.02 374.98,-24.08 382.65,-31.39 385.53,-25.02"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C564.81,-39.13 548.54,-49.15 489.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.69,-119.9C712.15,-100.14 669.8,-62.11 624.5,-52"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C465.2,-53.07 459.51,-58.51 441,-71 421.98,-83.83 423.8,-94.85 405,-108 383.65,-122.94 377.52,-130.57 351.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-132C321.73,-133.52 290.98,-134.12 264.78,-134.29"/>
+<polygon fill="#000000" stroke="#000000" points="264.58,-130.79 254.6,-134.34 264.62,-137.79 264.58,-130.79"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge11" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C459.88,-135.89 428.91,-135.91 403.09,-134.74"/>
-<polygon fill="#000000" stroke="#000000" points="403.27,-131.24 393.1,-134.21 402.9,-138.23 403.27,-131.24"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-111C565.29,-93.45 548.76,-123.65 489.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.77,-144.13C719.24,-156.83 697.72,-176.25 675,-186 598.49,-218.82 572.53,-217.99 489.5,-212"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-212C452.44,-211.03 414.27,-198.75 387.32,-188.04"/>
+<polygon fill="#000000" stroke="#000000" points="388.51,-184.75 377.93,-184.2 385.85,-191.23 388.51,-184.75"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-262 287,-262 287,-238 405,-238 405,-262"/>
-<text text-anchor="middle" x="346" y="-247.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~helio_gr.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-144 572,-144 572,-120 675,-120 675,-144"/>
+<text text-anchor="middle" x="623.5" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.88,-182.4C719.44,-195.33 698,-214.94 675,-224 590.19,-257.39 483.68,-259.26 415.47,-255.93"/>
-<polygon fill="#000000" stroke="#000000" points="415.45,-252.42 405.27,-255.38 415.07,-259.41 415.45,-252.42"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-132C703.05,-132 694.35,-132 685.59,-132"/>
+<polygon fill="#000000" stroke="#000000" points="685.33,-128.5 675.33,-132 685.33,-135.5 685.33,-128.5"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.6,-182C569.04,-186.08 553.73,-190.68 539.49,-194.97"/>
-<polygon fill="#000000" stroke="#000000" points="538.4,-191.64 529.84,-197.87 540.42,-198.34 538.4,-191.64"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-212C427.08,-210.33 411.79,-207.65 351.5,-212"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-170C425.21,-174.35 408.89,-178.28 347,-170"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.92,-168.35C547.06,-167.95 516.68,-168.1 489.5,-170"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-66C140.96,-70.17 123.7,-74.9 107.75,-79.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-75.92 98.03,-81.94 108.6,-82.67 106.75,-75.92"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-170C422.73,-174.52 411.77,-205.48 347,-210"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-210C143,-187.02 94.91,-138.21 70.61,-110.78"/>
-<polygon fill="#000000" stroke="#000000" points="73.05,-108.26 63.85,-103.01 67.77,-112.85 73.05,-108.26"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-210C279.6,-214.57 257.55,-236.29 197.5,-210"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.39,-104.02C456.79,-108.21 448.4,-113.09 441,-118 424.11,-129.2 422.21,-135.29 405,-146 399.65,-149.33 393.81,-152.55 388.02,-155.52"/>
+<polygon fill="#000000" stroke="#000000" points="386.44,-152.4 379.03,-159.97 389.55,-158.67 386.44,-152.4"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.68,-157.84C585.21,-147.19 559.04,-131.36 536,-118 530.87,-115.03 525.4,-111.91 520.08,-108.92"/>
-<polygon fill="#000000" stroke="#000000" points="521.78,-105.86 511.34,-104.03 518.36,-111.97 521.78,-105.86"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.88,-94.52C414.6,-95.47 381.19,-95.93 351.5,-94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-94C269.04,-88.78 176.01,-89.97 116.16,-91.66"/>
+<polygon fill="#000000" stroke="#000000" points="116,-88.17 106.11,-91.96 116.21,-95.16 116,-88.17"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.84,-10.16C252.94,-10.38 191.94,-14.57 142,-33 116.6,-42.37 91.63,-60.82 74.81,-74.98"/>
+<polygon fill="#000000" stroke="#000000" points="72.06,-72.73 66.8,-81.93 76.65,-78.02 72.06,-72.73"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.89,-117.98C137.9,-114.13 122.25,-109.81 107.63,-105.78"/>
-<polygon fill="#000000" stroke="#000000" points="108.28,-102.33 97.71,-103.05 106.42,-109.08 108.28,-102.33"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-122C140.96,-117.83 123.7,-113.1 107.75,-108.73"/>
+<polygon fill="#000000" stroke="#000000" points="108.6,-105.33 98.03,-106.06 106.75,-112.08 108.6,-105.33"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.86,-86.3C400.2,-81.25 339.64,-73.53 287,-66 247.14,-60.3 237.76,-51.75 197.5,-52"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-160.08C289.09,-156.44 273.38,-152.39 258.63,-148.59"/>
+<polygon fill="#000000" stroke="#000000" points="259.17,-145.11 248.61,-146.01 257.42,-151.89 259.17,-145.11"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-104.02C429.85,-107.59 415.24,-111.54 401.48,-115.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-111.93 391.65,-117.92 402.22,-118.69 400.39,-111.93"/>
-</g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.41,-24.1C160.62,-28.33 150.8,-33.22 142,-38 121.5,-49.13 98.98,-62.72 81.85,-73.35"/>
-<polygon fill="#000000" stroke="#000000" points="79.57,-70.65 72.94,-78.92 83.27,-76.59 79.57,-70.65"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.38,-184.06C283.02,-197.94 223.99,-218.09 202,-212"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-212C143.11,-196.25 93.64,-143.72 69.56,-114.34"/>
+<polygon fill="#000000" stroke="#000000" points="72.17,-112 63.19,-106.37 66.71,-116.37 72.17,-112"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-130C286.54,-130 273.16,-130 260.25,-130"/>
-<polygon fill="#000000" stroke="#000000" points="260.03,-126.5 250.03,-130 260.03,-133.5 260.03,-126.5"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.6,-144C569.04,-148.08 553.73,-152.68 539.49,-156.97"/>
+<polygon fill="#000000" stroke="#000000" points="538.4,-153.64 529.84,-159.87 540.42,-160.34 538.4,-153.64"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.4,-117.89C306.94,-113.7 296.43,-108.83 287,-104 246.07,-83.01 243.5,-51.72 197.5,-52"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.6,-120C569.04,-115.92 553.73,-111.32 539.49,-107.03"/>
+<polygon fill="#000000" stroke="#000000" points="540.42,-103.66 529.84,-104.13 538.4,-110.36 540.42,-103.66"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C427.2,-127.87 411.85,-128.69 351.5,-132"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_gr.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.92,-238.44C259.19,-231.87 225.94,-222.45 197.5,-210"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C424.89,-127.71 414.07,-98.9 351.5,-94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.92,-133.62C547.06,-134.01 516.68,-133.86 489.5,-132"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/helio_kick.f90.html b/docs/sourcefile/helio_kick.f90.html
index cf18c6544..0b9b96443 100644
--- a/docs/sourcefile/helio_kick.f90.html
+++ b/docs/sourcefile/helio_kick.f90.html
@@ -226,243 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~helio_kick.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilehelio_kickf90EfferentGraph" width="641pt" height="193pt"
- viewBox="0.00 0.00 641.00 192.73" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 266)">
+<svg id="sourcefilehelio_kickf90EfferentGraph" width="641pt" height="164pt"
+ viewBox="0.00 0.00 641.00 163.63" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 225.23)">
 <title>sourcefile~~helio_kick.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-266 894,-266 894,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-225.23 894,-225.23 894,4 -4,4"/>
 <!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~helio_kick.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~helio_kick.f90</title>
-<polygon fill="none" stroke="black" points="890,-202 813,-202 813,-178 890,-178 890,-202"/>
-<text text-anchor="middle" x="851.5" y="-187.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_kick.f90</text>
+<polygon fill="none" stroke="black" points="890,-164 813,-164 813,-140 890,-140 890,-164"/>
+<text text-anchor="middle" x="851.5" y="-149.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_kick.f90</text>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_kick.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~helio_classes.f90</title>
 <g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-222 441.5,-222 441.5,-198 535.5,-198 535.5,-222"/>
-<text text-anchor="middle" x="488.5" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-184 441.5,-184 441.5,-160 535.5,-160 535.5,-184"/>
+<text text-anchor="middle" x="488.5" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.92,-193.46C768.08,-197.57 690.84,-204.53 624.5,-210"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.92,-155.46C768.08,-159.57 690.84,-166.53 624.5,-172"/>
 </g>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~helio_kick.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~swiftest.f90</title>
 <g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-182 711,-182 711,-158 777,-158 777,-182"/>
-<text text-anchor="middle" x="744" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-144 711,-144 711,-120 777,-120 777,-144"/>
+<text text-anchor="middle" x="744" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.71,-182.84C804.47,-181.27 795.7,-179.61 787.3,-178.02"/>
-<polygon fill="#000000" stroke="#000000" points="787.77,-174.55 777.3,-176.12 786.47,-181.42 787.77,-174.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.71,-144.84C804.47,-143.27 795.7,-141.61 787.3,-140.02"/>
+<polygon fill="#000000" stroke="#000000" points="787.77,-136.55 777.3,-138.12 786.47,-143.42 787.77,-136.55"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-142 143,-142 143,-118 250,-118 250,-142"/>
-<text text-anchor="middle" x="196.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-146 147.5,-146 147.5,-122 254.5,-122 254.5,-146"/>
+<text text-anchor="middle" x="201" y="-131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge4" class="edge">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge3" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M455.42,-197.99C427.3,-188.17 385.08,-175.1 347,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.02,-159.81C437.37,-147.24 392.29,-129.76 351.5,-132"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-103 0,-103 0,-79 106,-79 106,-103"/>
-<text text-anchor="middle" x="53" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-184 303.5,-184 303.5,-160 397.5,-160 397.5,-184"/>
+<text text-anchor="middle" x="350.5" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.25,-208.38C413.82,-207.83 378.39,-207.81 347,-210"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.46,-172C430.72,-172 419.16,-172 408.03,-172"/>
+<polygon fill="#000000" stroke="#000000" points="407.96,-168.5 397.96,-172 407.96,-175.5 407.96,-168.5"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-142 299,-142 299,-118 393,-118 393,-142"/>
-<text text-anchor="middle" x="346" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-106 0,-106 0,-82 106,-82 106,-106"/>
+<text text-anchor="middle" x="53" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.39,-197.98C456.79,-193.79 448.4,-188.91 441,-184 424.11,-172.8 422.37,-166.44 405,-156 399.22,-152.52 392.89,-149.23 386.6,-146.22"/>
-<polygon fill="#000000" stroke="#000000" points="388.05,-143.03 377.5,-142.03 385.12,-149.39 388.05,-143.03"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-212C284.11,-216.71 265.18,-229.49 202,-212"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M459.5,-184.07C432.46,-194.81 390.04,-209.22 351.5,-212"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M718.78,-182.06C695.35,-192.79 658.47,-207.2 624.5,-210"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-210C597.44,-212.07 569.64,-212.37 545.96,-212.05"/>
-<polygon fill="#000000" stroke="#000000" points="545.8,-208.54 535.74,-211.86 545.68,-215.54 545.8,-208.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-172C597.44,-174.07 569.64,-174.37 545.96,-174.05"/>
+<polygon fill="#000000" stroke="#000000" points="545.8,-170.54 535.74,-173.86 545.68,-177.54 545.8,-170.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M718.78,-144.06C695.35,-154.79 658.47,-169.2 624.5,-172"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~helio_kick.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-182 572,-182 572,-158 675,-158 675,-182"/>
-<text text-anchor="middle" x="623.5" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-66 142,-66 142,-42 260,-42 260,-66"/>
+<text text-anchor="middle" x="201" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-170C703.05,-170 694.35,-170 685.59,-170"/>
-<polygon fill="#000000" stroke="#000000" points="685.33,-166.5 675.33,-170 685.33,-173.5 685.33,-166.5"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C423.44,-141.03 411.12,-178.58 347,-170"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-170C309.6,-165.26 270.64,-154.44 241.65,-145.25"/>
-<polygon fill="#000000" stroke="#000000" points="242.43,-141.83 231.84,-142.08 240.28,-148.49 242.43,-141.83"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-52C279.83,-44.9 263.04,-50.49 197.5,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-52C159.15,-52.84 119.37,-64.85 91.27,-75.33"/>
-<polygon fill="#000000" stroke="#000000" points="89.92,-72.1 81.84,-78.95 92.43,-78.63 89.92,-72.1"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C413.36,-55.57 328.26,-55.65 270.39,-55.1"/>
+<polygon fill="#000000" stroke="#000000" points="270.31,-51.6 260.27,-54.99 270.24,-58.6 270.31,-51.6"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
 <polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-104 441,-104 441,-80 536,-80 536,-104"/>
 <text text-anchor="middle" x="488.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-111C598.01,-103.49 570.06,-98.93 546.12,-96.16"/>
-<polygon fill="#000000" stroke="#000000" points="546.45,-92.68 536.13,-95.09 545.7,-99.64 546.45,-92.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C604.37,-47.96 559.89,-63.27 527.35,-76.1"/>
+<polygon fill="#000000" stroke="#000000" points="525.65,-73.01 517.67,-79.98 528.26,-79.51 525.65,-73.01"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-24 142,-24 142,0 251,0 251,-24"/>
-<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge11" class="edge">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-52C307.66,-49.51 266.69,-37.62 237.42,-27.45"/>
-<polygon fill="#000000" stroke="#000000" points="238.56,-24.14 227.97,-24.08 236.21,-30.73 238.56,-24.14"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-111C582.01,-98.58 576.86,-82.16 536,-71 454.56,-48.75 431.24,-57.61 347,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M724.17,-157.95C701.49,-144.08 661.79,-121.84 624.5,-111"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C451.16,-53.75 411.43,-40.14 384.35,-28.32"/>
+<polygon fill="#000000" stroke="#000000" points="385.53,-25.02 374.98,-24.08 382.65,-31.39 385.53,-25.02"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C564.81,-39.13 548.54,-49.15 489.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.69,-119.9C712.15,-100.14 669.8,-62.11 624.5,-52"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C465.2,-53.07 459.51,-58.51 441,-71 421.98,-83.83 423.8,-94.85 405,-108 383.65,-122.94 377.52,-130.57 351.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-132C321.73,-133.52 290.98,-134.12 264.78,-134.29"/>
+<polygon fill="#000000" stroke="#000000" points="264.58,-130.79 254.6,-134.34 264.62,-137.79 264.58,-130.79"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge11" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C459.88,-135.89 428.91,-135.91 403.09,-134.74"/>
-<polygon fill="#000000" stroke="#000000" points="403.27,-131.24 393.1,-134.21 402.9,-138.23 403.27,-131.24"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-111C565.29,-93.45 548.76,-123.65 489.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.77,-144.13C719.24,-156.83 697.72,-176.25 675,-186 598.49,-218.82 572.53,-217.99 489.5,-212"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-212C452.44,-211.03 414.27,-198.75 387.32,-188.04"/>
+<polygon fill="#000000" stroke="#000000" points="388.51,-184.75 377.93,-184.2 385.85,-191.23 388.51,-184.75"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-262 287,-262 287,-238 405,-238 405,-262"/>
-<text text-anchor="middle" x="346" y="-247.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~helio_kick.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-144 572,-144 572,-120 675,-120 675,-144"/>
+<text text-anchor="middle" x="623.5" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.88,-182.4C719.44,-195.33 698,-214.94 675,-224 590.19,-257.39 483.68,-259.26 415.47,-255.93"/>
-<polygon fill="#000000" stroke="#000000" points="415.45,-252.42 405.27,-255.38 415.07,-259.41 415.45,-252.42"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-132C703.05,-132 694.35,-132 685.59,-132"/>
+<polygon fill="#000000" stroke="#000000" points="685.33,-128.5 675.33,-132 685.33,-135.5 685.33,-128.5"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.6,-182C569.04,-186.08 553.73,-190.68 539.49,-194.97"/>
-<polygon fill="#000000" stroke="#000000" points="538.4,-191.64 529.84,-197.87 540.42,-198.34 538.4,-191.64"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-212C427.08,-210.33 411.79,-207.65 351.5,-212"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-170C425.21,-174.35 408.89,-178.28 347,-170"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.92,-168.35C547.06,-167.95 516.68,-168.1 489.5,-170"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-66C140.96,-70.17 123.7,-74.9 107.75,-79.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-75.92 98.03,-81.94 108.6,-82.67 106.75,-75.92"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-170C422.73,-174.52 411.77,-205.48 347,-210"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-210C143,-187.02 94.91,-138.21 70.61,-110.78"/>
-<polygon fill="#000000" stroke="#000000" points="73.05,-108.26 63.85,-103.01 67.77,-112.85 73.05,-108.26"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-210C279.6,-214.57 257.55,-236.29 197.5,-210"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.39,-104.02C456.79,-108.21 448.4,-113.09 441,-118 424.11,-129.2 422.21,-135.29 405,-146 399.65,-149.33 393.81,-152.55 388.02,-155.52"/>
+<polygon fill="#000000" stroke="#000000" points="386.44,-152.4 379.03,-159.97 389.55,-158.67 386.44,-152.4"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.68,-157.84C585.21,-147.19 559.04,-131.36 536,-118 530.87,-115.03 525.4,-111.91 520.08,-108.92"/>
-<polygon fill="#000000" stroke="#000000" points="521.78,-105.86 511.34,-104.03 518.36,-111.97 521.78,-105.86"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.88,-94.52C414.6,-95.47 381.19,-95.93 351.5,-94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-94C269.04,-88.78 176.01,-89.97 116.16,-91.66"/>
+<polygon fill="#000000" stroke="#000000" points="116,-88.17 106.11,-91.96 116.21,-95.16 116,-88.17"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.84,-10.16C252.94,-10.38 191.94,-14.57 142,-33 116.6,-42.37 91.63,-60.82 74.81,-74.98"/>
+<polygon fill="#000000" stroke="#000000" points="72.06,-72.73 66.8,-81.93 76.65,-78.02 72.06,-72.73"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.89,-117.98C137.9,-114.13 122.25,-109.81 107.63,-105.78"/>
-<polygon fill="#000000" stroke="#000000" points="108.28,-102.33 97.71,-103.05 106.42,-109.08 108.28,-102.33"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-122C140.96,-117.83 123.7,-113.1 107.75,-108.73"/>
+<polygon fill="#000000" stroke="#000000" points="108.6,-105.33 98.03,-106.06 106.75,-112.08 108.6,-105.33"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.86,-86.3C400.2,-81.25 339.64,-73.53 287,-66 247.14,-60.3 237.76,-51.75 197.5,-52"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-160.08C289.09,-156.44 273.38,-152.39 258.63,-148.59"/>
+<polygon fill="#000000" stroke="#000000" points="259.17,-145.11 248.61,-146.01 257.42,-151.89 259.17,-145.11"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-104.02C429.85,-107.59 415.24,-111.54 401.48,-115.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-111.93 391.65,-117.92 402.22,-118.69 400.39,-111.93"/>
-</g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.41,-24.1C160.62,-28.33 150.8,-33.22 142,-38 121.5,-49.13 98.98,-62.72 81.85,-73.35"/>
-<polygon fill="#000000" stroke="#000000" points="79.57,-70.65 72.94,-78.92 83.27,-76.59 79.57,-70.65"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.38,-184.06C283.02,-197.94 223.99,-218.09 202,-212"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-212C143.11,-196.25 93.64,-143.72 69.56,-114.34"/>
+<polygon fill="#000000" stroke="#000000" points="72.17,-112 63.19,-106.37 66.71,-116.37 72.17,-112"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-130C286.54,-130 273.16,-130 260.25,-130"/>
-<polygon fill="#000000" stroke="#000000" points="260.03,-126.5 250.03,-130 260.03,-133.5 260.03,-126.5"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.6,-144C569.04,-148.08 553.73,-152.68 539.49,-156.97"/>
+<polygon fill="#000000" stroke="#000000" points="538.4,-153.64 529.84,-159.87 540.42,-160.34 538.4,-153.64"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.4,-117.89C306.94,-113.7 296.43,-108.83 287,-104 246.07,-83.01 243.5,-51.72 197.5,-52"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.6,-120C569.04,-115.92 553.73,-111.32 539.49,-107.03"/>
+<polygon fill="#000000" stroke="#000000" points="540.42,-103.66 529.84,-104.13 538.4,-110.36 540.42,-103.66"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C427.2,-127.87 411.85,-128.69 351.5,-132"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_kick.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.92,-238.44C259.19,-231.87 225.94,-222.45 197.5,-210"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C424.89,-127.71 414.07,-98.9 351.5,-94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.92,-133.62C547.06,-134.01 516.68,-133.86 489.5,-132"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/helio_step.f90.html b/docs/sourcefile/helio_step.f90.html
index 00431324a..5b47fea58 100644
--- a/docs/sourcefile/helio_step.f90.html
+++ b/docs/sourcefile/helio_step.f90.html
@@ -226,243 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~helio_step.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilehelio_stepf90EfferentGraph" width="641pt" height="192pt"
- viewBox="0.00 0.00 641.00 192.30" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~helio_step.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 266)">
+<svg id="sourcefilehelio_stepf90EfferentGraph" width="641pt" height="163pt"
+ viewBox="0.00 0.00 641.00 163.26" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 225.23)">
 <title>sourcefile~~helio_step.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-266 896,-266 896,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-225.23 896,-225.23 896,4 -4,4"/>
 <!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~helio_step.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~helio_step.f90</title>
-<polygon fill="none" stroke="black" points="892,-202 813,-202 813,-178 892,-178 892,-202"/>
-<text text-anchor="middle" x="852.5" y="-187.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_step.f90</text>
+<polygon fill="none" stroke="black" points="892,-164 813,-164 813,-140 892,-140 892,-164"/>
+<text text-anchor="middle" x="852.5" y="-149.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_step.f90</text>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_step.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~helio_classes.f90</title>
 <g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-222 441.5,-222 441.5,-198 535.5,-198 535.5,-222"/>
-<text text-anchor="middle" x="488.5" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-184 441.5,-184 441.5,-160 535.5,-160 535.5,-184"/>
+<text text-anchor="middle" x="488.5" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_step.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.95,-193.53C767.8,-197.63 690.74,-204.54 624.5,-210"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.95,-155.53C767.8,-159.63 690.74,-166.54 624.5,-172"/>
 </g>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~helio_step.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~swiftest.f90</title>
 <g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-182 711,-182 711,-158 777,-158 777,-182"/>
-<text text-anchor="middle" x="744" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-144 711,-144 711,-120 777,-120 777,-144"/>
+<text text-anchor="middle" x="744" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~helio_step.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.75,-182.72C804.46,-181.17 795.67,-179.52 787.26,-177.94"/>
-<polygon fill="#000000" stroke="#000000" points="787.72,-174.46 777.24,-176.06 786.43,-181.34 787.72,-174.46"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.75,-144.72C804.46,-143.17 795.67,-141.52 787.26,-139.94"/>
+<polygon fill="#000000" stroke="#000000" points="787.72,-136.46 777.24,-138.06 786.43,-143.34 787.72,-136.46"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-142 143,-142 143,-118 250,-118 250,-142"/>
-<text text-anchor="middle" x="196.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-146 147.5,-146 147.5,-122 254.5,-122 254.5,-146"/>
+<text text-anchor="middle" x="201" y="-131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge4" class="edge">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge3" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M455.42,-197.99C427.3,-188.17 385.08,-175.1 347,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.02,-159.81C437.37,-147.24 392.29,-129.76 351.5,-132"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-103 0,-103 0,-79 106,-79 106,-103"/>
-<text text-anchor="middle" x="53" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-184 303.5,-184 303.5,-160 397.5,-160 397.5,-184"/>
+<text text-anchor="middle" x="350.5" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.25,-208.38C413.82,-207.83 378.39,-207.81 347,-210"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.46,-172C430.72,-172 419.16,-172 408.03,-172"/>
+<polygon fill="#000000" stroke="#000000" points="407.96,-168.5 397.96,-172 407.96,-175.5 407.96,-168.5"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-142 299,-142 299,-118 393,-118 393,-142"/>
-<text text-anchor="middle" x="346" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-106 0,-106 0,-82 106,-82 106,-106"/>
+<text text-anchor="middle" x="53" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_step.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.39,-197.98C456.79,-193.79 448.4,-188.91 441,-184 424.11,-172.8 422.37,-166.44 405,-156 399.22,-152.52 392.89,-149.23 386.6,-146.22"/>
-<polygon fill="#000000" stroke="#000000" points="388.05,-143.03 377.5,-142.03 385.12,-149.39 388.05,-143.03"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-212C284.11,-216.71 265.18,-229.49 202,-212"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M459.5,-184.07C432.46,-194.81 390.04,-209.22 351.5,-212"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M718.78,-182.06C695.35,-192.79 658.47,-207.2 624.5,-210"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-210C597.44,-212.07 569.64,-212.37 545.96,-212.05"/>
-<polygon fill="#000000" stroke="#000000" points="545.8,-208.54 535.74,-211.86 545.68,-215.54 545.8,-208.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-172C597.44,-174.07 569.64,-174.37 545.96,-174.05"/>
+<polygon fill="#000000" stroke="#000000" points="545.8,-170.54 535.74,-173.86 545.68,-177.54 545.8,-170.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M718.78,-144.06C695.35,-154.79 658.47,-169.2 624.5,-172"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~helio_step.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-182 572,-182 572,-158 675,-158 675,-182"/>
-<text text-anchor="middle" x="623.5" y="-167.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-66 142,-66 142,-42 260,-42 260,-66"/>
+<text text-anchor="middle" x="201" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~helio_step.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-170C703.05,-170 694.35,-170 685.59,-170"/>
-<polygon fill="#000000" stroke="#000000" points="685.33,-166.5 675.33,-170 685.33,-173.5 685.33,-166.5"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C423.44,-141.03 411.12,-178.58 347,-170"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-170C309.6,-165.26 270.64,-154.44 241.65,-145.25"/>
-<polygon fill="#000000" stroke="#000000" points="242.43,-141.83 231.84,-142.08 240.28,-148.49 242.43,-141.83"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-52C279.83,-44.9 263.04,-50.49 197.5,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-52C159.15,-52.84 119.37,-64.85 91.27,-75.33"/>
-<polygon fill="#000000" stroke="#000000" points="89.92,-72.1 81.84,-78.95 92.43,-78.63 89.92,-72.1"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C413.36,-55.57 328.26,-55.65 270.39,-55.1"/>
+<polygon fill="#000000" stroke="#000000" points="270.31,-51.6 260.27,-54.99 270.24,-58.6 270.31,-51.6"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
 <polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-104 441,-104 441,-80 536,-80 536,-104"/>
 <text text-anchor="middle" x="488.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-111C598.01,-103.49 570.06,-98.93 546.12,-96.16"/>
-<polygon fill="#000000" stroke="#000000" points="546.45,-92.68 536.13,-95.09 545.7,-99.64 546.45,-92.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C604.37,-47.96 559.89,-63.27 527.35,-76.1"/>
+<polygon fill="#000000" stroke="#000000" points="525.65,-73.01 517.67,-79.98 528.26,-79.51 525.65,-73.01"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-24 142,-24 142,0 251,0 251,-24"/>
-<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge11" class="edge">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-52C307.66,-49.51 266.69,-37.62 237.42,-27.45"/>
-<polygon fill="#000000" stroke="#000000" points="238.56,-24.14 227.97,-24.08 236.21,-30.73 238.56,-24.14"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-111C582.01,-98.58 576.86,-82.16 536,-71 454.56,-48.75 431.24,-57.61 347,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M724.17,-157.95C701.49,-144.08 661.79,-121.84 624.5,-111"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C451.16,-53.75 411.43,-40.14 384.35,-28.32"/>
+<polygon fill="#000000" stroke="#000000" points="385.53,-25.02 374.98,-24.08 382.65,-31.39 385.53,-25.02"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C564.81,-39.13 548.54,-49.15 489.5,-52"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.69,-119.9C712.15,-100.14 669.8,-62.11 624.5,-52"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C465.2,-53.07 459.51,-58.51 441,-71 421.98,-83.83 423.8,-94.85 405,-108 383.65,-122.94 377.52,-130.57 351.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-132C321.73,-133.52 290.98,-134.12 264.78,-134.29"/>
+<polygon fill="#000000" stroke="#000000" points="264.58,-130.79 254.6,-134.34 264.62,-137.79 264.58,-130.79"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge11" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C459.88,-135.89 428.91,-135.91 403.09,-134.74"/>
-<polygon fill="#000000" stroke="#000000" points="403.27,-131.24 393.1,-134.21 402.9,-138.23 403.27,-131.24"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-111C565.29,-93.45 548.76,-123.65 489.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.77,-144.13C719.24,-156.83 697.72,-176.25 675,-186 598.49,-218.82 572.53,-217.99 489.5,-212"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-212C452.44,-211.03 414.27,-198.75 387.32,-188.04"/>
+<polygon fill="#000000" stroke="#000000" points="388.51,-184.75 377.93,-184.2 385.85,-191.23 388.51,-184.75"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-262 287,-262 287,-238 405,-238 405,-262"/>
-<text text-anchor="middle" x="346" y="-247.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~helio_step.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-144 572,-144 572,-120 675,-120 675,-144"/>
+<text text-anchor="middle" x="623.5" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M731.88,-182.4C719.44,-195.33 698,-214.94 675,-224 590.19,-257.39 483.68,-259.26 415.47,-255.93"/>
-<polygon fill="#000000" stroke="#000000" points="415.45,-252.42 405.27,-255.38 415.07,-259.41 415.45,-252.42"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-132C703.05,-132 694.35,-132 685.59,-132"/>
+<polygon fill="#000000" stroke="#000000" points="685.33,-128.5 675.33,-132 685.33,-135.5 685.33,-128.5"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.6,-182C569.04,-186.08 553.73,-190.68 539.49,-194.97"/>
-<polygon fill="#000000" stroke="#000000" points="538.4,-191.64 529.84,-197.87 540.42,-198.34 538.4,-191.64"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-212C427.08,-210.33 411.79,-207.65 351.5,-212"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-170C425.21,-174.35 408.89,-178.28 347,-170"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.92,-168.35C547.06,-167.95 516.68,-168.1 489.5,-170"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-66C140.96,-70.17 123.7,-74.9 107.75,-79.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-75.92 98.03,-81.94 108.6,-82.67 106.75,-75.92"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~helio_step.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-170C422.73,-174.52 411.77,-205.48 347,-210"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-210C143,-187.02 94.91,-138.21 70.61,-110.78"/>
-<polygon fill="#000000" stroke="#000000" points="73.05,-108.26 63.85,-103.01 67.77,-112.85 73.05,-108.26"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-210C279.6,-214.57 257.55,-236.29 197.5,-210"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.39,-104.02C456.79,-108.21 448.4,-113.09 441,-118 424.11,-129.2 422.21,-135.29 405,-146 399.65,-149.33 393.81,-152.55 388.02,-155.52"/>
+<polygon fill="#000000" stroke="#000000" points="386.44,-152.4 379.03,-159.97 389.55,-158.67 386.44,-152.4"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.68,-157.84C585.21,-147.19 559.04,-131.36 536,-118 530.87,-115.03 525.4,-111.91 520.08,-108.92"/>
-<polygon fill="#000000" stroke="#000000" points="521.78,-105.86 511.34,-104.03 518.36,-111.97 521.78,-105.86"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.88,-94.52C414.6,-95.47 381.19,-95.93 351.5,-94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-94C269.04,-88.78 176.01,-89.97 116.16,-91.66"/>
+<polygon fill="#000000" stroke="#000000" points="116,-88.17 106.11,-91.96 116.21,-95.16 116,-88.17"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.84,-10.16C252.94,-10.38 191.94,-14.57 142,-33 116.6,-42.37 91.63,-60.82 74.81,-74.98"/>
+<polygon fill="#000000" stroke="#000000" points="72.06,-72.73 66.8,-81.93 76.65,-78.02 72.06,-72.73"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_step.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.89,-117.98C137.9,-114.13 122.25,-109.81 107.63,-105.78"/>
-<polygon fill="#000000" stroke="#000000" points="108.28,-102.33 97.71,-103.05 106.42,-109.08 108.28,-102.33"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-122C140.96,-117.83 123.7,-113.1 107.75,-108.73"/>
+<polygon fill="#000000" stroke="#000000" points="108.6,-105.33 98.03,-106.06 106.75,-112.08 108.6,-105.33"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~helio_step.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.86,-86.3C400.2,-81.25 339.64,-73.53 287,-66 247.14,-60.3 237.76,-51.75 197.5,-52"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-160.08C289.09,-156.44 273.38,-152.39 258.63,-148.59"/>
+<polygon fill="#000000" stroke="#000000" points="259.17,-145.11 248.61,-146.01 257.42,-151.89 259.17,-145.11"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_step.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-104.02C429.85,-107.59 415.24,-111.54 401.48,-115.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-111.93 391.65,-117.92 402.22,-118.69 400.39,-111.93"/>
-</g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.41,-24.1C160.62,-28.33 150.8,-33.22 142,-38 121.5,-49.13 98.98,-62.72 81.85,-73.35"/>
-<polygon fill="#000000" stroke="#000000" points="79.57,-70.65 72.94,-78.92 83.27,-76.59 79.57,-70.65"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.38,-184.06C283.02,-197.94 223.99,-218.09 202,-212"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-212C143.11,-196.25 93.64,-143.72 69.56,-114.34"/>
+<polygon fill="#000000" stroke="#000000" points="72.17,-112 63.19,-106.37 66.71,-116.37 72.17,-112"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~helio_step.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-130C286.54,-130 273.16,-130 260.25,-130"/>
-<polygon fill="#000000" stroke="#000000" points="260.03,-126.5 250.03,-130 260.03,-133.5 260.03,-126.5"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.6,-144C569.04,-148.08 553.73,-152.68 539.49,-156.97"/>
+<polygon fill="#000000" stroke="#000000" points="538.4,-153.64 529.84,-159.87 540.42,-160.34 538.4,-153.64"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~helio_step.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.4,-117.89C306.94,-113.7 296.43,-108.83 287,-104 246.07,-83.01 243.5,-51.72 197.5,-52"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M582.6,-120C569.04,-115.92 553.73,-111.32 539.49,-107.03"/>
+<polygon fill="#000000" stroke="#000000" points="540.42,-103.66 529.84,-104.13 538.4,-110.36 540.42,-103.66"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~helio_step.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C427.2,-127.87 411.85,-128.69 351.5,-132"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~helio_step.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.92,-238.44C259.19,-231.87 225.94,-222.45 197.5,-210"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-132C424.89,-127.71 414.07,-98.9 351.5,-94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.92,-133.62C547.06,-134.01 516.68,-133.86 489.5,-132"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/io.f90.html b/docs/sourcefile/io.f90.html
index d38b62f06..363506a77 100644
--- a/docs/sourcefile/io.f90.html
+++ b/docs/sourcefile/io.f90.html
@@ -134,7 +134,7 @@ <h1>io.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 9.4% of total for source files.">1253 statements</a>
+    title=" 9.5% of total for source files.">1282 statements</a>
      </li> 
      
      
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~io.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileiof90EfferentGraph" width="641pt" height="210pt"
- viewBox="0.00 0.00 641.00 209.52" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~io.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 282)">
+<svg id="sourcefileiof90EfferentGraph" width="641pt" height="224pt"
+ viewBox="0.00 0.00 641.00 223.62" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~io.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 301.25)">
 <title>sourcefile~~io.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 871,-282 871,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 871,-301.25 871,4 -4,4"/>
 <!-- sourcefile~io.f90 -->
 <g id="sourcefile~~io.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~io.f90</title>
-<polygon fill="none" stroke="black" points="867,-24 813,-24 813,0 867,0 867,-24"/>
-<text text-anchor="middle" x="840" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">io.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~io.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.82,-22.86C803.68,-26.66 793.22,-30.99 783.3,-35.11"/>
-<polygon fill="#000000" stroke="#000000" points="781.91,-31.9 774.02,-38.96 784.59,-38.36 781.91,-31.9"/>
+<polygon fill="none" stroke="black" points="867,-260 813,-260 813,-236 867,-236 867,-260"/>
+<text text-anchor="middle" x="840" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">io.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~io.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~io.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~io.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~io.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-11.34C738.17,-10.21 518.02,-12.21 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-256.09C772.77,-267.78 693.44,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~io.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~io.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.82,-242.43C804.76,-240.72 795.69,-238.79 786.86,-236.91"/>
+<polygon fill="#000000" stroke="#000000" points="787.58,-233.48 777.07,-234.82 786.12,-240.33 787.58,-233.48"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~io.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~io.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~io.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~io.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~io.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~io.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~io.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~io.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~io.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~io.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~io.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~io.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~io.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~io.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~io.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~io.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~io.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~io.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~io.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~io.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~io.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~io.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~io.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~io.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~io.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~io.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~io.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~io.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~io.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~io.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~io.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~io.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~io.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
@@ -589,1493 +591,1522 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-31"></a>               <span class="n">Euntracked</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">Euntracked</span><span class="p">,</span> <span class="n">Eorbit_orig</span> <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">Eorbit_orig</span><span class="p">,</span> <span class="n">Mtot_orig</span> <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">Mtot_orig</span><span class="p">,</span> <span class="p">&amp;</span>
 <a name="ln-32"></a>               <span class="n">Ltot_orig</span> <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">Ltot_orig</span><span class="p">(:),</span> <span class="n">Lmag_orig</span> <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">Lmag_orig</span><span class="p">,</span> <span class="n">Lorbit_orig</span> <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">Lorbit_orig</span><span class="p">(:),</span> <span class="n">Lspin_orig</span> <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">Lspin_orig</span><span class="p">(:),</span> <span class="p">&amp;</span>
 <a name="ln-33"></a>               <span class="n">lfirst</span> <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">lfirstenergy</span><span class="p">)</span>
-<a name="ln-34"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lfirst</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-35"></a><span class="k">            if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span> <span class="o">==</span> <span class="s2">&quot;OLD&quot;</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-36"></a><span class="k">               open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">EGYIU</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">ENERGY_FILE</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s2">&quot;formatted&quot;</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s2">&quot;old&quot;</span><span class="p">,</span> <span class="n">action</span> <span class="o">=</span> <span class="s2">&quot;write&quot;</span><span class="p">,</span> <span class="n">position</span> <span class="o">=</span> <span class="s2">&quot;append&quot;</span><span class="p">)</span>
-<a name="ln-37"></a>            <span class="k">else </span>
-<a name="ln-38"></a><span class="k">               open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">EGYIU</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">ENERGY_FILE</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s2">&quot;formatted&quot;</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s2">&quot;replace&quot;</span><span class="p">,</span> <span class="n">action</span> <span class="o">=</span> <span class="s2">&quot;write&quot;</span><span class="p">)</span>
+<a name="ln-34"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">energy_out</span> <span class="o">/=</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-35"></a><span class="k">            if</span> <span class="p">(</span><span class="n">lfirst</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span> <span class="o">/=</span> <span class="s2">&quot;OLD&quot;</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-36"></a><span class="k">               open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">EGYIU</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">energy_out</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s2">&quot;formatted&quot;</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s2">&quot;replace&quot;</span><span class="p">,</span> <span class="n">action</span> <span class="o">=</span> <span class="s2">&quot;write&quot;</span><span class="p">)</span>
+<a name="ln-37"></a>            <span class="k">else</span>
+<a name="ln-38"></a><span class="k">               open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">EGYIU</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">energy_out</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s2">&quot;formatted&quot;</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s2">&quot;old&quot;</span><span class="p">,</span> <span class="n">action</span> <span class="o">=</span> <span class="s2">&quot;write&quot;</span><span class="p">,</span> <span class="n">position</span> <span class="o">=</span> <span class="s2">&quot;append&quot;</span><span class="p">)</span>
 <a name="ln-39"></a>               <span class="k">write</span><span class="p">(</span><span class="n">EGYIU</span><span class="p">,</span><span class="n">EGYHEADER</span><span class="p">)</span>
 <a name="ln-40"></a>            <span class="k">end if</span>
 <a name="ln-41"></a><span class="k">         end if</span>
-<a name="ln-42"></a><span class="k">         call </span><span class="nb">system</span><span class="p">%</span><span class="n">get_energy_and_momentum</span><span class="p">(</span><span class="n">param</span><span class="p">)</span> 
-<a name="ln-43"></a>         <span class="n">ke_orbit_now</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">ke_orbit</span>
-<a name="ln-44"></a>         <span class="n">ke_spin_now</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">ke_spin</span>
-<a name="ln-45"></a>         <span class="n">pe_now</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">pe</span>
-<a name="ln-46"></a>         <span class="n">Lorbit_now</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">Lorbit</span>
-<a name="ln-47"></a>         <span class="n">Lspin_now</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">Lspin</span>
-<a name="ln-48"></a>         <span class="n">Eorbit_now</span> <span class="o">=</span> <span class="n">ke_orbit_now</span> <span class="o">+</span> <span class="n">ke_spin_now</span> <span class="o">+</span> <span class="n">pe_now</span>
-<a name="ln-49"></a>         <span class="n">Ltot_now</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Lorbit_now</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">Lspin_now</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">Lescape</span><span class="p">(:)</span>
-<a name="ln-50"></a>         <span class="n">Mtot_now</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">mass</span> <span class="o">+</span> <span class="nb">sum</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span> <span class="o">+</span> <span class="nb">system</span><span class="p">%</span><span class="n">Mescape</span>
-<a name="ln-51"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lfirst</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-52"></a><span class="k">            </span><span class="n">Eorbit_orig</span> <span class="o">=</span> <span class="n">Eorbit_now</span>
-<a name="ln-53"></a>            <span class="n">Mtot_orig</span> <span class="o">=</span> <span class="n">Mtot_now</span>
-<a name="ln-54"></a>            <span class="n">Lorbit_orig</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Lorbit_now</span><span class="p">(:)</span>
-<a name="ln-55"></a>            <span class="n">Lspin_orig</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Lspin_now</span><span class="p">(:)</span>
-<a name="ln-56"></a>            <span class="n">Ltot_orig</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Ltot_now</span><span class="p">(:)</span>
-<a name="ln-57"></a>            <span class="n">Lmag_orig</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">Ltot_orig</span><span class="p">(:))</span>
-<a name="ln-58"></a>            <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-59"></a>         <span class="k">end if</span>
-<a name="ln-60"></a>
-<a name="ln-61"></a><span class="k">         write</span><span class="p">(</span><span class="n">EGYIU</span><span class="p">,</span><span class="n">EGYFMT</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">Eorbit_now</span><span class="p">,</span> <span class="n">Ecollisions</span><span class="p">,</span> <span class="n">Ltot_now</span><span class="p">,</span> <span class="n">Mtot_now</span>
-<a name="ln-62"></a>         <span class="nb">flush</span><span class="p">(</span><span class="n">EGYIU</span><span class="p">)</span>
-<a name="ln-63"></a>         <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lfirst</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="n">lterminal</span><span class="p">)</span> <span class="k">then </span>
-<a name="ln-64"></a><span class="k">            </span><span class="n">Lmag_now</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">Ltot_now</span><span class="p">)</span>
-<a name="ln-65"></a>            <span class="n">Lerror</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">Ltot_now</span> <span class="o">-</span> <span class="n">Ltot_orig</span><span class="p">)</span> <span class="o">/</span> <span class="n">Lmag_orig</span>
-<a name="ln-66"></a>            <span class="n">Eorbit_error</span> <span class="o">=</span> <span class="p">(</span><span class="n">Eorbit_now</span> <span class="o">-</span> <span class="n">Eorbit_orig</span><span class="p">)</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">Eorbit_orig</span><span class="p">)</span>
-<a name="ln-67"></a>            <span class="n">Ecoll_error</span> <span class="o">=</span> <span class="n">Ecollisions</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">Eorbit_orig</span><span class="p">)</span>
-<a name="ln-68"></a>            <span class="n">Etotal_error</span> <span class="o">=</span> <span class="p">(</span><span class="n">Eorbit_now</span> <span class="o">-</span> <span class="n">Ecollisions</span> <span class="o">-</span> <span class="n">Eorbit_orig</span> <span class="o">-</span> <span class="n">Euntracked</span><span class="p">)</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">Eorbit_orig</span><span class="p">)</span>
-<a name="ln-69"></a>            <span class="n">Merror</span> <span class="o">=</span> <span class="p">(</span><span class="n">Mtot_now</span> <span class="o">-</span> <span class="n">Mtot_orig</span><span class="p">)</span> <span class="o">/</span> <span class="n">Mtot_orig</span>
-<a name="ln-70"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="n">egytermfmt</span><span class="p">)</span> <span class="n">Lerror</span><span class="p">,</span> <span class="n">Ecoll_error</span><span class="p">,</span> <span class="n">Etotal_error</span><span class="p">,</span> <span class="n">Merror</span>
-<a name="ln-71"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">Ecoll_error</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-72"></a><span class="k">               write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Something has gone wrong! Collisional energy should not be positive!&#39;</span>
-<a name="ln-73"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;dke_orbit: &#39;</span><span class="p">,(</span><span class="n">ke_orbit_now</span> <span class="o">-</span> <span class="n">ke_orbit_last</span><span class="p">)</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">Eorbit_orig</span><span class="p">)</span>
-<a name="ln-74"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;dke_spin : &#39;</span><span class="p">,(</span><span class="n">ke_spin_now</span> <span class="o">-</span> <span class="n">ke_spin_last</span><span class="p">)</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">Eorbit_orig</span><span class="p">)</span>
-<a name="ln-75"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;dpe      : &#39;</span><span class="p">,(</span><span class="n">pe_now</span> <span class="o">-</span> <span class="n">pe_last</span><span class="p">)</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">Eorbit_orig</span><span class="p">)</span>
-<a name="ln-76"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span>
-<a name="ln-77"></a>            <span class="k">end if</span>
-<a name="ln-78"></a><span class="k">         end if</span>
-<a name="ln-79"></a><span class="k">         </span><span class="n">ke_orbit_last</span> <span class="o">=</span> <span class="n">ke_orbit_now</span>
-<a name="ln-80"></a>         <span class="n">ke_spin_last</span> <span class="o">=</span> <span class="n">ke_spin_now</span>
-<a name="ln-81"></a>         <span class="n">pe_last</span> <span class="o">=</span> <span class="n">pe_now</span>
-<a name="ln-82"></a>         <span class="n">Eorbit_last</span> <span class="o">=</span> <span class="n">Eorbit_now</span>
-<a name="ln-83"></a>         <span class="n">Lorbit_last</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Lorbit_now</span><span class="p">(:)</span>
-<a name="ln-84"></a>         <span class="n">Lspin_last</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Lspin_now</span><span class="p">(:)</span>
-<a name="ln-85"></a>         <span class="n">Ltot_last</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Ltot_now</span><span class="p">(:)</span>
-<a name="ln-86"></a>      <span class="k">end associate</span>
-<a name="ln-87"></a><span class="k">      return</span>
-<a name="ln-88"></a>
-<a name="ln-89"></a><span class="k">   end subroutine </span><span class="n">io_conservation_report</span>
-<a name="ln-90"></a>
+<a name="ln-42"></a><span class="k">         call </span><span class="n">pl</span><span class="p">%</span><span class="n">h2b</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-43"></a>         <span class="k">call </span><span class="nb">system</span><span class="p">%</span><span class="n">get_energy_and_momentum</span><span class="p">(</span><span class="n">param</span><span class="p">)</span> 
+<a name="ln-44"></a>         <span class="n">ke_orbit_now</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">ke_orbit</span>
+<a name="ln-45"></a>         <span class="n">ke_spin_now</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">ke_spin</span>
+<a name="ln-46"></a>         <span class="n">pe_now</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">pe</span>
+<a name="ln-47"></a>         <span class="n">Lorbit_now</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">Lorbit</span>
+<a name="ln-48"></a>         <span class="n">Lspin_now</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">Lspin</span>
+<a name="ln-49"></a>         <span class="n">Eorbit_now</span> <span class="o">=</span> <span class="n">ke_orbit_now</span> <span class="o">+</span> <span class="n">ke_spin_now</span> <span class="o">+</span> <span class="n">pe_now</span>
+<a name="ln-50"></a>         <span class="n">Ltot_now</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Lorbit_now</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">Lspin_now</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">Lescape</span><span class="p">(:)</span>
+<a name="ln-51"></a>         <span class="n">Mtot_now</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">mass</span> <span class="o">+</span> <span class="nb">sum</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span> <span class="o">+</span> <span class="nb">system</span><span class="p">%</span><span class="n">Mescape</span>
+<a name="ln-52"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lfirst</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-53"></a><span class="k">            </span><span class="n">Eorbit_orig</span> <span class="o">=</span> <span class="n">Eorbit_now</span>
+<a name="ln-54"></a>            <span class="n">Mtot_orig</span> <span class="o">=</span> <span class="n">Mtot_now</span>
+<a name="ln-55"></a>            <span class="n">Lorbit_orig</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Lorbit_now</span><span class="p">(:)</span>
+<a name="ln-56"></a>            <span class="n">Lspin_orig</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Lspin_now</span><span class="p">(:)</span>
+<a name="ln-57"></a>            <span class="n">Ltot_orig</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Ltot_now</span><span class="p">(:)</span>
+<a name="ln-58"></a>            <span class="n">Lmag_orig</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">Ltot_orig</span><span class="p">(:))</span>
+<a name="ln-59"></a>            <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-60"></a>         <span class="k">end if</span>
+<a name="ln-61"></a>
+<a name="ln-62"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">energy_out</span> <span class="o">/=</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-63"></a><span class="k">            write</span><span class="p">(</span><span class="n">EGYIU</span><span class="p">,</span><span class="n">EGYFMT</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">Eorbit_now</span><span class="p">,</span> <span class="n">Ecollisions</span><span class="p">,</span> <span class="n">Ltot_now</span><span class="p">,</span> <span class="n">Mtot_now</span>
+<a name="ln-64"></a>            <span class="k">close</span><span class="p">(</span><span class="n">EGYIU</span><span class="p">)</span>
+<a name="ln-65"></a>         <span class="k">end if</span>
+<a name="ln-66"></a><span class="k">         if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lfirst</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="n">lterminal</span><span class="p">)</span> <span class="k">then </span>
+<a name="ln-67"></a><span class="k">            </span><span class="n">Lmag_now</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">Ltot_now</span><span class="p">)</span>
+<a name="ln-68"></a>            <span class="n">Lerror</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">Ltot_now</span> <span class="o">-</span> <span class="n">Ltot_orig</span><span class="p">)</span> <span class="o">/</span> <span class="n">Lmag_orig</span>
+<a name="ln-69"></a>            <span class="n">Eorbit_error</span> <span class="o">=</span> <span class="p">(</span><span class="n">Eorbit_now</span> <span class="o">-</span> <span class="n">Eorbit_orig</span><span class="p">)</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">Eorbit_orig</span><span class="p">)</span>
+<a name="ln-70"></a>            <span class="n">Ecoll_error</span> <span class="o">=</span> <span class="n">Ecollisions</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">Eorbit_orig</span><span class="p">)</span>
+<a name="ln-71"></a>            <span class="n">Etotal_error</span> <span class="o">=</span> <span class="p">(</span><span class="n">Eorbit_now</span> <span class="o">-</span> <span class="n">Ecollisions</span> <span class="o">-</span> <span class="n">Eorbit_orig</span> <span class="o">-</span> <span class="n">Euntracked</span><span class="p">)</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">Eorbit_orig</span><span class="p">)</span>
+<a name="ln-72"></a>            <span class="n">Merror</span> <span class="o">=</span> <span class="p">(</span><span class="n">Mtot_now</span> <span class="o">-</span> <span class="n">Mtot_orig</span><span class="p">)</span> <span class="o">/</span> <span class="n">Mtot_orig</span>
+<a name="ln-73"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="n">egytermfmt</span><span class="p">)</span> <span class="n">Lerror</span><span class="p">,</span> <span class="n">Ecoll_error</span><span class="p">,</span> <span class="n">Etotal_error</span><span class="p">,</span> <span class="n">Merror</span>
+<a name="ln-74"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">Ecoll_error</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-75"></a><span class="k">               write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Something has gone wrong! Collisional energy should not be positive!&#39;</span>
+<a name="ln-76"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;dke_orbit: &#39;</span><span class="p">,(</span><span class="n">ke_orbit_now</span> <span class="o">-</span> <span class="n">ke_orbit_last</span><span class="p">)</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">Eorbit_orig</span><span class="p">)</span>
+<a name="ln-77"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;dke_spin : &#39;</span><span class="p">,(</span><span class="n">ke_spin_now</span> <span class="o">-</span> <span class="n">ke_spin_last</span><span class="p">)</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">Eorbit_orig</span><span class="p">)</span>
+<a name="ln-78"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;dpe      : &#39;</span><span class="p">,(</span><span class="n">pe_now</span> <span class="o">-</span> <span class="n">pe_last</span><span class="p">)</span> <span class="o">/</span> <span class="nb">abs</span><span class="p">(</span><span class="n">Eorbit_orig</span><span class="p">)</span>
+<a name="ln-79"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span>
+<a name="ln-80"></a>            <span class="k">end if</span>
+<a name="ln-81"></a><span class="k">         end if</span>
+<a name="ln-82"></a><span class="k">         </span><span class="n">ke_orbit_last</span> <span class="o">=</span> <span class="n">ke_orbit_now</span>
+<a name="ln-83"></a>         <span class="n">ke_spin_last</span> <span class="o">=</span> <span class="n">ke_spin_now</span>
+<a name="ln-84"></a>         <span class="n">pe_last</span> <span class="o">=</span> <span class="n">pe_now</span>
+<a name="ln-85"></a>         <span class="n">Eorbit_last</span> <span class="o">=</span> <span class="n">Eorbit_now</span>
+<a name="ln-86"></a>         <span class="n">Lorbit_last</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Lorbit_now</span><span class="p">(:)</span>
+<a name="ln-87"></a>         <span class="n">Lspin_last</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Lspin_now</span><span class="p">(:)</span>
+<a name="ln-88"></a>         <span class="n">Ltot_last</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">Ltot_now</span><span class="p">(:)</span>
+<a name="ln-89"></a>      <span class="k">end associate</span>
+<a name="ln-90"></a><span class="k">      return</span>
 <a name="ln-91"></a>
-<a name="ln-92"></a>   <span class="k">module subroutine </span><span class="n">io_dump_param</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param_file_name</span><span class="p">)</span>
-<a name="ln-93"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-94"></a>      <span class="c">!!</span>
-<a name="ln-95"></a>      <span class="c">!! Dump integration parameters to file</span>
-<a name="ln-96"></a>      <span class="c">!!</span>
-<a name="ln-97"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_dump_param.f90</span>
-<a name="ln-98"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine io_dump_param.f</span>
-<a name="ln-99"></a>      <span class="k">implicit none</span>
-<a name="ln-100"></a>      <span class="c">! Arguments</span>
-<a name="ln-101"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>    <span class="c">!! Output collection of parameters</span>
-<a name="ln-102"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>          <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param_file_name</span> <span class="c">!! Parameter input file name (i.e. param.in)</span>
-<a name="ln-103"></a>      <span class="c">! Internals</span>
-<a name="ln-104"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span>  <span class="kd">::</span> <span class="n">LUN</span> <span class="o">=</span> <span class="mi">7</span>       <span class="c">!! Unit number of output file</span>
-<a name="ln-105"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">ierr</span>          <span class="c">!! Error code</span>
-<a name="ln-106"></a>      <span class="kt">character</span><span class="p">(</span><span class="n">STRMAX</span><span class="p">)</span>        <span class="kd">::</span> <span class="n">error_message</span> <span class="c">!! Error message in UDIO procedure</span>
-<a name="ln-107"></a>
-<a name="ln-108"></a>      <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param_file_name</span><span class="p">,</span> <span class="n">status</span><span class="o">=</span><span class="s1">&#39;replace&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;FORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span><span class="n">ierr</span><span class="p">)</span>
-<a name="ln-109"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span><span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-110"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Swiftest error.&#39;</span>
-<a name="ln-111"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;   Could not open dump file: &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param_file_name</span><span class="p">))</span>
-<a name="ln-112"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-113"></a>      <span class="k">end if</span>
-<a name="ln-114"></a>      
-<a name="ln-115"></a>      <span class="c">!! todo: Currently this procedure does not work in user-defined derived-type input mode </span>
-<a name="ln-116"></a>      <span class="c">!!    due to compiler incompatabilities</span>
-<a name="ln-117"></a>      <span class="c">!write(LUN,&#39;(DT)&#39;) param</span>
-<a name="ln-118"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">writer</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">iotype</span> <span class="o">=</span> <span class="s2">&quot;none&quot;</span><span class="p">,</span> <span class="n">v_list</span> <span class="o">=</span> <span class="p">[</span><span class="mi">0</span><span class="p">],</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">error_message</span><span class="p">)</span>
-<a name="ln-119"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-120"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">error_message</span><span class="p">))</span>
-<a name="ln-121"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-122"></a>      <span class="k">end if</span>
-<a name="ln-123"></a><span class="k">      close</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span>
-<a name="ln-124"></a>
-<a name="ln-125"></a>      <span class="k">return</span>
-<a name="ln-126"></a><span class="k">   end subroutine </span><span class="n">io_dump_param</span>
+<a name="ln-92"></a><span class="k">   end subroutine </span><span class="n">io_conservation_report</span>
+<a name="ln-93"></a>
+<a name="ln-94"></a>
+<a name="ln-95"></a>   <span class="k">module subroutine </span><span class="n">io_dump_param</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param_file_name</span><span class="p">)</span>
+<a name="ln-96"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-97"></a>      <span class="c">!!</span>
+<a name="ln-98"></a>      <span class="c">!! Dump integration parameters to file</span>
+<a name="ln-99"></a>      <span class="c">!!</span>
+<a name="ln-100"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_dump_param.f90</span>
+<a name="ln-101"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine io_dump_param.f</span>
+<a name="ln-102"></a>      <span class="k">implicit none</span>
+<a name="ln-103"></a>      <span class="c">! Arguments</span>
+<a name="ln-104"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>    <span class="c">!! Output collection of parameters</span>
+<a name="ln-105"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>          <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param_file_name</span> <span class="c">!! Parameter input file name (i.e. param.in)</span>
+<a name="ln-106"></a>      <span class="c">! Internals</span>
+<a name="ln-107"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span>  <span class="kd">::</span> <span class="n">LUN</span> <span class="o">=</span> <span class="mi">7</span>       <span class="c">!! Unit number of output file</span>
+<a name="ln-108"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">ierr</span>          <span class="c">!! Error code</span>
+<a name="ln-109"></a>      <span class="kt">character</span><span class="p">(</span><span class="n">STRMAX</span><span class="p">)</span>        <span class="kd">::</span> <span class="n">error_message</span> <span class="c">!! Error message in UDIO procedure</span>
+<a name="ln-110"></a>
+<a name="ln-111"></a>      <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param_file_name</span><span class="p">,</span> <span class="n">status</span><span class="o">=</span><span class="s1">&#39;replace&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;FORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span><span class="n">ierr</span><span class="p">)</span>
+<a name="ln-112"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span><span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-113"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Swiftest error.&#39;</span>
+<a name="ln-114"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;   Could not open dump file: &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param_file_name</span><span class="p">))</span>
+<a name="ln-115"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-116"></a>      <span class="k">end if</span>
+<a name="ln-117"></a>      
+<a name="ln-118"></a>      <span class="c">!! todo: Currently this procedure does not work in user-defined derived-type input mode </span>
+<a name="ln-119"></a>      <span class="c">!!    due to compiler incompatabilities</span>
+<a name="ln-120"></a>      <span class="c">!write(LUN,&#39;(DT)&#39;) param</span>
+<a name="ln-121"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">writer</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">iotype</span> <span class="o">=</span> <span class="s2">&quot;none&quot;</span><span class="p">,</span> <span class="n">v_list</span> <span class="o">=</span> <span class="p">[</span><span class="mi">0</span><span class="p">],</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">error_message</span><span class="p">)</span>
+<a name="ln-122"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-123"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">error_message</span><span class="p">))</span>
+<a name="ln-124"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-125"></a>      <span class="k">end if</span>
+<a name="ln-126"></a><span class="k">      close</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span>
 <a name="ln-127"></a>
-<a name="ln-128"></a>
-<a name="ln-129"></a>   <span class="k">module subroutine </span><span class="n">io_dump_swiftest</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">msg</span><span class="p">)</span> 
-<a name="ln-130"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-131"></a>      <span class="c">!!</span>
-<a name="ln-132"></a>      <span class="c">!! Dump massive body data to files</span>
-<a name="ln-133"></a>      <span class="c">!!</span>
-<a name="ln-134"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: io_dump_pl.f90 and io_dump_tp.f90</span>
-<a name="ln-135"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_dump_pl.f and io_dump_tp.f</span>
-<a name="ln-136"></a>      <span class="k">implicit none</span>
-<a name="ln-137"></a>      <span class="c">! Arguments</span>
-<a name="ln-138"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_base</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest base object</span>
-<a name="ln-139"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-140"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">optional</span><span class="p">,</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">msg</span>  <span class="c">!! Message to display with dump operation</span>
-<a name="ln-141"></a>      <span class="c">! Internals</span>
-<a name="ln-142"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                   <span class="kd">::</span> <span class="n">ierr</span>    <span class="c">!! Error code</span>
-<a name="ln-143"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span><span class="k">parameter</span>         <span class="kd">::</span> <span class="n">LUN</span> <span class="o">=</span> <span class="mi">7</span> <span class="c">!! Unit number for dump file</span>
-<a name="ln-144"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                   <span class="kd">::</span> <span class="n">iu</span> <span class="o">=</span> <span class="n">LUN</span>
-<a name="ln-145"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">dump_file_name</span>
-<a name="ln-146"></a>
-<a name="ln-147"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
-<a name="ln-148"></a>      <span class="k">class is</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">)</span>
-<a name="ln-149"></a>         <span class="n">dump_file_name</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">incbfile</span><span class="p">))</span> 
-<a name="ln-150"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
-<a name="ln-151"></a>         <span class="n">dump_file_name</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">inplfile</span><span class="p">))</span> 
-<a name="ln-152"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
-<a name="ln-153"></a>         <span class="n">dump_file_name</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">intpfile</span><span class="p">))</span> 
-<a name="ln-154"></a>      <span class="k">end select</span>
-<a name="ln-155"></a><span class="k">      open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">dump_file_name</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s2">&quot;UNFORMATTED&quot;</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;replace&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-156"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-157"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error:&quot;</span>
-<a name="ln-158"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Unable to open binary dump file &quot;</span> <span class="o">//</span> <span class="n">dump_file_name</span>
-<a name="ln-159"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-160"></a>      <span class="k">end if</span>
-<a name="ln-161"></a><span class="k">      call </span><span class="n">self</span><span class="p">%</span><span class="n">write_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-162"></a>      <span class="k">close</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span>
-<a name="ln-163"></a>
-<a name="ln-164"></a>      <span class="k">return</span>
-<a name="ln-165"></a><span class="k">   end subroutine </span><span class="n">io_dump_swiftest</span>
-<a name="ln-166"></a>
-<a name="ln-167"></a>
-<a name="ln-168"></a>   <span class="k">module subroutine </span><span class="n">io_dump_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">msg</span><span class="p">)</span>
-<a name="ln-169"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-170"></a>      <span class="c">!!</span>
-<a name="ln-171"></a>      <span class="c">!! Dumps the state of the system to files in case the simulation is interrupted.</span>
-<a name="ln-172"></a>      <span class="c">!! As a safety mechanism, there are two dump files that are written in alternating order</span>
-<a name="ln-173"></a>      <span class="c">!! so that if a dump file gets corrupted during writing, the user can restart from the older one.</span>
-<a name="ln-174"></a>      <span class="k">implicit none</span>
-<a name="ln-175"></a>      <span class="c">! Arguments</span>
-<a name="ln-176"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest system object</span>
-<a name="ln-177"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-178"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">optional</span><span class="p">,</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">msg</span>   <span class="c">!! Message to display with dump operation</span>
-<a name="ln-179"></a>      <span class="c">! Internals</span>
-<a name="ln-180"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">dump_param</span> <span class="c">!! Local parameters variable used to parameters change input file names </span>
-<a name="ln-181"></a>                                                            <span class="c">!! to dump file-specific values without changing the user-defined values</span>
-<a name="ln-182"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">save</span>            <span class="kd">::</span> <span class="n">idx</span> <span class="o">=</span> <span class="mi">1</span>              <span class="c">!! Index of current dump file. Output flips between 2 files for extra security</span>
-<a name="ln-183"></a>                                                            <span class="c">!! in case the program halts during writing</span>
-<a name="ln-184"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">param_file_name</span>
-<a name="ln-185"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">tfrac</span>
-<a name="ln-186"></a>     
-<a name="ln-187"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">dump_param</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">param</span><span class="p">)</span>
-<a name="ln-188"></a>      <span class="n">param_file_name</span>    <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">DUMP_PARAM_FILE</span><span class="p">(</span><span class="n">idx</span><span class="p">)))</span>
-<a name="ln-189"></a>      <span class="n">dump_param</span><span class="p">%</span><span class="n">incbfile</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">DUMP_CB_FILE</span><span class="p">(</span><span class="n">idx</span><span class="p">)))</span> 
-<a name="ln-190"></a>      <span class="n">dump_param</span><span class="p">%</span><span class="n">inplfile</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">DUMP_PL_FILE</span><span class="p">(</span><span class="n">idx</span><span class="p">)))</span> 
-<a name="ln-191"></a>      <span class="n">dump_param</span><span class="p">%</span><span class="n">intpfile</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">DUMP_TP_FILE</span><span class="p">(</span><span class="n">idx</span><span class="p">)))</span>
-<a name="ln-192"></a>      <span class="n">dump_param</span><span class="p">%</span><span class="n">out_form</span> <span class="o">=</span> <span class="n">XV</span>
-<a name="ln-193"></a>      <span class="n">dump_param</span><span class="p">%</span><span class="n">out_stat</span> <span class="o">=</span> <span class="s1">&#39;APPEND&#39;</span>
-<a name="ln-194"></a>      <span class="n">dump_param</span><span class="p">%</span><span class="n">T0</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span>
-<a name="ln-195"></a>      <span class="k">call </span><span class="n">dump_param</span><span class="p">%</span><span class="n">dump</span><span class="p">(</span><span class="n">param_file_name</span><span class="p">)</span>
-<a name="ln-196"></a>
-<a name="ln-197"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">%</span><span class="n">dump</span><span class="p">(</span><span class="n">dump_param</span><span class="p">)</span>
-<a name="ln-198"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">dump</span><span class="p">(</span><span class="n">dump_param</span><span class="p">)</span>
-<a name="ln-199"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">dump</span><span class="p">(</span><span class="n">dump_param</span><span class="p">)</span>
-<a name="ln-200"></a>
-<a name="ln-201"></a>      <span class="n">idx</span> <span class="o">=</span> <span class="n">idx</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-202"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">idx</span> <span class="o">&gt;</span> <span class="n">NDUMPFILES</span><span class="p">)</span> <span class="n">idx</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-203"></a>
-<a name="ln-204"></a>      <span class="c">! Print the status message (format code passed in from main driver)</span>
-<a name="ln-205"></a>      <span class="n">tfrac</span> <span class="o">=</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">t</span> <span class="o">-</span> <span class="n">param</span><span class="p">%</span><span class="n">t0</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">tstop</span> <span class="o">-</span> <span class="n">param</span><span class="p">%</span><span class="n">t0</span><span class="p">)</span>
-<a name="ln-206"></a>      <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="n">msg</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">tfrac</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">nbody</span>
-<a name="ln-207"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lenergy</span><span class="p">)</span> <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">conservation_report</span><span class="p">(</span><span class="n">param</span><span class="p">,</span> <span class="n">lterminal</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
+<a name="ln-128"></a>      <span class="k">return</span>
+<a name="ln-129"></a><span class="k">   end subroutine </span><span class="n">io_dump_param</span>
+<a name="ln-130"></a>
+<a name="ln-131"></a>
+<a name="ln-132"></a>   <span class="k">module subroutine </span><span class="n">io_dump_swiftest</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-133"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-134"></a>      <span class="c">!!</span>
+<a name="ln-135"></a>      <span class="c">!! Dump massive body data to files</span>
+<a name="ln-136"></a>      <span class="c">!!</span>
+<a name="ln-137"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: io_dump_pl.f90 and io_dump_tp.f90</span>
+<a name="ln-138"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_dump_pl.f and io_dump_tp.f</span>
+<a name="ln-139"></a>      <span class="k">implicit none</span>
+<a name="ln-140"></a>      <span class="c">! Arguments</span>
+<a name="ln-141"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_base</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest base object</span>
+<a name="ln-142"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-143"></a>      <span class="c">! Internals</span>
+<a name="ln-144"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                   <span class="kd">::</span> <span class="n">ierr</span>    <span class="c">!! Error code</span>
+<a name="ln-145"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span><span class="k">parameter</span>         <span class="kd">::</span> <span class="n">LUN</span> <span class="o">=</span> <span class="mi">7</span> <span class="c">!! Unit number for dump file</span>
+<a name="ln-146"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                   <span class="kd">::</span> <span class="n">iu</span> <span class="o">=</span> <span class="n">LUN</span>
+<a name="ln-147"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">dump_file_name</span>
+<a name="ln-148"></a>
+<a name="ln-149"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-150"></a>      <span class="k">class is</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">)</span>
+<a name="ln-151"></a>         <span class="n">dump_file_name</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">incbfile</span><span class="p">))</span> 
+<a name="ln-152"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
+<a name="ln-153"></a>         <span class="n">dump_file_name</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">inplfile</span><span class="p">))</span> 
+<a name="ln-154"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
+<a name="ln-155"></a>         <span class="n">dump_file_name</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">intpfile</span><span class="p">))</span> 
+<a name="ln-156"></a>      <span class="k">end select</span>
+<a name="ln-157"></a><span class="k">      open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">dump_file_name</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s2">&quot;UNFORMATTED&quot;</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;replace&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-158"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-159"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error:&quot;</span>
+<a name="ln-160"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Unable to open binary dump file &quot;</span> <span class="o">//</span> <span class="n">dump_file_name</span>
+<a name="ln-161"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-162"></a>      <span class="k">end if</span>
+<a name="ln-163"></a><span class="k">      call </span><span class="n">self</span><span class="p">%</span><span class="n">write_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-164"></a>      <span class="k">close</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span>
+<a name="ln-165"></a>
+<a name="ln-166"></a>      <span class="k">return</span>
+<a name="ln-167"></a><span class="k">   end subroutine </span><span class="n">io_dump_swiftest</span>
+<a name="ln-168"></a>
+<a name="ln-169"></a>
+<a name="ln-170"></a>   <span class="k">module subroutine </span><span class="n">io_dump_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-171"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-172"></a>      <span class="c">!!</span>
+<a name="ln-173"></a>      <span class="c">!! Dumps the state of the system to files in case the simulation is interrupted.</span>
+<a name="ln-174"></a>      <span class="c">!! As a safety mechanism, there are two dump files that are written in alternating order</span>
+<a name="ln-175"></a>      <span class="c">!! so that if a dump file gets corrupted during writing, the user can restart from the older one.</span>
+<a name="ln-176"></a>      <span class="k">implicit none</span>
+<a name="ln-177"></a>      <span class="c">! Arguments</span>
+<a name="ln-178"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest system object</span>
+<a name="ln-179"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-180"></a>      <span class="c">! Internals</span>
+<a name="ln-181"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">dump_param</span> <span class="c">!! Local parameters variable used to parameters change input file names </span>
+<a name="ln-182"></a>                                                            <span class="c">!! to dump file-specific values without changing the user-defined values</span>
+<a name="ln-183"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">save</span>            <span class="kd">::</span> <span class="n">idx</span> <span class="o">=</span> <span class="mi">1</span>              <span class="c">!! Index of current dump file. Output flips between 2 files for extra security</span>
+<a name="ln-184"></a>                                                            <span class="c">!! in case the program halts during writing</span>
+<a name="ln-185"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">param_file_name</span>
+<a name="ln-186"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                      <span class="kd">::</span> <span class="n">deltawall</span><span class="p">,</span> <span class="n">wallperstep</span><span class="p">,</span> <span class="n">tfrac</span>
+<a name="ln-187"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I8B</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">clock_count</span><span class="p">,</span> <span class="n">count_rate</span><span class="p">,</span> <span class="n">count_max</span>
+<a name="ln-188"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>     <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">statusfmt</span>   <span class="o">=</span> <span class="s1">&#39;(&quot;Time = &quot;, ES12.5, &quot;; fraction done = &quot;, F6.3, &quot;; Number of active pl, tp = &quot;, I5, &quot;, &quot;, I5)&#39;</span>
+<a name="ln-189"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">walltimefmt</span> <span class="o">=</span> <span class="s1">&#39;(&quot;      Wall time (s): &quot;, es12.5, &quot;; Wall time/step in this interval (s):  &quot;, es12.5)&#39;</span>
+<a name="ln-190"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">save</span>                 <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-191"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">save</span>                <span class="kd">::</span> <span class="n">start</span><span class="p">,</span> <span class="n">finish</span>
+<a name="ln-192"></a>    
+<a name="ln-193"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">lfirst</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-194"></a><span class="k">         call </span><span class="nb">system_clock</span><span class="p">(</span><span class="n">clock_count</span><span class="p">,</span> <span class="n">count_rate</span><span class="p">,</span> <span class="n">count_max</span><span class="p">)</span>
+<a name="ln-195"></a>         <span class="n">start</span> <span class="o">=</span> <span class="n">clock_count</span> <span class="o">/</span> <span class="p">(</span><span class="n">count_rate</span> <span class="o">*</span> <span class="mf">1.0_DP</span><span class="p">)</span>
+<a name="ln-196"></a>         <span class="n">finish</span> <span class="o">=</span> <span class="n">start</span>
+<a name="ln-197"></a>         <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-198"></a>      <span class="k">else</span>
+<a name="ln-199"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">dump_param</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-200"></a>         <span class="n">param_file_name</span>    <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">DUMP_PARAM_FILE</span><span class="p">(</span><span class="n">idx</span><span class="p">)))</span>
+<a name="ln-201"></a>         <span class="n">dump_param</span><span class="p">%</span><span class="n">incbfile</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">DUMP_CB_FILE</span><span class="p">(</span><span class="n">idx</span><span class="p">)))</span> 
+<a name="ln-202"></a>         <span class="n">dump_param</span><span class="p">%</span><span class="n">inplfile</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">DUMP_PL_FILE</span><span class="p">(</span><span class="n">idx</span><span class="p">)))</span> 
+<a name="ln-203"></a>         <span class="n">dump_param</span><span class="p">%</span><span class="n">intpfile</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">DUMP_TP_FILE</span><span class="p">(</span><span class="n">idx</span><span class="p">)))</span>
+<a name="ln-204"></a>         <span class="n">dump_param</span><span class="p">%</span><span class="n">out_form</span> <span class="o">=</span> <span class="n">XV</span>
+<a name="ln-205"></a>         <span class="n">dump_param</span><span class="p">%</span><span class="n">out_stat</span> <span class="o">=</span> <span class="s1">&#39;APPEND&#39;</span>
+<a name="ln-206"></a>         <span class="n">dump_param</span><span class="p">%</span><span class="n">T0</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span>
+<a name="ln-207"></a>         <span class="k">call </span><span class="n">dump_param</span><span class="p">%</span><span class="n">dump</span><span class="p">(</span><span class="n">param_file_name</span><span class="p">)</span>
 <a name="ln-208"></a>
-<a name="ln-209"></a>      <span class="k">return</span>
-<a name="ln-210"></a><span class="k">   end subroutine </span><span class="n">io_dump_system</span>
-<a name="ln-211"></a>
+<a name="ln-209"></a>         <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">%</span><span class="n">dump</span><span class="p">(</span><span class="n">dump_param</span><span class="p">)</span>
+<a name="ln-210"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">dump</span><span class="p">(</span><span class="n">dump_param</span><span class="p">)</span>
+<a name="ln-211"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">dump</span><span class="p">(</span><span class="n">dump_param</span><span class="p">)</span>
 <a name="ln-212"></a>
-<a name="ln-213"></a>   <span class="k">module function </span><span class="n">io_get_args</span><span class="p">(</span><span class="n">integrator</span><span class="p">,</span> <span class="n">param_file_name</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">ierr</span><span class="p">)</span>
-<a name="ln-214"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-215"></a>      <span class="c">!!</span>
-<a name="ln-216"></a>      <span class="c">!! Reads in the name of the parameter file from command line arguments. </span>
-<a name="ln-217"></a>      <span class="k">implicit none</span>
-<a name="ln-218"></a>      <span class="c">! Arguments</span>
-<a name="ln-219"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">integrator</span>      <span class="c">!! Symbolic code of the requested integrator  </span>
-<a name="ln-220"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">param_file_name</span> <span class="c">!! Name of the input parameters file</span>
-<a name="ln-221"></a>      <span class="c">! Result</span>
-<a name="ln-222"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">ierr</span>             <span class="c">!! I/O error code</span>
-<a name="ln-223"></a>      <span class="c">! Internals</span>
-<a name="ln-224"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arg1</span><span class="p">,</span> <span class="n">arg2</span>
-<a name="ln-225"></a>      <span class="kt">integer</span> <span class="kd">::</span> <span class="n">narg</span><span class="p">,</span><span class="n">ierr_arg1</span><span class="p">,</span> <span class="n">ierr_arg2</span>
-<a name="ln-226"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span><span class="k">parameter</span>    <span class="kd">::</span> <span class="n">linefmt</span> <span class="o">=</span> <span class="s1">&#39;(A)&#39;</span>
+<a name="ln-213"></a>         <span class="n">idx</span> <span class="o">=</span> <span class="n">idx</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-214"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">idx</span> <span class="o">&gt;</span> <span class="n">NDUMPFILES</span><span class="p">)</span> <span class="n">idx</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-215"></a>
+<a name="ln-216"></a>         <span class="n">tfrac</span> <span class="o">=</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">t</span> <span class="o">-</span> <span class="n">param</span><span class="p">%</span><span class="n">t0</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">tstop</span> <span class="o">-</span> <span class="n">param</span><span class="p">%</span><span class="n">t0</span><span class="p">)</span>
+<a name="ln-217"></a>         
+<a name="ln-218"></a>         <span class="k">call </span><span class="nb">system_clock</span><span class="p">(</span><span class="n">clock_count</span><span class="p">,</span> <span class="n">count_rate</span><span class="p">,</span> <span class="n">count_max</span><span class="p">)</span>
+<a name="ln-219"></a>         <span class="n">deltawall</span> <span class="o">=</span> <span class="n">clock_count</span> <span class="o">/</span> <span class="p">(</span><span class="n">count_rate</span> <span class="o">*</span> <span class="mf">1.0_DP</span><span class="p">)</span> <span class="o">-</span> <span class="n">finish</span>
+<a name="ln-220"></a>         <span class="n">wallperstep</span> <span class="o">=</span> <span class="n">deltawall</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">istep_dump</span>
+<a name="ln-221"></a>         <span class="n">finish</span> <span class="o">=</span> <span class="n">clock_count</span> <span class="o">/</span> <span class="p">(</span><span class="n">count_rate</span> <span class="o">*</span> <span class="mf">1.0_DP</span><span class="p">)</span>
+<a name="ln-222"></a>      <span class="k">end if</span>
+<a name="ln-223"></a><span class="k">      write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="n">statusfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">tfrac</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-224"></a>      <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="n">walltimefmt</span><span class="p">)</span> <span class="n">finish</span> <span class="o">-</span> <span class="n">start</span><span class="p">,</span> <span class="n">wallperstep</span>
+<a name="ln-225"></a>
+<a name="ln-226"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lenergy</span><span class="p">)</span> <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">conservation_report</span><span class="p">(</span><span class="n">param</span><span class="p">,</span> <span class="n">lterminal</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
 <a name="ln-227"></a>
-<a name="ln-228"></a>      <span class="n">ierr</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span> <span class="c">! Default is to fail</span>
-<a name="ln-229"></a>      <span class="n">narg</span> <span class="o">=</span> <span class="nb">command_argument_count</span><span class="p">()</span> <span class="c">!</span>
-<a name="ln-230"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">narg</span> <span class="o">==</span> <span class="mi">2</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-231"></a><span class="k">         call </span><span class="nb">get_command_argument</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">arg1</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="n">ierr_arg1</span><span class="p">)</span>
-<a name="ln-232"></a>         <span class="k">call </span><span class="nb">get_command_argument</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">arg2</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="n">ierr_arg2</span><span class="p">)</span>
-<a name="ln-233"></a>         <span class="k">if</span> <span class="p">((</span><span class="n">ierr_arg1</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">ierr_arg2</span> <span class="o">==</span> <span class="mi">0</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-234"></a><span class="k">            </span><span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-235"></a>            <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">arg1</span><span class="p">)</span>
-<a name="ln-236"></a>            <span class="k">select case</span><span class="p">(</span><span class="n">arg1</span><span class="p">)</span>
-<a name="ln-237"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;BS&#39;</span><span class="p">)</span>
-<a name="ln-238"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">BS</span>
-<a name="ln-239"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;HELIO&#39;</span><span class="p">)</span>
-<a name="ln-240"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">HELIO</span>
-<a name="ln-241"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;RA15&#39;</span><span class="p">)</span>
-<a name="ln-242"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">RA15</span>
-<a name="ln-243"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;TU4&#39;</span><span class="p">)</span>
-<a name="ln-244"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">TU4</span>
-<a name="ln-245"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;WHM&#39;</span><span class="p">)</span>
-<a name="ln-246"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">WHM</span>
-<a name="ln-247"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;RMVS&#39;</span><span class="p">)</span>
-<a name="ln-248"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">RMVS</span>
-<a name="ln-249"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;SYMBA&#39;</span><span class="p">)</span>
-<a name="ln-250"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">SYMBA</span>
-<a name="ln-251"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;RINGMOONS&#39;</span><span class="p">)</span>
-<a name="ln-252"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">RINGMOONS</span>
-<a name="ln-253"></a>            <span class="k">case </span><span class="n">default</span>
-<a name="ln-254"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">UNKNOWN_INTEGRATOR</span>
-<a name="ln-255"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">arg1</span><span class="p">))</span> <span class="o">//</span> <span class="s1">&#39; is not a valid integrator.&#39;</span>
-<a name="ln-256"></a>               <span class="n">ierr</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-257"></a>            <span class="k">end select</span>
-<a name="ln-258"></a><span class="k">            </span><span class="n">param_file_name</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">arg2</span><span class="p">))</span>
-<a name="ln-259"></a>         <span class="k">end if</span>
-<a name="ln-260"></a><span class="k">      else </span>
-<a name="ln-261"></a><span class="k">         call </span><span class="nb">get_command_argument</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">arg1</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="n">ierr_arg1</span><span class="p">)</span>
-<a name="ln-262"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ierr_arg1</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-263"></a><span class="k">            if</span> <span class="p">(</span><span class="n">arg1</span> <span class="o">==</span> <span class="s1">&#39;-v&#39;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">arg1</span> <span class="o">==</span> <span class="s1">&#39;--version&#39;</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-264"></a><span class="k">               call </span><span class="n">util_version</span><span class="p">()</span> 
-<a name="ln-265"></a>            <span class="k">else if</span> <span class="p">(</span><span class="n">arg1</span> <span class="o">==</span> <span class="s1">&#39;-h&#39;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">arg1</span> <span class="o">==</span> <span class="s1">&#39;--help&#39;</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-266"></a><span class="k">               call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">HELP</span><span class="p">)</span>
-<a name="ln-267"></a>            <span class="k">end if</span>
-<a name="ln-268"></a><span class="k">         end if</span>
-<a name="ln-269"></a><span class="k">      end if</span>
-<a name="ln-270"></a><span class="k">      if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">USAGE</span><span class="p">)</span> 
-<a name="ln-271"></a>
-<a name="ln-272"></a>      <span class="k">return</span>
-<a name="ln-273"></a><span class="k">   end function </span><span class="n">io_get_args</span>
-<a name="ln-274"></a>
-<a name="ln-275"></a>
-<a name="ln-276"></a>   <span class="k">module function </span><span class="n">io_get_token</span><span class="p">(</span><span class="n">buffer</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">token</span><span class="p">)</span>
-<a name="ln-277"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-278"></a>      <span class="c">!!</span>
-<a name="ln-279"></a>      <span class="c">!! Retrieves a character token from an input string. Here a token is defined as any set of contiguous non-blank characters not </span>
-<a name="ln-280"></a>      <span class="c">!! beginning with or containing &quot;!&quot;. If &quot;!&quot; is present, any remaining part of the buffer including the &quot;!&quot; is ignored</span>
-<a name="ln-281"></a>      <span class="c">!!</span>
-<a name="ln-282"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_get_token.f90</span>
-<a name="ln-283"></a>      <span class="k">implicit none</span>
-<a name="ln-284"></a>      <span class="c">! Arguments</span>
-<a name="ln-285"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">buffer</span>         <span class="c">!! Input string buffer</span>
-<a name="ln-286"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ifirst</span>         <span class="c">!! Index of the buffer at which to start the search for a token</span>
-<a name="ln-287"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ilast</span>          <span class="c">!! Index of the buffer at the end of the returned token</span>
-<a name="ln-288"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>           <span class="c">!! Error code</span>
-<a name="ln-289"></a>      <span class="c">! Result</span>
-<a name="ln-290"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span>   <span class="kd">::</span> <span class="n">token</span>          <span class="c">!! Returned token string</span>
-<a name="ln-291"></a>      <span class="c">! Internals</span>
-<a name="ln-292"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span><span class="p">,</span><span class="n">ilength</span>
-<a name="ln-293"></a>   
-<a name="ln-294"></a>      <span class="n">ilength</span> <span class="o">=</span> <span class="nb">len</span><span class="p">(</span><span class="n">buffer</span><span class="p">)</span>
-<a name="ln-295"></a>   
-<a name="ln-296"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ifirst</span> <span class="o">&gt;</span> <span class="n">ilength</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-297"></a><span class="k">          </span><span class="n">ilast</span> <span class="o">=</span> <span class="n">ifirst</span>
-<a name="ln-298"></a>          <span class="n">ierr</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span> <span class="c">!! Bad input</span>
-<a name="ln-299"></a>          <span class="n">token</span> <span class="o">=</span> <span class="s1">&#39;&#39;</span>
-<a name="ln-300"></a>          <span class="k">return</span>
-<a name="ln-301"></a><span class="k">      end if</span>
-<a name="ln-302"></a><span class="k">      do </span><span class="n">i</span> <span class="o">=</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilength</span>
-<a name="ln-303"></a>          <span class="k">if</span> <span class="p">(</span><span class="n">buffer</span><span class="p">(</span><span class="n">i</span><span class="p">:</span><span class="n">i</span><span class="p">)</span> <span class="o">/=</span> <span class="s1">&#39; &#39;</span><span class="p">)</span> <span class="k">exit</span>
-<a name="ln-304"></a><span class="k">      end do</span>
-<a name="ln-305"></a><span class="k">      if</span> <span class="p">((</span><span class="n">i</span> <span class="o">&gt;</span> <span class="n">ilength</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">buffer</span><span class="p">(</span><span class="n">i</span><span class="p">:</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="s1">&#39;!&#39;</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-306"></a><span class="k">          </span><span class="n">ifirst</span> <span class="o">=</span> <span class="n">i</span>
-<a name="ln-307"></a>          <span class="n">ilast</span> <span class="o">=</span> <span class="n">i</span>
-<a name="ln-308"></a>          <span class="n">ierr</span> <span class="o">=</span> <span class="o">-</span><span class="mi">2</span> <span class="c">!! No valid token</span>
-<a name="ln-309"></a>          <span class="n">token</span> <span class="o">=</span> <span class="s1">&#39;&#39;</span>
-<a name="ln-310"></a>          <span class="k">return</span>
-<a name="ln-311"></a><span class="k">      end if</span>
-<a name="ln-312"></a><span class="k">      </span><span class="n">ifirst</span> <span class="o">=</span> <span class="n">i</span>
-<a name="ln-313"></a>      <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilength</span>
-<a name="ln-314"></a>          <span class="k">if</span> <span class="p">((</span><span class="n">buffer</span><span class="p">(</span><span class="n">i</span><span class="p">:</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="s1">&#39; &#39;</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">buffer</span><span class="p">(</span><span class="n">i</span><span class="p">:</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="s1">&#39;!&#39;</span><span class="p">))</span> <span class="k">exit</span>
-<a name="ln-315"></a><span class="k">      end do</span>
-<a name="ln-316"></a><span class="k">      </span><span class="n">ilast</span> <span class="o">=</span> <span class="n">i</span> <span class="o">-</span> <span class="mi">1</span>
-<a name="ln-317"></a>      <span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-318"></a>   
-<a name="ln-319"></a>      <span class="n">token</span> <span class="o">=</span> <span class="n">buffer</span><span class="p">(</span><span class="n">ifirst</span><span class="p">:</span><span class="n">ilast</span><span class="p">)</span>
-<a name="ln-320"></a>
-<a name="ln-321"></a>      <span class="k">return</span>
-<a name="ln-322"></a><span class="k">   end function </span><span class="n">io_get_token</span>
-<a name="ln-323"></a>
-<a name="ln-324"></a>
-<a name="ln-325"></a>   <span class="k">module subroutine </span><span class="n">io_param_reader</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
-<a name="ln-326"></a>      <span class="c">!! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</span>
-<a name="ln-327"></a>      <span class="c">!!</span>
-<a name="ln-328"></a>      <span class="c">!! Read in parameters for the integration</span>
-<a name="ln-329"></a>      <span class="c">!! Currently this procedure does not work in user-defined derived-type input mode </span>
-<a name="ln-330"></a>      <span class="c">!!    e.g. read(unit,&#39;(DT)&#39;) param </span>
-<a name="ln-331"></a>      <span class="c">!! as the newline characters are ignored in the input file when compiled in ifort.</span>
-<a name="ln-332"></a>      <span class="c">!!</span>
-<a name="ln-333"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_init_param.f90</span>
-<a name="ln-334"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine io_init_param.f</span>
-<a name="ln-335"></a>      <span class="k">implicit none</span>
-<a name="ln-336"></a>      <span class="c">! Arguments</span>
-<a name="ln-337"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! Collection of parameters</span>
-<a name="ln-338"></a>      <span class="kt">integer</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>                       <span class="kd">::</span> <span class="n">unit</span>       <span class="c">!! File unit number</span>
-<a name="ln-339"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">iotype</span>     <span class="c">!! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. </span>
-<a name="ln-340"></a>                                                              <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
-<a name="ln-341"></a>      <span class="kt">integer</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>                       <span class="kd">::</span> <span class="n">v_list</span><span class="p">(:)</span>  <span class="c">!! The first element passes the integrator code to the reader</span>
-<a name="ln-342"></a>      <span class="kt">integer</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>                      <span class="kd">::</span> <span class="n">iostat</span>     <span class="c">!! IO status code</span>
-<a name="ln-343"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">iomsg</span>      <span class="c">!! Message to pass if iostat /= 0</span>
-<a name="ln-344"></a>      <span class="c">! Internals</span>
-<a name="ln-345"></a>      <span class="kt">logical</span>                        <span class="kd">::</span> <span class="n">t0_set</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>                  <span class="c">!! Is the initial time set in the input file?</span>
-<a name="ln-346"></a>      <span class="kt">logical</span>                        <span class="kd">::</span> <span class="n">tstop_set</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>               <span class="c">!! Is the final time set in the input file?</span>
-<a name="ln-347"></a>      <span class="kt">logical</span>                        <span class="kd">::</span> <span class="n">dt_set</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>                  <span class="c">!! Is the step size set in the input file?</span>
-<a name="ln-348"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                   <span class="kd">::</span> <span class="n">ilength</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">i</span>         <span class="c">!! Variables used to parse input file</span>
-<a name="ln-349"></a>      <span class="kt">character</span><span class="p">(</span><span class="n">STRMAX</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">line</span>                              <span class="c">!! Line of the input file</span>
-<a name="ln-350"></a>      <span class="kt">character</span> <span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">line_trim</span><span class="p">,</span><span class="n">param_name</span><span class="p">,</span> <span class="n">param_value</span> <span class="c">!! Strings used to parse the param file</span>
-<a name="ln-351"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span>         <span class="kd">::</span> <span class="n">linefmt</span> <span class="o">=</span> <span class="s1">&#39;(A)&#39;</span>                   <span class="c">!! Format code for simple text string</span>
-<a name="ln-352"></a>
-<a name="ln-353"></a>      <span class="c">! Parse the file line by line, extracting tokens then matching them up with known parameters if possible</span>
-<a name="ln-354"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">param</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span> 
-<a name="ln-355"></a>         <span class="k">do</span>
-<a name="ln-356"></a><span class="k">            read</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">unit</span><span class="p">,</span> <span class="n">fmt</span> <span class="o">=</span> <span class="n">linefmt</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">iostat</span><span class="p">,</span> <span class="k">end</span> <span class="o">=</span> <span class="mi">1</span><span class="p">)</span> <span class="n">line</span>
-<a name="ln-357"></a>            <span class="n">line_trim</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">line</span><span class="p">))</span>
-<a name="ln-358"></a>            <span class="n">ilength</span> <span class="o">=</span> <span class="nb">len</span><span class="p">(</span><span class="n">line_trim</span><span class="p">)</span>
-<a name="ln-359"></a>            <span class="k">if</span> <span class="p">((</span><span class="n">ilength</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">))</span> <span class="k">then </span>
-<a name="ln-360"></a><span class="k">               </span><span class="n">ifirst</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-361"></a>               <span class="c">! Read the pair of tokens. The first one is the parameter name, the second is the value.</span>
-<a name="ln-362"></a>               <span class="n">param_name</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line_trim</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span>
-<a name="ln-363"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">param_name</span> <span class="o">==</span> <span class="s1">&#39;&#39;</span><span class="p">)</span> <span class="k">cycle</span> <span class="c">! No parameter name (usually because this line is commented out)</span>
-<a name="ln-364"></a>               <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_name</span><span class="p">)</span>
-<a name="ln-365"></a>               <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-366"></a>               <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line_trim</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span>
-<a name="ln-367"></a>               <span class="k">select case</span> <span class="p">(</span><span class="n">param_name</span><span class="p">)</span>
-<a name="ln-368"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;T0&quot;</span><span class="p">)</span>
-<a name="ln-369"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">t0</span>
-<a name="ln-370"></a>                  <span class="n">t0_set</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-371"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;TSTOP&quot;</span><span class="p">)</span>
-<a name="ln-372"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">tstop</span>
-<a name="ln-373"></a>                  <span class="n">tstop_set</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-374"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;DT&quot;</span><span class="p">)</span>
-<a name="ln-375"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">dt</span>
-<a name="ln-376"></a>                  <span class="n">dt_set</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-377"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;CB_IN&quot;</span><span class="p">)</span>
-<a name="ln-378"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">incbfile</span> <span class="o">=</span> <span class="n">param_value</span>
-<a name="ln-379"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;PL_IN&quot;</span><span class="p">)</span>
-<a name="ln-380"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">inplfile</span> <span class="o">=</span> <span class="n">param_value</span>
-<a name="ln-381"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;TP_IN&quot;</span><span class="p">)</span>
-<a name="ln-382"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">intpfile</span> <span class="o">=</span> <span class="n">param_value</span>
-<a name="ln-383"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;IN_TYPE&quot;</span><span class="p">)</span>
-<a name="ln-384"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-385"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">in_type</span> <span class="o">=</span> <span class="n">param_value</span>
-<a name="ln-386"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;ISTEP_OUT&quot;</span><span class="p">)</span>
-<a name="ln-387"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">istep_out</span>
-<a name="ln-388"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;BIN_OUT&quot;</span><span class="p">)</span>
-<a name="ln-389"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">outfile</span> <span class="o">=</span> <span class="n">param_value</span>
-<a name="ln-390"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;OUT_TYPE&quot;</span><span class="p">)</span>
-<a name="ln-391"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-392"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">out_type</span> <span class="o">=</span> <span class="n">param_value</span>
-<a name="ln-393"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;OUT_FORM&quot;</span><span class="p">)</span>
-<a name="ln-394"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-395"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">out_form</span> <span class="o">=</span> <span class="n">param_value</span>
-<a name="ln-396"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;OUT_STAT&quot;</span><span class="p">)</span>
-<a name="ln-397"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-398"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">out_stat</span> <span class="o">=</span> <span class="n">param_value</span>
-<a name="ln-399"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;ISTEP_DUMP&quot;</span><span class="p">)</span>
-<a name="ln-400"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">istep_dump</span>
-<a name="ln-401"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;CHK_CLOSE&quot;</span><span class="p">)</span>
-<a name="ln-402"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-403"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;T&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lclose</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-404"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;CHK_RMIN&quot;</span><span class="p">)</span>
-<a name="ln-405"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">rmin</span>
-<a name="ln-406"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;CHK_RMAX&quot;</span><span class="p">)</span>
-<a name="ln-407"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">rmax</span>
-<a name="ln-408"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;CHK_EJECT&quot;</span><span class="p">)</span>
-<a name="ln-409"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">rmaxu</span>
-<a name="ln-410"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;CHK_QMIN&quot;</span><span class="p">)</span>
-<a name="ln-411"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin</span>
-<a name="ln-412"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;CHK_QMIN_COORD&quot;</span><span class="p">)</span>
+<a name="ln-228"></a>      <span class="k">return</span>
+<a name="ln-229"></a><span class="k">   end subroutine </span><span class="n">io_dump_system</span>
+<a name="ln-230"></a>
+<a name="ln-231"></a>
+<a name="ln-232"></a>   <span class="k">module function </span><span class="n">io_get_args</span><span class="p">(</span><span class="n">integrator</span><span class="p">,</span> <span class="n">param_file_name</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">ierr</span><span class="p">)</span>
+<a name="ln-233"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-234"></a>      <span class="c">!!</span>
+<a name="ln-235"></a>      <span class="c">!! Reads in the name of the parameter file from command line arguments. </span>
+<a name="ln-236"></a>      <span class="k">implicit none</span>
+<a name="ln-237"></a>      <span class="c">! Arguments</span>
+<a name="ln-238"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">integrator</span>      <span class="c">!! Symbolic code of the requested integrator  </span>
+<a name="ln-239"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">param_file_name</span> <span class="c">!! Name of the input parameters file</span>
+<a name="ln-240"></a>      <span class="c">! Result</span>
+<a name="ln-241"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">ierr</span>             <span class="c">!! I/O error code</span>
+<a name="ln-242"></a>      <span class="c">! Internals</span>
+<a name="ln-243"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arg1</span><span class="p">,</span> <span class="n">arg2</span>
+<a name="ln-244"></a>      <span class="kt">integer</span> <span class="kd">::</span> <span class="n">narg</span><span class="p">,</span><span class="n">ierr_arg1</span><span class="p">,</span> <span class="n">ierr_arg2</span>
+<a name="ln-245"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span><span class="k">parameter</span>    <span class="kd">::</span> <span class="n">linefmt</span> <span class="o">=</span> <span class="s1">&#39;(A)&#39;</span>
+<a name="ln-246"></a>
+<a name="ln-247"></a>      <span class="n">ierr</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span> <span class="c">! Default is to fail</span>
+<a name="ln-248"></a>      <span class="n">narg</span> <span class="o">=</span> <span class="nb">command_argument_count</span><span class="p">()</span> <span class="c">!</span>
+<a name="ln-249"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">narg</span> <span class="o">==</span> <span class="mi">2</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-250"></a><span class="k">         call </span><span class="nb">get_command_argument</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">arg1</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="n">ierr_arg1</span><span class="p">)</span>
+<a name="ln-251"></a>         <span class="k">call </span><span class="nb">get_command_argument</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">arg2</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="n">ierr_arg2</span><span class="p">)</span>
+<a name="ln-252"></a>         <span class="k">if</span> <span class="p">((</span><span class="n">ierr_arg1</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">ierr_arg2</span> <span class="o">==</span> <span class="mi">0</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-253"></a><span class="k">            </span><span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-254"></a>            <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">arg1</span><span class="p">)</span>
+<a name="ln-255"></a>            <span class="k">select case</span><span class="p">(</span><span class="n">arg1</span><span class="p">)</span>
+<a name="ln-256"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;BS&#39;</span><span class="p">)</span>
+<a name="ln-257"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">BS</span>
+<a name="ln-258"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;HELIO&#39;</span><span class="p">)</span>
+<a name="ln-259"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">HELIO</span>
+<a name="ln-260"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;RA15&#39;</span><span class="p">)</span>
+<a name="ln-261"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">RA15</span>
+<a name="ln-262"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;TU4&#39;</span><span class="p">)</span>
+<a name="ln-263"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">TU4</span>
+<a name="ln-264"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;WHM&#39;</span><span class="p">)</span>
+<a name="ln-265"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">WHM</span>
+<a name="ln-266"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;RMVS&#39;</span><span class="p">)</span>
+<a name="ln-267"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">RMVS</span>
+<a name="ln-268"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;SYMBA&#39;</span><span class="p">)</span>
+<a name="ln-269"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">SYMBA</span>
+<a name="ln-270"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;RINGMOONS&#39;</span><span class="p">)</span>
+<a name="ln-271"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">RINGMOONS</span>
+<a name="ln-272"></a>            <span class="k">case </span><span class="n">default</span>
+<a name="ln-273"></a>               <span class="n">integrator</span> <span class="o">=</span> <span class="n">UNKNOWN_INTEGRATOR</span>
+<a name="ln-274"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">arg1</span><span class="p">))</span> <span class="o">//</span> <span class="s1">&#39; is not a valid integrator.&#39;</span>
+<a name="ln-275"></a>               <span class="n">ierr</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-276"></a>            <span class="k">end select</span>
+<a name="ln-277"></a><span class="k">            </span><span class="n">param_file_name</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">arg2</span><span class="p">))</span>
+<a name="ln-278"></a>         <span class="k">end if</span>
+<a name="ln-279"></a><span class="k">      else </span>
+<a name="ln-280"></a><span class="k">         call </span><span class="nb">get_command_argument</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">arg1</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="n">ierr_arg1</span><span class="p">)</span>
+<a name="ln-281"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ierr_arg1</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-282"></a><span class="k">            if</span> <span class="p">(</span><span class="n">arg1</span> <span class="o">==</span> <span class="s1">&#39;-v&#39;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">arg1</span> <span class="o">==</span> <span class="s1">&#39;--version&#39;</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-283"></a><span class="k">               call </span><span class="n">util_version</span><span class="p">()</span> 
+<a name="ln-284"></a>            <span class="k">else if</span> <span class="p">(</span><span class="n">arg1</span> <span class="o">==</span> <span class="s1">&#39;-h&#39;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">arg1</span> <span class="o">==</span> <span class="s1">&#39;--help&#39;</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-285"></a><span class="k">               call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">HELP</span><span class="p">)</span>
+<a name="ln-286"></a>            <span class="k">end if</span>
+<a name="ln-287"></a><span class="k">         end if</span>
+<a name="ln-288"></a><span class="k">      end if</span>
+<a name="ln-289"></a><span class="k">      if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">USAGE</span><span class="p">)</span> 
+<a name="ln-290"></a>
+<a name="ln-291"></a>      <span class="k">return</span>
+<a name="ln-292"></a><span class="k">   end function </span><span class="n">io_get_args</span>
+<a name="ln-293"></a>
+<a name="ln-294"></a>
+<a name="ln-295"></a>   <span class="k">module function </span><span class="n">io_get_token</span><span class="p">(</span><span class="n">buffer</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">token</span><span class="p">)</span>
+<a name="ln-296"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-297"></a>      <span class="c">!!</span>
+<a name="ln-298"></a>      <span class="c">!! Retrieves a character token from an input string. Here a token is defined as any set of contiguous non-blank characters not </span>
+<a name="ln-299"></a>      <span class="c">!! beginning with or containing &quot;!&quot;. If &quot;!&quot; is present, any remaining part of the buffer including the &quot;!&quot; is ignored</span>
+<a name="ln-300"></a>      <span class="c">!!</span>
+<a name="ln-301"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_get_token.f90</span>
+<a name="ln-302"></a>      <span class="k">implicit none</span>
+<a name="ln-303"></a>      <span class="c">! Arguments</span>
+<a name="ln-304"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">buffer</span>         <span class="c">!! Input string buffer</span>
+<a name="ln-305"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ifirst</span>         <span class="c">!! Index of the buffer at which to start the search for a token</span>
+<a name="ln-306"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ilast</span>          <span class="c">!! Index of the buffer at the end of the returned token</span>
+<a name="ln-307"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>           <span class="c">!! Error code</span>
+<a name="ln-308"></a>      <span class="c">! Result</span>
+<a name="ln-309"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span>   <span class="kd">::</span> <span class="n">token</span>          <span class="c">!! Returned token string</span>
+<a name="ln-310"></a>      <span class="c">! Internals</span>
+<a name="ln-311"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span><span class="p">,</span><span class="n">ilength</span>
+<a name="ln-312"></a>   
+<a name="ln-313"></a>      <span class="n">ilength</span> <span class="o">=</span> <span class="nb">len</span><span class="p">(</span><span class="n">buffer</span><span class="p">)</span>
+<a name="ln-314"></a>   
+<a name="ln-315"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ifirst</span> <span class="o">&gt;</span> <span class="n">ilength</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-316"></a><span class="k">          </span><span class="n">ilast</span> <span class="o">=</span> <span class="n">ifirst</span>
+<a name="ln-317"></a>          <span class="n">ierr</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span> <span class="c">!! Bad input</span>
+<a name="ln-318"></a>          <span class="n">token</span> <span class="o">=</span> <span class="s1">&#39;&#39;</span>
+<a name="ln-319"></a>          <span class="k">return</span>
+<a name="ln-320"></a><span class="k">      end if</span>
+<a name="ln-321"></a><span class="k">      do </span><span class="n">i</span> <span class="o">=</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilength</span>
+<a name="ln-322"></a>          <span class="k">if</span> <span class="p">(</span><span class="n">buffer</span><span class="p">(</span><span class="n">i</span><span class="p">:</span><span class="n">i</span><span class="p">)</span> <span class="o">/=</span> <span class="s1">&#39; &#39;</span><span class="p">)</span> <span class="k">exit</span>
+<a name="ln-323"></a><span class="k">      end do</span>
+<a name="ln-324"></a><span class="k">      if</span> <span class="p">((</span><span class="n">i</span> <span class="o">&gt;</span> <span class="n">ilength</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">buffer</span><span class="p">(</span><span class="n">i</span><span class="p">:</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="s1">&#39;!&#39;</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-325"></a><span class="k">          </span><span class="n">ifirst</span> <span class="o">=</span> <span class="n">i</span>
+<a name="ln-326"></a>          <span class="n">ilast</span> <span class="o">=</span> <span class="n">i</span>
+<a name="ln-327"></a>          <span class="n">ierr</span> <span class="o">=</span> <span class="o">-</span><span class="mi">2</span> <span class="c">!! No valid token</span>
+<a name="ln-328"></a>          <span class="n">token</span> <span class="o">=</span> <span class="s1">&#39;&#39;</span>
+<a name="ln-329"></a>          <span class="k">return</span>
+<a name="ln-330"></a><span class="k">      end if</span>
+<a name="ln-331"></a><span class="k">      </span><span class="n">ifirst</span> <span class="o">=</span> <span class="n">i</span>
+<a name="ln-332"></a>      <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilength</span>
+<a name="ln-333"></a>          <span class="k">if</span> <span class="p">((</span><span class="n">buffer</span><span class="p">(</span><span class="n">i</span><span class="p">:</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="s1">&#39; &#39;</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">buffer</span><span class="p">(</span><span class="n">i</span><span class="p">:</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="s1">&#39;!&#39;</span><span class="p">))</span> <span class="k">exit</span>
+<a name="ln-334"></a><span class="k">      end do</span>
+<a name="ln-335"></a><span class="k">      </span><span class="n">ilast</span> <span class="o">=</span> <span class="n">i</span> <span class="o">-</span> <span class="mi">1</span>
+<a name="ln-336"></a>      <span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-337"></a>   
+<a name="ln-338"></a>      <span class="n">token</span> <span class="o">=</span> <span class="n">buffer</span><span class="p">(</span><span class="n">ifirst</span><span class="p">:</span><span class="n">ilast</span><span class="p">)</span>
+<a name="ln-339"></a>
+<a name="ln-340"></a>      <span class="k">return</span>
+<a name="ln-341"></a><span class="k">   end function </span><span class="n">io_get_token</span>
+<a name="ln-342"></a>
+<a name="ln-343"></a>
+<a name="ln-344"></a>   <span class="k">module subroutine </span><span class="n">io_param_reader</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
+<a name="ln-345"></a>      <span class="c">!! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</span>
+<a name="ln-346"></a>      <span class="c">!!</span>
+<a name="ln-347"></a>      <span class="c">!! Read in parameters for the integration</span>
+<a name="ln-348"></a>      <span class="c">!! Currently this procedure does not work in user-defined derived-type input mode </span>
+<a name="ln-349"></a>      <span class="c">!!    e.g. read(unit,&#39;(DT)&#39;) param </span>
+<a name="ln-350"></a>      <span class="c">!! as the newline characters are ignored in the input file when compiled in ifort.</span>
+<a name="ln-351"></a>      <span class="c">!!</span>
+<a name="ln-352"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_init_param.f90</span>
+<a name="ln-353"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine io_init_param.f</span>
+<a name="ln-354"></a>      <span class="k">implicit none</span>
+<a name="ln-355"></a>      <span class="c">! Arguments</span>
+<a name="ln-356"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! Collection of parameters</span>
+<a name="ln-357"></a>      <span class="kt">integer</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>                       <span class="kd">::</span> <span class="n">unit</span>       <span class="c">!! File unit number</span>
+<a name="ln-358"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">iotype</span>     <span class="c">!! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. </span>
+<a name="ln-359"></a>                                                              <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
+<a name="ln-360"></a>      <span class="kt">integer</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>                       <span class="kd">::</span> <span class="n">v_list</span><span class="p">(:)</span>  <span class="c">!! The first element passes the integrator code to the reader</span>
+<a name="ln-361"></a>      <span class="kt">integer</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>                      <span class="kd">::</span> <span class="n">iostat</span>     <span class="c">!! IO status code</span>
+<a name="ln-362"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">iomsg</span>      <span class="c">!! Message to pass if iostat /= 0</span>
+<a name="ln-363"></a>      <span class="c">! Internals</span>
+<a name="ln-364"></a>      <span class="kt">logical</span>                        <span class="kd">::</span> <span class="n">t0_set</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>                  <span class="c">!! Is the initial time set in the input file?</span>
+<a name="ln-365"></a>      <span class="kt">logical</span>                        <span class="kd">::</span> <span class="n">tstop_set</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>               <span class="c">!! Is the final time set in the input file?</span>
+<a name="ln-366"></a>      <span class="kt">logical</span>                        <span class="kd">::</span> <span class="n">dt_set</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>                  <span class="c">!! Is the step size set in the input file?</span>
+<a name="ln-367"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                   <span class="kd">::</span> <span class="n">ilength</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">i</span>         <span class="c">!! Variables used to parse input file</span>
+<a name="ln-368"></a>      <span class="kt">character</span><span class="p">(</span><span class="n">STRMAX</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">line</span>                              <span class="c">!! Line of the input file</span>
+<a name="ln-369"></a>      <span class="kt">character</span> <span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">line_trim</span><span class="p">,</span><span class="n">param_name</span><span class="p">,</span> <span class="n">param_value</span> <span class="c">!! Strings used to parse the param file</span>
+<a name="ln-370"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span>         <span class="kd">::</span> <span class="n">linefmt</span> <span class="o">=</span> <span class="s1">&#39;(A)&#39;</span>                   <span class="c">!! Format code for simple text string</span>
+<a name="ln-371"></a>
+<a name="ln-372"></a>      <span class="c">! Parse the file line by line, extracting tokens then matching them up with known parameters if possible</span>
+<a name="ln-373"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">param</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span> 
+<a name="ln-374"></a>         <span class="k">do</span>
+<a name="ln-375"></a><span class="k">            read</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">unit</span><span class="p">,</span> <span class="n">fmt</span> <span class="o">=</span> <span class="n">linefmt</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">iostat</span><span class="p">,</span> <span class="k">end</span> <span class="o">=</span> <span class="mi">1</span><span class="p">)</span> <span class="n">line</span>
+<a name="ln-376"></a>            <span class="n">line_trim</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">line</span><span class="p">))</span>
+<a name="ln-377"></a>            <span class="n">ilength</span> <span class="o">=</span> <span class="nb">len</span><span class="p">(</span><span class="n">line_trim</span><span class="p">)</span>
+<a name="ln-378"></a>            <span class="k">if</span> <span class="p">((</span><span class="n">ilength</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">))</span> <span class="k">then </span>
+<a name="ln-379"></a><span class="k">               </span><span class="n">ifirst</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-380"></a>               <span class="c">! Read the pair of tokens. The first one is the parameter name, the second is the value.</span>
+<a name="ln-381"></a>               <span class="n">param_name</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line_trim</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span>
+<a name="ln-382"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">param_name</span> <span class="o">==</span> <span class="s1">&#39;&#39;</span><span class="p">)</span> <span class="k">cycle</span> <span class="c">! No parameter name (usually because this line is commented out)</span>
+<a name="ln-383"></a>               <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_name</span><span class="p">)</span>
+<a name="ln-384"></a>               <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-385"></a>               <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line_trim</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span>
+<a name="ln-386"></a>               <span class="k">select case</span> <span class="p">(</span><span class="n">param_name</span><span class="p">)</span>
+<a name="ln-387"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;T0&quot;</span><span class="p">)</span>
+<a name="ln-388"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">t0</span>
+<a name="ln-389"></a>                  <span class="n">t0_set</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-390"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;TSTOP&quot;</span><span class="p">)</span>
+<a name="ln-391"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">tstop</span>
+<a name="ln-392"></a>                  <span class="n">tstop_set</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-393"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;DT&quot;</span><span class="p">)</span>
+<a name="ln-394"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">dt</span>
+<a name="ln-395"></a>                  <span class="n">dt_set</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-396"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;CB_IN&quot;</span><span class="p">)</span>
+<a name="ln-397"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">incbfile</span> <span class="o">=</span> <span class="n">param_value</span>
+<a name="ln-398"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;PL_IN&quot;</span><span class="p">)</span>
+<a name="ln-399"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">inplfile</span> <span class="o">=</span> <span class="n">param_value</span>
+<a name="ln-400"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;TP_IN&quot;</span><span class="p">)</span>
+<a name="ln-401"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">intpfile</span> <span class="o">=</span> <span class="n">param_value</span>
+<a name="ln-402"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;IN_TYPE&quot;</span><span class="p">)</span>
+<a name="ln-403"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-404"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">in_type</span> <span class="o">=</span> <span class="n">param_value</span>
+<a name="ln-405"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;ISTEP_OUT&quot;</span><span class="p">)</span>
+<a name="ln-406"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">istep_out</span>
+<a name="ln-407"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;BIN_OUT&quot;</span><span class="p">)</span>
+<a name="ln-408"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">outfile</span> <span class="o">=</span> <span class="n">param_value</span>
+<a name="ln-409"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;OUT_TYPE&quot;</span><span class="p">)</span>
+<a name="ln-410"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-411"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">out_type</span> <span class="o">=</span> <span class="n">param_value</span>
+<a name="ln-412"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;OUT_FORM&quot;</span><span class="p">)</span>
 <a name="ln-413"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-414"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span> <span class="o">=</span> <span class="n">param_value</span>
-<a name="ln-415"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;CHK_QMIN_RANGE&quot;</span><span class="p">)</span>
-<a name="ln-416"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin_alo</span>
-<a name="ln-417"></a>                  <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-418"></a>                  <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span>
-<a name="ln-419"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin_ahi</span>
-<a name="ln-420"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;ENC_OUT&quot;</span><span class="p">)</span>
-<a name="ln-421"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">enc_out</span> <span class="o">=</span> <span class="n">param_value</span>
-<a name="ln-422"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;DISCARD_OUT&quot;</span><span class="p">)</span>
-<a name="ln-423"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">discard_out</span> <span class="o">=</span> <span class="n">param_value</span>
-<a name="ln-424"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;EXTRA_FORCE&quot;</span><span class="p">)</span>
-<a name="ln-425"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-426"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;T&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lextra_force</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-427"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;BIG_DISCARD&quot;</span><span class="p">)</span>
-<a name="ln-428"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-429"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;T&#39;</span> <span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lbig_discard</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-430"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;RHILL_PRESENT&quot;</span><span class="p">)</span>
-<a name="ln-431"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-432"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;T&#39;</span> <span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lrhill_present</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-433"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;MU2KG&quot;</span><span class="p">)</span>
-<a name="ln-434"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span>
-<a name="ln-435"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;TU2S&quot;</span><span class="p">)</span>
-<a name="ln-436"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">TU2S</span>
-<a name="ln-437"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;DU2M&quot;</span><span class="p">)</span>
-<a name="ln-438"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">DU2M</span>
-<a name="ln-439"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;ENERGY&quot;</span><span class="p">)</span>
-<a name="ln-440"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-441"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;T&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lenergy</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-442"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;GR&quot;</span><span class="p">)</span>
-<a name="ln-443"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-444"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;T&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lgr</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span> 
-<a name="ln-445"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;ROTATION&quot;</span><span class="p">)</span>
+<a name="ln-414"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">out_form</span> <span class="o">=</span> <span class="n">param_value</span>
+<a name="ln-415"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;OUT_STAT&quot;</span><span class="p">)</span>
+<a name="ln-416"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-417"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">out_stat</span> <span class="o">=</span> <span class="n">param_value</span>
+<a name="ln-418"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;ISTEP_DUMP&quot;</span><span class="p">)</span>
+<a name="ln-419"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">istep_dump</span>
+<a name="ln-420"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;CHK_CLOSE&quot;</span><span class="p">)</span>
+<a name="ln-421"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-422"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;T&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lclose</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-423"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;CHK_RMIN&quot;</span><span class="p">)</span>
+<a name="ln-424"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">rmin</span>
+<a name="ln-425"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;CHK_RMAX&quot;</span><span class="p">)</span>
+<a name="ln-426"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">rmax</span>
+<a name="ln-427"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;CHK_EJECT&quot;</span><span class="p">)</span>
+<a name="ln-428"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">rmaxu</span>
+<a name="ln-429"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;CHK_QMIN&quot;</span><span class="p">)</span>
+<a name="ln-430"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin</span>
+<a name="ln-431"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;CHK_QMIN_COORD&quot;</span><span class="p">)</span>
+<a name="ln-432"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-433"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span> <span class="o">=</span> <span class="n">param_value</span>
+<a name="ln-434"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;CHK_QMIN_RANGE&quot;</span><span class="p">)</span>
+<a name="ln-435"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin_alo</span>
+<a name="ln-436"></a>                  <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-437"></a>                  <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span>
+<a name="ln-438"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin_ahi</span>
+<a name="ln-439"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;ENC_OUT&quot;</span><span class="p">)</span>
+<a name="ln-440"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">enc_out</span> <span class="o">=</span> <span class="n">param_value</span>
+<a name="ln-441"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;DISCARD_OUT&quot;</span><span class="p">)</span>
+<a name="ln-442"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">discard_out</span> <span class="o">=</span> <span class="n">param_value</span>
+<a name="ln-443"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;ENERGY_OUT&quot;</span><span class="p">)</span>
+<a name="ln-444"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">energy_out</span> <span class="o">=</span> <span class="n">param_value</span>
+<a name="ln-445"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;EXTRA_FORCE&quot;</span><span class="p">)</span>
 <a name="ln-446"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-447"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;T&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lrotation</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span> 
-<a name="ln-448"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;TIDES&quot;</span><span class="p">)</span>
+<a name="ln-447"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;T&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lextra_force</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-448"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;BIG_DISCARD&quot;</span><span class="p">)</span>
 <a name="ln-449"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-450"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;T&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">ltides</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span> 
-<a name="ln-451"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;FIRSTKICK&quot;</span><span class="p">)</span>
+<a name="ln-450"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;T&#39;</span> <span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lbig_discard</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-451"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;RHILL_PRESENT&quot;</span><span class="p">)</span>
 <a name="ln-452"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-453"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;NO&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;F&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lfirstkick</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> 
-<a name="ln-454"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;FIRSTENERGY&quot;</span><span class="p">)</span>
-<a name="ln-455"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-456"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;NO&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;F&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lfirstenergy</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> 
-<a name="ln-457"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;EORBIT_ORIG&quot;</span><span class="p">)</span>
-<a name="ln-458"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Eorbit_orig</span> 
-<a name="ln-459"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;MTOT_ORIG&quot;</span><span class="p">)</span>
-<a name="ln-460"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Mtot_orig</span> 
-<a name="ln-461"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;LTOT_ORIG&quot;</span><span class="p">)</span>
-<a name="ln-462"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Ltot_orig</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-463"></a>                  <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">2</span><span class="p">,</span> <span class="n">NDIM</span>
-<a name="ln-464"></a>                     <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-465"></a>                     <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span> 
-<a name="ln-466"></a>                     <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Ltot_orig</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-467"></a>                  <span class="k">end do</span>
-<a name="ln-468"></a><span class="k">                     </span><span class="n">param</span><span class="p">%</span><span class="n">Lmag_orig</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">Ltot_orig</span><span class="p">(:))</span>
-<a name="ln-469"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;LORBIT_ORIG&quot;</span><span class="p">)</span>
-<a name="ln-470"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lorbit_orig</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-471"></a>                  <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">2</span><span class="p">,</span> <span class="n">NDIM</span>
-<a name="ln-472"></a>                     <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-473"></a>                     <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span> 
-<a name="ln-474"></a>                     <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lorbit_orig</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-475"></a>                  <span class="k">end do</span>
-<a name="ln-476"></a><span class="k">               case</span><span class="p">(</span><span class="s2">&quot;LSPIN_ORIG&quot;</span><span class="p">)</span>
-<a name="ln-477"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lspin_orig</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-478"></a>                  <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">2</span><span class="p">,</span> <span class="n">NDIM</span>
-<a name="ln-479"></a>                     <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-480"></a>                     <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span> 
-<a name="ln-481"></a>                     <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lspin_orig</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-482"></a>                  <span class="k">end do</span>
-<a name="ln-483"></a><span class="k">               case</span><span class="p">(</span><span class="s2">&quot;LESCAPE&quot;</span><span class="p">)</span>
-<a name="ln-484"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lescape</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-485"></a>                  <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">2</span><span class="p">,</span> <span class="n">NDIM</span>
-<a name="ln-486"></a>                     <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-487"></a>                     <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span> 
-<a name="ln-488"></a>                     <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lescape</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-489"></a>                  <span class="k">end do</span>
-<a name="ln-490"></a><span class="k">               case</span><span class="p">(</span><span class="s2">&quot;MESCAPE&quot;</span><span class="p">)</span>
-<a name="ln-491"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Mescape</span> 
-<a name="ln-492"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;ECOLLISIONS&quot;</span><span class="p">)</span>
-<a name="ln-493"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Ecollisions</span>
-<a name="ln-494"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;EUNTRACKED&quot;</span><span class="p">)</span>
-<a name="ln-495"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Euntracked</span>
-<a name="ln-496"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;NPLMAX&quot;</span><span class="p">,</span> <span class="s2">&quot;NTPMAX&quot;</span><span class="p">,</span> <span class="s2">&quot;MTINY&quot;</span><span class="p">,</span> <span class="s2">&quot;PARTICLE_FILE&quot;</span><span class="p">,</span> <span class="s2">&quot;FRAGMENTATION&quot;</span><span class="p">,</span> <span class="s2">&quot;SEED&quot;</span><span class="p">,</span> <span class="s2">&quot;YARKOVSKY&quot;</span><span class="p">,</span> <span class="s2">&quot;YORP&quot;</span><span class="p">)</span> <span class="c">! Ignore SyMBA-specific, not-yet-implemented, or obsolete input parameters</span>
-<a name="ln-497"></a>               <span class="k">case </span><span class="n">default</span>
-<a name="ln-498"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Unknown parameter -&gt; &quot;</span><span class="p">,</span><span class="n">param_name</span>
-<a name="ln-499"></a>                  <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-500"></a>                  <span class="k">return</span>
-<a name="ln-501"></a><span class="k">               end select</span>
-<a name="ln-502"></a><span class="k">            end if</span>
-<a name="ln-503"></a><span class="k">         end do</span>
-<a name="ln-504"></a><span class="k">         </span><span class="mi">1</span> <span class="k">continue</span>
-<a name="ln-505"></a><span class="k">         </span><span class="n">iostat</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-506"></a>
-<a name="ln-507"></a>         <span class="c">!! Do basic sanity checks on the input values</span>
-<a name="ln-508"></a>         <span class="k">if</span> <span class="p">((.</span><span class="nb">not</span><span class="p">.</span> <span class="n">t0_set</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="n">tstop_set</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="n">dt_set</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-509"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Valid simulation time not set&#39;</span>
-<a name="ln-510"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-511"></a>            <span class="k">return</span>
-<a name="ln-512"></a><span class="k">         end if</span>
-<a name="ln-513"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">dt</span> <span class="o">&lt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-514"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid timestep: &#39;</span>
-<a name="ln-515"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-516"></a>            <span class="k">return</span>
-<a name="ln-517"></a><span class="k">         end if</span>
-<a name="ln-518"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">inplfile</span> <span class="o">==</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-519"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;No valid massive body file in input file&#39;</span>
-<a name="ln-520"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-521"></a>            <span class="k">return</span>
-<a name="ln-522"></a><span class="k">         end if</span>
-<a name="ln-523"></a><span class="k">         if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span> <span class="o">/=</span> <span class="n">REAL8_TYPE</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span> <span class="o">/=</span> <span class="s2">&quot;ASCII&quot;</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-524"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid input file type:&#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span><span class="p">))</span>
-<a name="ln-525"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-526"></a>            <span class="k">return</span>
-<a name="ln-527"></a><span class="k">         end if</span>
-<a name="ln-528"></a><span class="k">         if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">istep_out</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">istep_dump</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-529"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid istep&#39;</span>
-<a name="ln-530"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-531"></a>            <span class="k">return</span>
-<a name="ln-532"></a><span class="k">         end if</span>
-<a name="ln-533"></a><span class="k">         if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">istep_out</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">outfile</span> <span class="o">==</span> <span class="s2">&quot;&quot;</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-534"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid outfile&#39;</span>
-<a name="ln-535"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-536"></a>            <span class="k">return</span>
-<a name="ln-537"></a><span class="k">         end if</span>
-<a name="ln-538"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">outfile</span> <span class="o">/=</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-539"></a><span class="k">            if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">out_type</span> <span class="o">/=</span> <span class="n">REAL4_TYPE</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_type</span> <span class="o">/=</span> <span class="n">REAL8_TYPE</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">&amp;</span>
-<a name="ln-540"></a>                  <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_type</span> <span class="o">/=</span> <span class="n">SWIFTER_REAL4_TYPE</span><span class="p">)</span>  <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_type</span> <span class="o">/=</span> <span class="n">SWIFTER_REAL8_TYPE</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-541"></a><span class="k">               write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid out_type: &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_type</span><span class="p">))</span>
-<a name="ln-542"></a>               <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-543"></a>               <span class="k">return</span>
-<a name="ln-544"></a><span class="k">            end if</span>
-<a name="ln-545"></a><span class="k">            if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">out_form</span> <span class="o">/=</span> <span class="s2">&quot;EL&quot;</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_form</span> <span class="o">/=</span> <span class="s2">&quot;XV&quot;</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-546"></a><span class="k">               write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid out_form: &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_form</span><span class="p">))</span>
-<a name="ln-547"></a>               <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-548"></a>               <span class="k">return</span>
-<a name="ln-549"></a><span class="k">            end if</span>
-<a name="ln-550"></a><span class="k">            if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span> <span class="o">/=</span> <span class="s2">&quot;NEW&quot;</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span> <span class="o">/=</span> <span class="s2">&quot;REPLACE&quot;</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span> <span class="o">/=</span> <span class="s2">&quot;APPEND&quot;</span><span class="p">)</span>  <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span> <span class="o">/=</span> <span class="s2">&quot;UNKNOWN&quot;</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-551"></a><span class="k">               write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid out_stat: &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">))</span>
-<a name="ln-552"></a>               <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-553"></a>               <span class="k">return</span>
-<a name="ln-554"></a><span class="k">            end if</span>
-<a name="ln-555"></a><span class="k">         end if</span>
-<a name="ln-556"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-557"></a><span class="k">            if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span> <span class="o">/=</span> <span class="s2">&quot;HELIO&quot;</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span> <span class="o">/=</span> <span class="s2">&quot;BARY&quot;</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-558"></a><span class="k">               write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid qmin_coord: &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span><span class="p">))</span>
-<a name="ln-559"></a>               <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-560"></a>               <span class="k">return</span>
-<a name="ln-561"></a><span class="k">            end if</span>
-<a name="ln-562"></a><span class="k">            if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_alo</span> <span class="o">&lt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_ahi</span> <span class="o">&lt;=</span> <span class="mf">0.0_DP</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-563"></a><span class="k">               write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid qmin vals&#39;</span>
+<a name="ln-453"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;T&#39;</span> <span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lrhill_present</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-454"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;MU2KG&quot;</span><span class="p">)</span>
+<a name="ln-455"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span>
+<a name="ln-456"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;TU2S&quot;</span><span class="p">)</span>
+<a name="ln-457"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">TU2S</span>
+<a name="ln-458"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;DU2M&quot;</span><span class="p">)</span>
+<a name="ln-459"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">DU2M</span>
+<a name="ln-460"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;ENERGY&quot;</span><span class="p">)</span>
+<a name="ln-461"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-462"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;T&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lenergy</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-463"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;GR&quot;</span><span class="p">)</span>
+<a name="ln-464"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-465"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;T&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lgr</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span> 
+<a name="ln-466"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;ROTATION&quot;</span><span class="p">)</span>
+<a name="ln-467"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-468"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;T&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lrotation</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span> 
+<a name="ln-469"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;TIDES&quot;</span><span class="p">)</span>
+<a name="ln-470"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-471"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;T&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">ltides</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span> 
+<a name="ln-472"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;FIRSTKICK&quot;</span><span class="p">)</span>
+<a name="ln-473"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-474"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;NO&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;F&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lfirstkick</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> 
+<a name="ln-475"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;FIRSTENERGY&quot;</span><span class="p">)</span>
+<a name="ln-476"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-477"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;NO&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s1">&#39;F&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lfirstenergy</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> 
+<a name="ln-478"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;EORBIT_ORIG&quot;</span><span class="p">)</span>
+<a name="ln-479"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Eorbit_orig</span> 
+<a name="ln-480"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;MTOT_ORIG&quot;</span><span class="p">)</span>
+<a name="ln-481"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Mtot_orig</span> 
+<a name="ln-482"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;LTOT_ORIG&quot;</span><span class="p">)</span>
+<a name="ln-483"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Ltot_orig</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-484"></a>                  <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">2</span><span class="p">,</span> <span class="n">NDIM</span>
+<a name="ln-485"></a>                     <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-486"></a>                     <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span> 
+<a name="ln-487"></a>                     <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Ltot_orig</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-488"></a>                  <span class="k">end do</span>
+<a name="ln-489"></a><span class="k">                     </span><span class="n">param</span><span class="p">%</span><span class="n">Lmag_orig</span> <span class="o">=</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">Ltot_orig</span><span class="p">(:))</span>
+<a name="ln-490"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;LORBIT_ORIG&quot;</span><span class="p">)</span>
+<a name="ln-491"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lorbit_orig</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-492"></a>                  <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">2</span><span class="p">,</span> <span class="n">NDIM</span>
+<a name="ln-493"></a>                     <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-494"></a>                     <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span> 
+<a name="ln-495"></a>                     <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lorbit_orig</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-496"></a>                  <span class="k">end do</span>
+<a name="ln-497"></a><span class="k">               case</span><span class="p">(</span><span class="s2">&quot;LSPIN_ORIG&quot;</span><span class="p">)</span>
+<a name="ln-498"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lspin_orig</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-499"></a>                  <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">2</span><span class="p">,</span> <span class="n">NDIM</span>
+<a name="ln-500"></a>                     <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-501"></a>                     <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span> 
+<a name="ln-502"></a>                     <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lspin_orig</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-503"></a>                  <span class="k">end do</span>
+<a name="ln-504"></a><span class="k">               case</span><span class="p">(</span><span class="s2">&quot;LESCAPE&quot;</span><span class="p">)</span>
+<a name="ln-505"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lescape</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-506"></a>                  <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">2</span><span class="p">,</span> <span class="n">NDIM</span>
+<a name="ln-507"></a>                     <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-508"></a>                     <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span> 
+<a name="ln-509"></a>                     <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lescape</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-510"></a>                  <span class="k">end do</span>
+<a name="ln-511"></a><span class="k">               case</span><span class="p">(</span><span class="s2">&quot;MESCAPE&quot;</span><span class="p">)</span>
+<a name="ln-512"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Mescape</span> 
+<a name="ln-513"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;ECOLLISIONS&quot;</span><span class="p">)</span>
+<a name="ln-514"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Ecollisions</span>
+<a name="ln-515"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;EUNTRACKED&quot;</span><span class="p">)</span>
+<a name="ln-516"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Euntracked</span>
+<a name="ln-517"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;NPLMAX&quot;</span><span class="p">,</span> <span class="s2">&quot;NTPMAX&quot;</span><span class="p">,</span> <span class="s2">&quot;GMTINY&quot;</span><span class="p">,</span> <span class="s2">&quot;PARTICLE_OUT&quot;</span><span class="p">,</span> <span class="s2">&quot;FRAGMENTATION&quot;</span><span class="p">,</span> <span class="s2">&quot;SEED&quot;</span><span class="p">,</span> <span class="s2">&quot;YARKOVSKY&quot;</span><span class="p">,</span> <span class="s2">&quot;YORP&quot;</span><span class="p">)</span> <span class="c">! Ignore SyMBA-specific, not-yet-implemented, or obsolete input parameters</span>
+<a name="ln-518"></a>               <span class="k">case </span><span class="n">default</span>
+<a name="ln-519"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Unknown parameter -&gt; &quot;</span><span class="p">,</span><span class="n">param_name</span>
+<a name="ln-520"></a>                  <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-521"></a>                  <span class="k">return</span>
+<a name="ln-522"></a><span class="k">               end select</span>
+<a name="ln-523"></a><span class="k">            end if</span>
+<a name="ln-524"></a><span class="k">         end do</span>
+<a name="ln-525"></a><span class="k">         </span><span class="mi">1</span> <span class="k">continue</span>
+<a name="ln-526"></a><span class="k">         </span><span class="n">iostat</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-527"></a>
+<a name="ln-528"></a>         <span class="c">!! Do basic sanity checks on the input values</span>
+<a name="ln-529"></a>         <span class="k">if</span> <span class="p">((.</span><span class="nb">not</span><span class="p">.</span> <span class="n">t0_set</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="n">tstop_set</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="n">dt_set</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-530"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Valid simulation time not set&#39;</span>
+<a name="ln-531"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-532"></a>            <span class="k">return</span>
+<a name="ln-533"></a><span class="k">         end if</span>
+<a name="ln-534"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">dt</span> <span class="o">&lt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-535"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid timestep: &#39;</span>
+<a name="ln-536"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-537"></a>            <span class="k">return</span>
+<a name="ln-538"></a><span class="k">         end if</span>
+<a name="ln-539"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">inplfile</span> <span class="o">==</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-540"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;No valid massive body file in input file&#39;</span>
+<a name="ln-541"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-542"></a>            <span class="k">return</span>
+<a name="ln-543"></a><span class="k">         end if</span>
+<a name="ln-544"></a><span class="k">         if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span> <span class="o">/=</span> <span class="n">REAL8_TYPE</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span> <span class="o">/=</span> <span class="s2">&quot;ASCII&quot;</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-545"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid input file type:&#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span><span class="p">))</span>
+<a name="ln-546"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-547"></a>            <span class="k">return</span>
+<a name="ln-548"></a><span class="k">         end if</span>
+<a name="ln-549"></a><span class="k">         if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">istep_out</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">istep_dump</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-550"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid istep&#39;</span>
+<a name="ln-551"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-552"></a>            <span class="k">return</span>
+<a name="ln-553"></a><span class="k">         end if</span>
+<a name="ln-554"></a><span class="k">         if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">istep_out</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">outfile</span> <span class="o">==</span> <span class="s2">&quot;&quot;</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-555"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid outfile&#39;</span>
+<a name="ln-556"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-557"></a>            <span class="k">return</span>
+<a name="ln-558"></a><span class="k">         end if</span>
+<a name="ln-559"></a><span class="k">         </span><span class="n">param</span><span class="p">%</span><span class="n">lrestart</span> <span class="o">=</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span> <span class="o">==</span> <span class="s2">&quot;APPEND&quot;</span><span class="p">)</span>
+<a name="ln-560"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">outfile</span> <span class="o">/=</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-561"></a><span class="k">            if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">out_type</span> <span class="o">/=</span> <span class="n">REAL4_TYPE</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_type</span> <span class="o">/=</span> <span class="n">REAL8_TYPE</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">&amp;</span>
+<a name="ln-562"></a>                  <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_type</span> <span class="o">/=</span> <span class="n">SWIFTER_REAL4_TYPE</span><span class="p">)</span>  <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_type</span> <span class="o">/=</span> <span class="n">SWIFTER_REAL8_TYPE</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-563"></a><span class="k">               write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid out_type: &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_type</span><span class="p">))</span>
 <a name="ln-564"></a>               <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
 <a name="ln-565"></a>               <span class="k">return</span>
 <a name="ln-566"></a><span class="k">            end if</span>
-<a name="ln-567"></a><span class="k">         end if</span>
-<a name="ln-568"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">.</span><span class="nb">not</span><span class="p">.</span> <span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-569"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Tides require rotation to be turned on&#39;</span>
-<a name="ln-570"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-571"></a>            <span class="k">return</span>
-<a name="ln-572"></a><span class="k">         end if</span>
-<a name="ln-573"></a>
-<a name="ln-574"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;T0             = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">t0</span>
-<a name="ln-575"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;TSTOP          = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">tstop</span>
-<a name="ln-576"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;DT             = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">dt</span>
-<a name="ln-577"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;CB_IN          = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">incbfile</span><span class="p">))</span>
-<a name="ln-578"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;PL_IN          = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">inplfile</span><span class="p">))</span>
-<a name="ln-579"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;TP_IN          = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">intpfile</span><span class="p">))</span>
-<a name="ln-580"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;IN_TYPE        = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span><span class="p">))</span>
-<a name="ln-581"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;ISTEP_OUT      = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">istep_out</span>
-<a name="ln-582"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;BIN_OUT        = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">outfile</span><span class="p">))</span>
-<a name="ln-583"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;OUT_TYPE       = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_type</span><span class="p">))</span>
-<a name="ln-584"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;OUT_FORM       = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_form</span><span class="p">))</span>
-<a name="ln-585"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;OUT_STAT       = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">))</span>
-<a name="ln-586"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;ISTEP_DUMP     = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">istep_dump</span>
-<a name="ln-587"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;CHK_CLOSE      = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">lclose</span>
-<a name="ln-588"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;CHK_RMIN       = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">rmin</span>
-<a name="ln-589"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;CHK_RMAX       = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">rmax</span>
-<a name="ln-590"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;CHK_EJECT      = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">rmaxu</span>
-<a name="ln-591"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;CHK_QMIN       = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">qmin</span>
-<a name="ln-592"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;CHK_QMIN_COORD = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span><span class="p">))</span>
-<a name="ln-593"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;CHK_QMIN_RANGE = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_alo</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin_ahi</span>
-<a name="ln-594"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;EXTRA_FORCE    = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">lextra_force</span>
-<a name="ln-595"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;RHILL_PRESENT  = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">lrhill_present</span>
-<a name="ln-596"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;ROTATION      = &quot;</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">lrotation</span>
-<a name="ln-597"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;TIDES         = &quot;</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">ltides</span>
-<a name="ln-598"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;ENERGY         = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">lenergy</span>
-<a name="ln-599"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;MU2KG          = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span>       
-<a name="ln-600"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;TU2S           = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">TU2S</span>        
-<a name="ln-601"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;DU2M           = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">DU2M</span>        
-<a name="ln-602"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">enc_out</span><span class="p">))</span> <span class="o">/=</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-603"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;ENC_OUT        = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">enc_out</span><span class="p">))</span>
-<a name="ln-604"></a>         <span class="k">else</span>
-<a name="ln-605"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;! ENC_OUT not set: Encounters will not be recorded to file&quot;</span>
-<a name="ln-606"></a>         <span class="k">end if</span>
-<a name="ln-607"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">discard_out</span><span class="p">))</span> <span class="o">/=</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-608"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;DISCARD_OUT    = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">discard_out</span><span class="p">))</span>
-<a name="ln-609"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;BIG_DISCARD    = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">lbig_discard</span>
-<a name="ln-610"></a>         <span class="k">else</span>
-<a name="ln-611"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;! DISCARD_OUT not set: Discards will not be recorded to file&quot;</span>
-<a name="ln-612"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;! BIG_DISCARD    = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">lbig_discard</span>
-<a name="ln-613"></a>         <span class="k">end if</span>
-<a name="ln-614"></a>
-<a name="ln-615"></a><span class="k">         if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">TU2S</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">DU2M</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-616"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid unit conversion factor&#39;</span>
-<a name="ln-617"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-618"></a>            <span class="k">return</span>
-<a name="ln-619"></a><span class="k">         end if</span>
-<a name="ln-620"></a>
-<a name="ln-621"></a>         <span class="c">! Calculate the G for the system units</span>
-<a name="ln-622"></a>         <span class="n">param</span><span class="p">%</span><span class="n">GU</span> <span class="o">=</span> <span class="n">GC</span> <span class="o">/</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">DU2M</span><span class="o">**</span><span class="mi">3</span> <span class="o">/</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span> <span class="o">*</span> <span class="n">param</span><span class="p">%</span><span class="n">TU2S</span><span class="o">**</span><span class="mi">2</span><span class="p">))</span>
-<a name="ln-623"></a>
-<a name="ln-624"></a>         <span class="c">! Calculate the inverse speed of light in the system units</span>
-<a name="ln-625"></a>         <span class="n">param</span><span class="p">%</span><span class="n">inv_c2</span> <span class="o">=</span> <span class="n">einsteinC</span> <span class="o">*</span> <span class="n">param</span><span class="p">%</span><span class="n">TU2S</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">DU2M</span>
-<a name="ln-626"></a>         <span class="n">param</span><span class="p">%</span><span class="n">inv_c2</span> <span class="o">=</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">inv_c2</span><span class="p">)</span><span class="o">**</span><span class="p">(</span><span class="o">-</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-627"></a>
-<a name="ln-628"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">integrator</span> <span class="o">=&gt;</span> <span class="n">v_list</span><span class="p">(</span><span class="mi">1</span><span class="p">))</span>
-<a name="ln-629"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">integrator</span> <span class="o">==</span> <span class="n">RMVS</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-630"></a><span class="k">               if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">param</span><span class="p">%</span><span class="n">lclose</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-631"></a><span class="k">                  write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;This integrator requires CHK_CLOSE to be enabled.&#39;</span>
-<a name="ln-632"></a>                  <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-633"></a>                  <span class="k">return</span>
-<a name="ln-634"></a><span class="k">               end if</span>
-<a name="ln-635"></a><span class="k">            end if</span>
-<a name="ln-636"></a>      
-<a name="ln-637"></a>            <span class="c">! Determine if the GR flag is set correctly for this integrator</span>
-<a name="ln-638"></a>            <span class="k">select case</span><span class="p">(</span><span class="n">integrator</span><span class="p">)</span>
-<a name="ln-639"></a>            <span class="k">case</span><span class="p">(</span><span class="n">WHM</span><span class="p">,</span> <span class="n">RMVS</span><span class="p">,</span> <span class="n">HELIO</span><span class="p">,</span> <span class="n">SYMBA</span><span class="p">)</span>
-<a name="ln-640"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;GR             = &quot;</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">lgr</span>
-<a name="ln-641"></a>            <span class="k">case </span><span class="n">default</span>   
-<a name="ln-642"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lgr</span><span class="p">)</span> <span class="k">write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s1">&#39;GR is not yet implemented for this integrator. This parameter will be ignored.&#39;</span>
-<a name="ln-643"></a>               <span class="n">param</span><span class="p">%</span><span class="n">lgr</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-644"></a>            <span class="k">end select</span>
-<a name="ln-645"></a><span class="k">         end associate</span>
+<a name="ln-567"></a><span class="k">            if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">out_form</span> <span class="o">/=</span> <span class="s2">&quot;EL&quot;</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_form</span> <span class="o">/=</span> <span class="s2">&quot;XV&quot;</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-568"></a><span class="k">               write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid out_form: &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_form</span><span class="p">))</span>
+<a name="ln-569"></a>               <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-570"></a>               <span class="k">return</span>
+<a name="ln-571"></a><span class="k">            end if</span>
+<a name="ln-572"></a><span class="k">            if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span> <span class="o">/=</span> <span class="s2">&quot;NEW&quot;</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span> <span class="o">/=</span> <span class="s2">&quot;REPLACE&quot;</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span> <span class="o">/=</span> <span class="s2">&quot;APPEND&quot;</span><span class="p">)</span>  <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span> <span class="o">/=</span> <span class="s2">&quot;UNKNOWN&quot;</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-573"></a><span class="k">               write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid out_stat: &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">))</span>
+<a name="ln-574"></a>               <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-575"></a>               <span class="k">return</span>
+<a name="ln-576"></a><span class="k">            end if</span>
+<a name="ln-577"></a><span class="k">         </span>
+<a name="ln-578"></a><span class="k">         end if</span>
+<a name="ln-579"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-580"></a><span class="k">            if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span> <span class="o">/=</span> <span class="s2">&quot;HELIO&quot;</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span> <span class="o">/=</span> <span class="s2">&quot;BARY&quot;</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-581"></a><span class="k">               write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid qmin_coord: &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span><span class="p">))</span>
+<a name="ln-582"></a>               <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-583"></a>               <span class="k">return</span>
+<a name="ln-584"></a><span class="k">            end if</span>
+<a name="ln-585"></a><span class="k">            if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_alo</span> <span class="o">&lt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_ahi</span> <span class="o">&lt;=</span> <span class="mf">0.0_DP</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-586"></a><span class="k">               write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid qmin vals&#39;</span>
+<a name="ln-587"></a>               <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-588"></a>               <span class="k">return</span>
+<a name="ln-589"></a><span class="k">            end if</span>
+<a name="ln-590"></a><span class="k">         end if</span>
+<a name="ln-591"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">.</span><span class="nb">not</span><span class="p">.</span> <span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-592"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Tides require rotation to be turned on&#39;</span>
+<a name="ln-593"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-594"></a>            <span class="k">return</span>
+<a name="ln-595"></a><span class="k">         end if</span>
+<a name="ln-596"></a>
+<a name="ln-597"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;T0             = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">t0</span>
+<a name="ln-598"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;TSTOP          = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">tstop</span>
+<a name="ln-599"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;DT             = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">dt</span>
+<a name="ln-600"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;CB_IN          = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">incbfile</span><span class="p">))</span>
+<a name="ln-601"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;PL_IN          = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">inplfile</span><span class="p">))</span>
+<a name="ln-602"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;TP_IN          = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">intpfile</span><span class="p">))</span>
+<a name="ln-603"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;IN_TYPE        = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span><span class="p">))</span>
+<a name="ln-604"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;ISTEP_OUT      = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">istep_out</span>
+<a name="ln-605"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;BIN_OUT        = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">outfile</span><span class="p">))</span>
+<a name="ln-606"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;OUT_TYPE       = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_type</span><span class="p">))</span>
+<a name="ln-607"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;OUT_FORM       = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_form</span><span class="p">))</span>
+<a name="ln-608"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;OUT_STAT       = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">))</span>
+<a name="ln-609"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;ISTEP_DUMP     = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">istep_dump</span>
+<a name="ln-610"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;CHK_CLOSE      = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">lclose</span>
+<a name="ln-611"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;CHK_RMIN       = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">rmin</span>
+<a name="ln-612"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;CHK_RMAX       = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">rmax</span>
+<a name="ln-613"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;CHK_EJECT      = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">rmaxu</span>
+<a name="ln-614"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;CHK_QMIN       = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">qmin</span>
+<a name="ln-615"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;CHK_QMIN_COORD = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span><span class="p">))</span>
+<a name="ln-616"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;CHK_QMIN_RANGE = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_alo</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin_ahi</span>
+<a name="ln-617"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;EXTRA_FORCE    = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">lextra_force</span>
+<a name="ln-618"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;RHILL_PRESENT  = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">lrhill_present</span>
+<a name="ln-619"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;ROTATION      = &quot;</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">lrotation</span>
+<a name="ln-620"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;TIDES         = &quot;</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">ltides</span>
+<a name="ln-621"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;ENERGY         = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">lenergy</span>
+<a name="ln-622"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;MU2KG          = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span>       
+<a name="ln-623"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;TU2S           = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">TU2S</span>        
+<a name="ln-624"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;DU2M           = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">DU2M</span>        
+<a name="ln-625"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">enc_out</span><span class="p">))</span> <span class="o">/=</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-626"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;ENC_OUT        = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">enc_out</span><span class="p">))</span>
+<a name="ln-627"></a>         <span class="k">else</span>
+<a name="ln-628"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;! ENC_OUT not set: Encounters will not be recorded to file&quot;</span>
+<a name="ln-629"></a>         <span class="k">end if</span>
+<a name="ln-630"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">discard_out</span><span class="p">))</span> <span class="o">/=</span> <span class="s2">&quot;&quot;</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-631"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;DISCARD_OUT    = &quot;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">discard_out</span><span class="p">))</span>
+<a name="ln-632"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;BIG_DISCARD    = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">lbig_discard</span>
+<a name="ln-633"></a>         <span class="k">else</span>
+<a name="ln-634"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;! DISCARD_OUT not set: Discards will not be recorded to file&quot;</span>
+<a name="ln-635"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;! BIG_DISCARD    = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">lbig_discard</span>
+<a name="ln-636"></a>         <span class="k">end if</span>
+<a name="ln-637"></a>
+<a name="ln-638"></a><span class="k">         if</span> <span class="p">((</span><span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">TU2S</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">DU2M</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-639"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid unit conversion factor&#39;</span>
+<a name="ln-640"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-641"></a>            <span class="k">return</span>
+<a name="ln-642"></a><span class="k">         end if</span>
+<a name="ln-643"></a>
+<a name="ln-644"></a>         <span class="c">! Calculate the G for the system units</span>
+<a name="ln-645"></a>         <span class="n">param</span><span class="p">%</span><span class="n">GU</span> <span class="o">=</span> <span class="n">GC</span> <span class="o">/</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">DU2M</span><span class="o">**</span><span class="mi">3</span> <span class="o">/</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span> <span class="o">*</span> <span class="n">param</span><span class="p">%</span><span class="n">TU2S</span><span class="o">**</span><span class="mi">2</span><span class="p">))</span>
 <a name="ln-646"></a>
-<a name="ln-647"></a><span class="k">         </span><span class="n">iostat</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-648"></a>      <span class="k">end associate</span>
-<a name="ln-649"></a>
-<a name="ln-650"></a><span class="k">      return </span>
-<a name="ln-651"></a><span class="k">   end subroutine </span><span class="n">io_param_reader</span>
-<a name="ln-652"></a>
-<a name="ln-653"></a>
-<a name="ln-654"></a>   <span class="k">module subroutine </span><span class="n">io_param_writer</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
-<a name="ln-655"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-656"></a>      <span class="c">!!</span>
-<a name="ln-657"></a>      <span class="c">!! Dump integration parameters to file</span>
-<a name="ln-658"></a>      <span class="c">!!</span>
-<a name="ln-659"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_dump_param.f90</span>
-<a name="ln-660"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine io_dump_param.f</span>
-<a name="ln-661"></a>      <span class="k">implicit none</span>
-<a name="ln-662"></a>      <span class="c">! Arguments</span>
-<a name="ln-663"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>     <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! Collection of parameters</span>
-<a name="ln-664"></a>      <span class="kt">integer</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>                       <span class="kd">::</span> <span class="n">unit</span>       <span class="c">!! File unit number</span>
-<a name="ln-665"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">iotype</span>     <span class="c">!! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. </span>
-<a name="ln-666"></a>                                                               <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
-<a name="ln-667"></a>      <span class="kt">integer</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>                       <span class="kd">::</span> <span class="n">v_list</span><span class="p">(:)</span>  <span class="c">!! Not used in this procedure</span>
-<a name="ln-668"></a>      <span class="kt">integer</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>                      <span class="kd">::</span> <span class="n">iostat</span>     <span class="c">!! IO status code</span>
-<a name="ln-669"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">iomsg</span>      <span class="c">!! Message to pass if iostat /= 0</span>
-<a name="ln-670"></a>      <span class="c">! Internals</span>
-<a name="ln-671"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span> <span class="kd">::</span> <span class="n">Ifmt</span>  <span class="o">=</span> <span class="s1">&#39;(I0)&#39;</span>         <span class="c">!! Format label for integer values</span>
-<a name="ln-672"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span> <span class="kd">::</span> <span class="n">Rfmt</span>  <span class="o">=</span> <span class="s1">&#39;(ES25.17)&#39;</span>    <span class="c">!! Format label for real values </span>
-<a name="ln-673"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span> <span class="kd">::</span> <span class="n">Rarrfmt</span>  <span class="o">=</span> <span class="s1">&#39;(3(ES25.17,1X))&#39;</span>    <span class="c">!! Format label for real values </span>
-<a name="ln-674"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span> <span class="kd">::</span> <span class="n">Lfmt</span>  <span class="o">=</span> <span class="s1">&#39;(L1)&#39;</span>         <span class="c">!! Format label for logical values </span>
-<a name="ln-675"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">Afmt</span> <span class="o">=</span> <span class="s1">&#39;(A25,1X,64(:,A25,1X))&#39;</span>
-<a name="ln-676"></a>      <span class="kt">character</span><span class="p">(</span><span class="mi">256</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">param_name</span><span class="p">,</span> <span class="n">param_value</span>
-<a name="ln-677"></a>      <span class="k">type </span><span class="n">character_array</span>
-<a name="ln-678"></a>         <span class="kt">character</span><span class="p">(</span><span class="mi">25</span><span class="p">)</span> <span class="kd">::</span> <span class="k">value</span>
-<a name="ln-679"></a><span class="k">      end type </span><span class="n">character_array</span>
-<a name="ln-680"></a>      <span class="k">type</span><span class="p">(</span><span class="n">character_array</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">param_array</span>
-<a name="ln-681"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-682"></a>
-<a name="ln-683"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">param</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
-<a name="ln-684"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;T0&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span><span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">t0</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-685"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;TSTOP&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">tstop</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-686"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;DT&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">dt</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-687"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;PL_IN&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">inplfile</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-688"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;TP_in&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">intpfile</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-689"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;IN_TYPE&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-690"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">istep_out</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-691"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;ISTEP_OUT&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Ifmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">istep_out</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-692"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;BIN_OUT&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">outfile</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-693"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;OUT_TYPE&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_type</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-694"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;OUT_FORM&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_form</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-695"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;OUT_STAT&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;APPEND&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-696"></a>         <span class="k">end if</span>
-<a name="ln-697"></a><span class="k">         write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;ENC_OUT&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">enc_out</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-698"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">istep_dump</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-699"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;ISTEP_DUMP&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Ifmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">istep_dump</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-700"></a>         <span class="k">end if</span>
-<a name="ln-701"></a><span class="k">         write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;CHK_RMIN&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">rmin</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-702"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;CHK_RMAX&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">rmax</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-703"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;CHK_EJECT&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">rmaxu</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-704"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;CHK_QMIN&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-705"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-706"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;CHK_QMIN_COORD&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-707"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="mi">2</span><span class="p">))</span>
-<a name="ln-708"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="mi">1</span><span class="p">)%</span><span class="k">value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin_alo</span>
-<a name="ln-709"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="mi">2</span><span class="p">)%</span><span class="k">value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin_ahi</span>
-<a name="ln-710"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;CHK_QMIN_RANGE&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="mi">1</span><span class="p">)%</span><span class="k">value</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="mi">2</span><span class="p">)%</span><span class="k">value</span><span class="p">)</span>
-<a name="ln-711"></a>         <span class="k">end if</span>
-<a name="ln-712"></a><span class="k">         write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;MU2KG&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-713"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;TU2S&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">TU2S</span> <span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-714"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;DU2M&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">DU2M</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-715"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;RHILL_PRESENT&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lrhill_present</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-716"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;EXTRA_FORCE&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lextra_force</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-717"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;BIG_DISCARD&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lbig_discard</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-718"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;CHK_CLOSE&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lclose</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-719"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;ENERGY&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span>  <span class="n">param</span><span class="p">%</span><span class="n">lenergy</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-720"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;GR&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span>  <span class="n">param</span><span class="p">%</span><span class="n">lgr</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-721"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;ROTATION&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span>  <span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-722"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;TIDES&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span>  <span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-723"></a>
-<a name="ln-724"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lenergy</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-725"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;FIRSTENERGY&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lfirstenergy</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-726"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;EORBIT_ORIG&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Eorbit_orig</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-727"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;MTOT_ORIG&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Mtot_orig</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-728"></a>            <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="s1">&#39;(&quot;LTOT_ORIG  &quot;,3(1X,ES25.17))&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Ltot_orig</span><span class="p">(:)</span>
-<a name="ln-729"></a>            <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="s1">&#39;(&quot;LORBIT_ORIG&quot;,3(1X,ES25.17))&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lorbit_orig</span><span class="p">(:)</span>
-<a name="ln-730"></a>            <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="s1">&#39;(&quot;LSPIN_ORIG &quot;,3(1X,ES25.17))&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lspin_orig</span><span class="p">(:)</span>
-<a name="ln-731"></a>            <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="s1">&#39;(&quot;LESCAPE &quot;,3(1X,ES25.17))&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lescape</span><span class="p">(:)</span>
-<a name="ln-732"></a>   
-<a name="ln-733"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;MESCAPE&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Mescape</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-734"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;ECOLLISIONS&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Ecollisions</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-735"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;EUNTRACKED&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Euntracked</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-736"></a>         <span class="k">end if</span>
-<a name="ln-737"></a><span class="k">         write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;FIRSTKICK&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lfirstkick</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-738"></a>   
-<a name="ln-739"></a>
-<a name="ln-740"></a>
-<a name="ln-741"></a>         <span class="n">iostat</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-742"></a>         <span class="n">iomsg</span> <span class="o">=</span> <span class="s2">&quot;UDIO not implemented&quot;</span>
-<a name="ln-743"></a>      <span class="k">end associate</span>
-<a name="ln-744"></a>
-<a name="ln-745"></a><span class="k">      return</span>
-<a name="ln-746"></a><span class="k">   end subroutine </span><span class="n">io_param_writer</span>
-<a name="ln-747"></a>
-<a name="ln-748"></a>
-<a name="ln-749"></a>   <span class="k">module subroutine </span><span class="n">io_read_body_in</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
-<a name="ln-750"></a>      <span class="c">!! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</span>
-<a name="ln-751"></a>      <span class="c">!!</span>
-<a name="ln-752"></a>      <span class="c">!! Read in either test particle or massive body data </span>
-<a name="ln-753"></a>      <span class="c">!!</span>
-<a name="ln-754"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine swiftest_init_pl.f90 and swiftest_init_tp.f90</span>
-<a name="ln-755"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine swiftest_init_pl.f and swiftest_init_tp.f</span>
-<a name="ln-756"></a>      <span class="k">implicit none</span>
-<a name="ln-757"></a>      <span class="c">! Arguments</span>
-<a name="ln-758"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest particle object</span>
-<a name="ln-759"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
-<a name="ln-760"></a>      <span class="c">! Internals</span>
-<a name="ln-761"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span>       <span class="kd">::</span> <span class="n">LUN</span> <span class="o">=</span> <span class="mi">7</span>              <span class="c">!! Unit number of input file</span>
-<a name="ln-762"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">iu</span> <span class="o">=</span> <span class="n">LUN</span>
-<a name="ln-763"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">ierr</span><span class="p">,</span> <span class="n">nbody</span>
-<a name="ln-764"></a>      <span class="kt">logical</span>                       <span class="kd">::</span> <span class="n">is_ascii</span><span class="p">,</span> <span class="n">is_pl</span>
-<a name="ln-765"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">infile</span>
-<a name="ln-766"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                      <span class="kd">::</span> <span class="n">t</span>
-<a name="ln-767"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">QP</span><span class="p">)</span>                      <span class="kd">::</span> <span class="n">val</span>
-<a name="ln-768"></a>
-<a name="ln-769"></a>      <span class="c">! Select the appropriate polymorphic class (test particle or massive body)</span>
-<a name="ln-770"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
-<a name="ln-771"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
-<a name="ln-772"></a>         <span class="n">infile</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">inplfile</span>
-<a name="ln-773"></a>         <span class="n">is_pl</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-774"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
-<a name="ln-775"></a>         <span class="n">infile</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">intpfile</span>
-<a name="ln-776"></a>         <span class="n">is_pl</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-777"></a>      <span class="k">end select</span>
-<a name="ln-778"></a>
-<a name="ln-779"></a><span class="k">      </span><span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-780"></a>      <span class="n">is_ascii</span> <span class="o">=</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span> <span class="o">==</span> <span class="s1">&#39;ASCII&#39;</span><span class="p">)</span> 
-<a name="ln-781"></a>      <span class="k">select case</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span><span class="p">)</span>
-<a name="ln-782"></a>      <span class="k">case</span><span class="p">(</span><span class="n">ASCII_TYPE</span><span class="p">)</span>
-<a name="ln-783"></a>         <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">infile</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;old&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;FORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-784"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">nbody</span>
-<a name="ln-785"></a>         <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="n">nbody</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-786"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-787"></a><span class="k">            do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nbody</span>
-<a name="ln-788"></a>               <span class="k">select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
-<a name="ln-789"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
-<a name="ln-790"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrhill_present</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-791"></a><span class="k">                     read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">val</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-792"></a>                  <span class="k">else</span>
-<a name="ln-793"></a><span class="k">                     read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">val</span>
-<a name="ln-794"></a>                  <span class="k">end if</span>
-<a name="ln-795"></a><span class="k">                  </span><span class="n">self</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="kt">real</span><span class="p">(</span><span class="n">val</span><span class="p">,</span> <span class="nb">kind</span><span class="o">=</span><span class="n">DP</span><span class="p">)</span>
-<a name="ln-796"></a>                  <span class="n">self</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="kt">real</span><span class="p">(</span><span class="n">val</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span><span class="p">,</span> <span class="nb">kind</span><span class="o">=</span><span class="n">DP</span><span class="p">)</span>
-<a name="ln-797"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lclose</span><span class="p">)</span> <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-798"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-799"></a><span class="k">                     read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-800"></a>                     <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-801"></a>                  <span class="k">end if</span>
-<a name="ln-802"></a><span class="k">                  if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-803"></a><span class="k">                     read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">k2</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-804"></a>                     <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">Q</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-805"></a>                  <span class="k">end if</span>
-<a name="ln-806"></a><span class="k">               class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
-<a name="ln-807"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-808"></a>               <span class="k">end select</span>
-<a name="ln-809"></a><span class="k">               read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-810"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-811"></a>               <span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
-<a name="ln-812"></a>               <span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-813"></a>            <span class="k">end do</span>
-<a name="ln-814"></a><span class="k">         end if</span>
-<a name="ln-815"></a><span class="k">      case</span> <span class="p">(</span><span class="n">REAL4_TYPE</span><span class="p">,</span> <span class="n">REAL8_TYPE</span><span class="p">)</span>  <span class="c">!, SWIFTER_REAL4_TYPE, SWIFTER_REAL8_TYPE)</span>
-<a name="ln-816"></a>         <span class="k">open</span><span class="p">(</span><span class="n">unit</span><span class="o">=</span><span class="n">iu</span><span class="p">,</span> <span class="k">file</span><span class="o">=</span><span class="n">infile</span><span class="p">,</span> <span class="n">status</span><span class="o">=</span><span class="s1">&#39;old&#39;</span><span class="p">,</span> <span class="n">form</span><span class="o">=</span><span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">)</span>
-<a name="ln-817"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">nbody</span>
-<a name="ln-818"></a>         <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="n">nbody</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-819"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-820"></a><span class="k">            call </span><span class="n">self</span><span class="p">%</span><span class="n">read_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">XV</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-821"></a>            <span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
-<a name="ln-822"></a>            <span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-823"></a>         <span class="k">end if</span>
-<a name="ln-824"></a><span class="k">      case </span><span class="n">default</span>
-<a name="ln-825"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span><span class="p">))</span> <span class="o">//</span> <span class="s1">&#39; is an unrecognized file type&#39;</span>
-<a name="ln-826"></a>         <span class="n">ierr</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-827"></a>      <span class="k">end select</span>
-<a name="ln-828"></a><span class="k">      close</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span>
-<a name="ln-829"></a>
-<a name="ln-830"></a>      <span class="mi">100</span> <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span> <span class="p">)</span> <span class="k">then</span>
-<a name="ln-831"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Error reading in initial conditions from &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">infile</span><span class="p">))</span>
-<a name="ln-832"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-833"></a>      <span class="k">end if</span>
-<a name="ln-834"></a>
-<a name="ln-835"></a><span class="k">      return</span>
-<a name="ln-836"></a><span class="k">   end subroutine </span><span class="n">io_read_body_in</span>
-<a name="ln-837"></a>
-<a name="ln-838"></a>
-<a name="ln-839"></a>   <span class="k">module subroutine </span><span class="n">io_read_cb_in</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
-<a name="ln-840"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-841"></a>      <span class="c">!!</span>
-<a name="ln-842"></a>      <span class="c">!! Reads in central body data </span>
-<a name="ln-843"></a>      <span class="c">!!</span>
-<a name="ln-844"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine swiftest_init_pl.f90</span>
-<a name="ln-845"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine swiftest_init_pl.f</span>
-<a name="ln-846"></a>      <span class="k">implicit none</span>
-<a name="ln-847"></a>      <span class="c">! Arguments</span>
-<a name="ln-848"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>
-<a name="ln-849"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>
-<a name="ln-850"></a>      <span class="c">! Internals</span>
-<a name="ln-851"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">LUN</span> <span class="o">=</span> <span class="mi">7</span>              <span class="c">!! Unit number of input file</span>
-<a name="ln-852"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>            <span class="kd">::</span> <span class="n">iu</span> <span class="o">=</span> <span class="n">LUN</span>
-<a name="ln-853"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>            <span class="kd">::</span> <span class="n">ierr</span>
-<a name="ln-854"></a>      <span class="kt">logical</span>                 <span class="kd">::</span> <span class="n">is_ascii</span> 
-<a name="ln-855"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                <span class="kd">::</span> <span class="n">t</span>
-<a name="ln-856"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">QP</span><span class="p">)</span>                <span class="kd">::</span> <span class="n">val</span>
-<a name="ln-857"></a>
-<a name="ln-858"></a>      <span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-859"></a>      <span class="n">is_ascii</span> <span class="o">=</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span> <span class="o">==</span> <span class="s1">&#39;ASCII&#39;</span><span class="p">)</span> 
-<a name="ln-860"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">is_ascii</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-861"></a><span class="k">         open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">incbfile</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;old&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;FORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-862"></a>         <span class="c">!read(iu, *, iostat = ierr) self%id</span>
-<a name="ln-863"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">val</span> 
-<a name="ln-864"></a>         <span class="n">self</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">=</span> <span class="kt">real</span><span class="p">(</span><span class="n">val</span><span class="p">,</span> <span class="nb">kind</span><span class="o">=</span><span class="n">DP</span><span class="p">)</span>
-<a name="ln-865"></a>         <span class="n">self</span><span class="p">%</span><span class="n">mass</span> <span class="o">=</span> <span class="kt">real</span><span class="p">(</span><span class="n">val</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span><span class="p">,</span> <span class="nb">kind</span><span class="o">=</span><span class="n">DP</span><span class="p">)</span>
-<a name="ln-866"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">radius</span>
-<a name="ln-867"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">j2rp2</span>
-<a name="ln-868"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">j4rp4</span>
-<a name="ln-869"></a>      <span class="k">else</span>
-<a name="ln-870"></a><span class="k">         open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">incbfile</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;old&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-871"></a>         <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">read_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">XV</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-872"></a>      <span class="k">end if</span>
-<a name="ln-873"></a><span class="k">      close</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span>
-<a name="ln-874"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span>  <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-875"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Error opening massive body initial conditions file &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">incbfile</span><span class="p">))</span>
-<a name="ln-876"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-877"></a>      <span class="k">end if</span>
-<a name="ln-878"></a><span class="k">      if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">j2rp2</span> <span class="o">/=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">loblatecb</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-879"></a>
-<a name="ln-880"></a>      <span class="k">return</span>
-<a name="ln-881"></a><span class="k">   end subroutine </span><span class="n">io_read_cb_in</span>
-<a name="ln-882"></a>
+<a name="ln-647"></a>         <span class="c">! Calculate the inverse speed of light in the system units</span>
+<a name="ln-648"></a>         <span class="n">param</span><span class="p">%</span><span class="n">inv_c2</span> <span class="o">=</span> <span class="n">einsteinC</span> <span class="o">*</span> <span class="n">param</span><span class="p">%</span><span class="n">TU2S</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">DU2M</span>
+<a name="ln-649"></a>         <span class="n">param</span><span class="p">%</span><span class="n">inv_c2</span> <span class="o">=</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">inv_c2</span><span class="p">)</span><span class="o">**</span><span class="p">(</span><span class="o">-</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-650"></a>
+<a name="ln-651"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">integrator</span> <span class="o">=&gt;</span> <span class="n">v_list</span><span class="p">(</span><span class="mi">1</span><span class="p">))</span>
+<a name="ln-652"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">integrator</span> <span class="o">==</span> <span class="n">RMVS</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-653"></a><span class="k">               if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">param</span><span class="p">%</span><span class="n">lclose</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-654"></a><span class="k">                  write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;This integrator requires CHK_CLOSE to be enabled.&#39;</span>
+<a name="ln-655"></a>                  <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-656"></a>                  <span class="k">return</span>
+<a name="ln-657"></a><span class="k">               end if</span>
+<a name="ln-658"></a><span class="k">            end if</span>
+<a name="ln-659"></a>      
+<a name="ln-660"></a>            <span class="c">! Determine if the GR flag is set correctly for this integrator</span>
+<a name="ln-661"></a>            <span class="k">select case</span><span class="p">(</span><span class="n">integrator</span><span class="p">)</span>
+<a name="ln-662"></a>            <span class="k">case</span><span class="p">(</span><span class="n">WHM</span><span class="p">,</span> <span class="n">RMVS</span><span class="p">,</span> <span class="n">HELIO</span><span class="p">,</span> <span class="n">SYMBA</span><span class="p">)</span>
+<a name="ln-663"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;GR             = &quot;</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">lgr</span>
+<a name="ln-664"></a>            <span class="k">case </span><span class="n">default</span>   
+<a name="ln-665"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lgr</span><span class="p">)</span> <span class="k">write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s1">&#39;GR is not yet implemented for this integrator. This parameter will be ignored.&#39;</span>
+<a name="ln-666"></a>               <span class="n">param</span><span class="p">%</span><span class="n">lgr</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-667"></a>            <span class="k">end select</span>
+<a name="ln-668"></a><span class="k">         end associate</span>
+<a name="ln-669"></a>
+<a name="ln-670"></a><span class="k">         </span><span class="n">iostat</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-671"></a>      <span class="k">end associate</span>
+<a name="ln-672"></a>
+<a name="ln-673"></a><span class="k">      return </span>
+<a name="ln-674"></a><span class="k">   end subroutine </span><span class="n">io_param_reader</span>
+<a name="ln-675"></a>
+<a name="ln-676"></a>
+<a name="ln-677"></a>   <span class="k">module subroutine </span><span class="n">io_param_writer</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
+<a name="ln-678"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-679"></a>      <span class="c">!!</span>
+<a name="ln-680"></a>      <span class="c">!! Dump integration parameters to file</span>
+<a name="ln-681"></a>      <span class="c">!!</span>
+<a name="ln-682"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_dump_param.f90</span>
+<a name="ln-683"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine io_dump_param.f</span>
+<a name="ln-684"></a>      <span class="k">implicit none</span>
+<a name="ln-685"></a>      <span class="c">! Arguments</span>
+<a name="ln-686"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>     <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! Collection of parameters</span>
+<a name="ln-687"></a>      <span class="kt">integer</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>                       <span class="kd">::</span> <span class="n">unit</span>       <span class="c">!! File unit number</span>
+<a name="ln-688"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">iotype</span>     <span class="c">!! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. </span>
+<a name="ln-689"></a>                                                               <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
+<a name="ln-690"></a>      <span class="kt">integer</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>                       <span class="kd">::</span> <span class="n">v_list</span><span class="p">(:)</span>  <span class="c">!! Not used in this procedure</span>
+<a name="ln-691"></a>      <span class="kt">integer</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>                      <span class="kd">::</span> <span class="n">iostat</span>     <span class="c">!! IO status code</span>
+<a name="ln-692"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">iomsg</span>      <span class="c">!! Message to pass if iostat /= 0</span>
+<a name="ln-693"></a>      <span class="c">! Internals</span>
+<a name="ln-694"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span> <span class="kd">::</span> <span class="n">Ifmt</span>  <span class="o">=</span> <span class="s1">&#39;(I0)&#39;</span>         <span class="c">!! Format label for integer values</span>
+<a name="ln-695"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span> <span class="kd">::</span> <span class="n">Rfmt</span>  <span class="o">=</span> <span class="s1">&#39;(ES25.17)&#39;</span>    <span class="c">!! Format label for real values </span>
+<a name="ln-696"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span> <span class="kd">::</span> <span class="n">Rarrfmt</span>  <span class="o">=</span> <span class="s1">&#39;(3(ES25.17,1X))&#39;</span>    <span class="c">!! Format label for real values </span>
+<a name="ln-697"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span> <span class="kd">::</span> <span class="n">Lfmt</span>  <span class="o">=</span> <span class="s1">&#39;(L1)&#39;</span>         <span class="c">!! Format label for logical values </span>
+<a name="ln-698"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">Afmt</span> <span class="o">=</span> <span class="s1">&#39;(A25,1X,64(:,A25,1X))&#39;</span>
+<a name="ln-699"></a>      <span class="kt">character</span><span class="p">(</span><span class="mi">256</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">param_name</span><span class="p">,</span> <span class="n">param_value</span>
+<a name="ln-700"></a>      <span class="k">type </span><span class="n">character_array</span>
+<a name="ln-701"></a>         <span class="kt">character</span><span class="p">(</span><span class="mi">25</span><span class="p">)</span> <span class="kd">::</span> <span class="k">value</span>
+<a name="ln-702"></a><span class="k">      end type </span><span class="n">character_array</span>
+<a name="ln-703"></a>      <span class="k">type</span><span class="p">(</span><span class="n">character_array</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">param_array</span>
+<a name="ln-704"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-705"></a>
+<a name="ln-706"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">param</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-707"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;T0&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span><span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">t0</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-708"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;TSTOP&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">tstop</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-709"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;DT&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">dt</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-710"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;PL_IN&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">inplfile</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-711"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;TP_in&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">intpfile</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-712"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;IN_TYPE&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-713"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">istep_out</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-714"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;ISTEP_OUT&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Ifmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">istep_out</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-715"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;BIN_OUT&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">outfile</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-716"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;OUT_TYPE&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_type</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-717"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;OUT_FORM&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_form</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-718"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;OUT_STAT&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;APPEND&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-719"></a>         <span class="k">end if</span>
+<a name="ln-720"></a><span class="k">         write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;ENC_OUT&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">enc_out</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-721"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">istep_dump</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-722"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;ISTEP_DUMP&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Ifmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">istep_dump</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-723"></a>         <span class="k">end if</span>
+<a name="ln-724"></a><span class="k">         write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;CHK_RMIN&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">rmin</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-725"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;CHK_RMAX&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">rmax</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-726"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;CHK_EJECT&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">rmaxu</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-727"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;CHK_QMIN&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-728"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-729"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;CHK_QMIN_COORD&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-730"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="mi">2</span><span class="p">))</span>
+<a name="ln-731"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="mi">1</span><span class="p">)%</span><span class="k">value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin_alo</span>
+<a name="ln-732"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="mi">2</span><span class="p">)%</span><span class="k">value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">qmin_ahi</span>
+<a name="ln-733"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;CHK_QMIN_RANGE&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="mi">1</span><span class="p">)%</span><span class="k">value</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="mi">2</span><span class="p">)%</span><span class="k">value</span><span class="p">)</span>
+<a name="ln-734"></a>         <span class="k">end if</span>
+<a name="ln-735"></a><span class="k">         write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;MU2KG&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-736"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;TU2S&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">TU2S</span> <span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-737"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;DU2M&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">DU2M</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-738"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;RHILL_PRESENT&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lrhill_present</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-739"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;EXTRA_FORCE&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lextra_force</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-740"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;BIG_DISCARD&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lbig_discard</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-741"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;CHK_CLOSE&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lclose</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-742"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;ENERGY&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span>  <span class="n">param</span><span class="p">%</span><span class="n">lenergy</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-743"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;GR&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span>  <span class="n">param</span><span class="p">%</span><span class="n">lgr</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-744"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;ROTATION&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span>  <span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-745"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;TIDES&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span>  <span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-746"></a>
+<a name="ln-747"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lenergy</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-748"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;FIRSTENERGY&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lfirstenergy</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-749"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;EORBIT_ORIG&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Eorbit_orig</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-750"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;MTOT_ORIG&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Mtot_orig</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-751"></a>            <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="s1">&#39;(&quot;LTOT_ORIG  &quot;,3(1X,ES25.17))&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Ltot_orig</span><span class="p">(:)</span>
+<a name="ln-752"></a>            <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="s1">&#39;(&quot;LORBIT_ORIG&quot;,3(1X,ES25.17))&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lorbit_orig</span><span class="p">(:)</span>
+<a name="ln-753"></a>            <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="s1">&#39;(&quot;LSPIN_ORIG &quot;,3(1X,ES25.17))&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lspin_orig</span><span class="p">(:)</span>
+<a name="ln-754"></a>            <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="s1">&#39;(&quot;LESCAPE &quot;,3(1X,ES25.17))&#39;</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Lescape</span><span class="p">(:)</span>
+<a name="ln-755"></a>   
+<a name="ln-756"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;MESCAPE&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Mescape</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-757"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;ECOLLISIONS&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Ecollisions</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-758"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;EUNTRACKED&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Euntracked</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-759"></a>         <span class="k">end if</span>
+<a name="ln-760"></a><span class="k">         write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;FIRSTKICK&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">lfirstkick</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-761"></a>   
+<a name="ln-762"></a>
+<a name="ln-763"></a>
+<a name="ln-764"></a>         <span class="n">iostat</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-765"></a>         <span class="n">iomsg</span> <span class="o">=</span> <span class="s2">&quot;UDIO not implemented&quot;</span>
+<a name="ln-766"></a>      <span class="k">end associate</span>
+<a name="ln-767"></a>
+<a name="ln-768"></a><span class="k">      return</span>
+<a name="ln-769"></a><span class="k">   end subroutine </span><span class="n">io_param_writer</span>
+<a name="ln-770"></a>
+<a name="ln-771"></a>
+<a name="ln-772"></a>   <span class="k">module subroutine </span><span class="n">io_read_body_in</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
+<a name="ln-773"></a>      <span class="c">!! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</span>
+<a name="ln-774"></a>      <span class="c">!!</span>
+<a name="ln-775"></a>      <span class="c">!! Read in either test particle or massive body data </span>
+<a name="ln-776"></a>      <span class="c">!!</span>
+<a name="ln-777"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine swiftest_init_pl.f90 and swiftest_init_tp.f90</span>
+<a name="ln-778"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine swiftest_init_pl.f and swiftest_init_tp.f</span>
+<a name="ln-779"></a>      <span class="k">implicit none</span>
+<a name="ln-780"></a>      <span class="c">! Arguments</span>
+<a name="ln-781"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest particle object</span>
+<a name="ln-782"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
+<a name="ln-783"></a>      <span class="c">! Internals</span>
+<a name="ln-784"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span>       <span class="kd">::</span> <span class="n">LUN</span> <span class="o">=</span> <span class="mi">7</span>              <span class="c">!! Unit number of input file</span>
+<a name="ln-785"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">iu</span> <span class="o">=</span> <span class="n">LUN</span>
+<a name="ln-786"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">ierr</span><span class="p">,</span> <span class="n">nbody</span>
+<a name="ln-787"></a>      <span class="kt">logical</span>                       <span class="kd">::</span> <span class="n">is_ascii</span><span class="p">,</span> <span class="n">is_pl</span>
+<a name="ln-788"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">infile</span>
+<a name="ln-789"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                      <span class="kd">::</span> <span class="n">t</span>
+<a name="ln-790"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">QP</span><span class="p">)</span>                      <span class="kd">::</span> <span class="n">val</span>
+<a name="ln-791"></a>
+<a name="ln-792"></a>      <span class="c">! Select the appropriate polymorphic class (test particle or massive body)</span>
+<a name="ln-793"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-794"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
+<a name="ln-795"></a>         <span class="n">infile</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">inplfile</span>
+<a name="ln-796"></a>         <span class="n">is_pl</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-797"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
+<a name="ln-798"></a>         <span class="n">infile</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">intpfile</span>
+<a name="ln-799"></a>         <span class="n">is_pl</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-800"></a>      <span class="k">end select</span>
+<a name="ln-801"></a>
+<a name="ln-802"></a><span class="k">      </span><span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-803"></a>      <span class="n">is_ascii</span> <span class="o">=</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span> <span class="o">==</span> <span class="s1">&#39;ASCII&#39;</span><span class="p">)</span> 
+<a name="ln-804"></a>      <span class="k">select case</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span><span class="p">)</span>
+<a name="ln-805"></a>      <span class="k">case</span><span class="p">(</span><span class="n">ASCII_TYPE</span><span class="p">)</span>
+<a name="ln-806"></a>         <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">infile</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;old&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;FORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-807"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">nbody</span>
+<a name="ln-808"></a>         <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="n">nbody</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-809"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-810"></a><span class="k">            do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nbody</span>
+<a name="ln-811"></a>               <span class="k">select type</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-812"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
+<a name="ln-813"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrhill_present</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-814"></a><span class="k">                     read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">val</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-815"></a>                  <span class="k">else</span>
+<a name="ln-816"></a><span class="k">                     read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">val</span>
+<a name="ln-817"></a>                  <span class="k">end if</span>
+<a name="ln-818"></a><span class="k">                  </span><span class="n">self</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="kt">real</span><span class="p">(</span><span class="n">val</span><span class="p">,</span> <span class="nb">kind</span><span class="o">=</span><span class="n">DP</span><span class="p">)</span>
+<a name="ln-819"></a>                  <span class="n">self</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="kt">real</span><span class="p">(</span><span class="n">val</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span><span class="p">,</span> <span class="nb">kind</span><span class="o">=</span><span class="n">DP</span><span class="p">)</span>
+<a name="ln-820"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lclose</span><span class="p">)</span> <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-821"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
+<a name="ln-822"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-823"></a>               <span class="k">end select</span>
+<a name="ln-824"></a><span class="k">               read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-825"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-826"></a>               <span class="k">select type</span> <span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-827"></a>               <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
+<a name="ln-828"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-829"></a><span class="k">                     read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-830"></a>                     <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-831"></a>                  <span class="k">end if</span>
+<a name="ln-832"></a><span class="k">                  if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-833"></a><span class="k">                     read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">k2</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-834"></a>                     <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">Q</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-835"></a>                  <span class="k">end if</span>
+<a name="ln-836"></a><span class="k">               end select</span>
+<a name="ln-837"></a><span class="k">               </span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
+<a name="ln-838"></a>               <span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-839"></a>            <span class="k">end do</span>
+<a name="ln-840"></a><span class="k">         end if</span>
+<a name="ln-841"></a><span class="k">      case</span> <span class="p">(</span><span class="n">REAL4_TYPE</span><span class="p">,</span> <span class="n">REAL8_TYPE</span><span class="p">)</span>  <span class="c">!, SWIFTER_REAL4_TYPE, SWIFTER_REAL8_TYPE)</span>
+<a name="ln-842"></a>         <span class="k">open</span><span class="p">(</span><span class="n">unit</span><span class="o">=</span><span class="n">iu</span><span class="p">,</span> <span class="k">file</span><span class="o">=</span><span class="n">infile</span><span class="p">,</span> <span class="n">status</span><span class="o">=</span><span class="s1">&#39;old&#39;</span><span class="p">,</span> <span class="n">form</span><span class="o">=</span><span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">)</span>
+<a name="ln-843"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">nbody</span>
+<a name="ln-844"></a>         <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="n">nbody</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-845"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-846"></a><span class="k">            call </span><span class="n">self</span><span class="p">%</span><span class="n">read_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">XV</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-847"></a>            <span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
+<a name="ln-848"></a>            <span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-849"></a>         <span class="k">end if</span>
+<a name="ln-850"></a><span class="k">      case </span><span class="n">default</span>
+<a name="ln-851"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span><span class="p">))</span> <span class="o">//</span> <span class="s1">&#39; is an unrecognized file type&#39;</span>
+<a name="ln-852"></a>         <span class="n">ierr</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-853"></a>      <span class="k">end select</span>
+<a name="ln-854"></a><span class="k">      close</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span>
+<a name="ln-855"></a>
+<a name="ln-856"></a>      <span class="mi">100</span> <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span> <span class="p">)</span> <span class="k">then</span>
+<a name="ln-857"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Error reading in initial conditions from &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">infile</span><span class="p">))</span>
+<a name="ln-858"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-859"></a>      <span class="k">end if</span>
+<a name="ln-860"></a>
+<a name="ln-861"></a><span class="k">      return</span>
+<a name="ln-862"></a><span class="k">   end subroutine </span><span class="n">io_read_body_in</span>
+<a name="ln-863"></a>
+<a name="ln-864"></a>
+<a name="ln-865"></a>   <span class="k">module subroutine </span><span class="n">io_read_cb_in</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
+<a name="ln-866"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-867"></a>      <span class="c">!!</span>
+<a name="ln-868"></a>      <span class="c">!! Reads in central body data </span>
+<a name="ln-869"></a>      <span class="c">!!</span>
+<a name="ln-870"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine swiftest_init_pl.f90</span>
+<a name="ln-871"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine swiftest_init_pl.f</span>
+<a name="ln-872"></a>      <span class="k">implicit none</span>
+<a name="ln-873"></a>      <span class="c">! Arguments</span>
+<a name="ln-874"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>
+<a name="ln-875"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>
+<a name="ln-876"></a>      <span class="c">! Internals</span>
+<a name="ln-877"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">LUN</span> <span class="o">=</span> <span class="mi">7</span>              <span class="c">!! Unit number of input file</span>
+<a name="ln-878"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>            <span class="kd">::</span> <span class="n">iu</span> <span class="o">=</span> <span class="n">LUN</span>
+<a name="ln-879"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>            <span class="kd">::</span> <span class="n">ierr</span>
+<a name="ln-880"></a>      <span class="kt">logical</span>                 <span class="kd">::</span> <span class="n">is_ascii</span> 
+<a name="ln-881"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                <span class="kd">::</span> <span class="n">t</span>
+<a name="ln-882"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">QP</span><span class="p">)</span>                <span class="kd">::</span> <span class="n">val</span>
 <a name="ln-883"></a>
-<a name="ln-884"></a>
-<a name="ln-885"></a>   <span class="k">function </span><span class="n">io_read_encounter</span><span class="p">(</span><span class="n">t</span><span class="p">,</span> <span class="n">name1</span><span class="p">,</span> <span class="n">name2</span><span class="p">,</span> <span class="n">mass1</span><span class="p">,</span> <span class="n">mass2</span><span class="p">,</span> <span class="n">radius1</span><span class="p">,</span> <span class="n">radius2</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-886"></a>      <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vh1</span><span class="p">,</span> <span class="n">vh2</span><span class="p">,</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">out_type</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">ierr</span><span class="p">)</span>
-<a name="ln-887"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-888"></a>      <span class="c">!!</span>
-<a name="ln-889"></a>      <span class="c">!! Read close encounter data from input binary files</span>
-<a name="ln-890"></a>      <span class="c">!!     Other than time t, there is no direct file input from this function</span>
-<a name="ln-891"></a>      <span class="c">!!     Function returns read error status (0 = OK, nonzero = ERROR)</span>
-<a name="ln-892"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: io_read_encounter.f90</span>
-<a name="ln-893"></a>      <span class="k">implicit none</span>
-<a name="ln-894"></a>      <span class="c">! Arguments</span>
-<a name="ln-895"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">name1</span><span class="p">,</span> <span class="n">name2</span>
-<a name="ln-896"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">t</span><span class="p">,</span> <span class="n">mass1</span><span class="p">,</span> <span class="n">mass2</span><span class="p">,</span> <span class="n">radius1</span><span class="p">,</span> <span class="n">radius2</span>
-<a name="ln-897"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vh1</span><span class="p">,</span> <span class="n">vh2</span>
-<a name="ln-898"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">out_type</span>
-<a name="ln-899"></a>      <span class="c">! Result</span>
-<a name="ln-900"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>         <span class="kd">::</span> <span class="n">ierr</span>
-<a name="ln-901"></a>      <span class="c">! Internals</span>
-<a name="ln-902"></a>      <span class="kt">logical</span> <span class="p">,</span> <span class="k">save</span>    <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-903"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">lun</span> <span class="o">=</span> <span class="mi">30</span>
-<a name="ln-904"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">save</span>    <span class="kd">::</span> <span class="n">iu</span> <span class="o">=</span> <span class="n">lun</span>
-<a name="ln-905"></a>
-<a name="ln-906"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">lfirst</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-907"></a><span class="k">         open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;OLD&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-908"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-909"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest Error:&quot;</span>
-<a name="ln-910"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   unable to open binary encounter file&quot;</span>
-<a name="ln-911"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-912"></a>         <span class="k">end if</span>
-<a name="ln-913"></a><span class="k">         </span><span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-914"></a>      <span class="k">end if</span>
-<a name="ln-915"></a><span class="k">      read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">t</span>
-<a name="ln-916"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-917"></a><span class="k">         close</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-918"></a>         <span class="k">return</span>
-<a name="ln-919"></a><span class="k">      end if</span>
-<a name="ln-920"></a>
-<a name="ln-921"></a><span class="k">      read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">name1</span><span class="p">,</span> <span class="n">xh1</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">xh1</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">xh1</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">vh1</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">vh1</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">vh1</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">mass1</span><span class="p">,</span> <span class="n">radius1</span>
-<a name="ln-922"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-923"></a><span class="k">         close</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-924"></a>         <span class="k">return</span>
-<a name="ln-925"></a><span class="k">      end if</span>
-<a name="ln-926"></a><span class="k">      read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">name2</span><span class="p">,</span> <span class="n">xh2</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">xh2</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">xh2</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">vh2</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">vh2</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">vh2</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">mass2</span><span class="p">,</span> <span class="n">radius2</span>
-<a name="ln-927"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-928"></a><span class="k">         close</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-929"></a>         <span class="k">return</span>
-<a name="ln-930"></a><span class="k">      end if</span>
-<a name="ln-931"></a>
-<a name="ln-932"></a><span class="k">      return</span>
-<a name="ln-933"></a><span class="k">   end function </span><span class="n">io_read_encounter</span>
+<a name="ln-884"></a>      <span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-885"></a>      <span class="n">is_ascii</span> <span class="o">=</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">in_type</span> <span class="o">==</span> <span class="s1">&#39;ASCII&#39;</span><span class="p">)</span> 
+<a name="ln-886"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">is_ascii</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-887"></a><span class="k">         open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">incbfile</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;old&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;FORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-888"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">id</span>
+<a name="ln-889"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">val</span> 
+<a name="ln-890"></a>         <span class="n">self</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">=</span> <span class="kt">real</span><span class="p">(</span><span class="n">val</span><span class="p">,</span> <span class="nb">kind</span><span class="o">=</span><span class="n">DP</span><span class="p">)</span>
+<a name="ln-891"></a>         <span class="n">self</span><span class="p">%</span><span class="n">mass</span> <span class="o">=</span> <span class="kt">real</span><span class="p">(</span><span class="n">val</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span><span class="p">,</span> <span class="nb">kind</span><span class="o">=</span><span class="n">DP</span><span class="p">)</span>
+<a name="ln-892"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">radius</span>
+<a name="ln-893"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">j2rp2</span>
+<a name="ln-894"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">j4rp4</span>
+<a name="ln-895"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-896"></a><span class="k">            read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span>
+<a name="ln-897"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="o">*</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span>
+<a name="ln-898"></a>         <span class="k">end if</span>
+<a name="ln-899"></a><span class="k">      else</span>
+<a name="ln-900"></a><span class="k">         open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">incbfile</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;old&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-901"></a>         <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">read_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">XV</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-902"></a>      <span class="k">end if</span>
+<a name="ln-903"></a><span class="k">      close</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span>
+<a name="ln-904"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span>  <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-905"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Error opening massive body initial conditions file &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">incbfile</span><span class="p">))</span>
+<a name="ln-906"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-907"></a>      <span class="k">end if</span>
+<a name="ln-908"></a><span class="k">      if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">j2rp2</span> <span class="o">/=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">loblatecb</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-909"></a>
+<a name="ln-910"></a>      <span class="k">return</span>
+<a name="ln-911"></a><span class="k">   end subroutine </span><span class="n">io_read_cb_in</span>
+<a name="ln-912"></a>
+<a name="ln-913"></a>
+<a name="ln-914"></a>   <span class="k">function </span><span class="n">io_read_encounter</span><span class="p">(</span><span class="n">t</span><span class="p">,</span> <span class="n">name1</span><span class="p">,</span> <span class="n">name2</span><span class="p">,</span> <span class="n">mass1</span><span class="p">,</span> <span class="n">mass2</span><span class="p">,</span> <span class="n">radius1</span><span class="p">,</span> <span class="n">radius2</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-915"></a>      <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vh1</span><span class="p">,</span> <span class="n">vh2</span><span class="p">,</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">out_type</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">ierr</span><span class="p">)</span>
+<a name="ln-916"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-917"></a>      <span class="c">!!</span>
+<a name="ln-918"></a>      <span class="c">!! Read close encounter data from input binary files</span>
+<a name="ln-919"></a>      <span class="c">!!     Other than time t, there is no direct file input from this function</span>
+<a name="ln-920"></a>      <span class="c">!!     Function returns read error status (0 = OK, nonzero = ERROR)</span>
+<a name="ln-921"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: io_read_encounter.f90</span>
+<a name="ln-922"></a>      <span class="k">implicit none</span>
+<a name="ln-923"></a>      <span class="c">! Arguments</span>
+<a name="ln-924"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">name1</span><span class="p">,</span> <span class="n">name2</span>
+<a name="ln-925"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">t</span><span class="p">,</span> <span class="n">mass1</span><span class="p">,</span> <span class="n">mass2</span><span class="p">,</span> <span class="n">radius1</span><span class="p">,</span> <span class="n">radius2</span>
+<a name="ln-926"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vh1</span><span class="p">,</span> <span class="n">vh2</span>
+<a name="ln-927"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">out_type</span>
+<a name="ln-928"></a>      <span class="c">! Result</span>
+<a name="ln-929"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>         <span class="kd">::</span> <span class="n">ierr</span>
+<a name="ln-930"></a>      <span class="c">! Internals</span>
+<a name="ln-931"></a>      <span class="kt">logical</span> <span class="p">,</span> <span class="k">save</span>    <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-932"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">lun</span> <span class="o">=</span> <span class="mi">30</span>
+<a name="ln-933"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">save</span>    <span class="kd">::</span> <span class="n">iu</span> <span class="o">=</span> <span class="n">lun</span>
 <a name="ln-934"></a>
-<a name="ln-935"></a>
-<a name="ln-936"></a>   <span class="k">module subroutine </span><span class="n">io_read_frame_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-937"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-938"></a>      <span class="c">!!</span>
-<a name="ln-939"></a>      <span class="c">!! Reads a frame of output of either test particle or massive body data from a binary output file</span>
-<a name="ln-940"></a>      <span class="c">!!</span>
-<a name="ln-941"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_read_frame.f90</span>
-<a name="ln-942"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_read_frame.F</span>
-<a name="ln-943"></a>      <span class="k">implicit none</span>
-<a name="ln-944"></a>      <span class="c">! Arguments</span>
-<a name="ln-945"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest particle object</span>
-<a name="ln-946"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>     <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-947"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
-<a name="ln-948"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">form</span>   <span class="c">!! Input format code (&quot;XV&quot; or &quot;EL&quot;)</span>
-<a name="ln-949"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>   <span class="c">!! Error code</span>
-<a name="ln-950"></a>
-<a name="ln-951"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">n</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
-<a name="ln-952"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">(:)</span>
-<a name="ln-953"></a>         <span class="c">!read(iu, iostat=ierr, err=100) self%name(1:n)</span>
-<a name="ln-954"></a>         <span class="k">select case</span> <span class="p">(</span><span class="n">form</span><span class="p">)</span>
-<a name="ln-955"></a>         <span class="k">case</span> <span class="p">(</span><span class="n">EL</span><span class="p">)</span> 
-<a name="ln-956"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">a</span><span class="p">))</span>     <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">a</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-957"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">e</span><span class="p">))</span>     <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">e</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-958"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">inc</span><span class="p">))</span>   <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">inc</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-959"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">capom</span><span class="p">))</span> <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">capom</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-960"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">omega</span><span class="p">))</span> <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">omega</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-961"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">capm</span><span class="p">))</span>  <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">capm</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-962"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">a</span><span class="p">(:)</span>
-<a name="ln-963"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">e</span><span class="p">(:)</span>
-<a name="ln-964"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">inc</span><span class="p">(:)</span>
-<a name="ln-965"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">capom</span><span class="p">(:)</span>
-<a name="ln-966"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">omega</span><span class="p">(:)</span>
-<a name="ln-967"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">capm</span><span class="p">(:)</span>
-<a name="ln-968"></a>         <span class="k">case</span> <span class="p">(</span><span class="n">XV</span><span class="p">)</span>
-<a name="ln-969"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="p">:)</span>
-<a name="ln-970"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="p">:)</span>
-<a name="ln-971"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="p">:)</span>
-<a name="ln-972"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="p">:)</span>
-<a name="ln-973"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="p">:)</span>
-<a name="ln-974"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="p">:)</span>
-<a name="ln-975"></a>         <span class="k">end select</span>
-<a name="ln-976"></a><span class="k">         select type</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>  
-<a name="ln-977"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>  <span class="c">! Additional output if the passed polymorphic object is a massive body</span>
-<a name="ln-978"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(:)</span>
-<a name="ln-979"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span> 
-<a name="ln-980"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrhill_present</span><span class="p">)</span> <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">rhill</span><span class="p">(:)</span>
-<a name="ln-981"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(:)</span>
-<a name="ln-982"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-983"></a><span class="k">               read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="p">:)</span>
-<a name="ln-984"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="p">:)</span>
-<a name="ln-985"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="p">:)</span>
-<a name="ln-986"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="p">:)</span>
-<a name="ln-987"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="p">:)</span>
-<a name="ln-988"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="p">:)</span>
-<a name="ln-989"></a>            <span class="k">end if</span>
-<a name="ln-990"></a><span class="k">            if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-991"></a><span class="k">               read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">k2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-992"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Q</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-993"></a>            <span class="k">end if</span>
-<a name="ln-994"></a><span class="k">         end select</span>
-<a name="ln-995"></a><span class="k">      end associate</span>
-<a name="ln-996"></a>
-<a name="ln-997"></a><span class="k">      </span><span class="mi">100</span> <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span><span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-998"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Error reading Swiftest body data&#39;</span>
-<a name="ln-999"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-1000"></a>      <span class="k">end if</span>
-<a name="ln-1001"></a>
-<a name="ln-1002"></a><span class="k">      return</span>
-<a name="ln-1003"></a><span class="k">   end subroutine </span><span class="n">io_read_frame_body</span>
-<a name="ln-1004"></a>
-<a name="ln-1005"></a>
-<a name="ln-1006"></a>   <span class="k">module subroutine </span><span class="n">io_read_frame_cb</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-1007"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-1008"></a>      <span class="c">!!</span>
-<a name="ln-1009"></a>      <span class="c">!! Reads a frame of output of central body data to the binary output file</span>
-<a name="ln-1010"></a>      <span class="c">!!</span>
-<a name="ln-1011"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_read_frame.f90</span>
-<a name="ln-1012"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_read_frame.F</span>
-<a name="ln-1013"></a>      <span class="k">implicit none</span>
-<a name="ln-1014"></a>      <span class="c">! Arguments</span>
-<a name="ln-1015"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>     <span class="c">!! Swiftest central body object</span>
-<a name="ln-1016"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>       <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-1017"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>   <span class="c">!! Current run configuration parameters </span>
-<a name="ln-1018"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">form</span>     <span class="c">!! Input format code (&quot;XV&quot; or &quot;EL&quot;)</span>
-<a name="ln-1019"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>     <span class="c">!! Error cod</span>
-<a name="ln-1020"></a>
-<a name="ln-1021"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">id</span>
-<a name="ln-1022"></a>      <span class="c">!read(iu, iostat=ierr, err=100) self%name</span>
-<a name="ln-1023"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">Gmass</span>
-<a name="ln-1024"></a>      <span class="n">self</span><span class="p">%</span><span class="n">mass</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span>
-<a name="ln-1025"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">radius</span>
-<a name="ln-1026"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">j2rp2</span> 
-<a name="ln-1027"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">j4rp4</span> 
-<a name="ln-1028"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1029"></a><span class="k">         read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:)</span>
-<a name="ln-1030"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">(:)</span>
-<a name="ln-1031"></a>      <span class="k">end if</span>
-<a name="ln-1032"></a><span class="k">      if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1033"></a><span class="k">         read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">k2</span>
-<a name="ln-1034"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">Q</span>
-<a name="ln-1035"></a>      <span class="k">end if</span>
-<a name="ln-1036"></a><span class="k">      </span><span class="mi">100</span> <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span><span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1037"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Error reading central body data&#39;</span>
-<a name="ln-1038"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-1039"></a>      <span class="k">end if</span>
-<a name="ln-1040"></a>
-<a name="ln-1041"></a><span class="k">      return</span>
-<a name="ln-1042"></a><span class="k">   end subroutine </span><span class="n">io_read_frame_cb</span>
-<a name="ln-1043"></a>
-<a name="ln-1044"></a>
-<a name="ln-1045"></a>   <span class="k">module subroutine </span><span class="n">io_read_frame_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-1046"></a>      <span class="c">!! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</span>
-<a name="ln-1047"></a>      <span class="c">!!</span>
-<a name="ln-1048"></a>      <span class="c">!! Read a frame (header plus records for each massive body and active test particle) from a output binary file</span>
-<a name="ln-1049"></a>      <span class="k">implicit none</span>
-<a name="ln-1050"></a>      <span class="c">! Arguments</span>
-<a name="ln-1051"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest system object</span>
-<a name="ln-1052"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>     <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-1053"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-1054"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">form</span>   <span class="c">!! Input format code (&quot;XV&quot; or &quot;EL&quot;)</span>
-<a name="ln-1055"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>   <span class="c">!! Error code</span>
-<a name="ln-1056"></a>      <span class="c">! Internals</span>
-<a name="ln-1057"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">save</span>             <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-1058"></a>
-<a name="ln-1059"></a>      <span class="n">iu</span> <span class="o">=</span> <span class="n">BINUNIT</span>
-<a name="ln-1060"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">lfirst</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1061"></a><span class="k">         open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">outfile</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;OLD&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-1062"></a>         <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-1063"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1064"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error:&quot;</span>
-<a name="ln-1065"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Binary output file already exists or cannot be accessed&quot;</span>
-<a name="ln-1066"></a>            <span class="k">return</span>
-<a name="ln-1067"></a><span class="k">         end if</span>
-<a name="ln-1068"></a><span class="k">      end if</span>
-<a name="ln-1069"></a><span class="k">      </span><span class="n">ierr</span> <span class="o">=</span> <span class="n">io_read_hdr</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">out_form</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">out_type</span><span class="p">)</span>
-<a name="ln-1070"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1071"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error:&quot;</span>
-<a name="ln-1072"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Binary output file already exists or cannot be accessed&quot;</span>
-<a name="ln-1073"></a>         <span class="k">return</span>
-<a name="ln-1074"></a><span class="k">      end if</span>
-<a name="ln-1075"></a><span class="k">      call </span><span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">%</span><span class="n">read_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-1076"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-1077"></a><span class="k">      call </span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">read_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-1078"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-1079"></a><span class="k">      call </span><span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">read_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-1080"></a>
-<a name="ln-1081"></a>      <span class="k">return</span>
-<a name="ln-1082"></a><span class="k">   end subroutine </span><span class="n">io_read_frame_system</span>
-<a name="ln-1083"></a>
-<a name="ln-1084"></a>
-<a name="ln-1085"></a>   <span class="k">function </span><span class="n">io_read_hdr</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">npl</span><span class="p">,</span> <span class="n">ntp</span><span class="p">,</span> <span class="n">out_form</span><span class="p">,</span> <span class="n">out_type</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">ierr</span><span class="p">)</span>
-<a name="ln-1086"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-1087"></a>      <span class="c">!!</span>
-<a name="ln-1088"></a>      <span class="c">!! Read frame header from input binary files</span>
-<a name="ln-1089"></a>      <span class="c">!!     Function returns read error status (0 = OK, nonzero = ERROR)</span>
-<a name="ln-1090"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: io_read_hdr.f90</span>
-<a name="ln-1091"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_read_hdr.f</span>
-<a name="ln-1092"></a>      <span class="k">implicit none</span>
-<a name="ln-1093"></a>      <span class="c">! Arguments</span>
-<a name="ln-1094"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">iu</span>
-<a name="ln-1095"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">npl</span><span class="p">,</span> <span class="n">ntp</span>
-<a name="ln-1096"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>  <span class="kd">::</span>  <span class="n">out_form</span>
-<a name="ln-1097"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">t</span>
-<a name="ln-1098"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">out_type</span>
-<a name="ln-1099"></a>      <span class="c">! Result</span>
-<a name="ln-1100"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>      <span class="kd">::</span> <span class="n">ierr</span>
-<a name="ln-1101"></a>      <span class="c">! Internals</span>
-<a name="ln-1102"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">SP</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">ttmp</span>
-<a name="ln-1103"></a>
-<a name="ln-1104"></a>      <span class="k">select case</span> <span class="p">(</span><span class="n">out_type</span><span class="p">)</span>
-<a name="ln-1105"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">REAL4_TYPE</span><span class="p">,</span> <span class="n">SWIFTER_REAL4_TYPE</span><span class="p">)</span>
-<a name="ln-1106"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">ttmp</span><span class="p">,</span> <span class="n">npl</span><span class="p">,</span> <span class="n">ntp</span><span class="p">,</span> <span class="n">out_form</span>
-<a name="ln-1107"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-1108"></a><span class="k">         </span><span class="n">t</span> <span class="o">=</span> <span class="n">ttmp</span>
-<a name="ln-1109"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">REAL8_TYPE</span><span class="p">,</span> <span class="n">SWIFTER_REAL8_TYPE</span><span class="p">)</span>
-<a name="ln-1110"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">t</span>
-<a name="ln-1111"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">npl</span>
-<a name="ln-1112"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">ntp</span>
-<a name="ln-1113"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">out_form</span>
-<a name="ln-1114"></a>      <span class="k">case </span><span class="n">default</span>
-<a name="ln-1115"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">out_type</span><span class="p">))</span> <span class="o">//</span> <span class="s1">&#39; is an unrecognized file type&#39;</span>
-<a name="ln-1116"></a>         <span class="n">ierr</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-1117"></a>      <span class="k">end select</span>
-<a name="ln-1118"></a>
-<a name="ln-1119"></a><span class="k">      return</span>
-<a name="ln-1120"></a><span class="k">   end function </span><span class="n">io_read_hdr</span>
-<a name="ln-1121"></a>
-<a name="ln-1122"></a>   <span class="k">module subroutine </span><span class="n">io_read_param_in</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param_file_name</span><span class="p">)</span> 
-<a name="ln-1123"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-1124"></a>      <span class="c">!!</span>
-<a name="ln-1125"></a>      <span class="c">!! Read in parameters for the integration</span>
-<a name="ln-1126"></a>      <span class="c">!!</span>
-<a name="ln-1127"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_init_param.f90</span>
-<a name="ln-1128"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine io_init_param.f</span>
-<a name="ln-1129"></a>      <span class="k">implicit none</span>
-<a name="ln-1130"></a>      <span class="c">! Arguments</span>
-<a name="ln-1131"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>             <span class="c">!! Current run configuration parameters</span>
-<a name="ln-1132"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">param_file_name</span> <span class="c">!! Parameter input file name (i.e. param.in)</span>
-<a name="ln-1133"></a>      <span class="c">! Internals</span>
-<a name="ln-1134"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">LUN</span> <span class="o">=</span> <span class="mi">7</span>                 <span class="c">!! Unit number of input file</span>
-<a name="ln-1135"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>            <span class="kd">::</span> <span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>                <span class="c">!! Input error code</span>
-<a name="ln-1136"></a>      <span class="kt">character</span><span class="p">(</span><span class="n">STRMAX</span><span class="p">)</span>       <span class="kd">::</span> <span class="n">error_message</span>           <span class="c">!! Error message in UDIO procedure</span>
-<a name="ln-1137"></a>
-<a name="ln-1138"></a>      <span class="c">! Read in name of parameter file</span>
-<a name="ln-1139"></a>      <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Parameter input file is &#39;</span><span class="p">,</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param_file_name</span><span class="p">))</span>
-<a name="ln-1140"></a>      <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s1">&#39; &#39;</span>
-<a name="ln-1141"></a>      <span class="mi">100</span> <span class="k">format</span><span class="p">(</span><span class="n">A</span><span class="p">)</span>
-<a name="ln-1142"></a>      <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param_file_name</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;old&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-1143"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1144"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Swiftest error: &#39;</span><span class="p">,</span> <span class="n">ierr</span>
-<a name="ln-1145"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;   Unable to open file &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param_file_name</span><span class="p">))</span>
-<a name="ln-1146"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-1147"></a>      <span class="k">end if</span>
-<a name="ln-1148"></a>
-<a name="ln-1149"></a>      <span class="c">!! todo: Currently this procedure does not work in user-defined derived-type input mode </span>
-<a name="ln-1150"></a>      <span class="c">!!    as the newline characters are ignored in the input file when compiled in ifort.</span>
-<a name="ln-1151"></a>
-<a name="ln-1152"></a>      <span class="c">!read(LUN,&#39;(DT)&#39;, iostat= ierr, iomsg = error_message) param</span>
-<a name="ln-1153"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">reader</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">iotype</span><span class="o">=</span> <span class="s2">&quot;none&quot;</span><span class="p">,</span> <span class="n">v_list</span> <span class="o">=</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">integrator</span><span class="p">],</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">error_message</span><span class="p">)</span>
-<a name="ln-1154"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1155"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Swiftest error reading &#39;</span><span class="p">,</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param_file_name</span><span class="p">))</span>
-<a name="ln-1156"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="n">ierr</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">error_message</span><span class="p">))</span>
-<a name="ln-1157"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-1158"></a>      <span class="k">end if</span>
-<a name="ln-1159"></a>
-<a name="ln-1160"></a><span class="k">      return </span>
-<a name="ln-1161"></a><span class="k">   end subroutine </span><span class="n">io_read_param_in</span>
-<a name="ln-1162"></a>
-<a name="ln-1163"></a>
-<a name="ln-1164"></a>   <span class="k">module subroutine </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">string</span><span class="p">)</span>
-<a name="ln-1165"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-1166"></a>      <span class="c">!!</span>
-<a name="ln-1167"></a>      <span class="c">!! Convert string to uppercase</span>
-<a name="ln-1168"></a>      <span class="c">!!</span>
-<a name="ln-1169"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: util_toupper.f90</span>
-<a name="ln-1170"></a>      <span class="k">implicit none</span>
-<a name="ln-1171"></a>      <span class="c">! Arguments</span>
-<a name="ln-1172"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">string</span> <span class="c">!! String to make upper case</span>
-<a name="ln-1173"></a>      <span class="c">! Internals</span>
-<a name="ln-1174"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">length</span><span class="p">,</span> <span class="n">idx</span>
-<a name="ln-1175"></a>   
-<a name="ln-1176"></a>      <span class="n">length</span> <span class="o">=</span> <span class="nb">len</span><span class="p">(</span><span class="n">string</span><span class="p">)</span>
-<a name="ln-1177"></a>      <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">length</span>
-<a name="ln-1178"></a>         <span class="n">idx</span> <span class="o">=</span> <span class="nb">iachar</span><span class="p">(</span><span class="n">string</span><span class="p">(</span><span class="n">i</span><span class="p">:</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-1179"></a>         <span class="k">if</span> <span class="p">((</span><span class="n">idx</span> <span class="o">&gt;=</span> <span class="n">lowercase_begin</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">idx</span> <span class="o">&lt;=</span> <span class="n">lowercase_end</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-1180"></a><span class="k">            </span><span class="n">idx</span> <span class="o">=</span> <span class="n">idx</span> <span class="o">+</span> <span class="n">uppercase_offset</span>
-<a name="ln-1181"></a>            <span class="n">string</span><span class="p">(</span><span class="n">i</span><span class="p">:</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="nb">achar</span><span class="p">(</span><span class="n">idx</span><span class="p">)</span>
-<a name="ln-1182"></a>         <span class="k">end if</span>
-<a name="ln-1183"></a><span class="k">      end do</span>
-<a name="ln-1184"></a><span class="k">   </span>
-<a name="ln-1185"></a><span class="k">      return</span>
-<a name="ln-1186"></a><span class="k">   end subroutine </span><span class="n">io_toupper</span>
-<a name="ln-1187"></a>
+<a name="ln-935"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">lfirst</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-936"></a><span class="k">         open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;OLD&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-937"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-938"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest Error:&quot;</span>
+<a name="ln-939"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   unable to open binary encounter file&quot;</span>
+<a name="ln-940"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-941"></a>         <span class="k">end if</span>
+<a name="ln-942"></a><span class="k">         </span><span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-943"></a>      <span class="k">end if</span>
+<a name="ln-944"></a><span class="k">      read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">t</span>
+<a name="ln-945"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-946"></a><span class="k">         close</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-947"></a>         <span class="k">return</span>
+<a name="ln-948"></a><span class="k">      end if</span>
+<a name="ln-949"></a>
+<a name="ln-950"></a><span class="k">      read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">name1</span><span class="p">,</span> <span class="n">xh1</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">xh1</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">xh1</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">vh1</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">vh1</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">vh1</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">mass1</span><span class="p">,</span> <span class="n">radius1</span>
+<a name="ln-951"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-952"></a><span class="k">         close</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-953"></a>         <span class="k">return</span>
+<a name="ln-954"></a><span class="k">      end if</span>
+<a name="ln-955"></a><span class="k">      read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">name2</span><span class="p">,</span> <span class="n">xh2</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">xh2</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">xh2</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">vh2</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">vh2</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">vh2</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">mass2</span><span class="p">,</span> <span class="n">radius2</span>
+<a name="ln-956"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-957"></a><span class="k">         close</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-958"></a>         <span class="k">return</span>
+<a name="ln-959"></a><span class="k">      end if</span>
+<a name="ln-960"></a>
+<a name="ln-961"></a><span class="k">      return</span>
+<a name="ln-962"></a><span class="k">   end function </span><span class="n">io_read_encounter</span>
+<a name="ln-963"></a>
+<a name="ln-964"></a>
+<a name="ln-965"></a>   <span class="k">module subroutine </span><span class="n">io_read_frame_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-966"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-967"></a>      <span class="c">!!</span>
+<a name="ln-968"></a>      <span class="c">!! Reads a frame of output of either test particle or massive body data from a binary output file</span>
+<a name="ln-969"></a>      <span class="c">!!</span>
+<a name="ln-970"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_read_frame.f90</span>
+<a name="ln-971"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_read_frame.F</span>
+<a name="ln-972"></a>      <span class="k">implicit none</span>
+<a name="ln-973"></a>      <span class="c">! Arguments</span>
+<a name="ln-974"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest particle object</span>
+<a name="ln-975"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>     <span class="c">!! Unit number for the output file to write frame to</span>
+<a name="ln-976"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-977"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">form</span>   <span class="c">!! Input format code (&quot;XV&quot; or &quot;EL&quot;)</span>
+<a name="ln-978"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>   <span class="c">!! Error code</span>
+<a name="ln-979"></a>
+<a name="ln-980"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">n</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-981"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">(:)</span>
+<a name="ln-982"></a>         <span class="c">!read(iu, iostat=ierr, err=100) self%name(1:n)</span>
+<a name="ln-983"></a>         <span class="k">select case</span> <span class="p">(</span><span class="n">form</span><span class="p">)</span>
+<a name="ln-984"></a>         <span class="k">case</span> <span class="p">(</span><span class="n">EL</span><span class="p">)</span> 
+<a name="ln-985"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">a</span><span class="p">))</span>     <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">a</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-986"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">e</span><span class="p">))</span>     <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">e</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-987"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">inc</span><span class="p">))</span>   <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">inc</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-988"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">capom</span><span class="p">))</span> <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">capom</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-989"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">omega</span><span class="p">))</span> <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">omega</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-990"></a>            <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">capm</span><span class="p">))</span>  <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">capm</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-991"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">a</span><span class="p">(:)</span>
+<a name="ln-992"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">e</span><span class="p">(:)</span>
+<a name="ln-993"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">inc</span><span class="p">(:)</span>
+<a name="ln-994"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">capom</span><span class="p">(:)</span>
+<a name="ln-995"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">omega</span><span class="p">(:)</span>
+<a name="ln-996"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">capm</span><span class="p">(:)</span>
+<a name="ln-997"></a>         <span class="k">case</span> <span class="p">(</span><span class="n">XV</span><span class="p">)</span>
+<a name="ln-998"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="p">:)</span>
+<a name="ln-999"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="p">:)</span>
+<a name="ln-1000"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="p">:)</span>
+<a name="ln-1001"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="p">:)</span>
+<a name="ln-1002"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="p">:)</span>
+<a name="ln-1003"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="p">:)</span>
+<a name="ln-1004"></a>         <span class="k">end select</span>
+<a name="ln-1005"></a><span class="k">         select type</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>  
+<a name="ln-1006"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>  <span class="c">! Additional output if the passed polymorphic object is a massive body</span>
+<a name="ln-1007"></a>            <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(:)</span>
+<a name="ln-1008"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span> 
+<a name="ln-1009"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrhill_present</span><span class="p">)</span> <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">rhill</span><span class="p">(:)</span>
+<a name="ln-1010"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lclose</span><span class="p">)</span> <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(:)</span>
+<a name="ln-1011"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1012"></a><span class="k">               read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="p">:)</span>
+<a name="ln-1013"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="p">:)</span>
+<a name="ln-1014"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="p">:)</span>
+<a name="ln-1015"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="p">:)</span>
+<a name="ln-1016"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="p">:)</span>
+<a name="ln-1017"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="p">:)</span>
+<a name="ln-1018"></a>            <span class="k">end if</span>
+<a name="ln-1019"></a><span class="k">            if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1020"></a><span class="k">               read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">k2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1021"></a>               <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Q</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1022"></a>            <span class="k">end if</span>
+<a name="ln-1023"></a><span class="k">         end select</span>
+<a name="ln-1024"></a><span class="k">      end associate</span>
+<a name="ln-1025"></a>
+<a name="ln-1026"></a><span class="k">      </span><span class="mi">100</span> <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span><span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1027"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Error reading Swiftest body data&#39;</span>
+<a name="ln-1028"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-1029"></a>      <span class="k">end if</span>
+<a name="ln-1030"></a>
+<a name="ln-1031"></a><span class="k">      return</span>
+<a name="ln-1032"></a><span class="k">   end subroutine </span><span class="n">io_read_frame_body</span>
+<a name="ln-1033"></a>
+<a name="ln-1034"></a>
+<a name="ln-1035"></a>   <span class="k">module subroutine </span><span class="n">io_read_frame_cb</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1036"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1037"></a>      <span class="c">!!</span>
+<a name="ln-1038"></a>      <span class="c">!! Reads a frame of output of central body data to the binary output file</span>
+<a name="ln-1039"></a>      <span class="c">!!</span>
+<a name="ln-1040"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_read_frame.f90</span>
+<a name="ln-1041"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_read_frame.F</span>
+<a name="ln-1042"></a>      <span class="k">implicit none</span>
+<a name="ln-1043"></a>      <span class="c">! Arguments</span>
+<a name="ln-1044"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>     <span class="c">!! Swiftest central body object</span>
+<a name="ln-1045"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>       <span class="c">!! Unit number for the output file to write frame to</span>
+<a name="ln-1046"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>   <span class="c">!! Current run configuration parameters </span>
+<a name="ln-1047"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">form</span>     <span class="c">!! Input format code (&quot;XV&quot; or &quot;EL&quot;)</span>
+<a name="ln-1048"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>     <span class="c">!! Error cod</span>
+<a name="ln-1049"></a>
+<a name="ln-1050"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">id</span>
+<a name="ln-1051"></a>      <span class="c">!read(iu, iostat=ierr, err=100) self%name</span>
+<a name="ln-1052"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">Gmass</span>
+<a name="ln-1053"></a>      <span class="n">self</span><span class="p">%</span><span class="n">mass</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span>
+<a name="ln-1054"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">radius</span>
+<a name="ln-1055"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">j2rp2</span> 
+<a name="ln-1056"></a>      <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">j4rp4</span> 
+<a name="ln-1057"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1058"></a><span class="k">         read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:)</span>
+<a name="ln-1059"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">(:)</span>
+<a name="ln-1060"></a>      <span class="k">end if</span>
+<a name="ln-1061"></a><span class="k">      if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1062"></a><span class="k">         read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">k2</span>
+<a name="ln-1063"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">,</span> <span class="n">err</span><span class="o">=</span><span class="mi">100</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">Q</span>
+<a name="ln-1064"></a>      <span class="k">end if</span>
+<a name="ln-1065"></a><span class="k">      </span><span class="mi">100</span> <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span><span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1066"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Error reading central body data&#39;</span>
+<a name="ln-1067"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-1068"></a>      <span class="k">end if</span>
+<a name="ln-1069"></a>
+<a name="ln-1070"></a><span class="k">      return</span>
+<a name="ln-1071"></a><span class="k">   end subroutine </span><span class="n">io_read_frame_cb</span>
+<a name="ln-1072"></a>
+<a name="ln-1073"></a>
+<a name="ln-1074"></a>   <span class="k">module subroutine </span><span class="n">io_read_frame_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1075"></a>      <span class="c">!! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</span>
+<a name="ln-1076"></a>      <span class="c">!!</span>
+<a name="ln-1077"></a>      <span class="c">!! Read a frame (header plus records for each massive body and active test particle) from a output binary file</span>
+<a name="ln-1078"></a>      <span class="k">implicit none</span>
+<a name="ln-1079"></a>      <span class="c">! Arguments</span>
+<a name="ln-1080"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest system object</span>
+<a name="ln-1081"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>     <span class="c">!! Unit number for the output file to write frame to</span>
+<a name="ln-1082"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-1083"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">form</span>   <span class="c">!! Input format code (&quot;XV&quot; or &quot;EL&quot;)</span>
+<a name="ln-1084"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>   <span class="c">!! Error code</span>
+<a name="ln-1085"></a>      <span class="c">! Internals</span>
+<a name="ln-1086"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">save</span>             <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-1087"></a>
+<a name="ln-1088"></a>      <span class="n">iu</span> <span class="o">=</span> <span class="n">BINUNIT</span>
+<a name="ln-1089"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">lfirst</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1090"></a><span class="k">         open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">outfile</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;OLD&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1091"></a>         <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-1092"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1093"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error:&quot;</span>
+<a name="ln-1094"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Binary output file already exists or cannot be accessed&quot;</span>
+<a name="ln-1095"></a>            <span class="k">return</span>
+<a name="ln-1096"></a><span class="k">         end if</span>
+<a name="ln-1097"></a><span class="k">      end if</span>
+<a name="ln-1098"></a><span class="k">      </span><span class="n">ierr</span> <span class="o">=</span> <span class="n">io_read_hdr</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">out_form</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">out_type</span><span class="p">)</span>
+<a name="ln-1099"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1100"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error:&quot;</span>
+<a name="ln-1101"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Binary output file already exists or cannot be accessed&quot;</span>
+<a name="ln-1102"></a>         <span class="k">return</span>
+<a name="ln-1103"></a><span class="k">      end if</span>
+<a name="ln-1104"></a><span class="k">      call </span><span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">%</span><span class="n">read_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1105"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-1106"></a><span class="k">      call </span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">read_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1107"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-1108"></a><span class="k">      call </span><span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">read_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1109"></a>
+<a name="ln-1110"></a>      <span class="k">return</span>
+<a name="ln-1111"></a><span class="k">   end subroutine </span><span class="n">io_read_frame_system</span>
+<a name="ln-1112"></a>
+<a name="ln-1113"></a>
+<a name="ln-1114"></a>   <span class="k">function </span><span class="n">io_read_hdr</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">npl</span><span class="p">,</span> <span class="n">ntp</span><span class="p">,</span> <span class="n">out_form</span><span class="p">,</span> <span class="n">out_type</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1115"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1116"></a>      <span class="c">!!</span>
+<a name="ln-1117"></a>      <span class="c">!! Read frame header from input binary files</span>
+<a name="ln-1118"></a>      <span class="c">!!     Function returns read error status (0 = OK, nonzero = ERROR)</span>
+<a name="ln-1119"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: io_read_hdr.f90</span>
+<a name="ln-1120"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_read_hdr.f</span>
+<a name="ln-1121"></a>      <span class="k">implicit none</span>
+<a name="ln-1122"></a>      <span class="c">! Arguments</span>
+<a name="ln-1123"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">iu</span>
+<a name="ln-1124"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">npl</span><span class="p">,</span> <span class="n">ntp</span>
+<a name="ln-1125"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>  <span class="kd">::</span>  <span class="n">out_form</span>
+<a name="ln-1126"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">t</span>
+<a name="ln-1127"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">out_type</span>
+<a name="ln-1128"></a>      <span class="c">! Result</span>
+<a name="ln-1129"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>      <span class="kd">::</span> <span class="n">ierr</span>
+<a name="ln-1130"></a>      <span class="c">! Internals</span>
+<a name="ln-1131"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">SP</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">ttmp</span>
+<a name="ln-1132"></a>
+<a name="ln-1133"></a>      <span class="k">select case</span> <span class="p">(</span><span class="n">out_type</span><span class="p">)</span>
+<a name="ln-1134"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">REAL4_TYPE</span><span class="p">,</span> <span class="n">SWIFTER_REAL4_TYPE</span><span class="p">)</span>
+<a name="ln-1135"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">ttmp</span><span class="p">,</span> <span class="n">npl</span><span class="p">,</span> <span class="n">ntp</span><span class="p">,</span> <span class="n">out_form</span>
+<a name="ln-1136"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-1137"></a><span class="k">         </span><span class="n">t</span> <span class="o">=</span> <span class="n">ttmp</span>
+<a name="ln-1138"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">REAL8_TYPE</span><span class="p">,</span> <span class="n">SWIFTER_REAL8_TYPE</span><span class="p">)</span>
+<a name="ln-1139"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">t</span>
+<a name="ln-1140"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">npl</span>
+<a name="ln-1141"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">ntp</span>
+<a name="ln-1142"></a>         <span class="k">read</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">out_form</span>
+<a name="ln-1143"></a>      <span class="k">case </span><span class="n">default</span>
+<a name="ln-1144"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">out_type</span><span class="p">))</span> <span class="o">//</span> <span class="s1">&#39; is an unrecognized file type&#39;</span>
+<a name="ln-1145"></a>         <span class="n">ierr</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-1146"></a>      <span class="k">end select</span>
+<a name="ln-1147"></a>
+<a name="ln-1148"></a><span class="k">      return</span>
+<a name="ln-1149"></a><span class="k">   end function </span><span class="n">io_read_hdr</span>
+<a name="ln-1150"></a>
+<a name="ln-1151"></a>   <span class="k">module subroutine </span><span class="n">io_read_param_in</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param_file_name</span><span class="p">)</span> 
+<a name="ln-1152"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1153"></a>      <span class="c">!!</span>
+<a name="ln-1154"></a>      <span class="c">!! Read in parameters for the integration</span>
+<a name="ln-1155"></a>      <span class="c">!!</span>
+<a name="ln-1156"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_init_param.f90</span>
+<a name="ln-1157"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine io_init_param.f</span>
+<a name="ln-1158"></a>      <span class="k">implicit none</span>
+<a name="ln-1159"></a>      <span class="c">! Arguments</span>
+<a name="ln-1160"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>             <span class="c">!! Current run configuration parameters</span>
+<a name="ln-1161"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">param_file_name</span> <span class="c">!! Parameter input file name (i.e. param.in)</span>
+<a name="ln-1162"></a>      <span class="c">! Internals</span>
+<a name="ln-1163"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">LUN</span> <span class="o">=</span> <span class="mi">7</span>                 <span class="c">!! Unit number of input file</span>
+<a name="ln-1164"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>            <span class="kd">::</span> <span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>                <span class="c">!! Input error code</span>
+<a name="ln-1165"></a>      <span class="kt">character</span><span class="p">(</span><span class="n">STRMAX</span><span class="p">)</span>       <span class="kd">::</span> <span class="n">error_message</span>           <span class="c">!! Error message in UDIO procedure</span>
+<a name="ln-1166"></a>
+<a name="ln-1167"></a>      <span class="c">! Read in name of parameter file</span>
+<a name="ln-1168"></a>      <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Parameter input file is &#39;</span><span class="p">,</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param_file_name</span><span class="p">))</span>
+<a name="ln-1169"></a>      <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s1">&#39; &#39;</span>
+<a name="ln-1170"></a>      <span class="mi">100</span> <span class="k">format</span><span class="p">(</span><span class="n">A</span><span class="p">)</span>
+<a name="ln-1171"></a>      <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param_file_name</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;old&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1172"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1173"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Swiftest error: &#39;</span><span class="p">,</span> <span class="n">ierr</span>
+<a name="ln-1174"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;   Unable to open file &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param_file_name</span><span class="p">))</span>
+<a name="ln-1175"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-1176"></a>      <span class="k">end if</span>
+<a name="ln-1177"></a>
+<a name="ln-1178"></a>      <span class="c">!! todo: Currently this procedure does not work in user-defined derived-type input mode </span>
+<a name="ln-1179"></a>      <span class="c">!!    as the newline characters are ignored in the input file when compiled in ifort.</span>
+<a name="ln-1180"></a>
+<a name="ln-1181"></a>      <span class="c">!read(LUN,&#39;(DT)&#39;, iostat= ierr, iomsg = error_message) param</span>
+<a name="ln-1182"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">reader</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">iotype</span><span class="o">=</span> <span class="s2">&quot;none&quot;</span><span class="p">,</span> <span class="n">v_list</span> <span class="o">=</span> <span class="p">[</span><span class="n">self</span><span class="p">%</span><span class="n">integrator</span><span class="p">],</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">,</span> <span class="n">iomsg</span> <span class="o">=</span> <span class="n">error_message</span><span class="p">)</span>
+<a name="ln-1183"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1184"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Swiftest error reading &#39;</span><span class="p">,</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param_file_name</span><span class="p">))</span>
+<a name="ln-1185"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="n">ierr</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">error_message</span><span class="p">))</span>
+<a name="ln-1186"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-1187"></a>      <span class="k">end if</span>
 <a name="ln-1188"></a>
-<a name="ln-1189"></a>   <span class="k">module subroutine </span><span class="n">io_write_discard</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-1190"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-1191"></a>      <span class="c">!!</span>
-<a name="ln-1192"></a>      <span class="c">!! Write out information about discarded test particle</span>
-<a name="ln-1193"></a>      <span class="c">!!</span>
-<a name="ln-1194"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_discard_write.f90</span>
-<a name="ln-1195"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_discard_write.f</span>
-<a name="ln-1196"></a>      <span class="k">implicit none</span>
-<a name="ln-1197"></a>      <span class="c">! Arguments</span>
-<a name="ln-1198"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>     <span class="c">!! Swiftest system object</span>
-<a name="ln-1199"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>   <span class="c">!! Current run configuration parameters </span>
-<a name="ln-1200"></a>      <span class="c">! Internals</span>
-<a name="ln-1201"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">LUN</span> <span class="o">=</span> <span class="mi">40</span>
-<a name="ln-1202"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">ierr</span>
-<a name="ln-1203"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">save</span> <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span> 
-<a name="ln-1204"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">vh</span>
-<a name="ln-1205"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">HDRFMT</span>    <span class="o">=</span> <span class="s1">&#39;(E23.16, 1X, I8, 1X, L1)&#39;</span>
-<a name="ln-1206"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">NAMEFMT</span>   <span class="o">=</span> <span class="s1">&#39;(A, 2(1X, I8))&#39;</span>
-<a name="ln-1207"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">VECFMT</span>    <span class="o">=</span> <span class="s1">&#39;(3(E23.16, 1X))&#39;</span>
-<a name="ln-1208"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">NPLFMT</span>    <span class="o">=</span> <span class="s1">&#39;(I8)&#39;</span>
-<a name="ln-1209"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">PLNAMEFMT</span> <span class="o">=</span> <span class="s1">&#39;(I8, 2(1X, E23.16))&#39;</span>
-<a name="ln-1210"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">pltemp</span>
-<a name="ln-1211"></a>
-<a name="ln-1212"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">tp_discards</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">tp_discards</span><span class="p">,</span> <span class="n">nsp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">tp_discards</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
-<a name="ln-1213"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">nsp</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-1214"></a><span class="k">         select case</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">)</span>
-<a name="ln-1215"></a>         <span class="k">case</span><span class="p">(</span><span class="s1">&#39;APPEND&#39;</span><span class="p">)</span>
-<a name="ln-1216"></a>            <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">discard_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;OLD&#39;</span><span class="p">,</span> <span class="n">position</span> <span class="o">=</span> <span class="s1">&#39;APPEND&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;FORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-1217"></a>         <span class="k">case</span><span class="p">(</span><span class="s1">&#39;NEW&#39;</span><span class="p">,</span> <span class="s1">&#39;REPLACE&#39;</span><span class="p">,</span> <span class="s1">&#39;UNKNOWN&#39;</span><span class="p">)</span>
-<a name="ln-1218"></a>            <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">discard_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;FORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-1219"></a>         <span class="k">case </span><span class="n">default</span>
-<a name="ln-1220"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid status code for OUT_STAT: &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">))</span>
-<a name="ln-1221"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-1222"></a>         <span class="k">end select</span>
-<a name="ln-1223"></a><span class="k">         </span><span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-1224"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lgr</span><span class="p">)</span> <span class="k">call </span><span class="n">tp_discards</span><span class="p">%</span><span class="n">pv2v</span><span class="p">(</span><span class="n">param</span><span class="p">)</span> 
-<a name="ln-1225"></a>
-<a name="ln-1226"></a>         <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">HDRFMT</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">nsp</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">lbig_discard</span>
-<a name="ln-1227"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nsp</span>
-<a name="ln-1228"></a>            <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">NAMEFMT</span><span class="p">)</span> <span class="n">SUB</span><span class="p">,</span> <span class="n">tp_discards</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">tp_discards</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-1229"></a>            <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">VECFMT</span><span class="p">)</span> <span class="n">tp_discards</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">tp_discards</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">tp_discards</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-1230"></a>            <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">VECFMT</span><span class="p">)</span> <span class="n">tp_discards</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">tp_discards</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">tp_discards</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-1231"></a>         <span class="k">end do</span>
-<a name="ln-1232"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lbig_discard</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1233"></a><span class="k">               if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lgr</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1234"></a><span class="k">                  allocate</span><span class="p">(</span><span class="n">pltemp</span><span class="p">,</span> <span class="n">source</span> <span class="o">=</span> <span class="n">pl</span><span class="p">)</span>
-<a name="ln-1235"></a>                  <span class="k">call </span><span class="n">pltemp</span><span class="p">%</span><span class="n">pv2v</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
-<a name="ln-1236"></a>                  <span class="k">allocate</span><span class="p">(</span><span class="n">vh</span><span class="p">,</span> <span class="n">source</span> <span class="o">=</span> <span class="n">pltemp</span><span class="p">%</span><span class="n">vh</span><span class="p">)</span>
-<a name="ln-1237"></a>                  <span class="k">deallocate</span><span class="p">(</span><span class="n">pltemp</span><span class="p">)</span>
-<a name="ln-1238"></a>               <span class="k">else</span>
-<a name="ln-1239"></a><span class="k">                  allocate</span><span class="p">(</span><span class="n">vh</span><span class="p">,</span> <span class="n">source</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">)</span>
-<a name="ln-1240"></a>               <span class="k">end if</span>
-<a name="ln-1241"></a>
-<a name="ln-1242"></a><span class="k">               write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">NPLFMT</span><span class="p">)</span> <span class="n">npl</span>
-<a name="ln-1243"></a>               <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-1244"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">PLNAMEFMT</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-1245"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">VECFMT</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-1246"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">VECFMT</span><span class="p">)</span> <span class="n">vh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">vh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">vh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
-<a name="ln-1247"></a>               <span class="k">end do</span>
-<a name="ln-1248"></a><span class="k">               deallocate</span><span class="p">(</span><span class="n">vh</span><span class="p">)</span>
-<a name="ln-1249"></a>         <span class="k">end if</span>
-<a name="ln-1250"></a><span class="k">         close</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span>
-<a name="ln-1251"></a>      <span class="k">end associate</span>
-<a name="ln-1252"></a>
-<a name="ln-1253"></a><span class="k">      return</span>
-<a name="ln-1254"></a><span class="k">   end subroutine </span><span class="n">io_write_discard</span>
-<a name="ln-1255"></a>
-<a name="ln-1256"></a>
-<a name="ln-1257"></a>   <span class="k">module subroutine </span><span class="n">io_write_encounter</span><span class="p">(</span><span class="n">t</span><span class="p">,</span> <span class="n">name1</span><span class="p">,</span> <span class="n">name2</span><span class="p">,</span> <span class="n">mass1</span><span class="p">,</span> <span class="n">mass2</span><span class="p">,</span> <span class="n">radius1</span><span class="p">,</span> <span class="n">radius2</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-1258"></a>                                 <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vh1</span><span class="p">,</span> <span class="n">vh2</span><span class="p">,</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">out_type</span><span class="p">)</span>
-<a name="ln-1259"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-1260"></a>      <span class="c">!!</span>
-<a name="ln-1261"></a>      <span class="c">!! Write close encounter data to output binary files</span>
-<a name="ln-1262"></a>      <span class="c">!!  There is no direct file output from this subroutine</span>
-<a name="ln-1263"></a>      <span class="c">!!</span>
-<a name="ln-1264"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: io_write_encounter.f90</span>
-<a name="ln-1265"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_write_encounter.f</span>
-<a name="ln-1266"></a>      <span class="k">implicit none</span>
-<a name="ln-1267"></a>      <span class="c">! Arguments</span>
-<a name="ln-1268"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">name1</span><span class="p">,</span> <span class="n">name2</span>
-<a name="ln-1269"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">t</span><span class="p">,</span> <span class="n">mass1</span><span class="p">,</span> <span class="n">mass2</span><span class="p">,</span> <span class="n">radius1</span><span class="p">,</span> <span class="n">radius2</span>
-<a name="ln-1270"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vh1</span><span class="p">,</span> <span class="n">vh2</span>
-<a name="ln-1271"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">out_type</span>
-<a name="ln-1272"></a>      <span class="c">! Internals</span>
-<a name="ln-1273"></a>      <span class="kt">logical</span> <span class="p">,</span> <span class="k">save</span>    <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-1274"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">lun</span> <span class="o">=</span> <span class="mi">30</span>
-<a name="ln-1275"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>        <span class="kd">::</span> <span class="n">ierr</span>
-<a name="ln-1276"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">save</span>    <span class="kd">::</span> <span class="n">iu</span> <span class="o">=</span> <span class="n">lun</span>
-<a name="ln-1277"></a>
-<a name="ln-1278"></a>      <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;OLD&#39;</span><span class="p">,</span> <span class="n">position</span> <span class="o">=</span> <span class="s1">&#39;APPEND&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-1279"></a>      <span class="k">if</span> <span class="p">((</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="n">lfirst</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1280"></a><span class="k">         open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;NEW&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-1281"></a>      <span class="k">end if</span>
-<a name="ln-1282"></a><span class="k">      if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1283"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest Error:&quot;</span>
-<a name="ln-1284"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Unable to open binary encounter file&quot;</span>
-<a name="ln-1285"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-1286"></a>      <span class="k">end if</span>
-<a name="ln-1287"></a><span class="k">      </span><span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-1288"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">t</span>
-<a name="ln-1289"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1290"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest Error:&quot;</span>
-<a name="ln-1291"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Unable to write binary file record&quot;</span>
-<a name="ln-1292"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-1293"></a>      <span class="k">end if</span>
-<a name="ln-1294"></a><span class="k">      write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">name1</span><span class="p">,</span> <span class="n">xh1</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">xh1</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">xh1</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">vh1</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">vh1</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">mass1</span><span class="p">,</span> <span class="n">radius1</span>
-<a name="ln-1295"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">name2</span><span class="p">,</span> <span class="n">xh2</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">xh2</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">xh2</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">vh2</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">vh2</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">mass2</span><span class="p">,</span> <span class="n">radius2</span>
-<a name="ln-1296"></a>      <span class="k">close</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-1297"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1298"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest Error:&quot;</span>
-<a name="ln-1299"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Unable to close binary encounter file&quot;</span>
-<a name="ln-1300"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-1301"></a>      <span class="k">end if</span>
-<a name="ln-1302"></a>
-<a name="ln-1303"></a><span class="k">      return</span>
-<a name="ln-1304"></a><span class="k">   end subroutine </span><span class="n">io_write_encounter</span>
-<a name="ln-1305"></a>
+<a name="ln-1189"></a><span class="k">      return </span>
+<a name="ln-1190"></a><span class="k">   end subroutine </span><span class="n">io_read_param_in</span>
+<a name="ln-1191"></a>
+<a name="ln-1192"></a>
+<a name="ln-1193"></a>   <span class="k">module subroutine </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">string</span><span class="p">)</span>
+<a name="ln-1194"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1195"></a>      <span class="c">!!</span>
+<a name="ln-1196"></a>      <span class="c">!! Convert string to uppercase</span>
+<a name="ln-1197"></a>      <span class="c">!!</span>
+<a name="ln-1198"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: util_toupper.f90</span>
+<a name="ln-1199"></a>      <span class="k">implicit none</span>
+<a name="ln-1200"></a>      <span class="c">! Arguments</span>
+<a name="ln-1201"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">string</span> <span class="c">!! String to make upper case</span>
+<a name="ln-1202"></a>      <span class="c">! Internals</span>
+<a name="ln-1203"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">length</span><span class="p">,</span> <span class="n">idx</span>
+<a name="ln-1204"></a>   
+<a name="ln-1205"></a>      <span class="n">length</span> <span class="o">=</span> <span class="nb">len</span><span class="p">(</span><span class="n">string</span><span class="p">)</span>
+<a name="ln-1206"></a>      <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">length</span>
+<a name="ln-1207"></a>         <span class="n">idx</span> <span class="o">=</span> <span class="nb">iachar</span><span class="p">(</span><span class="n">string</span><span class="p">(</span><span class="n">i</span><span class="p">:</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-1208"></a>         <span class="k">if</span> <span class="p">((</span><span class="n">idx</span> <span class="o">&gt;=</span> <span class="n">lowercase_begin</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="n">idx</span> <span class="o">&lt;=</span> <span class="n">lowercase_end</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-1209"></a><span class="k">            </span><span class="n">idx</span> <span class="o">=</span> <span class="n">idx</span> <span class="o">+</span> <span class="n">uppercase_offset</span>
+<a name="ln-1210"></a>            <span class="n">string</span><span class="p">(</span><span class="n">i</span><span class="p">:</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="nb">achar</span><span class="p">(</span><span class="n">idx</span><span class="p">)</span>
+<a name="ln-1211"></a>         <span class="k">end if</span>
+<a name="ln-1212"></a><span class="k">      end do</span>
+<a name="ln-1213"></a><span class="k">   </span>
+<a name="ln-1214"></a><span class="k">      return</span>
+<a name="ln-1215"></a><span class="k">   end subroutine </span><span class="n">io_toupper</span>
+<a name="ln-1216"></a>
+<a name="ln-1217"></a>
+<a name="ln-1218"></a>   <span class="k">module subroutine </span><span class="n">io_write_discard</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-1219"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1220"></a>      <span class="c">!!</span>
+<a name="ln-1221"></a>      <span class="c">!! Write out information about discarded test particle</span>
+<a name="ln-1222"></a>      <span class="c">!!</span>
+<a name="ln-1223"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_discard_write.f90</span>
+<a name="ln-1224"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_discard_write.f</span>
+<a name="ln-1225"></a>      <span class="k">implicit none</span>
+<a name="ln-1226"></a>      <span class="c">! Arguments</span>
+<a name="ln-1227"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>     <span class="c">!! Swiftest system object</span>
+<a name="ln-1228"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>   <span class="c">!! Current run configuration parameters </span>
+<a name="ln-1229"></a>      <span class="c">! Internals</span>
+<a name="ln-1230"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">LUN</span> <span class="o">=</span> <span class="mi">40</span>
+<a name="ln-1231"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">ierr</span>
+<a name="ln-1232"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">save</span> <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span> 
+<a name="ln-1233"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">vh</span>
+<a name="ln-1234"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">HDRFMT</span>    <span class="o">=</span> <span class="s1">&#39;(E23.16, 1X, I8, 1X, L1)&#39;</span>
+<a name="ln-1235"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">NAMEFMT</span>   <span class="o">=</span> <span class="s1">&#39;(A, 2(1X, I8))&#39;</span>
+<a name="ln-1236"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">VECFMT</span>    <span class="o">=</span> <span class="s1">&#39;(3(E23.16, 1X))&#39;</span>
+<a name="ln-1237"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">NPLFMT</span>    <span class="o">=</span> <span class="s1">&#39;(I8)&#39;</span>
+<a name="ln-1238"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">PLNAMEFMT</span> <span class="o">=</span> <span class="s1">&#39;(I8, 2(1X, E23.16))&#39;</span>
+<a name="ln-1239"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">pltemp</span>
+<a name="ln-1240"></a>
+<a name="ln-1241"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">tp_discards</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">tp_discards</span><span class="p">,</span> <span class="n">nsp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">tp_discards</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-1242"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">nsp</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-1243"></a><span class="k">         select case</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">)</span>
+<a name="ln-1244"></a>         <span class="k">case</span><span class="p">(</span><span class="s1">&#39;APPEND&#39;</span><span class="p">)</span>
+<a name="ln-1245"></a>            <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">discard_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;OLD&#39;</span><span class="p">,</span> <span class="n">position</span> <span class="o">=</span> <span class="s1">&#39;APPEND&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;FORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1246"></a>         <span class="k">case</span><span class="p">(</span><span class="s1">&#39;NEW&#39;</span><span class="p">,</span> <span class="s1">&#39;REPLACE&#39;</span><span class="p">,</span> <span class="s1">&#39;UNKNOWN&#39;</span><span class="p">)</span>
+<a name="ln-1247"></a>            <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">discard_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;FORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1248"></a>         <span class="k">case </span><span class="n">default</span>
+<a name="ln-1249"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid status code for OUT_STAT: &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">))</span>
+<a name="ln-1250"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-1251"></a>         <span class="k">end select</span>
+<a name="ln-1252"></a><span class="k">         </span><span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-1253"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lgr</span><span class="p">)</span> <span class="k">call </span><span class="n">tp_discards</span><span class="p">%</span><span class="n">pv2v</span><span class="p">(</span><span class="n">param</span><span class="p">)</span> 
+<a name="ln-1254"></a>
+<a name="ln-1255"></a>         <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">HDRFMT</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">nsp</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">lbig_discard</span>
+<a name="ln-1256"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nsp</span>
+<a name="ln-1257"></a>            <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">NAMEFMT</span><span class="p">)</span> <span class="n">SUB</span><span class="p">,</span> <span class="n">tp_discards</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">tp_discards</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-1258"></a>            <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">VECFMT</span><span class="p">)</span> <span class="n">tp_discards</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">tp_discards</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">tp_discards</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-1259"></a>            <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">VECFMT</span><span class="p">)</span> <span class="n">tp_discards</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">tp_discards</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">tp_discards</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-1260"></a>         <span class="k">end do</span>
+<a name="ln-1261"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lbig_discard</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1262"></a><span class="k">               if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lgr</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1263"></a><span class="k">                  allocate</span><span class="p">(</span><span class="n">pltemp</span><span class="p">,</span> <span class="n">source</span> <span class="o">=</span> <span class="n">pl</span><span class="p">)</span>
+<a name="ln-1264"></a>                  <span class="k">call </span><span class="n">pltemp</span><span class="p">%</span><span class="n">pv2v</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-1265"></a>                  <span class="k">allocate</span><span class="p">(</span><span class="n">vh</span><span class="p">,</span> <span class="n">source</span> <span class="o">=</span> <span class="n">pltemp</span><span class="p">%</span><span class="n">vh</span><span class="p">)</span>
+<a name="ln-1266"></a>                  <span class="k">deallocate</span><span class="p">(</span><span class="n">pltemp</span><span class="p">)</span>
+<a name="ln-1267"></a>               <span class="k">else</span>
+<a name="ln-1268"></a><span class="k">                  allocate</span><span class="p">(</span><span class="n">vh</span><span class="p">,</span> <span class="n">source</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">)</span>
+<a name="ln-1269"></a>               <span class="k">end if</span>
+<a name="ln-1270"></a>
+<a name="ln-1271"></a><span class="k">               write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">NPLFMT</span><span class="p">)</span> <span class="n">npl</span>
+<a name="ln-1272"></a>               <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
+<a name="ln-1273"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">PLNAMEFMT</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-1274"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">VECFMT</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-1275"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">VECFMT</span><span class="p">)</span> <span class="n">vh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">vh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">i</span><span class="p">),</span> <span class="n">vh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span>
+<a name="ln-1276"></a>               <span class="k">end do</span>
+<a name="ln-1277"></a><span class="k">               deallocate</span><span class="p">(</span><span class="n">vh</span><span class="p">)</span>
+<a name="ln-1278"></a>         <span class="k">end if</span>
+<a name="ln-1279"></a><span class="k">         close</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span>
+<a name="ln-1280"></a>      <span class="k">end associate</span>
+<a name="ln-1281"></a>
+<a name="ln-1282"></a><span class="k">      return</span>
+<a name="ln-1283"></a><span class="k">   end subroutine </span><span class="n">io_write_discard</span>
+<a name="ln-1284"></a>
+<a name="ln-1285"></a>
+<a name="ln-1286"></a>   <span class="k">module subroutine </span><span class="n">io_write_encounter</span><span class="p">(</span><span class="n">t</span><span class="p">,</span> <span class="n">name1</span><span class="p">,</span> <span class="n">name2</span><span class="p">,</span> <span class="n">mass1</span><span class="p">,</span> <span class="n">mass2</span><span class="p">,</span> <span class="n">radius1</span><span class="p">,</span> <span class="n">radius2</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-1287"></a>                                 <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vh1</span><span class="p">,</span> <span class="n">vh2</span><span class="p">,</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">out_type</span><span class="p">)</span>
+<a name="ln-1288"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1289"></a>      <span class="c">!!</span>
+<a name="ln-1290"></a>      <span class="c">!! Write close encounter data to output binary files</span>
+<a name="ln-1291"></a>      <span class="c">!!  There is no direct file output from this subroutine</span>
+<a name="ln-1292"></a>      <span class="c">!!</span>
+<a name="ln-1293"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: io_write_encounter.f90</span>
+<a name="ln-1294"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_write_encounter.f</span>
+<a name="ln-1295"></a>      <span class="k">implicit none</span>
+<a name="ln-1296"></a>      <span class="c">! Arguments</span>
+<a name="ln-1297"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">name1</span><span class="p">,</span> <span class="n">name2</span>
+<a name="ln-1298"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">t</span><span class="p">,</span> <span class="n">mass1</span><span class="p">,</span> <span class="n">mass2</span><span class="p">,</span> <span class="n">radius1</span><span class="p">,</span> <span class="n">radius2</span>
+<a name="ln-1299"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vh1</span><span class="p">,</span> <span class="n">vh2</span>
+<a name="ln-1300"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">out_type</span>
+<a name="ln-1301"></a>      <span class="c">! Internals</span>
+<a name="ln-1302"></a>      <span class="kt">logical</span> <span class="p">,</span> <span class="k">save</span>    <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-1303"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">lun</span> <span class="o">=</span> <span class="mi">30</span>
+<a name="ln-1304"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>        <span class="kd">::</span> <span class="n">ierr</span>
+<a name="ln-1305"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">save</span>    <span class="kd">::</span> <span class="n">iu</span> <span class="o">=</span> <span class="n">lun</span>
 <a name="ln-1306"></a>
-<a name="ln-1307"></a>   <span class="k">module subroutine </span><span class="n">io_write_frame_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-1308"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-1309"></a>      <span class="c">!!</span>
-<a name="ln-1310"></a>      <span class="c">!! Write a frame of output of either test particle or massive body data to the binary output file</span>
-<a name="ln-1311"></a>      <span class="c">!!    Note: If outputting to orbital elements, but sure that the conversion is done prior to calling this method</span>
-<a name="ln-1312"></a>      <span class="c">!!</span>
-<a name="ln-1313"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_write_frame.f90</span>
-<a name="ln-1314"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_write_frame.F</span>
-<a name="ln-1315"></a>      <span class="k">implicit none</span>
-<a name="ln-1316"></a>      <span class="c">! Arguments</span>
-<a name="ln-1317"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest particle object</span>
-<a name="ln-1318"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>     <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-1319"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-1320"></a>
-<a name="ln-1321"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">n</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
-<a name="ln-1322"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">n</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-1323"></a><span class="k">         write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1324"></a>         <span class="c">!write(iu) self%name(1:n)</span>
-<a name="ln-1325"></a>         <span class="k">select case</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_form</span><span class="p">)</span>
-<a name="ln-1326"></a>         <span class="k">case</span> <span class="p">(</span><span class="n">EL</span><span class="p">)</span> 
-<a name="ln-1327"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">a</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1328"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">e</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1329"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">inc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1330"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">capom</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1331"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">omega</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1332"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">capm</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1333"></a>         <span class="k">case</span> <span class="p">(</span><span class="n">XV</span><span class="p">)</span>
-<a name="ln-1334"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1335"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1336"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1337"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1338"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1339"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1340"></a>         <span class="k">end select</span>
-<a name="ln-1341"></a><span class="k">         select type</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>  
-<a name="ln-1342"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>  <span class="c">! Additional output if the passed polymorphic object is a massive body</span>
-<a name="ln-1343"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1344"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">rhill</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1345"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1346"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1347"></a><span class="k">               write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1348"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1349"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1350"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1351"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1352"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1353"></a>            <span class="k">end if</span>
-<a name="ln-1354"></a><span class="k">            if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1355"></a><span class="k">               write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">k2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1356"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Q</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
-<a name="ln-1357"></a>            <span class="k">end if</span>
-<a name="ln-1358"></a><span class="k">         end select</span>
-<a name="ln-1359"></a><span class="k">      end associate</span>
-<a name="ln-1360"></a>
-<a name="ln-1361"></a><span class="k">      return</span>
-<a name="ln-1362"></a><span class="k">   end subroutine </span><span class="n">io_write_frame_body</span>
-<a name="ln-1363"></a>
-<a name="ln-1364"></a>
-<a name="ln-1365"></a>   <span class="k">module subroutine </span><span class="n">io_write_frame_cb</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-1366"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-1367"></a>      <span class="c">!!</span>
-<a name="ln-1368"></a>      <span class="c">!! Write a frame of output of central body data to the binary output file</span>
-<a name="ln-1369"></a>      <span class="c">!!</span>
-<a name="ln-1370"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_write_frame.f90</span>
-<a name="ln-1371"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_write_frame.F</span>
-<a name="ln-1372"></a>      <span class="k">implicit none</span>
-<a name="ln-1373"></a>      <span class="c">! Arguments</span>
-<a name="ln-1374"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest central body object </span>
-<a name="ln-1375"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>     <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-1376"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-1377"></a>
-<a name="ln-1378"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">cb</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
-<a name="ln-1379"></a>         <span class="c">!write(iu) cb%name</span>
-<a name="ln-1380"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">id</span>
-<a name="ln-1381"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span>
-<a name="ln-1382"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">radius</span>
-<a name="ln-1383"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">j2rp2</span> 
-<a name="ln-1384"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">j4rp4</span> 
-<a name="ln-1385"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1386"></a><span class="k">            write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-1387"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-1388"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span>
-<a name="ln-1389"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-1390"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-1391"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span>
-<a name="ln-1392"></a>         <span class="k">end if</span>
-<a name="ln-1393"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1394"></a><span class="k">            write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">k2</span>
-<a name="ln-1395"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">Q</span>
-<a name="ln-1396"></a>         <span class="k">end if</span>
-<a name="ln-1397"></a><span class="k">      end associate</span>
-<a name="ln-1398"></a>
-<a name="ln-1399"></a><span class="k">      return</span>
-<a name="ln-1400"></a><span class="k">   end subroutine </span><span class="n">io_write_frame_cb</span>
-<a name="ln-1401"></a>
-<a name="ln-1402"></a>
-<a name="ln-1403"></a>   <span class="k">module subroutine </span><span class="n">io_write_frame_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-1404"></a>      <span class="c">!! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</span>
-<a name="ln-1405"></a>      <span class="c">!!</span>
-<a name="ln-1406"></a>      <span class="c">!! Write a frame (header plus records for each massive body and active test particle) to output binary file</span>
-<a name="ln-1407"></a>      <span class="c">!! There is no direct file output from this subroutine</span>
-<a name="ln-1408"></a>      <span class="c">!!</span>
-<a name="ln-1409"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_write_frame.f90</span>
-<a name="ln-1410"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_write_frame.F</span>
-<a name="ln-1411"></a>      <span class="k">implicit none</span>
-<a name="ln-1412"></a>      <span class="c">! Arguments</span>
-<a name="ln-1413"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest system object</span>
-<a name="ln-1414"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>     <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-1415"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-1416"></a>      <span class="c">! Internals</span>
-<a name="ln-1417"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">save</span>                    <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span> <span class="c">!! Flag to determine if this is the first call of this method</span>
-<a name="ln-1418"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                     <span class="kd">::</span> <span class="n">ierr</span>            <span class="c">!! I/O error code</span>
-<a name="ln-1419"></a>
-<a name="ln-1420"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">cb</span>         <span class="c">!! Temporary local version of pl structure used for non-destructive conversions</span>
-<a name="ln-1421"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">pl</span>         <span class="c">!! Temporary local version of pl structure used for non-destructive conversions</span>
-<a name="ln-1422"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">tp</span>          <span class="c">!! Temporary local version of pl structure used for non-destructive conversions</span>
-<a name="ln-1423"></a>
-<a name="ln-1424"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">cb</span><span class="p">,</span> <span class="n">source</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-1425"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">source</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-1426"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="n">source</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">)</span>
-<a name="ln-1427"></a>      <span class="n">iu</span> <span class="o">=</span> <span class="n">BINUNIT</span>
-<a name="ln-1428"></a>
-<a name="ln-1429"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">lfirst</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1430"></a><span class="k">         select case</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">)</span>
-<a name="ln-1431"></a>         <span class="k">case</span><span class="p">(</span><span class="s1">&#39;APPEND&#39;</span><span class="p">)</span>
-<a name="ln-1432"></a>            <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">outfile</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;OLD&#39;</span><span class="p">,</span> <span class="n">position</span> <span class="o">=</span> <span class="s1">&#39;APPEND&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-1433"></a>         <span class="k">case</span><span class="p">(</span><span class="s1">&#39;NEW&#39;</span><span class="p">,</span> <span class="s1">&#39;REPLACE&#39;</span><span class="p">,</span> <span class="s1">&#39;UNKNOWN&#39;</span><span class="p">)</span>
-<a name="ln-1434"></a>            <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">outfile</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-1435"></a>         <span class="k">case </span><span class="n">default</span>
-<a name="ln-1436"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid status code for OUT_STAT: &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">))</span>
-<a name="ln-1437"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-1438"></a>         <span class="k">end select</span>
-<a name="ln-1439"></a><span class="k">         if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1440"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error: io_write_frame_system - first&quot;</span><span class="p">,</span> <span class="n">ierr</span>
-<a name="ln-1441"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Binary output file &quot;</span> <span class="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">outfile</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; already exists or cannot be accessed&quot;</span>
-<a name="ln-1442"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   OUT_STAT: &quot;</span> <span class="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">))</span>
-<a name="ln-1443"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-1444"></a>         <span class="k">end if</span>
-<a name="ln-1445"></a><span class="k">         </span><span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-1446"></a>      <span class="k">else</span>
-<a name="ln-1447"></a><span class="k">         open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">outfile</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;OLD&#39;</span><span class="p">,</span> <span class="n">position</span> <span class="o">=</span>  <span class="s1">&#39;APPEND&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-1448"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1449"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error: io_write_frame_system&quot;</span>
-<a name="ln-1450"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Unable to open binary output file for APPEND&quot;</span>
-<a name="ln-1451"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-1452"></a>         <span class="k">end if</span>
-<a name="ln-1453"></a><span class="k">      end if</span>
-<a name="ln-1454"></a><span class="k">      call </span><span class="n">io_write_hdr</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">out_form</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">out_type</span><span class="p">)</span>
-<a name="ln-1455"></a>
-<a name="ln-1456"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lgr</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1457"></a><span class="k">         call </span><span class="n">pl</span><span class="p">%</span><span class="n">pv2v</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
-<a name="ln-1458"></a>         <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">pv2v</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
-<a name="ln-1459"></a>      <span class="k">end if</span>
-<a name="ln-1460"></a>
-<a name="ln-1461"></a><span class="k">      if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_form</span> <span class="o">==</span> <span class="n">EL</span><span class="p">)</span> <span class="k">then</span> <span class="c">! Do an orbital element conversion prior to writing out the frame, as we have access to the central body here</span>
-<a name="ln-1462"></a>         <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">xv2el</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-1463"></a>         <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">xv2el</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-1464"></a>      <span class="k">end if</span>
-<a name="ln-1465"></a>      
-<a name="ln-1466"></a>      <span class="c">! Write out each data type frame</span>
-<a name="ln-1467"></a>      <span class="k">call </span><span class="n">cb</span><span class="p">%</span><span class="n">write_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-1468"></a>      <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">write_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-1469"></a>      <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">write_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-1470"></a>
-<a name="ln-1471"></a>      <span class="k">deallocate</span><span class="p">(</span><span class="n">cb</span><span class="p">,</span> <span class="n">pl</span><span class="p">,</span> <span class="n">tp</span><span class="p">)</span>
-<a name="ln-1472"></a>
-<a name="ln-1473"></a>      <span class="k">close</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span>
-<a name="ln-1474"></a>
-<a name="ln-1475"></a>      <span class="k">return</span>
-<a name="ln-1476"></a><span class="k">   end subroutine </span><span class="n">io_write_frame_system</span>
-<a name="ln-1477"></a>
-<a name="ln-1478"></a>
-<a name="ln-1479"></a>   <span class="k">subroutine </span><span class="n">io_write_hdr</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">npl</span><span class="p">,</span> <span class="n">ntp</span><span class="p">,</span> <span class="n">out_form</span><span class="p">,</span> <span class="n">out_type</span><span class="p">)</span>
-<a name="ln-1480"></a>      <span class="c">!! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</span>
-<a name="ln-1481"></a>      <span class="c">!!</span>
-<a name="ln-1482"></a>      <span class="c">!! Write frame header to output binary file</span>
-<a name="ln-1483"></a>      <span class="c">!!</span>
-<a name="ln-1484"></a>      <span class="c">!! Adapted from David Adapted from David E. Kaufmann&#39;s Swifter routine io_write_hdr.f90</span>
-<a name="ln-1485"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_write_hdr.F</span>
-<a name="ln-1486"></a>      <span class="k">implicit none</span>
-<a name="ln-1487"></a>      <span class="c">! Arguments</span>
-<a name="ln-1488"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>       <span class="c">!! Output file unit number</span>
-<a name="ln-1489"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">t</span>        <span class="c">!! Current time of simulation</span>
-<a name="ln-1490"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">npl</span>      <span class="c">!! Number of massive bodies</span>
-<a name="ln-1491"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ntp</span>      <span class="c">!! Number of test particles</span>
-<a name="ln-1492"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">out_form</span> <span class="c">!! Output format type (&quot;EL&quot; or  &quot;XV&quot;)</span>
-<a name="ln-1493"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">out_type</span> <span class="c">!! Output file format type (REAL4, REAL8 - see swiftest module for symbolic name definitions)</span>
-<a name="ln-1494"></a>      <span class="c">! Internals</span>
-<a name="ln-1495"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>               <span class="kd">::</span> <span class="n">ierr</span> <span class="c">!! Error code</span>
-<a name="ln-1496"></a>   
-<a name="ln-1497"></a>      <span class="k">select case</span> <span class="p">(</span><span class="n">out_type</span><span class="p">)</span>
-<a name="ln-1498"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">REAL4_TYPE</span><span class="p">,</span><span class="n">SWIFTER_REAL4_TYPE</span><span class="p">)</span>
-<a name="ln-1499"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="kt">real</span><span class="p">(</span><span class="n">t</span><span class="p">,</span> <span class="nb">kind</span><span class="o">=</span><span class="n">SP</span><span class="p">)</span>
-<a name="ln-1500"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1501"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error:&quot;</span>
-<a name="ln-1502"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Unable to write binary file header&quot;</span>
-<a name="ln-1503"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-1504"></a>         <span class="k">end if</span>
-<a name="ln-1505"></a><span class="k">      case</span> <span class="p">(</span><span class="n">REAL8_TYPE</span><span class="p">,</span><span class="n">SWIFTER_REAL8_TYPE</span><span class="p">)</span>
-<a name="ln-1506"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">t</span>
-<a name="ln-1507"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-1508"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error:&quot;</span>
-<a name="ln-1509"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Unable to write binary file header&quot;</span>
-<a name="ln-1510"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-1511"></a>         <span class="k">end if</span>
-<a name="ln-1512"></a><span class="k">      end select</span>
-<a name="ln-1513"></a><span class="k">      write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">npl</span>
-<a name="ln-1514"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">ntp</span>
-<a name="ln-1515"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">out_form</span>
-<a name="ln-1516"></a>   
-<a name="ln-1517"></a>      <span class="k">return</span>
-<a name="ln-1518"></a><span class="k">   end subroutine </span><span class="n">io_write_hdr</span>
-<a name="ln-1519"></a>
-<a name="ln-1520"></a><span class="k">end submodule </span><span class="n">s_io</span>
+<a name="ln-1307"></a>      <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;OLD&#39;</span><span class="p">,</span> <span class="n">position</span> <span class="o">=</span> <span class="s1">&#39;APPEND&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1308"></a>      <span class="k">if</span> <span class="p">((</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="n">lfirst</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1309"></a><span class="k">         open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;NEW&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1310"></a>      <span class="k">end if</span>
+<a name="ln-1311"></a><span class="k">      if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1312"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest Error:&quot;</span>
+<a name="ln-1313"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Unable to open binary encounter file&quot;</span>
+<a name="ln-1314"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-1315"></a>      <span class="k">end if</span>
+<a name="ln-1316"></a><span class="k">      </span><span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-1317"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">t</span>
+<a name="ln-1318"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1319"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest Error:&quot;</span>
+<a name="ln-1320"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Unable to write binary file record&quot;</span>
+<a name="ln-1321"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-1322"></a>      <span class="k">end if</span>
+<a name="ln-1323"></a><span class="k">      write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">name1</span><span class="p">,</span> <span class="n">xh1</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">xh1</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">xh1</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">vh1</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">vh1</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">mass1</span><span class="p">,</span> <span class="n">radius1</span>
+<a name="ln-1324"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">name2</span><span class="p">,</span> <span class="n">xh2</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">xh2</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">xh2</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">vh2</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">vh2</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">mass2</span><span class="p">,</span> <span class="n">radius2</span>
+<a name="ln-1325"></a>      <span class="k">close</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1326"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1327"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest Error:&quot;</span>
+<a name="ln-1328"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Unable to close binary encounter file&quot;</span>
+<a name="ln-1329"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-1330"></a>      <span class="k">end if</span>
+<a name="ln-1331"></a>
+<a name="ln-1332"></a><span class="k">      return</span>
+<a name="ln-1333"></a><span class="k">   end subroutine </span><span class="n">io_write_encounter</span>
+<a name="ln-1334"></a>
+<a name="ln-1335"></a>
+<a name="ln-1336"></a>   <span class="k">module subroutine </span><span class="n">io_write_frame_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-1337"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1338"></a>      <span class="c">!!</span>
+<a name="ln-1339"></a>      <span class="c">!! Write a frame of output of either test particle or massive body data to the binary output file</span>
+<a name="ln-1340"></a>      <span class="c">!!    Note: If outputting to orbital elements, but sure that the conversion is done prior to calling this method</span>
+<a name="ln-1341"></a>      <span class="c">!!</span>
+<a name="ln-1342"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_write_frame.f90</span>
+<a name="ln-1343"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_write_frame.F</span>
+<a name="ln-1344"></a>      <span class="k">implicit none</span>
+<a name="ln-1345"></a>      <span class="c">! Arguments</span>
+<a name="ln-1346"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest particle object</span>
+<a name="ln-1347"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>     <span class="c">!! Unit number for the output file to write frame to</span>
+<a name="ln-1348"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-1349"></a>
+<a name="ln-1350"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">n</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-1351"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">n</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-1352"></a><span class="k">         write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1353"></a>         <span class="c">!write(iu) self%name(1:n)</span>
+<a name="ln-1354"></a>         <span class="k">select case</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_form</span><span class="p">)</span>
+<a name="ln-1355"></a>         <span class="k">case</span> <span class="p">(</span><span class="n">EL</span><span class="p">)</span> 
+<a name="ln-1356"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">a</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1357"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">e</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1358"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">inc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1359"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">capom</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1360"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">omega</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1361"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">capm</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1362"></a>         <span class="k">case</span> <span class="p">(</span><span class="n">XV</span><span class="p">)</span>
+<a name="ln-1363"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1364"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1365"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1366"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1367"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1368"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1369"></a>         <span class="k">end select</span>
+<a name="ln-1370"></a><span class="k">         select type</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>  
+<a name="ln-1371"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>  <span class="c">! Additional output if the passed polymorphic object is a massive body</span>
+<a name="ln-1372"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1373"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrhill_present</span><span class="p">)</span> <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">rhill</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1374"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lclose</span><span class="p">)</span> <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1375"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1376"></a><span class="k">               write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1377"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1378"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1379"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1380"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1381"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1382"></a>            <span class="k">end if</span>
+<a name="ln-1383"></a><span class="k">            if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1384"></a><span class="k">               write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">k2</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1385"></a>               <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">Q</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-1386"></a>            <span class="k">end if</span>
+<a name="ln-1387"></a><span class="k">         end select</span>
+<a name="ln-1388"></a><span class="k">      end associate</span>
+<a name="ln-1389"></a>
+<a name="ln-1390"></a><span class="k">      return</span>
+<a name="ln-1391"></a><span class="k">   end subroutine </span><span class="n">io_write_frame_body</span>
+<a name="ln-1392"></a>
+<a name="ln-1393"></a>
+<a name="ln-1394"></a>   <span class="k">module subroutine </span><span class="n">io_write_frame_cb</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-1395"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-1396"></a>      <span class="c">!!</span>
+<a name="ln-1397"></a>      <span class="c">!! Write a frame of output of central body data to the binary output file</span>
+<a name="ln-1398"></a>      <span class="c">!!</span>
+<a name="ln-1399"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_write_frame.f90</span>
+<a name="ln-1400"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_write_frame.F</span>
+<a name="ln-1401"></a>      <span class="k">implicit none</span>
+<a name="ln-1402"></a>      <span class="c">! Arguments</span>
+<a name="ln-1403"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest central body object </span>
+<a name="ln-1404"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>     <span class="c">!! Unit number for the output file to write frame to</span>
+<a name="ln-1405"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-1406"></a>
+<a name="ln-1407"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">cb</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-1408"></a>         <span class="c">!write(iu) cb%name</span>
+<a name="ln-1409"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">id</span>
+<a name="ln-1410"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span>
+<a name="ln-1411"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">radius</span>
+<a name="ln-1412"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">j2rp2</span> 
+<a name="ln-1413"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">j4rp4</span> 
+<a name="ln-1414"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1415"></a><span class="k">            write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-1416"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-1417"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span>
+<a name="ln-1418"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-1419"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-1420"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span>
+<a name="ln-1421"></a>         <span class="k">end if</span>
+<a name="ln-1422"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1423"></a><span class="k">            write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">k2</span>
+<a name="ln-1424"></a>            <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">Q</span>
+<a name="ln-1425"></a>         <span class="k">end if</span>
+<a name="ln-1426"></a><span class="k">      end associate</span>
+<a name="ln-1427"></a>
+<a name="ln-1428"></a><span class="k">      return</span>
+<a name="ln-1429"></a><span class="k">   end subroutine </span><span class="n">io_write_frame_cb</span>
+<a name="ln-1430"></a>
+<a name="ln-1431"></a>
+<a name="ln-1432"></a>   <span class="k">module subroutine </span><span class="n">io_write_frame_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-1433"></a>      <span class="c">!! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</span>
+<a name="ln-1434"></a>      <span class="c">!!</span>
+<a name="ln-1435"></a>      <span class="c">!! Write a frame (header plus records for each massive body and active test particle) to output binary file</span>
+<a name="ln-1436"></a>      <span class="c">!! There is no direct file output from this subroutine</span>
+<a name="ln-1437"></a>      <span class="c">!!</span>
+<a name="ln-1438"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine  io_write_frame.f90</span>
+<a name="ln-1439"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_write_frame.F</span>
+<a name="ln-1440"></a>      <span class="k">implicit none</span>
+<a name="ln-1441"></a>      <span class="c">! Arguments</span>
+<a name="ln-1442"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest system object</span>
+<a name="ln-1443"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>     <span class="c">!! Unit number for the output file to write frame to</span>
+<a name="ln-1444"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-1445"></a>      <span class="c">! Internals</span>
+<a name="ln-1446"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">save</span>                    <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span> <span class="c">!! Flag to determine if this is the first call of this method</span>
+<a name="ln-1447"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                     <span class="kd">::</span> <span class="n">ierr</span>            <span class="c">!! I/O error code</span>
+<a name="ln-1448"></a>
+<a name="ln-1449"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">cb</span>         <span class="c">!! Temporary local version of pl structure used for non-destructive conversions</span>
+<a name="ln-1450"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">pl</span>         <span class="c">!! Temporary local version of pl structure used for non-destructive conversions</span>
+<a name="ln-1451"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">tp</span>          <span class="c">!! Temporary local version of pl structure used for non-destructive conversions</span>
+<a name="ln-1452"></a>
+<a name="ln-1453"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">cb</span><span class="p">,</span> <span class="n">source</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-1454"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">source</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-1455"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="n">source</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">)</span>
+<a name="ln-1456"></a>      <span class="n">iu</span> <span class="o">=</span> <span class="n">BINUNIT</span>
+<a name="ln-1457"></a>
+<a name="ln-1458"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">lfirst</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1459"></a><span class="k">         select case</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">)</span>
+<a name="ln-1460"></a>         <span class="k">case</span><span class="p">(</span><span class="s1">&#39;APPEND&#39;</span><span class="p">)</span>
+<a name="ln-1461"></a>            <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">outfile</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;OLD&#39;</span><span class="p">,</span> <span class="n">position</span> <span class="o">=</span> <span class="s1">&#39;APPEND&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1462"></a>         <span class="k">case</span><span class="p">(</span><span class="s1">&#39;NEW&#39;</span><span class="p">,</span> <span class="s1">&#39;REPLACE&#39;</span><span class="p">,</span> <span class="s1">&#39;UNKNOWN&#39;</span><span class="p">)</span>
+<a name="ln-1463"></a>            <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">outfile</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1464"></a>         <span class="k">case </span><span class="n">default</span>
+<a name="ln-1465"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid status code for OUT_STAT: &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">))</span>
+<a name="ln-1466"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-1467"></a>         <span class="k">end select</span>
+<a name="ln-1468"></a><span class="k">         if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1469"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error: io_write_frame_system - first&quot;</span><span class="p">,</span> <span class="n">ierr</span>
+<a name="ln-1470"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Binary output file &quot;</span> <span class="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">outfile</span><span class="p">))</span> <span class="o">//</span> <span class="s2">&quot; already exists or cannot be accessed&quot;</span>
+<a name="ln-1471"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   OUT_STAT: &quot;</span> <span class="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">))</span>
+<a name="ln-1472"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-1473"></a>         <span class="k">end if</span>
+<a name="ln-1474"></a><span class="k">         </span><span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-1475"></a>      <span class="k">else</span>
+<a name="ln-1476"></a><span class="k">         open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">iu</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">outfile</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;OLD&#39;</span><span class="p">,</span> <span class="n">position</span> <span class="o">=</span>  <span class="s1">&#39;APPEND&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-1477"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1478"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error: io_write_frame_system&quot;</span>
+<a name="ln-1479"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Unable to open binary output file for APPEND&quot;</span>
+<a name="ln-1480"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-1481"></a>         <span class="k">end if</span>
+<a name="ln-1482"></a><span class="k">      end if</span>
+<a name="ln-1483"></a><span class="k">      call </span><span class="n">io_write_hdr</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">out_form</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">out_type</span><span class="p">)</span>
+<a name="ln-1484"></a>
+<a name="ln-1485"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lgr</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1486"></a><span class="k">         call </span><span class="n">pl</span><span class="p">%</span><span class="n">pv2v</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-1487"></a>         <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">pv2v</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-1488"></a>      <span class="k">end if</span>
+<a name="ln-1489"></a>
+<a name="ln-1490"></a><span class="k">      if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_form</span> <span class="o">==</span> <span class="n">EL</span><span class="p">)</span> <span class="k">then</span> <span class="c">! Do an orbital element conversion prior to writing out the frame, as we have access to the central body here</span>
+<a name="ln-1491"></a>         <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">xv2el</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-1492"></a>         <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">xv2el</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-1493"></a>      <span class="k">end if</span>
+<a name="ln-1494"></a>      
+<a name="ln-1495"></a>      <span class="c">! Write out each data type frame</span>
+<a name="ln-1496"></a>      <span class="k">call </span><span class="n">cb</span><span class="p">%</span><span class="n">write_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-1497"></a>      <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">write_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-1498"></a>      <span class="k">call </span><span class="n">tp</span><span class="p">%</span><span class="n">write_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-1499"></a>
+<a name="ln-1500"></a>      <span class="k">deallocate</span><span class="p">(</span><span class="n">cb</span><span class="p">,</span> <span class="n">pl</span><span class="p">,</span> <span class="n">tp</span><span class="p">)</span>
+<a name="ln-1501"></a>
+<a name="ln-1502"></a>      <span class="k">close</span><span class="p">(</span><span class="n">iu</span><span class="p">)</span>
+<a name="ln-1503"></a>
+<a name="ln-1504"></a>      <span class="k">return</span>
+<a name="ln-1505"></a><span class="k">   end subroutine </span><span class="n">io_write_frame_system</span>
+<a name="ln-1506"></a>
+<a name="ln-1507"></a>
+<a name="ln-1508"></a>   <span class="k">subroutine </span><span class="n">io_write_hdr</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">npl</span><span class="p">,</span> <span class="n">ntp</span><span class="p">,</span> <span class="n">out_form</span><span class="p">,</span> <span class="n">out_type</span><span class="p">)</span>
+<a name="ln-1509"></a>      <span class="c">!! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</span>
+<a name="ln-1510"></a>      <span class="c">!!</span>
+<a name="ln-1511"></a>      <span class="c">!! Write frame header to output binary file</span>
+<a name="ln-1512"></a>      <span class="c">!!</span>
+<a name="ln-1513"></a>      <span class="c">!! Adapted from David Adapted from David E. Kaufmann&#39;s Swifter routine io_write_hdr.f90</span>
+<a name="ln-1514"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine io_write_hdr.F</span>
+<a name="ln-1515"></a>      <span class="k">implicit none</span>
+<a name="ln-1516"></a>      <span class="c">! Arguments</span>
+<a name="ln-1517"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>       <span class="c">!! Output file unit number</span>
+<a name="ln-1518"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">t</span>        <span class="c">!! Current time of simulation</span>
+<a name="ln-1519"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">npl</span>      <span class="c">!! Number of massive bodies</span>
+<a name="ln-1520"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ntp</span>      <span class="c">!! Number of test particles</span>
+<a name="ln-1521"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">out_form</span> <span class="c">!! Output format type (&quot;EL&quot; or  &quot;XV&quot;)</span>
+<a name="ln-1522"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">out_type</span> <span class="c">!! Output file format type (REAL4, REAL8 - see swiftest module for symbolic name definitions)</span>
+<a name="ln-1523"></a>      <span class="c">! Internals</span>
+<a name="ln-1524"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>               <span class="kd">::</span> <span class="n">ierr</span> <span class="c">!! Error code</span>
+<a name="ln-1525"></a>   
+<a name="ln-1526"></a>      <span class="k">select case</span> <span class="p">(</span><span class="n">out_type</span><span class="p">)</span>
+<a name="ln-1527"></a>      <span class="k">case</span> <span class="p">(</span><span class="n">REAL4_TYPE</span><span class="p">,</span><span class="n">SWIFTER_REAL4_TYPE</span><span class="p">)</span>
+<a name="ln-1528"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="kt">real</span><span class="p">(</span><span class="n">t</span><span class="p">,</span> <span class="nb">kind</span><span class="o">=</span><span class="n">SP</span><span class="p">)</span>
+<a name="ln-1529"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1530"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error:&quot;</span>
+<a name="ln-1531"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Unable to write binary file header&quot;</span>
+<a name="ln-1532"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-1533"></a>         <span class="k">end if</span>
+<a name="ln-1534"></a><span class="k">      case</span> <span class="p">(</span><span class="n">REAL8_TYPE</span><span class="p">,</span><span class="n">SWIFTER_REAL8_TYPE</span><span class="p">)</span>
+<a name="ln-1535"></a>         <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">t</span>
+<a name="ln-1536"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-1537"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error:&quot;</span>
+<a name="ln-1538"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   Unable to write binary file header&quot;</span>
+<a name="ln-1539"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-1540"></a>         <span class="k">end if</span>
+<a name="ln-1541"></a><span class="k">      end select</span>
+<a name="ln-1542"></a><span class="k">      write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">npl</span>
+<a name="ln-1543"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">ntp</span>
+<a name="ln-1544"></a>      <span class="k">write</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span> <span class="n">out_form</span>
+<a name="ln-1545"></a>   
+<a name="ln-1546"></a>      <span class="k">return</span>
+<a name="ln-1547"></a><span class="k">   end subroutine </span><span class="n">io_write_hdr</span>
+<a name="ln-1548"></a>
+<a name="ln-1549"></a><span class="k">end submodule </span><span class="n">s_io</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/kick.f90.html b/docs/sourcefile/kick.f90.html
index 3585922cc..eca8d4e71 100644
--- a/docs/sourcefile/kick.f90.html
+++ b/docs/sourcefile/kick.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~kick.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilekickf90EfferentGraph" width="641pt" height="210pt"
- viewBox="0.00 0.00 641.00 209.52" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~kick.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 282)">
+<svg id="sourcefilekickf90EfferentGraph" width="641pt" height="224pt"
+ viewBox="0.00 0.00 641.00 223.62" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~kick.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 301.25)">
 <title>sourcefile~~kick.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 871,-282 871,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 871,-301.25 871,4 -4,4"/>
 <!-- sourcefile~kick.f90 -->
 <g id="sourcefile~~kick.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~kick.f90</title>
-<polygon fill="none" stroke="black" points="867,-24 813,-24 813,0 867,0 867,-24"/>
-<text text-anchor="middle" x="840" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">kick.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~kick.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.82,-22.86C803.68,-26.66 793.22,-30.99 783.3,-35.11"/>
-<polygon fill="#000000" stroke="#000000" points="781.91,-31.9 774.02,-38.96 784.59,-38.36 781.91,-31.9"/>
+<polygon fill="none" stroke="black" points="867,-260 813,-260 813,-236 867,-236 867,-260"/>
+<text text-anchor="middle" x="840" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">kick.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~kick.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~kick.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~kick.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-11.34C738.17,-10.21 518.02,-12.21 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-256.09C772.77,-267.78 693.44,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~kick.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~kick.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.82,-242.43C804.76,-240.72 795.69,-238.79 786.86,-236.91"/>
+<polygon fill="#000000" stroke="#000000" points="787.58,-233.48 777.07,-234.82 786.12,-240.33 787.58,-233.48"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~kick.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~kick.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~kick.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~kick.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~kick.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~kick.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~kick.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~kick.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~kick.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~kick.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~kick.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~kick.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~kick.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~kick.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~kick.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~kick.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~kick.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~kick.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~kick.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~kick.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~kick.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~kick.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~kick.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~kick.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~kick.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~kick.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~kick.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~kick.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~kick.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~kick.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~kick.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/lambda_function.f90.html b/docs/sourcefile/lambda_function.f90.html
index 8a2f3edc0..ffc447c06 100644
--- a/docs/sourcefile/lambda_function.f90.html
+++ b/docs/sourcefile/lambda_function.f90.html
@@ -303,351 +303,366 @@ <h3 class="panel-title">Files dependent on this one</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~lambda_function.f90~~AfferentGraph Pages: 1 -->
-<svg id="sourcefilelambda_functionf90AfferentGraph" width="419pt" height="2426pt"
- viewBox="0.00 0.00 419.00 2426.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2422)">
+<svg id="sourcefilelambda_functionf90AfferentGraph" width="419pt" height="2468pt"
+ viewBox="0.00 0.00 419.00 2468.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2464)">
 <title>sourcefile~~lambda_function.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2422 415,-2422 415,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 415,-2464 415,4 -4,4"/>
 <!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node1" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<polygon fill="none" stroke="black" points="109,-1221 0,-1221 0,-1197 109,-1197 109,-1221"/>
-<text text-anchor="middle" x="54.5" y="-1206.6" font-family="Helvetica,sans-Serif" font-size="10.50">lambda_function.f90</text>
+<polygon fill="none" stroke="black" points="109,-1242 0,-1242 0,-1218 109,-1218 109,-1242"/>
+<text text-anchor="middle" x="54.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50">lambda_function.f90</text>
 </g>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node2" class="node">
 <title>sourcefile~swiftest.f90</title>
 <g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-1221 145,-1221 145,-1197 211,-1197 211,-1221"/>
-<text text-anchor="middle" x="178" y="-1206.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-1242 145,-1242 145,-1218 211,-1218 211,-1242"/>
+<text text-anchor="middle" x="178" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge1" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.76,-1209C136.79,-1209 127.98,-1209 119.08,-1209"/>
-<polygon fill="#000000" stroke="#000000" points="119.04,-1205.5 109.04,-1209 119.04,-1212.5 119.04,-1205.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.76,-1230C136.79,-1230 127.98,-1230 119.08,-1230"/>
+<polygon fill="#000000" stroke="#000000" points="119.04,-1226.5 109.04,-1230 119.04,-1233.5 119.04,-1226.5"/>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~eucl.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node3" class="node">
-<title>sourcefile~obl.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356,-2418 302,-2418 302,-2394 356,-2394 356,-2418"/>
-<text text-anchor="middle" x="329" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
+<title>sourcefile~eucl.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356,-2460 302,-2460 302,-2436 356,-2436 356,-2460"/>
+<text text-anchor="middle" x="329" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge2" class="edge">
-<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.91,-2406.7C283.58,-2405.66 260.09,-2400.94 247,-2385 208.94,-2338.65 183.53,-1389.49 179.55,-1231.27"/>
-<polygon fill="#000000" stroke="#000000" points="183.05,-1231.18 179.3,-1221.27 176.05,-1231.35 183.05,-1231.18"/>
+<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.9,-2448.7C283.57,-2447.67 260.08,-2442.95 247,-2427 208.25,-2379.75 183.37,-1411.7 179.52,-1252.17"/>
+<polygon fill="#000000" stroke="#000000" points="183.02,-1252.01 179.28,-1242.1 176.02,-1252.18 183.02,-1252.01"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
+<!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node4" class="node">
-<title>sourcefile~util_sort.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-2376 295,-2376 295,-2352 363,-2352 363,-2376"/>
-<text text-anchor="middle" x="329" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="364.5,-2418 293.5,-2418 293.5,-2394 364.5,-2394 364.5,-2418"/>
+<text text-anchor="middle" x="329" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge3" class="edge">
-<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.73,-2364.1C277.81,-2362.27 258.45,-2356.91 247,-2343 173.8,-2254.03 177.57,-1382.74 178.79,-1231.36"/>
-<polygon fill="#000000" stroke="#000000" points="182.29,-1231.05 178.88,-1221.02 175.29,-1230.99 182.29,-1231.05"/>
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M293.49,-2405.97C276.87,-2404.01 258.16,-2398.58 247,-2385 172.42,-2294.26 177.36,-1405.17 178.77,-1252.31"/>
+<polygon fill="#000000" stroke="#000000" points="182.27,-1252.28 178.86,-1242.25 175.27,-1252.21 182.27,-1252.28"/>
 </g>
-<!-- sourcefile~whm_setup.f90 -->
+<!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node5" class="node">
-<title>sourcefile~whm_setup.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="371.5,-2334 286.5,-2334 286.5,-2310 371.5,-2310 371.5,-2334"/>
-<text text-anchor="middle" x="329" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365.5,-2376 292.5,-2376 292.5,-2352 365.5,-2352 365.5,-2376"/>
+<text text-anchor="middle" x="329" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge4" class="edge">
-<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.41,-2320.91C271.78,-2318.31 256.61,-2312.66 247,-2301 176.55,-2215.58 178.02,-1379.81 178.85,-1231.46"/>
-<polygon fill="#000000" stroke="#000000" points="182.35,-1231.31 178.91,-1221.29 175.35,-1231.27 182.35,-1231.31"/>
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.27,-2363.81C275.96,-2361.73 257.9,-2356.23 247,-2343 175.17,-2255.81 177.8,-1402.31 178.82,-1252.42"/>
+<polygon fill="#000000" stroke="#000000" points="182.32,-1252.19 178.89,-1242.16 175.32,-1252.13 182.32,-1252.19"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node6" class="node">
-<title>sourcefile~whm_coord.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-2292 286,-2292 286,-2268 372,-2268 372,-2292"/>
-<text text-anchor="middle" x="329" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="411,-2334 247,-2334 247,-2310 411,-2310 411,-2334"/>
+<text text-anchor="middle" x="329" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge5" class="edge">
-<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.58,-2278.74C271.22,-2276.07 256.44,-2270.42 247,-2259 179.28,-2177.1 178.49,-1376.54 178.9,-1231.48"/>
-<polygon fill="#000000" stroke="#000000" points="182.41,-1231.17 178.94,-1221.16 175.41,-1231.15 182.41,-1231.17"/>
+<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.92,-2309.9C253.23,-2307.41 249.87,-2304.47 247,-2301 177.91,-2217.34 178.25,-1399.17 178.87,-1252.47"/>
+<polygon fill="#000000" stroke="#000000" points="182.38,-1252.07 178.92,-1242.05 175.38,-1252.03 182.38,-1252.07"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node7" class="node">
-<title>sourcefile~util_append.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-2250 286,-2250 286,-2226 372,-2226 372,-2250"/>
-<text text-anchor="middle" x="329" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="376.5,-2292 281.5,-2292 281.5,-2268 376.5,-2268 376.5,-2292"/>
+<text text-anchor="middle" x="329" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge6" class="edge">
-<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.6,-2236.73C271.24,-2234.06 256.46,-2228.41 247,-2217 181.94,-2138.53 178.97,-1371.46 178.97,-1231.02"/>
-<polygon fill="#000000" stroke="#000000" points="182.47,-1231.02 178.97,-1221.02 175.47,-1231.01 182.47,-1231.02"/>
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.36,-2277.86C268.38,-2274.9 255.52,-2269.29 247,-2259 180.65,-2178.86 178.73,-1395.84 178.94,-1252.48"/>
+<polygon fill="#000000" stroke="#000000" points="182.44,-1252.27 178.96,-1242.27 175.44,-1252.26 182.44,-1252.27"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node8" class="node">
-<title>sourcefile~helio_coord.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-2208 286,-2208 286,-2184 372,-2184 372,-2208"/>
-<text text-anchor="middle" x="329" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-2250 295,-2250 295,-2226 363,-2226 363,-2250"/>
+<text text-anchor="middle" x="329" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge7" class="edge">
-<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.62,-2194.71C271.26,-2192.04 256.47,-2186.39 247,-2175 184.72,-2100.11 179.47,-1369.25 179.04,-1231.37"/>
-<polygon fill="#000000" stroke="#000000" points="182.54,-1231.17 179.01,-1221.18 175.54,-1231.19 182.54,-1231.17"/>
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.78,-2238.06C277.87,-2236.22 258.51,-2230.86 247,-2217 183.37,-2140.36 179.22,-1392.16 179,-1252.42"/>
+<polygon fill="#000000" stroke="#000000" points="182.5,-1252.1 178.99,-1242.1 175.5,-1252.11 182.5,-1252.1"/>
 </g>
-<!-- sourcefile~gr.f90 -->
+<!-- sourcefile~util_exit.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node9" class="node">
-<title>sourcefile~gr.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356,-2166 302,-2166 302,-2142 356,-2142 356,-2166"/>
-<text text-anchor="middle" x="329" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362.5,-2208 295.5,-2208 295.5,-2184 362.5,-2184 362.5,-2208"/>
+<text text-anchor="middle" x="329" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge8" class="edge">
-<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.98,-2154.64C283.69,-2153.57 260.22,-2148.84 247,-2133 187.49,-2061.67 180.01,-1366.62 179.12,-1231.64"/>
-<polygon fill="#000000" stroke="#000000" points="182.61,-1231.28 179.05,-1221.3 175.61,-1231.32 182.61,-1231.28"/>
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.21,-2196.09C278.21,-2194.29 258.62,-2188.95 247,-2175 186.08,-2101.85 179.73,-1388.27 179.08,-1252.31"/>
+<polygon fill="#000000" stroke="#000000" points="182.58,-1252.23 179.03,-1242.24 175.58,-1252.26 182.58,-1252.23"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
+<!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node10" class="node">
-<title>sourcefile~symba_util.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="370,-2124 288,-2124 288,-2100 370,-2100 370,-2124"/>
-<text text-anchor="middle" x="329" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368.5,-2166 289.5,-2166 289.5,-2142 368.5,-2142 368.5,-2166"/>
+<text text-anchor="middle" x="329" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge9" class="edge">
-<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.76,-2111.05C272.77,-2108.54 256.98,-2102.92 247,-2091 190.18,-2023.13 180.55,-1362.2 179.2,-1231.42"/>
-<polygon fill="#000000" stroke="#000000" points="182.69,-1231.02 179.1,-1221.06 175.69,-1231.09 182.69,-1231.02"/>
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.43,-2153.33C273.94,-2150.96 257.34,-2145.37 247,-2133 188.77,-2063.33 180.26,-1384.05 179.15,-1252.13"/>
+<polygon fill="#000000" stroke="#000000" points="182.65,-1251.99 179.07,-1242.02 175.65,-1252.05 182.65,-1251.99"/>
 </g>
-<!-- sourcefile~eucl.f90 -->
+<!-- sourcefile~swiftest_driver.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node11" class="node">
-<title>sourcefile~eucl.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356,-2082 302,-2082 302,-2058 356,-2058 356,-2082"/>
-<text text-anchor="middle" x="329" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="378,-2124 280,-2124 280,-2100 378,-2100 378,-2124"/>
+<text text-anchor="middle" x="329" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge10" class="edge">
-<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.63,-2070.59C283.41,-2069.46 260.18,-2064.68 247,-2049 192.86,-1984.58 181.11,-1357.57 179.29,-1231.15"/>
-<polygon fill="#000000" stroke="#000000" points="182.78,-1231.05 179.15,-1221.1 175.79,-1231.15 182.78,-1231.05"/>
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.75,-2109.39C267.35,-2106.34 255.22,-2100.79 247,-2091 191.52,-2024.86 180.83,-1380.92 179.24,-1252.29"/>
+<polygon fill="#000000" stroke="#000000" points="182.74,-1252.04 179.12,-1242.08 175.74,-1252.12 182.74,-1252.04"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~helio_coord.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node12" class="node">
-<title>sourcefile~util_copy.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="364.5,-2040 293.5,-2040 293.5,-2016 364.5,-2016 364.5,-2040"/>
-<text text-anchor="middle" x="329" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
+<title>sourcefile~helio_coord.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-2082 286,-2082 286,-2058 372,-2058 372,-2082"/>
+<text text-anchor="middle" x="329" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge12" class="edge">
-<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M293.23,-2027.8C276.75,-2025.77 258.24,-2020.32 247,-2007 195.58,-1946.08 181.72,-1353.86 179.39,-1231.18"/>
-<polygon fill="#000000" stroke="#000000" points="182.88,-1231.03 179.2,-1221.09 175.88,-1231.15 182.88,-1231.03"/>
+<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge11" class="edge">
+<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.69,-2068.65C271.34,-2065.97 256.55,-2060.33 247,-2049 194.25,-1986.37 181.42,-1377.38 179.34,-1252.36"/>
+<polygon fill="#000000" stroke="#000000" points="182.83,-1252.04 179.17,-1242.1 175.83,-1252.16 182.83,-1252.04"/>
 </g>
-<!-- sourcefile~symba_collision.f90 -->
+<!-- sourcefile~symba_fragmentation.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node13" class="node">
-<title>sourcefile~symba_collision.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="382,-1998 276,-1998 276,-1974 382,-1974 382,-1998"/>
-<text text-anchor="middle" x="329" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
+<title>sourcefile~symba_fragmentation.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="396,-2040 262,-2040 262,-2016 396,-2016 396,-2040"/>
+<text text-anchor="middle" x="329" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.61,-1982.19C264.71,-1978.97 254.33,-1973.64 247,-1965 198.28,-1907.56 182.35,-1349.75 179.5,-1231.11"/>
-<polygon fill="#000000" stroke="#000000" points="182.99,-1230.95 179.26,-1221.04 175.99,-1231.12 182.99,-1230.95"/>
+<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge12" class="edge">
+<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M261.85,-2018.69C256.23,-2015.7 251.13,-2011.88 247,-2007 196.96,-1947.85 182.04,-1373.44 179.44,-1252.34"/>
+<polygon fill="#000000" stroke="#000000" points="182.94,-1252 179.23,-1242.07 175.94,-1252.14 182.94,-1252"/>
 </g>
-<!-- sourcefile~symba_io.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node14" class="node">
-<title>sourcefile~symba_io.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367,-1956 291,-1956 291,-1932 367,-1932 367,-1956"/>
-<text text-anchor="middle" x="329" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="384.5,-1998 273.5,-1998 273.5,-1974 384.5,-1974 384.5,-1998"/>
+<text text-anchor="middle" x="329" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.8,-1943.42C274.98,-1941.14 257.75,-1935.6 247,-1923 201.02,-1869.07 183.04,-1346.35 179.62,-1231.32"/>
-<polygon fill="#000000" stroke="#000000" points="183.12,-1231.11 179.33,-1221.21 176.12,-1231.31 183.12,-1231.11"/>
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge13" class="edge">
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.12,-1981.4C263.15,-1978.12 253.78,-1972.97 247,-1965 199.7,-1909.38 182.72,-1370.24 179.57,-1252.6"/>
+<polygon fill="#000000" stroke="#000000" points="183.06,-1252.18 179.3,-1242.28 176.06,-1252.37 183.06,-1252.18"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~gr.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node15" class="node">
-<title>sourcefile~helio_drift.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367.5,-1914 290.5,-1914 290.5,-1890 367.5,-1890 367.5,-1914"/>
-<text text-anchor="middle" x="329" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356,-1956 302,-1956 302,-1932 356,-1932 356,-1956"/>
+<text text-anchor="middle" x="329" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge15" class="edge">
-<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.42,-1901.33C274.72,-1899.01 257.69,-1893.46 247,-1881 203.68,-1830.5 183.73,-1341.37 179.75,-1231.04"/>
-<polygon fill="#000000" stroke="#000000" points="183.25,-1230.91 179.4,-1221.04 176.26,-1231.16 183.25,-1230.91"/>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge14" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.71,-1944.52C283.53,-1943.36 260.31,-1938.57 247,-1923 202.37,-1870.81 183.4,-1365.42 179.69,-1252.36"/>
+<polygon fill="#000000" stroke="#000000" points="183.18,-1252.02 179.37,-1242.14 176.19,-1252.24 183.18,-1252.02"/>
 </g>
-<!-- sourcefile~symba_kick.f90 -->
+<!-- sourcefile~fragmentation.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node16" class="node">
-<title>sourcefile~symba_kick.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-1872 286,-1872 286,-1848 372,-1848 372,-1872"/>
-<text text-anchor="middle" x="329" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
+<title>sourcefile~fragmentation.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="377.5,-1914 280.5,-1914 280.5,-1890 377.5,-1890 377.5,-1914"/>
+<text text-anchor="middle" x="329" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.84,-1858.52C271.51,-1855.83 256.68,-1850.21 247,-1839 206.42,-1792 184.53,-1337.89 179.92,-1231.31"/>
-<polygon fill="#000000" stroke="#000000" points="183.41,-1230.92 179.49,-1221.08 176.42,-1231.22 183.41,-1230.92"/>
+<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge15" class="edge">
+<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.33,-1899.36C267.79,-1896.32 255.43,-1890.8 247,-1881 205.08,-1832.28 184.14,-1361.22 179.84,-1252.37"/>
+<polygon fill="#000000" stroke="#000000" points="183.33,-1252.06 179.45,-1242.21 176.34,-1252.33 183.33,-1252.06"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node17" class="node">
-<title>sourcefile~rmvs_util.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365.5,-1830 292.5,-1830 292.5,-1806 365.5,-1806 365.5,-1830"/>
-<text text-anchor="middle" x="329" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="400,-1872 258,-1872 258,-1848 400,-1848 400,-1872"/>
+<text text-anchor="middle" x="329" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge17" class="edge">
-<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.16,-1817.49C276.04,-1815.31 258.16,-1809.82 247,-1797 209.08,-1753.43 185.32,-1332.89 180.09,-1231.1"/>
-<polygon fill="#000000" stroke="#000000" points="183.58,-1230.84 179.58,-1221.03 176.59,-1231.2 183.58,-1230.84"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge16" class="edge">
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.84,-1848.2C253.82,-1845.66 250.14,-1842.62 247,-1839 207.75,-1793.72 184.92,-1356.48 180.01,-1252.23"/>
+<polygon fill="#000000" stroke="#000000" points="183.5,-1252.03 179.54,-1242.2 176.51,-1252.35 183.5,-1252.03"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~util_rescale.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node18" class="node">
-<title>sourcefile~tides_getacch_pl.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="384.5,-1788 273.5,-1788 273.5,-1764 384.5,-1764 384.5,-1788"/>
-<text text-anchor="middle" x="329" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="371.5,-1830 286.5,-1830 286.5,-1806 371.5,-1806 371.5,-1830"/>
+<text text-anchor="middle" x="329" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge18" class="edge">
-<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.31,-1771.23C263.33,-1767.96 253.9,-1762.86 247,-1755 177.12,-1675.41 177.28,-1324.03 178.57,-1231.43"/>
-<polygon fill="#000000" stroke="#000000" points="182.08,-1231.29 178.74,-1221.23 175.08,-1231.17 182.08,-1231.29"/>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge17" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.34,-1816.54C271.88,-1813.87 256.85,-1808.27 247,-1797 210.45,-1755.17 185.78,-1352.03 180.2,-1252.25"/>
+<polygon fill="#000000" stroke="#000000" points="183.69,-1251.9 179.64,-1242.11 176.7,-1252.28 183.69,-1251.9"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~symba_setup.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node19" class="node">
-<title>sourcefile~tides_spin_step.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="381.5,-1746 276.5,-1746 276.5,-1722 381.5,-1722 381.5,-1746"/>
-<text text-anchor="middle" x="329" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="376,-1788 282,-1788 282,-1764 376,-1764 376,-1788"/>
+<text text-anchor="middle" x="329" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge19" class="edge">
-<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.3,-1730.08C265.24,-1726.87 254.62,-1721.59 247,-1713 182.45,-1640.23 178.64,-1319.35 178.83,-1231.38"/>
-<polygon fill="#000000" stroke="#000000" points="182.33,-1231.2 178.88,-1221.19 175.33,-1231.17 182.33,-1231.2"/>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge18" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.75,-1773.53C268.79,-1770.55 255.84,-1765.02 247,-1755 179.79,-1678.83 177.95,-1342.78 178.7,-1252.43"/>
+<polygon fill="#000000" stroke="#000000" points="182.2,-1252.26 178.8,-1242.23 175.2,-1252.19 182.2,-1252.26"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node20" class="node">
-<title>sourcefile~user_getacch.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="376.5,-1704 281.5,-1704 281.5,-1680 376.5,-1680 376.5,-1704"/>
-<text text-anchor="middle" x="329" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367.5,-1746 290.5,-1746 290.5,-1722 367.5,-1722 367.5,-1746"/>
+<text text-anchor="middle" x="329" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge20" class="edge">
-<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.44,-1689.33C268.62,-1686.33 255.83,-1680.84 247,-1671 187.71,-1604.96 180.1,-1313.97 179.13,-1231.1"/>
-<polygon fill="#000000" stroke="#000000" points="182.63,-1230.99 179.04,-1221.03 175.63,-1231.06 182.63,-1230.99"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge19" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.23,-1733.07C274.69,-1730.68 257.83,-1725.14 247,-1713 185.09,-1643.61 179.36,-1337.75 178.98,-1252.26"/>
+<polygon fill="#000000" stroke="#000000" points="182.48,-1252.12 178.96,-1242.12 175.48,-1252.13 182.48,-1252.12"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
+<!-- sourcefile~symba_drift.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node21" class="node">
-<title>sourcefile~whm_step.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368.5,-1662 289.5,-1662 289.5,-1638 368.5,-1638 368.5,-1662"/>
-<text text-anchor="middle" x="329" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-1704 286,-1704 286,-1680 372,-1680 372,-1704"/>
+<text text-anchor="middle" x="329" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge21" class="edge">
-<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.1,-1648.76C273.93,-1646.25 257.66,-1640.71 247,-1629 193.07,-1569.8 181.71,-1309.56 179.5,-1231.32"/>
-<polygon fill="#000000" stroke="#000000" points="183,-1231.05 179.24,-1221.15 176,-1231.24 183,-1231.05"/>
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge20" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.7,-1690.2C271.52,-1687.45 256.84,-1681.88 247,-1671 190.44,-1608.43 180.9,-1333.22 179.31,-1252.39"/>
+<polygon fill="#000000" stroke="#000000" points="182.81,-1252.26 179.14,-1242.32 175.81,-1252.38 182.81,-1252.26"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
+<!-- sourcefile~whm_drift.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node22" class="node">
-<title>sourcefile~orbel.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356.5,-1620 301.5,-1620 301.5,-1596 356.5,-1596 356.5,-1620"/>
-<text text-anchor="middle" x="329" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367.5,-1662 290.5,-1662 290.5,-1638 367.5,-1638 367.5,-1662"/>
+<text text-anchor="middle" x="329" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge22" class="edge">
-<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.31,-1608.13C283.43,-1606.73 260.73,-1601.81 247,-1587 198.38,-1534.55 183.49,-1304.57 179.95,-1231.42"/>
-<polygon fill="#000000" stroke="#000000" points="183.43,-1230.91 179.47,-1221.08 176.44,-1231.23 183.43,-1230.91"/>
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge21" class="edge">
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.39,-1648.92C274.89,-1646.5 258.01,-1640.98 247,-1629 195.79,-1573.25 182.61,-1328.75 179.72,-1252.68"/>
+<polygon fill="#000000" stroke="#000000" points="183.21,-1252.21 179.36,-1242.34 176.21,-1252.46 183.21,-1252.21"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
+<!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node23" class="node">
-<title>sourcefile~symba_step.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="373,-1578 285,-1578 285,-1554 373,-1554 373,-1578"/>
-<text text-anchor="middle" x="329" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367.5,-1620 290.5,-1620 290.5,-1596 367.5,-1596 367.5,-1620"/>
+<text text-anchor="middle" x="329" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge22" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.09,-1606.75C274.72,-1604.28 258.02,-1598.77 247,-1587 201.04,-1537.93 184.47,-1323.11 180.22,-1252.55"/>
+<polygon fill="#000000" stroke="#000000" points="183.69,-1251.94 179.62,-1242.16 176.7,-1252.34 183.69,-1251.94"/>
+</g>
+<!-- sourcefile~kick.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_node24" class="node">
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356,-1578 302,-1578 302,-1554 356,-1554 356,-1578"/>
+<text text-anchor="middle" x="329" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge23" class="edge">
-<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.71,-1563.69C270.96,-1560.83 256.79,-1555.34 247,-1545 203.66,-1499.26 185.49,-1299.3 180.51,-1231.55"/>
-<polygon fill="#000000" stroke="#000000" points="183.97,-1230.9 179.77,-1221.17 176.99,-1231.39 183.97,-1230.9"/>
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.85,-1566.01C283.99,-1564.58 261.08,-1559.67 247,-1545 206.25,-1502.54 186.55,-1317.15 180.83,-1252.41"/>
+<polygon fill="#000000" stroke="#000000" points="184.29,-1251.77 179.95,-1242.11 177.31,-1252.37 184.29,-1251.77"/>
 </g>
 <!-- sourcefile~rmvs_discard.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_node24" class="node">
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_node25" class="node">
 <title>sourcefile~rmvs_discard.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
 <polygon fill="#f0ad4e" stroke="#f0ad4e" points="376,-1536 282,-1536 282,-1512 376,-1512 376,-1536"/>
 <text text-anchor="middle" x="329" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
 </a>
@@ -656,548 +671,548 @@ <h3 class="panel-title">Files dependent on this one</h3>
 <!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge24" class="edge">
 <title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.92,-1520.88C269.13,-1517.86 256.22,-1512.47 247,-1503 208.89,-1463.87 187.75,-1293.43 181.22,-1231.55"/>
-<polygon fill="#000000" stroke="#000000" points="184.67,-1230.91 180.17,-1221.31 177.71,-1231.62 184.67,-1230.91"/>
-</g>
-<!-- sourcefile~whm_drift.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_node25" class="node">
-<title>sourcefile~whm_drift.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367.5,-1494 290.5,-1494 290.5,-1470 367.5,-1470 367.5,-1494"/>
-<text text-anchor="middle" x="329" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge25" class="edge">
-<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.09,-1480.27C274.91,-1477.7 258.36,-1472.24 247,-1461 182.77,-1397.4 177.35,-1279.93 178.09,-1231.14"/>
-<polygon fill="#000000" stroke="#000000" points="181.59,-1231.13 178.35,-1221.05 174.59,-1230.95 181.59,-1231.13"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.6,-1520.68C268.94,-1517.64 256.2,-1512.29 247,-1503 211.4,-1467.06 188.89,-1310.53 181.59,-1252.1"/>
+<polygon fill="#000000" stroke="#000000" points="185.06,-1251.59 180.37,-1242.09 178.11,-1252.44 185.06,-1251.59"/>
 </g>
-<!-- sourcefile~util_valid.f90 -->
+<!-- sourcefile~rmvs_setup.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node26" class="node">
-<title>sourcefile~util_valid.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365,-1452 293,-1452 293,-1428 365,-1428 365,-1452"/>
-<text text-anchor="middle" x="329" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-1494 286,-1494 286,-1470 372,-1470 372,-1494"/>
+<text text-anchor="middle" x="329" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge26" class="edge">
-<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.83,-1438.4C277.05,-1435.95 259.27,-1430.56 247,-1419 192.98,-1368.1 181.78,-1274.01 179.52,-1231.22"/>
-<polygon fill="#000000" stroke="#000000" points="183.01,-1230.89 179.11,-1221.05 176.02,-1231.18 183.01,-1230.89"/>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge25" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.63,-1479.28C271.79,-1476.41 257.33,-1471 247,-1461 187.89,-1403.79 179.47,-1298.05 178.74,-1252.18"/>
+<polygon fill="#000000" stroke="#000000" points="182.24,-1252.1 178.7,-1242.12 175.24,-1252.14 182.24,-1252.1"/>
 </g>
-<!-- sourcefile~kick.f90 -->
+<!-- sourcefile~whm_coord.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node27" class="node">
-<title>sourcefile~kick.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356,-1410 302,-1410 302,-1386 356,-1386 356,-1410"/>
-<text text-anchor="middle" x="329" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-1452 286,-1452 286,-1428 372,-1428 372,-1452"/>
+<text text-anchor="middle" x="329" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge27" class="edge">
-<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.84,-1397.15C284.43,-1395.29 262.07,-1390.22 247,-1377 203.05,-1338.46 187.08,-1267.38 181.62,-1231.29"/>
-<polygon fill="#000000" stroke="#000000" points="185.08,-1230.71 180.25,-1221.28 178.14,-1231.67 185.08,-1230.71"/>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge26" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.96,-1436.93C272.15,-1434.03 257.63,-1428.69 247,-1419 198.12,-1374.41 184.34,-1292.11 180.49,-1252.48"/>
+<polygon fill="#000000" stroke="#000000" points="183.95,-1251.96 179.62,-1242.29 176.98,-1252.55 183.95,-1251.96"/>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
+<!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node28" class="node">
-<title>sourcefile~helio_gr.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-1368 295,-1368 295,-1344 363,-1344 363,-1368"/>
-<text text-anchor="middle" x="329" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366.5,-1410 291.5,-1410 291.5,-1386 366.5,-1386 366.5,-1410"/>
+<text text-anchor="middle" x="329" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge28" class="edge">
-<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.93,-1353.56C279.07,-1350.95 260.61,-1345.66 247,-1335 212.83,-1308.21 193.63,-1259.32 184.88,-1230.95"/>
-<polygon fill="#000000" stroke="#000000" points="188.19,-1229.8 182.03,-1221.18 181.47,-1231.76 188.19,-1229.8"/>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge27" class="edge">
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.39,-1395.37C276.25,-1392.65 259.38,-1387.33 247,-1377 207.99,-1344.44 190.17,-1284.61 183.07,-1252.22"/>
+<polygon fill="#000000" stroke="#000000" points="186.41,-1251.1 180.98,-1242 179.55,-1252.5 186.41,-1251.1"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~setup.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node29" class="node">
-<title>sourcefile~util_resize.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368.5,-1326 289.5,-1326 289.5,-1302 368.5,-1302 368.5,-1326"/>
-<text text-anchor="middle" x="329" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357.5,-1368 300.5,-1368 300.5,-1344 357.5,-1344 357.5,-1368"/>
+<text text-anchor="middle" x="329" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge29" class="edge">
-<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.27,-1309.14C275.15,-1306.08 259.58,-1301.1 247,-1293 222.19,-1277.03 202.2,-1248.98 190.47,-1229.72"/>
-<polygon fill="#000000" stroke="#000000" points="193.47,-1227.92 185.39,-1221.06 187.43,-1231.46 193.47,-1227.92"/>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge28" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.34,-1353.89C283.6,-1351.45 262.55,-1346.22 247,-1335 217.56,-1313.77 197.58,-1275.51 187.25,-1251.5"/>
+<polygon fill="#000000" stroke="#000000" points="190.46,-1250.09 183.42,-1242.18 183.98,-1252.76 190.46,-1250.09"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~util_version.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node30" class="node">
-<title>sourcefile~util_spill.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-1284 295,-1284 295,-1260 363,-1260 363,-1284"/>
-<text text-anchor="middle" x="329" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="371.5,-1326 286.5,-1326 286.5,-1302 371.5,-1302 371.5,-1326"/>
+<text text-anchor="middle" x="329" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge59" class="edge">
-<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.94,-1265.79C279.96,-1262.38 262.23,-1257.5 247,-1251 231.9,-1244.56 216.24,-1235.1 203.76,-1226.79"/>
-<polygon fill="#000000" stroke="#000000" points="205.51,-1223.75 195.28,-1221 201.57,-1229.53 205.51,-1223.75"/>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge29" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.14,-1307.29C273.08,-1304.12 258.98,-1299.55 247,-1293 226.93,-1282.03 208.19,-1263.82 195.49,-1249.8"/>
+<polygon fill="#000000" stroke="#000000" points="197.97,-1247.32 188.74,-1242.11 192.7,-1251.93 197.97,-1247.32"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node31" class="node">
-<title>sourcefile~helio_step.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368.5,-1242 289.5,-1242 289.5,-1218 368.5,-1218 368.5,-1242"/>
-<text text-anchor="middle" x="329" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368,-1284 290,-1284 290,-1260 368,-1260 368,-1284"/>
+<text text-anchor="middle" x="329" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge30" class="edge">
-<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.24,-1224.54C268.34,-1221.59 242.53,-1217.95 221.14,-1214.94"/>
-<polygon fill="#000000" stroke="#000000" points="221.42,-1211.44 211.03,-1213.51 220.45,-1218.38 221.42,-1211.44"/>
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.99,-1262.53C276.39,-1259.04 260.98,-1254.97 247,-1251 238.45,-1248.57 229.34,-1245.85 220.65,-1243.19"/>
+<polygon fill="#000000" stroke="#000000" points="221.67,-1239.84 211.08,-1240.24 219.6,-1246.53 221.67,-1239.84"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node32" class="node">
-<title>sourcefile~util_get_energy_momentum.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="411,-1200 247,-1200 247,-1176 411,-1176 411,-1200"/>
-<text text-anchor="middle" x="329" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356.5,-1242 301.5,-1242 301.5,-1218 356.5,-1218 356.5,-1242"/>
+<text text-anchor="middle" x="329" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge31" class="edge">
-<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.96,-1199.42C238.03,-1200.68 229.23,-1201.92 221.08,-1203.07"/>
-<polygon fill="#000000" stroke="#000000" points="220.54,-1199.61 211.13,-1204.47 221.52,-1206.54 220.54,-1199.61"/>
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.36,-1230C279.14,-1230 247.08,-1230 221.34,-1230"/>
+<polygon fill="#000000" stroke="#000000" points="221.11,-1226.5 211.11,-1230 221.11,-1233.5 221.11,-1226.5"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~symba_util.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node33" class="node">
-<title>sourcefile~swiftest_driver.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="378,-1158 280,-1158 280,-1134 378,-1134 378,-1158"/>
-<text text-anchor="middle" x="329" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="370,-1200 288,-1200 288,-1176 370,-1176 370,-1200"/>
+<text text-anchor="middle" x="329" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge32" class="edge">
-<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.67,-1156C268.71,-1158.96 257.29,-1162.61 247,-1167 231.9,-1173.44 216.24,-1182.9 203.76,-1191.21"/>
-<polygon fill="#000000" stroke="#000000" points="201.57,-1188.47 195.28,-1197 205.51,-1194.25 201.57,-1188.47"/>
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.94,-1198C274.85,-1201.37 260.28,-1205.23 247,-1209 238.45,-1211.43 229.34,-1214.15 220.65,-1216.81"/>
+<polygon fill="#000000" stroke="#000000" points="219.6,-1213.47 211.08,-1219.76 221.67,-1220.16 219.6,-1213.47"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90 -->
+<!-- sourcefile~rmvs_step.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node34" class="node">
-<title>sourcefile~rmvs_setup.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-1116 286,-1116 286,-1092 372,-1092 372,-1116"/>
-<text text-anchor="middle" x="329" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="369,-1158 289,-1158 289,-1134 369,-1134 369,-1158"/>
+<text text-anchor="middle" x="329" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge33" class="edge">
-<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.95,-1109.61C272.75,-1112.71 258.6,-1117.53 247,-1125 222.19,-1140.97 202.2,-1169.02 190.47,-1188.28"/>
-<polygon fill="#000000" stroke="#000000" points="187.43,-1186.54 185.39,-1196.94 193.47,-1190.08 187.43,-1186.54"/>
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.62,-1152.12C274.89,-1155.3 259.75,-1160.03 247,-1167 226.93,-1177.97 208.19,-1196.18 195.49,-1210.2"/>
+<polygon fill="#000000" stroke="#000000" points="192.7,-1208.07 188.74,-1217.89 197.97,-1212.68 192.7,-1208.07"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node35" class="node">
-<title>sourcefile~whm_util.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365.5,-1074 292.5,-1074 292.5,-1050 365.5,-1050 365.5,-1074"/>
-<text text-anchor="middle" x="329" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="388,-1116 270,-1116 270,-1092 388,-1092 388,-1116"/>
+<text text-anchor="middle" x="329" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge34" class="edge">
-<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.1,-1064.93C276.91,-1067.69 259.81,-1072.96 247,-1083 212.83,-1109.79 193.63,-1158.68 184.88,-1187.05"/>
-<polygon fill="#000000" stroke="#000000" points="181.47,-1186.24 182.03,-1196.82 188.19,-1188.2 181.47,-1186.24"/>
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.85,-1113.41C261.73,-1116.3 253.83,-1120.07 247,-1125 217.56,-1146.23 197.58,-1184.49 187.25,-1208.5"/>
+<polygon fill="#000000" stroke="#000000" points="183.98,-1207.24 183.42,-1217.82 190.46,-1209.91 183.98,-1207.24"/>
 </g>
 <!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node36" class="node">
 <title>sourcefile~util_coord.f90</title>
 <g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367.5,-1032 290.5,-1032 290.5,-1008 367.5,-1008 367.5,-1032"/>
-<text text-anchor="middle" x="329" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367.5,-1074 290.5,-1074 290.5,-1050 367.5,-1050 367.5,-1074"/>
+<text text-anchor="middle" x="329" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge35" class="edge">
 <title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.33,-1022.49C275.36,-1025.2 258.91,-1030.56 247,-1041 203.05,-1079.54 187.08,-1150.62 181.62,-1186.71"/>
-<polygon fill="#000000" stroke="#000000" points="178.14,-1186.33 180.25,-1196.72 185.08,-1187.29 178.14,-1186.33"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.16,-1064.86C275.34,-1067.64 259.04,-1072.95 247,-1083 207.99,-1115.56 190.17,-1175.39 183.07,-1207.78"/>
+<polygon fill="#000000" stroke="#000000" points="179.55,-1207.5 180.98,-1218 186.41,-1208.9 179.55,-1207.5"/>
 </g>
-<!-- sourcefile~drift.f90 -->
+<!-- sourcefile~symba_kick.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node37" class="node">
-<title>sourcefile~drift.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356,-990 302,-990 302,-966 356,-966 356,-990"/>
-<text text-anchor="middle" x="329" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-1032 286,-1032 286,-1008 372,-1008 372,-1032"/>
+<text text-anchor="middle" x="329" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge36" class="edge">
-<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.92,-978.47C284.31,-980.15 261.7,-985.15 247,-999 192.98,-1049.9 181.78,-1143.99 179.52,-1186.78"/>
-<polygon fill="#000000" stroke="#000000" points="176.02,-1186.82 179.11,-1196.95 183.01,-1187.11 176.02,-1186.82"/>
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.96,-1023.07C272.15,-1025.97 257.63,-1031.31 247,-1041 198.12,-1085.59 184.34,-1167.89 180.49,-1207.52"/>
+<polygon fill="#000000" stroke="#000000" points="176.98,-1207.45 179.62,-1217.71 183.95,-1208.04 176.98,-1207.45"/>
 </g>
-<!-- sourcefile~rmvs_step.f90 -->
+<!-- sourcefile~io.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node38" class="node">
-<title>sourcefile~rmvs_step.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="369,-948 289,-948 289,-924 369,-924 369,-948"/>
-<text text-anchor="middle" x="329" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356,-990 302,-990 302,-966 356,-966 356,-990"/>
+<text text-anchor="middle" x="329" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge37" class="edge">
-<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.85,-937.95C274.01,-940.6 258.05,-946.06 247,-957 182.77,-1020.6 177.35,-1138.07 178.09,-1186.86"/>
-<polygon fill="#000000" stroke="#000000" points="174.59,-1187.05 178.35,-1196.95 181.59,-1186.87 174.59,-1187.05"/>
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.8,-978.35C284.14,-979.97 261.51,-984.96 247,-999 187.89,-1056.21 179.47,-1161.95 178.74,-1207.82"/>
+<polygon fill="#000000" stroke="#000000" points="175.24,-1207.86 178.7,-1217.88 182.24,-1207.9 175.24,-1207.86"/>
 </g>
-<!-- sourcefile~whm_gr.f90 -->
+<!-- sourcefile~util_fill.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node39" class="node">
-<title>sourcefile~whm_gr.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-906 295,-906 295,-882 363,-882 363,-906"/>
-<text text-anchor="middle" x="329" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="359,-948 299,-948 299,-924 359,-924 359,-948"/>
+<text text-anchor="middle" x="329" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge38" class="edge">
-<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.82,-894.8C278.34,-896.94 259.37,-902.3 247,-915 208.89,-954.13 187.75,-1124.57 181.22,-1186.45"/>
-<polygon fill="#000000" stroke="#000000" points="177.71,-1186.38 180.17,-1196.69 184.67,-1187.09 177.71,-1186.38"/>
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.9,-936.42C281.61,-938.22 260.49,-943.38 247,-957 211.4,-992.94 188.89,-1149.47 181.59,-1207.9"/>
+<polygon fill="#000000" stroke="#000000" points="178.11,-1207.56 180.37,-1217.91 185.06,-1208.41 178.11,-1207.56"/>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
+<!-- sourcefile~whm_gr.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node40" class="node">
-<title>sourcefile~fragmentation.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="377.5,-864 280.5,-864 280.5,-840 377.5,-840 377.5,-864"/>
-<text text-anchor="middle" x="329" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-906 295,-906 295,-882 363,-882 363,-906"/>
+<text text-anchor="middle" x="329" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge39" class="edge">
-<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.49,-855.27C268.11,-858.34 255.79,-863.72 247,-873 203.66,-918.74 185.49,-1118.7 180.51,-1186.45"/>
-<polygon fill="#000000" stroke="#000000" points="176.99,-1186.61 179.77,-1196.83 183.97,-1187.1 176.99,-1186.61"/>
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.74,-894.73C278.24,-896.84 259.27,-902.21 247,-915 206.25,-957.46 186.55,-1142.85 180.83,-1207.59"/>
+<polygon fill="#000000" stroke="#000000" points="177.31,-1207.63 179.95,-1217.89 184.29,-1208.23 177.31,-1207.63"/>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node41" class="node">
-<title>sourcefile~operator_cross.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="380.5,-822 277.5,-822 277.5,-798 380.5,-798 380.5,-822"/>
-<text text-anchor="middle" x="329" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-864 286,-864 286,-840 372,-840 372,-864"/>
+<text text-anchor="middle" x="329" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge40" class="edge">
-<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M277.41,-813.93C266.05,-817.1 255,-822.37 247,-831 198.38,-883.45 183.49,-1113.43 179.95,-1186.58"/>
-<polygon fill="#000000" stroke="#000000" points="176.44,-1186.77 179.47,-1196.92 183.43,-1187.09 176.44,-1186.77"/>
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.91,-854C271.75,-856.76 257.03,-862.29 247,-873 201.04,-922.07 184.47,-1136.89 180.22,-1207.45"/>
+<polygon fill="#000000" stroke="#000000" points="176.7,-1207.66 179.62,-1217.84 183.69,-1208.06 176.7,-1207.66"/>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
+<!-- sourcefile~discard.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node42" class="node">
-<title>sourcefile~symba_drift.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-780 286,-780 286,-756 372,-756 372,-780"/>
-<text text-anchor="middle" x="329" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361.5,-822 296.5,-822 296.5,-798 361.5,-798 361.5,-822"/>
+<text text-anchor="middle" x="329" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge41" class="edge">
-<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.74,-769.84C271.57,-772.6 256.88,-778.15 247,-789 193.07,-848.2 181.71,-1108.44 179.5,-1186.68"/>
-<polygon fill="#000000" stroke="#000000" points="176,-1186.76 179.24,-1196.85 183,-1186.95 176,-1186.76"/>
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296.13,-810.32C279.2,-812.22 259.38,-817.52 247,-831 195.79,-886.75 182.61,-1131.25 179.72,-1207.32"/>
+<polygon fill="#000000" stroke="#000000" points="176.21,-1207.54 179.36,-1217.66 183.21,-1207.79 176.21,-1207.54"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~symba_discard.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node43" class="node">
-<title>sourcefile~util_fill.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="359,-738 299,-738 299,-714 359,-714 359,-738"/>
-<text text-anchor="middle" x="329" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="380.5,-780 277.5,-780 277.5,-756 380.5,-756 380.5,-780"/>
+<text text-anchor="middle" x="329" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge42" class="edge">
-<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.81,-725.93C281.27,-727.52 259.91,-732.62 247,-747 187.71,-813.04 180.1,-1104.03 179.13,-1186.9"/>
-<polygon fill="#000000" stroke="#000000" points="175.63,-1186.94 179.04,-1196.97 182.63,-1187.01 175.63,-1186.94"/>
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M277.26,-771.79C265.9,-774.96 254.89,-780.27 247,-789 190.44,-851.57 180.9,-1126.78 179.31,-1207.61"/>
+<polygon fill="#000000" stroke="#000000" points="175.81,-1207.62 179.14,-1217.68 182.81,-1207.74 175.81,-1207.62"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90 -->
+<!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node44" class="node">
-<title>sourcefile~symba_encounter_check.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-696 254,-696 254,-672 404,-672 404,-696"/>
-<text text-anchor="middle" x="329" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="381.5,-738 276.5,-738 276.5,-714 381.5,-714 381.5,-738"/>
+<text text-anchor="middle" x="329" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge43" class="edge">
-<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.57,-696.11C253.66,-698.59 250.08,-701.52 247,-705 182.45,-777.77 178.64,-1098.65 178.83,-1186.62"/>
-<polygon fill="#000000" stroke="#000000" points="175.33,-1186.83 178.88,-1196.81 182.33,-1186.8 175.33,-1186.83"/>
+<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M276.34,-729.95C265.28,-733.16 254.64,-738.44 247,-747 185.09,-816.39 179.36,-1122.25 178.98,-1207.74"/>
+<polygon fill="#000000" stroke="#000000" points="175.48,-1207.87 178.96,-1217.88 182.48,-1207.88 175.48,-1207.87"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
+<!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node45" class="node">
-<title>sourcefile~util_peri.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-654 295,-654 295,-630 363,-630 363,-654"/>
-<text text-anchor="middle" x="329" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="371.5,-696 286.5,-696 286.5,-672 371.5,-672 371.5,-696"/>
+<text text-anchor="middle" x="329" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge44" class="edge">
-<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.67,-642.24C277.95,-644.2 258.79,-649.57 247,-663 177.12,-742.59 177.28,-1093.97 178.57,-1186.57"/>
-<polygon fill="#000000" stroke="#000000" points="175.08,-1186.83 178.74,-1196.77 182.08,-1186.71 175.08,-1186.83"/>
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.39,-685.51C271.95,-688.19 256.9,-693.78 247,-705 179.79,-781.17 177.95,-1117.22 178.7,-1207.57"/>
+<polygon fill="#000000" stroke="#000000" points="175.2,-1207.81 178.8,-1217.77 182.2,-1207.74 175.2,-1207.81"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
+<!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node46" class="node">
-<title>sourcefile~rmvs_kick.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368,-612 290,-612 290,-588 368,-588 368,-612"/>
-<text text-anchor="middle" x="329" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="373,-654 285,-654 285,-630 373,-630 373,-654"/>
+<text text-anchor="middle" x="329" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge45" class="edge">
-<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.67,-600.87C274.22,-603.27 257.59,-608.84 247,-621 209.08,-664.57 185.32,-1085.11 180.09,-1186.9"/>
-<polygon fill="#000000" stroke="#000000" points="176.59,-1186.8 179.58,-1196.97 183.58,-1187.16 176.59,-1186.8"/>
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.65,-643.79C270.72,-646.58 256.46,-652.17 247,-663 210.45,-704.83 185.78,-1107.97 180.2,-1207.75"/>
+<polygon fill="#000000" stroke="#000000" points="176.7,-1207.72 179.64,-1217.89 183.69,-1208.1 176.7,-1207.72"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node47" class="node">
-<title>sourcefile~util_set.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361,-570 297,-570 297,-546 361,-546 361,-570"/>
-<text text-anchor="middle" x="329" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365.5,-612 292.5,-612 292.5,-588 365.5,-588 365.5,-612"/>
+<text text-anchor="middle" x="329" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge46" class="edge">
-<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296.62,-557.94C279.4,-559.68 259.15,-564.93 247,-579 206.42,-626 184.53,-1080.11 179.92,-1186.69"/>
-<polygon fill="#000000" stroke="#000000" points="176.42,-1186.78 179.49,-1196.92 183.41,-1187.08 176.42,-1186.78"/>
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.14,-600.49C276.01,-602.67 258.13,-608.16 247,-621 207.75,-666.28 184.92,-1103.52 180.01,-1207.77"/>
+<polygon fill="#000000" stroke="#000000" points="176.51,-1207.65 179.54,-1217.8 183.5,-1207.97 176.51,-1207.65"/>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~operator_cross.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node48" class="node">
-<title>sourcefile~util_exit.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362.5,-528 295.5,-528 295.5,-504 362.5,-504 362.5,-528"/>
-<text text-anchor="middle" x="329" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="380.5,-570 277.5,-570 277.5,-546 380.5,-546 380.5,-570"/>
+<text text-anchor="middle" x="329" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge47" class="edge">
-<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.36,-516.04C278.41,-517.89 258.82,-523.22 247,-537 203.68,-587.5 183.73,-1076.63 179.75,-1186.96"/>
-<polygon fill="#000000" stroke="#000000" points="176.26,-1186.84 179.4,-1196.96 183.25,-1187.09 176.26,-1186.84"/>
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M277.38,-561.4C265.87,-564.57 254.77,-569.97 247,-579 205.08,-627.72 184.14,-1098.78 179.84,-1207.63"/>
+<polygon fill="#000000" stroke="#000000" points="176.34,-1207.67 179.45,-1217.79 183.33,-1207.94 176.34,-1207.67"/>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
+<!-- sourcefile~helio_gr.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node49" class="node">
-<title>sourcefile~symba_discard.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="380.5,-486 277.5,-486 277.5,-462 380.5,-462 380.5,-486"/>
-<text text-anchor="middle" x="329" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-528 295,-528 295,-504 363,-504 363,-528"/>
+<text text-anchor="middle" x="329" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge48" class="edge">
-<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M277.32,-477.35C265.82,-480.52 254.73,-485.94 247,-495 201.02,-548.93 183.04,-1071.65 179.62,-1186.68"/>
-<polygon fill="#000000" stroke="#000000" points="176.12,-1186.69 179.33,-1196.79 183.12,-1186.89 176.12,-1186.69"/>
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.94,-516.07C278.08,-517.95 258.71,-523.31 247,-537 202.37,-589.19 183.4,-1094.58 179.69,-1207.64"/>
+<polygon fill="#000000" stroke="#000000" points="176.19,-1207.76 179.37,-1217.86 183.18,-1207.98 176.19,-1207.76"/>
 </g>
-<!-- sourcefile~util_solve.f90 -->
+<!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node50" class="node">
-<title>sourcefile~util_solve.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366.5,-444 291.5,-444 291.5,-420 366.5,-420 366.5,-444"/>
-<text text-anchor="middle" x="329" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365,-486 293,-486 293,-462 365,-462 365,-486"/>
+<text text-anchor="middle" x="329" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge49" class="edge">
-<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M291.19,-432.5C275.25,-434.73 257.81,-440.26 247,-453 198.28,-510.44 182.35,-1068.25 179.5,-1186.89"/>
-<polygon fill="#000000" stroke="#000000" points="175.99,-1186.88 179.26,-1196.96 182.99,-1187.05 175.99,-1186.88"/>
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.86,-474.29C276.49,-476.37 258.2,-481.83 247,-495 199.7,-550.62 182.72,-1089.76 179.57,-1207.4"/>
+<polygon fill="#000000" stroke="#000000" points="176.06,-1207.63 179.3,-1217.72 183.06,-1207.82 176.06,-1207.63"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node51" class="node">
-<title>sourcefile~discard.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361.5,-402 296.5,-402 296.5,-378 361.5,-378 361.5,-402"/>
-<text text-anchor="middle" x="329" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="382,-444 276,-444 276,-420 382,-420 382,-444"/>
+<text text-anchor="middle" x="329" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge50" class="edge">
-<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296.5,-389.84C279.24,-391.54 258.99,-396.79 247,-411 195.58,-471.92 181.72,-1064.14 179.39,-1186.82"/>
-<polygon fill="#000000" stroke="#000000" points="175.88,-1186.85 179.2,-1196.91 182.88,-1186.97 175.88,-1186.85"/>
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.59,-435.79C264.7,-439.02 254.32,-444.35 247,-453 196.96,-512.15 182.04,-1086.56 179.44,-1207.66"/>
+<polygon fill="#000000" stroke="#000000" points="175.94,-1207.86 179.23,-1217.93 182.94,-1208 175.94,-1207.86"/>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
+<!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node52" class="node">
-<title>sourcefile~helio_kick.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367.5,-360 290.5,-360 290.5,-336 367.5,-336 367.5,-360"/>
-<text text-anchor="middle" x="329" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356,-402 302,-402 302,-378 356,-378 356,-402"/>
+<text text-anchor="middle" x="329" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge51" class="edge">
-<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.3,-348.57C274.58,-350.87 257.56,-356.43 247,-369 192.86,-433.42 181.11,-1060.43 179.29,-1186.85"/>
-<polygon fill="#000000" stroke="#000000" points="175.79,-1186.85 179.15,-1196.9 182.78,-1186.95 175.79,-1186.85"/>
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.64,-389.42C283.43,-390.55 260.2,-395.33 247,-411 194.25,-473.63 181.42,-1082.62 179.34,-1207.64"/>
+<polygon fill="#000000" stroke="#000000" points="175.83,-1207.84 179.17,-1217.9 182.83,-1207.96 175.83,-1207.84"/>
 </g>
-<!-- sourcefile~whm_kick.f90 -->
+<!-- sourcefile~symba_io.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node53" class="node">
-<title>sourcefile~whm_kick.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367.5,-318 290.5,-318 290.5,-294 367.5,-294 367.5,-318"/>
-<text text-anchor="middle" x="329" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367,-360 291,-360 291,-336 367,-336 367,-360"/>
+<text text-anchor="middle" x="329" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge52" class="edge">
-<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.28,-306.55C274.56,-308.85 257.54,-314.41 247,-327 190.18,-394.87 180.55,-1055.8 179.2,-1186.58"/>
-<polygon fill="#000000" stroke="#000000" points="175.69,-1186.91 179.1,-1196.94 182.69,-1186.98 175.69,-1186.91"/>
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.71,-348.5C274.87,-350.76 257.64,-356.31 247,-369 191.52,-435.14 180.83,-1079.08 179.24,-1207.71"/>
+<polygon fill="#000000" stroke="#000000" points="175.74,-1207.88 179.12,-1217.92 182.74,-1207.96 175.74,-1207.88"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
+<!-- sourcefile~whm_kick.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node54" class="node">
-<title>sourcefile~util_minimize_bfgs.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="388,-276 270,-276 270,-252 388,-252 388,-276"/>
-<text text-anchor="middle" x="329" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367.5,-318 290.5,-318 290.5,-294 367.5,-294 367.5,-318"/>
+<text text-anchor="middle" x="329" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge53" class="edge">
-<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.71,-269.67C261,-272.98 252.96,-277.86 247,-285 187.49,-356.33 180.01,-1051.38 179.12,-1186.36"/>
-<polygon fill="#000000" stroke="#000000" points="175.61,-1186.68 179.05,-1196.7 182.61,-1186.72 175.61,-1186.68"/>
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.27,-306.55C274.54,-308.84 257.53,-314.4 247,-327 188.77,-396.67 180.26,-1075.95 179.15,-1207.87"/>
+<polygon fill="#000000" stroke="#000000" points="175.65,-1207.95 179.07,-1217.98 182.65,-1208.01 175.65,-1207.95"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~whm_step.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node55" class="node">
-<title>sourcefile~io.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356,-234 302,-234 302,-210 356,-210 356,-234"/>
-<text text-anchor="middle" x="329" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368.5,-276 289.5,-276 289.5,-252 368.5,-252 368.5,-276"/>
+<text text-anchor="middle" x="329" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge54" class="edge">
-<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.96,-221.35C283.67,-222.41 260.19,-227.14 247,-243 184.72,-317.89 179.47,-1048.75 179.04,-1186.63"/>
-<polygon fill="#000000" stroke="#000000" points="175.54,-1186.81 179.01,-1196.82 182.54,-1186.83 175.54,-1186.81"/>
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.41,-264.65C273.92,-267.02 257.32,-272.61 247,-285 186.08,-358.15 179.73,-1071.73 179.08,-1207.69"/>
+<polygon fill="#000000" stroke="#000000" points="175.58,-1207.74 179.03,-1217.76 182.58,-1207.77 175.58,-1207.74"/>
 </g>
-<!-- sourcefile~symba_setup.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node56" class="node">
-<title>sourcefile~symba_setup.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="376,-192 282,-192 282,-168 376,-168 376,-192"/>
-<text text-anchor="middle" x="329" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361,-234 297,-234 297,-210 361,-210 361,-234"/>
+<text text-anchor="middle" x="329" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge55" class="edge">
-<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.79,-182.05C268.67,-184.98 255.62,-190.6 247,-201 181.94,-279.47 178.97,-1046.54 178.97,-1186.98"/>
-<polygon fill="#000000" stroke="#000000" points="175.47,-1186.99 178.97,-1196.98 182.47,-1186.98 175.47,-1186.99"/>
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M296.81,-221.73C279.45,-223.36 258.97,-228.58 247,-243 183.37,-319.64 179.22,-1067.84 179,-1207.58"/>
+<polygon fill="#000000" stroke="#000000" points="175.5,-1207.89 178.99,-1217.9 182.5,-1207.9 175.5,-1207.89"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~util_resize.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node57" class="node">
-<title>sourcefile~symba_fragmentation.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="396,-150 262,-150 262,-126 396,-126 396,-150"/>
-<text text-anchor="middle" x="329" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368.5,-192 289.5,-192 289.5,-168 368.5,-168 368.5,-192"/>
+<text text-anchor="middle" x="329" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge56" class="edge">
-<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M261.74,-147.22C256.14,-150.22 251.07,-154.07 247,-159 179.28,-240.9 178.49,-1041.46 178.9,-1186.52"/>
-<polygon fill="#000000" stroke="#000000" points="175.41,-1186.85 178.94,-1196.84 182.41,-1186.83 175.41,-1186.85"/>
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.38,-180.63C273.88,-182.98 257.28,-188.58 247,-201 180.65,-281.14 178.73,-1064.16 178.94,-1207.52"/>
+<polygon fill="#000000" stroke="#000000" points="175.44,-1207.74 178.96,-1217.73 182.44,-1207.73 175.44,-1207.74"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node58" class="node">
-<title>sourcefile~util_version.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="371.5,-108 286.5,-108 286.5,-84 371.5,-84 371.5,-108"/>
-<text text-anchor="middle" x="329" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-150 295,-150 295,-126 363,-126 363,-150"/>
+<text text-anchor="middle" x="329" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge57" class="edge">
-<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.41,-97.09C271.78,-99.69 256.61,-105.34 247,-117 176.55,-202.42 178.02,-1038.19 178.85,-1186.54"/>
-<polygon fill="#000000" stroke="#000000" points="175.35,-1186.73 178.91,-1196.71 182.35,-1186.69 175.35,-1186.73"/>
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.75,-137.91C277.83,-139.75 258.47,-145.11 247,-159 177.91,-242.66 178.25,-1060.83 178.87,-1207.53"/>
+<polygon fill="#000000" stroke="#000000" points="175.38,-1207.97 178.92,-1217.95 182.38,-1207.93 175.38,-1207.97"/>
 </g>
-<!-- sourcefile~setup.f90 -->
+<!-- sourcefile~symba_encounter_check.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node59" class="node">
-<title>sourcefile~setup.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357.5,-66 300.5,-66 300.5,-42 357.5,-42 357.5,-66"/>
-<text text-anchor="middle" x="329" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-108 254,-108 254,-84 404,-84 404,-108"/>
+<text text-anchor="middle" x="329" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge58" class="edge">
-<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.36,-53.4C282.28,-54.63 259.74,-59.52 247,-75 173.8,-163.97 177.57,-1035.26 178.79,-1186.64"/>
-<polygon fill="#000000" stroke="#000000" points="175.29,-1187.01 178.88,-1196.98 182.29,-1186.95 175.29,-1187.01"/>
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M256.91,-108.1C253.22,-110.58 249.86,-113.52 247,-117 175.17,-204.19 177.8,-1057.69 178.82,-1207.58"/>
+<polygon fill="#000000" stroke="#000000" points="175.32,-1207.87 178.89,-1217.84 182.32,-1207.81 175.32,-1207.87"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~lambda_function.f90~~AfferentGraph_node60" class="node">
-<title>sourcefile~rmvs_encounter_check.f90</title>
-<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="400,-24 258,-24 258,0 400,0 400,-24"/>
-<text text-anchor="middle" x="329" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356,-66 302,-66 302,-42 356,-42 356,-66"/>
+<text text-anchor="middle" x="329" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge11" class="edge">
-<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M257.98,-23.37C253.86,-26.01 250.13,-29.18 247,-33 208.94,-79.35 183.53,-1028.51 179.55,-1186.73"/>
-<polygon fill="#000000" stroke="#000000" points="176.05,-1186.65 179.3,-1196.73 183.05,-1186.82 176.05,-1186.65"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge59" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.91,-53.3C283.59,-54.35 260.1,-59.06 247,-75 172.42,-165.74 177.36,-1054.83 178.77,-1207.69"/>
+<polygon fill="#000000" stroke="#000000" points="175.27,-1207.79 178.86,-1217.75 182.27,-1207.72 175.27,-1207.79"/>
+</g>
+<!-- sourcefile~util_sort.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_node61" class="node">
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~lambda_function.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-24 295,-24 295,0 363,0 363,-24"/>
+<text text-anchor="middle" x="329" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~lambda_function.f90~~AfferentGraph_edge60" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.71,-11.88C277.79,-13.71 258.42,-19.07 247,-33 208.25,-80.25 183.37,-1048.3 179.52,-1207.83"/>
+<polygon fill="#000000" stroke="#000000" points="176.02,-1207.82 179.28,-1217.9 183.02,-1207.99 176.02,-1207.82"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/obl.f90.html b/docs/sourcefile/obl.f90.html
index 8ed86f29b..ec8edea8c 100644
--- a/docs/sourcefile/obl.f90.html
+++ b/docs/sourcefile/obl.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~obl.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileoblf90EfferentGraph" width="641pt" height="210pt"
- viewBox="0.00 0.00 641.00 209.52" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~obl.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 282)">
+<svg id="sourcefileoblf90EfferentGraph" width="641pt" height="224pt"
+ viewBox="0.00 0.00 641.00 223.62" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~obl.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 301.25)">
 <title>sourcefile~~obl.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 871,-282 871,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 871,-301.25 871,4 -4,4"/>
 <!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~obl.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~obl.f90</title>
-<polygon fill="none" stroke="black" points="867,-24 813,-24 813,0 867,0 867,-24"/>
-<text text-anchor="middle" x="840" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">obl.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~obl.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.82,-22.86C803.68,-26.66 793.22,-30.99 783.3,-35.11"/>
-<polygon fill="#000000" stroke="#000000" points="781.91,-31.9 774.02,-38.96 784.59,-38.36 781.91,-31.9"/>
+<polygon fill="none" stroke="black" points="867,-260 813,-260 813,-236 867,-236 867,-260"/>
+<text text-anchor="middle" x="840" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">obl.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~obl.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~obl.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~obl.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-11.34C738.17,-10.21 518.02,-12.21 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-256.09C772.77,-267.78 693.44,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~obl.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~obl.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.82,-242.43C804.76,-240.72 795.69,-238.79 786.86,-236.91"/>
+<polygon fill="#000000" stroke="#000000" points="787.58,-233.48 777.07,-234.82 786.12,-240.33 787.58,-233.48"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~obl.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~obl.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~obl.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~obl.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~obl.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~obl.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~obl.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~obl.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~obl.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~obl.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~obl.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~obl.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~obl.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~obl.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~obl.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~obl.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~obl.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~obl.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~obl.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~obl.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~obl.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~obl.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~obl.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~obl.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~obl.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~obl.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~obl.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~obl.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~obl.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~obl.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~obl.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/operator_cross.f90.html b/docs/sourcefile/operator_cross.f90.html
index 146435b5a..9ff03d7df 100644
--- a/docs/sourcefile/operator_cross.f90.html
+++ b/docs/sourcefile/operator_cross.f90.html
@@ -226,243 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~operator_cross.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileoperator_crossf90EfferentGraph" width="641pt" height="178pt"
- viewBox="0.00 0.00 641.00 178.44" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~operator_cross.f90~~EfferentGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 254.33)">
+<svg id="sourcefileoperator_crossf90EfferentGraph" width="641pt" height="149pt"
+ viewBox="0.00 0.00 641.00 149.44" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 212.36)">
 <title>sourcefile~~operator_cross.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-254.33 924,-254.33 924,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-212.36 924,-212.36 924,4 -4,4"/>
 <!-- sourcefile~operator_cross.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~operator_cross.f90</title>
-<polygon fill="none" stroke="black" points="920,-200 817,-200 817,-176 920,-176 920,-200"/>
-<text text-anchor="middle" x="868.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50">operator_cross.f90</text>
+<polygon fill="none" stroke="black" points="920,-155.14 817,-155.14 817,-131.14 920,-131.14 920,-155.14"/>
+<text text-anchor="middle" x="868.5" y="-140.74" font-family="Helvetica,sans-Serif" font-size="10.50">operator_cross.f90</text>
 </g>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest.f90</title>
 <g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="781,-180 715,-180 715,-156 781,-156 781,-180"/>
-<text text-anchor="middle" x="748" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="781,-135.14 715,-135.14 715,-111.14 781,-111.14 781,-135.14"/>
+<text text-anchor="middle" x="748" y="-120.74" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M816.9,-179.46C808.31,-178.01 799.48,-176.52 791.14,-175.11"/>
-<polygon fill="#000000" stroke="#000000" points="791.71,-171.66 781.26,-173.45 790.54,-178.56 791.71,-171.66"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M816.9,-134.6C808.31,-133.15 799.48,-131.66 791.14,-130.25"/>
+<polygon fill="#000000" stroke="#000000" points="791.71,-126.8 781.26,-128.59 790.54,-133.7 791.71,-126.8"/>
 </g>
 <!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~swiftest_operators.f90</title>
 <g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-220 561,-220 561,-196 679,-196 679,-220"/>
-<text text-anchor="middle" x="620" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-175.14 561,-175.14 561,-151.14 679,-151.14 679,-175.14"/>
+<text text-anchor="middle" x="620" y="-160.74" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M816.72,-192.12C779.82,-195.11 729.48,-199.2 689.1,-202.47"/>
-<polygon fill="#000000" stroke="#000000" points="688.74,-198.99 679.06,-203.29 689.31,-205.97 688.74,-198.99"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M816.72,-147.26C779.82,-150.26 729.48,-154.34 689.1,-157.62"/>
+<polygon fill="#000000" stroke="#000000" points="688.74,-154.13 679.06,-158.43 689.31,-161.11 688.74,-154.13"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge5" class="edge">
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge3" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M714.88,-178.2C700.88,-182.64 684.19,-187.94 668.78,-192.83"/>
-<polygon fill="#000000" stroke="#000000" points="667.36,-189.61 658.89,-195.97 669.48,-196.28 667.36,-189.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M714.88,-133.34C700.88,-137.78 684.19,-143.08 668.78,-147.97"/>
+<polygon fill="#000000" stroke="#000000" points="667.36,-144.75 658.89,-151.12 669.48,-151.43 667.36,-144.75"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="671.5,-122 568.5,-122 568.5,-98 671.5,-98 671.5,-122"/>
-<text text-anchor="middle" x="620" y="-107.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="524.5,-135.14 430.5,-135.14 430.5,-111.14 524.5,-111.14 524.5,-135.14"/>
+<text text-anchor="middle" x="477.5" y="-120.74" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M720.89,-155.98C702.22,-147.39 676.88,-135.72 656.4,-126.29"/>
-<polygon fill="#000000" stroke="#000000" points="657.62,-123 647.07,-122 654.69,-129.36 657.62,-123"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619,-123.14C591.41,-121.26 560.7,-121.05 535.04,-121.39"/>
+<polygon fill="#000000" stroke="#000000" points="534.69,-117.9 524.75,-121.56 534.8,-124.9 534.69,-117.9"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-66 0,-66 0,-42 106,-42 106,-66"/>
-<text text-anchor="middle" x="53" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-175.14 285,-175.14 285,-151.14 394,-151.14 394,-175.14"/>
+<text text-anchor="middle" x="339.5" y="-160.74" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.5,-208C413.9,-212.51 402.7,-178.38 340.5,-170"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619,-168C554.08,-169.06 543.26,-203.33 478.5,-208"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619,-123.14C553.98,-118.71 542.27,-151.67 478.5,-165.14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.5,-165.14C453.36,-170.03 427.51,-170.79 404.61,-169.9"/>
+<polygon fill="#000000" stroke="#000000" points="404.48,-166.39 394.32,-169.38 404.13,-173.38 404.48,-166.39"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
 <g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="525,-180 430,-180 430,-156 525,-156 525,-180"/>
-<text text-anchor="middle" x="477.5" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="525,-55.14 430,-55.14 430,-31.14 525,-31.14 525,-55.14"/>
+<text text-anchor="middle" x="477.5" y="-40.74" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge6" class="edge">
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619,-168C591.45,-168 560.86,-168 535.28,-168"/>
-<polygon fill="#000000" stroke="#000000" points="535.01,-164.5 525.01,-168 535.01,-171.5 535.01,-164.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M714.85,-124.34C689.37,-125.01 652.86,-125.31 621,-123.14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619,-123.14C570.93,-119.87 566.92,-92.9 525,-69.14 519.85,-66.22 514.36,-63.13 509.03,-60.15"/>
+<polygon fill="#000000" stroke="#000000" points="510.73,-57.09 500.29,-55.26 507.31,-63.2 510.73,-57.09"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-222 285,-222 285,-198 394,-198 394,-222"/>
-<text text-anchor="middle" x="339.5" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="249,-95.14 142,-95.14 142,-71.14 249,-71.14 249,-95.14"/>
+<text text-anchor="middle" x="195.5" y="-80.74" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.5,-208C453.01,-209.69 427.19,-210.37 404.41,-210.57"/>
-<polygon fill="#000000" stroke="#000000" points="404.15,-207.07 394.17,-210.63 404.19,-214.07 404.15,-207.07"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619,-123.14C554.22,-118.73 542.02,-96.6 478.5,-83.14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.5,-83.14C414.86,-70.08 402.93,-34.63 340.5,-43.14"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="524.5,-24 430.5,-24 430.5,0 524.5,0 524.5,-24"/>
-<text text-anchor="middle" x="477.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386.5,-95.14 292.5,-95.14 292.5,-71.14 386.5,-71.14 386.5,-95.14"/>
+<text text-anchor="middle" x="339.5" y="-80.74" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619,-52C592.32,-39.51 560.92,-30.12 534.59,-23.59"/>
-<polygon fill="#000000" stroke="#000000" points="535.3,-20.16 524.76,-21.22 533.66,-26.96 535.3,-20.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M738.28,-155.79C726.19,-139.38 703.07,-109.86 679,-89 655.89,-68.98 648.69,-64.96 621,-52"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.5,-83.14C450.73,-77.68 421.59,-76.98 396.92,-77.93"/>
+<polygon fill="#000000" stroke="#000000" points="396.46,-74.45 386.64,-78.43 396.8,-81.44 396.46,-74.45"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386.5,-142 292.5,-142 292.5,-118 386.5,-118 386.5,-142"/>
-<text text-anchor="middle" x="339.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="671.5,-75.14 568.5,-75.14 568.5,-51.14 671.5,-51.14 671.5,-75.14"/>
+<text text-anchor="middle" x="620" y="-60.74" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619,-168C576.19,-168 567.29,-153.64 525,-147 482.16,-140.27 433.27,-135.91 396.58,-133.3"/>
-<polygon fill="#000000" stroke="#000000" points="396.79,-129.8 386.57,-132.6 396.31,-136.79 396.79,-129.8"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M714.89,-167.71C689.42,-167.55 652.93,-167.48 621,-168"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M721.5,-111C702.54,-101.97 676.47,-89.55 655.62,-79.63"/>
+<polygon fill="#000000" stroke="#000000" points="656.99,-76.41 646.46,-75.27 653.98,-82.73 656.99,-76.41"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="249,-66 142,-66 142,-42 249,-42 249,-66"/>
-<text text-anchor="middle" x="195.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~operator_cross.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-95.14 0,-95.14 0,-71.14 106,-71.14 106,-95.14"/>
+<text text-anchor="middle" x="53" y="-80.74" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619,-52C557.02,-22.98 360.94,-37.33 259.16,-47.24"/>
-<polygon fill="#000000" stroke="#000000" points="258.63,-43.78 249.02,-48.24 259.32,-50.74 258.63,-43.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-203.14C313.67,-198.67 307.47,-195.62 285,-184.14 242.46,-162.41 243.26,-132.91 196.5,-123.14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.5,-165.14C415.1,-178.11 402.27,-214.26 340.5,-203.14"/>
 </g>
 <!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge11" class="edge">
 <title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M583.38,-220.08C520.65,-239.29 387.4,-270.79 285,-231 235.3,-211.69 246.3,-169.05 196.5,-150"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M194.5,-150C147.44,-132 100.73,-95.37 74.79,-72.93"/>
-<polygon fill="#000000" stroke="#000000" points="76.94,-70.16 67.12,-66.19 72.31,-75.42 76.94,-70.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-90C313.27,-90.59 308.36,-99.46 285,-109 244.87,-125.38 236.99,-165.49 196.5,-150"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M584.98,-175.2C532.35,-192.24 428.12,-219.55 340.5,-203.14"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M589.89,-122.02C568.79,-130.73 540.05,-142.59 517.04,-152.09"/>
-<polygon fill="#000000" stroke="#000000" points="515.48,-148.95 507.57,-156 518.15,-155.42 515.48,-148.95"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M430.49,-124.72C404.12,-125.23 370.41,-125.21 340.5,-123.14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-123.14C302.62,-120.66 263.37,-108.87 235.25,-98.72"/>
+<polygon fill="#000000" stroke="#000000" points="236.38,-95.41 225.79,-95.22 233.95,-101.97 236.38,-95.41"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M435.7,-111.14C421.84,-107.07 406.17,-102.46 391.61,-98.18"/>
+<polygon fill="#000000" stroke="#000000" points="392.33,-94.74 381.75,-95.27 390.35,-101.45 392.33,-94.74"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M601.77,-97.98C577.33,-80.94 532.43,-49.62 504.09,-29.85"/>
-<polygon fill="#000000" stroke="#000000" points="506.07,-26.97 495.87,-24.12 502.07,-32.71 506.07,-26.97"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-123.14C275.54,-118.79 258.28,-136.04 196.5,-123.14"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-90C302.02,-91.52 261.79,-80.01 233.5,-69.61"/>
-<polygon fill="#000000" stroke="#000000" points="234.6,-66.29 224.01,-66 232.11,-72.83 234.6,-66.29"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M568.49,-102.92C512.73,-95.92 420.29,-86.68 340.5,-90"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M301.18,-151.11C272.74,-142.31 232.48,-130.65 196.5,-123.14"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-170C275.34,-161.49 256.03,-172.78 196.5,-150"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M429.72,-172.1C403.39,-173.55 369.99,-173.97 340.5,-170"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M435.7,-55.14C421.84,-59.22 406.17,-63.83 391.61,-68.11"/>
+<polygon fill="#000000" stroke="#000000" points="390.35,-64.83 381.75,-71.01 392.33,-71.55 390.35,-64.83"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M433.47,-155.98C420.82,-152.44 406.83,-148.53 393.63,-144.84"/>
-<polygon fill="#000000" stroke="#000000" points="394.29,-141.4 383.72,-142.08 392.41,-148.14 394.29,-141.4"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.14,-31.12C420.01,-20.93 378.3,-7.6 340.5,-5.14"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.5,-197.94C283.1,-185.4 236.99,-165.49 196.5,-150"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.78,-83.14C133.48,-83.14 124.83,-83.14 116.33,-83.14"/>
+<polygon fill="#000000" stroke="#000000" points="116.08,-79.64 106.08,-83.14 116.08,-86.64 116.08,-79.64"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M430.48,-11.27C404.11,-11.21 370.4,-11.72 340.5,-14"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-14C251.01,-20.68 228.54,-18.56 142,-33 131.32,-34.78 120.02,-37.12 109.2,-39.6"/>
-<polygon fill="#000000" stroke="#000000" points="108.36,-36.2 99.43,-41.9 109.97,-43.01 108.36,-36.2"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M468.07,-24.1C454.35,-43.1 425.52,-80.23 394,-104 389.57,-107.34 384.64,-110.43 379.62,-113.21"/>
-<polygon fill="#000000" stroke="#000000" points="377.83,-110.2 370.56,-117.9 381.05,-116.41 377.83,-110.2"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-14C302.75,-16.73 263.63,-28.44 235.53,-38.49"/>
-<polygon fill="#000000" stroke="#000000" points="234.25,-35.23 226.07,-41.95 236.66,-41.8 234.25,-35.23"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.4,-83.14C281.86,-83.14 270.48,-83.14 259.37,-83.14"/>
+<polygon fill="#000000" stroke="#000000" points="259.27,-79.64 249.27,-83.14 259.27,-86.64 259.27,-79.64"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge20" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.09,-142.04C280.74,-152.65 234.05,-164.37 196.5,-150"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M194.5,-123.14C162.77,-116.52 127.7,-106.54 100.54,-98.2"/>
+<polygon fill="#000000" stroke="#000000" points="101.5,-94.84 90.91,-95.22 99.43,-101.52 101.5,-94.84"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M308.41,-95.16C273.44,-108.49 217.81,-127.59 196.5,-123.14"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M312.76,-117.89C303.9,-113.62 293.96,-108.7 285,-104 265.09,-93.55 243.08,-81.12 225.99,-71.26"/>
-<polygon fill="#000000" stroke="#000000" points="227.45,-68.07 217.04,-66.08 223.94,-74.13 227.45,-68.07"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M590.57,-75.28C569.14,-84.43 539.56,-97.07 516.17,-107.06"/>
+<polygon fill="#000000" stroke="#000000" points="514.71,-103.87 506.89,-111.02 517.46,-110.31 514.71,-103.87"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M568.28,-55.92C557.67,-54.41 546.43,-52.81 535.61,-51.27"/>
+<polygon fill="#000000" stroke="#000000" points="535.8,-47.76 525.41,-49.82 534.81,-54.69 535.8,-47.76"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.5,-3.14C413.98,4.63 402.93,-34.63 340.5,-43.14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-43.14C304.37,-47.79 266.91,-58.6 239.04,-67.81"/>
+<polygon fill="#000000" stroke="#000000" points="237.59,-64.6 229.23,-71.11 239.82,-71.23 237.59,-64.6"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~operator_cross.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.78,-54C133.48,-54 124.83,-54 116.33,-54"/>
-<polygon fill="#000000" stroke="#000000" points="116.08,-50.5 106.08,-54 116.08,-57.5 116.08,-50.5"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-5.14C244.44,0.97 138.58,-42.02 86.5,-66.67"/>
+<polygon fill="#000000" stroke="#000000" points="84.91,-63.55 77.42,-71.05 87.95,-69.86 84.91,-63.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.98,-50.91C573.86,-35.1 524.82,-8.9 478.5,-3.14"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.5,-3.14C416.51,4.32 400.95,-4.48 340.5,-5.14"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/orbel.f90.html b/docs/sourcefile/orbel.f90.html
index 2c2f6a258..3aa4dfe00 100644
--- a/docs/sourcefile/orbel.f90.html
+++ b/docs/sourcefile/orbel.f90.html
@@ -134,7 +134,7 @@ <h1>orbel.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 4.5% of total for source files.">597 statements</a>
+    title=" 4.4% of total for source files.">597 statements</a>
      </li> 
      
      
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~orbel.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileorbelf90EfferentGraph" width="641pt" height="209pt"
- viewBox="0.00 0.00 641.00 209.28" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~orbel.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 282)">
+<svg id="sourcefileorbelf90EfferentGraph" width="641pt" height="223pt"
+ viewBox="0.00 0.00 641.00 223.36" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~orbel.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 301.25)">
 <title>sourcefile~~orbel.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 872,-282 872,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 872,-301.25 872,4 -4,4"/>
 <!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~orbel.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~orbel.f90</title>
-<polygon fill="none" stroke="black" points="868,-24 813,-24 813,0 868,0 868,-24"/>
-<text text-anchor="middle" x="840.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">orbel.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.92,-22.97C803.92,-26.68 793.66,-30.92 783.9,-34.95"/>
-<polygon fill="#000000" stroke="#000000" points="782.27,-31.83 774.36,-38.88 784.94,-38.3 782.27,-31.83"/>
+<polygon fill="none" stroke="black" points="868,-260 813,-260 813,-236 868,-236 868,-260"/>
+<text text-anchor="middle" x="840.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">orbel.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~orbel.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.81,-11.33C737.52,-10.2 517.78,-12.29 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.98,-256.19C772.68,-267.89 693.41,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.92,-242.38C804.83,-240.66 795.73,-238.74 786.89,-236.87"/>
+<polygon fill="#000000" stroke="#000000" points="787.59,-233.44 777.08,-234.79 786.14,-240.28 787.59,-233.44"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~orbel.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~orbel.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~orbel.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~orbel.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~orbel.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~orbel.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~orbel.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~orbel.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~orbel.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~orbel.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~orbel.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~orbel.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~orbel.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~orbel.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~orbel.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~orbel.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~orbel.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~orbel.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~orbel.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/rmvs_classes.f90.html b/docs/sourcefile/rmvs_classes.f90.html
index f30d05c28..f895a2ba0 100644
--- a/docs/sourcefile/rmvs_classes.f90.html
+++ b/docs/sourcefile/rmvs_classes.f90.html
@@ -226,73 +226,73 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~rmvs_classes.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilermvs_classesf90EfferentGraph" width="518pt" height="60pt"
- viewBox="0.00 0.00 518.00 60.04" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~rmvs_classes.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 56.04)">
+<svg id="sourcefilermvs_classesf90EfferentGraph" width="518pt" height="65pt"
+ viewBox="0.00 0.00 518.00 65.36" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~rmvs_classes.f90~~EfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 61.36)">
 <title>sourcefile~~rmvs_classes.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-56.04 514,-56.04 514,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-61.36 514,-61.36 514,4 -4,4"/>
 <!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
-<polygon fill="none" stroke="black" points="510,-44 415,-44 415,-20 510,-20 510,-44"/>
-<text text-anchor="middle" x="462.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_classes.f90</text>
+<polygon fill="none" stroke="black" points="510,-24 415,-24 415,0 510,0 510,-24"/>
+<text text-anchor="middle" x="462.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_classes.f90</text>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-44 0,-44 0,-20 106,-20 106,-44"/>
-<text text-anchor="middle" x="53" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="379,-44 285,-44 285,-20 379,-20 379,-44"/>
+<text text-anchor="middle" x="332" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.67,-37.59C361.78,-43.43 273.09,-51.77 196.5,-52"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.75,-19.28C406.39,-20.58 397.61,-21.94 389.02,-23.28"/>
+<polygon fill="#000000" stroke="#000000" points="388.42,-19.83 379.08,-24.83 389.49,-26.75 388.42,-19.83"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="379,-24 285,-24 285,0 379,0 379,-24"/>
-<text text-anchor="middle" x="332" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-44 0,-44 0,-20 106,-20 106,-44"/>
+<text text-anchor="middle" x="53" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.75,-24.72C406.39,-23.42 397.61,-22.06 389.02,-20.72"/>
-<polygon fill="#000000" stroke="#000000" points="389.49,-17.25 379.08,-19.17 388.42,-24.17 389.49,-17.25"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.74,-8.36C352.31,-4.29 238.41,0.34 142,-11 130.06,-12.41 117.39,-14.85 105.49,-17.58"/>
+<polygon fill="#000000" stroke="#000000" points="104.62,-14.19 95.72,-19.93 106.26,-21 104.62,-14.19"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~EfferentGraph_edge3" class="edge">
+<g id="sourcefile~~rmvs_classes.f90~~EfferentGraph_edge4" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.88,-24.17C279.34,-35.89 235.97,-51.88 196.5,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M194.5,-52C168.74,-52.08 140.58,-48.76 116.28,-44.8"/>
-<polygon fill="#000000" stroke="#000000" points="116.57,-41.3 106.13,-43.07 115.4,-48.2 116.57,-41.3"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.18,-44.07C278.65,-47.7 263.29,-51.2 249,-53 201.82,-58.95 189.23,-58.56 142,-53 130.06,-51.59 117.39,-49.15 105.49,-46.42"/>
+<polygon fill="#000000" stroke="#000000" points="106.26,-43 95.72,-44.07 104.62,-49.81 106.26,-43"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~EfferentGraph_node4" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
 <g id="a_sourcefile~~rmvs_classes.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="249,-24 142,-24 142,0 249,0 249,-24"/>
-<text text-anchor="middle" x="195.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="249,-44 142,-44 142,-20 249,-20 249,-44"/>
+<text text-anchor="middle" x="195.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~EfferentGraph_edge4" class="edge">
+<g id="sourcefile~~rmvs_classes.f90~~EfferentGraph_edge3" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.71,-12C276.61,-12 268.05,-12 259.59,-12"/>
-<polygon fill="#000000" stroke="#000000" points="259.34,-8.5 249.34,-12 259.34,-15.5 259.34,-8.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.71,-32C276.61,-32 268.05,-32 259.59,-32"/>
+<polygon fill="#000000" stroke="#000000" points="259.34,-28.5 249.34,-32 259.34,-35.5 259.34,-28.5"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.78,-19.5C133.39,-20.7 124.64,-21.94 116.05,-23.17"/>
-<polygon fill="#000000" stroke="#000000" points="115.49,-19.71 106.08,-24.59 116.47,-26.64 115.49,-19.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.78,-32C133.48,-32 124.83,-32 116.33,-32"/>
+<polygon fill="#000000" stroke="#000000" points="116.08,-28.5 106.08,-32 116.08,-35.5 116.08,-28.5"/>
 </g>
 </g>
 </svg>
@@ -345,1006 +345,1024 @@ <h3 class="panel-title">Files dependent on this one</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~rmvs_classes.f90~~AfferentGraph Pages: 1 -->
-<svg id="sourcefilermvs_classesf90AfferentGraph" width="544pt" height="2426pt"
- viewBox="0.00 0.00 544.00 2426.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2422)">
+<svg id="sourcefilermvs_classesf90AfferentGraph" width="544pt" height="2468pt"
+ viewBox="0.00 0.00 544.00 2468.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2464)">
 <title>sourcefile~~rmvs_classes.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2422 540,-2422 540,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 540,-2464 540,4 -4,4"/>
 <!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node1" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
-<polygon fill="none" stroke="black" points="95,-1788 0,-1788 0,-1764 95,-1764 95,-1788"/>
-<text text-anchor="middle" x="47.5" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_classes.f90</text>
+<polygon fill="none" stroke="black" points="95,-1263 0,-1263 0,-1239 95,-1239 95,-1263"/>
+<text text-anchor="middle" x="47.5" y="-1248.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_classes.f90</text>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node2" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="234,-1242 131,-1242 131,-1218 234,-1218 234,-1242"/>
-<text text-anchor="middle" x="182.5" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="490.5,-2460 417.5,-2460 417.5,-2436 490.5,-2436 490.5,-2460"/>
+<text text-anchor="middle" x="454" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge1" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.54,-1242.17C161.52,-1312.02 76.24,-1662.1 53.88,-1753.92"/>
-<polygon fill="#000000" stroke="#000000" points="50.44,-1753.26 51.47,-1763.8 57.24,-1754.91 50.44,-1753.26"/>
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M417.29,-2442.7C402.64,-2439.53 385.89,-2434.6 372,-2427 335.85,-2407.23 345.2,-2364 304,-2364"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node3" class="node">
-<title>sourcefile~rmvs_kick.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="493,-2418 415,-2418 415,-2394 493,-2394 493,-2418"/>
-<text text-anchor="middle" x="454" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="336,-1263 270,-1263 270,-1239 336,-1239 336,-1263"/>
+<text text-anchor="middle" x="303" y="-1248.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge11" class="edge">
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M417.25,-2447.82C400.94,-2445.75 382.88,-2440.25 372,-2427 333.94,-2380.65 308.53,-1431.49 304.55,-1273.27"/>
+<polygon fill="#000000" stroke="#000000" points="308.05,-1273.18 304.3,-1263.27 301.05,-1273.35 308.05,-1273.18"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge2" class="edge">
-<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.85,-2400.16C400.8,-2396.98 385.13,-2392.18 372,-2385 335.85,-2365.23 345.1,-2319.16 304,-2322"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.03,-1263.18C302.21,-1384.4 300.09,-2369.4 183.5,-2364"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.5,-2364C67.59,-2358.73 50.78,-1430.13 48.75,-1273.35"/>
+<polygon fill="#000000" stroke="#000000" points="52.24,-1273.02 48.62,-1263.06 45.24,-1273.1 52.24,-1273.02"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node6" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="336,-1242 270,-1242 270,-1218 336,-1218 336,-1242"/>
-<text text-anchor="middle" x="303" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node8" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="234,-1263 131,-1263 131,-1239 234,-1239 234,-1263"/>
+<text text-anchor="middle" x="182.5" y="-1248.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge63" class="edge">
-<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.75,-2405.47C399.13,-2403.16 382.33,-2397.57 372,-2385 297.42,-2294.26 302.36,-1405.17 303.77,-1252.31"/>
-<polygon fill="#000000" stroke="#000000" points="307.27,-1252.28 303.86,-1242.25 300.27,-1252.21 307.27,-1252.28"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge69" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.93,-1251C262.05,-1251 253.35,-1251 244.59,-1251"/>
+<polygon fill="#000000" stroke="#000000" points="244.33,-1247.5 234.33,-1251 244.33,-1254.5 244.33,-1247.5"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
+<!-- sourcefile~rmvs_discard.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node4" class="node">
-<title>sourcefile~rmvs_util.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="490.5,-2376 417.5,-2376 417.5,-2352 490.5,-2352 490.5,-2376"/>
-<text text-anchor="middle" x="454" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="501,-2418 407,-2418 407,-2394 501,-2394 501,-2418"/>
+<text text-anchor="middle" x="454" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge3" class="edge">
-<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M417.42,-2355.15C403.25,-2351.53 386.81,-2347.21 372,-2343 341.57,-2334.36 335.56,-2319.82 304,-2322"/>
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.64,-2394.37C395.28,-2391.41 383.18,-2388.17 372,-2385 341.57,-2376.36 335.63,-2364 304,-2364"/>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge35" class="edge">
-<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M417.27,-2363.81C400.96,-2361.73 382.9,-2356.23 372,-2343 300.17,-2255.81 302.8,-1402.31 303.82,-1252.42"/>
-<polygon fill="#000000" stroke="#000000" points="307.32,-1252.19 303.89,-1242.16 300.32,-1252.13 307.32,-1252.19"/>
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge31" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.74,-2403.99C393.62,-2401.06 380.58,-2395.43 372,-2385 335.32,-2340.43 308.85,-1428.78 304.6,-1273.42"/>
+<polygon fill="#000000" stroke="#000000" points="308.09,-1273.1 304.32,-1263.2 301.1,-1273.29 308.09,-1273.1"/>
 </g>
 <!-- sourcefile~rmvs_setup.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node5" class="node">
 <title>sourcefile~rmvs_setup.f90</title>
 <g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-2334 411,-2334 411,-2310 497,-2310 497,-2334"/>
-<text text-anchor="middle" x="454" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-2376 411,-2376 411,-2352 497,-2352 497,-2376"/>
+<text text-anchor="middle" x="454" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge4" class="edge">
 <title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.88,-2320.45C381.01,-2319.73 340,-2319.51 304,-2322"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.93,-2364C381.09,-2364 340.09,-2364 304,-2364"/>
 </g>
 <!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge51" class="edge">
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge32" class="edge">
 <title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411,-2320.83C396.5,-2318.19 381.53,-2312.54 372,-2301 302.91,-2217.34 303.25,-1399.17 303.87,-1252.47"/>
-<polygon fill="#000000" stroke="#000000" points="307.38,-1252.07 303.92,-1242.05 300.38,-1252.03 307.38,-1252.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.99,-2362.83C396.49,-2360.2 381.52,-2354.54 372,-2343 301.55,-2257.58 303.02,-1421.81 303.85,-1273.46"/>
+<polygon fill="#000000" stroke="#000000" points="307.35,-1273.31 303.91,-1263.29 300.35,-1273.27 307.35,-1273.31"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node6" class="node">
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="525,-2334 383,-2334 383,-2310 525,-2310 525,-2334"/>
+<text text-anchor="middle" x="454" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M181.5,-2322C71.84,-2323.38 52.21,-1901.23 49.06,-1798.38"/>
-<polygon fill="#000000" stroke="#000000" points="52.55,-1798.1 48.77,-1788.2 45.55,-1798.3 52.55,-1798.1"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.01,-1242.25C301.95,-1362.05 297.91,-2320.56 183.5,-2322"/>
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.93,-2334.07C394.07,-2336.91 382.62,-2339.98 372,-2343 341.57,-2351.64 335.63,-2364 304,-2364"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge13" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.93,-1230C262.05,-1230 253.35,-1230 244.59,-1230"/>
-<polygon fill="#000000" stroke="#000000" points="244.33,-1226.5 234.33,-1230 244.33,-1233.5 244.33,-1226.5"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge23" class="edge">
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M382.65,-2310.37C378.67,-2307.79 375.05,-2304.69 372,-2301 304.28,-2219.1 303.49,-1418.54 303.9,-1273.48"/>
+<polygon fill="#000000" stroke="#000000" points="307.41,-1273.17 303.94,-1263.16 300.41,-1273.15 307.41,-1273.17"/>
 </g>
-<!-- sourcefile~rmvs_step.f90 -->
+<!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node7" class="node">
-<title>sourcefile~rmvs_step.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="494,-2292 414,-2292 414,-2268 494,-2268 494,-2292"/>
-<text text-anchor="middle" x="454" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="493,-2292 415,-2292 415,-2268 493,-2268 493,-2292"/>
+<text text-anchor="middle" x="454" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge6" class="edge">
-<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.76,-2289.79C400.47,-2293.2 385.56,-2297.15 372,-2301 341.57,-2309.64 335.56,-2319.82 304,-2322"/>
-</g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge55" class="edge">
-<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.96,-2279.31C398.58,-2276.92 382.19,-2271.31 372,-2259 305.65,-2178.86 303.73,-1395.84 303.94,-1252.48"/>
-<polygon fill="#000000" stroke="#000000" points="307.44,-1252.27 303.96,-1242.27 300.44,-1252.26 307.44,-1252.27"/>
-</g>
-<!-- sourcefile~rmvs_discard.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node8" class="node">
-<title>sourcefile~rmvs_discard.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="501,-2250 407,-2250 407,-2226 501,-2226 501,-2250"/>
-<text text-anchor="middle" x="454" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
-</a>
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.85,-2285.84C400.8,-2289.02 385.13,-2293.82 372,-2301 335.85,-2320.77 345.2,-2364 304,-2364"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302,-2364C249.33,-2364 236.11,-2366.44 183.5,-2364"/>
 </g>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge37" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.8,-2279.43C399.19,-2277.11 382.39,-2271.53 372,-2259 306.94,-2180.53 303.97,-1413.46 303.97,-1273.02"/>
+<polygon fill="#000000" stroke="#000000" points="307.47,-1273.02 303.97,-1263.02 300.47,-1273.01 307.47,-1273.02"/>
 </g>
-<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge7" class="edge">
-<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.94,-2245.77C395.11,-2248.87 382.71,-2253.14 372,-2259 335.85,-2278.77 345.1,-2319.16 304,-2322"/>
-</g>
-<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge42" class="edge">
-<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.8,-2235.94C393.68,-2233.01 380.63,-2227.39 372,-2217 308.37,-2140.36 304.22,-1392.16 304,-1252.42"/>
-<polygon fill="#000000" stroke="#000000" points="307.5,-1252.1 303.99,-1242.1 300.5,-1252.11 307.5,-1252.1"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M130.84,-1251C122.49,-1251 113.78,-1251 105.3,-1251"/>
+<polygon fill="#000000" stroke="#000000" points="105.09,-1247.5 95.09,-1251 105.09,-1254.5 105.09,-1247.5"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~rmvs_step.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node9" class="node">
-<title>sourcefile~rmvs_encounter_check.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="525,-2208 383,-2208 383,-2184 525,-2184 525,-2208"/>
-<text text-anchor="middle" x="454" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="494,-24 414,-24 414,0 494,0 494,-24"/>
+<text text-anchor="middle" x="454" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge8" class="edge">
-<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.2,-2208.01C382.45,-2210.47 376.95,-2213.43 372,-2217 326.91,-2249.53 359.47,-2318.16 304,-2322"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302,-2322C249.46,-2325.64 236.16,-2321.34 183.5,-2322"/>
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.98,-15.77C399.67,-18.7 384.04,-23.88 372,-33 300.24,-87.37 302.43,-124.02 270,-208 118.83,-599.51 61.69,-1115.59 50.6,-1228.54"/>
+<polygon fill="#000000" stroke="#000000" points="47.09,-1228.44 49.62,-1238.73 54.06,-1229.12 47.09,-1228.44"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge29" class="edge">
-<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M382.68,-2184.34C378.69,-2181.77 375.07,-2178.68 372,-2175 311.08,-2101.85 304.73,-1388.27 304.08,-1252.31"/>
-<polygon fill="#000000" stroke="#000000" points="307.58,-1252.23 304.03,-1242.24 300.58,-1252.26 307.58,-1252.23"/>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge40" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.9,-12.64C398.51,-15.02 382.13,-20.64 372,-33 332.59,-81.09 308.26,-1066.12 304.51,-1228.45"/>
+<polygon fill="#000000" stroke="#000000" points="301,-1228.61 304.27,-1238.69 308,-1228.77 301,-1228.61"/>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~eucl.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node10" class="node">
-<title>sourcefile~obl.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481,-1914 427,-1914 427,-1890 481,-1890 481,-1914"/>
-<text text-anchor="middle" x="454" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
+<title>sourcefile~eucl.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481,-2166 427,-2166 427,-2142 481,-2142 481,-2166"/>
+<text text-anchor="middle" x="454" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge20" class="edge">
-<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.74,-1902.49C408.58,-1901.32 385.36,-1896.53 372,-1881 330.08,-1832.28 309.14,-1361.22 304.84,-1252.37"/>
-<polygon fill="#000000" stroke="#000000" points="308.33,-1252.06 304.45,-1242.21 301.34,-1252.33 308.33,-1252.06"/>
+<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge9" class="edge">
+<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M427,-2154.63C408.72,-2153.55 385.24,-2148.82 372,-2133 315.18,-2065.13 305.55,-1404.2 304.2,-1273.42"/>
+<polygon fill="#000000" stroke="#000000" points="307.69,-1273.02 304.1,-1263.06 300.69,-1273.09 307.69,-1273.02"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
+<!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node11" class="node">
-<title>sourcefile~util_sort.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="488,-1872 420,-1872 420,-1848 488,-1848 488,-1872"/>
-<text text-anchor="middle" x="454" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="489.5,-2124 418.5,-2124 418.5,-2100 489.5,-2100 489.5,-2124"/>
+<text text-anchor="middle" x="454" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge21" class="edge">
-<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.61,-1859.82C402.86,-1857.88 383.7,-1852.5 372,-1839 332.75,-1793.72 309.92,-1356.48 305.01,-1252.23"/>
-<polygon fill="#000000" stroke="#000000" points="308.5,-1252.03 304.54,-1242.2 301.51,-1252.35 308.5,-1252.03"/>
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge10" class="edge">
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.2,-2111.82C401.72,-2109.79 383.22,-2104.35 372,-2091 317.86,-2026.58 306.11,-1399.57 304.29,-1273.15"/>
+<polygon fill="#000000" stroke="#000000" points="307.78,-1273.05 304.15,-1263.1 300.79,-1273.15 307.78,-1273.05"/>
 </g>
-<!-- sourcefile~whm_setup.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node12" class="node">
-<title>sourcefile~whm_setup.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496.5,-1830 411.5,-1830 411.5,-1806 496.5,-1806 496.5,-1830"/>
-<text text-anchor="middle" x="454" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-2082 372,-2082 372,-2058 536,-2058 536,-2082"/>
+<text text-anchor="middle" x="454" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.34,-1816.54C396.88,-1813.87 381.85,-1808.27 372,-1797 335.45,-1755.17 310.78,-1352.03 305.2,-1252.25"/>
-<polygon fill="#000000" stroke="#000000" points="308.69,-1251.9 304.64,-1242.11 301.7,-1252.28 308.69,-1251.9"/>
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge12" class="edge">
+<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M382.01,-2057.82C378.29,-2055.36 374.9,-2052.44 372,-2049 320.58,-1988.08 306.72,-1395.86 304.39,-1273.18"/>
+<polygon fill="#000000" stroke="#000000" points="307.88,-1273.03 304.2,-1263.09 300.88,-1273.15 307.88,-1273.03"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node13" class="node">
-<title>sourcefile~whm_coord.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-1788 411,-1788 411,-1764 497,-1764 497,-1788"/>
-<text text-anchor="middle" x="454" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="501.5,-2040 406.5,-2040 406.5,-2016 501.5,-2016 501.5,-2040"/>
+<text text-anchor="middle" x="454" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.97,-1774.41C396.65,-1771.7 381.8,-1766.11 372,-1755 304.79,-1678.83 302.95,-1342.78 303.7,-1252.43"/>
-<polygon fill="#000000" stroke="#000000" points="307.2,-1252.26 303.8,-1242.23 300.2,-1252.19 307.2,-1252.26"/>
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge13" class="edge">
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.09,-2025.64C393.26,-2022.65 380.55,-2017.08 372,-2007 323.28,-1949.56 307.35,-1391.75 304.5,-1273.11"/>
+<polygon fill="#000000" stroke="#000000" points="307.99,-1272.95 304.26,-1263.04 300.99,-1273.12 307.99,-1272.95"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node14" class="node">
-<title>sourcefile~util_append.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-1746 411,-1746 411,-1722 497,-1722 497,-1746"/>
-<text text-anchor="middle" x="454" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="488,-1998 420,-1998 420,-1974 488,-1974 488,-1998"/>
+<text text-anchor="middle" x="454" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge24" class="edge">
-<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.62,-1732.27C396.44,-1729.53 381.77,-1723.95 372,-1713 310.09,-1643.61 304.36,-1337.75 303.98,-1252.26"/>
-<polygon fill="#000000" stroke="#000000" points="307.48,-1252.12 303.96,-1242.12 300.48,-1252.13 307.48,-1252.12"/>
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge14" class="edge">
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.92,-1985.94C403.06,-1984.06 383.69,-1978.71 372,-1965 326.02,-1911.07 308.04,-1388.35 304.62,-1273.32"/>
+<polygon fill="#000000" stroke="#000000" points="308.12,-1273.11 304.33,-1263.21 301.12,-1273.31 308.12,-1273.11"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~util_exit.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node15" class="node">
-<title>sourcefile~helio_coord.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-1704 411,-1704 411,-1680 497,-1680 497,-1704"/>
-<text text-anchor="middle" x="454" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487.5,-1956 420.5,-1956 420.5,-1932 487.5,-1932 487.5,-1956"/>
+<text text-anchor="middle" x="454" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge25" class="edge">
-<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.7,-1690.2C396.52,-1687.45 381.84,-1681.88 372,-1671 315.44,-1608.43 305.9,-1333.22 304.31,-1252.39"/>
-<polygon fill="#000000" stroke="#000000" points="307.81,-1252.26 304.14,-1242.32 300.81,-1252.38 307.81,-1252.26"/>
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge15" class="edge">
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M420.36,-1943.96C403.41,-1942.11 383.82,-1936.78 372,-1923 328.68,-1872.5 308.73,-1383.37 304.75,-1273.04"/>
+<polygon fill="#000000" stroke="#000000" points="308.25,-1272.91 304.4,-1263.04 301.26,-1273.16 308.25,-1272.91"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
+<!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node16" class="node">
-<title>sourcefile~symba_util.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="495,-402 413,-402 413,-378 495,-378 495,-402"/>
-<text text-anchor="middle" x="454" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="493.5,-1914 414.5,-1914 414.5,-1890 493.5,-1890 493.5,-1914"/>
+<text text-anchor="middle" x="454" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.68,-386.65C398.54,-383.76 383.38,-378.5 372,-369 316.74,-322.87 354.41,-170.61 304,-222"/>
-</g>
-<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge27" class="edge">
-<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.8,-390.98C397.81,-393.49 382.01,-399.11 372,-411 319.25,-473.63 306.42,-1082.62 304.34,-1207.64"/>
-<polygon fill="#000000" stroke="#000000" points="300.83,-1207.84 304.17,-1217.9 307.83,-1207.96 300.83,-1207.84"/>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge16" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.2,-1901.1C398.87,-1898.67 382.44,-1893.09 372,-1881 331.42,-1834 309.53,-1379.89 304.92,-1273.31"/>
+<polygon fill="#000000" stroke="#000000" points="308.41,-1272.92 304.49,-1263.08 301.42,-1273.22 308.41,-1272.92"/>
 </g>
-<!-- sourcefile~gr.f90 -->
+<!-- sourcefile~swiftest_driver.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node17" class="node">
-<title>sourcefile~gr.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481,-1662 427,-1662 427,-1638 481,-1638 481,-1662"/>
-<text text-anchor="middle" x="454" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="503,-1872 405,-1872 405,-1848 503,-1848 503,-1872"/>
+<text text-anchor="middle" x="454" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge26" class="edge">
-<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.65,-1650.2C408.69,-1648.85 385.76,-1643.98 372,-1629 320.79,-1573.25 307.61,-1328.75 304.72,-1252.68"/>
-<polygon fill="#000000" stroke="#000000" points="308.21,-1252.21 304.36,-1242.34 301.21,-1252.46 308.21,-1252.21"/>
+<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge17" class="edge">
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.98,-1857.2C392.59,-1854.14 380.39,-1848.64 372,-1839 334.08,-1795.43 310.32,-1374.89 305.09,-1273.1"/>
+<polygon fill="#000000" stroke="#000000" points="308.58,-1272.84 304.58,-1263.03 301.59,-1273.2 308.58,-1272.84"/>
 </g>
-<!-- sourcefile~eucl.f90 -->
+<!-- sourcefile~helio_coord.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node18" class="node">
-<title>sourcefile~eucl.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481,-1620 427,-1620 427,-1596 481,-1596 481,-1620"/>
-<text text-anchor="middle" x="454" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
+<title>sourcefile~helio_coord.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-1830 411,-1830 411,-1806 497,-1806 497,-1830"/>
+<text text-anchor="middle" x="454" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge28" class="edge">
-<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.74,-1608.12C408.82,-1606.73 385.9,-1601.84 372,-1587 326.04,-1537.93 309.47,-1323.11 305.22,-1252.55"/>
-<polygon fill="#000000" stroke="#000000" points="308.69,-1251.94 304.62,-1242.16 301.7,-1252.34 308.69,-1251.94"/>
+<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge18" class="edge">
+<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.94,-1816.43C396.62,-1813.73 381.78,-1808.14 372,-1797 302.12,-1717.41 302.28,-1366.03 303.57,-1273.43"/>
+<polygon fill="#000000" stroke="#000000" points="307.08,-1273.29 303.74,-1263.23 300.08,-1273.17 307.08,-1273.29"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~symba_fragmentation.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node19" class="node">
-<title>sourcefile~util_copy.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="489.5,-1578 418.5,-1578 418.5,-1554 489.5,-1554 489.5,-1578"/>
-<text text-anchor="middle" x="454" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
+<title>sourcefile~symba_fragmentation.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="521,-2250 387,-2250 387,-2226 521,-2226 521,-2250"/>
+<text text-anchor="middle" x="454" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge30" class="edge">
-<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M418.11,-1565.05C402.01,-1562.8 383.87,-1557.37 372,-1545 331.25,-1502.54 311.55,-1317.15 305.83,-1252.41"/>
-<polygon fill="#000000" stroke="#000000" points="309.29,-1251.77 304.95,-1242.11 302.31,-1252.37 309.29,-1251.77"/>
+<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge19" class="edge">
+<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M386.76,-2228.76C381.16,-2225.76 376.09,-2221.91 372,-2217 309.72,-2142.11 304.47,-1411.25 304.04,-1273.37"/>
+<polygon fill="#000000" stroke="#000000" points="307.54,-1273.17 304.01,-1263.18 300.54,-1273.19 307.54,-1273.17"/>
 </g>
-<!-- sourcefile~symba_collision.f90 -->
+<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge73" class="edge">
+<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M386.93,-2243.98C358.31,-2243.03 326.32,-2236.71 304,-2217"/>
+</g>
+<!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node20" class="node">
-<title>sourcefile~symba_collision.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="507,-360 401,-360 401,-336 507,-336 507,-360"/>
-<text text-anchor="middle" x="454" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="509.5,-1788 398.5,-1788 398.5,-1764 509.5,-1764 509.5,-1788"/>
+<text text-anchor="middle" x="454" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge19" class="edge">
-<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M400.76,-340.53C390.6,-337.46 380.48,-333.12 372,-327 326.91,-294.47 342.93,-182.31 304,-222"/>
-</g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge31" class="edge">
-<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M400.96,-351.62C389.91,-354.84 379.38,-360.21 372,-369 316.52,-435.14 305.83,-1079.08 304.24,-1207.71"/>
-<polygon fill="#000000" stroke="#000000" points="300.74,-1207.88 304.12,-1217.92 307.74,-1207.96 300.74,-1207.88"/>
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge20" class="edge">
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M398.37,-1771.18C388.38,-1767.91 378.94,-1762.82 372,-1755 307.45,-1682.23 303.64,-1361.35 303.83,-1273.38"/>
+<polygon fill="#000000" stroke="#000000" points="307.33,-1273.2 303.88,-1263.19 300.33,-1273.17 307.33,-1273.2"/>
 </g>
-<!-- sourcefile~symba_io.f90 -->
+<!-- sourcefile~gr.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node21" class="node">
-<title>sourcefile~symba_io.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492,-318 416,-318 416,-294 492,-294 492,-318"/>
-<text text-anchor="middle" x="454" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481,-1746 427,-1746 427,-1722 481,-1722 481,-1746"/>
+<text text-anchor="middle" x="454" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge9" class="edge">
-<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.67,-300.34C401.41,-297.17 385.38,-292.32 372,-285 335.85,-265.23 332.85,-192.59 304,-222"/>
-</g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge32" class="edge">
-<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.68,-306.49C399.84,-308.74 382.62,-314.29 372,-327 313.77,-396.67 305.26,-1075.95 304.15,-1207.87"/>
-<polygon fill="#000000" stroke="#000000" points="300.65,-1207.95 304.07,-1217.98 307.65,-1208.01 300.65,-1207.95"/>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge21" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.93,-1734.32C408.87,-1733.06 385.68,-1728.24 372,-1713 312.71,-1646.96 305.1,-1355.97 304.13,-1273.1"/>
+<polygon fill="#000000" stroke="#000000" points="307.63,-1272.99 304.04,-1263.03 300.63,-1273.06 307.63,-1272.99"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~fragmentation.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node22" class="node">
-<title>sourcefile~helio_drift.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-1536 415.5,-1536 415.5,-1512 492.5,-1512 492.5,-1536"/>
-<text text-anchor="middle" x="454" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
+<title>sourcefile~fragmentation.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="502.5,-1704 405.5,-1704 405.5,-1680 502.5,-1680 502.5,-1704"/>
+<text text-anchor="middle" x="454" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge33" class="edge">
-<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.4,-1522.45C400.08,-1519.93 383.35,-1514.46 372,-1503 336.4,-1467.06 313.89,-1310.53 306.59,-1252.1"/>
-<polygon fill="#000000" stroke="#000000" points="310.06,-1251.59 305.37,-1242.09 303.11,-1252.44 310.06,-1251.59"/>
+<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge22" class="edge">
+<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.26,-1688.95C392.87,-1685.89 380.61,-1680.45 372,-1671 318.07,-1611.8 306.71,-1351.56 304.5,-1273.32"/>
+<polygon fill="#000000" stroke="#000000" points="308,-1273.05 304.24,-1263.15 301,-1273.24 308,-1273.05"/>
 </g>
-<!-- sourcefile~symba_kick.f90 -->
+<!-- sourcefile~symba_setup.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node23" class="node">
-<title>sourcefile~symba_kick.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-234 411,-234 411,-210 497,-210 497,-234"/>
-<text text-anchor="middle" x="454" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="501,-2208 407,-2208 407,-2184 501,-2184 501,-2208"/>
+<text text-anchor="middle" x="454" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge10" class="edge">
-<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.67,-209.99C385.54,-200.08 333.44,-191.99 304,-222"/>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge25" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.83,-2193.92C393.71,-2190.98 380.65,-2185.37 372,-2175 312.49,-2103.67 305.01,-1408.62 304.12,-1273.64"/>
+<polygon fill="#000000" stroke="#000000" points="307.61,-1273.28 304.05,-1263.3 300.61,-1273.32 307.61,-1273.28"/>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge34" class="edge">
-<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.61,-223.28C396.25,-225.95 381.47,-231.6 372,-243 308.37,-319.64 304.22,-1067.84 304,-1207.58"/>
-<polygon fill="#000000" stroke="#000000" points="300.5,-1207.89 303.99,-1217.9 307.5,-1207.9 300.5,-1207.89"/>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge74" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.83,-2206.04C365.99,-2214.35 311.69,-2223.79 304,-2217"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302,-2217C228.62,-2152.21 190.99,-1413.16 184.51,-1273.64"/>
+<polygon fill="#000000" stroke="#000000" points="188,-1273.16 184.04,-1263.33 181,-1273.48 188,-1273.16"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~util_rescale.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node24" class="node">
-<title>sourcefile~tides_getacch_pl.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="509.5,-1494 398.5,-1494 398.5,-1470 509.5,-1470 509.5,-1494"/>
-<text text-anchor="middle" x="454" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496.5,-1662 411.5,-1662 411.5,-1638 496.5,-1638 496.5,-1662"/>
+<text text-anchor="middle" x="454" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge36" class="edge">
-<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M398.43,-1476.05C388.67,-1472.85 379.31,-1468.07 372,-1461 312.89,-1403.79 304.47,-1298.05 303.74,-1252.18"/>
-<polygon fill="#000000" stroke="#000000" points="307.24,-1252.1 303.7,-1242.12 300.24,-1252.14 307.24,-1252.1"/>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge24" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.27,-1648.14C396.98,-1645.41 382.07,-1639.87 372,-1629 323.38,-1576.55 308.49,-1346.57 304.95,-1273.42"/>
+<polygon fill="#000000" stroke="#000000" points="308.43,-1272.91 304.47,-1263.08 301.44,-1273.23 308.43,-1272.91"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node25" class="node">
-<title>sourcefile~tides_spin_step.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="506.5,-1452 401.5,-1452 401.5,-1428 506.5,-1428 506.5,-1452"/>
-<text text-anchor="middle" x="454" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-1620 415.5,-1620 415.5,-1596 492.5,-1596 492.5,-1620"/>
+<text text-anchor="middle" x="454" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge37" class="edge">
-<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.28,-1434.49C390.61,-1431.31 380.16,-1426.44 372,-1419 323.12,-1374.41 309.34,-1292.11 305.49,-1252.48"/>
-<polygon fill="#000000" stroke="#000000" points="308.95,-1251.96 304.62,-1242.29 301.98,-1252.55 308.95,-1251.96"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge26" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.15,-1606.69C399.79,-1604.21 383.09,-1598.71 372,-1587 328.66,-1541.26 310.49,-1341.3 305.51,-1273.55"/>
+<polygon fill="#000000" stroke="#000000" points="308.97,-1272.9 304.77,-1263.17 301.99,-1273.39 308.97,-1272.9"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~symba_drift.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node26" class="node">
-<title>sourcefile~user_getacch.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="501.5,-1410 406.5,-1410 406.5,-1386 501.5,-1386 501.5,-1410"/>
-<text text-anchor="middle" x="454" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-360 411,-360 411,-336 497,-336 497,-360"/>
+<text text-anchor="middle" x="454" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge38" class="edge">
-<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.39,-1393.22C394.17,-1390.12 381.7,-1385.1 372,-1377 332.99,-1344.44 315.17,-1284.61 308.07,-1252.22"/>
-<polygon fill="#000000" stroke="#000000" points="311.41,-1251.1 305.98,-1242 304.55,-1252.5 311.41,-1251.1"/>
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.66,-349.32C396.3,-352 381.51,-357.64 372,-369 315.18,-436.87 305.55,-1097.8 304.2,-1228.58"/>
+<polygon fill="#000000" stroke="#000000" points="300.69,-1228.91 304.1,-1238.94 307.69,-1228.98 300.69,-1228.91"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge78" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.88,-343.21C397.53,-340.15 383.31,-335.16 372,-327 326.91,-294.47 342.89,-182.26 304,-222"/>
+</g>
+<!-- sourcefile~whm_drift.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node27" class="node">
-<title>sourcefile~symba_step.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="498,-192 410,-192 410,-168 498,-168 498,-192"/>
-<text text-anchor="middle" x="454" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-1578 415.5,-1578 415.5,-1554 492.5,-1554 492.5,-1578"/>
+<text text-anchor="middle" x="454" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge18" class="edge">
-<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.67,-181.05C376.38,-184.2 331.57,-193.89 304,-222"/>
-</g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge41" class="edge">
-<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.74,-181.42C395.65,-184.16 381.26,-189.81 372,-201 305.65,-281.14 303.73,-1064.16 303.94,-1207.52"/>
-<polygon fill="#000000" stroke="#000000" points="300.44,-1207.74 303.96,-1217.73 307.44,-1207.73 300.44,-1207.74"/>
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge28" class="edge">
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.31,-1564.54C399.97,-1562.03 383.25,-1556.55 372,-1545 333.89,-1505.87 312.75,-1335.43 306.22,-1273.55"/>
+<polygon fill="#000000" stroke="#000000" points="309.67,-1272.91 305.17,-1263.31 302.71,-1273.62 309.67,-1272.91"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
+<!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node28" class="node">
-<title>sourcefile~whm_step.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="493.5,-1368 414.5,-1368 414.5,-1344 493.5,-1344 493.5,-1368"/>
-<text text-anchor="middle" x="454" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-1536 415.5,-1536 415.5,-1512 492.5,-1512 492.5,-1536"/>
+<text text-anchor="middle" x="454" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge39" class="edge">
-<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.2,-1351.93C399.92,-1348.96 384.25,-1343.84 372,-1335 342.56,-1313.77 322.58,-1275.51 312.25,-1251.5"/>
-<polygon fill="#000000" stroke="#000000" points="315.46,-1250.09 308.42,-1242.18 308.98,-1252.76 315.46,-1250.09"/>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge29" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.09,-1522.27C399.91,-1519.7 383.36,-1514.24 372,-1503 307.77,-1439.4 302.35,-1321.93 303.09,-1273.14"/>
+<polygon fill="#000000" stroke="#000000" points="306.59,-1273.13 303.35,-1263.05 299.59,-1272.95 306.59,-1273.13"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
+<!-- sourcefile~kick.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node29" class="node">
-<title>sourcefile~orbel.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481.5,-1326 426.5,-1326 426.5,-1302 481.5,-1302 481.5,-1326"/>
-<text text-anchor="middle" x="454" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481,-1494 427,-1494 427,-1470 481,-1470 481,-1494"/>
+<text text-anchor="middle" x="454" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge40" class="edge">
-<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.24,-1310.47C409.83,-1307.5 388.82,-1302.2 372,-1293 351.93,-1282.03 333.19,-1263.82 320.49,-1249.8"/>
-<polygon fill="#000000" stroke="#000000" points="322.97,-1247.32 313.74,-1242.11 317.7,-1251.93 322.97,-1247.32"/>
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge30" class="edge">
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.92,-1481.53C409.31,-1479.85 386.7,-1474.85 372,-1461 317.98,-1410.1 306.78,-1316.01 304.52,-1273.22"/>
+<polygon fill="#000000" stroke="#000000" points="308.01,-1272.89 304.11,-1263.05 301.02,-1273.18 308.01,-1272.89"/>
 </g>
-<!-- sourcefile~whm_drift.f90 -->
+<!-- sourcefile~whm_coord.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node30" class="node">
-<title>sourcefile~whm_drift.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-1284 415.5,-1284 415.5,-1260 492.5,-1260 492.5,-1284"/>
-<text text-anchor="middle" x="454" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-1452 411,-1452 411,-1428 497,-1428 497,-1452"/>
+<text text-anchor="middle" x="454" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge43" class="edge">
-<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.4,-1262.63C401.7,-1259.12 386.11,-1255.01 372,-1251 363.45,-1248.57 354.34,-1245.85 345.65,-1243.19"/>
-<polygon fill="#000000" stroke="#000000" points="346.67,-1239.84 336.08,-1240.24 344.6,-1246.53 346.67,-1239.84"/>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge33" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.75,-1436.6C397.08,-1433.66 382.7,-1428.39 372,-1419 328.05,-1380.46 312.08,-1309.38 306.62,-1273.29"/>
+<polygon fill="#000000" stroke="#000000" points="310.08,-1272.71 305.25,-1263.28 303.14,-1273.67 310.08,-1272.71"/>
 </g>
-<!-- sourcefile~util_valid.f90 -->
+<!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node31" class="node">
-<title>sourcefile~util_valid.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="490,-1242 418,-1242 418,-1218 490,-1218 490,-1242"/>
-<text text-anchor="middle" x="454" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-1410 416.5,-1410 416.5,-1386 491.5,-1386 491.5,-1410"/>
+<text text-anchor="middle" x="454" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge44" class="edge">
-<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M417.69,-1230C396.29,-1230 368.87,-1230 346.32,-1230"/>
-<polygon fill="#000000" stroke="#000000" points="346.01,-1226.5 336.01,-1230 346.01,-1233.5 346.01,-1226.5"/>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge34" class="edge">
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.29,-1394.92C401.3,-1392.12 384.58,-1386.86 372,-1377 337.83,-1350.21 318.63,-1301.32 309.88,-1272.95"/>
+<polygon fill="#000000" stroke="#000000" points="313.19,-1271.8 307.03,-1263.18 306.47,-1273.76 313.19,-1271.8"/>
 </g>
-<!-- sourcefile~kick.f90 -->
+<!-- sourcefile~setup.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node32" class="node">
-<title>sourcefile~kick.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481,-1200 427,-1200 427,-1176 481,-1176 481,-1200"/>
-<text text-anchor="middle" x="454" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="482.5,-1368 425.5,-1368 425.5,-1344 482.5,-1344 482.5,-1368"/>
+<text text-anchor="middle" x="454" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge45" class="edge">
-<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.65,-1194.51C410.77,-1198.51 390.17,-1203.84 372,-1209 363.45,-1211.43 354.34,-1214.15 345.65,-1216.81"/>
-<polygon fill="#000000" stroke="#000000" points="344.6,-1213.47 336.08,-1219.76 346.67,-1220.16 344.6,-1213.47"/>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge35" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.37,-1353.24C408.84,-1350.56 388,-1345.3 372,-1335 347.19,-1319.03 327.2,-1290.98 315.47,-1271.72"/>
+<polygon fill="#000000" stroke="#000000" points="318.47,-1269.92 310.39,-1263.06 312.43,-1273.46 318.47,-1269.92"/>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
+<!-- sourcefile~util_version.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node33" class="node">
-<title>sourcefile~helio_gr.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="488,-1158 420,-1158 420,-1134 488,-1134 488,-1158"/>
-<text text-anchor="middle" x="454" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496.5,-1326 411.5,-1326 411.5,-1302 496.5,-1302 496.5,-1326"/>
+<text text-anchor="middle" x="454" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge46" class="edge">
-<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.69,-1150.8C404.49,-1153.93 386.66,-1158.98 372,-1167 351.93,-1177.97 333.19,-1196.18 320.49,-1210.2"/>
-<polygon fill="#000000" stroke="#000000" points="317.7,-1208.07 313.74,-1217.89 322.97,-1212.68 317.7,-1208.07"/>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge36" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.42,-1305.75C398.51,-1302.53 384.43,-1298.3 372,-1293 356.9,-1286.56 341.24,-1277.1 328.76,-1268.79"/>
+<polygon fill="#000000" stroke="#000000" points="330.51,-1265.75 320.28,-1263 326.57,-1271.53 330.51,-1265.75"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node34" class="node">
-<title>sourcefile~util_resize.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="493.5,-1116 414.5,-1116 414.5,-1092 493.5,-1092 493.5,-1116"/>
-<text text-anchor="middle" x="454" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481.5,-1284 426.5,-1284 426.5,-1260 481.5,-1260 481.5,-1284"/>
+<text text-anchor="middle" x="454" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge47" class="edge">
-<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.2,-1108.07C399.92,-1111.04 384.25,-1116.16 372,-1125 342.56,-1146.23 322.58,-1184.49 312.25,-1208.5"/>
-<polygon fill="#000000" stroke="#000000" points="308.98,-1207.24 308.42,-1217.82 315.46,-1209.91 308.98,-1207.24"/>
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge38" class="edge">
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.36,-1268.25C404.14,-1265.11 372.08,-1260.59 346.34,-1256.97"/>
+<polygon fill="#000000" stroke="#000000" points="346.5,-1253.46 336.11,-1255.53 345.52,-1260.39 346.5,-1253.46"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~symba_util.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node35" class="node">
-<title>sourcefile~helio_step.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="493.5,-1074 414.5,-1074 414.5,-1050 493.5,-1050 493.5,-1074"/>
-<text text-anchor="middle" x="454" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="495,-318 413,-318 413,-294 495,-294 495,-318"/>
+<text text-anchor="middle" x="454" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge48" class="edge">
-<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.34,-1065.02C399.74,-1067.84 383.82,-1073.13 372,-1083 332.99,-1115.56 315.17,-1175.39 308.07,-1207.78"/>
-<polygon fill="#000000" stroke="#000000" points="304.55,-1207.5 305.98,-1218 311.41,-1208.9 304.55,-1207.5"/>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge39" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.74,-306.93C397.74,-309.44 381.96,-315.06 372,-327 312.49,-398.33 305.01,-1093.38 304.12,-1228.36"/>
+<polygon fill="#000000" stroke="#000000" points="300.61,-1228.68 304.05,-1238.7 307.61,-1228.72 300.61,-1228.68"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge77" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M412.8,-299.68C399.29,-296.51 384.49,-291.83 372,-285 335.85,-265.23 332.82,-192.55 304,-222"/>
+</g>
+<!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node36" class="node">
-<title>sourcefile~util_get_energy_momentum.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-1032 372,-1032 372,-1008 536,-1008 536,-1032"/>
-<text text-anchor="middle" x="454" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="513,-1242 395,-1242 395,-1218 513,-1218 513,-1242"/>
+<text text-anchor="middle" x="454" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge49" class="edge">
-<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M384.92,-1032.06C380.24,-1034.53 375.86,-1037.48 372,-1041 323.12,-1085.59 309.34,-1167.89 305.49,-1207.52"/>
-<polygon fill="#000000" stroke="#000000" points="301.98,-1207.45 304.62,-1217.71 308.95,-1208.04 301.98,-1207.45"/>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge41" class="edge">
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M394.97,-1238.18C378.77,-1240.46 361.47,-1242.9 346.36,-1245.03"/>
+<polygon fill="#000000" stroke="#000000" points="345.7,-1241.59 336.29,-1246.45 346.68,-1248.52 345.7,-1241.59"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node37" class="node">
-<title>sourcefile~swiftest_driver.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="503,-990 405,-990 405,-966 503,-966 503,-990"/>
-<text text-anchor="middle" x="454" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
+<title>sourcefile~util_coord.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-1200 415.5,-1200 415.5,-1176 492.5,-1176 492.5,-1200"/>
+<text text-anchor="middle" x="454" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge50" class="edge">
-<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.74,-982.1C392.78,-985.21 380.87,-990.41 372,-999 312.89,-1056.21 304.47,-1161.95 303.74,-1207.82"/>
-<polygon fill="#000000" stroke="#000000" points="300.24,-1207.86 303.7,-1217.88 307.24,-1207.9 300.24,-1207.86"/>
+<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge42" class="edge">
+<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.12,-1195.34C401.26,-1198.67 385.63,-1203.18 372,-1209 356.9,-1215.44 341.24,-1224.9 328.76,-1233.21"/>
+<polygon fill="#000000" stroke="#000000" points="326.57,-1230.47 320.28,-1239 330.51,-1236.25 326.57,-1230.47"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
+<!-- sourcefile~symba_kick.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node38" class="node">
-<title>sourcefile~whm_util.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="490.5,-948 417.5,-948 417.5,-924 490.5,-924 490.5,-948"/>
-<text text-anchor="middle" x="454" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-276 411,-276 411,-252 497,-252 497,-276"/>
+<text text-anchor="middle" x="454" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge52" class="edge">
-<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M417.46,-937.23C401.6,-939.59 383.86,-945.03 372,-957 336.4,-992.94 313.89,-1149.47 306.59,-1207.9"/>
-<polygon fill="#000000" stroke="#000000" points="303.11,-1207.56 305.37,-1217.91 310.06,-1208.41 303.11,-1207.56"/>
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge43" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.62,-265.29C396.26,-267.96 381.47,-273.61 372,-285 309.72,-359.89 304.47,-1090.75 304.04,-1228.63"/>
+<polygon fill="#000000" stroke="#000000" points="300.54,-1228.81 304.01,-1238.82 307.54,-1228.83 300.54,-1228.81"/>
 </g>
-<!-- sourcefile~util_coord.f90 -->
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge68" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.86,-253.47C398.32,-250.23 384.58,-246.57 372,-243 341.57,-234.36 326.12,-199.39 304,-222"/>
+</g>
+<!-- sourcefile~io.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node39" class="node">
-<title>sourcefile~util_coord.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-906 415.5,-906 415.5,-882 492.5,-882 492.5,-906"/>
-<text text-anchor="middle" x="454" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481,-1158 427,-1158 427,-1134 481,-1134 481,-1158"/>
+<text text-anchor="middle" x="454" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge53" class="edge">
-<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.23,-895.38C399.88,-897.87 383.17,-903.37 372,-915 331.25,-957.46 311.55,-1142.85 305.83,-1207.59"/>
-<polygon fill="#000000" stroke="#000000" points="302.31,-1207.63 304.95,-1217.89 309.29,-1208.23 302.31,-1207.63"/>
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge44" class="edge">
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.87,-1148.52C410.11,-1151.12 388.49,-1156.38 372,-1167 347.19,-1182.97 327.2,-1211.02 315.47,-1230.28"/>
+<polygon fill="#000000" stroke="#000000" points="312.43,-1228.54 310.39,-1238.94 318.47,-1232.08 312.43,-1228.54"/>
 </g>
-<!-- sourcefile~drift.f90 -->
+<!-- sourcefile~util_fill.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node40" class="node">
-<title>sourcefile~drift.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481,-864 427,-864 427,-840 481,-840 481,-864"/>
-<text text-anchor="middle" x="454" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="484,-1116 424,-1116 424,-1092 484,-1092 484,-1116"/>
+<text text-anchor="middle" x="454" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge54" class="edge">
-<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.74,-851.88C408.82,-853.27 385.9,-858.16 372,-873 326.04,-922.07 309.47,-1136.89 305.22,-1207.45"/>
-<polygon fill="#000000" stroke="#000000" points="301.7,-1207.66 304.62,-1217.84 308.69,-1208.06 301.7,-1207.66"/>
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge45" class="edge">
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423.86,-1105.84C407.2,-1108.2 386.75,-1113.44 372,-1125 337.83,-1151.79 318.63,-1200.68 309.88,-1229.05"/>
+<polygon fill="#000000" stroke="#000000" points="306.47,-1228.24 307.03,-1238.82 313.19,-1230.2 306.47,-1228.24"/>
 </g>
 <!-- sourcefile~whm_gr.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node41" class="node">
 <title>sourcefile~whm_gr.f90</title>
 <g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="488,-822 420,-822 420,-798 488,-798 488,-822"/>
-<text text-anchor="middle" x="454" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="488,-1074 420,-1074 420,-1050 488,-1050 488,-1074"/>
+<text text-anchor="middle" x="454" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge56" class="edge">
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge46" class="edge">
 <title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.92,-810.46C403.26,-812.48 384.09,-817.84 372,-831 320.79,-886.75 307.61,-1131.25 304.72,-1207.32"/>
-<polygon fill="#000000" stroke="#000000" points="301.21,-1207.54 304.36,-1217.66 308.21,-1207.79 301.21,-1207.54"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.81,-1063.75C403.72,-1066.17 385.11,-1071.51 372,-1083 328.05,-1121.54 312.08,-1192.62 306.62,-1228.71"/>
+<polygon fill="#000000" stroke="#000000" points="303.14,-1228.33 305.25,-1238.72 310.08,-1229.29 303.14,-1228.33"/>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node42" class="node">
-<title>sourcefile~fragmentation.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="502.5,-780 405.5,-780 405.5,-756 502.5,-756 502.5,-780"/>
-<text text-anchor="middle" x="454" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-1032 411,-1032 411,-1008 497,-1008 497,-1032"/>
+<text text-anchor="middle" x="454" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge57" class="edge">
-<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M405.21,-771.01C392.82,-774.07 380.57,-779.52 372,-789 315.44,-851.57 305.9,-1126.78 304.31,-1207.61"/>
-<polygon fill="#000000" stroke="#000000" points="300.81,-1207.62 304.14,-1217.68 307.81,-1207.74 300.81,-1207.62"/>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge47" class="edge">
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.78,-1022.88C396.95,-1025.76 382.47,-1031.14 372,-1041 317.98,-1091.9 306.78,-1185.99 304.52,-1228.78"/>
+<polygon fill="#000000" stroke="#000000" points="301.02,-1228.82 304.11,-1238.95 308.01,-1229.11 301.02,-1228.82"/>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+<!-- sourcefile~discard.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node43" class="node">
-<title>sourcefile~operator_cross.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="505.5,-738 402.5,-738 402.5,-714 505.5,-714 505.5,-738"/>
-<text text-anchor="middle" x="454" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="486.5,-990 421.5,-990 421.5,-966 486.5,-966 486.5,-990"/>
+<text text-anchor="middle" x="454" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge58" class="edge">
-<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.18,-729.71C390.82,-732.89 379.83,-738.22 372,-747 310.09,-816.39 304.36,-1122.25 303.98,-1207.74"/>
-<polygon fill="#000000" stroke="#000000" points="300.48,-1207.87 303.96,-1217.88 307.48,-1207.88 300.48,-1207.87"/>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge48" class="edge">
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421.21,-978.83C404.52,-980.92 384.9,-986.22 372,-999 307.77,-1062.6 302.35,-1180.07 303.09,-1228.86"/>
+<polygon fill="#000000" stroke="#000000" points="299.59,-1229.05 303.35,-1238.95 306.59,-1228.87 299.59,-1229.05"/>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
+<!-- sourcefile~symba_discard.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node44" class="node">
-<title>sourcefile~symba_drift.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="497,-150 411,-150 411,-126 497,-126 497,-150"/>
-<text text-anchor="middle" x="454" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="505.5,-234 402.5,-234 402.5,-210 505.5,-210 505.5,-234"/>
+<text text-anchor="middle" x="454" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M410.72,-144.81C397.78,-147.97 383.85,-152.52 372,-159 335.85,-178.77 332.85,-192.59 304,-222"/>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge49" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.15,-225.21C390.65,-228.38 379.6,-233.83 372,-243 306.94,-321.47 303.97,-1088.54 303.97,-1228.98"/>
+<polygon fill="#000000" stroke="#000000" points="300.47,-1228.99 303.97,-1238.98 307.47,-1228.98 300.47,-1228.99"/>
 </g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge59" class="edge">
-<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411,-139.17C396.5,-141.81 381.53,-147.46 372,-159 302.91,-242.66 303.25,-1060.83 303.87,-1207.53"/>
-<polygon fill="#000000" stroke="#000000" points="300.38,-1207.97 303.92,-1217.95 307.38,-1207.93 300.38,-1207.97"/>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge71" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.66,-209.98C385.51,-200.05 333.4,-191.96 304,-222"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node45" class="node">
-<title>sourcefile~util_fill.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="484,-696 424,-696 424,-672 484,-672 484,-696"/>
-<text text-anchor="middle" x="454" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="506.5,-948 401.5,-948 401.5,-924 506.5,-924 506.5,-948"/>
+<text text-anchor="middle" x="454" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge60" class="edge">
-<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423.72,-683.85C406.15,-685.41 384.78,-690.51 372,-705 304.79,-781.17 302.95,-1117.22 303.7,-1207.57"/>
-<polygon fill="#000000" stroke="#000000" points="300.2,-1207.81 303.8,-1217.77 307.2,-1207.74 300.2,-1207.81"/>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge50" class="edge">
+<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.44,-940.57C390.51,-943.76 379.91,-948.88 372,-957 333.89,-996.13 312.75,-1166.57 306.22,-1228.45"/>
+<polygon fill="#000000" stroke="#000000" points="302.71,-1228.38 305.17,-1238.69 309.67,-1229.09 302.71,-1228.38"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90 -->
+<!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node46" class="node">
-<title>sourcefile~symba_encounter_check.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="529,-108 379,-108 379,-84 529,-84 529,-108"/>
-<text text-anchor="middle" x="454" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496.5,-906 411.5,-906 411.5,-882 496.5,-882 496.5,-906"/>
+<text text-anchor="middle" x="454" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge11" class="edge">
-<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M388.2,-108.01C382.45,-110.47 376.95,-113.43 372,-117 326.91,-149.53 342.93,-182.31 304,-222"/>
-</g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge61" class="edge">
-<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M381.91,-108.1C378.22,-110.58 374.86,-113.52 372,-117 300.17,-204.19 302.8,-1057.69 303.82,-1207.58"/>
-<polygon fill="#000000" stroke="#000000" points="300.32,-1207.87 303.89,-1217.84 307.32,-1207.81 300.32,-1207.87"/>
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge51" class="edge">
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.39,-895.98C397.12,-898.72 382.19,-904.24 372,-915 328.66,-960.74 310.49,-1160.7 305.51,-1228.45"/>
+<polygon fill="#000000" stroke="#000000" points="301.99,-1228.61 304.77,-1238.83 308.97,-1229.1 301.99,-1228.61"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
+<!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node47" class="node">
-<title>sourcefile~util_peri.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="488,-654 420,-654 420,-630 488,-630 488,-654"/>
-<text text-anchor="middle" x="454" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="498,-192 410,-192 410,-168 498,-168 498,-192"/>
+<text text-anchor="middle" x="454" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge62" class="edge">
-<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.65,-642.22C402.92,-644.17 383.76,-649.55 372,-663 335.45,-704.83 310.78,-1107.97 305.2,-1207.75"/>
-<polygon fill="#000000" stroke="#000000" points="301.7,-1207.72 304.64,-1217.89 308.69,-1208.1 301.7,-1207.72"/>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge52" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.74,-181.42C395.64,-184.15 381.26,-189.8 372,-201 304.28,-282.9 303.49,-1083.46 303.9,-1228.52"/>
+<polygon fill="#000000" stroke="#000000" points="300.41,-1228.85 303.94,-1238.84 307.41,-1228.83 300.41,-1228.85"/>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge75" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M409.99,-181C376.66,-184.11 331.63,-193.76 304,-222"/>
+</g>
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node48" class="node">
-<title>sourcefile~symba_discard.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="505.5,-66 402.5,-66 402.5,-42 505.5,-42 505.5,-66"/>
-<text text-anchor="middle" x="454" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="490.5,-864 417.5,-864 417.5,-840 490.5,-840 490.5,-864"/>
+<text text-anchor="middle" x="454" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.17,-59.93C391.34,-63.08 380.59,-67.83 372,-75 316.74,-121.13 354.41,-170.61 304,-222"/>
-</g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge66" class="edge">
-<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.09,-57.16C390.59,-60.34 379.56,-65.8 372,-75 334.63,-120.46 308.69,-1050.87 304.57,-1207.66"/>
-<polygon fill="#000000" stroke="#000000" points="301.07,-1207.86 304.31,-1217.95 308.06,-1208.05 301.07,-1207.86"/>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge53" class="edge">
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M417.1,-852.88C401.16,-855.17 383.46,-860.64 372,-873 323.38,-925.45 308.49,-1155.43 304.95,-1228.58"/>
+<polygon fill="#000000" stroke="#000000" points="301.44,-1228.77 304.47,-1238.92 308.43,-1229.09 301.44,-1228.77"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~operator_cross.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node49" class="node">
-<title>sourcefile~util_set.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="486,-612 422,-612 422,-588 486,-588 486,-612"/>
-<text text-anchor="middle" x="454" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="505.5,-822 402.5,-822 402.5,-798 505.5,-798 505.5,-822"/>
+<text text-anchor="middle" x="454" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge64" class="edge">
-<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421.63,-599.96C404.43,-601.7 384.18,-606.95 372,-621 332.75,-666.28 309.92,-1103.52 305.01,-1207.77"/>
-<polygon fill="#000000" stroke="#000000" points="301.51,-1207.65 304.54,-1217.8 308.5,-1207.97 301.51,-1207.65"/>
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge54" class="edge">
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M402.3,-813.83C390.94,-817 379.92,-822.3 372,-831 318.07,-890.2 306.71,-1150.44 304.5,-1228.68"/>
+<polygon fill="#000000" stroke="#000000" points="301,-1228.76 304.24,-1238.85 308,-1228.95 301,-1228.76"/>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~helio_gr.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node50" class="node">
-<title>sourcefile~util_exit.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="487.5,-570 420.5,-570 420.5,-546 487.5,-546 487.5,-570"/>
-<text text-anchor="middle" x="454" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="488,-780 420,-780 420,-756 488,-756 488,-780"/>
+<text text-anchor="middle" x="454" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge65" class="edge">
-<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M420.38,-558.06C403.43,-559.91 383.85,-565.24 372,-579 330.08,-627.72 309.14,-1098.78 304.84,-1207.63"/>
-<polygon fill="#000000" stroke="#000000" points="301.34,-1207.67 304.45,-1217.79 308.33,-1207.94 301.34,-1207.67"/>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge55" class="edge">
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.79,-768.35C403.1,-770.34 383.94,-775.7 372,-789 312.71,-855.04 305.1,-1146.03 304.13,-1228.9"/>
+<polygon fill="#000000" stroke="#000000" points="300.63,-1228.94 304.04,-1238.97 307.63,-1229.01 300.63,-1228.94"/>
 </g>
-<!-- sourcefile~util_solve.f90 -->
+<!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node51" class="node">
-<title>sourcefile~util_solve.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="491.5,-528 416.5,-528 416.5,-504 491.5,-504 491.5,-528"/>
-<text text-anchor="middle" x="454" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="490,-738 418,-738 418,-714 490,-714 490,-738"/>
+<text text-anchor="middle" x="454" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge67" class="edge">
-<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M416.23,-516.54C400.31,-518.78 382.86,-524.3 372,-537 327.37,-589.19 308.4,-1094.58 304.69,-1207.64"/>
-<polygon fill="#000000" stroke="#000000" points="301.19,-1207.76 304.37,-1217.86 308.18,-1207.98 301.19,-1207.76"/>
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge56" class="edge">
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M417.68,-726.55C401.47,-728.71 383.38,-734.18 372,-747 307.45,-819.77 303.64,-1140.65 303.83,-1228.62"/>
+<polygon fill="#000000" stroke="#000000" points="300.33,-1228.83 303.88,-1238.81 307.33,-1228.8 300.33,-1228.83"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node52" class="node">
-<title>sourcefile~discard.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="486.5,-486 421.5,-486 421.5,-462 486.5,-462 486.5,-486"/>
-<text text-anchor="middle" x="454" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="507,-150 401,-150 401,-126 507,-126 507,-150"/>
+<text text-anchor="middle" x="454" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge68" class="edge">
-<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421.13,-473.92C403.98,-475.67 383.95,-480.94 372,-495 324.7,-550.62 307.72,-1089.76 304.57,-1207.4"/>
-<polygon fill="#000000" stroke="#000000" points="301.06,-1207.63 304.3,-1217.72 308.06,-1207.82 301.06,-1207.63"/>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge57" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M400.85,-141.54C389.81,-144.76 379.3,-150.15 372,-159 301.55,-244.42 303.02,-1080.19 303.85,-1228.54"/>
+<polygon fill="#000000" stroke="#000000" points="300.35,-1228.73 303.91,-1238.71 307.35,-1228.69 300.35,-1228.73"/>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge70" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M400.99,-147.42C391.02,-150.34 380.92,-154.12 372,-159 335.85,-178.77 332.82,-192.55 304,-222"/>
+</g>
+<!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node53" class="node">
-<title>sourcefile~helio_kick.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-444 415.5,-444 415.5,-420 492.5,-420 492.5,-444"/>
-<text text-anchor="middle" x="454" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481,-696 427,-696 427,-672 481,-672 481,-696"/>
+<text text-anchor="middle" x="454" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge69" class="edge">
-<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.34,-432.61C399.63,-434.91 382.6,-440.47 372,-453 321.96,-512.15 307.04,-1086.56 304.44,-1207.66"/>
-<polygon fill="#000000" stroke="#000000" points="300.94,-1207.86 304.23,-1217.93 307.94,-1208 300.94,-1207.86"/>
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge58" class="edge">
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.83,-683.59C408.71,-684.8 385.51,-689.61 372,-705 302.12,-784.59 302.28,-1135.97 303.57,-1228.57"/>
+<polygon fill="#000000" stroke="#000000" points="300.08,-1228.83 303.74,-1238.77 307.08,-1228.71 300.08,-1228.83"/>
 </g>
-<!-- sourcefile~whm_kick.f90 -->
+<!-- sourcefile~symba_io.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node54" class="node">
-<title>sourcefile~whm_kick.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-2166 415.5,-2166 415.5,-2142 492.5,-2142 492.5,-2166"/>
-<text text-anchor="middle" x="454" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492,-108 416,-108 416,-84 492,-84 492,-108"/>
+<text text-anchor="middle" x="454" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge70" class="edge">
-<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.27,-2153.45C399.54,-2151.16 382.53,-2145.6 372,-2133 313.77,-2063.33 305.26,-1384.05 304.15,-1252.13"/>
-<polygon fill="#000000" stroke="#000000" points="307.65,-1251.99 304.07,-1242.02 300.65,-1252.05 307.65,-1251.99"/>
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge59" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.59,-96.41C399.74,-98.65 382.52,-104.21 372,-117 298.8,-205.97 302.57,-1077.26 303.79,-1228.64"/>
+<polygon fill="#000000" stroke="#000000" points="300.29,-1229.01 303.88,-1238.98 307.29,-1228.95 300.29,-1229.01"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge72" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.84,-99.74C401.13,-102.65 384.72,-107.82 372,-117 326.91,-149.53 342.89,-182.26 304,-222"/>
+</g>
+<!-- sourcefile~whm_kick.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node55" class="node">
-<title>sourcefile~util_minimize_bfgs.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="513,-2124 395,-2124 395,-2100 513,-2100 513,-2124"/>
-<text text-anchor="middle" x="454" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="492.5,-654 415.5,-654 415.5,-630 492.5,-630 492.5,-654"/>
+<text text-anchor="middle" x="454" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge71" class="edge">
-<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M394.74,-2106.3C386.03,-2103 377.98,-2098.12 372,-2091 316.52,-2024.86 305.83,-1380.92 304.24,-1252.29"/>
-<polygon fill="#000000" stroke="#000000" points="307.74,-1252.04 304.12,-1242.08 300.74,-1252.12 307.74,-1252.04"/>
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge60" class="edge">
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.08,-642.81C399.52,-645.17 382.68,-650.73 372,-663 334.08,-706.57 310.32,-1127.11 305.09,-1228.9"/>
+<polygon fill="#000000" stroke="#000000" points="301.59,-1228.8 304.58,-1238.97 308.58,-1229.16 301.59,-1228.8"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~whm_step.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node56" class="node">
-<title>sourcefile~io.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481,-2082 427,-2082 427,-2058 481,-2058 481,-2082"/>
-<text text-anchor="middle" x="454" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="493.5,-612 414.5,-612 414.5,-588 493.5,-588 493.5,-612"/>
+<text text-anchor="middle" x="454" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge72" class="edge">
-<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.64,-2070.58C408.43,-2069.45 385.2,-2064.67 372,-2049 319.25,-1986.37 306.42,-1377.38 304.34,-1252.36"/>
-<polygon fill="#000000" stroke="#000000" points="307.83,-1252.04 304.17,-1242.1 300.83,-1252.16 307.83,-1252.04"/>
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge61" class="edge">
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.2,-600.9C398.87,-603.33 382.44,-608.91 372,-621 331.42,-668 309.53,-1122.11 304.92,-1228.69"/>
+<polygon fill="#000000" stroke="#000000" points="301.42,-1228.78 304.49,-1238.92 308.41,-1229.08 301.42,-1228.78"/>
 </g>
-<!-- sourcefile~symba_setup.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node57" class="node">
-<title>sourcefile~symba_setup.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="501,-24 407,-24 407,0 501,0 501,-24"/>
-<text text-anchor="middle" x="454" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="486,-570 422,-570 422,-546 486,-546 486,-570"/>
+<text text-anchor="middle" x="454" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.76,-16.03C394.25,-19.09 381.55,-24.29 372,-33 306.05,-93.17 366.52,-158.27 304,-222"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302,-222C230.29,-295.1 191.1,-1066.55 184.5,-1207.84"/>
-<polygon fill="#000000" stroke="#000000" points="181,-1207.76 184.04,-1217.91 188,-1208.08 181,-1207.76"/>
-</g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge73" class="edge">
-<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M406.72,-13.99C393.6,-16.93 380.57,-22.55 372,-33 333.25,-80.25 308.37,-1048.3 304.52,-1207.83"/>
-<polygon fill="#000000" stroke="#000000" points="301.02,-1207.82 304.28,-1217.9 308.02,-1207.99 301.02,-1207.82"/>
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge62" class="edge">
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M421.98,-557.87C404.67,-559.55 384.2,-564.78 372,-579 328.68,-629.5 308.73,-1118.63 304.75,-1228.96"/>
+<polygon fill="#000000" stroke="#000000" points="301.26,-1228.84 304.4,-1238.96 308.25,-1229.09 301.26,-1228.84"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~util_resize.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node58" class="node">
-<title>sourcefile~symba_fragmentation.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="521,-276 387,-276 387,-252 521,-252 521,-276"/>
-<text text-anchor="middle" x="454" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="493.5,-528 414.5,-528 414.5,-504 493.5,-504 493.5,-528"/>
+<text text-anchor="middle" x="454" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge17" class="edge">
-<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M404.93,-251.93C394.07,-249.09 382.62,-246.02 372,-243 341.57,-234.36 326.15,-199.42 304,-222"/>
-</g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge74" class="edge">
-<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M386.77,-273.25C381.17,-276.24 376.09,-280.09 372,-285 311.08,-358.15 304.73,-1071.73 304.08,-1207.69"/>
-<polygon fill="#000000" stroke="#000000" points="300.58,-1207.74 304.03,-1217.76 307.58,-1207.77 300.58,-1207.74"/>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge63" class="edge">
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.13,-516.83C398.78,-519.25 382.37,-524.84 372,-537 326.02,-590.93 308.04,-1113.65 304.62,-1228.68"/>
+<polygon fill="#000000" stroke="#000000" points="301.12,-1228.69 304.33,-1238.79 308.12,-1228.89 301.12,-1228.69"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node59" class="node">
-<title>sourcefile~util_version.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="496.5,-2040 411.5,-2040 411.5,-2016 496.5,-2016 496.5,-2040"/>
-<text text-anchor="middle" x="454" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="488,-486 420,-486 420,-462 488,-462 488,-486"/>
+<text text-anchor="middle" x="454" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge75" class="edge">
-<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M411.14,-2026.7C396.66,-2024.05 381.66,-2018.42 372,-2007 321.96,-1947.85 307.04,-1373.44 304.44,-1252.34"/>
-<polygon fill="#000000" stroke="#000000" points="307.94,-1252 304.23,-1242.07 300.94,-1252.14 307.94,-1252"/>
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge64" class="edge">
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.9,-474.03C403.02,-475.91 383.65,-481.26 372,-495 323.28,-552.44 307.35,-1110.25 304.5,-1228.89"/>
+<polygon fill="#000000" stroke="#000000" points="300.99,-1228.88 304.26,-1238.96 307.99,-1229.05 300.99,-1228.88"/>
 </g>
-<!-- sourcefile~setup.f90 -->
+<!-- sourcefile~symba_encounter_check.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node60" class="node">
-<title>sourcefile~setup.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="482.5,-1998 425.5,-1998 425.5,-1974 482.5,-1974 482.5,-1998"/>
-<text text-anchor="middle" x="454" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="529,-66 379,-66 379,-42 529,-42 529,-66"/>
+<text text-anchor="middle" x="454" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge65" class="edge">
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M381.9,-66.08C378.21,-68.57 374.86,-71.52 372,-75 333.94,-121.35 308.53,-1070.51 304.55,-1228.73"/>
+<polygon fill="#000000" stroke="#000000" points="301.05,-1228.65 304.3,-1238.73 308.05,-1228.82 301.05,-1228.65"/>
+</g>
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge76" class="edge">
-<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M425.12,-1986.43C407.18,-1985.11 384.89,-1980.16 372,-1965 324.7,-1909.38 307.72,-1370.24 304.57,-1252.6"/>
-<polygon fill="#000000" stroke="#000000" points="308.06,-1252.18 304.3,-1242.28 301.06,-1252.37 308.06,-1252.18"/>
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302,-222C228.91,-296.69 190.85,-1084.16 184.47,-1228.38"/>
+<polygon fill="#000000" stroke="#000000" points="180.96,-1228.51 184.02,-1238.66 187.95,-1228.82 180.96,-1228.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M386.04,-66.05C381,-68.51 376.24,-71.46 372,-75 316.74,-121.13 354.35,-170.55 304,-222"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node61" class="node">
-<title>sourcefile~util_spill.f90</title>
-<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="488,-1956 420,-1956 420,-1932 488,-1932 488,-1956"/>
-<text text-anchor="middle" x="454" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="481,-444 427,-444 427,-420 481,-420 481,-444"/>
+<text text-anchor="middle" x="454" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge77" class="edge">
-<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.94,-1943.93C403.08,-1942.05 383.71,-1936.69 372,-1923 327.37,-1870.81 308.4,-1365.42 304.69,-1252.36"/>
-<polygon fill="#000000" stroke="#000000" points="308.18,-1252.02 304.37,-1242.14 301.19,-1252.24 308.18,-1252.02"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge66" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M426.65,-431.43C408.44,-432.57 385.21,-437.35 372,-453 320.58,-513.92 306.72,-1106.14 304.39,-1228.82"/>
+<polygon fill="#000000" stroke="#000000" points="300.88,-1228.85 304.2,-1238.91 307.88,-1228.97 300.88,-1228.85"/>
+</g>
+<!-- sourcefile~util_sort.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_node62" class="node">
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~rmvs_classes.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="488,-402 420,-402 420,-378 488,-378 488,-402"/>
+<text text-anchor="middle" x="454" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~rmvs_classes.f90~~AfferentGraph_edge67" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M419.85,-389.99C402.96,-391.85 383.59,-397.21 372,-411 317.86,-475.42 306.11,-1102.43 304.29,-1228.85"/>
+<polygon fill="#000000" stroke="#000000" points="300.79,-1228.85 304.15,-1238.9 307.78,-1228.95 300.79,-1228.85"/>
 </g>
 </g>
 </svg>
@@ -1603,7 +1621,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-163"></a>         <span class="k">implicit none</span>
 <a name="ln-164"></a><span class="k">         class</span><span class="p">(</span><span class="n">rmvs_pl</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! RMVS massive body object</span>
 <a name="ln-165"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
-<a name="ln-166"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-166"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
 <a name="ln-167"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_append_pl</span>
 <a name="ln-168"></a>
 <a name="ln-169"></a>      <span class="k">module subroutine </span><span class="n">rmvs_util_append_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
@@ -1611,7 +1629,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-171"></a>         <span class="k">implicit none</span>
 <a name="ln-172"></a><span class="k">         class</span><span class="p">(</span><span class="n">rmvs_tp</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! RMVS test particle object</span>
 <a name="ln-173"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
-<a name="ln-174"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-174"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
 <a name="ln-175"></a>      <span class="k">end subroutine </span><span class="n">rmvs_util_append_tp</span>
 <a name="ln-176"></a>
 <a name="ln-177"></a>      <span class="k">module subroutine </span><span class="n">rmvs_util_fill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
diff --git a/docs/sourcefile/rmvs_discard.f90.html b/docs/sourcefile/rmvs_discard.f90.html
index a59da8752..17d737b1d 100644
--- a/docs/sourcefile/rmvs_discard.f90.html
+++ b/docs/sourcefile/rmvs_discard.f90.html
@@ -226,247 +226,246 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~rmvs_discard.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilermvs_discardf90EfferentGraph" width="641pt" height="194pt"
- viewBox="0.00 0.00 641.00 193.65" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 272.43)">
+<svg id="sourcefilermvs_discardf90EfferentGraph" width="641pt" height="180pt"
+ viewBox="0.00 0.00 641.00 179.93" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 252.84)">
 <title>sourcefile~~rmvs_discard.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-272.43 911,-272.43 911,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-252.84 911,-252.84 911,4 -4,4"/>
 <!-- sourcefile~rmvs_discard.f90 -->
 <g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~rmvs_discard.f90</title>
-<polygon fill="none" stroke="black" points="907,-178.43 813,-178.43 813,-154.43 907,-154.43 907,-178.43"/>
-<text text-anchor="middle" x="860" y="-164.03" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_discard.f90</text>
+<polygon fill="none" stroke="black" points="907,-44 813,-44 813,-20 907,-20 907,-44"/>
+<text text-anchor="middle" x="860" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_discard.f90</text>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-189.43 441,-189.43 441,-165.43 536,-165.43 536,-189.43"/>
-<text text-anchor="middle" x="488.5" y="-175.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-84 711,-84 711,-60 777,-60 777,-84"/>
+<text text-anchor="middle" x="744" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.94,-171.23C775.76,-174.85 722.08,-179.51 675,-181.43 629.26,-183.29 617.76,-182.54 572,-181.43 563.65,-181.23 554.84,-180.91 546.2,-180.54"/>
-<polygon fill="#000000" stroke="#000000" points="546.32,-177.04 536.17,-180.09 546,-184.04 546.32,-177.04"/>
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M824.8,-44C812.89,-48.18 799.4,-52.91 786.95,-57.28"/>
+<polygon fill="#000000" stroke="#000000" points="785.5,-54.08 777.23,-60.69 787.82,-60.68 785.5,-54.08"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-158.43 711,-158.43 711,-134.43 777,-134.43 777,-158.43"/>
-<text text-anchor="middle" x="744" y="-144.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-24 441,-24 441,0 536,0 536,-24"/>
+<text text-anchor="middle" x="488.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.96,-158.35C804.44,-156.86 795.57,-155.3 787.17,-153.83"/>
-<polygon fill="#000000" stroke="#000000" points="787.66,-150.36 777.21,-152.08 786.45,-157.26 787.66,-150.36"/>
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.95,-29.51C745.46,-25.85 619.79,-19.05 546.54,-15.09"/>
+<polygon fill="#000000" stroke="#000000" points="546.31,-11.57 536.13,-14.52 545.93,-18.56 546.31,-11.57"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-188.43 0,-188.43 0,-164.43 106,-164.43 106,-188.43"/>
-<text text-anchor="middle" x="53" y="-174.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C590.82,-47.02 556.15,-36.42 530.16,-27.38"/>
+<polygon fill="#000000" stroke="#000000" points="531.24,-24.05 520.65,-24.01 528.9,-30.65 531.24,-24.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.84,-66.37C687.03,-62.25 653.77,-56.6 624.5,-52"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-201 142,-201 142,-177 260,-177 260,-201"/>
+<text text-anchor="middle" x="201" y="-186.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.79,-174.4C413.36,-173.38 378.08,-173.36 347,-177.43"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-247C304.11,-249.06 255.91,-224.33 227.4,-206.51"/>
+<polygon fill="#000000" stroke="#000000" points="229.17,-203.49 218.87,-201.01 225.38,-209.37 229.17,-203.49"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C424.5,-206.62 414.44,-244.15 351.5,-247"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-149.43 299,-149.43 299,-125.43 393,-125.43 393,-149.43"/>
-<text text-anchor="middle" x="346" y="-135.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-143 441.5,-143 441.5,-119 535.5,-119 535.5,-143"/>
+<text text-anchor="middle" x="488.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-165.43C430.89,-161.31 414.54,-156.66 399.37,-152.34"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-148.93 389.61,-149.56 398.27,-155.67 400.19,-148.93"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C597.58,-170.52 569.9,-172.78 546.28,-174.37"/>
-<polygon fill="#000000" stroke="#000000" points="545.83,-170.89 536.08,-175.03 546.29,-177.88 545.83,-170.89"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M737.88,-84.24C724.56,-114.04 685.57,-189.18 624.5,-207"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-207C576.69,-220.36 529.76,-177.66 505.78,-150.91"/>
+<polygon fill="#000000" stroke="#000000" points="508.3,-148.47 499.1,-143.21 503.01,-153.06 508.3,-148.47"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-130.43 572,-130.43 572,-106.43 675,-106.43 675,-130.43"/>
-<text text-anchor="middle" x="623.5" y="-116.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-219 296,-219 296,-195 405,-195 405,-219"/>
+<text text-anchor="middle" x="350.5" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-138.85C702.96,-136.97 694.16,-134.89 685.31,-132.8"/>
-<polygon fill="#000000" stroke="#000000" points="685.87,-129.34 675.33,-130.44 684.26,-136.15 685.87,-129.34"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C463.95,-207 438.11,-207 415.34,-207"/>
+<polygon fill="#000000" stroke="#000000" points="415.11,-203.5 405.11,-207 415.11,-210.5 415.11,-203.5"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-73.43 143,-73.43 143,-49.43 250,-49.43 250,-73.43"/>
-<text text-anchor="middle" x="196.5" y="-59.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-103 147.5,-103 147.5,-79 254.5,-79 254.5,-103"/>
+<text text-anchor="middle" x="201" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-21.43C307.79,-24.17 266.96,-35.97 237.71,-46.05"/>
-<polygon fill="#000000" stroke="#000000" points="236.52,-42.75 228.26,-49.38 238.85,-49.35 236.52,-42.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C465.07,-207 315.96,-153.24 296,-143 278.44,-133.99 277.09,-126.87 260,-117 254.09,-113.59 247.66,-110.31 241.29,-107.3"/>
+<polygon fill="#000000" stroke="#000000" points="242.64,-104.07 232.09,-103.09 239.73,-110.43 242.64,-104.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-207C565.75,-223.55 548.61,-207.36 489.5,-207"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M736.88,-134.1C722.17,-106.22 681.8,-39.2 624.5,-19.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-21.43C171.79,-30.05 161.8,-24.78 142,-40.43 102.73,-71.47 75.52,-125.1 62.59,-154.9"/>
-<polygon fill="#000000" stroke="#000000" points="59.26,-153.79 58.62,-164.37 65.71,-156.5 59.26,-153.79"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-21.43C279.62,-26.24 259.11,0.97 197.5,-21.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-19.43C506.75,20.51 469.12,-12.44 347,-21.43"/>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-63 303.5,-63 303.5,-39 397.5,-39 397.5,-63"/>
+<text text-anchor="middle" x="350.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-71.43 441.5,-71.43 441.5,-47.43 535.5,-47.43 535.5,-71.43"/>
-<text text-anchor="middle" x="488.5" y="-57.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C549.14,-40.48 463.23,-42.78 408.13,-46.25"/>
+<polygon fill="#000000" stroke="#000000" points="407.62,-42.77 397.87,-46.93 408.08,-49.76 407.62,-42.77"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-104 572,-104 572,-80 675,-80 675,-104"/>
+<text text-anchor="middle" x="623.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-19.43C604.56,-13.24 558.37,-29.8 525.47,-43.46"/>
-<polygon fill="#000000" stroke="#000000" points="524.01,-40.28 516.16,-47.4 526.73,-46.73 524.01,-40.28"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-77.41C702.96,-78.76 694.16,-80.24 685.31,-81.74"/>
+<polygon fill="#000000" stroke="#000000" points="684.61,-78.3 675.33,-83.42 685.78,-85.21 684.61,-78.3"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-228.43 142,-228.43 142,-204.43 251,-204.43 251,-228.43"/>
-<text text-anchor="middle" x="196.5" y="-214.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-143 0,-143 0,-119 106,-119 106,-143"/>
+<text text-anchor="middle" x="53" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-217.43C411.4,-236.34 320.57,-231.88 261.09,-225.47"/>
-<polygon fill="#000000" stroke="#000000" points="261.42,-221.99 251.09,-224.35 260.63,-228.94 261.42,-221.99"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C559.98,-176.34 550.43,-200.84 489.5,-217.43"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-247C255.92,-251.24 226.19,-251.08 142,-210 113.04,-195.87 86.51,-169.37 70.32,-150.98"/>
+<polygon fill="#000000" stroke="#000000" points="72.8,-148.49 63.63,-143.17 67.48,-153.04 72.8,-148.49"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C584.04,-172.19 574.51,-160.81 536,-156.43 491.52,-151.37 441.08,-146.33 403.49,-142.72"/>
-<polygon fill="#000000" stroke="#000000" points="403.54,-139.21 393.25,-141.74 402.87,-146.17 403.54,-139.21"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.91,-152.72C687.12,-157.24 653.87,-163.24 624.5,-167.43"/>
-</g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~rmvs_discard.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-268.43 287,-268.43 287,-244.43 405,-244.43 405,-268.43"/>
-<text text-anchor="middle" x="346" y="-254.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
-</a>
-</g>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.59,-24.02C432.27,-27.84 417.38,-32.11 403.45,-36.1"/>
+<polygon fill="#000000" stroke="#000000" points="402.16,-32.83 393.51,-38.95 404.09,-39.56 402.16,-32.83"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-217.43C457.66,-224.85 424.5,-234.01 397.89,-241.59"/>
-<polygon fill="#000000" stroke="#000000" points="396.69,-238.29 388.04,-244.41 398.61,-245.02 396.69,-238.29"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-51C173.7,-57.65 166.29,-57.92 142,-70 118.47,-81.7 94.09,-99.08 76.98,-112.3"/>
+<polygon fill="#000000" stroke="#000000" points="74.43,-109.84 68.74,-118.78 78.76,-115.35 74.43,-109.84"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.86,-14.73C401.96,-17.41 345.15,-22.23 296,-30 253.72,-36.68 243.5,-40.5 202,-51"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.26,-130.51C575.27,-139.38 547.9,-151.52 526.01,-161.23"/>
-<polygon fill="#000000" stroke="#000000" points="524.42,-158.11 516.7,-165.36 527.26,-164.51 524.42,-158.11"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.17,-106.37C547.38,-101.68 516.97,-97.77 489.5,-99.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-99.43C406.65,-104.32 313.95,-88.36 255.57,-75.64"/>
-<polygon fill="#000000" stroke="#000000" points="256.31,-72.22 245.79,-73.47 254.79,-79.05 256.31,-72.22"/>
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.75,-176.98C147.73,-168.23 117.69,-156.3 93.73,-146.78"/>
+<polygon fill="#000000" stroke="#000000" points="94.8,-143.44 84.21,-143 92.21,-149.95 94.8,-143.44"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-177.43C280,-185.94 262.93,-172.29 197.5,-176.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-99.43C442.48,-101.63 445.22,-138.07 405,-158.43 380.8,-170.68 373.9,-173.91 347,-177.43"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.5,-131.52C415.13,-131.52 381.42,-131.01 351.5,-129"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-129C313.27,-126.56 273.47,-115.81 244.36,-106.36"/>
+<polygon fill="#000000" stroke="#000000" points="245.12,-102.92 234.53,-103.09 242.91,-109.57 245.12,-102.92"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.26,-106.35C575.27,-97.48 547.9,-85.34 526.01,-75.63"/>
-<polygon fill="#000000" stroke="#000000" points="527.26,-72.35 516.7,-71.5 524.42,-78.75 527.26,-72.35"/>
-</g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.62,-73.52C155.95,-93.57 106.4,-133.84 77.13,-157.63"/>
-<polygon fill="#000000" stroke="#000000" points="74.65,-155.13 69.1,-164.16 79.07,-160.57 74.65,-155.13"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-59.43C317.24,-57.76 286.49,-57.87 260.29,-58.55"/>
-<polygon fill="#000000" stroke="#000000" points="260,-55.05 250.11,-58.84 260.21,-62.05 260,-55.05"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.52,-118.97C454.11,-107.57 428.38,-90.26 405,-77 399.34,-73.79 393.23,-70.59 387.23,-67.58"/>
+<polygon fill="#000000" stroke="#000000" points="388.49,-64.3 377.97,-63.04 385.41,-70.58 388.49,-64.3"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge16" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.26,-60.82C413.84,-61.3 378.41,-61.31 347,-59.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-59.43C277.43,-55.38 261.12,1.7 197.5,-21.43"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.85,-71.45C442.31,-84.52 404.46,-105.53 377.82,-120.32"/>
-<polygon fill="#000000" stroke="#000000" points="375.95,-117.36 368.9,-125.27 379.34,-123.48 375.95,-117.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-131C172.68,-127.67 142.27,-127.16 116.3,-127.69"/>
+<polygon fill="#000000" stroke="#000000" points="116.12,-124.19 106.22,-127.95 116.3,-131.19 116.12,-124.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-129C284.09,-124.6 267.08,-138.93 202,-131"/>
 </g>
 <!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-204.43C138.49,-200.31 122.02,-195.66 106.74,-191.34"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-187.91 96.91,-188.56 105.58,-194.65 107.49,-187.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.1,-194.89C315.18,-190.57 305.11,-185.64 296,-181 253.82,-159.54 248.97,-136.73 202,-131"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge18" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-103C140.96,-107.17 123.7,-111.9 107.75,-116.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-112.92 98.03,-118.94 108.6,-119.67 106.75,-112.92"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge23" class="edge">
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge19" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.74,-125.36C307.21,-121.13 296.57,-116.23 287,-111.43 266.6,-101.19 244.18,-88.66 226.88,-78.7"/>
-<polygon fill="#000000" stroke="#000000" points="228.25,-75.45 217.84,-73.47 224.74,-81.51 228.25,-75.45"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-63C289.86,-67.17 272.41,-71.9 256.31,-76.27"/>
+<polygon fill="#000000" stroke="#000000" points="255.21,-72.94 246.48,-78.94 257.05,-79.7 255.21,-72.94"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge20" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-176.43C169.65,-178.07 141.09,-178.35 116.44,-178.13"/>
-<polygon fill="#000000" stroke="#000000" points="116.17,-174.62 106.13,-178 116.09,-181.62 116.17,-174.62"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.94,-149.44C284.49,-159.91 238.74,-173.82 197.5,-176.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.27,-45.24C273.83,-42.98 235.14,-42.62 202,-51"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-79.94C589.52,-75.71 580.27,-70.82 572,-66 552.53,-54.66 531.27,-40.7 515.21,-29.82"/>
+<polygon fill="#000000" stroke="#000000" points="517.1,-26.87 506.87,-24.13 513.16,-32.66 517.1,-26.87"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M581.51,-104.02C568.49,-107.84 553.93,-112.11 540.31,-116.1"/>
+<polygon fill="#000000" stroke="#000000" points="539.19,-112.78 530.58,-118.95 541.16,-119.5 539.19,-112.78"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-91C321.76,-89.15 291.01,-88.87 264.8,-89.16"/>
+<polygon fill="#000000" stroke="#000000" points="264.57,-85.66 254.62,-89.31 264.67,-92.66 264.57,-85.66"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_discard.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.85,-258.72C245.31,-258.53 188.72,-254.47 142,-237.43 116.34,-228.07 91.14,-209.36 74.33,-195.11"/>
-<polygon fill="#000000" stroke="#000000" points="76.62,-192.47 66.79,-188.54 72.03,-197.75 76.62,-192.47"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-91C281.73,-86.49 268.07,-35.22 202,-51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.99,-93.7C517.51,-95.1 428.26,-96.11 351.5,-91"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/rmvs_encounter_check.f90.html b/docs/sourcefile/rmvs_encounter_check.f90.html
index 50d8198a1..c3c430dab 100644
--- a/docs/sourcefile/rmvs_encounter_check.f90.html
+++ b/docs/sourcefile/rmvs_encounter_check.f90.html
@@ -226,247 +226,246 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~rmvs_encounter_check.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilermvs_encounter_checkf90EfferentGraph" width="641pt" height="184pt"
- viewBox="0.00 0.00 641.00 184.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph" class="graph" transform="scale(0.67 0.67) rotate(0) translate(4 272.43)">
+<svg id="sourcefilermvs_encounter_checkf90EfferentGraph" width="641pt" height="171pt"
+ viewBox="0.00 0.00 641.00 170.96" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph" class="graph" transform="scale(0.67 0.67) rotate(0) translate(4 252.84)">
 <title>sourcefile~~rmvs_encounter_check.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-272.43 959,-272.43 959,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-252.84 959,-252.84 959,4 -4,4"/>
 <!-- sourcefile~rmvs_encounter_check.f90 -->
 <g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~rmvs_encounter_check.f90</title>
-<polygon fill="none" stroke="black" points="955,-178.43 813,-178.43 813,-154.43 955,-154.43 955,-178.43"/>
-<text text-anchor="middle" x="884" y="-164.03" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_encounter_check.f90</text>
+<polygon fill="none" stroke="black" points="955,-44 813,-44 813,-20 955,-20 955,-44"/>
+<text text-anchor="middle" x="884" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_encounter_check.f90</text>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-189.43 441,-189.43 441,-165.43 536,-165.43 536,-189.43"/>
-<text text-anchor="middle" x="488.5" y="-175.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-84 711,-84 711,-60 777,-60 777,-84"/>
+<text text-anchor="middle" x="744" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.78,-172.76C772.5,-176.07 720.95,-179.78 675,-181.43 629.25,-183.08 617.76,-182.54 572,-181.43 563.65,-181.23 554.84,-180.91 546.2,-180.54"/>
-<polygon fill="#000000" stroke="#000000" points="546.32,-177.04 536.17,-180.09 546,-184.04 546.32,-177.04"/>
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M841.6,-44C824.34,-49 804.33,-54.8 787.01,-59.82"/>
+<polygon fill="#000000" stroke="#000000" points="785.79,-56.53 777.16,-62.68 787.74,-63.25 785.79,-56.53"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-158.43 711,-158.43 711,-134.43 777,-134.43 777,-158.43"/>
-<text text-anchor="middle" x="744" y="-144.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-24 441,-24 441,0 536,0 536,-24"/>
+<text text-anchor="middle" x="488.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.79,-156.25C803.99,-154.98 795.21,-153.71 787.03,-152.52"/>
-<polygon fill="#000000" stroke="#000000" points="787.44,-149.04 777.04,-151.07 786.44,-155.97 787.44,-149.04"/>
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.65,-28.42C736.48,-24.55 616.48,-18.45 546.14,-14.88"/>
+<polygon fill="#000000" stroke="#000000" points="546.3,-11.38 536.13,-14.37 545.94,-18.37 546.3,-11.38"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-188.43 0,-188.43 0,-164.43 106,-164.43 106,-188.43"/>
-<text text-anchor="middle" x="53" y="-174.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C590.82,-47.02 556.15,-36.42 530.16,-27.38"/>
+<polygon fill="#000000" stroke="#000000" points="531.24,-24.05 520.65,-24.01 528.9,-30.65 531.24,-24.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.84,-66.37C687.03,-62.25 653.77,-56.6 624.5,-52"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-201 142,-201 142,-177 260,-177 260,-201"/>
+<text text-anchor="middle" x="201" y="-186.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.79,-174.4C413.36,-173.38 378.08,-173.36 347,-177.43"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-247C304.11,-249.06 255.91,-224.33 227.4,-206.51"/>
+<polygon fill="#000000" stroke="#000000" points="229.17,-203.49 218.87,-201.01 225.38,-209.37 229.17,-203.49"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C424.5,-206.62 414.44,-244.15 351.5,-247"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-149.43 299,-149.43 299,-125.43 393,-125.43 393,-149.43"/>
-<text text-anchor="middle" x="346" y="-135.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-143 441.5,-143 441.5,-119 535.5,-119 535.5,-143"/>
+<text text-anchor="middle" x="488.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-165.43C430.89,-161.31 414.54,-156.66 399.37,-152.34"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-148.93 389.61,-149.56 398.27,-155.67 400.19,-148.93"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C597.58,-170.52 569.9,-172.78 546.28,-174.37"/>
-<polygon fill="#000000" stroke="#000000" points="545.83,-170.89 536.08,-175.03 546.29,-177.88 545.83,-170.89"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M737.88,-84.24C724.56,-114.04 685.57,-189.18 624.5,-207"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-207C576.69,-220.36 529.76,-177.66 505.78,-150.91"/>
+<polygon fill="#000000" stroke="#000000" points="508.3,-148.47 499.1,-143.21 503.01,-153.06 508.3,-148.47"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-130.43 572,-130.43 572,-106.43 675,-106.43 675,-130.43"/>
-<text text-anchor="middle" x="623.5" y="-116.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-219 296,-219 296,-195 405,-195 405,-219"/>
+<text text-anchor="middle" x="350.5" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-138.85C702.96,-136.97 694.16,-134.89 685.31,-132.8"/>
-<polygon fill="#000000" stroke="#000000" points="685.87,-129.34 675.33,-130.44 684.26,-136.15 685.87,-129.34"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C463.95,-207 438.11,-207 415.34,-207"/>
+<polygon fill="#000000" stroke="#000000" points="415.11,-203.5 405.11,-207 415.11,-210.5 415.11,-203.5"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-73.43 143,-73.43 143,-49.43 250,-49.43 250,-73.43"/>
-<text text-anchor="middle" x="196.5" y="-59.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-103 147.5,-103 147.5,-79 254.5,-79 254.5,-103"/>
+<text text-anchor="middle" x="201" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-21.43C307.79,-24.17 266.96,-35.97 237.71,-46.05"/>
-<polygon fill="#000000" stroke="#000000" points="236.52,-42.75 228.26,-49.38 238.85,-49.35 236.52,-42.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C465.07,-207 315.96,-153.24 296,-143 278.44,-133.99 277.09,-126.87 260,-117 254.09,-113.59 247.66,-110.31 241.29,-107.3"/>
+<polygon fill="#000000" stroke="#000000" points="242.64,-104.07 232.09,-103.09 239.73,-110.43 242.64,-104.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-207C565.75,-223.55 548.61,-207.36 489.5,-207"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M736.88,-134.1C722.17,-106.22 681.8,-39.2 624.5,-19.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-21.43C171.79,-30.05 161.8,-24.78 142,-40.43 102.73,-71.47 75.52,-125.1 62.59,-154.9"/>
-<polygon fill="#000000" stroke="#000000" points="59.26,-153.79 58.62,-164.37 65.71,-156.5 59.26,-153.79"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-21.43C279.62,-26.24 259.11,0.97 197.5,-21.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-19.43C506.75,20.51 469.12,-12.44 347,-21.43"/>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-63 303.5,-63 303.5,-39 397.5,-39 397.5,-63"/>
+<text text-anchor="middle" x="350.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-71.43 441.5,-71.43 441.5,-47.43 535.5,-47.43 535.5,-71.43"/>
-<text text-anchor="middle" x="488.5" y="-57.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C549.14,-40.48 463.23,-42.78 408.13,-46.25"/>
+<polygon fill="#000000" stroke="#000000" points="407.62,-42.77 397.87,-46.93 408.08,-49.76 407.62,-42.77"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-104 572,-104 572,-80 675,-80 675,-104"/>
+<text text-anchor="middle" x="623.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-19.43C604.56,-13.24 558.37,-29.8 525.47,-43.46"/>
-<polygon fill="#000000" stroke="#000000" points="524.01,-40.28 516.16,-47.4 526.73,-46.73 524.01,-40.28"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-77.41C702.96,-78.76 694.16,-80.24 685.31,-81.74"/>
+<polygon fill="#000000" stroke="#000000" points="684.61,-78.3 675.33,-83.42 685.78,-85.21 684.61,-78.3"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-228.43 142,-228.43 142,-204.43 251,-204.43 251,-228.43"/>
-<text text-anchor="middle" x="196.5" y="-214.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-143 0,-143 0,-119 106,-119 106,-143"/>
+<text text-anchor="middle" x="53" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-217.43C411.4,-236.34 320.57,-231.88 261.09,-225.47"/>
-<polygon fill="#000000" stroke="#000000" points="261.42,-221.99 251.09,-224.35 260.63,-228.94 261.42,-221.99"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C559.98,-176.34 550.43,-200.84 489.5,-217.43"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-247C255.92,-251.24 226.19,-251.08 142,-210 113.04,-195.87 86.51,-169.37 70.32,-150.98"/>
+<polygon fill="#000000" stroke="#000000" points="72.8,-148.49 63.63,-143.17 67.48,-153.04 72.8,-148.49"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C584.04,-172.19 574.51,-160.81 536,-156.43 491.52,-151.37 441.08,-146.33 403.49,-142.72"/>
-<polygon fill="#000000" stroke="#000000" points="403.54,-139.21 393.25,-141.74 402.87,-146.17 403.54,-139.21"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.91,-152.72C687.12,-157.24 653.87,-163.24 624.5,-167.43"/>
-</g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-268.43 287,-268.43 287,-244.43 405,-244.43 405,-268.43"/>
-<text text-anchor="middle" x="346" y="-254.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
-</a>
-</g>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.59,-24.02C432.27,-27.84 417.38,-32.11 403.45,-36.1"/>
+<polygon fill="#000000" stroke="#000000" points="402.16,-32.83 393.51,-38.95 404.09,-39.56 402.16,-32.83"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-217.43C457.66,-224.85 424.5,-234.01 397.89,-241.59"/>
-<polygon fill="#000000" stroke="#000000" points="396.69,-238.29 388.04,-244.41 398.61,-245.02 396.69,-238.29"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-51C173.7,-57.65 166.29,-57.92 142,-70 118.47,-81.7 94.09,-99.08 76.98,-112.3"/>
+<polygon fill="#000000" stroke="#000000" points="74.43,-109.84 68.74,-118.78 78.76,-115.35 74.43,-109.84"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.86,-14.73C401.96,-17.41 345.15,-22.23 296,-30 253.72,-36.68 243.5,-40.5 202,-51"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.26,-130.51C575.27,-139.38 547.9,-151.52 526.01,-161.23"/>
-<polygon fill="#000000" stroke="#000000" points="524.42,-158.11 516.7,-165.36 527.26,-164.51 524.42,-158.11"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.17,-106.37C547.38,-101.68 516.97,-97.77 489.5,-99.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-99.43C406.65,-104.32 313.95,-88.36 255.57,-75.64"/>
-<polygon fill="#000000" stroke="#000000" points="256.31,-72.22 245.79,-73.47 254.79,-79.05 256.31,-72.22"/>
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.75,-176.98C147.73,-168.23 117.69,-156.3 93.73,-146.78"/>
+<polygon fill="#000000" stroke="#000000" points="94.8,-143.44 84.21,-143 92.21,-149.95 94.8,-143.44"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-177.43C280,-185.94 262.93,-172.29 197.5,-176.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-99.43C442.48,-101.63 445.22,-138.07 405,-158.43 380.8,-170.68 373.9,-173.91 347,-177.43"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.5,-131.52C415.13,-131.52 381.42,-131.01 351.5,-129"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-129C313.27,-126.56 273.47,-115.81 244.36,-106.36"/>
+<polygon fill="#000000" stroke="#000000" points="245.12,-102.92 234.53,-103.09 242.91,-109.57 245.12,-102.92"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.26,-106.35C575.27,-97.48 547.9,-85.34 526.01,-75.63"/>
-<polygon fill="#000000" stroke="#000000" points="527.26,-72.35 516.7,-71.5 524.42,-78.75 527.26,-72.35"/>
-</g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.62,-73.52C155.95,-93.57 106.4,-133.84 77.13,-157.63"/>
-<polygon fill="#000000" stroke="#000000" points="74.65,-155.13 69.1,-164.16 79.07,-160.57 74.65,-155.13"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-59.43C317.24,-57.76 286.49,-57.87 260.29,-58.55"/>
-<polygon fill="#000000" stroke="#000000" points="260,-55.05 250.11,-58.84 260.21,-62.05 260,-55.05"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.52,-118.97C454.11,-107.57 428.38,-90.26 405,-77 399.34,-73.79 393.23,-70.59 387.23,-67.58"/>
+<polygon fill="#000000" stroke="#000000" points="388.49,-64.3 377.97,-63.04 385.41,-70.58 388.49,-64.3"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge16" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.26,-60.82C413.84,-61.3 378.41,-61.31 347,-59.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-59.43C277.43,-55.38 261.12,1.7 197.5,-21.43"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.85,-71.45C442.31,-84.52 404.46,-105.53 377.82,-120.32"/>
-<polygon fill="#000000" stroke="#000000" points="375.95,-117.36 368.9,-125.27 379.34,-123.48 375.95,-117.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-131C172.68,-127.67 142.27,-127.16 116.3,-127.69"/>
+<polygon fill="#000000" stroke="#000000" points="116.12,-124.19 106.22,-127.95 116.3,-131.19 116.12,-124.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-129C284.09,-124.6 267.08,-138.93 202,-131"/>
 </g>
 <!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-204.43C138.49,-200.31 122.02,-195.66 106.74,-191.34"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-187.91 96.91,-188.56 105.58,-194.65 107.49,-187.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.1,-194.89C315.18,-190.57 305.11,-185.64 296,-181 253.82,-159.54 248.97,-136.73 202,-131"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge18" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-103C140.96,-107.17 123.7,-111.9 107.75,-116.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-112.92 98.03,-118.94 108.6,-119.67 106.75,-112.92"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge23" class="edge">
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge19" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.74,-125.36C307.21,-121.13 296.57,-116.23 287,-111.43 266.6,-101.19 244.18,-88.66 226.88,-78.7"/>
-<polygon fill="#000000" stroke="#000000" points="228.25,-75.45 217.84,-73.47 224.74,-81.51 228.25,-75.45"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-63C289.86,-67.17 272.41,-71.9 256.31,-76.27"/>
+<polygon fill="#000000" stroke="#000000" points="255.21,-72.94 246.48,-78.94 257.05,-79.7 255.21,-72.94"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge20" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-176.43C169.65,-178.07 141.09,-178.35 116.44,-178.13"/>
-<polygon fill="#000000" stroke="#000000" points="116.17,-174.62 106.13,-178 116.09,-181.62 116.17,-174.62"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.94,-149.44C284.49,-159.91 238.74,-173.82 197.5,-176.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.27,-45.24C273.83,-42.98 235.14,-42.62 202,-51"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-79.94C589.52,-75.71 580.27,-70.82 572,-66 552.53,-54.66 531.27,-40.7 515.21,-29.82"/>
+<polygon fill="#000000" stroke="#000000" points="517.1,-26.87 506.87,-24.13 513.16,-32.66 517.1,-26.87"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M581.51,-104.02C568.49,-107.84 553.93,-112.11 540.31,-116.1"/>
+<polygon fill="#000000" stroke="#000000" points="539.19,-112.78 530.58,-118.95 541.16,-119.5 539.19,-112.78"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-91C321.76,-89.15 291.01,-88.87 264.8,-89.16"/>
+<polygon fill="#000000" stroke="#000000" points="264.57,-85.66 254.62,-89.31 264.67,-92.66 264.57,-85.66"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_encounter_check.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.85,-258.72C245.31,-258.53 188.72,-254.47 142,-237.43 116.34,-228.07 91.14,-209.36 74.33,-195.11"/>
-<polygon fill="#000000" stroke="#000000" points="76.62,-192.47 66.79,-188.54 72.03,-197.75 76.62,-192.47"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-91C281.73,-86.49 268.07,-35.22 202,-51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.99,-93.7C517.51,-95.1 428.26,-96.11 351.5,-91"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/rmvs_kick.f90.html b/docs/sourcefile/rmvs_kick.f90.html
index c2bd0d6f5..839859e3e 100644
--- a/docs/sourcefile/rmvs_kick.f90.html
+++ b/docs/sourcefile/rmvs_kick.f90.html
@@ -226,247 +226,246 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~rmvs_kick.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilermvs_kickf90EfferentGraph" width="641pt" height="197pt"
- viewBox="0.00 0.00 641.00 197.10" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 272.43)">
+<svg id="sourcefilermvs_kickf90EfferentGraph" width="641pt" height="183pt"
+ viewBox="0.00 0.00 641.00 183.13" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 252.84)">
 <title>sourcefile~~rmvs_kick.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-272.43 895,-272.43 895,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-252.84 895,-252.84 895,4 -4,4"/>
 <!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~rmvs_kick.f90</title>
-<polygon fill="none" stroke="black" points="891,-178.43 813,-178.43 813,-154.43 891,-154.43 891,-178.43"/>
-<text text-anchor="middle" x="852" y="-164.03" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_kick.f90</text>
+<polygon fill="none" stroke="black" points="891,-44 813,-44 813,-20 891,-20 891,-44"/>
+<text text-anchor="middle" x="852" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_kick.f90</text>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-189.43 441,-189.43 441,-165.43 536,-165.43 536,-189.43"/>
-<text text-anchor="middle" x="488.5" y="-175.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-84 711,-84 711,-60 777,-60 777,-84"/>
+<text text-anchor="middle" x="744" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.95,-170.61C777.34,-174.3 722.64,-179.4 675,-181.43 629.26,-183.38 617.76,-182.54 572,-181.43 563.65,-181.23 554.84,-180.91 546.2,-180.54"/>
-<polygon fill="#000000" stroke="#000000" points="546.32,-177.04 536.17,-180.09 546,-184.04 546.32,-177.04"/>
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.2,-44C809.02,-47.84 797.59,-52.15 786.81,-56.22"/>
+<polygon fill="#000000" stroke="#000000" points="785.27,-53.06 777.15,-59.87 787.74,-59.61 785.27,-53.06"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-158.43 711,-158.43 711,-134.43 777,-134.43 777,-158.43"/>
-<text text-anchor="middle" x="744" y="-144.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-24 441,-24 441,0 536,0 536,-24"/>
+<text text-anchor="middle" x="488.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.73,-159.21C804.47,-157.65 795.69,-155.99 787.28,-154.41"/>
-<polygon fill="#000000" stroke="#000000" points="787.75,-150.93 777.27,-152.52 786.45,-157.81 787.75,-150.93"/>
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M813,-29.9C749.28,-26.37 620.6,-19.25 546.17,-15.14"/>
+<polygon fill="#000000" stroke="#000000" points="546.22,-11.63 536.04,-14.57 545.83,-18.62 546.22,-11.63"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-188.43 0,-188.43 0,-164.43 106,-164.43 106,-188.43"/>
-<text text-anchor="middle" x="53" y="-174.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C590.82,-47.02 556.15,-36.42 530.16,-27.38"/>
+<polygon fill="#000000" stroke="#000000" points="531.24,-24.05 520.65,-24.01 528.9,-30.65 531.24,-24.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.84,-66.37C687.03,-62.25 653.77,-56.6 624.5,-52"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-201 142,-201 142,-177 260,-177 260,-201"/>
+<text text-anchor="middle" x="201" y="-186.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.79,-174.4C413.36,-173.38 378.08,-173.36 347,-177.43"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-247C304.11,-249.06 255.91,-224.33 227.4,-206.51"/>
+<polygon fill="#000000" stroke="#000000" points="229.17,-203.49 218.87,-201.01 225.38,-209.37 229.17,-203.49"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C424.5,-206.62 414.44,-244.15 351.5,-247"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-149.43 299,-149.43 299,-125.43 393,-125.43 393,-149.43"/>
-<text text-anchor="middle" x="346" y="-135.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-143 441.5,-143 441.5,-119 535.5,-119 535.5,-143"/>
+<text text-anchor="middle" x="488.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-165.43C430.89,-161.31 414.54,-156.66 399.37,-152.34"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-148.93 389.61,-149.56 398.27,-155.67 400.19,-148.93"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C597.58,-170.52 569.9,-172.78 546.28,-174.37"/>
-<polygon fill="#000000" stroke="#000000" points="545.83,-170.89 536.08,-175.03 546.29,-177.88 545.83,-170.89"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M737.88,-84.24C724.56,-114.04 685.57,-189.18 624.5,-207"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-207C576.69,-220.36 529.76,-177.66 505.78,-150.91"/>
+<polygon fill="#000000" stroke="#000000" points="508.3,-148.47 499.1,-143.21 503.01,-153.06 508.3,-148.47"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-130.43 572,-130.43 572,-106.43 675,-106.43 675,-130.43"/>
-<text text-anchor="middle" x="623.5" y="-116.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-219 296,-219 296,-195 405,-195 405,-219"/>
+<text text-anchor="middle" x="350.5" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-138.85C702.96,-136.97 694.16,-134.89 685.31,-132.8"/>
-<polygon fill="#000000" stroke="#000000" points="685.87,-129.34 675.33,-130.44 684.26,-136.15 685.87,-129.34"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C463.95,-207 438.11,-207 415.34,-207"/>
+<polygon fill="#000000" stroke="#000000" points="415.11,-203.5 405.11,-207 415.11,-210.5 415.11,-203.5"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-73.43 143,-73.43 143,-49.43 250,-49.43 250,-73.43"/>
-<text text-anchor="middle" x="196.5" y="-59.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-103 147.5,-103 147.5,-79 254.5,-79 254.5,-103"/>
+<text text-anchor="middle" x="201" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-21.43C307.79,-24.17 266.96,-35.97 237.71,-46.05"/>
-<polygon fill="#000000" stroke="#000000" points="236.52,-42.75 228.26,-49.38 238.85,-49.35 236.52,-42.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C465.07,-207 315.96,-153.24 296,-143 278.44,-133.99 277.09,-126.87 260,-117 254.09,-113.59 247.66,-110.31 241.29,-107.3"/>
+<polygon fill="#000000" stroke="#000000" points="242.64,-104.07 232.09,-103.09 239.73,-110.43 242.64,-104.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-207C565.75,-223.55 548.61,-207.36 489.5,-207"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M736.88,-134.1C722.17,-106.22 681.8,-39.2 624.5,-19.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-21.43C171.79,-30.05 161.8,-24.78 142,-40.43 102.73,-71.47 75.52,-125.1 62.59,-154.9"/>
-<polygon fill="#000000" stroke="#000000" points="59.26,-153.79 58.62,-164.37 65.71,-156.5 59.26,-153.79"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-21.43C279.62,-26.24 259.11,0.97 197.5,-21.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-19.43C506.75,20.51 469.12,-12.44 347,-21.43"/>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-63 303.5,-63 303.5,-39 397.5,-39 397.5,-63"/>
+<text text-anchor="middle" x="350.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-71.43 441.5,-71.43 441.5,-47.43 535.5,-47.43 535.5,-71.43"/>
-<text text-anchor="middle" x="488.5" y="-57.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C549.14,-40.48 463.23,-42.78 408.13,-46.25"/>
+<polygon fill="#000000" stroke="#000000" points="407.62,-42.77 397.87,-46.93 408.08,-49.76 407.62,-42.77"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-104 572,-104 572,-80 675,-80 675,-104"/>
+<text text-anchor="middle" x="623.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-19.43C604.56,-13.24 558.37,-29.8 525.47,-43.46"/>
-<polygon fill="#000000" stroke="#000000" points="524.01,-40.28 516.16,-47.4 526.73,-46.73 524.01,-40.28"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-77.41C702.96,-78.76 694.16,-80.24 685.31,-81.74"/>
+<polygon fill="#000000" stroke="#000000" points="684.61,-78.3 675.33,-83.42 685.78,-85.21 684.61,-78.3"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-228.43 142,-228.43 142,-204.43 251,-204.43 251,-228.43"/>
-<text text-anchor="middle" x="196.5" y="-214.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-143 0,-143 0,-119 106,-119 106,-143"/>
+<text text-anchor="middle" x="53" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-217.43C411.4,-236.34 320.57,-231.88 261.09,-225.47"/>
-<polygon fill="#000000" stroke="#000000" points="261.42,-221.99 251.09,-224.35 260.63,-228.94 261.42,-221.99"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C559.98,-176.34 550.43,-200.84 489.5,-217.43"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-247C255.92,-251.24 226.19,-251.08 142,-210 113.04,-195.87 86.51,-169.37 70.32,-150.98"/>
+<polygon fill="#000000" stroke="#000000" points="72.8,-148.49 63.63,-143.17 67.48,-153.04 72.8,-148.49"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C584.04,-172.19 574.51,-160.81 536,-156.43 491.52,-151.37 441.08,-146.33 403.49,-142.72"/>
-<polygon fill="#000000" stroke="#000000" points="403.54,-139.21 393.25,-141.74 402.87,-146.17 403.54,-139.21"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.91,-152.72C687.12,-157.24 653.87,-163.24 624.5,-167.43"/>
-</g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~rmvs_kick.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-268.43 287,-268.43 287,-244.43 405,-244.43 405,-268.43"/>
-<text text-anchor="middle" x="346" y="-254.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
-</a>
-</g>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.59,-24.02C432.27,-27.84 417.38,-32.11 403.45,-36.1"/>
+<polygon fill="#000000" stroke="#000000" points="402.16,-32.83 393.51,-38.95 404.09,-39.56 402.16,-32.83"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-217.43C457.66,-224.85 424.5,-234.01 397.89,-241.59"/>
-<polygon fill="#000000" stroke="#000000" points="396.69,-238.29 388.04,-244.41 398.61,-245.02 396.69,-238.29"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-51C173.7,-57.65 166.29,-57.92 142,-70 118.47,-81.7 94.09,-99.08 76.98,-112.3"/>
+<polygon fill="#000000" stroke="#000000" points="74.43,-109.84 68.74,-118.78 78.76,-115.35 74.43,-109.84"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.86,-14.73C401.96,-17.41 345.15,-22.23 296,-30 253.72,-36.68 243.5,-40.5 202,-51"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.26,-130.51C575.27,-139.38 547.9,-151.52 526.01,-161.23"/>
-<polygon fill="#000000" stroke="#000000" points="524.42,-158.11 516.7,-165.36 527.26,-164.51 524.42,-158.11"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.17,-106.37C547.38,-101.68 516.97,-97.77 489.5,-99.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-99.43C406.65,-104.32 313.95,-88.36 255.57,-75.64"/>
-<polygon fill="#000000" stroke="#000000" points="256.31,-72.22 245.79,-73.47 254.79,-79.05 256.31,-72.22"/>
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.75,-176.98C147.73,-168.23 117.69,-156.3 93.73,-146.78"/>
+<polygon fill="#000000" stroke="#000000" points="94.8,-143.44 84.21,-143 92.21,-149.95 94.8,-143.44"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-177.43C280,-185.94 262.93,-172.29 197.5,-176.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-99.43C442.48,-101.63 445.22,-138.07 405,-158.43 380.8,-170.68 373.9,-173.91 347,-177.43"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.5,-131.52C415.13,-131.52 381.42,-131.01 351.5,-129"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-129C313.27,-126.56 273.47,-115.81 244.36,-106.36"/>
+<polygon fill="#000000" stroke="#000000" points="245.12,-102.92 234.53,-103.09 242.91,-109.57 245.12,-102.92"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.26,-106.35C575.27,-97.48 547.9,-85.34 526.01,-75.63"/>
-<polygon fill="#000000" stroke="#000000" points="527.26,-72.35 516.7,-71.5 524.42,-78.75 527.26,-72.35"/>
-</g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.62,-73.52C155.95,-93.57 106.4,-133.84 77.13,-157.63"/>
-<polygon fill="#000000" stroke="#000000" points="74.65,-155.13 69.1,-164.16 79.07,-160.57 74.65,-155.13"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-59.43C317.24,-57.76 286.49,-57.87 260.29,-58.55"/>
-<polygon fill="#000000" stroke="#000000" points="260,-55.05 250.11,-58.84 260.21,-62.05 260,-55.05"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.52,-118.97C454.11,-107.57 428.38,-90.26 405,-77 399.34,-73.79 393.23,-70.59 387.23,-67.58"/>
+<polygon fill="#000000" stroke="#000000" points="388.49,-64.3 377.97,-63.04 385.41,-70.58 388.49,-64.3"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge16" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.26,-60.82C413.84,-61.3 378.41,-61.31 347,-59.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-59.43C277.43,-55.38 261.12,1.7 197.5,-21.43"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.85,-71.45C442.31,-84.52 404.46,-105.53 377.82,-120.32"/>
-<polygon fill="#000000" stroke="#000000" points="375.95,-117.36 368.9,-125.27 379.34,-123.48 375.95,-117.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-131C172.68,-127.67 142.27,-127.16 116.3,-127.69"/>
+<polygon fill="#000000" stroke="#000000" points="116.12,-124.19 106.22,-127.95 116.3,-131.19 116.12,-124.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-129C284.09,-124.6 267.08,-138.93 202,-131"/>
 </g>
 <!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-204.43C138.49,-200.31 122.02,-195.66 106.74,-191.34"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-187.91 96.91,-188.56 105.58,-194.65 107.49,-187.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.1,-194.89C315.18,-190.57 305.11,-185.64 296,-181 253.82,-159.54 248.97,-136.73 202,-131"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge18" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-103C140.96,-107.17 123.7,-111.9 107.75,-116.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-112.92 98.03,-118.94 108.6,-119.67 106.75,-112.92"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge23" class="edge">
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge19" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.74,-125.36C307.21,-121.13 296.57,-116.23 287,-111.43 266.6,-101.19 244.18,-88.66 226.88,-78.7"/>
-<polygon fill="#000000" stroke="#000000" points="228.25,-75.45 217.84,-73.47 224.74,-81.51 228.25,-75.45"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-63C289.86,-67.17 272.41,-71.9 256.31,-76.27"/>
+<polygon fill="#000000" stroke="#000000" points="255.21,-72.94 246.48,-78.94 257.05,-79.7 255.21,-72.94"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge20" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-176.43C169.65,-178.07 141.09,-178.35 116.44,-178.13"/>
-<polygon fill="#000000" stroke="#000000" points="116.17,-174.62 106.13,-178 116.09,-181.62 116.17,-174.62"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.94,-149.44C284.49,-159.91 238.74,-173.82 197.5,-176.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.27,-45.24C273.83,-42.98 235.14,-42.62 202,-51"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-79.94C589.52,-75.71 580.27,-70.82 572,-66 552.53,-54.66 531.27,-40.7 515.21,-29.82"/>
+<polygon fill="#000000" stroke="#000000" points="517.1,-26.87 506.87,-24.13 513.16,-32.66 517.1,-26.87"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M581.51,-104.02C568.49,-107.84 553.93,-112.11 540.31,-116.1"/>
+<polygon fill="#000000" stroke="#000000" points="539.19,-112.78 530.58,-118.95 541.16,-119.5 539.19,-112.78"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-91C321.76,-89.15 291.01,-88.87 264.8,-89.16"/>
+<polygon fill="#000000" stroke="#000000" points="264.57,-85.66 254.62,-89.31 264.67,-92.66 264.57,-85.66"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_kick.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.85,-258.72C245.31,-258.53 188.72,-254.47 142,-237.43 116.34,-228.07 91.14,-209.36 74.33,-195.11"/>
-<polygon fill="#000000" stroke="#000000" points="76.62,-192.47 66.79,-188.54 72.03,-197.75 76.62,-192.47"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-91C281.73,-86.49 268.07,-35.22 202,-51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.99,-93.7C517.51,-95.1 428.26,-96.11 351.5,-91"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/rmvs_setup.f90.html b/docs/sourcefile/rmvs_setup.f90.html
index 5f92a0b84..9c3549c55 100644
--- a/docs/sourcefile/rmvs_setup.f90.html
+++ b/docs/sourcefile/rmvs_setup.f90.html
@@ -134,7 +134,7 @@ <h1>rmvs_setup.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.9% of total for source files.">113 statements</a>
+    title=" 0.8% of total for source files.">113 statements</a>
      </li> 
      
      
@@ -226,247 +226,246 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~rmvs_setup.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilermvs_setupf90EfferentGraph" width="641pt" height="195pt"
- viewBox="0.00 0.00 641.00 195.36" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 272.43)">
+<svg id="sourcefilermvs_setupf90EfferentGraph" width="641pt" height="182pt"
+ viewBox="0.00 0.00 641.00 181.52" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 252.84)">
 <title>sourcefile~~rmvs_setup.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-272.43 903,-272.43 903,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-252.84 903,-252.84 903,4 -4,4"/>
 <!-- sourcefile~rmvs_setup.f90 -->
 <g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~rmvs_setup.f90</title>
-<polygon fill="none" stroke="black" points="899,-178.43 813,-178.43 813,-154.43 899,-154.43 899,-178.43"/>
-<text text-anchor="middle" x="856" y="-164.03" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_setup.f90</text>
+<polygon fill="none" stroke="black" points="899,-44 813,-44 813,-20 899,-20 899,-44"/>
+<text text-anchor="middle" x="856" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_setup.f90</text>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-189.43 441,-189.43 441,-165.43 536,-165.43 536,-189.43"/>
-<text text-anchor="middle" x="488.5" y="-175.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-84 711,-84 711,-60 777,-60 777,-84"/>
+<text text-anchor="middle" x="744" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.87,-170.94C776.43,-174.6 722.31,-179.46 675,-181.43 629.26,-183.33 617.76,-182.54 572,-181.43 563.65,-181.23 554.84,-180.91 546.2,-180.54"/>
-<polygon fill="#000000" stroke="#000000" points="546.32,-177.04 536.17,-180.09 546,-184.04 546.32,-177.04"/>
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M822,-44C810.92,-48.03 798.42,-52.57 786.77,-56.81"/>
+<polygon fill="#000000" stroke="#000000" points="785.43,-53.58 777.22,-60.28 787.82,-60.15 785.43,-53.58"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-158.43 711,-158.43 711,-134.43 777,-134.43 777,-158.43"/>
-<text text-anchor="middle" x="744" y="-144.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-24 441,-24 441,0 536,0 536,-24"/>
+<text text-anchor="middle" x="488.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.79,-158.75C804.34,-157.22 795.48,-155.61 787.04,-154.07"/>
-<polygon fill="#000000" stroke="#000000" points="787.48,-150.6 777.02,-152.25 786.23,-157.48 787.48,-150.6"/>
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.72,-29.69C746.94,-26.09 620.03,-19.14 546.32,-15.11"/>
+<polygon fill="#000000" stroke="#000000" points="546.46,-11.61 536.29,-14.56 546.08,-18.6 546.46,-11.61"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-188.43 0,-188.43 0,-164.43 106,-164.43 106,-188.43"/>
-<text text-anchor="middle" x="53" y="-174.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C590.82,-47.02 556.15,-36.42 530.16,-27.38"/>
+<polygon fill="#000000" stroke="#000000" points="531.24,-24.05 520.65,-24.01 528.9,-30.65 531.24,-24.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.84,-66.37C687.03,-62.25 653.77,-56.6 624.5,-52"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-201 142,-201 142,-177 260,-177 260,-201"/>
+<text text-anchor="middle" x="201" y="-186.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.79,-174.4C413.36,-173.38 378.08,-173.36 347,-177.43"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-247C304.11,-249.06 255.91,-224.33 227.4,-206.51"/>
+<polygon fill="#000000" stroke="#000000" points="229.17,-203.49 218.87,-201.01 225.38,-209.37 229.17,-203.49"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C424.5,-206.62 414.44,-244.15 351.5,-247"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-149.43 299,-149.43 299,-125.43 393,-125.43 393,-149.43"/>
-<text text-anchor="middle" x="346" y="-135.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-143 441.5,-143 441.5,-119 535.5,-119 535.5,-143"/>
+<text text-anchor="middle" x="488.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-165.43C430.89,-161.31 414.54,-156.66 399.37,-152.34"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-148.93 389.61,-149.56 398.27,-155.67 400.19,-148.93"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C597.58,-170.52 569.9,-172.78 546.28,-174.37"/>
-<polygon fill="#000000" stroke="#000000" points="545.83,-170.89 536.08,-175.03 546.29,-177.88 545.83,-170.89"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M737.88,-84.24C724.56,-114.04 685.57,-189.18 624.5,-207"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-207C576.69,-220.36 529.76,-177.66 505.78,-150.91"/>
+<polygon fill="#000000" stroke="#000000" points="508.3,-148.47 499.1,-143.21 503.01,-153.06 508.3,-148.47"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-130.43 572,-130.43 572,-106.43 675,-106.43 675,-130.43"/>
-<text text-anchor="middle" x="623.5" y="-116.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-219 296,-219 296,-195 405,-195 405,-219"/>
+<text text-anchor="middle" x="350.5" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-138.85C702.96,-136.97 694.16,-134.89 685.31,-132.8"/>
-<polygon fill="#000000" stroke="#000000" points="685.87,-129.34 675.33,-130.44 684.26,-136.15 685.87,-129.34"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C463.95,-207 438.11,-207 415.34,-207"/>
+<polygon fill="#000000" stroke="#000000" points="415.11,-203.5 405.11,-207 415.11,-210.5 415.11,-203.5"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-73.43 143,-73.43 143,-49.43 250,-49.43 250,-73.43"/>
-<text text-anchor="middle" x="196.5" y="-59.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-103 147.5,-103 147.5,-79 254.5,-79 254.5,-103"/>
+<text text-anchor="middle" x="201" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-21.43C307.79,-24.17 266.96,-35.97 237.71,-46.05"/>
-<polygon fill="#000000" stroke="#000000" points="236.52,-42.75 228.26,-49.38 238.85,-49.35 236.52,-42.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C465.07,-207 315.96,-153.24 296,-143 278.44,-133.99 277.09,-126.87 260,-117 254.09,-113.59 247.66,-110.31 241.29,-107.3"/>
+<polygon fill="#000000" stroke="#000000" points="242.64,-104.07 232.09,-103.09 239.73,-110.43 242.64,-104.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-207C565.75,-223.55 548.61,-207.36 489.5,-207"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M736.88,-134.1C722.17,-106.22 681.8,-39.2 624.5,-19.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-21.43C171.79,-30.05 161.8,-24.78 142,-40.43 102.73,-71.47 75.52,-125.1 62.59,-154.9"/>
-<polygon fill="#000000" stroke="#000000" points="59.26,-153.79 58.62,-164.37 65.71,-156.5 59.26,-153.79"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-21.43C279.62,-26.24 259.11,0.97 197.5,-21.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-19.43C506.75,20.51 469.12,-12.44 347,-21.43"/>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-63 303.5,-63 303.5,-39 397.5,-39 397.5,-63"/>
+<text text-anchor="middle" x="350.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-71.43 441.5,-71.43 441.5,-47.43 535.5,-47.43 535.5,-71.43"/>
-<text text-anchor="middle" x="488.5" y="-57.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C549.14,-40.48 463.23,-42.78 408.13,-46.25"/>
+<polygon fill="#000000" stroke="#000000" points="407.62,-42.77 397.87,-46.93 408.08,-49.76 407.62,-42.77"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-104 572,-104 572,-80 675,-80 675,-104"/>
+<text text-anchor="middle" x="623.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-19.43C604.56,-13.24 558.37,-29.8 525.47,-43.46"/>
-<polygon fill="#000000" stroke="#000000" points="524.01,-40.28 516.16,-47.4 526.73,-46.73 524.01,-40.28"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-77.41C702.96,-78.76 694.16,-80.24 685.31,-81.74"/>
+<polygon fill="#000000" stroke="#000000" points="684.61,-78.3 675.33,-83.42 685.78,-85.21 684.61,-78.3"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-228.43 142,-228.43 142,-204.43 251,-204.43 251,-228.43"/>
-<text text-anchor="middle" x="196.5" y="-214.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-143 0,-143 0,-119 106,-119 106,-143"/>
+<text text-anchor="middle" x="53" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-217.43C411.4,-236.34 320.57,-231.88 261.09,-225.47"/>
-<polygon fill="#000000" stroke="#000000" points="261.42,-221.99 251.09,-224.35 260.63,-228.94 261.42,-221.99"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C559.98,-176.34 550.43,-200.84 489.5,-217.43"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-247C255.92,-251.24 226.19,-251.08 142,-210 113.04,-195.87 86.51,-169.37 70.32,-150.98"/>
+<polygon fill="#000000" stroke="#000000" points="72.8,-148.49 63.63,-143.17 67.48,-153.04 72.8,-148.49"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C584.04,-172.19 574.51,-160.81 536,-156.43 491.52,-151.37 441.08,-146.33 403.49,-142.72"/>
-<polygon fill="#000000" stroke="#000000" points="403.54,-139.21 393.25,-141.74 402.87,-146.17 403.54,-139.21"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.91,-152.72C687.12,-157.24 653.87,-163.24 624.5,-167.43"/>
-</g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~rmvs_setup.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-268.43 287,-268.43 287,-244.43 405,-244.43 405,-268.43"/>
-<text text-anchor="middle" x="346" y="-254.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
-</a>
-</g>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.59,-24.02C432.27,-27.84 417.38,-32.11 403.45,-36.1"/>
+<polygon fill="#000000" stroke="#000000" points="402.16,-32.83 393.51,-38.95 404.09,-39.56 402.16,-32.83"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-217.43C457.66,-224.85 424.5,-234.01 397.89,-241.59"/>
-<polygon fill="#000000" stroke="#000000" points="396.69,-238.29 388.04,-244.41 398.61,-245.02 396.69,-238.29"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-51C173.7,-57.65 166.29,-57.92 142,-70 118.47,-81.7 94.09,-99.08 76.98,-112.3"/>
+<polygon fill="#000000" stroke="#000000" points="74.43,-109.84 68.74,-118.78 78.76,-115.35 74.43,-109.84"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.86,-14.73C401.96,-17.41 345.15,-22.23 296,-30 253.72,-36.68 243.5,-40.5 202,-51"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.26,-130.51C575.27,-139.38 547.9,-151.52 526.01,-161.23"/>
-<polygon fill="#000000" stroke="#000000" points="524.42,-158.11 516.7,-165.36 527.26,-164.51 524.42,-158.11"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.17,-106.37C547.38,-101.68 516.97,-97.77 489.5,-99.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-99.43C406.65,-104.32 313.95,-88.36 255.57,-75.64"/>
-<polygon fill="#000000" stroke="#000000" points="256.31,-72.22 245.79,-73.47 254.79,-79.05 256.31,-72.22"/>
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.75,-176.98C147.73,-168.23 117.69,-156.3 93.73,-146.78"/>
+<polygon fill="#000000" stroke="#000000" points="94.8,-143.44 84.21,-143 92.21,-149.95 94.8,-143.44"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-177.43C280,-185.94 262.93,-172.29 197.5,-176.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-99.43C442.48,-101.63 445.22,-138.07 405,-158.43 380.8,-170.68 373.9,-173.91 347,-177.43"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.5,-131.52C415.13,-131.52 381.42,-131.01 351.5,-129"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-129C313.27,-126.56 273.47,-115.81 244.36,-106.36"/>
+<polygon fill="#000000" stroke="#000000" points="245.12,-102.92 234.53,-103.09 242.91,-109.57 245.12,-102.92"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.26,-106.35C575.27,-97.48 547.9,-85.34 526.01,-75.63"/>
-<polygon fill="#000000" stroke="#000000" points="527.26,-72.35 516.7,-71.5 524.42,-78.75 527.26,-72.35"/>
-</g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.62,-73.52C155.95,-93.57 106.4,-133.84 77.13,-157.63"/>
-<polygon fill="#000000" stroke="#000000" points="74.65,-155.13 69.1,-164.16 79.07,-160.57 74.65,-155.13"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-59.43C317.24,-57.76 286.49,-57.87 260.29,-58.55"/>
-<polygon fill="#000000" stroke="#000000" points="260,-55.05 250.11,-58.84 260.21,-62.05 260,-55.05"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.52,-118.97C454.11,-107.57 428.38,-90.26 405,-77 399.34,-73.79 393.23,-70.59 387.23,-67.58"/>
+<polygon fill="#000000" stroke="#000000" points="388.49,-64.3 377.97,-63.04 385.41,-70.58 388.49,-64.3"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge16" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.26,-60.82C413.84,-61.3 378.41,-61.31 347,-59.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-59.43C277.43,-55.38 261.12,1.7 197.5,-21.43"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.85,-71.45C442.31,-84.52 404.46,-105.53 377.82,-120.32"/>
-<polygon fill="#000000" stroke="#000000" points="375.95,-117.36 368.9,-125.27 379.34,-123.48 375.95,-117.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-131C172.68,-127.67 142.27,-127.16 116.3,-127.69"/>
+<polygon fill="#000000" stroke="#000000" points="116.12,-124.19 106.22,-127.95 116.3,-131.19 116.12,-124.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-129C284.09,-124.6 267.08,-138.93 202,-131"/>
 </g>
 <!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-204.43C138.49,-200.31 122.02,-195.66 106.74,-191.34"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-187.91 96.91,-188.56 105.58,-194.65 107.49,-187.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.1,-194.89C315.18,-190.57 305.11,-185.64 296,-181 253.82,-159.54 248.97,-136.73 202,-131"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge18" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-103C140.96,-107.17 123.7,-111.9 107.75,-116.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-112.92 98.03,-118.94 108.6,-119.67 106.75,-112.92"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge23" class="edge">
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge19" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.74,-125.36C307.21,-121.13 296.57,-116.23 287,-111.43 266.6,-101.19 244.18,-88.66 226.88,-78.7"/>
-<polygon fill="#000000" stroke="#000000" points="228.25,-75.45 217.84,-73.47 224.74,-81.51 228.25,-75.45"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-63C289.86,-67.17 272.41,-71.9 256.31,-76.27"/>
+<polygon fill="#000000" stroke="#000000" points="255.21,-72.94 246.48,-78.94 257.05,-79.7 255.21,-72.94"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge20" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-176.43C169.65,-178.07 141.09,-178.35 116.44,-178.13"/>
-<polygon fill="#000000" stroke="#000000" points="116.17,-174.62 106.13,-178 116.09,-181.62 116.17,-174.62"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.94,-149.44C284.49,-159.91 238.74,-173.82 197.5,-176.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.27,-45.24C273.83,-42.98 235.14,-42.62 202,-51"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-79.94C589.52,-75.71 580.27,-70.82 572,-66 552.53,-54.66 531.27,-40.7 515.21,-29.82"/>
+<polygon fill="#000000" stroke="#000000" points="517.1,-26.87 506.87,-24.13 513.16,-32.66 517.1,-26.87"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M581.51,-104.02C568.49,-107.84 553.93,-112.11 540.31,-116.1"/>
+<polygon fill="#000000" stroke="#000000" points="539.19,-112.78 530.58,-118.95 541.16,-119.5 539.19,-112.78"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-91C321.76,-89.15 291.01,-88.87 264.8,-89.16"/>
+<polygon fill="#000000" stroke="#000000" points="264.57,-85.66 254.62,-89.31 264.67,-92.66 264.57,-85.66"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_setup.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.85,-258.72C245.31,-258.53 188.72,-254.47 142,-237.43 116.34,-228.07 91.14,-209.36 74.33,-195.11"/>
-<polygon fill="#000000" stroke="#000000" points="76.62,-192.47 66.79,-188.54 72.03,-197.75 76.62,-192.47"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-91C281.73,-86.49 268.07,-35.22 202,-51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.99,-93.7C517.51,-95.1 428.26,-96.11 351.5,-91"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/rmvs_step.f90.html b/docs/sourcefile/rmvs_step.f90.html
index b2582a17e..0052535ed 100644
--- a/docs/sourcefile/rmvs_step.f90.html
+++ b/docs/sourcefile/rmvs_step.f90.html
@@ -134,7 +134,7 @@ <h1>rmvs_step.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 3.8% of total for source files.">502 statements</a>
+    title=" 3.7% of total for source files.">502 statements</a>
      </li> 
      
      
@@ -226,247 +226,246 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~rmvs_step.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilermvs_stepf90EfferentGraph" width="641pt" height="197pt"
- viewBox="0.00 0.00 641.00 196.66" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 272.43)">
+<svg id="sourcefilermvs_stepf90EfferentGraph" width="641pt" height="183pt"
+ viewBox="0.00 0.00 641.00 182.73" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 252.84)">
 <title>sourcefile~~rmvs_step.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-272.43 897,-272.43 897,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-252.84 897,-252.84 897,4 -4,4"/>
 <!-- sourcefile~rmvs_step.f90 -->
 <g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~rmvs_step.f90</title>
-<polygon fill="none" stroke="black" points="893,-178.43 813,-178.43 813,-154.43 893,-154.43 893,-178.43"/>
-<text text-anchor="middle" x="853" y="-164.03" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_step.f90</text>
+<polygon fill="none" stroke="black" points="893,-44 813,-44 813,-20 893,-20 893,-44"/>
+<text text-anchor="middle" x="853" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_step.f90</text>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-189.43 441,-189.43 441,-165.43 536,-165.43 536,-189.43"/>
-<text text-anchor="middle" x="488.5" y="-175.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-84 711,-84 711,-60 777,-60 777,-84"/>
+<text text-anchor="middle" x="744" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.69,-170.72C776.86,-174.4 722.45,-179.42 675,-181.43 629.26,-183.36 617.76,-182.54 572,-181.43 563.65,-181.23 554.84,-180.91 546.2,-180.54"/>
-<polygon fill="#000000" stroke="#000000" points="546.32,-177.04 536.17,-180.09 546,-184.04 546.32,-177.04"/>
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.9,-44C809.42,-47.92 797.64,-52.32 786.57,-56.46"/>
+<polygon fill="#000000" stroke="#000000" points="785.22,-53.23 777.08,-60.01 787.67,-59.78 785.22,-53.23"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-158.43 711,-158.43 711,-134.43 777,-134.43 777,-158.43"/>
-<text text-anchor="middle" x="744" y="-144.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-24 441,-24 441,0 536,0 536,-24"/>
+<text text-anchor="middle" x="488.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.76,-159.1C804.45,-157.54 795.65,-155.9 787.23,-154.32"/>
-<polygon fill="#000000" stroke="#000000" points="787.69,-150.85 777.22,-152.45 786.4,-157.73 787.69,-150.85"/>
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.86,-29.84C748.6,-26.3 620.48,-19.23 546.26,-15.13"/>
+<polygon fill="#000000" stroke="#000000" points="546.33,-11.63 536.15,-14.57 545.95,-18.62 546.33,-11.63"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-188.43 0,-188.43 0,-164.43 106,-164.43 106,-188.43"/>
-<text text-anchor="middle" x="53" y="-174.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C590.82,-47.02 556.15,-36.42 530.16,-27.38"/>
+<polygon fill="#000000" stroke="#000000" points="531.24,-24.05 520.65,-24.01 528.9,-30.65 531.24,-24.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.84,-66.37C687.03,-62.25 653.77,-56.6 624.5,-52"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-201 142,-201 142,-177 260,-177 260,-201"/>
+<text text-anchor="middle" x="201" y="-186.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.79,-174.4C413.36,-173.38 378.08,-173.36 347,-177.43"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-247C304.11,-249.06 255.91,-224.33 227.4,-206.51"/>
+<polygon fill="#000000" stroke="#000000" points="229.17,-203.49 218.87,-201.01 225.38,-209.37 229.17,-203.49"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C424.5,-206.62 414.44,-244.15 351.5,-247"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-149.43 299,-149.43 299,-125.43 393,-125.43 393,-149.43"/>
-<text text-anchor="middle" x="346" y="-135.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-143 441.5,-143 441.5,-119 535.5,-119 535.5,-143"/>
+<text text-anchor="middle" x="488.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-165.43C430.89,-161.31 414.54,-156.66 399.37,-152.34"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-148.93 389.61,-149.56 398.27,-155.67 400.19,-148.93"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C597.58,-170.52 569.9,-172.78 546.28,-174.37"/>
-<polygon fill="#000000" stroke="#000000" points="545.83,-170.89 536.08,-175.03 546.29,-177.88 545.83,-170.89"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M737.88,-84.24C724.56,-114.04 685.57,-189.18 624.5,-207"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-207C576.69,-220.36 529.76,-177.66 505.78,-150.91"/>
+<polygon fill="#000000" stroke="#000000" points="508.3,-148.47 499.1,-143.21 503.01,-153.06 508.3,-148.47"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-130.43 572,-130.43 572,-106.43 675,-106.43 675,-130.43"/>
-<text text-anchor="middle" x="623.5" y="-116.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-219 296,-219 296,-195 405,-195 405,-219"/>
+<text text-anchor="middle" x="350.5" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-138.85C702.96,-136.97 694.16,-134.89 685.31,-132.8"/>
-<polygon fill="#000000" stroke="#000000" points="685.87,-129.34 675.33,-130.44 684.26,-136.15 685.87,-129.34"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C463.95,-207 438.11,-207 415.34,-207"/>
+<polygon fill="#000000" stroke="#000000" points="415.11,-203.5 405.11,-207 415.11,-210.5 415.11,-203.5"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-73.43 143,-73.43 143,-49.43 250,-49.43 250,-73.43"/>
-<text text-anchor="middle" x="196.5" y="-59.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-103 147.5,-103 147.5,-79 254.5,-79 254.5,-103"/>
+<text text-anchor="middle" x="201" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-21.43C307.79,-24.17 266.96,-35.97 237.71,-46.05"/>
-<polygon fill="#000000" stroke="#000000" points="236.52,-42.75 228.26,-49.38 238.85,-49.35 236.52,-42.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C465.07,-207 315.96,-153.24 296,-143 278.44,-133.99 277.09,-126.87 260,-117 254.09,-113.59 247.66,-110.31 241.29,-107.3"/>
+<polygon fill="#000000" stroke="#000000" points="242.64,-104.07 232.09,-103.09 239.73,-110.43 242.64,-104.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-207C565.75,-223.55 548.61,-207.36 489.5,-207"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M736.88,-134.1C722.17,-106.22 681.8,-39.2 624.5,-19.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-21.43C171.79,-30.05 161.8,-24.78 142,-40.43 102.73,-71.47 75.52,-125.1 62.59,-154.9"/>
-<polygon fill="#000000" stroke="#000000" points="59.26,-153.79 58.62,-164.37 65.71,-156.5 59.26,-153.79"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-21.43C279.62,-26.24 259.11,0.97 197.5,-21.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-19.43C506.75,20.51 469.12,-12.44 347,-21.43"/>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-63 303.5,-63 303.5,-39 397.5,-39 397.5,-63"/>
+<text text-anchor="middle" x="350.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-71.43 441.5,-71.43 441.5,-47.43 535.5,-47.43 535.5,-71.43"/>
-<text text-anchor="middle" x="488.5" y="-57.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C549.14,-40.48 463.23,-42.78 408.13,-46.25"/>
+<polygon fill="#000000" stroke="#000000" points="407.62,-42.77 397.87,-46.93 408.08,-49.76 407.62,-42.77"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-104 572,-104 572,-80 675,-80 675,-104"/>
+<text text-anchor="middle" x="623.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-19.43C604.56,-13.24 558.37,-29.8 525.47,-43.46"/>
-<polygon fill="#000000" stroke="#000000" points="524.01,-40.28 516.16,-47.4 526.73,-46.73 524.01,-40.28"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-77.41C702.96,-78.76 694.16,-80.24 685.31,-81.74"/>
+<polygon fill="#000000" stroke="#000000" points="684.61,-78.3 675.33,-83.42 685.78,-85.21 684.61,-78.3"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-228.43 142,-228.43 142,-204.43 251,-204.43 251,-228.43"/>
-<text text-anchor="middle" x="196.5" y="-214.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-143 0,-143 0,-119 106,-119 106,-143"/>
+<text text-anchor="middle" x="53" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-217.43C411.4,-236.34 320.57,-231.88 261.09,-225.47"/>
-<polygon fill="#000000" stroke="#000000" points="261.42,-221.99 251.09,-224.35 260.63,-228.94 261.42,-221.99"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C559.98,-176.34 550.43,-200.84 489.5,-217.43"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-247C255.92,-251.24 226.19,-251.08 142,-210 113.04,-195.87 86.51,-169.37 70.32,-150.98"/>
+<polygon fill="#000000" stroke="#000000" points="72.8,-148.49 63.63,-143.17 67.48,-153.04 72.8,-148.49"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C584.04,-172.19 574.51,-160.81 536,-156.43 491.52,-151.37 441.08,-146.33 403.49,-142.72"/>
-<polygon fill="#000000" stroke="#000000" points="403.54,-139.21 393.25,-141.74 402.87,-146.17 403.54,-139.21"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.91,-152.72C687.12,-157.24 653.87,-163.24 624.5,-167.43"/>
-</g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~rmvs_step.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-268.43 287,-268.43 287,-244.43 405,-244.43 405,-268.43"/>
-<text text-anchor="middle" x="346" y="-254.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
-</a>
-</g>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.59,-24.02C432.27,-27.84 417.38,-32.11 403.45,-36.1"/>
+<polygon fill="#000000" stroke="#000000" points="402.16,-32.83 393.51,-38.95 404.09,-39.56 402.16,-32.83"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-217.43C457.66,-224.85 424.5,-234.01 397.89,-241.59"/>
-<polygon fill="#000000" stroke="#000000" points="396.69,-238.29 388.04,-244.41 398.61,-245.02 396.69,-238.29"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-51C173.7,-57.65 166.29,-57.92 142,-70 118.47,-81.7 94.09,-99.08 76.98,-112.3"/>
+<polygon fill="#000000" stroke="#000000" points="74.43,-109.84 68.74,-118.78 78.76,-115.35 74.43,-109.84"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.86,-14.73C401.96,-17.41 345.15,-22.23 296,-30 253.72,-36.68 243.5,-40.5 202,-51"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.26,-130.51C575.27,-139.38 547.9,-151.52 526.01,-161.23"/>
-<polygon fill="#000000" stroke="#000000" points="524.42,-158.11 516.7,-165.36 527.26,-164.51 524.42,-158.11"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.17,-106.37C547.38,-101.68 516.97,-97.77 489.5,-99.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-99.43C406.65,-104.32 313.95,-88.36 255.57,-75.64"/>
-<polygon fill="#000000" stroke="#000000" points="256.31,-72.22 245.79,-73.47 254.79,-79.05 256.31,-72.22"/>
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.75,-176.98C147.73,-168.23 117.69,-156.3 93.73,-146.78"/>
+<polygon fill="#000000" stroke="#000000" points="94.8,-143.44 84.21,-143 92.21,-149.95 94.8,-143.44"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-177.43C280,-185.94 262.93,-172.29 197.5,-176.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-99.43C442.48,-101.63 445.22,-138.07 405,-158.43 380.8,-170.68 373.9,-173.91 347,-177.43"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.5,-131.52C415.13,-131.52 381.42,-131.01 351.5,-129"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-129C313.27,-126.56 273.47,-115.81 244.36,-106.36"/>
+<polygon fill="#000000" stroke="#000000" points="245.12,-102.92 234.53,-103.09 242.91,-109.57 245.12,-102.92"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.26,-106.35C575.27,-97.48 547.9,-85.34 526.01,-75.63"/>
-<polygon fill="#000000" stroke="#000000" points="527.26,-72.35 516.7,-71.5 524.42,-78.75 527.26,-72.35"/>
-</g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.62,-73.52C155.95,-93.57 106.4,-133.84 77.13,-157.63"/>
-<polygon fill="#000000" stroke="#000000" points="74.65,-155.13 69.1,-164.16 79.07,-160.57 74.65,-155.13"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-59.43C317.24,-57.76 286.49,-57.87 260.29,-58.55"/>
-<polygon fill="#000000" stroke="#000000" points="260,-55.05 250.11,-58.84 260.21,-62.05 260,-55.05"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.52,-118.97C454.11,-107.57 428.38,-90.26 405,-77 399.34,-73.79 393.23,-70.59 387.23,-67.58"/>
+<polygon fill="#000000" stroke="#000000" points="388.49,-64.3 377.97,-63.04 385.41,-70.58 388.49,-64.3"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge16" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.26,-60.82C413.84,-61.3 378.41,-61.31 347,-59.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-59.43C277.43,-55.38 261.12,1.7 197.5,-21.43"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.85,-71.45C442.31,-84.52 404.46,-105.53 377.82,-120.32"/>
-<polygon fill="#000000" stroke="#000000" points="375.95,-117.36 368.9,-125.27 379.34,-123.48 375.95,-117.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-131C172.68,-127.67 142.27,-127.16 116.3,-127.69"/>
+<polygon fill="#000000" stroke="#000000" points="116.12,-124.19 106.22,-127.95 116.3,-131.19 116.12,-124.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-129C284.09,-124.6 267.08,-138.93 202,-131"/>
 </g>
 <!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-204.43C138.49,-200.31 122.02,-195.66 106.74,-191.34"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-187.91 96.91,-188.56 105.58,-194.65 107.49,-187.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.1,-194.89C315.18,-190.57 305.11,-185.64 296,-181 253.82,-159.54 248.97,-136.73 202,-131"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge18" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-103C140.96,-107.17 123.7,-111.9 107.75,-116.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-112.92 98.03,-118.94 108.6,-119.67 106.75,-112.92"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge23" class="edge">
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge19" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.74,-125.36C307.21,-121.13 296.57,-116.23 287,-111.43 266.6,-101.19 244.18,-88.66 226.88,-78.7"/>
-<polygon fill="#000000" stroke="#000000" points="228.25,-75.45 217.84,-73.47 224.74,-81.51 228.25,-75.45"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-63C289.86,-67.17 272.41,-71.9 256.31,-76.27"/>
+<polygon fill="#000000" stroke="#000000" points="255.21,-72.94 246.48,-78.94 257.05,-79.7 255.21,-72.94"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge20" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-176.43C169.65,-178.07 141.09,-178.35 116.44,-178.13"/>
-<polygon fill="#000000" stroke="#000000" points="116.17,-174.62 106.13,-178 116.09,-181.62 116.17,-174.62"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.94,-149.44C284.49,-159.91 238.74,-173.82 197.5,-176.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.27,-45.24C273.83,-42.98 235.14,-42.62 202,-51"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-79.94C589.52,-75.71 580.27,-70.82 572,-66 552.53,-54.66 531.27,-40.7 515.21,-29.82"/>
+<polygon fill="#000000" stroke="#000000" points="517.1,-26.87 506.87,-24.13 513.16,-32.66 517.1,-26.87"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M581.51,-104.02C568.49,-107.84 553.93,-112.11 540.31,-116.1"/>
+<polygon fill="#000000" stroke="#000000" points="539.19,-112.78 530.58,-118.95 541.16,-119.5 539.19,-112.78"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-91C321.76,-89.15 291.01,-88.87 264.8,-89.16"/>
+<polygon fill="#000000" stroke="#000000" points="264.57,-85.66 254.62,-89.31 264.67,-92.66 264.57,-85.66"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_step.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.85,-258.72C245.31,-258.53 188.72,-254.47 142,-237.43 116.34,-228.07 91.14,-209.36 74.33,-195.11"/>
-<polygon fill="#000000" stroke="#000000" points="76.62,-192.47 66.79,-188.54 72.03,-197.75 76.62,-192.47"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-91C281.73,-86.49 268.07,-35.22 202,-51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.99,-93.7C517.51,-95.1 428.26,-96.11 351.5,-91"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/rmvs_util.f90.html b/docs/sourcefile/rmvs_util.f90.html
index 896b86e19..500850c97 100644
--- a/docs/sourcefile/rmvs_util.f90.html
+++ b/docs/sourcefile/rmvs_util.f90.html
@@ -134,7 +134,7 @@ <h1>rmvs_util.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.7% of total for source files.">232 statements</a>
+    title=" 1.8% of total for source files.">236 statements</a>
      </li> 
      
      
@@ -226,247 +226,246 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~rmvs_util.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilermvs_utilf90EfferentGraph" width="641pt" height="198pt"
- viewBox="0.00 0.00 641.00 198.20" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 272.43)">
+<svg id="sourcefilermvs_utilf90EfferentGraph" width="641pt" height="184pt"
+ viewBox="0.00 0.00 641.00 184.16" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 252.84)">
 <title>sourcefile~~rmvs_util.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-272.43 890,-272.43 890,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-252.84 890,-252.84 890,4 -4,4"/>
 <!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~rmvs_util.f90</title>
-<polygon fill="none" stroke="black" points="886,-178.43 813,-178.43 813,-154.43 886,-154.43 886,-178.43"/>
-<text text-anchor="middle" x="849.5" y="-164.03" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util.f90</text>
+<polygon fill="none" stroke="black" points="886,-44 813,-44 813,-20 886,-20 886,-44"/>
+<text text-anchor="middle" x="849.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_util.f90</text>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-189.43 441,-189.43 441,-165.43 536,-165.43 536,-189.43"/>
-<text text-anchor="middle" x="488.5" y="-175.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-84 711,-84 711,-60 777,-60 777,-84"/>
+<text text-anchor="middle" x="744" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.67,-170.44C777.63,-174.14 722.73,-179.37 675,-181.43 629.26,-183.4 617.76,-182.54 572,-181.43 563.65,-181.23 554.84,-180.91 546.2,-180.54"/>
-<polygon fill="#000000" stroke="#000000" points="546.32,-177.04 536.17,-180.09 546,-184.04 546.32,-177.04"/>
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M817.45,-44C807.51,-47.84 796.35,-52.15 785.83,-56.22"/>
+<polygon fill="#000000" stroke="#000000" points="784.46,-53 776.39,-59.87 786.98,-59.53 784.46,-53"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-158.43 711,-158.43 711,-134.43 777,-134.43 777,-158.43"/>
-<text text-anchor="middle" x="744" y="-144.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-24 441,-24 441,0 536,0 536,-24"/>
+<text text-anchor="middle" x="488.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-159.55C804.56,-157.94 795.62,-156.21 787.05,-154.56"/>
-<polygon fill="#000000" stroke="#000000" points="787.7,-151.12 777.21,-152.65 786.37,-157.99 787.7,-151.12"/>
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.77,-30.01C750.35,-26.53 620.99,-19.33 546.22,-15.16"/>
+<polygon fill="#000000" stroke="#000000" points="546.22,-11.65 536.04,-14.59 545.83,-18.64 546.22,-11.65"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-188.43 0,-188.43 0,-164.43 106,-164.43 106,-188.43"/>
-<text text-anchor="middle" x="53" y="-174.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C590.82,-47.02 556.15,-36.42 530.16,-27.38"/>
+<polygon fill="#000000" stroke="#000000" points="531.24,-24.05 520.65,-24.01 528.9,-30.65 531.24,-24.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.84,-66.37C687.03,-62.25 653.77,-56.6 624.5,-52"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-201 142,-201 142,-177 260,-177 260,-201"/>
+<text text-anchor="middle" x="201" y="-186.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.79,-174.4C413.36,-173.38 378.08,-173.36 347,-177.43"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-247C304.11,-249.06 255.91,-224.33 227.4,-206.51"/>
+<polygon fill="#000000" stroke="#000000" points="229.17,-203.49 218.87,-201.01 225.38,-209.37 229.17,-203.49"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C424.5,-206.62 414.44,-244.15 351.5,-247"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-149.43 299,-149.43 299,-125.43 393,-125.43 393,-149.43"/>
-<text text-anchor="middle" x="346" y="-135.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-143 441.5,-143 441.5,-119 535.5,-119 535.5,-143"/>
+<text text-anchor="middle" x="488.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-165.43C430.89,-161.31 414.54,-156.66 399.37,-152.34"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-148.93 389.61,-149.56 398.27,-155.67 400.19,-148.93"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C597.58,-170.52 569.9,-172.78 546.28,-174.37"/>
-<polygon fill="#000000" stroke="#000000" points="545.83,-170.89 536.08,-175.03 546.29,-177.88 545.83,-170.89"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M737.88,-84.24C724.56,-114.04 685.57,-189.18 624.5,-207"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-207C576.69,-220.36 529.76,-177.66 505.78,-150.91"/>
+<polygon fill="#000000" stroke="#000000" points="508.3,-148.47 499.1,-143.21 503.01,-153.06 508.3,-148.47"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-130.43 572,-130.43 572,-106.43 675,-106.43 675,-130.43"/>
-<text text-anchor="middle" x="623.5" y="-116.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-219 296,-219 296,-195 405,-195 405,-219"/>
+<text text-anchor="middle" x="350.5" y="-204.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-138.85C702.96,-136.97 694.16,-134.89 685.31,-132.8"/>
-<polygon fill="#000000" stroke="#000000" points="685.87,-129.34 675.33,-130.44 684.26,-136.15 685.87,-129.34"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C463.95,-207 438.11,-207 415.34,-207"/>
+<polygon fill="#000000" stroke="#000000" points="415.11,-203.5 405.11,-207 415.11,-210.5 415.11,-203.5"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-73.43 143,-73.43 143,-49.43 250,-49.43 250,-73.43"/>
-<text text-anchor="middle" x="196.5" y="-59.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-103 147.5,-103 147.5,-79 254.5,-79 254.5,-103"/>
+<text text-anchor="middle" x="201" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-21.43C307.79,-24.17 266.96,-35.97 237.71,-46.05"/>
-<polygon fill="#000000" stroke="#000000" points="236.52,-42.75 228.26,-49.38 238.85,-49.35 236.52,-42.75"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-207C465.07,-207 315.96,-153.24 296,-143 278.44,-133.99 277.09,-126.87 260,-117 254.09,-113.59 247.66,-110.31 241.29,-107.3"/>
+<polygon fill="#000000" stroke="#000000" points="242.64,-104.07 232.09,-103.09 239.73,-110.43 242.64,-104.07"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-207C565.75,-223.55 548.61,-207.36 489.5,-207"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M736.88,-134.1C722.17,-106.22 681.8,-39.2 624.5,-19.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-21.43C171.79,-30.05 161.8,-24.78 142,-40.43 102.73,-71.47 75.52,-125.1 62.59,-154.9"/>
-<polygon fill="#000000" stroke="#000000" points="59.26,-153.79 58.62,-164.37 65.71,-156.5 59.26,-153.79"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-21.43C279.62,-26.24 259.11,0.97 197.5,-21.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-19.43C506.75,20.51 469.12,-12.44 347,-21.43"/>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-63 303.5,-63 303.5,-39 397.5,-39 397.5,-63"/>
+<text text-anchor="middle" x="350.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-71.43 441.5,-71.43 441.5,-47.43 535.5,-47.43 535.5,-71.43"/>
-<text text-anchor="middle" x="488.5" y="-57.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-52C549.14,-40.48 463.23,-42.78 408.13,-46.25"/>
+<polygon fill="#000000" stroke="#000000" points="407.62,-42.77 397.87,-46.93 408.08,-49.76 407.62,-42.77"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-104 572,-104 572,-80 675,-80 675,-104"/>
+<text text-anchor="middle" x="623.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-19.43C604.56,-13.24 558.37,-29.8 525.47,-43.46"/>
-<polygon fill="#000000" stroke="#000000" points="524.01,-40.28 516.16,-47.4 526.73,-46.73 524.01,-40.28"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-77.41C702.96,-78.76 694.16,-80.24 685.31,-81.74"/>
+<polygon fill="#000000" stroke="#000000" points="684.61,-78.3 675.33,-83.42 685.78,-85.21 684.61,-78.3"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-228.43 142,-228.43 142,-204.43 251,-204.43 251,-228.43"/>
-<text text-anchor="middle" x="196.5" y="-214.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-143 0,-143 0,-119 106,-119 106,-143"/>
+<text text-anchor="middle" x="53" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-217.43C411.4,-236.34 320.57,-231.88 261.09,-225.47"/>
-<polygon fill="#000000" stroke="#000000" points="261.42,-221.99 251.09,-224.35 260.63,-228.94 261.42,-221.99"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C559.98,-176.34 550.43,-200.84 489.5,-217.43"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-247C255.92,-251.24 226.19,-251.08 142,-210 113.04,-195.87 86.51,-169.37 70.32,-150.98"/>
+<polygon fill="#000000" stroke="#000000" points="72.8,-148.49 63.63,-143.17 67.48,-153.04 72.8,-148.49"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-167.43C584.04,-172.19 574.51,-160.81 536,-156.43 491.52,-151.37 441.08,-146.33 403.49,-142.72"/>
-<polygon fill="#000000" stroke="#000000" points="403.54,-139.21 393.25,-141.74 402.87,-146.17 403.54,-139.21"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.91,-152.72C687.12,-157.24 653.87,-163.24 624.5,-167.43"/>
-</g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~rmvs_util.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-268.43 287,-268.43 287,-244.43 405,-244.43 405,-268.43"/>
-<text text-anchor="middle" x="346" y="-254.03" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
-</a>
-</g>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.59,-24.02C432.27,-27.84 417.38,-32.11 403.45,-36.1"/>
+<polygon fill="#000000" stroke="#000000" points="402.16,-32.83 393.51,-38.95 404.09,-39.56 402.16,-32.83"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-217.43C457.66,-224.85 424.5,-234.01 397.89,-241.59"/>
-<polygon fill="#000000" stroke="#000000" points="396.69,-238.29 388.04,-244.41 398.61,-245.02 396.69,-238.29"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-51C173.7,-57.65 166.29,-57.92 142,-70 118.47,-81.7 94.09,-99.08 76.98,-112.3"/>
+<polygon fill="#000000" stroke="#000000" points="74.43,-109.84 68.74,-118.78 78.76,-115.35 74.43,-109.84"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.86,-14.73C401.96,-17.41 345.15,-22.23 296,-30 253.72,-36.68 243.5,-40.5 202,-51"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.26,-130.51C575.27,-139.38 547.9,-151.52 526.01,-161.23"/>
-<polygon fill="#000000" stroke="#000000" points="524.42,-158.11 516.7,-165.36 527.26,-164.51 524.42,-158.11"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M572.17,-106.37C547.38,-101.68 516.97,-97.77 489.5,-99.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-99.43C406.65,-104.32 313.95,-88.36 255.57,-75.64"/>
-<polygon fill="#000000" stroke="#000000" points="256.31,-72.22 245.79,-73.47 254.79,-79.05 256.31,-72.22"/>
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.75,-176.98C147.73,-168.23 117.69,-156.3 93.73,-146.78"/>
+<polygon fill="#000000" stroke="#000000" points="94.8,-143.44 84.21,-143 92.21,-149.95 94.8,-143.44"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-177.43C280,-185.94 262.93,-172.29 197.5,-176.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-99.43C442.48,-101.63 445.22,-138.07 405,-158.43 380.8,-170.68 373.9,-173.91 347,-177.43"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.5,-131.52C415.13,-131.52 381.42,-131.01 351.5,-129"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-129C313.27,-126.56 273.47,-115.81 244.36,-106.36"/>
+<polygon fill="#000000" stroke="#000000" points="245.12,-102.92 234.53,-103.09 242.91,-109.57 245.12,-102.92"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.26,-106.35C575.27,-97.48 547.9,-85.34 526.01,-75.63"/>
-<polygon fill="#000000" stroke="#000000" points="527.26,-72.35 516.7,-71.5 524.42,-78.75 527.26,-72.35"/>
-</g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.62,-73.52C155.95,-93.57 106.4,-133.84 77.13,-157.63"/>
-<polygon fill="#000000" stroke="#000000" points="74.65,-155.13 69.1,-164.16 79.07,-160.57 74.65,-155.13"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-59.43C317.24,-57.76 286.49,-57.87 260.29,-58.55"/>
-<polygon fill="#000000" stroke="#000000" points="260,-55.05 250.11,-58.84 260.21,-62.05 260,-55.05"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.52,-118.97C454.11,-107.57 428.38,-90.26 405,-77 399.34,-73.79 393.23,-70.59 387.23,-67.58"/>
+<polygon fill="#000000" stroke="#000000" points="388.49,-64.3 377.97,-63.04 385.41,-70.58 388.49,-64.3"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge16" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.26,-60.82C413.84,-61.3 378.41,-61.31 347,-59.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-59.43C277.43,-55.38 261.12,1.7 197.5,-21.43"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.85,-71.45C442.31,-84.52 404.46,-105.53 377.82,-120.32"/>
-<polygon fill="#000000" stroke="#000000" points="375.95,-117.36 368.9,-125.27 379.34,-123.48 375.95,-117.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-131C172.68,-127.67 142.27,-127.16 116.3,-127.69"/>
+<polygon fill="#000000" stroke="#000000" points="116.12,-124.19 106.22,-127.95 116.3,-131.19 116.12,-124.19"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-129C284.09,-124.6 267.08,-138.93 202,-131"/>
 </g>
 <!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-204.43C138.49,-200.31 122.02,-195.66 106.74,-191.34"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-187.91 96.91,-188.56 105.58,-194.65 107.49,-187.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.1,-194.89C315.18,-190.57 305.11,-185.64 296,-181 253.82,-159.54 248.97,-136.73 202,-131"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge18" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-103C140.96,-107.17 123.7,-111.9 107.75,-116.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-112.92 98.03,-118.94 108.6,-119.67 106.75,-112.92"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge23" class="edge">
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge19" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.74,-125.36C307.21,-121.13 296.57,-116.23 287,-111.43 266.6,-101.19 244.18,-88.66 226.88,-78.7"/>
-<polygon fill="#000000" stroke="#000000" points="228.25,-75.45 217.84,-73.47 224.74,-81.51 228.25,-75.45"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-63C289.86,-67.17 272.41,-71.9 256.31,-76.27"/>
+<polygon fill="#000000" stroke="#000000" points="255.21,-72.94 246.48,-78.94 257.05,-79.7 255.21,-72.94"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge20" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-176.43C169.65,-178.07 141.09,-178.35 116.44,-178.13"/>
-<polygon fill="#000000" stroke="#000000" points="116.17,-174.62 106.13,-178 116.09,-181.62 116.17,-174.62"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M313.94,-149.44C284.49,-159.91 238.74,-173.82 197.5,-176.43"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.27,-45.24C273.83,-42.98 235.14,-42.62 202,-51"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-79.94C589.52,-75.71 580.27,-70.82 572,-66 552.53,-54.66 531.27,-40.7 515.21,-29.82"/>
+<polygon fill="#000000" stroke="#000000" points="517.1,-26.87 506.87,-24.13 513.16,-32.66 517.1,-26.87"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M581.51,-104.02C568.49,-107.84 553.93,-112.11 540.31,-116.1"/>
+<polygon fill="#000000" stroke="#000000" points="539.19,-112.78 530.58,-118.95 541.16,-119.5 539.19,-112.78"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-91C321.76,-89.15 291.01,-88.87 264.8,-89.16"/>
+<polygon fill="#000000" stroke="#000000" points="264.57,-85.66 254.62,-89.31 264.67,-92.66 264.57,-85.66"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~rmvs_util.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.85,-258.72C245.31,-258.53 188.72,-254.47 142,-237.43 116.34,-228.07 91.14,-209.36 74.33,-195.11"/>
-<polygon fill="#000000" stroke="#000000" points="76.62,-192.47 66.79,-188.54 72.03,-197.75 76.62,-192.47"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-91C281.73,-86.49 268.07,-35.22 202,-51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.99,-93.7C517.51,-95.1 428.26,-96.11 351.5,-91"/>
 </g>
 </g>
 </svg>
@@ -574,373 +573,376 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-11"></a>      <span class="c">!! Arguments</span>
 <a name="ln-12"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_pl</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! RMVS massive body object</span>
 <a name="ln-13"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
-<a name="ln-14"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-14"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
 <a name="ln-15"></a>
 <a name="ln-16"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
 <a name="ln-17"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
-<a name="ln-18"></a>         <span class="k">call </span><span class="n">whm_util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-19"></a>
-<a name="ln-20"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-21"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-22"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">plind</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">plind</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-23"></a>
-<a name="ln-24"></a>         <span class="c">! The following are not implemented as RMVS doesn&#39;t make use of fill operations on pl type</span>
-<a name="ln-25"></a>         <span class="c">! So they are here as a placeholder in case someone wants to extend the RMVS class for some reason</span>
-<a name="ln-26"></a>         <span class="c">!call util_append(self%outer, source%outer, lsource_mask)</span>
-<a name="ln-27"></a>         <span class="c">!call util_append(self%inner, source%inner, lsource_mask)</span>
-<a name="ln-28"></a>         <span class="c">!call util_append(self%planetocentric, source%planetocentric, lsource_mask)</span>
-<a name="ln-29"></a>      <span class="k">class </span><span class="n">default</span>
-<a name="ln-30"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the append method. Source must be of class rmvs_pl or its descendents!&quot;</span>
-<a name="ln-31"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-32"></a>      <span class="k">end select</span>
-<a name="ln-33"></a>
-<a name="ln-34"></a><span class="k">      return</span>
-<a name="ln-35"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_append_pl</span>
-<a name="ln-36"></a>
-<a name="ln-37"></a>
-<a name="ln-38"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_append_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-39"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-40"></a>      <span class="c">!!</span>
-<a name="ln-41"></a>      <span class="c">!! Append components from test particle object to another. </span>
-<a name="ln-42"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
-<a name="ln-43"></a>      <span class="k">implicit none</span>
-<a name="ln-44"></a>      <span class="c">!! Arguments</span>
-<a name="ln-45"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_tp</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! RMVS test particle object</span>
-<a name="ln-46"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
-<a name="ln-47"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-48"></a>
-<a name="ln-49"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
-<a name="ln-50"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_tp</span><span class="p">)</span>
-<a name="ln-51"></a>         <span class="k">call </span><span class="n">util_append_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>  <span class="c">! Note: whm_tp does not have its own append method, so we skip back to the base class</span>
-<a name="ln-52"></a>
-<a name="ln-53"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lperi</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">lperi</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-54"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">plperP</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">plperP</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-55"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">plencP</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">plencP</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-56"></a>      <span class="k">class </span><span class="n">default</span>
-<a name="ln-57"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the append method. Source must be of class rmvs_tp or its descendents!&quot;</span>
-<a name="ln-58"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-59"></a>      <span class="k">end select</span>
-<a name="ln-60"></a>
-<a name="ln-61"></a><span class="k">      return</span>
-<a name="ln-62"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_append_tp</span>
-<a name="ln-63"></a>
+<a name="ln-18"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">nold</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">nsrc</span> <span class="o">=&gt;</span> <span class="n">source</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-19"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-20"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-21"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">plind</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">plind</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-22"></a>
+<a name="ln-23"></a>            <span class="c">! The following are not implemented as RMVS doesn&#39;t make use of fill operations on pl type</span>
+<a name="ln-24"></a>            <span class="c">! So they are here as a placeholder in case someone wants to extend the RMVS class for some reason</span>
+<a name="ln-25"></a>            <span class="c">!call util_append(self%outer, source%outer, nold, nsrc, lsource_mask)</span>
+<a name="ln-26"></a>            <span class="c">!call util_append(self%inner, source%inner, nold, nsrc, lsource_mask)</span>
+<a name="ln-27"></a>            <span class="c">!call util_append(self%planetocentric, source%planetocentric, nold, nsrc, lsource_mask)</span>
+<a name="ln-28"></a>
+<a name="ln-29"></a>            <span class="k">call </span><span class="n">whm_util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-30"></a>         <span class="k">end associate</span>
+<a name="ln-31"></a><span class="k">      class </span><span class="n">default</span>
+<a name="ln-32"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the append method. Source must be of class rmvs_pl or its descendents!&quot;</span>
+<a name="ln-33"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-34"></a>      <span class="k">end select</span>
+<a name="ln-35"></a>
+<a name="ln-36"></a><span class="k">      return</span>
+<a name="ln-37"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_append_pl</span>
+<a name="ln-38"></a>
+<a name="ln-39"></a>
+<a name="ln-40"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_append_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-41"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-42"></a>      <span class="c">!!</span>
+<a name="ln-43"></a>      <span class="c">!! Append components from test particle object to another. </span>
+<a name="ln-44"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
+<a name="ln-45"></a>      <span class="k">implicit none</span>
+<a name="ln-46"></a>      <span class="c">!! Arguments</span>
+<a name="ln-47"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_tp</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! RMVS test particle object</span>
+<a name="ln-48"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
+<a name="ln-49"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-50"></a>
+<a name="ln-51"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
+<a name="ln-52"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_tp</span><span class="p">)</span>
+<a name="ln-53"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">nold</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">nsrc</span> <span class="o">=&gt;</span> <span class="n">source</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-54"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lperi</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">lperi</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-55"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">plperP</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">plperP</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-56"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">plencP</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">plencP</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-57"></a>
+<a name="ln-58"></a>            <span class="k">call </span><span class="n">util_append_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>  <span class="c">! Note: whm_tp does not have its own append method, so we skip back to the base class</span>
+<a name="ln-59"></a>         <span class="k">end associate</span>
+<a name="ln-60"></a><span class="k">      class </span><span class="n">default</span>
+<a name="ln-61"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the append method. Source must be of class rmvs_tp or its descendents!&quot;</span>
+<a name="ln-62"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-63"></a>      <span class="k">end select</span>
 <a name="ln-64"></a>
-<a name="ln-65"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_fill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-66"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-67"></a>      <span class="c">!!</span>
-<a name="ln-68"></a>      <span class="c">!! Insert new RMVS massive body structure into an old one. </span>
-<a name="ln-69"></a>      <span class="c">!! This is the inverse of a fill operation.</span>
-<a name="ln-70"></a>      <span class="c">!! </span>
-<a name="ln-71"></a>      <span class="k">implicit none</span>
-<a name="ln-72"></a>      <span class="c">! Arguments</span>
-<a name="ln-73"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_pl</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! RMVS massive body object</span>
-<a name="ln-74"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Inserted object </span>
-<a name="ln-75"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-76"></a>      <span class="c">! Internals</span>
-<a name="ln-77"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-78"></a>
-<a name="ln-79"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
-<a name="ln-80"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">inserts</span><span class="p">)</span>
-<a name="ln-81"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
-<a name="ln-82"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-83"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-84"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">plind</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">plind</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-85"></a>
-<a name="ln-86"></a>            <span class="c">! The following are not implemented as RMVS doesn&#39;t make use of fill operations on pl type</span>
-<a name="ln-87"></a>            <span class="c">! So they are here as a placeholder in case someone wants to extend the RMVS class for some reason</span>
-<a name="ln-88"></a>            <span class="c">!call util_fill(keeps%outer, inserts%outer, lfill_list)</span>
-<a name="ln-89"></a>            <span class="c">!call util_fill(keeps%inner, inserts%inner, lfill_list)</span>
-<a name="ln-90"></a>            <span class="c">!call util_fill(keeps%planetocentric, inserts%planetocentric, lfill_list)</span>
-<a name="ln-91"></a>
-<a name="ln-92"></a>            <span class="k">call </span><span class="n">whm_util_fill_pl</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-93"></a>         <span class="k">class </span><span class="n">default</span>
-<a name="ln-94"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the fill method. Source must be of class rmvs_pl or its descendents!&quot;</span>
-<a name="ln-95"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-96"></a>         <span class="k">end select</span>
-<a name="ln-97"></a><span class="k">      end associate</span>
-<a name="ln-98"></a>
-<a name="ln-99"></a><span class="k">      return</span>
-<a name="ln-100"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_fill_pl</span>
-<a name="ln-101"></a>
+<a name="ln-65"></a><span class="k">      return</span>
+<a name="ln-66"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_append_tp</span>
+<a name="ln-67"></a>
+<a name="ln-68"></a>
+<a name="ln-69"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_fill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-70"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-71"></a>      <span class="c">!!</span>
+<a name="ln-72"></a>      <span class="c">!! Insert new RMVS massive body structure into an old one. </span>
+<a name="ln-73"></a>      <span class="c">!! This is the inverse of a fill operation.</span>
+<a name="ln-74"></a>      <span class="c">!! </span>
+<a name="ln-75"></a>      <span class="k">implicit none</span>
+<a name="ln-76"></a>      <span class="c">! Arguments</span>
+<a name="ln-77"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_pl</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! RMVS massive body object</span>
+<a name="ln-78"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Inserted object </span>
+<a name="ln-79"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-80"></a>      <span class="c">! Internals</span>
+<a name="ln-81"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-82"></a>
+<a name="ln-83"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-84"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">inserts</span><span class="p">)</span>
+<a name="ln-85"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
+<a name="ln-86"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-87"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-88"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">plind</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">plind</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-89"></a>
+<a name="ln-90"></a>            <span class="c">! The following are not implemented as RMVS doesn&#39;t make use of fill operations on pl type</span>
+<a name="ln-91"></a>            <span class="c">! So they are here as a placeholder in case someone wants to extend the RMVS class for some reason</span>
+<a name="ln-92"></a>            <span class="c">!call util_fill(keeps%outer, inserts%outer, lfill_list)</span>
+<a name="ln-93"></a>            <span class="c">!call util_fill(keeps%inner, inserts%inner, lfill_list)</span>
+<a name="ln-94"></a>            <span class="c">!call util_fill(keeps%planetocentric, inserts%planetocentric, lfill_list)</span>
+<a name="ln-95"></a>
+<a name="ln-96"></a>            <span class="k">call </span><span class="n">whm_util_fill_pl</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-97"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-98"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the fill method. Source must be of class rmvs_pl or its descendents!&quot;</span>
+<a name="ln-99"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-100"></a>         <span class="k">end select</span>
+<a name="ln-101"></a><span class="k">      end associate</span>
 <a name="ln-102"></a>
-<a name="ln-103"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_fill_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-104"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-105"></a>      <span class="c">!!</span>
-<a name="ln-106"></a>      <span class="c">!! Insert new RMVS test particle structure into an old one. </span>
-<a name="ln-107"></a>      <span class="c">!! This is the inverse of a fill operation.</span>
-<a name="ln-108"></a>      <span class="c">!! </span>
-<a name="ln-109"></a>      <span class="k">implicit none</span>
-<a name="ln-110"></a>      <span class="c">! Arguments</span>
-<a name="ln-111"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_tp</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! RMVS test particle object</span>
-<a name="ln-112"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Inserted object </span>
-<a name="ln-113"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-114"></a>
-<a name="ln-115"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
-<a name="ln-116"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">inserts</span><span class="p">)</span>
-<a name="ln-117"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_tp</span><span class="p">)</span>
-<a name="ln-118"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">lperi</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">lperi</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-119"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">plperP</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">plperP</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-120"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">plencP</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">plencP</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-121"></a>            
-<a name="ln-122"></a>            <span class="k">call </span><span class="n">util_fill_tp</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span> <span class="c">! Note: whm_tp does not have its own fill method, so we skip back to the base class</span>
-<a name="ln-123"></a>         <span class="k">class </span><span class="n">default</span>
-<a name="ln-124"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the fill method. Source must be of class rmvs_tp or its descendents!&quot;</span>
-<a name="ln-125"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-126"></a>         <span class="k">end select</span>
-<a name="ln-127"></a><span class="k">      end associate</span>
-<a name="ln-128"></a>
-<a name="ln-129"></a><span class="k">      return</span>
-<a name="ln-130"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_fill_tp</span>
-<a name="ln-131"></a>
+<a name="ln-103"></a><span class="k">      return</span>
+<a name="ln-104"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_fill_pl</span>
+<a name="ln-105"></a>
+<a name="ln-106"></a>
+<a name="ln-107"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_fill_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-108"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-109"></a>      <span class="c">!!</span>
+<a name="ln-110"></a>      <span class="c">!! Insert new RMVS test particle structure into an old one. </span>
+<a name="ln-111"></a>      <span class="c">!! This is the inverse of a fill operation.</span>
+<a name="ln-112"></a>      <span class="c">!! </span>
+<a name="ln-113"></a>      <span class="k">implicit none</span>
+<a name="ln-114"></a>      <span class="c">! Arguments</span>
+<a name="ln-115"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_tp</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! RMVS test particle object</span>
+<a name="ln-116"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Inserted object </span>
+<a name="ln-117"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-118"></a>
+<a name="ln-119"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-120"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">inserts</span><span class="p">)</span>
+<a name="ln-121"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_tp</span><span class="p">)</span>
+<a name="ln-122"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">lperi</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">lperi</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-123"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">plperP</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">plperP</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-124"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">plencP</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">plencP</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-125"></a>            
+<a name="ln-126"></a>            <span class="k">call </span><span class="n">util_fill_tp</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span> <span class="c">! Note: whm_tp does not have its own fill method, so we skip back to the base class</span>
+<a name="ln-127"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-128"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the fill method. Source must be of class rmvs_tp or its descendents!&quot;</span>
+<a name="ln-129"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-130"></a>         <span class="k">end select</span>
+<a name="ln-131"></a><span class="k">      end associate</span>
 <a name="ln-132"></a>
-<a name="ln-133"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-134"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-135"></a>      <span class="c">!!</span>
-<a name="ln-136"></a>      <span class="c">!! Checks the current size of a massive body object against the requested size and resizes it if it is too small.</span>
-<a name="ln-137"></a>      <span class="k">implicit none</span>
-<a name="ln-138"></a>      <span class="c">! Arguments</span>
-<a name="ln-139"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! RMVS massive body object</span>
-<a name="ln-140"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
-<a name="ln-141"></a>
-<a name="ln-142"></a>      <span class="k">call </span><span class="n">whm_util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-143"></a>
-<a name="ln-144"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-145"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-146"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">plind</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-147"></a>
-<a name="ln-148"></a>      <span class="c">! The following are not implemented as RMVS doesn&#39;t make use of resize operations on pl type</span>
-<a name="ln-149"></a>      <span class="c">! So they are here as a placeholder in case someone wants to extend the RMVS class for some reason</span>
-<a name="ln-150"></a>      <span class="c">!call util_resize(self%outer, nnew)</span>
-<a name="ln-151"></a>      <span class="c">!call util_resize(self%inner, nnew)</span>
-<a name="ln-152"></a>      <span class="c">!call util_resize(self%planetocentric, nnew)</span>
-<a name="ln-153"></a>
-<a name="ln-154"></a>      <span class="k">return</span>
-<a name="ln-155"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_resize_pl</span>
-<a name="ln-156"></a>
-<a name="ln-157"></a>
-<a name="ln-158"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_resize_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-159"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-160"></a>      <span class="c">!!</span>
-<a name="ln-161"></a>      <span class="c">!! Checks the current size of a test particle object against the requested size and resizes it if it is too small.</span>
-<a name="ln-162"></a>      <span class="k">implicit none</span>
-<a name="ln-163"></a>      <span class="c">! Arguments</span>
-<a name="ln-164"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! RMVS test particle object</span>
-<a name="ln-165"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
-<a name="ln-166"></a>
-<a name="ln-167"></a>      <span class="k">call </span><span class="n">util_resize_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-168"></a>
-<a name="ln-169"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lperi</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-170"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">plperP</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-171"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">plencP</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-172"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xheliocentric</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-173"></a>
-<a name="ln-174"></a>      <span class="k">return</span>
-<a name="ln-175"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_resize_tp</span>
+<a name="ln-133"></a><span class="k">      return</span>
+<a name="ln-134"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_fill_tp</span>
+<a name="ln-135"></a>
+<a name="ln-136"></a>
+<a name="ln-137"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-138"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-139"></a>      <span class="c">!!</span>
+<a name="ln-140"></a>      <span class="c">!! Checks the current size of a massive body object against the requested size and resizes it if it is too small.</span>
+<a name="ln-141"></a>      <span class="k">implicit none</span>
+<a name="ln-142"></a>      <span class="c">! Arguments</span>
+<a name="ln-143"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! RMVS massive body object</span>
+<a name="ln-144"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
+<a name="ln-145"></a>
+<a name="ln-146"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-147"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-148"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">plind</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-149"></a>
+<a name="ln-150"></a>      <span class="c">! The following are not implemented as RMVS doesn&#39;t make use of resize operations on pl type</span>
+<a name="ln-151"></a>      <span class="c">! So they are here as a placeholder in case someone wants to extend the RMVS class for some reason</span>
+<a name="ln-152"></a>      <span class="c">!call util_resize(self%outer, nnew)</span>
+<a name="ln-153"></a>      <span class="c">!call util_resize(self%inner, nnew)</span>
+<a name="ln-154"></a>      <span class="c">!call util_resize(self%planetocentric, nnew)</span>
+<a name="ln-155"></a>
+<a name="ln-156"></a>      <span class="k">call </span><span class="n">whm_util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-157"></a>      <span class="k">return</span>
+<a name="ln-158"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_resize_pl</span>
+<a name="ln-159"></a>
+<a name="ln-160"></a>
+<a name="ln-161"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_resize_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-162"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-163"></a>      <span class="c">!!</span>
+<a name="ln-164"></a>      <span class="c">!! Checks the current size of a test particle object against the requested size and resizes it if it is too small.</span>
+<a name="ln-165"></a>      <span class="k">implicit none</span>
+<a name="ln-166"></a>      <span class="c">! Arguments</span>
+<a name="ln-167"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! RMVS test particle object</span>
+<a name="ln-168"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
+<a name="ln-169"></a>
+<a name="ln-170"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lperi</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-171"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">plperP</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-172"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">plencP</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-173"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xheliocentric</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-174"></a>
+<a name="ln-175"></a>      <span class="k">call </span><span class="n">util_resize_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
 <a name="ln-176"></a>
-<a name="ln-177"></a>
-<a name="ln-178"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_sort_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
-<a name="ln-179"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-180"></a>      <span class="c">!!</span>
-<a name="ln-181"></a>      <span class="c">!! Sort a RMVS massive body object in-place. </span>
-<a name="ln-182"></a>      <span class="c">!! sortby is a string indicating which array component to sort.</span>
-<a name="ln-183"></a>      <span class="k">implicit none</span>
-<a name="ln-184"></a>      <span class="c">! Arguments</span>
-<a name="ln-185"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! RMVS massive body object</span>
-<a name="ln-186"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>     <span class="kd">::</span> <span class="n">sortby</span>    <span class="c">!! Sorting attribute</span>
-<a name="ln-187"></a>      <span class="kt">logical</span><span class="p">,</span>        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>     <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
-<a name="ln-188"></a>      <span class="c">! Internals</span>
-<a name="ln-189"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ind</span>
-<a name="ln-190"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">direction</span>
-<a name="ln-191"></a>
-<a name="ln-192"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ascending</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-193"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-194"></a>      <span class="k">else</span>
-<a name="ln-195"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-196"></a>      <span class="k">end if</span>
-<a name="ln-197"></a>
-<a name="ln-198"></a><span class="k">      associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
-<a name="ln-199"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
-<a name="ln-200"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;nenc&quot;</span><span class="p">)</span>
-<a name="ln-201"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">nenc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-202"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;tpenc1P&quot;</span><span class="p">)</span>
-<a name="ln-203"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-204"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;plind&quot;</span><span class="p">)</span>
-<a name="ln-205"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">plind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-206"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;outer&quot;</span><span class="p">,</span> <span class="s2">&quot;inner&quot;</span><span class="p">,</span> <span class="s2">&quot;planetocentric&quot;</span><span class="p">,</span> <span class="s2">&quot;lplanetocentric&quot;</span><span class="p">)</span>
-<a name="ln-207"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Cannot sort by &#39;</span> <span class="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">sortby</span><span class="p">))</span> <span class="o">//</span> <span class="s1">&#39;. Component not sortable!&#39;</span>
-<a name="ln-208"></a>         <span class="k">case </span><span class="n">default</span> <span class="c">! Look for components in the parent class</span>
-<a name="ln-209"></a>            <span class="k">call </span><span class="n">whm_util_sort_pl</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
-<a name="ln-210"></a>            <span class="k">return</span>
-<a name="ln-211"></a><span class="k">         end select</span>
-<a name="ln-212"></a>
-<a name="ln-213"></a><span class="k">         call </span><span class="n">pl</span><span class="p">%</span><span class="n">rearrange</span><span class="p">(</span><span class="n">ind</span><span class="p">)</span>
-<a name="ln-214"></a>
-<a name="ln-215"></a>      <span class="k">end associate</span>
-<a name="ln-216"></a><span class="k">      return</span>
-<a name="ln-217"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_sort_pl</span>
-<a name="ln-218"></a>
-<a name="ln-219"></a>
-<a name="ln-220"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_sort_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
-<a name="ln-221"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-222"></a>      <span class="c">!!</span>
-<a name="ln-223"></a>      <span class="c">!! Sort a RMVS test particle object in-place. </span>
-<a name="ln-224"></a>      <span class="c">!! sortby is a string indicating which array component to sort.</span>
-<a name="ln-225"></a>      <span class="k">implicit none</span>
-<a name="ln-226"></a>      <span class="c">! Arguments</span>
-<a name="ln-227"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! RMVS test particle object</span>
-<a name="ln-228"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>    <span class="c">!! Sorting attribute</span>
-<a name="ln-229"></a>      <span class="kt">logical</span><span class="p">,</span>        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
-<a name="ln-230"></a>      <span class="c">! Internals</span>
-<a name="ln-231"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ind</span>
-<a name="ln-232"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                        <span class="kd">::</span> <span class="n">direction</span>
-<a name="ln-233"></a>
-<a name="ln-234"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ascending</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-235"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-236"></a>      <span class="k">else</span>
-<a name="ln-237"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-238"></a>      <span class="k">end if</span>
-<a name="ln-239"></a>
-<a name="ln-240"></a><span class="k">      associate</span><span class="p">(</span><span class="n">tp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
-<a name="ln-241"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
-<a name="ln-242"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;plperP&quot;</span><span class="p">)</span>
-<a name="ln-243"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">tp</span><span class="p">%</span><span class="n">plperP</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
-<a name="ln-244"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;plencP&quot;</span><span class="p">)</span>
-<a name="ln-245"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">tp</span><span class="p">%</span><span class="n">plencP</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
-<a name="ln-246"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;lperi&quot;</span><span class="p">,</span> <span class="s2">&quot;cb_heliocentric&quot;</span><span class="p">,</span> <span class="s2">&quot;xheliocentric&quot;</span><span class="p">,</span> <span class="s2">&quot;index&quot;</span><span class="p">,</span> <span class="s2">&quot;ipleP&quot;</span><span class="p">,</span> <span class="s2">&quot;lplanetocentric&quot;</span><span class="p">)</span>
-<a name="ln-247"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Cannot sort by &#39;</span> <span class="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">sortby</span><span class="p">))</span> <span class="o">//</span> <span class="s1">&#39;. Component not sortable!&#39;</span>
-<a name="ln-248"></a>         <span class="k">case </span><span class="n">default</span> <span class="c">! Look for components in the parent class (*NOTE whm_tp does not need its own sort method, so we go straight to the swiftest_tp method)</span>
-<a name="ln-249"></a>            <span class="k">call </span><span class="n">util_sort_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
-<a name="ln-250"></a>            <span class="k">return</span>
-<a name="ln-251"></a><span class="k">         end select</span>
-<a name="ln-252"></a>
-<a name="ln-253"></a><span class="k">         call </span><span class="n">tp</span><span class="p">%</span><span class="n">rearrange</span><span class="p">(</span><span class="n">ind</span><span class="p">)</span>
-<a name="ln-254"></a>
-<a name="ln-255"></a>      <span class="k">end associate</span>
-<a name="ln-256"></a><span class="k">      return</span>
-<a name="ln-257"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_sort_tp</span>
-<a name="ln-258"></a>
-<a name="ln-259"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_sort_rearrange_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
-<a name="ln-260"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-261"></a>      <span class="c">!!</span>
-<a name="ln-262"></a>      <span class="c">!! Rearrange RMVS massive body structure in-place from an index list.</span>
-<a name="ln-263"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
-<a name="ln-264"></a>      <span class="k">implicit none</span>
-<a name="ln-265"></a>      <span class="c">! Arguments</span>
-<a name="ln-266"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_pl</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! RMVS massive body object</span>
-<a name="ln-267"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>   <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
-<a name="ln-268"></a>      <span class="c">! Internals</span>
-<a name="ln-269"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_pl</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">pl_sorted</span>  <span class="c">!! Temporary holder for sorted body</span>
-<a name="ln-270"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-271"></a>
-<a name="ln-272"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-273"></a>
-<a name="ln-274"></a><span class="k">      associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
-<a name="ln-275"></a>         <span class="k">call </span><span class="n">util_sort_rearrange_pl</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span><span class="n">ind</span><span class="p">)</span>
-<a name="ln-276"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">pl_sorted</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">self</span><span class="p">)</span>
-<a name="ln-277"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">nenc</span><span class="p">))</span>    <span class="n">pl</span><span class="p">%</span><span class="n">nenc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">nenc</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-278"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">))</span> <span class="n">pl</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-279"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">plind</span><span class="p">))</span>   <span class="n">pl</span><span class="p">%</span><span class="n">plind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">plind</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-280"></a>         <span class="k">deallocate</span><span class="p">(</span><span class="n">pl_sorted</span><span class="p">)</span>
-<a name="ln-281"></a>      <span class="k">end associate</span>
-<a name="ln-282"></a>
-<a name="ln-283"></a><span class="k">      return</span>
-<a name="ln-284"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_sort_rearrange_pl</span>
+<a name="ln-177"></a>      <span class="k">return</span>
+<a name="ln-178"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_resize_tp</span>
+<a name="ln-179"></a>
+<a name="ln-180"></a>
+<a name="ln-181"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_sort_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
+<a name="ln-182"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-183"></a>      <span class="c">!!</span>
+<a name="ln-184"></a>      <span class="c">!! Sort a RMVS massive body object in-place. </span>
+<a name="ln-185"></a>      <span class="c">!! sortby is a string indicating which array component to sort.</span>
+<a name="ln-186"></a>      <span class="k">implicit none</span>
+<a name="ln-187"></a>      <span class="c">! Arguments</span>
+<a name="ln-188"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! RMVS massive body object</span>
+<a name="ln-189"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>     <span class="kd">::</span> <span class="n">sortby</span>    <span class="c">!! Sorting attribute</span>
+<a name="ln-190"></a>      <span class="kt">logical</span><span class="p">,</span>        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>     <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
+<a name="ln-191"></a>      <span class="c">! Internals</span>
+<a name="ln-192"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ind</span>
+<a name="ln-193"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">direction</span>
+<a name="ln-194"></a>
+<a name="ln-195"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ascending</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-196"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-197"></a>      <span class="k">else</span>
+<a name="ln-198"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-199"></a>      <span class="k">end if</span>
+<a name="ln-200"></a>
+<a name="ln-201"></a><span class="k">      associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-202"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
+<a name="ln-203"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;nenc&quot;</span><span class="p">)</span>
+<a name="ln-204"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">nenc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-205"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;tpenc1P&quot;</span><span class="p">)</span>
+<a name="ln-206"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-207"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;plind&quot;</span><span class="p">)</span>
+<a name="ln-208"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">plind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-209"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;outer&quot;</span><span class="p">,</span> <span class="s2">&quot;inner&quot;</span><span class="p">,</span> <span class="s2">&quot;planetocentric&quot;</span><span class="p">,</span> <span class="s2">&quot;lplanetocentric&quot;</span><span class="p">)</span>
+<a name="ln-210"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Cannot sort by &#39;</span> <span class="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">sortby</span><span class="p">))</span> <span class="o">//</span> <span class="s1">&#39;. Component not sortable!&#39;</span>
+<a name="ln-211"></a>         <span class="k">case </span><span class="n">default</span> <span class="c">! Look for components in the parent class</span>
+<a name="ln-212"></a>            <span class="k">call </span><span class="n">whm_util_sort_pl</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
+<a name="ln-213"></a>            <span class="k">return</span>
+<a name="ln-214"></a><span class="k">         end select</span>
+<a name="ln-215"></a>
+<a name="ln-216"></a><span class="k">         call </span><span class="n">pl</span><span class="p">%</span><span class="n">rearrange</span><span class="p">(</span><span class="n">ind</span><span class="p">)</span>
+<a name="ln-217"></a>
+<a name="ln-218"></a>      <span class="k">end associate</span>
+<a name="ln-219"></a><span class="k">      return</span>
+<a name="ln-220"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_sort_pl</span>
+<a name="ln-221"></a>
+<a name="ln-222"></a>
+<a name="ln-223"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_sort_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
+<a name="ln-224"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-225"></a>      <span class="c">!!</span>
+<a name="ln-226"></a>      <span class="c">!! Sort a RMVS test particle object in-place. </span>
+<a name="ln-227"></a>      <span class="c">!! sortby is a string indicating which array component to sort.</span>
+<a name="ln-228"></a>      <span class="k">implicit none</span>
+<a name="ln-229"></a>      <span class="c">! Arguments</span>
+<a name="ln-230"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! RMVS test particle object</span>
+<a name="ln-231"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>    <span class="c">!! Sorting attribute</span>
+<a name="ln-232"></a>      <span class="kt">logical</span><span class="p">,</span>        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
+<a name="ln-233"></a>      <span class="c">! Internals</span>
+<a name="ln-234"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ind</span>
+<a name="ln-235"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                        <span class="kd">::</span> <span class="n">direction</span>
+<a name="ln-236"></a>
+<a name="ln-237"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ascending</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-238"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-239"></a>      <span class="k">else</span>
+<a name="ln-240"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-241"></a>      <span class="k">end if</span>
+<a name="ln-242"></a>
+<a name="ln-243"></a><span class="k">      associate</span><span class="p">(</span><span class="n">tp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-244"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
+<a name="ln-245"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;plperP&quot;</span><span class="p">)</span>
+<a name="ln-246"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">tp</span><span class="p">%</span><span class="n">plperP</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-247"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;plencP&quot;</span><span class="p">)</span>
+<a name="ln-248"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">tp</span><span class="p">%</span><span class="n">plencP</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-249"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;lperi&quot;</span><span class="p">,</span> <span class="s2">&quot;cb_heliocentric&quot;</span><span class="p">,</span> <span class="s2">&quot;xheliocentric&quot;</span><span class="p">,</span> <span class="s2">&quot;index&quot;</span><span class="p">,</span> <span class="s2">&quot;ipleP&quot;</span><span class="p">,</span> <span class="s2">&quot;lplanetocentric&quot;</span><span class="p">)</span>
+<a name="ln-250"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Cannot sort by &#39;</span> <span class="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">sortby</span><span class="p">))</span> <span class="o">//</span> <span class="s1">&#39;. Component not sortable!&#39;</span>
+<a name="ln-251"></a>         <span class="k">case </span><span class="n">default</span> <span class="c">! Look for components in the parent class (*NOTE whm_tp does not need its own sort method, so we go straight to the swiftest_tp method)</span>
+<a name="ln-252"></a>            <span class="k">call </span><span class="n">util_sort_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
+<a name="ln-253"></a>            <span class="k">return</span>
+<a name="ln-254"></a><span class="k">         end select</span>
+<a name="ln-255"></a>
+<a name="ln-256"></a><span class="k">         call </span><span class="n">tp</span><span class="p">%</span><span class="n">rearrange</span><span class="p">(</span><span class="n">ind</span><span class="p">)</span>
+<a name="ln-257"></a>
+<a name="ln-258"></a>      <span class="k">end associate</span>
+<a name="ln-259"></a><span class="k">      return</span>
+<a name="ln-260"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_sort_tp</span>
+<a name="ln-261"></a>
+<a name="ln-262"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_sort_rearrange_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
+<a name="ln-263"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-264"></a>      <span class="c">!!</span>
+<a name="ln-265"></a>      <span class="c">!! Rearrange RMVS massive body structure in-place from an index list.</span>
+<a name="ln-266"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
+<a name="ln-267"></a>      <span class="k">implicit none</span>
+<a name="ln-268"></a>      <span class="c">! Arguments</span>
+<a name="ln-269"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_pl</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! RMVS massive body object</span>
+<a name="ln-270"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>   <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
+<a name="ln-271"></a>      <span class="c">! Internals</span>
+<a name="ln-272"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_pl</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">pl_sorted</span>  <span class="c">!! Temporary holder for sorted body</span>
+<a name="ln-273"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-274"></a>
+<a name="ln-275"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-276"></a>
+<a name="ln-277"></a><span class="k">      associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-278"></a>         <span class="k">call </span><span class="n">util_sort_rearrange_pl</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span><span class="n">ind</span><span class="p">)</span>
+<a name="ln-279"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">pl_sorted</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-280"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">nenc</span><span class="p">))</span>    <span class="n">pl</span><span class="p">%</span><span class="n">nenc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">nenc</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-281"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">))</span> <span class="n">pl</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-282"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">plind</span><span class="p">))</span>   <span class="n">pl</span><span class="p">%</span><span class="n">plind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">plind</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-283"></a>         <span class="k">deallocate</span><span class="p">(</span><span class="n">pl_sorted</span><span class="p">)</span>
+<a name="ln-284"></a>      <span class="k">end associate</span>
 <a name="ln-285"></a>
-<a name="ln-286"></a>
-<a name="ln-287"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_sort_rearrange_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
-<a name="ln-288"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-289"></a>      <span class="c">!!</span>
-<a name="ln-290"></a>      <span class="c">!! Rearrange RMVS test particle object in-place from an index list.</span>
-<a name="ln-291"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
-<a name="ln-292"></a>      <span class="k">implicit none</span>
-<a name="ln-293"></a>      <span class="c">! Arguments</span>
-<a name="ln-294"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_tp</span><span class="p">),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! RMVS test particle object</span>
-<a name="ln-295"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
-<a name="ln-296"></a>      <span class="c">! Internals</span>
-<a name="ln-297"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_tp</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tp_sorted</span>  <span class="c">!! Temporary holder for sorted body</span>
-<a name="ln-298"></a>
-<a name="ln-299"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-300"></a>
-<a name="ln-301"></a><span class="k">      associate</span><span class="p">(</span><span class="n">tp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
-<a name="ln-302"></a>         <span class="k">call </span><span class="n">util_sort_rearrange_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span><span class="n">ind</span><span class="p">)</span>
-<a name="ln-303"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">tp_sorted</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">self</span><span class="p">)</span>
-<a name="ln-304"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">lperi</span><span class="p">))</span>         <span class="n">tp</span><span class="p">%</span><span class="n">lperi</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp_sorted</span><span class="p">%</span><span class="n">lperi</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
-<a name="ln-305"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">plperP</span><span class="p">))</span>        <span class="n">tp</span><span class="p">%</span><span class="n">plperP</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp_sorted</span><span class="p">%</span><span class="n">plperP</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
-<a name="ln-306"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">plencP</span><span class="p">))</span>        <span class="n">tp</span><span class="p">%</span><span class="n">plencP</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp_sorted</span><span class="p">%</span><span class="n">plencP</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
-<a name="ln-307"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">xheliocentric</span><span class="p">))</span> <span class="n">tp</span><span class="p">%</span><span class="n">xheliocentric</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp_sorted</span><span class="p">%</span><span class="n">xheliocentric</span><span class="p">(:,</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
-<a name="ln-308"></a>         <span class="k">deallocate</span><span class="p">(</span><span class="n">tp_sorted</span><span class="p">)</span>
-<a name="ln-309"></a>      <span class="k">end associate</span>
-<a name="ln-310"></a>
-<a name="ln-311"></a><span class="k">      return</span>
-<a name="ln-312"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_sort_rearrange_tp</span>
-<a name="ln-313"></a>   
-<a name="ln-314"></a>
-<a name="ln-315"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_spill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-316"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-317"></a>      <span class="c">!!</span>
-<a name="ln-318"></a>      <span class="c">!! Move spilled (discarded) RMVS test particle structure from active list to discard list</span>
-<a name="ln-319"></a>      <span class="c">!! </span>
-<a name="ln-320"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine discard_discard_spill.f90</span>
-<a name="ln-321"></a>      <span class="k">implicit none</span>
-<a name="ln-322"></a>      <span class="c">! Arguments</span>
-<a name="ln-323"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_pl</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! RMVS massive body body object</span>
-<a name="ln-324"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Discarded object </span>
-<a name="ln-325"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
-<a name="ln-326"></a>      <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
-<a name="ln-327"></a>      <span class="c">! Internals</span>
-<a name="ln-328"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-329"></a>
-<a name="ln-330"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
-<a name="ln-331"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
-<a name="ln-332"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
-<a name="ln-333"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-334"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-335"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">plind</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">plind</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-336"></a>
-<a name="ln-337"></a>            <span class="k">call </span><span class="n">whm_util_spill_pl</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-338"></a>         <span class="k">class </span><span class="n">default</span>
-<a name="ln-339"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the spill method. Source must be of class rmvs_pl or its descendents!&quot;</span>
-<a name="ln-340"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-341"></a>         <span class="k">end select</span>
-<a name="ln-342"></a><span class="k">      end associate</span>
-<a name="ln-343"></a>
-<a name="ln-344"></a><span class="k">      return</span>
-<a name="ln-345"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_spill_pl</span>
+<a name="ln-286"></a><span class="k">      return</span>
+<a name="ln-287"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_sort_rearrange_pl</span>
+<a name="ln-288"></a>
+<a name="ln-289"></a>
+<a name="ln-290"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_sort_rearrange_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
+<a name="ln-291"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-292"></a>      <span class="c">!!</span>
+<a name="ln-293"></a>      <span class="c">!! Rearrange RMVS test particle object in-place from an index list.</span>
+<a name="ln-294"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
+<a name="ln-295"></a>      <span class="k">implicit none</span>
+<a name="ln-296"></a>      <span class="c">! Arguments</span>
+<a name="ln-297"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_tp</span><span class="p">),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! RMVS test particle object</span>
+<a name="ln-298"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
+<a name="ln-299"></a>      <span class="c">! Internals</span>
+<a name="ln-300"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_tp</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tp_sorted</span>  <span class="c">!! Temporary holder for sorted body</span>
+<a name="ln-301"></a>
+<a name="ln-302"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-303"></a>
+<a name="ln-304"></a><span class="k">      associate</span><span class="p">(</span><span class="n">tp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-305"></a>         <span class="k">call </span><span class="n">util_sort_rearrange_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span><span class="n">ind</span><span class="p">)</span>
+<a name="ln-306"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">tp_sorted</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-307"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">lperi</span><span class="p">))</span>         <span class="n">tp</span><span class="p">%</span><span class="n">lperi</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp_sorted</span><span class="p">%</span><span class="n">lperi</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-308"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">plperP</span><span class="p">))</span>        <span class="n">tp</span><span class="p">%</span><span class="n">plperP</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp_sorted</span><span class="p">%</span><span class="n">plperP</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-309"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">plencP</span><span class="p">))</span>        <span class="n">tp</span><span class="p">%</span><span class="n">plencP</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp_sorted</span><span class="p">%</span><span class="n">plencP</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-310"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">xheliocentric</span><span class="p">))</span> <span class="n">tp</span><span class="p">%</span><span class="n">xheliocentric</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp_sorted</span><span class="p">%</span><span class="n">xheliocentric</span><span class="p">(:,</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-311"></a>         <span class="k">deallocate</span><span class="p">(</span><span class="n">tp_sorted</span><span class="p">)</span>
+<a name="ln-312"></a>      <span class="k">end associate</span>
+<a name="ln-313"></a>
+<a name="ln-314"></a><span class="k">      return</span>
+<a name="ln-315"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_sort_rearrange_tp</span>
+<a name="ln-316"></a>   
+<a name="ln-317"></a>
+<a name="ln-318"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_spill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-319"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-320"></a>      <span class="c">!!</span>
+<a name="ln-321"></a>      <span class="c">!! Move spilled (discarded) RMVS test particle structure from active list to discard list</span>
+<a name="ln-322"></a>      <span class="c">!! </span>
+<a name="ln-323"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine discard_discard_spill.f90</span>
+<a name="ln-324"></a>      <span class="k">implicit none</span>
+<a name="ln-325"></a>      <span class="c">! Arguments</span>
+<a name="ln-326"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_pl</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! RMVS massive body body object</span>
+<a name="ln-327"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Discarded object </span>
+<a name="ln-328"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
+<a name="ln-329"></a>      <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
+<a name="ln-330"></a>      <span class="c">! Internals</span>
+<a name="ln-331"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-332"></a>
+<a name="ln-333"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-334"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-335"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_pl</span><span class="p">)</span>
+<a name="ln-336"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">nenc</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-337"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">tpenc1P</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-338"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">plind</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">plind</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-339"></a>
+<a name="ln-340"></a>            <span class="k">call </span><span class="n">whm_util_spill_pl</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-341"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-342"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the spill method. Source must be of class rmvs_pl or its descendents!&quot;</span>
+<a name="ln-343"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-344"></a>         <span class="k">end select</span>
+<a name="ln-345"></a><span class="k">      end associate</span>
 <a name="ln-346"></a>
-<a name="ln-347"></a>   
-<a name="ln-348"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_spill_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-349"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-350"></a>      <span class="c">!!</span>
-<a name="ln-351"></a>      <span class="c">!! Move spilled (discarded) RMVS test particle structure from active list to discard list</span>
-<a name="ln-352"></a>      <span class="c">!! </span>
-<a name="ln-353"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
-<a name="ln-354"></a>      <span class="k">implicit none</span>
-<a name="ln-355"></a>      <span class="c">! Arguments</span>
-<a name="ln-356"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_tp</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>        <span class="c">!! RMVS test particle object</span>
-<a name="ln-357"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>    <span class="c">!! Discarded object </span>
-<a name="ln-358"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span> <span class="c">!! Logical array of bodies to spill into the discards</span>
-<a name="ln-359"></a>      <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
-<a name="ln-360"></a>      <span class="c">! Internals</span>
-<a name="ln-361"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-362"></a>
-<a name="ln-363"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
-<a name="ln-364"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
-<a name="ln-365"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_tp</span><span class="p">)</span>
-<a name="ln-366"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">lperi</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">lperi</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-367"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">plperP</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">plperP</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-368"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">plencP</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">plencP</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-369"></a>
-<a name="ln-370"></a>            <span class="k">call </span><span class="n">util_spill_tp</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-371"></a>         <span class="k">class </span><span class="n">default</span>
-<a name="ln-372"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the spill method. Source must be of class rmvs_tp or its descendents!&quot;</span>
-<a name="ln-373"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-374"></a>         <span class="k">end select</span>
-<a name="ln-375"></a><span class="k">      end associate</span>
-<a name="ln-376"></a>
-<a name="ln-377"></a><span class="k">      return</span>
-<a name="ln-378"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_spill_tp</span>
+<a name="ln-347"></a><span class="k">      return</span>
+<a name="ln-348"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_spill_pl</span>
+<a name="ln-349"></a>
+<a name="ln-350"></a>   
+<a name="ln-351"></a>   <span class="k">module subroutine </span><span class="n">rmvs_util_spill_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-352"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-353"></a>      <span class="c">!!</span>
+<a name="ln-354"></a>      <span class="c">!! Move spilled (discarded) RMVS test particle structure from active list to discard list</span>
+<a name="ln-355"></a>      <span class="c">!! </span>
+<a name="ln-356"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
+<a name="ln-357"></a>      <span class="k">implicit none</span>
+<a name="ln-358"></a>      <span class="c">! Arguments</span>
+<a name="ln-359"></a>      <span class="k">class</span><span class="p">(</span><span class="n">rmvs_tp</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>        <span class="c">!! RMVS test particle object</span>
+<a name="ln-360"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>    <span class="c">!! Discarded object </span>
+<a name="ln-361"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span> <span class="c">!! Logical array of bodies to spill into the discards</span>
+<a name="ln-362"></a>      <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
+<a name="ln-363"></a>      <span class="c">! Internals</span>
+<a name="ln-364"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-365"></a>
+<a name="ln-366"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-367"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-368"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">rmvs_tp</span><span class="p">)</span>
+<a name="ln-369"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">lperi</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">lperi</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-370"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">plperP</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">plperP</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-371"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">plencP</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">plencP</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-372"></a>
+<a name="ln-373"></a>            <span class="k">call </span><span class="n">util_spill_tp</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-374"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-375"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the spill method. Source must be of class rmvs_tp or its descendents!&quot;</span>
+<a name="ln-376"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-377"></a>         <span class="k">end select</span>
+<a name="ln-378"></a><span class="k">      end associate</span>
 <a name="ln-379"></a>
-<a name="ln-380"></a><span class="k">end submodule </span><span class="n">s_rmvs_util</span>
+<a name="ln-380"></a><span class="k">      return</span>
+<a name="ln-381"></a><span class="k">   end subroutine </span><span class="n">rmvs_util_spill_tp</span>
+<a name="ln-382"></a>
+<a name="ln-383"></a><span class="k">end submodule </span><span class="n">s_rmvs_util</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/setup.f90.html b/docs/sourcefile/setup.f90.html
index 68aa19568..fe6b4a635 100644
--- a/docs/sourcefile/setup.f90.html
+++ b/docs/sourcefile/setup.f90.html
@@ -134,7 +134,7 @@ <h1>setup.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.8% of total for source files.">236 statements</a>
+    title=" 1.8% of total for source files.">235 statements</a>
      </li> 
      
      
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~setup.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilesetupf90EfferentGraph" width="641pt" height="209pt"
- viewBox="0.00 0.00 641.00 208.80" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~setup.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 282)">
+<svg id="sourcefilesetupf90EfferentGraph" width="641pt" height="223pt"
+ viewBox="0.00 0.00 641.00 222.85" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~setup.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 301.25)">
 <title>sourcefile~~setup.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 874,-282 874,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 874,-301.25 874,4 -4,4"/>
 <!-- sourcefile~setup.f90 -->
 <g id="sourcefile~~setup.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~setup.f90</title>
-<polygon fill="none" stroke="black" points="870,-24 813,-24 813,0 870,0 870,-24"/>
-<text text-anchor="middle" x="841.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">setup.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~setup.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-23.28C803.87,-26.96 793.69,-31.11 784.01,-35.07"/>
-<polygon fill="#000000" stroke="#000000" points="782.5,-31.91 774.56,-38.93 785.14,-38.39 782.5,-31.91"/>
+<polygon fill="none" stroke="black" points="870,-260 813,-260 813,-236 870,-236 870,-260"/>
+<text text-anchor="middle" x="841.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">setup.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~setup.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~setup.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~setup.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.94,-11.3C736.73,-10.17 517.51,-12.38 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.84,-256.48C772.05,-268.22 693.15,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~setup.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~setup.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-242.22C804.88,-240.54 795.96,-238.67 787.28,-236.86"/>
+<polygon fill="#000000" stroke="#000000" points="787.79,-233.38 777.28,-234.76 786.35,-240.24 787.79,-233.38"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~setup.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~setup.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~setup.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~setup.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~setup.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~setup.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~setup.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~setup.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~setup.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~setup.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~setup.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~setup.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~setup.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~setup.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~setup.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~setup.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~setup.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~setup.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~setup.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~setup.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~setup.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~setup.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~setup.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~setup.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~setup.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~setup.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~setup.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~setup.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~setup.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~setup.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~setup.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
@@ -612,8 +614,8 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-54"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">symba_pl</span> <span class="kd">::</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
 <a name="ln-55"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">symba_tp</span> <span class="kd">::</span> <span class="nb">system</span><span class="p">%</span><span class="n">tp</span><span class="p">)</span>
 <a name="ln-56"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">symba_tp</span> <span class="kd">::</span> <span class="nb">system</span><span class="p">%</span><span class="n">tp_discards</span><span class="p">)</span>
-<a name="ln-57"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">symba_merger</span> <span class="kd">::</span> <span class="nb">system</span><span class="p">%</span><span class="n">mergeadd_list</span><span class="p">)</span>
-<a name="ln-58"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">symba_merger</span> <span class="kd">::</span> <span class="nb">system</span><span class="p">%</span><span class="n">mergesub_list</span><span class="p">)</span>
+<a name="ln-57"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">symba_merger</span> <span class="kd">::</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl_adds</span><span class="p">)</span>
+<a name="ln-58"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">symba_merger</span> <span class="kd">::</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl_discards</span><span class="p">)</span>
 <a name="ln-59"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">symba_plplenc</span> <span class="kd">::</span> <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">)</span>
 <a name="ln-60"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">symba_pltpenc</span> <span class="kd">::</span> <span class="nb">system</span><span class="p">%</span><span class="n">pltpenc_list</span><span class="p">)</span>
 <a name="ln-61"></a>         <span class="k">end select</span>
@@ -685,189 +687,187 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-127"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">%</span><span class="n">initialize</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
 <a name="ln-128"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">initialize</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
 <a name="ln-129"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">initialize</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
-<a name="ln-130"></a>      <span class="k">call </span><span class="n">util_valid</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">)</span>
-<a name="ln-131"></a>      <span class="n">self</span><span class="p">%</span><span class="n">maxid</span> <span class="o">=</span> <span class="nb">maxval</span><span class="p">([</span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">id</span><span class="p">(:),</span> <span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">id</span><span class="p">(:)])</span>
-<a name="ln-132"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">set_msys</span><span class="p">()</span>
-<a name="ln-133"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">set_mu</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span> 
-<a name="ln-134"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">set_mu</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span> 
-<a name="ln-135"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">eucl_index</span><span class="p">()</span>
-<a name="ln-136"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">param</span><span class="p">%</span><span class="n">lrhill_present</span><span class="p">)</span> <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">set_rhill</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-137"></a>      <span class="c">!if (param%lfirstenergy) then</span>
-<a name="ln-138"></a>      <span class="k">return</span>
-<a name="ln-139"></a><span class="k">   end subroutine </span><span class="n">setup_initialize_system</span>
-<a name="ln-140"></a>
-<a name="ln-141"></a>
-<a name="ln-142"></a>   <span class="k">module subroutine </span><span class="n">setup_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-143"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-144"></a>      <span class="c">!!</span>
-<a name="ln-145"></a>      <span class="c">!! Constructor for base Swiftest particle class. Allocates space for all particles and</span>
-<a name="ln-146"></a>      <span class="c">!! initializes all components with a value.</span>
-<a name="ln-147"></a>      <span class="c">!! Note: Timing tests indicate that (NDIM, n) is more efficient than (NDIM, n) </span>
-<a name="ln-148"></a>      <span class="k">implicit none</span>
-<a name="ln-149"></a>      <span class="c">! Arguments</span>
-<a name="ln-150"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest generic body object</span>
-<a name="ln-151"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
-<a name="ln-152"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameter</span>
-<a name="ln-153"></a>
-<a name="ln-154"></a>      <span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">=</span> <span class="n">n</span>
-<a name="ln-155"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-156"></a><span class="k">      </span><span class="n">self</span><span class="p">%</span><span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-157"></a>
-<a name="ln-158"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">)</span>
-<a name="ln-159"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">name</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">name</span><span class="p">)</span>
-<a name="ln-160"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">)</span>
-<a name="ln-161"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">)</span>
-<a name="ln-162"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">)</span>
-<a name="ln-163"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">)</span>
-<a name="ln-164"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xb</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xb</span><span class="p">)</span>
-<a name="ln-165"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vb</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vb</span><span class="p">)</span>
-<a name="ln-166"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ah</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ah</span><span class="p">)</span>
-<a name="ln-167"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ir3h</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ir3h</span><span class="p">)</span>
-<a name="ln-168"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mu</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mu</span><span class="p">)</span>
-<a name="ln-169"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">)</span>
-<a name="ln-170"></a>
-<a name="ln-171"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-172"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">name</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-173"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-174"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-175"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
-<a name="ln-176"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
-<a name="ln-177"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xb</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
-<a name="ln-178"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vb</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
-<a name="ln-179"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ah</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
-<a name="ln-180"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ir3h</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-181"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mu</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-182"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-183"></a>
-<a name="ln-184"></a>      <span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">(:)</span>   <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-185"></a>      <span class="n">self</span><span class="p">%</span><span class="n">name</span><span class="p">(:)</span> <span class="o">=</span> <span class="s2">&quot;UNNAMED&quot;</span>
-<a name="ln-186"></a>      <span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">INACTIVE</span>
-<a name="ln-187"></a>      <span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">(:)</span>  <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-188"></a>      <span class="n">self</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-189"></a>      <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-190"></a>      <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-191"></a>      <span class="n">self</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-192"></a>      <span class="n">self</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-193"></a>      <span class="n">self</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-194"></a>      <span class="n">self</span><span class="p">%</span><span class="n">ir3h</span><span class="p">(:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-195"></a>      <span class="n">self</span><span class="p">%</span><span class="n">mu</span><span class="p">(:)</span>     <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-196"></a>
-<a name="ln-197"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">loblatecb</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-198"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">aobl</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">aobl</span><span class="p">)</span>
-<a name="ln-199"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">aobl</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
-<a name="ln-200"></a>         <span class="n">self</span><span class="p">%</span><span class="n">aobl</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-201"></a>      <span class="k">end if</span>
-<a name="ln-202"></a><span class="k">      if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-203"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atide</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">)</span>
-<a name="ln-204"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atide</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
-<a name="ln-205"></a>         <span class="n">self</span><span class="p">%</span><span class="n">atide</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-206"></a>      <span class="k">end if</span>
-<a name="ln-207"></a><span class="k">      if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lgr</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-208"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">agr</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">)</span>
-<a name="ln-209"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">agr</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
-<a name="ln-210"></a>         <span class="n">self</span><span class="p">%</span><span class="n">agr</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-211"></a>      <span class="k">end if</span>
-<a name="ln-212"></a>
-<a name="ln-213"></a><span class="k">      return</span>
-<a name="ln-214"></a><span class="k">   end subroutine </span><span class="n">setup_body</span>
-<a name="ln-215"></a>
-<a name="ln-216"></a>
-<a name="ln-217"></a>   <span class="k">module subroutine </span><span class="n">setup_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-218"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-219"></a>      <span class="c">!!</span>
-<a name="ln-220"></a>      <span class="c">!! Constructor for base Swiftest massive body class. Allocates space for all particles and</span>
-<a name="ln-221"></a>      <span class="c">!! initializes all components with a value. </span>
-<a name="ln-222"></a>      <span class="k">implicit none</span>
-<a name="ln-223"></a>      <span class="c">! Arguments</span>
-<a name="ln-224"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest massive body object</span>
-<a name="ln-225"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
-<a name="ln-226"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameter</span>
-<a name="ln-227"></a>
-<a name="ln-228"></a>      <span class="c">!&gt; Call allocation method for parent class</span>
-<a name="ln-229"></a>      <span class="c">!&gt; The parent class here is the abstract swiftest_body class, so we can&#39;t use the type-bound procedure</span>
-<a name="ln-230"></a>      <span class="k">call </span><span class="n">setup_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-231"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return </span>
-<a name="ln-232"></a>
-<a name="ln-233"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mass</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mass</span><span class="p">)</span>
-<a name="ln-234"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Gmass</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Gmass</span><span class="p">)</span>
-<a name="ln-235"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">)</span>
-<a name="ln-236"></a>
-<a name="ln-237"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-238"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-239"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-240"></a>
-<a name="ln-241"></a>      <span class="n">self</span><span class="p">%</span><span class="n">mass</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-242"></a>      <span class="n">self</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-243"></a>      <span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-130"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">validate_ids</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-131"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">set_msys</span><span class="p">()</span>
+<a name="ln-132"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">set_mu</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span> 
+<a name="ln-133"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">set_mu</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span> 
+<a name="ln-134"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">eucl_index</span><span class="p">()</span>
+<a name="ln-135"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">param</span><span class="p">%</span><span class="n">lrhill_present</span><span class="p">)</span> <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">set_rhill</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-136"></a>      <span class="k">return</span>
+<a name="ln-137"></a><span class="k">   end subroutine </span><span class="n">setup_initialize_system</span>
+<a name="ln-138"></a>
+<a name="ln-139"></a>
+<a name="ln-140"></a>   <span class="k">module subroutine </span><span class="n">setup_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-141"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-142"></a>      <span class="c">!!</span>
+<a name="ln-143"></a>      <span class="c">!! Constructor for base Swiftest particle class. Allocates space for all particles and</span>
+<a name="ln-144"></a>      <span class="c">!! initializes all components with a value.</span>
+<a name="ln-145"></a>      <span class="c">!! Note: Timing tests indicate that (NDIM, n) is more efficient than (NDIM, n) </span>
+<a name="ln-146"></a>      <span class="k">implicit none</span>
+<a name="ln-147"></a>      <span class="c">! Arguments</span>
+<a name="ln-148"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest generic body object</span>
+<a name="ln-149"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
+<a name="ln-150"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameter</span>
+<a name="ln-151"></a>
+<a name="ln-152"></a>      <span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">=</span> <span class="n">n</span>
+<a name="ln-153"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-154"></a><span class="k">      </span><span class="n">self</span><span class="p">%</span><span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-155"></a>
+<a name="ln-156"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">)</span>
+<a name="ln-157"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">name</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">name</span><span class="p">)</span>
+<a name="ln-158"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">)</span>
+<a name="ln-159"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">)</span>
+<a name="ln-160"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">)</span>
+<a name="ln-161"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">)</span>
+<a name="ln-162"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xb</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xb</span><span class="p">)</span>
+<a name="ln-163"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vb</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vb</span><span class="p">)</span>
+<a name="ln-164"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ah</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ah</span><span class="p">)</span>
+<a name="ln-165"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ir3h</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ir3h</span><span class="p">)</span>
+<a name="ln-166"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mu</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mu</span><span class="p">)</span>
+<a name="ln-167"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">)</span>
+<a name="ln-168"></a>
+<a name="ln-169"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-170"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">name</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-171"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-172"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-173"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
+<a name="ln-174"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
+<a name="ln-175"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xb</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
+<a name="ln-176"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vb</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
+<a name="ln-177"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ah</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
+<a name="ln-178"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ir3h</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-179"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mu</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-180"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-181"></a>
+<a name="ln-182"></a>      <span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">(:)</span>   <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-183"></a>      <span class="n">self</span><span class="p">%</span><span class="n">name</span><span class="p">(:)</span> <span class="o">=</span> <span class="s2">&quot;UNNAMED&quot;</span>
+<a name="ln-184"></a>      <span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">INACTIVE</span>
+<a name="ln-185"></a>      <span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">(:)</span>  <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-186"></a>      <span class="n">self</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-187"></a>      <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-188"></a>      <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-189"></a>      <span class="n">self</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-190"></a>      <span class="n">self</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-191"></a>      <span class="n">self</span><span class="p">%</span><span class="n">ah</span><span class="p">(:,:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-192"></a>      <span class="n">self</span><span class="p">%</span><span class="n">ir3h</span><span class="p">(:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-193"></a>      <span class="n">self</span><span class="p">%</span><span class="n">mu</span><span class="p">(:)</span>     <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-194"></a>
+<a name="ln-195"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">loblatecb</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-196"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">aobl</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">aobl</span><span class="p">)</span>
+<a name="ln-197"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">aobl</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
+<a name="ln-198"></a>         <span class="n">self</span><span class="p">%</span><span class="n">aobl</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-199"></a>      <span class="k">end if</span>
+<a name="ln-200"></a><span class="k">      if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-201"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atide</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">)</span>
+<a name="ln-202"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atide</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
+<a name="ln-203"></a>         <span class="n">self</span><span class="p">%</span><span class="n">atide</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-204"></a>      <span class="k">end if</span>
+<a name="ln-205"></a><span class="k">      if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lgr</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-206"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">agr</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">)</span>
+<a name="ln-207"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">agr</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
+<a name="ln-208"></a>         <span class="n">self</span><span class="p">%</span><span class="n">agr</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-209"></a>      <span class="k">end if</span>
+<a name="ln-210"></a>
+<a name="ln-211"></a><span class="k">      return</span>
+<a name="ln-212"></a><span class="k">   end subroutine </span><span class="n">setup_body</span>
+<a name="ln-213"></a>
+<a name="ln-214"></a>
+<a name="ln-215"></a>   <span class="k">module subroutine </span><span class="n">setup_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-216"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-217"></a>      <span class="c">!!</span>
+<a name="ln-218"></a>      <span class="c">!! Constructor for base Swiftest massive body class. Allocates space for all particles and</span>
+<a name="ln-219"></a>      <span class="c">!! initializes all components with a value. </span>
+<a name="ln-220"></a>      <span class="k">implicit none</span>
+<a name="ln-221"></a>      <span class="c">! Arguments</span>
+<a name="ln-222"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest massive body object</span>
+<a name="ln-223"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
+<a name="ln-224"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameter</span>
+<a name="ln-225"></a>
+<a name="ln-226"></a>      <span class="c">!&gt; Call allocation method for parent class</span>
+<a name="ln-227"></a>      <span class="c">!&gt; The parent class here is the abstract swiftest_body class, so we can&#39;t use the type-bound procedure</span>
+<a name="ln-228"></a>      <span class="k">call </span><span class="n">setup_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-229"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return </span>
+<a name="ln-230"></a>
+<a name="ln-231"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mass</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mass</span><span class="p">)</span>
+<a name="ln-232"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Gmass</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Gmass</span><span class="p">)</span>
+<a name="ln-233"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">)</span>
+<a name="ln-234"></a>
+<a name="ln-235"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-236"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-237"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-238"></a>
+<a name="ln-239"></a>      <span class="n">self</span><span class="p">%</span><span class="n">mass</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-240"></a>      <span class="n">self</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-241"></a>      <span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-242"></a>
+<a name="ln-243"></a>      <span class="n">self</span><span class="p">%</span><span class="n">nplpl</span> <span class="o">=</span> <span class="mi">0</span>   
 <a name="ln-244"></a>
-<a name="ln-245"></a>      <span class="n">self</span><span class="p">%</span><span class="n">nplpl</span> <span class="o">=</span> <span class="mi">0</span>   
-<a name="ln-246"></a>
-<a name="ln-247"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lclose</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-248"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">radius</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">radius</span><span class="p">)</span>
-<a name="ln-249"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">density</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">density</span><span class="p">)</span>
-<a name="ln-250"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-251"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">density</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-252"></a>         <span class="n">self</span><span class="p">%</span><span class="n">radius</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-253"></a>         <span class="n">self</span><span class="p">%</span><span class="n">density</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
-<a name="ln-254"></a>      <span class="k">end if</span>
-<a name="ln-255"></a>
-<a name="ln-256"></a><span class="k">      if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-257"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">)</span>
-<a name="ln-258"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">)</span>
-<a name="ln-259"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
-<a name="ln-260"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
-<a name="ln-261"></a>         <span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-262"></a>         <span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-263"></a>      <span class="k">end if</span>
-<a name="ln-264"></a>
-<a name="ln-265"></a><span class="k">      if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-266"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">k2</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">)</span>
-<a name="ln-267"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Q</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">)</span>
-<a name="ln-268"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tlag</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">)</span>
-<a name="ln-269"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">k2</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-270"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Q</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-271"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tlag</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-272"></a>         <span class="n">self</span><span class="p">%</span><span class="n">k2</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-273"></a>         <span class="n">self</span><span class="p">%</span><span class="n">Q</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-274"></a>         <span class="n">self</span><span class="p">%</span><span class="n">tlag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-275"></a>      <span class="k">end if</span>
-<a name="ln-276"></a><span class="k">      </span>
-<a name="ln-277"></a><span class="k">      return</span>
-<a name="ln-278"></a><span class="k">   end subroutine </span><span class="n">setup_pl</span>
-<a name="ln-279"></a>   
-<a name="ln-280"></a>
-<a name="ln-281"></a>   <span class="k">module subroutine </span><span class="n">setup_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-282"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-283"></a>      <span class="c">!!</span>
-<a name="ln-284"></a>      <span class="c">!! Constructor for base Swiftest test particle particle class. Allocates space for </span>
-<a name="ln-285"></a>      <span class="c">!! all particles and initializes all components with a value. </span>
-<a name="ln-286"></a>      <span class="k">implicit none</span>
-<a name="ln-287"></a>      <span class="c">! Arguments</span>
-<a name="ln-288"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest test particle object</span>
-<a name="ln-289"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
-<a name="ln-290"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameter</span>
-<a name="ln-291"></a>
-<a name="ln-292"></a>      <span class="c">!&gt; Call allocation method for parent class</span>
-<a name="ln-293"></a>      <span class="c">!&gt; The parent class here is the abstract swiftest_body class, so we can&#39;t use the type-bound procedure</span>
-<a name="ln-294"></a>      <span class="k">call </span><span class="n">setup_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-295"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-296"></a>
-<a name="ln-297"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">)</span>
-<a name="ln-298"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">)</span>
-<a name="ln-299"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">)</span>
-<a name="ln-300"></a>
-<a name="ln-301"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-302"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-303"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-304"></a>
-<a name="ln-305"></a>      <span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-306"></a>      <span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">(:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-307"></a>      <span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">(:)</span>    <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-308"></a>
-<a name="ln-309"></a>      <span class="k">return</span>
-<a name="ln-310"></a><span class="k">   end subroutine </span><span class="n">setup_tp</span>
-<a name="ln-311"></a>
-<a name="ln-312"></a><span class="k">end submodule </span><span class="n">s_setup</span>
+<a name="ln-245"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lclose</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-246"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">radius</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">radius</span><span class="p">)</span>
+<a name="ln-247"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">density</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">density</span><span class="p">)</span>
+<a name="ln-248"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-249"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">density</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-250"></a>         <span class="n">self</span><span class="p">%</span><span class="n">radius</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-251"></a>         <span class="n">self</span><span class="p">%</span><span class="n">density</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">1.0_DP</span>
+<a name="ln-252"></a>      <span class="k">end if</span>
+<a name="ln-253"></a>
+<a name="ln-254"></a><span class="k">      if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-255"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">)</span>
+<a name="ln-256"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">)</span>
+<a name="ln-257"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
+<a name="ln-258"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">n</span><span class="p">))</span>
+<a name="ln-259"></a>         <span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-260"></a>         <span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-261"></a>      <span class="k">end if</span>
+<a name="ln-262"></a>
+<a name="ln-263"></a><span class="k">      if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-264"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">k2</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">)</span>
+<a name="ln-265"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Q</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">)</span>
+<a name="ln-266"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tlag</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">)</span>
+<a name="ln-267"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">k2</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-268"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Q</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-269"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tlag</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-270"></a>         <span class="n">self</span><span class="p">%</span><span class="n">k2</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-271"></a>         <span class="n">self</span><span class="p">%</span><span class="n">Q</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-272"></a>         <span class="n">self</span><span class="p">%</span><span class="n">tlag</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-273"></a>      <span class="k">end if</span>
+<a name="ln-274"></a><span class="k">      </span>
+<a name="ln-275"></a><span class="k">      return</span>
+<a name="ln-276"></a><span class="k">   end subroutine </span><span class="n">setup_pl</span>
+<a name="ln-277"></a>   
+<a name="ln-278"></a>
+<a name="ln-279"></a>   <span class="k">module subroutine </span><span class="n">setup_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-280"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-281"></a>      <span class="c">!!</span>
+<a name="ln-282"></a>      <span class="c">!! Constructor for base Swiftest test particle particle class. Allocates space for </span>
+<a name="ln-283"></a>      <span class="c">!! all particles and initializes all components with a value. </span>
+<a name="ln-284"></a>      <span class="k">implicit none</span>
+<a name="ln-285"></a>      <span class="c">! Arguments</span>
+<a name="ln-286"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest test particle object</span>
+<a name="ln-287"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
+<a name="ln-288"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameter</span>
+<a name="ln-289"></a>
+<a name="ln-290"></a>      <span class="c">!&gt; Call allocation method for parent class</span>
+<a name="ln-291"></a>      <span class="c">!&gt; The parent class here is the abstract swiftest_body class, so we can&#39;t use the type-bound procedure</span>
+<a name="ln-292"></a>      <span class="k">call </span><span class="n">setup_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-293"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-294"></a>
+<a name="ln-295"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">)</span>
+<a name="ln-296"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">)</span>
+<a name="ln-297"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">)</span>
+<a name="ln-298"></a>
+<a name="ln-299"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-300"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-301"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-302"></a>
+<a name="ln-303"></a>      <span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-304"></a>      <span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">(:)</span>   <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-305"></a>      <span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">(:)</span>    <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-306"></a>
+<a name="ln-307"></a>      <span class="k">return</span>
+<a name="ln-308"></a><span class="k">   end subroutine </span><span class="n">setup_tp</span>
+<a name="ln-309"></a>
+<a name="ln-310"></a><span class="k">end submodule </span><span class="n">s_setup</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/swiftest.f90.html b/docs/sourcefile/swiftest.f90.html
index cf11aa70c..7359d1a6f 100644
--- a/docs/sourcefile/swiftest.f90.html
+++ b/docs/sourcefile/swiftest.f90.html
@@ -226,224 +226,223 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~swiftest.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileswiftestf90EfferentGraph" width="641pt" height="216pt"
- viewBox="0.00 0.00 641.00 216.34" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~swiftest.f90~~EfferentGraph" class="graph" transform="scale(0.82 0.82) rotate(0) translate(4 260.94)">
+<svg id="sourcefileswiftestf90EfferentGraph" width="641pt" height="240pt"
+ viewBox="0.00 0.00 641.00 240.35" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~swiftest.f90~~EfferentGraph" class="graph" transform="scale(0.82 0.82) rotate(0) translate(4 290.35)">
 <title>sourcefile~~swiftest.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.94 781,-260.94 781,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-290.35 781,-290.35 781,4 -4,4"/>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~swiftest.f90</title>
-<polygon fill="none" stroke="black" points="777,-184 711,-184 711,-160 777,-160 777,-184"/>
-<text text-anchor="middle" x="744" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest.f90</text>
+<polygon fill="none" stroke="black" points="777,-102.36 711,-102.36 711,-78.36 777,-78.36 777,-102.36"/>
+<text text-anchor="middle" x="744" y="-87.96" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest.f90</text>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-184 572,-184 572,-160 675,-160 675,-184"/>
-<text text-anchor="middle" x="623.5" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-240.36 287,-240.36 287,-216.36 405,-216.36 405,-240.36"/>
+<text text-anchor="middle" x="346" y="-225.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-172C703.05,-172 694.35,-172 685.59,-172"/>
-<polygon fill="#000000" stroke="#000000" points="685.33,-168.5 675.33,-172 685.33,-175.5 685.33,-168.5"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-228.36C464.51,-234.52 438.64,-235.98 415.42,-235.44"/>
+<polygon fill="#000000" stroke="#000000" points="415.43,-231.94 405.31,-235.07 415.17,-238.93 415.43,-231.94"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-184 143,-184 143,-160 250,-160 250,-184"/>
-<text text-anchor="middle" x="196.5" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-102.36 441.5,-102.36 441.5,-78.36 535.5,-78.36 535.5,-102.36"/>
+<text text-anchor="middle" x="488.5" y="-87.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-250C296.26,-243.75 247.35,-211.53 219.89,-190.51"/>
-<polygon fill="#000000" stroke="#000000" points="221.79,-187.54 211.76,-184.12 217.46,-193.05 221.79,-187.54"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M714.4,-184.12C649.51,-210.19 486,-267.83 347,-250"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M725.52,-102.36C703.23,-116.89 662.95,-140.63 624.5,-150.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-150.36C612.1,-152.99 557.25,-125.87 521.31,-107.22"/>
+<polygon fill="#000000" stroke="#000000" points="522.66,-103.98 512.18,-102.45 519.42,-110.18 522.66,-103.98"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-144 0,-144 0,-120 106,-120 106,-144"/>
-<text text-anchor="middle" x="53" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-181.36 142,-181.36 142,-157.36 251,-157.36 251,-181.36"/>
+<text text-anchor="middle" x="196.5" y="-166.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-250C279.84,-242.8 260.49,-268.17 197.5,-250"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-228.36C450.95,-238.15 441.96,-215.44 405,-207.36 356.91,-196.84 302.11,-186.9 260.91,-179.82"/>
+<polygon fill="#000000" stroke="#000000" points="261.45,-176.36 251.01,-178.12 260.28,-183.26 261.45,-176.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-150.36C556.21,-167.71 555.54,-210.07 489.5,-228.36"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
 <g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-104 441,-104 441,-80 536,-80 536,-104"/>
-<text text-anchor="middle" x="488.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-182.36 441,-182.36 441,-158.36 536,-158.36 536,-182.36"/>
+<text text-anchor="middle" x="488.5" y="-167.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge4" class="edge">
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge3" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-132C593.1,-125 560.6,-115.26 535.09,-107.15"/>
-<polygon fill="#000000" stroke="#000000" points="535.91,-103.74 525.32,-104.01 533.77,-110.4 535.91,-103.74"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-150.36C597.74,-156.62 569.86,-161.18 546.04,-164.35"/>
+<polygon fill="#000000" stroke="#000000" points="545.58,-160.88 536.11,-165.63 546.47,-167.82 545.58,-160.88"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-184 441.5,-184 441.5,-160 535.5,-160 535.5,-184"/>
-<text text-anchor="middle" x="488.5" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-82.36 143,-82.36 143,-58.36 250,-58.36 250,-82.36"/>
+<text text-anchor="middle" x="196.5" y="-67.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-132C604.43,-127.7 559.94,-143.06 527.38,-155.98"/>
-<polygon fill="#000000" stroke="#000000" points="525.66,-152.9 517.69,-159.88 528.28,-159.39 525.66,-152.9"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.28,-78.25C678.85,-60.9 603.72,-29.8 536,-18.36 426.88,0.08 393.86,10.43 287,-18.36 262.62,-24.92 238.04,-39.95 220.83,-52.17"/>
+<polygon fill="#000000" stroke="#000000" points="218.53,-49.51 212.53,-58.24 222.67,-55.15 218.53,-49.51"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-94 142,-94 142,-70 251,-70 251,-94"/>
-<text text-anchor="middle" x="196.5" y="-79.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-122.36 299,-122.36 299,-98.36 393,-98.36 393,-122.36"/>
+<text text-anchor="middle" x="346" y="-107.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C403.01,-22.38 296.83,-48.01 239.27,-66.69"/>
-<polygon fill="#000000" stroke="#000000" points="237.82,-63.48 229.44,-69.96 240.04,-70.12 237.82,-63.48"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-150.36C582.17,-160.55 471.48,-138.95 403.31,-123.7"/>
+<polygon fill="#000000" stroke="#000000" points="403.69,-120.2 393.16,-121.41 402.15,-127.02 403.69,-120.2"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-144 299,-144 299,-120 393,-120 393,-144"/>
-<text text-anchor="middle" x="346" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-102.36 572,-102.36 572,-78.36 675,-78.36 675,-102.36"/>
+<text text-anchor="middle" x="623.5" y="-87.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-132C548.26,-114.32 459.53,-118.68 403.22,-124.47"/>
-<polygon fill="#000000" stroke="#000000" points="402.66,-121.01 393.09,-125.57 403.41,-127.97 402.66,-121.01"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-90.36C703.05,-90.36 694.35,-90.36 685.59,-90.36"/>
+<polygon fill="#000000" stroke="#000000" points="685.33,-86.86 675.33,-90.36 685.33,-93.86 685.33,-86.86"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 287,-24 287,0 405,0 405,-24"/>
-<text text-anchor="middle" x="346" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-122.36 0,-122.36 0,-98.36 106,-98.36 106,-122.36"/>
+<text text-anchor="middle" x="53" y="-107.96" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C460.56,-42.56 430.15,-33.68 404.53,-26.71"/>
-<polygon fill="#000000" stroke="#000000" points="405.16,-23.25 394.6,-24.03 403.34,-30.01 405.16,-23.25"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M711.73,-159.88C688.08,-151.1 654.63,-139.49 624.5,-132"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-132C576.85,-120.65 577.26,-93.6 536,-71 516.42,-60.28 510.57,-59.39 489.5,-52"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-228.36C362.11,-263.08 319.71,-313 197.5,-268.36"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-212C306.26,-211.87 263.74,-198.88 234.34,-187.74"/>
-<polygon fill="#000000" stroke="#000000" points="235.49,-184.43 224.9,-184.05 232.94,-190.95 235.49,-184.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M577.85,-184.08C564.47,-187.37 549.71,-190.66 536,-193 452.78,-207.21 431.42,-212.28 347,-212"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-268.36C129.78,-244.35 83.66,-168.93 64.26,-131.65"/>
+<polygon fill="#000000" stroke="#000000" points="67.33,-129.98 59.7,-122.63 61.09,-133.14 67.33,-129.98"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.97,-240.48C279.53,-254.95 219.18,-276.28 197.5,-268.36"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-212C277.35,-214.62 262.54,-268.77 197.5,-250"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-250C139.84,-233.94 92.11,-181.54 68.95,-152.26"/>
-<polygon fill="#000000" stroke="#000000" points="71.7,-150.1 62.82,-144.32 66.16,-154.38 71.7,-150.1"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-159.94C589.52,-155.71 580.27,-150.82 572,-146 552.53,-134.66 531.27,-120.7 515.21,-109.82"/>
-<polygon fill="#000000" stroke="#000000" points="517.1,-106.87 506.87,-104.13 513.16,-112.66 517.1,-106.87"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.22,-80.49C413.94,-75.5 378.66,-70.46 347,-70.36"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-70.36C317.19,-70.27 286.44,-70.25 260.24,-70.27"/>
+<polygon fill="#000000" stroke="#000000" points="260.06,-66.77 250.06,-70.27 260.07,-73.77 260.06,-66.77"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-172C563.29,-172 554.37,-172 545.69,-172"/>
-<polygon fill="#000000" stroke="#000000" points="545.65,-168.5 535.65,-172 545.65,-175.5 545.65,-168.5"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.5,-96.91C429.24,-98.65 415.87,-100.55 403.14,-102.36"/>
+<polygon fill="#000000" stroke="#000000" points="402.52,-98.92 393.11,-103.79 403.5,-105.85 402.52,-98.92"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-160C138.49,-155.88 122.02,-151.23 106.74,-146.91"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-143.48 96.91,-144.13 105.58,-150.22 107.49,-143.48"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-110.36C169.6,-110.36 141.03,-110.36 116.38,-110.36"/>
+<polygon fill="#000000" stroke="#000000" points="116.08,-106.86 106.08,-110.36 116.08,-113.86 116.08,-106.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-70.36C277.08,-70.14 265.42,-110.36 197.5,-110.36"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.68,-94.63C399.9,-97.35 339.27,-102.43 287,-111 246.68,-117.61 238.36,-132 197.5,-132"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-132C169.6,-131.62 141.03,-131.56 116.39,-131.61"/>
-<polygon fill="#000000" stroke="#000000" points="116.07,-128.11 106.08,-131.64 116.09,-135.11 116.07,-128.11"/>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.52,-157.27C145.06,-148.33 115.61,-136.05 92.22,-126.29"/>
+<polygon fill="#000000" stroke="#000000" points="93.51,-123.04 82.94,-122.42 90.82,-129.5 93.51,-123.04"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge15" class="edge">
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge14" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-104C430.89,-108.12 414.54,-112.77 399.37,-117.09"/>
-<polygon fill="#000000" stroke="#000000" points="398.27,-113.76 389.61,-119.87 400.19,-120.5 398.27,-113.76"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M459.07,-158.21C437.64,-149.07 408.06,-136.43 384.67,-126.44"/>
+<polygon fill="#000000" stroke="#000000" points="385.96,-123.19 375.39,-122.48 383.21,-129.63 385.96,-123.19"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-172C317.26,-170.15 286.51,-169.87 260.3,-170.16"/>
-<polygon fill="#000000" stroke="#000000" points="260.07,-166.66 250.12,-170.31 260.17,-173.66 260.07,-166.66"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.81,-161.8C400.11,-154.21 339.53,-142.62 287,-131.36 247.05,-122.79 238.36,-110.36 197.5,-110.36"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-172C277.23,-167.49 265.42,-132.98 197.5,-132"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.25,-173.54C413.83,-174.07 378.4,-174.09 347,-172"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-160C430.89,-155.88 414.54,-151.23 399.37,-146.91"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-143.5 389.61,-144.13 398.27,-150.24 400.19,-143.5"/>
-</g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M161.25,-94.1C142.27,-100.81 118.47,-109.22 98.11,-116.41"/>
-<polygon fill="#000000" stroke="#000000" points="96.69,-113.2 88.43,-119.83 99.02,-119.8 96.69,-113.2"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-82.36C138.49,-86.47 122.02,-91.13 106.74,-95.45"/>
+<polygon fill="#000000" stroke="#000000" points="105.58,-92.14 96.91,-98.23 107.49,-98.87 105.58,-92.14"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.75,-144C285.36,-148.17 267.91,-152.9 251.81,-157.27"/>
-<polygon fill="#000000" stroke="#000000" points="250.71,-153.94 241.98,-159.94 252.55,-160.7 250.71,-153.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.75,-98.36C285.36,-94.18 267.91,-89.45 251.81,-85.08"/>
+<polygon fill="#000000" stroke="#000000" points="252.55,-81.66 241.98,-82.42 250.71,-88.41 252.55,-81.66"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge20" class="edge">
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.83,-132C269.75,-132 231.43,-132 197.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.83,-110.36C269.75,-110.36 231.43,-110.36 197.5,-110.36"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-90.36C563.29,-90.36 554.37,-90.36 545.69,-90.36"/>
+<polygon fill="#000000" stroke="#000000" points="545.65,-86.86 535.65,-90.36 545.65,-93.86 545.65,-86.86"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge20" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.3,-102.51C579.91,-115.98 543.61,-137.81 518.25,-153.06"/>
+<polygon fill="#000000" stroke="#000000" points="516.22,-150.2 509.45,-158.35 519.83,-156.2 516.22,-150.2"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-32.36C308.52,-34.54 268.44,-45.45 239.28,-55.01"/>
+<polygon fill="#000000" stroke="#000000" points="237.8,-51.82 229.44,-58.33 240.04,-58.45 237.8,-51.82"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.67,-19.1C244.78,-25.83 187.85,-38.4 142,-61 115.52,-74.05 89.78,-96.27 73.05,-112.38"/>
-<polygon fill="#000000" stroke="#000000" points="70.26,-110.22 65.6,-119.73 75.18,-115.2 70.26,-110.22"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-32.36C254.62,-37.78 227.21,-18.75 142,-49.36 116.29,-58.59 91.1,-77.32 74.3,-91.61"/>
+<polygon fill="#000000" stroke="#000000" points="71.99,-88.98 66.77,-98.2 76.6,-94.25 71.99,-88.98"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M592.71,-78.32C542.57,-59.36 437.89,-25.41 347,-32.36"/>
 </g>
 </g>
 </svg>
@@ -496,336 +495,351 @@ <h3 class="panel-title">Files dependent on this one</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~swiftest.f90~~AfferentGraph Pages: 1 -->
-<svg id="sourcefileswiftestf90AfferentGraph" width="274pt" height="2426pt"
- viewBox="0.00 0.00 274.00 2426.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~swiftest.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2422)">
+<svg id="sourcefileswiftestf90AfferentGraph" width="274pt" height="2468pt"
+ viewBox="0.00 0.00 274.00 2468.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~swiftest.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2464)">
 <title>sourcefile~~swiftest.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2422 270,-2422 270,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 270,-2464 270,4 -4,4"/>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node1" class="node">
 <title>sourcefile~swiftest.f90</title>
-<polygon fill="none" stroke="black" points="66,-1221 0,-1221 0,-1197 66,-1197 66,-1221"/>
-<text text-anchor="middle" x="33" y="-1206.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest.f90</text>
+<polygon fill="none" stroke="black" points="66,-1242 0,-1242 0,-1218 66,-1218 66,-1242"/>
+<text text-anchor="middle" x="33" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest.f90</text>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~eucl.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node2" class="node">
-<title>sourcefile~obl.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-2418 157,-2418 157,-2394 211,-2394 211,-2418"/>
-<text text-anchor="middle" x="184" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
+<title>sourcefile~eucl.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-2460 157,-2460 157,-2436 211,-2436 211,-2460"/>
+<text text-anchor="middle" x="184" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge1" class="edge">
-<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.91,-2406.7C138.58,-2405.66 115.09,-2400.94 102,-2385 63.94,-2338.65 38.53,-1389.49 34.55,-1231.27"/>
-<polygon fill="#000000" stroke="#000000" points="38.05,-1231.18 34.3,-1221.27 31.05,-1231.35 38.05,-1231.18"/>
+<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.9,-2448.7C138.57,-2447.67 115.08,-2442.95 102,-2427 63.25,-2379.75 38.37,-1411.7 34.52,-1252.17"/>
+<polygon fill="#000000" stroke="#000000" points="38.02,-1252.01 34.28,-1242.1 31.02,-1252.18 38.02,-1252.01"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
+<!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node3" class="node">
-<title>sourcefile~util_sort.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="218,-2376 150,-2376 150,-2352 218,-2352 218,-2376"/>
-<text text-anchor="middle" x="184" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="219.5,-2418 148.5,-2418 148.5,-2394 219.5,-2394 219.5,-2418"/>
+<text text-anchor="middle" x="184" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge2" class="edge">
-<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M149.73,-2364.1C132.81,-2362.27 113.45,-2356.91 102,-2343 28.8,-2254.03 32.57,-1382.74 33.79,-1231.36"/>
-<polygon fill="#000000" stroke="#000000" points="37.29,-1231.05 33.88,-1221.02 30.29,-1230.99 37.29,-1231.05"/>
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.49,-2405.97C131.87,-2404.01 113.16,-2398.58 102,-2385 27.42,-2294.26 32.36,-1405.17 33.77,-1252.31"/>
+<polygon fill="#000000" stroke="#000000" points="37.27,-1252.28 33.86,-1242.25 30.27,-1252.21 37.27,-1252.28"/>
 </g>
-<!-- sourcefile~whm_setup.f90 -->
+<!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node4" class="node">
-<title>sourcefile~whm_setup.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="226.5,-2334 141.5,-2334 141.5,-2310 226.5,-2310 226.5,-2334"/>
-<text text-anchor="middle" x="184" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="220.5,-2376 147.5,-2376 147.5,-2352 220.5,-2352 220.5,-2376"/>
+<text text-anchor="middle" x="184" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge3" class="edge">
-<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.41,-2320.91C126.78,-2318.31 111.61,-2312.66 102,-2301 31.55,-2215.58 33.02,-1379.81 33.85,-1231.46"/>
-<polygon fill="#000000" stroke="#000000" points="37.35,-1231.31 33.91,-1221.29 30.35,-1231.27 37.35,-1231.31"/>
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.27,-2363.81C130.96,-2361.73 112.9,-2356.23 102,-2343 30.17,-2255.81 32.8,-1402.31 33.82,-1252.42"/>
+<polygon fill="#000000" stroke="#000000" points="37.32,-1252.19 33.89,-1242.16 30.32,-1252.13 37.32,-1252.19"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node5" class="node">
-<title>sourcefile~whm_coord.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="227,-2292 141,-2292 141,-2268 227,-2268 227,-2292"/>
-<text text-anchor="middle" x="184" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="266,-2334 102,-2334 102,-2310 266,-2310 266,-2334"/>
+<text text-anchor="middle" x="184" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge4" class="edge">
-<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.58,-2278.74C126.22,-2276.07 111.44,-2270.42 102,-2259 34.28,-2177.1 33.49,-1376.54 33.9,-1231.48"/>
-<polygon fill="#000000" stroke="#000000" points="37.41,-1231.17 33.94,-1221.16 30.41,-1231.15 37.41,-1231.17"/>
+<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M111.92,-2309.9C108.23,-2307.41 104.87,-2304.47 102,-2301 32.91,-2217.34 33.25,-1399.17 33.87,-1252.47"/>
+<polygon fill="#000000" stroke="#000000" points="37.38,-1252.07 33.92,-1242.05 30.38,-1252.03 37.38,-1252.07"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node6" class="node">
-<title>sourcefile~util_append.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="227,-2250 141,-2250 141,-2226 227,-2226 227,-2250"/>
-<text text-anchor="middle" x="184" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="231.5,-2292 136.5,-2292 136.5,-2268 231.5,-2268 231.5,-2292"/>
+<text text-anchor="middle" x="184" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge5" class="edge">
-<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.6,-2236.73C126.24,-2234.06 111.46,-2228.41 102,-2217 36.94,-2138.53 33.97,-1371.46 33.97,-1231.02"/>
-<polygon fill="#000000" stroke="#000000" points="37.47,-1231.02 33.97,-1221.02 30.47,-1231.01 37.47,-1231.02"/>
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M136.36,-2277.86C123.38,-2274.9 110.52,-2269.29 102,-2259 35.65,-2178.86 33.73,-1395.84 33.94,-1252.48"/>
+<polygon fill="#000000" stroke="#000000" points="37.44,-1252.27 33.96,-1242.27 30.44,-1252.26 37.44,-1252.27"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node7" class="node">
-<title>sourcefile~helio_coord.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="227,-2208 141,-2208 141,-2184 227,-2184 227,-2208"/>
-<text text-anchor="middle" x="184" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="218,-2250 150,-2250 150,-2226 218,-2226 218,-2250"/>
+<text text-anchor="middle" x="184" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge6" class="edge">
-<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.62,-2194.71C126.26,-2192.04 111.47,-2186.39 102,-2175 39.72,-2100.11 34.47,-1369.25 34.04,-1231.37"/>
-<polygon fill="#000000" stroke="#000000" points="37.54,-1231.17 34.01,-1221.18 30.54,-1231.19 37.54,-1231.17"/>
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M149.78,-2238.06C132.87,-2236.22 113.51,-2230.86 102,-2217 38.37,-2140.36 34.22,-1392.16 34,-1252.42"/>
+<polygon fill="#000000" stroke="#000000" points="37.5,-1252.1 33.99,-1242.1 30.5,-1252.11 37.5,-1252.1"/>
 </g>
-<!-- sourcefile~gr.f90 -->
+<!-- sourcefile~util_exit.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node8" class="node">
-<title>sourcefile~gr.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-2166 157,-2166 157,-2142 211,-2142 211,-2166"/>
-<text text-anchor="middle" x="184" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="217.5,-2208 150.5,-2208 150.5,-2184 217.5,-2184 217.5,-2208"/>
+<text text-anchor="middle" x="184" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge7" class="edge">
-<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.98,-2154.64C138.69,-2153.57 115.22,-2148.84 102,-2133 42.49,-2061.67 35.01,-1366.62 34.12,-1231.64"/>
-<polygon fill="#000000" stroke="#000000" points="37.61,-1231.28 34.05,-1221.3 30.61,-1231.32 37.61,-1231.28"/>
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M150.21,-2196.09C133.21,-2194.29 113.62,-2188.95 102,-2175 41.08,-2101.85 34.73,-1388.27 34.08,-1252.31"/>
+<polygon fill="#000000" stroke="#000000" points="37.58,-1252.23 34.03,-1242.24 30.58,-1252.26 37.58,-1252.23"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
+<!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node9" class="node">
-<title>sourcefile~symba_util.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="225,-2124 143,-2124 143,-2100 225,-2100 225,-2124"/>
-<text text-anchor="middle" x="184" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="223.5,-2166 144.5,-2166 144.5,-2142 223.5,-2142 223.5,-2166"/>
+<text text-anchor="middle" x="184" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge8" class="edge">
-<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.76,-2111.05C127.77,-2108.54 111.98,-2102.92 102,-2091 45.18,-2023.13 35.55,-1362.2 34.2,-1231.42"/>
-<polygon fill="#000000" stroke="#000000" points="37.69,-1231.02 34.1,-1221.06 30.69,-1231.09 37.69,-1231.02"/>
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.43,-2153.33C128.94,-2150.96 112.34,-2145.37 102,-2133 43.77,-2063.33 35.26,-1384.05 34.15,-1252.13"/>
+<polygon fill="#000000" stroke="#000000" points="37.65,-1251.99 34.07,-1242.02 30.65,-1252.05 37.65,-1251.99"/>
 </g>
-<!-- sourcefile~eucl.f90 -->
+<!-- sourcefile~swiftest_driver.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node10" class="node">
-<title>sourcefile~eucl.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-2082 157,-2082 157,-2058 211,-2058 211,-2082"/>
-<text text-anchor="middle" x="184" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="233,-2124 135,-2124 135,-2100 233,-2100 233,-2124"/>
+<text text-anchor="middle" x="184" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge9" class="edge">
-<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.63,-2070.59C138.41,-2069.46 115.18,-2064.68 102,-2049 47.86,-1984.58 36.11,-1357.57 34.29,-1231.15"/>
-<polygon fill="#000000" stroke="#000000" points="37.78,-1231.05 34.15,-1221.1 30.79,-1231.15 37.78,-1231.05"/>
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M134.75,-2109.39C122.35,-2106.34 110.22,-2100.79 102,-2091 46.52,-2024.86 35.83,-1380.92 34.24,-1252.29"/>
+<polygon fill="#000000" stroke="#000000" points="37.74,-1252.04 34.12,-1242.08 30.74,-1252.12 37.74,-1252.04"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~helio_coord.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node11" class="node">
-<title>sourcefile~util_copy.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="219.5,-2040 148.5,-2040 148.5,-2016 219.5,-2016 219.5,-2040"/>
-<text text-anchor="middle" x="184" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
+<title>sourcefile~helio_coord.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="227,-2082 141,-2082 141,-2058 227,-2058 227,-2082"/>
+<text text-anchor="middle" x="184" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge11" class="edge">
-<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M148.23,-2027.8C131.75,-2025.77 113.24,-2020.32 102,-2007 50.58,-1946.08 36.72,-1353.86 34.39,-1231.18"/>
-<polygon fill="#000000" stroke="#000000" points="37.88,-1231.03 34.2,-1221.09 30.88,-1231.15 37.88,-1231.03"/>
+<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge10" class="edge">
+<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.69,-2068.65C126.34,-2065.97 111.55,-2060.33 102,-2049 49.25,-1986.37 36.42,-1377.38 34.34,-1252.36"/>
+<polygon fill="#000000" stroke="#000000" points="37.83,-1252.04 34.17,-1242.1 30.83,-1252.16 37.83,-1252.04"/>
 </g>
-<!-- sourcefile~symba_collision.f90 -->
+<!-- sourcefile~symba_fragmentation.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node12" class="node">
-<title>sourcefile~symba_collision.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="237,-1998 131,-1998 131,-1974 237,-1974 237,-1998"/>
-<text text-anchor="middle" x="184" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
+<title>sourcefile~symba_fragmentation.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-2040 117,-2040 117,-2016 251,-2016 251,-2040"/>
+<text text-anchor="middle" x="184" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M130.61,-1982.19C119.71,-1978.97 109.33,-1973.64 102,-1965 53.28,-1907.56 37.35,-1349.75 34.5,-1231.11"/>
-<polygon fill="#000000" stroke="#000000" points="37.99,-1230.95 34.26,-1221.04 30.99,-1231.12 37.99,-1230.95"/>
+<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge11" class="edge">
+<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M116.85,-2018.69C111.23,-2015.7 106.13,-2011.88 102,-2007 51.96,-1947.85 37.04,-1373.44 34.44,-1252.34"/>
+<polygon fill="#000000" stroke="#000000" points="37.94,-1252 34.23,-1242.07 30.94,-1252.14 37.94,-1252"/>
 </g>
-<!-- sourcefile~symba_io.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node13" class="node">
-<title>sourcefile~symba_io.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222,-1956 146,-1956 146,-1932 222,-1932 222,-1956"/>
-<text text-anchor="middle" x="184" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="239.5,-1998 128.5,-1998 128.5,-1974 239.5,-1974 239.5,-1998"/>
+<text text-anchor="middle" x="184" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.8,-1943.42C129.98,-1941.14 112.75,-1935.6 102,-1923 56.02,-1869.07 38.04,-1346.35 34.62,-1231.32"/>
-<polygon fill="#000000" stroke="#000000" points="38.12,-1231.11 34.33,-1221.21 31.12,-1231.31 38.12,-1231.11"/>
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge12" class="edge">
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M128.12,-1981.4C118.15,-1978.12 108.78,-1972.97 102,-1965 54.7,-1909.38 37.72,-1370.24 34.57,-1252.6"/>
+<polygon fill="#000000" stroke="#000000" points="38.06,-1252.18 34.3,-1242.28 31.06,-1252.37 38.06,-1252.18"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~gr.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node14" class="node">
-<title>sourcefile~helio_drift.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222.5,-1914 145.5,-1914 145.5,-1890 222.5,-1890 222.5,-1914"/>
-<text text-anchor="middle" x="184" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-1956 157,-1956 157,-1932 211,-1932 211,-1956"/>
+<text text-anchor="middle" x="184" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge14" class="edge">
-<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.42,-1901.33C129.72,-1899.01 112.69,-1893.46 102,-1881 58.68,-1830.5 38.73,-1341.37 34.75,-1231.04"/>
-<polygon fill="#000000" stroke="#000000" points="38.25,-1230.91 34.4,-1221.04 31.26,-1231.16 38.25,-1230.91"/>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge13" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.71,-1944.52C138.53,-1943.36 115.31,-1938.57 102,-1923 57.37,-1870.81 38.4,-1365.42 34.69,-1252.36"/>
+<polygon fill="#000000" stroke="#000000" points="38.18,-1252.02 34.37,-1242.14 31.19,-1252.24 38.18,-1252.02"/>
 </g>
-<!-- sourcefile~symba_kick.f90 -->
+<!-- sourcefile~fragmentation.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node15" class="node">
-<title>sourcefile~symba_kick.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="227,-1872 141,-1872 141,-1848 227,-1848 227,-1872"/>
-<text text-anchor="middle" x="184" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
+<title>sourcefile~fragmentation.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="232.5,-1914 135.5,-1914 135.5,-1890 232.5,-1890 232.5,-1914"/>
+<text text-anchor="middle" x="184" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.84,-1858.52C126.51,-1855.83 111.68,-1850.21 102,-1839 61.42,-1792 39.53,-1337.89 34.92,-1231.31"/>
-<polygon fill="#000000" stroke="#000000" points="38.41,-1230.92 34.49,-1221.08 31.42,-1231.22 38.41,-1230.92"/>
+<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge14" class="edge">
+<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.33,-1899.36C122.79,-1896.32 110.43,-1890.8 102,-1881 60.08,-1832.28 39.14,-1361.22 34.84,-1252.37"/>
+<polygon fill="#000000" stroke="#000000" points="38.33,-1252.06 34.45,-1242.21 31.34,-1252.33 38.33,-1252.06"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node16" class="node">
-<title>sourcefile~rmvs_util.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="220.5,-1830 147.5,-1830 147.5,-1806 220.5,-1806 220.5,-1830"/>
-<text text-anchor="middle" x="184" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="255,-1872 113,-1872 113,-1848 255,-1848 255,-1872"/>
+<text text-anchor="middle" x="184" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.16,-1817.49C131.04,-1815.31 113.16,-1809.82 102,-1797 64.08,-1753.43 40.32,-1332.89 35.09,-1231.1"/>
-<polygon fill="#000000" stroke="#000000" points="38.58,-1230.84 34.58,-1221.03 31.59,-1231.2 38.58,-1230.84"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge15" class="edge">
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M112.84,-1848.2C108.82,-1845.66 105.14,-1842.62 102,-1839 62.75,-1793.72 39.92,-1356.48 35.01,-1252.23"/>
+<polygon fill="#000000" stroke="#000000" points="38.5,-1252.03 34.54,-1242.2 31.51,-1252.35 38.5,-1252.03"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~util_rescale.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node17" class="node">
-<title>sourcefile~tides_getacch_pl.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="239.5,-1788 128.5,-1788 128.5,-1764 239.5,-1764 239.5,-1788"/>
-<text text-anchor="middle" x="184" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="226.5,-1830 141.5,-1830 141.5,-1806 226.5,-1806 226.5,-1830"/>
+<text text-anchor="middle" x="184" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge17" class="edge">
-<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M128.31,-1771.23C118.33,-1767.96 108.9,-1762.86 102,-1755 32.12,-1675.41 32.28,-1324.03 33.57,-1231.43"/>
-<polygon fill="#000000" stroke="#000000" points="37.08,-1231.29 33.74,-1221.23 30.08,-1231.17 37.08,-1231.29"/>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge16" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.34,-1816.54C126.88,-1813.87 111.85,-1808.27 102,-1797 65.45,-1755.17 40.78,-1352.03 35.2,-1252.25"/>
+<polygon fill="#000000" stroke="#000000" points="38.69,-1251.9 34.64,-1242.11 31.7,-1252.28 38.69,-1251.9"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~symba_setup.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node18" class="node">
-<title>sourcefile~tides_spin_step.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="236.5,-1746 131.5,-1746 131.5,-1722 236.5,-1722 236.5,-1746"/>
-<text text-anchor="middle" x="184" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="231,-1788 137,-1788 137,-1764 231,-1764 231,-1788"/>
+<text text-anchor="middle" x="184" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge18" class="edge">
-<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M131.3,-1730.08C120.24,-1726.87 109.62,-1721.59 102,-1713 37.45,-1640.23 33.64,-1319.35 33.83,-1231.38"/>
-<polygon fill="#000000" stroke="#000000" points="37.33,-1231.2 33.88,-1221.19 30.33,-1231.17 37.33,-1231.2"/>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge17" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M136.75,-1773.53C123.79,-1770.55 110.84,-1765.02 102,-1755 34.79,-1678.83 32.95,-1342.78 33.7,-1252.43"/>
+<polygon fill="#000000" stroke="#000000" points="37.2,-1252.26 33.8,-1242.23 30.2,-1252.19 37.2,-1252.26"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node19" class="node">
-<title>sourcefile~user_getacch.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="231.5,-1704 136.5,-1704 136.5,-1680 231.5,-1680 231.5,-1704"/>
-<text text-anchor="middle" x="184" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222.5,-1746 145.5,-1746 145.5,-1722 222.5,-1722 222.5,-1746"/>
+<text text-anchor="middle" x="184" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge19" class="edge">
-<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M136.44,-1689.33C123.62,-1686.33 110.83,-1680.84 102,-1671 42.71,-1604.96 35.1,-1313.97 34.13,-1231.1"/>
-<polygon fill="#000000" stroke="#000000" points="37.63,-1230.99 34.04,-1221.03 30.63,-1231.06 37.63,-1230.99"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge18" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.23,-1733.07C129.69,-1730.68 112.83,-1725.14 102,-1713 40.09,-1643.61 34.36,-1337.75 33.98,-1252.26"/>
+<polygon fill="#000000" stroke="#000000" points="37.48,-1252.12 33.96,-1242.12 30.48,-1252.13 37.48,-1252.12"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
+<!-- sourcefile~symba_drift.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node20" class="node">
-<title>sourcefile~whm_step.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="223.5,-1662 144.5,-1662 144.5,-1638 223.5,-1638 223.5,-1662"/>
-<text text-anchor="middle" x="184" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="227,-1704 141,-1704 141,-1680 227,-1680 227,-1704"/>
+<text text-anchor="middle" x="184" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge20" class="edge">
-<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.1,-1648.76C128.93,-1646.25 112.66,-1640.71 102,-1629 48.07,-1569.8 36.71,-1309.56 34.5,-1231.32"/>
-<polygon fill="#000000" stroke="#000000" points="38,-1231.05 34.24,-1221.15 31,-1231.24 38,-1231.05"/>
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge19" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.7,-1690.2C126.52,-1687.45 111.84,-1681.88 102,-1671 45.44,-1608.43 35.9,-1333.22 34.31,-1252.39"/>
+<polygon fill="#000000" stroke="#000000" points="37.81,-1252.26 34.14,-1242.32 30.81,-1252.38 37.81,-1252.26"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
+<!-- sourcefile~whm_drift.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node21" class="node">
-<title>sourcefile~orbel.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211.5,-1620 156.5,-1620 156.5,-1596 211.5,-1596 211.5,-1620"/>
-<text text-anchor="middle" x="184" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222.5,-1662 145.5,-1662 145.5,-1638 222.5,-1638 222.5,-1662"/>
+<text text-anchor="middle" x="184" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge21" class="edge">
-<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.31,-1608.13C138.43,-1606.73 115.73,-1601.81 102,-1587 53.38,-1534.55 38.49,-1304.57 34.95,-1231.42"/>
-<polygon fill="#000000" stroke="#000000" points="38.43,-1230.91 34.47,-1221.08 31.44,-1231.23 38.43,-1230.91"/>
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge20" class="edge">
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.39,-1648.92C129.89,-1646.5 113.01,-1640.98 102,-1629 50.79,-1573.25 37.61,-1328.75 34.72,-1252.68"/>
+<polygon fill="#000000" stroke="#000000" points="38.21,-1252.21 34.36,-1242.34 31.21,-1252.46 38.21,-1252.21"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
+<!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node22" class="node">
-<title>sourcefile~symba_step.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="228,-1578 140,-1578 140,-1554 228,-1554 228,-1578"/>
-<text text-anchor="middle" x="184" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222.5,-1620 145.5,-1620 145.5,-1596 222.5,-1596 222.5,-1620"/>
+<text text-anchor="middle" x="184" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge21" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.09,-1606.75C129.72,-1604.28 113.02,-1598.77 102,-1587 56.04,-1537.93 39.47,-1323.11 35.22,-1252.55"/>
+<polygon fill="#000000" stroke="#000000" points="38.69,-1251.94 34.62,-1242.16 31.7,-1252.34 38.69,-1251.94"/>
+</g>
+<!-- sourcefile~kick.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_node23" class="node">
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-1578 157,-1578 157,-1554 211,-1554 211,-1578"/>
+<text text-anchor="middle" x="184" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge22" class="edge">
-<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M139.71,-1563.69C125.96,-1560.83 111.79,-1555.34 102,-1545 58.66,-1499.26 40.49,-1299.3 35.51,-1231.55"/>
-<polygon fill="#000000" stroke="#000000" points="38.97,-1230.9 34.77,-1221.17 31.99,-1231.39 38.97,-1230.9"/>
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.85,-1566.01C138.99,-1564.58 116.08,-1559.67 102,-1545 61.25,-1502.54 41.55,-1317.15 35.83,-1252.41"/>
+<polygon fill="#000000" stroke="#000000" points="39.29,-1251.77 34.95,-1242.11 32.31,-1252.37 39.29,-1251.77"/>
 </g>
 <!-- sourcefile~rmvs_discard.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_node23" class="node">
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_node24" class="node">
 <title>sourcefile~rmvs_discard.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
 <polygon fill="#f0ad4e" stroke="#f0ad4e" points="231,-1536 137,-1536 137,-1512 231,-1512 231,-1536"/>
 <text text-anchor="middle" x="184" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
 </a>
@@ -834,548 +848,548 @@ <h3 class="panel-title">Files dependent on this one</h3>
 <!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge23" class="edge">
 <title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M136.92,-1520.88C124.13,-1517.86 111.22,-1512.47 102,-1503 63.89,-1463.87 42.75,-1293.43 36.22,-1231.55"/>
-<polygon fill="#000000" stroke="#000000" points="39.67,-1230.91 35.17,-1221.31 32.71,-1231.62 39.67,-1230.91"/>
-</g>
-<!-- sourcefile~whm_drift.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_node24" class="node">
-<title>sourcefile~whm_drift.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222.5,-1494 145.5,-1494 145.5,-1470 222.5,-1470 222.5,-1494"/>
-<text text-anchor="middle" x="184" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge24" class="edge">
-<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.09,-1480.27C129.91,-1477.7 113.36,-1472.24 102,-1461 37.77,-1397.4 32.35,-1279.93 33.09,-1231.14"/>
-<polygon fill="#000000" stroke="#000000" points="36.59,-1231.13 33.35,-1221.05 29.59,-1230.95 36.59,-1231.13"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M136.6,-1520.68C123.94,-1517.64 111.2,-1512.29 102,-1503 66.4,-1467.06 43.89,-1310.53 36.59,-1252.1"/>
+<polygon fill="#000000" stroke="#000000" points="40.06,-1251.59 35.37,-1242.09 33.11,-1252.44 40.06,-1251.59"/>
 </g>
-<!-- sourcefile~util_valid.f90 -->
+<!-- sourcefile~rmvs_setup.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node25" class="node">
-<title>sourcefile~util_valid.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="220,-1452 148,-1452 148,-1428 220,-1428 220,-1452"/>
-<text text-anchor="middle" x="184" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="227,-1494 141,-1494 141,-1470 227,-1470 227,-1494"/>
+<text text-anchor="middle" x="184" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge25" class="edge">
-<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.83,-1438.4C132.05,-1435.95 114.27,-1430.56 102,-1419 47.98,-1368.1 36.78,-1274.01 34.52,-1231.22"/>
-<polygon fill="#000000" stroke="#000000" points="38.01,-1230.89 34.11,-1221.05 31.02,-1231.18 38.01,-1230.89"/>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge24" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.63,-1479.28C126.79,-1476.41 112.33,-1471 102,-1461 42.89,-1403.79 34.47,-1298.05 33.74,-1252.18"/>
+<polygon fill="#000000" stroke="#000000" points="37.24,-1252.1 33.7,-1242.12 30.24,-1252.14 37.24,-1252.1"/>
 </g>
-<!-- sourcefile~kick.f90 -->
+<!-- sourcefile~whm_coord.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node26" class="node">
-<title>sourcefile~kick.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-1410 157,-1410 157,-1386 211,-1386 211,-1410"/>
-<text text-anchor="middle" x="184" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="227,-1452 141,-1452 141,-1428 227,-1428 227,-1452"/>
+<text text-anchor="middle" x="184" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge26" class="edge">
-<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.84,-1397.15C139.43,-1395.29 117.07,-1390.22 102,-1377 58.05,-1338.46 42.08,-1267.38 36.62,-1231.29"/>
-<polygon fill="#000000" stroke="#000000" points="40.08,-1230.71 35.25,-1221.28 33.14,-1231.67 40.08,-1230.71"/>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge25" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.96,-1436.93C127.15,-1434.03 112.63,-1428.69 102,-1419 53.12,-1374.41 39.34,-1292.11 35.49,-1252.48"/>
+<polygon fill="#000000" stroke="#000000" points="38.95,-1251.96 34.62,-1242.29 31.98,-1252.55 38.95,-1251.96"/>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
+<!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node27" class="node">
-<title>sourcefile~helio_gr.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="218,-1368 150,-1368 150,-1344 218,-1344 218,-1368"/>
-<text text-anchor="middle" x="184" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="221.5,-1410 146.5,-1410 146.5,-1386 221.5,-1386 221.5,-1410"/>
+<text text-anchor="middle" x="184" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge27" class="edge">
-<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M149.93,-1353.56C134.07,-1350.95 115.61,-1345.66 102,-1335 67.83,-1308.21 48.63,-1259.32 39.88,-1230.95"/>
-<polygon fill="#000000" stroke="#000000" points="43.19,-1229.8 37.03,-1221.18 36.47,-1231.76 43.19,-1229.8"/>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge26" class="edge">
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M146.39,-1395.37C131.25,-1392.65 114.38,-1387.33 102,-1377 62.99,-1344.44 45.17,-1284.61 38.07,-1252.22"/>
+<polygon fill="#000000" stroke="#000000" points="41.41,-1251.1 35.98,-1242 34.55,-1252.5 41.41,-1251.1"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~setup.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node28" class="node">
-<title>sourcefile~util_resize.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="223.5,-1326 144.5,-1326 144.5,-1302 223.5,-1302 223.5,-1326"/>
-<text text-anchor="middle" x="184" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="212.5,-1368 155.5,-1368 155.5,-1344 212.5,-1344 212.5,-1368"/>
+<text text-anchor="middle" x="184" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge28" class="edge">
-<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.27,-1309.14C130.15,-1306.08 114.58,-1301.1 102,-1293 77.19,-1277.03 57.2,-1248.98 45.47,-1229.72"/>
-<polygon fill="#000000" stroke="#000000" points="48.47,-1227.92 40.39,-1221.06 42.43,-1231.46 48.47,-1227.92"/>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge27" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.34,-1353.89C138.6,-1351.45 117.55,-1346.22 102,-1335 72.56,-1313.77 52.58,-1275.51 42.25,-1251.5"/>
+<polygon fill="#000000" stroke="#000000" points="45.46,-1250.09 38.42,-1242.18 38.98,-1252.76 45.46,-1250.09"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~util_version.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node29" class="node">
-<title>sourcefile~util_spill.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="218,-1284 150,-1284 150,-1260 218,-1260 218,-1284"/>
-<text text-anchor="middle" x="184" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="226.5,-1326 141.5,-1326 141.5,-1302 226.5,-1302 226.5,-1326"/>
+<text text-anchor="middle" x="184" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge58" class="edge">
-<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M149.94,-1265.79C134.96,-1262.38 117.23,-1257.5 102,-1251 86.9,-1244.56 71.24,-1235.1 58.76,-1226.79"/>
-<polygon fill="#000000" stroke="#000000" points="60.51,-1223.75 50.28,-1221 56.57,-1229.53 60.51,-1223.75"/>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge28" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.14,-1307.29C128.08,-1304.12 113.98,-1299.55 102,-1293 81.93,-1282.03 63.19,-1263.82 50.49,-1249.8"/>
+<polygon fill="#000000" stroke="#000000" points="52.97,-1247.32 43.74,-1242.11 47.7,-1251.93 52.97,-1247.32"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node30" class="node">
-<title>sourcefile~helio_step.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="223.5,-1242 144.5,-1242 144.5,-1218 223.5,-1218 223.5,-1242"/>
-<text text-anchor="middle" x="184" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="223,-1284 145,-1284 145,-1260 223,-1260 223,-1284"/>
+<text text-anchor="middle" x="184" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge29" class="edge">
-<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.24,-1224.54C123.34,-1221.59 97.53,-1217.95 76.14,-1214.94"/>
-<polygon fill="#000000" stroke="#000000" points="76.42,-1211.44 66.03,-1213.51 75.45,-1218.38 76.42,-1211.44"/>
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.99,-1262.53C131.39,-1259.04 115.98,-1254.97 102,-1251 93.45,-1248.57 84.34,-1245.85 75.65,-1243.19"/>
+<polygon fill="#000000" stroke="#000000" points="76.67,-1239.84 66.08,-1240.24 74.6,-1246.53 76.67,-1239.84"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node31" class="node">
-<title>sourcefile~util_get_energy_momentum.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="266,-1200 102,-1200 102,-1176 266,-1176 266,-1200"/>
-<text text-anchor="middle" x="184" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211.5,-1242 156.5,-1242 156.5,-1218 211.5,-1218 211.5,-1242"/>
+<text text-anchor="middle" x="184" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge30" class="edge">
-<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M101.96,-1199.42C93.03,-1200.68 84.23,-1201.92 76.08,-1203.07"/>
-<polygon fill="#000000" stroke="#000000" points="75.54,-1199.61 66.13,-1204.47 76.52,-1206.54 75.54,-1199.61"/>
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.36,-1230C134.14,-1230 102.08,-1230 76.34,-1230"/>
+<polygon fill="#000000" stroke="#000000" points="76.11,-1226.5 66.11,-1230 76.11,-1233.5 76.11,-1226.5"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~symba_util.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node32" class="node">
-<title>sourcefile~swiftest_driver.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="233,-1158 135,-1158 135,-1134 233,-1134 233,-1158"/>
-<text text-anchor="middle" x="184" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="225,-1200 143,-1200 143,-1176 225,-1176 225,-1200"/>
+<text text-anchor="middle" x="184" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge31" class="edge">
-<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M134.67,-1156C123.71,-1158.96 112.29,-1162.61 102,-1167 86.9,-1173.44 71.24,-1182.9 58.76,-1191.21"/>
-<polygon fill="#000000" stroke="#000000" points="56.57,-1188.47 50.28,-1197 60.51,-1194.25 56.57,-1188.47"/>
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.94,-1198C129.85,-1201.37 115.28,-1205.23 102,-1209 93.45,-1211.43 84.34,-1214.15 75.65,-1216.81"/>
+<polygon fill="#000000" stroke="#000000" points="74.6,-1213.47 66.08,-1219.76 76.67,-1220.16 74.6,-1213.47"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90 -->
+<!-- sourcefile~rmvs_step.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node33" class="node">
-<title>sourcefile~rmvs_setup.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="227,-1116 141,-1116 141,-1092 227,-1092 227,-1116"/>
-<text text-anchor="middle" x="184" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="224,-1158 144,-1158 144,-1134 224,-1134 224,-1158"/>
+<text text-anchor="middle" x="184" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge32" class="edge">
-<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.95,-1109.61C127.75,-1112.71 113.6,-1117.53 102,-1125 77.19,-1140.97 57.2,-1169.02 45.47,-1188.28"/>
-<polygon fill="#000000" stroke="#000000" points="42.43,-1186.54 40.39,-1196.94 48.47,-1190.08 42.43,-1186.54"/>
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M143.62,-1152.12C129.89,-1155.3 114.75,-1160.03 102,-1167 81.93,-1177.97 63.19,-1196.18 50.49,-1210.2"/>
+<polygon fill="#000000" stroke="#000000" points="47.7,-1208.07 43.74,-1217.89 52.97,-1212.68 47.7,-1208.07"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node34" class="node">
-<title>sourcefile~whm_util.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="220.5,-1074 147.5,-1074 147.5,-1050 220.5,-1050 220.5,-1074"/>
-<text text-anchor="middle" x="184" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="243,-1116 125,-1116 125,-1092 243,-1092 243,-1116"/>
+<text text-anchor="middle" x="184" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge33" class="edge">
-<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.1,-1064.93C131.91,-1067.69 114.81,-1072.96 102,-1083 67.83,-1109.79 48.63,-1158.68 39.88,-1187.05"/>
-<polygon fill="#000000" stroke="#000000" points="36.47,-1186.24 37.03,-1196.82 43.19,-1188.2 36.47,-1186.24"/>
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M124.85,-1113.41C116.73,-1116.3 108.83,-1120.07 102,-1125 72.56,-1146.23 52.58,-1184.49 42.25,-1208.5"/>
+<polygon fill="#000000" stroke="#000000" points="38.98,-1207.24 38.42,-1217.82 45.46,-1209.91 38.98,-1207.24"/>
 </g>
 <!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node35" class="node">
 <title>sourcefile~util_coord.f90</title>
 <g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222.5,-1032 145.5,-1032 145.5,-1008 222.5,-1008 222.5,-1032"/>
-<text text-anchor="middle" x="184" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222.5,-1074 145.5,-1074 145.5,-1050 222.5,-1050 222.5,-1074"/>
+<text text-anchor="middle" x="184" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge34" class="edge">
 <title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.33,-1022.49C130.36,-1025.2 113.91,-1030.56 102,-1041 58.05,-1079.54 42.08,-1150.62 36.62,-1186.71"/>
-<polygon fill="#000000" stroke="#000000" points="33.14,-1186.33 35.25,-1196.72 40.08,-1187.29 33.14,-1186.33"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.16,-1064.86C130.34,-1067.64 114.04,-1072.95 102,-1083 62.99,-1115.56 45.17,-1175.39 38.07,-1207.78"/>
+<polygon fill="#000000" stroke="#000000" points="34.55,-1207.5 35.98,-1218 41.41,-1208.9 34.55,-1207.5"/>
 </g>
-<!-- sourcefile~drift.f90 -->
+<!-- sourcefile~symba_kick.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node36" class="node">
-<title>sourcefile~drift.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-990 157,-990 157,-966 211,-966 211,-990"/>
-<text text-anchor="middle" x="184" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="227,-1032 141,-1032 141,-1008 227,-1008 227,-1032"/>
+<text text-anchor="middle" x="184" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge35" class="edge">
-<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.92,-978.47C139.31,-980.15 116.7,-985.15 102,-999 47.98,-1049.9 36.78,-1143.99 34.52,-1186.78"/>
-<polygon fill="#000000" stroke="#000000" points="31.02,-1186.82 34.11,-1196.95 38.01,-1187.11 31.02,-1186.82"/>
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.96,-1023.07C127.15,-1025.97 112.63,-1031.31 102,-1041 53.12,-1085.59 39.34,-1167.89 35.49,-1207.52"/>
+<polygon fill="#000000" stroke="#000000" points="31.98,-1207.45 34.62,-1217.71 38.95,-1208.04 31.98,-1207.45"/>
 </g>
-<!-- sourcefile~rmvs_step.f90 -->
+<!-- sourcefile~io.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node37" class="node">
-<title>sourcefile~rmvs_step.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="224,-948 144,-948 144,-924 224,-924 224,-948"/>
-<text text-anchor="middle" x="184" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-990 157,-990 157,-966 211,-966 211,-990"/>
+<text text-anchor="middle" x="184" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge36" class="edge">
-<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M143.85,-937.95C129.01,-940.6 113.05,-946.06 102,-957 37.77,-1020.6 32.35,-1138.07 33.09,-1186.86"/>
-<polygon fill="#000000" stroke="#000000" points="29.59,-1187.05 33.35,-1196.95 36.59,-1186.87 29.59,-1187.05"/>
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.8,-978.35C139.14,-979.97 116.51,-984.96 102,-999 42.89,-1056.21 34.47,-1161.95 33.74,-1207.82"/>
+<polygon fill="#000000" stroke="#000000" points="30.24,-1207.86 33.7,-1217.88 37.24,-1207.9 30.24,-1207.86"/>
 </g>
-<!-- sourcefile~whm_gr.f90 -->
+<!-- sourcefile~util_fill.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node38" class="node">
-<title>sourcefile~whm_gr.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="218,-906 150,-906 150,-882 218,-882 218,-906"/>
-<text text-anchor="middle" x="184" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="214,-948 154,-948 154,-924 214,-924 214,-948"/>
+<text text-anchor="middle" x="184" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge37" class="edge">
-<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M149.82,-894.8C133.34,-896.94 114.37,-902.3 102,-915 63.89,-954.13 42.75,-1124.57 36.22,-1186.45"/>
-<polygon fill="#000000" stroke="#000000" points="32.71,-1186.38 35.17,-1196.69 39.67,-1187.09 32.71,-1186.38"/>
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.9,-936.42C136.61,-938.22 115.49,-943.38 102,-957 66.4,-992.94 43.89,-1149.47 36.59,-1207.9"/>
+<polygon fill="#000000" stroke="#000000" points="33.11,-1207.56 35.37,-1217.91 40.06,-1208.41 33.11,-1207.56"/>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
+<!-- sourcefile~whm_gr.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node39" class="node">
-<title>sourcefile~fragmentation.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="232.5,-864 135.5,-864 135.5,-840 232.5,-840 232.5,-864"/>
-<text text-anchor="middle" x="184" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="218,-906 150,-906 150,-882 218,-882 218,-906"/>
+<text text-anchor="middle" x="184" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge38" class="edge">
-<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M135.49,-855.27C123.11,-858.34 110.79,-863.72 102,-873 58.66,-918.74 40.49,-1118.7 35.51,-1186.45"/>
-<polygon fill="#000000" stroke="#000000" points="31.99,-1186.61 34.77,-1196.83 38.97,-1187.1 31.99,-1186.61"/>
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M149.74,-894.73C133.24,-896.84 114.27,-902.21 102,-915 61.25,-957.46 41.55,-1142.85 35.83,-1207.59"/>
+<polygon fill="#000000" stroke="#000000" points="32.31,-1207.63 34.95,-1217.89 39.29,-1208.23 32.31,-1207.63"/>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node40" class="node">
-<title>sourcefile~operator_cross.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="235.5,-822 132.5,-822 132.5,-798 235.5,-798 235.5,-822"/>
-<text text-anchor="middle" x="184" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="227,-864 141,-864 141,-840 227,-840 227,-864"/>
+<text text-anchor="middle" x="184" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge39" class="edge">
-<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M132.41,-813.93C121.05,-817.1 110,-822.37 102,-831 53.38,-883.45 38.49,-1113.43 34.95,-1186.58"/>
-<polygon fill="#000000" stroke="#000000" points="31.44,-1186.77 34.47,-1196.92 38.43,-1187.09 31.44,-1186.77"/>
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.91,-854C126.75,-856.76 112.03,-862.29 102,-873 56.04,-922.07 39.47,-1136.89 35.22,-1207.45"/>
+<polygon fill="#000000" stroke="#000000" points="31.7,-1207.66 34.62,-1217.84 38.69,-1208.06 31.7,-1207.66"/>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
+<!-- sourcefile~discard.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node41" class="node">
-<title>sourcefile~symba_drift.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="227,-780 141,-780 141,-756 227,-756 227,-780"/>
-<text text-anchor="middle" x="184" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="216.5,-822 151.5,-822 151.5,-798 216.5,-798 216.5,-822"/>
+<text text-anchor="middle" x="184" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge40" class="edge">
-<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M140.74,-769.84C126.57,-772.6 111.88,-778.15 102,-789 48.07,-848.2 36.71,-1108.44 34.5,-1186.68"/>
-<polygon fill="#000000" stroke="#000000" points="31,-1186.76 34.24,-1196.85 38,-1186.95 31,-1186.76"/>
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.13,-810.32C134.2,-812.22 114.38,-817.52 102,-831 50.79,-886.75 37.61,-1131.25 34.72,-1207.32"/>
+<polygon fill="#000000" stroke="#000000" points="31.21,-1207.54 34.36,-1217.66 38.21,-1207.79 31.21,-1207.54"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~symba_discard.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node42" class="node">
-<title>sourcefile~util_fill.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="214,-738 154,-738 154,-714 214,-714 214,-738"/>
-<text text-anchor="middle" x="184" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="235.5,-780 132.5,-780 132.5,-756 235.5,-756 235.5,-780"/>
+<text text-anchor="middle" x="184" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge41" class="edge">
-<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.81,-725.93C136.27,-727.52 114.91,-732.62 102,-747 42.71,-813.04 35.1,-1104.03 34.13,-1186.9"/>
-<polygon fill="#000000" stroke="#000000" points="30.63,-1186.94 34.04,-1196.97 37.63,-1187.01 30.63,-1186.94"/>
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M132.26,-771.79C120.9,-774.96 109.89,-780.27 102,-789 45.44,-851.57 35.9,-1126.78 34.31,-1207.61"/>
+<polygon fill="#000000" stroke="#000000" points="30.81,-1207.62 34.14,-1217.68 37.81,-1207.74 30.81,-1207.62"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90 -->
+<!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node43" class="node">
-<title>sourcefile~symba_encounter_check.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="259,-696 109,-696 109,-672 259,-672 259,-696"/>
-<text text-anchor="middle" x="184" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="236.5,-738 131.5,-738 131.5,-714 236.5,-714 236.5,-738"/>
+<text text-anchor="middle" x="184" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge42" class="edge">
-<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M112.57,-696.11C108.66,-698.59 105.08,-701.52 102,-705 37.45,-777.77 33.64,-1098.65 33.83,-1186.62"/>
-<polygon fill="#000000" stroke="#000000" points="30.33,-1186.83 33.88,-1196.81 37.33,-1186.8 30.33,-1186.83"/>
+<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M131.34,-729.95C120.28,-733.16 109.64,-738.44 102,-747 40.09,-816.39 34.36,-1122.25 33.98,-1207.74"/>
+<polygon fill="#000000" stroke="#000000" points="30.48,-1207.87 33.96,-1217.88 37.48,-1207.88 30.48,-1207.87"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
+<!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node44" class="node">
-<title>sourcefile~util_peri.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="218,-654 150,-654 150,-630 218,-630 218,-654"/>
-<text text-anchor="middle" x="184" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="226.5,-696 141.5,-696 141.5,-672 226.5,-672 226.5,-696"/>
+<text text-anchor="middle" x="184" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge43" class="edge">
-<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M149.67,-642.24C132.95,-644.2 113.79,-649.57 102,-663 32.12,-742.59 32.28,-1093.97 33.57,-1186.57"/>
-<polygon fill="#000000" stroke="#000000" points="30.08,-1186.83 33.74,-1196.77 37.08,-1186.71 30.08,-1186.83"/>
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.39,-685.51C126.95,-688.19 111.9,-693.78 102,-705 34.79,-781.17 32.95,-1117.22 33.7,-1207.57"/>
+<polygon fill="#000000" stroke="#000000" points="30.2,-1207.81 33.8,-1217.77 37.2,-1207.74 30.2,-1207.81"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
+<!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node45" class="node">
-<title>sourcefile~rmvs_kick.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="223,-612 145,-612 145,-588 223,-588 223,-612"/>
-<text text-anchor="middle" x="184" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="228,-654 140,-654 140,-630 228,-630 228,-654"/>
+<text text-anchor="middle" x="184" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge44" class="edge">
-<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.67,-600.87C129.22,-603.27 112.59,-608.84 102,-621 64.08,-664.57 40.32,-1085.11 35.09,-1186.9"/>
-<polygon fill="#000000" stroke="#000000" points="31.59,-1186.8 34.58,-1196.97 38.58,-1187.16 31.59,-1186.8"/>
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M139.65,-643.79C125.72,-646.58 111.46,-652.17 102,-663 65.45,-704.83 40.78,-1107.97 35.2,-1207.75"/>
+<polygon fill="#000000" stroke="#000000" points="31.7,-1207.72 34.64,-1217.89 38.69,-1208.1 31.7,-1207.72"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node46" class="node">
-<title>sourcefile~util_set.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="216,-570 152,-570 152,-546 216,-546 216,-570"/>
-<text text-anchor="middle" x="184" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="220.5,-612 147.5,-612 147.5,-588 220.5,-588 220.5,-612"/>
+<text text-anchor="middle" x="184" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge45" class="edge">
-<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.62,-557.94C134.4,-559.68 114.15,-564.93 102,-579 61.42,-626 39.53,-1080.11 34.92,-1186.69"/>
-<polygon fill="#000000" stroke="#000000" points="31.42,-1186.78 34.49,-1196.92 38.41,-1187.08 31.42,-1186.78"/>
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.14,-600.49C131.01,-602.67 113.13,-608.16 102,-621 62.75,-666.28 39.92,-1103.52 35.01,-1207.77"/>
+<polygon fill="#000000" stroke="#000000" points="31.51,-1207.65 34.54,-1217.8 38.5,-1207.97 31.51,-1207.65"/>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~operator_cross.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node47" class="node">
-<title>sourcefile~util_exit.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="217.5,-528 150.5,-528 150.5,-504 217.5,-504 217.5,-528"/>
-<text text-anchor="middle" x="184" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="235.5,-570 132.5,-570 132.5,-546 235.5,-546 235.5,-570"/>
+<text text-anchor="middle" x="184" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge46" class="edge">
-<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M150.36,-516.04C133.41,-517.89 113.82,-523.22 102,-537 58.68,-587.5 38.73,-1076.63 34.75,-1186.96"/>
-<polygon fill="#000000" stroke="#000000" points="31.26,-1186.84 34.4,-1196.96 38.25,-1187.09 31.26,-1186.84"/>
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M132.38,-561.4C120.87,-564.57 109.77,-569.97 102,-579 60.08,-627.72 39.14,-1098.78 34.84,-1207.63"/>
+<polygon fill="#000000" stroke="#000000" points="31.34,-1207.67 34.45,-1217.79 38.33,-1207.94 31.34,-1207.67"/>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
+<!-- sourcefile~helio_gr.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node48" class="node">
-<title>sourcefile~symba_discard.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="235.5,-486 132.5,-486 132.5,-462 235.5,-462 235.5,-486"/>
-<text text-anchor="middle" x="184" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="218,-528 150,-528 150,-504 218,-504 218,-528"/>
+<text text-anchor="middle" x="184" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge47" class="edge">
-<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M132.32,-477.35C120.82,-480.52 109.73,-485.94 102,-495 56.02,-548.93 38.04,-1071.65 34.62,-1186.68"/>
-<polygon fill="#000000" stroke="#000000" points="31.12,-1186.69 34.33,-1196.79 38.12,-1186.89 31.12,-1186.69"/>
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M149.94,-516.07C133.08,-517.95 113.71,-523.31 102,-537 57.37,-589.19 38.4,-1094.58 34.69,-1207.64"/>
+<polygon fill="#000000" stroke="#000000" points="31.19,-1207.76 34.37,-1217.86 38.18,-1207.98 31.19,-1207.76"/>
 </g>
-<!-- sourcefile~util_solve.f90 -->
+<!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node49" class="node">
-<title>sourcefile~util_solve.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="221.5,-444 146.5,-444 146.5,-420 221.5,-420 221.5,-444"/>
-<text text-anchor="middle" x="184" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="220,-486 148,-486 148,-462 220,-462 220,-486"/>
+<text text-anchor="middle" x="184" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge48" class="edge">
-<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M146.19,-432.5C130.25,-434.73 112.81,-440.26 102,-453 53.28,-510.44 37.35,-1068.25 34.5,-1186.89"/>
-<polygon fill="#000000" stroke="#000000" points="30.99,-1186.88 34.26,-1196.96 37.99,-1187.05 30.99,-1186.88"/>
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M147.86,-474.29C131.49,-476.37 113.2,-481.83 102,-495 54.7,-550.62 37.72,-1089.76 34.57,-1207.4"/>
+<polygon fill="#000000" stroke="#000000" points="31.06,-1207.63 34.3,-1217.72 38.06,-1207.82 31.06,-1207.63"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node50" class="node">
-<title>sourcefile~discard.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="216.5,-402 151.5,-402 151.5,-378 216.5,-378 216.5,-402"/>
-<text text-anchor="middle" x="184" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="237,-444 131,-444 131,-420 237,-420 237,-444"/>
+<text text-anchor="middle" x="184" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge49" class="edge">
-<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.5,-389.84C134.24,-391.54 113.99,-396.79 102,-411 50.58,-471.92 36.72,-1064.14 34.39,-1186.82"/>
-<polygon fill="#000000" stroke="#000000" points="30.88,-1186.85 34.2,-1196.91 37.88,-1186.97 30.88,-1186.85"/>
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M130.59,-435.79C119.7,-439.02 109.32,-444.35 102,-453 51.96,-512.15 37.04,-1086.56 34.44,-1207.66"/>
+<polygon fill="#000000" stroke="#000000" points="30.94,-1207.86 34.23,-1217.93 37.94,-1208 30.94,-1207.86"/>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
+<!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node51" class="node">
-<title>sourcefile~helio_kick.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222.5,-360 145.5,-360 145.5,-336 222.5,-336 222.5,-360"/>
-<text text-anchor="middle" x="184" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-402 157,-402 157,-378 211,-378 211,-402"/>
+<text text-anchor="middle" x="184" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge50" class="edge">
-<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.3,-348.57C129.58,-350.87 112.56,-356.43 102,-369 47.86,-433.42 36.11,-1060.43 34.29,-1186.85"/>
-<polygon fill="#000000" stroke="#000000" points="30.79,-1186.85 34.15,-1196.9 37.78,-1186.95 30.79,-1186.85"/>
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.64,-389.42C138.43,-390.55 115.2,-395.33 102,-411 49.25,-473.63 36.42,-1082.62 34.34,-1207.64"/>
+<polygon fill="#000000" stroke="#000000" points="30.83,-1207.84 34.17,-1217.9 37.83,-1207.96 30.83,-1207.84"/>
 </g>
-<!-- sourcefile~whm_kick.f90 -->
+<!-- sourcefile~symba_io.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node52" class="node">
-<title>sourcefile~whm_kick.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222.5,-318 145.5,-318 145.5,-294 222.5,-294 222.5,-318"/>
-<text text-anchor="middle" x="184" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222,-360 146,-360 146,-336 222,-336 222,-360"/>
+<text text-anchor="middle" x="184" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge51" class="edge">
-<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.28,-306.55C129.56,-308.85 112.54,-314.41 102,-327 45.18,-394.87 35.55,-1055.8 34.2,-1186.58"/>
-<polygon fill="#000000" stroke="#000000" points="30.69,-1186.91 34.1,-1196.94 37.69,-1186.98 30.69,-1186.91"/>
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.71,-348.5C129.87,-350.76 112.64,-356.31 102,-369 46.52,-435.14 35.83,-1079.08 34.24,-1207.71"/>
+<polygon fill="#000000" stroke="#000000" points="30.74,-1207.88 34.12,-1217.92 37.74,-1207.96 30.74,-1207.88"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
+<!-- sourcefile~whm_kick.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node53" class="node">
-<title>sourcefile~util_minimize_bfgs.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="243,-276 125,-276 125,-252 243,-252 243,-276"/>
-<text text-anchor="middle" x="184" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="222.5,-318 145.5,-318 145.5,-294 222.5,-294 222.5,-318"/>
+<text text-anchor="middle" x="184" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge52" class="edge">
-<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M124.71,-269.67C116,-272.98 107.96,-277.86 102,-285 42.49,-356.33 35.01,-1051.38 34.12,-1186.36"/>
-<polygon fill="#000000" stroke="#000000" points="30.61,-1186.68 34.05,-1196.7 37.61,-1186.72 30.61,-1186.68"/>
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M145.27,-306.55C129.54,-308.84 112.53,-314.4 102,-327 43.77,-396.67 35.26,-1075.95 34.15,-1207.87"/>
+<polygon fill="#000000" stroke="#000000" points="30.65,-1207.95 34.07,-1217.98 37.65,-1208.01 30.65,-1207.95"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~whm_step.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node54" class="node">
-<title>sourcefile~io.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-234 157,-234 157,-210 211,-210 211,-234"/>
-<text text-anchor="middle" x="184" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="223.5,-276 144.5,-276 144.5,-252 223.5,-252 223.5,-276"/>
+<text text-anchor="middle" x="184" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge53" class="edge">
-<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.96,-221.35C138.67,-222.41 115.19,-227.14 102,-243 39.72,-317.89 34.47,-1048.75 34.04,-1186.63"/>
-<polygon fill="#000000" stroke="#000000" points="30.54,-1186.81 34.01,-1196.82 37.54,-1186.83 30.54,-1186.81"/>
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.41,-264.65C128.92,-267.02 112.32,-272.61 102,-285 41.08,-358.15 34.73,-1071.73 34.08,-1207.69"/>
+<polygon fill="#000000" stroke="#000000" points="30.58,-1207.74 34.03,-1217.76 37.58,-1207.77 30.58,-1207.74"/>
 </g>
-<!-- sourcefile~symba_setup.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node55" class="node">
-<title>sourcefile~symba_setup.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="231,-192 137,-192 137,-168 231,-168 231,-192"/>
-<text text-anchor="middle" x="184" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="216,-234 152,-234 152,-210 216,-210 216,-234"/>
+<text text-anchor="middle" x="184" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge54" class="edge">
-<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M136.79,-182.05C123.67,-184.98 110.62,-190.6 102,-201 36.94,-279.47 33.97,-1046.54 33.97,-1186.98"/>
-<polygon fill="#000000" stroke="#000000" points="30.47,-1186.99 33.97,-1196.98 37.47,-1186.98 30.47,-1186.99"/>
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M151.81,-221.73C134.45,-223.36 113.97,-228.58 102,-243 38.37,-319.64 34.22,-1067.84 34,-1207.58"/>
+<polygon fill="#000000" stroke="#000000" points="30.5,-1207.89 33.99,-1217.9 37.5,-1207.9 30.5,-1207.89"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~util_resize.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node56" class="node">
-<title>sourcefile~symba_fragmentation.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-150 117,-150 117,-126 251,-126 251,-150"/>
-<text text-anchor="middle" x="184" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="223.5,-192 144.5,-192 144.5,-168 223.5,-168 223.5,-192"/>
+<text text-anchor="middle" x="184" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge55" class="edge">
-<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M116.74,-147.22C111.14,-150.22 106.07,-154.07 102,-159 34.28,-240.9 33.49,-1041.46 33.9,-1186.52"/>
-<polygon fill="#000000" stroke="#000000" points="30.41,-1186.85 33.94,-1196.84 37.41,-1186.83 30.41,-1186.85"/>
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M144.38,-180.63C128.88,-182.98 112.28,-188.58 102,-201 35.65,-281.14 33.73,-1064.16 33.94,-1207.52"/>
+<polygon fill="#000000" stroke="#000000" points="30.44,-1207.74 33.96,-1217.73 37.44,-1207.73 30.44,-1207.74"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node57" class="node">
-<title>sourcefile~util_version.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="226.5,-108 141.5,-108 141.5,-84 226.5,-84 226.5,-108"/>
-<text text-anchor="middle" x="184" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="218,-150 150,-150 150,-126 218,-126 218,-150"/>
+<text text-anchor="middle" x="184" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge56" class="edge">
-<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.41,-97.09C126.78,-99.69 111.61,-105.34 102,-117 31.55,-202.42 33.02,-1038.19 33.85,-1186.54"/>
-<polygon fill="#000000" stroke="#000000" points="30.35,-1186.73 33.91,-1196.71 37.35,-1186.69 30.35,-1186.73"/>
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M149.75,-137.91C132.83,-139.75 113.47,-145.11 102,-159 32.91,-242.66 33.25,-1060.83 33.87,-1207.53"/>
+<polygon fill="#000000" stroke="#000000" points="30.38,-1207.97 33.92,-1217.95 37.38,-1207.93 30.38,-1207.97"/>
 </g>
-<!-- sourcefile~setup.f90 -->
+<!-- sourcefile~symba_encounter_check.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node58" class="node">
-<title>sourcefile~setup.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="212.5,-66 155.5,-66 155.5,-42 212.5,-42 212.5,-66"/>
-<text text-anchor="middle" x="184" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="259,-108 109,-108 109,-84 259,-84 259,-108"/>
+<text text-anchor="middle" x="184" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_edge57" class="edge">
-<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155.36,-53.4C137.28,-54.63 114.74,-59.52 102,-75 28.8,-163.97 32.57,-1035.26 33.79,-1186.64"/>
-<polygon fill="#000000" stroke="#000000" points="30.29,-1187.01 33.88,-1196.98 37.29,-1186.95 30.29,-1187.01"/>
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M111.91,-108.1C108.22,-110.58 104.86,-113.52 102,-117 30.17,-204.19 32.8,-1057.69 33.82,-1207.58"/>
+<polygon fill="#000000" stroke="#000000" points="30.32,-1207.87 33.89,-1217.84 37.32,-1207.81 30.32,-1207.87"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~swiftest.f90~~AfferentGraph_node59" class="node">
-<title>sourcefile~rmvs_encounter_check.f90</title>
-<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="255,-24 113,-24 113,0 255,0 255,-24"/>
-<text text-anchor="middle" x="184" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="211,-66 157,-66 157,-42 211,-42 211,-66"/>
+<text text-anchor="middle" x="184" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge10" class="edge">
-<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M112.98,-23.37C108.86,-26.01 105.13,-29.18 102,-33 63.94,-79.35 38.53,-1028.51 34.55,-1186.73"/>
-<polygon fill="#000000" stroke="#000000" points="31.05,-1186.65 34.3,-1196.73 38.05,-1186.82 31.05,-1186.65"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge58" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.91,-53.3C138.59,-54.35 115.1,-59.06 102,-75 27.42,-165.74 32.36,-1054.83 33.77,-1207.69"/>
+<polygon fill="#000000" stroke="#000000" points="30.27,-1207.79 33.86,-1217.75 37.27,-1207.72 30.27,-1207.79"/>
+</g>
+<!-- sourcefile~util_sort.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_node60" class="node">
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~swiftest.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="218,-24 150,-24 150,0 218,0 218,-24"/>
+<text text-anchor="middle" x="184" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest.f90~~AfferentGraph_edge59" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M149.71,-11.88C132.79,-13.71 113.42,-19.07 102,-33 63.25,-80.25 38.37,-1048.3 34.52,-1207.83"/>
+<polygon fill="#000000" stroke="#000000" points="31.02,-1207.82 34.28,-1217.9 38.02,-1207.99 31.02,-1207.82"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/swiftest_classes.f90.html b/docs/sourcefile/swiftest_classes.f90.html
index 7c955a640..0dd0c66f0 100644
--- a/docs/sourcefile/swiftest_classes.f90.html
+++ b/docs/sourcefile/swiftest_classes.f90.html
@@ -134,7 +134,7 @@ <h1>swiftest_classes.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 8.3% of total for source files.">1099 statements</a>
+    title=" 8.3% of total for source files.">1112 statements</a>
      </li> 
      
      
@@ -303,1296 +303,1317 @@ <h3 class="panel-title">Files dependent on this one</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~swiftest_classes.f90~~AfferentGraph Pages: 1 -->
-<svg id="sourcefileswiftest_classesf90AfferentGraph" width="641pt" height="1903pt"
- viewBox="0.00 0.00 641.00 1903.39" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph" class="graph" transform="scale(0.78 0.78) rotate(0) translate(4 2422)">
+<svg id="sourcefileswiftest_classesf90AfferentGraph" width="641pt" height="1936pt"
+ viewBox="0.00 0.00 641.00 1936.34" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph" class="graph" transform="scale(0.78 0.78) rotate(0) translate(4 2464)">
 <title>sourcefile~~swiftest_classes.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2422 813,-2422 813,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 813,-2464 813,4 -4,4"/>
 <!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node1" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<polygon fill="none" stroke="black" points="107,-1137 0,-1137 0,-1113 107,-1113 107,-1137"/>
-<text text-anchor="middle" x="53.5" y="-1122.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_classes.f90</text>
+<polygon fill="none" stroke="black" points="107,-1411 0,-1411 0,-1387 107,-1387 107,-1411"/>
+<text text-anchor="middle" x="53.5" y="-1396.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_classes.f90</text>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~eucl.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node2" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="507,-994 404,-994 404,-970 507,-970 507,-994"/>
-<text text-anchor="middle" x="455.5" y="-979.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~eucl.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="754,-2460 700,-2460 700,-2436 754,-2436 754,-2460"/>
+<text text-anchor="middle" x="727" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge1" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M189,-1145C165.46,-1145.12 139.85,-1142.11 117.35,-1138.4"/>
-<polygon fill="#000000" stroke="#000000" points="117.7,-1134.9 107.25,-1136.65 116.51,-1141.8 117.7,-1134.9"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M430.5,-994.15C387.58,-1016.1 299.69,-1062.11 273,-1084 253.99,-1099.59 256.91,-1111.58 237,-1126 219.09,-1138.98 213.12,-1144.89 191,-1145"/>
-</g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367.5,-1117 273.5,-1117 273.5,-1093 367.5,-1093 367.5,-1117"/>
-<text text-anchor="middle" x="320.5" y="-1102.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge44" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M423.6,-994.04C416.58,-997.77 409.56,-1002.4 404,-1008 379.06,-1033.09 392.5,-1053.48 368,-1079 365.05,-1082.08 361.65,-1084.89 358.06,-1087.43"/>
-<polygon fill="#000000" stroke="#000000" points="356.04,-1084.57 349.46,-1092.88 359.78,-1090.48 356.04,-1084.57"/>
+<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.84,-2440.83C651.95,-2428.36 546.81,-2404 456.5,-2404 456.5,-2404 456.5,-2404 319.5,-2404 109.13,-2404 62.13,-1570.22 55.43,-1421.54"/>
+<polygon fill="#000000" stroke="#000000" points="58.91,-1421.18 54.98,-1411.34 51.92,-1421.49 58.91,-1421.18"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node52" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368,-1015 273,-1015 273,-991 368,-991 368,-1015"/>
-<text text-anchor="middle" x="320.5" y="-1000.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node13" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="609,-1284 543,-1284 543,-1260 609,-1260 609,-1284"/>
+<text text-anchor="middle" x="576" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge119" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M403.84,-990C395.4,-991.33 386.59,-992.72 378.02,-994.08"/>
-<polygon fill="#000000" stroke="#000000" points="377.42,-990.63 368.09,-995.64 378.51,-997.54 377.42,-990.63"/>
+<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge34" class="edge">
+<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.79,-2448.79C681.41,-2447.8 657.9,-2443.09 645,-2427 608.73,-2381.76 618.03,-1441.27 609,-1384 603.94,-1351.92 592.64,-1316.02 584.92,-1293.72"/>
+<polygon fill="#000000" stroke="#000000" points="588.19,-1292.47 581.56,-1284.21 581.59,-1294.8 588.19,-1292.47"/>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node3" class="node">
-<title>sourcefile~obl.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="754,-2418 700,-2418 700,-2394 754,-2394 754,-2418"/>
-<text text-anchor="middle" x="727" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="762.5,-1158 691.5,-1158 691.5,-1134 762.5,-1134 762.5,-1158"/>
+<text text-anchor="middle" x="727" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge2" class="edge">
-<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.85,-2406.39C681.75,-2405.17 658.55,-2400.36 645,-2385 567.17,-2296.79 682.16,-1912.73 577,-1860"/>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node24" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="609,-1158 543,-1158 543,-1134 609,-1134 609,-1158"/>
-<text text-anchor="middle" x="576" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M691.47,-1145.58C675.05,-1143.5 656.53,-1138.07 645,-1125 489.33,-948.57 763.57,-456.65 577,-600"/>
 </g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge61" class="edge">
-<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.89,-2406.71C681.56,-2405.68 658.07,-2400.96 645,-2385 634.95,-2372.73 585.81,-1333.76 578.04,-1168.14"/>
-<polygon fill="#000000" stroke="#000000" points="581.53,-1167.96 577.57,-1158.13 574.54,-1168.29 581.53,-1167.96"/>
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge35" class="edge">
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M691.28,-1149.27C675.96,-1152.09 658.43,-1157.31 645,-1167 615.56,-1188.23 595.58,-1226.49 585.25,-1250.5"/>
+<polygon fill="#000000" stroke="#000000" points="581.98,-1249.24 581.42,-1259.82 588.46,-1251.91 581.98,-1249.24"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node4" class="node">
-<title>sourcefile~util_sort.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="761,-2376 693,-2376 693,-2352 761,-2352 761,-2376"/>
-<text text-anchor="middle" x="727" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="809,-1116 645,-1116 645,-1092 809,-1092 809,-1116"/>
+<text text-anchor="middle" x="727" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge3" class="edge">
-<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.76,-2363.68C676.06,-2361.7 656.9,-2356.33 645,-2343 572.84,-2262.12 673.89,-1908.59 577,-1860"/>
+<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M655.59,-1091.87C651.68,-1089.4 648.09,-1086.47 645,-1083 500.68,-921.24 748.9,-467.92 577,-600"/>
 </g>
-<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge62" class="edge">
-<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.71,-2364.12C675.79,-2362.29 656.42,-2356.93 645,-2343 635.3,-2331.18 586.06,-1331.48 578.09,-1168.38"/>
-<polygon fill="#000000" stroke="#000000" points="581.57,-1167.93 577.59,-1158.11 574.58,-1168.27 581.57,-1167.93"/>
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge37" class="edge">
+<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.04,-1116.05C654,-1118.51 649.24,-1121.46 645,-1125 605.99,-1157.56 588.17,-1217.39 581.07,-1249.78"/>
+<polygon fill="#000000" stroke="#000000" points="577.55,-1249.5 578.98,-1260 584.41,-1250.9 577.55,-1249.5"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node5" class="node">
-<title>sourcefile~util_append.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="770,-2334 684,-2334 684,-2310 770,-2310 770,-2334"/>
-<text text-anchor="middle" x="727" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="774.5,-1074 679.5,-1074 679.5,-1050 774.5,-1050 774.5,-1074"/>
+<text text-anchor="middle" x="727" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge4" class="edge">
-<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.7,-2320.2C669.52,-2317.45 654.84,-2311.88 645,-2301 512,-2153.89 754.28,-1948.89 577,-1860"/>
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M679.48,-1059.3C666.66,-1056.29 653.87,-1050.81 645,-1041 512,-893.89 734.26,-479.18 577,-600"/>
 </g>
-<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge65" class="edge">
-<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.97,-2320.85C669.47,-2318.22 654.5,-2312.56 645,-2301 626.3,-2278.25 584.76,-1327.07 577.95,-1168.35"/>
-<polygon fill="#000000" stroke="#000000" points="581.45,-1168.15 577.52,-1158.31 574.45,-1168.45 581.45,-1168.15"/>
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge38" class="edge">
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M679.34,-1066.13C666.97,-1069.21 654.44,-1074.38 645,-1083 596.12,-1127.59 582.34,-1209.89 578.49,-1249.52"/>
+<polygon fill="#000000" stroke="#000000" points="574.98,-1249.45 577.62,-1259.71 581.95,-1250.04 574.98,-1249.45"/>
 </g>
-<!-- sourcefile~gr.f90 -->
+<!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node6" class="node">
-<title>sourcefile~gr.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="754,-2292 700,-2292 700,-2268 754,-2268 754,-2292"/>
-<text text-anchor="middle" x="727" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="761,-1032 693,-1032 693,-1008 761,-1008 761,-1032"/>
+<text text-anchor="middle" x="727" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge5" class="edge">
-<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.65,-2280.2C681.69,-2278.85 658.76,-2273.98 645,-2259 523.31,-2126.52 737.81,-1940.63 577,-1860"/>
-</g>
-<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge67" class="edge">
-<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.92,-2280.69C681.6,-2279.64 658.12,-2274.92 645,-2259 626.99,-2237.13 585.04,-1324.22 578.01,-1168.48"/>
-<polygon fill="#000000" stroke="#000000" points="581.49,-1168.07 577.55,-1158.24 574.5,-1168.38 581.49,-1168.07"/>
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.92,-1019.54C676.26,-1017.52 657.09,-1012.16 645,-999 523.31,-866.52 719.65,-490.4 577,-600"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge6" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.56,-1117.14C270.25,-1128.84 228.85,-1144.8 191,-1145"/>
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge39" class="edge">
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.72,-1021.16C676.42,-1023.41 657.63,-1028.77 645,-1041 585.89,-1098.21 577.47,-1203.95 576.74,-1249.82"/>
+<polygon fill="#000000" stroke="#000000" points="573.24,-1249.86 576.7,-1259.88 580.24,-1249.9 573.24,-1249.86"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node20" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="237,-1117 143,-1117 143,-1093 237,-1093 237,-1117"/>
-<text text-anchor="middle" x="190" y="-1102.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<!-- sourcefile~util_exit.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node7" class="node">
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="760.5,-990 693.5,-990 693.5,-966 760.5,-966 760.5,-990"/>
+<text text-anchor="middle" x="727" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge58" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.47,-1105C264.98,-1105 256.03,-1105 247.28,-1105"/>
-<polygon fill="#000000" stroke="#000000" points="247.14,-1101.5 237.14,-1105 247.14,-1108.5 247.14,-1101.5"/>
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge6" class="edge">
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M693.42,-977.49C676.7,-975.49 657.31,-970.15 645,-957 534.59,-839.11 705.08,-501.59 577,-600"/>
 </g>
-<!-- sourcefile~eucl.f90 -->
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge40" class="edge">
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M693.31,-978.84C676.76,-980.96 657.57,-986.3 645,-999 609.4,-1034.94 586.89,-1191.47 579.59,-1249.9"/>
+<polygon fill="#000000" stroke="#000000" points="576.11,-1249.56 578.37,-1259.91 583.06,-1250.41 576.11,-1249.56"/>
+</g>
+<!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node8" class="node">
-<title>sourcefile~eucl.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="754,-2250 700,-2250 700,-2226 754,-2226 754,-2250"/>
-<text text-anchor="middle" x="727" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="782.5,-948 671.5,-948 671.5,-924 782.5,-924 782.5,-948"/>
+<text text-anchor="middle" x="727" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge7" class="edge">
-<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.74,-2238.12C681.82,-2236.73 658.9,-2231.84 645,-2217 534.59,-2099.11 721.38,-1932.4 577,-1860"/>
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M671.43,-930.61C661.55,-927.37 652.14,-922.44 645,-915 545.83,-811.67 690.57,-512.74 577,-600"/>
 </g>
-<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge69" class="edge">
-<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.93,-2238.68C681.62,-2237.63 658.14,-2232.91 645,-2217 627.68,-2196.02 585.33,-1321.09 578.07,-1168.56"/>
-<polygon fill="#000000" stroke="#000000" points="581.54,-1167.96 577.57,-1158.14 574.55,-1168.29 581.54,-1167.96"/>
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge45" class="edge">
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M671.43,-941.39C661.55,-944.63 652.14,-949.56 645,-957 604.25,-999.46 584.55,-1184.85 578.83,-1249.59"/>
+<polygon fill="#000000" stroke="#000000" points="575.31,-1249.63 577.95,-1259.89 582.29,-1250.23 575.31,-1249.63"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~gr.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node9" class="node">
-<title>sourcefile~util_copy.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="762.5,-2208 691.5,-2208 691.5,-2184 762.5,-2184 762.5,-2208"/>
-<text text-anchor="middle" x="727" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="754,-906 700,-906 700,-882 754,-882 754,-906"/>
+<text text-anchor="middle" x="727" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge8" class="edge">
-<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M691.11,-2195.05C675.01,-2192.8 656.87,-2187.37 645,-2175 545.83,-2071.67 705.03,-1924.2 577,-1860"/>
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.99,-893.87C682.2,-892.38 659.31,-887.45 645,-873 557.01,-784.16 676.15,-523.82 577,-600"/>
 </g>
-<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge71" class="edge">
-<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M691.12,-2195.89C674.61,-2193.88 656.12,-2188.43 645,-2175 628.34,-2154.88 585.53,-1315.98 578.11,-1168.14"/>
-<polygon fill="#000000" stroke="#000000" points="581.59,-1167.83 577.6,-1158.02 574.6,-1168.18 581.59,-1167.83"/>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge46" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.74,-893.88C681.82,-895.27 658.9,-900.16 645,-915 599.04,-964.07 582.47,-1178.89 578.22,-1249.45"/>
+<polygon fill="#000000" stroke="#000000" points="574.7,-1249.66 577.62,-1259.84 581.69,-1250.06 574.7,-1249.66"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~fragmentation.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node10" class="node">
-<title>sourcefile~tides_getacch_pl.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="782.5,-2166 671.5,-2166 671.5,-2142 782.5,-2142 782.5,-2166"/>
-<text text-anchor="middle" x="727" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
+<title>sourcefile~fragmentation.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="775.5,-864 678.5,-864 678.5,-840 775.5,-840 775.5,-864"/>
+<text text-anchor="middle" x="727" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge9" class="edge">
-<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M671.19,-2148.29C661.46,-2145.07 652.16,-2140.22 645,-2133 557.01,-2044.16 688.78,-1916.05 577,-1860"/>
+<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.16,-848.01C666.06,-844.91 653.98,-839.69 645,-831 568.1,-756.57 661.87,-534.8 577,-600"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge77" class="edge">
-<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M671.39,-2149.66C661.27,-2146.37 651.77,-2141.16 645,-2133 613.12,-2094.6 583.07,-1312.14 577.81,-1168.54"/>
-<polygon fill="#000000" stroke="#000000" points="581.3,-1168.17 577.44,-1158.3 574.3,-1168.42 581.3,-1168.17"/>
+<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge47" class="edge">
+<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.31,-855.1C665.92,-858.16 653.65,-863.58 645,-873 593.79,-928.75 580.61,-1173.25 577.72,-1249.32"/>
+<polygon fill="#000000" stroke="#000000" points="574.21,-1249.54 577.36,-1259.66 581.21,-1249.79 574.21,-1249.54"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~util_rescale.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node11" class="node">
-<title>sourcefile~tides_spin_step.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="779.5,-2124 674.5,-2124 674.5,-2100 779.5,-2100 779.5,-2124"/>
-<text text-anchor="middle" x="727" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="769.5,-822 684.5,-822 684.5,-798 769.5,-798 769.5,-822"/>
+<text text-anchor="middle" x="727" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge10" class="edge">
-<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M674.36,-2106.97C663.57,-2103.78 653.04,-2098.78 645,-2091 568.1,-2016.57 672.67,-1907.97 577,-1860"/>
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M684.38,-807.02C670.44,-804.14 655.73,-798.79 645,-789 579.05,-728.83 647.79,-545.61 577,-600"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge78" class="edge">
-<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M674.33,-2108.53C663.14,-2105.33 652.44,-2099.93 645,-2091 614.47,-2054.35 583.43,-1308.15 577.88,-1168.43"/>
-<polygon fill="#000000" stroke="#000000" points="581.36,-1167.97 577.47,-1158.12 574.37,-1168.25 581.36,-1167.97"/>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge49" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M684.12,-811.72C669.81,-814.44 654.94,-820.01 645,-831 588.44,-893.57 578.9,-1168.78 577.31,-1249.61"/>
+<polygon fill="#000000" stroke="#000000" points="573.81,-1249.62 577.14,-1259.68 580.81,-1249.74 573.81,-1249.62"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~kick.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node12" class="node">
-<title>sourcefile~user_getacch.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="774.5,-2082 679.5,-2082 679.5,-2058 774.5,-2058 774.5,-2082"/>
-<text text-anchor="middle" x="727" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="754,-780 700,-780 700,-756 754,-756 754,-780"/>
+<text text-anchor="middle" x="727" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge11" class="edge">
-<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M679.34,-2065.87C666.97,-2062.79 654.44,-2057.62 645,-2049 579.05,-1988.83 656.8,-1900.02 577,-1860"/>
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.67,-766.87C682.4,-764.87 660.28,-759.75 645,-747 589.74,-700.87 634.08,-556.14 577,-600"/>
 </g>
-<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge79" class="edge">
-<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M679.42,-2067.81C666.44,-2064.85 653.57,-2059.26 645,-2049 615.83,-2014.09 583.81,-1303.94 577.95,-1168.28"/>
-<polygon fill="#000000" stroke="#000000" points="581.44,-1168.07 577.52,-1158.23 574.45,-1168.37 581.44,-1168.07"/>
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge55" class="edge">
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.9,-767.65C681.82,-768.9 658.64,-773.72 645,-789 583.09,-858.39 577.36,-1164.25 576.98,-1249.74"/>
+<polygon fill="#000000" stroke="#000000" points="573.48,-1249.87 576.96,-1259.88 580.48,-1249.88 573.48,-1249.87"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node13" class="node">
-<title>sourcefile~orbel.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="754.5,-2040 699.5,-2040 699.5,-2016 754.5,-2016 754.5,-2040"/>
-<text text-anchor="middle" x="727" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M454.5,-1359C407.2,-1394.45 380.44,-1354.51 321.5,-1359"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M558.52,-1284.13C544.75,-1294.26 524.6,-1309.08 507,-1322 484.57,-1338.46 478.76,-1342.31 456.5,-1359"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.5,-1359C262.55,-1363.34 247.52,-1350.83 191,-1359"/>
+</g>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node21" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367.5,-1411 273.5,-1411 273.5,-1387 367.5,-1387 367.5,-1411"/>
+<text text-anchor="middle" x="320.5" y="-1396.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge12" class="edge">
-<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.29,-2026.83C682.08,-2024.8 660.17,-2019.66 645,-2007 589.74,-1960.87 641.35,-1892.27 577,-1860"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge94" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M454.5,-1359C432.19,-1375.72 402.89,-1385.5 377.48,-1391.19"/>
+<polygon fill="#000000" stroke="#000000" points="376.66,-1387.79 367.58,-1393.25 378.09,-1394.64 376.66,-1387.79"/>
 </g>
-<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge81" class="edge">
-<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.23,-2028.57C681.07,-2027.4 658.07,-2022.58 645,-2007 617.2,-1973.86 584.26,-1300.79 578.04,-1168.47"/>
-<polygon fill="#000000" stroke="#000000" points="581.53,-1168.13 577.57,-1158.31 574.54,-1168.46 581.53,-1168.13"/>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node26" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="237,-1411 143,-1411 143,-1387 237,-1387 237,-1411"/>
+<text text-anchor="middle" x="190" y="-1396.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~util_valid.f90 -->
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge101" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.5,-1359C287.21,-1361.46 252.22,-1372.98 226.91,-1383.03"/>
+<polygon fill="#000000" stroke="#000000" points="225.31,-1379.91 217.38,-1386.93 227.96,-1386.38 225.31,-1379.91"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node32" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="507,-1451 404,-1451 404,-1427 507,-1427 507,-1451"/>
+<text text-anchor="middle" x="455.5" y="-1436.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge111" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M567.07,-1284.29C554.62,-1303.47 529.57,-1341.58 507,-1373 495.92,-1388.42 482.89,-1405.44 472.83,-1418.32"/>
+<polygon fill="#000000" stroke="#000000" points="469.83,-1416.49 466.41,-1426.52 475.33,-1420.81 469.83,-1416.49"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node60" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="368,-1646 273,-1646 273,-1622 368,-1622 368,-1646"/>
+<text text-anchor="middle" x="320.5" y="-1631.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge122" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M454.5,-1359C368.33,-1423.59 335.18,-1558.73 325.16,-1611.87"/>
+<polygon fill="#000000" stroke="#000000" points="321.68,-1611.44 323.36,-1621.91 328.57,-1612.68 321.68,-1611.44"/>
+</g>
+<!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node14" class="node">
-<title>sourcefile~util_valid.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="763,-1998 691,-1998 691,-1974 763,-1974 763,-1998"/>
-<text text-anchor="middle" x="727" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="764.5,-738 689.5,-738 689.5,-714 764.5,-714 764.5,-738"/>
+<text text-anchor="middle" x="727" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge13" class="edge">
-<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M690.88,-1982.65C675.66,-1979.82 658.31,-1974.6 645,-1965 599.91,-1932.47 626.7,-1884.92 577,-1860"/>
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M689.25,-722.34C674.43,-719.45 657.84,-714.26 645,-705 599.91,-672.47 621.09,-566.13 577,-600"/>
 </g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge85" class="edge">
-<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M690.8,-1985.75C674.42,-1983.69 656.14,-1978.22 645,-1965 592.25,-1902.37 579.42,-1293.38 577.34,-1168.36"/>
-<polygon fill="#000000" stroke="#000000" points="580.83,-1168.04 577.17,-1158.1 573.83,-1168.16 580.83,-1168.04"/>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge59" class="edge">
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M689.41,-726.69C673.52,-728.96 656.05,-734.47 645,-747 577.79,-823.17 575.95,-1159.22 576.7,-1249.57"/>
+<polygon fill="#000000" stroke="#000000" points="573.2,-1249.81 576.8,-1259.77 580.2,-1249.74 573.2,-1249.81"/>
 </g>
-<!-- sourcefile~kick.f90 -->
+<!-- sourcefile~setup.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node15" class="node">
-<title>sourcefile~kick.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="754,-1956 700,-1956 700,-1932 754,-1932 754,-1956"/>
-<text text-anchor="middle" x="727" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="755.5,-696 698.5,-696 698.5,-672 755.5,-672 755.5,-696"/>
+<text text-anchor="middle" x="727" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge14" class="edge">
-<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.98,-1940.6C683.47,-1937.66 662.08,-1932.34 645,-1923 608.85,-1903.23 613.83,-1878.47 577,-1860"/>
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M698.49,-680.33C682.2,-677.34 661.57,-672.06 645,-663 608.85,-643.23 609.67,-574.9 577,-600"/>
 </g>
-<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge86" class="edge">
-<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.66,-1944.56C681.46,-1943.42 658.23,-1938.64 645,-1923 594.96,-1863.85 580.04,-1289.44 577.44,-1168.34"/>
-<polygon fill="#000000" stroke="#000000" points="580.94,-1168 577.23,-1158.07 573.94,-1168.14 580.94,-1168"/>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge60" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M698.25,-683.68C680.37,-685.05 658.1,-690.01 645,-705 608.45,-746.83 583.78,-1149.97 578.2,-1249.75"/>
+<polygon fill="#000000" stroke="#000000" points="574.7,-1249.72 577.64,-1259.89 581.69,-1250.1 574.7,-1249.72"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~util_version.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node16" class="node">
-<title>sourcefile~util_resize.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="766.5,-1914 687.5,-1914 687.5,-1890 766.5,-1890 766.5,-1914"/>
-<text text-anchor="middle" x="727" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="769.5,-654 684.5,-654 684.5,-630 769.5,-630 769.5,-654"/>
+<text text-anchor="middle" x="727" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge15" class="edge">
-<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.49,-1895.34C656.5,-1889.01 612.44,-1877.77 577,-1860"/>
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M684.28,-631.57C671.63,-628.31 657.72,-624.61 645,-621 614.57,-612.36 602.08,-580.73 577,-600"/>
 </g>
-<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge88" class="edge">
-<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.11,-1901.18C671.76,-1898.76 655.35,-1893.17 645,-1881 597.7,-1825.38 580.72,-1286.24 577.57,-1168.6"/>
-<polygon fill="#000000" stroke="#000000" points="581.06,-1168.18 577.3,-1158.28 574.06,-1168.37 581.06,-1168.18"/>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge61" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M684.29,-643.42C669.83,-646.09 654.8,-651.69 645,-663 605.75,-708.28 582.92,-1145.52 578.01,-1249.77"/>
+<polygon fill="#000000" stroke="#000000" points="574.51,-1249.65 577.54,-1259.8 581.5,-1249.97 574.51,-1249.65"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node17" class="node">
-<title>sourcefile~util_get_energy_momentum.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="809,-1872 645,-1872 645,-1848 809,-1848 809,-1872"/>
-<text text-anchor="middle" x="727" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="754.5,-612 699.5,-612 699.5,-588 754.5,-588 754.5,-612"/>
+<text text-anchor="middle" x="727" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge16" class="edge">
-<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M665.48,-1872.03C637.22,-1874.72 603.94,-1873.51 577,-1860"/>
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.23,-591.09C666.77,-582.1 612.08,-573.05 577,-600"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge90" class="edge">
-<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M655.06,-1847.78C651.33,-1845.32 647.93,-1842.42 645,-1839 600.37,-1786.81 581.4,-1281.42 577.69,-1168.36"/>
-<polygon fill="#000000" stroke="#000000" points="581.18,-1168.02 577.37,-1158.14 574.19,-1168.24 581.18,-1168.02"/>
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge63" class="edge">
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.35,-599.53C681.25,-600.75 658.27,-605.58 645,-621 603.08,-669.72 582.14,-1140.78 577.84,-1249.63"/>
+<polygon fill="#000000" stroke="#000000" points="574.34,-1249.67 577.45,-1259.79 581.33,-1249.94 574.34,-1249.67"/>
 </g>
-<!-- sourcefile~util_coord.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node18" class="node">
-<title>sourcefile~util_coord.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="765.5,-1830 688.5,-1830 688.5,-1806 765.5,-1806 765.5,-1830"/>
-<text text-anchor="middle" x="727" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="786,-570 668,-570 668,-546 786,-546 786,-570"/>
+<text text-anchor="middle" x="727" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge17" class="edge">
-<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.4,-1827.37C674.7,-1830.88 659.11,-1834.99 645,-1839 614.57,-1847.64 605.27,-1874.18 577,-1860"/>
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M667.64,-564.06C638.06,-569.55 603,-580.02 577,-600"/>
 </g>
-<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge94" class="edge">
-<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.44,-1817.31C672.74,-1814.99 655.71,-1809.44 645,-1797 603.08,-1748.28 582.14,-1277.22 577.84,-1168.37"/>
-<polygon fill="#000000" stroke="#000000" points="581.33,-1168.06 577.45,-1158.21 574.34,-1168.33 581.33,-1168.06"/>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge66" class="edge">
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M667.85,-563.79C659.13,-567.09 651.04,-571.93 645,-579 600.37,-631.19 581.4,-1136.58 577.69,-1249.64"/>
+<polygon fill="#000000" stroke="#000000" points="574.19,-1249.76 577.37,-1259.86 581.18,-1249.98 574.19,-1249.76"/>
 </g>
-<!-- sourcefile~drift.f90 -->
+<!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node19" class="node">
-<title>sourcefile~drift.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="754,-1788 700,-1788 700,-1764 754,-1764 754,-1788"/>
-<text text-anchor="middle" x="727" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
+<title>sourcefile~util_coord.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="765.5,-528 688.5,-528 688.5,-504 765.5,-504 765.5,-528"/>
+<text text-anchor="middle" x="727" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge18" class="edge">
-<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.98,-1779.4C683.47,-1782.34 662.08,-1787.66 645,-1797 608.85,-1816.77 613.83,-1878.47 577,-1860"/>
-</g>
-<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge95" class="edge">
-<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.77,-1776.46C681.63,-1775.28 658.42,-1770.48 645,-1755 605.75,-1709.72 582.92,-1272.48 578.01,-1168.23"/>
-<polygon fill="#000000" stroke="#000000" points="581.5,-1168.03 577.54,-1158.2 574.51,-1168.35 581.5,-1168.03"/>
+<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.26,-521.75C674.11,-524.93 658.26,-529.75 645,-537 608.85,-556.77 609.67,-574.9 577,-600"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge19" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.71,-1111.88C134.52,-1113.1 125.87,-1114.39 117.31,-1115.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.72,-1112.21 107.34,-1117.14 117.75,-1119.13 116.72,-1112.21"/>
+<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge67" class="edge">
+<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.37,-516.63C672.66,-518.94 655.63,-524.49 645,-537 597.7,-592.62 580.72,-1131.76 577.57,-1249.4"/>
+<polygon fill="#000000" stroke="#000000" points="574.06,-1249.63 577.3,-1259.72 581.06,-1249.82 574.06,-1249.63"/>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node21" class="node">
-<title>sourcefile~fragmentation.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="775.5,-1746 678.5,-1746 678.5,-1722 775.5,-1722 775.5,-1746"/>
-<text text-anchor="middle" x="727" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
+<!-- sourcefile~io.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node20" class="node">
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="754,-486 700,-486 700,-462 754,-462 754,-486"/>
+<text text-anchor="middle" x="727" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge19" class="edge">
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.85,-475.9C682.88,-478.24 661.02,-483.44 645,-495 599.91,-527.53 621.09,-566.13 577,-600"/>
+</g>
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge69" class="edge">
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.66,-473.44C681.46,-474.58 658.23,-479.36 645,-495 594.96,-554.15 580.04,-1128.56 577.44,-1249.66"/>
+<polygon fill="#000000" stroke="#000000" points="573.94,-1249.86 577.23,-1259.93 580.94,-1250 573.94,-1249.86"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge20" class="edge">
-<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.42,-1740.14C666.73,-1743.26 654.78,-1747.95 645,-1755 599.91,-1787.53 626.7,-1884.92 577,-1860"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.5,-1386.91C274.62,-1373.25 230.59,-1353.59 191,-1359"/>
 </g>
-<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge98" class="edge">
-<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M678.43,-1731.28C665.89,-1728.24 653.51,-1722.74 645,-1713 608.45,-1671.17 583.78,-1268.03 578.2,-1168.25"/>
-<polygon fill="#000000" stroke="#000000" points="581.69,-1167.9 577.64,-1158.11 574.7,-1168.28 581.69,-1167.9"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge102" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.47,-1399C264.98,-1399 256.03,-1399 247.28,-1399"/>
+<polygon fill="#000000" stroke="#000000" points="247.14,-1395.5 237.14,-1399 247.14,-1402.5 247.14,-1395.5"/>
 </g>
 <!-- sourcefile~util_fill.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node22" class="node">
 <title>sourcefile~util_fill.f90</title>
 <g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="757,-1704 697,-1704 697,-1680 757,-1680 757,-1704"/>
-<text text-anchor="middle" x="727" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="757,-444 697,-444 697,-420 757,-420 757,-444"/>
+<text text-anchor="middle" x="727" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge21" class="edge">
 <title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M696.99,-1693.46C680.16,-1695.67 659.5,-1700.9 645,-1713 589.74,-1759.13 641.35,-1892.27 577,-1860"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M696.99,-433.46C680.16,-435.67 659.5,-440.9 645,-453 589.74,-499.13 634.08,-556.14 577,-600"/>
 </g>
 <!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge101" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge70" class="edge">
 <title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M696.72,-1692.15C679.15,-1690.59 657.78,-1685.49 645,-1671 577.79,-1594.83 575.95,-1258.78 576.7,-1168.43"/>
-<polygon fill="#000000" stroke="#000000" points="580.2,-1168.26 576.8,-1158.23 573.2,-1168.19 580.2,-1168.26"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M696.89,-431.62C679.15,-433.05 657.54,-438.11 645,-453 592.25,-515.63 579.42,-1124.62 577.34,-1249.64"/>
+<polygon fill="#000000" stroke="#000000" points="573.83,-1249.84 577.17,-1259.9 580.83,-1249.96 573.83,-1249.84"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node23" class="node">
-<title>sourcefile~util_peri.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="761,-1662 693,-1662 693,-1638 761,-1638 761,-1662"/>
-<text text-anchor="middle" x="727" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="770,-402 684,-402 684,-378 770,-378 770,-402"/>
+<text text-anchor="middle" x="727" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge22" class="edge">
-<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.61,-1651.54C676.48,-1653.9 657.88,-1659.25 645,-1671 579.05,-1731.17 656.8,-1900.02 577,-1860"/>
-</g>
-<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge103" class="edge">
-<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.76,-1649.68C676.06,-1647.7 656.9,-1642.33 645,-1629 583.09,-1559.61 577.36,-1253.75 576.98,-1168.26"/>
-<polygon fill="#000000" stroke="#000000" points="580.48,-1168.12 576.96,-1158.12 573.48,-1168.13 580.48,-1168.12"/>
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.96,-393.07C670.15,-395.97 655.63,-401.31 645,-411 579.05,-471.17 647.79,-545.61 577,-600"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge23" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.5,-1145C262.55,-1140.66 248.11,-1144.17 191,-1145"/>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge72" class="edge">
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.67,-391.33C669.32,-394.01 654.52,-399.65 645,-411 617.2,-444.14 584.26,-1117.21 578.04,-1249.53"/>
+<polygon fill="#000000" stroke="#000000" points="574.54,-1249.54 577.57,-1259.69 581.53,-1249.87 574.54,-1249.54"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge37" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M566.8,-1133.8C554.2,-1115.14 529.2,-1078.46 507,-1048 495.68,-1032.46 482.46,-1015.22 472.39,-1002.26"/>
-<polygon fill="#000000" stroke="#000000" points="474.89,-999.77 465.98,-994.04 469.37,-1004.07 474.89,-999.77"/>
+<!-- sourcefile~discard.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node24" class="node">
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="759.5,-360 694.5,-360 694.5,-336 759.5,-336 759.5,-360"/>
+<text text-anchor="middle" x="727" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
+</a>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge48" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M454.5,-1145C421.03,-1142.39 384.63,-1130.79 358.39,-1120.75"/>
-<polygon fill="#000000" stroke="#000000" points="359.44,-1117.4 348.85,-1117 356.88,-1123.92 359.44,-1117.4"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M542.76,-1146.93C518.9,-1147.33 485.63,-1147.27 456.5,-1145"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge54" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.5,-1145C287.21,-1142.54 252.22,-1131.02 226.91,-1120.97"/>
-<polygon fill="#000000" stroke="#000000" points="227.96,-1117.62 217.38,-1117.07 225.31,-1124.09 227.96,-1117.62"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M454.5,-1145C395.57,-1140.41 380.44,-1149.49 321.5,-1145"/>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge23" class="edge">
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.33,-348.95C677.67,-351.07 658.05,-356.37 645,-369 568.1,-443.43 661.87,-534.8 577,-600"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge123" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.39,-1133.81C508.21,-1108.32 403.67,-1049.35 351.81,-1020.1"/>
-<polygon fill="#000000" stroke="#000000" points="353.49,-1017.03 343.06,-1015.16 350.05,-1023.12 353.49,-1017.03"/>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge73" class="edge">
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.44,-347.8C677.17,-349.48 656.92,-354.73 645,-369 615.83,-403.91 583.81,-1114.06 577.95,-1249.72"/>
+<polygon fill="#000000" stroke="#000000" points="574.45,-1249.63 577.52,-1259.77 581.44,-1249.93 574.45,-1249.63"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node25" class="node">
-<title>sourcefile~util_set.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="759,-1620 695,-1620 695,-1596 759,-1596 759,-1620"/>
-<text text-anchor="middle" x="727" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="779.5,-318 674.5,-318 674.5,-294 779.5,-294 779.5,-318"/>
+<text text-anchor="middle" x="727" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge24" class="edge">
-<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.73,-1608.9C677.98,-1610.98 658.15,-1616.27 645,-1629 568.1,-1703.43 672.67,-1907.97 577,-1860"/>
-</g>
-<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge105" class="edge">
-<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.85,-1607.85C677.72,-1606.04 657.47,-1600.79 645,-1587 588.44,-1524.43 578.9,-1249.22 577.31,-1168.39"/>
-<polygon fill="#000000" stroke="#000000" points="580.81,-1168.26 577.14,-1158.32 573.81,-1168.38 580.81,-1168.26"/>
-</g>
-<!-- sourcefile~util_exit.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node26" class="node">
-<title>sourcefile~util_exit.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="760.5,-1578 693.5,-1578 693.5,-1554 760.5,-1554 760.5,-1578"/>
-<text text-anchor="middle" x="727" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
-</a>
+<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M674.12,-310.79C663.34,-313.99 652.87,-319.05 645,-327 557.01,-415.84 676.15,-523.82 577,-600"/>
 </g>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge75" class="edge">
+<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M674.33,-309.47C663.14,-312.67 652.44,-318.07 645,-327 614.47,-363.65 583.43,-1109.85 577.88,-1249.57"/>
+<polygon fill="#000000" stroke="#000000" points="574.37,-1249.75 577.47,-1259.88 581.36,-1250.03 574.37,-1249.75"/>
 </g>
-<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge25" class="edge">
-<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M693.31,-1566.84C676.76,-1568.96 657.57,-1574.3 645,-1587 557.01,-1675.84 688.78,-1916.05 577,-1860"/>
-</g>
-<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge106" class="edge">
-<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M693.32,-1565.59C676.57,-1563.61 657.19,-1558.27 645,-1545 593.79,-1489.25 580.61,-1244.75 577.72,-1168.68"/>
-<polygon fill="#000000" stroke="#000000" points="581.21,-1168.21 577.36,-1158.34 574.21,-1168.46 581.21,-1168.21"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.71,-1399C134.61,-1399 126.05,-1399 117.59,-1399"/>
+<polygon fill="#000000" stroke="#000000" points="117.34,-1395.5 107.34,-1399 117.34,-1402.5 117.34,-1395.5"/>
 </g>
-<!-- sourcefile~util_solve.f90 -->
+<!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node27" class="node">
-<title>sourcefile~util_solve.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="764.5,-1536 689.5,-1536 689.5,-1512 764.5,-1512 764.5,-1536"/>
-<text text-anchor="middle" x="727" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="763,-276 691,-276 691,-252 763,-252 763,-276"/>
+<text text-anchor="middle" x="727" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge26" class="edge">
-<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M689.47,-1525.19C673.78,-1527.58 656.47,-1533.05 645,-1545 545.83,-1648.33 705.03,-1924.2 577,-1860"/>
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M690.7,-265C674.7,-267.3 656.77,-272.74 645,-285 545.83,-388.33 690.57,-512.74 577,-600"/>
 </g>
-<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge108" class="edge">
-<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M689.33,-1522.94C673.62,-1520.57 656.32,-1515.09 645,-1503 599.04,-1453.93 582.47,-1239.11 578.22,-1168.55"/>
-<polygon fill="#000000" stroke="#000000" points="581.69,-1167.94 577.62,-1158.16 574.7,-1168.34 581.69,-1167.94"/>
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge81" class="edge">
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M690.72,-264.18C674.32,-266.23 656.04,-271.7 645,-285 629.04,-304.22 585.91,-1104 578.19,-1249.43"/>
+<polygon fill="#000000" stroke="#000000" points="574.68,-1249.61 577.64,-1259.78 581.67,-1249.98 574.68,-1249.61"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node28" class="node">
-<title>sourcefile~discard.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="759.5,-1494 694.5,-1494 694.5,-1470 759.5,-1470 759.5,-1494"/>
-<text text-anchor="middle" x="727" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="754,-234 700,-234 700,-210 754,-210 754,-234"/>
+<text text-anchor="middle" x="727" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge27" class="edge">
-<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.23,-1482.41C677.33,-1484.34 657.51,-1489.64 645,-1503 534.59,-1620.89 721.38,-1932.4 577,-1860"/>
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.74,-221.88C681.82,-223.27 658.9,-228.16 645,-243 534.59,-360.89 705.08,-501.59 577,-600"/>
 </g>
-<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge109" class="edge">
-<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.36,-1481.47C677.49,-1479.5 657.67,-1474.21 645,-1461 604.25,-1418.54 584.55,-1233.15 578.83,-1168.41"/>
-<polygon fill="#000000" stroke="#000000" points="582.29,-1167.77 577.95,-1158.11 575.31,-1168.37 582.29,-1167.77"/>
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge83" class="edge">
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.94,-221.33C681.64,-222.39 658.16,-227.11 645,-243 628.34,-263.12 585.53,-1102.02 578.11,-1249.86"/>
+<polygon fill="#000000" stroke="#000000" points="574.6,-1249.82 577.6,-1259.98 581.59,-1250.17 574.6,-1249.82"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~util_resize.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node29" class="node">
-<title>sourcefile~io.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="754,-1452 700,-1452 700,-1428 754,-1428 754,-1452"/>
-<text text-anchor="middle" x="727" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="766.5,-192 687.5,-192 687.5,-168 766.5,-168 766.5,-192"/>
+<text text-anchor="middle" x="727" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge28" class="edge">
-<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.65,-1439.8C681.69,-1441.15 658.76,-1446.02 645,-1461 523.31,-1593.48 737.81,-1940.63 577,-1860"/>
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.14,-181.29C671.99,-183.8 655.71,-189.34 645,-201 523.31,-333.48 719.65,-490.4 577,-600"/>
 </g>
-<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge113" class="edge">
-<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.99,-1439.87C682.2,-1438.38 659.31,-1433.45 645,-1419 609.4,-1383.06 586.89,-1226.53 579.59,-1168.1"/>
-<polygon fill="#000000" stroke="#000000" points="583.06,-1167.59 578.37,-1158.09 576.11,-1168.44 583.06,-1167.59"/>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge88" class="edge">
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.36,-180.61C671.86,-182.97 655.27,-188.57 645,-201 627.68,-221.98 585.33,-1096.91 578.07,-1249.44"/>
+<polygon fill="#000000" stroke="#000000" points="574.55,-1249.71 577.57,-1259.86 581.54,-1250.04 574.55,-1249.71"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node30" class="node">
-<title>sourcefile~util_minimize_bfgs.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="786,-1410 668,-1410 668,-1386 786,-1386 786,-1410"/>
-<text text-anchor="middle" x="727" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="759,-150 695,-150 695,-126 759,-126 759,-150"/>
+<text text-anchor="middle" x="727" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge29" class="edge">
-<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M667.77,-1404.23C659.16,-1407.49 651.14,-1412.21 645,-1419 512,-1566.11 754.28,-1948.89 577,-1860"/>
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.85,-138.15C677.72,-139.96 657.47,-145.21 645,-159 512,-306.11 734.26,-479.18 577,-600"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge112" class="edge">
-<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M667.69,-1390.74C659.3,-1387.58 651.37,-1383.16 645,-1377 585.89,-1319.79 577.47,-1214.05 576.74,-1168.18"/>
-<polygon fill="#000000" stroke="#000000" points="580.24,-1168.1 576.7,-1158.12 573.24,-1168.14 580.24,-1168.1"/>
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge87" class="edge">
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M694.77,-137.7C677.39,-139.32 656.92,-144.54 645,-159 626.99,-180.87 585.04,-1093.78 578.01,-1249.52"/>
+<polygon fill="#000000" stroke="#000000" points="574.5,-1249.62 577.55,-1259.76 581.49,-1249.93 574.5,-1249.62"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node31" class="node">
-<title>sourcefile~util_version.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="769.5,-1368 684.5,-1368 684.5,-1344 769.5,-1344 769.5,-1368"/>
-<text text-anchor="middle" x="727" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="761,-108 693,-108 693,-84 761,-84 761,-108"/>
+<text text-anchor="middle" x="727" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge30" class="edge">
-<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M684.46,-1357.57C670.02,-1360.25 654.96,-1365.83 645,-1377 572.84,-1457.88 673.89,-1908.59 577,-1860"/>
-</g>
-<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge116" class="edge">
-<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M684.38,-1353.02C670.44,-1350.14 655.73,-1344.79 645,-1335 596.12,-1290.41 582.34,-1208.11 578.49,-1168.48"/>
-<polygon fill="#000000" stroke="#000000" points="581.95,-1167.96 577.62,-1158.29 574.98,-1168.55 581.95,-1167.96"/>
-</g>
-<!-- sourcefile~setup.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node32" class="node">
-<title>sourcefile~setup.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="755.5,-1326 698.5,-1326 698.5,-1302 755.5,-1302 755.5,-1326"/>
-<text text-anchor="middle" x="727" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
-</a>
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.76,-96.32C676.06,-98.3 656.9,-103.67 645,-117 500.68,-278.76 748.9,-467.92 577,-600"/>
 </g>
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge89" class="edge">
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.73,-95.89C675.8,-97.72 656.44,-103.08 645,-117 635.64,-128.39 586.22,-1091.03 578.12,-1249.91"/>
+<polygon fill="#000000" stroke="#000000" points="574.63,-1249.77 577.61,-1259.94 581.62,-1250.13 574.63,-1249.77"/>
 </g>
-<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge31" class="edge">
-<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M698.3,-1313.72C680.44,-1315.11 658.17,-1320.08 645,-1335 567.17,-1423.21 682.16,-1912.73 577,-1860"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M403.87,-1443.44C365.78,-1444.56 313.4,-1441.2 273,-1420 251.23,-1408.58 256.91,-1392.42 237,-1378 219.09,-1365.02 212.92,-1356 191,-1359"/>
 </g>
-<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge117" class="edge">
-<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M698.14,-1312.69C681.12,-1310.57 659.83,-1305.38 645,-1293 605.99,-1260.44 588.17,-1200.61 581.07,-1168.22"/>
-<polygon fill="#000000" stroke="#000000" points="584.41,-1167.1 578.98,-1158 577.55,-1168.5 584.41,-1167.1"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge97" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.6,-1427C401.04,-1422.92 385.73,-1418.32 371.49,-1414.03"/>
+<polygon fill="#000000" stroke="#000000" points="372.42,-1410.66 361.84,-1411.13 370.4,-1417.36 372.42,-1410.66"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge127" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.18,-1451.2C423.97,-1483.76 363.12,-1572.97 335.49,-1613.49"/>
+<polygon fill="#000000" stroke="#000000" points="332.56,-1611.57 329.82,-1621.81 338.34,-1615.52 332.56,-1611.57"/>
+</g>
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node33" class="node">
-<title>sourcefile~util_spill.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="761,-1284 693,-1284 693,-1260 761,-1260 761,-1284"/>
-<text text-anchor="middle" x="727" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="754,-66 700,-66 700,-42 754,-42 754,-66"/>
+<text text-anchor="middle" x="727" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge32" class="edge">
-<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575,-1860C419.32,-1768.94 371.33,-1142.39 191,-1145"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.65,-1272.22C675.92,-1274.17 656.76,-1279.55 645,-1293 561.49,-1388.55 690.44,-1916.88 577,-1860"/>
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.85,-53.61C681.75,-54.83 658.55,-59.64 645,-75 489.33,-251.43 763.57,-456.65 577,-600"/>
 </g>
-<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge118" class="edge">
-<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.88,-1269.01C677.2,-1266.27 658.9,-1261.03 645,-1251 615.56,-1229.77 595.58,-1191.51 585.25,-1167.5"/>
-<polygon fill="#000000" stroke="#000000" points="588.46,-1166.09 581.42,-1158.18 581.98,-1168.76 588.46,-1166.09"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge91" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.9,-53.3C681.57,-54.33 658.08,-59.05 645,-75 635.3,-86.82 586.06,-1086.52 578.09,-1249.62"/>
+<polygon fill="#000000" stroke="#000000" points="574.58,-1249.73 577.59,-1259.89 581.57,-1250.07 574.58,-1249.73"/>
 </g>
-<!-- sourcefile~whm_setup.f90 -->
+<!-- sourcefile~util_sort.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node34" class="node">
-<title>sourcefile~whm_setup.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="769.5,-24 684.5,-24 684.5,0 769.5,0 769.5,-24"/>
-<text text-anchor="middle" x="727" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="761,-24 693,-24 693,0 761,0 761,-24"/>
+<text text-anchor="middle" x="727" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge52" class="edge">
-<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575,-159C369.48,-173.22 220.58,-941.61 194.93,-1082.83"/>
-<polygon fill="#000000" stroke="#000000" points="191.45,-1082.43 193.12,-1092.89 198.34,-1083.67 191.45,-1082.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M684.33,-16.09C670.7,-19.08 656.21,-24.22 645,-33 594.92,-72.26 634.66,-132.08 577,-159"/>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge33" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.65,-12.22C675.92,-14.17 656.76,-19.55 645,-33 561.49,-128.55 677.63,-522.68 577,-600"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575,-600C275.22,-830.33 565.16,-1304.94 191,-1359"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M189,-1359C155.67,-1362.23 119.36,-1373.52 92.88,-1383.29"/>
+<polygon fill="#000000" stroke="#000000" points="91.35,-1380.12 83.24,-1386.94 93.83,-1386.67 91.35,-1380.12"/>
 </g>
-<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge63" class="edge">
-<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M684.23,-12.95C669.58,-15.53 654.44,-21.21 645,-33 569.61,-127.16 660.66,-1009 609,-1118 607.55,-1121.07 605.58,-1123.94 603.34,-1126.58"/>
-<polygon fill="#000000" stroke="#000000" points="600.67,-1124.3 595.99,-1133.81 605.57,-1129.29 600.67,-1124.3"/>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge92" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.7,-11.87C675.77,-13.7 656.41,-19.06 645,-33 634.95,-45.27 585.81,-1084.24 578.04,-1249.86"/>
+<polygon fill="#000000" stroke="#000000" points="574.54,-1249.71 577.57,-1259.87 581.53,-1250.04 574.54,-1249.71"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node35" class="node">
-<title>sourcefile~whm_coord.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="770,-276 684,-276 684,-252 770,-252 770,-276"/>
-<text text-anchor="middle" x="727" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="763.5,-2208 690.5,-2208 690.5,-2184 763.5,-2184 763.5,-2208"/>
+<text text-anchor="middle" x="727" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge53" class="edge">
-<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.95,-258.39C670.75,-255.29 656.6,-250.47 645,-243 604.61,-217 624.92,-155.68 577,-159"/>
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge36" class="edge">
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M690.18,-2195.88C673.85,-2193.82 655.8,-2188.32 645,-2175 589.59,-2106.66 623.18,-1470.83 609,-1384 603.77,-1351.95 592.51,-1316.05 584.84,-1293.73"/>
+<polygon fill="#000000" stroke="#000000" points="588.12,-1292.5 581.51,-1284.22 581.51,-1294.81 588.12,-1292.5"/>
 </g>
-<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge64" class="edge">
-<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.87,-265.07C669.36,-267.69 654.41,-273.37 645,-285 586.74,-357.03 649.09,-1034.48 609,-1118 607.53,-1121.06 605.56,-1123.93 603.3,-1126.57"/>
-<polygon fill="#000000" stroke="#000000" points="600.64,-1124.28 595.95,-1133.79 605.54,-1129.28 600.64,-1124.28"/>
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge121" class="edge">
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M690.29,-2190.7C675.64,-2187.53 658.89,-2182.6 645,-2175 608.85,-2155.23 617.62,-2118.91 577,-2112"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~swiftest_driver.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node36" class="node">
-<title>sourcefile~helio_coord.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="770,-990 684,-990 684,-966 770,-966 770,-990"/>
-<text text-anchor="middle" x="727" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="776,-1284 678,-1284 678,-1260 776,-1260 776,-1284"/>
+<text text-anchor="middle" x="727" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge50" class="edge">
-<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575,-1020C492.09,-1026.43 401.07,-1065.49 353.9,-1088.36"/>
-<polygon fill="#000000" stroke="#000000" points="352.22,-1085.29 344.79,-1092.84 355.31,-1091.57 352.22,-1085.29"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.86,-988.53C671.32,-991.77 657.58,-995.43 645,-999 614.57,-1007.64 608.12,-1014.36 577,-1020"/>
-</g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge66" class="edge">
-<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.67,-980.76C669.83,-983.64 655.37,-989.04 645,-999 605.15,-1037.28 638.95,-1071.57 609,-1118 606.96,-1121.16 604.46,-1124.18 601.77,-1126.98"/>
-<polygon fill="#000000" stroke="#000000" points="599.32,-1124.47 594.37,-1133.84 604.09,-1129.6 599.32,-1124.47"/>
+<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge42" class="edge">
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M677.62,-1272C658.78,-1272 637.39,-1272 619.19,-1272"/>
+<polygon fill="#000000" stroke="#000000" points="619.16,-1268.5 609.16,-1272 619.16,-1275.5 619.16,-1268.5"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
+<!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node37" class="node">
-<title>sourcefile~symba_util.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="768,-738 686,-738 686,-714 768,-714 768,-738"/>
-<text text-anchor="middle" x="727" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="766.5,-1368 687.5,-1368 687.5,-1344 766.5,-1344 766.5,-1368"/>
+<text text-anchor="middle" x="727" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge39" class="edge">
-<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M685.72,-730.26C653.93,-735.21 609.65,-745.75 577,-768"/>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge41" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.44,-1350.06C673.5,-1346.89 658,-1342.11 645,-1335 624.93,-1324.03 606.19,-1305.82 593.49,-1291.8"/>
+<polygon fill="#000000" stroke="#000000" points="595.97,-1289.32 586.74,-1284.11 590.7,-1293.93 595.97,-1289.32"/>
 </g>
-<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge68" class="edge">
-<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M685.88,-727.05C670.9,-729.57 655.1,-735.18 645,-747 591.2,-809.98 646.83,-1044.31 609,-1118 607.42,-1121.09 605.33,-1123.98 602.99,-1126.66"/>
-<polygon fill="#000000" stroke="#000000" points="600.18,-1124.51 595.42,-1133.97 605.04,-1129.54 600.18,-1124.51"/>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge95" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.17,-1365.68C673.78,-1369.12 658.7,-1373.11 645,-1377 614.57,-1385.64 608.56,-1395.82 577,-1398"/>
 </g>
-<!-- sourcefile~symba_collision.f90 -->
+<!-- sourcefile~helio_coord.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node38" class="node">
-<title>sourcefile~symba_collision.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="780,-696 674,-696 674,-672 780,-672 780,-696"/>
-<text text-anchor="middle" x="727" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
+<title>sourcefile~helio_coord.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="770,-1326 684,-1326 684,-1302 770,-1302 770,-1326"/>
+<text text-anchor="middle" x="727" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge43" class="edge">
-<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M673.99,-693.42C664.02,-696.34 653.92,-700.12 645,-705 608.85,-724.77 611.05,-744.8 577,-768"/>
+<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.86,-1303.47C671.32,-1300.23 657.58,-1296.57 645,-1293 636.45,-1290.57 627.34,-1287.85 618.65,-1285.19"/>
+<polygon fill="#000000" stroke="#000000" points="619.67,-1281.84 609.08,-1282.24 617.6,-1288.53 619.67,-1281.84"/>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge72" class="edge">
-<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M673.59,-687.79C662.7,-691.02 652.32,-696.35 645,-705 585.51,-775.34 650.68,-1035.84 609,-1118 607.43,-1121.09 605.36,-1124 603.02,-1126.67"/>
-<polygon fill="#000000" stroke="#000000" points="600.21,-1124.52 595.45,-1133.99 605.08,-1129.55 600.21,-1124.52"/>
+<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge96" class="edge">
+<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575,-1398C507.43,-1402.68 429.49,-1402.09 378.06,-1400.88"/>
+<polygon fill="#000000" stroke="#000000" points="377.91,-1397.38 367.82,-1400.62 377.73,-1404.37 377.91,-1397.38"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.72,-1320.81C670.78,-1323.97 656.85,-1328.52 645,-1335 608.85,-1354.77 618.06,-1394.64 577,-1398"/>
 </g>
-<!-- sourcefile~symba_io.f90 -->
+<!-- sourcefile~symba_fragmentation.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node39" class="node">
-<title>sourcefile~symba_io.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="765,-654 689,-654 689,-630 765,-630 765,-654"/>
-<text text-anchor="middle" x="727" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
+<title>sourcefile~symba_fragmentation.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="794,-1578 660,-1578 660,-1554 794,-1554 794,-1578"/>
+<text text-anchor="middle" x="727" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge33" class="edge">
-<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.84,-645.74C674.13,-648.65 657.72,-653.82 645,-663 599.91,-695.53 622.95,-736.7 577,-768"/>
+<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge44" class="edge">
+<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.72,-1555.71C654.27,-1552.9 649.24,-1549.39 645,-1545 594.03,-1492.29 627.08,-1455.06 609,-1384 600.99,-1352.51 590.42,-1316.42 583.67,-1293.91"/>
+<polygon fill="#000000" stroke="#000000" points="586.93,-1292.6 580.69,-1284.04 580.23,-1294.62 586.93,-1292.6"/>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge73" class="edge">
-<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.71,-642.5C672.87,-644.76 655.64,-650.31 645,-663 579.81,-740.7 654.52,-1027.36 609,-1118 607.48,-1121.03 605.47,-1123.88 603.19,-1126.51"/>
-<polygon fill="#000000" stroke="#000000" points="600.52,-1124.23 595.82,-1133.72 605.42,-1129.24 600.52,-1124.23"/>
+<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge115" class="edge">
+<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M662.83,-1578.07C656.56,-1580.52 650.5,-1583.46 645,-1587 604.61,-1613 618.05,-1695.94 577,-1671"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node40" class="node">
-<title>sourcefile~helio_drift.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="765.5,-1116 688.5,-1116 688.5,-1092 765.5,-1092 765.5,-1116"/>
-<text text-anchor="middle" x="727" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="798,-2166 656,-2166 656,-2142 798,-2142 798,-2166"/>
+<text text-anchor="middle" x="727" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge45" class="edge">
-<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.29,-1102.56C658.14,-1101.76 614.81,-1101.38 577,-1104"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge48" class="edge">
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M655.94,-2142.66C651.83,-2140.02 648.12,-2136.83 645,-2133 592.44,-2068.35 622.53,-1466.21 609,-1384 603.73,-1351.96 592.48,-1316.05 584.83,-1293.73"/>
+<polygon fill="#000000" stroke="#000000" points="588.1,-1292.5 581.5,-1284.22 581.5,-1294.81 588.1,-1292.5"/>
 </g>
-<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge74" class="edge">
-<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.4,-1113.37C674.7,-1116.88 659.11,-1120.99 645,-1125 636.45,-1127.43 627.34,-1130.15 618.65,-1132.81"/>
-<polygon fill="#000000" stroke="#000000" points="617.6,-1129.47 609.08,-1135.76 619.67,-1136.16 617.6,-1129.47"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge125" class="edge">
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M677.93,-2141.93C667.07,-2139.09 655.62,-2136.02 645,-2133 614.57,-2124.36 608.18,-2117.3 577,-2112"/>
 </g>
-<!-- sourcefile~symba_kick.f90 -->
+<!-- sourcefile~symba_setup.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node41" class="node">
-<title>sourcefile~symba_kick.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="770,-570 684,-570 684,-546 770,-546 770,-570"/>
-<text text-anchor="middle" x="727" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="774,-1536 680,-1536 680,-1512 774,-1512 774,-1536"/>
+<text text-anchor="middle" x="727" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge34" class="edge">
-<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575,-768C506.1,-814.94 473.19,-915.73 461.58,-960.18"/>
-<polygon fill="#000000" stroke="#000000" points="458.17,-959.41 459.14,-969.96 464.96,-961.11 458.17,-959.41"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.96,-561.07C670.15,-563.97 655.63,-569.31 645,-579 579.05,-639.17 650.78,-717.74 577,-768"/>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge50" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M679.85,-1520.43C667.2,-1517.39 654.39,-1512.09 645,-1503 643.06,-1501.12 599.93,-1351.71 583.38,-1294.21"/>
+<polygon fill="#000000" stroke="#000000" points="586.66,-1292.94 580.53,-1284.3 579.93,-1294.88 586.66,-1292.94"/>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge75" class="edge">
-<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.59,-559.27C669.23,-561.94 654.45,-567.59 645,-579 568.41,-671.44 662.22,-1010.4 609,-1118 607.49,-1121.04 605.5,-1123.9 603.23,-1126.53"/>
-<polygon fill="#000000" stroke="#000000" points="600.56,-1124.25 595.86,-1133.74 605.46,-1129.25 600.56,-1124.25"/>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge116" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M679.71,-1529.18C667.49,-1532.28 654.95,-1537.2 645,-1545 594.92,-1584.26 631.39,-1704.04 577,-1671"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
+<!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node42" class="node">
-<title>sourcefile~rmvs_util.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="763.5,-444 690.5,-444 690.5,-420 763.5,-420 763.5,-444"/>
-<text text-anchor="middle" x="727" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="765.5,-1200 688.5,-1200 688.5,-1176 765.5,-1176 765.5,-1200"/>
+<text text-anchor="middle" x="727" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge76" class="edge">
-<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M690.23,-432.16C673.91,-434.23 655.85,-439.73 645,-453 598.15,-510.28 641.39,-1051.47 609,-1118 607.51,-1121.05 605.53,-1123.91 603.27,-1126.55"/>
-<polygon fill="#000000" stroke="#000000" points="600.6,-1124.27 595.91,-1133.77 605.5,-1129.26 600.6,-1124.27"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge51" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.26,-1193.75C674.11,-1196.93 658.26,-1201.75 645,-1209 624.93,-1219.97 606.19,-1238.18 593.49,-1252.2"/>
+<polygon fill="#000000" stroke="#000000" points="590.7,-1250.07 586.74,-1259.89 595.97,-1254.68 590.7,-1250.07"/>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge121" class="edge">
-<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M690.43,-430.62C660.21,-429.78 615.71,-429.32 577,-432"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge98" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.18,-1196.66C674.46,-1200.11 658.92,-1204.35 645,-1209 528.34,-1247.94 503.54,-1272.76 404,-1345 387.6,-1356.91 384.89,-1361.8 368,-1373 363.37,-1376.07 358.36,-1379.12 353.4,-1382.01"/>
+<polygon fill="#000000" stroke="#000000" points="351.6,-1379.01 344.61,-1386.98 355.04,-1385.1 351.6,-1379.01"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
+<!-- sourcefile~symba_drift.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node43" class="node">
-<title>sourcefile~symba_step.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="771,-948 683,-948 683,-924 771,-924 771,-948"/>
-<text text-anchor="middle" x="727" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="770,-1494 684,-1494 684,-1470 770,-1470 770,-1494"/>
+<text text-anchor="middle" x="727" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge42" class="edge">
-<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M682.76,-932.02C669.48,-929.02 655.59,-923.84 645,-915 589.74,-868.87 636.49,-727.47 577,-768"/>
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge52" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.96,-1478.93C670.15,-1476.03 655.63,-1470.69 645,-1461 632.15,-1449.28 598.04,-1341.09 583.61,-1293.87"/>
+<polygon fill="#000000" stroke="#000000" points="586.87,-1292.57 580.61,-1284.02 580.17,-1294.6 586.87,-1292.57"/>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge82" class="edge">
-<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M682.83,-938.43C669.09,-941.29 654.9,-946.76 645,-957 594.03,-1009.71 646.44,-1054.96 609,-1118 607.08,-1121.24 604.65,-1124.3 602,-1127.12"/>
-<polygon fill="#000000" stroke="#000000" points="599.55,-1124.61 594.63,-1134 604.33,-1129.73 599.55,-1124.61"/>
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge120" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.75,-1485.4C670.08,-1488.34 655.7,-1493.61 645,-1503 584.44,-1556.11 645.84,-1712.82 577,-1671"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575,-1671C497.9,-1624.16 469.01,-1509.47 460,-1461.1"/>
+<polygon fill="#000000" stroke="#000000" points="463.42,-1460.31 458.25,-1451.06 456.52,-1461.52 463.42,-1460.31"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
+<!-- sourcefile~whm_drift.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node44" class="node">
-<title>sourcefile~whm_step.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="766.5,-150 687.5,-150 687.5,-126 766.5,-126 766.5,-150"/>
-<text text-anchor="middle" x="727" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="765.5,-2418 688.5,-2418 688.5,-2394 765.5,-2394 765.5,-2418"/>
+<text text-anchor="middle" x="727" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge60" class="edge">
-<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.26,-145C657.28,-150.04 614.66,-156.39 577,-159"/>
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge53" class="edge">
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.45,-2405.7C672.57,-2403.49 655.37,-2397.91 645,-2385 610.16,-2341.61 617.71,-1438.96 609,-1384 603.92,-1351.93 592.62,-1316.03 584.91,-1293.72"/>
+<polygon fill="#000000" stroke="#000000" points="588.18,-1292.47 581.55,-1284.21 581.58,-1294.8 588.18,-1292.47"/>
 </g>
-<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge80" class="edge">
-<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.21,-138.49C671.68,-140.82 655.11,-146.43 645,-159 578.17,-242.09 654.88,-1021.74 609,-1118 607.54,-1121.07 605.57,-1123.93 603.32,-1126.58"/>
-<polygon fill="#000000" stroke="#000000" points="600.65,-1124.29 595.97,-1133.8 605.56,-1129.28 600.65,-1124.29"/>
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge100" class="edge">
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.26,-2400.25C674.11,-2397.07 658.26,-2392.25 645,-2385 608.85,-2365.23 615.72,-2336.08 577,-2322"/>
 </g>
-<!-- sourcefile~rmvs_discard.f90 -->
+<!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node45" class="node">
-<title>sourcefile~rmvs_discard.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="774,-402 680,-402 680,-378 774,-378 774,-402"/>
-<text text-anchor="middle" x="727" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="765.5,-1452 688.5,-1452 688.5,-1428 765.5,-1428 765.5,-1452"/>
+<text text-anchor="middle" x="727" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge83" class="edge">
-<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M679.69,-391.96C666.56,-394.89 653.54,-400.53 645,-411 595.3,-471.96 643.31,-1047.22 609,-1118 607.52,-1121.06 605.54,-1123.92 603.28,-1126.56"/>
-<polygon fill="#000000" stroke="#000000" points="600.61,-1124.27 595.92,-1133.77 605.51,-1129.27 600.61,-1124.27"/>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge54" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.16,-1437.14C673.34,-1434.36 657.04,-1429.05 645,-1419 605.99,-1386.44 588.17,-1326.61 581.07,-1294.22"/>
+<polygon fill="#000000" stroke="#000000" points="584.41,-1293.1 578.98,-1284 577.55,-1294.5 584.41,-1293.1"/>
 </g>
-<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge125" class="edge">
-<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M679.64,-401.63C668.28,-404.59 656.18,-407.83 645,-411 614.57,-419.64 608.56,-429.82 577,-432"/>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge93" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.4,-1430.63C674.7,-1427.12 659.11,-1423.01 645,-1419 614.57,-1410.36 608.56,-1395.82 577,-1398"/>
 </g>
-<!-- sourcefile~whm_drift.f90 -->
+<!-- sourcefile~rmvs_discard.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node46" class="node">
-<title>sourcefile~whm_drift.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="765.5,-108 688.5,-108 688.5,-84 765.5,-84 765.5,-108"/>
-<text text-anchor="middle" x="727" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="774,-2124 680,-2124 680,-2100 774,-2100 774,-2124"/>
+<text text-anchor="middle" x="727" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge51" class="edge">
-<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.12,-103.34C674.26,-106.67 658.63,-111.18 645,-117 612.33,-130.95 612.44,-156.55 577,-159"/>
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge56" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M679.69,-2110.04C666.56,-2107.11 653.54,-2101.47 645,-2091 595.3,-2030.04 621.89,-1461.59 609,-1384 603.68,-1351.97 592.44,-1316.06 584.81,-1293.73"/>
+<polygon fill="#000000" stroke="#000000" points="588.09,-1292.51 581.49,-1284.22 581.48,-1294.81 588.09,-1292.51"/>
 </g>
-<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge84" class="edge">
-<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.45,-96.3C672.57,-98.51 655.37,-104.09 645,-117 575.32,-203.78 656.8,-1017.49 609,-1118 607.54,-1121.07 605.57,-1123.94 603.33,-1126.58"/>
-<polygon fill="#000000" stroke="#000000" points="600.66,-1124.29 595.98,-1133.8 605.57,-1129.29 600.66,-1124.29"/>
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge123" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M679.69,-2115.98C650.1,-2117.54 611.04,-2117.79 577,-2112"/>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
+<!-- sourcefile~rmvs_setup.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node47" class="node">
-<title>sourcefile~helio_gr.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="761,-1242 693,-1242 693,-1218 761,-1218 761,-1242"/>
-<text text-anchor="middle" x="727" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="770,-2082 684,-2082 684,-2058 770,-2058 770,-2082"/>
+<text text-anchor="middle" x="727" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge46" class="edge">
-<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.93,-1227.54C632.82,-1222.04 502.71,-1205.35 404,-1159 385.65,-1150.38 384.89,-1142.2 368,-1131 363.37,-1127.93 358.36,-1124.88 353.4,-1121.99"/>
-<polygon fill="#000000" stroke="#000000" points="355.04,-1118.9 344.61,-1117.02 351.6,-1124.99 355.04,-1118.9"/>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge57" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.94,-2068.87C669.44,-2066.24 654.47,-2060.58 645,-2049 598.15,-1991.72 621.24,-1456.98 609,-1384 603.63,-1351.98 592.41,-1316.06 584.79,-1293.74"/>
+<polygon fill="#000000" stroke="#000000" points="588.07,-1292.52 581.47,-1284.22 581.46,-1294.82 588.07,-1292.52"/>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge87" class="edge">
-<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.69,-1225.2C677.49,-1222.07 659.66,-1217.02 645,-1209 624.93,-1198.03 606.19,-1179.82 593.49,-1165.8"/>
-<polygon fill="#000000" stroke="#000000" points="595.97,-1163.32 586.74,-1158.11 590.7,-1167.93 595.97,-1163.32"/>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge124" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.86,-2080.53C671.32,-2083.77 657.58,-2087.43 645,-2091 614.57,-2099.64 608.18,-2117.3 577,-2112"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~whm_coord.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node48" class="node">
-<title>sourcefile~helio_step.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="766.5,-1032 687.5,-1032 687.5,-1008 766.5,-1008 766.5,-1032"/>
-<text text-anchor="middle" x="727" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="770,-2376 684,-2376 684,-2352 770,-2352 770,-2376"/>
+<text text-anchor="middle" x="727" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge47" class="edge">
-<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.35,-1018.36C657.23,-1017.49 614.4,-1017.1 577,-1020"/>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge58" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.83,-2362.96C669.32,-2360.34 654.38,-2354.66 645,-2343 611.59,-2301.45 617.38,-1436.65 609,-1384 603.89,-1351.93 592.6,-1316.03 584.9,-1293.72"/>
+<polygon fill="#000000" stroke="#000000" points="588.17,-1292.48 581.54,-1284.21 581.57,-1294.81 588.17,-1292.48"/>
 </g>
-<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge89" class="edge">
-<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.36,-1023.04C672.76,-1025.86 656.84,-1031.16 645,-1041 615.95,-1065.15 631.7,-1087.8 609,-1118 606.69,-1121.07 604,-1124.05 601.17,-1126.85"/>
-<polygon fill="#000000" stroke="#000000" points="598.6,-1124.46 593.55,-1133.78 603.31,-1129.64 598.6,-1124.46"/>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge104" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.73,-2353.87C653.61,-2346.21 612.36,-2334.86 577,-2322"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node49" class="node">
-<title>sourcefile~swiftest_driver.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="776,-1158 678,-1158 678,-1134 776,-1134 776,-1158"/>
-<text text-anchor="middle" x="727" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="766,-2040 688,-2040 688,-2016 766,-2016 766,-2040"/>
+<text text-anchor="middle" x="727" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge91" class="edge">
-<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M677.62,-1146C658.78,-1146 637.39,-1146 619.19,-1146"/>
-<polygon fill="#000000" stroke="#000000" points="619.16,-1142.5 609.16,-1146 619.16,-1149.5 619.16,-1142.5"/>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge62" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.75,-2027.48C672.12,-2025.17 655.32,-2019.58 645,-2007 601,-1953.41 620.59,-1452.36 609,-1384 603.57,-1351.99 592.36,-1316.07 584.76,-1293.74"/>
+<polygon fill="#000000" stroke="#000000" points="588.04,-1292.52 581.46,-1284.22 581.43,-1294.82 588.04,-1292.52"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90 -->
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge126" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.85,-2033.84C673.8,-2037.02 658.13,-2041.82 645,-2049 608.85,-2068.77 617.62,-2118.91 577,-2112"/>
+</g>
+<!-- sourcefile~rmvs_step.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node50" class="node">
-<title>sourcefile~rmvs_setup.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="770,-360 684,-360 684,-336 770,-336 770,-360"/>
-<text text-anchor="middle" x="727" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="767,-1998 687,-1998 687,-1974 767,-1974 767,-1998"/>
+<text text-anchor="middle" x="727" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge92" class="edge">
-<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.9,-349.1C669.39,-351.72 654.44,-357.39 645,-369 592.44,-433.65 645.24,-1042.98 609,-1118 607.52,-1121.06 605.54,-1123.92 603.29,-1126.56"/>
-<polygon fill="#000000" stroke="#000000" points="600.62,-1124.28 595.94,-1133.78 605.52,-1129.27 600.62,-1124.28"/>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge65" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M686.93,-1985.33C671.55,-1982.94 655.17,-1977.33 645,-1965 603.85,-1915.1 619.95,-1447.75 609,-1384 603.5,-1352 592.31,-1316.08 584.73,-1293.75"/>
+<polygon fill="#000000" stroke="#000000" points="588.02,-1292.53 581.44,-1284.23 581.4,-1294.82 588.02,-1292.53"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge122" class="edge">
-<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.72,-354.81C670.78,-357.97 656.85,-362.52 645,-369 608.85,-388.77 618.1,-429.16 577,-432"/>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge128" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M686.79,-1990.16C672.62,-1993.14 657.14,-1998.25 645,-2007 599.91,-2039.53 632.47,-2108.16 577,-2112"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575,-2112C365.87,-2126.47 328.71,-1752.47 322.62,-1656.29"/>
+<polygon fill="#000000" stroke="#000000" points="326.11,-1655.99 322.03,-1646.21 319.12,-1656.4 326.11,-1655.99"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
+<!-- sourcefile~symba_util.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node51" class="node">
-<title>sourcefile~whm_util.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="763.5,-66 690.5,-66 690.5,-42 763.5,-42 763.5,-66"/>
-<text text-anchor="middle" x="727" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="768,-1872 686,-1872 686,-1848 768,-1848 768,-1872"/>
+<text text-anchor="middle" x="727" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge55" class="edge">
-<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M690.12,-58.26C675.28,-61.26 658.44,-66.35 645,-75 604.61,-101 624.92,-155.68 577,-159"/>
-</g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge93" class="edge">
-<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M690.11,-54.07C673.77,-56.12 655.72,-61.63 645,-75 572.46,-165.47 658.73,-1013.25 609,-1118 607.54,-1121.07 605.58,-1123.94 603.33,-1126.58"/>
-<polygon fill="#000000" stroke="#000000" points="600.66,-1124.3 595.99,-1133.8 605.57,-1129.29 600.66,-1124.3"/>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge64" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M685.78,-1859.04C670.78,-1856.53 654.99,-1850.91 645,-1839 579.81,-1761.3 627.02,-1483.81 609,-1384 603.23,-1352.05 592.11,-1316.11 584.62,-1293.77"/>
+<polygon fill="#000000" stroke="#000000" points="587.91,-1292.57 581.37,-1284.24 581.29,-1294.83 587.91,-1292.57"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge56" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M304.25,-1015.1C281.94,-1032.82 240.2,-1065.94 214.11,-1086.66"/>
-<polygon fill="#000000" stroke="#000000" points="211.88,-1083.96 206.23,-1092.91 216.23,-1089.44 211.88,-1083.96"/>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge119" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M685.84,-1857.03C671.56,-1854.19 656.25,-1848.87 645,-1839 584.44,-1785.89 645.84,-1712.82 577,-1671"/>
 </g>
-<!-- sourcefile~rmvs_step.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node53" class="node">
-<title>sourcefile~rmvs_step.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="767,-318 687,-318 687,-294 767,-294 767,-318"/>
-<text text-anchor="middle" x="727" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
+<!-- sourcefile~symba_kick.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node52" class="node">
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="770,-1830 684,-1830 684,-1806 770,-1806 770,-1830"/>
+<text text-anchor="middle" x="727" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge96" class="edge">
-<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M686.83,-306.59C671.43,-308.96 655.06,-314.59 645,-327 589.59,-395.34 647.17,-1038.73 609,-1118 607.53,-1121.06 605.55,-1123.92 603.3,-1126.56"/>
-<polygon fill="#000000" stroke="#000000" points="600.63,-1124.28 595.94,-1133.78 605.53,-1129.27 600.63,-1124.28"/>
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge68" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.72,-1816.63C669.37,-1813.95 654.57,-1808.31 645,-1797 585.51,-1726.66 625.73,-1474.59 609,-1384 603.1,-1352.07 592.01,-1316.13 584.57,-1293.78"/>
+<polygon fill="#000000" stroke="#000000" points="587.86,-1292.59 581.34,-1284.25 581.23,-1294.84 587.86,-1292.59"/>
 </g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge124" class="edge">
-<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575,-432C331.47,-448.85 320.21,-877.4 321.04,-980.74"/>
-<polygon fill="#000000" stroke="#000000" points="317.55,-980.99 321.18,-990.95 324.54,-980.9 317.55,-980.99"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M686.79,-310.16C672.62,-313.14 657.14,-318.25 645,-327 599.91,-359.53 629.56,-413.87 577,-432"/>
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge110" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.91,-1813.82C670.41,-1810.81 656.09,-1805.69 645,-1797 594.92,-1757.74 631.39,-1704.04 577,-1671"/>
 </g>
 <!-- sourcefile~whm_gr.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node54" class="node">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node53" class="node">
 <title>sourcefile~whm_gr.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="761,-234 693,-234 693,-210 761,-210 761,-234"/>
-<text text-anchor="middle" x="727" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="761,-2334 693,-2334 693,-2310 761,-2310 761,-2334"/>
+<text text-anchor="middle" x="727" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
 </a>
 </g>
 </g>
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge71" class="edge">
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.62,-2322.2C675.66,-2320.39 656.3,-2315.03 645,-2301 613.01,-2261.3 617.06,-1434.34 609,-1384 603.87,-1351.94 592.58,-1316.03 584.88,-1293.72"/>
+<polygon fill="#000000" stroke="#000000" points="588.16,-1292.48 581.54,-1284.21 581.56,-1294.81 588.16,-1292.48"/>
+</g>
 <!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge59" class="edge">
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge105" class="edge">
 <title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.94,-215.79C677.96,-212.38 660.23,-207.5 645,-201 612.33,-187.05 612.44,-156.55 577,-159"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.92,-2328.31C661.96,-2332.77 614.92,-2335.79 577,-2322"/>
 </g>
-<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge97" class="edge">
-<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.63,-221.81C675.67,-223.62 656.31,-228.98 645,-243 583.88,-318.72 651.02,-1030.24 609,-1118 607.53,-1121.06 605.56,-1123.93 603.31,-1126.57"/>
-<polygon fill="#000000" stroke="#000000" points="600.64,-1124.29 595.96,-1133.79 605.55,-1129.28 600.64,-1124.29"/>
+<!-- sourcefile~symba_discard.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node54" class="node">
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="778.5,-1788 675.5,-1788 675.5,-1764 778.5,-1764 778.5,-1788"/>
+<text text-anchor="middle" x="727" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
+</a>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+</g>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge74" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M675.33,-1772.64C663.83,-1769.47 652.74,-1764.06 645,-1755 591.2,-1692.02 624.44,-1465.38 609,-1384 602.95,-1352.1 591.9,-1316.15 584.5,-1293.79"/>
+<polygon fill="#000000" stroke="#000000" points="587.8,-1292.62 581.3,-1284.25 581.17,-1294.85 587.8,-1292.62"/>
+</g>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge113" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M675.1,-1768.07C664.62,-1765.03 654.04,-1760.82 645,-1755 604.61,-1729 618.05,-1695.94 577,-1671"/>
+</g>
+<!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node55" class="node">
-<title>sourcefile~operator_cross.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="778.5,-1200 675.5,-1200 675.5,-1176 778.5,-1176 778.5,-1200"/>
-<text text-anchor="middle" x="727" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="769.5,-2292 684.5,-2292 684.5,-2268 769.5,-2268 769.5,-2292"/>
+<text text-anchor="middle" x="727" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge99" class="edge">
-<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M677.93,-1175.93C667.07,-1173.09 655.62,-1170.02 645,-1167 636.45,-1164.57 627.34,-1161.85 618.65,-1159.19"/>
-<polygon fill="#000000" stroke="#000000" points="619.67,-1155.84 609.08,-1156.24 617.6,-1162.53 619.67,-1155.84"/>
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge76" class="edge">
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M684.28,-2279.02C669.64,-2276.43 654.49,-2270.76 645,-2259 583.88,-2183.28 624.47,-1480.07 609,-1384 603.84,-1351.94 592.56,-1316.04 584.87,-1293.72"/>
+<polygon fill="#000000" stroke="#000000" points="588.15,-1292.49 581.53,-1284.21 581.54,-1294.81 588.15,-1292.49"/>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge108" class="edge">
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M684.28,-2290.43C671.63,-2293.69 657.72,-2297.39 645,-2301 614.57,-2309.64 606.73,-2332.81 577,-2322"/>
+</g>
+<!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node56" class="node">
-<title>sourcefile~symba_drift.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="770,-822 684,-822 684,-798 770,-798 770,-822"/>
-<text text-anchor="middle" x="727" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="771,-1746 683,-1746 683,-1722 771,-1722 771,-1746"/>
+<text text-anchor="middle" x="727" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge36" class="edge">
-<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.86,-799.47C671.32,-796.23 657.58,-792.57 645,-789 614.57,-780.36 603.14,-750.19 577,-768"/>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge77" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M682.59,-1732.27C668.65,-1729.48 654.41,-1723.88 645,-1713 596.89,-1657.37 623.15,-1456.17 609,-1384 602.75,-1352.14 591.75,-1316.18 584.42,-1293.8"/>
+<polygon fill="#000000" stroke="#000000" points="587.72,-1292.65 581.25,-1284.26 581.08,-1294.86 587.72,-1292.65"/>
 </g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge100" class="edge">
-<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.95,-811.57C669.63,-814.27 654.78,-819.87 645,-831 560.14,-927.57 669.32,-1004.47 609,-1118 607.37,-1121.06 605.26,-1123.95 602.91,-1126.61"/>
-<polygon fill="#000000" stroke="#000000" points="600.09,-1124.46 595.31,-1133.91 604.95,-1129.5 600.09,-1124.46"/>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge117" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M682.74,-1725.33C670.3,-1722.16 656.89,-1718.08 645,-1713 612.33,-1699.05 607.36,-1689.44 577,-1671"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90 -->
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node57" class="node">
-<title>sourcefile~symba_encounter_check.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="802,-780 652,-780 652,-756 802,-756 802,-780"/>
-<text text-anchor="middle" x="727" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="763.5,-2250 690.5,-2250 690.5,-2226 763.5,-2226 763.5,-2250"/>
+<text text-anchor="middle" x="727" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge35" class="edge">
-<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.07,-755.96C651.08,-749.65 607.78,-747.03 577,-768"/>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge78" class="edge">
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M690.16,-2237.89C673.83,-2235.83 655.78,-2230.33 645,-2217 586.74,-2144.97 623.83,-1475.45 609,-1384 603.8,-1351.95 592.54,-1316.04 584.86,-1293.72"/>
+<polygon fill="#000000" stroke="#000000" points="588.13,-1292.49 581.52,-1284.21 581.53,-1294.81 588.13,-1292.49"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge102" class="edge">
-<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M655.47,-780.02C651.59,-782.52 648.04,-785.48 645,-789 596.89,-844.63 642.99,-1052.78 609,-1118 607.4,-1121.08 605.3,-1123.97 602.95,-1126.64"/>
-<polygon fill="#000000" stroke="#000000" points="600.14,-1124.49 595.37,-1133.95 605,-1129.53 600.14,-1124.49"/>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge109" class="edge">
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575,-2322C373.28,-2322 221.28,-1560.97 195.03,-1420.99"/>
+<polygon fill="#000000" stroke="#000000" points="198.44,-1420.2 193.17,-1411.01 191.56,-1421.48 198.44,-1420.2"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M690.29,-2243.3C675.64,-2246.47 658.89,-2251.4 645,-2259 608.85,-2278.77 615.72,-2336.08 577,-2322"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
+<!-- sourcefile~operator_cross.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node58" class="node">
-<title>sourcefile~rmvs_kick.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="766,-528 688,-528 688,-504 766,-504 766,-528"/>
-<text text-anchor="middle" x="727" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="778.5,-1242 675.5,-1242 675.5,-1218 778.5,-1218 778.5,-1242"/>
+<text text-anchor="middle" x="727" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge104" class="edge">
-<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.77,-516.54C672.15,-518.86 655.35,-524.45 645,-537 562.71,-636.81 666.07,-1001.91 609,-1118 607.5,-1121.05 605.51,-1123.9 603.25,-1126.54"/>
-<polygon fill="#000000" stroke="#000000" points="600.58,-1124.26 595.88,-1133.75 605.48,-1129.26 600.58,-1124.26"/>
-</g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge120" class="edge">
-<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.85,-510.16C673.8,-506.98 658.13,-502.18 645,-495 608.85,-475.23 618.1,-429.16 577,-432"/>
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge79" class="edge">
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M677.93,-1242.07C667.07,-1244.91 655.62,-1247.98 645,-1251 636.45,-1253.43 627.34,-1256.15 618.65,-1258.81"/>
+<polygon fill="#000000" stroke="#000000" points="617.6,-1255.47 609.08,-1261.76 619.67,-1262.16 617.6,-1255.47"/>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
+<!-- sourcefile~helio_gr.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node59" class="node">
-<title>sourcefile~symba_discard.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="778.5,-612 675.5,-612 675.5,-588 778.5,-588 778.5,-612"/>
-<text text-anchor="middle" x="727" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="761,-1410 693,-1410 693,-1386 761,-1386 761,-1410"/>
+<text text-anchor="middle" x="727" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge38" class="edge">
-<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M675.17,-605.93C664.34,-609.08 653.59,-613.83 645,-621 589.74,-667.13 636.49,-727.47 577,-768"/>
-</g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge107" class="edge">
-<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M675.18,-603.23C663.68,-606.4 652.63,-611.85 645,-621 574.11,-706.07 658.37,-1018.88 609,-1118 607.49,-1121.04 605.48,-1123.89 603.22,-1126.52"/>
-<polygon fill="#000000" stroke="#000000" points="600.54,-1124.24 595.84,-1133.73 605.44,-1129.24 600.54,-1124.24"/>
-</g>
-<!-- sourcefile~helio_kick.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node60" class="node">
-<title>sourcefile~helio_kick.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="765.5,-1074 688.5,-1074 688.5,-1050 765.5,-1050 765.5,-1074"/>
-<text text-anchor="middle" x="727" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
-</a>
-</g>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge80" class="edge">
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.88,-1395.01C677.2,-1392.27 658.9,-1387.03 645,-1377 615.56,-1355.77 595.58,-1317.51 585.25,-1293.5"/>
+<polygon fill="#000000" stroke="#000000" points="588.46,-1292.09 581.42,-1284.18 581.98,-1294.76 588.46,-1292.09"/>
 </g>
-<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge49" class="edge">
-<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.4,-1071.37C674.7,-1074.88 659.11,-1078.99 645,-1083 614.57,-1091.64 608.56,-1101.82 577,-1104"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575,-1104C507.43,-1108.68 429.49,-1108.09 378.06,-1106.88"/>
-<polygon fill="#000000" stroke="#000000" points="377.91,-1103.38 367.82,-1106.62 377.73,-1110.37 377.91,-1103.38"/>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge99" class="edge">
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M692.81,-1396.69C662.59,-1395.81 616.74,-1395.25 577,-1398"/>
 </g>
-<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge110" class="edge">
-<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.17,-1067.58C674,-1070.74 658.17,-1075.59 645,-1083 625.55,-1093.94 625.4,-1102.87 609,-1118 605.76,-1120.98 602.3,-1124.1 598.89,-1127.12"/>
-<polygon fill="#000000" stroke="#000000" points="596.37,-1124.67 591.16,-1133.89 600.99,-1129.93 596.37,-1124.67"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge103" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.68,-1621.94C284.23,-1618.21 277.86,-1613.58 273,-1608 223.94,-1551.77 202.4,-1462.76 194.65,-1421.44"/>
+<polygon fill="#000000" stroke="#000000" points="198.06,-1420.57 192.86,-1411.34 191.16,-1421.8 198.06,-1420.57"/>
 </g>
-<!-- sourcefile~whm_kick.f90 -->
+<!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node61" class="node">
-<title>sourcefile~whm_kick.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="765.5,-192 688.5,-192 688.5,-168 765.5,-168 765.5,-192"/>
-<text text-anchor="middle" x="727" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="780,-1704 674,-1704 674,-1680 780,-1680 780,-1704"/>
+<text text-anchor="middle" x="727" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge57" class="edge">
-<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.49,-170.31C658.46,-163.62 615.18,-156.36 577,-159"/>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge82" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M673.83,-1688.01C662.92,-1684.79 652.48,-1679.51 645,-1671 602.57,-1622.72 621.87,-1446.98 609,-1384 602.5,-1352.19 591.56,-1316.22 584.32,-1293.82"/>
+<polygon fill="#000000" stroke="#000000" points="587.63,-1292.69 581.18,-1284.28 580.97,-1294.87 587.63,-1292.69"/>
 </g>
-<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge111" class="edge">
-<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.47,-180.31C672.59,-182.53 655.39,-188.1 645,-201 581.03,-280.4 652.95,-1025.99 609,-1118 607.54,-1121.06 605.57,-1123.93 603.32,-1126.57"/>
-<polygon fill="#000000" stroke="#000000" points="600.65,-1124.29 595.97,-1133.79 605.55,-1129.28 600.65,-1124.29"/>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge112" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M673.99,-1694.55C643.7,-1693.73 605.91,-1688.56 577,-1671"/>
 </g>
-<!-- sourcefile~symba_setup.f90 -->
+<!-- sourcefile~symba_io.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node62" class="node">
-<title>sourcefile~symba_setup.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="774,-864 680,-864 680,-840 774,-840 774,-864"/>
-<text text-anchor="middle" x="727" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="765,-1662 689,-1662 689,-1638 765,-1638 765,-1662"/>
+<text text-anchor="middle" x="727" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge40" class="edge">
-<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M679.94,-844.23C668.11,-841.13 655.71,-836.86 645,-831 608.85,-811.23 611.05,-744.8 577,-768"/>
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge84" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.68,-1649.1C673.03,-1646.74 655.97,-1641.22 645,-1629 608.24,-1588.05 620.58,-1437.8 609,-1384 602.16,-1352.26 591.31,-1316.27 584.18,-1293.85"/>
+<polygon fill="#000000" stroke="#000000" points="587.49,-1292.74 581.09,-1284.29 580.83,-1294.89 587.49,-1292.74"/>
 </g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge114" class="edge">
-<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M679.86,-854.57C666.9,-857.54 653.93,-863.05 645,-873 571.48,-954.9 661.66,-1021.36 609,-1118 607.34,-1121.05 605.21,-1123.92 602.84,-1126.58"/>
-<polygon fill="#000000" stroke="#000000" points="600.03,-1124.42 595.24,-1133.87 604.88,-1129.48 600.03,-1124.42"/>
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.85,-1660.59C650.97,-1670.45 595.25,-1682.09 577,-1671"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~whm_kick.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node63" class="node">
-<title>sourcefile~symba_fragmentation.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node63"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="794,-906 660,-906 660,-882 794,-882 794,-906"/>
-<text text-anchor="middle" x="727" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node63"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="765.5,-1956 688.5,-1956 688.5,-1932 765.5,-1932 765.5,-1956"/>
+<text text-anchor="middle" x="727" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge41" class="edge">
-<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M661.2,-881.99C655.45,-879.53 649.95,-876.57 645,-873 599.91,-840.47 622.95,-736.7 577,-768"/>
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge85" class="edge">
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.22,-1943.5C672.48,-1941.21 655.47,-1935.64 645,-1923 606.71,-1876.78 619.3,-1443.13 609,-1384 603.43,-1352.01 592.26,-1316.09 584.7,-1293.75"/>
+<polygon fill="#000000" stroke="#000000" points="587.99,-1292.55 581.42,-1284.23 581.37,-1294.83 587.99,-1292.55"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge115" class="edge">
-<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M659.9,-903.9C654.34,-906.78 649.24,-910.41 645,-915 582.79,-982.27 654.03,-1038.2 609,-1118 607.29,-1121.02 605.14,-1123.88 602.75,-1126.53"/>
-<polygon fill="#000000" stroke="#000000" points="599.94,-1124.37 595.13,-1133.81 604.78,-1129.43 599.94,-1124.37"/>
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge106" class="edge">
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M688.42,-1951.51C657.38,-1955.99 612.78,-1958.34 577,-1944"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~whm_step.f90 -->
 <g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node64" class="node">
-<title>sourcefile~rmvs_encounter_check.f90</title>
-<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node64"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="798,-486 656,-486 656,-462 798,-462 798,-486"/>
-<text text-anchor="middle" x="727" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node64"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="766.5,-1914 687.5,-1914 687.5,-1890 766.5,-1890 766.5,-1914"/>
+<text text-anchor="middle" x="727" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge70" class="edge">
-<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M655.98,-485.37C651.86,-488.01 648.13,-491.18 645,-495 557,-602.18 669.92,-993.42 609,-1118 607.51,-1121.05 605.52,-1123.91 603.26,-1126.55"/>
-<polygon fill="#000000" stroke="#000000" points="600.59,-1124.26 595.9,-1133.76 605.49,-1129.26 600.59,-1124.26"/>
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge86" class="edge">
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.41,-1901.34C671.92,-1898.98 655.32,-1893.39 645,-1881 609.56,-1838.47 618.66,-1438.52 609,-1384 603.34,-1352.03 592.19,-1316.1 584.66,-1293.76"/>
+<polygon fill="#000000" stroke="#000000" points="587.95,-1292.56 581.4,-1284.23 581.33,-1294.83 587.95,-1292.56"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge126" class="edge">
-<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M677.93,-461.93C667.07,-459.09 655.62,-456.02 645,-453 614.57,-444.36 608.56,-429.82 577,-432"/>
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge107" class="edge">
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M687.17,-1911.68C673.78,-1915.12 658.7,-1919.11 645,-1923 614.57,-1931.64 607.06,-1953.84 577,-1944"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575,-1944C410.09,-1890.04 469.51,-1753.71 368,-1613 313.98,-1538.12 241.72,-1455.51 208.75,-1418.64"/>
+<polygon fill="#000000" stroke="#000000" points="211.25,-1416.19 201.97,-1411.08 206.04,-1420.86 211.25,-1416.19"/>
+</g>
+<!-- sourcefile~symba_encounter_check.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_node65" class="node">
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~swiftest_classes.f90~~AfferentGraph_node65"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="802,-1620 652,-1620 652,-1596 802,-1596 802,-1620"/>
+<text text-anchor="middle" x="727" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge90" class="edge">
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M656.1,-1595.97C652.02,-1593.48 648.25,-1590.52 645,-1587 582.79,-1519.73 629.61,-1473.28 609,-1384 601.7,-1352.36 590.96,-1316.35 583.98,-1293.9"/>
+<polygon fill="#000000" stroke="#000000" points="587.31,-1292.81 580.97,-1284.32 580.63,-1294.91 587.31,-1292.81"/>
+</g>
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_classes.f90~~AfferentGraph_edge118" class="edge">
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M670.36,-1620.06C661.72,-1622.61 653.02,-1625.58 645,-1629 612.33,-1642.95 607.36,-1689.44 577,-1671"/>
 </g>
 </g>
 </svg>
@@ -1733,7 +1754,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-45"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">QP</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">DU2M</span>           <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_QP</span>            <span class="c">!! Converts distance unit to centimeters</span>
 <a name="ln-46"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">GU</span>             <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Universal gravitational constant in the system units</span>
 <a name="ln-47"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">inv_c2</span>         <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>            <span class="c">!! Inverse speed of light squared in the system units</span>
-<a name="ln-48"></a>      <span class="kt">character</span><span class="p">(</span><span class="n">STRMAX</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ennergy_out</span>    <span class="o">=</span> <span class="s2">&quot;&quot;</span>                 <span class="c">!! Name of output energy and momentum report file</span>
+<a name="ln-48"></a>      <span class="kt">character</span><span class="p">(</span><span class="n">STRMAX</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">energy_out</span>    <span class="o">=</span> <span class="s2">&quot;&quot;</span>                  <span class="c">!! Name of output energy and momentum report file</span>
 <a name="ln-49"></a>
 <a name="ln-50"></a>      <span class="c">! Logical flags to turn on or off various features of the code</span>
 <a name="ln-51"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lrhill_present</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span> <span class="c">!! Hill radii are given as an input rather than calculated by the code (can be used to inflate close encounter regions manually)</span>
@@ -1752,1245 +1773,1260 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-64"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Ltot_orig</span> <span class="o">=</span> <span class="mf">0.0_DP</span>     <span class="c">!! Initial total angular momentum vector</span>
 <a name="ln-65"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Lorbit_orig</span> <span class="o">=</span> <span class="mf">0.0_DP</span>   <span class="c">!! Initial orbital angular momentum</span>
 <a name="ln-66"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Lspin_orig</span> <span class="o">=</span> <span class="mf">0.0_DP</span>    <span class="c">!! Initial spin angular momentum vector</span>
-<a name="ln-67"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Ltot</span> <span class="o">=</span> <span class="mf">0.0_DP</span>        <span class="c">!! System angular momentum vector</span>
-<a name="ln-68"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Lescape</span> <span class="o">=</span> <span class="mf">0.0_DP</span>     <span class="c">!! Angular momentum of bodies that escaped the system (used for bookeeping)</span>
-<a name="ln-69"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">Mescape</span> <span class="o">=</span> <span class="mf">0.0_DP</span>     <span class="c">!! Mass of bodies that escaped the system (used for bookeeping)</span>
-<a name="ln-70"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">Ecollisions</span> <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Energy lost from system due to collisions</span>
-<a name="ln-71"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">Euntracked</span> <span class="o">=</span> <span class="mf">0.0_DP</span>  <span class="c">!! Energy gained from system due to escaped bodies</span>
+<a name="ln-67"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Ltot</span> <span class="o">=</span> <span class="mf">0.0_DP</span>          <span class="c">!! System angular momentum vector</span>
+<a name="ln-68"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Lescape</span> <span class="o">=</span> <span class="mf">0.0_DP</span>       <span class="c">!! Angular momentum of bodies that escaped the system (used for bookeeping)</span>
+<a name="ln-69"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">Mescape</span> <span class="o">=</span> <span class="mf">0.0_DP</span>       <span class="c">!! Mass of bodies that escaped the system (used for bookeeping)</span>
+<a name="ln-70"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">Ecollisions</span> <span class="o">=</span> <span class="mf">0.0_DP</span>   <span class="c">!! Energy lost from system due to collisions</span>
+<a name="ln-71"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">Euntracked</span> <span class="o">=</span> <span class="mf">0.0_DP</span>    <span class="c">!! Energy gained from system due to escaped bodies</span>
 <a name="ln-72"></a>      <span class="kt">logical</span>                   <span class="kd">::</span> <span class="n">lfirstenergy</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>  <span class="c">!! This is the first time computing energe</span>
 <a name="ln-73"></a>      <span class="kt">logical</span>                   <span class="kd">::</span> <span class="n">lfirstkick</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>    <span class="c">!! Initiate the first kick in a symplectic step</span>
-<a name="ln-74"></a>
-<a name="ln-75"></a>      <span class="c">! Future features not implemented or in development</span>
-<a name="ln-76"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lgr</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>               <span class="c">!! Turn on GR</span>
-<a name="ln-77"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lyarkovsky</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>        <span class="c">!! Turn on Yarkovsky effect</span>
-<a name="ln-78"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lyorp</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>             <span class="c">!! Turn on YORP effect</span>
-<a name="ln-79"></a>   <span class="k">contains</span>
-<a name="ln-80"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">reader</span>         <span class="o">=&gt;</span> <span class="n">io_param_reader</span>
-<a name="ln-81"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">writer</span>         <span class="o">=&gt;</span> <span class="n">io_param_writer</span>
-<a name="ln-82"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">dump</span>           <span class="o">=&gt;</span> <span class="n">io_dump_param</span>
-<a name="ln-83"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">read_from_file</span> <span class="o">=&gt;</span> <span class="n">io_read_param_in</span>
-<a name="ln-84"></a>   <span class="k">end type </span><span class="n">swiftest_parameters</span>
-<a name="ln-85"></a>
-<a name="ln-86"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-87"></a>   <span class="c">! swiftest_base class definitions and methods</span>
-<a name="ln-88"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-89"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">abstract</span> <span class="kd">::</span> <span class="n">swiftest_base</span>
-<a name="ln-90"></a>      <span class="c">!! An superclass for a generic Swiftest object</span>
-<a name="ln-91"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lintegrate</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>  <span class="c">!! Flag indicating that this object should be integrated in the current step </span>
-<a name="ln-92"></a>   <span class="k">contains</span>
-<a name="ln-93"></a>      <span class="c">!! The minimal methods that all systems must have</span>
-<a name="ln-94"></a>      <span class="k">procedure</span>                                 <span class="kd">::</span> <span class="n">dump</span> <span class="o">=&gt;</span> <span class="n">io_dump_swiftest</span> 
-<a name="ln-95"></a>      <span class="k">procedure</span><span class="p">(</span><span class="n">abstract_initialize</span><span class="p">),</span>  <span class="k">deferred</span> <span class="kd">::</span> <span class="n">initialize</span>
-<a name="ln-96"></a>      <span class="k">procedure</span><span class="p">(</span><span class="n">abstract_read_frame</span><span class="p">),</span>  <span class="k">deferred</span> <span class="kd">::</span> <span class="n">read_frame</span>
-<a name="ln-97"></a>      <span class="k">procedure</span><span class="p">(</span><span class="n">abstract_write_frame</span><span class="p">),</span> <span class="k">deferred</span> <span class="kd">::</span> <span class="n">write_frame</span>
-<a name="ln-98"></a>   <span class="k">end type </span><span class="n">swiftest_base</span>
-<a name="ln-99"></a>
-<a name="ln-100"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-101"></a>   <span class="c">! swiftest_cb class definitions and methods</span>
-<a name="ln-102"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-103"></a>   <span class="c">!&gt; A concrete lass for the central body in a Swiftest simulation</span>
-<a name="ln-104"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">abstract</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_base</span><span class="p">)</span> <span class="kd">::</span> <span class="n">swiftest_cb</span>           
-<a name="ln-105"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">)</span>     <span class="kd">::</span> <span class="n">name</span>              <span class="c">!! Non-unique name</span>
-<a name="ln-106"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">id</span>       <span class="o">=</span> <span class="mi">0</span>      <span class="c">!! External identifier (unique)</span>
-<a name="ln-107"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">mass</span>     <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Central body mass (units MU)</span>
-<a name="ln-108"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">Gmass</span>    <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Central mass gravitational term G * mass (units GU * MU)</span>
-<a name="ln-109"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">radius</span>   <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Central body radius (units DU)</span>
-<a name="ln-110"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">density</span>  <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="c">!! Central body mass density - calculated internally (units MU / DU**3)</span>
-<a name="ln-111"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">j2rp2</span>    <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! J2*R^2 term for central body</span>
-<a name="ln-112"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">j4rp4</span>    <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! J4*R^2 term for central body</span>
-<a name="ln-113"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">aobl</span>     <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Barycentric acceleration due to central body oblatenes</span>
-<a name="ln-114"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">atide</span>    <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Barycentric acceleration due to central body oblatenes</span>
-<a name="ln-115"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">aoblbeg</span>  <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Barycentric acceleration due to central body oblatenes at beginning of step</span>
-<a name="ln-116"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">aoblend</span>  <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Barycentric acceleration due to central body oblatenes at end of step</span>
-<a name="ln-117"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">atidebeg</span> <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Barycentric acceleration due to central body oblatenes at beginning of step</span>
-<a name="ln-118"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">atideend</span> <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Barycentric acceleration due to central body oblatenes at end of step</span>
-<a name="ln-119"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">xb</span>       <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Barycentric position (units DU)</span>
-<a name="ln-120"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">vb</span>       <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Barycentric velocity (units DU / TU)</span>
-<a name="ln-121"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">agr</span>      <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Acceleration due to post-Newtonian correction</span>
-<a name="ln-122"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Ip</span>       <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. </span>
-<a name="ln-123"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">rot</span>      <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Body rotation vector in inertial coordinate frame (units rad / TU)</span>
-<a name="ln-124"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">k2</span>       <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Tidal Love number</span>
-<a name="ln-125"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">Q</span>        <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Tidal quality factor</span>
-<a name="ln-126"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">tlag</span>     <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Tidal phase lag angle</span>
-<a name="ln-127"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">L0</span>       <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Initial angular momentum of the central body</span>
-<a name="ln-128"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">dL</span>       <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Change in angular momentum of the central body</span>
-<a name="ln-129"></a>   <span class="k">contains</span>
-<a name="ln-130"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">initialize</span>  <span class="o">=&gt;</span> <span class="n">io_read_cb_in</span>        <span class="c">!! I/O routine for reading in central body data</span>
-<a name="ln-131"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">read_frame</span>  <span class="o">=&gt;</span> <span class="n">io_read_frame_cb</span>     <span class="c">!! I/O routine for reading out a single frame of time-series data for the central body</span>
-<a name="ln-132"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">write_frame</span> <span class="o">=&gt;</span> <span class="n">io_write_frame_cb</span>    <span class="c">!! I/O routine for writing out a single frame of time-series data for the central body</span>
-<a name="ln-133"></a>   <span class="k">end type </span><span class="n">swiftest_cb</span>
-<a name="ln-134"></a>
-<a name="ln-135"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-136"></a>   <span class="c">! swiftest_body definitions and methods</span>
-<a name="ln-137"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-138"></a>   <span class="c">!&gt; An abstract class for a generic collection of Swiftest bodies</span>
-<a name="ln-139"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">abstract</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_base</span><span class="p">)</span> <span class="kd">::</span> <span class="n">swiftest_body</span>
-<a name="ln-140"></a>      <span class="c">!! Superclass that defines the generic elements of a Swiftest particle </span>
-<a name="ln-141"></a>      <span class="kt">logical</span>                                            <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span> <span class="c">!! Run the current step as a first</span>
-<a name="ln-142"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                       <span class="kd">::</span> <span class="n">nbody</span> <span class="o">=</span> <span class="mi">0</span>       <span class="c">!! Number of bodies</span>
-<a name="ln-143"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">name</span>            <span class="c">!! Non-unique name</span>
-<a name="ln-144"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>          <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">id</span>              <span class="c">!! External identifier (unique)</span>
-<a name="ln-145"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>          <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">status</span>          <span class="c">!! An integrator-specific status indicator </span>
-<a name="ln-146"></a>      <span class="kt">logical</span><span class="p">,</span>               <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">ldiscard</span>        <span class="c">!! Body should be discarded</span>
-<a name="ln-147"></a>      <span class="kt">logical</span><span class="p">,</span>               <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">lmask</span>           <span class="c">!! Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.)</span>
-<a name="ln-148"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">mu</span>              <span class="c">!! G * (Mcb + [m])</span>
-<a name="ln-149"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">xh</span>              <span class="c">!! Heliocentric position</span>
-<a name="ln-150"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">vh</span>              <span class="c">!! Heliocentric velocity</span>
-<a name="ln-151"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">xb</span>              <span class="c">!! Barycentric position</span>
-<a name="ln-152"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">vb</span>              <span class="c">!! Barycentric velocity</span>
-<a name="ln-153"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">ah</span>              <span class="c">!! Total heliocentric acceleration</span>
-<a name="ln-154"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">aobl</span>            <span class="c">!! Barycentric accelerations of bodies due to central body oblatenes</span>
-<a name="ln-155"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">atide</span>           <span class="c">!! Tanngential component of acceleration of bodies due to tides</span>
-<a name="ln-156"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">agr</span>             <span class="c">!! Acceleration due to post-Newtonian correction</span>
-<a name="ln-157"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">ir3h</span>            <span class="c">!! Inverse heliocentric radius term (1/rh**3)</span>
-<a name="ln-158"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">a</span>               <span class="c">!! Semimajor axis (pericentric distance for a parabolic orbit)</span>
-<a name="ln-159"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">e</span>               <span class="c">!! Eccentricity</span>
-<a name="ln-160"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">inc</span>             <span class="c">!! Inclination</span>
-<a name="ln-161"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">capom</span>           <span class="c">!! Longitude of ascending node</span>
-<a name="ln-162"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">omega</span>           <span class="c">!! Argument of pericenter</span>
-<a name="ln-163"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">capm</span>            <span class="c">!! Mean anomaly</span>
-<a name="ln-164"></a>      <span class="c">!! Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the</span>
-<a name="ln-165"></a>      <span class="c">!!    component list, such as setup_body and util_spill</span>
-<a name="ln-166"></a>   <span class="k">contains</span>
-<a name="ln-167"></a><span class="k">      procedure</span><span class="p">(</span><span class="n">abstract_discard_body</span><span class="p">),</span> <span class="k">deferred</span> <span class="kd">::</span> <span class="n">discard</span>
-<a name="ln-168"></a>      <span class="k">procedure</span><span class="p">(</span><span class="n">abstract_kick_body</span><span class="p">),</span>    <span class="k">deferred</span> <span class="kd">::</span> <span class="n">kick</span>     
-<a name="ln-169"></a>      <span class="k">procedure</span><span class="p">(</span><span class="n">abstract_set_mu</span><span class="p">),</span>       <span class="k">deferred</span> <span class="kd">::</span> <span class="n">set_mu</span>
-<a name="ln-170"></a>      <span class="k">procedure</span><span class="p">(</span><span class="n">abstract_step_body</span><span class="p">),</span>    <span class="k">deferred</span> <span class="kd">::</span> <span class="n">step</span>
-<a name="ln-171"></a>      <span class="k">procedure</span><span class="p">(</span><span class="n">abstract_accel</span><span class="p">),</span>        <span class="k">deferred</span> <span class="kd">::</span> <span class="n">accel</span>
-<a name="ln-172"></a>      <span class="c">! These are concrete because the implementation is the same for all types of particles</span>
-<a name="ln-173"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">drift</span>       <span class="o">=&gt;</span> <span class="n">drift_body</span>               <span class="c">!! Loop through bodies and call Danby drift routine on heliocentric variables</span>
-<a name="ln-174"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">v2pv</span>        <span class="o">=&gt;</span> <span class="n">gr_vh2pv_body</span>            <span class="c">!! Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</span>
-<a name="ln-175"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">pv2v</span>        <span class="o">=&gt;</span> <span class="n">gr_pv2vh_body</span>            <span class="c">!! Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</span>
-<a name="ln-176"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">initialize</span>  <span class="o">=&gt;</span> <span class="n">io_read_body_in</span>          <span class="c">!! Read in body initial conditions from a file</span>
-<a name="ln-177"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">read_frame</span>  <span class="o">=&gt;</span> <span class="n">io_read_frame_body</span>       <span class="c">!! I/O routine for writing out a single frame of time-series data for the central body</span>
-<a name="ln-178"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">write_frame</span> <span class="o">=&gt;</span> <span class="n">io_write_frame_body</span>      <span class="c">!! I/O routine for writing out a single frame of time-series data for the central body</span>
-<a name="ln-179"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_obl</span>   <span class="o">=&gt;</span> <span class="n">obl_acc_body</span>             <span class="c">!! Compute the barycentric accelerations of bodies due to the oblateness of the central body</span>
-<a name="ln-180"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">el2xv</span>       <span class="o">=&gt;</span> <span class="n">orbel_el2xv_vec</span>          <span class="c">!! Convert orbital elements to position and velocity vectors</span>
-<a name="ln-181"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">xv2el</span>       <span class="o">=&gt;</span> <span class="n">orbel_xv2el_vec</span>          <span class="c">!! Convert position and velocity vectors to orbital  elements </span>
-<a name="ln-182"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">setup</span>       <span class="o">=&gt;</span> <span class="n">setup_body</span>               <span class="c">!! A constructor that sets the number of bodies and allocates all allocatable arrays</span>
-<a name="ln-183"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_user</span>  <span class="o">=&gt;</span> <span class="n">user_kick_getacch_body</span>   <span class="c">!! Add user-supplied heliocentric accelerations to planets</span>
-<a name="ln-184"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">append</span>      <span class="o">=&gt;</span> <span class="n">util_append_body</span>         <span class="c">!! Appends elements from one structure to another</span>
-<a name="ln-185"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">fill</span>        <span class="o">=&gt;</span> <span class="n">util_fill_body</span>           <span class="c">!! &quot;Fills&quot; bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</span>
-<a name="ln-186"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resize</span>      <span class="o">=&gt;</span> <span class="n">util_resize_body</span>         <span class="c">!! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</span>
-<a name="ln-187"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_ir3</span>     <span class="o">=&gt;</span> <span class="n">util_set_ir3h</span>            <span class="c">!! Sets the inverse heliocentric radius term (1/rh**3)</span>
-<a name="ln-188"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">sort</span>        <span class="o">=&gt;</span> <span class="n">util_sort_body</span>           <span class="c">!! Sorts body arrays by a sortable componen</span>
-<a name="ln-189"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">rearrange</span>   <span class="o">=&gt;</span> <span class="n">util_sort_rearrange_body</span> <span class="c">!! Rearranges the order of array elements of body based on an input index array. Used in sorting methods</span>
-<a name="ln-190"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">spill</span>       <span class="o">=&gt;</span> <span class="n">util_spill_body</span>          <span class="c">!! &quot;Spills&quot; bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</span>
-<a name="ln-191"></a>   <span class="k">end type </span><span class="n">swiftest_body</span>
-<a name="ln-192"></a>      
-<a name="ln-193"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-194"></a>   <span class="c">! swiftest_pl definitions and methods</span>
-<a name="ln-195"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-196"></a>   <span class="c">!&gt; An abstract class for a generic collection of Swiftest massive bodies</span>
-<a name="ln-197"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">abstract</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">)</span> <span class="kd">::</span> <span class="n">swiftest_pl</span>
-<a name="ln-198"></a>      <span class="c">!! Superclass that defines the generic elements of a Swiftest particle </span>
-<a name="ln-199"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">mass</span>    <span class="c">!! Body mass (units MU)</span>
-<a name="ln-200"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">Gmass</span>   <span class="c">!! Mass gravitational term G * mass (units GU * MU)</span>
-<a name="ln-201"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">rhill</span>   <span class="c">!! Body mass (units MU)</span>
-<a name="ln-202"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">radius</span>  <span class="c">!! Body radius (units DU)</span>
-<a name="ln-203"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">xbeg</span>    <span class="c">!! Position at beginning of step</span>
-<a name="ln-204"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">xend</span>    <span class="c">!! Position at end of step</span>
-<a name="ln-205"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">vbeg</span>    <span class="c">!! Velocity at beginning of step</span>
-<a name="ln-206"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">density</span> <span class="c">!! Body mass density - calculated internally (units MU / DU**3)</span>
-<a name="ln-207"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">Ip</span>      <span class="c">!! Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. </span>
-<a name="ln-208"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">rot</span>     <span class="c">!! Body rotation vector in inertial coordinate frame (units rad / TU)</span>
-<a name="ln-209"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">k2</span>      <span class="c">!! Tidal Love number</span>
-<a name="ln-210"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">Q</span>       <span class="c">!! Tidal quality factor</span>
-<a name="ln-211"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tlag</span>    <span class="c">!! Tidal phase lag</span>
-<a name="ln-212"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">k_plpl</span>  <span class="c">!! Index array used to convert flattened the body-body comparison upper triangular matrix</span>
-<a name="ln-213"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I8B</span><span class="p">)</span>                              <span class="kd">::</span> <span class="n">nplpl</span>   <span class="c">!! Number of body-body comparisons in the flattened upper triangular matrix</span>
-<a name="ln-214"></a>      <span class="c">!! Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the</span>
-<a name="ln-215"></a>      <span class="c">!!    component list, such as setup_pl and util_spill_pl</span>
-<a name="ln-216"></a>   <span class="k">contains</span>
-<a name="ln-217"></a>      <span class="c">! Massive body-specific concrete methods </span>
-<a name="ln-218"></a>      <span class="c">! These are concrete because they are the same implemenation for all integrators</span>
-<a name="ln-219"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">discard</span>      <span class="o">=&gt;</span> <span class="n">discard_pl</span>             <span class="c">!! Placeholder method for discarding massive bodies </span>
-<a name="ln-220"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">eucl_index</span>   <span class="o">=&gt;</span> <span class="n">eucl_dist_index_plpl</span>   <span class="c">!! Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</span>
-<a name="ln-221"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_int</span>    <span class="o">=&gt;</span> <span class="n">kick_getacch_int_pl</span>    <span class="c">!! Compute direct cross (third) term heliocentric accelerations of massive bodies</span>
-<a name="ln-222"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_obl</span>    <span class="o">=&gt;</span> <span class="n">obl_acc_pl</span>             <span class="c">!! Compute the barycentric accelerations of bodies due to the oblateness of the central body</span>
-<a name="ln-223"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">setup</span>        <span class="o">=&gt;</span> <span class="n">setup_pl</span>               <span class="c">!! A base constructor that sets the number of bodies and allocates and initializes all arrays  </span>
-<a name="ln-224"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_tides</span>  <span class="o">=&gt;</span> <span class="n">tides_kick_getacch_pl</span>  <span class="c">!! Compute the accelerations of bodies due to tidal interactions with the central body</span>
-<a name="ln-225"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">append</span>       <span class="o">=&gt;</span> <span class="n">util_append_pl</span>         <span class="c">!! Appends elements from one structure to another</span>
-<a name="ln-226"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">h2b</span>          <span class="o">=&gt;</span> <span class="n">util_coord_h2b_pl</span>      <span class="c">!! Convert massive bodies from heliocentric to barycentric coordinates (position and velocity)</span>
-<a name="ln-227"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">b2h</span>          <span class="o">=&gt;</span> <span class="n">util_coord_b2h_pl</span>      <span class="c">!! Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</span>
-<a name="ln-228"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">fill</span>         <span class="o">=&gt;</span> <span class="n">util_fill_pl</span>           <span class="c">!! &quot;Fills&quot; bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</span>
-<a name="ln-229"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resize</span>       <span class="o">=&gt;</span> <span class="n">util_resize_pl</span>         <span class="c">!! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</span>
-<a name="ln-230"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_beg_end</span>  <span class="o">=&gt;</span> <span class="n">util_set_beg_end_pl</span>    <span class="c">!! Sets the beginning and ending positions and velocities of planets.</span>
-<a name="ln-231"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_mu</span>       <span class="o">=&gt;</span> <span class="n">util_set_mu_pl</span>         <span class="c">!! Method used to construct the vectorized form of the central body mass</span>
-<a name="ln-232"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_rhill</span>    <span class="o">=&gt;</span> <span class="n">util_set_rhill</span>         <span class="c">!! Calculates the Hill&#39;s radii for each body</span>
-<a name="ln-233"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">sort</span>         <span class="o">=&gt;</span> <span class="n">util_sort_pl</span>           <span class="c">!! Sorts body arrays by a sortable component</span>
-<a name="ln-234"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">rearrange</span>    <span class="o">=&gt;</span> <span class="n">util_sort_rearrange_pl</span> <span class="c">!! Rearranges the order of array elements of body based on an input index array. Used in sorting methods</span>
-<a name="ln-235"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">spill</span>        <span class="o">=&gt;</span> <span class="n">util_spill_pl</span>          <span class="c">!! &quot;Spills&quot; bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</span>
-<a name="ln-236"></a>   <span class="k">end type </span><span class="n">swiftest_pl</span>
-<a name="ln-237"></a>
-<a name="ln-238"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-239"></a>   <span class="c">! swiftest_tp definitions and methods</span>
-<a name="ln-240"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-241"></a>   <span class="c">!&gt; An abstract class for a generic collection of Swiftest test particles</span>
-<a name="ln-242"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">abstract</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">)</span> <span class="kd">::</span> <span class="n">swiftest_tp</span>
-<a name="ln-243"></a>      <span class="c">!! Superclass that defines the generic elements of a Swiftest test particle </span>
-<a name="ln-244"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>    <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">isperi</span> <span class="c">!! Perihelion passage flag</span>
-<a name="ln-245"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>    <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">peri</span>   <span class="c">!! Perihelion distance</span>
-<a name="ln-246"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>    <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">atp</span>    <span class="c">!! Semimajor axis following perihelion passage</span>
-<a name="ln-247"></a>      <span class="c">!! Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the</span>
-<a name="ln-248"></a>      <span class="c">!!    component list, such as setup_tp and util_spill_tp</span>
-<a name="ln-249"></a>   <span class="k">contains</span>
-<a name="ln-250"></a>      <span class="c">! Test particle-specific concrete methods </span>
-<a name="ln-251"></a>      <span class="c">! These are concrete because they are the same implemenation for all integrators</span>
-<a name="ln-252"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">discard</span>   <span class="o">=&gt;</span> <span class="n">discard_tp</span>             <span class="c">!! Check to see if test particles should be discarded based on their positions relative to the massive bodies</span>
-<a name="ln-253"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_int</span> <span class="o">=&gt;</span> <span class="n">kick_getacch_int_tp</span>    <span class="c">!! Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies</span>
-<a name="ln-254"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_obl</span> <span class="o">=&gt;</span> <span class="n">obl_acc_tp</span>             <span class="c">!! Compute the barycentric accelerations of bodies due to the oblateness of the central body</span>
-<a name="ln-255"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">setup</span>     <span class="o">=&gt;</span> <span class="n">setup_tp</span>               <span class="c">!! A base constructor that sets the number of bodies and </span>
-<a name="ln-256"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">append</span>    <span class="o">=&gt;</span> <span class="n">util_append_tp</span>         <span class="c">!! Appends elements from one structure to another</span>
-<a name="ln-257"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">h2b</span>       <span class="o">=&gt;</span> <span class="n">util_coord_h2b_tp</span>      <span class="c">!! Convert test particles from heliocentric to barycentric coordinates (position and velocity)</span>
-<a name="ln-258"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">b2h</span>       <span class="o">=&gt;</span> <span class="n">util_coord_b2h_tp</span>      <span class="c">!! Convert test particles from barycentric to heliocentric coordinates (position and velocity)</span>
-<a name="ln-259"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">fill</span>      <span class="o">=&gt;</span> <span class="n">util_fill_tp</span>           <span class="c">!! &quot;Fills&quot; bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</span>
-<a name="ln-260"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">get_peri</span>  <span class="o">=&gt;</span> <span class="n">util_peri_tp</span>           <span class="c">!! Determine system pericenter passages for test particles </span>
-<a name="ln-261"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resize</span>    <span class="o">=&gt;</span> <span class="n">util_resize_tp</span>         <span class="c">!! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</span>
-<a name="ln-262"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_mu</span>    <span class="o">=&gt;</span> <span class="n">util_set_mu_tp</span>         <span class="c">!! Method used to construct the vectorized form of the central body mass</span>
-<a name="ln-263"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">sort</span>      <span class="o">=&gt;</span> <span class="n">util_sort_tp</span>           <span class="c">!! Sorts body arrays by a sortable component</span>
-<a name="ln-264"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">rearrange</span> <span class="o">=&gt;</span> <span class="n">util_sort_rearrange_tp</span> <span class="c">!! Rearranges the order of array elements of body based on an input index array. Used in sorting methods</span>
-<a name="ln-265"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">spill</span>     <span class="o">=&gt;</span> <span class="n">util_spill_tp</span>          <span class="c">!! &quot;Spills&quot; bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</span>
-<a name="ln-266"></a>   <span class="k">end type </span><span class="n">swiftest_tp</span>
-<a name="ln-267"></a>
-<a name="ln-268"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-269"></a>   <span class="c">! swiftest_nbody_system class definitions and methods</span>
-<a name="ln-270"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-271"></a>   <span class="c">!&gt; An abstract class for a basic Swiftest nbody system </span>
-<a name="ln-272"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">abstract</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_base</span><span class="p">)</span> <span class="kd">::</span> <span class="n">swiftest_nbody_system</span>
-<a name="ln-273"></a>      <span class="c">!!  This superclass contains a minimial system of a set of test particles (tp), massive bodies (pl), and a central body (cb)</span>
-<a name="ln-274"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>            <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">cb</span>                   <span class="c">!! Central body data structure</span>
-<a name="ln-275"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>            <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">pl</span>                   <span class="c">!! Massive body data structure</span>
-<a name="ln-276"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>            <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tp</span>                   <span class="c">!! Test particle data structure</span>
-<a name="ln-277"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>            <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tp_discards</span>          <span class="c">!! Discarded test particle data structure</span>
-<a name="ln-278"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">Gmtot</span> <span class="o">=</span> <span class="mf">0.0_DP</span>       <span class="c">!! Total system mass - used for barycentric coordinate conversion</span>
-<a name="ln-279"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">ke_orbit</span> <span class="o">=</span> <span class="mf">0.0_DP</span>    <span class="c">!! System orbital kinetic energy</span>
-<a name="ln-280"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">ke_spin</span> <span class="o">=</span> <span class="mf">0.0_DP</span>     <span class="c">!! System spin kinetic energy</span>
-<a name="ln-281"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">pe</span> <span class="o">=</span> <span class="mf">0.0_DP</span>          <span class="c">!! System potential energy</span>
-<a name="ln-282"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">te</span> <span class="o">=</span> <span class="mf">0.0_DP</span>          <span class="c">!! System total energy</span>
-<a name="ln-283"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">Lorbit</span> <span class="o">=</span> <span class="mf">0.0_DP</span>      <span class="c">!! System orbital angular momentum vector</span>
-<a name="ln-284"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">Lspin</span> <span class="o">=</span> <span class="mf">0.0_DP</span>       <span class="c">!! System spin angular momentum vector</span>
-<a name="ln-285"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">Lescape</span> <span class="o">=</span> <span class="mf">0.0_DP</span>     <span class="c">!! Angular momentum of bodies that escaped the system (used for bookeeping)</span>
-<a name="ln-286"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">Mescape</span> <span class="o">=</span> <span class="mf">0.0_DP</span>     <span class="c">!! Mass of bodies that escaped the system (used for bookeeping)</span>
-<a name="ln-287"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">Ecollisions</span> <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Energy lost from system due to collisions</span>
-<a name="ln-288"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">Euntracked</span> <span class="o">=</span> <span class="mf">0.0_DP</span>  <span class="c">!! Energy gained from system due to escaped bodies</span>
-<a name="ln-289"></a>      <span class="kt">logical</span>                                    <span class="kd">::</span> <span class="n">lbeg</span>                 <span class="c">!! True if this is the beginning of a step. This is used so that test particle steps can be calculated </span>
-<a name="ln-290"></a>                                                                         <span class="c">!!    separately from massive bodies.  Massive body variables are saved at half steps, and passed to </span>
-<a name="ln-291"></a>                                                                         <span class="c">!!    the test particles</span>
-<a name="ln-292"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                               <span class="kd">::</span> <span class="n">maxid</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>           <span class="c">!! The current maximum particle id number </span>
-<a name="ln-293"></a>   <span class="k">contains</span>
-<a name="ln-294"></a>      <span class="c">!&gt; Each integrator will have its own version of the step</span>
-<a name="ln-295"></a>      <span class="k">procedure</span><span class="p">(</span><span class="n">abstract_step_system</span><span class="p">),</span> <span class="k">deferred</span> <span class="kd">::</span> <span class="n">step</span>
-<a name="ln-296"></a>
-<a name="ln-297"></a>      <span class="c">! Concrete classes that are common to the basic integrator (only test particles considered for discard)</span>
-<a name="ln-298"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">discard</span>                 <span class="o">=&gt;</span> <span class="n">discard_system</span>                  <span class="c">!! Perform a discard step on the system</span>
-<a name="ln-299"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">conservation_report</span>     <span class="o">=&gt;</span> <span class="n">io_conservation_report</span>          <span class="c">!! Compute energy and momentum and print out the change with time</span>
-<a name="ln-300"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">dump</span>                    <span class="o">=&gt;</span> <span class="n">io_dump_system</span>                  <span class="c">!! Dump the state of the system to a file</span>
-<a name="ln-301"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">read_frame</span>              <span class="o">=&gt;</span> <span class="n">io_read_frame_system</span>            <span class="c">!! Read in a frame of input data from file</span>
-<a name="ln-302"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">write_discard</span>           <span class="o">=&gt;</span> <span class="n">io_write_discard</span>                <span class="c">!! Write out information about discarded test particles</span>
-<a name="ln-303"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">write_frame</span>             <span class="o">=&gt;</span> <span class="n">io_write_frame_system</span>           <span class="c">!! Append a frame of output data to file</span>
-<a name="ln-304"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">initialize</span>              <span class="o">=&gt;</span> <span class="n">setup_initialize_system</span>         <span class="c">!! Initialize the system from input files</span>
-<a name="ln-305"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">step_spin</span>               <span class="o">=&gt;</span> <span class="n">tides_step_spin_system</span>          <span class="c">!! Steps the spins of the massive &amp; central bodies due to tides.</span>
-<a name="ln-306"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_msys</span>                <span class="o">=&gt;</span> <span class="n">util_set_msys</span>                   <span class="c">!! Sets the value of msys from the masses of system bodies.</span>
-<a name="ln-307"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">get_energy_and_momentum</span> <span class="o">=&gt;</span> <span class="n">util_get_energy_momentum_system</span> <span class="c">!! Calculates the total system energy and momentum</span>
-<a name="ln-308"></a>   <span class="k">end type </span><span class="n">swiftest_nbody_system</span>
-<a name="ln-309"></a>
-<a name="ln-310"></a>   <span class="k">type</span> <span class="kd">::</span> <span class="n">swiftest_encounter</span>
-<a name="ln-311"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                              <span class="kd">::</span> <span class="n">nenc</span>   <span class="c">!! Total number of encounters</span>
-<a name="ln-312"></a>      <span class="kt">logical</span><span class="p">,</span>      <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">lvdotr</span> <span class="c">!! relative vdotr flag</span>
-<a name="ln-313"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">status</span> <span class="c">!! status of the interaction</span>
-<a name="ln-314"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">index1</span> <span class="c">!! position of the first body in the encounter</span>
-<a name="ln-315"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">index2</span> <span class="c">!! position of the second body in the encounter</span>
-<a name="ln-316"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">x1</span>     <span class="c">!! the position of body 1 in the encounter</span>
-<a name="ln-317"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">x2</span>     <span class="c">!! the position of body 2 in the encounter</span>
-<a name="ln-318"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">v1</span>     <span class="c">!! the velocity of body 1 in the encounter</span>
-<a name="ln-319"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">v2</span>     <span class="c">!! the velocity of body 2 in the encounter</span>
-<a name="ln-320"></a>   <span class="k">contains</span>
-<a name="ln-321"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">setup</span>  <span class="o">=&gt;</span> <span class="n">setup_encounter</span>       <span class="c">!! A constructor that sets the number of encounters and allocates and initializes all arrays  </span>
-<a name="ln-322"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">copy</span>   <span class="o">=&gt;</span> <span class="n">util_copy_encounter</span>   <span class="c">!! Copies elements from the source encounter list into self.</span>
-<a name="ln-323"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">spill</span>  <span class="o">=&gt;</span> <span class="n">util_spill_encounter</span>  <span class="c">!! &quot;Spills&quot; bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</span>
-<a name="ln-324"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resize</span> <span class="o">=&gt;</span> <span class="n">util_resize_encounter</span> <span class="c">!! Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small.</span>
-<a name="ln-325"></a>   <span class="k">end type </span><span class="n">swiftest_encounter</span>
-<a name="ln-326"></a>
-<a name="ln-327"></a>   <span class="k">abstract interface</span>
-<a name="ln-328"></a><span class="k">      subroutine </span><span class="n">abstract_discard_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
-<a name="ln-329"></a>         <span class="k">import </span><span class="n">swiftest_body</span><span class="p">,</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
-<a name="ln-330"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest body object</span>
-<a name="ln-331"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-332"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
-<a name="ln-333"></a>      <span class="k">end subroutine </span><span class="n">abstract_discard_body</span>
-<a name="ln-334"></a>
-<a name="ln-335"></a>      <span class="k">subroutine </span><span class="n">abstract_accel</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
-<a name="ln-336"></a>         <span class="k">import </span><span class="n">swiftest_body</span><span class="p">,</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span><span class="p">,</span> <span class="n">DP</span>
-<a name="ln-337"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest body data structure</span>
-<a name="ln-338"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-339"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
-<a name="ln-340"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>      <span class="c">!! Current simulation time</span>
-<a name="ln-341"></a>         <span class="kt">logical</span><span class="p">,</span>                      <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lbeg</span>   <span class="c">!! Optional argument that determines whether or not this is the beginning or end of the step</span>
-<a name="ln-342"></a>      <span class="k">end subroutine </span><span class="n">abstract_accel</span>
-<a name="ln-343"></a>
-<a name="ln-344"></a>      <span class="k">subroutine </span><span class="n">abstract_initialize</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
-<a name="ln-345"></a>         <span class="k">import </span><span class="n">swiftest_base</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
-<a name="ln-346"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_base</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest base object</span>
-<a name="ln-347"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-348"></a>      <span class="k">end subroutine </span><span class="n">abstract_initialize</span>
-<a name="ln-349"></a>
-<a name="ln-350"></a>      <span class="k">subroutine </span><span class="n">abstract_kick_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
-<a name="ln-351"></a>         <span class="k">import </span><span class="n">swiftest_body</span><span class="p">,</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span><span class="p">,</span> <span class="n">DP</span>
-<a name="ln-352"></a>         <span class="k">implicit none</span>
-<a name="ln-353"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest generic body object</span>
-<a name="ln-354"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system objec</span>
-<a name="ln-355"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
-<a name="ln-356"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>      <span class="c">!! Current time</span>
-<a name="ln-357"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>     <span class="c">!! Stepsize</span>
-<a name="ln-358"></a>         <span class="kt">logical</span><span class="p">,</span>                      <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lbeg</span>   <span class="c">!! Logical flag indicating whether this is the beginning of the half step or not. </span>
-<a name="ln-359"></a>      <span class="k">end subroutine </span><span class="n">abstract_kick_body</span>
-<a name="ln-360"></a>
-<a name="ln-361"></a>      <span class="k">subroutine </span><span class="n">abstract_read_frame</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-362"></a>         <span class="k">import </span><span class="n">DP</span><span class="p">,</span> <span class="n">I4B</span><span class="p">,</span> <span class="n">swiftest_base</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
-<a name="ln-363"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_base</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest base object</span>
-<a name="ln-364"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>    <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-365"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-366"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">form</span>  <span class="c">!! Input format code (&quot;XV&quot; or &quot;EL&quot;)</span>
-<a name="ln-367"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>  <span class="c">!! Error code</span>
-<a name="ln-368"></a>      <span class="k">end subroutine </span><span class="n">abstract_read_frame</span>
-<a name="ln-369"></a>
-<a name="ln-370"></a>      <span class="k">subroutine </span><span class="n">abstract_set_mu</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span> 
-<a name="ln-371"></a>         <span class="k">import </span><span class="n">swiftest_body</span><span class="p">,</span> <span class="n">swiftest_cb</span>
-<a name="ln-372"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest body object</span>
-<a name="ln-373"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
-<a name="ln-374"></a>      <span class="k">end subroutine </span><span class="n">abstract_set_mu</span>
-<a name="ln-375"></a>
-<a name="ln-376"></a>      <span class="k">subroutine </span><span class="n">abstract_step_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
-<a name="ln-377"></a>         <span class="k">import </span><span class="n">DP</span><span class="p">,</span> <span class="n">swiftest_body</span><span class="p">,</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
-<a name="ln-378"></a>         <span class="k">implicit none</span>
-<a name="ln-379"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest body object</span>
-<a name="ln-380"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest system object</span>
-<a name="ln-381"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
-<a name="ln-382"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>      <span class="c">!! Simulation time</span>
-<a name="ln-383"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>     <span class="c">!! Current stepsize</span>
-<a name="ln-384"></a>      <span class="k">end subroutine </span><span class="n">abstract_step_body</span>
-<a name="ln-385"></a>
-<a name="ln-386"></a>      <span class="k">subroutine </span><span class="n">abstract_step_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
-<a name="ln-387"></a>         <span class="k">import </span><span class="n">DP</span><span class="p">,</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
-<a name="ln-388"></a>         <span class="k">implicit none</span>
-<a name="ln-389"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest system object</span>
-<a name="ln-390"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-391"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>     <span class="c">!! Simulation time</span>
-<a name="ln-392"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>    <span class="c">!! Current stepsize</span>
-<a name="ln-393"></a>      <span class="k">end subroutine </span><span class="n">abstract_step_system</span>
-<a name="ln-394"></a>
-<a name="ln-395"></a>      <span class="k">subroutine </span><span class="n">abstract_write_frame</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-396"></a>         <span class="k">import </span><span class="n">DP</span><span class="p">,</span> <span class="n">I4B</span><span class="p">,</span> <span class="n">swiftest_base</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
-<a name="ln-397"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_base</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest base object</span>
-<a name="ln-398"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>    <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-399"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-400"></a>      <span class="k">end subroutine </span><span class="n">abstract_write_frame</span>
-<a name="ln-401"></a>   <span class="k">end interface</span>
-<a name="ln-402"></a>
-<a name="ln-403"></a><span class="k">   interface</span>
-<a name="ln-404"></a><span class="k">      module subroutine </span><span class="n">discard_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-405"></a>         <span class="k">implicit none</span>
-<a name="ln-406"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest massive body object</span>
-<a name="ln-407"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-408"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameter</span>
-<a name="ln-409"></a>      <span class="k">end subroutine </span><span class="n">discard_pl</span>
-<a name="ln-410"></a>
-<a name="ln-411"></a>      <span class="k">module subroutine </span><span class="n">discard_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-412"></a>         <span class="k">implicit none</span>
-<a name="ln-413"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest system object</span>
-<a name="ln-414"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-415"></a>      <span class="k">end subroutine </span><span class="n">discard_system</span>
-<a name="ln-416"></a>
-<a name="ln-417"></a>      <span class="k">module subroutine </span><span class="n">discard_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-418"></a>         <span class="k">implicit none</span>
-<a name="ln-419"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest test particle object</span>
-<a name="ln-420"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-421"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
-<a name="ln-422"></a>      <span class="k">end subroutine </span><span class="n">discard_tp</span>
-<a name="ln-423"></a>
-<a name="ln-424"></a>      <span class="k">module pure subroutine </span><span class="n">drift_all</span><span class="p">(</span><span class="n">mu</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">mask</span><span class="p">,</span> <span class="n">iflag</span><span class="p">)</span>
-<a name="ln-425"></a>         <span class="k">implicit none</span>
-<a name="ln-426"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">mu</span>    <span class="c">!! Vector of gravitational constants</span>
-<a name="ln-427"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span>  <span class="c">!! Position and velocity vectors</span>
-<a name="ln-428"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! number of bodies</span>
-<a name="ln-429"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
-<a name="ln-430"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>    <span class="c">!! Stepsize</span>
-<a name="ln-431"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">mask</span>  <span class="c">!! Logical mask of size self%nbody that determines which bodies to drift.</span>
-<a name="ln-432"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">iflag</span> <span class="c">!! Vector of error flags. 0 means no problem</span>
-<a name="ln-433"></a>      <span class="k">end subroutine </span><span class="n">drift_all</span>
-<a name="ln-434"></a>
-<a name="ln-435"></a>      <span class="k">module subroutine </span><span class="n">drift_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
-<a name="ln-436"></a>         <span class="k">implicit none</span>
-<a name="ln-437"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest particle data structure</span>
-<a name="ln-438"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-439"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
-<a name="ln-440"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>     <span class="c">!! Stepsize</span>
-<a name="ln-441"></a>      <span class="k">end subroutine </span><span class="n">drift_body</span>
-<a name="ln-442"></a>
-<a name="ln-443"></a>      <span class="k">module pure elemental subroutine </span><span class="n">drift_one</span><span class="p">(</span><span class="n">mu</span><span class="p">,</span> <span class="n">px</span><span class="p">,</span> <span class="n">py</span><span class="p">,</span> <span class="n">pz</span><span class="p">,</span> <span class="n">vx</span><span class="p">,</span> <span class="n">vy</span><span class="p">,</span> <span class="n">vz</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">iflag</span><span class="p">)</span>
-<a name="ln-444"></a>         <span class="k">implicit none</span>
-<a name="ln-445"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>       <span class="kd">::</span> <span class="n">mu</span>    <span class="c">!! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body to drift</span>
-<a name="ln-446"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">px</span><span class="p">,</span> <span class="n">py</span><span class="p">,</span> <span class="n">pz</span><span class="p">,</span> <span class="n">vx</span><span class="p">,</span> <span class="n">vy</span><span class="p">,</span> <span class="n">vz</span>  <span class="c">!! Position and velocity of body to drift</span>
-<a name="ln-447"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>       <span class="kd">::</span> <span class="n">dt</span>    <span class="c">!! Step size</span>
-<a name="ln-448"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>      <span class="kd">::</span> <span class="n">iflag</span> <span class="c">!! iflag : error status flag for Danby drift (0 = OK, nonzero = ERROR)</span>
-<a name="ln-449"></a>      <span class="k">end subroutine </span><span class="n">drift_one</span>
-<a name="ln-450"></a>
-<a name="ln-451"></a>      <span class="k">module subroutine </span><span class="n">eucl_dist_index_plpl</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
-<a name="ln-452"></a>         <span class="k">implicit none</span>
-<a name="ln-453"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest massive body object</span>
-<a name="ln-454"></a>      <span class="k">end subroutine</span>
-<a name="ln-455"></a>
-<a name="ln-456"></a><span class="k">      module subroutine </span><span class="n">fragmentation_initialize</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-457"></a>         <span class="n">nfrag</span><span class="p">,</span> <span class="n">Ip_frag</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">,</span> <span class="n">lfailure</span><span class="p">)</span>
-<a name="ln-458"></a>         <span class="k">implicit none</span>
-<a name="ln-459"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>
-<a name="ln-460"></a><span class="nb">         </span><span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">param</span> 
-<a name="ln-461"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">family</span>
-<a name="ln-462"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span>
-<a name="ln-463"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>
-<a name="ln-464"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span>             <span class="kd">::</span> <span class="n">nfrag</span>
-<a name="ln-465"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span>
-<a name="ln-466"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Ip_frag</span>
-<a name="ln-467"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span>
-<a name="ln-468"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>                    <span class="kd">::</span> <span class="n">lfailure</span> <span class="c">! Answers the question: Should this have been a merger instead?</span>
-<a name="ln-469"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span>                 <span class="kd">::</span> <span class="n">Qloss</span>
-<a name="ln-470"></a>      <span class="k">end subroutine </span><span class="n">fragmentation_initialize</span>
-<a name="ln-471"></a>
-<a name="ln-472"></a>      <span class="k">module subroutine </span><span class="n">fragmentation_regime</span><span class="p">(</span><span class="n">Mcb</span><span class="p">,</span> <span class="n">m1</span><span class="p">,</span> <span class="n">m2</span><span class="p">,</span> <span class="n">rad1</span><span class="p">,</span> <span class="n">rad2</span><span class="p">,</span> <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vb1</span><span class="p">,</span> <span class="n">vb2</span><span class="p">,</span> <span class="n">den1</span><span class="p">,</span> <span class="n">den2</span><span class="p">,</span> <span class="n">regime</span><span class="p">,</span> <span class="n">Mlr</span><span class="p">,</span> <span class="n">Mslr</span><span class="p">,</span> <span class="n">mtiny</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">)</span>
-<a name="ln-473"></a>         <span class="k">implicit none</span>
-<a name="ln-474"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>         <span class="kd">::</span> <span class="n">regime</span>
-<a name="ln-475"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">Mlr</span><span class="p">,</span> <span class="n">Mslr</span>
-<a name="ln-476"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">Mcb</span><span class="p">,</span> <span class="n">m1</span><span class="p">,</span> <span class="n">m2</span><span class="p">,</span> <span class="n">rad1</span><span class="p">,</span> <span class="n">rad2</span><span class="p">,</span> <span class="n">den1</span><span class="p">,</span> <span class="n">den2</span><span class="p">,</span> <span class="n">mtiny</span> 
-<a name="ln-477"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vb1</span><span class="p">,</span> <span class="n">vb2</span>
-<a name="ln-478"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">Qloss</span> <span class="c">!! The residual energy after the collision </span>
-<a name="ln-479"></a>      <span class="k">end subroutine </span><span class="n">fragmentation_regime</span>
-<a name="ln-480"></a>
-<a name="ln-481"></a>      <span class="k">module pure subroutine </span><span class="n">gr_kick_getaccb_ns_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-482"></a>         <span class="k">implicit none</span>
-<a name="ln-483"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest generic body object</span>
-<a name="ln-484"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-485"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
-<a name="ln-486"></a>      <span class="k">end subroutine </span><span class="n">gr_kick_getaccb_ns_body</span>
-<a name="ln-487"></a>
-<a name="ln-488"></a>      <span class="k">module subroutine </span><span class="n">gr_kick_getacch</span><span class="p">(</span><span class="n">mu</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">lmask</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">inv_c2</span><span class="p">,</span> <span class="n">agr</span><span class="p">)</span> 
-<a name="ln-489"></a>         <span class="k">implicit none</span>
-<a name="ln-490"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">mu</span>     <span class="c">!! Gravitational constant</span>
-<a name="ln-491"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">x</span>      <span class="c">!! Position vectors</span>
-<a name="ln-492"></a>         <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">lmask</span>  <span class="c">!! Logical mask indicating which bodies to compute</span>
-<a name="ln-493"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">n</span>      <span class="c">!! Total number of bodies</span>
-<a name="ln-494"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">inv_c2</span> <span class="c">!! Inverse speed of light squared: 1 / c**2</span>
-<a name="ln-495"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">agr</span>    <span class="c">!! Accelerations</span>
-<a name="ln-496"></a>      <span class="k">end subroutine </span><span class="n">gr_kick_getacch</span>
-<a name="ln-497"></a>
-<a name="ln-498"></a>      <span class="k">module pure subroutine </span><span class="n">gr_p4_pos_kick</span><span class="p">(</span><span class="n">param</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
-<a name="ln-499"></a>         <span class="k">implicit none</span>
-<a name="ln-500"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-501"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span>     <span class="c">!! Position vector</span>
-<a name="ln-502"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">v</span>     <span class="c">!! Velocity vector</span>
-<a name="ln-503"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>    <span class="c">!! Step size</span>
-<a name="ln-504"></a>      <span class="k">end subroutine </span><span class="n">gr_p4_pos_kick</span>
-<a name="ln-505"></a>
-<a name="ln-506"></a>      <span class="k">module pure subroutine </span><span class="n">gr_pseudovel2vel</span><span class="p">(</span><span class="n">param</span><span class="p">,</span> <span class="n">mu</span><span class="p">,</span> <span class="n">xh</span><span class="p">,</span> <span class="n">pv</span><span class="p">,</span> <span class="n">vh</span><span class="p">)</span> 
-<a name="ln-507"></a>         <span class="k">implicit none</span>
-<a name="ln-508"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-509"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">mu</span>    <span class="c">!! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body</span>
-<a name="ln-510"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">xh</span>    <span class="c">!! Heliocentric position vector </span>
-<a name="ln-511"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">pv</span>    <span class="c">!! Pseudovelocity velocity vector - see Saha &amp; Tremain (1994), eq. (32)</span>
-<a name="ln-512"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">vh</span>    <span class="c">!! Heliocentric velocity vector </span>
-<a name="ln-513"></a>      <span class="k">end subroutine </span><span class="n">gr_pseudovel2vel</span>
-<a name="ln-514"></a>
-<a name="ln-515"></a>      <span class="k">module pure subroutine </span><span class="n">gr_pv2vh_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-516"></a>         <span class="k">implicit none</span>
-<a name="ln-517"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest particle object</span>
-<a name="ln-518"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-519"></a>      <span class="k">end subroutine </span><span class="n">gr_pv2vh_body</span>
-<a name="ln-520"></a>
-<a name="ln-521"></a>      <span class="k">module pure subroutine </span><span class="n">gr_vel2pseudovel</span><span class="p">(</span><span class="n">param</span><span class="p">,</span> <span class="n">mu</span><span class="p">,</span> <span class="n">xh</span><span class="p">,</span> <span class="n">vh</span><span class="p">,</span> <span class="n">pv</span><span class="p">)</span>
-<a name="ln-522"></a>         <span class="k">implicit none</span>
-<a name="ln-523"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-524"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">mu</span>    <span class="c">!! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body</span>
-<a name="ln-525"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">xh</span>    <span class="c">!! Heliocentric position vector </span>
-<a name="ln-526"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">vh</span>    <span class="c">!! Heliocentric velocity vector </span>
-<a name="ln-527"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">pv</span>    <span class="c">!! Pseudovelocity vector - see Saha &amp; Tremain (1994), eq. (32)</span>
-<a name="ln-528"></a>      <span class="k">end subroutine </span><span class="n">gr_vel2pseudovel</span>
-<a name="ln-529"></a>
-<a name="ln-530"></a>      <span class="k">module pure subroutine </span><span class="n">gr_vh2pv_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-531"></a>         <span class="k">implicit none</span>
-<a name="ln-532"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest particle object</span>
-<a name="ln-533"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
-<a name="ln-534"></a>      <span class="k">end subroutine </span><span class="n">gr_vh2pv_body</span>
-<a name="ln-535"></a>
-<a name="ln-536"></a>      <span class="k">module subroutine </span><span class="n">io_conservation_report</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">lterminal</span><span class="p">)</span>
-<a name="ln-537"></a>         <span class="k">implicit none</span>
-<a name="ln-538"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-539"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>     <span class="c">!! Input colleciton of user-defined parameters</span>
-<a name="ln-540"></a>         <span class="kt">logical</span><span class="p">,</span>                      <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lterminal</span> <span class="c">!! Indicates whether to output information to the terminal screen</span>
-<a name="ln-541"></a>      <span class="k">end subroutine </span><span class="n">io_conservation_report</span>
-<a name="ln-542"></a>
-<a name="ln-543"></a>      <span class="k">module subroutine </span><span class="n">io_dump_param</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param_file_name</span><span class="p">)</span>
-<a name="ln-544"></a>         <span class="k">implicit none</span>
-<a name="ln-545"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>            <span class="c">!! Output collection of parameters</span>
-<a name="ln-546"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>          <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param_file_name</span> <span class="c">!! Parameter input file name (i.e. param.in)</span>
-<a name="ln-547"></a>      <span class="k">end subroutine </span><span class="n">io_dump_param</span>
-<a name="ln-548"></a>
-<a name="ln-549"></a>      <span class="k">module subroutine </span><span class="n">io_dump_swiftest</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">msg</span><span class="p">)</span> 
-<a name="ln-550"></a>         <span class="k">implicit none</span>
-<a name="ln-551"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_base</span><span class="p">),</span>          <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest base object</span>
-<a name="ln-552"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-553"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">optional</span><span class="p">,</span>        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">msg</span>   <span class="c">!! Message to display with dump operation</span>
-<a name="ln-554"></a>      <span class="k">end subroutine </span><span class="n">io_dump_swiftest</span>
-<a name="ln-555"></a>
-<a name="ln-556"></a>      <span class="k">module subroutine </span><span class="n">io_dump_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">msg</span><span class="p">)</span>
-<a name="ln-557"></a>         <span class="k">implicit none</span>
-<a name="ln-558"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>    <span class="c">!! Swiftest system object</span>
-<a name="ln-559"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
-<a name="ln-560"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">optional</span><span class="p">,</span>        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">msg</span>  <span class="c">!! Message to display with dump operation</span>
-<a name="ln-561"></a>      <span class="k">end subroutine </span><span class="n">io_dump_system</span>
-<a name="ln-562"></a>
-<a name="ln-563"></a>      <span class="k">module function </span><span class="n">io_get_args</span><span class="p">(</span><span class="n">integrator</span><span class="p">,</span> <span class="n">param_file_name</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">ierr</span><span class="p">)</span>
-<a name="ln-564"></a>         <span class="k">implicit none</span>
-<a name="ln-565"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">integrator</span>      <span class="c">!! Symbolic code of the requested integrator  </span>
-<a name="ln-566"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">param_file_name</span> <span class="c">!! Name of the input parameters file</span>
-<a name="ln-567"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">ierr</span>             <span class="c">!! I/O error code </span>
-<a name="ln-568"></a>      <span class="k">end function </span><span class="n">io_get_args</span>
-<a name="ln-569"></a>
-<a name="ln-570"></a>      <span class="k">module function </span><span class="n">io_get_token</span><span class="p">(</span><span class="n">buffer</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">token</span><span class="p">)</span>
-<a name="ln-571"></a>         <span class="k">implicit none</span>
-<a name="ln-572"></a><span class="k">         </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">buffer</span>         <span class="c">!! Input string buffer</span>
-<a name="ln-573"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ifirst</span>         <span class="c">!! Index of the buffer at which to start the search for a token</span>
-<a name="ln-574"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ilast</span>          <span class="c">!! Index of the buffer at the end of the returned token</span>
-<a name="ln-575"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>           <span class="c">!! Error code</span>
-<a name="ln-576"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span>   <span class="kd">::</span> <span class="n">token</span>          <span class="c">!! Returned token string</span>
-<a name="ln-577"></a>      <span class="k">end function </span><span class="n">io_get_token</span>
-<a name="ln-578"></a>
-<a name="ln-579"></a>      <span class="k">module subroutine </span><span class="n">io_param_reader</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
-<a name="ln-580"></a>         <span class="k">implicit none</span>
-<a name="ln-581"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! Collection of parameters</span>
-<a name="ln-582"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">unit</span>       <span class="c">!! File unit number</span>
-<a name="ln-583"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">iotype</span>     <span class="c">!! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. </span>
-<a name="ln-584"></a>                                                                 <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
-<a name="ln-585"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">v_list</span><span class="p">(:)</span>  <span class="c">!! The first element passes the integrator code to the reader</span>
-<a name="ln-586"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">iostat</span>     <span class="c">!! IO status code</span>
-<a name="ln-587"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iomsg</span>      <span class="c">!! Message to pass if iostat /= 0</span>
-<a name="ln-588"></a>      <span class="k">end subroutine </span><span class="n">io_param_reader</span>
-<a name="ln-589"></a>
-<a name="ln-590"></a>      <span class="k">module subroutine </span><span class="n">io_param_writer</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
-<a name="ln-591"></a>         <span class="k">implicit none</span>
-<a name="ln-592"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Collection of parameters</span>
-<a name="ln-593"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">unit</span>      <span class="c">!! File unit number</span>
-<a name="ln-594"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">iotype</span>    <span class="c">!! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. </span>
-<a name="ln-595"></a>                                                                <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
-<a name="ln-596"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">v_list</span><span class="p">(:)</span> <span class="c">!! Not used in this procedure</span>
-<a name="ln-597"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">iostat</span>    <span class="c">!! IO status code</span>
-<a name="ln-598"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iomsg</span>     <span class="c">!! Message to pass if iostat /= 0</span>
-<a name="ln-599"></a>      <span class="k">end subroutine </span><span class="n">io_param_writer</span>
-<a name="ln-600"></a>
-<a name="ln-601"></a>      <span class="k">module subroutine </span><span class="n">io_read_body_in</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
-<a name="ln-602"></a>         <span class="k">implicit none</span>
-<a name="ln-603"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest body object</span>
-<a name="ln-604"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
-<a name="ln-605"></a>      <span class="k">end subroutine </span><span class="n">io_read_body_in</span>
-<a name="ln-606"></a>
-<a name="ln-607"></a>      <span class="k">module subroutine </span><span class="n">io_read_cb_in</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
-<a name="ln-608"></a>         <span class="k">implicit none</span>
-<a name="ln-609"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest central body object</span>
-<a name="ln-610"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
-<a name="ln-611"></a>      <span class="k">end subroutine </span><span class="n">io_read_cb_in</span>
-<a name="ln-612"></a>
-<a name="ln-613"></a>      <span class="k">module subroutine </span><span class="n">io_read_param_in</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param_file_name</span><span class="p">)</span> 
-<a name="ln-614"></a>         <span class="k">implicit none</span>
-<a name="ln-615"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>            <span class="c">!! Current run configuration parameters</span>
-<a name="ln-616"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param_file_name</span> <span class="c">!! Parameter input file name (i.e. param.in)</span>
-<a name="ln-617"></a>      <span class="k">end subroutine </span><span class="n">io_read_param_in</span>
-<a name="ln-618"></a>
-<a name="ln-619"></a>      <span class="k">module subroutine </span><span class="n">io_read_frame_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-620"></a>         <span class="k">implicit none</span>
-<a name="ln-621"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest body object</span>
-<a name="ln-622"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>     <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-623"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
-<a name="ln-624"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">form</span>   <span class="c">!! Input format code (&quot;XV&quot; or &quot;EL&quot;)</span>
-<a name="ln-625"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>   <span class="c">!! Error code</span>
-<a name="ln-626"></a>      <span class="k">end subroutine </span><span class="n">io_read_frame_body</span>
-<a name="ln-627"></a>
-<a name="ln-628"></a>      <span class="k">module subroutine </span><span class="n">io_read_frame_cb</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-629"></a>         <span class="k">implicit none</span>
-<a name="ln-630"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>    <span class="c">!! Swiftest central body object</span>
-<a name="ln-631"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>      <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-632"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>   <span class="c">!! Current run configuration parameters </span>
-<a name="ln-633"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">form</span>    <span class="c">!! Input format code (&quot;XV&quot; or &quot;EL&quot;)</span>
-<a name="ln-634"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>    <span class="c">!! Error code</span>
-<a name="ln-635"></a>      <span class="k">end subroutine </span><span class="n">io_read_frame_cb</span>
-<a name="ln-636"></a>
-<a name="ln-637"></a>      <span class="k">module subroutine </span><span class="n">io_read_frame_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-638"></a>         <span class="k">implicit none</span>
-<a name="ln-639"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest system object</span>
-<a name="ln-640"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>    <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-641"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-642"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">form</span>  <span class="c">!! Input format code (&quot;XV&quot; or &quot;EL&quot;)</span>
-<a name="ln-643"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>  <span class="c">!! Error code</span>
-<a name="ln-644"></a>      <span class="k">end subroutine </span><span class="n">io_read_frame_system</span>
-<a name="ln-645"></a>
-<a name="ln-646"></a>      <span class="k">module subroutine </span><span class="n">io_write_discard</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-647"></a>         <span class="k">implicit none</span>
-<a name="ln-648"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest system object</span>
-<a name="ln-649"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-650"></a>      <span class="k">end subroutine </span><span class="n">io_write_discard</span>
-<a name="ln-651"></a>
-<a name="ln-652"></a>      <span class="k">module subroutine </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">string</span><span class="p">)</span>
-<a name="ln-653"></a>         <span class="k">implicit none</span>
-<a name="ln-654"></a><span class="k">         </span><span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">string</span> <span class="c">!! String to make upper case</span>
-<a name="ln-655"></a>      <span class="k">end subroutine </span><span class="n">io_toupper</span>
-<a name="ln-656"></a>
-<a name="ln-657"></a>      <span class="k">module subroutine </span><span class="n">io_write_encounter</span><span class="p">(</span><span class="n">t</span><span class="p">,</span> <span class="n">name1</span><span class="p">,</span> <span class="n">name2</span><span class="p">,</span> <span class="n">mass1</span><span class="p">,</span> <span class="n">mass2</span><span class="p">,</span> <span class="n">radius1</span><span class="p">,</span> <span class="n">radius2</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-658"></a>                                           <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vh1</span><span class="p">,</span> <span class="n">vh2</span><span class="p">,</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">out_type</span><span class="p">)</span>
-<a name="ln-659"></a>         <span class="k">implicit none</span>
-<a name="ln-660"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">name1</span><span class="p">,</span> <span class="n">name2</span>
-<a name="ln-661"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">t</span><span class="p">,</span> <span class="n">mass1</span><span class="p">,</span> <span class="n">mass2</span><span class="p">,</span> <span class="n">radius1</span><span class="p">,</span> <span class="n">radius2</span>
-<a name="ln-662"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vh1</span><span class="p">,</span> <span class="n">vh2</span>
-<a name="ln-663"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">out_type</span>
-<a name="ln-664"></a>      <span class="k">end subroutine </span><span class="n">io_write_encounter</span>
-<a name="ln-665"></a>
-<a name="ln-666"></a>      <span class="k">module subroutine </span><span class="n">io_write_frame_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-667"></a>         <span class="k">implicit none</span>
-<a name="ln-668"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest body object</span>
-<a name="ln-669"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>    <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-670"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-671"></a>      <span class="k">end subroutine </span><span class="n">io_write_frame_body</span>
-<a name="ln-672"></a>
-<a name="ln-673"></a>      <span class="k">module subroutine </span><span class="n">io_write_frame_cb</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-674"></a>         <span class="k">implicit none</span>
-<a name="ln-675"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest central body object </span>
-<a name="ln-676"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>    <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-677"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-678"></a>      <span class="k">end subroutine </span><span class="n">io_write_frame_cb</span>
-<a name="ln-679"></a>
-<a name="ln-680"></a>      <span class="k">module subroutine </span><span class="n">io_write_frame_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-681"></a>         <span class="k">implicit none</span>
-<a name="ln-682"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest system object</span>
-<a name="ln-683"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>    <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-684"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-685"></a>      <span class="k">end subroutine </span><span class="n">io_write_frame_system</span>
-<a name="ln-686"></a>
-<a name="ln-687"></a>      <span class="k">module pure subroutine </span><span class="n">kick_getacch_int_pl</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
-<a name="ln-688"></a>         <span class="k">implicit none</span>
-<a name="ln-689"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>
-<a name="ln-690"></a>      <span class="k">end subroutine </span><span class="n">kick_getacch_int_pl</span>
-<a name="ln-691"></a>
-<a name="ln-692"></a>      <span class="k">module pure subroutine </span><span class="n">kick_getacch_int_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">GMpl</span><span class="p">,</span> <span class="n">xhp</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
-<a name="ln-693"></a>         <span class="k">implicit none</span>
-<a name="ln-694"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest test particle</span>
-<a name="ln-695"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">GMpl</span> <span class="c">!! Massive body masses</span>
-<a name="ln-696"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">xhp</span>  <span class="c">!! Massive body position vectors</span>
-<a name="ln-697"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>             <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">npl</span>  <span class="c">!! Number of active massive bodies</span>
-<a name="ln-698"></a>      <span class="k">end subroutine </span><span class="n">kick_getacch_int_tp</span>
-<a name="ln-699"></a>
-<a name="ln-700"></a>      <span class="k">module subroutine </span><span class="n">obl_acc_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">)</span>
-<a name="ln-701"></a>         <span class="k">implicit none</span>
-<a name="ln-702"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest body object </span>
-<a name="ln-703"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-704"></a>      <span class="k">end subroutine </span><span class="n">obl_acc_body</span>
-<a name="ln-705"></a>
-<a name="ln-706"></a>      <span class="k">module subroutine </span><span class="n">obl_acc_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">)</span>
-<a name="ln-707"></a>         <span class="k">implicit none</span>
-<a name="ln-708"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest massive body object</span>
-<a name="ln-709"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-710"></a>      <span class="k">end subroutine </span><span class="n">obl_acc_pl</span>
-<a name="ln-711"></a>
-<a name="ln-712"></a>      <span class="k">module subroutine </span><span class="n">obl_acc_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">)</span>
-<a name="ln-713"></a>         <span class="k">implicit none</span>
-<a name="ln-714"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest test particle object</span>
-<a name="ln-715"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-716"></a>      <span class="k">end subroutine </span><span class="n">obl_acc_tp</span>
-<a name="ln-717"></a>
-<a name="ln-718"></a>      <span class="k">module subroutine </span><span class="n">obl_pot</span><span class="p">(</span><span class="n">npl</span><span class="p">,</span> <span class="n">Mcb</span><span class="p">,</span> <span class="n">Mpl</span><span class="p">,</span> <span class="n">j2rp2</span><span class="p">,</span> <span class="n">j4rp4</span><span class="p">,</span> <span class="n">xh</span><span class="p">,</span> <span class="n">irh</span><span class="p">,</span> <span class="n">oblpot</span><span class="p">)</span>
-<a name="ln-719"></a>         <span class="k">implicit none</span>
-<a name="ln-720"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">npl</span>
-<a name="ln-721"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Mcb</span>
-<a name="ln-722"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Mpl</span>
-<a name="ln-723"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">j2rp2</span><span class="p">,</span> <span class="n">j4rp4</span>
-<a name="ln-724"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>         <span class="kd">::</span> <span class="n">irh</span>
-<a name="ln-725"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,</span> <span class="p">:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>      <span class="kd">::</span> <span class="n">xh</span>
-<a name="ln-726"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>                      <span class="kd">::</span> <span class="n">oblpot</span>
-<a name="ln-727"></a>      <span class="k">end subroutine </span><span class="n">obl_pot</span>
-<a name="ln-728"></a>
-<a name="ln-729"></a>      <span class="k">module subroutine </span><span class="n">orbel_el2xv_vec</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
-<a name="ln-730"></a>         <span class="k">implicit none</span>
-<a name="ln-731"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest body object</span>
-<a name="ln-732"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
-<a name="ln-733"></a>      <span class="k">end subroutine </span><span class="n">orbel_el2xv_vec</span>
-<a name="ln-734"></a>
-<a name="ln-735"></a>      <span class="k">module pure subroutine </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">angle</span><span class="p">,</span> <span class="n">sx</span><span class="p">,</span> <span class="n">cx</span><span class="p">)</span>
-<a name="ln-736"></a>         <span class="k">implicit none</span>
-<a name="ln-737"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">angle</span>
-<a name="ln-738"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">sx</span><span class="p">,</span> <span class="n">cx</span>
-<a name="ln-739"></a>      <span class="k">end subroutine </span><span class="n">orbel_scget</span>
-<a name="ln-740"></a>
-<a name="ln-741"></a>      <span class="k">module pure subroutine </span><span class="n">orbel_xv2aeq</span><span class="p">(</span><span class="n">mu</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">a</span><span class="p">,</span> <span class="n">e</span><span class="p">,</span> <span class="n">q</span><span class="p">)</span>
-<a name="ln-742"></a>         <span class="k">implicit none</span>
-<a name="ln-743"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">mu</span> <span class="c">!! Gravitational constant</span>
-<a name="ln-744"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">x</span>  <span class="c">!! Position vector</span>
-<a name="ln-745"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">v</span>  <span class="c">!! Velocity vector</span>
-<a name="ln-746"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">a</span>  <span class="c">!! semimajor axis</span>
-<a name="ln-747"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">e</span>  <span class="c">!! eccentricity</span>
-<a name="ln-748"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">q</span>  <span class="c">!! periapsis</span>
-<a name="ln-749"></a>      <span class="k">end subroutine </span><span class="n">orbel_xv2aeq</span>
-<a name="ln-750"></a>
-<a name="ln-751"></a>      <span class="k">module pure subroutine </span><span class="n">orbel_xv2aqt</span><span class="p">(</span><span class="n">mu</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">a</span><span class="p">,</span> <span class="n">q</span><span class="p">,</span> <span class="n">capm</span><span class="p">,</span> <span class="n">tperi</span><span class="p">)</span>
-<a name="ln-752"></a>         <span class="k">implicit none</span>
-<a name="ln-753"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">mu</span>    <span class="c">!! Gravitational constant</span>
-<a name="ln-754"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">x</span>     <span class="c">!! Position vector</span>
-<a name="ln-755"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">v</span>     <span class="c">!! Velocity vector</span>
-<a name="ln-756"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">a</span>     <span class="c">!! semimajor axis</span>
-<a name="ln-757"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">q</span>     <span class="c">!! periapsis</span>
-<a name="ln-758"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">capm</span>  <span class="c">!! mean anomaly</span>
-<a name="ln-759"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">tperi</span> <span class="c">!! time of pericenter passage</span>
-<a name="ln-760"></a>      <span class="k">end subroutine </span><span class="n">orbel_xv2aqt</span>
-<a name="ln-761"></a>
-<a name="ln-762"></a>      <span class="k">module subroutine </span><span class="n">orbel_xv2el_vec</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
-<a name="ln-763"></a>         <span class="k">implicit none</span>
-<a name="ln-764"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest body object</span>
-<a name="ln-765"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
-<a name="ln-766"></a>      <span class="k">end subroutine </span><span class="n">orbel_xv2el_vec</span>
-<a name="ln-767"></a>
-<a name="ln-768"></a>      <span class="k">module subroutine </span><span class="n">setup_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-769"></a>         <span class="k">implicit none</span>
-<a name="ln-770"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest body object</span>
-<a name="ln-771"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
-<a name="ln-772"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
-<a name="ln-773"></a>      <span class="k">end subroutine </span><span class="n">setup_body</span>
-<a name="ln-774"></a>
-<a name="ln-775"></a>      <span class="k">module subroutine </span><span class="n">setup_construct_system</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-776"></a>         <span class="k">implicit none</span>
-<a name="ln-777"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span>  <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest system object</span>
-<a name="ln-778"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
-<a name="ln-779"></a>      <span class="k">end subroutine </span><span class="n">setup_construct_system</span>
-<a name="ln-780"></a>
-<a name="ln-781"></a>      <span class="k">module subroutine </span><span class="n">setup_encounter</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
-<a name="ln-782"></a>         <span class="k">implicit none</span>
-<a name="ln-783"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest encounter structure</span>
-<a name="ln-784"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>    <span class="c">!! Number of encounters to allocate space for</span>
-<a name="ln-785"></a>      <span class="k">end subroutine </span><span class="n">setup_encounter</span>
-<a name="ln-786"></a>
-<a name="ln-787"></a>      <span class="k">module subroutine </span><span class="n">setup_initialize_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-788"></a>         <span class="k">implicit none</span>
-<a name="ln-789"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest system object</span>
-<a name="ln-790"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-791"></a>      <span class="k">end subroutine </span><span class="n">setup_initialize_system</span>
-<a name="ln-792"></a>
-<a name="ln-793"></a>      <span class="k">module subroutine </span><span class="n">setup_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-794"></a>         <span class="k">implicit none</span>
-<a name="ln-795"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest massive body object</span>
-<a name="ln-796"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
-<a name="ln-797"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
-<a name="ln-798"></a>      <span class="k">end subroutine </span><span class="n">setup_pl</span>
-<a name="ln-799"></a>
-<a name="ln-800"></a>      <span class="k">module subroutine </span><span class="n">setup_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-801"></a>         <span class="k">implicit none</span>
-<a name="ln-802"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest test particle object</span>
-<a name="ln-803"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
-<a name="ln-804"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parametersr</span>
-<a name="ln-805"></a>      <span class="k">end subroutine </span><span class="n">setup_tp</span>
-<a name="ln-806"></a>
-<a name="ln-807"></a>      <span class="k">module subroutine </span><span class="n">tides_kick_getacch_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">)</span>
-<a name="ln-808"></a>         <span class="k">implicit none</span>
-<a name="ln-809"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest massive body object</span>
-<a name="ln-810"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-811"></a>      <span class="k">end subroutine </span><span class="n">tides_kick_getacch_pl</span>
-<a name="ln-812"></a>
-<a name="ln-813"></a>      <span class="k">module subroutine </span><span class="n">tides_step_spin_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
-<a name="ln-814"></a>         <span class="k">implicit none</span>
-<a name="ln-815"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-816"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-817"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>     <span class="c">!! Simulation time</span>
-<a name="ln-818"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>    <span class="c">!! Current stepsize</span>
-<a name="ln-819"></a>      <span class="k">end subroutine </span><span class="n">tides_step_spin_system</span>
-<a name="ln-820"></a>
-<a name="ln-821"></a>      <span class="k">module subroutine </span><span class="n">user_kick_getacch_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
-<a name="ln-822"></a>         <span class="k">implicit none</span>
-<a name="ln-823"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest massive body particle data structure</span>
-<a name="ln-824"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody_system_object</span>
-<a name="ln-825"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
-<a name="ln-826"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>      <span class="c">!! Current time</span>
-<a name="ln-827"></a>         <span class="kt">logical</span><span class="p">,</span>                      <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lbeg</span>   <span class="c">!! Optional argument that determines whether or not this is the beginning or end of the step</span>
-<a name="ln-828"></a>      <span class="k">end subroutine </span><span class="n">user_kick_getacch_body</span>
-<a name="ln-829"></a>   <span class="k">end interface</span>
-<a name="ln-830"></a>
-<a name="ln-831"></a><span class="k">   interface </span><span class="n">util_append</span>
-<a name="ln-832"></a>      <span class="k">module subroutine </span><span class="n">util_append_arr_char_string</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-833"></a>         <span class="k">implicit none</span>
-<a name="ln-834"></a><span class="k">         </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
-<a name="ln-835"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
-<a name="ln-836"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-837"></a>      <span class="k">end subroutine </span><span class="n">util_append_arr_char_string</span>
-<a name="ln-838"></a>
-<a name="ln-839"></a>      <span class="k">module subroutine </span><span class="n">util_append_arr_DP</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-840"></a>         <span class="k">implicit none</span>
-<a name="ln-841"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
-<a name="ln-842"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
-<a name="ln-843"></a>         <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-844"></a>      <span class="k">end subroutine </span><span class="n">util_append_arr_DP</span>
-<a name="ln-845"></a>
-<a name="ln-846"></a>      <span class="k">module subroutine </span><span class="n">util_append_arr_DPvec</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-847"></a>         <span class="k">implicit none</span>
-<a name="ln-848"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
-<a name="ln-849"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
-<a name="ln-850"></a>         <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">optional</span><span class="p">,</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-851"></a>      <span class="k">end subroutine </span><span class="n">util_append_arr_DPvec</span>
-<a name="ln-852"></a>
-<a name="ln-853"></a>      <span class="k">module subroutine </span><span class="n">util_append_arr_I4B</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-854"></a>         <span class="k">implicit none</span>
-<a name="ln-855"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
-<a name="ln-856"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
-<a name="ln-857"></a>         <span class="kt">logical</span><span class="p">,</span>      <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-858"></a>      <span class="k">end subroutine </span><span class="n">util_append_arr_I4B</span>
-<a name="ln-859"></a>
-<a name="ln-860"></a>      <span class="k">module subroutine </span><span class="n">util_append_arr_logical</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-861"></a>         <span class="k">implicit none</span>
-<a name="ln-862"></a><span class="k">         </span><span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
-<a name="ln-863"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
-<a name="ln-864"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-865"></a>      <span class="k">end subroutine </span><span class="n">util_append_arr_logical</span>
-<a name="ln-866"></a>   <span class="k">end interface</span>
-<a name="ln-867"></a>
-<a name="ln-868"></a><span class="k">   interface</span>
-<a name="ln-869"></a><span class="k">      module subroutine </span><span class="n">util_append_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-870"></a>         <span class="k">implicit none</span>
-<a name="ln-871"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest body object</span>
-<a name="ln-872"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span> <span class="c">!! Source object to append</span>
-<a name="ln-873"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span>  <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-874"></a>      <span class="k">end subroutine </span><span class="n">util_append_body</span>
-<a name="ln-875"></a>
-<a name="ln-876"></a>      <span class="k">module subroutine </span><span class="n">util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-74"></a>      <span class="kt">logical</span>                   <span class="kd">::</span> <span class="n">lrestart</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>     <span class="c">!! Indicates whether or not this is a restarted run</span>
+<a name="ln-75"></a>
+<a name="ln-76"></a>      <span class="c">! Future features not implemented or in development</span>
+<a name="ln-77"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lgr</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>               <span class="c">!! Turn on GR</span>
+<a name="ln-78"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lyarkovsky</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>        <span class="c">!! Turn on Yarkovsky effect</span>
+<a name="ln-79"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lyorp</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>             <span class="c">!! Turn on YORP effect</span>
+<a name="ln-80"></a>   <span class="k">contains</span>
+<a name="ln-81"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">reader</span>         <span class="o">=&gt;</span> <span class="n">io_param_reader</span>
+<a name="ln-82"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">writer</span>         <span class="o">=&gt;</span> <span class="n">io_param_writer</span>
+<a name="ln-83"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">dump</span>           <span class="o">=&gt;</span> <span class="n">io_dump_param</span>
+<a name="ln-84"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">read_from_file</span> <span class="o">=&gt;</span> <span class="n">io_read_param_in</span>
+<a name="ln-85"></a>   <span class="k">end type </span><span class="n">swiftest_parameters</span>
+<a name="ln-86"></a>
+<a name="ln-87"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-88"></a>   <span class="c">! swiftest_base class definitions and methods</span>
+<a name="ln-89"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-90"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">abstract</span> <span class="kd">::</span> <span class="n">swiftest_base</span>
+<a name="ln-91"></a>      <span class="c">!! An superclass for a generic Swiftest object</span>
+<a name="ln-92"></a>      <span class="kt">logical</span> <span class="kd">::</span> <span class="n">lintegrate</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>  <span class="c">!! Flag indicating that this object should be integrated in the current step </span>
+<a name="ln-93"></a>   <span class="k">contains</span>
+<a name="ln-94"></a>      <span class="c">!! The minimal methods that all systems must have</span>
+<a name="ln-95"></a>      <span class="k">procedure</span>                                 <span class="kd">::</span> <span class="n">dump</span> <span class="o">=&gt;</span> <span class="n">io_dump_swiftest</span> 
+<a name="ln-96"></a>      <span class="k">procedure</span><span class="p">(</span><span class="n">abstract_initialize</span><span class="p">),</span>  <span class="k">deferred</span> <span class="kd">::</span> <span class="n">initialize</span>
+<a name="ln-97"></a>      <span class="k">procedure</span><span class="p">(</span><span class="n">abstract_read_frame</span><span class="p">),</span>  <span class="k">deferred</span> <span class="kd">::</span> <span class="n">read_frame</span>
+<a name="ln-98"></a>      <span class="k">procedure</span><span class="p">(</span><span class="n">abstract_write_frame</span><span class="p">),</span> <span class="k">deferred</span> <span class="kd">::</span> <span class="n">write_frame</span>
+<a name="ln-99"></a>   <span class="k">end type </span><span class="n">swiftest_base</span>
+<a name="ln-100"></a>
+<a name="ln-101"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-102"></a>   <span class="c">! swiftest_cb class definitions and methods</span>
+<a name="ln-103"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-104"></a>   <span class="c">!&gt; A concrete lass for the central body in a Swiftest simulation</span>
+<a name="ln-105"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">abstract</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_base</span><span class="p">)</span> <span class="kd">::</span> <span class="n">swiftest_cb</span>           
+<a name="ln-106"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">)</span>     <span class="kd">::</span> <span class="n">name</span>              <span class="c">!! Non-unique name</span>
+<a name="ln-107"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">id</span>       <span class="o">=</span> <span class="mi">0</span>      <span class="c">!! External identifier (unique)</span>
+<a name="ln-108"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">mass</span>     <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Central body mass (units MU)</span>
+<a name="ln-109"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">Gmass</span>    <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Central mass gravitational term G * mass (units GU * MU)</span>
+<a name="ln-110"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">radius</span>   <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Central body radius (units DU)</span>
+<a name="ln-111"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">density</span>  <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="c">!! Central body mass density - calculated internally (units MU / DU**3)</span>
+<a name="ln-112"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">j2rp2</span>    <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! J2*R^2 term for central body</span>
+<a name="ln-113"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">j4rp4</span>    <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! J4*R^2 term for central body</span>
+<a name="ln-114"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">aobl</span>     <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Barycentric acceleration due to central body oblatenes</span>
+<a name="ln-115"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">atide</span>    <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Barycentric acceleration due to central body oblatenes</span>
+<a name="ln-116"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">aoblbeg</span>  <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Barycentric acceleration due to central body oblatenes at beginning of step</span>
+<a name="ln-117"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">aoblend</span>  <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Barycentric acceleration due to central body oblatenes at end of step</span>
+<a name="ln-118"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">atidebeg</span> <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Barycentric acceleration due to central body oblatenes at beginning of step</span>
+<a name="ln-119"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">atideend</span> <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Barycentric acceleration due to central body oblatenes at end of step</span>
+<a name="ln-120"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">xb</span>       <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Barycentric position (units DU)</span>
+<a name="ln-121"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">vb</span>       <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Barycentric velocity (units DU / TU)</span>
+<a name="ln-122"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">agr</span>      <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Acceleration due to post-Newtonian correction</span>
+<a name="ln-123"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Ip</span>       <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. </span>
+<a name="ln-124"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">rot</span>      <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Body rotation vector in inertial coordinate frame (units rad / TU)</span>
+<a name="ln-125"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">k2</span>       <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Tidal Love number</span>
+<a name="ln-126"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">Q</span>        <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Tidal quality factor</span>
+<a name="ln-127"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">tlag</span>     <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Tidal phase lag angle</span>
+<a name="ln-128"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">L0</span>       <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Initial angular momentum of the central body</span>
+<a name="ln-129"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">dL</span>       <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Change in angular momentum of the central body</span>
+<a name="ln-130"></a>   <span class="k">contains</span>
+<a name="ln-131"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">initialize</span>  <span class="o">=&gt;</span> <span class="n">io_read_cb_in</span>        <span class="c">!! I/O routine for reading in central body data</span>
+<a name="ln-132"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">read_frame</span>  <span class="o">=&gt;</span> <span class="n">io_read_frame_cb</span>     <span class="c">!! I/O routine for reading out a single frame of time-series data for the central body</span>
+<a name="ln-133"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">write_frame</span> <span class="o">=&gt;</span> <span class="n">io_write_frame_cb</span>    <span class="c">!! I/O routine for writing out a single frame of time-series data for the central body</span>
+<a name="ln-134"></a>   <span class="k">end type </span><span class="n">swiftest_cb</span>
+<a name="ln-135"></a>
+<a name="ln-136"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-137"></a>   <span class="c">! swiftest_body definitions and methods</span>
+<a name="ln-138"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-139"></a>   <span class="c">!&gt; An abstract class for a generic collection of Swiftest bodies</span>
+<a name="ln-140"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">abstract</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_base</span><span class="p">)</span> <span class="kd">::</span> <span class="n">swiftest_body</span>
+<a name="ln-141"></a>      <span class="c">!! Superclass that defines the generic elements of a Swiftest particle </span>
+<a name="ln-142"></a>      <span class="kt">logical</span>                                            <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span> <span class="c">!! Run the current step as a first</span>
+<a name="ln-143"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                       <span class="kd">::</span> <span class="n">nbody</span> <span class="o">=</span> <span class="mi">0</span>       <span class="c">!! Number of bodies</span>
+<a name="ln-144"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">name</span>            <span class="c">!! Non-unique name</span>
+<a name="ln-145"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>          <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">id</span>              <span class="c">!! External identifier (unique)</span>
+<a name="ln-146"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>          <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">status</span>          <span class="c">!! An integrator-specific status indicator </span>
+<a name="ln-147"></a>      <span class="kt">logical</span><span class="p">,</span>               <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">ldiscard</span>        <span class="c">!! Body should be discarded</span>
+<a name="ln-148"></a>      <span class="kt">logical</span><span class="p">,</span>               <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">lmask</span>           <span class="c">!! Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.)</span>
+<a name="ln-149"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">mu</span>              <span class="c">!! G * (Mcb + [m])</span>
+<a name="ln-150"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">xh</span>              <span class="c">!! Heliocentric position</span>
+<a name="ln-151"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">vh</span>              <span class="c">!! Heliocentric velocity</span>
+<a name="ln-152"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">xb</span>              <span class="c">!! Barycentric position</span>
+<a name="ln-153"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">vb</span>              <span class="c">!! Barycentric velocity</span>
+<a name="ln-154"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">ah</span>              <span class="c">!! Total heliocentric acceleration</span>
+<a name="ln-155"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">aobl</span>            <span class="c">!! Barycentric accelerations of bodies due to central body oblatenes</span>
+<a name="ln-156"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">atide</span>           <span class="c">!! Tanngential component of acceleration of bodies due to tides</span>
+<a name="ln-157"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">agr</span>             <span class="c">!! Acceleration due to post-Newtonian correction</span>
+<a name="ln-158"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">ir3h</span>            <span class="c">!! Inverse heliocentric radius term (1/rh**3)</span>
+<a name="ln-159"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">a</span>               <span class="c">!! Semimajor axis (pericentric distance for a parabolic orbit)</span>
+<a name="ln-160"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">e</span>               <span class="c">!! Eccentricity</span>
+<a name="ln-161"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">inc</span>             <span class="c">!! Inclination</span>
+<a name="ln-162"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">capom</span>           <span class="c">!! Longitude of ascending node</span>
+<a name="ln-163"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">omega</span>           <span class="c">!! Argument of pericenter</span>
+<a name="ln-164"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">capm</span>            <span class="c">!! Mean anomaly</span>
+<a name="ln-165"></a>      <span class="c">!! Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the</span>
+<a name="ln-166"></a>      <span class="c">!!    component list, such as setup_body and util_spill</span>
+<a name="ln-167"></a>   <span class="k">contains</span>
+<a name="ln-168"></a><span class="k">      procedure</span><span class="p">(</span><span class="n">abstract_discard_body</span><span class="p">),</span> <span class="k">deferred</span> <span class="kd">::</span> <span class="n">discard</span>
+<a name="ln-169"></a>      <span class="k">procedure</span><span class="p">(</span><span class="n">abstract_kick_body</span><span class="p">),</span>    <span class="k">deferred</span> <span class="kd">::</span> <span class="n">kick</span>     
+<a name="ln-170"></a>      <span class="k">procedure</span><span class="p">(</span><span class="n">abstract_set_mu</span><span class="p">),</span>       <span class="k">deferred</span> <span class="kd">::</span> <span class="n">set_mu</span>
+<a name="ln-171"></a>      <span class="k">procedure</span><span class="p">(</span><span class="n">abstract_step_body</span><span class="p">),</span>    <span class="k">deferred</span> <span class="kd">::</span> <span class="n">step</span>
+<a name="ln-172"></a>      <span class="k">procedure</span><span class="p">(</span><span class="n">abstract_accel</span><span class="p">),</span>        <span class="k">deferred</span> <span class="kd">::</span> <span class="n">accel</span>
+<a name="ln-173"></a>      <span class="c">! These are concrete because the implementation is the same for all types of particles</span>
+<a name="ln-174"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">drift</span>       <span class="o">=&gt;</span> <span class="n">drift_body</span>               <span class="c">!! Loop through bodies and call Danby drift routine on heliocentric variables</span>
+<a name="ln-175"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">v2pv</span>        <span class="o">=&gt;</span> <span class="n">gr_vh2pv_body</span>            <span class="c">!! Converts from velocity to psudeovelocity for GR calculations using symplectic integrators</span>
+<a name="ln-176"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">pv2v</span>        <span class="o">=&gt;</span> <span class="n">gr_pv2vh_body</span>            <span class="c">!! Converts from psudeovelocity to velocity for GR calculations using symplectic integrators</span>
+<a name="ln-177"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">initialize</span>  <span class="o">=&gt;</span> <span class="n">io_read_body_in</span>          <span class="c">!! Read in body initial conditions from a file</span>
+<a name="ln-178"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">read_frame</span>  <span class="o">=&gt;</span> <span class="n">io_read_frame_body</span>       <span class="c">!! I/O routine for writing out a single frame of time-series data for the central body</span>
+<a name="ln-179"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">write_frame</span> <span class="o">=&gt;</span> <span class="n">io_write_frame_body</span>      <span class="c">!! I/O routine for writing out a single frame of time-series data for the central body</span>
+<a name="ln-180"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_obl</span>   <span class="o">=&gt;</span> <span class="n">obl_acc_body</span>             <span class="c">!! Compute the barycentric accelerations of bodies due to the oblateness of the central body</span>
+<a name="ln-181"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">el2xv</span>       <span class="o">=&gt;</span> <span class="n">orbel_el2xv_vec</span>          <span class="c">!! Convert orbital elements to position and velocity vectors</span>
+<a name="ln-182"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">xv2el</span>       <span class="o">=&gt;</span> <span class="n">orbel_xv2el_vec</span>          <span class="c">!! Convert position and velocity vectors to orbital  elements </span>
+<a name="ln-183"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">setup</span>       <span class="o">=&gt;</span> <span class="n">setup_body</span>               <span class="c">!! A constructor that sets the number of bodies and allocates all allocatable arrays</span>
+<a name="ln-184"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_user</span>  <span class="o">=&gt;</span> <span class="n">user_kick_getacch_body</span>   <span class="c">!! Add user-supplied heliocentric accelerations to planets</span>
+<a name="ln-185"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">append</span>      <span class="o">=&gt;</span> <span class="n">util_append_body</span>         <span class="c">!! Appends elements from one structure to another</span>
+<a name="ln-186"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">fill</span>        <span class="o">=&gt;</span> <span class="n">util_fill_body</span>           <span class="c">!! &quot;Fills&quot; bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</span>
+<a name="ln-187"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resize</span>      <span class="o">=&gt;</span> <span class="n">util_resize_body</span>         <span class="c">!! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</span>
+<a name="ln-188"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_ir3</span>     <span class="o">=&gt;</span> <span class="n">util_set_ir3h</span>            <span class="c">!! Sets the inverse heliocentric radius term (1/rh**3)</span>
+<a name="ln-189"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">sort</span>        <span class="o">=&gt;</span> <span class="n">util_sort_body</span>           <span class="c">!! Sorts body arrays by a sortable componen</span>
+<a name="ln-190"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">rearrange</span>   <span class="o">=&gt;</span> <span class="n">util_sort_rearrange_body</span> <span class="c">!! Rearranges the order of array elements of body based on an input index array. Used in sorting methods</span>
+<a name="ln-191"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">spill</span>       <span class="o">=&gt;</span> <span class="n">util_spill_body</span>          <span class="c">!! &quot;Spills&quot; bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</span>
+<a name="ln-192"></a>   <span class="k">end type </span><span class="n">swiftest_body</span>
+<a name="ln-193"></a>      
+<a name="ln-194"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-195"></a>   <span class="c">! swiftest_pl definitions and methods</span>
+<a name="ln-196"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-197"></a>   <span class="c">!&gt; An abstract class for a generic collection of Swiftest massive bodies</span>
+<a name="ln-198"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">abstract</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">)</span> <span class="kd">::</span> <span class="n">swiftest_pl</span>
+<a name="ln-199"></a>      <span class="c">!! Superclass that defines the generic elements of a Swiftest particle </span>
+<a name="ln-200"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">mass</span>    <span class="c">!! Body mass (units MU)</span>
+<a name="ln-201"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">Gmass</span>   <span class="c">!! Mass gravitational term G * mass (units GU * MU)</span>
+<a name="ln-202"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">rhill</span>   <span class="c">!! Body mass (units MU)</span>
+<a name="ln-203"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">radius</span>  <span class="c">!! Body radius (units DU)</span>
+<a name="ln-204"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">xbeg</span>    <span class="c">!! Position at beginning of step</span>
+<a name="ln-205"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">xend</span>    <span class="c">!! Position at end of step</span>
+<a name="ln-206"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">vbeg</span>    <span class="c">!! Velocity at beginning of step</span>
+<a name="ln-207"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">density</span> <span class="c">!! Body mass density - calculated internally (units MU / DU**3)</span>
+<a name="ln-208"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">Ip</span>      <span class="c">!! Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. </span>
+<a name="ln-209"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">rot</span>     <span class="c">!! Body rotation vector in inertial coordinate frame (units rad / TU)</span>
+<a name="ln-210"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">k2</span>      <span class="c">!! Tidal Love number</span>
+<a name="ln-211"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">Q</span>       <span class="c">!! Tidal quality factor</span>
+<a name="ln-212"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tlag</span>    <span class="c">!! Tidal phase lag</span>
+<a name="ln-213"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">k_plpl</span>  <span class="c">!! Index array used to convert flattened the body-body comparison upper triangular matrix</span>
+<a name="ln-214"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I8B</span><span class="p">)</span>                              <span class="kd">::</span> <span class="n">nplpl</span>   <span class="c">!! Number of body-body comparisons in the flattened upper triangular matrix</span>
+<a name="ln-215"></a>      <span class="c">!! Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the</span>
+<a name="ln-216"></a>      <span class="c">!!    component list, such as setup_pl and util_spill_pl</span>
+<a name="ln-217"></a>   <span class="k">contains</span>
+<a name="ln-218"></a>      <span class="c">! Massive body-specific concrete methods </span>
+<a name="ln-219"></a>      <span class="c">! These are concrete because they are the same implemenation for all integrators</span>
+<a name="ln-220"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">discard</span>      <span class="o">=&gt;</span> <span class="n">discard_pl</span>             <span class="c">!! Placeholder method for discarding massive bodies </span>
+<a name="ln-221"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">eucl_index</span>   <span class="o">=&gt;</span> <span class="n">eucl_dist_index_plpl</span>   <span class="c">!! Sets up the (i, j) -&gt; k indexing used for the single-loop blocking Euclidean distance matrix</span>
+<a name="ln-222"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_int</span>    <span class="o">=&gt;</span> <span class="n">kick_getacch_int_pl</span>    <span class="c">!! Compute direct cross (third) term heliocentric accelerations of massive bodies</span>
+<a name="ln-223"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_obl</span>    <span class="o">=&gt;</span> <span class="n">obl_acc_pl</span>             <span class="c">!! Compute the barycentric accelerations of bodies due to the oblateness of the central body</span>
+<a name="ln-224"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">setup</span>        <span class="o">=&gt;</span> <span class="n">setup_pl</span>               <span class="c">!! A base constructor that sets the number of bodies and allocates and initializes all arrays  </span>
+<a name="ln-225"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_tides</span>  <span class="o">=&gt;</span> <span class="n">tides_kick_getacch_pl</span>  <span class="c">!! Compute the accelerations of bodies due to tidal interactions with the central body</span>
+<a name="ln-226"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">append</span>       <span class="o">=&gt;</span> <span class="n">util_append_pl</span>         <span class="c">!! Appends elements from one structure to another</span>
+<a name="ln-227"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">h2b</span>          <span class="o">=&gt;</span> <span class="n">util_coord_h2b_pl</span>      <span class="c">!! Convert massive bodies from heliocentric to barycentric coordinates (position and velocity)</span>
+<a name="ln-228"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">b2h</span>          <span class="o">=&gt;</span> <span class="n">util_coord_b2h_pl</span>      <span class="c">!! Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</span>
+<a name="ln-229"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">fill</span>         <span class="o">=&gt;</span> <span class="n">util_fill_pl</span>           <span class="c">!! &quot;Fills&quot; bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</span>
+<a name="ln-230"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resize</span>       <span class="o">=&gt;</span> <span class="n">util_resize_pl</span>         <span class="c">!! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</span>
+<a name="ln-231"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_beg_end</span>  <span class="o">=&gt;</span> <span class="n">util_set_beg_end_pl</span>    <span class="c">!! Sets the beginning and ending positions and velocities of planets.</span>
+<a name="ln-232"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_mu</span>       <span class="o">=&gt;</span> <span class="n">util_set_mu_pl</span>         <span class="c">!! Method used to construct the vectorized form of the central body mass</span>
+<a name="ln-233"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_rhill</span>    <span class="o">=&gt;</span> <span class="n">util_set_rhill</span>         <span class="c">!! Calculates the Hill&#39;s radii for each body</span>
+<a name="ln-234"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">sort</span>         <span class="o">=&gt;</span> <span class="n">util_sort_pl</span>           <span class="c">!! Sorts body arrays by a sortable component</span>
+<a name="ln-235"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">rearrange</span>    <span class="o">=&gt;</span> <span class="n">util_sort_rearrange_pl</span> <span class="c">!! Rearranges the order of array elements of body based on an input index array. Used in sorting methods</span>
+<a name="ln-236"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">spill</span>        <span class="o">=&gt;</span> <span class="n">util_spill_pl</span>          <span class="c">!! &quot;Spills&quot; bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</span>
+<a name="ln-237"></a>   <span class="k">end type </span><span class="n">swiftest_pl</span>
+<a name="ln-238"></a>
+<a name="ln-239"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-240"></a>   <span class="c">! swiftest_tp definitions and methods</span>
+<a name="ln-241"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-242"></a>   <span class="c">!&gt; An abstract class for a generic collection of Swiftest test particles</span>
+<a name="ln-243"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">abstract</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">)</span> <span class="kd">::</span> <span class="n">swiftest_tp</span>
+<a name="ln-244"></a>      <span class="c">!! Superclass that defines the generic elements of a Swiftest test particle </span>
+<a name="ln-245"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>    <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">isperi</span> <span class="c">!! Perihelion passage flag</span>
+<a name="ln-246"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>    <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">peri</span>   <span class="c">!! Perihelion distance</span>
+<a name="ln-247"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span>    <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">atp</span>    <span class="c">!! Semimajor axis following perihelion passage</span>
+<a name="ln-248"></a>      <span class="c">!! Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the</span>
+<a name="ln-249"></a>      <span class="c">!!    component list, such as setup_tp and util_spill_tp</span>
+<a name="ln-250"></a>   <span class="k">contains</span>
+<a name="ln-251"></a>      <span class="c">! Test particle-specific concrete methods </span>
+<a name="ln-252"></a>      <span class="c">! These are concrete because they are the same implemenation for all integrators</span>
+<a name="ln-253"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">discard</span>   <span class="o">=&gt;</span> <span class="n">discard_tp</span>             <span class="c">!! Check to see if test particles should be discarded based on their positions relative to the massive bodies</span>
+<a name="ln-254"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_int</span> <span class="o">=&gt;</span> <span class="n">kick_getacch_int_tp</span>    <span class="c">!! Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies</span>
+<a name="ln-255"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel_obl</span> <span class="o">=&gt;</span> <span class="n">obl_acc_tp</span>             <span class="c">!! Compute the barycentric accelerations of bodies due to the oblateness of the central body</span>
+<a name="ln-256"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">setup</span>     <span class="o">=&gt;</span> <span class="n">setup_tp</span>               <span class="c">!! A base constructor that sets the number of bodies and </span>
+<a name="ln-257"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">append</span>    <span class="o">=&gt;</span> <span class="n">util_append_tp</span>         <span class="c">!! Appends elements from one structure to another</span>
+<a name="ln-258"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">h2b</span>       <span class="o">=&gt;</span> <span class="n">util_coord_h2b_tp</span>      <span class="c">!! Convert test particles from heliocentric to barycentric coordinates (position and velocity)</span>
+<a name="ln-259"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">b2h</span>       <span class="o">=&gt;</span> <span class="n">util_coord_b2h_tp</span>      <span class="c">!! Convert test particles from barycentric to heliocentric coordinates (position and velocity)</span>
+<a name="ln-260"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">fill</span>      <span class="o">=&gt;</span> <span class="n">util_fill_tp</span>           <span class="c">!! &quot;Fills&quot; bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</span>
+<a name="ln-261"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">get_peri</span>  <span class="o">=&gt;</span> <span class="n">util_peri_tp</span>           <span class="c">!! Determine system pericenter passages for test particles </span>
+<a name="ln-262"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resize</span>    <span class="o">=&gt;</span> <span class="n">util_resize_tp</span>         <span class="c">!! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</span>
+<a name="ln-263"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_mu</span>    <span class="o">=&gt;</span> <span class="n">util_set_mu_tp</span>         <span class="c">!! Method used to construct the vectorized form of the central body mass</span>
+<a name="ln-264"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">sort</span>      <span class="o">=&gt;</span> <span class="n">util_sort_tp</span>           <span class="c">!! Sorts body arrays by a sortable component</span>
+<a name="ln-265"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">rearrange</span> <span class="o">=&gt;</span> <span class="n">util_sort_rearrange_tp</span> <span class="c">!! Rearranges the order of array elements of body based on an input index array. Used in sorting methods</span>
+<a name="ln-266"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">spill</span>     <span class="o">=&gt;</span> <span class="n">util_spill_tp</span>          <span class="c">!! &quot;Spills&quot; bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</span>
+<a name="ln-267"></a>   <span class="k">end type </span><span class="n">swiftest_tp</span>
+<a name="ln-268"></a>
+<a name="ln-269"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-270"></a>   <span class="c">! swiftest_nbody_system class definitions and methods</span>
+<a name="ln-271"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-272"></a>   <span class="c">!&gt; An abstract class for a basic Swiftest nbody system </span>
+<a name="ln-273"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">abstract</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_base</span><span class="p">)</span> <span class="kd">::</span> <span class="n">swiftest_nbody_system</span>
+<a name="ln-274"></a>      <span class="c">!!  This superclass contains a minimial system of a set of test particles (tp), massive bodies (pl), and a central body (cb)</span>
+<a name="ln-275"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>            <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">cb</span>                   <span class="c">!! Central body data structure</span>
+<a name="ln-276"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>            <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">pl</span>                   <span class="c">!! Massive body data structure</span>
+<a name="ln-277"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>            <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tp</span>                   <span class="c">!! Test particle data structure</span>
+<a name="ln-278"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>            <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tp_discards</span>          <span class="c">!! Discarded test particle data structure</span>
+<a name="ln-279"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>            <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">pl_discards</span>          <span class="c">!! Discarded massive body particle data structure</span>
+<a name="ln-280"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">Gmtot</span> <span class="o">=</span> <span class="mf">0.0_DP</span>       <span class="c">!! Total system mass - used for barycentric coordinate conversion</span>
+<a name="ln-281"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">ke_orbit</span> <span class="o">=</span> <span class="mf">0.0_DP</span>    <span class="c">!! System orbital kinetic energy</span>
+<a name="ln-282"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">ke_spin</span> <span class="o">=</span> <span class="mf">0.0_DP</span>     <span class="c">!! System spin kinetic energy</span>
+<a name="ln-283"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">pe</span> <span class="o">=</span> <span class="mf">0.0_DP</span>          <span class="c">!! System potential energy</span>
+<a name="ln-284"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">te</span> <span class="o">=</span> <span class="mf">0.0_DP</span>          <span class="c">!! System total energy</span>
+<a name="ln-285"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">Lorbit</span> <span class="o">=</span> <span class="mf">0.0_DP</span>      <span class="c">!! System orbital angular momentum vector</span>
+<a name="ln-286"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">Lspin</span> <span class="o">=</span> <span class="mf">0.0_DP</span>       <span class="c">!! System spin angular momentum vector</span>
+<a name="ln-287"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">Lescape</span> <span class="o">=</span> <span class="mf">0.0_DP</span>     <span class="c">!! Angular momentum of bodies that escaped the system (used for bookeeping)</span>
+<a name="ln-288"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">Mescape</span> <span class="o">=</span> <span class="mf">0.0_DP</span>     <span class="c">!! Mass of bodies that escaped the system (used for bookeeping)</span>
+<a name="ln-289"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">Ecollisions</span> <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Energy lost from system due to collisions</span>
+<a name="ln-290"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">Euntracked</span> <span class="o">=</span> <span class="mf">0.0_DP</span>  <span class="c">!! Energy gained from system due to escaped bodies</span>
+<a name="ln-291"></a>      <span class="kt">logical</span>                                    <span class="kd">::</span> <span class="n">lbeg</span>                 <span class="c">!! True if this is the beginning of a step. This is used so that test particle steps can be calculated </span>
+<a name="ln-292"></a>                                                                         <span class="c">!!    separately from massive bodies.  Massive body variables are saved at half steps, and passed to </span>
+<a name="ln-293"></a>                                                                         <span class="c">!!    the test particles</span>
+<a name="ln-294"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                               <span class="kd">::</span> <span class="n">maxid</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>           <span class="c">!! The current maximum particle id number </span>
+<a name="ln-295"></a>   <span class="k">contains</span>
+<a name="ln-296"></a>      <span class="c">!&gt; Each integrator will have its own version of the step</span>
+<a name="ln-297"></a>      <span class="k">procedure</span><span class="p">(</span><span class="n">abstract_step_system</span><span class="p">),</span> <span class="k">deferred</span> <span class="kd">::</span> <span class="n">step</span>
+<a name="ln-298"></a>
+<a name="ln-299"></a>      <span class="c">! Concrete classes that are common to the basic integrator (only test particles considered for discard)</span>
+<a name="ln-300"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">discard</span>                 <span class="o">=&gt;</span> <span class="n">discard_system</span>                  <span class="c">!! Perform a discard step on the system</span>
+<a name="ln-301"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">conservation_report</span>     <span class="o">=&gt;</span> <span class="n">io_conservation_report</span>          <span class="c">!! Compute energy and momentum and print out the change with time</span>
+<a name="ln-302"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">dump</span>                    <span class="o">=&gt;</span> <span class="n">io_dump_system</span>                  <span class="c">!! Dump the state of the system to a file</span>
+<a name="ln-303"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">read_frame</span>              <span class="o">=&gt;</span> <span class="n">io_read_frame_system</span>            <span class="c">!! Read in a frame of input data from file</span>
+<a name="ln-304"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">write_discard</span>           <span class="o">=&gt;</span> <span class="n">io_write_discard</span>                <span class="c">!! Write out information about discarded test particles</span>
+<a name="ln-305"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">write_frame</span>             <span class="o">=&gt;</span> <span class="n">io_write_frame_system</span>           <span class="c">!! Append a frame of output data to file</span>
+<a name="ln-306"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">initialize</span>              <span class="o">=&gt;</span> <span class="n">setup_initialize_system</span>         <span class="c">!! Initialize the system from input files</span>
+<a name="ln-307"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">step_spin</span>               <span class="o">=&gt;</span> <span class="n">tides_step_spin_system</span>          <span class="c">!! Steps the spins of the massive &amp; central bodies due to tides.</span>
+<a name="ln-308"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_msys</span>                <span class="o">=&gt;</span> <span class="n">util_set_msys</span>                   <span class="c">!! Sets the value of msys from the masses of system bodies.</span>
+<a name="ln-309"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">get_energy_and_momentum</span> <span class="o">=&gt;</span> <span class="n">util_get_energy_momentum_system</span> <span class="c">!! Calculates the total system energy and momentum</span>
+<a name="ln-310"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">rescale</span>                 <span class="o">=&gt;</span> <span class="n">util_rescale_system</span>             <span class="c">!! Rescales the system into a new set of units</span>
+<a name="ln-311"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">validate_ids</span>            <span class="o">=&gt;</span> <span class="n">util_valid_id_system</span>            <span class="c">!! Validate the numerical ids passed to the system and save the maximum value</span>
+<a name="ln-312"></a>   <span class="k">end type </span><span class="n">swiftest_nbody_system</span>
+<a name="ln-313"></a>
+<a name="ln-314"></a>   <span class="k">type</span> <span class="kd">::</span> <span class="n">swiftest_encounter</span>
+<a name="ln-315"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                              <span class="kd">::</span> <span class="n">nenc</span>   <span class="c">!! Total number of encounters</span>
+<a name="ln-316"></a>      <span class="kt">logical</span><span class="p">,</span>      <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">lvdotr</span> <span class="c">!! relative vdotr flag</span>
+<a name="ln-317"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">status</span> <span class="c">!! status of the interaction</span>
+<a name="ln-318"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">index1</span> <span class="c">!! position of the first body in the encounter</span>
+<a name="ln-319"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">index2</span> <span class="c">!! position of the second body in the encounter</span>
+<a name="ln-320"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">x1</span>     <span class="c">!! the position of body 1 in the encounter</span>
+<a name="ln-321"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">x2</span>     <span class="c">!! the position of body 2 in the encounter</span>
+<a name="ln-322"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">v1</span>     <span class="c">!! the velocity of body 1 in the encounter</span>
+<a name="ln-323"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">v2</span>     <span class="c">!! the velocity of body 2 in the encounter</span>
+<a name="ln-324"></a>   <span class="k">contains</span>
+<a name="ln-325"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">setup</span>  <span class="o">=&gt;</span> <span class="n">setup_encounter</span>       <span class="c">!! A constructor that sets the number of encounters and allocates and initializes all arrays  </span>
+<a name="ln-326"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">copy</span>   <span class="o">=&gt;</span> <span class="n">util_copy_encounter</span>   <span class="c">!! Copies elements from the source encounter list into self.</span>
+<a name="ln-327"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">spill</span>  <span class="o">=&gt;</span> <span class="n">util_spill_encounter</span>  <span class="c">!! &quot;Spills&quot; bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</span>
+<a name="ln-328"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resize</span> <span class="o">=&gt;</span> <span class="n">util_resize_encounter</span> <span class="c">!! Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small.</span>
+<a name="ln-329"></a>   <span class="k">end type </span><span class="n">swiftest_encounter</span>
+<a name="ln-330"></a>
+<a name="ln-331"></a>   <span class="k">abstract interface</span>
+<a name="ln-332"></a><span class="k">      subroutine </span><span class="n">abstract_discard_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
+<a name="ln-333"></a>         <span class="k">import </span><span class="n">swiftest_body</span><span class="p">,</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
+<a name="ln-334"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest body object</span>
+<a name="ln-335"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-336"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-337"></a>      <span class="k">end subroutine </span><span class="n">abstract_discard_body</span>
+<a name="ln-338"></a>
+<a name="ln-339"></a>      <span class="k">subroutine </span><span class="n">abstract_accel</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
+<a name="ln-340"></a>         <span class="k">import </span><span class="n">swiftest_body</span><span class="p">,</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span><span class="p">,</span> <span class="n">DP</span>
+<a name="ln-341"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest body data structure</span>
+<a name="ln-342"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-343"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-344"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>      <span class="c">!! Current simulation time</span>
+<a name="ln-345"></a>         <span class="kt">logical</span><span class="p">,</span>                      <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lbeg</span>   <span class="c">!! Optional argument that determines whether or not this is the beginning or end of the step</span>
+<a name="ln-346"></a>      <span class="k">end subroutine </span><span class="n">abstract_accel</span>
+<a name="ln-347"></a>
+<a name="ln-348"></a>      <span class="k">subroutine </span><span class="n">abstract_initialize</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
+<a name="ln-349"></a>         <span class="k">import </span><span class="n">swiftest_base</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
+<a name="ln-350"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_base</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest base object</span>
+<a name="ln-351"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-352"></a>      <span class="k">end subroutine </span><span class="n">abstract_initialize</span>
+<a name="ln-353"></a>
+<a name="ln-354"></a>      <span class="k">subroutine </span><span class="n">abstract_kick_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
+<a name="ln-355"></a>         <span class="k">import </span><span class="n">swiftest_body</span><span class="p">,</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span><span class="p">,</span> <span class="n">DP</span>
+<a name="ln-356"></a>         <span class="k">implicit none</span>
+<a name="ln-357"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest generic body object</span>
+<a name="ln-358"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system objec</span>
+<a name="ln-359"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-360"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>      <span class="c">!! Current time</span>
+<a name="ln-361"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>     <span class="c">!! Stepsize</span>
+<a name="ln-362"></a>         <span class="kt">logical</span><span class="p">,</span>                      <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lbeg</span>   <span class="c">!! Logical flag indicating whether this is the beginning of the half step or not. </span>
+<a name="ln-363"></a>      <span class="k">end subroutine </span><span class="n">abstract_kick_body</span>
+<a name="ln-364"></a>
+<a name="ln-365"></a>      <span class="k">subroutine </span><span class="n">abstract_read_frame</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-366"></a>         <span class="k">import </span><span class="n">DP</span><span class="p">,</span> <span class="n">I4B</span><span class="p">,</span> <span class="n">swiftest_base</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
+<a name="ln-367"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_base</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest base object</span>
+<a name="ln-368"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>    <span class="c">!! Unit number for the output file to write frame to</span>
+<a name="ln-369"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-370"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">form</span>  <span class="c">!! Input format code (&quot;XV&quot; or &quot;EL&quot;)</span>
+<a name="ln-371"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>  <span class="c">!! Error code</span>
+<a name="ln-372"></a>      <span class="k">end subroutine </span><span class="n">abstract_read_frame</span>
+<a name="ln-373"></a>
+<a name="ln-374"></a>      <span class="k">subroutine </span><span class="n">abstract_set_mu</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span> 
+<a name="ln-375"></a>         <span class="k">import </span><span class="n">swiftest_body</span><span class="p">,</span> <span class="n">swiftest_cb</span>
+<a name="ln-376"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest body object</span>
+<a name="ln-377"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
+<a name="ln-378"></a>      <span class="k">end subroutine </span><span class="n">abstract_set_mu</span>
+<a name="ln-379"></a>
+<a name="ln-380"></a>      <span class="k">subroutine </span><span class="n">abstract_step_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
+<a name="ln-381"></a>         <span class="k">import </span><span class="n">DP</span><span class="p">,</span> <span class="n">swiftest_body</span><span class="p">,</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
+<a name="ln-382"></a>         <span class="k">implicit none</span>
+<a name="ln-383"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest body object</span>
+<a name="ln-384"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest system object</span>
+<a name="ln-385"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-386"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>      <span class="c">!! Simulation time</span>
+<a name="ln-387"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>     <span class="c">!! Current stepsize</span>
+<a name="ln-388"></a>      <span class="k">end subroutine </span><span class="n">abstract_step_body</span>
+<a name="ln-389"></a>
+<a name="ln-390"></a>      <span class="k">subroutine </span><span class="n">abstract_step_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
+<a name="ln-391"></a>         <span class="k">import </span><span class="n">DP</span><span class="p">,</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
+<a name="ln-392"></a>         <span class="k">implicit none</span>
+<a name="ln-393"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest system object</span>
+<a name="ln-394"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-395"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>     <span class="c">!! Simulation time</span>
+<a name="ln-396"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>    <span class="c">!! Current stepsize</span>
+<a name="ln-397"></a>      <span class="k">end subroutine </span><span class="n">abstract_step_system</span>
+<a name="ln-398"></a>
+<a name="ln-399"></a>      <span class="k">subroutine </span><span class="n">abstract_write_frame</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-400"></a>         <span class="k">import </span><span class="n">DP</span><span class="p">,</span> <span class="n">I4B</span><span class="p">,</span> <span class="n">swiftest_base</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
+<a name="ln-401"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_base</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest base object</span>
+<a name="ln-402"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>    <span class="c">!! Unit number for the output file to write frame to</span>
+<a name="ln-403"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-404"></a>      <span class="k">end subroutine </span><span class="n">abstract_write_frame</span>
+<a name="ln-405"></a>   <span class="k">end interface</span>
+<a name="ln-406"></a>
+<a name="ln-407"></a><span class="k">   interface</span>
+<a name="ln-408"></a><span class="k">      module subroutine </span><span class="n">discard_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-409"></a>         <span class="k">implicit none</span>
+<a name="ln-410"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest massive body object</span>
+<a name="ln-411"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-412"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameter</span>
+<a name="ln-413"></a>      <span class="k">end subroutine </span><span class="n">discard_pl</span>
+<a name="ln-414"></a>
+<a name="ln-415"></a>      <span class="k">module subroutine </span><span class="n">discard_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-416"></a>         <span class="k">implicit none</span>
+<a name="ln-417"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest system object</span>
+<a name="ln-418"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-419"></a>      <span class="k">end subroutine </span><span class="n">discard_system</span>
+<a name="ln-420"></a>
+<a name="ln-421"></a>      <span class="k">module subroutine </span><span class="n">discard_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-422"></a>         <span class="k">implicit none</span>
+<a name="ln-423"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest test particle object</span>
+<a name="ln-424"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-425"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
+<a name="ln-426"></a>      <span class="k">end subroutine </span><span class="n">discard_tp</span>
+<a name="ln-427"></a>
+<a name="ln-428"></a>      <span class="k">module pure subroutine </span><span class="n">drift_all</span><span class="p">(</span><span class="n">mu</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">mask</span><span class="p">,</span> <span class="n">iflag</span><span class="p">)</span>
+<a name="ln-429"></a>         <span class="k">implicit none</span>
+<a name="ln-430"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">mu</span>    <span class="c">!! Vector of gravitational constants</span>
+<a name="ln-431"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span>  <span class="c">!! Position and velocity vectors</span>
+<a name="ln-432"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! number of bodies</span>
+<a name="ln-433"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
+<a name="ln-434"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>    <span class="c">!! Stepsize</span>
+<a name="ln-435"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">mask</span>  <span class="c">!! Logical mask of size self%nbody that determines which bodies to drift.</span>
+<a name="ln-436"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">iflag</span> <span class="c">!! Vector of error flags. 0 means no problem</span>
+<a name="ln-437"></a>      <span class="k">end subroutine </span><span class="n">drift_all</span>
+<a name="ln-438"></a>
+<a name="ln-439"></a>      <span class="k">module subroutine </span><span class="n">drift_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
+<a name="ln-440"></a>         <span class="k">implicit none</span>
+<a name="ln-441"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest particle data structure</span>
+<a name="ln-442"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-443"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
+<a name="ln-444"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>     <span class="c">!! Stepsize</span>
+<a name="ln-445"></a>      <span class="k">end subroutine </span><span class="n">drift_body</span>
+<a name="ln-446"></a>
+<a name="ln-447"></a>      <span class="k">module pure elemental subroutine </span><span class="n">drift_one</span><span class="p">(</span><span class="n">mu</span><span class="p">,</span> <span class="n">px</span><span class="p">,</span> <span class="n">py</span><span class="p">,</span> <span class="n">pz</span><span class="p">,</span> <span class="n">vx</span><span class="p">,</span> <span class="n">vy</span><span class="p">,</span> <span class="n">vz</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">iflag</span><span class="p">)</span>
+<a name="ln-448"></a>         <span class="k">implicit none</span>
+<a name="ln-449"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>       <span class="kd">::</span> <span class="n">mu</span>    <span class="c">!! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body to drift</span>
+<a name="ln-450"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">px</span><span class="p">,</span> <span class="n">py</span><span class="p">,</span> <span class="n">pz</span><span class="p">,</span> <span class="n">vx</span><span class="p">,</span> <span class="n">vy</span><span class="p">,</span> <span class="n">vz</span>  <span class="c">!! Position and velocity of body to drift</span>
+<a name="ln-451"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>       <span class="kd">::</span> <span class="n">dt</span>    <span class="c">!! Step size</span>
+<a name="ln-452"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>      <span class="kd">::</span> <span class="n">iflag</span> <span class="c">!! iflag : error status flag for Danby drift (0 = OK, nonzero = ERROR)</span>
+<a name="ln-453"></a>      <span class="k">end subroutine </span><span class="n">drift_one</span>
+<a name="ln-454"></a>
+<a name="ln-455"></a>      <span class="k">module subroutine </span><span class="n">eucl_dist_index_plpl</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-456"></a>         <span class="k">implicit none</span>
+<a name="ln-457"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest massive body object</span>
+<a name="ln-458"></a>      <span class="k">end subroutine</span>
+<a name="ln-459"></a>
+<a name="ln-460"></a><span class="k">      module subroutine </span><span class="n">fragmentation_initialize</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-461"></a>         <span class="n">nfrag</span><span class="p">,</span> <span class="n">Ip_frag</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">,</span> <span class="n">lfailure</span><span class="p">)</span>
+<a name="ln-462"></a>         <span class="k">implicit none</span>
+<a name="ln-463"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span>                              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-464"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>                                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-465"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                 <span class="k">dimension</span><span class="p">(:),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">family</span> <span class="c">!! Index of bodies involved in the collision</span>
+<a name="ln-466"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">dimension</span><span class="p">(:,:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span> <span class="c">!! Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision</span>
+<a name="ln-467"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">dimension</span><span class="p">(:),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Two-body equivalent mass and radii for the bodies in the collision</span>
+<a name="ln-468"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nfrag</span>            <span class="c">!! Number of fragments to generate</span>
+<a name="ln-469"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span> <span class="c">!! Distribution of fragment mass and radii</span>
+<a name="ln-470"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Ip_frag</span>          <span class="c">!! Fragment rotational inertia vectors</span>
+<a name="ln-471"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span> <span class="c">!! Fragment barycentric position, barycentric velocity, and rotation vectors</span>
+<a name="ln-472"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                                                  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Qloss</span> <span class="c">!! Energy lost during the collision</span>
+<a name="ln-473"></a>         <span class="kt">logical</span><span class="p">,</span>                                                   <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">lfailure</span> <span class="c">!! Answers the question: Should this have been a merger instead?</span>
+<a name="ln-474"></a>      <span class="k">end subroutine </span><span class="n">fragmentation_initialize</span>
+<a name="ln-475"></a>
+<a name="ln-476"></a>      <span class="k">module subroutine </span><span class="n">fragmentation_regime</span><span class="p">(</span><span class="n">Mcb</span><span class="p">,</span> <span class="n">m1</span><span class="p">,</span> <span class="n">m2</span><span class="p">,</span> <span class="n">rad1</span><span class="p">,</span> <span class="n">rad2</span><span class="p">,</span> <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vb1</span><span class="p">,</span> <span class="n">vb2</span><span class="p">,</span> <span class="n">den1</span><span class="p">,</span> <span class="n">den2</span><span class="p">,</span> <span class="n">regime</span><span class="p">,</span> <span class="n">Mlr</span><span class="p">,</span> <span class="n">Mslr</span><span class="p">,</span> <span class="n">mtiny</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">)</span>
+<a name="ln-477"></a>         <span class="k">implicit none</span>
+<a name="ln-478"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">regime</span>
+<a name="ln-479"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Mlr</span><span class="p">,</span> <span class="n">Mslr</span>
+<a name="ln-480"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">Mcb</span><span class="p">,</span> <span class="n">m1</span><span class="p">,</span> <span class="n">m2</span><span class="p">,</span> <span class="n">rad1</span><span class="p">,</span> <span class="n">rad2</span><span class="p">,</span> <span class="n">den1</span><span class="p">,</span> <span class="n">den2</span><span class="p">,</span> <span class="n">mtiny</span> 
+<a name="ln-481"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vb1</span><span class="p">,</span> <span class="n">vb2</span>
+<a name="ln-482"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Qloss</span> <span class="c">!! Energy lost during the collision</span>
+<a name="ln-483"></a>      <span class="k">end subroutine </span><span class="n">fragmentation_regime</span>
+<a name="ln-484"></a>
+<a name="ln-485"></a>      <span class="k">module pure subroutine </span><span class="n">gr_kick_getaccb_ns_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-486"></a>         <span class="k">implicit none</span>
+<a name="ln-487"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest generic body object</span>
+<a name="ln-488"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-489"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-490"></a>      <span class="k">end subroutine </span><span class="n">gr_kick_getaccb_ns_body</span>
+<a name="ln-491"></a>
+<a name="ln-492"></a>      <span class="k">module subroutine </span><span class="n">gr_kick_getacch</span><span class="p">(</span><span class="n">mu</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">lmask</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">inv_c2</span><span class="p">,</span> <span class="n">agr</span><span class="p">)</span> 
+<a name="ln-493"></a>         <span class="k">implicit none</span>
+<a name="ln-494"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">mu</span>     <span class="c">!! Gravitational constant</span>
+<a name="ln-495"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">x</span>      <span class="c">!! Position vectors</span>
+<a name="ln-496"></a>         <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">lmask</span>  <span class="c">!! Logical mask indicating which bodies to compute</span>
+<a name="ln-497"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">n</span>      <span class="c">!! Total number of bodies</span>
+<a name="ln-498"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">inv_c2</span> <span class="c">!! Inverse speed of light squared: 1 / c**2</span>
+<a name="ln-499"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">agr</span>    <span class="c">!! Accelerations</span>
+<a name="ln-500"></a>      <span class="k">end subroutine </span><span class="n">gr_kick_getacch</span>
+<a name="ln-501"></a>
+<a name="ln-502"></a>      <span class="k">module pure subroutine </span><span class="n">gr_p4_pos_kick</span><span class="p">(</span><span class="n">param</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
+<a name="ln-503"></a>         <span class="k">implicit none</span>
+<a name="ln-504"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-505"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span>     <span class="c">!! Position vector</span>
+<a name="ln-506"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">v</span>     <span class="c">!! Velocity vector</span>
+<a name="ln-507"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>    <span class="c">!! Step size</span>
+<a name="ln-508"></a>      <span class="k">end subroutine </span><span class="n">gr_p4_pos_kick</span>
+<a name="ln-509"></a>
+<a name="ln-510"></a>      <span class="k">module pure subroutine </span><span class="n">gr_pseudovel2vel</span><span class="p">(</span><span class="n">param</span><span class="p">,</span> <span class="n">mu</span><span class="p">,</span> <span class="n">xh</span><span class="p">,</span> <span class="n">pv</span><span class="p">,</span> <span class="n">vh</span><span class="p">)</span> 
+<a name="ln-511"></a>         <span class="k">implicit none</span>
+<a name="ln-512"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-513"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">mu</span>    <span class="c">!! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body</span>
+<a name="ln-514"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">xh</span>    <span class="c">!! Heliocentric position vector </span>
+<a name="ln-515"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">pv</span>    <span class="c">!! Pseudovelocity velocity vector - see Saha &amp; Tremain (1994), eq. (32)</span>
+<a name="ln-516"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">vh</span>    <span class="c">!! Heliocentric velocity vector </span>
+<a name="ln-517"></a>      <span class="k">end subroutine </span><span class="n">gr_pseudovel2vel</span>
+<a name="ln-518"></a>
+<a name="ln-519"></a>      <span class="k">module pure subroutine </span><span class="n">gr_pv2vh_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-520"></a>         <span class="k">implicit none</span>
+<a name="ln-521"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest particle object</span>
+<a name="ln-522"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-523"></a>      <span class="k">end subroutine </span><span class="n">gr_pv2vh_body</span>
+<a name="ln-524"></a>
+<a name="ln-525"></a>      <span class="k">module pure subroutine </span><span class="n">gr_vel2pseudovel</span><span class="p">(</span><span class="n">param</span><span class="p">,</span> <span class="n">mu</span><span class="p">,</span> <span class="n">xh</span><span class="p">,</span> <span class="n">vh</span><span class="p">,</span> <span class="n">pv</span><span class="p">)</span>
+<a name="ln-526"></a>         <span class="k">implicit none</span>
+<a name="ln-527"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-528"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">mu</span>    <span class="c">!! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body</span>
+<a name="ln-529"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">xh</span>    <span class="c">!! Heliocentric position vector </span>
+<a name="ln-530"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">vh</span>    <span class="c">!! Heliocentric velocity vector </span>
+<a name="ln-531"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">pv</span>    <span class="c">!! Pseudovelocity vector - see Saha &amp; Tremain (1994), eq. (32)</span>
+<a name="ln-532"></a>      <span class="k">end subroutine </span><span class="n">gr_vel2pseudovel</span>
+<a name="ln-533"></a>
+<a name="ln-534"></a>      <span class="k">module pure subroutine </span><span class="n">gr_vh2pv_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-535"></a>         <span class="k">implicit none</span>
+<a name="ln-536"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest particle object</span>
+<a name="ln-537"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
+<a name="ln-538"></a>      <span class="k">end subroutine </span><span class="n">gr_vh2pv_body</span>
+<a name="ln-539"></a>
+<a name="ln-540"></a>      <span class="k">module subroutine </span><span class="n">io_conservation_report</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">lterminal</span><span class="p">)</span>
+<a name="ln-541"></a>         <span class="k">implicit none</span>
+<a name="ln-542"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-543"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>     <span class="c">!! Input colleciton of user-defined parameters</span>
+<a name="ln-544"></a>         <span class="kt">logical</span><span class="p">,</span>                      <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lterminal</span> <span class="c">!! Indicates whether to output information to the terminal screen</span>
+<a name="ln-545"></a>      <span class="k">end subroutine </span><span class="n">io_conservation_report</span>
+<a name="ln-546"></a>
+<a name="ln-547"></a>      <span class="k">module subroutine </span><span class="n">io_dump_param</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param_file_name</span><span class="p">)</span>
+<a name="ln-548"></a>         <span class="k">implicit none</span>
+<a name="ln-549"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>            <span class="c">!! Output collection of parameters</span>
+<a name="ln-550"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>          <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param_file_name</span> <span class="c">!! Parameter input file name (i.e. param.in)</span>
+<a name="ln-551"></a>      <span class="k">end subroutine </span><span class="n">io_dump_param</span>
+<a name="ln-552"></a>
+<a name="ln-553"></a>      <span class="k">module subroutine </span><span class="n">io_dump_swiftest</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-554"></a>         <span class="k">implicit none</span>
+<a name="ln-555"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_base</span><span class="p">),</span>          <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest base object</span>
+<a name="ln-556"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-557"></a>      <span class="k">end subroutine </span><span class="n">io_dump_swiftest</span>
+<a name="ln-558"></a>
+<a name="ln-559"></a>      <span class="k">module subroutine </span><span class="n">io_dump_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-560"></a>         <span class="k">implicit none</span>
+<a name="ln-561"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>    <span class="c">!! Swiftest system object</span>
+<a name="ln-562"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-563"></a>      <span class="k">end subroutine </span><span class="n">io_dump_system</span>
+<a name="ln-564"></a>
+<a name="ln-565"></a>      <span class="k">module function </span><span class="n">io_get_args</span><span class="p">(</span><span class="n">integrator</span><span class="p">,</span> <span class="n">param_file_name</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">ierr</span><span class="p">)</span>
+<a name="ln-566"></a>         <span class="k">implicit none</span>
+<a name="ln-567"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">integrator</span>      <span class="c">!! Symbolic code of the requested integrator  </span>
+<a name="ln-568"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">param_file_name</span> <span class="c">!! Name of the input parameters file</span>
+<a name="ln-569"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">ierr</span>             <span class="c">!! I/O error code </span>
+<a name="ln-570"></a>      <span class="k">end function </span><span class="n">io_get_args</span>
+<a name="ln-571"></a>
+<a name="ln-572"></a>      <span class="k">module function </span><span class="n">io_get_token</span><span class="p">(</span><span class="n">buffer</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">token</span><span class="p">)</span>
+<a name="ln-573"></a>         <span class="k">implicit none</span>
+<a name="ln-574"></a><span class="k">         </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">buffer</span>         <span class="c">!! Input string buffer</span>
+<a name="ln-575"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ifirst</span>         <span class="c">!! Index of the buffer at which to start the search for a token</span>
+<a name="ln-576"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ilast</span>          <span class="c">!! Index of the buffer at the end of the returned token</span>
+<a name="ln-577"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>           <span class="c">!! Error code</span>
+<a name="ln-578"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span>   <span class="kd">::</span> <span class="n">token</span>          <span class="c">!! Returned token string</span>
+<a name="ln-579"></a>      <span class="k">end function </span><span class="n">io_get_token</span>
+<a name="ln-580"></a>
+<a name="ln-581"></a>      <span class="k">module subroutine </span><span class="n">io_param_reader</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
+<a name="ln-582"></a>         <span class="k">implicit none</span>
+<a name="ln-583"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! Collection of parameters</span>
+<a name="ln-584"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">unit</span>       <span class="c">!! File unit number</span>
+<a name="ln-585"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">iotype</span>     <span class="c">!! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. </span>
+<a name="ln-586"></a>                                                                 <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
+<a name="ln-587"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">v_list</span><span class="p">(:)</span>  <span class="c">!! The first element passes the integrator code to the reader</span>
+<a name="ln-588"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">iostat</span>     <span class="c">!! IO status code</span>
+<a name="ln-589"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iomsg</span>      <span class="c">!! Message to pass if iostat /= 0</span>
+<a name="ln-590"></a>      <span class="k">end subroutine </span><span class="n">io_param_reader</span>
+<a name="ln-591"></a>
+<a name="ln-592"></a>      <span class="k">module subroutine </span><span class="n">io_param_writer</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
+<a name="ln-593"></a>         <span class="k">implicit none</span>
+<a name="ln-594"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Collection of parameters</span>
+<a name="ln-595"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">unit</span>      <span class="c">!! File unit number</span>
+<a name="ln-596"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">iotype</span>    <span class="c">!! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. </span>
+<a name="ln-597"></a>                                                                <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
+<a name="ln-598"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">v_list</span><span class="p">(:)</span> <span class="c">!! Not used in this procedure</span>
+<a name="ln-599"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">iostat</span>    <span class="c">!! IO status code</span>
+<a name="ln-600"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iomsg</span>     <span class="c">!! Message to pass if iostat /= 0</span>
+<a name="ln-601"></a>      <span class="k">end subroutine </span><span class="n">io_param_writer</span>
+<a name="ln-602"></a>
+<a name="ln-603"></a>      <span class="k">module subroutine </span><span class="n">io_read_body_in</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
+<a name="ln-604"></a>         <span class="k">implicit none</span>
+<a name="ln-605"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest body object</span>
+<a name="ln-606"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
+<a name="ln-607"></a>      <span class="k">end subroutine </span><span class="n">io_read_body_in</span>
+<a name="ln-608"></a>
+<a name="ln-609"></a>      <span class="k">module subroutine </span><span class="n">io_read_cb_in</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
+<a name="ln-610"></a>         <span class="k">implicit none</span>
+<a name="ln-611"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest central body object</span>
+<a name="ln-612"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
+<a name="ln-613"></a>      <span class="k">end subroutine </span><span class="n">io_read_cb_in</span>
+<a name="ln-614"></a>
+<a name="ln-615"></a>      <span class="k">module subroutine </span><span class="n">io_read_param_in</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param_file_name</span><span class="p">)</span> 
+<a name="ln-616"></a>         <span class="k">implicit none</span>
+<a name="ln-617"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>            <span class="c">!! Current run configuration parameters</span>
+<a name="ln-618"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param_file_name</span> <span class="c">!! Parameter input file name (i.e. param.in)</span>
+<a name="ln-619"></a>      <span class="k">end subroutine </span><span class="n">io_read_param_in</span>
+<a name="ln-620"></a>
+<a name="ln-621"></a>      <span class="k">module subroutine </span><span class="n">io_read_frame_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-622"></a>         <span class="k">implicit none</span>
+<a name="ln-623"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest body object</span>
+<a name="ln-624"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>     <span class="c">!! Unit number for the output file to write frame to</span>
+<a name="ln-625"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-626"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">form</span>   <span class="c">!! Input format code (&quot;XV&quot; or &quot;EL&quot;)</span>
+<a name="ln-627"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>   <span class="c">!! Error code</span>
+<a name="ln-628"></a>      <span class="k">end subroutine </span><span class="n">io_read_frame_body</span>
+<a name="ln-629"></a>
+<a name="ln-630"></a>      <span class="k">module subroutine </span><span class="n">io_read_frame_cb</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-631"></a>         <span class="k">implicit none</span>
+<a name="ln-632"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>    <span class="c">!! Swiftest central body object</span>
+<a name="ln-633"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>      <span class="c">!! Unit number for the output file to write frame to</span>
+<a name="ln-634"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>   <span class="c">!! Current run configuration parameters </span>
+<a name="ln-635"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">form</span>    <span class="c">!! Input format code (&quot;XV&quot; or &quot;EL&quot;)</span>
+<a name="ln-636"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>    <span class="c">!! Error code</span>
+<a name="ln-637"></a>      <span class="k">end subroutine </span><span class="n">io_read_frame_cb</span>
+<a name="ln-638"></a>
+<a name="ln-639"></a>      <span class="k">module subroutine </span><span class="n">io_read_frame_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-640"></a>         <span class="k">implicit none</span>
+<a name="ln-641"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest system object</span>
+<a name="ln-642"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>    <span class="c">!! Unit number for the output file to write frame to</span>
+<a name="ln-643"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-644"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">form</span>  <span class="c">!! Input format code (&quot;XV&quot; or &quot;EL&quot;)</span>
+<a name="ln-645"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>  <span class="c">!! Error code</span>
+<a name="ln-646"></a>      <span class="k">end subroutine </span><span class="n">io_read_frame_system</span>
+<a name="ln-647"></a>
+<a name="ln-648"></a>      <span class="k">module subroutine </span><span class="n">io_write_discard</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-649"></a>         <span class="k">implicit none</span>
+<a name="ln-650"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest system object</span>
+<a name="ln-651"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-652"></a>      <span class="k">end subroutine </span><span class="n">io_write_discard</span>
+<a name="ln-653"></a>
+<a name="ln-654"></a>      <span class="k">module subroutine </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">string</span><span class="p">)</span>
+<a name="ln-655"></a>         <span class="k">implicit none</span>
+<a name="ln-656"></a><span class="k">         </span><span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">string</span> <span class="c">!! String to make upper case</span>
+<a name="ln-657"></a>      <span class="k">end subroutine </span><span class="n">io_toupper</span>
+<a name="ln-658"></a>
+<a name="ln-659"></a>      <span class="k">module subroutine </span><span class="n">io_write_encounter</span><span class="p">(</span><span class="n">t</span><span class="p">,</span> <span class="n">name1</span><span class="p">,</span> <span class="n">name2</span><span class="p">,</span> <span class="n">mass1</span><span class="p">,</span> <span class="n">mass2</span><span class="p">,</span> <span class="n">radius1</span><span class="p">,</span> <span class="n">radius2</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-660"></a>                                           <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vh1</span><span class="p">,</span> <span class="n">vh2</span><span class="p">,</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">out_type</span><span class="p">)</span>
+<a name="ln-661"></a>         <span class="k">implicit none</span>
+<a name="ln-662"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">name1</span><span class="p">,</span> <span class="n">name2</span>
+<a name="ln-663"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">t</span><span class="p">,</span> <span class="n">mass1</span><span class="p">,</span> <span class="n">mass2</span><span class="p">,</span> <span class="n">radius1</span><span class="p">,</span> <span class="n">radius2</span>
+<a name="ln-664"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">xh1</span><span class="p">,</span> <span class="n">xh2</span><span class="p">,</span> <span class="n">vh1</span><span class="p">,</span> <span class="n">vh2</span>
+<a name="ln-665"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">enc_out</span><span class="p">,</span> <span class="n">out_type</span>
+<a name="ln-666"></a>      <span class="k">end subroutine </span><span class="n">io_write_encounter</span>
+<a name="ln-667"></a>
+<a name="ln-668"></a>      <span class="k">module subroutine </span><span class="n">io_write_frame_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-669"></a>         <span class="k">implicit none</span>
+<a name="ln-670"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest body object</span>
+<a name="ln-671"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>    <span class="c">!! Unit number for the output file to write frame to</span>
+<a name="ln-672"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-673"></a>      <span class="k">end subroutine </span><span class="n">io_write_frame_body</span>
+<a name="ln-674"></a>
+<a name="ln-675"></a>      <span class="k">module subroutine </span><span class="n">io_write_frame_cb</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-676"></a>         <span class="k">implicit none</span>
+<a name="ln-677"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest central body object </span>
+<a name="ln-678"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>    <span class="c">!! Unit number for the output file to write frame to</span>
+<a name="ln-679"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-680"></a>      <span class="k">end subroutine </span><span class="n">io_write_frame_cb</span>
+<a name="ln-681"></a>
+<a name="ln-682"></a>      <span class="k">module subroutine </span><span class="n">io_write_frame_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-683"></a>         <span class="k">implicit none</span>
+<a name="ln-684"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest system object</span>
+<a name="ln-685"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>    <span class="c">!! Unit number for the output file to write frame to</span>
+<a name="ln-686"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-687"></a>      <span class="k">end subroutine </span><span class="n">io_write_frame_system</span>
+<a name="ln-688"></a>
+<a name="ln-689"></a>      <span class="k">module pure subroutine </span><span class="n">kick_getacch_int_pl</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-690"></a>         <span class="k">implicit none</span>
+<a name="ln-691"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>
+<a name="ln-692"></a>      <span class="k">end subroutine </span><span class="n">kick_getacch_int_pl</span>
+<a name="ln-693"></a>
+<a name="ln-694"></a>      <span class="k">module pure subroutine </span><span class="n">kick_getacch_int_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">GMpl</span><span class="p">,</span> <span class="n">xhp</span><span class="p">,</span> <span class="n">npl</span><span class="p">)</span>
+<a name="ln-695"></a>         <span class="k">implicit none</span>
+<a name="ln-696"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest test particle</span>
+<a name="ln-697"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">GMpl</span> <span class="c">!! Massive body masses</span>
+<a name="ln-698"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">xhp</span>  <span class="c">!! Massive body position vectors</span>
+<a name="ln-699"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>             <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">npl</span>  <span class="c">!! Number of active massive bodies</span>
+<a name="ln-700"></a>      <span class="k">end subroutine </span><span class="n">kick_getacch_int_tp</span>
+<a name="ln-701"></a>
+<a name="ln-702"></a>      <span class="k">module subroutine </span><span class="n">obl_acc_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">)</span>
+<a name="ln-703"></a>         <span class="k">implicit none</span>
+<a name="ln-704"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest body object </span>
+<a name="ln-705"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-706"></a>      <span class="k">end subroutine </span><span class="n">obl_acc_body</span>
+<a name="ln-707"></a>
+<a name="ln-708"></a>      <span class="k">module subroutine </span><span class="n">obl_acc_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">)</span>
+<a name="ln-709"></a>         <span class="k">implicit none</span>
+<a name="ln-710"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest massive body object</span>
+<a name="ln-711"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-712"></a>      <span class="k">end subroutine </span><span class="n">obl_acc_pl</span>
+<a name="ln-713"></a>
+<a name="ln-714"></a>      <span class="k">module subroutine </span><span class="n">obl_acc_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">)</span>
+<a name="ln-715"></a>         <span class="k">implicit none</span>
+<a name="ln-716"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest test particle object</span>
+<a name="ln-717"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-718"></a>      <span class="k">end subroutine </span><span class="n">obl_acc_tp</span>
+<a name="ln-719"></a>
+<a name="ln-720"></a>      <span class="k">module subroutine </span><span class="n">obl_pot</span><span class="p">(</span><span class="n">npl</span><span class="p">,</span> <span class="n">Mcb</span><span class="p">,</span> <span class="n">Mpl</span><span class="p">,</span> <span class="n">j2rp2</span><span class="p">,</span> <span class="n">j4rp4</span><span class="p">,</span> <span class="n">xh</span><span class="p">,</span> <span class="n">irh</span><span class="p">,</span> <span class="n">oblpot</span><span class="p">)</span>
+<a name="ln-721"></a>         <span class="k">implicit none</span>
+<a name="ln-722"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">npl</span>
+<a name="ln-723"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Mcb</span>
+<a name="ln-724"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Mpl</span>
+<a name="ln-725"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">j2rp2</span><span class="p">,</span> <span class="n">j4rp4</span>
+<a name="ln-726"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>         <span class="kd">::</span> <span class="n">irh</span>
+<a name="ln-727"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,</span> <span class="p">:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>      <span class="kd">::</span> <span class="n">xh</span>
+<a name="ln-728"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>                      <span class="kd">::</span> <span class="n">oblpot</span>
+<a name="ln-729"></a>      <span class="k">end subroutine </span><span class="n">obl_pot</span>
+<a name="ln-730"></a>
+<a name="ln-731"></a>      <span class="k">module subroutine </span><span class="n">orbel_el2xv_vec</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
+<a name="ln-732"></a>         <span class="k">implicit none</span>
+<a name="ln-733"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest body object</span>
+<a name="ln-734"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
+<a name="ln-735"></a>      <span class="k">end subroutine </span><span class="n">orbel_el2xv_vec</span>
+<a name="ln-736"></a>
+<a name="ln-737"></a>      <span class="k">module pure subroutine </span><span class="n">orbel_scget</span><span class="p">(</span><span class="n">angle</span><span class="p">,</span> <span class="n">sx</span><span class="p">,</span> <span class="n">cx</span><span class="p">)</span>
+<a name="ln-738"></a>         <span class="k">implicit none</span>
+<a name="ln-739"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">angle</span>
+<a name="ln-740"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">sx</span><span class="p">,</span> <span class="n">cx</span>
+<a name="ln-741"></a>      <span class="k">end subroutine </span><span class="n">orbel_scget</span>
+<a name="ln-742"></a>
+<a name="ln-743"></a>      <span class="k">module pure subroutine </span><span class="n">orbel_xv2aeq</span><span class="p">(</span><span class="n">mu</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">a</span><span class="p">,</span> <span class="n">e</span><span class="p">,</span> <span class="n">q</span><span class="p">)</span>
+<a name="ln-744"></a>         <span class="k">implicit none</span>
+<a name="ln-745"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">mu</span> <span class="c">!! Gravitational constant</span>
+<a name="ln-746"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">x</span>  <span class="c">!! Position vector</span>
+<a name="ln-747"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">v</span>  <span class="c">!! Velocity vector</span>
+<a name="ln-748"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">a</span>  <span class="c">!! semimajor axis</span>
+<a name="ln-749"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">e</span>  <span class="c">!! eccentricity</span>
+<a name="ln-750"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">q</span>  <span class="c">!! periapsis</span>
+<a name="ln-751"></a>      <span class="k">end subroutine </span><span class="n">orbel_xv2aeq</span>
+<a name="ln-752"></a>
+<a name="ln-753"></a>      <span class="k">module pure subroutine </span><span class="n">orbel_xv2aqt</span><span class="p">(</span><span class="n">mu</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">a</span><span class="p">,</span> <span class="n">q</span><span class="p">,</span> <span class="n">capm</span><span class="p">,</span> <span class="n">tperi</span><span class="p">)</span>
+<a name="ln-754"></a>         <span class="k">implicit none</span>
+<a name="ln-755"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">mu</span>    <span class="c">!! Gravitational constant</span>
+<a name="ln-756"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">x</span>     <span class="c">!! Position vector</span>
+<a name="ln-757"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">v</span>     <span class="c">!! Velocity vector</span>
+<a name="ln-758"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">a</span>     <span class="c">!! semimajor axis</span>
+<a name="ln-759"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">q</span>     <span class="c">!! periapsis</span>
+<a name="ln-760"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">capm</span>  <span class="c">!! mean anomaly</span>
+<a name="ln-761"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">tperi</span> <span class="c">!! time of pericenter passage</span>
+<a name="ln-762"></a>      <span class="k">end subroutine </span><span class="n">orbel_xv2aqt</span>
+<a name="ln-763"></a>
+<a name="ln-764"></a>      <span class="k">module subroutine </span><span class="n">orbel_xv2el_vec</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
+<a name="ln-765"></a>         <span class="k">implicit none</span>
+<a name="ln-766"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest body object</span>
+<a name="ln-767"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
+<a name="ln-768"></a>      <span class="k">end subroutine </span><span class="n">orbel_xv2el_vec</span>
+<a name="ln-769"></a>
+<a name="ln-770"></a>      <span class="k">module subroutine </span><span class="n">setup_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-771"></a>         <span class="k">implicit none</span>
+<a name="ln-772"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest body object</span>
+<a name="ln-773"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
+<a name="ln-774"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
+<a name="ln-775"></a>      <span class="k">end subroutine </span><span class="n">setup_body</span>
+<a name="ln-776"></a>
+<a name="ln-777"></a>      <span class="k">module subroutine </span><span class="n">setup_construct_system</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-778"></a>         <span class="k">implicit none</span>
+<a name="ln-779"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span>  <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest system object</span>
+<a name="ln-780"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
+<a name="ln-781"></a>      <span class="k">end subroutine </span><span class="n">setup_construct_system</span>
+<a name="ln-782"></a>
+<a name="ln-783"></a>      <span class="k">module subroutine </span><span class="n">setup_encounter</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-784"></a>         <span class="k">implicit none</span>
+<a name="ln-785"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest encounter structure</span>
+<a name="ln-786"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>    <span class="c">!! Number of encounters to allocate space for</span>
+<a name="ln-787"></a>      <span class="k">end subroutine </span><span class="n">setup_encounter</span>
+<a name="ln-788"></a>
+<a name="ln-789"></a>      <span class="k">module subroutine </span><span class="n">setup_initialize_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-790"></a>         <span class="k">implicit none</span>
+<a name="ln-791"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest system object</span>
+<a name="ln-792"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-793"></a>      <span class="k">end subroutine </span><span class="n">setup_initialize_system</span>
+<a name="ln-794"></a>
+<a name="ln-795"></a>      <span class="k">module subroutine </span><span class="n">setup_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-796"></a>         <span class="k">implicit none</span>
+<a name="ln-797"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest massive body object</span>
+<a name="ln-798"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
+<a name="ln-799"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
+<a name="ln-800"></a>      <span class="k">end subroutine </span><span class="n">setup_pl</span>
+<a name="ln-801"></a>
+<a name="ln-802"></a>      <span class="k">module subroutine </span><span class="n">setup_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-803"></a>         <span class="k">implicit none</span>
+<a name="ln-804"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest test particle object</span>
+<a name="ln-805"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
+<a name="ln-806"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parametersr</span>
+<a name="ln-807"></a>      <span class="k">end subroutine </span><span class="n">setup_tp</span>
+<a name="ln-808"></a>
+<a name="ln-809"></a>      <span class="k">module subroutine </span><span class="n">tides_kick_getacch_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">)</span>
+<a name="ln-810"></a>         <span class="k">implicit none</span>
+<a name="ln-811"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest massive body object</span>
+<a name="ln-812"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-813"></a>      <span class="k">end subroutine </span><span class="n">tides_kick_getacch_pl</span>
+<a name="ln-814"></a>
+<a name="ln-815"></a>      <span class="k">module subroutine </span><span class="n">tides_step_spin_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
+<a name="ln-816"></a>         <span class="k">implicit none</span>
+<a name="ln-817"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-818"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-819"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>     <span class="c">!! Simulation time</span>
+<a name="ln-820"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>    <span class="c">!! Current stepsize</span>
+<a name="ln-821"></a>      <span class="k">end subroutine </span><span class="n">tides_step_spin_system</span>
+<a name="ln-822"></a>
+<a name="ln-823"></a>      <span class="k">module subroutine </span><span class="n">user_kick_getacch_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
+<a name="ln-824"></a>         <span class="k">implicit none</span>
+<a name="ln-825"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest massive body particle data structure</span>
+<a name="ln-826"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody_system_object</span>
+<a name="ln-827"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-828"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>      <span class="c">!! Current time</span>
+<a name="ln-829"></a>         <span class="kt">logical</span><span class="p">,</span>                      <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lbeg</span>   <span class="c">!! Optional argument that determines whether or not this is the beginning or end of the step</span>
+<a name="ln-830"></a>      <span class="k">end subroutine </span><span class="n">user_kick_getacch_body</span>
+<a name="ln-831"></a>   <span class="k">end interface</span>
+<a name="ln-832"></a>
+<a name="ln-833"></a><span class="k">   interface </span><span class="n">util_append</span>
+<a name="ln-834"></a>      <span class="k">module subroutine </span><span class="n">util_append_arr_char_string</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-835"></a>         <span class="k">implicit none</span>
+<a name="ln-836"></a><span class="k">         </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
+<a name="ln-837"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
+<a name="ln-838"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span>   <span class="c">!! Extend of the old array and the source array, respectively</span>
+<a name="ln-839"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-840"></a>      <span class="k">end subroutine </span><span class="n">util_append_arr_char_string</span>
+<a name="ln-841"></a>
+<a name="ln-842"></a>      <span class="k">module subroutine </span><span class="n">util_append_arr_DP</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-843"></a>         <span class="k">implicit none</span>
+<a name="ln-844"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
+<a name="ln-845"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
+<a name="ln-846"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span>   <span class="c">!! Extend of the old array and the source array, respectively</span>
+<a name="ln-847"></a>         <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-848"></a>      <span class="k">end subroutine </span><span class="n">util_append_arr_DP</span>
+<a name="ln-849"></a>
+<a name="ln-850"></a>      <span class="k">module subroutine </span><span class="n">util_append_arr_DPvec</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-851"></a>         <span class="k">implicit none</span>
+<a name="ln-852"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
+<a name="ln-853"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
+<a name="ln-854"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                          <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span>   <span class="c">!! Extend of the old array and the source array, respectively</span>
+<a name="ln-855"></a>         <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-856"></a>      <span class="k">end subroutine </span><span class="n">util_append_arr_DPvec</span>
+<a name="ln-857"></a>
+<a name="ln-858"></a>      <span class="k">module subroutine </span><span class="n">util_append_arr_I4B</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-859"></a>         <span class="k">implicit none</span>
+<a name="ln-860"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
+<a name="ln-861"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
+<a name="ln-862"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span>   <span class="c">!! Extend of the old array and the source array, respectively</span>
+<a name="ln-863"></a>         <span class="kt">logical</span><span class="p">,</span>      <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-864"></a>      <span class="k">end subroutine </span><span class="n">util_append_arr_I4B</span>
+<a name="ln-865"></a>
+<a name="ln-866"></a>      <span class="k">module subroutine </span><span class="n">util_append_arr_logical</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-867"></a>         <span class="k">implicit none</span>
+<a name="ln-868"></a><span class="k">         </span><span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
+<a name="ln-869"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
+<a name="ln-870"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span>   <span class="c">!! Extend of the old array and the source array, respectively</span>
+<a name="ln-871"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-872"></a>      <span class="k">end subroutine </span><span class="n">util_append_arr_logical</span>
+<a name="ln-873"></a>   <span class="k">end interface</span>
+<a name="ln-874"></a>
+<a name="ln-875"></a><span class="k">   interface</span>
+<a name="ln-876"></a><span class="k">      module subroutine </span><span class="n">util_append_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
 <a name="ln-877"></a>         <span class="k">implicit none</span>
-<a name="ln-878"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! Swiftest massive body object</span>
-<a name="ln-879"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
-<a name="ln-880"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-881"></a>      <span class="k">end subroutine </span><span class="n">util_append_pl</span>
-<a name="ln-882"></a>   
-<a name="ln-883"></a>      <span class="k">module subroutine </span><span class="n">util_append_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-878"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest body object</span>
+<a name="ln-879"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>  <span class="c">!! Source object to append</span>
+<a name="ln-880"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span>  <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-881"></a>      <span class="k">end subroutine </span><span class="n">util_append_body</span>
+<a name="ln-882"></a>
+<a name="ln-883"></a>      <span class="k">module subroutine </span><span class="n">util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
 <a name="ln-884"></a>         <span class="k">implicit none</span>
-<a name="ln-885"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! Swiftest test particle object</span>
+<a name="ln-885"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! Swiftest massive body object</span>
 <a name="ln-886"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
-<a name="ln-887"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-888"></a>      <span class="k">end subroutine </span><span class="n">util_append_tp</span>
-<a name="ln-889"></a>
-<a name="ln-890"></a>      <span class="k">module subroutine </span><span class="n">util_coord_b2h_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
+<a name="ln-887"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-888"></a>      <span class="k">end subroutine </span><span class="n">util_append_pl</span>
+<a name="ln-889"></a>   
+<a name="ln-890"></a>      <span class="k">module subroutine </span><span class="n">util_append_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
 <a name="ln-891"></a>         <span class="k">implicit none</span>
-<a name="ln-892"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
-<a name="ln-893"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
-<a name="ln-894"></a>      <span class="k">end subroutine </span><span class="n">util_coord_b2h_pl</span>
-<a name="ln-895"></a>
-<a name="ln-896"></a>      <span class="k">module subroutine </span><span class="n">util_coord_b2h_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
-<a name="ln-897"></a>         <span class="k">implicit none</span>
-<a name="ln-898"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest test particle object</span>
-<a name="ln-899"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
-<a name="ln-900"></a>      <span class="k">end subroutine </span><span class="n">util_coord_b2h_tp</span>
-<a name="ln-901"></a>
-<a name="ln-902"></a>      <span class="k">module subroutine </span><span class="n">util_coord_h2b_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
-<a name="ln-903"></a>         <span class="k">implicit none</span>
-<a name="ln-904"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
-<a name="ln-905"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
-<a name="ln-906"></a>      <span class="k">end subroutine </span><span class="n">util_coord_h2b_pl</span>
-<a name="ln-907"></a>
-<a name="ln-908"></a>      <span class="k">module subroutine </span><span class="n">util_coord_h2b_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
-<a name="ln-909"></a>         <span class="k">implicit none</span>
-<a name="ln-910"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest test particle object</span>
-<a name="ln-911"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
-<a name="ln-912"></a>      <span class="k">end subroutine </span><span class="n">util_coord_h2b_tp</span>
-<a name="ln-913"></a>
-<a name="ln-914"></a>      <span class="k">module subroutine </span><span class="n">util_copy_encounter</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">)</span>
-<a name="ln-915"></a>         <span class="k">implicit none</span>
-<a name="ln-916"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Encounter list </span>
-<a name="ln-917"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span> <span class="c">!! Source object to copy into</span>
-<a name="ln-918"></a>      <span class="k">end subroutine </span><span class="n">util_copy_encounter</span>
-<a name="ln-919"></a>
-<a name="ln-920"></a>      <span class="k">module subroutine </span><span class="n">util_exit</span><span class="p">(</span><span class="n">code</span><span class="p">)</span>
-<a name="ln-921"></a>         <span class="k">implicit none</span>
-<a name="ln-922"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">code</span> <span class="c">!! Failure exit code</span>
-<a name="ln-923"></a>      <span class="k">end subroutine </span><span class="n">util_exit</span>
-<a name="ln-924"></a>
-<a name="ln-925"></a>      <span class="k">module subroutine </span><span class="n">util_fill_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-926"></a>         <span class="k">implicit none</span>
-<a name="ln-927"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! Swiftest body object</span>
-<a name="ln-928"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Swiftest body object to be inserted</span>
-<a name="ln-929"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-930"></a>      <span class="k">end subroutine </span><span class="n">util_fill_body</span>
+<a name="ln-892"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! Swiftest test particle object</span>
+<a name="ln-893"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
+<a name="ln-894"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-895"></a>      <span class="k">end subroutine </span><span class="n">util_append_tp</span>
+<a name="ln-896"></a>
+<a name="ln-897"></a>      <span class="k">module subroutine </span><span class="n">util_coord_b2h_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
+<a name="ln-898"></a>         <span class="k">implicit none</span>
+<a name="ln-899"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
+<a name="ln-900"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
+<a name="ln-901"></a>      <span class="k">end subroutine </span><span class="n">util_coord_b2h_pl</span>
+<a name="ln-902"></a>
+<a name="ln-903"></a>      <span class="k">module subroutine </span><span class="n">util_coord_b2h_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
+<a name="ln-904"></a>         <span class="k">implicit none</span>
+<a name="ln-905"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest test particle object</span>
+<a name="ln-906"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
+<a name="ln-907"></a>      <span class="k">end subroutine </span><span class="n">util_coord_b2h_tp</span>
+<a name="ln-908"></a>
+<a name="ln-909"></a>      <span class="k">module subroutine </span><span class="n">util_coord_h2b_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
+<a name="ln-910"></a>         <span class="k">implicit none</span>
+<a name="ln-911"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
+<a name="ln-912"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
+<a name="ln-913"></a>      <span class="k">end subroutine </span><span class="n">util_coord_h2b_pl</span>
+<a name="ln-914"></a>
+<a name="ln-915"></a>      <span class="k">module subroutine </span><span class="n">util_coord_h2b_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
+<a name="ln-916"></a>         <span class="k">implicit none</span>
+<a name="ln-917"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest test particle object</span>
+<a name="ln-918"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
+<a name="ln-919"></a>      <span class="k">end subroutine </span><span class="n">util_coord_h2b_tp</span>
+<a name="ln-920"></a>
+<a name="ln-921"></a>      <span class="k">module subroutine </span><span class="n">util_copy_encounter</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">)</span>
+<a name="ln-922"></a>         <span class="k">implicit none</span>
+<a name="ln-923"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Encounter list </span>
+<a name="ln-924"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span> <span class="c">!! Source object to copy into</span>
+<a name="ln-925"></a>      <span class="k">end subroutine </span><span class="n">util_copy_encounter</span>
+<a name="ln-926"></a>
+<a name="ln-927"></a>      <span class="k">module subroutine </span><span class="n">util_exit</span><span class="p">(</span><span class="n">code</span><span class="p">)</span>
+<a name="ln-928"></a>         <span class="k">implicit none</span>
+<a name="ln-929"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">code</span> <span class="c">!! Failure exit code</span>
+<a name="ln-930"></a>      <span class="k">end subroutine </span><span class="n">util_exit</span>
 <a name="ln-931"></a>
-<a name="ln-932"></a>      <span class="k">module subroutine </span><span class="n">util_fill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-932"></a>      <span class="k">module subroutine </span><span class="n">util_fill_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
 <a name="ln-933"></a>         <span class="k">implicit none</span>
-<a name="ln-934"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! Swiftest massive body object</span>
+<a name="ln-934"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! Swiftest body object</span>
 <a name="ln-935"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Swiftest body object to be inserted</span>
 <a name="ln-936"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-937"></a>      <span class="k">end subroutine </span><span class="n">util_fill_pl</span>
+<a name="ln-937"></a>      <span class="k">end subroutine </span><span class="n">util_fill_body</span>
 <a name="ln-938"></a>
-<a name="ln-939"></a>      <span class="k">module subroutine </span><span class="n">util_fill_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-939"></a>      <span class="k">module subroutine </span><span class="n">util_fill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
 <a name="ln-940"></a>         <span class="k">implicit none</span>
-<a name="ln-941"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! Swiftest test particle object</span>
+<a name="ln-941"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! Swiftest massive body object</span>
 <a name="ln-942"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Swiftest body object to be inserted</span>
 <a name="ln-943"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-944"></a>      <span class="k">end subroutine </span><span class="n">util_fill_tp</span>
-<a name="ln-945"></a>   <span class="k">end interface</span>
-<a name="ln-946"></a>
-<a name="ln-947"></a><span class="k">   interface </span><span class="n">util_fill</span>
-<a name="ln-948"></a>      <span class="k">module subroutine </span><span class="n">util_fill_arr_char_string</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-949"></a>         <span class="k">implicit none</span>
-<a name="ln-950"></a><span class="k">         </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
-<a name="ln-951"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
-<a name="ln-952"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-953"></a>      <span class="k">end subroutine </span><span class="n">util_fill_arr_char_string</span>
-<a name="ln-954"></a>
-<a name="ln-955"></a>      <span class="k">module subroutine </span><span class="n">util_fill_arr_DP</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-944"></a>      <span class="k">end subroutine </span><span class="n">util_fill_pl</span>
+<a name="ln-945"></a>
+<a name="ln-946"></a>      <span class="k">module subroutine </span><span class="n">util_fill_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-947"></a>         <span class="k">implicit none</span>
+<a name="ln-948"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! Swiftest test particle object</span>
+<a name="ln-949"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Swiftest body object to be inserted</span>
+<a name="ln-950"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-951"></a>      <span class="k">end subroutine </span><span class="n">util_fill_tp</span>
+<a name="ln-952"></a>   <span class="k">end interface</span>
+<a name="ln-953"></a>
+<a name="ln-954"></a><span class="k">   interface </span><span class="n">util_fill</span>
+<a name="ln-955"></a>      <span class="k">module subroutine </span><span class="n">util_fill_arr_char_string</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
 <a name="ln-956"></a>         <span class="k">implicit none</span>
-<a name="ln-957"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
-<a name="ln-958"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
-<a name="ln-959"></a>         <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-960"></a>      <span class="k">end subroutine </span><span class="n">util_fill_arr_DP</span>
+<a name="ln-957"></a><span class="k">         </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
+<a name="ln-958"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
+<a name="ln-959"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-960"></a>      <span class="k">end subroutine </span><span class="n">util_fill_arr_char_string</span>
 <a name="ln-961"></a>
-<a name="ln-962"></a>      <span class="k">module subroutine </span><span class="n">util_fill_arr_DPvec</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-962"></a>      <span class="k">module subroutine </span><span class="n">util_fill_arr_DP</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
 <a name="ln-963"></a>         <span class="k">implicit none</span>
-<a name="ln-964"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
-<a name="ln-965"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
-<a name="ln-966"></a>         <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-967"></a>      <span class="k">end subroutine </span><span class="n">util_fill_arr_DPvec</span>
+<a name="ln-964"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
+<a name="ln-965"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
+<a name="ln-966"></a>         <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-967"></a>      <span class="k">end subroutine </span><span class="n">util_fill_arr_DP</span>
 <a name="ln-968"></a>
-<a name="ln-969"></a>      <span class="k">module subroutine </span><span class="n">util_fill_arr_I4B</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-969"></a>      <span class="k">module subroutine </span><span class="n">util_fill_arr_DPvec</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
 <a name="ln-970"></a>         <span class="k">implicit none</span>
-<a name="ln-971"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
-<a name="ln-972"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
-<a name="ln-973"></a>         <span class="kt">logical</span><span class="p">,</span>      <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-974"></a>      <span class="k">end subroutine </span><span class="n">util_fill_arr_I4B</span>
+<a name="ln-971"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
+<a name="ln-972"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
+<a name="ln-973"></a>         <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-974"></a>      <span class="k">end subroutine </span><span class="n">util_fill_arr_DPvec</span>
 <a name="ln-975"></a>
-<a name="ln-976"></a>      <span class="k">module subroutine </span><span class="n">util_fill_arr_logical</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-976"></a>      <span class="k">module subroutine </span><span class="n">util_fill_arr_I4B</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
 <a name="ln-977"></a>         <span class="k">implicit none</span>
-<a name="ln-978"></a><span class="k">         </span><span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
-<a name="ln-979"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
-<a name="ln-980"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-981"></a>      <span class="k">end subroutine </span><span class="n">util_fill_arr_logical</span>
-<a name="ln-982"></a>   <span class="k">end interface</span>
-<a name="ln-983"></a>
-<a name="ln-984"></a><span class="k">   interface</span>
-<a name="ln-985"></a><span class="k">      module function </span><span class="n">util_minimize_bfgs</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">eps</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">x1</span><span class="p">)</span>
-<a name="ln-986"></a>         <span class="k">use </span><span class="n">lambda_function</span>
-<a name="ln-987"></a>         <span class="k">implicit none</span>
-<a name="ln-988"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">N</span>
-<a name="ln-989"></a>         <span class="k">class</span><span class="p">(</span><span class="n">lambda_obj</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">f</span>
-<a name="ln-990"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">x0</span>
-<a name="ln-991"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">eps</span>
-<a name="ln-992"></a>         <span class="kt">logical</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">lerr</span>
-<a name="ln-993"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">x1</span>
-<a name="ln-994"></a>      <span class="k">end function </span><span class="n">util_minimize_bfgs</span>
-<a name="ln-995"></a>
-<a name="ln-996"></a>      <span class="k">module subroutine </span><span class="n">util_peri_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
-<a name="ln-997"></a>         <span class="k">implicit none</span>
-<a name="ln-998"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest test particle object</span>
-<a name="ln-999"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-1000"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
-<a name="ln-1001"></a>      <span class="k">end subroutine </span><span class="n">util_peri_tp</span>
-<a name="ln-1002"></a>   <span class="k">end interface</span>
-<a name="ln-1003"></a>
-<a name="ln-1004"></a><span class="k">   interface </span><span class="n">util_solve_linear_system</span>
-<a name="ln-1005"></a>      <span class="k">module function </span><span class="n">util_solve_linear_system_d</span><span class="p">(</span><span class="n">A</span><span class="p">,</span><span class="n">b</span><span class="p">,</span><span class="n">n</span><span class="p">,</span><span class="n">lerr</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a name="ln-1006"></a>         <span class="k">implicit none</span>
-<a name="ln-1007"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>             <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">n</span>
-<a name="ln-1008"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">A</span>
-<a name="ln-1009"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">b</span>
-<a name="ln-1010"></a>         <span class="kt">logical</span><span class="p">,</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lerr</span>
-<a name="ln-1011"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">n</span><span class="p">)</span>                <span class="kd">::</span> <span class="n">x</span>
-<a name="ln-1012"></a>      <span class="k">end function </span><span class="n">util_solve_linear_system_d</span>
-<a name="ln-1013"></a>
-<a name="ln-1014"></a>      <span class="k">module function </span><span class="n">util_solve_linear_system_q</span><span class="p">(</span><span class="n">A</span><span class="p">,</span><span class="n">b</span><span class="p">,</span><span class="n">n</span><span class="p">,</span><span class="n">lerr</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
-<a name="ln-1015"></a>         <span class="k">implicit none</span>
-<a name="ln-1016"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>             <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">n</span>
-<a name="ln-1017"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">QP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">A</span>
-<a name="ln-1018"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">QP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">b</span>
-<a name="ln-1019"></a>         <span class="kt">logical</span><span class="p">,</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lerr</span>
-<a name="ln-1020"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">QP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">n</span><span class="p">)</span>                <span class="kd">::</span> <span class="n">x</span>
-<a name="ln-1021"></a>      <span class="k">end function </span><span class="n">util_solve_linear_system_q</span>
-<a name="ln-1022"></a>   <span class="k">end interface</span>
-<a name="ln-1023"></a>
-<a name="ln-1024"></a><span class="k">   interface</span>
-<a name="ln-1025"></a><span class="k">      module function </span><span class="n">util_solve_rkf45</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">y0in</span><span class="p">,</span> <span class="n">t1</span><span class="p">,</span> <span class="n">dt0</span><span class="p">,</span> <span class="n">tol</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">y1</span><span class="p">)</span>
-<a name="ln-1026"></a>         <span class="k">use </span><span class="n">lambda_function</span>
+<a name="ln-978"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
+<a name="ln-979"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
+<a name="ln-980"></a>         <span class="kt">logical</span><span class="p">,</span>      <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-981"></a>      <span class="k">end subroutine </span><span class="n">util_fill_arr_I4B</span>
+<a name="ln-982"></a>
+<a name="ln-983"></a>      <span class="k">module subroutine </span><span class="n">util_fill_arr_logical</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-984"></a>         <span class="k">implicit none</span>
+<a name="ln-985"></a><span class="k">         </span><span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
+<a name="ln-986"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
+<a name="ln-987"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-988"></a>      <span class="k">end subroutine </span><span class="n">util_fill_arr_logical</span>
+<a name="ln-989"></a>   <span class="k">end interface</span>
+<a name="ln-990"></a>
+<a name="ln-991"></a><span class="k">   interface</span>
+<a name="ln-992"></a><span class="k">      module subroutine </span><span class="n">util_rescale_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">mscale</span><span class="p">,</span> <span class="n">dscale</span><span class="p">,</span> <span class="n">tscale</span><span class="p">)</span>
+<a name="ln-993"></a>         <span class="k">implicit none</span>
+<a name="ln-994"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-995"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters. Returns with new values of the scale vactors and GU</span>
+<a name="ln-996"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">mscale</span><span class="p">,</span> <span class="n">dscale</span><span class="p">,</span> <span class="n">tscale</span> <span class="c">!! Scale factors for mass, distance, and time units, respectively. </span>
+<a name="ln-997"></a>      <span class="k">end subroutine </span><span class="n">util_rescale_system</span>
+<a name="ln-998"></a>
+<a name="ln-999"></a>      <span class="k">module function </span><span class="n">util_minimize_bfgs</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">N</span><span class="p">,</span> <span class="n">x0</span><span class="p">,</span> <span class="n">eps</span><span class="p">,</span> <span class="n">lerr</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">x1</span><span class="p">)</span>
+<a name="ln-1000"></a>         <span class="k">use </span><span class="n">lambda_function</span>
+<a name="ln-1001"></a>         <span class="k">implicit none</span>
+<a name="ln-1002"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">N</span>
+<a name="ln-1003"></a>         <span class="k">class</span><span class="p">(</span><span class="n">lambda_obj</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">f</span>
+<a name="ln-1004"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">x0</span>
+<a name="ln-1005"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">eps</span>
+<a name="ln-1006"></a>         <span class="kt">logical</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">lerr</span>
+<a name="ln-1007"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">x1</span>
+<a name="ln-1008"></a>      <span class="k">end function </span><span class="n">util_minimize_bfgs</span>
+<a name="ln-1009"></a>
+<a name="ln-1010"></a>      <span class="k">module subroutine </span><span class="n">util_peri_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
+<a name="ln-1011"></a>         <span class="k">implicit none</span>
+<a name="ln-1012"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest test particle object</span>
+<a name="ln-1013"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-1014"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
+<a name="ln-1015"></a>      <span class="k">end subroutine </span><span class="n">util_peri_tp</span>
+<a name="ln-1016"></a>   <span class="k">end interface</span>
+<a name="ln-1017"></a>
+<a name="ln-1018"></a>
+<a name="ln-1019"></a><span class="k">   interface </span><span class="n">util_resize</span>
+<a name="ln-1020"></a>      <span class="k">module subroutine </span><span class="n">util_resize_arr_char_string</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-1021"></a>         <span class="k">implicit none</span>
+<a name="ln-1022"></a><span class="k">         </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
+<a name="ln-1023"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
+<a name="ln-1024"></a>      <span class="k">end subroutine </span><span class="n">util_resize_arr_char_string</span>
+<a name="ln-1025"></a>
+<a name="ln-1026"></a>      <span class="k">module subroutine </span><span class="n">util_resize_arr_DP</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
 <a name="ln-1027"></a>         <span class="k">implicit none</span>
-<a name="ln-1028"></a><span class="k">         class</span><span class="p">(</span><span class="n">lambda_obj</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">f</span>    <span class="c">!! lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set</span>
-<a name="ln-1029"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">y0in</span> <span class="c">!! Initial value at t=0</span>
-<a name="ln-1030"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t1</span>   <span class="c">!! Final time</span>
-<a name="ln-1031"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt0</span>  <span class="c">!! Initial step size guess</span>
-<a name="ln-1032"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">tol</span>  <span class="c">!! Tolerance on solution</span>
-<a name="ln-1033"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>   <span class="kd">::</span> <span class="n">y1</span>  <span class="c">!! Final result</span>
-<a name="ln-1034"></a>      <span class="k">end function </span><span class="n">util_solve_rkf45</span>
-<a name="ln-1035"></a>   <span class="k">end interface</span>
-<a name="ln-1036"></a>
-<a name="ln-1037"></a><span class="k">   interface </span><span class="n">util_resize</span>
-<a name="ln-1038"></a>      <span class="k">module subroutine </span><span class="n">util_resize_arr_char_string</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-1028"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
+<a name="ln-1029"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
+<a name="ln-1030"></a>      <span class="k">end subroutine </span><span class="n">util_resize_arr_DP</span>
+<a name="ln-1031"></a>
+<a name="ln-1032"></a>      <span class="k">module subroutine </span><span class="n">util_resize_arr_DPvec</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-1033"></a>         <span class="k">implicit none</span>
+<a name="ln-1034"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
+<a name="ln-1035"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                          <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
+<a name="ln-1036"></a>      <span class="k">end subroutine </span><span class="n">util_resize_arr_DPvec</span>
+<a name="ln-1037"></a>
+<a name="ln-1038"></a>      <span class="k">module subroutine </span><span class="n">util_resize_arr_I4B</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
 <a name="ln-1039"></a>         <span class="k">implicit none</span>
-<a name="ln-1040"></a><span class="k">         </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
-<a name="ln-1041"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
-<a name="ln-1042"></a>      <span class="k">end subroutine </span><span class="n">util_resize_arr_char_string</span>
+<a name="ln-1040"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
+<a name="ln-1041"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
+<a name="ln-1042"></a>      <span class="k">end subroutine </span><span class="n">util_resize_arr_I4B</span>
 <a name="ln-1043"></a>
-<a name="ln-1044"></a>      <span class="k">module subroutine </span><span class="n">util_resize_arr_DP</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-1044"></a>      <span class="k">module subroutine </span><span class="n">util_resize_arr_logical</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
 <a name="ln-1045"></a>         <span class="k">implicit none</span>
-<a name="ln-1046"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
-<a name="ln-1047"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
-<a name="ln-1048"></a>      <span class="k">end subroutine </span><span class="n">util_resize_arr_DP</span>
-<a name="ln-1049"></a>
-<a name="ln-1050"></a>      <span class="k">module subroutine </span><span class="n">util_resize_arr_DPvec</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-1051"></a>         <span class="k">implicit none</span>
-<a name="ln-1052"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
-<a name="ln-1053"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                          <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
-<a name="ln-1054"></a>      <span class="k">end subroutine </span><span class="n">util_resize_arr_DPvec</span>
-<a name="ln-1055"></a>
-<a name="ln-1056"></a>      <span class="k">module subroutine </span><span class="n">util_resize_arr_I4B</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-1057"></a>         <span class="k">implicit none</span>
-<a name="ln-1058"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
-<a name="ln-1059"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
-<a name="ln-1060"></a>      <span class="k">end subroutine </span><span class="n">util_resize_arr_I4B</span>
-<a name="ln-1061"></a>
-<a name="ln-1062"></a>      <span class="k">module subroutine </span><span class="n">util_resize_arr_logical</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-1063"></a>         <span class="k">implicit none</span>
-<a name="ln-1064"></a><span class="k">         </span><span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
-<a name="ln-1065"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
-<a name="ln-1066"></a>      <span class="k">end subroutine </span><span class="n">util_resize_arr_logical</span>
-<a name="ln-1067"></a>   <span class="k">end interface</span>
-<a name="ln-1068"></a>
-<a name="ln-1069"></a><span class="k">   interface</span>
-<a name="ln-1070"></a><span class="k">      module subroutine </span><span class="n">util_resize_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-1046"></a><span class="k">         </span><span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
+<a name="ln-1047"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
+<a name="ln-1048"></a>      <span class="k">end subroutine </span><span class="n">util_resize_arr_logical</span>
+<a name="ln-1049"></a>   <span class="k">end interface</span>
+<a name="ln-1050"></a>
+<a name="ln-1051"></a><span class="k">   interface</span>
+<a name="ln-1052"></a><span class="k">      module subroutine </span><span class="n">util_resize_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-1053"></a>         <span class="k">implicit none</span>
+<a name="ln-1054"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest body object</span>
+<a name="ln-1055"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size neded</span>
+<a name="ln-1056"></a>      <span class="k">end subroutine </span><span class="n">util_resize_body</span>
+<a name="ln-1057"></a>
+<a name="ln-1058"></a>      <span class="k">module subroutine </span><span class="n">util_resize_encounter</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-1059"></a>         <span class="k">implicit none</span>
+<a name="ln-1060"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest encounter list </span>
+<a name="ln-1061"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size of list needed</span>
+<a name="ln-1062"></a>      <span class="k">end subroutine </span><span class="n">util_resize_encounter</span>
+<a name="ln-1063"></a>
+<a name="ln-1064"></a>      <span class="k">module subroutine </span><span class="n">util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-1065"></a>         <span class="k">implicit none</span>
+<a name="ln-1066"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
+<a name="ln-1067"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size neded</span>
+<a name="ln-1068"></a>      <span class="k">end subroutine </span><span class="n">util_resize_pl</span>
+<a name="ln-1069"></a>
+<a name="ln-1070"></a>      <span class="k">module subroutine </span><span class="n">util_resize_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
 <a name="ln-1071"></a>         <span class="k">implicit none</span>
-<a name="ln-1072"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest body object</span>
-<a name="ln-1073"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size neded</span>
-<a name="ln-1074"></a>      <span class="k">end subroutine </span><span class="n">util_resize_body</span>
+<a name="ln-1072"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest test particle object</span>
+<a name="ln-1073"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size neded</span>
+<a name="ln-1074"></a>      <span class="k">end subroutine </span><span class="n">util_resize_tp</span>
 <a name="ln-1075"></a>
-<a name="ln-1076"></a>      <span class="k">module subroutine </span><span class="n">util_resize_encounter</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-1076"></a>      <span class="k">module subroutine </span><span class="n">util_get_energy_momentum_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
 <a name="ln-1077"></a>         <span class="k">implicit none</span>
-<a name="ln-1078"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest encounter list </span>
-<a name="ln-1079"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size of list needed</span>
-<a name="ln-1080"></a>      <span class="k">end subroutine </span><span class="n">util_resize_encounter</span>
+<a name="ln-1078"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>     <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-1079"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>    <span class="c">!! Current run configuration parameters</span>
+<a name="ln-1080"></a>      <span class="k">end subroutine </span><span class="n">util_get_energy_momentum_system</span>
 <a name="ln-1081"></a>
-<a name="ln-1082"></a>      <span class="k">module subroutine </span><span class="n">util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-1082"></a>      <span class="k">module subroutine </span><span class="n">util_set_beg_end_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">xbeg</span><span class="p">,</span> <span class="n">xend</span><span class="p">,</span> <span class="n">vbeg</span><span class="p">)</span>
 <a name="ln-1083"></a>         <span class="k">implicit none</span>
-<a name="ln-1084"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
-<a name="ln-1085"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size neded</span>
-<a name="ln-1086"></a>      <span class="k">end subroutine </span><span class="n">util_resize_pl</span>
-<a name="ln-1087"></a>
-<a name="ln-1088"></a>      <span class="k">module subroutine </span><span class="n">util_resize_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-1089"></a>         <span class="k">implicit none</span>
-<a name="ln-1090"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest test particle object</span>
-<a name="ln-1091"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size neded</span>
-<a name="ln-1092"></a>      <span class="k">end subroutine </span><span class="n">util_resize_tp</span>
-<a name="ln-1093"></a>
-<a name="ln-1094"></a>      <span class="k">module subroutine </span><span class="n">util_get_energy_momentum_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-1095"></a>         <span class="k">implicit none</span>
-<a name="ln-1096"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>     <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-1097"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>    <span class="c">!! Current run configuration parameters</span>
-<a name="ln-1098"></a>      <span class="k">end subroutine </span><span class="n">util_get_energy_momentum_system</span>
+<a name="ln-1084"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
+<a name="ln-1085"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span>   <span class="k">optional</span> <span class="kd">::</span> <span class="n">xbeg</span> <span class="c">!! Position vectors at beginning of step</span>
+<a name="ln-1086"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span>   <span class="k">optional</span> <span class="kd">::</span> <span class="n">xend</span> <span class="c">!! Positions vectors at end of step</span>
+<a name="ln-1087"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span>   <span class="k">optional</span> <span class="kd">::</span> <span class="n">vbeg</span> <span class="c">!! vbeg is an unused variable to keep this method forward compatible with RMVS</span>
+<a name="ln-1088"></a>      <span class="k">end subroutine </span><span class="n">util_set_beg_end_pl</span>
+<a name="ln-1089"></a>
+<a name="ln-1090"></a>      <span class="k">module subroutine </span><span class="n">util_set_ir3h</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-1091"></a>         <span class="k">implicit none</span>
+<a name="ln-1092"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest body object</span>
+<a name="ln-1093"></a>      <span class="k">end subroutine </span><span class="n">util_set_ir3h</span>
+<a name="ln-1094"></a>
+<a name="ln-1095"></a>      <span class="k">module subroutine </span><span class="n">util_set_msys</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-1096"></a>         <span class="k">implicit none</span>
+<a name="ln-1097"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest system object</span>
+<a name="ln-1098"></a>      <span class="k">end subroutine </span><span class="n">util_set_msys</span>
 <a name="ln-1099"></a>
-<a name="ln-1100"></a>      <span class="k">module subroutine </span><span class="n">util_set_beg_end_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">xbeg</span><span class="p">,</span> <span class="n">xend</span><span class="p">,</span> <span class="n">vbeg</span><span class="p">)</span>
+<a name="ln-1100"></a>      <span class="k">module subroutine </span><span class="n">util_set_mu_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
 <a name="ln-1101"></a>         <span class="k">implicit none</span>
-<a name="ln-1102"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
-<a name="ln-1103"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span>   <span class="k">optional</span> <span class="kd">::</span> <span class="n">xbeg</span> <span class="c">!! Position vectors at beginning of step</span>
-<a name="ln-1104"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span>   <span class="k">optional</span> <span class="kd">::</span> <span class="n">xend</span> <span class="c">!! Positions vectors at end of step</span>
-<a name="ln-1105"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">),</span>   <span class="k">optional</span> <span class="kd">::</span> <span class="n">vbeg</span> <span class="c">!! vbeg is an unused variable to keep this method forward compatible with RMVS</span>
-<a name="ln-1106"></a>      <span class="k">end subroutine </span><span class="n">util_set_beg_end_pl</span>
-<a name="ln-1107"></a>
-<a name="ln-1108"></a>      <span class="k">module subroutine </span><span class="n">util_set_ir3h</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
-<a name="ln-1109"></a>         <span class="k">implicit none</span>
-<a name="ln-1110"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest body object</span>
-<a name="ln-1111"></a>      <span class="k">end subroutine </span><span class="n">util_set_ir3h</span>
-<a name="ln-1112"></a>
-<a name="ln-1113"></a>      <span class="k">module subroutine </span><span class="n">util_set_msys</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
-<a name="ln-1114"></a>         <span class="k">implicit none</span>
-<a name="ln-1115"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest system object</span>
-<a name="ln-1116"></a>      <span class="k">end subroutine </span><span class="n">util_set_msys</span>
+<a name="ln-1102"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
+<a name="ln-1103"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
+<a name="ln-1104"></a>      <span class="k">end subroutine </span><span class="n">util_set_mu_pl</span>
+<a name="ln-1105"></a>
+<a name="ln-1106"></a>      <span class="k">module subroutine </span><span class="n">util_set_mu_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
+<a name="ln-1107"></a>         <span class="k">implicit none</span>
+<a name="ln-1108"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest test particle object</span>
+<a name="ln-1109"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
+<a name="ln-1110"></a>      <span class="k">end subroutine </span><span class="n">util_set_mu_tp</span>
+<a name="ln-1111"></a>
+<a name="ln-1112"></a>      <span class="k">module subroutine </span><span class="n">util_set_rhill</span><span class="p">(</span><span class="n">self</span><span class="p">,</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-1113"></a>         <span class="k">implicit none</span>
+<a name="ln-1114"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
+<a name="ln-1115"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
+<a name="ln-1116"></a>      <span class="k">end subroutine </span><span class="n">util_set_rhill</span>
 <a name="ln-1117"></a>
-<a name="ln-1118"></a>      <span class="k">module subroutine </span><span class="n">util_set_mu_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
+<a name="ln-1118"></a>      <span class="k">module subroutine </span><span class="n">util_set_rhill_approximate</span><span class="p">(</span><span class="n">self</span><span class="p">,</span><span class="n">cb</span><span class="p">)</span>
 <a name="ln-1119"></a>         <span class="k">implicit none</span>
 <a name="ln-1120"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
 <a name="ln-1121"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
-<a name="ln-1122"></a>      <span class="k">end subroutine </span><span class="n">util_set_mu_pl</span>
-<a name="ln-1123"></a>
-<a name="ln-1124"></a>      <span class="k">module subroutine </span><span class="n">util_set_mu_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
-<a name="ln-1125"></a>         <span class="k">implicit none</span>
-<a name="ln-1126"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest test particle object</span>
-<a name="ln-1127"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
-<a name="ln-1128"></a>      <span class="k">end subroutine </span><span class="n">util_set_mu_tp</span>
-<a name="ln-1129"></a>
-<a name="ln-1130"></a>      <span class="k">module subroutine </span><span class="n">util_set_rhill</span><span class="p">(</span><span class="n">self</span><span class="p">,</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-1131"></a>         <span class="k">implicit none</span>
-<a name="ln-1132"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
-<a name="ln-1133"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
-<a name="ln-1134"></a>      <span class="k">end subroutine </span><span class="n">util_set_rhill</span>
-<a name="ln-1135"></a>
-<a name="ln-1136"></a>      <span class="k">module subroutine </span><span class="n">util_set_rhill_approximate</span><span class="p">(</span><span class="n">self</span><span class="p">,</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-1137"></a>         <span class="k">implicit none</span>
-<a name="ln-1138"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
-<a name="ln-1139"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
-<a name="ln-1140"></a>      <span class="k">end subroutine </span><span class="n">util_set_rhill_approximate</span>
-<a name="ln-1141"></a>   <span class="k">end interface</span>
-<a name="ln-1142"></a>
-<a name="ln-1143"></a><span class="k">   interface </span><span class="n">util_sort</span>
-<a name="ln-1144"></a>      <span class="k">module subroutine </span><span class="n">util_sort_i4b</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-1145"></a>         <span class="k">implicit none</span>
-<a name="ln-1146"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>
-<a name="ln-1147"></a>      <span class="k">end subroutine </span><span class="n">util_sort_i4b</span>
-<a name="ln-1148"></a>
-<a name="ln-1149"></a>      <span class="k">module subroutine </span><span class="n">util_sort_index_i4b</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span><span class="n">ind</span><span class="p">)</span>
-<a name="ln-1150"></a>         <span class="k">implicit none</span>
-<a name="ln-1151"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">arr</span>
-<a name="ln-1152"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ind</span>
-<a name="ln-1153"></a>      <span class="k">end subroutine </span><span class="n">util_sort_index_i4b</span>
-<a name="ln-1154"></a>
-<a name="ln-1155"></a>      <span class="k">module subroutine </span><span class="n">util_sort_sp</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-1156"></a>         <span class="k">implicit none</span>
-<a name="ln-1157"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">SP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>
-<a name="ln-1158"></a>      <span class="k">end subroutine </span><span class="n">util_sort_sp</span>
-<a name="ln-1159"></a>
-<a name="ln-1160"></a>      <span class="k">module subroutine </span><span class="n">util_sort_index_sp</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span><span class="n">ind</span><span class="p">)</span>
-<a name="ln-1161"></a>         <span class="k">implicit none</span>
-<a name="ln-1162"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">SP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">arr</span>
-<a name="ln-1163"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ind</span>
-<a name="ln-1164"></a>      <span class="k">end subroutine </span><span class="n">util_sort_index_sp</span>
-<a name="ln-1165"></a>
-<a name="ln-1166"></a>      <span class="k">module subroutine </span><span class="n">util_sort_dp</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-1167"></a>         <span class="k">implicit none</span>
-<a name="ln-1168"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>
-<a name="ln-1169"></a>      <span class="k">end subroutine </span><span class="n">util_sort_dp</span>
-<a name="ln-1170"></a>
-<a name="ln-1171"></a>      <span class="k">module subroutine </span><span class="n">util_sort_index_dp</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span><span class="n">ind</span><span class="p">)</span>
-<a name="ln-1172"></a>         <span class="k">implicit none</span>
-<a name="ln-1173"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">arr</span>
-<a name="ln-1174"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ind</span>
-<a name="ln-1175"></a>      <span class="k">end subroutine </span><span class="n">util_sort_index_dp</span>
-<a name="ln-1176"></a>   <span class="k">end interface </span><span class="n">util_sort</span>
-<a name="ln-1177"></a>
-<a name="ln-1178"></a>   <span class="k">interface</span>
-<a name="ln-1179"></a><span class="k">      module subroutine </span><span class="n">util_sort_rearrange_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
-<a name="ln-1180"></a>         <span class="k">implicit none</span>
-<a name="ln-1181"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest body object</span>
-<a name="ln-1182"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>         <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
-<a name="ln-1183"></a>      <span class="k">end subroutine </span><span class="n">util_sort_rearrange_body</span>
-<a name="ln-1184"></a>
-<a name="ln-1185"></a>      <span class="k">module subroutine </span><span class="n">util_sort_rearrange_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
-<a name="ln-1186"></a>         <span class="k">implicit none</span>
-<a name="ln-1187"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
-<a name="ln-1188"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>         <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
-<a name="ln-1189"></a>      <span class="k">end subroutine </span><span class="n">util_sort_rearrange_pl</span>
-<a name="ln-1190"></a>
-<a name="ln-1191"></a>      <span class="k">module subroutine </span><span class="n">util_sort_rearrange_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
-<a name="ln-1192"></a>         <span class="k">implicit none</span>
-<a name="ln-1193"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest test particle object</span>
-<a name="ln-1194"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>         <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
-<a name="ln-1195"></a>      <span class="k">end subroutine </span><span class="n">util_sort_rearrange_tp</span>
-<a name="ln-1196"></a>
-<a name="ln-1197"></a>      <span class="k">module subroutine </span><span class="n">util_sort_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
-<a name="ln-1198"></a>         <span class="k">implicit none</span>
-<a name="ln-1199"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>    <span class="c">!! Swiftest body object</span>
-<a name="ln-1200"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>  <span class="c">!! Sorting attribute</span>
-<a name="ln-1201"></a>         <span class="kt">logical</span><span class="p">,</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
-<a name="ln-1202"></a>      <span class="k">end subroutine </span><span class="n">util_sort_body</span>
-<a name="ln-1203"></a>
-<a name="ln-1204"></a>      <span class="k">module subroutine </span><span class="n">util_sort_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
-<a name="ln-1205"></a>         <span class="k">implicit none</span>
-<a name="ln-1206"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>    <span class="c">!! Swiftest body object</span>
-<a name="ln-1207"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>  <span class="c">!! Sorting attribute</span>
-<a name="ln-1208"></a>         <span class="kt">logical</span><span class="p">,</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
-<a name="ln-1209"></a>      <span class="k">end subroutine </span><span class="n">util_sort_pl</span>
-<a name="ln-1210"></a>
-<a name="ln-1211"></a>      <span class="k">module subroutine </span><span class="n">util_sort_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
-<a name="ln-1212"></a>         <span class="k">implicit none</span>
-<a name="ln-1213"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>    <span class="c">!! Swiftest body object</span>
-<a name="ln-1214"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>  <span class="c">!! Sorting attribute</span>
-<a name="ln-1215"></a>         <span class="kt">logical</span><span class="p">,</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
-<a name="ln-1216"></a>      <span class="k">end subroutine </span><span class="n">util_sort_tp</span>
-<a name="ln-1217"></a>   <span class="k">end interface</span>
+<a name="ln-1122"></a>      <span class="k">end subroutine </span><span class="n">util_set_rhill_approximate</span>
+<a name="ln-1123"></a>   <span class="k">end interface</span>
+<a name="ln-1124"></a>
+<a name="ln-1125"></a><span class="k">   interface </span><span class="n">util_solve_linear_system</span>
+<a name="ln-1126"></a>      <span class="k">module function </span><span class="n">util_solve_linear_system_d</span><span class="p">(</span><span class="n">A</span><span class="p">,</span><span class="n">b</span><span class="p">,</span><span class="n">n</span><span class="p">,</span><span class="n">lerr</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a name="ln-1127"></a>         <span class="k">implicit none</span>
+<a name="ln-1128"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>             <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">n</span>
+<a name="ln-1129"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">A</span>
+<a name="ln-1130"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">b</span>
+<a name="ln-1131"></a>         <span class="kt">logical</span><span class="p">,</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lerr</span>
+<a name="ln-1132"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">n</span><span class="p">)</span>                <span class="kd">::</span> <span class="n">x</span>
+<a name="ln-1133"></a>      <span class="k">end function </span><span class="n">util_solve_linear_system_d</span>
+<a name="ln-1134"></a>
+<a name="ln-1135"></a>      <span class="k">module function </span><span class="n">util_solve_linear_system_q</span><span class="p">(</span><span class="n">A</span><span class="p">,</span><span class="n">b</span><span class="p">,</span><span class="n">n</span><span class="p">,</span><span class="n">lerr</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">x</span><span class="p">)</span>
+<a name="ln-1136"></a>         <span class="k">implicit none</span>
+<a name="ln-1137"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>             <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">n</span>
+<a name="ln-1138"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">QP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">A</span>
+<a name="ln-1139"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">QP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">b</span>
+<a name="ln-1140"></a>         <span class="kt">logical</span><span class="p">,</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lerr</span>
+<a name="ln-1141"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">QP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">n</span><span class="p">)</span>                <span class="kd">::</span> <span class="n">x</span>
+<a name="ln-1142"></a>      <span class="k">end function </span><span class="n">util_solve_linear_system_q</span>
+<a name="ln-1143"></a>   <span class="k">end interface</span>
+<a name="ln-1144"></a>
+<a name="ln-1145"></a><span class="k">   interface</span>
+<a name="ln-1146"></a><span class="k">      module function </span><span class="n">util_solve_rkf45</span><span class="p">(</span><span class="n">f</span><span class="p">,</span> <span class="n">y0in</span><span class="p">,</span> <span class="n">t1</span><span class="p">,</span> <span class="n">dt0</span><span class="p">,</span> <span class="n">tol</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">y1</span><span class="p">)</span>
+<a name="ln-1147"></a>         <span class="k">use </span><span class="n">lambda_function</span>
+<a name="ln-1148"></a>         <span class="k">implicit none</span>
+<a name="ln-1149"></a><span class="k">         class</span><span class="p">(</span><span class="n">lambda_obj</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">f</span>    <span class="c">!! lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set</span>
+<a name="ln-1150"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">y0in</span> <span class="c">!! Initial value at t=0</span>
+<a name="ln-1151"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t1</span>   <span class="c">!! Final time</span>
+<a name="ln-1152"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt0</span>  <span class="c">!! Initial step size guess</span>
+<a name="ln-1153"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">tol</span>  <span class="c">!! Tolerance on solution</span>
+<a name="ln-1154"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>   <span class="kd">::</span> <span class="n">y1</span>  <span class="c">!! Final result</span>
+<a name="ln-1155"></a>      <span class="k">end function </span><span class="n">util_solve_rkf45</span>
+<a name="ln-1156"></a>   <span class="k">end interface</span>
+<a name="ln-1157"></a>
+<a name="ln-1158"></a><span class="k">   interface </span><span class="n">util_sort</span>
+<a name="ln-1159"></a>      <span class="k">module subroutine </span><span class="n">util_sort_i4b</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-1160"></a>         <span class="k">implicit none</span>
+<a name="ln-1161"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>
+<a name="ln-1162"></a>      <span class="k">end subroutine </span><span class="n">util_sort_i4b</span>
+<a name="ln-1163"></a>
+<a name="ln-1164"></a>      <span class="k">module subroutine </span><span class="n">util_sort_index_i4b</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span><span class="n">ind</span><span class="p">)</span>
+<a name="ln-1165"></a>         <span class="k">implicit none</span>
+<a name="ln-1166"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">arr</span>
+<a name="ln-1167"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ind</span>
+<a name="ln-1168"></a>      <span class="k">end subroutine </span><span class="n">util_sort_index_i4b</span>
+<a name="ln-1169"></a>
+<a name="ln-1170"></a>      <span class="k">module subroutine </span><span class="n">util_sort_sp</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-1171"></a>         <span class="k">implicit none</span>
+<a name="ln-1172"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">SP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>
+<a name="ln-1173"></a>      <span class="k">end subroutine </span><span class="n">util_sort_sp</span>
+<a name="ln-1174"></a>
+<a name="ln-1175"></a>      <span class="k">module subroutine </span><span class="n">util_sort_index_sp</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span><span class="n">ind</span><span class="p">)</span>
+<a name="ln-1176"></a>         <span class="k">implicit none</span>
+<a name="ln-1177"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">SP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">arr</span>
+<a name="ln-1178"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ind</span>
+<a name="ln-1179"></a>      <span class="k">end subroutine </span><span class="n">util_sort_index_sp</span>
+<a name="ln-1180"></a>
+<a name="ln-1181"></a>      <span class="k">module subroutine </span><span class="n">util_sort_dp</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-1182"></a>         <span class="k">implicit none</span>
+<a name="ln-1183"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>
+<a name="ln-1184"></a>      <span class="k">end subroutine </span><span class="n">util_sort_dp</span>
+<a name="ln-1185"></a>
+<a name="ln-1186"></a>      <span class="k">module subroutine </span><span class="n">util_sort_index_dp</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span><span class="n">ind</span><span class="p">)</span>
+<a name="ln-1187"></a>         <span class="k">implicit none</span>
+<a name="ln-1188"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">arr</span>
+<a name="ln-1189"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ind</span>
+<a name="ln-1190"></a>      <span class="k">end subroutine </span><span class="n">util_sort_index_dp</span>
+<a name="ln-1191"></a>   <span class="k">end interface </span><span class="n">util_sort</span>
+<a name="ln-1192"></a>
+<a name="ln-1193"></a>   <span class="k">interface</span>
+<a name="ln-1194"></a><span class="k">      module subroutine </span><span class="n">util_sort_rearrange_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
+<a name="ln-1195"></a>         <span class="k">implicit none</span>
+<a name="ln-1196"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest body object</span>
+<a name="ln-1197"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>         <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
+<a name="ln-1198"></a>      <span class="k">end subroutine </span><span class="n">util_sort_rearrange_body</span>
+<a name="ln-1199"></a>
+<a name="ln-1200"></a>      <span class="k">module subroutine </span><span class="n">util_sort_rearrange_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
+<a name="ln-1201"></a>         <span class="k">implicit none</span>
+<a name="ln-1202"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
+<a name="ln-1203"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>         <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
+<a name="ln-1204"></a>      <span class="k">end subroutine </span><span class="n">util_sort_rearrange_pl</span>
+<a name="ln-1205"></a>
+<a name="ln-1206"></a>      <span class="k">module subroutine </span><span class="n">util_sort_rearrange_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
+<a name="ln-1207"></a>         <span class="k">implicit none</span>
+<a name="ln-1208"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest test particle object</span>
+<a name="ln-1209"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>         <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
+<a name="ln-1210"></a>      <span class="k">end subroutine </span><span class="n">util_sort_rearrange_tp</span>
+<a name="ln-1211"></a>
+<a name="ln-1212"></a>      <span class="k">module subroutine </span><span class="n">util_sort_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
+<a name="ln-1213"></a>         <span class="k">implicit none</span>
+<a name="ln-1214"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>    <span class="c">!! Swiftest body object</span>
+<a name="ln-1215"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>  <span class="c">!! Sorting attribute</span>
+<a name="ln-1216"></a>         <span class="kt">logical</span><span class="p">,</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
+<a name="ln-1217"></a>      <span class="k">end subroutine </span><span class="n">util_sort_body</span>
 <a name="ln-1218"></a>
-<a name="ln-1219"></a><span class="k">   interface </span><span class="n">util_spill</span>
-<a name="ln-1220"></a>      <span class="k">module subroutine </span><span class="n">util_spill_arr_char_string</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-1221"></a>         <span class="k">implicit none</span>
-<a name="ln-1222"></a><span class="k">         </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
-<a name="ln-1223"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array of discards</span>
-<a name="ln-1224"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discardss</span>
-<a name="ln-1225"></a>         <span class="kt">logical</span><span class="p">,</span>                                          <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
-<a name="ln-1226"></a>      <span class="k">end subroutine </span><span class="n">util_spill_arr_char_string</span>
-<a name="ln-1227"></a>
-<a name="ln-1228"></a>      <span class="k">module subroutine </span><span class="n">util_spill_arr_DP</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-1229"></a>         <span class="k">implicit none</span>
-<a name="ln-1230"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
-<a name="ln-1231"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array of discards</span>
-<a name="ln-1232"></a>         <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
-<a name="ln-1233"></a>         <span class="kt">logical</span><span class="p">,</span>                             <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
-<a name="ln-1234"></a>      <span class="k">end subroutine </span><span class="n">util_spill_arr_DP</span>
-<a name="ln-1235"></a>
-<a name="ln-1236"></a>      <span class="k">module subroutine </span><span class="n">util_spill_arr_DPvec</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-1237"></a>         <span class="k">implicit none</span>
-<a name="ln-1238"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
-<a name="ln-1239"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array discards</span>
-<a name="ln-1240"></a>         <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
-<a name="ln-1241"></a>         <span class="kt">logical</span><span class="p">,</span>                               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
-<a name="ln-1242"></a>      <span class="k">end subroutine </span><span class="n">util_spill_arr_DPvec</span>
-<a name="ln-1243"></a>
-<a name="ln-1244"></a>      <span class="k">module subroutine </span><span class="n">util_spill_arr_I4B</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-1245"></a>         <span class="k">implicit none</span>
-<a name="ln-1246"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
-<a name="ln-1247"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array of discards</span>
-<a name="ln-1248"></a>         <span class="kt">logical</span><span class="p">,</span>      <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discardss</span>
-<a name="ln-1249"></a>         <span class="kt">logical</span><span class="p">,</span>                                 <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
-<a name="ln-1250"></a>      <span class="k">end subroutine </span><span class="n">util_spill_arr_I4B</span>
-<a name="ln-1251"></a>
-<a name="ln-1252"></a>      <span class="k">module subroutine </span><span class="n">util_spill_arr_logical</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-1253"></a>         <span class="k">implicit none</span>
-<a name="ln-1254"></a><span class="k">         </span><span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
-<a name="ln-1255"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array of discards</span>
-<a name="ln-1256"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discardss</span>
-<a name="ln-1257"></a>         <span class="kt">logical</span><span class="p">,</span>                            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
-<a name="ln-1258"></a>      <span class="k">end subroutine </span><span class="n">util_spill_arr_logical</span>
-<a name="ln-1259"></a>   <span class="k">end interface</span>
-<a name="ln-1260"></a>
-<a name="ln-1261"></a><span class="k">   interface </span>
-<a name="ln-1262"></a><span class="k">      module subroutine </span><span class="n">util_spill_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-1263"></a>         <span class="k">implicit none</span>
-<a name="ln-1264"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>        <span class="c">!! Swiftest body object</span>
-<a name="ln-1265"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>    <span class="c">!! Discarded object </span>
-<a name="ln-1266"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span> <span class="c">!! Logical array of bodies to spill into the discards</span>
-<a name="ln-1267"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
-<a name="ln-1268"></a>      <span class="k">end subroutine </span><span class="n">util_spill_body</span>
-<a name="ln-1269"></a>
-<a name="ln-1270"></a>      <span class="k">module subroutine </span><span class="n">util_spill_encounter</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-1271"></a>         <span class="k">implicit none</span>
-<a name="ln-1272"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! Swiftest encounter list </span>
-<a name="ln-1273"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Discarded object </span>
-<a name="ln-1274"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
-<a name="ln-1275"></a>         <span class="kt">logical</span><span class="p">,</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter body by removing the discard list</span>
-<a name="ln-1276"></a>      <span class="k">end subroutine </span><span class="n">util_spill_encounter</span>
-<a name="ln-1277"></a>
-<a name="ln-1278"></a>      <span class="k">module subroutine </span><span class="n">util_spill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-1279"></a>         <span class="k">implicit none</span>
-<a name="ln-1280"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>        <span class="c">!! Swiftest massive body object</span>
-<a name="ln-1281"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>    <span class="c">!! Discarded object </span>
-<a name="ln-1282"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span> <span class="c">!! Logical array of bodies to spill into the discards</span>
-<a name="ln-1283"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
-<a name="ln-1284"></a>      <span class="k">end subroutine </span><span class="n">util_spill_pl</span>
-<a name="ln-1285"></a>
-<a name="ln-1286"></a>      <span class="k">module subroutine </span><span class="n">util_spill_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-1287"></a>         <span class="k">implicit none</span>
-<a name="ln-1288"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>        <span class="c">!! Swiftest test particle object</span>
-<a name="ln-1289"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>    <span class="c">!! Discarded object </span>
-<a name="ln-1290"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span> <span class="c">!! Logical array of bodies to spill into the discards</span>
-<a name="ln-1291"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
-<a name="ln-1292"></a>      <span class="k">end subroutine </span><span class="n">util_spill_tp</span>
-<a name="ln-1293"></a>
-<a name="ln-1294"></a>      <span class="k">module subroutine </span><span class="n">util_valid</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">tp</span><span class="p">)</span>
-<a name="ln-1295"></a>         <span class="k">implicit none</span>
-<a name="ln-1296"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">pl</span>
-<a name="ln-1297"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">tp</span>
-<a name="ln-1298"></a>      <span class="k">end subroutine </span><span class="n">util_valid</span>
-<a name="ln-1299"></a>
-<a name="ln-1300"></a>      <span class="k">module subroutine </span><span class="n">util_version</span><span class="p">()</span>
-<a name="ln-1301"></a>         <span class="k">implicit none</span>
-<a name="ln-1302"></a><span class="k">      end subroutine </span><span class="n">util_version</span>
-<a name="ln-1303"></a>   <span class="k">end interface</span>
-<a name="ln-1304"></a>
-<a name="ln-1305"></a><span class="k">end module </span><span class="n">swiftest_classes</span>
+<a name="ln-1219"></a>      <span class="k">module subroutine </span><span class="n">util_sort_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
+<a name="ln-1220"></a>         <span class="k">implicit none</span>
+<a name="ln-1221"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>    <span class="c">!! Swiftest body object</span>
+<a name="ln-1222"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>  <span class="c">!! Sorting attribute</span>
+<a name="ln-1223"></a>         <span class="kt">logical</span><span class="p">,</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
+<a name="ln-1224"></a>      <span class="k">end subroutine </span><span class="n">util_sort_pl</span>
+<a name="ln-1225"></a>
+<a name="ln-1226"></a>      <span class="k">module subroutine </span><span class="n">util_sort_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
+<a name="ln-1227"></a>         <span class="k">implicit none</span>
+<a name="ln-1228"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>    <span class="c">!! Swiftest body object</span>
+<a name="ln-1229"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>  <span class="c">!! Sorting attribute</span>
+<a name="ln-1230"></a>         <span class="kt">logical</span><span class="p">,</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
+<a name="ln-1231"></a>      <span class="k">end subroutine </span><span class="n">util_sort_tp</span>
+<a name="ln-1232"></a>   <span class="k">end interface</span>
+<a name="ln-1233"></a>
+<a name="ln-1234"></a><span class="k">   interface </span><span class="n">util_spill</span>
+<a name="ln-1235"></a>      <span class="k">module subroutine </span><span class="n">util_spill_arr_char_string</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-1236"></a>         <span class="k">implicit none</span>
+<a name="ln-1237"></a><span class="k">         </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
+<a name="ln-1238"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array of discards</span>
+<a name="ln-1239"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discardss</span>
+<a name="ln-1240"></a>         <span class="kt">logical</span><span class="p">,</span>                                          <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
+<a name="ln-1241"></a>      <span class="k">end subroutine </span><span class="n">util_spill_arr_char_string</span>
+<a name="ln-1242"></a>
+<a name="ln-1243"></a>      <span class="k">module subroutine </span><span class="n">util_spill_arr_DP</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-1244"></a>         <span class="k">implicit none</span>
+<a name="ln-1245"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
+<a name="ln-1246"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array of discards</span>
+<a name="ln-1247"></a>         <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
+<a name="ln-1248"></a>         <span class="kt">logical</span><span class="p">,</span>                             <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
+<a name="ln-1249"></a>      <span class="k">end subroutine </span><span class="n">util_spill_arr_DP</span>
+<a name="ln-1250"></a>
+<a name="ln-1251"></a>      <span class="k">module subroutine </span><span class="n">util_spill_arr_DPvec</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-1252"></a>         <span class="k">implicit none</span>
+<a name="ln-1253"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
+<a name="ln-1254"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array discards</span>
+<a name="ln-1255"></a>         <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
+<a name="ln-1256"></a>         <span class="kt">logical</span><span class="p">,</span>                               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
+<a name="ln-1257"></a>      <span class="k">end subroutine </span><span class="n">util_spill_arr_DPvec</span>
+<a name="ln-1258"></a>
+<a name="ln-1259"></a>      <span class="k">module subroutine </span><span class="n">util_spill_arr_I4B</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-1260"></a>         <span class="k">implicit none</span>
+<a name="ln-1261"></a><span class="k">         </span><span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
+<a name="ln-1262"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array of discards</span>
+<a name="ln-1263"></a>         <span class="kt">logical</span><span class="p">,</span>      <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discardss</span>
+<a name="ln-1264"></a>         <span class="kt">logical</span><span class="p">,</span>                                 <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
+<a name="ln-1265"></a>      <span class="k">end subroutine </span><span class="n">util_spill_arr_I4B</span>
+<a name="ln-1266"></a>
+<a name="ln-1267"></a>      <span class="k">module subroutine </span><span class="n">util_spill_arr_logical</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-1268"></a>         <span class="k">implicit none</span>
+<a name="ln-1269"></a><span class="k">         </span><span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
+<a name="ln-1270"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array of discards</span>
+<a name="ln-1271"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discardss</span>
+<a name="ln-1272"></a>         <span class="kt">logical</span><span class="p">,</span>                            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
+<a name="ln-1273"></a>      <span class="k">end subroutine </span><span class="n">util_spill_arr_logical</span>
+<a name="ln-1274"></a>   <span class="k">end interface</span>
+<a name="ln-1275"></a>
+<a name="ln-1276"></a><span class="k">   interface </span>
+<a name="ln-1277"></a><span class="k">      module subroutine </span><span class="n">util_spill_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-1278"></a>         <span class="k">implicit none</span>
+<a name="ln-1279"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>        <span class="c">!! Swiftest body object</span>
+<a name="ln-1280"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>    <span class="c">!! Discarded object </span>
+<a name="ln-1281"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span> <span class="c">!! Logical array of bodies to spill into the discards</span>
+<a name="ln-1282"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
+<a name="ln-1283"></a>      <span class="k">end subroutine </span><span class="n">util_spill_body</span>
+<a name="ln-1284"></a>
+<a name="ln-1285"></a>      <span class="k">module subroutine </span><span class="n">util_spill_encounter</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-1286"></a>         <span class="k">implicit none</span>
+<a name="ln-1287"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! Swiftest encounter list </span>
+<a name="ln-1288"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Discarded object </span>
+<a name="ln-1289"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
+<a name="ln-1290"></a>         <span class="kt">logical</span><span class="p">,</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter body by removing the discard list</span>
+<a name="ln-1291"></a>      <span class="k">end subroutine </span><span class="n">util_spill_encounter</span>
+<a name="ln-1292"></a>
+<a name="ln-1293"></a>      <span class="k">module subroutine </span><span class="n">util_spill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-1294"></a>         <span class="k">implicit none</span>
+<a name="ln-1295"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>        <span class="c">!! Swiftest massive body object</span>
+<a name="ln-1296"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>    <span class="c">!! Discarded object </span>
+<a name="ln-1297"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span> <span class="c">!! Logical array of bodies to spill into the discards</span>
+<a name="ln-1298"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
+<a name="ln-1299"></a>      <span class="k">end subroutine </span><span class="n">util_spill_pl</span>
+<a name="ln-1300"></a>
+<a name="ln-1301"></a>      <span class="k">module subroutine </span><span class="n">util_spill_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-1302"></a>         <span class="k">implicit none</span>
+<a name="ln-1303"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>        <span class="c">!! Swiftest test particle object</span>
+<a name="ln-1304"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>    <span class="c">!! Discarded object </span>
+<a name="ln-1305"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span> <span class="c">!! Logical array of bodies to spill into the discards</span>
+<a name="ln-1306"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
+<a name="ln-1307"></a>      <span class="k">end subroutine </span><span class="n">util_spill_tp</span>
+<a name="ln-1308"></a>
+<a name="ln-1309"></a>      <span class="k">module subroutine </span><span class="n">util_valid_id_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-1310"></a>         <span class="k">implicit none</span>
+<a name="ln-1311"></a><span class="k">         class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-1312"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
+<a name="ln-1313"></a>      <span class="k">end subroutine </span><span class="n">util_valid_id_system</span>
+<a name="ln-1314"></a>
+<a name="ln-1315"></a>      <span class="k">module subroutine </span><span class="n">util_version</span><span class="p">()</span>
+<a name="ln-1316"></a>         <span class="k">implicit none</span>
+<a name="ln-1317"></a><span class="k">      end subroutine </span><span class="n">util_version</span>
+<a name="ln-1318"></a>   <span class="k">end interface</span>
+<a name="ln-1319"></a>
+<a name="ln-1320"></a><span class="k">end module </span><span class="n">swiftest_classes</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/swiftest_driver.f90.html b/docs/sourcefile/swiftest_driver.f90.html
index f60bfd654..ceaf58fdc 100644
--- a/docs/sourcefile/swiftest_driver.f90.html
+++ b/docs/sourcefile/swiftest_driver.f90.html
@@ -134,7 +134,7 @@ <h1>swiftest_driver.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.5% of total for source files.">63 statements</a>
+    title=" 0.5% of total for source files.">61 statements</a>
      </li> 
      
      
@@ -226,239 +226,238 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~swiftest_driver.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileswiftest_driverf90EfferentGraph" width="641pt" height="185pt"
- viewBox="0.00 0.00 641.00 184.80" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 260.94)">
+<svg id="sourcefileswiftest_driverf90EfferentGraph" width="641pt" height="170pt"
+ viewBox="0.00 0.00 641.00 170.13" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 239.92)">
 <title>sourcefile~~swiftest_driver.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.94 915,-260.94 915,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-239.92 915,-239.92 915,4 -4,4"/>
 <!-- sourcefile~swiftest_driver.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~swiftest_driver.f90</title>
-<polygon fill="none" stroke="black" points="911,-184 813,-184 813,-160 911,-160 911,-184"/>
-<text text-anchor="middle" x="862" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_driver.f90</text>
+<polygon fill="none" stroke="black" points="911,-102.29 813,-102.29 813,-78.29 911,-78.29 911,-102.29"/>
+<text text-anchor="middle" x="862" y="-87.89" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_driver.f90</text>
 </g>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest.f90</title>
 <g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-184 711,-184 711,-160 777,-160 777,-184"/>
-<text text-anchor="middle" x="744" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-102.29 711,-102.29 711,-78.29 777,-78.29 777,-102.29"/>
+<text text-anchor="middle" x="744" y="-87.89" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.81,-172C804.32,-172 795.54,-172 787.23,-172"/>
-<polygon fill="#000000" stroke="#000000" points="787.01,-168.5 777.01,-172 787.01,-175.5 787.01,-168.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.81,-90.29C804.32,-90.29 795.54,-90.29 787.23,-90.29"/>
+<polygon fill="#000000" stroke="#000000" points="787.01,-86.79 777.01,-90.29 787.01,-93.79 787.01,-86.79"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-184 572,-184 572,-160 675,-160 675,-184"/>
-<text text-anchor="middle" x="623.5" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-191.29 142,-191.29 142,-167.29 260,-167.29 260,-191.29"/>
+<text text-anchor="middle" x="201" y="-176.89" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-172C703.05,-172 694.35,-172 685.59,-172"/>
-<polygon fill="#000000" stroke="#000000" points="685.33,-168.5 675.33,-172 685.33,-175.5 685.33,-168.5"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-229.29C308.59,-225.89 264.32,-208.94 235.07,-195.7"/>
+<polygon fill="#000000" stroke="#000000" points="236.29,-192.41 225.75,-191.38 233.35,-198.76 236.29,-192.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-229.29C428.18,-240.87 411.74,-234.29 351.5,-229.29"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-184 143,-184 143,-160 250,-160 250,-184"/>
-<text text-anchor="middle" x="196.5" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-102.29 441.5,-102.29 441.5,-78.29 535.5,-78.29 535.5,-102.29"/>
+<text text-anchor="middle" x="488.5" y="-87.89" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-250C296.26,-243.75 247.35,-211.53 219.89,-190.51"/>
-<polygon fill="#000000" stroke="#000000" points="221.79,-187.54 211.76,-184.12 217.46,-193.05 221.79,-187.54"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M714.4,-184.12C649.51,-210.19 486,-267.83 347,-250"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-150.29C612.1,-152.93 557.25,-125.81 521.31,-107.16"/>
+<polygon fill="#000000" stroke="#000000" points="522.66,-103.91 512.18,-102.39 519.42,-110.12 522.66,-103.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M725.12,-102.53C702.75,-117.08 662.72,-140.59 624.5,-150.29"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-144 0,-144 0,-120 106,-120 106,-144"/>
-<text text-anchor="middle" x="53" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-201.29 296,-201.29 296,-177.29 405,-177.29 405,-201.29"/>
+<text text-anchor="middle" x="350.5" y="-186.89" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-250C279.84,-242.8 260.49,-268.17 197.5,-250"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-150.29C555.99,-167.7 556.98,-216.12 489.5,-229.29"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-229.29C468.92,-232.91 423.57,-217.74 390.33,-205.05"/>
+<polygon fill="#000000" stroke="#000000" points="391.46,-201.74 380.87,-201.39 388.93,-208.27 391.46,-201.74"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
 <g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-104 441,-104 441,-80 536,-80 536,-104"/>
-<text text-anchor="middle" x="488.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-182.29 441,-182.29 441,-158.29 536,-158.29 536,-182.29"/>
+<text text-anchor="middle" x="488.5" y="-167.89" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge5" class="edge">
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge4" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-132C593.1,-125 560.6,-115.26 535.09,-107.15"/>
-<polygon fill="#000000" stroke="#000000" points="535.91,-103.74 525.32,-104.01 533.77,-110.4 535.91,-103.74"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-150.29C597.75,-156.57 569.87,-161.14 546.05,-164.31"/>
+<polygon fill="#000000" stroke="#000000" points="545.59,-160.84 536.11,-165.58 546.48,-167.78 545.59,-160.84"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-184 441.5,-184 441.5,-160 535.5,-160 535.5,-184"/>
-<text text-anchor="middle" x="488.5" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-81.29 147.5,-81.29 147.5,-57.29 254.5,-57.29 254.5,-81.29"/>
+<text text-anchor="middle" x="201" y="-66.89" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-132C604.43,-127.7 559.94,-143.06 527.38,-155.98"/>
-<polygon fill="#000000" stroke="#000000" points="525.66,-152.9 517.69,-159.88 528.28,-159.39 525.66,-152.9"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M717.61,-78.16C679.31,-60.6 603.98,-28.93 536,-17.29 430.86,0.71 399.28,9.37 296,-17.29 270.39,-23.9 244.32,-39.14 226.14,-51.42"/>
+<polygon fill="#000000" stroke="#000000" points="224.1,-48.58 217.89,-57.16 228.1,-54.32 224.1,-48.58"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-94 142,-94 142,-70 251,-70 251,-94"/>
-<text text-anchor="middle" x="196.5" y="-79.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-121.29 303.5,-121.29 303.5,-97.29 397.5,-97.29 397.5,-121.29"/>
+<text text-anchor="middle" x="350.5" y="-106.89" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C403.01,-22.38 296.83,-48.01 239.27,-66.69"/>
-<polygon fill="#000000" stroke="#000000" points="237.82,-63.48 229.44,-69.96 240.04,-70.12 237.82,-63.48"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-150.29C582.96,-160.32 474.83,-138.53 407.72,-123.04"/>
+<polygon fill="#000000" stroke="#000000" points="408.26,-119.57 397.72,-120.71 406.67,-126.38 408.26,-119.57"/>
 </g>
-<!-- sourcefile~whm_classes.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-144 299,-144 299,-120 393,-120 393,-144"/>
-<text text-anchor="middle" x="346" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-102.29 572,-102.29 572,-78.29 675,-78.29 675,-102.29"/>
+<text text-anchor="middle" x="623.5" y="-87.89" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-132C548.26,-114.32 459.53,-118.68 403.22,-124.47"/>
-<polygon fill="#000000" stroke="#000000" points="402.66,-121.01 393.09,-125.57 403.41,-127.97 402.66,-121.01"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-90.29C703.05,-90.29 694.35,-90.29 685.59,-90.29"/>
+<polygon fill="#000000" stroke="#000000" points="685.33,-86.79 675.33,-90.29 685.33,-93.79 685.33,-86.79"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 287,-24 287,0 405,0 405,-24"/>
-<text text-anchor="middle" x="346" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~swiftest_driver.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-141.29 0,-141.29 0,-117.29 106,-117.29 106,-141.29"/>
+<text text-anchor="middle" x="53" y="-126.89" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C460.56,-42.56 430.15,-33.68 404.53,-26.71"/>
-<polygon fill="#000000" stroke="#000000" points="405.16,-23.25 394.6,-24.03 403.34,-30.01 405.16,-23.25"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M711.73,-159.88C688.08,-151.1 654.63,-139.49 624.5,-132"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-132C576.85,-120.65 577.26,-93.6 536,-71 516.42,-60.28 510.57,-59.39 489.5,-52"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-229.29C256.7,-221.58 227.44,-237.31 142,-200.29 114.6,-188.42 88.69,-165.59 72.18,-149.01"/>
+<polygon fill="#000000" stroke="#000000" points="74.33,-146.2 64.86,-141.45 69.3,-151.07 74.33,-146.2"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-212C306.26,-211.87 263.74,-198.88 234.34,-187.74"/>
-<polygon fill="#000000" stroke="#000000" points="235.49,-184.43 224.9,-184.05 232.94,-190.95 235.49,-184.43"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M577.85,-184.08C564.47,-187.37 549.71,-190.66 536,-193 452.78,-207.21 431.42,-212.28 347,-212"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M164.66,-167.19C144.91,-160.42 120.11,-151.93 98.99,-144.7"/>
+<polygon fill="#000000" stroke="#000000" points="99.86,-141.3 89.27,-141.37 97.6,-147.92 99.86,-141.3"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-212C277.35,-214.62 262.54,-268.77 197.5,-250"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-250C139.84,-233.94 92.11,-181.54 68.95,-152.26"/>
-<polygon fill="#000000" stroke="#000000" points="71.7,-150.1 62.82,-144.32 66.16,-154.38 71.7,-150.1"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-159.94C589.52,-155.71 580.27,-150.82 572,-146 552.53,-134.66 531.27,-120.7 515.21,-109.82"/>
-<polygon fill="#000000" stroke="#000000" points="517.1,-106.87 506.87,-104.13 513.16,-112.66 517.1,-106.87"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.5,-79.06C415.28,-73.7 381.71,-68.58 351.5,-69.29"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-69.29C321.7,-69.94 290.95,-70.04 264.75,-69.94"/>
+<polygon fill="#000000" stroke="#000000" points="264.59,-66.44 254.57,-69.89 264.55,-73.44 264.59,-66.44"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-172C563.29,-172 554.37,-172 545.69,-172"/>
-<polygon fill="#000000" stroke="#000000" points="545.65,-168.5 535.65,-172 545.65,-175.5 545.65,-168.5"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.46,-96.72C430.72,-98.22 419.16,-99.84 408.03,-101.39"/>
+<polygon fill="#000000" stroke="#000000" points="407.38,-97.95 397.96,-102.8 408.35,-104.88 407.38,-97.95"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-160C138.49,-155.88 122.02,-151.23 106.74,-146.91"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-143.48 96.91,-144.13 105.58,-150.22 107.49,-143.48"/>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-129.29C172.48,-129.29 142.03,-129.29 116.1,-129.29"/>
+<polygon fill="#000000" stroke="#000000" points="116.03,-125.79 106.03,-129.29 116.03,-132.79 116.03,-125.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-69.29C278.75,-70.95 272.77,-129.29 202,-129.29"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.68,-94.63C399.9,-97.35 339.27,-102.43 287,-111 246.68,-117.61 238.36,-132 197.5,-132"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-132C169.6,-131.62 141.03,-131.56 116.39,-131.61"/>
-<polygon fill="#000000" stroke="#000000" points="116.07,-128.11 106.08,-131.64 116.09,-135.11 116.07,-128.11"/>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M322.8,-177.15C283.82,-159.61 214.58,-129.29 202,-129.29"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge16" class="edge">
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge15" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-104C430.89,-108.12 414.54,-112.77 399.37,-117.09"/>
-<polygon fill="#000000" stroke="#000000" points="398.27,-113.76 389.61,-119.87 400.19,-120.5 398.27,-113.76"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M460.63,-158.24C439.77,-148.88 410.63,-135.81 387.71,-125.53"/>
+<polygon fill="#000000" stroke="#000000" points="388.87,-122.21 378.31,-121.32 386.01,-128.6 388.87,-122.21"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-172C317.26,-170.15 286.51,-169.87 260.3,-170.16"/>
-<polygon fill="#000000" stroke="#000000" points="260.07,-166.66 250.12,-170.31 260.17,-173.66 260.07,-166.66"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.81,-159.41C384.52,-147.26 286.88,-129.29 202,-129.29"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-172C277.23,-167.49 265.42,-132.98 197.5,-132"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.25,-173.54C413.83,-174.07 378.4,-174.09 347,-172"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-160C430.89,-155.88 414.54,-151.23 399.37,-146.91"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-143.5 389.61,-144.13 398.27,-150.24 400.19,-143.5"/>
-</g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M161.25,-94.1C142.27,-100.81 118.47,-109.22 98.11,-116.41"/>
-<polygon fill="#000000" stroke="#000000" points="96.69,-113.2 88.43,-119.83 99.02,-119.8 96.69,-113.2"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.45,-81.43C148.09,-90.62 117.18,-103.33 92.82,-113.34"/>
+<polygon fill="#000000" stroke="#000000" points="91.42,-110.13 83.5,-117.16 94.08,-116.6 91.42,-110.13"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge22" class="edge">
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M300.75,-144C285.36,-148.17 267.91,-152.9 251.81,-157.27"/>
-<polygon fill="#000000" stroke="#000000" points="250.71,-153.94 241.98,-159.94 252.55,-160.7 250.71,-153.94"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-97.29C289.86,-93.11 272.41,-88.38 256.31,-84.02"/>
+<polygon fill="#000000" stroke="#000000" points="257.05,-80.59 246.48,-81.35 255.21,-87.35 257.05,-80.59"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge21" class="edge">
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge19" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.83,-132C269.75,-132 231.43,-132 197.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.22,-118.82C274.26,-123.97 236.11,-129.29 202,-129.29"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-90.29C563.29,-90.29 554.37,-90.29 545.69,-90.29"/>
+<polygon fill="#000000" stroke="#000000" points="545.65,-86.79 535.65,-90.29 545.65,-93.79 545.65,-86.79"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.3,-102.44C579.91,-115.91 543.61,-137.74 518.25,-152.99"/>
+<polygon fill="#000000" stroke="#000000" points="516.22,-150.13 509.45,-158.29 519.83,-156.13 516.22,-150.13"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge20" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-31.29C313.02,-33.48 272.94,-44.38 243.78,-53.95"/>
+<polygon fill="#000000" stroke="#000000" points="242.3,-50.75 233.94,-57.26 244.54,-57.38 242.3,-50.75"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest_driver.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.67,-19.1C244.78,-25.83 187.85,-38.4 142,-61 115.52,-74.05 89.78,-96.27 73.05,-112.38"/>
-<polygon fill="#000000" stroke="#000000" points="70.26,-110.22 65.6,-119.73 75.18,-115.2 70.26,-110.22"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-31.29C257.13,-36.83 226.76,-11.16 142,-48.29 111.68,-61.57 85,-89.72 69.18,-109.07"/>
+<polygon fill="#000000" stroke="#000000" points="66.36,-106.99 62.9,-117.01 71.85,-111.34 66.36,-106.99"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M593.23,-78.15C543.96,-59.04 441.06,-24.73 351.5,-31.29"/>
 </g>
 </g>
 </svg>
@@ -572,88 +571,82 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-17"></a>   <span class="kt">integer</span><span class="p">(</span><span class="n">I8B</span><span class="p">)</span>                               <span class="kd">::</span> <span class="n">iloop</span>            <span class="c">!! Loop counter</span>
 <a name="ln-18"></a>   <span class="kt">integer</span><span class="p">(</span><span class="n">I8B</span><span class="p">)</span>                               <span class="kd">::</span> <span class="n">idump</span>            <span class="c">!! Dump cadence counter</span>
 <a name="ln-19"></a>   <span class="kt">integer</span><span class="p">(</span><span class="n">I8B</span><span class="p">)</span>                               <span class="kd">::</span> <span class="n">iout</span>             <span class="c">!! Output cadence counter</span>
-<a name="ln-20"></a>   <span class="c">!integer(I8B), parameter                    :: LOOPMAX = huge(iloop) !! Maximum loop value before resetting </span>
-<a name="ln-21"></a>   <span class="kt">integer</span><span class="p">(</span><span class="n">I8B</span><span class="p">)</span>                               <span class="kd">::</span> <span class="n">nloops</span>           <span class="c">!! Number of steps to take in the simulation</span>
-<a name="ln-22"></a>   <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">start_wall_time</span>  <span class="c">!! Wall clock time at start of execution</span>
-<a name="ln-23"></a>   <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">finish_wall_time</span> <span class="c">!! Wall clock time when execution has finished</span>
-<a name="ln-24"></a>   <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                               <span class="kd">::</span> <span class="n">iu</span>               <span class="c">!! Unit number of binary file</span>
-<a name="ln-25"></a>   <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span> <span class="kd">::</span> <span class="n">statusfmt</span>  <span class="o">=</span> <span class="s1">&#39;(&quot;Time = &quot;, ES12.5, &quot;; fraction done = &quot;, F6.3, &quot;; &#39;</span> <span class="o">//</span> <span class="p">&amp;</span>
-<a name="ln-26"></a>                                             <span class="s1">&#39;Number of active pl, tp = &quot;, I5, &quot;, &quot;, I5)&#39;</span>
-<a name="ln-27"></a>
-<a name="ln-28"></a>   <span class="n">ierr</span> <span class="o">=</span> <span class="n">io_get_args</span><span class="p">(</span><span class="n">integrator</span><span class="p">,</span> <span class="n">param_file_name</span><span class="p">)</span>
-<a name="ln-29"></a>   <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-30"></a><span class="k">      write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Error reading in arguments from the command line&#39;</span>
-<a name="ln-31"></a>      <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-32"></a>   <span class="k">end if</span>
-<a name="ln-33"></a>   <span class="c">!$ start_wall_time = omp_get_wtime()</span>
-<a name="ln-34"></a>   <span class="c">!&gt; Read in the user-defined parameters file and the initial conditions of the system</span>
-<a name="ln-35"></a>   <span class="k">select case</span><span class="p">(</span><span class="n">integrator</span><span class="p">)</span>
-<a name="ln-36"></a>   <span class="k">case</span><span class="p">(</span><span class="n">symba</span><span class="p">)</span>
-<a name="ln-37"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">symba_parameters</span> <span class="kd">::</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-38"></a>   <span class="k">case </span><span class="n">default</span>
-<a name="ln-39"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">swiftest_parameters</span> <span class="kd">::</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-40"></a>   <span class="k">end select</span>
-<a name="ln-41"></a><span class="k">   </span><span class="n">param</span><span class="p">%</span><span class="n">integrator</span> <span class="o">=</span> <span class="n">integrator</span>
-<a name="ln-42"></a>   <span class="k">call </span><span class="n">setup_construct_system</span><span class="p">(</span><span class="n">nbody_system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-43"></a>   <span class="k">call </span><span class="n">param</span><span class="p">%</span><span class="n">read_from_file</span><span class="p">(</span><span class="n">param_file_name</span><span class="p">)</span>
-<a name="ln-44"></a>   <span class="k">associate</span><span class="p">(</span><span class="n">t</span>          <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-45"></a>             <span class="n">t0</span>         <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">t0</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-46"></a>             <span class="n">dt</span>         <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">dt</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-47"></a>             <span class="n">tstop</span>      <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">tstop</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-48"></a>             <span class="n">istep_out</span>  <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">istep_out</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-49"></a>             <span class="n">istep_dump</span> <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">istep_dump</span><span class="p">)</span>  
-<a name="ln-50"></a>      <span class="k">call </span><span class="n">nbody_system</span><span class="p">%</span><span class="n">initialize</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
-<a name="ln-51"></a>      <span class="n">t</span> <span class="o">=</span> <span class="n">t0</span>
-<a name="ln-52"></a>      <span class="n">iloop</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-53"></a>      <span class="n">iout</span> <span class="o">=</span> <span class="n">istep_out</span>
-<a name="ln-54"></a>      <span class="n">idump</span> <span class="o">=</span> <span class="n">istep_dump</span>
-<a name="ln-55"></a>      <span class="n">nloops</span> <span class="o">=</span> <span class="nb">ceiling</span><span class="p">(</span><span class="n">tstop</span> <span class="o">/</span> <span class="n">dt</span><span class="p">)</span>
-<a name="ln-56"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">istep_out</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">call </span><span class="n">nbody_system</span><span class="p">%</span><span class="n">write_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-57"></a>      <span class="c">!&gt; Define the maximum number of threads</span>
-<a name="ln-58"></a>      <span class="n">nthreads</span> <span class="o">=</span> <span class="mi">1</span>            <span class="c">! In the *serial* case</span>
-<a name="ln-59"></a>      <span class="c">!$ nthreads = omp_get_max_threads() ! In the *parallel* case</span>
-<a name="ln-60"></a>      <span class="c">!$ write(*,&#39;(a)&#39;)   &#39; OpenMP parameters:&#39;</span>
-<a name="ln-61"></a>      <span class="c">!$ write(*,&#39;(a)&#39;)   &#39; ------------------&#39;</span>
-<a name="ln-62"></a>      <span class="c">!$ write(*,&#39;(a,i3,/)&#39;) &#39; Number of threads  = &#39;, nthreads </span>
-<a name="ln-63"></a>      <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot; *************** Main Loop *************** &quot;</span>
-<a name="ln-64"></a>      <span class="k">do </span><span class="n">iloop</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nloops</span>
-<a name="ln-65"></a>         <span class="c">!&gt; Step the system forward in time</span>
-<a name="ln-66"></a>         <span class="k">call </span><span class="n">nbody_system</span><span class="p">%</span><span class="n">step</span><span class="p">(</span><span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
-<a name="ln-67"></a>
-<a name="ln-68"></a>         <span class="n">t</span> <span class="o">=</span> <span class="n">t0</span> <span class="o">+</span> <span class="n">iloop</span> <span class="o">*</span> <span class="n">dt</span>
-<a name="ln-69"></a>
-<a name="ln-70"></a>         <span class="c">!&gt; Evaluate any discards or collisional outcomes</span>
-<a name="ln-71"></a>         <span class="k">call </span><span class="n">nbody_system</span><span class="p">%</span><span class="n">discard</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
-<a name="ln-72"></a>
-<a name="ln-73"></a>         <span class="c">!&gt; If the loop counter is at the output cadence value, append the data file with a single frame</span>
-<a name="ln-74"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">istep_out</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-75"></a><span class="k">            </span><span class="n">iout</span> <span class="o">=</span> <span class="n">iout</span> <span class="o">-</span> <span class="mi">1</span>
-<a name="ln-76"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">iout</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-77"></a><span class="k">               call </span><span class="n">nbody_system</span><span class="p">%</span><span class="n">write_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-78"></a>               <span class="n">iout</span> <span class="o">=</span> <span class="n">istep_out</span>
-<a name="ln-79"></a>            <span class="k">end if</span>
-<a name="ln-80"></a><span class="k">         end if</span>
-<a name="ln-81"></a>
-<a name="ln-82"></a>         <span class="c">!&gt; If the loop counter is at the dump cadence value, dump the state of the system to a file in case it needs to be restarted</span>
-<a name="ln-83"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">istep_dump</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-84"></a><span class="k">            </span><span class="n">idump</span> <span class="o">=</span> <span class="n">idump</span> <span class="o">-</span> <span class="mi">1</span>
-<a name="ln-85"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">idump</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-86"></a><span class="k">               call </span><span class="n">nbody_system</span><span class="p">%</span><span class="n">dump</span><span class="p">(</span><span class="n">param</span><span class="p">,</span> <span class="n">statusfmt</span><span class="p">)</span>
-<a name="ln-87"></a>               <span class="n">idump</span> <span class="o">=</span> <span class="n">istep_dump</span>
-<a name="ln-88"></a>            <span class="k">end if</span>
-<a name="ln-89"></a><span class="k">         end if</span>
-<a name="ln-90"></a>         <span class="c">!if (t &gt;= tstop) exit </span>
-<a name="ln-91"></a>      <span class="k">end do</span>
-<a name="ln-92"></a>
-<a name="ln-93"></a>      <span class="c">!&gt; Dump the final state of the system to file</span>
-<a name="ln-94"></a>      <span class="c">!call nbody_system%dump(param, t, dt, statusfmt)</span>
-<a name="ln-95"></a>      <span class="c">!$ finish_wall_time = omp_get_wtime()</span>
-<a name="ln-96"></a>      <span class="c">!$ write(*,*) &#39;Time: &#39;, finish_wall_time - start_wall_time</span>
-<a name="ln-97"></a>   <span class="k">end associate</span>
-<a name="ln-98"></a><span class="k">   call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">SUCCESS</span><span class="p">)</span>
-<a name="ln-99"></a>
-<a name="ln-100"></a>   <span class="k">stop</span>
-<a name="ln-101"></a><span class="k">end program </span><span class="n">swiftest_driver</span>
+<a name="ln-20"></a>   <span class="kt">integer</span><span class="p">(</span><span class="n">I8B</span><span class="p">)</span>                               <span class="kd">::</span> <span class="n">nloops</span>           <span class="c">!! Number of steps to take in the simulation</span>
+<a name="ln-21"></a>   <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                               <span class="kd">::</span> <span class="n">iu</span>               <span class="c">!! Unit number of binary file</span>
+<a name="ln-22"></a>
+<a name="ln-23"></a>   <span class="n">ierr</span> <span class="o">=</span> <span class="n">io_get_args</span><span class="p">(</span><span class="n">integrator</span><span class="p">,</span> <span class="n">param_file_name</span><span class="p">)</span>
+<a name="ln-24"></a>   <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-25"></a><span class="k">      write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Error reading in arguments from the command line&#39;</span>
+<a name="ln-26"></a>      <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-27"></a>   <span class="k">end if</span>
+<a name="ln-28"></a>   <span class="c">!&gt; Read in the user-defined parameters file and the initial conditions of the system</span>
+<a name="ln-29"></a>   <span class="k">select case</span><span class="p">(</span><span class="n">integrator</span><span class="p">)</span>
+<a name="ln-30"></a>   <span class="k">case</span><span class="p">(</span><span class="n">symba</span><span class="p">)</span>
+<a name="ln-31"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">symba_parameters</span> <span class="kd">::</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-32"></a>   <span class="k">case </span><span class="n">default</span>
+<a name="ln-33"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">swiftest_parameters</span> <span class="kd">::</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-34"></a>   <span class="k">end select</span>
+<a name="ln-35"></a><span class="k">   </span><span class="n">param</span><span class="p">%</span><span class="n">integrator</span> <span class="o">=</span> <span class="n">integrator</span>
+<a name="ln-36"></a>
+<a name="ln-37"></a>   <span class="k">call </span><span class="n">setup_construct_system</span><span class="p">(</span><span class="n">nbody_system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-38"></a>   <span class="k">call </span><span class="n">param</span><span class="p">%</span><span class="n">read_from_file</span><span class="p">(</span><span class="n">param_file_name</span><span class="p">)</span>
+<a name="ln-39"></a>
+<a name="ln-40"></a>   <span class="k">associate</span><span class="p">(</span><span class="n">t</span>          <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-41"></a>             <span class="n">t0</span>         <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">t0</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-42"></a>             <span class="n">dt</span>         <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">dt</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-43"></a>             <span class="n">tstop</span>      <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">tstop</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-44"></a>             <span class="n">istep_out</span>  <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">istep_out</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-45"></a>             <span class="n">istep_dump</span> <span class="o">=&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">istep_dump</span><span class="p">)</span>  
+<a name="ln-46"></a>
+<a name="ln-47"></a>      <span class="k">call </span><span class="n">nbody_system</span><span class="p">%</span><span class="n">initialize</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-48"></a>      <span class="n">t</span> <span class="o">=</span> <span class="n">t0</span>
+<a name="ln-49"></a>      <span class="n">iloop</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-50"></a>      <span class="n">iout</span> <span class="o">=</span> <span class="n">istep_out</span>
+<a name="ln-51"></a>      <span class="n">idump</span> <span class="o">=</span> <span class="n">istep_dump</span>
+<a name="ln-52"></a>      <span class="n">nloops</span> <span class="o">=</span> <span class="nb">ceiling</span><span class="p">(</span><span class="n">tstop</span> <span class="o">/</span> <span class="n">dt</span><span class="p">,</span> <span class="nb">kind</span><span class="o">=</span><span class="n">I8B</span><span class="p">)</span>
+<a name="ln-53"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">istep_out</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">call </span><span class="n">nbody_system</span><span class="p">%</span><span class="n">write_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-54"></a>      <span class="k">call </span><span class="n">nbody_system</span><span class="p">%</span><span class="n">dump</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-55"></a>
+<a name="ln-56"></a>      <span class="c">!&gt; Define the maximum number of threads</span>
+<a name="ln-57"></a>      <span class="n">nthreads</span> <span class="o">=</span> <span class="mi">1</span>            <span class="c">! In the *serial* case</span>
+<a name="ln-58"></a>      <span class="c">!$ nthreads = omp_get_max_threads() ! In the *parallel* case</span>
+<a name="ln-59"></a>      <span class="c">!$ write(*,&#39;(a)&#39;)   &#39; OpenMP parameters:&#39;</span>
+<a name="ln-60"></a>      <span class="c">!$ write(*,&#39;(a)&#39;)   &#39; ------------------&#39;</span>
+<a name="ln-61"></a>      <span class="c">!$ write(*,&#39;(a,i3,/)&#39;) &#39; Number of threads  = &#39;, nthreads </span>
+<a name="ln-62"></a>      <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot; *************** Main Loop *************** &quot;</span>
+<a name="ln-63"></a>      <span class="k">do </span><span class="n">iloop</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nloops</span>
+<a name="ln-64"></a>         <span class="c">!&gt; Step the system forward in time</span>
+<a name="ln-65"></a>         <span class="k">call </span><span class="n">nbody_system</span><span class="p">%</span><span class="n">step</span><span class="p">(</span><span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
+<a name="ln-66"></a>
+<a name="ln-67"></a>         <span class="n">t</span> <span class="o">=</span> <span class="n">t0</span> <span class="o">+</span> <span class="n">iloop</span> <span class="o">*</span> <span class="n">dt</span>
+<a name="ln-68"></a>
+<a name="ln-69"></a>         <span class="c">!&gt; Evaluate any discards or collisional outcomes</span>
+<a name="ln-70"></a>         <span class="k">call </span><span class="n">nbody_system</span><span class="p">%</span><span class="n">discard</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-71"></a>
+<a name="ln-72"></a>         <span class="c">!&gt; If the loop counter is at the output cadence value, append the data file with a single frame</span>
+<a name="ln-73"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">istep_out</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-74"></a><span class="k">            </span><span class="n">iout</span> <span class="o">=</span> <span class="n">iout</span> <span class="o">-</span> <span class="mi">1</span>
+<a name="ln-75"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">iout</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-76"></a><span class="k">               call </span><span class="n">nbody_system</span><span class="p">%</span><span class="n">write_frame</span><span class="p">(</span><span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-77"></a>               <span class="n">iout</span> <span class="o">=</span> <span class="n">istep_out</span>
+<a name="ln-78"></a>            <span class="k">end if</span>
+<a name="ln-79"></a><span class="k">         end if</span>
+<a name="ln-80"></a>
+<a name="ln-81"></a>         <span class="c">!&gt; If the loop counter is at the dump cadence value, dump the state of the system to a file in case it needs to be restarted</span>
+<a name="ln-82"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">istep_dump</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-83"></a><span class="k">            </span><span class="n">idump</span> <span class="o">=</span> <span class="n">idump</span> <span class="o">-</span> <span class="mi">1</span>
+<a name="ln-84"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">idump</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-85"></a><span class="k">               call </span><span class="n">nbody_system</span><span class="p">%</span><span class="n">dump</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-86"></a>               <span class="n">idump</span> <span class="o">=</span> <span class="n">istep_dump</span>
+<a name="ln-87"></a>            <span class="k">end if</span>
+<a name="ln-88"></a><span class="k">         end if</span>
+<a name="ln-89"></a><span class="k">      end do</span>
+<a name="ln-90"></a><span class="k">   end associate</span>
+<a name="ln-91"></a>
+<a name="ln-92"></a><span class="k">   call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">SUCCESS</span><span class="p">)</span>
+<a name="ln-93"></a>
+<a name="ln-94"></a>   <span class="k">stop</span>
+<a name="ln-95"></a><span class="k">end program </span><span class="n">swiftest_driver</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/swiftest_globals.f90.html b/docs/sourcefile/swiftest_globals.f90.html
index 2bbec8eb7..a2991ad24 100644
--- a/docs/sourcefile/swiftest_globals.f90.html
+++ b/docs/sourcefile/swiftest_globals.f90.html
@@ -227,894 +227,895 @@ <h3 class="panel-title">Files dependent on this one</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~swiftest_globals.f90~~AfferentGraph Pages: 1 -->
-<svg id="sourcefileswiftest_globalsf90AfferentGraph" width="641pt" height="1523pt"
- viewBox="0.00 0.00 641.00 1523.08" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph" class="graph" transform="scale(0.63 0.63) rotate(0) translate(4 2422)">
+<svg id="sourcefileswiftest_globalsf90AfferentGraph" width="641pt" height="1549pt"
+ viewBox="0.00 0.00 641.00 1549.45" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph" class="graph" transform="scale(0.63 0.63) rotate(0) translate(4 2464)">
 <title>sourcefile~~swiftest_globals.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2422 1017,-2422 1017,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 1017,-2464 1017,4 -4,4"/>
 <!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node1" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<polygon fill="none" stroke="black" points="106,-1591 0,-1591 0,-1567 106,-1567 106,-1591"/>
-<text text-anchor="middle" x="53" y="-1576.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_globals.f90</text>
+<polygon fill="none" stroke="black" points="106,-1502 0,-1502 0,-1478 106,-1478 106,-1502"/>
+<text text-anchor="middle" x="53" y="-1487.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_globals.f90</text>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node2" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="671.5,-1689 568.5,-1689 568.5,-1665 671.5,-1665 671.5,-1689"/>
-<text text-anchor="middle" x="620" y="-1674.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-2374 561,-2374 561,-2350 679,-2350 679,-2374"/>
+<text text-anchor="middle" x="620" y="-2359.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge1" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-1599C276.29,-1588.38 259.27,-1592.48 196.5,-1599"/>
-</g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node5" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="525,-1689 430,-1689 430,-1665 525,-1665 525,-1689"/>
-<text text-anchor="middle" x="477.5" y="-1674.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge81" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M568.28,-1677C557.67,-1677 546.43,-1677 535.61,-1677"/>
-<polygon fill="#000000" stroke="#000000" points="535.41,-1673.5 525.41,-1677 535.41,-1680.5 535.41,-1673.5"/>
-</g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node6" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="524.5,-1531 430.5,-1531 430.5,-1507 524.5,-1507 524.5,-1531"/>
-<text text-anchor="middle" x="477.5" y="-1516.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge89" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.34,-1664.63C598.59,-1639.94 564.98,-1583.76 525,-1547 520.92,-1543.25 516.27,-1539.75 511.52,-1536.58"/>
-<polygon fill="#000000" stroke="#000000" points="513.3,-1533.57 502.96,-1531.24 509.6,-1539.51 513.3,-1533.57"/>
-</g>
-<!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node9" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="249,-1571 142,-1571 142,-1547 249,-1547 249,-1571"/>
-<text text-anchor="middle" x="195.5" y="-1556.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge107" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M590.82,-1664.95C541.29,-1644.73 434.92,-1605.53 340.5,-1599"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-1599C305.33,-1593.34 268.81,-1582.95 241.12,-1574.18"/>
-<polygon fill="#000000" stroke="#000000" points="241.92,-1570.77 231.33,-1571.04 239.78,-1577.43 241.92,-1570.77"/>
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M616.05,-2349.97C595.47,-2267.11 470.11,-1782.65 340.5,-1728"/>
 </g>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node3" class="node">
 <title>sourcefile~swiftest.f90</title>
 <g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="797,-1368 731,-1368 731,-1344 797,-1344 797,-1368"/>
-<text text-anchor="middle" x="764" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="797,-1326 731,-1326 731,-1302 797,-1302 797,-1326"/>
+<text text-anchor="middle" x="764" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge3" class="edge">
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge2" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.5,-1479C441.02,-1492.13 431.54,-1462.7 394,-1458 345.93,-1451.98 323.8,-1428.99 285,-1458 239.72,-1491.85 287.75,-1538.84 249,-1580 231.99,-1598.07 221.18,-1596.44 196.5,-1599"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619,-1358C540.23,-1382.24 553.93,-1445.81 478.5,-1479"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M194.5,-1599C167.07,-1601.13 136.83,-1597.6 111.46,-1592.93"/>
-<polygon fill="#000000" stroke="#000000" points="112.11,-1589.5 101.63,-1591.03 110.78,-1596.37 112.11,-1589.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-1412C256.45,-1413.4 276.3,-1549.11 196.5,-1530"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M194.5,-1530C163.64,-1522.61 129.38,-1512.89 102.41,-1504.88"/>
+<polygon fill="#000000" stroke="#000000" points="103.41,-1501.52 92.83,-1502.01 101.41,-1508.23 103.41,-1501.52"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge13" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M760.89,-1368.27C753.9,-1406.6 729.09,-1526.74 679,-1613 669.36,-1629.59 654.87,-1645.59 642.78,-1657.44"/>
-<polygon fill="#000000" stroke="#000000" points="640.09,-1655.17 635.26,-1664.59 644.92,-1660.24 640.09,-1655.17"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.36,-1326.13C747.01,-1431.98 643.21,-2198.1 624.04,-2339.57"/>
+<polygon fill="#000000" stroke="#000000" points="620.55,-2339.28 622.67,-2349.66 627.48,-2340.22 620.55,-2339.28"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node4" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="679,-2332 561,-2332 561,-2308 679,-2308 679,-2332"/>
-<text text-anchor="middle" x="620" y="-2317.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="524.5,-1542 430.5,-1542 430.5,-1518 524.5,-1518 524.5,-1542"/>
+<text text-anchor="middle" x="477.5" y="-1527.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge79" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.2,-1368.19C746.36,-1468.99 643.93,-2164.34 624.26,-2297.86"/>
-<polygon fill="#000000" stroke="#000000" points="620.8,-2297.35 622.8,-2307.76 627.72,-2298.37 620.8,-2297.35"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge72" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619,-1490C593.03,-1504.6 561.3,-1514.23 534.57,-1520.37"/>
+<polygon fill="#000000" stroke="#000000" points="533.62,-1517 524.6,-1522.55 535.11,-1523.83 533.62,-1517"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node5" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="525,-1700 430,-1700 430,-1676 525,-1676 525,-1700"/>
+<text text-anchor="middle" x="477.5" y="-1685.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge85" class="edge">
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge79" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M752.19,-1368.19C709.15,-1416.75 549.66,-1596.71 496.14,-1657.09"/>
-<polygon fill="#000000" stroke="#000000" points="493.33,-1654.99 489.32,-1664.8 498.57,-1659.63 493.33,-1654.99"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge93" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619,-1358C592.17,-1366.26 579.93,-1362.27 561,-1383 526.31,-1420.99 557.69,-1453.28 525,-1493 522.49,-1496.05 519.53,-1498.8 516.33,-1501.27"/>
-<polygon fill="#000000" stroke="#000000" points="514.38,-1498.37 508.03,-1506.85 518.28,-1504.18 514.38,-1498.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M759.59,-1326C750.31,-1357.39 722.31,-1443.63 679,-1504 627.97,-1575.14 545.75,-1639.71 504.24,-1669.94"/>
+<polygon fill="#000000" stroke="#000000" points="502.09,-1667.17 496.03,-1675.86 506.19,-1672.85 502.09,-1667.17"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node7" class="node">
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-1491 285,-1491 285,-1467 394,-1467 394,-1491"/>
-<text text-anchor="middle" x="339.5" y="-1476.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-1502 285,-1502 285,-1478 394,-1478 394,-1502"/>
+<text text-anchor="middle" x="339.5" y="-1487.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge96" class="edge">
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge86" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.5,-1479C453.84,-1487.39 427.55,-1489.07 404.17,-1488.06"/>
-<polygon fill="#000000" stroke="#000000" points="404.19,-1484.56 394,-1487.45 403.77,-1491.55 404.19,-1484.56"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.5,-1490C452.95,-1490.06 427.11,-1490.07 404.34,-1490.06"/>
+<polygon fill="#000000" stroke="#000000" points="404.11,-1486.56 394.11,-1490.06 404.11,-1493.56 404.11,-1486.56"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node7" class="node">
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="249,-1482 142,-1482 142,-1458 249,-1458 249,-1482"/>
+<text text-anchor="middle" x="195.5" y="-1467.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge98" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-1412C295.44,-1412.73 250.12,-1435.69 222.57,-1452.49"/>
+<polygon fill="#000000" stroke="#000000" points="220.55,-1449.63 213.94,-1457.92 224.27,-1455.56 220.55,-1449.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M755.07,-1326C730.85,-1362.29 657.27,-1469.6 621,-1490"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619,-1490C564.57,-1520.61 540.94,-1489.85 478.5,-1490"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.5,-1490C406.82,-1490.17 410.17,-1410.81 340.5,-1412"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386.5,-1571 292.5,-1571 292.5,-1547 386.5,-1547 386.5,-1571"/>
-<text text-anchor="middle" x="339.5" y="-1556.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="386.5,-1582 292.5,-1582 292.5,-1558 386.5,-1558 386.5,-1582"/>
+<text text-anchor="middle" x="339.5" y="-1567.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge100" class="edge">
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge121" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.5,-1479C455.56,-1486.75 449.67,-1487.43 430,-1498 406.73,-1510.51 382.04,-1527.66 364.5,-1540.59"/>
-<polygon fill="#000000" stroke="#000000" points="361.94,-1538.13 356.03,-1546.92 366.13,-1543.74 361.94,-1538.13"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge129" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M619,-1358C559.32,-1376.36 533.72,-1328.85 478.5,-1358"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M730.9,-1351.41C701.59,-1348.39 657.41,-1346.8 621,-1358"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.5,-1490C428.79,-1490.12 383.06,-1527.1 358.69,-1550.73"/>
+<polygon fill="#000000" stroke="#000000" points="356.14,-1548.33 351.55,-1557.87 361.09,-1553.27 356.14,-1548.33"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M616,-2307.94C595.26,-2226.01 470.34,-1753.11 340.5,-1717"/>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="671.5,-1694 568.5,-1694 568.5,-1670 671.5,-1670 671.5,-1694"/>
+<text text-anchor="middle" x="620" y="-1679.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+</a>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge4" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-1717C259.44,-1695.01 278.12,-1590.52 196.5,-1599"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.48,-1689.05C414.96,-1702.78 360.83,-1722.66 340.5,-1717"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge102" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.65,-1664.77C442.02,-1661 435.33,-1656.39 430,-1651 406.5,-1627.25 418.18,-1608.07 394,-1585 390.5,-1581.66 386.48,-1578.66 382.26,-1576.01"/>
-<polygon fill="#000000" stroke="#000000" points="383.83,-1572.88 373.39,-1571.02 380.39,-1578.98 383.83,-1572.88"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge131" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M761.7,-1326.06C756.71,-1368.52 736.14,-1514.13 679,-1618 669.69,-1634.92 655.07,-1651.01 642.84,-1662.83"/>
+<polygon fill="#000000" stroke="#000000" points="640.14,-1660.56 635.22,-1669.94 644.92,-1665.67 640.14,-1660.56"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge5" class="edge">
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge3" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M430.46,-1514.28C389.88,-1512.2 330.33,-1514.37 285,-1538 263.2,-1549.36 269.23,-1566.02 249,-1580 228.59,-1594.11 221.17,-1596.33 196.5,-1599"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M430.19,-1536.33C374.06,-1542.57 276.99,-1548.71 196.5,-1530"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge106" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.1,-1517.92C444.75,-1513.87 436.82,-1509.09 430,-1504 412.11,-1490.66 414.68,-1477.39 394,-1469 351.48,-1451.74 299.43,-1452.8 259.44,-1457.74"/>
+<polygon fill="#000000" stroke="#000000" points="258.73,-1454.31 249.29,-1459.11 259.67,-1461.24 258.73,-1454.31"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge104" class="edge">
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge122" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M435.7,-1531C421.84,-1535.08 406.17,-1539.68 391.61,-1543.97"/>
-<polygon fill="#000000" stroke="#000000" points="390.35,-1540.69 381.75,-1546.87 392.33,-1547.4 390.35,-1540.69"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M435.7,-1542C421.84,-1546.08 406.17,-1550.68 391.61,-1554.97"/>
+<polygon fill="#000000" stroke="#000000" points="390.35,-1551.69 381.75,-1557.87 392.33,-1558.4 390.35,-1551.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge112" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.1,-1506.92C444.75,-1502.87 436.82,-1498.09 430,-1493 412.11,-1479.66 414.68,-1466.39 394,-1458 349.11,-1439.78 329.12,-1438 285,-1458 249.01,-1474.32 221.88,-1513.3 207.66,-1537.79"/>
-<polygon fill="#000000" stroke="#000000" points="204.51,-1536.25 202.68,-1546.68 210.62,-1539.66 204.51,-1536.25"/>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge4" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.94,-1700.12C416.29,-1714.73 360.29,-1736.34 340.5,-1728"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-1728C238.72,-1685.93 301.81,-1555.22 196.5,-1530"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge123" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.65,-1675.77C442.02,-1672 435.33,-1667.39 430,-1662 406.5,-1638.25 418.18,-1619.07 394,-1596 390.5,-1592.66 386.48,-1589.66 382.26,-1587.01"/>
+<polygon fill="#000000" stroke="#000000" points="383.83,-1583.88 373.39,-1582.02 380.39,-1589.98 383.83,-1583.88"/>
 </g>
 <!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge6" class="edge">
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge5" class="edge">
 <title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M304.84,-1491.09C297.68,-1494.77 290.61,-1499.36 285,-1505 258.92,-1531.21 276.42,-1555.2 249,-1580 230.6,-1596.64 221.17,-1596.33 196.5,-1599"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M308.68,-1502.06C273.69,-1515.56 217.77,-1534.94 196.5,-1530"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.78,-1477.5C133.39,-1478.7 124.64,-1479.94 116.05,-1481.17"/>
+<polygon fill="#000000" stroke="#000000" points="115.49,-1477.71 106.08,-1482.59 116.47,-1484.64 115.49,-1477.71"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge7" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.23,-1571.07C278.85,-1581.24 235.59,-1594.78 196.5,-1599"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M299.57,-1557.99C271.18,-1549.48 231.68,-1538.18 196.5,-1530"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge125" class="edge">
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge111" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.4,-1559C281.86,-1559 270.48,-1559 259.37,-1559"/>
-<polygon fill="#000000" stroke="#000000" points="259.27,-1555.5 249.27,-1559 259.27,-1562.5 259.27,-1555.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M321.37,-1557.94C296.64,-1540.52 250.74,-1508.2 222.01,-1487.97"/>
+<polygon fill="#000000" stroke="#000000" points="223.88,-1485 213.69,-1482.11 219.85,-1490.72 223.88,-1485"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge2" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.78,-1566.5C133.39,-1567.7 124.64,-1568.94 116.05,-1570.17"/>
-<polygon fill="#000000" stroke="#000000" points="115.49,-1566.71 106.08,-1571.59 116.47,-1573.64 115.49,-1566.71"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge8" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-1610C315.93,-1598.71 307.47,-1602.48 285,-1591 242.46,-1569.26 242.96,-1541.13 196.5,-1530"/>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge75" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M612.06,-1669.71C598.06,-1645.72 564.39,-1591.97 525,-1557 521.09,-1553.53 516.66,-1550.28 512.12,-1547.32"/>
+<polygon fill="#000000" stroke="#000000" points="513.76,-1544.22 503.39,-1542.02 510.13,-1550.21 513.76,-1544.22"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge84" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M568.28,-1684.17C557.67,-1684.62 546.43,-1685.1 535.61,-1685.56"/>
+<polygon fill="#000000" stroke="#000000" points="535.25,-1682.07 525.41,-1686 535.55,-1689.07 535.25,-1682.07"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge117" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M338.5,-1610C314.6,-1601.92 303.76,-1607.87 285,-1591 257.5,-1566.28 271.36,-1545.45 249,-1516 241.29,-1505.85 231.05,-1496.27 221.67,-1488.51"/>
+<polygon fill="#000000" stroke="#000000" points="223.73,-1485.68 213.72,-1482.19 219.37,-1491.16 223.73,-1485.68"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M568.29,-1671.24C511.97,-1658.75 418.68,-1636.44 340.5,-1610"/>
+</g>
+<!-- sourcefile~eucl.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node10" class="node">
-<title>sourcefile~obl.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="958,-864 904,-864 904,-840 958,-840 958,-864"/>
-<text text-anchor="middle" x="931" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
+<title>sourcefile~eucl.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="958,-906 904,-906 904,-882 958,-882 958,-906"/>
+<text text-anchor="middle" x="931" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge20" class="edge">
-<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.67,-851.82C885.72,-853.17 862.78,-858.04 849,-873 785.65,-941.73 769.17,-1248.06 765.77,-1333.7"/>
-<polygon fill="#000000" stroke="#000000" points="762.26,-1333.73 765.39,-1343.85 769.26,-1333.99 762.26,-1333.73"/>
+<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge12" class="edge">
+<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.83,-893.97C885.95,-895.39 863.05,-900.29 849,-915 796.34,-970.15 772.82,-1215.06 766.69,-1291.28"/>
+<polygon fill="#000000" stroke="#000000" points="763.17,-1291.39 765.88,-1301.64 770.15,-1291.94 763.17,-1291.39"/>
 </g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge108" class="edge">
-<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.69,-851.32C886.21,-849.53 863.83,-844.49 849,-831 768.17,-757.51 852.09,-534.05 765,-600"/>
+<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge87" class="edge">
+<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.95,-893.49C886.37,-891.79 863.76,-886.78 849,-873 762.73,-792.41 882.83,-613.62 765,-621"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
+<!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node11" class="node">
-<title>sourcefile~util_sort.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="965,-822 897,-822 897,-798 965,-798 965,-822"/>
-<text text-anchor="middle" x="931" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="966.5,-864 895.5,-864 895.5,-840 966.5,-840 966.5,-864"/>
+<text text-anchor="middle" x="931" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge21" class="edge">
-<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.86,-810.41C880.19,-812.41 861.02,-817.78 849,-831 780.37,-906.48 767.63,-1243.03 765.43,-1333.53"/>
-<polygon fill="#000000" stroke="#000000" points="761.93,-1333.68 765.2,-1343.75 768.93,-1333.83 761.93,-1333.68"/>
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge13" class="edge">
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M895.39,-852.76C879.15,-854.96 860.82,-860.38 849,-873 790.99,-934.94 770.89,-1210.59 766.18,-1291.56"/>
+<polygon fill="#000000" stroke="#000000" points="762.68,-1291.47 765.62,-1301.65 769.67,-1291.87 762.68,-1291.47"/>
 </g>
-<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge109" class="edge">
-<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.97,-808.06C880.93,-805.59 862.3,-800.27 849,-789 778.88,-729.56 838.28,-544.5 765,-600"/>
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge88" class="edge">
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M895.17,-850.02C879.46,-847.49 861.65,-842.14 849,-831 773.56,-764.57 865.33,-614.72 765,-621"/>
 </g>
-<!-- sourcefile~whm_setup.f90 -->
+<!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node12" class="node">
-<title>sourcefile~whm_setup.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="973.5,-1200 888.5,-1200 888.5,-1176 973.5,-1176 973.5,-1200"/>
-<text text-anchor="middle" x="931" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="967.5,-2250 894.5,-2250 894.5,-2226 967.5,-2226 967.5,-2250"/>
+<text text-anchor="middle" x="931" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M888.49,-1190.57C874.39,-1193.39 859.56,-1198.81 849,-1209 808.63,-1247.96 848.36,-1286.44 813,-1330 810.59,-1332.97 807.74,-1335.65 804.66,-1338.06"/>
-<polygon fill="#000000" stroke="#000000" points="802.45,-1335.33 796.09,-1343.81 806.34,-1341.15 802.45,-1335.33"/>
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge14" class="edge">
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M894.16,-2237.89C877.83,-2235.83 859.78,-2230.33 849,-2217 790.74,-2144.97 842.33,-1471.88 813,-1384 806.8,-1365.43 794.1,-1347.27 783.32,-1334.11"/>
+<polygon fill="#000000" stroke="#000000" points="785.76,-1331.57 776.61,-1326.22 780.43,-1336.11 785.76,-1331.57"/>
 </g>
-<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge98" class="edge">
-<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M888.34,-1197.23C875.57,-1200.48 861.57,-1204.47 849,-1209 716.01,-1256.94 678.31,-1265.11 561,-1344 528.12,-1366.12 458.23,-1437.19 430,-1465 404.57,-1490.04 376.35,-1520.08 358.53,-1539.34"/>
-<polygon fill="#000000" stroke="#000000" points="355.77,-1537.17 351.56,-1546.89 360.92,-1541.92 355.77,-1537.17"/>
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge78" class="edge">
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M894.26,-2244.12C879.76,-2247.39 863.14,-2252.2 849,-2259 806.95,-2279.24 806.86,-2342.64 765,-2322"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node13" class="node">
-<title>sourcefile~whm_coord.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="974,-2124 888,-2124 888,-2100 974,-2100 974,-2124"/>
-<text text-anchor="middle" x="931" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="1013,-822 849,-822 849,-798 1013,-798 1013,-822"/>
+<text text-anchor="middle" x="931" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.92,-2110.89C873.41,-2108.26 858.45,-2102.6 849,-2091 799.23,-2029.95 854.48,-1449.96 813,-1383 810.97,-1379.72 808.38,-1376.8 805.47,-1374.21"/>
-<polygon fill="#000000" stroke="#000000" points="807.28,-1371.2 797.14,-1368.11 803.14,-1376.85 807.28,-1371.2"/>
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge15" class="edge">
+<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M860.09,-822.02C856.01,-824.51 852.25,-827.47 849,-831 785.65,-899.73 769.17,-1206.06 765.77,-1291.7"/>
+<polygon fill="#000000" stroke="#000000" points="762.26,-1291.73 765.39,-1301.85 769.26,-1291.99 762.26,-1291.73"/>
 </g>
-<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge99" class="edge">
-<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.81,-2107.31C874.45,-2104.26 860.24,-2099.25 849,-2091 791.53,-2048.84 723.02,-1875.06 679,-1819 632.61,-1759.92 611.69,-1753.43 561,-1698 544.41,-1679.86 544.13,-1671.45 525,-1656 480.62,-1620.15 420.94,-1591.67 381.63,-1575.08"/>
-<polygon fill="#000000" stroke="#000000" points="382.67,-1571.72 372.09,-1571.12 379.98,-1578.19 382.67,-1571.72"/>
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge89" class="edge">
+<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M863.56,-798C858.35,-795.53 853.4,-792.56 849,-789 784.11,-736.48 848.32,-615.78 765,-621"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node14" class="node">
-<title>sourcefile~util_append.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="974,-780 888,-780 888,-756 974,-756 974,-780"/>
-<text text-anchor="middle" x="931" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="978.5,-780 883.5,-780 883.5,-756 978.5,-756 978.5,-780"/>
+<text text-anchor="middle" x="931" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge24" class="edge">
-<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.66,-769.77C873.48,-772.52 858.81,-778.09 849,-789 775.01,-871.32 766.18,-1238.72 765.14,-1333.59"/>
-<polygon fill="#000000" stroke="#000000" points="761.64,-1333.74 765.05,-1343.77 768.64,-1333.8 761.64,-1333.74"/>
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge16" class="edge">
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M883.09,-770.84C870.42,-773.86 857.8,-779.33 849,-789 780.37,-864.48 767.63,-1201.03 765.43,-1291.53"/>
+<polygon fill="#000000" stroke="#000000" points="761.93,-1291.68 765.2,-1301.75 768.93,-1291.83 761.93,-1291.68"/>
 </g>
-<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge110" class="edge">
-<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.61,-763.57C874.24,-760.54 860.08,-755.47 849,-747 789.22,-701.3 824.99,-554.57 765,-600"/>
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge90" class="edge">
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M883.33,-761.99C871.37,-758.88 859.06,-754.16 849,-747 794.15,-707.99 832.17,-616.79 765,-621"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node15" class="node">
-<title>sourcefile~helio_coord.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="974,-1368 888,-1368 888,-1344 974,-1344 974,-1368"/>
-<text text-anchor="middle" x="931" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="965,-738 897,-738 897,-714 965,-714 965,-738"/>
+<text text-anchor="middle" x="931" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge25" class="edge">
-<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.94,-1356C863.21,-1356 832.04,-1356 807.27,-1356"/>
-<polygon fill="#000000" stroke="#000000" points="807.09,-1352.5 797.09,-1356 807.09,-1359.5 807.09,-1352.5"/>
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge17" class="edge">
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.8,-726.35C880.11,-728.34 860.94,-733.71 849,-747 775.01,-829.32 766.18,-1196.72 765.14,-1291.59"/>
+<polygon fill="#000000" stroke="#000000" points="761.64,-1291.74 765.05,-1301.77 768.64,-1291.8 761.64,-1291.74"/>
 </g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge95" class="edge">
-<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.93,-1366.73C841.12,-1378.62 771.19,-1396.25 765,-1397"/>
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge91" class="edge">
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.95,-721.53C881.63,-718.46 863.63,-713.37 849,-705 803.17,-678.79 817.69,-617.7 765,-621"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
+<!-- sourcefile~util_exit.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node16" class="node">
-<title>sourcefile~symba_util.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="972,-2082 890,-2082 890,-2058 972,-2058 972,-2082"/>
-<text text-anchor="middle" x="931" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="964.5,-696 897.5,-696 897.5,-672 964.5,-672 964.5,-696"/>
+<text text-anchor="middle" x="931" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M889.74,-2068.17C875.1,-2065.5 859.57,-2059.99 849,-2049 796.97,-1994.9 859.08,-1943.25 813,-1884 798.36,-1865.17 785.76,-1871.74 765,-1860"/>
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge18" class="edge">
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M897.15,-684.26C880.35,-686.19 860.97,-691.54 849,-705 769.59,-794.26 764.83,-1193.14 764.88,-1291.85"/>
+<polygon fill="#000000" stroke="#000000" points="761.38,-1291.9 764.91,-1301.89 768.38,-1291.88 761.38,-1291.9"/>
 </g>
-<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge27" class="edge">
-<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M889.62,-2069.17C874.61,-2066.68 858.84,-2061.03 849,-2049 755.16,-1934.27 891.25,-1508.87 813,-1383 810.96,-1379.72 808.37,-1376.81 805.46,-1374.22"/>
-<polygon fill="#000000" stroke="#000000" points="807.27,-1371.21 797.13,-1368.12 803.13,-1376.85 807.27,-1371.21"/>
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge92" class="edge">
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M897.2,-677.15C882.27,-673.61 864.51,-668.81 849,-663 809.92,-648.35 806.66,-618.39 765,-621"/>
 </g>
-<!-- sourcefile~gr.f90 -->
+<!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node17" class="node">
-<title>sourcefile~gr.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="958,-738 904,-738 904,-714 958,-714 958,-738"/>
-<text text-anchor="middle" x="931" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="970.5,-1326 891.5,-1326 891.5,-1302 970.5,-1302 970.5,-1326"/>
+<text text-anchor="middle" x="931" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge26" class="edge">
-<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.89,-725.64C885.8,-726.88 862.62,-731.7 849,-747 769.59,-836.26 764.83,-1235.14 764.88,-1333.85"/>
-<polygon fill="#000000" stroke="#000000" points="761.38,-1333.9 764.91,-1343.89 768.38,-1333.88 761.38,-1333.9"/>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge19" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.31,-1314C866.12,-1314 833.23,-1314 807.34,-1314"/>
+<polygon fill="#000000" stroke="#000000" points="807.07,-1310.5 797.07,-1314 807.07,-1317.5 807.07,-1310.5"/>
 </g>
-<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge111" class="edge">
-<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.85,-723.51C887.08,-720.92 865.46,-715.66 849,-705 798.84,-672.51 812.64,-563.92 765,-600"/>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge73" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.42,-1320.77C877.62,-1324.03 862.22,-1328.64 849,-1335 806.95,-1355.24 806.17,-1376.02 765,-1398"/>
 </g>
-<!-- sourcefile~eucl.f90 -->
+<!-- sourcefile~swiftest_driver.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node18" class="node">
-<title>sourcefile~eucl.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="958,-696 904,-696 904,-672 958,-672 958,-696"/>
-<text text-anchor="middle" x="931" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="980,-1242 882,-1242 882,-1218 980,-1218 980,-1242"/>
+<text text-anchor="middle" x="931" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge28" class="edge">
-<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.85,-683.61C885.74,-684.83 862.55,-689.64 849,-705 764.27,-801.08 763.58,-1230.49 764.66,-1333.66"/>
-<polygon fill="#000000" stroke="#000000" points="761.17,-1333.9 764.79,-1343.85 768.17,-1333.81 761.17,-1333.9"/>
-</g>
-<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge113" class="edge">
-<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.93,-679.92C887.59,-676.72 866.41,-671.38 849,-663 806.95,-642.76 802.2,-571.83 765,-600"/>
+<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge20" class="edge">
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M881.79,-1239.21C870.72,-1242.22 859.21,-1246.09 849,-1251 825.22,-1262.44 801.47,-1281.09 785.33,-1295.14"/>
+<polygon fill="#000000" stroke="#000000" points="782.76,-1292.74 777.62,-1302 787.41,-1297.96 782.76,-1292.74"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~helio_coord.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node19" class="node">
-<title>sourcefile~util_copy.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="966.5,-654 895.5,-654 895.5,-630 966.5,-630 966.5,-654"/>
-<text text-anchor="middle" x="931" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
+<title>sourcefile~helio_coord.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="974,-1284 888,-1284 888,-1260 974,-1260 974,-1284"/>
+<text text-anchor="middle" x="931" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge30" class="edge">
-<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M895.43,-642.38C879,-644.45 860.48,-649.88 849,-663 803.67,-714.8 772.64,-1220.49 766.23,-1333.62"/>
-<polygon fill="#000000" stroke="#000000" points="762.72,-1333.68 765.66,-1343.86 769.71,-1334.07 762.72,-1333.68"/>
+<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge21" class="edge">
+<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.94,-1282.71C863.1,-1289.03 831.76,-1297.01 806.94,-1303.32"/>
+<polygon fill="#000000" stroke="#000000" points="805.92,-1299.97 797.09,-1305.83 807.64,-1306.76 805.92,-1299.97"/>
 </g>
-<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge114" class="edge">
-<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M895.18,-632.96C846.97,-620.47 765.66,-599.5 765,-600"/>
+<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge74" class="edge">
+<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.93,-1277.57C874.72,-1280.67 860.58,-1285.5 849,-1293 798.84,-1325.49 817.72,-1369.85 765,-1398"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763,-1398C709.97,-1426.31 731.32,-1474.4 679,-1504 634.97,-1528.91 576.97,-1534.01 534.69,-1533.71"/>
+<polygon fill="#000000" stroke="#000000" points="534.62,-1530.21 524.56,-1533.54 534.5,-1537.21 534.62,-1530.21"/>
 </g>
-<!-- sourcefile~symba_collision.f90 -->
+<!-- sourcefile~symba_fragmentation.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node20" class="node">
-<title>sourcefile~symba_collision.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="984,-2040 878,-2040 878,-2016 984,-2016 984,-2040"/>
-<text text-anchor="middle" x="931" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
+<title>sourcefile~symba_fragmentation.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="998,-2040 864,-2040 864,-2016 998,-2016 998,-2040"/>
+<text text-anchor="middle" x="931" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge19" class="edge">
-<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M877.94,-2022.85C867.29,-2019.66 856.93,-2014.68 849,-2007 808.1,-1967.35 849.52,-1927.71 813,-1884 797.71,-1865.7 785.76,-1871.74 765,-1860"/>
+<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M863.7,-2018.81C858.11,-2015.8 853.06,-2011.94 849,-2007 805,-1953.41 835.43,-1449.61 813,-1384 806.67,-1365.47 793.97,-1347.32 783.23,-1334.14"/>
+<polygon fill="#000000" stroke="#000000" points="785.68,-1331.61 776.54,-1326.25 780.34,-1336.14 785.68,-1331.61"/>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge31" class="edge">
-<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M877.82,-2024.49C866.78,-2021.27 856.28,-2015.87 849,-2007 760.87,-1899.64 886.55,-1500.83 813,-1383 810.96,-1379.73 808.36,-1376.81 805.44,-1374.23"/>
-<polygon fill="#000000" stroke="#000000" points="807.25,-1371.21 797.11,-1368.13 803.12,-1376.86 807.25,-1371.21"/>
+<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge135" class="edge">
+<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M863.78,-2016.4C858.46,-2013.85 853.43,-2010.76 849,-2007 818.95,-1981.53 840.22,-1954.48 813,-1926 796.52,-1908.76 785.23,-1914.63 765,-1902"/>
 </g>
-<!-- sourcefile~symba_io.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node21" class="node">
-<title>sourcefile~symba_io.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="969,-1998 893,-1998 893,-1974 969,-1974 969,-1998"/>
-<text text-anchor="middle" x="931" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="986.5,-654 875.5,-654 875.5,-630 986.5,-630 986.5,-654"/>
+<text text-anchor="middle" x="931" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge9" class="edge">
-<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.91,-1983.38C877.86,-1980.66 861.19,-1975.33 849,-1965 818.95,-1939.53 840.22,-1912.48 813,-1884 796.52,-1866.76 785.76,-1871.74 765,-1860"/>
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge23" class="edge">
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M875.34,-646.79C865.35,-650.06 855.92,-655.16 849,-663 764.27,-759.08 763.58,-1188.49 764.66,-1291.66"/>
+<polygon fill="#000000" stroke="#000000" points="761.17,-1291.9 764.79,-1301.85 768.17,-1291.81 761.17,-1291.9"/>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge32" class="edge">
-<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.61,-1985.58C876.75,-1983.34 859.53,-1977.78 849,-1965 766.57,-1865.02 881.84,-1492.78 813,-1383 810.95,-1379.73 808.35,-1376.82 805.43,-1374.24"/>
-<polygon fill="#000000" stroke="#000000" points="807.23,-1371.22 797.09,-1368.14 803.1,-1376.87 807.23,-1371.22"/>
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge93" class="edge">
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M876.29,-629.97C844.11,-624.06 802.32,-618.66 765,-621"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~gr.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node22" class="node">
-<title>sourcefile~helio_drift.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="969.5,-1326 892.5,-1326 892.5,-1302 969.5,-1302 969.5,-1326"/>
-<text text-anchor="middle" x="931" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="958,-612 904,-612 904,-588 958,-588 958,-612"/>
+<text text-anchor="middle" x="931" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge33" class="edge">
-<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.15,-1323.64C866.78,-1330.09 833.36,-1338.6 807.14,-1345.27"/>
-<polygon fill="#000000" stroke="#000000" points="805.95,-1341.97 797.12,-1347.82 807.68,-1348.75 805.95,-1341.97"/>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge24" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.81,-599.57C885.69,-600.78 862.49,-605.59 849,-621 803.67,-672.8 772.64,-1178.49 766.23,-1291.62"/>
+<polygon fill="#000000" stroke="#000000" points="762.72,-1291.68 765.66,-1301.86 769.71,-1292.07 762.72,-1291.68"/>
 </g>
-<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge90" class="edge">
-<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.21,-1318.87C877.89,-1321.94 861.94,-1326.92 849,-1335 828.14,-1348.02 832.89,-1362.55 813,-1377 794.3,-1390.59 787.94,-1394.22 765,-1397"/>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge94" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.81,-604.39C871.35,-609.58 814.28,-617.91 765,-621"/>
 </g>
-<!-- sourcefile~symba_kick.f90 -->
+<!-- sourcefile~fragmentation.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node23" class="node">
-<title>sourcefile~symba_kick.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="974,-1956 888,-1956 888,-1932 974,-1932 974,-1956"/>
-<text text-anchor="middle" x="931" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
+<title>sourcefile~fragmentation.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="979.5,-570 882.5,-570 882.5,-546 979.5,-546 979.5,-570"/>
+<text text-anchor="middle" x="931" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge10" class="edge">
-<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.82,-1937.84C874.75,-1934.71 860.72,-1930.02 849,-1923 828.76,-1910.88 831.86,-1898.17 813,-1884 793.93,-1869.67 785.76,-1871.74 765,-1860"/>
+<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge25" class="edge">
+<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M882.39,-560.69C869.86,-563.73 857.48,-569.24 849,-579 801,-634.24 771.89,-1173.68 766.08,-1291.39"/>
+<polygon fill="#000000" stroke="#000000" points="762.57,-1291.55 765.58,-1301.71 769.56,-1291.9 762.57,-1291.55"/>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge34" class="edge">
-<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.59,-1942.73C873.23,-1940.06 858.45,-1934.41 849,-1923 772.27,-1830.39 877.14,-1484.74 813,-1383 810.94,-1379.73 808.34,-1376.83 805.41,-1374.25"/>
-<polygon fill="#000000" stroke="#000000" points="807.21,-1371.23 797.07,-1368.16 803.09,-1376.88 807.21,-1371.23"/>
+<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge95" class="edge">
+<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M882.37,-568.57C871.27,-571.52 859.61,-575.02 849,-579 809.92,-593.65 806.66,-618.39 765,-621"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node24" class="node">
-<title>sourcefile~rmvs_util.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="967.5,-2208 894.5,-2208 894.5,-2184 967.5,-2184 967.5,-2208"/>
-<text text-anchor="middle" x="931" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="1002,-2208 860,-2208 860,-2184 1002,-2184 1002,-2208"/>
+<text text-anchor="middle" x="931" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge35" class="edge">
-<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M894.18,-2195.88C877.85,-2193.82 859.8,-2188.32 849,-2175 793.52,-2106.57 859.19,-1458.01 813,-1383 810.98,-1379.71 808.4,-1376.79 805.49,-1374.2"/>
-<polygon fill="#000000" stroke="#000000" points="807.3,-1371.19 797.17,-1368.1 803.16,-1376.84 807.3,-1371.19"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge26" class="edge">
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M859.92,-2184.67C855.82,-2182.02 852.11,-2178.84 849,-2175 793.59,-2106.66 840.95,-1467.42 813,-1384 806.78,-1365.43 794.08,-1347.28 783.31,-1334.11"/>
+<polygon fill="#000000" stroke="#000000" points="785.74,-1331.57 776.6,-1326.23 780.41,-1336.11 785.74,-1331.57"/>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge83" class="edge">
-<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M894.26,-2202.12C879.76,-2205.39 863.14,-2210.2 849,-2217 806.95,-2237.24 807,-2300.33 765,-2280"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge82" class="edge">
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M866.81,-2208.04C860.55,-2210.49 854.49,-2213.45 849,-2217 798.84,-2249.49 824.65,-2318.26 765,-2322"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763,-2322C533.22,-2336.39 636.56,-2062.47 561,-1845 541.18,-1787.96 562.24,-1761.53 525,-1714 522.7,-1711.06 519.96,-1708.4 516.99,-1706.01"/>
+<polygon fill="#000000" stroke="#000000" points="518.92,-1703.09 508.71,-1700.28 514.94,-1708.85 518.92,-1703.09"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~util_rescale.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node25" class="node">
-<title>sourcefile~tides_getacch_pl.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="986.5,-612 875.5,-612 875.5,-588 986.5,-588 986.5,-612"/>
-<text text-anchor="middle" x="931" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="973.5,-528 888.5,-528 888.5,-504 973.5,-504 973.5,-528"/>
+<text text-anchor="middle" x="931" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge36" class="edge">
-<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M875.25,-604.72C865.27,-607.99 855.86,-613.11 849,-621 801,-676.24 771.89,-1215.68 766.08,-1333.39"/>
-<polygon fill="#000000" stroke="#000000" points="762.57,-1333.55 765.58,-1343.71 769.56,-1333.9 762.57,-1333.55"/>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge27" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M888.27,-517.4C873.8,-520.06 858.78,-525.68 849,-537 798.25,-595.75 771.11,-1170.48 765.92,-1291.65"/>
+<polygon fill="#000000" stroke="#000000" points="762.41,-1291.78 765.49,-1301.92 769.41,-1292.08 762.41,-1291.78"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge115" class="edge">
-<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.84,-587.99C855.48,-579.08 801.08,-572.68 765,-600"/>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge96" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M888.4,-522.34C875.22,-525.49 860.98,-530.15 849,-537 803.17,-563.21 817.69,-617.7 765,-621"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~symba_setup.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node26" class="node">
-<title>sourcefile~tides_spin_step.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="983.5,-570 878.5,-570 878.5,-546 983.5,-546 983.5,-570"/>
-<text text-anchor="middle" x="931" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="978,-1998 884,-1998 884,-1974 978,-1974 978,-1998"/>
+<text text-anchor="middle" x="931" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge37" class="edge">
-<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M878.14,-561.78C867.09,-564.99 856.5,-570.31 849,-579 798.25,-637.75 771.11,-1212.48 765.92,-1333.65"/>
-<polygon fill="#000000" stroke="#000000" points="762.41,-1333.78 765.49,-1343.92 769.41,-1334.08 762.41,-1333.78"/>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge28" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M883.76,-1983.98C870.63,-1981.05 857.59,-1975.42 849,-1965 807.85,-1915.1 834.05,-1445.16 813,-1384 806.63,-1365.48 793.94,-1347.33 783.2,-1334.15"/>
+<polygon fill="#000000" stroke="#000000" points="785.65,-1331.62 776.52,-1326.25 780.31,-1336.15 785.65,-1331.62"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge116" class="edge">
-<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M878.26,-560.8C843.25,-565.02 797.64,-575.28 765,-600"/>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge136" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M883.62,-1978.79C871.79,-1975.69 859.47,-1971.27 849,-1965 828.76,-1952.88 831.86,-1940.17 813,-1926 793.93,-1911.67 785.23,-1914.63 765,-1902"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node27" class="node">
-<title>sourcefile~user_getacch.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="978.5,-528 883.5,-528 883.5,-504 978.5,-504 978.5,-528"/>
-<text text-anchor="middle" x="931" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="969.5,-1452 892.5,-1452 892.5,-1428 969.5,-1428 969.5,-1452"/>
+<text text-anchor="middle" x="931" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge38" class="edge">
-<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M883.16,-518.43C870.34,-521.42 857.61,-526.97 849,-537 795.55,-599.23 770.41,-1208.54 765.79,-1333.62"/>
-<polygon fill="#000000" stroke="#000000" points="762.28,-1333.77 765.42,-1343.89 769.28,-1334.03 762.28,-1333.77"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge29" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.47,-1435.44C878.03,-1432.41 861.92,-1427.37 849,-1419 831.66,-1407.77 798.15,-1361.88 779.11,-1334.62"/>
+<polygon fill="#000000" stroke="#000000" points="781.83,-1332.39 773.25,-1326.17 776.07,-1336.38 781.83,-1332.39"/>
 </g>
-<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge117" class="edge">
-<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M883.48,-524.76C871.9,-527.82 859.73,-531.83 849,-537 806.95,-557.24 802.2,-571.83 765,-600"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge76" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.35,-1430.25C843.88,-1417.73 765.72,-1397.62 765,-1398"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
+<!-- sourcefile~symba_drift.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node28" class="node">
-<title>sourcefile~symba_step.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="975,-1914 887,-1914 887,-1890 975,-1890 975,-1914"/>
-<text text-anchor="middle" x="931" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="974,-1956 888,-1956 888,-1932 974,-1932 974,-1956"/>
+<text text-anchor="middle" x="931" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge18" class="edge">
-<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M886.66,-1897.33C851.95,-1892.13 802.95,-1881.46 765,-1860"/>
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge30" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.59,-1942.73C873.23,-1940.06 858.45,-1934.41 849,-1923 772.41,-1830.56 852.34,-1497.42 813,-1384 806.58,-1365.5 793.89,-1347.34 783.17,-1334.16"/>
+<polygon fill="#000000" stroke="#000000" points="785.63,-1331.64 776.5,-1326.26 780.28,-1336.16 785.63,-1331.64"/>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge41" class="edge">
-<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M886.78,-1900.54C872.69,-1897.81 858.3,-1892.16 849,-1881 777.98,-1795.75 872.43,-1476.69 813,-1383 810.93,-1379.74 808.32,-1376.84 805.39,-1374.26"/>
-<polygon fill="#000000" stroke="#000000" points="807.19,-1371.24 797.05,-1368.17 803.07,-1376.89 807.19,-1371.24"/>
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge140" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.9,-1940.44C852.79,-1935.87 802.61,-1925.48 765,-1902"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
+<!-- sourcefile~whm_drift.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node29" class="node">
-<title>sourcefile~whm_step.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="970.5,-1662 891.5,-1662 891.5,-1638 970.5,-1638 970.5,-1662"/>
-<text text-anchor="middle" x="931" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="969.5,-2166 892.5,-2166 892.5,-2142 969.5,-2142 969.5,-2166"/>
+<text text-anchor="middle" x="931" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge39" class="edge">
-<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.43,-1648.91C876.13,-1646.45 859.67,-1640.9 849,-1629 775.21,-1546.75 875.56,-1474.08 813,-1383 810.69,-1379.64 807.82,-1376.65 804.63,-1374"/>
-<polygon fill="#000000" stroke="#000000" points="806.42,-1370.97 796.22,-1368.09 802.4,-1376.7 806.42,-1370.97"/>
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge31" class="edge">
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.11,-2153.59C876.35,-2151.32 859.36,-2145.74 849,-2133 796.44,-2068.35 839.57,-1462.97 813,-1384 806.76,-1365.44 794.06,-1347.29 783.29,-1334.12"/>
+<polygon fill="#000000" stroke="#000000" points="785.73,-1331.58 776.58,-1326.23 780.4,-1336.12 785.73,-1331.58"/>
 </g>
-<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge106" class="edge">
-<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.44,-1644.9C823.95,-1635.62 680.25,-1614.3 561,-1586 523.72,-1577.15 516.35,-1566.93 478.5,-1561"/>
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge120" class="edge">
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.33,-2150.32C877.71,-2147.41 861.51,-2142.23 849,-2133 757.79,-2065.7 770.46,-2014.86 715,-1916 697.69,-1885.14 698.72,-1874.37 679,-1845 664.42,-1823.29 545.38,-1683.39 525,-1667 480.41,-1631.15 420.52,-1602.59 381.24,-1585.98"/>
+<polygon fill="#000000" stroke="#000000" points="382.3,-1582.63 371.72,-1582.02 379.61,-1589.09 382.3,-1582.63"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
+<!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node30" class="node">
-<title>sourcefile~orbel.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="958.5,-486 903.5,-486 903.5,-462 958.5,-462 958.5,-486"/>
-<text text-anchor="middle" x="931" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="969.5,-1410 892.5,-1410 892.5,-1386 969.5,-1386 969.5,-1410"/>
+<text text-anchor="middle" x="931" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge40" class="edge">
-<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.32,-473.5C885.2,-474.71 862.21,-479.54 849,-495 792.82,-560.73 769.74,-1205 765.67,-1333.7"/>
-<polygon fill="#000000" stroke="#000000" points="762.17,-1333.81 765.35,-1343.91 769.16,-1334.02 762.17,-1333.81"/>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge32" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.23,-1391.42C878.23,-1388.16 862.48,-1383.49 849,-1377 825.22,-1365.56 801.47,-1346.91 785.33,-1332.86"/>
+<polygon fill="#000000" stroke="#000000" points="787.41,-1330.04 777.62,-1326 782.76,-1335.26 787.41,-1330.04"/>
 </g>
-<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge118" class="edge">
-<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.48,-476.55C886.76,-479.16 865.34,-484.42 849,-495 798.84,-527.49 812.64,-563.92 765,-600"/>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge71" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.18,-1388.37C857.07,-1381.56 804.42,-1376.95 765,-1398"/>
 </g>
-<!-- sourcefile~rmvs_discard.f90 -->
+<!-- sourcefile~kick.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node31" class="node">
-<title>sourcefile~rmvs_discard.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="978,-2166 884,-2166 884,-2142 978,-2142 978,-2166"/>
-<text text-anchor="middle" x="931" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="958,-486 904,-486 904,-462 958,-462 958,-486"/>
+<text text-anchor="middle" x="931" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge42" class="edge">
-<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M883.67,-2152.05C870.54,-2149.12 857.52,-2143.48 849,-2133 796.38,-2068.26 856.83,-1453.99 813,-1383 810.97,-1379.72 808.39,-1376.8 805.48,-1374.21"/>
-<polygon fill="#000000" stroke="#000000" points="807.29,-1371.2 797.16,-1368.1 803.15,-1376.84 807.29,-1371.2"/>
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge33" class="edge">
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.73,-473.5C885.56,-474.67 862.35,-479.46 849,-495 795.55,-557.23 770.41,-1166.54 765.79,-1291.62"/>
+<polygon fill="#000000" stroke="#000000" points="762.28,-1291.77 765.42,-1301.89 769.28,-1292.03 762.28,-1291.77"/>
 </g>
-<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge87" class="edge">
-<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763,-2280C539.74,-2293.98 639.16,-2028.59 561,-1819 542.14,-1768.42 558.98,-1744.94 525,-1703 522.59,-1700.02 519.74,-1697.33 516.65,-1694.9"/>
-<polygon fill="#000000" stroke="#000000" points="518.33,-1691.81 508.09,-1689.1 514.41,-1697.61 518.33,-1691.81"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M883.73,-2160.6C871.77,-2163.72 859.36,-2168.29 849,-2175 798.84,-2207.49 818.79,-2306.04 765,-2280"/>
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge97" class="edge">
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.9,-475.97C886.95,-478.34 865.1,-483.55 849,-495 794.15,-534.01 832.17,-616.79 765,-621"/>
 </g>
-<!-- sourcefile~whm_drift.f90 -->
+<!-- sourcefile~operator_mag.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node32" class="node">
-<title>sourcefile~whm_drift.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="969.5,-1620 892.5,-1620 892.5,-1596 969.5,-1596 969.5,-1620"/>
-<text text-anchor="middle" x="931" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
+<title>sourcefile~operator_mag.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/operator_mag.f90.html" xlink:title="operator_mag.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="813,-2414 715,-2414 715,-2390 813,-2390 813,-2414"/>
+<text text-anchor="middle" x="764" y="-2399.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge43" class="edge">
-<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.43,-1606.89C876.93,-1604.46 860.04,-1598.95 849,-1587 786.52,-1519.38 866.23,-1458.12 813,-1383 810.64,-1379.67 807.74,-1376.7 804.53,-1374.07"/>
-<polygon fill="#000000" stroke="#000000" points="806.3,-1371.03 796.09,-1368.18 802.29,-1376.77 806.3,-1371.03"/>
+<!-- sourcefile~operator_mag.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge10" class="edge">
+<title>sourcefile~operator_mag.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M720.4,-2390C705.79,-2385.88 689.26,-2381.23 673.93,-2376.91"/>
+<polygon fill="#000000" stroke="#000000" points="674.64,-2373.47 664.07,-2374.13 672.74,-2380.21 674.64,-2373.47"/>
 </g>
-<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge97" class="edge">
-<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.21,-1598.24C844,-1585.81 766.62,-1565.93 765,-1566"/>
-</g>
-<!-- sourcefile~util_valid.f90 -->
+<!-- sourcefile~rmvs_discard.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node33" class="node">
-<title>sourcefile~util_valid.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="967,-444 895,-444 895,-420 967,-420 967,-444"/>
-<text text-anchor="middle" x="931" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="978,-2418 884,-2418 884,-2394 978,-2394 978,-2418"/>
+<text text-anchor="middle" x="931" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge44" class="edge">
-<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M894.86,-432.29C878.49,-434.37 860.2,-439.83 849,-453 819.48,-487.7 774.66,-1198.03 766.35,-1333.71"/>
-<polygon fill="#000000" stroke="#000000" points="762.85,-1333.57 765.74,-1343.76 769.84,-1334 762.85,-1333.57"/>
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge34" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M883.59,-2404.11C870.46,-2401.19 857.46,-2395.53 849,-2385 779.32,-2298.22 847.85,-1489.7 813,-1384 806.87,-1365.4 794.17,-1347.25 783.37,-1334.09"/>
+<polygon fill="#000000" stroke="#000000" points="785.8,-1331.54 776.64,-1326.21 780.47,-1336.09 785.8,-1331.54"/>
 </g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge119" class="edge">
-<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M894.62,-435.01C879.35,-437.77 862.04,-443.03 849,-453 789.22,-498.7 824.99,-554.57 765,-600"/>
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge80" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M883.96,-2398.19C872.13,-2395.09 859.72,-2390.83 849,-2385 829.93,-2374.64 830.28,-2365.14 813,-2352 792.98,-2336.77 787.56,-2333.12 765,-2322"/>
 </g>
-<!-- sourcefile~kick.f90 -->
+<!-- sourcefile~rmvs_setup.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node34" class="node">
-<title>sourcefile~kick.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="958,-402 904,-402 904,-378 958,-378 958,-402"/>
-<text text-anchor="middle" x="931" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="974,-2376 888,-2376 888,-2352 974,-2352 974,-2376"/>
+<text text-anchor="middle" x="931" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge45" class="edge">
-<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.66,-389.44C885.47,-390.59 862.24,-395.37 849,-411 818.13,-447.44 774.23,-1193.81 766.26,-1333.56"/>
-<polygon fill="#000000" stroke="#000000" points="762.75,-1333.7 765.68,-1343.88 769.74,-1334.1 762.75,-1333.7"/>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge35" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.83,-2362.96C873.32,-2360.34 858.38,-2354.66 849,-2343 782.17,-2259.91 846.47,-1485.24 813,-1384 806.85,-1365.41 794.15,-1347.26 783.36,-1334.1"/>
+<polygon fill="#000000" stroke="#000000" points="785.79,-1331.55 776.63,-1326.22 780.46,-1336.09 785.79,-1331.55"/>
 </g>
-<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge120" class="edge">
-<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.98,-391.01C886.64,-392.95 864.29,-398.04 849,-411 778.88,-470.44 838.28,-544.5 765,-600"/>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge81" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.98,-2358.27C853.59,-2352.43 804.37,-2341.41 765,-2322"/>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
+<!-- sourcefile~whm_coord.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node35" class="node">
-<title>sourcefile~helio_gr.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="965,-1284 897,-1284 897,-1260 965,-1260 965,-1284"/>
-<text text-anchor="middle" x="931" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="974,-1704 888,-1704 888,-1680 974,-1680 974,-1704"/>
+<text text-anchor="middle" x="931" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge46" class="edge">
-<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.89,-1276.38C881.57,-1279.43 863.57,-1284.53 849,-1293 829.16,-1304.53 831.3,-1316.16 813,-1330 808.86,-1333.14 804.28,-1336.12 799.66,-1338.88"/>
-<polygon fill="#000000" stroke="#000000" points="797.79,-1335.91 790.79,-1343.87 801.22,-1342.01 797.79,-1335.91"/>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge36" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.95,-1690.43C873.63,-1687.73 858.78,-1682.13 849,-1671 806.57,-1622.72 835.82,-1444.09 813,-1384 806.05,-1365.69 793.38,-1347.53 782.8,-1334.29"/>
+<polygon fill="#000000" stroke="#000000" points="785.31,-1331.83 776.23,-1326.36 779.91,-1336.29 785.31,-1331.83"/>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge91" class="edge">
-<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.9,-1273.86C880.85,-1276.32 862.22,-1281.64 849,-1293 818.19,-1319.47 841.87,-1348.42 813,-1377 796.58,-1393.26 787.94,-1394.22 765,-1397"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763,-1397C711.11,-1403.28 573.82,-1470.45 510.87,-1502.35"/>
-<polygon fill="#000000" stroke="#000000" points="509.11,-1499.32 501.79,-1506.98 512.29,-1505.56 509.11,-1499.32"/>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge124" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.94,-1681.18C875.4,-1677.93 861.64,-1674.34 849,-1671 766.56,-1649.19 563.07,-1581.97 478.5,-1571"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node36" class="node">
-<title>sourcefile~util_resize.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="970.5,-360 891.5,-360 891.5,-336 970.5,-336 970.5,-360"/>
-<text text-anchor="middle" x="931" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="968.5,-444 893.5,-444 893.5,-420 968.5,-420 968.5,-444"/>
+<text text-anchor="middle" x="931" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge47" class="edge">
-<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.49,-348.72C876.01,-351.09 859.4,-356.68 849,-369 816.77,-407.19 773.81,-1189.82 766.18,-1333.46"/>
-<polygon fill="#000000" stroke="#000000" points="762.67,-1333.52 765.64,-1343.69 769.67,-1333.89 762.67,-1333.52"/>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge37" class="edge">
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M893.23,-432.54C877.3,-434.77 859.85,-440.3 849,-453 820.85,-485.94 775.19,-1159.17 766.47,-1291.53"/>
+<polygon fill="#000000" stroke="#000000" points="762.96,-1291.48 765.8,-1301.69 769.95,-1291.94 762.96,-1291.48"/>
 </g>
-<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge121" class="edge">
-<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.31,-350.43C876.54,-353.16 860.5,-358.54 849,-369 768.17,-442.49 852.09,-534.05 765,-600"/>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge99" class="edge">
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M893.13,-434.89C878.12,-437.66 861.42,-442.95 849,-453 784.11,-505.52 848.32,-615.78 765,-621"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~setup.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node37" class="node">
-<title>sourcefile~util_spill.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="965,-318 897,-318 897,-294 965,-294 965,-318"/>
-<text text-anchor="middle" x="931" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="959.5,-402 902.5,-402 902.5,-378 959.5,-378 959.5,-402"/>
+<text text-anchor="middle" x="931" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge77" class="edge">
-<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.85,-306C879.96,-307.86 860.6,-313.21 849,-327 832.17,-347.01 776.2,-1186.01 766.45,-1333.86"/>
-<polygon fill="#000000" stroke="#000000" points="762.95,-1333.77 765.79,-1343.98 769.94,-1334.23 762.95,-1333.77"/>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge38" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M902.12,-389.57C884.19,-390.89 861.9,-395.84 849,-411 819.48,-445.7 774.66,-1156.03 766.35,-1291.71"/>
+<polygon fill="#000000" stroke="#000000" points="762.85,-1291.57 765.74,-1301.76 769.84,-1292 762.85,-1291.57"/>
 </g>
-<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge138" class="edge">
-<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.78,-307.23C880.5,-309.5 861.71,-314.85 849,-327 757.25,-414.73 866.2,-523.36 765,-600"/>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge100" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M902.3,-391C885.12,-392.98 863.61,-398.13 849,-411 773.56,-477.43 865.33,-614.72 765,-621"/>
 </g>
-<!-- sourcefile~operator_mag.f90 -->
+<!-- sourcefile~util_version.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node38" class="node">
-<title>sourcefile~operator_mag.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/operator_mag.f90.html" xlink:title="operator_mag.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="813,-2332 715,-2332 715,-2308 813,-2308 813,-2332"/>
-<text text-anchor="middle" x="764" y="-2317.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag.f90</text>
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="973.5,-360 888.5,-360 888.5,-336 973.5,-336 973.5,-360"/>
+<text text-anchor="middle" x="931" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~operator_mag.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge80" class="edge">
-<title>sourcefile~operator_mag.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M714.93,-2320C706.66,-2320 697.92,-2320 689.24,-2320"/>
-<polygon fill="#000000" stroke="#000000" points="689.11,-2316.5 679.11,-2320 689.11,-2323.5 689.11,-2316.5"/>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge39" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M888.15,-349.3C873.67,-351.95 858.67,-357.58 849,-369 833.53,-387.26 776.9,-1151.52 766.61,-1291.95"/>
+<polygon fill="#000000" stroke="#000000" points="763.12,-1291.73 765.88,-1301.96 770.1,-1292.24 763.12,-1291.73"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge101" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M888.25,-350.84C874.3,-353.71 859.62,-359.08 849,-369 762.73,-449.59 882.83,-613.62 765,-621"/>
+</g>
+<!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node39" class="node">
-<title>sourcefile~helio_step.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="970.5,-1452 891.5,-1452 891.5,-1428 970.5,-1428 970.5,-1452"/>
-<text text-anchor="middle" x="931" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="970,-2334 892,-2334 892,-2310 970,-2310 970,-2334"/>
+<text text-anchor="middle" x="931" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge48" class="edge">
-<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.29,-1434.33C877.33,-1431.18 861.86,-1426.36 849,-1419 829.36,-1407.77 831.03,-1396.67 813,-1383 808.52,-1379.61 803.58,-1376.35 798.61,-1373.34"/>
-<polygon fill="#000000" stroke="#000000" points="800.15,-1370.19 789.73,-1368.23 796.65,-1376.25 800.15,-1370.19"/>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge40" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.64,-2321.57C875.99,-2319.27 859.21,-2313.67 849,-2301 785.03,-2221.6 845.09,-1480.79 813,-1384 806.84,-1365.41 794.14,-1347.26 783.35,-1334.1"/>
+<polygon fill="#000000" stroke="#000000" points="785.78,-1331.55 776.62,-1326.22 780.45,-1336.1 785.78,-1331.55"/>
 </g>
-<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge92" class="edge">
-<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.27,-1429.98C877.88,-1426.51 862.78,-1422.59 849,-1419 811.65,-1409.27 803.31,-1392.37 765,-1397"/>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge83" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.81,-2331.17C856.91,-2337.49 804.82,-2341.63 765,-2322"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node40" class="node">
-<title>sourcefile~util_get_energy_momentum.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="1013,-276 849,-276 849,-252 1013,-252 1013,-276"/>
-<text text-anchor="middle" x="931" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="958.5,-318 903.5,-318 903.5,-294 958.5,-294 958.5,-318"/>
+<text text-anchor="middle" x="931" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge49" class="edge">
-<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M858.98,-276.15C855.27,-278.63 851.89,-281.55 849,-285 831.5,-305.87 775.97,-1180.9 766.41,-1333.44"/>
-<polygon fill="#000000" stroke="#000000" points="762.89,-1333.66 765.76,-1343.86 769.87,-1334.1 762.89,-1333.66"/>
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge41" class="edge">
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.26,-305.45C885.11,-306.63 862.12,-311.46 849,-327 832.87,-346.11 776.66,-1145.98 766.56,-1291.43"/>
+<polygon fill="#000000" stroke="#000000" points="763.04,-1291.56 765.84,-1301.78 770.03,-1292.05 763.04,-1291.56"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge122" class="edge">
-<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M860.81,-276.13C856.51,-278.59 852.5,-281.52 849,-285 746.19,-387.1 880.51,-512.53 765,-600"/>
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge102" class="edge">
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.38,-306.35C885.77,-307.99 863.35,-313 849,-327 751.73,-421.9 900.63,-612.51 765,-621"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~symba_util.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node41" class="node">
-<title>sourcefile~swiftest_driver.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="980,-1242 882,-1242 882,-1218 980,-1218 980,-1242"/>
-<text text-anchor="middle" x="931" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="972,-1914 890,-1914 890,-1890 972,-1890 972,-1914"/>
+<text text-anchor="middle" x="931" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge50" class="edge">
-<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M881.67,-1235.19C870,-1238.31 858.23,-1243.25 849,-1251 819.45,-1275.81 839.33,-1301.79 813,-1330 810.09,-1333.12 806.72,-1335.94 803.14,-1338.48"/>
-<polygon fill="#000000" stroke="#000000" points="801.14,-1335.61 794.53,-1343.89 804.86,-1341.53 801.14,-1335.61"/>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge42" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M889.74,-1901.08C874.73,-1898.57 858.95,-1892.94 849,-1881 778.11,-1795.93 849.58,-1488.52 813,-1384 806.53,-1365.52 793.84,-1347.36 783.14,-1334.17"/>
+<polygon fill="#000000" stroke="#000000" points="785.59,-1331.66 776.47,-1326.27 780.24,-1336.17 785.59,-1331.66"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90 -->
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge139" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M889.77,-1913.2C854.19,-1920.65 802.3,-1925.29 765,-1902"/>
+</g>
+<!-- sourcefile~rmvs_step.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node42" class="node">
-<title>sourcefile~rmvs_setup.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="974,-2376 888,-2376 888,-2352 974,-2352 974,-2376"/>
-<text text-anchor="middle" x="931" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="971,-2292 891,-2292 891,-2268 971,-2268 971,-2292"/>
+<text text-anchor="middle" x="931" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge51" class="edge">
-<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.83,-2362.96C873.32,-2360.34 858.38,-2354.66 849,-2343 782.11,-2259.82 868.61,-1474.11 813,-1383 810.99,-1379.7 808.42,-1376.78 805.51,-1374.18"/>
-<polygon fill="#000000" stroke="#000000" points="807.34,-1371.18 797.21,-1368.07 803.19,-1376.82 807.34,-1371.18"/>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge43" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M890.81,-2279.43C875.4,-2277.06 859.04,-2271.43 849,-2259 787.88,-2183.28 843.71,-1476.33 813,-1384 806.82,-1365.42 794.12,-1347.27 783.34,-1334.1"/>
+<polygon fill="#000000" stroke="#000000" points="785.77,-1331.56 776.62,-1326.22 780.44,-1336.1 785.77,-1331.56"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge84" class="edge">
-<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.98,-2358.36C874.78,-2355.25 860.62,-2350.44 849,-2343 827.72,-2329.38 833.4,-2313.91 813,-2299 794.47,-2285.46 785.65,-2290 765,-2280"/>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge85" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M890.7,-2290.17C842.12,-2302.71 765.72,-2322.36 765,-2322"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node43" class="node">
-<title>sourcefile~whm_util.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="967.5,-1578 894.5,-1578 894.5,-1554 967.5,-1554 967.5,-1578"/>
-<text text-anchor="middle" x="931" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="990,-276 872,-276 872,-252 990,-252 990,-276"/>
+<text text-anchor="middle" x="931" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge52" class="edge">
-<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M894.32,-1564.9C878.43,-1562.57 860.71,-1557.12 849,-1545 797.77,-1491.94 856.96,-1442.22 813,-1383 810.44,-1379.55 807.29,-1376.47 803.85,-1373.75"/>
-<polygon fill="#000000" stroke="#000000" points="805.64,-1370.74 795.4,-1368.03 801.72,-1376.54 805.64,-1370.74"/>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge44" class="edge">
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M871.76,-269.71C863.04,-273.01 854.98,-277.88 849,-285 832.17,-305.01 776.2,-1144.01 766.45,-1291.86"/>
+<polygon fill="#000000" stroke="#000000" points="762.95,-1291.77 765.79,-1301.98 769.94,-1292.23 762.95,-1291.77"/>
 </g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge101" class="edge">
-<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M894.25,-1565.07C860.82,-1564.42 809.5,-1563.99 765,-1566"/>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge103" class="edge">
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M871.88,-270.88C863.36,-274.07 855.34,-278.6 849,-285 740.63,-394.32 918.63,-611.38 765,-621"/>
 </g>
 <!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node44" class="node">
@@ -1126,504 +1127,523 @@ <h3 class="panel-title">Files dependent on this one</h3>
 </g>
 </g>
 <!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge53" class="edge">
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge45" class="edge">
 <title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.27,-222.55C876.54,-224.84 859.53,-230.4 849,-243 830.81,-264.76 775.63,-1177.76 766.33,-1333.52"/>
-<polygon fill="#000000" stroke="#000000" points="762.83,-1333.57 765.72,-1343.76 769.81,-1333.99 762.83,-1333.57"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.29,-222.56C876.56,-224.85 859.55,-230.42 849,-243 840.24,-253.45 777.37,-1138.85 766.57,-1291.66"/>
+<polygon fill="#000000" stroke="#000000" points="763.08,-1291.51 765.86,-1301.73 770.06,-1292 763.08,-1291.51"/>
 </g>
 <!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge123" class="edge">
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge104" class="edge">
 <title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.33,-223.48C877,-225.99 860.27,-231.47 849,-243 735.05,-359.55 894.94,-501.59 765,-600"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.26,-223.41C876.92,-225.91 860.2,-231.4 849,-243 729.46,-366.8 936.76,-610.24 765,-621"/>
 </g>
-<!-- sourcefile~drift.f90 -->
+<!-- sourcefile~symba_kick.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node45" class="node">
-<title>sourcefile~drift.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="958,-192 904,-192 904,-168 958,-168 958,-192"/>
-<text text-anchor="middle" x="931" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="974,-1872 888,-1872 888,-1848 974,-1848 974,-1872"/>
+<text text-anchor="middle" x="931" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge54" class="edge">
-<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.98,-179.36C885.69,-180.43 862.21,-185.15 849,-201 839.55,-212.33 776.74,-1175.02 766.43,-1333.91"/>
-<polygon fill="#000000" stroke="#000000" points="762.93,-1333.73 765.78,-1343.94 769.92,-1334.19 762.93,-1333.73"/>
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge46" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.67,-1858.67C873.32,-1855.99 858.52,-1850.35 849,-1839 783.81,-1761.3 846.83,-1479.62 813,-1384 806.47,-1365.54 793.78,-1347.38 783.09,-1334.19"/>
+<polygon fill="#000000" stroke="#000000" points="785.56,-1331.68 776.44,-1326.28 780.2,-1336.19 785.56,-1331.68"/>
 </g>
-<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge124" class="edge">
-<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.83,-179.97C885.95,-181.39 863.05,-186.29 849,-201 723.85,-332.07 909.47,-490.59 765,-600"/>
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge130" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.73,-1870.95C839.06,-1883.54 765.67,-1902.42 765,-1902"/>
 </g>
-<!-- sourcefile~rmvs_step.f90 -->
+<!-- sourcefile~io.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node46" class="node">
-<title>sourcefile~rmvs_step.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="971,-2334 891,-2334 891,-2310 971,-2310 971,-2334"/>
-<text text-anchor="middle" x="931" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="958,-192 904,-192 904,-168 958,-168 958,-192"/>
+<text text-anchor="middle" x="931" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge55" class="edge">
-<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M890.8,-2321.44C875.39,-2319.07 859.03,-2313.44 849,-2301 784.96,-2221.51 866.25,-1470.09 813,-1383 810.99,-1379.71 808.41,-1376.78 805.51,-1374.19"/>
-<polygon fill="#000000" stroke="#000000" points="807.33,-1371.18 797.2,-1368.08 803.18,-1376.82 807.33,-1371.18"/>
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge47" class="edge">
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.99,-179.37C885.7,-180.44 862.23,-185.17 849,-201 844.45,-206.45 777.82,-1134.9 766.6,-1291.65"/>
+<polygon fill="#000000" stroke="#000000" points="763.08,-1291.72 765.86,-1301.94 770.07,-1292.22 763.08,-1291.72"/>
 </g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge86" class="edge">
-<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M890.79,-2316.59C856.36,-2310.78 805.57,-2299.64 765,-2280"/>
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge105" class="edge">
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.78,-179.92C885.89,-181.32 862.97,-186.22 849,-201 718.23,-339.34 954.99,-609.1 765,-621"/>
 </g>
-<!-- sourcefile~whm_gr.f90 -->
+<!-- sourcefile~util_fill.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node47" class="node">
-<title>sourcefile~whm_gr.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="965,-1536 897,-1536 897,-1512 965,-1512 965,-1536"/>
-<text text-anchor="middle" x="931" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="961,-150 901,-150 901,-126 961,-126 961,-150"/>
+<text text-anchor="middle" x="931" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge56" class="edge">
-<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.74,-1522.81C880.45,-1520.55 861.66,-1515.19 849,-1503 808.89,-1464.38 847.79,-1426.47 813,-1383 810.31,-1379.64 807.09,-1376.63 803.59,-1373.94"/>
-<polygon fill="#000000" stroke="#000000" points="805.35,-1370.91 795.09,-1368.27 801.46,-1376.73 805.35,-1370.91"/>
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge48" class="edge">
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M900.84,-137.57C883.07,-138.99 861.46,-144.05 849,-159 846.64,-161.83 777.91,-1131.62 766.58,-1291.74"/>
+<polygon fill="#000000" stroke="#000000" points="763.07,-1291.62 765.86,-1301.84 770.06,-1292.11 763.07,-1291.62"/>
 </g>
-<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge105" class="edge">
-<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.67,-1532.66C849.44,-1544.92 768.34,-1565.85 765,-1566"/>
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge107" class="edge">
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M900.98,-138.08C883.5,-139.73 862.15,-144.84 849,-159 706.97,-311.92 973.29,-607.96 765,-621"/>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
+<!-- sourcefile~whm_gr.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node48" class="node">
-<title>sourcefile~fragmentation.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="979.5,-150 882.5,-150 882.5,-126 979.5,-126 979.5,-150"/>
-<text text-anchor="middle" x="931" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="965,-1662 897,-1662 897,-1638 965,-1638 965,-1662"/>
+<text text-anchor="middle" x="931" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge57" class="edge">
-<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M882.12,-140.46C869.57,-143.49 857.27,-149.06 849,-159 844.11,-164.88 777.35,-1169.55 766.49,-1333.5"/>
-<polygon fill="#000000" stroke="#000000" points="762.97,-1333.62 765.81,-1343.83 769.96,-1334.08 762.97,-1333.62"/>
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge49" class="edge">
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.79,-1649.65C880.1,-1647.66 860.94,-1642.3 849,-1629 775.48,-1547.1 853.16,-1486.47 813,-1384 805.86,-1365.77 793.19,-1347.6 782.67,-1334.35"/>
+<polygon fill="#000000" stroke="#000000" points="785.19,-1331.9 776.14,-1326.39 779.78,-1336.34 785.19,-1331.9"/>
 </g>
-<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge126" class="edge">
-<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M882.42,-141.21C870.04,-144.27 857.74,-149.67 849,-159 712.61,-304.63 924.06,-479.54 765,-600"/>
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge125" class="edge">
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.66,-1644.41C881.62,-1641.13 863.92,-1636.18 849,-1629 806.95,-1608.76 811.67,-1566 765,-1566"/>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node49" class="node">
-<title>sourcefile~operator_cross.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="982.5,-2418 879.5,-2418 879.5,-2394 982.5,-2394 982.5,-2418"/>
-<text text-anchor="middle" x="931" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="974,-108 888,-108 888,-84 974,-84 974,-108"/>
+<text text-anchor="middle" x="931" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge58" class="edge">
-<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M879.37,-2403.07C867.72,-2399.92 856.55,-2394.4 849,-2385 779.25,-2298.13 870.96,-1478.14 813,-1383 810.99,-1379.7 808.42,-1376.77 805.52,-1374.18"/>
-<polygon fill="#000000" stroke="#000000" points="807.34,-1371.18 797.21,-1368.07 803.19,-1376.81 807.34,-1371.18"/>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge50" class="edge">
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.61,-97.28C873.25,-99.95 858.47,-105.6 849,-117 812.13,-161.38 817.03,-577.45 813,-635 794.89,-893.36 772.61,-1207 766.57,-1291.91"/>
+<polygon fill="#000000" stroke="#000000" points="763.08,-1291.72 765.86,-1301.94 770.06,-1292.22 763.08,-1291.72"/>
 </g>
-<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge78" class="edge">
-<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M882.83,-2393.98C871.72,-2391.09 859.93,-2387.98 849,-2385 787.95,-2368.39 718.01,-2348.29 671.87,-2334.88"/>
-<polygon fill="#000000" stroke="#000000" points="672.69,-2331.47 662.11,-2332.04 670.73,-2338.19 672.69,-2331.47"/>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge108" class="edge">
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.77,-97.87C873.6,-100.62 858.91,-106.18 849,-117 772.34,-200.76 878.32,-613.9 765,-621"/>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
+<!-- sourcefile~discard.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node50" class="node">
-<title>sourcefile~symba_drift.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="974,-1872 888,-1872 888,-1848 974,-1848 974,-1872"/>
-<text text-anchor="middle" x="931" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="963.5,-66 898.5,-66 898.5,-42 963.5,-42 963.5,-66"/>
+<text text-anchor="middle" x="931" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.8,-1870.88C852.62,-1877.51 802.4,-1881.15 765,-1860"/>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge51" class="edge">
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M898.38,-53.75C881.1,-55.42 860.85,-60.67 849,-75 809.28,-123.06 817.2,-572.79 813,-635 795.56,-893.41 772.8,-1207.01 766.61,-1291.92"/>
+<polygon fill="#000000" stroke="#000000" points="763.12,-1291.72 765.88,-1301.94 770.1,-1292.23 763.12,-1291.72"/>
 </g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge59" class="edge">
-<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M887.67,-1858.67C873.32,-1855.99 858.52,-1850.35 849,-1839 783.68,-1761.12 867.73,-1468.66 813,-1383 810.92,-1379.75 808.3,-1376.85 805.37,-1374.27"/>
-<polygon fill="#000000" stroke="#000000" points="807.16,-1371.25 797.02,-1368.19 803.04,-1376.91 807.16,-1371.25"/>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge109" class="edge">
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M898.45,-54.2C881.4,-56.04 861.37,-61.31 849,-75 766.69,-166.08 887.52,-613.33 765,-621"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~symba_discard.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node51" class="node">
-<title>sourcefile~util_fill.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="961,-108 901,-108 901,-84 961,-84 961,-108"/>
-<text text-anchor="middle" x="931" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="982.5,-1830 879.5,-1830 879.5,-1806 982.5,-1806 982.5,-1830"/>
+<text text-anchor="middle" x="931" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge60" class="edge">
-<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M900.81,-95.55C883.04,-96.96 861.43,-102.02 849,-117 843.93,-123.11 777.05,-1167.26 766.42,-1333.74"/>
-<polygon fill="#000000" stroke="#000000" points="762.92,-1333.6 765.78,-1343.8 769.91,-1334.04 762.92,-1333.6"/>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge52" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M879.27,-1814.69C867.77,-1811.52 856.69,-1806.1 849,-1797 789.51,-1726.66 844.07,-1470.73 813,-1384 806.4,-1365.57 793.71,-1347.41 783.04,-1334.21"/>
+<polygon fill="#000000" stroke="#000000" points="785.51,-1331.7 776.41,-1326.29 780.15,-1336.2 785.51,-1331.7"/>
 </g>
-<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge127" class="edge">
-<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M900.94,-96.05C883.45,-97.68 862.09,-102.79 849,-117 701.33,-277.22 938.7,-468.46 765,-600"/>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge133" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M879.22,-1827.92C868.96,-1830.82 858.42,-1834.46 849,-1839 806.95,-1859.24 804.58,-1926.72 765,-1902"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90 -->
+<!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node52" class="node">
-<title>sourcefile~symba_encounter_check.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="1006,-1830 856,-1830 856,-1806 1006,-1806 1006,-1830"/>
-<text text-anchor="middle" x="931" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="983.5,-24 878.5,-24 878.5,0 983.5,0 983.5,-24"/>
+<text text-anchor="middle" x="931" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge11" class="edge">
-<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M883.41,-1830.06C834.85,-1842.61 765.67,-1860.38 765,-1860"/>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge53" class="edge">
+<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M878.26,-15.4C867.06,-18.61 856.38,-24.02 849,-33 806.43,-84.75 817.36,-568.13 813,-635 796.14,-893.45 772.97,-1207.02 766.65,-1291.92"/>
+<polygon fill="#000000" stroke="#000000" points="763.15,-1291.71 765.9,-1301.95 770.13,-1292.23 763.15,-1291.71"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge61" class="edge">
-<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M859.01,-1805.82C855.3,-1803.35 851.91,-1800.44 849,-1797 789.37,-1726.48 863.03,-1460.62 813,-1383 810.91,-1379.76 808.28,-1376.86 805.34,-1374.29"/>
-<polygon fill="#000000" stroke="#000000" points="807.13,-1371.26 796.98,-1368.22 803.01,-1376.93 807.13,-1371.26"/>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge110" class="edge">
+<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M878.35,-15.96C867.29,-19.17 856.65,-24.44 849,-33 761.03,-131.4 896.74,-612.75 765,-621"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763,-621C354.88,-646.56 222.21,-1315.96 200.03,-1447.64"/>
+<polygon fill="#000000" stroke="#000000" points="196.54,-1447.32 198.37,-1457.75 203.44,-1448.45 196.54,-1447.32"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
+<!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node53" class="node">
-<title>sourcefile~util_peri.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="965,-66 897,-66 897,-42 965,-42 965,-66"/>
-<text text-anchor="middle" x="931" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="973.5,-1620 888.5,-1620 888.5,-1596 973.5,-1596 973.5,-1620"/>
+<text text-anchor="middle" x="931" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge62" class="edge">
-<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.76,-53.92C879.85,-55.76 860.48,-61.12 849,-75 847.69,-76.58 777.44,-1163.44 766.44,-1333.68"/>
-<polygon fill="#000000" stroke="#000000" points="762.94,-1333.54 765.79,-1343.75 769.93,-1333.99 762.94,-1333.54"/>
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge54" class="edge">
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M888.25,-1606.16C873.96,-1603.42 859.06,-1597.88 849,-1587 786.79,-1519.73 847.69,-1468.81 813,-1384 805.59,-1365.88 792.93,-1347.71 782.48,-1334.42"/>
+<polygon fill="#000000" stroke="#000000" points="785.03,-1332 776.01,-1326.45 779.59,-1336.42 785.03,-1332"/>
 </g>
-<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge128" class="edge">
-<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.86,-54.41C880.19,-56.41 861.02,-61.78 849,-75 690.03,-249.84 953.38,-457.34 765,-600"/>
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M888.45,-1597.29C840.1,-1584.85 766.58,-1566 765,-1566"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
+<!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node54" class="node">
-<title>sourcefile~rmvs_kick.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="970,-2292 892,-2292 892,-2268 970,-2268 970,-2292"/>
-<text text-anchor="middle" x="931" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="975,-1788 887,-1788 887,-1764 975,-1764 975,-1788"/>
+<text text-anchor="middle" x="931" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge63" class="edge">
-<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.65,-2279.56C876,-2277.26 859.22,-2271.66 849,-2259 787.81,-2183.2 863.9,-1466.06 813,-1383 810.98,-1379.71 808.41,-1376.78 805.5,-1374.19"/>
-<polygon fill="#000000" stroke="#000000" points="807.32,-1371.18 797.19,-1368.08 803.18,-1376.83 807.32,-1371.18"/>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge55" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M886.93,-1774.42C872.86,-1771.67 858.44,-1766.05 849,-1755 795.2,-1692.02 841.32,-1461.84 813,-1384 806.31,-1365.6 793.63,-1347.44 782.98,-1334.23"/>
+<polygon fill="#000000" stroke="#000000" points="785.46,-1331.74 776.36,-1326.31 780.09,-1336.23 785.46,-1331.74"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge82" class="edge">
-<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.88,-2289.03C857.02,-2295.26 804.97,-2299.34 765,-2280"/>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge137" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M886.67,-1781.87C873.83,-1784.98 860.22,-1789.73 849,-1797 798.84,-1829.49 815.69,-1933.65 765,-1902"/>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node55" class="node">
-<title>sourcefile~symba_discard.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="982.5,-1788 879.5,-1788 879.5,-1764 982.5,-1764 982.5,-1788"/>
-<text text-anchor="middle" x="931" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="967.5,-1578 894.5,-1578 894.5,-1554 967.5,-1554 967.5,-1578"/>
+<text text-anchor="middle" x="931" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M879.22,-1785.92C868.96,-1788.82 858.42,-1792.46 849,-1797 806.95,-1817.24 805.62,-1882.97 765,-1860"/>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge56" class="edge">
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M894.33,-1564.9C878.44,-1562.56 860.71,-1557.12 849,-1545 798.03,-1492.29 842.26,-1451.23 813,-1384 805.09,-1365.82 792.24,-1347.42 781.82,-1334.05"/>
+<polygon fill="#000000" stroke="#000000" points="784.39,-1331.65 775.41,-1326.04 778.93,-1336.03 784.39,-1331.65"/>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge66" class="edge">
-<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M879.33,-1772.64C867.83,-1769.47 856.74,-1764.06 849,-1755 795.07,-1691.84 858.34,-1452.59 813,-1383 810.89,-1379.77 808.26,-1376.88 805.31,-1374.31"/>
-<polygon fill="#000000" stroke="#000000" points="807.09,-1371.28 796.94,-1368.24 802.98,-1376.95 807.09,-1371.28"/>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge129" class="edge">
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M894.27,-1566C860.85,-1566 809.54,-1566 765,-1566"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~operator_cross.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node56" class="node">
-<title>sourcefile~util_set.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="963,-24 899,-24 899,0 963,0 963,-24"/>
-<text text-anchor="middle" x="931" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="982.5,-2460 879.5,-2460 879.5,-2436 982.5,-2436 982.5,-2460"/>
+<text text-anchor="middle" x="931" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge64" class="edge">
-<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M898.78,-11.7C881.4,-13.32 860.92,-18.54 849,-33 807.85,-82.9 817.09,-549.45 813,-614 795.01,-898.16 772.39,-1243.47 766.47,-1333.62"/>
-<polygon fill="#000000" stroke="#000000" points="762.97,-1333.56 765.8,-1343.76 769.95,-1334.01 762.97,-1333.56"/>
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge11" class="edge">
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M879.45,-2440.31C868.84,-2437.25 858.11,-2432.97 849,-2427 827.29,-2412.77 835.75,-2393.51 813,-2381 775.55,-2360.41 727.73,-2355.62 689.19,-2356"/>
+<polygon fill="#000000" stroke="#000000" points="689.01,-2352.51 679.09,-2356.22 689.16,-2359.5 689.01,-2352.51"/>
 </g>
-<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge130" class="edge">
-<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763,-600C619.57,-708.62 637.62,-1274.02 478.5,-1358"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M898.82,-12.13C881.68,-13.92 861.43,-19.17 849,-33 678.72,-222.48 963.73,-440.62 765,-600"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.5,-1358C457.05,-1367.35 450.16,-1364.29 430,-1372 363.52,-1397.44 340.13,-1394.97 285,-1440 250.88,-1467.87 222.83,-1511.66 207.98,-1537.63"/>
-<polygon fill="#000000" stroke="#000000" points="204.77,-1536.2 202.95,-1546.64 210.88,-1539.61 204.77,-1536.2"/>
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge57" class="edge">
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M879.36,-2445.08C867.71,-2441.92 856.54,-2436.41 849,-2427 776.46,-2336.53 849.23,-1494.15 813,-1384 806.88,-1365.4 794.18,-1347.25 783.38,-1334.09"/>
+<polygon fill="#000000" stroke="#000000" points="785.8,-1331.54 776.65,-1326.21 780.48,-1336.09 785.8,-1331.54"/>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~helio_gr.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node57" class="node">
-<title>sourcefile~util_exit.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="964.5,-1158 897.5,-1158 897.5,-1134 964.5,-1134 964.5,-1158"/>
-<text text-anchor="middle" x="931" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="965,-1368 897,-1368 897,-1344 965,-1344 965,-1368"/>
+<text text-anchor="middle" x="931" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge65" class="edge">
-<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M897.37,-1147.88C881.24,-1150.32 862.41,-1155.63 849,-1167 796.92,-1211.14 775.87,-1293.96 768.48,-1333.67"/>
-<polygon fill="#000000" stroke="#000000" points="765.01,-1333.2 766.74,-1343.65 771.9,-1334.4 765.01,-1333.2"/>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge58" class="edge">
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.61,-1347.5C870.78,-1340.93 834.85,-1331.78 807.06,-1324.7"/>
+<polygon fill="#000000" stroke="#000000" points="807.77,-1321.28 797.22,-1322.2 806.05,-1328.06 807.77,-1321.28"/>
 </g>
-<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge131" class="edge">
-<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M897.27,-1145.64C880.5,-1143.67 861.12,-1138.33 849,-1125 690.03,-950.16 953.38,-457.34 765,-600"/>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge77" class="edge">
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.68,-1359.71C862.1,-1364.62 807.24,-1375.45 765,-1398"/>
 </g>
-<!-- sourcefile~util_solve.f90 -->
+<!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node58" class="node">
-<title>sourcefile~util_solve.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="968.5,-1116 893.5,-1116 893.5,-1092 968.5,-1092 968.5,-1116"/>
-<text text-anchor="middle" x="931" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="967,-1200 895,-1200 895,-1176 967,-1176 967,-1200"/>
+<text text-anchor="middle" x="931" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge67" class="edge">
-<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M893.37,-1106.07C878.05,-1108.67 861.04,-1114.05 849,-1125 786.87,-1181.49 770.62,-1287.62 766.43,-1333.7"/>
-<polygon fill="#000000" stroke="#000000" points="762.93,-1333.57 765.62,-1343.81 769.91,-1334.12 762.93,-1333.57"/>
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge59" class="edge">
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M894.91,-1192.06C879.87,-1195.03 862.66,-1200.15 849,-1209 816.11,-1230.31 790.23,-1268.82 776.32,-1292.81"/>
+<polygon fill="#000000" stroke="#000000" points="773.1,-1291.39 771.26,-1301.82 779.21,-1294.81 773.1,-1291.39"/>
 </g>
-<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge132" class="edge">
-<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M893.24,-1103.02C877.51,-1100.67 860.22,-1095.18 849,-1083 701.33,-922.78 938.7,-468.46 765,-600"/>
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge112" class="edge">
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M894.78,-1187.36C878.6,-1185.17 860.49,-1179.72 849,-1167 766.69,-1075.92 887.52,-613.33 765,-621"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node59" class="node">
-<title>sourcefile~discard.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="963.5,-1074 898.5,-1074 898.5,-1050 963.5,-1050 963.5,-1074"/>
-<text text-anchor="middle" x="931" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="984,-1746 878,-1746 878,-1722 984,-1722 984,-1746"/>
+<text text-anchor="middle" x="931" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge68" class="edge">
-<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M898.39,-1063.01C881.74,-1065.15 862.13,-1070.45 849,-1083 776.71,-1152.12 766.19,-1281.79 764.98,-1333.69"/>
-<polygon fill="#000000" stroke="#000000" points="761.48,-1333.76 764.84,-1343.81 768.48,-1333.85 761.48,-1333.76"/>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge60" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M877.73,-1730.09C866.83,-1726.87 856.41,-1721.57 849,-1713 800.89,-1657.37 838.57,-1452.96 813,-1384 806.19,-1365.64 793.52,-1347.48 782.9,-1334.26"/>
+<polygon fill="#000000" stroke="#000000" points="785.39,-1331.78 776.31,-1326.33 780.01,-1336.25 785.39,-1331.78"/>
 </g>
-<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge133" class="edge">
-<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M898.23,-1061.59C881.33,-1059.66 861.51,-1054.36 849,-1041 712.61,-895.37 924.06,-479.54 765,-600"/>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge132" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M877.92,-1740.98C867.63,-1744.08 857.43,-1748.56 849,-1755 789.22,-1800.7 828.83,-1941.85 765,-1902"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763,-1902C686.8,-1854.42 643.63,-1749.21 627.9,-1703.69"/>
+<polygon fill="#000000" stroke="#000000" points="631.21,-1702.57 624.72,-1694.2 624.58,-1704.79 631.21,-1702.57"/>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
+<!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node60" class="node">
-<title>sourcefile~helio_kick.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="969.5,-1410 892.5,-1410 892.5,-1386 969.5,-1386 969.5,-1410"/>
-<text text-anchor="middle" x="931" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="958,-1158 904,-1158 904,-1134 958,-1134 958,-1158"/>
+<text text-anchor="middle" x="931" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge69" class="edge">
-<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.15,-1388.36C866.78,-1381.91 833.36,-1373.4 807.14,-1366.73"/>
-<polygon fill="#000000" stroke="#000000" points="807.68,-1363.25 797.12,-1364.18 805.95,-1370.03 807.68,-1363.25"/>
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge61" class="edge">
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.64,-1147.61C886.58,-1149.82 864.7,-1155 849,-1167 806.62,-1199.4 782.11,-1259.74 771.44,-1292.12"/>
+<polygon fill="#000000" stroke="#000000" points="768.01,-1291.36 768.34,-1301.95 774.68,-1293.46 768.01,-1291.36"/>
 </g>
-<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge94" class="edge">
-<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.49,-1395.09C858.95,-1393.12 808.51,-1391.74 765,-1397"/>
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge113" class="edge">
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.64,-1146.21C885.67,-1144.88 862.73,-1140 849,-1125 772.34,-1041.24 878.32,-613.9 765,-621"/>
 </g>
-<!-- sourcefile~whm_kick.f90 -->
+<!-- sourcefile~symba_io.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node61" class="node">
-<title>sourcefile~whm_kick.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="969.5,-1494 892.5,-1494 892.5,-1470 969.5,-1470 969.5,-1494"/>
-<text text-anchor="middle" x="931" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="969,-2124 893,-2124 893,-2100 969,-2100 969,-2124"/>
+<text text-anchor="middle" x="931" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge70" class="edge">
-<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.16,-1479.15C877.34,-1476.37 861.04,-1471.06 849,-1461 819.7,-1436.52 838.9,-1411.06 813,-1383 809.73,-1379.45 805.88,-1376.26 801.81,-1373.41"/>
-<polygon fill="#000000" stroke="#000000" points="803.59,-1370.4 793.26,-1368.05 799.88,-1376.33 803.59,-1370.4"/>
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge62" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.96,-2111.69C876.97,-2109.5 859.56,-2103.95 849,-2091 799.3,-2030.04 838.19,-1458.52 813,-1384 806.73,-1365.45 794.03,-1347.3 783.27,-1334.12"/>
+<polygon fill="#000000" stroke="#000000" points="785.71,-1331.59 776.57,-1326.24 780.38,-1336.12 785.71,-1331.59"/>
 </g>
-<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge103" class="edge">
-<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.23,-1488.58C878.23,-1491.84 862.48,-1496.51 849,-1503 806.95,-1523.24 811.62,-1563.89 765,-1566"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.5,-1561C450.51,-1557.4 421.45,-1556.55 396.9,-1556.74"/>
-<polygon fill="#000000" stroke="#000000" points="396.62,-1553.24 386.67,-1556.88 396.71,-1560.24 396.62,-1553.24"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763,-1566C636.67,-1571.71 603.77,-1578.34 478.5,-1561"/>
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge134" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.65,-2110.67C877.19,-2108.21 860.28,-2102.73 849,-2091 796.97,-2036.9 859.08,-1985.25 813,-1926 798.36,-1907.17 785.23,-1914.63 765,-1902"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
+<!-- sourcefile~whm_kick.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node62" class="node">
-<title>sourcefile~util_minimize_bfgs.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="990,-1032 872,-1032 872,-1008 990,-1008 990,-1032"/>
-<text text-anchor="middle" x="931" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="969.5,-1536 892.5,-1536 892.5,-1512 969.5,-1512 969.5,-1536"/>
+<text text-anchor="middle" x="931" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge71" class="edge">
-<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M871.96,-1026.97C863.44,-1030.15 855.39,-1034.65 849,-1041 806.67,-1083.04 777.1,-1269.44 767.97,-1333.94"/>
-<polygon fill="#000000" stroke="#000000" points="764.5,-1333.48 766.6,-1343.86 771.44,-1334.44 764.5,-1333.48"/>
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge63" class="edge">
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.26,-1522.1C877.1,-1519.51 860.52,-1514.07 849,-1503 809.15,-1464.72 836.91,-1433.82 813,-1384 804.42,-1366.13 791.61,-1347.71 781.37,-1334.25"/>
+<polygon fill="#000000" stroke="#000000" points="784,-1331.92 775.09,-1326.18 778.47,-1336.22 784,-1331.92"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge135" class="edge">
-<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M871.67,-1013.32C863.18,-1010.1 855.22,-1005.51 849,-999 723.85,-867.93 909.47,-490.59 765,-600"/>
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge126" class="edge">
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M892.21,-1533.74C844,-1546.15 766.63,-1566 765,-1566"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~whm_step.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node63" class="node">
-<title>sourcefile~io.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node63"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="958,-990 904,-990 904,-966 958,-966 958,-990"/>
-<text text-anchor="middle" x="931" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node63"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="970.5,-1494 891.5,-1494 891.5,-1470 970.5,-1470 970.5,-1494"/>
+<text text-anchor="middle" x="931" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge72" class="edge">
-<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.94,-978.07C886.11,-979.54 863.22,-984.46 849,-999 801.47,-1047.62 774.78,-1263.59 767.24,-1333.84"/>
-<polygon fill="#000000" stroke="#000000" points="763.76,-1333.51 766.19,-1343.82 770.72,-1334.24 763.76,-1333.51"/>
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge64" class="edge">
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.36,-1478.96C876.76,-1476.14 860.84,-1470.84 849,-1461 819.95,-1436.85 831.74,-1416.8 813,-1384 803.16,-1366.79 790.41,-1348.34 780.52,-1334.7"/>
+<polygon fill="#000000" stroke="#000000" points="783.24,-1332.48 774.5,-1326.49 777.59,-1336.63 783.24,-1332.48"/>
 </g>
-<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge134" class="edge">
-<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.94,-977.93C886.11,-976.46 863.22,-971.54 849,-957 735.05,-840.45 894.94,-501.59 765,-600"/>
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge127" class="edge">
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763,-1566C636.54,-1566 604.09,-1585.81 478.5,-1571"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.42,-1488.77C877.62,-1492.03 862.22,-1496.64 849,-1503 806.95,-1523.24 811.65,-1564.87 765,-1566"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M476.5,-1571C450.48,-1567.62 421.42,-1566.99 396.87,-1567.36"/>
+<polygon fill="#000000" stroke="#000000" points="396.57,-1563.86 386.64,-1567.57 396.71,-1570.86 396.57,-1563.86"/>
 </g>
-<!-- sourcefile~symba_setup.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node64" class="node">
-<title>sourcefile~symba_setup.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node64"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="978,-1746 884,-1746 884,-1722 978,-1722 978,-1746"/>
-<text text-anchor="middle" x="931" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node64"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="963,-1116 899,-1116 899,-1092 963,-1092 963,-1116"/>
+<text text-anchor="middle" x="931" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M883.73,-1740.6C871.77,-1743.72 859.36,-1748.29 849,-1755 798.84,-1787.49 817.02,-1889.41 765,-1860"/>
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge65" class="edge">
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M898.96,-1105.65C882.49,-1107.98 862.85,-1113.26 849,-1125 796.92,-1169.14 775.87,-1251.96 768.48,-1291.67"/>
+<polygon fill="#000000" stroke="#000000" points="765.01,-1291.2 766.74,-1301.65 771.9,-1292.4 765.01,-1291.2"/>
 </g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge73" class="edge">
-<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M883.63,-1731.64C870.66,-1728.67 857.74,-1723.11 849,-1713 752.51,-1601.39 894.29,-1506.12 813,-1383 810.81,-1379.68 808.07,-1376.73 805.01,-1374.12"/>
-<polygon fill="#000000" stroke="#000000" points="807.05,-1371.27 796.88,-1368.28 802.96,-1376.96 807.05,-1371.27"/>
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge115" class="edge">
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M898.99,-1103.72C881.9,-1101.87 861.65,-1096.62 849,-1083 706.97,-930.08 973.29,-607.96 765,-621"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~util_resize.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node65" class="node">
-<title>sourcefile~symba_fragmentation.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node65"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="998,-1704 864,-1704 864,-1680 998,-1680 998,-1704"/>
-<text text-anchor="middle" x="931" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node65"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="970.5,-1074 891.5,-1074 891.5,-1050 970.5,-1050 970.5,-1074"/>
+<text text-anchor="middle" x="931" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge17" class="edge">
-<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M864.17,-1704.09C858.77,-1706.53 853.62,-1709.47 849,-1713 789.22,-1758.7 830.5,-1897.04 765,-1860"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M763,-1860C695.7,-1821.95 649.39,-1737.83 630.51,-1698.31"/>
-<polygon fill="#000000" stroke="#000000" points="633.6,-1696.65 626.2,-1689.06 627.25,-1699.6 633.6,-1696.65"/>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge66" class="edge">
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.31,-1064.43C876.54,-1067.16 860.5,-1072.54 849,-1083 786.87,-1139.49 770.62,-1245.62 766.43,-1291.7"/>
+<polygon fill="#000000" stroke="#000000" points="762.93,-1291.57 765.62,-1301.81 769.91,-1292.12 762.93,-1291.57"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge74" class="edge">
-<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M863.65,-1682.33C858.15,-1679.4 853.12,-1675.69 849,-1671 763.87,-1574.08 884.92,-1490.09 813,-1383 810.73,-1379.61 807.88,-1376.61 804.71,-1373.95"/>
-<polygon fill="#000000" stroke="#000000" points="806.51,-1370.93 796.32,-1368.03 802.47,-1376.65 806.51,-1370.93"/>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge114" class="edge">
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M891.31,-1060.56C876.18,-1058.02 859.88,-1052.51 849,-1041 718.23,-902.66 954.99,-609.1 765,-621"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node66" class="node">
-<title>sourcefile~util_version.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node66"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="973.5,-948 888.5,-948 888.5,-924 973.5,-924 973.5,-948"/>
-<text text-anchor="middle" x="931" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node66"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="965,-1032 897,-1032 897,-1008 965,-1008 965,-1032"/>
+<text text-anchor="middle" x="931" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge75" class="edge">
-<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M888.44,-938.02C874.17,-940.77 859.23,-946.28 849,-957 796.34,-1012.15 772.82,-1257.06 766.69,-1333.28"/>
-<polygon fill="#000000" stroke="#000000" points="763.17,-1333.39 765.88,-1343.64 770.15,-1333.94 763.17,-1333.39"/>
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge67" class="edge">
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.78,-1021.23C880.5,-1023.5 861.71,-1028.85 849,-1041 776.71,-1110.12 766.19,-1239.79 764.98,-1291.69"/>
+<polygon fill="#000000" stroke="#000000" points="761.48,-1291.76 764.84,-1301.81 768.48,-1291.85 761.48,-1291.76"/>
 </g>
-<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge136" class="edge">
-<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M888.33,-933.6C874.22,-930.79 859.41,-925.34 849,-915 746.19,-812.9 880.51,-512.53 765,-600"/>
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge116" class="edge">
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.77,-1019.24C880.28,-1017.12 861.31,-1011.75 849,-999 729.46,-875.2 936.76,-610.24 765,-621"/>
 </g>
-<!-- sourcefile~setup.f90 -->
+<!-- sourcefile~symba_encounter_check.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node67" class="node">
-<title>sourcefile~setup.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node67"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="959.5,-906 902.5,-906 902.5,-882 959.5,-882 959.5,-906"/>
-<text text-anchor="middle" x="931" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node67"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="1006,-2082 856,-2082 856,-2058 1006,-2058 1006,-2082"/>
+<text text-anchor="middle" x="931" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge76" class="edge">
-<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M902.19,-894.01C884.52,-895.55 862.51,-900.58 849,-915 790.99,-976.94 770.89,-1252.59 766.18,-1333.56"/>
-<polygon fill="#000000" stroke="#000000" points="762.68,-1333.47 765.62,-1343.65 769.67,-1333.87 762.68,-1333.47"/>
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge68" class="edge">
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M858.88,-2057.93C855.2,-2055.44 851.85,-2052.49 849,-2049 802.15,-1991.72 836.81,-1454.06 813,-1384 806.7,-1365.46 794.01,-1347.3 783.25,-1334.13"/>
+<polygon fill="#000000" stroke="#000000" points="785.7,-1331.6 776.56,-1326.24 780.36,-1336.13 785.7,-1331.6"/>
 </g>
-<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge137" class="edge">
-<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M902.32,-893.44C884.93,-891.65 863.18,-886.55 849,-873 757.25,-785.27 866.2,-523.36 765,-600"/>
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge138" class="edge">
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M861.29,-2057.98C856.82,-2055.5 852.65,-2052.54 849,-2049 808.1,-2009.35 849.52,-1969.71 813,-1926 797.71,-1907.7 785.23,-1914.63 765,-1902"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node68" class="node">
-<title>sourcefile~rmvs_encounter_check.f90</title>
-<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node68"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="1002,-2250 860,-2250 860,-2226 1002,-2226 1002,-2250"/>
-<text text-anchor="middle" x="931" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node68"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="958,-990 904,-990 904,-966 958,-966 958,-990"/>
+<text text-anchor="middle" x="931" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge29" class="edge">
-<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M859.91,-2226.68C855.82,-2224.03 852.11,-2220.84 849,-2217 790.67,-2144.89 861.54,-1462.04 813,-1383 810.98,-1379.71 808.4,-1376.79 805.49,-1374.2"/>
-<polygon fill="#000000" stroke="#000000" points="807.31,-1371.19 797.18,-1368.09 803.17,-1376.83 807.31,-1371.19"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge69" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M903.69,-978.23C885.98,-979.8 863.33,-984.77 849,-999 806.67,-1041.04 777.1,-1227.44 767.97,-1291.94"/>
+<polygon fill="#000000" stroke="#000000" points="764.5,-1291.48 766.6,-1301.86 771.44,-1292.44 764.5,-1291.48"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge88" class="edge">
-<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M883.41,-2250.05C834.86,-2262.58 765.69,-2280.33 765,-2280"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge118" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M904,-977.87C886.2,-976.37 863.32,-971.44 849,-957 740.63,-847.68 918.63,-611.38 765,-621"/>
+</g>
+<!-- sourcefile~util_sort.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_node69" class="node">
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~swiftest_globals.f90~~AfferentGraph_node69"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="965,-948 897,-948 897,-924 965,-924 965,-948"/>
+<text text-anchor="middle" x="931" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge70" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.84,-936.82C880.37,-938.96 861.39,-944.33 849,-957 801.47,-1005.62 774.78,-1221.59 767.24,-1291.84"/>
+<polygon fill="#000000" stroke="#000000" points="763.76,-1291.51 766.19,-1301.82 770.72,-1292.24 763.76,-1291.51"/>
+</g>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~swiftest_globals.f90~~AfferentGraph_edge119" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M896.68,-934.88C880.37,-932.64 861.58,-927.28 849,-915 751.73,-820.1 900.63,-612.51 765,-621"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/swiftest_operators.f90.html b/docs/sourcefile/swiftest_operators.f90.html
index e752c71c6..c946f956f 100644
--- a/docs/sourcefile/swiftest_operators.f90.html
+++ b/docs/sourcefile/swiftest_operators.f90.html
@@ -303,387 +303,402 @@ <h3 class="panel-title">Files dependent on this one</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~swiftest_operators.f90~~AfferentGraph Pages: 1 -->
-<svg id="sourcefileswiftest_operatorsf90AfferentGraph" width="460pt" height="2426pt"
- viewBox="0.00 0.00 460.00 2426.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2422)">
+<svg id="sourcefileswiftest_operatorsf90AfferentGraph" width="460pt" height="2468pt"
+ viewBox="0.00 0.00 460.00 2468.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2464)">
 <title>sourcefile~~swiftest_operators.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2422 456,-2422 456,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 456,-2464 456,4 -4,4"/>
 <!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node1" class="node">
 <title>sourcefile~swiftest_operators.f90</title>
-<polygon fill="none" stroke="black" points="118,-1242 0,-1242 0,-1218 118,-1218 118,-1242"/>
-<text text-anchor="middle" x="59" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_operators.f90</text>
+<polygon fill="none" stroke="black" points="118,-1263 0,-1263 0,-1239 118,-1239 118,-1263"/>
+<text text-anchor="middle" x="59" y="-1248.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_operators.f90</text>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node2" class="node">
-<title>sourcefile~operator_cross.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="421.5,-2418 318.5,-2418 318.5,-2394 421.5,-2394 421.5,-2418"/>
-<text text-anchor="middle" x="370" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="236,-1263 170,-1263 170,-1239 236,-1239 236,-1263"/>
+<text text-anchor="middle" x="203" y="-1248.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge1" class="edge">
-<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.09,-2401.86C306.87,-2398.68 295.97,-2393.46 288,-2385 124.86,-2211.98 69.92,-1399.19 61.27,-1252.67"/>
-<polygon fill="#000000" stroke="#000000" points="64.74,-1252.03 60.67,-1242.25 57.75,-1252.44 64.74,-1252.03"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.78,-1251C157.35,-1251 142.62,-1251 128.07,-1251"/>
+<polygon fill="#000000" stroke="#000000" points="128.05,-1247.5 118.05,-1251 128.05,-1254.5 128.05,-1247.5"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~operator_cross.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node3" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="236,-1242 170,-1242 170,-1218 236,-1218 236,-1242"/>
-<text text-anchor="middle" x="203" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="421.5,-2460 318.5,-2460 318.5,-2436 421.5,-2436 421.5,-2460"/>
+<text text-anchor="middle" x="370" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
 </a>
 </g>
 </g>
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge3" class="edge">
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.49,-2444C307.13,-2440.83 296.06,-2435.58 288,-2427 121.96,-2250.3 69.24,-1419.85 61.15,-1273.16"/>
+<polygon fill="#000000" stroke="#000000" points="64.65,-1272.91 60.61,-1263.12 57.66,-1273.29 64.65,-1272.91"/>
+</g>
 <!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge42" class="edge">
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge49" class="edge">
 <title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.12,-2402.81C306.63,-2399.64 295.59,-2394.18 288,-2385 248.21,-2336.85 256.52,-1886.3 252,-1824 235.82,-1600.74 212.7,-1330.57 205.93,-1252.26"/>
-<polygon fill="#000000" stroke="#000000" points="209.4,-1251.78 205.05,-1242.12 202.43,-1252.39 209.4,-1251.78"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge2" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M169.78,-1230C157.35,-1230 142.62,-1230 128.07,-1230"/>
-<polygon fill="#000000" stroke="#000000" points="128.05,-1226.5 118.05,-1230 128.05,-1233.5 128.05,-1226.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.12,-2444.82C306.62,-2441.64 295.58,-2436.19 288,-2427 247.47,-2377.89 256.52,-1918.52 252,-1855 235.84,-1627.98 212.71,-1353.27 205.93,-1273.63"/>
+<polygon fill="#000000" stroke="#000000" points="209.39,-1272.99 205.06,-1263.33 202.42,-1273.59 209.39,-1272.99"/>
 </g>
 <!-- sourcefile~operator_mag.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node4" class="node">
 <title>sourcefile~operator_mag.f90</title>
 <g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/operator_mag.f90.html" xlink:title="operator_mag.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-1200 154,-1200 154,-1176 252,-1176 252,-1200"/>
-<text text-anchor="middle" x="203" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="252,-1221 154,-1221 154,-1197 252,-1197 252,-1221"/>
+<text text-anchor="middle" x="203" y="-1206.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_mag.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~operator_mag.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge3" class="edge">
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge2" class="edge">
 <title>sourcefile~operator_mag.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M161.31,-1200.04C145.41,-1204.74 127.03,-1210.18 110.31,-1215.12"/>
-<polygon fill="#000000" stroke="#000000" points="109.29,-1211.77 100.7,-1217.96 111.28,-1218.48 109.29,-1211.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M161.31,-1221.04C145.41,-1225.74 127.03,-1231.18 110.31,-1236.12"/>
+<polygon fill="#000000" stroke="#000000" points="109.29,-1232.77 100.7,-1238.96 111.28,-1239.48 109.29,-1232.77"/>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~eucl.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node5" class="node">
-<title>sourcefile~obl.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-2376 343,-2376 343,-2352 397,-2352 397,-2376"/>
-<text text-anchor="middle" x="370" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
+<title>sourcefile~eucl.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-2418 343,-2418 343,-2394 397,-2394 397,-2418"/>
+<text text-anchor="middle" x="370" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge4" class="edge">
-<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.96,-2364.66C324.66,-2363.59 301.18,-2358.87 288,-2343 251.06,-2298.54 256.33,-1881.64 252,-1824 235.24,-1600.78 212.52,-1330.59 205.89,-1252.26"/>
-<polygon fill="#000000" stroke="#000000" points="209.36,-1251.79 205.03,-1242.12 202.39,-1252.38 209.36,-1251.79"/>
+<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.95,-2406.66C324.65,-2405.6 301.17,-2400.88 288,-2385 250.32,-2339.57 256.34,-1913.86 252,-1855 235.27,-1628.02 212.53,-1353.28 205.89,-1273.63"/>
+<polygon fill="#000000" stroke="#000000" points="209.35,-1273 205.03,-1263.33 202.38,-1273.59 209.35,-1273"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
+<!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node6" class="node">
-<title>sourcefile~util_sort.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-2334 336,-2334 336,-2310 404,-2310 404,-2334"/>
-<text text-anchor="middle" x="370" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405.5,-2376 334.5,-2376 334.5,-2352 405.5,-2352 405.5,-2376"/>
+<text text-anchor="middle" x="370" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge5" class="edge">
-<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.82,-2322.03C318.92,-2320.18 299.55,-2314.82 288,-2301 253.91,-2260.22 256.14,-1876.99 252,-1824 234.56,-1600.83 212.31,-1330.6 205.84,-1252.26"/>
-<polygon fill="#000000" stroke="#000000" points="209.32,-1251.8 205,-1242.13 202.34,-1252.38 209.32,-1251.8"/>
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M334.16,-2363.85C317.66,-2361.84 299.17,-2356.39 288,-2343 253.17,-2301.25 256.15,-1909.21 252,-1855 234.61,-1628.07 212.33,-1353.29 205.85,-1273.64"/>
+<polygon fill="#000000" stroke="#000000" points="209.31,-1273.01 205.01,-1263.33 202.33,-1273.58 209.31,-1273.01"/>
 </g>
-<!-- sourcefile~whm_setup.f90 -->
+<!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node7" class="node">
-<title>sourcefile~whm_setup.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="412.5,-2292 327.5,-2292 327.5,-2268 412.5,-2268 412.5,-2292"/>
-<text text-anchor="middle" x="370" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406.5,-2334 333.5,-2334 333.5,-2310 406.5,-2310 406.5,-2334"/>
+<text text-anchor="middle" x="370" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge6" class="edge">
-<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.11,-2278.73C312.62,-2276.09 297.63,-2270.45 288,-2259 286.95,-2257.75 217.98,-1403.3 205.82,-1252.58"/>
-<polygon fill="#000000" stroke="#000000" points="209.28,-1251.94 204.99,-1242.26 202.3,-1252.51 209.28,-1251.94"/>
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M333.37,-2321.72C317.09,-2319.62 299.02,-2314.13 288,-2301 287.46,-2300.36 217.79,-1424.38 205.76,-1273.12"/>
+<polygon fill="#000000" stroke="#000000" points="209.25,-1272.84 204.97,-1263.15 202.27,-1273.39 209.25,-1272.84"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node8" class="node">
-<title>sourcefile~whm_coord.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="413,-2250 327,-2250 327,-2226 413,-2226 413,-2250"/>
-<text text-anchor="middle" x="370" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="452,-2292 288,-2292 288,-2268 452,-2268 452,-2292"/>
+<text text-anchor="middle" x="370" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge7" class="edge">
-<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.71,-2236.64C312.36,-2233.96 297.56,-2228.32 288,-2217 283.96,-2212.22 217.72,-1398.93 205.82,-1252.46"/>
-<polygon fill="#000000" stroke="#000000" points="209.28,-1251.74 204.98,-1242.06 202.3,-1252.31 209.28,-1251.74"/>
+<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298,-2267.83C294.29,-2265.36 290.9,-2262.44 288,-2259 283.88,-2254.11 217.58,-1421.86 205.79,-1273.49"/>
+<polygon fill="#000000" stroke="#000000" points="209.26,-1273.01 204.98,-1263.32 202.28,-1273.56 209.26,-1273.01"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node9" class="node">
-<title>sourcefile~util_append.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="413,-2208 327,-2208 327,-2184 413,-2184 413,-2208"/>
-<text text-anchor="middle" x="370" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="417.5,-2250 322.5,-2250 322.5,-2226 417.5,-2226 417.5,-2250"/>
+<text text-anchor="middle" x="370" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge8" class="edge">
-<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.73,-2194.62C312.38,-2191.94 297.58,-2186.31 288,-2175 280.27,-2165.87 217.32,-1394.16 205.8,-1252.28"/>
-<polygon fill="#000000" stroke="#000000" points="209.28,-1251.85 204.98,-1242.17 202.3,-1252.42 209.28,-1251.85"/>
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M322.49,-2235.75C309.52,-2232.79 296.63,-2227.21 288,-2217 280.1,-2207.65 217.16,-1417.15 205.76,-1273.32"/>
+<polygon fill="#000000" stroke="#000000" points="209.23,-1272.78 204.95,-1263.09 202.25,-1273.33 209.23,-1272.78"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node10" class="node">
-<title>sourcefile~helio_coord.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="413,-2166 327,-2166 327,-2142 413,-2142 413,-2166"/>
-<text text-anchor="middle" x="370" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-2208 336,-2208 336,-2184 404,-2184 404,-2208"/>
+<text text-anchor="middle" x="370" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge9" class="edge">
-<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.75,-2152.6C312.41,-2149.91 297.6,-2144.29 288,-2133 273.22,-2115.63 216.37,-1389.77 205.72,-1252.33"/>
-<polygon fill="#000000" stroke="#000000" points="209.2,-1251.86 204.94,-1242.16 202.22,-1252.4 209.2,-1251.86"/>
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.9,-2195.96C319.03,-2194.09 299.66,-2188.73 288,-2175 272.89,-2157.2 216.19,-1412.93 205.68,-1273.41"/>
+<polygon fill="#000000" stroke="#000000" points="209.15,-1272.82 204.91,-1263.11 202.17,-1273.34 209.15,-1272.82"/>
 </g>
-<!-- sourcefile~gr.f90 -->
+<!-- sourcefile~util_exit.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node11" class="node">
-<title>sourcefile~gr.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-2124 343,-2124 343,-2100 397,-2100 397,-2124"/>
-<text text-anchor="middle" x="370" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="403.5,-2166 336.5,-2166 336.5,-2142 403.5,-2142 403.5,-2166"/>
+<text text-anchor="middle" x="370" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge10" class="edge">
-<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.71,-2112.52C324.53,-2111.36 301.31,-2106.57 288,-2091 273.91,-2074.52 216.85,-1386.63 205.84,-1252.53"/>
-<polygon fill="#000000" stroke="#000000" points="209.3,-1251.93 205,-1242.24 202.33,-1252.5 209.3,-1251.93"/>
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.33,-2153.99C319.37,-2152.15 299.78,-2146.82 288,-2133 273.56,-2116.07 216.55,-1408.55 205.77,-1273.24"/>
+<polygon fill="#000000" stroke="#000000" points="209.25,-1272.9 204.97,-1263.21 202.27,-1273.46 209.25,-1272.9"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
+<!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node12" class="node">
-<title>sourcefile~symba_util.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="411,-2082 329,-2082 329,-2058 411,-2058 411,-2082"/>
-<text text-anchor="middle" x="370" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="409.5,-2124 330.5,-2124 330.5,-2100 409.5,-2100 409.5,-2124"/>
+<text text-anchor="middle" x="370" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge11" class="edge">
-<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M328.92,-2068.92C313.94,-2066.39 298.13,-2060.79 288,-2049 261.19,-2017.79 214.64,-1379.92 205.56,-1252.16"/>
-<polygon fill="#000000" stroke="#000000" points="209.04,-1251.75 204.84,-1242.02 202.06,-1252.24 209.04,-1251.75"/>
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.16,-2111.14C314.81,-2108.72 298.4,-2103.14 288,-2091 260.52,-2058.93 214.41,-1403.38 205.51,-1273.32"/>
+<polygon fill="#000000" stroke="#000000" points="208.98,-1272.75 204.81,-1263.01 202,-1273.22 208.98,-1272.75"/>
 </g>
-<!-- sourcefile~eucl.f90 -->
+<!-- sourcefile~swiftest_driver.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node13" class="node">
-<title>sourcefile~eucl.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-2040 343,-2040 343,-2016 397,-2016 397,-2040"/>
-<text text-anchor="middle" x="370" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="419,-2082 321,-2082 321,-2058 419,-2058 419,-2082"/>
+<text text-anchor="middle" x="370" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge12" class="edge">
-<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.75,-2028.48C324.6,-2027.3 301.39,-2022.5 288,-2007 262.55,-1977.53 215.19,-1376.01 205.69,-1252.17"/>
-<polygon fill="#000000" stroke="#000000" points="209.16,-1251.71 204.91,-1242 202.18,-1252.24 209.16,-1251.71"/>
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.91,-2067.25C308.52,-2064.2 296.34,-2058.69 288,-2049 261.88,-2018.68 214.96,-1399.64 205.64,-1273.37"/>
+<polygon fill="#000000" stroke="#000000" points="209.1,-1272.73 204.87,-1263.02 202.12,-1273.25 209.1,-1272.73"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~helio_coord.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node14" class="node">
-<title>sourcefile~util_copy.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405.5,-1998 334.5,-1998 334.5,-1974 405.5,-1974 405.5,-1998"/>
-<text text-anchor="middle" x="370" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
+<title>sourcefile~helio_coord.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="413,-2040 327,-2040 327,-2016 413,-2016 413,-2040"/>
+<text text-anchor="middle" x="370" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge14" class="edge">
-<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M334.39,-1985.66C317.95,-1983.59 299.44,-1978.16 288,-1965 240,-1909.76 210.89,-1370.32 205.08,-1252.61"/>
-<polygon fill="#000000" stroke="#000000" points="208.56,-1252.1 204.58,-1242.29 201.57,-1252.45 208.56,-1252.1"/>
+<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge13" class="edge">
+<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.86,-2026.5C312.53,-2023.81 297.7,-2018.2 288,-2007 263.24,-1978.42 215.52,-1395.53 205.77,-1273.34"/>
+<polygon fill="#000000" stroke="#000000" points="209.25,-1272.97 204.97,-1263.28 202.27,-1273.52 209.25,-1272.97"/>
 </g>
-<!-- sourcefile~symba_collision.f90 -->
+<!-- sourcefile~symba_fragmentation.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node15" class="node">
-<title>sourcefile~symba_collision.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="423,-1956 317,-1956 317,-1932 423,-1932 423,-1956"/>
-<text text-anchor="middle" x="370" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
+<title>sourcefile~symba_fragmentation.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="437,-1998 303,-1998 303,-1974 437,-1974 437,-1998"/>
+<text text-anchor="middle" x="370" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.8,-1940.03C305.9,-1936.81 295.46,-1931.53 288,-1923 242.67,-1871.2 211.64,-1365.51 205.23,-1252.38"/>
-<polygon fill="#000000" stroke="#000000" points="208.71,-1251.93 204.66,-1242.14 201.72,-1252.32 208.71,-1251.93"/>
+<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge14" class="edge">
+<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303,-1976.56C297.35,-1973.6 292.2,-1969.82 288,-1965 241.31,-1911.46 211.23,-1388.44 205.14,-1273.33"/>
+<polygon fill="#000000" stroke="#000000" points="208.63,-1273.03 204.62,-1263.22 201.64,-1273.39 208.63,-1273.03"/>
 </g>
-<!-- sourcefile~symba_io.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node16" class="node">
-<title>sourcefile~symba_io.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="408,-1914 332,-1914 332,-1890 408,-1890 408,-1914"/>
-<text text-anchor="middle" x="370" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="425.5,-1956 314.5,-1956 314.5,-1932 425.5,-1932 425.5,-1956"/>
+<text text-anchor="middle" x="370" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.99,-1901.25C316.21,-1898.94 298.95,-1893.42 288,-1881 203.27,-1784.92 202.58,-1355.51 203.66,-1252.34"/>
-<polygon fill="#000000" stroke="#000000" points="207.17,-1252.19 203.79,-1242.15 200.17,-1252.1 207.17,-1252.19"/>
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge15" class="edge">
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.32,-1939.23C304.33,-1935.96 294.9,-1930.86 288,-1923 200.5,-1823.39 201.98,-1377.73 203.57,-1273.06"/>
+<polygon fill="#000000" stroke="#000000" points="207.07,-1273.06 203.74,-1263.01 200.07,-1272.95 207.07,-1273.06"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~gr.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node17" class="node">
-<title>sourcefile~helio_drift.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="408.5,-1872 331.5,-1872 331.5,-1848 408.5,-1848 408.5,-1872"/>
-<text text-anchor="middle" x="370" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-1914 343,-1914 343,-1890 397,-1890 397,-1914"/>
+<text text-anchor="middle" x="370" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge17" class="edge">
-<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.21,-1859.08C315.67,-1856.7 298.82,-1851.16 288,-1839 208.59,-1749.74 203.83,-1350.86 203.88,-1252.15"/>
-<polygon fill="#000000" stroke="#000000" points="207.38,-1252.12 203.91,-1242.11 200.38,-1252.1 207.38,-1252.12"/>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge16" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.87,-1902.38C324.77,-1901.15 301.58,-1896.33 288,-1881 205.93,-1788.34 203.19,-1374.22 203.77,-1273.25"/>
+<polygon fill="#000000" stroke="#000000" points="207.27,-1273.04 203.85,-1263.01 200.27,-1272.99 207.27,-1273.04"/>
 </g>
-<!-- sourcefile~symba_kick.f90 -->
+<!-- sourcefile~fragmentation.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node18" class="node">
-<title>sourcefile~symba_kick.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="413,-1830 327,-1830 327,-1806 413,-1806 413,-1830"/>
-<text text-anchor="middle" x="370" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
+<title>sourcefile~fragmentation.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="418.5,-1872 321.5,-1872 321.5,-1848 418.5,-1848 418.5,-1872"/>
+<text text-anchor="middle" x="370" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge18" class="edge">
-<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.66,-1816.23C312.48,-1813.48 297.81,-1807.91 288,-1797 214.01,-1714.68 205.18,-1347.28 204.14,-1252.41"/>
-<polygon fill="#000000" stroke="#000000" points="207.64,-1252.2 204.05,-1242.23 200.64,-1252.26 207.64,-1252.2"/>
+<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge17" class="edge">
+<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M321.14,-1857.05C308.75,-1853.99 296.52,-1848.53 288,-1839 211.31,-1753.22 204.49,-1370.16 204.01,-1273.31"/>
+<polygon fill="#000000" stroke="#000000" points="207.51,-1273.17 203.97,-1263.18 200.51,-1273.19 207.51,-1273.17"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node19" class="node">
-<title>sourcefile~rmvs_util.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406.5,-1788 333.5,-1788 333.5,-1764 406.5,-1764 406.5,-1788"/>
-<text text-anchor="middle" x="370" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="441,-1830 299,-1830 299,-1806 441,-1806 441,-1830"/>
+<text text-anchor="middle" x="370" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge19" class="edge">
-<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M333.41,-1775.27C317.34,-1773.04 299.43,-1767.58 288,-1755 219.37,-1679.52 206.63,-1342.97 204.43,-1252.47"/>
-<polygon fill="#000000" stroke="#000000" points="207.93,-1252.17 204.2,-1242.25 200.93,-1252.32 207.93,-1252.17"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge18" class="edge">
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.64,-1805.82C294.72,-1803.36 291.12,-1800.45 288,-1797 216.7,-1718.11 205.89,-1366.21 204.28,-1273.47"/>
+<polygon fill="#000000" stroke="#000000" points="207.78,-1273.2 204.12,-1263.25 200.78,-1273.31 207.78,-1273.2"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~util_rescale.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node20" class="node">
-<title>sourcefile~tides_getacch_pl.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="425.5,-1746 314.5,-1746 314.5,-1722 425.5,-1722 425.5,-1746"/>
-<text text-anchor="middle" x="370" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="412.5,-1788 327.5,-1788 327.5,-1764 412.5,-1764 412.5,-1788"/>
+<text text-anchor="middle" x="370" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge20" class="edge">
-<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.19,-1728.83C304.33,-1725.58 294.99,-1720.58 288,-1713 224.65,-1644.27 208.17,-1337.94 204.77,-1252.3"/>
-<polygon fill="#000000" stroke="#000000" points="208.26,-1252.01 204.39,-1242.15 201.26,-1252.27 208.26,-1252.01"/>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge19" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.19,-1774.21C312.9,-1771.49 298,-1765.93 288,-1755 222.02,-1682.9 207.39,-1361.54 204.59,-1273.41"/>
+<polygon fill="#000000" stroke="#000000" points="208.09,-1273.1 204.29,-1263.21 201.09,-1273.31 208.09,-1273.1"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~symba_setup.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node21" class="node">
-<title>sourcefile~tides_spin_step.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="422.5,-1704 317.5,-1704 317.5,-1680 422.5,-1680 422.5,-1704"/>
-<text text-anchor="middle" x="370" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="417,-1746 323,-1746 323,-1722 417,-1722 417,-1746"/>
+<text text-anchor="middle" x="370" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge21" class="edge">
-<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.21,-1687.66C306.29,-1684.45 295.75,-1679.27 288,-1671 229.99,-1609.06 209.89,-1333.41 205.18,-1252.44"/>
-<polygon fill="#000000" stroke="#000000" points="208.67,-1252.13 204.62,-1242.35 201.68,-1252.53 208.67,-1252.13"/>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge20" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M322.64,-1731.15C309.83,-1728.14 297,-1722.69 288,-1713 227.27,-1647.61 208.98,-1356.16 204.95,-1273.14"/>
+<polygon fill="#000000" stroke="#000000" points="208.45,-1272.88 204.49,-1263.05 201.45,-1273.2 208.45,-1272.88"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node22" class="node">
-<title>sourcefile~user_getacch.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="417.5,-1662 322.5,-1662 322.5,-1638 417.5,-1638 417.5,-1662"/>
-<text text-anchor="middle" x="370" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="408.5,-1704 331.5,-1704 331.5,-1680 408.5,-1680 408.5,-1704"/>
+<text text-anchor="middle" x="370" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge22" class="edge">
-<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M322.38,-1646.89C309.72,-1643.86 297.03,-1638.46 288,-1629 235.34,-1573.85 211.82,-1328.94 205.69,-1252.72"/>
-<polygon fill="#000000" stroke="#000000" points="209.15,-1252.06 204.88,-1242.36 202.17,-1252.61 209.15,-1252.06"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge21" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.14,-1690.7C315.78,-1688.22 299.08,-1682.72 288,-1671 232.62,-1612.41 210.79,-1351.75 205.41,-1273.37"/>
+<polygon fill="#000000" stroke="#000000" points="208.89,-1272.92 204.73,-1263.17 201.9,-1273.38 208.89,-1272.92"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
+<!-- sourcefile~symba_drift.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node23" class="node">
-<title>sourcefile~whm_step.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="409.5,-1620 330.5,-1620 330.5,-1596 409.5,-1596 409.5,-1620"/>
-<text text-anchor="middle" x="370" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="413,-1662 327,-1662 327,-1638 413,-1638 413,-1662"/>
+<text text-anchor="middle" x="370" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.5,-1606.38C315.4,-1603.81 299.07,-1598.32 288,-1587 240.47,-1538.38 213.78,-1322.41 206.24,-1252.16"/>
-<polygon fill="#000000" stroke="#000000" points="209.72,-1251.76 205.19,-1242.18 202.76,-1252.49 209.72,-1251.76"/>
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.66,-1647.75C312.66,-1644.94 298.09,-1639.45 288,-1629 237.91,-1577.13 212.78,-1346.75 205.96,-1273.47"/>
+<polygon fill="#000000" stroke="#000000" points="209.41,-1272.75 205.02,-1263.11 202.43,-1273.38 209.41,-1272.75"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
+<!-- sourcefile~whm_drift.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node24" class="node">
-<title>sourcefile~orbel.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-1578 342.5,-1578 342.5,-1554 397.5,-1554 397.5,-1578"/>
-<text text-anchor="middle" x="370" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
+<title>sourcefile~whm_drift.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="408.5,-1620 331.5,-1620 331.5,-1596 408.5,-1596 408.5,-1620"/>
+<text text-anchor="middle" x="370" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge24" class="edge">
-<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.3,-1565.73C324.65,-1564.13 302.22,-1559.13 288,-1545 245.67,-1502.96 216.1,-1316.56 206.97,-1252.06"/>
-<polygon fill="#000000" stroke="#000000" points="210.44,-1251.56 205.6,-1242.14 203.5,-1252.52 210.44,-1251.56"/>
+<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge23" class="edge">
+<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.41,-1606.44C316.09,-1603.92 299.35,-1598.45 288,-1587 243.09,-1541.7 214.92,-1340.66 206.59,-1273.17"/>
+<polygon fill="#000000" stroke="#000000" points="210.06,-1272.7 205.39,-1263.2 203.11,-1273.54 210.06,-1272.7"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
+<!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node25" class="node">
-<title>sourcefile~symba_step.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="414,-1536 326,-1536 326,-1512 414,-1512 414,-1536"/>
-<text text-anchor="middle" x="370" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="408.5,-1578 331.5,-1578 331.5,-1554 408.5,-1554 408.5,-1578"/>
+<text text-anchor="middle" x="370" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge24" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.17,-1564.19C316,-1561.61 299.44,-1556.16 288,-1545 210.67,-1469.55 203.21,-1328.25 203.39,-1273.49"/>
+<polygon fill="#000000" stroke="#000000" points="206.9,-1273.21 203.53,-1263.17 199.9,-1273.12 206.9,-1273.21"/>
+</g>
+<!-- sourcefile~kick.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node26" class="node">
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-1536 343,-1536 343,-1512 397,-1512 397,-1536"/>
+<text text-anchor="middle" x="370" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge25" class="edge">
-<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M325.86,-1521.03C312.28,-1518.11 298.19,-1512.74 288,-1503 215.71,-1433.88 205.19,-1304.21 203.98,-1252.31"/>
-<polygon fill="#000000" stroke="#000000" points="207.48,-1252.15 203.84,-1242.19 200.48,-1252.24 207.48,-1252.15"/>
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.95,-1523.49C325.37,-1521.79 302.76,-1516.78 288,-1503 220.78,-1440.21 207.31,-1322.28 204.65,-1273.26"/>
+<polygon fill="#000000" stroke="#000000" points="208.14,-1272.95 204.2,-1263.11 201.14,-1273.26 208.14,-1272.95"/>
 </g>
 <!-- sourcefile~rmvs_discard.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node26" class="node">
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node27" class="node">
 <title>sourcefile~rmvs_discard.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
 <polygon fill="#f0ad4e" stroke="#f0ad4e" points="417,-1494 323,-1494 323,-1470 417,-1470 417,-1494"/>
 <text text-anchor="middle" x="370" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
 </a>
@@ -692,533 +707,533 @@ <h3 class="panel-title">Files dependent on this one</h3>
 <!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge26" class="edge">
 <title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M322.78,-1477.95C310.27,-1474.89 297.57,-1469.7 288,-1461 225.87,-1404.51 209.62,-1298.38 205.43,-1252.3"/>
-<polygon fill="#000000" stroke="#000000" points="208.91,-1251.88 204.62,-1242.19 201.93,-1252.43 208.91,-1251.88"/>
-</g>
-<!-- sourcefile~whm_drift.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node27" class="node">
-<title>sourcefile~whm_drift.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="408.5,-1452 331.5,-1452 331.5,-1428 408.5,-1428 408.5,-1452"/>
-<text text-anchor="middle" x="370" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge27" class="edge">
-<title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.5,-1437.31C316.56,-1434.57 300.08,-1429.24 288,-1419 235.92,-1374.86 214.87,-1292.04 207.48,-1252.33"/>
-<polygon fill="#000000" stroke="#000000" points="210.9,-1251.6 205.74,-1242.35 204.01,-1252.8 210.9,-1251.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M322.95,-1477.76C310.45,-1474.69 297.7,-1469.54 288,-1461 230.8,-1410.63 212.05,-1315.91 206.33,-1273.06"/>
+<polygon fill="#000000" stroke="#000000" points="209.8,-1272.61 205.11,-1263.11 202.85,-1273.46 209.8,-1272.61"/>
 </g>
-<!-- sourcefile~util_valid.f90 -->
+<!-- sourcefile~rmvs_setup.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node28" class="node">
-<title>sourcefile~util_valid.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-1410 334,-1410 334,-1386 406,-1386 406,-1410"/>
-<text text-anchor="middle" x="370" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="413,-1452 327,-1452 327,-1428 413,-1428 413,-1452"/>
+<text text-anchor="middle" x="370" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge28" class="edge">
-<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M333.62,-1394.99C318.35,-1392.23 301.04,-1386.97 288,-1377 245.62,-1344.6 221.11,-1284.26 210.44,-1251.88"/>
-<polygon fill="#000000" stroke="#000000" points="213.68,-1250.54 207.34,-1242.05 207.01,-1252.64 213.68,-1250.54"/>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge27" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.75,-1436.02C313.24,-1433.03 298.95,-1427.87 288,-1419 240.91,-1380.89 217.93,-1309.61 208.86,-1273.38"/>
+<polygon fill="#000000" stroke="#000000" points="212.2,-1272.26 206.49,-1263.34 205.38,-1273.88 212.2,-1272.26"/>
 </g>
-<!-- sourcefile~kick.f90 -->
+<!-- sourcefile~whm_coord.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node29" class="node">
-<title>sourcefile~kick.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-1368 343,-1368 343,-1344 397,-1344 397,-1368"/>
-<text text-anchor="middle" x="370" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="413,-1410 327,-1410 327,-1386 413,-1386 413,-1410"/>
+<text text-anchor="middle" x="370" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge29" class="edge">
-<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.85,-1353.51C326.08,-1350.92 304.46,-1345.66 288,-1335 255.11,-1313.69 229.23,-1275.18 215.32,-1251.19"/>
-<polygon fill="#000000" stroke="#000000" points="218.21,-1249.19 210.26,-1242.18 212.1,-1252.61 218.21,-1249.19"/>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge28" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.95,-1393.12C313.6,-1390.06 299.36,-1385.08 288,-1377 250.41,-1350.26 224.89,-1300.99 212.55,-1272.63"/>
+<polygon fill="#000000" stroke="#000000" points="215.7,-1271.08 208.6,-1263.21 209.24,-1273.79 215.7,-1271.08"/>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
+<!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node30" class="node">
-<title>sourcefile~helio_gr.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-1326 336,-1326 336,-1302 404,-1302 404,-1326"/>
-<text text-anchor="middle" x="370" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="407.5,-1368 332.5,-1368 332.5,-1344 407.5,-1344 407.5,-1368"/>
+<text text-anchor="middle" x="370" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge30" class="edge">
-<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.66,-1308.41C320.62,-1305.13 302.92,-1300.18 288,-1293 264.22,-1281.56 240.47,-1262.91 224.33,-1248.86"/>
-<polygon fill="#000000" stroke="#000000" points="226.41,-1246.04 216.62,-1242 221.76,-1251.26 226.41,-1246.04"/>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge29" class="edge">
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M332.34,-1350.78C317.86,-1347.65 301.49,-1342.72 288,-1335 259.59,-1318.75 234.12,-1290.37 218.87,-1271.14"/>
+<polygon fill="#000000" stroke="#000000" points="221.49,-1268.8 212.6,-1263.02 215.94,-1273.08 221.49,-1268.8"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~setup.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node31" class="node">
-<title>sourcefile~util_resize.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="409.5,-1284 330.5,-1284 330.5,-1260 409.5,-1260 409.5,-1284"/>
-<text text-anchor="middle" x="370" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="398.5,-1326 341.5,-1326 341.5,-1302 398.5,-1302 398.5,-1326"/>
+<text text-anchor="middle" x="370" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge31" class="edge">
-<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.31,-1262.15C305,-1255.71 271.94,-1247.29 245.99,-1240.69"/>
-<polygon fill="#000000" stroke="#000000" points="246.62,-1237.24 236.07,-1238.16 244.9,-1244.02 246.62,-1237.24"/>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge30" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M341.19,-1308.31C325.35,-1304.7 305.28,-1299.48 288,-1293 269.67,-1286.13 250.05,-1276.46 234.39,-1268.13"/>
+<polygon fill="#000000" stroke="#000000" points="235.66,-1264.84 225.2,-1263.16 232.33,-1271 235.66,-1264.84"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~util_version.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node32" class="node">
-<title>sourcefile~util_spill.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-1242 336,-1242 336,-1218 404,-1218 404,-1242"/>
-<text text-anchor="middle" x="370" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="412.5,-1284 327.5,-1284 327.5,-1260 412.5,-1260 412.5,-1284"/>
+<text text-anchor="middle" x="370" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge61" class="edge">
-<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.61,-1230C309.89,-1230 274.16,-1230 246.42,-1230"/>
-<polygon fill="#000000" stroke="#000000" points="246.22,-1226.5 236.22,-1230 246.22,-1233.5 246.22,-1226.5"/>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge31" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.36,-1266.7C302.64,-1263.55 271.36,-1259.57 246.48,-1256.41"/>
+<polygon fill="#000000" stroke="#000000" points="246.62,-1252.9 236.25,-1255.11 245.73,-1259.84 246.62,-1252.9"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node33" class="node">
-<title>sourcefile~helio_step.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="409.5,-1200 330.5,-1200 330.5,-1176 409.5,-1176 409.5,-1200"/>
-<text text-anchor="middle" x="370" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="409,-1242 331,-1242 331,-1218 409,-1218 409,-1242"/>
+<text text-anchor="middle" x="370" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge32" class="edge">
-<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.31,-1197.85C305,-1204.29 271.94,-1212.71 245.99,-1219.31"/>
-<polygon fill="#000000" stroke="#000000" points="244.9,-1215.98 236.07,-1221.84 246.62,-1222.76 244.9,-1215.98"/>
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.73,-1234.87C305.43,-1238.09 272.26,-1242.31 246.2,-1245.63"/>
+<polygon fill="#000000" stroke="#000000" points="245.71,-1242.16 236.23,-1246.9 246.59,-1249.11 245.71,-1242.16"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node34" class="node">
-<title>sourcefile~util_get_energy_momentum.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="452,-1158 288,-1158 288,-1134 452,-1134 452,-1158"/>
-<text text-anchor="middle" x="370" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-1200 342.5,-1200 342.5,-1176 397.5,-1176 397.5,-1200"/>
+<text text-anchor="middle" x="370" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge33" class="edge">
-<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M306.35,-1158.07C299.92,-1160.52 293.67,-1163.46 288,-1167 267.14,-1180.02 271.76,-1194.37 252,-1209 249.89,-1210.56 247.64,-1212.04 245.32,-1213.43"/>
-<polygon fill="#000000" stroke="#000000" points="243.26,-1210.56 236.1,-1218.37 246.57,-1216.73 243.26,-1210.56"/>
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.14,-1193.02C326.08,-1196.5 305.46,-1201.8 288,-1209 270.87,-1216.06 268.51,-1221.61 252,-1230 248.86,-1231.59 245.58,-1233.19 242.27,-1234.74"/>
+<polygon fill="#000000" stroke="#000000" points="240.59,-1231.66 232.93,-1238.99 243.49,-1238.03 240.59,-1231.66"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~symba_util.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node35" class="node">
-<title>sourcefile~swiftest_driver.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="419,-1116 321,-1116 321,-1092 419,-1092 419,-1116"/>
-<text text-anchor="middle" x="370" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="411,-1158 329,-1158 329,-1134 411,-1134 411,-1158"/>
+<text text-anchor="middle" x="370" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge34" class="edge">
-<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.97,-1108.93C309.16,-1112.05 297.26,-1117.05 288,-1125 257.19,-1151.47 280.61,-1180.17 252,-1209 249.9,-1211.12 247.55,-1213.04 245.04,-1214.78"/>
-<polygon fill="#000000" stroke="#000000" points="242.96,-1211.94 236.09,-1220.01 246.49,-1217.98 242.96,-1211.94"/>
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M328.7,-1149.97C314.72,-1152.94 299.66,-1158.09 288,-1167 262.38,-1186.58 275.99,-1208.45 252,-1230 249.84,-1231.94 247.48,-1233.72 244.99,-1235.35"/>
+<polygon fill="#000000" stroke="#000000" points="243.16,-1232.37 236.2,-1240.35 246.62,-1238.45 243.16,-1232.37"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90 -->
+<!-- sourcefile~rmvs_step.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node36" class="node">
-<title>sourcefile~rmvs_setup.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="413,-1074 327,-1074 327,-1050 413,-1050 413,-1074"/>
-<text text-anchor="middle" x="370" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="410,-1116 330,-1116 330,-1092 410,-1092 410,-1116"/>
+<text text-anchor="middle" x="370" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge35" class="edge">
-<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.59,-1064.67C312.74,-1067.54 298.29,-1072.96 288,-1083 246.31,-1123.67 290.33,-1165.15 252,-1209 249.98,-1211.31 247.66,-1213.38 245.15,-1215.22"/>
-<polygon fill="#000000" stroke="#000000" points="242.83,-1212.54 236.07,-1220.69 246.44,-1218.53 242.83,-1212.54"/>
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M329.8,-1106.4C315.13,-1109.14 299.3,-1114.54 288,-1125 251.81,-1158.52 285.42,-1193.71 252,-1230 249.98,-1232.2 247.69,-1234.17 245.23,-1235.95"/>
+<polygon fill="#000000" stroke="#000000" points="243.14,-1233.12 236.36,-1241.27 246.74,-1239.13 243.14,-1233.12"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node37" class="node">
-<title>sourcefile~whm_util.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406.5,-1032 333.5,-1032 333.5,-1008 406.5,-1008 406.5,-1032"/>
-<text text-anchor="middle" x="370" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="429,-1074 311,-1074 311,-1050 429,-1050 429,-1074"/>
+<text text-anchor="middle" x="370" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge36" class="edge">
-<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M333.28,-1021.06C317.38,-1023.38 299.66,-1028.83 288,-1041 235.17,-1096.13 300.3,-1149.85 252,-1209 250.06,-1211.38 247.79,-1213.49 245.33,-1215.38"/>
-<polygon fill="#000000" stroke="#000000" points="243.01,-1212.69 236.33,-1220.91 246.68,-1218.65 243.01,-1212.69"/>
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.85,-1068.85C302.34,-1072.05 294.33,-1076.59 288,-1083 240.76,-1130.88 295.3,-1178.52 252,-1230 250.02,-1232.35 247.73,-1234.44 245.25,-1236.31"/>
+<polygon fill="#000000" stroke="#000000" points="242.93,-1233.62 236.21,-1241.82 246.57,-1239.6 242.93,-1233.62"/>
 </g>
 <!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node38" class="node">
 <title>sourcefile~util_coord.f90</title>
 <g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="408.5,-990 331.5,-990 331.5,-966 408.5,-966 408.5,-990"/>
-<text text-anchor="middle" x="370" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="408.5,-1032 331.5,-1032 331.5,-1008 408.5,-1008 408.5,-1032"/>
+<text text-anchor="middle" x="370" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge37" class="edge">
 <title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.4,-979.09C315.89,-981.51 299.01,-987.02 288,-999 223.91,-1068.71 310.36,-1134.43 252,-1209 250.11,-1211.42 247.88,-1213.56 245.44,-1215.46"/>
-<polygon fill="#000000" stroke="#000000" points="243.13,-1212.78 236.49,-1221.04 246.83,-1218.72 243.13,-1212.78"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.09,-1021.25C315.72,-1023.72 299.02,-1029.23 288,-1041 229.55,-1103.41 305.32,-1163.15 252,-1230 250.09,-1232.4 247.84,-1234.53 245.39,-1236.43"/>
+<polygon fill="#000000" stroke="#000000" points="243.07,-1233.74 236.42,-1241.98 246.76,-1239.69 243.07,-1233.74"/>
 </g>
-<!-- sourcefile~drift.f90 -->
+<!-- sourcefile~symba_kick.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node39" class="node">
-<title>sourcefile~drift.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-948 343,-948 343,-924 397,-924 397,-948"/>
-<text text-anchor="middle" x="370" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="413,-990 327,-990 327,-966 413,-966 413,-990"/>
+<text text-anchor="middle" x="370" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge38" class="edge">
-<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.91,-935.66C324.84,-936.91 301.65,-941.73 288,-957 212.59,-1041.34 320.48,-1118.94 252,-1209 249.96,-1211.68 247.51,-1214.02 244.81,-1216.07"/>
-<polygon fill="#000000" stroke="#000000" points="242.83,-1213.18 236.11,-1221.37 246.47,-1219.16 242.83,-1213.18"/>
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.71,-979.81C312.53,-982.56 297.85,-988.12 288,-999 218.26,-1076.02 315.42,-1147.69 252,-1230 249.95,-1232.67 247.48,-1235 244.77,-1237.04"/>
+<polygon fill="#000000" stroke="#000000" points="242.79,-1234.15 236.06,-1242.33 246.42,-1240.14 242.79,-1234.15"/>
 </g>
-<!-- sourcefile~rmvs_step.f90 -->
+<!-- sourcefile~io.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node40" class="node">
-<title>sourcefile~rmvs_step.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="410,-906 330,-906 330,-882 410,-882 410,-906"/>
-<text text-anchor="middle" x="370" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-948 343,-948 343,-924 397,-924 397,-948"/>
+<text text-anchor="middle" x="370" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge39" class="edge">
-<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M329.87,-895.04C314.67,-897.51 298.44,-903.09 288,-915 201.25,-1014.01 330.63,-1103.42 252,-1209 249.99,-1211.7 247.56,-1214.06 244.87,-1216.12"/>
-<polygon fill="#000000" stroke="#000000" points="242.89,-1213.22 236.19,-1221.44 246.55,-1219.19 242.89,-1213.22"/>
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.86,-935.62C324.76,-936.84 301.57,-941.66 288,-957 206.92,-1048.68 325.55,-1132.18 252,-1230 249.98,-1232.69 247.54,-1235.04 244.84,-1237.09"/>
+<polygon fill="#000000" stroke="#000000" points="242.86,-1234.2 236.15,-1242.41 246.51,-1240.18 242.86,-1234.2"/>
 </g>
-<!-- sourcefile~whm_gr.f90 -->
+<!-- sourcefile~util_fill.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node41" class="node">
-<title>sourcefile~whm_gr.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-864 336,-864 336,-840 404,-840 404,-864"/>
-<text text-anchor="middle" x="370" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="400,-906 340,-906 340,-882 400,-882 400,-906"/>
+<text text-anchor="middle" x="370" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge40" class="edge">
-<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.99,-852.11C319.14,-854.01 299.77,-859.36 288,-873 189.88,-986.71 340.79,-1087.87 252,-1209 250.01,-1211.71 247.59,-1214.08 244.91,-1216.15"/>
-<polygon fill="#000000" stroke="#000000" points="242.93,-1213.26 236.25,-1221.48 246.6,-1219.22 242.93,-1213.26"/>
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M339.65,-893.79C322.04,-895.32 300.67,-900.42 288,-915 195.57,-1021.36 335.71,-1116.65 252,-1230 250,-1232.71 247.58,-1235.07 244.89,-1237.13"/>
+<polygon fill="#000000" stroke="#000000" points="242.91,-1234.24 236.22,-1242.46 246.58,-1240.21 242.91,-1234.24"/>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
+<!-- sourcefile~whm_gr.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node42" class="node">
-<title>sourcefile~fragmentation.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="418.5,-822 321.5,-822 321.5,-798 418.5,-798 418.5,-822"/>
-<text text-anchor="middle" x="370" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-864 336,-864 336,-840 404,-840 404,-864"/>
+<text text-anchor="middle" x="370" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge41" class="edge">
-<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M321.27,-812.59C308.73,-815.63 296.39,-821.16 288,-831 233.25,-895.21 301.48,-1140.65 252,-1209 250.03,-1211.73 247.62,-1214.1 244.95,-1216.17"/>
-<polygon fill="#000000" stroke="#000000" points="242.97,-1213.28 236.3,-1221.52 246.65,-1219.24 242.97,-1213.28"/>
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.95,-852.08C319.1,-853.97 299.73,-859.32 288,-873 236.1,-933.53 298.94,-1165.55 252,-1230 250.02,-1232.72 247.61,-1235.09 244.93,-1237.16"/>
+<polygon fill="#000000" stroke="#000000" points="242.95,-1234.27 236.28,-1242.5 246.63,-1240.23 242.95,-1234.27"/>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node43" class="node">
-<title>sourcefile~symba_drift.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="413,-780 327,-780 327,-756 413,-756 413,-780"/>
-<text text-anchor="middle" x="370" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="413,-822 327,-822 327,-798 413,-798 413,-822"/>
+<text text-anchor="middle" x="370" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge43" class="edge">
-<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.71,-769.36C312.36,-772.05 297.56,-777.68 288,-789 227.56,-860.57 306.58,-1132.87 252,-1209 250.04,-1211.74 247.64,-1214.12 244.98,-1216.19"/>
-<polygon fill="#000000" stroke="#000000" points="243,-1213.3 236.34,-1221.54 246.68,-1219.25 243,-1213.3"/>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge42" class="edge">
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M326.74,-811.39C312.39,-814.07 297.59,-819.7 288,-831 230.41,-898.89 304.03,-1157.76 252,-1230 250.03,-1232.73 247.63,-1235.11 244.96,-1237.18"/>
+<polygon fill="#000000" stroke="#000000" points="242.98,-1234.29 236.32,-1242.53 246.67,-1240.25 242.98,-1234.29"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~discard.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node44" class="node">
-<title>sourcefile~util_fill.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="400,-738 340,-738 340,-714 400,-714 400,-738"/>
-<text text-anchor="middle" x="370" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="402.5,-780 337.5,-780 337.5,-756 402.5,-756 402.5,-780"/>
+<text text-anchor="middle" x="370" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge44" class="edge">
-<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M339.86,-725.6C322.11,-727.02 300.5,-732.08 288,-747 221.86,-825.93 311.67,-1125.07 252,-1209 250.05,-1211.74 247.66,-1214.13 245,-1216.21"/>
-<polygon fill="#000000" stroke="#000000" points="243.02,-1213.32 236.37,-1221.57 246.71,-1219.27 243.02,-1213.32"/>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge43" class="edge">
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M337.48,-767.83C320.22,-769.52 299.97,-774.77 288,-789 224.71,-864.25 309.12,-1149.97 252,-1230 250.04,-1232.74 247.65,-1235.13 244.99,-1237.2"/>
+<polygon fill="#000000" stroke="#000000" points="243.01,-1234.31 236.36,-1242.56 246.7,-1240.26 243.01,-1234.31"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90 -->
+<!-- sourcefile~symba_discard.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node45" class="node">
-<title>sourcefile~symba_encounter_check.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="445,-696 295,-696 295,-672 445,-672 445,-696"/>
-<text text-anchor="middle" x="370" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="421.5,-738 318.5,-738 318.5,-714 421.5,-714 421.5,-738"/>
+<text text-anchor="middle" x="370" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge45" class="edge">
-<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M297.95,-696.13C294.25,-698.61 290.88,-701.54 288,-705 216.16,-791.3 316.77,-1117.28 252,-1209 250.06,-1211.75 247.68,-1214.14 245.02,-1216.22"/>
-<polygon fill="#000000" stroke="#000000" points="243.04,-1213.33 236.4,-1221.59 246.74,-1219.28 243.04,-1213.33"/>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge44" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.19,-729.24C306.69,-732.42 295.64,-737.86 288,-747 219.01,-829.61 314.22,-1142.18 252,-1230 250.05,-1232.75 247.67,-1235.14 245.01,-1237.22"/>
+<polygon fill="#000000" stroke="#000000" points="243.03,-1234.33 236.39,-1242.58 246.73,-1240.27 243.03,-1234.33"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
+<!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node46" class="node">
-<title>sourcefile~util_peri.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-654 336,-654 336,-630 404,-630 404,-654"/>
-<text text-anchor="middle" x="370" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="422.5,-696 317.5,-696 317.5,-672 422.5,-672 422.5,-696"/>
+<text text-anchor="middle" x="370" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge46" class="edge">
-<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.76,-641.92C318.85,-643.76 299.49,-649.12 288,-663 210.46,-756.67 321.87,-1109.48 252,-1209 250.07,-1211.75 247.69,-1214.15 245.04,-1216.24"/>
-<polygon fill="#000000" stroke="#000000" points="243.06,-1213.34 236.42,-1221.6 246.76,-1219.29 243.06,-1213.34"/>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge45" class="edge">
+<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M317.31,-687.45C306.12,-690.65 295.42,-696.06 288,-705 213.31,-794.98 319.32,-1134.38 252,-1230 250.06,-1232.75 247.68,-1235.15 245.03,-1237.23"/>
+<polygon fill="#000000" stroke="#000000" points="243.05,-1234.34 236.41,-1242.6 246.75,-1240.28 243.05,-1234.34"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
+<!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node47" class="node">
-<title>sourcefile~rmvs_kick.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="409,-612 331,-612 331,-588 409,-588 409,-612"/>
-<text text-anchor="middle" x="370" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="412.5,-654 327.5,-654 327.5,-630 412.5,-630 412.5,-654"/>
+<text text-anchor="middle" x="370" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge47" class="edge">
-<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.77,-600.54C315.14,-602.85 298.35,-608.44 288,-621 204.76,-722.04 326.97,-1101.68 252,-1209 250.07,-1211.76 247.7,-1214.16 245.05,-1216.25"/>
-<polygon fill="#000000" stroke="#000000" points="243.07,-1213.35 236.44,-1221.62 246.78,-1219.29 243.07,-1213.35"/>
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge46" class="edge">
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.42,-643.1C312.79,-645.7 297.62,-651.35 288,-663 207.61,-760.35 324.42,-1126.58 252,-1230 250.07,-1232.76 247.69,-1235.16 245.04,-1237.24"/>
+<polygon fill="#000000" stroke="#000000" points="243.07,-1234.35 236.43,-1242.61 246.77,-1240.29 243.07,-1234.35"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node48" class="node">
-<title>sourcefile~util_set.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="402,-570 338,-570 338,-546 402,-546 402,-570"/>
-<text text-anchor="middle" x="370" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="414,-612 326,-612 326,-588 414,-588 414,-612"/>
+<text text-anchor="middle" x="370" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge48" class="edge">
-<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M337.75,-557.68C320.36,-559.29 299.89,-564.51 288,-579 199.05,-687.41 332.07,-1093.88 252,-1209 250.08,-1211.76 247.71,-1214.17 245.06,-1216.26"/>
-<polygon fill="#000000" stroke="#000000" points="243.09,-1213.36 236.46,-1221.63 246.79,-1219.3 243.09,-1213.36"/>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge47" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M325.7,-601.39C311.6,-604.12 297.23,-609.78 288,-621 201.91,-725.72 329.52,-1118.78 252,-1230 250.08,-1232.76 247.7,-1235.16 245.06,-1237.25"/>
+<polygon fill="#000000" stroke="#000000" points="243.08,-1234.36 236.45,-1242.62 246.79,-1240.3 243.08,-1234.36"/>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node49" class="node">
-<title>sourcefile~util_exit.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="403.5,-528 336.5,-528 336.5,-504 403.5,-504 403.5,-528"/>
-<text text-anchor="middle" x="370" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406.5,-570 333.5,-570 333.5,-546 406.5,-546 406.5,-570"/>
+<text text-anchor="middle" x="370" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge49" class="edge">
-<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M336.11,-515.82C319.07,-517.6 299.49,-522.94 288,-537 193.35,-652.78 337.17,-1086.08 252,-1209 250.08,-1211.77 247.72,-1214.17 245.07,-1216.26"/>
-<polygon fill="#000000" stroke="#000000" points="243.1,-1213.37 236.47,-1221.64 246.81,-1219.31 243.1,-1213.37"/>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge48" class="edge">
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M333.23,-558.17C316.92,-560.24 298.86,-565.74 288,-579 196.2,-691.1 334.62,-1110.98 252,-1230 250.08,-1232.76 247.71,-1235.17 245.07,-1237.26"/>
+<polygon fill="#000000" stroke="#000000" points="243.09,-1234.37 236.47,-1242.63 246.8,-1240.3 243.09,-1234.37"/>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
+<!-- sourcefile~helio_gr.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node50" class="node">
-<title>sourcefile~symba_discard.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="421.5,-486 318.5,-486 318.5,-462 421.5,-462 421.5,-486"/>
-<text text-anchor="middle" x="370" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-528 336,-528 336,-504 404,-504 404,-528"/>
+<text text-anchor="middle" x="370" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge50" class="edge">
-<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M318.46,-477C306.81,-480.16 295.62,-485.65 288,-495 187.64,-618.16 342.28,-1078.27 252,-1209 250.09,-1211.77 247.73,-1214.18 245.08,-1216.27"/>
-<polygon fill="#000000" stroke="#000000" points="243.11,-1213.38 236.49,-1221.65 246.82,-1219.31 243.11,-1213.38"/>
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.69,-515.86C318.75,-517.68 299.39,-523.04 288,-537 190.5,-656.47 339.73,-1103.18 252,-1230 250.09,-1232.77 247.72,-1235.17 245.08,-1237.27"/>
+<polygon fill="#000000" stroke="#000000" points="243.1,-1234.37 236.48,-1242.64 246.81,-1240.31 243.1,-1234.37"/>
 </g>
-<!-- sourcefile~util_solve.f90 -->
+<!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node51" class="node">
-<title>sourcefile~util_solve.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="407.5,-444 332.5,-444 332.5,-420 407.5,-420 407.5,-444"/>
-<text text-anchor="middle" x="370" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="406,-486 334,-486 334,-462 406,-462 406,-486"/>
+<text text-anchor="middle" x="370" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge51" class="edge">
-<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M332.36,-432.24C316.25,-434.38 298.63,-439.92 288,-453 234.97,-518.27 299.69,-1139.74 252,-1209 249.98,-1211.94 247.45,-1214.47 244.62,-1216.64"/>
-<polygon fill="#000000" stroke="#000000" points="242.72,-1213.7 236.01,-1221.9 246.37,-1219.68 242.72,-1213.7"/>
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M333.61,-474.08C317.18,-476.11 298.91,-481.59 288,-495 236.39,-558.42 298.41,-1162.69 252,-1230 249.98,-1232.93 247.45,-1235.46 244.62,-1237.64"/>
+<polygon fill="#000000" stroke="#000000" points="242.72,-1234.7 236,-1242.89 246.36,-1240.68 242.72,-1234.7"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node52" class="node">
-<title>sourcefile~discard.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="402.5,-402 337.5,-402 337.5,-378 402.5,-378 402.5,-402"/>
-<text text-anchor="middle" x="370" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="423,-444 317,-444 317,-420 423,-420 423,-444"/>
+<text text-anchor="middle" x="370" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge52" class="edge">
-<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M337.28,-389.67C319.96,-391.3 299.71,-396.55 288,-411 232.11,-479.95 302.24,-1135.83 252,-1209 249.98,-1211.94 247.46,-1214.47 244.63,-1216.65"/>
-<polygon fill="#000000" stroke="#000000" points="242.73,-1213.71 236.02,-1221.91 246.38,-1219.68 242.73,-1213.71"/>
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.75,-435.45C305.71,-438.68 295.23,-444.09 288,-453 233.54,-520.11 300.97,-1158.78 252,-1230 249.98,-1232.94 247.45,-1235.47 244.62,-1237.65"/>
+<polygon fill="#000000" stroke="#000000" points="242.72,-1234.71 236.01,-1242.9 246.37,-1240.68 242.72,-1234.71"/>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
+<!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node53" class="node">
-<title>sourcefile~helio_kick.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="408.5,-360 331.5,-360 331.5,-336 408.5,-336 408.5,-360"/>
-<text text-anchor="middle" x="370" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-402 343,-402 343,-378 397,-378 397,-402"/>
+<text text-anchor="middle" x="370" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge53" class="edge">
-<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.49,-348.33C315.61,-350.55 298.41,-356.12 288,-369 229.26,-441.64 304.8,-1131.93 252,-1209 249.99,-1211.94 247.46,-1214.47 244.64,-1216.65"/>
-<polygon fill="#000000" stroke="#000000" points="242.74,-1213.71 236.03,-1221.91 246.38,-1219.69 242.74,-1213.71"/>
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.84,-389.25C324.48,-390.26 300.98,-394.97 288,-411 230.69,-481.8 303.52,-1154.88 252,-1230 249.98,-1232.94 247.46,-1235.47 244.63,-1237.65"/>
+<polygon fill="#000000" stroke="#000000" points="242.73,-1234.71 236.02,-1242.91 246.38,-1240.68 242.73,-1234.71"/>
 </g>
-<!-- sourcefile~whm_kick.f90 -->
+<!-- sourcefile~symba_io.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node54" class="node">
-<title>sourcefile~whm_kick.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="408.5,-318 331.5,-318 331.5,-294 408.5,-294 408.5,-318"/>
-<text text-anchor="middle" x="370" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="408,-360 332,-360 332,-336 408,-336 408,-360"/>
+<text text-anchor="middle" x="370" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge54" class="edge">
-<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.48,-306.32C315.6,-308.54 298.4,-314.11 288,-327 226.41,-403.33 307.35,-1128.03 252,-1209 249.99,-1211.94 247.47,-1214.48 244.64,-1216.66"/>
-<polygon fill="#000000" stroke="#000000" points="242.74,-1213.72 236.03,-1221.92 246.39,-1219.69 242.74,-1213.72"/>
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.91,-348.27C315.91,-350.45 298.5,-356 288,-369 227.83,-443.49 306.07,-1150.98 252,-1230 249.99,-1232.94 247.47,-1235.47 244.64,-1237.66"/>
+<polygon fill="#000000" stroke="#000000" points="242.74,-1234.71 236.03,-1242.92 246.39,-1240.69 242.74,-1234.71"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
+<!-- sourcefile~whm_kick.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node55" class="node">
-<title>sourcefile~util_minimize_bfgs.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="429,-276 311,-276 311,-252 429,-252 429,-276"/>
-<text text-anchor="middle" x="370" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
+<title>sourcefile~whm_kick.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="408.5,-318 331.5,-318 331.5,-294 408.5,-294 408.5,-318"/>
+<text text-anchor="middle" x="370" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge55" class="edge">
-<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M310.91,-269.34C302.06,-272.67 293.92,-277.65 288,-285 223.55,-365.02 309.9,-1124.12 252,-1209 249.99,-1211.94 247.47,-1214.48 244.65,-1216.66"/>
-<polygon fill="#000000" stroke="#000000" points="242.75,-1213.72 236.04,-1221.92 246.4,-1219.69 242.75,-1213.72"/>
+<title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331.48,-306.31C315.59,-308.53 298.39,-314.11 288,-327 224.98,-405.17 308.62,-1147.08 252,-1230 249.99,-1232.94 247.47,-1235.48 244.64,-1237.66"/>
+<polygon fill="#000000" stroke="#000000" points="242.75,-1234.72 236.04,-1242.92 246.4,-1240.69 242.75,-1234.72"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~whm_step.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node56" class="node">
-<title>sourcefile~io.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-234 343,-234 343,-210 397,-210 397,-234"/>
-<text text-anchor="middle" x="370" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="409.5,-276 330.5,-276 330.5,-252 409.5,-252 409.5,-276"/>
+<text text-anchor="middle" x="370" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge56" class="edge">
-<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.81,-221.22C324.43,-222.22 300.93,-226.92 288,-243 220.7,-326.71 312.45,-1120.22 252,-1209 249.99,-1211.95 247.48,-1214.48 244.65,-1216.67"/>
-<polygon fill="#000000" stroke="#000000" points="242.75,-1213.72 236.05,-1221.93 246.41,-1219.7 242.75,-1213.72"/>
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.21,-264.49C314.68,-266.82 298.11,-272.44 288,-285 222.13,-366.86 311.18,-1143.17 252,-1230 249.99,-1232.95 247.47,-1235.48 244.65,-1237.66"/>
+<polygon fill="#000000" stroke="#000000" points="242.75,-1234.72 236.05,-1242.93 246.4,-1240.69 242.75,-1234.72"/>
 </g>
-<!-- sourcefile~symba_setup.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node57" class="node">
-<title>sourcefile~symba_setup.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="417,-192 323,-192 323,-168 417,-168 417,-192"/>
-<text text-anchor="middle" x="370" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="402,-234 338,-234 338,-210 402,-210 402,-234"/>
+<text text-anchor="middle" x="370" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge57" class="edge">
-<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M322.59,-181.89C309.46,-184.81 296.46,-190.46 288,-201 217.84,-288.4 315.01,-1116.32 252,-1209 250,-1211.95 247.48,-1214.49 244.66,-1216.67"/>
-<polygon fill="#000000" stroke="#000000" points="242.76,-1213.73 236.06,-1221.93 246.41,-1219.7 242.76,-1213.73"/>
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M337.64,-221.59C320.21,-223.17 299.74,-228.39 288,-243 219.27,-328.55 313.73,-1139.27 252,-1230 249.99,-1232.95 247.48,-1235.48 244.66,-1237.67"/>
+<polygon fill="#000000" stroke="#000000" points="242.76,-1234.73 236.05,-1242.93 246.41,-1240.7 242.76,-1234.73"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~util_resize.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node58" class="node">
-<title>sourcefile~symba_fragmentation.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="437,-150 303,-150 303,-126 437,-126 437,-150"/>
-<text text-anchor="middle" x="370" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="409.5,-192 330.5,-192 330.5,-168 409.5,-168 409.5,-192"/>
+<text text-anchor="middle" x="370" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge58" class="edge">
-<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M302.96,-146.89C297.24,-149.94 292.09,-153.9 288,-159 214.99,-250.09 317.56,-1112.41 252,-1209 250,-1211.95 247.48,-1214.49 244.66,-1216.67"/>
-<polygon fill="#000000" stroke="#000000" points="242.76,-1213.73 236.06,-1221.94 246.42,-1219.7 242.76,-1213.73"/>
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M330.19,-180.47C314.66,-182.8 298.09,-188.42 288,-201 216.42,-290.24 316.28,-1135.36 252,-1230 250,-1232.95 247.48,-1235.49 244.66,-1237.67"/>
+<polygon fill="#000000" stroke="#000000" points="242.76,-1234.73 236.06,-1242.93 246.42,-1240.7 242.76,-1234.73"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node59" class="node">
-<title>sourcefile~util_version.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="412.5,-108 327.5,-108 327.5,-84 412.5,-84 412.5,-108"/>
-<text text-anchor="middle" x="370" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-150 336,-150 336,-126 404,-126 404,-150"/>
+<text text-anchor="middle" x="370" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge59" class="edge">
-<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M327.23,-96.94C312.58,-99.53 297.44,-105.21 288,-117 212.13,-211.77 320.11,-1108.51 252,-1209 250,-1211.95 247.49,-1214.49 244.67,-1216.67"/>
-<polygon fill="#000000" stroke="#000000" points="242.77,-1213.73 236.07,-1221.94 246.42,-1219.7 242.77,-1213.73"/>
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.99,-137.74C318.93,-139.49 299.35,-144.83 288,-159 213.56,-251.93 318.84,-1131.46 252,-1230 250,-1232.95 247.49,-1235.49 244.66,-1237.67"/>
+<polygon fill="#000000" stroke="#000000" points="242.77,-1234.73 236.07,-1242.94 246.42,-1240.7 242.77,-1234.73"/>
 </g>
-<!-- sourcefile~setup.f90 -->
+<!-- sourcefile~symba_encounter_check.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node60" class="node">
-<title>sourcefile~setup.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="398.5,-66 341.5,-66 341.5,-42 398.5,-42 398.5,-66"/>
-<text text-anchor="middle" x="370" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="445,-108 295,-108 295,-84 445,-84 445,-108"/>
+<text text-anchor="middle" x="370" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge60" class="edge">
-<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M341.22,-53.29C323.08,-54.46 300.52,-59.34 288,-75 209.28,-173.46 322.67,-1104.61 252,-1209 250,-1211.95 247.49,-1214.49 244.67,-1216.68"/>
-<polygon fill="#000000" stroke="#000000" points="242.77,-1213.74 236.07,-1221.94 246.43,-1219.7 242.77,-1213.74"/>
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M297.8,-108C294.13,-110.51 290.81,-113.48 288,-117 210.71,-213.62 321.39,-1127.56 252,-1230 250,-1232.95 247.49,-1235.49 244.67,-1237.68"/>
+<polygon fill="#000000" stroke="#000000" points="242.77,-1234.73 236.07,-1242.94 246.43,-1240.7 242.77,-1234.73"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node61" class="node">
-<title>sourcefile~rmvs_encounter_check.f90</title>
-<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="441,-24 299,-24 299,0 441,0 441,-24"/>
-<text text-anchor="middle" x="370" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397,-66 343,-66 343,-42 397,-42 397,-66"/>
+<text text-anchor="middle" x="370" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge13" class="edge">
-<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.86,-23.28C294.77,-25.94 291.08,-29.14 288,-33 206.42,-135.15 325.22,-1100.7 252,-1209 250,-1211.95 247.49,-1214.49 244.67,-1216.68"/>
-<polygon fill="#000000" stroke="#000000" points="242.78,-1213.74 236.08,-1221.95 246.43,-1219.71 242.78,-1213.74"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge61" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M342.78,-53.2C324.39,-54.19 300.88,-58.88 288,-75 207.85,-175.31 323.94,-1123.65 252,-1230 250,-1232.95 247.49,-1235.49 244.67,-1237.68"/>
+<polygon fill="#000000" stroke="#000000" points="242.77,-1234.74 236.08,-1242.95 246.43,-1240.71 242.77,-1234.74"/>
+</g>
+<!-- sourcefile~util_sort.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_node62" class="node">
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~swiftest_operators.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="404,-24 336,-24 336,0 404,0 404,-24"/>
+<text text-anchor="middle" x="370" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~swiftest_operators.f90~~AfferentGraph_edge62" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M335.98,-11.72C318.91,-13.47 299.33,-18.81 288,-33 205,-137 326.5,-1119.75 252,-1230 250,-1232.95 247.49,-1235.49 244.68,-1237.68"/>
+<polygon fill="#000000" stroke="#000000" points="242.78,-1234.74 236.08,-1242.95 246.44,-1240.71 242.78,-1234.74"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/symba_classes.f90.html b/docs/sourcefile/symba_classes.f90.html
index b5a18bcaf..a313cc595 100644
--- a/docs/sourcefile/symba_classes.f90.html
+++ b/docs/sourcefile/symba_classes.f90.html
@@ -134,7 +134,7 @@ <h1>symba_classes.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 4.3% of total for source files.">578 statements</a>
+    title=" 4.2% of total for source files.">566 statements</a>
      </li> 
      
      
@@ -226,134 +226,134 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~symba_classes.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilesymba_classesf90EfferentGraph" width="641pt" height="143pt"
- viewBox="0.00 0.00 641.00 142.55" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~symba_classes.f90~~EfferentGraph" class="graph" transform="scale(0.98 0.98) rotate(0) translate(4 142.11)">
+<svg id="sourcefilesymba_classesf90EfferentGraph" width="641pt" height="111pt"
+ viewBox="0.00 0.00 641.00 111.27" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph" class="graph" transform="scale(0.98 0.98) rotate(0) translate(4 110.05)">
 <title>sourcefile~~symba_classes.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-142.11 653,-142.11 653,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-110.05 653,-110.05 653,4 -4,4"/>
 <!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_classes.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~symba_classes.f90</title>
-<polygon fill="none" stroke="black" points="649,-84 546,-84 546,-60 649,-60 649,-84"/>
-<text text-anchor="middle" x="597.5" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_classes.f90</text>
+<polygon fill="none" stroke="black" points="649,-76.61 546,-76.61 546,-52.61 649,-52.61 649,-76.61"/>
+<text text-anchor="middle" x="597.5" y="-62.21" font-family="Helvetica,sans-Serif" font-size="10.50">symba_classes.f90</text>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_classes.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="249,-76.61 142,-76.61 142,-52.61 249,-52.61 249,-76.61"/>
+<text text-anchor="middle" x="195.5" y="-62.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M555.19,-76.69C503.51,-90.46 412.14,-110.37 333,-104.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331,-104.61C296.31,-103.41 258.56,-91.15 231.91,-80.52"/>
+<polygon fill="#000000" stroke="#000000" points="233.2,-77.26 222.62,-76.7 230.54,-83.74 233.2,-77.26"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="510,-104 415,-104 415,-80 510,-80 510,-104"/>
-<text text-anchor="middle" x="462.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<g id="a_sourcefile~~symba_classes.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="510,-34.61 415,-34.61 415,-10.61 510,-10.61 510,-34.61"/>
+<text text-anchor="middle" x="462.5" y="-20.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge1" class="edge">
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.84,-79.62C537.4,-80.89 528.59,-82.21 520.02,-83.5"/>
-<polygon fill="#000000" stroke="#000000" points="519.46,-80.05 510.09,-84.99 520.5,-86.97 519.46,-80.05"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M558.39,-52.57C543.78,-47.96 526.92,-42.63 511.5,-37.77"/>
+<polygon fill="#000000" stroke="#000000" points="512.21,-34.32 501.62,-34.64 510.1,-40.99 512.21,-34.32"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_classes.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_node4" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-65 0,-65 0,-41 106,-41 106,-65"/>
-<text text-anchor="middle" x="53" y="-50.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~symba_classes.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-76.61 0,-76.61 0,-52.61 106,-52.61 106,-76.61"/>
+<text text-anchor="middle" x="53" y="-62.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge4" class="edge">
 <title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M575.94,-84.17C558.89,-93.67 533.67,-106.33 510,-113 433.85,-134.47 411.89,-125.99 333,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331,-104.61C246.63,-101.7 225.25,-99.66 142,-85.61 131.33,-83.81 120.03,-81.45 109.21,-78.98"/>
+<polygon fill="#000000" stroke="#000000" points="109.97,-75.56 99.44,-76.68 108.37,-82.37 109.97,-75.56"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~EfferentGraph_node4" class="node">
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="509.5,-24 415.5,-24 415.5,0 509.5,0 509.5,-24"/>
-<text text-anchor="middle" x="462.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~symba_classes.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="509.5,-76.61 415.5,-76.61 415.5,-52.61 509.5,-52.61 509.5,-76.61"/>
+<text text-anchor="middle" x="462.5" y="-62.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge3" class="edge">
 <title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M569.59,-59.86C549.49,-50.79 521.8,-38.3 499.75,-28.35"/>
-<polygon fill="#000000" stroke="#000000" points="500.93,-25.05 490.37,-24.12 498.05,-31.43 500.93,-25.05"/>
-</g>
-<!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="249,-65 142,-65 142,-41 249,-41 249,-65"/>
-<text text-anchor="middle" x="195.5" y="-50.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
-</a>
-</g>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.84,-64.61C537.29,-64.61 528.37,-64.61 519.69,-64.61"/>
+<polygon fill="#000000" stroke="#000000" points="519.65,-61.11 509.65,-64.61 519.65,-68.11 519.65,-61.11"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.84,-69.59C473.01,-66.13 338.79,-59.76 259.61,-56"/>
-<polygon fill="#000000" stroke="#000000" points="259.44,-52.49 249.29,-55.51 259.11,-59.48 259.44,-52.49"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.78,-64.61C133.48,-64.61 124.83,-64.61 116.33,-64.61"/>
+<polygon fill="#000000" stroke="#000000" points="116.08,-61.11 106.08,-64.61 116.08,-68.11 116.08,-61.11"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge5" class="edge">
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M435.12,-104.07C409.62,-114.8 369.58,-129.21 333,-132"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331,-132C271.39,-136.54 255.31,-142.72 196.5,-132"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M417.72,-10.59C405.3,-7.71 391.71,-5.05 379,-3.61 337.49,1.11 326.49,1.25 285,-3.61 244.85,-8.31 236.55,-19.09 196.5,-24.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M194.5,-24.61C160.17,-28.57 122.58,-39.65 94.92,-49.14"/>
+<polygon fill="#000000" stroke="#000000" points="93.49,-45.94 85.21,-52.55 95.81,-52.54 93.49,-45.94"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_classes.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~symba_classes.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="379,-104 285,-104 285,-80 379,-80 379,-104"/>
-<text text-anchor="middle" x="332" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="379,-36.61 285,-36.61 285,-12.61 379,-12.61 379,-36.61"/>
+<text text-anchor="middle" x="332" y="-22.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge6" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.75,-92C406.48,-92 397.8,-92 389.3,-92"/>
-<polygon fill="#000000" stroke="#000000" points="389.08,-88.5 379.08,-92 389.08,-95.5 389.08,-88.5"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331,-13C246.82,-19.46 225.25,-17.95 142,-32 131.33,-33.8 120.03,-36.15 109.21,-38.63"/>
-<polygon fill="#000000" stroke="#000000" points="108.37,-35.23 99.44,-40.93 109.97,-42.05 108.37,-35.23"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.3,-10.31C390.79,-9.93 360.19,-10.28 333,-13"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M414.75,-23.34C406.48,-23.46 397.8,-23.6 389.3,-23.73"/>
+<polygon fill="#000000" stroke="#000000" points="389.02,-20.23 379.08,-23.89 389.13,-27.23 389.02,-20.23"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331,-13C297.18,-15.59 260.37,-27.2 233.82,-37.24"/>
-<polygon fill="#000000" stroke="#000000" points="232.23,-34.11 224.18,-40.99 234.77,-40.63 232.23,-34.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331,-64.61C307.67,-62.91 282.01,-62.54 259.41,-62.72"/>
+<polygon fill="#000000" stroke="#000000" points="259.22,-59.22 249.26,-62.84 259.3,-66.22 259.22,-59.22"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M415.35,-66.23C390.85,-66.68 360.26,-66.59 333,-64.61"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M331,-64.61C268.8,-60.07 258.28,-16.1 196.5,-24.61"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.98,-24.15C420.35,-37.62 385.28,-59.45 360.78,-74.7"/>
-<polygon fill="#000000" stroke="#000000" points="358.92,-71.74 352.28,-80 362.62,-77.68 358.92,-71.74"/>
-</g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.78,-53C133.48,-53 124.83,-53 116.33,-53"/>
-<polygon fill="#000000" stroke="#000000" points="116.08,-49.5 106.08,-53 116.08,-56.5 116.08,-49.5"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M422.95,-52.61C409.98,-48.57 395.34,-44.01 381.69,-39.76"/>
+<polygon fill="#000000" stroke="#000000" points="382.56,-36.37 371.97,-36.74 380.48,-43.05 382.56,-36.37"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.28,-104.02C285.35,-118.39 238.2,-139.6 196.5,-132"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M194.5,-132C148.25,-123.57 102.19,-92.18 75.99,-71.59"/>
-<polygon fill="#000000" stroke="#000000" points="77.88,-68.62 67.9,-65.08 73.49,-74.08 77.88,-68.62"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.65,-36.61C276.94,-40.68 261.45,-45.29 247.05,-49.57"/>
+<polygon fill="#000000" stroke="#000000" points="245.88,-46.27 237.29,-52.48 247.87,-52.98 245.88,-46.27"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_classes.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.55,-79.98C276.38,-76.16 261.66,-71.89 247.88,-67.9"/>
-<polygon fill="#000000" stroke="#000000" points="248.63,-64.47 238.05,-65.05 246.68,-71.19 248.63,-64.47"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.72,-21.5C258.68,-20.53 225.65,-20.59 196.5,-24.61"/>
 </g>
 </g>
 </svg>
@@ -406,953 +406,968 @@ <h3 class="panel-title">Files dependent on this one</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~symba_classes.f90~~AfferentGraph Pages: 1 -->
-<svg id="sourcefilesymba_classesf90AfferentGraph" width="413pt" height="2426pt"
- viewBox="0.00 0.00 413.00 2426.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2422)">
+<svg id="sourcefilesymba_classesf90AfferentGraph" width="413pt" height="2468pt"
+ viewBox="0.00 0.00 413.00 2468.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 2464)">
 <title>sourcefile~~symba_classes.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2422 409,-2422 409,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 409,-2464 409,4 -4,4"/>
 <!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node1" class="node">
 <title>sourcefile~symba_classes.f90</title>
-<polygon fill="none" stroke="black" points="103,-1725 0,-1725 0,-1701 103,-1701 103,-1725"/>
-<text text-anchor="middle" x="51.5" y="-1710.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_classes.f90</text>
+<polygon fill="none" stroke="black" points="103,-1746 0,-1746 0,-1722 103,-1722 103,-1746"/>
+<text text-anchor="middle" x="51.5" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_classes.f90</text>
 </g>
-<!-- sourcefile~symba_collision.f90 -->
+<!-- sourcefile~symba_kick.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node2" class="node">
-<title>sourcefile~symba_collision.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="376,-2418 270,-2418 270,-2394 376,-2394 376,-2418"/>
-<text text-anchor="middle" x="323" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-2460 280,-2460 280,-2436 366,-2436 366,-2460"/>
+<text text-anchor="middle" x="323" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge11" class="edge">
-<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.65,-2400C259.26,-2396.83 249.08,-2392.09 241,-2385 180.44,-2331.89 236.23,-2266.9 173,-2217"/>
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge1" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.75,-2444.6C266.08,-2441.66 251.7,-2436.39 241,-2427 180.44,-2373.89 236.01,-2309.18 173,-2259"/>
 </g>
 <!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node6" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="205,-1242 139,-1242 139,-1218 205,-1218 205,-1242"/>
-<text text-anchor="middle" x="172" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge23" class="edge">
-<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.83,-2402.48C258.79,-2399.26 248.29,-2393.87 241,-2385 203.63,-2339.54 177.69,-1409.13 173.57,-1252.34"/>
-<polygon fill="#000000" stroke="#000000" points="177.06,-1251.95 173.31,-1242.05 170.07,-1252.14 177.06,-1251.95"/>
-</g>
-<!-- sourcefile~symba_io.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node3" class="node">
-<title>sourcefile~symba_io.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361,-2376 285,-2376 285,-2352 361,-2352 361,-2376"/>
-<text text-anchor="middle" x="323" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="205,-1263 139,-1263 139,-1239 205,-1239 205,-1263"/>
+<text text-anchor="middle" x="172" y="-1248.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge1" class="edge">
-<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.88,-2360.84C270,-2358.03 253.46,-2352.77 241,-2343 190.92,-2303.74 222.95,-2256.42 173,-2217"/>
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge46" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.96,-2446.86C265.46,-2444.22 250.5,-2438.56 241,-2427 202.94,-2380.65 177.53,-1431.49 173.55,-1273.27"/>
+<polygon fill="#000000" stroke="#000000" points="177.05,-1273.18 173.3,-1263.27 170.05,-1273.35 177.05,-1273.18"/>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge24" class="edge">
-<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.6,-2363.58C268.74,-2361.35 251.53,-2355.78 241,-2343 169.17,-2255.81 171.8,-1402.31 172.82,-1252.42"/>
-<polygon fill="#000000" stroke="#000000" points="176.32,-1252.19 172.89,-1242.16 169.32,-1252.13 176.32,-1252.19"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge2" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M167.95,-1263.42C152.06,-1328.21 78.62,-1627.55 57.93,-1711.85"/>
+<polygon fill="#000000" stroke="#000000" points="54.51,-1711.11 55.53,-1721.66 61.31,-1712.78 54.51,-1711.11"/>
 </g>
-<!-- sourcefile~symba_kick.f90 -->
+<!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node4" class="node">
-<title>sourcefile~symba_kick.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-2334 280,-2334 280,-2310 366,-2310 366,-2334"/>
-<text text-anchor="middle" x="323" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="376,-2418 270,-2418 270,-2394 376,-2394 376,-2418"/>
+<text text-anchor="middle" x="323" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge2" class="edge">
-<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.95,-2316.39C266.75,-2313.29 252.6,-2308.47 241,-2301 200.61,-2275 210.71,-2246.75 173,-2217"/>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge3" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.8,-2399.18C259.52,-2396.06 249.35,-2391.54 241,-2385 190.92,-2345.74 222.78,-2298.65 173,-2259"/>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge26" class="edge">
-<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280,-2320.83C265.5,-2318.19 250.53,-2312.54 241,-2301 171.91,-2217.34 172.25,-1399.17 172.87,-1252.47"/>
-<polygon fill="#000000" stroke="#000000" points="176.38,-1252.07 172.92,-1242.05 169.38,-1252.03 176.38,-1252.07"/>
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge60" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M269.84,-2402.47C258.8,-2399.25 248.29,-2393.86 241,-2385 167.8,-2296.03 171.57,-1424.74 172.79,-1273.36"/>
+<polygon fill="#000000" stroke="#000000" points="176.29,-1273.05 172.88,-1263.02 169.29,-1272.99 176.29,-1273.05"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90 -->
+<!-- sourcefile~symba_discard.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node5" class="node">
-<title>sourcefile~symba_encounter_check.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="398,-2292 248,-2292 248,-2268 398,-2268 398,-2292"/>
-<text text-anchor="middle" x="323" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="374.5,-2376 271.5,-2376 271.5,-2352 374.5,-2352 374.5,-2376"/>
+<text text-anchor="middle" x="323" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge3" class="edge">
-<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M266.36,-2267.94C257.72,-2265.39 249.02,-2262.42 241,-2259 208.33,-2245.05 200.89,-2239 173,-2217"/>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge4" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M271.1,-2356.07C260.62,-2353.03 250.04,-2348.82 241,-2343 200.61,-2317 210.57,-2288.93 173,-2259"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge53" class="edge">
-<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M250.93,-2267.89C247.24,-2265.41 243.87,-2262.47 241,-2259 174.65,-2178.86 172.73,-1395.84 172.94,-1252.48"/>
-<polygon fill="#000000" stroke="#000000" points="176.44,-1252.27 172.96,-1242.27 169.44,-1252.26 176.44,-1252.27"/>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge52" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M271.11,-2360.82C259.61,-2357.65 248.58,-2352.19 241,-2343 170.55,-2257.58 172.02,-1421.81 172.85,-1273.46"/>
+<polygon fill="#000000" stroke="#000000" points="176.35,-1273.31 172.91,-1263.29 169.35,-1273.27 176.35,-1273.31"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~symba_io.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node6" class="node">
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361,-2334 285,-2334 285,-2310 361,-2310 361,-2334"/>
+<text text-anchor="middle" x="323" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M167.95,-1242.42C152.06,-1307.21 78.62,-1606.55 57.93,-1690.85"/>
-<polygon fill="#000000" stroke="#000000" points="54.51,-1690.11 55.53,-1700.66 61.31,-1691.78 54.51,-1690.11"/>
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.94,-2314.86C270.87,-2311.51 254.9,-2306.93 241,-2301 208.33,-2287.05 200.79,-2281.13 173,-2259"/>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge62" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.62,-2321.57C268.77,-2319.32 251.55,-2313.76 241,-2301 173.28,-2219.1 172.49,-1418.54 172.9,-1273.48"/>
+<polygon fill="#000000" stroke="#000000" points="176.41,-1273.17 172.94,-1263.16 169.41,-1273.15 176.41,-1273.17"/>
+</g>
+<!-- sourcefile~symba_fragmentation.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node7" class="node">
-<title>sourcefile~symba_discard.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="374.5,-2250 271.5,-2250 271.5,-2226 374.5,-2226 374.5,-2250"/>
-<text text-anchor="middle" x="323" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
+<title>sourcefile~symba_fragmentation.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="390,-2292 256,-2292 256,-2268 390,-2268 390,-2292"/>
+<text text-anchor="middle" x="323" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge6" class="edge">
-<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M271.46,-2243.01C240.02,-2243.42 200.48,-2238.68 173,-2217"/>
+<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.7,-2284.86C227.55,-2283.58 195.99,-2277.31 173,-2259"/>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge58" class="edge">
-<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M271.15,-2234.79C259.66,-2231.61 248.61,-2226.17 241,-2217 177.37,-2140.36 173.22,-1392.16 173,-1252.42"/>
-<polygon fill="#000000" stroke="#000000" points="176.5,-1252.1 172.99,-1242.1 169.5,-1252.11 176.5,-1252.1"/>
+<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.75,-2270.77C250.15,-2267.77 245.08,-2263.92 241,-2259 175.94,-2180.53 172.97,-1413.46 172.97,-1273.02"/>
+<polygon fill="#000000" stroke="#000000" points="176.47,-1273.02 172.97,-1263.02 169.47,-1273.01 176.47,-1273.02"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
+<!-- sourcefile~symba_setup.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node8" class="node">
-<title>sourcefile~symba_util.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="364,-2208 282,-2208 282,-2184 364,-2184 364,-2208"/>
-<text text-anchor="middle" x="323" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="370,-2250 276,-2250 276,-2226 370,-2226 370,-2250"/>
+<text text-anchor="middle" x="323" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge7" class="edge">
-<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.73,-2204.68C240.55,-2213.09 181.43,-2223.66 173,-2217"/>
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.98,-2247.86C235.24,-2256.04 181.02,-2265.39 173,-2259"/>
 </g>
-<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge19" class="edge">
-<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.73,-2195.08C266.73,-2192.57 250.95,-2186.94 241,-2175 180.08,-2101.85 173.73,-1388.27 173.08,-1252.31"/>
-<polygon fill="#000000" stroke="#000000" points="176.58,-1252.23 173.03,-1242.24 169.58,-1252.26 176.58,-1252.23"/>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge28" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.81,-2235.93C262.69,-2233 249.64,-2227.39 241,-2217 178.72,-2142.11 173.47,-1411.25 173.04,-1273.37"/>
+<polygon fill="#000000" stroke="#000000" points="176.54,-1273.17 173.01,-1263.18 169.54,-1273.19 176.54,-1273.17"/>
 </g>
-<!-- sourcefile~symba_setup.f90 -->
+<!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node9" class="node">
-<title>sourcefile~symba_setup.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="370,-2166 276,-2166 276,-2142 370,-2142 370,-2166"/>
-<text text-anchor="middle" x="323" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367,-2208 279,-2208 279,-2184 367,-2184 367,-2208"/>
+<text text-anchor="middle" x="323" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge8" class="edge">
-<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.79,-2163.43C264.2,-2166.49 251.96,-2170.32 241,-2175 208.33,-2188.95 200.89,-2239 173,-2217"/>
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M278.74,-2204.67C266.3,-2207.84 252.89,-2211.92 241,-2217 208.33,-2230.95 200.79,-2281.13 173,-2259"/>
 </g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge65" class="edge">
-<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.84,-2151.91C262.72,-2148.97 249.66,-2143.37 241,-2133 182.77,-2063.33 174.26,-1384.05 173.15,-1252.13"/>
-<polygon fill="#000000" stroke="#000000" points="176.65,-1251.99 173.07,-1242.02 169.65,-1252.05 176.65,-1251.99"/>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge55" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M278.79,-2194.54C264.7,-2191.8 250.31,-2186.16 241,-2175 181.49,-2103.67 174.01,-1408.62 173.12,-1273.64"/>
+<polygon fill="#000000" stroke="#000000" points="176.61,-1273.28 173.05,-1263.3 169.61,-1273.32 176.61,-1273.28"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~symba_encounter_check.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node10" class="node">
-<title>sourcefile~symba_fragmentation.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="390,-2124 256,-2124 256,-2100 390,-2100 390,-2124"/>
-<text text-anchor="middle" x="323" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="398,-2166 248,-2166 248,-2142 398,-2142 398,-2166"/>
+<text text-anchor="middle" x="323" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge9" class="edge">
-<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.83,-2124.07C252.56,-2126.52 246.5,-2129.46 241,-2133 200.61,-2159 210.71,-2246.75 173,-2217"/>
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M258.83,-2166.07C252.56,-2168.52 246.5,-2171.46 241,-2175 200.61,-2201 210.57,-2288.93 173,-2259"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge66" class="edge">
-<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M255.81,-2102.72C250.2,-2099.73 245.11,-2095.9 241,-2091 185.52,-2024.86 174.83,-1380.92 173.24,-1252.29"/>
-<polygon fill="#000000" stroke="#000000" points="176.74,-1252.04 173.12,-1242.08 169.74,-1252.12 176.74,-1252.04"/>
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge68" class="edge">
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M250.98,-2141.85C247.27,-2139.38 243.89,-2136.45 241,-2133 184.18,-2065.13 174.55,-1404.2 173.2,-1273.42"/>
+<polygon fill="#000000" stroke="#000000" points="176.69,-1273.02 173.1,-1263.06 169.69,-1273.09 176.69,-1273.02"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
+<!-- sourcefile~symba_util.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node11" class="node">
-<title>sourcefile~symba_step.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="367,-2082 279,-2082 279,-2058 367,-2058 367,-2082"/>
-<text text-anchor="middle" x="323" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="364,-2124 282,-2124 282,-2100 364,-2100 364,-2124"/>
+<text text-anchor="middle" x="323" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge10" class="edge">
-<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M278.65,-2074.46C265.52,-2077.51 251.75,-2082.58 241,-2091 190.92,-2130.26 222.95,-2256.42 173,-2217"/>
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.99,-2115.73C267.89,-2118.67 252.66,-2123.86 241,-2133 190.92,-2172.26 222.78,-2298.65 173,-2259"/>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge33" class="edge">
-<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M278.85,-2068.49C264.77,-2065.75 250.36,-2060.11 241,-2049 188.25,-1986.37 175.42,-1377.38 173.34,-1252.36"/>
-<polygon fill="#000000" stroke="#000000" points="176.83,-1252.04 173.17,-1242.1 169.83,-1252.16 176.83,-1252.04"/>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge42" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M281.79,-2111.03C266.79,-2108.52 251,-2102.9 241,-2091 186.86,-2026.58 175.11,-1399.57 173.29,-1273.15"/>
+<polygon fill="#000000" stroke="#000000" points="176.78,-1273.05 173.15,-1263.1 169.79,-1273.15 176.78,-1273.05"/>
 </g>
 <!-- sourcefile~symba_drift.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node12" class="node">
 <title>sourcefile~symba_drift.f90</title>
 <g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-2040 280,-2040 280,-2016 366,-2016 366,-2040"/>
-<text text-anchor="middle" x="323" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-2082 280,-2082 280,-2058 366,-2058 366,-2082"/>
+<text text-anchor="middle" x="323" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge4" class="edge">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge11" class="edge">
 <title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M171,-2217C93.01,-2155.46 61.35,-1824.43 54.16,-1735.18"/>
-<polygon fill="#000000" stroke="#000000" points="57.64,-1734.79 53.37,-1725.1 50.66,-1735.34 57.64,-1734.79"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.75,-2031.4C266.08,-2034.34 251.7,-2039.61 241,-2049 180.44,-2102.11 236.23,-2266.9 173,-2217"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M171,-2259C89.96,-2194.46 60.4,-1847.81 53.94,-1756.21"/>
+<polygon fill="#000000" stroke="#000000" points="57.43,-1755.86 53.25,-1746.12 50.44,-1756.33 57.43,-1755.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.75,-2073.4C266.08,-2076.34 251.7,-2081.61 241,-2091 180.44,-2144.11 236.01,-2309.18 173,-2259"/>
 </g>
 <!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge51" class="edge">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge30" class="edge">
 <title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.72,-2026.63C265.37,-2023.94 250.57,-2018.31 241,-2007 190.96,-1947.85 176.04,-1373.44 173.44,-1252.34"/>
-<polygon fill="#000000" stroke="#000000" points="176.94,-1252 173.23,-1242.07 169.94,-1252.14 176.94,-1252"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.71,-2068.64C265.36,-2065.96 250.56,-2060.32 241,-2049 189.58,-1988.08 175.72,-1395.86 173.39,-1273.18"/>
+<polygon fill="#000000" stroke="#000000" points="176.88,-1273.03 173.2,-1263.09 169.88,-1273.15 176.88,-1273.03"/>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~eucl.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node13" class="node">
-<title>sourcefile~obl.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-738 296,-738 296,-714 350,-714 350,-738"/>
-<text text-anchor="middle" x="323" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
+<title>sourcefile~eucl.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-780 296,-780 296,-756 350,-756 350,-780"/>
+<text text-anchor="middle" x="323" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge12" class="edge">
-<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.9,-725.65C277.82,-726.9 254.64,-731.72 241,-747 179.09,-816.39 173.36,-1122.25 172.98,-1207.74"/>
-<polygon fill="#000000" stroke="#000000" points="169.48,-1207.87 172.96,-1217.88 176.48,-1207.88 169.48,-1207.87"/>
+<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.93,-767.68C277.87,-768.94 254.68,-773.76 241,-789 181.71,-855.04 174.1,-1146.03 173.13,-1228.9"/>
+<polygon fill="#000000" stroke="#000000" points="169.63,-1228.94 173.04,-1238.97 176.63,-1229.01 169.63,-1228.94"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
+<!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node14" class="node">
-<title>sourcefile~util_sort.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-696 289,-696 289,-672 357,-672 357,-696"/>
-<text text-anchor="middle" x="323" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="358.5,-738 287.5,-738 287.5,-714 358.5,-714 358.5,-738"/>
+<text text-anchor="middle" x="323" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge13" class="edge">
-<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.7,-684.27C271.98,-686.23 252.82,-691.6 241,-705 173.79,-781.17 171.95,-1117.22 172.7,-1207.57"/>
-<polygon fill="#000000" stroke="#000000" points="169.2,-1207.81 172.8,-1217.77 176.2,-1207.74 169.2,-1207.81"/>
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.09,-726.49C270.78,-728.62 252.47,-734.07 241,-747 176.45,-819.77 172.64,-1140.65 172.83,-1228.62"/>
+<polygon fill="#000000" stroke="#000000" points="169.33,-1228.83 172.88,-1238.81 176.33,-1228.8 169.33,-1228.83"/>
 </g>
-<!-- sourcefile~whm_setup.f90 -->
+<!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node15" class="node">
-<title>sourcefile~whm_setup.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365.5,-654 280.5,-654 280.5,-630 365.5,-630 365.5,-654"/>
-<text text-anchor="middle" x="323" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="359.5,-696 286.5,-696 286.5,-672 359.5,-672 359.5,-696"/>
+<text text-anchor="middle" x="323" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge14" class="edge">
-<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.34,-643.46C265.88,-646.13 250.85,-651.73 241,-663 204.45,-704.83 179.78,-1107.97 174.2,-1207.75"/>
-<polygon fill="#000000" stroke="#000000" points="170.7,-1207.72 173.64,-1217.89 177.69,-1208.1 170.7,-1207.72"/>
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.21,-684.55C270.1,-686.74 252.21,-692.23 241,-705 171.12,-784.59 171.28,-1135.97 172.57,-1228.57"/>
+<polygon fill="#000000" stroke="#000000" points="169.08,-1228.83 172.74,-1238.77 176.08,-1228.71 169.08,-1228.83"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node16" class="node">
-<title>sourcefile~whm_coord.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-612 280,-612 280,-588 366,-588 366,-612"/>
-<text text-anchor="middle" x="323" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-654 241,-654 241,-630 405,-630 405,-654"/>
+<text text-anchor="middle" x="323" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge15" class="edge">
-<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.87,-601.5C265.54,-604.19 250.71,-609.8 241,-621 201.75,-666.28 178.92,-1103.52 174.01,-1207.77"/>
-<polygon fill="#000000" stroke="#000000" points="170.51,-1207.65 173.54,-1217.8 177.5,-1207.97 170.51,-1207.65"/>
+<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M251.49,-654.04C247.61,-656.53 244.05,-659.49 241,-663 203.08,-706.57 179.32,-1127.11 174.09,-1228.9"/>
+<polygon fill="#000000" stroke="#000000" points="170.59,-1228.8 173.58,-1238.97 177.58,-1229.16 170.59,-1228.8"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node17" class="node">
-<title>sourcefile~util_append.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-570 280,-570 280,-546 366,-546 366,-570"/>
-<text text-anchor="middle" x="323" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="370.5,-612 275.5,-612 275.5,-588 370.5,-588 370.5,-612"/>
+<text text-anchor="middle" x="323" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge16" class="edge">
-<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.82,-559.46C265.49,-562.15 250.67,-567.77 241,-579 199.08,-627.72 178.14,-1098.78 173.84,-1207.63"/>
-<polygon fill="#000000" stroke="#000000" points="170.34,-1207.67 173.45,-1217.79 177.33,-1207.94 170.34,-1207.67"/>
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.2,-602.46C262.37,-605.45 249.64,-610.99 241,-621 200.42,-668 178.53,-1122.11 173.92,-1228.69"/>
+<polygon fill="#000000" stroke="#000000" points="170.42,-1228.78 173.49,-1238.92 177.41,-1229.08 170.42,-1228.78"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node18" class="node">
-<title>sourcefile~helio_coord.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-528 280,-528 280,-504 366,-504 366,-528"/>
-<text text-anchor="middle" x="323" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-570 289,-570 289,-546 357,-546 357,-570"/>
+<text text-anchor="middle" x="323" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge17" class="edge">
-<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.78,-517.43C265.45,-520.12 250.63,-525.74 241,-537 196.37,-589.19 177.4,-1094.58 173.69,-1207.64"/>
-<polygon fill="#000000" stroke="#000000" points="170.19,-1207.76 173.37,-1217.86 177.18,-1207.98 170.19,-1207.76"/>
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.96,-558.09C272.1,-559.97 252.73,-565.33 241,-579 197.68,-629.5 177.73,-1118.63 173.75,-1228.96"/>
+<polygon fill="#000000" stroke="#000000" points="170.26,-1228.84 173.4,-1238.96 177.25,-1229.09 170.26,-1228.84"/>
 </g>
-<!-- sourcefile~gr.f90 -->
+<!-- sourcefile~util_exit.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node19" class="node">
-<title>sourcefile~gr.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-486 296,-486 296,-462 350,-462 350,-486"/>
-<text text-anchor="middle" x="323" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356.5,-528 289.5,-528 289.5,-504 356.5,-504 356.5,-528"/>
+<text text-anchor="middle" x="323" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge18" class="edge">
-<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.68,-473.46C277.49,-474.61 254.27,-479.4 241,-495 193.7,-550.62 176.72,-1089.76 173.57,-1207.4"/>
-<polygon fill="#000000" stroke="#000000" points="170.06,-1207.63 173.3,-1217.72 177.06,-1207.82 170.06,-1207.63"/>
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.33,-516.01C272.37,-517.85 252.78,-523.18 241,-537 195.02,-590.93 177.04,-1113.65 173.62,-1228.68"/>
+<polygon fill="#000000" stroke="#000000" points="170.12,-1228.69 173.33,-1238.79 177.12,-1228.89 170.12,-1228.69"/>
 </g>
-<!-- sourcefile~eucl.f90 -->
+<!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node20" class="node">
-<title>sourcefile~eucl.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-444 296,-444 296,-420 350,-420 350,-444"/>
-<text text-anchor="middle" x="323" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362.5,-486 283.5,-486 283.5,-462 362.5,-462 362.5,-486"/>
+<text text-anchor="middle" x="323" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge20" class="edge">
-<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.66,-431.44C277.46,-432.58 254.23,-437.36 241,-453 190.96,-512.15 176.04,-1086.56 173.44,-1207.66"/>
-<polygon fill="#000000" stroke="#000000" points="169.94,-1207.86 173.23,-1217.93 176.94,-1208 169.94,-1207.86"/>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge19" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M283.1,-474.81C267.75,-477.22 251.34,-482.81 241,-495 192.28,-552.44 176.35,-1110.25 173.5,-1228.89"/>
+<polygon fill="#000000" stroke="#000000" points="169.99,-1228.88 173.26,-1238.96 176.99,-1229.05 169.99,-1228.88"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~swiftest_driver.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node21" class="node">
-<title>sourcefile~util_copy.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="358.5,-402 287.5,-402 287.5,-378 358.5,-378 358.5,-402"/>
-<text text-anchor="middle" x="323" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-444 274,-444 274,-420 372,-420 372,-444"/>
+<text text-anchor="middle" x="323" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge22" class="edge">
-<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M287.22,-390.19C270.73,-392.22 252.23,-397.67 241,-411 188.25,-473.63 175.42,-1082.62 173.34,-1207.64"/>
-<polygon fill="#000000" stroke="#000000" points="169.83,-1207.84 173.17,-1217.9 176.83,-1207.96 169.83,-1207.84"/>
+<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge20" class="edge">
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.79,-434.64C261.39,-437.7 249.25,-443.23 241,-453 189.58,-513.92 175.72,-1106.14 173.39,-1228.82"/>
+<polygon fill="#000000" stroke="#000000" points="169.88,-1228.85 173.2,-1238.91 176.88,-1228.97 169.88,-1228.85"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~helio_coord.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node22" class="node">
-<title>sourcefile~helio_drift.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361.5,-360 284.5,-360 284.5,-336 361.5,-336 361.5,-360"/>
-<text text-anchor="middle" x="323" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
+<title>sourcefile~helio_coord.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-402 280,-402 280,-378 366,-378 366,-402"/>
+<text text-anchor="middle" x="323" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge25" class="edge">
-<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.29,-348.56C268.57,-350.86 251.55,-356.42 241,-369 185.52,-435.14 174.83,-1079.08 173.24,-1207.71"/>
-<polygon fill="#000000" stroke="#000000" points="169.74,-1207.88 173.12,-1217.92 176.74,-1207.96 169.74,-1207.88"/>
+<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge21" class="edge">
+<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.68,-391.34C265.33,-394.02 250.53,-399.66 241,-411 186.86,-475.42 175.11,-1102.43 173.29,-1228.85"/>
+<polygon fill="#000000" stroke="#000000" points="169.79,-1228.85 173.15,-1238.9 176.78,-1228.95 169.79,-1228.85"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node23" class="node">
-<title>sourcefile~rmvs_util.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="359.5,-318 286.5,-318 286.5,-294 359.5,-294 359.5,-318"/>
-<text text-anchor="middle" x="323" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-360 252,-360 252,-336 394,-336 394,-360"/>
+<text text-anchor="middle" x="323" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge27" class="edge">
-<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.35,-306.26C270.06,-308.36 251.99,-313.85 241,-327 182.77,-396.67 174.26,-1075.95 173.15,-1207.87"/>
-<polygon fill="#000000" stroke="#000000" points="169.65,-1207.95 173.07,-1217.98 176.65,-1208.01 169.65,-1207.95"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge26" class="edge">
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M251.7,-359.68C247.71,-362.25 244.08,-365.32 241,-369 184.18,-436.87 174.55,-1097.8 173.2,-1228.58"/>
+<polygon fill="#000000" stroke="#000000" points="169.69,-1228.91 173.1,-1238.94 176.69,-1228.98 169.69,-1228.91"/>
 </g>
 <!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node24" class="node">
 <title>sourcefile~tides_getacch_pl.f90</title>
 <g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="378.5,-276 267.5,-276 267.5,-252 378.5,-252 378.5,-276"/>
-<text text-anchor="middle" x="323" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="378.5,-318 267.5,-318 267.5,-294 378.5,-294 378.5,-318"/>
+<text text-anchor="middle" x="323" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge28" class="edge">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge23" class="edge">
 <title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M267.41,-268.36C257.29,-271.64 247.79,-276.85 241,-285 180.08,-358.15 173.73,-1071.73 173.08,-1207.69"/>
-<polygon fill="#000000" stroke="#000000" points="169.58,-1207.74 173.03,-1217.76 176.58,-1207.77 169.58,-1207.74"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M267.42,-310.37C257.3,-313.65 247.79,-318.86 241,-327 181.49,-398.33 174.01,-1093.38 173.12,-1228.36"/>
+<polygon fill="#000000" stroke="#000000" points="169.61,-1228.68 173.05,-1238.7 176.61,-1228.72 169.61,-1228.68"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~gr.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node25" class="node">
-<title>sourcefile~tides_spin_step.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="375.5,-234 270.5,-234 270.5,-210 375.5,-210 375.5,-234"/>
-<text text-anchor="middle" x="323" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-276 296,-276 296,-252 350,-252 350,-276"/>
+<text text-anchor="middle" x="323" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge29" class="edge">
-<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.31,-225.45C259.12,-228.65 248.42,-234.06 241,-243 177.37,-319.64 173.22,-1067.84 173,-1207.58"/>
-<polygon fill="#000000" stroke="#000000" points="169.5,-1207.89 172.99,-1217.9 176.5,-1207.9 169.5,-1207.89"/>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge24" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.96,-263.35C277.67,-264.41 254.19,-269.14 241,-285 178.72,-359.89 173.47,-1090.75 173.04,-1228.63"/>
+<polygon fill="#000000" stroke="#000000" points="169.54,-1228.81 173.01,-1238.82 176.54,-1228.83 169.54,-1228.81"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~fragmentation.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node26" class="node">
-<title>sourcefile~user_getacch.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="370.5,-192 275.5,-192 275.5,-168 370.5,-168 370.5,-192"/>
-<text text-anchor="middle" x="323" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
+<title>sourcefile~fragmentation.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="371.5,-234 274.5,-234 274.5,-210 371.5,-210 371.5,-234"/>
+<text text-anchor="middle" x="323" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge30" class="edge">
-<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.36,-182.14C262.38,-185.1 249.52,-190.71 241,-201 174.65,-281.14 172.73,-1064.16 172.94,-1207.52"/>
-<polygon fill="#000000" stroke="#000000" points="169.44,-1207.74 172.96,-1217.73 176.44,-1207.73 169.44,-1207.74"/>
+<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge25" class="edge">
+<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M274.1,-224.44C261.56,-227.48 249.25,-233.05 241,-243 175.94,-321.47 172.97,-1088.54 172.97,-1228.98"/>
+<polygon fill="#000000" stroke="#000000" points="169.47,-1228.99 172.97,-1238.98 176.47,-1228.98 169.47,-1228.99"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
+<!-- sourcefile~util_rescale.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node27" class="node">
-<title>sourcefile~whm_step.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362.5,-150 283.5,-150 283.5,-126 362.5,-126 362.5,-150"/>
-<text text-anchor="middle" x="323" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365.5,-192 280.5,-192 280.5,-168 365.5,-168 365.5,-192"/>
+<text text-anchor="middle" x="323" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge31" class="edge">
-<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M283.36,-138.61C267.86,-140.97 251.27,-146.57 241,-159 171.91,-242.66 172.25,-1060.83 172.87,-1207.53"/>
-<polygon fill="#000000" stroke="#000000" points="169.38,-1207.97 172.92,-1217.95 176.38,-1207.93 169.38,-1207.97"/>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge27" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.43,-181.1C265.8,-183.71 250.63,-189.36 241,-201 173.28,-282.9 172.49,-1083.46 172.9,-1228.52"/>
+<polygon fill="#000000" stroke="#000000" points="169.41,-1228.85 172.94,-1238.84 176.41,-1228.83 169.41,-1228.85"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
+<!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node28" class="node">
-<title>sourcefile~orbel.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350.5,-108 295.5,-108 295.5,-84 350.5,-84 350.5,-108"/>
-<text text-anchor="middle" x="323" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge32" class="edge">
-<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.14,-95.36C276.94,-96.49 253.93,-101.3 241,-117 169.17,-204.19 171.8,-1057.69 172.82,-1207.58"/>
-<polygon fill="#000000" stroke="#000000" points="169.32,-1207.87 172.89,-1217.84 176.32,-1207.81 169.32,-1207.87"/>
-</g>
-<!-- sourcefile~rmvs_discard.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node29" class="node">
-<title>sourcefile~rmvs_discard.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="370,-66 276,-66 276,-42 370,-42 370,-66"/>
-<text text-anchor="middle" x="323" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361.5,-150 284.5,-150 284.5,-126 361.5,-126 361.5,-150"/>
+<text text-anchor="middle" x="323" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge34" class="edge">
-<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.74,-56C262.61,-58.94 249.58,-64.56 241,-75 166.42,-165.74 171.36,-1054.83 172.77,-1207.69"/>
-<polygon fill="#000000" stroke="#000000" points="169.27,-1207.79 172.86,-1217.75 176.27,-1207.72 169.27,-1207.79"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge29" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.19,-138.48C268.45,-140.76 251.45,-146.34 241,-159 170.55,-244.42 172.02,-1080.19 172.85,-1228.54"/>
+<polygon fill="#000000" stroke="#000000" points="169.35,-1228.73 172.91,-1238.71 176.35,-1228.69 169.35,-1228.73"/>
 </g>
 <!-- sourcefile~whm_drift.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node30" class="node">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node29" class="node">
 <title>sourcefile~whm_drift.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361.5,-24 284.5,-24 284.5,0 361.5,0 361.5,-24"/>
-<text text-anchor="middle" x="323" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361.5,-108 284.5,-108 284.5,-84 361.5,-84 361.5,-108"/>
+<text text-anchor="middle" x="323" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge35" class="edge">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge31" class="edge">
 <title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.16,-12.46C268.41,-14.73 251.41,-20.31 241,-33 202.25,-80.25 177.37,-1048.3 173.52,-1207.83"/>
-<polygon fill="#000000" stroke="#000000" points="170.02,-1207.82 173.28,-1217.9 177.02,-1207.99 170.02,-1207.82"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.18,-96.47C268.43,-98.75 251.43,-104.32 241,-117 167.8,-205.97 171.57,-1077.26 172.79,-1228.64"/>
+<polygon fill="#000000" stroke="#000000" points="169.29,-1229.01 172.88,-1238.98 176.29,-1228.95 169.29,-1229.01"/>
 </g>
-<!-- sourcefile~util_valid.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node31" class="node">
-<title>sourcefile~util_valid.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="359,-1998 287,-1998 287,-1974 359,-1974 359,-1998"/>
-<text text-anchor="middle" x="323" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
+<!-- sourcefile~helio_kick.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node30" class="node">
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361.5,-66 284.5,-66 284.5,-42 361.5,-42 361.5,-66"/>
+<text text-anchor="middle" x="323" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge36" class="edge">
-<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.86,-1985.71C270.49,-1983.63 252.2,-1978.17 241,-1965 193.7,-1909.38 176.72,-1370.24 173.57,-1252.6"/>
-<polygon fill="#000000" stroke="#000000" points="177.06,-1252.18 173.3,-1242.28 170.06,-1252.37 177.06,-1252.18"/>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge32" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.16,-54.46C268.42,-56.73 251.42,-62.31 241,-75 202.94,-121.35 177.53,-1070.51 173.55,-1228.73"/>
+<polygon fill="#000000" stroke="#000000" points="170.05,-1228.65 173.3,-1238.73 177.05,-1228.82 170.05,-1228.65"/>
 </g>
 <!-- sourcefile~kick.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node32" class="node">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node31" class="node">
 <title>sourcefile~kick.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-1956 296,-1956 296,-1932 350,-1932 350,-1956"/>
-<text text-anchor="middle" x="323" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-24 296,-24 296,0 350,0 350,-24"/>
+<text text-anchor="middle" x="323" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge37" class="edge">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge33" class="edge">
 <title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.71,-1944.52C277.53,-1943.36 254.31,-1938.57 241,-1923 196.37,-1870.81 177.4,-1365.42 173.69,-1252.36"/>
-<polygon fill="#000000" stroke="#000000" points="177.18,-1252.02 173.37,-1242.14 170.19,-1252.24 177.18,-1252.02"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.9,-11.29C277.57,-12.33 254.07,-17.04 241,-33 201.59,-81.09 177.26,-1066.12 173.51,-1228.45"/>
+<polygon fill="#000000" stroke="#000000" points="170,-1228.61 173.27,-1238.69 177,-1228.77 170,-1228.61"/>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
+<!-- sourcefile~rmvs_discard.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node32" class="node">
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="370,-2040 276,-2040 276,-2016 370,-2016 370,-2040"/>
+<text text-anchor="middle" x="323" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge34" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M275.93,-2025.83C262.82,-2022.89 249.74,-2017.3 241,-2007 192.28,-1949.56 176.35,-1391.75 173.5,-1273.11"/>
+<polygon fill="#000000" stroke="#000000" points="176.99,-1272.95 173.26,-1263.04 169.99,-1273.12 176.99,-1272.95"/>
+</g>
+<!-- sourcefile~rmvs_setup.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node33" class="node">
-<title>sourcefile~helio_gr.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-1914 289,-1914 289,-1890 357,-1890 357,-1914"/>
-<text text-anchor="middle" x="323" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-1998 280,-1998 280,-1974 366,-1974 366,-1998"/>
+<text text-anchor="middle" x="323" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge38" class="edge">
-<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.97,-1901.9C272.12,-1900.01 252.75,-1894.65 241,-1881 199.08,-1832.28 178.14,-1361.22 173.84,-1252.37"/>
-<polygon fill="#000000" stroke="#000000" points="177.33,-1252.06 173.45,-1242.21 170.34,-1252.33 177.33,-1252.06"/>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge35" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.77,-1984.59C265.43,-1981.9 250.61,-1976.28 241,-1965 195.02,-1911.07 177.04,-1388.35 173.62,-1273.32"/>
+<polygon fill="#000000" stroke="#000000" points="177.12,-1273.11 173.33,-1263.21 170.12,-1273.31 177.12,-1273.11"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~whm_coord.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node34" class="node">
-<title>sourcefile~util_resize.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362.5,-1872 283.5,-1872 283.5,-1848 362.5,-1848 362.5,-1872"/>
-<text text-anchor="middle" x="323" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-1956 280,-1956 280,-1932 366,-1932 366,-1956"/>
+<text text-anchor="middle" x="323" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge39" class="edge">
-<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M283.23,-1859.08C267.89,-1856.65 251.47,-1851.08 241,-1839 201.75,-1793.72 178.92,-1356.48 174.01,-1252.23"/>
-<polygon fill="#000000" stroke="#000000" points="177.5,-1252.03 173.54,-1242.2 170.51,-1252.35 177.5,-1252.03"/>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge36" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.8,-1942.56C265.47,-1939.87 250.65,-1934.25 241,-1923 197.68,-1872.5 177.73,-1383.37 173.75,-1273.04"/>
+<polygon fill="#000000" stroke="#000000" points="177.25,-1272.91 173.4,-1263.04 170.26,-1273.16 177.25,-1272.91"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node35" class="node">
-<title>sourcefile~util_spill.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-1830 289,-1830 289,-1806 357,-1806 357,-1830"/>
-<text text-anchor="middle" x="323" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="360.5,-1914 285.5,-1914 285.5,-1890 360.5,-1890 360.5,-1914"/>
+<text text-anchor="middle" x="323" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge69" class="edge">
-<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.65,-1817.78C271.92,-1815.83 252.76,-1810.45 241,-1797 204.45,-1755.17 179.78,-1352.03 174.2,-1252.25"/>
-<polygon fill="#000000" stroke="#000000" points="177.69,-1251.9 173.64,-1242.11 170.7,-1252.28 177.69,-1251.9"/>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge37" class="edge">
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.29,-1901.41C269.37,-1899.17 251.92,-1893.64 241,-1881 200.42,-1834 178.53,-1379.89 173.92,-1273.31"/>
+<polygon fill="#000000" stroke="#000000" points="177.41,-1272.92 173.49,-1263.08 170.42,-1273.22 177.41,-1272.92"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~setup.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node36" class="node">
-<title>sourcefile~helio_step.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362.5,-1788 283.5,-1788 283.5,-1764 362.5,-1764 362.5,-1788"/>
-<text text-anchor="middle" x="323" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="351.5,-1872 294.5,-1872 294.5,-1848 351.5,-1848 351.5,-1872"/>
+<text text-anchor="middle" x="323" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge40" class="edge">
-<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M283.33,-1774.99C268.01,-1772.55 251.57,-1766.98 241,-1755 173.79,-1678.83 171.95,-1342.78 172.7,-1252.43"/>
-<polygon fill="#000000" stroke="#000000" points="176.2,-1252.26 172.8,-1242.23 169.2,-1252.19 176.2,-1252.26"/>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge38" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.23,-1860.34C276.34,-1858.97 254.07,-1854.01 241,-1839 203.08,-1795.43 179.32,-1374.89 174.09,-1273.1"/>
+<polygon fill="#000000" stroke="#000000" points="177.58,-1272.84 173.58,-1263.03 170.59,-1273.2 177.58,-1272.84"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~util_version.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node37" class="node">
-<title>sourcefile~util_get_energy_momentum.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-1746 241,-1746 241,-1722 405,-1722 405,-1746"/>
-<text text-anchor="middle" x="323" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365.5,-1830 280.5,-1830 280.5,-1806 365.5,-1806 365.5,-1830"/>
+<text text-anchor="middle" x="323" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge41" class="edge">
-<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M251.59,-1721.87C247.68,-1719.4 244.09,-1716.47 241,-1713 179.09,-1643.61 173.36,-1337.75 172.98,-1252.26"/>
-<polygon fill="#000000" stroke="#000000" points="176.48,-1252.12 172.96,-1242.12 169.48,-1252.13 176.48,-1252.12"/>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge39" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.36,-1816.51C265.91,-1813.84 250.87,-1808.24 241,-1797 171.12,-1717.41 171.28,-1366.03 172.57,-1273.43"/>
+<polygon fill="#000000" stroke="#000000" points="176.08,-1273.29 172.74,-1263.23 169.08,-1273.17 176.08,-1273.29"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node38" class="node">
-<title>sourcefile~swiftest_driver.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="372,-1704 274,-1704 274,-1680 372,-1680 372,-1704"/>
-<text text-anchor="middle" x="323" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362,-1788 284,-1788 284,-1764 362,-1764 362,-1788"/>
+<text text-anchor="middle" x="323" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge42" class="edge">
-<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M273.79,-1688.89C261.55,-1685.8 249.48,-1680.38 241,-1671 184.44,-1608.43 174.9,-1333.22 173.31,-1252.39"/>
-<polygon fill="#000000" stroke="#000000" points="176.81,-1252.26 173.14,-1242.32 169.81,-1252.38 176.81,-1252.26"/>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge40" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M283.78,-1775.03C268.35,-1772.61 251.7,-1767.06 241,-1755 176.45,-1682.23 172.64,-1361.35 172.83,-1273.38"/>
+<polygon fill="#000000" stroke="#000000" points="176.33,-1273.2 172.88,-1263.19 169.33,-1273.17 176.33,-1273.2"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90 -->
+<!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node39" class="node">
-<title>sourcefile~rmvs_setup.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-1662 280,-1662 280,-1638 366,-1638 366,-1662"/>
-<text text-anchor="middle" x="323" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350.5,-1746 295.5,-1746 295.5,-1722 350.5,-1722 350.5,-1746"/>
+<text text-anchor="middle" x="323" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge43" class="edge">
-<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.79,-1648.11C265.63,-1645.35 250.93,-1639.81 241,-1629 189.79,-1573.25 176.61,-1328.75 173.72,-1252.68"/>
-<polygon fill="#000000" stroke="#000000" points="177.21,-1252.21 173.36,-1242.34 170.21,-1252.46 177.21,-1252.21"/>
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge41" class="edge">
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.16,-1734.27C277.21,-1732.93 254.49,-1728.03 241,-1713 181.71,-1646.96 174.1,-1355.97 173.13,-1273.1"/>
+<polygon fill="#000000" stroke="#000000" points="176.63,-1272.99 173.04,-1263.03 169.63,-1273.06 176.63,-1272.99"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
+<!-- sourcefile~rmvs_step.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node40" class="node">
-<title>sourcefile~whm_util.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="359.5,-1620 286.5,-1620 286.5,-1596 359.5,-1596 359.5,-1620"/>
-<text text-anchor="middle" x="323" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-1704 283,-1704 283,-1680 363,-1680 363,-1704"/>
+<text text-anchor="middle" x="323" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge44" class="edge">
-<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.16,-1607.06C270.23,-1604.76 252.52,-1599.3 241,-1587 195.04,-1537.93 178.47,-1323.11 174.22,-1252.55"/>
-<polygon fill="#000000" stroke="#000000" points="177.69,-1251.94 173.62,-1242.16 170.7,-1252.34 177.69,-1251.94"/>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge43" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.68,-1690.69C267.63,-1688.15 251.57,-1682.6 241,-1671 187.07,-1611.8 175.71,-1351.56 173.5,-1273.32"/>
+<polygon fill="#000000" stroke="#000000" points="177,-1273.05 173.24,-1263.15 170,-1273.24 177,-1273.05"/>
 </g>
-<!-- sourcefile~util_coord.f90 -->
+<!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node41" class="node">
-<title>sourcefile~util_coord.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361.5,-1578 284.5,-1578 284.5,-1554 361.5,-1554 361.5,-1578"/>
-<text text-anchor="middle" x="323" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="382,-1662 264,-1662 264,-1638 382,-1638 382,-1662"/>
+<text text-anchor="middle" x="323" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge45" class="edge">
-<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.23,-1564.62C268.88,-1562.13 252.17,-1556.63 241,-1545 200.25,-1502.54 180.55,-1317.15 174.83,-1252.41"/>
-<polygon fill="#000000" stroke="#000000" points="178.29,-1251.77 173.95,-1242.11 171.31,-1252.37 178.29,-1251.77"/>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge44" class="edge">
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M263.91,-1643.63C255.29,-1640.39 247.22,-1635.71 241,-1629 192.38,-1576.55 177.49,-1346.57 173.95,-1273.42"/>
+<polygon fill="#000000" stroke="#000000" points="177.43,-1272.91 173.47,-1263.08 170.44,-1273.23 177.43,-1272.91"/>
 </g>
-<!-- sourcefile~drift.f90 -->
+<!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node42" class="node">
-<title>sourcefile~drift.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-1536 296,-1536 296,-1512 350,-1512 350,-1536"/>
-<text text-anchor="middle" x="323" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
+<title>sourcefile~util_coord.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361.5,-1620 284.5,-1620 284.5,-1596 361.5,-1596 361.5,-1620"/>
+<text text-anchor="middle" x="323" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge46" class="edge">
-<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.99,-1523.87C278.2,-1522.38 255.31,-1517.45 241,-1503 205.4,-1467.06 182.89,-1310.53 175.59,-1252.1"/>
-<polygon fill="#000000" stroke="#000000" points="179.06,-1251.59 174.37,-1242.09 172.11,-1252.44 179.06,-1251.59"/>
+<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge45" class="edge">
+<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.15,-1606.69C268.79,-1604.21 252.09,-1598.71 241,-1587 197.66,-1541.26 179.49,-1341.3 174.51,-1273.55"/>
+<polygon fill="#000000" stroke="#000000" points="177.97,-1272.9 173.77,-1263.17 170.99,-1273.39 177.97,-1272.9"/>
 </g>
-<!-- sourcefile~rmvs_step.f90 -->
+<!-- sourcefile~io.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node43" class="node">
-<title>sourcefile~rmvs_step.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="363,-1494 283,-1494 283,-1470 363,-1470 363,-1494"/>
-<text text-anchor="middle" x="323" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-1578 296,-1578 296,-1554 350,-1554 350,-1578"/>
+<text text-anchor="middle" x="323" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge47" class="edge">
-<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M282.97,-1479.93C268.15,-1477.25 252.17,-1471.81 241,-1461 181.89,-1403.79 173.47,-1298.05 172.74,-1252.18"/>
-<polygon fill="#000000" stroke="#000000" points="176.24,-1252.1 172.7,-1242.12 169.24,-1252.14 176.24,-1252.1"/>
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.92,-1565.95C278.08,-1564.48 255.19,-1559.57 241,-1545 202.89,-1505.87 181.75,-1335.43 175.22,-1273.55"/>
+<polygon fill="#000000" stroke="#000000" points="178.67,-1272.91 174.17,-1263.31 171.71,-1273.62 178.67,-1272.91"/>
 </g>
-<!-- sourcefile~whm_gr.f90 -->
+<!-- sourcefile~util_fill.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node44" class="node">
-<title>sourcefile~whm_gr.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-1452 289,-1452 289,-1428 357,-1428 357,-1452"/>
-<text text-anchor="middle" x="323" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="353,-1536 293,-1536 293,-1512 353,-1512 353,-1536"/>
+<text text-anchor="middle" x="323" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge48" class="edge">
-<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.61,-1438.46C272.48,-1436.1 253.88,-1430.75 241,-1419 192.12,-1374.41 178.34,-1292.11 174.49,-1252.48"/>
-<polygon fill="#000000" stroke="#000000" points="177.95,-1251.96 173.62,-1242.29 170.98,-1252.55 177.95,-1251.96"/>
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.99,-1523.49C275.74,-1521.65 254.63,-1516.49 241,-1503 176.77,-1439.4 171.35,-1321.93 172.09,-1273.14"/>
+<polygon fill="#000000" stroke="#000000" points="175.59,-1273.13 172.35,-1263.05 168.59,-1272.95 175.59,-1273.13"/>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
+<!-- sourcefile~whm_gr.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node45" class="node">
-<title>sourcefile~fragmentation.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="371.5,-1410 274.5,-1410 274.5,-1386 371.5,-1386 371.5,-1410"/>
-<text text-anchor="middle" x="323" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-1494 289,-1494 289,-1470 357,-1470 357,-1494"/>
+<text text-anchor="middle" x="323" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge49" class="edge">
-<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M274.13,-1392.89C262.31,-1389.77 250.37,-1384.82 241,-1377 201.99,-1344.44 184.17,-1284.61 177.07,-1252.22"/>
-<polygon fill="#000000" stroke="#000000" points="180.41,-1251.1 174.98,-1242 173.55,-1252.5 180.41,-1251.1"/>
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.85,-1480.7C272.59,-1478.41 253.79,-1473.05 241,-1461 186.98,-1410.1 175.78,-1316.01 173.52,-1273.22"/>
+<polygon fill="#000000" stroke="#000000" points="177.01,-1272.89 173.11,-1263.05 170.02,-1273.18 177.01,-1272.89"/>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node46" class="node">
-<title>sourcefile~operator_cross.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="374.5,-1368 271.5,-1368 271.5,-1344 374.5,-1344 374.5,-1368"/>
-<text text-anchor="middle" x="323" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="366,-1452 280,-1452 280,-1428 366,-1428 366,-1452"/>
+<text text-anchor="middle" x="323" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge50" class="edge">
-<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M271.46,-1349.03C260.73,-1345.93 249.95,-1341.46 241,-1335 211.56,-1313.77 191.58,-1275.51 181.25,-1251.5"/>
-<polygon fill="#000000" stroke="#000000" points="184.46,-1250.09 177.42,-1242.18 177.98,-1252.76 184.46,-1250.09"/>
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M279.75,-1436.6C266.08,-1433.66 251.7,-1428.39 241,-1419 197.05,-1380.46 181.08,-1309.38 175.62,-1273.29"/>
+<polygon fill="#000000" stroke="#000000" points="179.08,-1272.71 174.25,-1263.28 172.14,-1273.67 179.08,-1272.71"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~discard.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node47" class="node">
-<title>sourcefile~util_fill.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="353,-1326 293,-1326 293,-1302 353,-1302 353,-1326"/>
-<text text-anchor="middle" x="323" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="355.5,-1410 290.5,-1410 290.5,-1386 355.5,-1386 355.5,-1410"/>
+<text text-anchor="middle" x="323" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge52" class="edge">
-<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M292.97,-1310.05C276.93,-1307.01 257.06,-1301.78 241,-1293 220.93,-1282.03 202.19,-1263.82 189.49,-1249.8"/>
-<polygon fill="#000000" stroke="#000000" points="191.97,-1247.32 182.74,-1242.11 186.7,-1251.93 191.97,-1247.32"/>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge51" class="edge">
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.12,-1395.75C274,-1393.22 254.95,-1387.93 241,-1377 206.83,-1350.21 187.63,-1301.32 178.88,-1272.95"/>
+<polygon fill="#000000" stroke="#000000" points="182.19,-1271.8 176.03,-1263.18 175.47,-1273.76 182.19,-1271.8"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
+<!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node48" class="node">
-<title>sourcefile~util_peri.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-1284 289,-1284 289,-1260 357,-1260 357,-1284"/>
-<text text-anchor="middle" x="323" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="375.5,-1368 270.5,-1368 270.5,-1344 375.5,-1344 375.5,-1368"/>
+<text text-anchor="middle" x="323" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge54" class="edge">
-<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.8,-1263.76C274.11,-1260.02 256.65,-1255.44 241,-1251 232.45,-1248.57 223.34,-1245.85 214.65,-1243.19"/>
-<polygon fill="#000000" stroke="#000000" points="215.67,-1239.84 205.08,-1240.24 213.6,-1246.53 215.67,-1239.84"/>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge53" class="edge">
+<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M270.25,-1347.82C260.05,-1344.8 249.79,-1340.66 241,-1335 216.19,-1319.03 196.2,-1290.98 184.47,-1271.72"/>
+<polygon fill="#000000" stroke="#000000" points="187.47,-1269.92 179.39,-1263.06 181.43,-1273.46 187.47,-1269.92"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
+<!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node49" class="node">
-<title>sourcefile~rmvs_kick.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362,-1242 284,-1242 284,-1218 362,-1218 362,-1242"/>
-<text text-anchor="middle" x="323" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365.5,-1326 280.5,-1326 280.5,-1302 365.5,-1302 365.5,-1326"/>
+<text text-anchor="middle" x="323" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge55" class="edge">
-<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M283.63,-1230C262.73,-1230 236.83,-1230 215.35,-1230"/>
-<polygon fill="#000000" stroke="#000000" points="215.2,-1226.5 205.2,-1230 215.2,-1233.5 215.2,-1226.5"/>
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge54" class="edge">
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.42,-1305.75C267.51,-1302.53 253.43,-1298.3 241,-1293 225.9,-1286.56 210.24,-1277.1 197.76,-1268.79"/>
+<polygon fill="#000000" stroke="#000000" points="199.51,-1265.75 189.28,-1263 195.57,-1271.53 199.51,-1265.75"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node50" class="node">
-<title>sourcefile~util_set.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="355,-1200 291,-1200 291,-1176 355,-1176 355,-1200"/>
-<text text-anchor="middle" x="323" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="359.5,-1284 286.5,-1284 286.5,-1260 359.5,-1260 359.5,-1284"/>
+<text text-anchor="middle" x="323" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge56" class="edge">
-<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.75,-1195.74C275.68,-1199.57 257.35,-1204.36 241,-1209 232.45,-1211.43 223.34,-1214.15 214.65,-1216.81"/>
-<polygon fill="#000000" stroke="#000000" points="213.6,-1213.47 205.08,-1219.76 215.67,-1220.16 213.6,-1213.47"/>
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.31,-1266.97C264.88,-1263.95 237.51,-1260.09 215.04,-1256.93"/>
+<polygon fill="#000000" stroke="#000000" points="215.49,-1253.45 205.1,-1255.52 214.51,-1260.39 215.49,-1253.45"/>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~operator_cross.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node51" class="node">
-<title>sourcefile~util_exit.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="356.5,-1158 289.5,-1158 289.5,-1134 356.5,-1134 356.5,-1158"/>
-<text text-anchor="middle" x="323" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="374.5,-1242 271.5,-1242 271.5,-1218 374.5,-1218 374.5,-1242"/>
+<text text-anchor="middle" x="323" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge57" class="edge">
-<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.48,-1150.64C274.11,-1153.76 255.91,-1158.84 241,-1167 220.93,-1177.97 202.19,-1196.18 189.49,-1210.2"/>
-<polygon fill="#000000" stroke="#000000" points="186.7,-1208.07 182.74,-1217.89 191.97,-1212.68 186.7,-1208.07"/>
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M271.14,-1237.17C253.13,-1239.71 233.06,-1242.54 215.79,-1244.97"/>
+<polygon fill="#000000" stroke="#000000" points="214.85,-1241.57 205.44,-1246.43 215.83,-1248.5 214.85,-1241.57"/>
 </g>
-<!-- sourcefile~util_solve.f90 -->
+<!-- sourcefile~helio_gr.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node52" class="node">
-<title>sourcefile~util_solve.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="360.5,-1116 285.5,-1116 285.5,-1092 360.5,-1092 360.5,-1116"/>
-<text text-anchor="middle" x="323" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-1200 289,-1200 289,-1176 357,-1176 357,-1200"/>
+<text text-anchor="middle" x="323" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge59" class="edge">
-<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M285.25,-1107.66C270.43,-1110.55 253.84,-1115.74 241,-1125 211.56,-1146.23 191.58,-1184.49 181.25,-1208.5"/>
-<polygon fill="#000000" stroke="#000000" points="177.98,-1207.24 177.42,-1217.82 184.46,-1209.91 177.98,-1207.24"/>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge58" class="edge">
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.94,-1194.21C273.96,-1197.62 256.23,-1202.5 241,-1209 225.9,-1215.44 210.24,-1224.9 197.76,-1233.21"/>
+<polygon fill="#000000" stroke="#000000" points="195.57,-1230.47 189.28,-1239 199.51,-1236.25 195.57,-1230.47"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node53" class="node">
-<title>sourcefile~discard.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="355.5,-1074 290.5,-1074 290.5,-1050 355.5,-1050 355.5,-1074"/>
-<text text-anchor="middle" x="323" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="359,-1158 287,-1158 287,-1134 359,-1134 359,-1158"/>
+<text text-anchor="middle" x="323" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge60" class="edge">
-<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.24,-1063.84C273.95,-1066.25 254.72,-1071.55 241,-1083 201.99,-1115.56 184.17,-1175.39 177.07,-1207.78"/>
-<polygon fill="#000000" stroke="#000000" points="173.55,-1207.5 174.98,-1218 180.41,-1208.9 173.55,-1207.5"/>
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge59" class="edge">
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.93,-1150.1C271.89,-1153.07 254.68,-1158.19 241,-1167 216.19,-1182.97 196.2,-1211.02 184.47,-1230.28"/>
+<polygon fill="#000000" stroke="#000000" points="181.43,-1228.54 179.39,-1238.94 187.47,-1232.08 181.43,-1228.54"/>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
+<!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node54" class="node">
-<title>sourcefile~helio_kick.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361.5,-1032 284.5,-1032 284.5,-1008 361.5,-1008 361.5,-1032"/>
-<text text-anchor="middle" x="323" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-1116 296,-1116 296,-1092 350,-1092 350,-1116"/>
+<text text-anchor="middle" x="323" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge61" class="edge">
-<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.12,-1022.26C269.12,-1024.94 252.7,-1030.33 241,-1041 192.12,-1085.59 178.34,-1167.89 174.49,-1207.52"/>
-<polygon fill="#000000" stroke="#000000" points="170.98,-1207.45 173.62,-1217.71 177.95,-1208.04 170.98,-1207.45"/>
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.92,-1105.44C278.76,-1107.57 256.66,-1112.72 241,-1125 206.83,-1151.79 187.63,-1200.68 178.88,-1229.05"/>
+<polygon fill="#000000" stroke="#000000" points="175.47,-1228.24 176.03,-1238.82 182.19,-1230.2 175.47,-1228.24"/>
 </g>
 <!-- sourcefile~whm_kick.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node55" class="node">
 <title>sourcefile~whm_kick.f90</title>
 <g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361.5,-990 284.5,-990 284.5,-966 361.5,-966 361.5,-990"/>
-<text text-anchor="middle" x="323" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="361.5,-1074 284.5,-1074 284.5,-1050 361.5,-1050 361.5,-1074"/>
+<text text-anchor="middle" x="323" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge62" class="edge">
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge63" class="edge">
 <title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.22,-979.86C269.05,-982.45 252.48,-987.89 241,-999 181.89,-1056.21 173.47,-1161.95 172.74,-1207.82"/>
-<polygon fill="#000000" stroke="#000000" points="169.24,-1207.86 172.7,-1217.88 176.24,-1207.9 169.24,-1207.86"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.33,-1064.49C269.36,-1067.2 252.91,-1072.56 241,-1083 197.05,-1121.54 181.08,-1192.62 175.62,-1228.71"/>
+<polygon fill="#000000" stroke="#000000" points="172.14,-1228.33 174.25,-1238.72 179.08,-1229.29 172.14,-1228.33"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
+<!-- sourcefile~whm_step.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node56" class="node">
-<title>sourcefile~util_minimize_bfgs.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="382,-948 264,-948 264,-924 382,-924 382,-948"/>
-<text text-anchor="middle" x="323" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362.5,-1032 283.5,-1032 283.5,-1008 362.5,-1008 362.5,-1032"/>
+<text text-anchor="middle" x="323" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge63" class="edge">
-<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M263.87,-942.88C255.36,-946.07 247.34,-950.6 241,-957 205.4,-992.94 182.89,-1149.47 175.59,-1207.9"/>
-<polygon fill="#000000" stroke="#000000" points="172.11,-1207.56 174.37,-1217.91 179.06,-1208.41 172.11,-1207.56"/>
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge64" class="edge">
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M283.12,-1022.23C268.32,-1024.92 252.31,-1030.34 241,-1041 186.98,-1091.9 175.78,-1185.99 173.52,-1228.78"/>
+<polygon fill="#000000" stroke="#000000" points="170.02,-1228.82 173.11,-1238.95 177.01,-1229.11 170.02,-1228.82"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node57" class="node">
-<title>sourcefile~io.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-906 296,-906 296,-882 350,-882 350,-906"/>
-<text text-anchor="middle" x="323" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="355,-990 291,-990 291,-966 355,-966 355,-990"/>
+<text text-anchor="middle" x="323" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge64" class="edge">
-<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.85,-893.99C277.99,-895.42 255.08,-900.33 241,-915 200.25,-957.46 180.55,-1142.85 174.83,-1207.59"/>
-<polygon fill="#000000" stroke="#000000" points="171.31,-1207.63 173.95,-1217.89 178.29,-1208.23 171.31,-1207.63"/>
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge65" class="edge">
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M290.61,-978.78C273.83,-980.83 254.01,-986.12 241,-999 176.77,-1062.6 171.35,-1180.07 172.09,-1228.86"/>
+<polygon fill="#000000" stroke="#000000" points="168.59,-1229.05 172.35,-1238.95 175.59,-1228.87 168.59,-1229.05"/>
 </g>
-<!-- sourcefile~util_version.f90 -->
+<!-- sourcefile~util_resize.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node58" class="node">
-<title>sourcefile~util_version.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="365.5,-864 280.5,-864 280.5,-840 365.5,-840 365.5,-864"/>
-<text text-anchor="middle" x="323" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="362.5,-948 283.5,-948 283.5,-924 362.5,-924 362.5,-948"/>
+<text text-anchor="middle" x="323" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge67" class="edge">
-<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M280.33,-853.91C266.05,-856.65 251.13,-862.18 241,-873 195.04,-922.07 178.47,-1136.89 174.22,-1207.45"/>
-<polygon fill="#000000" stroke="#000000" points="170.7,-1207.66 173.62,-1217.84 177.69,-1208.06 170.7,-1207.66"/>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge66" class="edge">
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M283.48,-937.6C268.37,-940.17 252.05,-945.66 241,-957 202.89,-996.13 181.75,-1166.57 175.22,-1228.45"/>
+<polygon fill="#000000" stroke="#000000" points="171.71,-1228.38 174.17,-1238.69 178.67,-1229.09 171.71,-1228.38"/>
 </g>
-<!-- sourcefile~setup.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node59" class="node">
-<title>sourcefile~setup.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="351.5,-822 294.5,-822 294.5,-798 351.5,-798 351.5,-822"/>
-<text text-anchor="middle" x="323" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-906 289,-906 289,-882 357,-882 357,-906"/>
+<text text-anchor="middle" x="323" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge68" class="edge">
-<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M294.49,-809.89C276.71,-811.36 254.46,-816.34 241,-831 189.79,-886.75 176.61,-1131.25 173.72,-1207.32"/>
-<polygon fill="#000000" stroke="#000000" points="170.21,-1207.54 173.36,-1217.66 177.21,-1207.79 170.21,-1207.54"/>
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge67" class="edge">
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.67,-894.66C272.16,-896.76 253.19,-902.13 241,-915 197.66,-960.74 179.49,-1160.7 174.51,-1228.45"/>
+<polygon fill="#000000" stroke="#000000" points="170.99,-1228.61 173.77,-1238.83 177.97,-1229.1 170.99,-1228.61"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~symba_classes.f90~~AfferentGraph_node60" class="node">
-<title>sourcefile~rmvs_encounter_check.f90</title>
-<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="394,-780 252,-780 252,-756 394,-756 394,-780"/>
-<text text-anchor="middle" x="323" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="350,-864 296,-864 296,-840 350,-840 350,-864"/>
+<text text-anchor="middle" x="323" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge21" class="edge">
-<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M251.64,-780.18C247.72,-782.64 244.12,-785.55 241,-789 184.44,-851.57 174.9,-1126.78 173.31,-1207.61"/>
-<polygon fill="#000000" stroke="#000000" points="169.81,-1207.62 173.14,-1217.68 176.81,-1207.74 169.81,-1207.62"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge69" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.7,-851.84C277.76,-853.2 254.83,-858.08 241,-873 192.38,-925.45 177.49,-1155.43 173.95,-1228.58"/>
+<polygon fill="#000000" stroke="#000000" points="170.44,-1228.77 173.47,-1238.92 177.43,-1229.09 170.44,-1228.77"/>
+</g>
+<!-- sourcefile~util_sort.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_node61" class="node">
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~symba_classes.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="357,-822 289,-822 289,-798 357,-798 357,-822"/>
+<text text-anchor="middle" x="323" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~symba_classes.f90~~AfferentGraph_edge70" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.87,-810.42C272.2,-812.43 253.03,-817.79 241,-831 187.07,-890.2 175.71,-1150.44 173.5,-1228.68"/>
+<polygon fill="#000000" stroke="#000000" points="170,-1228.76 173.24,-1238.85 177,-1228.95 170,-1228.76"/>
 </g>
 </g>
 </svg>
@@ -1466,8 +1481,8 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-18"></a>   <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>          <span class="k">parameter</span> <span class="kd">::</span> <span class="n">PARTICLEUNIT</span>     <span class="o">=</span> <span class="mi">44</span> <span class="c">!! File unit number for the binary particle info output file</span>
 <a name="ln-19"></a>
 <a name="ln-20"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_parameters</span>
-<a name="ln-21"></a>      <span class="kt">character</span><span class="p">(</span><span class="n">STRMAX</span><span class="p">)</span>                       <span class="kd">::</span> <span class="n">particle_file</span>  <span class="o">=</span> <span class="n">PARTICLE_OUTFILE</span> <span class="c">!! Name of output particle information file</span>
-<a name="ln-22"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                <span class="kd">::</span> <span class="n">MTINY</span>          <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>          <span class="c">!! Smallest mass that is fully gravitating</span>
+<a name="ln-21"></a>      <span class="kt">character</span><span class="p">(</span><span class="n">STRMAX</span><span class="p">)</span>                       <span class="kd">::</span> <span class="n">particle_out</span>  <span class="o">=</span> <span class="n">PARTICLE_OUTFILE</span> <span class="c">!! Name of output particle information file</span>
+<a name="ln-22"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                <span class="kd">::</span> <span class="n">GMTINY</span>          <span class="o">=</span> <span class="o">-</span><span class="mf">1.0_DP</span>          <span class="c">!! Smallest mass that is fully gravitating</span>
 <a name="ln-23"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">seed</span>                              <span class="c">!! Random seeds</span>
 <a name="ln-24"></a>      <span class="kt">logical</span>                                 <span class="kd">::</span> <span class="n">lfragmentation</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>          <span class="c">!! Do fragmentation modeling instead of simple merger.</span>
 <a name="ln-25"></a>   <span class="k">contains</span>
@@ -1476,665 +1491,652 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-28"></a>   <span class="k">end type </span><span class="n">symba_parameters</span>
 <a name="ln-29"></a>
 <a name="ln-30"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-31"></a>   <span class="c">! symba_cb class definitions and method interfaces</span>
+<a name="ln-31"></a>   <span class="c">!                                    symba_particle_info class definitions and method interfaces</span>
 <a name="ln-32"></a>   <span class="c">!*******************************************************************************************************************************</span>
-<a name="ln-33"></a>   <span class="c">!&gt; SyMBA central body particle class</span>
-<a name="ln-34"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">helio_cb</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_cb</span>
-<a name="ln-35"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">M0</span>  <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Initial mass of the central body</span>
-<a name="ln-36"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">dM</span>  <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Change in mass of the central body</span>
-<a name="ln-37"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">R0</span>  <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Initial radius of the central body</span>
-<a name="ln-38"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">dR</span>  <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Change in the radius of the central body</span>
-<a name="ln-39"></a>   <span class="k">contains</span>
-<a name="ln-40"></a><span class="k">   end type </span><span class="n">symba_cb</span>
-<a name="ln-41"></a>
-<a name="ln-42"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-43"></a>   <span class="c">!                                    symba_particle_info class definitions and method interfaces</span>
-<a name="ln-44"></a>   <span class="c">!*******************************************************************************************************************************</span>
-<a name="ln-45"></a>   <span class="c">!&gt; Class definition for the particle origin information object. This object is used to track time, location, and collisional regime</span>
-<a name="ln-46"></a>   <span class="c">!&gt; of fragments produced in collisional events.</span>
-<a name="ln-47"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_base</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_particle_info</span>
-<a name="ln-48"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">32</span><span class="p">)</span>         <span class="kd">::</span> <span class="n">origin_type</span> <span class="c">!! String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.)</span>
-<a name="ln-49"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">origin_time</span> <span class="c">!! The time of the particle&#39;s formation</span>
-<a name="ln-50"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">origin_xh</span>   <span class="c">!! The heliocentric distance vector at the time of the particle&#39;s formation</span>
-<a name="ln-51"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">origin_vh</span>   <span class="c">!! The heliocentric velocity vector at the time of the particle&#39;s formation</span>
-<a name="ln-52"></a>   <span class="k">contains</span>
-<a name="ln-53"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">dump</span>        <span class="o">=&gt;</span> <span class="n">symba_io_dump_particle_info</span>       <span class="c">!! I/O routine for dumping particle info to file</span>
-<a name="ln-54"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">initialize</span>  <span class="o">=&gt;</span> <span class="n">symba_io_initialize_particle_info</span> <span class="c">!! I/O routine for reading in particle info data</span>
-<a name="ln-55"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">read_frame</span>  <span class="o">=&gt;</span> <span class="n">symba_io_read_frame_info</span>          <span class="c">!! I/O routine for reading in a single frame of particle info</span>
-<a name="ln-56"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">write_frame</span> <span class="o">=&gt;</span> <span class="n">symba_io_write_frame_info</span>         <span class="c">!! I/O routine for writing out a single frame of particle info</span>
-<a name="ln-57"></a>   <span class="k">end type </span><span class="n">symba_particle_info</span>
-<a name="ln-58"></a>
-<a name="ln-59"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-60"></a>   <span class="c">!                                    symba_kinship class definitions and method interfaces</span>
-<a name="ln-61"></a>   <span class="c">!*******************************************************************************************************************************</span>
-<a name="ln-62"></a>   <span class="c">!&gt; Class definition for the kinship relationships used in bookkeeping multiple collisions bodies in a single time step.</span>
-<a name="ln-63"></a>   <span class="k">type </span><span class="n">symba_kinship</span>
-<a name="ln-64"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                            <span class="kd">::</span> <span class="n">parent</span> <span class="c">!! Index of parent particle</span>
-<a name="ln-65"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                            <span class="kd">::</span> <span class="n">nchild</span> <span class="c">!! number of children in merger list</span>
-<a name="ln-66"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">child</span>  <span class="c">!! Index of children particles</span>
-<a name="ln-67"></a>   <span class="k">end type </span><span class="n">symba_kinship</span>
-<a name="ln-68"></a>
-<a name="ln-69"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-70"></a>   <span class="c">!                                    symba_pl class definitions and method interfaces</span>
-<a name="ln-71"></a>   <span class="c">!*******************************************************************************************************************************</span>
-<a name="ln-72"></a>   <span class="c">!&gt; SyMBA massive body class</span>
-<a name="ln-73"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">helio_pl</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_pl</span>
-<a name="ln-74"></a>      <span class="kt">logical</span><span class="p">,</span>                   <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">lcollision</span> <span class="c">!! flag indicating whether body has merged with another this time step</span>
-<a name="ln-75"></a>      <span class="kt">logical</span><span class="p">,</span>                   <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">lencounter</span> <span class="c">!! flag indicating whether body is part of an encounter this time step</span>
-<a name="ln-76"></a>      <span class="kt">logical</span><span class="p">,</span>                   <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">lmtiny</span>     <span class="c">!! flag indicating whether this body is below the MTINY cutoff value</span>
-<a name="ln-77"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                         <span class="kd">::</span> <span class="n">nplm</span>       <span class="c">!! number of bodies above the MTINY limit</span>
-<a name="ln-78"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I8B</span><span class="p">)</span>                                         <span class="kd">::</span> <span class="n">nplplm</span>     <span class="c">!! Number of body (all massive)-body (only those above MTINY) comparisons in the flattened upper triangular matrix </span>
-<a name="ln-79"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">nplenc</span>     <span class="c">!! number of encounters with other planets this time step</span>
-<a name="ln-80"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">ntpenc</span>     <span class="c">!! number of encounters with test particles this time step</span>
-<a name="ln-81"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">levelg</span>     <span class="c">!! level at which this body should be moved</span>
-<a name="ln-82"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">levelm</span>     <span class="c">!! deepest encounter level achieved this time step</span>
-<a name="ln-83"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">isperi</span>     <span class="c">!! perihelion passage flag</span>
-<a name="ln-84"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                  <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">peri</span>       <span class="c">!! perihelion distance</span>
-<a name="ln-85"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                  <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">atp</span>        <span class="c">!! semimajor axis following perihelion passage</span>
-<a name="ln-86"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span>       <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">kin</span>        <span class="c">!! Array of merger relationship structures that can account for multiple pairwise mergers in a single step</span>
-<a name="ln-87"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">info</span>
-<a name="ln-88"></a>   <span class="k">contains</span>
-<a name="ln-89"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">make_family</span>     <span class="o">=&gt;</span> <span class="n">symba_collision_make_family_pl</span> <span class="c">!! When a single body is involved in more than one collision in a single step, it becomes part of a family</span>
-<a name="ln-90"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">discard</span>         <span class="o">=&gt;</span> <span class="n">symba_discard_pl</span>               <span class="c">!! Process massive body discards</span>
-<a name="ln-91"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">drift</span>           <span class="o">=&gt;</span> <span class="n">symba_drift_pl</span>                 <span class="c">!! Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level</span>
-<a name="ln-92"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">encounter_check</span> <span class="o">=&gt;</span> <span class="n">symba_encounter_check_pl</span>       <span class="c">!! Checks if massive bodies are going through close encounters with each other</span>
-<a name="ln-93"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel</span>           <span class="o">=&gt;</span> <span class="n">symba_kick_getacch_pl</span>          <span class="c">!! Compute heliocentric accelerations of massive bodies</span>
-<a name="ln-94"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">setup</span>           <span class="o">=&gt;</span> <span class="n">symba_setup_pl</span>                 <span class="c">!! Constructor method - Allocates space for the input number of bodies</span>
-<a name="ln-95"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">append</span>          <span class="o">=&gt;</span> <span class="n">symba_util_append_pl</span>           <span class="c">!! Appends elements from one structure to another</span>
-<a name="ln-96"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">fill</span>            <span class="o">=&gt;</span> <span class="n">symba_util_fill_pl</span>             <span class="c">!! &quot;Fills&quot; bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</span>
-<a name="ln-97"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">get_peri</span>        <span class="o">=&gt;</span> <span class="n">symba_util_peri_pl</span>             <span class="c">!! Determine system pericenter passages for massive bodies</span>
-<a name="ln-98"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">rearray</span>         <span class="o">=&gt;</span> <span class="n">symba_util_rearray_pl</span>          <span class="c">!! Clean up the massive body structures to remove discarded bodies and add new bodies</span>
-<a name="ln-99"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resize</span>          <span class="o">=&gt;</span> <span class="n">symba_util_resize_pl</span>           <span class="c">!! Checks the current size of a SyMBA massive body against the requested size and resizes it if it is too small.</span>
-<a name="ln-100"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">sort</span>            <span class="o">=&gt;</span> <span class="n">symba_util_sort_pl</span>             <span class="c">!! Sorts body arrays by a sortable componen</span>
-<a name="ln-101"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">rearrange</span>       <span class="o">=&gt;</span> <span class="n">symba_util_sort_rearrange_pl</span>   <span class="c">!! Rearranges the order of array elements of body based on an input index array. Used in sorting methods</span>
-<a name="ln-102"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">spill</span>           <span class="o">=&gt;</span> <span class="n">symba_util_spill_pl</span>            <span class="c">!! &quot;Spills&quot; bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</span>
-<a name="ln-103"></a>   <span class="k">end type </span><span class="n">symba_pl</span>
-<a name="ln-104"></a>
-<a name="ln-105"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_merger</span>
-<a name="ln-106"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">ncomp</span>
-<a name="ln-107"></a>   <span class="k">contains</span>
-<a name="ln-108"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">append</span>          <span class="o">=&gt;</span> <span class="n">symba_util_append_merger</span>       <span class="c">!! Appends elements from one structure to another</span>
-<a name="ln-109"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resize</span>          <span class="o">=&gt;</span> <span class="n">symba_util_resize_merger</span>       <span class="c">!! Checks the current size of a SyMBA merger list against the requested size and resizes it if it is too small.</span>
-<a name="ln-110"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">setup</span>           <span class="o">=&gt;</span> <span class="n">symba_setup_merger</span>             <span class="c">!! Constructor method - Allocates space for the input number of bodies</span>
-<a name="ln-111"></a>   <span class="k">end type </span><span class="n">symba_merger</span>
-<a name="ln-112"></a>
-<a name="ln-113"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-114"></a>   <span class="c">!                                    symba_tp class definitions and method interfaces</span>
-<a name="ln-115"></a>   <span class="c">!*******************************************************************************************************************************</span>
-<a name="ln-116"></a>   <span class="c">!&gt; SyMBA test particle class</span>
-<a name="ln-117"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">helio_tp</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_tp</span>
-<a name="ln-118"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">nplenc</span>  <span class="c">!! number of encounters with planets this time step</span>
-<a name="ln-119"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">levelg</span>  <span class="c">!! level at which this particle should be moved</span>
-<a name="ln-120"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">levelm</span>  <span class="c">!! deepest encounter level achieved this time step</span>
-<a name="ln-121"></a>   <span class="k">contains</span>
-<a name="ln-122"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">drift</span>           <span class="o">=&gt;</span> <span class="n">symba_drift_tp</span>               <span class="c">!! Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level</span>
-<a name="ln-123"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">encounter_check</span> <span class="o">=&gt;</span> <span class="n">symba_encounter_check_tp</span>     <span class="c">!! Checks if any test particles are undergoing a close encounter with a massive body</span>
-<a name="ln-124"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel</span>           <span class="o">=&gt;</span> <span class="n">symba_kick_getacch_tp</span>        <span class="c">!! Compute heliocentric accelerations of test particles</span>
-<a name="ln-125"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">setup</span>           <span class="o">=&gt;</span> <span class="n">symba_setup_tp</span>               <span class="c">!! Constructor method - Allocates space for the input number of bodies</span>
-<a name="ln-126"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">append</span>          <span class="o">=&gt;</span> <span class="n">symba_util_append_tp</span>         <span class="c">!! Appends elements from one structure to another</span>
-<a name="ln-127"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">fill</span>            <span class="o">=&gt;</span> <span class="n">symba_util_fill_tp</span>           <span class="c">!! &quot;Fills&quot; bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</span>
-<a name="ln-128"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resize</span>          <span class="o">=&gt;</span> <span class="n">symba_util_resize_tp</span>         <span class="c">!! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</span>
-<a name="ln-129"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">sort</span>            <span class="o">=&gt;</span> <span class="n">symba_util_sort_tp</span>           <span class="c">!! Sorts body arrays by a sortable componen</span>
-<a name="ln-130"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">rearrange</span>       <span class="o">=&gt;</span> <span class="n">symba_util_sort_rearrange_tp</span> <span class="c">!! Rearranges the order of array elements of body based on an input index array. Used in sorting methods</span>
-<a name="ln-131"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">spill</span>           <span class="o">=&gt;</span> <span class="n">symba_util_spill_tp</span>          <span class="c">!! &quot;Spills&quot; bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</span>
-<a name="ln-132"></a>   <span class="k">end type </span><span class="n">symba_tp</span>
-<a name="ln-133"></a>
-<a name="ln-134"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-135"></a>   <span class="c">!                                    symba_pltpenc class definitions and method interfaces</span>
-<a name="ln-136"></a>   <span class="c">!*******************************************************************************************************************************</span>
-<a name="ln-137"></a>   <span class="c">!&gt; SyMBA class for tracking pl-tp close encounters in a step</span>
-<a name="ln-138"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_pltpenc</span>
-<a name="ln-139"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">level</span>  <span class="c">!! encounter recursion level</span>
-<a name="ln-140"></a>   <span class="k">contains</span>
-<a name="ln-141"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">collision_check</span> <span class="o">=&gt;</span> <span class="n">symba_collision_check_pltpenc</span> <span class="c">!! Checks if a test particle is going to collide with a massive body</span>
-<a name="ln-142"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">encounter_check</span> <span class="o">=&gt;</span> <span class="n">symba_encounter_check_pltpenc</span> <span class="c">!! Checks if massive bodies are going through close encounters with each other</span>
-<a name="ln-143"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">kick</span>            <span class="o">=&gt;</span> <span class="n">symba_kick_pltpenc</span>            <span class="c">!! Kick barycentric velocities of active test particles within SyMBA recursion</span>
-<a name="ln-144"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">setup</span>           <span class="o">=&gt;</span> <span class="n">symba_setup_pltpenc</span>           <span class="c">!! A constructor that sets the number of encounters and allocates and initializes all arrays  </span>
-<a name="ln-145"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">spill</span>           <span class="o">=&gt;</span> <span class="n">symba_util_spill_pltpenc</span>      <span class="c">!! &quot;Spills&quot; bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</span>
-<a name="ln-146"></a>   <span class="k">end type </span><span class="n">symba_pltpenc</span>
-<a name="ln-147"></a>
-<a name="ln-148"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-149"></a>   <span class="c">!                                    symba_plplenc class definitions and method interfaces</span>
-<a name="ln-150"></a>   <span class="c">!*******************************************************************************************************************************</span>
-<a name="ln-151"></a>   <span class="c">!&gt; SyMBA class for tracking pl-pl close encounters in a step</span>
-<a name="ln-152"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_plplenc</span>
-<a name="ln-153"></a>   <span class="k">contains</span>
-<a name="ln-154"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">scrub_non_collision</span>    <span class="o">=&gt;</span> <span class="n">symba_collision_encounter_scrub</span>        <span class="c">!! Processes the pl-pl encounter list remove only those encounters that led to a collision</span>
-<a name="ln-155"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resolve_fragmentations</span> <span class="o">=&gt;</span> <span class="n">symba_collision_resolve_fragmentations</span> <span class="c">!! Process list of collisions, determine the collisional regime, and then create fragments</span>
-<a name="ln-156"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resolve_mergers</span>        <span class="o">=&gt;</span> <span class="n">symba_collision_resolve_mergers</span>        <span class="c">!! Process list of collisions and merge colliding bodies together</span>
-<a name="ln-157"></a>   <span class="k">end type </span><span class="n">symba_plplenc</span>
-<a name="ln-158"></a>
+<a name="ln-33"></a>   <span class="c">!&gt; Class definition for the particle origin information object. This object is used to track time, location, and collisional regime</span>
+<a name="ln-34"></a>   <span class="c">!&gt; of fragments produced in collisional events.</span>
+<a name="ln-35"></a>   <span class="k">type</span> <span class="kd">::</span> <span class="n">symba_particle_info</span>
+<a name="ln-36"></a>      <span class="k">sequence</span>
+<a name="ln-37"></a><span class="k">      </span><span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="mi">32</span><span class="p">)</span>         <span class="kd">::</span> <span class="n">origin_type</span> <span class="c">!! String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.)</span>
+<a name="ln-38"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">origin_time</span> <span class="c">!! The time of the particle&#39;s formation</span>
+<a name="ln-39"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">origin_xh</span>   <span class="c">!! The heliocentric distance vector at the time of the particle&#39;s formation</span>
+<a name="ln-40"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">origin_vh</span>   <span class="c">!! The heliocentric velocity vector at the time of the particle&#39;s formation</span>
+<a name="ln-41"></a>   <span class="k">end type </span><span class="n">symba_particle_info</span>
+<a name="ln-42"></a>
+<a name="ln-43"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-44"></a>   <span class="c">!                                    symba_kinship class definitions and method interfaces</span>
+<a name="ln-45"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-46"></a>   <span class="c">!&gt; Class definition for the kinship relationships used in bookkeeping multiple collisions bodies in a single time step.</span>
+<a name="ln-47"></a>   <span class="k">type </span><span class="n">symba_kinship</span>
+<a name="ln-48"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                            <span class="kd">::</span> <span class="n">parent</span> <span class="c">!! Index of parent particle</span>
+<a name="ln-49"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                            <span class="kd">::</span> <span class="n">nchild</span> <span class="c">!! number of children in merger list</span>
+<a name="ln-50"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">child</span>  <span class="c">!! Index of children particles</span>
+<a name="ln-51"></a>   <span class="k">end type </span><span class="n">symba_kinship</span>
+<a name="ln-52"></a>
+<a name="ln-53"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-54"></a>   <span class="c">! symba_cb class definitions and method interfaces</span>
+<a name="ln-55"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-56"></a>   <span class="c">!&gt; SyMBA central body particle class</span>
+<a name="ln-57"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">helio_cb</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_cb</span>
+<a name="ln-58"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">M0</span>  <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Initial mass of the central body</span>
+<a name="ln-59"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">dM</span>  <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Change in mass of the central body</span>
+<a name="ln-60"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">R0</span>  <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Initial radius of the central body</span>
+<a name="ln-61"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">dR</span>  <span class="o">=</span> <span class="mf">0.0_DP</span> <span class="c">!! Change in the radius of the central body</span>
+<a name="ln-62"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">)</span> <span class="kd">::</span> <span class="n">info</span>
+<a name="ln-63"></a>   <span class="k">contains</span>
+<a name="ln-64"></a><span class="k">   end type </span><span class="n">symba_cb</span>
+<a name="ln-65"></a>
+<a name="ln-66"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-67"></a>   <span class="c">!                                    symba_pl class definitions and method interfaces</span>
+<a name="ln-68"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-69"></a>   <span class="c">!&gt; SyMBA massive body class</span>
+<a name="ln-70"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">helio_pl</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_pl</span>
+<a name="ln-71"></a>      <span class="kt">logical</span><span class="p">,</span>                   <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">lcollision</span> <span class="c">!! flag indicating whether body has merged with another this time step</span>
+<a name="ln-72"></a>      <span class="kt">logical</span><span class="p">,</span>                   <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">lencounter</span> <span class="c">!! flag indicating whether body is part of an encounter this time step</span>
+<a name="ln-73"></a>      <span class="kt">logical</span><span class="p">,</span>                   <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">lmtiny</span>     <span class="c">!! flag indicating whether this body is below the GMTINY cutoff value</span>
+<a name="ln-74"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                         <span class="kd">::</span> <span class="n">nplm</span>       <span class="c">!! number of bodies above the GMTINY limit</span>
+<a name="ln-75"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I8B</span><span class="p">)</span>                                         <span class="kd">::</span> <span class="n">nplplm</span>     <span class="c">!! Number of body (all massive)-body (only those above GMTINY) comparisons in the flattened upper triangular matrix </span>
+<a name="ln-76"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">nplenc</span>     <span class="c">!! number of encounters with other planets this time step</span>
+<a name="ln-77"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">ntpenc</span>     <span class="c">!! number of encounters with test particles this time step</span>
+<a name="ln-78"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">levelg</span>     <span class="c">!! level at which this body should be moved</span>
+<a name="ln-79"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">levelm</span>     <span class="c">!! deepest encounter level achieved this time step</span>
+<a name="ln-80"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">isperi</span>     <span class="c">!! perihelion passage flag</span>
+<a name="ln-81"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                  <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">peri</span>       <span class="c">!! perihelion distance</span>
+<a name="ln-82"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                  <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">atp</span>        <span class="c">!! semimajor axis following perihelion passage</span>
+<a name="ln-83"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span>       <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">kin</span>        <span class="c">!! Array of merger relationship structures that can account for multiple pairwise mergers in a single step</span>
+<a name="ln-84"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">info</span>
+<a name="ln-85"></a>   <span class="k">contains</span>
+<a name="ln-86"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">make_family</span>     <span class="o">=&gt;</span> <span class="n">symba_collision_make_family_pl</span> <span class="c">!! When a single body is involved in more than one collision in a single step, it becomes part of a family</span>
+<a name="ln-87"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">discard</span>         <span class="o">=&gt;</span> <span class="n">symba_discard_pl</span>               <span class="c">!! Process massive body discards</span>
+<a name="ln-88"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">drift</span>           <span class="o">=&gt;</span> <span class="n">symba_drift_pl</span>                 <span class="c">!! Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level</span>
+<a name="ln-89"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">encounter_check</span> <span class="o">=&gt;</span> <span class="n">symba_encounter_check_pl</span>       <span class="c">!! Checks if massive bodies are going through close encounters with each other</span>
+<a name="ln-90"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel</span>           <span class="o">=&gt;</span> <span class="n">symba_kick_getacch_pl</span>          <span class="c">!! Compute heliocentric accelerations of massive bodies</span>
+<a name="ln-91"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">setup</span>           <span class="o">=&gt;</span> <span class="n">symba_setup_pl</span>                 <span class="c">!! Constructor method - Allocates space for the input number of bodies</span>
+<a name="ln-92"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">append</span>          <span class="o">=&gt;</span> <span class="n">symba_util_append_pl</span>           <span class="c">!! Appends elements from one structure to another</span>
+<a name="ln-93"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">fill</span>            <span class="o">=&gt;</span> <span class="n">symba_util_fill_pl</span>             <span class="c">!! &quot;Fills&quot; bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</span>
+<a name="ln-94"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">get_peri</span>        <span class="o">=&gt;</span> <span class="n">symba_util_peri_pl</span>             <span class="c">!! Determine system pericenter passages for massive bodies</span>
+<a name="ln-95"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">rearray</span>         <span class="o">=&gt;</span> <span class="n">symba_util_rearray_pl</span>          <span class="c">!! Clean up the massive body structures to remove discarded bodies and add new bodies</span>
+<a name="ln-96"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resize</span>          <span class="o">=&gt;</span> <span class="n">symba_util_resize_pl</span>           <span class="c">!! Checks the current size of a SyMBA massive body against the requested size and resizes it if it is too small.</span>
+<a name="ln-97"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">sort</span>            <span class="o">=&gt;</span> <span class="n">symba_util_sort_pl</span>             <span class="c">!! Sorts body arrays by a sortable componen</span>
+<a name="ln-98"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">rearrange</span>       <span class="o">=&gt;</span> <span class="n">symba_util_sort_rearrange_pl</span>   <span class="c">!! Rearranges the order of array elements of body based on an input index array. Used in sorting methods</span>
+<a name="ln-99"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">spill</span>           <span class="o">=&gt;</span> <span class="n">symba_util_spill_pl</span>            <span class="c">!! &quot;Spills&quot; bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</span>
+<a name="ln-100"></a>   <span class="k">end type </span><span class="n">symba_pl</span>
+<a name="ln-101"></a>
+<a name="ln-102"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_merger</span>
+<a name="ln-103"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">ncomp</span>
+<a name="ln-104"></a>   <span class="k">contains</span>
+<a name="ln-105"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">append</span>          <span class="o">=&gt;</span> <span class="n">symba_util_append_merger</span>       <span class="c">!! Appends elements from one structure to another</span>
+<a name="ln-106"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resize</span>          <span class="o">=&gt;</span> <span class="n">symba_util_resize_merger</span>       <span class="c">!! Checks the current size of a SyMBA merger list against the requested size and resizes it if it is too small.</span>
+<a name="ln-107"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">setup</span>           <span class="o">=&gt;</span> <span class="n">symba_setup_merger</span>             <span class="c">!! Constructor method - Allocates space for the input number of bodies</span>
+<a name="ln-108"></a>   <span class="k">end type </span><span class="n">symba_merger</span>
+<a name="ln-109"></a>
+<a name="ln-110"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-111"></a>   <span class="c">!                                    symba_tp class definitions and method interfaces</span>
+<a name="ln-112"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-113"></a>   <span class="c">!&gt; SyMBA test particle class</span>
+<a name="ln-114"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">helio_tp</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_tp</span>
+<a name="ln-115"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">nplenc</span>  <span class="c">!! number of encounters with planets this time step</span>
+<a name="ln-116"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">levelg</span>  <span class="c">!! level at which this particle should be moved</span>
+<a name="ln-117"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">levelm</span>  <span class="c">!! deepest encounter level achieved this time step</span>
+<a name="ln-118"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">info</span>
+<a name="ln-119"></a>   <span class="k">contains</span>
+<a name="ln-120"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">drift</span>           <span class="o">=&gt;</span> <span class="n">symba_drift_tp</span>               <span class="c">!! Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level</span>
+<a name="ln-121"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">encounter_check</span> <span class="o">=&gt;</span> <span class="n">symba_encounter_check_tp</span>     <span class="c">!! Checks if any test particles are undergoing a close encounter with a massive body</span>
+<a name="ln-122"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">accel</span>           <span class="o">=&gt;</span> <span class="n">symba_kick_getacch_tp</span>        <span class="c">!! Compute heliocentric accelerations of test particles</span>
+<a name="ln-123"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">setup</span>           <span class="o">=&gt;</span> <span class="n">symba_setup_tp</span>               <span class="c">!! Constructor method - Allocates space for the input number of bodies</span>
+<a name="ln-124"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">append</span>          <span class="o">=&gt;</span> <span class="n">symba_util_append_tp</span>         <span class="c">!! Appends elements from one structure to another</span>
+<a name="ln-125"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">fill</span>            <span class="o">=&gt;</span> <span class="n">symba_util_fill_tp</span>           <span class="c">!! &quot;Fills&quot; bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic)</span>
+<a name="ln-126"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resize</span>          <span class="o">=&gt;</span> <span class="n">symba_util_resize_tp</span>         <span class="c">!! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</span>
+<a name="ln-127"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">sort</span>            <span class="o">=&gt;</span> <span class="n">symba_util_sort_tp</span>           <span class="c">!! Sorts body arrays by a sortable componen</span>
+<a name="ln-128"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">rearrange</span>       <span class="o">=&gt;</span> <span class="n">symba_util_sort_rearrange_tp</span> <span class="c">!! Rearranges the order of array elements of body based on an input index array. Used in sorting methods</span>
+<a name="ln-129"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">spill</span>           <span class="o">=&gt;</span> <span class="n">symba_util_spill_tp</span>          <span class="c">!! &quot;Spills&quot; bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</span>
+<a name="ln-130"></a>   <span class="k">end type </span><span class="n">symba_tp</span>
+<a name="ln-131"></a>
+<a name="ln-132"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-133"></a>   <span class="c">!                                    symba_pltpenc class definitions and method interfaces</span>
+<a name="ln-134"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-135"></a>   <span class="c">!&gt; SyMBA class for tracking pl-tp close encounters in a step</span>
+<a name="ln-136"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_pltpenc</span>
+<a name="ln-137"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">level</span>  <span class="c">!! encounter recursion level</span>
+<a name="ln-138"></a>   <span class="k">contains</span>
+<a name="ln-139"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">collision_check</span> <span class="o">=&gt;</span> <span class="n">symba_collision_check_pltpenc</span> <span class="c">!! Checks if a test particle is going to collide with a massive body</span>
+<a name="ln-140"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">encounter_check</span> <span class="o">=&gt;</span> <span class="n">symba_encounter_check_pltpenc</span> <span class="c">!! Checks if massive bodies are going through close encounters with each other</span>
+<a name="ln-141"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">kick</span>            <span class="o">=&gt;</span> <span class="n">symba_kick_pltpenc</span>            <span class="c">!! Kick barycentric velocities of active test particles within SyMBA recursion</span>
+<a name="ln-142"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">setup</span>           <span class="o">=&gt;</span> <span class="n">symba_setup_pltpenc</span>           <span class="c">!! A constructor that sets the number of encounters and allocates and initializes all arrays  </span>
+<a name="ln-143"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">spill</span>           <span class="o">=&gt;</span> <span class="n">symba_util_spill_pltpenc</span>      <span class="c">!! &quot;Spills&quot; bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)</span>
+<a name="ln-144"></a>   <span class="k">end type </span><span class="n">symba_pltpenc</span>
+<a name="ln-145"></a>
+<a name="ln-146"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-147"></a>   <span class="c">!                                    symba_plplenc class definitions and method interfaces</span>
+<a name="ln-148"></a>   <span class="c">!*******************************************************************************************************************************</span>
+<a name="ln-149"></a>   <span class="c">!&gt; SyMBA class for tracking pl-pl close encounters in a step</span>
+<a name="ln-150"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_plplenc</span>
+<a name="ln-151"></a>   <span class="k">contains</span>
+<a name="ln-152"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">scrub_non_collision</span>    <span class="o">=&gt;</span> <span class="n">symba_collision_encounter_scrub</span>        <span class="c">!! Processes the pl-pl encounter list remove only those encounters that led to a collision</span>
+<a name="ln-153"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resolve_fragmentations</span> <span class="o">=&gt;</span> <span class="n">symba_collision_resolve_fragmentations</span> <span class="c">!! Process list of collisions, determine the collisional regime, and then create fragments</span>
+<a name="ln-154"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">resolve_mergers</span>        <span class="o">=&gt;</span> <span class="n">symba_collision_resolve_mergers</span>        <span class="c">!! Process list of collisions and merge colliding bodies together</span>
+<a name="ln-155"></a>   <span class="k">end type </span><span class="n">symba_plplenc</span>
+<a name="ln-156"></a>
+<a name="ln-157"></a>   <span class="c">!********************************************************************************************************************************</span>
+<a name="ln-158"></a>   <span class="c">!  symba_nbody_system class definitions and method interfaces</span>
 <a name="ln-159"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-160"></a>   <span class="c">!  symba_nbody_system class definitions and method interfaces</span>
-<a name="ln-161"></a>   <span class="c">!********************************************************************************************************************************</span>
-<a name="ln-162"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">helio_nbody_system</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_nbody_system</span>
-<a name="ln-163"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_merger</span><span class="p">),</span>  <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">mergeadd_list</span> <span class="c">!! List of added bodies in mergers or collisions</span>
-<a name="ln-164"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_merger</span><span class="p">),</span>  <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">mergesub_list</span> <span class="c">!! List of subtracted bodies in mergers or collisions</span>
-<a name="ln-165"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">pltpenc_list</span>  <span class="c">!! List of massive body-test particle encounters in a single step </span>
-<a name="ln-166"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_plplenc</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">plplenc_list</span>  <span class="c">!! List of massive body-massive body encounters in a single step</span>
-<a name="ln-167"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                      <span class="kd">::</span> <span class="n">irec</span>          <span class="c">!! System recursion level</span>
-<a name="ln-168"></a>   <span class="k">contains</span>
-<a name="ln-169"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">write_discard</span>    <span class="o">=&gt;</span> <span class="n">symba_io_write_discard</span>             <span class="c">!! Write out information about discarded and merged planets and test particles in SyMBA</span>
-<a name="ln-170"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">initialize</span>       <span class="o">=&gt;</span> <span class="n">symba_setup_initialize_system</span>      <span class="c">!! Performs SyMBA-specific initilization steps</span>
-<a name="ln-171"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">step</span>             <span class="o">=&gt;</span> <span class="n">symba_step_system</span>                  <span class="c">!! Advance the SyMBA nbody system forward in time by one step</span>
-<a name="ln-172"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">interp</span>           <span class="o">=&gt;</span> <span class="n">symba_step_interp_system</span>           <span class="c">!! Perform an interpolation step on the SymBA nbody system </span>
-<a name="ln-173"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_recur_levels</span> <span class="o">=&gt;</span> <span class="n">symba_step_set_recur_levels_system</span> <span class="c">!! Sets recursion levels of bodies and encounter lists to the current system level</span>
-<a name="ln-174"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">recursive_step</span>   <span class="o">=&gt;</span> <span class="n">symba_step_recur_system</span>            <span class="c">!! Step interacting planets and active test particles ahead in democratic heliocentric coordinates at the current recursion level, if applicable, and descend to the next deeper level if necessary</span>
-<a name="ln-175"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">reset</span>            <span class="o">=&gt;</span> <span class="n">symba_step_reset_system</span>            <span class="c">!! Resets pl, tp,and encounter structures at the start of a new step </span>
-<a name="ln-176"></a>   <span class="k">end type </span><span class="n">symba_nbody_system</span>
-<a name="ln-177"></a>
-<a name="ln-178"></a>   <span class="k">interface</span>
-<a name="ln-179"></a><span class="k">      module subroutine </span><span class="n">symba_collision_check_pltpenc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">irec</span><span class="p">)</span>
-<a name="ln-180"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
-<a name="ln-181"></a>         <span class="k">implicit none</span>
-<a name="ln-182"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA pl-tp encounter list object</span>
-<a name="ln-183"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-184"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
-<a name="ln-185"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>      <span class="c">!! current time</span>
-<a name="ln-186"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>     <span class="c">!! step size</span>
-<a name="ln-187"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">irec</span>   <span class="c">!! Current recursion level</span>
-<a name="ln-188"></a>      <span class="k">end subroutine </span><span class="n">symba_collision_check_pltpenc</span>
-<a name="ln-189"></a>
-<a name="ln-190"></a>      <span class="k">module subroutine </span><span class="n">symba_collision_encounter_scrub</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-191"></a>         <span class="k">implicit none</span>
-<a name="ln-192"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_plplenc</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA pl-pl encounter list</span>
-<a name="ln-193"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-194"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameterss</span>
-<a name="ln-195"></a>      <span class="k">end subroutine</span>
-<a name="ln-196"></a>
-<a name="ln-197"></a><span class="k">      module subroutine </span><span class="n">symba_collision_make_family_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span><span class="n">idx</span><span class="p">)</span>
-<a name="ln-198"></a>         <span class="k">implicit none</span>
-<a name="ln-199"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! SyMBA massive body object</span>
-<a name="ln-200"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">idx</span> <span class="c">!! Array holding the indices of the two bodies involved in the collision</span>
-<a name="ln-201"></a>      <span class="k">end subroutine </span><span class="n">symba_collision_make_family_pl</span>
-<a name="ln-202"></a>
-<a name="ln-203"></a>      <span class="k">module subroutine </span><span class="n">symba_collision_resolve_fragmentations</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-204"></a>         <span class="k">implicit none</span>
-<a name="ln-205"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_plplenc</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA pl-pl encounter list</span>
-<a name="ln-206"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-207"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters with SyMBA additions</span>
-<a name="ln-208"></a>      <span class="k">end subroutine </span><span class="n">symba_collision_resolve_fragmentations</span>
-<a name="ln-209"></a>   
-<a name="ln-210"></a>      <span class="k">module subroutine </span><span class="n">symba_collision_resolve_mergers</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-211"></a>         <span class="k">implicit none</span>
-<a name="ln-212"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_plplenc</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA pl-pl encounter list</span>
-<a name="ln-213"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-214"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters with SyMBA additions</span>
-<a name="ln-215"></a>      <span class="k">end subroutine </span><span class="n">symba_collision_resolve_mergers</span>
-<a name="ln-216"></a>
-<a name="ln-217"></a>      <span class="k">module subroutine </span><span class="n">symba_discard_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-218"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
-<a name="ln-219"></a>         <span class="k">implicit none</span>
-<a name="ln-220"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA test particle object</span>
-<a name="ln-221"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-222"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
-<a name="ln-223"></a>      <span class="k">end subroutine </span><span class="n">symba_discard_pl</span>
-<a name="ln-224"></a>
-<a name="ln-225"></a>      <span class="k">module subroutine </span><span class="n">symba_drift_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
-<a name="ln-226"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
-<a name="ln-227"></a>         <span class="k">implicit none</span>
-<a name="ln-228"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Helio massive body object</span>
-<a name="ln-229"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-230"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
-<a name="ln-231"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>     <span class="c">!! Stepsize</span>
-<a name="ln-232"></a>      <span class="k">end subroutine </span><span class="n">symba_drift_pl</span>
-<a name="ln-233"></a>   
-<a name="ln-234"></a>      <span class="k">module subroutine </span><span class="n">symba_drift_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
-<a name="ln-235"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
-<a name="ln-236"></a>         <span class="k">implicit none</span>
-<a name="ln-237"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Helio massive body object</span>
-<a name="ln-238"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-239"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
-<a name="ln-240"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>     <span class="c">!! Stepsize</span>
-<a name="ln-241"></a>      <span class="k">end subroutine </span><span class="n">symba_drift_tp</span>
-<a name="ln-242"></a>
-<a name="ln-243"></a>      <span class="k">module pure elemental subroutine </span><span class="n">symba_encounter_check_one</span><span class="p">(</span><span class="n">xr</span><span class="p">,</span> <span class="n">yr</span><span class="p">,</span> <span class="n">zr</span><span class="p">,</span> <span class="n">vxr</span><span class="p">,</span> <span class="n">vyr</span><span class="p">,</span> <span class="n">vzr</span><span class="p">,</span> <span class="n">rhill1</span><span class="p">,</span> <span class="n">rhill2</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">irec</span><span class="p">,</span> <span class="n">lencounter</span><span class="p">,</span> <span class="n">lvdotr</span><span class="p">)</span>
-<a name="ln-244"></a>         <span class="k">implicit none</span>
-<a name="ln-245"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">xr</span><span class="p">,</span> <span class="n">yr</span><span class="p">,</span> <span class="n">zr</span><span class="p">,</span> <span class="n">vxr</span><span class="p">,</span> <span class="n">vyr</span><span class="p">,</span> <span class="n">vzr</span>
-<a name="ln-246"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">rhill1</span><span class="p">,</span> <span class="n">rhill2</span><span class="p">,</span> <span class="n">dt</span>
-<a name="ln-247"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">irec</span>
-<a name="ln-248"></a>         <span class="kt">logical</span><span class="p">,</span>      <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lencounter</span><span class="p">,</span> <span class="n">lvdotr</span>
-<a name="ln-249"></a>      <span class="k">end subroutine </span><span class="n">symba_encounter_check_one</span>
-<a name="ln-250"></a>
-<a name="ln-251"></a>      <span class="k">module function </span><span class="n">symba_encounter_check_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">irec</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">lany_encounter</span><span class="p">)</span>
-<a name="ln-252"></a>         <span class="k">implicit none</span>
-<a name="ln-253"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! SyMBA test particle object  </span>
-<a name="ln-254"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>     <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-255"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>         <span class="c">!! step size</span>
-<a name="ln-256"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">irec</span>       <span class="c">!! Current recursion level </span>
-<a name="ln-257"></a>         <span class="kt">logical</span>                                  <span class="kd">::</span> <span class="n">lany_encounter</span> <span class="c">!! Returns true if there is at least one close encounter      </span>
-<a name="ln-258"></a>      <span class="k">end function </span><span class="n">symba_encounter_check_pl</span>
-<a name="ln-259"></a>
-<a name="ln-260"></a>      <span class="k">module function </span><span class="n">symba_encounter_check_pltpenc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">irec</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">lany_encounter</span><span class="p">)</span>
-<a name="ln-261"></a>         <span class="k">implicit none</span>
-<a name="ln-262"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>           <span class="c">!! SyMBA pl-pl encounter list object</span>
-<a name="ln-263"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>         <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-264"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>             <span class="c">!! step size</span>
-<a name="ln-265"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">irec</span>           <span class="c">!! Current recursion level </span>
-<a name="ln-266"></a>         <span class="kt">logical</span>                                  <span class="kd">::</span> <span class="n">lany_encounter</span> <span class="c">!! Returns true if there is at least one close encounter      </span>
-<a name="ln-267"></a>      <span class="k">end function </span><span class="n">symba_encounter_check_pltpenc</span>
-<a name="ln-268"></a>
-<a name="ln-269"></a>      <span class="k">module function </span><span class="n">symba_encounter_check_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">irec</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">lany_encounter</span><span class="p">)</span>
-<a name="ln-270"></a>         <span class="k">implicit none</span>
-<a name="ln-271"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>           <span class="c">!! SyMBA test particle object  </span>
-<a name="ln-272"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>         <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-273"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>             <span class="c">!! step size</span>
-<a name="ln-274"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">irec</span>           <span class="c">!! Current recursion level </span>
-<a name="ln-275"></a>         <span class="kt">logical</span>                                  <span class="kd">::</span> <span class="n">lany_encounter</span> <span class="c">!! Returns true if there is at least one close encounter      </span>
-<a name="ln-276"></a>      <span class="k">end function </span><span class="n">symba_encounter_check_tp</span>
-<a name="ln-277"></a>
-<a name="ln-278"></a>      <span class="k">module function </span><span class="n">symba_fragmentation_casedisruption</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass_res</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">)</span>  <span class="k">result</span><span class="p">(</span><span class="n">status</span><span class="p">)</span>
-<a name="ln-279"></a>         <span class="k">implicit none</span>
-<a name="ln-280"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>           <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-281"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>            <span class="c">!! Current run configuration parameters with SyMBA additions</span>
-<a name="ln-282"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">family</span>           <span class="c">!! List of indices of all bodies inovlved in the collision</span>
-<a name="ln-283"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span> <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-284"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-285"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass_res</span>         <span class="c">!! The distribution of fragment mass obtained by the regime calculation </span>
-<a name="ln-286"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Qloss</span>            <span class="c">!! Energy lost during collisionn</span>
-<a name="ln-287"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">status</span>           <span class="c">!! Status flag assigned to this outcome</span>
-<a name="ln-288"></a>      <span class="k">end function </span><span class="n">symba_fragmentation_casedisruption</span>
-<a name="ln-289"></a>   
-<a name="ln-290"></a>      <span class="k">module function </span><span class="n">symba_fragmentation_casehitandrun</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass_res</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">)</span>  <span class="k">result</span><span class="p">(</span><span class="n">status</span><span class="p">)</span>
-<a name="ln-291"></a>         <span class="k">implicit none</span>
-<a name="ln-292"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>           <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-293"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>            <span class="c">!! Current run configuration parameters with SyMBA additions</span>
-<a name="ln-294"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">family</span>           <span class="c">!! List of indices of all bodies inovlved in the collision</span>
-<a name="ln-295"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span> <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-296"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-297"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass_res</span>         <span class="c">!! The distribution of fragment mass obtained by the regime calculation </span>
-<a name="ln-298"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Qloss</span>            <span class="c">!! Energy lost during collision</span>
-<a name="ln-299"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">status</span>           <span class="c">!! Status flag assigned to this outcome</span>
-<a name="ln-300"></a>      <span class="k">end function </span><span class="n">symba_fragmentation_casehitandrun</span>
-<a name="ln-301"></a>
-<a name="ln-302"></a>      <span class="k">module function </span><span class="n">symba_fragmentation_casemerge</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">)</span>  <span class="k">result</span><span class="p">(</span><span class="n">status</span><span class="p">)</span>
-<a name="ln-303"></a>         <span class="k">implicit none</span>
-<a name="ln-304"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>           <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-305"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>            <span class="c">!! Current run configuration parameters with SyMBA additions</span>
-<a name="ln-306"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">family</span>           <span class="c">!! List of indices of all bodies inovlved in the collision</span>
-<a name="ln-307"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span> <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-308"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collisio</span>
-<a name="ln-309"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">status</span>           <span class="c">!! Status flag assigned to this outcome</span>
-<a name="ln-310"></a>      <span class="k">end function </span><span class="n">symba_fragmentation_casemerge</span>
-<a name="ln-311"></a>
-<a name="ln-312"></a>      <span class="k">module function </span><span class="n">symba_fragmentation_casesupercatastrophic</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass_res</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">)</span>  <span class="k">result</span><span class="p">(</span><span class="n">status</span><span class="p">)</span>
-<a name="ln-313"></a>         <span class="k">implicit none</span>
-<a name="ln-314"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>           <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-315"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>            <span class="c">!! Current run configuration parameters with SyMBA additions</span>
-<a name="ln-316"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">family</span>           <span class="c">!! List of indices of all bodies inovlved in the collision</span>
-<a name="ln-317"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span> <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-318"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-319"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass_res</span>         <span class="c">!! The distribution of fragment mass obtained by the regime calculation </span>
-<a name="ln-320"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Qloss</span>            <span class="c">!! Energy lost during collision</span>
-<a name="ln-321"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">status</span>           <span class="c">!! Status flag assigned to this outcome</span>
-<a name="ln-322"></a>      <span class="k">end function </span><span class="n">symba_fragmentation_casesupercatastrophic</span>
-<a name="ln-323"></a>
-<a name="ln-324"></a>      <span class="k">module subroutine </span><span class="n">symba_io_write_discard</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-325"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
-<a name="ln-326"></a>         <span class="k">implicit none</span>
-<a name="ln-327"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-328"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-329"></a>      <span class="k">end subroutine </span><span class="n">symba_io_write_discard</span>
-<a name="ln-330"></a>
-<a name="ln-331"></a>      <span class="k">module subroutine </span><span class="n">symba_io_dump_particle_info</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">msg</span><span class="p">)</span> 
-<a name="ln-332"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
-<a name="ln-333"></a>         <span class="k">implicit none</span>
-<a name="ln-334"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest base object</span>
-<a name="ln-335"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-336"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">optional</span><span class="p">,</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">msg</span>   <span class="c">!! Message to display with dump operation</span>
-<a name="ln-337"></a>      <span class="k">end subroutine </span><span class="n">symba_io_dump_particle_info</span>
-<a name="ln-338"></a>   
-<a name="ln-339"></a>      <span class="k">module subroutine </span><span class="n">symba_io_param_reader</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
-<a name="ln-340"></a>         <span class="k">implicit none</span>
-<a name="ln-341"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! Current run configuration parameters with SyMBA additionss</span>
-<a name="ln-342"></a>         <span class="kt">integer</span><span class="p">,</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">unit</span>       <span class="c">!! File unit number</span>
-<a name="ln-343"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">iotype</span>     <span class="c">!! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. </span>
-<a name="ln-344"></a>                                                              <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
-<a name="ln-345"></a>         <span class="kt">integer</span><span class="p">,</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">v_list</span><span class="p">(:)</span>  <span class="c">!! The first element passes the integrator code to the reader</span>
-<a name="ln-346"></a>         <span class="kt">integer</span><span class="p">,</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">iostat</span>     <span class="c">!! IO status code</span>
-<a name="ln-347"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iomsg</span>      <span class="c">!! Message to pass if iostat /= 0</span>
-<a name="ln-348"></a>      <span class="k">end subroutine </span><span class="n">symba_io_param_reader</span>
-<a name="ln-349"></a>   
-<a name="ln-350"></a>      <span class="k">module subroutine </span><span class="n">symba_io_param_writer</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
-<a name="ln-351"></a>         <span class="k">implicit none</span>
-<a name="ln-352"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Current run configuration parameters with SyMBA additions</span>
-<a name="ln-353"></a>         <span class="kt">integer</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">unit</span>      <span class="c">!! File unit number</span>
-<a name="ln-354"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">iotype</span>    <span class="c">!! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. </span>
-<a name="ln-355"></a>                                                            <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
-<a name="ln-356"></a>         <span class="kt">integer</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">v_list</span><span class="p">(:)</span> <span class="c">!! Not used in this procedure</span>
-<a name="ln-357"></a>         <span class="kt">integer</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">iostat</span>    <span class="c">!! IO status code</span>
-<a name="ln-358"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iomsg</span>     <span class="c">!! Message to pass if iostat /= 0</span>
-<a name="ln-359"></a>      <span class="k">end subroutine </span><span class="n">symba_io_param_writer</span>
-<a name="ln-360"></a>   
-<a name="ln-361"></a>      <span class="k">module subroutine </span><span class="n">symba_io_initialize_particle_info</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
-<a name="ln-362"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
-<a name="ln-363"></a>         <span class="k">implicit none</span>
-<a name="ln-364"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA particle info object</span>
-<a name="ln-365"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-366"></a>      <span class="k">end subroutine </span><span class="n">symba_io_initialize_particle_info</span>
-<a name="ln-367"></a>
-<a name="ln-368"></a>      <span class="k">module subroutine </span><span class="n">symba_io_read_frame_info</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-369"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
-<a name="ln-370"></a>         <span class="k">implicit none</span>
-<a name="ln-371"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA particle info object</span>
-<a name="ln-372"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>    <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-373"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-374"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">form</span>  <span class="c">!! Input format code (&quot;XV&quot; or &quot;EL&quot;)</span>
-<a name="ln-375"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>  <span class="c">!! Error code</span>
-<a name="ln-376"></a>      <span class="k">end subroutine </span><span class="n">symba_io_read_frame_info</span>
-<a name="ln-377"></a>
-<a name="ln-378"></a>      <span class="k">module subroutine </span><span class="n">symba_kick_getacch_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
-<a name="ln-379"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
-<a name="ln-380"></a>         <span class="k">implicit none</span>
-<a name="ln-381"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA massive body particle data structure</span>
-<a name="ln-382"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-383"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
-<a name="ln-384"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>      <span class="c">!! Current simulation time</span>
-<a name="ln-385"></a>         <span class="kt">logical</span><span class="p">,</span>                      <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lbeg</span>   <span class="c">!! Logical flag that determines whether or not this is the beginning or end of the step</span>
-<a name="ln-386"></a>      <span class="k">end subroutine </span><span class="n">symba_kick_getacch_pl</span>
-<a name="ln-387"></a>
-<a name="ln-388"></a>      <span class="k">module subroutine </span><span class="n">symba_kick_getacch_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
-<a name="ln-389"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
-<a name="ln-390"></a>         <span class="k">implicit none</span>
-<a name="ln-391"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA test particle data structure</span>
-<a name="ln-392"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-393"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
-<a name="ln-394"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>      <span class="c">!! Current time</span>
-<a name="ln-395"></a>         <span class="kt">logical</span><span class="p">,</span>                      <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lbeg</span>   <span class="c">!! Logical flag that determines whether or not this is the beginning or end of the step</span>
-<a name="ln-396"></a>      <span class="k">end subroutine </span><span class="n">symba_kick_getacch_tp</span>
-<a name="ln-397"></a>
-<a name="ln-398"></a>      <span class="k">module subroutine </span><span class="n">symba_kick_pltpenc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">irec</span><span class="p">,</span> <span class="n">sgn</span><span class="p">)</span>
-<a name="ln-399"></a>         <span class="k">implicit none</span>
-<a name="ln-400"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA pl-tp encounter list object</span>
-<a name="ln-401"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-402"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>     <span class="c">!! step size</span>
-<a name="ln-403"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">irec</span>   <span class="c">!! Current recursion level</span>
-<a name="ln-404"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sgn</span>    <span class="c">!! sign to be applied to acceleration</span>
-<a name="ln-405"></a>      <span class="k">end subroutine </span><span class="n">symba_kick_pltpenc</span>
+<a name="ln-160"></a>   <span class="k">type</span><span class="p">,</span> <span class="k">extends</span><span class="p">(</span><span class="n">helio_nbody_system</span><span class="p">)</span> <span class="kd">::</span> <span class="n">symba_nbody_system</span>
+<a name="ln-161"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_merger</span><span class="p">),</span>  <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">pl_adds</span> <span class="c">!! List of added bodies in mergers or collisions</span>
+<a name="ln-162"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">pltpenc_list</span>  <span class="c">!! List of massive body-test particle encounters in a single step </span>
+<a name="ln-163"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_plplenc</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">plplenc_list</span>  <span class="c">!! List of massive body-massive body encounters in a single step</span>
+<a name="ln-164"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                      <span class="kd">::</span> <span class="n">irec</span>          <span class="c">!! System recursion level</span>
+<a name="ln-165"></a>   <span class="k">contains</span>
+<a name="ln-166"></a><span class="k">      procedure</span> <span class="kd">::</span> <span class="n">write_discard</span>    <span class="o">=&gt;</span> <span class="n">symba_io_write_discard</span>             <span class="c">!! Write out information about discarded and merged planets and test particles in SyMBA</span>
+<a name="ln-167"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">initialize</span>       <span class="o">=&gt;</span> <span class="n">symba_setup_initialize_system</span>      <span class="c">!! Performs SyMBA-specific initilization steps</span>
+<a name="ln-168"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">step</span>             <span class="o">=&gt;</span> <span class="n">symba_step_system</span>                  <span class="c">!! Advance the SyMBA nbody system forward in time by one step</span>
+<a name="ln-169"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">interp</span>           <span class="o">=&gt;</span> <span class="n">symba_step_interp_system</span>           <span class="c">!! Perform an interpolation step on the SymBA nbody system </span>
+<a name="ln-170"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">set_recur_levels</span> <span class="o">=&gt;</span> <span class="n">symba_step_set_recur_levels_system</span> <span class="c">!! Sets recursion levels of bodies and encounter lists to the current system level</span>
+<a name="ln-171"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">recursive_step</span>   <span class="o">=&gt;</span> <span class="n">symba_step_recur_system</span>            <span class="c">!! Step interacting planets and active test particles ahead in democratic heliocentric coordinates at the current recursion level, if applicable, and descend to the next deeper level if necessary</span>
+<a name="ln-172"></a>      <span class="k">procedure</span> <span class="kd">::</span> <span class="n">reset</span>            <span class="o">=&gt;</span> <span class="n">symba_step_reset_system</span>            <span class="c">!! Resets pl, tp,and encounter structures at the start of a new step </span>
+<a name="ln-173"></a>   <span class="k">end type </span><span class="n">symba_nbody_system</span>
+<a name="ln-174"></a>
+<a name="ln-175"></a>   <span class="k">interface</span>
+<a name="ln-176"></a><span class="k">      module subroutine </span><span class="n">symba_collision_check_pltpenc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">irec</span><span class="p">)</span>
+<a name="ln-177"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
+<a name="ln-178"></a>         <span class="k">implicit none</span>
+<a name="ln-179"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA pl-tp encounter list object</span>
+<a name="ln-180"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-181"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-182"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>      <span class="c">!! current time</span>
+<a name="ln-183"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>     <span class="c">!! step size</span>
+<a name="ln-184"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">irec</span>   <span class="c">!! Current recursion level</span>
+<a name="ln-185"></a>      <span class="k">end subroutine </span><span class="n">symba_collision_check_pltpenc</span>
+<a name="ln-186"></a>
+<a name="ln-187"></a>      <span class="k">module subroutine </span><span class="n">symba_collision_encounter_scrub</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-188"></a>         <span class="k">implicit none</span>
+<a name="ln-189"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_plplenc</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA pl-pl encounter list</span>
+<a name="ln-190"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-191"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameterss</span>
+<a name="ln-192"></a>      <span class="k">end subroutine</span>
+<a name="ln-193"></a>
+<a name="ln-194"></a><span class="k">      module subroutine </span><span class="n">symba_collision_make_family_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span><span class="n">idx</span><span class="p">)</span>
+<a name="ln-195"></a>         <span class="k">implicit none</span>
+<a name="ln-196"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! SyMBA massive body object</span>
+<a name="ln-197"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">idx</span> <span class="c">!! Array holding the indices of the two bodies involved in the collision</span>
+<a name="ln-198"></a>      <span class="k">end subroutine </span><span class="n">symba_collision_make_family_pl</span>
+<a name="ln-199"></a>
+<a name="ln-200"></a>      <span class="k">module subroutine </span><span class="n">symba_collision_resolve_fragmentations</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-201"></a>         <span class="k">implicit none</span>
+<a name="ln-202"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_plplenc</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA pl-pl encounter list</span>
+<a name="ln-203"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-204"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters with SyMBA additions</span>
+<a name="ln-205"></a>      <span class="k">end subroutine </span><span class="n">symba_collision_resolve_fragmentations</span>
+<a name="ln-206"></a>   
+<a name="ln-207"></a>      <span class="k">module subroutine </span><span class="n">symba_collision_resolve_mergers</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-208"></a>         <span class="k">implicit none</span>
+<a name="ln-209"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_plplenc</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA pl-pl encounter list</span>
+<a name="ln-210"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-211"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters with SyMBA additions</span>
+<a name="ln-212"></a>      <span class="k">end subroutine </span><span class="n">symba_collision_resolve_mergers</span>
+<a name="ln-213"></a>
+<a name="ln-214"></a>      <span class="k">module subroutine </span><span class="n">symba_discard_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-215"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
+<a name="ln-216"></a>         <span class="k">implicit none</span>
+<a name="ln-217"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA test particle object</span>
+<a name="ln-218"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-219"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-220"></a>      <span class="k">end subroutine </span><span class="n">symba_discard_pl</span>
+<a name="ln-221"></a>
+<a name="ln-222"></a>      <span class="k">module subroutine </span><span class="n">symba_drift_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
+<a name="ln-223"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
+<a name="ln-224"></a>         <span class="k">implicit none</span>
+<a name="ln-225"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Helio massive body object</span>
+<a name="ln-226"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-227"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-228"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>     <span class="c">!! Stepsize</span>
+<a name="ln-229"></a>      <span class="k">end subroutine </span><span class="n">symba_drift_pl</span>
+<a name="ln-230"></a>   
+<a name="ln-231"></a>      <span class="k">module subroutine </span><span class="n">symba_drift_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
+<a name="ln-232"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
+<a name="ln-233"></a>         <span class="k">implicit none</span>
+<a name="ln-234"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Helio massive body object</span>
+<a name="ln-235"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-236"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-237"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>     <span class="c">!! Stepsize</span>
+<a name="ln-238"></a>      <span class="k">end subroutine </span><span class="n">symba_drift_tp</span>
+<a name="ln-239"></a>
+<a name="ln-240"></a>      <span class="k">module pure elemental subroutine </span><span class="n">symba_encounter_check_one</span><span class="p">(</span><span class="n">xr</span><span class="p">,</span> <span class="n">yr</span><span class="p">,</span> <span class="n">zr</span><span class="p">,</span> <span class="n">vxr</span><span class="p">,</span> <span class="n">vyr</span><span class="p">,</span> <span class="n">vzr</span><span class="p">,</span> <span class="n">rhill1</span><span class="p">,</span> <span class="n">rhill2</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">irec</span><span class="p">,</span> <span class="n">lencounter</span><span class="p">,</span> <span class="n">lvdotr</span><span class="p">)</span>
+<a name="ln-241"></a>         <span class="k">implicit none</span>
+<a name="ln-242"></a><span class="k">         </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">xr</span><span class="p">,</span> <span class="n">yr</span><span class="p">,</span> <span class="n">zr</span><span class="p">,</span> <span class="n">vxr</span><span class="p">,</span> <span class="n">vyr</span><span class="p">,</span> <span class="n">vzr</span>
+<a name="ln-243"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">rhill1</span><span class="p">,</span> <span class="n">rhill2</span><span class="p">,</span> <span class="n">dt</span>
+<a name="ln-244"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>  <span class="kd">::</span> <span class="n">irec</span>
+<a name="ln-245"></a>         <span class="kt">logical</span><span class="p">,</span>      <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lencounter</span><span class="p">,</span> <span class="n">lvdotr</span>
+<a name="ln-246"></a>      <span class="k">end subroutine </span><span class="n">symba_encounter_check_one</span>
+<a name="ln-247"></a>
+<a name="ln-248"></a>      <span class="k">module function </span><span class="n">symba_encounter_check_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">irec</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">lany_encounter</span><span class="p">)</span>
+<a name="ln-249"></a>         <span class="k">implicit none</span>
+<a name="ln-250"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! SyMBA test particle object  </span>
+<a name="ln-251"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>     <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-252"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>         <span class="c">!! step size</span>
+<a name="ln-253"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">irec</span>       <span class="c">!! Current recursion level </span>
+<a name="ln-254"></a>         <span class="kt">logical</span>                                  <span class="kd">::</span> <span class="n">lany_encounter</span> <span class="c">!! Returns true if there is at least one close encounter      </span>
+<a name="ln-255"></a>      <span class="k">end function </span><span class="n">symba_encounter_check_pl</span>
+<a name="ln-256"></a>
+<a name="ln-257"></a>      <span class="k">module function </span><span class="n">symba_encounter_check_pltpenc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">irec</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">lany_encounter</span><span class="p">)</span>
+<a name="ln-258"></a>         <span class="k">implicit none</span>
+<a name="ln-259"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>           <span class="c">!! SyMBA pl-pl encounter list object</span>
+<a name="ln-260"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>         <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-261"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>             <span class="c">!! step size</span>
+<a name="ln-262"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">irec</span>           <span class="c">!! Current recursion level </span>
+<a name="ln-263"></a>         <span class="kt">logical</span>                                  <span class="kd">::</span> <span class="n">lany_encounter</span> <span class="c">!! Returns true if there is at least one close encounter      </span>
+<a name="ln-264"></a>      <span class="k">end function </span><span class="n">symba_encounter_check_pltpenc</span>
+<a name="ln-265"></a>
+<a name="ln-266"></a>      <span class="k">module function </span><span class="n">symba_encounter_check_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">irec</span><span class="p">)</span> <span class="k">result</span><span class="p">(</span><span class="n">lany_encounter</span><span class="p">)</span>
+<a name="ln-267"></a>         <span class="k">implicit none</span>
+<a name="ln-268"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>           <span class="c">!! SyMBA test particle object  </span>
+<a name="ln-269"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>         <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-270"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>             <span class="c">!! step size</span>
+<a name="ln-271"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">irec</span>           <span class="c">!! Current recursion level </span>
+<a name="ln-272"></a>         <span class="kt">logical</span>                                  <span class="kd">::</span> <span class="n">lany_encounter</span> <span class="c">!! Returns true if there is at least one close encounter      </span>
+<a name="ln-273"></a>      <span class="k">end function </span><span class="n">symba_encounter_check_tp</span>
+<a name="ln-274"></a>
+<a name="ln-275"></a>      <span class="k">module function </span><span class="n">symba_fragmentation_casedisruption</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass_res</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">)</span>  <span class="k">result</span><span class="p">(</span><span class="n">status</span><span class="p">)</span>
+<a name="ln-276"></a>         <span class="k">implicit none</span>
+<a name="ln-277"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>           <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-278"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>            <span class="c">!! Current run configuration parameters with SyMBA additions</span>
+<a name="ln-279"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">family</span>           <span class="c">!! List of indices of all bodies inovlved in the collision</span>
+<a name="ln-280"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span> <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
+<a name="ln-281"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
+<a name="ln-282"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass_res</span>         <span class="c">!! The distribution of fragment mass obtained by the regime calculation </span>
+<a name="ln-283"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Qloss</span>            <span class="c">!! Energy lost during collisionn</span>
+<a name="ln-284"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">status</span>           <span class="c">!! Status flag assigned to this outcome</span>
+<a name="ln-285"></a>      <span class="k">end function </span><span class="n">symba_fragmentation_casedisruption</span>
+<a name="ln-286"></a>   
+<a name="ln-287"></a>      <span class="k">module function </span><span class="n">symba_fragmentation_casehitandrun</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass_res</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">)</span>  <span class="k">result</span><span class="p">(</span><span class="n">status</span><span class="p">)</span>
+<a name="ln-288"></a>         <span class="k">implicit none</span>
+<a name="ln-289"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>           <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-290"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>            <span class="c">!! Current run configuration parameters with SyMBA additions</span>
+<a name="ln-291"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">family</span>           <span class="c">!! List of indices of all bodies inovlved in the collision</span>
+<a name="ln-292"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span> <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
+<a name="ln-293"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
+<a name="ln-294"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass_res</span>         <span class="c">!! The distribution of fragment mass obtained by the regime calculation </span>
+<a name="ln-295"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Qloss</span>            <span class="c">!! Energy lost during collision</span>
+<a name="ln-296"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">status</span>           <span class="c">!! Status flag assigned to this outcome</span>
+<a name="ln-297"></a>      <span class="k">end function </span><span class="n">symba_fragmentation_casehitandrun</span>
+<a name="ln-298"></a>
+<a name="ln-299"></a>      <span class="k">module function </span><span class="n">symba_fragmentation_casemerge</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">)</span>  <span class="k">result</span><span class="p">(</span><span class="n">status</span><span class="p">)</span>
+<a name="ln-300"></a>         <span class="k">implicit none</span>
+<a name="ln-301"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>           <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-302"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>            <span class="c">!! Current run configuration parameters with SyMBA additions</span>
+<a name="ln-303"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">family</span>           <span class="c">!! List of indices of all bodies inovlved in the collision</span>
+<a name="ln-304"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span> <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
+<a name="ln-305"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collisio</span>
+<a name="ln-306"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">status</span>           <span class="c">!! Status flag assigned to this outcome</span>
+<a name="ln-307"></a>      <span class="k">end function </span><span class="n">symba_fragmentation_casemerge</span>
+<a name="ln-308"></a>
+<a name="ln-309"></a>      <span class="k">module function </span><span class="n">symba_fragmentation_casesupercatastrophic</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass_res</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">)</span>  <span class="k">result</span><span class="p">(</span><span class="n">status</span><span class="p">)</span>
+<a name="ln-310"></a>         <span class="k">implicit none</span>
+<a name="ln-311"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>           <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-312"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>            <span class="c">!! Current run configuration parameters with SyMBA additions</span>
+<a name="ln-313"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">family</span>           <span class="c">!! List of indices of all bodies inovlved in the collision</span>
+<a name="ln-314"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span> <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
+<a name="ln-315"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
+<a name="ln-316"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass_res</span>         <span class="c">!! The distribution of fragment mass obtained by the regime calculation </span>
+<a name="ln-317"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Qloss</span>            <span class="c">!! Energy lost during collision</span>
+<a name="ln-318"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">status</span>           <span class="c">!! Status flag assigned to this outcome</span>
+<a name="ln-319"></a>      <span class="k">end function </span><span class="n">symba_fragmentation_casesupercatastrophic</span>
+<a name="ln-320"></a>
+<a name="ln-321"></a>      <span class="k">module subroutine </span><span class="n">symba_io_write_discard</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-322"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
+<a name="ln-323"></a>         <span class="k">implicit none</span>
+<a name="ln-324"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-325"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-326"></a>      <span class="k">end subroutine </span><span class="n">symba_io_write_discard</span>
+<a name="ln-327"></a>
+<a name="ln-328"></a>      <span class="k">module subroutine </span><span class="n">symba_io_dump_particle_info</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">lincludecb</span><span class="p">,</span> <span class="n">tpidx</span><span class="p">,</span> <span class="n">plidx</span><span class="p">)</span> 
+<a name="ln-329"></a>         <span class="k">implicit none</span>
+<a name="ln-330"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>             <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-331"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters with SyMBA extensions</span>
+<a name="ln-332"></a>         <span class="kt">logical</span><span class="p">,</span>                     <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lincludecb</span>  <span class="c">!! Set to true to include the central body (default is false)</span>
+<a name="ln-333"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>  <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">tpidx</span>  <span class="c">!! Array of test particle indices to append to the particle file</span>
+<a name="ln-334"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>  <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">plidx</span>  <span class="c">!! Array of massive body indices to append to the particle file</span>
+<a name="ln-335"></a>      <span class="k">end subroutine </span><span class="n">symba_io_dump_particle_info</span>
+<a name="ln-336"></a>   
+<a name="ln-337"></a>      <span class="k">module subroutine </span><span class="n">symba_io_param_reader</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
+<a name="ln-338"></a>         <span class="k">implicit none</span>
+<a name="ln-339"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! Current run configuration parameters with SyMBA additionss</span>
+<a name="ln-340"></a>         <span class="kt">integer</span><span class="p">,</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">unit</span>       <span class="c">!! File unit number</span>
+<a name="ln-341"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">iotype</span>     <span class="c">!! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. </span>
+<a name="ln-342"></a>                                                              <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
+<a name="ln-343"></a>         <span class="kt">integer</span><span class="p">,</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">v_list</span><span class="p">(:)</span>  <span class="c">!! The first element passes the integrator code to the reader</span>
+<a name="ln-344"></a>         <span class="kt">integer</span><span class="p">,</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">iostat</span>     <span class="c">!! IO status code</span>
+<a name="ln-345"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iomsg</span>      <span class="c">!! Message to pass if iostat /= 0</span>
+<a name="ln-346"></a>      <span class="k">end subroutine </span><span class="n">symba_io_param_reader</span>
+<a name="ln-347"></a>   
+<a name="ln-348"></a>      <span class="k">module subroutine </span><span class="n">symba_io_param_writer</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
+<a name="ln-349"></a>         <span class="k">implicit none</span>
+<a name="ln-350"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Current run configuration parameters with SyMBA additions</span>
+<a name="ln-351"></a>         <span class="kt">integer</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">unit</span>      <span class="c">!! File unit number</span>
+<a name="ln-352"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">iotype</span>    <span class="c">!! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. </span>
+<a name="ln-353"></a>                                                            <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
+<a name="ln-354"></a>         <span class="kt">integer</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">v_list</span><span class="p">(:)</span> <span class="c">!! Not used in this procedure</span>
+<a name="ln-355"></a>         <span class="kt">integer</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">iostat</span>    <span class="c">!! IO status code</span>
+<a name="ln-356"></a>         <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iomsg</span>     <span class="c">!! Message to pass if iostat /= 0</span>
+<a name="ln-357"></a>      <span class="k">end subroutine </span><span class="n">symba_io_param_writer</span>
+<a name="ln-358"></a>
+<a name="ln-359"></a>      <span class="k">module subroutine </span><span class="n">symba_io_read_particle</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-360"></a>         <span class="k">implicit none</span>
+<a name="ln-361"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! SyMBA nbody system file</span>
+<a name="ln-362"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters with SyMBA extensions</span>
+<a name="ln-363"></a>      <span class="k">end subroutine </span><span class="n">symba_io_read_particle</span>
+<a name="ln-364"></a>
+<a name="ln-365"></a>      <span class="k">module subroutine </span><span class="n">symba_kick_getacch_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
+<a name="ln-366"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
+<a name="ln-367"></a>         <span class="k">implicit none</span>
+<a name="ln-368"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA massive body particle data structure</span>
+<a name="ln-369"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-370"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-371"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>      <span class="c">!! Current simulation time</span>
+<a name="ln-372"></a>         <span class="kt">logical</span><span class="p">,</span>                      <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lbeg</span>   <span class="c">!! Logical flag that determines whether or not this is the beginning or end of the step</span>
+<a name="ln-373"></a>      <span class="k">end subroutine </span><span class="n">symba_kick_getacch_pl</span>
+<a name="ln-374"></a>
+<a name="ln-375"></a>      <span class="k">module subroutine </span><span class="n">symba_kick_getacch_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">lbeg</span><span class="p">)</span>
+<a name="ln-376"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
+<a name="ln-377"></a>         <span class="k">implicit none</span>
+<a name="ln-378"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA test particle data structure</span>
+<a name="ln-379"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-380"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-381"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>      <span class="c">!! Current time</span>
+<a name="ln-382"></a>         <span class="kt">logical</span><span class="p">,</span>                      <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lbeg</span>   <span class="c">!! Logical flag that determines whether or not this is the beginning or end of the step</span>
+<a name="ln-383"></a>      <span class="k">end subroutine </span><span class="n">symba_kick_getacch_tp</span>
+<a name="ln-384"></a>
+<a name="ln-385"></a>      <span class="k">module subroutine </span><span class="n">symba_kick_pltpenc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">irec</span><span class="p">,</span> <span class="n">sgn</span><span class="p">)</span>
+<a name="ln-386"></a>         <span class="k">implicit none</span>
+<a name="ln-387"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA pl-tp encounter list object</span>
+<a name="ln-388"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-389"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>     <span class="c">!! step size</span>
+<a name="ln-390"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">irec</span>   <span class="c">!! Current recursion level</span>
+<a name="ln-391"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sgn</span>    <span class="c">!! sign to be applied to acceleration</span>
+<a name="ln-392"></a>      <span class="k">end subroutine </span><span class="n">symba_kick_pltpenc</span>
+<a name="ln-393"></a>   
+<a name="ln-394"></a>      <span class="k">module subroutine </span><span class="n">symba_setup_initialize_particle_info</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
+<a name="ln-395"></a>         <span class="k">implicit none</span>
+<a name="ln-396"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-397"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters with SyMBA extensions</span>
+<a name="ln-398"></a>      <span class="k">end subroutine </span><span class="n">symba_setup_initialize_particle_info</span>
+<a name="ln-399"></a>
+<a name="ln-400"></a>      <span class="k">module subroutine </span><span class="n">symba_setup_initialize_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-401"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
+<a name="ln-402"></a>         <span class="k">implicit none</span>
+<a name="ln-403"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA system object</span>
+<a name="ln-404"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-405"></a>      <span class="k">end subroutine </span><span class="n">symba_setup_initialize_system</span>
 <a name="ln-406"></a>
-<a name="ln-407"></a>      <span class="k">module subroutine </span><span class="n">symba_io_write_frame_info</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-407"></a>      <span class="k">module subroutine </span><span class="n">symba_setup_merger</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
 <a name="ln-408"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
 <a name="ln-409"></a>         <span class="k">implicit none</span>
-<a name="ln-410"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA particle info object</span>
-<a name="ln-411"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>    <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-412"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-413"></a>      <span class="k">end subroutine </span><span class="n">symba_io_write_frame_info</span> 
+<a name="ln-410"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_merger</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA merger list object</span>
+<a name="ln-411"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
+<a name="ln-412"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
+<a name="ln-413"></a>      <span class="k">end subroutine </span><span class="n">symba_setup_merger</span>
 <a name="ln-414"></a>
-<a name="ln-415"></a>      <span class="k">module subroutine </span><span class="n">symba_setup_initialize_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-415"></a>      <span class="k">module subroutine </span><span class="n">symba_setup_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
 <a name="ln-416"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
 <a name="ln-417"></a>         <span class="k">implicit none</span>
-<a name="ln-418"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA system object</span>
-<a name="ln-419"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-420"></a>      <span class="k">end subroutine </span><span class="n">symba_setup_initialize_system</span>
-<a name="ln-421"></a>
-<a name="ln-422"></a>      <span class="k">module subroutine </span><span class="n">symba_setup_merger</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-423"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
+<a name="ln-418"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA massive body object</span>
+<a name="ln-419"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
+<a name="ln-420"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
+<a name="ln-421"></a>      <span class="k">end subroutine </span><span class="n">symba_setup_pl</span>
+<a name="ln-422"></a>
+<a name="ln-423"></a>      <span class="k">module subroutine </span><span class="n">symba_setup_pltpenc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span><span class="n">n</span><span class="p">)</span>
 <a name="ln-424"></a>         <span class="k">implicit none</span>
-<a name="ln-425"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_merger</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA merger list object</span>
-<a name="ln-426"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
-<a name="ln-427"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
-<a name="ln-428"></a>      <span class="k">end subroutine </span><span class="n">symba_setup_merger</span>
-<a name="ln-429"></a>
-<a name="ln-430"></a>      <span class="k">module subroutine </span><span class="n">symba_setup_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-431"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
-<a name="ln-432"></a>         <span class="k">implicit none</span>
-<a name="ln-433"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA massive body object</span>
-<a name="ln-434"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
-<a name="ln-435"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters</span>
-<a name="ln-436"></a>      <span class="k">end subroutine </span><span class="n">symba_setup_pl</span>
-<a name="ln-437"></a>
-<a name="ln-438"></a>      <span class="k">module subroutine </span><span class="n">symba_setup_pltpenc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span><span class="n">n</span><span class="p">)</span>
+<a name="ln-425"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! SyMBA pl-tp encounter structure</span>
+<a name="ln-426"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>    <span class="c">!! Number of encounters to allocate space for</span>
+<a name="ln-427"></a>      <span class="k">end subroutine </span><span class="n">symba_setup_pltpenc</span>
+<a name="ln-428"></a>
+<a name="ln-429"></a>      <span class="k">module subroutine </span><span class="n">symba_setup_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-430"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
+<a name="ln-431"></a>         <span class="k">implicit none</span>
+<a name="ln-432"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA test particle object</span>
+<a name="ln-433"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
+<a name="ln-434"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameter</span>
+<a name="ln-435"></a>      <span class="k">end subroutine </span><span class="n">symba_setup_tp</span>
+<a name="ln-436"></a>
+<a name="ln-437"></a>      <span class="k">module subroutine </span><span class="n">symba_step_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
+<a name="ln-438"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
 <a name="ln-439"></a>         <span class="k">implicit none</span>
-<a name="ln-440"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! SyMBA pl-tp encounter structure</span>
-<a name="ln-441"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>    <span class="c">!! Number of encounters to allocate space for</span>
-<a name="ln-442"></a>      <span class="k">end subroutine </span><span class="n">symba_setup_pltpenc</span>
-<a name="ln-443"></a>
-<a name="ln-444"></a>      <span class="k">module subroutine </span><span class="n">symba_setup_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-445"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
-<a name="ln-446"></a>         <span class="k">implicit none</span>
-<a name="ln-447"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA test particle object</span>
-<a name="ln-448"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
-<a name="ln-449"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameter</span>
-<a name="ln-450"></a>      <span class="k">end subroutine </span><span class="n">symba_setup_tp</span>
-<a name="ln-451"></a>
-<a name="ln-452"></a>      <span class="k">module subroutine </span><span class="n">symba_step_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
-<a name="ln-453"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
-<a name="ln-454"></a>         <span class="k">implicit none</span>
-<a name="ln-455"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-456"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-457"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>     <span class="c">!! Simulation time</span>
-<a name="ln-458"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>    <span class="c">!! Current stepsize</span>
-<a name="ln-459"></a>      <span class="k">end subroutine </span><span class="n">symba_step_system</span>
+<a name="ln-440"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-441"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-442"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>     <span class="c">!! Simulation time</span>
+<a name="ln-443"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>    <span class="c">!! Current stepsize</span>
+<a name="ln-444"></a>      <span class="k">end subroutine </span><span class="n">symba_step_system</span>
+<a name="ln-445"></a>
+<a name="ln-446"></a>      <span class="k">module subroutine </span><span class="n">symba_step_interp_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
+<a name="ln-447"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
+<a name="ln-448"></a>         <span class="k">implicit none</span>
+<a name="ln-449"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-450"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-451"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>     <span class="c">!! Simulation time</span>
+<a name="ln-452"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>    <span class="c">!! Current stepsize</span>
+<a name="ln-453"></a>      <span class="k">end subroutine </span><span class="n">symba_step_interp_system</span>
+<a name="ln-454"></a>
+<a name="ln-455"></a>      <span class="k">module subroutine </span><span class="n">symba_step_set_recur_levels_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ireci</span><span class="p">)</span>
+<a name="ln-456"></a>         <span class="k">implicit none</span>
+<a name="ln-457"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA nbody system objec</span>
+<a name="ln-458"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ireci</span> <span class="c">!! Input recursion level</span>
+<a name="ln-459"></a>      <span class="k">end subroutine </span><span class="n">symba_step_set_recur_levels_system</span>
 <a name="ln-460"></a>
-<a name="ln-461"></a>      <span class="k">module subroutine </span><span class="n">symba_step_interp_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">dt</span><span class="p">)</span>
+<a name="ln-461"></a>      <span class="k">module recursive subroutine </span><span class="n">symba_step_recur_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">ireci</span><span class="p">)</span>
 <a name="ln-462"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
 <a name="ln-463"></a>         <span class="k">implicit none</span>
 <a name="ln-464"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA nbody system object</span>
 <a name="ln-465"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-466"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">t</span>     <span class="c">!! Simulation time</span>
-<a name="ln-467"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">dt</span>    <span class="c">!! Current stepsize</span>
-<a name="ln-468"></a>      <span class="k">end subroutine </span><span class="n">symba_step_interp_system</span>
+<a name="ln-466"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">value</span>         <span class="kd">::</span> <span class="n">t</span>
+<a name="ln-467"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">value</span>         <span class="kd">::</span> <span class="n">ireci</span> <span class="c">!! input recursion level</span>
+<a name="ln-468"></a>      <span class="k">end subroutine </span><span class="n">symba_step_recur_system</span>
 <a name="ln-469"></a>
-<a name="ln-470"></a>      <span class="k">module subroutine </span><span class="n">symba_step_set_recur_levels_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ireci</span><span class="p">)</span>
+<a name="ln-470"></a>      <span class="k">module subroutine </span><span class="n">symba_step_reset_system</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
 <a name="ln-471"></a>         <span class="k">implicit none</span>
-<a name="ln-472"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA nbody system objec</span>
-<a name="ln-473"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ireci</span> <span class="c">!! Input recursion level</span>
-<a name="ln-474"></a>      <span class="k">end subroutine </span><span class="n">symba_step_set_recur_levels_system</span>
+<a name="ln-472"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-473"></a>      <span class="k">end subroutine </span><span class="n">symba_step_reset_system</span>
+<a name="ln-474"></a>   <span class="k">end interface</span>
 <a name="ln-475"></a>
-<a name="ln-476"></a>      <span class="k">module recursive subroutine </span><span class="n">symba_step_recur_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">t</span><span class="p">,</span> <span class="n">ireci</span><span class="p">)</span>
-<a name="ln-477"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_parameters</span>
+<a name="ln-476"></a><span class="k">   interface </span><span class="n">util_append</span>
+<a name="ln-477"></a>      <span class="k">module subroutine </span><span class="n">symba_util_append_arr_info</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
 <a name="ln-478"></a>         <span class="k">implicit none</span>
-<a name="ln-479"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-480"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-481"></a>         <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                   <span class="k">value</span>         <span class="kd">::</span> <span class="n">t</span>
-<a name="ln-482"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">value</span>         <span class="kd">::</span> <span class="n">ireci</span> <span class="c">!! input recursion level</span>
-<a name="ln-483"></a>      <span class="k">end subroutine </span><span class="n">symba_step_recur_system</span>
-<a name="ln-484"></a>
-<a name="ln-485"></a>      <span class="k">module subroutine </span><span class="n">symba_step_reset_system</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-479"></a><span class="k">         type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
+<a name="ln-480"></a>         <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
+<a name="ln-481"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span>   <span class="c">!! Extend of the old array and the source array, respectively</span>
+<a name="ln-482"></a>         <span class="kt">logical</span><span class="p">,</span>                   <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-483"></a>      <span class="k">end subroutine </span><span class="n">symba_util_append_arr_info</span>
+<a name="ln-484"></a>     
+<a name="ln-485"></a>      <span class="k">module subroutine </span><span class="n">symba_util_append_arr_kin</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
 <a name="ln-486"></a>         <span class="k">implicit none</span>
-<a name="ln-487"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-488"></a>      <span class="k">end subroutine </span><span class="n">symba_step_reset_system</span>
-<a name="ln-489"></a>   <span class="k">end interface</span>
-<a name="ln-490"></a>
-<a name="ln-491"></a><span class="k">   interface </span><span class="n">util_append</span>
-<a name="ln-492"></a>      <span class="k">module subroutine </span><span class="n">symba_util_append_arr_info</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-493"></a>         <span class="k">implicit none</span>
-<a name="ln-494"></a><span class="k">         type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
-<a name="ln-495"></a>         <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
-<a name="ln-496"></a>         <span class="kt">logical</span><span class="p">,</span>                   <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-497"></a>      <span class="k">end subroutine </span><span class="n">symba_util_append_arr_info</span>
-<a name="ln-498"></a>     
-<a name="ln-499"></a>      <span class="k">module subroutine </span><span class="n">symba_util_append_arr_kin</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-500"></a>         <span class="k">implicit none</span>
-<a name="ln-501"></a><span class="k">         type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
-<a name="ln-502"></a>         <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
-<a name="ln-503"></a>         <span class="kt">logical</span><span class="p">,</span>             <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-504"></a>      <span class="k">end subroutine </span><span class="n">symba_util_append_arr_kin</span>
-<a name="ln-505"></a>   <span class="k">end interface</span>
-<a name="ln-506"></a>
-<a name="ln-507"></a><span class="k">   interface</span>
-<a name="ln-508"></a><span class="k">      module subroutine </span><span class="n">symba_util_append_merger</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-509"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_body</span>
-<a name="ln-510"></a>         <span class="k">implicit none</span>
-<a name="ln-511"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_merger</span><span class="p">),</span>             <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA massive body object</span>
-<a name="ln-512"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
-<a name="ln-513"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-514"></a>      <span class="k">end subroutine </span><span class="n">symba_util_append_merger</span>
-<a name="ln-515"></a>
-<a name="ln-516"></a>      <span class="k">module subroutine </span><span class="n">symba_util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-517"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_body</span>
-<a name="ln-518"></a>         <span class="k">implicit none</span>
-<a name="ln-519"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA massive body object</span>
-<a name="ln-520"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
-<a name="ln-521"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-522"></a>      <span class="k">end subroutine </span><span class="n">symba_util_append_pl</span>
-<a name="ln-523"></a>
-<a name="ln-524"></a>      <span class="k">module subroutine </span><span class="n">symba_util_append_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-525"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_body</span>
-<a name="ln-526"></a>         <span class="k">implicit none</span>
-<a name="ln-527"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>        <span class="c">!! SyMBA test particle object</span>
-<a name="ln-528"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
-<a name="ln-529"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-530"></a>      <span class="k">end subroutine </span><span class="n">symba_util_append_tp</span>
-<a name="ln-531"></a>   <span class="k">end interface </span>
-<a name="ln-532"></a>
-<a name="ln-533"></a><span class="k">   interface </span><span class="n">util_fill</span>
-<a name="ln-534"></a>      <span class="k">module subroutine </span><span class="n">symba_util_fill_arr_info</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-535"></a>         <span class="k">implicit none</span>
-<a name="ln-536"></a><span class="k">         type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
-<a name="ln-537"></a>         <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
-<a name="ln-538"></a>         <span class="kt">logical</span><span class="p">,</span>                   <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-539"></a>      <span class="k">end subroutine </span><span class="n">symba_util_fill_arr_info</span>
-<a name="ln-540"></a>
-<a name="ln-541"></a>      <span class="k">module subroutine </span><span class="n">symba_util_fill_arr_kin</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-542"></a>         <span class="k">implicit none</span>
-<a name="ln-543"></a><span class="k">         type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
-<a name="ln-544"></a>         <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
-<a name="ln-545"></a>         <span class="kt">logical</span><span class="p">,</span>             <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-546"></a>      <span class="k">end subroutine </span><span class="n">symba_util_fill_arr_kin</span>
-<a name="ln-547"></a>   <span class="k">end interface</span>
-<a name="ln-548"></a>
-<a name="ln-549"></a><span class="k">   interface</span>
-<a name="ln-550"></a><span class="k">      module subroutine </span><span class="n">symba_util_fill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-551"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_body</span>
-<a name="ln-552"></a>         <span class="k">implicit none</span>
-<a name="ln-553"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! SyMBA massive body object</span>
-<a name="ln-554"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Inserted object </span>
-<a name="ln-555"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-556"></a>      <span class="k">end subroutine </span><span class="n">symba_util_fill_pl</span>
-<a name="ln-557"></a>
-<a name="ln-558"></a>      <span class="k">module subroutine </span><span class="n">symba_util_fill_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-559"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_body</span>
-<a name="ln-560"></a>         <span class="k">implicit none</span>
-<a name="ln-561"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! SyMBA test particle object</span>
-<a name="ln-562"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Inserted object </span>
-<a name="ln-563"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-564"></a>      <span class="k">end subroutine </span><span class="n">symba_util_fill_tp</span>
-<a name="ln-565"></a>
-<a name="ln-566"></a>      <span class="k">module subroutine </span><span class="n">symba_util_peri_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-567"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
-<a name="ln-568"></a>         <span class="k">implicit none</span>
-<a name="ln-569"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA massive body object</span>
-<a name="ln-570"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-571"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
-<a name="ln-572"></a>      <span class="k">end subroutine </span><span class="n">symba_util_peri_pl</span>
-<a name="ln-573"></a>
-<a name="ln-574"></a>      <span class="k">module subroutine </span><span class="n">symba_util_rearray_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-575"></a>         <span class="k">implicit none</span>
-<a name="ln-576"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA massive body object</span>
-<a name="ln-577"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-578"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters with SyMBA additions</span>
-<a name="ln-579"></a>      <span class="k">end subroutine </span><span class="n">symba_util_rearray_pl</span>
-<a name="ln-580"></a>   <span class="k">end interface</span>
-<a name="ln-581"></a>
-<a name="ln-582"></a><span class="k">   interface </span><span class="n">util_resize</span>
-<a name="ln-583"></a>      <span class="k">module subroutine </span><span class="n">symba_util_resize_arr_info</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-584"></a>         <span class="k">implicit none</span>
-<a name="ln-585"></a><span class="k">         type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
-<a name="ln-586"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
-<a name="ln-587"></a>      <span class="k">end subroutine </span><span class="n">symba_util_resize_arr_info</span>
-<a name="ln-588"></a>
-<a name="ln-589"></a>      <span class="k">module subroutine </span><span class="n">symba_util_resize_arr_kin</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-590"></a>         <span class="k">implicit none</span>
-<a name="ln-591"></a><span class="k">         type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
-<a name="ln-592"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
-<a name="ln-593"></a>      <span class="k">end subroutine </span><span class="n">symba_util_resize_arr_kin</span>
-<a name="ln-594"></a>   <span class="k">end interface</span>
-<a name="ln-595"></a><span class="k">   </span>
-<a name="ln-596"></a><span class="k">   interface</span>
-<a name="ln-597"></a><span class="k">      module subroutine </span><span class="n">symba_util_resize_merger</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-598"></a>         <span class="k">implicit none</span>
-<a name="ln-599"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_merger</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA merger list object</span>
-<a name="ln-600"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
-<a name="ln-601"></a>      <span class="k">end subroutine </span><span class="n">symba_util_resize_merger</span>
-<a name="ln-602"></a>
-<a name="ln-603"></a>      <span class="k">module subroutine </span><span class="n">symba_util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-604"></a>         <span class="k">implicit none</span>
-<a name="ln-605"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA massive body object</span>
-<a name="ln-606"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
-<a name="ln-607"></a>      <span class="k">end subroutine </span><span class="n">symba_util_resize_pl</span>
+<a name="ln-487"></a><span class="k">         type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
+<a name="ln-488"></a>         <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
+<a name="ln-489"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span>   <span class="c">!! Extend of the old array and the source array, respectively</span>
+<a name="ln-490"></a>         <span class="kt">logical</span><span class="p">,</span>             <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-491"></a>      <span class="k">end subroutine </span><span class="n">symba_util_append_arr_kin</span>
+<a name="ln-492"></a>   <span class="k">end interface</span>
+<a name="ln-493"></a>
+<a name="ln-494"></a><span class="k">   interface</span>
+<a name="ln-495"></a><span class="k">      module subroutine </span><span class="n">symba_util_append_merger</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-496"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_body</span>
+<a name="ln-497"></a>         <span class="k">implicit none</span>
+<a name="ln-498"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_merger</span><span class="p">),</span>             <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA massive body object</span>
+<a name="ln-499"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
+<a name="ln-500"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-501"></a>      <span class="k">end subroutine </span><span class="n">symba_util_append_merger</span>
+<a name="ln-502"></a>
+<a name="ln-503"></a>      <span class="k">module subroutine </span><span class="n">symba_util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-504"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_body</span>
+<a name="ln-505"></a>         <span class="k">implicit none</span>
+<a name="ln-506"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA massive body object</span>
+<a name="ln-507"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
+<a name="ln-508"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-509"></a>      <span class="k">end subroutine </span><span class="n">symba_util_append_pl</span>
+<a name="ln-510"></a>
+<a name="ln-511"></a>      <span class="k">module subroutine </span><span class="n">symba_util_append_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-512"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_body</span>
+<a name="ln-513"></a>         <span class="k">implicit none</span>
+<a name="ln-514"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>        <span class="c">!! SyMBA test particle object</span>
+<a name="ln-515"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
+<a name="ln-516"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-517"></a>      <span class="k">end subroutine </span><span class="n">symba_util_append_tp</span>
+<a name="ln-518"></a>   <span class="k">end interface </span>
+<a name="ln-519"></a>
+<a name="ln-520"></a><span class="k">   interface </span><span class="n">util_fill</span>
+<a name="ln-521"></a>      <span class="k">module subroutine </span><span class="n">symba_util_fill_arr_info</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-522"></a>         <span class="k">implicit none</span>
+<a name="ln-523"></a><span class="k">         type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
+<a name="ln-524"></a>         <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
+<a name="ln-525"></a>         <span class="kt">logical</span><span class="p">,</span>                   <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-526"></a>      <span class="k">end subroutine </span><span class="n">symba_util_fill_arr_info</span>
+<a name="ln-527"></a>
+<a name="ln-528"></a>      <span class="k">module subroutine </span><span class="n">symba_util_fill_arr_kin</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-529"></a>         <span class="k">implicit none</span>
+<a name="ln-530"></a><span class="k">         type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
+<a name="ln-531"></a>         <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
+<a name="ln-532"></a>         <span class="kt">logical</span><span class="p">,</span>             <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-533"></a>      <span class="k">end subroutine </span><span class="n">symba_util_fill_arr_kin</span>
+<a name="ln-534"></a>   <span class="k">end interface</span>
+<a name="ln-535"></a>
+<a name="ln-536"></a><span class="k">   interface</span>
+<a name="ln-537"></a><span class="k">      module subroutine </span><span class="n">symba_util_fill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-538"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_body</span>
+<a name="ln-539"></a>         <span class="k">implicit none</span>
+<a name="ln-540"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! SyMBA massive body object</span>
+<a name="ln-541"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Inserted object </span>
+<a name="ln-542"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-543"></a>      <span class="k">end subroutine </span><span class="n">symba_util_fill_pl</span>
+<a name="ln-544"></a>
+<a name="ln-545"></a>      <span class="k">module subroutine </span><span class="n">symba_util_fill_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-546"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_body</span>
+<a name="ln-547"></a>         <span class="k">implicit none</span>
+<a name="ln-548"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! SyMBA test particle object</span>
+<a name="ln-549"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Inserted object </span>
+<a name="ln-550"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-551"></a>      <span class="k">end subroutine </span><span class="n">symba_util_fill_tp</span>
+<a name="ln-552"></a>
+<a name="ln-553"></a>      <span class="k">module subroutine </span><span class="n">symba_util_peri_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-554"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_nbody_system</span><span class="p">,</span> <span class="n">swiftest_parameters</span>
+<a name="ln-555"></a>         <span class="k">implicit none</span>
+<a name="ln-556"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA massive body object</span>
+<a name="ln-557"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-558"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
+<a name="ln-559"></a>      <span class="k">end subroutine </span><span class="n">symba_util_peri_pl</span>
+<a name="ln-560"></a>
+<a name="ln-561"></a>      <span class="k">module subroutine </span><span class="n">symba_util_rearray_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-562"></a>         <span class="k">implicit none</span>
+<a name="ln-563"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA massive body object</span>
+<a name="ln-564"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-565"></a>         <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters with SyMBA additions</span>
+<a name="ln-566"></a>      <span class="k">end subroutine </span><span class="n">symba_util_rearray_pl</span>
+<a name="ln-567"></a>   <span class="k">end interface</span>
+<a name="ln-568"></a>
+<a name="ln-569"></a><span class="k">   interface </span><span class="n">util_resize</span>
+<a name="ln-570"></a>      <span class="k">module subroutine </span><span class="n">symba_util_resize_arr_info</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-571"></a>         <span class="k">implicit none</span>
+<a name="ln-572"></a><span class="k">         type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
+<a name="ln-573"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
+<a name="ln-574"></a>      <span class="k">end subroutine </span><span class="n">symba_util_resize_arr_info</span>
+<a name="ln-575"></a>
+<a name="ln-576"></a>      <span class="k">module subroutine </span><span class="n">symba_util_resize_arr_kin</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-577"></a>         <span class="k">implicit none</span>
+<a name="ln-578"></a><span class="k">         type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
+<a name="ln-579"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
+<a name="ln-580"></a>      <span class="k">end subroutine </span><span class="n">symba_util_resize_arr_kin</span>
+<a name="ln-581"></a>   <span class="k">end interface</span>
+<a name="ln-582"></a><span class="k">   </span>
+<a name="ln-583"></a><span class="k">   interface</span>
+<a name="ln-584"></a><span class="k">      module subroutine </span><span class="n">symba_util_resize_merger</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-585"></a>         <span class="k">implicit none</span>
+<a name="ln-586"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_merger</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA merger list object</span>
+<a name="ln-587"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
+<a name="ln-588"></a>      <span class="k">end subroutine </span><span class="n">symba_util_resize_merger</span>
+<a name="ln-589"></a>
+<a name="ln-590"></a>      <span class="k">module subroutine </span><span class="n">symba_util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-591"></a>         <span class="k">implicit none</span>
+<a name="ln-592"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA massive body object</span>
+<a name="ln-593"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
+<a name="ln-594"></a>      <span class="k">end subroutine </span><span class="n">symba_util_resize_pl</span>
+<a name="ln-595"></a>
+<a name="ln-596"></a>      <span class="k">module subroutine </span><span class="n">symba_util_resize_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-597"></a>         <span class="k">implicit none</span>
+<a name="ln-598"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA massive body object</span>
+<a name="ln-599"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
+<a name="ln-600"></a>      <span class="k">end subroutine </span><span class="n">symba_util_resize_tp</span>
+<a name="ln-601"></a>
+<a name="ln-602"></a>      <span class="k">module subroutine </span><span class="n">symba_util_sort_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
+<a name="ln-603"></a>         <span class="k">implicit none</span>
+<a name="ln-604"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! SyMBA massive body object</span>
+<a name="ln-605"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>    <span class="c">!! Sorting attribute</span>
+<a name="ln-606"></a>         <span class="kt">logical</span><span class="p">,</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
+<a name="ln-607"></a>      <span class="k">end subroutine </span><span class="n">symba_util_sort_pl</span> 
 <a name="ln-608"></a>
-<a name="ln-609"></a>      <span class="k">module subroutine </span><span class="n">symba_util_resize_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-609"></a>      <span class="k">module subroutine </span><span class="n">symba_util_sort_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
 <a name="ln-610"></a>         <span class="k">implicit none</span>
-<a name="ln-611"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA massive body object</span>
-<a name="ln-612"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
-<a name="ln-613"></a>      <span class="k">end subroutine </span><span class="n">symba_util_resize_tp</span>
-<a name="ln-614"></a>
-<a name="ln-615"></a>      <span class="k">module subroutine </span><span class="n">symba_util_sort_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
-<a name="ln-616"></a>         <span class="k">implicit none</span>
-<a name="ln-617"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! SyMBA massive body object</span>
-<a name="ln-618"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>    <span class="c">!! Sorting attribute</span>
-<a name="ln-619"></a>         <span class="kt">logical</span><span class="p">,</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
-<a name="ln-620"></a>      <span class="k">end subroutine </span><span class="n">symba_util_sort_pl</span> 
+<a name="ln-611"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! SyMBA test particle object</span>
+<a name="ln-612"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>    <span class="c">!! Sorting attribute</span>
+<a name="ln-613"></a>         <span class="kt">logical</span><span class="p">,</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
+<a name="ln-614"></a>      <span class="k">end subroutine </span><span class="n">symba_util_sort_tp</span>
+<a name="ln-615"></a>
+<a name="ln-616"></a>      <span class="k">module subroutine </span><span class="n">symba_util_sort_rearrange_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
+<a name="ln-617"></a>         <span class="k">implicit none</span>
+<a name="ln-618"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! SyMBA massive body object</span>
+<a name="ln-619"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
+<a name="ln-620"></a>      <span class="k">end subroutine </span><span class="n">symba_util_sort_rearrange_pl</span>
 <a name="ln-621"></a>
-<a name="ln-622"></a>      <span class="k">module subroutine </span><span class="n">symba_util_sort_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
+<a name="ln-622"></a>      <span class="k">module subroutine </span><span class="n">symba_util_sort_rearrange_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
 <a name="ln-623"></a>         <span class="k">implicit none</span>
-<a name="ln-624"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! SyMBA test particle object</span>
-<a name="ln-625"></a>         <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>    <span class="c">!! Sorting attribute</span>
-<a name="ln-626"></a>         <span class="kt">logical</span><span class="p">,</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
-<a name="ln-627"></a>      <span class="k">end subroutine </span><span class="n">symba_util_sort_tp</span>
+<a name="ln-624"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! SyMBA massive body object</span>
+<a name="ln-625"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
+<a name="ln-626"></a>      <span class="k">end subroutine </span><span class="n">symba_util_sort_rearrange_tp</span>
+<a name="ln-627"></a>   <span class="k">end interface</span>
 <a name="ln-628"></a>
-<a name="ln-629"></a>      <span class="k">module subroutine </span><span class="n">symba_util_sort_rearrange_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
-<a name="ln-630"></a>         <span class="k">implicit none</span>
-<a name="ln-631"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! SyMBA massive body object</span>
-<a name="ln-632"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
-<a name="ln-633"></a>      <span class="k">end subroutine </span><span class="n">symba_util_sort_rearrange_pl</span>
-<a name="ln-634"></a>
-<a name="ln-635"></a>      <span class="k">module subroutine </span><span class="n">symba_util_sort_rearrange_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
-<a name="ln-636"></a>         <span class="k">implicit none</span>
-<a name="ln-637"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! SyMBA massive body object</span>
-<a name="ln-638"></a>         <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
-<a name="ln-639"></a>      <span class="k">end subroutine </span><span class="n">symba_util_sort_rearrange_tp</span>
-<a name="ln-640"></a>   <span class="k">end interface</span>
-<a name="ln-641"></a>
-<a name="ln-642"></a><span class="k">   interface </span><span class="n">util_spill</span>
-<a name="ln-643"></a>      <span class="k">module subroutine </span><span class="n">symba_util_spill_arr_info</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-644"></a>         <span class="k">implicit none</span>
-<a name="ln-645"></a><span class="k">         type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
-<a name="ln-646"></a>         <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array of discards</span>
-<a name="ln-647"></a>         <span class="kt">logical</span><span class="p">,</span>                    <span class="k">dimension</span><span class="p">(:),</span>             <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discardss</span>
-<a name="ln-648"></a>         <span class="kt">logical</span><span class="p">,</span>                                              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
-<a name="ln-649"></a>      <span class="k">end subroutine </span><span class="n">symba_util_spill_arr_info</span>
-<a name="ln-650"></a>
-<a name="ln-651"></a>      <span class="k">module subroutine </span><span class="n">symba_util_spill_arr_kin</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-652"></a>         <span class="k">implicit none</span>
-<a name="ln-653"></a><span class="k">         type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
-<a name="ln-654"></a>         <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array of discards</span>
-<a name="ln-655"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">dimension</span><span class="p">(:),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discardss</span>
-<a name="ln-656"></a>         <span class="kt">logical</span><span class="p">,</span>                                        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
-<a name="ln-657"></a>      <span class="k">end subroutine </span><span class="n">symba_util_spill_arr_kin</span>
-<a name="ln-658"></a>   <span class="k">end interface</span>
-<a name="ln-659"></a>
-<a name="ln-660"></a><span class="k">   interface</span>
-<a name="ln-661"></a><span class="k">      module subroutine </span><span class="n">symba_util_spill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-662"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_body</span>
-<a name="ln-663"></a>         <span class="k">implicit none</span>
-<a name="ln-664"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA massive body object</span>
-<a name="ln-665"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Discarded object </span>
-<a name="ln-666"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
-<a name="ln-667"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
-<a name="ln-668"></a>      <span class="k">end subroutine </span><span class="n">symba_util_spill_pl</span>
-<a name="ln-669"></a>
-<a name="ln-670"></a>      <span class="k">module subroutine </span><span class="n">symba_util_spill_pltpenc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-671"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_encounter</span>
-<a name="ln-672"></a>         <span class="k">implicit none</span>
-<a name="ln-673"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA pl-tp encounter list</span>
-<a name="ln-674"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Discarded object </span>
-<a name="ln-675"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
-<a name="ln-676"></a>         <span class="kt">logical</span><span class="p">,</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter body by removing the discard list</span>
-<a name="ln-677"></a>      <span class="k">end subroutine </span><span class="n">symba_util_spill_pltpenc</span>
-<a name="ln-678"></a>
-<a name="ln-679"></a>      <span class="k">module subroutine </span><span class="n">symba_util_spill_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-680"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_body</span>
-<a name="ln-681"></a>         <span class="k">implicit none</span>
-<a name="ln-682"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA test particle object</span>
-<a name="ln-683"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Discarded object </span>
-<a name="ln-684"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
-<a name="ln-685"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
-<a name="ln-686"></a>      <span class="k">end subroutine </span><span class="n">symba_util_spill_tp</span>
-<a name="ln-687"></a>   <span class="k">end interface</span>
-<a name="ln-688"></a>
-<a name="ln-689"></a><span class="k">end module </span><span class="n">symba_classes</span>
+<a name="ln-629"></a><span class="k">   interface </span><span class="n">util_spill</span>
+<a name="ln-630"></a>      <span class="k">module subroutine </span><span class="n">symba_util_spill_arr_info</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-631"></a>         <span class="k">implicit none</span>
+<a name="ln-632"></a><span class="k">         type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
+<a name="ln-633"></a>         <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array of discards</span>
+<a name="ln-634"></a>         <span class="kt">logical</span><span class="p">,</span>                    <span class="k">dimension</span><span class="p">(:),</span>             <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discardss</span>
+<a name="ln-635"></a>         <span class="kt">logical</span><span class="p">,</span>                                              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
+<a name="ln-636"></a>      <span class="k">end subroutine </span><span class="n">symba_util_spill_arr_info</span>
+<a name="ln-637"></a>
+<a name="ln-638"></a>      <span class="k">module subroutine </span><span class="n">symba_util_spill_arr_kin</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-639"></a>         <span class="k">implicit none</span>
+<a name="ln-640"></a><span class="k">         type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
+<a name="ln-641"></a>         <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array of discards</span>
+<a name="ln-642"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">dimension</span><span class="p">(:),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discardss</span>
+<a name="ln-643"></a>         <span class="kt">logical</span><span class="p">,</span>                                        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
+<a name="ln-644"></a>      <span class="k">end subroutine </span><span class="n">symba_util_spill_arr_kin</span>
+<a name="ln-645"></a>   <span class="k">end interface</span>
+<a name="ln-646"></a>
+<a name="ln-647"></a><span class="k">   interface</span>
+<a name="ln-648"></a><span class="k">      module subroutine </span><span class="n">symba_util_spill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-649"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_body</span>
+<a name="ln-650"></a>         <span class="k">implicit none</span>
+<a name="ln-651"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA massive body object</span>
+<a name="ln-652"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Discarded object </span>
+<a name="ln-653"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
+<a name="ln-654"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
+<a name="ln-655"></a>      <span class="k">end subroutine </span><span class="n">symba_util_spill_pl</span>
+<a name="ln-656"></a>
+<a name="ln-657"></a>      <span class="k">module subroutine </span><span class="n">symba_util_spill_pltpenc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-658"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_encounter</span>
+<a name="ln-659"></a>         <span class="k">implicit none</span>
+<a name="ln-660"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA pl-tp encounter list</span>
+<a name="ln-661"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Discarded object </span>
+<a name="ln-662"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
+<a name="ln-663"></a>         <span class="kt">logical</span><span class="p">,</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter body by removing the discard list</span>
+<a name="ln-664"></a>      <span class="k">end subroutine </span><span class="n">symba_util_spill_pltpenc</span>
+<a name="ln-665"></a>
+<a name="ln-666"></a>      <span class="k">module subroutine </span><span class="n">symba_util_spill_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-667"></a>         <span class="k">use </span><span class="n">swiftest_classes</span><span class="p">,</span> <span class="n">only</span> <span class="p">:</span> <span class="n">swiftest_body</span>
+<a name="ln-668"></a>         <span class="k">implicit none</span>
+<a name="ln-669"></a><span class="k">         class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA test particle object</span>
+<a name="ln-670"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Discarded object </span>
+<a name="ln-671"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
+<a name="ln-672"></a>         <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
+<a name="ln-673"></a>      <span class="k">end subroutine </span><span class="n">symba_util_spill_tp</span>
+<a name="ln-674"></a>   <span class="k">end interface</span>
+<a name="ln-675"></a>
+<a name="ln-676"></a><span class="k">end module </span><span class="n">symba_classes</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/symba_collision.f90.html b/docs/sourcefile/symba_collision.f90.html
index cc6eb6a93..fe2f84f08 100644
--- a/docs/sourcefile/symba_collision.f90.html
+++ b/docs/sourcefile/symba_collision.f90.html
@@ -226,246 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~symba_collision.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilesymba_collisionf90EfferentGraph" width="641pt" height="213pt"
- viewBox="0.00 0.00 641.00 213.09" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 304.17)">
+<svg id="sourcefilesymba_collisionf90EfferentGraph" width="641pt" height="183pt"
+ viewBox="0.00 0.00 641.00 182.65" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 260.15)">
 <title>sourcefile~~symba_collision.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-304.17 923,-304.17 923,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 923,-260.15 923,4 -4,4"/>
 <!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~symba_collision.f90</title>
-<polygon fill="none" stroke="black" points="919,-128.89 813,-128.89 813,-104.89 919,-104.89 919,-128.89"/>
-<text text-anchor="middle" x="866" y="-114.49" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision.f90</text>
+<polygon fill="none" stroke="black" points="919,-165 813,-165 813,-141 919,-141 919,-165"/>
+<text text-anchor="middle" x="866" y="-150.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_collision.f90</text>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-108.89 572,-108.89 572,-84.89 675,-84.89 675,-108.89"/>
-<text text-anchor="middle" x="623.5" y="-94.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-145 711,-145 711,-121 777,-121 777,-145"/>
+<text text-anchor="middle" x="744" y="-130.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.82,-112.55C775.32,-109.43 724.67,-105.22 685.34,-101.95"/>
-<polygon fill="#000000" stroke="#000000" points="685.6,-98.46 675.35,-101.12 685.02,-105.43 685.6,-98.46"/>
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.72,-144.29C804.19,-142.86 795.45,-141.41 787.21,-140.03"/>
+<polygon fill="#000000" stroke="#000000" points="787.52,-136.54 777.08,-138.35 786.37,-143.44 787.52,-136.54"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-148.89 711,-148.89 711,-124.89 777,-124.89 777,-148.89"/>
-<text text-anchor="middle" x="744" y="-134.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-185 572,-185 572,-161 675,-161 675,-185"/>
+<text text-anchor="middle" x="623.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.72,-125.6C804.19,-127.02 795.45,-128.48 787.21,-129.85"/>
-<polygon fill="#000000" stroke="#000000" points="786.37,-126.44 777.08,-131.54 787.52,-133.35 786.37,-126.44"/>
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.82,-157.34C775.32,-160.46 724.67,-164.67 685.34,-167.94"/>
+<polygon fill="#000000" stroke="#000000" points="685.02,-164.45 675.35,-168.77 685.6,-171.43 685.02,-164.45"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-143.82C698.36,-148.07 683.7,-153.02 670.06,-157.62"/>
+<polygon fill="#000000" stroke="#000000" points="668.71,-154.38 660.35,-160.9 670.95,-161.02 668.71,-154.38"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-62.89 143,-62.89 143,-38.89 250,-38.89 250,-62.89"/>
-<text text-anchor="middle" x="196.5" y="-48.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-63 142,-63 142,-39 260,-39 260,-63"/>
+<text text-anchor="middle" x="201" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C307.66,-13.37 266.69,-25.26 237.42,-35.44"/>
-<polygon fill="#000000" stroke="#000000" points="236.21,-32.16 227.97,-38.81 238.56,-38.75 236.21,-32.16"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C323.66,-54.55 295.23,-54.56 270.29,-54.01"/>
+<polygon fill="#000000" stroke="#000000" points="270.28,-50.51 260.19,-53.76 270.1,-57.51 270.28,-50.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C430.54,-32.77 411.84,-49.38 351.5,-53"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178.89 0,-178.89 0,-154.89 106,-154.89 106,-178.89"/>
-<text text-anchor="middle" x="53" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-185 441.5,-185 441.5,-161 535.5,-161 535.5,-185"/>
+<text text-anchor="middle" x="488.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-10.89C171.8,-19.55 161.77,-14.21 142,-29.89 102.57,-61.16 75.43,-115.18 62.55,-145.2"/>
-<polygon fill="#000000" stroke="#000000" points="59.19,-144.16 58.59,-154.74 65.66,-146.84 59.19,-144.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.07,-84.82C557.22,-59.62 446.24,-4.28 347,-10.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C279.46,-9.33 259.07,11.61 197.5,-10.89"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-145.86 523.02,-157"/>
+<polygon fill="#000000" stroke="#000000" points="521.61,-153.79 513.84,-161 524.41,-160.21 521.61,-153.79"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-178.89 441,-178.89 441,-154.89 536,-154.89 536,-178.89"/>
-<text text-anchor="middle" x="488.5" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.64,-108.92C578.13,-120.24 545.72,-137.3 521.62,-149.98"/>
-<polygon fill="#000000" stroke="#000000" points="519.73,-147.02 512.51,-154.78 522.99,-153.22 519.73,-147.02"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C575.46,-133 577.26,-94.6 536,-72 516.42,-61.28 510.54,-60.47 489.5,-53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-133C686.98,-133 653.71,-133 624.5,-133"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C460.62,-43.46 430.28,-34.17 405.08,-26.85"/>
+<polygon fill="#000000" stroke="#000000" points="405.91,-23.45 395.34,-24.05 403.98,-30.18 405.91,-23.45"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-98.89 441.5,-98.89 441.5,-74.89 535.5,-74.89 535.5,-98.89"/>
-<text text-anchor="middle" x="488.5" y="-84.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-105 441,-105 441,-81 536,-81 536,-105"/>
+<text text-anchor="middle" x="488.5" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-93.08C563.29,-92.44 554.37,-91.77 545.69,-91.11"/>
-<polygon fill="#000000" stroke="#000000" points="545.89,-87.62 535.65,-90.36 545.36,-94.6 545.89,-87.62"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-126.06C698.36,-121.82 683.7,-116.87 670.06,-112.27"/>
-<polygon fill="#000000" stroke="#000000" points="670.95,-108.87 660.35,-108.99 668.71,-115.5 670.95,-108.87"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C481.59,-126.04 335.09,-87.34 252.63,-65.5"/>
-<polygon fill="#000000" stroke="#000000" points="253.47,-62.1 242.9,-62.93 251.67,-68.87 253.47,-62.1"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C562.9,-151.46 548.71,-135.12 489.5,-126.89"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C364.33,-286.8 322.63,-320.54 197.5,-284.89"/>
-</g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C597.35,-148.82 569.75,-152.68 546.24,-156.5"/>
-<polygon fill="#000000" stroke="#000000" points="545.38,-153.09 536.09,-158.18 546.53,-160 545.38,-153.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-120.14 523.02,-109"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-105.79 513.84,-105 521.61,-112.21 524.41,-105.79"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.82,-139.74C686.99,-141.81 653.73,-144.65 624.5,-146.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C611.89,-147.7 557.94,-121.61 522.09,-103.57"/>
-<polygon fill="#000000" stroke="#000000" points="523.46,-100.35 512.96,-98.96 520.3,-106.59 523.46,-100.35"/>
-</g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-218.89 142,-218.89 142,-194.89 251,-194.89 251,-218.89"/>
-<text text-anchor="middle" x="196.5" y="-204.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-183 147.5,-183 147.5,-159 254.5,-159 254.5,-183"/>
+<text text-anchor="middle" x="201" y="-168.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C451.51,-256.57 442.32,-230.12 405,-223.89 357.18,-215.9 302.51,-211.62 261.29,-209.35"/>
-<polygon fill="#000000" stroke="#000000" points="261.28,-205.84 251.11,-208.81 260.91,-212.83 261.28,-205.84"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C549.29,-152.5 559.01,-221.23 489.5,-244.89"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C598.52,-133 591.64,-138.24 572,-152 551.86,-166.1 558.34,-183.73 536,-194 439.06,-238.59 309.4,-207.4 243.79,-186.19"/>
+<polygon fill="#000000" stroke="#000000" points="244.8,-182.83 234.21,-183.01 242.6,-189.48 244.8,-182.83"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_node9" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-138.89 299,-138.89 299,-114.89 393,-114.89 393,-138.89"/>
-<text text-anchor="middle" x="346" y="-124.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-143 303.5,-143 303.5,-119 397.5,-119 397.5,-143"/>
+<text text-anchor="middle" x="350.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge13" class="edge">
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C460.02,-122.92 429.2,-122.48 403.45,-123.22"/>
-<polygon fill="#000000" stroke="#000000" points="402.98,-119.73 393.11,-123.58 403.23,-126.73 402.98,-119.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C548.24,-133 462.54,-132.24 407.73,-131.66"/>
+<polygon fill="#000000" stroke="#000000" points="407.57,-128.15 397.53,-131.55 407.49,-135.15 407.57,-128.15"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-256.89 287,-256.89 287,-232.89 405,-232.89 405,-256.89"/>
-<text text-anchor="middle" x="346" y="-242.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_collision.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-103 0,-103 0,-79 106,-79 106,-103"/>
+<text text-anchor="middle" x="53" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C464.66,-252.3 438.62,-254.02 415.2,-253.31"/>
-<polygon fill="#000000" stroke="#000000" points="415.15,-249.81 405,-252.86 414.83,-256.8 415.15,-249.81"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-91C172.55,-89.01 142.12,-88.71 116.17,-89.02"/>
+<polygon fill="#000000" stroke="#000000" points="116.04,-85.53 106.1,-89.18 116.15,-92.52 116.04,-85.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C281.93,-57.05 269.52,-95.89 202,-91"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.62,-63.08C155.83,-83.41 105.88,-124.36 76.67,-148.3"/>
-<polygon fill="#000000" stroke="#000000" points="74.19,-145.81 68.68,-154.86 78.63,-151.22 74.19,-145.81"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-173C563.29,-173 554.37,-173 545.69,-173"/>
+<polygon fill="#000000" stroke="#000000" points="545.65,-169.5 535.65,-173 545.65,-176.5 545.65,-169.5"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.98,-164.99C383.64,-163.08 283.28,-161.18 197.5,-166.89"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-160.94C589.52,-156.71 580.27,-151.82 572,-147 552.53,-135.66 531.27,-121.7 515.21,-110.82"/>
+<polygon fill="#000000" stroke="#000000" points="517.1,-107.87 506.87,-105.13 513.16,-113.66 517.1,-107.87"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-154.89C430.89,-150.77 414.54,-146.11 399.37,-141.8"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-138.39 389.61,-139.02 398.27,-145.12 400.19,-138.39"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C300.24,-244.52 251.15,-211.17 223.87,-189.63"/>
+<polygon fill="#000000" stroke="#000000" points="225.78,-186.67 215.8,-183.1 221.37,-192.11 225.78,-186.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.61,-185.12C591.15,-197.81 563.34,-217.22 536,-227 458.15,-254.87 433.49,-261.78 351.5,-251"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C254.02,-242.29 222.95,-243.38 142,-192 109.38,-171.3 82.04,-134.94 66.86,-111.95"/>
+<polygon fill="#000000" stroke="#000000" points="69.65,-109.82 61.3,-103.29 63.76,-113.6 69.65,-109.82"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-63C140.96,-67.17 123.7,-71.9 107.75,-76.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-72.92 98.03,-78.94 108.6,-79.67 106.75,-72.92"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge16" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C317.58,-43.61 286.76,-43.19 260.42,-44.45"/>
-<polygon fill="#000000" stroke="#000000" points="259.96,-40.97 250.18,-45.03 260.36,-47.96 259.96,-40.97"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C321.96,-167.18 291.24,-166.6 265,-167.2"/>
+<polygon fill="#000000" stroke="#000000" points="264.7,-163.7 254.81,-167.49 264.9,-170.7 264.7,-163.7"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.53,-160.96C433.45,-156.31 416.02,-150.93 400.14,-146.02"/>
+<polygon fill="#000000" stroke="#000000" points="401.07,-142.64 390.48,-143.04 399,-149.33 401.07,-142.64"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.1,-74.85C421.06,-66.47 381.99,-55.62 347,-48.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C278.52,-36.09 261.08,12.35 197.5,-10.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C324.51,-167.53 318.63,-163.17 296,-152 251.34,-129.96 251.67,-94.59 202,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.33,-175.13C414.91,-175.65 381.2,-175.12 351.5,-171"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.87,-9.2C253,-8.7 192,-11.96 142,-30 116.3,-39.27 91.11,-58 74.31,-72.27"/>
+<polygon fill="#000000" stroke="#000000" points="72,-69.64 66.77,-78.86 76.61,-74.92 72,-69.64"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-98.89C430.89,-103 414.54,-107.66 399.37,-111.98"/>
-<polygon fill="#000000" stroke="#000000" points="398.27,-108.65 389.61,-114.76 400.19,-115.38 398.27,-108.65"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.47,-105.02C431.82,-108.56 417.83,-112.47 404.63,-116.16"/>
+<polygon fill="#000000" stroke="#000000" points="403.41,-112.86 394.72,-118.92 405.29,-119.6 403.41,-112.86"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-194.89C138.49,-190.77 122.02,-186.11 106.74,-181.8"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-178.37 96.91,-179.02 105.58,-185.11 107.49,-178.37"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M177.83,-158.85C153.03,-145.26 112.7,-123.16 84.83,-107.9"/>
+<polygon fill="#000000" stroke="#000000" points="86.36,-104.74 75.9,-103 82.99,-110.88 86.36,-104.74"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge23" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.74,-114.82C307.21,-110.59 296.57,-105.69 287,-100.89 266.6,-90.64 244.18,-78.11 226.88,-68.16"/>
-<polygon fill="#000000" stroke="#000000" points="228.25,-64.91 217.84,-62.93 224.74,-70.97 228.25,-64.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-143C289.86,-147.17 272.41,-151.9 256.31,-156.27"/>
+<polygon fill="#000000" stroke="#000000" points="255.21,-152.94 246.48,-158.94 257.05,-159.7 255.21,-152.94"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-166.89C169.66,-168.61 141.1,-168.91 116.44,-168.67"/>
-<polygon fill="#000000" stroke="#000000" points="116.18,-165.17 106.14,-168.54 116.09,-172.17 116.18,-165.17"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-138.97C285.12,-149.7 239.06,-164.12 197.5,-166.89"/>
-</g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_collision.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-284.89C139.78,-269.01 92.08,-216.53 68.94,-187.19"/>
-<polygon fill="#000000" stroke="#000000" points="71.69,-185.03 62.82,-179.24 66.14,-189.3 71.69,-185.03"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.87,-257C278.48,-270.93 219.44,-291.14 197.5,-284.89"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.03,-118.95C289.62,-108.24 243.56,-93.84 202,-91"/>
 </g>
 </g>
 </svg>
@@ -584,7 +582,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-22"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>        <span class="kd">::</span> <span class="n">lcollision</span><span class="p">,</span> <span class="n">lmask</span>
 <a name="ln-23"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>                 <span class="kd">::</span> <span class="n">xr</span><span class="p">,</span> <span class="n">vr</span>
 <a name="ln-24"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                              <span class="kd">::</span> <span class="n">k</span>
-<a name="ln-25"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                  <span class="kd">::</span> <span class="n">rlim</span><span class="p">,</span> <span class="n">mtot</span>
+<a name="ln-25"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                  <span class="kd">::</span> <span class="n">rlim</span><span class="p">,</span> <span class="n">Gmtot</span>
 <a name="ln-26"></a>      <span class="kt">logical</span>                                   <span class="kd">::</span> <span class="n">isplpl</span>
 <a name="ln-27"></a>
 <a name="ln-28"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nenc</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
@@ -617,8 +615,8 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-55"></a>                     <span class="n">xr</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> 
 <a name="ln-56"></a>                     <span class="n">vr</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span> <span class="n">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span> <span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
 <a name="ln-57"></a>                     <span class="n">rlim</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">+</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
-<a name="ln-58"></a>                     <span class="n">mtot</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">+</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
-<a name="ln-59"></a>                     <span class="n">lcollision</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">symba_collision_check_one</span><span class="p">(</span><span class="n">xr</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">xr</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">xr</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">vr</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">vr</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">vr</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">mtot</span><span class="p">,</span> <span class="n">rlim</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">lvdotr</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
+<a name="ln-58"></a>                     <span class="n">Gmtot</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">ind1</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">+</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">ind2</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
+<a name="ln-59"></a>                     <span class="n">lcollision</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="n">symba_collision_check_one</span><span class="p">(</span><span class="n">xr</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">xr</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">xr</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">vr</span><span class="p">(</span><span class="mi">1</span><span class="p">),</span> <span class="n">vr</span><span class="p">(</span><span class="mi">2</span><span class="p">),</span> <span class="n">vr</span><span class="p">(</span><span class="mi">3</span><span class="p">),</span> <span class="n">Gmtot</span><span class="p">,</span> <span class="n">rlim</span><span class="p">,</span> <span class="n">dt</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">lvdotr</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
 <a name="ln-60"></a>                  <span class="k">end do</span>
 <a name="ln-61"></a><span class="k">               else</span>
 <a name="ln-62"></a><span class="k">                  do </span><span class="n">concurrent</span><span class="p">(</span><span class="n">k</span> <span class="o">=</span> <span class="mi">1</span><span class="p">:</span><span class="n">nenc</span><span class="p">,</span> <span class="n">lmask</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
@@ -921,7 +919,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-359"></a>         <span class="n">p2</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">idx</span><span class="p">(</span><span class="mi">2</span><span class="p">))%</span><span class="n">parent</span>
 <a name="ln-360"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">p1</span> <span class="o">==</span> <span class="n">p2</span><span class="p">)</span> <span class="k">return</span> <span class="c">! This is a collision between to children of a shared parent. We will ignore it.</span>
 <a name="ln-361"></a>
-<a name="ln-362"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">p1</span><span class="p">)</span> <span class="o">&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">p2</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-362"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">p1</span><span class="p">)</span> <span class="o">&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">p2</span><span class="p">))</span> <span class="k">then</span>
 <a name="ln-363"></a><span class="k">            </span><span class="n">index_parent</span> <span class="o">=</span> <span class="n">p1</span>
 <a name="ln-364"></a>            <span class="n">index_child</span> <span class="o">=</span> <span class="n">p2</span>
 <a name="ln-365"></a>         <span class="k">else</span>
@@ -1011,7 +1009,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-449"></a>               <span class="n">v2_si</span><span class="p">(:)</span>      <span class="o">=</span> <span class="n">plpl_collisions</span><span class="p">%</span><span class="n">v2</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">param</span><span class="p">%</span><span class="n">DU2M</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">TU2S</span>    <span class="c">!! The velocity of the parent from inside the step (at collision)</span>
 <a name="ln-450"></a>               <span class="n">density_si</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">mass_si</span><span class="p">(:)</span> <span class="o">/</span> <span class="p">(</span><span class="mf">4.0_DP</span> <span class="o">/</span> <span class="mf">3._DP</span> <span class="o">*</span> <span class="n">PI</span> <span class="o">*</span> <span class="n">radius_si</span><span class="p">(:)</span><span class="o">**</span><span class="mi">3</span><span class="p">)</span> <span class="c">!! The collective density of the parent and its children</span>
 <a name="ln-451"></a>               <span class="n">Mcb_si</span>        <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">mass</span> <span class="o">*</span> <span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span> 
-<a name="ln-452"></a>               <span class="n">mtiny_si</span>      <span class="o">=</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">MTINY</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span><span class="p">)</span> <span class="o">*</span> <span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span>
+<a name="ln-452"></a>               <span class="n">mtiny_si</span>      <span class="o">=</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">GMTINY</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span><span class="p">)</span> <span class="o">*</span> <span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span>
 <a name="ln-453"></a>            
 <a name="ln-454"></a>               <span class="n">mass_res</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
 <a name="ln-455"></a>         
@@ -1025,8 +1023,8 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-463"></a>               <span class="n">mass_res</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="nb">min</span><span class="p">(</span><span class="nb">max</span><span class="p">(</span><span class="n">mlr</span><span class="p">,</span> <span class="mf">0.0_DP</span><span class="p">),</span> <span class="n">mtot</span><span class="p">)</span>
 <a name="ln-464"></a>               <span class="n">mass_res</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">=</span> <span class="nb">min</span><span class="p">(</span><span class="nb">max</span><span class="p">(</span><span class="n">mslr</span><span class="p">,</span> <span class="mf">0.0_DP</span><span class="p">),</span> <span class="n">mtot</span><span class="p">)</span>
 <a name="ln-465"></a>               <span class="n">mass_res</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">=</span> <span class="nb">min</span><span class="p">(</span><span class="nb">max</span><span class="p">(</span><span class="n">mtot</span> <span class="o">-</span> <span class="n">mlr</span> <span class="o">-</span> <span class="n">mslr</span><span class="p">,</span> <span class="mf">0.0_DP</span><span class="p">),</span> <span class="n">mtot</span><span class="p">)</span>
-<a name="ln-466"></a>               <span class="n">mass_res</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass_res</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span><span class="p">)</span> <span class="o">*</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span>
-<a name="ln-467"></a>               <span class="n">Qloss</span> <span class="o">=</span> <span class="n">Qloss</span> <span class="o">*</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">GU</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span><span class="p">)</span> <span class="o">*</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">TU2S</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">DU2M</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span>
+<a name="ln-466"></a>               <span class="n">mass_res</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass_res</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span><span class="p">)</span> 
+<a name="ln-467"></a>               <span class="n">Qloss</span> <span class="o">=</span> <span class="n">Qloss</span> <span class="o">*</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">TU2S</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">DU2M</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span>
 <a name="ln-468"></a>
 <a name="ln-469"></a>               <span class="k">select case</span> <span class="p">(</span><span class="n">regime</span><span class="p">)</span>
 <a name="ln-470"></a>               <span class="k">case</span> <span class="p">(</span><span class="n">COLLRESOLVE_REGIME_DISRUPTION</span><span class="p">)</span>
diff --git a/docs/sourcefile/symba_discard.f90.html b/docs/sourcefile/symba_discard.f90.html
index f85fd30f2..ba143e7c2 100644
--- a/docs/sourcefile/symba_discard.f90.html
+++ b/docs/sourcefile/symba_discard.f90.html
@@ -134,7 +134,7 @@ <h1>symba_discard.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.7% of total for source files.">229 statements</a>
+    title=" 1.8% of total for source files.">239 statements</a>
      </li> 
      
      
@@ -226,246 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~symba_discard.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilesymba_discardf90EfferentGraph" width="641pt" height="214pt"
- viewBox="0.00 0.00 641.00 213.79" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 304.17)">
+<svg id="sourcefilesymba_discardf90EfferentGraph" width="641pt" height="183pt"
+ viewBox="0.00 0.00 641.00 183.25" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 260.15)">
 <title>sourcefile~~symba_discard.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-304.17 920,-304.17 920,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 920,-260.15 920,4 -4,4"/>
 <!-- sourcefile~symba_discard.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~symba_discard.f90</title>
-<polygon fill="none" stroke="black" points="916,-128.89 813,-128.89 813,-104.89 916,-104.89 916,-128.89"/>
-<text text-anchor="middle" x="864.5" y="-114.49" font-family="Helvetica,sans-Serif" font-size="10.50">symba_discard.f90</text>
+<polygon fill="none" stroke="black" points="916,-165 813,-165 813,-141 916,-141 916,-165"/>
+<text text-anchor="middle" x="864.5" y="-150.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_discard.f90</text>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-108.89 572,-108.89 572,-84.89 675,-84.89 675,-108.89"/>
-<text text-anchor="middle" x="623.5" y="-94.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-145 711,-145 711,-121 777,-121 777,-145"/>
+<text text-anchor="middle" x="744" y="-130.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.81,-112.65C775.5,-109.52 724.61,-105.27 685.14,-101.96"/>
-<polygon fill="#000000" stroke="#000000" points="685.37,-98.47 675.11,-101.12 684.79,-105.44 685.37,-98.47"/>
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.9,-144.46C804.31,-143.01 795.48,-141.52 787.14,-140.11"/>
+<polygon fill="#000000" stroke="#000000" points="787.71,-136.66 777.26,-138.45 786.54,-143.56 787.71,-136.66"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-148.89 711,-148.89 711,-124.89 777,-124.89 777,-148.89"/>
-<text text-anchor="middle" x="744" y="-134.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-185 572,-185 572,-161 675,-161 675,-185"/>
+<text text-anchor="middle" x="623.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.9,-125.43C804.31,-126.88 795.48,-128.37 787.14,-129.78"/>
-<polygon fill="#000000" stroke="#000000" points="786.54,-126.33 777.26,-131.44 787.71,-133.23 786.54,-126.33"/>
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.81,-157.24C775.5,-160.36 724.61,-164.62 685.14,-167.93"/>
+<polygon fill="#000000" stroke="#000000" points="684.79,-164.44 675.11,-168.76 685.37,-171.42 684.79,-164.44"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-143.82C698.36,-148.07 683.7,-153.02 670.06,-157.62"/>
+<polygon fill="#000000" stroke="#000000" points="668.71,-154.38 660.35,-160.9 670.95,-161.02 668.71,-154.38"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-62.89 143,-62.89 143,-38.89 250,-38.89 250,-62.89"/>
-<text text-anchor="middle" x="196.5" y="-48.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-63 142,-63 142,-39 260,-39 260,-63"/>
+<text text-anchor="middle" x="201" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C307.66,-13.37 266.69,-25.26 237.42,-35.44"/>
-<polygon fill="#000000" stroke="#000000" points="236.21,-32.16 227.97,-38.81 238.56,-38.75 236.21,-32.16"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C323.66,-54.55 295.23,-54.56 270.29,-54.01"/>
+<polygon fill="#000000" stroke="#000000" points="270.28,-50.51 260.19,-53.76 270.1,-57.51 270.28,-50.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C430.54,-32.77 411.84,-49.38 351.5,-53"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178.89 0,-178.89 0,-154.89 106,-154.89 106,-178.89"/>
-<text text-anchor="middle" x="53" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-185 441.5,-185 441.5,-161 535.5,-161 535.5,-185"/>
+<text text-anchor="middle" x="488.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-10.89C171.8,-19.55 161.77,-14.21 142,-29.89 102.57,-61.16 75.43,-115.18 62.55,-145.2"/>
-<polygon fill="#000000" stroke="#000000" points="59.19,-144.16 58.59,-154.74 65.66,-146.84 59.19,-144.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.07,-84.82C557.22,-59.62 446.24,-4.28 347,-10.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C279.46,-9.33 259.07,11.61 197.5,-10.89"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-145.86 523.02,-157"/>
+<polygon fill="#000000" stroke="#000000" points="521.61,-153.79 513.84,-161 524.41,-160.21 521.61,-153.79"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-178.89 441,-178.89 441,-154.89 536,-154.89 536,-178.89"/>
-<text text-anchor="middle" x="488.5" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.64,-108.92C578.13,-120.24 545.72,-137.3 521.62,-149.98"/>
-<polygon fill="#000000" stroke="#000000" points="519.73,-147.02 512.51,-154.78 522.99,-153.22 519.73,-147.02"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C575.46,-133 577.26,-94.6 536,-72 516.42,-61.28 510.54,-60.47 489.5,-53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-133C686.98,-133 653.71,-133 624.5,-133"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C460.62,-43.46 430.28,-34.17 405.08,-26.85"/>
+<polygon fill="#000000" stroke="#000000" points="405.91,-23.45 395.34,-24.05 403.98,-30.18 405.91,-23.45"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-98.89 441.5,-98.89 441.5,-74.89 535.5,-74.89 535.5,-98.89"/>
-<text text-anchor="middle" x="488.5" y="-84.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-105 441,-105 441,-81 536,-81 536,-105"/>
+<text text-anchor="middle" x="488.5" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-93.08C563.29,-92.44 554.37,-91.77 545.69,-91.11"/>
-<polygon fill="#000000" stroke="#000000" points="545.89,-87.62 535.65,-90.36 545.36,-94.6 545.89,-87.62"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-126.06C698.36,-121.82 683.7,-116.87 670.06,-112.27"/>
-<polygon fill="#000000" stroke="#000000" points="670.95,-108.87 660.35,-108.99 668.71,-115.5 670.95,-108.87"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C481.59,-126.04 335.09,-87.34 252.63,-65.5"/>
-<polygon fill="#000000" stroke="#000000" points="253.47,-62.1 242.9,-62.93 251.67,-68.87 253.47,-62.1"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C562.9,-151.46 548.71,-135.12 489.5,-126.89"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C364.33,-286.8 322.63,-320.54 197.5,-284.89"/>
-</g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C597.35,-148.82 569.75,-152.68 546.24,-156.5"/>
-<polygon fill="#000000" stroke="#000000" points="545.38,-153.09 536.09,-158.18 546.53,-160 545.38,-153.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-120.14 523.02,-109"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-105.79 513.84,-105 521.61,-112.21 524.41,-105.79"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.82,-139.74C686.99,-141.81 653.73,-144.65 624.5,-146.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C611.89,-147.7 557.94,-121.61 522.09,-103.57"/>
-<polygon fill="#000000" stroke="#000000" points="523.46,-100.35 512.96,-98.96 520.3,-106.59 523.46,-100.35"/>
-</g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-218.89 142,-218.89 142,-194.89 251,-194.89 251,-218.89"/>
-<text text-anchor="middle" x="196.5" y="-204.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-183 147.5,-183 147.5,-159 254.5,-159 254.5,-183"/>
+<text text-anchor="middle" x="201" y="-168.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C451.51,-256.57 442.32,-230.12 405,-223.89 357.18,-215.9 302.51,-211.62 261.29,-209.35"/>
-<polygon fill="#000000" stroke="#000000" points="261.28,-205.84 251.11,-208.81 260.91,-212.83 261.28,-205.84"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C549.29,-152.5 559.01,-221.23 489.5,-244.89"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C598.52,-133 591.64,-138.24 572,-152 551.86,-166.1 558.34,-183.73 536,-194 439.06,-238.59 309.4,-207.4 243.79,-186.19"/>
+<polygon fill="#000000" stroke="#000000" points="244.8,-182.83 234.21,-183.01 242.6,-189.48 244.8,-182.83"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_node9" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-138.89 299,-138.89 299,-114.89 393,-114.89 393,-138.89"/>
-<text text-anchor="middle" x="346" y="-124.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-143 303.5,-143 303.5,-119 397.5,-119 397.5,-143"/>
+<text text-anchor="middle" x="350.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge13" class="edge">
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C460.02,-122.92 429.2,-122.48 403.45,-123.22"/>
-<polygon fill="#000000" stroke="#000000" points="402.98,-119.73 393.11,-123.58 403.23,-126.73 402.98,-119.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C548.24,-133 462.54,-132.24 407.73,-131.66"/>
+<polygon fill="#000000" stroke="#000000" points="407.57,-128.15 397.53,-131.55 407.49,-135.15 407.57,-128.15"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-256.89 287,-256.89 287,-232.89 405,-232.89 405,-256.89"/>
-<text text-anchor="middle" x="346" y="-242.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_discard.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-103 0,-103 0,-79 106,-79 106,-103"/>
+<text text-anchor="middle" x="53" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C464.66,-252.3 438.62,-254.02 415.2,-253.31"/>
-<polygon fill="#000000" stroke="#000000" points="415.15,-249.81 405,-252.86 414.83,-256.8 415.15,-249.81"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-91C172.55,-89.01 142.12,-88.71 116.17,-89.02"/>
+<polygon fill="#000000" stroke="#000000" points="116.04,-85.53 106.1,-89.18 116.15,-92.52 116.04,-85.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C281.93,-57.05 269.52,-95.89 202,-91"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.62,-63.08C155.83,-83.41 105.88,-124.36 76.67,-148.3"/>
-<polygon fill="#000000" stroke="#000000" points="74.19,-145.81 68.68,-154.86 78.63,-151.22 74.19,-145.81"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-173C563.29,-173 554.37,-173 545.69,-173"/>
+<polygon fill="#000000" stroke="#000000" points="545.65,-169.5 535.65,-173 545.65,-176.5 545.65,-169.5"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.98,-164.99C383.64,-163.08 283.28,-161.18 197.5,-166.89"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-160.94C589.52,-156.71 580.27,-151.82 572,-147 552.53,-135.66 531.27,-121.7 515.21,-110.82"/>
+<polygon fill="#000000" stroke="#000000" points="517.1,-107.87 506.87,-105.13 513.16,-113.66 517.1,-107.87"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-154.89C430.89,-150.77 414.54,-146.11 399.37,-141.8"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-138.39 389.61,-139.02 398.27,-145.12 400.19,-138.39"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C300.24,-244.52 251.15,-211.17 223.87,-189.63"/>
+<polygon fill="#000000" stroke="#000000" points="225.78,-186.67 215.8,-183.1 221.37,-192.11 225.78,-186.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.61,-185.12C591.15,-197.81 563.34,-217.22 536,-227 458.15,-254.87 433.49,-261.78 351.5,-251"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C254.02,-242.29 222.95,-243.38 142,-192 109.38,-171.3 82.04,-134.94 66.86,-111.95"/>
+<polygon fill="#000000" stroke="#000000" points="69.65,-109.82 61.3,-103.29 63.76,-113.6 69.65,-109.82"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-63C140.96,-67.17 123.7,-71.9 107.75,-76.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-72.92 98.03,-78.94 108.6,-79.67 106.75,-72.92"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge16" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C317.58,-43.61 286.76,-43.19 260.42,-44.45"/>
-<polygon fill="#000000" stroke="#000000" points="259.96,-40.97 250.18,-45.03 260.36,-47.96 259.96,-40.97"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C321.96,-167.18 291.24,-166.6 265,-167.2"/>
+<polygon fill="#000000" stroke="#000000" points="264.7,-163.7 254.81,-167.49 264.9,-170.7 264.7,-163.7"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.53,-160.96C433.45,-156.31 416.02,-150.93 400.14,-146.02"/>
+<polygon fill="#000000" stroke="#000000" points="401.07,-142.64 390.48,-143.04 399,-149.33 401.07,-142.64"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.1,-74.85C421.06,-66.47 381.99,-55.62 347,-48.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C278.52,-36.09 261.08,12.35 197.5,-10.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C324.51,-167.53 318.63,-163.17 296,-152 251.34,-129.96 251.67,-94.59 202,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.33,-175.13C414.91,-175.65 381.2,-175.12 351.5,-171"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.87,-9.2C253,-8.7 192,-11.96 142,-30 116.3,-39.27 91.11,-58 74.31,-72.27"/>
+<polygon fill="#000000" stroke="#000000" points="72,-69.64 66.77,-78.86 76.61,-74.92 72,-69.64"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-98.89C430.89,-103 414.54,-107.66 399.37,-111.98"/>
-<polygon fill="#000000" stroke="#000000" points="398.27,-108.65 389.61,-114.76 400.19,-115.38 398.27,-108.65"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.47,-105.02C431.82,-108.56 417.83,-112.47 404.63,-116.16"/>
+<polygon fill="#000000" stroke="#000000" points="403.41,-112.86 394.72,-118.92 405.29,-119.6 403.41,-112.86"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-194.89C138.49,-190.77 122.02,-186.11 106.74,-181.8"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-178.37 96.91,-179.02 105.58,-185.11 107.49,-178.37"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M177.83,-158.85C153.03,-145.26 112.7,-123.16 84.83,-107.9"/>
+<polygon fill="#000000" stroke="#000000" points="86.36,-104.74 75.9,-103 82.99,-110.88 86.36,-104.74"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge23" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.74,-114.82C307.21,-110.59 296.57,-105.69 287,-100.89 266.6,-90.64 244.18,-78.11 226.88,-68.16"/>
-<polygon fill="#000000" stroke="#000000" points="228.25,-64.91 217.84,-62.93 224.74,-70.97 228.25,-64.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-143C289.86,-147.17 272.41,-151.9 256.31,-156.27"/>
+<polygon fill="#000000" stroke="#000000" points="255.21,-152.94 246.48,-158.94 257.05,-159.7 255.21,-152.94"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-166.89C169.66,-168.61 141.1,-168.91 116.44,-168.67"/>
-<polygon fill="#000000" stroke="#000000" points="116.18,-165.17 106.14,-168.54 116.09,-172.17 116.18,-165.17"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-138.97C285.12,-149.7 239.06,-164.12 197.5,-166.89"/>
-</g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_discard.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-284.89C139.78,-269.01 92.08,-216.53 68.94,-187.19"/>
-<polygon fill="#000000" stroke="#000000" points="71.69,-185.03 62.82,-179.24 66.14,-189.3 71.69,-185.03"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.87,-257C278.48,-270.93 219.44,-291.14 197.5,-284.89"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.03,-118.95C289.62,-108.24 243.56,-93.84 202,-91"/>
 </g>
 </g>
 </svg>
@@ -833,56 +831,66 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-271"></a><span class="k">      </span><span class="n">pl</span><span class="p">%</span><span class="n">lfirst</span> <span class="o">=</span> <span class="n">lfirst_orig</span>
 <a name="ln-272"></a>   
 <a name="ln-273"></a>      <span class="k">return</span>
-<a name="ln-274"></a><span class="k">   </span>
-<a name="ln-275"></a><span class="k">   end subroutine </span><span class="n">symba_discard_peri_pl</span>
+<a name="ln-274"></a><span class="k">   end subroutine </span><span class="n">symba_discard_peri_pl</span>
+<a name="ln-275"></a>
 <a name="ln-276"></a>
-<a name="ln-277"></a>
-<a name="ln-278"></a>   <span class="k">module subroutine </span><span class="n">symba_discard_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-279"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-280"></a>      <span class="c">!!</span>
-<a name="ln-281"></a>      <span class="c">!! Call the various flavors of discards for massive bodies in SyMBA runs, including discards due to colling with the central body, </span>
-<a name="ln-282"></a>      <span class="c">!! escaping the system, or colliding with each other.</span>
-<a name="ln-283"></a>      <span class="k">implicit none</span>
-<a name="ln-284"></a>      <span class="c">! Arguments</span>
-<a name="ln-285"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA test particle object</span>
-<a name="ln-286"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-287"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
-<a name="ln-288"></a>   
-<a name="ln-289"></a>      <span class="k">select type</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
-<a name="ln-290"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">)</span>
-<a name="ln-291"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
-<a name="ln-292"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_parameters</span><span class="p">)</span>
-<a name="ln-293"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">plplenc_list</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">)</span>
-<a name="ln-294"></a>               <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">h2b</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span> 
-<a name="ln-295"></a>
-<a name="ln-296"></a>               <span class="c">! First deal with the non pl-pl collisions</span>
-<a name="ln-297"></a>               <span class="k">call </span><span class="n">symba_discard_nonplpl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-298"></a>
-<a name="ln-299"></a>               <span class="c">! Scrub the pl-pl encounter list of any encounters that did not lead to a collision</span>
-<a name="ln-300"></a>               <span class="k">call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">scrub_non_collision</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-301"></a>
-<a name="ln-302"></a>               <span class="k">if</span> <span class="p">((</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">nenc</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="nb">any</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(:)))</span> <span class="k">then </span>
-<a name="ln-303"></a><span class="k">                  write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Collision between massive bodies detected at time t = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">t</span>
-<a name="ln-304"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lfragmentation</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-305"></a><span class="k">                     call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">resolve_fragmentations</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-306"></a>                  <span class="k">else</span>
-<a name="ln-307"></a><span class="k">                     call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">resolve_mergers</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-308"></a>                  <span class="k">end if</span>
-<a name="ln-309"></a><span class="k">               end if</span>
-<a name="ln-310"></a>
-<a name="ln-311"></a><span class="k">               if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(:)))</span> <span class="k">then</span>
-<a name="ln-312"></a><span class="k">                  call </span><span class="n">symba_discard_nonplpl_conservation</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-313"></a>                  <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">rearray</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-314"></a>               <span class="k">end if</span>
-<a name="ln-315"></a>
-<a name="ln-316"></a><span class="k">            end associate</span>
-<a name="ln-317"></a><span class="k">         end select </span>
-<a name="ln-318"></a><span class="k">      end select</span>
-<a name="ln-319"></a>
-<a name="ln-320"></a><span class="k">      return</span>
-<a name="ln-321"></a><span class="k">   end subroutine </span><span class="n">symba_discard_pl</span>
-<a name="ln-322"></a>
-<a name="ln-323"></a><span class="k">end submodule </span><span class="n">s_symba_discard</span>
+<a name="ln-277"></a>   <span class="k">module subroutine </span><span class="n">symba_discard_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-278"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-279"></a>      <span class="c">!!</span>
+<a name="ln-280"></a>      <span class="c">!! Call the various flavors of discards for massive bodies in SyMBA runs, including discards due to colling with the central body, </span>
+<a name="ln-281"></a>      <span class="c">!! escaping the system, or colliding with each other.</span>
+<a name="ln-282"></a>      <span class="k">implicit none</span>
+<a name="ln-283"></a>      <span class="c">! Arguments</span>
+<a name="ln-284"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA test particle object</span>
+<a name="ln-285"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-286"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-287"></a>      <span class="c">! Internals</span>
+<a name="ln-288"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Eorbit_before</span><span class="p">,</span> <span class="n">Eorbit_after</span>
+<a name="ln-289"></a>   
+<a name="ln-290"></a>      <span class="k">select type</span><span class="p">(</span><span class="nb">system</span><span class="p">)</span>
+<a name="ln-291"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">)</span>
+<a name="ln-292"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-293"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_parameters</span><span class="p">)</span>
+<a name="ln-294"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">plplenc_list</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">)</span>
+<a name="ln-295"></a>               <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">h2b</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span> 
+<a name="ln-296"></a>
+<a name="ln-297"></a>               <span class="c">! First deal with the non pl-pl collisions</span>
+<a name="ln-298"></a>               <span class="k">call </span><span class="n">symba_discard_nonplpl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-299"></a>
+<a name="ln-300"></a>               <span class="c">! Scrub the pl-pl encounter list of any encounters that did not lead to a collision</span>
+<a name="ln-301"></a>               <span class="k">call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">scrub_non_collision</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-302"></a>
+<a name="ln-303"></a>               <span class="k">if</span> <span class="p">((</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">nenc</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="nb">any</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(:)))</span> <span class="k">then </span>
+<a name="ln-304"></a><span class="k">                  write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Collision between massive bodies detected at time t = &quot;</span><span class="p">,</span><span class="n">param</span><span class="p">%</span><span class="n">t</span>
+<a name="ln-305"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lfragmentation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-306"></a><span class="k">                     call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">resolve_fragmentations</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-307"></a>                  <span class="k">else</span>
+<a name="ln-308"></a><span class="k">                     call </span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">resolve_mergers</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-309"></a>                  <span class="k">end if</span>
+<a name="ln-310"></a><span class="k">               end if</span>
+<a name="ln-311"></a>
+<a name="ln-312"></a><span class="k">               if</span> <span class="p">(</span><span class="nb">any</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(:)))</span> <span class="k">then</span>
+<a name="ln-313"></a><span class="k">                  if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lenergy</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-314"></a><span class="k">                     call </span><span class="nb">system</span><span class="p">%</span><span class="n">get_energy_and_momentum</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-315"></a>                     <span class="n">Eorbit_before</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">te</span>
+<a name="ln-316"></a>                  <span class="k">end if</span>
+<a name="ln-317"></a><span class="k">                  call </span><span class="n">symba_discard_nonplpl_conservation</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-318"></a>                  <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">rearray</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-319"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lenergy</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-320"></a><span class="k">                     call </span><span class="nb">system</span><span class="p">%</span><span class="n">get_energy_and_momentum</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-321"></a>                     <span class="n">Eorbit_after</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">te</span>
+<a name="ln-322"></a>                     <span class="nb">system</span><span class="p">%</span><span class="n">Ecollisions</span> <span class="o">=</span> <span class="n">Eorbit_after</span> <span class="o">-</span> <span class="n">Eorbit_before</span>
+<a name="ln-323"></a>                  <span class="k">end if</span>
+<a name="ln-324"></a><span class="k">               end if</span>
+<a name="ln-325"></a>
+<a name="ln-326"></a><span class="k">            end associate</span>
+<a name="ln-327"></a><span class="k">         end select </span>
+<a name="ln-328"></a><span class="k">      end select</span>
+<a name="ln-329"></a>
+<a name="ln-330"></a><span class="k">      return</span>
+<a name="ln-331"></a><span class="k">   end subroutine </span><span class="n">symba_discard_pl</span>
+<a name="ln-332"></a>
+<a name="ln-333"></a><span class="k">end submodule </span><span class="n">s_symba_discard</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/symba_drift.f90.html b/docs/sourcefile/symba_drift.f90.html
index ab14ec48f..f2e7cc061 100644
--- a/docs/sourcefile/symba_drift.f90.html
+++ b/docs/sourcefile/symba_drift.f90.html
@@ -226,246 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~symba_drift.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilesymba_driftf90EfferentGraph" width="641pt" height="218pt"
- viewBox="0.00 0.00 641.00 217.79" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 304.17)">
+<svg id="sourcefilesymba_driftf90EfferentGraph" width="641pt" height="187pt"
+ viewBox="0.00 0.00 641.00 186.68" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 260.15)">
 <title>sourcefile~~symba_drift.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-304.17 903,-304.17 903,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 903,-260.15 903,4 -4,4"/>
 <!-- sourcefile~symba_drift.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~symba_drift.f90</title>
-<polygon fill="none" stroke="black" points="899,-128.89 813,-128.89 813,-104.89 899,-104.89 899,-128.89"/>
-<text text-anchor="middle" x="856" y="-114.49" font-family="Helvetica,sans-Serif" font-size="10.50">symba_drift.f90</text>
+<polygon fill="none" stroke="black" points="899,-165 813,-165 813,-141 899,-141 899,-165"/>
+<text text-anchor="middle" x="856" y="-150.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_drift.f90</text>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-108.89 572,-108.89 572,-84.89 675,-84.89 675,-108.89"/>
-<text text-anchor="middle" x="623.5" y="-94.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-145 711,-145 711,-121 777,-121 777,-145"/>
+<text text-anchor="middle" x="744" y="-130.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.99,-113.24C777.2,-110.14 725.31,-105.63 685.04,-102.14"/>
-<polygon fill="#000000" stroke="#000000" points="685.33,-98.65 675.06,-101.27 684.72,-105.63 685.33,-98.65"/>
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.79,-145.32C804.34,-143.79 795.48,-142.18 787.04,-140.64"/>
+<polygon fill="#000000" stroke="#000000" points="787.48,-137.17 777.02,-138.82 786.23,-144.05 787.48,-137.17"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-148.89 711,-148.89 711,-124.89 777,-124.89 777,-148.89"/>
-<text text-anchor="middle" x="744" y="-134.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-185 572,-185 572,-161 675,-161 675,-185"/>
+<text text-anchor="middle" x="623.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.79,-124.56C804.34,-126.1 795.48,-127.71 787.04,-129.24"/>
-<polygon fill="#000000" stroke="#000000" points="786.23,-125.83 777.02,-131.07 787.48,-132.72 786.23,-125.83"/>
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.99,-156.65C777.2,-159.75 725.31,-164.25 685.04,-167.75"/>
+<polygon fill="#000000" stroke="#000000" points="684.72,-164.26 675.06,-168.61 685.33,-171.23 684.72,-164.26"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-143.82C698.36,-148.07 683.7,-153.02 670.06,-157.62"/>
+<polygon fill="#000000" stroke="#000000" points="668.71,-154.38 660.35,-160.9 670.95,-161.02 668.71,-154.38"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-62.89 143,-62.89 143,-38.89 250,-38.89 250,-62.89"/>
-<text text-anchor="middle" x="196.5" y="-48.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-63 142,-63 142,-39 260,-39 260,-63"/>
+<text text-anchor="middle" x="201" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C307.66,-13.37 266.69,-25.26 237.42,-35.44"/>
-<polygon fill="#000000" stroke="#000000" points="236.21,-32.16 227.97,-38.81 238.56,-38.75 236.21,-32.16"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C323.66,-54.55 295.23,-54.56 270.29,-54.01"/>
+<polygon fill="#000000" stroke="#000000" points="270.28,-50.51 260.19,-53.76 270.1,-57.51 270.28,-50.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C430.54,-32.77 411.84,-49.38 351.5,-53"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178.89 0,-178.89 0,-154.89 106,-154.89 106,-178.89"/>
-<text text-anchor="middle" x="53" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-185 441.5,-185 441.5,-161 535.5,-161 535.5,-185"/>
+<text text-anchor="middle" x="488.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-10.89C171.8,-19.55 161.77,-14.21 142,-29.89 102.57,-61.16 75.43,-115.18 62.55,-145.2"/>
-<polygon fill="#000000" stroke="#000000" points="59.19,-144.16 58.59,-154.74 65.66,-146.84 59.19,-144.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.07,-84.82C557.22,-59.62 446.24,-4.28 347,-10.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C279.46,-9.33 259.07,11.61 197.5,-10.89"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-145.86 523.02,-157"/>
+<polygon fill="#000000" stroke="#000000" points="521.61,-153.79 513.84,-161 524.41,-160.21 521.61,-153.79"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-178.89 441,-178.89 441,-154.89 536,-154.89 536,-178.89"/>
-<text text-anchor="middle" x="488.5" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.64,-108.92C578.13,-120.24 545.72,-137.3 521.62,-149.98"/>
-<polygon fill="#000000" stroke="#000000" points="519.73,-147.02 512.51,-154.78 522.99,-153.22 519.73,-147.02"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C575.46,-133 577.26,-94.6 536,-72 516.42,-61.28 510.54,-60.47 489.5,-53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-133C686.98,-133 653.71,-133 624.5,-133"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C460.62,-43.46 430.28,-34.17 405.08,-26.85"/>
+<polygon fill="#000000" stroke="#000000" points="405.91,-23.45 395.34,-24.05 403.98,-30.18 405.91,-23.45"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-98.89 441.5,-98.89 441.5,-74.89 535.5,-74.89 535.5,-98.89"/>
-<text text-anchor="middle" x="488.5" y="-84.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-105 441,-105 441,-81 536,-81 536,-105"/>
+<text text-anchor="middle" x="488.5" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-93.08C563.29,-92.44 554.37,-91.77 545.69,-91.11"/>
-<polygon fill="#000000" stroke="#000000" points="545.89,-87.62 535.65,-90.36 545.36,-94.6 545.89,-87.62"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-126.06C698.36,-121.82 683.7,-116.87 670.06,-112.27"/>
-<polygon fill="#000000" stroke="#000000" points="670.95,-108.87 660.35,-108.99 668.71,-115.5 670.95,-108.87"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C481.59,-126.04 335.09,-87.34 252.63,-65.5"/>
-<polygon fill="#000000" stroke="#000000" points="253.47,-62.1 242.9,-62.93 251.67,-68.87 253.47,-62.1"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C562.9,-151.46 548.71,-135.12 489.5,-126.89"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C364.33,-286.8 322.63,-320.54 197.5,-284.89"/>
-</g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C597.35,-148.82 569.75,-152.68 546.24,-156.5"/>
-<polygon fill="#000000" stroke="#000000" points="545.38,-153.09 536.09,-158.18 546.53,-160 545.38,-153.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-120.14 523.02,-109"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-105.79 513.84,-105 521.61,-112.21 524.41,-105.79"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.82,-139.74C686.99,-141.81 653.73,-144.65 624.5,-146.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C611.89,-147.7 557.94,-121.61 522.09,-103.57"/>
-<polygon fill="#000000" stroke="#000000" points="523.46,-100.35 512.96,-98.96 520.3,-106.59 523.46,-100.35"/>
-</g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-218.89 142,-218.89 142,-194.89 251,-194.89 251,-218.89"/>
-<text text-anchor="middle" x="196.5" y="-204.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-183 147.5,-183 147.5,-159 254.5,-159 254.5,-183"/>
+<text text-anchor="middle" x="201" y="-168.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C451.51,-256.57 442.32,-230.12 405,-223.89 357.18,-215.9 302.51,-211.62 261.29,-209.35"/>
-<polygon fill="#000000" stroke="#000000" points="261.28,-205.84 251.11,-208.81 260.91,-212.83 261.28,-205.84"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C549.29,-152.5 559.01,-221.23 489.5,-244.89"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C598.52,-133 591.64,-138.24 572,-152 551.86,-166.1 558.34,-183.73 536,-194 439.06,-238.59 309.4,-207.4 243.79,-186.19"/>
+<polygon fill="#000000" stroke="#000000" points="244.8,-182.83 234.21,-183.01 242.6,-189.48 244.8,-182.83"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_node9" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-138.89 299,-138.89 299,-114.89 393,-114.89 393,-138.89"/>
-<text text-anchor="middle" x="346" y="-124.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-143 303.5,-143 303.5,-119 397.5,-119 397.5,-143"/>
+<text text-anchor="middle" x="350.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge13" class="edge">
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C460.02,-122.92 429.2,-122.48 403.45,-123.22"/>
-<polygon fill="#000000" stroke="#000000" points="402.98,-119.73 393.11,-123.58 403.23,-126.73 402.98,-119.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C548.24,-133 462.54,-132.24 407.73,-131.66"/>
+<polygon fill="#000000" stroke="#000000" points="407.57,-128.15 397.53,-131.55 407.49,-135.15 407.57,-128.15"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-256.89 287,-256.89 287,-232.89 405,-232.89 405,-256.89"/>
-<text text-anchor="middle" x="346" y="-242.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_drift.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-103 0,-103 0,-79 106,-79 106,-103"/>
+<text text-anchor="middle" x="53" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C464.66,-252.3 438.62,-254.02 415.2,-253.31"/>
-<polygon fill="#000000" stroke="#000000" points="415.15,-249.81 405,-252.86 414.83,-256.8 415.15,-249.81"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-91C172.55,-89.01 142.12,-88.71 116.17,-89.02"/>
+<polygon fill="#000000" stroke="#000000" points="116.04,-85.53 106.1,-89.18 116.15,-92.52 116.04,-85.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C281.93,-57.05 269.52,-95.89 202,-91"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.62,-63.08C155.83,-83.41 105.88,-124.36 76.67,-148.3"/>
-<polygon fill="#000000" stroke="#000000" points="74.19,-145.81 68.68,-154.86 78.63,-151.22 74.19,-145.81"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-173C563.29,-173 554.37,-173 545.69,-173"/>
+<polygon fill="#000000" stroke="#000000" points="545.65,-169.5 535.65,-173 545.65,-176.5 545.65,-169.5"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.98,-164.99C383.64,-163.08 283.28,-161.18 197.5,-166.89"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-160.94C589.52,-156.71 580.27,-151.82 572,-147 552.53,-135.66 531.27,-121.7 515.21,-110.82"/>
+<polygon fill="#000000" stroke="#000000" points="517.1,-107.87 506.87,-105.13 513.16,-113.66 517.1,-107.87"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-154.89C430.89,-150.77 414.54,-146.11 399.37,-141.8"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-138.39 389.61,-139.02 398.27,-145.12 400.19,-138.39"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C300.24,-244.52 251.15,-211.17 223.87,-189.63"/>
+<polygon fill="#000000" stroke="#000000" points="225.78,-186.67 215.8,-183.1 221.37,-192.11 225.78,-186.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.61,-185.12C591.15,-197.81 563.34,-217.22 536,-227 458.15,-254.87 433.49,-261.78 351.5,-251"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C254.02,-242.29 222.95,-243.38 142,-192 109.38,-171.3 82.04,-134.94 66.86,-111.95"/>
+<polygon fill="#000000" stroke="#000000" points="69.65,-109.82 61.3,-103.29 63.76,-113.6 69.65,-109.82"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-63C140.96,-67.17 123.7,-71.9 107.75,-76.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-72.92 98.03,-78.94 108.6,-79.67 106.75,-72.92"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge16" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C317.58,-43.61 286.76,-43.19 260.42,-44.45"/>
-<polygon fill="#000000" stroke="#000000" points="259.96,-40.97 250.18,-45.03 260.36,-47.96 259.96,-40.97"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C321.96,-167.18 291.24,-166.6 265,-167.2"/>
+<polygon fill="#000000" stroke="#000000" points="264.7,-163.7 254.81,-167.49 264.9,-170.7 264.7,-163.7"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.53,-160.96C433.45,-156.31 416.02,-150.93 400.14,-146.02"/>
+<polygon fill="#000000" stroke="#000000" points="401.07,-142.64 390.48,-143.04 399,-149.33 401.07,-142.64"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.1,-74.85C421.06,-66.47 381.99,-55.62 347,-48.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C278.52,-36.09 261.08,12.35 197.5,-10.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C324.51,-167.53 318.63,-163.17 296,-152 251.34,-129.96 251.67,-94.59 202,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.33,-175.13C414.91,-175.65 381.2,-175.12 351.5,-171"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.87,-9.2C253,-8.7 192,-11.96 142,-30 116.3,-39.27 91.11,-58 74.31,-72.27"/>
+<polygon fill="#000000" stroke="#000000" points="72,-69.64 66.77,-78.86 76.61,-74.92 72,-69.64"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-98.89C430.89,-103 414.54,-107.66 399.37,-111.98"/>
-<polygon fill="#000000" stroke="#000000" points="398.27,-108.65 389.61,-114.76 400.19,-115.38 398.27,-108.65"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.47,-105.02C431.82,-108.56 417.83,-112.47 404.63,-116.16"/>
+<polygon fill="#000000" stroke="#000000" points="403.41,-112.86 394.72,-118.92 405.29,-119.6 403.41,-112.86"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-194.89C138.49,-190.77 122.02,-186.11 106.74,-181.8"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-178.37 96.91,-179.02 105.58,-185.11 107.49,-178.37"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M177.83,-158.85C153.03,-145.26 112.7,-123.16 84.83,-107.9"/>
+<polygon fill="#000000" stroke="#000000" points="86.36,-104.74 75.9,-103 82.99,-110.88 86.36,-104.74"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge23" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.74,-114.82C307.21,-110.59 296.57,-105.69 287,-100.89 266.6,-90.64 244.18,-78.11 226.88,-68.16"/>
-<polygon fill="#000000" stroke="#000000" points="228.25,-64.91 217.84,-62.93 224.74,-70.97 228.25,-64.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-143C289.86,-147.17 272.41,-151.9 256.31,-156.27"/>
+<polygon fill="#000000" stroke="#000000" points="255.21,-152.94 246.48,-158.94 257.05,-159.7 255.21,-152.94"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-166.89C169.66,-168.61 141.1,-168.91 116.44,-168.67"/>
-<polygon fill="#000000" stroke="#000000" points="116.18,-165.17 106.14,-168.54 116.09,-172.17 116.18,-165.17"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-138.97C285.12,-149.7 239.06,-164.12 197.5,-166.89"/>
-</g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_drift.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-284.89C139.78,-269.01 92.08,-216.53 68.94,-187.19"/>
-<polygon fill="#000000" stroke="#000000" points="71.69,-185.03 62.82,-179.24 66.14,-189.3 71.69,-185.03"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.87,-257C278.48,-270.93 219.44,-291.14 197.5,-284.89"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.03,-118.95C289.62,-108.24 243.56,-93.84 202,-91"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/symba_encounter_check.f90.html b/docs/sourcefile/symba_encounter_check.f90.html
index 3649f111a..8bed2aa25 100644
--- a/docs/sourcefile/symba_encounter_check.f90.html
+++ b/docs/sourcefile/symba_encounter_check.f90.html
@@ -226,246 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~symba_encounter_check.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilesymba_encounter_checkf90EfferentGraph" width="641pt" height="203pt"
- viewBox="0.00 0.00 641.00 203.44" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph" class="graph" transform="scale(0.66 0.66) rotate(0) translate(4 304.17)">
+<svg id="sourcefilesymba_encounter_checkf90EfferentGraph" width="641pt" height="174pt"
+ viewBox="0.00 0.00 641.00 174.38" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph" class="graph" transform="scale(0.66 0.66) rotate(0) translate(4 260.15)">
 <title>sourcefile~~symba_encounter_check.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-304.17 967,-304.17 967,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 967,-260.15 967,4 -4,4"/>
 <!-- sourcefile~symba_encounter_check.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~symba_encounter_check.f90</title>
-<polygon fill="none" stroke="black" points="963,-128.89 813,-128.89 813,-104.89 963,-104.89 963,-128.89"/>
-<text text-anchor="middle" x="888" y="-114.49" font-family="Helvetica,sans-Serif" font-size="10.50">symba_encounter_check.f90</text>
+<polygon fill="none" stroke="black" points="963,-165 813,-165 813,-141 963,-141 963,-165"/>
+<text text-anchor="middle" x="888" y="-150.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_encounter_check.f90</text>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-108.89 572,-108.89 572,-84.89 675,-84.89 675,-108.89"/>
-<text text-anchor="middle" x="623.5" y="-94.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-145 711,-145 711,-121 777,-121 777,-145"/>
+<text text-anchor="middle" x="744" y="-130.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.83,-111.24C772.64,-108.17 723.59,-104.44 685.62,-101.54"/>
-<polygon fill="#000000" stroke="#000000" points="685.46,-98.02 675.22,-100.75 684.92,-105 685.46,-98.02"/>
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.67,-142.53C803.99,-141.31 795.38,-140.1 787.36,-138.97"/>
+<polygon fill="#000000" stroke="#000000" points="787.58,-135.46 777.19,-137.53 786.6,-142.39 787.58,-135.46"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-148.89 711,-148.89 711,-124.89 777,-124.89 777,-148.89"/>
-<text text-anchor="middle" x="744" y="-134.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-185 572,-185 572,-161 675,-161 675,-185"/>
+<text text-anchor="middle" x="623.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.67,-127.36C803.99,-128.58 795.38,-129.79 787.36,-130.92"/>
-<polygon fill="#000000" stroke="#000000" points="786.6,-127.49 777.19,-132.35 787.58,-134.42 786.6,-127.49"/>
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.83,-158.65C772.64,-161.71 723.59,-165.45 685.62,-168.34"/>
+<polygon fill="#000000" stroke="#000000" points="684.92,-164.89 675.22,-169.14 685.46,-171.87 684.92,-164.89"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-143.82C698.36,-148.07 683.7,-153.02 670.06,-157.62"/>
+<polygon fill="#000000" stroke="#000000" points="668.71,-154.38 660.35,-160.9 670.95,-161.02 668.71,-154.38"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-62.89 143,-62.89 143,-38.89 250,-38.89 250,-62.89"/>
-<text text-anchor="middle" x="196.5" y="-48.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-63 142,-63 142,-39 260,-39 260,-63"/>
+<text text-anchor="middle" x="201" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C307.66,-13.37 266.69,-25.26 237.42,-35.44"/>
-<polygon fill="#000000" stroke="#000000" points="236.21,-32.16 227.97,-38.81 238.56,-38.75 236.21,-32.16"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C323.66,-54.55 295.23,-54.56 270.29,-54.01"/>
+<polygon fill="#000000" stroke="#000000" points="270.28,-50.51 260.19,-53.76 270.1,-57.51 270.28,-50.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C430.54,-32.77 411.84,-49.38 351.5,-53"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178.89 0,-178.89 0,-154.89 106,-154.89 106,-178.89"/>
-<text text-anchor="middle" x="53" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-185 441.5,-185 441.5,-161 535.5,-161 535.5,-185"/>
+<text text-anchor="middle" x="488.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-10.89C171.8,-19.55 161.77,-14.21 142,-29.89 102.57,-61.16 75.43,-115.18 62.55,-145.2"/>
-<polygon fill="#000000" stroke="#000000" points="59.19,-144.16 58.59,-154.74 65.66,-146.84 59.19,-144.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.07,-84.82C557.22,-59.62 446.24,-4.28 347,-10.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C279.46,-9.33 259.07,11.61 197.5,-10.89"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-145.86 523.02,-157"/>
+<polygon fill="#000000" stroke="#000000" points="521.61,-153.79 513.84,-161 524.41,-160.21 521.61,-153.79"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-178.89 441,-178.89 441,-154.89 536,-154.89 536,-178.89"/>
-<text text-anchor="middle" x="488.5" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.64,-108.92C578.13,-120.24 545.72,-137.3 521.62,-149.98"/>
-<polygon fill="#000000" stroke="#000000" points="519.73,-147.02 512.51,-154.78 522.99,-153.22 519.73,-147.02"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C575.46,-133 577.26,-94.6 536,-72 516.42,-61.28 510.54,-60.47 489.5,-53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-133C686.98,-133 653.71,-133 624.5,-133"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C460.62,-43.46 430.28,-34.17 405.08,-26.85"/>
+<polygon fill="#000000" stroke="#000000" points="405.91,-23.45 395.34,-24.05 403.98,-30.18 405.91,-23.45"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-98.89 441.5,-98.89 441.5,-74.89 535.5,-74.89 535.5,-98.89"/>
-<text text-anchor="middle" x="488.5" y="-84.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-105 441,-105 441,-81 536,-81 536,-105"/>
+<text text-anchor="middle" x="488.5" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-93.08C563.29,-92.44 554.37,-91.77 545.69,-91.11"/>
-<polygon fill="#000000" stroke="#000000" points="545.89,-87.62 535.65,-90.36 545.36,-94.6 545.89,-87.62"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-126.06C698.36,-121.82 683.7,-116.87 670.06,-112.27"/>
-<polygon fill="#000000" stroke="#000000" points="670.95,-108.87 660.35,-108.99 668.71,-115.5 670.95,-108.87"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C481.59,-126.04 335.09,-87.34 252.63,-65.5"/>
-<polygon fill="#000000" stroke="#000000" points="253.47,-62.1 242.9,-62.93 251.67,-68.87 253.47,-62.1"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C562.9,-151.46 548.71,-135.12 489.5,-126.89"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C364.33,-286.8 322.63,-320.54 197.5,-284.89"/>
-</g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C597.35,-148.82 569.75,-152.68 546.24,-156.5"/>
-<polygon fill="#000000" stroke="#000000" points="545.38,-153.09 536.09,-158.18 546.53,-160 545.38,-153.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-120.14 523.02,-109"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-105.79 513.84,-105 521.61,-112.21 524.41,-105.79"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.82,-139.74C686.99,-141.81 653.73,-144.65 624.5,-146.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C611.89,-147.7 557.94,-121.61 522.09,-103.57"/>
-<polygon fill="#000000" stroke="#000000" points="523.46,-100.35 512.96,-98.96 520.3,-106.59 523.46,-100.35"/>
-</g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-218.89 142,-218.89 142,-194.89 251,-194.89 251,-218.89"/>
-<text text-anchor="middle" x="196.5" y="-204.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-183 147.5,-183 147.5,-159 254.5,-159 254.5,-183"/>
+<text text-anchor="middle" x="201" y="-168.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C451.51,-256.57 442.32,-230.12 405,-223.89 357.18,-215.9 302.51,-211.62 261.29,-209.35"/>
-<polygon fill="#000000" stroke="#000000" points="261.28,-205.84 251.11,-208.81 260.91,-212.83 261.28,-205.84"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C549.29,-152.5 559.01,-221.23 489.5,-244.89"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C598.52,-133 591.64,-138.24 572,-152 551.86,-166.1 558.34,-183.73 536,-194 439.06,-238.59 309.4,-207.4 243.79,-186.19"/>
+<polygon fill="#000000" stroke="#000000" points="244.8,-182.83 234.21,-183.01 242.6,-189.48 244.8,-182.83"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node9" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-138.89 299,-138.89 299,-114.89 393,-114.89 393,-138.89"/>
-<text text-anchor="middle" x="346" y="-124.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-143 303.5,-143 303.5,-119 397.5,-119 397.5,-143"/>
+<text text-anchor="middle" x="350.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge13" class="edge">
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C460.02,-122.92 429.2,-122.48 403.45,-123.22"/>
-<polygon fill="#000000" stroke="#000000" points="402.98,-119.73 393.11,-123.58 403.23,-126.73 402.98,-119.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C548.24,-133 462.54,-132.24 407.73,-131.66"/>
+<polygon fill="#000000" stroke="#000000" points="407.57,-128.15 397.53,-131.55 407.49,-135.15 407.57,-128.15"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-256.89 287,-256.89 287,-232.89 405,-232.89 405,-256.89"/>
-<text text-anchor="middle" x="346" y="-242.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_encounter_check.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-103 0,-103 0,-79 106,-79 106,-103"/>
+<text text-anchor="middle" x="53" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C464.66,-252.3 438.62,-254.02 415.2,-253.31"/>
-<polygon fill="#000000" stroke="#000000" points="415.15,-249.81 405,-252.86 414.83,-256.8 415.15,-249.81"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-91C172.55,-89.01 142.12,-88.71 116.17,-89.02"/>
+<polygon fill="#000000" stroke="#000000" points="116.04,-85.53 106.1,-89.18 116.15,-92.52 116.04,-85.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C281.93,-57.05 269.52,-95.89 202,-91"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.62,-63.08C155.83,-83.41 105.88,-124.36 76.67,-148.3"/>
-<polygon fill="#000000" stroke="#000000" points="74.19,-145.81 68.68,-154.86 78.63,-151.22 74.19,-145.81"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-173C563.29,-173 554.37,-173 545.69,-173"/>
+<polygon fill="#000000" stroke="#000000" points="545.65,-169.5 535.65,-173 545.65,-176.5 545.65,-169.5"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.98,-164.99C383.64,-163.08 283.28,-161.18 197.5,-166.89"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-160.94C589.52,-156.71 580.27,-151.82 572,-147 552.53,-135.66 531.27,-121.7 515.21,-110.82"/>
+<polygon fill="#000000" stroke="#000000" points="517.1,-107.87 506.87,-105.13 513.16,-113.66 517.1,-107.87"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-154.89C430.89,-150.77 414.54,-146.11 399.37,-141.8"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-138.39 389.61,-139.02 398.27,-145.12 400.19,-138.39"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C300.24,-244.52 251.15,-211.17 223.87,-189.63"/>
+<polygon fill="#000000" stroke="#000000" points="225.78,-186.67 215.8,-183.1 221.37,-192.11 225.78,-186.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.61,-185.12C591.15,-197.81 563.34,-217.22 536,-227 458.15,-254.87 433.49,-261.78 351.5,-251"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C254.02,-242.29 222.95,-243.38 142,-192 109.38,-171.3 82.04,-134.94 66.86,-111.95"/>
+<polygon fill="#000000" stroke="#000000" points="69.65,-109.82 61.3,-103.29 63.76,-113.6 69.65,-109.82"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-63C140.96,-67.17 123.7,-71.9 107.75,-76.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-72.92 98.03,-78.94 108.6,-79.67 106.75,-72.92"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge16" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C317.58,-43.61 286.76,-43.19 260.42,-44.45"/>
-<polygon fill="#000000" stroke="#000000" points="259.96,-40.97 250.18,-45.03 260.36,-47.96 259.96,-40.97"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C321.96,-167.18 291.24,-166.6 265,-167.2"/>
+<polygon fill="#000000" stroke="#000000" points="264.7,-163.7 254.81,-167.49 264.9,-170.7 264.7,-163.7"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.53,-160.96C433.45,-156.31 416.02,-150.93 400.14,-146.02"/>
+<polygon fill="#000000" stroke="#000000" points="401.07,-142.64 390.48,-143.04 399,-149.33 401.07,-142.64"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.1,-74.85C421.06,-66.47 381.99,-55.62 347,-48.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C278.52,-36.09 261.08,12.35 197.5,-10.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C324.51,-167.53 318.63,-163.17 296,-152 251.34,-129.96 251.67,-94.59 202,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.33,-175.13C414.91,-175.65 381.2,-175.12 351.5,-171"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.87,-9.2C253,-8.7 192,-11.96 142,-30 116.3,-39.27 91.11,-58 74.31,-72.27"/>
+<polygon fill="#000000" stroke="#000000" points="72,-69.64 66.77,-78.86 76.61,-74.92 72,-69.64"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-98.89C430.89,-103 414.54,-107.66 399.37,-111.98"/>
-<polygon fill="#000000" stroke="#000000" points="398.27,-108.65 389.61,-114.76 400.19,-115.38 398.27,-108.65"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.47,-105.02C431.82,-108.56 417.83,-112.47 404.63,-116.16"/>
+<polygon fill="#000000" stroke="#000000" points="403.41,-112.86 394.72,-118.92 405.29,-119.6 403.41,-112.86"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-194.89C138.49,-190.77 122.02,-186.11 106.74,-181.8"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-178.37 96.91,-179.02 105.58,-185.11 107.49,-178.37"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M177.83,-158.85C153.03,-145.26 112.7,-123.16 84.83,-107.9"/>
+<polygon fill="#000000" stroke="#000000" points="86.36,-104.74 75.9,-103 82.99,-110.88 86.36,-104.74"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge23" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.74,-114.82C307.21,-110.59 296.57,-105.69 287,-100.89 266.6,-90.64 244.18,-78.11 226.88,-68.16"/>
-<polygon fill="#000000" stroke="#000000" points="228.25,-64.91 217.84,-62.93 224.74,-70.97 228.25,-64.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-143C289.86,-147.17 272.41,-151.9 256.31,-156.27"/>
+<polygon fill="#000000" stroke="#000000" points="255.21,-152.94 246.48,-158.94 257.05,-159.7 255.21,-152.94"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-166.89C169.66,-168.61 141.1,-168.91 116.44,-168.67"/>
-<polygon fill="#000000" stroke="#000000" points="116.18,-165.17 106.14,-168.54 116.09,-172.17 116.18,-165.17"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-138.97C285.12,-149.7 239.06,-164.12 197.5,-166.89"/>
-</g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_encounter_check.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-284.89C139.78,-269.01 92.08,-216.53 68.94,-187.19"/>
-<polygon fill="#000000" stroke="#000000" points="71.69,-185.03 62.82,-179.24 66.14,-189.3 71.69,-185.03"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.87,-257C278.48,-270.93 219.44,-291.14 197.5,-284.89"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.03,-118.95C289.62,-108.24 243.56,-93.84 202,-91"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/symba_fragmentation.f90.html b/docs/sourcefile/symba_fragmentation.f90.html
index f3e3d0079..cf0a87a7f 100644
--- a/docs/sourcefile/symba_fragmentation.f90.html
+++ b/docs/sourcefile/symba_fragmentation.f90.html
@@ -134,7 +134,7 @@ <h1>symba_fragmentation.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 3.3% of total for source files.">444 statements</a>
+    title=" 2.6% of total for source files.">345 statements</a>
      </li> 
      
      
@@ -226,246 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~symba_fragmentation.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilesymba_fragmentationf90EfferentGraph" width="641pt" height="207pt"
- viewBox="0.00 0.00 641.00 206.85" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph" class="graph" transform="scale(0.67 0.67) rotate(0) translate(4 304.17)">
+<svg id="sourcefilesymba_fragmentationf90EfferentGraph" width="641pt" height="177pt"
+ viewBox="0.00 0.00 641.00 177.30" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph" class="graph" transform="scale(0.67 0.67) rotate(0) translate(4 260.15)">
 <title>sourcefile~~symba_fragmentation.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-304.17 951,-304.17 951,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 951,-260.15 951,4 -4,4"/>
 <!-- sourcefile~symba_fragmentation.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~symba_fragmentation.f90</title>
-<polygon fill="none" stroke="black" points="947,-128.89 813,-128.89 813,-104.89 947,-104.89 947,-128.89"/>
-<text text-anchor="middle" x="880" y="-114.49" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation.f90</text>
+<polygon fill="none" stroke="black" points="947,-165 813,-165 813,-141 947,-141 947,-165"/>
+<text text-anchor="middle" x="880" y="-150.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_fragmentation.f90</text>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~symba_fragmentation.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-108.89 572,-108.89 572,-84.89 675,-84.89 675,-108.89"/>
-<text text-anchor="middle" x="623.5" y="-94.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~symba_fragmentation.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-145 711,-145 711,-121 777,-121 777,-145"/>
+<text text-anchor="middle" x="744" y="-130.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.8,-111.68C773.32,-108.58 723.57,-104.67 685.12,-101.65"/>
-<polygon fill="#000000" stroke="#000000" points="685.34,-98.16 675.1,-100.86 684.79,-105.14 685.34,-98.16"/>
+<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.79,-143.12C804.07,-141.82 795.34,-140.51 787.17,-139.29"/>
+<polygon fill="#000000" stroke="#000000" points="787.59,-135.82 777.19,-137.8 786.56,-142.74 787.59,-135.82"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~symba_fragmentation.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-148.89 711,-148.89 711,-124.89 777,-124.89 777,-148.89"/>
-<text text-anchor="middle" x="744" y="-134.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~symba_fragmentation.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-185 572,-185 572,-161 675,-161 675,-185"/>
+<text text-anchor="middle" x="623.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.79,-126.77C804.07,-128.07 795.34,-129.37 787.17,-130.59"/>
-<polygon fill="#000000" stroke="#000000" points="786.56,-127.15 777.19,-132.08 787.59,-134.07 786.56,-127.15"/>
+<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.8,-158.2C773.32,-161.3 723.57,-165.21 685.12,-168.24"/>
+<polygon fill="#000000" stroke="#000000" points="684.79,-164.75 675.1,-169.02 685.34,-171.73 684.79,-164.75"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-143.82C698.36,-148.07 683.7,-153.02 670.06,-157.62"/>
+<polygon fill="#000000" stroke="#000000" points="668.71,-154.38 660.35,-160.9 670.95,-161.02 668.71,-154.38"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~symba_fragmentation.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-62.89 143,-62.89 143,-38.89 250,-38.89 250,-62.89"/>
-<text text-anchor="middle" x="196.5" y="-48.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_fragmentation.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-63 142,-63 142,-39 260,-39 260,-63"/>
+<text text-anchor="middle" x="201" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C307.66,-13.37 266.69,-25.26 237.42,-35.44"/>
-<polygon fill="#000000" stroke="#000000" points="236.21,-32.16 227.97,-38.81 238.56,-38.75 236.21,-32.16"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C323.66,-54.55 295.23,-54.56 270.29,-54.01"/>
+<polygon fill="#000000" stroke="#000000" points="270.28,-50.51 260.19,-53.76 270.1,-57.51 270.28,-50.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C430.54,-32.77 411.84,-49.38 351.5,-53"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~symba_fragmentation.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178.89 0,-178.89 0,-154.89 106,-154.89 106,-178.89"/>
-<text text-anchor="middle" x="53" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_fragmentation.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-185 441.5,-185 441.5,-161 535.5,-161 535.5,-185"/>
+<text text-anchor="middle" x="488.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-10.89C171.8,-19.55 161.77,-14.21 142,-29.89 102.57,-61.16 75.43,-115.18 62.55,-145.2"/>
-<polygon fill="#000000" stroke="#000000" points="59.19,-144.16 58.59,-154.74 65.66,-146.84 59.19,-144.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.07,-84.82C557.22,-59.62 446.24,-4.28 347,-10.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C279.46,-9.33 259.07,11.61 197.5,-10.89"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-145.86 523.02,-157"/>
+<polygon fill="#000000" stroke="#000000" points="521.61,-153.79 513.84,-161 524.41,-160.21 521.61,-153.79"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~symba_fragmentation.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-178.89 441,-178.89 441,-154.89 536,-154.89 536,-178.89"/>
-<text text-anchor="middle" x="488.5" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_fragmentation.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.64,-108.92C578.13,-120.24 545.72,-137.3 521.62,-149.98"/>
-<polygon fill="#000000" stroke="#000000" points="519.73,-147.02 512.51,-154.78 522.99,-153.22 519.73,-147.02"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C575.46,-133 577.26,-94.6 536,-72 516.42,-61.28 510.54,-60.47 489.5,-53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-133C686.98,-133 653.71,-133 624.5,-133"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C460.62,-43.46 430.28,-34.17 405.08,-26.85"/>
+<polygon fill="#000000" stroke="#000000" points="405.91,-23.45 395.34,-24.05 403.98,-30.18 405.91,-23.45"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~symba_fragmentation.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-98.89 441.5,-98.89 441.5,-74.89 535.5,-74.89 535.5,-98.89"/>
-<text text-anchor="middle" x="488.5" y="-84.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~symba_fragmentation.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-105 441,-105 441,-81 536,-81 536,-105"/>
+<text text-anchor="middle" x="488.5" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-93.08C563.29,-92.44 554.37,-91.77 545.69,-91.11"/>
-<polygon fill="#000000" stroke="#000000" points="545.89,-87.62 535.65,-90.36 545.36,-94.6 545.89,-87.62"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-126.06C698.36,-121.82 683.7,-116.87 670.06,-112.27"/>
-<polygon fill="#000000" stroke="#000000" points="670.95,-108.87 660.35,-108.99 668.71,-115.5 670.95,-108.87"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C481.59,-126.04 335.09,-87.34 252.63,-65.5"/>
-<polygon fill="#000000" stroke="#000000" points="253.47,-62.1 242.9,-62.93 251.67,-68.87 253.47,-62.1"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C562.9,-151.46 548.71,-135.12 489.5,-126.89"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C364.33,-286.8 322.63,-320.54 197.5,-284.89"/>
-</g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C597.35,-148.82 569.75,-152.68 546.24,-156.5"/>
-<polygon fill="#000000" stroke="#000000" points="545.38,-153.09 536.09,-158.18 546.53,-160 545.38,-153.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-120.14 523.02,-109"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-105.79 513.84,-105 521.61,-112.21 524.41,-105.79"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.82,-139.74C686.99,-141.81 653.73,-144.65 624.5,-146.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C611.89,-147.7 557.94,-121.61 522.09,-103.57"/>
-<polygon fill="#000000" stroke="#000000" points="523.46,-100.35 512.96,-98.96 520.3,-106.59 523.46,-100.35"/>
-</g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~symba_fragmentation.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-218.89 142,-218.89 142,-194.89 251,-194.89 251,-218.89"/>
-<text text-anchor="middle" x="196.5" y="-204.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~symba_fragmentation.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-183 147.5,-183 147.5,-159 254.5,-159 254.5,-183"/>
+<text text-anchor="middle" x="201" y="-168.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C451.51,-256.57 442.32,-230.12 405,-223.89 357.18,-215.9 302.51,-211.62 261.29,-209.35"/>
-<polygon fill="#000000" stroke="#000000" points="261.28,-205.84 251.11,-208.81 260.91,-212.83 261.28,-205.84"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C549.29,-152.5 559.01,-221.23 489.5,-244.89"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C598.52,-133 591.64,-138.24 572,-152 551.86,-166.1 558.34,-183.73 536,-194 439.06,-238.59 309.4,-207.4 243.79,-186.19"/>
+<polygon fill="#000000" stroke="#000000" points="244.8,-182.83 234.21,-183.01 242.6,-189.48 244.8,-182.83"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_node9" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~symba_fragmentation.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-138.89 299,-138.89 299,-114.89 393,-114.89 393,-138.89"/>
-<text text-anchor="middle" x="346" y="-124.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-143 303.5,-143 303.5,-119 397.5,-119 397.5,-143"/>
+<text text-anchor="middle" x="350.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge13" class="edge">
+<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C460.02,-122.92 429.2,-122.48 403.45,-123.22"/>
-<polygon fill="#000000" stroke="#000000" points="402.98,-119.73 393.11,-123.58 403.23,-126.73 402.98,-119.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C548.24,-133 462.54,-132.24 407.73,-131.66"/>
+<polygon fill="#000000" stroke="#000000" points="407.57,-128.15 397.53,-131.55 407.49,-135.15 407.57,-128.15"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~symba_fragmentation.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-256.89 287,-256.89 287,-232.89 405,-232.89 405,-256.89"/>
-<text text-anchor="middle" x="346" y="-242.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_fragmentation.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-103 0,-103 0,-79 106,-79 106,-103"/>
+<text text-anchor="middle" x="53" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C464.66,-252.3 438.62,-254.02 415.2,-253.31"/>
-<polygon fill="#000000" stroke="#000000" points="415.15,-249.81 405,-252.86 414.83,-256.8 415.15,-249.81"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-91C172.55,-89.01 142.12,-88.71 116.17,-89.02"/>
+<polygon fill="#000000" stroke="#000000" points="116.04,-85.53 106.1,-89.18 116.15,-92.52 116.04,-85.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C281.93,-57.05 269.52,-95.89 202,-91"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.62,-63.08C155.83,-83.41 105.88,-124.36 76.67,-148.3"/>
-<polygon fill="#000000" stroke="#000000" points="74.19,-145.81 68.68,-154.86 78.63,-151.22 74.19,-145.81"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-173C563.29,-173 554.37,-173 545.69,-173"/>
+<polygon fill="#000000" stroke="#000000" points="545.65,-169.5 535.65,-173 545.65,-176.5 545.65,-169.5"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.98,-164.99C383.64,-163.08 283.28,-161.18 197.5,-166.89"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-160.94C589.52,-156.71 580.27,-151.82 572,-147 552.53,-135.66 531.27,-121.7 515.21,-110.82"/>
+<polygon fill="#000000" stroke="#000000" points="517.1,-107.87 506.87,-105.13 513.16,-113.66 517.1,-107.87"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-154.89C430.89,-150.77 414.54,-146.11 399.37,-141.8"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-138.39 389.61,-139.02 398.27,-145.12 400.19,-138.39"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C300.24,-244.52 251.15,-211.17 223.87,-189.63"/>
+<polygon fill="#000000" stroke="#000000" points="225.78,-186.67 215.8,-183.1 221.37,-192.11 225.78,-186.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.61,-185.12C591.15,-197.81 563.34,-217.22 536,-227 458.15,-254.87 433.49,-261.78 351.5,-251"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C254.02,-242.29 222.95,-243.38 142,-192 109.38,-171.3 82.04,-134.94 66.86,-111.95"/>
+<polygon fill="#000000" stroke="#000000" points="69.65,-109.82 61.3,-103.29 63.76,-113.6 69.65,-109.82"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-63C140.96,-67.17 123.7,-71.9 107.75,-76.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-72.92 98.03,-78.94 108.6,-79.67 106.75,-72.92"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge16" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C317.58,-43.61 286.76,-43.19 260.42,-44.45"/>
-<polygon fill="#000000" stroke="#000000" points="259.96,-40.97 250.18,-45.03 260.36,-47.96 259.96,-40.97"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C321.96,-167.18 291.24,-166.6 265,-167.2"/>
+<polygon fill="#000000" stroke="#000000" points="264.7,-163.7 254.81,-167.49 264.9,-170.7 264.7,-163.7"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.53,-160.96C433.45,-156.31 416.02,-150.93 400.14,-146.02"/>
+<polygon fill="#000000" stroke="#000000" points="401.07,-142.64 390.48,-143.04 399,-149.33 401.07,-142.64"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.1,-74.85C421.06,-66.47 381.99,-55.62 347,-48.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C278.52,-36.09 261.08,12.35 197.5,-10.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C324.51,-167.53 318.63,-163.17 296,-152 251.34,-129.96 251.67,-94.59 202,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.33,-175.13C414.91,-175.65 381.2,-175.12 351.5,-171"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.87,-9.2C253,-8.7 192,-11.96 142,-30 116.3,-39.27 91.11,-58 74.31,-72.27"/>
+<polygon fill="#000000" stroke="#000000" points="72,-69.64 66.77,-78.86 76.61,-74.92 72,-69.64"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-98.89C430.89,-103 414.54,-107.66 399.37,-111.98"/>
-<polygon fill="#000000" stroke="#000000" points="398.27,-108.65 389.61,-114.76 400.19,-115.38 398.27,-108.65"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.47,-105.02C431.82,-108.56 417.83,-112.47 404.63,-116.16"/>
+<polygon fill="#000000" stroke="#000000" points="403.41,-112.86 394.72,-118.92 405.29,-119.6 403.41,-112.86"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-194.89C138.49,-190.77 122.02,-186.11 106.74,-181.8"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-178.37 96.91,-179.02 105.58,-185.11 107.49,-178.37"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M177.83,-158.85C153.03,-145.26 112.7,-123.16 84.83,-107.9"/>
+<polygon fill="#000000" stroke="#000000" points="86.36,-104.74 75.9,-103 82.99,-110.88 86.36,-104.74"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge23" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.74,-114.82C307.21,-110.59 296.57,-105.69 287,-100.89 266.6,-90.64 244.18,-78.11 226.88,-68.16"/>
-<polygon fill="#000000" stroke="#000000" points="228.25,-64.91 217.84,-62.93 224.74,-70.97 228.25,-64.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-143C289.86,-147.17 272.41,-151.9 256.31,-156.27"/>
+<polygon fill="#000000" stroke="#000000" points="255.21,-152.94 246.48,-158.94 257.05,-159.7 255.21,-152.94"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-166.89C169.66,-168.61 141.1,-168.91 116.44,-168.67"/>
-<polygon fill="#000000" stroke="#000000" points="116.18,-165.17 106.14,-168.54 116.09,-172.17 116.18,-165.17"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-138.97C285.12,-149.7 239.06,-164.12 197.5,-166.89"/>
-</g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_fragmentation.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-284.89C139.78,-269.01 92.08,-216.53 68.94,-187.19"/>
-<polygon fill="#000000" stroke="#000000" points="71.69,-185.03 62.82,-179.24 66.14,-189.3 71.69,-185.03"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.87,-257C278.48,-270.93 219.44,-291.14 197.5,-284.89"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.03,-118.95C289.62,-108.24 243.56,-93.84 202,-91"/>
 </g>
 </g>
 </svg>
@@ -590,557 +588,446 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-28"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">vol</span>
 <a name="ln-29"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,</span> <span class="p">:),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">Ip_frag</span>
 <a name="ln-30"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>     <span class="kd">::</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span>
-<a name="ln-31"></a>      <span class="kt">logical</span>                                 <span class="kd">::</span> <span class="n">lfailure</span>
-<a name="ln-32"></a>      <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lmask</span>
-<a name="ln-33"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span> <span class="k">allocatable</span>            <span class="kd">::</span> <span class="n">plnew</span>
-<a name="ln-34"></a>   
-<a name="ln-35"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-36"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-37"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">mergeadd_list</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">mergeadd_list</span><span class="p">,</span> <span class="n">mergesub_list</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">mergesub_list</span><span class="p">,</span> <span class="n">cb</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-38"></a>            <span class="c">! Collisional fragments will be uniformly distributed around the pre-impact barycenter</span>
-<a name="ln-39"></a>            <span class="n">nfrag</span> <span class="o">=</span> <span class="n">NFRAG_DISRUPT</span> 
-<a name="ln-40"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-41"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">rad_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-42"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">xb_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-43"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">vb_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-44"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">rot_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-45"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">Ip_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-46"></a>         
-<a name="ln-47"></a>            <span class="n">mtot</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">mass</span><span class="p">(:))</span>
-<a name="ln-48"></a>            <span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
-<a name="ln-49"></a>            <span class="n">vcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
-<a name="ln-50"></a>         
-<a name="ln-51"></a>            <span class="c">! Get mass weighted mean of Ip and average density</span>
-<a name="ln-52"></a>            <span class="n">Ip_new</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">Ip</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">Ip</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
-<a name="ln-53"></a>            <span class="n">vol</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">4._DP</span> <span class="o">/</span> <span class="mf">3._DP</span> <span class="o">*</span> <span class="n">PI</span> <span class="o">*</span> <span class="n">radius</span><span class="p">(:)</span><span class="o">**</span><span class="mi">3</span>
-<a name="ln-54"></a>            <span class="n">avg_dens</span> <span class="o">=</span> <span class="n">mtot</span> <span class="o">/</span> <span class="nb">sum</span><span class="p">(</span><span class="n">vol</span><span class="p">(:))</span>
-<a name="ln-55"></a>         
-<a name="ln-56"></a>            <span class="c">! Distribute the mass among fragments, with a branch to check for the size of the second largest fragment</span>
-<a name="ln-57"></a>            <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">mass_res</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-58"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">mass_res</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">&gt;</span> <span class="n">mass_res</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">/</span> <span class="mf">3._DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-59"></a><span class="k">               </span><span class="n">m_frag</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">=</span> <span class="n">mass_res</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-60"></a>               <span class="n">istart</span> <span class="o">=</span> <span class="mi">3</span>
-<a name="ln-61"></a>            <span class="k">else</span>
-<a name="ln-62"></a><span class="k">               </span><span class="n">istart</span> <span class="o">=</span> <span class="mi">2</span>
-<a name="ln-63"></a>            <span class="k">end if</span>
-<a name="ln-64"></a>            <span class="c">! Distribute remaining mass among the remaining bodies</span>
-<a name="ln-65"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="n">istart</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-66"></a>               <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mtot</span> <span class="o">-</span> <span class="nb">sum</span><span class="p">(</span><span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">istart</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)))</span> <span class="o">/</span> <span class="p">(</span><span class="n">nfrag</span> <span class="o">-</span> <span class="n">istart</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> 
-<a name="ln-67"></a>            <span class="k">end do</span>
-<a name="ln-68"></a>         
-<a name="ln-69"></a>            <span class="c">! Distribute any residual mass if there is any and set the radius</span>
-<a name="ln-70"></a>            <span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">+</span> <span class="p">(</span><span class="n">mtot</span> <span class="o">-</span> <span class="nb">sum</span><span class="p">(</span><span class="n">m_frag</span><span class="p">(:)))</span>
-<a name="ln-71"></a>            <span class="n">rad_frag</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(:)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="n">PI</span> <span class="o">*</span> <span class="n">avg_dens</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">/</span> <span class="mf">3.0_DP</span><span class="p">)</span>
-<a name="ln-72"></a>         
-<a name="ln-73"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-74"></a>               <span class="n">Ip_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">Ip_new</span><span class="p">(:)</span>
-<a name="ln-75"></a>            <span class="k">end do</span>
-<a name="ln-76"></a><span class="k">         </span>
-<a name="ln-77"></a><span class="k">            call </span><span class="n">fragmentation_initialize</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-78"></a>                                          <span class="n">nfrag</span><span class="p">,</span> <span class="n">Ip_frag</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">,</span> <span class="n">lfailure</span><span class="p">)</span>
-<a name="ln-79"></a>         
-<a name="ln-80"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lfailure</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-81"></a><span class="k">               write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;No fragment solution found, so treat as a pure hit-and-run&#39;</span>
-<a name="ln-82"></a>               <span class="n">status</span> <span class="o">=</span> <span class="n">ACTIVE</span> 
-<a name="ln-83"></a>               <span class="n">nfrag</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-84"></a>            <span class="k">else</span>
-<a name="ln-85"></a>               <span class="c">! Populate the list of new bodies</span>
-<a name="ln-86"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="s1">&#39;(&quot;Generating &quot;,I2.0,&quot; fragments&quot;)&#39;</span><span class="p">)</span> <span class="n">nfrag</span>
-<a name="ln-87"></a>               <span class="n">status</span> <span class="o">=</span> <span class="n">DISRUPTION</span>
+<a name="ln-31"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">id_frag</span>
+<a name="ln-32"></a>      <span class="kt">logical</span>                                 <span class="kd">::</span> <span class="n">lfailure</span>
+<a name="ln-33"></a>   
+<a name="ln-34"></a>      <span class="c">! Collisional fragments will be uniformly distributed around the pre-impact barycenter</span>
+<a name="ln-35"></a>      <span class="n">nfrag</span> <span class="o">=</span> <span class="n">NFRAG_DISRUPT</span> 
+<a name="ln-36"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-37"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">rad_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-38"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">xb_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-39"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">vb_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-40"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">rot_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-41"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">Ip_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-42"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">id_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-43"></a>   
+<a name="ln-44"></a>      <span class="n">mtot</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">mass</span><span class="p">(:))</span>
+<a name="ln-45"></a>      <span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
+<a name="ln-46"></a>      <span class="n">vcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
+<a name="ln-47"></a>   
+<a name="ln-48"></a>      <span class="c">! Get mass weighted mean of Ip and average density</span>
+<a name="ln-49"></a>      <span class="n">Ip_new</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">Ip</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">Ip</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
+<a name="ln-50"></a>      <span class="n">vol</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">4._DP</span> <span class="o">/</span> <span class="mf">3._DP</span> <span class="o">*</span> <span class="n">PI</span> <span class="o">*</span> <span class="n">radius</span><span class="p">(:)</span><span class="o">**</span><span class="mi">3</span>
+<a name="ln-51"></a>      <span class="n">avg_dens</span> <span class="o">=</span> <span class="n">mtot</span> <span class="o">/</span> <span class="nb">sum</span><span class="p">(</span><span class="n">vol</span><span class="p">(:))</span>
+<a name="ln-52"></a>   
+<a name="ln-53"></a>      <span class="c">! Distribute the mass among fragments, with a branch to check for the size of the second largest fragment</span>
+<a name="ln-54"></a>      <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">mass_res</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-55"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">mass_res</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">&gt;</span> <span class="n">mass_res</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">/</span> <span class="mf">3._DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-56"></a><span class="k">         </span><span class="n">m_frag</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">=</span> <span class="n">mass_res</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-57"></a>         <span class="n">istart</span> <span class="o">=</span> <span class="mi">3</span>
+<a name="ln-58"></a>      <span class="k">else</span>
+<a name="ln-59"></a><span class="k">         </span><span class="n">istart</span> <span class="o">=</span> <span class="mi">2</span>
+<a name="ln-60"></a>      <span class="k">end if</span>
+<a name="ln-61"></a>      <span class="c">! Distribute remaining mass among the remaining bodies</span>
+<a name="ln-62"></a>      <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="n">istart</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-63"></a>         <span class="n">m_frag</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mtot</span> <span class="o">-</span> <span class="nb">sum</span><span class="p">(</span><span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">istart</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)))</span> <span class="o">/</span> <span class="p">(</span><span class="n">nfrag</span> <span class="o">-</span> <span class="n">istart</span> <span class="o">+</span> <span class="mi">1</span><span class="p">)</span> 
+<a name="ln-64"></a>      <span class="k">end do</span>
+<a name="ln-65"></a>   
+<a name="ln-66"></a>      <span class="c">! Distribute any residual mass if there is any and set the radius</span>
+<a name="ln-67"></a>      <span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">+</span> <span class="p">(</span><span class="n">mtot</span> <span class="o">-</span> <span class="nb">sum</span><span class="p">(</span><span class="n">m_frag</span><span class="p">(:)))</span>
+<a name="ln-68"></a>      <span class="n">rad_frag</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(:)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="n">PI</span> <span class="o">*</span> <span class="n">avg_dens</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">/</span> <span class="mf">3.0_DP</span><span class="p">)</span>
+<a name="ln-69"></a>      <span class="n">id_frag</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">[(</span><span class="n">i</span><span class="p">,</span> <span class="n">i</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">+</span> <span class="mi">1</span><span class="p">,</span> <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">+</span> <span class="n">nfrag</span><span class="p">)]</span>
+<a name="ln-70"></a>   
+<a name="ln-71"></a>      <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-72"></a>         <span class="n">Ip_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">Ip_new</span><span class="p">(:)</span>
+<a name="ln-73"></a>      <span class="k">end do</span>
+<a name="ln-74"></a><span class="k">   </span>
+<a name="ln-75"></a><span class="k">      call </span><span class="n">fragmentation_initialize</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-76"></a>                                    <span class="n">nfrag</span><span class="p">,</span> <span class="n">Ip_frag</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">,</span> <span class="n">lfailure</span><span class="p">)</span>
+<a name="ln-77"></a>   
+<a name="ln-78"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">lfailure</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-79"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;No fragment solution found, so treat as a pure hit-and-run&#39;</span>
+<a name="ln-80"></a>         <span class="n">status</span> <span class="o">=</span> <span class="n">ACTIVE</span> 
+<a name="ln-81"></a>         <span class="n">nfrag</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-82"></a>      <span class="k">else</span>
+<a name="ln-83"></a>         <span class="c">! Populate the list of new bodies</span>
+<a name="ln-84"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="s1">&#39;(&quot;Generating &quot;,I2.0,&quot; fragments&quot;)&#39;</span><span class="p">)</span> <span class="n">nfrag</span>
+<a name="ln-85"></a>         <span class="n">status</span> <span class="o">=</span> <span class="n">DISRUPTION</span>
+<a name="ln-86"></a>         <span class="k">call </span><span class="n">symba_fragmentation_mergeaddsub</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">id_frag</span><span class="p">,</span> <span class="n">Ip_frag</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">status</span><span class="p">)</span>
+<a name="ln-87"></a>      <span class="k">end if</span>
 <a name="ln-88"></a>
-<a name="ln-89"></a>               <span class="c">! Add the family bodies to the subtraction list</span>
-<a name="ln-90"></a>               <span class="n">nfamily</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span>
-<a name="ln-91"></a>               <span class="n">lmask</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-92"></a>               <span class="n">lmask</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-93"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span> <span class="o">=</span> <span class="n">MERGED</span>
-<a name="ln-94"></a>               <span class="n">nstart</span> <span class="o">=</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-95"></a>               <span class="n">nend</span> <span class="o">=</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="n">nfamily</span>
-<a name="ln-96"></a>               <span class="k">call </span><span class="n">mergesub_list</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">lmask</span><span class="p">)</span>
-<a name="ln-97"></a>               <span class="c">! Record how many bodies were subtracted in this event</span>
-<a name="ln-98"></a>               <span class="n">mergesub_list</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(</span><span class="n">nstart</span><span class="p">:</span><span class="n">nend</span><span class="p">)</span> <span class="o">=</span> <span class="n">nfamily</span> 
-<a name="ln-99"></a>
-<a name="ln-100"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">plnew</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-101"></a>               <span class="k">call </span><span class="n">plnew</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="n">nfrag</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-102"></a>    
-<a name="ln-103"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">id</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">[(</span><span class="n">i</span><span class="p">,</span> <span class="n">i</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">+</span> <span class="mi">1</span><span class="p">,</span> <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">+</span> <span class="n">nfrag</span><span class="p">)]</span>
-<a name="ln-104"></a>               <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">+</span> <span class="n">nfrag</span>
-<a name="ln-105"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">status</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
-<a name="ln-106"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-107"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-108"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">xb_frag</span><span class="p">(:,</span> <span class="p">:)</span> 
-<a name="ln-109"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">vb_frag</span><span class="p">(:,</span> <span class="p">:)</span>
-<a name="ln-110"></a>               <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-111"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">xb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">(:)</span>
-<a name="ln-112"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:)</span>
-<a name="ln-113"></a>               <span class="k">end do</span>
-<a name="ln-114"></a><span class="k">               </span><span class="n">plnew</span><span class="p">%</span><span class="n">mass</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(:)</span>
-<a name="ln-115"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(:)</span>
-<a name="ln-116"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">density</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">avg_dens</span>
-<a name="ln-117"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">radius</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">rad_frag</span><span class="p">(:)</span>
-<a name="ln-118"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(:)%</span><span class="n">origin_type</span> <span class="o">=</span> <span class="s2">&quot;Disruption&quot;</span>
-<a name="ln-119"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(:)%</span><span class="n">origin_time</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span>
-<a name="ln-120"></a>               <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-121"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">origin_xh</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">plnew</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-122"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">origin_vh</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">plnew</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-123"></a>               <span class="k">end do</span>
-<a name="ln-124"></a><span class="k">               if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-125"></a><span class="k">                  </span><span class="n">plnew</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">Ip_frag</span><span class="p">(:,:)</span>
-<a name="ln-126"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">rot_frag</span><span class="p">(:,:)</span>
-<a name="ln-127"></a>               <span class="k">end if</span>
-<a name="ln-128"></a><span class="k">               if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-129"></a><span class="k">                  </span><span class="n">ibiggest</span> <span class="o">=</span> <span class="nb">maxloc</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">family</span><span class="p">(:)),</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-130"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">Q</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Q</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
-<a name="ln-131"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">k2</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">k2</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
-<a name="ln-132"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">tlag</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">tlag</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
-<a name="ln-133"></a>               <span class="k">end if</span>
-<a name="ln-134"></a>   
-<a name="ln-135"></a>               <span class="c">! Append the new merged body to the list and record how many we made</span>
-<a name="ln-136"></a>               <span class="n">nstart</span> <span class="o">=</span> <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-137"></a>               <span class="n">nend</span> <span class="o">=</span> <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="n">plnew</span><span class="p">%</span><span class="n">nbody</span>
-<a name="ln-138"></a>               <span class="k">call </span><span class="n">mergeadd_list</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">plnew</span><span class="p">)</span>
-<a name="ln-139"></a>               <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(</span><span class="n">nstart</span><span class="p">:</span><span class="n">nend</span><span class="p">)</span> <span class="o">=</span> <span class="n">plnew</span><span class="p">%</span><span class="n">nbody</span>
-<a name="ln-140"></a>    
-<a name="ln-141"></a>               <span class="k">call </span><span class="n">plnew</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">0</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-142"></a>               <span class="k">deallocate</span><span class="p">(</span><span class="n">plnew</span><span class="p">)</span>
-<a name="ln-143"></a>            <span class="k">end if</span>
-<a name="ln-144"></a>
-<a name="ln-145"></a><span class="k">         end associate</span>
-<a name="ln-146"></a><span class="k">      end select</span>
-<a name="ln-147"></a>
-<a name="ln-148"></a><span class="k">      return</span>
-<a name="ln-149"></a><span class="k">   end function </span><span class="n">symba_fragmentation_casedisruption</span>
-<a name="ln-150"></a>
-<a name="ln-151"></a>
-<a name="ln-152"></a>   <span class="k">module function </span><span class="n">symba_fragmentation_casehitandrun</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass_res</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">)</span>  <span class="k">result</span><span class="p">(</span><span class="n">status</span><span class="p">)</span>
-<a name="ln-153"></a>      <span class="c">!! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
-<a name="ln-154"></a>      <span class="c">!!</span>
-<a name="ln-155"></a>      <span class="c">!! Create the fragments resulting from a non-catastrophic hit-and-run collision</span>
-<a name="ln-156"></a>      <span class="c">!! </span>
-<a name="ln-157"></a>      <span class="k">implicit none</span>
-<a name="ln-158"></a>      <span class="c">! Arguments</span>
-<a name="ln-159"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>           <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-160"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>            <span class="c">!! Current run configuration parameters with SyMBA additions</span>
-<a name="ln-161"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">family</span>           <span class="c">!! List of indices of all bodies inovlved in the collision</span>
-<a name="ln-162"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span> <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-163"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-164"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass_res</span>         <span class="c">!! The distribution of fragment mass obtained by the regime calculation </span>
-<a name="ln-165"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Qloss</span>            <span class="c">!! Energy lost during collision</span>
-<a name="ln-166"></a>      <span class="c">! Result</span>
-<a name="ln-167"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">status</span>           <span class="c">!! Status flag assigned to this outcome</span>
-<a name="ln-168"></a>      <span class="c">! Internals</span>
-<a name="ln-169"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                            <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">,</span> <span class="n">jproj</span><span class="p">,</span> <span class="n">jtarg</span><span class="p">,</span> <span class="n">idstart</span><span class="p">,</span> <span class="n">ibiggest</span><span class="p">,</span> <span class="n">nfamily</span><span class="p">,</span> <span class="n">nstart</span><span class="p">,</span> <span class="n">nend</span>
-<a name="ln-170"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                <span class="kd">::</span> <span class="n">mtot</span><span class="p">,</span> <span class="n">avg_dens</span>
-<a name="ln-171"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>               <span class="kd">::</span> <span class="n">xcom</span><span class="p">,</span> <span class="n">vcom</span>
-<a name="ln-172"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">vol</span>
-<a name="ln-173"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,</span> <span class="p">:),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">Ip_frag</span>
-<a name="ln-174"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>     <span class="kd">::</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span>
-<a name="ln-175"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">id_frag</span>
-<a name="ln-176"></a>      <span class="kt">logical</span>                                 <span class="kd">::</span> <span class="n">lpure</span>
-<a name="ln-177"></a>      <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lmask</span>
-<a name="ln-178"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span> <span class="k">allocatable</span>            <span class="kd">::</span> <span class="n">plnew</span>
-<a name="ln-179"></a>   
-<a name="ln-180"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-181"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-182"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">mergeadd_list</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">mergeadd_list</span><span class="p">,</span> <span class="n">mergesub_list</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">mergesub_list</span><span class="p">,</span> <span class="n">cb</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-183"></a>            <span class="n">mtot</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">mass</span><span class="p">(:))</span>
-<a name="ln-184"></a>            <span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
-<a name="ln-185"></a>            <span class="n">vcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
-<a name="ln-186"></a>            <span class="n">lpure</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-187"></a>         
-<a name="ln-188"></a>            <span class="c">! The largest body will stay untouched</span>
-<a name="ln-189"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">&gt;</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-190"></a><span class="k">               </span><span class="n">jtarg</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-191"></a>               <span class="n">jproj</span> <span class="o">=</span> <span class="mi">2</span>
-<a name="ln-192"></a>            <span class="k">else</span>
-<a name="ln-193"></a><span class="k">               </span><span class="n">jtarg</span> <span class="o">=</span> <span class="mi">2</span>
-<a name="ln-194"></a>               <span class="n">jproj</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-195"></a>            <span class="k">end if</span>
-<a name="ln-196"></a><span class="k">         </span>
-<a name="ln-197"></a><span class="k">            if</span> <span class="p">(</span><span class="n">mass_res</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">&gt;</span> <span class="mf">0.9_DP</span> <span class="o">*</span> <span class="n">mass</span><span class="p">(</span><span class="n">jproj</span><span class="p">))</span> <span class="k">then</span> <span class="c">! Pure hit and run, so we&#39;ll just keep the two bodies untouched</span>
-<a name="ln-198"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Pure hit and run. No new fragments generated.&#39;</span>
-<a name="ln-199"></a>               <span class="n">nfrag</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-200"></a>               <span class="n">lpure</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-201"></a>            <span class="k">else</span> <span class="c">! Imperfect hit and run, so we&#39;ll keep the largest body and destroy the other</span>
-<a name="ln-202"></a>               <span class="n">nfrag</span> <span class="o">=</span> <span class="n">NFRAG_DISRUPT</span> <span class="o">-</span> <span class="mi">1</span>
-<a name="ln-203"></a>               <span class="n">lpure</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-204"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-205"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">id_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-206"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">rad_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-207"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">xb_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-208"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">vb_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-209"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">rot_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-210"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">Ip_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-211"></a>               <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">mass</span><span class="p">(</span><span class="n">jtarg</span><span class="p">)</span>
-<a name="ln-212"></a>               <span class="n">ibiggest</span> <span class="o">=</span> <span class="nb">maxloc</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">family</span><span class="p">(:)),</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-213"></a>               <span class="n">id_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
-<a name="ln-214"></a>               <span class="n">rad_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">radius</span><span class="p">(</span><span class="n">jtarg</span><span class="p">)</span>
-<a name="ln-215"></a>               <span class="n">xb_frag</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:,</span> <span class="n">jtarg</span><span class="p">)</span> 
-<a name="ln-216"></a>               <span class="n">vb_frag</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">v</span><span class="p">(:,</span> <span class="n">jtarg</span><span class="p">)</span>
-<a name="ln-217"></a>               <span class="n">Ip_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">Ip</span><span class="p">(:,</span> <span class="n">jtarg</span><span class="p">)</span>
-<a name="ln-218"></a>         
-<a name="ln-219"></a>               <span class="c">! Get mass weighted mean of Ip and average density</span>
-<a name="ln-220"></a>               <span class="n">vol</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">4._DP</span> <span class="o">/</span> <span class="mf">3._DP</span> <span class="o">*</span> <span class="n">pi</span> <span class="o">*</span> <span class="n">radius</span><span class="p">(:)</span><span class="o">**</span><span class="mi">3</span>
-<a name="ln-221"></a>               <span class="n">avg_dens</span> <span class="o">=</span> <span class="n">mass</span><span class="p">(</span><span class="n">jproj</span><span class="p">)</span> <span class="o">/</span> <span class="n">vol</span><span class="p">(</span><span class="n">jproj</span><span class="p">)</span>
-<a name="ln-222"></a>               <span class="n">m_frag</span><span class="p">(</span><span class="mi">2</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mtot</span> <span class="o">-</span> <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">))</span> <span class="o">/</span> <span class="p">(</span><span class="n">nfrag</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)</span> 
-<a name="ln-223"></a>               <span class="n">rad_frag</span><span class="p">(</span><span class="mi">2</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(</span><span class="mi">2</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="n">PI</span> <span class="o">*</span> <span class="n">avg_dens</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">/</span> <span class="mf">3.0_DP</span><span class="p">)</span>
-<a name="ln-224"></a>               <span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">+</span> <span class="p">(</span><span class="n">mtot</span> <span class="o">-</span> <span class="nb">sum</span><span class="p">(</span><span class="n">m_frag</span><span class="p">(:)))</span>
-<a name="ln-225"></a>         
-<a name="ln-226"></a>               <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-227"></a>                  <span class="n">Ip_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">Ip</span><span class="p">(:,</span> <span class="n">jproj</span><span class="p">)</span>
-<a name="ln-228"></a>               <span class="k">end do</span>
-<a name="ln-229"></a>         
-<a name="ln-230"></a>               <span class="c">! Put the fragments on the circle surrounding the center of mass of the system</span>
-<a name="ln-231"></a>               <span class="k">call </span><span class="n">fragmentation_initialize</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-232"></a>                                 <span class="n">nfrag</span><span class="p">,</span> <span class="n">Ip_frag</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">,</span> <span class="n">lpure</span><span class="p">)</span>
-<a name="ln-233"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">lpure</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-234"></a><span class="k">                  write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Should have been a pure hit and run instead&#39;</span>
-<a name="ln-235"></a>                  <span class="n">nfrag</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-236"></a>               <span class="k">else</span>
-<a name="ln-237"></a><span class="k">                  write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="s1">&#39;(&quot;Generating &quot;,I2.0,&quot; fragments&quot;)&#39;</span><span class="p">)</span> <span class="n">nfrag</span>
-<a name="ln-238"></a>               <span class="k">end if</span>
-<a name="ln-239"></a><span class="k">            end if</span>
-<a name="ln-240"></a><span class="k">            if</span> <span class="p">(</span><span class="n">lpure</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-241"></a><span class="k">               </span><span class="n">status</span> <span class="o">=</span> <span class="n">ACTIVE</span>
-<a name="ln-242"></a>            <span class="k">else</span>
-<a name="ln-243"></a><span class="k">               </span><span class="n">status</span> <span class="o">=</span> <span class="n">HIT_AND_RUN</span>
-<a name="ln-244"></a>
-<a name="ln-245"></a>               <span class="c">! Add the family bodies to the subtraction list</span>
-<a name="ln-246"></a>               <span class="n">nfamily</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span>
-<a name="ln-247"></a>               <span class="n">lmask</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-248"></a>               <span class="n">lmask</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-249"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span> <span class="o">=</span> <span class="n">MERGED</span>
-<a name="ln-250"></a>               <span class="n">nstart</span> <span class="o">=</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-251"></a>               <span class="n">nend</span> <span class="o">=</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="n">nfamily</span>
-<a name="ln-252"></a>               <span class="k">call </span><span class="n">mergesub_list</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">lmask</span><span class="p">)</span>
-<a name="ln-253"></a>               <span class="c">! Record how many bodies were subtracted in this event</span>
-<a name="ln-254"></a>               <span class="n">mergesub_list</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(</span><span class="n">nstart</span><span class="p">:</span><span class="n">nend</span><span class="p">)</span> <span class="o">=</span> <span class="n">nfamily</span> 
-<a name="ln-255"></a>   
-<a name="ln-256"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">plnew</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-257"></a>               <span class="k">call </span><span class="n">plnew</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="n">nfrag</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-258"></a>    
-<a name="ln-259"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">id</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">[(</span><span class="n">i</span><span class="p">,</span> <span class="n">i</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">+</span> <span class="mi">1</span><span class="p">,</span> <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">+</span> <span class="n">nfrag</span><span class="p">)]</span>
-<a name="ln-260"></a>               <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">+</span> <span class="n">nfrag</span>
-<a name="ln-261"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">status</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
-<a name="ln-262"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-263"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-264"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">xb_frag</span><span class="p">(:,</span> <span class="p">:)</span> 
-<a name="ln-265"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">vb_frag</span><span class="p">(:,</span> <span class="p">:)</span>
-<a name="ln-266"></a>               <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-267"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">xb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">(:)</span>
-<a name="ln-268"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:)</span>
-<a name="ln-269"></a>               <span class="k">end do</span>
-<a name="ln-270"></a><span class="k">               </span><span class="n">plnew</span><span class="p">%</span><span class="n">mass</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(:)</span>
-<a name="ln-271"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(:)</span>
-<a name="ln-272"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">density</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">avg_dens</span>
-<a name="ln-273"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">radius</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">rad_frag</span><span class="p">(:)</span>
-<a name="ln-274"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(:)%</span><span class="n">origin_type</span> <span class="o">=</span> <span class="s2">&quot;Hit and run fragment&quot;</span>
-<a name="ln-275"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(:)%</span><span class="n">origin_time</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span>
-<a name="ln-276"></a>               <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-277"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">origin_xh</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">plnew</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-278"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">origin_vh</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">plnew</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-279"></a>               <span class="k">end do</span>
-<a name="ln-280"></a><span class="k">               if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-281"></a><span class="k">                  </span><span class="n">plnew</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">Ip_frag</span><span class="p">(:,:)</span>
-<a name="ln-282"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">rot_frag</span><span class="p">(:,:)</span>
-<a name="ln-283"></a>               <span class="k">end if</span>
-<a name="ln-284"></a><span class="k">               if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-285"></a><span class="k">                  </span><span class="n">ibiggest</span> <span class="o">=</span> <span class="nb">maxloc</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">family</span><span class="p">(:)),</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-286"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">Q</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Q</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
-<a name="ln-287"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">k2</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">k2</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
-<a name="ln-288"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">tlag</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">tlag</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
-<a name="ln-289"></a>               <span class="k">end if</span>
-<a name="ln-290"></a>   
-<a name="ln-291"></a>               <span class="c">! Append the new merged body to the list and record how many we made</span>
-<a name="ln-292"></a>               <span class="n">nstart</span> <span class="o">=</span> <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-293"></a>               <span class="n">nend</span> <span class="o">=</span> <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="n">plnew</span><span class="p">%</span><span class="n">nbody</span>
-<a name="ln-294"></a>               <span class="k">call </span><span class="n">mergeadd_list</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">plnew</span><span class="p">)</span>
-<a name="ln-295"></a>               <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(</span><span class="n">nstart</span><span class="p">:</span><span class="n">nend</span><span class="p">)</span> <span class="o">=</span> <span class="n">plnew</span><span class="p">%</span><span class="n">nbody</span>
-<a name="ln-296"></a>    
-<a name="ln-297"></a>               <span class="k">call </span><span class="n">plnew</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">0</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-298"></a>               <span class="k">deallocate</span><span class="p">(</span><span class="n">plnew</span><span class="p">)</span>
-<a name="ln-299"></a>
-<a name="ln-300"></a>            <span class="k">end if</span>
-<a name="ln-301"></a><span class="k">         end associate</span>
-<a name="ln-302"></a><span class="k">      end select</span>
-<a name="ln-303"></a>
-<a name="ln-304"></a><span class="k">      return</span>
-<a name="ln-305"></a><span class="k">   end function </span><span class="n">symba_fragmentation_casehitandrun</span>
+<a name="ln-89"></a><span class="k">      return</span>
+<a name="ln-90"></a><span class="k">   end function </span><span class="n">symba_fragmentation_casedisruption</span>
+<a name="ln-91"></a>
+<a name="ln-92"></a>
+<a name="ln-93"></a>   <span class="k">module function </span><span class="n">symba_fragmentation_casehitandrun</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass_res</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">)</span>  <span class="k">result</span><span class="p">(</span><span class="n">status</span><span class="p">)</span>
+<a name="ln-94"></a>      <span class="c">!! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-95"></a>      <span class="c">!!</span>
+<a name="ln-96"></a>      <span class="c">!! Create the fragments resulting from a non-catastrophic hit-and-run collision</span>
+<a name="ln-97"></a>      <span class="c">!! </span>
+<a name="ln-98"></a>      <span class="k">implicit none</span>
+<a name="ln-99"></a>      <span class="c">! Arguments</span>
+<a name="ln-100"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>           <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-101"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>            <span class="c">!! Current run configuration parameters with SyMBA additions</span>
+<a name="ln-102"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">family</span>           <span class="c">!! List of indices of all bodies inovlved in the collision</span>
+<a name="ln-103"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span> <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
+<a name="ln-104"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
+<a name="ln-105"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass_res</span>         <span class="c">!! The distribution of fragment mass obtained by the regime calculation </span>
+<a name="ln-106"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Qloss</span>            <span class="c">!! Energy lost during collision</span>
+<a name="ln-107"></a>      <span class="c">! Result</span>
+<a name="ln-108"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">status</span>           <span class="c">!! Status flag assigned to this outcome</span>
+<a name="ln-109"></a>      <span class="c">! Internals</span>
+<a name="ln-110"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                            <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">,</span> <span class="n">jproj</span><span class="p">,</span> <span class="n">jtarg</span><span class="p">,</span> <span class="n">idstart</span><span class="p">,</span> <span class="n">ibiggest</span><span class="p">,</span> <span class="n">nfamily</span>
+<a name="ln-111"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                <span class="kd">::</span> <span class="n">mtot</span><span class="p">,</span> <span class="n">avg_dens</span>
+<a name="ln-112"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>               <span class="kd">::</span> <span class="n">xcom</span><span class="p">,</span> <span class="n">vcom</span>
+<a name="ln-113"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">vol</span>
+<a name="ln-114"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,</span> <span class="p">:),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">Ip_frag</span>
+<a name="ln-115"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>     <span class="kd">::</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span>
+<a name="ln-116"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">id_frag</span>
+<a name="ln-117"></a>      <span class="kt">logical</span>                                 <span class="kd">::</span> <span class="n">lpure</span>
+<a name="ln-118"></a>      <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lmask</span>
+<a name="ln-119"></a>   
+<a name="ln-120"></a>      <span class="n">mtot</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">mass</span><span class="p">(:))</span>
+<a name="ln-121"></a>      <span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
+<a name="ln-122"></a>      <span class="n">vcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
+<a name="ln-123"></a>      <span class="n">lpure</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-124"></a>   
+<a name="ln-125"></a>      <span class="c">! The largest body will stay untouched</span>
+<a name="ln-126"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">&gt;</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-127"></a><span class="k">         </span><span class="n">jtarg</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-128"></a>         <span class="n">jproj</span> <span class="o">=</span> <span class="mi">2</span>
+<a name="ln-129"></a>      <span class="k">else</span>
+<a name="ln-130"></a><span class="k">         </span><span class="n">jtarg</span> <span class="o">=</span> <span class="mi">2</span>
+<a name="ln-131"></a>         <span class="n">jproj</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-132"></a>      <span class="k">end if</span>
+<a name="ln-133"></a><span class="k">   </span>
+<a name="ln-134"></a><span class="k">      if</span> <span class="p">(</span><span class="n">mass_res</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">&gt;</span> <span class="mf">0.9_DP</span> <span class="o">*</span> <span class="n">mass</span><span class="p">(</span><span class="n">jproj</span><span class="p">))</span> <span class="k">then</span> <span class="c">! Pure hit and run, so we&#39;ll just keep the two bodies untouched</span>
+<a name="ln-135"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Pure hit and run. No new fragments generated.&#39;</span>
+<a name="ln-136"></a>         <span class="n">nfrag</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-137"></a>         <span class="n">lpure</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-138"></a>      <span class="k">else</span> <span class="c">! Imperfect hit and run, so we&#39;ll keep the largest body and destroy the other</span>
+<a name="ln-139"></a>         <span class="n">nfrag</span> <span class="o">=</span> <span class="n">NFRAG_DISRUPT</span> <span class="o">-</span> <span class="mi">1</span>
+<a name="ln-140"></a>         <span class="n">lpure</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-141"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-142"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">id_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-143"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">rad_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-144"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">xb_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-145"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">vb_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-146"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">rot_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-147"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">Ip_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-148"></a>         <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">mass</span><span class="p">(</span><span class="n">jtarg</span><span class="p">)</span>
+<a name="ln-149"></a>         <span class="n">ibiggest</span> <span class="o">=</span> <span class="nb">maxloc</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">family</span><span class="p">(:)),</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-150"></a>         <span class="n">id_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
+<a name="ln-151"></a>         <span class="n">rad_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">radius</span><span class="p">(</span><span class="n">jtarg</span><span class="p">)</span>
+<a name="ln-152"></a>         <span class="n">xb_frag</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:,</span> <span class="n">jtarg</span><span class="p">)</span> 
+<a name="ln-153"></a>         <span class="n">vb_frag</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">v</span><span class="p">(:,</span> <span class="n">jtarg</span><span class="p">)</span>
+<a name="ln-154"></a>         <span class="n">Ip_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">Ip</span><span class="p">(:,</span> <span class="n">jtarg</span><span class="p">)</span>
+<a name="ln-155"></a>   
+<a name="ln-156"></a>         <span class="c">! Get mass weighted mean of Ip and average density</span>
+<a name="ln-157"></a>         <span class="n">vol</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">4._DP</span> <span class="o">/</span> <span class="mf">3._DP</span> <span class="o">*</span> <span class="n">pi</span> <span class="o">*</span> <span class="n">radius</span><span class="p">(:)</span><span class="o">**</span><span class="mi">3</span>
+<a name="ln-158"></a>         <span class="n">avg_dens</span> <span class="o">=</span> <span class="n">mass</span><span class="p">(</span><span class="n">jproj</span><span class="p">)</span> <span class="o">/</span> <span class="n">vol</span><span class="p">(</span><span class="n">jproj</span><span class="p">)</span>
+<a name="ln-159"></a>         <span class="n">m_frag</span><span class="p">(</span><span class="mi">2</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mtot</span> <span class="o">-</span> <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">))</span> <span class="o">/</span> <span class="p">(</span><span class="n">nfrag</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)</span> 
+<a name="ln-160"></a>         <span class="n">rad_frag</span><span class="p">(</span><span class="mi">2</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(</span><span class="mi">2</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="n">PI</span> <span class="o">*</span> <span class="n">avg_dens</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">/</span> <span class="mf">3.0_DP</span><span class="p">)</span>
+<a name="ln-161"></a>         <span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">+</span> <span class="p">(</span><span class="n">mtot</span> <span class="o">-</span> <span class="nb">sum</span><span class="p">(</span><span class="n">m_frag</span><span class="p">(:)))</span>
+<a name="ln-162"></a>         <span class="n">id_frag</span><span class="p">(</span><span class="mi">2</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="p">[(</span><span class="n">i</span><span class="p">,</span> <span class="n">i</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">+</span> <span class="mi">1</span><span class="p">,</span> <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">+</span> <span class="n">nfrag</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)]</span>
+<a name="ln-163"></a>   
+<a name="ln-164"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-165"></a>            <span class="n">Ip_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">Ip</span><span class="p">(:,</span> <span class="n">jproj</span><span class="p">)</span>
+<a name="ln-166"></a>         <span class="k">end do</span>
+<a name="ln-167"></a>   
+<a name="ln-168"></a>         <span class="c">! Put the fragments on the circle surrounding the center of mass of the system</span>
+<a name="ln-169"></a>         <span class="k">call </span><span class="n">fragmentation_initialize</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-170"></a>                           <span class="n">nfrag</span><span class="p">,</span> <span class="n">Ip_frag</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">,</span> <span class="n">lpure</span><span class="p">)</span>
+<a name="ln-171"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lpure</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-172"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Should have been a pure hit and run instead&#39;</span>
+<a name="ln-173"></a>            <span class="n">nfrag</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-174"></a>         <span class="k">else</span>
+<a name="ln-175"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="s1">&#39;(&quot;Generating &quot;,I2.0,&quot; fragments&quot;)&#39;</span><span class="p">)</span> <span class="n">nfrag</span>
+<a name="ln-176"></a>         <span class="k">end if</span>
+<a name="ln-177"></a><span class="k">      end if</span>
+<a name="ln-178"></a><span class="k">      if</span> <span class="p">(</span><span class="n">lpure</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-179"></a><span class="k">         </span><span class="n">status</span> <span class="o">=</span> <span class="n">ACTIVE</span>
+<a name="ln-180"></a>      <span class="k">else</span>
+<a name="ln-181"></a><span class="k">         </span><span class="n">status</span> <span class="o">=</span> <span class="n">HIT_AND_RUN</span>
+<a name="ln-182"></a>         <span class="k">call </span><span class="n">symba_fragmentation_mergeaddsub</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">id_frag</span><span class="p">,</span> <span class="n">Ip_frag</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">status</span><span class="p">)</span>
+<a name="ln-183"></a>      <span class="k">end if</span>
+<a name="ln-184"></a>
+<a name="ln-185"></a><span class="k">   return</span>
+<a name="ln-186"></a><span class="k">   end function </span><span class="n">symba_fragmentation_casehitandrun</span>
+<a name="ln-187"></a>
+<a name="ln-188"></a>
+<a name="ln-189"></a>   <span class="k">module function </span><span class="n">symba_fragmentation_casemerge</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">)</span>  <span class="k">result</span><span class="p">(</span><span class="n">status</span><span class="p">)</span>
+<a name="ln-190"></a>      <span class="c">!! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-191"></a>      <span class="c">!!</span>
+<a name="ln-192"></a>      <span class="c">!! Merge planets.</span>
+<a name="ln-193"></a>      <span class="c">!! </span>
+<a name="ln-194"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routines symba_merge_pl.f90 and symba_discard_merge_pl.f90</span>
+<a name="ln-195"></a>      <span class="c">!!</span>
+<a name="ln-196"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routines symba5_merge.f and discard_mass_merge.f</span>
+<a name="ln-197"></a>      <span class="k">implicit none</span>
+<a name="ln-198"></a>      <span class="c">! Arguments</span>
+<a name="ln-199"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>           <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-200"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>            <span class="c">!! Current run configuration parameters with SyMBA additions</span>
+<a name="ln-201"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">family</span>           <span class="c">!! List of indices of all bodies inovlved in the collision</span>
+<a name="ln-202"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span> <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
+<a name="ln-203"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
+<a name="ln-204"></a>      <span class="c">! Result</span>
+<a name="ln-205"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">status</span>           <span class="c">!! Status flag assigned to this outcome</span>
+<a name="ln-206"></a>      <span class="c">! Internals</span>
+<a name="ln-207"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                              <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">ibiggest</span><span class="p">,</span> <span class="n">nfamily</span>
+<a name="ln-208"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                  <span class="kd">::</span> <span class="n">volume_new</span><span class="p">,</span> <span class="n">pe</span>
+<a name="ln-209"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>                 <span class="kd">::</span> <span class="n">xc</span><span class="p">,</span> <span class="n">vc</span><span class="p">,</span> <span class="n">xcrossv</span>
+<a name="ln-210"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>                    <span class="kd">::</span> <span class="n">vol</span>
+<a name="ln-211"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>                 <span class="kd">::</span> <span class="n">L_orb_old</span><span class="p">,</span> <span class="n">L_spin_old</span>
+<a name="ln-212"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>                 <span class="kd">::</span> <span class="n">L_spin_new</span>
+<a name="ln-213"></a>      <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>      <span class="kd">::</span> <span class="n">lmask</span>
+<a name="ln-214"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="mi">1</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">Ip_frag</span>
+<a name="ln-215"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>                    <span class="kd">::</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span>
+<a name="ln-216"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>                <span class="kd">::</span> <span class="n">id_frag</span>
+<a name="ln-217"></a>   
+<a name="ln-218"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-219"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-220"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="s1">&#39;(&quot;Merging bodies &quot;,99(I8,&quot;,&quot;,:))&#39;</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span>
+<a name="ln-221"></a>
+<a name="ln-222"></a>         <span class="n">ibiggest</span> <span class="o">=</span> <span class="nb">maxloc</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">family</span><span class="p">(:)),</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-223"></a>         <span class="n">id_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">family</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">))</span>
+<a name="ln-224"></a>
+<a name="ln-225"></a>         <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">mass</span><span class="p">(:))</span>
+<a name="ln-226"></a>   
+<a name="ln-227"></a>         <span class="c">! Merged body is created at the barycenter of the original bodies</span>
+<a name="ln-228"></a>         <span class="n">xb_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-229"></a>         <span class="n">vb_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-230"></a>   
+<a name="ln-231"></a>         <span class="c">! Get mass weighted mean of Ip and </span>
+<a name="ln-232"></a>         <span class="n">vol</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">4._DP</span> <span class="o">/</span> <span class="mf">3._DP</span> <span class="o">*</span> <span class="n">PI</span> <span class="o">*</span> <span class="n">radius</span><span class="p">(:)</span><span class="o">**</span><span class="mi">3</span>
+<a name="ln-233"></a>         <span class="n">volume_new</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">vol</span><span class="p">(:))</span>
+<a name="ln-234"></a>         <span class="n">rad_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="n">volume_new</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="n">PI</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="mf">1._DP</span> <span class="o">/</span> <span class="mf">3._DP</span><span class="p">)</span>
+<a name="ln-235"></a>
+<a name="ln-236"></a>         <span class="n">L_orb_old</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-237"></a>
+<a name="ln-238"></a>         <span class="c">! Compute orbital angular momentum of pre-impact system</span>
+<a name="ln-239"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">2</span>
+<a name="ln-240"></a>            <span class="n">xc</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">xb_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-241"></a>            <span class="n">vc</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">v</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">vb_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-242"></a>            <span class="n">xcrossv</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xc</span><span class="p">(:)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">vc</span><span class="p">(:)</span>
+<a name="ln-243"></a>            <span class="n">L_orb_old</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_orb_old</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">xcrossv</span><span class="p">(:)</span>
+<a name="ln-244"></a>         <span class="k">end do</span>
+<a name="ln-245"></a><span class="k">      </span>
+<a name="ln-246"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-247"></a><span class="k">            </span><span class="n">Ip_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">Ip</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">Ip</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-248"></a>            <span class="n">L_spin_old</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_spin</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">L_spin</span><span class="p">(:,</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-249"></a>
+<a name="ln-250"></a>            <span class="c">! Conserve angular momentum by putting pre-impact orbital momentum into spin of the new body</span>
+<a name="ln-251"></a>            <span class="n">L_spin_new</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_orb_old</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">L_spin_old</span><span class="p">(:)</span> 
+<a name="ln-252"></a>   
+<a name="ln-253"></a>            <span class="c">! Assume prinicpal axis rotation on 3rd Ip axis</span>
+<a name="ln-254"></a>            <span class="n">rot_frag</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">L_spin_new</span><span class="p">(:)</span> <span class="o">/</span> <span class="p">(</span><span class="n">Ip_frag</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">rad_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-255"></a>         <span class="k">else</span> <span class="c">! If spin is not enabled, we will consider the lost pre-collision angular momentum as &quot;escaped&quot; and add it to our bookkeeping variable</span>
+<a name="ln-256"></a>            <span class="nb">system</span><span class="p">%</span><span class="n">Lescape</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">Lescape</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">L_orb_old</span><span class="p">(:)</span> 
+<a name="ln-257"></a>         <span class="k">end if</span>
+<a name="ln-258"></a>   
+<a name="ln-259"></a>         <span class="c">! Keep track of the component of potential energy due to the pre-impact family for book-keeping</span>
+<a name="ln-260"></a>         <span class="n">nfamily</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span>
+<a name="ln-261"></a>         <span class="n">pe</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-262"></a>         <span class="k">do </span><span class="n">j</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfamily</span>
+<a name="ln-263"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfamily</span>
+<a name="ln-264"></a>               <span class="n">pe</span> <span class="o">=</span> <span class="n">pe</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">j</span><span class="p">))</span>
+<a name="ln-265"></a>            <span class="k">end do</span>
+<a name="ln-266"></a><span class="k">         end do</span>
+<a name="ln-267"></a><span class="k">         </span><span class="nb">system</span><span class="p">%</span><span class="n">Ecollisions</span>  <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">Ecollisions</span> <span class="o">+</span> <span class="n">pe</span> 
+<a name="ln-268"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">Euntracked</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">Euntracked</span> <span class="o">-</span> <span class="n">pe</span> 
+<a name="ln-269"></a>
+<a name="ln-270"></a>         <span class="n">status</span> <span class="o">=</span> <span class="n">MERGED</span>
+<a name="ln-271"></a>         <span class="k">call </span><span class="n">symba_fragmentation_mergeaddsub</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">id_frag</span><span class="p">,</span> <span class="n">Ip_frag</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">status</span><span class="p">)</span>
+<a name="ln-272"></a>         
+<a name="ln-273"></a>      <span class="k">end select</span>
+<a name="ln-274"></a><span class="k">   </span>
+<a name="ln-275"></a><span class="k">      return </span>
+<a name="ln-276"></a><span class="k">   end function </span><span class="n">symba_fragmentation_casemerge</span>
+<a name="ln-277"></a>
+<a name="ln-278"></a>
+<a name="ln-279"></a>   <span class="k">module function </span><span class="n">symba_fragmentation_casesupercatastrophic</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass_res</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">)</span>  <span class="k">result</span><span class="p">(</span><span class="n">status</span><span class="p">)</span>
+<a name="ln-280"></a>      <span class="c">!! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
+<a name="ln-281"></a>      <span class="c">!!</span>
+<a name="ln-282"></a>      <span class="c">!! Create the fragments resulting from a supercatastrophic collision</span>
+<a name="ln-283"></a>      <span class="c">!! </span>
+<a name="ln-284"></a>      <span class="k">implicit none</span>
+<a name="ln-285"></a>      <span class="c">! Arguments</span>
+<a name="ln-286"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>           <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-287"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>            <span class="c">!! Current run configuration parameters with SyMBA additions</span>
+<a name="ln-288"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">family</span>           <span class="c">!! List of indices of all bodies inovlved in the collision</span>
+<a name="ln-289"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span> <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
+<a name="ln-290"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
+<a name="ln-291"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass_res</span>         <span class="c">!! The distribution of fragment mass obtained by the regime calculation </span>
+<a name="ln-292"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Qloss</span>            <span class="c">!! Energy lost during collision</span>
+<a name="ln-293"></a>      <span class="c">! Result</span>
+<a name="ln-294"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">status</span>           <span class="c">!! Status flag assigned to this outcome</span>
+<a name="ln-295"></a>      <span class="c">! Internals</span>
+<a name="ln-296"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                            <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">,</span> <span class="n">ibiggest</span><span class="p">,</span> <span class="n">nfamily</span><span class="p">,</span> <span class="n">nstart</span><span class="p">,</span> <span class="n">nend</span>
+<a name="ln-297"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                <span class="kd">::</span> <span class="n">mtot</span><span class="p">,</span> <span class="n">avg_dens</span><span class="p">,</span> <span class="n">min_frag_mass</span>
+<a name="ln-298"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>               <span class="kd">::</span> <span class="n">xcom</span><span class="p">,</span> <span class="n">vcom</span>
+<a name="ln-299"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">vol</span>
+<a name="ln-300"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>               <span class="kd">::</span> <span class="n">Ip_new</span>
+<a name="ln-301"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,</span> <span class="p">:),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">Ip_frag</span>
+<a name="ln-302"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>     <span class="kd">::</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span>
+<a name="ln-303"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">id_frag</span>
+<a name="ln-304"></a>      <span class="kt">logical</span>                                 <span class="kd">::</span> <span class="n">lfailure</span>
+<a name="ln-305"></a>      <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lmask</span>
 <a name="ln-306"></a>
-<a name="ln-307"></a>
-<a name="ln-308"></a>   <span class="k">module function </span><span class="n">symba_fragmentation_casemerge</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">)</span>  <span class="k">result</span><span class="p">(</span><span class="n">status</span><span class="p">)</span>
-<a name="ln-309"></a>      <span class="c">!! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
-<a name="ln-310"></a>      <span class="c">!!</span>
-<a name="ln-311"></a>      <span class="c">!! Merge planets.</span>
-<a name="ln-312"></a>      <span class="c">!! </span>
-<a name="ln-313"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routines symba_merge_pl.f90 and symba_discard_merge_pl.f90</span>
-<a name="ln-314"></a>      <span class="c">!!</span>
-<a name="ln-315"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routines symba5_merge.f and discard_mass_merge.f</span>
-<a name="ln-316"></a>      <span class="k">implicit none</span>
-<a name="ln-317"></a>      <span class="c">! Arguments</span>
-<a name="ln-318"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>           <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-319"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>            <span class="c">!! Current run configuration parameters with SyMBA additions</span>
-<a name="ln-320"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">family</span>           <span class="c">!! List of indices of all bodies inovlved in the collision</span>
-<a name="ln-321"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span> <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-322"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-323"></a>      <span class="c">! Result</span>
-<a name="ln-324"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">status</span>           <span class="c">!! Status flag assigned to this outcome</span>
-<a name="ln-325"></a>      <span class="c">! Internals</span>
-<a name="ln-326"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                              <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">ibiggest</span><span class="p">,</span> <span class="n">nfamily</span><span class="p">,</span> <span class="n">nstart</span><span class="p">,</span> <span class="n">nend</span>
-<a name="ln-327"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                  <span class="kd">::</span> <span class="n">mass_new</span><span class="p">,</span> <span class="n">radius_new</span><span class="p">,</span> <span class="n">volume_new</span><span class="p">,</span> <span class="n">pe</span>
-<a name="ln-328"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>                 <span class="kd">::</span> <span class="n">xcom</span><span class="p">,</span> <span class="n">vcom</span><span class="p">,</span> <span class="n">xc</span><span class="p">,</span> <span class="n">vc</span><span class="p">,</span> <span class="n">xcrossv</span>
-<a name="ln-329"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>                    <span class="kd">::</span> <span class="n">vol</span>
-<a name="ln-330"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>                 <span class="kd">::</span> <span class="n">L_orb_old</span><span class="p">,</span> <span class="n">L_spin_old</span>
-<a name="ln-331"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>                 <span class="kd">::</span> <span class="n">L_spin_new</span><span class="p">,</span> <span class="n">rot_new</span><span class="p">,</span> <span class="n">Ip_new</span>
-<a name="ln-332"></a>      <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>      <span class="kd">::</span> <span class="n">lmask</span>
-<a name="ln-333"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span> <span class="k">allocatable</span>              <span class="kd">::</span> <span class="n">plnew</span>
-<a name="ln-334"></a>   
-<a name="ln-335"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-336"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-337"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">mergeadd_list</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">mergeadd_list</span><span class="p">,</span> <span class="n">mergesub_list</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">mergesub_list</span><span class="p">,</span> <span class="n">cb</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-338"></a>            <span class="n">status</span> <span class="o">=</span> <span class="n">MERGED</span>
-<a name="ln-339"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="s1">&#39;(&quot;Merging bodies &quot;,99(I8,&quot;,&quot;,:))&#39;</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span>
-<a name="ln-340"></a>            <span class="n">mass_new</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">mass</span><span class="p">(:))</span>
-<a name="ln-341"></a>      
-<a name="ln-342"></a>            <span class="c">! Merged body is created at the barycenter of the original bodies</span>
-<a name="ln-343"></a>            <span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mass_new</span>
-<a name="ln-344"></a>            <span class="n">vcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mass_new</span>
-<a name="ln-345"></a>      
-<a name="ln-346"></a>            <span class="c">! Get mass weighted mean of Ip and </span>
-<a name="ln-347"></a>            <span class="n">vol</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">4._DP</span> <span class="o">/</span> <span class="mf">3._DP</span> <span class="o">*</span> <span class="n">PI</span> <span class="o">*</span> <span class="n">radius</span><span class="p">(:)</span><span class="o">**</span><span class="mi">3</span>
-<a name="ln-348"></a>            <span class="n">volume_new</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">vol</span><span class="p">(:))</span>
-<a name="ln-349"></a>            <span class="n">radius_new</span> <span class="o">=</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="n">volume_new</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="n">PI</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="mf">1._DP</span> <span class="o">/</span> <span class="mf">3._DP</span><span class="p">)</span>
-<a name="ln-350"></a>
-<a name="ln-351"></a>            <span class="n">L_orb_old</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-352"></a>
-<a name="ln-353"></a>            <span class="c">! Compute orbital angular momentum of pre-impact system</span>
-<a name="ln-354"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="mi">2</span>
-<a name="ln-355"></a>               <span class="n">xc</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">x</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">xcom</span><span class="p">(:)</span>
-<a name="ln-356"></a>               <span class="n">vc</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">v</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">vcom</span><span class="p">(:)</span>
-<a name="ln-357"></a>               <span class="n">xcrossv</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xc</span><span class="p">(:)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">vc</span><span class="p">(:)</span>
-<a name="ln-358"></a>               <span class="n">L_orb_old</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_orb_old</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">xcrossv</span><span class="p">(:)</span>
-<a name="ln-359"></a>            <span class="k">end do</span>
-<a name="ln-360"></a><span class="k">         </span>
-<a name="ln-361"></a><span class="k">            if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-362"></a><span class="k">               </span><span class="n">Ip_new</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">Ip</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">Ip</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mass_new</span>
-<a name="ln-363"></a>               <span class="n">L_spin_old</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_spin</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">L_spin</span><span class="p">(:,</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-364"></a>
-<a name="ln-365"></a>               <span class="c">! Conserve angular momentum by putting pre-impact orbital momentum into spin of the new body</span>
-<a name="ln-366"></a>               <span class="n">L_spin_new</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_orb_old</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">L_spin_old</span><span class="p">(:)</span> 
-<a name="ln-367"></a>      
-<a name="ln-368"></a>               <span class="c">! Assume prinicpal axis rotation on 3rd Ip axis</span>
-<a name="ln-369"></a>               <span class="n">rot_new</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">L_spin_new</span><span class="p">(:)</span> <span class="o">/</span> <span class="p">(</span><span class="n">Ip_new</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">*</span> <span class="n">mass_new</span> <span class="o">*</span> <span class="n">radius_new</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-370"></a>            <span class="k">else</span> <span class="c">! If spin is not enabled, we will consider the lost pre-collision angular momentum as &quot;escaped&quot; and add it to our bookkeeping variable</span>
-<a name="ln-371"></a>               <span class="nb">system</span><span class="p">%</span><span class="n">Lescape</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">Lescape</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">L_orb_old</span><span class="p">(:)</span> 
-<a name="ln-372"></a>            <span class="k">end if</span>
-<a name="ln-373"></a>      
-<a name="ln-374"></a>            <span class="c">! Keep track of the component of potential energy due to the pre-impact family for book-keeping</span>
-<a name="ln-375"></a>            <span class="n">nfamily</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span>
-<a name="ln-376"></a>            <span class="n">pe</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-377"></a>            <span class="k">do </span><span class="n">j</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfamily</span>
-<a name="ln-378"></a>               <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="n">j</span> <span class="o">+</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfamily</span>
-<a name="ln-379"></a>                  <span class="n">pe</span> <span class="o">=</span> <span class="n">pe</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">j</span><span class="p">))</span>
-<a name="ln-380"></a>               <span class="k">end do</span>
-<a name="ln-381"></a><span class="k">            end do</span>
-<a name="ln-382"></a><span class="k">            </span><span class="nb">system</span><span class="p">%</span><span class="n">Ecollisions</span>  <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">Ecollisions</span> <span class="o">+</span> <span class="n">pe</span> 
-<a name="ln-383"></a>            <span class="nb">system</span><span class="p">%</span><span class="n">Euntracked</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">Euntracked</span> <span class="o">-</span> <span class="n">pe</span> 
-<a name="ln-384"></a>     
-<a name="ln-385"></a>            <span class="c">! Add the family bodies to the subtraction list</span>
-<a name="ln-386"></a>            <span class="n">lmask</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-387"></a>            <span class="n">lmask</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-388"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span> <span class="o">=</span> <span class="n">MERGED</span>
-<a name="ln-389"></a>            <span class="n">nstart</span> <span class="o">=</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-390"></a>            <span class="n">nend</span> <span class="o">=</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="n">nfamily</span>
-<a name="ln-391"></a>            <span class="k">call </span><span class="n">mergesub_list</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">lmask</span><span class="p">)</span>
-<a name="ln-392"></a>            <span class="c">! Record how many bodies were subtracted in this event</span>
-<a name="ln-393"></a>            <span class="n">mergesub_list</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(</span><span class="n">nstart</span><span class="p">:</span><span class="n">nend</span><span class="p">)</span> <span class="o">=</span> <span class="n">nfamily</span> 
-<a name="ln-394"></a>
-<a name="ln-395"></a>            <span class="c">! Create the new merged body </span>
-<a name="ln-396"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">plnew</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-397"></a>            <span class="k">call </span><span class="n">plnew</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-398"></a>
-<a name="ln-399"></a>            <span class="c">! The merged body&#39;s name will be that of the largest of the two parents </span>
-<a name="ln-400"></a>            <span class="n">ibiggest</span> <span class="o">=</span> <span class="nb">maxloc</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">family</span><span class="p">(:)),</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-401"></a>            <span class="n">plnew</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">family</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">))</span>
-<a name="ln-402"></a>            <span class="n">plnew</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
-<a name="ln-403"></a>            <span class="n">plnew</span><span class="p">%</span><span class="n">lcollision</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-404"></a>            <span class="n">plnew</span><span class="p">%</span><span class="n">ldiscard</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-405"></a>            <span class="n">plnew</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">xcom</span><span class="p">(:)</span>
-<a name="ln-406"></a>            <span class="n">plnew</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">vcom</span><span class="p">(:)</span>
-<a name="ln-407"></a>            <span class="n">plnew</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">xcom</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">(:)</span>
-<a name="ln-408"></a>            <span class="n">plnew</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">vcom</span><span class="p">(:)</span> <span class="o">-</span> <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:)</span>
-<a name="ln-409"></a>            <span class="n">plnew</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">mass_new</span>
-<a name="ln-410"></a>            <span class="n">plnew</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span> <span class="o">*</span> <span class="n">mass_new</span>
-<a name="ln-411"></a>            <span class="n">plnew</span><span class="p">%</span><span class="n">density</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">mass_new</span> <span class="o">/</span> <span class="n">volume_new</span>
-<a name="ln-412"></a>            <span class="n">plnew</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">radius_new</span>
-<a name="ln-413"></a>            <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">family</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">))</span> 
-<a name="ln-414"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-415"></a><span class="k">               </span><span class="n">plnew</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">Ip_new</span><span class="p">(:)</span>
-<a name="ln-416"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">rot_new</span><span class="p">(:)</span>
-<a name="ln-417"></a>            <span class="k">end if</span>
-<a name="ln-418"></a><span class="k">            if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-419"></a><span class="k">               </span><span class="n">plnew</span><span class="p">%</span><span class="n">Q</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Q</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
-<a name="ln-420"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">k2</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">k2</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
-<a name="ln-421"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">tlag</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">tlag</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
-<a name="ln-422"></a>            <span class="k">end if</span>
+<a name="ln-307"></a>      <span class="c">! Collisional fragments will be uniformly distributed around the pre-impact barycenter</span>
+<a name="ln-308"></a>      <span class="n">nfrag</span> <span class="o">=</span> <span class="n">NFRAG_SUPERCAT</span>
+<a name="ln-309"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-310"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">rad_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-311"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">id_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-312"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">xb_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-313"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">vb_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-314"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">rot_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-315"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">Ip_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
+<a name="ln-316"></a>   
+<a name="ln-317"></a>      <span class="n">mtot</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">mass</span><span class="p">(:))</span>
+<a name="ln-318"></a>      <span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
+<a name="ln-319"></a>      <span class="n">vcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
+<a name="ln-320"></a>   
+<a name="ln-321"></a>      <span class="c">! Get mass weighted mean of Ip and average density</span>
+<a name="ln-322"></a>      <span class="n">Ip_new</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">Ip</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">Ip</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
+<a name="ln-323"></a>      <span class="n">vol</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">4._DP</span> <span class="o">/</span> <span class="mf">3._DP</span> <span class="o">*</span> <span class="n">pi</span> <span class="o">*</span> <span class="n">radius</span><span class="p">(:)</span><span class="o">**</span><span class="mi">3</span>
+<a name="ln-324"></a>      <span class="n">avg_dens</span> <span class="o">=</span> <span class="n">mtot</span> <span class="o">/</span> <span class="nb">sum</span><span class="p">(</span><span class="n">vol</span><span class="p">(:))</span>
+<a name="ln-325"></a>   
+<a name="ln-326"></a>      <span class="c">! If we are adding the first and largest fragment (lr), check to see if its mass is SMALLER than an equal distribution of </span>
+<a name="ln-327"></a>      <span class="c">! mass between all fragments. If so, we will just distribute the mass equally between the fragments</span>
+<a name="ln-328"></a>      <span class="n">min_frag_mass</span> <span class="o">=</span> <span class="n">mtot</span> <span class="o">/</span> <span class="n">nfrag</span>
+<a name="ln-329"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">mass_res</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">&lt;</span> <span class="n">min_frag_mass</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-330"></a><span class="k">         </span><span class="n">m_frag</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">min_frag_mass</span>
+<a name="ln-331"></a>      <span class="k">else</span>
+<a name="ln-332"></a><span class="k">         </span><span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">mass_res</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-333"></a>         <span class="n">m_frag</span><span class="p">(</span><span class="mi">2</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mtot</span> <span class="o">-</span> <span class="n">mass_res</span><span class="p">(</span><span class="mi">1</span><span class="p">))</span> <span class="o">/</span> <span class="p">(</span><span class="n">nfrag</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)</span>
+<a name="ln-334"></a>      <span class="k">end if</span>
+<a name="ln-335"></a>      <span class="c">! Distribute any residual mass if there is any and set the radius</span>
+<a name="ln-336"></a>      <span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">+</span> <span class="p">(</span><span class="n">mtot</span> <span class="o">-</span> <span class="nb">sum</span><span class="p">(</span><span class="n">m_frag</span><span class="p">(:)))</span>
+<a name="ln-337"></a>      <span class="n">rad_frag</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(:)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="n">PI</span> <span class="o">*</span> <span class="n">avg_dens</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">/</span> <span class="mf">3.0_DP</span><span class="p">)</span>
+<a name="ln-338"></a>      <span class="n">id_frag</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">[(</span><span class="n">i</span><span class="p">,</span> <span class="n">i</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">+</span> <span class="mi">1</span><span class="p">,</span> <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">+</span> <span class="n">nfrag</span><span class="p">)]</span>
+<a name="ln-339"></a>   
+<a name="ln-340"></a>      <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-341"></a>         <span class="n">Ip_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">Ip_new</span><span class="p">(:)</span>
+<a name="ln-342"></a>      <span class="k">end do</span>
+<a name="ln-343"></a>
+<a name="ln-344"></a><span class="k">      call </span><span class="n">fragmentation_initialize</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="p">&amp;</span>
+<a name="ln-345"></a>                                    <span class="n">nfrag</span><span class="p">,</span> <span class="n">Ip_frag</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">,</span> <span class="n">lfailure</span><span class="p">)</span>
+<a name="ln-346"></a>   
+<a name="ln-347"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">lfailure</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-348"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;No fragment solution found, so treat as a pure hit-and-run&#39;</span>
+<a name="ln-349"></a>         <span class="n">status</span> <span class="o">=</span> <span class="n">ACTIVE</span> 
+<a name="ln-350"></a>         <span class="n">nfrag</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-351"></a>      <span class="k">else</span>
+<a name="ln-352"></a>         <span class="c">! Populate the list of new bodies</span>
+<a name="ln-353"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="s1">&#39;(&quot;Generating &quot;,I2.0,&quot; fragments&quot;)&#39;</span><span class="p">)</span> <span class="n">nfrag</span>
+<a name="ln-354"></a>         <span class="n">status</span> <span class="o">=</span> <span class="n">SUPERCATASTROPHIC</span>
+<a name="ln-355"></a>         <span class="k">call </span><span class="n">symba_fragmentation_mergeaddsub</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">id_frag</span><span class="p">,</span> <span class="n">Ip_frag</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">status</span><span class="p">)</span>
+<a name="ln-356"></a>      <span class="k">end if</span>
+<a name="ln-357"></a>
+<a name="ln-358"></a><span class="k">      return</span>
+<a name="ln-359"></a><span class="k">   end function </span><span class="n">symba_fragmentation_casesupercatastrophic</span>
+<a name="ln-360"></a>
+<a name="ln-361"></a>
+<a name="ln-362"></a>   <span class="k">subroutine </span><span class="n">symba_fragmentation_mergeaddsub</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">id_frag</span><span class="p">,</span> <span class="n">Ip_frag</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">status</span><span class="p">)</span>
+<a name="ln-363"></a>      <span class="c">!! author:  David A. Minton</span>
+<a name="ln-364"></a>      <span class="c">!!</span>
+<a name="ln-365"></a>      <span class="c">!! Fills the pl_discards and pl_adds with removed and added bodies</span>
+<a name="ln-366"></a>      <span class="c">!!  </span>
+<a name="ln-367"></a>      <span class="k">implicit none</span>
+<a name="ln-368"></a>      <span class="c">! Arguments</span>
+<a name="ln-369"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>           <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-370"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>            <span class="c">!! Current run configuration parameters with SyMBA additions</span>
+<a name="ln-371"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">family</span>           <span class="c">!! List of indices of all bodies inovlved in the collision</span>
+<a name="ln-372"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">id_frag</span>          <span class="c">!! List of fragment ids</span>
+<a name="ln-373"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span> <span class="c">!! Distribution of fragment mass and radii</span>
+<a name="ln-374"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">Ip_frag</span>          <span class="c">!! Fragment rotational inertia vectors</span>
+<a name="ln-375"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span> <span class="c">!! Fragment barycentric position, barycentric velocity, and rotation vectors</span>
+<a name="ln-376"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">status</span>           <span class="c">!! Status flag to assign to adds</span>
+<a name="ln-377"></a>      <span class="c">! Internals</span>
+<a name="ln-378"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">ibiggest</span><span class="p">,</span> <span class="n">nstart</span><span class="p">,</span> <span class="n">nend</span><span class="p">,</span> <span class="n">nfamily</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-379"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lmask</span>
+<a name="ln-380"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span> <span class="k">allocatable</span>            <span class="kd">::</span> <span class="n">plnew</span>
+<a name="ln-381"></a>
+<a name="ln-382"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-383"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-384"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">pl_discards</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl_discards</span><span class="p">)</span>
+<a name="ln-385"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_merger</span><span class="p">)</span>
+<a name="ln-386"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">pl_adds</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl_adds</span><span class="p">,</span> <span class="n">cb</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-387"></a>
+<a name="ln-388"></a>               <span class="c">! Add the family bodies to the subtraction list</span>
+<a name="ln-389"></a>               <span class="n">nfamily</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span>
+<a name="ln-390"></a>               <span class="n">nfrag</span>   <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">m_frag</span><span class="p">(:))</span>
+<a name="ln-391"></a>               <span class="n">lmask</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-392"></a>               <span class="n">lmask</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-393"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span> <span class="o">=</span> <span class="n">MERGED</span>
+<a name="ln-394"></a>               <span class="n">nstart</span> <span class="o">=</span> <span class="n">pl_discards</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-395"></a>               <span class="n">nend</span> <span class="o">=</span> <span class="n">pl_discards</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="n">nfamily</span>
+<a name="ln-396"></a>               <span class="k">call </span><span class="n">pl_discards</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">lmask</span><span class="p">)</span>
+<a name="ln-397"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-398"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-399"></a>
+<a name="ln-400"></a>               <span class="c">! Record how many bodies were subtracted in this event</span>
+<a name="ln-401"></a>               <span class="n">pl_discards</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(</span><span class="n">nstart</span><span class="p">:</span><span class="n">nend</span><span class="p">)</span> <span class="o">=</span> <span class="n">nfamily</span> 
+<a name="ln-402"></a>
+<a name="ln-403"></a>               <span class="c">! Setup new bodies</span>
+<a name="ln-404"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">plnew</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-405"></a>               <span class="k">call </span><span class="n">plnew</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="n">nfrag</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-406"></a>               <span class="n">ibiggest</span> <span class="o">=</span> <span class="nb">maxloc</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">family</span><span class="p">(:)),</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-407"></a>
+<a name="ln-408"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">id</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">id_frag</span><span class="p">(:)</span> 
+<a name="ln-409"></a>               <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">+</span> <span class="n">nfrag</span>
+<a name="ln-410"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">status</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
+<a name="ln-411"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-412"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-413"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">xb_frag</span><span class="p">(:,</span> <span class="p">:)</span> 
+<a name="ln-414"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">vb_frag</span><span class="p">(:,</span> <span class="p">:)</span>
+<a name="ln-415"></a>               <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-416"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">xb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">(:)</span>
+<a name="ln-417"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:)</span>
+<a name="ln-418"></a>               <span class="k">end do</span>
+<a name="ln-419"></a><span class="k">               </span><span class="n">plnew</span><span class="p">%</span><span class="n">mass</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(:)</span>
+<a name="ln-420"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(:)</span>
+<a name="ln-421"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">radius</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">rad_frag</span><span class="p">(:)</span>
+<a name="ln-422"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">density</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">rad_frag</span><span class="p">(:)</span>
 <a name="ln-423"></a>
-<a name="ln-424"></a>            <span class="c">! Append the new merged body to the list and record how many we made</span>
-<a name="ln-425"></a>            <span class="n">nstart</span> <span class="o">=</span> <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-426"></a>            <span class="n">nend</span> <span class="o">=</span> <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="n">plnew</span><span class="p">%</span><span class="n">nbody</span>
-<a name="ln-427"></a>            <span class="k">call </span><span class="n">mergeadd_list</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">plnew</span><span class="p">)</span>
-<a name="ln-428"></a>            <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(</span><span class="n">nstart</span><span class="p">:</span><span class="n">nend</span><span class="p">)</span> <span class="o">=</span> <span class="n">plnew</span><span class="p">%</span><span class="n">nbody</span>
-<a name="ln-429"></a>
-<a name="ln-430"></a>            <span class="k">call </span><span class="n">plnew</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">0</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-431"></a>            <span class="k">deallocate</span><span class="p">(</span><span class="n">plnew</span><span class="p">)</span>
-<a name="ln-432"></a>
-<a name="ln-433"></a>         <span class="k">end associate</span>
-<a name="ln-434"></a><span class="k">      end select</span>
-<a name="ln-435"></a><span class="k">   </span>
-<a name="ln-436"></a><span class="k">      return </span>
-<a name="ln-437"></a>
-<a name="ln-438"></a><span class="k">   end function </span><span class="n">symba_fragmentation_casemerge</span>
-<a name="ln-439"></a>
-<a name="ln-440"></a>
-<a name="ln-441"></a>   <span class="k">module function </span><span class="n">symba_fragmentation_casesupercatastrophic</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass_res</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">)</span>  <span class="k">result</span><span class="p">(</span><span class="n">status</span><span class="p">)</span>
-<a name="ln-442"></a>      <span class="c">!! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton</span>
-<a name="ln-443"></a>      <span class="c">!!</span>
-<a name="ln-444"></a>      <span class="c">!! Create the fragments resulting from a supercatastrophic collision</span>
-<a name="ln-445"></a>      <span class="c">!! </span>
-<a name="ln-446"></a>      <span class="k">implicit none</span>
-<a name="ln-447"></a>      <span class="c">! Arguments</span>
-<a name="ln-448"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>           <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-449"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>            <span class="c">!! Current run configuration parameters with SyMBA additions</span>
-<a name="ln-450"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">family</span>           <span class="c">!! List of indices of all bodies inovlved in the collision</span>
-<a name="ln-451"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span> <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-452"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span>     <span class="c">!! Input values that represent a 2-body equivalent of a possibly 2+ body collision</span>
-<a name="ln-453"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>        <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">mass_res</span>         <span class="c">!! The distribution of fragment mass obtained by the regime calculation </span>
-<a name="ln-454"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Qloss</span>            <span class="c">!! Energy lost during collision</span>
-<a name="ln-455"></a>      <span class="c">! Result</span>
-<a name="ln-456"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                   <span class="kd">::</span> <span class="n">status</span>           <span class="c">!! Status flag assigned to this outcome</span>
-<a name="ln-457"></a>      <span class="c">! Internals</span>
-<a name="ln-458"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                            <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">,</span> <span class="n">ibiggest</span><span class="p">,</span> <span class="n">nfamily</span><span class="p">,</span> <span class="n">nstart</span><span class="p">,</span> <span class="n">nend</span>
-<a name="ln-459"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                <span class="kd">::</span> <span class="n">mtot</span><span class="p">,</span> <span class="n">avg_dens</span><span class="p">,</span> <span class="n">min_frag_mass</span>
-<a name="ln-460"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>               <span class="kd">::</span> <span class="n">xcom</span><span class="p">,</span> <span class="n">vcom</span>
-<a name="ln-461"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">vol</span>
-<a name="ln-462"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span>               <span class="kd">::</span> <span class="n">Ip_new</span>
-<a name="ln-463"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,</span> <span class="p">:),</span> <span class="k">allocatable</span>  <span class="kd">::</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">Ip_frag</span>
-<a name="ln-464"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>     <span class="kd">::</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span>
-<a name="ln-465"></a>      <span class="kt">logical</span>                                 <span class="kd">::</span> <span class="n">lfailure</span>
-<a name="ln-466"></a>      <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lmask</span>
-<a name="ln-467"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span> <span class="k">allocatable</span>            <span class="kd">::</span> <span class="n">plnew</span>
-<a name="ln-468"></a>    
-<a name="ln-469"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-470"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-471"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">mergeadd_list</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">mergeadd_list</span><span class="p">,</span> <span class="n">mergesub_list</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">mergesub_list</span><span class="p">,</span> <span class="n">cb</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-472"></a>            <span class="c">! Collisional fragments will be uniformly distributed around the pre-impact barycenter</span>
-<a name="ln-473"></a>            <span class="n">nfrag</span> <span class="o">=</span> <span class="n">NFRAG_SUPERCAT</span>
-<a name="ln-474"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-475"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">rad_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-476"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">xb_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-477"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">vb_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-478"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">rot_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-479"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">Ip_frag</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nfrag</span><span class="p">))</span>
-<a name="ln-480"></a>         
-<a name="ln-481"></a>            <span class="n">mtot</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">mass</span><span class="p">(:))</span>
-<a name="ln-482"></a>            <span class="n">xcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">x</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
-<a name="ln-483"></a>            <span class="n">vcom</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">v</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
-<a name="ln-484"></a>         
-<a name="ln-485"></a>            <span class="c">! Get mass weighted mean of Ip and average density</span>
-<a name="ln-486"></a>            <span class="n">Ip_new</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">*</span> <span class="n">Ip</span><span class="p">(:,</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="n">mass</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">*</span> <span class="n">Ip</span><span class="p">(:,</span><span class="mi">2</span><span class="p">))</span> <span class="o">/</span> <span class="n">mtot</span>
-<a name="ln-487"></a>            <span class="n">vol</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">4._DP</span> <span class="o">/</span> <span class="mf">3._DP</span> <span class="o">*</span> <span class="n">pi</span> <span class="o">*</span> <span class="n">radius</span><span class="p">(:)</span><span class="o">**</span><span class="mi">3</span>
-<a name="ln-488"></a>            <span class="n">avg_dens</span> <span class="o">=</span> <span class="n">mtot</span> <span class="o">/</span> <span class="nb">sum</span><span class="p">(</span><span class="n">vol</span><span class="p">(:))</span>
-<a name="ln-489"></a>         
-<a name="ln-490"></a>            <span class="c">! If we are adding the first and largest fragment (lr), check to see if its mass is SMALLER than an equal distribution of </span>
-<a name="ln-491"></a>            <span class="c">! mass between all fragments. If so, we will just distribute the mass equally between the fragments</span>
-<a name="ln-492"></a>            <span class="n">min_frag_mass</span> <span class="o">=</span> <span class="n">mtot</span> <span class="o">/</span> <span class="n">nfrag</span>
-<a name="ln-493"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">mass_res</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">&lt;</span> <span class="n">min_frag_mass</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-494"></a><span class="k">               </span><span class="n">m_frag</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">min_frag_mass</span>
-<a name="ln-495"></a>            <span class="k">else</span>
-<a name="ln-496"></a><span class="k">               </span><span class="n">m_frag</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">mass_res</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-497"></a>               <span class="n">m_frag</span><span class="p">(</span><span class="mi">2</span><span class="p">:</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="p">(</span><span class="n">mtot</span> <span class="o">-</span> <span class="n">mass_res</span><span class="p">(</span><span class="mi">1</span><span class="p">))</span> <span class="o">/</span> <span class="p">(</span><span class="n">nfrag</span> <span class="o">-</span> <span class="mi">1</span><span class="p">)</span>
-<a name="ln-498"></a>            <span class="k">end if</span>
-<a name="ln-499"></a>            <span class="c">! Distribute any residual mass if there is any and set the radius</span>
-<a name="ln-500"></a>            <span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(</span><span class="n">nfrag</span><span class="p">)</span> <span class="o">+</span> <span class="p">(</span><span class="n">mtot</span> <span class="o">-</span> <span class="nb">sum</span><span class="p">(</span><span class="n">m_frag</span><span class="p">(:)))</span>
-<a name="ln-501"></a>            <span class="n">rad_frag</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">(</span><span class="mi">3</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(:)</span> <span class="o">/</span> <span class="p">(</span><span class="mi">4</span> <span class="o">*</span> <span class="n">PI</span> <span class="o">*</span> <span class="n">avg_dens</span><span class="p">))</span><span class="o">**</span><span class="p">(</span><span class="mf">1.0_DP</span> <span class="o">/</span> <span class="mf">3.0_DP</span><span class="p">)</span>
-<a name="ln-502"></a>         
-<a name="ln-503"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-504"></a>               <span class="n">Ip_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">Ip_new</span><span class="p">(:)</span>
-<a name="ln-505"></a>            <span class="k">end do</span>
-<a name="ln-506"></a>
-<a name="ln-507"></a><span class="k">            call </span><span class="n">fragmentation_initialize</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">family</span><span class="p">,</span> <span class="n">x</span><span class="p">,</span> <span class="n">v</span><span class="p">,</span> <span class="n">L_spin</span><span class="p">,</span> <span class="n">Ip</span><span class="p">,</span> <span class="n">mass</span><span class="p">,</span> <span class="n">radius</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-508"></a>                                          <span class="n">nfrag</span><span class="p">,</span> <span class="n">Ip_frag</span><span class="p">,</span> <span class="n">m_frag</span><span class="p">,</span> <span class="n">rad_frag</span><span class="p">,</span> <span class="n">xb_frag</span><span class="p">,</span> <span class="n">vb_frag</span><span class="p">,</span> <span class="n">rot_frag</span><span class="p">,</span> <span class="n">Qloss</span><span class="p">,</span> <span class="n">lfailure</span><span class="p">)</span>
-<a name="ln-509"></a>         
-<a name="ln-510"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">lfailure</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-511"></a><span class="k">               write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;No fragment solution found, so treat as a pure hit-and-run&#39;</span>
-<a name="ln-512"></a>               <span class="n">status</span> <span class="o">=</span> <span class="n">ACTIVE</span> 
-<a name="ln-513"></a>               <span class="n">nfrag</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-514"></a>            <span class="k">else</span>
-<a name="ln-515"></a>               <span class="c">! Populate the list of new bodies</span>
-<a name="ln-516"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="s1">&#39;(&quot;Generating &quot;,I2.0,&quot; fragments&quot;)&#39;</span><span class="p">)</span> <span class="n">nfrag</span>
-<a name="ln-517"></a>               <span class="n">status</span> <span class="o">=</span> <span class="n">SUPERCATASTROPHIC</span>
-<a name="ln-518"></a>
-<a name="ln-519"></a>               <span class="c">! Add the family bodies to the subtraction list</span>
-<a name="ln-520"></a>               <span class="n">nfamily</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span>
-<a name="ln-521"></a>               <span class="n">lmask</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-522"></a>               <span class="n">lmask</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-523"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">family</span><span class="p">(:))</span> <span class="o">=</span> <span class="n">MERGED</span>
-<a name="ln-524"></a>               <span class="n">nstart</span> <span class="o">=</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-525"></a>               <span class="n">nend</span> <span class="o">=</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="n">nfamily</span>
-<a name="ln-526"></a>               <span class="k">call </span><span class="n">mergesub_list</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">lmask</span><span class="p">)</span>
-<a name="ln-527"></a>               <span class="c">! Record how many bodies were subtracted in this event</span>
-<a name="ln-528"></a>               <span class="n">mergesub_list</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(</span><span class="n">nstart</span><span class="p">:</span><span class="n">nend</span><span class="p">)</span> <span class="o">=</span> <span class="n">nfamily</span> 
-<a name="ln-529"></a>
-<a name="ln-530"></a>               <span class="k">allocate</span><span class="p">(</span><span class="n">plnew</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-531"></a>               <span class="k">call </span><span class="n">plnew</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="n">nfrag</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-532"></a>    
-<a name="ln-533"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">id</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">[(</span><span class="n">i</span><span class="p">,</span> <span class="n">i</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">+</span> <span class="mi">1</span><span class="p">,</span> <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">+</span> <span class="n">nfrag</span><span class="p">)]</span>
-<a name="ln-534"></a>               <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">maxid</span> <span class="o">+</span> <span class="n">nfrag</span>
-<a name="ln-535"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">status</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">ACTIVE</span>
-<a name="ln-536"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-537"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-538"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">xb_frag</span><span class="p">(:,</span> <span class="p">:)</span> 
-<a name="ln-539"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">vb_frag</span><span class="p">(:,</span> <span class="p">:)</span>
-<a name="ln-540"></a>               <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-541"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">xb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">(:)</span>
-<a name="ln-542"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">vb_frag</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:)</span>
-<a name="ln-543"></a>               <span class="k">end do</span>
-<a name="ln-544"></a><span class="k">               </span><span class="n">plnew</span><span class="p">%</span><span class="n">mass</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">m_frag</span><span class="p">(:)</span>
-<a name="ln-545"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span> <span class="o">*</span> <span class="n">m_frag</span><span class="p">(:)</span>
-<a name="ln-546"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">density</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">avg_dens</span>
-<a name="ln-547"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">radius</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">rad_frag</span><span class="p">(:)</span>
-<a name="ln-548"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(:)%</span><span class="n">origin_type</span> <span class="o">=</span> <span class="s2">&quot;Supercatastrophic&quot;</span>
-<a name="ln-549"></a>               <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(:)%</span><span class="n">origin_time</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span>
-<a name="ln-550"></a>               <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
-<a name="ln-551"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">origin_xh</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">plnew</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-552"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">origin_vh</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">plnew</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-553"></a>               <span class="k">end do</span>
-<a name="ln-554"></a><span class="k">               if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-555"></a><span class="k">                  </span><span class="n">plnew</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">Ip_frag</span><span class="p">(:,:)</span>
-<a name="ln-556"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">rot_frag</span><span class="p">(:,:)</span>
-<a name="ln-557"></a>               <span class="k">end if</span>
-<a name="ln-558"></a><span class="k">               if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-559"></a><span class="k">                  </span><span class="n">ibiggest</span> <span class="o">=</span> <span class="nb">maxloc</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">family</span><span class="p">(:)),</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-560"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">Q</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Q</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
-<a name="ln-561"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">k2</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">k2</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
-<a name="ln-562"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">tlag</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">tlag</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
-<a name="ln-563"></a>               <span class="k">end if</span>
-<a name="ln-564"></a>   
-<a name="ln-565"></a>               <span class="c">! Append the new merged body to the list and record how many we made</span>
-<a name="ln-566"></a>               <span class="n">nstart</span> <span class="o">=</span> <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-567"></a>               <span class="n">nend</span> <span class="o">=</span> <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="n">plnew</span><span class="p">%</span><span class="n">nbody</span>
-<a name="ln-568"></a>               <span class="k">call </span><span class="n">mergeadd_list</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">plnew</span><span class="p">)</span>
-<a name="ln-569"></a>               <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(</span><span class="n">nstart</span><span class="p">:</span><span class="n">nend</span><span class="p">)</span> <span class="o">=</span> <span class="n">plnew</span><span class="p">%</span><span class="n">nbody</span>
-<a name="ln-570"></a>    
-<a name="ln-571"></a>               <span class="k">call </span><span class="n">plnew</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">0</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-572"></a>               <span class="k">deallocate</span><span class="p">(</span><span class="n">plnew</span><span class="p">)</span>
-<a name="ln-573"></a>            <span class="k">end if</span>
-<a name="ln-574"></a>
-<a name="ln-575"></a><span class="k">         end associate</span>
-<a name="ln-576"></a><span class="k">      end select</span>
-<a name="ln-577"></a>
-<a name="ln-578"></a><span class="k">      return</span>
-<a name="ln-579"></a><span class="k">   end function </span><span class="n">symba_fragmentation_casesupercatastrophic</span>
-<a name="ln-580"></a>
-<a name="ln-581"></a><span class="k">end submodule </span><span class="n">s_symba_fragmentation</span>
+<a name="ln-424"></a>               <span class="k">select case</span><span class="p">(</span><span class="n">status</span><span class="p">)</span>
+<a name="ln-425"></a>               <span class="k">case</span><span class="p">(</span><span class="n">DISRUPTION</span><span class="p">)</span>
+<a name="ln-426"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(:)%</span><span class="n">origin_type</span> <span class="o">=</span> <span class="s2">&quot;Disruption&quot;</span>
+<a name="ln-427"></a>               <span class="k">case</span><span class="p">(</span><span class="n">SUPERCATASTROPHIC</span><span class="p">)</span>
+<a name="ln-428"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(:)%</span><span class="n">origin_type</span> <span class="o">=</span> <span class="s2">&quot;Supercatastrophic&quot;</span>
+<a name="ln-429"></a>               <span class="k">case</span><span class="p">(</span><span class="n">HIT_AND_RUN</span><span class="p">)</span>
+<a name="ln-430"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(:)%</span><span class="n">origin_type</span> <span class="o">=</span> <span class="s2">&quot;Hit and run fragment&quot;</span>
+<a name="ln-431"></a>               <span class="k">case</span><span class="p">(</span><span class="n">MERGED</span><span class="p">)</span>
+<a name="ln-432"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
+<a name="ln-433"></a>               <span class="k">end select</span>
+<a name="ln-434"></a>
+<a name="ln-435"></a><span class="k">               if</span> <span class="p">(</span><span class="n">status</span> <span class="o">/=</span> <span class="n">MERGED</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-436"></a><span class="k">                  </span><span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(:)%</span><span class="n">origin_time</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span>
+<a name="ln-437"></a>                  <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nfrag</span>
+<a name="ln-438"></a>                     <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">origin_xh</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">plnew</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-439"></a>                     <span class="n">plnew</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">origin_vh</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">plnew</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-440"></a>                  <span class="k">end do</span>
+<a name="ln-441"></a><span class="k">               end if</span>
+<a name="ln-442"></a>
+<a name="ln-443"></a><span class="k">               if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-444"></a><span class="k">                  </span><span class="n">plnew</span><span class="p">%</span><span class="n">Ip</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">Ip_frag</span><span class="p">(:,:)</span>
+<a name="ln-445"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,:)</span> <span class="o">=</span> <span class="n">rot_frag</span><span class="p">(:,:)</span>
+<a name="ln-446"></a>               <span class="k">end if</span>
+<a name="ln-447"></a><span class="k">               if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">ltides</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-448"></a><span class="k">                  </span><span class="n">plnew</span><span class="p">%</span><span class="n">Q</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Q</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
+<a name="ln-449"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">k2</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">k2</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
+<a name="ln-450"></a>                  <span class="n">plnew</span><span class="p">%</span><span class="n">tlag</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">tlag</span><span class="p">(</span><span class="n">ibiggest</span><span class="p">)</span>
+<a name="ln-451"></a>               <span class="k">end if</span>
+<a name="ln-452"></a><span class="k">               call </span><span class="n">plnew</span><span class="p">%</span><span class="n">set_mu</span><span class="p">(</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-453"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(:)</span> <span class="o">&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">GMTINY</span>
+<a name="ln-454"></a>
+<a name="ln-455"></a>               <span class="c">! Append the new merged body to the list and record how many we made</span>
+<a name="ln-456"></a>               <span class="n">nstart</span> <span class="o">=</span> <span class="n">pl_adds</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-457"></a>               <span class="n">nend</span> <span class="o">=</span> <span class="n">pl_adds</span><span class="p">%</span><span class="n">nbody</span> <span class="o">+</span> <span class="n">plnew</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-458"></a>               <span class="k">call </span><span class="n">pl_adds</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">plnew</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="o">=</span><span class="p">[(.</span><span class="n">true</span><span class="p">.,</span> <span class="n">i</span><span class="o">=</span><span class="mi">1</span><span class="p">,</span> <span class="n">plnew</span><span class="p">%</span><span class="n">nbody</span><span class="p">)])</span>
+<a name="ln-459"></a>               <span class="n">pl_adds</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(</span><span class="n">nstart</span><span class="p">:</span><span class="n">nend</span><span class="p">)</span> <span class="o">=</span> <span class="n">plnew</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-460"></a>
+<a name="ln-461"></a>               <span class="k">call </span><span class="n">plnew</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">0</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-462"></a>               <span class="k">deallocate</span><span class="p">(</span><span class="n">plnew</span><span class="p">)</span>
+<a name="ln-463"></a>            <span class="k">end associate</span>
+<a name="ln-464"></a><span class="k">         end select</span>
+<a name="ln-465"></a><span class="k">      end select</span>
+<a name="ln-466"></a>
+<a name="ln-467"></a><span class="k">      return</span>
+<a name="ln-468"></a><span class="k">   end subroutine </span><span class="n">symba_fragmentation_mergeaddsub</span>
+<a name="ln-469"></a>
+<a name="ln-470"></a><span class="k">end submodule </span><span class="n">s_symba_fragmentation</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/symba_io.f90.html b/docs/sourcefile/symba_io.f90.html
index f504e479f..4848402bd 100644
--- a/docs/sourcefile/symba_io.f90.html
+++ b/docs/sourcefile/symba_io.f90.html
@@ -134,7 +134,7 @@ <h1>symba_io.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.7% of total for source files.">229 statements</a>
+    title=" 2.5% of total for source files.">336 statements</a>
      </li> 
      
      
@@ -226,246 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~symba_io.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilesymba_iof90EfferentGraph" width="641pt" height="220pt"
- viewBox="0.00 0.00 641.00 220.22" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~symba_io.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 304.17)">
+<svg id="sourcefilesymba_iof90EfferentGraph" width="641pt" height="189pt"
+ viewBox="0.00 0.00 641.00 188.76" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~symba_io.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 260.15)">
 <title>sourcefile~~symba_io.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-304.17 893,-304.17 893,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 893,-260.15 893,4 -4,4"/>
 <!-- sourcefile~symba_io.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~symba_io.f90</title>
-<polygon fill="none" stroke="black" points="889,-128.89 813,-128.89 813,-104.89 889,-104.89 889,-128.89"/>
-<text text-anchor="middle" x="851" y="-114.49" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io.f90</text>
+<polygon fill="none" stroke="black" points="889,-165 813,-165 813,-141 889,-141 889,-165"/>
+<text text-anchor="middle" x="851" y="-150.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_io.f90</text>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-108.89 572,-108.89 572,-84.89 675,-84.89 675,-108.89"/>
-<text text-anchor="middle" x="623.5" y="-94.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-145 711,-145 711,-121 777,-121 777,-145"/>
+<text text-anchor="middle" x="744" y="-130.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.76,-113.58C778.17,-110.52 726.02,-105.89 685.37,-102.29"/>
-<polygon fill="#000000" stroke="#000000" points="685.57,-98.79 675.3,-101.39 684.95,-105.76 685.57,-98.79"/>
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.98,-145.95C804.58,-144.35 795.59,-142.64 787,-141"/>
+<polygon fill="#000000" stroke="#000000" points="787.63,-137.56 777.15,-139.12 786.32,-144.43 787.63,-137.56"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-148.89 711,-148.89 711,-124.89 777,-124.89 777,-148.89"/>
-<text text-anchor="middle" x="744" y="-134.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-185 572,-185 572,-161 675,-161 675,-185"/>
+<text text-anchor="middle" x="623.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.98,-123.94C804.58,-125.54 795.59,-127.25 787,-128.89"/>
-<polygon fill="#000000" stroke="#000000" points="786.32,-125.45 777.15,-130.76 787.63,-132.33 786.32,-125.45"/>
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.76,-156.3C778.17,-159.37 726.02,-164 685.37,-167.6"/>
+<polygon fill="#000000" stroke="#000000" points="684.95,-164.12 675.3,-168.49 685.57,-171.1 684.95,-164.12"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-143.82C698.36,-148.07 683.7,-153.02 670.06,-157.62"/>
+<polygon fill="#000000" stroke="#000000" points="668.71,-154.38 660.35,-160.9 670.95,-161.02 668.71,-154.38"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-62.89 143,-62.89 143,-38.89 250,-38.89 250,-62.89"/>
-<text text-anchor="middle" x="196.5" y="-48.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-63 142,-63 142,-39 260,-39 260,-63"/>
+<text text-anchor="middle" x="201" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C307.66,-13.37 266.69,-25.26 237.42,-35.44"/>
-<polygon fill="#000000" stroke="#000000" points="236.21,-32.16 227.97,-38.81 238.56,-38.75 236.21,-32.16"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C323.66,-54.55 295.23,-54.56 270.29,-54.01"/>
+<polygon fill="#000000" stroke="#000000" points="270.28,-50.51 260.19,-53.76 270.1,-57.51 270.28,-50.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C430.54,-32.77 411.84,-49.38 351.5,-53"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178.89 0,-178.89 0,-154.89 106,-154.89 106,-178.89"/>
-<text text-anchor="middle" x="53" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-185 441.5,-185 441.5,-161 535.5,-161 535.5,-185"/>
+<text text-anchor="middle" x="488.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-10.89C171.8,-19.55 161.77,-14.21 142,-29.89 102.57,-61.16 75.43,-115.18 62.55,-145.2"/>
-<polygon fill="#000000" stroke="#000000" points="59.19,-144.16 58.59,-154.74 65.66,-146.84 59.19,-144.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.07,-84.82C557.22,-59.62 446.24,-4.28 347,-10.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C279.46,-9.33 259.07,11.61 197.5,-10.89"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-145.86 523.02,-157"/>
+<polygon fill="#000000" stroke="#000000" points="521.61,-153.79 513.84,-161 524.41,-160.21 521.61,-153.79"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-178.89 441,-178.89 441,-154.89 536,-154.89 536,-178.89"/>
-<text text-anchor="middle" x="488.5" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.64,-108.92C578.13,-120.24 545.72,-137.3 521.62,-149.98"/>
-<polygon fill="#000000" stroke="#000000" points="519.73,-147.02 512.51,-154.78 522.99,-153.22 519.73,-147.02"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C575.46,-133 577.26,-94.6 536,-72 516.42,-61.28 510.54,-60.47 489.5,-53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-133C686.98,-133 653.71,-133 624.5,-133"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C460.62,-43.46 430.28,-34.17 405.08,-26.85"/>
+<polygon fill="#000000" stroke="#000000" points="405.91,-23.45 395.34,-24.05 403.98,-30.18 405.91,-23.45"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-98.89 441.5,-98.89 441.5,-74.89 535.5,-74.89 535.5,-98.89"/>
-<text text-anchor="middle" x="488.5" y="-84.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-105 441,-105 441,-81 536,-81 536,-105"/>
+<text text-anchor="middle" x="488.5" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-93.08C563.29,-92.44 554.37,-91.77 545.69,-91.11"/>
-<polygon fill="#000000" stroke="#000000" points="545.89,-87.62 535.65,-90.36 545.36,-94.6 545.89,-87.62"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-126.06C698.36,-121.82 683.7,-116.87 670.06,-112.27"/>
-<polygon fill="#000000" stroke="#000000" points="670.95,-108.87 660.35,-108.99 668.71,-115.5 670.95,-108.87"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C481.59,-126.04 335.09,-87.34 252.63,-65.5"/>
-<polygon fill="#000000" stroke="#000000" points="253.47,-62.1 242.9,-62.93 251.67,-68.87 253.47,-62.1"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C562.9,-151.46 548.71,-135.12 489.5,-126.89"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C364.33,-286.8 322.63,-320.54 197.5,-284.89"/>
-</g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C597.35,-148.82 569.75,-152.68 546.24,-156.5"/>
-<polygon fill="#000000" stroke="#000000" points="545.38,-153.09 536.09,-158.18 546.53,-160 545.38,-153.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-120.14 523.02,-109"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-105.79 513.84,-105 521.61,-112.21 524.41,-105.79"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.82,-139.74C686.99,-141.81 653.73,-144.65 624.5,-146.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C611.89,-147.7 557.94,-121.61 522.09,-103.57"/>
-<polygon fill="#000000" stroke="#000000" points="523.46,-100.35 512.96,-98.96 520.3,-106.59 523.46,-100.35"/>
-</g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-218.89 142,-218.89 142,-194.89 251,-194.89 251,-218.89"/>
-<text text-anchor="middle" x="196.5" y="-204.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-183 147.5,-183 147.5,-159 254.5,-159 254.5,-183"/>
+<text text-anchor="middle" x="201" y="-168.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C451.51,-256.57 442.32,-230.12 405,-223.89 357.18,-215.9 302.51,-211.62 261.29,-209.35"/>
-<polygon fill="#000000" stroke="#000000" points="261.28,-205.84 251.11,-208.81 260.91,-212.83 261.28,-205.84"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C549.29,-152.5 559.01,-221.23 489.5,-244.89"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C598.52,-133 591.64,-138.24 572,-152 551.86,-166.1 558.34,-183.73 536,-194 439.06,-238.59 309.4,-207.4 243.79,-186.19"/>
+<polygon fill="#000000" stroke="#000000" points="244.8,-182.83 234.21,-183.01 242.6,-189.48 244.8,-182.83"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_node9" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-138.89 299,-138.89 299,-114.89 393,-114.89 393,-138.89"/>
-<text text-anchor="middle" x="346" y="-124.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-143 303.5,-143 303.5,-119 397.5,-119 397.5,-143"/>
+<text text-anchor="middle" x="350.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge13" class="edge">
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C460.02,-122.92 429.2,-122.48 403.45,-123.22"/>
-<polygon fill="#000000" stroke="#000000" points="402.98,-119.73 393.11,-123.58 403.23,-126.73 402.98,-119.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C548.24,-133 462.54,-132.24 407.73,-131.66"/>
+<polygon fill="#000000" stroke="#000000" points="407.57,-128.15 397.53,-131.55 407.49,-135.15 407.57,-128.15"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-256.89 287,-256.89 287,-232.89 405,-232.89 405,-256.89"/>
-<text text-anchor="middle" x="346" y="-242.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_io.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-103 0,-103 0,-79 106,-79 106,-103"/>
+<text text-anchor="middle" x="53" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C464.66,-252.3 438.62,-254.02 415.2,-253.31"/>
-<polygon fill="#000000" stroke="#000000" points="415.15,-249.81 405,-252.86 414.83,-256.8 415.15,-249.81"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-91C172.55,-89.01 142.12,-88.71 116.17,-89.02"/>
+<polygon fill="#000000" stroke="#000000" points="116.04,-85.53 106.1,-89.18 116.15,-92.52 116.04,-85.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C281.93,-57.05 269.52,-95.89 202,-91"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.62,-63.08C155.83,-83.41 105.88,-124.36 76.67,-148.3"/>
-<polygon fill="#000000" stroke="#000000" points="74.19,-145.81 68.68,-154.86 78.63,-151.22 74.19,-145.81"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-173C563.29,-173 554.37,-173 545.69,-173"/>
+<polygon fill="#000000" stroke="#000000" points="545.65,-169.5 535.65,-173 545.65,-176.5 545.65,-169.5"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.98,-164.99C383.64,-163.08 283.28,-161.18 197.5,-166.89"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-160.94C589.52,-156.71 580.27,-151.82 572,-147 552.53,-135.66 531.27,-121.7 515.21,-110.82"/>
+<polygon fill="#000000" stroke="#000000" points="517.1,-107.87 506.87,-105.13 513.16,-113.66 517.1,-107.87"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-154.89C430.89,-150.77 414.54,-146.11 399.37,-141.8"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-138.39 389.61,-139.02 398.27,-145.12 400.19,-138.39"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C300.24,-244.52 251.15,-211.17 223.87,-189.63"/>
+<polygon fill="#000000" stroke="#000000" points="225.78,-186.67 215.8,-183.1 221.37,-192.11 225.78,-186.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.61,-185.12C591.15,-197.81 563.34,-217.22 536,-227 458.15,-254.87 433.49,-261.78 351.5,-251"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C254.02,-242.29 222.95,-243.38 142,-192 109.38,-171.3 82.04,-134.94 66.86,-111.95"/>
+<polygon fill="#000000" stroke="#000000" points="69.65,-109.82 61.3,-103.29 63.76,-113.6 69.65,-109.82"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-63C140.96,-67.17 123.7,-71.9 107.75,-76.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-72.92 98.03,-78.94 108.6,-79.67 106.75,-72.92"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge16" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C317.58,-43.61 286.76,-43.19 260.42,-44.45"/>
-<polygon fill="#000000" stroke="#000000" points="259.96,-40.97 250.18,-45.03 260.36,-47.96 259.96,-40.97"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C321.96,-167.18 291.24,-166.6 265,-167.2"/>
+<polygon fill="#000000" stroke="#000000" points="264.7,-163.7 254.81,-167.49 264.9,-170.7 264.7,-163.7"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.53,-160.96C433.45,-156.31 416.02,-150.93 400.14,-146.02"/>
+<polygon fill="#000000" stroke="#000000" points="401.07,-142.64 390.48,-143.04 399,-149.33 401.07,-142.64"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.1,-74.85C421.06,-66.47 381.99,-55.62 347,-48.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C278.52,-36.09 261.08,12.35 197.5,-10.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C324.51,-167.53 318.63,-163.17 296,-152 251.34,-129.96 251.67,-94.59 202,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.33,-175.13C414.91,-175.65 381.2,-175.12 351.5,-171"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.87,-9.2C253,-8.7 192,-11.96 142,-30 116.3,-39.27 91.11,-58 74.31,-72.27"/>
+<polygon fill="#000000" stroke="#000000" points="72,-69.64 66.77,-78.86 76.61,-74.92 72,-69.64"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-98.89C430.89,-103 414.54,-107.66 399.37,-111.98"/>
-<polygon fill="#000000" stroke="#000000" points="398.27,-108.65 389.61,-114.76 400.19,-115.38 398.27,-108.65"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.47,-105.02C431.82,-108.56 417.83,-112.47 404.63,-116.16"/>
+<polygon fill="#000000" stroke="#000000" points="403.41,-112.86 394.72,-118.92 405.29,-119.6 403.41,-112.86"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-194.89C138.49,-190.77 122.02,-186.11 106.74,-181.8"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-178.37 96.91,-179.02 105.58,-185.11 107.49,-178.37"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M177.83,-158.85C153.03,-145.26 112.7,-123.16 84.83,-107.9"/>
+<polygon fill="#000000" stroke="#000000" points="86.36,-104.74 75.9,-103 82.99,-110.88 86.36,-104.74"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_edge23" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.74,-114.82C307.21,-110.59 296.57,-105.69 287,-100.89 266.6,-90.64 244.18,-78.11 226.88,-68.16"/>
-<polygon fill="#000000" stroke="#000000" points="228.25,-64.91 217.84,-62.93 224.74,-70.97 228.25,-64.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-143C289.86,-147.17 272.41,-151.9 256.31,-156.27"/>
+<polygon fill="#000000" stroke="#000000" points="255.21,-152.94 246.48,-158.94 257.05,-159.7 255.21,-152.94"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_io.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-166.89C169.66,-168.61 141.1,-168.91 116.44,-168.67"/>
-<polygon fill="#000000" stroke="#000000" points="116.18,-165.17 106.14,-168.54 116.09,-172.17 116.18,-165.17"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-138.97C285.12,-149.7 239.06,-164.12 197.5,-166.89"/>
-</g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_io.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-284.89C139.78,-269.01 92.08,-216.53 68.94,-187.19"/>
-<polygon fill="#000000" stroke="#000000" points="71.69,-185.03 62.82,-179.24 66.14,-189.3 71.69,-185.03"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.87,-257C278.48,-270.93 219.44,-291.14 197.5,-284.89"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.03,-118.95C289.62,-108.24 243.56,-93.84 202,-91"/>
 </g>
 </g>
 </svg>
@@ -564,291 +562,404 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-2"></a>   <span class="k">use </span><span class="n">swiftest</span>
 <a name="ln-3"></a><span class="k">contains</span>
 <a name="ln-4"></a>
-<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">symba_io_dump_particle_info</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">msg</span><span class="p">)</span> 
+<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">symba_io_dump_particle_info</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">lincludecb</span><span class="p">,</span> <span class="n">tpidx</span><span class="p">,</span> <span class="n">plidx</span><span class="p">)</span> 
 <a name="ln-6"></a>      <span class="c">!! author: David A. Minton</span>
 <a name="ln-7"></a>      <span class="c">!!</span>
-<a name="ln-8"></a>      <span class="c">!! Dumps the particle information data to a file</span>
-<a name="ln-9"></a>      <span class="k">implicit none</span>
-<a name="ln-10"></a><span class="k">      class</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest base object</span>
-<a name="ln-11"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-12"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">optional</span><span class="p">,</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">msg</span>   <span class="c">!! Message to display with dump operation</span>
-<a name="ln-13"></a>   <span class="k">end subroutine </span><span class="n">symba_io_dump_particle_info</span>
-<a name="ln-14"></a>
-<a name="ln-15"></a>
-<a name="ln-16"></a>   <span class="k">module subroutine </span><span class="n">symba_io_initialize_particle_info</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
-<a name="ln-17"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-18"></a>      <span class="c">!!</span>
-<a name="ln-19"></a>      <span class="c">!! Initializes a particle info data structure, either starting a new one or reading one in </span>
-<a name="ln-20"></a>      <span class="c">!! from a file if it is a restarted run</span>
-<a name="ln-21"></a>      <span class="k">implicit none</span>
-<a name="ln-22"></a><span class="k">      class</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA particle info object</span>
-<a name="ln-23"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-24"></a>   <span class="k">end subroutine </span><span class="n">symba_io_initialize_particle_info</span>
-<a name="ln-25"></a>
-<a name="ln-26"></a>
-<a name="ln-27"></a>   <span class="k">module subroutine </span><span class="n">symba_io_param_reader</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
-<a name="ln-28"></a>      <span class="c">!! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</span>
-<a name="ln-29"></a>      <span class="c">!!</span>
-<a name="ln-30"></a>      <span class="c">!! Read in parameters specific to the SyMBA integrator, then calls the base io_param_reader.</span>
-<a name="ln-31"></a>      <span class="c">!!</span>
-<a name="ln-32"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_init_param.f90</span>
-<a name="ln-33"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine io_init_param.f</span>
-<a name="ln-34"></a>      <span class="k">implicit none</span>
-<a name="ln-35"></a>      <span class="c">! Arguments</span>
-<a name="ln-36"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! Collection of parameters</span>
-<a name="ln-37"></a>      <span class="kt">integer</span><span class="p">,</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">unit</span>       <span class="c">!! File unit number</span>
-<a name="ln-38"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">iotype</span>     <span class="c">!! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. </span>
-<a name="ln-39"></a>                                                           <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
-<a name="ln-40"></a>      <span class="kt">integer</span><span class="p">,</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">v_list</span><span class="p">(:)</span>  <span class="c">!! The first element passes the integrator code to the reader</span>
-<a name="ln-41"></a>      <span class="kt">integer</span><span class="p">,</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">iostat</span>     <span class="c">!! IO status code</span>
-<a name="ln-42"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iomsg</span>      <span class="c">!! Message to pass if iostat /= 0</span>
-<a name="ln-43"></a>      <span class="c">! internals</span>
-<a name="ln-44"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                   <span class="kd">::</span> <span class="n">ilength</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span>  <span class="c">!! Variables used to parse input file</span>
-<a name="ln-45"></a>      <span class="kt">character</span><span class="p">(</span><span class="n">STRMAX</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">line</span>                    <span class="c">!! Line of the input file</span>
-<a name="ln-46"></a>      <span class="kt">character</span> <span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">line_trim</span><span class="p">,</span><span class="n">param_name</span><span class="p">,</span> <span class="n">param_value</span> <span class="c">!! Strings used to parse the param file</span>
-<a name="ln-47"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nseeds</span><span class="p">,</span> <span class="n">nseeds_from_file</span><span class="p">,</span> <span class="n">i</span>
-<a name="ln-48"></a>      <span class="kt">logical</span>                 <span class="kd">::</span> <span class="n">seed_set</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>      <span class="c">!! Is the random seed set in the input file?</span>
-<a name="ln-49"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span><span class="k">parameter</span>    <span class="kd">::</span> <span class="n">linefmt</span> <span class="o">=</span> <span class="s1">&#39;(A)&#39;</span>
-<a name="ln-50"></a>
-<a name="ln-51"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">param</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
-<a name="ln-52"></a>         <span class="k">call </span><span class="n">io_param_reader</span><span class="p">(</span><span class="n">param</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
-<a name="ln-53"></a>
-<a name="ln-54"></a>         <span class="k">call </span><span class="nb">random_seed</span><span class="p">(</span><span class="n">size</span> <span class="o">=</span> <span class="n">nseeds</span><span class="p">)</span>
-<a name="ln-55"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">)</span>
-<a name="ln-56"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(</span><span class="n">nseeds</span><span class="p">))</span>
-<a name="ln-57"></a>         <span class="k">rewind</span><span class="p">(</span><span class="n">unit</span><span class="p">)</span>
-<a name="ln-58"></a>         <span class="k">do</span>
-<a name="ln-59"></a><span class="k">            read</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">unit</span><span class="p">,</span> <span class="n">fmt</span> <span class="o">=</span> <span class="n">linefmt</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">iostat</span><span class="p">,</span> <span class="k">end</span> <span class="o">=</span> <span class="mi">1</span><span class="p">)</span> <span class="n">line</span>
-<a name="ln-60"></a>            <span class="n">line_trim</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">line</span><span class="p">))</span>
-<a name="ln-61"></a>            <span class="n">ilength</span> <span class="o">=</span> <span class="nb">len</span><span class="p">(</span><span class="n">line_trim</span><span class="p">)</span>
-<a name="ln-62"></a>            <span class="k">if</span> <span class="p">((</span><span class="n">ilength</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">))</span> <span class="k">then </span>
-<a name="ln-63"></a><span class="k">               </span><span class="n">ifirst</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-64"></a>               <span class="c">! Read the pair of tokens. The first one is the parameter name, the second is the value.</span>
-<a name="ln-65"></a>               <span class="n">param_name</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line_trim</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span>
-<a name="ln-66"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">param_name</span> <span class="o">==</span> <span class="s1">&#39;&#39;</span><span class="p">)</span> <span class="k">cycle</span> <span class="c">! No parameter name (usually because this line is commented out)</span>
-<a name="ln-67"></a>               <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_name</span><span class="p">)</span>
-<a name="ln-68"></a>               <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-69"></a>               <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line_trim</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span>
-<a name="ln-70"></a>               <span class="k">select case</span> <span class="p">(</span><span class="n">param_name</span><span class="p">)</span>
-<a name="ln-71"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;FRAGMENTATION&quot;</span><span class="p">)</span>
-<a name="ln-72"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-73"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;T&quot;</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">lfragmentation</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-74"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;MTINY&quot;</span><span class="p">)</span>
-<a name="ln-75"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">mtiny</span>
-<a name="ln-76"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;SEED&quot;</span><span class="p">)</span>
-<a name="ln-77"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">nseeds_from_file</span>
-<a name="ln-78"></a>                  <span class="c">! Because the number of seeds can vary between compilers/systems, we need to make sure we can handle cases in which the input file has a different</span>
-<a name="ln-79"></a>                  <span class="c">! number of seeds than the current system. If the number of seeds in the file is smaller than required, we will use them as a source to fill in the missing elements.</span>
-<a name="ln-80"></a>                  <span class="c">! If the number of seeds in the file is larger than required, we will truncate the seed array.</span>
-<a name="ln-81"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">nseeds_from_file</span> <span class="o">&gt;</span> <span class="n">nseeds</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-82"></a><span class="k">                     </span><span class="n">nseeds</span> <span class="o">=</span> <span class="n">nseeds_from_file</span>
-<a name="ln-83"></a>                     <span class="k">deallocate</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">)</span>
-<a name="ln-84"></a>                     <span class="k">allocate</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(</span><span class="n">nseeds</span><span class="p">))</span>
-<a name="ln-85"></a>                     <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nseeds</span>
-<a name="ln-86"></a>                        <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-87"></a>                        <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span> 
-<a name="ln-88"></a>                        <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-89"></a>                     <span class="k">end do</span>
-<a name="ln-90"></a><span class="k">                  else</span> <span class="c">! Seed array in file is too small</span>
-<a name="ln-91"></a>                     <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nseeds_from_file</span>
-<a name="ln-92"></a>                        <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-93"></a>                        <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span> 
-<a name="ln-94"></a>                        <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-95"></a>                     <span class="k">end do</span>
-<a name="ln-96"></a><span class="k">                     </span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(</span><span class="n">nseeds_from_file</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">nseeds</span><span class="p">)</span> <span class="o">=</span> <span class="p">[(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">-</span> <span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(</span><span class="n">nseeds_from_file</span><span class="p">)</span> <span class="o">+</span> <span class="n">i</span><span class="p">,</span> <span class="n">i</span><span class="o">=</span><span class="n">nseeds_from_file</span><span class="o">+</span><span class="mi">1</span><span class="p">,</span> <span class="n">nseeds</span><span class="p">)]</span>
-<a name="ln-97"></a>                  <span class="k">end if</span>
-<a name="ln-98"></a><span class="k">                  </span><span class="n">seed_set</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
-<a name="ln-99"></a>               <span class="k">end select</span>
-<a name="ln-100"></a><span class="k">            end if</span>
-<a name="ln-101"></a><span class="k">         end do</span>
-<a name="ln-102"></a><span class="k">         </span><span class="mi">1</span> <span class="k">continue</span>
-<a name="ln-103"></a>
-<a name="ln-104"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;FRAGMENTATION = &quot;</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">lfragmentation</span>
-<a name="ln-105"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lfragmentation</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-106"></a><span class="k">            if</span> <span class="p">(</span><span class="n">seed_set</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-107"></a><span class="k">               call </span><span class="nb">random_seed</span><span class="p">(</span><span class="n">put</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">)</span>
-<a name="ln-108"></a>            <span class="k">else</span>
-<a name="ln-109"></a><span class="k">               call </span><span class="nb">random_seed</span><span class="p">(</span><span class="n">get</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">)</span>
-<a name="ln-110"></a>            <span class="k">end if</span>
-<a name="ln-111"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;SEED: N,VAL    = &quot;</span><span class="p">,</span><span class="n">size</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">),</span> <span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(:)</span>
-<a name="ln-112"></a>         <span class="k">end if</span>
-<a name="ln-113"></a>
-<a name="ln-114"></a><span class="k">         if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mtiny</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-115"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;MTINY invalid or not set: &quot;</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">mtiny</span>
-<a name="ln-116"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-117"></a>            <span class="k">return</span>
-<a name="ln-118"></a><span class="k">         else</span>
-<a name="ln-119"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;MTINY          = &quot;</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">mtiny</span>   
-<a name="ln-120"></a>         <span class="k">end if</span>
-<a name="ln-121"></a>
-<a name="ln-122"></a><span class="k">         if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">self</span><span class="p">%</span><span class="n">lclose</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-123"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;This integrator requires CHK_CLOSE to be enabled.&#39;</span>
-<a name="ln-124"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-125"></a>            <span class="k">return</span>
-<a name="ln-126"></a><span class="k">         end if</span>
-<a name="ln-127"></a><span class="k">      end associate</span>
-<a name="ln-128"></a>
-<a name="ln-129"></a><span class="k">      </span><span class="n">iostat</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-130"></a>
-<a name="ln-131"></a>      <span class="k">return</span>
-<a name="ln-132"></a><span class="k">   end subroutine </span><span class="n">symba_io_param_reader</span>
-<a name="ln-133"></a>
-<a name="ln-134"></a>
-<a name="ln-135"></a>   <span class="k">module subroutine </span><span class="n">symba_io_param_writer</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
-<a name="ln-136"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-137"></a>      <span class="c">!!</span>
-<a name="ln-138"></a>      <span class="c">!! Dump integration parameters specific to SyMBA to file and then call the base io_param_writer method.</span>
-<a name="ln-139"></a>      <span class="c">!!</span>
-<a name="ln-140"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_dump_param.f90</span>
-<a name="ln-141"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine io_dump_param.f</span>
-<a name="ln-142"></a>      <span class="k">implicit none</span>
-<a name="ln-143"></a>      <span class="c">! Arguments</span>
-<a name="ln-144"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Collection of SyMBA parameters</span>
-<a name="ln-145"></a>      <span class="kt">integer</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">unit</span>      <span class="c">!! File unit number</span>
-<a name="ln-146"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">iotype</span>    <span class="c">!! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. </span>
-<a name="ln-147"></a>                                                         <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
-<a name="ln-148"></a>      <span class="kt">integer</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">v_list</span><span class="p">(:)</span> <span class="c">!! Not used in this procedure</span>
-<a name="ln-149"></a>      <span class="kt">integer</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">iostat</span>    <span class="c">!! IO status code</span>
-<a name="ln-150"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iomsg</span>     <span class="c">!! Message to pass if iostat /= 0</span>
-<a name="ln-151"></a>      <span class="c">! Internals</span>
-<a name="ln-152"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span> <span class="kd">::</span> <span class="n">Ifmt</span>  <span class="o">=</span> <span class="s1">&#39;(I0)&#39;</span>         <span class="c">!! Format label for integer values</span>
-<a name="ln-153"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span> <span class="kd">::</span> <span class="n">Rfmt</span>  <span class="o">=</span> <span class="s1">&#39;(ES25.17)&#39;</span>    <span class="c">!! Format label for real values </span>
-<a name="ln-154"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span> <span class="kd">::</span> <span class="n">Rarrfmt</span>  <span class="o">=</span> <span class="s1">&#39;(3(ES25.17,1X))&#39;</span>    <span class="c">!! Format label for real values </span>
-<a name="ln-155"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span> <span class="kd">::</span> <span class="n">Lfmt</span>  <span class="o">=</span> <span class="s1">&#39;(L1)&#39;</span>         <span class="c">!! Format label for logical values </span>
-<a name="ln-156"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">Afmt</span> <span class="o">=</span> <span class="s1">&#39;(A25,1X,64(:,A25,1X))&#39;</span>
-<a name="ln-157"></a>      <span class="kt">character</span><span class="p">(</span><span class="mi">256</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">param_name</span><span class="p">,</span> <span class="n">param_value</span>
-<a name="ln-158"></a>      <span class="k">type </span><span class="n">character_array</span>
-<a name="ln-159"></a>         <span class="kt">character</span><span class="p">(</span><span class="mi">25</span><span class="p">)</span> <span class="kd">::</span> <span class="k">value</span>
-<a name="ln-160"></a><span class="k">      end type </span><span class="n">character_array</span>
-<a name="ln-161"></a>      <span class="k">type</span><span class="p">(</span><span class="n">character_array</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">param_array</span>
-<a name="ln-162"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-163"></a>
-<a name="ln-164"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">param</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
-<a name="ln-165"></a>         <span class="k">call </span><span class="n">io_param_writer</span><span class="p">(</span><span class="n">param</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
-<a name="ln-166"></a>
-<a name="ln-167"></a>         <span class="c">! Special handling is required for writing the random number seed array as its size is not known until runtime</span>
-<a name="ln-168"></a>         <span class="c">! For the &quot;SEED&quot; parameter line, the first value will be the size of the seed array and the rest will be the seed array elements</span>
-<a name="ln-169"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;PARTICLE_FILE&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">particle_file</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-170"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;MTINY&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">mtiny</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-171"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;FRAGMENTATION&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span>  <span class="n">param</span><span class="p">%</span><span class="n">lfragmentation</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
-<a name="ln-172"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lfragmentation</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-173"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;SEED&quot;</span>
-<a name="ln-174"></a>            <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">param_array</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">param_array</span><span class="p">)</span>
-<a name="ln-175"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="mi">0</span><span class="p">:</span><span class="n">size</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">)))</span>
-<a name="ln-176"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="k">value</span><span class="p">,</span> <span class="n">Ifmt</span><span class="p">)</span> <span class="n">size</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">)</span>
-<a name="ln-177"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">size</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">)</span>
-<a name="ln-178"></a>               <span class="k">write</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="k">value</span><span class="p">,</span> <span class="n">Ifmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-179"></a>            <span class="k">end do</span>
-<a name="ln-180"></a><span class="k">            write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">,</span> <span class="n">advance</span><span class="o">=</span><span class="s1">&#39;no&#39;</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="k">value</span><span class="p">)</span>
-<a name="ln-181"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">size</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">)</span>
-<a name="ln-182"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">i</span> <span class="o">&lt;</span> <span class="n">size</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-183"></a><span class="k">                  write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">,</span> <span class="n">advance</span><span class="o">=</span><span class="s1">&#39;no&#39;</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="k">value</span><span class="p">)</span>
-<a name="ln-184"></a>               <span class="k">else</span>
-<a name="ln-185"></a><span class="k">                  write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="k">value</span><span class="p">)</span>
-<a name="ln-186"></a>               <span class="k">end if</span>
-<a name="ln-187"></a><span class="k">            end do</span>
-<a name="ln-188"></a><span class="k">         end if</span>
-<a name="ln-189"></a>
-<a name="ln-190"></a><span class="k">         </span><span class="n">iostat</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-191"></a>      <span class="k">end associate</span>
+<a name="ln-8"></a>      <span class="c">!! Dumps the particle information data to a file. </span>
+<a name="ln-9"></a>      <span class="c">!! Pass a list of array indices for test particles (tpidx) and/or massive bodies (plidx) to append</span>
+<a name="ln-10"></a>      <span class="k">implicit none</span>
+<a name="ln-11"></a>      <span class="c">! Arguments</span>
+<a name="ln-12"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>             <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-13"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters with SyMBA extensions</span>
+<a name="ln-14"></a>      <span class="kt">logical</span><span class="p">,</span>                     <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lincludecb</span>  <span class="c">!! Set to true to include the central body (default is false)</span>
+<a name="ln-15"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>  <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">tpidx</span>  <span class="c">!! Array of test particle indices to append to the particle file</span>
+<a name="ln-16"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span>  <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">plidx</span>  <span class="c">!! Array of massive body indices to append to the particle file</span>
+<a name="ln-17"></a>      <span class="c">! Internals</span>
+<a name="ln-18"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">save</span>             <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-19"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">LUN</span> <span class="o">=</span> <span class="mi">22</span>
+<a name="ln-20"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">ierr</span>
+<a name="ln-21"></a>
+<a name="ln-22"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">lfirst</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-23"></a><span class="k">         select case</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">)</span>
+<a name="ln-24"></a>         <span class="k">case</span><span class="p">(</span><span class="s1">&#39;APPEND&#39;</span><span class="p">)</span>
+<a name="ln-25"></a>            <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">particle_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;OLD&#39;</span><span class="p">,</span> <span class="n">position</span> <span class="o">=</span> <span class="s1">&#39;APPEND&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-26"></a>         <span class="k">case</span><span class="p">(</span><span class="s1">&#39;NEW&#39;</span><span class="p">,</span> <span class="s1">&#39;UNKNOWN&#39;</span><span class="p">,</span> <span class="s1">&#39;REPLACE&#39;</span><span class="p">)</span>
+<a name="ln-27"></a>            <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">particle_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-28"></a>         <span class="k">case </span><span class="n">default</span>
+<a name="ln-29"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid status code&#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">))</span>
+<a name="ln-30"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-31"></a>         <span class="k">end select</span>
+<a name="ln-32"></a><span class="k">         if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-33"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error:&quot;</span>
+<a name="ln-34"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   particle output file already exists or cannot be accessed&quot;</span>
+<a name="ln-35"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-36"></a>         <span class="k">end if</span>
+<a name="ln-37"></a>
+<a name="ln-38"></a><span class="k">         </span><span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-39"></a>      <span class="k">else</span>
+<a name="ln-40"></a><span class="k">         open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">particle_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;OLD&#39;</span><span class="p">,</span> <span class="n">position</span> <span class="o">=</span>  <span class="s1">&#39;APPEND&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-41"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-42"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error:&quot;</span>
+<a name="ln-43"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   unable to open binary output file for APPEND&quot;</span>
+<a name="ln-44"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-45"></a>         <span class="k">end if</span>
+<a name="ln-46"></a><span class="k">      end if</span>
+<a name="ln-47"></a>
+<a name="ln-48"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lincludecb</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-49"></a><span class="k">         if</span> <span class="p">(</span><span class="n">lincludecb</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-50"></a><span class="k">            select type</span><span class="p">(</span><span class="n">cb</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-51"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_cb</span><span class="p">)</span>
+<a name="ln-52"></a>               <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">id</span>
+<a name="ln-53"></a>               <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">info</span>
+<a name="ln-54"></a>            <span class="k">end select</span>
+<a name="ln-55"></a><span class="k">         end if</span>
+<a name="ln-56"></a><span class="k">      end if</span>
+<a name="ln-57"></a>
+<a name="ln-58"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">plidx</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-59"></a><span class="k">         select type</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-60"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-61"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">size</span><span class="p">(</span><span class="n">plidx</span><span class="p">)</span>
+<a name="ln-62"></a>               <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">plidx</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-63"></a>               <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">plidx</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-64"></a>            <span class="k">end do</span>
+<a name="ln-65"></a><span class="k">         end select</span>
+<a name="ln-66"></a><span class="k">      end if</span>
+<a name="ln-67"></a>
+<a name="ln-68"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">tpidx</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-69"></a><span class="k">         select type</span><span class="p">(</span><span class="n">tp</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">tp</span><span class="p">)</span>
+<a name="ln-70"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
+<a name="ln-71"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">size</span><span class="p">(</span><span class="n">tpidx</span><span class="p">)</span>
+<a name="ln-72"></a>               <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span> <span class="n">tp</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">tpidx</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-73"></a>               <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span> <span class="n">tp</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">tpidx</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-74"></a>            <span class="k">end do</span>
+<a name="ln-75"></a><span class="k">         end select</span>
+<a name="ln-76"></a><span class="k">      end if</span>
+<a name="ln-77"></a>
+<a name="ln-78"></a><span class="k">      close</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-79"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-80"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error:&quot;</span>
+<a name="ln-81"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   unable to close particle output file&quot;</span>
+<a name="ln-82"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-83"></a>      <span class="k">end if</span>
+<a name="ln-84"></a>
+<a name="ln-85"></a><span class="k">      return</span>
+<a name="ln-86"></a><span class="k">   end subroutine </span><span class="n">symba_io_dump_particle_info</span>
+<a name="ln-87"></a>
+<a name="ln-88"></a>
+<a name="ln-89"></a>   <span class="k">module subroutine </span><span class="n">symba_io_param_reader</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
+<a name="ln-90"></a>      <span class="c">!! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</span>
+<a name="ln-91"></a>      <span class="c">!!</span>
+<a name="ln-92"></a>      <span class="c">!! Read in parameters specific to the SyMBA integrator, then calls the base io_param_reader.</span>
+<a name="ln-93"></a>      <span class="c">!!</span>
+<a name="ln-94"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_init_param.f90</span>
+<a name="ln-95"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine io_init_param.f</span>
+<a name="ln-96"></a>      <span class="k">implicit none</span>
+<a name="ln-97"></a>      <span class="c">! Arguments</span>
+<a name="ln-98"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! Collection of parameters</span>
+<a name="ln-99"></a>      <span class="kt">integer</span><span class="p">,</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">unit</span>       <span class="c">!! File unit number</span>
+<a name="ln-100"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">iotype</span>     <span class="c">!! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. </span>
+<a name="ln-101"></a>                                                           <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
+<a name="ln-102"></a>      <span class="kt">integer</span><span class="p">,</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">v_list</span><span class="p">(:)</span>  <span class="c">!! The first element passes the integrator code to the reader</span>
+<a name="ln-103"></a>      <span class="kt">integer</span><span class="p">,</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">iostat</span>     <span class="c">!! IO status code</span>
+<a name="ln-104"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iomsg</span>      <span class="c">!! Message to pass if iostat /= 0</span>
+<a name="ln-105"></a>      <span class="c">! internals</span>
+<a name="ln-106"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                   <span class="kd">::</span> <span class="n">ilength</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span>  <span class="c">!! Variables used to parse input file</span>
+<a name="ln-107"></a>      <span class="kt">character</span><span class="p">(</span><span class="n">STRMAX</span><span class="p">)</span>              <span class="kd">::</span> <span class="n">line</span>                    <span class="c">!! Line of the input file</span>
+<a name="ln-108"></a>      <span class="kt">character</span> <span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="p">:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">line_trim</span><span class="p">,</span><span class="n">param_name</span><span class="p">,</span> <span class="n">param_value</span> <span class="c">!! Strings used to parse the param file</span>
+<a name="ln-109"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nseeds</span><span class="p">,</span> <span class="n">nseeds_from_file</span><span class="p">,</span> <span class="n">i</span>
+<a name="ln-110"></a>      <span class="kt">logical</span>                 <span class="kd">::</span> <span class="n">seed_set</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>      <span class="c">!! Is the random seed set in the input file?</span>
+<a name="ln-111"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span><span class="k">parameter</span>    <span class="kd">::</span> <span class="n">linefmt</span> <span class="o">=</span> <span class="s1">&#39;(A)&#39;</span>
+<a name="ln-112"></a>
+<a name="ln-113"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">param</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-114"></a>         <span class="k">call </span><span class="n">io_param_reader</span><span class="p">(</span><span class="n">param</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
+<a name="ln-115"></a>
+<a name="ln-116"></a>         <span class="k">call </span><span class="nb">random_seed</span><span class="p">(</span><span class="n">size</span> <span class="o">=</span> <span class="n">nseeds</span><span class="p">)</span>
+<a name="ln-117"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">)</span>
+<a name="ln-118"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(</span><span class="n">nseeds</span><span class="p">))</span>
+<a name="ln-119"></a>         <span class="k">rewind</span><span class="p">(</span><span class="n">unit</span><span class="p">)</span>
+<a name="ln-120"></a>         <span class="k">do</span>
+<a name="ln-121"></a><span class="k">            read</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">unit</span><span class="p">,</span> <span class="n">fmt</span> <span class="o">=</span> <span class="n">linefmt</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">iostat</span><span class="p">,</span> <span class="k">end</span> <span class="o">=</span> <span class="mi">1</span><span class="p">)</span> <span class="n">line</span>
+<a name="ln-122"></a>            <span class="n">line_trim</span> <span class="o">=</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">line</span><span class="p">))</span>
+<a name="ln-123"></a>            <span class="n">ilength</span> <span class="o">=</span> <span class="nb">len</span><span class="p">(</span><span class="n">line_trim</span><span class="p">)</span>
+<a name="ln-124"></a>            <span class="k">if</span> <span class="p">((</span><span class="n">ilength</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">))</span> <span class="k">then </span>
+<a name="ln-125"></a><span class="k">               </span><span class="n">ifirst</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-126"></a>               <span class="c">! Read the pair of tokens. The first one is the parameter name, the second is the value.</span>
+<a name="ln-127"></a>               <span class="n">param_name</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line_trim</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span>
+<a name="ln-128"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">param_name</span> <span class="o">==</span> <span class="s1">&#39;&#39;</span><span class="p">)</span> <span class="k">cycle</span> <span class="c">! No parameter name (usually because this line is commented out)</span>
+<a name="ln-129"></a>               <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_name</span><span class="p">)</span>
+<a name="ln-130"></a>               <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-131"></a>               <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line_trim</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span>
+<a name="ln-132"></a>               <span class="k">select case</span> <span class="p">(</span><span class="n">param_name</span><span class="p">)</span>
+<a name="ln-133"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;PARTICLE_OUT&quot;</span><span class="p">)</span>
+<a name="ln-134"></a>                  <span class="n">param</span><span class="p">%</span><span class="n">particle_out</span> <span class="o">=</span> <span class="n">param_value</span>
+<a name="ln-135"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;FRAGMENTATION&quot;</span><span class="p">)</span>
+<a name="ln-136"></a>                  <span class="k">call </span><span class="n">io_toupper</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-137"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;YES&quot;</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">param_value</span> <span class="o">==</span> <span class="s2">&quot;T&quot;</span><span class="p">)</span> <span class="n">self</span><span class="p">%</span><span class="n">lfragmentation</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-138"></a>               <span class="k">case</span> <span class="p">(</span><span class="s2">&quot;GMTINY&quot;</span><span class="p">)</span>
+<a name="ln-139"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Gmtiny</span>
+<a name="ln-140"></a>               <span class="k">case</span><span class="p">(</span><span class="s2">&quot;SEED&quot;</span><span class="p">)</span>
+<a name="ln-141"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">nseeds_from_file</span>
+<a name="ln-142"></a>                  <span class="c">! Because the number of seeds can vary between compilers/systems, we need to make sure we can handle cases in which the input file has a different</span>
+<a name="ln-143"></a>                  <span class="c">! number of seeds than the current system. If the number of seeds in the file is smaller than required, we will use them as a source to fill in the missing elements.</span>
+<a name="ln-144"></a>                  <span class="c">! If the number of seeds in the file is larger than required, we will truncate the seed array.</span>
+<a name="ln-145"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">nseeds_from_file</span> <span class="o">&gt;</span> <span class="n">nseeds</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-146"></a><span class="k">                     </span><span class="n">nseeds</span> <span class="o">=</span> <span class="n">nseeds_from_file</span>
+<a name="ln-147"></a>                     <span class="k">deallocate</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">)</span>
+<a name="ln-148"></a>                     <span class="k">allocate</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(</span><span class="n">nseeds</span><span class="p">))</span>
+<a name="ln-149"></a>                     <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nseeds</span>
+<a name="ln-150"></a>                        <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-151"></a>                        <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span> 
+<a name="ln-152"></a>                        <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-153"></a>                     <span class="k">end do</span>
+<a name="ln-154"></a><span class="k">                  else</span> <span class="c">! Seed array in file is too small</span>
+<a name="ln-155"></a>                     <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nseeds_from_file</span>
+<a name="ln-156"></a>                        <span class="n">ifirst</span> <span class="o">=</span> <span class="n">ilast</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-157"></a>                        <span class="n">param_value</span> <span class="o">=</span> <span class="n">io_get_token</span><span class="p">(</span><span class="n">line</span><span class="p">,</span> <span class="n">ifirst</span><span class="p">,</span> <span class="n">ilast</span><span class="p">,</span> <span class="n">iostat</span><span class="p">)</span> 
+<a name="ln-158"></a>                        <span class="k">read</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-159"></a>                     <span class="k">end do</span>
+<a name="ln-160"></a><span class="k">                     </span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(</span><span class="n">nseeds_from_file</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">nseeds</span><span class="p">)</span> <span class="o">=</span> <span class="p">[(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">-</span> <span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(</span><span class="n">nseeds_from_file</span><span class="p">)</span> <span class="o">+</span> <span class="n">i</span><span class="p">,</span> <span class="n">i</span><span class="o">=</span><span class="n">nseeds_from_file</span><span class="o">+</span><span class="mi">1</span><span class="p">,</span> <span class="n">nseeds</span><span class="p">)]</span>
+<a name="ln-161"></a>                  <span class="k">end if</span>
+<a name="ln-162"></a><span class="k">                  </span><span class="n">seed_set</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-163"></a>               <span class="k">end select</span>
+<a name="ln-164"></a><span class="k">            end if</span>
+<a name="ln-165"></a><span class="k">         end do</span>
+<a name="ln-166"></a><span class="k">         </span><span class="mi">1</span> <span class="k">continue</span>
+<a name="ln-167"></a>
+<a name="ln-168"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;FRAGMENTATION = &quot;</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">lfragmentation</span>
+<a name="ln-169"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lfragmentation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-170"></a><span class="k">            if</span> <span class="p">(</span><span class="n">seed_set</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-171"></a><span class="k">               call </span><span class="nb">random_seed</span><span class="p">(</span><span class="n">put</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">)</span>
+<a name="ln-172"></a>            <span class="k">else</span>
+<a name="ln-173"></a><span class="k">               call </span><span class="nb">random_seed</span><span class="p">(</span><span class="n">get</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">)</span>
+<a name="ln-174"></a>            <span class="k">end if</span>
+<a name="ln-175"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;SEED: N,VAL    = &quot;</span><span class="p">,</span><span class="n">size</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">),</span> <span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(:)</span>
+<a name="ln-176"></a>         <span class="k">end if</span>
+<a name="ln-177"></a>
+<a name="ln-178"></a><span class="k">         if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Gmtiny</span> <span class="o">&lt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-179"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;GMTINY invalid or not set: &quot;</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">Gmtiny</span>
+<a name="ln-180"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-181"></a>            <span class="k">return</span>
+<a name="ln-182"></a><span class="k">         else</span>
+<a name="ln-183"></a><span class="k">            write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;GMTINY          = &quot;</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">Gmtiny</span>   
+<a name="ln-184"></a>         <span class="k">end if</span>
+<a name="ln-185"></a>
+<a name="ln-186"></a><span class="k">         if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">self</span><span class="p">%</span><span class="n">lclose</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-187"></a><span class="k">            write</span><span class="p">(</span><span class="n">iomsg</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;This integrator requires CHK_CLOSE to be enabled.&#39;</span>
+<a name="ln-188"></a>            <span class="n">iostat</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-189"></a>            <span class="k">return</span>
+<a name="ln-190"></a><span class="k">         end if</span>
+<a name="ln-191"></a><span class="k">      end associate</span>
 <a name="ln-192"></a>
-<a name="ln-193"></a><span class="k">      return</span>
-<a name="ln-194"></a><span class="k">   end subroutine </span><span class="n">symba_io_param_writer</span>
-<a name="ln-195"></a>
-<a name="ln-196"></a>
-<a name="ln-197"></a>   <span class="k">module subroutine </span><span class="n">symba_io_read_frame_info</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">form</span><span class="p">,</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-198"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-199"></a>      <span class="c">!!</span>
-<a name="ln-200"></a>      <span class="c">!! Reads a single frame of a particle info data from a file.</span>
-<a name="ln-201"></a>      <span class="k">implicit none</span>
-<a name="ln-202"></a><span class="k">      class</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA particle info object</span>
-<a name="ln-203"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>    <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-204"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-205"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">form</span>  <span class="c">!! Input format code (&quot;XV&quot; or &quot;EL&quot;)</span>
-<a name="ln-206"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">ierr</span>  <span class="c">!! Error code</span>
-<a name="ln-207"></a>
-<a name="ln-208"></a>      <span class="n">ierr</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-209"></a>   <span class="k">end subroutine </span><span class="n">symba_io_read_frame_info</span>
-<a name="ln-210"></a>
-<a name="ln-211"></a>
-<a name="ln-212"></a>   <span class="k">module subroutine </span><span class="n">symba_io_write_discard</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-213"></a>      <span class="k">implicit none</span>
-<a name="ln-214"></a><span class="k">      class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA nbody system object</span>
-<a name="ln-215"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
-<a name="ln-216"></a>      <span class="c">! Internals</span>
-<a name="ln-217"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">LUN</span> <span class="o">=</span> <span class="mi">40</span>
-<a name="ln-218"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">iadd</span><span class="p">,</span> <span class="n">isub</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">ierr</span><span class="p">,</span> <span class="n">nsub</span><span class="p">,</span> <span class="n">nadd</span>
-<a name="ln-219"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">save</span> <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span> 
-<a name="ln-220"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">vh</span>
-<a name="ln-221"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">HDRFMT</span>    <span class="o">=</span> <span class="s1">&#39;(E23.16, 1X, I8, 1X, L1)&#39;</span>
-<a name="ln-222"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">NAMEFMT</span>   <span class="o">=</span> <span class="s1">&#39;(A, 2(1X, I8))&#39;</span>
-<a name="ln-223"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">VECFMT</span>    <span class="o">=</span> <span class="s1">&#39;(3(E23.16, 1X))&#39;</span>
-<a name="ln-224"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">NPLFMT</span>    <span class="o">=</span> <span class="s1">&#39;(I8)&#39;</span>
-<a name="ln-225"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">PLNAMEFMT</span> <span class="o">=</span> <span class="s1">&#39;(I8, 2(1X, E23.16))&#39;</span>
-<a name="ln-226"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">pltemp</span>
+<a name="ln-193"></a><span class="k">      </span><span class="n">iostat</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-194"></a>
+<a name="ln-195"></a>      <span class="k">return</span>
+<a name="ln-196"></a><span class="k">   end subroutine </span><span class="n">symba_io_param_reader</span>
+<a name="ln-197"></a>
+<a name="ln-198"></a>
+<a name="ln-199"></a>   <span class="k">module subroutine </span><span class="n">symba_io_param_writer</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
+<a name="ln-200"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-201"></a>      <span class="c">!!</span>
+<a name="ln-202"></a>      <span class="c">!! Dump integration parameters specific to SyMBA to file and then call the base io_param_writer method.</span>
+<a name="ln-203"></a>      <span class="c">!!</span>
+<a name="ln-204"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine io_dump_param.f90</span>
+<a name="ln-205"></a>      <span class="c">!! Adapted from Martin Duncan&#39;s Swift routine io_dump_param.f</span>
+<a name="ln-206"></a>      <span class="k">implicit none</span>
+<a name="ln-207"></a>      <span class="c">! Arguments</span>
+<a name="ln-208"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span><span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! Collection of SyMBA parameters</span>
+<a name="ln-209"></a>      <span class="kt">integer</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">unit</span>      <span class="c">!! File unit number</span>
+<a name="ln-210"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">iotype</span>    <span class="c">!! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. </span>
+<a name="ln-211"></a>                                                         <span class="c">!!    If you do not include a char-literal-constant, the iotype argument contains only DT.</span>
+<a name="ln-212"></a>      <span class="kt">integer</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">v_list</span><span class="p">(:)</span> <span class="c">!! Not used in this procedure</span>
+<a name="ln-213"></a>      <span class="kt">integer</span><span class="p">,</span>                <span class="k">intent</span><span class="p">(</span><span class="n">out</span><span class="p">)</span>   <span class="kd">::</span> <span class="n">iostat</span>    <span class="c">!! IO status code</span>
+<a name="ln-214"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iomsg</span>     <span class="c">!! Message to pass if iostat /= 0</span>
+<a name="ln-215"></a>      <span class="c">! Internals</span>
+<a name="ln-216"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span> <span class="kd">::</span> <span class="n">Ifmt</span>  <span class="o">=</span> <span class="s1">&#39;(I0)&#39;</span>         <span class="c">!! Format label for integer values</span>
+<a name="ln-217"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span> <span class="kd">::</span> <span class="n">Rfmt</span>  <span class="o">=</span> <span class="s1">&#39;(ES25.17)&#39;</span>    <span class="c">!! Format label for real values </span>
+<a name="ln-218"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span> <span class="kd">::</span> <span class="n">Rarrfmt</span>  <span class="o">=</span> <span class="s1">&#39;(3(ES25.17,1X))&#39;</span>    <span class="c">!! Format label for real values </span>
+<a name="ln-219"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span><span class="k">parameter</span> <span class="kd">::</span> <span class="n">Lfmt</span>  <span class="o">=</span> <span class="s1">&#39;(L1)&#39;</span>         <span class="c">!! Format label for logical values </span>
+<a name="ln-220"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">Afmt</span> <span class="o">=</span> <span class="s1">&#39;(A25,1X,64(:,A25,1X))&#39;</span>
+<a name="ln-221"></a>      <span class="kt">character</span><span class="p">(</span><span class="mi">256</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">param_name</span><span class="p">,</span> <span class="n">param_value</span>
+<a name="ln-222"></a>      <span class="k">type </span><span class="n">character_array</span>
+<a name="ln-223"></a>         <span class="kt">character</span><span class="p">(</span><span class="mi">25</span><span class="p">)</span> <span class="kd">::</span> <span class="k">value</span>
+<a name="ln-224"></a><span class="k">      end type </span><span class="n">character_array</span>
+<a name="ln-225"></a>      <span class="k">type</span><span class="p">(</span><span class="n">character_array</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">param_array</span>
+<a name="ln-226"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
 <a name="ln-227"></a>
-<a name="ln-228"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">mergesub_list</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">mergesub_list</span><span class="p">,</span> <span class="n">mergeadd_list</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">mergeadd_list</span><span class="p">)</span>
-<a name="ln-229"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tp_discards</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">call </span><span class="n">io_write_discard</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-228"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">param</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-229"></a>         <span class="k">call </span><span class="n">io_param_writer</span><span class="p">(</span><span class="n">param</span><span class="p">,</span> <span class="n">unit</span><span class="p">,</span> <span class="n">iotype</span><span class="p">,</span> <span class="n">v_list</span><span class="p">,</span> <span class="n">iostat</span><span class="p">,</span> <span class="n">iomsg</span><span class="p">)</span> 
 <a name="ln-230"></a>
-<a name="ln-231"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">mergesub_list</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-232"></a><span class="k">         select case</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">)</span>
-<a name="ln-233"></a>         <span class="k">case</span><span class="p">(</span><span class="s1">&#39;APPEND&#39;</span><span class="p">)</span>
-<a name="ln-234"></a>            <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">discard_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;OLD&#39;</span><span class="p">,</span> <span class="n">position</span> <span class="o">=</span> <span class="s1">&#39;APPEND&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;FORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-235"></a>         <span class="k">case</span><span class="p">(</span><span class="s1">&#39;NEW&#39;</span><span class="p">,</span> <span class="s1">&#39;REPLACE&#39;</span><span class="p">,</span> <span class="s1">&#39;UNKNOWN&#39;</span><span class="p">)</span>
-<a name="ln-236"></a>            <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">discard_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;FORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
-<a name="ln-237"></a>         <span class="k">case </span><span class="n">default</span>
-<a name="ln-238"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid status code for OUT_STAT: &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">))</span>
-<a name="ln-239"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-240"></a>         <span class="k">end select</span>
-<a name="ln-241"></a><span class="k">         </span><span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-242"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lgr</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-243"></a><span class="k">            call </span><span class="n">mergesub_list</span><span class="p">%</span><span class="n">pv2v</span><span class="p">(</span><span class="n">param</span><span class="p">)</span> 
-<a name="ln-244"></a>            <span class="k">call </span><span class="n">mergeadd_list</span><span class="p">%</span><span class="n">pv2v</span><span class="p">(</span><span class="n">param</span><span class="p">)</span> 
-<a name="ln-245"></a>         <span class="k">end if</span>
-<a name="ln-246"></a>
-<a name="ln-247"></a><span class="k">         write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">HDRFMT</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">lbig_discard</span>
-<a name="ln-248"></a>         <span class="n">iadd</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-249"></a>         <span class="n">isub</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-250"></a>         <span class="k">do while</span> <span class="p">(</span><span class="n">iadd</span> <span class="o">&lt;=</span> <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
-<a name="ln-251"></a>            <span class="n">nadd</span> <span class="o">=</span> <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(</span><span class="n">iadd</span><span class="p">)</span>
-<a name="ln-252"></a>            <span class="n">nsub</span> <span class="o">=</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(</span><span class="n">isub</span><span class="p">)</span>
-<a name="ln-253"></a>            <span class="k">do </span><span class="n">j</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nadd</span>
-<a name="ln-254"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">iadd</span> <span class="o">&lt;=</span> <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-255"></a><span class="k">                  write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">NAMEFMT</span><span class="p">)</span> <span class="n">ADD</span><span class="p">,</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">iadd</span><span class="p">),</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">iadd</span><span class="p">)</span>
-<a name="ln-256"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">VECFMT</span><span class="p">)</span> <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">iadd</span><span class="p">),</span> <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">iadd</span><span class="p">),</span> <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">iadd</span><span class="p">)</span>
-<a name="ln-257"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">VECFMT</span><span class="p">)</span> <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">iadd</span><span class="p">),</span> <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">iadd</span><span class="p">),</span> <span class="n">mergeadd_list</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">iadd</span><span class="p">)</span>
-<a name="ln-258"></a>               <span class="k">else </span>
-<a name="ln-259"></a><span class="k">                  exit</span>
-<a name="ln-260"></a><span class="k">               end if</span>
-<a name="ln-261"></a><span class="k">               </span><span class="n">iadd</span> <span class="o">=</span> <span class="n">iadd</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-262"></a>            <span class="k">end do</span>
-<a name="ln-263"></a><span class="k">            do </span><span class="n">j</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nsub</span>
-<a name="ln-264"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">isub</span> <span class="o">&lt;=</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-265"></a><span class="k">                  write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">NAMEFMT</span><span class="p">)</span> <span class="n">SUB</span><span class="p">,</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">isub</span><span class="p">),</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">isub</span><span class="p">)</span>
-<a name="ln-266"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">VECFMT</span><span class="p">)</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">isub</span><span class="p">),</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">isub</span><span class="p">),</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">isub</span><span class="p">)</span>
-<a name="ln-267"></a>                  <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">VECFMT</span><span class="p">)</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">isub</span><span class="p">),</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">isub</span><span class="p">),</span> <span class="n">mergesub_list</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">isub</span><span class="p">)</span>
-<a name="ln-268"></a>               <span class="k">else</span>
-<a name="ln-269"></a><span class="k">                  exit</span>
-<a name="ln-270"></a><span class="k">               end if</span>
-<a name="ln-271"></a><span class="k">               </span><span class="n">isub</span> <span class="o">=</span> <span class="n">isub</span> <span class="o">+</span> <span class="mi">1</span>
-<a name="ln-272"></a>            <span class="k">end do</span>
-<a name="ln-273"></a><span class="k">         end do</span>
+<a name="ln-231"></a>         <span class="c">! Special handling is required for writing the random number seed array as its size is not known until runtime</span>
+<a name="ln-232"></a>         <span class="c">! For the &quot;SEED&quot; parameter line, the first value will be the size of the seed array and the rest will be the seed array elements</span>
+<a name="ln-233"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;PARTICLE_OUT&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">particle_out</span><span class="p">));</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-234"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;GMTINY&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Rfmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">Gmtiny</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-235"></a>         <span class="k">write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;FRAGMENTATION&quot;</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">param_value</span><span class="p">,</span> <span class="n">Lfmt</span><span class="p">)</span>  <span class="n">param</span><span class="p">%</span><span class="n">lfragmentation</span><span class="p">;</span> <span class="k">write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_value</span><span class="p">)</span>
+<a name="ln-236"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lfragmentation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-237"></a><span class="k">            write</span><span class="p">(</span><span class="n">param_name</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="s2">&quot;SEED&quot;</span>
+<a name="ln-238"></a>            <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">param_array</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">param_array</span><span class="p">)</span>
+<a name="ln-239"></a>            <span class="k">allocate</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="mi">0</span><span class="p">:</span><span class="n">size</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">)))</span>
+<a name="ln-240"></a>            <span class="k">write</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="k">value</span><span class="p">,</span> <span class="n">Ifmt</span><span class="p">)</span> <span class="n">size</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">)</span>
+<a name="ln-241"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">size</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">)</span>
+<a name="ln-242"></a>               <span class="k">write</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="k">value</span><span class="p">,</span> <span class="n">Ifmt</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-243"></a>            <span class="k">end do</span>
+<a name="ln-244"></a><span class="k">            write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">,</span> <span class="n">advance</span><span class="o">=</span><span class="s1">&#39;no&#39;</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_name</span><span class="p">),</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="mi">0</span><span class="p">)%</span><span class="k">value</span><span class="p">)</span>
+<a name="ln-245"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">size</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">)</span>
+<a name="ln-246"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">i</span> <span class="o">&lt;</span> <span class="n">size</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">seed</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-247"></a><span class="k">                  write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">,</span> <span class="n">advance</span><span class="o">=</span><span class="s1">&#39;no&#39;</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="k">value</span><span class="p">)</span>
+<a name="ln-248"></a>               <span class="k">else</span>
+<a name="ln-249"></a><span class="k">                  write</span><span class="p">(</span><span class="n">unit</span><span class="p">,</span> <span class="n">Afmt</span><span class="p">)</span> <span class="nb">adjustl</span><span class="p">(</span><span class="n">param_array</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="k">value</span><span class="p">)</span>
+<a name="ln-250"></a>               <span class="k">end if</span>
+<a name="ln-251"></a><span class="k">            end do</span>
+<a name="ln-252"></a><span class="k">         end if</span>
+<a name="ln-253"></a>
+<a name="ln-254"></a><span class="k">         </span><span class="n">iostat</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-255"></a>      <span class="k">end associate</span>
+<a name="ln-256"></a>
+<a name="ln-257"></a><span class="k">      return</span>
+<a name="ln-258"></a><span class="k">   end subroutine </span><span class="n">symba_io_param_writer</span>
+<a name="ln-259"></a>
+<a name="ln-260"></a>
+<a name="ln-261"></a>   <span class="k">module subroutine </span><span class="n">symba_io_read_particle</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-262"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-263"></a>      <span class="c">!!</span>
+<a name="ln-264"></a>      <span class="c">!! Reads an old particle information file for a restartd run</span>
+<a name="ln-265"></a>      <span class="k">implicit none</span>
+<a name="ln-266"></a><span class="k">      class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! SyMBA nbody system file</span>
+<a name="ln-267"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters with SyMBA extensions</span>
+<a name="ln-268"></a>
+<a name="ln-269"></a>      <span class="c">! Internals</span>
+<a name="ln-270"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">LUN</span> <span class="o">=</span> <span class="mi">22</span>
+<a name="ln-271"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>            <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">ierr</span><span class="p">,</span> <span class="n">id</span><span class="p">,</span> <span class="n">idx</span>
+<a name="ln-272"></a>      <span class="kt">logical</span>                 <span class="kd">::</span> <span class="n">lmatch</span>  
+<a name="ln-273"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">)</span> <span class="kd">::</span> <span class="n">tmpinfo</span>
 <a name="ln-274"></a>
-<a name="ln-275"></a><span class="k">         close</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span>
-<a name="ln-276"></a>      <span class="k">end associate</span>
-<a name="ln-277"></a>
-<a name="ln-278"></a><span class="k">      return</span>
-<a name="ln-279"></a><span class="k">   end subroutine </span><span class="n">symba_io_write_discard</span>
-<a name="ln-280"></a>
+<a name="ln-275"></a>      <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">particle_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;OLD&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;UNFORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-276"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-277"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error:&quot;</span>
+<a name="ln-278"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   unable to open binary particle file for reading&quot;</span>
+<a name="ln-279"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-280"></a>      <span class="k">end if</span>
 <a name="ln-281"></a>
-<a name="ln-282"></a>   <span class="k">module subroutine </span><span class="n">symba_io_write_frame_info</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">iu</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-283"></a>      <span class="k">implicit none</span>
-<a name="ln-284"></a><span class="k">      class</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA particle info object</span>
-<a name="ln-285"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">iu</span>      <span class="c">!! Unit number for the output file to write frame to</span>
-<a name="ln-286"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>   <span class="c">!! Current run configuration parameters </span>
-<a name="ln-287"></a>   <span class="k">end subroutine </span><span class="n">symba_io_write_frame_info</span> 
-<a name="ln-288"></a>
-<a name="ln-289"></a><span class="k">end submodule </span><span class="n">s_symba_io</span>
+<a name="ln-282"></a><span class="k">      select type</span><span class="p">(</span><span class="n">cb</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-283"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_cb</span><span class="p">)</span>
+<a name="ln-284"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-285"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-286"></a>            <span class="k">select type</span><span class="p">(</span><span class="n">tp</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">tp</span><span class="p">)</span>
+<a name="ln-287"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
+<a name="ln-288"></a>               <span class="k">do </span>
+<a name="ln-289"></a><span class="k">                  </span><span class="n">lmatch</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-290"></a>                  <span class="k">read</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">iostat</span><span class="o">=</span><span class="n">ierr</span><span class="p">)</span> <span class="n">id</span>
+<a name="ln-291"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span><span class="mi">0</span><span class="p">)</span> <span class="k">exit</span>
+<a name="ln-292"></a>
+<a name="ln-293"></a><span class="k">                  if</span> <span class="p">(</span><span class="n">idx</span> <span class="o">==</span> <span class="n">cb</span><span class="p">%</span><span class="n">id</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-294"></a><span class="k">                     read</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span> <span class="n">cb</span><span class="p">%</span><span class="n">info</span>
+<a name="ln-295"></a>                     <span class="n">lmatch</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-296"></a>                  <span class="k">else </span>
+<a name="ln-297"></a><span class="k">                     if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-298"></a><span class="k">                        </span><span class="n">idx</span> <span class="o">=</span> <span class="nb">findloc</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">id</span><span class="p">(:),</span> <span class="n">id</span><span class="p">,</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-299"></a>                        <span class="k">if</span> <span class="p">(</span><span class="n">idx</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-300"></a><span class="k">                           read</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span> <span class="n">pl</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">idx</span><span class="p">)</span>
+<a name="ln-301"></a>                           <span class="n">lmatch</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-302"></a>                        <span class="k">end if</span>
+<a name="ln-303"></a><span class="k">                     end if</span>
+<a name="ln-304"></a><span class="k">                     if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lmatch</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="n">tp</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-305"></a><span class="k">                        </span><span class="n">idx</span> <span class="o">=</span> <span class="nb">findloc</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">id</span><span class="p">(:),</span> <span class="n">id</span><span class="p">,</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">1</span><span class="p">)</span>
+<a name="ln-306"></a>                        <span class="k">if</span> <span class="p">(</span><span class="n">idx</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-307"></a><span class="k">                           read</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span> <span class="n">tp</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">idx</span><span class="p">)</span>
+<a name="ln-308"></a>                           <span class="n">lmatch</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span>
+<a name="ln-309"></a>                        <span class="k">end if</span>
+<a name="ln-310"></a><span class="k">                     end if</span>
+<a name="ln-311"></a><span class="k">                  end if</span>
+<a name="ln-312"></a><span class="k">                  if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lmatch</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-313"></a><span class="k">                     write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Particle id &#39;</span><span class="p">,</span><span class="n">id</span><span class="p">,</span><span class="s1">&#39; not found. Skipping&#39;</span>
+<a name="ln-314"></a>                     <span class="k">read</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span> <span class="n">tmpinfo</span>
+<a name="ln-315"></a>                  <span class="k">end if</span>
+<a name="ln-316"></a><span class="k">               end do</span>
+<a name="ln-317"></a><span class="k">               close</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-318"></a>            <span class="k">end select</span>
+<a name="ln-319"></a><span class="k">         end select</span>
+<a name="ln-320"></a><span class="k">      end select</span>
+<a name="ln-321"></a><span class="k">      if</span> <span class="p">(</span><span class="n">ierr</span> <span class="o">/=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-322"></a><span class="k">         write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error:&quot;</span>
+<a name="ln-323"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   unable to close particle output file&quot;</span>
+<a name="ln-324"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-325"></a>      <span class="k">end if</span>
+<a name="ln-326"></a>
+<a name="ln-327"></a><span class="k">      return</span>
+<a name="ln-328"></a><span class="k">   end subroutine </span><span class="n">symba_io_read_particle</span>
+<a name="ln-329"></a>
+<a name="ln-330"></a>
+<a name="ln-331"></a>   <span class="k">module subroutine </span><span class="n">symba_io_write_discard</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-332"></a>      <span class="k">implicit none</span>
+<a name="ln-333"></a><span class="k">      class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-334"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters </span>
+<a name="ln-335"></a>      <span class="c">! Internals</span>
+<a name="ln-336"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">parameter</span>   <span class="kd">::</span> <span class="n">LUN</span> <span class="o">=</span> <span class="mi">40</span>
+<a name="ln-337"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">iadd</span><span class="p">,</span> <span class="n">isub</span><span class="p">,</span> <span class="n">j</span><span class="p">,</span> <span class="n">ierr</span><span class="p">,</span> <span class="n">nsub</span><span class="p">,</span> <span class="n">nadd</span>
+<a name="ln-338"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">save</span> <span class="kd">::</span> <span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">true</span><span class="p">.</span> 
+<a name="ln-339"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">vh</span>
+<a name="ln-340"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">HDRFMT</span>    <span class="o">=</span> <span class="s1">&#39;(E23.16, 1X, I8, 1X, L1)&#39;</span>
+<a name="ln-341"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">NAMEFMT</span>   <span class="o">=</span> <span class="s1">&#39;(A, 2(1X, I8))&#39;</span>
+<a name="ln-342"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">VECFMT</span>    <span class="o">=</span> <span class="s1">&#39;(3(E23.16, 1X))&#39;</span>
+<a name="ln-343"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">NPLFMT</span>    <span class="o">=</span> <span class="s1">&#39;(I8)&#39;</span>
+<a name="ln-344"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span> <span class="k">parameter</span> <span class="kd">::</span> <span class="n">PLNAMEFMT</span> <span class="o">=</span> <span class="s1">&#39;(I8, 2(1X, E23.16))&#39;</span>
+<a name="ln-345"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">pltemp</span>
+<a name="ln-346"></a>
+<a name="ln-347"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">pl_adds</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl_adds</span><span class="p">)</span>
+<a name="ln-348"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tp_discards</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">call </span><span class="n">io_write_discard</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-349"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">pl_discards</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl_discards</span><span class="p">)</span>
+<a name="ln-350"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_merger</span><span class="p">)</span>
+<a name="ln-351"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">pl_discards</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-352"></a><span class="k">            select case</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">)</span>
+<a name="ln-353"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;APPEND&#39;</span><span class="p">)</span>
+<a name="ln-354"></a>               <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">discard_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="s1">&#39;OLD&#39;</span><span class="p">,</span> <span class="n">position</span> <span class="o">=</span> <span class="s1">&#39;APPEND&#39;</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;FORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-355"></a>            <span class="k">case</span><span class="p">(</span><span class="s1">&#39;NEW&#39;</span><span class="p">,</span> <span class="s1">&#39;REPLACE&#39;</span><span class="p">,</span> <span class="s1">&#39;UNKNOWN&#39;</span><span class="p">)</span>
+<a name="ln-356"></a>               <span class="k">open</span><span class="p">(</span><span class="n">unit</span> <span class="o">=</span> <span class="n">LUN</span><span class="p">,</span> <span class="k">file</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">discard_out</span><span class="p">,</span> <span class="n">status</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">,</span> <span class="n">form</span> <span class="o">=</span> <span class="s1">&#39;FORMATTED&#39;</span><span class="p">,</span> <span class="n">iostat</span> <span class="o">=</span> <span class="n">ierr</span><span class="p">)</span>
+<a name="ln-357"></a>            <span class="k">case </span><span class="n">default</span>
+<a name="ln-358"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Invalid status code for OUT_STAT: &#39;</span><span class="p">,</span><span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">out_stat</span><span class="p">))</span>
+<a name="ln-359"></a>               <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-360"></a>            <span class="k">end select</span>
+<a name="ln-361"></a><span class="k">            </span><span class="n">lfirst</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-362"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lgr</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-363"></a><span class="k">               call </span><span class="n">pl_discards</span><span class="p">%</span><span class="n">pv2v</span><span class="p">(</span><span class="n">param</span><span class="p">)</span> 
+<a name="ln-364"></a>               <span class="k">call </span><span class="n">pl_adds</span><span class="p">%</span><span class="n">pv2v</span><span class="p">(</span><span class="n">param</span><span class="p">)</span> 
+<a name="ln-365"></a>            <span class="k">end if</span>
+<a name="ln-366"></a>
+<a name="ln-367"></a><span class="k">            write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">HDRFMT</span><span class="p">)</span> <span class="n">param</span><span class="p">%</span><span class="n">t</span><span class="p">,</span> <span class="n">pl_discards</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">param</span><span class="p">%</span><span class="n">lbig_discard</span>
+<a name="ln-368"></a>            <span class="n">iadd</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-369"></a>            <span class="n">isub</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-370"></a>            <span class="k">do while</span> <span class="p">(</span><span class="n">iadd</span> <span class="o">&lt;=</span> <span class="n">pl_adds</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-371"></a>               <span class="n">nadd</span> <span class="o">=</span> <span class="n">pl_adds</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(</span><span class="n">iadd</span><span class="p">)</span>
+<a name="ln-372"></a>               <span class="n">nsub</span> <span class="o">=</span> <span class="n">pl_discards</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(</span><span class="n">isub</span><span class="p">)</span>
+<a name="ln-373"></a>               <span class="k">do </span><span class="n">j</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nadd</span>
+<a name="ln-374"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">iadd</span> <span class="o">&lt;=</span> <span class="n">pl_adds</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-375"></a><span class="k">                     write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">NAMEFMT</span><span class="p">)</span> <span class="n">ADD</span><span class="p">,</span> <span class="n">pl_adds</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">iadd</span><span class="p">),</span> <span class="n">pl_adds</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">iadd</span><span class="p">)</span>
+<a name="ln-376"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">VECFMT</span><span class="p">)</span> <span class="n">pl_adds</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">iadd</span><span class="p">),</span> <span class="n">pl_adds</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">iadd</span><span class="p">),</span> <span class="n">pl_adds</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">iadd</span><span class="p">)</span>
+<a name="ln-377"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">VECFMT</span><span class="p">)</span> <span class="n">pl_adds</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">iadd</span><span class="p">),</span> <span class="n">pl_adds</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">iadd</span><span class="p">),</span> <span class="n">pl_adds</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">iadd</span><span class="p">)</span>
+<a name="ln-378"></a>                  <span class="k">else </span>
+<a name="ln-379"></a><span class="k">                     exit</span>
+<a name="ln-380"></a><span class="k">                  end if</span>
+<a name="ln-381"></a><span class="k">                  </span><span class="n">iadd</span> <span class="o">=</span> <span class="n">iadd</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-382"></a>               <span class="k">end do</span>
+<a name="ln-383"></a><span class="k">               do </span><span class="n">j</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">nsub</span>
+<a name="ln-384"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">isub</span> <span class="o">&lt;=</span> <span class="n">pl_discards</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-385"></a><span class="k">                     write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">NAMEFMT</span><span class="p">)</span> <span class="n">SUB</span><span class="p">,</span> <span class="n">pl_discards</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">isub</span><span class="p">),</span> <span class="n">pl_discards</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">isub</span><span class="p">)</span>
+<a name="ln-386"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">VECFMT</span><span class="p">)</span> <span class="n">pl_discards</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">isub</span><span class="p">),</span> <span class="n">pl_discards</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">isub</span><span class="p">),</span> <span class="n">pl_discards</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">isub</span><span class="p">)</span>
+<a name="ln-387"></a>                     <span class="k">write</span><span class="p">(</span><span class="n">LUN</span><span class="p">,</span> <span class="n">VECFMT</span><span class="p">)</span> <span class="n">pl_discards</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">isub</span><span class="p">),</span> <span class="n">pl_discards</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">isub</span><span class="p">),</span> <span class="n">pl_discards</span><span class="p">%</span><span class="n">vh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">isub</span><span class="p">)</span>
+<a name="ln-388"></a>                  <span class="k">else</span>
+<a name="ln-389"></a><span class="k">                     exit</span>
+<a name="ln-390"></a><span class="k">                  end if</span>
+<a name="ln-391"></a><span class="k">                  </span><span class="n">isub</span> <span class="o">=</span> <span class="n">isub</span> <span class="o">+</span> <span class="mi">1</span>
+<a name="ln-392"></a>               <span class="k">end do</span>
+<a name="ln-393"></a><span class="k">            end do</span>
+<a name="ln-394"></a>
+<a name="ln-395"></a><span class="k">            close</span><span class="p">(</span><span class="n">LUN</span><span class="p">)</span>
+<a name="ln-396"></a>         <span class="k">end select</span>
+<a name="ln-397"></a><span class="k">      end associate</span>
+<a name="ln-398"></a>
+<a name="ln-399"></a><span class="k">      return</span>
+<a name="ln-400"></a><span class="k">   end subroutine </span><span class="n">symba_io_write_discard</span>
+<a name="ln-401"></a>
+<a name="ln-402"></a><span class="k">end submodule </span><span class="n">s_symba_io</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/symba_kick.f90.html b/docs/sourcefile/symba_kick.f90.html
index dfcb77d09..95ac4aa8e 100644
--- a/docs/sourcefile/symba_kick.f90.html
+++ b/docs/sourcefile/symba_kick.f90.html
@@ -226,246 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~symba_kick.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilesymba_kickf90EfferentGraph" width="641pt" height="218pt"
- viewBox="0.00 0.00 641.00 217.79" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 304.17)">
+<svg id="sourcefilesymba_kickf90EfferentGraph" width="641pt" height="187pt"
+ viewBox="0.00 0.00 641.00 186.68" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 260.15)">
 <title>sourcefile~~symba_kick.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-304.17 903,-304.17 903,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 903,-260.15 903,4 -4,4"/>
 <!-- sourcefile~symba_kick.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~symba_kick.f90</title>
-<polygon fill="none" stroke="black" points="899,-128.89 813,-128.89 813,-104.89 899,-104.89 899,-128.89"/>
-<text text-anchor="middle" x="856" y="-114.49" font-family="Helvetica,sans-Serif" font-size="10.50">symba_kick.f90</text>
+<polygon fill="none" stroke="black" points="899,-165 813,-165 813,-141 899,-141 899,-165"/>
+<text text-anchor="middle" x="856" y="-150.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_kick.f90</text>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-108.89 572,-108.89 572,-84.89 675,-84.89 675,-108.89"/>
-<text text-anchor="middle" x="623.5" y="-94.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-145 711,-145 711,-121 777,-121 777,-145"/>
+<text text-anchor="middle" x="744" y="-130.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.99,-113.24C777.2,-110.14 725.31,-105.63 685.04,-102.14"/>
-<polygon fill="#000000" stroke="#000000" points="685.33,-98.65 675.06,-101.27 684.72,-105.63 685.33,-98.65"/>
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.79,-145.32C804.34,-143.79 795.48,-142.18 787.04,-140.64"/>
+<polygon fill="#000000" stroke="#000000" points="787.48,-137.17 777.02,-138.82 786.23,-144.05 787.48,-137.17"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-148.89 711,-148.89 711,-124.89 777,-124.89 777,-148.89"/>
-<text text-anchor="middle" x="744" y="-134.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-185 572,-185 572,-161 675,-161 675,-185"/>
+<text text-anchor="middle" x="623.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.79,-124.56C804.34,-126.1 795.48,-127.71 787.04,-129.24"/>
-<polygon fill="#000000" stroke="#000000" points="786.23,-125.83 777.02,-131.07 787.48,-132.72 786.23,-125.83"/>
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.99,-156.65C777.2,-159.75 725.31,-164.25 685.04,-167.75"/>
+<polygon fill="#000000" stroke="#000000" points="684.72,-164.26 675.06,-168.61 685.33,-171.23 684.72,-164.26"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-143.82C698.36,-148.07 683.7,-153.02 670.06,-157.62"/>
+<polygon fill="#000000" stroke="#000000" points="668.71,-154.38 660.35,-160.9 670.95,-161.02 668.71,-154.38"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-62.89 143,-62.89 143,-38.89 250,-38.89 250,-62.89"/>
-<text text-anchor="middle" x="196.5" y="-48.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-63 142,-63 142,-39 260,-39 260,-63"/>
+<text text-anchor="middle" x="201" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C307.66,-13.37 266.69,-25.26 237.42,-35.44"/>
-<polygon fill="#000000" stroke="#000000" points="236.21,-32.16 227.97,-38.81 238.56,-38.75 236.21,-32.16"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C323.66,-54.55 295.23,-54.56 270.29,-54.01"/>
+<polygon fill="#000000" stroke="#000000" points="270.28,-50.51 260.19,-53.76 270.1,-57.51 270.28,-50.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C430.54,-32.77 411.84,-49.38 351.5,-53"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178.89 0,-178.89 0,-154.89 106,-154.89 106,-178.89"/>
-<text text-anchor="middle" x="53" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-185 441.5,-185 441.5,-161 535.5,-161 535.5,-185"/>
+<text text-anchor="middle" x="488.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-10.89C171.8,-19.55 161.77,-14.21 142,-29.89 102.57,-61.16 75.43,-115.18 62.55,-145.2"/>
-<polygon fill="#000000" stroke="#000000" points="59.19,-144.16 58.59,-154.74 65.66,-146.84 59.19,-144.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.07,-84.82C557.22,-59.62 446.24,-4.28 347,-10.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C279.46,-9.33 259.07,11.61 197.5,-10.89"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-145.86 523.02,-157"/>
+<polygon fill="#000000" stroke="#000000" points="521.61,-153.79 513.84,-161 524.41,-160.21 521.61,-153.79"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-178.89 441,-178.89 441,-154.89 536,-154.89 536,-178.89"/>
-<text text-anchor="middle" x="488.5" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.64,-108.92C578.13,-120.24 545.72,-137.3 521.62,-149.98"/>
-<polygon fill="#000000" stroke="#000000" points="519.73,-147.02 512.51,-154.78 522.99,-153.22 519.73,-147.02"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C575.46,-133 577.26,-94.6 536,-72 516.42,-61.28 510.54,-60.47 489.5,-53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-133C686.98,-133 653.71,-133 624.5,-133"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C460.62,-43.46 430.28,-34.17 405.08,-26.85"/>
+<polygon fill="#000000" stroke="#000000" points="405.91,-23.45 395.34,-24.05 403.98,-30.18 405.91,-23.45"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-98.89 441.5,-98.89 441.5,-74.89 535.5,-74.89 535.5,-98.89"/>
-<text text-anchor="middle" x="488.5" y="-84.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-105 441,-105 441,-81 536,-81 536,-105"/>
+<text text-anchor="middle" x="488.5" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-93.08C563.29,-92.44 554.37,-91.77 545.69,-91.11"/>
-<polygon fill="#000000" stroke="#000000" points="545.89,-87.62 535.65,-90.36 545.36,-94.6 545.89,-87.62"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-126.06C698.36,-121.82 683.7,-116.87 670.06,-112.27"/>
-<polygon fill="#000000" stroke="#000000" points="670.95,-108.87 660.35,-108.99 668.71,-115.5 670.95,-108.87"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C481.59,-126.04 335.09,-87.34 252.63,-65.5"/>
-<polygon fill="#000000" stroke="#000000" points="253.47,-62.1 242.9,-62.93 251.67,-68.87 253.47,-62.1"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C562.9,-151.46 548.71,-135.12 489.5,-126.89"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C364.33,-286.8 322.63,-320.54 197.5,-284.89"/>
-</g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C597.35,-148.82 569.75,-152.68 546.24,-156.5"/>
-<polygon fill="#000000" stroke="#000000" points="545.38,-153.09 536.09,-158.18 546.53,-160 545.38,-153.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-120.14 523.02,-109"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-105.79 513.84,-105 521.61,-112.21 524.41,-105.79"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.82,-139.74C686.99,-141.81 653.73,-144.65 624.5,-146.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C611.89,-147.7 557.94,-121.61 522.09,-103.57"/>
-<polygon fill="#000000" stroke="#000000" points="523.46,-100.35 512.96,-98.96 520.3,-106.59 523.46,-100.35"/>
-</g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-218.89 142,-218.89 142,-194.89 251,-194.89 251,-218.89"/>
-<text text-anchor="middle" x="196.5" y="-204.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-183 147.5,-183 147.5,-159 254.5,-159 254.5,-183"/>
+<text text-anchor="middle" x="201" y="-168.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C451.51,-256.57 442.32,-230.12 405,-223.89 357.18,-215.9 302.51,-211.62 261.29,-209.35"/>
-<polygon fill="#000000" stroke="#000000" points="261.28,-205.84 251.11,-208.81 260.91,-212.83 261.28,-205.84"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C549.29,-152.5 559.01,-221.23 489.5,-244.89"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C598.52,-133 591.64,-138.24 572,-152 551.86,-166.1 558.34,-183.73 536,-194 439.06,-238.59 309.4,-207.4 243.79,-186.19"/>
+<polygon fill="#000000" stroke="#000000" points="244.8,-182.83 234.21,-183.01 242.6,-189.48 244.8,-182.83"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_node9" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-138.89 299,-138.89 299,-114.89 393,-114.89 393,-138.89"/>
-<text text-anchor="middle" x="346" y="-124.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-143 303.5,-143 303.5,-119 397.5,-119 397.5,-143"/>
+<text text-anchor="middle" x="350.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge13" class="edge">
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C460.02,-122.92 429.2,-122.48 403.45,-123.22"/>
-<polygon fill="#000000" stroke="#000000" points="402.98,-119.73 393.11,-123.58 403.23,-126.73 402.98,-119.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C548.24,-133 462.54,-132.24 407.73,-131.66"/>
+<polygon fill="#000000" stroke="#000000" points="407.57,-128.15 397.53,-131.55 407.49,-135.15 407.57,-128.15"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-256.89 287,-256.89 287,-232.89 405,-232.89 405,-256.89"/>
-<text text-anchor="middle" x="346" y="-242.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_kick.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-103 0,-103 0,-79 106,-79 106,-103"/>
+<text text-anchor="middle" x="53" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C464.66,-252.3 438.62,-254.02 415.2,-253.31"/>
-<polygon fill="#000000" stroke="#000000" points="415.15,-249.81 405,-252.86 414.83,-256.8 415.15,-249.81"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-91C172.55,-89.01 142.12,-88.71 116.17,-89.02"/>
+<polygon fill="#000000" stroke="#000000" points="116.04,-85.53 106.1,-89.18 116.15,-92.52 116.04,-85.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C281.93,-57.05 269.52,-95.89 202,-91"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.62,-63.08C155.83,-83.41 105.88,-124.36 76.67,-148.3"/>
-<polygon fill="#000000" stroke="#000000" points="74.19,-145.81 68.68,-154.86 78.63,-151.22 74.19,-145.81"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-173C563.29,-173 554.37,-173 545.69,-173"/>
+<polygon fill="#000000" stroke="#000000" points="545.65,-169.5 535.65,-173 545.65,-176.5 545.65,-169.5"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.98,-164.99C383.64,-163.08 283.28,-161.18 197.5,-166.89"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-160.94C589.52,-156.71 580.27,-151.82 572,-147 552.53,-135.66 531.27,-121.7 515.21,-110.82"/>
+<polygon fill="#000000" stroke="#000000" points="517.1,-107.87 506.87,-105.13 513.16,-113.66 517.1,-107.87"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-154.89C430.89,-150.77 414.54,-146.11 399.37,-141.8"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-138.39 389.61,-139.02 398.27,-145.12 400.19,-138.39"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C300.24,-244.52 251.15,-211.17 223.87,-189.63"/>
+<polygon fill="#000000" stroke="#000000" points="225.78,-186.67 215.8,-183.1 221.37,-192.11 225.78,-186.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.61,-185.12C591.15,-197.81 563.34,-217.22 536,-227 458.15,-254.87 433.49,-261.78 351.5,-251"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C254.02,-242.29 222.95,-243.38 142,-192 109.38,-171.3 82.04,-134.94 66.86,-111.95"/>
+<polygon fill="#000000" stroke="#000000" points="69.65,-109.82 61.3,-103.29 63.76,-113.6 69.65,-109.82"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-63C140.96,-67.17 123.7,-71.9 107.75,-76.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-72.92 98.03,-78.94 108.6,-79.67 106.75,-72.92"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge16" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C317.58,-43.61 286.76,-43.19 260.42,-44.45"/>
-<polygon fill="#000000" stroke="#000000" points="259.96,-40.97 250.18,-45.03 260.36,-47.96 259.96,-40.97"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C321.96,-167.18 291.24,-166.6 265,-167.2"/>
+<polygon fill="#000000" stroke="#000000" points="264.7,-163.7 254.81,-167.49 264.9,-170.7 264.7,-163.7"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.53,-160.96C433.45,-156.31 416.02,-150.93 400.14,-146.02"/>
+<polygon fill="#000000" stroke="#000000" points="401.07,-142.64 390.48,-143.04 399,-149.33 401.07,-142.64"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.1,-74.85C421.06,-66.47 381.99,-55.62 347,-48.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C278.52,-36.09 261.08,12.35 197.5,-10.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C324.51,-167.53 318.63,-163.17 296,-152 251.34,-129.96 251.67,-94.59 202,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.33,-175.13C414.91,-175.65 381.2,-175.12 351.5,-171"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.87,-9.2C253,-8.7 192,-11.96 142,-30 116.3,-39.27 91.11,-58 74.31,-72.27"/>
+<polygon fill="#000000" stroke="#000000" points="72,-69.64 66.77,-78.86 76.61,-74.92 72,-69.64"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-98.89C430.89,-103 414.54,-107.66 399.37,-111.98"/>
-<polygon fill="#000000" stroke="#000000" points="398.27,-108.65 389.61,-114.76 400.19,-115.38 398.27,-108.65"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.47,-105.02C431.82,-108.56 417.83,-112.47 404.63,-116.16"/>
+<polygon fill="#000000" stroke="#000000" points="403.41,-112.86 394.72,-118.92 405.29,-119.6 403.41,-112.86"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-194.89C138.49,-190.77 122.02,-186.11 106.74,-181.8"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-178.37 96.91,-179.02 105.58,-185.11 107.49,-178.37"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M177.83,-158.85C153.03,-145.26 112.7,-123.16 84.83,-107.9"/>
+<polygon fill="#000000" stroke="#000000" points="86.36,-104.74 75.9,-103 82.99,-110.88 86.36,-104.74"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge23" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.74,-114.82C307.21,-110.59 296.57,-105.69 287,-100.89 266.6,-90.64 244.18,-78.11 226.88,-68.16"/>
-<polygon fill="#000000" stroke="#000000" points="228.25,-64.91 217.84,-62.93 224.74,-70.97 228.25,-64.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-143C289.86,-147.17 272.41,-151.9 256.31,-156.27"/>
+<polygon fill="#000000" stroke="#000000" points="255.21,-152.94 246.48,-158.94 257.05,-159.7 255.21,-152.94"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-166.89C169.66,-168.61 141.1,-168.91 116.44,-168.67"/>
-<polygon fill="#000000" stroke="#000000" points="116.18,-165.17 106.14,-168.54 116.09,-172.17 116.18,-165.17"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-138.97C285.12,-149.7 239.06,-164.12 197.5,-166.89"/>
-</g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_kick.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-284.89C139.78,-269.01 92.08,-216.53 68.94,-187.19"/>
-<polygon fill="#000000" stroke="#000000" points="71.69,-185.03 62.82,-179.24 66.14,-189.3 71.69,-185.03"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.87,-257C278.48,-270.93 219.44,-291.14 197.5,-284.89"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.03,-118.95C289.62,-108.24 243.56,-93.84 202,-91"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/symba_setup.f90.html b/docs/sourcefile/symba_setup.f90.html
index 6f882f865..a3f97fa8a 100644
--- a/docs/sourcefile/symba_setup.f90.html
+++ b/docs/sourcefile/symba_setup.f90.html
@@ -134,7 +134,7 @@ <h1>symba_setup.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.9% of total for source files.">113 statements</a>
+    title=" 1.2% of total for source files.">164 statements</a>
      </li> 
      
      
@@ -226,246 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~symba_setup.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilesymba_setupf90EfferentGraph" width="641pt" height="216pt"
- viewBox="0.00 0.00 641.00 215.89" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 304.17)">
+<svg id="sourcefilesymba_setupf90EfferentGraph" width="641pt" height="185pt"
+ viewBox="0.00 0.00 641.00 185.05" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 260.15)">
 <title>sourcefile~~symba_setup.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-304.17 911,-304.17 911,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 911,-260.15 911,4 -4,4"/>
 <!-- sourcefile~symba_setup.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~symba_setup.f90</title>
-<polygon fill="none" stroke="black" points="907,-128.89 813,-128.89 813,-104.89 907,-104.89 907,-128.89"/>
-<text text-anchor="middle" x="860" y="-114.49" font-family="Helvetica,sans-Serif" font-size="10.50">symba_setup.f90</text>
+<polygon fill="none" stroke="black" points="907,-165 813,-165 813,-141 907,-141 907,-165"/>
+<text text-anchor="middle" x="860" y="-150.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_setup.f90</text>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-108.89 572,-108.89 572,-84.89 675,-84.89 675,-108.89"/>
-<text text-anchor="middle" x="623.5" y="-94.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-145 711,-145 711,-121 777,-121 777,-145"/>
+<text text-anchor="middle" x="744" y="-130.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.95,-112.96C776.51,-109.85 725.3,-105.48 685.45,-102.09"/>
-<polygon fill="#000000" stroke="#000000" points="685.59,-98.58 675.33,-101.22 684.99,-105.56 685.59,-98.58"/>
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.96,-144.92C804.44,-143.43 795.57,-141.87 787.17,-140.4"/>
+<polygon fill="#000000" stroke="#000000" points="787.66,-136.93 777.21,-138.65 786.45,-143.83 787.66,-136.93"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-148.89 711,-148.89 711,-124.89 777,-124.89 777,-148.89"/>
-<text text-anchor="middle" x="744" y="-134.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-185 572,-185 572,-161 675,-161 675,-185"/>
+<text text-anchor="middle" x="623.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.96,-124.96C804.44,-126.46 795.57,-128.01 787.17,-129.49"/>
-<polygon fill="#000000" stroke="#000000" points="786.45,-126.06 777.21,-131.24 787.66,-132.96 786.45,-126.06"/>
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.95,-156.93C776.51,-160.04 725.3,-164.4 685.45,-167.8"/>
+<polygon fill="#000000" stroke="#000000" points="684.99,-164.33 675.33,-168.67 685.59,-171.3 684.99,-164.33"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-143.82C698.36,-148.07 683.7,-153.02 670.06,-157.62"/>
+<polygon fill="#000000" stroke="#000000" points="668.71,-154.38 660.35,-160.9 670.95,-161.02 668.71,-154.38"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-62.89 143,-62.89 143,-38.89 250,-38.89 250,-62.89"/>
-<text text-anchor="middle" x="196.5" y="-48.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-63 142,-63 142,-39 260,-39 260,-63"/>
+<text text-anchor="middle" x="201" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C307.66,-13.37 266.69,-25.26 237.42,-35.44"/>
-<polygon fill="#000000" stroke="#000000" points="236.21,-32.16 227.97,-38.81 238.56,-38.75 236.21,-32.16"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C323.66,-54.55 295.23,-54.56 270.29,-54.01"/>
+<polygon fill="#000000" stroke="#000000" points="270.28,-50.51 260.19,-53.76 270.1,-57.51 270.28,-50.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C430.54,-32.77 411.84,-49.38 351.5,-53"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178.89 0,-178.89 0,-154.89 106,-154.89 106,-178.89"/>
-<text text-anchor="middle" x="53" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-185 441.5,-185 441.5,-161 535.5,-161 535.5,-185"/>
+<text text-anchor="middle" x="488.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-10.89C171.8,-19.55 161.77,-14.21 142,-29.89 102.57,-61.16 75.43,-115.18 62.55,-145.2"/>
-<polygon fill="#000000" stroke="#000000" points="59.19,-144.16 58.59,-154.74 65.66,-146.84 59.19,-144.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.07,-84.82C557.22,-59.62 446.24,-4.28 347,-10.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C279.46,-9.33 259.07,11.61 197.5,-10.89"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-145.86 523.02,-157"/>
+<polygon fill="#000000" stroke="#000000" points="521.61,-153.79 513.84,-161 524.41,-160.21 521.61,-153.79"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-178.89 441,-178.89 441,-154.89 536,-154.89 536,-178.89"/>
-<text text-anchor="middle" x="488.5" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.64,-108.92C578.13,-120.24 545.72,-137.3 521.62,-149.98"/>
-<polygon fill="#000000" stroke="#000000" points="519.73,-147.02 512.51,-154.78 522.99,-153.22 519.73,-147.02"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C575.46,-133 577.26,-94.6 536,-72 516.42,-61.28 510.54,-60.47 489.5,-53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-133C686.98,-133 653.71,-133 624.5,-133"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C460.62,-43.46 430.28,-34.17 405.08,-26.85"/>
+<polygon fill="#000000" stroke="#000000" points="405.91,-23.45 395.34,-24.05 403.98,-30.18 405.91,-23.45"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-98.89 441.5,-98.89 441.5,-74.89 535.5,-74.89 535.5,-98.89"/>
-<text text-anchor="middle" x="488.5" y="-84.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-105 441,-105 441,-81 536,-81 536,-105"/>
+<text text-anchor="middle" x="488.5" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-93.08C563.29,-92.44 554.37,-91.77 545.69,-91.11"/>
-<polygon fill="#000000" stroke="#000000" points="545.89,-87.62 535.65,-90.36 545.36,-94.6 545.89,-87.62"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-126.06C698.36,-121.82 683.7,-116.87 670.06,-112.27"/>
-<polygon fill="#000000" stroke="#000000" points="670.95,-108.87 660.35,-108.99 668.71,-115.5 670.95,-108.87"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C481.59,-126.04 335.09,-87.34 252.63,-65.5"/>
-<polygon fill="#000000" stroke="#000000" points="253.47,-62.1 242.9,-62.93 251.67,-68.87 253.47,-62.1"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C562.9,-151.46 548.71,-135.12 489.5,-126.89"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C364.33,-286.8 322.63,-320.54 197.5,-284.89"/>
-</g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C597.35,-148.82 569.75,-152.68 546.24,-156.5"/>
-<polygon fill="#000000" stroke="#000000" points="545.38,-153.09 536.09,-158.18 546.53,-160 545.38,-153.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-120.14 523.02,-109"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-105.79 513.84,-105 521.61,-112.21 524.41,-105.79"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.82,-139.74C686.99,-141.81 653.73,-144.65 624.5,-146.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C611.89,-147.7 557.94,-121.61 522.09,-103.57"/>
-<polygon fill="#000000" stroke="#000000" points="523.46,-100.35 512.96,-98.96 520.3,-106.59 523.46,-100.35"/>
-</g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-218.89 142,-218.89 142,-194.89 251,-194.89 251,-218.89"/>
-<text text-anchor="middle" x="196.5" y="-204.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-183 147.5,-183 147.5,-159 254.5,-159 254.5,-183"/>
+<text text-anchor="middle" x="201" y="-168.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C451.51,-256.57 442.32,-230.12 405,-223.89 357.18,-215.9 302.51,-211.62 261.29,-209.35"/>
-<polygon fill="#000000" stroke="#000000" points="261.28,-205.84 251.11,-208.81 260.91,-212.83 261.28,-205.84"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C549.29,-152.5 559.01,-221.23 489.5,-244.89"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C598.52,-133 591.64,-138.24 572,-152 551.86,-166.1 558.34,-183.73 536,-194 439.06,-238.59 309.4,-207.4 243.79,-186.19"/>
+<polygon fill="#000000" stroke="#000000" points="244.8,-182.83 234.21,-183.01 242.6,-189.48 244.8,-182.83"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_node9" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-138.89 299,-138.89 299,-114.89 393,-114.89 393,-138.89"/>
-<text text-anchor="middle" x="346" y="-124.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-143 303.5,-143 303.5,-119 397.5,-119 397.5,-143"/>
+<text text-anchor="middle" x="350.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge13" class="edge">
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C460.02,-122.92 429.2,-122.48 403.45,-123.22"/>
-<polygon fill="#000000" stroke="#000000" points="402.98,-119.73 393.11,-123.58 403.23,-126.73 402.98,-119.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C548.24,-133 462.54,-132.24 407.73,-131.66"/>
+<polygon fill="#000000" stroke="#000000" points="407.57,-128.15 397.53,-131.55 407.49,-135.15 407.57,-128.15"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-256.89 287,-256.89 287,-232.89 405,-232.89 405,-256.89"/>
-<text text-anchor="middle" x="346" y="-242.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_setup.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-103 0,-103 0,-79 106,-79 106,-103"/>
+<text text-anchor="middle" x="53" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C464.66,-252.3 438.62,-254.02 415.2,-253.31"/>
-<polygon fill="#000000" stroke="#000000" points="415.15,-249.81 405,-252.86 414.83,-256.8 415.15,-249.81"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-91C172.55,-89.01 142.12,-88.71 116.17,-89.02"/>
+<polygon fill="#000000" stroke="#000000" points="116.04,-85.53 106.1,-89.18 116.15,-92.52 116.04,-85.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C281.93,-57.05 269.52,-95.89 202,-91"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.62,-63.08C155.83,-83.41 105.88,-124.36 76.67,-148.3"/>
-<polygon fill="#000000" stroke="#000000" points="74.19,-145.81 68.68,-154.86 78.63,-151.22 74.19,-145.81"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-173C563.29,-173 554.37,-173 545.69,-173"/>
+<polygon fill="#000000" stroke="#000000" points="545.65,-169.5 535.65,-173 545.65,-176.5 545.65,-169.5"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.98,-164.99C383.64,-163.08 283.28,-161.18 197.5,-166.89"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-160.94C589.52,-156.71 580.27,-151.82 572,-147 552.53,-135.66 531.27,-121.7 515.21,-110.82"/>
+<polygon fill="#000000" stroke="#000000" points="517.1,-107.87 506.87,-105.13 513.16,-113.66 517.1,-107.87"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-154.89C430.89,-150.77 414.54,-146.11 399.37,-141.8"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-138.39 389.61,-139.02 398.27,-145.12 400.19,-138.39"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C300.24,-244.52 251.15,-211.17 223.87,-189.63"/>
+<polygon fill="#000000" stroke="#000000" points="225.78,-186.67 215.8,-183.1 221.37,-192.11 225.78,-186.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.61,-185.12C591.15,-197.81 563.34,-217.22 536,-227 458.15,-254.87 433.49,-261.78 351.5,-251"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C254.02,-242.29 222.95,-243.38 142,-192 109.38,-171.3 82.04,-134.94 66.86,-111.95"/>
+<polygon fill="#000000" stroke="#000000" points="69.65,-109.82 61.3,-103.29 63.76,-113.6 69.65,-109.82"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-63C140.96,-67.17 123.7,-71.9 107.75,-76.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-72.92 98.03,-78.94 108.6,-79.67 106.75,-72.92"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge16" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C317.58,-43.61 286.76,-43.19 260.42,-44.45"/>
-<polygon fill="#000000" stroke="#000000" points="259.96,-40.97 250.18,-45.03 260.36,-47.96 259.96,-40.97"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C321.96,-167.18 291.24,-166.6 265,-167.2"/>
+<polygon fill="#000000" stroke="#000000" points="264.7,-163.7 254.81,-167.49 264.9,-170.7 264.7,-163.7"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.53,-160.96C433.45,-156.31 416.02,-150.93 400.14,-146.02"/>
+<polygon fill="#000000" stroke="#000000" points="401.07,-142.64 390.48,-143.04 399,-149.33 401.07,-142.64"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.1,-74.85C421.06,-66.47 381.99,-55.62 347,-48.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C278.52,-36.09 261.08,12.35 197.5,-10.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C324.51,-167.53 318.63,-163.17 296,-152 251.34,-129.96 251.67,-94.59 202,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.33,-175.13C414.91,-175.65 381.2,-175.12 351.5,-171"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.87,-9.2C253,-8.7 192,-11.96 142,-30 116.3,-39.27 91.11,-58 74.31,-72.27"/>
+<polygon fill="#000000" stroke="#000000" points="72,-69.64 66.77,-78.86 76.61,-74.92 72,-69.64"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-98.89C430.89,-103 414.54,-107.66 399.37,-111.98"/>
-<polygon fill="#000000" stroke="#000000" points="398.27,-108.65 389.61,-114.76 400.19,-115.38 398.27,-108.65"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.47,-105.02C431.82,-108.56 417.83,-112.47 404.63,-116.16"/>
+<polygon fill="#000000" stroke="#000000" points="403.41,-112.86 394.72,-118.92 405.29,-119.6 403.41,-112.86"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-194.89C138.49,-190.77 122.02,-186.11 106.74,-181.8"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-178.37 96.91,-179.02 105.58,-185.11 107.49,-178.37"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M177.83,-158.85C153.03,-145.26 112.7,-123.16 84.83,-107.9"/>
+<polygon fill="#000000" stroke="#000000" points="86.36,-104.74 75.9,-103 82.99,-110.88 86.36,-104.74"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge23" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.74,-114.82C307.21,-110.59 296.57,-105.69 287,-100.89 266.6,-90.64 244.18,-78.11 226.88,-68.16"/>
-<polygon fill="#000000" stroke="#000000" points="228.25,-64.91 217.84,-62.93 224.74,-70.97 228.25,-64.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-143C289.86,-147.17 272.41,-151.9 256.31,-156.27"/>
+<polygon fill="#000000" stroke="#000000" points="255.21,-152.94 246.48,-158.94 257.05,-159.7 255.21,-152.94"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-166.89C169.66,-168.61 141.1,-168.91 116.44,-168.67"/>
-<polygon fill="#000000" stroke="#000000" points="116.18,-165.17 106.14,-168.54 116.09,-172.17 116.18,-165.17"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-138.97C285.12,-149.7 239.06,-164.12 197.5,-166.89"/>
-</g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_setup.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-284.89C139.78,-269.01 92.08,-216.53 68.94,-187.19"/>
-<polygon fill="#000000" stroke="#000000" points="71.69,-185.03 62.82,-179.24 66.14,-189.3 71.69,-185.03"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.87,-257C278.48,-270.93 219.44,-291.14 197.5,-284.89"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.03,-118.95C289.62,-108.24 243.56,-93.84 202,-91"/>
 </g>
 </g>
 </svg>
@@ -564,179 +562,242 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-2"></a>   <span class="k">use </span><span class="n">swiftest</span>
 <a name="ln-3"></a><span class="k">contains</span>
 <a name="ln-4"></a>
-<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">symba_setup_initialize_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">symba_setup_initialize_particle_info</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
 <a name="ln-6"></a>      <span class="c">!! author: David A. Minton</span>
 <a name="ln-7"></a>      <span class="c">!!</span>
-<a name="ln-8"></a>      <span class="c">!! Initialize an SyMBA nbody system from files and sets up the planetocentric structures.</span>
-<a name="ln-9"></a>      <span class="c">!! This subroutine will also sort the massive bodies in descending order by mass</span>
-<a name="ln-10"></a>      <span class="c">!! </span>
-<a name="ln-11"></a>      <span class="k">implicit none</span>
-<a name="ln-12"></a>      <span class="c">! Arguments</span>
-<a name="ln-13"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>    <span class="c">!! SyMBA system object</span>
-<a name="ln-14"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
-<a name="ln-15"></a>      <span class="c">! Internals</span>
-<a name="ln-16"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
-<a name="ln-17"></a>
-<a name="ln-18"></a>      <span class="c">! Call parent method</span>
-<a name="ln-19"></a>      <span class="k">associate</span><span class="p">(</span><span class="nb">system</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
-<a name="ln-20"></a>         <span class="k">call </span><span class="n">whm_setup_initialize_system</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-21"></a>         <span class="k">call </span><span class="nb">system</span><span class="p">%</span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">0</span><span class="p">)</span>
-<a name="ln-22"></a>         <span class="k">call </span><span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">0</span><span class="p">)</span>
-<a name="ln-23"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-24"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-25"></a>            <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">sort</span><span class="p">(</span><span class="s2">&quot;mass&quot;</span><span class="p">,</span> <span class="n">ascending</span><span class="o">=</span><span class="p">.</span><span class="n">false</span><span class="p">.)</span>
-<a name="ln-26"></a>            <span class="k">select type</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
-<a name="ln-27"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_parameters</span><span class="p">)</span>
-<a name="ln-28"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(:)</span> <span class="o">&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">MTINY</span>
-<a name="ln-29"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">nplm</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">(:))</span>
-<a name="ln-30"></a>            <span class="k">end select</span>
-<a name="ln-31"></a><span class="k">         end select</span>
-<a name="ln-32"></a><span class="k">      end associate</span>
-<a name="ln-33"></a>
-<a name="ln-34"></a><span class="k">      return</span>
-<a name="ln-35"></a><span class="k">   end subroutine </span><span class="n">symba_setup_initialize_system</span>
-<a name="ln-36"></a>
-<a name="ln-37"></a>
-<a name="ln-38"></a>   <span class="k">module subroutine </span><span class="n">symba_setup_merger</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-39"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-40"></a>      <span class="c">!!</span>
-<a name="ln-41"></a>      <span class="c">!! Allocate SyMBA test particle structure</span>
-<a name="ln-42"></a>      <span class="c">!!</span>
-<a name="ln-43"></a>      <span class="c">!! Equivalent in functionality to David E. Kaufmann&#39;s Swifter routine symba_setup.f90</span>
-<a name="ln-44"></a>      <span class="k">implicit none</span>
-<a name="ln-45"></a>      <span class="c">! Arguments</span>
-<a name="ln-46"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_merger</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA merger list object</span>
-<a name="ln-47"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
-<a name="ln-48"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameter</span>
-<a name="ln-49"></a>      <span class="c">! Internals</span>
-<a name="ln-50"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-51"></a>
-<a name="ln-52"></a>      <span class="c">!&gt; Call allocation method for parent class. In this case, helio_pl does not have its own setup method so we use the base method for swiftest_pl</span>
-<a name="ln-53"></a>      <span class="k">call </span><span class="n">symba_setup_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
-<a name="ln-54"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-8"></a>      <span class="c">!! Initializes a new particle information data structure with initial conditions recorded</span>
+<a name="ln-9"></a>      <span class="k">implicit none</span>
+<a name="ln-10"></a>      <span class="c">! Argumets</span>
+<a name="ln-11"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span>  <span class="c">!! SyMBA nbody system object</span>
+<a name="ln-12"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameters with SyMBA extensions</span>
+<a name="ln-13"></a>      <span class="c">! Internals</span>
+<a name="ln-14"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-15"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">idx</span>
+<a name="ln-16"></a>
+<a name="ln-17"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">cb</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-18"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_cb</span><span class="p">)</span>
+<a name="ln-19"></a>         <span class="n">cb</span><span class="p">%</span><span class="n">info</span><span class="p">%</span><span class="n">origin_type</span> <span class="o">=</span> <span class="s2">&quot;Central body&quot;</span>
+<a name="ln-20"></a>         <span class="n">cb</span><span class="p">%</span><span class="n">info</span><span class="p">%</span><span class="n">origin_time</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">t0</span>
+<a name="ln-21"></a>         <span class="n">cb</span><span class="p">%</span><span class="n">info</span><span class="p">%</span><span class="n">origin_xh</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-22"></a>         <span class="n">cb</span><span class="p">%</span><span class="n">info</span><span class="p">%</span><span class="n">origin_vh</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-23"></a>         <span class="k">call </span><span class="n">symba_io_dump_particle_info</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">lincludecb</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
+<a name="ln-24"></a>      <span class="k">end select</span>
+<a name="ln-25"></a>
+<a name="ln-26"></a><span class="k">      select type</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-27"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-28"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-29"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">origin_type</span> <span class="o">=</span> <span class="s2">&quot;Initial conditions&quot;</span>
+<a name="ln-30"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">origin_time</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">t0</span>
+<a name="ln-31"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">origin_xh</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-32"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">origin_vh</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-33"></a>         <span class="k">end do</span>
+<a name="ln-34"></a><span class="k">         if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-35"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">idx</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">))</span>
+<a name="ln-36"></a>            <span class="k">call </span><span class="n">symba_io_dump_particle_info</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">plidx</span><span class="o">=</span><span class="p">[(</span><span class="n">i</span><span class="p">,</span> <span class="n">i</span><span class="o">=</span><span class="mi">1</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)])</span>
+<a name="ln-37"></a>            <span class="k">deallocate</span><span class="p">(</span><span class="n">idx</span><span class="p">)</span>
+<a name="ln-38"></a>         <span class="k">end if</span>
+<a name="ln-39"></a><span class="k">      end select</span>
+<a name="ln-40"></a>
+<a name="ln-41"></a><span class="k">      select type</span><span class="p">(</span><span class="n">tp</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">tp</span><span class="p">)</span>
+<a name="ln-42"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
+<a name="ln-43"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-44"></a>            <span class="n">tp</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">origin_type</span> <span class="o">=</span> <span class="s2">&quot;Initial conditions&quot;</span>
+<a name="ln-45"></a>            <span class="n">tp</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">origin_time</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">t0</span>
+<a name="ln-46"></a>            <span class="n">tp</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">origin_xh</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-47"></a>            <span class="n">tp</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">origin_vh</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-48"></a>         <span class="k">end do</span>
+<a name="ln-49"></a><span class="k">         if</span> <span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-50"></a><span class="k">            allocate</span><span class="p">(</span><span class="n">idx</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">nbody</span><span class="p">))</span>
+<a name="ln-51"></a>            <span class="k">call </span><span class="n">symba_io_dump_particle_info</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">tpidx</span><span class="o">=</span><span class="p">[(</span><span class="n">i</span><span class="p">,</span> <span class="n">i</span><span class="o">=</span><span class="mi">1</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">nbody</span><span class="p">)])</span>
+<a name="ln-52"></a>            <span class="k">deallocate</span><span class="p">(</span><span class="n">idx</span><span class="p">)</span>
+<a name="ln-53"></a>         <span class="k">end if</span>
+<a name="ln-54"></a><span class="k">      end select</span>
 <a name="ln-55"></a>
-<a name="ln-56"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncomp</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncomp</span><span class="p">)</span>
-<a name="ln-57"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-58"></a>      <span class="n">self</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-56"></a>
+<a name="ln-57"></a><span class="k">      return</span>
+<a name="ln-58"></a><span class="k">   end subroutine </span><span class="n">symba_setup_initialize_particle_info</span>
 <a name="ln-59"></a>
-<a name="ln-60"></a>      <span class="k">return</span>
-<a name="ln-61"></a><span class="k">   end subroutine </span><span class="n">symba_setup_merger</span>
-<a name="ln-62"></a>
-<a name="ln-63"></a>
-<a name="ln-64"></a>   <span class="k">module subroutine </span><span class="n">symba_setup_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-65"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-66"></a>      <span class="c">!!</span>
-<a name="ln-67"></a>      <span class="c">!! Allocate SyMBA test particle structure</span>
-<a name="ln-68"></a>      <span class="c">!!</span>
-<a name="ln-69"></a>      <span class="c">!! Equivalent in functionality to David E. Kaufmann&#39;s Swifter routine symba_setup.f90</span>
-<a name="ln-70"></a>      <span class="k">implicit none</span>
-<a name="ln-71"></a>      <span class="c">! Arguments</span>
-<a name="ln-72"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA massive body object</span>
-<a name="ln-73"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
-<a name="ln-74"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameter</span>
-<a name="ln-75"></a>      <span class="c">! Internals</span>
-<a name="ln-76"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-77"></a>
-<a name="ln-78"></a>      <span class="c">!&gt; Call allocation method for parent class. In this case, helio_pl does not have its own setup method so we use the base method for swiftest_pl</span>
-<a name="ln-79"></a>      <span class="k">call </span><span class="n">setup_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
-<a name="ln-80"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-81"></a>
-<a name="ln-82"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lcollision</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lcollision</span><span class="p">)</span>
-<a name="ln-83"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lencounter</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lencounter</span><span class="p">)</span>
-<a name="ln-84"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">)</span>
-<a name="ln-85"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">)</span>
-<a name="ln-86"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">)</span>
-<a name="ln-87"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">)</span>
-<a name="ln-88"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">)</span>
-<a name="ln-89"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">)</span>
-<a name="ln-90"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">)</span>
-<a name="ln-91"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">)</span>
-<a name="ln-92"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">kin</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">kin</span><span class="p">)</span>
-<a name="ln-93"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">)</span>
+<a name="ln-60"></a>
+<a name="ln-61"></a>   <span class="k">module subroutine </span><span class="n">symba_setup_initialize_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-62"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-63"></a>      <span class="c">!!</span>
+<a name="ln-64"></a>      <span class="c">!! Initialize an SyMBA nbody system from files and sets up the planetocentric structures.</span>
+<a name="ln-65"></a>      <span class="c">!! This subroutine will also sort the massive bodies in descending order by mass</span>
+<a name="ln-66"></a>      <span class="c">!! </span>
+<a name="ln-67"></a>      <span class="k">implicit none</span>
+<a name="ln-68"></a>      <span class="c">! Arguments</span>
+<a name="ln-69"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>    <span class="c">!! SyMBA system object</span>
+<a name="ln-70"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters </span>
+<a name="ln-71"></a>      <span class="c">! Internals</span>
+<a name="ln-72"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
+<a name="ln-73"></a>
+<a name="ln-74"></a>      <span class="c">! Call parent method</span>
+<a name="ln-75"></a>      <span class="k">associate</span><span class="p">(</span><span class="nb">system</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-76"></a>         <span class="k">call </span><span class="n">whm_setup_initialize_system</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-77"></a>         <span class="k">call </span><span class="nb">system</span><span class="p">%</span><span class="n">pltpenc_list</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">0</span><span class="p">)</span>
+<a name="ln-78"></a>         <span class="k">call </span><span class="nb">system</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">0</span><span class="p">)</span>
+<a name="ln-79"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-80"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-81"></a>            <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">sort</span><span class="p">(</span><span class="s2">&quot;mass&quot;</span><span class="p">,</span> <span class="n">ascending</span><span class="o">=</span><span class="p">.</span><span class="n">false</span><span class="p">.)</span>
+<a name="ln-82"></a>            <span class="k">select type</span><span class="p">(</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-83"></a>            <span class="k">class is</span> <span class="p">(</span><span class="n">symba_parameters</span><span class="p">)</span>
+<a name="ln-84"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(:)</span> <span class="o">&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">GMTINY</span>
+<a name="ln-85"></a>               <span class="n">pl</span><span class="p">%</span><span class="n">nplm</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">(:))</span>
+<a name="ln-86"></a>               <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrestart</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-87"></a><span class="k">                  call </span><span class="n">symba_io_read_particle</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-88"></a>               <span class="k">else</span>
+<a name="ln-89"></a><span class="k">                  call </span><span class="n">symba_setup_initialize_particle_info</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
+<a name="ln-90"></a>               <span class="k">end if</span>
+<a name="ln-91"></a><span class="k">            end select</span>
+<a name="ln-92"></a><span class="k">         end select</span>
+<a name="ln-93"></a><span class="k">      end associate</span>
 <a name="ln-94"></a>
-<a name="ln-95"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-96"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lencounter</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-97"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-98"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-99"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-100"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-101"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-102"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-103"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-104"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-105"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-106"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-107"></a>
-<a name="ln-108"></a>      <span class="n">self</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-109"></a>      <span class="n">self</span><span class="p">%</span><span class="n">lencounter</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-110"></a>      <span class="n">self</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
-<a name="ln-111"></a>      <span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-112"></a>      <span class="n">self</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-113"></a>      <span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-114"></a>      <span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-115"></a>      <span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-116"></a>      <span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-117"></a>      <span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-118"></a>      <span class="n">self</span><span class="p">%</span><span class="n">kin</span><span class="p">(:)%</span><span class="n">nchild</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-119"></a>      <span class="n">self</span><span class="p">%</span><span class="n">kin</span><span class="p">(:)%</span><span class="n">parent</span> <span class="o">=</span> <span class="p">[(</span><span class="n">i</span><span class="p">,</span> <span class="n">i</span><span class="o">=</span><span class="mi">1</span><span class="p">,</span> <span class="n">n</span><span class="p">)]</span>
-<a name="ln-120"></a>      <span class="k">return</span>
-<a name="ln-121"></a><span class="k">   end subroutine </span><span class="n">symba_setup_pl</span>
-<a name="ln-122"></a>
+<a name="ln-95"></a><span class="k">      return</span>
+<a name="ln-96"></a><span class="k">   end subroutine </span><span class="n">symba_setup_initialize_system</span>
+<a name="ln-97"></a>
+<a name="ln-98"></a>
+<a name="ln-99"></a>   <span class="k">module subroutine </span><span class="n">symba_setup_merger</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-100"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-101"></a>      <span class="c">!!</span>
+<a name="ln-102"></a>      <span class="c">!! Allocate SyMBA test particle structure</span>
+<a name="ln-103"></a>      <span class="c">!!</span>
+<a name="ln-104"></a>      <span class="c">!! Equivalent in functionality to David E. Kaufmann&#39;s Swifter routine symba_setup.f90</span>
+<a name="ln-105"></a>      <span class="k">implicit none</span>
+<a name="ln-106"></a>      <span class="c">! Arguments</span>
+<a name="ln-107"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_merger</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA merger list object</span>
+<a name="ln-108"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
+<a name="ln-109"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameter</span>
+<a name="ln-110"></a>      <span class="c">! Internals</span>
+<a name="ln-111"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-112"></a>
+<a name="ln-113"></a>      <span class="c">!&gt; Call allocation method for parent class. In this case, helio_pl does not have its own setup method so we use the base method for swiftest_pl</span>
+<a name="ln-114"></a>      <span class="k">call </span><span class="n">symba_setup_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
+<a name="ln-115"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-116"></a>
+<a name="ln-117"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncomp</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncomp</span><span class="p">)</span>
+<a name="ln-118"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-119"></a>      <span class="n">self</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-120"></a>
+<a name="ln-121"></a>      <span class="k">return</span>
+<a name="ln-122"></a><span class="k">   end subroutine </span><span class="n">symba_setup_merger</span>
 <a name="ln-123"></a>
-<a name="ln-124"></a>   <span class="k">module subroutine </span><span class="n">symba_setup_pltpenc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
-<a name="ln-125"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-126"></a>      <span class="c">!!</span>
-<a name="ln-127"></a>      <span class="c">!! A constructor that sets the number of encounters and allocates and initializes all arrays  </span>
-<a name="ln-128"></a>      <span class="c">!!</span>
-<a name="ln-129"></a>      <span class="k">implicit none</span>
-<a name="ln-130"></a>      <span class="c">! Arguments</span>
-<a name="ln-131"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! SyMBA pl-tp encounter structure</span>
-<a name="ln-132"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>    <span class="c">!! Number of encounters to allocate space for</span>
-<a name="ln-133"></a>
-<a name="ln-134"></a>      <span class="k">call </span><span class="n">setup_encounter</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
-<a name="ln-135"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">n</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-136"></a>
-<a name="ln-137"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">level</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">level</span><span class="p">)</span>
-<a name="ln-138"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-139"></a>
-<a name="ln-140"></a>      <span class="n">self</span><span class="p">%</span><span class="n">level</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-141"></a>
-<a name="ln-142"></a>      <span class="k">return</span>
-<a name="ln-143"></a><span class="k">   end subroutine </span><span class="n">symba_setup_pltpenc</span>
-<a name="ln-144"></a>
-<a name="ln-145"></a>
-<a name="ln-146"></a>   <span class="k">module subroutine </span><span class="n">symba_setup_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-147"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-148"></a>      <span class="c">!!</span>
-<a name="ln-149"></a>      <span class="c">!! Allocate WHM test particle structure</span>
-<a name="ln-150"></a>      <span class="c">!!</span>
-<a name="ln-151"></a>      <span class="c">!! Equivalent in functionality to David E. Kaufmann&#39;s Swifter routine whm_setup.f90</span>
-<a name="ln-152"></a>      <span class="k">implicit none</span>
-<a name="ln-153"></a>      <span class="c">! Arguments</span>
-<a name="ln-154"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA test particle object</span>
-<a name="ln-155"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
-<a name="ln-156"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameter</span>
-<a name="ln-157"></a>
-<a name="ln-158"></a>      <span class="c">!&gt; Call allocation method for parent class. In this case, helio_tp does not have its own setup method so we use the base method for swiftest_tp</span>
-<a name="ln-159"></a>      <span class="k">call </span><span class="n">setup_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
-<a name="ln-160"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-161"></a>
-<a name="ln-162"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">)</span>
-<a name="ln-163"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">)</span>
-<a name="ln-164"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">)</span>
-<a name="ln-165"></a>
-<a name="ln-166"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-167"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-168"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
-<a name="ln-169"></a>
-<a name="ln-170"></a>      <span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-171"></a>      <span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-172"></a>      <span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-173"></a>      
-<a name="ln-174"></a>      <span class="k">return</span>
-<a name="ln-175"></a><span class="k">   end subroutine </span><span class="n">symba_setup_tp</span>
-<a name="ln-176"></a>
-<a name="ln-177"></a><span class="k">end submodule </span><span class="n">s_symba_setup</span>
+<a name="ln-124"></a>
+<a name="ln-125"></a>   <span class="k">module subroutine </span><span class="n">symba_setup_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-126"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-127"></a>      <span class="c">!!</span>
+<a name="ln-128"></a>      <span class="c">!! Allocate SyMBA test particle structure</span>
+<a name="ln-129"></a>      <span class="c">!!</span>
+<a name="ln-130"></a>      <span class="c">!! Equivalent in functionality to David E. Kaufmann&#39;s Swifter routine symba_setup.f90</span>
+<a name="ln-131"></a>      <span class="k">implicit none</span>
+<a name="ln-132"></a>      <span class="c">! Arguments</span>
+<a name="ln-133"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA massive body object</span>
+<a name="ln-134"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
+<a name="ln-135"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameter</span>
+<a name="ln-136"></a>      <span class="c">! Internals</span>
+<a name="ln-137"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-138"></a>
+<a name="ln-139"></a>      <span class="c">!&gt; Call allocation method for parent class. In this case, helio_pl does not have its own setup method so we use the base method for swiftest_pl</span>
+<a name="ln-140"></a>      <span class="k">call </span><span class="n">setup_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
+<a name="ln-141"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-142"></a>
+<a name="ln-143"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lcollision</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lcollision</span><span class="p">)</span>
+<a name="ln-144"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lencounter</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lencounter</span><span class="p">)</span>
+<a name="ln-145"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">)</span>
+<a name="ln-146"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">)</span>
+<a name="ln-147"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">)</span>
+<a name="ln-148"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">)</span>
+<a name="ln-149"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">)</span>
+<a name="ln-150"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">)</span>
+<a name="ln-151"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">)</span>
+<a name="ln-152"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">)</span>
+<a name="ln-153"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">kin</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">kin</span><span class="p">)</span>
+<a name="ln-154"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">)</span>
+<a name="ln-155"></a>
+<a name="ln-156"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-157"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lencounter</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-158"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-159"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-160"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-161"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-162"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-163"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-164"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-165"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-166"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-167"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-168"></a>
+<a name="ln-169"></a>      <span class="n">self</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-170"></a>      <span class="n">self</span><span class="p">%</span><span class="n">lencounter</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-171"></a>      <span class="n">self</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">(:)</span> <span class="o">=</span> <span class="p">.</span><span class="n">false</span><span class="p">.</span>
+<a name="ln-172"></a>      <span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-173"></a>      <span class="n">self</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-174"></a>      <span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-175"></a>      <span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-176"></a>      <span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-177"></a>      <span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-178"></a>      <span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-179"></a>      <span class="n">self</span><span class="p">%</span><span class="n">kin</span><span class="p">(:)%</span><span class="n">nchild</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-180"></a>      <span class="n">self</span><span class="p">%</span><span class="n">kin</span><span class="p">(:)%</span><span class="n">parent</span> <span class="o">=</span> <span class="p">[(</span><span class="n">i</span><span class="p">,</span> <span class="n">i</span><span class="o">=</span><span class="mi">1</span><span class="p">,</span> <span class="n">n</span><span class="p">)]</span>
+<a name="ln-181"></a>      <span class="k">return</span>
+<a name="ln-182"></a><span class="k">   end subroutine </span><span class="n">symba_setup_pl</span>
+<a name="ln-183"></a>
+<a name="ln-184"></a>
+<a name="ln-185"></a>   <span class="k">module subroutine </span><span class="n">symba_setup_pltpenc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-186"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-187"></a>      <span class="c">!!</span>
+<a name="ln-188"></a>      <span class="c">!! A constructor that sets the number of encounters and allocates and initializes all arrays  </span>
+<a name="ln-189"></a>      <span class="c">!!</span>
+<a name="ln-190"></a>      <span class="k">implicit none</span>
+<a name="ln-191"></a>      <span class="c">! Arguments</span>
+<a name="ln-192"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! SyMBA pl-tp encounter structure</span>
+<a name="ln-193"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>    <span class="c">!! Number of encounters to allocate space for</span>
+<a name="ln-194"></a>
+<a name="ln-195"></a>      <span class="k">call </span><span class="n">setup_encounter</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">)</span>
+<a name="ln-196"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">n</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-197"></a>
+<a name="ln-198"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">level</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">level</span><span class="p">)</span>
+<a name="ln-199"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">level</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-200"></a>
+<a name="ln-201"></a>      <span class="n">self</span><span class="p">%</span><span class="n">level</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-202"></a>
+<a name="ln-203"></a>      <span class="k">return</span>
+<a name="ln-204"></a><span class="k">   end subroutine </span><span class="n">symba_setup_pltpenc</span>
+<a name="ln-205"></a>
+<a name="ln-206"></a>
+<a name="ln-207"></a>   <span class="k">module subroutine </span><span class="n">symba_setup_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-208"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-209"></a>      <span class="c">!!</span>
+<a name="ln-210"></a>      <span class="c">!! Allocate WHM test particle structure</span>
+<a name="ln-211"></a>      <span class="c">!!</span>
+<a name="ln-212"></a>      <span class="c">!! Equivalent in functionality to David E. Kaufmann&#39;s Swifter routine whm_setup.f90</span>
+<a name="ln-213"></a>      <span class="k">implicit none</span>
+<a name="ln-214"></a>      <span class="c">! Arguments</span>
+<a name="ln-215"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA test particle object</span>
+<a name="ln-216"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">n</span>     <span class="c">!! Number of particles to allocate space for</span>
+<a name="ln-217"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span> <span class="c">!! Current run configuration parameter</span>
+<a name="ln-218"></a>
+<a name="ln-219"></a>      <span class="c">!&gt; Call allocation method for parent class. In this case, helio_tp does not have its own setup method so we use the base method for swiftest_tp</span>
+<a name="ln-220"></a>      <span class="k">call </span><span class="n">setup_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">n</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span> 
+<a name="ln-221"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">n</span> <span class="o">&lt;=</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-222"></a>
+<a name="ln-223"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">)</span>
+<a name="ln-224"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">)</span>
+<a name="ln-225"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">)</span>
+<a name="ln-226"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">)</span>
+<a name="ln-227"></a>
+<a name="ln-228"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-229"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-230"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-231"></a>      <span class="k">allocate</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">n</span><span class="p">))</span>
+<a name="ln-232"></a>
+<a name="ln-233"></a>      <span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-234"></a>      <span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-235"></a>      <span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-236"></a>      
+<a name="ln-237"></a>      <span class="k">return</span>
+<a name="ln-238"></a><span class="k">   end subroutine </span><span class="n">symba_setup_tp</span>
+<a name="ln-239"></a>
+<a name="ln-240"></a><span class="k">end submodule </span><span class="n">s_symba_setup</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/symba_step.f90.html b/docs/sourcefile/symba_step.f90.html
index 5dc5dc417..54065cf05 100644
--- a/docs/sourcefile/symba_step.f90.html
+++ b/docs/sourcefile/symba_step.f90.html
@@ -226,246 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~symba_step.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilesymba_stepf90EfferentGraph" width="641pt" height="217pt"
- viewBox="0.00 0.00 641.00 217.31" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~symba_step.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 304.17)">
+<svg id="sourcefilesymba_stepf90EfferentGraph" width="641pt" height="186pt"
+ viewBox="0.00 0.00 641.00 186.27" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~symba_step.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 260.15)">
 <title>sourcefile~~symba_step.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-304.17 905,-304.17 905,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 905,-260.15 905,4 -4,4"/>
 <!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~symba_step.f90</title>
-<polygon fill="none" stroke="black" points="901,-128.89 813,-128.89 813,-104.89 901,-104.89 901,-128.89"/>
-<text text-anchor="middle" x="857" y="-114.49" font-family="Helvetica,sans-Serif" font-size="10.50">symba_step.f90</text>
+<polygon fill="none" stroke="black" points="901,-165 813,-165 813,-141 901,-141 901,-165"/>
+<text text-anchor="middle" x="857" y="-150.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_step.f90</text>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-108.89 572,-108.89 572,-84.89 675,-84.89 675,-108.89"/>
-<text text-anchor="middle" x="623.5" y="-94.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-145 711,-145 711,-121 777,-121 777,-145"/>
+<text text-anchor="middle" x="744" y="-130.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M813,-113.17C777.15,-110.08 725.65,-105.63 685.54,-102.16"/>
-<polygon fill="#000000" stroke="#000000" points="685.61,-98.65 675.34,-101.28 685,-105.63 685.61,-98.65"/>
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.77,-145.21C804.37,-143.7 795.58,-142.11 787.22,-140.61"/>
+<polygon fill="#000000" stroke="#000000" points="787.75,-137.15 777.29,-138.82 786.51,-144.04 787.75,-137.15"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-148.89 711,-148.89 711,-124.89 777,-124.89 777,-148.89"/>
-<text text-anchor="middle" x="744" y="-134.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-185 572,-185 572,-161 675,-161 675,-185"/>
+<text text-anchor="middle" x="623.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.77,-124.68C804.37,-126.19 795.58,-127.77 787.22,-129.28"/>
-<polygon fill="#000000" stroke="#000000" points="786.51,-125.85 777.29,-131.07 787.75,-132.74 786.51,-125.85"/>
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M813,-156.71C777.15,-159.81 725.65,-164.26 685.54,-167.73"/>
+<polygon fill="#000000" stroke="#000000" points="685,-164.26 675.34,-168.61 685.61,-171.23 685,-164.26"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-143.82C698.36,-148.07 683.7,-153.02 670.06,-157.62"/>
+<polygon fill="#000000" stroke="#000000" points="668.71,-154.38 660.35,-160.9 670.95,-161.02 668.71,-154.38"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-62.89 143,-62.89 143,-38.89 250,-38.89 250,-62.89"/>
-<text text-anchor="middle" x="196.5" y="-48.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-63 142,-63 142,-39 260,-39 260,-63"/>
+<text text-anchor="middle" x="201" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C307.66,-13.37 266.69,-25.26 237.42,-35.44"/>
-<polygon fill="#000000" stroke="#000000" points="236.21,-32.16 227.97,-38.81 238.56,-38.75 236.21,-32.16"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C323.66,-54.55 295.23,-54.56 270.29,-54.01"/>
+<polygon fill="#000000" stroke="#000000" points="270.28,-50.51 260.19,-53.76 270.1,-57.51 270.28,-50.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C430.54,-32.77 411.84,-49.38 351.5,-53"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178.89 0,-178.89 0,-154.89 106,-154.89 106,-178.89"/>
-<text text-anchor="middle" x="53" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-185 441.5,-185 441.5,-161 535.5,-161 535.5,-185"/>
+<text text-anchor="middle" x="488.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-10.89C171.8,-19.55 161.77,-14.21 142,-29.89 102.57,-61.16 75.43,-115.18 62.55,-145.2"/>
-<polygon fill="#000000" stroke="#000000" points="59.19,-144.16 58.59,-154.74 65.66,-146.84 59.19,-144.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.07,-84.82C557.22,-59.62 446.24,-4.28 347,-10.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C279.46,-9.33 259.07,11.61 197.5,-10.89"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-145.86 523.02,-157"/>
+<polygon fill="#000000" stroke="#000000" points="521.61,-153.79 513.84,-161 524.41,-160.21 521.61,-153.79"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-178.89 441,-178.89 441,-154.89 536,-154.89 536,-178.89"/>
-<text text-anchor="middle" x="488.5" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.64,-108.92C578.13,-120.24 545.72,-137.3 521.62,-149.98"/>
-<polygon fill="#000000" stroke="#000000" points="519.73,-147.02 512.51,-154.78 522.99,-153.22 519.73,-147.02"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C575.46,-133 577.26,-94.6 536,-72 516.42,-61.28 510.54,-60.47 489.5,-53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-133C686.98,-133 653.71,-133 624.5,-133"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C460.62,-43.46 430.28,-34.17 405.08,-26.85"/>
+<polygon fill="#000000" stroke="#000000" points="405.91,-23.45 395.34,-24.05 403.98,-30.18 405.91,-23.45"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-98.89 441.5,-98.89 441.5,-74.89 535.5,-74.89 535.5,-98.89"/>
-<text text-anchor="middle" x="488.5" y="-84.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-105 441,-105 441,-81 536,-81 536,-105"/>
+<text text-anchor="middle" x="488.5" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-93.08C563.29,-92.44 554.37,-91.77 545.69,-91.11"/>
-<polygon fill="#000000" stroke="#000000" points="545.89,-87.62 535.65,-90.36 545.36,-94.6 545.89,-87.62"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-126.06C698.36,-121.82 683.7,-116.87 670.06,-112.27"/>
-<polygon fill="#000000" stroke="#000000" points="670.95,-108.87 660.35,-108.99 668.71,-115.5 670.95,-108.87"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C481.59,-126.04 335.09,-87.34 252.63,-65.5"/>
-<polygon fill="#000000" stroke="#000000" points="253.47,-62.1 242.9,-62.93 251.67,-68.87 253.47,-62.1"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C562.9,-151.46 548.71,-135.12 489.5,-126.89"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C364.33,-286.8 322.63,-320.54 197.5,-284.89"/>
-</g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C597.35,-148.82 569.75,-152.68 546.24,-156.5"/>
-<polygon fill="#000000" stroke="#000000" points="545.38,-153.09 536.09,-158.18 546.53,-160 545.38,-153.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-120.14 523.02,-109"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-105.79 513.84,-105 521.61,-112.21 524.41,-105.79"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.82,-139.74C686.99,-141.81 653.73,-144.65 624.5,-146.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C611.89,-147.7 557.94,-121.61 522.09,-103.57"/>
-<polygon fill="#000000" stroke="#000000" points="523.46,-100.35 512.96,-98.96 520.3,-106.59 523.46,-100.35"/>
-</g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-218.89 142,-218.89 142,-194.89 251,-194.89 251,-218.89"/>
-<text text-anchor="middle" x="196.5" y="-204.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-183 147.5,-183 147.5,-159 254.5,-159 254.5,-183"/>
+<text text-anchor="middle" x="201" y="-168.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C451.51,-256.57 442.32,-230.12 405,-223.89 357.18,-215.9 302.51,-211.62 261.29,-209.35"/>
-<polygon fill="#000000" stroke="#000000" points="261.28,-205.84 251.11,-208.81 260.91,-212.83 261.28,-205.84"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C549.29,-152.5 559.01,-221.23 489.5,-244.89"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C598.52,-133 591.64,-138.24 572,-152 551.86,-166.1 558.34,-183.73 536,-194 439.06,-238.59 309.4,-207.4 243.79,-186.19"/>
+<polygon fill="#000000" stroke="#000000" points="244.8,-182.83 234.21,-183.01 242.6,-189.48 244.8,-182.83"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_node9" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-138.89 299,-138.89 299,-114.89 393,-114.89 393,-138.89"/>
-<text text-anchor="middle" x="346" y="-124.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-143 303.5,-143 303.5,-119 397.5,-119 397.5,-143"/>
+<text text-anchor="middle" x="350.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge13" class="edge">
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C460.02,-122.92 429.2,-122.48 403.45,-123.22"/>
-<polygon fill="#000000" stroke="#000000" points="402.98,-119.73 393.11,-123.58 403.23,-126.73 402.98,-119.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C548.24,-133 462.54,-132.24 407.73,-131.66"/>
+<polygon fill="#000000" stroke="#000000" points="407.57,-128.15 397.53,-131.55 407.49,-135.15 407.57,-128.15"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-256.89 287,-256.89 287,-232.89 405,-232.89 405,-256.89"/>
-<text text-anchor="middle" x="346" y="-242.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_step.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-103 0,-103 0,-79 106,-79 106,-103"/>
+<text text-anchor="middle" x="53" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C464.66,-252.3 438.62,-254.02 415.2,-253.31"/>
-<polygon fill="#000000" stroke="#000000" points="415.15,-249.81 405,-252.86 414.83,-256.8 415.15,-249.81"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-91C172.55,-89.01 142.12,-88.71 116.17,-89.02"/>
+<polygon fill="#000000" stroke="#000000" points="116.04,-85.53 106.1,-89.18 116.15,-92.52 116.04,-85.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C281.93,-57.05 269.52,-95.89 202,-91"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.62,-63.08C155.83,-83.41 105.88,-124.36 76.67,-148.3"/>
-<polygon fill="#000000" stroke="#000000" points="74.19,-145.81 68.68,-154.86 78.63,-151.22 74.19,-145.81"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-173C563.29,-173 554.37,-173 545.69,-173"/>
+<polygon fill="#000000" stroke="#000000" points="545.65,-169.5 535.65,-173 545.65,-176.5 545.65,-169.5"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.98,-164.99C383.64,-163.08 283.28,-161.18 197.5,-166.89"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-160.94C589.52,-156.71 580.27,-151.82 572,-147 552.53,-135.66 531.27,-121.7 515.21,-110.82"/>
+<polygon fill="#000000" stroke="#000000" points="517.1,-107.87 506.87,-105.13 513.16,-113.66 517.1,-107.87"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-154.89C430.89,-150.77 414.54,-146.11 399.37,-141.8"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-138.39 389.61,-139.02 398.27,-145.12 400.19,-138.39"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C300.24,-244.52 251.15,-211.17 223.87,-189.63"/>
+<polygon fill="#000000" stroke="#000000" points="225.78,-186.67 215.8,-183.1 221.37,-192.11 225.78,-186.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.61,-185.12C591.15,-197.81 563.34,-217.22 536,-227 458.15,-254.87 433.49,-261.78 351.5,-251"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C254.02,-242.29 222.95,-243.38 142,-192 109.38,-171.3 82.04,-134.94 66.86,-111.95"/>
+<polygon fill="#000000" stroke="#000000" points="69.65,-109.82 61.3,-103.29 63.76,-113.6 69.65,-109.82"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-63C140.96,-67.17 123.7,-71.9 107.75,-76.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-72.92 98.03,-78.94 108.6,-79.67 106.75,-72.92"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge16" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C317.58,-43.61 286.76,-43.19 260.42,-44.45"/>
-<polygon fill="#000000" stroke="#000000" points="259.96,-40.97 250.18,-45.03 260.36,-47.96 259.96,-40.97"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C321.96,-167.18 291.24,-166.6 265,-167.2"/>
+<polygon fill="#000000" stroke="#000000" points="264.7,-163.7 254.81,-167.49 264.9,-170.7 264.7,-163.7"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.53,-160.96C433.45,-156.31 416.02,-150.93 400.14,-146.02"/>
+<polygon fill="#000000" stroke="#000000" points="401.07,-142.64 390.48,-143.04 399,-149.33 401.07,-142.64"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.1,-74.85C421.06,-66.47 381.99,-55.62 347,-48.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C278.52,-36.09 261.08,12.35 197.5,-10.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C324.51,-167.53 318.63,-163.17 296,-152 251.34,-129.96 251.67,-94.59 202,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.33,-175.13C414.91,-175.65 381.2,-175.12 351.5,-171"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.87,-9.2C253,-8.7 192,-11.96 142,-30 116.3,-39.27 91.11,-58 74.31,-72.27"/>
+<polygon fill="#000000" stroke="#000000" points="72,-69.64 66.77,-78.86 76.61,-74.92 72,-69.64"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-98.89C430.89,-103 414.54,-107.66 399.37,-111.98"/>
-<polygon fill="#000000" stroke="#000000" points="398.27,-108.65 389.61,-114.76 400.19,-115.38 398.27,-108.65"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.47,-105.02C431.82,-108.56 417.83,-112.47 404.63,-116.16"/>
+<polygon fill="#000000" stroke="#000000" points="403.41,-112.86 394.72,-118.92 405.29,-119.6 403.41,-112.86"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-194.89C138.49,-190.77 122.02,-186.11 106.74,-181.8"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-178.37 96.91,-179.02 105.58,-185.11 107.49,-178.37"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M177.83,-158.85C153.03,-145.26 112.7,-123.16 84.83,-107.9"/>
+<polygon fill="#000000" stroke="#000000" points="86.36,-104.74 75.9,-103 82.99,-110.88 86.36,-104.74"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_edge23" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.74,-114.82C307.21,-110.59 296.57,-105.69 287,-100.89 266.6,-90.64 244.18,-78.11 226.88,-68.16"/>
-<polygon fill="#000000" stroke="#000000" points="228.25,-64.91 217.84,-62.93 224.74,-70.97 228.25,-64.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-143C289.86,-147.17 272.41,-151.9 256.31,-156.27"/>
+<polygon fill="#000000" stroke="#000000" points="255.21,-152.94 246.48,-158.94 257.05,-159.7 255.21,-152.94"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_step.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-166.89C169.66,-168.61 141.1,-168.91 116.44,-168.67"/>
-<polygon fill="#000000" stroke="#000000" points="116.18,-165.17 106.14,-168.54 116.09,-172.17 116.18,-165.17"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-138.97C285.12,-149.7 239.06,-164.12 197.5,-166.89"/>
-</g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_step.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-284.89C139.78,-269.01 92.08,-216.53 68.94,-187.19"/>
-<polygon fill="#000000" stroke="#000000" points="71.69,-185.03 62.82,-179.24 66.14,-189.3 71.69,-185.03"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.87,-257C278.48,-270.93 219.44,-291.14 197.5,-284.89"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.03,-118.95C289.62,-108.24 243.56,-93.84 202,-91"/>
 </g>
 </g>
 </svg>
@@ -799,7 +797,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-237"></a>      <span class="c">! Internals</span>
 <a name="ln-238"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
 <a name="ln-239"></a>
-<a name="ln-240"></a>      <span class="k">associate</span><span class="p">(</span><span class="nb">system</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">pltpenc_list</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pltpenc_list</span><span class="p">,</span> <span class="n">plplenc_list</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">,</span> <span class="n">mergeadd_list</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">mergeadd_list</span><span class="p">,</span> <span class="n">mergesub_list</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">mergesub_list</span><span class="p">)</span>
+<a name="ln-240"></a>      <span class="k">associate</span><span class="p">(</span><span class="nb">system</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">pltpenc_list</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pltpenc_list</span><span class="p">,</span> <span class="n">plplenc_list</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">plplenc_list</span><span class="p">,</span> <span class="n">pl_adds</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl_adds</span><span class="p">,</span> <span class="n">pl_discards</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl_discards</span><span class="p">)</span>
 <a name="ln-241"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl</span><span class="p">)</span>
 <a name="ln-242"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
 <a name="ln-243"></a>            <span class="k">select type</span><span class="p">(</span><span class="n">tp</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">tp</span><span class="p">)</span>
@@ -827,8 +825,8 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-265"></a>               <span class="n">pltpenc_list</span><span class="p">%</span><span class="n">nenc</span> <span class="o">=</span> <span class="mi">0</span>
 <a name="ln-266"></a>               <span class="k">end if</span>
 <a name="ln-267"></a>
-<a name="ln-268"></a><span class="k">               call </span><span class="n">mergeadd_list</span><span class="p">%</span><span class="n">resize</span><span class="p">(</span><span class="mi">0</span><span class="p">)</span>
-<a name="ln-269"></a>               <span class="k">call </span><span class="n">mergesub_list</span><span class="p">%</span><span class="n">resize</span><span class="p">(</span><span class="mi">0</span><span class="p">)</span>
+<a name="ln-268"></a><span class="k">               call </span><span class="n">pl_adds</span><span class="p">%</span><span class="n">resize</span><span class="p">(</span><span class="mi">0</span><span class="p">)</span>
+<a name="ln-269"></a>               <span class="k">call </span><span class="n">pl_discards</span><span class="p">%</span><span class="n">resize</span><span class="p">(</span><span class="mi">0</span><span class="p">)</span>
 <a name="ln-270"></a>            <span class="k">end select</span>
 <a name="ln-271"></a><span class="k">         end select</span>
 <a name="ln-272"></a><span class="k">      end associate</span>
diff --git a/docs/sourcefile/symba_util.f90.html b/docs/sourcefile/symba_util.f90.html
index 13b29ee99..fb889ee24 100644
--- a/docs/sourcefile/symba_util.f90.html
+++ b/docs/sourcefile/symba_util.f90.html
@@ -134,7 +134,7 @@ <h1>symba_util.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 4.4% of total for source files.">582 statements</a>
+    title=" 4.3% of total for source files.">582 statements</a>
      </li> 
      
      
@@ -226,246 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~symba_util.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilesymba_utilf90EfferentGraph" width="641pt" height="219pt"
- viewBox="0.00 0.00 641.00 218.76" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~symba_util.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 304.17)">
+<svg id="sourcefilesymba_utilf90EfferentGraph" width="641pt" height="188pt"
+ viewBox="0.00 0.00 641.00 187.51" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~symba_util.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 260.15)">
 <title>sourcefile~~symba_util.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-304.17 899,-304.17 899,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-260.15 899,-260.15 899,4 -4,4"/>
 <!-- sourcefile~symba_util.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~symba_util.f90</title>
-<polygon fill="none" stroke="black" points="895,-128.89 813,-128.89 813,-104.89 895,-104.89 895,-128.89"/>
-<text text-anchor="middle" x="854" y="-114.49" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util.f90</text>
+<polygon fill="none" stroke="black" points="895,-165 813,-165 813,-141 895,-141 895,-165"/>
+<text text-anchor="middle" x="854" y="-150.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_util.f90</text>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-108.89 572,-108.89 572,-84.89 675,-84.89 675,-108.89"/>
-<text text-anchor="middle" x="623.5" y="-94.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-145 711,-145 711,-121 777,-121 777,-145"/>
+<text text-anchor="middle" x="744" y="-130.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.94,-113.38C777.66,-110.29 725.75,-105.75 685.34,-102.21"/>
-<polygon fill="#000000" stroke="#000000" points="685.6,-98.72 675.33,-101.34 684.99,-105.7 685.6,-98.72"/>
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.78,-145.55C804.43,-144.01 795.6,-142.37 787.17,-140.81"/>
+<polygon fill="#000000" stroke="#000000" points="787.63,-137.33 777.16,-138.95 786.35,-144.22 787.63,-137.33"/>
 </g>
-<!-- sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-148.89 711,-148.89 711,-124.89 777,-124.89 777,-148.89"/>
-<text text-anchor="middle" x="744" y="-134.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-185 572,-185 572,-161 675,-161 675,-185"/>
+<text text-anchor="middle" x="623.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.78,-124.33C804.43,-125.88 795.6,-127.52 787.17,-129.08"/>
-<polygon fill="#000000" stroke="#000000" points="786.35,-125.67 777.16,-130.93 787.63,-132.55 786.35,-125.67"/>
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.94,-156.51C777.66,-159.59 725.75,-164.14 685.34,-167.67"/>
+<polygon fill="#000000" stroke="#000000" points="684.99,-164.19 675.33,-168.55 685.6,-171.17 684.99,-164.19"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-143.82C698.36,-148.07 683.7,-153.02 670.06,-157.62"/>
+<polygon fill="#000000" stroke="#000000" points="668.71,-154.38 660.35,-160.9 670.95,-161.02 668.71,-154.38"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-62.89 143,-62.89 143,-38.89 250,-38.89 250,-62.89"/>
-<text text-anchor="middle" x="196.5" y="-48.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-63 142,-63 142,-39 260,-39 260,-63"/>
+<text text-anchor="middle" x="201" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C307.66,-13.37 266.69,-25.26 237.42,-35.44"/>
-<polygon fill="#000000" stroke="#000000" points="236.21,-32.16 227.97,-38.81 238.56,-38.75 236.21,-32.16"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C323.66,-54.55 295.23,-54.56 270.29,-54.01"/>
+<polygon fill="#000000" stroke="#000000" points="270.28,-50.51 260.19,-53.76 270.1,-57.51 270.28,-50.51"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C430.54,-32.77 411.84,-49.38 351.5,-53"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178.89 0,-178.89 0,-154.89 106,-154.89 106,-178.89"/>
-<text text-anchor="middle" x="53" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-185 441.5,-185 441.5,-161 535.5,-161 535.5,-185"/>
+<text text-anchor="middle" x="488.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-10.89C171.8,-19.55 161.77,-14.21 142,-29.89 102.57,-61.16 75.43,-115.18 62.55,-145.2"/>
-<polygon fill="#000000" stroke="#000000" points="59.19,-144.16 58.59,-154.74 65.66,-146.84 59.19,-144.16"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M602.07,-84.82C557.22,-59.62 446.24,-4.28 347,-10.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-10.89C279.46,-9.33 259.07,11.61 197.5,-10.89"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-145.86 523.02,-157"/>
+<polygon fill="#000000" stroke="#000000" points="521.61,-153.79 513.84,-161 524.41,-160.21 521.61,-153.79"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-178.89 441,-178.89 441,-154.89 536,-154.89 536,-178.89"/>
-<text text-anchor="middle" x="488.5" y="-164.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M599.64,-108.92C578.13,-120.24 545.72,-137.3 521.62,-149.98"/>
-<polygon fill="#000000" stroke="#000000" points="519.73,-147.02 512.51,-154.78 522.99,-153.22 519.73,-147.02"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C575.46,-133 577.26,-94.6 536,-72 516.42,-61.28 510.54,-60.47 489.5,-53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-133C686.98,-133 653.71,-133 624.5,-133"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-53C460.62,-43.46 430.28,-34.17 405.08,-26.85"/>
+<polygon fill="#000000" stroke="#000000" points="405.91,-23.45 395.34,-24.05 403.98,-30.18 405.91,-23.45"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_node7" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-98.89 441.5,-98.89 441.5,-74.89 535.5,-74.89 535.5,-98.89"/>
-<text text-anchor="middle" x="488.5" y="-84.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-105 441,-105 441,-81 536,-81 536,-105"/>
+<text text-anchor="middle" x="488.5" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-93.08C563.29,-92.44 554.37,-91.77 545.69,-91.11"/>
-<polygon fill="#000000" stroke="#000000" points="545.89,-87.62 535.65,-90.36 545.36,-94.6 545.89,-87.62"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-126.06C698.36,-121.82 683.7,-116.87 670.06,-112.27"/>
-<polygon fill="#000000" stroke="#000000" points="670.95,-108.87 660.35,-108.99 668.71,-115.5 670.95,-108.87"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C481.59,-126.04 335.09,-87.34 252.63,-65.5"/>
-<polygon fill="#000000" stroke="#000000" points="253.47,-62.1 242.9,-62.93 251.67,-68.87 253.47,-62.1"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C562.9,-151.46 548.71,-135.12 489.5,-126.89"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C364.33,-286.8 322.63,-320.54 197.5,-284.89"/>
-</g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge10" class="edge">
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C597.35,-148.82 569.75,-152.68 546.24,-156.5"/>
-<polygon fill="#000000" stroke="#000000" points="545.38,-153.09 536.09,-158.18 546.53,-160 545.38,-153.09"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C587.5,-133 549.42,-120.14 523.02,-109"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-105.79 513.84,-105 521.61,-112.21 524.41,-105.79"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.82,-139.74C686.99,-141.81 653.73,-144.65 624.5,-146.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C611.89,-147.7 557.94,-121.61 522.09,-103.57"/>
-<polygon fill="#000000" stroke="#000000" points="523.46,-100.35 512.96,-98.96 520.3,-106.59 523.46,-100.35"/>
-</g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-218.89 142,-218.89 142,-194.89 251,-194.89 251,-218.89"/>
-<text text-anchor="middle" x="196.5" y="-204.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-183 147.5,-183 147.5,-159 254.5,-159 254.5,-183"/>
+<text text-anchor="middle" x="201" y="-168.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C451.51,-256.57 442.32,-230.12 405,-223.89 357.18,-215.9 302.51,-211.62 261.29,-209.35"/>
-<polygon fill="#000000" stroke="#000000" points="261.28,-205.84 251.11,-208.81 260.91,-212.83 261.28,-205.84"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-146.89C549.29,-152.5 559.01,-221.23 489.5,-244.89"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C598.52,-133 591.64,-138.24 572,-152 551.86,-166.1 558.34,-183.73 536,-194 439.06,-238.59 309.4,-207.4 243.79,-186.19"/>
+<polygon fill="#000000" stroke="#000000" points="244.8,-182.83 234.21,-183.01 242.6,-189.48 244.8,-182.83"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_node9" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-138.89 299,-138.89 299,-114.89 393,-114.89 393,-138.89"/>
-<text text-anchor="middle" x="346" y="-124.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-143 303.5,-143 303.5,-119 397.5,-119 397.5,-143"/>
+<text text-anchor="middle" x="350.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge13" class="edge">
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-126.89C460.02,-122.92 429.2,-122.48 403.45,-123.22"/>
-<polygon fill="#000000" stroke="#000000" points="402.98,-119.73 393.11,-123.58 403.23,-126.73 402.98,-119.73"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-133C548.24,-133 462.54,-132.24 407.73,-131.66"/>
+<polygon fill="#000000" stroke="#000000" points="407.57,-128.15 397.53,-131.55 407.49,-135.15 407.57,-128.15"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-256.89 287,-256.89 287,-232.89 405,-232.89 405,-256.89"/>
-<text text-anchor="middle" x="346" y="-242.49" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~symba_util.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-103 0,-103 0,-79 106,-79 106,-103"/>
+<text text-anchor="middle" x="53" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge9" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-244.89C464.66,-252.3 438.62,-254.02 415.2,-253.31"/>
-<polygon fill="#000000" stroke="#000000" points="415.15,-249.81 405,-252.86 414.83,-256.8 415.15,-249.81"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-91C172.55,-89.01 142.12,-88.71 116.17,-89.02"/>
+<polygon fill="#000000" stroke="#000000" points="116.04,-85.53 106.1,-89.18 116.15,-92.52 116.04,-85.53"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-53C281.93,-57.05 269.52,-95.89 202,-91"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M180.62,-63.08C155.83,-83.41 105.88,-124.36 76.67,-148.3"/>
-<polygon fill="#000000" stroke="#000000" points="74.19,-145.81 68.68,-154.86 78.63,-151.22 74.19,-145.81"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-173C563.29,-173 554.37,-173 545.69,-173"/>
+<polygon fill="#000000" stroke="#000000" points="545.65,-169.5 535.65,-173 545.65,-176.5 545.65,-169.5"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.98,-164.99C383.64,-163.08 283.28,-161.18 197.5,-166.89"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M597.82,-160.94C589.52,-156.71 580.27,-151.82 572,-147 552.53,-135.66 531.27,-121.7 515.21,-110.82"/>
+<polygon fill="#000000" stroke="#000000" points="517.1,-107.87 506.87,-105.13 513.16,-113.66 517.1,-107.87"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-154.89C430.89,-150.77 414.54,-146.11 399.37,-141.8"/>
-<polygon fill="#000000" stroke="#000000" points="400.19,-138.39 389.61,-139.02 398.27,-145.12 400.19,-138.39"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C300.24,-244.52 251.15,-211.17 223.87,-189.63"/>
+<polygon fill="#000000" stroke="#000000" points="225.78,-186.67 215.8,-183.1 221.37,-192.11 225.78,-186.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M607.61,-185.12C591.15,-197.81 563.34,-217.22 536,-227 458.15,-254.87 433.49,-261.78 351.5,-251"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-251C254.02,-242.29 222.95,-243.38 142,-192 109.38,-171.3 82.04,-134.94 66.86,-111.95"/>
+<polygon fill="#000000" stroke="#000000" points="69.65,-109.82 61.3,-103.29 63.76,-113.6 69.65,-109.82"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-63C140.96,-67.17 123.7,-71.9 107.75,-76.27"/>
+<polygon fill="#000000" stroke="#000000" points="106.75,-72.92 98.03,-78.94 108.6,-79.67 106.75,-72.92"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge16" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C317.58,-43.61 286.76,-43.19 260.42,-44.45"/>
-<polygon fill="#000000" stroke="#000000" points="259.96,-40.97 250.18,-45.03 260.36,-47.96 259.96,-40.97"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C321.96,-167.18 291.24,-166.6 265,-167.2"/>
+<polygon fill="#000000" stroke="#000000" points="264.7,-163.7 254.81,-167.49 264.9,-170.7 264.7,-163.7"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.53,-160.96C433.45,-156.31 416.02,-150.93 400.14,-146.02"/>
+<polygon fill="#000000" stroke="#000000" points="401.07,-142.64 390.48,-143.04 399,-149.33 401.07,-142.64"/>
 </g>
 <!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.1,-74.85C421.06,-66.47 381.99,-55.62 347,-48.89"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-48.89C278.52,-36.09 261.08,12.35 197.5,-10.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-171C324.51,-167.53 318.63,-163.17 296,-152 251.34,-129.96 251.67,-94.59 202,-91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.33,-175.13C414.91,-175.65 381.2,-175.12 351.5,-171"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.87,-9.2C253,-8.7 192,-11.96 142,-30 116.3,-39.27 91.11,-58 74.31,-72.27"/>
+<polygon fill="#000000" stroke="#000000" points="72,-69.64 66.77,-78.86 76.61,-74.92 72,-69.64"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M445.35,-98.89C430.89,-103 414.54,-107.66 399.37,-111.98"/>
-<polygon fill="#000000" stroke="#000000" points="398.27,-108.65 389.61,-114.76 400.19,-115.38 398.27,-108.65"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M444.47,-105.02C431.82,-108.56 417.83,-112.47 404.63,-116.16"/>
+<polygon fill="#000000" stroke="#000000" points="403.41,-112.86 394.72,-118.92 405.29,-119.6 403.41,-112.86"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-194.89C138.49,-190.77 122.02,-186.11 106.74,-181.8"/>
-<polygon fill="#000000" stroke="#000000" points="107.49,-178.37 96.91,-179.02 105.58,-185.11 107.49,-178.37"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.95,-94.42C384.38,-95.74 286.07,-96.74 202,-91"/>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M177.83,-158.85C153.03,-145.26 112.7,-123.16 84.83,-107.9"/>
+<polygon fill="#000000" stroke="#000000" points="86.36,-104.74 75.9,-103 82.99,-110.88 86.36,-104.74"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_edge23" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M316.74,-114.82C307.21,-110.59 296.57,-105.69 287,-100.89 266.6,-90.64 244.18,-78.11 226.88,-68.16"/>
-<polygon fill="#000000" stroke="#000000" points="228.25,-64.91 217.84,-62.93 224.74,-70.97 228.25,-64.91"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-143C289.86,-147.17 272.41,-151.9 256.31,-156.27"/>
+<polygon fill="#000000" stroke="#000000" points="255.21,-152.94 246.48,-158.94 257.05,-159.7 255.21,-152.94"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~symba_util.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-166.89C169.66,-168.61 141.1,-168.91 116.44,-168.67"/>
-<polygon fill="#000000" stroke="#000000" points="116.18,-165.17 106.14,-168.54 116.09,-172.17 116.18,-165.17"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-138.97C285.12,-149.7 239.06,-164.12 197.5,-166.89"/>
-</g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~symba_util.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-284.89C139.78,-269.01 92.08,-216.53 68.94,-187.19"/>
-<polygon fill="#000000" stroke="#000000" points="71.69,-185.03 62.82,-179.24 66.14,-189.3 71.69,-185.03"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.87,-257C278.48,-270.93 219.44,-291.14 197.5,-284.89"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.03,-118.95C289.62,-108.24 243.56,-93.84 202,-91"/>
 </g>
 </g>
 </svg>
@@ -564,7 +562,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-2"></a>   <span class="k">use </span><span class="n">swiftest</span>
 <a name="ln-3"></a><span class="k">contains</span>
 <a name="ln-4"></a>
-<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">symba_util_append_arr_info</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">symba_util_append_arr_info</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
 <a name="ln-6"></a>      <span class="c">!! author: David A. Minton</span>
 <a name="ln-7"></a>      <span class="c">!!</span>
 <a name="ln-8"></a>      <span class="c">!! Append a single array of particle information type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.</span>
@@ -572,855 +570,852 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-10"></a>      <span class="c">! Arguments</span>
 <a name="ln-11"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
 <a name="ln-12"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
-<a name="ln-13"></a>      <span class="kt">logical</span><span class="p">,</span>                   <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-14"></a>      <span class="c">! Internals</span>
-<a name="ln-15"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">narr</span><span class="p">,</span> <span class="n">nsrc</span>
-<a name="ln-16"></a>
-<a name="ln-17"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">source</span><span class="p">))</span> <span class="k">return</span>
-<a name="ln-18"></a>
-<a name="ln-19"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-20"></a><span class="k">         </span><span class="n">nsrc</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-21"></a>      <span class="k">else</span>
-<a name="ln-22"></a><span class="k">         </span><span class="n">nsrc</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
-<a name="ln-23"></a>      <span class="k">end if</span>
-<a name="ln-24"></a>
-<a name="ln-25"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-26"></a><span class="k">         </span><span class="n">narr</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-27"></a>      <span class="k">else</span>
-<a name="ln-28"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">nsrc</span><span class="p">))</span>
-<a name="ln-29"></a>         <span class="n">narr</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-30"></a>      <span class="k">end if</span>
-<a name="ln-31"></a>
-<a name="ln-32"></a><span class="k">      call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span>
-<a name="ln-33"></a>
-<a name="ln-34"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-35"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">narr</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(:),</span> <span class="n">lsource_mask</span><span class="p">(:))</span>
-<a name="ln-36"></a>      <span class="k">else</span>
-<a name="ln-37"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">narr</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">(:)</span>
-<a name="ln-38"></a>      <span class="k">end if</span>
-<a name="ln-39"></a>
-<a name="ln-40"></a><span class="k">      return</span>
-<a name="ln-41"></a><span class="k">   end subroutine </span><span class="n">symba_util_append_arr_info</span>
+<a name="ln-13"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span>   <span class="c">!! Extend of the old array and the source array, respectively</span>
+<a name="ln-14"></a>      <span class="kt">logical</span><span class="p">,</span>                   <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-15"></a>
+<a name="ln-16"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">source</span><span class="p">))</span> <span class="k">return</span>
+<a name="ln-17"></a>
+<a name="ln-18"></a><span class="k">      if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-19"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">nold</span><span class="o">+</span><span class="n">nsrc</span><span class="p">))</span>
+<a name="ln-20"></a>      <span class="k">else</span>
+<a name="ln-21"></a><span class="k">         call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nold</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span>
+<a name="ln-22"></a>      <span class="k">end if</span>
+<a name="ln-23"></a>
+<a name="ln-24"></a><span class="k">      </span><span class="n">arr</span><span class="p">(</span><span class="n">nold</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">nold</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">),</span> <span class="n">lsource_mask</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">))</span>
+<a name="ln-25"></a>
+<a name="ln-26"></a>      <span class="k">return</span>
+<a name="ln-27"></a><span class="k">   end subroutine </span><span class="n">symba_util_append_arr_info</span>
+<a name="ln-28"></a>
+<a name="ln-29"></a>
+<a name="ln-30"></a>   <span class="k">module subroutine </span><span class="n">symba_util_append_arr_kin</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-31"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-32"></a>      <span class="c">!!</span>
+<a name="ln-33"></a>      <span class="c">!! Append a single array of kinship type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.</span>
+<a name="ln-34"></a>      <span class="k">implicit none</span>
+<a name="ln-35"></a>      <span class="c">! Arguments</span>
+<a name="ln-36"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
+<a name="ln-37"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
+<a name="ln-38"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span>   <span class="c">!! Extend of the old array and the source array, respectively</span>
+<a name="ln-39"></a>      <span class="kt">logical</span><span class="p">,</span>             <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-40"></a>
+<a name="ln-41"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">source</span><span class="p">))</span> <span class="k">return</span>
 <a name="ln-42"></a>
-<a name="ln-43"></a>
-<a name="ln-44"></a>   <span class="k">module subroutine </span><span class="n">symba_util_append_arr_kin</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-45"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-46"></a>      <span class="c">!!</span>
-<a name="ln-47"></a>      <span class="c">!! Append a single array of kinship type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.</span>
-<a name="ln-48"></a>      <span class="k">implicit none</span>
-<a name="ln-49"></a>      <span class="c">! Arguments</span>
-<a name="ln-50"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
-<a name="ln-51"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
-<a name="ln-52"></a>      <span class="kt">logical</span><span class="p">,</span>             <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-53"></a>      <span class="c">! Internals</span>
-<a name="ln-54"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">narr</span><span class="p">,</span> <span class="n">nsrc</span>
-<a name="ln-55"></a>
-<a name="ln-56"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">source</span><span class="p">))</span> <span class="k">return</span>
-<a name="ln-57"></a>
-<a name="ln-58"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-59"></a><span class="k">         </span><span class="n">nsrc</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-60"></a>      <span class="k">else</span>
-<a name="ln-61"></a><span class="k">         </span><span class="n">nsrc</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
-<a name="ln-62"></a>      <span class="k">end if</span>
-<a name="ln-63"></a>
-<a name="ln-64"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-65"></a><span class="k">         </span><span class="n">narr</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-66"></a>      <span class="k">else</span>
-<a name="ln-67"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">nsrc</span><span class="p">))</span>
-<a name="ln-68"></a>         <span class="n">narr</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-69"></a>      <span class="k">end if</span>
-<a name="ln-70"></a>
-<a name="ln-71"></a><span class="k">      call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span>
-<a name="ln-72"></a>
-<a name="ln-73"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-74"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">narr</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(:),</span> <span class="n">lsource_mask</span><span class="p">(:))</span>
-<a name="ln-75"></a>      <span class="k">else</span>
-<a name="ln-76"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">narr</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">(:)</span>
-<a name="ln-77"></a>      <span class="k">end if</span>
-<a name="ln-78"></a>
-<a name="ln-79"></a><span class="k">      return</span>
-<a name="ln-80"></a><span class="k">   end subroutine </span><span class="n">symba_util_append_arr_kin</span>
+<a name="ln-43"></a><span class="k">      if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-44"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">nold</span><span class="o">+</span><span class="n">nsrc</span><span class="p">))</span>
+<a name="ln-45"></a>      <span class="k">else</span>
+<a name="ln-46"></a><span class="k">         call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nold</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span>
+<a name="ln-47"></a>      <span class="k">end if</span>
+<a name="ln-48"></a>
+<a name="ln-49"></a><span class="k">      </span><span class="n">arr</span><span class="p">(</span><span class="n">nold</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">nold</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">),</span> <span class="n">lsource_mask</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">))</span>
+<a name="ln-50"></a>
+<a name="ln-51"></a>      <span class="k">return</span>
+<a name="ln-52"></a><span class="k">   end subroutine </span><span class="n">symba_util_append_arr_kin</span>
+<a name="ln-53"></a>
+<a name="ln-54"></a>
+<a name="ln-55"></a>   <span class="k">module subroutine </span><span class="n">symba_util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-56"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-57"></a>      <span class="c">!!</span>
+<a name="ln-58"></a>      <span class="c">!! Append components from one massive body object to another. </span>
+<a name="ln-59"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
+<a name="ln-60"></a>      <span class="k">implicit none</span>
+<a name="ln-61"></a>      <span class="c">!! Arguments</span>
+<a name="ln-62"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA massive body object</span>
+<a name="ln-63"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
+<a name="ln-64"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-65"></a>
+<a name="ln-66"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
+<a name="ln-67"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-68"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">nold</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">nsrc</span> <span class="o">=&gt;</span> <span class="n">source</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-69"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lcollision</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">lcollision</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-70"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lencounter</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">lencounter</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-71"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-72"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-73"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-74"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-75"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-76"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-77"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-78"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-79"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">kin</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">kin</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-80"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
 <a name="ln-81"></a>
-<a name="ln-82"></a>
-<a name="ln-83"></a>   <span class="k">module subroutine </span><span class="n">symba_util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-84"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-85"></a>      <span class="c">!!</span>
-<a name="ln-86"></a>      <span class="c">!! Append components from one massive body object to another. </span>
-<a name="ln-87"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
-<a name="ln-88"></a>      <span class="k">implicit none</span>
-<a name="ln-89"></a>      <span class="c">!! Arguments</span>
-<a name="ln-90"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA massive body object</span>
-<a name="ln-91"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
-<a name="ln-92"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-93"></a>
-<a name="ln-94"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
-<a name="ln-95"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-96"></a>         <span class="k">call </span><span class="n">util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span> <span class="c">! Note: helio_pl does not have its own append method, so we skip back to the base class</span>
-<a name="ln-97"></a>
-<a name="ln-98"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lcollision</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">lcollision</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-99"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lencounter</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">lencounter</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-100"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-101"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-102"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-103"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-104"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-105"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-106"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-107"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-108"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">kin</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">kin</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-109"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-110"></a>      <span class="k">class </span><span class="n">default</span>
-<a name="ln-111"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the append method. Source must be of class symba_pl or its descendents!&quot;</span>
-<a name="ln-112"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-113"></a>      <span class="k">end select</span>
-<a name="ln-114"></a>
-<a name="ln-115"></a><span class="k">      return</span>
-<a name="ln-116"></a><span class="k">   end subroutine </span><span class="n">symba_util_append_pl</span>
-<a name="ln-117"></a>
-<a name="ln-118"></a>
-<a name="ln-119"></a>   <span class="k">module subroutine </span><span class="n">symba_util_append_merger</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-120"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-121"></a>      <span class="c">!!</span>
-<a name="ln-122"></a>      <span class="c">!! Append components from one massive body object to another. </span>
-<a name="ln-123"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
-<a name="ln-124"></a>      <span class="k">implicit none</span>
-<a name="ln-125"></a>      <span class="c">! Arguments</span>
-<a name="ln-126"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_merger</span><span class="p">),</span>             <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA massive body object</span>
-<a name="ln-127"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
-<a name="ln-128"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-129"></a>      <span class="c">! Internals</span>
-<a name="ln-130"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>        <span class="kd">::</span> <span class="n">ncomp_tmp</span>    <span class="c">!! Temporary placeholder for ncomp incase we are appending a symba_pl object to a symba_merger</span>
-<a name="ln-131"></a>
-<a name="ln-132"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
-<a name="ln-133"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_merger</span><span class="p">)</span>
-<a name="ln-134"></a>         <span class="k">call </span><span class="n">symba_util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span> 
-<a name="ln-135"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncomp</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">ncomp</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-136"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-137"></a>         <span class="k">call </span><span class="n">symba_util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span> 
-<a name="ln-138"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">ncomp_tmp</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">source</span><span class="p">%</span><span class="n">id</span><span class="p">)</span>
-<a name="ln-139"></a>         <span class="n">ncomp_tmp</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-140"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncomp</span><span class="p">,</span> <span class="n">ncomp_tmp</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-141"></a>      <span class="k">class </span><span class="n">default</span>
-<a name="ln-142"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the append method. Source must be of class symba_pl or its descendents!&quot;</span>
-<a name="ln-143"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-144"></a>      <span class="k">end select</span>
-<a name="ln-145"></a>
-<a name="ln-146"></a><span class="k">      return</span>
-<a name="ln-147"></a><span class="k">   end subroutine </span><span class="n">symba_util_append_merger</span>
+<a name="ln-82"></a>            <span class="k">call </span><span class="n">util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span> <span class="c">! Note: helio_pl does not have its own append method, so we skip back to the base class</span>
+<a name="ln-83"></a>         <span class="k">end associate</span>
+<a name="ln-84"></a><span class="k">      class </span><span class="n">default</span>
+<a name="ln-85"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the append method. Source must be of class symba_pl or its descendents!&quot;</span>
+<a name="ln-86"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-87"></a>      <span class="k">end select</span>
+<a name="ln-88"></a>
+<a name="ln-89"></a><span class="k">      return</span>
+<a name="ln-90"></a><span class="k">   end subroutine </span><span class="n">symba_util_append_pl</span>
+<a name="ln-91"></a>
+<a name="ln-92"></a>
+<a name="ln-93"></a>   <span class="k">module subroutine </span><span class="n">symba_util_append_merger</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-94"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-95"></a>      <span class="c">!!</span>
+<a name="ln-96"></a>      <span class="c">!! Append components from one massive body object to another. </span>
+<a name="ln-97"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
+<a name="ln-98"></a>      <span class="k">implicit none</span>
+<a name="ln-99"></a>      <span class="c">! Arguments</span>
+<a name="ln-100"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_merger</span><span class="p">),</span>             <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA massive body object</span>
+<a name="ln-101"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
+<a name="ln-102"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-103"></a>      <span class="c">! Internals</span>
+<a name="ln-104"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span>        <span class="kd">::</span> <span class="n">ncomp_tmp</span>    <span class="c">!! Temporary placeholder for ncomp incase we are appending a symba_pl object to a symba_merger</span>
+<a name="ln-105"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span>
+<a name="ln-106"></a>
+<a name="ln-107"></a>      <span class="n">nold</span> <span class="o">=</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-108"></a>      <span class="n">nsrc</span> <span class="o">=</span> <span class="n">source</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-109"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
+<a name="ln-110"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_merger</span><span class="p">)</span>
+<a name="ln-111"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncomp</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">ncomp</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-112"></a>         <span class="k">call </span><span class="n">symba_util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span> 
+<a name="ln-113"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-114"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">ncomp_tmp</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">source</span><span class="p">%</span><span class="n">id</span><span class="p">)</span>
+<a name="ln-115"></a>         <span class="n">ncomp_tmp</span><span class="p">(:)</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-116"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncomp</span><span class="p">,</span> <span class="n">ncomp_tmp</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-117"></a>         <span class="k">call </span><span class="n">symba_util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span> 
+<a name="ln-118"></a>      <span class="k">class </span><span class="n">default</span>
+<a name="ln-119"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the append method. Source must be of class symba_pl or its descendents!&quot;</span>
+<a name="ln-120"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-121"></a>      <span class="k">end select</span>
+<a name="ln-122"></a>
+<a name="ln-123"></a>      <span class="c">! Save the number of appended bodies </span>
+<a name="ln-124"></a>      <span class="n">self</span><span class="p">%</span><span class="n">ncomp</span><span class="p">(</span><span class="n">nold</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="o">+</span><span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="n">nsrc</span>
+<a name="ln-125"></a>
+<a name="ln-126"></a>      <span class="k">return</span>
+<a name="ln-127"></a><span class="k">   end subroutine </span><span class="n">symba_util_append_merger</span>
+<a name="ln-128"></a>
+<a name="ln-129"></a>
+<a name="ln-130"></a>   <span class="k">module subroutine </span><span class="n">symba_util_append_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-131"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-132"></a>      <span class="c">!!</span>
+<a name="ln-133"></a>      <span class="c">!! Append components from test particle object to another. </span>
+<a name="ln-134"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
+<a name="ln-135"></a>      <span class="k">implicit none</span>
+<a name="ln-136"></a>      <span class="c">!! Arguments</span>
+<a name="ln-137"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA test particle object</span>
+<a name="ln-138"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
+<a name="ln-139"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-140"></a>
+<a name="ln-141"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
+<a name="ln-142"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
+<a name="ln-143"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">nold</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">nsrc</span> <span class="o">=&gt;</span> <span class="n">source</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-144"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-145"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-146"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-147"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
 <a name="ln-148"></a>
-<a name="ln-149"></a>
-<a name="ln-150"></a>   <span class="k">module subroutine </span><span class="n">symba_util_append_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-151"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-152"></a>      <span class="c">!!</span>
-<a name="ln-153"></a>      <span class="c">!! Append components from test particle object to another. </span>
-<a name="ln-154"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
-<a name="ln-155"></a>      <span class="k">implicit none</span>
-<a name="ln-156"></a>      <span class="c">!! Arguments</span>
-<a name="ln-157"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA test particle object</span>
-<a name="ln-158"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
-<a name="ln-159"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-160"></a>
-<a name="ln-161"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
-<a name="ln-162"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
-<a name="ln-163"></a>         <span class="k">call </span><span class="n">util_append_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span> <span class="c">! Note: helio_tp does not have its own append method, so we skip back to the base class</span>
-<a name="ln-164"></a>
-<a name="ln-165"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-166"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-167"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-168"></a>      <span class="k">class </span><span class="n">default</span>
-<a name="ln-169"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the append method. Source must be of class symba_tp or its descendents!&quot;</span>
-<a name="ln-170"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-171"></a>      <span class="k">end select</span>
+<a name="ln-149"></a>            <span class="k">call </span><span class="n">util_append_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span> <span class="c">! Note: helio_tp does not have its own append method, so we skip back to the base class</span>
+<a name="ln-150"></a>         <span class="k">end associate</span>
+<a name="ln-151"></a><span class="k">      class </span><span class="n">default</span>
+<a name="ln-152"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the append method. Source must be of class symba_tp or its descendents!&quot;</span>
+<a name="ln-153"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-154"></a>      <span class="k">end select</span>
+<a name="ln-155"></a>
+<a name="ln-156"></a><span class="k">      return</span>
+<a name="ln-157"></a><span class="k">   end subroutine </span><span class="n">symba_util_append_tp</span>
+<a name="ln-158"></a>
+<a name="ln-159"></a>
+<a name="ln-160"></a>   <span class="k">module subroutine </span><span class="n">symba_util_fill_arr_info</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-161"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-162"></a>      <span class="c">!!</span>
+<a name="ln-163"></a>      <span class="c">!! Performs a fill operation on a single array of particle origin information types</span>
+<a name="ln-164"></a>      <span class="c">!! This is the inverse of a spill operation</span>
+<a name="ln-165"></a>      <span class="k">implicit none</span>
+<a name="ln-166"></a>      <span class="c">! Arguments</span>
+<a name="ln-167"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
+<a name="ln-168"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
+<a name="ln-169"></a>      <span class="kt">logical</span><span class="p">,</span>                   <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-170"></a>
+<a name="ln-171"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">inserts</span><span class="p">))</span> <span class="k">return</span>
 <a name="ln-172"></a>
-<a name="ln-173"></a><span class="k">      return</span>
-<a name="ln-174"></a><span class="k">   end subroutine </span><span class="n">symba_util_append_tp</span>
-<a name="ln-175"></a>
-<a name="ln-176"></a>
-<a name="ln-177"></a>   <span class="k">module subroutine </span><span class="n">symba_util_fill_arr_info</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-178"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-179"></a>      <span class="c">!!</span>
-<a name="ln-180"></a>      <span class="c">!! Performs a fill operation on a single array of particle origin information types</span>
-<a name="ln-181"></a>      <span class="c">!! This is the inverse of a spill operation</span>
-<a name="ln-182"></a>      <span class="k">implicit none</span>
-<a name="ln-183"></a>      <span class="c">! Arguments</span>
-<a name="ln-184"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
-<a name="ln-185"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
-<a name="ln-186"></a>      <span class="kt">logical</span><span class="p">,</span>                   <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-187"></a>
-<a name="ln-188"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">inserts</span><span class="p">))</span> <span class="k">return</span>
-<a name="ln-189"></a>
-<a name="ln-190"></a><span class="k">      </span><span class="n">keeps</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">unpack</span><span class="p">(</span><span class="n">keeps</span><span class="p">(:),</span>   <span class="p">.</span><span class="nb">not</span><span class="p">.</span><span class="n">lfill_list</span><span class="p">(:),</span> <span class="n">keeps</span><span class="p">(:))</span>
-<a name="ln-191"></a>      <span class="n">keeps</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">unpack</span><span class="p">(</span><span class="n">inserts</span><span class="p">(:),</span>      <span class="n">lfill_list</span><span class="p">(:),</span> <span class="n">keeps</span><span class="p">(:))</span>
-<a name="ln-192"></a>   
-<a name="ln-193"></a>      <span class="k">return</span>
-<a name="ln-194"></a><span class="k">   end subroutine </span><span class="n">symba_util_fill_arr_info</span>
-<a name="ln-195"></a>
-<a name="ln-196"></a>
-<a name="ln-197"></a>   <span class="k">module subroutine </span><span class="n">symba_util_fill_arr_kin</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-198"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-199"></a>      <span class="c">!!</span>
-<a name="ln-200"></a>      <span class="c">!! Performs a fill operation on a single array of particle kinship types</span>
-<a name="ln-201"></a>      <span class="c">!! This is the inverse of a spill operation   </span>
-<a name="ln-202"></a>      <span class="k">implicit none</span>
-<a name="ln-203"></a>      <span class="c">! Arguments</span>
-<a name="ln-204"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
-<a name="ln-205"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
-<a name="ln-206"></a>      <span class="kt">logical</span><span class="p">,</span>             <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-207"></a>
-<a name="ln-208"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">inserts</span><span class="p">))</span> <span class="k">return</span>
-<a name="ln-209"></a>
-<a name="ln-210"></a><span class="k">      </span><span class="n">keeps</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">unpack</span><span class="p">(</span><span class="n">keeps</span><span class="p">(:),</span>   <span class="p">.</span><span class="nb">not</span><span class="p">.</span><span class="n">lfill_list</span><span class="p">(:),</span> <span class="n">keeps</span><span class="p">(:))</span>
-<a name="ln-211"></a>      <span class="n">keeps</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">unpack</span><span class="p">(</span><span class="n">inserts</span><span class="p">(:),</span>      <span class="n">lfill_list</span><span class="p">(:),</span> <span class="n">keeps</span><span class="p">(:))</span>
-<a name="ln-212"></a>   
-<a name="ln-213"></a>      <span class="k">return</span>
-<a name="ln-214"></a><span class="k">   end subroutine </span><span class="n">symba_util_fill_arr_kin</span>
-<a name="ln-215"></a>
-<a name="ln-216"></a>
-<a name="ln-217"></a>   <span class="k">module subroutine </span><span class="n">symba_util_fill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-218"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-219"></a>      <span class="c">!!</span>
-<a name="ln-220"></a>      <span class="c">!! Insert new SyMBA test particle structure into an old one. </span>
-<a name="ln-221"></a>      <span class="c">!! This is the inverse of a fill operation.</span>
-<a name="ln-222"></a>      <span class="c">!! </span>
-<a name="ln-223"></a>      <span class="k">implicit none</span>
-<a name="ln-224"></a>      <span class="c">! Arguments</span>
-<a name="ln-225"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! SyMBA masive body object</span>
-<a name="ln-226"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Inserted object </span>
-<a name="ln-227"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-228"></a>
-<a name="ln-229"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
-<a name="ln-230"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">inserts</span><span class="p">)</span>
-<a name="ln-231"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-232"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">lcollision</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">lcollision</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-233"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">lencounter</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">lencounter</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-234"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-235"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-236"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-237"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-238"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-239"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-240"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-241"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-242"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">kin</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">kin</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-243"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-244"></a>            
-<a name="ln-245"></a>            <span class="k">call </span><span class="n">util_fill_pl</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>  <span class="c">! Note: helio_pl does not have its own fill method, so we skip back to the base class</span>
-<a name="ln-246"></a>         <span class="k">class </span><span class="n">default</span>
-<a name="ln-247"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the fill method. Source must be of class symba_pl or its descendents!&quot;</span>
-<a name="ln-248"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-249"></a>         <span class="k">end select</span>
-<a name="ln-250"></a><span class="k">      end associate</span>
-<a name="ln-251"></a>
-<a name="ln-252"></a><span class="k">      return</span>
-<a name="ln-253"></a><span class="k">   end subroutine </span><span class="n">symba_util_fill_pl</span>
-<a name="ln-254"></a>
-<a name="ln-255"></a>
-<a name="ln-256"></a>   <span class="k">module subroutine </span><span class="n">symba_util_fill_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-257"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-258"></a>      <span class="c">!!</span>
-<a name="ln-259"></a>      <span class="c">!! Insert new SyMBA test particle structure into an old one. </span>
-<a name="ln-260"></a>      <span class="c">!! This is the inverse of a fill operation.</span>
-<a name="ln-261"></a>      <span class="c">!! </span>
-<a name="ln-262"></a>      <span class="k">implicit none</span>
-<a name="ln-263"></a>      <span class="c">! Arguments</span>
-<a name="ln-264"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! SyMBA test particle object</span>
-<a name="ln-265"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Inserted object </span>
-<a name="ln-266"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-267"></a>
-<a name="ln-268"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
-<a name="ln-269"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">inserts</span><span class="p">)</span>
-<a name="ln-270"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
-<a name="ln-271"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-272"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-273"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-274"></a>            
-<a name="ln-275"></a>            <span class="k">call </span><span class="n">util_fill_tp</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span> <span class="c">! Note: helio_tp does not have its own fill method, so we skip back to the base class</span>
-<a name="ln-276"></a>         <span class="k">class </span><span class="n">default</span>
-<a name="ln-277"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the fill method. Source must be of class symba_tp or its descendents!&quot;</span>
-<a name="ln-278"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-279"></a>         <span class="k">end select</span>
-<a name="ln-280"></a><span class="k">      end associate</span>
-<a name="ln-281"></a>
-<a name="ln-282"></a><span class="k">      return</span>
-<a name="ln-283"></a><span class="k">   end subroutine </span><span class="n">symba_util_fill_tp</span>
-<a name="ln-284"></a>
+<a name="ln-173"></a><span class="k">      </span><span class="n">keeps</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">unpack</span><span class="p">(</span><span class="n">keeps</span><span class="p">(:),</span>   <span class="p">.</span><span class="nb">not</span><span class="p">.</span><span class="n">lfill_list</span><span class="p">(:),</span> <span class="n">keeps</span><span class="p">(:))</span>
+<a name="ln-174"></a>      <span class="n">keeps</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">unpack</span><span class="p">(</span><span class="n">inserts</span><span class="p">(:),</span>      <span class="n">lfill_list</span><span class="p">(:),</span> <span class="n">keeps</span><span class="p">(:))</span>
+<a name="ln-175"></a>   
+<a name="ln-176"></a>      <span class="k">return</span>
+<a name="ln-177"></a><span class="k">   end subroutine </span><span class="n">symba_util_fill_arr_info</span>
+<a name="ln-178"></a>
+<a name="ln-179"></a>
+<a name="ln-180"></a>   <span class="k">module subroutine </span><span class="n">symba_util_fill_arr_kin</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-181"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-182"></a>      <span class="c">!!</span>
+<a name="ln-183"></a>      <span class="c">!! Performs a fill operation on a single array of particle kinship types</span>
+<a name="ln-184"></a>      <span class="c">!! This is the inverse of a spill operation   </span>
+<a name="ln-185"></a>      <span class="k">implicit none</span>
+<a name="ln-186"></a>      <span class="c">! Arguments</span>
+<a name="ln-187"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>      <span class="c">!! Array of values to keep </span>
+<a name="ln-188"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Array of values to insert into keep</span>
+<a name="ln-189"></a>      <span class="kt">logical</span><span class="p">,</span>             <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-190"></a>
+<a name="ln-191"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="p">.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">inserts</span><span class="p">))</span> <span class="k">return</span>
+<a name="ln-192"></a>
+<a name="ln-193"></a><span class="k">      </span><span class="n">keeps</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">unpack</span><span class="p">(</span><span class="n">keeps</span><span class="p">(:),</span>   <span class="p">.</span><span class="nb">not</span><span class="p">.</span><span class="n">lfill_list</span><span class="p">(:),</span> <span class="n">keeps</span><span class="p">(:))</span>
+<a name="ln-194"></a>      <span class="n">keeps</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">unpack</span><span class="p">(</span><span class="n">inserts</span><span class="p">(:),</span>      <span class="n">lfill_list</span><span class="p">(:),</span> <span class="n">keeps</span><span class="p">(:))</span>
+<a name="ln-195"></a>   
+<a name="ln-196"></a>      <span class="k">return</span>
+<a name="ln-197"></a><span class="k">   end subroutine </span><span class="n">symba_util_fill_arr_kin</span>
+<a name="ln-198"></a>
+<a name="ln-199"></a>
+<a name="ln-200"></a>   <span class="k">module subroutine </span><span class="n">symba_util_fill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-201"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-202"></a>      <span class="c">!!</span>
+<a name="ln-203"></a>      <span class="c">!! Insert new SyMBA test particle structure into an old one. </span>
+<a name="ln-204"></a>      <span class="c">!! This is the inverse of a fill operation.</span>
+<a name="ln-205"></a>      <span class="c">!! </span>
+<a name="ln-206"></a>      <span class="k">implicit none</span>
+<a name="ln-207"></a>      <span class="c">! Arguments</span>
+<a name="ln-208"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! SyMBA masive body object</span>
+<a name="ln-209"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Inserted object </span>
+<a name="ln-210"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-211"></a>
+<a name="ln-212"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-213"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">inserts</span><span class="p">)</span>
+<a name="ln-214"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-215"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">lcollision</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">lcollision</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-216"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">lencounter</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">lencounter</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-217"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-218"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-219"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-220"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-221"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-222"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-223"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-224"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-225"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">kin</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">kin</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-226"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-227"></a>            
+<a name="ln-228"></a>            <span class="k">call </span><span class="n">util_fill_pl</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>  <span class="c">! Note: helio_pl does not have its own fill method, so we skip back to the base class</span>
+<a name="ln-229"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-230"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the fill method. Source must be of class symba_pl or its descendents!&quot;</span>
+<a name="ln-231"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-232"></a>         <span class="k">end select</span>
+<a name="ln-233"></a><span class="k">      end associate</span>
+<a name="ln-234"></a>
+<a name="ln-235"></a><span class="k">      return</span>
+<a name="ln-236"></a><span class="k">   end subroutine </span><span class="n">symba_util_fill_pl</span>
+<a name="ln-237"></a>
+<a name="ln-238"></a>
+<a name="ln-239"></a>   <span class="k">module subroutine </span><span class="n">symba_util_fill_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-240"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-241"></a>      <span class="c">!!</span>
+<a name="ln-242"></a>      <span class="c">!! Insert new SyMBA test particle structure into an old one. </span>
+<a name="ln-243"></a>      <span class="c">!! This is the inverse of a fill operation.</span>
+<a name="ln-244"></a>      <span class="c">!! </span>
+<a name="ln-245"></a>      <span class="k">implicit none</span>
+<a name="ln-246"></a>      <span class="c">! Arguments</span>
+<a name="ln-247"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! SyMBA test particle object</span>
+<a name="ln-248"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! Inserted object </span>
+<a name="ln-249"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-250"></a>
+<a name="ln-251"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-252"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">inserts</span><span class="p">)</span>
+<a name="ln-253"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
+<a name="ln-254"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-255"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-256"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-257"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-258"></a>            
+<a name="ln-259"></a>            <span class="k">call </span><span class="n">util_fill_tp</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span> <span class="c">! Note: helio_tp does not have its own fill method, so we skip back to the base class</span>
+<a name="ln-260"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-261"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the fill method. Source must be of class symba_tp or its descendents!&quot;</span>
+<a name="ln-262"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-263"></a>         <span class="k">end select</span>
+<a name="ln-264"></a><span class="k">      end associate</span>
+<a name="ln-265"></a>
+<a name="ln-266"></a><span class="k">      return</span>
+<a name="ln-267"></a><span class="k">   end subroutine </span><span class="n">symba_util_fill_tp</span>
+<a name="ln-268"></a>
+<a name="ln-269"></a>
+<a name="ln-270"></a>   <span class="k">module subroutine </span><span class="n">symba_util_peri_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-271"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-272"></a>      <span class="c">!!</span>
+<a name="ln-273"></a>      <span class="c">!! Determine system pericenter passages for planets in SyMBA</span>
+<a name="ln-274"></a>      <span class="c">!!</span>
+<a name="ln-275"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_peri.f90</span>
+<a name="ln-276"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine util_mass_peri.f</span>
+<a name="ln-277"></a>      <span class="k">implicit none</span>
+<a name="ln-278"></a>      <span class="c">! Arguments</span>
+<a name="ln-279"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA massive body object</span>
+<a name="ln-280"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-281"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
+<a name="ln-282"></a>      <span class="c">! Internals</span>
+<a name="ln-283"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>       <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-284"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">vdotr</span><span class="p">,</span> <span class="n">e</span>
 <a name="ln-285"></a>
-<a name="ln-286"></a>   <span class="k">module subroutine </span><span class="n">symba_util_peri_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-287"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-288"></a>      <span class="c">!!</span>
-<a name="ln-289"></a>      <span class="c">!! Determine system pericenter passages for planets in SyMBA</span>
-<a name="ln-290"></a>      <span class="c">!!</span>
-<a name="ln-291"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: symba_peri.f90</span>
-<a name="ln-292"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine util_mass_peri.f</span>
-<a name="ln-293"></a>      <span class="k">implicit none</span>
-<a name="ln-294"></a>      <span class="c">! Arguments</span>
-<a name="ln-295"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA massive body object</span>
-<a name="ln-296"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-297"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
-<a name="ln-298"></a>      <span class="c">! Internals</span>
-<a name="ln-299"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>       <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-300"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>           <span class="kd">::</span> <span class="n">vdotr</span><span class="p">,</span> <span class="n">e</span>
-<a name="ln-301"></a>
-<a name="ln-302"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
-<a name="ln-303"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">lfirst</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-304"></a><span class="k">            if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span> <span class="o">==</span> <span class="s2">&quot;HELIO&quot;</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-305"></a><span class="k">               do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-306"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-307"></a><span class="k">                     </span><span class="n">vdotr</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-308"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">vdotr</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-309"></a><span class="k">                        </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-310"></a>                     <span class="k">else</span>
-<a name="ln-311"></a><span class="k">                        </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-312"></a>                     <span class="k">end if</span>
-<a name="ln-313"></a><span class="k">                  end if</span>
-<a name="ln-314"></a><span class="k">               end do</span>
-<a name="ln-315"></a><span class="k">            else</span>
-<a name="ln-316"></a><span class="k">               do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-317"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-318"></a><span class="k">                     </span><span class="n">vdotr</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-319"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">vdotr</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-320"></a><span class="k">                        </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-321"></a>                     <span class="k">else</span>
-<a name="ln-322"></a><span class="k">                        </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-323"></a>                     <span class="k">end if</span>
-<a name="ln-324"></a><span class="k">                  end if</span>
-<a name="ln-325"></a><span class="k">               end do</span>
-<a name="ln-326"></a><span class="k">            end if</span>
-<a name="ln-327"></a><span class="k">         else</span>
-<a name="ln-328"></a><span class="k">            if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span> <span class="o">==</span> <span class="s2">&quot;HELIO&quot;</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-329"></a><span class="k">               do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-330"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-331"></a><span class="k">                     </span><span class="n">vdotr</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-332"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="o">-</span><span class="mi">1</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-333"></a><span class="k">                        if</span> <span class="p">(</span><span class="n">vdotr</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-334"></a><span class="k">                           </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-335"></a>                           <span class="k">CALL </span><span class="n">orbel_xv2aeq</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">mu</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">e</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">peri</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-336"></a>                        <span class="k">end if</span>
-<a name="ln-337"></a><span class="k">                     else</span>
-<a name="ln-338"></a><span class="k">                        if</span> <span class="p">(</span><span class="n">vdotr</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-339"></a><span class="k">                           </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-340"></a>                        <span class="k">else</span>
-<a name="ln-341"></a><span class="k">                           </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-342"></a>                        <span class="k">end if</span>
-<a name="ln-343"></a><span class="k">                     end if</span>
-<a name="ln-344"></a><span class="k">                  end if</span>
-<a name="ln-345"></a><span class="k">               end do</span>
-<a name="ln-346"></a><span class="k">            else</span>
-<a name="ln-347"></a><span class="k">               do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-348"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-349"></a><span class="k">                     </span><span class="n">vdotr</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-350"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="o">-</span><span class="mi">1</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-351"></a><span class="k">                        if</span> <span class="p">(</span><span class="n">vdotr</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-352"></a><span class="k">                           </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-353"></a>                           <span class="k">CALL </span><span class="n">orbel_xv2aeq</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">Gmtot</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">e</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">peri</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-354"></a>                        <span class="k">end if</span>
-<a name="ln-355"></a><span class="k">                     else</span>
-<a name="ln-356"></a><span class="k">                        if</span> <span class="p">(</span><span class="n">vdotr</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-357"></a><span class="k">                           </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-358"></a>                        <span class="k">else</span>
-<a name="ln-359"></a><span class="k">                           </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-360"></a>                        <span class="k">end if</span>
-<a name="ln-361"></a><span class="k">                     end if</span>
-<a name="ln-362"></a><span class="k">                  end if</span>
-<a name="ln-363"></a><span class="k">               end do</span>
-<a name="ln-364"></a><span class="k">            end if</span>
-<a name="ln-365"></a><span class="k">         end if</span>
-<a name="ln-366"></a><span class="k">      end associate</span>
-<a name="ln-367"></a><span class="k"> </span>
-<a name="ln-368"></a><span class="k">     return</span>
-<a name="ln-369"></a><span class="k">   end subroutine </span><span class="n">symba_util_peri_pl</span>
-<a name="ln-370"></a>
-<a name="ln-371"></a>
-<a name="ln-372"></a>   <span class="k">module subroutine </span><span class="n">symba_util_rearray_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
-<a name="ln-373"></a>      <span class="c">!! Author: the Purdue Swiftest Team -  David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</span>
-<a name="ln-374"></a>      <span class="c">!!</span>
-<a name="ln-375"></a>      <span class="c">!! Clean up the massive body structures to remove discarded bodies and add new bodies</span>
-<a name="ln-376"></a>      <span class="k">implicit none</span>
-<a name="ln-377"></a>      <span class="c">! Arguments</span>
-<a name="ln-378"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA massive body object</span>
-<a name="ln-379"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
-<a name="ln-380"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
-<a name="ln-381"></a>      <span class="c">! Internals</span>
-<a name="ln-382"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">pl_discards</span> <span class="c">!! The discarded body list.</span>
-<a name="ln-383"></a>
-<a name="ln-384"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">mergeadd_list</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">mergeadd_list</span><span class="p">)</span>
-<a name="ln-385"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">pl_discards</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">pl</span><span class="p">)</span>
-<a name="ln-386"></a>         <span class="c">! Remove the discards</span>
-<a name="ln-387"></a>         <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">spill</span><span class="p">(</span><span class="n">pl_discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="o">=</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(:)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(:)</span> <span class="o">==</span> <span class="n">INACTIVE</span><span class="p">),</span> <span class="n">ldestructive</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
+<a name="ln-286"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-287"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">lfirst</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-288"></a><span class="k">            if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span> <span class="o">==</span> <span class="s2">&quot;HELIO&quot;</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-289"></a><span class="k">               do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
+<a name="ln-290"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-291"></a><span class="k">                     </span><span class="n">vdotr</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-292"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">vdotr</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-293"></a><span class="k">                        </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-294"></a>                     <span class="k">else</span>
+<a name="ln-295"></a><span class="k">                        </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-296"></a>                     <span class="k">end if</span>
+<a name="ln-297"></a><span class="k">                  end if</span>
+<a name="ln-298"></a><span class="k">               end do</span>
+<a name="ln-299"></a><span class="k">            else</span>
+<a name="ln-300"></a><span class="k">               do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
+<a name="ln-301"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-302"></a><span class="k">                     </span><span class="n">vdotr</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-303"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">vdotr</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-304"></a><span class="k">                        </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-305"></a>                     <span class="k">else</span>
+<a name="ln-306"></a><span class="k">                        </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-307"></a>                     <span class="k">end if</span>
+<a name="ln-308"></a><span class="k">                  end if</span>
+<a name="ln-309"></a><span class="k">               end do</span>
+<a name="ln-310"></a><span class="k">            end if</span>
+<a name="ln-311"></a><span class="k">         else</span>
+<a name="ln-312"></a><span class="k">            if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">qmin_coord</span> <span class="o">==</span> <span class="s2">&quot;HELIO&quot;</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-313"></a><span class="k">               do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
+<a name="ln-314"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-315"></a><span class="k">                     </span><span class="n">vdotr</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-316"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="o">-</span><span class="mi">1</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-317"></a><span class="k">                        if</span> <span class="p">(</span><span class="n">vdotr</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-318"></a><span class="k">                           </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-319"></a>                           <span class="k">CALL </span><span class="n">orbel_xv2aeq</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">mu</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">e</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">peri</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-320"></a>                        <span class="k">end if</span>
+<a name="ln-321"></a><span class="k">                     else</span>
+<a name="ln-322"></a><span class="k">                        if</span> <span class="p">(</span><span class="n">vdotr</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-323"></a><span class="k">                           </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-324"></a>                        <span class="k">else</span>
+<a name="ln-325"></a><span class="k">                           </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-326"></a>                        <span class="k">end if</span>
+<a name="ln-327"></a><span class="k">                     end if</span>
+<a name="ln-328"></a><span class="k">                  end if</span>
+<a name="ln-329"></a><span class="k">               end do</span>
+<a name="ln-330"></a><span class="k">            else</span>
+<a name="ln-331"></a><span class="k">               do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
+<a name="ln-332"></a>                  <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">ACTIVE</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-333"></a><span class="k">                     </span><span class="n">vdotr</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-334"></a>                     <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="o">-</span><span class="mi">1</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-335"></a><span class="k">                        if</span> <span class="p">(</span><span class="n">vdotr</span> <span class="o">&gt;=</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-336"></a><span class="k">                           </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-337"></a>                           <span class="k">CALL </span><span class="n">orbel_xv2aeq</span><span class="p">(</span><span class="nb">system</span><span class="p">%</span><span class="n">Gmtot</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="n">i</span><span class="p">),</span> <span class="n">e</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">peri</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-338"></a>                        <span class="k">end if</span>
+<a name="ln-339"></a><span class="k">                     else</span>
+<a name="ln-340"></a><span class="k">                        if</span> <span class="p">(</span><span class="n">vdotr</span> <span class="o">&gt;</span> <span class="mf">0.0_DP</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-341"></a><span class="k">                           </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-342"></a>                        <span class="k">else</span>
+<a name="ln-343"></a><span class="k">                           </span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-344"></a>                        <span class="k">end if</span>
+<a name="ln-345"></a><span class="k">                     end if</span>
+<a name="ln-346"></a><span class="k">                  end if</span>
+<a name="ln-347"></a><span class="k">               end do</span>
+<a name="ln-348"></a><span class="k">            end if</span>
+<a name="ln-349"></a><span class="k">         end if</span>
+<a name="ln-350"></a><span class="k">      end associate</span>
+<a name="ln-351"></a><span class="k"> </span>
+<a name="ln-352"></a><span class="k">     return</span>
+<a name="ln-353"></a><span class="k">   end subroutine </span><span class="n">symba_util_peri_pl</span>
+<a name="ln-354"></a>
+<a name="ln-355"></a>
+<a name="ln-356"></a>   <span class="k">module subroutine </span><span class="n">symba_util_rearray_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-357"></a>      <span class="c">!! Author: the Purdue Swiftest Team -  David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</span>
+<a name="ln-358"></a>      <span class="c">!!</span>
+<a name="ln-359"></a>      <span class="c">!! Clean up the massive body structures to remove discarded bodies and add new bodies</span>
+<a name="ln-360"></a>      <span class="k">implicit none</span>
+<a name="ln-361"></a>      <span class="c">! Arguments</span>
+<a name="ln-362"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! SyMBA massive body object</span>
+<a name="ln-363"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="nb">system</span> <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-364"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
+<a name="ln-365"></a>      <span class="c">! Internals</span>
+<a name="ln-366"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmp</span> <span class="c">!! The discarded body list.</span>
+<a name="ln-367"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-368"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">lmask</span>
+<a name="ln-369"></a>
+<a name="ln-370"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">pl_adds</span> <span class="o">=&gt;</span> <span class="nb">system</span><span class="p">%</span><span class="n">pl_adds</span><span class="p">)</span>
+<a name="ln-371"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">,</span> <span class="n">mold</span><span class="o">=</span><span class="n">pl</span><span class="p">)</span>
+<a name="ln-372"></a>         <span class="c">! Remove the discards and destroy the list, as the system already tracks pl_discards elsewhere</span>
+<a name="ln-373"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">lmask</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">pl</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">(:))</span>
+<a name="ln-374"></a>         <span class="n">lmask</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">lmask</span><span class="p">(:)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(:)</span> <span class="o">==</span> <span class="n">INACTIVE</span>
+<a name="ln-375"></a>         <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">spill</span><span class="p">(</span><span class="n">tmp</span><span class="p">,</span> <span class="n">lspill_list</span><span class="o">=</span><span class="n">lmask</span><span class="p">,</span> <span class="n">ldestructive</span><span class="o">=</span><span class="p">.</span><span class="n">true</span><span class="p">.)</span>
+<a name="ln-376"></a>         <span class="k">call </span><span class="n">tmp</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">0</span><span class="p">,</span><span class="n">param</span><span class="p">)</span>
+<a name="ln-377"></a>         <span class="k">deallocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">)</span>
+<a name="ln-378"></a>
+<a name="ln-379"></a>         <span class="c">! Deallocate any temporary variables</span>
+<a name="ln-380"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xbeg</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xbeg</span><span class="p">)</span>
+<a name="ln-381"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xend</span><span class="p">))</span> <span class="k">deallocate</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xend</span><span class="p">)</span>
+<a name="ln-382"></a>
+<a name="ln-383"></a>         <span class="c">! Add in any new bodies</span>
+<a name="ln-384"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">pl_adds</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-385"></a><span class="k">            call </span><span class="n">pl</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">pl_adds</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="o">=</span><span class="p">[(.</span><span class="n">true</span><span class="p">.,</span> <span class="n">i</span><span class="o">=</span><span class="mi">1</span><span class="p">,</span> <span class="n">pl_adds</span><span class="p">%</span><span class="n">nbody</span><span class="p">)])</span>
+<a name="ln-386"></a>            <span class="k">call </span><span class="n">symba_io_dump_particle_info</span><span class="p">(</span><span class="nb">system</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">plidx</span><span class="o">=</span><span class="p">[(</span><span class="n">i</span><span class="p">,</span> <span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)])</span>
+<a name="ln-387"></a>         <span class="k">end if</span> 
 <a name="ln-388"></a>
-<a name="ln-389"></a>         <span class="c">! Add in any new bodies</span>
-<a name="ln-390"></a>         <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">append</span><span class="p">(</span><span class="n">mergeadd_list</span><span class="p">)</span>
-<a name="ln-391"></a>
-<a name="ln-392"></a>         <span class="c">! If there are still bodies in the system, sort by mass in descending order and re-index</span>
-<a name="ln-393"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-394"></a><span class="k">            call </span><span class="n">pl</span><span class="p">%</span><span class="n">sort</span><span class="p">(</span><span class="s2">&quot;mass&quot;</span><span class="p">,</span> <span class="n">ascending</span><span class="o">=</span><span class="p">.</span><span class="n">false</span><span class="p">.)</span>
-<a name="ln-395"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(:)</span> <span class="o">&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">MTINY</span>
-<a name="ln-396"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">nplm</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">(:))</span>
-<a name="ln-397"></a>            <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">eucl_index</span><span class="p">()</span>
-<a name="ln-398"></a>         <span class="k">end if</span>
-<a name="ln-399"></a>
-<a name="ln-400"></a>         <span class="c">! Destroy the discarded body list, since we already have what we need in the mergesub_list</span>
-<a name="ln-401"></a>         <span class="k">call </span><span class="n">pl_discards</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">0</span><span class="p">,</span><span class="n">param</span><span class="p">)</span>
-<a name="ln-402"></a>         <span class="k">deallocate</span><span class="p">(</span><span class="n">pl_discards</span><span class="p">)</span>
-<a name="ln-403"></a>      <span class="k">end associate</span>
-<a name="ln-404"></a>
-<a name="ln-405"></a><span class="k">      return</span>
-<a name="ln-406"></a><span class="k">   end subroutine </span><span class="n">symba_util_rearray_pl</span>
-<a name="ln-407"></a>
-<a name="ln-408"></a>
-<a name="ln-409"></a>   <span class="k">module subroutine </span><span class="n">symba_util_resize_arr_info</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-410"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-411"></a>      <span class="c">!!</span>
-<a name="ln-412"></a>      <span class="c">!! Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</span>
-<a name="ln-413"></a>      <span class="k">implicit none</span>
-<a name="ln-414"></a>      <span class="c">! Arguments</span>
-<a name="ln-415"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
-<a name="ln-416"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
-<a name="ln-417"></a>      <span class="c">! Internals</span>
-<a name="ln-418"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmp</span> <span class="c">!! Temporary storage array in case the input array is already allocated</span>
-<a name="ln-419"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nold</span> <span class="c">!! Old size</span>
-<a name="ln-420"></a>
-<a name="ln-421"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">nnew</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-422"></a>
-<a name="ln-423"></a><span class="k">      </span><span class="n">nold</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-424"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="n">nold</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-425"></a>
-<a name="ln-426"></a><span class="k">      if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-427"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-428"></a>         <span class="k">return</span>
-<a name="ln-429"></a><span class="k">      end if</span>
-<a name="ln-430"></a><span class="k">      </span>
-<a name="ln-431"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">nnew</span><span class="p">))</span>
-<a name="ln-432"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">&gt;</span> <span class="n">nold</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-433"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span>
-<a name="ln-434"></a>      <span class="k">else</span>
-<a name="ln-435"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span>
-<a name="ln-436"></a>      <span class="k">end if</span>
-<a name="ln-437"></a><span class="k">      call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">tmp</span><span class="p">,</span> <span class="n">arr</span><span class="p">)</span>
-<a name="ln-438"></a>
-<a name="ln-439"></a>      <span class="k">return</span>
-<a name="ln-440"></a><span class="k">   end subroutine </span><span class="n">symba_util_resize_arr_info</span>
-<a name="ln-441"></a>
-<a name="ln-442"></a>
-<a name="ln-443"></a>   <span class="k">module subroutine </span><span class="n">symba_util_resize_arr_kin</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-444"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-445"></a>      <span class="c">!!</span>
-<a name="ln-446"></a>      <span class="c">!! Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</span>
-<a name="ln-447"></a>      <span class="k">implicit none</span>
-<a name="ln-448"></a>      <span class="c">! Arguments</span>
-<a name="ln-449"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
-<a name="ln-450"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
-<a name="ln-451"></a>      <span class="c">! Internals</span>
-<a name="ln-452"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmp</span> <span class="c">!! Temporary storage array in case the input array is already allocated</span>
-<a name="ln-453"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nold</span> <span class="c">!! Old size</span>
-<a name="ln-454"></a>
-<a name="ln-455"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">nnew</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-456"></a>
-<a name="ln-457"></a><span class="k">      </span><span class="n">nold</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-458"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="n">nold</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-459"></a>
-<a name="ln-460"></a><span class="k">      if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-461"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-462"></a>         <span class="k">return</span>
-<a name="ln-463"></a><span class="k">      end if</span>
-<a name="ln-464"></a><span class="k">      </span>
-<a name="ln-465"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">nnew</span><span class="p">))</span>
-<a name="ln-466"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">&gt;</span> <span class="n">nold</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-467"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span>
-<a name="ln-468"></a>      <span class="k">else</span>
-<a name="ln-469"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span>
-<a name="ln-470"></a>      <span class="k">end if</span>
-<a name="ln-471"></a><span class="k">      call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">tmp</span><span class="p">,</span> <span class="n">arr</span><span class="p">)</span>
-<a name="ln-472"></a>
-<a name="ln-473"></a>      <span class="k">return</span>
-<a name="ln-474"></a><span class="k">   end subroutine </span><span class="n">symba_util_resize_arr_kin</span>
-<a name="ln-475"></a>
-<a name="ln-476"></a>
-<a name="ln-477"></a>   <span class="k">module subroutine </span><span class="n">symba_util_resize_merger</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-478"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-479"></a>      <span class="c">!!</span>
-<a name="ln-480"></a>      <span class="c">!! Checks the current size of a SyMBA merger list against the requested size and resizes it if it is too small.</span>
-<a name="ln-481"></a>      <span class="k">implicit none</span>
-<a name="ln-482"></a>      <span class="c">! Arguments</span>
-<a name="ln-483"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_merger</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA massive body object</span>
-<a name="ln-484"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
-<a name="ln-485"></a>
-<a name="ln-486"></a>      <span class="k">call </span><span class="n">symba_util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-389"></a>         <span class="c">! If there are still bodies in the system, sort by mass in descending order and re-index</span>
+<a name="ln-390"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-391"></a><span class="k">            call </span><span class="n">pl</span><span class="p">%</span><span class="n">sort</span><span class="p">(</span><span class="s2">&quot;mass&quot;</span><span class="p">,</span> <span class="n">ascending</span><span class="o">=</span><span class="p">.</span><span class="n">false</span><span class="p">.)</span>
+<a name="ln-392"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(:)</span> <span class="o">&gt;</span> <span class="n">param</span><span class="p">%</span><span class="n">GMTINY</span>
+<a name="ln-393"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">nplm</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">(:))</span>
+<a name="ln-394"></a>            <span class="k">call </span><span class="n">pl</span><span class="p">%</span><span class="n">eucl_index</span><span class="p">()</span>
+<a name="ln-395"></a>         <span class="k">end if</span>
+<a name="ln-396"></a>
+<a name="ln-397"></a><span class="k">      end associate</span>
+<a name="ln-398"></a>
+<a name="ln-399"></a><span class="k">      return</span>
+<a name="ln-400"></a><span class="k">   end subroutine </span><span class="n">symba_util_rearray_pl</span>
+<a name="ln-401"></a>
+<a name="ln-402"></a>
+<a name="ln-403"></a>   <span class="k">module subroutine </span><span class="n">symba_util_resize_arr_info</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-404"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-405"></a>      <span class="c">!!</span>
+<a name="ln-406"></a>      <span class="c">!! Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</span>
+<a name="ln-407"></a>      <span class="k">implicit none</span>
+<a name="ln-408"></a>      <span class="c">! Arguments</span>
+<a name="ln-409"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
+<a name="ln-410"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
+<a name="ln-411"></a>      <span class="c">! Internals</span>
+<a name="ln-412"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmp</span> <span class="c">!! Temporary storage array in case the input array is already allocated</span>
+<a name="ln-413"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nold</span> <span class="c">!! Old size</span>
+<a name="ln-414"></a>
+<a name="ln-415"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">nnew</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-416"></a>
+<a name="ln-417"></a><span class="k">      </span><span class="n">nold</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-418"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="n">nold</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-419"></a>
+<a name="ln-420"></a><span class="k">      if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-421"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-422"></a>         <span class="k">return</span>
+<a name="ln-423"></a><span class="k">      end if</span>
+<a name="ln-424"></a><span class="k">      </span>
+<a name="ln-425"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">nnew</span><span class="p">))</span>
+<a name="ln-426"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">&gt;</span> <span class="n">nold</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-427"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span>
+<a name="ln-428"></a>      <span class="k">else</span>
+<a name="ln-429"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span>
+<a name="ln-430"></a>      <span class="k">end if</span>
+<a name="ln-431"></a><span class="k">      call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">tmp</span><span class="p">,</span> <span class="n">arr</span><span class="p">)</span>
+<a name="ln-432"></a>
+<a name="ln-433"></a>      <span class="k">return</span>
+<a name="ln-434"></a><span class="k">   end subroutine </span><span class="n">symba_util_resize_arr_info</span>
+<a name="ln-435"></a>
+<a name="ln-436"></a>
+<a name="ln-437"></a>   <span class="k">module subroutine </span><span class="n">symba_util_resize_arr_kin</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-438"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-439"></a>      <span class="c">!!</span>
+<a name="ln-440"></a>      <span class="c">!! Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</span>
+<a name="ln-441"></a>      <span class="k">implicit none</span>
+<a name="ln-442"></a>      <span class="c">! Arguments</span>
+<a name="ln-443"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
+<a name="ln-444"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
+<a name="ln-445"></a>      <span class="c">! Internals</span>
+<a name="ln-446"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmp</span> <span class="c">!! Temporary storage array in case the input array is already allocated</span>
+<a name="ln-447"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nold</span> <span class="c">!! Old size</span>
+<a name="ln-448"></a>
+<a name="ln-449"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">nnew</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-450"></a>
+<a name="ln-451"></a><span class="k">      </span><span class="n">nold</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-452"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="n">nold</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-453"></a>
+<a name="ln-454"></a><span class="k">      if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-455"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-456"></a>         <span class="k">return</span>
+<a name="ln-457"></a><span class="k">      end if</span>
+<a name="ln-458"></a><span class="k">      </span>
+<a name="ln-459"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">nnew</span><span class="p">))</span>
+<a name="ln-460"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">&gt;</span> <span class="n">nold</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-461"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span>
+<a name="ln-462"></a>      <span class="k">else</span>
+<a name="ln-463"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span>
+<a name="ln-464"></a>      <span class="k">end if</span>
+<a name="ln-465"></a><span class="k">      call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">tmp</span><span class="p">,</span> <span class="n">arr</span><span class="p">)</span>
+<a name="ln-466"></a>
+<a name="ln-467"></a>      <span class="k">return</span>
+<a name="ln-468"></a><span class="k">   end subroutine </span><span class="n">symba_util_resize_arr_kin</span>
+<a name="ln-469"></a>
+<a name="ln-470"></a>
+<a name="ln-471"></a>   <span class="k">module subroutine </span><span class="n">symba_util_resize_merger</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-472"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-473"></a>      <span class="c">!!</span>
+<a name="ln-474"></a>      <span class="c">!! Checks the current size of a SyMBA merger list against the requested size and resizes it if it is too small.</span>
+<a name="ln-475"></a>      <span class="k">implicit none</span>
+<a name="ln-476"></a>      <span class="c">! Arguments</span>
+<a name="ln-477"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_merger</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA massive body object</span>
+<a name="ln-478"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
+<a name="ln-479"></a>
+<a name="ln-480"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncomp</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-481"></a>
+<a name="ln-482"></a>      <span class="k">call </span><span class="n">symba_util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-483"></a>
+<a name="ln-484"></a>      <span class="k">return</span>
+<a name="ln-485"></a><span class="k">   end subroutine </span><span class="n">symba_util_resize_merger</span>
+<a name="ln-486"></a>
 <a name="ln-487"></a>
-<a name="ln-488"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ncomp</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-489"></a>
-<a name="ln-490"></a>      <span class="k">return</span>
-<a name="ln-491"></a><span class="k">   end subroutine </span><span class="n">symba_util_resize_merger</span>
-<a name="ln-492"></a>
-<a name="ln-493"></a>
-<a name="ln-494"></a>   <span class="k">module subroutine </span><span class="n">symba_util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-495"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-496"></a>      <span class="c">!!</span>
-<a name="ln-497"></a>      <span class="c">!! Checks the current size of a SyMBA massive body object against the requested size and resizes it if it is too small.</span>
-<a name="ln-498"></a>      <span class="k">implicit none</span>
-<a name="ln-499"></a>      <span class="c">! Arguments</span>
-<a name="ln-500"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA massive body object</span>
-<a name="ln-501"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
-<a name="ln-502"></a>
-<a name="ln-503"></a>      <span class="k">call </span><span class="n">util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-504"></a>
-<a name="ln-505"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lcollision</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-506"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lencounter</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-507"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-508"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-509"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-510"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-511"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-512"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-513"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-514"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-515"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">kin</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-516"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-517"></a>
-<a name="ln-518"></a>      <span class="k">return</span>
-<a name="ln-519"></a><span class="k">   end subroutine </span><span class="n">symba_util_resize_pl</span>
-<a name="ln-520"></a>
-<a name="ln-521"></a>
-<a name="ln-522"></a>   <span class="k">module subroutine </span><span class="n">symba_util_resize_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-523"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-524"></a>      <span class="c">!!</span>
-<a name="ln-525"></a>      <span class="c">!! Checks the current size of a test particle object against the requested size and resizes it if it is too small.</span>
-<a name="ln-526"></a>      <span class="k">implicit none</span>
-<a name="ln-527"></a>      <span class="c">! Arguments</span>
-<a name="ln-528"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA test particle object</span>
-<a name="ln-529"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
-<a name="ln-530"></a>
-<a name="ln-531"></a>      <span class="k">call </span><span class="n">util_resize_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-532"></a>
-<a name="ln-533"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-534"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-535"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-536"></a>
-<a name="ln-537"></a>      <span class="k">return</span>
-<a name="ln-538"></a><span class="k">   end subroutine </span><span class="n">symba_util_resize_tp</span>
-<a name="ln-539"></a>
-<a name="ln-540"></a>
-<a name="ln-541"></a>   <span class="k">module subroutine </span><span class="n">symba_util_sort_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
-<a name="ln-542"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-543"></a>      <span class="c">!!</span>
-<a name="ln-544"></a>      <span class="c">!! Sort a SyMBA massive body object in-place. </span>
-<a name="ln-545"></a>      <span class="c">!! sortby is a string indicating which array component to sort.</span>
-<a name="ln-546"></a>      <span class="k">implicit none</span>
-<a name="ln-547"></a>      <span class="c">! Arguments</span>
-<a name="ln-548"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! SyMBA massive body object</span>
-<a name="ln-549"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>    <span class="c">!! Sorting attribute</span>
-<a name="ln-550"></a>      <span class="kt">logical</span><span class="p">,</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
-<a name="ln-551"></a>      <span class="c">! Internals</span>
-<a name="ln-552"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ind</span>
-<a name="ln-553"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                        <span class="kd">::</span> <span class="n">direction</span>
-<a name="ln-554"></a>
-<a name="ln-555"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-556"></a>
-<a name="ln-557"></a><span class="k">      if</span> <span class="p">(</span><span class="n">ascending</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-558"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-559"></a>      <span class="k">else</span>
-<a name="ln-560"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-561"></a>      <span class="k">end if</span>
-<a name="ln-562"></a>
-<a name="ln-563"></a><span class="k">      associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
-<a name="ln-564"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
-<a name="ln-565"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;nplenc&quot;</span><span class="p">)</span>
-<a name="ln-566"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-567"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;ntpenc&quot;</span><span class="p">)</span>
-<a name="ln-568"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-569"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;levelg&quot;</span><span class="p">)</span>
-<a name="ln-570"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-571"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;levelm&quot;</span><span class="p">)</span>
-<a name="ln-572"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-573"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;peri&quot;</span><span class="p">)</span>
-<a name="ln-574"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">peri</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-575"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;atp&quot;</span><span class="p">)</span>
-<a name="ln-576"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-577"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;lcollision&quot;</span><span class="p">,</span> <span class="s2">&quot;lencounter&quot;</span><span class="p">,</span> <span class="s2">&quot;lmtiny&quot;</span><span class="p">,</span> <span class="s2">&quot;nplm&quot;</span><span class="p">,</span> <span class="s2">&quot;nplplm&quot;</span><span class="p">,</span> <span class="s2">&quot;kin&quot;</span><span class="p">,</span> <span class="s2">&quot;info&quot;</span><span class="p">)</span>
-<a name="ln-578"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Cannot sort by &#39;</span> <span class="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">sortby</span><span class="p">))</span> <span class="o">//</span> <span class="s1">&#39;. Component not sortable!&#39;</span>
-<a name="ln-579"></a>         <span class="k">case </span><span class="n">default</span> <span class="c">! Look for components in the parent class</span>
-<a name="ln-580"></a>            <span class="k">call </span><span class="n">util_sort_pl</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
-<a name="ln-581"></a>            <span class="k">return</span>
-<a name="ln-582"></a><span class="k">         end select</span>
-<a name="ln-583"></a>
-<a name="ln-584"></a><span class="k">         call </span><span class="n">pl</span><span class="p">%</span><span class="n">rearrange</span><span class="p">(</span><span class="n">ind</span><span class="p">)</span>
+<a name="ln-488"></a>   <span class="k">module subroutine </span><span class="n">symba_util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-489"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-490"></a>      <span class="c">!!</span>
+<a name="ln-491"></a>      <span class="c">!! Checks the current size of a SyMBA massive body object against the requested size and resizes it if it is too small.</span>
+<a name="ln-492"></a>      <span class="k">implicit none</span>
+<a name="ln-493"></a>      <span class="c">! Arguments</span>
+<a name="ln-494"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA massive body object</span>
+<a name="ln-495"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
+<a name="ln-496"></a>
+<a name="ln-497"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lcollision</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-498"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lencounter</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-499"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-500"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-501"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-502"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-503"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-504"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-505"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-506"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-507"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">kin</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-508"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-509"></a>
+<a name="ln-510"></a>      <span class="k">call </span><span class="n">util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-511"></a>
+<a name="ln-512"></a>      <span class="k">return</span>
+<a name="ln-513"></a><span class="k">   end subroutine </span><span class="n">symba_util_resize_pl</span>
+<a name="ln-514"></a>
+<a name="ln-515"></a>
+<a name="ln-516"></a>   <span class="k">module subroutine </span><span class="n">symba_util_resize_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-517"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-518"></a>      <span class="c">!!</span>
+<a name="ln-519"></a>      <span class="c">!! Checks the current size of a test particle object against the requested size and resizes it if it is too small.</span>
+<a name="ln-520"></a>      <span class="k">implicit none</span>
+<a name="ln-521"></a>      <span class="c">! Arguments</span>
+<a name="ln-522"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! SyMBA test particle object</span>
+<a name="ln-523"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
+<a name="ln-524"></a>
+<a name="ln-525"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-526"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-527"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-528"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-529"></a>
+<a name="ln-530"></a>      <span class="k">call </span><span class="n">util_resize_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-531"></a>
+<a name="ln-532"></a>      <span class="k">return</span>
+<a name="ln-533"></a><span class="k">   end subroutine </span><span class="n">symba_util_resize_tp</span>
+<a name="ln-534"></a>
+<a name="ln-535"></a>
+<a name="ln-536"></a>   <span class="k">module subroutine </span><span class="n">symba_util_sort_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
+<a name="ln-537"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-538"></a>      <span class="c">!!</span>
+<a name="ln-539"></a>      <span class="c">!! Sort a SyMBA massive body object in-place. </span>
+<a name="ln-540"></a>      <span class="c">!! sortby is a string indicating which array component to sort.</span>
+<a name="ln-541"></a>      <span class="k">implicit none</span>
+<a name="ln-542"></a>      <span class="c">! Arguments</span>
+<a name="ln-543"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! SyMBA massive body object</span>
+<a name="ln-544"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>    <span class="c">!! Sorting attribute</span>
+<a name="ln-545"></a>      <span class="kt">logical</span><span class="p">,</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
+<a name="ln-546"></a>      <span class="c">! Internals</span>
+<a name="ln-547"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ind</span>
+<a name="ln-548"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                        <span class="kd">::</span> <span class="n">direction</span>
+<a name="ln-549"></a>
+<a name="ln-550"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-551"></a>
+<a name="ln-552"></a><span class="k">      if</span> <span class="p">(</span><span class="n">ascending</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-553"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-554"></a>      <span class="k">else</span>
+<a name="ln-555"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-556"></a>      <span class="k">end if</span>
+<a name="ln-557"></a>
+<a name="ln-558"></a><span class="k">      associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-559"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
+<a name="ln-560"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;nplenc&quot;</span><span class="p">)</span>
+<a name="ln-561"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-562"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;ntpenc&quot;</span><span class="p">)</span>
+<a name="ln-563"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-564"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;levelg&quot;</span><span class="p">)</span>
+<a name="ln-565"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-566"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;levelm&quot;</span><span class="p">)</span>
+<a name="ln-567"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-568"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;peri&quot;</span><span class="p">)</span>
+<a name="ln-569"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">peri</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-570"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;atp&quot;</span><span class="p">)</span>
+<a name="ln-571"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-572"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;lcollision&quot;</span><span class="p">,</span> <span class="s2">&quot;lencounter&quot;</span><span class="p">,</span> <span class="s2">&quot;lmtiny&quot;</span><span class="p">,</span> <span class="s2">&quot;nplm&quot;</span><span class="p">,</span> <span class="s2">&quot;nplplm&quot;</span><span class="p">,</span> <span class="s2">&quot;kin&quot;</span><span class="p">,</span> <span class="s2">&quot;info&quot;</span><span class="p">)</span>
+<a name="ln-573"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Cannot sort by &#39;</span> <span class="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">sortby</span><span class="p">))</span> <span class="o">//</span> <span class="s1">&#39;. Component not sortable!&#39;</span>
+<a name="ln-574"></a>         <span class="k">case </span><span class="n">default</span> <span class="c">! Look for components in the parent class</span>
+<a name="ln-575"></a>            <span class="k">call </span><span class="n">util_sort_pl</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
+<a name="ln-576"></a>            <span class="k">return</span>
+<a name="ln-577"></a><span class="k">         end select</span>
+<a name="ln-578"></a>
+<a name="ln-579"></a><span class="k">         call </span><span class="n">pl</span><span class="p">%</span><span class="n">rearrange</span><span class="p">(</span><span class="n">ind</span><span class="p">)</span>
+<a name="ln-580"></a>
+<a name="ln-581"></a>      <span class="k">end associate</span>
+<a name="ln-582"></a><span class="k">      return</span>
+<a name="ln-583"></a><span class="k">   end subroutine </span><span class="n">symba_util_sort_pl</span>
+<a name="ln-584"></a>
 <a name="ln-585"></a>
-<a name="ln-586"></a>      <span class="k">end associate</span>
-<a name="ln-587"></a><span class="k">      return</span>
-<a name="ln-588"></a><span class="k">   end subroutine </span><span class="n">symba_util_sort_pl</span>
-<a name="ln-589"></a>
-<a name="ln-590"></a>
-<a name="ln-591"></a>   <span class="k">module subroutine </span><span class="n">symba_util_sort_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
-<a name="ln-592"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-593"></a>      <span class="c">!!</span>
-<a name="ln-594"></a>      <span class="c">!! Sort a SyMBA test particle object in-place. </span>
-<a name="ln-595"></a>      <span class="c">!! sortby is a string indicating which array component to sort.</span>
-<a name="ln-596"></a>      <span class="k">implicit none</span>
-<a name="ln-597"></a>      <span class="c">! Arguments</span>
-<a name="ln-598"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! SyMBA test particle object</span>
-<a name="ln-599"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>    <span class="c">!! Sorting attribute</span>
-<a name="ln-600"></a>      <span class="kt">logical</span><span class="p">,</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
-<a name="ln-601"></a>      <span class="c">! Internals</span>
-<a name="ln-602"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ind</span>
-<a name="ln-603"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                        <span class="kd">::</span> <span class="n">direction</span>
-<a name="ln-604"></a>
-<a name="ln-605"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-606"></a>
-<a name="ln-607"></a><span class="k">      if</span> <span class="p">(</span><span class="n">ascending</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-608"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-609"></a>      <span class="k">else</span>
-<a name="ln-610"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-611"></a>      <span class="k">end if</span>
-<a name="ln-612"></a>
-<a name="ln-613"></a><span class="k">      associate</span><span class="p">(</span><span class="n">tp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
-<a name="ln-614"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
-<a name="ln-615"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;nplenc&quot;</span><span class="p">)</span>
-<a name="ln-616"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">tp</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
-<a name="ln-617"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;levelg&quot;</span><span class="p">)</span>
-<a name="ln-618"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">tp</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
-<a name="ln-619"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;levelm&quot;</span><span class="p">)</span>
-<a name="ln-620"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">tp</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
-<a name="ln-621"></a>         <span class="k">case </span><span class="n">default</span> <span class="c">! Look for components in the parent class</span>
-<a name="ln-622"></a>            <span class="k">call </span><span class="n">util_sort_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
-<a name="ln-623"></a>            <span class="k">return</span>
-<a name="ln-624"></a><span class="k">         end select</span>
-<a name="ln-625"></a>
-<a name="ln-626"></a><span class="k">         call </span><span class="n">tp</span><span class="p">%</span><span class="n">rearrange</span><span class="p">(</span><span class="n">ind</span><span class="p">)</span>
-<a name="ln-627"></a>      <span class="k">end associate</span>
-<a name="ln-628"></a>
-<a name="ln-629"></a><span class="k">      return</span>
-<a name="ln-630"></a><span class="k">   end subroutine </span><span class="n">symba_util_sort_tp</span>
-<a name="ln-631"></a>
-<a name="ln-632"></a>
-<a name="ln-633"></a>   <span class="k">module subroutine </span><span class="n">symba_util_sort_rearrange_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
-<a name="ln-634"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-635"></a>      <span class="c">!!</span>
-<a name="ln-636"></a>      <span class="c">!! Rearrange SyMBA massive body structure in-place from an index list.</span>
-<a name="ln-637"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
-<a name="ln-638"></a>      <span class="k">implicit none</span>
-<a name="ln-639"></a>      <span class="c">! Arguments</span>
-<a name="ln-640"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! SyMBA massive body object</span>
-<a name="ln-641"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
-<a name="ln-642"></a>      <span class="c">! Internals</span>
-<a name="ln-643"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">pl_sorted</span>  <span class="c">!! Temporary holder for sorted body</span>
-<a name="ln-644"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
-<a name="ln-645"></a>
-<a name="ln-646"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
-<a name="ln-647"></a>         <span class="k">call </span><span class="n">util_sort_rearrange_pl</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span><span class="n">ind</span><span class="p">)</span>
-<a name="ln-648"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">pl_sorted</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">self</span><span class="p">)</span>
-<a name="ln-649"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">lcollision</span><span class="p">))</span> <span class="n">pl</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-650"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">lencounter</span><span class="p">))</span> <span class="n">pl</span><span class="p">%</span><span class="n">lencounter</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">lencounter</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-651"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">))</span>     <span class="n">pl</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-652"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">nplenc</span><span class="p">))</span>     <span class="n">pl</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-653"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">))</span>     <span class="n">pl</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-654"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">))</span>     <span class="n">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-655"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">levelm</span><span class="p">))</span>     <span class="n">pl</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-656"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">))</span>     <span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-657"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">peri</span><span class="p">))</span>       <span class="n">pl</span><span class="p">%</span><span class="n">peri</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">peri</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-658"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">atp</span><span class="p">))</span>        <span class="n">pl</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-659"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">info</span><span class="p">))</span>       <span class="n">pl</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-660"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-661"></a><span class="k">            </span><span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-662"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-663"></a>               <span class="k">do </span><span class="n">j</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">nchild</span>
-<a name="ln-664"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">child</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">ind</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">child</span><span class="p">(</span><span class="n">j</span><span class="p">))</span>
-<a name="ln-665"></a>               <span class="k">end do</span>
-<a name="ln-666"></a><span class="k">            end do</span>
-<a name="ln-667"></a><span class="k">         end if</span>
-<a name="ln-668"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">pl_sorted</span><span class="p">)</span>
-<a name="ln-669"></a>      <span class="k">end associate</span>
-<a name="ln-670"></a>
-<a name="ln-671"></a><span class="k">      return</span>
-<a name="ln-672"></a><span class="k">   end subroutine </span><span class="n">symba_util_sort_rearrange_pl</span>
-<a name="ln-673"></a>
-<a name="ln-674"></a>
-<a name="ln-675"></a>   <span class="k">module subroutine </span><span class="n">symba_util_sort_rearrange_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
-<a name="ln-676"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-677"></a>      <span class="c">!!</span>
-<a name="ln-678"></a>      <span class="c">!! Rearrange SyMBA test particle object in-place from an index list.</span>
-<a name="ln-679"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
-<a name="ln-680"></a>      <span class="k">implicit none</span>
-<a name="ln-681"></a>      <span class="c">! Arguments</span>
-<a name="ln-682"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! SyMBA test particle object</span>
-<a name="ln-683"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
-<a name="ln-684"></a>      <span class="c">! Internals</span>
-<a name="ln-685"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tp_sorted</span>  <span class="c">!! Temporary holder for sorted body</span>
-<a name="ln-686"></a>
-<a name="ln-687"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">tp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
-<a name="ln-688"></a>         <span class="k">call </span><span class="n">util_sort_rearrange_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span><span class="n">ind</span><span class="p">)</span>
-<a name="ln-689"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">tp_sorted</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">self</span><span class="p">)</span>
-<a name="ln-690"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">nplenc</span><span class="p">))</span> <span class="n">tp</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp_sorted</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
-<a name="ln-691"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">levelg</span><span class="p">))</span> <span class="n">tp</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp_sorted</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
-<a name="ln-692"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">levelm</span><span class="p">))</span> <span class="n">tp</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp_sorted</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
-<a name="ln-693"></a>         <span class="k">deallocate</span><span class="p">(</span><span class="n">tp_sorted</span><span class="p">)</span>
-<a name="ln-694"></a>      <span class="k">end associate</span>
-<a name="ln-695"></a><span class="k">      </span>
-<a name="ln-696"></a><span class="k">      return</span>
-<a name="ln-697"></a><span class="k">   end subroutine </span><span class="n">symba_util_sort_rearrange_tp</span>
-<a name="ln-698"></a>
-<a name="ln-699"></a>
-<a name="ln-700"></a>   <span class="k">module subroutine </span><span class="n">symba_util_spill_arr_info</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-701"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-702"></a>      <span class="c">!!</span>
-<a name="ln-703"></a>      <span class="c">!! Performs a spill operation on a single array of particle origin information types</span>
-<a name="ln-704"></a>      <span class="c">!! This is the inverse of a spill operation</span>
-<a name="ln-705"></a>      <span class="k">implicit none</span>
-<a name="ln-706"></a>      <span class="c">! Arguments</span>
-<a name="ln-707"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
-<a name="ln-708"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array of discards</span>
-<a name="ln-709"></a>      <span class="kt">logical</span><span class="p">,</span>                   <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discardss</span>
-<a name="ln-710"></a>      <span class="kt">logical</span><span class="p">,</span>                                              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
-<a name="ln-711"></a>
-<a name="ln-712"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="nb">count</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(:))</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-713"></a><span class="k">      if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">discards</span><span class="p">))</span> <span class="k">allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="nb">count</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(:))))</span>
-<a name="ln-714"></a>
-<a name="ln-715"></a>      <span class="n">discards</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">keeps</span><span class="p">(:),</span> <span class="n">lspill_list</span><span class="p">(:))</span>
-<a name="ln-716"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ldestructive</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-717"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">count</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lspill_list</span><span class="p">(:))</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-718"></a><span class="k">            </span><span class="n">keeps</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">keeps</span><span class="p">(:),</span> <span class="p">.</span><span class="nb">not</span><span class="p">.</span> <span class="n">lspill_list</span><span class="p">(:))</span>
-<a name="ln-719"></a>         <span class="k">else</span>
-<a name="ln-720"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span>
-<a name="ln-721"></a>         <span class="k">end if</span>
-<a name="ln-722"></a><span class="k">      end if</span>
+<a name="ln-586"></a>   <span class="k">module subroutine </span><span class="n">symba_util_sort_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
+<a name="ln-587"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-588"></a>      <span class="c">!!</span>
+<a name="ln-589"></a>      <span class="c">!! Sort a SyMBA test particle object in-place. </span>
+<a name="ln-590"></a>      <span class="c">!! sortby is a string indicating which array component to sort.</span>
+<a name="ln-591"></a>      <span class="k">implicit none</span>
+<a name="ln-592"></a>      <span class="c">! Arguments</span>
+<a name="ln-593"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! SyMBA test particle object</span>
+<a name="ln-594"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>    <span class="c">!! Sorting attribute</span>
+<a name="ln-595"></a>      <span class="kt">logical</span><span class="p">,</span>         <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
+<a name="ln-596"></a>      <span class="c">! Internals</span>
+<a name="ln-597"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ind</span>
+<a name="ln-598"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                        <span class="kd">::</span> <span class="n">direction</span>
+<a name="ln-599"></a>
+<a name="ln-600"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-601"></a>
+<a name="ln-602"></a><span class="k">      if</span> <span class="p">(</span><span class="n">ascending</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-603"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-604"></a>      <span class="k">else</span>
+<a name="ln-605"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-606"></a>      <span class="k">end if</span>
+<a name="ln-607"></a>
+<a name="ln-608"></a><span class="k">      associate</span><span class="p">(</span><span class="n">tp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-609"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
+<a name="ln-610"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;nplenc&quot;</span><span class="p">)</span>
+<a name="ln-611"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">tp</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-612"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;levelg&quot;</span><span class="p">)</span>
+<a name="ln-613"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">tp</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-614"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;levelm&quot;</span><span class="p">)</span>
+<a name="ln-615"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">tp</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-616"></a>         <span class="k">case </span><span class="n">default</span> <span class="c">! Look for components in the parent class</span>
+<a name="ln-617"></a>            <span class="k">call </span><span class="n">util_sort_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
+<a name="ln-618"></a>            <span class="k">return</span>
+<a name="ln-619"></a><span class="k">         end select</span>
+<a name="ln-620"></a>
+<a name="ln-621"></a><span class="k">         call </span><span class="n">tp</span><span class="p">%</span><span class="n">rearrange</span><span class="p">(</span><span class="n">ind</span><span class="p">)</span>
+<a name="ln-622"></a>      <span class="k">end associate</span>
+<a name="ln-623"></a>
+<a name="ln-624"></a><span class="k">      return</span>
+<a name="ln-625"></a><span class="k">   end subroutine </span><span class="n">symba_util_sort_tp</span>
+<a name="ln-626"></a>
+<a name="ln-627"></a>
+<a name="ln-628"></a>   <span class="k">module subroutine </span><span class="n">symba_util_sort_rearrange_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
+<a name="ln-629"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-630"></a>      <span class="c">!!</span>
+<a name="ln-631"></a>      <span class="c">!! Rearrange SyMBA massive body structure in-place from an index list.</span>
+<a name="ln-632"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
+<a name="ln-633"></a>      <span class="k">implicit none</span>
+<a name="ln-634"></a>      <span class="c">! Arguments</span>
+<a name="ln-635"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! SyMBA massive body object</span>
+<a name="ln-636"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
+<a name="ln-637"></a>      <span class="c">! Internals</span>
+<a name="ln-638"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">pl_sorted</span>  <span class="c">!! Temporary holder for sorted body</span>
+<a name="ln-639"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
+<a name="ln-640"></a>
+<a name="ln-641"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-642"></a>         <span class="k">call </span><span class="n">util_sort_rearrange_pl</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span><span class="n">ind</span><span class="p">)</span>
+<a name="ln-643"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">pl_sorted</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-644"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">lcollision</span><span class="p">))</span> <span class="n">pl</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">lcollision</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-645"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">lencounter</span><span class="p">))</span> <span class="n">pl</span><span class="p">%</span><span class="n">lencounter</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">lencounter</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-646"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">))</span>     <span class="n">pl</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-647"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">nplenc</span><span class="p">))</span>     <span class="n">pl</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-648"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">))</span>     <span class="n">pl</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-649"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">))</span>     <span class="n">pl</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-650"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">levelm</span><span class="p">))</span>     <span class="n">pl</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-651"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">))</span>     <span class="n">pl</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">isperi</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-652"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">peri</span><span class="p">))</span>       <span class="n">pl</span><span class="p">%</span><span class="n">peri</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">peri</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-653"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">atp</span><span class="p">))</span>        <span class="n">pl</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">atp</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-654"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">info</span><span class="p">))</span>       <span class="n">pl</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-655"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-656"></a><span class="k">            </span><span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-657"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
+<a name="ln-658"></a>               <span class="k">do </span><span class="n">j</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">nchild</span>
+<a name="ln-659"></a>                  <span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">child</span><span class="p">(</span><span class="n">j</span><span class="p">)</span> <span class="o">=</span> <span class="n">ind</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">kin</span><span class="p">(</span><span class="n">i</span><span class="p">)%</span><span class="n">child</span><span class="p">(</span><span class="n">j</span><span class="p">))</span>
+<a name="ln-660"></a>               <span class="k">end do</span>
+<a name="ln-661"></a><span class="k">            end do</span>
+<a name="ln-662"></a><span class="k">         end if</span>
+<a name="ln-663"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">pl_sorted</span><span class="p">)</span>
+<a name="ln-664"></a>      <span class="k">end associate</span>
+<a name="ln-665"></a>
+<a name="ln-666"></a><span class="k">      return</span>
+<a name="ln-667"></a><span class="k">   end subroutine </span><span class="n">symba_util_sort_rearrange_pl</span>
+<a name="ln-668"></a>
+<a name="ln-669"></a>
+<a name="ln-670"></a>   <span class="k">module subroutine </span><span class="n">symba_util_sort_rearrange_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
+<a name="ln-671"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-672"></a>      <span class="c">!!</span>
+<a name="ln-673"></a>      <span class="c">!! Rearrange SyMBA test particle object in-place from an index list.</span>
+<a name="ln-674"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
+<a name="ln-675"></a>      <span class="k">implicit none</span>
+<a name="ln-676"></a>      <span class="c">! Arguments</span>
+<a name="ln-677"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! SyMBA test particle object</span>
+<a name="ln-678"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>    <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
+<a name="ln-679"></a>      <span class="c">! Internals</span>
+<a name="ln-680"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tp_sorted</span>  <span class="c">!! Temporary holder for sorted body</span>
+<a name="ln-681"></a>
+<a name="ln-682"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">tp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-683"></a>         <span class="k">call </span><span class="n">util_sort_rearrange_tp</span><span class="p">(</span><span class="n">tp</span><span class="p">,</span><span class="n">ind</span><span class="p">)</span>
+<a name="ln-684"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">tp_sorted</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-685"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">nplenc</span><span class="p">))</span> <span class="n">tp</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp_sorted</span><span class="p">%</span><span class="n">nplenc</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-686"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">levelg</span><span class="p">))</span> <span class="n">tp</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp_sorted</span><span class="p">%</span><span class="n">levelg</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-687"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">levelm</span><span class="p">))</span> <span class="n">tp</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp_sorted</span><span class="p">%</span><span class="n">levelm</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-688"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">tp</span><span class="p">%</span><span class="n">info</span><span class="p">))</span>   <span class="n">tp</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span>   <span class="o">=</span> <span class="n">tp_sorted</span><span class="p">%</span><span class="n">info</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-689"></a>         <span class="k">deallocate</span><span class="p">(</span><span class="n">tp_sorted</span><span class="p">)</span>
+<a name="ln-690"></a>      <span class="k">end associate</span>
+<a name="ln-691"></a><span class="k">      </span>
+<a name="ln-692"></a><span class="k">      return</span>
+<a name="ln-693"></a><span class="k">   end subroutine </span><span class="n">symba_util_sort_rearrange_tp</span>
+<a name="ln-694"></a>
+<a name="ln-695"></a>
+<a name="ln-696"></a>   <span class="k">module subroutine </span><span class="n">symba_util_spill_arr_info</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-697"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-698"></a>      <span class="c">!!</span>
+<a name="ln-699"></a>      <span class="c">!! Performs a spill operation on a single array of particle origin information types</span>
+<a name="ln-700"></a>      <span class="c">!! This is the inverse of a spill operation</span>
+<a name="ln-701"></a>      <span class="k">implicit none</span>
+<a name="ln-702"></a>      <span class="c">! Arguments</span>
+<a name="ln-703"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
+<a name="ln-704"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_particle_info</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array of discards</span>
+<a name="ln-705"></a>      <span class="kt">logical</span><span class="p">,</span>                   <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discardss</span>
+<a name="ln-706"></a>      <span class="kt">logical</span><span class="p">,</span>                                              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
+<a name="ln-707"></a>
+<a name="ln-708"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="nb">count</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(:))</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-709"></a><span class="k">      if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">discards</span><span class="p">))</span> <span class="k">allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="nb">count</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(:))))</span>
+<a name="ln-710"></a>
+<a name="ln-711"></a>      <span class="n">discards</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">keeps</span><span class="p">(:),</span> <span class="n">lspill_list</span><span class="p">(:))</span>
+<a name="ln-712"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ldestructive</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-713"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">count</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lspill_list</span><span class="p">(:))</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-714"></a><span class="k">            </span><span class="n">keeps</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">keeps</span><span class="p">(:),</span> <span class="p">.</span><span class="nb">not</span><span class="p">.</span> <span class="n">lspill_list</span><span class="p">(:))</span>
+<a name="ln-715"></a>         <span class="k">else</span>
+<a name="ln-716"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span>
+<a name="ln-717"></a>         <span class="k">end if</span>
+<a name="ln-718"></a><span class="k">      end if</span>
+<a name="ln-719"></a>
+<a name="ln-720"></a><span class="k">      return</span>
+<a name="ln-721"></a><span class="k">   end subroutine </span><span class="n">symba_util_spill_arr_info</span>
+<a name="ln-722"></a>
 <a name="ln-723"></a>
-<a name="ln-724"></a><span class="k">      return</span>
-<a name="ln-725"></a><span class="k">   end subroutine </span><span class="n">symba_util_spill_arr_info</span>
-<a name="ln-726"></a>
-<a name="ln-727"></a>
-<a name="ln-728"></a>   <span class="k">module subroutine </span><span class="n">symba_util_spill_arr_kin</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-729"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-730"></a>      <span class="c">!!</span>
-<a name="ln-731"></a>      <span class="c">!! Performs a spill operation on a single array of particle kinships</span>
-<a name="ln-732"></a>      <span class="c">!! This is the inverse of a spill operation</span>
-<a name="ln-733"></a>      <span class="k">implicit none</span>
-<a name="ln-734"></a>      <span class="c">! Arguments</span>
-<a name="ln-735"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
-<a name="ln-736"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array of discards</span>
-<a name="ln-737"></a>      <span class="kt">logical</span><span class="p">,</span>             <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discardss</span>
-<a name="ln-738"></a>      <span class="kt">logical</span><span class="p">,</span>                                        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
-<a name="ln-739"></a>
-<a name="ln-740"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="nb">count</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(:))</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-741"></a><span class="k">      if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">discards</span><span class="p">))</span> <span class="k">allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="nb">count</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(:))))</span>
-<a name="ln-742"></a>
-<a name="ln-743"></a>      <span class="n">discards</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">keeps</span><span class="p">(:),</span> <span class="n">lspill_list</span><span class="p">(:))</span>
-<a name="ln-744"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ldestructive</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-745"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">count</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lspill_list</span><span class="p">(:))</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-746"></a><span class="k">            </span><span class="n">keeps</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">keeps</span><span class="p">(:),</span> <span class="p">.</span><span class="nb">not</span><span class="p">.</span> <span class="n">lspill_list</span><span class="p">(:))</span>
-<a name="ln-747"></a>         <span class="k">else</span>
-<a name="ln-748"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span>
-<a name="ln-749"></a>         <span class="k">end if</span>
-<a name="ln-750"></a><span class="k">      end if</span>
+<a name="ln-724"></a>   <span class="k">module subroutine </span><span class="n">symba_util_spill_arr_kin</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-725"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-726"></a>      <span class="c">!!</span>
+<a name="ln-727"></a>      <span class="c">!! Performs a spill operation on a single array of particle kinships</span>
+<a name="ln-728"></a>      <span class="c">!! This is the inverse of a spill operation</span>
+<a name="ln-729"></a>      <span class="k">implicit none</span>
+<a name="ln-730"></a>      <span class="c">! Arguments</span>
+<a name="ln-731"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">keeps</span>        <span class="c">!! Array of values to keep </span>
+<a name="ln-732"></a>      <span class="k">type</span><span class="p">(</span><span class="n">symba_kinship</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Array of discards</span>
+<a name="ln-733"></a>      <span class="kt">logical</span><span class="p">,</span>             <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discardss</span>
+<a name="ln-734"></a>      <span class="kt">logical</span><span class="p">,</span>                                        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
+<a name="ln-735"></a>
+<a name="ln-736"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="nb">count</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(:))</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-737"></a><span class="k">      if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">discards</span><span class="p">))</span> <span class="k">allocate</span><span class="p">(</span><span class="n">discards</span><span class="p">(</span><span class="nb">count</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(:))))</span>
+<a name="ln-738"></a>
+<a name="ln-739"></a>      <span class="n">discards</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">keeps</span><span class="p">(:),</span> <span class="n">lspill_list</span><span class="p">(:))</span>
+<a name="ln-740"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ldestructive</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-741"></a><span class="k">         if</span> <span class="p">(</span><span class="nb">count</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lspill_list</span><span class="p">(:))</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-742"></a><span class="k">            </span><span class="n">keeps</span><span class="p">(:)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">keeps</span><span class="p">(:),</span> <span class="p">.</span><span class="nb">not</span><span class="p">.</span> <span class="n">lspill_list</span><span class="p">(:))</span>
+<a name="ln-743"></a>         <span class="k">else</span>
+<a name="ln-744"></a><span class="k">            deallocate</span><span class="p">(</span><span class="n">keeps</span><span class="p">)</span>
+<a name="ln-745"></a>         <span class="k">end if</span>
+<a name="ln-746"></a><span class="k">      end if</span>
+<a name="ln-747"></a>
+<a name="ln-748"></a><span class="k">      return</span>
+<a name="ln-749"></a><span class="k">   end subroutine </span><span class="n">symba_util_spill_arr_kin</span>
+<a name="ln-750"></a>
 <a name="ln-751"></a>
-<a name="ln-752"></a><span class="k">      return</span>
-<a name="ln-753"></a><span class="k">   end subroutine </span><span class="n">symba_util_spill_arr_kin</span>
-<a name="ln-754"></a>
-<a name="ln-755"></a>
-<a name="ln-756"></a>   <span class="k">module subroutine </span><span class="n">symba_util_spill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-757"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-758"></a>      <span class="c">!!</span>
-<a name="ln-759"></a>      <span class="c">!! Move spilled (discarded) SyMBA massive body particle structure from active list to discard list</span>
-<a name="ln-760"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
-<a name="ln-761"></a>      <span class="k">implicit none</span>
-<a name="ln-762"></a>      <span class="c">! Arguments</span>
-<a name="ln-763"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>        <span class="c">!! SyMBA massive body object</span>
-<a name="ln-764"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>    <span class="c">!! Discarded object </span>
-<a name="ln-765"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span> <span class="c">!! Logical array of bodies to spill into the discards</span>
-<a name="ln-766"></a>      <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter body by removing the discard list</span>
-<a name="ln-767"></a>      <span class="c">! Internals</span>
-<a name="ln-768"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-769"></a>
-<a name="ln-770"></a>      <span class="c">! For each component, pack the discarded bodies into the discard object and do the inverse with the keeps</span>
-<a name="ln-771"></a>      <span class="c">!&gt; Spill all the common components</span>
-<a name="ln-772"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
-<a name="ln-773"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
-<a name="ln-774"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
-<a name="ln-775"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">lcollision</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">lcollision</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-776"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">lencounter</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">lencounter</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-777"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-778"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-779"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-780"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-781"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-782"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-783"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-784"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-785"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-786"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">kin</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">kin</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-787"></a>
-<a name="ln-788"></a>            <span class="k">call </span><span class="n">util_spill_pl</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-789"></a>         <span class="k">class </span><span class="n">default</span>
-<a name="ln-790"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the spill method. Source must be of class symba_pl or its descendents!&quot;</span>
-<a name="ln-791"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-792"></a>         <span class="k">end select</span>
-<a name="ln-793"></a><span class="k">      end associate</span>
-<a name="ln-794"></a><span class="k">     </span>
-<a name="ln-795"></a><span class="k">      return</span>
-<a name="ln-796"></a><span class="k">   end subroutine </span><span class="n">symba_util_spill_pl</span>
-<a name="ln-797"></a>
-<a name="ln-798"></a>
-<a name="ln-799"></a>   <span class="k">module subroutine </span><span class="n">symba_util_spill_pltpenc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-800"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-801"></a>      <span class="c">!!</span>
-<a name="ln-802"></a>      <span class="c">!! Move spilled (discarded) SyMBA encounter structure from active list to discard list</span>
-<a name="ln-803"></a>      <span class="c">!! Note: Because the symba_plplenc currently does not contain any additional variable components, this method can recieve it as an input as well.</span>
-<a name="ln-804"></a>      <span class="k">implicit none</span>
-<a name="ln-805"></a>      <span class="c">! Arguments</span>
-<a name="ln-806"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA pl-tp encounter list </span>
-<a name="ln-807"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Discarded object </span>
-<a name="ln-808"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
-<a name="ln-809"></a>      <span class="kt">logical</span><span class="p">,</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter body by removing the discard list</span>
-<a name="ln-810"></a>      <span class="c">! Internals</span>
-<a name="ln-811"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-812"></a>  
-<a name="ln-813"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
-<a name="ln-814"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
-<a name="ln-815"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">)</span>
-<a name="ln-816"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">level</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">level</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-817"></a>            <span class="k">call </span><span class="n">util_spill_encounter</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-818"></a>         <span class="k">class </span><span class="n">default</span>
-<a name="ln-819"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the spill method. Source must be of class symba_pltpenc or its descendents!&quot;</span>
-<a name="ln-820"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-821"></a>         <span class="k">end select</span>
-<a name="ln-822"></a><span class="k">      end associate</span>
-<a name="ln-823"></a><span class="k">   </span>
-<a name="ln-824"></a><span class="k">      return</span>
-<a name="ln-825"></a><span class="k">   end subroutine </span><span class="n">symba_util_spill_pltpenc</span>
-<a name="ln-826"></a>
-<a name="ln-827"></a>
-<a name="ln-828"></a>   <span class="k">module subroutine </span><span class="n">symba_util_spill_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-829"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-830"></a>      <span class="c">!!</span>
-<a name="ln-831"></a>      <span class="c">!! Move spilled (discarded) SyMBA test particle structure from active list to discard list</span>
-<a name="ln-832"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
-<a name="ln-833"></a>      <span class="k">implicit none</span>
-<a name="ln-834"></a>      <span class="c">! Arguments</span>
-<a name="ln-835"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA test particle object</span>
-<a name="ln-836"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Discarded object </span>
-<a name="ln-837"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
-<a name="ln-838"></a>      <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter body by removing the discard list</span>
-<a name="ln-839"></a>      <span class="c">! Internals</span>
-<a name="ln-840"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-841"></a>
-<a name="ln-842"></a>      <span class="c">! For each component, pack the discarded bodies into the discard object and do the inverse with the keeps</span>
-<a name="ln-843"></a>      <span class="c">!&gt; Spill all the common components</span>
-<a name="ln-844"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
-<a name="ln-845"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
-<a name="ln-846"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
-<a name="ln-847"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-848"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-849"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-850"></a>
-<a name="ln-851"></a>            <span class="k">call </span><span class="n">util_spill_tp</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-852"></a>         <span class="k">class </span><span class="n">default</span>
-<a name="ln-853"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the spill method. Source must be of class symba_tp or its descendents!&quot;</span>
-<a name="ln-854"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-855"></a>         <span class="k">end select</span>
-<a name="ln-856"></a><span class="k">      end associate</span>
-<a name="ln-857"></a><span class="k">     </span>
-<a name="ln-858"></a><span class="k">      return</span>
-<a name="ln-859"></a><span class="k">   end subroutine </span><span class="n">symba_util_spill_tp</span>
-<a name="ln-860"></a>
-<a name="ln-861"></a><span class="k">end submodule </span><span class="n">s_symba_util</span>
+<a name="ln-752"></a>   <span class="k">module subroutine </span><span class="n">symba_util_spill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-753"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-754"></a>      <span class="c">!!</span>
+<a name="ln-755"></a>      <span class="c">!! Move spilled (discarded) SyMBA massive body particle structure from active list to discard list</span>
+<a name="ln-756"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
+<a name="ln-757"></a>      <span class="k">implicit none</span>
+<a name="ln-758"></a>      <span class="c">! Arguments</span>
+<a name="ln-759"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pl</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>        <span class="c">!! SyMBA massive body object</span>
+<a name="ln-760"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>    <span class="c">!! Discarded object </span>
+<a name="ln-761"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span> <span class="c">!! Logical array of bodies to spill into the discards</span>
+<a name="ln-762"></a>      <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter body by removing the discard list</span>
+<a name="ln-763"></a>      <span class="c">! Internals</span>
+<a name="ln-764"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-765"></a>
+<a name="ln-766"></a>      <span class="c">! For each component, pack the discarded bodies into the discard object and do the inverse with the keeps</span>
+<a name="ln-767"></a>      <span class="c">!&gt; Spill all the common components</span>
+<a name="ln-768"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-769"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-770"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pl</span><span class="p">)</span>
+<a name="ln-771"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">lcollision</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">lcollision</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-772"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">lencounter</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">lencounter</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-773"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">lmtiny</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-774"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-775"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">ntpenc</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-776"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-777"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-778"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-779"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-780"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-781"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-782"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">kin</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">kin</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-783"></a>
+<a name="ln-784"></a>            <span class="k">call </span><span class="n">util_spill_pl</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-785"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-786"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the spill method. Source must be of class symba_pl or its descendents!&quot;</span>
+<a name="ln-787"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-788"></a>         <span class="k">end select</span>
+<a name="ln-789"></a><span class="k">      end associate</span>
+<a name="ln-790"></a><span class="k">     </span>
+<a name="ln-791"></a><span class="k">      return</span>
+<a name="ln-792"></a><span class="k">   end subroutine </span><span class="n">symba_util_spill_pl</span>
+<a name="ln-793"></a>
+<a name="ln-794"></a>
+<a name="ln-795"></a>   <span class="k">module subroutine </span><span class="n">symba_util_spill_pltpenc</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-796"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-797"></a>      <span class="c">!!</span>
+<a name="ln-798"></a>      <span class="c">!! Move spilled (discarded) SyMBA encounter structure from active list to discard list</span>
+<a name="ln-799"></a>      <span class="c">!! Note: Because the symba_plplenc currently does not contain any additional variable components, this method can recieve it as an input as well.</span>
+<a name="ln-800"></a>      <span class="k">implicit none</span>
+<a name="ln-801"></a>      <span class="c">! Arguments</span>
+<a name="ln-802"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">),</span>      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA pl-tp encounter list </span>
+<a name="ln-803"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Discarded object </span>
+<a name="ln-804"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
+<a name="ln-805"></a>      <span class="kt">logical</span><span class="p">,</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter body by removing the discard list</span>
+<a name="ln-806"></a>      <span class="c">! Internals</span>
+<a name="ln-807"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-808"></a>  
+<a name="ln-809"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-810"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-811"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_pltpenc</span><span class="p">)</span>
+<a name="ln-812"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">level</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">level</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-813"></a>            <span class="k">call </span><span class="n">util_spill_encounter</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-814"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-815"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the spill method. Source must be of class symba_pltpenc or its descendents!&quot;</span>
+<a name="ln-816"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-817"></a>         <span class="k">end select</span>
+<a name="ln-818"></a><span class="k">      end associate</span>
+<a name="ln-819"></a><span class="k">   </span>
+<a name="ln-820"></a><span class="k">      return</span>
+<a name="ln-821"></a><span class="k">   end subroutine </span><span class="n">symba_util_spill_pltpenc</span>
+<a name="ln-822"></a>
+<a name="ln-823"></a>
+<a name="ln-824"></a>   <span class="k">module subroutine </span><span class="n">symba_util_spill_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-825"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-826"></a>      <span class="c">!!</span>
+<a name="ln-827"></a>      <span class="c">!! Move spilled (discarded) SyMBA test particle structure from active list to discard list</span>
+<a name="ln-828"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
+<a name="ln-829"></a>      <span class="k">implicit none</span>
+<a name="ln-830"></a>      <span class="c">! Arguments</span>
+<a name="ln-831"></a>      <span class="k">class</span><span class="p">(</span><span class="n">symba_tp</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! SyMBA test particle object</span>
+<a name="ln-832"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>     <span class="c">!! Discarded object </span>
+<a name="ln-833"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span>  <span class="c">!! Logical array of bodies to spill into the discards</span>
+<a name="ln-834"></a>      <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter body by removing the discard list</span>
+<a name="ln-835"></a>      <span class="c">! Internals</span>
+<a name="ln-836"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-837"></a>
+<a name="ln-838"></a>      <span class="c">! For each component, pack the discarded bodies into the discard object and do the inverse with the keeps</span>
+<a name="ln-839"></a>      <span class="c">!&gt; Spill all the common components</span>
+<a name="ln-840"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-841"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-842"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">symba_tp</span><span class="p">)</span>
+<a name="ln-843"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">nplenc</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-844"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">levelg</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-845"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">levelm</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-846"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">info</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-847"></a>
+<a name="ln-848"></a>            <span class="k">call </span><span class="n">util_spill_tp</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-849"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-850"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the spill method. Source must be of class symba_tp or its descendents!&quot;</span>
+<a name="ln-851"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-852"></a>         <span class="k">end select</span>
+<a name="ln-853"></a><span class="k">      end associate</span>
+<a name="ln-854"></a><span class="k">     </span>
+<a name="ln-855"></a><span class="k">      return</span>
+<a name="ln-856"></a><span class="k">   end subroutine </span><span class="n">symba_util_spill_tp</span>
+<a name="ln-857"></a>
+<a name="ln-858"></a><span class="k">end submodule </span><span class="n">s_symba_util</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/tides_getacch_pl.f90.html b/docs/sourcefile/tides_getacch_pl.f90.html
index 440090173..d19dcd01a 100644
--- a/docs/sourcefile/tides_getacch_pl.f90.html
+++ b/docs/sourcefile/tides_getacch_pl.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~tides_getacch_pl.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefiletides_getacch_plf90EfferentGraph" width="641pt" height="197pt"
- viewBox="0.00 0.00 641.00 196.70" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 282)">
+<svg id="sourcefiletides_getacch_plf90EfferentGraph" width="641pt" height="210pt"
+ viewBox="0.00 0.00 641.00 209.94" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 301.25)">
 <title>sourcefile~~tides_getacch_pl.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 928,-282 928,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 928,-301.25 928,4 -4,4"/>
 <!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~tides_getacch_pl.f90</title>
-<polygon fill="none" stroke="black" points="924,-24 813,-24 813,0 924,0 924,-24"/>
-<text text-anchor="middle" x="868.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">tides_getacch_pl.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M829.75,-24.02C816.17,-28.34 800.78,-33.24 786.87,-37.67"/>
-<polygon fill="#000000" stroke="#000000" points="785.52,-34.43 777.06,-40.79 787.65,-41.1 785.52,-34.43"/>
+<polygon fill="none" stroke="black" points="924,-260 813,-260 813,-236 924,-236 924,-260"/>
+<text text-anchor="middle" x="868.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">tides_getacch_pl.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.76,-10.55C716.18,-9.59 510.3,-14.73 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.82,-78.02 260.91,-96.3 231.54,-109.67"/>
-<polygon fill="#000000" stroke="#000000" points="229.78,-106.63 222.16,-114 232.71,-112.99 229.78,-106.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M822.18,-260C773.65,-271.78 694.19,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.7,-239.05C804.19,-237.66 795.51,-236.25 787.33,-234.91"/>
+<polygon fill="#000000" stroke="#000000" points="787.72,-231.43 777.29,-233.27 786.59,-238.34 787.72,-231.43"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~tides_getacch_pl.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~tides_getacch_pl.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/tides_spin_step.f90.html b/docs/sourcefile/tides_spin_step.f90.html
index b38937bfe..db2ab2cc7 100644
--- a/docs/sourcefile/tides_spin_step.f90.html
+++ b/docs/sourcefile/tides_spin_step.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~tides_spin_step.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefiletides_spin_stepf90EfferentGraph" width="641pt" height="198pt"
- viewBox="0.00 0.00 641.00 197.98" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 282)">
+<svg id="sourcefiletides_spin_stepf90EfferentGraph" width="641pt" height="211pt"
+ viewBox="0.00 0.00 641.00 211.30" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph" class="graph" transform="scale(0.69 0.69) rotate(0) translate(4 301.25)">
 <title>sourcefile~~tides_spin_step.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 922,-282 922,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 922,-301.25 922,4 -4,4"/>
 <!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~tides_spin_step.f90</title>
-<polygon fill="none" stroke="black" points="918,-24 813,-24 813,0 918,0 918,-24"/>
-<text text-anchor="middle" x="865.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">tides_spin_step.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M827.67,-24.02C814.77,-28.23 800.2,-32.99 786.92,-37.32"/>
-<polygon fill="#000000" stroke="#000000" points="785.48,-34.11 777.06,-40.54 787.65,-40.76 785.48,-34.11"/>
+<polygon fill="none" stroke="black" points="918,-260 813,-260 813,-236 918,-236 918,-260"/>
+<text text-anchor="middle" x="865.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">tides_spin_step.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.72,-10.64C717.85,-9.66 510.88,-14.54 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.82,-78.02 260.91,-96.3 231.54,-109.67"/>
-<polygon fill="#000000" stroke="#000000" points="229.78,-106.63 222.16,-114 232.71,-112.99 229.78,-106.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M819.75,-260C771.82,-271.78 693.35,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.78,-239.34C804.26,-237.92 795.53,-236.46 787.28,-235.08"/>
+<polygon fill="#000000" stroke="#000000" points="787.58,-231.58 777.14,-233.38 786.43,-238.48 787.58,-231.58"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~tides_spin_step.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~tides_spin_step.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/user_getacch.f90.html b/docs/sourcefile/user_getacch.f90.html
index feda96e71..22bc0e126 100644
--- a/docs/sourcefile/user_getacch.f90.html
+++ b/docs/sourcefile/user_getacch.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~user_getacch.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileuser_getacchf90EfferentGraph" width="641pt" height="200pt"
- viewBox="0.00 0.00 641.00 200.14" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 282)">
+<svg id="sourcefileuser_getacchf90EfferentGraph" width="641pt" height="214pt"
+ viewBox="0.00 0.00 641.00 213.61" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph" class="graph" transform="scale(0.7 0.7) rotate(0) translate(4 301.25)">
 <title>sourcefile~~user_getacch.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 912,-282 912,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 912,-301.25 912,4 -4,4"/>
 <!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~user_getacch.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~user_getacch.f90</title>
-<polygon fill="none" stroke="black" points="908,-24 813,-24 813,0 908,0 908,-24"/>
-<text text-anchor="middle" x="860.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">user_getacch.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M824.21,-24.02C812.39,-28.05 799.1,-32.57 786.82,-36.75"/>
-<polygon fill="#000000" stroke="#000000" points="785.59,-33.48 777.25,-40.02 787.84,-40.1 785.59,-33.48"/>
+<polygon fill="none" stroke="black" points="908,-260 813,-260 813,-236 908,-236 908,-260"/>
+<text text-anchor="middle" x="860.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">user_getacch.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.93,-10.79C721.28,-9.76 512.08,-14.15 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.82,-78.02 260.91,-96.3 231.54,-109.67"/>
-<polygon fill="#000000" stroke="#000000" points="229.78,-106.63 222.16,-114 232.71,-112.99 229.78,-106.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M815.7,-260C768.78,-271.78 691.96,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.93,-239.87C804.39,-238.37 795.52,-236.82 787.12,-235.36"/>
+<polygon fill="#000000" stroke="#000000" points="787.61,-231.89 777.16,-233.62 786.41,-238.79 787.61,-231.89"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~user_getacch.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~user_getacch.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/util_append.f90.html b/docs/sourcefile/util_append.f90.html
index bbf4e263a..a48b92ccf 100644
--- a/docs/sourcefile/util_append.f90.html
+++ b/docs/sourcefile/util_append.f90.html
@@ -134,7 +134,7 @@ <h1>util_append.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.6% of total for source files.">210 statements</a>
+    title=" 1.2% of total for source files.">161 statements</a>
      </li> 
      
      
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~util_append.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileutil_appendf90EfferentGraph" width="641pt" height="202pt"
- viewBox="0.00 0.00 641.00 202.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~util_append.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 282)">
+<svg id="sourcefileutil_appendf90EfferentGraph" width="641pt" height="216pt"
+ viewBox="0.00 0.00 641.00 215.73" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~util_append.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 301.25)">
 <title>sourcefile~~util_append.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 903,-282 903,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 903,-301.25 903,4 -4,4"/>
 <!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~util_append.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~util_append.f90</title>
-<polygon fill="none" stroke="black" points="899,-24 813,-24 813,0 899,0 899,-24"/>
-<text text-anchor="middle" x="856" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_append.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M821.1,-24.02C810.26,-27.86 798.13,-32.16 786.8,-36.18"/>
-<polygon fill="#000000" stroke="#000000" points="785.35,-32.98 777.1,-39.62 787.69,-39.58 785.35,-32.98"/>
+<polygon fill="none" stroke="black" points="899,-260 813,-260 813,-236 899,-236 899,-260"/>
+<text text-anchor="middle" x="856" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_append.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~util_append.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.97,-10.91C724.42,-9.85 513.18,-13.79 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.9,-259.78C766.97,-271.58 691.11,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.79,-240.32C804.34,-238.79 795.48,-237.18 787.04,-235.64"/>
+<polygon fill="#000000" stroke="#000000" points="787.48,-232.17 777.02,-233.82 786.23,-239.05 787.48,-232.17"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~util_append.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_append.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~util_append.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~util_append.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_append.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~util_append.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_append.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_append.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_append.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_append.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_append.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_append.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_append.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_append.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_append.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_append.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_append.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~util_append.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_append.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
@@ -560,7 +562,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-2"></a>   <span class="k">use </span><span class="n">swiftest</span>
 <a name="ln-3"></a><span class="k">contains</span>
 <a name="ln-4"></a>
-<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">util_append_arr_char_string</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">util_append_arr_char_string</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
 <a name="ln-6"></a>      <span class="c">!! author: David A. Minton</span>
 <a name="ln-7"></a>      <span class="c">!!</span>
 <a name="ln-8"></a>      <span class="c">!! Append a single array of character string type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.</span>
@@ -568,301 +570,237 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-10"></a>      <span class="c">! Arguments</span>
 <a name="ln-11"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
 <a name="ln-12"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
-<a name="ln-13"></a>      <span class="kt">logical</span><span class="p">,</span>               <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-14"></a>      <span class="c">! Internals</span>
-<a name="ln-15"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">narr</span><span class="p">,</span> <span class="n">nsrc</span>
-<a name="ln-16"></a>
-<a name="ln-17"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">source</span><span class="p">))</span> <span class="k">return</span>
-<a name="ln-18"></a>
-<a name="ln-19"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-20"></a><span class="k">         </span><span class="n">nsrc</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-21"></a>      <span class="k">else</span>
-<a name="ln-22"></a><span class="k">         </span><span class="n">nsrc</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
-<a name="ln-23"></a>      <span class="k">end if</span>
-<a name="ln-24"></a>
-<a name="ln-25"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-26"></a><span class="k">         </span><span class="n">narr</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-27"></a>      <span class="k">else</span>
-<a name="ln-28"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">nsrc</span><span class="p">))</span>
-<a name="ln-29"></a>         <span class="n">narr</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-30"></a>      <span class="k">end if</span>
-<a name="ln-31"></a>
-<a name="ln-32"></a><span class="k">      call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span>
-<a name="ln-33"></a>
-<a name="ln-34"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-35"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">narr</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(:),</span> <span class="n">lsource_mask</span><span class="p">(:))</span>
-<a name="ln-36"></a>      <span class="k">else</span>
-<a name="ln-37"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">narr</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">(:)</span>
-<a name="ln-38"></a>      <span class="k">end if</span>
-<a name="ln-39"></a>
-<a name="ln-40"></a><span class="k">      return</span>
-<a name="ln-41"></a><span class="k">   end subroutine </span><span class="n">util_append_arr_char_string</span>
+<a name="ln-13"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span>   <span class="c">!! Extend of the old array and the source array, respectively</span>
+<a name="ln-14"></a>      <span class="kt">logical</span><span class="p">,</span>               <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-15"></a>
+<a name="ln-16"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">source</span><span class="p">))</span> <span class="k">return</span>
+<a name="ln-17"></a>
+<a name="ln-18"></a><span class="k">      if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-19"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">nold</span><span class="o">+</span><span class="n">nsrc</span><span class="p">))</span>
+<a name="ln-20"></a>      <span class="k">else</span>
+<a name="ln-21"></a><span class="k">         call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nold</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span>
+<a name="ln-22"></a>      <span class="k">end if</span>
+<a name="ln-23"></a>
+<a name="ln-24"></a><span class="k">      </span><span class="n">arr</span><span class="p">(</span><span class="n">nold</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">nold</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">),</span> <span class="n">lsource_mask</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">))</span>
+<a name="ln-25"></a>
+<a name="ln-26"></a>      <span class="k">return</span>
+<a name="ln-27"></a><span class="k">   end subroutine </span><span class="n">util_append_arr_char_string</span>
+<a name="ln-28"></a>
+<a name="ln-29"></a>
+<a name="ln-30"></a>   <span class="k">module subroutine </span><span class="n">util_append_arr_DP</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-31"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-32"></a>      <span class="c">!!</span>
+<a name="ln-33"></a>      <span class="c">!! Append a single array of double precision type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.</span>
+<a name="ln-34"></a>      <span class="k">implicit none</span>
+<a name="ln-35"></a>      <span class="c">! Arguments</span>
+<a name="ln-36"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
+<a name="ln-37"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
+<a name="ln-38"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span>   <span class="c">!! Extend of the old array and the source array, respectively</span>
+<a name="ln-39"></a>      <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-40"></a>
+<a name="ln-41"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">source</span><span class="p">))</span> <span class="k">return</span>
 <a name="ln-42"></a>
-<a name="ln-43"></a>
-<a name="ln-44"></a>   <span class="k">module subroutine </span><span class="n">util_append_arr_DP</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-45"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-46"></a>      <span class="c">!!</span>
-<a name="ln-47"></a>      <span class="c">!! Append a single array of double precision type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.</span>
-<a name="ln-48"></a>      <span class="k">implicit none</span>
-<a name="ln-49"></a>      <span class="c">! Arguments</span>
-<a name="ln-50"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
-<a name="ln-51"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
-<a name="ln-52"></a>      <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-53"></a>      <span class="c">! Internals</span>
-<a name="ln-54"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">narr</span><span class="p">,</span> <span class="n">nsrc</span>
-<a name="ln-55"></a>
-<a name="ln-56"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">source</span><span class="p">))</span> <span class="k">return</span>
-<a name="ln-57"></a>
-<a name="ln-58"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-59"></a><span class="k">         </span><span class="n">nsrc</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-60"></a>      <span class="k">else</span>
-<a name="ln-61"></a><span class="k">         </span><span class="n">nsrc</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
-<a name="ln-62"></a>      <span class="k">end if</span>
-<a name="ln-63"></a>
-<a name="ln-64"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-65"></a><span class="k">         </span><span class="n">narr</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-66"></a>      <span class="k">else</span>
-<a name="ln-67"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">nsrc</span><span class="p">))</span>
-<a name="ln-68"></a>         <span class="n">narr</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-69"></a>      <span class="k">end if</span>
-<a name="ln-70"></a>
-<a name="ln-71"></a><span class="k">      call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span>
-<a name="ln-72"></a>
-<a name="ln-73"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-74"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">narr</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(:),</span> <span class="n">lsource_mask</span><span class="p">(:))</span>
-<a name="ln-75"></a>      <span class="k">else</span>
-<a name="ln-76"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">narr</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">(:)</span>
-<a name="ln-77"></a>      <span class="k">end if</span>
-<a name="ln-78"></a>
-<a name="ln-79"></a><span class="k">      return</span>
-<a name="ln-80"></a><span class="k">   end subroutine </span><span class="n">util_append_arr_DP</span>
+<a name="ln-43"></a><span class="k">      if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-44"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">nold</span><span class="o">+</span><span class="n">nsrc</span><span class="p">))</span>
+<a name="ln-45"></a>      <span class="k">else</span>
+<a name="ln-46"></a><span class="k">         call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nold</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span>
+<a name="ln-47"></a>      <span class="k">end if</span>
+<a name="ln-48"></a>
+<a name="ln-49"></a><span class="k">      </span><span class="n">arr</span><span class="p">(</span><span class="n">nold</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">nold</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">),</span> <span class="n">lsource_mask</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">))</span>
+<a name="ln-50"></a>
+<a name="ln-51"></a>      <span class="k">return</span>
+<a name="ln-52"></a><span class="k">   end subroutine </span><span class="n">util_append_arr_DP</span>
+<a name="ln-53"></a>
+<a name="ln-54"></a>
+<a name="ln-55"></a>   <span class="k">module subroutine </span><span class="n">util_append_arr_DPvec</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-56"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-57"></a>      <span class="c">!!</span>
+<a name="ln-58"></a>      <span class="c">!! Append a single array of double precision vector type of size (NDIM, n) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.</span>
+<a name="ln-59"></a>      <span class="k">implicit none</span>
+<a name="ln-60"></a>      <span class="c">! Arguments</span>
+<a name="ln-61"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
+<a name="ln-62"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
+<a name="ln-63"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                          <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span>   <span class="c">!! Extend of the old array and the source array, respectively</span>
+<a name="ln-64"></a>      <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span>                <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-65"></a>
+<a name="ln-66"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">source</span><span class="p">))</span> <span class="k">return</span>
+<a name="ln-67"></a>
+<a name="ln-68"></a><span class="k">      if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-69"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nold</span><span class="o">+</span><span class="n">nsrc</span><span class="p">))</span>
+<a name="ln-70"></a>      <span class="k">else</span>
+<a name="ln-71"></a><span class="k">         call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nold</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span>
+<a name="ln-72"></a>      <span class="k">end if</span>
+<a name="ln-73"></a>
+<a name="ln-74"></a><span class="k">      </span><span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">nold</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">nold</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">),</span> <span class="n">lsource_mask</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">))</span>
+<a name="ln-75"></a>      <span class="n">arr</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">nold</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">nold</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">),</span> <span class="n">lsource_mask</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">))</span>
+<a name="ln-76"></a>      <span class="n">arr</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">nold</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">nold</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">),</span> <span class="n">lsource_mask</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">))</span>
+<a name="ln-77"></a>
+<a name="ln-78"></a>      <span class="k">return</span>
+<a name="ln-79"></a><span class="k">   end subroutine </span><span class="n">util_append_arr_DPvec</span>
+<a name="ln-80"></a>
 <a name="ln-81"></a>
-<a name="ln-82"></a>
-<a name="ln-83"></a>   <span class="k">module subroutine </span><span class="n">util_append_arr_DPvec</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-84"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-85"></a>      <span class="c">!!</span>
-<a name="ln-86"></a>      <span class="c">!! Append a single array of double precision vector type of size (NDIM, n) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.</span>
-<a name="ln-87"></a>      <span class="k">implicit none</span>
-<a name="ln-88"></a>      <span class="c">! Arguments</span>
-<a name="ln-89"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
-<a name="ln-90"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
-<a name="ln-91"></a>      <span class="kt">logical</span><span class="p">,</span>  <span class="k">dimension</span><span class="p">(:),</span>   <span class="k">optional</span><span class="p">,</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-92"></a>      <span class="c">! Internals</span>
-<a name="ln-93"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">narr</span><span class="p">,</span> <span class="n">nsrc</span>
+<a name="ln-82"></a>   <span class="k">module subroutine </span><span class="n">util_append_arr_I4B</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-83"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-84"></a>      <span class="c">!!</span>
+<a name="ln-85"></a>      <span class="c">!! Append a single array of integer(I4B) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.</span>
+<a name="ln-86"></a>      <span class="k">implicit none</span>
+<a name="ln-87"></a>      <span class="c">! Arguments</span>
+<a name="ln-88"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
+<a name="ln-89"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
+<a name="ln-90"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span>   <span class="c">!! Extend of the old array and the source array, respectively</span>
+<a name="ln-91"></a>      <span class="kt">logical</span><span class="p">,</span>      <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-92"></a>
+<a name="ln-93"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">source</span><span class="p">))</span> <span class="k">return</span>
 <a name="ln-94"></a>
-<a name="ln-95"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">source</span><span class="p">))</span> <span class="k">return</span>
-<a name="ln-96"></a>
-<a name="ln-97"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-98"></a><span class="k">         </span><span class="n">nsrc</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-99"></a>      <span class="k">else</span>
-<a name="ln-100"></a><span class="k">         </span><span class="n">nsrc</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">source</span><span class="p">,</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-101"></a>      <span class="k">end if</span>
+<a name="ln-95"></a><span class="k">      if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-96"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">nold</span><span class="o">+</span><span class="n">nsrc</span><span class="p">))</span>
+<a name="ln-97"></a>      <span class="k">else</span>
+<a name="ln-98"></a><span class="k">         call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nold</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span>
+<a name="ln-99"></a>      <span class="k">end if</span>
+<a name="ln-100"></a>
+<a name="ln-101"></a><span class="k">      </span><span class="n">arr</span><span class="p">(</span><span class="n">nold</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">nold</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">),</span> <span class="n">lsource_mask</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">))</span>
 <a name="ln-102"></a>
-<a name="ln-103"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-104"></a><span class="k">         </span><span class="n">narr</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-105"></a>      <span class="k">else</span>
-<a name="ln-106"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">))</span>
-<a name="ln-107"></a>         <span class="n">narr</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-108"></a>      <span class="k">end if</span>
-<a name="ln-109"></a>
-<a name="ln-110"></a><span class="k">      call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span>
-<a name="ln-111"></a>
-<a name="ln-112"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-113"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">narr</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(</span><span class="mi">1</span><span class="p">,:),</span> <span class="n">lsource_mask</span><span class="p">(:))</span>
-<a name="ln-114"></a>         <span class="n">arr</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">narr</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(</span><span class="mi">2</span><span class="p">,:),</span> <span class="n">lsource_mask</span><span class="p">(:))</span>
-<a name="ln-115"></a>         <span class="n">arr</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">narr</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(</span><span class="mi">3</span><span class="p">,:),</span> <span class="n">lsource_mask</span><span class="p">(:))</span>
-<a name="ln-116"></a>      <span class="k">else</span>
-<a name="ln-117"></a><span class="k">         </span><span class="n">arr</span><span class="p">(:,</span> <span class="n">narr</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">(:,:)</span>
-<a name="ln-118"></a>      <span class="k">end if</span>
+<a name="ln-103"></a>      <span class="k">return</span>
+<a name="ln-104"></a><span class="k">   end subroutine </span><span class="n">util_append_arr_I4B</span>
+<a name="ln-105"></a>
+<a name="ln-106"></a>
+<a name="ln-107"></a>   <span class="k">module subroutine </span><span class="n">util_append_arr_logical</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-108"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-109"></a>      <span class="c">!!</span>
+<a name="ln-110"></a>      <span class="c">!! Append a single array of logical type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.</span>
+<a name="ln-111"></a>      <span class="k">implicit none</span>
+<a name="ln-112"></a>      <span class="c">! Arguments</span>
+<a name="ln-113"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
+<a name="ln-114"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
+<a name="ln-115"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span>   <span class="c">!! Extend of the old array and the source array, respectively</span>
+<a name="ln-116"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-117"></a>
+<a name="ln-118"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">source</span><span class="p">))</span> <span class="k">return</span>
 <a name="ln-119"></a>
-<a name="ln-120"></a><span class="k">      return</span>
-<a name="ln-121"></a><span class="k">   end subroutine </span><span class="n">util_append_arr_DPvec</span>
-<a name="ln-122"></a>
-<a name="ln-123"></a>
-<a name="ln-124"></a>   <span class="k">module subroutine </span><span class="n">util_append_arr_I4B</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-125"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-126"></a>      <span class="c">!!</span>
-<a name="ln-127"></a>      <span class="c">!! Append a single array of integer(I4B) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.</span>
-<a name="ln-128"></a>      <span class="k">implicit none</span>
-<a name="ln-129"></a>      <span class="c">! Arguments</span>
-<a name="ln-130"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
-<a name="ln-131"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
-<a name="ln-132"></a>      <span class="kt">logical</span><span class="p">,</span>      <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-133"></a>      <span class="c">! Internals</span>
-<a name="ln-134"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">narr</span><span class="p">,</span> <span class="n">nsrc</span>
-<a name="ln-135"></a>
-<a name="ln-136"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">source</span><span class="p">))</span> <span class="k">return</span>
-<a name="ln-137"></a>
-<a name="ln-138"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-139"></a><span class="k">         </span><span class="n">nsrc</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-140"></a>      <span class="k">else</span>
-<a name="ln-141"></a><span class="k">         </span><span class="n">nsrc</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
-<a name="ln-142"></a>      <span class="k">end if</span>
-<a name="ln-143"></a>
-<a name="ln-144"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-145"></a><span class="k">         </span><span class="n">narr</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-146"></a>      <span class="k">else</span>
-<a name="ln-147"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">nsrc</span><span class="p">))</span>
-<a name="ln-148"></a>         <span class="n">narr</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-149"></a>      <span class="k">end if</span>
-<a name="ln-150"></a>
-<a name="ln-151"></a><span class="k">      call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span>
-<a name="ln-152"></a>
-<a name="ln-153"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-154"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">narr</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(:),</span> <span class="n">lsource_mask</span><span class="p">(:))</span>
-<a name="ln-155"></a>      <span class="k">else</span>
-<a name="ln-156"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">narr</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">(:)</span>
-<a name="ln-157"></a>      <span class="k">end if</span>
-<a name="ln-158"></a>
-<a name="ln-159"></a><span class="k">      return</span>
-<a name="ln-160"></a><span class="k">   end subroutine </span><span class="n">util_append_arr_I4B</span>
-<a name="ln-161"></a>
-<a name="ln-162"></a>
-<a name="ln-163"></a>   <span class="k">module subroutine </span><span class="n">util_append_arr_logical</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-164"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-165"></a>      <span class="c">!!</span>
-<a name="ln-166"></a>      <span class="c">!! Append a single array of logical type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.</span>
-<a name="ln-167"></a>      <span class="k">implicit none</span>
-<a name="ln-168"></a>      <span class="c">! Arguments</span>
-<a name="ln-169"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>          <span class="c">!! Destination array </span>
-<a name="ln-170"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Array to append </span>
-<a name="ln-171"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span>    <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-172"></a>      <span class="c">! Internals</span>
-<a name="ln-173"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">narr</span><span class="p">,</span> <span class="n">nsrc</span>
-<a name="ln-174"></a>
-<a name="ln-175"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">source</span><span class="p">))</span> <span class="k">return</span>
-<a name="ln-176"></a>
-<a name="ln-177"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-178"></a><span class="k">         </span><span class="n">narr</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-179"></a>      <span class="k">else</span>
-<a name="ln-180"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">nsrc</span><span class="p">))</span>
-<a name="ln-181"></a>         <span class="n">narr</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-182"></a>      <span class="k">end if</span>
+<a name="ln-120"></a><span class="k">      if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-121"></a><span class="k">         allocate</span><span class="p">(</span><span class="n">arr</span><span class="p">(</span><span class="n">nold</span><span class="o">+</span><span class="n">nsrc</span><span class="p">))</span>
+<a name="ln-122"></a>      <span class="k">else</span>
+<a name="ln-123"></a><span class="k">         call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nold</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span>
+<a name="ln-124"></a>      <span class="k">end if</span>
+<a name="ln-125"></a>
+<a name="ln-126"></a><span class="k">      </span><span class="n">arr</span><span class="p">(</span><span class="n">nold</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">nold</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">),</span> <span class="n">lsource_mask</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nsrc</span><span class="p">))</span>
+<a name="ln-127"></a>
+<a name="ln-128"></a>      <span class="k">return</span>
+<a name="ln-129"></a><span class="k">   end subroutine </span><span class="n">util_append_arr_logical</span>
+<a name="ln-130"></a>
+<a name="ln-131"></a>
+<a name="ln-132"></a>   <span class="k">module subroutine </span><span class="n">util_append_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-133"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-134"></a>      <span class="c">!!</span>
+<a name="ln-135"></a>      <span class="c">!! Append components from one Swiftest body object to another. </span>
+<a name="ln-136"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
+<a name="ln-137"></a>      <span class="k">implicit none</span>
+<a name="ln-138"></a>      <span class="c">! Arguments</span>
+<a name="ln-139"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! Swiftest body object</span>
+<a name="ln-140"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
+<a name="ln-141"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-142"></a>
+<a name="ln-143"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">nold</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">nsrc</span> <span class="o">=&gt;</span> <span class="n">source</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-144"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">name</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">name</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-145"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">id</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-146"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">status</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-147"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-148"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">lmask</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-149"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mu</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">mu</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-150"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">xh</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-151"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">vh</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-152"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xb</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">xb</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-153"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vb</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">vb</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-154"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ah</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">ah</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-155"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">aobl</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">aobl</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-156"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atide</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">atide</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-157"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">agr</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">agr</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-158"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ir3h</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">ir3h</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-159"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">a</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">a</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-160"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">e</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">e</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-161"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">inc</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">inc</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-162"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">capom</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">capom</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-163"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">omega</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">omega</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-164"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">capm</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">capm</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-165"></a>      <span class="k">end associate</span>
+<a name="ln-166"></a>
+<a name="ln-167"></a><span class="k">      </span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">(:)</span> <span class="o">/=</span> <span class="n">INACTIVE</span><span class="p">)</span>
+<a name="ln-168"></a>
+<a name="ln-169"></a>      <span class="k">return</span>
+<a name="ln-170"></a><span class="k">   end subroutine </span><span class="n">util_append_body</span>
+<a name="ln-171"></a>
+<a name="ln-172"></a>
+<a name="ln-173"></a>   <span class="k">module subroutine </span><span class="n">util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-174"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-175"></a>      <span class="c">!!</span>
+<a name="ln-176"></a>      <span class="c">!! Append components from one Swiftest body object to another. </span>
+<a name="ln-177"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
+<a name="ln-178"></a>      <span class="k">implicit none</span>
+<a name="ln-179"></a>      <span class="c">! Arguments</span>
+<a name="ln-180"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! Swiftest massive body object</span>
+<a name="ln-181"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
+<a name="ln-182"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
 <a name="ln-183"></a>
-<a name="ln-184"></a><span class="k">      if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-185"></a><span class="k">         </span><span class="n">nsrc</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-186"></a>      <span class="k">else</span>
-<a name="ln-187"></a><span class="k">         </span><span class="n">nsrc</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
-<a name="ln-188"></a>      <span class="k">end if</span>
-<a name="ln-189"></a>
-<a name="ln-190"></a><span class="k">      call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span>
-<a name="ln-191"></a>
-<a name="ln-192"></a>      <span class="k">if</span> <span class="p">(</span><span class="nb">present</span><span class="p">(</span><span class="n">lsource_mask</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-193"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">narr</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="nb">pack</span><span class="p">(</span><span class="n">source</span><span class="p">(:),</span> <span class="n">lsource_mask</span><span class="p">(:))</span>
-<a name="ln-194"></a>      <span class="k">else</span>
-<a name="ln-195"></a><span class="k">         </span><span class="n">arr</span><span class="p">(</span><span class="n">narr</span> <span class="o">+</span> <span class="mi">1</span><span class="p">:</span><span class="n">narr</span> <span class="o">+</span> <span class="n">nsrc</span><span class="p">)</span> <span class="o">=</span> <span class="n">source</span><span class="p">(:)</span>
-<a name="ln-196"></a>      <span class="k">end if</span>
-<a name="ln-197"></a>
-<a name="ln-198"></a><span class="k">      return</span>
-<a name="ln-199"></a><span class="k">   end subroutine </span><span class="n">util_append_arr_logical</span>
-<a name="ln-200"></a>
+<a name="ln-184"></a>
+<a name="ln-185"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
+<a name="ln-186"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
+<a name="ln-187"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">nold</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">nsrc</span> <span class="o">=&gt;</span> <span class="n">source</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-188"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mass</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">mass</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-189"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Gmass</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">Gmass</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-190"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">rhill</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-191"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">radius</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">radius</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-192"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xbeg</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">xbeg</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-193"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xend</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">xend</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-194"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vbeg</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">vbeg</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-195"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">density</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">density</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-196"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">Ip</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-197"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">rot</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-198"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">k2</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">k2</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-199"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Q</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">Q</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-200"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tlag</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">tlag</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
 <a name="ln-201"></a>
-<a name="ln-202"></a>   <span class="k">module subroutine </span><span class="n">util_append_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-203"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-204"></a>      <span class="c">!!</span>
-<a name="ln-205"></a>      <span class="c">!! Append components from one Swiftest body object to another. </span>
-<a name="ln-206"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
-<a name="ln-207"></a>      <span class="k">implicit none</span>
-<a name="ln-208"></a>      <span class="c">! Arguments</span>
-<a name="ln-209"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! Swiftest body object</span>
-<a name="ln-210"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
-<a name="ln-211"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-212"></a>
-<a name="ln-213"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">name</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">name</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-214"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">id</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-215"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">status</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-216"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-217"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">lmask</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-218"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mu</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">mu</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-219"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">xh</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-220"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">vh</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-221"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xb</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">xb</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-222"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vb</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">vb</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-223"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ah</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">ah</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-224"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">aobl</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">aobl</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-225"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atide</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">atide</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-226"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">agr</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">agr</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-227"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ir3h</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">ir3h</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-228"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">a</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">a</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-229"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">e</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">e</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-230"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">inc</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">inc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-231"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">capom</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">capom</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-232"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">omega</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">omega</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-233"></a>      <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">capm</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">capm</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-234"></a>
-<a name="ln-235"></a>      <span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">(:)</span> <span class="o">/=</span> <span class="n">INACTIVE</span><span class="p">)</span>
-<a name="ln-236"></a>
-<a name="ln-237"></a>      <span class="k">return</span>
-<a name="ln-238"></a><span class="k">   end subroutine </span><span class="n">util_append_body</span>
+<a name="ln-202"></a>            <span class="k">call </span><span class="n">util_append_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-203"></a>         <span class="k">end associate</span>
+<a name="ln-204"></a>
+<a name="ln-205"></a><span class="k">         call </span><span class="n">self</span><span class="p">%</span><span class="n">eucl_index</span><span class="p">()</span>
+<a name="ln-206"></a>      <span class="k">class </span><span class="n">default</span>
+<a name="ln-207"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the append method. Source must be of class swiftest_pl or its descendents&quot;</span>
+<a name="ln-208"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-209"></a>      <span class="k">end select</span>
+<a name="ln-210"></a><span class="k">   </span>
+<a name="ln-211"></a><span class="k">      return</span>
+<a name="ln-212"></a><span class="k">   end subroutine </span><span class="n">util_append_pl</span>
+<a name="ln-213"></a>
+<a name="ln-214"></a>
+<a name="ln-215"></a>   <span class="k">module subroutine </span><span class="n">util_append_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-216"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-217"></a>      <span class="c">!!</span>
+<a name="ln-218"></a>      <span class="c">!! Append components from one Swiftest body object to another. </span>
+<a name="ln-219"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
+<a name="ln-220"></a>      <span class="k">implicit none</span>
+<a name="ln-221"></a>      <span class="c">! Arguments</span>
+<a name="ln-222"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! Swiftest test particle object</span>
+<a name="ln-223"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
+<a name="ln-224"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-225"></a>
+<a name="ln-226"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
+<a name="ln-227"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
+<a name="ln-228"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">nold</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">nsrc</span> <span class="o">=&gt;</span> <span class="n">source</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-229"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-230"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-231"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-232"></a>
+<a name="ln-233"></a>            <span class="k">call </span><span class="n">util_append_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-234"></a>         <span class="k">end associate</span>
+<a name="ln-235"></a><span class="k">      class </span><span class="n">default</span>
+<a name="ln-236"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the append method. Source must be of class swiftest_tp or its descendents&quot;</span>
+<a name="ln-237"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-238"></a>      <span class="k">end select</span>
 <a name="ln-239"></a>
-<a name="ln-240"></a>
-<a name="ln-241"></a>   <span class="k">module subroutine </span><span class="n">util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-242"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-243"></a>      <span class="c">!!</span>
-<a name="ln-244"></a>      <span class="c">!! Append components from one Swiftest body object to another. </span>
-<a name="ln-245"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
-<a name="ln-246"></a>      <span class="k">implicit none</span>
-<a name="ln-247"></a>      <span class="c">! Arguments</span>
-<a name="ln-248"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! Swiftest massive body object</span>
-<a name="ln-249"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
-<a name="ln-250"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-251"></a>
-<a name="ln-252"></a>
-<a name="ln-253"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
-<a name="ln-254"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_pl</span><span class="p">)</span>
-<a name="ln-255"></a>         <span class="k">call </span><span class="n">util_append_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-256"></a>
-<a name="ln-257"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mass</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">mass</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-258"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Gmass</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">Gmass</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-259"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">rhill</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-260"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">radius</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">radius</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-261"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xbeg</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">xbeg</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-262"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xend</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">xend</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-263"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vbeg</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">vbeg</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-264"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">density</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">density</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-265"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">Ip</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-266"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">rot</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-267"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">k2</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">k2</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-268"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Q</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">Q</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-269"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tlag</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">tlag</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-270"></a>
-<a name="ln-271"></a>         <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">eucl_index</span><span class="p">()</span>
-<a name="ln-272"></a>      <span class="k">class </span><span class="n">default</span>
-<a name="ln-273"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the append method. Source must be of class swiftest_pl or its descendents&quot;</span>
-<a name="ln-274"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-275"></a>      <span class="k">end select</span>
-<a name="ln-276"></a><span class="k">   </span>
-<a name="ln-277"></a><span class="k">      return</span>
-<a name="ln-278"></a><span class="k">   end subroutine </span><span class="n">util_append_pl</span>
-<a name="ln-279"></a>
-<a name="ln-280"></a>
-<a name="ln-281"></a>   <span class="k">module subroutine </span><span class="n">util_append_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-282"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-283"></a>      <span class="c">!!</span>
-<a name="ln-284"></a>      <span class="c">!! Append components from one Swiftest body object to another. </span>
-<a name="ln-285"></a>      <span class="c">!! This method will automatically resize the destination body if it is too small</span>
-<a name="ln-286"></a>      <span class="k">implicit none</span>
-<a name="ln-287"></a>      <span class="c">! Arguments</span>
-<a name="ln-288"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! Swiftest test particle object</span>
-<a name="ln-289"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
-<a name="ln-290"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
-<a name="ln-291"></a>
-<a name="ln-292"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
-<a name="ln-293"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">swiftest_tp</span><span class="p">)</span>
-<a name="ln-294"></a>         <span class="k">call </span><span class="n">util_append_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-295"></a>
-<a name="ln-296"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-297"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-298"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-299"></a>      <span class="k">class </span><span class="n">default</span>
-<a name="ln-300"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the append method. Source must be of class swiftest_tp or its descendents&quot;</span>
-<a name="ln-301"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-302"></a>      <span class="k">end select</span>
-<a name="ln-303"></a>
-<a name="ln-304"></a><span class="k">      return</span>
-<a name="ln-305"></a><span class="k">   end subroutine </span><span class="n">util_append_tp</span>
-<a name="ln-306"></a>
-<a name="ln-307"></a><span class="k">end submodule </span><span class="n">s_util_append</span>
+<a name="ln-240"></a><span class="k">      return</span>
+<a name="ln-241"></a><span class="k">   end subroutine </span><span class="n">util_append_tp</span>
+<a name="ln-242"></a>
+<a name="ln-243"></a><span class="k">end submodule </span><span class="n">s_util_append</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/util_coord.f90.html b/docs/sourcefile/util_coord.f90.html
index 1fc988996..72c555cce 100644
--- a/docs/sourcefile/util_coord.f90.html
+++ b/docs/sourcefile/util_coord.f90.html
@@ -134,7 +134,7 @@ <h1>util_coord.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for source files.">78 statements</a>
+    title=" 0.6% of total for source files.">74 statements</a>
      </li> 
      
      
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~util_coord.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileutil_coordf90EfferentGraph" width="641pt" height="204pt"
- viewBox="0.00 0.00 641.00 204.15" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~util_coord.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 282)">
+<svg id="sourcefileutil_coordf90EfferentGraph" width="641pt" height="218pt"
+ viewBox="0.00 0.00 641.00 217.89" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~util_coord.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 301.25)">
 <title>sourcefile~~util_coord.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 894,-282 894,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 894,-301.25 894,4 -4,4"/>
 <!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~util_coord.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~util_coord.f90</title>
-<polygon fill="none" stroke="black" points="890,-24 813,-24 813,0 890,0 890,-24"/>
-<text text-anchor="middle" x="851.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_coord.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M817.99,-24.02C808.17,-27.65 797.25,-31.69 786.91,-35.51"/>
-<polygon fill="#000000" stroke="#000000" points="785.39,-32.34 777.23,-39.09 787.82,-38.9 785.39,-32.34"/>
+<polygon fill="none" stroke="black" points="890,-260 813,-260 813,-236 890,-236 890,-260"/>
+<text text-anchor="middle" x="851.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_coord.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.77,-11.04C727.48,-9.95 514.23,-13.44 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.82,-78.02 260.91,-96.3 231.54,-109.67"/>
-<polygon fill="#000000" stroke="#000000" points="229.78,-106.63 222.16,-114 232.71,-112.99 229.78,-106.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.87,-258.82C768.31,-270.67 691.64,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.71,-240.84C804.47,-239.27 795.7,-237.61 787.3,-236.02"/>
+<polygon fill="#000000" stroke="#000000" points="787.77,-232.55 777.3,-234.12 786.47,-239.42 787.77,-232.55"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_coord.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~util_coord.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_coord.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_coord.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_coord.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_coord.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_coord.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_coord.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_coord.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_coord.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_coord.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_coord.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~util_coord.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_coord.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
@@ -582,112 +584,104 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-24"></a>         <span class="n">xtmp</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
 <a name="ln-25"></a>         <span class="n">vtmp</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
 <a name="ln-26"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-27"></a>            <span class="n">Gmtot</span> <span class="o">=</span> <span class="n">Gmtot</span> <span class="o">+</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-28"></a>            <span class="n">xtmp</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xtmp</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-29"></a>            <span class="n">vtmp</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">vtmp</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-30"></a>         <span class="k">end do</span>
-<a name="ln-31"></a><span class="k">         </span><span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="n">xtmp</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">Gmtot</span>
-<a name="ln-32"></a>         <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="n">vtmp</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">Gmtot</span>
-<a name="ln-33"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-34"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">(:)</span>
-<a name="ln-35"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:)</span>
-<a name="ln-36"></a>         <span class="k">end do</span>
-<a name="ln-37"></a><span class="k">      end associate</span>
-<a name="ln-38"></a>
-<a name="ln-39"></a><span class="k">      return</span>
-<a name="ln-40"></a><span class="k">   end subroutine </span><span class="n">util_coord_h2b_pl</span>
-<a name="ln-41"></a>
-<a name="ln-42"></a>
-<a name="ln-43"></a>   <span class="k">module subroutine </span><span class="n">util_coord_h2b_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
-<a name="ln-44"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-45"></a>      <span class="c">!!</span>
-<a name="ln-46"></a>      <span class="c">!! Convert massive bodies from heliocentric to barycentric coordinates (position and velocity)</span>
+<a name="ln-27"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">INACTIVE</span><span class="p">)</span> <span class="k">cycle</span>
+<a name="ln-28"></a><span class="k">            </span><span class="n">Gmtot</span> <span class="o">=</span> <span class="n">Gmtot</span> <span class="o">+</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-29"></a>            <span class="n">xtmp</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">xtmp</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-30"></a>            <span class="n">vtmp</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">vtmp</span><span class="p">(:)</span> <span class="o">+</span> <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-31"></a>         <span class="k">end do</span>
+<a name="ln-32"></a><span class="k">         </span><span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="n">xtmp</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">Gmtot</span>
+<a name="ln-33"></a>         <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:)</span> <span class="o">=</span> <span class="o">-</span><span class="n">vtmp</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">Gmtot</span>
+<a name="ln-34"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
+<a name="ln-35"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">INACTIVE</span><span class="p">)</span> <span class="k">cycle</span>
+<a name="ln-36"></a><span class="k">            </span><span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">(:)</span>
+<a name="ln-37"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:)</span>
+<a name="ln-38"></a>         <span class="k">end do</span>
+<a name="ln-39"></a><span class="k">      end associate</span>
+<a name="ln-40"></a>
+<a name="ln-41"></a><span class="k">      return</span>
+<a name="ln-42"></a><span class="k">   end subroutine </span><span class="n">util_coord_h2b_pl</span>
+<a name="ln-43"></a>
+<a name="ln-44"></a>
+<a name="ln-45"></a>   <span class="k">module subroutine </span><span class="n">util_coord_h2b_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
+<a name="ln-46"></a>      <span class="c">!! author: David A. Minton</span>
 <a name="ln-47"></a>      <span class="c">!!</span>
-<a name="ln-48"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine coord_h2b_tp.f90 </span>
-<a name="ln-49"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine coord_h2b_tp.f </span>
-<a name="ln-50"></a>      <span class="k">implicit none</span>
-<a name="ln-51"></a>      <span class="c">! Arguments</span>
-<a name="ln-52"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest test particle object</span>
-<a name="ln-53"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
-<a name="ln-54"></a>
-<a name="ln-55"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-56"></a><span class="k">      associate</span><span class="p">(</span><span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">xbcb</span> <span class="o">=&gt;</span> <span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">,</span> <span class="n">vbcb</span> <span class="o">=&gt;</span> <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">,</span> <span class="n">status</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-57"></a>               <span class="n">xb</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">xb</span><span class="p">,</span> <span class="n">xh</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">,</span> <span class="n">vb</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">vb</span><span class="p">,</span> <span class="n">vh</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">)</span>
+<a name="ln-48"></a>      <span class="c">!! Convert massive bodies from heliocentric to barycentric coordinates (position and velocity)</span>
+<a name="ln-49"></a>      <span class="c">!!</span>
+<a name="ln-50"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine coord_h2b_tp.f90 </span>
+<a name="ln-51"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine coord_h2b_tp.f </span>
+<a name="ln-52"></a>      <span class="k">implicit none</span>
+<a name="ln-53"></a>      <span class="c">! Arguments</span>
+<a name="ln-54"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest test particle object</span>
+<a name="ln-55"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
+<a name="ln-56"></a>      <span class="c">! Internals</span>
+<a name="ln-57"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
 <a name="ln-58"></a>
-<a name="ln-59"></a>         <span class="k">where</span><span class="p">(</span><span class="n">status</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">/=</span> <span class="n">INACTIVE</span><span class="p">)</span>
-<a name="ln-60"></a>            <span class="n">xb</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">xh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">+</span> <span class="n">xbcb</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-61"></a>            <span class="n">xb</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">xh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">+</span> <span class="n">xbcb</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-62"></a>            <span class="n">xb</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">xh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">+</span> <span class="n">xbcb</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span>
-<a name="ln-63"></a>
-<a name="ln-64"></a>            <span class="n">vb</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">vh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">+</span> <span class="n">vbcb</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-65"></a>            <span class="n">vb</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">vh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">+</span> <span class="n">vbcb</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-66"></a>            <span class="n">vb</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">vh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">+</span> <span class="n">vbcb</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span>
-<a name="ln-67"></a>         <span class="k">end where</span>
-<a name="ln-68"></a><span class="k">      end associate</span>
+<a name="ln-59"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-60"></a><span class="k">      associate</span><span class="p">(</span><span class="n">tp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-61"></a>         <span class="k">do </span><span class="n">concurrent</span> <span class="p">(</span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">/=</span> <span class="n">INACTIVE</span><span class="p">)</span>
+<a name="ln-62"></a>            <span class="n">tp</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">(:)</span>
+<a name="ln-63"></a>            <span class="n">tp</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">+</span> <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:)</span>
+<a name="ln-64"></a>         <span class="k">end do</span>
+<a name="ln-65"></a><span class="k">      end associate</span>
+<a name="ln-66"></a>
+<a name="ln-67"></a><span class="k">      return</span>
+<a name="ln-68"></a><span class="k">   end subroutine </span><span class="n">util_coord_h2b_tp</span>
 <a name="ln-69"></a>
-<a name="ln-70"></a><span class="k">      return</span>
-<a name="ln-71"></a><span class="k">   end subroutine </span><span class="n">util_coord_h2b_tp</span>
-<a name="ln-72"></a>
-<a name="ln-73"></a>
-<a name="ln-74"></a>   <span class="k">module subroutine </span><span class="n">util_coord_b2h_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
-<a name="ln-75"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-76"></a>      <span class="c">!!</span>
-<a name="ln-77"></a>      <span class="c">!! Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</span>
-<a name="ln-78"></a>      <span class="c">!!</span>
-<a name="ln-79"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine coord_b2h.f90 </span>
-<a name="ln-80"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine coord_b2h.f </span>
-<a name="ln-81"></a>      <span class="k">implicit none</span>
-<a name="ln-82"></a>      <span class="c">! Arguments</span>
-<a name="ln-83"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
-<a name="ln-84"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
-<a name="ln-85"></a>      <span class="c">! Internals</span>
-<a name="ln-86"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-87"></a>
-<a name="ln-88"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-89"></a>
-<a name="ln-90"></a><span class="k">      associate</span><span class="p">(</span><span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">xbcb</span> <span class="o">=&gt;</span> <span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">,</span> <span class="n">vbcb</span> <span class="o">=&gt;</span> <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">,</span> <span class="n">xb</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">xb</span><span class="p">,</span> <span class="n">xh</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-91"></a>               <span class="n">vb</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">vb</span><span class="p">,</span> <span class="n">vh</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">)</span>
-<a name="ln-92"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">NDIM</span>
-<a name="ln-93"></a>            <span class="n">xh</span><span class="p">(</span><span class="n">i</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">xb</span><span class="p">(</span><span class="n">i</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">-</span> <span class="n">xbcb</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-94"></a>            <span class="n">vh</span><span class="p">(</span><span class="n">i</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">vb</span><span class="p">(</span><span class="n">i</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">-</span> <span class="n">vbcb</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-95"></a>         <span class="k">end do</span>
-<a name="ln-96"></a><span class="k">      end associate</span>
+<a name="ln-70"></a>
+<a name="ln-71"></a>   <span class="k">module subroutine </span><span class="n">util_coord_b2h_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
+<a name="ln-72"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-73"></a>      <span class="c">!!</span>
+<a name="ln-74"></a>      <span class="c">!! Convert massive bodies from barycentric to heliocentric coordinates (position and velocity)</span>
+<a name="ln-75"></a>      <span class="c">!!</span>
+<a name="ln-76"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine coord_b2h.f90 </span>
+<a name="ln-77"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine coord_b2h.f </span>
+<a name="ln-78"></a>      <span class="k">implicit none</span>
+<a name="ln-79"></a>      <span class="c">! Arguments</span>
+<a name="ln-80"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
+<a name="ln-81"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
+<a name="ln-82"></a>      <span class="c">! Internals</span>
+<a name="ln-83"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>          <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-84"></a>
+<a name="ln-85"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-86"></a>
+<a name="ln-87"></a><span class="k">      associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-88"></a>         <span class="k">do </span><span class="n">concurrent</span> <span class="p">(</span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">/=</span> <span class="n">INACTIVE</span><span class="p">)</span>
+<a name="ln-89"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">(:)</span>
+<a name="ln-90"></a>            <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:)</span>
+<a name="ln-91"></a>         <span class="k">end do</span>
+<a name="ln-92"></a><span class="k">      end associate</span>
+<a name="ln-93"></a>
+<a name="ln-94"></a><span class="k">      return</span>
+<a name="ln-95"></a><span class="k">   end subroutine </span><span class="n">util_coord_b2h_pl</span>
+<a name="ln-96"></a>
 <a name="ln-97"></a>
-<a name="ln-98"></a><span class="k">      return</span>
-<a name="ln-99"></a><span class="k">   end subroutine </span><span class="n">util_coord_b2h_pl</span>
-<a name="ln-100"></a>
-<a name="ln-101"></a>
-<a name="ln-102"></a>   <span class="k">module subroutine </span><span class="n">util_coord_b2h_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
-<a name="ln-103"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-104"></a>      <span class="c">!!</span>
-<a name="ln-105"></a>      <span class="c">!! Convert test particles from barycentric to heliocentric coordinates (position and velocity)</span>
-<a name="ln-106"></a>      <span class="c">!!</span>
-<a name="ln-107"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine coord_b2h_tp.f90 </span>
-<a name="ln-108"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine coord_b2h_tp.f </span>
-<a name="ln-109"></a>      <span class="k">implicit none</span>
-<a name="ln-110"></a>      <span class="c">! Arguments</span>
-<a name="ln-111"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
-<a name="ln-112"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
+<a name="ln-98"></a>   <span class="k">module subroutine </span><span class="n">util_coord_b2h_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">cb</span><span class="p">)</span>
+<a name="ln-99"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-100"></a>      <span class="c">!!</span>
+<a name="ln-101"></a>      <span class="c">!! Convert test particles from barycentric to heliocentric coordinates (position and velocity)</span>
+<a name="ln-102"></a>      <span class="c">!!</span>
+<a name="ln-103"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine coord_b2h_tp.f90 </span>
+<a name="ln-104"></a>      <span class="c">!! Adapted from Hal Levison&#39;s Swift routine coord_b2h_tp.f </span>
+<a name="ln-105"></a>      <span class="k">implicit none</span>
+<a name="ln-106"></a>      <span class="c">! Arguments</span>
+<a name="ln-107"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span>     <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest massive body object</span>
+<a name="ln-108"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_cb</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">cb</span>   <span class="c">!! Swiftest central body object</span>
+<a name="ln-109"></a>      <span class="c">! Internals</span>
+<a name="ln-110"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-111"></a>
+<a name="ln-112"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
 <a name="ln-113"></a>
-<a name="ln-114"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-115"></a>
-<a name="ln-116"></a><span class="k">      associate</span><span class="p">(</span><span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">xbcb</span> <span class="o">=&gt;</span> <span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">,</span> <span class="n">vbcb</span> <span class="o">=&gt;</span> <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">,</span> <span class="n">xb</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">xb</span><span class="p">,</span> <span class="n">xh</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">,</span> <span class="p">&amp;</span>
-<a name="ln-117"></a>               <span class="n">vb</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">vb</span><span class="p">,</span> <span class="n">vh</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">,</span> <span class="n">status</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">)</span>
-<a name="ln-118"></a>         <span class="k">where</span><span class="p">(</span><span class="n">status</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">/=</span> <span class="n">INACTIVE</span><span class="p">)</span>
-<a name="ln-119"></a>            <span class="n">xh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">xb</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">-</span> <span class="n">xbcb</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-120"></a>            <span class="n">xh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">xb</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">-</span> <span class="n">xbcb</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-121"></a>            <span class="n">xh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">xb</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">-</span> <span class="n">xbcb</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span>
-<a name="ln-122"></a>
-<a name="ln-123"></a>            <span class="n">vh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">vb</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">-</span> <span class="n">vbcb</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span>
-<a name="ln-124"></a>            <span class="n">vh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">vb</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">-</span> <span class="n">vbcb</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-125"></a>            <span class="n">vh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">=</span> <span class="n">vb</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">)</span> <span class="o">-</span> <span class="n">vbcb</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span>
-<a name="ln-126"></a>         <span class="k">end where</span>
-<a name="ln-127"></a><span class="k">      end associate</span>
-<a name="ln-128"></a>
-<a name="ln-129"></a><span class="k">      return</span>
-<a name="ln-130"></a><span class="k">   end subroutine </span><span class="n">util_coord_b2h_tp</span>
-<a name="ln-131"></a>   
-<a name="ln-132"></a><span class="k">end submodule </span><span class="n">s_util_coord</span>
+<a name="ln-114"></a><span class="k">      associate</span><span class="p">(</span><span class="n">tp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-115"></a>         <span class="k">do </span><span class="n">concurrent</span><span class="p">(</span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">:</span><span class="n">ntp</span><span class="p">,</span> <span class="n">tp</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">/=</span> <span class="n">INACTIVE</span><span class="p">)</span>
+<a name="ln-116"></a>            <span class="n">tp</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">(:)</span>
+<a name="ln-117"></a>            <span class="n">tp</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span> <span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:)</span>
+<a name="ln-118"></a>         <span class="k">end do</span>
+<a name="ln-119"></a><span class="k">      end associate</span>
+<a name="ln-120"></a>
+<a name="ln-121"></a><span class="k">      return</span>
+<a name="ln-122"></a><span class="k">   end subroutine </span><span class="n">util_coord_b2h_tp</span>
+<a name="ln-123"></a>   
+<a name="ln-124"></a><span class="k">end submodule </span><span class="n">s_util_coord</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/util_copy.f90.html b/docs/sourcefile/util_copy.f90.html
index 1cde08960..d2d6469ff 100644
--- a/docs/sourcefile/util_copy.f90.html
+++ b/docs/sourcefile/util_copy.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~util_copy.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileutil_copyf90EfferentGraph" width="641pt" height="206pt"
- viewBox="0.00 0.00 641.00 205.52" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~util_copy.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 282)">
+<svg id="sourcefileutil_copyf90EfferentGraph" width="641pt" height="219pt"
+ viewBox="0.00 0.00 641.00 219.35" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~util_copy.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 301.25)">
 <title>sourcefile~~util_copy.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 888,-282 888,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 888,-301.25 888,4 -4,4"/>
 <!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~util_copy.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~util_copy.f90</title>
-<polygon fill="none" stroke="black" points="884,-24 813,-24 813,0 884,0 884,-24"/>
-<text text-anchor="middle" x="848.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_copy.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M815.91,-24.02C806.56,-27.58 796.18,-31.53 786.3,-35.28"/>
-<polygon fill="#000000" stroke="#000000" points="784.76,-32.13 776.66,-38.95 787.25,-38.67 784.76,-32.13"/>
+<polygon fill="none" stroke="black" points="884,-260 813,-260 813,-236 884,-236 884,-260"/>
+<text text-anchor="middle" x="848.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_copy.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.81,-11.12C729.99,-10.02 515.12,-13.16 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.7,-258.2C769.11,-270.05 691.96,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.8,-241.23C804.53,-239.62 795.62,-237.88 787.07,-236.21"/>
+<polygon fill="#000000" stroke="#000000" points="787.73,-232.77 777.25,-234.29 786.39,-239.64 787.73,-232.77"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_copy.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~util_copy.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_copy.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_copy.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_copy.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_copy.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_copy.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_copy.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_copy.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_copy.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_copy.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_copy.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~util_copy.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_copy.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/util_exit.f90.html b/docs/sourcefile/util_exit.f90.html
index fb36d6aee..d0beba859 100644
--- a/docs/sourcefile/util_exit.f90.html
+++ b/docs/sourcefile/util_exit.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~util_exit.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileutil_exitf90EfferentGraph" width="641pt" height="206pt"
- viewBox="0.00 0.00 641.00 206.45" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~util_exit.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 282)">
+<svg id="sourcefileutil_exitf90EfferentGraph" width="641pt" height="220pt"
+ viewBox="0.00 0.00 641.00 220.34" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~util_exit.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 301.25)">
 <title>sourcefile~~util_exit.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 884,-282 884,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 884,-301.25 884,4 -4,4"/>
 <!-- sourcefile~util_exit.f90 -->
 <g id="sourcefile~~util_exit.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~util_exit.f90</title>
-<polygon fill="none" stroke="black" points="880,-24 813,-24 813,0 880,0 880,-24"/>
-<text text-anchor="middle" x="846.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_exit.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M814.53,-24.02C805.36,-27.58 795.18,-31.53 785.5,-35.28"/>
-<polygon fill="#000000" stroke="#000000" points="784.1,-32.07 776.04,-38.95 786.63,-38.6 784.1,-32.07"/>
+<polygon fill="none" stroke="black" points="880,-260 813,-260 813,-236 880,-236 880,-260"/>
+<text text-anchor="middle" x="846.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_exit.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.76,-11.17C731.64,-10.06 515.7,-12.97 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-257.68C770.06,-269.52 692.35,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.87,-241.51C804.63,-239.87 795.67,-238.08 787.04,-236.37"/>
+<polygon fill="#000000" stroke="#000000" points="787.61,-232.91 777.12,-234.39 786.25,-239.78 787.61,-232.91"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_exit.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~util_exit.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_exit.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_exit.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_exit.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_exit.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_exit.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_exit.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_exit.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_exit.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_exit.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_exit.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~util_exit.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_exit.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/util_fill.f90.html b/docs/sourcefile/util_fill.f90.html
index 966f1c350..39daa9b2c 100644
--- a/docs/sourcefile/util_fill.f90.html
+++ b/docs/sourcefile/util_fill.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~util_fill.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileutil_fillf90EfferentGraph" width="641pt" height="208pt"
- viewBox="0.00 0.00 641.00 208.09" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~util_fill.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 282)">
+<svg id="sourcefileutil_fillf90EfferentGraph" width="641pt" height="222pt"
+ viewBox="0.00 0.00 641.00 222.09" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~util_fill.f90~~EfferentGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 301.25)">
 <title>sourcefile~~util_fill.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 877,-282 877,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 877,-301.25 877,4 -4,4"/>
 <!-- sourcefile~util_fill.f90 -->
 <g id="sourcefile~~util_fill.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~util_fill.f90</title>
-<polygon fill="none" stroke="black" points="873,-24 813,-24 813,0 873,0 873,-24"/>
-<text text-anchor="middle" x="843" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_fill.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.9,-23.7C803.94,-27.3 793.93,-31.33 784.4,-35.16"/>
-<polygon fill="#000000" stroke="#000000" points="783.06,-31.92 775.09,-38.9 785.68,-38.42 783.06,-31.92"/>
+<polygon fill="none" stroke="black" points="873,-260 813,-260 813,-236 873,-236 873,-260"/>
+<text text-anchor="middle" x="843" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_fill.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.96,-11.26C735.27,-10.14 516.99,-12.54 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.76,-256.88C771.3,-268.66 692.84,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.9,-242C804.79,-240.33 795.83,-238.48 787.14,-236.69"/>
+<polygon fill="#000000" stroke="#000000" points="787.63,-233.22 777.13,-234.63 786.22,-240.07 787.63,-233.22"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_fill.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~util_fill.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_fill.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_fill.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_fill.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_fill.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_fill.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_fill.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_fill.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_fill.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_fill.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_fill.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~util_fill.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_fill.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/util_get_energy_momentum.f90.html b/docs/sourcefile/util_get_energy_momentum.f90.html
index ea3235d80..74550a67b 100644
--- a/docs/sourcefile/util_get_energy_momentum.f90.html
+++ b/docs/sourcefile/util_get_energy_momentum.f90.html
@@ -134,7 +134,7 @@ <h1>util_get_energy_momentum.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.6% of total for source files.">84 statements</a>
+    title=" 0.8% of total for source files.">101 statements</a>
      </li> 
      
      
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~util_get_energy_momentum.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileutil_get_energy_momentumf90EfferentGraph" width="641pt" height="186pt"
- viewBox="0.00 0.00 641.00 186.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph" class="graph" transform="scale(0.65 0.65) rotate(0) translate(4 282)">
+<svg id="sourcefileutil_get_energy_momentumf90EfferentGraph" width="641pt" height="199pt"
+ viewBox="0.00 0.00 641.00 198.64" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph" class="graph" transform="scale(0.65 0.65) rotate(0) translate(4 301.25)">
 <title>sourcefile~~util_get_energy_momentum.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 981,-282 981,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 981,-301.25 981,4 -4,4"/>
 <!-- sourcefile~util_get_energy_momentum.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~util_get_energy_momentum.f90</title>
-<polygon fill="none" stroke="black" points="977,-24 813,-24 813,0 977,0 977,-24"/>
-<text text-anchor="middle" x="895" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_get_energy_momentum.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M848.08,-24.02C828.65,-29.1 806.17,-34.99 787.17,-39.96"/>
-<polygon fill="#000000" stroke="#000000" points="786.09,-36.63 777.3,-42.54 787.87,-43.4 786.09,-36.63"/>
+<polygon fill="none" stroke="black" points="977,-260 813,-260 813,-236 977,-236 977,-260"/>
+<text text-anchor="middle" x="895" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_get_energy_momentum.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.53,-9.71C703.68,-9.02 506.05,-16.11 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.82,-78.02 260.91,-96.3 231.54,-109.67"/>
-<polygon fill="#000000" stroke="#000000" points="229.78,-106.63 222.16,-114 232.71,-112.99 229.78,-106.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M843.67,-260C789.78,-271.78 701.6,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.96,-237.12C804.03,-235.92 795.23,-234.74 787.08,-233.65"/>
+<polygon fill="#000000" stroke="#000000" points="787.51,-230.17 777.13,-232.31 786.57,-237.11 787.51,-230.17"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_get_energy_momentum.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
@@ -573,106 +575,128 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-15"></a>      <span class="c">! Internals</span>
 <a name="ln-16"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span><span class="p">,</span> <span class="n">j</span>
 <a name="ln-17"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I8B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">k</span>
-<a name="ln-18"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">rmag</span><span class="p">,</span> <span class="n">v2</span><span class="p">,</span> <span class="n">rot2</span><span class="p">,</span> <span class="n">oblpot</span><span class="p">,</span> <span class="n">hx</span><span class="p">,</span> <span class="n">hy</span><span class="p">,</span> <span class="n">hz</span><span class="p">,</span> <span class="n">hsx</span><span class="p">,</span> <span class="n">hsy</span><span class="p">,</span> <span class="n">hsz</span>
+<a name="ln-18"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">oblpot</span><span class="p">,</span> <span class="n">kecb</span><span class="p">,</span> <span class="n">kespincb</span>
 <a name="ln-19"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="kd">::</span> <span class="n">irh</span><span class="p">,</span> <span class="n">kepl</span><span class="p">,</span> <span class="n">kespinpl</span><span class="p">,</span> <span class="n">pecb</span>
 <a name="ln-20"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Lplorbitx</span><span class="p">,</span> <span class="n">Lplorbity</span><span class="p">,</span> <span class="n">Lplorbitz</span>
 <a name="ln-21"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Lplspinx</span><span class="p">,</span> <span class="n">Lplspiny</span><span class="p">,</span> <span class="n">Lplspinz</span>
 <a name="ln-22"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nplpl</span><span class="p">)</span> <span class="kd">::</span> <span class="n">pepl</span> 
-<a name="ln-23"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nplpl</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lstatpl</span>
-<a name="ln-24"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lstatus</span>
-<a name="ln-25"></a>
-<a name="ln-26"></a>      <span class="k">associate</span><span class="p">(</span><span class="nb">system</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">cb</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
-<a name="ln-27"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">Lorbit</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-28"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">Lspin</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-29"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">ke_orbit</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-30"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">ke_spin</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-31"></a>
-<a name="ln-32"></a>         <span class="n">kepl</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-33"></a>         <span class="n">Lplorbitx</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-34"></a>         <span class="n">Lplorbity</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-35"></a>         <span class="n">Lplorbitz</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-36"></a>         <span class="n">Lplspinx</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-37"></a>         <span class="n">Lplspiny</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-38"></a>         <span class="n">Lplspinz</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-39"></a>         <span class="n">lstatus</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">/=</span> <span class="n">INACTIVE</span>
-<a name="ln-40"></a>         <span class="c">!!$omp simd private(v2, rot2, hx, hy, hz)</span>
-<a name="ln-41"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-42"></a>            <span class="n">v2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-43"></a>            <span class="n">hx</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-44"></a>            <span class="n">hy</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-45"></a>            <span class="n">hz</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-46"></a>
-<a name="ln-47"></a>            <span class="c">! Angular momentum from orbit </span>
-<a name="ln-48"></a>            <span class="n">Lplorbitx</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">hx</span>
-<a name="ln-49"></a>            <span class="n">Lplorbity</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">hy</span>
-<a name="ln-50"></a>            <span class="n">Lplorbitz</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">hz</span>
-<a name="ln-51"></a>   
-<a name="ln-52"></a>            <span class="c">! Kinetic energy from orbit and spin</span>
-<a name="ln-53"></a>            <span class="n">kepl</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">v2</span>
-<a name="ln-54"></a>         <span class="k">end do</span>
-<a name="ln-55"></a>
-<a name="ln-56"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-57"></a><span class="k">            do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-58"></a>               <span class="n">rot2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-59"></a>               <span class="c">! For simplicity, we always assume that the rotation pole is the 3rd principal axis</span>
-<a name="ln-60"></a>               <span class="n">hsx</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> 
-<a name="ln-61"></a>               <span class="n">hsy</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> 
-<a name="ln-62"></a>               <span class="n">hsz</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> 
-<a name="ln-63"></a>
-<a name="ln-64"></a>               <span class="c">! Angular momentum from spin</span>
-<a name="ln-65"></a>               <span class="n">Lplspinx</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">hsx</span>
-<a name="ln-66"></a>               <span class="n">Lplspiny</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">hsy</span>
-<a name="ln-67"></a>               <span class="n">Lplspinz</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">hsz</span>
-<a name="ln-68"></a>               <span class="n">kespinpl</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">rot2</span>
-<a name="ln-69"></a>            <span class="k">end do</span>
-<a name="ln-70"></a><span class="k">         else</span>
-<a name="ln-71"></a><span class="k">            </span><span class="n">kespinpl</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
-<a name="ln-72"></a>         <span class="k">end if</span>
-<a name="ln-73"></a>   
-<a name="ln-74"></a>         <span class="c">! Do the central body potential energy component first</span>
-<a name="ln-75"></a>         <span class="c">!$omp simd </span>
-<a name="ln-76"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-77"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">px</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="n">i</span><span class="p">),</span> <span class="n">py</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">i</span><span class="p">),</span> <span class="n">pz</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-78"></a>               <span class="n">pecb</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="o">-</span><span class="n">cb</span><span class="p">%</span><span class="n">mass</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">/</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">px</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">py</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">pz</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-79"></a>            <span class="k">end associate</span>
-<a name="ln-80"></a><span class="k">         end do</span>
-<a name="ln-81"></a>   
-<a name="ln-82"></a>         <span class="c">! Do the potential energy between pairs of massive bodies</span>
-<a name="ln-83"></a>         <span class="k">do </span><span class="n">k</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">nplpl</span>
-<a name="ln-84"></a>            <span class="k">associate</span><span class="p">(</span><span class="n">ik</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">k_plpl</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="n">k</span><span class="p">),</span> <span class="n">jk</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">k_plpl</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="n">k</span><span class="p">))</span>
-<a name="ln-85"></a>               <span class="n">pepl</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="o">-</span><span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">ik</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">jk</span><span class="p">)</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">jk</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">ik</span><span class="p">))</span> 
-<a name="ln-86"></a>               <span class="n">lstatpl</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="p">(</span><span class="n">lstatus</span><span class="p">(</span><span class="n">ik</span><span class="p">)</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="n">lstatus</span><span class="p">(</span><span class="n">jk</span><span class="p">))</span>
-<a name="ln-87"></a>            <span class="k">end associate</span>
-<a name="ln-88"></a><span class="k">         end do</span>
-<a name="ln-89"></a><span class="k">   </span>
-<a name="ln-90"></a><span class="k">         </span><span class="nb">system</span><span class="p">%</span><span class="n">ke_orbit</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="nb">sum</span><span class="p">(</span><span class="n">kepl</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(:))</span>
-<a name="ln-91"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="nb">system</span><span class="p">%</span><span class="n">ke_spin</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="nb">sum</span><span class="p">(</span><span class="n">kespinpl</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(:))</span>
-<a name="ln-92"></a>   
-<a name="ln-93"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">pe</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">pepl</span><span class="p">(:),</span> <span class="n">lstatpl</span><span class="p">(:))</span> <span class="o">+</span> <span class="nb">sum</span><span class="p">(</span><span class="n">pecb</span><span class="p">(</span><span class="mi">2</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(</span><span class="mi">2</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-94"></a>   
-<a name="ln-95"></a>         <span class="c">! Potential energy from the oblateness term</span>
-<a name="ln-96"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">loblatecb</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-97"></a>            <span class="c">!$omp simd </span>
-<a name="ln-98"></a>            <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-99"></a>               <span class="n">irh</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
-<a name="ln-100"></a>            <span class="k">end do</span>
-<a name="ln-101"></a><span class="k">            call </span><span class="n">obl_pot</span><span class="p">(</span><span class="n">npl</span><span class="p">,</span> <span class="n">cb</span><span class="p">%</span><span class="n">mass</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">,</span> <span class="n">cb</span><span class="p">%</span><span class="n">j2rp2</span><span class="p">,</span> <span class="n">cb</span><span class="p">%</span><span class="n">j4rp4</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">,</span> <span class="n">irh</span><span class="p">,</span> <span class="n">oblpot</span><span class="p">)</span>
-<a name="ln-102"></a>            <span class="nb">system</span><span class="p">%</span><span class="n">pe</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">pe</span> <span class="o">+</span> <span class="n">oblpot</span>
-<a name="ln-103"></a>         <span class="k">end if</span>
-<a name="ln-104"></a><span class="k">   </span>
-<a name="ln-105"></a><span class="k">         </span><span class="nb">system</span><span class="p">%</span><span class="n">Lorbit</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">Lplorbitx</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span> 
-<a name="ln-106"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">Lorbit</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">Lplorbity</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span> 
-<a name="ln-107"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">Lorbit</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">Lplorbitz</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span> 
-<a name="ln-108"></a>   
-<a name="ln-109"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">Lspin</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">Lplspinx</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span> 
-<a name="ln-110"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">Lspin</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">Lplspiny</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span> 
-<a name="ln-111"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">Lspin</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">Lplspinz</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span> 
-<a name="ln-112"></a>      <span class="k">end associate</span>
-<a name="ln-113"></a>
-<a name="ln-114"></a><span class="k">      return</span>
-<a name="ln-115"></a><span class="k">   end subroutine </span><span class="n">util_get_energy_momentum_system</span>
-<a name="ln-116"></a>
-<a name="ln-117"></a><span class="k">end submodule </span><span class="n">s_util_get_energy_momentum</span>
+<a name="ln-23"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">NDIM</span><span class="p">)</span> <span class="kd">::</span> <span class="n">Lcborbit</span><span class="p">,</span> <span class="n">Lcbspin</span>
+<a name="ln-24"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nplpl</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lstatpl</span>
+<a name="ln-25"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="kd">::</span> <span class="n">lstatus</span>
+<a name="ln-26"></a>
+<a name="ln-27"></a>      <span class="k">associate</span><span class="p">(</span><span class="nb">system</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">cb</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
+<a name="ln-28"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">Lorbit</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-29"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">Lspin</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-30"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">ke_orbit</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-31"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">ke_spin</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-32"></a>
+<a name="ln-33"></a>         <span class="n">kepl</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-34"></a>         <span class="n">Lplorbitx</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-35"></a>         <span class="n">Lplorbity</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-36"></a>         <span class="n">Lplorbitz</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-37"></a>         <span class="n">Lplspinx</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-38"></a>         <span class="n">Lplspiny</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-39"></a>         <span class="n">Lplspinz</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-40"></a>         <span class="n">lstatus</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">/=</span> <span class="n">INACTIVE</span>
+<a name="ln-41"></a>
+<a name="ln-42"></a>         <span class="n">kecb</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">mass</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:),</span> <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:))</span>
+<a name="ln-43"></a>         <span class="n">Lcborbit</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">mass</span> <span class="o">*</span> <span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">(:)</span> <span class="p">.</span><span class="n">cross</span><span class="p">.</span> <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:)</span>
+<a name="ln-44"></a>
+<a name="ln-45"></a>         <span class="k">do </span><span class="n">concurrent</span> <span class="p">(</span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">,</span> <span class="n">lstatus</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-46"></a>            <span class="k">block</span> <span class="c">! We use a block construct to prevent generating temporary arrays for local variables</span>
+<a name="ln-47"></a>               <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">v2</span><span class="p">,</span> <span class="n">hx</span><span class="p">,</span> <span class="n">hy</span><span class="p">,</span> <span class="n">hz</span>
+<a name="ln-48"></a>               <span class="n">v2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-49"></a>               <span class="n">hx</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-50"></a>               <span class="n">hy</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-51"></a>               <span class="n">hz</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-52"></a>
+<a name="ln-53"></a>               <span class="c">! Angular momentum from orbit </span>
+<a name="ln-54"></a>               <span class="n">Lplorbitx</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">hx</span>
+<a name="ln-55"></a>               <span class="n">Lplorbity</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">hy</span>
+<a name="ln-56"></a>               <span class="n">Lplorbitz</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">hz</span>
+<a name="ln-57"></a>   
+<a name="ln-58"></a>               <span class="c">! Kinetic energy from orbit and spin</span>
+<a name="ln-59"></a>               <span class="n">kepl</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">v2</span>
+<a name="ln-60"></a>            <span class="k">end block</span>
+<a name="ln-61"></a><span class="k">         end do</span>
+<a name="ln-62"></a>
+<a name="ln-63"></a><span class="k">         if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-64"></a><span class="k">            </span><span class="n">kespincb</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">mass</span> <span class="o">*</span> <span class="n">cb</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">*</span> <span class="n">cb</span><span class="p">%</span><span class="n">radius</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">cb</span><span class="p">%</span><span class="n">rot</span><span class="p">(:),</span> <span class="n">cb</span><span class="p">%</span><span class="n">rot</span><span class="p">(:))</span>
+<a name="ln-65"></a>
+<a name="ln-66"></a>            <span class="c">! For simplicity, we always assume that the rotation pole is the 3rd principal axis</span>
+<a name="ln-67"></a>            <span class="n">Lcbspin</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">*</span> <span class="n">cb</span><span class="p">%</span><span class="n">mass</span> <span class="o">*</span> <span class="n">cb</span><span class="p">%</span><span class="n">radius</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">cb</span><span class="p">%</span><span class="n">rot</span><span class="p">(:)</span>
+<a name="ln-68"></a>
+<a name="ln-69"></a>            <span class="k">do </span><span class="n">concurrent</span> <span class="p">(</span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">,</span> <span class="n">lstatus</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-70"></a>               <span class="k">block </span>
+<a name="ln-71"></a><span class="k">                  </span><span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">rot2</span><span class="p">,</span> <span class="n">hsx</span><span class="p">,</span> <span class="n">hsy</span><span class="p">,</span> <span class="n">hsz</span>
+<a name="ln-72"></a>
+<a name="ln-73"></a>                  <span class="n">rot2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,</span><span class="n">i</span><span class="p">),</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-74"></a>                  <span class="c">! For simplicity, we always assume that the rotation pole is the 3rd principal axis</span>
+<a name="ln-75"></a>                  <span class="n">hsx</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> 
+<a name="ln-76"></a>                  <span class="n">hsy</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> 
+<a name="ln-77"></a>                  <span class="n">hsz</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span><span class="n">i</span><span class="p">)</span> 
+<a name="ln-78"></a>   
+<a name="ln-79"></a>                  <span class="c">! Angular momentum from spin</span>
+<a name="ln-80"></a>                  <span class="n">Lplspinx</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">hsx</span>
+<a name="ln-81"></a>                  <span class="n">Lplspiny</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">hsy</span>
+<a name="ln-82"></a>                  <span class="n">Lplspinz</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">hsz</span>
+<a name="ln-83"></a>                  <span class="n">kespinpl</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">Ip</span><span class="p">(</span><span class="mi">3</span><span class="p">,</span> <span class="n">i</span><span class="p">)</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">*</span> <span class="n">rot2</span>
+<a name="ln-84"></a>               <span class="k">end block</span>
+<a name="ln-85"></a><span class="k">            end do</span>
+<a name="ln-86"></a><span class="k">         else</span>
+<a name="ln-87"></a><span class="k">            </span><span class="n">kespincb</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-88"></a>            <span class="n">kespinpl</span><span class="p">(:)</span> <span class="o">=</span> <span class="mf">0.0_DP</span>
+<a name="ln-89"></a>         <span class="k">end if</span>
+<a name="ln-90"></a>   
+<a name="ln-91"></a>         <span class="c">! Do the central body potential energy component first</span>
+<a name="ln-92"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">px</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(</span><span class="mi">1</span><span class="p">,:),</span> <span class="n">py</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(</span><span class="mi">2</span><span class="p">,:),</span> <span class="n">pz</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(</span><span class="mi">3</span><span class="p">,:))</span>
+<a name="ln-93"></a>            <span class="k">do </span><span class="n">concurrent</span><span class="p">(</span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">,</span> <span class="n">lstatus</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-94"></a>               <span class="n">pecb</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="o">-</span><span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">/</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">px</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">py</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span> <span class="o">+</span> <span class="n">pz</span><span class="p">(</span><span class="n">i</span><span class="p">)</span><span class="o">**</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-95"></a>            <span class="k">end do</span>
+<a name="ln-96"></a><span class="k">         end associate</span>
+<a name="ln-97"></a>   
+<a name="ln-98"></a>         <span class="c">! Do the potential energy between pairs of massive bodies</span>
+<a name="ln-99"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">indi</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">k_plpl</span><span class="p">(</span><span class="mi">1</span><span class="p">,</span> <span class="p">:),</span> <span class="n">indj</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">k_plpl</span><span class="p">(</span><span class="mi">2</span><span class="p">,</span> <span class="p">:))</span>
+<a name="ln-100"></a>            <span class="k">do </span><span class="n">concurrent</span> <span class="p">(</span><span class="n">k</span> <span class="o">=</span> <span class="mi">1</span><span class="p">:</span><span class="n">pl</span><span class="p">%</span><span class="n">nplpl</span><span class="p">)</span>
+<a name="ln-101"></a>               <span class="n">lstatpl</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="p">(</span><span class="n">lstatus</span><span class="p">(</span><span class="n">indi</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="p">.</span><span class="nb">and</span><span class="p">.</span> <span class="n">lstatus</span><span class="p">(</span><span class="n">indj</span><span class="p">(</span><span class="n">k</span><span class="p">)))</span>
+<a name="ln-102"></a>            <span class="k">end do</span>
+<a name="ln-103"></a>
+<a name="ln-104"></a><span class="k">            do </span><span class="n">concurrent</span> <span class="p">(</span><span class="n">k</span> <span class="o">=</span> <span class="mi">1</span><span class="p">:</span><span class="n">pl</span><span class="p">%</span><span class="n">nplpl</span><span class="p">,</span> <span class="n">lstatpl</span><span class="p">(</span><span class="n">k</span><span class="p">))</span>
+<a name="ln-105"></a>               <span class="n">pepl</span><span class="p">(</span><span class="n">k</span><span class="p">)</span> <span class="o">=</span> <span class="o">-</span><span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="n">indi</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="n">indj</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">indi</span><span class="p">(</span><span class="n">k</span><span class="p">))</span> <span class="o">-</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span> <span class="n">indj</span><span class="p">(</span><span class="n">k</span><span class="p">)))</span> 
+<a name="ln-106"></a>            <span class="k">end do</span>
+<a name="ln-107"></a><span class="k">         end associate</span>
+<a name="ln-108"></a><span class="k">   </span>
+<a name="ln-109"></a><span class="k">         </span><span class="nb">system</span><span class="p">%</span><span class="n">pe</span> <span class="o">=</span> <span class="nb">sum</span><span class="p">(</span><span class="n">pepl</span><span class="p">(:),</span> <span class="n">lstatpl</span><span class="p">(:))</span> <span class="o">+</span> <span class="nb">sum</span><span class="p">(</span><span class="n">pecb</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-110"></a>
+<a name="ln-111"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">ke_orbit</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="p">(</span><span class="n">kecb</span> <span class="o">+</span> <span class="nb">sum</span><span class="p">(</span><span class="n">kepl</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(:)))</span>
+<a name="ln-112"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="nb">system</span><span class="p">%</span><span class="n">ke_spin</span> <span class="o">=</span> <span class="mf">0.5_DP</span> <span class="o">*</span> <span class="p">(</span><span class="n">kespincb</span> <span class="o">+</span> <span class="nb">sum</span><span class="p">(</span><span class="n">kespinpl</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(:)))</span>
+<a name="ln-113"></a>   
+<a name="ln-114"></a>         <span class="c">! Potential energy from the oblateness term</span>
+<a name="ln-115"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">loblatecb</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-116"></a><span class="k">            do </span><span class="n">concurrent</span><span class="p">(</span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">,</span> <span class="n">lstatus</span><span class="p">(</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-117"></a>               <span class="n">irh</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">/</span> <span class="nb">norm2</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="n">i</span><span class="p">))</span>
+<a name="ln-118"></a>            <span class="k">end do</span>
+<a name="ln-119"></a><span class="k">            call </span><span class="n">obl_pot</span><span class="p">(</span><span class="n">npl</span><span class="p">,</span> <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">,</span> <span class="n">cb</span><span class="p">%</span><span class="n">j2rp2</span><span class="p">,</span> <span class="n">cb</span><span class="p">%</span><span class="n">j4rp4</span><span class="p">,</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">,</span> <span class="n">irh</span><span class="p">,</span> <span class="n">oblpot</span><span class="p">)</span>
+<a name="ln-120"></a>            <span class="nb">system</span><span class="p">%</span><span class="n">pe</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">pe</span> <span class="o">+</span> <span class="n">oblpot</span>
+<a name="ln-121"></a>         <span class="k">end if</span>
+<a name="ln-122"></a><span class="k">   </span>
+<a name="ln-123"></a><span class="k">         </span><span class="nb">system</span><span class="p">%</span><span class="n">Lorbit</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">Lcborbit</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="nb">sum</span><span class="p">(</span><span class="n">Lplorbitx</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span> 
+<a name="ln-124"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">Lorbit</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">=</span> <span class="n">Lcborbit</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">+</span> <span class="nb">sum</span><span class="p">(</span><span class="n">Lplorbity</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span> 
+<a name="ln-125"></a>         <span class="nb">system</span><span class="p">%</span><span class="n">Lorbit</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">=</span> <span class="n">Lcborbit</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">+</span> <span class="nb">sum</span><span class="p">(</span><span class="n">Lplorbitz</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span> 
+<a name="ln-126"></a>  
+<a name="ln-127"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lrotation</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-128"></a><span class="k">            </span><span class="nb">system</span><span class="p">%</span><span class="n">Lspin</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">Lcbspin</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">+</span> <span class="nb">sum</span><span class="p">(</span><span class="n">Lplspinx</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span> 
+<a name="ln-129"></a>            <span class="nb">system</span><span class="p">%</span><span class="n">Lspin</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">=</span> <span class="n">Lcbspin</span><span class="p">(</span><span class="mi">2</span><span class="p">)</span> <span class="o">+</span> <span class="nb">sum</span><span class="p">(</span><span class="n">Lplspiny</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span> 
+<a name="ln-130"></a>            <span class="nb">system</span><span class="p">%</span><span class="n">Lspin</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">=</span> <span class="n">Lcbspin</span><span class="p">(</span><span class="mi">3</span><span class="p">)</span> <span class="o">+</span> <span class="nb">sum</span><span class="p">(</span><span class="n">Lplspinz</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">lstatus</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span> 
+<a name="ln-131"></a>         <span class="k">end if</span>
+<a name="ln-132"></a>
+<a name="ln-133"></a><span class="k">         </span><span class="nb">system</span><span class="p">%</span><span class="n">te</span> <span class="o">=</span> <span class="nb">system</span><span class="p">%</span><span class="n">ke_orbit</span> <span class="o">+</span> <span class="nb">system</span><span class="p">%</span><span class="n">ke_spin</span> <span class="o">+</span> <span class="nb">system</span><span class="p">%</span><span class="n">pe</span>
+<a name="ln-134"></a>      <span class="k">end associate</span>
+<a name="ln-135"></a>
+<a name="ln-136"></a><span class="k">      return</span>
+<a name="ln-137"></a><span class="k">   end subroutine </span><span class="n">util_get_energy_momentum_system</span>
+<a name="ln-138"></a>
+<a name="ln-139"></a><span class="k">end submodule </span><span class="n">s_util_get_energy_momentum</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/util_minimize_bfgs.f90.html b/docs/sourcefile/util_minimize_bfgs.f90.html
index 8a5979f9e..fc4cb75da 100644
--- a/docs/sourcefile/util_minimize_bfgs.f90.html
+++ b/docs/sourcefile/util_minimize_bfgs.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~util_minimize_bfgs.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileutil_minimize_bfgsf90EfferentGraph" width="641pt" height="195pt"
- viewBox="0.00 0.00 641.00 195.24" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 282)">
+<svg id="sourcefileutil_minimize_bfgsf90EfferentGraph" width="641pt" height="208pt"
+ viewBox="0.00 0.00 641.00 208.38" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph" class="graph" transform="scale(0.68 0.68) rotate(0) translate(4 301.25)">
 <title>sourcefile~~util_minimize_bfgs.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 935,-282 935,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 935,-301.25 935,4 -4,4"/>
 <!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~util_minimize_bfgs.f90</title>
-<polygon fill="none" stroke="black" points="931,-24 813,-24 813,0 931,0 931,-24"/>
-<text text-anchor="middle" x="872" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_minimize_bfgs.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M832.17,-24.02C817.83,-28.46 801.53,-33.5 786.93,-38.02"/>
-<polygon fill="#000000" stroke="#000000" points="785.66,-34.75 777.14,-41.05 787.73,-41.44 785.66,-34.75"/>
+<polygon fill="none" stroke="black" points="931,-260 813,-260 813,-236 931,-236 931,-260"/>
+<text text-anchor="middle" x="872" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_minimize_bfgs.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.77,-10.45C714.28,-9.52 509.65,-14.94 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.82,-78.02 260.91,-96.3 231.54,-109.67"/>
-<polygon fill="#000000" stroke="#000000" points="229.78,-106.63 222.16,-114 232.71,-112.99 229.78,-106.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M825.02,-260C775.78,-271.78 695.17,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.79,-238.76C804.18,-237.39 795.45,-236.01 787.24,-234.7"/>
+<polygon fill="#000000" stroke="#000000" points="787.6,-231.22 777.18,-233.11 786.51,-238.13 787.6,-231.22"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_minimize_bfgs.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/util_peri.f90.html b/docs/sourcefile/util_peri.f90.html
index dadd98b66..3a61d5b7e 100644
--- a/docs/sourcefile/util_peri.f90.html
+++ b/docs/sourcefile/util_peri.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~util_peri.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileutil_perif90EfferentGraph" width="641pt" height="206pt"
- viewBox="0.00 0.00 641.00 206.22" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~util_peri.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 282)">
+<svg id="sourcefileutil_perif90EfferentGraph" width="641pt" height="220pt"
+ viewBox="0.00 0.00 641.00 220.09" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~util_peri.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 301.25)">
 <title>sourcefile~~util_peri.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 885,-282 885,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 885,-301.25 885,4 -4,4"/>
 <!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~util_peri.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~util_peri.f90</title>
-<polygon fill="none" stroke="black" points="881,-24 813,-24 813,0 881,0 881,-24"/>
-<text text-anchor="middle" x="847" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_peri.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M814.87,-24.02C805.66,-27.58 795.43,-31.53 785.7,-35.28"/>
-<polygon fill="#000000" stroke="#000000" points="784.27,-32.09 776.2,-38.95 786.79,-38.62 784.27,-32.09"/>
+<polygon fill="none" stroke="black" points="881,-260 813,-260 813,-236 881,-236 881,-260"/>
+<text text-anchor="middle" x="847" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_peri.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.93,-11.16C731.49,-10.05 515.65,-12.98 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.94,-257.79C769.94,-269.63 692.3,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.93,-241.45C804.66,-239.81 795.68,-238.04 787.04,-236.32"/>
+<polygon fill="#000000" stroke="#000000" points="787.6,-232.87 777.11,-234.36 786.24,-239.73 787.6,-232.87"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_peri.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~util_peri.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_peri.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_peri.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_peri.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_peri.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_peri.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_peri.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_peri.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_peri.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_peri.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_peri.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~util_peri.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_peri.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/util_rescale.f90.html b/docs/sourcefile/util_rescale.f90.html
new file mode 100644
index 000000000..6aec62b2d
--- /dev/null
+++ b/docs/sourcefile/util_rescale.f90.html
@@ -0,0 +1,670 @@
+<!DOCTYPE html>
+<html lang="en">
+  <head>
+    <meta charset="utf-8">
+    <meta http-equiv="X-UA-Compatible" content="IE=edge">
+    <meta name="viewport" content="width=device-width, initial-scale=1">
+   
+   <meta name="description" content="Swiftest - The Fastest Symplectic Massive Body Integrator in the West (someday, hopefully)">
+    
+    <meta name="author" content="David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott" >
+    <link rel="icon" href="../favicon.png">
+
+    <title>util_rescale.f90 &ndash; swiftest</title>
+
+    <link href="../css/bootstrap.min.css" rel="stylesheet">
+    <link href="../css/pygments.css" rel="stylesheet">
+    <link href="../css/font-awesome.min.css" rel="stylesheet">
+    <link href="../css/local.css" rel="stylesheet">
+    
+    <link  href="../tipuesearch/tipuesearch.css" rel="stylesheet">
+    
+    
+
+    <!-- HTML5 shim and Respond.js for IE8 support of HTML5 elements and media queries -->
+    <!--[if lt IE 9]>
+      <script src="https://oss.maxcdn.com/html5shiv/3.7.2/html5shiv.min.js"></script>
+      <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
+    <![endif]-->
+    
+    <script src="../js/jquery-2.1.3.min.js"></script>
+    <script src="../js/svg-pan-zoom.min.js"></script>
+
+  </head>
+
+  <body>
+
+    <!-- Fixed navbar -->
+    <nav class="navbar navbar-inverse navbar-fixed-top">
+      <div class="container">
+        <div class="navbar-header">
+          <button type="button" class="navbar-toggle collapsed" data-toggle="collapse" data-target="#navbar" aria-expanded="false" aria-controls="navbar">
+            <span class="sr-only">Toggle navigation</span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+            <span class="icon-bar"></span>
+          </button>
+          <a class="navbar-brand" href="../index.html">swiftest </a>
+        </div>
+        <div id="navbar" class="navbar-collapse collapse">
+          <ul class="nav navbar-nav">
+        
+            <li class="dropdown hidden-xs visible-sm visible-md hidden-lg">
+              <a href="#" class="dropdown-toggle"
+              data-toggle="dropdown" role="button"
+              aria-haspopup="true"
+     aria-expanded="false">Contents <span class="caret"></span></a>
+        <ul class="dropdown-menu">
+          
+              
+            <li><a href="../lists/files.html">Source Files</a></li>
+        
+        
+        
+            <li><a href="../lists/modules.html">Modules</a></li>
+        
+            
+                                
+            <li><a href="../lists/procedures.html">Procedures</a></li>
+        
+        
+            <li><a href="../lists/absint.html">Abstract Interfaces</a></li>
+               
+            <li><a href="../lists/types.html">Derived Types</a></li>
+        
+        
+            <li><a href="../program/swiftest_driver.html">Program</a></li>
+      
+            </ul>
+            </li>
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/files.html">Source Files</a></li>
+
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/modules.html">Modules</a></li>
+
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/procedures.html">Procedures</a></li>
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/absint.html">Abstract Interfaces</a></li>
+                             
+<li class="visible-xs hidden-sm visible-lg"><a href="../lists/types.html">Derived Types</a></li>
+
+
+<li class="visible-xs hidden-sm visible-lg"><a href="../program/swiftest_driver.html">Program</a></li>
+
+          </ul>
+        
+        <form action="../search.html" class="navbar-form navbar-right" role="search">
+        <div class="form-group">
+          <input type="text" class="form-control" placeholder="Search" name="q" id="tipue_search_input" autocomplete="off" required>
+        </div>
+<!--
+        <button type="submit" class="btn btn-default">Submit</button>
+-->
+        </form>
+        
+        </div><!--/.nav-collapse -->
+      </div>
+    </nav>
+
+    <div class="container">
+    
+  
+  <div class="row">
+    <h1>util_rescale.f90
+    <small>Source File</small>
+    
+    </h1>
+    
+<div class="row">
+  <div class="col-lg-12">
+<div class="well well-sm">
+  <ul class="list-inline" style="margin-bottom:0px;display:inline">
+     
+     
+     
+     
+    
+    
+     <li><i class="fa fa-list-ol"></i>
+       <a data-toggle="tooltip"
+    data-placement="bottom" data-html="true"
+    title=" 0.3% of total for source files.">35 statements</a>
+     </li> 
+     
+     
+     
+    <li><i class="fa fa-code"></i><a href="../src/util_rescale.f90"> Source File</a></li>
+     
+     
+  </ul>
+  <ol class="breadcrumb in-well text-right">
+  
+    
+  
+     <li class="active">util_rescale.f90</li>
+  </ol>
+</div>
+</div>
+</div>
+<script>
+  $(function () {
+  $('[data-toggle="tooltip"]').tooltip()
+  })
+</script>
+
+  </div>
+  <div class="row">
+    <div class="col-md-3 hidden-xs hidden-sm visible-md visible-lg">
+    
+<div id="sidebar">
+  
+<h3>Contents</h3>
+ 
+
+
+
+
+
+
+
+
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#submods-0">Submodules</a></h3></div>
+  <div id="submods-0" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/s_util_rescale.html">s_util_rescale</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/util_rescale.f90.html#src">util_rescale.f90</a>
+  </div>
+</div>
+
+
+
+</div>
+
+    </div>
+    <div class="col-md-9" id='text'>
+      
+      <br>
+    
+    <div class="panel panel-default">
+      <div class="panel-heading">
+  <h3 class="panel-title">This file depends on</h3>
+      </div>
+      <div class="panel-body">
+  <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.47.1 (20210417.1919)
+ -->
+<!-- Title: sourcefile~~util_rescale.f90~~EfferentGraph Pages: 1 -->
+<svg id="sourcefileutil_rescalef90EfferentGraph" width="641pt" height="216pt"
+ viewBox="0.00 0.00 641.00 215.96" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 301.25)">
+<title>sourcefile~~util_rescale.f90~~EfferentGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 902,-301.25 902,4 -4,4"/>
+<!-- sourcefile~util_rescale.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_node1" class="node">
+<title>sourcefile~util_rescale.f90</title>
+<polygon fill="none" stroke="black" points="898,-260 813,-260 813,-236 898,-236 898,-260"/>
+<text text-anchor="middle" x="855.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_rescale.f90</text>
+</g>
+<!-- sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_node2" class="node">
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge1" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.91,-259.68C767.13,-271.48 691.17,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
+</g>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.79,-240.38C804.37,-238.84 795.51,-237.23 787.08,-235.69"/>
+<polygon fill="#000000" stroke="#000000" points="787.52,-232.21 777.06,-233.85 786.26,-239.09 787.52,-232.21"/>
+</g>
+<!-- sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_node10" class="node">
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
+</g>
+<!-- sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_node5" class="node">
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge5" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
+</g>
+<!-- sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_node6" class="node">
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge7" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
+</g>
+<!-- sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_node8" class="node">
+<title>sourcefile~whm_classes.f90</title>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
+</g>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~util_rescale.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge11" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge13" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge17" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge18" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge20" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge23" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_rescale.f90~~EfferentGraph_edge24" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
+</g>
+</g>
+</svg>
+</div><script>var pansourcefileutil_rescalef90EfferentGraph = svgPanZoom('#sourcefileutil_rescalef90EfferentGraph', {zoomEnabled: true,controlIconsEnabled: true, fit: true, center: true,}); </script><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
+    <p>Nodes of different colours represent the following: </p>
+    <?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.47.1 (20210417.1919)
+ -->
+<!-- Title: Graph Key Pages: 1 -->
+<svg width="190pt" height="32pt"
+ viewBox="0.00 0.00 190.00 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)">
+<title>Graph Key</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 186,-28 186,4 -4,4"/>
+<!-- Source File -->
+<g id="node1" class="node">
+<title>Source File</title>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="67,-24 0,-24 0,0 67,0 67,-24"/>
+<text text-anchor="middle" x="33.5" y="-9.6" 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="182,-24 85,-24 85,0 182,0 182,-24"/>
+<text text-anchor="middle" x="133.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+</g>
+</g>
+</svg>
+
+    
+    <p>Solid arrows point from a file to a file which it depends on. A file
+    is dependent upon another if the latter must be compiled before the former
+    can be.
+    </p>
+    </div></div></div></div>
+      </div>
+    </div>
+    
+      
+      <br>
+
+    <section class="visible-xs visible-sm hidden-md">
+      
+<h3>Contents</h3>
+ 
+
+
+
+
+
+
+
+
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#submods-1">Submodules</a></h3></div>
+  <div id="submods-1" class="panel-collapse collapse">
+    <div class="list-group">
+      
+      <a class="list-group-item" href="../module/s_util_rescale.html">s_util_rescale</a>
+      
+    </div>
+  </div>
+</div>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+<div class="panel panel-primary">
+  <div class="panel-heading text-left"><h3 class="panel-title">Source Code</h3></div>
+  <div class="list-group">
+    <a class="list-group-item" href="../sourcefile/util_rescale.f90.html#src">util_rescale.f90</a>
+  </div>
+</div>
+
+
+
+    </section>
+    <br class="visible-xs visible-sm hidden-md">
+
+    <section>
+      <h2><span class="anchor" id="src"></span>Source Code</h2>
+    <div class="hl"><pre><span></span><a name="ln-1"></a><span class="k">submodule</span> <span class="p">(</span><span class="n">swiftest_classes</span><span class="p">)</span> <span class="n">s_util_rescale</span>
+<a name="ln-2"></a>   <span class="k">use </span><span class="n">swiftest</span>
+<a name="ln-3"></a><span class="k">contains</span>
+<a name="ln-4"></a><span class="k">   module subroutine </span><span class="n">util_rescale_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">,</span> <span class="n">mscale</span><span class="p">,</span> <span class="n">dscale</span><span class="p">,</span> <span class="n">tscale</span><span class="p">)</span>
+<a name="ln-5"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-6"></a>      <span class="c">!!</span>
+<a name="ln-7"></a>      <span class="c">!! Rescales an nbody system to a new set of units. Inputs are the multipliers on the mass (mscale), distance (dscale), and time units (tscale). </span>
+<a name="ln-8"></a>      <span class="c">!! Rescales all united quantities in the system, as well as the mass conversion factors, gravitational constant, and Einstein&#39;s constant in the parameter object.</span>
+<a name="ln-9"></a>      <span class="k">implicit none</span>
+<a name="ln-10"></a><span class="k">      class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-11"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters. Returns with new values of the scale vactors and GU</span>
+<a name="ln-12"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span>                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">mscale</span><span class="p">,</span> <span class="n">dscale</span><span class="p">,</span> <span class="n">tscale</span> <span class="c">!! Scale factors for mass, distance, and time units, respectively. </span>
+<a name="ln-13"></a>      <span class="c">! Internals</span>
+<a name="ln-14"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span> <span class="kd">::</span> <span class="n">vscale</span>
+<a name="ln-15"></a>
+<a name="ln-16"></a>      <span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span> <span class="o">*</span> <span class="n">mscale</span>
+<a name="ln-17"></a>      <span class="n">param</span><span class="p">%</span><span class="n">DU2M</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">DU2M</span> <span class="o">*</span> <span class="n">dscale</span>
+<a name="ln-18"></a>      <span class="n">param</span><span class="p">%</span><span class="n">TU2S</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">TU2S</span> <span class="o">*</span> <span class="n">tscale</span>
+<a name="ln-19"></a>
+<a name="ln-20"></a>      <span class="c">! Calculate the G for the system units</span>
+<a name="ln-21"></a>      <span class="n">param</span><span class="p">%</span><span class="n">GU</span> <span class="o">=</span> <span class="n">GC</span> <span class="o">/</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">DU2M</span><span class="o">**</span><span class="mi">3</span> <span class="o">/</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">MU2KG</span> <span class="o">*</span> <span class="n">param</span><span class="p">%</span><span class="n">TU2S</span><span class="o">**</span><span class="mi">2</span><span class="p">))</span>
+<a name="ln-22"></a>
+<a name="ln-23"></a>      <span class="c">! Calculate the inverse speed of light in the system units</span>
+<a name="ln-24"></a>      <span class="n">param</span><span class="p">%</span><span class="n">inv_c2</span> <span class="o">=</span> <span class="n">einsteinC</span> <span class="o">*</span> <span class="n">param</span><span class="p">%</span><span class="n">TU2S</span> <span class="o">/</span> <span class="n">param</span><span class="p">%</span><span class="n">DU2M</span>
+<a name="ln-25"></a>      <span class="n">param</span><span class="p">%</span><span class="n">inv_c2</span> <span class="o">=</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">inv_c2</span><span class="p">)</span><span class="o">**</span><span class="p">(</span><span class="o">-</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-26"></a>
+<a name="ln-27"></a>      <span class="n">vscale</span> <span class="o">=</span> <span class="n">dscale</span> <span class="o">/</span> <span class="n">tscale</span>
+<a name="ln-28"></a>
+<a name="ln-29"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">cb</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">,</span> <span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">tp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">,</span> <span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-30"></a>
+<a name="ln-31"></a>         <span class="n">cb</span><span class="p">%</span><span class="n">mass</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">mass</span> <span class="o">/</span> <span class="n">mscale</span>
+<a name="ln-32"></a>         <span class="n">cb</span><span class="p">%</span><span class="n">Gmass</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span> <span class="o">*</span> <span class="n">cb</span><span class="p">%</span><span class="n">mass</span> 
+<a name="ln-33"></a>         <span class="n">cb</span><span class="p">%</span><span class="n">radius</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">radius</span> <span class="o">/</span> <span class="n">dscale</span>
+<a name="ln-34"></a>         <span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">xb</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">dscale</span>
+<a name="ln-35"></a>         <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">vb</span><span class="p">(:)</span> <span class="o">/</span> <span class="n">vscale</span>
+<a name="ln-36"></a>         <span class="n">cb</span><span class="p">%</span><span class="n">rot</span><span class="p">(:)</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">rot</span><span class="p">(:)</span> <span class="o">*</span> <span class="n">tscale</span>
+<a name="ln-37"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">/</span> <span class="n">mscale</span>
+<a name="ln-38"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">Gmass</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">param</span><span class="p">%</span><span class="n">GU</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">mass</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> 
+<a name="ln-39"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">radius</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">/</span> <span class="n">dscale</span>
+<a name="ln-40"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">/</span> <span class="n">dscale</span>
+<a name="ln-41"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">vh</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">/</span> <span class="n">vscale</span>
+<a name="ln-42"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">xb</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">/</span> <span class="n">dscale</span>
+<a name="ln-43"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">vb</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">/</span> <span class="n">vscale</span>
+<a name="ln-44"></a>         <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">rot</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">*</span> <span class="n">tscale</span>
+<a name="ln-45"></a>
+<a name="ln-46"></a>      <span class="k">end associate</span>
+<a name="ln-47"></a>
+<a name="ln-48"></a>
+<a name="ln-49"></a><span class="k">      return</span>
+<a name="ln-50"></a><span class="k">   end subroutine </span><span class="n">util_rescale_system</span> 
+<a name="ln-51"></a>
+<a name="ln-52"></a><span class="k">end submodule </span><span class="n">s_util_rescale</span>
+</pre></div>
+
+    </section>
+    </div>
+  </div>
+
+  
+    <hr>    
+    </div> <!-- /container -->
+    <footer>
+      <div class="container">
+      <div class="row">
+        <div class="col-xs-6 col-md-4"><p>&copy; 2021 <a rel="license" href="http://creativecommons.org/licenses/by/4.0/"><img alt="Creative Commons License" style="border-width:0" src="https://i.creativecommons.org/l/by/4.0/80x15.png" /></a>
+                                          </p></div>
+        <div class="col-xs-6 col-md-4 col-md-push-4">
+          <p class="text-right">
+            Documentation generated by 
+            <a href="https://github.com/cmacmackin/ford">FORD</a>
+            
+          </p>
+        </div>
+        <div class="col-xs-12 col-md-4 col-md-pull-4"><p class="text-center"> swiftest was developed by David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott</p></div>
+      </div>
+      <br>
+      </div> <!-- /container -->    
+    </footer>
+
+    <!-- Bootstrap core JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+<!--
+    <script src="https://ajax.googleapis.com/ajax/libs/jquery/1.11.1/jquery.min.js"></script>
+-->
+    <script src="../js/bootstrap.min.js"></script>
+    <!-- IE10 viewport hack for Surface/desktop Windows 8 bug -->
+    <script src="../js/ie10-viewport-bug-workaround.js"></script>
+
+    <!-- MathJax JavaScript
+    ================================================== -->
+    <!-- Placed at the end of the document so the pages load faster -->
+    <script type="text/x-mathjax-config">
+      MathJax.Hub.Config({
+        TeX: { extensions: ['AMSmath.js','AMSsymbols.js','noErrors.js','noUndefined.js'], equationNumbers: { autoNumber: 'AMS' } },
+        jax: ['input/TeX','input/MathML','output/HTML-CSS'],
+        extensions: ['tex2jax.js','mml2jax.js','MathMenu.js','MathZoom.js']
+      });
+    </script>
+    
+    <script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.1/MathJax.js?config=TeX-AMS-MML_HTMLorMML"></script>
+    
+    
+    <script src="../tipuesearch/tipuesearch_content.js"></script>
+    <script src="../tipuesearch/tipuesearch_set.js"></script>
+    <script src="../tipuesearch/tipuesearch.js"></script>
+    
+    
+  </body>
+</html>
\ No newline at end of file
diff --git a/docs/sourcefile/util_resize.f90.html b/docs/sourcefile/util_resize.f90.html
index 9b6daabb1..7d4c42a19 100644
--- a/docs/sourcefile/util_resize.f90.html
+++ b/docs/sourcefile/util_resize.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~util_resize.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileutil_resizef90EfferentGraph" width="641pt" height="204pt"
- viewBox="0.00 0.00 641.00 203.70" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~util_resize.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 282)">
+<svg id="sourcefileutil_resizef90EfferentGraph" width="641pt" height="217pt"
+ viewBox="0.00 0.00 641.00 217.40" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~util_resize.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 301.25)">
 <title>sourcefile~~util_resize.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 896,-282 896,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 896,-301.25 896,4 -4,4"/>
 <!-- sourcefile~util_resize.f90 -->
 <g id="sourcefile~~util_resize.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~util_resize.f90</title>
-<polygon fill="none" stroke="black" points="892,-24 813,-24 813,0 892,0 892,-24"/>
-<text text-anchor="middle" x="852.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_resize.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M818.68,-24.02C808.57,-27.72 797.31,-31.85 786.69,-35.73"/>
-<polygon fill="#000000" stroke="#000000" points="785.35,-32.5 777.17,-39.22 787.76,-39.07 785.35,-32.5"/>
+<polygon fill="none" stroke="black" points="892,-260 813,-260 813,-236 892,-236 892,-260"/>
+<text text-anchor="middle" x="852.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_resize.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.73,-11.01C726.63,-9.93 513.93,-13.54 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.82,-78.02 260.91,-96.3 231.54,-109.67"/>
-<polygon fill="#000000" stroke="#000000" points="229.78,-106.63 222.16,-114 232.71,-112.99 229.78,-106.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.9,-259.04C768.02,-270.88 691.53,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.75,-240.72C804.46,-239.17 795.67,-237.52 787.26,-235.94"/>
+<polygon fill="#000000" stroke="#000000" points="787.72,-232.46 777.24,-234.06 786.43,-239.34 787.72,-232.46"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_resize.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~util_resize.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_resize.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_resize.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_resize.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_resize.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_resize.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_resize.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_resize.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_resize.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_resize.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_resize.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~util_resize.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_resize.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
@@ -559,300 +561,301 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
     <div class="hl"><pre><span></span><a name="ln-1"></a><span class="k">submodule</span> <span class="p">(</span><span class="n">swiftest_classes</span><span class="p">)</span> <span class="n">s_util_resize</span>
 <a name="ln-2"></a>   <span class="k">use </span><span class="n">swiftest</span>
 <a name="ln-3"></a><span class="k">contains</span>
-<a name="ln-4"></a><span class="k">   module subroutine </span><span class="n">util_resize_arr_char_string</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-5"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-6"></a>      <span class="c">!!</span>
-<a name="ln-7"></a>      <span class="c">!! Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</span>
-<a name="ln-8"></a>      <span class="k">implicit none</span>
-<a name="ln-9"></a>      <span class="c">! Arguments</span>
-<a name="ln-10"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
-<a name="ln-11"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
-<a name="ln-12"></a>      <span class="c">! Internals</span>
-<a name="ln-13"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmp</span> <span class="c">!! Temporary storage array in case the input array is already allocated</span>
-<a name="ln-14"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nold</span> <span class="c">!! Old size</span>
-<a name="ln-15"></a>
-<a name="ln-16"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">nnew</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-17"></a>
-<a name="ln-18"></a><span class="k">      </span><span class="n">nold</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-19"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="n">nold</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-20"></a>
-<a name="ln-21"></a><span class="k">      if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-22"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-23"></a>         <span class="k">return</span>
-<a name="ln-24"></a><span class="k">      end if</span>
-<a name="ln-25"></a><span class="k">      </span>
-<a name="ln-26"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">nnew</span><span class="p">))</span>
-<a name="ln-27"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">&gt;</span> <span class="n">nold</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-28"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span>
-<a name="ln-29"></a>      <span class="k">else</span>
-<a name="ln-30"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span>
-<a name="ln-31"></a>      <span class="k">end if</span>
-<a name="ln-32"></a><span class="k">      call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">tmp</span><span class="p">,</span> <span class="n">arr</span><span class="p">)</span>
-<a name="ln-33"></a>
-<a name="ln-34"></a>      <span class="k">return</span>
-<a name="ln-35"></a><span class="k">   end subroutine </span><span class="n">util_resize_arr_char_string</span>
-<a name="ln-36"></a>
+<a name="ln-4"></a>
+<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">util_resize_arr_char_string</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-6"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-7"></a>      <span class="c">!!</span>
+<a name="ln-8"></a>      <span class="c">!! Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</span>
+<a name="ln-9"></a>      <span class="k">implicit none</span>
+<a name="ln-10"></a>      <span class="c">! Arguments</span>
+<a name="ln-11"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
+<a name="ln-12"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                                     <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
+<a name="ln-13"></a>      <span class="c">! Internals</span>
+<a name="ln-14"></a>      <span class="kt">character</span><span class="p">(</span><span class="nb">len</span><span class="o">=</span><span class="n">STRMAX</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmp</span> <span class="c">!! Temporary storage array in case the input array is already allocated</span>
+<a name="ln-15"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nold</span> <span class="c">!! Old size</span>
+<a name="ln-16"></a>
+<a name="ln-17"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">nnew</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-18"></a>
+<a name="ln-19"></a><span class="k">      </span><span class="n">nold</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-20"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="n">nold</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-21"></a>
+<a name="ln-22"></a><span class="k">      if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-23"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-24"></a>         <span class="k">return</span>
+<a name="ln-25"></a><span class="k">      end if</span>
+<a name="ln-26"></a><span class="k">      </span>
+<a name="ln-27"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">nnew</span><span class="p">))</span>
+<a name="ln-28"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">&gt;</span> <span class="n">nold</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-29"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span>
+<a name="ln-30"></a>      <span class="k">else</span>
+<a name="ln-31"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span>
+<a name="ln-32"></a>      <span class="k">end if</span>
+<a name="ln-33"></a><span class="k">      call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">tmp</span><span class="p">,</span> <span class="n">arr</span><span class="p">)</span>
+<a name="ln-34"></a>
+<a name="ln-35"></a>      <span class="k">return</span>
+<a name="ln-36"></a><span class="k">   end subroutine </span><span class="n">util_resize_arr_char_string</span>
 <a name="ln-37"></a>
-<a name="ln-38"></a>   <span class="k">module subroutine </span><span class="n">util_resize_arr_DP</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-39"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-40"></a>      <span class="c">!!</span>
-<a name="ln-41"></a>      <span class="c">!! Resizes an array component of double precision type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</span>
-<a name="ln-42"></a>      <span class="k">implicit none</span>
-<a name="ln-43"></a>      <span class="c">! Arguments</span>
-<a name="ln-44"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
-<a name="ln-45"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
-<a name="ln-46"></a>      <span class="c">! Internals</span>
-<a name="ln-47"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmp</span> <span class="c">!! Temporary storage array in case the input array is already allocated</span>
-<a name="ln-48"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nold</span> <span class="c">!! Old size</span>
-<a name="ln-49"></a>
-<a name="ln-50"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">nnew</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-51"></a>
-<a name="ln-52"></a><span class="k">      </span><span class="n">nold</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-53"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="n">nold</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-54"></a>
-<a name="ln-55"></a><span class="k">      if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-56"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-57"></a>         <span class="k">return</span>
-<a name="ln-58"></a><span class="k">      end if</span>
-<a name="ln-59"></a><span class="k">      </span>
-<a name="ln-60"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">nnew</span><span class="p">))</span>
-<a name="ln-61"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">&gt;</span> <span class="n">nold</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-62"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span>
-<a name="ln-63"></a>      <span class="k">else</span>
-<a name="ln-64"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span>
-<a name="ln-65"></a>      <span class="k">end if</span>
-<a name="ln-66"></a><span class="k">      call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">tmp</span><span class="p">,</span> <span class="n">arr</span><span class="p">)</span>
-<a name="ln-67"></a>
-<a name="ln-68"></a>      <span class="k">return</span>
-<a name="ln-69"></a><span class="k">   end subroutine </span><span class="n">util_resize_arr_DP</span>
-<a name="ln-70"></a>
+<a name="ln-38"></a>
+<a name="ln-39"></a>   <span class="k">module subroutine </span><span class="n">util_resize_arr_DP</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-40"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-41"></a>      <span class="c">!!</span>
+<a name="ln-42"></a>      <span class="c">!! Resizes an array component of double precision type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</span>
+<a name="ln-43"></a>      <span class="k">implicit none</span>
+<a name="ln-44"></a>      <span class="c">! Arguments</span>
+<a name="ln-45"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
+<a name="ln-46"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                        <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
+<a name="ln-47"></a>      <span class="c">! Internals</span>
+<a name="ln-48"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmp</span> <span class="c">!! Temporary storage array in case the input array is already allocated</span>
+<a name="ln-49"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nold</span> <span class="c">!! Old size</span>
+<a name="ln-50"></a>
+<a name="ln-51"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">nnew</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-52"></a>
+<a name="ln-53"></a><span class="k">      </span><span class="n">nold</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-54"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="n">nold</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-55"></a>
+<a name="ln-56"></a><span class="k">      if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-57"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-58"></a>         <span class="k">return</span>
+<a name="ln-59"></a><span class="k">      end if</span>
+<a name="ln-60"></a><span class="k">      </span>
+<a name="ln-61"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">nnew</span><span class="p">))</span>
+<a name="ln-62"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">&gt;</span> <span class="n">nold</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-63"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span>
+<a name="ln-64"></a>      <span class="k">else</span>
+<a name="ln-65"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span>
+<a name="ln-66"></a>      <span class="k">end if</span>
+<a name="ln-67"></a><span class="k">      call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">tmp</span><span class="p">,</span> <span class="n">arr</span><span class="p">)</span>
+<a name="ln-68"></a>
+<a name="ln-69"></a>      <span class="k">return</span>
+<a name="ln-70"></a><span class="k">   end subroutine </span><span class="n">util_resize_arr_DP</span>
 <a name="ln-71"></a>
-<a name="ln-72"></a>   <span class="k">module subroutine </span><span class="n">util_resize_arr_DPvec</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-73"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-74"></a>      <span class="c">!!</span>
-<a name="ln-75"></a>      <span class="c">!! Resizes an array component of double precision vectors of size (NDIM, n). Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</span>
-<a name="ln-76"></a>      <span class="k">implicit none</span>
-<a name="ln-77"></a>      <span class="c">! Arguments</span>
-<a name="ln-78"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
-<a name="ln-79"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                          <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
-<a name="ln-80"></a>      <span class="c">! Internals</span>
-<a name="ln-81"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmp</span> <span class="c">!! Temporary storage array in case the input array is already allocated</span>
-<a name="ln-82"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nold</span> <span class="c">!! Old size</span>
-<a name="ln-83"></a>
-<a name="ln-84"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">nnew</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-85"></a>
-<a name="ln-86"></a><span class="k">      </span><span class="n">nold</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">2</span><span class="p">)</span>
-<a name="ln-87"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="n">nold</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-88"></a>
-<a name="ln-89"></a><span class="k">      if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-90"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-91"></a>         <span class="k">return</span>
-<a name="ln-92"></a><span class="k">      end if</span>
-<a name="ln-93"></a><span class="k">      </span>
-<a name="ln-94"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nnew</span><span class="p">))</span>
-<a name="ln-95"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">&gt;</span> <span class="n">nold</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-96"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span>
-<a name="ln-97"></a>      <span class="k">else</span>
-<a name="ln-98"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span>
-<a name="ln-99"></a>      <span class="k">end if</span>
-<a name="ln-100"></a><span class="k">      call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">tmp</span><span class="p">,</span> <span class="n">arr</span><span class="p">)</span>
-<a name="ln-101"></a>
-<a name="ln-102"></a>      <span class="k">return</span>
-<a name="ln-103"></a><span class="k">   end subroutine </span><span class="n">util_resize_arr_DPvec</span>
-<a name="ln-104"></a>
+<a name="ln-72"></a>
+<a name="ln-73"></a>   <span class="k">module subroutine </span><span class="n">util_resize_arr_DPvec</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-74"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-75"></a>      <span class="c">!!</span>
+<a name="ln-76"></a>      <span class="c">!! Resizes an array component of double precision vectors of size (NDIM, n). Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</span>
+<a name="ln-77"></a>      <span class="k">implicit none</span>
+<a name="ln-78"></a>      <span class="c">! Arguments</span>
+<a name="ln-79"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
+<a name="ln-80"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                          <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
+<a name="ln-81"></a>      <span class="c">! Internals</span>
+<a name="ln-82"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:,:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmp</span> <span class="c">!! Temporary storage array in case the input array is already allocated</span>
+<a name="ln-83"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nold</span> <span class="c">!! Old size</span>
+<a name="ln-84"></a>
+<a name="ln-85"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">nnew</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-86"></a>
+<a name="ln-87"></a><span class="k">      </span><span class="n">nold</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="nb">dim</span><span class="o">=</span><span class="mi">2</span><span class="p">)</span>
+<a name="ln-88"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="n">nold</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-89"></a>
+<a name="ln-90"></a><span class="k">      if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-91"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-92"></a>         <span class="k">return</span>
+<a name="ln-93"></a><span class="k">      end if</span>
+<a name="ln-94"></a><span class="k">      </span>
+<a name="ln-95"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">NDIM</span><span class="p">,</span> <span class="n">nnew</span><span class="p">))</span>
+<a name="ln-96"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">&gt;</span> <span class="n">nold</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-97"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span>
+<a name="ln-98"></a>      <span class="k">else</span>
+<a name="ln-99"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(:,</span> <span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span>
+<a name="ln-100"></a>      <span class="k">end if</span>
+<a name="ln-101"></a><span class="k">      call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">tmp</span><span class="p">,</span> <span class="n">arr</span><span class="p">)</span>
+<a name="ln-102"></a>
+<a name="ln-103"></a>      <span class="k">return</span>
+<a name="ln-104"></a><span class="k">   end subroutine </span><span class="n">util_resize_arr_DPvec</span>
 <a name="ln-105"></a>
-<a name="ln-106"></a>   <span class="k">module subroutine </span><span class="n">util_resize_arr_I4B</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-107"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-108"></a>      <span class="c">!!</span>
-<a name="ln-109"></a>      <span class="c">!! Resizes an array component of integer type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</span>
-<a name="ln-110"></a>      <span class="k">implicit none</span>
-<a name="ln-111"></a>      <span class="c">! Arguments</span>
-<a name="ln-112"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
-<a name="ln-113"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
-<a name="ln-114"></a>      <span class="c">! Internals</span>
-<a name="ln-115"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmp</span> <span class="c">!! Temporary storage array in case the input array is already allocated</span>
-<a name="ln-116"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nold</span> <span class="c">!! Old size</span>
-<a name="ln-117"></a>
-<a name="ln-118"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">nnew</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-119"></a>
-<a name="ln-120"></a><span class="k">      </span><span class="n">nold</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-121"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="n">nold</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-122"></a>
-<a name="ln-123"></a><span class="k">      if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-124"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-125"></a>         <span class="k">return</span>
-<a name="ln-126"></a><span class="k">      end if</span>
-<a name="ln-127"></a><span class="k">      </span>
-<a name="ln-128"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">nnew</span><span class="p">))</span>
-<a name="ln-129"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">&gt;</span> <span class="n">nold</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-130"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span>
-<a name="ln-131"></a>      <span class="k">else</span>
-<a name="ln-132"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span>
-<a name="ln-133"></a>      <span class="k">end if</span>
-<a name="ln-134"></a><span class="k">      call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">tmp</span><span class="p">,</span> <span class="n">arr</span><span class="p">)</span>
-<a name="ln-135"></a>
-<a name="ln-136"></a>      <span class="k">return</span>
-<a name="ln-137"></a><span class="k">   end subroutine </span><span class="n">util_resize_arr_I4B</span>
-<a name="ln-138"></a>
+<a name="ln-106"></a>
+<a name="ln-107"></a>   <span class="k">module subroutine </span><span class="n">util_resize_arr_I4B</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-108"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-109"></a>      <span class="c">!!</span>
+<a name="ln-110"></a>      <span class="c">!! Resizes an array component of integer type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</span>
+<a name="ln-111"></a>      <span class="k">implicit none</span>
+<a name="ln-112"></a>      <span class="c">! Arguments</span>
+<a name="ln-113"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
+<a name="ln-114"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
+<a name="ln-115"></a>      <span class="c">! Internals</span>
+<a name="ln-116"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmp</span> <span class="c">!! Temporary storage array in case the input array is already allocated</span>
+<a name="ln-117"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nold</span> <span class="c">!! Old size</span>
+<a name="ln-118"></a>
+<a name="ln-119"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">nnew</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-120"></a>
+<a name="ln-121"></a><span class="k">      </span><span class="n">nold</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-122"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="n">nold</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-123"></a>
+<a name="ln-124"></a><span class="k">      if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-125"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-126"></a>         <span class="k">return</span>
+<a name="ln-127"></a><span class="k">      end if</span>
+<a name="ln-128"></a><span class="k">      </span>
+<a name="ln-129"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">nnew</span><span class="p">))</span>
+<a name="ln-130"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">&gt;</span> <span class="n">nold</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-131"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span>
+<a name="ln-132"></a>      <span class="k">else</span>
+<a name="ln-133"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span>
+<a name="ln-134"></a>      <span class="k">end if</span>
+<a name="ln-135"></a><span class="k">      call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">tmp</span><span class="p">,</span> <span class="n">arr</span><span class="p">)</span>
+<a name="ln-136"></a>
+<a name="ln-137"></a>      <span class="k">return</span>
+<a name="ln-138"></a><span class="k">   end subroutine </span><span class="n">util_resize_arr_I4B</span>
 <a name="ln-139"></a>
-<a name="ln-140"></a>   <span class="k">module subroutine </span><span class="n">util_resize_arr_logical</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-141"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-142"></a>      <span class="c">!!</span>
-<a name="ln-143"></a>      <span class="c">!! Resizes an array component of logical type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</span>
-<a name="ln-144"></a>      <span class="k">implicit none</span>
-<a name="ln-145"></a>      <span class="c">! Arguments</span>
-<a name="ln-146"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
-<a name="ln-147"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
-<a name="ln-148"></a>      <span class="c">! Internals</span>
-<a name="ln-149"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmp</span> <span class="c">!! Temporary storage array in case the input array is already allocated</span>
-<a name="ln-150"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nold</span> <span class="c">!! Old size</span>
-<a name="ln-151"></a>
-<a name="ln-152"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">nnew</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-153"></a>
-<a name="ln-154"></a><span class="k">      </span><span class="n">nold</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-155"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="n">nold</span><span class="p">)</span> <span class="k">return</span>
-<a name="ln-156"></a>
-<a name="ln-157"></a><span class="k">      if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-158"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
-<a name="ln-159"></a>         <span class="k">return</span>
-<a name="ln-160"></a><span class="k">      end if</span>
-<a name="ln-161"></a><span class="k">      </span>
-<a name="ln-162"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">nnew</span><span class="p">))</span>
-<a name="ln-163"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">&gt;</span> <span class="n">nold</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-164"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span>
-<a name="ln-165"></a>      <span class="k">else</span>
-<a name="ln-166"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span>
-<a name="ln-167"></a>      <span class="k">end if</span>
-<a name="ln-168"></a><span class="k">      call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">tmp</span><span class="p">,</span> <span class="n">arr</span><span class="p">)</span>
-<a name="ln-169"></a>
-<a name="ln-170"></a>      <span class="k">return</span>
-<a name="ln-171"></a><span class="k">   end subroutine </span><span class="n">util_resize_arr_logical</span>
-<a name="ln-172"></a>
+<a name="ln-140"></a>
+<a name="ln-141"></a>   <span class="k">module subroutine </span><span class="n">util_resize_arr_logical</span><span class="p">(</span><span class="n">arr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-142"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-143"></a>      <span class="c">!!</span>
+<a name="ln-144"></a>      <span class="c">!! Resizes an array component of logical type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate.</span>
+<a name="ln-145"></a>      <span class="k">implicit none</span>
+<a name="ln-146"></a>      <span class="c">! Arguments</span>
+<a name="ln-147"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">arr</span>  <span class="c">!! Array to resize</span>
+<a name="ln-148"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>                       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size</span>
+<a name="ln-149"></a>      <span class="c">! Internals</span>
+<a name="ln-150"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">tmp</span> <span class="c">!! Temporary storage array in case the input array is already allocated</span>
+<a name="ln-151"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">nold</span> <span class="c">!! Old size</span>
+<a name="ln-152"></a>
+<a name="ln-153"></a>      <span class="k">if</span> <span class="p">(.</span><span class="nb">not</span><span class="p">.</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span> <span class="p">.</span><span class="nb">or</span><span class="p">.</span> <span class="n">nnew</span> <span class="o">&lt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-154"></a>
+<a name="ln-155"></a><span class="k">      </span><span class="n">nold</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-156"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="n">nold</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-157"></a>
+<a name="ln-158"></a><span class="k">      if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-159"></a><span class="k">         deallocate</span><span class="p">(</span><span class="n">arr</span><span class="p">)</span>
+<a name="ln-160"></a>         <span class="k">return</span>
+<a name="ln-161"></a><span class="k">      end if</span>
+<a name="ln-162"></a><span class="k">      </span>
+<a name="ln-163"></a><span class="k">      allocate</span><span class="p">(</span><span class="n">tmp</span><span class="p">(</span><span class="n">nnew</span><span class="p">))</span>
+<a name="ln-164"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">&gt;</span> <span class="n">nold</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-165"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span>
+<a name="ln-166"></a>      <span class="k">else</span>
+<a name="ln-167"></a><span class="k">         </span><span class="n">tmp</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span> <span class="o">=</span> <span class="n">arr</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span>
+<a name="ln-168"></a>      <span class="k">end if</span>
+<a name="ln-169"></a><span class="k">      call </span><span class="nb">move_alloc</span><span class="p">(</span><span class="n">tmp</span><span class="p">,</span> <span class="n">arr</span><span class="p">)</span>
+<a name="ln-170"></a>
+<a name="ln-171"></a>      <span class="k">return</span>
+<a name="ln-172"></a><span class="k">   end subroutine </span><span class="n">util_resize_arr_logical</span>
 <a name="ln-173"></a>
-<a name="ln-174"></a>   <span class="k">module subroutine </span><span class="n">util_resize_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-175"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-176"></a>      <span class="c">!!</span>
-<a name="ln-177"></a>      <span class="c">!! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</span>
-<a name="ln-178"></a>      <span class="k">implicit none</span>
-<a name="ln-179"></a>      <span class="c">! Arguments</span>
-<a name="ln-180"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest body object</span>
-<a name="ln-181"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
-<a name="ln-182"></a>
-<a name="ln-183"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">name</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-184"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-185"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-186"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-187"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-188"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mu</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-189"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-190"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-191"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xb</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-192"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vb</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-193"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ah</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-194"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">aobl</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-195"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atide</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-196"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">agr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-197"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ir3h</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-198"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">a</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-199"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">e</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-200"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">inc</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-201"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">capom</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-202"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">omega</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-203"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">capm</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-204"></a>      <span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span> <span class="o">/=</span> <span class="n">INACTIVE</span><span class="p">)</span>
-<a name="ln-205"></a>
-<a name="ln-206"></a>      <span class="k">return</span>
-<a name="ln-207"></a><span class="k">   end subroutine </span><span class="n">util_resize_body</span>
-<a name="ln-208"></a>
+<a name="ln-174"></a>
+<a name="ln-175"></a>   <span class="k">module subroutine </span><span class="n">util_resize_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-176"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-177"></a>      <span class="c">!!</span>
+<a name="ln-178"></a>      <span class="c">!! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</span>
+<a name="ln-179"></a>      <span class="k">implicit none</span>
+<a name="ln-180"></a>      <span class="c">! Arguments</span>
+<a name="ln-181"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest body object</span>
+<a name="ln-182"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
+<a name="ln-183"></a>
+<a name="ln-184"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">name</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-185"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">id</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-186"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-187"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ldiscard</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-188"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">lmask</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-189"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mu</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-190"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-191"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vh</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-192"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xb</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-193"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vb</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-194"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ah</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-195"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">aobl</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-196"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atide</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-197"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">agr</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-198"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ir3h</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-199"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">a</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-200"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">e</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-201"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">inc</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-202"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">capom</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-203"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">omega</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-204"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">capm</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-205"></a>      <span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">nnew</span><span class="p">)</span> <span class="o">/=</span> <span class="n">INACTIVE</span><span class="p">)</span>
+<a name="ln-206"></a>
+<a name="ln-207"></a>      <span class="k">return</span>
+<a name="ln-208"></a><span class="k">   end subroutine </span><span class="n">util_resize_body</span>
 <a name="ln-209"></a>
-<a name="ln-210"></a>   <span class="k">module subroutine </span><span class="n">util_resize_encounter</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-211"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-212"></a>      <span class="c">!!</span>
-<a name="ln-213"></a>      <span class="c">!! Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small.</span>
-<a name="ln-214"></a>      <span class="c">!! Note: The reason to extend it by a factor of 2 is for performance. When there are many enounters per step, resizing every time you want to add an </span>
-<a name="ln-215"></a>      <span class="c">!! encounter takes significant computational effort. Resizing by a factor of 2 is a tradeoff between performance (fewer resize calls) and memory managment</span>
-<a name="ln-216"></a>      <span class="c">!! Memory usage grows by a factor of 2 each time it fills up, but no more. </span>
-<a name="ln-217"></a>      <span class="k">implicit none</span>
-<a name="ln-218"></a>      <span class="c">! Arguments</span>
-<a name="ln-219"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest encounter list </span>
-<a name="ln-220"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size of list needed</span>
-<a name="ln-221"></a>      <span class="c">! Internals</span>
-<a name="ln-222"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">enc_temp</span>
-<a name="ln-223"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                           <span class="kd">::</span> <span class="n">nold</span>
-<a name="ln-224"></a>      <span class="kt">logical</span>                                <span class="kd">::</span> <span class="n">lmalloc</span>
-<a name="ln-225"></a>
-<a name="ln-226"></a>      <span class="n">lmalloc</span> <span class="o">=</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">)</span>
-<a name="ln-227"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">lmalloc</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-228"></a><span class="k">         </span><span class="n">nold</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">)</span>
-<a name="ln-229"></a>      <span class="k">else</span>
-<a name="ln-230"></a><span class="k">         </span><span class="n">nold</span> <span class="o">=</span> <span class="mi">0</span>
-<a name="ln-231"></a>      <span class="k">end if</span>
-<a name="ln-232"></a><span class="k">      if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">&gt;</span> <span class="n">nold</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-233"></a><span class="k">         if</span> <span class="p">(</span><span class="n">lmalloc</span><span class="p">)</span> <span class="k">allocate</span><span class="p">(</span><span class="n">enc_temp</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">self</span><span class="p">)</span>
-<a name="ln-234"></a>         <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-235"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lmalloc</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-236"></a><span class="k">            call </span><span class="n">self</span><span class="p">%</span><span class="n">copy</span><span class="p">(</span><span class="n">enc_temp</span><span class="p">)</span>
-<a name="ln-237"></a>            <span class="k">deallocate</span><span class="p">(</span><span class="n">enc_temp</span><span class="p">)</span>
-<a name="ln-238"></a>         <span class="k">end if</span>
-<a name="ln-239"></a><span class="k">      else</span>
-<a name="ln-240"></a><span class="k">         </span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">nnew</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span> <span class="o">=</span> <span class="n">INACTIVE</span>
-<a name="ln-241"></a>      <span class="k">end if</span>
-<a name="ln-242"></a><span class="k">      </span><span class="n">self</span><span class="p">%</span><span class="n">nenc</span> <span class="o">=</span> <span class="n">nnew</span>
-<a name="ln-243"></a>
-<a name="ln-244"></a>      <span class="k">return</span>
-<a name="ln-245"></a><span class="k">   end subroutine </span><span class="n">util_resize_encounter</span>
-<a name="ln-246"></a>
+<a name="ln-210"></a>
+<a name="ln-211"></a>   <span class="k">module subroutine </span><span class="n">util_resize_encounter</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-212"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-213"></a>      <span class="c">!!</span>
+<a name="ln-214"></a>      <span class="c">!! Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small.</span>
+<a name="ln-215"></a>      <span class="c">!! Note: The reason to extend it by a factor of 2 is for performance. When there are many enounters per step, resizing every time you want to add an </span>
+<a name="ln-216"></a>      <span class="c">!! encounter takes significant computational effort. Resizing by a factor of 2 is a tradeoff between performance (fewer resize calls) and memory managment</span>
+<a name="ln-217"></a>      <span class="c">!! Memory usage grows by a factor of 2 each time it fills up, but no more. </span>
+<a name="ln-218"></a>      <span class="k">implicit none</span>
+<a name="ln-219"></a>      <span class="c">! Arguments</span>
+<a name="ln-220"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! Swiftest encounter list </span>
+<a name="ln-221"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span> <span class="c">!! New size of list needed</span>
+<a name="ln-222"></a>      <span class="c">! Internals</span>
+<a name="ln-223"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_encounter</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">enc_temp</span>
+<a name="ln-224"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                           <span class="kd">::</span> <span class="n">nold</span>
+<a name="ln-225"></a>      <span class="kt">logical</span>                                <span class="kd">::</span> <span class="n">lmalloc</span>
+<a name="ln-226"></a>
+<a name="ln-227"></a>      <span class="n">lmalloc</span> <span class="o">=</span> <span class="nb">allocated</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">)</span>
+<a name="ln-228"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">lmalloc</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-229"></a><span class="k">         </span><span class="n">nold</span> <span class="o">=</span> <span class="n">size</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">)</span>
+<a name="ln-230"></a>      <span class="k">else</span>
+<a name="ln-231"></a><span class="k">         </span><span class="n">nold</span> <span class="o">=</span> <span class="mi">0</span>
+<a name="ln-232"></a>      <span class="k">end if</span>
+<a name="ln-233"></a><span class="k">      if</span> <span class="p">(</span><span class="n">nnew</span> <span class="o">&gt;</span> <span class="n">nold</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-234"></a><span class="k">         if</span> <span class="p">(</span><span class="n">lmalloc</span><span class="p">)</span> <span class="k">allocate</span><span class="p">(</span><span class="n">enc_temp</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-235"></a>         <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">2</span> <span class="o">*</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-236"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">lmalloc</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-237"></a><span class="k">            call </span><span class="n">self</span><span class="p">%</span><span class="n">copy</span><span class="p">(</span><span class="n">enc_temp</span><span class="p">)</span>
+<a name="ln-238"></a>            <span class="k">deallocate</span><span class="p">(</span><span class="n">enc_temp</span><span class="p">)</span>
+<a name="ln-239"></a>         <span class="k">end if</span>
+<a name="ln-240"></a><span class="k">      else</span>
+<a name="ln-241"></a><span class="k">         </span><span class="n">self</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">nnew</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">nold</span><span class="p">)</span> <span class="o">=</span> <span class="n">INACTIVE</span>
+<a name="ln-242"></a>      <span class="k">end if</span>
+<a name="ln-243"></a><span class="k">      </span><span class="n">self</span><span class="p">%</span><span class="n">nenc</span> <span class="o">=</span> <span class="n">nnew</span>
+<a name="ln-244"></a>
+<a name="ln-245"></a>      <span class="k">return</span>
+<a name="ln-246"></a><span class="k">   end subroutine </span><span class="n">util_resize_encounter</span>
 <a name="ln-247"></a>
-<a name="ln-248"></a>   <span class="k">module subroutine </span><span class="n">util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-249"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-250"></a>      <span class="c">!!</span>
-<a name="ln-251"></a>      <span class="c">!! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</span>
-<a name="ln-252"></a>      <span class="k">implicit none</span>
-<a name="ln-253"></a>      <span class="c">! Arguments</span>
-<a name="ln-254"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest massive body object</span>
-<a name="ln-255"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
-<a name="ln-256"></a>
-<a name="ln-257"></a>      <span class="k">call </span><span class="n">util_resize_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-258"></a>
-<a name="ln-259"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mass</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-260"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Gmass</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-261"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-262"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">radius</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-263"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xbeg</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-264"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xend</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-265"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vbeg</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-266"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">density</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-267"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-268"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-269"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">k2</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-270"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Q</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-271"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tlag</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-272"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">eucl_index</span><span class="p">()</span>
-<a name="ln-273"></a>
-<a name="ln-274"></a>      <span class="k">return</span>
-<a name="ln-275"></a><span class="k">   end subroutine </span><span class="n">util_resize_pl</span>
-<a name="ln-276"></a>
+<a name="ln-248"></a>
+<a name="ln-249"></a>   <span class="k">module subroutine </span><span class="n">util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-250"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-251"></a>      <span class="c">!!</span>
+<a name="ln-252"></a>      <span class="c">!! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</span>
+<a name="ln-253"></a>      <span class="k">implicit none</span>
+<a name="ln-254"></a>      <span class="c">! Arguments</span>
+<a name="ln-255"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest massive body object</span>
+<a name="ln-256"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
+<a name="ln-257"></a>
+<a name="ln-258"></a>      <span class="k">call </span><span class="n">util_resize_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-259"></a>
+<a name="ln-260"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">mass</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-261"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Gmass</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-262"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rhill</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-263"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">radius</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-264"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xbeg</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-265"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xend</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-266"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vbeg</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-267"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">density</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-268"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Ip</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-269"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">rot</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-270"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">k2</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-271"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">Q</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-272"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tlag</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-273"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">eucl_index</span><span class="p">()</span>
+<a name="ln-274"></a>
+<a name="ln-275"></a>      <span class="k">return</span>
+<a name="ln-276"></a><span class="k">   end subroutine </span><span class="n">util_resize_pl</span>
 <a name="ln-277"></a>
-<a name="ln-278"></a>   <span class="k">module subroutine </span><span class="n">util_resize_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-279"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-280"></a>      <span class="c">!!</span>
-<a name="ln-281"></a>      <span class="c">!! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</span>
-<a name="ln-282"></a>      <span class="k">implicit none</span>
-<a name="ln-283"></a>      <span class="c">! Arguments</span>
-<a name="ln-284"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest massive body object</span>
-<a name="ln-285"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
-<a name="ln-286"></a>
-<a name="ln-287"></a>      <span class="k">call </span><span class="n">util_resize_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-288"></a>
-<a name="ln-289"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-290"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-291"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-292"></a>
-<a name="ln-293"></a>      <span class="k">return</span>
-<a name="ln-294"></a><span class="k">   end subroutine </span><span class="n">util_resize_tp</span>
-<a name="ln-295"></a>
+<a name="ln-278"></a>
+<a name="ln-279"></a>   <span class="k">module subroutine </span><span class="n">util_resize_tp</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-280"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-281"></a>      <span class="c">!!</span>
+<a name="ln-282"></a>      <span class="c">!! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small.</span>
+<a name="ln-283"></a>      <span class="k">implicit none</span>
+<a name="ln-284"></a>      <span class="c">! Arguments</span>
+<a name="ln-285"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! Swiftest massive body object</span>
+<a name="ln-286"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
+<a name="ln-287"></a>
+<a name="ln-288"></a>      <span class="k">call </span><span class="n">util_resize_body</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-289"></a>
+<a name="ln-290"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">isperi</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-291"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">peri</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-292"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">atp</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-293"></a>
+<a name="ln-294"></a>      <span class="k">return</span>
+<a name="ln-295"></a><span class="k">   end subroutine </span><span class="n">util_resize_tp</span>
 <a name="ln-296"></a>
-<a name="ln-297"></a><span class="k">end submodule </span><span class="n">s_util_resize</span>
+<a name="ln-297"></a>
+<a name="ln-298"></a><span class="k">end submodule </span><span class="n">s_util_resize</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/util_set.f90.html b/docs/sourcefile/util_set.f90.html
index 2a8bd3084..0753c6a45 100644
--- a/docs/sourcefile/util_set.f90.html
+++ b/docs/sourcefile/util_set.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~util_set.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileutil_setf90EfferentGraph" width="641pt" height="207pt"
- viewBox="0.00 0.00 641.00 207.15" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~util_set.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 282)">
+<svg id="sourcefileutil_setf90EfferentGraph" width="641pt" height="221pt"
+ viewBox="0.00 0.00 641.00 221.09" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~util_set.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 301.25)">
 <title>sourcefile~~util_set.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 881,-282 881,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 881,-301.25 881,4 -4,4"/>
 <!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~util_set.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~util_set.f90</title>
-<polygon fill="none" stroke="black" points="877,-24 813,-24 813,0 877,0 877,-24"/>
-<text text-anchor="middle" x="845" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_set.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M813.49,-24.02C804.46,-27.58 794.43,-31.53 784.89,-35.28"/>
-<polygon fill="#000000" stroke="#000000" points="783.6,-32.03 775.58,-38.95 786.17,-38.54 783.6,-32.03"/>
+<polygon fill="none" stroke="black" points="877,-260 813,-260 813,-236 877,-236 877,-260"/>
+<text text-anchor="middle" x="845" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_set.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~util_set.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.83,-11.21C733.13,-10.09 516.23,-12.79 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.7,-257.38C770.41,-269.2 692.48,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.95,-241.73C804.8,-240.08 795.87,-238.28 787.24,-236.53"/>
+<polygon fill="#000000" stroke="#000000" points="787.8,-233.08 777.31,-234.53 786.42,-239.94 787.8,-233.08"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~util_set.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_set.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~util_set.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~util_set.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_set.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~util_set.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_set.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_set.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_set.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_set.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_set.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_set.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_set.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_set.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_set.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_set.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_set.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~util_set.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_set.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/util_solve.f90.html b/docs/sourcefile/util_solve.f90.html
index efd41440a..fa43cc12f 100644
--- a/docs/sourcefile/util_solve.f90.html
+++ b/docs/sourcefile/util_solve.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~util_solve.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileutil_solvef90EfferentGraph" width="641pt" height="205pt"
- viewBox="0.00 0.00 641.00 204.60" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~util_solve.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 282)">
+<svg id="sourcefileutil_solvef90EfferentGraph" width="641pt" height="218pt"
+ viewBox="0.00 0.00 641.00 218.38" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~util_solve.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 301.25)">
 <title>sourcefile~~util_solve.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 892,-282 892,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 892,-301.25 892,4 -4,4"/>
 <!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~util_solve.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~util_solve.f90</title>
-<polygon fill="none" stroke="black" points="888,-24 813,-24 813,0 888,0 888,-24"/>
-<text text-anchor="middle" x="850.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_solve.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M817.29,-24.02C807.66,-27.62 796.95,-31.61 786.8,-35.4"/>
-<polygon fill="#000000" stroke="#000000" points="785.42,-32.18 777.28,-38.95 787.87,-38.74 785.42,-32.18"/>
+<polygon fill="none" stroke="black" points="888,-260 813,-260 813,-236 888,-236 888,-260"/>
+<text text-anchor="middle" x="850.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_solve.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.8,-11.06C728.32,-9.97 514.53,-13.35 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.82,-78.02 260.91,-96.3 231.54,-109.67"/>
-<polygon fill="#000000" stroke="#000000" points="229.78,-106.63 222.16,-114 232.71,-112.99 229.78,-106.63"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.83,-258.61C768.58,-270.46 691.75,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.95,-241C804.57,-239.4 795.61,-237.69 787.02,-236.04"/>
+<polygon fill="#000000" stroke="#000000" points="787.65,-232.6 777.17,-234.16 786.34,-239.48 787.65,-232.6"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_solve.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~util_solve.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_solve.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_solve.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_solve.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_solve.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_solve.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_solve.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_solve.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_solve.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_solve.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_solve.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~util_solve.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_solve.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/util_sort.f90.html b/docs/sourcefile/util_sort.f90.html
index 0b8d8cbf4..0bce41dbb 100644
--- a/docs/sourcefile/util_sort.f90.html
+++ b/docs/sourcefile/util_sort.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~util_sort.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileutil_sortf90EfferentGraph" width="641pt" height="206pt"
- viewBox="0.00 0.00 641.00 206.22" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~util_sort.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 282)">
+<svg id="sourcefileutil_sortf90EfferentGraph" width="641pt" height="220pt"
+ viewBox="0.00 0.00 641.00 220.09" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~util_sort.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 301.25)">
 <title>sourcefile~~util_sort.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 885,-282 885,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 885,-301.25 885,4 -4,4"/>
 <!-- sourcefile~util_sort.f90 -->
 <g id="sourcefile~~util_sort.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~util_sort.f90</title>
-<polygon fill="none" stroke="black" points="881,-24 813,-24 813,0 881,0 881,-24"/>
-<text text-anchor="middle" x="847" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_sort.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M814.87,-24.02C805.66,-27.58 795.43,-31.53 785.7,-35.28"/>
-<polygon fill="#000000" stroke="#000000" points="784.27,-32.09 776.2,-38.95 786.79,-38.62 784.27,-32.09"/>
+<polygon fill="none" stroke="black" points="881,-260 813,-260 813,-236 881,-236 881,-260"/>
+<text text-anchor="middle" x="847" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_sort.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.93,-11.16C731.49,-10.05 515.65,-12.98 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.94,-257.79C769.94,-269.63 692.3,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.93,-241.45C804.66,-239.81 795.68,-238.04 787.04,-236.32"/>
+<polygon fill="#000000" stroke="#000000" points="787.6,-232.87 777.11,-234.36 786.24,-239.73 787.6,-232.87"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_sort.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~util_sort.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_sort.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_sort.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_sort.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_sort.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_sort.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_sort.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_sort.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_sort.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_sort.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_sort.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~util_sort.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_sort.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/util_spill.f90.html b/docs/sourcefile/util_spill.f90.html
index d5b6a6fde..34e1d5ebb 100644
--- a/docs/sourcefile/util_spill.f90.html
+++ b/docs/sourcefile/util_spill.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~util_spill.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileutil_spillf90EfferentGraph" width="641pt" height="206pt"
- viewBox="0.00 0.00 641.00 206.22" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~util_spill.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 282)">
+<svg id="sourcefileutil_spillf90EfferentGraph" width="641pt" height="220pt"
+ viewBox="0.00 0.00 641.00 220.09" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~util_spill.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 301.25)">
 <title>sourcefile~~util_spill.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 885,-282 885,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 885,-301.25 885,4 -4,4"/>
 <!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~util_spill.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~util_spill.f90</title>
-<polygon fill="none" stroke="black" points="881,-24 813,-24 813,0 881,0 881,-24"/>
-<text text-anchor="middle" x="847" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_spill.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M814.87,-24.02C805.66,-27.58 795.43,-31.53 785.7,-35.28"/>
-<polygon fill="#000000" stroke="#000000" points="784.27,-32.09 776.2,-38.95 786.79,-38.62 784.27,-32.09"/>
+<polygon fill="none" stroke="black" points="881,-260 813,-260 813,-236 881,-236 881,-260"/>
+<text text-anchor="middle" x="847" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_spill.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.93,-11.16C731.49,-10.05 515.65,-12.98 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.94,-257.79C769.94,-269.63 692.3,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.93,-241.45C804.66,-239.81 795.68,-238.04 787.04,-236.32"/>
+<polygon fill="#000000" stroke="#000000" points="787.6,-232.87 777.11,-234.36 786.24,-239.73 787.6,-232.87"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_spill.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~util_spill.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_spill.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_spill.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_spill.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_spill.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_spill.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_spill.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_spill.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_spill.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_spill.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_spill.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~util_spill.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_spill.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
@@ -741,7 +743,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-183"></a>         <span class="c">! This is the base class, so will be the last to be called in the cascade. </span>
 <a name="ln-184"></a>         <span class="c">! Therefore we need to set the nbody values for both the keeps and discareds</span>
 <a name="ln-185"></a>         <span class="n">discards</span><span class="p">%</span><span class="n">nbody</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(</span><span class="n">lspill_list</span><span class="p">(:))</span>
-<a name="ln-186"></a>         <span class="n">keeps</span><span class="p">%</span><span class="n">nbody</span> <span class="o">=</span> <span class="nb">count</span><span class="p">(.</span><span class="nb">not</span><span class="p">.</span><span class="n">lspill_list</span><span class="p">(:))</span> 
+<a name="ln-186"></a>         <span class="n">keeps</span><span class="p">%</span><span class="n">nbody</span> <span class="o">=</span> <span class="n">keeps</span><span class="p">%</span><span class="n">nbody</span> <span class="o">-</span> <span class="n">discards</span><span class="p">%</span><span class="n">nbody</span>
 <a name="ln-187"></a>         <span class="k">if</span> <span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="n">size</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">status</span><span class="p">))</span> <span class="n">keeps</span><span class="p">%</span><span class="n">status</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">nbody</span><span class="o">+</span><span class="mi">1</span><span class="p">:</span><span class="n">size</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">status</span><span class="p">))</span> <span class="o">=</span> <span class="n">INACTIVE</span>
 <a name="ln-188"></a>
 <a name="ln-189"></a>      <span class="k">end associate</span>
diff --git a/docs/sourcefile/util_valid.f90.html b/docs/sourcefile/util_valid.f90.html
index 170f35c50..051f5358b 100644
--- a/docs/sourcefile/util_valid.f90.html
+++ b/docs/sourcefile/util_valid.f90.html
@@ -134,7 +134,7 @@ <h1>util_valid.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 0.2% of total for source files.">29 statements</a>
+    title=" 0.2% of total for source files.">31 statements</a>
      </li> 
      
      
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~util_valid.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileutil_validf90EfferentGraph" width="641pt" height="205pt"
- viewBox="0.00 0.00 641.00 205.29" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~util_valid.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 282)">
+<svg id="sourcefileutil_validf90EfferentGraph" width="641pt" height="219pt"
+ viewBox="0.00 0.00 641.00 219.11" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~util_valid.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 301.25)">
 <title>sourcefile~~util_valid.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 889,-282 889,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 889,-301.25 889,4 -4,4"/>
 <!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~util_valid.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~util_valid.f90</title>
-<polygon fill="none" stroke="black" points="885,-24 813,-24 813,0 885,0 885,-24"/>
-<text text-anchor="middle" x="849" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_valid.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M816.26,-24.02C806.76,-27.62 796.21,-31.61 786.2,-35.4"/>
-<polygon fill="#000000" stroke="#000000" points="784.93,-32.14 776.82,-38.95 787.41,-38.69 784.93,-32.14"/>
+<polygon fill="none" stroke="black" points="885,-260 813,-260 813,-236 885,-236 885,-260"/>
+<text text-anchor="middle" x="849" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_valid.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.96,-11.1C729.84,-10 515.07,-13.17 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.74,-258.3C768.98,-270.15 691.91,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.84,-241.17C804.55,-239.56 795.62,-237.83 787.06,-236.17"/>
+<polygon fill="#000000" stroke="#000000" points="787.72,-232.73 777.23,-234.26 786.38,-239.6 787.72,-232.73"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_valid.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~util_valid.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_valid.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_valid.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_valid.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_valid.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_valid.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_valid.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_valid.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_valid.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_valid.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_valid.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~util_valid.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_valid.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
@@ -560,7 +562,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-2"></a>   <span class="k">use </span><span class="n">swiftest</span>
 <a name="ln-3"></a><span class="k">contains</span>
 <a name="ln-4"></a>
-<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">util_valid</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">tp</span><span class="p">)</span>
+<a name="ln-5"></a><span class="k">   module subroutine </span><span class="n">util_valid_id_system</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
 <a name="ln-6"></a>      <span class="c">!! author: David A. Minton</span>
 <a name="ln-7"></a>      <span class="c">!!</span>
 <a name="ln-8"></a>      <span class="c">!! Validate massive body and test particle ids</span>
@@ -569,34 +571,36 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-11"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine: util_valid.f90</span>
 <a name="ln-12"></a>      <span class="k">implicit none</span>
 <a name="ln-13"></a>      <span class="c">! Arguments</span>
-<a name="ln-14"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">pl</span>
-<a name="ln-15"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_tp</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span> <span class="kd">::</span> <span class="n">tp</span>
+<a name="ln-14"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_nbody_system</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>   <span class="c">!! Swiftest nbody system object</span>
+<a name="ln-15"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_parameters</span><span class="p">),</span>   <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">param</span>  <span class="c">!! Current run configuration parameters</span>
 <a name="ln-16"></a>      <span class="c">! Internals</span>
 <a name="ln-17"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                  <span class="kd">::</span> <span class="n">i</span>
 <a name="ln-18"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">idarr</span>
 <a name="ln-19"></a>
-<a name="ln-20"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">tp</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
-<a name="ln-21"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">idarr</span><span class="p">(</span><span class="n">npl</span><span class="o">+</span><span class="n">ntp</span><span class="p">))</span>
-<a name="ln-22"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
-<a name="ln-23"></a>            <span class="n">idarr</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-24"></a>         <span class="k">end do</span>
-<a name="ln-25"></a><span class="k">         do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">ntp</span>
-<a name="ln-26"></a>            <span class="n">idarr</span><span class="p">(</span><span class="n">npl</span><span class="o">+</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-27"></a>         <span class="k">end do</span>
-<a name="ln-28"></a><span class="k">         call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">idarr</span><span class="p">)</span>
-<a name="ln-29"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span> <span class="o">+</span> <span class="n">ntp</span> <span class="o">-</span> <span class="mi">1</span>
-<a name="ln-30"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">idarr</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">idarr</span><span class="p">(</span><span class="n">i</span><span class="o">+</span><span class="mi">1</span><span class="p">))</span> <span class="k">then</span>
-<a name="ln-31"></a><span class="k">               write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error:&quot;</span>
-<a name="ln-32"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   more than one body/particle has id = &quot;</span><span class="p">,</span> <span class="n">idarr</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
-<a name="ln-33"></a>               <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-34"></a>            <span class="k">end if</span>
-<a name="ln-35"></a><span class="k">         end do</span>
-<a name="ln-36"></a><span class="k">      end associate</span>
-<a name="ln-37"></a>
-<a name="ln-38"></a><span class="k">      return</span>
-<a name="ln-39"></a><span class="k">   end subroutine </span><span class="n">util_valid</span>
-<a name="ln-40"></a>
-<a name="ln-41"></a><span class="k">end submodule </span><span class="n">s_util_valid</span>
+<a name="ln-20"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">cb</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">,</span> <span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">tp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">,</span> <span class="n">ntp</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-21"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">idarr</span><span class="p">(</span><span class="mi">1</span><span class="o">+</span><span class="n">npl</span><span class="o">+</span><span class="n">ntp</span><span class="p">))</span>
+<a name="ln-22"></a>         <span class="n">idarr</span><span class="p">(</span><span class="mi">1</span><span class="p">)</span> <span class="o">=</span> <span class="n">cb</span><span class="p">%</span><span class="n">id</span>
+<a name="ln-23"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span>
+<a name="ln-24"></a>            <span class="n">idarr</span><span class="p">(</span><span class="mi">1</span><span class="o">+</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-25"></a>         <span class="k">end do</span>
+<a name="ln-26"></a><span class="k">         do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">ntp</span>
+<a name="ln-27"></a>            <span class="n">idarr</span><span class="p">(</span><span class="mi">1</span><span class="o">+</span><span class="n">npl</span><span class="o">+</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">tp</span><span class="p">%</span><span class="n">id</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-28"></a>         <span class="k">end do</span>
+<a name="ln-29"></a><span class="k">         call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">idarr</span><span class="p">)</span>
+<a name="ln-30"></a>         <span class="k">do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">npl</span> <span class="o">+</span> <span class="n">ntp</span> 
+<a name="ln-31"></a>            <span class="k">if</span> <span class="p">(</span><span class="n">idarr</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">==</span> <span class="n">idarr</span><span class="p">(</span><span class="n">i</span><span class="o">+</span><span class="mi">1</span><span class="p">))</span> <span class="k">then</span>
+<a name="ln-32"></a><span class="k">               write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Swiftest error:&quot;</span>
+<a name="ln-33"></a>               <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span> <span class="o">*</span><span class="p">)</span> <span class="s2">&quot;   more than one body/particle has id = &quot;</span><span class="p">,</span> <span class="n">idarr</span><span class="p">(</span><span class="n">i</span><span class="p">)</span>
+<a name="ln-34"></a>               <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-35"></a>            <span class="k">end if</span>
+<a name="ln-36"></a><span class="k">         end do</span>
+<a name="ln-37"></a><span class="k">         </span><span class="n">self</span><span class="p">%</span><span class="n">maxid</span> <span class="o">=</span> <span class="nb">maxval</span><span class="p">(</span><span class="n">idarr</span><span class="p">)</span>
+<a name="ln-38"></a>      <span class="k">end associate</span>
+<a name="ln-39"></a>
+<a name="ln-40"></a><span class="k">      return</span>
+<a name="ln-41"></a><span class="k">   end subroutine </span><span class="n">util_valid_id_system</span>
+<a name="ln-42"></a>
+<a name="ln-43"></a><span class="k">end submodule </span><span class="n">s_util_valid</span>
 </pre></div>
 
     </section>
diff --git a/docs/sourcefile/util_version.f90.html b/docs/sourcefile/util_version.f90.html
index c96f01cf2..e74c8d323 100644
--- a/docs/sourcefile/util_version.f90.html
+++ b/docs/sourcefile/util_version.f90.html
@@ -226,242 +226,244 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~util_version.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefileutil_versionf90EfferentGraph" width="641pt" height="202pt"
- viewBox="0.00 0.00 641.00 202.35" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~util_version.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 282)">
+<svg id="sourcefileutil_versionf90EfferentGraph" width="641pt" height="216pt"
+ viewBox="0.00 0.00 641.00 215.96" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~util_version.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 301.25)">
 <title>sourcefile~~util_version.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-282 902,-282 902,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-301.25 902,-301.25 902,4 -4,4"/>
 <!-- sourcefile~util_version.f90 -->
 <g id="sourcefile~~util_version.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~util_version.f90</title>
-<polygon fill="none" stroke="black" points="898,-24 813,-24 813,0 898,0 898,-24"/>
-<text text-anchor="middle" x="855.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_version.f90</text>
-</g>
-<!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-63 711,-63 711,-39 777,-39 777,-63"/>
-<text text-anchor="middle" x="744" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M820.75,-24.02C810.06,-27.83 798.11,-32.08 786.91,-36.07"/>
-<polygon fill="#000000" stroke="#000000" points="785.57,-32.84 777.32,-39.49 787.92,-39.43 785.57,-32.84"/>
+<polygon fill="none" stroke="black" points="898,-260 813,-260 813,-236 898,-236 898,-260"/>
+<text text-anchor="middle" x="855.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50">util_version.f90</text>
 </g>
 <!-- sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_node3" class="node">
+<g id="sourcefile~~util_version.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-138 143,-138 143,-114 250,-114 250,-138"/>
-<text text-anchor="middle" x="196.5" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-161 147.5,-161 147.5,-137 254.5,-137 254.5,-161"/>
+<text text-anchor="middle" x="201" y="-146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_edge2" class="edge">
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.85,-10.93C724.59,-9.86 513.23,-13.77 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-68C304.8,-77.95 260.9,-96.25 231.53,-109.63"/>
-<polygon fill="#000000" stroke="#000000" points="229.76,-106.6 222.16,-113.97 232.7,-112.95 229.76,-106.6"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.91,-259.68C767.13,-271.48 691.17,-288 624.5,-288 624.5,-288 624.5,-288 487.5,-288 401.97,-288 366.05,-318.07 296,-269 265.72,-247.79 283.23,-222.77 260,-194 251.68,-183.7 240.56,-174.34 230.28,-166.87"/>
+<polygon fill="#000000" stroke="#000000" points="232.13,-163.89 221.93,-161.05 228.13,-169.64 232.13,-163.89"/>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-68C425.19,-72.14 406.37,-48.63 347,-68"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.83,-49.86C699.51,-49.51 686.69,-49.17 675,-49 629.23,-48.33 617.48,-43.83 572,-49 534.61,-53.25 527.04,-65.51 489.5,-68"/>
-</g>
-<!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-82 572,-82 572,-58 675,-58 675,-82"/>
-<text text-anchor="middle" x="623.5" y="-67.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<!-- sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_node3" class="node">
+<title>sourcefile~swiftest.f90</title>
+<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-240 711,-240 711,-216 777,-216 777,-240"/>
+<text text-anchor="middle" x="744" y="-225.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-56.14C702.96,-57.42 694.16,-58.83 685.31,-60.25"/>
-<polygon fill="#000000" stroke="#000000" points="684.65,-56.81 675.33,-61.85 685.76,-63.72 684.65,-56.81"/>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge2" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.79,-240.38C804.37,-238.84 795.51,-237.23 787.08,-235.69"/>
+<polygon fill="#000000" stroke="#000000" points="787.52,-232.21 777.06,-233.85 786.26,-239.09 787.52,-232.21"/>
 </g>
 <!-- sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_node5" class="node">
+<g id="sourcefile~~util_version.f90~~EfferentGraph_node10" class="node">
 <title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-178 0,-178 0,-154 106,-154 106,-178"/>
-<text text-anchor="middle" x="53" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-112 0,-112 0,-88 106,-88 106,-112"/>
+<text text-anchor="middle" x="53" y="-97.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C318.11,-262.46 311.34,-258.98 287,-247 243.81,-225.74 245.51,-189.46 197.5,-186"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C426.91,-281.1 408.91,-274.14 347,-266"/>
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge3" class="edge">
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.91,-136.89C144.45,-130.36 120.23,-122.23 99.49,-115.27"/>
+<polygon fill="#000000" stroke="#000000" points="100.52,-111.92 89.93,-112.06 98.29,-118.56 100.52,-111.92"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-200 441,-200 441,-176 536,-176 536,-200"/>
-<text text-anchor="middle" x="488.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge8" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C418.48,-238.43 419.73,-184.13 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C563.39,-248.51 548.05,-256.11 489.5,-248"/>
+</g>
+<!-- sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_node4" class="node">
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-24 142,-24 142,0 260,0 260,-24"/>
+<text text-anchor="middle" x="201" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_edge6" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C598.81,-178.59 570.63,-183.76 546.32,-186.21"/>
-<polygon fill="#000000" stroke="#000000" points="545.81,-182.74 536.16,-187.1 546.43,-189.71 545.81,-182.74"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M734.86,-215.89C717.66,-191.41 675.06,-136.11 624.5,-110"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C311.9,-49.77 270.65,-37.71 241.35,-27.41"/>
+<polygon fill="#000000" stroke="#000000" points="242.49,-24.11 231.9,-24.01 240.12,-30.69 242.49,-24.11"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C584.7,-90.48 577.03,-80.24 536,-69 456.58,-47.25 433.7,-56.88 351.5,-52"/>
 </g>
 <!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_node7" class="node">
+<g id="sourcefile~~util_version.f90~~EfferentGraph_node5" class="node">
 <title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-120 441.5,-120 441.5,-96 535.5,-96 535.5,-120"/>
-<text text-anchor="middle" x="488.5" y="-105.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-220 441.5,-220 441.5,-196 535.5,-196 535.5,-220"/>
+<text text-anchor="middle" x="488.5" y="-205.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_edge7" class="edge">
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.63,-172.41 556.76,-144.25 520.64,-125"/>
-<polygon fill="#000000" stroke="#000000" points="521.95,-121.73 511.48,-120.08 518.64,-127.9 521.95,-121.73"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.3,-63.07C718.64,-88 676.49,-144.75 624.5,-168"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.81,-236.27C687.11,-241.66 654.02,-247.74 624.5,-248"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-248C587.5,-248.3 549.42,-235.4 523.02,-224.17"/>
+<polygon fill="#000000" stroke="#000000" points="524.41,-220.96 513.84,-220.14 521.59,-227.37 524.41,-220.96"/>
 </g>
 <!-- sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_node8" class="node">
+<g id="sourcefile~~util_version.f90~~EfferentGraph_node6" class="node">
 <title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-278 142,-278 142,-254 251,-254 251,-278"/>
-<text text-anchor="middle" x="196.5" y="-263.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-260 296,-260 296,-236 405,-236 405,-260"/>
+<text text-anchor="middle" x="350.5" y="-245.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_edge8" class="edge">
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge7" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-266C317.77,-262.42 287.46,-261.84 261.44,-262.37"/>
-<polygon fill="#000000" stroke="#000000" points="261.22,-258.88 251.32,-262.64 261.41,-265.88 261.22,-258.88"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-248C464.07,-244.75 438.16,-244.05 415.29,-244.39"/>
+<polygon fill="#000000" stroke="#000000" points="414.94,-240.9 405.02,-244.62 415.09,-247.9 414.94,-240.9"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_node7" class="node">
+<title>sourcefile~rmvs_classes.f90</title>
+<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-102 441,-102 441,-78 536,-78 536,-102"/>
+<text text-anchor="middle" x="488.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C599.17,-98.41 570.92,-93.13 546.46,-90.85"/>
+<polygon fill="#000000" stroke="#000000" points="546.48,-87.34 536.24,-90.05 545.93,-94.32 546.48,-87.34"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_node9" class="node">
+<g id="sourcefile~~util_version.f90~~EfferentGraph_node8" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-158 299,-158 299,-134 393,-134 393,-158"/>
-<text text-anchor="middle" x="346" y="-143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-142 303.5,-142 303.5,-118 397.5,-118 397.5,-142"/>
+<text text-anchor="middle" x="350.5" y="-127.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_version.f90~~EfferentGraph_edge9" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C612.66,-172.4 480.91,-159.78 403.23,-151.87"/>
-<polygon fill="#000000" stroke="#000000" points="403.42,-148.37 393.11,-150.84 402.7,-155.34 403.42,-148.37"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-110C613.05,-105.31 484.37,-116.95 407.78,-124.38"/>
+<polygon fill="#000000" stroke="#000000" points="407.41,-120.9 397.8,-125.36 408.09,-127.87 407.41,-120.9"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-238 287,-238 287,-214 405,-214 405,-238"/>
-<text text-anchor="middle" x="346" y="-223.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<!-- sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_node9" class="node">
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~util_version.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-200 572,-200 572,-176 675,-176 675,-200"/>
+<text text-anchor="middle" x="623.5" y="-185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-168C555.81,-198.71 560.75,-248.24 489.5,-266"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-266C468.27,-270.79 420.14,-254.82 385.58,-241.65"/>
-<polygon fill="#000000" stroke="#000000" points="386.81,-238.38 376.22,-238.04 384.29,-244.91 386.81,-238.38"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-217.18C698.36,-212.93 683.7,-207.98 670.06,-203.38"/>
+<polygon fill="#000000" stroke="#000000" points="670.95,-199.98 660.35,-200.1 668.71,-206.62 670.95,-199.98"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_version.f90~~EfferentGraph_edge11" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.05,-138C138.49,-142.12 122.02,-146.77 106.74,-151.09"/>
-<polygon fill="#000000" stroke="#000000" points="105.58,-147.78 96.91,-153.87 107.49,-154.52 105.58,-147.78"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-52C159.27,-53.23 115.17,-70.08 86.22,-83.47"/>
+<polygon fill="#000000" stroke="#000000" points="84.54,-80.4 77.01,-87.85 87.54,-86.72 84.54,-80.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-52C284.29,-45.28 267.53,-50.02 202,-52"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.93,-67.31C547.07,-66.48 516.69,-66.2 489.5,-68"/>
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge12" class="edge">
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M170.25,-24.02C161.01,-28.1 150.92,-32.92 142,-38 119.18,-50.99 94.9,-68.4 77.64,-81.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.11,-78.99 69.3,-87.85 79.36,-84.55 75.11,-78.99"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_version.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.95,-59.05C560.2,-56.95 547.71,-55.07 536,-54 425.8,-43.89 396.09,-35.37 287,-54 219.66,-65.5 202.84,-73.93 142,-105 118.6,-116.95 94.21,-134.3 77.06,-147.45"/>
-<polygon fill="#000000" stroke="#000000" points="74.53,-144.98 68.79,-153.89 78.83,-150.5 74.53,-144.98"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_edge12" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M608.77,-82.18C585.57,-102.76 538.47,-144.55 510.91,-169.01"/>
-<polygon fill="#000000" stroke="#000000" points="508.51,-166.45 503.36,-175.71 513.16,-171.69 508.51,-166.45"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M449.74,-195.95C422.63,-187.67 385.11,-176.96 351.5,-170"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_version.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M580.42,-82.02C568.05,-85.56 554.37,-89.47 541.45,-93.16"/>
-<polygon fill="#000000" stroke="#000000" points="540.42,-89.81 531.76,-95.92 542.34,-96.54 540.42,-89.81"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M464.49,-195.82C456.9,-191.62 448.49,-186.77 441,-182 424.36,-171.39 421.94,-166.13 405,-156 399.53,-152.73 393.59,-149.53 387.73,-146.55"/>
+<polygon fill="#000000" stroke="#000000" points="389.17,-143.35 378.65,-142.07 386.07,-149.63 389.17,-143.35"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge15" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-208C148.82,-187.46 99.42,-144.57 73.26,-119.46"/>
+<polygon fill="#000000" stroke="#000000" points="75.51,-116.77 65.91,-112.28 70.62,-121.78 75.51,-116.77"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.36,-212.12C371.89,-217.63 244.09,-224.89 202,-208"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_version.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.97,-189.46C383.63,-190.85 283.26,-191.95 197.5,-186"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.95,-236.67C267.52,-229.87 232.29,-220.16 202,-208"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~util_version.f90~~EfferentGraph_edge17" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M447.24,-175.96C431.66,-171.31 413.66,-165.93 397.25,-161.02"/>
-<polygon fill="#000000" stroke="#000000" points="397.85,-157.55 387.27,-158.04 395.85,-164.25 397.85,-157.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M446.7,-102C432.84,-106.08 417.17,-110.68 402.61,-114.97"/>
+<polygon fill="#000000" stroke="#000000" points="401.35,-111.69 392.75,-117.87 403.33,-118.4 401.35,-111.69"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~util_version.f90~~EfferentGraph_edge19" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.35,-103.46C413.8,-101.71 378.22,-101.14 347,-106"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C317.27,-110.31 286.53,-114.57 260.32,-118.03"/>
-<polygon fill="#000000" stroke="#000000" points="259.6,-114.6 250.14,-119.37 260.51,-121.54 259.6,-114.6"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_version.f90~~EfferentGraph_edge18" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-186C169.4,-184.12 140.79,-180.39 116.17,-176.66"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-173.2 106.23,-175.13 115.58,-180.11 116.65,-173.2"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-106C318.2,-110.17 311.34,-113.02 287,-125 243.81,-146.26 245.51,-189.46 197.5,-186"/>
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.76,-95.92C414.16,-97.83 380.46,-97.77 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C284.12,-72.45 269.67,-49.95 202,-52"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~util_version.f90~~EfferentGraph_edge19" class="edge">
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M303.23,-135.96C291.04,-137.53 277.66,-139.25 264.75,-140.92"/>
+<polygon fill="#000000" stroke="#000000" points="264,-137.48 254.53,-142.23 264.89,-144.43 264,-137.48"/>
+</g>
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_version.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M443.04,-120.02C429.85,-123.59 415.24,-127.54 401.48,-131.26"/>
-<polygon fill="#000000" stroke="#000000" points="400.39,-127.93 391.65,-133.92 402.22,-134.69 400.39,-127.93"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M324.05,-117.97C315.13,-113.67 305.07,-108.71 296,-104 253.63,-82 249.72,-50.56 202,-52"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~util_version.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M178.43,-253.94C153.78,-236.52 108.05,-204.2 79.42,-183.97"/>
-<polygon fill="#000000" stroke="#000000" points="81.32,-181.02 71.13,-178.11 77.28,-186.73 81.32,-181.02"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C428.35,-155.52 410.7,-182.25 351.5,-170"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-170C322,-164.31 291.29,-159.66 265.04,-156.21"/>
+<polygon fill="#000000" stroke="#000000" points="265.21,-152.7 254.84,-154.89 264.31,-159.64 265.21,-152.7"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~util_version.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M298.73,-139.73C286.54,-138.07 273.16,-136.26 260.25,-134.51"/>
-<polygon fill="#000000" stroke="#000000" points="260.41,-131 250.03,-133.12 259.47,-137.93 260.41,-131"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-195.62C563.29,-196.9 554.37,-198.24 545.69,-199.55"/>
+<polygon fill="#000000" stroke="#000000" points="545.02,-196.11 535.65,-201.06 546.06,-203.03 545.02,-196.11"/>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~util_version.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M320.46,-158.02C291.59,-170.89 241.97,-189.08 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-175.98C583.16,-159.01 540.92,-127.89 514.07,-108.11"/>
+<polygon fill="#000000" stroke="#000000" points="516.07,-105.23 505.94,-102.12 511.92,-110.86 516.07,-105.23"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~util_version.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M314.53,-213.97C285.12,-203.27 239.06,-188.88 197.5,-186"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-168C443.39,-158.7 444.96,-129.86 405,-109 382.63,-97.32 375.87,-96.54 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.73,-181.79C546.82,-178.38 516.46,-173.69 489.5,-168"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/whm_classes.f90.html b/docs/sourcefile/whm_classes.f90.html
index 5d6474d2f..4efe73a0f 100644
--- a/docs/sourcefile/whm_classes.f90.html
+++ b/docs/sourcefile/whm_classes.f90.html
@@ -234,44 +234,44 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_classes.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<polygon fill="none" stroke="black" points="379,-44 285,-44 285,-20 379,-20 379,-44"/>
-<text text-anchor="middle" x="332" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_classes.f90</text>
+<polygon fill="none" stroke="black" points="379,-24 285,-24 285,0 379,0 379,-24"/>
+<text text-anchor="middle" x="332" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_classes.f90</text>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_classes.f90~~EfferentGraph_node2" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-44 0,-44 0,-20 106,-20 106,-44"/>
-<text text-anchor="middle" x="53" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="249,-44 142,-44 142,-20 249,-20 249,-44"/>
+<text text-anchor="middle" x="195.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_classes.f90~~EfferentGraph_edge1" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.6,-32.66C272.98,-32.8 260.53,-32.93 249,-33 201.45,-33.29 189.55,-33.27 142,-33 133.65,-32.95 124.86,-32.88 116.2,-32.79"/>
-<polygon fill="#000000" stroke="#000000" points="116.15,-29.29 106.12,-32.69 116.08,-36.29 116.15,-29.29"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.71,-18.88C276.52,-20.1 267.87,-21.39 259.31,-22.66"/>
+<polygon fill="#000000" stroke="#000000" points="258.72,-19.21 249.34,-24.14 259.75,-26.13 258.72,-19.21"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_classes.f90~~EfferentGraph_node3" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="249,-24 142,-24 142,0 249,0 249,-24"/>
-<text text-anchor="middle" x="195.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" 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" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_classes.f90~~EfferentGraph_edge2" class="edge">
-<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.71,-25.12C276.52,-23.9 267.87,-22.61 259.31,-21.34"/>
-<polygon fill="#000000" stroke="#000000" points="259.75,-17.87 249.34,-19.86 258.72,-24.79 259.75,-17.87"/>
+<title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M284.6,-11.34C272.98,-11.2 260.53,-11.07 249,-11 201.45,-10.71 189.55,-10.73 142,-11 133.65,-11.05 124.86,-11.12 116.2,-11.21"/>
+<polygon fill="#000000" stroke="#000000" points="116.08,-7.71 106.12,-11.31 116.15,-14.71 116.08,-7.71"/>
 </g>
 <!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_classes.f90~~EfferentGraph_edge3" class="edge">
 <title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.78,-19.5C133.39,-20.7 124.64,-21.94 116.05,-23.17"/>
-<polygon fill="#000000" stroke="#000000" points="115.49,-19.71 106.08,-24.59 116.47,-26.64 115.49,-19.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M141.78,-24.5C133.39,-23.3 124.64,-22.06 116.05,-20.83"/>
+<polygon fill="#000000" stroke="#000000" points="116.47,-17.36 106.08,-19.41 115.49,-24.29 116.47,-17.36"/>
 </g>
 </g>
 </svg>
@@ -324,1121 +324,1135 @@ <h3 class="panel-title">Files dependent on this one</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~whm_classes.f90~~AfferentGraph Pages: 1 -->
-<svg id="sourcefilewhm_classesf90AfferentGraph" width="641pt" height="2307pt"
- viewBox="0.00 0.00 641.00 2307.22" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph" class="graph" transform="scale(0.95 0.95) rotate(0) translate(4 2422)">
+<svg id="sourcefilewhm_classesf90AfferentGraph" width="641pt" height="2347pt"
+ viewBox="0.00 0.00 641.00 2347.16" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph" class="graph" transform="scale(0.95 0.95) rotate(0) translate(4 2464)">
 <title>sourcefile~~whm_classes.f90~~AfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-2422 670,-2422 670,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-2464 670,-2464 670,4 -4,4"/>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node1" class="node">
 <title>sourcefile~whm_classes.f90</title>
-<polygon fill="none" stroke="black" points="94,-1201 0,-1201 0,-1177 94,-1177 94,-1201"/>
-<text text-anchor="middle" x="47" y="-1186.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_classes.f90</text>
+<polygon fill="none" stroke="black" points="94,-1263 0,-1263 0,-1239 94,-1239 94,-1263"/>
+<text text-anchor="middle" x="47" y="-1248.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_classes.f90</text>
 </g>
 <!-- sourcefile~whm_drift.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node2" class="node">
 <title>sourcefile~whm_drift.f90</title>
 <g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node2"><a xlink:href=".././sourcefile/whm_drift.f90.html" xlink:title="whm_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622.5,-2418 545.5,-2418 545.5,-2394 622.5,-2394 622.5,-2418"/>
-<text text-anchor="middle" x="584" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622.5,-2460 545.5,-2460 545.5,-2436 622.5,-2436 622.5,-2460"/>
+<text text-anchor="middle" x="584" y="-2445.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_drift.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge1" class="edge">
 <title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.33,-2400.12C531.19,-2396.93 515.32,-2392.12 502,-2385 368.98,-2313.86 331.53,-2279.35 261,-2146 81.14,-1805.96 52.84,-1320.45 48.68,-1211.33"/>
-<polygon fill="#000000" stroke="#000000" points="52.17,-1211.06 48.32,-1201.19 45.18,-1211.3 52.17,-1211.06"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.33,-2442.12C531.19,-2438.93 515.32,-2434.12 502,-2427 369.53,-2356.16 331.96,-2322.41 261,-2190 82.74,-1857.37 53.24,-1381.15 48.75,-1273.29"/>
+<polygon fill="#000000" stroke="#000000" points="52.25,-1273.1 48.36,-1263.24 45.25,-1273.37 52.25,-1273.1"/>
 </g>
 <!-- sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node5" class="node">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node3" class="node">
 <title>sourcefile~swiftest.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="466,-1221 400,-1221 400,-1197 466,-1197 466,-1221"/>
-<text text-anchor="middle" x="433" y="-1206.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="466,-1263 400,-1263 400,-1239 466,-1239 466,-1263"/>
+<text text-anchor="middle" x="433" y="-1248.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge34" class="edge">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge30" class="edge">
 <title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.16,-2405.54C529.42,-2403.27 512.42,-2397.69 502,-2385 482.95,-2361.8 441.62,-1391.35 434.92,-1231.25"/>
-<polygon fill="#000000" stroke="#000000" points="438.42,-1231 434.5,-1221.15 431.42,-1231.29 438.42,-1231"/>
-</g>
-<!-- sourcefile~whm_setup.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node3" class="node">
-<title>sourcefile~whm_setup.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node3"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="626.5,-234 541.5,-234 541.5,-210 626.5,-210 626.5,-234"/>
-<text text-anchor="middle" x="584" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.16,-2447.54C529.42,-2445.27 512.42,-2439.69 502,-2427 482.95,-2403.8 441.62,-1433.35 434.92,-1273.25"/>
+<polygon fill="#000000" stroke="#000000" points="438.42,-1273 434.5,-1263.15 431.42,-1273.29 438.42,-1273"/>
 </g>
-</g>
-<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge2" class="edge">
-<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M541.14,-215.29C528.08,-212.12 513.98,-207.55 502,-201 465.85,-181.23 475.1,-135.16 434,-138"/>
-</g>
-<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge13" class="edge">
-<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M541.46,-223.13C526.84,-225.74 511.66,-231.38 502,-243 470.77,-280.56 440.19,-1046.39 434.83,-1186.94"/>
-<polygon fill="#000000" stroke="#000000" points="431.33,-1186.83 434.45,-1196.96 438.32,-1187.1 431.33,-1186.83"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.5,-1251C240.09,-1251 157.8,-1251 104.44,-1251"/>
+<polygon fill="#000000" stroke="#000000" points="104.17,-1247.5 94.17,-1251 104.17,-1254.5 104.17,-1247.5"/>
 </g>
-<!-- sourcefile~whm_coord.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node4" class="node">
-<title>sourcefile~whm_coord.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="627,-192 541,-192 541,-168 627,-168 627,-192"/>
-<text text-anchor="middle" x="584" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node4"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="224.5,-1303 130.5,-1303 130.5,-1279 224.5,-1279 224.5,-1303"/>
+<text text-anchor="middle" x="177.5" y="-1288.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge3" class="edge">
-<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.86,-169.47C528.32,-166.23 514.58,-162.57 502,-159 471.57,-150.36 465.56,-135.82 434,-138"/>
-</g>
-<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge14" class="edge">
-<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.6,-181.27C526.24,-183.94 511.46,-189.59 502,-201 469.44,-240.27 439.89,-1041 434.78,-1186.44"/>
-<polygon fill="#000000" stroke="#000000" points="431.27,-1186.67 434.42,-1196.79 438.26,-1186.92 431.27,-1186.67"/>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.5,-1189C240.33,-1183.13 157.99,-1184.42 104.56,-1186.32"/>
-<polygon fill="#000000" stroke="#000000" points="104.13,-1182.83 94.27,-1186.71 104.39,-1189.83 104.13,-1182.83"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge71" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.5,-1251C276.5,-1251 238.42,-1263.86 212.02,-1275"/>
+<polygon fill="#000000" stroke="#000000" points="210.61,-1271.79 202.84,-1279 213.41,-1278.21 210.61,-1271.79"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node7" class="node">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node5" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="225,-1161 130,-1161 130,-1137 225,-1137 225,-1161"/>
-<text text-anchor="middle" x="177.5" y="-1146.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node5"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="225,-1223 130,-1223 130,-1199 225,-1199 225,-1223"/>
+<text text-anchor="middle" x="177.5" y="-1208.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge73" class="edge">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge78" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.5,-1189C278.15,-1186.25 241.88,-1174.73 215.65,-1164.75"/>
-<polygon fill="#000000" stroke="#000000" points="216.7,-1161.41 206.11,-1161.03 214.15,-1167.93 216.7,-1161.41"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M400,-1202.08C376.26,-1197.32 343.03,-1191.43 313.5,-1189"/>
-</g>
-<!-- sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node9" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="224.5,-1241 130.5,-1241 130.5,-1217 224.5,-1217 224.5,-1241"/>
-<text text-anchor="middle" x="177.5" y="-1226.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
-</a>
-</g>
-</g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge81" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.5,-1189C275.54,-1186.04 236.19,-1200.2 209.68,-1212.49"/>
-<polygon fill="#000000" stroke="#000000" points="208.02,-1209.4 200.53,-1216.89 211.06,-1215.71 208.02,-1209.4"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M311.5,-1251C276.5,-1251 238.42,-1238.14 212.02,-1227"/>
+<polygon fill="#000000" stroke="#000000" points="213.41,-1223.79 202.84,-1223 210.61,-1230.21 213.41,-1223.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M399.81,-1251C375.98,-1251 342.71,-1251 313.5,-1251"/>
 </g>
 <!-- sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node12" class="node">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node61" class="node">
 <title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="364,-1241 261,-1241 261,-1217 364,-1217 364,-1241"/>
-<text text-anchor="middle" x="312.5" y="-1226.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="364,-1303 261,-1303 261,-1279 364,-1279 364,-1303"/>
+<text text-anchor="middle" x="312.5" y="-1288.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge88" class="edge">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge86" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M399.93,-1214.41C391.96,-1215.76 383.16,-1217.24 374.31,-1218.74"/>
-<polygon fill="#000000" stroke="#000000" points="373.61,-1215.3 364.33,-1220.42 374.78,-1222.21 373.61,-1215.3"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M399.93,-1261.82C387.36,-1266.07 372.7,-1271.02 359.06,-1275.62"/>
+<polygon fill="#000000" stroke="#000000" points="357.71,-1272.38 349.35,-1278.9 359.95,-1279.02 357.71,-1272.38"/>
 </g>
-<!-- sourcefile~whm_util.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge3" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M137.95,-1279C124.98,-1274.96 110.34,-1270.4 96.69,-1266.16"/>
+<polygon fill="#000000" stroke="#000000" points="97.56,-1262.76 86.97,-1263.13 95.48,-1269.45 97.56,-1262.76"/>
+</g>
+<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge4" class="edge">
+<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M137.95,-1223C124.98,-1227.04 110.34,-1231.6 96.69,-1235.84"/>
+<polygon fill="#000000" stroke="#000000" points="95.48,-1232.55 86.97,-1238.87 97.56,-1239.24 95.48,-1232.55"/>
+</g>
+<!-- sourcefile~whm_coord.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node6" class="node">
-<title>sourcefile~whm_util.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="620.5,-150 547.5,-150 547.5,-126 620.5,-126 620.5,-150"/>
-<text text-anchor="middle" x="584" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
+<title>sourcefile~whm_coord.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node6"><a xlink:href=".././sourcefile/whm_coord.f90.html" xlink:title="whm_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="627,-234 541,-234 541,-210 627,-210 627,-234"/>
+<text text-anchor="middle" x="584" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge5" class="edge">
-<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.43,-136.62C517.21,-135.78 472.71,-135.32 434,-138"/>
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.72,-215.19C527.78,-212.03 513.85,-207.48 502,-201 465.85,-181.23 475.1,-135.16 434,-138"/>
 </g>
-<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge43" class="edge">
-<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.29,-138.21C530.99,-140.29 512.92,-145.79 502,-159 468.07,-200.03 439.54,-1037.43 434.72,-1186.43"/>
-<polygon fill="#000000" stroke="#000000" points="431.21,-1186.54 434.39,-1196.64 438.21,-1186.76 431.21,-1186.54"/>
+<!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge35" class="edge">
+<title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.6,-223.27C526.24,-225.94 511.46,-231.59 502,-243 469.44,-282.27 439.89,-1083 434.78,-1228.44"/>
+<polygon fill="#000000" stroke="#000000" points="431.27,-1228.67 434.42,-1238.79 438.26,-1228.92 431.27,-1228.67"/>
 </g>
-<!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_gr.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node7" class="node">
+<title>sourcefile~whm_gr.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node7"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="618,-192 550,-192 550,-168 618,-168 618,-192"/>
+<text text-anchor="middle" x="584" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge6" class="edge">
-<title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M137.95,-1161C124.98,-1165.04 110.34,-1169.6 96.69,-1173.84"/>
-<polygon fill="#000000" stroke="#000000" points="95.48,-1170.55 86.97,-1176.87 97.56,-1177.24 95.48,-1170.55"/>
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.8,-171.76C535.11,-168.02 517.65,-163.44 502,-159 471.57,-150.36 465.56,-135.82 434,-138"/>
+</g>
+<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge48" class="edge">
+<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.76,-179.92C532.84,-181.76 513.48,-187.12 502,-201 468.07,-242.03 439.54,-1079.43 434.72,-1228.43"/>
+<polygon fill="#000000" stroke="#000000" points="431.21,-1228.54 434.39,-1238.64 438.21,-1228.76 431.21,-1228.54"/>
 </g>
 <!-- sourcefile~whm_kick.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node8" class="node">
 <title>sourcefile~whm_kick.f90</title>
 <g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node8"><a xlink:href=".././sourcefile/whm_kick.f90.html" xlink:title="whm_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622.5,-108 545.5,-108 545.5,-84 622.5,-84 622.5,-108"/>
-<text text-anchor="middle" x="584" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622.5,-150 545.5,-150 545.5,-126 622.5,-126 622.5,-150"/>
+<text text-anchor="middle" x="584" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_kick.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge7" class="edge">
 <title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.4,-105.37C531.7,-108.88 516.11,-112.99 502,-117 471.57,-125.64 465.56,-135.82 434,-138"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.29,-136.56C515.14,-135.76 471.81,-135.38 434,-138"/>
 </g>
 <!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge61" class="edge">
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge62" class="edge">
 <title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.19,-96.48C529.45,-98.76 512.45,-104.34 502,-117 466.7,-159.8 439.19,-1034.22 434.66,-1186.49"/>
-<polygon fill="#000000" stroke="#000000" points="431.15,-1186.79 434.35,-1196.89 438.14,-1187 431.15,-1186.79"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.19,-138.48C529.45,-140.76 512.45,-146.34 502,-159 466.7,-201.8 439.19,-1076.22 434.66,-1228.49"/>
+<polygon fill="#000000" stroke="#000000" points="431.15,-1228.79 434.35,-1238.89 438.14,-1229 431.15,-1228.79"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_step.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node9" class="node">
+<title>sourcefile~whm_step.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node9"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="623.5,-108 544.5,-108 544.5,-84 623.5,-84 623.5,-108"/>
+<text text-anchor="middle" x="584" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge8" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M137.95,-1217C124.98,-1212.96 110.34,-1208.4 96.69,-1204.16"/>
-<polygon fill="#000000" stroke="#000000" points="97.56,-1200.76 86.97,-1201.13 95.48,-1207.45 97.56,-1200.76"/>
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M544.17,-105.68C530.78,-109.12 515.7,-113.11 502,-117 471.57,-125.64 465.56,-135.82 434,-138"/>
 </g>
-<!-- sourcefile~whm_gr.f90 -->
+<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge63" class="edge">
+<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M544.34,-96.6C528.83,-98.95 512.25,-104.55 502,-117 465.32,-161.57 438.85,-1073.22 434.6,-1228.58"/>
+<polygon fill="#000000" stroke="#000000" points="431.1,-1228.71 434.32,-1238.8 438.09,-1228.9 431.1,-1228.71"/>
+</g>
+<!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node10" class="node">
-<title>sourcefile~whm_gr.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/whm_gr.f90.html" xlink:title="whm_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="618,-66 550,-66 550,-42 618,-42 618,-66"/>
-<text text-anchor="middle" x="584" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_gr.f90</text>
+<title>sourcefile~whm_setup.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node10"><a xlink:href=".././sourcefile/whm_setup.f90.html" xlink:title="whm_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="626.5,-66 541.5,-66 541.5,-42 626.5,-42 626.5,-66"/>
+<text text-anchor="middle" x="584" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge9" class="edge">
-<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.69,-58.8C534.49,-61.93 516.66,-66.98 502,-75 465.85,-94.77 475.1,-135.16 434,-138"/>
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M541.14,-60.71C528.08,-63.88 513.98,-68.45 502,-75 465.85,-94.77 475.1,-135.16 434,-138"/>
 </g>
-<!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge47" class="edge">
-<title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.73,-53.9C532.81,-55.73 513.45,-61.09 502,-75 483.64,-97.31 441.9,-1029.35 434.98,-1186.59"/>
-<polygon fill="#000000" stroke="#000000" points="431.47,-1186.77 434.53,-1196.91 438.46,-1187.07 431.47,-1186.77"/>
+<!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge53" class="edge">
+<title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M541.38,-55.07C526.75,-57.67 511.59,-63.32 502,-75 482.95,-98.2 441.62,-1068.65 434.92,-1228.75"/>
+<polygon fill="#000000" stroke="#000000" points="431.42,-1228.71 434.5,-1238.85 438.42,-1229 431.42,-1228.71"/>
 </g>
-<!-- sourcefile~whm_step.f90 -->
+<!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node11" class="node">
-<title>sourcefile~whm_step.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/whm_step.f90.html" xlink:title="whm_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="623.5,-24 544.5,-24 544.5,0 623.5,0 623.5,-24"/>
-<text text-anchor="middle" x="584" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_step.f90</text>
+<title>sourcefile~whm_util.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node11"><a xlink:href=".././sourcefile/whm_util.f90.html" xlink:title="whm_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="620.5,-24 547.5,-24 547.5,0 620.5,0 620.5,-24"/>
+<text text-anchor="middle" x="584" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90 -->
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge10" class="edge">
-<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M544.2,-16.07C529.92,-19.04 514.25,-24.16 502,-33 456.91,-65.53 489.47,-134.16 434,-138"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432,-138C205.59,-153.67 72.59,-1016.25 51.09,-1166.73"/>
-<polygon fill="#000000" stroke="#000000" points="47.62,-1166.27 49.69,-1176.66 54.55,-1167.25 47.62,-1166.27"/>
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.47,-15.42C532.35,-18.27 515.2,-23.48 502,-33 456.91,-65.53 489.47,-134.16 434,-138"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432,-138C193.27,-154.52 70.01,-1071.86 50.7,-1228.4"/>
+<polygon fill="#000000" stroke="#000000" points="47.18,-1228.35 49.44,-1238.7 54.13,-1229.2 47.18,-1228.35"/>
 </g>
-<!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge30" class="edge">
-<title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M544.33,-12.58C528.82,-14.93 512.23,-20.54 502,-33 482.95,-56.2 441.62,-1026.65 434.92,-1186.75"/>
-<polygon fill="#000000" stroke="#000000" points="431.42,-1186.71 434.5,-1196.85 438.42,-1187 431.42,-1186.71"/>
+<!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge55" class="edge">
+<title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.24,-12.17C530.92,-14.24 512.86,-19.74 502,-33 482.28,-57.07 441.43,-1064.24 434.89,-1228.47"/>
+<polygon fill="#000000" stroke="#000000" points="431.38,-1228.68 434.48,-1238.81 438.37,-1228.96 431.38,-1228.68"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge69" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.82,-1216.94C278.52,-1212.71 269.27,-1207.82 261,-1203 241.53,-1191.66 220.27,-1177.7 204.21,-1166.82"/>
-<polygon fill="#000000" stroke="#000000" points="206.1,-1163.87 195.87,-1161.13 202.16,-1169.66 206.1,-1163.87"/>
+<!-- sourcefile~eucl.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node12" class="node">
+<title>sourcefile~eucl.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node12"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611,-948 557,-948 557,-924 611,-924 611,-948"/>
+<text text-anchor="middle" x="584" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
+</a>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge77" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.84,-1229C252.29,-1229 243.37,-1229 234.69,-1229"/>
-<polygon fill="#000000" stroke="#000000" points="234.65,-1225.5 224.65,-1229 234.65,-1232.5 234.65,-1225.5"/>
 </g>
-<!-- sourcefile~obl.f90 -->
+<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge11" class="edge">
+<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.92,-936.05C539.08,-937.52 516.19,-942.43 502,-957 463.89,-996.13 442.75,-1166.57 436.22,-1228.45"/>
+<polygon fill="#000000" stroke="#000000" points="432.71,-1228.38 435.17,-1238.69 439.67,-1229.09 432.71,-1228.38"/>
+</g>
+<!-- sourcefile~util_copy.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node13" class="node">
-<title>sourcefile~obl.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611,-1788 557,-1788 557,-1764 611,-1764 611,-1788"/>
-<text text-anchor="middle" x="584" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
+<title>sourcefile~util_copy.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node13"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="619.5,-906 548.5,-906 548.5,-882 619.5,-882 619.5,-906"/>
+<text text-anchor="middle" x="584" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge11" class="edge">
-<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.83,-1776.41C538.71,-1775.2 515.51,-1770.39 502,-1755 432.12,-1675.41 432.28,-1324.03 433.57,-1231.43"/>
-<polygon fill="#000000" stroke="#000000" points="437.08,-1231.29 433.74,-1221.23 430.08,-1231.17 437.08,-1231.29"/>
+<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge12" class="edge">
+<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.45,-894.82C532.23,-897.03 513.89,-902.45 502,-915 458.66,-960.74 440.49,-1160.7 435.51,-1228.45"/>
+<polygon fill="#000000" stroke="#000000" points="431.99,-1228.61 434.77,-1238.83 438.97,-1229.1 431.99,-1228.61"/>
 </g>
-<!-- sourcefile~util_sort.f90 -->
+<!-- sourcefile~rmvs_util.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node14" class="node">
-<title>sourcefile~util_sort.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="618,-1746 550,-1746 550,-1722 618,-1722 618,-1746"/>
-<text text-anchor="middle" x="584" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+<title>sourcefile~rmvs_util.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node14"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="620.5,-276 547.5,-276 547.5,-252 620.5,-252 620.5,-276"/>
+<text text-anchor="middle" x="584" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge12" class="edge">
-<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.73,-1733.71C533.02,-1731.74 513.86,-1726.37 502,-1713 437.45,-1640.23 433.64,-1319.35 433.83,-1231.38"/>
-<polygon fill="#000000" stroke="#000000" points="437.33,-1231.2 433.88,-1221.19 430.33,-1231.17 437.33,-1231.2"/>
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge13" class="edge">
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.32,-264.24C531.03,-266.33 512.96,-271.82 502,-285 439.72,-359.89 434.47,-1090.75 434.04,-1228.63"/>
+<polygon fill="#000000" stroke="#000000" points="430.54,-1228.81 434.01,-1238.82 437.54,-1228.83 430.54,-1228.81"/>
 </g>
-<!-- sourcefile~util_append.f90 -->
+<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge77" class="edge">
+<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.47,-267.42C532.35,-270.27 515.2,-275.48 502,-285 456.91,-317.53 489.47,-386.16 434,-390"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432,-390C260.46,-401.87 192.29,-1058.19 180.43,-1188.61"/>
+<polygon fill="#000000" stroke="#000000" points="176.91,-1188.68 179.51,-1198.95 183.89,-1189.3 176.91,-1188.68"/>
+</g>
+<!-- sourcefile~util_get_energy_momentum.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node15" class="node">
-<title>sourcefile~util_append.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="627,-1704 541,-1704 541,-1680 627,-1680 627,-1704"/>
-<text text-anchor="middle" x="584" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
+<title>sourcefile~util_get_energy_momentum.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node15"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="666,-864 502,-864 502,-840 666,-840 666,-864"/>
+<text text-anchor="middle" x="584" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge15" class="edge">
-<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.66,-1690.23C526.48,-1687.49 511.8,-1681.92 502,-1671 442.71,-1604.96 435.1,-1313.97 434.13,-1231.1"/>
-<polygon fill="#000000" stroke="#000000" points="437.63,-1230.99 434.04,-1221.03 430.63,-1231.06 437.63,-1230.99"/>
+<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge14" class="edge">
+<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M513.11,-864.04C509.02,-866.53 505.26,-869.48 502,-873 453.38,-925.45 438.49,-1155.43 434.95,-1228.58"/>
+<polygon fill="#000000" stroke="#000000" points="431.44,-1228.77 434.47,-1238.92 438.43,-1229.09 431.44,-1228.77"/>
 </g>
-<!-- sourcefile~helio_coord.f90 -->
+<!-- sourcefile~user_getacch.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node16" class="node">
-<title>sourcefile~helio_coord.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="627,-2376 541,-2376 541,-2352 627,-2352 627,-2376"/>
-<text text-anchor="middle" x="584" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
+<title>sourcefile~user_getacch.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node16"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="631.5,-822 536.5,-822 536.5,-798 631.5,-798 631.5,-822"/>
+<text text-anchor="middle" x="584" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge16" class="edge">
-<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.97,-2362.84C526.48,-2360.21 511.51,-2354.55 502,-2343 483.64,-2320.69 441.9,-1388.65 434.98,-1231.41"/>
-<polygon fill="#000000" stroke="#000000" points="438.46,-1230.93 434.53,-1221.09 431.47,-1231.23 438.46,-1230.93"/>
-</g>
-<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge83" class="edge">
-<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.72,-2357.19C527.78,-2354.03 513.85,-2349.48 502,-2343 465.85,-2323.23 471.21,-2297.69 434,-2280"/>
+<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge15" class="edge">
+<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.1,-812.85C523.43,-815.87 510.8,-821.33 502,-831 448.07,-890.2 436.71,-1150.44 434.5,-1228.68"/>
+<polygon fill="#000000" stroke="#000000" points="431,-1228.76 434.24,-1238.85 438,-1228.95 431,-1228.76"/>
 </g>
-<!-- sourcefile~gr.f90 -->
+<!-- sourcefile~util_peri.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node17" class="node">
-<title>sourcefile~gr.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611,-1662 557,-1662 557,-1638 611,-1638 611,-1662"/>
-<text text-anchor="middle" x="584" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
+<title>sourcefile~util_peri.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node17"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="618,-780 550,-780 550,-756 618,-756 618,-780"/>
+<text text-anchor="middle" x="584" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge17" class="edge">
-<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M557,-1650.26C538.97,-1648.98 515.79,-1644.14 502,-1629 448.07,-1569.8 436.71,-1309.56 434.5,-1231.32"/>
-<polygon fill="#000000" stroke="#000000" points="438,-1231.05 434.24,-1221.15 431,-1231.24 438,-1231.05"/>
+<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge16" class="edge">
+<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.79,-768.35C533.1,-770.34 513.94,-775.7 502,-789 442.71,-855.04 435.1,-1146.03 434.13,-1228.9"/>
+<polygon fill="#000000" stroke="#000000" points="430.63,-1228.94 434.04,-1238.97 437.63,-1229.01 430.63,-1228.94"/>
 </g>
-<!-- sourcefile~symba_util.f90 -->
+<!-- sourcefile~util_exit.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node18" class="node">
-<title>sourcefile~symba_util.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="625,-2166 543,-2166 543,-2142 625,-2142 625,-2166"/>
-<text text-anchor="middle" x="584" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
+<title>sourcefile~util_exit.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node18"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="617.5,-738 550.5,-738 550.5,-714 617.5,-714 617.5,-738"/>
+<text text-anchor="middle" x="584" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge18" class="edge">
-<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M542.74,-2153.07C527.74,-2150.56 511.96,-2144.94 502,-2133 472.15,-2097.22 440.62,-1369.08 434.91,-1231.37"/>
-<polygon fill="#000000" stroke="#000000" points="438.4,-1231.03 434.49,-1221.18 431.41,-1231.32 438.4,-1231.03"/>
-</g>
-<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge90" class="edge">
-<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M542.68,-2150.65C528.54,-2147.76 513.38,-2142.5 502,-2133 446.74,-2086.87 488.76,-2032.73 434,-1986"/>
+<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge17" class="edge">
+<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M550.14,-726.24C533.33,-728.18 513.95,-733.52 502,-747 437.45,-819.77 433.64,-1140.65 433.83,-1228.62"/>
+<polygon fill="#000000" stroke="#000000" points="430.33,-1228.83 433.88,-1238.81 437.33,-1228.8 430.33,-1228.83"/>
 </g>
-<!-- sourcefile~eucl.f90 -->
+<!-- sourcefile~helio_step.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node19" class="node">
-<title>sourcefile~eucl.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/eucl.f90.html" xlink:title="eucl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611,-1620 557,-1620 557,-1596 611,-1596 611,-1620"/>
-<text text-anchor="middle" x="584" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">eucl.f90</text>
+<title>sourcefile~helio_step.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node19"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="623.5,-2292 544.5,-2292 544.5,-2268 623.5,-2268 623.5,-2292"/>
+<text text-anchor="middle" x="584" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge19" class="edge">
-<title>sourcefile~eucl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.7,-1608.16C538.76,-1606.8 515.83,-1601.92 502,-1587 453.38,-1534.55 438.49,-1304.57 434.95,-1231.42"/>
-<polygon fill="#000000" stroke="#000000" points="438.43,-1230.91 434.47,-1221.08 431.44,-1231.23 438.43,-1230.91"/>
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge18" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M544.38,-2279.37C528.89,-2277.01 512.29,-2271.41 502,-2259 469.44,-2219.73 439.89,-1419 434.78,-1273.56"/>
+<polygon fill="#000000" stroke="#000000" points="438.26,-1273.08 434.42,-1263.21 431.27,-1273.33 438.26,-1273.08"/>
 </g>
-<!-- sourcefile~util_copy.f90 -->
+<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge72" class="edge">
+<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M544.17,-2289.68C530.78,-2293.12 515.7,-2297.11 502,-2301 471.57,-2309.64 462.61,-2335.48 434,-2322"/>
+</g>
+<!-- sourcefile~swiftest_driver.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node20" class="node">
-<title>sourcefile~util_copy.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/util_copy.f90.html" xlink:title="util_copy.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="619.5,-1578 548.5,-1578 548.5,-1554 619.5,-1554 619.5,-1578"/>
-<text text-anchor="middle" x="584" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_copy.f90</text>
+<title>sourcefile~swiftest_driver.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node20"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="633,-696 535,-696 535,-672 633,-672 633,-696"/>
+<text text-anchor="middle" x="584" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge21" class="edge">
-<title>sourcefile~util_copy.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M548.45,-1565.18C532.23,-1562.97 513.89,-1557.55 502,-1545 458.66,-1499.26 440.49,-1299.3 435.51,-1231.55"/>
-<polygon fill="#000000" stroke="#000000" points="438.97,-1230.9 434.77,-1221.17 431.99,-1231.39 438.97,-1230.9"/>
+<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge19" class="edge">
+<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M534.61,-686.95C522.36,-690.03 510.34,-695.5 502,-705 432.12,-784.59 432.28,-1135.97 433.57,-1228.57"/>
+<polygon fill="#000000" stroke="#000000" points="430.08,-1228.83 433.74,-1238.77 437.08,-1228.71 430.08,-1228.83"/>
 </g>
-<!-- sourcefile~symba_collision.f90 -->
+<!-- sourcefile~helio_coord.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node21" class="node">
-<title>sourcefile~symba_collision.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="637,-2124 531,-2124 531,-2100 637,-2100 637,-2124"/>
-<text text-anchor="middle" x="584" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
+<title>sourcefile~helio_coord.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node21"><a xlink:href=".././sourcefile/helio_coord.f90.html" xlink:title="helio_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="627,-2250 541,-2250 541,-2226 627,-2226 627,-2250"/>
+<text text-anchor="middle" x="584" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge22" class="edge">
-<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M530.95,-2108.39C519.9,-2105.17 509.37,-2099.8 502,-2091 445.18,-2023.13 435.55,-1362.2 434.2,-1231.42"/>
-<polygon fill="#000000" stroke="#000000" points="437.69,-1231.02 434.1,-1221.06 430.69,-1231.09 437.69,-1231.02"/>
+<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge20" class="edge">
+<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.62,-2236.71C526.26,-2234.04 511.47,-2228.39 502,-2217 470.77,-2179.44 440.19,-1413.61 434.83,-1273.06"/>
+<polygon fill="#000000" stroke="#000000" points="438.32,-1272.9 434.45,-1263.04 431.33,-1273.17 438.32,-1272.9"/>
 </g>
-<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge94" class="edge">
-<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M530.76,-2104.53C520.6,-2101.46 510.48,-2097.12 502,-2091 456.91,-2058.47 476.29,-2022.09 434,-1986"/>
+<!-- sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge73" class="edge">
+<title>sourcefile~helio_coord.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432,-2322C216.88,-2322 183.3,-1464.86 179.05,-1313.65"/>
+<polygon fill="#000000" stroke="#000000" points="182.54,-1313.2 178.77,-1303.3 175.54,-1313.39 182.54,-1313.2"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.72,-2244.81C527.78,-2247.97 513.85,-2252.52 502,-2259 465.85,-2278.77 471.27,-2339.56 434,-2322"/>
 </g>
-<!-- sourcefile~symba_io.f90 -->
+<!-- sourcefile~symba_fragmentation.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node22" class="node">
-<title>sourcefile~symba_io.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622,-2082 546,-2082 546,-2058 622,-2058 622,-2082"/>
-<text text-anchor="middle" x="584" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
+<title>sourcefile~symba_fragmentation.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node22"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="651,-1830 517,-1830 517,-1806 651,-1806 651,-1830"/>
+<text text-anchor="middle" x="584" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge23" class="edge">
-<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.72,-2069.49C529.88,-2067.23 512.66,-2061.68 502,-2049 447.86,-1984.58 436.11,-1357.57 434.29,-1231.15"/>
-<polygon fill="#000000" stroke="#000000" points="437.78,-1231.05 434.15,-1221.1 430.79,-1231.15 437.78,-1231.05"/>
+<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.65,-1808.33C511.14,-1805.4 506.12,-1801.69 502,-1797 432.12,-1717.41 432.28,-1366.03 433.57,-1273.43"/>
+<polygon fill="#000000" stroke="#000000" points="437.08,-1273.29 433.74,-1263.23 430.08,-1273.17 437.08,-1273.29"/>
 </g>
-<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge84" class="edge">
-<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.67,-2064.34C531.41,-2061.17 515.38,-2056.32 502,-2049 465.85,-2029.23 465.34,-2012.74 434,-1986"/>
+<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge90" class="edge">
+<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432,-2007C322.94,-1914.76 314.11,-1424.29 313.52,-1313.33"/>
+<polygon fill="#000000" stroke="#000000" points="317.01,-1312.99 313.48,-1303.01 310.02,-1313.02 317.01,-1312.99"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.65,-1829.44C511.35,-1832.02 506.37,-1835.17 502,-1839 441.44,-1892.11 495.5,-2059.02 434,-2007"/>
 </g>
-<!-- sourcefile~helio_drift.f90 -->
+<!-- sourcefile~tides_getacch_pl.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node23" class="node">
-<title>sourcefile~helio_drift.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622.5,-2334 545.5,-2334 545.5,-2310 622.5,-2310 622.5,-2334"/>
-<text text-anchor="middle" x="584" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
+<title>sourcefile~tides_getacch_pl.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node23"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="639.5,-654 528.5,-654 528.5,-630 639.5,-630 639.5,-654"/>
+<text text-anchor="middle" x="584" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge24" class="edge">
-<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.19,-2321.52C529.45,-2319.24 512.45,-2313.66 502,-2301 484.31,-2279.56 442.1,-1383.86 435.02,-1231.06"/>
-<polygon fill="#000000" stroke="#000000" points="438.51,-1230.83 434.55,-1221.01 431.52,-1231.16 438.51,-1230.83"/>
-</g>
-<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge78" class="edge">
-<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.31,-2315.07C514.41,-2308.52 470.05,-2297.13 434,-2280"/>
+<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge22" class="edge">
+<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.26,-646.72C518.28,-650 508.87,-655.11 502,-663 464.08,-706.57 440.32,-1127.11 435.09,-1228.9"/>
+<polygon fill="#000000" stroke="#000000" points="431.59,-1228.8 434.58,-1238.97 438.58,-1229.16 431.59,-1228.8"/>
 </g>
-<!-- sourcefile~symba_kick.f90 -->
+<!-- sourcefile~gr.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node24" class="node">
-<title>sourcefile~symba_kick.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="627,-2040 541,-2040 541,-2016 627,-2016 627,-2040"/>
-<text text-anchor="middle" x="584" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
+<title>sourcefile~gr.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node24"><a xlink:href=".././sourcefile/gr.f90.html" xlink:title="gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611,-612 557,-612 557,-588 611,-588 611,-612"/>
+<text text-anchor="middle" x="584" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge25" class="edge">
-<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.71,-2026.64C526.36,-2023.96 511.56,-2018.32 502,-2007 450.58,-1946.08 436.72,-1353.86 434.39,-1231.18"/>
-<polygon fill="#000000" stroke="#000000" points="437.88,-1231.03 434.2,-1221.09 430.88,-1231.15 437.88,-1231.03"/>
-</g>
-<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge85" class="edge">
-<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.98,-2025.55C508.42,-2021.62 463.95,-2011.56 434,-1986"/>
+<!-- sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge23" class="edge">
+<title>sourcefile~gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.75,-599.52C538.6,-600.7 515.39,-605.5 502,-621 461.42,-668 439.53,-1122.11 434.92,-1228.69"/>
+<polygon fill="#000000" stroke="#000000" points="431.42,-1228.78 434.49,-1238.92 438.41,-1229.08 431.42,-1228.78"/>
 </g>
-<!-- sourcefile~rmvs_util.f90 -->
+<!-- sourcefile~fragmentation.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node25" class="node">
-<title>sourcefile~rmvs_util.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/rmvs_util.f90.html" xlink:title="rmvs_util.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="620.5,-486 547.5,-486 547.5,-462 620.5,-462 620.5,-486"/>
-<text text-anchor="middle" x="584" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_util.f90</text>
+<title>sourcefile~fragmentation.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node25"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="632.5,-570 535.5,-570 535.5,-546 632.5,-546 632.5,-570"/>
+<text text-anchor="middle" x="584" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge26" class="edge">
-<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.46,-474.36C531.2,-476.47 513.12,-481.96 502,-495 456.02,-548.93 438.04,-1071.65 434.62,-1186.68"/>
-<polygon fill="#000000" stroke="#000000" points="431.12,-1186.69 434.33,-1196.79 438.12,-1186.89 431.12,-1186.69"/>
-</g>
-<!-- sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge71" class="edge">
-<title>sourcefile~rmvs_util.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.29,-468.7C532.64,-465.53 515.89,-460.6 502,-453 465.85,-433.23 475.1,-387.16 434,-390"/>
+<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge24" class="edge">
+<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M535.31,-560.62C522.77,-563.66 510.42,-569.19 502,-579 458.68,-629.5 438.73,-1118.63 434.75,-1228.96"/>
+<polygon fill="#000000" stroke="#000000" points="431.26,-1228.84 434.4,-1238.96 438.25,-1229.09 431.26,-1228.84"/>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node26" class="node">
-<title>sourcefile~tides_getacch_pl.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/tides_getacch_pl.f90.html" xlink:title="tides_getacch_pl.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="639.5,-1536 528.5,-1536 528.5,-1512 639.5,-1512 639.5,-1536"/>
-<text text-anchor="middle" x="584" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_getacch_pl.f90</text>
+<title>sourcefile~rmvs_encounter_check.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node26"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="655,-486 513,-486 513,-462 655,-462 655,-486"/>
+<text text-anchor="middle" x="584" y="-471.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge27" class="edge">
-<title>sourcefile~tides_getacch_pl.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M528.09,-1518.39C518.37,-1515.16 509.1,-1510.28 502,-1503 463.89,-1463.87 442.75,-1293.43 436.22,-1231.55"/>
-<polygon fill="#000000" stroke="#000000" points="439.67,-1230.91 435.17,-1221.31 432.71,-1231.62 439.67,-1230.91"/>
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge25" class="edge">
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.75,-485.72C508.75,-488.28 505.1,-491.34 502,-495 453.28,-552.44 437.35,-1110.25 434.5,-1228.89"/>
+<polygon fill="#000000" stroke="#000000" points="430.99,-1228.88 434.26,-1238.96 437.99,-1229.05 430.99,-1228.88"/>
 </g>
-<!-- sourcefile~tides_spin_step.f90 -->
+<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge81" class="edge">
+<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.44,-461.86C515.35,-459.41 508.37,-456.49 502,-453 465.85,-433.23 475.1,-387.16 434,-390"/>
+</g>
+<!-- sourcefile~util_rescale.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node27" class="node">
-<title>sourcefile~tides_spin_step.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="636.5,-1494 531.5,-1494 531.5,-1470 636.5,-1470 636.5,-1494"/>
-<text text-anchor="middle" x="584" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
+<title>sourcefile~util_rescale.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node27"><a xlink:href=".././sourcefile/util_rescale.f90.html" xlink:title="util_rescale.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="626.5,-528 541.5,-528 541.5,-504 626.5,-504 626.5,-528"/>
+<text text-anchor="middle" x="584" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_rescale.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge28" class="edge">
-<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M531.23,-1477.1C520.44,-1473.91 509.95,-1468.87 502,-1461 437.77,-1397.4 432.35,-1279.93 433.09,-1231.14"/>
-<polygon fill="#000000" stroke="#000000" points="436.59,-1231.13 433.35,-1221.05 429.59,-1230.95 436.59,-1231.13"/>
+<!-- sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge26" class="edge">
+<title>sourcefile~util_rescale.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M541.19,-517.34C526.72,-519.99 511.71,-525.61 502,-537 456.02,-590.93 438.04,-1113.65 434.62,-1228.68"/>
+<polygon fill="#000000" stroke="#000000" points="431.12,-1228.69 434.33,-1238.79 438.12,-1228.89 431.12,-1228.69"/>
 </g>
-<!-- sourcefile~user_getacch.f90 -->
+<!-- sourcefile~symba_setup.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node28" class="node">
-<title>sourcefile~user_getacch.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/user_getacch.f90.html" xlink:title="user_getacch.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="631.5,-1452 536.5,-1452 536.5,-1428 631.5,-1428 631.5,-1452"/>
-<text text-anchor="middle" x="584" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">user_getacch.f90</text>
+<title>sourcefile~symba_setup.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node28"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="631,-2208 537,-2208 537,-2184 631,-2184 631,-2208"/>
+<text text-anchor="middle" x="584" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge29" class="edge">
-<title>sourcefile~user_getacch.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.16,-1436.07C523.78,-1432.99 511.3,-1427.77 502,-1419 447.98,-1368.1 436.78,-1274.01 434.52,-1231.22"/>
-<polygon fill="#000000" stroke="#000000" points="438.01,-1230.89 434.11,-1221.05 431.02,-1231.18 438.01,-1230.89"/>
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge27" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.83,-2193.92C523.71,-2190.98 510.65,-2185.37 502,-2175 472.15,-2139.22 440.62,-1411.08 434.91,-1273.37"/>
+<polygon fill="#000000" stroke="#000000" points="438.4,-1273.03 434.49,-1263.18 431.41,-1273.32 438.4,-1273.03"/>
 </g>
-<!-- sourcefile~symba_step.f90 -->
+<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge91" class="edge">
+<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.97,-2191.73C524.47,-2188.66 511.72,-2183.52 502,-2175 441.44,-2121.89 495.5,-2059.02 434,-2007"/>
+</g>
+<!-- sourcefile~helio_drift.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node29" class="node">
-<title>sourcefile~symba_step.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="628,-1998 540,-1998 540,-1974 628,-1974 628,-1998"/>
-<text text-anchor="middle" x="584" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
+<title>sourcefile~helio_drift.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node29"><a xlink:href=".././sourcefile/helio_drift.f90.html" xlink:title="helio_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622.5,-2418 545.5,-2418 545.5,-2394 622.5,-2394 622.5,-2418"/>
+<text text-anchor="middle" x="584" y="-2403.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge32" class="edge">
-<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.89,-1984.45C525.81,-1981.71 511.4,-1976.08 502,-1965 453.28,-1907.56 437.35,-1349.75 434.5,-1231.11"/>
-<polygon fill="#000000" stroke="#000000" points="437.99,-1230.95 434.26,-1221.04 430.99,-1231.12 437.99,-1230.95"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge28" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.18,-2405.53C529.43,-2403.25 512.43,-2397.68 502,-2385 483.64,-2362.69 441.9,-1430.65 434.98,-1273.41"/>
+<polygon fill="#000000" stroke="#000000" points="438.46,-1272.93 434.53,-1263.09 431.47,-1273.23 438.46,-1272.93"/>
 </g>
-<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge93" class="edge">
-<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M546.29,-1998.07C513,-2006.5 464.6,-2012.11 434,-1986"/>
+<!-- sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge75" class="edge">
+<title>sourcefile~helio_drift.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.26,-2400.25C531.11,-2397.07 515.26,-2392.25 502,-2385 465.85,-2365.23 471.27,-2339.56 434,-2322"/>
 </g>
-<!-- sourcefile~orbel.f90 -->
+<!-- sourcefile~symba_drift.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node30" class="node">
-<title>sourcefile~orbel.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611.5,-1410 556.5,-1410 556.5,-1386 611.5,-1386 611.5,-1410"/>
-<text text-anchor="middle" x="584" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
+<title>sourcefile~symba_drift.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node30"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="627,-2166 541,-2166 541,-2142 627,-2142 627,-2166"/>
+<text text-anchor="middle" x="584" y="-2151.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge31" class="edge">
-<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.46,-1397.11C539.11,-1395.21 516.96,-1390.12 502,-1377 458.05,-1338.46 442.08,-1267.38 436.62,-1231.29"/>
-<polygon fill="#000000" stroke="#000000" points="440.08,-1230.71 435.25,-1221.28 433.14,-1231.67 440.08,-1230.71"/>
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge29" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.66,-2152.68C526.3,-2150 511.51,-2144.36 502,-2133 445.18,-2065.13 435.55,-1404.2 434.2,-1273.42"/>
+<polygon fill="#000000" stroke="#000000" points="437.69,-1273.02 434.1,-1263.06 430.69,-1273.09 437.69,-1273.02"/>
 </g>
-<!-- sourcefile~rmvs_discard.f90 -->
+<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge95" class="edge">
+<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.91,-2149.82C527.41,-2146.81 513.09,-2141.69 502,-2133 451.92,-2093.74 482.59,-2048.09 434,-2007"/>
+</g>
+<!-- sourcefile~helio_kick.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node31" class="node">
-<title>sourcefile~rmvs_discard.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="631,-444 537,-444 537,-420 631,-420 631,-444"/>
-<text text-anchor="middle" x="584" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
+<title>sourcefile~helio_kick.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node31"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622.5,-2376 545.5,-2376 545.5,-2352 622.5,-2352 622.5,-2376"/>
+<text text-anchor="middle" x="584" y="-2361.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge33" class="edge">
-<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.93,-434.17C523.82,-437.11 510.74,-442.7 502,-453 453.28,-510.44 437.35,-1068.25 434.5,-1186.89"/>
-<polygon fill="#000000" stroke="#000000" points="430.99,-1186.88 434.26,-1196.96 437.99,-1187.05 430.99,-1186.88"/>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge31" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.19,-2363.52C529.45,-2361.24 512.45,-2355.66 502,-2343 484.31,-2321.56 442.1,-1425.86 435.02,-1273.06"/>
+<polygon fill="#000000" stroke="#000000" points="438.51,-1272.83 434.55,-1263.01 431.52,-1273.16 438.51,-1272.83"/>
 </g>
-<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge75" class="edge">
-<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.64,-420.37C525.28,-417.41 513.18,-414.17 502,-411 471.57,-402.36 465.56,-387.82 434,-390"/>
+<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge70" class="edge">
+<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.34,-2357C514.46,-2350.42 470.1,-2339.01 434,-2322"/>
 </g>
-<!-- sourcefile~util_valid.f90 -->
+<!-- sourcefile~kick.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node32" class="node">
-<title>sourcefile~util_valid.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="620,-1368 548,-1368 548,-1344 620,-1344 620,-1368"/>
-<text text-anchor="middle" x="584" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
+<title>sourcefile~kick.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node32"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611,-1788 557,-1788 557,-1764 611,-1764 611,-1788"/>
+<text text-anchor="middle" x="584" y="-1773.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge35" class="edge">
-<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.91,-1353.21C532.52,-1350.5 515.03,-1345.22 502,-1335 467.83,-1308.21 448.63,-1259.32 439.88,-1230.95"/>
-<polygon fill="#000000" stroke="#000000" points="443.19,-1229.8 437.03,-1221.18 436.47,-1231.76 443.19,-1229.8"/>
+<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge32" class="edge">
+<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.88,-1776.37C538.78,-1775.14 515.59,-1770.32 502,-1755 437.45,-1682.23 433.64,-1361.35 433.83,-1273.38"/>
+<polygon fill="#000000" stroke="#000000" points="437.33,-1273.2 433.88,-1263.19 430.33,-1273.17 437.33,-1273.2"/>
 </g>
-<!-- sourcefile~kick.f90 -->
+<!-- sourcefile~rmvs_discard.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node33" class="node">
-<title>sourcefile~kick.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/kick.f90.html" xlink:title="kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611,-1326 557,-1326 557,-1302 611,-1302 611,-1326"/>
-<text text-anchor="middle" x="584" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">kick.f90</text>
+<title>sourcefile~rmvs_discard.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node33"><a xlink:href=".././sourcefile/rmvs_discard.f90.html" xlink:title="rmvs_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="631,-444 537,-444 537,-420 631,-420 631,-444"/>
+<text text-anchor="middle" x="584" y="-429.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge36" class="edge">
-<title>sourcefile~kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.87,-1311.48C540.11,-1308.88 518.49,-1303.62 502,-1293 477.19,-1277.03 457.2,-1248.98 445.47,-1229.72"/>
-<polygon fill="#000000" stroke="#000000" points="448.47,-1227.92 440.39,-1221.06 442.43,-1231.46 448.47,-1227.92"/>
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge33" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.9,-434.14C523.79,-437.08 510.71,-442.68 502,-453 450.58,-513.92 436.72,-1106.14 434.39,-1228.82"/>
+<polygon fill="#000000" stroke="#000000" points="430.88,-1228.85 434.2,-1238.91 437.88,-1228.97 430.88,-1228.85"/>
 </g>
-<!-- sourcefile~helio_gr.f90 -->
+<!-- sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge79" class="edge">
+<title>sourcefile~rmvs_discard.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.64,-420.37C525.28,-417.41 513.18,-414.17 502,-411 471.57,-402.36 465.56,-387.82 434,-390"/>
+</g>
+<!-- sourcefile~rmvs_setup.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node34" class="node">
-<title>sourcefile~helio_gr.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="618,-2292 550,-2292 550,-2268 618,-2268 618,-2292"/>
-<text text-anchor="middle" x="584" y="-2277.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
+<title>sourcefile~rmvs_setup.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node34"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="627,-402 541,-402 541,-378 627,-378 627,-402"/>
+<text text-anchor="middle" x="584" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge37" class="edge">
-<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.76,-2280.08C532.84,-2278.24 513.48,-2272.88 502,-2259 468.07,-2217.97 439.54,-1380.57 434.72,-1231.57"/>
-<polygon fill="#000000" stroke="#000000" points="438.21,-1231.24 434.39,-1221.36 431.21,-1231.46 438.21,-1231.24"/>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge34" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.68,-391.34C526.33,-394.02 511.53,-399.66 502,-411 447.86,-475.42 436.11,-1102.43 434.29,-1228.85"/>
+<polygon fill="#000000" stroke="#000000" points="430.79,-1228.85 434.15,-1238.9 437.78,-1228.95 430.79,-1228.85"/>
 </g>
-<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge79" class="edge">
-<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.84,-2287.82C518.41,-2293.49 470.68,-2297.44 434,-2280"/>
+<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge80" class="edge">
+<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.88,-388.45C511.01,-387.73 470,-387.51 434,-390"/>
 </g>
-<!-- sourcefile~util_resize.f90 -->
+<!-- sourcefile~util_solve.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node35" class="node">
-<title>sourcefile~util_resize.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="623.5,-1284 544.5,-1284 544.5,-1260 623.5,-1260 623.5,-1284"/>
-<text text-anchor="middle" x="584" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
+<title>sourcefile~util_solve.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node35"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="621.5,-1746 546.5,-1746 546.5,-1722 621.5,-1722 621.5,-1746"/>
+<text text-anchor="middle" x="584" y="-1731.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge38" class="edge">
-<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M544.31,-1264.46C530.64,-1261.16 515.36,-1256.7 502,-1251 486.9,-1244.56 471.24,-1235.1 458.76,-1226.79"/>
-<polygon fill="#000000" stroke="#000000" points="460.51,-1223.75 450.28,-1221 456.57,-1229.53 460.51,-1223.75"/>
+<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge36" class="edge">
+<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M546.09,-1733.16C530.34,-1730.84 513.06,-1725.32 502,-1713 442.71,-1646.96 435.1,-1355.97 434.13,-1273.1"/>
+<polygon fill="#000000" stroke="#000000" points="437.63,-1272.99 434.04,-1263.03 430.63,-1273.06 437.63,-1272.99"/>
 </g>
-<!-- sourcefile~util_spill.f90 -->
+<!-- sourcefile~setup.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node36" class="node">
-<title>sourcefile~util_spill.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="618,-1242 550,-1242 550,-1218 618,-1218 618,-1242"/>
-<text text-anchor="middle" x="584" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
+<title>sourcefile~setup.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node36"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="612.5,-1704 555.5,-1704 555.5,-1680 612.5,-1680 612.5,-1704"/>
+<text text-anchor="middle" x="584" y="-1689.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge68" class="edge">
-<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.93,-1225.34C528.2,-1222.28 499.57,-1218.24 476.2,-1214.95"/>
-<polygon fill="#000000" stroke="#000000" points="476.6,-1211.47 466.21,-1213.54 475.62,-1218.4 476.6,-1211.47"/>
+<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge37" class="edge">
+<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M555.45,-1692.14C537.66,-1690.69 515.4,-1685.71 502,-1671 448.07,-1611.8 436.71,-1351.56 434.5,-1273.32"/>
+<polygon fill="#000000" stroke="#000000" points="438,-1273.05 434.24,-1263.15 431,-1273.24 438,-1273.05"/>
 </g>
-<!-- sourcefile~helio_step.f90 -->
+<!-- sourcefile~util_version.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node37" class="node">
-<title>sourcefile~helio_step.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/helio_step.f90.html" xlink:title="helio_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="623.5,-2250 544.5,-2250 544.5,-2226 623.5,-2226 623.5,-2250"/>
-<text text-anchor="middle" x="584" y="-2235.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_step.f90</text>
+<title>sourcefile~util_version.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node37"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="626.5,-1662 541.5,-1662 541.5,-1638 626.5,-1638 626.5,-1662"/>
+<text text-anchor="middle" x="584" y="-1647.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge39" class="edge">
-<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M544.38,-2237.37C528.89,-2235.01 512.29,-2229.41 502,-2217 469.44,-2177.73 439.89,-1377 434.78,-1231.56"/>
-<polygon fill="#000000" stroke="#000000" points="438.26,-1231.08 434.42,-1221.21 431.27,-1231.33 438.26,-1231.08"/>
-</g>
-<!-- sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge80" class="edge">
-<title>sourcefile~helio_step.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M544.17,-2247.68C530.78,-2251.12 515.7,-2255.11 502,-2259 471.57,-2267.64 462.57,-2293.58 434,-2280"/>
+<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge38" class="edge">
+<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M541.27,-1648.14C526.98,-1645.41 512.07,-1639.87 502,-1629 453.38,-1576.55 438.49,-1346.57 434.95,-1273.42"/>
+<polygon fill="#000000" stroke="#000000" points="438.43,-1272.91 434.47,-1263.08 431.44,-1273.23 438.43,-1272.91"/>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90 -->
+<!-- sourcefile~rmvs_kick.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node38" class="node">
-<title>sourcefile~util_get_energy_momentum.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/util_get_energy_momentum.f90.html" xlink:title="util_get_energy_momentum.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="666,-1200 502,-1200 502,-1176 666,-1176 666,-1200"/>
-<text text-anchor="middle" x="584" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_get_energy_momentum.f90</text>
+<title>sourcefile~rmvs_kick.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node38"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="623,-360 545,-360 545,-336 623,-336 623,-360"/>
+<text text-anchor="middle" x="584" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge40" class="edge">
-<title>sourcefile~util_get_energy_momentum.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M501.96,-1199.42C493.03,-1200.68 484.23,-1201.92 476.08,-1203.07"/>
-<polygon fill="#000000" stroke="#000000" points="475.54,-1199.61 466.13,-1204.47 476.52,-1206.54 475.54,-1199.61"/>
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge39" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M544.86,-348.62C529.25,-350.95 512.44,-356.52 502,-369 445.18,-436.87 435.55,-1097.8 434.2,-1228.58"/>
+<polygon fill="#000000" stroke="#000000" points="430.69,-1228.91 434.1,-1238.94 437.69,-1228.98 430.69,-1228.91"/>
 </g>
-<!-- sourcefile~swiftest_driver.f90 -->
+<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge82" class="edge">
+<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M544.99,-357.47C531.39,-360.96 515.98,-365.03 502,-369 471.57,-377.64 465.56,-387.82 434,-390"/>
+</g>
+<!-- sourcefile~orbel.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node39" class="node">
-<title>sourcefile~swiftest_driver.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/swiftest_driver.f90.html" xlink:title="swiftest_driver.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="633,-1158 535,-1158 535,-1134 633,-1134 633,-1158"/>
-<text text-anchor="middle" x="584" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_driver.f90</text>
+<title>sourcefile~orbel.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node39"><a xlink:href=".././sourcefile/orbel.f90.html" xlink:title="orbel.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611.5,-1620 556.5,-1620 556.5,-1596 611.5,-1596 611.5,-1620"/>
+<text text-anchor="middle" x="584" y="-1605.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">orbel.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge41" class="edge">
-<title>sourcefile~swiftest_driver.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M534.67,-1156C523.71,-1158.96 512.29,-1162.61 502,-1167 486.9,-1173.44 471.24,-1182.9 458.76,-1191.21"/>
-<polygon fill="#000000" stroke="#000000" points="456.57,-1188.47 450.28,-1197 460.51,-1194.25 456.57,-1188.47"/>
+<!-- sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge40" class="edge">
+<title>sourcefile~orbel.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.41,-1608.04C538.57,-1606.59 515.89,-1601.66 502,-1587 458.66,-1541.26 440.49,-1341.3 435.51,-1273.55"/>
+<polygon fill="#000000" stroke="#000000" points="438.97,-1272.9 434.77,-1263.17 431.99,-1273.39 438.97,-1272.9"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90 -->
+<!-- sourcefile~symba_util.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node40" class="node">
-<title>sourcefile~rmvs_setup.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/rmvs_setup.f90.html" xlink:title="rmvs_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="627,-402 541,-402 541,-378 627,-378 627,-402"/>
-<text text-anchor="middle" x="584" y="-387.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_setup.f90</text>
+<title>sourcefile~symba_util.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node40"><a xlink:href=".././sourcefile/symba_util.f90.html" xlink:title="symba_util.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="625,-2124 543,-2124 543,-2100 625,-2100 625,-2124"/>
+<text text-anchor="middle" x="584" y="-2109.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_util.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge42" class="edge">
-<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.71,-391.36C526.36,-394.04 511.56,-399.68 502,-411 450.58,-471.92 436.72,-1064.14 434.39,-1186.82"/>
-<polygon fill="#000000" stroke="#000000" points="430.88,-1186.85 434.2,-1196.91 437.88,-1186.97 430.88,-1186.85"/>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge41" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M542.79,-2111.03C527.79,-2108.52 512,-2102.9 502,-2091 447.86,-2026.58 436.11,-1399.57 434.29,-1273.15"/>
+<polygon fill="#000000" stroke="#000000" points="437.78,-1273.05 434.15,-1263.1 430.79,-1273.15 437.78,-1273.05"/>
 </g>
-<!-- sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge72" class="edge">
-<title>sourcefile~rmvs_setup.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.88,-388.45C511.01,-387.73 470,-387.51 434,-390"/>
+<!-- sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge94" class="edge">
+<title>sourcefile~symba_util.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M542.62,-2106.78C528.95,-2103.69 514.09,-2098.78 502,-2091 461.61,-2065 470.67,-2038.02 434,-2007"/>
 </g>
-<!-- sourcefile~util_coord.f90 -->
+<!-- sourcefile~rmvs_step.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node41" class="node">
-<title>sourcefile~util_coord.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622.5,-1116 545.5,-1116 545.5,-1092 622.5,-1092 622.5,-1116"/>
-<text text-anchor="middle" x="584" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
+<title>sourcefile~rmvs_step.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node41"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="624,-318 544,-318 544,-294 624,-294 624,-318"/>
+<text text-anchor="middle" x="584" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge44" class="edge">
-<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.5,-1108.6C531.06,-1111.63 514.95,-1116.66 502,-1125 477.19,-1140.97 457.2,-1169.02 445.47,-1188.28"/>
-<polygon fill="#000000" stroke="#000000" points="442.43,-1186.54 440.39,-1196.94 448.47,-1190.08 442.43,-1186.54"/>
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge42" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M543.58,-306.79C528.33,-309.23 512.14,-314.84 502,-327 442.49,-398.33 435.01,-1093.38 434.12,-1228.36"/>
+<polygon fill="#000000" stroke="#000000" points="430.61,-1228.68 434.05,-1238.7 437.61,-1228.72 430.61,-1228.68"/>
 </g>
-<!-- sourcefile~drift.f90 -->
+<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge84" class="edge">
+<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M543.62,-312.12C529.89,-315.3 514.75,-320.03 502,-327 465.85,-346.77 475.1,-387.16 434,-390"/>
+</g>
+<!-- sourcefile~util_minimize_bfgs.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node42" class="node">
-<title>sourcefile~drift.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611,-1074 557,-1074 557,-1050 611,-1050 611,-1074"/>
-<text text-anchor="middle" x="584" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
+<title>sourcefile~util_minimize_bfgs.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node42"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="643,-1578 525,-1578 525,-1554 643,-1554 643,-1578"/>
+<text text-anchor="middle" x="584" y="-1563.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge45" class="edge">
-<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.92,-1063.44C539.76,-1065.57 517.66,-1070.72 502,-1083 467.83,-1109.79 448.63,-1158.68 439.88,-1187.05"/>
-<polygon fill="#000000" stroke="#000000" points="436.47,-1186.24 437.03,-1196.82 443.19,-1188.2 436.47,-1186.24"/>
+<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge43" class="edge">
+<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M524.78,-1559.21C516.28,-1556.01 508.28,-1551.45 502,-1545 463.89,-1505.87 442.75,-1335.43 436.22,-1273.55"/>
+<polygon fill="#000000" stroke="#000000" points="439.67,-1272.91 435.17,-1263.31 432.71,-1273.62 439.67,-1272.91"/>
 </g>
-<!-- sourcefile~rmvs_step.f90 -->
+<!-- sourcefile~util_coord.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node43" class="node">
-<title>sourcefile~rmvs_step.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/rmvs_step.f90.html" xlink:title="rmvs_step.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="624,-360 544,-360 544,-336 624,-336 624,-360"/>
-<text text-anchor="middle" x="584" y="-345.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_step.f90</text>
+<title>sourcefile~util_coord.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node43"><a xlink:href=".././sourcefile/util_coord.f90.html" xlink:title="util_coord.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622.5,-1536 545.5,-1536 545.5,-1512 622.5,-1512 622.5,-1536"/>
+<text text-anchor="middle" x="584" y="-1521.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_coord.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge46" class="edge">
-<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M543.63,-348.83C528.39,-351.27 512.19,-356.88 502,-369 447.86,-433.42 436.11,-1060.43 434.29,-1186.85"/>
-<polygon fill="#000000" stroke="#000000" points="430.79,-1186.85 434.15,-1196.9 437.78,-1186.95 430.79,-1186.85"/>
-</g>
-<!-- sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge74" class="edge">
-<title>sourcefile~rmvs_step.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M543.76,-357.79C530.47,-361.2 515.56,-365.15 502,-369 471.57,-377.64 465.56,-387.82 434,-390"/>
+<!-- sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge44" class="edge">
+<title>sourcefile~util_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.09,-1522.27C529.91,-1519.7 513.36,-1514.24 502,-1503 437.77,-1439.4 432.35,-1321.93 433.09,-1273.14"/>
+<polygon fill="#000000" stroke="#000000" points="436.59,-1273.13 433.35,-1263.05 429.59,-1272.95 436.59,-1273.13"/>
 </g>
-<!-- sourcefile~fragmentation.f90 -->
+<!-- sourcefile~symba_kick.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node44" class="node">
-<title>sourcefile~fragmentation.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/fragmentation.f90.html" xlink:title="fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="632.5,-1032 535.5,-1032 535.5,-1008 632.5,-1008 632.5,-1032"/>
-<text text-anchor="middle" x="584" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">fragmentation.f90</text>
+<title>sourcefile~symba_kick.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node44"><a xlink:href=".././sourcefile/symba_kick.f90.html" xlink:title="symba_kick.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="627,-2082 541,-2082 541,-2058 627,-2058 627,-2082"/>
+<text text-anchor="middle" x="584" y="-2067.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kick.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge48" class="edge">
-<title>sourcefile~fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M535.29,-1024.69C523.33,-1027.81 511.28,-1032.86 502,-1041 458.05,-1079.54 442.08,-1150.62 436.62,-1186.71"/>
-<polygon fill="#000000" stroke="#000000" points="433.14,-1186.33 435.25,-1196.72 440.08,-1187.29 433.14,-1186.33"/>
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge45" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.71,-2068.64C526.36,-2065.96 511.56,-2060.32 502,-2049 450.58,-1988.08 436.72,-1395.86 434.39,-1273.18"/>
+<polygon fill="#000000" stroke="#000000" points="437.88,-1273.03 434.2,-1263.09 430.88,-1273.15 437.88,-1273.03"/>
 </g>
-<!-- sourcefile~operator_cross.f90 -->
+<!-- sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge85" class="edge">
+<title>sourcefile~symba_kick.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M541,-2061.65C528.21,-2058.44 514.29,-2054.25 502,-2049 469.33,-2035.05 461.12,-2029.94 434,-2007"/>
+</g>
+<!-- sourcefile~io.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node45" class="node">
-<title>sourcefile~operator_cross.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="635.5,-990 532.5,-990 532.5,-966 635.5,-966 635.5,-990"/>
-<text text-anchor="middle" x="584" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
+<title>sourcefile~io.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node45"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611,-1494 557,-1494 557,-1470 611,-1470 611,-1494"/>
+<text text-anchor="middle" x="584" y="-1479.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge49" class="edge">
-<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M532.36,-982.95C521.26,-986.12 510.35,-991.13 502,-999 447.98,-1049.9 436.78,-1143.99 434.52,-1186.78"/>
-<polygon fill="#000000" stroke="#000000" points="431.02,-1186.82 434.11,-1196.95 438.01,-1187.11 431.02,-1186.82"/>
+<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge46" class="edge">
+<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.92,-1481.53C539.31,-1479.85 516.7,-1474.85 502,-1461 447.98,-1410.1 436.78,-1316.01 434.52,-1273.22"/>
+<polygon fill="#000000" stroke="#000000" points="438.01,-1272.89 434.11,-1263.05 431.02,-1273.18 438.01,-1272.89"/>
 </g>
-<!-- sourcefile~symba_drift.f90 -->
+<!-- sourcefile~util_fill.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node46" class="node">
-<title>sourcefile~symba_drift.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/symba_drift.f90.html" xlink:title="symba_drift.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="627,-1956 541,-1956 541,-1932 627,-1932 627,-1956"/>
-<text text-anchor="middle" x="584" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_drift.f90</text>
+<title>sourcefile~util_fill.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node46"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-1452 554,-1452 554,-1428 614,-1428 614,-1452"/>
+<text text-anchor="middle" x="584" y="-1437.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge50" class="edge">
-<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.77,-1942.59C526.43,-1939.9 511.61,-1934.28 502,-1923 456.02,-1869.07 438.04,-1346.35 434.62,-1231.32"/>
-<polygon fill="#000000" stroke="#000000" points="438.12,-1231.11 434.33,-1221.21 431.12,-1231.31 438.12,-1231.11"/>
-</g>
-<!-- sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge87" class="edge">
-<title>sourcefile~symba_drift.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.86,-1954.53C528.32,-1957.77 514.58,-1961.43 502,-1965 471.57,-1973.64 458.06,-2006.53 434,-1986"/>
+<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge47" class="edge">
+<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.77,-1438.8C536.87,-1436.67 516.2,-1431.45 502,-1419 458.05,-1380.46 442.08,-1309.38 436.62,-1273.29"/>
+<polygon fill="#000000" stroke="#000000" points="440.08,-1272.71 435.25,-1263.28 433.14,-1273.67 440.08,-1272.71"/>
 </g>
-<!-- sourcefile~util_fill.f90 -->
+<!-- sourcefile~util_append.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node47" class="node">
-<title>sourcefile~util_fill.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/util_fill.f90.html" xlink:title="util_fill.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="614,-948 554,-948 554,-924 614,-924 614,-948"/>
-<text text-anchor="middle" x="584" y="-933.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_fill.f90</text>
+<title>sourcefile~util_append.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node47"><a xlink:href=".././sourcefile/util_append.f90.html" xlink:title="util_append.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="627,-1410 541,-1410 541,-1386 627,-1386 627,-1410"/>
+<text text-anchor="middle" x="584" y="-1395.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_append.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge51" class="edge">
-<title>sourcefile~util_fill.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M553.99,-936.51C536.74,-938.35 515.63,-943.51 502,-957 437.77,-1020.6 432.35,-1138.07 433.09,-1186.86"/>
-<polygon fill="#000000" stroke="#000000" points="429.59,-1187.05 433.35,-1196.95 436.59,-1186.87 429.59,-1187.05"/>
+<!-- sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge49" class="edge">
+<title>sourcefile~util_append.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M540.91,-1393.82C527.41,-1390.81 513.09,-1385.69 502,-1377 467.83,-1350.21 448.63,-1301.32 439.88,-1272.95"/>
+<polygon fill="#000000" stroke="#000000" points="443.19,-1271.8 437.03,-1263.18 436.47,-1273.76 443.19,-1271.8"/>
 </g>
-<!-- sourcefile~symba_encounter_check.f90 -->
+<!-- sourcefile~discard.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node48" class="node">
-<title>sourcefile~symba_encounter_check.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="659,-1914 509,-1914 509,-1890 659,-1890 659,-1914"/>
-<text text-anchor="middle" x="584" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
+<title>sourcefile~discard.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node48"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="616.5,-1368 551.5,-1368 551.5,-1344 616.5,-1344 616.5,-1368"/>
+<text text-anchor="middle" x="584" y="-1353.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge52" class="edge">
-<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.07,-1889.77C508.34,-1887.32 504.93,-1884.42 502,-1881 458.68,-1830.5 438.73,-1341.37 434.75,-1231.04"/>
-<polygon fill="#000000" stroke="#000000" points="438.25,-1230.91 434.4,-1221.04 431.26,-1231.16 438.25,-1230.91"/>
-</g>
-<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge86" class="edge">
-<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M522.44,-1914.14C515.35,-1916.59 508.37,-1919.51 502,-1923 465.85,-1942.77 465.34,-2012.74 434,-1986"/>
+<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge50" class="edge">
+<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M551.12,-1352.51C535.37,-1349.64 516.66,-1344.44 502,-1335 477.19,-1319.03 457.2,-1290.98 445.47,-1271.72"/>
+<polygon fill="#000000" stroke="#000000" points="448.47,-1269.92 440.39,-1263.06 442.43,-1273.46 448.47,-1269.92"/>
 </g>
-<!-- sourcefile~util_peri.f90 -->
+<!-- sourcefile~symba_discard.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node49" class="node">
-<title>sourcefile~util_peri.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/util_peri.f90.html" xlink:title="util_peri.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="618,-906 550,-906 550,-882 618,-882 618,-906"/>
-<text text-anchor="middle" x="584" y="-891.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_peri.f90</text>
+<title>sourcefile~symba_discard.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node49"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="635.5,-2040 532.5,-2040 532.5,-2016 635.5,-2016 635.5,-2040"/>
+<text text-anchor="middle" x="584" y="-2025.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge53" class="edge">
-<title>sourcefile~util_peri.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.82,-894.8C533.34,-896.94 514.37,-902.3 502,-915 463.89,-954.13 442.75,-1124.57 436.22,-1186.45"/>
-<polygon fill="#000000" stroke="#000000" points="432.71,-1186.38 435.17,-1196.69 439.67,-1187.09 432.71,-1186.38"/>
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge51" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M532.29,-2024.67C520.78,-2021.5 509.71,-2016.08 502,-2007 453.28,-1949.56 437.35,-1391.75 434.5,-1273.11"/>
+<polygon fill="#000000" stroke="#000000" points="437.99,-1272.95 434.26,-1263.04 430.99,-1273.12 437.99,-1272.95"/>
 </g>
-<!-- sourcefile~rmvs_kick.f90 -->
+<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge88" class="edge">
+<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M532.3,-2033.63C500.59,-2034.33 460.83,-2029.69 434,-2007"/>
+</g>
+<!-- sourcefile~tides_spin_step.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node50" class="node">
-<title>sourcefile~rmvs_kick.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/rmvs_kick.f90.html" xlink:title="rmvs_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="623,-318 545,-318 545,-294 623,-294 623,-318"/>
-<text text-anchor="middle" x="584" y="-303.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_kick.f90</text>
+<title>sourcefile~tides_spin_step.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node50"><a xlink:href=".././sourcefile/tides_spin_step.f90.html" xlink:title="tides_spin_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="636.5,-1326 531.5,-1326 531.5,-1302 636.5,-1302 636.5,-1326"/>
+<text text-anchor="middle" x="584" y="-1311.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">tides_spin_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge54" class="edge">
-<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M544.86,-306.62C529.25,-308.95 512.44,-314.52 502,-327 445.18,-394.87 435.55,-1055.8 434.2,-1186.58"/>
-<polygon fill="#000000" stroke="#000000" points="430.69,-1186.91 434.1,-1196.94 437.69,-1186.98 430.69,-1186.91"/>
-</g>
-<!-- sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge70" class="edge">
-<title>sourcefile~rmvs_kick.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M544.85,-311.84C530.8,-315.02 515.13,-319.82 502,-327 465.85,-346.77 475.1,-387.16 434,-390"/>
+<!-- sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge52" class="edge">
+<title>sourcefile~tides_spin_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M531.24,-1303.05C521.35,-1300.28 511.22,-1296.94 502,-1293 486.9,-1286.56 471.24,-1277.1 458.76,-1268.79"/>
+<polygon fill="#000000" stroke="#000000" points="460.51,-1265.75 450.28,-1263 456.57,-1271.53 460.51,-1265.75"/>
 </g>
-<!-- sourcefile~util_set.f90 -->
+<!-- sourcefile~symba_step.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node51" class="node">
-<title>sourcefile~util_set.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="616,-864 552,-864 552,-840 616,-840 616,-864"/>
-<text text-anchor="middle" x="584" y="-849.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
+<title>sourcefile~symba_step.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node51"><a xlink:href=".././sourcefile/symba_step.f90.html" xlink:title="symba_step.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="628,-1998 540,-1998 540,-1974 628,-1974 628,-1998"/>
+<text text-anchor="middle" x="584" y="-1983.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_step.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge55" class="edge">
-<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M551.69,-852.42C534.72,-854.33 514.69,-859.61 502,-873 458.66,-918.74 440.49,-1118.7 435.51,-1186.45"/>
-<polygon fill="#000000" stroke="#000000" points="431.99,-1186.61 434.77,-1196.83 438.97,-1187.1 431.99,-1186.61"/>
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge54" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.92,-1984.42C525.85,-1981.68 511.43,-1976.05 502,-1965 456.02,-1911.07 438.04,-1388.35 434.62,-1273.32"/>
+<polygon fill="#000000" stroke="#000000" points="438.12,-1273.11 434.33,-1263.21 431.12,-1273.31 438.12,-1273.11"/>
 </g>
-<!-- sourcefile~util_exit.f90 -->
+<!-- sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge92" class="edge">
+<title>sourcefile~symba_step.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M539.99,-1995.33C498.89,-2003.73 442.03,-2013.79 434,-2007"/>
+</g>
+<!-- sourcefile~operator_cross.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node52" class="node">
-<title>sourcefile~util_exit.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/util_exit.f90.html" xlink:title="util_exit.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="617.5,-822 550.5,-822 550.5,-798 617.5,-798 617.5,-822"/>
-<text text-anchor="middle" x="584" y="-807.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_exit.f90</text>
+<title>sourcefile~operator_cross.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node52"><a xlink:href=".././sourcefile/operator_cross.f90.html" xlink:title="operator_cross.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="635.5,-1284 532.5,-1284 532.5,-1260 635.5,-1260 635.5,-1284"/>
+<text text-anchor="middle" x="584" y="-1269.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">operator_cross.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge56" class="edge">
-<title>sourcefile~util_exit.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M550.37,-810.46C533.63,-812.45 514.25,-817.79 502,-831 453.38,-883.45 438.49,-1113.43 434.95,-1186.58"/>
-<polygon fill="#000000" stroke="#000000" points="431.44,-1186.77 434.47,-1196.92 438.43,-1187.09 431.44,-1186.77"/>
+<title>sourcefile~operator_cross.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M532.14,-1264.83C514.13,-1262.29 494.06,-1259.46 476.79,-1257.03"/>
+<polygon fill="#000000" stroke="#000000" points="476.83,-1253.5 466.44,-1255.57 475.85,-1260.43 476.83,-1253.5"/>
 </g>
-<!-- sourcefile~symba_discard.f90 -->
+<!-- sourcefile~helio_gr.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node53" class="node">
-<title>sourcefile~symba_discard.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/symba_discard.f90.html" xlink:title="symba_discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="635.5,-1872 532.5,-1872 532.5,-1848 635.5,-1848 635.5,-1872"/>
-<text text-anchor="middle" x="584" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_discard.f90</text>
+<title>sourcefile~helio_gr.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node53"><a xlink:href=".././sourcefile/helio_gr.f90.html" xlink:title="helio_gr.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="618,-2334 550,-2334 550,-2310 618,-2310 618,-2334"/>
+<text text-anchor="middle" x="584" y="-2319.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_gr.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge57" class="edge">
-<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M532.4,-1856.58C520.89,-1853.41 509.79,-1848.02 502,-1839 461.42,-1792 439.53,-1337.89 434.92,-1231.31"/>
-<polygon fill="#000000" stroke="#000000" points="438.41,-1230.92 434.49,-1221.08 431.42,-1231.22 438.41,-1230.92"/>
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.76,-2322.08C532.84,-2320.24 513.48,-2314.88 502,-2301 468.07,-2259.97 439.54,-1422.57 434.72,-1273.57"/>
+<polygon fill="#000000" stroke="#000000" points="438.21,-1273.24 434.39,-1263.36 431.21,-1273.46 438.21,-1273.24"/>
 </g>
-<!-- sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge89" class="edge">
-<title>sourcefile~symba_discard.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M532.46,-1866.97C521.73,-1870.07 510.95,-1874.54 502,-1881 456.91,-1913.53 476.29,-2022.09 434,-1986"/>
+<!-- sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge76" class="edge">
+<title>sourcefile~helio_gr.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.87,-2329.77C518.46,-2335.39 470.74,-2339.31 434,-2322"/>
 </g>
-<!-- sourcefile~util_solve.f90 -->
+<!-- sourcefile~util_valid.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node54" class="node">
-<title>sourcefile~util_solve.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/util_solve.f90.html" xlink:title="util_solve.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="621.5,-780 546.5,-780 546.5,-756 621.5,-756 621.5,-780"/>
-<text text-anchor="middle" x="584" y="-765.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_solve.f90</text>
+<title>sourcefile~util_valid.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node54"><a xlink:href=".././sourcefile/util_valid.f90.html" xlink:title="util_valid.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="620,-1242 548,-1242 548,-1218 620,-1218 620,-1242"/>
+<text text-anchor="middle" x="584" y="-1227.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_valid.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge58" class="edge">
-<title>sourcefile~util_solve.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M546.18,-768.91C530.43,-771.25 513.15,-776.76 502,-789 448.07,-848.2 436.71,-1108.44 434.5,-1186.68"/>
-<polygon fill="#000000" stroke="#000000" points="431,-1186.76 434.24,-1196.85 438,-1186.95 431,-1186.76"/>
+<title>sourcefile~util_valid.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M547.69,-1234.98C526.2,-1238.01 498.62,-1241.89 476.01,-1245.08"/>
+<polygon fill="#000000" stroke="#000000" points="475.42,-1241.63 466.01,-1246.49 476.4,-1248.56 475.42,-1241.63"/>
 </g>
-<!-- sourcefile~discard.f90 -->
+<!-- sourcefile~symba_collision.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node55" class="node">
-<title>sourcefile~discard.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/discard.f90.html" xlink:title="discard.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="616.5,-738 551.5,-738 551.5,-714 616.5,-714 616.5,-738"/>
-<text text-anchor="middle" x="584" y="-723.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">discard.f90</text>
+<title>sourcefile~symba_collision.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node55"><a xlink:href=".././sourcefile/symba_collision.f90.html" xlink:title="symba_collision.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="637,-1956 531,-1956 531,-1932 637,-1932 637,-1956"/>
+<text text-anchor="middle" x="584" y="-1941.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_collision.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge59" class="edge">
-<title>sourcefile~discard.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M551.41,-726.17C534.36,-728 514.33,-733.27 502,-747 472.16,-780.23 443.31,-1098.52 435.85,-1186.54"/>
-<polygon fill="#000000" stroke="#000000" points="432.35,-1186.49 435,-1196.74 439.32,-1187.07 432.35,-1186.49"/>
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M530.68,-1940.13C519.78,-1936.91 509.38,-1931.6 502,-1923 458.68,-1872.5 438.73,-1383.37 434.75,-1273.04"/>
+<polygon fill="#000000" stroke="#000000" points="438.25,-1272.91 434.4,-1263.04 431.26,-1273.16 438.25,-1272.91"/>
 </g>
-<!-- sourcefile~helio_kick.f90 -->
+<!-- sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge87" class="edge">
+<title>sourcefile~symba_collision.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M530.81,-1955.07C521.06,-1957.82 511.09,-1961.12 502,-1965 469.33,-1978.95 461.12,-2029.94 434,-2007"/>
+</g>
+<!-- sourcefile~obl.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node56" class="node">
-<title>sourcefile~helio_kick.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/helio_kick.f90.html" xlink:title="helio_kick.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622.5,-2208 545.5,-2208 545.5,-2184 622.5,-2184 622.5,-2208"/>
-<text text-anchor="middle" x="584" y="-2193.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_kick.f90</text>
+<title>sourcefile~obl.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node56"><a xlink:href=".././sourcefile/obl.f90.html" xlink:title="obl.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611,-1200 557,-1200 557,-1176 611,-1176 611,-1200"/>
+<text text-anchor="middle" x="584" y="-1185.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">obl.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge60" class="edge">
-<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.24,-2195.48C529.51,-2193.19 512.5,-2187.62 502,-2175 470.77,-2137.44 440.19,-1371.61 434.83,-1231.06"/>
-<polygon fill="#000000" stroke="#000000" points="438.32,-1230.9 434.45,-1221.04 431.33,-1231.17 438.32,-1230.9"/>
-</g>
-<!-- sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge82" class="edge">
-<title>sourcefile~helio_kick.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.26,-2201.75C531.11,-2204.93 515.26,-2209.75 502,-2217 465.85,-2236.77 475.2,-2280 434,-2280"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432,-2280C212.71,-2280 182.54,-1404.41 178.94,-1251.61"/>
-<polygon fill="#000000" stroke="#000000" points="182.43,-1251.09 178.71,-1241.17 175.44,-1251.24 182.43,-1251.09"/>
+<title>sourcefile~obl.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.81,-1192.71C540.62,-1196.12 519.64,-1201.47 502,-1209 486.9,-1215.44 471.24,-1224.9 458.76,-1233.21"/>
+<polygon fill="#000000" stroke="#000000" points="456.57,-1230.47 450.28,-1239 460.51,-1236.25 456.57,-1230.47"/>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90 -->
+<!-- sourcefile~symba_io.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node57" class="node">
-<title>sourcefile~util_minimize_bfgs.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/util_minimize_bfgs.f90.html" xlink:title="util_minimize_bfgs.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="643,-696 525,-696 525,-672 643,-672 643,-696"/>
-<text text-anchor="middle" x="584" y="-681.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_minimize_bfgs.f90</text>
+<title>sourcefile~symba_io.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node57"><a xlink:href=".././sourcefile/symba_io.f90.html" xlink:title="symba_io.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="622,-1914 546,-1914 546,-1890 622,-1890 622,-1914"/>
+<text text-anchor="middle" x="584" y="-1899.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_io.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge62" class="edge">
-<title>sourcefile~util_minimize_bfgs.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M524.66,-690.14C516.06,-693.4 508.07,-698.15 502,-705 469.49,-741.65 442.23,-1093.68 435.56,-1186.6"/>
-<polygon fill="#000000" stroke="#000000" points="432.07,-1186.39 434.85,-1196.61 439.05,-1186.88 432.07,-1186.39"/>
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge61" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.87,-1901.35C530.07,-1899.07 512.82,-1893.53 502,-1881 461.42,-1834 439.53,-1379.89 434.92,-1273.31"/>
+<polygon fill="#000000" stroke="#000000" points="438.41,-1272.92 434.49,-1263.08 431.42,-1273.22 438.41,-1272.92"/>
 </g>
-<!-- sourcefile~io.f90 -->
+<!-- sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge89" class="edge">
+<title>sourcefile~symba_io.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M545.91,-1906.51C531.37,-1909.54 515.07,-1914.59 502,-1923 461.61,-1949 470.67,-2038.02 434,-2007"/>
+</g>
+<!-- sourcefile~util_resize.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node58" class="node">
-<title>sourcefile~io.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/io.f90.html" xlink:title="io.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611,-654 557,-654 557,-630 611,-630 611,-654"/>
-<text text-anchor="middle" x="584" y="-639.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">io.f90</text>
+<title>sourcefile~util_resize.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node58"><a xlink:href=".././sourcefile/util_resize.f90.html" xlink:title="util_resize.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="623.5,-1158 544.5,-1158 544.5,-1134 623.5,-1134 623.5,-1158"/>
+<text text-anchor="middle" x="584" y="-1143.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_resize.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge63" class="edge">
-<title>sourcefile~io.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.83,-641.59C538.71,-642.8 515.51,-647.61 502,-663 484.34,-683.11 445.49,-1086.46 436.08,-1186.63"/>
-<polygon fill="#000000" stroke="#000000" points="432.57,-1186.54 435.13,-1196.82 439.54,-1187.19 432.57,-1186.54"/>
+<!-- sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge65" class="edge">
+<title>sourcefile~util_resize.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M544.27,-1150.86C530.15,-1153.92 514.58,-1158.9 502,-1167 477.19,-1182.97 457.2,-1211.02 445.47,-1230.28"/>
+<polygon fill="#000000" stroke="#000000" points="442.43,-1228.54 440.39,-1238.94 448.47,-1232.08 442.43,-1228.54"/>
 </g>
-<!-- sourcefile~symba_setup.f90 -->
+<!-- sourcefile~util_set.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node59" class="node">
-<title>sourcefile~symba_setup.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/symba_setup.f90.html" xlink:title="symba_setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="631,-1830 537,-1830 537,-1806 631,-1806 631,-1830"/>
-<text text-anchor="middle" x="584" y="-1815.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_setup.f90</text>
+<title>sourcefile~util_set.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node59"><a xlink:href=".././sourcefile/util_set.f90.html" xlink:title="util_set.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="616,-1116 552,-1116 552,-1092 616,-1092 616,-1116"/>
+<text text-anchor="middle" x="584" y="-1101.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_set.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge64" class="edge">
-<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.67,-1815.6C523.7,-1812.63 510.77,-1807.08 502,-1797 464.08,-1753.43 440.32,-1332.89 435.09,-1231.1"/>
-<polygon fill="#000000" stroke="#000000" points="438.58,-1230.84 434.58,-1221.03 431.59,-1231.2 438.58,-1230.84"/>
-</g>
-<!-- sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge91" class="edge">
-<title>sourcefile~symba_setup.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M536.81,-1822.68C524.45,-1825.77 511.81,-1830.81 502,-1839 446.74,-1885.13 488.76,-2032.73 434,-1986"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432,-1986C316.82,-1887.7 312.78,-1365.52 313.3,-1251.15"/>
-<polygon fill="#000000" stroke="#000000" points="316.8,-1251.13 313.36,-1241.11 309.8,-1251.09 316.8,-1251.13"/>
+<title>sourcefile~util_set.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M551.91,-1106.13C535.63,-1108.61 516.18,-1113.89 502,-1125 467.83,-1151.79 448.63,-1200.68 439.88,-1229.05"/>
+<polygon fill="#000000" stroke="#000000" points="436.47,-1228.24 437.03,-1238.82 443.19,-1230.2 436.47,-1228.24"/>
 </g>
-<!-- sourcefile~symba_fragmentation.f90 -->
+<!-- sourcefile~util_spill.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node60" class="node">
-<title>sourcefile~symba_fragmentation.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/symba_fragmentation.f90.html" xlink:title="symba_fragmentation.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="651,-528 517,-528 517,-504 651,-504 651,-528"/>
-<text text-anchor="middle" x="584" y="-513.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_fragmentation.f90</text>
+<title>sourcefile~util_spill.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node60"><a xlink:href=".././sourcefile/util_spill.f90.html" xlink:title="util_spill.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="618,-1074 550,-1074 550,-1050 618,-1050 618,-1074"/>
+<text text-anchor="middle" x="584" y="-1059.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_spill.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge65" class="edge">
-<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.92,-525.37C511.29,-528.34 506.16,-532.15 502,-537 491.14,-549.66 445.81,-1071.29 435.92,-1186.6"/>
-<polygon fill="#000000" stroke="#000000" points="432.41,-1186.47 435.05,-1196.73 439.39,-1187.06 432.41,-1186.47"/>
-</g>
-<!-- sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge92" class="edge">
-<title>sourcefile~symba_fragmentation.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.64,-526.22C511.21,-529.05 506.21,-532.58 502,-537 293.59,-755.96 546.9,-962.32 364,-1203 361.69,-1206.04 358.91,-1208.76 355.88,-1211.19"/>
-<polygon fill="#000000" stroke="#000000" points="353.69,-1208.44 347.35,-1216.92 357.6,-1214.25 353.69,-1208.44"/>
-</g>
-<!-- sourcefile~util_version.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node61" class="node">
-<title>sourcefile~util_version.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node61"><a xlink:href=".././sourcefile/util_version.f90.html" xlink:title="util_version.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="626.5,-612 541.5,-612 541.5,-588 626.5,-588 626.5,-612"/>
-<text text-anchor="middle" x="584" y="-597.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_version.f90</text>
-</a>
+<!-- sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge66" class="edge">
+<title>sourcefile~util_spill.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.81,-1063.75C533.72,-1066.17 515.11,-1071.51 502,-1083 458.05,-1121.54 442.08,-1192.62 436.62,-1228.71"/>
+<polygon fill="#000000" stroke="#000000" points="433.14,-1228.33 435.25,-1238.72 440.08,-1229.29 433.14,-1228.33"/>
 </g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge74" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M260.84,-1291C252.29,-1291 243.37,-1291 234.69,-1291"/>
+<polygon fill="#000000" stroke="#000000" points="234.65,-1287.5 224.65,-1291 234.65,-1294.5 234.65,-1287.5"/>
 </g>
-<!-- sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge66" class="edge">
-<title>sourcefile~util_version.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M541.31,-601.44C526.85,-604.11 511.82,-609.71 502,-621 482.98,-642.85 444.7,-1082.57 435.85,-1186.92"/>
-<polygon fill="#000000" stroke="#000000" points="432.36,-1186.7 435.01,-1196.96 439.33,-1187.29 432.36,-1186.7"/>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge83" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.82,-1278.94C278.52,-1274.71 269.27,-1269.82 261,-1265 241.53,-1253.66 220.27,-1239.7 204.21,-1228.82"/>
+<polygon fill="#000000" stroke="#000000" points="206.1,-1225.87 195.87,-1223.13 202.16,-1231.66 206.1,-1225.87"/>
 </g>
-<!-- sourcefile~setup.f90 -->
+<!-- sourcefile~symba_encounter_check.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node62" class="node">
-<title>sourcefile~setup.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/setup.f90.html" xlink:title="setup.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="612.5,-570 555.5,-570 555.5,-546 612.5,-546 612.5,-570"/>
-<text text-anchor="middle" x="584" y="-555.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">setup.f90</text>
+<title>sourcefile~symba_encounter_check.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node62"><a xlink:href=".././sourcefile/symba_encounter_check.f90.html" xlink:title="symba_encounter_check.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="659,-1872 509,-1872 509,-1848 659,-1848 659,-1872"/>
+<text text-anchor="middle" x="584" y="-1857.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_encounter_check.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge67" class="edge">
-<title>sourcefile~setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M555.2,-557.63C537.29,-558.98 515.01,-563.94 502,-579 491.8,-590.81 446.24,-1076.84 436.03,-1186.97"/>
-<polygon fill="#000000" stroke="#000000" points="432.55,-1186.67 435.11,-1196.95 439.52,-1187.32 432.55,-1186.67"/>
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.49,-1847.96C508.61,-1845.47 505.05,-1842.51 502,-1839 464.08,-1795.43 440.32,-1374.89 435.09,-1273.1"/>
+<polygon fill="#000000" stroke="#000000" points="438.58,-1272.84 434.58,-1263.03 431.59,-1273.2 438.58,-1272.84"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90 -->
+<!-- sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge93" class="edge">
+<title>sourcefile~symba_encounter_check.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M516.68,-1872.15C511.44,-1874.59 506.46,-1877.5 502,-1881 451.92,-1920.26 482.59,-2048.09 434,-2007"/>
+</g>
+<!-- sourcefile~drift.f90 -->
 <g id="sourcefile~~whm_classes.f90~~AfferentGraph_node63" class="node">
-<title>sourcefile~rmvs_encounter_check.f90</title>
-<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node63"><a xlink:href=".././sourcefile/rmvs_encounter_check.f90.html" xlink:title="rmvs_encounter_check.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="655,-276 513,-276 513,-252 655,-252 655,-276"/>
-<text text-anchor="middle" x="584" y="-261.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_encounter_check.f90</text>
+<title>sourcefile~drift.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node63"><a xlink:href=".././sourcefile/drift.f90.html" xlink:title="drift.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="611,-1032 557,-1032 557,-1008 611,-1008 611,-1032"/>
+<text text-anchor="middle" x="584" y="-1017.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">drift.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge20" class="edge">
-<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M512.68,-275.66C508.7,-278.24 505.07,-281.32 502,-285 442.49,-356.33 435.01,-1051.38 434.12,-1186.36"/>
-<polygon fill="#000000" stroke="#000000" points="430.61,-1186.68 434.05,-1196.7 437.61,-1186.72 430.61,-1186.68"/>
+<!-- sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge68" class="edge">
+<title>sourcefile~drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M556.92,-1020.47C539.31,-1022.15 516.7,-1027.15 502,-1041 447.98,-1091.9 436.78,-1185.99 434.52,-1228.78"/>
+<polygon fill="#000000" stroke="#000000" points="431.02,-1228.82 434.11,-1238.95 438.01,-1229.11 431.02,-1228.82"/>
 </g>
-<!-- sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge76" class="edge">
-<title>sourcefile~rmvs_encounter_check.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432,-390C272.91,-401.01 195.28,-1002.71 180.96,-1126.77"/>
-<polygon fill="#000000" stroke="#000000" points="177.45,-1126.63 179.8,-1136.96 184.41,-1127.42 177.45,-1126.63"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M518.2,-276.01C512.45,-278.47 506.95,-281.43 502,-285 456.91,-317.53 482.01,-361.95 434,-390"/>
+<!-- sourcefile~util_sort.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_node64" class="node">
+<title>sourcefile~util_sort.f90</title>
+<g id="a_sourcefile~~whm_classes.f90~~AfferentGraph_node64"><a xlink:href=".././sourcefile/util_sort.f90.html" xlink:title="util_sort.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="618,-990 550,-990 550,-966 618,-966 618,-990"/>
+<text text-anchor="middle" x="584" y="-975.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">util_sort.f90</text>
+</a>
+</g>
+</g>
+<!-- sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90 -->
+<g id="sourcefile~~whm_classes.f90~~AfferentGraph_edge69" class="edge">
+<title>sourcefile~util_sort.f90&#45;&gt;sourcefile~swiftest.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M549.6,-979.04C533.27,-981.26 514.49,-986.63 502,-999 437.77,-1062.6 432.35,-1180.07 433.09,-1228.86"/>
+<polygon fill="#000000" stroke="#000000" points="429.59,-1229.05 433.35,-1238.95 436.59,-1228.87 429.59,-1229.05"/>
 </g>
 </g>
 </svg>
@@ -1766,7 +1780,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-232"></a>         <span class="k">implicit none</span>
 <a name="ln-233"></a><span class="k">         class</span><span class="p">(</span><span class="n">whm_pl</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! WHM massive body object</span>
 <a name="ln-234"></a>         <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
-<a name="ln-235"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-235"></a>         <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
 <a name="ln-236"></a>      <span class="k">end subroutine </span><span class="n">whm_util_append_pl</span>
 <a name="ln-237"></a>
 <a name="ln-238"></a>      <span class="k">module subroutine </span><span class="n">whm_util_spill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
diff --git a/docs/sourcefile/whm_coord.f90.html b/docs/sourcefile/whm_coord.f90.html
index 944c42e06..c3252e835 100644
--- a/docs/sourcefile/whm_coord.f90.html
+++ b/docs/sourcefile/whm_coord.f90.html
@@ -226,241 +226,246 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~whm_coord.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilewhm_coordf90EfferentGraph" width="641pt" height="183pt"
- viewBox="0.00 0.00 641.00 183.38" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 255.48)">
+<svg id="sourcefilewhm_coordf90EfferentGraph" width="641pt" height="207pt"
+ viewBox="0.00 0.00 641.00 207.10" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 289.05)">
 <title>sourcefile~~whm_coord.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-255.48 903,-255.48 903,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-289.05 903,-289.05 903,4 -4,4"/>
 <!-- sourcefile~whm_coord.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~whm_coord.f90</title>
-<polygon fill="none" stroke="black" points="899,-201 813,-201 813,-177 899,-177 899,-201"/>
-<text text-anchor="middle" x="856" y="-186.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_coord.f90</text>
+<polygon fill="none" stroke="black" points="899,-265 813,-265 813,-241 899,-241 899,-265"/>
+<text text-anchor="middle" x="856" y="-250.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_coord.f90</text>
 </g>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest.f90</title>
 <g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-181 711,-181 711,-157 777,-157 777,-181"/>
-<text text-anchor="middle" x="744" y="-166.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-226 711,-226 711,-202 777,-202 777,-226"/>
+<text text-anchor="middle" x="744" y="-211.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.79,-181.32C804.34,-179.79 795.48,-178.18 787.04,-176.64"/>
-<polygon fill="#000000" stroke="#000000" points="787.48,-173.17 777.02,-174.82 786.23,-180.05 787.48,-173.17"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M821.1,-240.98C810.26,-237.14 798.13,-232.84 786.8,-228.82"/>
+<polygon fill="#000000" stroke="#000000" points="787.69,-225.42 777.1,-225.38 785.35,-232.02 787.69,-225.42"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-180 299,-180 299,-156 393,-156 393,-180"/>
-<text text-anchor="middle" x="346" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-218 303.5,-218 303.5,-194 397.5,-194 397.5,-218"/>
+<text text-anchor="middle" x="350.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~whm_coord.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.77,-194.63C744.7,-202.97 606.49,-216.8 489.5,-209"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.7,-262.93C736.1,-278.93 570.36,-304.38 441,-260 421.83,-253.42 422.21,-242.71 405,-232 399.65,-228.67 393.81,-225.45 388.02,-222.48"/>
+<polygon fill="#000000" stroke="#000000" points="389.55,-219.33 379.03,-218.03 386.44,-225.6 389.55,-219.33"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-209C468.87,-207.76 425.31,-194.43 391.6,-183.3"/>
-<polygon fill="#000000" stroke="#000000" points="392.53,-179.92 381.93,-180.08 390.31,-186.56 392.53,-179.92"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C560.94,-164.46 551.09,-213.1 489.5,-209"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-246C453.18,-243.53 415.77,-231.82 388.9,-221.71"/>
+<polygon fill="#000000" stroke="#000000" points="390.08,-218.41 379.5,-218.07 387.56,-224.94 390.08,-218.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C563.4,-245.02 548.46,-250.25 489.5,-246"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-121 572,-121 572,-97 675,-97 675,-121"/>
-<text text-anchor="middle" x="623.5" y="-106.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-90 142,-90 142,-66 260,-66 260,-90"/>
+<text text-anchor="middle" x="201" y="-75.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M719.02,-156.86C701.35,-147.91 677.1,-135.64 657.59,-125.76"/>
-<polygon fill="#000000" stroke="#000000" points="658.95,-122.52 648.44,-121.12 655.79,-128.76 658.95,-122.52"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C406.31,-29.38 307.62,-48.06 250.09,-63.3"/>
+<polygon fill="#000000" stroke="#000000" points="248.92,-59.99 240.19,-66 250.76,-66.75 248.92,-59.99"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-104 143,-104 143,-80 250,-80 250,-104"/>
-<text text-anchor="middle" x="196.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-218 441.5,-218 441.5,-194 535.5,-194 535.5,-218"/>
+<text text-anchor="middle" x="488.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C558.98,-164.32 410.69,-89.35 347,-90"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C588.08,-245.43 550.69,-233.06 524.34,-222.22"/>
+<polygon fill="#000000" stroke="#000000" points="525.39,-218.86 514.82,-218.17 522.65,-225.31 525.39,-218.86"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-84 0,-84 0,-60 106,-60 106,-84"/>
-<text text-anchor="middle" x="53" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-250C398.02,-252.27 373.35,-254.58 287,-231 244.61,-219.42 238.69,-204.29 197.5,-189"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C453.18,-49.53 415.77,-37.82 388.9,-27.71"/>
+<polygon fill="#000000" stroke="#000000" points="390.08,-24.41 379.5,-24.07 387.56,-30.94 390.08,-24.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M732.9,-201.99C701.31,-165.83 599.94,-59.96 489.5,-52"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
 <g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-181 441,-181 441,-157 536,-157 536,-181"/>
-<text text-anchor="middle" x="488.5" y="-166.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-176 441,-176 441,-152 536,-152 536,-176"/>
+<text text-anchor="middle" x="488.5" y="-161.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge6" class="edge">
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C597.53,-167.16 569.84,-166.88 546.23,-167.17"/>
-<polygon fill="#000000" stroke="#000000" points="545.98,-163.67 536.03,-167.33 546.09,-170.67 545.98,-163.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C575.46,-245.22 576.84,-208.34 536,-185 533.32,-183.47 530.5,-181.96 527.64,-180.51"/>
+<polygon fill="#000000" stroke="#000000" points="528.98,-177.26 518.45,-176.05 525.92,-183.56 528.98,-177.26"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M715.79,-226C692.12,-235.3 656.67,-246.53 624.5,-246"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-101 441.5,-101 441.5,-77 535.5,-77 535.5,-101"/>
-<text text-anchor="middle" x="488.5" y="-86.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-178 147.5,-178 147.5,-154 254.5,-154 254.5,-178"/>
+<text text-anchor="middle" x="201" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C577.3,-165.67 575.01,-138.07 536,-115 531.12,-112.12 525.92,-109.12 520.82,-106.24"/>
-<polygon fill="#000000" stroke="#000000" points="522.29,-103.05 511.86,-101.21 518.87,-109.16 522.29,-103.05"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.76,-170.28C686.91,-170.91 653.63,-171.15 624.5,-169"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-246C427.21,-241.65 411.43,-253.88 351.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-246C300.24,-239.52 251.15,-206.17 223.87,-184.63"/>
+<polygon fill="#000000" stroke="#000000" points="225.78,-181.67 215.8,-178.1 221.37,-187.11 225.78,-181.67"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-24 142,-24 142,0 251,0 251,-24"/>
-<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-197 572,-197 572,-173 675,-173 675,-197"/>
+<text text-anchor="middle" x="623.5" y="-182.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.7,-156.89C724.61,-139.42 701.93,-107.16 675,-88 621.13,-49.67 600.58,-49.17 536,-35 442.01,-14.37 330.13,-10.7 261.47,-10.75"/>
-<polygon fill="#000000" stroke="#000000" points="261.24,-7.25 251.25,-10.79 261.26,-14.25 261.24,-7.25"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-206.15C702.49,-204.09 693.1,-201.79 683.72,-199.49"/>
+<polygon fill="#000000" stroke="#000000" points="684.52,-196.09 673.98,-197.11 682.86,-202.89 684.52,-196.09"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-222 287,-222 287,-198 405,-198 405,-222"/>
-<text text-anchor="middle" x="346" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~whm_coord.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-138 0,-138 0,-114 106,-114 106,-138"/>
+<text text-anchor="middle" x="53" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M722.96,-181.12C680.96,-205.22 580.07,-256.32 489.5,-250"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-250C450.31,-250.95 409.6,-237.67 381.62,-226.16"/>
-<polygon fill="#000000" stroke="#000000" points="382.86,-222.89 372.28,-222.19 380.12,-229.33 382.86,-222.89"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-246C284.5,-237.46 265.11,-263.75 202,-246"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge11" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M321.63,-155.96C296.96,-143.25 257.89,-123.12 230.18,-108.84"/>
-<polygon fill="#000000" stroke="#000000" points="231.74,-105.71 221.25,-104.24 228.54,-111.93 231.74,-105.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-194C289.86,-189.83 272.41,-185.1 256.31,-180.73"/>
+<polygon fill="#000000" stroke="#000000" points="257.05,-177.3 246.48,-178.06 255.21,-184.06 257.05,-177.3"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge11" class="edge">
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge12" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.91,-180.1C285.56,-190.91 236.98,-203.05 197.5,-189"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-90C317.19,-90.28 286.44,-90.69 260.24,-91.06"/>
-<polygon fill="#000000" stroke="#000000" points="260.01,-87.56 250.06,-91.2 260.11,-94.56 260.01,-87.56"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-49C423.02,-40.4 412.05,-89.34 347,-90"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.6,-96.81C579.98,-81.04 533.69,-54.89 489.5,-49"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-49C425.59,-40.75 409.35,-55.71 347,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-52C266.08,-47.31 175.19,-55.78 116.28,-63.1"/>
-<polygon fill="#000000" stroke="#000000" points="115.5,-59.67 106.02,-64.4 116.38,-66.62 115.5,-59.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-246C142.51,-229.83 92.96,-175.98 69.12,-146.22"/>
+<polygon fill="#000000" stroke="#000000" points="71.75,-143.89 62.83,-138.16 66.23,-148.2 71.75,-143.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.37,-218.09C283,-232 223.97,-252.18 202,-246"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.59,-121.14C575.49,-130.21 547.8,-142.7 525.75,-152.65"/>
-<polygon fill="#000000" stroke="#000000" points="524.05,-149.57 516.37,-156.88 526.93,-155.95 524.05,-149.57"/>
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.16,-90.11C144.07,-96.39 120.56,-104.12 100.25,-110.79"/>
+<polygon fill="#000000" stroke="#000000" points="98.98,-107.53 90.58,-113.97 101.17,-114.18 98.98,-107.53"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-101.38C563.29,-100.1 554.37,-98.76 545.69,-97.45"/>
-<polygon fill="#000000" stroke="#000000" points="546.06,-93.97 535.65,-95.94 545.02,-100.89 546.06,-93.97"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.46,-206C430.72,-206 419.16,-206 408.03,-206"/>
+<polygon fill="#000000" stroke="#000000" points="407.96,-202.5 397.96,-206 407.96,-209.5 407.96,-202.5"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-166C322.18,-160.25 291.38,-159.39 265.01,-160.31"/>
+<polygon fill="#000000" stroke="#000000" points="264.6,-156.83 254.77,-160.76 264.91,-163.82 264.6,-156.83"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-166C325.45,-160.94 319.73,-158.39 296,-152 254.14,-140.74 245.34,-126.87 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.1,-193.92C424.88,-185.05 386.18,-173.3 351.5,-166"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.81,-84.55C134.13,-83.33 125.07,-82.04 116.18,-80.79"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-77.32 106.26,-79.39 115.67,-84.25 116.65,-77.32"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.79,-16.94C252.6,-22.46 191.21,-33.88 142,-57 115.57,-69.42 89.83,-91.06 73.08,-106.8"/>
+<polygon fill="#000000" stroke="#000000" points="70.39,-104.53 65.62,-113.99 75.25,-109.57 70.39,-104.53"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.72,-168.67C428.74,-168.58 415.74,-168.49 403.34,-168.4"/>
-<polygon fill="#000000" stroke="#000000" points="403.13,-164.9 393.1,-168.33 403.08,-171.9 403.13,-164.9"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.53,-176.04C433.45,-180.69 416.02,-186.07 400.14,-190.98"/>
+<polygon fill="#000000" stroke="#000000" points="399,-187.67 390.48,-193.96 401.07,-194.36 399,-187.67"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge19" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-189C141.62,-169.82 93.75,-120.04 69.94,-91.99"/>
-<polygon fill="#000000" stroke="#000000" points="72.42,-89.5 63.34,-84.04 67.03,-93.97 72.42,-89.5"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M450.54,-156.94C436.45,-152.93 420.14,-148.98 405,-147 353,-140.19 338.19,-135.59 287,-147 244.11,-156.56 238.9,-203.74 197.5,-189"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.85,-101.17C442.17,-114.49 404.02,-135.94 377.35,-150.93"/>
-<polygon fill="#000000" stroke="#000000" points="375.44,-147.99 368.44,-155.95 378.87,-154.09 375.44,-147.99"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.3,-89.26C413.9,-89.43 378.47,-89.68 347,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.77,-154.11C384.43,-143.04 286.75,-126.57 202,-126"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M456.28,-76.96C428.19,-67.06 385.52,-54.29 347,-52"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-154C140.96,-149.83 123.7,-145.1 107.75,-140.73"/>
+<polygon fill="#000000" stroke="#000000" points="108.6,-137.33 98.03,-138.06 106.75,-144.08 108.6,-137.33"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.87,-24.14C145.29,-33.29 115.5,-45.92 91.94,-55.91"/>
-<polygon fill="#000000" stroke="#000000" points="90.43,-52.75 82.59,-59.88 93.16,-59.19 90.43,-52.75"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-193C563.29,-194.35 554.37,-195.76 545.69,-197.13"/>
+<polygon fill="#000000" stroke="#000000" points="544.99,-193.7 535.65,-198.71 546.08,-200.61 544.99,-193.7"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-177C563.4,-175.67 554.59,-174.28 546.02,-172.92"/>
+<polygon fill="#000000" stroke="#000000" points="546.51,-169.46 536.09,-171.36 545.42,-176.37 546.51,-169.46"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C304.67,-98.12 300.72,-119.55 260,-140 253.42,-143.3 246.34,-146.65 239.45,-149.79"/>
+<polygon fill="#000000" stroke="#000000" points="237.94,-146.63 230.26,-153.93 240.82,-153.02 237.94,-146.63"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_coord.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.98,-207.13C259.27,-204.41 226.01,-199.15 197.5,-189"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C283.1,-102.03 269.47,-127.35 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-172.81C564.8,-143.31 451.82,-71.83 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-126C172.48,-125.45 142.04,-125.36 116.11,-125.45"/>
+<polygon fill="#000000" stroke="#000000" points="116.02,-121.95 106.03,-125.49 116.05,-128.95 116.02,-121.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/whm_drift.f90.html b/docs/sourcefile/whm_drift.f90.html
index 50b2fe028..107bb37aa 100644
--- a/docs/sourcefile/whm_drift.f90.html
+++ b/docs/sourcefile/whm_drift.f90.html
@@ -226,241 +226,246 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~whm_drift.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilewhm_driftf90EfferentGraph" width="641pt" height="185pt"
- viewBox="0.00 0.00 641.00 185.22" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 255.48)">
+<svg id="sourcefilewhm_driftf90EfferentGraph" width="641pt" height="209pt"
+ viewBox="0.00 0.00 641.00 208.97" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 288.75)">
 <title>sourcefile~~whm_drift.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-255.48 894,-255.48 894,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-288.75 894,-288.75 894,4 -4,4"/>
 <!-- sourcefile~whm_drift.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~whm_drift.f90</title>
-<polygon fill="none" stroke="black" points="890,-201 813,-201 813,-177 890,-177 890,-201"/>
-<text text-anchor="middle" x="851.5" y="-186.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_drift.f90</text>
+<polygon fill="none" stroke="black" points="890,-265 813,-265 813,-241 890,-241 890,-265"/>
+<text text-anchor="middle" x="851.5" y="-250.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_drift.f90</text>
 </g>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest.f90</title>
 <g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-181 711,-181 711,-157 777,-157 777,-181"/>
-<text text-anchor="middle" x="744" y="-166.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-226 711,-226 711,-202 777,-202 777,-226"/>
+<text text-anchor="middle" x="744" y="-211.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.71,-181.84C804.47,-180.27 795.7,-178.61 787.3,-177.02"/>
-<polygon fill="#000000" stroke="#000000" points="787.77,-173.55 777.3,-175.12 786.47,-180.42 787.77,-173.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M817.99,-240.98C808.17,-237.35 797.25,-233.31 786.91,-229.49"/>
+<polygon fill="#000000" stroke="#000000" points="787.82,-226.1 777.23,-225.91 785.39,-232.66 787.82,-226.1"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-180 299,-180 299,-156 393,-156 393,-180"/>
-<text text-anchor="middle" x="346" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-218 303.5,-218 303.5,-194 397.5,-194 397.5,-218"/>
+<text text-anchor="middle" x="350.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~whm_drift.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.8,-194.11C747.11,-202.34 607.4,-216.86 489.5,-209"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.75,-261.97C738.93,-277.73 571.31,-304.71 441,-260 421.83,-253.42 422.21,-242.71 405,-232 399.65,-228.67 393.81,-225.45 388.02,-222.48"/>
+<polygon fill="#000000" stroke="#000000" points="389.55,-219.33 379.03,-218.03 386.44,-225.6 389.55,-219.33"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-209C468.87,-207.76 425.31,-194.43 391.6,-183.3"/>
-<polygon fill="#000000" stroke="#000000" points="392.53,-179.92 381.93,-180.08 390.31,-186.56 392.53,-179.92"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C560.94,-164.46 551.09,-213.1 489.5,-209"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-246C453.18,-243.53 415.77,-231.82 388.9,-221.71"/>
+<polygon fill="#000000" stroke="#000000" points="390.08,-218.41 379.5,-218.07 387.56,-224.94 390.08,-218.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C563.4,-245.02 548.46,-250.25 489.5,-246"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-121 572,-121 572,-97 675,-97 675,-121"/>
-<text text-anchor="middle" x="623.5" y="-106.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-90 142,-90 142,-66 260,-66 260,-90"/>
+<text text-anchor="middle" x="201" y="-75.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M719.02,-156.86C701.35,-147.91 677.1,-135.64 657.59,-125.76"/>
-<polygon fill="#000000" stroke="#000000" points="658.95,-122.52 648.44,-121.12 655.79,-128.76 658.95,-122.52"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C406.31,-29.38 307.62,-48.06 250.09,-63.3"/>
+<polygon fill="#000000" stroke="#000000" points="248.92,-59.99 240.19,-66 250.76,-66.75 248.92,-59.99"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-104 143,-104 143,-80 250,-80 250,-104"/>
-<text text-anchor="middle" x="196.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-218 441.5,-218 441.5,-194 535.5,-194 535.5,-218"/>
+<text text-anchor="middle" x="488.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C558.98,-164.32 410.69,-89.35 347,-90"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C588.08,-245.43 550.69,-233.06 524.34,-222.22"/>
+<polygon fill="#000000" stroke="#000000" points="525.39,-218.86 514.82,-218.17 522.65,-225.31 525.39,-218.86"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-84 0,-84 0,-60 106,-60 106,-84"/>
-<text text-anchor="middle" x="53" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-250C398.02,-252.27 373.35,-254.58 287,-231 244.61,-219.42 238.69,-204.29 197.5,-189"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C453.18,-49.53 415.77,-37.82 388.9,-27.71"/>
+<polygon fill="#000000" stroke="#000000" points="390.08,-24.41 379.5,-24.07 387.56,-30.94 390.08,-24.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M732.9,-201.99C701.31,-165.83 599.94,-59.96 489.5,-52"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
 <g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-181 441,-181 441,-157 536,-157 536,-181"/>
-<text text-anchor="middle" x="488.5" y="-166.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-176 441,-176 441,-152 536,-152 536,-176"/>
+<text text-anchor="middle" x="488.5" y="-161.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge6" class="edge">
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C597.53,-167.16 569.84,-166.88 546.23,-167.17"/>
-<polygon fill="#000000" stroke="#000000" points="545.98,-163.67 536.03,-167.33 546.09,-170.67 545.98,-163.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C575.46,-245.22 576.84,-208.34 536,-185 533.32,-183.47 530.5,-181.96 527.64,-180.51"/>
+<polygon fill="#000000" stroke="#000000" points="528.98,-177.26 518.45,-176.05 525.92,-183.56 528.98,-177.26"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M715.79,-226C692.12,-235.3 656.67,-246.53 624.5,-246"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-101 441.5,-101 441.5,-77 535.5,-77 535.5,-101"/>
-<text text-anchor="middle" x="488.5" y="-86.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-178 147.5,-178 147.5,-154 254.5,-154 254.5,-178"/>
+<text text-anchor="middle" x="201" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C577.3,-165.67 575.01,-138.07 536,-115 531.12,-112.12 525.92,-109.12 520.82,-106.24"/>
-<polygon fill="#000000" stroke="#000000" points="522.29,-103.05 511.86,-101.21 518.87,-109.16 522.29,-103.05"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.76,-170.28C686.91,-170.91 653.63,-171.15 624.5,-169"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-246C427.21,-241.65 411.43,-253.88 351.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-246C300.24,-239.52 251.15,-206.17 223.87,-184.63"/>
+<polygon fill="#000000" stroke="#000000" points="225.78,-181.67 215.8,-178.1 221.37,-187.11 225.78,-181.67"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-24 142,-24 142,0 251,0 251,-24"/>
-<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-197 572,-197 572,-173 675,-173 675,-197"/>
+<text text-anchor="middle" x="623.5" y="-182.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.7,-156.89C724.61,-139.42 701.93,-107.16 675,-88 621.13,-49.67 600.58,-49.17 536,-35 442.01,-14.37 330.13,-10.7 261.47,-10.75"/>
-<polygon fill="#000000" stroke="#000000" points="261.24,-7.25 251.25,-10.79 261.26,-14.25 261.24,-7.25"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-206.15C702.49,-204.09 693.1,-201.79 683.72,-199.49"/>
+<polygon fill="#000000" stroke="#000000" points="684.52,-196.09 673.98,-197.11 682.86,-202.89 684.52,-196.09"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-222 287,-222 287,-198 405,-198 405,-222"/>
-<text text-anchor="middle" x="346" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~whm_drift.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-138 0,-138 0,-114 106,-114 106,-138"/>
+<text text-anchor="middle" x="53" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M722.96,-181.12C680.96,-205.22 580.07,-256.32 489.5,-250"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-250C450.31,-250.95 409.6,-237.67 381.62,-226.16"/>
-<polygon fill="#000000" stroke="#000000" points="382.86,-222.89 372.28,-222.19 380.12,-229.33 382.86,-222.89"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-246C284.5,-237.46 265.11,-263.75 202,-246"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge11" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M321.63,-155.96C296.96,-143.25 257.89,-123.12 230.18,-108.84"/>
-<polygon fill="#000000" stroke="#000000" points="231.74,-105.71 221.25,-104.24 228.54,-111.93 231.74,-105.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-194C289.86,-189.83 272.41,-185.1 256.31,-180.73"/>
+<polygon fill="#000000" stroke="#000000" points="257.05,-177.3 246.48,-178.06 255.21,-184.06 257.05,-177.3"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge11" class="edge">
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge12" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.91,-180.1C285.56,-190.91 236.98,-203.05 197.5,-189"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-90C317.19,-90.28 286.44,-90.69 260.24,-91.06"/>
-<polygon fill="#000000" stroke="#000000" points="260.01,-87.56 250.06,-91.2 260.11,-94.56 260.01,-87.56"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-49C423.02,-40.4 412.05,-89.34 347,-90"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.6,-96.81C579.98,-81.04 533.69,-54.89 489.5,-49"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-49C425.59,-40.75 409.35,-55.71 347,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-52C266.08,-47.31 175.19,-55.78 116.28,-63.1"/>
-<polygon fill="#000000" stroke="#000000" points="115.5,-59.67 106.02,-64.4 116.38,-66.62 115.5,-59.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-246C142.51,-229.83 92.96,-175.98 69.12,-146.22"/>
+<polygon fill="#000000" stroke="#000000" points="71.75,-143.89 62.83,-138.16 66.23,-148.2 71.75,-143.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.37,-218.09C283,-232 223.97,-252.18 202,-246"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.59,-121.14C575.49,-130.21 547.8,-142.7 525.75,-152.65"/>
-<polygon fill="#000000" stroke="#000000" points="524.05,-149.57 516.37,-156.88 526.93,-155.95 524.05,-149.57"/>
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.16,-90.11C144.07,-96.39 120.56,-104.12 100.25,-110.79"/>
+<polygon fill="#000000" stroke="#000000" points="98.98,-107.53 90.58,-113.97 101.17,-114.18 98.98,-107.53"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-101.38C563.29,-100.1 554.37,-98.76 545.69,-97.45"/>
-<polygon fill="#000000" stroke="#000000" points="546.06,-93.97 535.65,-95.94 545.02,-100.89 546.06,-93.97"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.46,-206C430.72,-206 419.16,-206 408.03,-206"/>
+<polygon fill="#000000" stroke="#000000" points="407.96,-202.5 397.96,-206 407.96,-209.5 407.96,-202.5"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-166C322.18,-160.25 291.38,-159.39 265.01,-160.31"/>
+<polygon fill="#000000" stroke="#000000" points="264.6,-156.83 254.77,-160.76 264.91,-163.82 264.6,-156.83"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-166C325.45,-160.94 319.73,-158.39 296,-152 254.14,-140.74 245.34,-126.87 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.1,-193.92C424.88,-185.05 386.18,-173.3 351.5,-166"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.81,-84.55C134.13,-83.33 125.07,-82.04 116.18,-80.79"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-77.32 106.26,-79.39 115.67,-84.25 116.65,-77.32"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.79,-16.94C252.6,-22.46 191.21,-33.88 142,-57 115.57,-69.42 89.83,-91.06 73.08,-106.8"/>
+<polygon fill="#000000" stroke="#000000" points="70.39,-104.53 65.62,-113.99 75.25,-109.57 70.39,-104.53"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.72,-168.67C428.74,-168.58 415.74,-168.49 403.34,-168.4"/>
-<polygon fill="#000000" stroke="#000000" points="403.13,-164.9 393.1,-168.33 403.08,-171.9 403.13,-164.9"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.53,-176.04C433.45,-180.69 416.02,-186.07 400.14,-190.98"/>
+<polygon fill="#000000" stroke="#000000" points="399,-187.67 390.48,-193.96 401.07,-194.36 399,-187.67"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge19" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-189C141.62,-169.82 93.75,-120.04 69.94,-91.99"/>
-<polygon fill="#000000" stroke="#000000" points="72.42,-89.5 63.34,-84.04 67.03,-93.97 72.42,-89.5"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M450.54,-156.94C436.45,-152.93 420.14,-148.98 405,-147 353,-140.19 338.19,-135.59 287,-147 244.11,-156.56 238.9,-203.74 197.5,-189"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.85,-101.17C442.17,-114.49 404.02,-135.94 377.35,-150.93"/>
-<polygon fill="#000000" stroke="#000000" points="375.44,-147.99 368.44,-155.95 378.87,-154.09 375.44,-147.99"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.3,-89.26C413.9,-89.43 378.47,-89.68 347,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.77,-154.11C384.43,-143.04 286.75,-126.57 202,-126"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M456.28,-76.96C428.19,-67.06 385.52,-54.29 347,-52"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-154C140.96,-149.83 123.7,-145.1 107.75,-140.73"/>
+<polygon fill="#000000" stroke="#000000" points="108.6,-137.33 98.03,-138.06 106.75,-144.08 108.6,-137.33"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.87,-24.14C145.29,-33.29 115.5,-45.92 91.94,-55.91"/>
-<polygon fill="#000000" stroke="#000000" points="90.43,-52.75 82.59,-59.88 93.16,-59.19 90.43,-52.75"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-193C563.29,-194.35 554.37,-195.76 545.69,-197.13"/>
+<polygon fill="#000000" stroke="#000000" points="544.99,-193.7 535.65,-198.71 546.08,-200.61 544.99,-193.7"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-177C563.4,-175.67 554.59,-174.28 546.02,-172.92"/>
+<polygon fill="#000000" stroke="#000000" points="546.51,-169.46 536.09,-171.36 545.42,-176.37 546.51,-169.46"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C304.67,-98.12 300.72,-119.55 260,-140 253.42,-143.3 246.34,-146.65 239.45,-149.79"/>
+<polygon fill="#000000" stroke="#000000" points="237.94,-146.63 230.26,-153.93 240.82,-153.02 237.94,-146.63"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_drift.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.98,-207.13C259.27,-204.41 226.01,-199.15 197.5,-189"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C283.1,-102.03 269.47,-127.35 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-172.81C564.8,-143.31 451.82,-71.83 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-126C172.48,-125.45 142.04,-125.36 116.11,-125.45"/>
+<polygon fill="#000000" stroke="#000000" points="116.02,-121.95 106.03,-125.49 116.05,-128.95 116.02,-121.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/whm_gr.f90.html b/docs/sourcefile/whm_gr.f90.html
index e9f85c91c..22a84276e 100644
--- a/docs/sourcefile/whm_gr.f90.html
+++ b/docs/sourcefile/whm_gr.f90.html
@@ -226,241 +226,246 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~whm_gr.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilewhm_grf90EfferentGraph" width="641pt" height="187pt"
- viewBox="0.00 0.00 641.00 187.09" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 255.48)">
+<svg id="sourcefilewhm_grf90EfferentGraph" width="641pt" height="211pt"
+ viewBox="0.00 0.00 641.00 210.86" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 288.44)">
 <title>sourcefile~~whm_gr.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-255.48 885,-255.48 885,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-288.44 885,-288.44 885,4 -4,4"/>
 <!-- sourcefile~whm_gr.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~whm_gr.f90</title>
-<polygon fill="none" stroke="black" points="881,-201 813,-201 813,-177 881,-177 881,-201"/>
-<text text-anchor="middle" x="847" y="-186.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_gr.f90</text>
+<polygon fill="none" stroke="black" points="881,-265 813,-265 813,-241 881,-241 881,-265"/>
+<text text-anchor="middle" x="847" y="-250.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_gr.f90</text>
 </g>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest.f90</title>
 <g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-181 711,-181 711,-157 777,-157 777,-181"/>
-<text text-anchor="middle" x="744" y="-166.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-226 711,-226 711,-202 777,-202 777,-226"/>
+<text text-anchor="middle" x="744" y="-211.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.93,-182.45C804.66,-180.81 795.68,-179.04 787.04,-177.32"/>
-<polygon fill="#000000" stroke="#000000" points="787.6,-173.87 777.11,-175.36 786.24,-180.73 787.6,-173.87"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M814.87,-240.98C805.66,-237.42 795.43,-233.47 785.7,-229.72"/>
+<polygon fill="#000000" stroke="#000000" points="786.79,-226.38 776.2,-226.05 784.27,-232.91 786.79,-226.38"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-180 299,-180 299,-156 393,-156 393,-180"/>
-<text text-anchor="middle" x="346" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-218 303.5,-218 303.5,-194 397.5,-194 397.5,-218"/>
+<text text-anchor="middle" x="350.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~whm_gr.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.56,-193.61C749.41,-201.71 608.26,-216.91 489.5,-209"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.8,-260.99C742.09,-276.43 572.37,-305.07 441,-260 421.83,-253.42 422.21,-242.71 405,-232 399.65,-228.67 393.81,-225.45 388.02,-222.48"/>
+<polygon fill="#000000" stroke="#000000" points="389.55,-219.33 379.03,-218.03 386.44,-225.6 389.55,-219.33"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-209C468.87,-207.76 425.31,-194.43 391.6,-183.3"/>
-<polygon fill="#000000" stroke="#000000" points="392.53,-179.92 381.93,-180.08 390.31,-186.56 392.53,-179.92"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C560.94,-164.46 551.09,-213.1 489.5,-209"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-246C453.18,-243.53 415.77,-231.82 388.9,-221.71"/>
+<polygon fill="#000000" stroke="#000000" points="390.08,-218.41 379.5,-218.07 387.56,-224.94 390.08,-218.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C563.4,-245.02 548.46,-250.25 489.5,-246"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-121 572,-121 572,-97 675,-97 675,-121"/>
-<text text-anchor="middle" x="623.5" y="-106.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-90 142,-90 142,-66 260,-66 260,-90"/>
+<text text-anchor="middle" x="201" y="-75.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M719.02,-156.86C701.35,-147.91 677.1,-135.64 657.59,-125.76"/>
-<polygon fill="#000000" stroke="#000000" points="658.95,-122.52 648.44,-121.12 655.79,-128.76 658.95,-122.52"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C406.31,-29.38 307.62,-48.06 250.09,-63.3"/>
+<polygon fill="#000000" stroke="#000000" points="248.92,-59.99 240.19,-66 250.76,-66.75 248.92,-59.99"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-104 143,-104 143,-80 250,-80 250,-104"/>
-<text text-anchor="middle" x="196.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-218 441.5,-218 441.5,-194 535.5,-194 535.5,-218"/>
+<text text-anchor="middle" x="488.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C558.98,-164.32 410.69,-89.35 347,-90"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C588.08,-245.43 550.69,-233.06 524.34,-222.22"/>
+<polygon fill="#000000" stroke="#000000" points="525.39,-218.86 514.82,-218.17 522.65,-225.31 525.39,-218.86"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-84 0,-84 0,-60 106,-60 106,-84"/>
-<text text-anchor="middle" x="53" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-250C398.02,-252.27 373.35,-254.58 287,-231 244.61,-219.42 238.69,-204.29 197.5,-189"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C453.18,-49.53 415.77,-37.82 388.9,-27.71"/>
+<polygon fill="#000000" stroke="#000000" points="390.08,-24.41 379.5,-24.07 387.56,-30.94 390.08,-24.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M732.9,-201.99C701.31,-165.83 599.94,-59.96 489.5,-52"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
 <g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-181 441,-181 441,-157 536,-157 536,-181"/>
-<text text-anchor="middle" x="488.5" y="-166.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-176 441,-176 441,-152 536,-152 536,-176"/>
+<text text-anchor="middle" x="488.5" y="-161.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge6" class="edge">
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C597.53,-167.16 569.84,-166.88 546.23,-167.17"/>
-<polygon fill="#000000" stroke="#000000" points="545.98,-163.67 536.03,-167.33 546.09,-170.67 545.98,-163.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C575.46,-245.22 576.84,-208.34 536,-185 533.32,-183.47 530.5,-181.96 527.64,-180.51"/>
+<polygon fill="#000000" stroke="#000000" points="528.98,-177.26 518.45,-176.05 525.92,-183.56 528.98,-177.26"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M715.79,-226C692.12,-235.3 656.67,-246.53 624.5,-246"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-101 441.5,-101 441.5,-77 535.5,-77 535.5,-101"/>
-<text text-anchor="middle" x="488.5" y="-86.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-178 147.5,-178 147.5,-154 254.5,-154 254.5,-178"/>
+<text text-anchor="middle" x="201" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C577.3,-165.67 575.01,-138.07 536,-115 531.12,-112.12 525.92,-109.12 520.82,-106.24"/>
-<polygon fill="#000000" stroke="#000000" points="522.29,-103.05 511.86,-101.21 518.87,-109.16 522.29,-103.05"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.76,-170.28C686.91,-170.91 653.63,-171.15 624.5,-169"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-246C427.21,-241.65 411.43,-253.88 351.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-246C300.24,-239.52 251.15,-206.17 223.87,-184.63"/>
+<polygon fill="#000000" stroke="#000000" points="225.78,-181.67 215.8,-178.1 221.37,-187.11 225.78,-181.67"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-24 142,-24 142,0 251,0 251,-24"/>
-<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-197 572,-197 572,-173 675,-173 675,-197"/>
+<text text-anchor="middle" x="623.5" y="-182.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.7,-156.89C724.61,-139.42 701.93,-107.16 675,-88 621.13,-49.67 600.58,-49.17 536,-35 442.01,-14.37 330.13,-10.7 261.47,-10.75"/>
-<polygon fill="#000000" stroke="#000000" points="261.24,-7.25 251.25,-10.79 261.26,-14.25 261.24,-7.25"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-206.15C702.49,-204.09 693.1,-201.79 683.72,-199.49"/>
+<polygon fill="#000000" stroke="#000000" points="684.52,-196.09 673.98,-197.11 682.86,-202.89 684.52,-196.09"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-222 287,-222 287,-198 405,-198 405,-222"/>
-<text text-anchor="middle" x="346" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~whm_gr.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-138 0,-138 0,-114 106,-114 106,-138"/>
+<text text-anchor="middle" x="53" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M722.96,-181.12C680.96,-205.22 580.07,-256.32 489.5,-250"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-250C450.31,-250.95 409.6,-237.67 381.62,-226.16"/>
-<polygon fill="#000000" stroke="#000000" points="382.86,-222.89 372.28,-222.19 380.12,-229.33 382.86,-222.89"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-246C284.5,-237.46 265.11,-263.75 202,-246"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge11" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M321.63,-155.96C296.96,-143.25 257.89,-123.12 230.18,-108.84"/>
-<polygon fill="#000000" stroke="#000000" points="231.74,-105.71 221.25,-104.24 228.54,-111.93 231.74,-105.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-194C289.86,-189.83 272.41,-185.1 256.31,-180.73"/>
+<polygon fill="#000000" stroke="#000000" points="257.05,-177.3 246.48,-178.06 255.21,-184.06 257.05,-177.3"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge11" class="edge">
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge12" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.91,-180.1C285.56,-190.91 236.98,-203.05 197.5,-189"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-90C317.19,-90.28 286.44,-90.69 260.24,-91.06"/>
-<polygon fill="#000000" stroke="#000000" points="260.01,-87.56 250.06,-91.2 260.11,-94.56 260.01,-87.56"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-49C423.02,-40.4 412.05,-89.34 347,-90"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.6,-96.81C579.98,-81.04 533.69,-54.89 489.5,-49"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-49C425.59,-40.75 409.35,-55.71 347,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-52C266.08,-47.31 175.19,-55.78 116.28,-63.1"/>
-<polygon fill="#000000" stroke="#000000" points="115.5,-59.67 106.02,-64.4 116.38,-66.62 115.5,-59.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-246C142.51,-229.83 92.96,-175.98 69.12,-146.22"/>
+<polygon fill="#000000" stroke="#000000" points="71.75,-143.89 62.83,-138.16 66.23,-148.2 71.75,-143.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.37,-218.09C283,-232 223.97,-252.18 202,-246"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.59,-121.14C575.49,-130.21 547.8,-142.7 525.75,-152.65"/>
-<polygon fill="#000000" stroke="#000000" points="524.05,-149.57 516.37,-156.88 526.93,-155.95 524.05,-149.57"/>
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.16,-90.11C144.07,-96.39 120.56,-104.12 100.25,-110.79"/>
+<polygon fill="#000000" stroke="#000000" points="98.98,-107.53 90.58,-113.97 101.17,-114.18 98.98,-107.53"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-101.38C563.29,-100.1 554.37,-98.76 545.69,-97.45"/>
-<polygon fill="#000000" stroke="#000000" points="546.06,-93.97 535.65,-95.94 545.02,-100.89 546.06,-93.97"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.46,-206C430.72,-206 419.16,-206 408.03,-206"/>
+<polygon fill="#000000" stroke="#000000" points="407.96,-202.5 397.96,-206 407.96,-209.5 407.96,-202.5"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-166C322.18,-160.25 291.38,-159.39 265.01,-160.31"/>
+<polygon fill="#000000" stroke="#000000" points="264.6,-156.83 254.77,-160.76 264.91,-163.82 264.6,-156.83"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-166C325.45,-160.94 319.73,-158.39 296,-152 254.14,-140.74 245.34,-126.87 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.1,-193.92C424.88,-185.05 386.18,-173.3 351.5,-166"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.81,-84.55C134.13,-83.33 125.07,-82.04 116.18,-80.79"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-77.32 106.26,-79.39 115.67,-84.25 116.65,-77.32"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.79,-16.94C252.6,-22.46 191.21,-33.88 142,-57 115.57,-69.42 89.83,-91.06 73.08,-106.8"/>
+<polygon fill="#000000" stroke="#000000" points="70.39,-104.53 65.62,-113.99 75.25,-109.57 70.39,-104.53"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.72,-168.67C428.74,-168.58 415.74,-168.49 403.34,-168.4"/>
-<polygon fill="#000000" stroke="#000000" points="403.13,-164.9 393.1,-168.33 403.08,-171.9 403.13,-164.9"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.53,-176.04C433.45,-180.69 416.02,-186.07 400.14,-190.98"/>
+<polygon fill="#000000" stroke="#000000" points="399,-187.67 390.48,-193.96 401.07,-194.36 399,-187.67"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge19" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-189C141.62,-169.82 93.75,-120.04 69.94,-91.99"/>
-<polygon fill="#000000" stroke="#000000" points="72.42,-89.5 63.34,-84.04 67.03,-93.97 72.42,-89.5"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M450.54,-156.94C436.45,-152.93 420.14,-148.98 405,-147 353,-140.19 338.19,-135.59 287,-147 244.11,-156.56 238.9,-203.74 197.5,-189"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.85,-101.17C442.17,-114.49 404.02,-135.94 377.35,-150.93"/>
-<polygon fill="#000000" stroke="#000000" points="375.44,-147.99 368.44,-155.95 378.87,-154.09 375.44,-147.99"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.3,-89.26C413.9,-89.43 378.47,-89.68 347,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.77,-154.11C384.43,-143.04 286.75,-126.57 202,-126"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M456.28,-76.96C428.19,-67.06 385.52,-54.29 347,-52"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-154C140.96,-149.83 123.7,-145.1 107.75,-140.73"/>
+<polygon fill="#000000" stroke="#000000" points="108.6,-137.33 98.03,-138.06 106.75,-144.08 108.6,-137.33"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.87,-24.14C145.29,-33.29 115.5,-45.92 91.94,-55.91"/>
-<polygon fill="#000000" stroke="#000000" points="90.43,-52.75 82.59,-59.88 93.16,-59.19 90.43,-52.75"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-193C563.29,-194.35 554.37,-195.76 545.69,-197.13"/>
+<polygon fill="#000000" stroke="#000000" points="544.99,-193.7 535.65,-198.71 546.08,-200.61 544.99,-193.7"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-177C563.4,-175.67 554.59,-174.28 546.02,-172.92"/>
+<polygon fill="#000000" stroke="#000000" points="546.51,-169.46 536.09,-171.36 545.42,-176.37 546.51,-169.46"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C304.67,-98.12 300.72,-119.55 260,-140 253.42,-143.3 246.34,-146.65 239.45,-149.79"/>
+<polygon fill="#000000" stroke="#000000" points="237.94,-146.63 230.26,-153.93 240.82,-153.02 237.94,-146.63"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_gr.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.98,-207.13C259.27,-204.41 226.01,-199.15 197.5,-189"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C283.1,-102.03 269.47,-127.35 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-172.81C564.8,-143.31 451.82,-71.83 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-126C172.48,-125.45 142.04,-125.36 116.11,-125.45"/>
+<polygon fill="#000000" stroke="#000000" points="116.02,-121.95 106.03,-125.49 116.05,-128.95 116.02,-121.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/whm_kick.f90.html b/docs/sourcefile/whm_kick.f90.html
index 74104f589..8e90a0124 100644
--- a/docs/sourcefile/whm_kick.f90.html
+++ b/docs/sourcefile/whm_kick.f90.html
@@ -226,241 +226,246 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~whm_kick.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilewhm_kickf90EfferentGraph" width="641pt" height="185pt"
- viewBox="0.00 0.00 641.00 185.22" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 255.48)">
+<svg id="sourcefilewhm_kickf90EfferentGraph" width="641pt" height="209pt"
+ viewBox="0.00 0.00 641.00 208.97" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 288.75)">
 <title>sourcefile~~whm_kick.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-255.48 894,-255.48 894,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-288.75 894,-288.75 894,4 -4,4"/>
 <!-- sourcefile~whm_kick.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~whm_kick.f90</title>
-<polygon fill="none" stroke="black" points="890,-201 813,-201 813,-177 890,-177 890,-201"/>
-<text text-anchor="middle" x="851.5" y="-186.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_kick.f90</text>
+<polygon fill="none" stroke="black" points="890,-265 813,-265 813,-241 890,-241 890,-265"/>
+<text text-anchor="middle" x="851.5" y="-250.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_kick.f90</text>
 </g>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest.f90</title>
 <g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-181 711,-181 711,-157 777,-157 777,-181"/>
-<text text-anchor="middle" x="744" y="-166.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-226 711,-226 711,-202 777,-202 777,-226"/>
+<text text-anchor="middle" x="744" y="-211.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.71,-181.84C804.47,-180.27 795.7,-178.61 787.3,-177.02"/>
-<polygon fill="#000000" stroke="#000000" points="787.77,-173.55 777.3,-175.12 786.47,-180.42 787.77,-173.55"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M817.99,-240.98C808.17,-237.35 797.25,-233.31 786.91,-229.49"/>
+<polygon fill="#000000" stroke="#000000" points="787.82,-226.1 777.23,-225.91 785.39,-232.66 787.82,-226.1"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-180 299,-180 299,-156 393,-156 393,-180"/>
-<text text-anchor="middle" x="346" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-218 303.5,-218 303.5,-194 397.5,-194 397.5,-218"/>
+<text text-anchor="middle" x="350.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~whm_kick.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.8,-194.11C747.11,-202.34 607.4,-216.86 489.5,-209"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.75,-261.97C738.93,-277.73 571.31,-304.71 441,-260 421.83,-253.42 422.21,-242.71 405,-232 399.65,-228.67 393.81,-225.45 388.02,-222.48"/>
+<polygon fill="#000000" stroke="#000000" points="389.55,-219.33 379.03,-218.03 386.44,-225.6 389.55,-219.33"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-209C468.87,-207.76 425.31,-194.43 391.6,-183.3"/>
-<polygon fill="#000000" stroke="#000000" points="392.53,-179.92 381.93,-180.08 390.31,-186.56 392.53,-179.92"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C560.94,-164.46 551.09,-213.1 489.5,-209"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-246C453.18,-243.53 415.77,-231.82 388.9,-221.71"/>
+<polygon fill="#000000" stroke="#000000" points="390.08,-218.41 379.5,-218.07 387.56,-224.94 390.08,-218.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C563.4,-245.02 548.46,-250.25 489.5,-246"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-121 572,-121 572,-97 675,-97 675,-121"/>
-<text text-anchor="middle" x="623.5" y="-106.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-90 142,-90 142,-66 260,-66 260,-90"/>
+<text text-anchor="middle" x="201" y="-75.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M719.02,-156.86C701.35,-147.91 677.1,-135.64 657.59,-125.76"/>
-<polygon fill="#000000" stroke="#000000" points="658.95,-122.52 648.44,-121.12 655.79,-128.76 658.95,-122.52"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C406.31,-29.38 307.62,-48.06 250.09,-63.3"/>
+<polygon fill="#000000" stroke="#000000" points="248.92,-59.99 240.19,-66 250.76,-66.75 248.92,-59.99"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-104 143,-104 143,-80 250,-80 250,-104"/>
-<text text-anchor="middle" x="196.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-218 441.5,-218 441.5,-194 535.5,-194 535.5,-218"/>
+<text text-anchor="middle" x="488.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C558.98,-164.32 410.69,-89.35 347,-90"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C588.08,-245.43 550.69,-233.06 524.34,-222.22"/>
+<polygon fill="#000000" stroke="#000000" points="525.39,-218.86 514.82,-218.17 522.65,-225.31 525.39,-218.86"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-84 0,-84 0,-60 106,-60 106,-84"/>
-<text text-anchor="middle" x="53" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-250C398.02,-252.27 373.35,-254.58 287,-231 244.61,-219.42 238.69,-204.29 197.5,-189"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C453.18,-49.53 415.77,-37.82 388.9,-27.71"/>
+<polygon fill="#000000" stroke="#000000" points="390.08,-24.41 379.5,-24.07 387.56,-30.94 390.08,-24.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M732.9,-201.99C701.31,-165.83 599.94,-59.96 489.5,-52"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
 <g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-181 441,-181 441,-157 536,-157 536,-181"/>
-<text text-anchor="middle" x="488.5" y="-166.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-176 441,-176 441,-152 536,-152 536,-176"/>
+<text text-anchor="middle" x="488.5" y="-161.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge6" class="edge">
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C597.53,-167.16 569.84,-166.88 546.23,-167.17"/>
-<polygon fill="#000000" stroke="#000000" points="545.98,-163.67 536.03,-167.33 546.09,-170.67 545.98,-163.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C575.46,-245.22 576.84,-208.34 536,-185 533.32,-183.47 530.5,-181.96 527.64,-180.51"/>
+<polygon fill="#000000" stroke="#000000" points="528.98,-177.26 518.45,-176.05 525.92,-183.56 528.98,-177.26"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M715.79,-226C692.12,-235.3 656.67,-246.53 624.5,-246"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-101 441.5,-101 441.5,-77 535.5,-77 535.5,-101"/>
-<text text-anchor="middle" x="488.5" y="-86.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-178 147.5,-178 147.5,-154 254.5,-154 254.5,-178"/>
+<text text-anchor="middle" x="201" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C577.3,-165.67 575.01,-138.07 536,-115 531.12,-112.12 525.92,-109.12 520.82,-106.24"/>
-<polygon fill="#000000" stroke="#000000" points="522.29,-103.05 511.86,-101.21 518.87,-109.16 522.29,-103.05"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.76,-170.28C686.91,-170.91 653.63,-171.15 624.5,-169"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-246C427.21,-241.65 411.43,-253.88 351.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-246C300.24,-239.52 251.15,-206.17 223.87,-184.63"/>
+<polygon fill="#000000" stroke="#000000" points="225.78,-181.67 215.8,-178.1 221.37,-187.11 225.78,-181.67"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-24 142,-24 142,0 251,0 251,-24"/>
-<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-197 572,-197 572,-173 675,-173 675,-197"/>
+<text text-anchor="middle" x="623.5" y="-182.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.7,-156.89C724.61,-139.42 701.93,-107.16 675,-88 621.13,-49.67 600.58,-49.17 536,-35 442.01,-14.37 330.13,-10.7 261.47,-10.75"/>
-<polygon fill="#000000" stroke="#000000" points="261.24,-7.25 251.25,-10.79 261.26,-14.25 261.24,-7.25"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-206.15C702.49,-204.09 693.1,-201.79 683.72,-199.49"/>
+<polygon fill="#000000" stroke="#000000" points="684.52,-196.09 673.98,-197.11 682.86,-202.89 684.52,-196.09"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-222 287,-222 287,-198 405,-198 405,-222"/>
-<text text-anchor="middle" x="346" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~whm_kick.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-138 0,-138 0,-114 106,-114 106,-138"/>
+<text text-anchor="middle" x="53" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M722.96,-181.12C680.96,-205.22 580.07,-256.32 489.5,-250"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-250C450.31,-250.95 409.6,-237.67 381.62,-226.16"/>
-<polygon fill="#000000" stroke="#000000" points="382.86,-222.89 372.28,-222.19 380.12,-229.33 382.86,-222.89"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-246C284.5,-237.46 265.11,-263.75 202,-246"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge11" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M321.63,-155.96C296.96,-143.25 257.89,-123.12 230.18,-108.84"/>
-<polygon fill="#000000" stroke="#000000" points="231.74,-105.71 221.25,-104.24 228.54,-111.93 231.74,-105.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-194C289.86,-189.83 272.41,-185.1 256.31,-180.73"/>
+<polygon fill="#000000" stroke="#000000" points="257.05,-177.3 246.48,-178.06 255.21,-184.06 257.05,-177.3"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge11" class="edge">
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge12" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.91,-180.1C285.56,-190.91 236.98,-203.05 197.5,-189"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-90C317.19,-90.28 286.44,-90.69 260.24,-91.06"/>
-<polygon fill="#000000" stroke="#000000" points="260.01,-87.56 250.06,-91.2 260.11,-94.56 260.01,-87.56"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-49C423.02,-40.4 412.05,-89.34 347,-90"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.6,-96.81C579.98,-81.04 533.69,-54.89 489.5,-49"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-49C425.59,-40.75 409.35,-55.71 347,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-52C266.08,-47.31 175.19,-55.78 116.28,-63.1"/>
-<polygon fill="#000000" stroke="#000000" points="115.5,-59.67 106.02,-64.4 116.38,-66.62 115.5,-59.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-246C142.51,-229.83 92.96,-175.98 69.12,-146.22"/>
+<polygon fill="#000000" stroke="#000000" points="71.75,-143.89 62.83,-138.16 66.23,-148.2 71.75,-143.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.37,-218.09C283,-232 223.97,-252.18 202,-246"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.59,-121.14C575.49,-130.21 547.8,-142.7 525.75,-152.65"/>
-<polygon fill="#000000" stroke="#000000" points="524.05,-149.57 516.37,-156.88 526.93,-155.95 524.05,-149.57"/>
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.16,-90.11C144.07,-96.39 120.56,-104.12 100.25,-110.79"/>
+<polygon fill="#000000" stroke="#000000" points="98.98,-107.53 90.58,-113.97 101.17,-114.18 98.98,-107.53"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-101.38C563.29,-100.1 554.37,-98.76 545.69,-97.45"/>
-<polygon fill="#000000" stroke="#000000" points="546.06,-93.97 535.65,-95.94 545.02,-100.89 546.06,-93.97"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.46,-206C430.72,-206 419.16,-206 408.03,-206"/>
+<polygon fill="#000000" stroke="#000000" points="407.96,-202.5 397.96,-206 407.96,-209.5 407.96,-202.5"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-166C322.18,-160.25 291.38,-159.39 265.01,-160.31"/>
+<polygon fill="#000000" stroke="#000000" points="264.6,-156.83 254.77,-160.76 264.91,-163.82 264.6,-156.83"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-166C325.45,-160.94 319.73,-158.39 296,-152 254.14,-140.74 245.34,-126.87 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.1,-193.92C424.88,-185.05 386.18,-173.3 351.5,-166"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.81,-84.55C134.13,-83.33 125.07,-82.04 116.18,-80.79"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-77.32 106.26,-79.39 115.67,-84.25 116.65,-77.32"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.79,-16.94C252.6,-22.46 191.21,-33.88 142,-57 115.57,-69.42 89.83,-91.06 73.08,-106.8"/>
+<polygon fill="#000000" stroke="#000000" points="70.39,-104.53 65.62,-113.99 75.25,-109.57 70.39,-104.53"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.72,-168.67C428.74,-168.58 415.74,-168.49 403.34,-168.4"/>
-<polygon fill="#000000" stroke="#000000" points="403.13,-164.9 393.1,-168.33 403.08,-171.9 403.13,-164.9"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.53,-176.04C433.45,-180.69 416.02,-186.07 400.14,-190.98"/>
+<polygon fill="#000000" stroke="#000000" points="399,-187.67 390.48,-193.96 401.07,-194.36 399,-187.67"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge19" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-189C141.62,-169.82 93.75,-120.04 69.94,-91.99"/>
-<polygon fill="#000000" stroke="#000000" points="72.42,-89.5 63.34,-84.04 67.03,-93.97 72.42,-89.5"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M450.54,-156.94C436.45,-152.93 420.14,-148.98 405,-147 353,-140.19 338.19,-135.59 287,-147 244.11,-156.56 238.9,-203.74 197.5,-189"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.85,-101.17C442.17,-114.49 404.02,-135.94 377.35,-150.93"/>
-<polygon fill="#000000" stroke="#000000" points="375.44,-147.99 368.44,-155.95 378.87,-154.09 375.44,-147.99"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.3,-89.26C413.9,-89.43 378.47,-89.68 347,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.77,-154.11C384.43,-143.04 286.75,-126.57 202,-126"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M456.28,-76.96C428.19,-67.06 385.52,-54.29 347,-52"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-154C140.96,-149.83 123.7,-145.1 107.75,-140.73"/>
+<polygon fill="#000000" stroke="#000000" points="108.6,-137.33 98.03,-138.06 106.75,-144.08 108.6,-137.33"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.87,-24.14C145.29,-33.29 115.5,-45.92 91.94,-55.91"/>
-<polygon fill="#000000" stroke="#000000" points="90.43,-52.75 82.59,-59.88 93.16,-59.19 90.43,-52.75"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-193C563.29,-194.35 554.37,-195.76 545.69,-197.13"/>
+<polygon fill="#000000" stroke="#000000" points="544.99,-193.7 535.65,-198.71 546.08,-200.61 544.99,-193.7"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-177C563.4,-175.67 554.59,-174.28 546.02,-172.92"/>
+<polygon fill="#000000" stroke="#000000" points="546.51,-169.46 536.09,-171.36 545.42,-176.37 546.51,-169.46"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C304.67,-98.12 300.72,-119.55 260,-140 253.42,-143.3 246.34,-146.65 239.45,-149.79"/>
+<polygon fill="#000000" stroke="#000000" points="237.94,-146.63 230.26,-153.93 240.82,-153.02 237.94,-146.63"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_kick.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.98,-207.13C259.27,-204.41 226.01,-199.15 197.5,-189"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C283.1,-102.03 269.47,-127.35 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-172.81C564.8,-143.31 451.82,-71.83 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-126C172.48,-125.45 142.04,-125.36 116.11,-125.45"/>
+<polygon fill="#000000" stroke="#000000" points="116.02,-121.95 106.03,-125.49 116.05,-128.95 116.02,-121.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/whm_setup.f90.html b/docs/sourcefile/whm_setup.f90.html
index 92f816367..cd0314d5b 100644
--- a/docs/sourcefile/whm_setup.f90.html
+++ b/docs/sourcefile/whm_setup.f90.html
@@ -226,241 +226,246 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~whm_setup.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilewhm_setupf90EfferentGraph" width="641pt" height="184pt"
- viewBox="0.00 0.00 641.00 183.58" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 255.48)">
+<svg id="sourcefilewhm_setupf90EfferentGraph" width="641pt" height="207pt"
+ viewBox="0.00 0.00 641.00 207.31" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 289.01)">
 <title>sourcefile~~whm_setup.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-255.48 902,-255.48 902,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-289.01 902,-289.01 902,4 -4,4"/>
 <!-- sourcefile~whm_setup.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~whm_setup.f90</title>
-<polygon fill="none" stroke="black" points="898,-201 813,-201 813,-177 898,-177 898,-201"/>
-<text text-anchor="middle" x="855.5" y="-186.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_setup.f90</text>
+<polygon fill="none" stroke="black" points="898,-265 813,-265 813,-241 898,-241 898,-265"/>
+<text text-anchor="middle" x="855.5" y="-250.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_setup.f90</text>
 </g>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest.f90</title>
 <g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-181 711,-181 711,-157 777,-157 777,-181"/>
-<text text-anchor="middle" x="744" y="-166.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-226 711,-226 711,-202 777,-202 777,-226"/>
+<text text-anchor="middle" x="744" y="-211.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.79,-181.38C804.37,-179.84 795.51,-178.23 787.08,-176.69"/>
-<polygon fill="#000000" stroke="#000000" points="787.52,-173.21 777.06,-174.85 786.26,-180.09 787.52,-173.21"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M820.75,-240.98C810.06,-237.17 798.11,-232.92 786.91,-228.93"/>
+<polygon fill="#000000" stroke="#000000" points="787.92,-225.57 777.32,-225.51 785.57,-232.16 787.92,-225.57"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-180 299,-180 299,-156 393,-156 393,-180"/>
-<text text-anchor="middle" x="346" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-218 303.5,-218 303.5,-194 397.5,-194 397.5,-218"/>
+<text text-anchor="middle" x="350.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~whm_setup.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-194.56C745.09,-202.89 606.65,-216.81 489.5,-209"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.85,-262.79C736.61,-278.77 570.54,-304.45 441,-260 421.83,-253.42 422.21,-242.71 405,-232 399.65,-228.67 393.81,-225.45 388.02,-222.48"/>
+<polygon fill="#000000" stroke="#000000" points="389.55,-219.33 379.03,-218.03 386.44,-225.6 389.55,-219.33"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-209C468.87,-207.76 425.31,-194.43 391.6,-183.3"/>
-<polygon fill="#000000" stroke="#000000" points="392.53,-179.92 381.93,-180.08 390.31,-186.56 392.53,-179.92"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C560.94,-164.46 551.09,-213.1 489.5,-209"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-246C453.18,-243.53 415.77,-231.82 388.9,-221.71"/>
+<polygon fill="#000000" stroke="#000000" points="390.08,-218.41 379.5,-218.07 387.56,-224.94 390.08,-218.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C563.4,-245.02 548.46,-250.25 489.5,-246"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-121 572,-121 572,-97 675,-97 675,-121"/>
-<text text-anchor="middle" x="623.5" y="-106.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-90 142,-90 142,-66 260,-66 260,-90"/>
+<text text-anchor="middle" x="201" y="-75.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M719.02,-156.86C701.35,-147.91 677.1,-135.64 657.59,-125.76"/>
-<polygon fill="#000000" stroke="#000000" points="658.95,-122.52 648.44,-121.12 655.79,-128.76 658.95,-122.52"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C406.31,-29.38 307.62,-48.06 250.09,-63.3"/>
+<polygon fill="#000000" stroke="#000000" points="248.92,-59.99 240.19,-66 250.76,-66.75 248.92,-59.99"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-104 143,-104 143,-80 250,-80 250,-104"/>
-<text text-anchor="middle" x="196.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-218 441.5,-218 441.5,-194 535.5,-194 535.5,-218"/>
+<text text-anchor="middle" x="488.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C558.98,-164.32 410.69,-89.35 347,-90"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C588.08,-245.43 550.69,-233.06 524.34,-222.22"/>
+<polygon fill="#000000" stroke="#000000" points="525.39,-218.86 514.82,-218.17 522.65,-225.31 525.39,-218.86"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-84 0,-84 0,-60 106,-60 106,-84"/>
-<text text-anchor="middle" x="53" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-250C398.02,-252.27 373.35,-254.58 287,-231 244.61,-219.42 238.69,-204.29 197.5,-189"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C453.18,-49.53 415.77,-37.82 388.9,-27.71"/>
+<polygon fill="#000000" stroke="#000000" points="390.08,-24.41 379.5,-24.07 387.56,-30.94 390.08,-24.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M732.9,-201.99C701.31,-165.83 599.94,-59.96 489.5,-52"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
 <g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-181 441,-181 441,-157 536,-157 536,-181"/>
-<text text-anchor="middle" x="488.5" y="-166.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-176 441,-176 441,-152 536,-152 536,-176"/>
+<text text-anchor="middle" x="488.5" y="-161.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge6" class="edge">
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C597.53,-167.16 569.84,-166.88 546.23,-167.17"/>
-<polygon fill="#000000" stroke="#000000" points="545.98,-163.67 536.03,-167.33 546.09,-170.67 545.98,-163.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C575.46,-245.22 576.84,-208.34 536,-185 533.32,-183.47 530.5,-181.96 527.64,-180.51"/>
+<polygon fill="#000000" stroke="#000000" points="528.98,-177.26 518.45,-176.05 525.92,-183.56 528.98,-177.26"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M715.79,-226C692.12,-235.3 656.67,-246.53 624.5,-246"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-101 441.5,-101 441.5,-77 535.5,-77 535.5,-101"/>
-<text text-anchor="middle" x="488.5" y="-86.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-178 147.5,-178 147.5,-154 254.5,-154 254.5,-178"/>
+<text text-anchor="middle" x="201" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C577.3,-165.67 575.01,-138.07 536,-115 531.12,-112.12 525.92,-109.12 520.82,-106.24"/>
-<polygon fill="#000000" stroke="#000000" points="522.29,-103.05 511.86,-101.21 518.87,-109.16 522.29,-103.05"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.76,-170.28C686.91,-170.91 653.63,-171.15 624.5,-169"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-246C427.21,-241.65 411.43,-253.88 351.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-246C300.24,-239.52 251.15,-206.17 223.87,-184.63"/>
+<polygon fill="#000000" stroke="#000000" points="225.78,-181.67 215.8,-178.1 221.37,-187.11 225.78,-181.67"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-24 142,-24 142,0 251,0 251,-24"/>
-<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-197 572,-197 572,-173 675,-173 675,-197"/>
+<text text-anchor="middle" x="623.5" y="-182.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.7,-156.89C724.61,-139.42 701.93,-107.16 675,-88 621.13,-49.67 600.58,-49.17 536,-35 442.01,-14.37 330.13,-10.7 261.47,-10.75"/>
-<polygon fill="#000000" stroke="#000000" points="261.24,-7.25 251.25,-10.79 261.26,-14.25 261.24,-7.25"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-206.15C702.49,-204.09 693.1,-201.79 683.72,-199.49"/>
+<polygon fill="#000000" stroke="#000000" points="684.52,-196.09 673.98,-197.11 682.86,-202.89 684.52,-196.09"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-222 287,-222 287,-198 405,-198 405,-222"/>
-<text text-anchor="middle" x="346" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~whm_setup.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-138 0,-138 0,-114 106,-114 106,-138"/>
+<text text-anchor="middle" x="53" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M722.96,-181.12C680.96,-205.22 580.07,-256.32 489.5,-250"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-250C450.31,-250.95 409.6,-237.67 381.62,-226.16"/>
-<polygon fill="#000000" stroke="#000000" points="382.86,-222.89 372.28,-222.19 380.12,-229.33 382.86,-222.89"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-246C284.5,-237.46 265.11,-263.75 202,-246"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge11" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M321.63,-155.96C296.96,-143.25 257.89,-123.12 230.18,-108.84"/>
-<polygon fill="#000000" stroke="#000000" points="231.74,-105.71 221.25,-104.24 228.54,-111.93 231.74,-105.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-194C289.86,-189.83 272.41,-185.1 256.31,-180.73"/>
+<polygon fill="#000000" stroke="#000000" points="257.05,-177.3 246.48,-178.06 255.21,-184.06 257.05,-177.3"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge11" class="edge">
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge12" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.91,-180.1C285.56,-190.91 236.98,-203.05 197.5,-189"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-90C317.19,-90.28 286.44,-90.69 260.24,-91.06"/>
-<polygon fill="#000000" stroke="#000000" points="260.01,-87.56 250.06,-91.2 260.11,-94.56 260.01,-87.56"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-49C423.02,-40.4 412.05,-89.34 347,-90"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.6,-96.81C579.98,-81.04 533.69,-54.89 489.5,-49"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-49C425.59,-40.75 409.35,-55.71 347,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-52C266.08,-47.31 175.19,-55.78 116.28,-63.1"/>
-<polygon fill="#000000" stroke="#000000" points="115.5,-59.67 106.02,-64.4 116.38,-66.62 115.5,-59.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-246C142.51,-229.83 92.96,-175.98 69.12,-146.22"/>
+<polygon fill="#000000" stroke="#000000" points="71.75,-143.89 62.83,-138.16 66.23,-148.2 71.75,-143.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.37,-218.09C283,-232 223.97,-252.18 202,-246"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.59,-121.14C575.49,-130.21 547.8,-142.7 525.75,-152.65"/>
-<polygon fill="#000000" stroke="#000000" points="524.05,-149.57 516.37,-156.88 526.93,-155.95 524.05,-149.57"/>
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.16,-90.11C144.07,-96.39 120.56,-104.12 100.25,-110.79"/>
+<polygon fill="#000000" stroke="#000000" points="98.98,-107.53 90.58,-113.97 101.17,-114.18 98.98,-107.53"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-101.38C563.29,-100.1 554.37,-98.76 545.69,-97.45"/>
-<polygon fill="#000000" stroke="#000000" points="546.06,-93.97 535.65,-95.94 545.02,-100.89 546.06,-93.97"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.46,-206C430.72,-206 419.16,-206 408.03,-206"/>
+<polygon fill="#000000" stroke="#000000" points="407.96,-202.5 397.96,-206 407.96,-209.5 407.96,-202.5"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-166C322.18,-160.25 291.38,-159.39 265.01,-160.31"/>
+<polygon fill="#000000" stroke="#000000" points="264.6,-156.83 254.77,-160.76 264.91,-163.82 264.6,-156.83"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-166C325.45,-160.94 319.73,-158.39 296,-152 254.14,-140.74 245.34,-126.87 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.1,-193.92C424.88,-185.05 386.18,-173.3 351.5,-166"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.81,-84.55C134.13,-83.33 125.07,-82.04 116.18,-80.79"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-77.32 106.26,-79.39 115.67,-84.25 116.65,-77.32"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.79,-16.94C252.6,-22.46 191.21,-33.88 142,-57 115.57,-69.42 89.83,-91.06 73.08,-106.8"/>
+<polygon fill="#000000" stroke="#000000" points="70.39,-104.53 65.62,-113.99 75.25,-109.57 70.39,-104.53"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.72,-168.67C428.74,-168.58 415.74,-168.49 403.34,-168.4"/>
-<polygon fill="#000000" stroke="#000000" points="403.13,-164.9 393.1,-168.33 403.08,-171.9 403.13,-164.9"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.53,-176.04C433.45,-180.69 416.02,-186.07 400.14,-190.98"/>
+<polygon fill="#000000" stroke="#000000" points="399,-187.67 390.48,-193.96 401.07,-194.36 399,-187.67"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge19" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-189C141.62,-169.82 93.75,-120.04 69.94,-91.99"/>
-<polygon fill="#000000" stroke="#000000" points="72.42,-89.5 63.34,-84.04 67.03,-93.97 72.42,-89.5"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M450.54,-156.94C436.45,-152.93 420.14,-148.98 405,-147 353,-140.19 338.19,-135.59 287,-147 244.11,-156.56 238.9,-203.74 197.5,-189"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.85,-101.17C442.17,-114.49 404.02,-135.94 377.35,-150.93"/>
-<polygon fill="#000000" stroke="#000000" points="375.44,-147.99 368.44,-155.95 378.87,-154.09 375.44,-147.99"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.3,-89.26C413.9,-89.43 378.47,-89.68 347,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.77,-154.11C384.43,-143.04 286.75,-126.57 202,-126"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M456.28,-76.96C428.19,-67.06 385.52,-54.29 347,-52"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-154C140.96,-149.83 123.7,-145.1 107.75,-140.73"/>
+<polygon fill="#000000" stroke="#000000" points="108.6,-137.33 98.03,-138.06 106.75,-144.08 108.6,-137.33"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.87,-24.14C145.29,-33.29 115.5,-45.92 91.94,-55.91"/>
-<polygon fill="#000000" stroke="#000000" points="90.43,-52.75 82.59,-59.88 93.16,-59.19 90.43,-52.75"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-193C563.29,-194.35 554.37,-195.76 545.69,-197.13"/>
+<polygon fill="#000000" stroke="#000000" points="544.99,-193.7 535.65,-198.71 546.08,-200.61 544.99,-193.7"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-177C563.4,-175.67 554.59,-174.28 546.02,-172.92"/>
+<polygon fill="#000000" stroke="#000000" points="546.51,-169.46 536.09,-171.36 545.42,-176.37 546.51,-169.46"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C304.67,-98.12 300.72,-119.55 260,-140 253.42,-143.3 246.34,-146.65 239.45,-149.79"/>
+<polygon fill="#000000" stroke="#000000" points="237.94,-146.63 230.26,-153.93 240.82,-153.02 237.94,-146.63"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_setup.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.98,-207.13C259.27,-204.41 226.01,-199.15 197.5,-189"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C283.1,-102.03 269.47,-127.35 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-172.81C564.8,-143.31 451.82,-71.83 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-126C172.48,-125.45 142.04,-125.36 116.11,-125.45"/>
+<polygon fill="#000000" stroke="#000000" points="116.02,-121.95 106.03,-125.49 116.05,-128.95 116.02,-121.95"/>
 </g>
 </g>
 </svg>
@@ -639,7 +644,7 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-82"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">sort</span><span class="p">(</span><span class="s2">&quot;ir3h&quot;</span><span class="p">,</span> <span class="n">ascending</span><span class="o">=</span><span class="p">.</span><span class="n">false</span><span class="p">.)</span>
 <a name="ln-83"></a>
 <a name="ln-84"></a>      <span class="c">! Make sure that the discard list gets allocated initially</span>
-<a name="ln-85"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">tp_discards</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
+<a name="ln-85"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">tp_discards</span><span class="p">%</span><span class="n">setup</span><span class="p">(</span><span class="mi">0</span><span class="p">,</span> <span class="n">param</span><span class="p">)</span>
 <a name="ln-86"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">pl</span><span class="p">%</span><span class="n">set_mu</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
 <a name="ln-87"></a>      <span class="k">call </span><span class="n">self</span><span class="p">%</span><span class="n">tp</span><span class="p">%</span><span class="n">set_mu</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">cb</span><span class="p">)</span>
 <a name="ln-88"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">param</span><span class="p">%</span><span class="n">lgr</span><span class="p">)</span> <span class="k">then</span>
diff --git a/docs/sourcefile/whm_step.f90.html b/docs/sourcefile/whm_step.f90.html
index fba0509bc..2557ada46 100644
--- a/docs/sourcefile/whm_step.f90.html
+++ b/docs/sourcefile/whm_step.f90.html
@@ -226,241 +226,246 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~whm_step.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilewhm_stepf90EfferentGraph" width="641pt" height="185pt"
- viewBox="0.00 0.00 641.00 184.80" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~whm_step.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 255.48)">
+<svg id="sourcefilewhm_stepf90EfferentGraph" width="641pt" height="209pt"
+ viewBox="0.00 0.00 641.00 208.55" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~whm_step.f90~~EfferentGraph" class="graph" transform="scale(0.71 0.71) rotate(0) translate(4 288.82)">
 <title>sourcefile~~whm_step.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-255.48 896,-255.48 896,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-288.82 896,-288.82 896,4 -4,4"/>
 <!-- sourcefile~whm_step.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~whm_step.f90</title>
-<polygon fill="none" stroke="black" points="892,-201 813,-201 813,-177 892,-177 892,-201"/>
-<text text-anchor="middle" x="852.5" y="-186.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_step.f90</text>
+<polygon fill="none" stroke="black" points="892,-265 813,-265 813,-241 892,-241 892,-265"/>
+<text text-anchor="middle" x="852.5" y="-250.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_step.f90</text>
 </g>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest.f90</title>
 <g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-181 711,-181 711,-157 777,-157 777,-181"/>
-<text text-anchor="middle" x="744" y="-166.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-226 711,-226 711,-202 777,-202 777,-226"/>
+<text text-anchor="middle" x="744" y="-211.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~whm_step.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.75,-181.72C804.46,-180.17 795.67,-178.52 787.26,-176.94"/>
-<polygon fill="#000000" stroke="#000000" points="787.72,-173.46 777.24,-175.06 786.43,-180.34 787.72,-173.46"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M818.68,-240.98C808.57,-237.28 797.31,-233.15 786.69,-229.27"/>
+<polygon fill="#000000" stroke="#000000" points="787.76,-225.93 777.17,-225.78 785.35,-232.5 787.76,-225.93"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-180 299,-180 299,-156 393,-156 393,-180"/>
-<text text-anchor="middle" x="346" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-218 303.5,-218 303.5,-194 397.5,-194 397.5,-218"/>
+<text text-anchor="middle" x="350.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~whm_step.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.91,-194.22C746.71,-202.47 607.26,-216.85 489.5,-209"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.79,-262.17C738.36,-278 571.12,-304.65 441,-260 421.83,-253.42 422.21,-242.71 405,-232 399.65,-228.67 393.81,-225.45 388.02,-222.48"/>
+<polygon fill="#000000" stroke="#000000" points="389.55,-219.33 379.03,-218.03 386.44,-225.6 389.55,-219.33"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-209C468.87,-207.76 425.31,-194.43 391.6,-183.3"/>
-<polygon fill="#000000" stroke="#000000" points="392.53,-179.92 381.93,-180.08 390.31,-186.56 392.53,-179.92"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C560.94,-164.46 551.09,-213.1 489.5,-209"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-246C453.18,-243.53 415.77,-231.82 388.9,-221.71"/>
+<polygon fill="#000000" stroke="#000000" points="390.08,-218.41 379.5,-218.07 387.56,-224.94 390.08,-218.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C563.4,-245.02 548.46,-250.25 489.5,-246"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-121 572,-121 572,-97 675,-97 675,-121"/>
-<text text-anchor="middle" x="623.5" y="-106.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-90 142,-90 142,-66 260,-66 260,-90"/>
+<text text-anchor="middle" x="201" y="-75.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M719.02,-156.86C701.35,-147.91 677.1,-135.64 657.59,-125.76"/>
-<polygon fill="#000000" stroke="#000000" points="658.95,-122.52 648.44,-121.12 655.79,-128.76 658.95,-122.52"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C406.31,-29.38 307.62,-48.06 250.09,-63.3"/>
+<polygon fill="#000000" stroke="#000000" points="248.92,-59.99 240.19,-66 250.76,-66.75 248.92,-59.99"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-104 143,-104 143,-80 250,-80 250,-104"/>
-<text text-anchor="middle" x="196.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-218 441.5,-218 441.5,-194 535.5,-194 535.5,-218"/>
+<text text-anchor="middle" x="488.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C558.98,-164.32 410.69,-89.35 347,-90"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C588.08,-245.43 550.69,-233.06 524.34,-222.22"/>
+<polygon fill="#000000" stroke="#000000" points="525.39,-218.86 514.82,-218.17 522.65,-225.31 525.39,-218.86"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-84 0,-84 0,-60 106,-60 106,-84"/>
-<text text-anchor="middle" x="53" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-250C398.02,-252.27 373.35,-254.58 287,-231 244.61,-219.42 238.69,-204.29 197.5,-189"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C453.18,-49.53 415.77,-37.82 388.9,-27.71"/>
+<polygon fill="#000000" stroke="#000000" points="390.08,-24.41 379.5,-24.07 387.56,-30.94 390.08,-24.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M732.9,-201.99C701.31,-165.83 599.94,-59.96 489.5,-52"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
 <g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-181 441,-181 441,-157 536,-157 536,-181"/>
-<text text-anchor="middle" x="488.5" y="-166.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-176 441,-176 441,-152 536,-152 536,-176"/>
+<text text-anchor="middle" x="488.5" y="-161.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge6" class="edge">
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C597.53,-167.16 569.84,-166.88 546.23,-167.17"/>
-<polygon fill="#000000" stroke="#000000" points="545.98,-163.67 536.03,-167.33 546.09,-170.67 545.98,-163.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C575.46,-245.22 576.84,-208.34 536,-185 533.32,-183.47 530.5,-181.96 527.64,-180.51"/>
+<polygon fill="#000000" stroke="#000000" points="528.98,-177.26 518.45,-176.05 525.92,-183.56 528.98,-177.26"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M715.79,-226C692.12,-235.3 656.67,-246.53 624.5,-246"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-101 441.5,-101 441.5,-77 535.5,-77 535.5,-101"/>
-<text text-anchor="middle" x="488.5" y="-86.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-178 147.5,-178 147.5,-154 254.5,-154 254.5,-178"/>
+<text text-anchor="middle" x="201" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C577.3,-165.67 575.01,-138.07 536,-115 531.12,-112.12 525.92,-109.12 520.82,-106.24"/>
-<polygon fill="#000000" stroke="#000000" points="522.29,-103.05 511.86,-101.21 518.87,-109.16 522.29,-103.05"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.76,-170.28C686.91,-170.91 653.63,-171.15 624.5,-169"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-246C427.21,-241.65 411.43,-253.88 351.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-246C300.24,-239.52 251.15,-206.17 223.87,-184.63"/>
+<polygon fill="#000000" stroke="#000000" points="225.78,-181.67 215.8,-178.1 221.37,-187.11 225.78,-181.67"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-24 142,-24 142,0 251,0 251,-24"/>
-<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-197 572,-197 572,-173 675,-173 675,-197"/>
+<text text-anchor="middle" x="623.5" y="-182.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.7,-156.89C724.61,-139.42 701.93,-107.16 675,-88 621.13,-49.67 600.58,-49.17 536,-35 442.01,-14.37 330.13,-10.7 261.47,-10.75"/>
-<polygon fill="#000000" stroke="#000000" points="261.24,-7.25 251.25,-10.79 261.26,-14.25 261.24,-7.25"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-206.15C702.49,-204.09 693.1,-201.79 683.72,-199.49"/>
+<polygon fill="#000000" stroke="#000000" points="684.52,-196.09 673.98,-197.11 682.86,-202.89 684.52,-196.09"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-222 287,-222 287,-198 405,-198 405,-222"/>
-<text text-anchor="middle" x="346" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~whm_step.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-138 0,-138 0,-114 106,-114 106,-138"/>
+<text text-anchor="middle" x="53" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M722.96,-181.12C680.96,-205.22 580.07,-256.32 489.5,-250"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-250C450.31,-250.95 409.6,-237.67 381.62,-226.16"/>
-<polygon fill="#000000" stroke="#000000" points="382.86,-222.89 372.28,-222.19 380.12,-229.33 382.86,-222.89"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-246C284.5,-237.46 265.11,-263.75 202,-246"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge11" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M321.63,-155.96C296.96,-143.25 257.89,-123.12 230.18,-108.84"/>
-<polygon fill="#000000" stroke="#000000" points="231.74,-105.71 221.25,-104.24 228.54,-111.93 231.74,-105.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-194C289.86,-189.83 272.41,-185.1 256.31,-180.73"/>
+<polygon fill="#000000" stroke="#000000" points="257.05,-177.3 246.48,-178.06 255.21,-184.06 257.05,-177.3"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge11" class="edge">
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge12" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.91,-180.1C285.56,-190.91 236.98,-203.05 197.5,-189"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-90C317.19,-90.28 286.44,-90.69 260.24,-91.06"/>
-<polygon fill="#000000" stroke="#000000" points="260.01,-87.56 250.06,-91.2 260.11,-94.56 260.01,-87.56"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-49C423.02,-40.4 412.05,-89.34 347,-90"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.6,-96.81C579.98,-81.04 533.69,-54.89 489.5,-49"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-49C425.59,-40.75 409.35,-55.71 347,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-52C266.08,-47.31 175.19,-55.78 116.28,-63.1"/>
-<polygon fill="#000000" stroke="#000000" points="115.5,-59.67 106.02,-64.4 116.38,-66.62 115.5,-59.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-246C142.51,-229.83 92.96,-175.98 69.12,-146.22"/>
+<polygon fill="#000000" stroke="#000000" points="71.75,-143.89 62.83,-138.16 66.23,-148.2 71.75,-143.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.37,-218.09C283,-232 223.97,-252.18 202,-246"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.59,-121.14C575.49,-130.21 547.8,-142.7 525.75,-152.65"/>
-<polygon fill="#000000" stroke="#000000" points="524.05,-149.57 516.37,-156.88 526.93,-155.95 524.05,-149.57"/>
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.16,-90.11C144.07,-96.39 120.56,-104.12 100.25,-110.79"/>
+<polygon fill="#000000" stroke="#000000" points="98.98,-107.53 90.58,-113.97 101.17,-114.18 98.98,-107.53"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-101.38C563.29,-100.1 554.37,-98.76 545.69,-97.45"/>
-<polygon fill="#000000" stroke="#000000" points="546.06,-93.97 535.65,-95.94 545.02,-100.89 546.06,-93.97"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.46,-206C430.72,-206 419.16,-206 408.03,-206"/>
+<polygon fill="#000000" stroke="#000000" points="407.96,-202.5 397.96,-206 407.96,-209.5 407.96,-202.5"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-166C322.18,-160.25 291.38,-159.39 265.01,-160.31"/>
+<polygon fill="#000000" stroke="#000000" points="264.6,-156.83 254.77,-160.76 264.91,-163.82 264.6,-156.83"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-166C325.45,-160.94 319.73,-158.39 296,-152 254.14,-140.74 245.34,-126.87 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.1,-193.92C424.88,-185.05 386.18,-173.3 351.5,-166"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.81,-84.55C134.13,-83.33 125.07,-82.04 116.18,-80.79"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-77.32 106.26,-79.39 115.67,-84.25 116.65,-77.32"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.79,-16.94C252.6,-22.46 191.21,-33.88 142,-57 115.57,-69.42 89.83,-91.06 73.08,-106.8"/>
+<polygon fill="#000000" stroke="#000000" points="70.39,-104.53 65.62,-113.99 75.25,-109.57 70.39,-104.53"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.72,-168.67C428.74,-168.58 415.74,-168.49 403.34,-168.4"/>
-<polygon fill="#000000" stroke="#000000" points="403.13,-164.9 393.1,-168.33 403.08,-171.9 403.13,-164.9"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.53,-176.04C433.45,-180.69 416.02,-186.07 400.14,-190.98"/>
+<polygon fill="#000000" stroke="#000000" points="399,-187.67 390.48,-193.96 401.07,-194.36 399,-187.67"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge19" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-189C141.62,-169.82 93.75,-120.04 69.94,-91.99"/>
-<polygon fill="#000000" stroke="#000000" points="72.42,-89.5 63.34,-84.04 67.03,-93.97 72.42,-89.5"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M450.54,-156.94C436.45,-152.93 420.14,-148.98 405,-147 353,-140.19 338.19,-135.59 287,-147 244.11,-156.56 238.9,-203.74 197.5,-189"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.85,-101.17C442.17,-114.49 404.02,-135.94 377.35,-150.93"/>
-<polygon fill="#000000" stroke="#000000" points="375.44,-147.99 368.44,-155.95 378.87,-154.09 375.44,-147.99"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.3,-89.26C413.9,-89.43 378.47,-89.68 347,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.77,-154.11C384.43,-143.04 286.75,-126.57 202,-126"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M456.28,-76.96C428.19,-67.06 385.52,-54.29 347,-52"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-154C140.96,-149.83 123.7,-145.1 107.75,-140.73"/>
+<polygon fill="#000000" stroke="#000000" points="108.6,-137.33 98.03,-138.06 106.75,-144.08 108.6,-137.33"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.87,-24.14C145.29,-33.29 115.5,-45.92 91.94,-55.91"/>
-<polygon fill="#000000" stroke="#000000" points="90.43,-52.75 82.59,-59.88 93.16,-59.19 90.43,-52.75"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-193C563.29,-194.35 554.37,-195.76 545.69,-197.13"/>
+<polygon fill="#000000" stroke="#000000" points="544.99,-193.7 535.65,-198.71 546.08,-200.61 544.99,-193.7"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-177C563.4,-175.67 554.59,-174.28 546.02,-172.92"/>
+<polygon fill="#000000" stroke="#000000" points="546.51,-169.46 536.09,-171.36 545.42,-176.37 546.51,-169.46"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_step.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C304.67,-98.12 300.72,-119.55 260,-140 253.42,-143.3 246.34,-146.65 239.45,-149.79"/>
+<polygon fill="#000000" stroke="#000000" points="237.94,-146.63 230.26,-153.93 240.82,-153.02 237.94,-146.63"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_step.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.98,-207.13C259.27,-204.41 226.01,-199.15 197.5,-189"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C283.1,-102.03 269.47,-127.35 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-172.81C564.8,-143.31 451.82,-71.83 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-126C172.48,-125.45 142.04,-125.36 116.11,-125.45"/>
+<polygon fill="#000000" stroke="#000000" points="116.02,-121.95 106.03,-125.49 116.05,-128.95 116.02,-121.95"/>
 </g>
 </g>
 </svg>
diff --git a/docs/sourcefile/whm_util.f90.html b/docs/sourcefile/whm_util.f90.html
index cc6809e11..3710a83e9 100644
--- a/docs/sourcefile/whm_util.f90.html
+++ b/docs/sourcefile/whm_util.f90.html
@@ -134,7 +134,7 @@ <h1>whm_util.f90
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title=" 1.1% of total for source files.">146 statements</a>
+    title=" 1.1% of total for source files.">148 statements</a>
      </li> 
      
      
@@ -226,241 +226,246 @@ <h3 class="panel-title">This file depends on</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: sourcefile~~whm_util.f90~~EfferentGraph Pages: 1 -->
-<svg id="sourcefilewhm_utilf90EfferentGraph" width="641pt" height="186pt"
- viewBox="0.00 0.00 641.00 186.04" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="sourcefile~~whm_util.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 255.48)">
+<svg id="sourcefilewhm_utilf90EfferentGraph" width="641pt" height="210pt"
+ viewBox="0.00 0.00 641.00 209.81" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="sourcefile~~whm_util.f90~~EfferentGraph" class="graph" transform="scale(0.72 0.72) rotate(0) translate(4 288.62)">
 <title>sourcefile~~whm_util.f90~~EfferentGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-255.48 890,-255.48 890,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-288.62 890,-288.62 890,4 -4,4"/>
 <!-- sourcefile~whm_util.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_node1" class="node">
 <title>sourcefile~whm_util.f90</title>
-<polygon fill="none" stroke="black" points="886,-201 813,-201 813,-177 886,-177 886,-201"/>
-<text text-anchor="middle" x="849.5" y="-186.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_util.f90</text>
+<polygon fill="none" stroke="black" points="886,-265 813,-265 813,-241 886,-241 886,-265"/>
+<text text-anchor="middle" x="849.5" y="-250.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_util.f90</text>
 </g>
 <!-- sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_node2" class="node">
 <title>sourcefile~swiftest.f90</title>
 <g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node2"><a xlink:href=".././sourcefile/swiftest.f90.html" xlink:title="swiftest.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-181 711,-181 711,-157 777,-157 777,-181"/>
-<text text-anchor="middle" x="744" y="-166.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="777,-226 711,-226 711,-202 777,-202 777,-226"/>
+<text text-anchor="middle" x="744" y="-211.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_edge1" class="edge">
 <title>sourcefile~whm_util.f90&#45;&gt;sourcefile~swiftest.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.88,-182.12C804.56,-180.51 795.62,-178.78 787.05,-177.13"/>
-<polygon fill="#000000" stroke="#000000" points="787.7,-173.69 777.21,-175.22 786.37,-180.56 787.7,-173.69"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M816.6,-240.98C807.06,-237.38 796.46,-233.39 786.4,-229.6"/>
+<polygon fill="#000000" stroke="#000000" points="787.56,-226.3 776.97,-226.05 785.09,-232.85 787.56,-226.3"/>
 </g>
 <!-- sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_node3" class="node">
 <title>sourcefile~whm_classes.f90</title>
 <g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node3"><a xlink:href=".././sourcefile/whm_classes.f90.html" xlink:title="whm_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="393,-180 299,-180 299,-156 393,-156 393,-180"/>
-<text text-anchor="middle" x="346" y="-165.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="397.5,-218 303.5,-218 303.5,-194 397.5,-194 397.5,-218"/>
+<text text-anchor="middle" x="350.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_edge2" class="edge">
 <title>sourcefile~whm_util.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.82,-193.88C748.27,-202.05 607.84,-216.89 489.5,-209"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M812.9,-261.51C740.5,-277.14 571.84,-304.89 441,-260 421.83,-253.42 422.21,-242.71 405,-232 399.65,-228.67 393.81,-225.45 388.02,-222.48"/>
+<polygon fill="#000000" stroke="#000000" points="389.55,-219.33 379.03,-218.03 386.44,-225.6 389.55,-219.33"/>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge9" class="edge">
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge8" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-209C468.87,-207.76 425.31,-194.43 391.6,-183.3"/>
-<polygon fill="#000000" stroke="#000000" points="392.53,-179.92 381.93,-180.08 390.31,-186.56 392.53,-179.92"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C560.94,-164.46 551.09,-213.1 489.5,-209"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-246C453.18,-243.53 415.77,-231.82 388.9,-221.71"/>
+<polygon fill="#000000" stroke="#000000" points="390.08,-218.41 379.5,-218.07 387.56,-224.94 390.08,-218.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C563.4,-245.02 548.46,-250.25 489.5,-246"/>
 </g>
-<!-- sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_node4" class="node">
-<title>sourcefile~symba_classes.f90</title>
-<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-121 572,-121 572,-97 675,-97 675,-121"/>
-<text text-anchor="middle" x="623.5" y="-106.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
+<title>sourcefile~swiftest_operators.f90</title>
+<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node4"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="260,-90 142,-90 142,-66 260,-66 260,-90"/>
+<text text-anchor="middle" x="201" y="-75.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_edge3" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M719.02,-156.86C701.35,-147.91 677.1,-135.64 657.59,-125.76"/>
-<polygon fill="#000000" stroke="#000000" points="658.95,-122.52 648.44,-121.12 655.79,-128.76 658.95,-122.52"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C406.31,-29.38 307.62,-48.06 250.09,-63.3"/>
+<polygon fill="#000000" stroke="#000000" points="248.92,-59.99 240.19,-66 250.76,-66.75 248.92,-59.99"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90 -->
+<!-- sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_node5" class="node">
-<title>sourcefile~swiftest_classes.f90</title>
-<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="250,-104 143,-104 143,-80 250,-80 250,-104"/>
-<text text-anchor="middle" x="196.5" y="-89.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
+<title>sourcefile~helio_classes.f90</title>
+<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node5"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-218 441.5,-218 441.5,-194 535.5,-194 535.5,-218"/>
+<text text-anchor="middle" x="488.5" y="-203.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge10" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C558.98,-164.32 410.69,-89.35 347,-90"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge4" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C588.08,-245.43 550.69,-233.06 524.34,-222.22"/>
+<polygon fill="#000000" stroke="#000000" points="525.39,-218.86 514.82,-218.17 522.65,-225.31 525.39,-218.86"/>
 </g>
-<!-- sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~lambda_function.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_node6" class="node">
-<title>sourcefile~swiftest_globals.f90</title>
-<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-84 0,-84 0,-60 106,-60 106,-84"/>
-<text text-anchor="middle" x="53" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
+<title>sourcefile~lambda_function.f90</title>
+<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node6"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-24 296,-24 296,0 405,0 405,-24"/>
+<text text-anchor="middle" x="350.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge4" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-250C398.02,-252.27 373.35,-254.58 287,-231 244.61,-219.42 238.69,-204.29 197.5,-189"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge6" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-52C453.18,-49.53 415.77,-37.82 388.9,-27.71"/>
+<polygon fill="#000000" stroke="#000000" points="390.08,-24.41 379.5,-24.07 387.56,-30.94 390.08,-24.41"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M732.9,-201.99C701.31,-165.83 599.94,-59.96 489.5,-52"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_node7" class="node">
 <title>sourcefile~rmvs_classes.f90</title>
 <g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node7"><a xlink:href=".././sourcefile/rmvs_classes.f90.html" xlink:title="rmvs_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-181 441,-181 441,-157 536,-157 536,-181"/>
-<text text-anchor="middle" x="488.5" y="-166.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="536,-176 441,-176 441,-152 536,-152 536,-176"/>
+<text text-anchor="middle" x="488.5" y="-161.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_classes.f90</text>
 </a>
 </g>
 </g>
 <!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge6" class="edge">
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge5" class="edge">
 <title>sourcefile~swiftest.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C597.53,-167.16 569.84,-166.88 546.23,-167.17"/>
-<polygon fill="#000000" stroke="#000000" points="545.98,-163.67 536.03,-167.33 546.09,-170.67 545.98,-163.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-246C575.46,-245.22 576.84,-208.34 536,-185 533.32,-183.47 530.5,-181.96 527.64,-180.51"/>
+<polygon fill="#000000" stroke="#000000" points="528.98,-177.26 518.45,-176.05 525.92,-183.56 528.98,-177.26"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M715.79,-226C692.12,-235.3 656.67,-246.53 624.5,-246"/>
 </g>
-<!-- sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_node8" class="node">
-<title>sourcefile~helio_classes.f90</title>
-<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/helio_classes.f90.html" xlink:title="helio_classes.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="535.5,-101 441.5,-101 441.5,-77 535.5,-77 535.5,-101"/>
-<text text-anchor="middle" x="488.5" y="-86.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_classes.f90</text>
+<title>sourcefile~swiftest_classes.f90</title>
+<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node8"><a xlink:href=".././sourcefile/swiftest_classes.f90.html" xlink:title="swiftest_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="254.5,-178 147.5,-178 147.5,-154 254.5,-154 254.5,-178"/>
+<text text-anchor="middle" x="201" y="-163.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_edge7" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M622.5,-169C577.3,-165.67 575.01,-138.07 536,-115 531.12,-112.12 525.92,-109.12 520.82,-106.24"/>
-<polygon fill="#000000" stroke="#000000" points="522.29,-103.05 511.86,-101.21 518.87,-109.16 522.29,-103.05"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.76,-170.28C686.91,-170.91 653.63,-171.15 624.5,-169"/>
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-246C427.21,-241.65 411.43,-253.88 351.5,-246"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-246C300.24,-239.52 251.15,-206.17 223.87,-184.63"/>
+<polygon fill="#000000" stroke="#000000" points="225.78,-181.67 215.8,-178.1 221.37,-187.11 225.78,-181.67"/>
 </g>
-<!-- sourcefile~lambda_function.f90 -->
+<!-- sourcefile~symba_classes.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_node9" class="node">
-<title>sourcefile~lambda_function.f90</title>
-<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/lambda_function.f90.html" xlink:title="lambda_function.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="251,-24 142,-24 142,0 251,0 251,-24"/>
-<text text-anchor="middle" x="196.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">lambda_function.f90</text>
+<title>sourcefile~symba_classes.f90</title>
+<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node9"><a xlink:href=".././sourcefile/symba_classes.f90.html" xlink:title="symba_classes.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="675,-197 572,-197 572,-173 675,-173 675,-197"/>
+<text text-anchor="middle" x="623.5" y="-182.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_classes.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge8" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~lambda_function.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M735.7,-156.89C724.61,-139.42 701.93,-107.16 675,-88 621.13,-49.67 600.58,-49.17 536,-35 442.01,-14.37 330.13,-10.7 261.47,-10.75"/>
-<polygon fill="#000000" stroke="#000000" points="261.24,-7.25 251.25,-10.79 261.26,-14.25 261.24,-7.25"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge9" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~symba_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M710.93,-206.15C702.49,-204.09 693.1,-201.79 683.72,-199.49"/>
+<polygon fill="#000000" stroke="#000000" points="684.52,-196.09 673.98,-197.11 682.86,-202.89 684.52,-196.09"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90 -->
+<!-- sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_node10" class="node">
-<title>sourcefile~swiftest_operators.f90</title>
-<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_operators.f90.html" xlink:title="swiftest_operators.f90">
-<polygon fill="#f0ad4e" stroke="#f0ad4e" points="405,-222 287,-222 287,-198 405,-198 405,-222"/>
-<text text-anchor="middle" x="346" y="-207.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_operators.f90</text>
+<title>sourcefile~swiftest_globals.f90</title>
+<g id="a_sourcefile~~whm_util.f90~~EfferentGraph_node10"><a xlink:href=".././sourcefile/swiftest_globals.f90.html" xlink:title="swiftest_globals.f90">
+<polygon fill="#f0ad4e" stroke="#f0ad4e" points="106,-138 0,-138 0,-114 106,-114 106,-138"/>
+<text text-anchor="middle" x="53" y="-123.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_globals.f90</text>
 </a>
 </g>
 </g>
-<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge5" class="edge">
-<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_operators.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M722.96,-181.12C680.96,-205.22 580.07,-256.32 489.5,-250"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-250C450.31,-250.95 409.6,-237.67 381.62,-226.16"/>
-<polygon fill="#000000" stroke="#000000" points="382.86,-222.89 372.28,-222.19 380.12,-229.33 382.86,-222.89"/>
+<!-- sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge10" class="edge">
+<title>sourcefile~swiftest.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-246C284.5,-237.46 265.11,-263.75 202,-246"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge12" class="edge">
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge11" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M321.63,-155.96C296.96,-143.25 257.89,-123.12 230.18,-108.84"/>
-<polygon fill="#000000" stroke="#000000" points="231.74,-105.71 221.25,-104.24 228.54,-111.93 231.74,-105.71"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M305.25,-194C289.86,-189.83 272.41,-185.1 256.31,-180.73"/>
+<polygon fill="#000000" stroke="#000000" points="257.05,-177.3 246.48,-178.06 255.21,-184.06 257.05,-177.3"/>
 </g>
 <!-- sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge11" class="edge">
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge12" class="edge">
 <title>sourcefile~whm_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M315.91,-180.1C285.56,-190.91 236.98,-203.05 197.5,-189"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge16" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-90C317.19,-90.28 286.44,-90.69 260.24,-91.06"/>
-<polygon fill="#000000" stroke="#000000" points="260.01,-87.56 250.06,-91.2 260.11,-94.56 260.01,-87.56"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-49C423.02,-40.4 412.05,-89.34 347,-90"/>
-</g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge14" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M604.6,-96.81C579.98,-81.04 533.69,-54.89 489.5,-49"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.5,-49C425.59,-40.75 409.35,-55.71 347,-52"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M345,-52C266.08,-47.31 175.19,-55.78 116.28,-63.1"/>
-<polygon fill="#000000" stroke="#000000" points="115.5,-59.67 106.02,-64.4 116.38,-66.62 115.5,-59.67"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-246C142.51,-229.83 92.96,-175.98 69.12,-146.22"/>
+<polygon fill="#000000" stroke="#000000" points="71.75,-143.89 62.83,-138.16 66.23,-148.2 71.75,-143.89"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M319.37,-218.09C283,-232 223.97,-252.18 202,-246"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_edge13" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M595.59,-121.14C575.49,-130.21 547.8,-142.7 525.75,-152.65"/>
-<polygon fill="#000000" stroke="#000000" points="524.05,-149.57 516.37,-156.88 526.93,-155.95 524.05,-149.57"/>
+<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M163.16,-90.11C144.07,-96.39 120.56,-104.12 100.25,-110.79"/>
+<polygon fill="#000000" stroke="#000000" points="98.98,-107.53 90.58,-113.97 101.17,-114.18 98.98,-107.53"/>
 </g>
-<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_edge15" class="edge">
-<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-101.38C563.29,-100.1 554.37,-98.76 545.69,-97.45"/>
-<polygon fill="#000000" stroke="#000000" points="546.06,-93.97 535.65,-95.94 545.02,-100.89 546.06,-93.97"/>
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.46,-206C430.72,-206 419.16,-206 408.03,-206"/>
+<polygon fill="#000000" stroke="#000000" points="407.96,-202.5 397.96,-206 407.96,-209.5 407.96,-202.5"/>
 </g>
-<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge14" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-166C322.18,-160.25 291.38,-159.39 265.01,-160.31"/>
+<polygon fill="#000000" stroke="#000000" points="264.6,-156.83 254.77,-160.76 264.91,-163.82 264.6,-156.83"/>
+</g>
+<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge16" class="edge">
+<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-166C325.45,-160.94 319.73,-158.39 296,-152 254.14,-140.74 245.34,-126.87 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M452.1,-193.92C424.88,-185.05 386.18,-173.3 351.5,-166"/>
+</g>
+<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_edge17" class="edge">
-<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M142.81,-84.55C134.13,-83.33 125.07,-82.04 116.18,-80.79"/>
-<polygon fill="#000000" stroke="#000000" points="116.65,-77.32 106.26,-79.39 115.67,-84.25 116.65,-77.32"/>
+<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M295.79,-16.94C252.6,-22.46 191.21,-33.88 142,-57 115.57,-69.42 89.83,-91.06 73.08,-106.8"/>
+<polygon fill="#000000" stroke="#000000" points="70.39,-104.53 65.62,-113.99 75.25,-109.57 70.39,-104.53"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge19" class="edge">
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge18" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.72,-168.67C428.74,-168.58 415.74,-168.49 403.34,-168.4"/>
-<polygon fill="#000000" stroke="#000000" points="403.13,-164.9 393.1,-168.33 403.08,-171.9 403.13,-164.9"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M448.53,-176.04C433.45,-180.69 416.02,-186.07 400.14,-190.98"/>
+<polygon fill="#000000" stroke="#000000" points="399,-187.67 390.48,-193.96 401.07,-194.36 399,-187.67"/>
 </g>
 <!-- sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge18" class="edge">
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge19" class="edge">
 <title>sourcefile~rmvs_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M195.5,-189C141.62,-169.82 93.75,-120.04 69.94,-91.99"/>
-<polygon fill="#000000" stroke="#000000" points="72.42,-89.5 63.34,-84.04 67.03,-93.97 72.42,-89.5"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M450.54,-156.94C436.45,-152.93 420.14,-148.98 405,-147 353,-140.19 338.19,-135.59 287,-147 244.11,-156.56 238.9,-203.74 197.5,-189"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge22" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~whm_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M465.85,-101.17C442.17,-114.49 404.02,-135.94 377.35,-150.93"/>
-<polygon fill="#000000" stroke="#000000" points="375.44,-147.99 368.44,-155.95 378.87,-154.09 375.44,-147.99"/>
-</g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
-<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge21" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M441.3,-89.26C413.9,-89.43 378.47,-89.68 347,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M440.77,-154.11C384.43,-143.04 286.75,-126.57 202,-126"/>
 </g>
-<!-- sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_edge20" class="edge">
-<title>sourcefile~helio_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M456.28,-76.96C428.19,-67.06 385.52,-54.29 347,-52"/>
+<title>sourcefile~swiftest_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M156.2,-154C140.96,-149.83 123.7,-145.1 107.75,-140.73"/>
+<polygon fill="#000000" stroke="#000000" points="108.6,-137.33 98.03,-138.06 106.75,-144.08 108.6,-137.33"/>
 </g>
-<!-- sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_edge23" class="edge">
-<title>sourcefile~lambda_function.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M166.87,-24.14C145.29,-33.29 115.5,-45.92 91.94,-55.91"/>
-<polygon fill="#000000" stroke="#000000" points="90.43,-52.75 82.59,-59.88 93.16,-59.19 90.43,-52.75"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~helio_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-193C563.29,-194.35 554.37,-195.76 545.69,-197.13"/>
+<polygon fill="#000000" stroke="#000000" points="544.99,-193.7 535.65,-198.71 546.08,-200.61 544.99,-193.7"/>
 </g>
-<!-- sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge22" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~rmvs_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M571.84,-177C563.4,-175.67 554.59,-174.28 546.02,-172.92"/>
+<polygon fill="#000000" stroke="#000000" points="546.51,-169.46 536.09,-171.36 545.42,-176.37 546.51,-169.46"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90 -->
+<g id="sourcefile~~whm_util.f90~~EfferentGraph_edge21" class="edge">
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_classes.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C304.67,-98.12 300.72,-119.55 260,-140 253.42,-143.3 246.34,-146.65 239.45,-149.79"/>
+<polygon fill="#000000" stroke="#000000" points="237.94,-146.63 230.26,-153.93 240.82,-153.02 237.94,-146.63"/>
+</g>
+<!-- sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90 -->
 <g id="sourcefile~~whm_util.f90~~EfferentGraph_edge24" class="edge">
-<title>sourcefile~swiftest_operators.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M286.98,-207.13C259.27,-204.41 226.01,-199.15 197.5,-189"/>
+<title>sourcefile~symba_classes.f90&#45;&gt;sourcefile~swiftest_globals.f90</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M349.5,-90C283.1,-102.03 269.47,-127.35 202,-126"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M606.19,-172.81C564.8,-143.31 451.82,-71.83 351.5,-90"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M200,-126C172.48,-125.45 142.04,-125.36 116.11,-125.45"/>
+<polygon fill="#000000" stroke="#000000" points="116.02,-121.95 106.03,-125.49 116.05,-128.95 116.02,-121.95"/>
 </g>
 </g>
 </svg>
@@ -568,70 +573,70 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-11"></a>      <span class="c">!! Arguments</span>
 <a name="ln-12"></a>      <span class="k">class</span><span class="p">(</span><span class="n">whm_pl</span><span class="p">),</span>                   <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>         <span class="c">!! WHM massive body object</span>
 <a name="ln-13"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>            <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">source</span>       <span class="c">!! Source object to append</span>
-<a name="ln-14"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span> <span class="k">optional</span><span class="p">,</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
+<a name="ln-14"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>           <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lsource_mask</span> <span class="c">!! Logical mask indicating which elements to append to</span>
 <a name="ln-15"></a>
 <a name="ln-16"></a>      <span class="k">select type</span><span class="p">(</span><span class="n">source</span><span class="p">)</span>
 <a name="ln-17"></a>      <span class="k">class is</span> <span class="p">(</span><span class="n">whm_pl</span><span class="p">)</span>
-<a name="ln-18"></a>         <span class="k">call </span><span class="n">util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-19"></a>
-<a name="ln-20"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">eta</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">eta</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-21"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">muj</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">muj</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-22"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ir3j</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">ir3j</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-23"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xj</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">xj</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-24"></a>         <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vj</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">vj</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
-<a name="ln-25"></a>      <span class="k">class </span><span class="n">default</span>
-<a name="ln-26"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the append method. Source must be of class whm_pl or its descendents&quot;</span>
-<a name="ln-27"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-28"></a>      <span class="k">end select</span>
-<a name="ln-29"></a>
-<a name="ln-30"></a><span class="k">      return</span>
-<a name="ln-31"></a><span class="k">   end subroutine </span><span class="n">whm_util_append_pl</span>
-<a name="ln-32"></a>
-<a name="ln-33"></a>   <span class="k">module subroutine </span><span class="n">whm_util_fill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-34"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-35"></a>      <span class="c">!!</span>
-<a name="ln-36"></a>      <span class="c">!! Insert new WHM test particle structure into an old one. </span>
-<a name="ln-37"></a>      <span class="c">!! This is the inverse of a fill operation.</span>
-<a name="ln-38"></a>      <span class="c">!! </span>
-<a name="ln-39"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
-<a name="ln-40"></a>      <span class="k">implicit none</span>
-<a name="ln-41"></a>      <span class="c">! Arguments</span>
-<a name="ln-42"></a>      <span class="k">class</span><span class="p">(</span><span class="n">whm_pl</span><span class="p">),</span>                      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! WHM massive body object</span>
-<a name="ln-43"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! inserted object </span>
-<a name="ln-44"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
-<a name="ln-45"></a>      <span class="c">! Internals</span>
-<a name="ln-46"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                      <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-47"></a>   
-<a name="ln-48"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
-<a name="ln-49"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">inserts</span><span class="p">)</span>
-<a name="ln-50"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">whm_pl</span><span class="p">)</span>
-<a name="ln-51"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">eta</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">eta</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-52"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">muj</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">muj</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-53"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">ir3j</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">ir3j</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-54"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">xj</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">xj</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-55"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">vj</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">vj</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-56"></a>
-<a name="ln-57"></a>            <span class="k">call </span><span class="n">util_fill_pl</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
-<a name="ln-58"></a>         <span class="k">class </span><span class="n">default</span>
-<a name="ln-59"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the fill method. Inserts must be of class whm_pl or its descendents!&quot;</span>
-<a name="ln-60"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-61"></a>         <span class="k">end select</span>
-<a name="ln-62"></a><span class="k">      end associate</span>
-<a name="ln-63"></a><span class="k">   </span>
-<a name="ln-64"></a><span class="k">      return</span>
-<a name="ln-65"></a><span class="k">   end subroutine </span><span class="n">whm_util_fill_pl</span>
-<a name="ln-66"></a>
-<a name="ln-67"></a>
-<a name="ln-68"></a>   <span class="k">module subroutine </span><span class="n">whm_util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
-<a name="ln-69"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-70"></a>      <span class="c">!!</span>
-<a name="ln-71"></a>      <span class="c">!! Checks the current size of a massive body against the requested size and resizes it if it is too small.</span>
-<a name="ln-72"></a>      <span class="k">implicit none</span>
-<a name="ln-73"></a>      <span class="c">! Arguments</span>
-<a name="ln-74"></a>      <span class="k">class</span><span class="p">(</span><span class="n">whm_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! WHM massive body object</span>
-<a name="ln-75"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
-<a name="ln-76"></a>
-<a name="ln-77"></a>      <span class="k">call </span><span class="n">util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-18"></a>         <span class="k">associate</span><span class="p">(</span><span class="n">nold</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">,</span> <span class="n">nsrc</span> <span class="o">=&gt;</span> <span class="n">source</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-19"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">eta</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">eta</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-20"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">muj</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">muj</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-21"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ir3j</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">ir3j</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-22"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xj</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">xj</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-23"></a>            <span class="k">call </span><span class="n">util_append</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">vj</span><span class="p">,</span> <span class="n">source</span><span class="p">%</span><span class="n">vj</span><span class="p">,</span> <span class="n">nold</span><span class="p">,</span> <span class="n">nsrc</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-24"></a>
+<a name="ln-25"></a>            <span class="k">call </span><span class="n">util_append_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">source</span><span class="p">,</span> <span class="n">lsource_mask</span><span class="p">)</span>
+<a name="ln-26"></a>         <span class="k">end associate</span>
+<a name="ln-27"></a><span class="k">      class </span><span class="n">default</span>
+<a name="ln-28"></a>         <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the append method. Source must be of class whm_pl or its descendents&quot;</span>
+<a name="ln-29"></a>         <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-30"></a>      <span class="k">end select</span>
+<a name="ln-31"></a>
+<a name="ln-32"></a><span class="k">      return</span>
+<a name="ln-33"></a><span class="k">   end subroutine </span><span class="n">whm_util_append_pl</span>
+<a name="ln-34"></a>
+<a name="ln-35"></a>   <span class="k">module subroutine </span><span class="n">whm_util_fill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-36"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-37"></a>      <span class="c">!!</span>
+<a name="ln-38"></a>      <span class="c">!! Insert new WHM test particle structure into an old one. </span>
+<a name="ln-39"></a>      <span class="c">!! This is the inverse of a fill operation.</span>
+<a name="ln-40"></a>      <span class="c">!! </span>
+<a name="ln-41"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
+<a name="ln-42"></a>      <span class="k">implicit none</span>
+<a name="ln-43"></a>      <span class="c">! Arguments</span>
+<a name="ln-44"></a>      <span class="k">class</span><span class="p">(</span><span class="n">whm_pl</span><span class="p">),</span>                      <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>       <span class="c">!! WHM massive body object</span>
+<a name="ln-45"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">inserts</span>    <span class="c">!! inserted object </span>
+<a name="ln-46"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>              <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lfill_list</span> <span class="c">!! Logical array of bodies to merge into the keeps</span>
+<a name="ln-47"></a>      <span class="c">! Internals</span>
+<a name="ln-48"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                      <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-49"></a>   
+<a name="ln-50"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-51"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">inserts</span><span class="p">)</span>
+<a name="ln-52"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">whm_pl</span><span class="p">)</span>
+<a name="ln-53"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">eta</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">eta</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-54"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">muj</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">muj</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-55"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">ir3j</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">ir3j</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-56"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">xj</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">xj</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-57"></a>            <span class="k">call </span><span class="n">util_fill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">vj</span><span class="p">,</span> <span class="n">inserts</span><span class="p">%</span><span class="n">vj</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-58"></a>
+<a name="ln-59"></a>            <span class="k">call </span><span class="n">util_fill_pl</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">inserts</span><span class="p">,</span> <span class="n">lfill_list</span><span class="p">)</span>
+<a name="ln-60"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-61"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the fill method. Inserts must be of class whm_pl or its descendents!&quot;</span>
+<a name="ln-62"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-63"></a>         <span class="k">end select</span>
+<a name="ln-64"></a><span class="k">      end associate</span>
+<a name="ln-65"></a><span class="k">   </span>
+<a name="ln-66"></a><span class="k">      return</span>
+<a name="ln-67"></a><span class="k">   end subroutine </span><span class="n">whm_util_fill_pl</span>
+<a name="ln-68"></a>
+<a name="ln-69"></a>
+<a name="ln-70"></a>   <span class="k">module subroutine </span><span class="n">whm_util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-71"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-72"></a>      <span class="c">!!</span>
+<a name="ln-73"></a>      <span class="c">!! Checks the current size of a massive body against the requested size and resizes it if it is too small.</span>
+<a name="ln-74"></a>      <span class="k">implicit none</span>
+<a name="ln-75"></a>      <span class="c">! Arguments</span>
+<a name="ln-76"></a>      <span class="k">class</span><span class="p">(</span><span class="n">whm_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>  <span class="c">!! WHM massive body object</span>
+<a name="ln-77"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">nnew</span>  <span class="c">!! New size neded</span>
 <a name="ln-78"></a>
 <a name="ln-79"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">eta</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
 <a name="ln-80"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xj</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
@@ -639,142 +644,144 @@ <h2><span class="anchor" id="src"></span>Source Code</h2>
 <a name="ln-82"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">muj</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
 <a name="ln-83"></a>      <span class="k">call </span><span class="n">util_resize</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">ir3j</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
 <a name="ln-84"></a>
-<a name="ln-85"></a>      <span class="k">return</span>
-<a name="ln-86"></a><span class="k">   end subroutine </span><span class="n">whm_util_resize_pl</span>
-<a name="ln-87"></a>
-<a name="ln-88"></a>
-<a name="ln-89"></a>   <span class="k">module subroutine </span><span class="n">whm_util_set_ir3j</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
-<a name="ln-90"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-91"></a>      <span class="c">!!</span>
-<a name="ln-92"></a>      <span class="c">!! Sets the inverse Jacobi and heliocentric radii cubed (1/rj**3 and 1/rh**3)</span>
-<a name="ln-93"></a>      <span class="k">implicit none</span>
-<a name="ln-94"></a>      <span class="c">! Arguments</span>
-<a name="ln-95"></a>      <span class="k">class</span><span class="p">(</span><span class="n">whm_pl</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>    <span class="c">!! WHM massive body object</span>
-<a name="ln-96"></a>      <span class="c">! Internals</span>
-<a name="ln-97"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                 <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-98"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                     <span class="kd">::</span> <span class="n">r2</span><span class="p">,</span> <span class="n">ir</span>
-<a name="ln-99"></a>
-<a name="ln-100"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-101"></a><span class="k">         do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span>
-<a name="ln-102"></a>            <span class="n">r2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
-<a name="ln-103"></a>            <span class="n">ir</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">/</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">r2</span><span class="p">)</span>
-<a name="ln-104"></a>            <span class="n">self</span><span class="p">%</span><span class="n">ir3h</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">ir</span> <span class="o">/</span> <span class="n">r2</span>
-<a name="ln-105"></a>            <span class="n">r2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xj</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">xj</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
-<a name="ln-106"></a>            <span class="n">ir</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">/</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">r2</span><span class="p">)</span>
-<a name="ln-107"></a>            <span class="n">self</span><span class="p">%</span><span class="n">ir3j</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">ir</span> <span class="o">/</span> <span class="n">r2</span>
-<a name="ln-108"></a>         <span class="k">end do</span>
-<a name="ln-109"></a><span class="k">      end if</span>
-<a name="ln-110"></a>
-<a name="ln-111"></a><span class="k">      return</span>
-<a name="ln-112"></a><span class="k">   end subroutine </span><span class="n">whm_util_set_ir3j</span>
-<a name="ln-113"></a>
-<a name="ln-114"></a>
-<a name="ln-115"></a>   <span class="k">module subroutine </span><span class="n">whm_util_sort_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
-<a name="ln-116"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-117"></a>      <span class="c">!!</span>
-<a name="ln-118"></a>      <span class="c">!! Sort a WHM massive body object in-place. </span>
-<a name="ln-119"></a>      <span class="c">!! sortby is a string indicating which array component to sort.</span>
-<a name="ln-120"></a>      <span class="k">implicit none</span>
-<a name="ln-121"></a>      <span class="c">! Arguments</span>
-<a name="ln-122"></a>      <span class="k">class</span><span class="p">(</span><span class="n">whm_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! WHM massive body object</span>
-<a name="ln-123"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>    <span class="c">!! Sorting attribute</span>
-<a name="ln-124"></a>      <span class="kt">logical</span><span class="p">,</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
-<a name="ln-125"></a>      <span class="c">! Internals</span>
-<a name="ln-126"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ind</span>
-<a name="ln-127"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">direction</span>
-<a name="ln-128"></a>
-<a name="ln-129"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ascending</span><span class="p">)</span> <span class="k">then</span>
-<a name="ln-130"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
-<a name="ln-131"></a>      <span class="k">else</span>
-<a name="ln-132"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
-<a name="ln-133"></a>      <span class="k">end if</span>
-<a name="ln-134"></a>
-<a name="ln-135"></a><span class="k">      associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
-<a name="ln-136"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
-<a name="ln-137"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;eta&quot;</span><span class="p">)</span>
-<a name="ln-138"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">eta</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-139"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;muj&quot;</span><span class="p">)</span>
-<a name="ln-140"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">muj</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-141"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;ir3j&quot;</span><span class="p">)</span>
-<a name="ln-142"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">ir3j</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-143"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;xj&quot;</span><span class="p">,</span> <span class="s2">&quot;vj&quot;</span><span class="p">)</span>
-<a name="ln-144"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Cannot sort by &#39;</span> <span class="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">sortby</span><span class="p">))</span> <span class="o">//</span> <span class="s1">&#39;. Component not sortable!&#39;</span>
-<a name="ln-145"></a>         <span class="k">case </span><span class="n">default</span>
-<a name="ln-146"></a>            <span class="k">call </span><span class="n">util_sort_pl</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
-<a name="ln-147"></a>            <span class="k">return</span>
-<a name="ln-148"></a><span class="k">         end select</span>
-<a name="ln-149"></a>
-<a name="ln-150"></a><span class="k">         call </span><span class="n">pl</span><span class="p">%</span><span class="n">rearrange</span><span class="p">(</span><span class="n">ind</span><span class="p">)</span>
-<a name="ln-151"></a>      <span class="k">end associate</span>
-<a name="ln-152"></a>
-<a name="ln-153"></a><span class="k">      return</span>
-<a name="ln-154"></a><span class="k">   end subroutine </span><span class="n">whm_util_sort_pl</span>
-<a name="ln-155"></a>
-<a name="ln-156"></a>
-<a name="ln-157"></a>   <span class="k">module subroutine </span><span class="n">whm_util_sort_rearrange_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
-<a name="ln-158"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-159"></a>      <span class="c">!!</span>
-<a name="ln-160"></a>      <span class="c">!! Rearrange WHM massive body structure in-place from an index list.</span>
-<a name="ln-161"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
-<a name="ln-162"></a>      <span class="k">implicit none</span>
-<a name="ln-163"></a>      <span class="c">! Arguments</span>
-<a name="ln-164"></a>      <span class="k">class</span><span class="p">(</span><span class="n">whm_pl</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! WHM massive body object</span>
-<a name="ln-165"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>  <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
-<a name="ln-166"></a>      <span class="c">! Internals</span>
-<a name="ln-167"></a>      <span class="k">class</span><span class="p">(</span><span class="n">whm_pl</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">pl_sorted</span>  <span class="c">!! Temporary holder for sorted body</span>
-<a name="ln-168"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-169"></a>
-<a name="ln-170"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-85"></a>      <span class="k">call </span><span class="n">util_resize_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">nnew</span><span class="p">)</span>
+<a name="ln-86"></a>
+<a name="ln-87"></a>      <span class="k">return</span>
+<a name="ln-88"></a><span class="k">   end subroutine </span><span class="n">whm_util_resize_pl</span>
+<a name="ln-89"></a>
+<a name="ln-90"></a>
+<a name="ln-91"></a>   <span class="k">module subroutine </span><span class="n">whm_util_set_ir3j</span><span class="p">(</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-92"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-93"></a>      <span class="c">!!</span>
+<a name="ln-94"></a>      <span class="c">!! Sets the inverse Jacobi and heliocentric radii cubed (1/rj**3 and 1/rh**3)</span>
+<a name="ln-95"></a>      <span class="k">implicit none</span>
+<a name="ln-96"></a>      <span class="c">! Arguments</span>
+<a name="ln-97"></a>      <span class="k">class</span><span class="p">(</span><span class="n">whm_pl</span><span class="p">),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>    <span class="c">!! WHM massive body object</span>
+<a name="ln-98"></a>      <span class="c">! Internals</span>
+<a name="ln-99"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                 <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-100"></a>      <span class="kt">real</span><span class="p">(</span><span class="n">DP</span><span class="p">)</span>                                     <span class="kd">::</span> <span class="n">r2</span><span class="p">,</span> <span class="n">ir</span>
+<a name="ln-101"></a>
+<a name="ln-102"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">&gt;</span> <span class="mi">0</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-103"></a><span class="k">         do </span><span class="n">i</span> <span class="o">=</span> <span class="mi">1</span><span class="p">,</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span>
+<a name="ln-104"></a>            <span class="n">r2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">xh</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-105"></a>            <span class="n">ir</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">/</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">r2</span><span class="p">)</span>
+<a name="ln-106"></a>            <span class="n">self</span><span class="p">%</span><span class="n">ir3h</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">ir</span> <span class="o">/</span> <span class="n">r2</span>
+<a name="ln-107"></a>            <span class="n">r2</span> <span class="o">=</span> <span class="nb">dot_product</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">xj</span><span class="p">(:,</span> <span class="n">i</span><span class="p">),</span> <span class="n">self</span><span class="p">%</span><span class="n">xj</span><span class="p">(:,</span> <span class="n">i</span><span class="p">))</span>
+<a name="ln-108"></a>            <span class="n">ir</span> <span class="o">=</span> <span class="mf">1.0_DP</span> <span class="o">/</span> <span class="nb">sqrt</span><span class="p">(</span><span class="n">r2</span><span class="p">)</span>
+<a name="ln-109"></a>            <span class="n">self</span><span class="p">%</span><span class="n">ir3j</span><span class="p">(</span><span class="n">i</span><span class="p">)</span> <span class="o">=</span> <span class="n">ir</span> <span class="o">/</span> <span class="n">r2</span>
+<a name="ln-110"></a>         <span class="k">end do</span>
+<a name="ln-111"></a><span class="k">      end if</span>
+<a name="ln-112"></a>
+<a name="ln-113"></a><span class="k">      return</span>
+<a name="ln-114"></a><span class="k">   end subroutine </span><span class="n">whm_util_set_ir3j</span>
+<a name="ln-115"></a>
+<a name="ln-116"></a>
+<a name="ln-117"></a>   <span class="k">module subroutine </span><span class="n">whm_util_sort_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
+<a name="ln-118"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-119"></a>      <span class="c">!!</span>
+<a name="ln-120"></a>      <span class="c">!! Sort a WHM massive body object in-place. </span>
+<a name="ln-121"></a>      <span class="c">!! sortby is a string indicating which array component to sort.</span>
+<a name="ln-122"></a>      <span class="k">implicit none</span>
+<a name="ln-123"></a>      <span class="c">! Arguments</span>
+<a name="ln-124"></a>      <span class="k">class</span><span class="p">(</span><span class="n">whm_pl</span><span class="p">),</span> <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>      <span class="c">!! WHM massive body object</span>
+<a name="ln-125"></a>      <span class="kt">character</span><span class="p">(</span><span class="o">*</span><span class="p">),</span>  <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">sortby</span>    <span class="c">!! Sorting attribute</span>
+<a name="ln-126"></a>      <span class="kt">logical</span><span class="p">,</span>       <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ascending</span> <span class="c">!! Logical flag indicating whether or not the sorting should be in ascending or descending order</span>
+<a name="ln-127"></a>      <span class="c">! Internals</span>
+<a name="ln-128"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span> <span class="k">dimension</span><span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span> <span class="kd">::</span> <span class="n">ind</span>
+<a name="ln-129"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">direction</span>
+<a name="ln-130"></a>
+<a name="ln-131"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">ascending</span><span class="p">)</span> <span class="k">then</span>
+<a name="ln-132"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="mi">1</span>
+<a name="ln-133"></a>      <span class="k">else</span>
+<a name="ln-134"></a><span class="k">         </span><span class="n">direction</span> <span class="o">=</span> <span class="o">-</span><span class="mi">1</span>
+<a name="ln-135"></a>      <span class="k">end if</span>
+<a name="ln-136"></a>
+<a name="ln-137"></a><span class="k">      associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-138"></a>         <span class="k">select case</span><span class="p">(</span><span class="n">sortby</span><span class="p">)</span>
+<a name="ln-139"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;eta&quot;</span><span class="p">)</span>
+<a name="ln-140"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">eta</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-141"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;muj&quot;</span><span class="p">)</span>
+<a name="ln-142"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">muj</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-143"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;ir3j&quot;</span><span class="p">)</span>
+<a name="ln-144"></a>            <span class="k">call </span><span class="n">util_sort</span><span class="p">(</span><span class="n">direction</span> <span class="o">*</span> <span class="n">pl</span><span class="p">%</span><span class="n">ir3j</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">),</span> <span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-145"></a>         <span class="k">case</span><span class="p">(</span><span class="s2">&quot;xj&quot;</span><span class="p">,</span> <span class="s2">&quot;vj&quot;</span><span class="p">)</span>
+<a name="ln-146"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s1">&#39;Cannot sort by &#39;</span> <span class="o">//</span> <span class="nb">trim</span><span class="p">(</span><span class="nb">adjustl</span><span class="p">(</span><span class="n">sortby</span><span class="p">))</span> <span class="o">//</span> <span class="s1">&#39;. Component not sortable!&#39;</span>
+<a name="ln-147"></a>         <span class="k">case </span><span class="n">default</span>
+<a name="ln-148"></a>            <span class="k">call </span><span class="n">util_sort_pl</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span> <span class="n">sortby</span><span class="p">,</span> <span class="n">ascending</span><span class="p">)</span>
+<a name="ln-149"></a>            <span class="k">return</span>
+<a name="ln-150"></a><span class="k">         end select</span>
+<a name="ln-151"></a>
+<a name="ln-152"></a><span class="k">         call </span><span class="n">pl</span><span class="p">%</span><span class="n">rearrange</span><span class="p">(</span><span class="n">ind</span><span class="p">)</span>
+<a name="ln-153"></a>      <span class="k">end associate</span>
+<a name="ln-154"></a>
+<a name="ln-155"></a><span class="k">      return</span>
+<a name="ln-156"></a><span class="k">   end subroutine </span><span class="n">whm_util_sort_pl</span>
+<a name="ln-157"></a>
+<a name="ln-158"></a>
+<a name="ln-159"></a>   <span class="k">module subroutine </span><span class="n">whm_util_sort_rearrange_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">ind</span><span class="p">)</span>
+<a name="ln-160"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-161"></a>      <span class="c">!!</span>
+<a name="ln-162"></a>      <span class="c">!! Rearrange WHM massive body structure in-place from an index list.</span>
+<a name="ln-163"></a>      <span class="c">!! This is a helper utility used to make polymorphic sorting work on Swiftest structures.</span>
+<a name="ln-164"></a>      <span class="k">implicit none</span>
+<a name="ln-165"></a>      <span class="c">! Arguments</span>
+<a name="ln-166"></a>      <span class="k">class</span><span class="p">(</span><span class="n">whm_pl</span><span class="p">),</span>               <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span> <span class="c">!! WHM massive body object</span>
+<a name="ln-167"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">),</span>  <span class="k">dimension</span><span class="p">(:),</span> <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ind</span>  <span class="c">!! Index array used to restructure the body (should contain all 1:n index values in the desired order)</span>
+<a name="ln-168"></a>      <span class="c">! Internals</span>
+<a name="ln-169"></a>      <span class="k">class</span><span class="p">(</span><span class="n">whm_pl</span><span class="p">),</span> <span class="k">allocatable</span> <span class="kd">::</span> <span class="n">pl_sorted</span>  <span class="c">!! Temporary holder for sorted body</span>
+<a name="ln-170"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span> <span class="kd">::</span> <span class="n">i</span>
 <a name="ln-171"></a>
-<a name="ln-172"></a><span class="k">      associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
-<a name="ln-173"></a>         <span class="k">call </span><span class="n">util_sort_rearrange_pl</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span><span class="n">ind</span><span class="p">)</span>
-<a name="ln-174"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">pl_sorted</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">self</span><span class="p">)</span>
-<a name="ln-175"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">eta</span><span class="p">))</span>  <span class="n">pl</span><span class="p">%</span><span class="n">eta</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">eta</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-176"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xj</span><span class="p">))</span>   <span class="n">pl</span><span class="p">%</span><span class="n">xj</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">xj</span><span class="p">(:,</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-177"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">vj</span><span class="p">))</span>   <span class="n">pl</span><span class="p">%</span><span class="n">vj</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">vj</span><span class="p">(:,</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-178"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">muj</span><span class="p">))</span>  <span class="n">pl</span><span class="p">%</span><span class="n">muj</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">muj</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-179"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">ir3j</span><span class="p">))</span> <span class="n">pl</span><span class="p">%</span><span class="n">ir3j</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">ir3j</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
-<a name="ln-180"></a>         <span class="k">deallocate</span><span class="p">(</span><span class="n">pl_sorted</span><span class="p">)</span>
-<a name="ln-181"></a>      <span class="k">end associate</span>
-<a name="ln-182"></a>
-<a name="ln-183"></a><span class="k">      return</span>
-<a name="ln-184"></a><span class="k">   end subroutine </span><span class="n">whm_util_sort_rearrange_pl</span>
-<a name="ln-185"></a>
-<a name="ln-186"></a>
-<a name="ln-187"></a>   <span class="k">module subroutine </span><span class="n">whm_util_spill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-188"></a>      <span class="c">!! author: David A. Minton</span>
-<a name="ln-189"></a>      <span class="c">!!</span>
-<a name="ln-190"></a>      <span class="c">!! Move spilled (discarded) WHM test particle structure from active list to discard list</span>
-<a name="ln-191"></a>      <span class="c">!! </span>
-<a name="ln-192"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
-<a name="ln-193"></a>      <span class="k">implicit none</span>
-<a name="ln-194"></a>      <span class="c">! Arguments</span>
-<a name="ln-195"></a>      <span class="k">class</span><span class="p">(</span><span class="n">whm_pl</span><span class="p">),</span>                         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>        <span class="c">!! WHM massive body object</span>
-<a name="ln-196"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>    <span class="c">!! Discarded object </span>
-<a name="ln-197"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span> <span class="c">!! Logical array of bodies to spill into the discards</span>
-<a name="ln-198"></a>      <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
-<a name="ln-199"></a>      <span class="c">! Internals</span>
-<a name="ln-200"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                         <span class="kd">::</span> <span class="n">i</span>
-<a name="ln-201"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
-<a name="ln-202"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
-<a name="ln-203"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">whm_pl</span><span class="p">)</span>
-<a name="ln-204"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">eta</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">eta</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-205"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">muj</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">muj</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-206"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">ir3j</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">ir3j</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-207"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">xj</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">xj</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-208"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">vj</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">vj</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-209"></a>
-<a name="ln-210"></a>            <span class="k">call </span><span class="n">util_spill_pl</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
-<a name="ln-211"></a>         <span class="k">class </span><span class="n">default</span>
-<a name="ln-212"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the spill method. Source must be of class whm_pl or its descendents!&quot;</span>
-<a name="ln-213"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
-<a name="ln-214"></a>         <span class="k">end select</span>
-<a name="ln-215"></a><span class="k">      end associate</span>
-<a name="ln-216"></a>
-<a name="ln-217"></a><span class="k">      return</span>
-<a name="ln-218"></a><span class="k">   end subroutine </span><span class="n">whm_util_spill_pl</span>
-<a name="ln-219"></a>   
-<a name="ln-220"></a><span class="k">end submodule </span><span class="n">s_whm_util</span>
+<a name="ln-172"></a>      <span class="k">if</span> <span class="p">(</span><span class="n">self</span><span class="p">%</span><span class="n">nbody</span> <span class="o">==</span> <span class="mi">0</span><span class="p">)</span> <span class="k">return</span>
+<a name="ln-173"></a>
+<a name="ln-174"></a><span class="k">      associate</span><span class="p">(</span><span class="n">pl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">,</span> <span class="n">npl</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">%</span><span class="n">nbody</span><span class="p">)</span>
+<a name="ln-175"></a>         <span class="k">call </span><span class="n">util_sort_rearrange_pl</span><span class="p">(</span><span class="n">pl</span><span class="p">,</span><span class="n">ind</span><span class="p">)</span>
+<a name="ln-176"></a>         <span class="k">allocate</span><span class="p">(</span><span class="n">pl_sorted</span><span class="p">,</span> <span class="n">source</span><span class="o">=</span><span class="n">self</span><span class="p">)</span>
+<a name="ln-177"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">eta</span><span class="p">))</span>  <span class="n">pl</span><span class="p">%</span><span class="n">eta</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">eta</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-178"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">xj</span><span class="p">))</span>   <span class="n">pl</span><span class="p">%</span><span class="n">xj</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">xj</span><span class="p">(:,</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-179"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">vj</span><span class="p">))</span>   <span class="n">pl</span><span class="p">%</span><span class="n">vj</span><span class="p">(:,</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">vj</span><span class="p">(:,</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-180"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">muj</span><span class="p">))</span>  <span class="n">pl</span><span class="p">%</span><span class="n">muj</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">muj</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-181"></a>         <span class="k">if</span> <span class="p">(</span><span class="nb">allocated</span><span class="p">(</span><span class="n">pl</span><span class="p">%</span><span class="n">ir3j</span><span class="p">))</span> <span class="n">pl</span><span class="p">%</span><span class="n">ir3j</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">)</span> <span class="o">=</span> <span class="n">pl_sorted</span><span class="p">%</span><span class="n">ir3j</span><span class="p">(</span><span class="n">ind</span><span class="p">(</span><span class="mi">1</span><span class="p">:</span><span class="n">npl</span><span class="p">))</span>
+<a name="ln-182"></a>         <span class="k">deallocate</span><span class="p">(</span><span class="n">pl_sorted</span><span class="p">)</span>
+<a name="ln-183"></a>      <span class="k">end associate</span>
+<a name="ln-184"></a>
+<a name="ln-185"></a><span class="k">      return</span>
+<a name="ln-186"></a><span class="k">   end subroutine </span><span class="n">whm_util_sort_rearrange_pl</span>
+<a name="ln-187"></a>
+<a name="ln-188"></a>
+<a name="ln-189"></a>   <span class="k">module subroutine </span><span class="n">whm_util_spill_pl</span><span class="p">(</span><span class="n">self</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-190"></a>      <span class="c">!! author: David A. Minton</span>
+<a name="ln-191"></a>      <span class="c">!!</span>
+<a name="ln-192"></a>      <span class="c">!! Move spilled (discarded) WHM test particle structure from active list to discard list</span>
+<a name="ln-193"></a>      <span class="c">!! </span>
+<a name="ln-194"></a>      <span class="c">!! Adapted from David E. Kaufmann&#39;s Swifter routine whm_discard_spill.f90</span>
+<a name="ln-195"></a>      <span class="k">implicit none</span>
+<a name="ln-196"></a>      <span class="c">! Arguments</span>
+<a name="ln-197"></a>      <span class="k">class</span><span class="p">(</span><span class="n">whm_pl</span><span class="p">),</span>                         <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">self</span>        <span class="c">!! WHM massive body object</span>
+<a name="ln-198"></a>      <span class="k">class</span><span class="p">(</span><span class="n">swiftest_body</span><span class="p">),</span>                  <span class="k">intent</span><span class="p">(</span><span class="n">inout</span><span class="p">)</span> <span class="kd">::</span> <span class="n">discards</span>    <span class="c">!! Discarded object </span>
+<a name="ln-199"></a>      <span class="kt">logical</span><span class="p">,</span> <span class="k">dimension</span><span class="p">(:),</span>                 <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">lspill_list</span> <span class="c">!! Logical array of bodies to spill into the discards</span>
+<a name="ln-200"></a>      <span class="kt">logical</span><span class="p">,</span>               <span class="k">intent</span><span class="p">(</span><span class="n">in</span><span class="p">)</span>    <span class="kd">::</span> <span class="n">ldestructive</span> <span class="c">!! Logical flag indicating whether or not this operation should alter the keeps array or not</span>
+<a name="ln-201"></a>      <span class="c">! Internals</span>
+<a name="ln-202"></a>      <span class="kt">integer</span><span class="p">(</span><span class="n">I4B</span><span class="p">)</span>                                         <span class="kd">::</span> <span class="n">i</span>
+<a name="ln-203"></a>      <span class="k">associate</span><span class="p">(</span><span class="n">keeps</span> <span class="o">=&gt;</span> <span class="n">self</span><span class="p">)</span>
+<a name="ln-204"></a>         <span class="k">select type</span><span class="p">(</span><span class="n">discards</span><span class="p">)</span>
+<a name="ln-205"></a>         <span class="k">class is</span> <span class="p">(</span><span class="n">whm_pl</span><span class="p">)</span>
+<a name="ln-206"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">eta</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">eta</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-207"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">muj</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">muj</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-208"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">ir3j</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">ir3j</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-209"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">xj</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">xj</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-210"></a>            <span class="k">call </span><span class="n">util_spill</span><span class="p">(</span><span class="n">keeps</span><span class="p">%</span><span class="n">vj</span><span class="p">,</span> <span class="n">discards</span><span class="p">%</span><span class="n">vj</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-211"></a>
+<a name="ln-212"></a>            <span class="k">call </span><span class="n">util_spill_pl</span><span class="p">(</span><span class="n">keeps</span><span class="p">,</span> <span class="n">discards</span><span class="p">,</span> <span class="n">lspill_list</span><span class="p">,</span> <span class="n">ldestructive</span><span class="p">)</span>
+<a name="ln-213"></a>         <span class="k">class </span><span class="n">default</span>
+<a name="ln-214"></a>            <span class="k">write</span><span class="p">(</span><span class="o">*</span><span class="p">,</span><span class="o">*</span><span class="p">)</span> <span class="s2">&quot;Invalid object passed to the spill method. Source must be of class whm_pl or its descendents!&quot;</span>
+<a name="ln-215"></a>            <span class="k">call </span><span class="n">util_exit</span><span class="p">(</span><span class="n">FAILURE</span><span class="p">)</span>
+<a name="ln-216"></a>         <span class="k">end select</span>
+<a name="ln-217"></a><span class="k">      end associate</span>
+<a name="ln-218"></a>
+<a name="ln-219"></a><span class="k">      return</span>
+<a name="ln-220"></a><span class="k">   end subroutine </span><span class="n">whm_util_spill_pl</span>
+<a name="ln-221"></a>   
+<a name="ln-222"></a><span class="k">end submodule </span><span class="n">s_whm_util</span>
 </pre></div>
 
     </section>
diff --git a/docs/src/discard.f90 b/docs/src/discard.f90
index be377e49e..9c8044c61 100644
--- a/docs/src/discard.f90
+++ b/docs/src/discard.f90
@@ -12,15 +12,29 @@ module subroutine discard_system(self, param)
       class(swiftest_nbody_system), intent(inout) :: self   !! Swiftest system object
       class(swiftest_parameters),   intent(inout) :: param  !! Current run configuration parameters
       ! Internals
-      logical :: lany_discards
+      logical :: lany_discards, lpl_discards, ltp_discards, lpl_check, ltp_check
 
-      associate(system => self, tp => self%tp, pl => self%pl)
-         lany_discards = .false.
-         call pl%discard(system, param)
-         call tp%discard(system, param)
-         if (tp%nbody > 0) lany_discards = lany_discards .or.  any(tp%ldiscard(:))
-         if (pl%nbody > 0) lany_discards = lany_discards .or.  any(pl%ldiscard(:))
-         if (lany_discards) call system%write_discard(param)
+      lpl_check = allocated(self%pl_discards)
+      ltp_check = allocated(self%tp_discards)
+
+      associate(system => self, tp => self%tp, pl => self%pl, tp_discards => self%tp_discards, pl_discards => self%pl_discards)
+         lpl_discards = .false.
+         ltp_discards = .false.
+         if (lpl_check) then
+            call pl%discard(system, param)
+            lpl_discards = (pl_discards%nbody > 0)
+         end if
+            
+         if (ltp_check) then
+            call tp%discard(system, param)
+            ltp_discards = (tp_discards%nbody > 0)
+         end if
+
+         if (lpl_discards .or. ltp_discards) call system%write_discard(param)
+         if (lpl_discards .and. param%lenergy) call self%conservation_report(param, lterminal=.true.)
+         if (lpl_check) call pl_discards%setup(0,param) 
+         if (ltp_check) call tp_discards%setup(0,param) 
+         
       end associate
 
       return
@@ -57,6 +71,8 @@ module subroutine discard_tp(self, system, param)
       class(swiftest_tp),           intent(inout) :: self   !! Swiftest test particle object
       class(swiftest_nbody_system), intent(inout) :: system !! Swiftest nbody system object
       class(swiftest_parameters),   intent(inout) :: param  !! Current run configuration parameter
+      ! Internals
+      logical, dimension(:), allocatable :: ldiscard
 
       associate(tp => self, ntp => self%nbody, cb => system%cb, pl => system%pl, npl => system%pl%nbody)
          if ((ntp == 0) .or. (npl ==0)) return 
@@ -70,7 +86,10 @@ module subroutine discard_tp(self, system, param)
          if ((param%rmin >= 0.0_DP) .or. (param%rmax >= 0.0_DP) .or.  (param%rmaxu >= 0.0_DP)) call discard_cb_tp(tp, system, param)
          if (param%qmin >= 0.0_DP) call discard_peri_tp(tp, system, param)
          if (param%lclose) call discard_pl_tp(tp, system, param)
-         if (any(tp%ldiscard)) call tp%spill(system%tp_discards, tp%ldiscard, ldestructive=.true.)
+         if (any(tp%ldiscard)) then
+            allocate(ldiscard, source=tp%ldiscard)
+            call tp%spill(system%tp_discards, ldiscard, ldestructive=.true.)
+         end if
       end associate
 
       return
diff --git a/docs/src/fragmentation.f90 b/docs/src/fragmentation.f90
index c90f64cb4..73cef6240 100644
--- a/docs/src/fragmentation.f90
+++ b/docs/src/fragmentation.f90
@@ -10,22 +10,22 @@ module subroutine fragmentation_initialize(system, param, family, x, v, L_spin,
       use, intrinsic :: ieee_exceptions
       implicit none
       ! Arguments
-      class(swiftest_nbody_system), intent(inout) :: system
-      class(swiftest_parameters), intent(in)  :: param 
-      integer(I4B), dimension(:), intent(in)  :: family
-      real(DP), dimension(:,:), intent(inout) :: x, v, L_spin, Ip
-      real(DP), dimension(:),   intent(inout) :: mass, radius
-      integer(I4B), intent(inout)             :: nfrag
-      real(DP), dimension(:), allocatable,   intent(inout) :: m_frag, rad_frag
-      real(DP), dimension(:,:), allocatable, intent(inout) :: Ip_frag
-      real(DP), dimension(:,:), allocatable, intent(inout) :: xb_frag, vb_frag, rot_frag
-      logical, intent(out)                    :: lfailure ! Answers the question: Should this have been a merger instead?
-      real(DP), intent(inout)                 :: Qloss
+      class(swiftest_nbody_system),                              intent(inout) :: system !! Swiftest nbody system object
+      class(swiftest_parameters),                                intent(in)    :: param  !! Current run configuration parameters 
+      integer(I4B),                 dimension(:),                intent(in)    :: family !! Index of bodies involved in the collision
+      real(DP),                     dimension(:,:),              intent(inout) :: x, v, L_spin, Ip !! Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision
+      real(DP),                     dimension(:),                intent(inout) :: mass, radius     !! Two-body equivalent mass and radii for the bodies in the collision
+      integer(I4B),                                              intent(inout) :: nfrag            !! Number of fragments to generate
+      real(DP),                     dimension(:),   allocatable, intent(inout) :: m_frag, rad_frag !! Distribution of fragment mass and radii
+      real(DP),                     dimension(:,:), allocatable, intent(inout) :: Ip_frag          !! Fragment rotational inertia vectors
+      real(DP),                     dimension(:,:), allocatable, intent(inout) :: xb_frag, vb_frag, rot_frag !! Fragment barycentric position, barycentric velocity, and rotation vectors
+      real(DP),                                                  intent(inout) :: Qloss !! Energy lost during the collision
+      logical,                                                   intent(out)   :: lfailure !! Answers the question: Should this have been a merger instead?
       ! Internals
-      real(DP)                                :: mscale, rscale, vscale, tscale, Lscale, Escale ! Scale factors that reduce quantities to O(~1) in the collisional system
+      real(DP)                                :: mscale, dscale, vscale, tscale, Lscale, Escale ! Scale factors that reduce quantities to O(~1) in the collisional system
       real(DP)                                :: mtot 
       real(DP), dimension(NDIM)               :: xcom, vcom
-      integer(I4B)                            :: ii
+      integer(I4B)                            :: ii, npl_new
       logical, dimension(:), allocatable      :: lexclude
       real(DP), dimension(NDIM, 2)            :: rot, L_orb 
       real(DP), dimension(:,:), allocatable   :: x_frag, v_frag, v_r_unit, v_t_unit, v_h_unit
@@ -42,10 +42,12 @@ module subroutine fragmentation_initialize(system, param, family, x, v, L_spin,
       integer(I4B), parameter                 :: NFRAG_MIN = 7 !! The minimum allowable number of fragments (set to 6 because that's how many unknowns are needed in the tangential velocity calculation)
       real(DP)                                :: r_max_start, r_max_start_old, r_max, f_spin 
       real(DP), parameter                     :: Ltol = 10 * epsilon(1.0_DP)
-      real(DP), parameter                     :: Etol = 1e-10_DP
+      real(DP), parameter                     :: Etol = 1e-9_DP
       integer(I4B), parameter                 :: MAXTRY = 3000
       integer(I4B), parameter                 :: TANTRY = 3
       logical, dimension(size(IEEE_ALL))      :: fpe_halting_modes, fpe_quiet_modes
+      class(swiftest_nbody_system), allocatable :: tmpsys
+      class(swiftest_parameters), allocatable   :: tmpparam
 
       if (nfrag < NFRAG_MIN) then
          write(*,*) "symba_frag_pos needs at least ",NFRAG_MIN," fragments, but only ",nfrag," were given."
@@ -58,29 +60,24 @@ module subroutine fragmentation_initialize(system, param, family, x, v, L_spin,
       call ieee_set_halting_mode(IEEE_ALL,fpe_quiet_modes)
 
       f_spin = 0.05_DP
-      mscale = 1.0_DP
-      rscale = 1.0_DP
-      vscale = 1.0_DP
-      tscale = 1.0_DP
-      Lscale = 1.0_DP
-      Escale = 1.0_DP
-
-      associate(npl => system%pl%nbody, status => system%pl%status) 
-         allocate(lexclude(npl))
-         where (status(1:npl) == INACTIVE) ! Safety check in case one of the included bodies has been previously deactivated 
-            lexclude(1:npl) = .true.  
-         elsewhere
-            lexclude(1:npl) = .false. 
-         end where
-      end associate
 
       allocate(x_frag, source=xb_frag)
       allocate(v_frag, source=vb_frag)
 
+      associate(pl => system%pl, npl => system%pl%nbody)
+         npl_new = npl + nfrag
+         allocate(lexclude(npl_new))
+         lexclude(1:npl) = pl%status(1:npl) == INACTIVE
+         lexclude(npl+1:npl_new) = .true.
+      end associate
+
       call set_scale_factors()
       call define_coordinate_system()
+      call construct_temporary_system()
+
+      ! Calculate the initial energy of the system without the collisional family
       call calculate_system_energy(linclude_fragments=.false.)
-   
+      
       r_max_start = norm2(x(:,2) - x(:,1))
       try = 1
       lfailure = .false.
@@ -91,7 +88,15 @@ module subroutine fragmentation_initialize(system, param, family, x, v, L_spin,
          ke_avg_deficit = 0.0_DP
          subtry = 1
          do 
+            ! Initialize the fragments with 0 velocity and spin so we can divide up the balance between the tangential, radial, and spin components while conserving momentum
+            xb_frag(:,:) = 0.0_DP
+            vb_frag(:,:) = 0.0_DP
+            rot_frag(:,:) = 0.0_DP
+            v_t_mag(:) = 0.0_DP
+            v_r_mag(:) = 0.0_DP
             call set_fragment_position_vectors()
+            call calculate_system_energy(linclude_fragments=.true.)
+            ke_frag_budget = -dEtot - Qloss
             call set_fragment_tan_vel(lfailure)
             ke_avg_deficit = ke_avg_deficit - ke_radial
             subtry = subtry + 1
@@ -99,21 +104,23 @@ module subroutine fragmentation_initialize(system, param, family, x, v, L_spin,
             !write(*,*) 'Trying new arrangement'
          end do
          ke_avg_deficit = ke_avg_deficit / subtry
-         if (lfailure) write(*,*) 'Failed to find tangential velocities'
+         !if (lfailure) write(*,*) 'Failed to find tangential velocities'
 
          if (.not.lfailure) then
+            call calculate_system_energy(linclude_fragments=.true.)
+            ke_radial = -dEtot - Qloss
             call set_fragment_radial_velocities(lfailure)
-            if (lfailure) write(*,*) 'Failed to find radial velocities'
+         !   if (lfailure) write(*,*) 'Failed to find radial velocities'
             if (.not.lfailure) then
                call calculate_system_energy(linclude_fragments=.true.)
-               !write(*,*) 'Qloss : ',Qloss
-               !write(*,*) '-dEtot: ',-dEtot
-               !write(*,*) 'delta : ',abs((dEtot + Qloss)) 
+               ! write(*,*) 'Qloss : ',Qloss
+               ! write(*,*) '-dEtot: ',-dEtot
+               ! write(*,*) 'delta : ',abs((dEtot + Qloss)) 
                if ((abs(dEtot + Qloss) > Etol) .or. (dEtot > 0.0_DP)) then
-                  write(*,*) 'Failed due to high energy error: ',dEtot, abs(dEtot + Qloss) / Etol
+                  !write(*,*) 'Failed due to high energy error: ',dEtot, abs(dEtot + Qloss) / Etol
                   lfailure = .true.
                else if (abs(dLmag) / Lmag_before > Ltol) then
-                  write(*,*) 'Failed due to high angular momentum error: ', dLmag / Lmag_before
+                  !write(*,*) 'Failed due to high angular momentum error: ', dLmag / Lmag_before
                   lfailure = .true.
                end if
             end if
@@ -123,720 +130,777 @@ module subroutine fragmentation_initialize(system, param, family, x, v, L_spin,
          call restructure_failed_fragments()
          try = try + 1
       end do
-      write(*,        "(' -------------------------------------------------------------------------------------')")
-      write(*,        "('  Final diagnostic')")
-      write(*,        "(' -------------------------------------------------------------------------------------')")
-      if (lfailure) then
-         write(*,*) "symba_frag_pos failed after: ",try," tries"
-         do ii = 1, nfrag
-            vb_frag(:, ii) = vcom(:)
-         end do
-      else
-         write(*,*) "symba_frag_pos succeeded after: ",try," tries"
-         write(*,        "(' dL_tot should be very small' )")
-         write(*,fmtlabel) ' dL_tot      |', dLmag / Lmag_before
-         write(*,        "(' dE_tot should be negative and equal to Qloss' )")
-         write(*,fmtlabel) ' dE_tot      |', dEtot / abs(Etot_before)
-         write(*,fmtlabel) ' Qloss       |', -Qloss / abs(Etot_before)
-         write(*,fmtlabel) ' dE - Qloss  |', (Etot_after - Etot_before + Qloss) / abs(Etot_before)
-      end if
-      write(*,        "(' -------------------------------------------------------------------------------------')")
-
       call restore_scale_factors()
+      call calculate_system_energy(linclude_fragments=.true.)
+
+      ! write(*,        "(' -------------------------------------------------------------------------------------')")
+      ! write(*,        "('  Final diagnostic')")
+      ! write(*,        "(' -------------------------------------------------------------------------------------')")
+      ! if (lfailure) then
+      !    write(*,*) "symba_frag_pos failed after: ",try," tries"
+      !    do ii = 1, nfrag
+      !       vb_frag(:, ii) = vcom(:)
+      !    end do
+      ! else
+      !    write(*,*) "symba_frag_pos succeeded after: ",try," tries"
+      !    write(*,        "(' dL_tot should be very small' )")
+      !    write(*,fmtlabel) ' dL_tot      |', dLmag / Lmag_before
+      !    write(*,        "(' dE_tot should be negative and equal to Qloss' )")
+      !    write(*,fmtlabel) ' dE_tot      |', dEtot / abs(Etot_before)
+      !    write(*,fmtlabel) ' Qloss       |', -Qloss / abs(Etot_before)
+      !    write(*,fmtlabel) ' dE - Qloss  |', (Etot_after - Etot_before + Qloss) / abs(Etot_before)
+      ! end if
+      ! write(*,        "(' -------------------------------------------------------------------------------------')")
+
       call ieee_set_halting_mode(IEEE_ALL,fpe_halting_modes)  ! Save the current halting modes so we can turn them off temporarily
 
       return 
 
       contains
 
-      ! Because of the complexity of this procedure, we have chosen to break it up into a series of nested subroutines.
-
-      subroutine set_scale_factors()
-         !! author: David A. Minton
-         !!
-         !! Scales dimenional quantities to ~O(1) with respect to the collisional system. This scaling makes it easier for the non-linear minimization 
-         !! to converge on a solution
-         implicit none
-         integer(I4B) :: i
-
-         ! Find the center of mass of the collisional system	
-         mtot = sum(mass(:)) 
-         xcom(:) = (mass(1) * x(:,1) + mass(2) * x(:,2)) / mtot
-         vcom(:) = (mass(1) * v(:,1) + mass(2) * v(:,2)) / mtot
-
-         ! Set scale factors
-         !! Because of the implied G, mass is actually G*mass with units of distance**3 / time**2
-         Escale = 0.5_DP * (mass(1) * dot_product(v(:,1), v(:,1)) + mass(2) * dot_product(v(:,2), v(:,2)))
-         rscale = sum(radius(:))
-         mscale = sqrt(Escale * rscale) 
-         vscale = sqrt(Escale / mscale) 
-         tscale = rscale / vscale 
-         Lscale = mscale * rscale * vscale
-
-         xcom(:) = xcom(:) / rscale
-         vcom(:) = vcom(:) / vscale
-
-         mtot = mtot / mscale
-         mass = mass / mscale
-         radius = radius / rscale
-         x = x / rscale
-         v = v / vscale
-         L_spin = L_spin / Lscale
-         do i = 1, 2
-            rot(:,i) = L_spin(:,i) / (mass(i) * radius(i)**2 * Ip(3, i))
-         end do
+         ! Because of the complexity of this procedure, we have chosen to break it up into a series of nested subroutines.
+         subroutine set_scale_factors()
+            !! author: David A. Minton
+            !!
+            !! Scales dimenional quantities to ~O(1) with respect to the collisional system. This scaling makes it easier for the non-linear minimization 
+            !! to converge on a solution
+            implicit none
+            integer(I4B) :: i
+
+            ! Find the center of mass of the collisional system	
+            mtot = sum(mass(:)) 
+            xcom(:) = (mass(1) * x(:,1) + mass(2) * x(:,2)) / mtot
+            vcom(:) = (mass(1) * v(:,1) + mass(2) * v(:,2)) / mtot
+
+            ! Set scale factors
+            dscale = sum(radius(:))
+            mscale = mtot
+            vscale = (mass(1) * norm2(v(:,1) - vcom(:)) + mass(2) * norm2(v(:,2) - vcom(:))) / mtot
+            tscale = dscale / vscale 
+            Lscale = mscale * dscale * vscale
+            Escale = mscale * vscale**2
+
+            xcom(:) = xcom(:) / dscale
+            vcom(:) = vcom(:) / vscale
+
+            mtot = mtot / mscale
+            mass = mass / mscale
+            radius = radius / dscale
+            x = x / dscale
+            v = v / vscale
+            L_spin = L_spin / Lscale
+            do i = 1, 2
+               rot(:,i) = L_spin(:,i) / (mass(i) * radius(i)**2 * Ip(3, i))
+            end do
 
-         m_frag = m_frag / mscale
-         rad_frag = rad_frag / rscale
-         Qloss = Qloss / Escale
+            m_frag = m_frag / mscale
+            rad_frag = rad_frag / dscale
+            Qloss = Qloss / Escale
 
-         return
-      end subroutine set_scale_factors
-
-      subroutine restore_scale_factors()
-         !! author: David A. Minton
-         !!
-         !! Restores dimenional quantities back to the system units
-         implicit none
-         integer(I4B) :: i
-
-         call ieee_set_halting_mode(IEEE_ALL,.false.)
-         ! Restore scale factors
-         xcom(:) = xcom(:) * rscale
-         vcom(:) = vcom(:) * vscale
-
-         mtot = mtot * mscale
-         mass = mass * mscale
-         radius = radius * rscale
-         x = x * rscale
-         v = v * vscale
-         L_spin = L_spin * Lscale
-         do i = 1, 2
-            rot(:,i) = L_spin(:,i) * (mass(i) * radius(i)**2 * Ip(3, i))
-         end do
+            return
+         end subroutine set_scale_factors
 
-         m_frag = m_frag * mscale
-         rad_frag = rad_frag * rscale
-         rot_frag = rot_frag / tscale
-         x_frag = x_frag * rscale
-         v_frag = v_frag * vscale
-         Qloss = Qloss * Escale
 
-         do i = 1, nfrag
-            xb_frag(:, i) = x_frag(:, i) + xcom(:)
-            vb_frag(:, i) = v_frag(:, i) + vcom(:)
-         end do
+         subroutine restore_scale_factors()
+            !! author: David A. Minton
+            !!
+            !! Restores dimenional quantities back to the system units
+            implicit none
+            integer(I4B) :: i
+
+            call ieee_set_halting_mode(IEEE_ALL,.false.)
+            ! Restore scale factors
+            xcom(:) = xcom(:) * dscale
+            vcom(:) = vcom(:) * vscale
+
+            mtot = mtot * mscale
+            mass = mass * mscale
+            radius = radius * dscale
+            x = x * dscale
+            v = v * vscale
+            L_spin = L_spin * Lscale
+            do i = 1, 2
+               rot(:,i) = L_spin(:,i) * (mass(i) * radius(i)**2 * Ip(3, i))
+            end do
 
-         Etot_before = Etot_before * Escale
-         pe_before = pe_before * Escale
-         ke_spin_before = ke_spin_before * Escale
-         ke_orbit_before = ke_orbit_before * Escale
-         Ltot_before = Ltot_before * Lscale
-         Lmag_before = Lmag_before * Lscale 
-         Etot_after = Etot_after * Escale
-         pe_after = pe_after * Escale
-         ke_spin_after = ke_spin_after * Escale
-         ke_orbit_after = ke_orbit_after * Escale
-         Ltot_after = Ltot_after * Lscale
-         Lmag_after = Lmag_after * Lscale 
-
-         mscale = 1.0_DP
-         rscale = 1.0_DP
-         vscale = 1.0_DP
-         tscale = 1.0_DP
-         Lscale = 1.0_DP
-         Escale = 1.0_DP
+            m_frag = m_frag * mscale
+            rad_frag = rad_frag * dscale
+            rot_frag = rot_frag / tscale
+            x_frag = x_frag * dscale
+            v_frag = v_frag * vscale
+            Qloss = Qloss * Escale
 
-         return
-      end subroutine restore_scale_factors
-
-      subroutine define_coordinate_system()
-         !! author: David A. Minton
-         !!
-         !! Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments.
-         implicit none
-         integer(I4B) :: i
-         real(DP), dimension(NDIM) ::  x_cross_v, xc, vc, delta_r, delta_v
-         real(DP)   :: r_col_norm, v_col_norm
-
-         allocate(rmag(nfrag))
-         allocate(rotmag(nfrag))
-         allocate(v_r_mag(nfrag))
-         allocate(v_t_mag(nfrag))
-         allocate(v_r_unit(NDIM,nfrag))
-         allocate(v_t_unit(NDIM,nfrag))
-         allocate(v_h_unit(NDIM,nfrag))
-
-         rmag(:) = 0.0_DP
-         rotmag(:) = 0.0_DP
-         v_r_mag(:) = 0.0_DP
-         v_t_mag(:) = 0.0_DP
-         v_r_unit(:,:) = 0.0_DP
-         v_t_unit(:,:) = 0.0_DP
-         v_h_unit(:,:) = 0.0_DP
-
-         L_orb(:, :) = 0.0_DP
-         ! Compute orbital angular momentum of pre-impact system
-         do i = 1, 2
-            xc(:) = x(:, i) - xcom(:) 
-            vc(:) = v(:, i) - vcom(:)
-            x_cross_v(:) = xc(:) .cross. vc(:)
-            L_orb(:, i) = mass(i) * x_cross_v(:)
-         end do
+            do i = 1, nfrag
+               xb_frag(:, i) = x_frag(:, i) + xcom(:)
+               vb_frag(:, i) = v_frag(:, i) + vcom(:)
+            end do
 
-         ! Compute orbital angular momentum of pre-impact system. This will be the normal vector to the collision fragment plane
-         L_frag_tot(:) = L_spin(:, 1) + L_spin(:, 2) + L_orb(:, 1) + L_orb(:, 2)
+            Etot_before = Etot_before * Escale
+            pe_before = pe_before * Escale
+            ke_spin_before = ke_spin_before * Escale
+            ke_orbit_before = ke_orbit_before * Escale
+            Ltot_before = Ltot_before * Lscale
+            Lmag_before = Lmag_before * Lscale 
+            Etot_after = Etot_after * Escale
+            pe_after = pe_after * Escale
+            ke_spin_after = ke_spin_after * Escale
+            ke_orbit_after = ke_orbit_after * Escale
+            Ltot_after = Ltot_after * Lscale
+            Lmag_after = Lmag_after * Lscale 
+
+            dLmag = norm2(Ltot_after(:) - Ltot_before(:)) 
+            dEtot = Etot_after - Etot_before
+
+            call tmpsys%rescale(tmpparam, mscale**(-1), dscale**(-1), tscale**(-1))
+
+            mscale = 1.0_DP
+            dscale = 1.0_DP
+            vscale = 1.0_DP
+            tscale = 1.0_DP
+            Lscale = 1.0_DP
+            Escale = 1.0_DP
+
+            return
+         end subroutine restore_scale_factors
 
-         delta_v(:) = v(:, 2) - v(:, 1)
-         v_col_norm = norm2(delta_v(:))     
-         delta_r(:) = x(:, 2) - x(:, 1)
-         r_col_norm = norm2(delta_r(:))
 
-         ! We will initialize fragments on a plane defined by the pre-impact system, with the z-axis aligned with the angular momentum vector
-         ! and the y-axis aligned with the pre-impact distance vector.
-         y_col_unit(:) = delta_r(:) / r_col_norm  
-         z_col_unit(:) = L_frag_tot(:) / norm2(L_frag_tot)
-         ! The cross product of the y- by z-axis will give us the x-axis
-         x_col_unit(:) = y_col_unit(:) .cross. z_col_unit(:)
+         subroutine define_coordinate_system()
+            !! author: David A. Minton
+            !!
+            !! Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments.
+            implicit none
+            integer(I4B) :: i
+            real(DP), dimension(NDIM) ::  x_cross_v, xc, vc, delta_r, delta_v
+            real(DP)   :: r_col_norm, v_col_norm
+
+            allocate(rmag(nfrag))
+            allocate(rotmag(nfrag))
+            allocate(v_r_mag(nfrag))
+            allocate(v_t_mag(nfrag))
+            allocate(v_r_unit(NDIM,nfrag))
+            allocate(v_t_unit(NDIM,nfrag))
+            allocate(v_h_unit(NDIM,nfrag))
+
+            rmag(:) = 0.0_DP
+            rotmag(:) = 0.0_DP
+            v_r_mag(:) = 0.0_DP
+            v_t_mag(:) = 0.0_DP
+            v_r_unit(:,:) = 0.0_DP
+            v_t_unit(:,:) = 0.0_DP
+            v_h_unit(:,:) = 0.0_DP
+
+            L_orb(:, :) = 0.0_DP
+            ! Compute orbital angular momentum of pre-impact system
+            do i = 1, 2
+               xc(:) = x(:, i) - xcom(:) 
+               vc(:) = v(:, i) - vcom(:)
+               x_cross_v(:) = xc(:) .cross. vc(:)
+               L_orb(:, i) = mass(i) * x_cross_v(:)
+            end do
+
+            ! Compute orbital angular momentum of pre-impact system. This will be the normal vector to the collision fragment plane
+            L_frag_tot(:) = L_spin(:, 1) + L_spin(:, 2) + L_orb(:, 1) + L_orb(:, 2)
+
+            delta_v(:) = v(:, 2) - v(:, 1)
+            v_col_norm = norm2(delta_v(:))     
+            delta_r(:) = x(:, 2) - x(:, 1)
+            r_col_norm = norm2(delta_r(:))
+
+            ! We will initialize fragments on a plane defined by the pre-impact system, with the z-axis aligned with the angular momentum vector
+            ! and the y-axis aligned with the pre-impact distance vector.
+            y_col_unit(:) = delta_r(:) / r_col_norm  
+            z_col_unit(:) = L_frag_tot(:) / norm2(L_frag_tot)
+            ! The cross product of the y- by z-axis will give us the x-axis
+            x_col_unit(:) = y_col_unit(:) .cross. z_col_unit(:)
+
+            return
+         end subroutine define_coordinate_system
+
+
+         subroutine construct_temporary_system()
+            !! Author: David A. Minton
+            !!
+            !! Constructs a temporary internal system consisting of active bodies and additional fragments. This internal temporary system is used to calculate system energy with and without fragments
+            !! and optionally including fragments.
+            implicit none
+            ! Internals
+            logical, dimension(:), allocatable :: lexclude_tmp
+
+            associate(pl => system%pl, npl => system%pl%nbody, cb => system%cb)
+               if (size(lexclude) /= npl + nfrag) then 
+                  allocate(lexclude_tmp(npl_new))
+                  lexclude_tmp(1:npl) = lexclude(1:npl)
+                  call move_alloc(lexclude_tmp, lexclude)
+               end if
+               where (pl%status(1:npl) == INACTIVE) ! Safety check in case one of the included bodies has been previously deactivated 
+                  lexclude(1:npl) = .true.  
+               elsewhere
+                  lexclude(1:npl) = .false. 
+               end where
+               lexclude(npl+1:npl_new) = .true.
+               if (allocated(tmpparam)) deallocate(tmpparam) 
+               allocate(tmpparam, source=param)
+               call setup_construct_system(tmpsys, param)
+               call tmpsys%tp%setup(0, param)
+               deallocate(tmpsys%cb)
+               allocate(tmpsys%cb, source=cb)
+               call tmpsys%pl%setup(npl + nfrag, tmpparam)
+               call tmpsys%pl%fill(pl, .not.lexclude)
+               call tmpsys%rescale(tmpparam, mscale, dscale, tscale)
+
+            end associate
 
          return
-      end subroutine define_coordinate_system
-
-      subroutine calculate_system_energy(linclude_fragments)
-         !! Author: David A. Minton
-         !!
-         !! Calculates total system energy, including all bodies in the pl list that do not have a corresponding value of the lexclude array that is true
-         !! and optionally including fragments.
-         implicit none
-         ! Arguments
-         logical,                intent(in) :: linclude_fragments
-         ! Internals
-         integer(I4B) :: i, npl_new, nplm
-         logical, dimension(:), allocatable :: ltmp
-         logical :: lk_plpl
-         class(swiftest_nbody_system), allocatable :: tmpsys
-
-         ! Because we're making a copy of symba_pl with the excludes/fragments appended, we need to deallocate the
-         ! big k_plpl array and recreate it when we're done, otherwise we run the risk of blowing up the memory by
-         ! allocating two of these ginormous arrays simulteouously. This is not particularly efficient, but as this
-         ! subroutine should be called relatively infrequently, it shouldn't matter too much.
-         !if (allocated(pl%k_plpl)) deallocate(pl%k_plpl) 
-
-         ! Build the internal planet list out of the non-excluded bodies and optionally with fragments appended. This
-         ! will get passed to the energy calculation subroutine so that energy is computed exactly the same way is it
-         ! is in the main program.
-         associate(pl => system%pl, npl => system%pl%nbody, cb => system%cb)
-            lk_plpl = allocated(pl%k_plpl)
-            if (lk_plpl) deallocate(pl%k_plpl) 
-            if (linclude_fragments) then ! Temporarily expand the planet list to feed it into symba_energy
-               lexclude(family(:)) = .true. 
-               npl_new = npl + nfrag
-            else
-               npl_new  = npl
-            end if
-            call setup_construct_system(tmpsys, param)
-            deallocate(tmpsys%cb)
-            allocate(tmpsys%cb, source=cb)
-            allocate(ltmp(npl))
-            ltmp(:) = .true.
-            call tmpsys%pl%setup(npl_new, param)
-            call tmpsys%pl%fill(pl, ltmp)
-            deallocate(ltmp)
-      
-            if (linclude_fragments) then ! Append the fragments if they are included
-               ! Energy calculation requires the fragments to be in the system barcyentric frame, s
+         end subroutine construct_temporary_system
+
+
+         subroutine add_fragments_to_tmpsys()
+            !! Author: David A. Minton
+            !!
+            !! Adds fragments to the temporary system pl object
+            implicit none
+            ! Internals
+            integer(I4B) :: i
+
+            associate(pl => system%pl, npl => system%pl%nbody)
+
                tmpsys%pl%mass(npl+1:npl_new) = m_frag(1:nfrag)
+               tmpsys%pl%Gmass(npl+1:npl_new) = m_frag(1:nfrag) * tmpparam%GU
                tmpsys%pl%radius(npl+1:npl_new) = rad_frag(1:nfrag)
-               tmpsys%pl%xb(:,npl+1:npl_new) =  xb_frag(:,1:nfrag)
-               tmpsys%pl%vb(:,npl+1:npl_new) =  vb_frag(:,1:nfrag)
-               tmpsys%pl%status(npl+1:npl_new) = COLLISION
-               if (param%lrotation) then
+               do concurrent (i = 1:nfrag)
+                  tmpsys%pl%xb(:,npl+i) =  xb_frag(:,i) 
+                  tmpsys%pl%vb(:,npl+i) =  vb_frag(:,i) 
+                  tmpsys%pl%xh(:,npl+i) =  xb_frag(:,i) - tmpsys%cb%xb(:)
+                  tmpsys%pl%vh(:,npl+i) =  vb_frag(:,i) - tmpsys%cb%vb(:)
+               end do
+               if (tmpparam%lrotation) then
                   tmpsys%pl%Ip(:,npl+1:npl_new) = Ip_frag(:,1:nfrag)
                   tmpsys%pl%rot(:,npl+1:npl_new) = rot_frag(:,1:nfrag)
                end if
-               call tmpsys%pl%b2h(tmpsys%cb)
-               allocate(ltmp(npl_new))
-               ltmp(1:npl) = lexclude(1:npl)
-               ltmp(npl+1:npl_new) = .false.
-               call move_alloc(ltmp, lexclude)
-            end if
+               ! Disable the collisional family for subsequent energy calculations and coordinate shifts
+               lexclude(family(:)) = .true.
+               lexclude(npl+1:npl_new) = .false.
+               where(lexclude(:)) 
+                  tmpsys%pl%status(:) = INACTIVE
+               elsewhere
+                  tmpsys%pl%status(:) = ACTIVE
+               end where
+
+            end associate
+
+            return
+         end subroutine add_fragments_to_tmpsys
+
+
+         subroutine calculate_system_energy(linclude_fragments)
+            !! Author: David A. Minton
+            !!
+            !! Calculates total system energy, including all bodies in the pl list that do not have a corresponding value of the lexclude array that is true
+            !! and optionally including fragments.
+            implicit none
+            ! Arguments
+            logical,                intent(in) :: linclude_fragments
+            ! Internals
+            integer(I4B) :: i, nplm
+            logical, dimension(:), allocatable :: lexclude_tmp
+            logical :: lk_plpl
+
+            ! Because we're making a copy of symba_pl with the excludes/fragments appended, we need to deallocate the
+            ! big k_plpl array and recreate it when we're done, otherwise we run the risk of blowing up the memory by
+            ! allocating two of these ginormous arrays simulteouously. This is not particularly efficient, but as this
+            ! subroutine should be called relatively infrequently, it shouldn't matter too much.
+
+            ! Build the internal planet list out of the non-excluded bodies and optionally with fragments appended. This
+            ! will get passed to the energy calculation subroutine so that energy is computed exactly the same way is it
+            ! is in the main program. This will temporarily expand the planet list in a temporary system object called tmpsys to feed it into symba_energy
+            associate(pl => system%pl, npl => system%pl%nbody, cb => system%cb)
+
+               where (lexclude(1:npl_new))
+                  tmpsys%pl%status(1:npl_new) = INACTIVE
+               elsewhere
+                  tmpsys%pl%status(1:npl_new) = ACTIVE
+               end where
       
-            where (lexclude(1:npl_new))
-               tmpsys%pl%status(1:npl_new) = INACTIVE
-            end where
-     
-            select type(plwksp => tmpsys%pl)
-            class is (symba_pl)
-               select type(param)
-               class is (symba_parameters)
-                  plwksp%nplm = count(plwksp%Gmass > param%Gmtiny / mscale)
+               select type(plwksp => tmpsys%pl)
+               class is (symba_pl)
+                  select type(param)
+                  class is (symba_parameters)
+                     plwksp%nplm = count(plwksp%Gmass > param%Gmtiny / mscale)
+                  end select
                end select
-            end select
-            call tmpsys%pl%eucl_index()
-            call tmpsys%get_energy_and_momentum(param) 
-      
-            ! Restore the big array
-            deallocate(tmpsys%pl%k_plpl) 
-            select type(pl)
-            class is (symba_pl)
-               select type(param)
-               class is (symba_parameters)
-                  nplm = count(pl%mass > param%Gmtiny)
+
+               lk_plpl = allocated(pl%k_plpl)
+               if (lk_plpl) deallocate(pl%k_plpl)
+
+               call tmpsys%pl%eucl_index()
+
+               call tmpsys%get_energy_and_momentum(param) 
+
+               ! Restore the big array
+               deallocate(tmpsys%pl%k_plpl) 
+               select type(pl)
+               class is (symba_pl)
+                  select type(param)
+                  class is (symba_parameters)
+                     pl%nplm = count(pl%Gmass > param%Gmtiny)
+                  end select
                end select
-            end select
-            if (lk_plpl) call pl%eucl_index()
-
-            ! Calculate the current fragment energy and momentum balances
-            if (linclude_fragments) then
-               Ltot_after(:) = tmpsys%Lorbit(:) + tmpsys%Lspin(:)
-               Lmag_after = norm2(Ltot_after(:))
-               ke_orbit_after = tmpsys%ke_orbit
-               ke_spin_after = tmpsys%ke_spin
-               pe_after = tmpsys%pe
-               Etot_after = ke_orbit_after + ke_spin_after + pe_after
-               dEtot = Etot_after - Etot_before 
-               dLmag = norm2(Ltot_after(:) - Ltot_before(:)) 
-            else
-               Ltot_before(:) = tmpsys%Lorbit(:) + tmpsys%Lspin(:)
-               Lmag_before = norm2(Ltot_before(:))
-               ke_orbit_before = tmpsys%ke_orbit
-               ke_spin_before = tmpsys%ke_spin
-               pe_before = tmpsys%pe
-               Etot_before = ke_orbit_before + ke_spin_before + pe_before
-            end if
-         end associate
-      return
-      end subroutine calculate_system_energy
-
-      subroutine shift_vector_to_origin(m_frag, vec_frag)
-         !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton
-         !!
-         !! Adjusts the position or velocity of the fragments as needed to align them with the origin
-         implicit none
-         ! Arguments
-         real(DP), dimension(:),   intent(in)    :: m_frag    !! Fragment masses
-         real(DP), dimension(:,:), intent(inout) :: vec_frag  !! Fragment positions or velocities in the center of mass frame
-
-         ! Internals
-         real(DP), dimension(NDIM)               :: mvec_frag, COM_offset
-         integer(I4B)                            :: i
-
-         mvec_frag(:) = 0.0_DP
-
-         do i = 1, nfrag
-            mvec_frag = mvec_frag(:) + vec_frag(:,i) * m_frag(i)
-         end do
-         COM_offset(:) = -mvec_frag(:) / mtot
-         do i = 1, nfrag 
-            vec_frag(:, i) = vec_frag(:, i) + COM_offset(:)
-         end do
 
-         return
-      end subroutine shift_vector_to_origin
-
-      subroutine set_fragment_position_vectors()
-         !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton
-         !!
-         !! Initializes the orbits of the fragments around the center of mass. The fragments are initially placed on a plane defined by the 
-         !! pre-impact angular momentum. They are distributed on an ellipse surrounding the center of mass.
-         !! The initial positions do not conserve energy or momentum, so these need to be adjusted later.
-
-         implicit none
-         real(DP)  :: dis, rad
-         real(DP), dimension(NDIM) ::  L_sigma
-         logical, dimension(:), allocatable :: loverlap
-         integer(I4B) :: i, j
-
-         allocate(loverlap(nfrag))
-
-         ! Place the fragments into a region that is big enough that we should usually not have overlapping bodies
-         ! An overlapping bodies will collide in the next time step, so it's not a major problem if they do (it just slows the run down)
-         r_max = r_max_start
-         rad = sum(radius(:))
-
-         ! We will treat the first two fragments of the list as special cases. They get initialized the maximum distances apart along the original impactor distance vector.
-         ! This is done because in a regular disruption, the first body is the largest, the second the second largest, and the rest are smaller equal-mass fragments.
-
-         call random_number(x_frag(:,3:nfrag))
-         loverlap(:) = .true.
-         do while (any(loverlap(3:nfrag)))
-            x_frag(:, 1) = x(:, 1) - xcom(:) 
-            x_frag(:, 2) = x(:, 2) - xcom(:) 
-            r_max = r_max + 0.1_DP * rad
-            do i = 3, nfrag
-               if (loverlap(i)) then
-                  call random_number(x_frag(:,i))
-                  x_frag(:, i) = 2 * (x_frag(:, i) - 0.5_DP) * r_max 
+               if (lk_plpl) call pl%eucl_index()
+
+               ! Calculate the current fragment energy and momentum balances
+               if (linclude_fragments) then
+                  Ltot_after(:) = tmpsys%Lorbit(:) + tmpsys%Lspin(:)
+                  Lmag_after = norm2(Ltot_after(:))
+                  ke_orbit_after = tmpsys%ke_orbit
+                  ke_spin_after = tmpsys%ke_spin
+                  pe_after = tmpsys%pe
+                  Etot_after = ke_orbit_after + ke_spin_after + pe_after
+                  dEtot = Etot_after - Etot_before 
+                  dLmag = norm2(Ltot_after(:) - Ltot_before(:)) 
+               else
+                  Ltot_before(:) = tmpsys%Lorbit(:) + tmpsys%Lspin(:)
+                  Lmag_before = norm2(Ltot_before(:))
+                  ke_orbit_before = tmpsys%ke_orbit
+                  ke_spin_before = tmpsys%ke_spin
+                  pe_before = tmpsys%pe
+                  Etot_before = ke_orbit_before + ke_spin_before + pe_before
                end if
+            end associate
+
+            return
+         end subroutine calculate_system_energy
+
+
+         subroutine shift_vector_to_origin(m_frag, vec_frag)
+            !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton
+            !!
+            !! Adjusts the position or velocity of the fragments as needed to align them with the origin
+            implicit none
+            ! Arguments
+            real(DP), dimension(:),   intent(in)    :: m_frag    !! Fragment masses
+            real(DP), dimension(:,:), intent(inout) :: vec_frag  !! Fragment positions or velocities in the center of mass frame
+
+            ! Internals
+            real(DP), dimension(NDIM)               :: mvec_frag, COM_offset
+            integer(I4B)                            :: i
+
+            mvec_frag(:) = 0.0_DP
+
+            do i = 1, nfrag
+               mvec_frag = mvec_frag(:) + vec_frag(:,i) * m_frag(i)
+            end do
+            COM_offset(:) = -mvec_frag(:) / mtot
+            do i = 1, nfrag 
+               vec_frag(:, i) = vec_frag(:, i) + COM_offset(:)
             end do
-            loverlap(:) = .false.
-            do j = 1, nfrag
-               do i = j + 1, nfrag
-                  dis = norm2(x_frag(:,j) - x_frag(:,i))
-                  loverlap(i) = loverlap(i) .or. (dis <= (rad_frag(i) + rad_frag(j))) 
+
+            return
+         end subroutine shift_vector_to_origin
+
+
+         subroutine set_fragment_position_vectors()
+            !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton
+            !!
+            !! Initializes the orbits of the fragments around the center of mass. The fragments are initially placed on a plane defined by the 
+            !! pre-impact angular momentum. They are distributed on an ellipse surrounding the center of mass.
+            !! The initial positions do not conserve energy or momentum, so these need to be adjusted later.
+
+            implicit none
+            real(DP)  :: dis, rad
+            real(DP), dimension(NDIM) ::  L_sigma
+            logical, dimension(:), allocatable :: loverlap
+            integer(I4B) :: i, j
+
+            allocate(loverlap(nfrag))
+
+            ! Place the fragments into a region that is big enough that we should usually not have overlapping bodies
+            ! An overlapping bodies will collide in the next time step, so it's not a major problem if they do (it just slows the run down)
+            r_max = r_max_start
+            rad = sum(radius(:))
+
+            ! We will treat the first two fragments of the list as special cases. They get initialized the maximum distances apart along the original impactor distance vector.
+            ! This is done because in a regular disruption, the first body is the largest, the second the second largest, and the rest are smaller equal-mass fragments.
+
+            call random_number(x_frag(:,3:nfrag))
+            loverlap(:) = .true.
+            do while (any(loverlap(3:nfrag)))
+               x_frag(:, 1) = x(:, 1) - xcom(:) 
+               x_frag(:, 2) = x(:, 2) - xcom(:) 
+               r_max = r_max + 0.1_DP * rad
+               do i = 3, nfrag
+                  if (loverlap(i)) then
+                     call random_number(x_frag(:,i))
+                     x_frag(:, i) = 2 * (x_frag(:, i) - 0.5_DP) * r_max 
+                  end if
+               end do
+               loverlap(:) = .false.
+               do j = 1, nfrag
+                  do i = j + 1, nfrag
+                     dis = norm2(x_frag(:,j) - x_frag(:,i))
+                     loverlap(i) = loverlap(i) .or. (dis <= (rad_frag(i) + rad_frag(j))) 
+                  end do
                end do
             end do
-         end do
-         call shift_vector_to_origin(m_frag, x_frag)
-
-         do i = 1, nfrag
-            rmag(i) = norm2(x_frag(:, i))
-            v_r_unit(:, i) = x_frag(:, i) / rmag(i)
-            call random_number(L_sigma(:)) ! Randomize the tangential velocity direction. This helps to ensure that the tangential velocity doesn't completely line up with the angular momentum vector,
-                                          ! otherwise we can get an ill-conditioned system
-            v_h_unit(:, i) = z_col_unit(:) + 2e-1_DP * (L_sigma(:) - 0.5_DP)
-            v_h_unit(:, i) = v_h_unit(:, i) / norm2(v_h_unit(:, i)) 
-            v_t_unit(:, i) = v_h_unit(:, i) .cross. v_r_unit(:, i)
-            xb_frag(:,i) = x_frag(:,i) + xcom(:)
-         end do
+            call shift_vector_to_origin(m_frag, x_frag)
+
+            do i = 1, nfrag
+               rmag(i) = norm2(x_frag(:, i))
+               v_r_unit(:, i) = x_frag(:, i) / rmag(i)
+               call random_number(L_sigma(:)) ! Randomize the tangential velocity direction. This helps to ensure that the tangential velocity doesn't completely line up with the angular momentum vector,
+                                             ! otherwise we can get an ill-conditioned system
+               v_h_unit(:, i) = z_col_unit(:) + 2e-1_DP * (L_sigma(:) - 0.5_DP)
+               v_h_unit(:, i) = v_h_unit(:, i) / norm2(v_h_unit(:, i)) 
+               v_t_unit(:, i) = v_h_unit(:, i) .cross. v_r_unit(:, i)
+               xb_frag(:,i) = x_frag(:,i) + xcom(:)
+            end do
+
+            call add_fragments_to_tmpsys()
+
+            xcom(:) = 0.0_DP
+            do i = 1, nfrag
+               xcom(:) = xcom(:) + m_frag(i) * xb_frag(:,i) 
+            end do
+            xcom(:) = xcom(:) / mtot
 
-         return
-      end subroutine set_fragment_position_vectors
-
-      subroutine set_fragment_tan_vel(lerr)
-         !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton
-         !!
-         !! Adjusts the tangential velocities and spins of a collection of fragments such that they conserve angular momentum without blowing the fragment kinetic energy budget.
-         !! This procedure works in several stages, with a goal to solve the angular and linear momentum constraints on the fragments, while still leaving a positive balance of
-         !! our fragment kinetic energy (ke_frag_budget) that we can put into the radial velocity distribution.
-         !!
-         !! The first thing we'll try to do is solve for the tangential velocities of the first 6 fragments, using angular and linear momentum as constraints and an initial
-         !! tangential velocity distribution for the remaining bodies (if there are any) that distributes their angular momentum equally between them.
-         !! If that doesn't work and we blow our kinetic energy budget, we will attempt to find a tangential velocity distribution that minimizes the kinetic energy while
-         !! conserving momentum. 
-         !!
-         !! A failure will trigger a restructuring of the fragments so we will try new values of the radial position distribution.
-         implicit none
-         ! Arguments
-         logical, intent(out)  :: lerr
-         ! Internals
-         integer(I4B) :: i
-         real(DP), parameter                  :: TOL = 1e-4_DP
-         real(DP), dimension(:), allocatable  :: v_t_initial
-         type(lambda_obj)                     :: spinfunc
-         type(lambda_obj_err)                 :: objective_function
-         real(DP), dimension(NDIM) :: L_frag_spin, L_remainder, Li, rot_L, rot_ke
-
-         ! Initialize the fragments with 0 velocity and spin so we can divide up the balance between the tangential, radial, and spin components while conserving momentum
-         lerr = .false.
-         vb_frag(:,:) = 0.0_DP
-         rot_frag(:,:) = 0.0_DP
-         v_t_mag(:) = 0.0_DP
-         v_r_mag(:) = 0.0_DP
-
-         call calculate_system_energy(linclude_fragments=.true.)
-         ke_frag_budget = -dEtot - Qloss
-         !write(*,*) '***************************************************'
-         !write(*,*) 'Original dis   : ',norm2(x(:,2) - x(:,1))
-         !write(*,*) 'r_max          : ',r_max
-         !write(*,*) 'f_spin         : ',f_spin
-         !write(*,*) '***************************************************'
-         !write(*,*) 'Energy balance so far: '
-         !write(*,*) 'ke_frag_budget : ',ke_frag_budget
-         !write(*,*) 'ke_orbit_before: ',ke_orbit_before 
-         !write(*,*) 'ke_orbit_after : ',ke_orbit_after  
-         !write(*,*) 'ke_spin_before : ',ke_spin_before 
-         !write(*,*) 'ke_spin_after  : ',ke_spin_after  
-         !write(*,*) 'pe_before      : ',pe_before 
-         !write(*,*) 'pe_after       : ',pe_after  
-         !write(*,*) 'Qloss          : ',Qloss
-         !write(*,*) '***************************************************'
-         if (ke_frag_budget < 0.0_DP) then
-            write(*,*) 'Negative ke_frag_budget: ',ke_frag_budget
-            r_max_start = r_max_start / 2 
-            lerr = .true.
             return
-         end if
+         end subroutine set_fragment_position_vectors
 
-         allocate(v_t_initial, mold=v_t_mag)
 
-         L_frag_spin(:) = 0.0_DP
-         ke_frag_spin = 0.0_DP
-         ! Start the first two bodies with the same rotation as the original two impactors, then distribute the remaining angular momentum among the rest
-         do i = 1, 2
-            rot_frag(:, i) = rot(:, i)
-            L_frag_spin(:) = L_frag_spin(:) + m_frag(i) * rad_frag(i)**2 * Ip_frag(3, i) * rot_frag(:, i)
-         end do
-         L_frag_orb(:) =  L_frag_tot(:) - L_frag_spin(:)
-         L_frag_spin(:) = 0.0_DP
-         do i = 1, nfrag
-            ! Convert a fraction (f_spin) of either the remaining angular momentum or kinetic energy budget into spin, whichever gives the smaller rotation so as not to blow any budgets
-            rot_ke(:) = sqrt(2 * f_spin * ke_frag_budget / (nfrag * m_frag(i) * rad_frag(i)**2 * Ip_frag(3, i))) * L_frag_orb(:) / norm2(L_frag_orb(:))
-            rot_L(:) = f_spin * L_frag_orb(:) / (nfrag * m_frag(i) * rad_frag(i)**2 * Ip_frag(3, i))
-            if (norm2(rot_ke) < norm2(rot_L)) then
-               rot_frag(:,i) = rot_frag(:, i) + rot_ke(:)
-            else
-               rot_frag(:, i) = rot_frag(:, i) + rot_L(:)
+         subroutine set_fragment_tan_vel(lerr)
+            !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton
+            !!
+            !! Adjusts the tangential velocities and spins of a collection of fragments such that they conserve angular momentum without blowing the fragment kinetic energy budget.
+            !! This procedure works in several stages, with a goal to solve the angular and linear momentum constraints on the fragments, while still leaving a positive balance of
+            !! our fragment kinetic energy (ke_frag_budget) that we can put into the radial velocity distribution.
+            !!
+            !! The first thing we'll try to do is solve for the tangential velocities of the first 6 fragments, using angular and linear momentum as constraints and an initial
+            !! tangential velocity distribution for the remaining bodies (if there are any) that distributes their angular momentum equally between them.
+            !! If that doesn't work and we blow our kinetic energy budget, we will attempt to find a tangential velocity distribution that minimizes the kinetic energy while
+            !! conserving momentum. 
+            !!
+            !! A failure will trigger a restructuring of the fragments so we will try new values of the radial position distribution.
+            implicit none
+            ! Arguments
+            logical, intent(out)  :: lerr
+            ! Internals
+            integer(I4B) :: i
+            real(DP), parameter                  :: TOL = 1e-4_DP
+            real(DP), dimension(:), allocatable  :: v_t_initial
+            real(DP), dimension(nfrag)           :: kefrag
+            type(lambda_obj)                     :: spinfunc
+            type(lambda_obj_err)                 :: objective_function
+            real(DP), dimension(NDIM) :: L_frag_spin, L_remainder, Li, rot_L, rot_ke
+
+            lerr = .false.
+
+            if (ke_frag_budget < 0.0_DP) then
+               write(*,*) 'Negative ke_frag_budget: ',ke_frag_budget
+               r_max_start = r_max_start / 2 
+               lerr = .true.
+               return
             end if
-            L_frag_spin(:) = L_frag_spin(:) + m_frag(i) * rad_frag(i)**2 * Ip_frag(3, i) * rot_frag(:, i)
-            ke_frag_spin = ke_frag_spin + m_frag(i) * Ip_frag(3, i) * rad_frag(i)**2 * dot_product(rot_frag(:, i), rot_frag(:, i))
-         end do
-         ke_frag_spin = 0.5_DP * ke_frag_spin
-         ! Convert a fraction of the pre-impact angular momentum into fragment spin angular momentum
-         L_frag_orb(:) =  L_frag_tot(:) - L_frag_spin(:)
-         L_remainder(:) = L_frag_orb(:)
-         ! Next we will solve for the tangential component of the velocities that both conserves linear momentum and uses the remaining angular momentum not used in spin.
-         ! This will be done using a linear solver that solves for the tangential velocities of the first 6 fragments, constrained by the linear and angular momentum vectors, 
-         ! which is embedded in a non-linear minimizer that will adjust the tangential velocities of the remaining i>6 fragments to minimize kinetic energy for a given momentum solution
-         ! The initial conditions fed to the minimizer for the fragments will be the remaining angular momentum distributed between the fragments.
-         do i = 1, nfrag
-            v_t_initial(i) = norm2(L_remainder(:)) / ((nfrag - i + 1) * m_frag(i) * norm2(x_frag(:,i)))
-            Li(:) = m_frag(i) * x_frag(:,i) .cross. v_t_initial(i) * v_t_unit(:, i)
-            L_remainder(:) = L_remainder(:) - Li(:)
-         end do
 
-         ! Find the local kinetic energy minimum for the system that conserves linear and angular momentum
-         objective_function = lambda_obj(tangential_objective_function, lerr)
-         v_t_mag(7:nfrag) = util_minimize_bfgs(objective_function, nfrag-6, v_t_initial(7:nfrag), TOL, lerr)
-         ! Now that the KE-minimized values of the i>6 fragments are found, calculate the momentum-conserving solution for tangential velociteis
-         v_t_initial(7:nfrag) = v_t_mag(7:nfrag)
-         v_t_mag(1:nfrag) = solve_fragment_tan_vel(v_t_mag_input=v_t_initial(7:nfrag), lerr=lerr)
-
-         ! Perform one final shift of the radial velocity vectors to align with the center of mass of the collisional system (the origin)
-         vb_frag(:,1:nfrag) = vmag_to_vb(v_r_mag(1:nfrag), v_r_unit(:,1:nfrag), v_t_mag(1:nfrag), v_t_unit(:,1:nfrag), m_frag(1:nfrag), vcom(:)) 
-         ! Now do a kinetic energy budget check to make sure we are still within the budget.
-         ke_frag_orbit = 0.0_DP
-         do i = 1, nfrag
-            v_frag(:, i) = vb_frag(:, i) - vcom(:)
-            ke_frag_orbit = ke_frag_orbit + m_frag(i) * dot_product(vb_frag(:, i), vb_frag(:, i))
-         end do
-         ke_frag_orbit = 0.5_DP * ke_frag_orbit
-         ke_radial = ke_frag_budget - ke_frag_orbit - ke_frag_spin
+            allocate(v_t_initial, mold=v_t_mag)
 
-         ! If we are over the energy budget, flag this as a failure so we can try again
-         lerr = (ke_radial < 0.0_DP)
-         !write(*,*) 'Tangential'
-         !write(*,*) 'ke_frag_budget: ',ke_frag_budget
-         !write(*,*) 'ke_frag_orbit : ',ke_frag_orbit
-         !write(*,*) 'ke_frag_spin  : ',ke_frag_spin
-         !write(*,*) 'ke_radial     : ',ke_radial
+            L_frag_spin(:) = 0.0_DP
+            ke_frag_spin = 0.0_DP
+            ! Start the first two bodies with the same rotation as the original two impactors, then distribute the remaining angular momentum among the rest
+            do i = 1, 2
+               rot_frag(:, i) = rot(:, i)
+               L_frag_spin(:) = L_frag_spin(:) + m_frag(i) * rad_frag(i)**2 * Ip_frag(3, i) * rot_frag(:, i)
+            end do
+            L_frag_orb(:) =  L_frag_tot(:) - L_frag_spin(:)
+            L_frag_spin(:) = 0.0_DP
+            do i = 1, nfrag
+               ! Convert a fraction (f_spin) of either the remaining angular momentum or kinetic energy budget into spin, whichever gives the smaller rotation so as not to blow any budgets
+               rot_ke(:) = sqrt(2 * f_spin * ke_frag_budget / (nfrag * m_frag(i) * rad_frag(i)**2 * Ip_frag(3, i))) * L_frag_orb(:) / norm2(L_frag_orb(:))
+               rot_L(:) = f_spin * L_frag_orb(:) / (nfrag * m_frag(i) * rad_frag(i)**2 * Ip_frag(3, i))
+               if (norm2(rot_ke) < norm2(rot_L)) then
+                  rot_frag(:,i) = rot_frag(:, i) + rot_ke(:)
+               else
+                  rot_frag(:, i) = rot_frag(:, i) + rot_L(:)
+               end if
+               L_frag_spin(:) = L_frag_spin(:) + m_frag(i) * rad_frag(i)**2 * Ip_frag(3, i) * rot_frag(:, i)
+               ke_frag_spin = ke_frag_spin + m_frag(i) * Ip_frag(3, i) * rad_frag(i)**2 * dot_product(rot_frag(:, i), rot_frag(:, i))
+            end do
+            ke_frag_spin = 0.5_DP * ke_frag_spin
+            ! Convert a fraction of the pre-impact angular momentum into fragment spin angular momentum
+            L_frag_orb(:) =  L_frag_tot(:) - L_frag_spin(:)
+            L_remainder(:) = L_frag_orb(:)
+            ! Next we will solve for the tangential component of the velocities that both conserves linear momentum and uses the remaining angular momentum not used in spin.
+            ! This will be done using a linear solver that solves for the tangential velocities of the first 6 fragments, constrained by the linear and angular momentum vectors, 
+            ! which is embedded in a non-linear minimizer that will adjust the tangential velocities of the remaining i>6 fragments to minimize kinetic energy for a given momentum solution
+            ! The initial conditions fed to the minimizer for the fragments will be the remaining angular momentum distributed between the fragments.
+            do i = 1, nfrag
+               v_t_initial(i) = norm2(L_remainder(:)) / ((nfrag - i + 1) * m_frag(i) * norm2(x_frag(:,i)))
+               Li(:) = m_frag(i) * x_frag(:,i) .cross. v_t_initial(i) * v_t_unit(:, i)
+               L_remainder(:) = L_remainder(:) - Li(:)
+            end do
 
-         return
+            ! Find the local kinetic energy minimum for the system that conserves linear and angular momentum
+            objective_function = lambda_obj(tangential_objective_function, lerr)
+            v_t_mag(7:nfrag) = util_minimize_bfgs(objective_function, nfrag-6, v_t_initial(7:nfrag), TOL, lerr)
+            ! Now that the KE-minimized values of the i>6 fragments are found, calculate the momentum-conserving solution for tangential velociteis
+            v_t_initial(7:nfrag) = v_t_mag(7:nfrag)
+            v_t_mag(1:nfrag) = solve_fragment_tan_vel(v_t_mag_input=v_t_initial(7:nfrag), lerr=lerr)
+
+            ! Perform one final shift of the radial velocity vectors to align with the center of mass of the collisional system (the origin)
+            vb_frag(:,1:nfrag) = vmag_to_vb(v_r_mag(1:nfrag), v_r_unit(:,1:nfrag), v_t_mag(1:nfrag), v_t_unit(:,1:nfrag), m_frag(1:nfrag), vcom(:)) 
+            call add_fragments_to_tmpsys()
+
+            ! Now do a kinetic energy budget check to make sure we are still within the budget.
+            kefrag = 0.0_DP
+            do concurrent(i = 1:nfrag)
+               v_frag(:, i) = vb_frag(:, i) - vcom(:)
+               kefrag(i) = m_frag(i) * dot_product(vb_frag(:, i), vb_frag(:, i))
+            end do
+            ke_frag_orbit = 0.5_DP * sum(kefrag(:))
+            ke_radial = ke_frag_budget - ke_frag_orbit - ke_frag_spin
+
+            ! If we are over the energy budget, flag this as a failure so we can try again
+            lerr = (ke_radial < 0.0_DP)
+            ! write(*,*) 'Tangential'
+            ! write(*,*) 'Failure? ',lerr
+            ! write(*,*) 'ke_frag_budget: ',ke_frag_budget
+            ! write(*,*) 'ke_frag_spin  : ',ke_frag_spin
+            ! write(*,*) 'ke_tangential : ',ke_frag_orbit
+            ! write(*,*) 'ke_remainder  : ',ke_radial
 
-      end subroutine set_fragment_tan_vel
-
-      function tangential_objective_function(v_t_mag_input, lerr) result(fval)
-         !! Author: David A. Minton
-         !!
-         !! Objective function for evaluating how close our fragment velocities get to minimizing KE error from our required value
-         implicit none
-         ! Arguments
-         real(DP), dimension(:),   intent(in)  :: v_t_mag_input   !! Unknown tangential component of velocity vector set previously by angular momentum constraint
-         logical,                  intent(out) :: lerr            !! Error flag
-         ! Result
-         real(DP)                              :: fval
-         ! Internals
-         integer(I4B) :: i
-         real(DP), dimension(:,:), allocatable :: v_shift
-         real(DP), dimension(:), allocatable :: v_t_new
-         real(DP) :: keo
-
-         lerr = .false.
-
-         allocate(v_shift(NDIM, nfrag))
-         allocate(v_t_new(nfrag))
-
-         v_t_new(:) = solve_fragment_tan_vel(v_t_mag_input=v_t_mag_input(:), lerr=lerr)
-         v_shift(:,:) = vmag_to_vb(v_r_mag, v_r_unit, v_t_new, v_t_unit, m_frag, vcom) 
-
-         keo = 0.0_DP
-         do i = 1, nfrag
-            keo = keo + m_frag(i) * dot_product(v_shift(:, i), v_shift(:, i))
-         end do
-         keo = 0.5_DP * keo
-         fval = keo 
-         lerr = .false.
-         return
-      end function tangential_objective_function
-
-      function solve_fragment_tan_vel(lerr, v_t_mag_input) result(v_t_mag_output)
-         !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton
-         !!
-         !! Adjusts the positions, velocities, and spins of a collection of fragments such that they conserve angular momentum
-         implicit none
-         ! Arguments
-         logical,                          intent(out) :: lerr            !! Error flag 
-         real(DP), dimension(:), optional, intent(in)  :: v_t_mag_input   !! Unknown tangential velocities for fragments 7:nfrag
-         ! Internals
-         integer(I4B)                            :: i
-         ! Result
-         real(DP), dimension(:), allocatable     :: v_t_mag_output
-
-         real(DP), dimension(2 * NDIM, 2 * NDIM) :: A ! LHS of linear equation used to solve for momentum constraint in Gauss elimination code
-         real(DP), dimension(2 * NDIM)           :: b  ! RHS of linear equation used to solve for momentum constraint in Gauss elimination code
-         real(DP), dimension(NDIM)               :: L_lin_others, L_orb_others, L, vtmp
-
-         v_frag(:,:) = 0.0_DP
-         lerr = .false.
-
-         ! We have 6 constraint equations (2 vector constraints in 3 dimensions each)
-         ! The first 3 are that the linear momentum of the fragments is zero with respect to the collisional barycenter
-         ! The second 3 are that the sum of the angular momentum of the fragments is conserved from the pre-impact state
-         L_lin_others(:) = 0.0_DP
-         L_orb_others(:) = 0.0_DP
-         do i = 1, nfrag
-            if (i <= 2 * NDIM) then ! The tangential velocities of the first set of bodies will be the unknowns we will solve for to satisfy the constraints
-               A(1:3, i) = m_frag(i) * v_t_unit(:, i) 
-               L(:) = v_r_unit(:, i) .cross. v_t_unit(:, i)
-               A(4:6, i) = m_frag(i) * rmag(i) * L(:)
-            else if (present(v_t_mag_input)) then
-               vtmp(:) = v_t_mag_input(i - 6) * v_t_unit(:, i)
-               L_lin_others(:) = L_lin_others(:) + m_frag(i) * vtmp(:)
-               L(:) = x_frag(:, i) .cross. vtmp(:)
-               L_orb_others(:) = L_orb_others(:) + m_frag(i) * L(:)
-            end if
-         end do
-         b(1:3) = -L_lin_others(:)
-         b(4:6) = L_frag_orb(:) - L_orb_others(:)
-         allocate(v_t_mag_output(nfrag))
-         v_t_mag_output(1:6) = util_solve_linear_system(A, b, 6, lerr)
-         if (present(v_t_mag_input)) v_t_mag_output(7:nfrag) = v_t_mag_input(:)
-
-         return 
-      end function solve_fragment_tan_vel
-
-      subroutine set_fragment_radial_velocities(lerr)
-         !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton
-         !!
-         !! 
-         !! Adjust the fragment velocities to set the fragment orbital kinetic energy. This will minimize the difference between the fragment kinetic energy and the energy budget
-         implicit none
-         ! Arguments
-         logical,                intent(out)   :: lerr
-         ! Internals
-         real(DP), parameter                   :: TOL = 1e-10_DP
-         integer(I4B)                          :: i, j
-         real(DP), dimension(:), allocatable   :: v_r_initial, v_r_sigma
-         real(DP), dimension(:,:), allocatable :: v_r
-         type(lambda_obj)                      :: objective_function
-
-         ! Set the "target" ke_orbit_after (the value of the orbital kinetic energy that the fragments ought to have)
-         
-         allocate(v_r_initial, source=v_r_mag)
-         ! Initialize radial velocity magnitudes with a random value that is approximately 10% of that found by distributing the kinetic energy equally
-         allocate(v_r_sigma, source=v_r_mag)
-         call random_number(v_r_sigma(1:nfrag))
-         v_r_sigma(1:nfrag) = sqrt(1.0_DP + 2 * (v_r_sigma(1:nfrag) - 0.5_DP) * 1e-4_DP) 
-         v_r_initial(1:nfrag) = v_r_sigma(1:nfrag) * sqrt(abs(ke_radial) / (2 * m_frag(1:nfrag) * nfrag)) 
-
-         ! Initialize the lambda function using a structure constructor that calls the init method
-         ! Minimize the ke objective function using the BFGS optimizer
-         objective_function = lambda_obj(radial_objective_function)
-         v_r_mag = util_minimize_bfgs(objective_function, nfrag, v_r_initial, TOL, lerr)
-         ! Shift the radial velocity vectors to align with the center of mass of the collisional system (the origin)
-         vb_frag(:,1:nfrag) = vmag_to_vb(v_r_mag(1:nfrag), v_r_unit(:,1:nfrag), v_t_mag(1:nfrag), v_t_unit(:,1:nfrag), m_frag(1:nfrag), vcom(:)) 
-         do i = 1, nfrag
-            v_frag(:, i) = vb_frag(:, i) - vcom(:)
-         end do
-         ke_frag_orbit = 0.0_DP
-         do i = 1, nfrag
-            ke_frag_orbit = ke_frag_orbit + m_frag(i) * dot_product(vb_frag(:, i), vb_frag(:, i))
-         end do
-         ke_frag_orbit = 0.5_DP * ke_frag_orbit
-         !write(*,*) 'Radial'
-         !write(*,*) 'Failure? ',lerr 
-         !write(*,*) 'ke_frag_budget: ',ke_frag_budget
-         !write(*,*) 'ke_frag_orbit : ',ke_frag_orbit
-         !write(*,*) 'ke_frag_spin  : ',ke_frag_spin
-         !write(*,*) 'ke_remainder  : ',ke_frag_budget - (ke_frag_orbit + ke_frag_spin)
-         lerr = .false.
+            return
+         end subroutine set_fragment_tan_vel
 
-         return
-      end subroutine set_fragment_radial_velocities
-
-      function radial_objective_function(v_r_mag_input) result(fval) 
-         !! Author: David A. Minton
-         !!
-         !! Objective function for evaluating how close our fragment velocities get to minimizing KE error from our required value
-         implicit none
-         ! Arguments
-         real(DP), dimension(:),   intent(in)  :: v_r_mag_input   !! Unknown radial component of fragment velocity vector
-         ! Result
-         real(DP)                              :: fval      !! The objective function result, which is the square of the difference between the calculated fragment kinetic energy and our target
-                                                            !! Minimizing this brings us closer to our objective
-         ! Internals
-         integer(I4B)                         :: i
-         real(DP), dimension(:,:), allocatable :: v_shift
-
-         allocate(v_shift, mold=vb_frag)
-         v_shift(:,:) = vmag_to_vb(v_r_mag_input, v_r_unit, v_t_mag, v_t_unit, m_frag, vcom) 
-         fval = 2 * ke_frag_budget 
-         do i = 1, nfrag
-            fval = fval - m_frag(i) * (Ip_frag(3, i) * rad_frag(i)**2 * dot_product(rot_frag(:, i), rot_frag(:, i)) + dot_product(v_shift(:, i), v_shift(:, i)))
-         end do
-         ! The following ensures that fval = 0 is a local minimum, which is what the BFGS method is searching for
-         fval = (fval / (2 * ke_radial))**2
 
-         return
+         function tangential_objective_function(v_t_mag_input, lerr) result(fval)
+            !! Author: David A. Minton
+            !!
+            !! Objective function for evaluating how close our fragment velocities get to minimizing KE error from our required value
+            implicit none
+            ! Arguments
+            real(DP), dimension(:),   intent(in)  :: v_t_mag_input   !! Unknown tangential component of velocity vector set previously by angular momentum constraint
+            logical,                  intent(out) :: lerr            !! Error flag
+            ! Result
+            real(DP)                              :: fval
+            ! Internals
+            integer(I4B) :: i
+            real(DP), dimension(NDIM,nfrag) :: v_shift
+            real(DP), dimension(nfrag) :: v_t_new, kearr
+            real(DP) :: keo
 
-      end function radial_objective_function
-
-      function vmag_to_vb(v_r_mag, v_r_unit, v_t_mag, v_t_unit, m_frag, vcom) result(vb) 
-         !! Author: David A. Minton
-         !!
-         !! Converts radial and tangential velocity magnitudes into barycentric velocity
-         implicit none
-         ! Arguments
-         real(DP), dimension(:),   intent(in)  :: v_r_mag   !! Unknown radial component of fragment velocity vector
-         real(DP), dimension(:),   intent(in)  :: v_t_mag   !! Tangential component of velocity vector set previously by angular momentum constraint
-         real(DP), dimension(:,:), intent(in)  :: v_r_unit, v_t_unit !! Radial and tangential unit vectors for each fragment
-         real(DP), dimension(:),   intent(in)  :: m_frag    !! Fragment masses
-         real(DP), dimension(:),   intent(in)  :: vcom      !! Barycentric velocity of collisional system center of mass
-         ! Result
-         real(DP), dimension(:,:), allocatable   :: vb
-         ! Internals
-         integer(I4B) :: i
-
-         allocate(vb, mold=v_r_unit)
-         ! Make sure the velocity magnitude stays positive
-         do i = 1, nfrag
-            vb(:,i) = abs(v_r_mag(i)) * v_r_unit(:, i)
-         end do
-         ! In order to keep satisfying the kinetic energy constraint, we must shift the origin of the radial component of the velocities to the center of mass
-         call shift_vector_to_origin(m_frag, vb)
-         
-         do i = 1, nfrag
-            vb(:, i) = vb(:, i) + v_t_mag(i) * v_t_unit(:, i) + vcom(:)
-         end do
+            lerr = .false.
 
-      end function vmag_to_vb
-
-      subroutine restructure_failed_fragments()
-         !! Author: David A. Minton
-         !!
-         !! We failed to find a set of positions and velocities that satisfy all the constraints, and so we will alter the fragments and try again.
-         implicit none
-         integer(I4B) :: i
-         real(DP), dimension(:), allocatable  :: m_frag_new, rad_frag_new
-         real(DP), dimension(:,:), allocatable  :: xb_frag_new, vb_frag_new, Ip_frag_new, rot_frag_new
-         real(DP) :: delta_r, delta_r_max
-         real(DP), parameter :: ke_avg_deficit_target = 0.0_DP 
-
-         ! Introduce a bit of noise in the radius determination so we don't just flip flop between similar failed positions
-         call random_number(delta_r_max)
-         delta_r_max = sum(radius(:)) * (1.0_DP + 2e-1_DP * (delta_r_max - 0.5_DP))
-         if (try > 2) then
-            ! Linearly interpolate the last two failed solution ke deficits to find a new distance value to try
-            delta_r = (r_max_start - r_max_start_old) * (ke_avg_deficit_target - ke_avg_deficit_old) / (ke_avg_deficit - ke_avg_deficit_old)
-            if (abs(delta_r) > delta_r_max) delta_r = sign(delta_r_max, delta_r)
-         else
-            delta_r = delta_r_max
-         end if
-         r_max_start_old = r_max_start
-         r_max_start = r_max_start + delta_r ! The larger lever arm can help if the problem is in the angular momentum step
-         if (f_spin > epsilon(1.0_DP)) then
-            f_spin = f_spin / 2
-         else
-            f_spin = 0.0_DP
-         end if
-      end subroutine restructure_failed_fragments
+            v_t_new(:) = solve_fragment_tan_vel(v_t_mag_input=v_t_mag_input(:), lerr=lerr)
+            v_shift(:,:) = vmag_to_vb(v_r_mag, v_r_unit, v_t_new, v_t_unit, m_frag, vcom) 
 
+            kearr = 0.0_DP
+            do concurrent(i = 1:nfrag)
+               kearr(i) = m_frag(i) * dot_product(v_shift(:, i), v_shift(:, i))
+            end do
+            keo = 0.5_DP * sum(kearr(:))
+            fval = keo 
+            lerr = .false.
 
-   end subroutine fragmentation_initialize
+            return
+         end function tangential_objective_function
+
+
+         function solve_fragment_tan_vel(lerr, v_t_mag_input) result(v_t_mag_output)
+            !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton
+            !!
+            !! Adjusts the positions, velocities, and spins of a collection of fragments such that they conserve angular momentum
+            implicit none
+            ! Arguments
+            logical,                          intent(out) :: lerr            !! Error flag 
+            real(DP), dimension(:), optional, intent(in)  :: v_t_mag_input   !! Unknown tangential velocities for fragments 7:nfrag
+            ! Internals
+            integer(I4B)                            :: i
+            ! Result
+            real(DP), dimension(:), allocatable     :: v_t_mag_output
+
+            real(DP), dimension(2 * NDIM, 2 * NDIM) :: A ! LHS of linear equation used to solve for momentum constraint in Gauss elimination code
+            real(DP), dimension(2 * NDIM)           :: b  ! RHS of linear equation used to solve for momentum constraint in Gauss elimination code
+            real(DP), dimension(NDIM)               :: L_lin_others, L_orb_others, L, vtmp
+
+            v_frag(:,:) = 0.0_DP
+            lerr = .false.
+
+            ! We have 6 constraint equations (2 vector constraints in 3 dimensions each)
+            ! The first 3 are that the linear momentum of the fragments is zero with respect to the collisional barycenter
+            ! The second 3 are that the sum of the angular momentum of the fragments is conserved from the pre-impact state
+            L_lin_others(:) = 0.0_DP
+            L_orb_others(:) = 0.0_DP
+            do i = 1, nfrag
+               if (i <= 2 * NDIM) then ! The tangential velocities of the first set of bodies will be the unknowns we will solve for to satisfy the constraints
+                  A(1:3, i) = m_frag(i) * v_t_unit(:, i) 
+                  L(:) = v_r_unit(:, i) .cross. v_t_unit(:, i)
+                  A(4:6, i) = m_frag(i) * rmag(i) * L(:)
+               else if (present(v_t_mag_input)) then
+                  vtmp(:) = v_t_mag_input(i - 6) * v_t_unit(:, i)
+                  L_lin_others(:) = L_lin_others(:) + m_frag(i) * vtmp(:)
+                  L(:) = x_frag(:, i) .cross. vtmp(:)
+                  L_orb_others(:) = L_orb_others(:) + m_frag(i) * L(:)
+               end if
+            end do
+            b(1:3) = -L_lin_others(:)
+            b(4:6) = L_frag_orb(:) - L_orb_others(:)
+            allocate(v_t_mag_output(nfrag))
+            v_t_mag_output(1:6) = util_solve_linear_system(A, b, 6, lerr)
+            if (present(v_t_mag_input)) v_t_mag_output(7:nfrag) = v_t_mag_input(:)
+
+            return 
+         end function solve_fragment_tan_vel
+
+
+         subroutine set_fragment_radial_velocities(lerr)
+            !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton
+            !!
+            !! 
+            !! Adjust the fragment velocities to set the fragment orbital kinetic energy. This will minimize the difference between the fragment kinetic energy and the energy budget
+            implicit none
+            ! Arguments
+            logical,                intent(out)   :: lerr
+            ! Internals
+            real(DP), parameter                   :: TOL = 1e-10_DP
+            integer(I4B)                          :: i, j
+            real(DP), dimension(:), allocatable   :: v_r_initial, v_r_sigma
+            real(DP), dimension(:,:), allocatable :: v_r
+            real(DP), dimension(nfrag)            :: kearr, kespinarr
+            type(lambda_obj)                      :: objective_function
+
+            ! Set the "target" ke_orbit_after (the value of the orbital kinetic energy that the fragments ought to have)
+            
+            allocate(v_r_initial, source=v_r_mag)
+            ! Initialize radial velocity magnitudes with a random value that is approximately 10% of that found by distributing the kinetic energy equally
+            allocate(v_r_sigma, source=v_r_mag)
+            call random_number(v_r_sigma(1:nfrag))
+            v_r_sigma(1:nfrag) = sqrt(1.0_DP + 2 * (v_r_sigma(1:nfrag) - 0.5_DP) * 1e-4_DP) 
+            v_r_initial(1:nfrag) = v_r_sigma(1:nfrag) * sqrt(abs(2 * ke_radial) / (m_frag(1:nfrag) * nfrag)) 
+
+            ! Initialize the lambda function using a structure constructor that calls the init method
+            ! Minimize the ke objective function using the BFGS optimizer
+            objective_function = lambda_obj(radial_objective_function)
+            v_r_mag = util_minimize_bfgs(objective_function, nfrag, v_r_initial, TOL, lerr)
+            ! Shift the radial velocity vectors to align with the center of mass of the collisional system (the origin)
+            vb_frag(:,1:nfrag) = vmag_to_vb(v_r_mag(1:nfrag), v_r_unit(:,1:nfrag), v_t_mag(1:nfrag), v_t_unit(:,1:nfrag), m_frag(1:nfrag), vcom(:)) 
+            do i = 1, nfrag
+               v_frag(:, i) = vb_frag(:, i) - vcom(:)
+            end do
+            call add_fragments_to_tmpsys()
+
+            do concurrent(i = 1:nfrag)
+               kearr(i) = m_frag(i) * dot_product(vb_frag(:, i), vb_frag(:, i))
+               kespinarr(i) = m_frag(i) * Ip_frag(3, i) * rad_frag(i)**2 * dot_product(rot_frag(:,i), rot_frag(:,i))
+            end do
+            ke_frag_orbit = 0.5_DP * sum(kearr(:))
+            ke_frag_spin = 0.5_DP * sum(kespinarr(:))
+            ! write(*,*) 'Radial'
+            ! write(*,*) 'Failure? ',lerr 
+            ! write(*,*) 'ke_frag_budget: ',ke_frag_budget
+            ! write(*,*) 'ke_frag_spin  : ',ke_frag_spin
+            ! write(*,*) 'ke_frag_orbit : ',ke_frag_orbit
+            ! write(*,*) 'ke_remainder  : ',ke_frag_budget - (ke_frag_orbit + ke_frag_spin)
+            lerr = .false.
+
+            return
+         end subroutine set_fragment_radial_velocities
+
+
+         function radial_objective_function(v_r_mag_input) result(fval) 
+            !! Author: David A. Minton
+            !!
+            !! Objective function for evaluating how close our fragment velocities get to minimizing KE error from our required value
+            implicit none
+            ! Arguments
+            real(DP), dimension(:),   intent(in)  :: v_r_mag_input   !! Unknown radial component of fragment velocity vector
+            ! Result
+            real(DP)                              :: fval      !! The objective function result, which is the square of the difference between the calculated fragment kinetic energy and our target
+                                                               !! Minimizing this brings us closer to our objective
+            ! Internals
+            integer(I4B)                         :: i
+            real(DP), dimension(:,:), allocatable :: v_shift
+            real(DP), dimension(nfrag)             :: kearr
+            real(DP)                               :: keo
+
+            allocate(v_shift, mold=vb_frag)
+            v_shift(:,:) = vmag_to_vb(v_r_mag_input, v_r_unit, v_t_mag, v_t_unit, m_frag, vcom) 
+            do concurrent(i = 1:nfrag)
+               kearr(i) = m_frag(i) * (Ip_frag(3, i) * rad_frag(i)**2 * dot_product(rot_frag(:, i), rot_frag(:, i)) + dot_product(v_shift(:, i), v_shift(:, i)))
+            end do
+            keo = 2 * ke_frag_budget - sum(kearr(:))
+            ! The following ensures that fval = 0 is a local minimum, which is what the BFGS method is searching for
+            fval = (keo / (2 * ke_radial))**2
+
+            return
+         end function radial_objective_function
+
+
+         function vmag_to_vb(v_r_mag, v_r_unit, v_t_mag, v_t_unit, m_frag, vcom) result(vb) 
+            !! Author: David A. Minton
+            !!
+            !! Converts radial and tangential velocity magnitudes into barycentric velocity
+            implicit none
+            ! Arguments
+            real(DP), dimension(:),   intent(in)  :: v_r_mag   !! Unknown radial component of fragment velocity vector
+            real(DP), dimension(:),   intent(in)  :: v_t_mag   !! Tangential component of velocity vector set previously by angular momentum constraint
+            real(DP), dimension(:,:), intent(in)  :: v_r_unit, v_t_unit !! Radial and tangential unit vectors for each fragment
+            real(DP), dimension(:),   intent(in)  :: m_frag    !! Fragment masses
+            real(DP), dimension(:),   intent(in)  :: vcom      !! Barycentric velocity of collisional system center of mass
+            ! Result
+            real(DP), dimension(:,:), allocatable   :: vb
+            ! Internals
+            integer(I4B) :: i
+
+            allocate(vb, mold=v_r_unit)
+            ! Make sure the velocity magnitude stays positive
+            do i = 1, nfrag
+               vb(:,i) = abs(v_r_mag(i)) * v_r_unit(:, i)
+            end do
+            ! In order to keep satisfying the kinetic energy constraint, we must shift the origin of the radial component of the velocities to the center of mass
+            call shift_vector_to_origin(m_frag, vb)
+            
+            do i = 1, nfrag
+               vb(:, i) = vb(:, i) + v_t_mag(i) * v_t_unit(:, i) + vcom(:)
+            end do
 
+            return
+         end function vmag_to_vb
+
+
+         subroutine restructure_failed_fragments()
+            !! Author: David A. Minton
+            !!
+            !! We failed to find a set of positions and velocities that satisfy all the constraints, and so we will alter the fragments and try again.
+            implicit none
+            integer(I4B) :: i
+            real(DP), dimension(:), allocatable  :: m_frag_new, rad_frag_new
+            real(DP), dimension(:,:), allocatable  :: xb_frag_new, vb_frag_new, Ip_frag_new, rot_frag_new
+            real(DP) :: delta_r, delta_r_max
+            real(DP), parameter :: ke_avg_deficit_target = 0.0_DP 
+
+            ! Introduce a bit of noise in the radius determination so we don't just flip flop between similar failed positions
+            call random_number(delta_r_max)
+            delta_r_max = sum(radius(:)) * (1.0_DP + 2e-1_DP * (delta_r_max - 0.5_DP))
+            if (try > 2) then
+               ! Linearly interpolate the last two failed solution ke deficits to find a new distance value to try
+               delta_r = (r_max_start - r_max_start_old) * (ke_avg_deficit_target - ke_avg_deficit_old) / (ke_avg_deficit - ke_avg_deficit_old)
+               if (abs(delta_r) > delta_r_max) delta_r = sign(delta_r_max, delta_r)
+            else
+               delta_r = delta_r_max
+            end if
+            r_max_start_old = r_max_start
+            r_max_start = r_max_start + delta_r ! The larger lever arm can help if the problem is in the angular momentum step
+            if (f_spin > epsilon(1.0_DP)) then
+               f_spin = f_spin / 2
+            else
+               f_spin = 0.0_DP
+            end if
+
+            return
+         end subroutine restructure_failed_fragments
+   end subroutine fragmentation_initialize
 
 
-   module subroutine fragmentation_regime(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, regime, Mlr, Mslr, Gmtiny, Qloss)
+   module subroutine fragmentation_regime(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, regime, Mlr, Mslr, mtiny, Qloss)
       !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton
       !!
       !! Determine the collisional regime of two colliding bodies. 
@@ -857,7 +921,7 @@ module subroutine fragmentation_regime(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, v
       ! Arguments
       integer(I4B), intent(out)         :: regime
       real(DP), intent(out)          :: Mlr, Mslr
-      real(DP), intent(in)           :: Mcb, m1, m2, rad1, rad2, den1, den2, Gmtiny 
+      real(DP), intent(in)           :: Mcb, m1, m2, rad1, rad2, den1, den2, mtiny 
       real(DP), dimension(:), intent(in)   :: xh1, xh2, vb1, vb2
       real(DP), intent(out)          :: Qloss !! The residual energy after the collision 
       ! Constants
@@ -931,7 +995,7 @@ module subroutine fragmentation_regime(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, v
       Qloss = 0.0_DP
       U_binding = (3.0_DP * Mtot) / (5.0_DP * Rp) ! LS12 eq. 27
 
-      if ((m1 < Gmtiny).or.(m2 < Gmtiny)) then 
+      if ((m1 < mtiny).or.(m2 < mtiny)) then 
          regime = COLLRESOLVE_REGIME_MERGE !perfect merging regime
          Mlr = Mtot
          Mslr = 0.0_DP
diff --git a/docs/src/io.f90 b/docs/src/io.f90
index 1e0e8d626..a80d54893 100644
--- a/docs/src/io.f90
+++ b/docs/src/io.f90
@@ -31,14 +31,15 @@ module subroutine io_conservation_report(self, param, lterminal)
                Euntracked => self%Euntracked, Eorbit_orig => param%Eorbit_orig, Mtot_orig => param%Mtot_orig, &
                Ltot_orig => param%Ltot_orig(:), Lmag_orig => param%Lmag_orig, Lorbit_orig => param%Lorbit_orig(:), Lspin_orig => param%Lspin_orig(:), &
                lfirst => param%lfirstenergy)
-         if (lfirst) then
-            if (param%out_stat == "OLD") then
-               open(unit = EGYIU, file = ENERGY_FILE, form = "formatted", status = "old", action = "write", position = "append")
-            else 
-               open(unit = EGYIU, file = ENERGY_FILE, form = "formatted", status = "replace", action = "write")
+         if (param%energy_out /= "") then
+            if (lfirst .and. (param%out_stat /= "OLD")) then
+               open(unit = EGYIU, file = param%energy_out, form = "formatted", status = "replace", action = "write")
+            else
+               open(unit = EGYIU, file = param%energy_out, form = "formatted", status = "old", action = "write", position = "append")
                write(EGYIU,EGYHEADER)
             end if
          end if
+         call pl%h2b(cb)
          call system%get_energy_and_momentum(param) 
          ke_orbit_now = system%ke_orbit
          ke_spin_now = system%ke_spin
@@ -58,8 +59,10 @@ module subroutine io_conservation_report(self, param, lterminal)
             lfirst = .false.
          end if
 
-         write(EGYIU,EGYFMT) param%t, Eorbit_now, Ecollisions, Ltot_now, Mtot_now
-         flush(EGYIU)
+         if (param%energy_out /= "") then
+            write(EGYIU,EGYFMT) param%t, Eorbit_now, Ecollisions, Ltot_now, Mtot_now
+            close(EGYIU)
+         end if
          if (.not.lfirst .and. lterminal) then 
             Lmag_now = norm2(Ltot_now)
             Lerror = norm2(Ltot_now - Ltot_orig) / Lmag_orig
@@ -126,7 +129,7 @@ module subroutine io_dump_param(self, param_file_name)
    end subroutine io_dump_param
 
 
-   module subroutine io_dump_swiftest(self, param, msg) 
+   module subroutine io_dump_swiftest(self, param)
       !! author: David A. Minton
       !!
       !! Dump massive body data to files
@@ -137,7 +140,6 @@ module subroutine io_dump_swiftest(self, param, msg)
       ! Arguments
       class(swiftest_base),       intent(inout) :: self   !! Swiftest base object
       class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters 
-      character(*), optional,     intent(in)    :: msg  !! Message to display with dump operation
       ! Internals
       integer(I4B)                   :: ierr    !! Error code
       integer(I4B),parameter         :: LUN = 7 !! Unit number for dump file
@@ -165,7 +167,7 @@ module subroutine io_dump_swiftest(self, param, msg)
    end subroutine io_dump_swiftest
 
 
-   module subroutine io_dump_system(self, param, msg)
+   module subroutine io_dump_system(self, param)
       !! author: David A. Minton
       !!
       !! Dumps the state of the system to files in case the simulation is interrupted.
@@ -175,35 +177,52 @@ module subroutine io_dump_system(self, param, msg)
       ! Arguments
       class(swiftest_nbody_system), intent(inout) :: self  !! Swiftest system object
       class(swiftest_parameters),   intent(inout) :: param !! Current run configuration parameters 
-      character(*), optional,       intent(in)    :: msg   !! Message to display with dump operation
       ! Internals
       class(swiftest_parameters), allocatable :: dump_param !! Local parameters variable used to parameters change input file names 
                                                             !! to dump file-specific values without changing the user-defined values
       integer(I4B), save            :: idx = 1              !! Index of current dump file. Output flips between 2 files for extra security
                                                             !! in case the program halts during writing
       character(len=:), allocatable :: param_file_name
-      real(DP) :: tfrac
-     
-      allocate(dump_param, source=param)
-      param_file_name    = trim(adjustl(DUMP_PARAM_FILE(idx)))
-      dump_param%incbfile = trim(adjustl(DUMP_CB_FILE(idx))) 
-      dump_param%inplfile = trim(adjustl(DUMP_PL_FILE(idx))) 
-      dump_param%intpfile = trim(adjustl(DUMP_TP_FILE(idx)))
-      dump_param%out_form = XV
-      dump_param%out_stat = 'APPEND'
-      dump_param%T0 = param%t
-      call dump_param%dump(param_file_name)
-
-      call self%cb%dump(dump_param)
-      if (self%pl%nbody > 0) call self%pl%dump(dump_param)
-      if (self%tp%nbody > 0) call self%tp%dump(dump_param)
-
-      idx = idx + 1
-      if (idx > NDUMPFILES) idx = 1
-
-      ! Print the status message (format code passed in from main driver)
-      tfrac = (param%t - param%t0) / (param%tstop - param%t0)
-      write(*,msg) param%t, tfrac, self%pl%nbody, self%tp%nbody
+      real(DP)                      :: deltawall, wallperstep, tfrac
+      integer(I8B)                  :: clock_count, count_rate, count_max
+      character(*),     parameter   :: statusfmt   = '("Time = ", ES12.5, "; fraction done = ", F6.3, "; Number of active pl, tp = ", I5, ", ", I5)'
+      character(len=*), parameter   :: walltimefmt = '("      Wall time (s): ", es12.5, "; Wall time/step in this interval (s):  ", es12.5)'
+      logical, save                 :: lfirst = .true.
+      real(DP), save                :: start, finish
+    
+      if (lfirst) then
+         call system_clock(clock_count, count_rate, count_max)
+         start = clock_count / (count_rate * 1.0_DP)
+         finish = start
+         lfirst = .false.
+      else
+         allocate(dump_param, source=param)
+         param_file_name    = trim(adjustl(DUMP_PARAM_FILE(idx)))
+         dump_param%incbfile = trim(adjustl(DUMP_CB_FILE(idx))) 
+         dump_param%inplfile = trim(adjustl(DUMP_PL_FILE(idx))) 
+         dump_param%intpfile = trim(adjustl(DUMP_TP_FILE(idx)))
+         dump_param%out_form = XV
+         dump_param%out_stat = 'APPEND'
+         dump_param%T0 = param%t
+         call dump_param%dump(param_file_name)
+
+         call self%cb%dump(dump_param)
+         if (self%pl%nbody > 0) call self%pl%dump(dump_param)
+         if (self%tp%nbody > 0) call self%tp%dump(dump_param)
+
+         idx = idx + 1
+         if (idx > NDUMPFILES) idx = 1
+
+         tfrac = (param%t - param%t0) / (param%tstop - param%t0)
+         
+         call system_clock(clock_count, count_rate, count_max)
+         deltawall = clock_count / (count_rate * 1.0_DP) - finish
+         wallperstep = deltawall / param%istep_dump
+         finish = clock_count / (count_rate * 1.0_DP)
+      end if
+      write(*, statusfmt) param%t, tfrac, self%pl%nbody, self%tp%nbody
+      write(*, walltimefmt) finish - start, wallperstep
+
       if (param%lenergy) call self%conservation_report(param, lterminal=.true.)
 
       return
@@ -421,6 +440,8 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
                   param%enc_out = param_value
                case ("DISCARD_OUT")
                   param%discard_out = param_value
+               case ("ENERGY_OUT")
+                  param%energy_out = param_value
                case ("EXTRA_FORCE")
                   call io_toupper(param_value)
                   if (param_value == "YES" .or. param_value == 'T') param%lextra_force = .true.
@@ -493,7 +514,7 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
                   read(param_value, *) param%Ecollisions
                case("EUNTRACKED")
                   read(param_value, *) param%Euntracked
-               case ("NPLMAX", "NTPMAX", "GMTINY", "PARTICLE_FILE", "FRAGMENTATION", "SEED", "YARKOVSKY", "YORP") ! Ignore SyMBA-specific, not-yet-implemented, or obsolete input parameters
+               case ("NPLMAX", "NTPMAX", "GMTINY", "PARTICLE_OUT", "FRAGMENTATION", "SEED", "YARKOVSKY", "YORP") ! Ignore SyMBA-specific, not-yet-implemented, or obsolete input parameters
                case default
                   write(iomsg,*) "Unknown parameter -> ",param_name
                   iostat = -1
@@ -535,6 +556,7 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
             iostat = -1
             return
          end if
+         param%lrestart = (param%out_stat == "APPEND")
          if (param%outfile /= "") then
             if ((param%out_type /= REAL4_TYPE) .and. (param%out_type /= REAL8_TYPE) .and. &
                   (param%out_type /= SWIFTER_REAL4_TYPE)  .and. (param%out_type /= SWIFTER_REAL8_TYPE)) then
@@ -552,6 +574,7 @@ module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg)
                iostat = -1
                return
             end if
+         
          end if
          if (param%qmin > 0.0_DP) then
             if ((param%qmin_coord /= "HELIO") .and. (param%qmin_coord /= "BARY")) then
@@ -795,19 +818,22 @@ module subroutine io_read_body_in(self, param)
                   self%Gmass(i) = real(val, kind=DP)
                   self%mass(i) = real(val / param%GU, kind=DP)
                   if (param%lclose) read(iu, *, iostat=ierr, err=100) self%radius(i)
-                  if (param%lrotation) then
-                     read(iu, iostat=ierr, err=100) self%Ip(:, i)
-                     read(iu, iostat=ierr, err=100) self%rot(:, i)
-                  end if
-                  if (param%ltides) then
-                     read(iu, iostat=ierr, err=100) self%k2(i)
-                     read(iu, iostat=ierr, err=100) self%Q(i)
-                  end if
                class is (swiftest_tp)
                   read(iu, *, iostat=ierr, err=100) self%id(i)
                end select
                read(iu, *, iostat=ierr, err=100) self%xh(1, i), self%xh(2, i), self%xh(3, i)
                read(iu, *, iostat=ierr, err=100) self%vh(1, i), self%vh(2, i), self%vh(3, i)
+               select type (self)
+               class is (swiftest_pl)
+                  if (param%lrotation) then
+                     read(iu, *, iostat=ierr, err=100) self%Ip(1, i), self%Ip(2, i), self%Ip(3, i)
+                     read(iu, *, iostat=ierr, err=100) self%rot(1, i), self%rot(2, i), self%rot(3, i)
+                  end if
+                  if (param%ltides) then
+                     read(iu, *, iostat=ierr, err=100) self%k2(i)
+                     read(iu, *, iostat=ierr, err=100) self%Q(i)
+                  end if
+               end select
                self%status(i) = ACTIVE
                self%lmask(i) = .true.
             end do
@@ -859,13 +885,17 @@ module subroutine io_read_cb_in(self, param)
       is_ascii = (param%in_type == 'ASCII') 
       if (is_ascii) then
          open(unit = iu, file = param%incbfile, status = 'old', form = 'FORMATTED', iostat = ierr)
-         !read(iu, *, iostat = ierr) self%id
+         read(iu, *, iostat = ierr) self%id
          read(iu, *, iostat = ierr) val 
          self%Gmass = real(val, kind=DP)
          self%mass = real(val / param%GU, kind=DP)
          read(iu, *, iostat = ierr) self%radius
          read(iu, *, iostat = ierr) self%j2rp2
          read(iu, *, iostat = ierr) self%j4rp4
+         if (param%lrotation) then
+            read(iu, *, iostat = ierr) self%Ip(1), self%Ip(2), self%Ip(3)
+            read(iu, *, iostat = ierr) self%rot(1), self%rot(2), self%rot(3)
+         end if
       else
          open(unit = iu, file = param%incbfile, status = 'old', form = 'UNFORMATTED', iostat = ierr)
          call self%read_frame(iu, param, XV, ierr)
@@ -881,7 +911,6 @@ module subroutine io_read_cb_in(self, param)
    end subroutine io_read_cb_in
 
 
-
    function io_read_encounter(t, name1, name2, mass1, mass2, radius1, radius2, &
       xh1, xh2, vh1, vh2, enc_out, out_type) result(ierr)
       !! author: David A. Minton
@@ -978,7 +1007,7 @@ module subroutine io_read_frame_body(self, iu, param, form, ierr)
             read(iu, iostat=ierr, err=100) pl%Gmass(:)
             pl%mass(:) = pl%Gmass(:) / param%GU 
             if (param%lrhill_present) read(iu, iostat=ierr, err=100) pl%rhill(:)
-            read(iu, iostat=ierr, err=100) pl%radius(:)
+            if (param%lclose) read(iu, iostat=ierr, err=100) pl%radius(:)
             if (param%lrotation) then
                read(iu, iostat=ierr, err=100) pl%rot(1, :)
                read(iu, iostat=ierr, err=100) pl%rot(2, :)
@@ -1211,20 +1240,16 @@ module subroutine io_write_discard(self, param)
 
       associate(tp_discards => self%tp_discards, nsp => self%tp_discards%nbody, pl => self%pl, npl => self%pl%nbody)
          if (nsp == 0) return
-         if (lfirst) then
-            select case(param%out_stat)
-            case('APPEND')
-               open(unit = LUN, file = param%discard_out, status = 'OLD', position = 'APPEND', form = 'FORMATTED', iostat = ierr)
-            case('NEW', 'REPLACE', 'UNKNOWN')
-               open(unit = LUN, file = param%discard_out, status = param%out_stat, form = 'FORMATTED', iostat = ierr)
-            case default
-               write(*,*) 'Invalid status code for OUT_STAT: ',trim(adjustl(param%out_stat))
-               call util_exit(FAILURE)
-            end select
-            lfirst = .false.
-         else
+         select case(param%out_stat)
+         case('APPEND')
             open(unit = LUN, file = param%discard_out, status = 'OLD', position = 'APPEND', form = 'FORMATTED', iostat = ierr)
-         end if
+         case('NEW', 'REPLACE', 'UNKNOWN')
+            open(unit = LUN, file = param%discard_out, status = param%out_stat, form = 'FORMATTED', iostat = ierr)
+         case default
+            write(*,*) 'Invalid status code for OUT_STAT: ',trim(adjustl(param%out_stat))
+            call util_exit(FAILURE)
+         end select
+         lfirst = .false.
          if (param%lgr) call tp_discards%pv2v(param) 
 
          write(LUN, HDRFMT) param%t, nsp, param%lbig_discard
@@ -1345,15 +1370,15 @@ module subroutine io_write_frame_body(self, iu, param)
          select type(pl => self)  
          class is (swiftest_pl)  ! Additional output if the passed polymorphic object is a massive body
             write(iu) pl%Gmass(1:n)
-            write(iu) pl%rhill(1:n)
-            write(iu) pl%radius(1:n)
+            if (param%lrhill_present) write(iu) pl%rhill(1:n)
+            if (param%lclose) write(iu) pl%radius(1:n)
             if (param%lrotation) then
-               write(iu) pl%rot(1, 1:n)
-               write(iu) pl%rot(2, 1:n)
-               write(iu) pl%rot(3, 1:n)
                write(iu) pl%Ip(1, 1:n)
                write(iu) pl%Ip(2, 1:n)
                write(iu) pl%Ip(3, 1:n)
+               write(iu) pl%rot(1, 1:n)
+               write(iu) pl%rot(2, 1:n)
+               write(iu) pl%rot(3, 1:n)
             end if
             if (param%ltides) then
                write(iu) pl%k2(1:n)
@@ -1387,12 +1412,12 @@ module subroutine io_write_frame_cb(self, iu, param)
          write(iu) cb%j2rp2 
          write(iu) cb%j4rp4 
          if (param%lrotation) then
-            write(iu) cb%rot(1)
-            write(iu) cb%rot(2)
-            write(iu) cb%rot(3)
             write(iu) cb%Ip(1)
             write(iu) cb%Ip(2)
             write(iu) cb%Ip(3)
+            write(iu) cb%rot(1)
+            write(iu) cb%rot(2)
+            write(iu) cb%rot(3)
          end if
          if (param%ltides) then
             write(iu) cb%k2
diff --git a/docs/src/rmvs_classes.f90 b/docs/src/rmvs_classes.f90
index 4f7255237..6ffb7ba1b 100644
--- a/docs/src/rmvs_classes.f90
+++ b/docs/src/rmvs_classes.f90
@@ -163,7 +163,7 @@ module subroutine rmvs_util_append_pl(self, source, lsource_mask)
          implicit none
          class(rmvs_pl),                  intent(inout) :: self         !! RMVS massive body object
          class(swiftest_body),            intent(in)    :: source       !! Source object to append
-         logical, dimension(:), optional, intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+         logical, dimension(:),           intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
       end subroutine rmvs_util_append_pl
 
       module subroutine rmvs_util_append_tp(self, source, lsource_mask)
@@ -171,7 +171,7 @@ module subroutine rmvs_util_append_tp(self, source, lsource_mask)
          implicit none
          class(rmvs_tp),                  intent(inout) :: self         !! RMVS test particle object
          class(swiftest_body),            intent(in)    :: source       !! Source object to append
-         logical, dimension(:), optional, intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+         logical, dimension(:),           intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
       end subroutine rmvs_util_append_tp
 
       module subroutine rmvs_util_fill_pl(self, inserts, lfill_list)
diff --git a/docs/src/rmvs_util.f90 b/docs/src/rmvs_util.f90
index 9f9cf0037..ee9ce6932 100644
--- a/docs/src/rmvs_util.f90
+++ b/docs/src/rmvs_util.f90
@@ -11,21 +11,23 @@ module subroutine rmvs_util_append_pl(self, source, lsource_mask)
       !! Arguments
       class(rmvs_pl),                  intent(inout) :: self         !! RMVS massive body object
       class(swiftest_body),            intent(in)    :: source       !! Source object to append
-      logical, dimension(:), optional, intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+      logical, dimension(:),           intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
 
       select type(source)
       class is (rmvs_pl)
-         call whm_util_append_pl(self, source, lsource_mask)
+         associate(nold => self%nbody, nsrc => source%nbody)
+            call util_append(self%nenc, source%nenc, nold, nsrc, lsource_mask)
+            call util_append(self%tpenc1P, source%tpenc1P, nold, nsrc, lsource_mask)
+            call util_append(self%plind, source%plind, nold, nsrc, lsource_mask)
 
-         call util_append(self%nenc, source%nenc, lsource_mask)
-         call util_append(self%tpenc1P, source%tpenc1P, lsource_mask)
-         call util_append(self%plind, source%plind, lsource_mask)
+            ! The following are not implemented as RMVS doesn't make use of fill operations on pl type
+            ! So they are here as a placeholder in case someone wants to extend the RMVS class for some reason
+            !call util_append(self%outer, source%outer, nold, nsrc, lsource_mask)
+            !call util_append(self%inner, source%inner, nold, nsrc, lsource_mask)
+            !call util_append(self%planetocentric, source%planetocentric, nold, nsrc, lsource_mask)
 
-         ! The following are not implemented as RMVS doesn't make use of fill operations on pl type
-         ! So they are here as a placeholder in case someone wants to extend the RMVS class for some reason
-         !call util_append(self%outer, source%outer, lsource_mask)
-         !call util_append(self%inner, source%inner, lsource_mask)
-         !call util_append(self%planetocentric, source%planetocentric, lsource_mask)
+            call whm_util_append_pl(self, source, lsource_mask)
+         end associate
       class default
          write(*,*) "Invalid object passed to the append method. Source must be of class rmvs_pl or its descendents!"
          call util_exit(FAILURE)
@@ -44,15 +46,17 @@ module subroutine rmvs_util_append_tp(self, source, lsource_mask)
       !! Arguments
       class(rmvs_tp),                  intent(inout) :: self         !! RMVS test particle object
       class(swiftest_body),            intent(in)    :: source       !! Source object to append
-      logical, dimension(:), optional, intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+      logical, dimension(:),           intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
 
       select type(source)
       class is (rmvs_tp)
-         call util_append_tp(self, source, lsource_mask)  ! Note: whm_tp does not have its own append method, so we skip back to the base class
+         associate(nold => self%nbody, nsrc => source%nbody)
+            call util_append(self%lperi, source%lperi, nold, nsrc, lsource_mask)
+            call util_append(self%plperP, source%plperP, nold, nsrc, lsource_mask)
+            call util_append(self%plencP, source%plencP, nold, nsrc, lsource_mask)
 
-         call util_append(self%lperi, source%lperi, lsource_mask)
-         call util_append(self%plperP, source%plperP, lsource_mask)
-         call util_append(self%plencP, source%plencP, lsource_mask)
+            call util_append_tp(self, source, lsource_mask)  ! Note: whm_tp does not have its own append method, so we skip back to the base class
+         end associate
       class default
          write(*,*) "Invalid object passed to the append method. Source must be of class rmvs_tp or its descendents!"
          call util_exit(FAILURE)
@@ -139,8 +143,6 @@ module subroutine rmvs_util_resize_pl(self, nnew)
       class(rmvs_pl), intent(inout) :: self  !! RMVS massive body object
       integer(I4B),   intent(in)    :: nnew  !! New size neded
 
-      call whm_util_resize_pl(self, nnew)
-
       call util_resize(self%nenc, nnew)
       call util_resize(self%tpenc1P, nnew)
       call util_resize(self%plind, nnew)
@@ -151,6 +153,7 @@ module subroutine rmvs_util_resize_pl(self, nnew)
       !call util_resize(self%inner, nnew)
       !call util_resize(self%planetocentric, nnew)
 
+      call whm_util_resize_pl(self, nnew)
       return
    end subroutine rmvs_util_resize_pl
 
@@ -164,13 +167,13 @@ module subroutine rmvs_util_resize_tp(self, nnew)
       class(rmvs_tp), intent(inout) :: self  !! RMVS test particle object
       integer(I4B),   intent(in)    :: nnew  !! New size neded
 
-      call util_resize_tp(self, nnew)
-
       call util_resize(self%lperi, nnew)
       call util_resize(self%plperP, nnew)
       call util_resize(self%plencP, nnew)
       call util_resize(self%xheliocentric, nnew)
 
+      call util_resize_tp(self, nnew)
+
       return
    end subroutine rmvs_util_resize_tp
 
diff --git a/docs/src/setup.f90 b/docs/src/setup.f90
index 9346e8c12..8f96c48a1 100644
--- a/docs/src/setup.f90
+++ b/docs/src/setup.f90
@@ -127,14 +127,12 @@ module subroutine setup_initialize_system(self, param)
       call self%cb%initialize(param)
       call self%pl%initialize(param)
       call self%tp%initialize(param)
-      call util_valid(self%pl, self%tp)
-      self%maxid = maxval([self%pl%id(:), self%tp%id(:)])
+      call self%validate_ids(param)
       call self%set_msys()
       call self%pl%set_mu(self%cb) 
       call self%tp%set_mu(self%cb) 
       call self%pl%eucl_index()
       if (.not.param%lrhill_present) call self%pl%set_rhill(self%cb)
-      !if (param%lfirstenergy) then
       return
    end subroutine setup_initialize_system
 
diff --git a/docs/src/swiftest_classes.f90 b/docs/src/swiftest_classes.f90
index 051add1aa..2e4bff8a2 100644
--- a/docs/src/swiftest_classes.f90
+++ b/docs/src/swiftest_classes.f90
@@ -45,7 +45,7 @@ module swiftest_classes
       real(QP)             :: DU2M           = -1.0_QP            !! Converts distance unit to centimeters
       real(DP)             :: GU             = -1.0_DP            !! Universal gravitational constant in the system units
       real(DP)             :: inv_c2         = -1.0_DP            !! Inverse speed of light squared in the system units
-      character(STRMAX)    :: ennergy_out    = ""                 !! Name of output energy and momentum report file
+      character(STRMAX)    :: energy_out    = ""                  !! Name of output energy and momentum report file
 
       ! Logical flags to turn on or off various features of the code
       logical :: lrhill_present = .false. !! Hill radii are given as an input rather than calculated by the code (can be used to inflate close encounter regions manually)
@@ -64,13 +64,14 @@ module swiftest_classes
       real(DP), dimension(NDIM) :: Ltot_orig = 0.0_DP     !! Initial total angular momentum vector
       real(DP), dimension(NDIM) :: Lorbit_orig = 0.0_DP   !! Initial orbital angular momentum
       real(DP), dimension(NDIM) :: Lspin_orig = 0.0_DP    !! Initial spin angular momentum vector
-      real(DP), dimension(NDIM) :: Ltot = 0.0_DP        !! System angular momentum vector
-      real(DP), dimension(NDIM) :: Lescape = 0.0_DP     !! Angular momentum of bodies that escaped the system (used for bookeeping)
-      real(DP)                  :: Mescape = 0.0_DP     !! Mass of bodies that escaped the system (used for bookeeping)
-      real(DP)                  :: Ecollisions = 0.0_DP !! Energy lost from system due to collisions
-      real(DP)                  :: Euntracked = 0.0_DP  !! Energy gained from system due to escaped bodies
+      real(DP), dimension(NDIM) :: Ltot = 0.0_DP          !! System angular momentum vector
+      real(DP), dimension(NDIM) :: Lescape = 0.0_DP       !! Angular momentum of bodies that escaped the system (used for bookeeping)
+      real(DP)                  :: Mescape = 0.0_DP       !! Mass of bodies that escaped the system (used for bookeeping)
+      real(DP)                  :: Ecollisions = 0.0_DP   !! Energy lost from system due to collisions
+      real(DP)                  :: Euntracked = 0.0_DP    !! Energy gained from system due to escaped bodies
       logical                   :: lfirstenergy = .true.  !! This is the first time computing energe
       logical                   :: lfirstkick = .true.    !! Initiate the first kick in a symplectic step
+      logical                   :: lrestart = .false.     !! Indicates whether or not this is a restarted run
 
       ! Future features not implemented or in development
       logical :: lgr = .false.               !! Turn on GR
@@ -275,6 +276,7 @@ module swiftest_classes
       class(swiftest_pl),            allocatable :: pl                   !! Massive body data structure
       class(swiftest_tp),            allocatable :: tp                   !! Test particle data structure
       class(swiftest_tp),            allocatable :: tp_discards          !! Discarded test particle data structure
+      class(swiftest_pl),            allocatable :: pl_discards          !! Discarded massive body particle data structure
       real(DP)                                   :: Gmtot = 0.0_DP       !! Total system mass - used for barycentric coordinate conversion
       real(DP)                                   :: ke_orbit = 0.0_DP    !! System orbital kinetic energy
       real(DP)                                   :: ke_spin = 0.0_DP     !! System spin kinetic energy
@@ -305,6 +307,8 @@ module swiftest_classes
       procedure :: step_spin               => tides_step_spin_system          !! Steps the spins of the massive & central bodies due to tides.
       procedure :: set_msys                => util_set_msys                   !! Sets the value of msys from the masses of system bodies.
       procedure :: get_energy_and_momentum => util_get_energy_momentum_system !! Calculates the total system energy and momentum
+      procedure :: rescale                 => util_rescale_system             !! Rescales the system into a new set of units
+      procedure :: validate_ids            => util_valid_id_system            !! Validate the numerical ids passed to the system and save the maximum value
    end type swiftest_nbody_system
 
    type :: swiftest_encounter
@@ -456,26 +460,26 @@ module subroutine eucl_dist_index_plpl(self)
       module subroutine fragmentation_initialize(system, param, family, x, v, L_spin, Ip, mass, radius, &
          nfrag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, Qloss, lfailure)
          implicit none
-         class(swiftest_nbody_system), intent(inout) :: system
-         class(swiftest_parameters), intent(in)  :: param 
-         integer(I4B), dimension(:), intent(in)  :: family
-         real(DP), dimension(:,:), intent(inout) :: x, v, L_spin, Ip
-         real(DP), dimension(:),   intent(inout) :: mass, radius
-         integer(I4B), intent(inout)             :: nfrag
-         real(DP), dimension(:), allocatable,   intent(inout) :: m_frag, rad_frag
-         real(DP), dimension(:,:), allocatable, intent(inout) :: Ip_frag
-         real(DP), dimension(:,:), allocatable, intent(inout) :: xb_frag, vb_frag, rot_frag
-         logical, intent(out)                    :: lfailure ! Answers the question: Should this have been a merger instead?
-         real(DP), intent(inout)                 :: Qloss
+         class(swiftest_nbody_system),                              intent(inout) :: system !! Swiftest nbody system object
+         class(swiftest_parameters),                                intent(in)    :: param  !! Current run configuration parameters 
+         integer(I4B),                 dimension(:),                intent(in)    :: family !! Index of bodies involved in the collision
+         real(DP),                     dimension(:,:),              intent(inout) :: x, v, L_spin, Ip !! Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision
+         real(DP),                     dimension(:),                intent(inout) :: mass, radius     !! Two-body equivalent mass and radii for the bodies in the collision
+         integer(I4B),                                              intent(inout) :: nfrag            !! Number of fragments to generate
+         real(DP),                     dimension(:),   allocatable, intent(inout) :: m_frag, rad_frag !! Distribution of fragment mass and radii
+         real(DP),                     dimension(:,:), allocatable, intent(inout) :: Ip_frag          !! Fragment rotational inertia vectors
+         real(DP),                     dimension(:,:), allocatable, intent(inout) :: xb_frag, vb_frag, rot_frag !! Fragment barycentric position, barycentric velocity, and rotation vectors
+         real(DP),                                                  intent(inout) :: Qloss !! Energy lost during the collision
+         logical,                                                   intent(out)   :: lfailure !! Answers the question: Should this have been a merger instead?
       end subroutine fragmentation_initialize
 
-      module subroutine fragmentation_regime(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, regime, Mlr, Mslr, Gmtiny, Qloss)
+      module subroutine fragmentation_regime(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, regime, Mlr, Mslr, mtiny, Qloss)
          implicit none
-         integer(I4B), intent(out)         :: regime
-         real(DP), intent(out)          :: Mlr, Mslr
-         real(DP), intent(in)           :: Mcb, m1, m2, rad1, rad2, den1, den2, Gmtiny 
-         real(DP), dimension(:), intent(in)   :: xh1, xh2, vb1, vb2
-         real(DP), intent(out)          :: Qloss !! The residual energy after the collision 
+         integer(I4B),               intent(out) :: regime
+         real(DP),                   intent(out) :: Mlr, Mslr
+         real(DP),                   intent(in)  :: Mcb, m1, m2, rad1, rad2, den1, den2, mtiny 
+         real(DP),     dimension(:), intent(in)  :: xh1, xh2, vb1, vb2
+         real(DP),                   intent(out) :: Qloss !! Energy lost during the collision
       end subroutine fragmentation_regime
 
       module pure subroutine gr_kick_getaccb_ns_body(self, system, param)
@@ -546,18 +550,16 @@ module subroutine io_dump_param(self, param_file_name)
          character(len=*),          intent(in)    :: param_file_name !! Parameter input file name (i.e. param.in)
       end subroutine io_dump_param
 
-      module subroutine io_dump_swiftest(self, param, msg) 
+      module subroutine io_dump_swiftest(self, param)
          implicit none
          class(swiftest_base),          intent(inout) :: self  !! Swiftest base object
          class(swiftest_parameters),    intent(inout) :: param !! Current run configuration parameters 
-         character(*), optional,        intent(in)    :: msg   !! Message to display with dump operation
       end subroutine io_dump_swiftest
 
-      module subroutine io_dump_system(self, param, msg)
+      module subroutine io_dump_system(self, param)
          implicit none
          class(swiftest_nbody_system),  intent(inout) :: self    !! Swiftest system object
          class(swiftest_parameters),    intent(inout) :: param  !! Current run configuration parameters 
-         character(*), optional,        intent(in)    :: msg  !! Message to display with dump operation
       end subroutine io_dump_system
 
       module function io_get_args(integrator, param_file_name) result(ierr)
@@ -829,39 +831,44 @@ end subroutine user_kick_getacch_body
    end interface
 
    interface util_append
-      module subroutine util_append_arr_char_string(arr, source, lsource_mask)
+      module subroutine util_append_arr_char_string(arr, source, nold, nsrc, lsource_mask)
          implicit none
          character(len=STRMAX), dimension(:), allocatable, intent(inout) :: arr          !! Destination array 
          character(len=STRMAX), dimension(:), allocatable, intent(in)    :: source       !! Array to append 
-         logical,               dimension(:), optional,    intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+         integer(I4B),                                     intent(in)    :: nold, nsrc   !! Extend of the old array and the source array, respectively
+         logical,               dimension(:),              intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
       end subroutine util_append_arr_char_string
 
-      module subroutine util_append_arr_DP(arr, source, lsource_mask)
+      module subroutine util_append_arr_DP(arr, source, nold, nsrc, lsource_mask)
          implicit none
          real(DP), dimension(:), allocatable, intent(inout) :: arr          !! Destination array 
          real(DP), dimension(:), allocatable, intent(in)    :: source       !! Array to append 
-         logical,  dimension(:), optional,    intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+         integer(I4B),                        intent(in)    :: nold, nsrc   !! Extend of the old array and the source array, respectively
+         logical,  dimension(:),              intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
       end subroutine util_append_arr_DP
 
-      module subroutine util_append_arr_DPvec(arr, source, lsource_mask)
+      module subroutine util_append_arr_DPvec(arr, source, nold, nsrc, lsource_mask)
          implicit none
          real(DP), dimension(:,:), allocatable, intent(inout) :: arr          !! Destination array 
          real(DP), dimension(:,:), allocatable, intent(in)    :: source       !! Array to append 
-         logical,  dimension(:),   optional,    intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+         integer(I4B),                          intent(in)    :: nold, nsrc   !! Extend of the old array and the source array, respectively
+         logical,  dimension(:),                intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
       end subroutine util_append_arr_DPvec
 
-      module subroutine util_append_arr_I4B(arr, source, lsource_mask)
+      module subroutine util_append_arr_I4B(arr, source, nold, nsrc, lsource_mask)
          implicit none
          integer(I4B), dimension(:), allocatable, intent(inout) :: arr          !! Destination array 
          integer(I4B), dimension(:), allocatable, intent(in)    :: source       !! Array to append 
-         logical,      dimension(:), optional,    intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+         integer(I4B),                            intent(in)    :: nold, nsrc   !! Extend of the old array and the source array, respectively
+         logical,      dimension(:),              intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
       end subroutine util_append_arr_I4B
 
-      module subroutine util_append_arr_logical(arr, source, lsource_mask)
+      module subroutine util_append_arr_logical(arr, source, nold, nsrc, lsource_mask)
          implicit none
          logical, dimension(:), allocatable, intent(inout) :: arr          !! Destination array 
          logical, dimension(:), allocatable, intent(in)    :: source       !! Array to append 
-         logical, dimension(:), optional,    intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+         integer(I4B),                       intent(in)    :: nold, nsrc   !! Extend of the old array and the source array, respectively
+         logical, dimension(:),              intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
       end subroutine util_append_arr_logical
    end interface
 
@@ -869,22 +876,22 @@ end subroutine util_append_arr_logical
       module subroutine util_append_body(self, source, lsource_mask)
          implicit none
          class(swiftest_body),            intent(inout) :: self   !! Swiftest body object
-         class(swiftest_body),            intent(in)    :: source !! Source object to append
-         logical, dimension(:), optional, intent(in)    :: lsource_mask  !! Logical mask indicating which elements to append to
+         class(swiftest_body),            intent(in)    :: source  !! Source object to append
+         logical, dimension(:),           intent(in)    :: lsource_mask  !! Logical mask indicating which elements to append to
       end subroutine util_append_body
 
       module subroutine util_append_pl(self, source, lsource_mask)
          implicit none
          class(swiftest_pl),              intent(inout) :: self         !! Swiftest massive body object
          class(swiftest_body),            intent(in)    :: source       !! Source object to append
-         logical, dimension(:), optional, intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+         logical, dimension(:),           intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
       end subroutine util_append_pl
    
       module subroutine util_append_tp(self, source, lsource_mask)
          implicit none
          class(swiftest_tp),              intent(inout) :: self         !! Swiftest test particle object
          class(swiftest_body),            intent(in)    :: source       !! Source object to append
-         logical, dimension(:), optional, intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+         logical, dimension(:),           intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
       end subroutine util_append_tp
 
       module subroutine util_coord_b2h_pl(self, cb)
@@ -982,6 +989,13 @@ end subroutine util_fill_arr_logical
    end interface
 
    interface
+      module subroutine util_rescale_system(self, param, mscale, dscale, tscale)
+         implicit none
+         class(swiftest_nbody_system), intent(inout) :: self   !! Swiftest nbody system object
+         class(swiftest_parameters),   intent(inout) :: param  !! Current run configuration parameters. Returns with new values of the scale vactors and GU
+         real(DP),                     intent(in)    :: mscale, dscale, tscale !! Scale factors for mass, distance, and time units, respectively. 
+      end subroutine util_rescale_system
+
       module function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1)
          use lambda_function
          implicit none
@@ -1001,38 +1015,6 @@ module subroutine util_peri_tp(self, system, param)
       end subroutine util_peri_tp
    end interface
 
-   interface util_solve_linear_system
-      module function util_solve_linear_system_d(A,b,n,lerr) result(x)
-         implicit none
-         integer(I4B),             intent(in)  :: n
-         real(DP), dimension(:,:), intent(in)  :: A
-         real(DP), dimension(:),   intent(in)  :: b
-         logical,                  intent(out) :: lerr
-         real(DP), dimension(n)                :: x
-      end function util_solve_linear_system_d
-
-      module function util_solve_linear_system_q(A,b,n,lerr) result(x)
-         implicit none
-         integer(I4B),             intent(in)  :: n
-         real(QP), dimension(:,:), intent(in)  :: A
-         real(QP), dimension(:),   intent(in)  :: b
-         logical,                  intent(out) :: lerr
-         real(QP), dimension(n)                :: x
-      end function util_solve_linear_system_q
-   end interface
-
-   interface
-      module function util_solve_rkf45(f, y0in, t1, dt0, tol) result(y1)
-         use lambda_function
-         implicit none
-         class(lambda_obj),      intent(inout) :: f    !! lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set
-         real(DP), dimension(:), intent(in)    :: y0in !! Initial value at t=0
-         real(DP),               intent(in)    :: t1   !! Final time
-         real(DP),               intent(in)    :: dt0  !! Initial step size guess
-         real(DP),               intent(in)    :: tol  !! Tolerance on solution
-         real(DP), dimension(:), allocatable   :: y1  !! Final result
-      end function util_solve_rkf45
-   end interface
 
    interface util_resize
       module subroutine util_resize_arr_char_string(arr, nnew)
@@ -1140,6 +1122,39 @@ module subroutine util_set_rhill_approximate(self,cb)
       end subroutine util_set_rhill_approximate
    end interface
 
+   interface util_solve_linear_system
+      module function util_solve_linear_system_d(A,b,n,lerr) result(x)
+         implicit none
+         integer(I4B),             intent(in)  :: n
+         real(DP), dimension(:,:), intent(in)  :: A
+         real(DP), dimension(:),   intent(in)  :: b
+         logical,                  intent(out) :: lerr
+         real(DP), dimension(n)                :: x
+      end function util_solve_linear_system_d
+
+      module function util_solve_linear_system_q(A,b,n,lerr) result(x)
+         implicit none
+         integer(I4B),             intent(in)  :: n
+         real(QP), dimension(:,:), intent(in)  :: A
+         real(QP), dimension(:),   intent(in)  :: b
+         logical,                  intent(out) :: lerr
+         real(QP), dimension(n)                :: x
+      end function util_solve_linear_system_q
+   end interface
+
+   interface
+      module function util_solve_rkf45(f, y0in, t1, dt0, tol) result(y1)
+         use lambda_function
+         implicit none
+         class(lambda_obj),      intent(inout) :: f    !! lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set
+         real(DP), dimension(:), intent(in)    :: y0in !! Initial value at t=0
+         real(DP),               intent(in)    :: t1   !! Final time
+         real(DP),               intent(in)    :: dt0  !! Initial step size guess
+         real(DP),               intent(in)    :: tol  !! Tolerance on solution
+         real(DP), dimension(:), allocatable   :: y1  !! Final result
+      end function util_solve_rkf45
+   end interface
+
    interface util_sort
       module subroutine util_sort_i4b(arr)
          implicit none
@@ -1291,11 +1306,11 @@ module subroutine util_spill_tp(self, discards, lspill_list, ldestructive)
          logical,               intent(in)    :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not
       end subroutine util_spill_tp
 
-      module subroutine util_valid(pl, tp)
+      module subroutine util_valid_id_system(self, param)
          implicit none
-         class(swiftest_pl), intent(in) :: pl
-         class(swiftest_tp), intent(in) :: tp
-      end subroutine util_valid
+         class(swiftest_nbody_system), intent(inout) :: self  !! Swiftest nbody system object
+         class(swiftest_parameters),   intent(in)    :: param !! Current run configuration parameters
+      end subroutine util_valid_id_system
 
       module subroutine util_version()
          implicit none
diff --git a/docs/src/swiftest_driver.f90 b/docs/src/swiftest_driver.f90
index 55eb1bc89..5e28452e0 100644
--- a/docs/src/swiftest_driver.f90
+++ b/docs/src/swiftest_driver.f90
@@ -17,20 +17,14 @@ program swiftest_driver
    integer(I8B)                               :: iloop            !! Loop counter
    integer(I8B)                               :: idump            !! Dump cadence counter
    integer(I8B)                               :: iout             !! Output cadence counter
-   !integer(I8B), parameter                    :: LOOPMAX = huge(iloop) !! Maximum loop value before resetting 
    integer(I8B)                               :: nloops           !! Number of steps to take in the simulation
-   real(DP)                                   :: start_wall_time  !! Wall clock time at start of execution
-   real(DP)                                   :: finish_wall_time !! Wall clock time when execution has finished
    integer(I4B)                               :: iu               !! Unit number of binary file
-   character(*),parameter :: statusfmt  = '("Time = ", ES12.5, "; fraction done = ", F6.3, "; ' // &
-                                             'Number of active pl, tp = ", I5, ", ", I5)'
 
    ierr = io_get_args(integrator, param_file_name)
    if (ierr /= 0) then
       write(*,*) 'Error reading in arguments from the command line'
       call util_exit(FAILURE)
    end if
-   !$ start_wall_time = omp_get_wtime()
    !> Read in the user-defined parameters file and the initial conditions of the system
    select case(integrator)
    case(symba)
@@ -39,21 +33,26 @@ program swiftest_driver
       allocate(swiftest_parameters :: param)
    end select
    param%integrator = integrator
+
    call setup_construct_system(nbody_system, param)
    call param%read_from_file(param_file_name)
+
    associate(t          => param%t, &
              t0         => param%t0, &
              dt         => param%dt, &
              tstop      => param%tstop, &
              istep_out  => param%istep_out, &
              istep_dump => param%istep_dump)  
+
       call nbody_system%initialize(param)
       t = t0
       iloop = 0
       iout = istep_out
       idump = istep_dump
-      nloops = ceiling(tstop / dt)
+      nloops = ceiling(tstop / dt, kind=I8B)
       if (istep_out > 0) call nbody_system%write_frame(iu, param)
+      call nbody_system%dump(param)
+
       !> Define the maximum number of threads
       nthreads = 1            ! In the *serial* case
       !$ nthreads = omp_get_max_threads() ! In the *parallel* case
@@ -83,18 +82,13 @@ program swiftest_driver
          if (istep_dump > 0) then
             idump = idump - 1
             if (idump == 0) then
-               call nbody_system%dump(param, statusfmt)
+               call nbody_system%dump(param)
                idump = istep_dump
             end if
          end if
-         !if (t >= tstop) exit 
       end do
-
-      !> Dump the final state of the system to file
-      !call nbody_system%dump(param, t, dt, statusfmt)
-      !$ finish_wall_time = omp_get_wtime()
-      !$ write(*,*) 'Time: ', finish_wall_time - start_wall_time
    end associate
+
    call util_exit(SUCCESS)
 
    stop
diff --git a/docs/src/symba_classes.f90 b/docs/src/symba_classes.f90
index 6ecb27751..4628202f8 100644
--- a/docs/src/symba_classes.f90
+++ b/docs/src/symba_classes.f90
@@ -18,7 +18,7 @@ module symba_classes
    integer(I4B),          parameter :: PARTICLEUNIT     = 44 !! File unit number for the binary particle info output file
 
    type, extends(swiftest_parameters) :: symba_parameters
-      character(STRMAX)                       :: particle_file  = PARTICLE_OUTFILE !! Name of output particle information file
+      character(STRMAX)                       :: particle_out  = PARTICLE_OUTFILE !! Name of output particle information file
       real(DP)                                :: GMTINY          = -1.0_DP          !! Smallest mass that is fully gravitating
       integer(I4B), dimension(:), allocatable :: seed                              !! Random seeds
       logical                                 :: lfragmentation = .false.          !! Do fragmentation modeling instead of simple merger.
@@ -27,33 +27,17 @@ module symba_classes
       procedure :: writer => symba_io_param_writer
    end type symba_parameters
 
-   !********************************************************************************************************************************
-   ! symba_cb class definitions and method interfaces
-   !*******************************************************************************************************************************
-   !> SyMBA central body particle class
-   type, extends(helio_cb) :: symba_cb
-      real(DP) :: M0  = 0.0_DP !! Initial mass of the central body
-      real(DP) :: dM  = 0.0_DP !! Change in mass of the central body
-      real(DP) :: R0  = 0.0_DP !! Initial radius of the central body
-      real(DP) :: dR  = 0.0_DP !! Change in the radius of the central body
-   contains
-   end type symba_cb
-
    !********************************************************************************************************************************
    !                                    symba_particle_info class definitions and method interfaces
    !*******************************************************************************************************************************
    !> Class definition for the particle origin information object. This object is used to track time, location, and collisional regime
    !> of fragments produced in collisional events.
-   type, extends(swiftest_base) :: symba_particle_info
+   type :: symba_particle_info
+      sequence
       character(len=32)         :: origin_type !! String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.)
       real(DP)                  :: origin_time !! The time of the particle's formation
       real(DP), dimension(NDIM) :: origin_xh   !! The heliocentric distance vector at the time of the particle's formation
       real(DP), dimension(NDIM) :: origin_vh   !! The heliocentric velocity vector at the time of the particle's formation
-   contains
-      procedure :: dump        => symba_io_dump_particle_info       !! I/O routine for dumping particle info to file
-      procedure :: initialize  => symba_io_initialize_particle_info !! I/O routine for reading in particle info data
-      procedure :: read_frame  => symba_io_read_frame_info          !! I/O routine for reading in a single frame of particle info
-      procedure :: write_frame => symba_io_write_frame_info         !! I/O routine for writing out a single frame of particle info
    end type symba_particle_info
 
    !********************************************************************************************************************************
@@ -66,6 +50,19 @@ module symba_classes
       integer(I4B), dimension(:), allocatable :: child  !! Index of children particles
    end type symba_kinship
 
+   !********************************************************************************************************************************
+   ! symba_cb class definitions and method interfaces
+   !*******************************************************************************************************************************
+   !> SyMBA central body particle class
+   type, extends(helio_cb) :: symba_cb
+      real(DP) :: M0  = 0.0_DP !! Initial mass of the central body
+      real(DP) :: dM  = 0.0_DP !! Change in mass of the central body
+      real(DP) :: R0  = 0.0_DP !! Initial radius of the central body
+      real(DP) :: dR  = 0.0_DP !! Change in the radius of the central body
+      type(symba_particle_info) :: info
+   contains
+   end type symba_cb
+
    !********************************************************************************************************************************
    !                                    symba_pl class definitions and method interfaces
    !*******************************************************************************************************************************
@@ -118,6 +115,7 @@ module symba_classes
       integer(I4B), dimension(:), allocatable :: nplenc  !! number of encounters with planets this time step
       integer(I4B), dimension(:), allocatable :: levelg  !! level at which this particle should be moved
       integer(I4B), dimension(:), allocatable :: levelm  !! deepest encounter level achieved this time step
+      type(symba_particle_info), dimension(:), allocatable :: info
    contains
       procedure :: drift           => symba_drift_tp               !! Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level
       procedure :: encounter_check => symba_encounter_check_tp     !! Checks if any test particles are undergoing a close encounter with a massive body
@@ -161,7 +159,6 @@ module symba_classes
    !********************************************************************************************************************************
    type, extends(helio_nbody_system) :: symba_nbody_system
       class(symba_merger),  allocatable :: pl_adds !! List of added bodies in mergers or collisions
-      class(symba_merger),  allocatable :: pl_discards !! List of subtracted bodies in mergers or collisions
       class(symba_pltpenc), allocatable :: pltpenc_list  !! List of massive body-test particle encounters in a single step 
       class(symba_plplenc), allocatable :: plplenc_list  !! List of massive body-massive body encounters in a single step
       integer(I4B)                      :: irec          !! System recursion level
@@ -328,12 +325,13 @@ module subroutine symba_io_write_discard(self, param)
          class(swiftest_parameters), intent(in)    :: param !! Current run configuration parameters 
       end subroutine symba_io_write_discard
 
-      module subroutine symba_io_dump_particle_info(self, param, msg) 
-         use swiftest_classes, only : swiftest_parameters
+      module subroutine symba_io_dump_particle_info(system, param, lincludecb, tpidx, plidx) 
          implicit none
-         class(symba_particle_info), intent(inout) :: self  !! Swiftest base object
-         class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters 
-         character(*), optional,     intent(in)    :: msg   !! Message to display with dump operation
+         class(symba_nbody_system),             intent(inout) :: system !! SyMBA nbody system object
+         class(symba_parameters),               intent(in)    :: param  !! Current run configuration parameters with SyMBA extensions
+         logical,                     optional, intent(in)    :: lincludecb  !! Set to true to include the central body (default is false)
+         integer(I4B), dimension(:),  optional, intent(in)    :: tpidx  !! Array of test particle indices to append to the particle file
+         integer(I4B), dimension(:),  optional, intent(in)    :: plidx  !! Array of massive body indices to append to the particle file
       end subroutine symba_io_dump_particle_info
    
       module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, iomsg) 
@@ -357,23 +355,12 @@ module subroutine symba_io_param_writer(self, unit, iotype, v_list, iostat, ioms
          integer,                intent(out)   :: iostat    !! IO status code
          character(len=*),       intent(inout) :: iomsg     !! Message to pass if iostat /= 0
       end subroutine symba_io_param_writer
-   
-      module subroutine symba_io_initialize_particle_info(self, param) 
-         use swiftest_classes, only : swiftest_parameters
-         implicit none
-         class(symba_particle_info), intent(inout) :: self  !! SyMBA particle info object
-         class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters 
-      end subroutine symba_io_initialize_particle_info
 
-      module subroutine symba_io_read_frame_info(self, iu, param, form, ierr)
-         use swiftest_classes, only : swiftest_parameters
+      module subroutine symba_io_read_particle(system, param)
          implicit none
-         class(symba_particle_info), intent(inout) :: self  !! SyMBA particle info object
-         integer(I4B),               intent(inout) :: iu    !! Unit number for the output file to write frame to
-         class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters 
-         character(*),               intent(in)    :: form  !! Input format code ("XV" or "EL")
-         integer(I4B),               intent(out)   :: ierr  !! Error code
-      end subroutine symba_io_read_frame_info
+         class(symba_nbody_system), intent(inout) :: system !! SyMBA nbody system file
+         class(symba_parameters),   intent(inout) :: param  !! Current run configuration parameters with SyMBA extensions
+      end subroutine symba_io_read_particle
 
       module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg)
          use swiftest_classes, only : swiftest_nbody_system, swiftest_parameters
@@ -403,14 +390,12 @@ module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn)
          integer(I4B),              intent(in)    :: irec   !! Current recursion level
          integer(I4B),              intent(in)    :: sgn    !! sign to be applied to acceleration
       end subroutine symba_kick_pltpenc
-
-      module subroutine symba_io_write_frame_info(self, iu, param)
-         use swiftest_classes, only : swiftest_parameters
+   
+      module subroutine symba_setup_initialize_particle_info(system, param) 
          implicit none
-         class(symba_particle_info), intent(in)    :: self  !! SyMBA particle info object
-         integer(I4B),               intent(inout) :: iu    !! Unit number for the output file to write frame to
-         class(swiftest_parameters), intent(in)    :: param !! Current run configuration parameters 
-      end subroutine symba_io_write_frame_info 
+         class(symba_nbody_system), intent(inout) :: system !! SyMBA nbody system object
+         class(symba_parameters),   intent(inout) :: param  !! Current run configuration parameters with SyMBA extensions
+      end subroutine symba_setup_initialize_particle_info
 
       module subroutine symba_setup_initialize_system(self, param)
          use swiftest_classes, only : swiftest_parameters
@@ -489,18 +474,20 @@ end subroutine symba_step_reset_system
    end interface
 
    interface util_append
-      module subroutine symba_util_append_arr_info(arr, source, lsource_mask)
+      module subroutine symba_util_append_arr_info(arr, source, nold, nsrc, lsource_mask)
          implicit none
          type(symba_particle_info), dimension(:), allocatable, intent(inout) :: arr          !! Destination array 
          type(symba_particle_info), dimension(:), allocatable, intent(in)    :: source       !! Array to append 
-         logical,                   dimension(:), optional,    intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+         integer(I4B),                                         intent(in)    :: nold, nsrc   !! Extend of the old array and the source array, respectively
+         logical,                   dimension(:),              intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
       end subroutine symba_util_append_arr_info
      
-      module subroutine symba_util_append_arr_kin(arr, source, lsource_mask)
+      module subroutine symba_util_append_arr_kin(arr, source, nold, nsrc, lsource_mask)
          implicit none
          type(symba_kinship), dimension(:), allocatable, intent(inout) :: arr          !! Destination array 
          type(symba_kinship), dimension(:), allocatable, intent(in)    :: source       !! Array to append 
-         logical,             dimension(:), optional,    intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+         integer(I4B),                                   intent(in)    :: nold, nsrc   !! Extend of the old array and the source array, respectively
+         logical,             dimension(:),              intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
       end subroutine symba_util_append_arr_kin
    end interface
 
@@ -510,7 +497,7 @@ module subroutine symba_util_append_merger(self, source, lsource_mask)
          implicit none
          class(symba_merger),             intent(inout) :: self         !! SyMBA massive body object
          class(swiftest_body),            intent(in)    :: source       !! Source object to append
-         logical, dimension(:), optional, intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+         logical, dimension(:),           intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
       end subroutine symba_util_append_merger
 
       module subroutine symba_util_append_pl(self, source, lsource_mask)
@@ -518,7 +505,7 @@ module subroutine symba_util_append_pl(self, source, lsource_mask)
          implicit none
          class(symba_pl),                 intent(inout) :: self         !! SyMBA massive body object
          class(swiftest_body),            intent(in)    :: source       !! Source object to append
-         logical, dimension(:), optional, intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+         logical, dimension(:),           intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
       end subroutine symba_util_append_pl
 
       module subroutine symba_util_append_tp(self, source, lsource_mask)
@@ -526,7 +513,7 @@ module subroutine symba_util_append_tp(self, source, lsource_mask)
          implicit none
          class(symba_tp),                 intent(inout) :: self        !! SyMBA test particle object
          class(swiftest_body),            intent(in)    :: source       !! Source object to append
-         logical, dimension(:), optional, intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+         logical, dimension(:),           intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
       end subroutine symba_util_append_tp
    end interface 
 
diff --git a/docs/src/symba_collision.f90 b/docs/src/symba_collision.f90
index caffdf296..1910411b9 100644
--- a/docs/src/symba_collision.f90
+++ b/docs/src/symba_collision.f90
@@ -22,7 +22,7 @@ module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec
       logical, dimension(:), allocatable        :: lcollision, lmask
       real(DP), dimension(NDIM)                 :: xr, vr
       integer(I4B)                              :: k
-      real(DP)                                  :: rlim, mtot
+      real(DP)                                  :: rlim, Gmtot
       logical                                   :: isplpl
 
       if (self%nenc == 0) return
@@ -55,8 +55,8 @@ module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec
                      xr(:) = pl%xh(:, ind1(k)) - pl%xh(:, ind2(k)) 
                      vr(:) = pl%vb(:, ind1(k)) - pl%vb(:, ind2(k))
                      rlim = pl%radius(ind1(k)) + pl%radius(ind2(k))
-                     mtot = pl%Gmass(ind1(k)) + pl%Gmass(ind2(k))
-                     lcollision(k) = symba_collision_check_one(xr(1), xr(2), xr(3), vr(1), vr(2), vr(3), mtot, rlim, dt, self%lvdotr(k))
+                     Gmtot = pl%Gmass(ind1(k)) + pl%Gmass(ind2(k))
+                     lcollision(k) = symba_collision_check_one(xr(1), xr(2), xr(3), vr(1), vr(2), vr(3), Gmtot, rlim, dt, self%lvdotr(k))
                   end do
                else
                   do concurrent(k = 1:nenc, lmask(k))
@@ -359,7 +359,7 @@ module subroutine symba_collision_make_family_pl(self, idx)
          p2 = pl%kin(idx(2))%parent
          if (p1 == p2) return ! This is a collision between to children of a shared parent. We will ignore it.
 
-         if (pl%Gmass(p1) > pl%Gmass(p2)) then
+         if (pl%mass(p1) > pl%mass(p2)) then
             index_parent = p1
             index_child = p2
          else
@@ -463,8 +463,8 @@ module subroutine symba_collision_resolve_fragmentations(self, system, param)
                mass_res(1) = min(max(mlr, 0.0_DP), mtot)
                mass_res(2) = min(max(mslr, 0.0_DP), mtot)
                mass_res(3) = min(max(mtot - mlr - mslr, 0.0_DP), mtot)
-               mass_res(:) = (mass_res(:) / param%MU2KG) * param%GU
-               Qloss = Qloss * (param%GU / param%MU2KG) * (param%TU2S / param%DU2M)**2
+               mass_res(:) = (mass_res(:) / param%MU2KG) 
+               Qloss = Qloss * (param%TU2S / param%DU2M)**2 / param%MU2KG
 
                select case (regime)
                case (COLLRESOLVE_REGIME_DISRUPTION)
diff --git a/docs/src/symba_discard.f90 b/docs/src/symba_discard.f90
index 5f6d3926a..253fb2700 100644
--- a/docs/src/symba_discard.f90
+++ b/docs/src/symba_discard.f90
@@ -271,7 +271,6 @@ subroutine symba_discard_peri_pl(pl, system, param)
       pl%lfirst = lfirst_orig
    
       return
-   
    end subroutine symba_discard_peri_pl
 
 
@@ -285,6 +284,8 @@ module subroutine symba_discard_pl(self, system, param)
       class(symba_pl),              intent(inout) :: self   !! SyMBA test particle object
       class(swiftest_nbody_system), intent(inout) :: system !! Swiftest nbody system object
       class(swiftest_parameters),   intent(inout) :: param  !! Current run configuration parameters 
+      ! Internals
+      real(DP) :: Eorbit_before, Eorbit_after
    
       select type(system)
       class is (symba_nbody_system)
@@ -309,8 +310,17 @@ module subroutine symba_discard_pl(self, system, param)
                end if
 
                if (any(pl%ldiscard(:))) then
+                  if (param%lenergy) then
+                     call system%get_energy_and_momentum(param)
+                     Eorbit_before = system%te
+                  end if
                   call symba_discard_nonplpl_conservation(self, system, param)
                   call pl%rearray(system, param)
+                  if (param%lenergy) then
+                     call system%get_energy_and_momentum(param)
+                     Eorbit_after = system%te
+                     system%Ecollisions = Eorbit_after - Eorbit_before
+                  end if
                end if
 
             end associate
diff --git a/docs/src/symba_fragmentation.f90 b/docs/src/symba_fragmentation.f90
index 9c13170af..b36c54e9a 100644
--- a/docs/src/symba_fragmentation.f90
+++ b/docs/src/symba_fragmentation.f90
@@ -28,122 +28,63 @@ module function symba_fragmentation_casedisruption(system, param, family, x, v,
       real(DP), dimension(2)                  :: vol
       real(DP), dimension(:, :), allocatable  :: vb_frag, xb_frag, rot_frag, Ip_frag
       real(DP), dimension(:), allocatable     :: m_frag, rad_frag
+      integer(I4B), dimension(:), allocatable :: id_frag
       logical                                 :: lfailure
-      logical,  dimension(system%pl%nbody)    :: lmask
-      class(symba_pl), allocatable            :: plnew
    
-      select type(pl => system%pl)
-      class is (symba_pl)
-         associate(pl_adds => system%pl_adds, pl_discards => system%pl_discards, cb => system%cb)
-            ! Collisional fragments will be uniformly distributed around the pre-impact barycenter
-            nfrag = NFRAG_DISRUPT 
-            allocate(m_frag(nfrag))
-            allocate(rad_frag(nfrag))
-            allocate(xb_frag(NDIM, nfrag))
-            allocate(vb_frag(NDIM, nfrag))
-            allocate(rot_frag(NDIM, nfrag))
-            allocate(Ip_frag(NDIM, nfrag))
-         
-            mtot = sum(mass(:))
-            xcom(:) = (mass(1) * x(:,1) + mass(2) * x(:,2)) / mtot
-            vcom(:) = (mass(1) * v(:,1) + mass(2) * v(:,2)) / mtot
-         
-            ! Get mass weighted mean of Ip and average density
-            Ip_new(:) = (mass(1) * Ip(:,1) + mass(2) * Ip(:,2)) / mtot
-            vol(:) = 4._DP / 3._DP * PI * radius(:)**3
-            avg_dens = mtot / sum(vol(:))
-         
-            ! Distribute the mass among fragments, with a branch to check for the size of the second largest fragment
-            m_frag(1) = mass_res(1)
-            if (mass_res(2) > mass_res(1) / 3._DP) then
-               m_frag(2) = mass_res(2)
-               istart = 3
-            else
-               istart = 2
-            end if
-            ! Distribute remaining mass among the remaining bodies
-            do i = istart, nfrag
-               m_frag(i) = (mtot - sum(m_frag(1:istart - 1))) / (nfrag - istart + 1) 
-            end do
-         
-            ! Distribute any residual mass if there is any and set the radius
-            m_frag(nfrag) = m_frag(nfrag) + (mtot - sum(m_frag(:)))
-            rad_frag(:) = (3 * m_frag(:) / (4 * PI * avg_dens))**(1.0_DP / 3.0_DP)
-         
-            do i = 1, nfrag
-               Ip_frag(:, i) = Ip_new(:)
-            end do
-         
-            call fragmentation_initialize(system, param, family, x, v, L_spin, Ip, mass, radius, &
-                                          nfrag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, Qloss, lfailure)
-         
-            if (lfailure) then
-               write(*,*) 'No fragment solution found, so treat as a pure hit-and-run'
-               status = ACTIVE 
-               nfrag = 0
-            else
-               ! Populate the list of new bodies
-               write(*,'("Generating ",I2.0," fragments")') nfrag
-               status = DISRUPTION
-
-               ! Add the family bodies to the subtraction list
-               nfamily = size(family(:))
-               lmask(:) = .false.
-               lmask(family(:)) = .true.
-               pl%status(family(:)) = MERGED
-               nstart = pl_discards%nbody + 1
-               nend = pl_discards%nbody + nfamily
-               call pl_discards%append(pl, lmask)
-               ! Record how many bodies were subtracted in this event
-               pl_discards%ncomp(nstart:nend) = nfamily 
-
-               allocate(plnew, mold=pl)
-               call plnew%setup(nfrag, param)
-    
-               plnew%id(:) = [(i, i = system%maxid + 1, system%maxid + nfrag)]
-               system%maxid = system%maxid + nfrag
-               plnew%status(:) = ACTIVE
-               plnew%lcollision(:) = .false.
-               plnew%ldiscard(:) = .false.
-               plnew%xb(:,:) = xb_frag(:, :) 
-               plnew%vb(:,:) = vb_frag(:, :)
-               do i = 1, nfrag
-                  plnew%xh(:,i) = xb_frag(:, i) - cb%xb(:)
-                  plnew%vh(:,i) = vb_frag(:, i) - cb%vb(:)
-               end do
-               plnew%mass(:) = m_frag(:)
-               plnew%Gmass(:) = param%GU * m_frag(:)
-               plnew%density(:) = avg_dens
-               plnew%radius(:) = rad_frag(:)
-               plnew%info(:)%origin_type = "Disruption"
-               plnew%info(:)%origin_time = param%t
-               do i = 1, nfrag
-                  plnew%info(i)%origin_xh(:) = plnew%xh(:,i)
-                  plnew%info(i)%origin_vh(:) = plnew%vh(:,i)
-               end do
-               if (param%lrotation) then
-                  plnew%Ip(:,:) = Ip_frag(:,:)
-                  plnew%rot(:,:) = rot_frag(:,:)
-               end if
-               if (param%ltides) then
-                  ibiggest = maxloc(pl%Gmass(family(:)), dim=1)
-                  plnew%Q = pl%Q(ibiggest)
-                  plnew%k2 = pl%k2(ibiggest)
-                  plnew%tlag = pl%tlag(ibiggest)
-               end if
+      ! Collisional fragments will be uniformly distributed around the pre-impact barycenter
+      nfrag = NFRAG_DISRUPT 
+      allocate(m_frag(nfrag))
+      allocate(rad_frag(nfrag))
+      allocate(xb_frag(NDIM, nfrag))
+      allocate(vb_frag(NDIM, nfrag))
+      allocate(rot_frag(NDIM, nfrag))
+      allocate(Ip_frag(NDIM, nfrag))
+      allocate(id_frag(nfrag))
    
-               ! Append the new merged body to the list and record how many we made
-               nstart = pl_adds%nbody + 1
-               nend = pl_adds%nbody + plnew%nbody
-               call pl_adds%append(plnew)
-               pl_adds%ncomp(nstart:nend) = plnew%nbody
-    
-               call plnew%setup(0, param)
-               deallocate(plnew)
-            end if
-
-         end associate
-      end select
+      mtot = sum(mass(:))
+      xcom(:) = (mass(1) * x(:,1) + mass(2) * x(:,2)) / mtot
+      vcom(:) = (mass(1) * v(:,1) + mass(2) * v(:,2)) / mtot
+   
+      ! Get mass weighted mean of Ip and average density
+      Ip_new(:) = (mass(1) * Ip(:,1) + mass(2) * Ip(:,2)) / mtot
+      vol(:) = 4._DP / 3._DP * PI * radius(:)**3
+      avg_dens = mtot / sum(vol(:))
+   
+      ! Distribute the mass among fragments, with a branch to check for the size of the second largest fragment
+      m_frag(1) = mass_res(1)
+      if (mass_res(2) > mass_res(1) / 3._DP) then
+         m_frag(2) = mass_res(2)
+         istart = 3
+      else
+         istart = 2
+      end if
+      ! Distribute remaining mass among the remaining bodies
+      do i = istart, nfrag
+         m_frag(i) = (mtot - sum(m_frag(1:istart - 1))) / (nfrag - istart + 1) 
+      end do
+   
+      ! Distribute any residual mass if there is any and set the radius
+      m_frag(nfrag) = m_frag(nfrag) + (mtot - sum(m_frag(:)))
+      rad_frag(:) = (3 * m_frag(:) / (4 * PI * avg_dens))**(1.0_DP / 3.0_DP)
+      id_frag(:) = [(i, i = system%maxid + 1, system%maxid + nfrag)]
+   
+      do i = 1, nfrag
+         Ip_frag(:, i) = Ip_new(:)
+      end do
+   
+      call fragmentation_initialize(system, param, family, x, v, L_spin, Ip, mass, radius, &
+                                    nfrag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, Qloss, lfailure)
+   
+      if (lfailure) then
+         write(*,*) 'No fragment solution found, so treat as a pure hit-and-run'
+         status = ACTIVE 
+         nfrag = 0
+      else
+         ! Populate the list of new bodies
+         write(*,'("Generating ",I2.0," fragments")') nfrag
+         status = DISRUPTION
+         call symba_fragmentation_mergeaddsub(system, param, family, id_frag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, status)
+      end if
 
       return
    end function symba_fragmentation_casedisruption
@@ -166,7 +107,7 @@ module function symba_fragmentation_casehitandrun(system, param, family, x, v, m
       ! Result
       integer(I4B)                                   :: status           !! Status flag assigned to this outcome
       ! Internals
-      integer(I4B)                            :: i, nfrag, jproj, jtarg, idstart, ibiggest, nfamily, nstart, nend
+      integer(I4B)                            :: i, nfrag, jproj, jtarg, idstart, ibiggest, nfamily
       real(DP)                                :: mtot, avg_dens
       real(DP), dimension(NDIM)               :: xcom, vcom
       real(DP), dimension(2)                  :: vol
@@ -175,133 +116,73 @@ module function symba_fragmentation_casehitandrun(system, param, family, x, v, m
       integer(I4B), dimension(:), allocatable :: id_frag
       logical                                 :: lpure
       logical,  dimension(system%pl%nbody)    :: lmask
-      class(symba_pl), allocatable            :: plnew
    
-      select type(pl => system%pl)
-      class is (symba_pl)
-         associate(pl_adds => system%pl_adds, pl_discards => system%pl_discards, cb => system%cb)
-            mtot = sum(mass(:))
-            xcom(:) = (mass(1) * x(:,1) + mass(2) * x(:,2)) / mtot
-            vcom(:) = (mass(1) * v(:,1) + mass(2) * v(:,2)) / mtot
-            lpure = .false.
-         
-            ! The largest body will stay untouched
-            if (mass(1) > mass(2)) then
-               jtarg = 1
-               jproj = 2
-            else
-               jtarg = 2
-               jproj = 1
-            end if
-         
-            if (mass_res(2) > 0.9_DP * mass(jproj)) then ! Pure hit and run, so we'll just keep the two bodies untouched
-               write(*,*) 'Pure hit and run. No new fragments generated.'
-               nfrag = 0
-               lpure = .true.
-            else ! Imperfect hit and run, so we'll keep the largest body and destroy the other
-               nfrag = NFRAG_DISRUPT - 1
-               lpure = .false.
-               allocate(m_frag(nfrag))
-               allocate(id_frag(nfrag))
-               allocate(rad_frag(nfrag))
-               allocate(xb_frag(NDIM, nfrag))
-               allocate(vb_frag(NDIM, nfrag))
-               allocate(rot_frag(NDIM, nfrag))
-               allocate(Ip_frag(NDIM, nfrag))
-               m_frag(1) = mass(jtarg)
-               ibiggest = maxloc(pl%Gmass(family(:)), dim=1)
-               id_frag(1) = pl%id(ibiggest)
-               rad_frag(1) = radius(jtarg)
-               xb_frag(:, 1) = x(:, jtarg) 
-               vb_frag(:, 1) = v(:, jtarg)
-               Ip_frag(:,1) = Ip(:, jtarg)
-         
-               ! Get mass weighted mean of Ip and average density
-               vol(:) = 4._DP / 3._DP * pi * radius(:)**3
-               avg_dens = mass(jproj) / vol(jproj)
-               m_frag(2:nfrag) = (mtot - m_frag(1)) / (nfrag - 1) 
-               rad_frag(2:nfrag) = (3 * m_frag(2:nfrag) / (4 * PI * avg_dens))**(1.0_DP / 3.0_DP)
-               m_frag(nfrag) = m_frag(nfrag) + (mtot - sum(m_frag(:)))
-         
-               do i = 1, nfrag
-                  Ip_frag(:, i) = Ip(:, jproj)
-               end do
-         
-               ! Put the fragments on the circle surrounding the center of mass of the system
-               call fragmentation_initialize(system, param, family, x, v, L_spin, Ip, mass, radius, &
-                                 nfrag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, Qloss, lpure)
-               if (lpure) then
-                  write(*,*) 'Should have been a pure hit and run instead'
-                  nfrag = 0
-               else
-                  write(*,'("Generating ",I2.0," fragments")') nfrag
-               end if
-            end if
-            if (lpure) then
-               status = ACTIVE
-            else
-               status = HIT_AND_RUN
-
-               ! Add the family bodies to the subtraction list
-               nfamily = size(family(:))
-               lmask(:) = .false.
-               lmask(family(:)) = .true.
-               pl%status(family(:)) = MERGED
-               nstart = pl_discards%nbody + 1
-               nend = pl_discards%nbody + nfamily
-               call pl_discards%append(pl, lmask)
-               ! Record how many bodies were subtracted in this event
-               pl_discards%ncomp(nstart:nend) = nfamily 
+      mtot = sum(mass(:))
+      xcom(:) = (mass(1) * x(:,1) + mass(2) * x(:,2)) / mtot
+      vcom(:) = (mass(1) * v(:,1) + mass(2) * v(:,2)) / mtot
+      lpure = .false.
    
-               allocate(plnew, mold=pl)
-               call plnew%setup(nfrag, param)
-    
-               plnew%id(:) = [(i, i = system%maxid + 1, system%maxid + nfrag)]
-               system%maxid = system%maxid + nfrag
-               plnew%status(:) = ACTIVE
-               plnew%lcollision(:) = .false.
-               plnew%ldiscard(:) = .false.
-               plnew%xb(:,:) = xb_frag(:, :) 
-               plnew%vb(:,:) = vb_frag(:, :)
-               do i = 1, nfrag
-                  plnew%xh(:,i) = xb_frag(:, i) - cb%xb(:)
-                  plnew%vh(:,i) = vb_frag(:, i) - cb%vb(:)
-               end do
-               plnew%mass(:) = m_frag(:)
-               plnew%Gmass(:) = param%GU * m_frag(:)
-               plnew%density(:) = avg_dens
-               plnew%radius(:) = rad_frag(:)
-               plnew%info(:)%origin_type = "Hit and run fragment"
-               plnew%info(:)%origin_time = param%t
-               do i = 1, nfrag
-                  plnew%info(i)%origin_xh(:) = plnew%xh(:,i)
-                  plnew%info(i)%origin_vh(:) = plnew%vh(:,i)
-               end do
-               if (param%lrotation) then
-                  plnew%Ip(:,:) = Ip_frag(:,:)
-                  plnew%rot(:,:) = rot_frag(:,:)
-               end if
-               if (param%ltides) then
-                  ibiggest = maxloc(pl%Gmass(family(:)), dim=1)
-                  plnew%Q = pl%Q(ibiggest)
-                  plnew%k2 = pl%k2(ibiggest)
-                  plnew%tlag = pl%tlag(ibiggest)
-               end if
+      ! The largest body will stay untouched
+      if (mass(1) > mass(2)) then
+         jtarg = 1
+         jproj = 2
+      else
+         jtarg = 2
+         jproj = 1
+      end if
    
-               ! Append the new merged body to the list and record how many we made
-               nstart = pl_adds%nbody + 1
-               nend = pl_adds%nbody + plnew%nbody
-               call pl_adds%append(plnew)
-               pl_adds%ncomp(nstart:nend) = plnew%nbody
-    
-               call plnew%setup(0, param)
-               deallocate(plnew)
-
-            end if
-         end associate
-      end select
+      if (mass_res(2) > 0.9_DP * mass(jproj)) then ! Pure hit and run, so we'll just keep the two bodies untouched
+         write(*,*) 'Pure hit and run. No new fragments generated.'
+         nfrag = 0
+         lpure = .true.
+      else ! Imperfect hit and run, so we'll keep the largest body and destroy the other
+         nfrag = NFRAG_DISRUPT - 1
+         lpure = .false.
+         allocate(m_frag(nfrag))
+         allocate(id_frag(nfrag))
+         allocate(rad_frag(nfrag))
+         allocate(xb_frag(NDIM, nfrag))
+         allocate(vb_frag(NDIM, nfrag))
+         allocate(rot_frag(NDIM, nfrag))
+         allocate(Ip_frag(NDIM, nfrag))
+         m_frag(1) = mass(jtarg)
+         ibiggest = maxloc(system%pl%Gmass(family(:)), dim=1)
+         id_frag(1) = system%pl%id(ibiggest)
+         rad_frag(1) = radius(jtarg)
+         xb_frag(:, 1) = x(:, jtarg) 
+         vb_frag(:, 1) = v(:, jtarg)
+         Ip_frag(:,1) = Ip(:, jtarg)
+   
+         ! Get mass weighted mean of Ip and average density
+         vol(:) = 4._DP / 3._DP * pi * radius(:)**3
+         avg_dens = mass(jproj) / vol(jproj)
+         m_frag(2:nfrag) = (mtot - m_frag(1)) / (nfrag - 1) 
+         rad_frag(2:nfrag) = (3 * m_frag(2:nfrag) / (4 * PI * avg_dens))**(1.0_DP / 3.0_DP)
+         m_frag(nfrag) = m_frag(nfrag) + (mtot - sum(m_frag(:)))
+         id_frag(2:nfrag) = [(i, i = system%maxid + 1, system%maxid + nfrag - 1)]
+   
+         do i = 1, nfrag
+            Ip_frag(:, i) = Ip(:, jproj)
+         end do
+   
+         ! Put the fragments on the circle surrounding the center of mass of the system
+         call fragmentation_initialize(system, param, family, x, v, L_spin, Ip, mass, radius, &
+                           nfrag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, Qloss, lpure)
+         if (lpure) then
+            write(*,*) 'Should have been a pure hit and run instead'
+            nfrag = 0
+         else
+            write(*,'("Generating ",I2.0," fragments")') nfrag
+         end if
+      end if
+      if (lpure) then
+         status = ACTIVE
+      else
+         status = HIT_AND_RUN
+         call symba_fragmentation_mergeaddsub(system, param, family, id_frag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, status)
+      end if
 
-      return
+   return
    end function symba_fragmentation_casehitandrun
 
 
@@ -323,118 +204,75 @@ module function symba_fragmentation_casemerge(system, param, family, x, v, mass,
       ! Result
       integer(I4B)                                   :: status           !! Status flag assigned to this outcome
       ! Internals
-      integer(I4B)                              :: i, j, ibiggest, nfamily, nstart, nend
-      real(DP)                                  :: mass_new, radius_new, volume_new, pe
-      real(DP), dimension(NDIM)                 :: xcom, vcom, xc, vc, xcrossv
+      integer(I4B)                              :: i, j, ibiggest, nfamily
+      real(DP)                                  :: volume_new, pe
+      real(DP), dimension(NDIM)                 :: xc, vc, xcrossv
       real(DP), dimension(2)                    :: vol
       real(DP), dimension(NDIM)                 :: L_orb_old, L_spin_old
-      real(DP), dimension(NDIM)                 :: L_spin_new, rot_new, Ip_new
+      real(DP), dimension(NDIM)                 :: L_spin_new
       logical,  dimension(system%pl%nbody)      :: lmask
-      class(symba_pl), allocatable              :: plnew
+      real(DP), dimension(NDIM, 1)              :: vb_frag, xb_frag, rot_frag, Ip_frag
+      real(DP), dimension(1)                    :: m_frag, rad_frag
+      integer(I4B), dimension(1)                :: id_frag
    
       select type(pl => system%pl)
       class is (symba_pl)
-         associate(pl_adds => system%pl_adds, pl_discards => system%pl_discards, cb => system%cb)
-            status = MERGED
-            write(*, '("Merging bodies ",99(I8,",",:))') pl%id(family(:))
-            mass_new = sum(mass(:))
-      
-            ! Merged body is created at the barycenter of the original bodies
-            xcom(:) = (mass(1) * x(:,1) + mass(2) * x(:,2)) / mass_new
-            vcom(:) = (mass(1) * v(:,1) + mass(2) * v(:,2)) / mass_new
-      
-            ! Get mass weighted mean of Ip and 
-            vol(:) = 4._DP / 3._DP * PI * radius(:)**3
-            volume_new = sum(vol(:))
-            radius_new = (3 * volume_new / (4 * PI))**(1._DP / 3._DP)
-
-            L_orb_old(:) = 0.0_DP
-
-            ! Compute orbital angular momentum of pre-impact system
-            do i = 1, 2
-               xc(:) = x(:, i) - xcom(:)
-               vc(:) = v(:, i) - vcom(:)
-               xcrossv(:) = xc(:) .cross. vc(:)
-               L_orb_old(:) = L_orb_old(:) + mass(i) * xcrossv(:)
-            end do
-         
-            if (param%lrotation) then
-               Ip_new(:) = (mass(1) * Ip(:,1) + mass(2) * Ip(:,2)) / mass_new
-               L_spin_old(:) = L_spin(:,1) + L_spin(:,2)
+         write(*, '("Merging bodies ",99(I8,",",:))') pl%id(family(:))
 
-               ! Conserve angular momentum by putting pre-impact orbital momentum into spin of the new body
-               L_spin_new(:) = L_orb_old(:) + L_spin_old(:) 
-      
-               ! Assume prinicpal axis rotation on 3rd Ip axis
-               rot_new(:) = L_spin_new(:) / (Ip_new(3) * mass_new * radius_new**2)
-            else ! If spin is not enabled, we will consider the lost pre-collision angular momentum as "escaped" and add it to our bookkeeping variable
-               system%Lescape(:) = system%Lescape(:) + L_orb_old(:) 
-            end if
+         ibiggest = maxloc(pl%Gmass(family(:)), dim=1)
+         id_frag(1) = pl%id(family(ibiggest))
+
+         m_frag(1) = sum(mass(:))
+   
+         ! Merged body is created at the barycenter of the original bodies
+         xb_frag(:,1) = (mass(1) * x(:,1) + mass(2) * x(:,2)) / m_frag(1)
+         vb_frag(:,1) = (mass(1) * v(:,1) + mass(2) * v(:,2)) / m_frag(1)
+   
+         ! Get mass weighted mean of Ip and 
+         vol(:) = 4._DP / 3._DP * PI * radius(:)**3
+         volume_new = sum(vol(:))
+         rad_frag(1) = (3 * volume_new / (4 * PI))**(1._DP / 3._DP)
+
+         L_orb_old(:) = 0.0_DP
+
+         ! Compute orbital angular momentum of pre-impact system
+         do i = 1, 2
+            xc(:) = x(:, i) - xb_frag(:,1)
+            vc(:) = v(:, i) - vb_frag(:,1)
+            xcrossv(:) = xc(:) .cross. vc(:)
+            L_orb_old(:) = L_orb_old(:) + mass(i) * xcrossv(:)
+         end do
       
-            ! Keep track of the component of potential energy due to the pre-impact family for book-keeping
-            nfamily = size(family(:))
-            pe = 0.0_DP
-            do j = 1, nfamily
-               do i = j + 1, nfamily
-                  pe = pe - pl%mass(i) * pl%mass(j) / norm2(pl%xb(:, i) - pl%xb(:, j))
-               end do
+         if (param%lrotation) then
+            Ip_frag(:,1) = (mass(1) * Ip(:,1) + mass(2) * Ip(:,2)) / m_frag(1)
+            L_spin_old(:) = L_spin(:,1) + L_spin(:,2)
+
+            ! Conserve angular momentum by putting pre-impact orbital momentum into spin of the new body
+            L_spin_new(:) = L_orb_old(:) + L_spin_old(:) 
+   
+            ! Assume prinicpal axis rotation on 3rd Ip axis
+            rot_frag(:,1) = L_spin_new(:) / (Ip_frag(3,1) * m_frag(1) * rad_frag(1)**2)
+         else ! If spin is not enabled, we will consider the lost pre-collision angular momentum as "escaped" and add it to our bookkeeping variable
+            system%Lescape(:) = system%Lescape(:) + L_orb_old(:) 
+         end if
+   
+         ! Keep track of the component of potential energy due to the pre-impact family for book-keeping
+         nfamily = size(family(:))
+         pe = 0.0_DP
+         do j = 1, nfamily
+            do i = j + 1, nfamily
+               pe = pe - pl%mass(i) * pl%mass(j) / norm2(pl%xb(:, i) - pl%xb(:, j))
             end do
-            system%Ecollisions  = system%Ecollisions + pe 
-            system%Euntracked = system%Euntracked - pe 
-     
-            ! Add the family bodies to the subtraction list
-            lmask(:) = .false.
-            lmask(family(:)) = .true.
-            pl%status(family(:)) = MERGED
-            nstart = pl_discards%nbody + 1
-            nend = pl_discards%nbody + nfamily
-            call pl_discards%append(pl, lmask)
-            ! Record how many bodies were subtracted in this event
-            pl_discards%ncomp(nstart:nend) = nfamily 
-
-            ! Create the new merged body 
-            allocate(plnew, mold=pl)
-            call plnew%setup(1, param)
-
-            ! The merged body's name will be that of the largest of the two parents 
-            ibiggest = maxloc(pl%Gmass(family(:)), dim=1)
-            plnew%id(1) = pl%id(family(ibiggest))
-            plnew%status(1) = ACTIVE
-            plnew%lcollision = .false.
-            plnew%ldiscard = .false.
-            plnew%xb(:,1) = xcom(:)
-            plnew%vb(:,1) = vcom(:)
-            plnew%xh(:,1) = xcom(:) - cb%xb(:)
-            plnew%vh(:,1) = vcom(:) - cb%vb(:)
-            plnew%mass(1) = mass_new
-            plnew%Gmass(1) = param%GU * mass_new
-            plnew%density(1) = mass_new / volume_new
-            plnew%radius(1) = radius_new
-            plnew%info(1) = pl%info(family(ibiggest)) 
-            if (param%lrotation) then
-               plnew%Ip(:,1) = Ip_new(:)
-               plnew%rot(:,1) = rot_new(:)
-            end if
-            if (param%ltides) then
-               plnew%Q = pl%Q(ibiggest)
-               plnew%k2 = pl%k2(ibiggest)
-               plnew%tlag = pl%tlag(ibiggest)
-            end if
-
-            ! Append the new merged body to the list and record how many we made
-            nstart = pl_adds%nbody + 1
-            nend = pl_adds%nbody + plnew%nbody
-            call pl_adds%append(plnew)
-            pl_adds%ncomp(nstart:nend) = plnew%nbody
-
-            call plnew%setup(0, param)
-            deallocate(plnew)
-
-         end associate
+         end do
+         system%Ecollisions  = system%Ecollisions + pe 
+         system%Euntracked = system%Euntracked - pe 
+
+         status = MERGED
+         call symba_fragmentation_mergeaddsub(system, param, family, id_frag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, status)
+         
       end select
    
       return 
-
    end function symba_fragmentation_casemerge
 
 
@@ -462,75 +300,112 @@ module function symba_fragmentation_casesupercatastrophic(system, param, family,
       real(DP), dimension(NDIM)               :: Ip_new
       real(DP), dimension(:, :), allocatable  :: vb_frag, xb_frag, rot_frag, Ip_frag
       real(DP), dimension(:), allocatable     :: m_frag, rad_frag
+      integer(I4B), dimension(:), allocatable :: id_frag
       logical                                 :: lfailure
       logical,  dimension(system%pl%nbody)    :: lmask
+
+      ! Collisional fragments will be uniformly distributed around the pre-impact barycenter
+      nfrag = NFRAG_SUPERCAT
+      allocate(m_frag(nfrag))
+      allocate(rad_frag(nfrag))
+      allocate(id_frag(nfrag))
+      allocate(xb_frag(NDIM, nfrag))
+      allocate(vb_frag(NDIM, nfrag))
+      allocate(rot_frag(NDIM, nfrag))
+      allocate(Ip_frag(NDIM, nfrag))
+   
+      mtot = sum(mass(:))
+      xcom(:) = (mass(1) * x(:,1) + mass(2) * x(:,2)) / mtot
+      vcom(:) = (mass(1) * v(:,1) + mass(2) * v(:,2)) / mtot
+   
+      ! Get mass weighted mean of Ip and average density
+      Ip_new(:) = (mass(1) * Ip(:,1) + mass(2) * Ip(:,2)) / mtot
+      vol(:) = 4._DP / 3._DP * pi * radius(:)**3
+      avg_dens = mtot / sum(vol(:))
+   
+      ! If we are adding the first and largest fragment (lr), check to see if its mass is SMALLER than an equal distribution of 
+      ! mass between all fragments. If so, we will just distribute the mass equally between the fragments
+      min_frag_mass = mtot / nfrag
+      if (mass_res(1) < min_frag_mass) then
+         m_frag(:) = min_frag_mass
+      else
+         m_frag(1) = mass_res(1)
+         m_frag(2:nfrag) = (mtot - mass_res(1)) / (nfrag - 1)
+      end if
+      ! Distribute any residual mass if there is any and set the radius
+      m_frag(nfrag) = m_frag(nfrag) + (mtot - sum(m_frag(:)))
+      rad_frag(:) = (3 * m_frag(:) / (4 * PI * avg_dens))**(1.0_DP / 3.0_DP)
+      id_frag(:) = [(i, i = system%maxid + 1, system%maxid + nfrag)]
+   
+      do i = 1, nfrag
+         Ip_frag(:, i) = Ip_new(:)
+      end do
+
+      call fragmentation_initialize(system, param, family, x, v, L_spin, Ip, mass, radius, &
+                                    nfrag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, Qloss, lfailure)
+   
+      if (lfailure) then
+         write(*,*) 'No fragment solution found, so treat as a pure hit-and-run'
+         status = ACTIVE 
+         nfrag = 0
+      else
+         ! Populate the list of new bodies
+         write(*,'("Generating ",I2.0," fragments")') nfrag
+         status = SUPERCATASTROPHIC
+         call symba_fragmentation_mergeaddsub(system, param, family, id_frag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, status)
+      end if
+
+      return
+   end function symba_fragmentation_casesupercatastrophic
+
+
+   subroutine symba_fragmentation_mergeaddsub(system, param, family, id_frag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, status)
+      !! author:  David A. Minton
+      !!
+      !! Fills the pl_discards and pl_adds with removed and added bodies
+      !!  
+      implicit none
+      ! Arguments
+      class(symba_nbody_system),       intent(inout) :: system           !! SyMBA nbody system object
+      class(symba_parameters),         intent(in)    :: param            !! Current run configuration parameters with SyMBA additions
+      integer(I4B),    dimension(:),   intent(in)    :: family           !! List of indices of all bodies inovlved in the collision
+      integer(I4B),    dimension(:),   intent(in)    :: id_frag          !! List of fragment ids
+      real(DP),        dimension(:),   intent(in)    :: m_frag, rad_frag !! Distribution of fragment mass and radii
+      real(DP),        dimension(:,:), intent(in)    :: Ip_frag          !! Fragment rotational inertia vectors
+      real(DP),        dimension(:,:), intent(in)    :: xb_frag, vb_frag, rot_frag !! Fragment barycentric position, barycentric velocity, and rotation vectors
+      integer(I4B),                    intent(in)    :: status           !! Status flag to assign to adds
+      ! Internals
+      integer(I4B) :: i, ibiggest, nstart, nend, nfamily, nfrag
+      logical, dimension(system%pl%nbody)    :: lmask
       class(symba_pl), allocatable            :: plnew
-    
+
       select type(pl => system%pl)
       class is (symba_pl)
-         associate(pl_adds => system%pl_adds, pl_discards => system%pl_discards, cb => system%cb)
-            ! Collisional fragments will be uniformly distributed around the pre-impact barycenter
-            nfrag = NFRAG_SUPERCAT
-            allocate(m_frag(nfrag))
-            allocate(rad_frag(nfrag))
-            allocate(xb_frag(NDIM, nfrag))
-            allocate(vb_frag(NDIM, nfrag))
-            allocate(rot_frag(NDIM, nfrag))
-            allocate(Ip_frag(NDIM, nfrag))
-         
-            mtot = sum(mass(:))
-            xcom(:) = (mass(1) * x(:,1) + mass(2) * x(:,2)) / mtot
-            vcom(:) = (mass(1) * v(:,1) + mass(2) * v(:,2)) / mtot
-         
-            ! Get mass weighted mean of Ip and average density
-            Ip_new(:) = (mass(1) * Ip(:,1) + mass(2) * Ip(:,2)) / mtot
-            vol(:) = 4._DP / 3._DP * pi * radius(:)**3
-            avg_dens = mtot / sum(vol(:))
-         
-            ! If we are adding the first and largest fragment (lr), check to see if its mass is SMALLER than an equal distribution of 
-            ! mass between all fragments. If so, we will just distribute the mass equally between the fragments
-            min_frag_mass = mtot / nfrag
-            if (mass_res(1) < min_frag_mass) then
-               m_frag(:) = min_frag_mass
-            else
-               m_frag(1) = mass_res(1)
-               m_frag(2:nfrag) = (mtot - mass_res(1)) / (nfrag - 1)
-            end if
-            ! Distribute any residual mass if there is any and set the radius
-            m_frag(nfrag) = m_frag(nfrag) + (mtot - sum(m_frag(:)))
-            rad_frag(:) = (3 * m_frag(:) / (4 * PI * avg_dens))**(1.0_DP / 3.0_DP)
-         
-            do i = 1, nfrag
-               Ip_frag(:, i) = Ip_new(:)
-            end do
-
-            call fragmentation_initialize(system, param, family, x, v, L_spin, Ip, mass, radius, &
-                                          nfrag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, Qloss, lfailure)
-         
-            if (lfailure) then
-               write(*,*) 'No fragment solution found, so treat as a pure hit-and-run'
-               status = ACTIVE 
-               nfrag = 0
-            else
-               ! Populate the list of new bodies
-               write(*,'("Generating ",I2.0," fragments")') nfrag
-               status = SUPERCATASTROPHIC
+         select type(pl_discards => system%pl_discards)
+         class is (symba_merger)
+            associate(pl_adds => system%pl_adds, cb => system%cb)
 
                ! Add the family bodies to the subtraction list
                nfamily = size(family(:))
+               nfrag   = size(m_frag(:))
                lmask(:) = .false.
                lmask(family(:)) = .true.
                pl%status(family(:)) = MERGED
                nstart = pl_discards%nbody + 1
                nend = pl_discards%nbody + nfamily
                call pl_discards%append(pl, lmask)
+               pl%ldiscard(family(:)) = .true.
+               pl%lcollision(family(:)) = .true.
+
                ! Record how many bodies were subtracted in this event
                pl_discards%ncomp(nstart:nend) = nfamily 
 
+               ! Setup new bodies
                allocate(plnew, mold=pl)
                call plnew%setup(nfrag, param)
-    
-               plnew%id(:) = [(i, i = system%maxid + 1, system%maxid + nfrag)]
+               ibiggest = maxloc(pl%Gmass(family(:)), dim=1)
+
+               plnew%id(:) = id_frag(:) 
                system%maxid = system%maxid + nfrag
                plnew%status(:) = ACTIVE
                plnew%lcollision(:) = .false.
@@ -543,39 +418,53 @@ module function symba_fragmentation_casesupercatastrophic(system, param, family,
                end do
                plnew%mass(:) = m_frag(:)
                plnew%Gmass(:) = param%GU * m_frag(:)
-               plnew%density(:) = avg_dens
                plnew%radius(:) = rad_frag(:)
-               plnew%info(:)%origin_type = "Supercatastrophic"
-               plnew%info(:)%origin_time = param%t
-               do i = 1, nfrag
-                  plnew%info(i)%origin_xh(:) = plnew%xh(:,i)
-                  plnew%info(i)%origin_vh(:) = plnew%vh(:,i)
-               end do
+               plnew%density(:) = m_frag(:) / rad_frag(:)
+
+               select case(status)
+               case(DISRUPTION)
+                  plnew%info(:)%origin_type = "Disruption"
+               case(SUPERCATASTROPHIC)
+                  plnew%info(:)%origin_type = "Supercatastrophic"
+               case(HIT_AND_RUN)
+                  plnew%info(:)%origin_type = "Hit and run fragment"
+               case(MERGED)
+                  plnew%info(1) = pl%info(ibiggest)
+               end select
+
+               if (status /= MERGED) then
+                  plnew%info(:)%origin_time = param%t
+                  do i = 1, nfrag
+                     plnew%info(i)%origin_xh(:) = plnew%xh(:,i)
+                     plnew%info(i)%origin_vh(:) = plnew%vh(:,i)
+                  end do
+               end if
+
                if (param%lrotation) then
                   plnew%Ip(:,:) = Ip_frag(:,:)
                   plnew%rot(:,:) = rot_frag(:,:)
                end if
                if (param%ltides) then
-                  ibiggest = maxloc(pl%Gmass(family(:)), dim=1)
                   plnew%Q = pl%Q(ibiggest)
                   plnew%k2 = pl%k2(ibiggest)
                   plnew%tlag = pl%tlag(ibiggest)
                end if
-   
+               call plnew%set_mu(cb)
+               pl%lmtiny(:) = pl%Gmass(:) > param%GMTINY
+
                ! Append the new merged body to the list and record how many we made
                nstart = pl_adds%nbody + 1
                nend = pl_adds%nbody + plnew%nbody
-               call pl_adds%append(plnew)
+               call pl_adds%append(plnew, lsource_mask=[(.true., i=1, plnew%nbody)])
                pl_adds%ncomp(nstart:nend) = plnew%nbody
-    
+
                call plnew%setup(0, param)
                deallocate(plnew)
-            end if
-
-         end associate
+            end associate
+         end select
       end select
 
       return
-   end function symba_fragmentation_casesupercatastrophic
+   end subroutine symba_fragmentation_mergeaddsub
 
 end submodule s_symba_fragmentation
diff --git a/docs/src/symba_io.f90 b/docs/src/symba_io.f90
index 713429365..97e5798c2 100644
--- a/docs/src/symba_io.f90
+++ b/docs/src/symba_io.f90
@@ -2,26 +2,88 @@
    use swiftest
 contains
 
-   module subroutine symba_io_dump_particle_info(self, param, msg) 
+   module subroutine symba_io_dump_particle_info(system, param, lincludecb, tpidx, plidx) 
       !! author: David A. Minton
       !!
-      !! Dumps the particle information data to a file
+      !! Dumps the particle information data to a file. 
+      !! Pass a list of array indices for test particles (tpidx) and/or massive bodies (plidx) to append
       implicit none
-      class(symba_particle_info), intent(inout) :: self  !! Swiftest base object
-      class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters 
-      character(*), optional,     intent(in)    :: msg   !! Message to display with dump operation
-   end subroutine symba_io_dump_particle_info
+      ! Arguments
+      class(symba_nbody_system),             intent(inout) :: system !! SyMBA nbody system object
+      class(symba_parameters),               intent(in)    :: param  !! Current run configuration parameters with SyMBA extensions
+      logical,                     optional, intent(in)    :: lincludecb  !! Set to true to include the central body (default is false)
+      integer(I4B), dimension(:),  optional, intent(in)    :: tpidx  !! Array of test particle indices to append to the particle file
+      integer(I4B), dimension(:),  optional, intent(in)    :: plidx  !! Array of massive body indices to append to the particle file
+      ! Internals
+      logical, save             :: lfirst = .true.
+      integer(I4B), parameter   :: LUN = 22
+      integer(I4B)              :: i, ierr
 
+      if (lfirst) then
+         select case(param%out_stat)
+         case('APPEND')
+            open(unit = LUN, file = param%particle_out, status = 'OLD', position = 'APPEND', form = 'UNFORMATTED', iostat = ierr)
+         case('NEW', 'UNKNOWN', 'REPLACE')
+            open(unit = LUN, file = param%particle_out, status = param%out_stat, form = 'UNFORMATTED', iostat = ierr)
+         case default
+            write(*,*) 'Invalid status code',trim(adjustl(param%out_stat))
+            call util_exit(FAILURE)
+         end select
+         if (ierr /= 0) then
+            write(*, *) "Swiftest error:"
+            write(*, *) "   particle output file already exists or cannot be accessed"
+            call util_exit(FAILURE)
+         end if
 
-   module subroutine symba_io_initialize_particle_info(self, param) 
-      !! author: David A. Minton
-      !!
-      !! Initializes a particle info data structure, either starting a new one or reading one in 
-      !! from a file if it is a restarted run
-      implicit none
-      class(symba_particle_info), intent(inout) :: self  !! SyMBA particle info object
-      class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters 
-   end subroutine symba_io_initialize_particle_info
+         lfirst = .false.
+      else
+         open(unit = LUN, file = param%particle_out, status = 'OLD', position =  'APPEND', form = 'UNFORMATTED', iostat = ierr)
+         if (ierr /= 0) then
+            write(*, *) "Swiftest error:"
+            write(*, *) "   unable to open binary output file for APPEND"
+            call util_exit(FAILURE)
+         end if
+      end if
+
+      if (present(lincludecb)) then
+         if (lincludecb) then
+            select type(cb => system%cb)
+            class is (symba_cb)
+               write(LUN) cb%id
+               write(LUN) cb%info
+            end select
+         end if
+      end if
+
+      if (present(plidx) .and. (system%pl%nbody > 0)) then
+         select type(pl => system%pl)
+         class is (symba_pl)
+            do i = 1, size(plidx)
+               write(LUN) pl%id(plidx(i))
+               write(LUN) pl%info(plidx(i))
+            end do
+         end select
+      end if
+
+      if (present(tpidx) .and. (system%tp%nbody > 0)) then
+         select type(tp => system%tp)
+         class is (symba_tp)
+            do i = 1, size(tpidx)
+               write(LUN) tp%id(tpidx(i))
+               write(LUN) tp%info(tpidx(i))
+            end do
+         end select
+      end if
+
+      close(unit = LUN, iostat = ierr)
+      if (ierr /= 0) then
+         write(*, *) "Swiftest error:"
+         write(*, *) "   unable to close particle output file"
+         call util_exit(FAILURE)
+      end if
+
+      return
+   end subroutine symba_io_dump_particle_info
 
 
    module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, iomsg) 
@@ -68,6 +130,8 @@ module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, ioms
                ifirst = ilast + 1
                param_value = io_get_token(line_trim, ifirst, ilast, iostat)
                select case (param_name)
+               case ("PARTICLE_OUT")
+                  param%particle_out = param_value
                case ("FRAGMENTATION")
                   call io_toupper(param_value)
                   if (param_value == "YES" .or. param_value == "T") self%lfragmentation = .true.
@@ -166,7 +230,7 @@ module subroutine symba_io_param_writer(self, unit, iotype, v_list, iostat, ioms
 
          ! Special handling is required for writing the random number seed array as its size is not known until runtime
          ! For the "SEED" parameter line, the first value will be the size of the seed array and the rest will be the seed array elements
-         write(param_name, Afmt) "PARTICLE_FILE"; write(param_value, Afmt) trim(adjustl(param%particle_file)); write(unit, Afmt) adjustl(param_name), adjustl(param_value)
+         write(param_name, Afmt) "PARTICLE_OUT"; write(param_value, Afmt) trim(adjustl(param%particle_out)); write(unit, Afmt) adjustl(param_name), adjustl(param_value)
          write(param_name, Afmt) "GMTINY"; write(param_value, Rfmt) param%Gmtiny; write(unit, Afmt) adjustl(param_name), adjustl(param_value)
          write(param_name, Afmt) "FRAGMENTATION"; write(param_value, Lfmt)  param%lfragmentation; write(unit, Afmt) adjustl(param_name), adjustl(param_value)
          if (param%lfragmentation) then
@@ -194,19 +258,74 @@ module subroutine symba_io_param_writer(self, unit, iotype, v_list, iostat, ioms
    end subroutine symba_io_param_writer
 
 
-   module subroutine symba_io_read_frame_info(self, iu, param, form, ierr)
+   module subroutine symba_io_read_particle(system, param)
       !! author: David A. Minton
       !!
-      !! Reads a single frame of a particle info data from a file.
+      !! Reads an old particle information file for a restartd run
       implicit none
-      class(symba_particle_info), intent(inout) :: self  !! SyMBA particle info object
-      integer(I4B),               intent(inout) :: iu    !! Unit number for the output file to write frame to
-      class(swiftest_parameters), intent(inout) :: param !! Current run configuration parameters 
-      character(*),               intent(in)    :: form  !! Input format code ("XV" or "EL")
-      integer(I4B),               intent(out)   :: ierr  !! Error code
+      class(symba_nbody_system), intent(inout) :: system !! SyMBA nbody system file
+      class(symba_parameters),   intent(inout) :: param  !! Current run configuration parameters with SyMBA extensions
 
-      ierr = 0
-   end subroutine symba_io_read_frame_info
+      ! Internals
+      integer(I4B), parameter :: LUN = 22
+      integer(I4B)            :: i, ierr, id, idx
+      logical                 :: lmatch  
+      type(symba_particle_info) :: tmpinfo
+
+      open(unit = LUN, file = param%particle_out, status = 'OLD', form = 'UNFORMATTED', iostat = ierr)
+      if (ierr /= 0) then
+         write(*, *) "Swiftest error:"
+         write(*, *) "   unable to open binary particle file for reading"
+         call util_exit(FAILURE)
+      end if
+
+      select type(cb => system%cb)
+      class is (symba_cb)
+         select type(pl => system%pl)
+         class is (symba_pl)
+            select type(tp => system%tp)
+            class is (symba_tp)
+               do 
+                  lmatch = .false.
+                  read(LUN, iostat=ierr) id
+                  if (ierr /=0) exit
+
+                  if (idx == cb%id) then
+                     read(LUN) cb%info
+                     lmatch = .true.
+                  else 
+                     if (pl%nbody > 0) then
+                        idx = findloc(pl%id(:), id, dim=1)
+                        if (idx /= 0) then
+                           read(LUN) pl%info(idx)
+                           lmatch = .true.
+                        end if
+                     end if
+                     if (.not.lmatch .and. tp%nbody > 0) then
+                        idx = findloc(tp%id(:), id, dim=1)
+                        if (idx /= 0) then
+                           read(LUN) tp%info(idx)
+                           lmatch = .true.
+                        end if
+                     end if
+                  end if
+                  if (.not.lmatch) then
+                     write(*,*) 'Particle id ',id,' not found. Skipping'
+                     read(LUN) tmpinfo
+                  end if
+               end do
+               close(unit = LUN, iostat = ierr)
+            end select
+         end select
+      end select
+      if (ierr /= 0) then
+         write(*, *) "Swiftest error:"
+         write(*, *) "   unable to close particle output file"
+         call util_exit(FAILURE)
+      end if
+
+      return
+   end subroutine symba_io_read_particle
 
 
    module subroutine symba_io_write_discard(self, param)
@@ -225,66 +344,60 @@ module subroutine symba_io_write_discard(self, param)
       character(*), parameter :: PLNAMEFMT = '(I8, 2(1X, E23.16))'
       class(swiftest_body), allocatable :: pltemp
 
-      associate(pl => self%pl, npl => self%pl%nbody, pl_discards => self%pl_discards, pl_adds => self%pl_adds)
+      associate(pl => self%pl, npl => self%pl%nbody, pl_adds => self%pl_adds)
          if (self%tp_discards%nbody > 0) call io_write_discard(self, param)
+         select type(pl_discards => self%pl_discards)
+         class is (symba_merger)
+            if (pl_discards%nbody == 0) return
+            select case(param%out_stat)
+            case('APPEND')
+               open(unit = LUN, file = param%discard_out, status = 'OLD', position = 'APPEND', form = 'FORMATTED', iostat = ierr)
+            case('NEW', 'REPLACE', 'UNKNOWN')
+               open(unit = LUN, file = param%discard_out, status = param%out_stat, form = 'FORMATTED', iostat = ierr)
+            case default
+               write(*,*) 'Invalid status code for OUT_STAT: ',trim(adjustl(param%out_stat))
+               call util_exit(FAILURE)
+            end select
+            lfirst = .false.
+            if (param%lgr) then
+               call pl_discards%pv2v(param) 
+               call pl_adds%pv2v(param) 
+            end if
 
-         if (pl_discards%nbody == 0) return
-         select case(param%out_stat)
-         case('APPEND')
-            open(unit = LUN, file = param%discard_out, status = 'OLD', position = 'APPEND', form = 'FORMATTED', iostat = ierr)
-         case('NEW', 'REPLACE', 'UNKNOWN')
-            open(unit = LUN, file = param%discard_out, status = param%out_stat, form = 'FORMATTED', iostat = ierr)
-         case default
-            write(*,*) 'Invalid status code for OUT_STAT: ',trim(adjustl(param%out_stat))
-            call util_exit(FAILURE)
-         end select
-         lfirst = .false.
-         if (param%lgr) then
-            call pl_discards%pv2v(param) 
-            call pl_adds%pv2v(param) 
-         end if
-
-         write(LUN, HDRFMT) param%t, pl_discards%nbody, param%lbig_discard
-         iadd = 1
-         isub = 1
-         do while (iadd <= pl_adds%nbody)
-            nadd = pl_adds%ncomp(iadd)
-            nsub = pl_discards%ncomp(isub)
-            do j = 1, nadd
-               if (iadd <= pl_adds%nbody) then
-                  write(LUN, NAMEFMT) ADD, pl_discards%id(iadd), pl_discards%status(iadd)
-                  write(LUN, VECFMT) pl_adds%xh(1, iadd), pl_adds%xh(2, iadd), pl_adds%xh(3, iadd)
-                  write(LUN, VECFMT) pl_adds%vh(1, iadd), pl_adds%vh(2, iadd), pl_adds%vh(3, iadd)
-               else 
-                  exit
-               end if
-               iadd = iadd + 1
-            end do
-            do j = 1, nsub
-               if (isub <= pl_discards%nbody) then
-                  write(LUN, NAMEFMT) SUB, pl_discards%id(isub), pl_discards%status(isub)
-                  write(LUN, VECFMT) pl_discards%xh(1, isub), pl_discards%xh(2, isub), pl_discards%xh(3, isub)
-                  write(LUN, VECFMT) pl_discards%vh(1, isub), pl_discards%vh(2, isub), pl_discards%vh(3, isub)
-               else
-                  exit
-               end if
-               isub = isub + 1
+            write(LUN, HDRFMT) param%t, pl_discards%nbody, param%lbig_discard
+            iadd = 1
+            isub = 1
+            do while (iadd <= pl_adds%nbody)
+               nadd = pl_adds%ncomp(iadd)
+               nsub = pl_discards%ncomp(isub)
+               do j = 1, nadd
+                  if (iadd <= pl_adds%nbody) then
+                     write(LUN, NAMEFMT) ADD, pl_adds%id(iadd), pl_adds%status(iadd)
+                     write(LUN, VECFMT) pl_adds%xh(1, iadd), pl_adds%xh(2, iadd), pl_adds%xh(3, iadd)
+                     write(LUN, VECFMT) pl_adds%vh(1, iadd), pl_adds%vh(2, iadd), pl_adds%vh(3, iadd)
+                  else 
+                     exit
+                  end if
+                  iadd = iadd + 1
+               end do
+               do j = 1, nsub
+                  if (isub <= pl_discards%nbody) then
+                     write(LUN, NAMEFMT) SUB, pl_discards%id(isub), pl_discards%status(isub)
+                     write(LUN, VECFMT) pl_discards%xh(1, isub), pl_discards%xh(2, isub), pl_discards%xh(3, isub)
+                     write(LUN, VECFMT) pl_discards%vh(1, isub), pl_discards%vh(2, isub), pl_discards%vh(3, isub)
+                  else
+                     exit
+                  end if
+                  isub = isub + 1
+               end do
             end do
-         end do
 
-         close(LUN)
+            close(LUN)
+         end select
       end associate
 
       return
    end subroutine symba_io_write_discard
 
-
-   module subroutine symba_io_write_frame_info(self, iu, param)
-      implicit none
-      class(symba_particle_info), intent(in)    :: self  !! SyMBA particle info object
-      integer(I4B),               intent(inout) :: iu      !! Unit number for the output file to write frame to
-      class(swiftest_parameters), intent(in)    :: param   !! Current run configuration parameters 
-   end subroutine symba_io_write_frame_info 
-
 end submodule s_symba_io
 
diff --git a/docs/src/symba_setup.f90 b/docs/src/symba_setup.f90
index ab8b5543e..e06fb20b5 100644
--- a/docs/src/symba_setup.f90
+++ b/docs/src/symba_setup.f90
@@ -2,6 +2,62 @@
    use swiftest
 contains
 
+   module subroutine symba_setup_initialize_particle_info(system, param) 
+      !! author: David A. Minton
+      !!
+      !! Initializes a new particle information data structure with initial conditions recorded
+      implicit none
+      ! Argumets
+      class(symba_nbody_system), intent(inout) :: system  !! SyMBA nbody system object
+      class(symba_parameters),   intent(inout) :: param !! Current run configuration parameters with SyMBA extensions
+      ! Internals
+      integer(I4B) :: i
+      integer(I4B), dimension(:), allocatable :: idx
+
+      select type(cb => system%cb)
+      class is (symba_cb)
+         cb%info%origin_type = "Central body"
+         cb%info%origin_time = param%t0
+         cb%info%origin_xh(:) = 0.0_DP
+         cb%info%origin_vh(:) = 0.0_DP
+         call symba_io_dump_particle_info(system, param, lincludecb=.true.)
+      end select
+
+      select type(pl => system%pl)
+      class is (symba_pl)
+         do i = 1, pl%nbody
+            pl%info(i)%origin_type = "Initial conditions"
+            pl%info(i)%origin_time = param%t0
+            pl%info(i)%origin_xh(:) = pl%xh(:,i)
+            pl%info(i)%origin_vh(:) = pl%vh(:,i)
+         end do
+         if (pl%nbody > 0) then
+            allocate(idx(pl%nbody))
+            call symba_io_dump_particle_info(system, param, plidx=[(i, i=1, pl%nbody)])
+            deallocate(idx)
+         end if
+      end select
+
+      select type(tp => system%tp)
+      class is (symba_tp)
+         do i = 1, tp%nbody
+            tp%info(i)%origin_type = "Initial conditions"
+            tp%info(i)%origin_time = param%t0
+            tp%info(i)%origin_xh(:) = tp%xh(:,i)
+            tp%info(i)%origin_vh(:) = tp%vh(:,i)
+         end do
+         if (tp%nbody > 0) then
+            allocate(idx(tp%nbody))
+            call symba_io_dump_particle_info(system, param, tpidx=[(i, i=1, tp%nbody)])
+            deallocate(idx)
+         end if
+      end select
+
+
+      return
+   end subroutine symba_setup_initialize_particle_info
+
+
    module subroutine symba_setup_initialize_system(self, param)
       !! author: David A. Minton
       !!
@@ -27,6 +83,11 @@ module subroutine symba_setup_initialize_system(self, param)
             class is (symba_parameters)
                pl%lmtiny(:) = pl%Gmass(:) > param%GMTINY
                pl%nplm = count(pl%lmtiny(:))
+               if (param%lrestart) then
+                  call symba_io_read_particle(system, param)
+               else
+                  call symba_setup_initialize_particle_info(system, param) 
+               end if
             end select
          end select
       end associate
@@ -162,10 +223,12 @@ module subroutine symba_setup_tp(self, n, param)
       if (allocated(self%nplenc)) deallocate(self%nplenc)
       if (allocated(self%levelg)) deallocate(self%levelg)
       if (allocated(self%levelm)) deallocate(self%levelm)
+      if (allocated(self%info)) deallocate(self%info)
 
       allocate(self%nplenc(n))
       allocate(self%levelg(n))
       allocate(self%levelm(n))
+      allocate(self%info(n))
 
       self%nplenc(:) = 0
       self%levelg(:) = -1
diff --git a/docs/src/symba_util.f90 b/docs/src/symba_util.f90
index 911f85304..4c0f256e3 100644
--- a/docs/src/symba_util.f90
+++ b/docs/src/symba_util.f90
@@ -2,7 +2,7 @@
    use swiftest
 contains
 
-   module subroutine symba_util_append_arr_info(arr, source, lsource_mask)
+   module subroutine symba_util_append_arr_info(arr, source, nold, nsrc, lsource_mask)
       !! author: David A. Minton
       !!
       !! Append a single array of particle information type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.
@@ -10,38 +10,24 @@ module subroutine symba_util_append_arr_info(arr, source, lsource_mask)
       ! Arguments
       type(symba_particle_info), dimension(:), allocatable, intent(inout) :: arr          !! Destination array 
       type(symba_particle_info), dimension(:), allocatable, intent(in)    :: source       !! Array to append 
-      logical,                   dimension(:), optional,    intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
-      ! Internals
-      integer(I4B) :: narr, nsrc
+      integer(I4B),                                         intent(in)    :: nold, nsrc   !! Extend of the old array and the source array, respectively
+      logical,                   dimension(:),              intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
 
       if (.not. allocated(source)) return
 
-      if (present(lsource_mask)) then
-         nsrc = count(lsource_mask)
+      if (.not.allocated(arr)) then
+         allocate(arr(nold+nsrc))
       else
-         nsrc = size(source)
+         call util_resize(arr, nold + nsrc)
       end if
 
-      if (allocated(arr)) then
-         narr = size(arr)
-      else
-         allocate(arr(nsrc))
-         narr = 0
-      end if
-
-      call util_resize(arr, narr + nsrc)
-
-      if (present(lsource_mask)) then
-         arr(narr + 1:narr + nsrc) = pack(source(:), lsource_mask(:))
-      else
-         arr(narr + 1:narr + nsrc) = source(:)
-      end if
+      arr(nold + 1:nold + nsrc) = pack(source(1:nsrc), lsource_mask(1:nsrc))
 
       return
    end subroutine symba_util_append_arr_info
 
 
-   module subroutine symba_util_append_arr_kin(arr, source, lsource_mask)
+   module subroutine symba_util_append_arr_kin(arr, source, nold, nsrc, lsource_mask)
       !! author: David A. Minton
       !!
       !! Append a single array of kinship type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.
@@ -49,32 +35,18 @@ module subroutine symba_util_append_arr_kin(arr, source, lsource_mask)
       ! Arguments
       type(symba_kinship), dimension(:), allocatable, intent(inout) :: arr          !! Destination array 
       type(symba_kinship), dimension(:), allocatable, intent(in)    :: source       !! Array to append 
-      logical,             dimension(:), optional,    intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
-      ! Internals
-      integer(I4B) :: narr, nsrc
+      integer(I4B),                                   intent(in)    :: nold, nsrc   !! Extend of the old array and the source array, respectively
+      logical,             dimension(:),              intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
 
       if (.not. allocated(source)) return
 
-      if (present(lsource_mask)) then
-         nsrc = count(lsource_mask)
+      if (.not.allocated(arr)) then
+         allocate(arr(nold+nsrc))
       else
-         nsrc = size(source)
+         call util_resize(arr, nold + nsrc)
       end if
 
-      if (allocated(arr)) then
-         narr = size(arr)
-      else
-         allocate(arr(nsrc))
-         narr = 0
-      end if
-
-      call util_resize(arr, narr + nsrc)
-
-      if (present(lsource_mask)) then
-         arr(narr + 1:narr + nsrc) = pack(source(:), lsource_mask(:))
-      else
-         arr(narr + 1:narr + nsrc) = source(:)
-      end if
+      arr(nold + 1:nold + nsrc) = pack(source(1:nsrc), lsource_mask(1:nsrc))
 
       return
    end subroutine symba_util_append_arr_kin
@@ -89,24 +61,26 @@ module subroutine symba_util_append_pl(self, source, lsource_mask)
       !! Arguments
       class(symba_pl),                 intent(inout) :: self         !! SyMBA massive body object
       class(swiftest_body),            intent(in)    :: source       !! Source object to append
-      logical, dimension(:), optional, intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+      logical, dimension(:),           intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
 
       select type(source)
       class is (symba_pl)
-         call util_append_pl(self, source, lsource_mask) ! Note: helio_pl does not have its own append method, so we skip back to the base class
-
-         call util_append(self%lcollision, source%lcollision, lsource_mask)
-         call util_append(self%lencounter, source%lencounter, lsource_mask)
-         call util_append(self%lmtiny, source%lmtiny, lsource_mask)
-         call util_append(self%nplenc, source%nplenc, lsource_mask)
-         call util_append(self%ntpenc, source%ntpenc, lsource_mask)
-         call util_append(self%levelg, source%levelg, lsource_mask)
-         call util_append(self%levelm, source%levelm, lsource_mask)
-         call util_append(self%isperi, source%isperi, lsource_mask)
-         call util_append(self%peri, source%peri, lsource_mask)
-         call util_append(self%atp, source%atp, lsource_mask)
-         call util_append(self%kin, source%kin, lsource_mask)
-         call util_append(self%info, source%info, lsource_mask)
+         associate(nold => self%nbody, nsrc => source%nbody)
+            call util_append(self%lcollision, source%lcollision, nold, nsrc, lsource_mask)
+            call util_append(self%lencounter, source%lencounter, nold, nsrc, lsource_mask)
+            call util_append(self%lmtiny, source%lmtiny, nold, nsrc, lsource_mask)
+            call util_append(self%nplenc, source%nplenc, nold, nsrc, lsource_mask)
+            call util_append(self%ntpenc, source%ntpenc, nold, nsrc, lsource_mask)
+            call util_append(self%levelg, source%levelg, nold, nsrc, lsource_mask)
+            call util_append(self%levelm, source%levelm, nold, nsrc, lsource_mask)
+            call util_append(self%isperi, source%isperi, nold, nsrc, lsource_mask)
+            call util_append(self%peri, source%peri, nold, nsrc, lsource_mask)
+            call util_append(self%atp, source%atp, nold, nsrc, lsource_mask)
+            call util_append(self%kin, source%kin, nold, nsrc, lsource_mask)
+            call util_append(self%info, source%info, nold, nsrc, lsource_mask)
+
+            call util_append_pl(self, source, lsource_mask) ! Note: helio_pl does not have its own append method, so we skip back to the base class
+         end associate
       class default
          write(*,*) "Invalid object passed to the append method. Source must be of class symba_pl or its descendents!"
          call util_exit(FAILURE)
@@ -125,24 +99,30 @@ module subroutine symba_util_append_merger(self, source, lsource_mask)
       ! Arguments
       class(symba_merger),             intent(inout) :: self         !! SyMBA massive body object
       class(swiftest_body),            intent(in)    :: source       !! Source object to append
-      logical, dimension(:), optional, intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+      logical, dimension(:),           intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
       ! Internals
       integer(I4B), dimension(:), allocatable        :: ncomp_tmp    !! Temporary placeholder for ncomp incase we are appending a symba_pl object to a symba_merger
+      integer(I4B) :: nold, nsrc
 
+      nold = self%nbody
+      nsrc = source%nbody
       select type(source)
       class is (symba_merger)
+         call util_append(self%ncomp, source%ncomp, nold, nsrc, lsource_mask)
          call symba_util_append_pl(self, source, lsource_mask) 
-         call util_append(self%ncomp, source%ncomp, lsource_mask)
       class is (symba_pl)
-         call symba_util_append_pl(self, source, lsource_mask) 
          allocate(ncomp_tmp, mold=source%id)
          ncomp_tmp(:) = 0
-         call util_append(self%ncomp, ncomp_tmp, lsource_mask)
+         call util_append(self%ncomp, ncomp_tmp, nold, nsrc, lsource_mask)
+         call symba_util_append_pl(self, source, lsource_mask) 
       class default
          write(*,*) "Invalid object passed to the append method. Source must be of class symba_pl or its descendents!"
          call util_exit(FAILURE)
       end select
 
+      ! Save the number of appended bodies 
+      self%ncomp(nold+1:nold+nsrc) = nsrc
+
       return
    end subroutine symba_util_append_merger
 
@@ -156,15 +136,18 @@ module subroutine symba_util_append_tp(self, source, lsource_mask)
       !! Arguments
       class(symba_tp),                 intent(inout) :: self         !! SyMBA test particle object
       class(swiftest_body),            intent(in)    :: source       !! Source object to append
-      logical, dimension(:), optional, intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+      logical, dimension(:),           intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
 
       select type(source)
       class is (symba_tp)
-         call util_append_tp(self, source, lsource_mask) ! Note: helio_tp does not have its own append method, so we skip back to the base class
-
-         call util_append(self%nplenc, source%nplenc, lsource_mask)
-         call util_append(self%levelg, source%levelg, lsource_mask)
-         call util_append(self%levelm, source%levelm, lsource_mask)
+         associate(nold => self%nbody, nsrc => source%nbody)
+            call util_append(self%nplenc, source%nplenc, nold, nsrc, lsource_mask)
+            call util_append(self%levelg, source%levelg, nold, nsrc, lsource_mask)
+            call util_append(self%levelm, source%levelm, nold, nsrc, lsource_mask)
+            call util_append(self%info, source%info, nold, nsrc, lsource_mask)
+
+            call util_append_tp(self, source, lsource_mask) ! Note: helio_tp does not have its own append method, so we skip back to the base class
+         end associate
       class default
          write(*,*) "Invalid object passed to the append method. Source must be of class symba_tp or its descendents!"
          call util_exit(FAILURE)
@@ -271,6 +254,7 @@ module subroutine symba_util_fill_tp(self, inserts, lfill_list)
             call util_fill(keeps%nplenc, inserts%nplenc, lfill_list)
             call util_fill(keeps%levelg, inserts%levelg, lfill_list)
             call util_fill(keeps%levelm, inserts%levelm, lfill_list)
+            call util_fill(keeps%info, inserts%info, lfill_list)
             
             call util_fill_tp(keeps, inserts, lfill_list) ! Note: helio_tp does not have its own fill method, so we skip back to the base class
          class default
@@ -379,15 +363,28 @@ module subroutine symba_util_rearray_pl(self, system, param)
       class(symba_nbody_system), intent(inout) :: system !! Swiftest nbody system object
       class(symba_parameters),   intent(in)    :: param  !! Current run configuration parameters
       ! Internals
-      class(symba_pl), allocatable :: pl_discards !! The discarded body list.
+      class(symba_pl), allocatable :: tmp !! The discarded body list.
+      integer(I4B) :: i
+      logical, dimension(:), allocatable :: lmask
 
       associate(pl => self, pl_adds => system%pl_adds)
-         allocate(pl_discards, mold=pl)
-         ! Remove the discards
-         call pl%spill(pl_discards, lspill_list=(pl%ldiscard(:) .or. pl%status(:) == INACTIVE), ldestructive=.true.)
+         allocate(tmp, mold=pl)
+         ! Remove the discards and destroy the list, as the system already tracks pl_discards elsewhere
+         allocate(lmask, source=pl%ldiscard(:))
+         lmask(:) = lmask(:) .or. pl%status(:) == INACTIVE
+         call pl%spill(tmp, lspill_list=lmask, ldestructive=.true.)
+         call tmp%setup(0,param)
+         deallocate(tmp)
+
+         ! Deallocate any temporary variables
+         if (allocated(pl%xbeg)) deallocate(pl%xbeg)
+         if (allocated(pl%xend)) deallocate(pl%xend)
 
          ! Add in any new bodies
-         call pl%append(pl_adds)
+         if (pl_adds%nbody > 0) then
+            call pl%append(pl_adds, lsource_mask=[(.true., i=1, pl_adds%nbody)])
+            call symba_io_dump_particle_info(system, param, plidx=[(i, i = 1, pl%nbody)])
+         end if 
 
          ! If there are still bodies in the system, sort by mass in descending order and re-index
          if (pl%nbody > 0) then
@@ -397,9 +394,6 @@ module subroutine symba_util_rearray_pl(self, system, param)
             call pl%eucl_index()
          end if
 
-         ! Destroy the discarded body list, since we already have what we need in the pl_discards
-         call pl_discards%setup(0,param)
-         deallocate(pl_discards)
       end associate
 
       return
@@ -483,10 +477,10 @@ module subroutine symba_util_resize_merger(self, nnew)
       class(symba_merger), intent(inout) :: self  !! SyMBA massive body object
       integer(I4B),        intent(in)    :: nnew  !! New size neded
 
-      call symba_util_resize_pl(self, nnew)
-
       call util_resize(self%ncomp, nnew)
 
+      call symba_util_resize_pl(self, nnew)
+
       return
    end subroutine symba_util_resize_merger
 
@@ -500,8 +494,6 @@ module subroutine symba_util_resize_pl(self, nnew)
       class(symba_pl), intent(inout) :: self  !! SyMBA massive body object
       integer(I4B),    intent(in)    :: nnew  !! New size neded
 
-      call util_resize_pl(self, nnew)
-
       call util_resize(self%lcollision, nnew)
       call util_resize(self%lencounter, nnew)
       call util_resize(self%lmtiny, nnew)
@@ -515,6 +507,8 @@ module subroutine symba_util_resize_pl(self, nnew)
       call util_resize(self%kin, nnew)
       call util_resize(self%info, nnew)
 
+      call util_resize_pl(self, nnew)
+
       return
    end subroutine symba_util_resize_pl
 
@@ -528,11 +522,12 @@ module subroutine symba_util_resize_tp(self, nnew)
       class(symba_tp), intent(inout) :: self  !! SyMBA test particle object
       integer(I4B),    intent(in)    :: nnew  !! New size neded
 
-      call util_resize_tp(self, nnew)
-
       call util_resize(self%nplenc, nnew)
       call util_resize(self%levelg, nnew)
       call util_resize(self%levelm, nnew)
+      call util_resize(self%info, nnew)
+
+      call util_resize_tp(self, nnew)
 
       return
    end subroutine symba_util_resize_tp
@@ -690,6 +685,7 @@ module subroutine symba_util_sort_rearrange_tp(self, ind)
          if (allocated(tp%nplenc)) tp%nplenc(1:ntp) = tp_sorted%nplenc(ind(1:ntp))
          if (allocated(tp%levelg)) tp%levelg(1:ntp) = tp_sorted%levelg(ind(1:ntp))
          if (allocated(tp%levelm)) tp%levelm(1:ntp) = tp_sorted%levelm(ind(1:ntp))
+         if (allocated(tp%info))   tp%info(1:ntp)   = tp_sorted%info(ind(1:ntp))
          deallocate(tp_sorted)
       end associate
       
@@ -847,6 +843,7 @@ module subroutine symba_util_spill_tp(self, discards, lspill_list, ldestructive)
             call util_spill(keeps%nplenc, discards%nplenc, lspill_list, ldestructive)
             call util_spill(keeps%levelg, discards%levelg, lspill_list, ldestructive)
             call util_spill(keeps%levelm, discards%levelm, lspill_list, ldestructive)
+            call util_spill(keeps%info, discards%info, lspill_list, ldestructive)
 
             call util_spill_tp(keeps, discards, lspill_list, ldestructive)
          class default
diff --git a/docs/src/util_append.f90 b/docs/src/util_append.f90
index 0f7ac0bde..dc48f9861 100644
--- a/docs/src/util_append.f90
+++ b/docs/src/util_append.f90
@@ -2,7 +2,7 @@
    use swiftest
 contains
 
-   module subroutine util_append_arr_char_string(arr, source, lsource_mask)
+   module subroutine util_append_arr_char_string(arr, source, nold, nsrc, lsource_mask)
       !! author: David A. Minton
       !!
       !! Append a single array of character string type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.
@@ -10,38 +10,24 @@ module subroutine util_append_arr_char_string(arr, source, lsource_mask)
       ! Arguments
       character(len=STRMAX), dimension(:), allocatable, intent(inout) :: arr          !! Destination array 
       character(len=STRMAX), dimension(:), allocatable, intent(in)    :: source       !! Array to append 
-      logical,               dimension(:), optional,    intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
-      ! Internals
-      integer(I4B) :: narr, nsrc
+      integer(I4B),                                     intent(in)    :: nold, nsrc   !! Extend of the old array and the source array, respectively
+      logical,               dimension(:),              intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
 
       if (.not. allocated(source)) return
 
-      if (present(lsource_mask)) then
-         nsrc = count(lsource_mask)
+      if (.not.allocated(arr)) then
+         allocate(arr(nold+nsrc))
       else
-         nsrc = size(source)
+         call util_resize(arr, nold + nsrc)
       end if
 
-      if (allocated(arr)) then
-         narr = size(arr)
-      else
-         allocate(arr(nsrc))
-         narr = 0
-      end if
-
-      call util_resize(arr, narr + nsrc)
-
-      if (present(lsource_mask)) then
-         arr(narr + 1:narr + nsrc) = pack(source(:), lsource_mask(:))
-      else
-         arr(narr + 1:narr + nsrc) = source(:)
-      end if
+      arr(nold + 1:nold + nsrc) = pack(source(1:nsrc), lsource_mask(1:nsrc))
 
       return
    end subroutine util_append_arr_char_string
 
 
-   module subroutine util_append_arr_DP(arr, source, lsource_mask)
+   module subroutine util_append_arr_DP(arr, source, nold, nsrc, lsource_mask)
       !! author: David A. Minton
       !!
       !! Append a single array of double precision type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.
@@ -49,38 +35,24 @@ module subroutine util_append_arr_DP(arr, source, lsource_mask)
       ! Arguments
       real(DP), dimension(:), allocatable, intent(inout) :: arr          !! Destination array 
       real(DP), dimension(:), allocatable, intent(in)    :: source       !! Array to append 
-      logical,  dimension(:), optional,    intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
-      ! Internals
-      integer(I4B) :: narr, nsrc
+      integer(I4B),                        intent(in)    :: nold, nsrc   !! Extend of the old array and the source array, respectively
+      logical,  dimension(:),              intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
 
       if (.not. allocated(source)) return
 
-      if (present(lsource_mask)) then
-         nsrc = count(lsource_mask)
+      if (.not.allocated(arr)) then
+         allocate(arr(nold+nsrc))
       else
-         nsrc = size(source)
+         call util_resize(arr, nold + nsrc)
       end if
 
-      if (allocated(arr)) then
-         narr = size(arr)
-      else
-         allocate(arr(nsrc))
-         narr = 0
-      end if
-
-      call util_resize(arr, narr + nsrc)
-
-      if (present(lsource_mask)) then
-         arr(narr + 1:narr + nsrc) = pack(source(:), lsource_mask(:))
-      else
-         arr(narr + 1:narr + nsrc) = source(:)
-      end if
+      arr(nold + 1:nold + nsrc) = pack(source(1:nsrc), lsource_mask(1:nsrc))
 
       return
    end subroutine util_append_arr_DP
 
 
-   module subroutine util_append_arr_DPvec(arr, source, lsource_mask)
+   module subroutine util_append_arr_DPvec(arr, source, nold, nsrc, lsource_mask)
       !! author: David A. Minton
       !!
       !! Append a single array of double precision vector type of size (NDIM, n) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.
@@ -88,40 +60,26 @@ module subroutine util_append_arr_DPvec(arr, source, lsource_mask)
       ! Arguments
       real(DP), dimension(:,:), allocatable, intent(inout) :: arr          !! Destination array 
       real(DP), dimension(:,:), allocatable, intent(in)    :: source       !! Array to append 
-      logical,  dimension(:),   optional,    intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
-      ! Internals
-      integer(I4B) :: narr, nsrc
+      integer(I4B),                          intent(in)    :: nold, nsrc   !! Extend of the old array and the source array, respectively
+      logical,  dimension(:),                intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
 
       if (.not. allocated(source)) return
 
-      if (present(lsource_mask)) then
-         nsrc = count(lsource_mask)
-      else
-         nsrc = size(source, dim=2)
-      end if
-
-      if (allocated(arr)) then
-         narr = size(arr, dim=2)
+      if (.not.allocated(arr)) then
+         allocate(arr(NDIM, nold+nsrc))
       else
-         allocate(arr(NDIM, nsrc))
-         narr = 0
+         call util_resize(arr, nold + nsrc)
       end if
 
-      call util_resize(arr, narr + nsrc)
-
-      if (present(lsource_mask)) then
-         arr(1, narr + 1:narr + nsrc) = pack(source(1,:), lsource_mask(:))
-         arr(2, narr + 1:narr + nsrc) = pack(source(2,:), lsource_mask(:))
-         arr(3, narr + 1:narr + nsrc) = pack(source(3,:), lsource_mask(:))
-      else
-         arr(:, narr + 1:narr + nsrc) = source(:,:)
-      end if
+      arr(1, nold + 1:nold + nsrc) = pack(source(1,1:nsrc), lsource_mask(1:nsrc))
+      arr(2, nold + 1:nold + nsrc) = pack(source(2,1:nsrc), lsource_mask(1:nsrc))
+      arr(3, nold + 1:nold + nsrc) = pack(source(3,1:nsrc), lsource_mask(1:nsrc))
 
       return
    end subroutine util_append_arr_DPvec
 
 
-   module subroutine util_append_arr_I4B(arr, source, lsource_mask)
+   module subroutine util_append_arr_I4B(arr, source, nold, nsrc, lsource_mask)
       !! author: David A. Minton
       !!
       !! Append a single array of integer(I4B) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.
@@ -129,38 +87,24 @@ module subroutine util_append_arr_I4B(arr, source, lsource_mask)
       ! Arguments
       integer(I4B), dimension(:), allocatable, intent(inout) :: arr          !! Destination array 
       integer(I4B), dimension(:), allocatable, intent(in)    :: source       !! Array to append 
-      logical,      dimension(:), optional,    intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
-      ! Internals
-      integer(I4B) :: narr, nsrc
+      integer(I4B),                            intent(in)    :: nold, nsrc   !! Extend of the old array and the source array, respectively
+      logical,      dimension(:),              intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
 
       if (.not. allocated(source)) return
 
-      if (present(lsource_mask)) then
-         nsrc = count(lsource_mask)
-      else
-         nsrc = size(source)
-      end if
-
-      if (allocated(arr)) then
-         narr = size(arr)
+      if (.not.allocated(arr)) then
+         allocate(arr(nold+nsrc))
       else
-         allocate(arr(nsrc))
-         narr = 0
+         call util_resize(arr, nold + nsrc)
       end if
 
-      call util_resize(arr, narr + nsrc)
-
-      if (present(lsource_mask)) then
-         arr(narr + 1:narr + nsrc) = pack(source(:), lsource_mask(:))
-      else
-         arr(narr + 1:narr + nsrc) = source(:)
-      end if
+      arr(nold + 1:nold + nsrc) = pack(source(1:nsrc), lsource_mask(1:nsrc))
 
       return
    end subroutine util_append_arr_I4B
 
 
-   module subroutine util_append_arr_logical(arr, source, lsource_mask)
+   module subroutine util_append_arr_logical(arr, source, nold, nsrc, lsource_mask)
       !! author: David A. Minton
       !!
       !! Append a single array of logical type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it.
@@ -168,32 +112,18 @@ module subroutine util_append_arr_logical(arr, source, lsource_mask)
       ! Arguments
       logical, dimension(:), allocatable, intent(inout) :: arr          !! Destination array 
       logical, dimension(:), allocatable, intent(in)    :: source       !! Array to append 
-      logical, dimension(:), optional,    intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
-      ! Internals
-      integer(I4B) :: narr, nsrc
+      integer(I4B),                       intent(in)    :: nold, nsrc   !! Extend of the old array and the source array, respectively
+      logical, dimension(:),              intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
 
       if (.not. allocated(source)) return
 
-      if (allocated(arr)) then
-         narr = size(arr)
-      else
-         allocate(arr(nsrc))
-         narr = 0
-      end if
-
-      if (present(lsource_mask)) then
-         nsrc = count(lsource_mask)
+      if (.not.allocated(arr)) then
+         allocate(arr(nold+nsrc))
       else
-         nsrc = size(source)
+         call util_resize(arr, nold + nsrc)
       end if
 
-      call util_resize(arr, narr + nsrc)
-
-      if (present(lsource_mask)) then
-         arr(narr + 1:narr + nsrc) = pack(source(:), lsource_mask(:))
-      else
-         arr(narr + 1:narr + nsrc) = source(:)
-      end if
+      arr(nold + 1:nold + nsrc) = pack(source(1:nsrc), lsource_mask(1:nsrc))
 
       return
    end subroutine util_append_arr_logical
@@ -208,29 +138,31 @@ module subroutine util_append_body(self, source, lsource_mask)
       ! Arguments
       class(swiftest_body),            intent(inout) :: self         !! Swiftest body object
       class(swiftest_body),            intent(in)    :: source       !! Source object to append
-      logical, dimension(:), optional, intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
-
-      call util_append(self%name, source%name, lsource_mask)
-      call util_append(self%id, source%id, lsource_mask)
-      call util_append(self%status, source%status, lsource_mask)
-      call util_append(self%ldiscard, source%ldiscard, lsource_mask)
-      call util_append(self%lmask, source%lmask, lsource_mask)
-      call util_append(self%mu, source%mu, lsource_mask)
-      call util_append(self%xh, source%xh, lsource_mask)
-      call util_append(self%vh, source%vh, lsource_mask)
-      call util_append(self%xb, source%xb, lsource_mask)
-      call util_append(self%vb, source%vb, lsource_mask)
-      call util_append(self%ah, source%ah, lsource_mask)
-      call util_append(self%aobl, source%aobl, lsource_mask)
-      call util_append(self%atide, source%atide, lsource_mask)
-      call util_append(self%agr, source%agr, lsource_mask)
-      call util_append(self%ir3h, source%ir3h, lsource_mask)
-      call util_append(self%a, source%a, lsource_mask)
-      call util_append(self%e, source%e, lsource_mask)
-      call util_append(self%inc, source%inc, lsource_mask)
-      call util_append(self%capom, source%capom, lsource_mask)
-      call util_append(self%omega, source%omega, lsource_mask)
-      call util_append(self%capm, source%capm, lsource_mask)
+      logical, dimension(:),           intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+
+      associate(nold => self%nbody, nsrc => source%nbody)
+         call util_append(self%name, source%name, nold, nsrc, lsource_mask)
+         call util_append(self%id, source%id, nold, nsrc, lsource_mask)
+         call util_append(self%status, source%status, nold, nsrc, lsource_mask)
+         call util_append(self%ldiscard, source%ldiscard, nold, nsrc, lsource_mask)
+         call util_append(self%lmask, source%lmask, nold, nsrc, lsource_mask)
+         call util_append(self%mu, source%mu, nold, nsrc, lsource_mask)
+         call util_append(self%xh, source%xh, nold, nsrc, lsource_mask)
+         call util_append(self%vh, source%vh, nold, nsrc, lsource_mask)
+         call util_append(self%xb, source%xb, nold, nsrc, lsource_mask)
+         call util_append(self%vb, source%vb, nold, nsrc, lsource_mask)
+         call util_append(self%ah, source%ah, nold, nsrc, lsource_mask)
+         call util_append(self%aobl, source%aobl, nold, nsrc, lsource_mask)
+         call util_append(self%atide, source%atide, nold, nsrc, lsource_mask)
+         call util_append(self%agr, source%agr, nold, nsrc, lsource_mask)
+         call util_append(self%ir3h, source%ir3h, nold, nsrc, lsource_mask)
+         call util_append(self%a, source%a, nold, nsrc, lsource_mask)
+         call util_append(self%e, source%e, nold, nsrc, lsource_mask)
+         call util_append(self%inc, source%inc, nold, nsrc, lsource_mask)
+         call util_append(self%capom, source%capom, nold, nsrc, lsource_mask)
+         call util_append(self%omega, source%omega, nold, nsrc, lsource_mask)
+         call util_append(self%capm, source%capm, nold, nsrc, lsource_mask)
+      end associate
 
       self%nbody = count(self%status(:) /= INACTIVE)
 
@@ -247,26 +179,28 @@ module subroutine util_append_pl(self, source, lsource_mask)
       ! Arguments
       class(swiftest_pl),              intent(inout) :: self         !! Swiftest massive body object
       class(swiftest_body),            intent(in)    :: source       !! Source object to append
-      logical, dimension(:), optional, intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+      logical, dimension(:),           intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
 
 
       select type(source)
       class is (swiftest_pl)
-         call util_append_body(self, source, lsource_mask)
-
-         call util_append(self%mass, source%mass, lsource_mask)
-         call util_append(self%Gmass, source%Gmass, lsource_mask)
-         call util_append(self%rhill, source%rhill, lsource_mask)
-         call util_append(self%radius, source%radius, lsource_mask)
-         call util_append(self%xbeg, source%xbeg, lsource_mask)
-         call util_append(self%xend, source%xend, lsource_mask)
-         call util_append(self%vbeg, source%vbeg, lsource_mask)
-         call util_append(self%density, source%density, lsource_mask)
-         call util_append(self%Ip, source%Ip, lsource_mask)
-         call util_append(self%rot, source%rot, lsource_mask)
-         call util_append(self%k2, source%k2, lsource_mask)
-         call util_append(self%Q, source%Q, lsource_mask)
-         call util_append(self%tlag, source%tlag, lsource_mask)
+         associate(nold => self%nbody, nsrc => source%nbody)
+            call util_append(self%mass, source%mass, nold, nsrc, lsource_mask)
+            call util_append(self%Gmass, source%Gmass, nold, nsrc, lsource_mask)
+            call util_append(self%rhill, source%rhill, nold, nsrc, lsource_mask)
+            call util_append(self%radius, source%radius, nold, nsrc, lsource_mask)
+            call util_append(self%xbeg, source%xbeg, nold, nsrc, lsource_mask)
+            call util_append(self%xend, source%xend, nold, nsrc, lsource_mask)
+            call util_append(self%vbeg, source%vbeg, nold, nsrc, lsource_mask)
+            call util_append(self%density, source%density, nold, nsrc, lsource_mask)
+            call util_append(self%Ip, source%Ip, nold, nsrc, lsource_mask)
+            call util_append(self%rot, source%rot, nold, nsrc, lsource_mask)
+            call util_append(self%k2, source%k2, nold, nsrc, lsource_mask)
+            call util_append(self%Q, source%Q, nold, nsrc, lsource_mask)
+            call util_append(self%tlag, source%tlag, nold, nsrc, lsource_mask)
+
+            call util_append_body(self, source, lsource_mask)
+         end associate
 
          call self%eucl_index()
       class default
@@ -287,15 +221,17 @@ module subroutine util_append_tp(self, source, lsource_mask)
       ! Arguments
       class(swiftest_tp),              intent(inout) :: self         !! Swiftest test particle object
       class(swiftest_body),            intent(in)    :: source       !! Source object to append
-      logical, dimension(:), optional, intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+      logical, dimension(:),           intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
 
       select type(source)
       class is (swiftest_tp)
-         call util_append_body(self, source, lsource_mask)
+         associate(nold => self%nbody, nsrc => source%nbody)
+            call util_append(self%isperi, source%isperi, nold, nsrc, lsource_mask)
+            call util_append(self%peri, source%peri, nold, nsrc, lsource_mask)
+            call util_append(self%atp, source%atp, nold, nsrc, lsource_mask)
 
-         call util_append(self%isperi, source%isperi, lsource_mask)
-         call util_append(self%peri, source%peri, lsource_mask)
-         call util_append(self%atp, source%atp, lsource_mask)
+            call util_append_body(self, source, lsource_mask)
+         end associate
       class default
          write(*,*) "Invalid object passed to the append method. Source must be of class swiftest_tp or its descendents"
          call util_exit(FAILURE)
diff --git a/docs/src/util_coord.f90 b/docs/src/util_coord.f90
index c10dbace7..2a970d0dc 100644
--- a/docs/src/util_coord.f90
+++ b/docs/src/util_coord.f90
@@ -24,6 +24,7 @@ module subroutine util_coord_h2b_pl(self, cb)
          xtmp(:) = 0.0_DP
          vtmp(:) = 0.0_DP
          do i = 1, npl
+            if (pl%status(i) == INACTIVE) cycle
             Gmtot = Gmtot + pl%Gmass(i)
             xtmp(:) = xtmp(:) + pl%Gmass(i) * pl%xh(:,i)
             vtmp(:) = vtmp(:) + pl%Gmass(i) * pl%vh(:,i)
@@ -31,6 +32,7 @@ module subroutine util_coord_h2b_pl(self, cb)
          cb%xb(:) = -xtmp(:) / Gmtot
          cb%vb(:) = -vtmp(:) / Gmtot
          do i = 1, npl
+            if (pl%status(i) == INACTIVE) cycle
             pl%xb(:,i) = pl%xh(:,i) + cb%xb(:)
             pl%vb(:,i) = pl%vh(:,i) + cb%vb(:)
          end do
@@ -51,20 +53,15 @@ module subroutine util_coord_h2b_tp(self, cb)
       ! Arguments
       class(swiftest_tp), intent(inout) :: self !! Swiftest test particle object
       class(swiftest_cb), intent(in) :: cb   !! Swiftest central body object
+      ! Internals
+      integer(I4B) :: i
 
       if (self%nbody == 0) return
-      associate(ntp => self%nbody, xbcb => cb%xb, vbcb => cb%vb, status => self%status, &
-               xb => self%xb, xh => self%xh, vb => self%vb, vh => self%vh)
-
-         where(status(1:ntp) /= INACTIVE)
-            xb(1, 1:ntp) = xh(1, 1:ntp) + xbcb(1)
-            xb(2, 1:ntp) = xh(2, 1:ntp) + xbcb(2)
-            xb(3, 1:ntp) = xh(3, 1:ntp) + xbcb(3)
-
-            vb(1, 1:ntp) = vh(1, 1:ntp) + vbcb(1)
-            vb(2, 1:ntp) = vh(2, 1:ntp) + vbcb(2)
-            vb(3, 1:ntp) = vh(3, 1:ntp) + vbcb(3)
-         end where
+      associate(tp => self, ntp => self%nbody)
+         do concurrent (i = 1:ntp, tp%status(i) /= INACTIVE)
+            tp%xb(:, i) = tp%xh(:, i) + cb%xb(:)
+            tp%vb(:, i) = tp%vh(:, i) + cb%vb(:)
+         end do
       end associate
 
       return
@@ -87,11 +84,10 @@ module subroutine util_coord_b2h_pl(self, cb)
 
       if (self%nbody == 0) return
 
-      associate(npl => self%nbody, xbcb => cb%xb, vbcb => cb%vb, xb => self%xb, xh => self%xh, &
-               vb => self%vb, vh => self%vh)
-         do i = 1, NDIM
-            xh(i, 1:npl) = xb(i, 1:npl) - xbcb(i)
-            vh(i, 1:npl) = vb(i, 1:npl) - vbcb(i)
+      associate(pl => self, npl => self%nbody)
+         do concurrent (i = 1:npl, pl%status(i) /= INACTIVE)
+            pl%xh(:, i) = pl%xb(:, i) - cb%xb(:)
+            pl%vh(:, i) = pl%vb(:, i) - cb%vb(:)
          end do
       end associate
 
@@ -110,20 +106,16 @@ module subroutine util_coord_b2h_tp(self, cb)
       ! Arguments
       class(swiftest_tp),     intent(inout) :: self !! Swiftest massive body object
       class(swiftest_cb),  intent(in)    :: cb   !! Swiftest central body object
+      ! Internals
+      integer(I4B) :: i
 
       if (self%nbody == 0) return
 
-      associate(ntp => self%nbody, xbcb => cb%xb, vbcb => cb%vb, xb => self%xb, xh => self%xh, &
-               vb => self%vb, vh => self%vh, status => self%status)
-         where(status(1:ntp) /= INACTIVE)
-            xh(1, 1:ntp) = xb(1, 1:ntp) - xbcb(1)
-            xh(2, 1:ntp) = xb(2, 1:ntp) - xbcb(2)
-            xh(3, 1:ntp) = xb(3, 1:ntp) - xbcb(3)
-
-            vh(1, 1:ntp) = vb(1, 1:ntp) - vbcb(1)
-            vh(2, 1:ntp) = vb(2, 1:ntp) - vbcb(2)
-            vh(3, 1:ntp) = vb(3, 1:ntp) - vbcb(3)
-         end where
+      associate(tp => self, ntp => self%nbody)
+         do concurrent(i = 1:ntp, tp%status(i) /= INACTIVE)
+            tp%xh(:, i) = tp%xb(:, i) - cb%xb(:)
+            tp%vh(:, i) = tp%vb(:, i) - cb%vb(:)
+         end do
       end associate
 
       return
diff --git a/docs/src/util_get_energy_momentum.f90 b/docs/src/util_get_energy_momentum.f90
index 38701229d..fa7cda43d 100644
--- a/docs/src/util_get_energy_momentum.f90
+++ b/docs/src/util_get_energy_momentum.f90
@@ -15,11 +15,12 @@ module subroutine util_get_energy_momentum_system(self, param)
       ! Internals
       integer(I4B) :: i, j
       integer(I8B) :: k
-      real(DP) :: rmag, v2, rot2, oblpot, hx, hy, hz, hsx, hsy, hsz
+      real(DP) :: oblpot, kecb, kespincb
       real(DP), dimension(self%pl%nbody) :: irh, kepl, kespinpl, pecb
       real(DP), dimension(self%pl%nbody) :: Lplorbitx, Lplorbity, Lplorbitz
       real(DP), dimension(self%pl%nbody) :: Lplspinx, Lplspiny, Lplspinz
       real(DP), dimension(self%pl%nplpl) :: pepl 
+      real(DP), dimension(NDIM) :: Lcborbit, Lcbspin
       logical, dimension(self%pl%nplpl) :: lstatpl
       logical, dimension(self%pl%nbody) :: lstatus
 
@@ -37,78 +38,99 @@ module subroutine util_get_energy_momentum_system(self, param)
          Lplspiny(:) = 0.0_DP
          Lplspinz(:) = 0.0_DP
          lstatus(1:npl) = pl%status(1:npl) /= INACTIVE
-         !!$omp simd private(v2, rot2, hx, hy, hz)
-         do i = 1, npl
-            v2 = dot_product(pl%vb(:,i), pl%vb(:,i))
-            hx = pl%xb(2,i) * pl%vb(3,i) - pl%xb(3,i) * pl%vb(2,i)
-            hy = pl%xb(3,i) * pl%vb(1,i) - pl%xb(1,i) * pl%vb(3,i)
-            hz = pl%xb(1,i) * pl%vb(2,i) - pl%xb(2,i) * pl%vb(1,i)
 
-            ! Angular momentum from orbit 
-            Lplorbitx(i) = pl%mass(i) * hx
-            Lplorbity(i) = pl%mass(i) * hy
-            Lplorbitz(i) = pl%mass(i) * hz
+         kecb = cb%mass * dot_product(cb%vb(:), cb%vb(:))
+         Lcborbit(:) = cb%mass * cb%xb(:) .cross. cb%vb(:)
+
+         do concurrent (i = 1:npl, lstatus(i))
+            block ! We use a block construct to prevent generating temporary arrays for local variables
+               real(DP) :: v2, hx, hy, hz
+               v2 = dot_product(pl%vb(:,i), pl%vb(:,i))
+               hx = pl%xb(2,i) * pl%vb(3,i) - pl%xb(3,i) * pl%vb(2,i)
+               hy = pl%xb(3,i) * pl%vb(1,i) - pl%xb(1,i) * pl%vb(3,i)
+               hz = pl%xb(1,i) * pl%vb(2,i) - pl%xb(2,i) * pl%vb(1,i)
+
+               ! Angular momentum from orbit 
+               Lplorbitx(i) = pl%mass(i) * hx
+               Lplorbity(i) = pl%mass(i) * hy
+               Lplorbitz(i) = pl%mass(i) * hz
    
-            ! Kinetic energy from orbit and spin
-            kepl(i) = pl%mass(i) * v2
+               ! Kinetic energy from orbit and spin
+               kepl(i) = pl%mass(i) * v2
+            end block
          end do
 
          if (param%lrotation) then
-            do i = 1, npl
-               rot2 = dot_product(pl%rot(:,i), pl%rot(:,i))
-               ! For simplicity, we always assume that the rotation pole is the 3rd principal axis
-               hsx = pl%Ip(3,i) * pl%radius(i)**2 * pl%rot(1,i) 
-               hsy = pl%Ip(3,i) * pl%radius(i)**2 * pl%rot(2,i) 
-               hsz = pl%Ip(3,i) * pl%radius(i)**2 * pl%rot(3,i) 
+            kespincb = cb%mass * cb%Ip(3) * cb%radius**2 * dot_product(cb%rot(:), cb%rot(:))
+
+            ! For simplicity, we always assume that the rotation pole is the 3rd principal axis
+            Lcbspin(:) = cb%Ip(3) * cb%mass * cb%radius**2 * cb%rot(:)
 
-               ! Angular momentum from spin
-               Lplspinx(i) = pl%mass(i) * hsx
-               Lplspiny(i) = pl%mass(i) * hsy
-               Lplspinz(i) = pl%mass(i) * hsz
-               kespinpl(i) = pl%mass(i) * pl%Ip(3, i) * pl%radius(i)**2 * rot2
+            do concurrent (i = 1:npl, lstatus(i))
+               block 
+                  real(DP) :: rot2, hsx, hsy, hsz
+
+                  rot2 = dot_product(pl%rot(:,i), pl%rot(:,i))
+                  ! For simplicity, we always assume that the rotation pole is the 3rd principal axis
+                  hsx = pl%Ip(3,i) * pl%radius(i)**2 * pl%rot(1,i) 
+                  hsy = pl%Ip(3,i) * pl%radius(i)**2 * pl%rot(2,i) 
+                  hsz = pl%Ip(3,i) * pl%radius(i)**2 * pl%rot(3,i) 
+   
+                  ! Angular momentum from spin
+                  Lplspinx(i) = pl%mass(i) * hsx
+                  Lplspiny(i) = pl%mass(i) * hsy
+                  Lplspinz(i) = pl%mass(i) * hsz
+                  kespinpl(i) = pl%mass(i) * pl%Ip(3, i) * pl%radius(i)**2 * rot2
+               end block
             end do
          else
+            kespincb = 0.0_DP
             kespinpl(:) = 0.0_DP
          end if
    
          ! Do the central body potential energy component first
-         !$omp simd 
-         do i = 1, npl
-            associate(px => pl%xh(1,i), py => pl%xh(2,i), pz => pl%xh(3,i))
-               pecb(i) = -cb%mass * pl%mass(i) / sqrt(px**2 + py**2 + pz**2)
-            end associate
-         end do
+         associate(px => pl%xb(1,:), py => pl%xb(2,:), pz => pl%xb(3,:))
+            do concurrent(i = 1:npl, lstatus(i))
+               pecb(i) = -cb%Gmass * pl%mass(i) / sqrt(px(i)**2 + py(i)**2 + pz(i)**2)
+            end do
+         end associate
    
          ! Do the potential energy between pairs of massive bodies
-         do k = 1, pl%nplpl
-            associate(ik => pl%k_plpl(1, k), jk => pl%k_plpl(2, k))
-               pepl(k) = -pl%mass(ik) * pl%mass(jk) / norm2(pl%xb(:, jk) - pl%xb(:, ik)) 
-               lstatpl(k) = (lstatus(ik) .and. lstatus(jk))
-            end associate
-         end do
-   
-         system%ke_orbit = 0.5_DP * sum(kepl(1:npl), lstatus(:))
-         if (param%lrotation) system%ke_spin = 0.5_DP * sum(kespinpl(1:npl), lstatus(:))
+         associate(indi => pl%k_plpl(1, :), indj => pl%k_plpl(2, :))
+            do concurrent (k = 1:pl%nplpl)
+               lstatpl(k) = (lstatus(indi(k)) .and. lstatus(indj(k)))
+            end do
+
+            do concurrent (k = 1:pl%nplpl, lstatpl(k))
+               pepl(k) = -pl%Gmass(indi(k)) * pl%mass(indj(k)) / norm2(pl%xb(:, indi(k)) - pl%xb(:, indj(k))) 
+            end do
+         end associate
    
-         system%pe = sum(pepl(:), lstatpl(:)) + sum(pecb(2:npl), lstatus(2:npl))
+         system%pe = sum(pepl(:), lstatpl(:)) + sum(pecb(1:npl), lstatus(1:npl))
+
+         system%ke_orbit = 0.5_DP * (kecb + sum(kepl(1:npl), lstatus(:)))
+         if (param%lrotation) system%ke_spin = 0.5_DP * (kespincb + sum(kespinpl(1:npl), lstatus(:)))
    
          ! Potential energy from the oblateness term
          if (param%loblatecb) then
-            !$omp simd 
-            do i = 1, npl
+            do concurrent(i = 1:npl, lstatus(i))
                irh(i) = 1.0_DP / norm2(pl%xh(:,i))
             end do
-            call obl_pot(npl, cb%mass, pl%mass, cb%j2rp2, cb%j4rp4, pl%xh, irh, oblpot)
+            call obl_pot(npl, cb%Gmass, pl%mass, cb%j2rp2, cb%j4rp4, pl%xh, irh, oblpot)
             system%pe = system%pe + oblpot
          end if
    
-         system%Lorbit(1) = sum(Lplorbitx(1:npl), lstatus(1:npl)) 
-         system%Lorbit(2) = sum(Lplorbity(1:npl), lstatus(1:npl)) 
-         system%Lorbit(3) = sum(Lplorbitz(1:npl), lstatus(1:npl)) 
-   
-         system%Lspin(1) = sum(Lplspinx(1:npl), lstatus(1:npl)) 
-         system%Lspin(2) = sum(Lplspiny(1:npl), lstatus(1:npl)) 
-         system%Lspin(3) = sum(Lplspinz(1:npl), lstatus(1:npl)) 
+         system%Lorbit(1) = Lcborbit(1) + sum(Lplorbitx(1:npl), lstatus(1:npl)) 
+         system%Lorbit(2) = Lcborbit(2) + sum(Lplorbity(1:npl), lstatus(1:npl)) 
+         system%Lorbit(3) = Lcborbit(3) + sum(Lplorbitz(1:npl), lstatus(1:npl)) 
+  
+         if (param%lrotation) then
+            system%Lspin(1) = Lcbspin(1) + sum(Lplspinx(1:npl), lstatus(1:npl)) 
+            system%Lspin(2) = Lcbspin(2) + sum(Lplspiny(1:npl), lstatus(1:npl)) 
+            system%Lspin(3) = Lcbspin(3) + sum(Lplspinz(1:npl), lstatus(1:npl)) 
+         end if
+
+         system%te = system%ke_orbit + system%ke_spin + system%pe
       end associate
 
       return
diff --git a/docs/src/util_rescale.f90 b/docs/src/util_rescale.f90
new file mode 100644
index 000000000..62a9409ec
--- /dev/null
+++ b/docs/src/util_rescale.f90
@@ -0,0 +1,52 @@
+submodule (swiftest_classes) s_util_rescale
+   use swiftest
+contains
+   module subroutine util_rescale_system(self, param, mscale, dscale, tscale)
+      !! author: David A. Minton
+      !!
+      !! Rescales an nbody system to a new set of units. Inputs are the multipliers on the mass (mscale), distance (dscale), and time units (tscale). 
+      !! Rescales all united quantities in the system, as well as the mass conversion factors, gravitational constant, and Einstein's constant in the parameter object.
+      implicit none
+      class(swiftest_nbody_system), intent(inout) :: self   !! Swiftest nbody system object
+      class(swiftest_parameters),   intent(inout) :: param  !! Current run configuration parameters. Returns with new values of the scale vactors and GU
+      real(DP),                     intent(in)    :: mscale, dscale, tscale !! Scale factors for mass, distance, and time units, respectively. 
+      ! Internals
+      real(DP) :: vscale
+
+      param%MU2KG = param%MU2KG * mscale
+      param%DU2M = param%DU2M * dscale
+      param%TU2S = param%TU2S * tscale
+
+      ! Calculate the G for the system units
+      param%GU = GC / (param%DU2M**3 / (param%MU2KG * param%TU2S**2))
+
+      ! Calculate the inverse speed of light in the system units
+      param%inv_c2 = einsteinC * param%TU2S / param%DU2M
+      param%inv_c2 = (param%inv_c2)**(-2)
+
+      vscale = dscale / tscale
+
+      associate(cb => self%cb, pl => self%pl, npl => self%pl%nbody, tp => self%tp, ntp => self%tp%nbody)
+
+         cb%mass = cb%mass / mscale
+         cb%Gmass = param%GU * cb%mass 
+         cb%radius = cb%radius / dscale
+         cb%xb(:) = cb%xb(:) / dscale
+         cb%vb(:) = cb%vb(:) / vscale
+         cb%rot(:) = cb%rot(:) * tscale
+         pl%mass(1:npl) = pl%mass(1:npl) / mscale
+         pl%Gmass(1:npl) = param%GU * pl%mass(1:npl) 
+         pl%radius(1:npl) = pl%radius(1:npl) / dscale
+         pl%xh(:,1:npl) = pl%xh(:,1:npl) / dscale
+         pl%vh(:,1:npl) = pl%vh(:,1:npl) / vscale
+         pl%xb(:,1:npl) = pl%xb(:,1:npl) / dscale
+         pl%vb(:,1:npl) = pl%vb(:,1:npl) / vscale
+         pl%rot(:,1:npl) = pl%rot(:,1:npl) * tscale
+
+      end associate
+
+
+      return
+   end subroutine util_rescale_system 
+
+end submodule s_util_rescale
\ No newline at end of file
diff --git a/docs/src/util_resize.f90 b/docs/src/util_resize.f90
index c6d5aa34f..80d87209c 100644
--- a/docs/src/util_resize.f90
+++ b/docs/src/util_resize.f90
@@ -1,6 +1,7 @@
 submodule (swiftest_classes) s_util_resize
    use swiftest
 contains
+
    module subroutine util_resize_arr_char_string(arr, nnew)
       !! author: David A. Minton
       !!
diff --git a/docs/src/util_spill.f90 b/docs/src/util_spill.f90
index 9acc6ae93..9c76ff5e9 100644
--- a/docs/src/util_spill.f90
+++ b/docs/src/util_spill.f90
@@ -183,7 +183,7 @@ module subroutine util_spill_body(self, discards, lspill_list, ldestructive)
          ! This is the base class, so will be the last to be called in the cascade. 
          ! Therefore we need to set the nbody values for both the keeps and discareds
          discards%nbody = count(lspill_list(:))
-         keeps%nbody = count(.not.lspill_list(:)) 
+         keeps%nbody = keeps%nbody - discards%nbody
          if (keeps%nbody > size(keeps%status)) keeps%status(keeps%nbody+1:size(keeps%status)) = INACTIVE
 
       end associate
diff --git a/docs/src/util_valid.f90 b/docs/src/util_valid.f90
index c5923b38e..f05c81f35 100644
--- a/docs/src/util_valid.f90
+++ b/docs/src/util_valid.f90
@@ -2,7 +2,7 @@
    use swiftest
 contains
 
-   module subroutine util_valid(pl, tp)
+   module subroutine util_valid_id_system(self, param)
       !! author: David A. Minton
       !!
       !! Validate massive body and test particle ids
@@ -11,31 +11,33 @@ module subroutine util_valid(pl, tp)
       !! Adapted from David E. Kaufmann's Swifter routine: util_valid.f90
       implicit none
       ! Arguments
-      class(swiftest_pl), intent(in) :: pl
-      class(swiftest_tp), intent(in) :: tp
+      class(swiftest_nbody_system), intent(inout) :: self   !! Swiftest nbody system object
+      class(swiftest_parameters),   intent(in)    :: param  !! Current run configuration parameters
       ! Internals
       integer(I4B)                  :: i
       integer(I4B), dimension(:), allocatable :: idarr
 
-      associate(npl => pl%nbody, ntp => tp%nbody)
-         allocate(idarr(npl+ntp))
+      associate(cb => self%cb, pl => self%pl, npl => self%pl%nbody, tp => self%tp, ntp => self%tp%nbody)
+         allocate(idarr(1+npl+ntp))
+         idarr(1) = cb%id
          do i = 1, npl
-            idarr(i) = pl%id(i)
+            idarr(1+i) = pl%id(i)
          end do
          do i = 1, ntp
-            idarr(npl+i) = tp%id(i)
+            idarr(1+npl+i) = tp%id(i)
          end do
          call util_sort(idarr)
-         do i = 1, npl + ntp - 1
+         do i = 1, npl + ntp 
             if (idarr(i) == idarr(i+1)) then
                write(*, *) "Swiftest error:"
                write(*, *) "   more than one body/particle has id = ", idarr(i)
                call util_exit(FAILURE)
             end if
          end do
+         self%maxid = maxval(idarr)
       end associate
 
       return
-   end subroutine util_valid
+   end subroutine util_valid_id_system
 
 end submodule s_util_valid
diff --git a/docs/src/whm_classes.f90 b/docs/src/whm_classes.f90
index a79f52bca..6d5b26394 100644
--- a/docs/src/whm_classes.f90
+++ b/docs/src/whm_classes.f90
@@ -232,7 +232,7 @@ module subroutine whm_util_append_pl(self, source, lsource_mask)
          implicit none
          class(whm_pl),                   intent(inout) :: self         !! WHM massive body object
          class(swiftest_body),            intent(in)    :: source       !! Source object to append
-         logical, dimension(:), optional, intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+         logical, dimension(:),           intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
       end subroutine whm_util_append_pl
 
       module subroutine whm_util_spill_pl(self, discards, lspill_list, ldestructive)
diff --git a/docs/src/whm_setup.f90 b/docs/src/whm_setup.f90
index cbf36cc90..eaed16c14 100644
--- a/docs/src/whm_setup.f90
+++ b/docs/src/whm_setup.f90
@@ -82,7 +82,7 @@ module subroutine whm_setup_initialize_system(self, param)
       call self%pl%sort("ir3h", ascending=.false.)
 
       ! Make sure that the discard list gets allocated initially
-      call self%tp_discards%setup(self%tp%nbody, param)
+      call self%tp_discards%setup(0, param)
       call self%pl%set_mu(self%cb)
       call self%tp%set_mu(self%cb)
       if (param%lgr) then
diff --git a/docs/src/whm_util.f90 b/docs/src/whm_util.f90
index f3dc15d3e..cc84ba3d5 100644
--- a/docs/src/whm_util.f90
+++ b/docs/src/whm_util.f90
@@ -11,17 +11,19 @@ module subroutine whm_util_append_pl(self, source, lsource_mask)
       !! Arguments
       class(whm_pl),                   intent(inout) :: self         !! WHM massive body object
       class(swiftest_body),            intent(in)    :: source       !! Source object to append
-      logical, dimension(:), optional, intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
+      logical, dimension(:),           intent(in)    :: lsource_mask !! Logical mask indicating which elements to append to
 
       select type(source)
       class is (whm_pl)
-         call util_append_pl(self, source, lsource_mask)
-
-         call util_append(self%eta, source%eta, lsource_mask)
-         call util_append(self%muj, source%muj, lsource_mask)
-         call util_append(self%ir3j, source%ir3j, lsource_mask)
-         call util_append(self%xj, source%xj, lsource_mask)
-         call util_append(self%vj, source%vj, lsource_mask)
+         associate(nold => self%nbody, nsrc => source%nbody)
+            call util_append(self%eta, source%eta, nold, nsrc, lsource_mask)
+            call util_append(self%muj, source%muj, nold, nsrc, lsource_mask)
+            call util_append(self%ir3j, source%ir3j, nold, nsrc, lsource_mask)
+            call util_append(self%xj, source%xj, nold, nsrc, lsource_mask)
+            call util_append(self%vj, source%vj, nold, nsrc, lsource_mask)
+
+            call util_append_pl(self, source, lsource_mask)
+         end associate
       class default
          write(*,*) "Invalid object passed to the append method. Source must be of class whm_pl or its descendents"
          call util_exit(FAILURE)
@@ -74,14 +76,14 @@ module subroutine whm_util_resize_pl(self, nnew)
       class(whm_pl), intent(inout) :: self  !! WHM massive body object
       integer(I4B),  intent(in)    :: nnew  !! New size neded
 
-      call util_resize_pl(self, nnew)
-
       call util_resize(self%eta, nnew)
       call util_resize(self%xj, nnew)
       call util_resize(self%vj, nnew)
       call util_resize(self%muj, nnew)
       call util_resize(self%ir3j, nnew)
 
+      call util_resize_pl(self, nnew)
+
       return
    end subroutine whm_util_resize_pl
 
diff --git a/docs/tipuesearch/tipuesearch_content.js b/docs/tipuesearch/tipuesearch_content.js
index 0170bfef9..b35263e4f 100644
--- a/docs/tipuesearch/tipuesearch_content.js
+++ b/docs/tipuesearch/tipuesearch_content.js
@@ -1 +1 @@
-var tipuesearch = {"pages":[{"title":" swiftest ","text":"swiftest Developer Info David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott The Purdue University Minton Research Group","tags":"home","loc":"index.html"},{"title":"kick.f90 – swiftest","text":"This file depends on sourcefile~~kick.f90~~EfferentGraph sourcefile~kick.f90 kick.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~kick.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_kick Source Code kick.f90 Source Code submodule ( swiftest_classes ) s_kick use swiftest contains module pure subroutine kick_getacch_int_pl ( self ) !! author: David A. Minton !! !! Compute direct cross (third) term heliocentric accelerations of massive bodies !! !! Adapted from Hal Levison's Swift routine getacch_ah3.f !! Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_ah3.f90 and helio_kick_getacch_int.f90 implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self ! Internals integer ( I4B ) :: k real ( DP ) :: rji2 , irij3 , faci , facj real ( DP ), dimension ( NDIM ) :: dx associate ( pl => self , npl => self % nbody , nplpl => self % nplpl ) do k = 1 , nplpl associate ( i => pl % k_plpl ( 1 , k ), j => pl % k_plpl ( 2 , k )) if ( pl % lmask ( i ) . and . pl % lmask ( j )) then dx (:) = pl % xh (:, j ) - pl % xh (:, i ) rji2 = dot_product ( dx (:), dx (:)) irij3 = 1.0_DP / ( rji2 * sqrt ( rji2 )) faci = pl % Gmass ( i ) * irij3 facj = pl % Gmass ( j ) * irij3 pl % ah (:, i ) = pl % ah (:, i ) + facj * dx (:) pl % ah (:, j ) = pl % ah (:, j ) - faci * dx (:) end if end associate end do end associate return end subroutine kick_getacch_int_pl module pure subroutine kick_getacch_int_tp ( self , GMpl , xhp , npl ) !! author: David A. Minton !! !! Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies !! !! Adapted from Hal Levison's Swift routine getacch_ah3_tp.f !! Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_ah3.f90 and helio_kick_getacch_int_tp.f90 implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle real ( DP ), dimension (:), intent ( in ) :: GMpl !! Massive body masses real ( DP ), dimension (:,:), intent ( in ) :: xhp !! Massive body position vectors integer ( I4B ), intent ( in ) :: npl !! Number of active massive bodies ! Internals integer ( I4B ) :: i , j real ( DP ) :: rji2 , irij3 , fac , r2 real ( DP ), dimension ( NDIM ) :: dx associate ( tp => self , ntp => self % nbody ) do concurrent ( i = 1 : ntp , tp % lmask ( i )) do j = 1 , npl dx (:) = tp % xh (:, i ) - xhp (:, j ) r2 = dot_product ( dx (:), dx (:)) fac = GMpl ( j ) / ( r2 * sqrt ( r2 )) tp % ah (:, i ) = tp % ah (:, i ) - fac * dx (:) end do end do end associate return end subroutine kick_getacch_int_tp end submodule s_kick","tags":"","loc":"sourcefile/kick.f90.html"},{"title":"tides_getacch_pl.f90 – swiftest","text":"This file depends on sourcefile~~tides_getacch_pl.f90~~EfferentGraph sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_tides_kick_getacch Source Code tides_getacch_pl.f90 Source Code submodule ( swiftest_classes ) s_tides_kick_getacch use swiftest contains module subroutine tides_kick_getacch_pl ( self , system ) !! author: Jennifer L.L. Pouplin, Carlisle A. wishard, and David A. Minton !! !! Calculated tidal torques from central body to any planet and from any planet to central body !! planet - planet interactions are considered negligable. !! This is a constant time lag model. !! !! Adapted from Mercury-T code from Bolmont et al. (2015) !! !! Reference: !!    Bolmont, E., Raymond, S.N., Leconte, J., Hersant, F., Correia, A.C.M., 2015. !!       Mercury-T : A new code to study tidally evolving multi-planet systems. !!       Applications to Kepler-62. A&A 583, A116. https://doi.org/10.1051/0004-6361/201525909 implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object ! Internals integer ( I4B ) :: i real ( DP ) :: rmag , vmag real ( DP ), dimension ( NDIM ) :: r_unit , v_unit , h_unit , theta_unit , theta_dot , F_T real ( DP ) :: Ftr , Ptopl , Ptocb , r5cbterm , r5plterm associate ( pl => self , npl => self % nbody , cb => system % cb ) pl % atide (:,:) = 0.0_DP cb % atide (:) = 0.0_DP do i = 1 , npl rmag = norm2 ( pl % xh (:, i )) vmag = norm2 ( pl % vh (:, i )) r_unit (:) = pl % xh (:, i ) / rmag v_unit (:) = pl % vh (:, i ) / vmag h_unit (:) = r_unit (:) . cross . v_unit (:) theta_unit (:) = h_unit (:) . cross . r_unit (:) theta_dot = dot_product ( pl % vh (:, i ), theta_unit (:)) ! First calculate the tangential component of the force vector (eq. 5 & 6 of Bolmont et al. 2015) ! The radial component is already computed in the obl_acc methods r5cbterm = pl % Gmass ( i ) ** 2 * cb % k2 * cb % radius ** 5 r5plterm = cb % Gmass ** 2 * pl % k2 ( i ) * pl % radius ( i ) ** 5 Ptopl = 3 * r5plterm * pl % tlag ( i ) / rmag ** 7 Ptocb = 3 * r5cbterm * cb % tlag / rmag ** 7 Ftr = - 3 / rmag ** 7 * ( r5cbterm + r5plterm ) - 3 * vmag / rmag * ( Ptocb + Ptopl ) F_T (:) = ( Ftr + ( Ptocb + Ptopl ) * dot_product ( v_unit , r_unit ) / rmag ) * r_unit (:) & + Ptopl * ( pl % rot (:, i ) - theta_dot (:)) . cross . r_unit (:) & + Ptocb * ( cb % rot (:) - theta_dot (:)) . cross . r_unit (:) cb % atide (:) = cb % atide (:) + F_T (:) / cb % Gmass pl % atide (:, i ) = F_T (:) / pl % Gmass ( i ) end do do i = 1 , npl pl % ah (:, i ) = pl % ah (:, i ) + pl % atide (:, i ) + cb % atide (:) end do end associate return end subroutine tides_kick_getacch_pl end submodule s_tides_kick_getacch","tags":"","loc":"sourcefile/tides_getacch_pl.f90.html"},{"title":"tides_spin_step.f90 – swiftest","text":"This file depends on sourcefile~~tides_spin_step.f90~~EfferentGraph sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_tides_step_spin Source Code tides_spin_step.f90 Source Code submodule ( swiftest_classes ) s_tides_step_spin use swiftest type , extends ( lambda_obj_tvar ) :: tides_derivs_func !! Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers procedure ( tidederiv ), pointer , nopass :: lambdaptr_tides_deriv real ( DP ), dimension (:,:), allocatable :: xbeg real ( DP ), dimension (:,:), allocatable :: xend real ( DP ) :: dt contains generic :: init => tides_derivs_init procedure :: evalt => tides_derivs_eval procedure , nopass :: tides_derivs_init end type interface lambda_obj module procedure tides_derivs_init end interface abstract interface function tidederiv ( x , t , dt , xbeg , xend ) result ( y ) ! Template for a 0 argument function import DP , swiftest_nbody_system real ( DP ), dimension (:), intent ( in ) :: x real ( DP ), intent ( in ) :: t real ( DP ), intent ( in ) :: dt real ( DP ), dimension (:,:), intent ( in ) :: xbeg real ( DP ), dimension (:,:), intent ( in ) :: xend real ( DP ), dimension (:), allocatable :: y end function end interface contains module subroutine tides_step_spin_system ( self , param , t , dt ) !! author: Jennifer L.L. Pouplin and David A. Minton !! !! Integrates the spin equations for central and massive bodies of the system subjected to tides. implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize ! Internals real ( DP ), dimension (:), allocatable :: rot0 , rot1 real ( DP ) :: subt real ( DP ), parameter :: tol = 1e-6_DP !! Just a guess at the moment real ( DP ) :: subdt associate ( pl => self % pl , npl => self % pl % nbody , cb => self % cb ) allocate ( rot0 ( NDIM * ( npl + 1 ))) rot0 = [ pack ( pl % rot (:, 1 : npl ),. true .), pack ( cb % rot (:),. true .)] ! Use this space call the ode_solver, passing tides_spin_derivs as the function: subdt = dt / 2 0._DP !rot1(:) = util_solve_rkf45(lambda_obj(tides_spin_derivs, subdt, pl%xbeg, pl%xend), rot0, dt, subdt tol) ! Recover with unpack !pl%rot(:,1:npl) = unpack(rot1... !cb%rot(:) = unpack(rot1... end associate return end subroutine tides_step_spin_system function tides_spin_derivs ( rot_pl_cb , t , dt , xbeg , xend ) result ( drot ) !! Need to add more arguments so we can pull in mass, radius, Ip, J2, etc... !! author: Jennifer L.L. Pouplin and David A. Minton !! !! function used to calculate the derivatives that are fed to the ODE solver implicit none ! Arguments real ( DP ), dimension (:,:), intent ( in ) :: rot_pl_cb !! Array of rotations. The last element is the central body, and all others are massive bodies real ( DP ), intent ( in ) :: t !! Current time, which is used to interpolate the massive body positions real ( DP ), intent ( in ) :: dt !! Total step size real ( DP ), dimension (:,:), intent ( in ) :: xbeg real ( DP ), dimension (:,:), intent ( in ) :: xend ! Internals real ( DP ), dimension (:,:), allocatable :: drot real ( DP ), dimension (:), allocatable :: flatrot real ( DP ), dimension ( NDIM ) :: N_Tcb , N_Rcb , N_Tpl , N_Rpl , xinterp real ( DP ) :: C_cb , C_pl , r_dot_rot_cb , r_dot_rot_pl , rmag integer ( I4B ) :: i , n n = size ( rot_pl_cb , 2 ) if ( allocated ( drot )) deallocate ( drot ) allocate ( drot , mold = rot_pl_cb ) drot (:,:) = 0.0_DP do i = 1 , n - 1 xinterp (:) = xbeg (:, i ) + t / dt * ( xend (:, i ) - xbeg (:, i )) ! Calculate Ncb and Npl as a function of xinterp !drot(:,i) = -Mcb / (Mcb + Mpl(i)) * (N_Tpl + N_Rpl) !drot(:,n) = drot(:,n) - Mcb / (Mcb + Mpl(i) * (N_Tcb + N_Rcb) ! end do return end function tides_spin_derivs function tides_derivs_eval ( self , x , t ) result ( y ) implicit none ! Arguments class ( tides_derivs_func ), intent ( inout ) :: self real ( DP ), dimension (:), intent ( in ) :: x real ( DP ), intent ( in ) :: t ! Result real ( DP ), dimension (:), allocatable :: y if ( associated ( self % lambdaptr_tides_deriv )) then y = self % lambdaptr_tides_deriv ( x , t , self % dt , self % xbeg , self % xend ) else error stop \"Lambda function was not initialized\" end if return end function tides_derivs_eval function tides_derivs_init ( lambda , dt , xbeg , xend ) result ( f ) implicit none ! Arguments procedure ( tidederiv ) :: lambda real ( DP ), intent ( in ) :: dt real ( DP ), dimension (:,:), intent ( in ) :: xbeg real ( DP ), dimension (:,:), intent ( in ) :: xend ! Result type ( tides_derivs_func ) :: f f % lambdaptr_tides_deriv => lambda f % dt = dt allocate ( f % xbeg , source = xbeg ) allocate ( f % xend , source = xend ) return end function tides_derivs_init end submodule s_tides_step_spin","tags":"","loc":"sourcefile/tides_spin_step.f90.html"},{"title":"obl.f90 – swiftest","text":"This file depends on sourcefile~~obl.f90~~EfferentGraph sourcefile~obl.f90 obl.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~obl.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_obl Source Code obl.f90 Source Code submodule ( swiftest_classes ) s_obl use swiftest contains module subroutine obl_acc_body ( self , system ) !! author: David A. Minton !! !! Compute the barycentric accelerations of bodies due to the oblateness of the central body !!      Returned values do not include monopole term or terms higher than J4 !! !! Adapted from David E. Kaufmann's Swifter routine: obl_acc.f90 and obl_acc_tp.f90 !! Adapted from Hal Levison's Swift routine obl_acc.f and obl_acc_tp.f implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object ! Internals integer ( I4B ) :: i real ( DP ) :: r2 , irh , rinv2 , t0 , t1 , t2 , t3 , fac1 , fac2 if ( self % nbody == 0 ) return associate ( n => self % nbody , cb => system % cb ) self % aobl (:,:) = 0.0_DP do concurrent ( i = 1 : n , self % lmask ( i )) r2 = dot_product ( self % xh (:, i ), self % xh (:, i )) irh = 1.0_DP / sqrt ( r2 ) rinv2 = irh ** 2 t0 = - cb % Gmass * rinv2 * rinv2 * irh t1 = 1.5_DP * cb % j2rp2 t2 = self % xh ( 3 , i ) * self % xh ( 3 , i ) * rinv2 t3 = 1.875_DP * cb % j4rp4 * rinv2 fac1 = t0 * ( t1 - t3 - ( 5 * t1 - ( 1 4.0_DP - 2 1.0_DP * t2 ) * t3 ) * t2 ) fac2 = 2 * t0 * ( t1 - ( 2.0_DP - ( 1 4.0_DP * t2 / 3.0_DP )) * t3 ) self % aobl (:, i ) = fac1 * self % xh (:, i ) self % aobl ( 3 , i ) = fac2 * self % xh ( 3 , i ) + self % aobl ( 3 , i ) end do end associate return end subroutine obl_acc_body module subroutine obl_acc_pl ( self , system ) !! author: David A. Minton !! !! Compute the barycentric accelerations of massive bodies due to the oblateness of the central body !! !! Adapted from David E. Kaufmann's Swifter routine: obl_acc.f90 and obl_acc_tp.f90 !! Adapted from Hal Levison's Swift routine obl_acc.f and obl_acc_tp.f implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody , cb => system % cb ) call obl_acc_body ( pl , system ) do i = 1 , NDIM cb % aobl ( i ) = - sum ( pl % Gmass ( 1 : npl ) * pl % aobl ( i , 1 : npl ), pl % lmask ( 1 : npl )) / cb % Gmass end do do concurrent ( i = 1 : npl , pl % lmask ( i )) pl % ah (:, i ) = pl % ah (:, i ) + pl % aobl (:, i ) - cb % aobl (:) end do end associate return end subroutine obl_acc_pl module subroutine obl_acc_tp ( self , system ) !! author: David A. Minton !! !! Compute the barycentric accelerations of massive bodies due to the oblateness of the central body !! !! Adapted from David E. Kaufmann's Swifter routine: obl_acc.f90 and obl_acc_tp.f90 !! Adapted from Hal Levison's Swift routine obl_acc.f and obl_acc_tp.f implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object ! Internals real ( DP ), dimension ( NDIM ) :: aoblcb integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody , cb => system % cb ) call obl_acc_body ( tp , system ) if ( system % lbeg ) then aoblcb = cb % aoblbeg else aoblcb = cb % aoblend end if do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % ah (:, i ) = tp % ah (:, i ) + tp % aobl (:, i ) - aoblcb (:) end do end associate return end subroutine obl_acc_tp module subroutine obl_pot ( npl , Mcb , Mpl , j2rp2 , j4rp4 , xh , irh , oblpot ) !! author: David A. Minton !! !! Compute the contribution to the total gravitational potential due solely to the oblateness of the central body !!    Returned value does not include monopole term or terms higher than J4 !! !!    Reference: MacMillan, W. D. 1958. The Theory of the Potential, (Dover Publications), 363. !! !! Adapted from David E. Kaufmann's Swifter routine: obl_pot.f90 !! Adapted from Hal Levison's Swift routine obl_pot.f implicit none ! Arguments integer ( I4B ), intent ( in ) :: npl real ( DP ), intent ( in ) :: Mcb real ( DP ), dimension (:), intent ( in ) :: Mpl real ( DP ), intent ( in ) :: j2rp2 , j4rp4 real ( DP ), dimension (:), intent ( in ) :: irh real ( DP ), dimension (:, :), intent ( in ) :: xh real ( DP ), intent ( out ) :: oblpot ! Internals integer ( I4B ) :: i real ( DP ) :: rinv2 , t0 , t1 , t2 , t3 , p2 , p4 , mu oblpot = 0.0_DP mu = Mcb do i = 1 , npl rinv2 = irh ( i ) ** 2 t0 = mu * Mpl ( i ) * rinv2 * irh ( i ) t1 = j2rp2 t2 = xh ( 3 , i ) * xh ( 3 , i ) * rinv2 t3 = j4rp4 * rinv2 p2 = 0.5_DP * ( 3 * t2 - 1.0_DP ) p4 = 0.125_DP * (( 35 * t2 - 3 0.0_DP ) * t2 + 3.0_DP ) oblpot = oblpot + t0 * ( t1 * p2 + t3 * p4 ) end do return end subroutine obl_pot end submodule s_obl","tags":"","loc":"sourcefile/obl.f90.html"},{"title":"orbel.f90 – swiftest","text":"This file depends on sourcefile~~orbel.f90~~EfferentGraph sourcefile~orbel.f90 orbel.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~orbel.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_orbel Source Code orbel.f90 Source Code submodule ( swiftest_classes ) s_orbel use swiftest contains module subroutine orbel_el2xv_vec ( self , cb ) !! author: David A. Minton !! !! A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements. implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body objec ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return call self % set_mu ( cb ) do i = 1 , self % nbody call orbel_el2xv ( self % mu ( i ), self % a ( i ), self % e ( i ), self % inc ( i ), self % capom ( i ), & self % omega ( i ), self % capm ( i ), self % xh (:, i ), self % vh (:, i )) end do end subroutine orbel_el2xv_vec pure subroutine orbel_el2xv ( mu , a , ie , inc , capom , omega , capm , x , v ) !! author: David A. Minton !! !! Compute osculating orbital elements from relative C)rtesian position and velocity !!  All angular measures are returned in radians !!      If inclination < TINY, longitude of the ascending node is arbitrarily set to 0 !! !!      If eccentricity < sqrt(TINY), argument of pericenter is arbitrarily set to 0 !! !!      ALGORITHM:  See Fitzpatrick \"Principles of Cel. Mech.\" !! !! Adapted from Martin Duncan's el2xv.f !! DATE WRITTEN:  May 11, 1992. !! REVISIONS: May 26 - now use better Kepler solver for ellipses !!  and hyperbolae called EHYBRID.F and FHYBRID.F implicit none real ( DP ), intent ( in ) :: mu real ( DP ), intent ( in ) :: a , ie , inc , capom , omega , capm real ( DP ), dimension (:), intent ( out ) :: x , v integer ( I4B ) :: iorbit_type real ( DP ) :: e , cape , capf , zpara , em1 real ( DP ) :: sip , cip , so , co , si , ci real ( DP ) :: d11 , d12 , d13 , d21 , d22 , d23 real ( DP ) :: scap , ccap , shcap , chcap real ( DP ) :: sqe , sqgma , xfac1 , xfac2 , ri , vfac1 , vfac2 if ( ie < 0.0_DP ) then !write(*,*) ' ERROR in orbel_el2xv: e<0, setting e=0!!1' e = 0.0_DP iorbit_type = ELLIPSE else e = ie em1 = e - 1._DP if ( abs ( em1 ) < VSMALL ) then iorbit_type = PARABOLA else if ( e > 1.0_DP ) then iorbit_type = HYPERBOLA else iorbit_type = ELLIPSE end if endif call orbel_scget ( omega , sip , cip ) call orbel_scget ( capom , so , co ) call orbel_scget ( inc , si , ci ) d11 = cip * co - sip * so * ci d12 = cip * so + sip * co * ci d13 = sip * si d21 = - sip * co - cip * so * ci d22 = - sip * so + cip * co * ci d23 = cip * si !-- ! Get the other quantities depending on orbit type ! if ( iorbit_type == ELLIPSE ) then cape = orbel_ehybrid ( e , capm ) call orbel_scget ( cape , scap , ccap ) sqe = sqrt ( 1._DP - e ** 2 ) sqgma = sqrt ( mu * a ) xfac1 = a * ( ccap - e ) xfac2 = a * sqe * scap ri = 1._DP / ( a * ( 1._DP - e * ccap )) vfac1 = - ri * sqgma * scap vfac2 = ri * sqgma * sqe * ccap endif !-- if ( iorbit_type == HYPERBOLA ) then capf = orbel_fhybrid ( e , capm ) call orbel_schget ( capf , shcap , chcap ) sqe = sqrt ( e ** 2 - 1._DP ) sqgma = sqrt ( mu * a ) xfac1 = a * ( e - chcap ) xfac2 = a * sqe * shcap ri = 1._DP / ( a * ( e * chcap - 1._DP )) vfac1 = - ri * sqgma * shcap vfac2 = ri * sqgma * sqe * chcap endif !-- if ( iorbit_type == PARABOLA ) then zpara = orbel_zget ( capm ) sqgma = sqrt ( 2 * mu * a ) xfac1 = a * ( 1._DP - zpara * zpara ) xfac2 = 2 * a * zpara ri = 1._DP / ( a * ( 1._DP + zpara * zpara )) vfac1 = - ri * sqgma * zpara vfac2 = ri * sqgma endif !-- x ( 1 ) = d11 * xfac1 + d21 * xfac2 x ( 2 ) = d12 * xfac1 + d22 * xfac2 x ( 3 ) = d13 * xfac1 + d23 * xfac2 v ( 1 ) = d11 * vfac1 + d21 * vfac2 v ( 2 ) = d12 * vfac1 + d22 * vfac2 v ( 3 ) = d13 * vfac1 + d23 * vfac2 return end subroutine orbel_el2xv module pure subroutine orbel_scget ( angle , sx , cx ) !! author: David A. Minton !! !! Efficiently compute the sine and cosine of an input angle !!      Input angle must be in radians !! !! Adapted from David E. Kaufmann's Swifter routine: orbel_scget.f90 !! Adapted from Hal Levison's Swift routine orbel_scget.f implicit none ! Arguments real ( DP ), intent ( in ) :: angle real ( DP ), intent ( out ) :: sx , cx ! Internals integer ( I4B ) :: nper real ( DP ) :: x nper = angle / TWOPI x = angle - nper * TWOPI if ( x < 0.0_DP ) x = x + TWOPI sx = sin ( x ) cx = sqrt ( 1.0_DP - sx ** 2 ) if (( x > PIBY2 ) . and . ( x < PI3BY2 )) cx = - cx return end subroutine orbel_scget !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !********************************************************************** !                   ORBEL_SCHGET.F !********************************************************************** !     PURPOSE:  Given an angle, efficiently compute sinh and cosh. ! !        Input: !             angle ==> angle in radians (real scalar) ! !        Output: !             shx    ==>  sinh(angle)  (real scalar) !             chx    ==>  cosh(angle)  (real scalar) ! !     ALGORITHM: Obvious from the code !     REMARKS: Based on the routine SCGET for sine's and cosine's. !       We use the sqrt rather than cosh (it's faster) !       BE SURE THE ANGLE IS IN RADIANS AND IT CAN'T BE LARGER THAN 300 !       OR OVERFLOWS WILL OCCUR! !     AUTHOR:  M. Duncan. !     DATE WRITTEN:  May 6, 1992. !     REVISIONS: !********************************************************************** pure subroutine orbel_schget ( angle , shx , chx ) real ( DP ), intent ( in ) :: angle real ( DP ), intent ( out ) :: shx , chx shx = sinh ( angle ) chx = sqrt ( 1._DP + shx * shx ) return end subroutine orbel_schget !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !        !                    ORBEL_FLON.F !********************************************************************** !     PURPOSE:  Solves Kepler's eqn. for hyperbola using hybrid approach. ! !             Input: !                           e ==> eccentricity anomaly. (real scalar) !                        capn ==> hyperbola mean anomaly. (real scalar) !             Returns: !                  orbel_flon ==>  eccentric anomaly. (real scalar) ! !     ALGORITHM: Uses power series for N in terms of F and Newton,s method !     REMARKS: ONLY GOOD FOR LOW VALUES OF N (N < 0.636*e -0.6) !     AUTHOR: M. Duncan !     DATE WRITTEN: May 26, 1992. !     REVISIONS: !********************************************************************** real ( DP ) pure function orbel_flon ( e , icapn ) implicit none real ( DP ), intent ( in ) :: e , icapn integer ( I4B ) :: iflag , i real ( DP ) :: a , b , sq , biga , bigb , capn real ( DP ) :: x , x2 real ( DP ) :: f , fp , dx real ( DP ) :: diff real ( DP ) :: a0 , a1 real ( DP ) :: b1 integer ( I4B ), parameter :: IMAX = 10 real ( DP ), parameter :: a11 = 15 6._DP , a9 = 1716 0._DP , a7 = 123552 0._DP real ( DP ), parameter :: a5 = 5189184 0._DP , a3 = 103783680 0._DP real ( DP ), parameter :: b11 = 11 * a11 , b9 = 9 * a9 , b7 = 7 * a7 real ( DP ), parameter :: b5 = 5 * a5 , b3 = 3 * a3 real ( DP ), parameter :: THIRD = 1._DP / 3._DP ! Function to solve \"Kepler's eqn\" for F (here called ! x) for given e and CAPN. Only good for smallish CAPN iflag = 0 if ( icapn < 0._DP ) then iflag = 1 capn = - icapn else capn = icapn end if a1 = 622702080 0._DP * ( 1._DP - 1._DP / e ) a0 = - 622702080 0._DP * capn / e b1 = a1 !  set iflag nonzero if capn < 0., in which case solve for -capn !  and change the sign of the final answer for f. !  Begin with a reasonable guess based on solving the cubic for small F a = 6 * ( e - 1.d0 ) / e b = - 6 * capn / e sq = SQRT ( 0.25_DP * b ** 2 + a ** 3 / 2 7._DP ) biga = ( - 0.5_DP * b + sq ) ** ( 1.0_DP / 3.0_DP ) bigb = - ( + 0.5_DP * b + sq ) ** ( 1.0_DP / 3.0_DP ) x = biga + bigb ! write(6,*) 'cubic = ',x**3 +a*x +b orbel_flon = x ! If capn is VSMALL (or zero) no need to go further than cubic even for ! e =1. if ( capn < VSMALL ) go to 100 do i = 1 , IMAX x2 = x * x f = a0 + x * ( a1 + x2 * ( a3 + x2 * ( a5 + x2 * ( a7 + x2 * ( a9 + x2 * ( a11 + x2 )))))) fp = b1 + x2 * ( b3 + x2 * ( b5 + x2 * ( b7 + x2 * ( b9 + x2 * ( b11 + 13 * x2 ))))) dx = - f / fp !   write(6,*) 'i,dx,x,f : ' !   write(6,432) i,dx,x,f 432 format ( 1 x , i3 , 3 ( 2 x , 1 p1e22 . 15 )) orbel_flon = x + dx !   if we have converged here there's no point in going on if ( abs ( dx ) <= VSMALL ) go to 100 x = orbel_flon end do ! abnormal return here - we've gone thru the loop ! imax times without convergence if ( iflag == 1 ) then orbel_flon = - orbel_flon capn = - capn end if !write(*,*) 'flon : returning without complete convergence' diff = e * sinh ( orbel_flon ) - orbel_flon - capn !write(*,*) 'n, f, ecc*sinh(f) - f - n : ' !write(*,*) capn,orbel_flon,diff return !  normal return here, but check if capn was originally negative 100 if ( iflag == 1 ) then orbel_flon = - orbel_flon capn = - capn end if return end function orbel_flon !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !                    ORBEL_FGET.F !********************************************************************** !     PURPOSE:  Solves Kepler's eqn. for hyperbola using hybrid approach. ! !             Input: !                           e ==> eccentricity anomaly. (real scalar) !                        capn ==> hyperbola mean anomaly. (real scalar) !             Returns: !                  orbel_fget ==>  eccentric anomaly. (real scalar) ! !     ALGORITHM: Based on pp. 70-72 of Fitzpatrick's book \"Principles of !           Cel. Mech. \".  Quartic convergence from Danby's book. !     REMARKS: !     AUTHOR: M. Duncan !     DATE WRITTEN: May 11, 1992. !     REVISIONS: 2/26/93 hfl !********************************************************************** real ( DP ) pure function orbel_fget ( e , capn ) implicit none real ( DP ), intent ( in ) :: e , capn integer :: i real ( DP ) :: tmp , x , shx , chx real ( DP ) :: esh , ech , f , fp , fpp , fppp , dx integer ( I4B ), parameter :: IMAX = 10 !---- !...  executable code ! function to solve \"kepler's eqn\" for f (here called ! x) for given e and capn. !  begin with a guess proposed by danby if ( capn < 0.d0 ) then tmp = - 2 * capn / e + 1.8_DP x = - log ( tmp ) else tmp = + 2 * capn / e + 1.8_DP x = log ( tmp ) end if orbel_fget = x do i = 1 , IMAX call orbel_schget ( x , shx , chx ) esh = e * shx ech = e * chx f = esh - x - capn !   write(6,*) 'i,x,f : ',i,x,f fp = ech - 1.d0 fpp = esh fppp = ech dx = - f / fp dx = - f / ( fp + dx * fpp / 2._DP ) dx = - f / ( fp + dx * fpp / 2._DP + dx ** 2 * fppp / 6._DP ) orbel_fget = x + dx !   if we have converged here there's no point in going on if ( abs ( dx ) <= VSMALL ) return x = orbel_fget end do !write(*,*) 'fget : returning without complete convergence' return end function orbel_fget !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !                    ORBEL_ZGET.F !********************************************************************** !     PURPOSE:  Solves the equivalent of Kepler's eqn. for a parabola !          given Q (Fitz. notation.) ! !             Input: !                           q ==>  parabola mean anomaly. (real scalar) !             Returns: !                  orbel_zget ==>  eccentric anomaly. (real scalar) ! !     ALGORITHM: p. 70-72 of Fitzpatrick's book \"Princ. of Cel. Mech.\" !     REMARKS: For a parabola we can solve analytically. !     AUTHOR: M. Duncan !     DATE WRITTEN: May 11, 1992. !     REVISIONS: May 27 - corrected it for negative Q and use power !       series for small Q. !********************************************************************** real ( DP ) pure function orbel_zget ( iq ) implicit none real ( DP ), intent ( in ) :: iq integer ( I4B ) :: iflag real ( DP ) :: x , tmp , q iflag = 0 if ( iq < 0.0_DP ) then iflag = 1 q = - iq else q = iq end if if ( q < 1.e-3_DP ) then orbel_zget = q * ( 1._DP - ( q ** 2 / 3._DP ) * ( 1._DP - q ** 2 )) else x = 0.5_DP * ( 3 * q + sqrt ( 9 * q ** 2 + 4._DP )) tmp = x ** ( 1._DP / 3._DP ) orbel_zget = tmp - 1._DP / tmp end if if ( iflag == 1 ) then orbel_zget = - orbel_zget q = - q end if return end function orbel_zget !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !                    ORBEL_ESOLMD.F !********************************************************************** !     PURPOSE:  Solves Kepler's eqn.   e is ecc.   m is mean anomaly. ! !             Input: !                           e ==> eccentricity anomaly. (real scalar) !                           m ==> mean anomaly. (real scalar) !             Returns: !                orbel_esolmd ==>  eccentric anomaly. (real scalar) ! !     ALGORITHM: Some sort of quartic convergence from Wisdom. !     REMARKS: ONLY GOOD FOR SMALL ECCENTRICITY SINCE IT ONLY !         ITERATES ONCE. (GOOD FOR PLANET CALCS.) !         ALSO DOES NOT PUT M OR E BETWEEN 0. AND 2*PI !     INCLUDES: needs SCGET.F !     AUTHOR: M. Duncan !     DATE WRITTEN: May 7, 1992. !     REVISIONS: 2/26/93 hfl !********************************************************************** real ( DP ) pure function orbel_esolmd ( e , m ) implicit none real ( DP ), intent ( in ) :: e real ( DP ), intent ( in ) :: m real ( DP ) :: x , sm , cm , sx , cx real ( DP ) :: es , ec , f , fp , fpp , fppp , dx !...    function to solve kepler's eqn for e (here called !...    x) for given e and m. returns value of x. call orbel_scget ( m , sm , cm ) x = m + e * sm * ( 1._DP + e * ( cm + e * ( 1._DP - 1.5_DP * sm ** 2 ))) call orbel_scget ( x , sx , cx ) es = e * sx ec = e * cx f = x - es - m fp = 1._DP - ec fpp = es fppp = ec dx = - f / fp dx = - f / ( fp + dx * fpp / 2._DP ) dx = - f / ( fp + dx * fpp / 2._DP + dx ** 2 * fppp / 6._DP ) orbel_esolmd = x + dx return end function orbel_esolmd !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !                    ORBEL_EHIE.F !********************************************************************** !     PURPOSE:  Solves Kepler's eqn.   e is ecc.   m is mean anomaly. ! !             Input: !                           e ==> eccentricity anomaly. (real scalar) !                           m ==> mean anomaly. (real scalar) !             Returns: !              orbel_ehybrid ==>  eccentric anomaly. (real scalar) ! !     ALGORITHM: Use Danby's quartic for 3 iterations. !                Eqn. is f(x) = x - e*sin(x+M). Note  that !          E = x + M. First guess is very good for e near 1. !          Need to first get M between 0. and PI and use !   symmetry to return right answer if M between PI and 2PI !     REMARKS: Modifies M so that both E and M are in range (0,TWOPI) !     AUTHOR: M. Duncan !     DATE WRITTEN: May 25,1992. !     REVISIONS: !********************************************************************** real ( DP ) pure function orbel_ehie ( e , im ) implicit none real ( DP ), intent ( in ) :: e , im integer ( I4B ) :: iflag , nper , niter real ( DP ) :: dx , x , sa , ca , esa , eca , f , fp , m integer ( I4B ), parameter :: NMAX = 3 ! in this section, bring m into the range (0,TWOPI) and if ! the result is greater than pi, solve for (TWOPI - m). iflag = 0 nper = im / TWOPI m = im - nper * TWOPI if ( m < 0._DP ) m = m + TWOPI if ( m > PI ) then m = TWOPI - m iflag = 1 end if ! make a first guess that works well for e near 1. x = ( 6 * m ) ** ( 1._DP / 3._DP ) - m niter = 0 ! iteration loop do niter = 1 , NMAX call orbel_scget ( x + m , sa , ca ) esa = e * sa eca = e * ca f = x - esa fp = 1._DP - eca dx = - f / fp dx = - f / ( fp + 0.5_DP * dx * esa ) dx = - f / ( fp + 0.5_DP * dx * ( esa + eca * dx / 3.0_DP )) x = x + dx end do orbel_ehie = m + x if ( iflag == 1 ) then orbel_ehie = TWOPI - orbel_ehie m = TWOPI - m end if return end function orbel_ehie !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !                             ORBEL_EGET.F !********************************************************************** !     PURPOSE:  Solves Kepler's eqn.   e is ecc.   m is mean anomaly. ! !             Input: !                           e ==> eccentricity anomaly. (real scalar) !                           m ==> mean anomaly. (real scalar) !             Returns: !                  orbel_eget ==>  eccentric anomaly. (real scalar) ! !     ALGORITHM: Quartic convergence from Danby !     REMARKS: For results very near roundoff, give it M between !           0 and 2*pi. One can condition M before calling EGET !           by calling my double precision function MOD2PI(M). !           This is not done within the routine to speed it up !           and because it works fine even for large M. !     AUTHOR: M. Duncan !     DATE WRITTEN: May 7, 1992. !     REVISIONS: May 21, 1992.  Now have it go through EXACTLY two iterations !                with the premise that it will only be called if !          we have an ellipse with e between 0.15 and 0.8 !********************************************************************** real ( DP ) pure function orbel_eget ( e , m ) implicit none real ( DP ), intent ( in ) :: e , m real ( DP ) :: x , sm , cm , sx , cx real ( DP ) :: es , ec , f , fp , fpp , fppp , dx ! function to solve kepler's eqn for e (here called ! x) for given e and m. returns value of x. ! may 21 : for e < 0.18 use esolmd for speed and sufficient accuracy ! may 21 : for e > 0.8 use ehie - this one may not converge fast enough. call orbel_scget ( m , sm , cm ) !  begin with a guess accurate to order ecc**3 x = m + e * sm * ( 1._DP + e * ( cm + e * ( 1._DP - 1.5_DP * sm * sm ))) !  go through one iteration for improved estimate call orbel_scget ( x , sx , cx ) es = e * sx ec = e * cx f = x - es - m fp = 1._DP - ec fpp = es fppp = ec dx = - f / fp dx = - f / ( fp + dx * fpp / 2._DP ) dx = - f / ( fp + dx * fpp / 2._DP + dx * 2 * fppp / 6._DP ) orbel_eget = x + dx ! do another iteration. ! for m between 0 and 2*pi this seems to be enough to ! get near roundoff error for eccentricities between 0 and 0.8 x = orbel_eget call orbel_scget ( x , sx , cx ) es = e * sx ec = e * cx f = x - es - m fp = 1._DP - ec fpp = es fppp = ec dx = - f / fp dx = - f / ( fp + dx * fpp / 2._DP ) dx = - f / ( fp + dx * fpp / 2._DP + dx ** 2 * fppp / 6._DP ) orbel_eget = x + dx return end function orbel_eget !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !                    ORBEL_EHYBRID.F !********************************************************************** !     PURPOSE:  Solves Kepler's eqn.   e is ecc.   m is mean anomaly. ! !             Input: !                           e ==> eccentricity anomaly. (real scalar) !                           m ==> mean anomaly. (real scalar) !             Returns: !              orbel_ehybrid ==>  eccentric anomaly. (real scalar) ! !     ALGORITHM: For e < 0.18 uses fast routine ESOLMD !          For larger e but less than 0.8, uses EGET !          For e > 0.8 uses EHIE !     REMARKS: Only EHIE brings M and E into range (0,TWOPI) !     AUTHOR: M. Duncan !     DATE WRITTEN: May 25,1992. !     REVISIONS: 2/26/93 hfl !********************************************************************** real ( DP ) pure function orbel_ehybrid ( e , m ) implicit none real ( DP ), intent ( in ) :: e , m !real(DP) :: orbel_esolmd,orbel_eget,orbel_ehie if ( e < 0.18_DP ) then orbel_ehybrid = orbel_esolmd ( e , m ) else if ( e <= 0.8_DP ) then orbel_ehybrid = orbel_eget ( e , m ) else orbel_ehybrid = orbel_ehie ( e , m ) end if end if return end function orbel_ehybrid !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !                    ORBEL_FHYBRID.F !********************************************************************** !     PURPOSE:  Solves Kepler's eqn. for hyperbola using hybrid approach. ! !             Input: !                           e ==> eccentricity anomaly. (real scalar) !                           n ==> hyperbola mean anomaly. (real scalar) !             Returns: !               orbel_fhybrid ==>  eccentric anomaly. (real scalar) ! !     ALGORITHM: For abs(N) < 0.636*ecc -0.6 , use FLON !          For larger N, uses FGET !     REMARKS: !     AUTHOR: M. Duncan !     DATE WRITTEN: May 26,1992. !     REVISIONS:: !     REVISIONS: 2/26/93 hfl !********************************************************************** real ( DP ) pure function orbel_fhybrid ( e , n ) implicit none real ( DP ), intent ( in ) :: e , n real ( DP ) :: abn abn = n if ( n < 0._DP ) abn = - abn if ( abn < 0.636_DP * e - 0.6_DP ) then orbel_fhybrid = orbel_flon ( e , n ) else orbel_fhybrid = orbel_fget ( e , n ) end if return end function orbel_fhybrid module pure subroutine orbel_xv2aeq ( mu , x , v , a , e , q ) !! author: David A. Minton !! !! Compute semimajor axis, eccentricity, and pericentric distance from relative Cartesian position and velocity !! !! Adapted from David E. Kaufmann's Swifter routine: orbel_xv2aeq.f90 !! Adapted from Luke Dones' Swift routine orbel_xv2aeq.f implicit none !! Arguments real ( DP ), intent ( in ) :: mu real ( DP ), dimension (:), intent ( in ) :: x , v real ( DP ), intent ( out ) :: a , e , q integer ( I4B ) :: iorbit_type real ( DP ) :: r , v2 , h2 , energy , fac real ( DP ), dimension ( NDIM ) :: hvec a = 0.0_DP e = 0.0_DP q = 0.0_DP r = sqrt ( dot_product ( x (:), x (:))) v2 = dot_product ( v (:), v (:)) hvec (:) = x (:) . cross . v (:) h2 = dot_product ( hvec (:), hvec (:)) if ( h2 == 0.0_DP ) return energy = 0.5_DP * v2 - mu / r if ( abs ( energy * r / mu ) < sqrt ( VSMALL )) then iorbit_type = PARABOLA else a = - 0.5_DP * mu / energy if ( a < 0.0_DP ) then fac = - h2 / ( mu * a ) if ( fac > VSMALL ) then iorbit_type = HYPERBOLA else iorbit_type = PARABOLA end if else iorbit_type = ELLIPSE end if end if select case ( iorbit_type ) case ( ELLIPSE ) fac = 1.0_DP - h2 / ( mu * a ) if ( fac > VSMALL ) e = sqrt ( fac ) q = a * ( 1.0_DP - e ) case ( PARABOLA ) a = 0.5_DP * h2 / mu e = 1.0_DP q = a case ( HYPERBOLA ) e = sqrt ( 1.0_DP + fac ) q = a * ( 1.0_DP - e ) end select return end subroutine orbel_xv2aeq module pure subroutine orbel_xv2aqt ( mu , x , v , a , q , capm , tperi ) !! author: David A. Minton !! !! Compute semimajor axis, pericentric distance, mean anomaly, and time to nearest pericenter passage from !! relative Cartesian position and velocity !!      tperi > 0 means nearest pericenter passage is in the future !!      tperi < 0 means nearest pericenter passage is in the past !! !! Adapted from David E. Kaufmann's Swifter routine: orbel_xv2aqt.f90 implicit none ! Arguments real ( DP ), intent ( in ) :: mu !! Gravitational constant real ( DP ), dimension (:), intent ( in ) :: x !! Position vector real ( DP ), dimension (:), intent ( in ) :: v !! Velocity vector real ( DP ), intent ( out ) :: a !! semimajor axis real ( DP ), intent ( out ) :: q !! periapsis real ( DP ), intent ( out ) :: capm !! mean anomaly real ( DP ), intent ( out ) :: tperi !! time of pericenter passage ! Internals integer ( I4B ) :: iorbit_type real ( DP ) :: r , v2 , h2 , rdotv , energy , fac , w , face , cape , e , tmpf , capf , mm real ( DP ), dimension ( NDIM ) :: hvec a = 0.0_DP q = 0.0_DP capm = 0.0_DP tperi = 0.0_DP r = sqrt ( dot_product ( x (:), x (:))) v2 = dot_product ( v (:), v (:)) hvec (:) = x (:) . cross . v (:) h2 = dot_product ( hvec (:), hvec (:)) if ( h2 == 0.0_DP ) return rdotv = dot_product ( x (:), v (:)) energy = 0.5_DP * v2 - mu / r if ( abs ( energy * r / mu ) < sqrt ( VSMALL )) then iorbit_type = PARABOLA else a = - 0.5_DP * mu / energy if ( a < 0.0_DP ) then fac = - h2 / ( mu * a ) if ( fac > VSMALL ) then iorbit_type = HYPERBOLA else iorbit_type = PARABOLA end if else iorbit_type = ELLIPSE end if end if select case ( iorbit_type ) case ( ELLIPSE ) fac = 1.0_DP - h2 / ( mu * a ) if ( fac > VSMALL ) then e = sqrt ( fac ) cape = 0.0_DP face = ( a - r ) / ( a * e ) if ( face < - 1.0_DP ) then cape = PI else if ( face < 1.0_DP ) then cape = acos ( face ) end if if ( rdotv < 0.0_DP ) cape = TWOPI - cape else e = 0.0_DP cape = 0.0_DP end if capm = cape - e * sin ( cape ) q = a * ( 1.0_DP - e ) mm = sqrt ( mu / a ** 3 ) if ( capm < PI ) then tperi = - 1.0_DP * capm / mm else tperi = - 1.0_DP * ( capm - TWOPI ) / mm end if case ( PARABOLA ) a = 0.5_DP * h2 / mu e = 1.0_DP w = 0.0_DP fac = 2 * a / r - 1.0_DP if ( fac < - 1.0_DP ) then w = PI else if ( fac < 1.0_DP ) then w = acos ( fac ) end if if ( rdotv < 0.0_DP ) w = TWOPI - w tmpf = tan ( 0.5_DP * w ) capm = tmpf * ( 1.0_DP + tmpf * tmpf / 3.0_DP ) q = a mm = sqrt ( 0.5_DP * mu / q ** 3 ) tperi = - 1.0_DP * capm / mm case ( HYPERBOLA ) e = sqrt ( 1.0_DP + fac ) tmpf = ( a - r ) / ( a * e ) if ( tmpf < 1.0_DP ) tmpf = 1.0_DP capf = log ( tmpf + sqrt ( tmpf * tmpf - 1.0_DP )) if ( rdotv < 0.0_DP ) capf = - capf capm = e * sinh ( capf ) - capf q = a * ( 1.0_DP - e ) mm = sqrt ( - mu / a ** 3 ) tperi = - 1.0_DP * capm / mm end select return end subroutine orbel_xv2aqt module subroutine orbel_xv2el_vec ( self , cb ) !! author: David A. Minton !! !! A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements. implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object ! internals integer ( I4B ) :: i if ( self % nbody == 0 ) return call self % set_mu ( cb ) if (. not . allocated ( self % a )) allocate ( self % a ( self % nbody )) if (. not . allocated ( self % e )) allocate ( self % e ( self % nbody )) if (. not . allocated ( self % inc )) allocate ( self % inc ( self % nbody )) if (. not . allocated ( self % capom )) allocate ( self % capom ( self % nbody )) if (. not . allocated ( self % omega )) allocate ( self % omega ( self % nbody )) if (. not . allocated ( self % capm )) allocate ( self % capm ( self % nbody )) do i = 1 , self % nbody call orbel_xv2el ( self % mu ( i ), self % xh (:, i ), self % vh (:, i ), self % a ( i ), self % e ( i ), self % inc ( i ), & self % capom ( i ), self % omega ( i ), self % capm ( i )) end do end subroutine orbel_xv2el_vec pure subroutine orbel_xv2el ( mu , x , v , a , e , inc , capom , omega , capm ) !! author: David A. Minton !! !! Compute osculating orbital elements from relative Cartesian position and velocity !!  All angular measures are returned in radians !!      If inclination < TINY, longitude of the ascending node is arbitrarily set to 0 !! !!      If eccentricity < sqrt(TINY), argument of pericenter is arbitrarily set to 0 !! !!      References: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 201 - 206. !!              Fitzpatrick, P. M. 1970. Principles of Celestial Mechanics, (Academic Press), 69 - 73. !!              Roy, A. E. 1982. Orbital Motion, (Adam Hilger, Ltd.), 75 - 95 !! !! Adapted from David E. Kaufmann's Swifter routine: orbel_xv2el.f90 !! Adapted from Martin Duncan's Swift routine orbel_xv2el.f implicit none real ( DP ), intent ( in ) :: mu real ( DP ), dimension (:), intent ( in ) :: x , v real ( DP ), intent ( out ) :: a , e , inc , capom , omega , capm integer ( I4B ) :: iorbit_type real ( DP ) :: r , v2 , h2 , h , rdotv , energy , fac , u , w , cw , sw , face , cape , tmpf , capf real ( DP ), dimension ( NDIM ) :: hvec a = 0.0_DP e = 0.0_DP inc = 0.0_DP capom = 0.0_DP omega = 0.0_DP capm = 0.0_DP r = sqrt ( dot_product ( x (:), x (:))) v2 = dot_product ( v (:), v (:)) hvec = x (:) . cross . v (:) h2 = dot_product ( hvec (:), hvec (:)) h = sqrt ( h2 ) if ( h2 == 0.0_DP ) return rdotv = dot_product ( x (:), v (:)) energy = 0.5_DP * v2 - mu / r fac = hvec ( 3 ) / h if ( fac < - 1.0_DP ) then inc = PI else if ( fac < 1.0_DP ) then inc = acos ( fac ) end if fac = sqrt ( hvec ( 1 ) ** 2 + hvec ( 2 ) ** 2 ) / h if ( fac ** 2 < VSMALL ) then u = atan2 ( x ( 2 ), x ( 1 )) if ( hvec ( 3 ) < 0.0_DP ) u = - u else capom = atan2 ( hvec ( 1 ), - hvec ( 2 )) u = atan2 ( x ( 3 ) / sin ( inc ), x ( 1 ) * cos ( capom ) + x ( 2 ) * sin ( capom )) end if if ( capom < 0.0_DP ) capom = capom + TWOPI if ( u < 0.0_DP ) u = u + TWOPI if ( abs ( energy * r / mu ) < sqrt ( VSMALL )) then iorbit_type = parabola else a = - 0.5_DP * mu / energy if ( a < 0.0_DP ) then fac = - h2 / ( mu * a ) if ( fac > VSMALL ) then iorbit_type = HYPERBOLA else iorbit_type = PARABOLA end if else iorbit_type = ELLIPSE end if end if select case ( iorbit_type ) case ( ELLIPSE ) fac = 1.0_DP - h2 / ( mu * a ) if ( fac > VSMALL ) then e = sqrt ( fac ) cape = 0.0_DP face = ( a - r ) / ( a * e ) if ( face < - 1.0_DP ) then cape = PI else if ( face < 1.0_DP ) then cape = acos ( face ) end if if ( rdotv < 0.0_DP ) cape = TWOPI - cape fac = 1.0_DP - e * cos ( cape ) cw = ( cos ( cape ) - e ) / fac sw = sqrt ( 1.0_DP - e ** 2 ) * sin ( cape ) / fac w = atan2 ( sw , cw ) if ( w < 0.0_DP ) w = w + TWOPI else cape = u w = u end if capm = cape - e * sin ( cape ) case ( PARABOLA ) a = 0.5_DP * h2 / mu e = 1.0_DP w = 0.0_DP fac = 2 * a / r - 1.0_DP if ( fac < - 1.0_DP ) then w = PI else if ( fac < 1.0_DP ) then w = acos ( fac ) end if if ( rdotv < 0.0_DP ) w = TWOPI - w tmpf = tan ( 0.5_DP * w ) capm = tmpf * ( 1.0_DP + tmpf * tmpf / 3.0_DP ) case ( HYPERBOLA ) e = sqrt ( 1.0_DP + fac ) tmpf = max (( a - r ) / ( a * e ), 1.0_DP ) capf = log ( tmpf + sqrt ( tmpf ** 2 - 1.0_DP )) if ( rdotv < 0.0_DP ) capf = - capf fac = e * cosh ( capf ) - 1.0_DP cw = ( e - cosh ( capf )) / fac sw = sqrt ( e * e - 1.0_DP ) * sinh ( capf ) / fac w = atan2 ( sw , cw ) if ( w < 0.0_DP ) w = w + TWOPI capm = e * sinh ( capf ) - capf end select omega = u - w if ( omega < 0.0_DP ) omega = omega + TWOPI return end subroutine orbel_xv2el end submodule s_orbel","tags":"","loc":"sourcefile/orbel.f90.html"},{"title":"whm_coord.f90 – swiftest","text":"This file depends on sourcefile~~whm_coord.f90~~EfferentGraph sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~whm_coord.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_whm_coord Source Code whm_coord.f90 Source Code submodule ( whm_classes ) s_whm_coord use swiftest contains module subroutine whm_coord_h2j_pl ( self , cb ) !! author: David A. Minton !! !! Convert from heliocentric to Jacobi coordinates, massive bodies only !! !! Uses pre-computed eta rather than computing it each time !! !! Adapted from David E. Kaufmann's Swifter routine coord_h2j.f90 !! !! Adapted from Hal Levison's Swift routine coord_h2j.f implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body particle data structuree ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: sumx , sumv , cap , capv if ( self % nbody == 0 ) return associate ( npl => self % nbody , GMpl => self % Gmass , eta => self % eta , xh => self % xh , vh => self % vh , & xj => self % xj , vj => self % vj ) xj (:, 1 ) = xh (:, 1 ) vj (:, 1 ) = vh (:, 1 ) sumx (:) = 0.0_DP sumv (:) = 0.0_DP do i = 2 , npl sumx (:) = sumx (:) + GMpl ( i - 1 ) * xh (:, i - 1 ) sumv (:) = sumv (:) + GMpl ( i - 1 ) * vh (:, i - 1 ) cap (:) = sumx (:) / eta ( i - 1 ) capv (:) = sumv (:) / eta ( i - 1 ) xj (:, i ) = xh (:, i ) - cap (:) vj (:, i ) = vh (:, i ) - capv (:) end do end associate return end subroutine whm_coord_h2j_pl module subroutine whm_coord_j2h_pl ( self , cb ) !! author: David A. Minton !! !! Convert from Jacobi to heliocentric coordinates, massive bodies only. !! !! Uses pre-computed eta rather than computing it each time !! !! !! Adapted from David E. Kaufmann's Swifter routine coord_j2h.f90 !! !! Adapted from Hal Levison's Swift routine coord_j2h.f implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body particle data structuree ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: sumx , sumv if ( self % nbody == 0 ) return associate ( npl => self % nbody , GMpl => self % Gmass , eta => self % eta , xh => self % xh , vh => self % vh , & xj => self % xj , vj => self % vj ) xh (:, 1 ) = xj (:, 1 ) vh (:, 1 ) = vj (:, 1 ) sumx (:) = 0.0_DP sumv (:) = 0.0_DP do i = 2 , npl sumx (:) = sumx (:) + GMpl ( i - 1 ) * xj (:, i - 1 ) / eta ( i - 1 ) sumv (:) = sumv (:) + GMpl ( i - 1 ) * vj (:, i - 1 ) / eta ( i - 1 ) xh (:, i ) = xj (:, i ) + sumx (:) vh (:, i ) = vj (:, i ) + sumv (:) end do end associate return end subroutine whm_coord_j2h_pl module subroutine whm_coord_vh2vj_pl ( self , cb ) !! author: David A. Minton !! !! Convert from heliocentric to Jadcobi coordinates, massive body velocities only !! !! Uses pre-computed eta rather than computing it each time !! !! Adapted from David E. Kaufmann's Swifter routine coord_vh2vj.f90 !! !! Adapted from Hal Levison's Swift routine coord_vh2vj.f implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body particle data structuree ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: sumv , capv if ( self % nbody == 0 ) return associate ( npl => self % nbody , GMpl => self % Gmass , vh => self % vh , vj => self % vj , eta => self % eta ) vj (:, 1 ) = vh (:, 1 ) sumv (:) = 0.0_DP do i = 2 , npl sumv (:) = sumv (:) + GMpl ( i - 1 ) * vh (:, i - 1 ) capv (:) = sumv (:) / eta ( i - 1 ) vj (:, i ) = vh (:, i ) - capv (:) end do end associate return end subroutine whm_coord_vh2vj_pl end submodule s_whm_coord","tags":"","loc":"sourcefile/whm_coord.f90.html"},{"title":"whm_gr.f90 – swiftest","text":"This file depends on sourcefile~~whm_gr.f90~~EfferentGraph sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~whm_gr.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_whm_gr Source Code whm_gr.f90 Source Code submodule ( whm_classes ) s_whm_gr use swiftest contains module subroutine whm_gr_kick_getacch_pl ( self , param ) !! author: David A. Minton !! !! Compute relativisitic accelerations of massive bodies !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_whm_kick_getacch.f90 implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: suma real ( DP ), dimension (:, :), allocatable :: aj real ( DP ) :: beta , rjmag4 if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody , inv_c2 => param % inv_c2 ) call gr_kick_getacch ( pl % muj , pl % xj , pl % lmask , npl , param % inv_c2 , pl % agr ) suma (:) = 0.0_DP pl % ah (:, 1 ) = pl % ah (:, 1 ) + pl % agr (:, 1 ) do i = 2 , npl suma (:) = suma (:) + pl % Gmass ( i ) * pl % agr (:, i ) / pl % eta ( i ) pl % ah (:, i ) = pl % ah (:, i ) + pl % agr (:, i ) + suma (:) end do end associate return end subroutine whm_gr_kick_getacch_pl module subroutine whm_gr_kick_getacch_tp ( self , param ) !! author: David A. Minton !! !! Compute relativisitic accelerations of test particles !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_whm_kick_getacch.f90 implicit none ! Arguments class ( whm_tp ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ) :: rjmag4 , beta if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody , inv_c2 => param % inv_c2 ) call gr_kick_getacch ( tp % mu , tp % xh , tp % lmask , ntp , param % inv_c2 , tp % agr ) tp % ah (:, 1 : ntp ) = tp % ah (:, 1 : ntp ) + tp % agr (:, 1 : ntp ) end associate return end subroutine whm_gr_kick_getacch_tp module pure subroutine whm_gr_p4_pl ( self , param , dt ) !! author: David A. Minton !! !! Position kick to massive bodies due to p**4 term in the post-Newtonian correction !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_whm_p4.f90 implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Step size ! Internals integer ( I4B ) :: i associate ( pl => self , npl => self % nbody ) if ( npl == 0 ) return do concurrent ( i = 1 : npl , pl % lmask ( i )) call gr_p4_pos_kick ( param , pl % xj (:, i ), pl % vj (:, i ), dt ) end do end associate return end subroutine whm_gr_p4_pl module pure subroutine whm_gr_p4_tp ( self , param , dt ) !! author: David A. Minton !! !! Position kick to test particles due to p**4 term in the post-Newtonian correction !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_whm_p4.f90 implicit none ! Arguments class ( whm_tp ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Step size ! Internals integer ( I4B ) :: i associate ( tp => self , ntp => self % nbody ) if ( ntp == 0 ) return do concurrent ( i = 1 : ntp , tp % lmask ( i )) call gr_p4_pos_kick ( param , tp % xh (:, i ), tp % vh (:, i ), dt ) end do end associate return end subroutine whm_gr_p4_tp end submodule s_whm_gr","tags":"","loc":"sourcefile/whm_gr.f90.html"},{"title":"whm_step.f90 – swiftest","text":"This file depends on sourcefile~~whm_step.f90~~EfferentGraph sourcefile~whm_step.f90 whm_step.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~whm_step.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_whm_step Source Code whm_step.f90 Source Code submodule ( whm_classes ) s_whm_step use swiftest contains module subroutine whm_step_system ( self , param , t , dt ) !! author: David A. Minton !! !! Step massive bodies and and active test particles ahead in heliocentric coordinates !! !! Adapted from Hal Levison's Swift routine step_kdk.f !! Adapted from David E. Kaufmann's Swifter routine whm_step.f90 implicit none ! Arguments class ( whm_nbody_system ), intent ( inout ) :: self !! WHM nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize associate ( system => self , cb => self % cb , pl => self % pl , tp => self % tp ) tp % lfirst = pl % lfirst call pl % step ( system , param , t , dt ) call tp % step ( system , param , t , dt ) if ( param % ltides ) call system % step_spin ( param , t , dt ) end associate return end subroutine whm_step_system module subroutine whm_step_pl ( self , system , param , t , dt ) !! author: David A. Minton !! !! Step planets ahead using kick-drift-kick algorithm !! !! Adapted from Hal Levison's Swift routine step_kdk_pl.f !! Adapted from David E. Kaufmann's Swifter routine whm_step_pl.f90 !logical, save :: lfirst = .true. implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize ! Internals real ( DP ) :: dth if ( self % nbody == 0 ) return associate ( pl => self , cb => system % cb ) dth = 0.5_DP * dt call pl % kick ( system , param , t , dth , lbeg = . true .) call pl % vh2vj ( cb ) if ( param % lgr ) call pl % gr_pos_kick ( param , dth ) call pl % drift ( system , param , dt ) if ( param % lgr ) call pl % gr_pos_kick ( param , dth ) call pl % j2h ( cb ) call pl % kick ( system , param , t + dt , dth , lbeg = . false .) end associate return end subroutine whm_step_pl module subroutine whm_step_tp ( self , system , param , t , dt ) !! author: David A. Minton !! !! Step active test particles ahead using kick-drift-kick algorithm !! !! Adapted from Hal Levison's Swift routine step_kdk_tp.f !! Adapted from David E. Kaufmann's Swifter routine whm_step_tp.f90 implicit none ! Arguments class ( whm_tp ), intent ( inout ) :: self !! WHM test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize ! Internals real ( DP ) :: dth if ( self % nbody == 0 ) return select type ( system ) class is ( whm_nbody_system ) associate ( tp => self , cb => system % cb , pl => system % pl ) dth = 0.5_DP * dt call tp % kick ( system , param , t , dth , lbeg = . true .) if ( param % lgr ) call tp % gr_pos_kick ( param , dth ) call tp % drift ( system , param , dt ) if ( param % lgr ) call tp % gr_pos_kick ( param , dth ) call tp % kick ( system , param , t + dt , dth , lbeg = . false .) end associate end select return end subroutine whm_step_tp end submodule s_whm_step","tags":"","loc":"sourcefile/whm_step.f90.html"},{"title":"whm_drift.f90 – swiftest","text":"This file depends on sourcefile~~whm_drift.f90~~EfferentGraph sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~whm_drift.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules whm_drift Source Code whm_drift.f90 Source Code submodule ( whm_classes ) whm_drift use swiftest contains module subroutine whm_drift_pl ( self , system , param , dt ) !! author: David A. Minton !! !! Loop through planets and call Danby drift routine !! !! Adapted from Hal Levison's Swift routine drift.f !! Adapted from David E. Kaufmann's Swifter routine whm_drift.f90 implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! WHM nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize ! Internals integer ( I4B ) :: i integer ( I4B ), dimension (:), allocatable :: iflag if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) allocate ( iflag ( npl )) iflag (:) = 0 call drift_all ( pl % muj , pl % xj , pl % vj , npl , param , dt , pl % lmask , iflag ) if ( any ( iflag ( 1 : npl ) /= 0 )) then where ( iflag ( 1 : npl ) /= 0 ) pl % status ( 1 : npl ) = DISCARDED_DRIFTERR pl % lmask ( 1 : npl ) = . false . end where do i = 1 , npl if ( iflag ( i ) /= 0 ) then write ( * , * ) \" Planet \" , pl % id ( i ), \" is lost!!!!!!!!!!!!\" WRITE ( * , * ) pl % muj ( i ), dt WRITE ( * , * ) pl % xj (:, i ) WRITE ( * , * ) pl % vj (:, i ) WRITE ( * , * ) \" STOPPING \" end if end do call util_exit ( FAILURE ) end if end associate return end subroutine whm_drift_pl end submodule whm_drift","tags":"","loc":"sourcefile/whm_drift.f90.html"},{"title":"whm_kick.f90 – swiftest","text":"This file depends on sourcefile~~whm_kick.f90~~EfferentGraph sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~whm_kick.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_whm_kick Source Code whm_kick.f90 Source Code submodule ( whm_classes ) s_whm_kick use swiftest contains module subroutine whm_kick_getacch_pl ( self , system , param , t , lbeg ) !! author: David A. Minton !! !! Compute heliocentric accelerations of planets !! !! Adapted from Hal Levison's Swift routine getacch.f !! Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch.f90 implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest central body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: ah0 if ( self % nbody == 0 ) return associate ( cb => system % cb , pl => self , npl => self % nbody ) call pl % set_ir3 () ah0 (:) = whm_kick_getacch_ah0 ( pl % Gmass ( 2 : npl ), pl % xh (:, 2 : npl ), npl - 1 ) do i = 1 , npl pl % ah (:, i ) = pl % ah (:, i ) + ah0 (:) end do call whm_kick_getacch_ah1 ( cb , pl ) call whm_kick_getacch_ah2 ( cb , pl ) call pl % accel_int () if ( param % loblatecb ) then call pl % accel_obl ( system ) if ( lbeg ) then cb % aoblbeg = cb % aobl else cb % aoblend = cb % aobl end if if ( param % ltides ) then cb % atidebeg = cb % aobl call pl % accel_tides ( system ) cb % atideend = cb % atide end if end if if ( param % lgr ) call pl % accel_gr ( param ) if ( param % lextra_force ) call pl % accel_user ( system , param , t , lbeg ) end associate return end subroutine whm_kick_getacch_pl module subroutine whm_kick_getacch_tp ( self , system , param , t , lbeg ) !! author: David A. Minton !! !! Compute heliocentric accelerations of test particles !! !! Adapted from Hal Levison's Swift routine getacch_tp.f !! Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_tp.f90 implicit none ! Arguments class ( whm_tp ), intent ( inout ) :: self !! WHM test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest central body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: ah0 associate ( tp => self , ntp => self % nbody , pl => system % pl , cb => system % cb , npl => system % pl % nbody ) if ( ntp == 0 . or . npl == 0 ) return system % lbeg = lbeg if ( lbeg ) then ah0 (:) = whm_kick_getacch_ah0 ( pl % Gmass (:), pl % xbeg (:,:), npl ) do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % ah (:, i ) = tp % ah (:, i ) + ah0 (:) end do call tp % accel_int ( pl % Gmass (:), pl % xbeg (:,:), npl ) else ah0 (:) = whm_kick_getacch_ah0 ( pl % Gmass (:), pl % xend (:,:), npl ) do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % ah (:, i ) = tp % ah (:, i ) + ah0 (:) end do call tp % accel_int ( pl % Gmass (:), pl % xend (:,:), npl ) end if if ( param % loblatecb ) call tp % accel_obl ( system ) if ( param % lextra_force ) call tp % accel_user ( system , param , t , lbeg ) if ( param % lgr ) call tp % accel_gr ( param ) end associate return end subroutine whm_kick_getacch_tp function whm_kick_getacch_ah0 ( mu , xhp , n ) result ( ah0 ) !! author: David A. Minton !! !! Compute zeroth term heliocentric accelerations of planets implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: mu real ( DP ), dimension (:,:), intent ( in ) :: xhp integer ( I4B ), intent ( in ) :: n ! Result real ( DP ), dimension ( NDIM ) :: ah0 ! Internals real ( DP ) :: fac , r2 , ir3h , irh integer ( I4B ) :: i ah0 (:) = 0.0_DP do i = 1 , n r2 = dot_product ( xhp (:, i ), xhp (:, i )) irh = 1.0_DP / sqrt ( r2 ) ir3h = irh / r2 fac = mu ( i ) * ir3h ah0 (:) = ah0 (:) - fac * xhp (:, i ) end do return end function whm_kick_getacch_ah0 pure subroutine whm_kick_getacch_ah1 ( cb , pl ) !! author: David A. Minton !! !! Compute first term heliocentric accelerations of planets !! !! Adapted from Hal Levison's Swift routine getacch_ah1.f !! Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_ah1.f90 implicit none ! Arguments class ( swiftest_cb ), intent ( in ) :: cb !! WHM central body object class ( whm_pl ), intent ( inout ) :: pl !! WHM massive body object ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: ah1h , ah1j associate ( npl => pl % nbody ) do concurrent ( i = 2 : npl , pl % lmask ( i )) ah1j (:) = pl % xj (:, i ) * pl % ir3j ( i ) ah1h (:) = pl % xh (:, i ) * pl % ir3h ( i ) pl % ah (:, i ) = pl % ah (:, i ) + cb % Gmass * ( ah1j (:) - ah1h (:)) end do end associate return end subroutine whm_kick_getacch_ah1 pure subroutine whm_kick_getacch_ah2 ( cb , pl ) !! author: David A. Minton !! !! Compute second term heliocentric accelerations of planets !! !! Adapted from Hal Levison's Swift routine getacch_ah2.f !! Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_ah2.f90 implicit none ! Arguments class ( swiftest_cb ), intent ( in ) :: cb !! Swiftest central body object class ( whm_pl ), intent ( inout ) :: pl !! WHM massive body object ! Internals integer ( I4B ) :: i real ( DP ) :: etaj , fac real ( DP ), dimension ( NDIM ) :: ah2 , ah2o associate ( npl => pl % nbody ) ah2 (:) = 0.0_DP ah2o (:) = 0.0_DP etaj = cb % Gmass do concurrent ( i = 2 : npl , pl % lmask ( i )) etaj = etaj + pl % Gmass ( i - 1 ) fac = pl % Gmass ( i ) * cb % Gmass * pl % ir3j ( i ) / etaj ah2 (:) = ah2o + fac * pl % xj (:, i ) pl % ah (:, i ) = pl % ah (:, i ) + ah2 (:) ah2o (:) = ah2 (:) end do end associate return end subroutine whm_kick_getacch_ah2 module subroutine whm_kick_vh_pl ( self , system , param , t , dt , lbeg ) !! author: David A. Minton !! !! Kick heliocentric velocities of massive bodies !! !! Adapted from Martin Duncan and Hal Levison's Swift routine kickvh.f !! Adapted from David E. Kaufmann's Swifter routine whm_kickvh.f90 implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. ! Internals integer ( I4B ) :: i associate ( pl => self , npl => self % nbody , cb => system % cb ) if ( npl == 0 ) return if ( lbeg ) then if ( pl % lfirst ) then call pl % h2j ( cb ) pl % ah (:,:) = 0.0_DP call pl % accel ( system , param , t , lbeg ) pl % lfirst = . false . end if call pl % set_beg_end ( xbeg = pl % xh ) else pl % ah (:,:) = 0.0_DP call pl % accel ( system , param , t , lbeg ) call pl % set_beg_end ( xend = pl % xh ) end if do concurrent ( i = 1 : npl , pl % lmask ( i )) pl % vh (:, i ) = pl % vh (:, i ) + pl % ah (:, i ) * dt end do end associate return end subroutine whm_kick_vh_pl module subroutine whm_kick_vh_tp ( self , system , param , t , dt , lbeg ) !! author: David A. Minton !! !! Kick heliocentric velocities of test particles !! !! Adapted from Martin Duncan and Hal Levison's Swift routine kickvh_tp.f !! Adapted from David E. Kaufmann's Swifter routine whm_kickvh_tp.f90 implicit none ! Arguments class ( whm_tp ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) if ( tp % lfirst ) then where ( tp % lmask ( 1 : ntp )) tp % ah ( 1 , 1 : ntp ) = 0.0_DP tp % ah ( 2 , 1 : ntp ) = 0.0_DP tp % ah ( 3 , 1 : ntp ) = 0.0_DP end where call tp % accel ( system , param , t , lbeg = . true .) tp % lfirst = . false . end if if (. not . lbeg ) then where ( tp % lmask ( 1 : ntp )) tp % ah ( 1 , 1 : ntp ) = 0.0_DP tp % ah ( 2 , 1 : ntp ) = 0.0_DP tp % ah ( 3 , 1 : ntp ) = 0.0_DP end where call tp % accel ( system , param , t , lbeg ) end if do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % vh (:, i ) = tp % vh (:, i ) + tp % ah (:, i ) * dt end do end associate return end subroutine whm_kick_vh_tp end submodule s_whm_kick","tags":"","loc":"sourcefile/whm_kick.f90.html"},{"title":"whm_setup.f90 – swiftest","text":"This file depends on sourcefile~~whm_setup.f90~~EfferentGraph sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~whm_setup.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_whm_setup Source Code whm_setup.f90 Source Code submodule ( whm_classes ) s_whm_setup use swiftest contains module subroutine whm_setup_pl ( self , n , param ) !! author: David A. Minton !! !! Allocate WHM planet structure !! !! Equivalent in functionality to David E. Kaufmann's Swifter routine whm_setup.f90 implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! Swiftest test particle object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter !> Call allocation method for parent class call setup_pl ( self , n , param ) if ( n <= 0 ) return if ( allocated ( self % eta )) deallocate ( self % eta ) if ( allocated ( self % muj )) deallocate ( self % muj ) if ( allocated ( self % xj )) deallocate ( self % xj ) if ( allocated ( self % vj )) deallocate ( self % vj ) if ( allocated ( self % ir3j )) deallocate ( self % ir3j ) allocate ( self % eta ( n )) allocate ( self % muj ( n )) allocate ( self % xj ( NDIM , n )) allocate ( self % vj ( NDIM , n )) allocate ( self % ir3j ( n )) self % eta (:) = 0.0_DP self % muj (:) = 0.0_DP self % xj (:,:) = 0.0_DP self % vj (:,:) = 0.0_DP self % ir3j (:) = 0.0_DP return end subroutine whm_setup_pl module subroutine whm_util_set_mu_eta_pl ( self , cb ) !! author: David A. Minton !! !! Sets the Jacobi mass value eta for all massive bodies implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM system object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object ! Internals integer ( I4B ) :: i associate ( pl => self , npl => self % nbody ) if ( npl == 0 ) return call util_set_mu_pl ( pl , cb ) pl % eta ( 1 ) = cb % Gmass + pl % Gmass ( 1 ) pl % muj ( 1 ) = pl % eta ( 1 ) do i = 2 , npl pl % eta ( i ) = pl % eta ( i - 1 ) + pl % Gmass ( i ) pl % muj ( i ) = cb % Gmass * pl % eta ( i ) / pl % eta ( i - 1 ) end do end associate return end subroutine whm_util_set_mu_eta_pl module subroutine whm_setup_initialize_system ( self , param ) !! author: David A. Minton !! !! Initialize a WHM nbody system from files !! implicit none ! Arguments class ( whm_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters call setup_initialize_system ( self , param ) ! First we need to make sure that the massive bodies are sorted by heliocentric distance before computing jacobies call util_set_ir3h ( self % pl ) call self % pl % sort ( \"ir3h\" , ascending = . false .) ! Make sure that the discard list gets allocated initially call self % tp_discards % setup ( self % tp % nbody , param ) call self % pl % set_mu ( self % cb ) call self % tp % set_mu ( self % cb ) if ( param % lgr ) then call self % pl % v2pv ( param ) call self % tp % v2pv ( param ) end if return end subroutine whm_setup_initialize_system end submodule s_whm_setup","tags":"","loc":"sourcefile/whm_setup.f90.html"},{"title":"whm_util.f90 – swiftest","text":"This file depends on sourcefile~~whm_util.f90~~EfferentGraph sourcefile~whm_util.f90 whm_util.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~whm_util.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_whm_util Source Code whm_util.f90 Source Code submodule ( whm_classes ) s_whm_util use swiftest contains module subroutine whm_util_append_pl ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from one massive body object to another. !! This method will automatically resize the destination body if it is too small implicit none !! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to select type ( source ) class is ( whm_pl ) call util_append_pl ( self , source , lsource_mask ) call util_append ( self % eta , source % eta , lsource_mask ) call util_append ( self % muj , source % muj , lsource_mask ) call util_append ( self % ir3j , source % ir3j , lsource_mask ) call util_append ( self % xj , source % xj , lsource_mask ) call util_append ( self % vj , source % vj , lsource_mask ) class default write ( * , * ) \"Invalid object passed to the append method. Source must be of class whm_pl or its descendents\" call util_exit ( FAILURE ) end select return end subroutine whm_util_append_pl module subroutine whm_util_fill_pl ( self , inserts , lfill_list ) !! author: David A. Minton !! !! Insert new WHM test particle structure into an old one. !! This is the inverse of a fill operation. !! !! Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_body ), intent ( in ) :: inserts !! inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps ! Internals integer ( I4B ) :: i associate ( keeps => self ) select type ( inserts ) class is ( whm_pl ) call util_fill ( keeps % eta , inserts % eta , lfill_list ) call util_fill ( keeps % muj , inserts % muj , lfill_list ) call util_fill ( keeps % ir3j , inserts % ir3j , lfill_list ) call util_fill ( keeps % xj , inserts % xj , lfill_list ) call util_fill ( keeps % vj , inserts % vj , lfill_list ) call util_fill_pl ( keeps , inserts , lfill_list ) class default write ( * , * ) \"Invalid object passed to the fill method. Inserts must be of class whm_pl or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine whm_util_fill_pl module subroutine whm_util_resize_pl ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a massive body against the requested size and resizes it if it is too small. implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded call util_resize_pl ( self , nnew ) call util_resize ( self % eta , nnew ) call util_resize ( self % xj , nnew ) call util_resize ( self % vj , nnew ) call util_resize ( self % muj , nnew ) call util_resize ( self % ir3j , nnew ) return end subroutine whm_util_resize_pl module subroutine whm_util_set_ir3j ( self ) !! author: David A. Minton !! !! Sets the inverse Jacobi and heliocentric radii cubed (1/rj**3 and 1/rh**3) implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object ! Internals integer ( I4B ) :: i real ( DP ) :: r2 , ir if ( self % nbody > 0 ) then do i = 1 , self % nbody r2 = dot_product ( self % xh (:, i ), self % xh (:, i )) ir = 1.0_DP / sqrt ( r2 ) self % ir3h ( i ) = ir / r2 r2 = dot_product ( self % xj (:, i ), self % xj (:, i )) ir = 1.0_DP / sqrt ( r2 ) self % ir3j ( i ) = ir / r2 end do end if return end subroutine whm_util_set_ir3j module subroutine whm_util_sort_pl ( self , sortby , ascending ) !! author: David A. Minton !! !! Sort a WHM massive body object in-place. !! sortby is a string indicating which array component to sort. implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order ! Internals integer ( I4B ), dimension ( self % nbody ) :: ind integer ( I4B ) :: direction if ( ascending ) then direction = 1 else direction = - 1 end if associate ( pl => self , npl => self % nbody ) select case ( sortby ) case ( \"eta\" ) call util_sort ( direction * pl % eta ( 1 : npl ), ind ( 1 : npl )) case ( \"muj\" ) call util_sort ( direction * pl % muj ( 1 : npl ), ind ( 1 : npl )) case ( \"ir3j\" ) call util_sort ( direction * pl % ir3j ( 1 : npl ), ind ( 1 : npl )) case ( \"xj\" , \"vj\" ) write ( * , * ) 'Cannot sort by ' // trim ( adjustl ( sortby )) // '. Component not sortable!' case default call util_sort_pl ( pl , sortby , ascending ) return end select call pl % rearrange ( ind ) end associate return end subroutine whm_util_sort_pl module subroutine whm_util_sort_rearrange_pl ( self , ind ) !! author: David A. Minton !! !! Rearrange WHM massive body structure in-place from an index list. !! This is a helper utility used to make polymorphic sorting work on Swiftest structures. implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) ! Internals class ( whm_pl ), allocatable :: pl_sorted !! Temporary holder for sorted body integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) call util_sort_rearrange_pl ( pl , ind ) allocate ( pl_sorted , source = self ) if ( allocated ( pl % eta )) pl % eta ( 1 : npl ) = pl_sorted % eta ( ind ( 1 : npl )) if ( allocated ( pl % xj )) pl % xj (:, 1 : npl ) = pl_sorted % xj (:, ind ( 1 : npl )) if ( allocated ( pl % vj )) pl % vj (:, 1 : npl ) = pl_sorted % vj (:, ind ( 1 : npl )) if ( allocated ( pl % muj )) pl % muj ( 1 : npl ) = pl_sorted % muj ( ind ( 1 : npl )) if ( allocated ( pl % ir3j )) pl % ir3j ( 1 : npl ) = pl_sorted % ir3j ( ind ( 1 : npl )) deallocate ( pl_sorted ) end associate return end subroutine whm_util_sort_rearrange_pl module subroutine whm_util_spill_pl ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) WHM test particle structure from active list to discard list !! !! Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not ! Internals integer ( I4B ) :: i associate ( keeps => self ) select type ( discards ) class is ( whm_pl ) call util_spill ( keeps % eta , discards % eta , lspill_list , ldestructive ) call util_spill ( keeps % muj , discards % muj , lspill_list , ldestructive ) call util_spill ( keeps % ir3j , discards % ir3j , lspill_list , ldestructive ) call util_spill ( keeps % xj , discards % xj , lspill_list , ldestructive ) call util_spill ( keeps % vj , discards % vj , lspill_list , ldestructive ) call util_spill_pl ( keeps , discards , lspill_list , ldestructive ) class default write ( * , * ) \"Invalid object passed to the spill method. Source must be of class whm_pl or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine whm_util_spill_pl end submodule s_whm_util","tags":"","loc":"sourcefile/whm_util.f90.html"},{"title":"operator_cross.f90 – swiftest","text":"This file depends on sourcefile~~operator_cross.f90~~EfferentGraph sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~operator_cross.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_operator_cross Source Code operator_cross.f90 Source Code submodule ( swiftest_operators ) s_operator_cross use swiftest !! author: David A. Minton !! !! Contains implementations for the .cross. operator for all defined integer and real types !! Single vector implementations: C(1:3)   = A(1:3)   .cross. B(1:3) !! Vector list implementations:   C(1:3, :) = A(1:3, :) .cross. B(1:3, :) contains module pure function operator_cross_sp ( A , B ) result ( C ) implicit none real ( SP ), dimension (:), intent ( in ) :: A , B real ( SP ), dimension ( 3 ) :: C C ( 1 ) = A ( 2 ) * B ( 3 ) - A ( 3 ) * B ( 2 ) C ( 2 ) = A ( 3 ) * B ( 1 ) - A ( 1 ) * B ( 3 ) C ( 3 ) = A ( 1 ) * B ( 2 ) - A ( 2 ) * B ( 1 ) return end function operator_cross_sp module pure function operator_cross_dp ( A , B ) result ( C ) implicit none real ( DP ), dimension (:), intent ( in ) :: A , B real ( DP ), dimension ( 3 ) :: C C ( 1 ) = A ( 2 ) * B ( 3 ) - A ( 3 ) * B ( 2 ) C ( 2 ) = A ( 3 ) * B ( 1 ) - A ( 1 ) * B ( 3 ) C ( 3 ) = A ( 1 ) * B ( 2 ) - A ( 2 ) * B ( 1 ) return end function operator_cross_dp module pure function operator_cross_qp ( A , B ) result ( C ) implicit none real ( QP ), dimension (:), intent ( in ) :: A , B real ( QP ), dimension ( 3 ) :: C C ( 1 ) = A ( 2 ) * B ( 3 ) - A ( 3 ) * B ( 2 ) C ( 2 ) = A ( 3 ) * B ( 1 ) - A ( 1 ) * B ( 3 ) C ( 3 ) = A ( 1 ) * B ( 2 ) - A ( 2 ) * B ( 1 ) return end function operator_cross_qp module pure function operator_cross_i1b ( A , B ) result ( C ) implicit none integer ( I1B ), dimension (:), intent ( in ) :: A , B integer ( I1B ), dimension ( 3 ) :: C C ( 1 ) = A ( 2 ) * B ( 3 ) - A ( 3 ) * B ( 2 ) C ( 2 ) = A ( 3 ) * B ( 1 ) - A ( 1 ) * B ( 3 ) C ( 3 ) = A ( 1 ) * B ( 2 ) - A ( 2 ) * B ( 1 ) return end function operator_cross_i1b module pure function operator_cross_i2b ( A , B ) result ( C ) implicit none integer ( I2B ), dimension (:), intent ( in ) :: A , B integer ( I2B ), dimension ( 3 ) :: C C ( 1 ) = A ( 2 ) * B ( 3 ) - A ( 3 ) * B ( 2 ) C ( 2 ) = A ( 3 ) * B ( 1 ) - A ( 1 ) * B ( 3 ) C ( 3 ) = A ( 1 ) * B ( 2 ) - A ( 2 ) * B ( 1 ) return end function operator_cross_i2b module pure function operator_cross_i4b ( A , B ) result ( C ) implicit none integer ( I4B ), dimension (:), intent ( in ) :: A , B integer ( I4B ), dimension ( 3 ) :: C C ( 1 ) = A ( 2 ) * B ( 3 ) - A ( 3 ) * B ( 2 ) C ( 2 ) = A ( 3 ) * B ( 1 ) - A ( 1 ) * B ( 3 ) C ( 3 ) = A ( 1 ) * B ( 2 ) - A ( 2 ) * B ( 1 ) return end function operator_cross_i4b module pure function operator_cross_i8b ( A , B ) result ( C ) implicit none integer ( I8B ), dimension (:), intent ( in ) :: A , B integer ( I8B ), dimension ( 3 ) :: C C ( 1 ) = A ( 2 ) * B ( 3 ) - A ( 3 ) * B ( 2 ) C ( 2 ) = A ( 3 ) * B ( 1 ) - A ( 1 ) * B ( 3 ) C ( 3 ) = A ( 1 ) * B ( 2 ) - A ( 2 ) * B ( 1 ) return end function operator_cross_i8b module pure function operator_cross_el_sp ( A , B ) result ( C ) implicit none real ( SP ), dimension (:,:), intent ( in ) :: A , B real ( SP ), dimension (:,:), allocatable :: C integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( C )) deallocate ( C ) allocate ( C , mold = A ) do concurrent ( i = 1 : n ) C ( 1 , i ) = A ( 2 , i ) * B ( 3 , i ) - A ( 3 , i ) * B ( 2 , i ) C ( 2 , i ) = A ( 3 , i ) * B ( 1 , i ) - A ( 1 , i ) * B ( 3 , i ) C ( 3 , i ) = A ( 1 , i ) * B ( 2 , i ) - A ( 2 , i ) * B ( 1 , i ) end do return end function operator_cross_el_sp module pure function operator_cross_el_dp ( A , B ) result ( C ) implicit none real ( DP ), dimension (:,:), intent ( in ) :: A , B real ( DP ), dimension (:,:), allocatable :: C integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( C )) deallocate ( C ) allocate ( C , mold = A ) do concurrent ( i = 1 : n ) C ( 1 , i ) = A ( 2 , i ) * B ( 3 , i ) - A ( 3 , i ) * B ( 2 , i ) C ( 2 , i ) = A ( 3 , i ) * B ( 1 , i ) - A ( 1 , i ) * B ( 3 , i ) C ( 3 , i ) = A ( 1 , i ) * B ( 2 , i ) - A ( 2 , i ) * B ( 1 , i ) end do return end function operator_cross_el_dp module pure function operator_cross_el_qp ( A , B ) result ( C ) implicit none real ( QP ), dimension (:,:), intent ( in ) :: A , B real ( QP ), dimension (:,:), allocatable :: C integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( C )) deallocate ( C ) allocate ( C , mold = A ) do concurrent ( i = 1 : n ) C ( 1 , i ) = A ( 2 , i ) * B ( 3 , i ) - A ( 3 , i ) * B ( 2 , i ) C ( 2 , i ) = A ( 3 , i ) * B ( 1 , i ) - A ( 1 , i ) * B ( 3 , i ) C ( 3 , i ) = A ( 1 , i ) * B ( 2 , i ) - A ( 2 , i ) * B ( 1 , i ) end do return end function operator_cross_el_qp module pure function operator_cross_el_i1b ( A , B ) result ( C ) implicit none integer ( I1B ), dimension (:,:), intent ( in ) :: A , B integer ( I1B ), dimension (:,:), allocatable :: C integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( C )) deallocate ( C ) allocate ( C , mold = A ) do concurrent ( i = 1 : n ) C ( 1 , i ) = A ( 2 , i ) * B ( 3 , i ) - A ( 3 , i ) * B ( 2 , i ) C ( 2 , i ) = A ( 3 , i ) * B ( 1 , i ) - A ( 1 , i ) * B ( 3 , i ) C ( 3 , i ) = A ( 1 , i ) * B ( 2 , i ) - A ( 2 , i ) * B ( 1 , i ) end do return end function operator_cross_el_i1b module pure function operator_cross_el_i2b ( A , B ) result ( C ) implicit none integer ( I2B ), dimension (:,:), intent ( in ) :: A , B integer ( I2B ), dimension (:,:), allocatable :: C integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( C )) deallocate ( C ) allocate ( C , mold = A ) do concurrent ( i = 1 : n ) C ( 1 , i ) = A ( 2 , i ) * B ( 3 , i ) - A ( 3 , i ) * B ( 2 , i ) C ( 2 , i ) = A ( 3 , i ) * B ( 1 , i ) - A ( 1 , i ) * B ( 3 , i ) C ( 3 , i ) = A ( 1 , i ) * B ( 2 , i ) - A ( 2 , i ) * B ( 1 , i ) end do return end function operator_cross_el_i2b module pure function operator_cross_el_i4b ( A , B ) result ( C ) implicit none integer ( I4B ), dimension (:,:), intent ( in ) :: A , B integer ( I4B ), dimension (:,:), allocatable :: C integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( C )) deallocate ( C ) allocate ( C , mold = A ) do concurrent ( i = 1 : n ) C ( 1 , i ) = A ( 2 , i ) * B ( 3 , i ) - A ( 3 , i ) * B ( 2 , i ) C ( 2 , i ) = A ( 3 , i ) * B ( 1 , i ) - A ( 1 , i ) * B ( 3 , i ) C ( 3 , i ) = A ( 1 , i ) * B ( 2 , i ) - A ( 2 , i ) * B ( 1 , i ) end do return end function operator_cross_el_i4b module pure function operator_cross_el_i8b ( A , B ) result ( C ) implicit none integer ( I8B ), dimension (:,:), intent ( in ) :: A , B integer ( I8B ), dimension (:,:), allocatable :: C integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( C )) deallocate ( C ) allocate ( C , mold = A ) do concurrent ( i = 1 : n ) C ( 1 , i ) = A ( 2 , i ) * B ( 3 , i ) - A ( 3 , i ) * B ( 2 , i ) C ( 2 , i ) = A ( 3 , i ) * B ( 1 , i ) - A ( 1 , i ) * B ( 3 , i ) C ( 3 , i ) = A ( 1 , i ) * B ( 2 , i ) - A ( 2 , i ) * B ( 1 , i ) end do return end function operator_cross_el_i8b end submodule s_operator_cross","tags":"","loc":"sourcefile/operator_cross.f90.html"},{"title":"operator_mag.f90 – swiftest","text":"This file depends on sourcefile~~operator_mag.f90~~EfferentGraph sourcefile~operator_mag.f90 operator_mag.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~operator_mag.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_operator_mag Source Code operator_mag.f90 Source Code submodule ( swiftest_operators ) s_operator_mag !! author: David A. Minton !! !! Contains implementations for the .mag. operator for all defined real types !! Single vector implementations:  B   = .mag. A(1:3) !! Vector list implementations:   B(:) = .mag. A(1:3, :) contains module pure function operator_mag_sp ( A ) result ( B ) implicit none real ( SP ), dimension (:), intent ( in ) :: A real ( SP ) :: B B = norm2 ( A (:)) return end function operator_mag_sp module pure function operator_mag_dp ( A ) result ( B ) implicit none real ( DP ), dimension (:), intent ( in ) :: A real ( DP ) :: B B = norm2 ( A (:)) return end function operator_mag_dp module pure function operator_mag_el_sp ( A ) result ( B ) implicit none real ( SP ), dimension (:,:), intent ( in ) :: A real ( SP ), dimension (:), allocatable :: B integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( B )) deallocate ( B ) allocate ( B ( n )) do concurrent ( i = 1 : n ) B ( i ) = norm2 ( A (:, i )) end do return end function operator_mag_el_sp module pure function operator_mag_el_dp ( A ) result ( B ) implicit none real ( DP ), dimension (:,:), intent ( in ) :: A real ( DP ), dimension (:), allocatable :: B integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( B )) deallocate ( B ) allocate ( B ( n )) do concurrent ( i = 1 : n ) B ( i ) = norm2 ( A (:, i )) end do return end function operator_mag_el_dp module pure function operator_mag_el_qp ( A ) result ( B ) implicit none real ( QP ), dimension (:,:), intent ( in ) :: A real ( QP ), dimension (:), allocatable :: B integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( B )) deallocate ( B ) allocate ( B ( n )) do concurrent ( i = 1 : n ) B ( i ) = norm2 ( A (:, i )) end do return end function operator_mag_el_qp end submodule s_operator_mag","tags":"","loc":"sourcefile/operator_mag.f90.html"},{"title":"util_solve.f90 – swiftest","text":"This file depends on sourcefile~~util_solve.f90~~EfferentGraph sourcefile~util_solve.f90 util_solve.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_solve.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_solve Source Code util_solve.f90 Source Code submodule ( swiftest_classes ) s_util_solve use swiftest contains module function util_solve_linear_system_d ( A , b , n , lerr ) result ( x ) !! Author: David A. Minton !! !! Solves the linear equation of the form A*x = b for x. !!   A is an (n,n) arrays !!   x and b are (n) arrays !! Uses Gaussian elimination, so will have issues if system is ill-conditioned. !! Uses quad precision intermidiate values, so works best on small arrays. use , intrinsic :: ieee_exceptions implicit none ! Arguments integer ( I4B ), intent ( in ) :: n real ( DP ), dimension (:,:), intent ( in ) :: A real ( DP ), dimension (:), intent ( in ) :: b logical , intent ( out ) :: lerr ! Result real ( DP ), dimension ( n ) :: x ! Internals real ( QP ), dimension (:), allocatable :: qx type ( ieee_status_type ) :: original_fpe_status logical , dimension (:), allocatable :: fpe_flag call ieee_get_status ( original_fpe_status ) ! Save the original floating point exception status call ieee_set_flag ( ieee_all , . false .) ! Set all flags to quiet allocate ( fpe_flag ( size ( ieee_usual ))) qx = solve_wbs ( ge_wpp ( real ( A , kind = QP ), real ( b , kind = QP ))) call ieee_get_flag ( ieee_usual , fpe_flag ) lerr = any ( fpe_flag ) if ( lerr . or . ( any ( abs ( qx ) > huge ( x ))) . or . ( any ( abs ( qx ) < tiny ( x )))) then x = 0.0_DP else x = real ( qx , kind = DP ) end if call ieee_set_status ( original_fpe_status ) return end function util_solve_linear_system_d module function util_solve_linear_system_q ( A , b , n , lerr ) result ( x ) !! Author: David A. Minton !! !! Solves the linear equation of the form A*x = b for x. !!   A is an (n,n) arrays !!   x and b are (n) arrays !! Uses Gaussian elimination, so will have issues if system is ill-conditioned. !! Uses quad precision intermidiate values, so works best on small arrays. use , intrinsic :: ieee_exceptions implicit none ! Arguments integer ( I4B ), intent ( in ) :: n real ( QP ), dimension (:,:), intent ( in ) :: A real ( QP ), dimension (:), intent ( in ) :: b logical , intent ( out ) :: lerr ! Result real ( QP ), dimension ( n ) :: x ! Internals type ( ieee_status_type ) :: original_fpe_status logical , dimension (:), allocatable :: fpe_flag call ieee_get_status ( original_fpe_status ) ! Save the original floating point exception status call ieee_set_flag ( ieee_all , . false .) ! Set all flags to quiet allocate ( fpe_flag ( size ( ieee_usual ))) x = solve_wbs ( ge_wpp ( A , b )) call ieee_get_flag ( ieee_usual , fpe_flag ) lerr = any ( fpe_flag ) if ( lerr ) x = 0.0_DP call ieee_set_status ( original_fpe_status ) return end function util_solve_linear_system_q function solve_wbs ( u ) result ( x ) ! solve with backward substitution !! Based on code available on Rosetta Code: https://rosettacode.org/wiki/Gaussian_elimination#Fortran use , intrinsic :: ieee_exceptions use swiftest implicit none ! Arguments real ( QP ), intent ( in ), dimension (:,:), allocatable :: u ! Result real ( QP ), dimension (:), allocatable :: x ! Internals integer ( I4B ) :: i , n n = size ( u , 1 ) if ( allocated ( x )) deallocate ( x ) if (. not . allocated ( x )) allocate ( x ( n )) if ( any ( abs ( u ) < tiny ( 1._DP )) . or . any ( abs ( u ) > huge ( 1._DP ))) then x (:) = 0._DP return end if call ieee_set_halting_mode ( ieee_divide_by_zero , . false .) do i = n , 1 , - 1 x ( i ) = ( u ( i , n + 1 ) - sum ( u ( i , i + 1 : n ) * x ( i + 1 : n ))) / u ( i , i ) end do return end function solve_wbs function ge_wpp ( A , b ) result ( u ) ! gaussian eliminate with partial pivoting !! Solve  Ax=b  using Gaussian elimination then backwards substitution. !!   A being an n by n matrix. !!   x and b are n by 1 vectors. !! Based on code available on Rosetta Code: https://rosettacode.org/wiki/Gaussian_elimination#Fortran use , intrinsic :: ieee_exceptions use swiftest implicit none ! Arguments real ( QP ), dimension (:,:), intent ( in ) :: A real ( QP ), dimension (:), intent ( in ) :: b ! Result real ( QP ), dimension (:,:), allocatable :: u ! Internals integer ( I4B ) :: i , j , n , p real ( QP ) :: upi n = size ( a , 1 ) allocate ( u ( n , ( n + 1 ))) u = reshape ([ A , b ], [ n , n + 1 ]) call ieee_set_halting_mode ( ieee_divide_by_zero , . false .) do j = 1 , n p = maxloc ( abs ( u ( j : n , j )), 1 ) + j - 1 ! maxloc returns indices between (1, n - j + 1) if ( p /= j ) u ([ p , j ], j ) = u ([ j , p ], j ) u ( j + 1 :, j ) = u ( j + 1 :, j ) / u ( j , j ) do i = j + 1 , n + 1 upi = u ( p , i ) if ( p /= j ) u ([ p , j ], i ) = u ([ j , p ], i ) u ( j + 1 : n , i ) = u ( j + 1 : n , i ) - upi * u ( j + 1 : n , j ) end do end do return end function ge_wpp module function util_solve_rkf45 ( f , y0in , t1 , dt0 , tol ) result ( y1 ) !! author: David A. Minton !! !! Implements the 4th order Runge-Kutta-Fehlberg ODE solver for initial value problems of the form f=dy/dt, y0 = y(t=0), solving for y1 = y(t=t1). Uses a 5th order adaptive step size control. !! Uses a lambda function object as defined in the lambda_function module implicit none ! Arguments class ( lambda_obj ), intent ( inout ) :: f !! lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set real ( DP ), dimension (:), intent ( in ) :: y0in !! Initial value at t=0 real ( DP ), intent ( in ) :: t1 !! Final time real ( DP ), intent ( in ) :: dt0 !! Initial step size guess real ( DP ), intent ( in ) :: tol !! Tolerance on solution ! Result real ( DP ), dimension (:), allocatable :: y1 !! Final result ! Internals integer ( I4B ), parameter :: MAXREDUX = 1000 !! Maximum number of times step size can be reduced real ( DP ), parameter :: DTFAC = 0.95_DP !! Step size reduction safety factor (Value just under 1.0 to prevent adaptive step size control from discarding steps too aggressively) integer ( I4B ), parameter :: RKS = 6 !! Number of RK stages real ( DP ), dimension ( RKS , RKS - 1 ), parameter :: rkf45_btab = reshape ( & !! Butcher tableau for Runge-Kutta-Fehlberg method ( / 1. / 4. , 1. / 4. , 0. , 0. , 0. , 0. ,& 3. / 8. , 3. / 3 2. , 9. / 3 2. , 0. , 0. , 0. ,& 1 2. / 1 3. , 193 2. / 219 7. , - 720 0. / 219 7. , 729 6. / 219 7. , 0. , 0. ,& 1. , 43 9. / 21 6. , - 8. , 368 0. / 51 3. , - 84 5. / 410 4. , 0. ,& 1. / 2. , - 8. / 2 7. , 2. , - 354 4. / 256 5. , 185 9. / 410 4. , - 1 1. / 4 0. / ), shape ( rkf45_btab )) real ( DP ), dimension ( RKS ), parameter :: rkf4_coeff = ( / 2 5. / 21 6. , 0. , 140 8. / 256 5. , 219 7. / 410 4. , - 1. / 5. , 0. / ) real ( DP ), dimension ( RKS ), parameter :: rkf5_coeff = ( / 1 6. / 13 5. , 0. , 665 6. / 1282 5. , 2856 1. / 5643 0. , - 9. / 5 0. , 2. / 5 5. / ) real ( DP ), dimension (:, :), allocatable :: k !! Runge-Kutta coefficient vector real ( DP ), dimension (:), allocatable :: ynorm !! Normalized y value used for adaptive step size control real ( DP ), dimension (:), allocatable :: y0 !! Value of y at the beginning of each substep integer ( I4B ) :: Nvar !! Number of variables in problem integer ( I4B ) :: rkn !! Runge-Kutta loop index real ( DP ) :: t , x1 , dt , trem !! Current time, step size and total time remaining real ( DP ) :: s , yerr , yscale !!  Step size reduction factor, error in dependent variable, and error scale factor integer ( I4B ) :: i , n allocate ( y0 , source = y0in ) allocate ( y1 , mold = y0 ) allocate ( ynorm , mold = y0 ) Nvar = size ( y0 ) allocate ( k ( Nvar , RKS )) dt = dt0 trem = t1 t = 0._DP do yscale = norm2 ( y0 (:)) do i = 1 , MAXREDUX select type ( f ) class is ( lambda_obj_tvar ) do rkn = 1 , RKS y1 (:) = y0 (:) + matmul ( k (:, 1 : rkn - 1 ), rkf45_btab ( 2 : rkn , rkn - 1 )) if ( rkn == 1 ) then x1 = t else x1 = t + rkf45_btab ( 1 , rkn - 1 ) end if k (:, rkn ) = dt * f % evalt ( y1 (:), t ) end do class is ( lambda_obj ) do rkn = 1 , RKS y1 (:) = y0 (:) + matmul ( k (:, 1 : rkn - 1 ), rkf45_btab ( 2 : rkn , rkn - 1 )) k (:, rkn ) = dt * f % eval ( y1 (:)) end do end select ! Now determine if the step size needs adjusting ynorm (:) = matmul ( k (:,:), ( rkf5_coeff (:) - rkf4_coeff (:))) / yscale yerr = norm2 ( ynorm (:)) s = ( tol / ( 2 * yerr )) ** ( 0.25_DP ) dt = min ( s * DTFAC * dt , trem ) ! Alter step size either up or down, but never bigger than the remaining time if ( s >= 1.0_DP ) exit ! Good step! if ( i == MAXREDUX ) then write ( * , * ) \"Something has gone wrong in util_solve_rkf45!! Step size reduction has gone too far this time!\" call util_exit ( FAILURE ) end if end do ! Compute new value then step ahead in time y1 (:) = y0 (:) + matmul ( k (:, :), rkf4_coeff (:)) trem = trem - dt t = t + dt if ( trem <= 0._DP ) exit y0 (:) = y1 (:) end do return end function util_solve_rkf45 end submodule s_util_solve","tags":"","loc":"sourcefile/util_solve.f90.html"},{"title":"util_set.f90 – swiftest","text":"This file depends on sourcefile~~util_set.f90~~EfferentGraph sourcefile~util_set.f90 util_set.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_set.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_set Source Code util_set.f90 Source Code submodule ( swiftest_classes ) s_util_set !! author: David A. Minton !! This submodule contains a collection of setter method implementations use swiftest contains module subroutine util_set_beg_end_pl ( self , xbeg , xend , vbeg ) !! author: David A. Minton !! !! Sets one or more of the values of xbeg, xend, and vbeg implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object real ( DP ), dimension (:,:), intent ( in ), optional :: xbeg , xend , vbeg if ( present ( xbeg )) then if ( allocated ( self % xbeg )) deallocate ( self % xbeg ) allocate ( self % xbeg , source = xbeg ) end if if ( present ( xend )) then if ( allocated ( self % xend )) deallocate ( self % xend ) allocate ( self % xend , source = xend ) end if if ( present ( vbeg )) then if ( allocated ( self % vbeg )) deallocate ( self % vbeg ) allocate ( self % vbeg , source = vbeg ) end if return end subroutine util_set_beg_end_pl module subroutine util_set_ir3h ( self ) !! author: David A. Minton !! !! Sets the inverse heliocentric radius term (1/rh**3) for all bodies in a structure implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest generic body object ! Internals integer ( I4B ) :: i real ( DP ) :: r2 , irh if ( self % nbody > 0 ) then do i = 1 , self % nbody r2 = dot_product ( self % xh (:, i ), self % xh (:, i )) irh = 1.0_DP / sqrt ( r2 ) self % ir3h ( i ) = irh / r2 end do end if return end subroutine util_set_ir3h module subroutine util_set_msys ( self ) !! author: David A. Minton !! !! Sets the value of msys and the vector mass quantities based on the total mass of the system implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nobdy system object self % Gmtot = self % cb % Gmass + sum ( self % pl % Gmass ( 1 : self % pl % nbody ), self % pl % status ( 1 : self % pl % nbody ) /= INACTIVE ) return end subroutine util_set_msys module subroutine util_set_mu_pl ( self , cb ) !! author: David A. Minton !! !! Computes G * (M + m) for each massive body implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object if ( self % nbody > 0 ) self % mu (:) = cb % Gmass + self % Gmass (:) return end subroutine util_set_mu_pl module subroutine util_set_mu_tp ( self , cb ) !! author: David A. Minton !! !! Converts certain scalar values to arrays so that they can be used in elemental functions implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object if ( self % nbody > 0 ) self % mu (:) = cb % Gmass return end subroutine util_set_mu_tp module subroutine util_set_rhill ( self , cb ) !! author: David A. Minton !! !! Sets the value of the Hill's radius implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object if ( self % nbody > 0 ) then call self % xv2el ( cb ) self % rhill (:) = self % a (:) * ( self % Gmass (:) / cb % Gmass / 3 ) ** THIRD end if return end subroutine util_set_rhill module subroutine util_set_rhill_approximate ( self , cb ) !! author: David A. Minton !! !! Sets the approximate value of the Hill's radius using the heliocentric radius instead of computing the semimajor axis implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object ! Internals real ( DP ), dimension (:), allocatable :: rh if ( self % nbody > 0 ) then rh (:) = . mag . self % xh (:,:) self % rhill (:) = rh (:) * ( self % Gmass (:) / cb % Gmass / 3 ) ** THIRD end if return end subroutine util_set_rhill_approximate end submodule s_util_set","tags":"","loc":"sourcefile/util_set.f90.html"},{"title":"util_peri.f90 – swiftest","text":"This file depends on sourcefile~~util_peri.f90~~EfferentGraph sourcefile~util_peri.f90 util_peri.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_peri.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_peri Source Code util_peri.f90 Source Code submodule ( swiftest_classes ) s_util_peri use swiftest contains module subroutine util_peri_tp ( self , system , param ) !! author: David A. Minton !! !! Determine system pericenter passages for test particles !! Note:  If the coordinate system used is barycentric, then this routine assumes that the barycentric coordinates in the !!        test particle structures are up-to-date and are not recomputed !! !! Adapted from David E. Kaufmann's Swifter routine: util_peri.f90 !! Adapted from Hal Levison's Swift routine util_peri.f implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ) :: e real ( DP ), dimension (:), allocatable :: vdotr associate ( tp => self , ntp => self % nbody ) allocate ( vdotr ( ntp )) if ( param % qmin_coord == \"HELIO\" ) then do i = 1 , ntp vdotr ( i ) = dot_product ( tp % xh (:, i ), tp % vh (:, i )) if ( tp % isperi ( i ) == - 1 ) then if ( vdotr ( i ) >= 0.0_DP ) then tp % isperi ( i ) = 0 call orbel_xv2aeq ( tp % mu ( i ), tp % xh (:, i ), tp % vh (:, i ), tp % atp ( i ), e , tp % peri ( i )) end if else if ( vdotr ( i ) > 0.0_DP ) then tp % isperi ( i ) = 1 else tp % isperi ( i ) = - 1 end if end if end do else do i = 1 , ntp vdotr ( i ) = dot_product ( tp % xb (:, i ), tp % vb (:, i )) if ( tp % isperi ( i ) == - 1 ) then if ( vdotr ( i ) >= 0.0_DP ) then tp % isperi ( i ) = 0 call orbel_xv2aeq ( system % Gmtot , tp % xb (:, i ), tp % vb (:, i ), tp % atp ( i ), e , tp % peri ( i )) end if else if ( vdotr ( i ) > 0.0_DP ) then tp % isperi ( i ) = 1 else tp % isperi ( i ) = - 1 end if end if end do end if end associate return end subroutine util_peri_tp end submodule s_util_peri","tags":"","loc":"sourcefile/util_peri.f90.html"},{"title":"util_coord.f90 – swiftest","text":"This file depends on sourcefile~~util_coord.f90~~EfferentGraph sourcefile~util_coord.f90 util_coord.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_coord.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_coord Source Code util_coord.f90 Source Code submodule ( swiftest_classes ) s_util_coord use swiftest contains module subroutine util_coord_h2b_pl ( self , cb ) !! author: David A. Minton !! !! Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) !! !! Adapted from David E. Kaufmann's Swifter routine coord_h2b.f90 !! Adapted from Hal Levison's Swift routine coord_h2b.f implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object ! Internals integer ( I4B ) :: i real ( DP ) :: Gmtot real ( DP ), dimension ( NDIM ) :: xtmp , vtmp if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) Gmtot = cb % Gmass xtmp (:) = 0.0_DP vtmp (:) = 0.0_DP do i = 1 , npl Gmtot = Gmtot + pl % Gmass ( i ) xtmp (:) = xtmp (:) + pl % Gmass ( i ) * pl % xh (:, i ) vtmp (:) = vtmp (:) + pl % Gmass ( i ) * pl % vh (:, i ) end do cb % xb (:) = - xtmp (:) / Gmtot cb % vb (:) = - vtmp (:) / Gmtot do i = 1 , npl pl % xb (:, i ) = pl % xh (:, i ) + cb % xb (:) pl % vb (:, i ) = pl % vh (:, i ) + cb % vb (:) end do end associate return end subroutine util_coord_h2b_pl module subroutine util_coord_h2b_tp ( self , cb ) !! author: David A. Minton !! !! Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) !! !! Adapted from David E. Kaufmann's Swifter routine coord_h2b_tp.f90 !! Adapted from Hal Levison's Swift routine coord_h2b_tp.f implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_cb ), intent ( in ) :: cb !! Swiftest central body object if ( self % nbody == 0 ) return associate ( ntp => self % nbody , xbcb => cb % xb , vbcb => cb % vb , status => self % status , & xb => self % xb , xh => self % xh , vb => self % vb , vh => self % vh ) where ( status ( 1 : ntp ) /= INACTIVE ) xb ( 1 , 1 : ntp ) = xh ( 1 , 1 : ntp ) + xbcb ( 1 ) xb ( 2 , 1 : ntp ) = xh ( 2 , 1 : ntp ) + xbcb ( 2 ) xb ( 3 , 1 : ntp ) = xh ( 3 , 1 : ntp ) + xbcb ( 3 ) vb ( 1 , 1 : ntp ) = vh ( 1 , 1 : ntp ) + vbcb ( 1 ) vb ( 2 , 1 : ntp ) = vh ( 2 , 1 : ntp ) + vbcb ( 2 ) vb ( 3 , 1 : ntp ) = vh ( 3 , 1 : ntp ) + vbcb ( 3 ) end where end associate return end subroutine util_coord_h2b_tp module subroutine util_coord_b2h_pl ( self , cb ) !! author: David A. Minton !! !! Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) !! !! Adapted from David E. Kaufmann's Swifter routine coord_b2h.f90 !! Adapted from Hal Levison's Swift routine coord_b2h.f implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( npl => self % nbody , xbcb => cb % xb , vbcb => cb % vb , xb => self % xb , xh => self % xh , & vb => self % vb , vh => self % vh ) do i = 1 , NDIM xh ( i , 1 : npl ) = xb ( i , 1 : npl ) - xbcb ( i ) vh ( i , 1 : npl ) = vb ( i , 1 : npl ) - vbcb ( i ) end do end associate return end subroutine util_coord_b2h_pl module subroutine util_coord_b2h_tp ( self , cb ) !! author: David A. Minton !! !! Convert test particles from barycentric to heliocentric coordinates (position and velocity) !! !! Adapted from David E. Kaufmann's Swifter routine coord_b2h_tp.f90 !! Adapted from Hal Levison's Swift routine coord_b2h_tp.f implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( in ) :: cb !! Swiftest central body object if ( self % nbody == 0 ) return associate ( ntp => self % nbody , xbcb => cb % xb , vbcb => cb % vb , xb => self % xb , xh => self % xh , & vb => self % vb , vh => self % vh , status => self % status ) where ( status ( 1 : ntp ) /= INACTIVE ) xh ( 1 , 1 : ntp ) = xb ( 1 , 1 : ntp ) - xbcb ( 1 ) xh ( 2 , 1 : ntp ) = xb ( 2 , 1 : ntp ) - xbcb ( 2 ) xh ( 3 , 1 : ntp ) = xb ( 3 , 1 : ntp ) - xbcb ( 3 ) vh ( 1 , 1 : ntp ) = vb ( 1 , 1 : ntp ) - vbcb ( 1 ) vh ( 2 , 1 : ntp ) = vb ( 2 , 1 : ntp ) - vbcb ( 2 ) vh ( 3 , 1 : ntp ) = vb ( 3 , 1 : ntp ) - vbcb ( 3 ) end where end associate return end subroutine util_coord_b2h_tp end submodule s_util_coord","tags":"","loc":"sourcefile/util_coord.f90.html"},{"title":"util_version.f90 – swiftest","text":"This file depends on sourcefile~~util_version.f90~~EfferentGraph sourcefile~util_version.f90 util_version.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_version.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_version Source Code util_version.f90 Source Code submodule ( swiftest_classes ) s_util_version use swiftest contains module subroutine util_version () !! author: David A. Minton !! !! Print program version information to terminale !! !! Adapted from David E. Kaufmann's Swifter routine: util_version.f90 implicit none write ( * , 200 ) VERSION_NUMBER 200 format ( / , \"************* Swiftest: Version \" , f3 . 1 , \" *************\" , // , & \"Based off of Swifter:\" , // , & \"Authors:\" , // , & \"    The Purdue University Swiftest Development team \" , / , & \"    Lead by David A. Minton \" , / , & \"    Single loop blocking by Jacob R. Elliott\" , / , & \"    Fragmentation by Carlisle A. Wishard and\" , // , & \"    Jennifer L. L. Poutplin                 \" , // , & \"Please address comments and questions to:\" , // , & \"    David A. Minton\" , / , & \"    Department Earth, Atmospheric, & Planetary Sciences \" , / , & \"    Purdue University\" , / , & \"    550 Stadium Mall Drive\" , / , & \"    West Lafayette, Indiana 47907\" , / , & \"    765-250-8034 \" , / , & \"    daminton@purdue.edu\" , / , & \"Special thanks to Hal Levison and Martin Duncan for the original\" , / ,& \"SWIFTER and SWIFT codes that made this possible.\" , // , & \"************************************************\" , / ) 100 FORMAT ( / , \"************* SWIFTER: Version \" , F3 . 1 , \" *************\" , // , & \"Authors:\" , // , & \"    Martin Duncan: Queen's University\" , / , & \"    Hal Levison  : Southwest Research Institute\" , // , & \"Please address comments and questions to:\" , // , & \"    Hal Levison or David Kaufmann\" , / , & \"    Department of Space Studies\" , / , & \"    Southwest Research Institute\" , / , & \"    1050 Walnut Street, Suite 400\" , / , & \"    Boulder, Colorado  80302\" , / , & \"    303-546-0290 (HFL), 720-240-0119 (DEK)\" , / , & \"    303-546-9687 (fax)\" , / , & \"    hal@gort.boulder.swri.edu (HFL)\" , / , & \"    kaufmann@boulder.swri.edu (DEK)\" , // , & \"************************************************\" , / ) return end subroutine util_version end submodule s_util_version","tags":"","loc":"sourcefile/util_version.f90.html"},{"title":"util_sort.f90 – swiftest","text":"This file depends on sourcefile~~util_sort.f90~~EfferentGraph sourcefile~util_sort.f90 util_sort.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_sort.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_sort Source Code util_sort.f90 Source Code submodule ( swiftest_classes ) s_util_sort use swiftest contains module subroutine util_sort_body ( self , sortby , ascending ) !! author: David A. Minton !! !! Sort a Swiftest body structure in-place. !! sortby is a string indicating which array component to sort. implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order ! Internals integer ( I4B ), dimension ( self % nbody ) :: ind integer ( I4B ) :: direction if ( ascending ) then direction = 1 else direction = - 1 end if associate ( body => self , n => self % nbody ) select case ( sortby ) case ( \"id\" ) call util_sort ( direction * body % id ( 1 : n ), ind ( 1 : n )) case ( \"status\" ) call util_sort ( direction * body % status ( 1 : n ), ind ( 1 : n )) case ( \"ir3h\" ) call util_sort ( direction * body % ir3h ( 1 : n ), ind ( 1 : n )) case ( \"a\" ) call util_sort ( direction * body % a ( 1 : n ), ind ( 1 : n )) case ( \"e\" ) call util_sort ( direction * body % e ( 1 : n ), ind ( 1 : n )) case ( \"inc\" ) call util_sort ( direction * body % inc ( 1 : n ), ind ( 1 : n )) case ( \"capom\" ) call util_sort ( direction * body % capom ( 1 : n ), ind ( 1 : n )) case ( \"mu\" ) call util_sort ( direction * body % mu ( 1 : n ), ind ( 1 : n )) case ( \"lfirst\" , \"nbody\" , \"ldiscard\" , \"xh\" , \"vh\" , \"xb\" , \"vb\" , \"ah\" , \"aobl\" , \"atide\" , \"agr\" ) write ( * , * ) 'Cannot sort by ' // trim ( adjustl ( sortby )) // '. Component not sortable!' case default write ( * , * ) 'Cannot sort by ' // trim ( adjustl ( sortby )) // '. Component not found!' return end select call body % rearrange ( ind ) end associate return end subroutine util_sort_body module subroutine util_sort_pl ( self , sortby , ascending ) !! author: David A. Minton !! !! Sort a Swiftest massive body object in-place. !! sortby is a string indicating which array component to sort. implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order ! Internals integer ( I4B ), dimension ( self % nbody ) :: ind integer ( I4B ) :: direction if ( ascending ) then direction = 1 else direction = - 1 end if associate ( pl => self , npl => self % nbody ) select case ( sortby ) case ( \"Gmass\" , \"mass\" ) call util_sort ( direction * pl % Gmass ( 1 : npl ), ind ( 1 : npl )) case ( \"rhill\" ) call util_sort ( direction * pl % rhill ( 1 : npl ), ind ( 1 : npl )) case ( \"radius\" ) call util_sort ( direction * pl % radius ( 1 : npl ), ind ( 1 : npl )) case ( \"density\" ) call util_sort ( direction * pl % density ( 1 : npl ), ind ( 1 : npl )) case ( \"k2\" ) call util_sort ( direction * pl % k2 ( 1 : npl ), ind ( 1 : npl )) case ( \"Q\" ) call util_sort ( direction * pl % Q ( 1 : npl ), ind ( 1 : npl )) case ( \"tlag\" ) call util_sort ( direction * pl % tlag ( 1 : npl ), ind ( 1 : npl )) case ( \"xbeg\" , \"xend\" , \"vbeg\" , \"Ip\" , \"rot\" , \"k_plpl\" , \"nplpl\" ) write ( * , * ) 'Cannot sort by ' // trim ( adjustl ( sortby )) // '. Component not sortable!' case default ! Look for components in the parent class call util_sort_body ( pl , sortby , ascending ) return end select call pl % rearrange ( ind ) end associate return end subroutine util_sort_pl module subroutine util_sort_tp ( self , sortby , ascending ) !! author: David A. Minton !! !! Sort a Swiftest test particle object  in-place. !! sortby is a string indicating which array component to sort. implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order ! Internals integer ( I4B ), dimension ( self % nbody ) :: ind integer ( I4B ) :: direction if ( ascending ) then direction = 1 else direction = - 1 end if associate ( tp => self , ntp => self % nbody ) select case ( sortby ) case ( \"peri\" ) call util_sort ( direction * tp % peri ( 1 : ntp ), ind ( 1 : ntp )) case ( \"atp\" ) call util_sort ( direction * tp % atp ( 1 : ntp ), ind ( 1 : ntp )) case ( \"isperi\" ) write ( * , * ) 'Cannot sort by ' // trim ( adjustl ( sortby )) // '. Component not sortable!' case default ! Look for components in the parent class call util_sort_body ( tp , sortby , ascending ) return end select call tp % rearrange ( ind ) end associate return end subroutine util_sort_tp module subroutine util_sort_rearrange_body ( self , ind ) !! author: David A. Minton !! !! Rearrange Swiftest body structure in-place from an index list. !! This is a helper utility used to make polymorphic sorting work on Swiftest structures. implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) ! Internals class ( swiftest_body ), allocatable :: body_sorted !! Temporary holder for sorted body associate ( n => self % nbody ) allocate ( body_sorted , source = self ) if ( allocated ( self % id )) self % id ( 1 : n ) = body_sorted % id ( ind ( 1 : n )) if ( allocated ( self % name )) self % name ( 1 : n ) = body_sorted % name ( ind ( 1 : n )) if ( allocated ( self % status )) self % status ( 1 : n ) = body_sorted % status ( ind ( 1 : n )) if ( allocated ( self % ldiscard )) self % ldiscard ( 1 : n ) = body_sorted % ldiscard ( ind ( 1 : n )) if ( allocated ( self % xh )) self % xh (:, 1 : n ) = body_sorted % xh (:, ind ( 1 : n )) if ( allocated ( self % vh )) self % vh (:, 1 : n ) = body_sorted % vh (:, ind ( 1 : n )) if ( allocated ( self % xb )) self % xb (:, 1 : n ) = body_sorted % xb (:, ind ( 1 : n )) if ( allocated ( self % vb )) self % vb (:, 1 : n ) = body_sorted % vb (:, ind ( 1 : n )) if ( allocated ( self % ah )) self % ah (:, 1 : n ) = body_sorted % ah (:, ind ( 1 : n )) if ( allocated ( self % ir3h )) self % ir3h ( 1 : n ) = body_sorted % ir3h ( ind ( 1 : n )) if ( allocated ( self % mu )) self % mu ( 1 : n ) = body_sorted % mu ( ind ( 1 : n )) if ( allocated ( self % lmask )) self % lmask ( 1 : n ) = body_sorted % lmask ( ind ( 1 : n )) if ( allocated ( self % a )) self % a ( 1 : n ) = body_sorted % a ( ind ( 1 : n )) if ( allocated ( self % e )) self % e ( 1 : n ) = body_sorted % e ( ind ( 1 : n )) if ( allocated ( self % inc )) self % inc ( 1 : n ) = body_sorted % inc ( ind ( 1 : n )) if ( allocated ( self % capom )) self % capom ( 1 : n ) = body_sorted % capom ( ind ( 1 : n )) if ( allocated ( self % omega )) self % omega ( 1 : n ) = body_sorted % omega ( ind ( 1 : n )) if ( allocated ( self % capm )) self % capm ( 1 : n ) = body_sorted % capm ( ind ( 1 : n )) if ( allocated ( self % aobl )) self % aobl (:, 1 : n ) = body_sorted % aobl (:, ind ( 1 : n )) if ( allocated ( self % atide )) self % atide (:, 1 : n ) = body_sorted % atide (:, ind ( 1 : n )) if ( allocated ( self % agr )) self % agr (:, 1 : n ) = body_sorted % agr (:, ind ( 1 : n )) deallocate ( body_sorted ) end associate return end subroutine util_sort_rearrange_body module subroutine util_sort_rearrange_pl ( self , ind ) !! author: David A. Minton !! !! Rearrange Swiftest massive body structure in-place from an index list. !! This is a helper utility used to make polymorphic sorting work on Swiftest structures. implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) ! Internals class ( swiftest_pl ), allocatable :: pl_sorted !! Temporary holder for sorted body associate ( pl => self , npl => self % nbody ) call util_sort_rearrange_body ( pl , ind ) allocate ( pl_sorted , source = self ) if ( allocated ( pl % mass )) pl % mass ( 1 : npl ) = pl_sorted % mass ( ind ( 1 : npl )) if ( allocated ( pl % Gmass )) pl % Gmass ( 1 : npl ) = pl_sorted % Gmass ( ind ( 1 : npl )) if ( allocated ( pl % rhill )) pl % rhill ( 1 : npl ) = pl_sorted % rhill ( ind ( 1 : npl )) if ( allocated ( pl % xbeg )) pl % xbeg (:, 1 : npl ) = pl_sorted % xbeg (:, ind ( 1 : npl )) if ( allocated ( pl % xend )) pl % xend (:, 1 : npl ) = pl_sorted % xend (:, ind ( 1 : npl )) if ( allocated ( pl % vbeg )) pl % vbeg (:, 1 : npl ) = pl_sorted % vbeg (:, ind ( 1 : npl )) if ( allocated ( pl % radius )) pl % radius ( 1 : npl ) = pl_sorted % radius ( ind ( 1 : npl )) if ( allocated ( pl % density )) pl % density ( 1 : npl ) = pl_sorted % density ( ind ( 1 : npl )) if ( allocated ( pl % Ip )) pl % Ip (:, 1 : npl ) = pl_sorted % Ip (:, ind ( 1 : npl )) if ( allocated ( pl % rot )) pl % rot (:, 1 : npl ) = pl_sorted % rot (:, ind ( 1 : npl )) if ( allocated ( pl % k2 )) pl % k2 ( 1 : npl ) = pl_sorted % k2 ( ind ( 1 : npl )) if ( allocated ( pl % Q )) pl % Q ( 1 : npl ) = pl_sorted % Q ( ind ( 1 : npl )) if ( allocated ( pl % tlag )) pl % tlag ( 1 : npl ) = pl_sorted % tlag ( ind ( 1 : npl )) deallocate ( pl_sorted ) end associate return end subroutine util_sort_rearrange_pl module subroutine util_sort_rearrange_tp ( self , ind ) !! author: David A. Minton !! !! Rearrange Swiftest massive body structure in-place from an index list. !! This is a helper utility used to make polymorphic sorting work on Swiftest structures. implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) ! Internals class ( swiftest_tp ), allocatable :: tp_sorted !! Temporary holder for sorted body associate ( tp => self , ntp => self % nbody ) call util_sort_rearrange_body ( tp , ind ) allocate ( tp_sorted , source = self ) if ( allocated ( tp % isperi )) tp % isperi ( 1 : ntp ) = tp_sorted % isperi ( ind ( 1 : ntp )) if ( allocated ( tp % peri )) tp % peri ( 1 : ntp ) = tp_sorted % peri ( ind ( 1 : ntp )) if ( allocated ( tp % atp )) tp % atp ( 1 : ntp ) = tp_sorted % atp ( ind ( 1 : ntp )) deallocate ( tp_sorted ) end associate return end subroutine util_sort_rearrange_tp module subroutine util_sort_dp ( arr ) !! author: David A. Minton !! !! Sort input double precision array in place into ascending numerical order using insertion sort. !! This algorithm works well for partially sorted arrays (which is usually the case here) !! implicit none ! Arguments real ( DP ), dimension (:), intent ( inout ) :: arr ! Internals real ( DP ) :: tmp integer ( I4B ) :: n , i , j n = size ( arr ) do i = 2 , n tmp = arr ( i ) do j = i - 1 , 1 , - 1 if ( arr ( j ) <= tmp ) exit arr ( j + 1 ) = arr ( j ) end do arr ( j + 1 ) = tmp end do return end subroutine util_sort_dp module subroutine util_sort_index_dp ( arr , ind ) !! author: David A. Minton !! !! Sort input double precision array by index in ascending numerical order using insertion sort. !! This algorithm works well for partially sorted arrays (which is usually the case here) !! implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: arr integer ( I4B ), dimension (:), intent ( out ) :: ind ! Internals real ( DP ) :: tmp integer ( I4B ) :: n , i , j n = size ( arr ) ind = [( i , i = 1 , n )] do i = 2 , n tmp = arr ( ind ( i )) do j = i - 1 , 1 , - 1 if ( arr ( ind ( j )) <= tmp ) exit ind ( j + 1 ) = ind ( j ) end do ind ( j + 1 ) = i end do return end subroutine util_sort_index_dp module subroutine util_sort_i4b ( arr ) !! author: David A. Minton !! !! Sort input integer array in place into ascending numerical order using insertion sort. !! This algorithm works well for partially sorted arrays (which is usually the case here) !! implicit none ! Arguments integer ( I4B ), dimension (:), intent ( inout ) :: arr ! Internals integer ( I4B ) :: tmp integer ( I4B ) :: n , i , j n = size ( arr ) do i = 2 , n tmp = arr ( i ) do j = i - 1 , 1 , - 1 if ( arr ( j ) <= tmp ) exit arr ( j + 1 ) = arr ( j ) end do arr ( j + 1 ) = tmp end do return end subroutine util_sort_i4b module subroutine util_sort_index_i4b ( arr , ind ) !! author: David A. Minton !! !! Sort input integer array by index in ascending numerical order using insertion sort. !! This algorithm works well for partially sorted arrays (which is usually the case here) !! implicit none ! Arguments integer ( I4B ), dimension (:), intent ( in ) :: arr integer ( I4B ), dimension (:), intent ( out ) :: ind ! Internals integer ( I4B ) :: tmp integer ( I4B ) :: n , i , j n = size ( arr ) ind = [( i , i = 1 , n )] do i = 2 , n tmp = arr ( ind ( i )) do j = i - 1 , 1 , - 1 if ( arr ( ind ( j )) <= tmp ) exit ind ( j + 1 ) = ind ( j ) end do ind ( j + 1 ) = i end do return end subroutine util_sort_index_i4b module subroutine util_sort_sp ( arr ) !! author: David A. Minton !! !! Sort input single precision array in place into ascending numerical order using insertion sort. !! This algorithm works well for partially sorted arrays (which is usually the case here) ! implicit none ! Arguments real ( SP ), dimension (:), intent ( inout ) :: arr ! Internals real ( SP ) :: tmp integer ( I4B ) :: n , i , j n = size ( arr ) do i = 2 , n tmp = arr ( i ) do j = i - 1 , 1 , - 1 if ( arr ( j ) <= tmp ) exit arr ( j + 1 ) = arr ( j ) end do arr ( j + 1 ) = tmp end do return end subroutine util_sort_sp module subroutine util_sort_index_sp ( arr , ind ) !! author: David A. Minton !! !! Sort input single precision array by index in ascending numerical order using insertion sort. !! This algorithm works well for partially sorted arrays (which is usually the case here) !! implicit none ! Arguments real ( SP ), dimension (:), intent ( in ) :: arr integer ( I4B ), dimension (:), intent ( out ) :: ind ! Internals real ( SP ) :: tmp integer ( I4B ) :: n , i , j n = size ( arr ) ind = [( i , i = 1 , n )] do i = 2 , n tmp = arr ( ind ( i )) do j = i - 1 , 1 , - 1 if ( arr ( ind ( j )) <= tmp ) exit ind ( j + 1 ) = ind ( j ) end do ind ( j + 1 ) = i end do return end subroutine util_sort_index_sp end submodule s_util_sort","tags":"","loc":"sourcefile/util_sort.f90.html"},{"title":"util_spill.f90 – swiftest","text":"This file depends on sourcefile~~util_spill.f90~~EfferentGraph sourcefile~util_spill.f90 util_spill.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_spill.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_spill Source Code util_spill.f90 Source Code submodule ( swiftest_classes ) s_util_spill use swiftest contains module subroutine util_spill_arr_char_string ( keeps , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Performs a spill operation on a single array of type character strings !! This is the inverse of a spill operation implicit none ! Arguments character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not if (. not . allocated ( keeps ) . or . count ( lspill_list (:)) == 0 ) return if (. not . allocated ( discards )) allocate ( discards ( count ( lspill_list (:)))) discards (:) = pack ( keeps (:), lspill_list (:)) if ( ldestructive ) then if ( count (. not . lspill_list (:)) > 0 ) then keeps (:) = pack ( keeps (:), . not . lspill_list (:)) else deallocate ( keeps ) end if end if return end subroutine util_spill_arr_char_string module subroutine util_spill_arr_DP ( keeps , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Performs a spill operation on a single array of type DP !! This is the inverse of a spill operation implicit none ! Arguments real ( DP ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep real ( DP ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardss logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not if (. not . allocated ( keeps ) . or . count ( lspill_list (:)) == 0 ) return if (. not . allocated ( discards )) allocate ( discards ( count ( lspill_list (:)))) discards (:) = pack ( keeps (:), lspill_list (:)) if ( ldestructive ) then if ( count (. not . lspill_list (:)) > 0 ) then keeps (:) = pack ( keeps (:), . not . lspill_list (:)) else deallocate ( keeps ) end if end if return end subroutine util_spill_arr_DP module subroutine util_spill_arr_DPvec ( keeps , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Performs a spill operation on a single array of DP vectors with shape (NDIM, n) !! This is the inverse of a spill operation implicit none ! Arguments real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: keeps !! Array of values to keep real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: discards !! Array discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not ! Internals integer ( I4B ) :: i if (. not . allocated ( keeps ) . or . count ( lspill_list (:)) == 0 ) return if (. not . allocated ( discards )) allocate ( discards ( NDIM , count ( lspill_list (:)))) do i = 1 , NDIM discards ( i ,:) = pack ( keeps ( i ,:), lspill_list (:)) end do if ( ldestructive ) then if ( count (. not . lspill_list (:)) > 0 ) then do i = 1 , NDIM keeps ( i ,:) = pack ( keeps ( i ,:), . not . lspill_list (:)) end do end if end if return end subroutine util_spill_arr_DPvec module subroutine util_spill_arr_I4B ( keeps , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Performs a spill operation on a single array of type I4B !! This is the inverse of a spill operation implicit none ! Arguments integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not if (. not . allocated ( keeps ) . or . count ( lspill_list (:)) == 0 ) return if (. not . allocated ( discards )) allocate ( discards ( count ( lspill_list (:)))) discards (:) = pack ( keeps (:), lspill_list (:)) if ( ldestructive ) then if ( count (. not . lspill_list (:)) > 0 ) then keeps (:) = pack ( keeps (:), . not . lspill_list (:)) else deallocate ( keeps ) end if end if return end subroutine util_spill_arr_I4B module subroutine util_spill_arr_logical ( keeps , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Performs a spill operation on a single array of logicals !! This is the inverse of a spill operation implicit none ! Arguments logical , dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep logical , dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or no if (. not . allocated ( keeps ) . or . count ( lspill_list (:)) == 0 ) return if (. not . allocated ( discards )) allocate ( discards ( count ( lspill_list (:)))) discards (:) = pack ( keeps (:), lspill_list (:)) if ( ldestructive ) then if ( count (. not . lspill_list (:)) > 0 ) then keeps (:) = pack ( keeps (:), . not . lspill_list (:)) else deallocate ( keeps ) end if end if return end subroutine util_spill_arr_logical module subroutine util_spill_body ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) Swiftest generic particle structure from active list to discard list !! Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest generic body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list ! Internals integer ( I4B ) :: i ! For each component, pack the discarded bodies into the discard object and do the inverse with the keeps !> Spill all the common components associate ( keeps => self ) call util_spill ( keeps % id , discards % id , lspill_list , ldestructive ) call util_spill ( keeps % name , discards % name , lspill_list , ldestructive ) call util_spill ( keeps % status , discards % status , lspill_list , ldestructive ) call util_spill ( keeps % lmask , discards % lmask , lspill_list , ldestructive ) call util_spill ( keeps % ldiscard , discards % ldiscard , lspill_list , ldestructive ) call util_spill ( keeps % mu , discards % mu , lspill_list , ldestructive ) call util_spill ( keeps % xh , discards % xh , lspill_list , ldestructive ) call util_spill ( keeps % vh , discards % vh , lspill_list , ldestructive ) call util_spill ( keeps % xb , discards % xb , lspill_list , ldestructive ) call util_spill ( keeps % vb , discards % vb , lspill_list , ldestructive ) call util_spill ( keeps % ah , discards % ah , lspill_list , ldestructive ) call util_spill ( keeps % aobl , discards % aobl , lspill_list , ldestructive ) call util_spill ( keeps % agr , discards % agr , lspill_list , ldestructive ) call util_spill ( keeps % atide , discards % atide , lspill_list , ldestructive ) call util_spill ( keeps % a , discards % a , lspill_list , ldestructive ) call util_spill ( keeps % e , discards % e , lspill_list , ldestructive ) call util_spill ( keeps % inc , discards % inc , lspill_list , ldestructive ) call util_spill ( keeps % capom , discards % capom , lspill_list , ldestructive ) call util_spill ( keeps % omega , discards % omega , lspill_list , ldestructive ) call util_spill ( keeps % capm , discards % capm , lspill_list , ldestructive ) ! This is the base class, so will be the last to be called in the cascade. ! Therefore we need to set the nbody values for both the keeps and discareds discards % nbody = count ( lspill_list (:)) keeps % nbody = count (. not . lspill_list (:)) if ( keeps % nbody > size ( keeps % status )) keeps % status ( keeps % nbody + 1 : size ( keeps % status )) = INACTIVE end associate return end subroutine util_spill_body module subroutine util_spill_encounter ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) Swiftest encounter structure from active list to discard list implicit none ! Arguments class ( swiftest_encounter ), intent ( inout ) :: self !! Swiftest encounter list class ( swiftest_encounter ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list ! Internals integer ( I4B ) :: i associate ( keeps => self ) call util_spill ( keeps % lvdotr , discards % lvdotr , lspill_list , ldestructive ) call util_spill ( keeps % status , discards % status , lspill_list , ldestructive ) call util_spill ( keeps % index1 , discards % index1 , lspill_list , ldestructive ) call util_spill ( keeps % index2 , discards % index2 , lspill_list , ldestructive ) call util_spill ( keeps % x1 , discards % x1 , lspill_list , ldestructive ) call util_spill ( keeps % x2 , discards % x2 , lspill_list , ldestructive ) call util_spill ( keeps % v1 , discards % v1 , lspill_list , ldestructive ) call util_spill ( keeps % v2 , discards % v2 , lspill_list , ldestructive ) ! This is the base class, so will be the last to be called in the cascade. ! Therefore we need to set the nenc values for both the keeps and discareds discards % nenc = count ( lspill_list (:)) keeps % nenc = count (. not . lspill_list (:)) if ( keeps % nenc > size ( keeps % status )) keeps % status ( keeps % nenc + 1 : size ( keeps % status )) = INACTIVE end associate return end subroutine util_spill_encounter module subroutine util_spill_pl ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) Swiftest massive body structure from active list to discard list !! Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list ! Internals integer ( I4B ) :: i associate ( keeps => self ) select type ( discards ) ! The standard requires us to select the type of both arguments in order to access all the components class is ( swiftest_pl ) !> Spill components specific to the massive body class call util_spill ( keeps % mass , discards % mass , lspill_list , ldestructive ) call util_spill ( keeps % Gmass , discards % Gmass , lspill_list , ldestructive ) call util_spill ( keeps % rhill , discards % rhill , lspill_list , ldestructive ) call util_spill ( keeps % radius , discards % radius , lspill_list , ldestructive ) call util_spill ( keeps % density , discards % density , lspill_list , ldestructive ) call util_spill ( keeps % k2 , discards % k2 , lspill_list , ldestructive ) call util_spill ( keeps % Q , discards % Q , lspill_list , ldestructive ) call util_spill ( keeps % tlag , discards % tlag , lspill_list , ldestructive ) call util_spill ( keeps % xbeg , discards % xbeg , lspill_list , ldestructive ) call util_spill ( keeps % vbeg , discards % vbeg , lspill_list , ldestructive ) call util_spill ( keeps % Ip , discards % Ip , lspill_list , ldestructive ) call util_spill ( keeps % rot , discards % rot , lspill_list , ldestructive ) call util_spill_body ( keeps , discards , lspill_list , ldestructive ) class default write ( * , * ) 'Error! spill method called for incompatible return type on swiftest_pl' end select end associate return end subroutine util_spill_pl module subroutine util_spill_tp ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) Swiftest test particle structure from active list to discard list !! Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardse logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list associate ( keeps => self , ntp => self % nbody ) select type ( discards ) class is ( swiftest_tp ) !> Spill components specific to the test particle class call util_spill ( keeps % isperi , discards % isperi , lspill_list , ldestructive ) call util_spill ( keeps % peri , discards % peri , lspill_list , ldestructive ) call util_spill ( keeps % atp , discards % atp , lspill_list , ldestructive ) call util_spill_body ( keeps , discards , lspill_list , ldestructive ) class default write ( * , * ) 'Error! spill method called for incompatible return type on swiftest_tp' end select end associate return end subroutine util_spill_tp end submodule s_util_spill","tags":"","loc":"sourcefile/util_spill.f90.html"},{"title":"util_valid.f90 – swiftest","text":"This file depends on sourcefile~~util_valid.f90~~EfferentGraph sourcefile~util_valid.f90 util_valid.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_valid.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_valid Source Code util_valid.f90 Source Code submodule ( swiftest_classes ) s_util_valid use swiftest contains module subroutine util_valid ( pl , tp ) !! author: David A. Minton !! !! Validate massive body and test particle ids !! Subroutine causes program to exit with error if any ids are not unique !! !! Adapted from David E. Kaufmann's Swifter routine: util_valid.f90 implicit none ! Arguments class ( swiftest_pl ), intent ( in ) :: pl class ( swiftest_tp ), intent ( in ) :: tp ! Internals integer ( I4B ) :: i integer ( I4B ), dimension (:), allocatable :: idarr associate ( npl => pl % nbody , ntp => tp % nbody ) allocate ( idarr ( npl + ntp )) do i = 1 , npl idarr ( i ) = pl % id ( i ) end do do i = 1 , ntp idarr ( npl + i ) = tp % id ( i ) end do call util_sort ( idarr ) do i = 1 , npl + ntp - 1 if ( idarr ( i ) == idarr ( i + 1 )) then write ( * , * ) \"Swiftest error:\" write ( * , * ) \"   more than one body/particle has id = \" , idarr ( i ) call util_exit ( FAILURE ) end if end do end associate return end subroutine util_valid end submodule s_util_valid","tags":"","loc":"sourcefile/util_valid.f90.html"},{"title":"util_exit.f90 – swiftest","text":"This file depends on sourcefile~~util_exit.f90~~EfferentGraph sourcefile~util_exit.f90 util_exit.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_exit.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_exit Source Code util_exit.f90 Source Code submodule ( swiftest_classes ) s_util_exit use swiftest contains module subroutine util_exit ( code ) !! author: David A. Minton !! !! Print termination message and exit program !! !! Adapted from David E. Kaufmann's Swifter routine: util_exit.f90 !! Adapted from Hal Levison's Swift routine util_exit.f implicit none ! Arguments integer ( I4B ), intent ( in ) :: code ! Internals character ( * ), parameter :: BAR = '(\"------------------------------------------------\")' select case ( code ) case ( SUCCESS ) write ( * , SUCCESS_MSG ) VERSION_NUMBER write ( * , BAR ) case ( USAGE ) write ( * , USAGE_MSG ) case ( HELP ) write ( * , HELP_MSG ) case default write ( * , FAIL_MSG ) VERSION_NUMBER write ( * , BAR ) error stop end select stop end subroutine util_exit end submodule s_util_exit","tags":"","loc":"sourcefile/util_exit.f90.html"},{"title":"util_fill.f90 – swiftest","text":"This file depends on sourcefile~~util_fill.f90~~EfferentGraph sourcefile~util_fill.f90 util_fill.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_fill.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_fill Source Code util_fill.f90 Source Code submodule ( swiftest_classes ) s_util_fill use swiftest contains module subroutine util_fill_arr_char_string ( keeps , inserts , lfill_list ) !! author: David A. Minton !! !! Performs a fill operation on a single array of type character strings !! This is the inverse of a spill operation implicit none ! Arguments character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep character ( len = STRMAX ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps if (. not . allocated ( keeps ) . or . . not . allocated ( inserts )) return keeps (:) = unpack ( keeps (:), . not . lfill_list (:), keeps (:)) keeps (:) = unpack ( inserts (:), lfill_list (:), keeps (:)) return end subroutine util_fill_arr_char_string module subroutine util_fill_arr_DP ( keeps , inserts , lfill_list ) !! author: David A. Minton !! !! Performs a fill operation on a single array of type DP !! This is the inverse of a spill operation implicit none ! Arguments real ( DP ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep real ( DP ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps if (. not . allocated ( keeps ) . or . . not . allocated ( inserts )) return keeps (:) = unpack ( keeps (:), . not . lfill_list (:), keeps (:)) keeps (:) = unpack ( inserts (:), lfill_list (:), keeps (:)) return end subroutine util_fill_arr_DP module subroutine util_fill_arr_DPvec ( keeps , inserts , lfill_list ) !! author: David A. Minton !! !! Performs a fill operation on a single array of DP vectors with shape (NDIM, n) !! This is the inverse of a spill operation implicit none ! Arguments real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: keeps !! Array of values to keep real ( DP ), dimension (:,:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps ! Internals integer ( I4B ) :: i if (. not . allocated ( keeps ) . or . . not . allocated ( inserts )) return do i = 1 , NDIM keeps ( i ,:) = unpack ( keeps ( i ,:), . not . lfill_list (:), keeps ( i ,:)) keeps ( i ,:) = unpack ( inserts ( i ,:), lfill_list (:), keeps ( i ,:)) end do return end subroutine util_fill_arr_DPvec module subroutine util_fill_arr_I4B ( keeps , inserts , lfill_list ) !! author: David A. Minton !! !! Performs a fill operation on a single array of type I4B !! This is the inverse of a spill operation implicit none ! Arguments integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep integer ( I4B ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps if (. not . allocated ( keeps ) . or . . not . allocated ( inserts )) return keeps (:) = unpack ( keeps (:), . not . lfill_list (:), keeps (:)) keeps (:) = unpack ( inserts (:), lfill_list (:), keeps (:)) return end subroutine util_fill_arr_I4B module subroutine util_fill_arr_logical ( keeps , inserts , lfill_list ) !! author: David A. Minton !! !! Performs a fill operation on a single array of logicals !! This is the inverse of a spill operation implicit none ! Arguments logical , dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep logical , dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps if (. not . allocated ( keeps ) . or . . not . allocated ( inserts )) return keeps (:) = unpack ( keeps (:), . not . lfill_list (:), keeps (:)) keeps (:) = unpack ( inserts (:), lfill_list (:), keeps (:)) return end subroutine util_fill_arr_logical module subroutine util_fill_body ( self , inserts , lfill_list ) !! author: David A. Minton !! !! Insert new Swiftest generic particle structure into an old one. !! This is the inverse of a spill operation. implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest generic body object class ( swiftest_body ), intent ( in ) :: inserts !! Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps ! internals integer ( I4B ) :: i ! For each component, pack the discarded bodies into the discard object and do the inverse with the keeps !> Fill all the common components associate ( keeps => self ) call util_fill ( keeps % id , inserts % id , lfill_list ) call util_fill ( keeps % name , inserts % name , lfill_list ) call util_fill ( keeps % status , inserts % status , lfill_list ) call util_fill ( keeps % ldiscard , inserts % ldiscard , lfill_list ) call util_fill ( keeps % lmask , inserts % lmask , lfill_list ) call util_fill ( keeps % mu , inserts % mu , lfill_list ) call util_fill ( keeps % xh , inserts % xh , lfill_list ) call util_fill ( keeps % vh , inserts % vh , lfill_list ) call util_fill ( keeps % xb , inserts % xb , lfill_list ) call util_fill ( keeps % vb , inserts % vb , lfill_list ) call util_fill ( keeps % ah , inserts % ah , lfill_list ) call util_fill ( keeps % aobl , inserts % aobl , lfill_list ) call util_fill ( keeps % agr , inserts % agr , lfill_list ) call util_fill ( keeps % atide , inserts % atide , lfill_list ) call util_fill ( keeps % a , inserts % a , lfill_list ) call util_fill ( keeps % e , inserts % e , lfill_list ) call util_fill ( keeps % inc , inserts % inc , lfill_list ) call util_fill ( keeps % capom , inserts % capom , lfill_list ) call util_fill ( keeps % omega , inserts % omega , lfill_list ) call util_fill ( keeps % capm , inserts % capm , lfill_list ) ! This is the base class, so will be the last to be called in the cascade. keeps % nbody = size ( keeps % id (:)) end associate return end subroutine util_fill_body module subroutine util_fill_pl ( self , inserts , lfill_list ) !! author: David A. Minton !! !! Insert new Swiftest massive body structure into an old one. !! This is the inverse of a spill operation. implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_body ), intent ( in ) :: inserts !! Swiftest body object to be inserted logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps ! Internals integer ( I4B ) :: i associate ( keeps => self ) select type ( inserts ) ! The standard requires us to select the type of both arguments in order to access all the components class is ( swiftest_pl ) !> Fill components specific to the massive body class call util_fill ( keeps % mass , inserts % mass , lfill_list ) call util_fill ( keeps % Gmass , inserts % Gmass , lfill_list ) call util_fill ( keeps % rhill , inserts % rhill , lfill_list ) call util_fill ( keeps % radius , inserts % radius , lfill_list ) call util_fill ( keeps % density , inserts % density , lfill_list ) call util_fill ( keeps % k2 , inserts % k2 , lfill_list ) call util_fill ( keeps % Q , inserts % Q , lfill_list ) call util_fill ( keeps % tlag , inserts % tlag , lfill_list ) call util_fill ( keeps % xbeg , inserts % xbeg , lfill_list ) call util_fill ( keeps % vbeg , inserts % vbeg , lfill_list ) call util_fill ( keeps % Ip , inserts % Ip , lfill_list ) call util_fill ( keeps % rot , inserts % rot , lfill_list ) call util_fill_body ( keeps , inserts , lfill_list ) class default write ( * , * ) 'Error! fill method called for incompatible return type on swiftest_pl' end select end associate return end subroutine util_fill_pl module subroutine util_fill_tp ( self , inserts , lfill_list ) !! author: David A. Minton !! !! Insert new Swiftest test particle structure into an old one. !! This is the inverse of a fill operation. implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_body ), intent ( in ) :: inserts !! Swiftest body object to be inserted logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps associate ( keeps => self ) select type ( inserts ) class is ( swiftest_tp ) !> Spill components specific to the test particle class call util_fill ( keeps % isperi , inserts % isperi , lfill_list ) call util_fill ( keeps % peri , inserts % peri , lfill_list ) call util_fill ( keeps % atp , inserts % atp , lfill_list ) call util_fill_body ( keeps , inserts , lfill_list ) class default write ( * , * ) 'Error! fill method called for incompatible return type on swiftest_tp' end select end associate return end subroutine util_fill_tp end submodule s_util_fill","tags":"","loc":"sourcefile/util_fill.f90.html"},{"title":"util_resize.f90 – swiftest","text":"This file depends on sourcefile~~util_resize.f90~~EfferentGraph sourcefile~util_resize.f90 util_resize.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_resize.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_resize Source Code util_resize.f90 Source Code submodule ( swiftest_classes ) s_util_resize use swiftest contains module subroutine util_resize_arr_char_string ( arr , nnew ) !! author: David A. Minton !! !! Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. implicit none ! Arguments character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size ! Internals character ( len = STRMAX ), dimension (:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated integer ( I4B ) :: nold !! Old size if (. not . allocated ( arr ) . or . nnew < 0 ) return nold = size ( arr ) if ( nnew == nold ) return if ( nnew == 0 ) then deallocate ( arr ) return end if allocate ( tmp ( nnew )) if ( nnew > nold ) then tmp ( 1 : nold ) = arr ( 1 : nold ) else tmp ( 1 : nnew ) = arr ( 1 : nnew ) end if call move_alloc ( tmp , arr ) return end subroutine util_resize_arr_char_string module subroutine util_resize_arr_DP ( arr , nnew ) !! author: David A. Minton !! !! Resizes an array component of double precision type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. implicit none ! Arguments real ( DP ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size ! Internals real ( DP ), dimension (:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated integer ( I4B ) :: nold !! Old size if (. not . allocated ( arr ) . or . nnew < 0 ) return nold = size ( arr ) if ( nnew == nold ) return if ( nnew == 0 ) then deallocate ( arr ) return end if allocate ( tmp ( nnew )) if ( nnew > nold ) then tmp ( 1 : nold ) = arr ( 1 : nold ) else tmp ( 1 : nnew ) = arr ( 1 : nnew ) end if call move_alloc ( tmp , arr ) return end subroutine util_resize_arr_DP module subroutine util_resize_arr_DPvec ( arr , nnew ) !! author: David A. Minton !! !! Resizes an array component of double precision vectors of size (NDIM, n). Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. implicit none ! Arguments real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size ! Internals real ( DP ), dimension (:,:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated integer ( I4B ) :: nold !! Old size if (. not . allocated ( arr ) . or . nnew < 0 ) return nold = size ( arr , dim = 2 ) if ( nnew == nold ) return if ( nnew == 0 ) then deallocate ( arr ) return end if allocate ( tmp ( NDIM , nnew )) if ( nnew > nold ) then tmp (:, 1 : nold ) = arr (:, 1 : nold ) else tmp (:, 1 : nnew ) = arr (:, 1 : nnew ) end if call move_alloc ( tmp , arr ) return end subroutine util_resize_arr_DPvec module subroutine util_resize_arr_I4B ( arr , nnew ) !! author: David A. Minton !! !! Resizes an array component of integer type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. implicit none ! Arguments integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size ! Internals integer ( I4B ), dimension (:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated integer ( I4B ) :: nold !! Old size if (. not . allocated ( arr ) . or . nnew < 0 ) return nold = size ( arr ) if ( nnew == nold ) return if ( nnew == 0 ) then deallocate ( arr ) return end if allocate ( tmp ( nnew )) if ( nnew > nold ) then tmp ( 1 : nold ) = arr ( 1 : nold ) else tmp ( 1 : nnew ) = arr ( 1 : nnew ) end if call move_alloc ( tmp , arr ) return end subroutine util_resize_arr_I4B module subroutine util_resize_arr_logical ( arr , nnew ) !! author: David A. Minton !! !! Resizes an array component of logical type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. implicit none ! Arguments logical , dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size ! Internals logical , dimension (:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated integer ( I4B ) :: nold !! Old size if (. not . allocated ( arr ) . or . nnew < 0 ) return nold = size ( arr ) if ( nnew == nold ) return if ( nnew == 0 ) then deallocate ( arr ) return end if allocate ( tmp ( nnew )) if ( nnew > nold ) then tmp ( 1 : nold ) = arr ( 1 : nold ) else tmp ( 1 : nnew ) = arr ( 1 : nnew ) end if call move_alloc ( tmp , arr ) return end subroutine util_resize_arr_logical module subroutine util_resize_body ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object integer ( I4B ), intent ( in ) :: nnew !! New size neded call util_resize ( self % name , nnew ) call util_resize ( self % id , nnew ) call util_resize ( self % status , nnew ) call util_resize ( self % ldiscard , nnew ) call util_resize ( self % lmask , nnew ) call util_resize ( self % mu , nnew ) call util_resize ( self % xh , nnew ) call util_resize ( self % vh , nnew ) call util_resize ( self % xb , nnew ) call util_resize ( self % vb , nnew ) call util_resize ( self % ah , nnew ) call util_resize ( self % aobl , nnew ) call util_resize ( self % atide , nnew ) call util_resize ( self % agr , nnew ) call util_resize ( self % ir3h , nnew ) call util_resize ( self % a , nnew ) call util_resize ( self % e , nnew ) call util_resize ( self % inc , nnew ) call util_resize ( self % capom , nnew ) call util_resize ( self % omega , nnew ) call util_resize ( self % capm , nnew ) self % nbody = count ( self % status ( 1 : nnew ) /= INACTIVE ) return end subroutine util_resize_body module subroutine util_resize_encounter ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small. !! Note: The reason to extend it by a factor of 2 is for performance. When there are many enounters per step, resizing every time you want to add an !! encounter takes significant computational effort. Resizing by a factor of 2 is a tradeoff between performance (fewer resize calls) and memory managment !! Memory usage grows by a factor of 2 each time it fills up, but no more. implicit none ! Arguments class ( swiftest_encounter ), intent ( inout ) :: self !! Swiftest encounter list integer ( I4B ), intent ( in ) :: nnew !! New size of list needed ! Internals class ( swiftest_encounter ), allocatable :: enc_temp integer ( I4B ) :: nold logical :: lmalloc lmalloc = allocated ( self % status ) if ( lmalloc ) then nold = size ( self % status ) else nold = 0 end if if ( nnew > nold ) then if ( lmalloc ) allocate ( enc_temp , source = self ) call self % setup ( 2 * nnew ) if ( lmalloc ) then call self % copy ( enc_temp ) deallocate ( enc_temp ) end if else self % status ( nnew + 1 : nold ) = INACTIVE end if self % nenc = nnew return end subroutine util_resize_encounter module subroutine util_resize_pl ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded call util_resize_body ( self , nnew ) call util_resize ( self % mass , nnew ) call util_resize ( self % Gmass , nnew ) call util_resize ( self % rhill , nnew ) call util_resize ( self % radius , nnew ) call util_resize ( self % xbeg , nnew ) call util_resize ( self % xend , nnew ) call util_resize ( self % vbeg , nnew ) call util_resize ( self % density , nnew ) call util_resize ( self % Ip , nnew ) call util_resize ( self % rot , nnew ) call util_resize ( self % k2 , nnew ) call util_resize ( self % Q , nnew ) call util_resize ( self % tlag , nnew ) call self % eucl_index () return end subroutine util_resize_pl module subroutine util_resize_tp ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded call util_resize_body ( self , nnew ) call util_resize ( self % isperi , nnew ) call util_resize ( self % peri , nnew ) call util_resize ( self % atp , nnew ) return end subroutine util_resize_tp end submodule s_util_resize","tags":"","loc":"sourcefile/util_resize.f90.html"},{"title":"util_copy.f90 – swiftest","text":"This file depends on sourcefile~~util_copy.f90~~EfferentGraph sourcefile~util_copy.f90 util_copy.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_copy.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_copy Source Code util_copy.f90 Source Code submodule ( swiftest_classes ) s_util_copy use swiftest contains module subroutine util_copy_encounter ( self , source ) !! author: David A. Minton !! !! Copies elements from the source encounter list into self. implicit none ! Arguments class ( swiftest_encounter ), intent ( inout ) :: self !! Encounter list class ( swiftest_encounter ), intent ( in ) :: source !! Source object to copy into associate ( n => source % nenc ) self % nenc = n self % lvdotr ( 1 : n ) = source % lvdotr ( 1 : n ) self % status ( 1 : n ) = source % status ( 1 : n ) self % index1 ( 1 : n ) = source % index1 ( 1 : n ) self % index2 ( 1 : n ) = source % index2 ( 1 : n ) self % x1 (:, 1 : n ) = source % x1 (:, 1 : n ) self % x2 (:, 1 : n ) = source % x2 (:, 1 : n ) self % v1 (:, 1 : n ) = source % v1 (:, 1 : n ) self % v2 (:, 1 : n ) = source % v2 (:, 1 : n ) end associate return end subroutine util_copy_encounter end submodule s_util_copy","tags":"","loc":"sourcefile/util_copy.f90.html"},{"title":"util_minimize_bfgs.f90 – swiftest","text":"This file depends on sourcefile~~util_minimize_bfgs.f90~~EfferentGraph sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_minimize_bfgs Source Code util_minimize_bfgs.f90 Source Code submodule ( swiftest_classes ) s_util_minimize_bfgs use swiftest contains module function util_minimize_bfgs ( f , N , x0 , eps , lerr ) result ( x1 ) !! author: David A. Minton !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - !! This function implements the Broyden-Fletcher-Goldfarb-Shanno method to determine the minimum of a function of N variables. !! It recieves as input: !!   f%eval(x) : lambda function object containing the objective function as the eval metho !!   N    :  Number of variables of function f !!   x0   :  Initial starting value of x !!   eps  :  Accuracy of 1 - dimensional minimization at each step !! The outputs include !!   lerr :  Returns .true. if it could not find the minimum !! Returns !!   x1   :  Final minimum (all 0 if none found) !!   0 = No miniumum found !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - use , intrinsic :: ieee_exceptions implicit none ! Arguments integer ( I4B ), intent ( in ) :: N class ( lambda_obj ), intent ( inout ) :: f real ( DP ), dimension (:), intent ( in ) :: x0 real ( DP ), intent ( in ) :: eps logical , intent ( out ) :: lerr ! Result real ( DP ), dimension (:), allocatable :: x1 ! Internals integer ( I4B ) :: i , j , k , l , conv , num integer ( I4B ), parameter :: MAXLOOP = 1000 !! Maximum number of loops before method is determined to have failed real ( DP ), parameter :: graddelta = 1e-4_DP !! Delta x for gradient calculations real ( DP ), dimension ( N ) :: S !! Direction vectors real ( DP ), dimension ( N , N ) :: H !! Approximated inverse Hessian matrix real ( DP ), dimension ( N ) :: grad1 !! gradient of f real ( DP ), dimension ( N ) :: grad0 !! old value of gradient real ( DP ) :: astar !! 1D minimized value real ( DP ), dimension ( N ) :: y , P real ( DP ), dimension ( N , N ) :: PP , PyH , HyP real ( DP ) :: yHy , Py type ( ieee_status_type ) :: original_fpe_status logical , dimension (:), allocatable :: fpe_flag call ieee_get_status ( original_fpe_status ) ! Save the original floating point exception status call ieee_set_flag ( ieee_all , . false .) ! Set all flags to quiet allocate ( fpe_flag ( size ( ieee_usual ))) lerr = . false . allocate ( x1 , source = x0 ) ! Initialize approximate Hessian with the identity matrix (i.e. begin with method of steepest descent) ! Get initial gradient and initialize arrays for updated values of gradient and x H (:,:) = reshape ([(( 0._DP , i = 1 , j - 1 ), 1._DP , ( 0._DP , i = j + 1 , N ), j = 1 , N )], [ N , N ]) grad0 = gradf ( f , N , x0 (:), graddelta , lerr ) if ( lerr ) then call ieee_set_status ( original_fpe_status ) return end if grad1 (:) = grad0 (:) do i = 1 , MAXLOOP !check for convergence conv = count ( abs ( grad1 (:)) > eps ) if ( conv == 0 ) then !write(*,*) \"BFGS converged on gradient after \",i,\" iterations\" exit end if S (:) = - matmul ( H (:,:), grad1 (:)) astar = minimize1D ( f , x1 , S , N , graddelta , lerr ) if ( lerr ) then !write(*,*) \"Exiting BFGS with error in minimize1D step\" exit end if ! Get new x values P (:) = astar * S (:) x1 (:) = x1 (:) + P (:) ! Calculate new gradient grad0 (:) = grad1 (:) grad1 = gradf ( f , N , x1 , graddelta , lerr ) y (:) = grad1 (:) - grad0 (:) Py = sum ( P (:) * y (:)) ! set up factors for H matrix update yHy = 0._DP do k = 1 , N do j = 1 , N yHy = yHy + y ( j ) * H ( j , k ) * y ( k ) end do end do ! prevent divide by zero (convergence) if ( abs ( Py ) < tiny ( Py )) then !write(*,*) \"BFGS Converged on tiny Py after \",i,\" iterations\" exit end if ! set up update PyH (:,:) = 0._DP HyP (:,:) = 0._DP do k = 1 , N do j = 1 , N PP ( j , k ) = P ( j ) * P ( k ) do l = 1 , N PyH ( j , k ) = PyH ( j , k ) + P ( j ) * y ( l ) * H ( l , k ) HyP ( j , k ) = HyP ( j , k ) + P ( k ) * y ( l ) * H ( j , l ) end do end do end do ! update H matrix H (:,:) = H (:,:) + (( 1._DP - yHy / Py ) * PP (:,:) - PyH (:,:) - HyP (:,:)) / Py ! Normalize to prevent it from blowing up if it takes many iterations to find a solution H (:,:) = H (:,:) / norm2 ( H (:,:)) ! Stop everything if there are any exceptions to allow the routine to fail gracefully call ieee_get_flag ( ieee_usual , fpe_flag ) if ( any ( fpe_flag )) exit if ( i == MAXLOOP ) then lerr = . true . !write(*,*) \"BFGS ran out of loops!\" end if end do call ieee_get_flag ( ieee_usual , fpe_flag ) lerr = lerr . or . any ( fpe_flag ) !if (any(fpe_flag)) write(*,*) 'BFGS did not converge due to fpe' !if (lerr) write(*,*) \"BFGS did not converge!\" call ieee_set_status ( original_fpe_status ) return contains function gradf ( f , N , x1 , dx , lerr ) result ( grad ) !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - !! Purpose:  Estimates the gradient of a function using a central difference !! approximation !! Inputs: !!   f%eval(x) : lambda function object containing the objective function as the eval metho !!   N    :  number of variables N !!   x1   :  x value array !!   dx   :  step size to use when calculating derivatives !! Outputs: !!   lerr : .true. if an error occurred. Otherwise returns .false. !! Returns !!   grad :  N sized array containing estimated gradient of f at x1 !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - implicit none ! Arguments integer ( I4B ), intent ( in ) :: N class ( lambda_obj ), intent ( inout ) :: f real ( DP ), dimension (:), intent ( in ) :: x1 real ( DP ), intent ( in ) :: dx logical , intent ( out ) :: lerr ! Result real ( DP ), dimension ( N ) :: grad ! Internals integer ( I4B ) :: i , j real ( DP ), dimension ( N ) :: xp , xm real ( DP ) :: fp , fm logical :: lerrp , lerrm do i = 1 , N do j = 1 , N if ( j == i ) then xp ( j ) = x1 ( j ) + dx xm ( j ) = x1 ( j ) - dx else xp ( j ) = x1 ( j ) xm ( j ) = x1 ( j ) end if end do select type ( f ) class is ( lambda_obj_err ) fp = f % eval ( xp ) lerrp = f % lerr fm = f % eval ( xm ) lerrm = f % lerr lerr = lerrp . or . lerrm class is ( lambda_obj ) fp = f % eval ( xp ) fm = f % eval ( xm ) lerr = . false . end select grad ( i ) = ( fp - fm ) / ( 2 * dx ) if ( lerr ) return end do return end function gradf function minimize1D ( f , x0 , S , N , eps , lerr ) result ( astar ) !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - !! This program find the minimum of a function of N variables in a single direction !! S using in sequence: !!    1.  A Bracketing method !!    2.  The golden section method !!    3.  A quadratic polynomial fit !! Inputs !!   f%eval(x) : lambda function object containing the objective function as the eval metho !!   x0   :  Array of size N of initial x values !!   S    :  Array of size N that determines the direction of minimization !!   N    :  Number of variables of function f !!   eps  :  Accuracy of 1 - dimensional minimization at each step !! Output !!   lerr : .true. if an error occurred. Otherwise returns .false. !! Returns !!   astar      :  Final minimum along direction S !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - implicit none ! Arguments integer ( I4B ), intent ( in ) :: N class ( lambda_obj ), intent ( inout ) :: f real ( DP ), dimension (:), intent ( in ) :: x0 , S real ( DP ), intent ( in ) :: eps logical , intent ( out ) :: lerr ! Result real ( DP ) :: astar ! Internals integer ( I4B ) :: num = 0 real ( DP ), parameter :: step = 0.7_DP !! Bracketing method step size real ( DP ), parameter :: gam = 1.2_DP !! Bracketing method expansion parameter real ( DP ), parameter :: greduce = 0.2_DP !! Golden section method reduction factor real ( DP ), parameter :: greduce2 = 0.1_DP ! Secondary golden section method reduction factor real ( DP ) :: alo , ahi !! High and low values for 1 - D minimization routines real ( DP ), parameter :: a0 = epsilon ( 1.0_DP ) !! Initial guess of alpha alo = a0 call bracket ( f , x0 , S , N , gam , step , alo , ahi , lerr ) if ( lerr ) then !write(*,*) \"BFGS bracketing step failed!\" return end if if ( abs ( alo - ahi ) < eps ) then astar = alo lerr = . false . return end if call golden ( f , x0 , S , N , greduce , alo , ahi , lerr ) if ( lerr ) then !write(*,*) \"BFGS golden section step failed!\" return end if if ( abs ( alo - ahi ) < eps ) then astar = alo lerr = . false . return end if call quadfit ( f , x0 , S , N , eps , alo , ahi , lerr ) if ( lerr ) then !write(*,*) \"BFGS quadfit failed!\" return end if if ( abs ( alo - ahi ) < eps ) then astar = alo lerr = . false . return end if ! Quadratic fit method won't converge, so finish off with another golden section call golden ( f , x0 , S , N , greduce2 , alo , ahi , lerr ) if (. not . lerr ) astar = ( alo + ahi ) / 2.0_DP return end function minimize1D function n2one ( f , x0 , S , N , a , lerr ) result ( fnew ) implicit none ! Arguments integer ( I4B ), intent ( in ) :: N class ( lambda_obj ), intent ( inout ) :: f real ( DP ), dimension (:), intent ( in ) :: x0 , S real ( DP ), intent ( in ) :: a logical , intent ( out ) :: lerr ! Return real ( DP ) :: fnew ! Internals real ( DP ), dimension ( N ) :: xnew integer ( I4B ) :: i xnew (:) = x0 (:) + a * S (:) fnew = f % eval ( xnew (:)) select type ( f ) class is ( lambda_obj_err ) lerr = f % lerr class is ( lambda_obj ) lerr = . false . end select return end function n2one ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - subroutine bracket ( f , x0 , S , N , gam , step , lo , hi , lerr ) ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - !! This subroutine brackets the minimum.  It recieves as input: !!   f%eval(x) : lambda function object containing the objective function as the eval metho !!   x0   :  Array of size N of initial x values !!   S    :  Array of size N that determines the direction of minimization !!   gam  :  expansion parameter !!   step :  step size !!   lo   :  initial guess of lo bracket value !! The outputs include !!   lo   :  lo bracket !!   hi   :  hi bracket !!   lerr : .true. if an error occurred. Otherwise returns .false. !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - implicit none ! Arguments integer ( I4B ), intent ( in ) :: N class ( lambda_obj ), intent ( inout ) :: f real ( DP ), dimension (:), intent ( in ) :: x0 , S real ( DP ), intent ( in ) :: gam , step real ( DP ), intent ( inout ) :: lo real ( DP ), intent ( out ) :: hi logical , intent ( out ) :: lerr ! Internals real ( DP ) :: a0 , a1 , a2 , atmp , da real ( DP ) :: f0 , f1 , f2 integer ( I4B ) :: i , j integer ( I4B ), parameter :: MAXLOOP = 100 ! maximum number of loops before method is determined to have failed real ( DP ), parameter :: eps = epsilon ( lo ) ! small number precision to test floating point equality ! set up initial bracket points a0 = lo da = step a1 = a0 + da a2 = a0 + 2 * da f0 = n2one ( f , x0 , S , N , a0 , lerr ) if ( lerr ) return f1 = n2one ( f , x0 , S , N , a1 , lerr ) if ( lerr ) return f2 = n2one ( f , x0 , S , N , a2 , lerr ) if ( lerr ) return ! loop over bracket method until either min is bracketed method fails do i = 1 , MAXLOOP if (( f0 > f1 ) . and . ( f1 < f2 )) then ! Minimum was found lo = a0 hi = a2 return else if (( f0 >= f1 ) . and . ( f1 > f2 )) then ! Function appears to decrease da = da * gam atmp = a2 + da a0 = a1 a1 = a2 a2 = atmp f0 = f1 f1 = f2 f2 = n2one ( f , x0 , S , N , a2 , lerr ) else if (( f0 < f1 ) . and . ( f1 <= f2 )) then ! Function appears to increase da = da * gam atmp = a0 - da a2 = a1 a1 = a0 a0 = atmp f2 = f1 f0 = n2one ( f , x0 , S , N , a0 , lerr ) else if (( f0 < f1 ) . and . ( f1 > f2 )) then ! We are at a peak. Pick the direction that descends the fastest da = da * gam if ( f2 > f0 ) then ! LHS is lower than RHS atmp = a2 + da a0 = a1 a1 = a2 a2 = atmp f0 = f1 f1 = f2 f2 = n2one ( f , x0 , S , N , a2 , lerr ) else ! RHS is lower than LHS atmp = a0 - da a2 = a1 a1 = a0 a0 = atmp f2 = f1 f1 = f2 f0 = n2one ( f , x0 , S , N , a0 , lerr ) end if else if (( f0 > f1 ) . and . ( abs ( f2 - f1 ) <= eps )) then ! Decrasging but RHS equal da = da * gam atmp = a2 + da a2 = atmp f2 = n2one ( f , x0 , S , N , a2 , lerr ) else if (( abs ( f0 - f1 ) < eps ) . and . ( f1 < f2 )) then ! Increasing but LHS equal da = da * gam atmp = a0 - da a0 = atmp f0 = n2one ( f , x0 , S , N , a0 , lerr ) else ! all values equal. Expand in either direction and try again a0 = a0 - da a2 = a2 + da f0 = n2one ( f , x0 , S , N , a0 , lerr ) if ( lerr ) exit ! An error occurred while evaluating the function f2 = n2one ( f , x0 , S , N , a2 , lerr ) end if if ( lerr ) exit ! An error occurred while evaluating the function end do lerr = . true . return ! no minimum found end subroutine bracket ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - subroutine golden ( f , x0 , S , N , eps , lo , hi , lerr ) ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - !! This function uses the golden section method to reduce the starting interval lo, hi by some amount sigma. !! It recieves as input: !!   f%eval(x) : lambda function object containing the objective function as the eval metho !!   x0   :  Array of size N of initial x values !!   S    :  Array of size N that determines the direction of minimization !!   gam  :  expansion parameter !!   eps  :  reduction interval in range (0 < sigma < 1) such that: !!             hi(new) - lo(new) = eps * (hi(old) - lo(old)) !!   lo   :  initial guess of lo bracket value !! The outputs include !!   lo   :  lo bracket !!   hi   :  hi bracket !!   lerr : .true. if an error occurred. Otherwise returns .false. !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - implicit none ! Arguments integer ( I4B ), intent ( in ) :: N class ( lambda_obj ), intent ( inout ) :: f real ( DP ), dimension (:), intent ( in ) :: x0 , S real ( DP ), intent ( in ) :: eps real ( DP ), intent ( inout ) :: lo real ( DP ), intent ( out ) :: hi logical , intent ( out ) :: lerr ! Internals real ( DP ), parameter :: tau = 0.5_DP * ( sqrt ( 5.0_DP ) - 1.0_DP ) ! Golden section constant integer ( I4B ), parameter :: MAXLOOP = 40 ! maximum number of loops before method is determined to have failed (unlikely, but could occur if no minimum exists between lo and hi) real ( DP ) :: i0 ! Initial interval value real ( DP ) :: a1 , a2 real ( DP ) :: f1 , f2 integer ( I4B ) :: i , j i0 = hi - lo a1 = hi - tau * i0 a2 = lo + tau * i0 f1 = n2one ( f , x0 , S , N , a1 , lerr ) if ( lerr ) return f2 = n2one ( f , x0 , S , N , a2 , lerr ) if ( lerr ) return do i = 1 , MAXLOOP if ( abs (( hi - lo ) / i0 ) <= eps ) return ! interval reduced to input amount if ( f2 > f1 ) then hi = a2 a2 = a1 f2 = f1 a1 = hi - tau * ( hi - lo ) f1 = n2one ( f , x0 , S , N , a1 , lerr ) else lo = a1 a1 = a2 f2 = f1 a2 = hi - ( 1.0_DP - tau ) * ( hi - lo ) f2 = n2one ( f , x0 , S , N , a2 , lerr ) end if if ( lerr ) exit end do lerr = . true . return ! search took too many iterations - no minimum found end subroutine golden ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - subroutine quadfit ( f , x0 , S , N , eps , lo , hi , lerr ) ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - !! This function uses a quadratic polynomial fit to locate the minimum of a function !! to some accuracy eps.  It recieves as input: !!   f%eval(x) : lambda function object containing the objective function as the eval metho !!   lo    :  low bracket value !!   hi    :  high bracket value !!   eps   :  desired accuracy of final minimum location !! The outputs include !!   lo   :  final minimum location !!   hi   :  final minimum location !! Notes: Uses the ieee_exceptions intrinsic module to allow for graceful failure due to floating point exceptions, which won't terminate the run. !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - implicit none ! Arguments integer ( I4B ), intent ( in ) :: N class ( lambda_obj ), intent ( inout ) :: f real ( DP ), dimension (:), intent ( in ) :: x0 , S real ( DP ), intent ( in ) :: eps real ( DP ), intent ( inout ) :: lo real ( DP ), intent ( out ) :: hi logical , intent ( out ) :: lerr ! Internals integer ( I4B ), parameter :: MAXLOOP = 20 ! maximum number of loops before method is determined to have failed. real ( DP ) :: a1 , a2 , a3 , astar ! three points for the polynomial fit and polynomial minimum real ( DP ) :: f1 , f2 , f3 , fstar ! three function values for the polynomial and polynomial minimum real ( DP ), dimension ( 3 ) :: row_1 , row_2 , row_3 , rhs , soln ! matrix for 3 equation solver (gaussian elimination) real ( DP ), dimension ( 3 , 3 ) :: lhs real ( DP ) :: d1 , d2 , d3 , aold , denom , errval integer ( I4B ) :: i lerr = . false . ! Get initial a1, a2, a3 values a1 = lo a2 = lo + 0.5_DP * ( hi - lo ) a3 = hi aold = a1 astar = a2 f1 = n2one ( f , x0 , S , N , a1 , lerr ) if ( lerr ) return f2 = n2one ( f , x0 , S , N , a2 , lerr ) if ( lerr ) return f3 = n2one ( f , x0 , S , N , a3 , lerr ) if ( lerr ) return do i = 1 , MAXLOOP ! check to see if convergence is reached and exit errval = abs (( astar - aold ) / astar ) call ieee_get_flag ( ieee_usual , fpe_flag ) if ( any ( fpe_flag )) then !write(*,*) 'quadfit fpe' !write(*,*) 'aold : ',aold !write(*,*) 'astar: ',astar lerr = . true . exit end if if ( errval < eps ) then lo = astar hi = astar exit end if ! Set up system for gaussian elimination equation solver row_1 = [ 1.0_DP , a1 , a1 ** 2 ] row_2 = [ 1.0_DP , a2 , a2 ** 2 ] row_3 = [ 1.0_DP , a3 , a3 ** 2 ] rhs = [ f1 , f2 , f3 ] lhs ( 1 , :) = row_1 lhs ( 2 , :) = row_2 lhs ( 3 , :) = row_3 ! Solve system of equations soln (:) = util_solve_linear_system ( lhs , rhs , 3 , lerr ) call ieee_set_flag ( ieee_all , . false .) ! Set all flags back to quiet call ieee_set_halting_mode ( ieee_divide_by_zero , . false .) if ( lerr ) then !write(*,*) 'quadfit fpe:' !write(*,*) 'util_solve_linear_system failed' exit end if aold = astar if ( soln ( 2 ) == soln ( 3 )) then ! Handles the case where they are both 0. 0/0 is an unhandled exception astar = - 0.5_DP else astar = - soln ( 2 ) / ( 2 * soln ( 3 )) end if call ieee_get_flag ( ieee_usual , fpe_flag ) if ( any ( fpe_flag )) then !write(*,*) 'quadfit fpe' !write(*,*) 'soln(2:3): ',soln(2:3) !write(*,*) 'a1, a2, a3' !write(*,*) a1, a2, a3 !write(*,*) 'f1, f2, f3' !write(*,*) f1, f2, f3 lerr = . true . exit end if fstar = n2one ( f , x0 , S , N , astar , lerr ) if ( lerr ) exit ! keep the three closest a values to astar and discard the fourth d1 = abs ( a1 - astar ) d2 = abs ( a2 - astar ) d3 = abs ( a3 - astar ) if ( d1 > d2 ) then if ( d1 > d3 ) then f1 = fstar a1 = astar else if ( d3 > d2 ) then f3 = fstar a3 = astar end if else if ( d2 > d3 ) then f2 = fstar a2 = astar else if ( d3 > d1 ) then f3 = fstar a3 = astar end if end if end do if ( lerr ) return lo = a1 hi = a3 return end subroutine quadfit end function util_minimize_bfgs end submodule s_util_minimize_bfgs","tags":"","loc":"sourcefile/util_minimize_bfgs.f90.html"},{"title":"util_append.f90 – swiftest","text":"This file depends on sourcefile~~util_append.f90~~EfferentGraph sourcefile~util_append.f90 util_append.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_append.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_append Source Code util_append.f90 Source Code submodule ( swiftest_classes ) s_util_append use swiftest contains module subroutine util_append_arr_char_string ( arr , source , lsource_mask ) !! author: David A. Minton !! !! Append a single array of character string type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. implicit none ! Arguments character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array character ( len = STRMAX ), dimension (:), allocatable , intent ( in ) :: source !! Array to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to ! Internals integer ( I4B ) :: narr , nsrc if (. not . allocated ( source )) return if ( present ( lsource_mask )) then nsrc = count ( lsource_mask ) else nsrc = size ( source ) end if if ( allocated ( arr )) then narr = size ( arr ) else allocate ( arr ( nsrc )) narr = 0 end if call util_resize ( arr , narr + nsrc ) if ( present ( lsource_mask )) then arr ( narr + 1 : narr + nsrc ) = pack ( source (:), lsource_mask (:)) else arr ( narr + 1 : narr + nsrc ) = source (:) end if return end subroutine util_append_arr_char_string module subroutine util_append_arr_DP ( arr , source , lsource_mask ) !! author: David A. Minton !! !! Append a single array of double precision type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. implicit none ! Arguments real ( DP ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array real ( DP ), dimension (:), allocatable , intent ( in ) :: source !! Array to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to ! Internals integer ( I4B ) :: narr , nsrc if (. not . allocated ( source )) return if ( present ( lsource_mask )) then nsrc = count ( lsource_mask ) else nsrc = size ( source ) end if if ( allocated ( arr )) then narr = size ( arr ) else allocate ( arr ( nsrc )) narr = 0 end if call util_resize ( arr , narr + nsrc ) if ( present ( lsource_mask )) then arr ( narr + 1 : narr + nsrc ) = pack ( source (:), lsource_mask (:)) else arr ( narr + 1 : narr + nsrc ) = source (:) end if return end subroutine util_append_arr_DP module subroutine util_append_arr_DPvec ( arr , source , lsource_mask ) !! author: David A. Minton !! !! Append a single array of double precision vector type of size (NDIM, n) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. implicit none ! Arguments real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: arr !! Destination array real ( DP ), dimension (:,:), allocatable , intent ( in ) :: source !! Array to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to ! Internals integer ( I4B ) :: narr , nsrc if (. not . allocated ( source )) return if ( present ( lsource_mask )) then nsrc = count ( lsource_mask ) else nsrc = size ( source , dim = 2 ) end if if ( allocated ( arr )) then narr = size ( arr , dim = 2 ) else allocate ( arr ( NDIM , nsrc )) narr = 0 end if call util_resize ( arr , narr + nsrc ) if ( present ( lsource_mask )) then arr ( 1 , narr + 1 : narr + nsrc ) = pack ( source ( 1 ,:), lsource_mask (:)) arr ( 2 , narr + 1 : narr + nsrc ) = pack ( source ( 2 ,:), lsource_mask (:)) arr ( 3 , narr + 1 : narr + nsrc ) = pack ( source ( 3 ,:), lsource_mask (:)) else arr (:, narr + 1 : narr + nsrc ) = source (:,:) end if return end subroutine util_append_arr_DPvec module subroutine util_append_arr_I4B ( arr , source , lsource_mask ) !! author: David A. Minton !! !! Append a single array of integer(I4B) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. implicit none ! Arguments integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), allocatable , intent ( in ) :: source !! Array to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to ! Internals integer ( I4B ) :: narr , nsrc if (. not . allocated ( source )) return if ( present ( lsource_mask )) then nsrc = count ( lsource_mask ) else nsrc = size ( source ) end if if ( allocated ( arr )) then narr = size ( arr ) else allocate ( arr ( nsrc )) narr = 0 end if call util_resize ( arr , narr + nsrc ) if ( present ( lsource_mask )) then arr ( narr + 1 : narr + nsrc ) = pack ( source (:), lsource_mask (:)) else arr ( narr + 1 : narr + nsrc ) = source (:) end if return end subroutine util_append_arr_I4B module subroutine util_append_arr_logical ( arr , source , lsource_mask ) !! author: David A. Minton !! !! Append a single array of logical type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. implicit none ! Arguments logical , dimension (:), allocatable , intent ( inout ) :: arr !! Destination array logical , dimension (:), allocatable , intent ( in ) :: source !! Array to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to ! Internals integer ( I4B ) :: narr , nsrc if (. not . allocated ( source )) return if ( allocated ( arr )) then narr = size ( arr ) else allocate ( arr ( nsrc )) narr = 0 end if if ( present ( lsource_mask )) then nsrc = count ( lsource_mask ) else nsrc = size ( source ) end if call util_resize ( arr , narr + nsrc ) if ( present ( lsource_mask )) then arr ( narr + 1 : narr + nsrc ) = pack ( source (:), lsource_mask (:)) else arr ( narr + 1 : narr + nsrc ) = source (:) end if return end subroutine util_append_arr_logical module subroutine util_append_body ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from one Swiftest body object to another. !! This method will automatically resize the destination body if it is too small implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to call util_append ( self % name , source % name , lsource_mask ) call util_append ( self % id , source % id , lsource_mask ) call util_append ( self % status , source % status , lsource_mask ) call util_append ( self % ldiscard , source % ldiscard , lsource_mask ) call util_append ( self % lmask , source % lmask , lsource_mask ) call util_append ( self % mu , source % mu , lsource_mask ) call util_append ( self % xh , source % xh , lsource_mask ) call util_append ( self % vh , source % vh , lsource_mask ) call util_append ( self % xb , source % xb , lsource_mask ) call util_append ( self % vb , source % vb , lsource_mask ) call util_append ( self % ah , source % ah , lsource_mask ) call util_append ( self % aobl , source % aobl , lsource_mask ) call util_append ( self % atide , source % atide , lsource_mask ) call util_append ( self % agr , source % agr , lsource_mask ) call util_append ( self % ir3h , source % ir3h , lsource_mask ) call util_append ( self % a , source % a , lsource_mask ) call util_append ( self % e , source % e , lsource_mask ) call util_append ( self % inc , source % inc , lsource_mask ) call util_append ( self % capom , source % capom , lsource_mask ) call util_append ( self % omega , source % omega , lsource_mask ) call util_append ( self % capm , source % capm , lsource_mask ) self % nbody = count ( self % status (:) /= INACTIVE ) return end subroutine util_append_body module subroutine util_append_pl ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from one Swiftest body object to another. !! This method will automatically resize the destination body if it is too small implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to select type ( source ) class is ( swiftest_pl ) call util_append_body ( self , source , lsource_mask ) call util_append ( self % mass , source % mass , lsource_mask ) call util_append ( self % Gmass , source % Gmass , lsource_mask ) call util_append ( self % rhill , source % rhill , lsource_mask ) call util_append ( self % radius , source % radius , lsource_mask ) call util_append ( self % xbeg , source % xbeg , lsource_mask ) call util_append ( self % xend , source % xend , lsource_mask ) call util_append ( self % vbeg , source % vbeg , lsource_mask ) call util_append ( self % density , source % density , lsource_mask ) call util_append ( self % Ip , source % Ip , lsource_mask ) call util_append ( self % rot , source % rot , lsource_mask ) call util_append ( self % k2 , source % k2 , lsource_mask ) call util_append ( self % Q , source % Q , lsource_mask ) call util_append ( self % tlag , source % tlag , lsource_mask ) call self % eucl_index () class default write ( * , * ) \"Invalid object passed to the append method. Source must be of class swiftest_pl or its descendents\" call util_exit ( FAILURE ) end select return end subroutine util_append_pl module subroutine util_append_tp ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from one Swiftest body object to another. !! This method will automatically resize the destination body if it is too small implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to select type ( source ) class is ( swiftest_tp ) call util_append_body ( self , source , lsource_mask ) call util_append ( self % isperi , source % isperi , lsource_mask ) call util_append ( self % peri , source % peri , lsource_mask ) call util_append ( self % atp , source % atp , lsource_mask ) class default write ( * , * ) \"Invalid object passed to the append method. Source must be of class swiftest_tp or its descendents\" call util_exit ( FAILURE ) end select return end subroutine util_append_tp end submodule s_util_append","tags":"","loc":"sourcefile/util_append.f90.html"},{"title":"util_get_energy_momentum.f90 – swiftest","text":"This file depends on sourcefile~~util_get_energy_momentum.f90~~EfferentGraph sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_get_energy_momentum Source Code util_get_energy_momentum.f90 Source Code submodule ( swiftest_classes ) s_util_get_energy_momentum use swiftest contains module subroutine util_get_energy_momentum_system ( self , param ) !! author: David A. Minton !! !! Compute total system angular momentum vector and kinetic, potential and total system energy !! !! Adapted from David E. Kaufmann Swifter routine symba_energy_eucl.f90 !! !! Adapted from Martin Duncan's Swift routine anal_energy.f implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i , j integer ( I8B ) :: k real ( DP ) :: rmag , v2 , rot2 , oblpot , hx , hy , hz , hsx , hsy , hsz real ( DP ), dimension ( self % pl % nbody ) :: irh , kepl , kespinpl , pecb real ( DP ), dimension ( self % pl % nbody ) :: Lplorbitx , Lplorbity , Lplorbitz real ( DP ), dimension ( self % pl % nbody ) :: Lplspinx , Lplspiny , Lplspinz real ( DP ), dimension ( self % pl % nplpl ) :: pepl logical , dimension ( self % pl % nplpl ) :: lstatpl logical , dimension ( self % pl % nbody ) :: lstatus associate ( system => self , pl => self % pl , npl => self % pl % nbody , cb => self % cb ) system % Lorbit (:) = 0.0_DP system % Lspin (:) = 0.0_DP system % ke_orbit = 0.0_DP system % ke_spin = 0.0_DP kepl (:) = 0.0_DP Lplorbitx (:) = 0.0_DP Lplorbity (:) = 0.0_DP Lplorbitz (:) = 0.0_DP Lplspinx (:) = 0.0_DP Lplspiny (:) = 0.0_DP Lplspinz (:) = 0.0_DP lstatus ( 1 : npl ) = pl % status ( 1 : npl ) /= INACTIVE !!$omp simd private(v2, rot2, hx, hy, hz) do i = 1 , npl v2 = dot_product ( pl % vb (:, i ), pl % vb (:, i )) hx = pl % xb ( 2 , i ) * pl % vb ( 3 , i ) - pl % xb ( 3 , i ) * pl % vb ( 2 , i ) hy = pl % xb ( 3 , i ) * pl % vb ( 1 , i ) - pl % xb ( 1 , i ) * pl % vb ( 3 , i ) hz = pl % xb ( 1 , i ) * pl % vb ( 2 , i ) - pl % xb ( 2 , i ) * pl % vb ( 1 , i ) ! Angular momentum from orbit Lplorbitx ( i ) = pl % mass ( i ) * hx Lplorbity ( i ) = pl % mass ( i ) * hy Lplorbitz ( i ) = pl % mass ( i ) * hz ! Kinetic energy from orbit and spin kepl ( i ) = pl % mass ( i ) * v2 end do if ( param % lrotation ) then do i = 1 , npl rot2 = dot_product ( pl % rot (:, i ), pl % rot (:, i )) ! For simplicity, we always assume that the rotation pole is the 3rd principal axis hsx = pl % Ip ( 3 , i ) * pl % radius ( i ) ** 2 * pl % rot ( 1 , i ) hsy = pl % Ip ( 3 , i ) * pl % radius ( i ) ** 2 * pl % rot ( 2 , i ) hsz = pl % Ip ( 3 , i ) * pl % radius ( i ) ** 2 * pl % rot ( 3 , i ) ! Angular momentum from spin Lplspinx ( i ) = pl % mass ( i ) * hsx Lplspiny ( i ) = pl % mass ( i ) * hsy Lplspinz ( i ) = pl % mass ( i ) * hsz kespinpl ( i ) = pl % mass ( i ) * pl % Ip ( 3 , i ) * pl % radius ( i ) ** 2 * rot2 end do else kespinpl (:) = 0.0_DP end if ! Do the central body potential energy component first !$omp simd do i = 1 , npl associate ( px => pl % xh ( 1 , i ), py => pl % xh ( 2 , i ), pz => pl % xh ( 3 , i )) pecb ( i ) = - cb % mass * pl % mass ( i ) / sqrt ( px ** 2 + py ** 2 + pz ** 2 ) end associate end do ! Do the potential energy between pairs of massive bodies do k = 1 , pl % nplpl associate ( ik => pl % k_plpl ( 1 , k ), jk => pl % k_plpl ( 2 , k )) pepl ( k ) = - pl % mass ( ik ) * pl % mass ( jk ) / norm2 ( pl % xb (:, jk ) - pl % xb (:, ik )) lstatpl ( k ) = ( lstatus ( ik ) . and . lstatus ( jk )) end associate end do system % ke_orbit = 0.5_DP * sum ( kepl ( 1 : npl ), lstatus (:)) if ( param % lrotation ) system % ke_spin = 0.5_DP * sum ( kespinpl ( 1 : npl ), lstatus (:)) system % pe = sum ( pepl (:), lstatpl (:)) + sum ( pecb ( 2 : npl ), lstatus ( 2 : npl )) ! Potential energy from the oblateness term if ( param % loblatecb ) then !$omp simd do i = 1 , npl irh ( i ) = 1.0_DP / norm2 ( pl % xh (:, i )) end do call obl_pot ( npl , cb % mass , pl % mass , cb % j2rp2 , cb % j4rp4 , pl % xh , irh , oblpot ) system % pe = system % pe + oblpot end if system % Lorbit ( 1 ) = sum ( Lplorbitx ( 1 : npl ), lstatus ( 1 : npl )) system % Lorbit ( 2 ) = sum ( Lplorbity ( 1 : npl ), lstatus ( 1 : npl )) system % Lorbit ( 3 ) = sum ( Lplorbitz ( 1 : npl ), lstatus ( 1 : npl )) system % Lspin ( 1 ) = sum ( Lplspinx ( 1 : npl ), lstatus ( 1 : npl )) system % Lspin ( 2 ) = sum ( Lplspiny ( 1 : npl ), lstatus ( 1 : npl )) system % Lspin ( 3 ) = sum ( Lplspinz ( 1 : npl ), lstatus ( 1 : npl )) end associate return end subroutine util_get_energy_momentum_system end submodule s_util_get_energy_momentum","tags":"","loc":"sourcefile/util_get_energy_momentum.f90.html"},{"title":"gr.f90 – swiftest","text":"This file depends on sourcefile~~gr.f90~~EfferentGraph sourcefile~gr.f90 gr.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~gr.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_gr Source Code gr.f90 Source Code submodule ( swiftest_classes ) s_gr use swiftest contains module pure subroutine gr_kick_getaccb_ns_body ( self , system , param ) !! author: David A. Minton !! !! Add relativistic correction acceleration for non-symplectic integrators. !! Based on Quinn et al. (1991) eq. 5 !! !! Reference: !!    Quinn, T.R., Tremaine, S., Duncan, M., 1991. A three million year integration of the earth’s orbit. !!       AJ 101, 2287–2305. https://doi.org/10.1086/115850 !! !! Adapted from David A. Minton's Swifter routine routine gr_kick_getaccb_ns.f90 implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest generic body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals real ( DP ) :: rmag , rdotv , vmag2 integer ( I4B ) :: i associate ( n => self % nbody , cb => system % cb , inv_c2 => param % inv_c2 ) if ( n == 0 ) return do i = 1 , n rmag = norm2 ( self % xh (:, i )) vmag2 = dot_product ( self % vh (:, i ), self % vh (:, i )) rdotv = dot_product ( self % xh (:, i ), self % vh (:, i )) self % agr (:, i ) = self % mu * inv_c2 / rmag ** 3 * (( 4 * self % mu ( i ) / rmag - vmag2 ) * self % xh (:, i ) + 4 * rdotv * self % vh (:, i )) end do select type ( self ) class is ( swiftest_pl ) do i = 1 , NDIM cb % agr ( i ) = - sum ( self % Gmass ( 1 : n ) * self % agr ( 1 : n , i ) / cb % Gmass ) end do end select end associate return end subroutine gr_kick_getaccb_ns_body module subroutine gr_kick_getacch ( mu , x , lmask , n , inv_c2 , agr ) !! author: David A. Minton !! !! Compute relativisitic accelerations of massive bodies !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_whm_kick_getacch.f90 implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: mu !! Gravitational constant real ( DP ), dimension (:,:), intent ( in ) :: x !! Position vectors logical , dimension (:), intent ( in ) :: lmask !! Logical mask indicating which bodies to compute integer ( I4B ), intent ( in ) :: n !! Total number of bodies real ( DP ), intent ( in ) :: inv_c2 !! Inverse speed of light squared: 1 / c**2 real ( DP ), dimension (:,:), intent ( out ) :: agr !! Accelerations ! Internals integer ( I4B ) :: i real ( DP ) :: beta , rjmag4 agr (:,:) = 0.0_DP do concurrent ( i = 1 : n , lmask ( i )) rjmag4 = ( dot_product ( x (:, i ), x (:, i ))) ** 2 beta = - mu ( i ) ** 2 * inv_c2 agr (:, i ) = 2 * beta * x (:, i ) / rjmag4 end do return end subroutine gr_kick_getacch module pure subroutine gr_p4_pos_kick ( param , x , v , dt ) !! author: David A. Minton !! !! Position kick due to p**4 term in the post-Newtonian correction !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Reference: !!    Saha, P., Tremaine, S., 1994. Long-term planetary integration with individual time steps. !!       AJ 108, 1962–1969. https://doi.org/10.1086/117210 !! !! Adapted from David A. Minton's Swifter routine gr_whm_p4.f90 implicit none ! Arguments class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), dimension (:), intent ( inout ) :: x !! Position vector real ( DP ), dimension (:), intent ( in ) :: v !! Velocity vector real ( DP ), intent ( in ) :: dt !! Step size ! Internals real ( DP ), dimension ( NDIM ) :: dr real ( DP ) :: vmag2 vmag2 = dot_product ( v (:), v (:)) dr (:) = - 2 * param % inv_c2 * vmag2 * v (:) x (:) = x (:) + dr (:) * dt return end subroutine gr_p4_pos_kick module pure subroutine gr_pseudovel2vel ( param , mu , xh , pv , vh ) !! author: David A. Minton !! !! Converts the relativistic pseudovelocity back into a veliocentric velocity !!    Based on Saha & Tremaine (1994) Eq. 32 !! !! Reference: !!    Saha, P., Tremaine, S., 1994. Long-term planetary integration with individual time steps. !!       AJ 108, 1962–1969. https://doi.org/10.1086/117210 !! !! Adapted from David A. Minton's Swifter routine gr_pseudovel2vel.f90 implicit none ! Arguments class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: mu !! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real ( DP ), dimension (:), intent ( in ) :: xh !! Heliocentric position vector real ( DP ), dimension (:), intent ( in ) :: pv !! Pseudovelocity velocity vector - see Saha & Tremain (1994), eq. (32) real ( DP ), dimension (:), intent ( out ) :: vh !! Heliocentric velocity vector ! Internals real ( DP ) :: vmag2 , rmag , grterm associate ( inv_c2 => param % inv_c2 ) vmag2 = dot_product ( pv (:), pv (:)) rmag = norm2 ( xh (:)) grterm = 1.0_DP - inv_c2 * ( 0.5_DP * vmag2 + 3 * mu / rmag ) vh (:) = pv (:) * grterm end associate return end subroutine gr_pseudovel2vel module pure subroutine gr_pv2vh_body ( self , param ) !! author: David A. Minton !! !! Wrapper function that converts from pseudovelocity to heliocentric velocity for swiftest bodies implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ), dimension (:,:), allocatable :: vh !! Temporary holder of pseudovelocity for in-place conversion associate ( n => self % nbody ) if ( n == 0 ) return allocate ( vh , mold = self % vh ) do i = 1 , n call gr_pseudovel2vel ( param , self % mu ( i ), self % xh (:, i ), self % vh (:, i ), vh (:, i )) end do call move_alloc ( vh , self % vh ) end associate return end subroutine gr_pv2vh_body module pure subroutine gr_vel2pseudovel ( param , mu , xh , vh , pv ) !! author: David A. Minton !! !! Converts the heliocentric velocity into a pseudovelocity with relativistic corrections. !! Uses Newton-Raphson method with direct inversion of the Jacobian (yeah, it's slow, but !! this is only done once per run). !! !! Reference: !!    Saha, P., Tremaine, S., 1994. Long-term planetary integration with individual time steps. !!       AJ 108, 1962–1969. https://doi.org/10.1086/117210 !! !! Adapted from David A. Minton's Swifter routine gr_vel2pseudovel.f90 implicit none ! Arguments class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: mu !! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real ( DP ), dimension (:), intent ( in ) :: xh !! Heliocentric position vector real ( DP ), dimension (:), intent ( in ) :: vh !! Heliocentric velocity vector real ( DP ), dimension (:), intent ( out ) :: pv !! Pseudovelocity vector - see Saha & Tremain (1994), eq. (32) ! Internals real ( DP ) :: v2 , G , pv2 , rterm , det real ( DP ), dimension ( NDIM , NDIM ) :: J , Jinv real ( DP ), dimension ( NDIM ) :: F integer ( I4B ) :: n , i , k integer ( I4B ), parameter :: MAXITER = 50 real ( DP ), parameter :: TOL = 1.0e-12_DP associate ( inv_c2 => param % inv_c2 ) pv ( 1 : NDIM ) = vh ( 1 : NDIM ) ! Initial guess rterm = 3 * mu / norm2 ( xh (:)) v2 = dot_product ( vh (:), vh (:)) do n = 1 , MAXITER pv2 = dot_product ( pv (:), pv (:)) G = 1.0_DP - inv_c2 * ( 0.5_DP * pv2 + rterm ) F (:) = pv (:) * G - vh (:) if ( abs ( sum ( F ) / v2 ) < TOL ) exit ! Root found ! Calculate the Jacobian do k = 1 , NDIM do i = 1 , NDIM if ( i == k ) then J ( i , k ) = G - inv_c2 * pv ( k ) else J ( i , k ) = - inv_c2 * pv ( k ) end if end do end do ! Inverse of the Jacobian det = J ( 1 , 1 ) * ( J ( 3 , 3 ) * J ( 2 , 2 ) - J ( 3 , 2 ) * J ( 2 , 3 )) det = det - J ( 2 , 1 ) * ( J ( 3 , 3 ) * J ( 1 , 2 ) - J ( 3 , 2 ) * J ( 1 , 3 )) det = det + J ( 3 , 1 ) * ( J ( 2 , 3 ) * J ( 1 , 2 ) - J ( 2 , 2 ) * J ( 1 , 3 )) Jinv ( 1 , 1 ) = J ( 3 , 3 ) * J ( 2 , 2 ) - J ( 3 , 2 ) * J ( 2 , 3 ) Jinv ( 1 , 2 ) = - ( J ( 3 , 3 ) * J ( 1 , 2 ) - J ( 3 , 2 ) * J ( 1 , 3 )) Jinv ( 1 , 3 ) = J ( 2 , 3 ) * J ( 1 , 2 ) - J ( 2 , 2 ) * J ( 1 , 3 ) Jinv ( 2 , 1 ) = - ( J ( 3 , 3 ) * J ( 2 , 1 ) - J ( 3 , 1 ) * J ( 2 , 3 )) Jinv ( 2 , 2 ) = J ( 3 , 3 ) * J ( 1 , 1 ) - J ( 3 , 1 ) * J ( 1 , 3 ) Jinv ( 2 , 3 ) = - ( J ( 2 , 3 ) * J ( 1 , 1 ) - J ( 2 , 1 ) * J ( 1 , 3 )) Jinv ( 3 , 1 ) = J ( 3 , 2 ) * J ( 2 , 1 ) - J ( 3 , 1 ) * J ( 2 , 2 ) Jinv ( 3 , 2 ) = - ( J ( 3 , 2 ) * J ( 1 , 1 ) - J ( 3 , 1 ) * J ( 1 , 2 )) Jinv ( 3 , 3 ) = J ( 2 , 2 ) * J ( 1 , 1 ) - J ( 2 , 1 ) * J ( 1 , 2 ) Jinv = Jinv * det do i = 1 , NDIM pv ( i ) = pv ( i ) - dot_product ( Jinv ( i ,:), F (:)) end do end do end associate return end subroutine gr_vel2pseudovel module pure subroutine gr_vh2pv_body ( self , param ) !! author: David A. Minton !! !! Wrapper function that converts from heliocentric velocity to pseudovelocity for Swiftest bodies implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ), dimension (:,:), allocatable :: pv !! Temporary holder of pseudovelocity for in-place conversion associate ( n => self % nbody ) if ( n == 0 ) return allocate ( pv , mold = self % vh ) do i = 1 , n call gr_vel2pseudovel ( param , self % mu ( i ), self % xh (:, i ), self % vh (:, i ), pv (:, i )) end do call move_alloc ( pv , self % vh ) end associate return end subroutine gr_vh2pv_body end submodule s_gr","tags":"","loc":"sourcefile/gr.f90.html"},{"title":"discard.f90 – swiftest","text":"This file depends on sourcefile~~discard.f90~~EfferentGraph sourcefile~discard.f90 discard.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~discard.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_discard Source Code discard.f90 Source Code submodule ( swiftest_classes ) s_discard use swiftest contains module subroutine discard_system ( self , param ) !! author: David A. Minton !! !! Calls the discard methods for each body class and then the write method if any discards were detected !! implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals logical :: lany_discards associate ( system => self , tp => self % tp , pl => self % pl ) lany_discards = . false . call pl % discard ( system , param ) call tp % discard ( system , param ) if ( tp % nbody > 0 ) lany_discards = lany_discards . or . any ( tp % ldiscard (:)) if ( pl % nbody > 0 ) lany_discards = lany_discards . or . any ( pl % ldiscard (:)) if ( lany_discards ) call system % write_discard ( param ) end associate return end subroutine discard_system module subroutine discard_pl ( self , system , param ) !! author: David A. Minton !! !!  Placeholder method for discarding massive bodies. This method does nothing except to ensure that the discard flag is set to false. !!  This method is intended to be overridden by more advanced integrators. implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameter if ( self % nbody == 0 ) return self % ldiscard (:) = . false . return end subroutine discard_pl module subroutine discard_tp ( self , system , param ) !! author: David A. Minton !! !! Check to see if particles should be discarded based on their positions relative to the massive bodies !! !! Adapted from David E. Kaufmann's Swifter routine: discard.f90 !! Adapted from Hal Levison's Swift routine discard. implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameter associate ( tp => self , ntp => self % nbody , cb => system % cb , pl => system % pl , npl => system % pl % nbody ) if (( ntp == 0 ) . or . ( npl == 0 )) return if (( param % rmin >= 0.0_DP ) . or . ( param % rmax >= 0.0_DP ) . or . & ( param % rmaxu >= 0.0_DP ) . or . (( param % qmin >= 0.0_DP ) . and . ( param % qmin_coord == \"BARY\" ))) then call pl % h2b ( cb ) call tp % h2b ( cb ) end if if (( param % rmin >= 0.0_DP ) . or . ( param % rmax >= 0.0_DP ) . or . ( param % rmaxu >= 0.0_DP )) call discard_cb_tp ( tp , system , param ) if ( param % qmin >= 0.0_DP ) call discard_peri_tp ( tp , system , param ) if ( param % lclose ) call discard_pl_tp ( tp , system , param ) if ( any ( tp % ldiscard )) call tp % spill ( system % tp_discards , tp % ldiscard , ldestructive = . true .) end associate return end subroutine discard_tp subroutine discard_cb_tp ( tp , system , param ) !! author: David A. Minton !! !!  Check to see if test particles should be discarded based on their positions relative to the Sun !!        or because they are unbound from the system !! !! Adapted from David E. Kaufmann's Swifter routine: discard_sun.f90 !! Adapted from Hal Levison's Swift routine discard_sun.f implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: tp !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ) :: energy , vb2 , rb2 , rh2 , rmin2 , rmax2 , rmaxu2 associate ( ntp => tp % nbody , cb => system % cb , t => param % t , Gmtot => system % Gmtot ) rmin2 = max ( param % rmin * param % rmin , cb % radius * cb % radius ) rmax2 = param % rmax ** 2 rmaxu2 = param % rmaxu ** 2 do i = 1 , ntp if ( tp % status ( i ) == ACTIVE ) then rh2 = dot_product ( tp % xh (:, i ), tp % xh (:, i )) if (( param % rmax >= 0.0_DP ) . and . ( rh2 > rmax2 )) then tp % status ( i ) = DISCARDED_RMAX write ( * , * ) \"Particle \" , tp % id ( i ), \" too far from sun at t = \" , t tp % ldiscard ( i ) = . true . tp % lmask ( i ) = . false . else if (( param % rmin >= 0.0_DP ) . and . ( rh2 < rmin2 )) then tp % status ( i ) = DISCARDED_RMIN write ( * , * ) \"Particle \" , tp % id ( i ), \" too close to sun at t = \" , t tp % ldiscard ( i ) = . true . tp % lmask ( i ) = . false . else if ( param % rmaxu >= 0.0_DP ) then rb2 = dot_product ( tp % xb (:, i ), tp % xb (:, i )) vb2 = dot_product ( tp % vb (:, i ), tp % vb (:, i )) energy = 0.5_DP * vb2 - Gmtot / sqrt ( rb2 ) if (( energy > 0.0_DP ) . and . ( rb2 > rmaxu2 )) then tp % status ( i ) = DISCARDED_RMAXU write ( * , * ) \"Particle \" , tp % id ( i ), \" is unbound and too far from barycenter at t = \" , t tp % ldiscard ( i ) = . true . tp % lmask ( i ) = . false . end if end if end if end do end associate return end subroutine discard_cb_tp subroutine discard_peri_tp ( tp , system , param ) !! author: David A. Minton !! !! Check to see if a test particle should be discarded because its perihelion distance becomes too small !! !! Adapted from David E. Kaufmann's Swifter routine: discard_peri.f90 !! Adapted from Hal Levison's Swift routine discard_peri.f implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: tp !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameterss ! Internals logical , save :: lfirst = . true . integer ( I4B ) :: i , j , ih real ( DP ) :: r2 real ( DP ), dimension ( NDIM ) :: dx associate ( cb => system % cb , ntp => tp % nbody , pl => system % pl , npl => system % pl % nbody , t => param % t ) call tp % get_peri ( system , param ) do i = 1 , ntp if ( tp % status ( i ) == ACTIVE ) then if ( tp % isperi ( i ) == 0 ) then ih = 1 do j = 1 , npl dx (:) = tp % xh (:, i ) - pl % xh (:, j ) r2 = dot_product ( dx (:), dx (:)) if ( r2 <= ( pl % rhill ( j )) ** 2 ) ih = 0 end do if ( ih == 1 ) then if (( tp % atp ( i ) >= param % qmin_alo ) . and . & ( tp % atp ( i ) <= param % qmin_ahi ) . and . & ( tp % peri ( i ) <= param % qmin )) then tp % status ( i ) = DISCARDED_PERI write ( * , * ) \"Particle \" , tp % id ( i ), \" perihelion distance too small at t = \" , t tp % ldiscard ( i ) = . true . end if end if end if end if end do end associate return end subroutine discard_peri_tp subroutine discard_pl_tp ( tp , system , param ) !! author: David A. Minton !! !! Check to see if test particles should be discarded based on their positions relative to the massive bodies !! !! Adapted from David E. Kaufmann's Swifter routine: discard_pl.f90 !! Adapted from Hal Levison's Swift routine discard_pl.f implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: tp !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i , j , isp real ( DP ) :: r2min , radius real ( DP ), dimension ( NDIM ) :: dx , dv associate ( ntp => tp % nbody , pl => system % pl , npl => system % pl % nbody , t => param % t , dt => param % dt ) do i = 1 , ntp if ( tp % status ( i ) == ACTIVE ) then do j = 1 , npl dx (:) = tp % xh (:, i ) - pl % xh (:, j ) dv (:) = tp % vh (:, i ) - pl % vh (:, j ) radius = pl % radius ( j ) call discard_pl_close ( dx (:), dv (:), dt , radius ** 2 , isp , r2min ) if ( isp /= 0 ) then tp % status ( i ) = DISCARDED_PLR tp % lmask ( i ) = . false . pl % ldiscard ( j ) = . true . write ( * , * ) \"Particle \" , tp % id ( i ), \" too close to massive body \" , pl % id ( j ), \" at t = \" , t tp % ldiscard ( i ) = . true . exit end if end do end if end do end associate return end subroutine discard_pl_tp subroutine discard_pl_close ( dx , dv , dt , r2crit , iflag , r2min ) !! author: David A. Minton !! !!  Check to see if a test particle and massive body are having, or will have within the next time step, an encounter such !!          that the separation distance r is less than some critical radius rcrit (or r**2 < rcrit**2 = r2crit) !! !! Adapted from David E. Kaufmann's Swifter routine: discard_pl_close.f90 !! Adapted from Hal Levison's Swift routine discard_pl_close.f implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: dx , dv real ( DP ), intent ( in ) :: dt , r2crit integer ( I4B ), intent ( out ) :: iflag real ( DP ), intent ( out ) :: r2min ! Internals real ( DP ) :: r2 , v2 , vdotr , tmin r2 = dot_product ( dx (:), dx (:)) if ( r2 <= r2crit ) then iflag = 1 else vdotr = dot_product ( dx (:), dv (:)) if ( vdotr > 0.0_DP ) then iflag = 0 else v2 = dot_product ( dv (:), dv (:)) tmin = - vdotr / v2 if ( tmin < dt ) then r2min = r2 - vdotr * vdotr / v2 else r2min = r2 + 2 * vdotr * dt + v2 * dt ** 2 end if r2min = min ( r2min , r2 ) if ( r2min <= r2crit ) then iflag = 1 else iflag = 0 end if end if end if return end subroutine discard_pl_close end submodule s_discard","tags":"","loc":"sourcefile/discard.f90.html"},{"title":"helio_step.f90 – swiftest","text":"This file depends on sourcefile~~helio_step.f90~~EfferentGraph sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~helio_step.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_helio_step Source Code helio_step.f90 Source Code submodule ( helio_classes ) s_helio_step use swiftest contains module subroutine helio_step_system ( self , param , t , dt ) !! author: David A. Minton !! !! Step massive bodies and and active test particles ahead in heliocentric coordinates. !! !! Currently there's no difference between this and the WHM system stepper, so this is just !! a wrapper function to keep the method calls consistent for inherited types. !! !! Adapted from Hal Levison's Swift routine step_kdk.f !! Adapted from David E. Kaufmann's Swifter routine helio_step.f90 implicit none ! Arguments class ( helio_nbody_system ), intent ( inout ) :: self !! Helio nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize call whm_step_system ( self , param , t , dt ) return end subroutine helio_step_system module subroutine helio_step_pl ( self , system , param , t , dt ) !! author: David A. Minton !! !! Step massive bodies ahead Democratic Heliocentric method !! !! Adapted from David E. Kaufmann's Swifter helio_step_pl.f90 !! Adapted from Hal Levison's Swift routine helio_step_pl.f implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Helio massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nboody system class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Stepsize ! Internals real ( DP ) :: dth !! Half step size if ( self % nbody == 0 ) return associate ( pl => self ) select type ( cb => system % cb ) class is ( helio_cb ) dth = 0.5_DP * dt if ( pl % lfirst ) then call pl % vh2vb ( cb ) pl % lfirst = . false . end if call pl % lindrift ( cb , dth , lbeg = . true .) call pl % kick ( system , param , t , dth , lbeg = . true .) if ( param % lgr ) call pl % gr_pos_kick ( param , dth ) call pl % drift ( system , param , dt ) call pl % kick ( system , param , t + dt , dth , lbeg = . false .) if ( param % lgr ) call pl % gr_pos_kick ( param , dth ) call pl % lindrift ( cb , dth , lbeg = . false .) call pl % vb2vh ( cb ) end select end associate return end subroutine helio_step_pl module subroutine helio_step_tp ( self , system , param , t , dt ) !! author: David A. Minton !! !! Step active test particles ahead using Democratic Heliocentric method !! !! Adapted from David E. Kaufmann's Swifter routine helio_step_tp.f90 !! Adapted from Hal Levison's Swift routine helio_step_tp.f implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Helio test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nboody system class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Stepsize ! Internals real ( DP ) :: dth !! Half step size if ( self % nbody == 0 ) return associate ( tp => self ) select type ( cb => system % cb ) class is ( helio_cb ) dth = 0.5_DP * dt if ( tp % lfirst ) then call tp % vh2vb ( vbcb = - cb % ptbeg ) tp % lfirst = . false . end if call tp % lindrift ( cb , dth , lbeg = . true .) call tp % kick ( system , param , t , dth , lbeg = . true .) if ( param % lgr ) call tp % gr_pos_kick ( param , dth ) call tp % drift ( system , param , dt ) call tp % kick ( system , param , t + dt , dth , lbeg = . false .) if ( param % lgr ) call tp % gr_pos_kick ( param , dth ) call tp % lindrift ( cb , dth , lbeg = . false .) call tp % vb2vh ( vbcb = - cb % ptend ) end select end associate return end subroutine helio_step_tp end submodule s_helio_step","tags":"","loc":"sourcefile/helio_step.f90.html"},{"title":"helio_gr.f90 – swiftest","text":"This file depends on sourcefile~~helio_gr.f90~~EfferentGraph sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~helio_gr.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_helio_gr Source Code helio_gr.f90 Source Code submodule ( helio_classes ) s_helio_gr use swiftest contains module subroutine helio_gr_kick_getacch_pl ( self , param ) !! author: David A. Minton !! !! Compute relativisitic accelerations of massive bodies !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_whm_kick_getacch.f90 implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Helio massive body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: suma real ( DP ), dimension (:, :), allocatable :: aj real ( DP ) :: beta , rjmag4 if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) call gr_kick_getacch ( pl % mu , pl % xh , pl % lmask , npl , param % inv_c2 , pl % agr ) pl % ah (:, 1 : npl ) = pl % ah (:, 1 : npl ) + pl % agr (:, 1 : npl ) end associate return end subroutine helio_gr_kick_getacch_pl module subroutine helio_gr_kick_getacch_tp ( self , param ) !! author: David A. Minton !! !! Compute relativisitic accelerations of test particles !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_helio_kick_getacch.f90 implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Helio massive body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ) :: rjmag4 , beta if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) call gr_kick_getacch ( tp % mu , tp % xh , tp % lmask , ntp , param % inv_c2 , tp % agr ) tp % ah (:, 1 : ntp ) = tp % ah (:, 1 : ntp ) + tp % agr (:, 1 : ntp ) end associate return end subroutine helio_gr_kick_getacch_tp module pure subroutine helio_gr_p4_pl ( self , param , dt ) !! author: David A. Minton !! !! Position kick to massive bodies due to p**4 term in the post-Newtonian correction !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_helio_p4.f90 implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Step size ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) do concurrent ( i = 1 : npl , pl % lmask ( i )) call gr_p4_pos_kick ( param , pl % xh (:, i ), pl % vb (:, i ), dt ) end do end associate return end subroutine helio_gr_p4_pl module pure subroutine helio_gr_p4_tp ( self , param , dt ) !! author: David A. Minton !! !! Position kick to test particles due to p**4 term in the post-Newtonian correction !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_helio_p4.f90 implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Step size ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) do concurrent ( i = 1 : ntp , tp % lmask ( i )) call gr_p4_pos_kick ( param , tp % xh (:, i ), tp % vb (:, i ), dt ) end do end associate return end subroutine helio_gr_p4_tp end submodule s_helio_gr","tags":"","loc":"sourcefile/helio_gr.f90.html"},{"title":"helio_kick.f90 – swiftest","text":"This file depends on sourcefile~~helio_kick.f90~~EfferentGraph sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~helio_kick.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_helio_kick Source Code helio_kick.f90 Source Code submodule ( helio_classes ) s_helio_kick use swiftest contains module subroutine helio_kick_getacch_pl ( self , system , param , t , lbeg ) !! author: David A. Minton !! !! Compute heliocentric accelerations of massive bodies !! !! Adapted from David E. Kaufmann's Swifter routine helio_kick_getacch.f90 !! Adapted from Hal Levison's Swift routine helio_kick_getacch.f implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Helio massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step if ( self % nbody == 0 ) return associate ( cb => system % cb , pl => self , npl => self % nbody ) call pl % accel_int () if ( param % loblatecb ) then call pl % accel_obl ( system ) if ( lbeg ) then cb % aoblbeg = cb % aobl else cb % aoblend = cb % aobl end if if ( param % ltides ) then call pl % accel_tides ( system ) if ( lbeg ) then cb % atidebeg = cb % atide else cb % atideend = cb % atide end if end if end if if ( param % lextra_force ) call pl % accel_user ( system , param , t , lbeg ) if ( param % lgr ) call pl % accel_gr ( param ) end associate return end subroutine helio_kick_getacch_pl module subroutine helio_kick_getacch_tp ( self , system , param , t , lbeg ) !! author: David A. Minton !! !! Compute heliocentric accelerations of test particles !! !! Adapted from David E. Kaufmann's Swifter routine helio_kick_getacch_tp.f90 !! Adapted from Hal Levison's Swift routine helio_kick_getacch_tp.f implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Helio test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step if ( self % nbody == 0 ) return associate ( tp => self , cb => system % cb , pl => system % pl , npl => system % pl % nbody ) system % lbeg = lbeg if ( system % lbeg ) then call tp % accel_int ( pl % Gmass (:), pl % xbeg (:,:), npl ) else call tp % accel_int ( pl % Gmass (:), pl % xend (:,:), npl ) end if if ( param % loblatecb ) call tp % accel_obl ( system ) if ( param % lextra_force ) call tp % accel_user ( system , param , t , lbeg ) if ( param % lgr ) call tp % accel_gr ( param ) end associate return end subroutine helio_kick_getacch_tp module subroutine helio_kick_vb_pl ( self , system , param , t , dt , lbeg ) !! author: David A. Minton !! !! Kick barycentric velocities of bodies !! !! Adapted from Martin Duncan and Hal Levison's Swift routine kickvh.f !! Adapted from David E. Kaufmann's Swifter routine helio_kick_vb.f90 implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Swiftest generic body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) pl % ah (:,:) = 0.0_DP call pl % accel ( system , param , t , lbeg ) if ( lbeg ) then call pl % set_beg_end ( xbeg = pl % xh ) else call pl % set_beg_end ( xend = pl % xh ) end if do concurrent ( i = 1 : npl , pl % lmask ( i )) pl % vb (:, i ) = pl % vb (:, i ) + pl % ah (:, i ) * dt end do end associate return end subroutine helio_kick_vb_pl module subroutine helio_kick_vb_tp ( self , system , param , t , dt , lbeg ) !! author: David A. Minton !! !! Kick barycentric velocities of bodies !! !! Adapted from Martin Duncan and Hal Levison's Swift routine kickvh_tp.f !! Adapted from David E. Kaufmann's Swifter routine helio_kick_vb_tp.f90 implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Swiftest generic body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) tp % ah (:,:) = 0.0_DP call tp % accel ( system , param , t , lbeg ) do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % vb (:, i ) = tp % vb (:, i ) + tp % ah (:, i ) * dt end do end associate return end subroutine helio_kick_vb_tp end submodule s_helio_kick","tags":"","loc":"sourcefile/helio_kick.f90.html"},{"title":"helio_coord.f90 – swiftest","text":"This file depends on sourcefile~~helio_coord.f90~~EfferentGraph sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~helio_coord.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_helio_coord Source Code helio_coord.f90 Source Code submodule ( helio_classes ) s_helio_coord use swiftest contains module subroutine helio_coord_vb2vh_pl ( self , cb ) !! author: David A. Minton !! !! Convert massive bodies from barycentric to heliocentric coordinates (velocity only) !! !! Adapted from David E. Kaufmann's Swifter routine coord_vb2vh.f90 !! Adapted from Hal Levison's Swift routine coord_vb2vh.f implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) do i = 1 , NDIM cb % vb ( i ) = - sum ( pl % Gmass ( 1 : npl ) * pl % vb ( i , 1 : npl )) / cb % Gmass pl % vh ( i , 1 : npl ) = pl % vb ( i , 1 : npl ) - cb % vb ( i ) end do end associate return end subroutine helio_coord_vb2vh_pl module subroutine helio_coord_vb2vh_tp ( self , vbcb ) !! author: David A. Minton !! !! Convert test particles from barycentric to heliocentric coordinates (velocity only) !! !! Adapted from David E. Kaufmann's Swifter routine coord_vb2vh_tp.f90 !! Adapted from Hal Levison's Swift routine coord_vb2h_tp.f implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Helio massive body object real ( DP ), dimension (:), intent ( in ) :: vbcb !! Barycentric velocity of the central body if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) where ( tp % lmask ( 1 : ntp )) tp % vh ( 1 , 1 : ntp ) = tp % vb ( 1 , 1 : ntp ) - vbcb ( 1 ) tp % vh ( 2 , 1 : ntp ) = tp % vb ( 2 , 1 : ntp ) - vbcb ( 2 ) tp % vh ( 3 , 1 : ntp ) = tp % vb ( 3 , 1 : ntp ) - vbcb ( 3 ) end where end associate return end subroutine helio_coord_vb2vh_tp module subroutine helio_coord_vh2vb_pl ( self , cb ) !! author: David A. Minton !! !! Convert massive bodies from heliocentric to barycentric coordinates (velocity only) !! !! Adapted from David E. Kaufmann's Swifter routine coord_vh2vb.f90 !! Adapted from Hal Levison's Swift routine coord_vh2b.f implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object ! Internals integer ( I4B ) :: i real ( DP ) :: Gmtot if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) Gmtot = cb % Gmass + sum ( pl % Gmass ( 1 : npl )) do i = 1 , NDIM cb % vb ( i ) = - sum ( pl % Gmass ( 1 : npl ) * pl % vh ( i , 1 : npl )) / Gmtot pl % vb ( i , 1 : npl ) = pl % vh ( i , 1 : npl ) + cb % vb ( i ) end do end associate return end subroutine helio_coord_vh2vb_pl module subroutine helio_coord_vh2vb_tp ( self , vbcb ) !! author: David A. Minton !! !! Convert test particles from heliocentric to barycentric coordinates (velocity only) !! !! Adapted from David E. Kaufmann's Swifter routine coord_vh2vb_tp.f90 !! Adapted from Hal Levison's Swift routine coord_vh2b_tp.f implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Helio massive body object real ( DP ), dimension (:), intent ( in ) :: vbcb !! Barycentric velocity of the central body if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) where ( tp % lmask ( 1 : ntp )) tp % vb ( 1 , 1 : ntp ) = tp % vh ( 1 , 1 : ntp ) + vbcb ( 1 ) tp % vb ( 2 , 1 : ntp ) = tp % vh ( 2 , 1 : ntp ) + vbcb ( 2 ) tp % vb ( 3 , 1 : ntp ) = tp % vh ( 3 , 1 : ntp ) + vbcb ( 3 ) end where end associate return end subroutine helio_coord_vh2vb_tp end submodule s_helio_coord","tags":"","loc":"sourcefile/helio_coord.f90.html"},{"title":"helio_drift.f90 – swiftest","text":"This file depends on sourcefile~~helio_drift.f90~~EfferentGraph sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~helio_drift.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_helio_drift Source Code helio_drift.f90 Source Code submodule ( helio_classes ) s_helio_drift use swiftest contains module subroutine helio_drift_body ( self , system , param , dt ) !! author: David A. Minton !! !! Loop through bodies and call Danby drift routine on democratic heliocentric coordinates !! !! Adapted from David E. Kaufmann's Swifter routine helio_drift.f90 !! Adapted from Hal Levison's Swift routine drift.f implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize ! Internals integer ( I4B ) :: i !! Loop counter real ( DP ) :: rmag , vmag2 , energy integer ( I4B ), dimension (:), allocatable :: iflag !! Vectorized error code flag real ( DP ), dimension (:), allocatable :: dtp , mu if ( self % nbody == 0 ) return associate ( n => self % nbody ) allocate ( iflag ( n )) iflag (:) = 0 allocate ( mu ( n )) mu (:) = system % cb % Gmass call drift_all ( mu , self % xh , self % vb , self % nbody , param , dt , self % lmask , iflag ) if ( any ( iflag ( 1 : n ) /= 0 )) then where ( iflag ( 1 : n ) /= 0 ) self % status ( 1 : n ) = DISCARDED_DRIFTERR do i = 1 , n if ( iflag ( i ) /= 0 ) write ( * , * ) \" Body \" , self % id ( i ), \" lost due to error in Danby drift\" end do end if end associate return end subroutine helio_drift_body module subroutine helio_drift_pl ( self , system , param , dt ) !! author: David A. Minton !! !! Wrapper function used to call the body drift routine from a helio_pl structure implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize call helio_drift_body ( self , system , param , dt ) return end subroutine helio_drift_pl module subroutine helio_drift_tp ( self , system , param , dt ) !! author: David A. Minton !! !! Wrapper function used to call the body drift routine from a helio_pl structure implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize call helio_drift_body ( self , system , param , dt ) return end subroutine helio_drift_tp module subroutine helio_drift_linear_pl ( self , cb , dt , lbeg ) !! author: David A. Minton !! !! Perform linear drift of massive bodies due to barycentric momentum of Sun !! !! Adapted from David E. Kaufmann's Swifter routine helio_lindrift.f90 !! Adapted from Hal Levison's Swift routine helio_lindrift.f implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( helio_cb ), intent ( inout ) :: cb !! Helio central body real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Argument that determines whether or not this is the beginning or end of the step ! Internals real ( DP ), dimension ( NDIM ) :: pt !! negative barycentric velocity of the central body integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) if ( npl == 0 ) return pt ( 1 ) = sum ( pl % Gmass ( 1 : npl ) * pl % vb ( 1 , 1 : npl ), self % lmask ( 1 : npl )) pt ( 2 ) = sum ( pl % Gmass ( 1 : npl ) * pl % vb ( 2 , 1 : npl ), self % lmask ( 1 : npl )) pt ( 3 ) = sum ( pl % Gmass ( 1 : npl ) * pl % vb ( 3 , 1 : npl ), self % lmask ( 1 : npl )) pt (:) = pt (:) / cb % Gmass do concurrent ( i = 1 : npl , self % lmask ( i )) pl % xh (:, i ) = pl % xh (:, i ) + pt (:) * dt end do if ( lbeg ) then cb % ptbeg = pt (:) else cb % ptend = pt (:) end if end associate return end subroutine helio_drift_linear_pl module subroutine helio_drift_linear_tp ( self , cb , dt , lbeg ) !! author: David A. Minton !! !! Perform linear drift of test particles due to barycentric momentum of Sun !! New vectorized version included !! !! Adapted from David E. Kaufmann's Swifter routine helio_lindrift_tp.f90 !! Adapted from Hal Levison's Swift routine helio_lindrift_tp.f implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Helio test particleb object class ( helio_cb ), intent ( in ) :: cb !! Helio central body real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Argument that determines whether or not this is the beginning or end of the step ! Internals real ( DP ), dimension ( NDIM ) :: pt !! negative barycentric velocity of the central body if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) if ( ntp == 0 ) return if ( lbeg ) then pt (:) = cb % ptbeg else pt (:) = cb % ptend end if where ( self % lmask ( 1 : ntp )) tp % xh ( 1 , 1 : ntp ) = tp % xh ( 1 , 1 : ntp ) + pt ( 1 ) * dt tp % xh ( 2 , 1 : ntp ) = tp % xh ( 2 , 1 : ntp ) + pt ( 2 ) * dt tp % xh ( 3 , 1 : ntp ) = tp % xh ( 3 , 1 : ntp ) + pt ( 3 ) * dt end where end associate return end subroutine helio_drift_linear_tp end submodule s_helio_drift","tags":"","loc":"sourcefile/helio_drift.f90.html"},{"title":"io.f90 – swiftest","text":"This file depends on sourcefile~~io.f90~~EfferentGraph sourcefile~io.f90 io.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~io.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_io Source Code io.f90 Source Code submodule ( swiftest_classes ) s_io use swiftest contains module subroutine io_conservation_report ( self , param , lterminal ) !! author: The Purdue Swiftest Team -  David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Reports the current state of energy, mass, and angular momentum conservation in a run implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Input colleciton of user-defined parameters logical , intent ( in ) :: lterminal !! Indicates whether to output information to the terminal screen ! Internals real ( DP ), dimension ( NDIM ) :: Ltot_now , Lorbit_now , Lspin_now real ( DP ), dimension ( NDIM ), save :: Ltot_last , Lorbit_last , Lspin_last real ( DP ), save :: ke_orbit_last , ke_spin_last , pe_last , Eorbit_last real ( DP ) :: ke_orbit_now , ke_spin_now , pe_now , Eorbit_now real ( DP ) :: Eorbit_error , Etotal_error , Ecoll_error real ( DP ) :: Mtot_now , Merror real ( DP ) :: Lmag_now , Lerror character ( len =* ), parameter :: EGYFMT = '(ES23.16,10(\",\",ES23.16,:))' ! Format code for all simulation output character ( len =* ), parameter :: EGYHEADER = '(\"t,Eorbit,Ecollisions,Lx,Ly,Lz,Mtot\")' integer ( I4B ), parameter :: EGYIU = 72 character ( len =* ), parameter :: EGYTERMFMT = '(\"  DL/L0 = \", ES12.5 & \"; DEcollisions/|E0| = \", ES12.5, & \"; D(Eorbit+Ecollisions)/|E0| = \", ES12.5, & \"; DM/M0 = \", ES12.5)' associate ( system => self , pl => self % pl , cb => self % cb , npl => self % pl % nbody , Ecollisions => self % Ecollisions , Lescape => self % Lescape , Mescape => self % Mescape , & Euntracked => self % Euntracked , Eorbit_orig => param % Eorbit_orig , Mtot_orig => param % Mtot_orig , & Ltot_orig => param % Ltot_orig (:), Lmag_orig => param % Lmag_orig , Lorbit_orig => param % Lorbit_orig (:), Lspin_orig => param % Lspin_orig (:), & lfirst => param % lfirstenergy ) if ( lfirst ) then if ( param % out_stat == \"OLD\" ) then open ( unit = EGYIU , file = ENERGY_FILE , form = \"formatted\" , status = \"old\" , action = \"write\" , position = \"append\" ) else open ( unit = EGYIU , file = ENERGY_FILE , form = \"formatted\" , status = \"replace\" , action = \"write\" ) write ( EGYIU , EGYHEADER ) end if end if call system % get_energy_and_momentum ( param ) ke_orbit_now = system % ke_orbit ke_spin_now = system % ke_spin pe_now = system % pe Lorbit_now = system % Lorbit Lspin_now = system % Lspin Eorbit_now = ke_orbit_now + ke_spin_now + pe_now Ltot_now (:) = Lorbit_now (:) + Lspin_now (:) + Lescape (:) Mtot_now = cb % mass + sum ( pl % mass ( 1 : npl )) + system % Mescape if ( lfirst ) then Eorbit_orig = Eorbit_now Mtot_orig = Mtot_now Lorbit_orig (:) = Lorbit_now (:) Lspin_orig (:) = Lspin_now (:) Ltot_orig (:) = Ltot_now (:) Lmag_orig = norm2 ( Ltot_orig (:)) lfirst = . false . end if write ( EGYIU , EGYFMT ) param % t , Eorbit_now , Ecollisions , Ltot_now , Mtot_now flush ( EGYIU ) if (. not . lfirst . and . lterminal ) then Lmag_now = norm2 ( Ltot_now ) Lerror = norm2 ( Ltot_now - Ltot_orig ) / Lmag_orig Eorbit_error = ( Eorbit_now - Eorbit_orig ) / abs ( Eorbit_orig ) Ecoll_error = Ecollisions / abs ( Eorbit_orig ) Etotal_error = ( Eorbit_now - Ecollisions - Eorbit_orig - Euntracked ) / abs ( Eorbit_orig ) Merror = ( Mtot_now - Mtot_orig ) / Mtot_orig write ( * , egytermfmt ) Lerror , Ecoll_error , Etotal_error , Merror if ( Ecoll_error > 0.0_DP ) then write ( * , * ) 'Something has gone wrong! Collisional energy should not be positive!' write ( * , * ) 'dke_orbit: ' ,( ke_orbit_now - ke_orbit_last ) / abs ( Eorbit_orig ) write ( * , * ) 'dke_spin : ' ,( ke_spin_now - ke_spin_last ) / abs ( Eorbit_orig ) write ( * , * ) 'dpe      : ' ,( pe_now - pe_last ) / abs ( Eorbit_orig ) write ( * , * ) end if end if ke_orbit_last = ke_orbit_now ke_spin_last = ke_spin_now pe_last = pe_now Eorbit_last = Eorbit_now Lorbit_last (:) = Lorbit_now (:) Lspin_last (:) = Lspin_now (:) Ltot_last (:) = Ltot_now (:) end associate return end subroutine io_conservation_report module subroutine io_dump_param ( self , param_file_name ) !! author: David A. Minton !! !! Dump integration parameters to file !! !! Adapted from David E. Kaufmann's Swifter routine io_dump_param.f90 !! Adapted from Martin Duncan's Swift routine io_dump_param.f implicit none ! Arguments class ( swiftest_parameters ), intent ( in ) :: self !! Output collection of parameters character ( len =* ), intent ( in ) :: param_file_name !! Parameter input file name (i.e. param.in) ! Internals integer ( I4B ), parameter :: LUN = 7 !! Unit number of output file integer ( I4B ) :: ierr !! Error code character ( STRMAX ) :: error_message !! Error message in UDIO procedure open ( unit = LUN , file = param_file_name , status = 'replace' , form = 'FORMATTED' , iostat = ierr ) if ( ierr /= 0 ) then write ( * , * ) 'Swiftest error.' write ( * , * ) '   Could not open dump file: ' , trim ( adjustl ( param_file_name )) call util_exit ( FAILURE ) end if !! todo: Currently this procedure does not work in user-defined derived-type input mode !!    due to compiler incompatabilities !write(LUN,'(DT)') param call self % writer ( LUN , iotype = \"none\" , v_list = [ 0 ], iostat = ierr , iomsg = error_message ) if ( ierr /= 0 ) then write ( * , * ) trim ( adjustl ( error_message )) call util_exit ( FAILURE ) end if close ( LUN ) return end subroutine io_dump_param module subroutine io_dump_swiftest ( self , param , msg ) !! author: David A. Minton !! !! Dump massive body data to files !! !! Adapted from David E. Kaufmann's Swifter routine: io_dump_pl.f90 and io_dump_tp.f90 !! Adapted from Hal Levison's Swift routine io_dump_pl.f and io_dump_tp.f implicit none ! Arguments class ( swiftest_base ), intent ( inout ) :: self !! Swiftest base object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), optional , intent ( in ) :: msg !! Message to display with dump operation ! Internals integer ( I4B ) :: ierr !! Error code integer ( I4B ), parameter :: LUN = 7 !! Unit number for dump file integer ( I4B ) :: iu = LUN character ( len = :), allocatable :: dump_file_name select type ( self ) class is ( swiftest_cb ) dump_file_name = trim ( adjustl ( param % incbfile )) class is ( swiftest_pl ) dump_file_name = trim ( adjustl ( param % inplfile )) class is ( swiftest_tp ) dump_file_name = trim ( adjustl ( param % intpfile )) end select open ( unit = iu , file = dump_file_name , form = \"UNFORMATTED\" , status = 'replace' , iostat = ierr ) if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error:\" write ( * , * ) \"   Unable to open binary dump file \" // dump_file_name call util_exit ( FAILURE ) end if call self % write_frame ( iu , param ) close ( LUN ) return end subroutine io_dump_swiftest module subroutine io_dump_system ( self , param , msg ) !! author: David A. Minton !! !! Dumps the state of the system to files in case the simulation is interrupted. !! As a safety mechanism, there are two dump files that are written in alternating order !! so that if a dump file gets corrupted during writing, the user can restart from the older one. implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), optional , intent ( in ) :: msg !! Message to display with dump operation ! Internals class ( swiftest_parameters ), allocatable :: dump_param !! Local parameters variable used to parameters change input file names !! to dump file-specific values without changing the user-defined values integer ( I4B ), save :: idx = 1 !! Index of current dump file. Output flips between 2 files for extra security !! in case the program halts during writing character ( len = :), allocatable :: param_file_name real ( DP ) :: tfrac allocate ( dump_param , source = param ) param_file_name = trim ( adjustl ( DUMP_PARAM_FILE ( idx ))) dump_param % incbfile = trim ( adjustl ( DUMP_CB_FILE ( idx ))) dump_param % inplfile = trim ( adjustl ( DUMP_PL_FILE ( idx ))) dump_param % intpfile = trim ( adjustl ( DUMP_TP_FILE ( idx ))) dump_param % out_form = XV dump_param % out_stat = 'APPEND' dump_param % T0 = param % t call dump_param % dump ( param_file_name ) call self % cb % dump ( dump_param ) if ( self % pl % nbody > 0 ) call self % pl % dump ( dump_param ) if ( self % tp % nbody > 0 ) call self % tp % dump ( dump_param ) idx = idx + 1 if ( idx > NDUMPFILES ) idx = 1 ! Print the status message (format code passed in from main driver) tfrac = ( param % t - param % t0 ) / ( param % tstop - param % t0 ) write ( * , msg ) param % t , tfrac , self % pl % nbody , self % tp % nbody if ( param % lenergy ) call self % conservation_report ( param , lterminal = . true .) return end subroutine io_dump_system module function io_get_args ( integrator , param_file_name ) result ( ierr ) !! author: David A. Minton !! !! Reads in the name of the parameter file from command line arguments. implicit none ! Arguments integer ( I4B ) :: integrator !! Symbolic code of the requested integrator character ( len = :), allocatable :: param_file_name !! Name of the input parameters file ! Result integer ( I4B ) :: ierr !! I/O error code ! Internals character ( len = STRMAX ) :: arg1 , arg2 integer :: narg , ierr_arg1 , ierr_arg2 character ( len =* ), parameter :: linefmt = '(A)' ierr = - 1 ! Default is to fail narg = command_argument_count () ! if ( narg == 2 ) then call get_command_argument ( 1 , arg1 , status = ierr_arg1 ) call get_command_argument ( 2 , arg2 , status = ierr_arg2 ) if (( ierr_arg1 == 0 ) . and . ( ierr_arg2 == 0 )) then ierr = 0 call io_toupper ( arg1 ) select case ( arg1 ) case ( 'BS' ) integrator = BS case ( 'HELIO' ) integrator = HELIO case ( 'RA15' ) integrator = RA15 case ( 'TU4' ) integrator = TU4 case ( 'WHM' ) integrator = WHM case ( 'RMVS' ) integrator = RMVS case ( 'SYMBA' ) integrator = SYMBA case ( 'RINGMOONS' ) integrator = RINGMOONS case default integrator = UNKNOWN_INTEGRATOR write ( * , * ) trim ( adjustl ( arg1 )) // ' is not a valid integrator.' ierr = - 1 end select param_file_name = trim ( adjustl ( arg2 )) end if else call get_command_argument ( 1 , arg1 , status = ierr_arg1 ) if ( ierr_arg1 == 0 ) then if ( arg1 == '-v' . or . arg1 == '--version' ) then call util_version () else if ( arg1 == '-h' . or . arg1 == '--help' ) then call util_exit ( HELP ) end if end if end if if ( ierr /= 0 ) call util_exit ( USAGE ) return end function io_get_args module function io_get_token ( buffer , ifirst , ilast , ierr ) result ( token ) !! author: David A. Minton !! !! Retrieves a character token from an input string. Here a token is defined as any set of contiguous non-blank characters not !! beginning with or containing \"!\". If \"!\" is present, any remaining part of the buffer including the \"!\" is ignored !! !! Adapted from David E. Kaufmann's Swifter routine io_get_token.f90 implicit none ! Arguments character ( len =* ), intent ( in ) :: buffer !! Input string buffer integer ( I4B ), intent ( inout ) :: ifirst !! Index of the buffer at which to start the search for a token integer ( I4B ), intent ( out ) :: ilast !! Index of the buffer at the end of the returned token integer ( I4B ), intent ( out ) :: ierr !! Error code ! Result character ( len = :), allocatable :: token !! Returned token string ! Internals integer ( I4B ) :: i , ilength ilength = len ( buffer ) if ( ifirst > ilength ) then ilast = ifirst ierr = - 1 !! Bad input token = '' return end if do i = ifirst , ilength if ( buffer ( i : i ) /= ' ' ) exit end do if (( i > ilength ) . or . ( buffer ( i : i ) == '!' )) then ifirst = i ilast = i ierr = - 2 !! No valid token token = '' return end if ifirst = i do i = ifirst , ilength if (( buffer ( i : i ) == ' ' ) . or . ( buffer ( i : i ) == '!' )) exit end do ilast = i - 1 ierr = 0 token = buffer ( ifirst : ilast ) return end function io_get_token module subroutine io_param_reader ( self , unit , iotype , v_list , iostat , iomsg ) !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Read in parameters for the integration !! Currently this procedure does not work in user-defined derived-type input mode !!    e.g. read(unit,'(DT)') param !! as the newline characters are ignored in the input file when compiled in ifort. !! !! Adapted from David E. Kaufmann's Swifter routine io_init_param.f90 !! Adapted from Martin Duncan's Swift routine io_init_param.f implicit none ! Arguments class ( swiftest_parameters ), intent ( inout ) :: self !! Collection of parameters integer , intent ( in ) :: unit !! File unit number character ( len =* ), intent ( in ) :: iotype !! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. !!    If you do not include a char-literal-constant, the iotype argument contains only DT. integer , intent ( in ) :: v_list (:) !! The first element passes the integrator code to the reader integer , intent ( out ) :: iostat !! IO status code character ( len =* ), intent ( inout ) :: iomsg !! Message to pass if iostat /= 0 ! Internals logical :: t0_set = . false . !! Is the initial time set in the input file? logical :: tstop_set = . false . !! Is the final time set in the input file? logical :: dt_set = . false . !! Is the step size set in the input file? integer ( I4B ) :: ilength , ifirst , ilast , i !! Variables used to parse input file character ( STRMAX ) :: line !! Line of the input file character ( len = :), allocatable :: line_trim , param_name , param_value !! Strings used to parse the param file character ( * ), parameter :: linefmt = '(A)' !! Format code for simple text string ! Parse the file line by line, extracting tokens then matching them up with known parameters if possible associate ( param => self ) do read ( unit = unit , fmt = linefmt , iostat = iostat , end = 1 ) line line_trim = trim ( adjustl ( line )) ilength = len ( line_trim ) if (( ilength /= 0 )) then ifirst = 1 ! Read the pair of tokens. The first one is the parameter name, the second is the value. param_name = io_get_token ( line_trim , ifirst , ilast , iostat ) if ( param_name == '' ) cycle ! No parameter name (usually because this line is commented out) call io_toupper ( param_name ) ifirst = ilast + 1 param_value = io_get_token ( line_trim , ifirst , ilast , iostat ) select case ( param_name ) case ( \"T0\" ) read ( param_value , * ) param % t0 t0_set = . true . case ( \"TSTOP\" ) read ( param_value , * ) param % tstop tstop_set = . true . case ( \"DT\" ) read ( param_value , * ) param % dt dt_set = . true . case ( \"CB_IN\" ) param % incbfile = param_value case ( \"PL_IN\" ) param % inplfile = param_value case ( \"TP_IN\" ) param % intpfile = param_value case ( \"IN_TYPE\" ) call io_toupper ( param_value ) param % in_type = param_value case ( \"ISTEP_OUT\" ) read ( param_value , * ) param % istep_out case ( \"BIN_OUT\" ) param % outfile = param_value case ( \"OUT_TYPE\" ) call io_toupper ( param_value ) param % out_type = param_value case ( \"OUT_FORM\" ) call io_toupper ( param_value ) param % out_form = param_value case ( \"OUT_STAT\" ) call io_toupper ( param_value ) param % out_stat = param_value case ( \"ISTEP_DUMP\" ) read ( param_value , * ) param % istep_dump case ( \"CHK_CLOSE\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == 'T' ) param % lclose = . true . case ( \"CHK_RMIN\" ) read ( param_value , * ) param % rmin case ( \"CHK_RMAX\" ) read ( param_value , * ) param % rmax case ( \"CHK_EJECT\" ) read ( param_value , * ) param % rmaxu case ( \"CHK_QMIN\" ) read ( param_value , * ) param % qmin case ( \"CHK_QMIN_COORD\" ) call io_toupper ( param_value ) param % qmin_coord = param_value case ( \"CHK_QMIN_RANGE\" ) read ( param_value , * ) param % qmin_alo ifirst = ilast + 1 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * ) param % qmin_ahi case ( \"ENC_OUT\" ) param % enc_out = param_value case ( \"DISCARD_OUT\" ) param % discard_out = param_value case ( \"EXTRA_FORCE\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == 'T' ) param % lextra_force = . true . case ( \"BIG_DISCARD\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == 'T' ) param % lbig_discard = . true . case ( \"RHILL_PRESENT\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == 'T' ) param % lrhill_present = . true . case ( \"MU2KG\" ) read ( param_value , * ) param % MU2KG case ( \"TU2S\" ) read ( param_value , * ) param % TU2S case ( \"DU2M\" ) read ( param_value , * ) param % DU2M case ( \"ENERGY\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == 'T' ) param % lenergy = . true . case ( \"GR\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == 'T' ) param % lgr = . true . case ( \"ROTATION\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == 'T' ) param % lrotation = . true . case ( \"TIDES\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == 'T' ) param % ltides = . true . case ( \"FIRSTKICK\" ) call io_toupper ( param_value ) if ( param_value == \"NO\" . or . param_value == 'F' ) param % lfirstkick = . false . case ( \"FIRSTENERGY\" ) call io_toupper ( param_value ) if ( param_value == \"NO\" . or . param_value == 'F' ) param % lfirstenergy = . false . case ( \"EORBIT_ORIG\" ) read ( param_value , * ) param % Eorbit_orig case ( \"MTOT_ORIG\" ) read ( param_value , * ) param % Mtot_orig case ( \"LTOT_ORIG\" ) read ( param_value , * ) param % Ltot_orig ( 1 ) do i = 2 , NDIM ifirst = ilast + 1 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * ) param % Ltot_orig ( i ) end do param % Lmag_orig = norm2 ( param % Ltot_orig (:)) case ( \"LORBIT_ORIG\" ) read ( param_value , * ) param % Lorbit_orig ( 1 ) do i = 2 , NDIM ifirst = ilast + 1 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * ) param % Lorbit_orig ( i ) end do case ( \"LSPIN_ORIG\" ) read ( param_value , * ) param % Lspin_orig ( 1 ) do i = 2 , NDIM ifirst = ilast + 1 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * ) param % Lspin_orig ( i ) end do case ( \"LESCAPE\" ) read ( param_value , * ) param % Lescape ( 1 ) do i = 2 , NDIM ifirst = ilast + 1 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * ) param % Lescape ( i ) end do case ( \"MESCAPE\" ) read ( param_value , * ) param % Mescape case ( \"ECOLLISIONS\" ) read ( param_value , * ) param % Ecollisions case ( \"EUNTRACKED\" ) read ( param_value , * ) param % Euntracked case ( \"NPLMAX\" , \"NTPMAX\" , \"MTINY\" , \"PARTICLE_FILE\" , \"FRAGMENTATION\" , \"SEED\" , \"YARKOVSKY\" , \"YORP\" ) ! Ignore SyMBA-specific, not-yet-implemented, or obsolete input parameters case default write ( iomsg , * ) \"Unknown parameter -> \" , param_name iostat = - 1 return end select end if end do 1 continue iostat = 0 !! Do basic sanity checks on the input values if ((. not . t0_set ) . or . (. not . tstop_set ) . or . (. not . dt_set )) then write ( iomsg , * ) 'Valid simulation time not set' iostat = - 1 return end if if ( param % dt <= 0.0_DP ) then write ( iomsg , * ) 'Invalid timestep: ' iostat = - 1 return end if if ( param % inplfile == \"\" ) then write ( iomsg , * ) 'No valid massive body file in input file' iostat = - 1 return end if if (( param % in_type /= REAL8_TYPE ) . and . ( param % in_type /= \"ASCII\" )) then write ( iomsg , * ) 'Invalid input file type:' , trim ( adjustl ( param % in_type )) iostat = - 1 return end if if (( param % istep_out <= 0 ) . and . ( param % istep_dump <= 0 )) then write ( iomsg , * ) 'Invalid istep' iostat = - 1 return end if if (( param % istep_out > 0 ) . and . ( param % outfile == \"\" )) then write ( iomsg , * ) 'Invalid outfile' iostat = - 1 return end if if ( param % outfile /= \"\" ) then if (( param % out_type /= REAL4_TYPE ) . and . ( param % out_type /= REAL8_TYPE ) . and . & ( param % out_type /= SWIFTER_REAL4_TYPE ) . and . ( param % out_type /= SWIFTER_REAL8_TYPE )) then write ( iomsg , * ) 'Invalid out_type: ' , trim ( adjustl ( param % out_type )) iostat = - 1 return end if if (( param % out_form /= \"EL\" ) . and . ( param % out_form /= \"XV\" )) then write ( iomsg , * ) 'Invalid out_form: ' , trim ( adjustl ( param % out_form )) iostat = - 1 return end if if (( param % out_stat /= \"NEW\" ) . and . ( param % out_stat /= \"REPLACE\" ) . and . ( param % out_stat /= \"APPEND\" ) . and . ( param % out_stat /= \"UNKNOWN\" )) then write ( iomsg , * ) 'Invalid out_stat: ' , trim ( adjustl ( param % out_stat )) iostat = - 1 return end if end if if ( param % qmin > 0.0_DP ) then if (( param % qmin_coord /= \"HELIO\" ) . and . ( param % qmin_coord /= \"BARY\" )) then write ( iomsg , * ) 'Invalid qmin_coord: ' , trim ( adjustl ( param % qmin_coord )) iostat = - 1 return end if if (( param % qmin_alo <= 0.0_DP ) . or . ( param % qmin_ahi <= 0.0_DP )) then write ( iomsg , * ) 'Invalid qmin vals' iostat = - 1 return end if end if if ( param % ltides . and . . not . param % lrotation ) then write ( iomsg , * ) 'Tides require rotation to be turned on' iostat = - 1 return end if write ( * , * ) \"T0             = \" , param % t0 write ( * , * ) \"TSTOP          = \" , param % tstop write ( * , * ) \"DT             = \" , param % dt write ( * , * ) \"CB_IN          = \" , trim ( adjustl ( param % incbfile )) write ( * , * ) \"PL_IN          = \" , trim ( adjustl ( param % inplfile )) write ( * , * ) \"TP_IN          = \" , trim ( adjustl ( param % intpfile )) write ( * , * ) \"IN_TYPE        = \" , trim ( adjustl ( param % in_type )) write ( * , * ) \"ISTEP_OUT      = \" , param % istep_out write ( * , * ) \"BIN_OUT        = \" , trim ( adjustl ( param % outfile )) write ( * , * ) \"OUT_TYPE       = \" , trim ( adjustl ( param % out_type )) write ( * , * ) \"OUT_FORM       = \" , trim ( adjustl ( param % out_form )) write ( * , * ) \"OUT_STAT       = \" , trim ( adjustl ( param % out_stat )) write ( * , * ) \"ISTEP_DUMP     = \" , param % istep_dump write ( * , * ) \"CHK_CLOSE      = \" , param % lclose write ( * , * ) \"CHK_RMIN       = \" , param % rmin write ( * , * ) \"CHK_RMAX       = \" , param % rmax write ( * , * ) \"CHK_EJECT      = \" , param % rmaxu write ( * , * ) \"CHK_QMIN       = \" , param % qmin write ( * , * ) \"CHK_QMIN_COORD = \" , trim ( adjustl ( param % qmin_coord )) write ( * , * ) \"CHK_QMIN_RANGE = \" , param % qmin_alo , param % qmin_ahi write ( * , * ) \"EXTRA_FORCE    = \" , param % lextra_force write ( * , * ) \"RHILL_PRESENT  = \" , param % lrhill_present write ( * , * ) \"ROTATION      = \" , param % lrotation write ( * , * ) \"TIDES         = \" , param % ltides write ( * , * ) \"ENERGY         = \" , param % lenergy write ( * , * ) \"MU2KG          = \" , param % MU2KG write ( * , * ) \"TU2S           = \" , param % TU2S write ( * , * ) \"DU2M           = \" , param % DU2M if ( trim ( adjustl ( param % enc_out )) /= \"\" ) then write ( * , * ) \"ENC_OUT        = \" , trim ( adjustl ( param % enc_out )) else write ( * , * ) \"! ENC_OUT not set: Encounters will not be recorded to file\" end if if ( trim ( adjustl ( param % discard_out )) /= \"\" ) then write ( * , * ) \"DISCARD_OUT    = \" , trim ( adjustl ( param % discard_out )) write ( * , * ) \"BIG_DISCARD    = \" , param % lbig_discard else write ( * , * ) \"! DISCARD_OUT not set: Discards will not be recorded to file\" write ( * , * ) \"! BIG_DISCARD    = \" , param % lbig_discard end if if (( param % MU2KG < 0.0_DP ) . or . ( param % TU2S < 0.0_DP ) . or . ( param % DU2M < 0.0_DP )) then write ( iomsg , * ) 'Invalid unit conversion factor' iostat = - 1 return end if ! Calculate the G for the system units param % GU = GC / ( param % DU2M ** 3 / ( param % MU2KG * param % TU2S ** 2 )) ! Calculate the inverse speed of light in the system units param % inv_c2 = einsteinC * param % TU2S / param % DU2M param % inv_c2 = ( param % inv_c2 ) ** ( - 2 ) associate ( integrator => v_list ( 1 )) if ( integrator == RMVS ) then if (. not . param % lclose ) then write ( iomsg , * ) 'This integrator requires CHK_CLOSE to be enabled.' iostat = - 1 return end if end if ! Determine if the GR flag is set correctly for this integrator select case ( integrator ) case ( WHM , RMVS , HELIO , SYMBA ) write ( * , * ) \"GR             = \" , param % lgr case default if ( param % lgr ) write ( iomsg , * ) 'GR is not yet implemented for this integrator. This parameter will be ignored.' param % lgr = . false . end select end associate iostat = 0 end associate return end subroutine io_param_reader module subroutine io_param_writer ( self , unit , iotype , v_list , iostat , iomsg ) !! author: David A. Minton !! !! Dump integration parameters to file !! !! Adapted from David E. Kaufmann's Swifter routine io_dump_param.f90 !! Adapted from Martin Duncan's Swift routine io_dump_param.f implicit none ! Arguments class ( swiftest_parameters ), intent ( in ) :: self !! Collection of parameters integer , intent ( in ) :: unit !! File unit number character ( len =* ), intent ( in ) :: iotype !! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. !!    If you do not include a char-literal-constant, the iotype argument contains only DT. integer , intent ( in ) :: v_list (:) !! Not used in this procedure integer , intent ( out ) :: iostat !! IO status code character ( len =* ), intent ( inout ) :: iomsg !! Message to pass if iostat /= 0 ! Internals character ( * ), parameter :: Ifmt = '(I0)' !! Format label for integer values character ( * ), parameter :: Rfmt = '(ES25.17)' !! Format label for real values character ( * ), parameter :: Rarrfmt = '(3(ES25.17,1X))' !! Format label for real values character ( * ), parameter :: Lfmt = '(L1)' !! Format label for logical values character ( len =* ), parameter :: Afmt = '(A25,1X,64(:,A25,1X))' character ( 256 ) :: param_name , param_value type character_array character ( 25 ) :: value end type character_array type ( character_array ), dimension (:), allocatable :: param_array integer ( I4B ) :: i associate ( param => self ) write ( param_name , Afmt ) \"T0\" ; write ( param_value , Rfmt ) param % t0 ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"TSTOP\" ; write ( param_value , Rfmt ) param % tstop ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"DT\" ; write ( param_value , Rfmt ) param % dt ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"PL_IN\" ; write ( param_value , Afmt ) trim ( adjustl ( param % inplfile )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"TP_in\" ; write ( param_value , Afmt ) trim ( adjustl ( param % intpfile )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"IN_TYPE\" ; write ( param_value , Afmt ) trim ( adjustl ( param % in_type )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) if ( param % istep_out > 0 ) then write ( param_name , Afmt ) \"ISTEP_OUT\" ; write ( param_value , Ifmt ) param % istep_out ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"BIN_OUT\" ; write ( param_value , Afmt ) trim ( adjustl ( param % outfile )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"OUT_TYPE\" ; write ( param_value , Afmt ) trim ( adjustl ( param % out_type )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"OUT_FORM\" ; write ( param_value , Afmt ) trim ( adjustl ( param % out_form )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"OUT_STAT\" ; write ( param_value , Afmt ) \"APPEND\" ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) end if write ( param_name , Afmt ) \"ENC_OUT\" ; write ( param_value , Afmt ) trim ( adjustl ( param % enc_out )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) if ( param % istep_dump > 0 ) then write ( param_name , Afmt ) \"ISTEP_DUMP\" ; write ( param_value , Ifmt ) param % istep_dump ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) end if write ( param_name , Afmt ) \"CHK_RMIN\" ; write ( param_value , Rfmt ) param % rmin ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"CHK_RMAX\" ; write ( param_value , Rfmt ) param % rmax ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"CHK_EJECT\" ; write ( param_value , Rfmt ) param % rmaxu ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"CHK_QMIN\" ; write ( param_value , Rfmt ) param % qmin ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) if ( param % qmin >= 0.0_DP ) then write ( param_name , Afmt ) \"CHK_QMIN_COORD\" ; write ( param_value , Afmt ) trim ( adjustl ( param % qmin_coord )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) allocate ( param_array ( 2 )) write ( param_array ( 1 )% value , Rfmt ) param % qmin_alo write ( param_array ( 2 )% value , Rfmt ) param % qmin_ahi write ( param_name , Afmt ) \"CHK_QMIN_RANGE\" ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_array ( 1 )% value ), adjustl ( param_array ( 2 )% value ) end if write ( param_name , Afmt ) \"MU2KG\" ; write ( param_value , Rfmt ) param % MU2KG ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"TU2S\" ; write ( param_value , Rfmt ) param % TU2S ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"DU2M\" ; write ( param_value , Rfmt ) param % DU2M ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"RHILL_PRESENT\" ; write ( param_value , Lfmt ) param % lrhill_present ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"EXTRA_FORCE\" ; write ( param_value , Lfmt ) param % lextra_force ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"BIG_DISCARD\" ; write ( param_value , Lfmt ) param % lbig_discard ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"CHK_CLOSE\" ; write ( param_value , Lfmt ) param % lclose ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"ENERGY\" ; write ( param_value , Lfmt ) param % lenergy ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"GR\" ; write ( param_value , Lfmt ) param % lgr ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"ROTATION\" ; write ( param_value , Lfmt ) param % lrotation ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"TIDES\" ; write ( param_value , Lfmt ) param % ltides ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) if ( param % lenergy ) then write ( param_name , Afmt ) \"FIRSTENERGY\" ; write ( param_value , Lfmt ) param % lfirstenergy ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"EORBIT_ORIG\" ; write ( param_value , Rfmt ) param % Eorbit_orig ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"MTOT_ORIG\" ; write ( param_value , Rfmt ) param % Mtot_orig ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( unit , '(\"LTOT_ORIG  \",3(1X,ES25.17))' ) param % Ltot_orig (:) write ( unit , '(\"LORBIT_ORIG\",3(1X,ES25.17))' ) param % Lorbit_orig (:) write ( unit , '(\"LSPIN_ORIG \",3(1X,ES25.17))' ) param % Lspin_orig (:) write ( unit , '(\"LESCAPE \",3(1X,ES25.17))' ) param % Lescape (:) write ( param_name , Afmt ) \"MESCAPE\" ; write ( param_value , Rfmt ) param % Mescape ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"ECOLLISIONS\" ; write ( param_value , Rfmt ) param % Ecollisions ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"EUNTRACKED\" ; write ( param_value , Rfmt ) param % Euntracked ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) end if write ( param_name , Afmt ) \"FIRSTKICK\" ; write ( param_value , Lfmt ) param % lfirstkick ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) iostat = 0 iomsg = \"UDIO not implemented\" end associate return end subroutine io_param_writer module subroutine io_read_body_in ( self , param ) !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Read in either test particle or massive body data !! !! Adapted from David E. Kaufmann's Swifter routine swiftest_init_pl.f90 and swiftest_init_tp.f90 !! Adapted from Martin Duncan's Swift routine swiftest_init_pl.f and swiftest_init_tp.f implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals integer ( I4B ), parameter :: LUN = 7 !! Unit number of input file integer ( I4B ) :: iu = LUN integer ( I4B ) :: i , ierr , nbody logical :: is_ascii , is_pl character ( len = :), allocatable :: infile real ( DP ) :: t real ( QP ) :: val ! Select the appropriate polymorphic class (test particle or massive body) select type ( self ) class is ( swiftest_pl ) infile = param % inplfile is_pl = . true . class is ( swiftest_tp ) infile = param % intpfile is_pl = . false . end select ierr = 0 is_ascii = ( param % in_type == 'ASCII' ) select case ( param % in_type ) case ( ASCII_TYPE ) open ( unit = iu , file = infile , status = 'old' , form = 'FORMATTED' , iostat = ierr ) read ( iu , * , iostat = ierr ) nbody call self % setup ( nbody , param ) if ( nbody > 0 ) then do i = 1 , nbody select type ( self ) class is ( swiftest_pl ) if ( param % lrhill_present ) then read ( iu , * , iostat = ierr , err = 100 ) self % id ( i ), val , self % rhill ( i ) else read ( iu , * , iostat = ierr , err = 100 ) self % id ( i ), val end if self % Gmass ( i ) = real ( val , kind = DP ) self % mass ( i ) = real ( val / param % GU , kind = DP ) if ( param % lclose ) read ( iu , * , iostat = ierr , err = 100 ) self % radius ( i ) if ( param % lrotation ) then read ( iu , iostat = ierr , err = 100 ) self % Ip (:, i ) read ( iu , iostat = ierr , err = 100 ) self % rot (:, i ) end if if ( param % ltides ) then read ( iu , iostat = ierr , err = 100 ) self % k2 ( i ) read ( iu , iostat = ierr , err = 100 ) self % Q ( i ) end if class is ( swiftest_tp ) read ( iu , * , iostat = ierr , err = 100 ) self % id ( i ) end select read ( iu , * , iostat = ierr , err = 100 ) self % xh ( 1 , i ), self % xh ( 2 , i ), self % xh ( 3 , i ) read ( iu , * , iostat = ierr , err = 100 ) self % vh ( 1 , i ), self % vh ( 2 , i ), self % vh ( 3 , i ) self % status ( i ) = ACTIVE self % lmask ( i ) = . true . end do end if case ( REAL4_TYPE , REAL8_TYPE ) !, SWIFTER_REAL4_TYPE, SWIFTER_REAL8_TYPE) open ( unit = iu , file = infile , status = 'old' , form = 'UNFORMATTED' , iostat = ierr ) read ( iu , iostat = ierr , err = 100 ) nbody call self % setup ( nbody , param ) if ( nbody > 0 ) then call self % read_frame ( iu , param , XV , ierr ) self % status (:) = ACTIVE self % lmask (:) = . true . end if case default write ( * , * ) trim ( adjustl ( param % in_type )) // ' is an unrecognized file type' ierr = - 1 end select close ( iu ) 100 if ( ierr /= 0 ) then write ( * , * ) 'Error reading in initial conditions from ' , trim ( adjustl ( infile )) call util_exit ( FAILURE ) end if return end subroutine io_read_body_in module subroutine io_read_cb_in ( self , param ) !! author: David A. Minton !! !! Reads in central body data !! !! Adapted from David E. Kaufmann's Swifter routine swiftest_init_pl.f90 !! Adapted from Martin Duncan's Swift routine swiftest_init_pl.f implicit none ! Arguments class ( swiftest_cb ), intent ( inout ) :: self class ( swiftest_parameters ), intent ( inout ) :: param ! Internals integer ( I4B ), parameter :: LUN = 7 !! Unit number of input file integer ( I4B ) :: iu = LUN integer ( I4B ) :: ierr logical :: is_ascii real ( DP ) :: t real ( QP ) :: val ierr = 0 is_ascii = ( param % in_type == 'ASCII' ) if ( is_ascii ) then open ( unit = iu , file = param % incbfile , status = 'old' , form = 'FORMATTED' , iostat = ierr ) !read(iu, *, iostat = ierr) self%id read ( iu , * , iostat = ierr ) val self % Gmass = real ( val , kind = DP ) self % mass = real ( val / param % GU , kind = DP ) read ( iu , * , iostat = ierr ) self % radius read ( iu , * , iostat = ierr ) self % j2rp2 read ( iu , * , iostat = ierr ) self % j4rp4 else open ( unit = iu , file = param % incbfile , status = 'old' , form = 'UNFORMATTED' , iostat = ierr ) call self % read_frame ( iu , param , XV , ierr ) end if close ( iu ) if ( ierr /= 0 ) then write ( * , * ) 'Error opening massive body initial conditions file ' , trim ( adjustl ( param % incbfile )) call util_exit ( FAILURE ) end if if ( self % j2rp2 /= 0.0_DP ) param % loblatecb = . true . return end subroutine io_read_cb_in function io_read_encounter ( t , name1 , name2 , mass1 , mass2 , radius1 , radius2 , & xh1 , xh2 , vh1 , vh2 , enc_out , out_type ) result ( ierr ) !! author: David A. Minton !! !! Read close encounter data from input binary files !!     Other than time t, there is no direct file input from this function !!     Function returns read error status (0 = OK, nonzero = ERROR) !! Adapted from David E. Kaufmann's Swifter routine: io_read_encounter.f90 implicit none ! Arguments integer ( I4B ), intent ( out ) :: name1 , name2 real ( DP ), intent ( out ) :: t , mass1 , mass2 , radius1 , radius2 real ( DP ), dimension (:), intent ( out ) :: xh1 , xh2 , vh1 , vh2 character ( * ), intent ( in ) :: enc_out , out_type ! Result integer ( I4B ) :: ierr ! Internals logical , save :: lfirst = . true . integer ( I4B ), parameter :: lun = 30 integer ( I4B ), save :: iu = lun if ( lfirst ) then open ( unit = iu , file = enc_out , status = 'OLD' , form = 'UNFORMATTED' , iostat = ierr ) if ( ierr /= 0 ) then write ( * , * ) \"Swiftest Error:\" write ( * , * ) \"   unable to open binary encounter file\" call util_exit ( FAILURE ) end if lfirst = . false . end if read ( iu , iostat = ierr ) t if ( ierr /= 0 ) then close ( unit = iu , iostat = ierr ) return end if read ( iu , iostat = ierr ) name1 , xh1 ( 1 ), xh1 ( 2 ), xh1 ( 3 ), vh1 ( 1 ), vh1 ( 2 ), vh1 ( 3 ), mass1 , radius1 if ( ierr /= 0 ) then close ( unit = iu , iostat = ierr ) return end if read ( iu , iostat = ierr ) name2 , xh2 ( 2 ), xh2 ( 2 ), xh2 ( 3 ), vh2 ( 2 ), vh2 ( 2 ), vh2 ( 3 ), mass2 , radius2 if ( ierr /= 0 ) then close ( unit = iu , iostat = ierr ) return end if return end function io_read_encounter module subroutine io_read_frame_body ( self , iu , param , form , ierr ) !! author: David A. Minton !! !! Reads a frame of output of either test particle or massive body data from a binary output file !! !! Adapted from David E. Kaufmann's Swifter routine  io_read_frame.f90 !! Adapted from Hal Levison's Swift routine io_read_frame.F implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest particle object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), intent ( in ) :: form !! Input format code (\"XV\" or \"EL\") integer ( I4B ), intent ( out ) :: ierr !! Error code associate ( n => self % nbody ) read ( iu , iostat = ierr , err = 100 ) self % id (:) !read(iu, iostat=ierr, err=100) self%name(1:n) select case ( form ) case ( EL ) if (. not . allocated ( self % a )) allocate ( self % a ( n )) if (. not . allocated ( self % e )) allocate ( self % e ( n )) if (. not . allocated ( self % inc )) allocate ( self % inc ( n )) if (. not . allocated ( self % capom )) allocate ( self % capom ( n )) if (. not . allocated ( self % omega )) allocate ( self % omega ( n )) if (. not . allocated ( self % capm )) allocate ( self % capm ( n )) read ( iu , iostat = ierr , err = 100 ) self % a (:) read ( iu , iostat = ierr , err = 100 ) self % e (:) read ( iu , iostat = ierr , err = 100 ) self % inc (:) read ( iu , iostat = ierr , err = 100 ) self % capom (:) read ( iu , iostat = ierr , err = 100 ) self % omega (:) read ( iu , iostat = ierr , err = 100 ) self % capm (:) case ( XV ) read ( iu , iostat = ierr , err = 100 ) self % xh ( 1 , :) read ( iu , iostat = ierr , err = 100 ) self % xh ( 2 , :) read ( iu , iostat = ierr , err = 100 ) self % xh ( 3 , :) read ( iu , iostat = ierr , err = 100 ) self % vh ( 1 , :) read ( iu , iostat = ierr , err = 100 ) self % vh ( 2 , :) read ( iu , iostat = ierr , err = 100 ) self % vh ( 3 , :) end select select type ( pl => self ) class is ( swiftest_pl ) ! Additional output if the passed polymorphic object is a massive body read ( iu , iostat = ierr , err = 100 ) pl % Gmass (:) pl % mass (:) = pl % Gmass (:) / param % GU if ( param % lrhill_present ) read ( iu , iostat = ierr , err = 100 ) pl % rhill (:) read ( iu , iostat = ierr , err = 100 ) pl % radius (:) if ( param % lrotation ) then read ( iu , iostat = ierr , err = 100 ) pl % rot ( 1 , :) read ( iu , iostat = ierr , err = 100 ) pl % rot ( 2 , :) read ( iu , iostat = ierr , err = 100 ) pl % rot ( 3 , :) read ( iu , iostat = ierr , err = 100 ) pl % Ip ( 1 , :) read ( iu , iostat = ierr , err = 100 ) pl % Ip ( 2 , :) read ( iu , iostat = ierr , err = 100 ) pl % Ip ( 3 , :) end if if ( param % ltides ) then read ( iu , iostat = ierr , err = 100 ) pl % k2 ( 1 : n ) read ( iu , iostat = ierr , err = 100 ) pl % Q ( 1 : n ) end if end select end associate 100 if ( ierr /= 0 ) then write ( * , * ) 'Error reading Swiftest body data' call util_exit ( FAILURE ) end if return end subroutine io_read_frame_body module subroutine io_read_frame_cb ( self , iu , param , form , ierr ) !! author: David A. Minton !! !! Reads a frame of output of central body data to the binary output file !! !! Adapted from David E. Kaufmann's Swifter routine  io_read_frame.f90 !! Adapted from Hal Levison's Swift routine io_read_frame.F implicit none ! Arguments class ( swiftest_cb ), intent ( inout ) :: self !! Swiftest central body object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), intent ( in ) :: form !! Input format code (\"XV\" or \"EL\") integer ( I4B ), intent ( out ) :: ierr !! Error cod read ( iu , iostat = ierr , err = 100 ) self % id !read(iu, iostat=ierr, err=100) self%name read ( iu , iostat = ierr , err = 100 ) self % Gmass self % mass = self % Gmass / param % GU read ( iu , iostat = ierr , err = 100 ) self % radius read ( iu , iostat = ierr , err = 100 ) self % j2rp2 read ( iu , iostat = ierr , err = 100 ) self % j4rp4 if ( param % lrotation ) then read ( iu , iostat = ierr , err = 100 ) self % Ip (:) read ( iu , iostat = ierr , err = 100 ) self % rot (:) end if if ( param % ltides ) then read ( iu , iostat = ierr , err = 100 ) self % k2 read ( iu , iostat = ierr , err = 100 ) self % Q end if 100 if ( ierr /= 0 ) then write ( * , * ) 'Error reading central body data' call util_exit ( FAILURE ) end if return end subroutine io_read_frame_cb module subroutine io_read_frame_system ( self , iu , param , form , ierr ) !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Read a frame (header plus records for each massive body and active test particle) from a output binary file implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), intent ( in ) :: form !! Input format code (\"XV\" or \"EL\") integer ( I4B ), intent ( out ) :: ierr !! Error code ! Internals logical , save :: lfirst = . true . iu = BINUNIT if ( lfirst ) then open ( unit = iu , file = param % outfile , status = 'OLD' , form = 'UNFORMATTED' , iostat = ierr ) lfirst = . false . if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error:\" write ( * , * ) \"   Binary output file already exists or cannot be accessed\" return end if end if ierr = io_read_hdr ( iu , param % t , self % pl % nbody , self % tp % nbody , param % out_form , param % out_type ) if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error:\" write ( * , * ) \"   Binary output file already exists or cannot be accessed\" return end if call self % cb % read_frame ( iu , param , form , ierr ) if ( ierr /= 0 ) return call self % pl % read_frame ( iu , param , form , ierr ) if ( ierr /= 0 ) return call self % tp % read_frame ( iu , param , form , ierr ) return end subroutine io_read_frame_system function io_read_hdr ( iu , t , npl , ntp , out_form , out_type ) result ( ierr ) !! author: David A. Minton !! !! Read frame header from input binary files !!     Function returns read error status (0 = OK, nonzero = ERROR) !! Adapted from David E. Kaufmann's Swifter routine: io_read_hdr.f90 !! Adapted from Hal Levison's Swift routine io_read_hdr.f implicit none ! Arguments integer ( I4B ), intent ( in ) :: iu integer ( I4B ), intent ( out ) :: npl , ntp character ( * ), intent ( out ) :: out_form real ( DP ), intent ( out ) :: t character ( * ), intent ( in ) :: out_type ! Result integer ( I4B ) :: ierr ! Internals real ( SP ) :: ttmp select case ( out_type ) case ( REAL4_TYPE , SWIFTER_REAL4_TYPE ) read ( iu , iostat = ierr ) ttmp , npl , ntp , out_form if ( ierr /= 0 ) return t = ttmp case ( REAL8_TYPE , SWIFTER_REAL8_TYPE ) read ( iu , iostat = ierr ) t read ( iu , iostat = ierr ) npl read ( iu , iostat = ierr ) ntp read ( iu , iostat = ierr ) out_form case default write ( * , * ) trim ( adjustl ( out_type )) // ' is an unrecognized file type' ierr = - 1 end select return end function io_read_hdr module subroutine io_read_param_in ( self , param_file_name ) !! author: David A. Minton !! !! Read in parameters for the integration !! !! Adapted from David E. Kaufmann's Swifter routine io_init_param.f90 !! Adapted from Martin Duncan's Swift routine io_init_param.f implicit none ! Arguments class ( swiftest_parameters ), intent ( inout ) :: self !! Current run configuration parameters character ( len =* ), intent ( in ) :: param_file_name !! Parameter input file name (i.e. param.in) ! Internals integer ( I4B ), parameter :: LUN = 7 !! Unit number of input file integer ( I4B ) :: ierr = 0 !! Input error code character ( STRMAX ) :: error_message !! Error message in UDIO procedure ! Read in name of parameter file write ( * , * ) 'Parameter input file is ' , trim ( adjustl ( param_file_name )) write ( * , * ) ' ' 100 format ( A ) open ( unit = LUN , file = param_file_name , status = 'old' , iostat = ierr ) if ( ierr /= 0 ) then write ( * , * ) 'Swiftest error: ' , ierr write ( * , * ) '   Unable to open file ' , trim ( adjustl ( param_file_name )) call util_exit ( FAILURE ) end if !! todo: Currently this procedure does not work in user-defined derived-type input mode !!    as the newline characters are ignored in the input file when compiled in ifort. !read(LUN,'(DT)', iostat= ierr, iomsg = error_message) param call self % reader ( LUN , iotype = \"none\" , v_list = [ self % integrator ], iostat = ierr , iomsg = error_message ) if ( ierr /= 0 ) then write ( * , * ) 'Swiftest error reading ' , trim ( adjustl ( param_file_name )) write ( * , * ) ierr , trim ( adjustl ( error_message )) call util_exit ( FAILURE ) end if return end subroutine io_read_param_in module subroutine io_toupper ( string ) !! author: David A. Minton !! !! Convert string to uppercase !! !! Adapted from David E. Kaufmann's Swifter routine: util_toupper.f90 implicit none ! Arguments character ( * ), intent ( inout ) :: string !! String to make upper case ! Internals integer ( I4B ) :: i , length , idx length = len ( string ) do i = 1 , length idx = iachar ( string ( i : i )) if (( idx >= lowercase_begin ) . and . ( idx <= lowercase_end )) then idx = idx + uppercase_offset string ( i : i ) = achar ( idx ) end if end do return end subroutine io_toupper module subroutine io_write_discard ( self , param ) !! author: David A. Minton !! !! Write out information about discarded test particle !! !! Adapted from David E. Kaufmann's Swifter routine  io_discard_write.f90 !! Adapted from Hal Levison's Swift routine io_discard_write.f implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ), parameter :: LUN = 40 integer ( I4B ) :: i , ierr logical , save :: lfirst = . true . real ( DP ), dimension (:,:), allocatable :: vh character ( * ), parameter :: HDRFMT = '(E23.16, 1X, I8, 1X, L1)' character ( * ), parameter :: NAMEFMT = '(A, 2(1X, I8))' character ( * ), parameter :: VECFMT = '(3(E23.16, 1X))' character ( * ), parameter :: NPLFMT = '(I8)' character ( * ), parameter :: PLNAMEFMT = '(I8, 2(1X, E23.16))' class ( swiftest_body ), allocatable :: pltemp associate ( tp_discards => self % tp_discards , nsp => self % tp_discards % nbody , pl => self % pl , npl => self % pl % nbody ) if ( nsp == 0 ) return select case ( param % out_stat ) case ( 'APPEND' ) open ( unit = LUN , file = param % discard_out , status = 'OLD' , position = 'APPEND' , form = 'FORMATTED' , iostat = ierr ) case ( 'NEW' , 'REPLACE' , 'UNKNOWN' ) open ( unit = LUN , file = param % discard_out , status = param % out_stat , form = 'FORMATTED' , iostat = ierr ) case default write ( * , * ) 'Invalid status code for OUT_STAT: ' , trim ( adjustl ( param % out_stat )) call util_exit ( FAILURE ) end select lfirst = . false . if ( param % lgr ) call tp_discards % pv2v ( param ) write ( LUN , HDRFMT ) param % t , nsp , param % lbig_discard do i = 1 , nsp write ( LUN , NAMEFMT ) SUB , tp_discards % id ( i ), tp_discards % status ( i ) write ( LUN , VECFMT ) tp_discards % xh ( 1 , i ), tp_discards % xh ( 2 , i ), tp_discards % xh ( 3 , i ) write ( LUN , VECFMT ) tp_discards % vh ( 1 , i ), tp_discards % vh ( 2 , i ), tp_discards % vh ( 3 , i ) end do if ( param % lbig_discard ) then if ( param % lgr ) then allocate ( pltemp , source = pl ) call pltemp % pv2v ( param ) allocate ( vh , source = pltemp % vh ) deallocate ( pltemp ) else allocate ( vh , source = pl % vh ) end if write ( LUN , NPLFMT ) npl do i = 1 , npl write ( LUN , PLNAMEFMT ) pl % id ( i ), pl % Gmass ( i ), pl % radius ( i ) write ( LUN , VECFMT ) pl % xh ( 1 , i ), pl % xh ( 2 , i ), pl % xh ( 3 , i ) write ( LUN , VECFMT ) vh ( 1 , i ), vh ( 2 , i ), vh ( 3 , i ) end do deallocate ( vh ) end if close ( LUN ) end associate return end subroutine io_write_discard module subroutine io_write_encounter ( t , name1 , name2 , mass1 , mass2 , radius1 , radius2 , & xh1 , xh2 , vh1 , vh2 , enc_out , out_type ) !! author: David A. Minton !! !! Write close encounter data to output binary files !!  There is no direct file output from this subroutine !! !! Adapted from David E. Kaufmann's Swifter routine: io_write_encounter.f90 !! Adapted from Hal Levison's Swift routine io_write_encounter.f implicit none ! Arguments integer ( I4B ), intent ( in ) :: name1 , name2 real ( DP ), intent ( in ) :: t , mass1 , mass2 , radius1 , radius2 real ( DP ), dimension (:), intent ( in ) :: xh1 , xh2 , vh1 , vh2 character ( * ), intent ( in ) :: enc_out , out_type ! Internals logical , save :: lfirst = . true . integer ( I4B ), parameter :: lun = 30 integer ( I4B ) :: ierr integer ( I4B ), save :: iu = lun open ( unit = iu , file = enc_out , status = 'OLD' , position = 'APPEND' , form = 'UNFORMATTED' , iostat = ierr ) if (( ierr /= 0 ) . and . lfirst ) then open ( unit = iu , file = enc_out , status = 'NEW' , form = 'UNFORMATTED' , iostat = ierr ) end if if ( ierr /= 0 ) then write ( * , * ) \"Swiftest Error:\" write ( * , * ) \"   Unable to open binary encounter file\" call util_exit ( FAILURE ) end if lfirst = . false . write ( iu , iostat = ierr ) t if ( ierr < 0 ) then write ( * , * ) \"Swiftest Error:\" write ( * , * ) \"   Unable to write binary file record\" call util_exit ( FAILURE ) end if write ( iu ) name1 , xh1 ( 1 ), xh1 ( 2 ), xh1 ( 3 ), vh1 ( 1 ), vh1 ( 2 ), mass1 , radius1 write ( iu ) name2 , xh2 ( 1 ), xh2 ( 2 ), xh2 ( 3 ), vh2 ( 1 ), vh2 ( 2 ), mass2 , radius2 close ( unit = iu , iostat = ierr ) if ( ierr /= 0 ) then write ( * , * ) \"Swiftest Error:\" write ( * , * ) \"   Unable to close binary encounter file\" call util_exit ( FAILURE ) end if return end subroutine io_write_encounter module subroutine io_write_frame_body ( self , iu , param ) !! author: David A. Minton !! !! Write a frame of output of either test particle or massive body data to the binary output file !!    Note: If outputting to orbital elements, but sure that the conversion is done prior to calling this method !! !! Adapted from David E. Kaufmann's Swifter routine  io_write_frame.f90 !! Adapted from Hal Levison's Swift routine io_write_frame.F implicit none ! Arguments class ( swiftest_body ), intent ( in ) :: self !! Swiftest particle object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters associate ( n => self % nbody ) if ( n == 0 ) return write ( iu ) self % id ( 1 : n ) !write(iu) self%name(1:n) select case ( param % out_form ) case ( EL ) write ( iu ) self % a ( 1 : n ) write ( iu ) self % e ( 1 : n ) write ( iu ) self % inc ( 1 : n ) write ( iu ) self % capom ( 1 : n ) write ( iu ) self % omega ( 1 : n ) write ( iu ) self % capm ( 1 : n ) case ( XV ) write ( iu ) self % xh ( 1 , 1 : n ) write ( iu ) self % xh ( 2 , 1 : n ) write ( iu ) self % xh ( 3 , 1 : n ) write ( iu ) self % vh ( 1 , 1 : n ) write ( iu ) self % vh ( 2 , 1 : n ) write ( iu ) self % vh ( 3 , 1 : n ) end select select type ( pl => self ) class is ( swiftest_pl ) ! Additional output if the passed polymorphic object is a massive body write ( iu ) pl % Gmass ( 1 : n ) write ( iu ) pl % rhill ( 1 : n ) write ( iu ) pl % radius ( 1 : n ) if ( param % lrotation ) then write ( iu ) pl % rot ( 1 , 1 : n ) write ( iu ) pl % rot ( 2 , 1 : n ) write ( iu ) pl % rot ( 3 , 1 : n ) write ( iu ) pl % Ip ( 1 , 1 : n ) write ( iu ) pl % Ip ( 2 , 1 : n ) write ( iu ) pl % Ip ( 3 , 1 : n ) end if if ( param % ltides ) then write ( iu ) pl % k2 ( 1 : n ) write ( iu ) pl % Q ( 1 : n ) end if end select end associate return end subroutine io_write_frame_body module subroutine io_write_frame_cb ( self , iu , param ) !! author: David A. Minton !! !! Write a frame of output of central body data to the binary output file !! !! Adapted from David E. Kaufmann's Swifter routine  io_write_frame.f90 !! Adapted from Hal Levison's Swift routine io_write_frame.F implicit none ! Arguments class ( swiftest_cb ), intent ( in ) :: self !! Swiftest central body object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters associate ( cb => self ) !write(iu) cb%name write ( iu ) cb % id write ( iu ) cb % Gmass write ( iu ) cb % radius write ( iu ) cb % j2rp2 write ( iu ) cb % j4rp4 if ( param % lrotation ) then write ( iu ) cb % rot ( 1 ) write ( iu ) cb % rot ( 2 ) write ( iu ) cb % rot ( 3 ) write ( iu ) cb % Ip ( 1 ) write ( iu ) cb % Ip ( 2 ) write ( iu ) cb % Ip ( 3 ) end if if ( param % ltides ) then write ( iu ) cb % k2 write ( iu ) cb % Q end if end associate return end subroutine io_write_frame_cb module subroutine io_write_frame_system ( self , iu , param ) !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Write a frame (header plus records for each massive body and active test particle) to output binary file !! There is no direct file output from this subroutine !! !! Adapted from David E. Kaufmann's Swifter routine  io_write_frame.f90 !! Adapted from Hal Levison's Swift routine io_write_frame.F implicit none ! Arguments class ( swiftest_nbody_system ), intent ( in ) :: self !! Swiftest system object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals logical , save :: lfirst = . true . !! Flag to determine if this is the first call of this method integer ( I4B ) :: ierr !! I/O error code class ( swiftest_cb ), allocatable :: cb !! Temporary local version of pl structure used for non-destructive conversions class ( swiftest_pl ), allocatable :: pl !! Temporary local version of pl structure used for non-destructive conversions class ( swiftest_tp ), allocatable :: tp !! Temporary local version of pl structure used for non-destructive conversions allocate ( cb , source = self % cb ) allocate ( pl , source = self % pl ) allocate ( tp , source = self % tp ) iu = BINUNIT if ( lfirst ) then select case ( param % out_stat ) case ( 'APPEND' ) open ( unit = iu , file = param % outfile , status = 'OLD' , position = 'APPEND' , form = 'UNFORMATTED' , iostat = ierr ) case ( 'NEW' , 'REPLACE' , 'UNKNOWN' ) open ( unit = iu , file = param % outfile , status = param % out_stat , form = 'UNFORMATTED' , iostat = ierr ) case default write ( * , * ) 'Invalid status code for OUT_STAT: ' , trim ( adjustl ( param % out_stat )) call util_exit ( FAILURE ) end select if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error: io_write_frame_system - first\" , ierr write ( * , * ) \"   Binary output file \" // trim ( adjustl ( param % outfile )) // \" already exists or cannot be accessed\" write ( * , * ) \"   OUT_STAT: \" // trim ( adjustl ( param % out_stat )) call util_exit ( FAILURE ) end if lfirst = . false . else open ( unit = iu , file = param % outfile , status = 'OLD' , position = 'APPEND' , form = 'UNFORMATTED' , iostat = ierr ) if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error: io_write_frame_system\" write ( * , * ) \"   Unable to open binary output file for APPEND\" call util_exit ( FAILURE ) end if end if call io_write_hdr ( iu , param % t , pl % nbody , tp % nbody , param % out_form , param % out_type ) if ( param % lgr ) then call pl % pv2v ( param ) call tp % pv2v ( param ) end if if ( param % out_form == EL ) then ! Do an orbital element conversion prior to writing out the frame, as we have access to the central body here call pl % xv2el ( cb ) call tp % xv2el ( cb ) end if ! Write out each data type frame call cb % write_frame ( iu , param ) call pl % write_frame ( iu , param ) call tp % write_frame ( iu , param ) deallocate ( cb , pl , tp ) close ( iu ) return end subroutine io_write_frame_system subroutine io_write_hdr ( iu , t , npl , ntp , out_form , out_type ) !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Write frame header to output binary file !! !! Adapted from David Adapted from David E. Kaufmann's Swifter routine io_write_hdr.f90 !! Adapted from Hal Levison's Swift routine io_write_hdr.F implicit none ! Arguments integer ( I4B ), intent ( in ) :: iu !! Output file unit number real ( DP ), intent ( in ) :: t !! Current time of simulation integer ( I4B ), intent ( in ) :: npl !! Number of massive bodies integer ( I4B ), intent ( in ) :: ntp !! Number of test particles character ( * ), intent ( in ) :: out_form !! Output format type (\"EL\" or  \"XV\") character ( * ), intent ( in ) :: out_type !! Output file format type (REAL4, REAL8 - see swiftest module for symbolic name definitions) ! Internals integer ( I4B ) :: ierr !! Error code select case ( out_type ) case ( REAL4_TYPE , SWIFTER_REAL4_TYPE ) write ( iu , iostat = ierr ) real ( t , kind = SP ) if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error:\" write ( * , * ) \"   Unable to write binary file header\" call util_exit ( FAILURE ) end if case ( REAL8_TYPE , SWIFTER_REAL8_TYPE ) write ( iu , iostat = ierr ) t if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error:\" write ( * , * ) \"   Unable to write binary file header\" call util_exit ( FAILURE ) end if end select write ( iu , iostat = ierr ) npl write ( iu , iostat = ierr ) ntp write ( iu , iostat = ierr ) out_form return end subroutine io_write_hdr end submodule s_io","tags":"","loc":"sourcefile/io.f90.html"},{"title":"setup.f90 – swiftest","text":"This file depends on sourcefile~~setup.f90~~EfferentGraph sourcefile~setup.f90 setup.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~setup.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_setup Source Code setup.f90 Source Code submodule ( swiftest_classes ) s_setup use swiftest contains module subroutine setup_construct_system ( system , param ) !! author: David A. Minton !! !! Constructor for a Swiftest nbody system. Creates the nbody system object based on the user-input integrator !! implicit none ! Arguments class ( swiftest_nbody_system ), allocatable , intent ( inout ) :: system !! Swiftest system object class ( swiftest_parameters ), intent ( in ) :: param !! Swiftest parameters select case ( param % integrator ) case ( BS ) write ( * , * ) 'Bulirsch-Stoer integrator not yet enabled' case ( HELIO ) allocate ( helio_nbody_system :: system ) select type ( system ) class is ( helio_nbody_system ) allocate ( helio_cb :: system % cb ) allocate ( helio_pl :: system % pl ) allocate ( helio_tp :: system % tp ) allocate ( helio_tp :: system % tp_discards ) end select case ( RA15 ) write ( * , * ) 'Radau integrator not yet enabled' case ( TU4 ) write ( * , * ) 'TU4 integrator not yet enabled' case ( WHM ) allocate ( whm_nbody_system :: system ) select type ( system ) class is ( whm_nbody_system ) allocate ( whm_cb :: system % cb ) allocate ( whm_pl :: system % pl ) allocate ( whm_tp :: system % tp ) allocate ( whm_tp :: system % tp_discards ) end select case ( RMVS ) allocate ( rmvs_nbody_system :: system ) select type ( system ) class is ( rmvs_nbody_system ) allocate ( rmvs_cb :: system % cb ) allocate ( rmvs_pl :: system % pl ) allocate ( rmvs_tp :: system % tp ) allocate ( rmvs_tp :: system % tp_discards ) end select case ( SYMBA ) allocate ( symba_nbody_system :: system ) select type ( system ) class is ( symba_nbody_system ) allocate ( symba_cb :: system % cb ) allocate ( symba_pl :: system % pl ) allocate ( symba_tp :: system % tp ) allocate ( symba_tp :: system % tp_discards ) allocate ( symba_merger :: system % mergeadd_list ) allocate ( symba_merger :: system % mergesub_list ) allocate ( symba_plplenc :: system % plplenc_list ) allocate ( symba_pltpenc :: system % pltpenc_list ) end select case ( RINGMOONS ) write ( * , * ) 'RINGMOONS-SyMBA integrator not yet enabled' case default write ( * , * ) 'Unkown integrator' , param % integrator call util_exit ( FAILURE ) end select return end subroutine setup_construct_system module subroutine setup_encounter ( self , n ) !! author: David A. Minton !! !! A constructor that sets the number of encounters and allocates and initializes all arrays !! implicit none ! Arguments class ( swiftest_encounter ), intent ( inout ) :: self !! Swiftest encounter structure integer ( I4B ), intent ( in ) :: n !! Number of encounters to allocate space for self % nenc = n if ( n == 0 ) return if ( allocated ( self % lvdotr )) deallocate ( self % lvdotr ) if ( allocated ( self % status )) deallocate ( self % status ) if ( allocated ( self % index1 )) deallocate ( self % index1 ) if ( allocated ( self % index2 )) deallocate ( self % index2 ) if ( allocated ( self % x1 )) deallocate ( self % x1 ) if ( allocated ( self % x2 )) deallocate ( self % x2 ) if ( allocated ( self % v1 )) deallocate ( self % v1 ) if ( allocated ( self % v2 )) deallocate ( self % v2 ) allocate ( self % lvdotr ( n )) allocate ( self % status ( n )) allocate ( self % index1 ( n )) allocate ( self % index2 ( n )) allocate ( self % x1 ( NDIM , n )) allocate ( self % x2 ( NDIM , n )) allocate ( self % v1 ( NDIM , n )) allocate ( self % v2 ( NDIM , n )) self % lvdotr (:) = . false . self % status (:) = INACTIVE self % index1 (:) = 0 self % index2 (:) = 0 self % x1 (:,:) = 0.0_DP self % x2 (:,:) = 0.0_DP self % v1 (:,:) = 0.0_DP self % v2 (:,:) = 0.0_DP return end subroutine setup_encounter module subroutine setup_initialize_system ( self , param ) !! author: David A. Minton !! !! Wrapper method to initialize a basic Swiftest nbody system from files !! implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters call self % cb % initialize ( param ) call self % pl % initialize ( param ) call self % tp % initialize ( param ) call util_valid ( self % pl , self % tp ) self % maxid = maxval ([ self % pl % id (:), self % tp % id (:)]) call self % set_msys () call self % pl % set_mu ( self % cb ) call self % tp % set_mu ( self % cb ) call self % pl % eucl_index () if (. not . param % lrhill_present ) call self % pl % set_rhill ( self % cb ) !if (param%lfirstenergy) then return end subroutine setup_initialize_system module subroutine setup_body ( self , n , param ) !! author: David A. Minton !! !! Constructor for base Swiftest particle class. Allocates space for all particles and !! initializes all components with a value. !! Note: Timing tests indicate that (NDIM, n) is more efficient than (NDIM, n) implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest generic body object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter self % nbody = n if ( n <= 0 ) return self % lfirst = . true . if ( allocated ( self % id )) deallocate ( self % id ) if ( allocated ( self % name )) deallocate ( self % name ) if ( allocated ( self % status )) deallocate ( self % status ) if ( allocated ( self % ldiscard )) deallocate ( self % ldiscard ) if ( allocated ( self % xh )) deallocate ( self % xh ) if ( allocated ( self % vh )) deallocate ( self % vh ) if ( allocated ( self % xb )) deallocate ( self % xb ) if ( allocated ( self % vb )) deallocate ( self % vb ) if ( allocated ( self % ah )) deallocate ( self % ah ) if ( allocated ( self % ir3h )) deallocate ( self % ir3h ) if ( allocated ( self % mu )) deallocate ( self % mu ) if ( allocated ( self % lmask )) deallocate ( self % lmask ) allocate ( self % id ( n )) allocate ( self % name ( n )) allocate ( self % status ( n )) allocate ( self % ldiscard ( n )) allocate ( self % xh ( NDIM , n )) allocate ( self % vh ( NDIM , n )) allocate ( self % xb ( NDIM , n )) allocate ( self % vb ( NDIM , n )) allocate ( self % ah ( NDIM , n )) allocate ( self % ir3h ( n )) allocate ( self % mu ( n )) allocate ( self % lmask ( n )) self % id (:) = 0 self % name (:) = \"UNNAMED\" self % status (:) = INACTIVE self % lmask (:) = . false . self % ldiscard (:) = . false . self % xh (:,:) = 0.0_DP self % vh (:,:) = 0.0_DP self % xb (:,:) = 0.0_DP self % vb (:,:) = 0.0_DP self % ah (:,:) = 0.0_DP self % ir3h (:) = 0.0_DP self % mu (:) = 0.0_DP if ( param % loblatecb ) then if ( allocated ( self % aobl )) deallocate ( self % aobl ) allocate ( self % aobl ( NDIM , n )) self % aobl (:,:) = 0.0_DP end if if ( param % ltides ) then if ( allocated ( self % atide )) deallocate ( self % lmask ) allocate ( self % atide ( NDIM , n )) self % atide (:,:) = 0.0_DP end if if ( param % lgr ) then if ( allocated ( self % agr )) deallocate ( self % lmask ) allocate ( self % agr ( NDIM , n )) self % agr (:,:) = 0.0_DP end if return end subroutine setup_body module subroutine setup_pl ( self , n , param ) !! author: David A. Minton !! !! Constructor for base Swiftest massive body class. Allocates space for all particles and !! initializes all components with a value. implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter !> Call allocation method for parent class !> The parent class here is the abstract swiftest_body class, so we can't use the type-bound procedure call setup_body ( self , n , param ) if ( n <= 0 ) return if ( allocated ( self % mass )) deallocate ( self % mass ) if ( allocated ( self % Gmass )) deallocate ( self % Gmass ) if ( allocated ( self % rhill )) deallocate ( self % rhill ) allocate ( self % mass ( n )) allocate ( self % Gmass ( n )) allocate ( self % rhill ( n )) self % mass (:) = 0.0_DP self % Gmass (:) = 0.0_DP self % rhill (:) = 0.0_DP self % nplpl = 0 if ( param % lclose ) then if ( allocated ( self % radius )) deallocate ( self % radius ) if ( allocated ( self % density )) deallocate ( self % density ) allocate ( self % radius ( n )) allocate ( self % density ( n )) self % radius (:) = 0.0_DP self % density (:) = 1.0_DP end if if ( param % lrotation ) then if ( allocated ( self % rot )) deallocate ( self % rhill ) if ( allocated ( self % Ip )) deallocate ( self % rhill ) allocate ( self % rot ( NDIM , n )) allocate ( self % Ip ( NDIM , n )) self % rot (:,:) = 0.0_DP self % Ip (:,:) = 0.0_DP end if if ( param % ltides ) then if ( allocated ( self % k2 )) deallocate ( self % rhill ) if ( allocated ( self % Q )) deallocate ( self % rhill ) if ( allocated ( self % tlag )) deallocate ( self % rhill ) allocate ( self % k2 ( n )) allocate ( self % Q ( n )) allocate ( self % tlag ( n )) self % k2 (:) = 0.0_DP self % Q (:) = 0.0_DP self % tlag (:) = 0.0_DP end if return end subroutine setup_pl module subroutine setup_tp ( self , n , param ) !! author: David A. Minton !! !! Constructor for base Swiftest test particle particle class. Allocates space for !! all particles and initializes all components with a value. implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter !> Call allocation method for parent class !> The parent class here is the abstract swiftest_body class, so we can't use the type-bound procedure call setup_body ( self , n , param ) if ( n <= 0 ) return if ( allocated ( self % isperi )) deallocate ( self % isperi ) if ( allocated ( self % peri )) deallocate ( self % peri ) if ( allocated ( self % atp )) deallocate ( self % atp ) allocate ( self % isperi ( n )) allocate ( self % peri ( n )) allocate ( self % atp ( n )) self % isperi (:) = 0 self % peri (:) = 0.0_DP self % atp (:) = 0.0_DP return end subroutine setup_tp end submodule s_setup","tags":"","loc":"sourcefile/setup.f90.html"},{"title":"eucl.f90 – swiftest","text":"This file depends on sourcefile~~eucl.f90~~EfferentGraph sourcefile~eucl.f90 eucl.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~eucl.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_eucl Source Code eucl.f90 Source Code submodule ( swiftest_classes ) s_eucl use swiftest contains module subroutine eucl_dist_index_plpl ( self ) !! author: Jacob R. Elliott and David A. Minton !! !! Turns i,j indices into k index for use in the Euclidean distance matrix !! !! Reference: !! !!    Mélodie Angeletti, Jean-Marie Bonny, Jonas Koko. Parallel Euclidean distance matrix computation on big datasets *. !!       2019. hal-0204751 implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body objec ! Internals integer ( I8B ) :: i , j , counter , npl npl = int ( self % nbody , kind = I8B ) associate ( nplpl => self % nplpl ) nplpl = ( npl * ( npl - 1 ) / 2 ) ! number of entries in a strict lower triangle, nplm x npl, minus first column if ( allocated ( self % k_plpl )) deallocate ( self % k_plpl ) ! Reset the index array if it's been set previously allocate ( self % k_plpl ( 2 , nplpl )) do i = 1 , npl counter = ( i - 1_I8B ) * npl - i * ( i - 1_I8B ) / 2_I8B + 1_I8B do j = i + 1_I8B , npl self % k_plpl ( 1 , counter ) = i self % k_plpl ( 2 , counter ) = j counter = counter + 1_I8B end do end do end associate return end subroutine eucl_dist_index_plpl end submodule s_eucl","tags":"","loc":"sourcefile/eucl.f90.html"},{"title":"user_getacch.f90 – swiftest","text":"This file depends on sourcefile~~user_getacch.f90~~EfferentGraph sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~user_getacch.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_user_kick_getacch Source Code user_getacch.f90 Source Code submodule ( swiftest_classes ) s_user_kick_getacch use swiftest contains module subroutine user_kick_getacch_body ( self , system , param , t , lbeg ) !! author: David A. Minton !! !! Add user-supplied heliocentric accelerations to planets. !! !! Adapted from David E. Kaufmann's Swifter routine whm_user_kick_getacch.f90 implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody_system_object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters user parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the ste return end subroutine user_kick_getacch_body end submodule s_user_kick_getacch","tags":"","loc":"sourcefile/user_getacch.f90.html"},{"title":"drift.f90 – swiftest","text":"This file depends on sourcefile~~drift.f90~~EfferentGraph sourcefile~drift.f90 drift.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~drift.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules drift_implementation Source Code drift.f90 Source Code submodule ( swiftest_classes ) drift_implementation use swiftest !> Integration control parameters: real ( DP ), parameter :: E2MAX = 0.36_DP real ( DP ), parameter :: DM2MAX = 0.16_DP real ( DP ), parameter :: E2DM2MAX = 0.0016_DP real ( DP ), parameter :: DANBYB = 1.0E-13_DP integer ( I2B ), parameter :: NLAG1 = 50 integer ( I2B ), parameter :: NLAG2 = 40 contains module subroutine drift_body ( self , system , param , dt ) !! author: David A. Minton !! !! Loop bodies and call Danby drift routine on the heliocentric position and velocities. !! !! Adapted from Hal Levison's Swift routine drift_tp.f !! Adapted from David E. Kaufmann's Swifter routine whm_drift_tp.f90 implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize ! Internals integer ( I4B ) :: i integer ( I4B ), dimension (:), allocatable :: iflag associate ( n => self % nbody ) allocate ( iflag ( n )) iflag (:) = 0 call drift_all ( self % mu , self % xh , self % vh , self % nbody , param , dt , self % lmask , iflag ) if ( any ( iflag ( 1 : n ) /= 0 )) then where ( iflag ( 1 : n ) /= 0 ) self % status ( 1 : n ) = DISCARDED_DRIFTERR do i = 1 , n if ( iflag ( i ) /= 0 ) write ( * , * ) \" Body \" , self % id ( i ), \" lost due to error in Danby drift\" end do end if end associate return end subroutine drift_body module pure subroutine drift_all ( mu , x , v , n , param , dt , mask , iflag ) !! author: David A. Minton !! !! Loop bodies and call Danby drift routine on all bodies for the given position and velocity vector. !! !! Adapted from Hal Levison's Swift routine drift_tp.f !! Adapted from David E. Kaufmann's Swifter routine whm_drift_tp.f9 implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: mu !! Vector of gravitational constants real ( DP ), dimension (:,:), intent ( inout ) :: x , v !! Position and velocity vectors integer ( I4B ), intent ( in ) :: n !! number of bodies class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize logical , dimension (:), intent ( in ) :: mask !! Logical mask of size self%nbody that determines which bodies to drift. integer ( I4B ), dimension (:), intent ( out ) :: iflag !! Vector of error flags. 0 means no problem ! Internals integer ( I4B ) :: i real ( DP ) :: energy , vmag2 , rmag !! Variables used in GR calculation real ( DP ), dimension (:), allocatable :: dtp if ( n == 0 ) return allocate ( dtp ( n )) if ( param % lgr ) then do concurrent ( i = 1 : n , mask ( i )) rmag = norm2 ( x (:, i )) vmag2 = dot_product ( v (:, i ), v (:, i )) energy = 0.5_DP * vmag2 - mu ( i ) / rmag dtp ( i ) = dt * ( 1.0_DP + 3 * param % inv_c2 * energy ) end do else where ( mask ( 1 : n )) dtp ( 1 : n ) = dt end if do concurrent ( i = 1 : n , mask ( i )) call drift_one ( mu ( i ), x ( 1 , i ), x ( 2 , i ), x ( 3 , i ), v ( 1 , i ), v ( 2 , i ), v ( 3 , i ), dtp ( i ), iflag ( i )) end do return end subroutine drift_all module pure elemental subroutine drift_one ( mu , px , py , pz , vx , vy , vz , dt , iflag ) !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Perform Danby drift for one body, redoing drift with smaller substeps if original accuracy is insufficient !! !! Adapted from David E. Kaufmann's Swifter routine routine drift_one.f90 !! Adapted from Hal Levison and Martin Duncan's Swift routine drift_one.f implicit none ! Arguments real ( DP ), intent ( in ) :: mu !! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body to drift real ( DP ), intent ( inout ) :: px , py , pz , vx , vy , vz !! Position and velocity of body to drift real ( DP ), intent ( in ) :: dt !! Step size integer ( I4B ), intent ( out ) :: iflag !! iflag : error status flag for Danby drift (0 = OK, nonzero = ERROR) ! Internals integer ( I4B ) :: i real ( DP ) :: dttmp real ( DP ), dimension ( NDIM ) :: x , v x = [ px , py , pz ] v = [ vx , vy , vz ] call drift_dan ( mu , x (:), v (:), dt , iflag ) if ( iflag /= 0 ) then dttmp = 0.1_DP * dt do i = 1 , 10 call drift_dan ( mu , x (:), v (:), dttmp , iflag ) if ( iflag /= 0 ) exit end do end if px = x ( 1 ); py = x ( 2 ); pz = x ( 3 ) vx = v ( 1 ); vy = v ( 2 ); vz = v ( 3 ) return end subroutine drift_one pure subroutine drift_dan ( mu , x0 , v0 , dt0 , iflag ) !! author: David A. Minton !! !! Perform Kepler drift, solving Kepler's equation in appropriate variables !! !! Adapted from David E. Kaufmann's Swifter routine: drift_dan.f90 !! Adapted from Hal Levison and Martin Duncan's Swift routine drift_dan.f implicit none integer ( I4B ), intent ( out ) :: iflag real ( DP ), intent ( in ) :: mu , dt0 real ( DP ), dimension (:), intent ( inout ) :: x0 , v0 real ( DP ) :: dt , f , g , fdot , gdot , c1 , c2 , c3 , u , alpha , fp , r0 real ( DP ) :: v0s , a , asq , en , dm , ec , es , esq , xkep , fchk , s , c real ( DP ), dimension ( NDIM ) :: x , v ! Executable code iflag = 0 dt = dt0 r0 = sqrt ( dot_product ( x0 (:), x0 (:))) v0s = dot_product ( v0 (:), v0 (:)) u = dot_product ( x0 (:), v0 (:)) alpha = 2 * mu / r0 - v0s if ( alpha > 0.0_DP ) then a = mu / alpha asq = a ** 2 en = sqrt ( mu / ( a * asq )) ec = 1.0_DP - r0 / a es = u / ( en * asq ) esq = ec ** 2 + es ** 2 dm = dt * en - int ( dt * en / TWOPI , kind = I4B ) * TWOPI dt = dm / en if (( esq < E2MAX ) . and . ( dm ** 2 < DM2MAX ) . and . ( esq * dm ** 2 < E2DM2MAX )) then call drift_kepmd ( dm , es , ec , xkep , s , c ) fchk = ( xkep - ec * s + es * ( 1.0_DP - c ) - dm ) ! DEK - original code compared fchk*fchk with DANBYB, but i think it should ! DEK - be compared with DANBYB*DANBYB, and i changed it accordingly - please ! DEK - check with hal and/or martin about this if ( fchk ** 2 > DANBYB ** 2 ) then iflag = 1 return end if fp = 1.0_DP - ec * c + es * s f = a / r0 * ( c - 1.0_DP ) + 1.0_DP g = dt + ( s - xkep ) / en fdot = - ( a / ( r0 * fp )) * en * s gdot = ( c - 1.0_DP ) / fp + 1.0_DP x (:) = x0 (:) * f + v0 (:) * g v (:) = x0 (:) * fdot + v0 (:) * gdot x0 (:) = x (:) v0 (:) = v (:) iflag = 0 return end if end if call drift_kepu ( dt , r0 , mu , alpha , u , fp , c1 , c2 , c3 , iflag ) if ( iflag == 0 ) then f = 1.0_DP - mu / r0 * c2 g = dt - mu * c3 fdot = - mu / ( fp * r0 ) * c1 gdot = 1.0_DP - mu / fp * c2 x (:) = x0 (:) * f + v0 (:) * g v (:) = x0 (:) * fdot + v0 (:) * gdot x0 (:) = x (:) v0 (:) = v (:) end if return end subroutine drift_dan pure subroutine drift_kepmd ( dm , es , ec , x , s , c ) !! author: David A. Minton !! !! Solve Kepler's equation in difference form for an ellipse for small input dm and eccentricity !!    Original disclaimer: built for speed, does not check how well the original equation is solved !!    Can do that in calling routine by checking how close (x - ec*s + es*(1.0 - c) - dm) is to zero !! !! Adapted from David E. Kaufmann's Swifter routine: drift_kepmd.f90 !! Adapted from Martin Duncan's Swift routine drift_kepmd.f implicit none real ( DP ), intent ( in ) :: dm , es , ec real ( DP ), intent ( out ) :: x , s , c real ( DP ), parameter :: a0 = 3991680 0.0_DP , a1 = 665280 0.0_DP , a2 = 33264 0.0_DP , a3 = 792 0.0_DP , a4 = 11 0.0_DP real ( DP ) :: dx , fac1 , fac2 , q , y , f , fp , fpp , fppp ! executable code fac1 = 1.0_DP / ( 1.0_DP - ec ) q = fac1 * dm fac2 = es ** 2 * fac1 - ec / 3.0_DP x = q * ( 1.0_DP - 0.5_DP * fac1 * q * ( es - q * fac2 )) y = x ** 2 s = x * ( a0 - y * ( a1 - y * ( a2 - y * ( a3 - y * ( a4 - y ))))) / a0 c = sqrt ( 1.0_DP - s ** 2 ) f = x - ec * s + es * ( 1.0_DP - c ) - dm fp = 1.0_DP - ec * c + es * s fpp = ec * s + es * c fppp = ec * c - es * s dx = - f / fp dx = - f / ( fp + dx * fpp / 2.0_DP ) dx = - f / ( fp + dx * fpp / 2.0_DP + dx ** 2 * fppp / 6.0_DP ) x = x + dx y = x ** 2 s = x * ( a0 - y * ( a1 - y * ( a2 - y * ( a3 - y * ( a4 - y ))))) / a0 c = sqrt ( 1.0_DP - s ** 2 ) return end subroutine drift_kepmd pure subroutine drift_kepu ( dt , r0 , mu , alpha , u , fp , c1 , c2 , c3 , iflag ) !! author: David A. Minton !! !! Solve Kepler's equation in universal variables !! !! Adapted from David E. Kaufmann's Swifter routine: drift_kepu.f90 !! Adapted from Hal Levison's Swift routine drift_kepu.f implicit none integer ( I4B ), intent ( out ) :: iflag real ( DP ), intent ( in ) :: dt , r0 , mu , alpha , u real ( DP ), intent ( out ) :: fp , c1 , c2 , c3 real ( DP ) :: s , st , fo , fn ! executable code call drift_kepu_guess ( dt , r0 , mu , alpha , u , s ) st = s call drift_kepu_new ( s , dt , r0 , mu , alpha , u , fp , c1 , c2 , c3 , iflag ) if ( iflag /= 0 ) then call drift_kepu_fchk ( dt , r0 , mu , alpha , u , st , fo ) call drift_kepu_fchk ( dt , r0 , mu , alpha , u , s , fn ) if ( abs ( fo ) < abs ( fn )) s = st call drift_kepu_lag ( s , dt , r0 , mu , alpha , u , fp , c1 , c2 , c3 , iflag ) end if return end subroutine drift_kepu pure subroutine drift_kepu_fchk ( dt , r0 , mu , alpha , u , s , f ) !! author: David A. Minton !! !! Computes the value of f, the function whose root we are trying to find in universal variables !! !! Adapted from David E. Kaufmann's Swifter routine: drift_kepu_fchk.f90 !! Adapted from Martin Duncan's Swift routine drift_kepu_fchk.f implicit none real ( DP ), intent ( in ) :: dt , r0 , mu , alpha , u , s real ( DP ), intent ( out ) :: f real ( DP ) :: x , c0 , c1 , c2 , c3 x = s ** 2 * alpha call drift_kepu_stumpff ( x , c0 , c1 , c2 , c3 ) c1 = c1 * s c2 = c2 * s ** 2 c3 = c3 * s ** 3 f = r0 * c1 + u * c2 + mu * c3 - dt return end subroutine drift_kepu_fchk pure subroutine drift_kepu_guess ( dt , r0 , mu , alpha , u , s ) !! author: David A. Minton !! !! Compute initial guess for solving Kepler's equation using universal variables !! !! Adapted from David E. Kaufmann's Swifter routine: drift_kepu_guess.f90 !! Adapted from Hal Levison and Martin Duncan's Swift routine drift_kepu_guess.f implicit none real ( DP ), intent ( in ) :: dt , r0 , mu , alpha , u real ( DP ), intent ( out ) :: s integer ( I4B ) :: iflag real ( DP ), parameter :: thresh = 0.4_DP , danbyk = 0.85_DP real ( DP ) :: y , sy , cy , sigma , es , x , a , en , ec , e if ( alpha > 0.0_DP ) then if ( dt / r0 <= thresh ) then s = dt / r0 - ( dt ** 2 * u ) / ( 2 * r0 ** 3 ) else a = mu / alpha en = sqrt ( mu / a ** 3 ) ec = 1.0_DP - r0 / a es = u / ( en * a ** 2 ) e = sqrt ( ec ** 2 + es ** 2 ) y = en * dt - es call orbel_scget ( y , sy , cy ) sigma = sign ( 1.0_DP , es * cy + ec * sy ) x = y + sigma * danbyk * e s = x / sqrt ( alpha ) end if else call drift_kepu_p3solve ( dt , r0 , mu , alpha , u , s , iflag ) if ( iflag /= 0 ) s = dt / r0 end if return end subroutine drift_kepu_guess pure subroutine drift_kepu_lag ( s , dt , r0 , mu , alpha , u , fp , c1 , c2 , c3 , iflag ) !! author: David A. Minton !! !! Solve Kepler's equation in universal variables using Laguerre's method !!      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 178 - 180. !! !! Adapted from David E. Kaufmann's Swifter routine: drift_kepu_lag.f90 !! Adapted from Hal Levison's Swift routine drift_kepu_lag.f implicit none integer ( I4B ), intent ( out ) :: iflag real ( DP ), intent ( in ) :: dt , r0 , mu , alpha , u real ( DP ), intent ( inout ) :: s real ( DP ), intent ( out ) :: fp , c1 , c2 , c3 integer ( I4B ) :: nc , ncmax real ( DP ) :: ln , x , fpp , ds , c0 , f , fdt if ( alpha < 0.0_DP ) then ncmax = NLAG2 else ncmax = NLAG1 end if ln = 5.0_DP do nc = 0 , ncmax x = s * s * alpha call drift_kepu_stumpff ( x , c0 , c1 , c2 , c3 ) c1 = c1 * s c2 = c2 * s ** 2 c3 = c3 * s ** 3 f = r0 * c1 + u * c2 + mu * c3 - dt fp = r0 * c0 + u * c1 + mu * c2 fpp = ( - r0 * alpha + mu ) * c1 + u * c0 ds = - ln * f / ( fp + sign ( 1.0_DP , fp ) * sqrt ( abs (( ln - 1.0_DP ) ** 2 * fp ** 2 - ( ln - 1.0_DP ) * ln * f * fpp ))) s = s + ds fdt = f / dt if ( fdt ** 2 < DANBYB ** 2 ) then iflag = 0 return end if end do iflag = 2 return end subroutine drift_kepu_lag pure subroutine drift_kepu_new ( s , dt , r0 , mu , alpha , u , fp , c1 , c2 , c3 , iflag ) !! author: David A. Minton !! !! Solve Kepler's equation in universal variables using Newton's method !!      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 174 - 175. !! !! Adapted from David E. Kaufmann's Swifter routine: drift_kepu_new.f90 !! Adapted from Hal Levison's Swift routine drift_kepu_new.f implicit none integer ( I4B ), intent ( out ) :: iflag real ( DP ), intent ( in ) :: dt , r0 , mu , alpha , u real ( DP ), intent ( inout ) :: s real ( DP ), intent ( out ) :: fp , c1 , c2 , c3 integer ( I4B ) :: nc real ( DP ) :: x , c0 , ds , f , fpp , fppp , fdt do nc = 0 , 6 x = s ** 2 * alpha call drift_kepu_stumpff ( x , c0 , c1 , c2 , c3 ) c1 = c1 * s c2 = c2 * s ** 2 c3 = c3 * s ** 3 f = r0 * c1 + u * c2 + mu * c3 - dt fp = r0 * c0 + u * c1 + mu * c2 fpp = ( - r0 * alpha + mu ) * c1 + u * c0 fppp = ( - r0 * alpha + mu ) * c0 - u * alpha * c1 ds = - f / fp ds = - f / ( fp + ds * fpp / 2.0_DP ) ds = - f / ( fp + ds * fpp / 2.0_DP + ds ** 2 * fppp / 6.0_DP ) s = s + ds fdt = f / dt if ( fdt ** 2 < DANBYB ** 2 ) then iflag = 0 return end if end do iflag = 1 return end subroutine drift_kepu_new pure subroutine drift_kepu_p3solve ( dt , r0 , mu , alpha , u , s , iflag ) !! author: David A. Minton !! !! Computes real root of cubic involved in setting initial guess for solving Kepler's equation in universal variables !!      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 177 - 178. !! !! Adapted from David E. Kaufmann's Swifter routine: drift_kepu_p3solve.f90 !! Adapted from Martin Duncan's Swift routine drift_kepu_p3solve.f implicit none integer ( I4B ), intent ( out ) :: iflag real ( DP ), intent ( in ) :: dt , r0 , mu , alpha , u real ( DP ), intent ( out ) :: s real ( DP ) :: denom , a0 , a1 , a2 , q , r , sq2 , sq , p1 , p2 denom = ( mu - alpha * r0 ) / 6.0_DP a2 = 0.5_DP * u / denom a1 = r0 / denom a0 = - dt / denom q = ( a1 - a2 ** 2 / 3.0_DP ) / 3.0_DP r = ( a1 * a2 - 3 * a0 ) / 6.0_DP - a2 ** 3 / 2 7.0_DP sq2 = q ** 3 + r ** 2 if ( sq2 >= 0.0_DP ) then sq = sqrt ( sq2 ) if (( r + sq ) <= 0.0_DP ) then p1 = - ( - ( r + sq )) ** ( 1.0_DP / 3.0_DP ) else p1 = ( r + sq ) ** ( 1.0_DP / 3.0_DP ) end if if (( r - sq ) <= 0.0_DP ) then p2 = - ( - ( r - sq )) ** ( 1.0_DP / 3.0_DP ) else p2 = ( r - sq ) ** ( 1.0_DP / 3.0_DP ) end if iflag = 0 s = p1 + p2 - a2 / 3.0_DP else iflag = 1 s = 0.0_DP end if return end subroutine drift_kepu_p3solve pure subroutine drift_kepu_stumpff ( x , c0 , c1 , c2 , c3 ) !! author: David A. Minton !! !! Compute Stumpff functions needed for Kepler drift in universal variables !!      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 171 - 172. !! !! Adapted from David E. Kaufmann's Swifter routine: drift_kepu_stumpff.f90 !! Adapted from Hal Levison's Swift routine drift_kepu_stumpff.f implicit none real ( DP ), intent ( inout ) :: x real ( DP ), intent ( out ) :: c0 , c1 , c2 , c3 integer ( I4B ) :: i , n real ( DP ) :: xm n = 0 xm = 0.1_DP do while ( abs ( x ) >= xm ) n = n + 1 x = x / 4.0_DP end do c2 = ( 1.0_DP - x * ( 1.0_DP - x * ( 1.0_DP - x * ( 1.0_DP - x * ( 1.0_DP - x * & ( 1.0_DP - x / 18 2.0_DP ) / 13 2.0_DP ) / 9 0.0_DP ) / 5 6.0_DP ) / & 3 0.0_DP ) / 1 2.0_DP ) / 2.0_DP c3 = ( 1.0_DP - x * ( 1.0_DP - x * ( 1.0_DP - x * ( 1.0_DP - x * ( 1.0_DP - x * & ( 1.0_DP - x / 21 0.0_DP ) / 15 6.0_DP ) / 11 0.0_DP ) / 7 2.0_DP ) / & 4 2.0_DP ) / 2 0.0_DP ) / 6.0_DP c1 = 1.0_DP - x * c3 c0 = 1.0_DP - x * c2 if ( n /= 0 ) then do i = n , 1 , - 1 c3 = ( c2 + c0 * c3 ) / 4.0_DP c2 = c1 ** 2 / 2.0_DP c1 = c0 * c1 c0 = 2 * c0 ** 2 - 1.0_DP x = x * 4 end do end if return end subroutine drift_kepu_stumpff end submodule drift_implementation","tags":"","loc":"sourcefile/drift.f90.html"},{"title":"symba_util.f90 – swiftest","text":"This file depends on sourcefile~~symba_util.f90~~EfferentGraph sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_util.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_util Source Code symba_util.f90 Source Code submodule ( symba_classes ) s_symba_util use swiftest contains module subroutine symba_util_append_arr_info ( arr , source , lsource_mask ) !! author: David A. Minton !! !! Append a single array of particle information type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. implicit none ! Arguments type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array type ( symba_particle_info ), dimension (:), allocatable , intent ( in ) :: source !! Array to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to ! Internals integer ( I4B ) :: narr , nsrc if (. not . allocated ( source )) return if ( present ( lsource_mask )) then nsrc = count ( lsource_mask ) else nsrc = size ( source ) end if if ( allocated ( arr )) then narr = size ( arr ) else allocate ( arr ( nsrc )) narr = 0 end if call util_resize ( arr , narr + nsrc ) if ( present ( lsource_mask )) then arr ( narr + 1 : narr + nsrc ) = pack ( source (:), lsource_mask (:)) else arr ( narr + 1 : narr + nsrc ) = source (:) end if return end subroutine symba_util_append_arr_info module subroutine symba_util_append_arr_kin ( arr , source , lsource_mask ) !! author: David A. Minton !! !! Append a single array of kinship type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. implicit none ! Arguments type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array type ( symba_kinship ), dimension (:), allocatable , intent ( in ) :: source !! Array to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to ! Internals integer ( I4B ) :: narr , nsrc if (. not . allocated ( source )) return if ( present ( lsource_mask )) then nsrc = count ( lsource_mask ) else nsrc = size ( source ) end if if ( allocated ( arr )) then narr = size ( arr ) else allocate ( arr ( nsrc )) narr = 0 end if call util_resize ( arr , narr + nsrc ) if ( present ( lsource_mask )) then arr ( narr + 1 : narr + nsrc ) = pack ( source (:), lsource_mask (:)) else arr ( narr + 1 : narr + nsrc ) = source (:) end if return end subroutine symba_util_append_arr_kin module subroutine symba_util_append_pl ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from one massive body object to another. !! This method will automatically resize the destination body if it is too small implicit none !! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to select type ( source ) class is ( symba_pl ) call util_append_pl ( self , source , lsource_mask ) ! Note: helio_pl does not have its own append method, so we skip back to the base class call util_append ( self % lcollision , source % lcollision , lsource_mask ) call util_append ( self % lencounter , source % lencounter , lsource_mask ) call util_append ( self % lmtiny , source % lmtiny , lsource_mask ) call util_append ( self % nplenc , source % nplenc , lsource_mask ) call util_append ( self % ntpenc , source % ntpenc , lsource_mask ) call util_append ( self % levelg , source % levelg , lsource_mask ) call util_append ( self % levelm , source % levelm , lsource_mask ) call util_append ( self % isperi , source % isperi , lsource_mask ) call util_append ( self % peri , source % peri , lsource_mask ) call util_append ( self % atp , source % atp , lsource_mask ) call util_append ( self % kin , source % kin , lsource_mask ) call util_append ( self % info , source % info , lsource_mask ) class default write ( * , * ) \"Invalid object passed to the append method. Source must be of class symba_pl or its descendents!\" call util_exit ( FAILURE ) end select return end subroutine symba_util_append_pl module subroutine symba_util_append_merger ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from one massive body object to another. !! This method will automatically resize the destination body if it is too small implicit none ! Arguments class ( symba_merger ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to ! Internals integer ( I4B ), dimension (:), allocatable :: ncomp_tmp !! Temporary placeholder for ncomp incase we are appending a symba_pl object to a symba_merger select type ( source ) class is ( symba_merger ) call symba_util_append_pl ( self , source , lsource_mask ) call util_append ( self % ncomp , source % ncomp , lsource_mask ) class is ( symba_pl ) call symba_util_append_pl ( self , source , lsource_mask ) allocate ( ncomp_tmp , mold = source % id ) ncomp_tmp (:) = 0 call util_append ( self % ncomp , ncomp_tmp , lsource_mask ) class default write ( * , * ) \"Invalid object passed to the append method. Source must be of class symba_pl or its descendents!\" call util_exit ( FAILURE ) end select return end subroutine symba_util_append_merger module subroutine symba_util_append_tp ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from test particle object to another. !! This method will automatically resize the destination body if it is too small implicit none !! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to select type ( source ) class is ( symba_tp ) call util_append_tp ( self , source , lsource_mask ) ! Note: helio_tp does not have its own append method, so we skip back to the base class call util_append ( self % nplenc , source % nplenc , lsource_mask ) call util_append ( self % levelg , source % levelg , lsource_mask ) call util_append ( self % levelm , source % levelm , lsource_mask ) class default write ( * , * ) \"Invalid object passed to the append method. Source must be of class symba_tp or its descendents!\" call util_exit ( FAILURE ) end select return end subroutine symba_util_append_tp module subroutine symba_util_fill_arr_info ( keeps , inserts , lfill_list ) !! author: David A. Minton !! !! Performs a fill operation on a single array of particle origin information types !! This is the inverse of a spill operation implicit none ! Arguments type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( symba_particle_info ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps if (. not . allocated ( keeps ) . or . . not . allocated ( inserts )) return keeps (:) = unpack ( keeps (:), . not . lfill_list (:), keeps (:)) keeps (:) = unpack ( inserts (:), lfill_list (:), keeps (:)) return end subroutine symba_util_fill_arr_info module subroutine symba_util_fill_arr_kin ( keeps , inserts , lfill_list ) !! author: David A. Minton !! !! Performs a fill operation on a single array of particle kinship types !! This is the inverse of a spill operation implicit none ! Arguments type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( symba_kinship ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps if (. not . allocated ( keeps ) . or . . not . allocated ( inserts )) return keeps (:) = unpack ( keeps (:), . not . lfill_list (:), keeps (:)) keeps (:) = unpack ( inserts (:), lfill_list (:), keeps (:)) return end subroutine symba_util_fill_arr_kin module subroutine symba_util_fill_pl ( self , inserts , lfill_list ) !! author: David A. Minton !! !! Insert new SyMBA test particle structure into an old one. !! This is the inverse of a fill operation. !! implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA masive body object class ( swiftest_body ), intent ( in ) :: inserts !! Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps associate ( keeps => self ) select type ( inserts ) class is ( symba_pl ) call util_fill ( keeps % lcollision , inserts % lcollision , lfill_list ) call util_fill ( keeps % lencounter , inserts % lencounter , lfill_list ) call util_fill ( keeps % lmtiny , inserts % lmtiny , lfill_list ) call util_fill ( keeps % nplenc , inserts % nplenc , lfill_list ) call util_fill ( keeps % ntpenc , inserts % ntpenc , lfill_list ) call util_fill ( keeps % levelg , inserts % levelg , lfill_list ) call util_fill ( keeps % levelm , inserts % levelm , lfill_list ) call util_fill ( keeps % isperi , inserts % isperi , lfill_list ) call util_fill ( keeps % peri , inserts % peri , lfill_list ) call util_fill ( keeps % atp , inserts % atp , lfill_list ) call util_fill ( keeps % kin , inserts % kin , lfill_list ) call util_fill ( keeps % info , inserts % info , lfill_list ) call util_fill_pl ( keeps , inserts , lfill_list ) ! Note: helio_pl does not have its own fill method, so we skip back to the base class class default write ( * , * ) \"Invalid object passed to the fill method. Source must be of class symba_pl or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine symba_util_fill_pl module subroutine symba_util_fill_tp ( self , inserts , lfill_list ) !! author: David A. Minton !! !! Insert new SyMBA test particle structure into an old one. !! This is the inverse of a fill operation. !! implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object class ( swiftest_body ), intent ( in ) :: inserts !! Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps associate ( keeps => self ) select type ( inserts ) class is ( symba_tp ) call util_fill ( keeps % nplenc , inserts % nplenc , lfill_list ) call util_fill ( keeps % levelg , inserts % levelg , lfill_list ) call util_fill ( keeps % levelm , inserts % levelm , lfill_list ) call util_fill_tp ( keeps , inserts , lfill_list ) ! Note: helio_tp does not have its own fill method, so we skip back to the base class class default write ( * , * ) \"Invalid object passed to the fill method. Source must be of class symba_tp or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine symba_util_fill_tp module subroutine symba_util_peri_pl ( self , system , param ) !! author: David A. Minton !! !! Determine system pericenter passages for planets in SyMBA !! !! Adapted from David E. Kaufmann's Swifter routine: symba_peri.f90 !! Adapted from Hal Levison's Swift routine util_mass_peri.f implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ) :: vdotr , e associate ( pl => self , npl => self % nbody ) if ( pl % lfirst ) then if ( param % qmin_coord == \"HELIO\" ) then do i = 1 , npl if ( pl % status ( i ) == ACTIVE ) then vdotr = dot_product ( pl % xh (:, i ), pl % vh (:, i )) if ( vdotr > 0.0_DP ) then pl % isperi ( i ) = 1 else pl % isperi ( i ) = - 1 end if end if end do else do i = 1 , npl if ( pl % status ( i ) == ACTIVE ) then vdotr = dot_product ( pl % xb (:, i ), pl % vb (:, i )) if ( vdotr > 0.0_DP ) then pl % isperi ( i ) = 1 else pl % isperi ( i ) = - 1 end if end if end do end if else if ( param % qmin_coord == \"HELIO\" ) then do i = 1 , npl if ( pl % status ( i ) == ACTIVE ) then vdotr = dot_product ( pl % xh (:, i ), pl % vh (:, i )) if ( pl % isperi ( i ) == - 1 ) then if ( vdotr >= 0.0_DP ) then pl % isperi ( i ) = 0 CALL orbel_xv2aeq ( pl % mu ( i ), pl % xh (:, i ), pl % vh (:, i ), pl % atp ( i ), e , pl % peri ( i )) end if else if ( vdotr > 0.0_DP ) then pl % isperi ( i ) = 1 else pl % isperi ( i ) = - 1 end if end if end if end do else do i = 1 , npl if ( pl % status ( i ) == ACTIVE ) then vdotr = dot_product ( pl % xb (:, i ), pl % vb (:, i )) if ( pl % isperi ( i ) == - 1 ) then if ( vdotr >= 0.0_DP ) then pl % isperi ( i ) = 0 CALL orbel_xv2aeq ( system % Gmtot , pl % xb (:, i ), pl % vb (:, i ), pl % atp ( i ), e , pl % peri ( i )) end if else if ( vdotr > 0.0_DP ) then pl % isperi ( i ) = 1 else pl % isperi ( i ) = - 1 end if end if end if end do end if end if end associate return end subroutine symba_util_peri_pl module subroutine symba_util_rearray_pl ( self , system , param ) !! Author: the Purdue Swiftest Team -  David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Clean up the massive body structures to remove discarded bodies and add new bodies implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( symba_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals class ( symba_pl ), allocatable :: pl_discards !! The discarded body list. associate ( pl => self , mergeadd_list => system % mergeadd_list ) allocate ( pl_discards , mold = pl ) ! Remove the discards call pl % spill ( pl_discards , lspill_list = ( pl % ldiscard (:) . or . pl % status (:) == INACTIVE ), ldestructive = . true .) ! Add in any new bodies call pl % append ( mergeadd_list ) ! If there are still bodies in the system, sort by mass in descending order and re-index if ( pl % nbody > 0 ) then call pl % sort ( \"mass\" , ascending = . false .) pl % lmtiny (:) = pl % Gmass (:) > param % MTINY pl % nplm = count ( pl % lmtiny (:)) call pl % eucl_index () end if ! Destroy the discarded body list, since we already have what we need in the mergesub_list call pl_discards % setup ( 0 , param ) deallocate ( pl_discards ) end associate return end subroutine symba_util_rearray_pl module subroutine symba_util_resize_arr_info ( arr , nnew ) !! author: David A. Minton !! !! Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. implicit none ! Arguments type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size ! Internals type ( symba_particle_info ), dimension (:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated integer ( I4B ) :: nold !! Old size if (. not . allocated ( arr ) . or . nnew < 0 ) return nold = size ( arr ) if ( nnew == nold ) return if ( nnew == 0 ) then deallocate ( arr ) return end if allocate ( tmp ( nnew )) if ( nnew > nold ) then tmp ( 1 : nold ) = arr ( 1 : nold ) else tmp ( 1 : nnew ) = arr ( 1 : nnew ) end if call move_alloc ( tmp , arr ) return end subroutine symba_util_resize_arr_info module subroutine symba_util_resize_arr_kin ( arr , nnew ) !! author: David A. Minton !! !! Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. implicit none ! Arguments type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size ! Internals type ( symba_kinship ), dimension (:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated integer ( I4B ) :: nold !! Old size if (. not . allocated ( arr ) . or . nnew < 0 ) return nold = size ( arr ) if ( nnew == nold ) return if ( nnew == 0 ) then deallocate ( arr ) return end if allocate ( tmp ( nnew )) if ( nnew > nold ) then tmp ( 1 : nold ) = arr ( 1 : nold ) else tmp ( 1 : nnew ) = arr ( 1 : nnew ) end if call move_alloc ( tmp , arr ) return end subroutine symba_util_resize_arr_kin module subroutine symba_util_resize_merger ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a SyMBA merger list against the requested size and resizes it if it is too small. implicit none ! Arguments class ( symba_merger ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded call symba_util_resize_pl ( self , nnew ) call util_resize ( self % ncomp , nnew ) return end subroutine symba_util_resize_merger module subroutine symba_util_resize_pl ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a SyMBA massive body object against the requested size and resizes it if it is too small. implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded call util_resize_pl ( self , nnew ) call util_resize ( self % lcollision , nnew ) call util_resize ( self % lencounter , nnew ) call util_resize ( self % lmtiny , nnew ) call util_resize ( self % nplenc , nnew ) call util_resize ( self % ntpenc , nnew ) call util_resize ( self % levelg , nnew ) call util_resize ( self % levelm , nnew ) call util_resize ( self % isperi , nnew ) call util_resize ( self % peri , nnew ) call util_resize ( self % atp , nnew ) call util_resize ( self % kin , nnew ) call util_resize ( self % info , nnew ) return end subroutine symba_util_resize_pl module subroutine symba_util_resize_tp ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a test particle object against the requested size and resizes it if it is too small. implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object integer ( I4B ), intent ( in ) :: nnew !! New size neded call util_resize_tp ( self , nnew ) call util_resize ( self % nplenc , nnew ) call util_resize ( self % levelg , nnew ) call util_resize ( self % levelm , nnew ) return end subroutine symba_util_resize_tp module subroutine symba_util_sort_pl ( self , sortby , ascending ) !! author: David A. Minton !! !! Sort a SyMBA massive body object in-place. !! sortby is a string indicating which array component to sort. implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order ! Internals integer ( I4B ), dimension ( self % nbody ) :: ind integer ( I4B ) :: direction if ( self % nbody == 0 ) return if ( ascending ) then direction = 1 else direction = - 1 end if associate ( pl => self , npl => self % nbody ) select case ( sortby ) case ( \"nplenc\" ) call util_sort ( direction * pl % nplenc ( 1 : npl ), ind ( 1 : npl )) case ( \"ntpenc\" ) call util_sort ( direction * pl % ntpenc ( 1 : npl ), ind ( 1 : npl )) case ( \"levelg\" ) call util_sort ( direction * pl % levelg ( 1 : npl ), ind ( 1 : npl )) case ( \"levelm\" ) call util_sort ( direction * pl % levelm ( 1 : npl ), ind ( 1 : npl )) case ( \"peri\" ) call util_sort ( direction * pl % peri ( 1 : npl ), ind ( 1 : npl )) case ( \"atp\" ) call util_sort ( direction * pl % atp ( 1 : npl ), ind ( 1 : npl )) case ( \"lcollision\" , \"lencounter\" , \"lmtiny\" , \"nplm\" , \"nplplm\" , \"kin\" , \"info\" ) write ( * , * ) 'Cannot sort by ' // trim ( adjustl ( sortby )) // '. Component not sortable!' case default ! Look for components in the parent class call util_sort_pl ( pl , sortby , ascending ) return end select call pl % rearrange ( ind ) end associate return end subroutine symba_util_sort_pl module subroutine symba_util_sort_tp ( self , sortby , ascending ) !! author: David A. Minton !! !! Sort a SyMBA test particle object in-place. !! sortby is a string indicating which array component to sort. implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order ! Internals integer ( I4B ), dimension ( self % nbody ) :: ind integer ( I4B ) :: direction if ( self % nbody == 0 ) return if ( ascending ) then direction = 1 else direction = - 1 end if associate ( tp => self , ntp => self % nbody ) select case ( sortby ) case ( \"nplenc\" ) call util_sort ( direction * tp % nplenc ( 1 : ntp ), ind ( 1 : ntp )) case ( \"levelg\" ) call util_sort ( direction * tp % levelg ( 1 : ntp ), ind ( 1 : ntp )) case ( \"levelm\" ) call util_sort ( direction * tp % levelm ( 1 : ntp ), ind ( 1 : ntp )) case default ! Look for components in the parent class call util_sort_tp ( tp , sortby , ascending ) return end select call tp % rearrange ( ind ) end associate return end subroutine symba_util_sort_tp module subroutine symba_util_sort_rearrange_pl ( self , ind ) !! author: David A. Minton !! !! Rearrange SyMBA massive body structure in-place from an index list. !! This is a helper utility used to make polymorphic sorting work on Swiftest structures. implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) ! Internals class ( symba_pl ), allocatable :: pl_sorted !! Temporary holder for sorted body integer ( I4B ) :: i , j associate ( pl => self , npl => self % nbody ) call util_sort_rearrange_pl ( pl , ind ) allocate ( pl_sorted , source = self ) if ( allocated ( pl % lcollision )) pl % lcollision ( 1 : npl ) = pl_sorted % lcollision ( ind ( 1 : npl )) if ( allocated ( pl % lencounter )) pl % lencounter ( 1 : npl ) = pl_sorted % lencounter ( ind ( 1 : npl )) if ( allocated ( pl % lmtiny )) pl % lmtiny ( 1 : npl ) = pl_sorted % lmtiny ( ind ( 1 : npl )) if ( allocated ( pl % nplenc )) pl % nplenc ( 1 : npl ) = pl_sorted % nplenc ( ind ( 1 : npl )) if ( allocated ( pl % ntpenc )) pl % ntpenc ( 1 : npl ) = pl_sorted % ntpenc ( ind ( 1 : npl )) if ( allocated ( pl % levelg )) pl % levelg ( 1 : npl ) = pl_sorted % levelg ( ind ( 1 : npl )) if ( allocated ( pl % levelm )) pl % levelm ( 1 : npl ) = pl_sorted % levelm ( ind ( 1 : npl )) if ( allocated ( pl % isperi )) pl % isperi ( 1 : npl ) = pl_sorted % isperi ( ind ( 1 : npl )) if ( allocated ( pl % peri )) pl % peri ( 1 : npl ) = pl_sorted % peri ( ind ( 1 : npl )) if ( allocated ( pl % atp )) pl % atp ( 1 : npl ) = pl_sorted % atp ( ind ( 1 : npl )) if ( allocated ( pl % info )) pl % info ( 1 : npl ) = pl_sorted % info ( ind ( 1 : npl )) if ( allocated ( pl % kin )) then pl % kin ( 1 : npl ) = pl_sorted % kin ( ind ( 1 : npl )) do i = 1 , npl do j = 1 , pl % kin ( i )% nchild pl % kin ( i )% child ( j ) = ind ( pl % kin ( i )% child ( j )) end do end do end if deallocate ( pl_sorted ) end associate return end subroutine symba_util_sort_rearrange_pl module subroutine symba_util_sort_rearrange_tp ( self , ind ) !! author: David A. Minton !! !! Rearrange SyMBA test particle object in-place from an index list. !! This is a helper utility used to make polymorphic sorting work on Swiftest structures. implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) ! Internals class ( symba_tp ), allocatable :: tp_sorted !! Temporary holder for sorted body associate ( tp => self , ntp => self % nbody ) call util_sort_rearrange_tp ( tp , ind ) allocate ( tp_sorted , source = self ) if ( allocated ( tp % nplenc )) tp % nplenc ( 1 : ntp ) = tp_sorted % nplenc ( ind ( 1 : ntp )) if ( allocated ( tp % levelg )) tp % levelg ( 1 : ntp ) = tp_sorted % levelg ( ind ( 1 : ntp )) if ( allocated ( tp % levelm )) tp % levelm ( 1 : ntp ) = tp_sorted % levelm ( ind ( 1 : ntp )) deallocate ( tp_sorted ) end associate return end subroutine symba_util_sort_rearrange_tp module subroutine symba_util_spill_arr_info ( keeps , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Performs a spill operation on a single array of particle origin information types !! This is the inverse of a spill operation implicit none ! Arguments type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardss logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not if (. not . allocated ( keeps ) . or . count ( lspill_list (:)) == 0 ) return if (. not . allocated ( discards )) allocate ( discards ( count ( lspill_list (:)))) discards (:) = pack ( keeps (:), lspill_list (:)) if ( ldestructive ) then if ( count (. not . lspill_list (:)) > 0 ) then keeps (:) = pack ( keeps (:), . not . lspill_list (:)) else deallocate ( keeps ) end if end if return end subroutine symba_util_spill_arr_info module subroutine symba_util_spill_arr_kin ( keeps , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Performs a spill operation on a single array of particle kinships !! This is the inverse of a spill operation implicit none ! Arguments type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardss logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not if (. not . allocated ( keeps ) . or . count ( lspill_list (:)) == 0 ) return if (. not . allocated ( discards )) allocate ( discards ( count ( lspill_list (:)))) discards (:) = pack ( keeps (:), lspill_list (:)) if ( ldestructive ) then if ( count (. not . lspill_list (:)) > 0 ) then keeps (:) = pack ( keeps (:), . not . lspill_list (:)) else deallocate ( keeps ) end if end if return end subroutine symba_util_spill_arr_kin module subroutine symba_util_spill_pl ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) SyMBA massive body particle structure from active list to discard list !! Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list ! Internals integer ( I4B ) :: i ! For each component, pack the discarded bodies into the discard object and do the inverse with the keeps !> Spill all the common components associate ( keeps => self ) select type ( discards ) class is ( symba_pl ) call util_spill ( keeps % lcollision , discards % lcollision , lspill_list , ldestructive ) call util_spill ( keeps % lencounter , discards % lencounter , lspill_list , ldestructive ) call util_spill ( keeps % lmtiny , discards % lmtiny , lspill_list , ldestructive ) call util_spill ( keeps % nplenc , discards % nplenc , lspill_list , ldestructive ) call util_spill ( keeps % ntpenc , discards % ntpenc , lspill_list , ldestructive ) call util_spill ( keeps % levelg , discards % levelg , lspill_list , ldestructive ) call util_spill ( keeps % levelm , discards % levelm , lspill_list , ldestructive ) call util_spill ( keeps % isperi , discards % isperi , lspill_list , ldestructive ) call util_spill ( keeps % peri , discards % peri , lspill_list , ldestructive ) call util_spill ( keeps % atp , discards % atp , lspill_list , ldestructive ) call util_spill ( keeps % info , discards % info , lspill_list , ldestructive ) call util_spill ( keeps % kin , discards % kin , lspill_list , ldestructive ) call util_spill_pl ( keeps , discards , lspill_list , ldestructive ) class default write ( * , * ) \"Invalid object passed to the spill method. Source must be of class symba_pl or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine symba_util_spill_pl module subroutine symba_util_spill_pltpenc ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) SyMBA encounter structure from active list to discard list !! Note: Because the symba_plplenc currently does not contain any additional variable components, this method can recieve it as an input as well. implicit none ! Arguments class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-tp encounter list class ( swiftest_encounter ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list ! Internals integer ( I4B ) :: i associate ( keeps => self ) select type ( discards ) class is ( symba_pltpenc ) call util_spill ( keeps % level , discards % level , lspill_list , ldestructive ) call util_spill_encounter ( keeps , discards , lspill_list , ldestructive ) class default write ( * , * ) \"Invalid object passed to the spill method. Source must be of class symba_pltpenc or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine symba_util_spill_pltpenc module subroutine symba_util_spill_tp ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) SyMBA test particle structure from active list to discard list !! Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list ! Internals integer ( I4B ) :: i ! For each component, pack the discarded bodies into the discard object and do the inverse with the keeps !> Spill all the common components associate ( keeps => self ) select type ( discards ) class is ( symba_tp ) call util_spill ( keeps % nplenc , discards % nplenc , lspill_list , ldestructive ) call util_spill ( keeps % levelg , discards % levelg , lspill_list , ldestructive ) call util_spill ( keeps % levelm , discards % levelm , lspill_list , ldestructive ) call util_spill_tp ( keeps , discards , lspill_list , ldestructive ) class default write ( * , * ) \"Invalid object passed to the spill method. Source must be of class symba_tp or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine symba_util_spill_tp end submodule s_symba_util","tags":"","loc":"sourcefile/symba_util.f90.html"},{"title":"symba_collision.f90 – swiftest","text":"This file depends on sourcefile~~symba_collision.f90~~EfferentGraph sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_collision.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_collision Source Code symba_collision.f90 Source Code submodule ( symba_classes ) s_symba_collision use swiftest contains module subroutine symba_collision_check_pltpenc ( self , system , param , t , dt , irec ) !! author: David A. Minton !! !! Check for merger between massive bodies and test particles in SyMBA !! !! Adapted from David E. Kaufmann's Swifter routine symba_merge.f90 and symba_merge_tp.f90 !! !! Adapted from Hal Levison's Swift routine symba5_merge.f implicit none ! Arguments class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-tp encounter list object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! current time real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level ! Internals logical , dimension (:), allocatable :: lcollision , lmask real ( DP ), dimension ( NDIM ) :: xr , vr integer ( I4B ) :: k real ( DP ) :: rlim , mtot logical :: isplpl if ( self % nenc == 0 ) return select type ( self ) class is ( symba_plplenc ) isplpl = . true . class default isplpl = . false . end select select type ( pl => system % pl ) class is ( symba_pl ) select type ( tp => system % tp ) class is ( symba_tp ) associate ( nenc => self % nenc , ind1 => self % index1 , ind2 => self % index2 ) allocate ( lmask ( nenc )) lmask (:) = (( self % status ( 1 : nenc ) == ACTIVE ) . and . ( pl % levelg ( ind1 ( 1 : nenc )) >= irec )) if ( isplpl ) then lmask (:) = lmask (:) . and . ( pl % levelg ( ind2 ( 1 : nenc )) >= irec ) else lmask (:) = lmask (:) . and . ( tp % levelg ( ind2 ( 1 : nenc )) >= irec ) end if if (. not . any ( lmask (:))) return allocate ( lcollision ( nenc )) lcollision (:) = . false . if ( isplpl ) then do concurrent ( k = 1 : nenc , lmask ( k )) xr (:) = pl % xh (:, ind1 ( k )) - pl % xh (:, ind2 ( k )) vr (:) = pl % vb (:, ind1 ( k )) - pl % vb (:, ind2 ( k )) rlim = pl % radius ( ind1 ( k )) + pl % radius ( ind2 ( k )) mtot = pl % Gmass ( ind1 ( k )) + pl % Gmass ( ind2 ( k )) lcollision ( k ) = symba_collision_check_one ( xr ( 1 ), xr ( 2 ), xr ( 3 ), vr ( 1 ), vr ( 2 ), vr ( 3 ), mtot , rlim , dt , self % lvdotr ( k )) end do else do concurrent ( k = 1 : nenc , lmask ( k )) xr (:) = pl % xh (:, ind1 ( k )) - tp % xh (:, ind2 ( k )) vr (:) = pl % vb (:, ind1 ( k )) - tp % vb (:, ind2 ( k )) lcollision ( k ) = symba_collision_check_one ( xr ( 1 ), xr ( 2 ), xr ( 3 ), vr ( 1 ), vr ( 2 ), vr ( 3 ), pl % Gmass ( ind1 ( k )), pl % radius ( ind1 ( k )), dt , self % lvdotr ( k )) end do end if if ( any ( lcollision (:))) then do k = 1 , nenc if (. not . lcollision ( k )) cycle self % status ( k ) = COLLISION self % x1 (:, k ) = pl % xh (:, ind1 ( k )) self % v1 (:, k ) = pl % vb (:, ind1 ( k )) if ( isplpl ) then self % x2 (:, k ) = pl % xh (:, ind2 ( k )) self % v2 (:, k ) = pl % vb (:, ind2 ( k )) ! Check to see if either of these bodies has been involved with a collision before, and if so, make this a collisional family if ( pl % lcollision ( ind1 ( k )) . or . pl % lcollision ( ind2 ( k ))) call pl % make_family ([ ind1 ( k ), ind2 ( k )]) ! Set the collision flag for these to bodies to true in case they become involved in another collision later in the step pl % lcollision ([ ind1 ( k ), ind2 ( k )]) = . true . pl % ldiscard ([ ind1 ( k ), ind2 ( k )]) = . true . pl % status ([ ind1 ( k ), ind2 ( k )]) = COLLISION else self % x2 (:, k ) = tp % xh (:, ind2 ( k )) self % v2 (:, k ) = tp % vb (:, ind2 ( k )) tp % status ( ind2 ( k )) = DISCARDED_PLR tp % ldiscard ( ind2 ( k )) = . true . write ( * , * ) 'Test particle ' , tp % id ( ind2 ( k )), ' collided with massive body ' , pl % id ( ind1 ( k )), ' at time ' , t end if end do end if end associate end select end select return end subroutine symba_collision_check_pltpenc pure elemental function symba_collision_check_one ( xr , yr , zr , vxr , vyr , vzr , Gmtot , rlim , dt , lvdotr ) result ( lcollision ) !! author: David A. Minton !! !! Check for a merger between a single pair of particles !! !! Adapted from David E. Kaufmann's Swifter routines symba_merge_tp.f90 and symba_merge_pl.f90 !! !! Adapted from Hal Levison's Swift routine symba5_merge.f implicit none ! Arguments real ( DP ), intent ( in ) :: xr , yr , zr !! Relative position vector components real ( DP ), intent ( in ) :: vxr , vyr , vzr !! Relative velocity vector components real ( DP ), intent ( in ) :: Gmtot !! Sum of G*mass of colliding bodies real ( DP ), intent ( in ) :: rlim !! Collision limit - Typically the sum of the radii of colliding bodies real ( DP ), intent ( in ) :: dt !! Step size logical , intent ( in ) :: lvdotr !! Logical flag indicating that these two bodies are approaching in the current substep ! Result logical :: lcollision !! Logical flag indicating whether these two bodies will collide or not ! Internals real ( DP ) :: r2 , rlim2 , a , e , q , vdotr , tcr2 , dt2 r2 = xr ** 2 + yr ** 2 + zr ** 2 rlim2 = rlim ** 2 if ( r2 <= rlim2 ) then ! checks if bodies are actively colliding in this time step lcollision = . true . else ! if they are not actively colliding in  this time step, checks if they are going to collide next time step based on velocities and q lcollision = . false . vdotr = xr * vxr + yr * vyr + zr * vzr if ( lvdotr . and . ( vdotr > 0.0_DP )) then tcr2 = r2 / ( vxr ** 2 + vyr ** 2 + vzr ** 2 ) dt2 = dt ** 2 if ( tcr2 <= dt2 ) then call orbel_xv2aeq ( Gmtot , [ xr , yr , zr ], [ vxr , vyr , vzr ], a , e , q ) lcollision = ( q < rlim ) end if end if end if return end function symba_collision_check_one function symba_collision_consolidate_familes ( pl , param , idx_parent , family , x , v , mass , radius , L_spin , Ip ) result ( lflag ) !! author: David A. Minton !! !! Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all family members, !! and pairs of quantities (x and v vectors, mass, radius, L_spin, and Ip) that can be used to resolve the collisional outcome. implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: pl !! SyMBA massive body object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension ( 2 ), intent ( inout ) :: idx_parent !! Index of the two bodies considered the \"parents\" of the collision integer ( I4B ), dimension (:), allocatable , intent ( out ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension ( NDIM , 2 ), intent ( out ) :: x , v , L_spin , Ip !! Output values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension ( 2 ), intent ( out ) :: mass , radius !! Output values that represent a 2-body equivalent of a possibly 2+ body collision ! Result logical :: lflag !! Logical flag indicating whether a family was successfully created or not ! Internals type family_array integer ( I4B ), dimension (:), allocatable :: id integer ( I4B ), dimension (:), allocatable :: idx end type family_array type ( family_array ), dimension ( 2 ) :: parent_child_index_array integer ( I4B ), dimension ( 2 ) :: nchild integer ( I4B ) :: i , j , fam_size , idx_child real ( DP ), dimension ( 2 ) :: volume , density real ( DP ) :: mchild , mtot , volchild real ( DP ), dimension ( NDIM ) :: xc , vc , xcom , vcom , xchild , vchild , xcrossv nchild (:) = pl % kin ( idx_parent (:))% nchild ! If all of these bodies share a parent, but this is still a unique collision, move the last child ! out of the parent's position and make it the secondary body if ( idx_parent ( 1 ) == idx_parent ( 2 )) then if ( nchild ( 1 ) == 0 ) then ! There is only one valid body recorded in this pair (this could happen due to restructuring of the kinship relationships, though it should be rare) lflag = . false . return end if idx_parent ( 2 ) = pl % kin ( idx_parent ( 1 ))% child ( nchild ( 1 )) nchild ( 1 ) = nchild ( 1 ) - 1 nchild ( 2 ) = 0 pl % kin ( idx_parent (:))% nchild = nchild (:) pl % kin ( idx_parent ( 2 ))% parent = idx_parent ( 1 ) end if mass (:) = pl % mass ( idx_parent (:)) ! Note: This is meant to mass, not G*mass, as the collisional regime determination uses mass values that will be converted to Si radius (:) = pl % radius ( idx_parent (:)) volume (:) = ( 4.0_DP / 3.0_DP ) * PI * radius (:) ** 3 ! Group together the ids and indexes of each collisional parent and its children do j = 1 , 2 allocate ( parent_child_index_array ( j )% idx ( nchild ( j ) + 1 )) allocate ( parent_child_index_array ( j )% id ( nchild ( j ) + 1 )) associate ( idx_arr => parent_child_index_array ( j )% idx , & id_arr => parent_child_index_array ( j )% id , & ncj => nchild ( j ), & pl => pl , & plkinj => pl % kin ( idx_parent ( j ))) idx_arr ( 1 ) = idx_parent ( j ) if ( ncj > 0 ) idx_arr ( 2 : ncj + 1 ) = plkinj % child ( 1 : ncj ) id_arr (:) = pl % id ( idx_arr (:)) end associate end do ! Consolidate the groups of collsional parents with any children they may have into a single \"family\" index array fam_size = 2 + sum ( nchild (:)) allocate ( family ( fam_size )) family = [ parent_child_index_array ( 1 )% idx (:), parent_child_index_array ( 2 )% idx (:)] fam_size = count ( pl % lcollision ( family (:))) family = pack ( family (:), pl % lcollision ( family (:))) L_spin (:,:) = 0.0_DP Ip (:,:) = 0.0_DP ! Find the barycenter of each body along with its children, if it has any do j = 1 , 2 x (:, j ) = pl % xb (:, idx_parent ( j )) v (:, j ) = pl % vb (:, idx_parent ( j )) ! Assume principal axis rotation about axis corresponding to highest moment of inertia (3rd Ip) if ( param % lrotation ) then Ip (:, j ) = mass ( j ) * pl % Ip (:, idx_parent ( j )) L_spin (:, j ) = Ip ( 3 , j ) * radius ( j ) ** 2 * pl % rot (:, idx_parent ( j )) end if if ( nchild ( j ) > 0 ) then do i = 1 , nchild ( j ) ! Loop over all children and take the mass weighted mean of the properties idx_child = parent_child_index_array ( j )% idx ( i + 1 ) if (. not . pl % lcollision ( idx_child )) cycle mchild = pl % mass ( idx_child ) xchild (:) = pl % xb (:, idx_child ) vchild (:) = pl % vb (:, idx_child ) volchild = ( 4.0_DP / 3.0_DP ) * PI * pl % radius ( idx_child ) ** 3 volume ( j ) = volume ( j ) + volchild ! Get angular momentum of the child-parent pair and add that to the spin ! Add the child's spin if ( param % lrotation ) then xcom (:) = ( mass ( j ) * x (:, j ) + mchild * xchild (:)) / ( mass ( j ) + mchild ) vcom (:) = ( mass ( j ) * v (:, j ) + mchild * vchild (:)) / ( mass ( j ) + mchild ) xc (:) = x (:, j ) - xcom (:) vc (:) = v (:, j ) - vcom (:) xcrossv (:) = xc (:) . cross . vc (:) L_spin (:, j ) = L_spin (:, j ) + mass ( j ) * xcrossv (:) xc (:) = xchild (:) - xcom (:) vc (:) = vchild (:) - vcom (:) xcrossv (:) = xc (:) . cross . vc (:) L_spin (:, j ) = L_spin (:, j ) + mchild * xcrossv (:) L_spin (:, j ) = L_spin (:, j ) + mchild * pl % Ip ( 3 , idx_child ) * pl % radius ( idx_child ) ** 2 * pl % rot (:, idx_child ) Ip (:, j ) = Ip (:, j ) + mchild * pl % Ip (:, idx_child ) end if ! Merge the child and parent mass ( j ) = mass ( j ) + mchild x (:, j ) = xcom (:) v (:, j ) = vcom (:) end do end if density ( j ) = mass ( j ) / volume ( j ) radius ( j ) = (( 3 * mass ( j )) / ( density ( j ) * 4 * pi )) ** ( 1.0_DP / 3.0_DP ) if ( param % lrotation ) Ip (:, j ) = Ip (:, j ) / mass ( j ) end do lflag = . true . return end function symba_collision_consolidate_familes module subroutine symba_collision_encounter_scrub ( self , system , param ) !! author: David A. Minton !! !! Processes the pl-pl encounter list remove only those encounters that led to a collision !! implicit none ! Arguments class ( symba_plplenc ), intent ( inout ) :: self !! SyMBA pl-pl encounter list class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals logical , dimension ( self % nenc ) :: lplpl_collision logical , dimension (:), allocatable :: lplpl_unique_parent integer ( I4B ), dimension (:), pointer :: plparent integer ( I4B ), dimension (:), allocatable :: collision_idx , unique_parent_idx integer ( I4B ) :: i , index_coll , ncollisions , nunique_parent type ( symba_plplenc ) :: plplenc_noncollision select type ( pl => system % pl ) class is ( symba_pl ) associate ( plplenc_list => self , nplplenc => self % nenc , idx1 => self % index1 , idx2 => self % index2 , plparent => pl % kin % parent ) lplpl_collision (:) = plplenc_list % status ( 1 : nplplenc ) == COLLISION if ( any ( lplpl_collision )) then ! Collisions have been detected in this step. So we need to determine which of them are between unique bodies. ! Get the subset of pl-pl encounters that lead to a collision ncollisions = count ( lplpl_collision (:)) allocate ( collision_idx ( ncollisions )) collision_idx = pack ([( i , i = 1 , nplplenc )], lplpl_collision ) ! Get the subset of collisions that involve a unique pair of parents allocate ( lplpl_unique_parent ( ncollisions )) lplpl_unique_parent (:) = plparent ( idx1 ( collision_idx (:))) /= plparent ( idx2 ( collision_idx (:))) nunique_parent = count ( lplpl_unique_parent (:)) allocate ( unique_parent_idx ( nunique_parent )) unique_parent_idx = pack ( collision_idx (:), lplpl_unique_parent (:)) ! Scrub all pl-pl collisions involving unique pairs of parents, which will remove all duplicates and leave behind ! all pairs that have themselves as parents but are not part of the unique parent list. This can hapepn in rare cases ! due to restructuring of parent/child relationships when there are large numbers of multi-body collisions in a single ! step lplpl_unique_parent (:) = . true . do index_coll = 1 , ncollisions associate ( ip1 => plparent ( idx1 ( collision_idx ( index_coll ))), ip2 => plparent ( idx2 ( collision_idx ( index_coll )))) lplpl_unique_parent (:) = . not . ( any ( plparent ( idx1 ( unique_parent_idx (:))) == ip1 ) . or . & any ( plparent ( idx2 ( unique_parent_idx (:))) == ip1 ) . or . & any ( plparent ( idx1 ( unique_parent_idx (:))) == ip2 ) . or . & any ( plparent ( idx2 ( unique_parent_idx (:))) == ip2 ) ) end associate end do ! Reassemble collision index list to include only those containing the unique pairs of parents, plus all the non-unique pairs that don't ! contain a parent body on the unique parent list. ncollisions = nunique_parent + count ( lplpl_unique_parent ) collision_idx = [ unique_parent_idx (:), pack ( collision_idx (:), lplpl_unique_parent (:))] ! Create a mask that contains only the pl-pl encounters that did not result in a collision, and then discard them lplpl_collision (:) = . false . lplpl_collision ( collision_idx (:)) = . true . end if call plplenc_list % spill ( plplenc_noncollision , . not . lplpl_collision , ldestructive = . true .) ! Remove any encounters that are not collisions from the list. end associate end select return end subroutine symba_collision_encounter_scrub module subroutine symba_collision_make_family_pl ( self , idx ) !! author: Jennifer L.L. Pouplin, Carlisle A. wishard, and David A. Minton !! !! When a single body is involved in more than one collision in a single step, it becomes part of a family. !! The largest body involved in a multi-body collision is the \"parent\" and all bodies that collide with it are its \"children,\" !! including those that collide with the children. !! !! Adapted from David E. Kaufmann's Swifter routine symba_merge_pl.f90 !! !! Adapted from Hal Levison's Swift routine symba5_merge.f implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), dimension ( 2 ), intent ( in ) :: idx !! Array holding the indices of the two bodies involved in the collision ! Internals integer ( I4B ) :: i , j , index_parent , index_child , p1 , p2 integer ( I4B ) :: nchild_inherit , nchild_orig , nchild_new integer ( I4B ), dimension (:), allocatable :: temp associate ( pl => self ) p1 = pl % kin ( idx ( 1 ))% parent p2 = pl % kin ( idx ( 2 ))% parent if ( p1 == p2 ) return ! This is a collision between to children of a shared parent. We will ignore it. if ( pl % Gmass ( p1 ) > pl % Gmass ( p2 )) then index_parent = p1 index_child = p2 else index_parent = p2 index_child = p1 end if ! Expand the child array (or create it if necessary) and copy over the previous lists of children nchild_orig = pl % kin ( index_parent )% nchild nchild_inherit = pl % kin ( index_child )% nchild nchild_new = nchild_orig + nchild_inherit + 1 allocate ( temp ( nchild_new )) if ( nchild_orig > 0 ) temp ( 1 : nchild_orig ) = pl % kin ( index_parent )% child ( 1 : nchild_orig ) ! Find out if the child body has any children of its own. The new parent wil inherit these children if ( nchild_inherit > 0 ) then temp ( nchild_orig + 1 : nchild_orig + nchild_inherit ) = pl % kin ( index_child )% child ( 1 : nchild_inherit ) do i = 1 , nchild_inherit j = pl % kin ( index_child )% child ( i ) ! Set the childrens' parent to the new parent pl % kin ( j )% parent = index_parent end do end if if ( allocated ( pl % kin ( index_child )% child )) deallocate ( pl % kin ( index_child )% child ) pl % kin ( index_child )% nchild = 0 ! Add the new child to its parent pl % kin ( index_child )% parent = index_parent temp ( nchild_new ) = index_child ! Save the new child array to the parent pl % kin ( index_parent )% nchild = nchild_new call move_alloc ( from = temp , to = pl % kin ( index_parent )% child ) end associate return end subroutine symba_collision_make_family_pl module subroutine symba_collision_resolve_fragmentations ( self , system , param ) !! author: David A. Minton !! !! Process list of collisions, determine the collisional regime, and then create fragments. !! implicit none ! Arguments class ( symba_plplenc ), intent ( inout ) :: self !! SyMBA pl-pl encounter list class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions ! Internals ! Internals integer ( I4B ), dimension (:), allocatable :: family !! List of indices of all bodies inovlved in the collision integer ( I4B ), dimension ( 2 ) :: idx_parent !! Index of the two bodies considered the \"parents\" of the collision real ( DP ), dimension ( NDIM , 2 ) :: x , v , L_spin , Ip !! Output values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension ( 2 ) :: mass , radius !! Output values that represent a 2-body equivalent of a possibly 2+ body collision logical :: lgoodcollision integer ( I4B ) :: i , status , jtarg , jproj , regime real ( DP ), dimension ( 2 ) :: radius_si , mass_si , density_si real ( DP ) :: mtiny_si , Mcb_si real ( DP ), dimension ( NDIM ) :: x1_si , v1_si , x2_si , v2_si real ( DP ) :: mlr , mslr , mtot , dentot , msys , msys_new , Qloss , impact_parameter integer ( I4B ), parameter :: NRES = 3 !! Number of collisional product results real ( DP ), dimension ( NRES ) :: mass_res associate ( plpl_collisions => self , ncollisions => self % nenc , idx1 => self % index1 , idx2 => self % index2 , cb => system % cb ) select type ( pl => system % pl ) class is ( symba_pl ) do i = 1 , ncollisions idx_parent ( 1 ) = pl % kin ( idx1 ( i ))% parent idx_parent ( 2 ) = pl % kin ( idx2 ( i ))% parent lgoodcollision = symba_collision_consolidate_familes ( pl , param , idx_parent , family , x , v , mass , radius , L_spin , Ip ) if (. not . lgoodcollision ) cycle if ( any ( pl % status ( idx_parent (:)) /= COLLISION )) cycle ! One of these two bodies has already been resolved ! Convert all quantities to SI units and determine which of the pair is the projectile vs. target before sending them ! to symba_regime if ( mass ( 1 ) > mass ( 2 )) then jtarg = 1 jproj = 2 else jtarg = 2 jproj = 1 end if mass_si (:) = ( mass (:)) * param % MU2KG !! The collective mass of the parent and its children radius_si (:) = radius (:) * param % DU2M !! The collective radius of the parent and its children x1_si (:) = plpl_collisions % x1 (:, i ) * param % DU2M !! The position of the parent from inside the step (at collision) v1_si (:) = plpl_collisions % v1 (:, i ) * param % DU2M / param % TU2S !! The velocity of the parent from inside the step (at collision) x2_si (:) = plpl_collisions % x2 (:, i ) * param % DU2M !! The position of the parent from inside the step (at collision) v2_si (:) = plpl_collisions % v2 (:, i ) * param % DU2M / param % TU2S !! The velocity of the parent from inside the step (at collision) density_si (:) = mass_si (:) / ( 4.0_DP / 3._DP * PI * radius_si (:) ** 3 ) !! The collective density of the parent and its children Mcb_si = cb % mass * param % MU2KG mtiny_si = ( param % MTINY / param % GU ) * param % MU2KG mass_res (:) = 0.0_DP mtot = sum ( mass_si (:)) dentot = sum ( mass_si (:) * density_si (:)) / mtot !! Use the positions and velocities of the parents from indside the step (at collision) to calculate the collisional regime call fragmentation_regime ( Mcb_si , mass_si ( jtarg ), mass_si ( jproj ), radius_si ( jtarg ), radius_si ( jproj ), x1_si (:), x2_si (:),& v1_si (:), v2_si (:), density_si ( jtarg ), density_si ( jproj ), regime , mlr , mslr , mtiny_si , Qloss ) mass_res ( 1 ) = min ( max ( mlr , 0.0_DP ), mtot ) mass_res ( 2 ) = min ( max ( mslr , 0.0_DP ), mtot ) mass_res ( 3 ) = min ( max ( mtot - mlr - mslr , 0.0_DP ), mtot ) mass_res (:) = ( mass_res (:) / param % MU2KG ) * param % GU Qloss = Qloss * ( param % GU / param % MU2KG ) * ( param % TU2S / param % DU2M ) ** 2 select case ( regime ) case ( COLLRESOLVE_REGIME_DISRUPTION ) status = symba_fragmentation_casedisruption ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) case ( COLLRESOLVE_REGIME_SUPERCATASTROPHIC ) status = symba_fragmentation_casesupercatastrophic ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) case ( COLLRESOLVE_REGIME_HIT_AND_RUN ) status = symba_fragmentation_casehitandrun ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) case ( COLLRESOLVE_REGIME_MERGE , COLLRESOLVE_REGIME_GRAZE_AND_MERGE ) status = symba_fragmentation_casemerge ( system , param , family , x , v , mass , radius , L_spin , Ip ) case default write ( * , * ) \"Error in symba_collision, unrecognized collision regime\" call util_exit ( FAILURE ) end select end do end select end associate return end subroutine symba_collision_resolve_fragmentations module subroutine symba_collision_resolve_mergers ( self , system , param ) !! author: David A. Minton !! !! Process list of collisions and merge colliding bodies together. !! implicit none ! Arguments class ( symba_plplenc ), intent ( inout ) :: self !! SyMBA pl-pl encounter list class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions ! Internals integer ( I4B ), dimension (:), allocatable :: family !! List of indices of all bodies inovlved in the collision integer ( I4B ), dimension ( 2 ) :: idx_parent !! Index of the two bodies considered the \"parents\" of the collision real ( DP ), dimension ( NDIM , 2 ) :: x , v , L_spin , Ip !! Output values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension ( 2 ) :: mass , radius !! Output values that represent a 2-body equivalent of a possibly 2+ body collision logical :: lgoodcollision integer ( I4B ) :: i , status associate ( plpl_collisions => self , ncollisions => self % nenc , idx1 => self % index1 , idx2 => self % index2 ) select type ( pl => system % pl ) class is ( symba_pl ) do i = 1 , ncollisions idx_parent ( 1 ) = pl % kin ( idx1 ( i ))% parent idx_parent ( 2 ) = pl % kin ( idx2 ( i ))% parent lgoodcollision = symba_collision_consolidate_familes ( pl , param , idx_parent , family , x , v , mass , radius , L_spin , Ip ) if (. not . lgoodcollision ) cycle if ( any ( pl % status ( idx_parent (:)) /= COLLISION )) cycle ! One of these two bodies has already been resolved status = symba_fragmentation_casemerge ( system , param , family , x , v , mass , radius , L_spin , Ip ) end do end select end associate return end subroutine symba_collision_resolve_mergers end submodule s_symba_collision","tags":"","loc":"sourcefile/symba_collision.f90.html"},{"title":"symba_setup.f90 – swiftest","text":"This file depends on sourcefile~~symba_setup.f90~~EfferentGraph sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_setup.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_setup Source Code symba_setup.f90 Source Code submodule ( symba_classes ) s_symba_setup use swiftest contains module subroutine symba_setup_initialize_system ( self , param ) !! author: David A. Minton !! !! Initialize an SyMBA nbody system from files and sets up the planetocentric structures. !! This subroutine will also sort the massive bodies in descending order by mass !! implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i , j ! Call parent method associate ( system => self ) call whm_setup_initialize_system ( system , param ) call system % pltpenc_list % setup ( 0 ) call system % plplenc_list % setup ( 0 ) select type ( pl => system % pl ) class is ( symba_pl ) call pl % sort ( \"mass\" , ascending = . false .) select type ( param ) class is ( symba_parameters ) pl % lmtiny (:) = pl % Gmass (:) > param % MTINY pl % nplm = count ( pl % lmtiny (:)) end select end select end associate return end subroutine symba_setup_initialize_system module subroutine symba_setup_merger ( self , n , param ) !! author: David A. Minton !! !! Allocate SyMBA test particle structure !! !! Equivalent in functionality to David E. Kaufmann's Swifter routine symba_setup.f90 implicit none ! Arguments class ( symba_merger ), intent ( inout ) :: self !! SyMBA merger list object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter ! Internals integer ( I4B ) :: i !> Call allocation method for parent class. In this case, helio_pl does not have its own setup method so we use the base method for swiftest_pl call symba_setup_pl ( self , n , param ) if ( n <= 0 ) return if ( allocated ( self % ncomp )) deallocate ( self % ncomp ) allocate ( self % ncomp ( n )) self % ncomp (:) = 0 return end subroutine symba_setup_merger module subroutine symba_setup_pl ( self , n , param ) !! author: David A. Minton !! !! Allocate SyMBA test particle structure !! !! Equivalent in functionality to David E. Kaufmann's Swifter routine symba_setup.f90 implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter ! Internals integer ( I4B ) :: i !> Call allocation method for parent class. In this case, helio_pl does not have its own setup method so we use the base method for swiftest_pl call setup_pl ( self , n , param ) if ( n <= 0 ) return if ( allocated ( self % lcollision )) deallocate ( self % lcollision ) if ( allocated ( self % lencounter )) deallocate ( self % lencounter ) if ( allocated ( self % lmtiny )) deallocate ( self % lmtiny ) if ( allocated ( self % nplenc )) deallocate ( self % nplenc ) if ( allocated ( self % ntpenc )) deallocate ( self % ntpenc ) if ( allocated ( self % levelg )) deallocate ( self % levelg ) if ( allocated ( self % levelm )) deallocate ( self % levelm ) if ( allocated ( self % isperi )) deallocate ( self % isperi ) if ( allocated ( self % peri )) deallocate ( self % peri ) if ( allocated ( self % atp )) deallocate ( self % atp ) if ( allocated ( self % kin )) deallocate ( self % kin ) if ( allocated ( self % info )) deallocate ( self % info ) allocate ( self % lcollision ( n )) allocate ( self % lencounter ( n )) allocate ( self % lmtiny ( n )) allocate ( self % nplenc ( n )) allocate ( self % ntpenc ( n )) allocate ( self % levelg ( n )) allocate ( self % levelm ( n )) allocate ( self % isperi ( n )) allocate ( self % peri ( n )) allocate ( self % atp ( n )) allocate ( self % kin ( n )) allocate ( self % info ( n )) self % lcollision (:) = . false . self % lencounter (:) = . false . self % lmtiny (:) = . false . self % nplenc (:) = 0 self % ntpenc (:) = 0 self % levelg (:) = - 1 self % levelm (:) = - 1 self % isperi (:) = 0 self % peri (:) = 0.0_DP self % atp (:) = 0.0_DP self % kin (:)% nchild = 0 self % kin (:)% parent = [( i , i = 1 , n )] return end subroutine symba_setup_pl module subroutine symba_setup_pltpenc ( self , n ) !! author: David A. Minton !! !! A constructor that sets the number of encounters and allocates and initializes all arrays !! implicit none ! Arguments class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-tp encounter structure integer ( I4B ), intent ( in ) :: n !! Number of encounters to allocate space for call setup_encounter ( self , n ) if ( n == 0 ) return if ( allocated ( self % level )) deallocate ( self % level ) allocate ( self % level ( n )) self % level (:) = - 1 return end subroutine symba_setup_pltpenc module subroutine symba_setup_tp ( self , n , param ) !! author: David A. Minton !! !! Allocate WHM test particle structure !! !! Equivalent in functionality to David E. Kaufmann's Swifter routine whm_setup.f90 implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter !> Call allocation method for parent class. In this case, helio_tp does not have its own setup method so we use the base method for swiftest_tp call setup_tp ( self , n , param ) if ( n <= 0 ) return if ( allocated ( self % nplenc )) deallocate ( self % nplenc ) if ( allocated ( self % levelg )) deallocate ( self % levelg ) if ( allocated ( self % levelm )) deallocate ( self % levelm ) allocate ( self % nplenc ( n )) allocate ( self % levelg ( n )) allocate ( self % levelm ( n )) self % nplenc (:) = 0 self % levelg (:) = - 1 self % levelm (:) = - 1 return end subroutine symba_setup_tp end submodule s_symba_setup","tags":"","loc":"sourcefile/symba_setup.f90.html"},{"title":"symba_kick.f90 – swiftest","text":"This file depends on sourcefile~~symba_kick.f90~~EfferentGraph sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_kick.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_kick Source Code symba_kick.f90 Source Code submodule ( symba_classes ) s_symba_kick use swiftest contains module subroutine symba_kick_getacch_pl ( self , system , param , t , lbeg ) !! author: David A. Minton !! !! Compute heliocentric accelerations of massive bodies !! !! Adapted from David E. Kaufmann's Swifter routine symba_kick_getacch.f90 !! Adapted from Hal Levison's Swift routine symba5_kick_getacch.f implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step ! Internals integer ( I4B ) :: k real ( DP ) :: irij3 , rji2 , rlim2 , faci , facj real ( DP ), dimension ( NDIM ) :: dx if ( self % nbody == 0 ) return select type ( system ) class is ( symba_nbody_system ) associate ( pl => self , cb => system % cb , plplenc_list => system % plplenc_list , nplplenc => system % plplenc_list % nenc ) call helio_kick_getacch_pl ( pl , system , param , t , lbeg ) ! Remove accelerations from encountering pairs do k = 1 , nplplenc associate ( i => plplenc_list % index1 ( k ), j => plplenc_list % index2 ( k )) dx (:) = pl % xh (:, j ) - pl % xh (:, i ) rji2 = dot_product ( dx (:), dx (:)) irij3 = 1.0_DP / ( rji2 * sqrt ( rji2 )) faci = pl % Gmass ( i ) * irij3 facj = pl % Gmass ( j ) * irij3 pl % ah (:, i ) = pl % ah (:, i ) - facj * dx (:) pl % ah (:, j ) = pl % ah (:, j ) + faci * dx (:) end associate end do end associate end select return end subroutine symba_kick_getacch_pl module subroutine symba_kick_getacch_tp ( self , system , param , t , lbeg ) !! author: David A. Minton !! !! Compute heliocentric accelerations of test particles !! !! Adapted from David E. Kaufmann's Swifter routine symba_kick_getacch_tp.f90 !! Adapted from Hal Levison's Swift routine symba5_kick_getacch.f implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step ! Internals integer ( I4B ) :: k real ( DP ) :: rji2 , fac , rlim2 real ( DP ), dimension ( NDIM ) :: dx if ( self % nbody == 0 ) return select type ( system ) class is ( symba_nbody_system ) associate ( tp => self , cb => system % cb , pl => system % pl , pltpenc_list => system % pltpenc_list , npltpenc => system % pltpenc_list % nenc ) call helio_kick_getacch_tp ( tp , system , param , t , lbeg ) ! Remove accelerations from encountering pairs do k = 1 , npltpenc associate ( i => pltpenc_list % index1 ( k ), j => pltpenc_list % index2 ( k )) if ( tp % lmask ( j )) THEN if ( lbeg ) then dx (:) = tp % xh (:, j ) - pl % xbeg (:, i ) else dx (:) = tp % xh (:, j ) - pl % xend (:, i ) end if rji2 = dot_product ( dx (:), dx (:)) fac = pl % Gmass ( i ) / ( rji2 * sqrt ( rji2 )) tp % ah (:, j ) = tp % ah (:, j ) + fac * dx (:) end IF end associate end do end associate end select return end subroutine symba_kick_getacch_tp module subroutine symba_kick_pltpenc ( self , system , dt , irec , sgn ) !! author: David A. Minton !! !! Kick barycentric velocities of massive bodies and ACTIVE test particles within SyMBA recursion. !! Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types !! !! Adapted from David E. Kaufmann's Swifter routine: symba_kick.f90 !! Adapted from Hal Levison's Swift routine symba5_kick.f implicit none ! Arguments class ( symba_pltpenc ), intent ( in ) :: self !! SyMBA pl-tp encounter list object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level integer ( I4B ), intent ( in ) :: sgn !! sign to be applied to acceleration ! Internals integer ( I4B ) :: k , irm1 , irecl real ( DP ) :: r , rr , ri , ris , rim1 , r2 , ir3 , fac , faci , facj real ( DP ), dimension ( NDIM ) :: dx logical :: isplpl , lgoodlevel if ( self % nenc == 0 ) return select type ( self ) class is ( symba_plplenc ) isplpl = . true . class is ( symba_pltpenc ) isplpl = . false . end select select type ( pl => system % pl ) class is ( symba_pl ) select type ( tp => system % tp ) class is ( symba_tp ) associate ( ind1 => self % index1 , ind2 => self % index2 ) if ( pl % nbody > 0 ) pl % lmask (:) = pl % status (:) /= INACTIVE if ( tp % nbody > 0 ) tp % lmask (:) = tp % status (:) /= INACTIVE irm1 = irec - 1 if ( sgn < 0 ) then irecl = irec - 1 else irecl = irec end if do k = 1 , self % nenc if ( isplpl ) then pl % ah (:, ind1 ( k )) = 0.0_DP pl % ah (:, ind2 ( k )) = 0.0_DP else tp % ah (:, ind2 ( k )) = 0.0_DP end if if ( isplpl ) then lgoodlevel = ( pl % levelg ( ind1 ( k )) >= irm1 ) . and . ( pl % levelg ( ind2 ( k )) >= irm1 ) else lgoodlevel = ( pl % levelg ( ind1 ( k )) >= irm1 ) . and . ( tp % levelg ( ind2 ( k )) >= irm1 ) end if if (( self % status ( k ) /= INACTIVE ) . and . lgoodlevel ) then if ( isplpl ) then ri = (( pl % rhill ( ind1 ( k )) + pl % rhill ( ind2 ( k ))) ** 2 ) * ( RHSCALE ** 2 ) * ( RSHELL ** ( 2 * irecl )) rim1 = ri * ( RSHELL ** 2 ) dx (:) = pl % xh (:, ind2 ( k )) - pl % xh (:, ind1 ( k )) else ri = (( pl % rhill ( ind1 ( k ))) ** 2 ) * ( RHSCALE ** 2 ) * ( RSHELL ** ( 2 * irecl )) rim1 = ri * ( RSHELL ** 2 ) dx (:) = tp % xh (:, ind2 ( k )) - pl % xh (:, ind1 ( k )) end if r2 = dot_product ( dx (:), dx (:)) if ( r2 < rim1 ) then fac = 0.0_DP else if ( r2 < ri ) then ris = sqrt ( ri ) r = sqrt ( r2 ) rr = ( ris - r ) / ( ris * ( 1.0_DP - RSHELL )) fac = ( r2 ** ( - 1.5_DP )) * ( 1.0_DP - 3 * ( rr ** 2 ) + 2 * ( rr ** 3 )) else ir3 = 1.0_DP / ( r2 * sqrt ( r2 )) fac = ir3 end if faci = fac * pl % Gmass ( ind1 ( k )) if ( isplpl ) then facj = fac * pl % Gmass ( ind2 ( k )) pl % ah (:, ind1 ( k )) = pl % ah (:, ind1 ( k )) + facj * dx (:) pl % ah (:, ind2 ( k )) = pl % ah (:, ind2 ( k )) - faci * dx (:) else tp % ah (:, ind2 ( k )) = tp % ah (:, ind2 ( k )) - faci * dx (:) end if end if end do if ( isplpl ) then do k = 1 , self % nenc pl % vb (:, ind1 ( k )) = pl % vb (:, ind1 ( k )) + sgn * dt * pl % ah (:, ind1 ( k )) pl % vb (:, ind2 ( k )) = pl % vb (:, ind2 ( k )) + sgn * dt * pl % ah (:, ind2 ( k )) pl % ah (:, ind1 ( k )) = 0.0_DP pl % ah (:, ind1 ( k )) = 0.0_DP end do else do k = 1 , self % nenc tp % vb (:, ind2 ( k )) = tp % vb (:, ind2 ( k )) + sgn * dt * tp % ah (:, ind2 ( k )) tp % ah (:, ind2 ( k )) = 0.0_DP end do end if end associate end select end select return end subroutine symba_kick_pltpenc end submodule s_symba_kick","tags":"","loc":"sourcefile/symba_kick.f90.html"},{"title":"symba_fragmentation.f90 – swiftest","text":"This file depends on sourcefile~~symba_fragmentation.f90~~EfferentGraph sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_fragmentation.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_fragmentation Source Code symba_fragmentation.f90 Source Code submodule ( symba_classes ) s_symba_fragmentation use swiftest integer ( I4B ), parameter :: NFRAG_DISRUPT = 12 integer ( I4B ), parameter :: NFRAG_SUPERCAT = 20 contains module function symba_fragmentation_casedisruption ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) result ( status ) !! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Create the fragments resulting from a non-catastrophic disruption collision !! implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension (:), intent ( in ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension (:,:), intent ( inout ) :: x , v , L_spin , Ip !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass , radius !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass_res !! The distribution of fragment mass obtained by the regime calculation real ( DP ), intent ( inout ) :: Qloss !! Energy lost during collision ! Result integer ( I4B ) :: status !! Status flag assigned to this outcome ! Internals integer ( I4B ) :: i , istart , nfrag , ibiggest , nfamily , nstart , nend real ( DP ) :: mtot , avg_dens real ( DP ), dimension ( NDIM ) :: xcom , vcom , Ip_new real ( DP ), dimension ( 2 ) :: vol real ( DP ), dimension (:, :), allocatable :: vb_frag , xb_frag , rot_frag , Ip_frag real ( DP ), dimension (:), allocatable :: m_frag , rad_frag logical :: lfailure logical , dimension ( system % pl % nbody ) :: lmask class ( symba_pl ), allocatable :: plnew select type ( pl => system % pl ) class is ( symba_pl ) associate ( mergeadd_list => system % mergeadd_list , mergesub_list => system % mergesub_list , cb => system % cb ) ! Collisional fragments will be uniformly distributed around the pre-impact barycenter nfrag = NFRAG_DISRUPT allocate ( m_frag ( nfrag )) allocate ( rad_frag ( nfrag )) allocate ( xb_frag ( NDIM , nfrag )) allocate ( vb_frag ( NDIM , nfrag )) allocate ( rot_frag ( NDIM , nfrag )) allocate ( Ip_frag ( NDIM , nfrag )) mtot = sum ( mass (:)) xcom (:) = ( mass ( 1 ) * x (:, 1 ) + mass ( 2 ) * x (:, 2 )) / mtot vcom (:) = ( mass ( 1 ) * v (:, 1 ) + mass ( 2 ) * v (:, 2 )) / mtot ! Get mass weighted mean of Ip and average density Ip_new (:) = ( mass ( 1 ) * Ip (:, 1 ) + mass ( 2 ) * Ip (:, 2 )) / mtot vol (:) = 4._DP / 3._DP * PI * radius (:) ** 3 avg_dens = mtot / sum ( vol (:)) ! Distribute the mass among fragments, with a branch to check for the size of the second largest fragment m_frag ( 1 ) = mass_res ( 1 ) if ( mass_res ( 2 ) > mass_res ( 1 ) / 3._DP ) then m_frag ( 2 ) = mass_res ( 2 ) istart = 3 else istart = 2 end if ! Distribute remaining mass among the remaining bodies do i = istart , nfrag m_frag ( i ) = ( mtot - sum ( m_frag ( 1 : istart - 1 ))) / ( nfrag - istart + 1 ) end do ! Distribute any residual mass if there is any and set the radius m_frag ( nfrag ) = m_frag ( nfrag ) + ( mtot - sum ( m_frag (:))) rad_frag (:) = ( 3 * m_frag (:) / ( 4 * PI * avg_dens )) ** ( 1.0_DP / 3.0_DP ) do i = 1 , nfrag Ip_frag (:, i ) = Ip_new (:) end do call fragmentation_initialize ( system , param , family , x , v , L_spin , Ip , mass , radius , & nfrag , Ip_frag , m_frag , rad_frag , xb_frag , vb_frag , rot_frag , Qloss , lfailure ) if ( lfailure ) then write ( * , * ) 'No fragment solution found, so treat as a pure hit-and-run' status = ACTIVE nfrag = 0 else ! Populate the list of new bodies write ( * , '(\"Generating \",I2.0,\" fragments\")' ) nfrag status = DISRUPTION ! Add the family bodies to the subtraction list nfamily = size ( family (:)) lmask (:) = . false . lmask ( family (:)) = . true . pl % status ( family (:)) = MERGED nstart = mergesub_list % nbody + 1 nend = mergesub_list % nbody + nfamily call mergesub_list % append ( pl , lmask ) ! Record how many bodies were subtracted in this event mergesub_list % ncomp ( nstart : nend ) = nfamily allocate ( plnew , mold = pl ) call plnew % setup ( nfrag , param ) plnew % id (:) = [( i , i = system % maxid + 1 , system % maxid + nfrag )] system % maxid = system % maxid + nfrag plnew % status (:) = ACTIVE plnew % lcollision (:) = . false . plnew % ldiscard (:) = . false . plnew % xb (:,:) = xb_frag (:, :) plnew % vb (:,:) = vb_frag (:, :) do i = 1 , nfrag plnew % xh (:, i ) = xb_frag (:, i ) - cb % xb (:) plnew % vh (:, i ) = vb_frag (:, i ) - cb % vb (:) end do plnew % mass (:) = m_frag (:) plnew % Gmass (:) = param % GU * m_frag (:) plnew % density (:) = avg_dens plnew % radius (:) = rad_frag (:) plnew % info (:)% origin_type = \"Disruption\" plnew % info (:)% origin_time = param % t do i = 1 , nfrag plnew % info ( i )% origin_xh (:) = plnew % xh (:, i ) plnew % info ( i )% origin_vh (:) = plnew % vh (:, i ) end do if ( param % lrotation ) then plnew % Ip (:,:) = Ip_frag (:,:) plnew % rot (:,:) = rot_frag (:,:) end if if ( param % ltides ) then ibiggest = maxloc ( pl % Gmass ( family (:)), dim = 1 ) plnew % Q = pl % Q ( ibiggest ) plnew % k2 = pl % k2 ( ibiggest ) plnew % tlag = pl % tlag ( ibiggest ) end if ! Append the new merged body to the list and record how many we made nstart = mergeadd_list % nbody + 1 nend = mergeadd_list % nbody + plnew % nbody call mergeadd_list % append ( plnew ) mergeadd_list % ncomp ( nstart : nend ) = plnew % nbody call plnew % setup ( 0 , param ) deallocate ( plnew ) end if end associate end select return end function symba_fragmentation_casedisruption module function symba_fragmentation_casehitandrun ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) result ( status ) !! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Create the fragments resulting from a non-catastrophic hit-and-run collision !! implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension (:), intent ( in ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension (:,:), intent ( inout ) :: x , v , L_spin , Ip !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass , radius !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass_res !! The distribution of fragment mass obtained by the regime calculation real ( DP ), intent ( inout ) :: Qloss !! Energy lost during collision ! Result integer ( I4B ) :: status !! Status flag assigned to this outcome ! Internals integer ( I4B ) :: i , nfrag , jproj , jtarg , idstart , ibiggest , nfamily , nstart , nend real ( DP ) :: mtot , avg_dens real ( DP ), dimension ( NDIM ) :: xcom , vcom real ( DP ), dimension ( 2 ) :: vol real ( DP ), dimension (:, :), allocatable :: vb_frag , xb_frag , rot_frag , Ip_frag real ( DP ), dimension (:), allocatable :: m_frag , rad_frag integer ( I4B ), dimension (:), allocatable :: id_frag logical :: lpure logical , dimension ( system % pl % nbody ) :: lmask class ( symba_pl ), allocatable :: plnew select type ( pl => system % pl ) class is ( symba_pl ) associate ( mergeadd_list => system % mergeadd_list , mergesub_list => system % mergesub_list , cb => system % cb ) mtot = sum ( mass (:)) xcom (:) = ( mass ( 1 ) * x (:, 1 ) + mass ( 2 ) * x (:, 2 )) / mtot vcom (:) = ( mass ( 1 ) * v (:, 1 ) + mass ( 2 ) * v (:, 2 )) / mtot lpure = . false . ! The largest body will stay untouched if ( mass ( 1 ) > mass ( 2 )) then jtarg = 1 jproj = 2 else jtarg = 2 jproj = 1 end if if ( mass_res ( 2 ) > 0.9_DP * mass ( jproj )) then ! Pure hit and run, so we'll just keep the two bodies untouched write ( * , * ) 'Pure hit and run. No new fragments generated.' nfrag = 0 lpure = . true . else ! Imperfect hit and run, so we'll keep the largest body and destroy the other nfrag = NFRAG_DISRUPT - 1 lpure = . false . allocate ( m_frag ( nfrag )) allocate ( id_frag ( nfrag )) allocate ( rad_frag ( nfrag )) allocate ( xb_frag ( NDIM , nfrag )) allocate ( vb_frag ( NDIM , nfrag )) allocate ( rot_frag ( NDIM , nfrag )) allocate ( Ip_frag ( NDIM , nfrag )) m_frag ( 1 ) = mass ( jtarg ) ibiggest = maxloc ( pl % Gmass ( family (:)), dim = 1 ) id_frag ( 1 ) = pl % id ( ibiggest ) rad_frag ( 1 ) = radius ( jtarg ) xb_frag (:, 1 ) = x (:, jtarg ) vb_frag (:, 1 ) = v (:, jtarg ) Ip_frag (:, 1 ) = Ip (:, jtarg ) ! Get mass weighted mean of Ip and average density vol (:) = 4._DP / 3._DP * pi * radius (:) ** 3 avg_dens = mass ( jproj ) / vol ( jproj ) m_frag ( 2 : nfrag ) = ( mtot - m_frag ( 1 )) / ( nfrag - 1 ) rad_frag ( 2 : nfrag ) = ( 3 * m_frag ( 2 : nfrag ) / ( 4 * PI * avg_dens )) ** ( 1.0_DP / 3.0_DP ) m_frag ( nfrag ) = m_frag ( nfrag ) + ( mtot - sum ( m_frag (:))) do i = 1 , nfrag Ip_frag (:, i ) = Ip (:, jproj ) end do ! Put the fragments on the circle surrounding the center of mass of the system call fragmentation_initialize ( system , param , family , x , v , L_spin , Ip , mass , radius , & nfrag , Ip_frag , m_frag , rad_frag , xb_frag , vb_frag , rot_frag , Qloss , lpure ) if ( lpure ) then write ( * , * ) 'Should have been a pure hit and run instead' nfrag = 0 else write ( * , '(\"Generating \",I2.0,\" fragments\")' ) nfrag end if end if if ( lpure ) then status = ACTIVE else status = HIT_AND_RUN ! Add the family bodies to the subtraction list nfamily = size ( family (:)) lmask (:) = . false . lmask ( family (:)) = . true . pl % status ( family (:)) = MERGED nstart = mergesub_list % nbody + 1 nend = mergesub_list % nbody + nfamily call mergesub_list % append ( pl , lmask ) ! Record how many bodies were subtracted in this event mergesub_list % ncomp ( nstart : nend ) = nfamily allocate ( plnew , mold = pl ) call plnew % setup ( nfrag , param ) plnew % id (:) = [( i , i = system % maxid + 1 , system % maxid + nfrag )] system % maxid = system % maxid + nfrag plnew % status (:) = ACTIVE plnew % lcollision (:) = . false . plnew % ldiscard (:) = . false . plnew % xb (:,:) = xb_frag (:, :) plnew % vb (:,:) = vb_frag (:, :) do i = 1 , nfrag plnew % xh (:, i ) = xb_frag (:, i ) - cb % xb (:) plnew % vh (:, i ) = vb_frag (:, i ) - cb % vb (:) end do plnew % mass (:) = m_frag (:) plnew % Gmass (:) = param % GU * m_frag (:) plnew % density (:) = avg_dens plnew % radius (:) = rad_frag (:) plnew % info (:)% origin_type = \"Hit and run fragment\" plnew % info (:)% origin_time = param % t do i = 1 , nfrag plnew % info ( i )% origin_xh (:) = plnew % xh (:, i ) plnew % info ( i )% origin_vh (:) = plnew % vh (:, i ) end do if ( param % lrotation ) then plnew % Ip (:,:) = Ip_frag (:,:) plnew % rot (:,:) = rot_frag (:,:) end if if ( param % ltides ) then ibiggest = maxloc ( pl % Gmass ( family (:)), dim = 1 ) plnew % Q = pl % Q ( ibiggest ) plnew % k2 = pl % k2 ( ibiggest ) plnew % tlag = pl % tlag ( ibiggest ) end if ! Append the new merged body to the list and record how many we made nstart = mergeadd_list % nbody + 1 nend = mergeadd_list % nbody + plnew % nbody call mergeadd_list % append ( plnew ) mergeadd_list % ncomp ( nstart : nend ) = plnew % nbody call plnew % setup ( 0 , param ) deallocate ( plnew ) end if end associate end select return end function symba_fragmentation_casehitandrun module function symba_fragmentation_casemerge ( system , param , family , x , v , mass , radius , L_spin , Ip ) result ( status ) !! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Merge planets. !! !! Adapted from David E. Kaufmann's Swifter routines symba_merge_pl.f90 and symba_discard_merge_pl.f90 !! !! Adapted from Hal Levison's Swift routines symba5_merge.f and discard_mass_merge.f implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension (:), intent ( in ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension (:,:), intent ( in ) :: x , v , L_spin , Ip !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( in ) :: mass , radius !! Input values that represent a 2-body equivalent of a possibly 2+ body collision ! Result integer ( I4B ) :: status !! Status flag assigned to this outcome ! Internals integer ( I4B ) :: i , j , ibiggest , nfamily , nstart , nend real ( DP ) :: mass_new , radius_new , volume_new , pe real ( DP ), dimension ( NDIM ) :: xcom , vcom , xc , vc , xcrossv real ( DP ), dimension ( 2 ) :: vol real ( DP ), dimension ( NDIM ) :: L_orb_old , L_spin_old real ( DP ), dimension ( NDIM ) :: L_spin_new , rot_new , Ip_new logical , dimension ( system % pl % nbody ) :: lmask class ( symba_pl ), allocatable :: plnew select type ( pl => system % pl ) class is ( symba_pl ) associate ( mergeadd_list => system % mergeadd_list , mergesub_list => system % mergesub_list , cb => system % cb ) status = MERGED write ( * , '(\"Merging bodies \",99(I8,\",\",:))' ) pl % id ( family (:)) mass_new = sum ( mass (:)) ! Merged body is created at the barycenter of the original bodies xcom (:) = ( mass ( 1 ) * x (:, 1 ) + mass ( 2 ) * x (:, 2 )) / mass_new vcom (:) = ( mass ( 1 ) * v (:, 1 ) + mass ( 2 ) * v (:, 2 )) / mass_new ! Get mass weighted mean of Ip and vol (:) = 4._DP / 3._DP * PI * radius (:) ** 3 volume_new = sum ( vol (:)) radius_new = ( 3 * volume_new / ( 4 * PI )) ** ( 1._DP / 3._DP ) L_orb_old (:) = 0.0_DP ! Compute orbital angular momentum of pre-impact system do i = 1 , 2 xc (:) = x (:, i ) - xcom (:) vc (:) = v (:, i ) - vcom (:) xcrossv (:) = xc (:) . cross . vc (:) L_orb_old (:) = L_orb_old (:) + mass ( i ) * xcrossv (:) end do if ( param % lrotation ) then Ip_new (:) = ( mass ( 1 ) * Ip (:, 1 ) + mass ( 2 ) * Ip (:, 2 )) / mass_new L_spin_old (:) = L_spin (:, 1 ) + L_spin (:, 2 ) ! Conserve angular momentum by putting pre-impact orbital momentum into spin of the new body L_spin_new (:) = L_orb_old (:) + L_spin_old (:) ! Assume prinicpal axis rotation on 3rd Ip axis rot_new (:) = L_spin_new (:) / ( Ip_new ( 3 ) * mass_new * radius_new ** 2 ) else ! If spin is not enabled, we will consider the lost pre-collision angular momentum as \"escaped\" and add it to our bookkeeping variable system % Lescape (:) = system % Lescape (:) + L_orb_old (:) end if ! Keep track of the component of potential energy due to the pre-impact family for book-keeping nfamily = size ( family (:)) pe = 0.0_DP do j = 1 , nfamily do i = j + 1 , nfamily pe = pe - pl % mass ( i ) * pl % mass ( j ) / norm2 ( pl % xb (:, i ) - pl % xb (:, j )) end do end do system % Ecollisions = system % Ecollisions + pe system % Euntracked = system % Euntracked - pe ! Add the family bodies to the subtraction list lmask (:) = . false . lmask ( family (:)) = . true . pl % status ( family (:)) = MERGED nstart = mergesub_list % nbody + 1 nend = mergesub_list % nbody + nfamily call mergesub_list % append ( pl , lmask ) ! Record how many bodies were subtracted in this event mergesub_list % ncomp ( nstart : nend ) = nfamily ! Create the new merged body allocate ( plnew , mold = pl ) call plnew % setup ( 1 , param ) ! The merged body's name will be that of the largest of the two parents ibiggest = maxloc ( pl % Gmass ( family (:)), dim = 1 ) plnew % id ( 1 ) = pl % id ( family ( ibiggest )) plnew % status ( 1 ) = ACTIVE plnew % lcollision = . false . plnew % ldiscard = . false . plnew % xb (:, 1 ) = xcom (:) plnew % vb (:, 1 ) = vcom (:) plnew % xh (:, 1 ) = xcom (:) - cb % xb (:) plnew % vh (:, 1 ) = vcom (:) - cb % vb (:) plnew % mass ( 1 ) = mass_new plnew % Gmass ( 1 ) = param % GU * mass_new plnew % density ( 1 ) = mass_new / volume_new plnew % radius ( 1 ) = radius_new plnew % info ( 1 ) = pl % info ( family ( ibiggest )) if ( param % lrotation ) then plnew % Ip (:, 1 ) = Ip_new (:) plnew % rot (:, 1 ) = rot_new (:) end if if ( param % ltides ) then plnew % Q = pl % Q ( ibiggest ) plnew % k2 = pl % k2 ( ibiggest ) plnew % tlag = pl % tlag ( ibiggest ) end if ! Append the new merged body to the list and record how many we made nstart = mergeadd_list % nbody + 1 nend = mergeadd_list % nbody + plnew % nbody call mergeadd_list % append ( plnew ) mergeadd_list % ncomp ( nstart : nend ) = plnew % nbody call plnew % setup ( 0 , param ) deallocate ( plnew ) end associate end select return end function symba_fragmentation_casemerge module function symba_fragmentation_casesupercatastrophic ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) result ( status ) !! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Create the fragments resulting from a supercatastrophic collision !! implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension (:), intent ( in ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension (:,:), intent ( inout ) :: x , v , L_spin , Ip !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass , radius !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass_res !! The distribution of fragment mass obtained by the regime calculation real ( DP ), intent ( inout ) :: Qloss !! Energy lost during collision ! Result integer ( I4B ) :: status !! Status flag assigned to this outcome ! Internals integer ( I4B ) :: i , nfrag , ibiggest , nfamily , nstart , nend real ( DP ) :: mtot , avg_dens , min_frag_mass real ( DP ), dimension ( NDIM ) :: xcom , vcom real ( DP ), dimension ( 2 ) :: vol real ( DP ), dimension ( NDIM ) :: Ip_new real ( DP ), dimension (:, :), allocatable :: vb_frag , xb_frag , rot_frag , Ip_frag real ( DP ), dimension (:), allocatable :: m_frag , rad_frag logical :: lfailure logical , dimension ( system % pl % nbody ) :: lmask class ( symba_pl ), allocatable :: plnew select type ( pl => system % pl ) class is ( symba_pl ) associate ( mergeadd_list => system % mergeadd_list , mergesub_list => system % mergesub_list , cb => system % cb ) ! Collisional fragments will be uniformly distributed around the pre-impact barycenter nfrag = NFRAG_SUPERCAT allocate ( m_frag ( nfrag )) allocate ( rad_frag ( nfrag )) allocate ( xb_frag ( NDIM , nfrag )) allocate ( vb_frag ( NDIM , nfrag )) allocate ( rot_frag ( NDIM , nfrag )) allocate ( Ip_frag ( NDIM , nfrag )) mtot = sum ( mass (:)) xcom (:) = ( mass ( 1 ) * x (:, 1 ) + mass ( 2 ) * x (:, 2 )) / mtot vcom (:) = ( mass ( 1 ) * v (:, 1 ) + mass ( 2 ) * v (:, 2 )) / mtot ! Get mass weighted mean of Ip and average density Ip_new (:) = ( mass ( 1 ) * Ip (:, 1 ) + mass ( 2 ) * Ip (:, 2 )) / mtot vol (:) = 4._DP / 3._DP * pi * radius (:) ** 3 avg_dens = mtot / sum ( vol (:)) ! If we are adding the first and largest fragment (lr), check to see if its mass is SMALLER than an equal distribution of ! mass between all fragments. If so, we will just distribute the mass equally between the fragments min_frag_mass = mtot / nfrag if ( mass_res ( 1 ) < min_frag_mass ) then m_frag (:) = min_frag_mass else m_frag ( 1 ) = mass_res ( 1 ) m_frag ( 2 : nfrag ) = ( mtot - mass_res ( 1 )) / ( nfrag - 1 ) end if ! Distribute any residual mass if there is any and set the radius m_frag ( nfrag ) = m_frag ( nfrag ) + ( mtot - sum ( m_frag (:))) rad_frag (:) = ( 3 * m_frag (:) / ( 4 * PI * avg_dens )) ** ( 1.0_DP / 3.0_DP ) do i = 1 , nfrag Ip_frag (:, i ) = Ip_new (:) end do call fragmentation_initialize ( system , param , family , x , v , L_spin , Ip , mass , radius , & nfrag , Ip_frag , m_frag , rad_frag , xb_frag , vb_frag , rot_frag , Qloss , lfailure ) if ( lfailure ) then write ( * , * ) 'No fragment solution found, so treat as a pure hit-and-run' status = ACTIVE nfrag = 0 else ! Populate the list of new bodies write ( * , '(\"Generating \",I2.0,\" fragments\")' ) nfrag status = SUPERCATASTROPHIC ! Add the family bodies to the subtraction list nfamily = size ( family (:)) lmask (:) = . false . lmask ( family (:)) = . true . pl % status ( family (:)) = MERGED nstart = mergesub_list % nbody + 1 nend = mergesub_list % nbody + nfamily call mergesub_list % append ( pl , lmask ) ! Record how many bodies were subtracted in this event mergesub_list % ncomp ( nstart : nend ) = nfamily allocate ( plnew , mold = pl ) call plnew % setup ( nfrag , param ) plnew % id (:) = [( i , i = system % maxid + 1 , system % maxid + nfrag )] system % maxid = system % maxid + nfrag plnew % status (:) = ACTIVE plnew % lcollision (:) = . false . plnew % ldiscard (:) = . false . plnew % xb (:,:) = xb_frag (:, :) plnew % vb (:,:) = vb_frag (:, :) do i = 1 , nfrag plnew % xh (:, i ) = xb_frag (:, i ) - cb % xb (:) plnew % vh (:, i ) = vb_frag (:, i ) - cb % vb (:) end do plnew % mass (:) = m_frag (:) plnew % Gmass (:) = param % GU * m_frag (:) plnew % density (:) = avg_dens plnew % radius (:) = rad_frag (:) plnew % info (:)% origin_type = \"Supercatastrophic\" plnew % info (:)% origin_time = param % t do i = 1 , nfrag plnew % info ( i )% origin_xh (:) = plnew % xh (:, i ) plnew % info ( i )% origin_vh (:) = plnew % vh (:, i ) end do if ( param % lrotation ) then plnew % Ip (:,:) = Ip_frag (:,:) plnew % rot (:,:) = rot_frag (:,:) end if if ( param % ltides ) then ibiggest = maxloc ( pl % Gmass ( family (:)), dim = 1 ) plnew % Q = pl % Q ( ibiggest ) plnew % k2 = pl % k2 ( ibiggest ) plnew % tlag = pl % tlag ( ibiggest ) end if ! Append the new merged body to the list and record how many we made nstart = mergeadd_list % nbody + 1 nend = mergeadd_list % nbody + plnew % nbody call mergeadd_list % append ( plnew ) mergeadd_list % ncomp ( nstart : nend ) = plnew % nbody call plnew % setup ( 0 , param ) deallocate ( plnew ) end if end associate end select return end function symba_fragmentation_casesupercatastrophic end submodule s_symba_fragmentation","tags":"","loc":"sourcefile/symba_fragmentation.f90.html"},{"title":"symba_encounter_check.f90 – swiftest","text":"This file depends on sourcefile~~symba_encounter_check.f90~~EfferentGraph sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_encounter_check.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_encounter_check Source Code symba_encounter_check.f90 Source Code submodule ( symba_classes ) s_symba_encounter_check use swiftest contains module function symba_encounter_check_pl ( self , system , dt , irec ) result ( lany_encounter ) !! author: David A. Minton !! !! Check for an encounter between massive bodies. !! implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA test particle object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level ! Result logical :: lany_encounter !! Returns true if there is at least one close encounter ! Internals integer ( I8B ) :: k integer ( I4B ) :: nenc real ( DP ), dimension ( NDIM ) :: xr , vr logical , dimension (:), allocatable :: lencounter , loc_lvdotr if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody , nplpl => self % nplpl ) allocate ( lencounter ( nplpl ), loc_lvdotr ( nplpl )) lencounter (:) = . false . do k = 1 , nplpl associate ( i => pl % k_plpl ( 1 , k ), j => pl % k_plpl ( 2 , k )) xr (:) = pl % xh (:, j ) - pl % xh (:, i ) vr (:) = pl % vh (:, j ) - pl % vh (:, i ) call symba_encounter_check_one ( xr ( 1 ), xr ( 2 ), xr ( 3 ), vr ( 1 ), vr ( 2 ), vr ( 3 ), pl % rhill ( i ), pl % rhill ( j ), dt , irec , lencounter ( k ), loc_lvdotr ( k )) end associate end do nenc = count ( lencounter (:)) lany_encounter = nenc > 0 if ( lany_encounter ) then associate ( plplenc_list => system % plplenc_list ) call plplenc_list % resize ( nenc ) plplenc_list % lvdotr ( 1 : nenc ) = pack ( loc_lvdotr (:), lencounter (:)) plplenc_list % index1 ( 1 : nenc ) = pack ( pl % k_plpl ( 1 ,:), lencounter (:)) plplenc_list % index2 ( 1 : nenc ) = pack ( pl % k_plpl ( 2 ,:), lencounter (:)) do k = 1 , nenc plplenc_list % status ( k ) = ACTIVE plplenc_list % level ( k ) = irec pl % lencounter ( plplenc_list % index1 ( k )) = . true . pl % lencounter ( plplenc_list % index2 ( k )) = . true . end do end associate end if end associate return end function symba_encounter_check_pl module function symba_encounter_check_pltpenc ( self , system , dt , irec ) result ( lany_encounter ) !! author: David A. Minton !! !! Check for an encounter between test particles and massive bodies in the pltpenc list. !! Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types. !! !! Adapted from portions of David E. Kaufmann's Swifter routine: symba_step_recur.f90 implicit none ! Arguments class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-pl encounter list object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level logical :: lany_encounter !! Returns true if there is at least one close encounter ! Internals integer ( I4B ) :: k real ( DP ), dimension ( NDIM ) :: xr , vr logical :: lencounter , isplpl real ( DP ) :: rlim2 , rji2 logical , dimension (:), allocatable :: lencmask lany_encounter = . false . if ( self % nenc == 0 ) return select type ( self ) class is ( symba_plplenc ) isplpl = . true . class is ( symba_pltpenc ) isplpl = . false . end select select type ( pl => system % pl ) class is ( symba_pl ) select type ( tp => system % tp ) class is ( symba_tp ) allocate ( lencmask ( self % nenc )) lencmask (:) = ( self % status ( 1 : self % nenc ) == ACTIVE ) . and . ( self % level ( 1 : self % nenc ) == irec - 1 ) if (. not . any ( lencmask (:))) return associate ( ind1 => self % index1 , ind2 => self % index2 ) do concurrent ( k = 1 : self % nenc , lencmask ( k )) if ( isplpl ) then xr (:) = pl % xh (:, ind2 ( k )) - pl % xh (:, ind1 ( k )) vr (:) = pl % vb (:, ind2 ( k )) - pl % vb (:, ind1 ( k )) call symba_encounter_check_one ( xr ( 1 ), xr ( 2 ), xr ( 3 ), vr ( 1 ), vr ( 2 ), vr ( 3 ), pl % rhill ( ind1 ( k )), pl % rhill ( ind2 ( k )), dt , irec , lencounter , self % lvdotr ( k )) else xr (:) = tp % xh (:, ind2 ( k )) - pl % xh (:, ind1 ( k )) vr (:) = tp % vb (:, ind2 ( k )) - pl % vb (:, ind1 ( k )) call symba_encounter_check_one ( xr ( 1 ), xr ( 2 ), xr ( 3 ), vr ( 1 ), vr ( 2 ), vr ( 3 ), pl % rhill ( ind1 ( k )), 0.0_DP , dt , irec , lencounter , self % lvdotr ( k )) end if if ( lencounter ) then if ( isplpl ) then rlim2 = ( pl % radius ( ind1 ( k )) + pl % radius ( ind2 ( k ))) ** 2 else rlim2 = ( pl % radius ( ind1 ( k ))) ** 2 end if rji2 = dot_product ( xr (:), xr (:)) ! Check to see if these are physically overlapping bodies first, which we should ignore if ( rji2 > rlim2 ) then lany_encounter = . true . pl % levelg ( ind1 ( k )) = irec pl % levelm ( ind1 ( k )) = MAX ( irec , pl % levelm ( ind1 ( k ))) if ( isplpl ) then pl % levelg ( ind2 ( k )) = irec pl % levelm ( ind2 ( k )) = MAX ( irec , pl % levelm ( ind2 ( k ))) else tp % levelg ( ind2 ( k )) = irec tp % levelm ( ind2 ( k )) = MAX ( irec , tp % levelm ( ind2 ( k ))) end if self % level ( k ) = irec end if end if end do end associate end select end select return end function symba_encounter_check_pltpenc module function symba_encounter_check_tp ( self , system , dt , irec ) result ( lany_encounter ) !! author: David A. Minton !! !! Check for an encounter between test particles and massive bodies. !! implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level ! Result logical :: lany_encounter !! Returns true if there is at least one close encounter ! Internals real ( DP ) :: r2crit , vdotr , r2 , v2 , tmin , r2min , term2 integer ( I4B ) :: i , j , k , nenc real ( DP ), dimension ( NDIM ) :: xr , vr logical , dimension (:,:), allocatable :: lencounter , loc_lvdotr if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody , pl => system % pl , npl => system % pl % nbody ) allocate ( lencounter ( ntp , npl ), loc_lvdotr ( ntp , npl )) lencounter (:,:) = . false . do j = 1 , npl do i = 1 , ntp xr (:) = tp % xh (:, i ) - pl % xh (:, j ) vr (:) = tp % vh (:, i ) - pl % vh (:, j ) call symba_encounter_check_one ( xr ( 1 ), xr ( 2 ), xr ( 3 ), vr ( 1 ), vr ( 2 ), vr ( 3 ), pl % rhill ( j ), 0.0_DP , dt , irec , lencounter ( i , j ), loc_lvdotr ( i , j )) end do end do nenc = count ( lencounter (:,:)) lany_encounter = nenc > 0 if ( lany_encounter ) then associate ( pltpenc_list => system % pltpenc_list ) call pltpenc_list % resize ( nenc ) pltpenc_list % status ( 1 : nenc ) = ACTIVE pltpenc_list % level ( 1 : nenc ) = irec pltpenc_list % lvdotr ( 1 : nenc ) = pack ( loc_lvdotr (:,:), lencounter (:,:)) pltpenc_list % index1 ( 1 : nenc ) = pack ( spread ([( i , i = 1 , npl )], dim = 1 , ncopies = ntp ), lencounter (:,:)) pltpenc_list % index2 ( 1 : nenc ) = pack ( spread ([( i , i = 1 , ntp )], dim = 2 , ncopies = npl ), lencounter (:,:)) select type ( pl ) class is ( symba_pl ) pl % lencounter (:) = . false . do k = 1 , nenc pl % lencounter ( pltpenc_list % index1 ( k )) = . true . end do end select end associate end if end associate return end function symba_encounter_check_tp module pure elemental subroutine symba_encounter_check_one ( xr , yr , zr , vxr , vyr , vzr , rhill1 , rhill2 , dt , irec , lencounter , lvdotr ) !! author: David A. Minton !! !! Check for an encounter. !! !! Adapted from David E. Kaufmann's Swifter routine: symba_chk.f90 !! Adapted from Hal Levison's Swift routine symba5_chk.f implicit none ! Arguments real ( DP ), intent ( in ) :: xr , yr , zr , vxr , vyr , vzr real ( DP ), intent ( in ) :: rhill1 , rhill2 , dt integer ( I4B ), intent ( in ) :: irec logical , intent ( out ) :: lencounter , lvdotr ! Internals real ( DP ) :: r2 , v2 , rcrit , r2crit , vdotr rcrit = ( rhill1 + rhill2 ) * RHSCALE * ( RSHELL ** ( irec )) r2crit = rcrit ** 2 r2 = xr ** 2 + yr ** 2 + zr ** 2 v2 = vxr ** 2 + vyr ** 2 + vzr ** 2 vdotr = xr * vxr + yr * vyr + zr * vzr lencounter = rmvs_chk_ind ( r2 , v2 , vdotr , dt , r2crit ) lvdotr = ( vdotr < 0.0_DP ) return end subroutine symba_encounter_check_one end submodule s_symba_encounter_check","tags":"","loc":"sourcefile/symba_encounter_check.f90.html"},{"title":"symba_io.f90 – swiftest","text":"This file depends on sourcefile~~symba_io.f90~~EfferentGraph sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_io.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_io Source Code symba_io.f90 Source Code submodule ( symba_classes ) s_symba_io use swiftest contains module subroutine symba_io_dump_particle_info ( self , param , msg ) !! author: David A. Minton !! !! Dumps the particle information data to a file implicit none class ( symba_particle_info ), intent ( inout ) :: self !! Swiftest base object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), optional , intent ( in ) :: msg !! Message to display with dump operation end subroutine symba_io_dump_particle_info module subroutine symba_io_initialize_particle_info ( self , param ) !! author: David A. Minton !! !! Initializes a particle info data structure, either starting a new one or reading one in !! from a file if it is a restarted run implicit none class ( symba_particle_info ), intent ( inout ) :: self !! SyMBA particle info object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine symba_io_initialize_particle_info module subroutine symba_io_param_reader ( self , unit , iotype , v_list , iostat , iomsg ) !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Read in parameters specific to the SyMBA integrator, then calls the base io_param_reader. !! !! Adapted from David E. Kaufmann's Swifter routine io_init_param.f90 !! Adapted from Martin Duncan's Swift routine io_init_param.f implicit none ! Arguments class ( symba_parameters ), intent ( inout ) :: self !! Collection of parameters integer , intent ( in ) :: unit !! File unit number character ( len =* ), intent ( in ) :: iotype !! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. !!    If you do not include a char-literal-constant, the iotype argument contains only DT. integer , intent ( in ) :: v_list (:) !! The first element passes the integrator code to the reader integer , intent ( out ) :: iostat !! IO status code character ( len =* ), intent ( inout ) :: iomsg !! Message to pass if iostat /= 0 ! internals integer ( I4B ) :: ilength , ifirst , ilast !! Variables used to parse input file character ( STRMAX ) :: line !! Line of the input file character ( len = :), allocatable :: line_trim , param_name , param_value !! Strings used to parse the param file integer ( I4B ) :: nseeds , nseeds_from_file , i logical :: seed_set = . false . !! Is the random seed set in the input file? character ( len =* ), parameter :: linefmt = '(A)' associate ( param => self ) call io_param_reader ( param , unit , iotype , v_list , iostat , iomsg ) call random_seed ( size = nseeds ) if ( allocated ( param % seed )) deallocate ( param % seed ) allocate ( param % seed ( nseeds )) rewind ( unit ) do read ( unit = unit , fmt = linefmt , iostat = iostat , end = 1 ) line line_trim = trim ( adjustl ( line )) ilength = len ( line_trim ) if (( ilength /= 0 )) then ifirst = 1 ! Read the pair of tokens. The first one is the parameter name, the second is the value. param_name = io_get_token ( line_trim , ifirst , ilast , iostat ) if ( param_name == '' ) cycle ! No parameter name (usually because this line is commented out) call io_toupper ( param_name ) ifirst = ilast + 1 param_value = io_get_token ( line_trim , ifirst , ilast , iostat ) select case ( param_name ) case ( \"FRAGMENTATION\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == \"T\" ) self % lfragmentation = . true . case ( \"MTINY\" ) read ( param_value , * ) param % mtiny case ( \"SEED\" ) read ( param_value , * ) nseeds_from_file ! Because the number of seeds can vary between compilers/systems, we need to make sure we can handle cases in which the input file has a different ! number of seeds than the current system. If the number of seeds in the file is smaller than required, we will use them as a source to fill in the missing elements. ! If the number of seeds in the file is larger than required, we will truncate the seed array. if ( nseeds_from_file > nseeds ) then nseeds = nseeds_from_file deallocate ( param % seed ) allocate ( param % seed ( nseeds )) do i = 1 , nseeds ifirst = ilast + 1 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * ) param % seed ( i ) end do else ! Seed array in file is too small do i = 1 , nseeds_from_file ifirst = ilast + 1 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * ) param % seed ( i ) end do param % seed ( nseeds_from_file + 1 : nseeds ) = [( param % seed ( 1 ) - param % seed ( nseeds_from_file ) + i , i = nseeds_from_file + 1 , nseeds )] end if seed_set = . true . end select end if end do 1 continue write ( * , * ) \"FRAGMENTATION = \" , param % lfragmentation if ( param % lfragmentation ) then if ( seed_set ) then call random_seed ( put = param % seed ) else call random_seed ( get = param % seed ) end if write ( * , * ) \"SEED: N,VAL    = \" , size ( param % seed ), param % seed (:) end if if ( self % mtiny < 0.0_DP ) then write ( iomsg , * ) \"MTINY invalid or not set: \" , self % mtiny iostat = - 1 return else write ( * , * ) \"MTINY          = \" , self % mtiny end if if (. not . self % lclose ) then write ( iomsg , * ) 'This integrator requires CHK_CLOSE to be enabled.' iostat = - 1 return end if end associate iostat = 0 return end subroutine symba_io_param_reader module subroutine symba_io_param_writer ( self , unit , iotype , v_list , iostat , iomsg ) !! author: David A. Minton !! !! Dump integration parameters specific to SyMBA to file and then call the base io_param_writer method. !! !! Adapted from David E. Kaufmann's Swifter routine io_dump_param.f90 !! Adapted from Martin Duncan's Swift routine io_dump_param.f implicit none ! Arguments class ( symba_parameters ), intent ( in ) :: self !! Collection of SyMBA parameters integer , intent ( in ) :: unit !! File unit number character ( len =* ), intent ( in ) :: iotype !! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. !!    If you do not include a char-literal-constant, the iotype argument contains only DT. integer , intent ( in ) :: v_list (:) !! Not used in this procedure integer , intent ( out ) :: iostat !! IO status code character ( len =* ), intent ( inout ) :: iomsg !! Message to pass if iostat /= 0 ! Internals character ( * ), parameter :: Ifmt = '(I0)' !! Format label for integer values character ( * ), parameter :: Rfmt = '(ES25.17)' !! Format label for real values character ( * ), parameter :: Rarrfmt = '(3(ES25.17,1X))' !! Format label for real values character ( * ), parameter :: Lfmt = '(L1)' !! Format label for logical values character ( len =* ), parameter :: Afmt = '(A25,1X,64(:,A25,1X))' character ( 256 ) :: param_name , param_value type character_array character ( 25 ) :: value end type character_array type ( character_array ), dimension (:), allocatable :: param_array integer ( I4B ) :: i associate ( param => self ) call io_param_writer ( param , unit , iotype , v_list , iostat , iomsg ) ! Special handling is required for writing the random number seed array as its size is not known until runtime ! For the \"SEED\" parameter line, the first value will be the size of the seed array and the rest will be the seed array elements write ( param_name , Afmt ) \"PARTICLE_FILE\" ; write ( param_value , Afmt ) trim ( adjustl ( param % particle_file )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"MTINY\" ; write ( param_value , Rfmt ) param % mtiny ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"FRAGMENTATION\" ; write ( param_value , Lfmt ) param % lfragmentation ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) if ( param % lfragmentation ) then write ( param_name , Afmt ) \"SEED\" if ( allocated ( param_array )) deallocate ( param_array ) allocate ( param_array ( 0 : size ( param % seed ))) write ( param_array ( 0 )% value , Ifmt ) size ( param % seed ) do i = 1 , size ( param % seed ) write ( param_array ( i )% value , Ifmt ) param % seed ( i ) end do write ( unit , Afmt , advance = 'no' ) adjustl ( param_name ), adjustl ( param_array ( 0 )% value ) do i = 1 , size ( param % seed ) if ( i < size ( param % seed )) then write ( unit , Afmt , advance = 'no' ) adjustl ( param_array ( i )% value ) else write ( unit , Afmt ) adjustl ( param_array ( i )% value ) end if end do end if iostat = 0 end associate return end subroutine symba_io_param_writer module subroutine symba_io_read_frame_info ( self , iu , param , form , ierr ) !! author: David A. Minton !! !! Reads a single frame of a particle info data from a file. implicit none class ( symba_particle_info ), intent ( inout ) :: self !! SyMBA particle info object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), intent ( in ) :: form !! Input format code (\"XV\" or \"EL\") integer ( I4B ), intent ( out ) :: ierr !! Error code ierr = 0 end subroutine symba_io_read_frame_info module subroutine symba_io_write_discard ( self , param ) implicit none class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ), parameter :: LUN = 40 integer ( I4B ) :: iadd , isub , j , ierr , nsub , nadd logical , save :: lfirst = . true . real ( DP ), dimension (:,:), allocatable :: vh character ( * ), parameter :: HDRFMT = '(E23.16, 1X, I8, 1X, L1)' character ( * ), parameter :: NAMEFMT = '(A, 2(1X, I8))' character ( * ), parameter :: VECFMT = '(3(E23.16, 1X))' character ( * ), parameter :: NPLFMT = '(I8)' character ( * ), parameter :: PLNAMEFMT = '(I8, 2(1X, E23.16))' class ( swiftest_body ), allocatable :: pltemp associate ( pl => self % pl , npl => self % pl % nbody , mergesub_list => self % mergesub_list , mergeadd_list => self % mergeadd_list ) if ( self % tp_discards % nbody > 0 ) call io_write_discard ( self , param ) if ( mergesub_list % nbody == 0 ) return select case ( param % out_stat ) case ( 'APPEND' ) open ( unit = LUN , file = param % discard_out , status = 'OLD' , position = 'APPEND' , form = 'FORMATTED' , iostat = ierr ) case ( 'NEW' , 'REPLACE' , 'UNKNOWN' ) open ( unit = LUN , file = param % discard_out , status = param % out_stat , form = 'FORMATTED' , iostat = ierr ) case default write ( * , * ) 'Invalid status code for OUT_STAT: ' , trim ( adjustl ( param % out_stat )) call util_exit ( FAILURE ) end select lfirst = . false . if ( param % lgr ) then call mergesub_list % pv2v ( param ) call mergeadd_list % pv2v ( param ) end if write ( LUN , HDRFMT ) param % t , mergesub_list % nbody , param % lbig_discard iadd = 1 isub = 1 do while ( iadd <= mergeadd_list % nbody ) nadd = mergeadd_list % ncomp ( iadd ) nsub = mergesub_list % ncomp ( isub ) do j = 1 , nadd if ( iadd <= mergeadd_list % nbody ) then write ( LUN , NAMEFMT ) ADD , mergesub_list % id ( iadd ), mergesub_list % status ( iadd ) write ( LUN , VECFMT ) mergeadd_list % xh ( 1 , iadd ), mergeadd_list % xh ( 2 , iadd ), mergeadd_list % xh ( 3 , iadd ) write ( LUN , VECFMT ) mergeadd_list % vh ( 1 , iadd ), mergeadd_list % vh ( 2 , iadd ), mergeadd_list % vh ( 3 , iadd ) else exit end if iadd = iadd + 1 end do do j = 1 , nsub if ( isub <= mergesub_list % nbody ) then write ( LUN , NAMEFMT ) SUB , mergesub_list % id ( isub ), mergesub_list % status ( isub ) write ( LUN , VECFMT ) mergesub_list % xh ( 1 , isub ), mergesub_list % xh ( 2 , isub ), mergesub_list % xh ( 3 , isub ) write ( LUN , VECFMT ) mergesub_list % vh ( 1 , isub ), mergesub_list % vh ( 2 , isub ), mergesub_list % vh ( 3 , isub ) else exit end if isub = isub + 1 end do end do close ( LUN ) end associate return end subroutine symba_io_write_discard module subroutine symba_io_write_frame_info ( self , iu , param ) implicit none class ( symba_particle_info ), intent ( in ) :: self !! SyMBA particle info object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine symba_io_write_frame_info end submodule s_symba_io","tags":"","loc":"sourcefile/symba_io.f90.html"},{"title":"symba_discard.f90 – swiftest","text":"This file depends on sourcefile~~symba_discard.f90~~EfferentGraph sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_discard.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_discard Source Code symba_discard.f90 Source Code submodule ( symba_classes ) s_symba_discard use swiftest contains subroutine symba_discard_cb_pl ( pl , system , param ) !! author: David A. Minton !! !! Check to see if planets should be discarded based on their positions relative to the central body. !! If a body gets flagged here when it has also been previously flagged for a collision with another massive body, !! its collisional status will be revoked. Discards due to colliding with or escaping the central body take precedence !! over pl-pl collisions !! !! Adapted from David E. Kaufmann's Swifter routine: symba_discard_sun.f90 !! Adapted from Hal Levison's Swift routine discard_massive5.f implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: pl !! SyMBA massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i , j real ( DP ) :: energy , vb2 , rb2 , rh2 , rmin2 , rmax2 , rmaxu2 associate ( npl => pl % nbody , cb => system % cb ) call system % set_msys () rmin2 = param % rmin ** 2 rmax2 = param % rmax * 2 rmaxu2 = param % rmaxu ** 2 do i = 1 , npl if ( pl % status ( i ) == ACTIVE ) then rh2 = dot_product ( pl % xh (:, i ), pl % xh (:, i )) if (( param % rmax >= 0.0_DP ) . and . ( rh2 > rmax2 )) then pl % ldiscard ( i ) = . true . pl % lcollision ( i ) = . false . pl % status ( i ) = DISCARDED_RMAX write ( * , * ) \"Massive body \" , pl % id ( i ), \" too far from the central body at t = \" , param % t else if (( param % rmin >= 0.0_DP ) . and . ( rh2 < rmin2 )) then pl % ldiscard ( i ) = . true . pl % lcollision ( i ) = . false . pl % status ( i ) = DISCARDED_RMIN write ( * , * ) \"Massive body \" , pl % id ( i ), \" too close to the central body at t = \" , param % t else if ( param % rmaxu >= 0.0_DP ) then rb2 = dot_product ( pl % xb (:, i ), pl % xb (:, i )) vb2 = dot_product ( pl % vb (:, i ), pl % vb (:, i )) energy = 0.5_DP * vb2 - system % Gmtot / sqrt ( rb2 ) if (( energy > 0.0_DP ) . and . ( rb2 > rmaxu2 )) then pl % ldiscard ( i ) = . true . pl % lcollision ( i ) = . false . pl % status ( i ) = DISCARDED_RMAXU write ( * , * ) \"Massive body \" , pl % id ( i ), \" is unbound and too far from barycenter at t = \" , param % t end if end if end if end do end associate return end subroutine symba_discard_cb_pl subroutine symba_discard_conserve_mtm ( pl , system , param , ipl , lescape_body ) !! author: David A. Minton !! !! Conserves system momentum when a body is lost from the system or collides with central body implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: pl class ( symba_nbody_system ), intent ( inout ) :: system class ( symba_parameters ), intent ( inout ) :: param integer ( I4B ), intent ( in ) :: ipl logical , intent ( in ) :: lescape_body ! Internals real ( DP ), dimension ( NDIM ) :: Lpl , Ltot , Lcb , xcom , vcom real ( DP ) :: pe , ke_orbit , ke_spin integer ( I4B ) :: i , oldstat select type ( cb => system % cb ) class is ( symba_cb ) ! Add the potential and kinetic energy of the lost body to the records pe = - cb % mass * pl % mass ( ipl ) / norm2 ( pl % xb (:, ipl ) - cb % xb (:)) ke_orbit = 0.5_DP * pl % mass ( ipl ) * dot_product ( pl % vb (:, ipl ), pl % vb (:, ipl )) if ( param % lrotation ) then ke_spin = 0.5_DP * pl % mass ( ipl ) * pl % radius ( ipl ) ** 2 * pl % Ip ( 3 , ipl ) * dot_product ( pl % rot (:, ipl ), pl % rot (:, ipl )) else ke_spin = 0.0_DP end if ! Add the pre-collision ke of the central body to the records ! Add planet mass to central body accumulator if ( lescape_body ) then system % Mescape = system % Mescape + pl % mass ( ipl ) do i = 1 , pl % nbody if ( i == ipl ) cycle pe = pe - pl % mass ( i ) * pl % mass ( ipl ) / norm2 ( pl % xb (:, ipl ) - pl % xb (:, i )) end do Ltot (:) = 0.0_DP do i = 1 , pl % nbody Lpl (:) = pL % mass ( i ) * pl % xb (:, i ) . cross . pl % vb (:, i ) Ltot (:) = Ltot (:) + Lpl (:) end do Ltot (:) = Ltot (:) + cb % mass * cb % xb (:) . cross . cb % vb (:) call pl % b2h ( cb ) oldstat = pl % status ( ipl ) pl % status ( ipl ) = INACTIVE call pl % h2b ( cb ) pl % status ( ipl ) = oldstat do i = 1 , pl % nbody if ( i == ipl ) cycle Lpl (:) = pl % mass ( i ) * pl % xb (:, i ) . cross . pl % vb (:, i ) Ltot (:) = Ltot (:) - Lpl (:) end do Ltot (:) = Ltot (:) - cb % mass * cb % xb (:) . cross . cb % vb (:) system % Lescape (:) = system % Lescape (:) + Ltot (:) if ( param % lrotation ) system % Lescape (:) = system % Lescape + pl % mass ( ipl ) * pl % radius ( ipl ) ** 2 * pl % Ip ( 3 , ipl ) * pl % rot (:, ipl ) else xcom (:) = ( pl % mass ( ipl ) * pl % xb (:, ipl ) + cb % mass * cb % xb (:)) / ( cb % mass + pl % mass ( ipl )) vcom (:) = ( pl % mass ( ipl ) * pl % vb (:, ipl ) + cb % mass * cb % vb (:)) / ( cb % mass + pl % mass ( ipl )) Lpl (:) = ( pl % xb (:, ipl ) - xcom (:)) . cross . pL % vb (:, ipl ) - vcom (:) if ( param % lrotation ) Lpl (:) = pl % mass ( ipl ) * ( Lpl (:) + pl % radius ( ipl ) ** 2 * pl % Ip ( 3 , ipl ) * pl % rot (:, ipl )) Lcb (:) = cb % mass * ( cb % xb (:) - xcom (:)) . cross . ( cb % vb (:) - vcom (:)) ke_orbit = ke_orbit + 0.5_DP * cb % mass * dot_product ( cb % vb (:), cb % vb (:)) if ( param % lrotation ) ke_spin = ke_spin + 0.5_DP * cb % mass * cb % radius ** 2 * cb % Ip ( 3 ) * dot_product ( cb % rot (:), cb % rot (:)) ! Update mass of central body to be consistent with its total mass cb % dM = cb % dM + pl % mass ( ipl ) cb % dR = cb % dR + 1.0_DP / 3.0_DP * ( pl % radius ( ipl ) / cb % radius ) ** 3 - 2.0_DP / 9.0_DP * ( pl % radius ( ipl ) / cb % radius ) ** 6 cb % mass = cb % M0 + cb % dM cb % Gmass = param % GU * cb % mass cb % radius = cb % R0 + cb % dR param % rmin = cb % radius ! Add planet angular momentum to central body accumulator cb % dL (:) = Lpl (:) + Lcb (:) + cb % dL (:) ! Update rotation of central body to by consistent with its angular momentum if ( param % lrotation ) then cb % rot (:) = ( cb % L0 (:) + cb % dL (:)) / ( cb % Ip ( 3 ) * cb % mass * cb % radius ** 2 ) ke_spin = ke_spin - 0.5_DP * cb % mass * cb % radius ** 2 * cb % Ip ( 3 ) * dot_product ( cb % rot (:), cb % rot (:)) end if cb % xb (:) = xcom (:) cb % vb (:) = vcom (:) ke_orbit = ke_orbit - 0.5_DP * cb % mass * dot_product ( cb % vb (:), cb % vb (:)) end if call pl % b2h ( cb ) ! We must do this for proper book-keeping, since we can no longer track this body's contribution to energy directly if ( lescape_body ) then system % Ecollisions = system % Ecollisions + ke_orbit + ke_spin + pe system % Euntracked = system % Euntracked - ( ke_orbit + ke_spin + pe ) else system % Ecollisions = system % Ecollisions + pe system % Euntracked = system % Euntracked - pe end if end select return end subroutine symba_discard_conserve_mtm subroutine symba_discard_nonplpl ( pl , system , param ) !! author: David A. Minton !! !! Check to see if planets should be discarded based on their positions or because they are unbound !s !! !! Adapted from David E. Kaufmann's Swifter routine: symba_discard_pl.f90 !! Adapted from Hal Levison's Swift routine discard_massive5.f implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: pl !! SyMBA test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! First check for collisions with the central body associate ( npl => pl % nbody , cb => system % cb ) if ( npl == 0 ) return if (( param % rmin >= 0.0_DP ) . or . ( param % rmax >= 0.0_DP ) . or . & ( param % rmaxu >= 0.0_DP ) . or . (( param % qmin >= 0.0_DP ) . and . ( param % qmin_coord == \"BARY\" ))) then call pl % h2b ( cb ) end if if (( param % rmin >= 0.0_DP ) . or . ( param % rmax >= 0.0_DP ) . or . ( param % rmaxu >= 0.0_DP )) then call symba_discard_cb_pl ( pl , system , param ) end if if ( param % qmin >= 0.0_DP . and . npl > 0 ) call symba_discard_peri_pl ( pl , system , param ) end associate return end subroutine symba_discard_nonplpl subroutine symba_discard_nonplpl_conservation ( pl , system , param ) !! author: David A. Minton !! !! If there are any bodies that are removed due to either colliding with the central body or escaping the systme, !! we need to track the conserved quantities with the system bookkeeping terms. implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: pl !! SyMBA test particle object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i , ndiscard , dstat logical :: lescape logical , dimension ( pl % nbody ) :: discard_l_pl integer ( I4B ), dimension (:), allocatable :: discard_index_list associate ( npl => pl % nbody ) discard_l_pl ( 1 : npl ) = pl % ldiscard ( 1 : npl ) . and . . not . pl % lcollision ( 1 : npl ) ! These are bodies that are discarded but not flagged as pl-pl collision ndiscard = count ( discard_l_pl (:)) allocate ( discard_index_list ( ndiscard )) discard_index_list (:) = pack ([( i , i = 1 , npl )], discard_l_pl ( 1 : npl )) do i = 1 , ndiscard dstat = pl % status ( discard_index_list ( i )) if (( dstat == DISCARDED_RMIN ) . or . ( dstat == DISCARDED_PERI )) then lescape = . false . else if (( dstat == DISCARDED_RMAX ) . or . ( dstat == DISCARDED_RMAXU )) then lescape = . true . else cycle end if ! Conserve all the quantities call symba_discard_conserve_mtm ( pl , system , param , discard_index_list ( i ), lescape ) end do end associate return end subroutine symba_discard_nonplpl_conservation subroutine symba_discard_peri_pl ( pl , system , param ) !! author: David A. Minton !! !! Check to see if a test particle should be discarded because its perihelion distance becomes too small !! !! Adapted from David E. Kaufmann's Swifter routine: symba_discard_peri_pl.f90 !! Adapted from Hal Levison's Swift routine discard_mass_peri.f implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: pl !! SyMBA massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals logical , save :: lfirst = . true . logical :: lfirst_orig integer ( I4B ) :: i lfirst_orig = pl % lfirst pl % lfirst = lfirst if ( lfirst ) then call pl % get_peri ( system , param ) lfirst = . false . else call pl % get_peri ( system , param ) do i = 1 , pl % nbody if ( pl % status ( i ) == ACTIVE ) then if (( pl % isperi ( i ) == 0 ) . and . ( pl % nplenc ( i ) == 0 )) then if (( pl % atp ( i ) >= param % qmin_alo ) . and . ( pl % atp ( i ) <= param % qmin_ahi ) . and . ( pl % peri ( i ) <= param % qmin )) then pl % ldiscard ( i ) = . true . pl % lcollision ( i ) = . false . pl % status ( i ) = DISCARDED_PERI write ( * , * ) \"Particle \" , pl % id ( i ), \" perihelion distance too small at t = \" , param % t end if end if end if end do end if pl % lfirst = lfirst_orig return end subroutine symba_discard_peri_pl module subroutine symba_discard_pl ( self , system , param ) !! author: David A. Minton !! !! Call the various flavors of discards for massive bodies in SyMBA runs, including discards due to colling with the central body, !! escaping the system, or colliding with each other. implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters select type ( system ) class is ( symba_nbody_system ) select type ( param ) class is ( symba_parameters ) associate ( pl => self , plplenc_list => system % plplenc_list ) call pl % h2b ( system % cb ) ! First deal with the non pl-pl collisions call symba_discard_nonplpl ( self , system , param ) ! Scrub the pl-pl encounter list of any encounters that did not lead to a collision call plplenc_list % scrub_non_collision ( system , param ) if (( plplenc_list % nenc > 0 ) . and . any ( pl % lcollision (:))) then write ( * , * ) \"Collision between massive bodies detected at time t = \" , param % t if ( param % lfragmentation ) then call plplenc_list % resolve_fragmentations ( system , param ) else call plplenc_list % resolve_mergers ( system , param ) end if end if if ( any ( pl % ldiscard (:))) then call symba_discard_nonplpl_conservation ( self , system , param ) call pl % rearray ( system , param ) end if end associate end select end select return end subroutine symba_discard_pl end submodule s_symba_discard","tags":"","loc":"sourcefile/symba_discard.f90.html"},{"title":"symba_step.f90 – swiftest","text":"This file depends on sourcefile~~symba_step.f90~~EfferentGraph sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_step Source Code symba_step.f90 Source Code submodule ( symba_classes ) s_symba_step use swiftest contains module subroutine symba_step_system ( self , param , t , dt ) !! author: David A. Minton !! !! Step planets and active test particles ahead in democratic heliocentric coordinates, descending the recursive !!   branch if necessary to handle possible close encounters !! !! Adapted from David E. Kaufmann's Swifter routine: symba_step.f90 !! Adapted from Hal Levison's Swift routine symba5_step_pl.f implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize ! Internals logical :: lencounter call self % reset () select type ( pl => self % pl ) class is ( symba_pl ) select type ( tp => self % tp ) class is ( symba_tp ) lencounter = pl % encounter_check ( self , dt , 0 ) . or . tp % encounter_check ( self , dt , 0 ) if ( lencounter ) then tp % lfirst = pl % lfirst call self % interp ( param , t , dt ) pl % lfirst = . true . tp % lfirst = . true . else call helio_step_system ( self , param , t , dt ) end if end select end select return end subroutine symba_step_system module subroutine symba_step_interp_system ( self , param , t , dt ) !! author: David A. Minton !! !! Step planets and active test particles ahead in democratic heliocentric coordinates, calling the recursive !!         subroutine to descend to the appropriate level to handle close encounters !! !! Adapted from David E. Kaufmann's Swifter routine: symba_step_interp.f90 !! Adapted from Hal Levison's Swift routine symba5_step_interp.f implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize ! Internals real ( DP ) :: dth !! Half step size dth = 0.5_DP * dt associate ( system => self ) select type ( pl => system % pl ) class is ( symba_pl ) select type ( tp => system % tp ) class is ( symba_tp ) select type ( cb => system % cb ) class is ( symba_cb ) system % irec = - 1 call pl % vh2vb ( cb ) call pl % lindrift ( cb , dth , lbeg = . true .) call pl % kick ( system , param , t , dth , lbeg = . true .) call pl % drift ( system , param , dt ) call tp % vh2vb ( vbcb = - cb % ptbeg ) call tp % lindrift ( cb , dth , lbeg = . true .) call tp % kick ( system , param , t , dth , lbeg = . true .) call tp % drift ( system , param , dt ) call system % recursive_step ( param , t , 0 ) call pl % kick ( system , param , t , dth , lbeg = . false .) call pl % vb2vh ( cb ) call pl % lindrift ( cb , dth , lbeg = . false .) call tp % kick ( system , param , t , dth , lbeg = . false .) call tp % vb2vh ( vbcb = - cb % ptend ) call tp % lindrift ( cb , dth , lbeg = . false .) end select end select end select end associate return end subroutine symba_step_interp_system module subroutine symba_step_set_recur_levels_system ( self , ireci ) !! author: David A. Minton !! !! Resets pl, tp,and encounter structures at the start of a new step !! !! Adapted from David E. Kaufmann's Swifter routine: symba_step_recur.f90 !! Adapted from Hal Levison's Swift routine symba5_step_recur.f implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object integer ( I4B ), intent ( in ) :: ireci !! Input recursion level ! Internals integer ( I4B ) :: k , irecp associate ( system => self , plplenc_list => self % plplenc_list , pltpenc_list => self % pltpenc_list ) select type ( pl => self % pl ) class is ( symba_pl ) select type ( tp => self % tp ) class is ( symba_tp ) irecp = ireci + 1 if ( plplenc_list % nenc > 0 ) then do k = 1 , plplenc_list % nenc associate ( i => plplenc_list % index1 ( k ), j => plplenc_list % index2 ( k )) if ( pl % levelg ( i ) == irecp ) pl % levelg ( i ) = ireci if ( pl % levelg ( j ) == irecp ) pl % levelg ( j ) = ireci end associate end do where ( plplenc_list % level ( 1 : plplenc_list % nenc ) == irecp ) plplenc_list % level ( 1 : plplenc_list % nenc ) = ireci end if if ( pltpenc_list % nenc > 0 ) then do k = 1 , pltpenc_list % nenc associate ( i => pltpenc_list % index1 ( k ), j => pltpenc_list % index2 ( k )) if ( pl % levelg ( i ) == irecp ) pl % levelg ( i ) = ireci if ( tp % levelg ( j ) == irecp ) tp % levelg ( j ) = ireci end associate end do where ( pltpenc_list % level ( 1 : pltpenc_list % nenc ) == irecp ) pltpenc_list % level ( 1 : pltpenc_list % nenc ) = ireci end if system % irec = ireci end select end select end associate return end subroutine symba_step_set_recur_levels_system module recursive subroutine symba_step_recur_system ( self , param , t , ireci ) !! author: David A. Minton !! !! Step interacting planets and active test particles ahead in democratic heliocentric coordinates at the current !!         recursion level, if applicable, and descend to the next deeper level if necessarys !! !! Adapted from David E. Kaufmann's Swifter routine: symba_step_recur.f90 !! Adapted from Hal Levison's Swift routine symba5_step_recur.f implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), value :: t integer ( I4B ), value :: ireci !! input recursion level ! Internals integer ( I4B ) :: i , j , irecp , nloops real ( DP ) :: dtl , dth real ( DP ), dimension ( NDIM ) :: xr , vr logical :: lencounter associate ( system => self , plplenc_list => self % plplenc_list , pltpenc_list => self % pltpenc_list ) select type ( pl => self % pl ) class is ( symba_pl ) select type ( tp => self % tp ) class is ( symba_tp ) system % irec = ireci dtl = param % dt / ( NTENC ** ireci ) dth = 0.5_DP * dtl IF ( dtl / param % dt < VSMALL ) THEN write ( * , * ) \"SWIFTEST Warning:\" write ( * , * ) \"   In symba_step_recur_system, local time step is too small\" write ( * , * ) \"   Roundoff error will be important!\" call util_exit ( FAILURE ) END IF irecp = ireci + 1 if ( ireci == 0 ) then nloops = 1 else nloops = NTENC end if do j = 1 , nloops lencounter = plplenc_list % encounter_check ( system , dtl , irecp ) . or . pltpenc_list % encounter_check ( system , dtl , irecp ) call plplenc_list % kick ( system , dth , irecp , 1 ) call pltpenc_list % kick ( system , dth , irecp , 1 ) if ( ireci /= 0 ) then call plplenc_list % kick ( system , dth , irecp , - 1 ) call pltpenc_list % kick ( system , dth , irecp , - 1 ) end if call pl % drift ( system , param , dtl ) call tp % drift ( system , param , dtl ) if ( lencounter ) call system % recursive_step ( param , t + dth , irecp ) system % irec = ireci call plplenc_list % kick ( system , dth , irecp , 1 ) call pltpenc_list % kick ( system , dth , irecp , 1 ) if ( ireci /= 0 ) then call plplenc_list % kick ( system , dth , irecp , - 1 ) call pltpenc_list % kick ( system , dth , irecp , - 1 ) end if if ( param % lclose ) then call plplenc_list % collision_check ( system , param , t + dtl , dtl , ireci ) call pltpenc_list % collision_check ( system , param , t + dtl , dtl , ireci ) end if call self % set_recur_levels ( ireci ) end do end select end select end associate return end subroutine symba_step_recur_system module subroutine symba_step_reset_system ( self ) !! author: David A. Minton !! !! Resets pl, tp,and encounter structures at the start of a new step !! !! Adapted from David E. Kaufmann's Swifter routine: symba_step.f90 !! Adapted from Hal Levison's Swift routine symba5_step.f implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object ! Internals integer ( I4B ) :: i associate ( system => self , pltpenc_list => self % pltpenc_list , plplenc_list => self % plplenc_list , mergeadd_list => self % mergeadd_list , mergesub_list => self % mergesub_list ) select type ( pl => system % pl ) class is ( symba_pl ) select type ( tp => system % tp ) class is ( symba_tp ) if ( pl % nbody > 0 ) then pl % lcollision (:) = . false . pl % kin (:)% parent = [( i , i = 1 , pl % nbody )] pl % kin (:)% nchild = 0 do i = 1 , pl % nbody if ( allocated ( pl % kin ( i )% child )) deallocate ( pl % kin ( i )% child ) end do pl % nplenc (:) = 0 pl % ntpenc (:) = 0 pl % levelg (:) = 0 pl % levelm (:) = 0 pl % lencounter = . false . pl % lcollision = . false . plplenc_list % nenc = 0 end if if ( tp % nbody > 0 ) then tp % nplenc (:) = 0 tp % levelg (:) = 0 tp % levelm (:) = 0 pltpenc_list % nenc = 0 end if call mergeadd_list % resize ( 0 ) call mergesub_list % resize ( 0 ) end select end select end associate return end subroutine symba_step_reset_system end submodule s_symba_step","tags":"","loc":"sourcefile/symba_step.f90.html"},{"title":"symba_drift.f90 – swiftest","text":"This file depends on sourcefile~~symba_drift.f90~~EfferentGraph sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_drift.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_drift Source Code symba_drift.f90 Source Code submodule ( symba_classes ) s_symba_drift use swiftest contains module subroutine symba_drift_pl ( self , system , param , dt ) !! author: David A. Minton !! !! Wrapper function used to call the body drift routine from a symba_pl structure implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize if ( self % nbody == 0 ) return select type ( system ) class is ( symba_nbody_system ) self % lmask (:) = self % status (:) /= INACTIVE . and . self % levelg (:) == system % irec call helio_drift_body ( self , system , param , dt ) self % lmask (:) = self % status (:) /= INACTIVE end select return end subroutine symba_drift_pl module subroutine symba_drift_tp ( self , system , param , dt ) !! author: David A. Minton !! !! Wrapper function used to call the body drift routine from a symba_pl structure implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize if ( self % nbody == 0 ) return select type ( system ) class is ( symba_nbody_system ) self % lmask (:) = self % status (:) /= INACTIVE . and . self % levelg (:) == system % irec call helio_drift_body ( self , system , param , dt ) self % lmask (:) = self % status (:) /= INACTIVE end select return end subroutine symba_drift_tp end submodule s_symba_drift","tags":"","loc":"sourcefile/symba_drift.f90.html"},{"title":"swiftest_driver.f90 – swiftest","text":"This file depends on sourcefile~~swiftest_driver.f90~~EfferentGraph sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Programs swiftest_driver Source Code swiftest_driver.f90 Source Code program swiftest_driver !! author: David A. Minton !! !! Driver program for the Swiftest integrators. Unlike the earlier Swift and Swifter drivers, in Swiftest all integrators !!    are run from this single program. !! !! Adapted from Swifter by David E. Kaufmann's Swifter driver programs swifter_[bs,helio,ra15,rmvs,symba,tu4,whm].f90 !! Adapted from Hal Levison and Martin Duncan's Swift driver programs use swiftest implicit none class ( swiftest_nbody_system ), allocatable :: nbody_system !! Polymorphic object containing the nbody system to be integrated class ( swiftest_parameters ), allocatable :: param !! Run configuration parameters integer ( I4B ) :: integrator !! Integrator type code (see swiftest_globals for symbolic names) character ( len = :), allocatable :: param_file_name !! Name of the file containing user-defined parameters integer ( I4B ) :: ierr !! I/O error code integer ( I8B ) :: iloop !! Loop counter integer ( I8B ) :: idump !! Dump cadence counter integer ( I8B ) :: iout !! Output cadence counter !integer(I8B), parameter                    :: LOOPMAX = huge(iloop) !! Maximum loop value before resetting integer ( I8B ) :: nloops !! Number of steps to take in the simulation real ( DP ) :: start_wall_time !! Wall clock time at start of execution real ( DP ) :: finish_wall_time !! Wall clock time when execution has finished integer ( I4B ) :: iu !! Unit number of binary file character ( * ), parameter :: statusfmt = '(\"Time = \", ES12.5, \"; fraction done = \", F6.3, \"; ' // & 'Number of active pl, tp = \", I5, \", \", I5)' ierr = io_get_args ( integrator , param_file_name ) if ( ierr /= 0 ) then write ( * , * ) 'Error reading in arguments from the command line' call util_exit ( FAILURE ) end if !$ start_wall_time = omp_get_wtime() !> Read in the user-defined parameters file and the initial conditions of the system select case ( integrator ) case ( symba ) allocate ( symba_parameters :: param ) case default allocate ( swiftest_parameters :: param ) end select param % integrator = integrator call setup_construct_system ( nbody_system , param ) call param % read_from_file ( param_file_name ) associate ( t => param % t , & t0 => param % t0 , & dt => param % dt , & tstop => param % tstop , & istep_out => param % istep_out , & istep_dump => param % istep_dump ) call nbody_system % initialize ( param ) t = t0 iloop = 0 iout = istep_out idump = istep_dump nloops = ceiling ( tstop / dt ) if ( istep_out > 0 ) call nbody_system % write_frame ( iu , param ) !> Define the maximum number of threads nthreads = 1 ! In the *serial* case !$ nthreads = omp_get_max_threads() ! In the *parallel* case !$ write(*,'(a)')   ' OpenMP parameters:' !$ write(*,'(a)')   ' ------------------' !$ write(*,'(a,i3,/)') ' Number of threads  = ', nthreads write ( * , * ) \" *************** Main Loop *************** \" do iloop = 1 , nloops !> Step the system forward in time call nbody_system % step ( param , t , dt ) t = t0 + iloop * dt !> Evaluate any discards or collisional outcomes call nbody_system % discard ( param ) !> If the loop counter is at the output cadence value, append the data file with a single frame if ( istep_out > 0 ) then iout = iout - 1 if ( iout == 0 ) then call nbody_system % write_frame ( iu , param ) iout = istep_out end if end if !> If the loop counter is at the dump cadence value, dump the state of the system to a file in case it needs to be restarted if ( istep_dump > 0 ) then idump = idump - 1 if ( idump == 0 ) then call nbody_system % dump ( param , statusfmt ) idump = istep_dump end if end if !if (t >= tstop) exit end do !> Dump the final state of the system to file !call nbody_system%dump(param, t, dt, statusfmt) !$ finish_wall_time = omp_get_wtime() !$ write(*,*) 'Time: ', finish_wall_time - start_wall_time end associate call util_exit ( SUCCESS ) stop end program swiftest_driver","tags":"","loc":"sourcefile/swiftest_driver.f90.html"},{"title":"rmvs_classes.f90 – swiftest","text":"This file depends on sourcefile~~rmvs_classes.f90~~EfferentGraph sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~rmvs_classes.f90~~AfferentGraph sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~symba_classes.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~symba_classes.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~symba_classes.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~symba_classes.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~symba_classes.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~symba_classes.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~symba_classes.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~symba_classes.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~symba_classes.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules rmvs_classes Source Code rmvs_classes.f90 Source Code module rmvs_classes !! author: David A. Minton !! !! Definition of classes and methods specific to the Regularized Mixed Variable Symplectic (RMVS) integrator !! Partially adapted from David E. Kaufmann's Swifter module: module_rmvs.f90 use swiftest_globals use whm_classes , only : whm_cb , whm_pl , whm_tp , whm_nbody_system implicit none public integer ( I4B ), private , parameter :: NTENC = 10 integer ( I4B ), private , parameter :: NTPHENC = 3 integer ( I4B ), private , parameter :: NTPENC = NTENC * NTPHENC real ( DP ), private , parameter :: RHSCALE = 3.5_DP real ( DP ), private , parameter :: RHPSCALE = 1.0_DP real ( DP ), private , parameter :: FACQDT = 2.0_DP !******************************************************************************************************************************** !  rmvs_nbody_system class definitions and method interfaces !******************************************************************************************************************************** type , extends ( whm_nbody_system ) :: rmvs_nbody_system !> In the RMVS integrator, only test particles are discarded logical :: lplanetocentric = . false . !! Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations real ( DP ) :: rts !! fraction of Hill's sphere radius to use as radius of encounter region real ( DP ), dimension (:,:), allocatable :: vbeg !! Planet velocities at beginning ot step contains !> Replace the abstract procedures with concrete ones procedure :: initialize => rmvs_setup_initialize_system !! Performs RMVS-specific initilization steps, including generating the close encounter planetocentric structures procedure :: step => rmvs_step_system !! Advance the RMVS nbody system forward in time by one step end type rmvs_nbody_system type , private :: rmvs_interp real ( DP ), dimension (:, :), allocatable :: x !! interpolated heliocentric planet position for outer encounter real ( DP ), dimension (:, :), allocatable :: v !! interpolated heliocentric planet velocity for outer encounter real ( DP ), dimension (:, :), allocatable :: aobl !! Encountering planet's oblateness acceleration value real ( DP ), dimension (:, :), allocatable :: atide !! Encountering planet's tidal acceleration value end type rmvs_interp !******************************************************************************************************************************** ! rmvs_cb class definitions and method interfaces !******************************************************************************************************************************* !> RMVS central body particle class type , extends ( whm_cb ) :: rmvs_cb type ( rmvs_interp ), dimension (:), allocatable :: outer !! interpolated heliocentric central body position for outer encounters type ( rmvs_interp ), dimension (:), allocatable :: inner !! interpolated heliocentric central body position for inner encounters logical :: lplanetocentric = . false . !! Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations end type rmvs_cb !******************************************************************************************************************************** !  rmvs_tp class definitions and method interfaces !******************************************************************************************************************************* !! RMVS test particle class type , extends ( whm_tp ) :: rmvs_tp !! Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the !!    component list, such as rmvs_setup_tp and rmvs_util_spill_tp ! encounter steps) logical , dimension (:), allocatable :: lperi !! planetocentric pericenter passage flag (persistent for a full rmvs time step) over a full RMVS time step) integer ( I4B ), dimension (:), allocatable :: plperP !! index of planet associated with pericenter distance peri (persistent over a full RMVS time step) integer ( I4B ), dimension (:), allocatable :: plencP !! index of planet that test particle is encountering (not persistent for a full RMVS time step) ! The following are used to correctly set the oblateness values of the acceleration during an inner encounter with a planet type ( rmvs_cb ) :: cb_heliocentric !! Copy of original central body object passed to close encounter (used for oblateness acceleration during planetocentric encoountters) real ( DP ), dimension (:,:), allocatable :: xheliocentric !! original heliocentric position (used for oblateness calculation during close encounters) integer ( I4B ) :: index !!  inner substep number within current set integer ( I4B ) :: ipleP !!  index value of encountering planet logical :: lplanetocentric = . false . !! Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations contains procedure :: discard => rmvs_discard_tp !! Check to see if test particles should be discarded based on pericenter passage distances with respect to planets encountered procedure :: encounter_check => rmvs_encounter_check_tp !! Checks if any test particles are undergoing a close encounter with a massive body procedure :: accel => rmvs_kick_getacch_tp !! Calculates either the standard or modified version of the acceleration depending if the !!    if the test particle is undergoing a close encounter or not procedure :: setup => rmvs_setup_tp !! Constructor method - Allocates space for the input number of bodiess procedure :: append => rmvs_util_append_tp !! Appends elements from one structure to another procedure :: fill => rmvs_util_fill_tp !! \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure :: resize => rmvs_util_resize_tp !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure :: sort => rmvs_util_sort_tp !! Sorts body arrays by a sortable componen procedure :: rearrange => rmvs_util_sort_rearrange_tp !! Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure :: spill => rmvs_util_spill_tp !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) end type rmvs_tp !******************************************************************************************************************************** !                                    rmvs_pl class definitions and method interfaces !******************************************************************************************************************************* !> RMVS massive body particle class type , extends ( whm_pl ) :: rmvs_pl integer ( I4B ), dimension (:), allocatable :: nenc !! number of test particles encountering planet this full rmvs time step integer ( I4B ), dimension (:), allocatable :: tpenc1P !! index of first test particle encountering planet integer ( I4B ), dimension (:), allocatable :: plind !! Connects the planetocentric indices back to the heliocentric planet list type ( rmvs_interp ), dimension (:), allocatable :: outer !! interpolated heliocentric central body position for outer encounters type ( rmvs_interp ), dimension (:), allocatable :: inner !! interpolated heliocentric central body position for inner encounters class ( rmvs_nbody_system ), dimension (:), allocatable :: planetocentric !! Planetocentric version of the massive body objects (one for each massive body) logical :: lplanetocentric = . false . !! Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations contains procedure :: setup => rmvs_setup_pl !! Constructor method - Allocates space for the input number of bodiess procedure :: append => rmvs_util_append_pl !! Appends elements from one structure to another procedure :: fill => rmvs_util_fill_pl !! \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure :: resize => rmvs_util_resize_pl !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure :: sort => rmvs_util_sort_pl !! Sorts body arrays by a sortable componen procedure :: rearrange => rmvs_util_sort_rearrange_pl !! Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure :: spill => rmvs_util_spill_pl !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) end type rmvs_pl interface module elemental function rmvs_chk_ind ( r2 , v2 , vdotr , dt , r2crit ) result ( lflag ) implicit none real ( DP ), intent ( in ) :: r2 , v2 , vdotr , dt , r2crit logical :: lflag end function rmvs_chk_ind module subroutine rmvs_discard_tp ( self , system , param ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine rmvs_discard_tp module function rmvs_encounter_check_tp ( self , system , dt ) result ( lencounter ) implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( rmvs_nbody_system ), intent ( inout ) :: system !! RMVS nbody system object real ( DP ), intent ( in ) :: dt !! step size logical :: lencounter !! Returns true if there is at least one close encounter end function rmvs_encounter_check_tp module subroutine rmvs_kick_getacch_tp ( self , system , param , t , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest central body particle data structuree class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step end subroutine rmvs_kick_getacch_tp module subroutine rmvs_setup_pl ( self , n , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine rmvs_setup_pl module subroutine rmvs_setup_initialize_system ( self , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( rmvs_nbody_system ), intent ( inout ) :: self !! RMVS system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine rmvs_setup_initialize_system module subroutine rmvs_setup_tp ( self , n , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parametere end subroutine rmvs_setup_tp module subroutine rmvs_util_append_pl ( self , source , lsource_mask ) use swiftest_classes , only : swiftest_body implicit none class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine rmvs_util_append_pl module subroutine rmvs_util_append_tp ( self , source , lsource_mask ) use swiftest_classes , only : swiftest_body implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine rmvs_util_append_tp module subroutine rmvs_util_fill_pl ( self , inserts , lfill_list ) use swiftest_classes , only : swiftest_body implicit none class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object class ( swiftest_body ), intent ( in ) :: inserts !! Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine rmvs_util_fill_pl module subroutine rmvs_util_fill_tp ( self , inserts , lfill_list ) use swiftest_classes , only : swiftest_body implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS massive body object class ( swiftest_body ), intent ( in ) :: inserts !!  Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine rmvs_util_fill_tp module subroutine rmvs_util_resize_pl ( self , nnew ) implicit none class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine rmvs_util_resize_pl module subroutine rmvs_util_resize_tp ( self , nnew ) implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine rmvs_util_resize_tp module subroutine rmvs_util_sort_pl ( self , sortby , ascending ) implicit none class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order end subroutine rmvs_util_sort_pl module subroutine rmvs_util_sort_tp ( self , sortby , ascending ) implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order end subroutine rmvs_util_sort_tp module subroutine rmvs_util_sort_rearrange_pl ( self , ind ) implicit none class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) end subroutine rmvs_util_sort_rearrange_pl module subroutine rmvs_util_sort_rearrange_tp ( self , ind ) implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) end subroutine rmvs_util_sort_rearrange_tp module subroutine rmvs_util_spill_pl ( self , discards , lspill_list , ldestructive ) use swiftest_classes , only : swiftest_body implicit none class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine rmvs_util_spill_pl module subroutine rmvs_util_spill_tp ( self , discards , lspill_list , ldestructive ) use swiftest_classes , only : swiftest_body implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine rmvs_util_spill_tp module subroutine rmvs_step_system ( self , param , t , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( rmvs_nbody_system ), intent ( inout ) :: self !! RMVS nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine rmvs_step_system end interface end module rmvs_classes","tags":"","loc":"sourcefile/rmvs_classes.f90.html"},{"title":"swiftest_globals.f90 – swiftest","text":"Files dependent on this one sourcefile~~swiftest_globals.f90~~AfferentGraph sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~obl.f90->sourcefile~swiftest_classes.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90->sourcefile~whm_classes.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90->sourcefile~whm_classes.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90->sourcefile~helio_classes.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~symba_classes.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~gr.f90->sourcefile~swiftest_classes.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~eucl.f90->sourcefile~swiftest_classes.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~symba_classes.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~symba_classes.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90->sourcefile~helio_classes.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~symba_classes.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90->sourcefile~rmvs_classes.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest_classes.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest_classes.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90->sourcefile~whm_classes.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90->sourcefile~swiftest_classes.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90->sourcefile~whm_classes.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90->sourcefile~swiftest_classes.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~kick.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90->sourcefile~helio_classes.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90->sourcefile~swiftest_classes.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90->sourcefile~swiftest_classes.f90 sourcefile~operator_mag.f90 operator_mag.f90 sourcefile~operator_mag.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90->sourcefile~helio_classes.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90->sourcefile~whm_classes.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90->sourcefile~swiftest_classes.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~drift.f90->sourcefile~swiftest_classes.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90->sourcefile~whm_classes.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~fragmentation.f90->sourcefile~swiftest_classes.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~operator_cross.f90->sourcefile~swiftest_operators.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~symba_classes.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~symba_classes.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90->sourcefile~swiftest_classes.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~symba_classes.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90->sourcefile~swiftest_classes.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90->sourcefile~swiftest_classes.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90->sourcefile~swiftest_classes.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~discard.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90->sourcefile~helio_classes.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90->sourcefile~whm_classes.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest_classes.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~io.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~symba_classes.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~symba_classes.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90->sourcefile~swiftest_classes.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~setup.f90->sourcefile~swiftest_classes.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~rmvs_classes.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules swiftest_globals Source Code swiftest_globals.f90 Source Code module swiftest_globals !! author: David A. Minton !! graph: false !! !! Basic parameters, definitions, and global type definitions used throughout the Swiftest project !! Adapted from David E. Kaufmann's Swifter routine: swiftest_globals.f90 and module_swifter.f90 use , intrinsic :: iso_fortran_env ! Use the intrinsic kind definitions implicit none public integer , parameter :: I8B = int64 !! Symbolic name for kind types of 8-byte integers integer , parameter :: I4B = int32 !! Symbolic name for kind types of 4-byte integers integer , parameter :: I2B = int16 !! Symbolic name for kind types of 2-byte integers integer , parameter :: I1B = int8 !! Symbolic name for kind types of 1-byte integers integer , parameter :: SP = real32 !! Symbolic name for kind types of single-precision reals integer , parameter :: DP = real64 !! Symbolic name for kind types of double-precision reals integer , parameter :: QP = real128 !! Symbolic name for kind types of quad-precision reals real ( DP ), parameter :: PIBY2 = 1.570796326794896619231321691639751442099_DP !! Definition of /(\\pi / 2 real ( DP ), parameter :: PI = 3.141592653589793238462643383279502884197_DP !! Definition of /(\\pi real ( DP ), parameter :: PI3BY2 = 4.712388980384689857693965074919254326296_DP !! Definition of /(3 \\pi / 2 real ( DP ), parameter :: TWOPI = 6.283185307179586476925286766559005768394_DP !! Definition of 2 \\pi real ( DP ), parameter :: THIRD = 0.333333333333333333333333333333333333333_DP !! Definition of 1 / 3 real ( DP ), parameter :: DEGRAD = 18 0.0_DP / PI !! Definition of conversion factor from degrees to radians integer ( I4B ), parameter :: LOWERCASE_BEGIN = iachar ( 'a' ) !! ASCII character set parameter for lower to upper conversion - start of lowercase integer ( I4B ), parameter :: LOWERCASE_END = iachar ( 'z' ) !! ASCII character set parameter for lower to upper conversion - end of lowercase integer ( I4B ), parameter :: UPPERCASE_OFFSET = iachar ( 'A' ) - iachar ( 'a' ) !! ASCII character set parameter for lower to upper conversion - offset between upper and lower real ( SP ), parameter :: VERSION_NUMBER = 0.1_SP !! swiftest version !> Symbolic name for integrator types integer ( I4B ), parameter :: UNKNOWN_INTEGRATOR = 1 integer ( I4B ), parameter :: BS = 2 integer ( I4B ), parameter :: HELIO = 3 integer ( I4B ), parameter :: RA15 = 4 integer ( I4B ), parameter :: TU4 = 5 integer ( I4B ), parameter :: WHM = 6 integer ( I4B ), parameter :: RMVS = 7 integer ( I4B ), parameter :: SYMBA = 8 integer ( I4B ), parameter :: RINGMOONS = 9 integer ( I4B ), parameter :: STRMAX = 128 !! Maximum size of character strings character ( * ), parameter :: ASCII_TYPE = 'ASCII' !! Symbolic name for ASCII file type character ( * ), parameter :: REAL4_TYPE = 'REAL4' !! Symbolic name for binary file type REAL4 character ( * ), parameter :: REAL8_TYPE = 'REAL8' !! Symbolic name for binary file type REAL8 character ( * ), parameter :: SWIFTER_REAL4_TYPE = 'SWIFTER4' !! Symbolic name for binary file type for the old style Swifter REAL4 character ( * ), parameter :: SWIFTER_REAL8_TYPE = 'SWIFTER8' !! Symbolic name for binary file type for the old style Swifter REAL8 character ( * ), parameter :: EL = 'EL' !! Symbolic name for binary output file contents for orbital element type character ( * ), parameter :: XV = 'XV' !! Symbolic name for binary output file contents for cartesian position and velocity type ! OpenMP Parameters integer ( I4B ) :: nthreads = 1 !! Number of OpenMP threads integer ( I4B ), parameter :: NTHERSHOLD = 1000 !! Threshold value for OpenMP loop parallelization integer ( I4B ), parameter :: SUCCESS = 0 !! Symbolic name for function return/flag code for success integer ( I4B ), parameter :: FAILURE = - 1 !! Symbolic name for function return/flag code for failure integer ( I4B ), parameter :: USAGE = - 2 !! Symbolic name for function return/flag code for printing the usage message integer ( I4B ), parameter :: HELP = - 3 !! Symbolic name for function return/flag code for printing the usage message character ( * ), parameter :: SUCCESS_MSG = '(/, \"Normal termination of Swiftest (version \", f3.1, \")\")' character ( * ), parameter :: FAIL_MSG = '(/, \"Terminating Swiftest (version \", f3.1, \") due to error!!\")' character ( * ), parameter :: USAGE_MSG = '(\"Usage: swiftest [bs|helio|ra15|rmvs|symba|tu4|whm] <paramfile>\")' character ( * ), parameter :: HELP_MSG = USAGE_MSG integer ( I4B ), parameter :: ELLIPSE = - 1 !! Symbolic names for orbit types - ellipse integer ( I4B ), parameter :: PARABOLA = 0 !! Symbolic names for orbit types - parabola integer ( I4B ), parameter :: HYPERBOLA = 1 !! Symbolic names for orbit types - hyperbola !> Symbolic names for body/particle status codes: integer ( I4B ), parameter :: ACTIVE = 0 integer ( I4B ), parameter :: INACTIVE = 1 integer ( I4B ), parameter :: DISCARDED_RMAX = - 1 integer ( I4B ), parameter :: DISCARDED_RMIN = - 2 integer ( I4B ), parameter :: DISCARDED_RMAXU = - 3 integer ( I4B ), parameter :: DISCARDED_PERI = - 4 integer ( I4B ), parameter :: DISCARDED_PLR = - 5 integer ( I4B ), parameter :: DISCARDED_PLQ = - 6 integer ( I4B ), parameter :: DISCARDED_DRIFTERR = - 7 integer ( I4B ), parameter :: MERGED = - 8 integer ( I4B ), parameter :: DISRUPTION = - 9 integer ( I4B ), parameter :: SUPERCATASTROPHIC = - 10 integer ( I4B ), parameter :: GRAZE_AND_MERGE = - 11 integer ( I4B ), parameter :: HIT_AND_RUN = - 12 integer ( I4B ), parameter :: COLLISION = - 13 !>Symbolic names for collisional outcomes from collresolve_resolve: integer ( I4B ), parameter :: COLLRESOLVE_REGIME_MERGE = 1 integer ( I4B ), parameter :: COLLRESOLVE_REGIME_DISRUPTION = 2 integer ( I4B ), parameter :: COLLRESOLVE_REGIME_SUPERCATASTROPHIC = 3 integer ( I4B ), parameter :: COLLRESOLVE_REGIME_GRAZE_AND_MERGE = 4 integer ( I4B ), parameter :: COLLRESOLVE_REGIME_HIT_AND_RUN = 5 !> String labels for body/particle addition/subtraction in discard file character ( * ), parameter :: ADD = '+1' character ( * ), parameter :: SUB = '-1' !> Standard file names integer ( I4B ), parameter :: NDUMPFILES = 2 character ( * ), dimension ( 2 ), parameter :: DUMP_CB_FILE = [ 'dump_cb1.bin' , 'dump_cb2.bin' ] character ( * ), dimension ( 2 ), parameter :: DUMP_PL_FILE = [ 'dump_pl1.bin' , 'dump_pl2.bin' ] character ( * ), dimension ( 2 ), parameter :: DUMP_TP_FILE = [ 'dump_tp1.bin' , 'dump_tp2.bin' ] character ( * ), dimension ( 2 ), parameter :: DUMP_PARAM_FILE = [ 'dump_param1.dat' , 'dump_param2.dat' ] !> Default file names that can be changed by the user in the parameters file character ( * ), parameter :: ENC_OUTFILE = 'encounter.out' character ( * ), parameter :: DISCARD_FILE = 'discard.out' character ( * ), parameter :: ENERGY_FILE = 'energy.out' character ( * ), parameter :: CB_INFILE = 'cb.in' character ( * ), parameter :: PL_INFILE = 'pl.in' character ( * ), parameter :: TP_INFILE = 'tp.in' character ( * ), parameter :: BIN_OUTFILE = 'bin.dat' integer ( I4B ), parameter :: BINUNIT = 20 !! File unit number for the binary output file !> Miscellaneous constants: integer ( I4B ), parameter :: NDIM = 3 !! Number of dimensions in our reality integer ( I4B ), parameter :: NDIM2 = 2 * NDIM !! 2x the number of dimensions real ( DP ), parameter :: VSMALL = 2 * epsilon ( 1._DP ) !! Very small number used to prevent floating underflow real ( DP ), parameter :: GC = 6.6743E-11_DP !! Universal gravitational constant in SI units real ( DP ), parameter :: einsteinC = 29979245 8.0_DP !! Speed of light in SI units end module swiftest_globals","tags":"","loc":"sourcefile/swiftest_globals.f90.html"},{"title":"swiftest_operators.f90 – swiftest","text":"This file depends on sourcefile~~swiftest_operators.f90~~EfferentGraph sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~swiftest_operators.f90~~AfferentGraph sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~operator_mag.f90 operator_mag.f90 sourcefile~operator_mag.f90->sourcefile~swiftest_operators.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules swiftest_operators Source Code swiftest_operators.f90 Source Code module swiftest_operators !! author: David A. Minton !! !! Custom operators, including !!   A .cross. B = Cross product of A(1:3) and B(1:3) !! !! Each operator can also do element-wise computation on arrays of the form .mag. A(1:3, 1:n) use swiftest_globals implicit none public !******************************************************************************************************************************** ! Interfaces for .cross. operator !******************************************************************************************************************************** interface operator (. cross .) module pure function operator_cross_sp ( A , B ) result ( C ) implicit none real ( SP ), dimension (:), intent ( in ) :: A , B real ( SP ), dimension ( 3 ) :: C end function operator_cross_sp module pure function operator_cross_dp ( A , B ) result ( C ) implicit none real ( DP ), dimension (:), intent ( in ) :: A , B real ( DP ), dimension ( 3 ) :: C end function operator_cross_dp module pure function operator_cross_qp ( A , B ) result ( C ) implicit none real ( QP ), dimension (:), intent ( in ) :: A , B real ( QP ), dimension ( 3 ) :: C end function operator_cross_qp module pure function operator_cross_i1b ( A , B ) result ( C ) implicit none integer ( I1B ), dimension (:), intent ( in ) :: A , B integer ( I1B ), dimension ( 3 ) :: C end function operator_cross_i1b module pure function operator_cross_i2b ( A , B ) result ( C ) implicit none integer ( I2B ), dimension (:), intent ( in ) :: A , B integer ( I2B ), dimension ( 3 ) :: C end function operator_cross_i2b module pure function operator_cross_i4b ( A , B ) result ( C ) implicit none integer ( I4B ), dimension (:), intent ( in ) :: A , B integer ( I4B ), dimension ( 3 ) :: C end function operator_cross_i4b module pure function operator_cross_i8b ( A , B ) result ( C ) implicit none integer ( I8B ), dimension (:), intent ( in ) :: A , B integer ( I8B ), dimension ( 3 ) :: C end function operator_cross_i8b module pure function operator_cross_el_sp ( A , B ) result ( C ) implicit none real ( SP ), dimension (:,:), intent ( in ) :: A , B real ( SP ), dimension (:,:), allocatable :: C end function operator_cross_el_sp module pure function operator_cross_el_dp ( A , B ) result ( C ) implicit none real ( DP ), dimension (:,:), intent ( in ) :: A , B real ( DP ), dimension (:,:), allocatable :: C end function operator_cross_el_dp module pure function operator_cross_el_qp ( A , B ) result ( C ) implicit none real ( QP ), dimension (:,:), intent ( in ) :: A , B real ( QP ), dimension (:,:), allocatable :: C end function operator_cross_el_qp module pure function operator_cross_el_i1b ( A , B ) result ( C ) implicit none integer ( I1B ), dimension (:,:), intent ( in ) :: A , B integer ( I1B ), dimension (:,:), allocatable :: C end function operator_cross_el_i1b module pure function operator_cross_el_i2b ( A , B ) result ( C ) implicit none integer ( I2B ), dimension (:,:), intent ( in ) :: A , B integer ( I2B ), dimension (:,:), allocatable :: C end function operator_cross_el_i2b module pure function operator_cross_el_i4b ( A , B ) result ( C ) implicit none integer ( I4B ), dimension (:,:), intent ( in ) :: A , B integer ( I4B ), dimension (:,:), allocatable :: C end function operator_cross_el_i4b module pure function operator_cross_el_i8b ( A , B ) result ( C ) implicit none integer ( I8B ), dimension (:,:), intent ( in ) :: A , B integer ( I8B ), dimension (:,:), allocatable :: C end function operator_cross_el_i8b end interface !******************************************************************************************************************************** ! Interfaces for .mag. operator !******************************************************************************************************************************** interface operator (. mag .) module pure function operator_mag_sp ( A ) result ( B ) implicit none real ( SP ), dimension (:), intent ( in ) :: A real ( SP ) :: B end function operator_mag_sp module pure function operator_mag_dp ( A ) result ( B ) implicit none real ( DP ), dimension (:), intent ( in ) :: A real ( DP ) :: B end function operator_mag_dp module pure function operator_mag_qp ( A ) result ( B ) implicit none real ( QP ), dimension (:), intent ( in ) :: A real ( QP ) :: B end function operator_mag_qp module pure function operator_mag_el_sp ( A ) result ( B ) implicit none real ( SP ), dimension (:,:), intent ( in ) :: A real ( SP ), dimension (:), allocatable :: B end function operator_mag_el_sp module pure function operator_mag_el_dp ( A ) result ( B ) implicit none real ( DP ), dimension (:,:), intent ( in ) :: A real ( DP ), dimension (:), allocatable :: B end function operator_mag_el_dp module pure function operator_mag_el_qp ( A ) result ( B ) implicit none real ( QP ), dimension (:,:), intent ( in ) :: A real ( QP ), dimension (:), allocatable :: B end function operator_mag_el_qp end interface end module swiftest_operators","tags":"","loc":"sourcefile/swiftest_operators.f90.html"},{"title":"helio_classes.f90 – swiftest","text":"This file depends on sourcefile~~helio_classes.f90~~EfferentGraph sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~helio_classes.f90~~AfferentGraph sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~helio_classes.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~helio_classes.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~helio_classes.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~helio_classes.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~symba_classes.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~symba_classes.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~symba_classes.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~symba_classes.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~symba_classes.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~symba_classes.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~symba_classes.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~symba_classes.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~symba_classes.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules helio_classes Source Code helio_classes.f90 Source Code module helio_classes !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Definition of classes and methods specific to the Democratic Heliocentric Method !! Adapted from David E. Kaufmann's Swifter routine: helio.f90 use swiftest_globals use swiftest_classes , only : swiftest_cb , swiftest_pl , swiftest_tp , swiftest_nbody_system use whm_classes , only : whm_nbody_system implicit none public !******************************************************************************************************************************** !  helio_nbody_system class definitions and method interfaces !******************************************************************************************************************************** type , extends ( whm_nbody_system ) :: helio_nbody_system contains procedure :: step => helio_step_system !! Advance the Helio nbody system forward in time by one step end type helio_nbody_system !******************************************************************************************************************************** ! helio_cb class definitions and method interfaces !******************************************************************************************************************************* !> Helio central body particle class type , extends ( swiftest_cb ) :: helio_cb real ( DP ), dimension ( NDIM ) :: ptbeg !! negative barycentric velocity of the central body at the beginning of time step real ( DP ), dimension ( NDIM ) :: ptend !! negative barycentric velocity of the central body at the end of time step contains end type helio_cb !******************************************************************************************************************************** !                                    helio_pl class definitions and method interfaces !******************************************************************************************************************************* !! Helio massive body particle class type , extends ( swiftest_pl ) :: helio_pl contains procedure :: vh2vb => helio_coord_vh2vb_pl !! Convert massive bodies from heliocentric to barycentric coordinates (velocity only) procedure :: vb2vh => helio_coord_vb2vh_pl !! Convert massive bodies from barycentric to heliocentric coordinates (velocity only) procedure :: drift => helio_drift_pl !! Method for Danby drift in Democratic Heliocentric coordinates procedure :: lindrift => helio_drift_linear_pl !! Method for linear drift of massive bodies due to barycentric momentum of Sun procedure :: accel_gr => helio_gr_kick_getacch_pl !! Acceleration term arising from the post-Newtonian correction procedure :: gr_pos_kick => helio_gr_p4_pl !! Position kick due to p**4 term in the post-Newtonian correction procedure :: accel => helio_kick_getacch_pl !! Compute heliocentric accelerations of massive bodies procedure :: kick => helio_kick_vb_pl !! Kicks the barycentric velocities procedure :: step => helio_step_pl !! Steps the body forward one stepsize end type helio_pl !******************************************************************************************************************************** !                                    helio_tp class definitions and method interfaces !******************************************************************************************************************************* !! Helio test particle class type , extends ( swiftest_tp ) :: helio_tp contains procedure :: vh2vb => helio_coord_vh2vb_tp !! Convert test particles from heliocentric to barycentric coordinates (velocity only) procedure :: vb2vh => helio_coord_vb2vh_tp !! Convert test particles from barycentric to heliocentric coordinates (velocity only) procedure :: lindrift => helio_drift_linear_tp !! Method for linear drift of massive bodies due to barycentric momentum of Sun procedure :: drift => helio_drift_tp !! Method for Danby drift in Democratic Heliocentric coordinates procedure :: accel_gr => helio_gr_kick_getacch_tp !! Acceleration term arising from the post-Newtonian correction procedure :: gr_pos_kick => helio_gr_p4_tp !! Position kick due to p**4 term in the post-Newtonian correction procedure :: accel => helio_kick_getacch_tp !! Compute heliocentric accelerations of massive bodies procedure :: kick => helio_kick_vb_tp !! Kicks the barycentric velocities procedure :: step => helio_step_tp !! Steps the body forward one stepsize end type helio_tp interface module subroutine helio_coord_vb2vh_pl ( self , cb ) use swiftest_classes , only : swiftest_cb implicit none class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine helio_coord_vb2vh_pl module subroutine helio_coord_vb2vh_tp ( self , vbcb ) implicit none class ( helio_tp ), intent ( inout ) :: self !! Helio massive body object real ( DP ), dimension (:), intent ( in ) :: vbcb !! Barycentric velocity of the central body end subroutine helio_coord_vb2vh_tp module subroutine helio_coord_vh2vb_pl ( self , cb ) use swiftest_classes , only : swiftest_cb implicit none class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine helio_coord_vh2vb_pl module subroutine helio_coord_vh2vb_tp ( self , vbcb ) implicit none class ( helio_tp ), intent ( inout ) :: self !! Helio massive body object real ( DP ), dimension (:), intent ( in ) :: vbcb !! Barycentric velocity of the central body end subroutine helio_coord_vh2vb_tp module subroutine helio_drift_body ( self , system , param , dt ) use swiftest_classes , only : swiftest_body , swiftest_nbody_system , swiftest_parameters implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine helio_drift_body module subroutine helio_drift_pl ( self , system , param , dt ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine helio_drift_pl module subroutine helio_drift_tp ( self , system , param , dt ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( helio_tp ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine helio_drift_tp module subroutine helio_drift_linear_pl ( self , cb , dt , lbeg ) implicit none class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( helio_cb ), intent ( inout ) :: cb !! Helio central body real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Argument that determines whether or not this is the beginning or end of the step end subroutine helio_drift_linear_pl module subroutine helio_drift_linear_tp ( self , cb , dt , lbeg ) implicit none class ( helio_tp ), intent ( inout ) :: self !! Helio test particle object class ( helio_cb ), intent ( in ) :: cb !! Helio central body real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Argument that determines whether or not this is the beginning or end of the step end subroutine helio_drift_linear_tp module subroutine helio_gr_kick_getacch_pl ( self , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( helio_pl ), intent ( inout ) :: self !! Helio massive body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine helio_gr_kick_getacch_pl module subroutine helio_gr_kick_getacch_tp ( self , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( helio_tp ), intent ( inout ) :: self !! Helio massive body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine helio_gr_kick_getacch_tp module pure subroutine helio_gr_p4_pl ( self , param , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( helio_pl ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Step size end subroutine helio_gr_p4_pl module pure subroutine helio_gr_p4_tp ( self , param , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( helio_tp ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Step size end subroutine helio_gr_p4_tp module subroutine helio_kick_getacch_pl ( self , system , param , t , lbeg ) use swiftest_classes , only : swiftest_parameters , swiftest_nbody_system implicit none class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step end subroutine helio_kick_getacch_pl module subroutine helio_kick_getacch_tp ( self , system , param , t , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( helio_tp ), intent ( inout ) :: self !! Helio test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step end subroutine helio_kick_getacch_tp module subroutine helio_kick_vb_pl ( self , system , param , t , dt , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. end subroutine helio_kick_vb_pl module subroutine helio_kick_vb_tp ( self , system , param , t , dt , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( helio_tp ), intent ( inout ) :: self !! Helio test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. end subroutine helio_kick_vb_tp module subroutine helio_step_pl ( self , system , param , t , dt ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( helio_pl ), intent ( inout ) :: self !! Helio massive body particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nboody system class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine helio_step_pl module subroutine helio_step_system ( self , param , t , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( helio_nbody_system ), intent ( inout ) :: self !! Helio nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine helio_step_system module subroutine helio_step_tp ( self , system , param , t , dt ) use swiftest_classes , only : swiftest_cb , swiftest_parameters , swiftest_nbody_system implicit none class ( helio_tp ), intent ( inout ) :: self !! Helio test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Stepsizee end subroutine helio_step_tp end interface end module helio_classes","tags":"","loc":"sourcefile/helio_classes.f90.html"},{"title":"whm_classes.f90 – swiftest","text":"This file depends on sourcefile~~whm_classes.f90~~EfferentGraph sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~whm_classes.f90~~AfferentGraph sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~whm_classes.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~whm_classes.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~whm_classes.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~whm_classes.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~whm_classes.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~whm_classes.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90->sourcefile~helio_classes.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90->sourcefile~symba_classes.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90->sourcefile~symba_classes.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90->sourcefile~symba_classes.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90->sourcefile~helio_classes.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90->sourcefile~symba_classes.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90->sourcefile~rmvs_classes.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90->sourcefile~rmvs_classes.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90->sourcefile~helio_classes.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90->sourcefile~helio_classes.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90->sourcefile~rmvs_classes.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90->sourcefile~rmvs_classes.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90->sourcefile~symba_classes.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90->sourcefile~symba_classes.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90->sourcefile~rmvs_classes.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90->sourcefile~symba_classes.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90->sourcefile~helio_classes.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90->sourcefile~symba_classes.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90->sourcefile~symba_classes.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~rmvs_classes.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules whm_classes Source Code whm_classes.f90 Source Code module whm_classes !! author: David A. Minton !! !! Definition of classes and methods specific to the Democratic Heliocentric Method !! Partially adapted from David E. Kaufmann's Swifter module: module_whm.f90 use swiftest_globals use swiftest_classes , only : swiftest_cb , swiftest_pl , swiftest_tp , swiftest_nbody_system implicit none public !******************************************************************************************************************************** ! whm_cb class definitions and method interfaces !******************************************************************************************************************************* !> Swiftest central body particle class type , extends ( swiftest_cb ) :: whm_cb contains end type whm_cb !******************************************************************************************************************************** !                                    whm_pl class definitions and method interfaces !******************************************************************************************************************************* !> WHM massive body particle class type , extends ( swiftest_pl ) :: whm_pl real ( DP ), dimension (:), allocatable :: eta !! Jacobi mass real ( DP ), dimension (:,:), allocatable :: xj !! Jacobi position real ( DP ), dimension (:,:), allocatable :: vj !! Jacobi velocity real ( DP ), dimension (:), allocatable :: muj !! Jacobi mu: GMcb * eta(i) / eta(i - 1) real ( DP ), dimension (:), allocatable :: ir3j !! Third term of heliocentric acceleration !! Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the !!    component list, such as whm_setup_pl and whm_util_spill_pl contains procedure :: h2j => whm_coord_h2j_pl !! Convert position and velcoity vectors from heliocentric to Jacobi coordinates procedure :: j2h => whm_coord_j2h_pl !! Convert position and velcoity vectors from Jacobi to helliocentric coordinates procedure :: vh2vj => whm_coord_vh2vj_pl !! Convert velocity vectors from heliocentric to Jacobi coordinates procedure :: drift => whm_drift_pl !! Loop through massive bodies and call Danby drift routine to jacobi coordinates procedure :: accel_gr => whm_gr_kick_getacch_pl !! Acceleration term arising from the post-Newtonian correction procedure :: gr_pos_kick => whm_gr_p4_pl !! Position kick due to p**4 term in the post-Newtonian correction procedure :: accel => whm_kick_getacch_pl !! Compute heliocentric accelerations of massive bodies procedure :: kick => whm_kick_vh_pl !! Kick heliocentric velocities of massive bodies procedure :: append => whm_util_append_pl !! Appends elements from one structure to another procedure :: fill => whm_util_fill_pl !! \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure :: resize => whm_util_resize_pl !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure :: set_ir3 => whm_util_set_ir3j !! Sets both the heliocentric and jacobi inverse radius terms (1/rj**3 and 1/rh**3) procedure :: set_mu => whm_util_set_mu_eta_pl !! Sets the Jacobi mass value for all massive bodies. procedure :: sort => whm_util_sort_pl !! Sort a WHM massive body object in-place. procedure :: rearrange => whm_util_sort_rearrange_pl !! Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure :: spill => whm_util_spill_pl !!\"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure :: setup => whm_setup_pl !! Constructor method - Allocates space for the input number of bodiess procedure :: step => whm_step_pl !! Steps the body forward one stepsize end type whm_pl !******************************************************************************************************************************** !  whm_tp class definitions and method interfaces !******************************************************************************************************************************* !! WHM test particle class type , extends ( swiftest_tp ) :: whm_tp !! Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the !!    component list, such as whm_util_spill_tp contains procedure :: accel_gr => whm_gr_kick_getacch_tp !! Acceleration term arising from the post-Newtonian correction procedure :: gr_pos_kick => whm_gr_p4_tp !! Position kick due to p**4 term in the post-Newtonian correction procedure :: accel => whm_kick_getacch_tp !! Compute heliocentric accelerations of test particles procedure :: kick => whm_kick_vh_tp !! Kick heliocentric velocities of test particles procedure :: step => whm_step_tp !! Steps the particle forward one stepsize end type whm_tp !******************************************************************************************************************************** !  whm_nbody_system class definitions and method interfaces !******************************************************************************************************************************** !> An abstract class for the WHM integrator nbody system type , extends ( swiftest_nbody_system ) :: whm_nbody_system contains !> Replace the abstract procedures with concrete ones procedure :: initialize => whm_setup_initialize_system !! Performs WHM-specific initilization steps, like calculating the Jacobi masses procedure :: step => whm_step_system !! Advance the WHM nbody system forward in time by one step end type whm_nbody_system interface module subroutine whm_coord_h2j_pl ( self , cb ) use swiftest_classes , only : swiftest_cb implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body particle data structuree end subroutine whm_coord_h2j_pl module subroutine whm_coord_j2h_pl ( self , cb ) use swiftest_classes , only : swiftest_cb implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body particle data structuree end subroutine whm_coord_j2h_pl module subroutine whm_coord_vh2vj_pl ( self , cb ) use swiftest_classes , only : swiftest_cb implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body particle data structuree end subroutine whm_coord_vh2vj_pl module subroutine whm_drift_pl ( self , system , param , dt ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! WHM nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine whm_drift_pl !> Get heliocentric accelration of massive bodies module subroutine whm_kick_getacch_pl ( self , system , param , t , lbeg ) use swiftest_classes , only : swiftest_cb , swiftest_parameters implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! WHM nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step end subroutine whm_kick_getacch_pl !> Get heliocentric accelration of the test particle module subroutine whm_kick_getacch_tp ( self , system , param , t , lbeg ) use swiftest_classes , only : swiftest_cb , swiftest_parameters implicit none class ( whm_tp ), intent ( inout ) :: self !! WHM test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! WHM nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step end subroutine whm_kick_getacch_tp module subroutine whm_kick_vh_pl ( self , system , param , t , dt , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. end subroutine whm_kick_vh_pl module subroutine whm_kick_vh_tp ( self , system , param , t , dt , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( whm_tp ), intent ( inout ) :: self !! WHM test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. end subroutine whm_kick_vh_tp module subroutine whm_gr_kick_getacch_pl ( self , param ) use swiftest_classes , only : swiftest_cb , swiftest_parameters implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine whm_gr_kick_getacch_pl module subroutine whm_gr_kick_getacch_tp ( self , param ) use swiftest_classes , only : swiftest_cb , swiftest_parameters implicit none class ( whm_tp ), intent ( inout ) :: self !! WHM test particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine whm_gr_kick_getacch_tp module pure subroutine whm_gr_p4_pl ( self , param , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Step size end subroutine whm_gr_p4_pl module pure subroutine whm_gr_p4_tp ( self , param , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( whm_tp ), intent ( inout ) :: self !! WHM test particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Step size end subroutine whm_gr_p4_tp !> Reads WHM massive body object in from file module subroutine whm_setup_pl ( self , n , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body objectobject integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine whm_setup_pl module subroutine whm_setup_initialize_system ( self , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( whm_nbody_system ), intent ( inout ) :: self !! WHM nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine whm_setup_initialize_system module subroutine whm_step_pl ( self , system , param , t , dt ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine whm_step_pl module subroutine whm_step_system ( self , param , t , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( whm_nbody_system ), intent ( inout ) :: self !! WHM system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine whm_step_system module subroutine whm_step_tp ( self , system , param , t , dt ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( whm_tp ), intent ( inout ) :: self !! WHM test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine whm_step_tp module subroutine whm_util_append_pl ( self , source , lsource_mask ) use swiftest_classes , only : swiftest_body implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine whm_util_append_pl module subroutine whm_util_spill_pl ( self , discards , lspill_list , ldestructive ) use swiftest_classes , only : swiftest_body implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine whm_util_spill_pl module subroutine whm_util_fill_pl ( self , inserts , lfill_list ) use swiftest_classes , only : swiftest_body implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_body ), intent ( in ) :: inserts !! inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine whm_util_fill_pl module subroutine whm_util_resize_pl ( self , nnew ) implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine whm_util_resize_pl module subroutine whm_util_set_ir3j ( self ) implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object end subroutine whm_util_set_ir3j module subroutine whm_util_set_mu_eta_pl ( self , cb ) use swiftest_classes , only : swiftest_cb implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine whm_util_set_mu_eta_pl module subroutine whm_util_sort_pl ( self , sortby , ascending ) implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order end subroutine whm_util_sort_pl module subroutine whm_util_sort_rearrange_pl ( self , ind ) implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) end subroutine whm_util_sort_rearrange_pl end interface end module whm_classes","tags":"","loc":"sourcefile/whm_classes.f90.html"},{"title":"symba_classes.f90 – swiftest","text":"This file depends on sourcefile~~symba_classes.f90~~EfferentGraph sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~symba_classes.f90~~AfferentGraph sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~symba_classes.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~symba_classes.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~symba_classes.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~symba_classes.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~symba_classes.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~symba_classes.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~symba_classes.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~symba_classes.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules symba_classes Source Code symba_classes.f90 Source Code module symba_classes !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Definition of classes and methods specific to the Democratic SyMBAcentric Method !! Adapted from David E. Kaufmann's Swifter routine: helio.f90 use swiftest_globals use swiftest_classes , only : swiftest_parameters , swiftest_base , swiftest_encounter use helio_classes , only : helio_cb , helio_pl , helio_tp , helio_nbody_system use rmvs_classes , only : rmvs_chk_ind implicit none public integer ( I4B ), private , parameter :: NENMAX = 32767 integer ( I4B ), private , parameter :: NTENC = 3 real ( DP ), private , parameter :: RHSCALE = 6.5_DP real ( DP ), private , parameter :: RSHELL = 0.48075_DP character ( * ), parameter :: PARTICLE_OUTFILE = 'particle.dat' integer ( I4B ), parameter :: PARTICLEUNIT = 44 !! File unit number for the binary particle info output file type , extends ( swiftest_parameters ) :: symba_parameters character ( STRMAX ) :: particle_file = PARTICLE_OUTFILE !! Name of output particle information file real ( DP ) :: MTINY = - 1.0_DP !! Smallest mass that is fully gravitating integer ( I4B ), dimension (:), allocatable :: seed !! Random seeds logical :: lfragmentation = . false . !! Do fragmentation modeling instead of simple merger. contains procedure :: reader => symba_io_param_reader procedure :: writer => symba_io_param_writer end type symba_parameters !******************************************************************************************************************************** ! symba_cb class definitions and method interfaces !******************************************************************************************************************************* !> SyMBA central body particle class type , extends ( helio_cb ) :: symba_cb real ( DP ) :: M0 = 0.0_DP !! Initial mass of the central body real ( DP ) :: dM = 0.0_DP !! Change in mass of the central body real ( DP ) :: R0 = 0.0_DP !! Initial radius of the central body real ( DP ) :: dR = 0.0_DP !! Change in the radius of the central body contains end type symba_cb !******************************************************************************************************************************** !                                    symba_particle_info class definitions and method interfaces !******************************************************************************************************************************* !> Class definition for the particle origin information object. This object is used to track time, location, and collisional regime !> of fragments produced in collisional events. type , extends ( swiftest_base ) :: symba_particle_info character ( len = 32 ) :: origin_type !! String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.) real ( DP ) :: origin_time !! The time of the particle's formation real ( DP ), dimension ( NDIM ) :: origin_xh !! The heliocentric distance vector at the time of the particle's formation real ( DP ), dimension ( NDIM ) :: origin_vh !! The heliocentric velocity vector at the time of the particle's formation contains procedure :: dump => symba_io_dump_particle_info !! I/O routine for dumping particle info to file procedure :: initialize => symba_io_initialize_particle_info !! I/O routine for reading in particle info data procedure :: read_frame => symba_io_read_frame_info !! I/O routine for reading in a single frame of particle info procedure :: write_frame => symba_io_write_frame_info !! I/O routine for writing out a single frame of particle info end type symba_particle_info !******************************************************************************************************************************** !                                    symba_kinship class definitions and method interfaces !******************************************************************************************************************************* !> Class definition for the kinship relationships used in bookkeeping multiple collisions bodies in a single time step. type symba_kinship integer ( I4B ) :: parent !! Index of parent particle integer ( I4B ) :: nchild !! number of children in merger list integer ( I4B ), dimension (:), allocatable :: child !! Index of children particles end type symba_kinship !******************************************************************************************************************************** !                                    symba_pl class definitions and method interfaces !******************************************************************************************************************************* !> SyMBA massive body class type , extends ( helio_pl ) :: symba_pl logical , dimension (:), allocatable :: lcollision !! flag indicating whether body has merged with another this time step logical , dimension (:), allocatable :: lencounter !! flag indicating whether body is part of an encounter this time step logical , dimension (:), allocatable :: lmtiny !! flag indicating whether this body is below the MTINY cutoff value integer ( I4B ) :: nplm !! number of bodies above the MTINY limit integer ( I8B ) :: nplplm !! Number of body (all massive)-body (only those above MTINY) comparisons in the flattened upper triangular matrix integer ( I4B ), dimension (:), allocatable :: nplenc !! number of encounters with other planets this time step integer ( I4B ), dimension (:), allocatable :: ntpenc !! number of encounters with test particles this time step integer ( I4B ), dimension (:), allocatable :: levelg !! level at which this body should be moved integer ( I4B ), dimension (:), allocatable :: levelm !! deepest encounter level achieved this time step integer ( I4B ), dimension (:), allocatable :: isperi !! perihelion passage flag real ( DP ), dimension (:), allocatable :: peri !! perihelion distance real ( DP ), dimension (:), allocatable :: atp !! semimajor axis following perihelion passage type ( symba_kinship ), dimension (:), allocatable :: kin !! Array of merger relationship structures that can account for multiple pairwise mergers in a single step type ( symba_particle_info ), dimension (:), allocatable :: info contains procedure :: make_family => symba_collision_make_family_pl !! When a single body is involved in more than one collision in a single step, it becomes part of a family procedure :: discard => symba_discard_pl !! Process massive body discards procedure :: drift => symba_drift_pl !! Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level procedure :: encounter_check => symba_encounter_check_pl !! Checks if massive bodies are going through close encounters with each other procedure :: accel => symba_kick_getacch_pl !! Compute heliocentric accelerations of massive bodies procedure :: setup => symba_setup_pl !! Constructor method - Allocates space for the input number of bodies procedure :: append => symba_util_append_pl !! Appends elements from one structure to another procedure :: fill => symba_util_fill_pl !! \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure :: get_peri => symba_util_peri_pl !! Determine system pericenter passages for massive bodies procedure :: rearray => symba_util_rearray_pl !! Clean up the massive body structures to remove discarded bodies and add new bodies procedure :: resize => symba_util_resize_pl !! Checks the current size of a SyMBA massive body against the requested size and resizes it if it is too small. procedure :: sort => symba_util_sort_pl !! Sorts body arrays by a sortable componen procedure :: rearrange => symba_util_sort_rearrange_pl !! Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure :: spill => symba_util_spill_pl !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) end type symba_pl type , extends ( symba_pl ) :: symba_merger integer ( I4B ), dimension (:), allocatable :: ncomp contains procedure :: append => symba_util_append_merger !! Appends elements from one structure to another procedure :: resize => symba_util_resize_merger !! Checks the current size of a SyMBA merger list against the requested size and resizes it if it is too small. procedure :: setup => symba_setup_merger !! Constructor method - Allocates space for the input number of bodies end type symba_merger !******************************************************************************************************************************** !                                    symba_tp class definitions and method interfaces !******************************************************************************************************************************* !> SyMBA test particle class type , extends ( helio_tp ) :: symba_tp integer ( I4B ), dimension (:), allocatable :: nplenc !! number of encounters with planets this time step integer ( I4B ), dimension (:), allocatable :: levelg !! level at which this particle should be moved integer ( I4B ), dimension (:), allocatable :: levelm !! deepest encounter level achieved this time step contains procedure :: drift => symba_drift_tp !! Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level procedure :: encounter_check => symba_encounter_check_tp !! Checks if any test particles are undergoing a close encounter with a massive body procedure :: accel => symba_kick_getacch_tp !! Compute heliocentric accelerations of test particles procedure :: setup => symba_setup_tp !! Constructor method - Allocates space for the input number of bodies procedure :: append => symba_util_append_tp !! Appends elements from one structure to another procedure :: fill => symba_util_fill_tp !! \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure :: resize => symba_util_resize_tp !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure :: sort => symba_util_sort_tp !! Sorts body arrays by a sortable componen procedure :: rearrange => symba_util_sort_rearrange_tp !! Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure :: spill => symba_util_spill_tp !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) end type symba_tp !******************************************************************************************************************************** !                                    symba_pltpenc class definitions and method interfaces !******************************************************************************************************************************* !> SyMBA class for tracking pl-tp close encounters in a step type , extends ( swiftest_encounter ) :: symba_pltpenc integer ( I4B ), dimension (:), allocatable :: level !! encounter recursion level contains procedure :: collision_check => symba_collision_check_pltpenc !! Checks if a test particle is going to collide with a massive body procedure :: encounter_check => symba_encounter_check_pltpenc !! Checks if massive bodies are going through close encounters with each other procedure :: kick => symba_kick_pltpenc !! Kick barycentric velocities of active test particles within SyMBA recursion procedure :: setup => symba_setup_pltpenc !! A constructor that sets the number of encounters and allocates and initializes all arrays procedure :: spill => symba_util_spill_pltpenc !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) end type symba_pltpenc !******************************************************************************************************************************** !                                    symba_plplenc class definitions and method interfaces !******************************************************************************************************************************* !> SyMBA class for tracking pl-pl close encounters in a step type , extends ( symba_pltpenc ) :: symba_plplenc contains procedure :: scrub_non_collision => symba_collision_encounter_scrub !! Processes the pl-pl encounter list remove only those encounters that led to a collision procedure :: resolve_fragmentations => symba_collision_resolve_fragmentations !! Process list of collisions, determine the collisional regime, and then create fragments procedure :: resolve_mergers => symba_collision_resolve_mergers !! Process list of collisions and merge colliding bodies together end type symba_plplenc !******************************************************************************************************************************** !  symba_nbody_system class definitions and method interfaces !******************************************************************************************************************************** type , extends ( helio_nbody_system ) :: symba_nbody_system class ( symba_merger ), allocatable :: mergeadd_list !! List of added bodies in mergers or collisions class ( symba_merger ), allocatable :: mergesub_list !! List of subtracted bodies in mergers or collisions class ( symba_pltpenc ), allocatable :: pltpenc_list !! List of massive body-test particle encounters in a single step class ( symba_plplenc ), allocatable :: plplenc_list !! List of massive body-massive body encounters in a single step integer ( I4B ) :: irec !! System recursion level contains procedure :: write_discard => symba_io_write_discard !! Write out information about discarded and merged planets and test particles in SyMBA procedure :: initialize => symba_setup_initialize_system !! Performs SyMBA-specific initilization steps procedure :: step => symba_step_system !! Advance the SyMBA nbody system forward in time by one step procedure :: interp => symba_step_interp_system !! Perform an interpolation step on the SymBA nbody system procedure :: set_recur_levels => symba_step_set_recur_levels_system !! Sets recursion levels of bodies and encounter lists to the current system level procedure :: recursive_step => symba_step_recur_system !! Step interacting planets and active test particles ahead in democratic heliocentric coordinates at the current recursion level, if applicable, and descend to the next deeper level if necessary procedure :: reset => symba_step_reset_system !! Resets pl, tp,and encounter structures at the start of a new step end type symba_nbody_system interface module subroutine symba_collision_check_pltpenc ( self , system , param , t , dt , irec ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-tp encounter list object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! current time real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level end subroutine symba_collision_check_pltpenc module subroutine symba_collision_encounter_scrub ( self , system , param ) implicit none class ( symba_plplenc ), intent ( inout ) :: self !! SyMBA pl-pl encounter list class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameterss end subroutine module subroutine symba_collision_make_family_pl ( self , idx ) implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), dimension ( 2 ), intent ( in ) :: idx !! Array holding the indices of the two bodies involved in the collision end subroutine symba_collision_make_family_pl module subroutine symba_collision_resolve_fragmentations ( self , system , param ) implicit none class ( symba_plplenc ), intent ( inout ) :: self !! SyMBA pl-pl encounter list class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions end subroutine symba_collision_resolve_fragmentations module subroutine symba_collision_resolve_mergers ( self , system , param ) implicit none class ( symba_plplenc ), intent ( inout ) :: self !! SyMBA pl-pl encounter list class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions end subroutine symba_collision_resolve_mergers module subroutine symba_discard_pl ( self , system , param ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine symba_discard_pl module subroutine symba_drift_pl ( self , system , param , dt ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( symba_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine symba_drift_pl module subroutine symba_drift_tp ( self , system , param , dt ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( symba_tp ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine symba_drift_tp module pure elemental subroutine symba_encounter_check_one ( xr , yr , zr , vxr , vyr , vzr , rhill1 , rhill2 , dt , irec , lencounter , lvdotr ) implicit none real ( DP ), intent ( in ) :: xr , yr , zr , vxr , vyr , vzr real ( DP ), intent ( in ) :: rhill1 , rhill2 , dt integer ( I4B ), intent ( in ) :: irec logical , intent ( out ) :: lencounter , lvdotr end subroutine symba_encounter_check_one module function symba_encounter_check_pl ( self , system , dt , irec ) result ( lany_encounter ) implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA test particle object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level logical :: lany_encounter !! Returns true if there is at least one close encounter end function symba_encounter_check_pl module function symba_encounter_check_pltpenc ( self , system , dt , irec ) result ( lany_encounter ) implicit none class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-pl encounter list object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level logical :: lany_encounter !! Returns true if there is at least one close encounter end function symba_encounter_check_pltpenc module function symba_encounter_check_tp ( self , system , dt , irec ) result ( lany_encounter ) implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level logical :: lany_encounter !! Returns true if there is at least one close encounter end function symba_encounter_check_tp module function symba_fragmentation_casedisruption ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) result ( status ) implicit none class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension (:), intent ( in ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension (:,:), intent ( inout ) :: x , v , L_spin , Ip !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass , radius !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass_res !! The distribution of fragment mass obtained by the regime calculation real ( DP ), intent ( inout ) :: Qloss !! Energy lost during collisionn integer ( I4B ) :: status !! Status flag assigned to this outcome end function symba_fragmentation_casedisruption module function symba_fragmentation_casehitandrun ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) result ( status ) implicit none class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension (:), intent ( in ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension (:,:), intent ( inout ) :: x , v , L_spin , Ip !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass , radius !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass_res !! The distribution of fragment mass obtained by the regime calculation real ( DP ), intent ( inout ) :: Qloss !! Energy lost during collision integer ( I4B ) :: status !! Status flag assigned to this outcome end function symba_fragmentation_casehitandrun module function symba_fragmentation_casemerge ( system , param , family , x , v , mass , radius , L_spin , Ip ) result ( status ) implicit none class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension (:), intent ( in ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension (:,:), intent ( in ) :: x , v , L_spin , Ip !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( in ) :: mass , radius !! Input values that represent a 2-body equivalent of a possibly 2+ body collisio integer ( I4B ) :: status !! Status flag assigned to this outcome end function symba_fragmentation_casemerge module function symba_fragmentation_casesupercatastrophic ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) result ( status ) implicit none class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension (:), intent ( in ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension (:,:), intent ( inout ) :: x , v , L_spin , Ip !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass , radius !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass_res !! The distribution of fragment mass obtained by the regime calculation real ( DP ), intent ( inout ) :: Qloss !! Energy lost during collision integer ( I4B ) :: status !! Status flag assigned to this outcome end function symba_fragmentation_casesupercatastrophic module subroutine symba_io_write_discard ( self , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine symba_io_write_discard module subroutine symba_io_dump_particle_info ( self , param , msg ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_particle_info ), intent ( inout ) :: self !! Swiftest base object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), optional , intent ( in ) :: msg !! Message to display with dump operation end subroutine symba_io_dump_particle_info module subroutine symba_io_param_reader ( self , unit , iotype , v_list , iostat , iomsg ) implicit none class ( symba_parameters ), intent ( inout ) :: self !! Current run configuration parameters with SyMBA additionss integer , intent ( in ) :: unit !! File unit number character ( len =* ), intent ( in ) :: iotype !! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. !!    If you do not include a char-literal-constant, the iotype argument contains only DT. integer , intent ( in ) :: v_list (:) !! The first element passes the integrator code to the reader integer , intent ( out ) :: iostat !! IO status code character ( len =* ), intent ( inout ) :: iomsg !! Message to pass if iostat /= 0 end subroutine symba_io_param_reader module subroutine symba_io_param_writer ( self , unit , iotype , v_list , iostat , iomsg ) implicit none class ( symba_parameters ), intent ( in ) :: self !! Current run configuration parameters with SyMBA additions integer , intent ( in ) :: unit !! File unit number character ( len =* ), intent ( in ) :: iotype !! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. !!    If you do not include a char-literal-constant, the iotype argument contains only DT. integer , intent ( in ) :: v_list (:) !! Not used in this procedure integer , intent ( out ) :: iostat !! IO status code character ( len =* ), intent ( inout ) :: iomsg !! Message to pass if iostat /= 0 end subroutine symba_io_param_writer module subroutine symba_io_initialize_particle_info ( self , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_particle_info ), intent ( inout ) :: self !! SyMBA particle info object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine symba_io_initialize_particle_info module subroutine symba_io_read_frame_info ( self , iu , param , form , ierr ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_particle_info ), intent ( inout ) :: self !! SyMBA particle info object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), intent ( in ) :: form !! Input format code (\"XV\" or \"EL\") integer ( I4B ), intent ( out ) :: ierr !! Error code end subroutine symba_io_read_frame_info module subroutine symba_kick_getacch_pl ( self , system , param , t , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step end subroutine symba_kick_getacch_pl module subroutine symba_kick_getacch_tp ( self , system , param , t , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step end subroutine symba_kick_getacch_tp module subroutine symba_kick_pltpenc ( self , system , dt , irec , sgn ) implicit none class ( symba_pltpenc ), intent ( in ) :: self !! SyMBA pl-tp encounter list object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level integer ( I4B ), intent ( in ) :: sgn !! sign to be applied to acceleration end subroutine symba_kick_pltpenc module subroutine symba_io_write_frame_info ( self , iu , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_particle_info ), intent ( in ) :: self !! SyMBA particle info object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine symba_io_write_frame_info module subroutine symba_setup_initialize_system ( self , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine symba_setup_initialize_system module subroutine symba_setup_merger ( self , n , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_merger ), intent ( inout ) :: self !! SyMBA merger list object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine symba_setup_merger module subroutine symba_setup_pl ( self , n , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine symba_setup_pl module subroutine symba_setup_pltpenc ( self , n ) implicit none class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-tp encounter structure integer ( I4B ), intent ( in ) :: n !! Number of encounters to allocate space for end subroutine symba_setup_pltpenc module subroutine symba_setup_tp ( self , n , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter end subroutine symba_setup_tp module subroutine symba_step_system ( self , param , t , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine symba_step_system module subroutine symba_step_interp_system ( self , param , t , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine symba_step_interp_system module subroutine symba_step_set_recur_levels_system ( self , ireci ) implicit none class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system objec integer ( I4B ), intent ( in ) :: ireci !! Input recursion level end subroutine symba_step_set_recur_levels_system module recursive subroutine symba_step_recur_system ( self , param , t , ireci ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), value :: t integer ( I4B ), value :: ireci !! input recursion level end subroutine symba_step_recur_system module subroutine symba_step_reset_system ( self ) implicit none class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object end subroutine symba_step_reset_system end interface interface util_append module subroutine symba_util_append_arr_info ( arr , source , lsource_mask ) implicit none type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array type ( symba_particle_info ), dimension (:), allocatable , intent ( in ) :: source !! Array to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine symba_util_append_arr_info module subroutine symba_util_append_arr_kin ( arr , source , lsource_mask ) implicit none type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array type ( symba_kinship ), dimension (:), allocatable , intent ( in ) :: source !! Array to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine symba_util_append_arr_kin end interface interface module subroutine symba_util_append_merger ( self , source , lsource_mask ) use swiftest_classes , only : swiftest_body implicit none class ( symba_merger ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine symba_util_append_merger module subroutine symba_util_append_pl ( self , source , lsource_mask ) use swiftest_classes , only : swiftest_body implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine symba_util_append_pl module subroutine symba_util_append_tp ( self , source , lsource_mask ) use swiftest_classes , only : swiftest_body implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine symba_util_append_tp end interface interface util_fill module subroutine symba_util_fill_arr_info ( keeps , inserts , lfill_list ) implicit none type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( symba_particle_info ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine symba_util_fill_arr_info module subroutine symba_util_fill_arr_kin ( keeps , inserts , lfill_list ) implicit none type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( symba_kinship ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine symba_util_fill_arr_kin end interface interface module subroutine symba_util_fill_pl ( self , inserts , lfill_list ) use swiftest_classes , only : swiftest_body implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_body ), intent ( in ) :: inserts !! Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine symba_util_fill_pl module subroutine symba_util_fill_tp ( self , inserts , lfill_list ) use swiftest_classes , only : swiftest_body implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object class ( swiftest_body ), intent ( in ) :: inserts !! Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine symba_util_fill_tp module subroutine symba_util_peri_pl ( self , system , param ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine symba_util_peri_pl module subroutine symba_util_rearray_pl ( self , system , param ) implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions end subroutine symba_util_rearray_pl end interface interface util_resize module subroutine symba_util_resize_arr_info ( arr , nnew ) implicit none type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size end subroutine symba_util_resize_arr_info module subroutine symba_util_resize_arr_kin ( arr , nnew ) implicit none type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size end subroutine symba_util_resize_arr_kin end interface interface module subroutine symba_util_resize_merger ( self , nnew ) implicit none class ( symba_merger ), intent ( inout ) :: self !! SyMBA merger list object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine symba_util_resize_merger module subroutine symba_util_resize_pl ( self , nnew ) implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine symba_util_resize_pl module subroutine symba_util_resize_tp ( self , nnew ) implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine symba_util_resize_tp module subroutine symba_util_sort_pl ( self , sortby , ascending ) implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order end subroutine symba_util_sort_pl module subroutine symba_util_sort_tp ( self , sortby , ascending ) implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order end subroutine symba_util_sort_tp module subroutine symba_util_sort_rearrange_pl ( self , ind ) implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) end subroutine symba_util_sort_rearrange_pl module subroutine symba_util_sort_rearrange_tp ( self , ind ) implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) end subroutine symba_util_sort_rearrange_tp end interface interface util_spill module subroutine symba_util_spill_arr_info ( keeps , discards , lspill_list , ldestructive ) implicit none type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardss logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine symba_util_spill_arr_info module subroutine symba_util_spill_arr_kin ( keeps , discards , lspill_list , ldestructive ) implicit none type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardss logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine symba_util_spill_arr_kin end interface interface module subroutine symba_util_spill_pl ( self , discards , lspill_list , ldestructive ) use swiftest_classes , only : swiftest_body implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine symba_util_spill_pl module subroutine symba_util_spill_pltpenc ( self , discards , lspill_list , ldestructive ) use swiftest_classes , only : swiftest_encounter implicit none class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-tp encounter list class ( swiftest_encounter ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list end subroutine symba_util_spill_pltpenc module subroutine symba_util_spill_tp ( self , discards , lspill_list , ldestructive ) use swiftest_classes , only : swiftest_body implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine symba_util_spill_tp end interface end module symba_classes","tags":"","loc":"sourcefile/symba_classes.f90.html"},{"title":"swiftest.f90 – swiftest","text":"This file depends on sourcefile~~swiftest.f90~~EfferentGraph sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~swiftest.f90~~AfferentGraph sourcefile~swiftest.f90 swiftest.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules swiftest Source Code swiftest.f90 Source Code module swiftest !! author: David A. Minton !! graph: false !! !! This module serves to combine all of the Swiftest project modules under a single umbrella so that they can be accessed from individual submodule implementations with a simple \"use swiftest\" line. use swiftest_globals use swiftest_operators use swiftest_classes use whm_classes use rmvs_classes use helio_classes use symba_classes use lambda_function !use advisor_annotate !$ use omp_lib implicit none public end module swiftest","tags":"","loc":"sourcefile/swiftest.f90.html"},{"title":"swiftest_classes.f90 – swiftest","text":"This file depends on sourcefile~~swiftest_classes.f90~~EfferentGraph sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~swiftest_classes.f90~~AfferentGraph sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest_classes.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest_classes.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest_classes.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest_classes.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest_classes.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest_classes.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest_classes.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest_classes.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest_classes.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest_classes.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest_classes.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest_classes.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest_classes.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest_classes.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest_classes.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest_classes.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest_classes.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest_classes.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest_classes.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest_classes.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest_classes.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest_classes.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest_classes.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest_classes.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest_classes.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest_classes.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest_classes.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~whm_classes.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~whm_classes.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~helio_classes.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~symba_classes.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~symba_classes.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~symba_classes.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~helio_classes.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~symba_classes.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~whm_classes.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~whm_classes.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~helio_classes.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~helio_classes.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~whm_classes.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~whm_classes.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~symba_classes.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~symba_classes.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~symba_classes.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~helio_classes.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~whm_classes.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~symba_classes.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~symba_classes.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~rmvs_classes.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules swiftest_classes Source Code swiftest_classes.f90 Source Code module swiftest_classes !! author: The Purdue Swiftest Team -  David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Definition of data and structures generic to all integrators. !! Adapted from David E. Kaufmann's Swifter routine: module_swifter.f90 use swiftest_globals implicit none public !******************************************************************************************************************************** ! swiftest_parameters class definitions !******************************************************************************************************************************** !> User defined parameters that are read in from the parameters input file. !>    Each paramter is initialized to a default values. type :: swiftest_parameters integer ( I4B ) :: integrator = UNKNOWN_INTEGRATOR !! Symbolic name of the nbody integrator  used integer ( I4B ) :: nplmax = - 1 !! Maximum allowed number of massive bodies integer ( I4B ) :: ntpmax = - 1 !! Maximum allowed number of test particles real ( DP ) :: t0 = - 1.0_DP !! Integration start time real ( DP ) :: t = - 1.0_DP !! Integration current time real ( DP ) :: tstop = - 1.0_DP !! Integration stop time real ( DP ) :: dt = - 1.0_DP !! Time step character ( STRMAX ) :: incbfile = CB_INFILE !! Name of input file for the central body character ( STRMAX ) :: inplfile = PL_INFILE !! Name of input file for massive bodies character ( STRMAX ) :: intpfile = TP_INFILE !! Name of input file for test particles character ( STRMAX ) :: in_type = ASCII_TYPE !! Format of input data files integer ( I4B ) :: istep_out = - 1 !! Number of time steps between binary outputs character ( STRMAX ) :: outfile = BIN_OUTFILE !! Name of output binary file character ( STRMAX ) :: out_type = REAL8_TYPE !! Binary format of output file character ( STRMAX ) :: out_form = XV !! Data to write to output file character ( STRMAX ) :: out_stat = 'NEW' !! Open status for output binary file integer ( I4B ) :: istep_dump = - 1 !! Number of time steps between dumps real ( DP ) :: rmin = - 1.0_DP !! Minimum heliocentric radius for test particle real ( DP ) :: rmax = - 1.0_DP !! Maximum heliocentric radius for test particle real ( DP ) :: rmaxu = - 1.0_DP !! Maximum unbound heliocentric radius for test particle real ( DP ) :: qmin = - 1.0_DP !! Minimum pericenter distance for test particle character ( STRMAX ) :: qmin_coord = 'HELIO' !! Coordinate frame to use for qmin real ( DP ) :: qmin_alo = - 1.0_DP !! Minimum semimajor axis for qmin real ( DP ) :: qmin_ahi = - 1.0_DP !! Maximum semimajor axis for qmin character ( STRMAX ) :: enc_out = \"\" !! Name of output file for encounters character ( STRMAX ) :: discard_out = \"\" !! Name of output file for discards real ( QP ) :: MU2KG = - 1.0_QP !! Converts mass units to grams real ( QP ) :: TU2S = - 1.0_QP !! Converts time units to seconds real ( QP ) :: DU2M = - 1.0_QP !! Converts distance unit to centimeters real ( DP ) :: GU = - 1.0_DP !! Universal gravitational constant in the system units real ( DP ) :: inv_c2 = - 1.0_DP !! Inverse speed of light squared in the system units character ( STRMAX ) :: ennergy_out = \"\" !! Name of output energy and momentum report file ! Logical flags to turn on or off various features of the code logical :: lrhill_present = . false . !! Hill radii are given as an input rather than calculated by the code (can be used to inflate close encounter regions manually) logical :: lextra_force = . false . !! User defined force function turned on logical :: lbig_discard = . false . !! Save big bodies on every discard logical :: lclose = . false . !! Turn on close encounters logical :: lenergy = . false . !! Track the total energy of the system logical :: loblatecb = . false . !! Calculate acceleration from oblate central body (automatically turns true if nonzero J2 is input) logical :: lrotation = . false . !! Include rotation states of big bodies logical :: ltides = . false . !! Include tidal dissipation ! Initial values to pass to the energy report subroutine (usually only used in the case of a restart, otherwise these will be updated with initial conditions values) real ( DP ) :: Eorbit_orig = 0.0_DP !! Initial orbital energy real ( DP ) :: Mtot_orig = 0.0_DP !! Initial system mass real ( DP ) :: Lmag_orig = 0.0_DP !! Initial total angular momentum magnitude real ( DP ), dimension ( NDIM ) :: Ltot_orig = 0.0_DP !! Initial total angular momentum vector real ( DP ), dimension ( NDIM ) :: Lorbit_orig = 0.0_DP !! Initial orbital angular momentum real ( DP ), dimension ( NDIM ) :: Lspin_orig = 0.0_DP !! Initial spin angular momentum vector real ( DP ), dimension ( NDIM ) :: Ltot = 0.0_DP !! System angular momentum vector real ( DP ), dimension ( NDIM ) :: Lescape = 0.0_DP !! Angular momentum of bodies that escaped the system (used for bookeeping) real ( DP ) :: Mescape = 0.0_DP !! Mass of bodies that escaped the system (used for bookeeping) real ( DP ) :: Ecollisions = 0.0_DP !! Energy lost from system due to collisions real ( DP ) :: Euntracked = 0.0_DP !! Energy gained from system due to escaped bodies logical :: lfirstenergy = . true . !! This is the first time computing energe logical :: lfirstkick = . true . !! Initiate the first kick in a symplectic step ! Future features not implemented or in development logical :: lgr = . false . !! Turn on GR logical :: lyarkovsky = . false . !! Turn on Yarkovsky effect logical :: lyorp = . false . !! Turn on YORP effect contains procedure :: reader => io_param_reader procedure :: writer => io_param_writer procedure :: dump => io_dump_param procedure :: read_from_file => io_read_param_in end type swiftest_parameters !******************************************************************************************************************************** ! swiftest_base class definitions and methods !******************************************************************************************************************************** type , abstract :: swiftest_base !! An superclass for a generic Swiftest object logical :: lintegrate = . false . !! Flag indicating that this object should be integrated in the current step contains !! The minimal methods that all systems must have procedure :: dump => io_dump_swiftest procedure ( abstract_initialize ), deferred :: initialize procedure ( abstract_read_frame ), deferred :: read_frame procedure ( abstract_write_frame ), deferred :: write_frame end type swiftest_base !******************************************************************************************************************************** ! swiftest_cb class definitions and methods !******************************************************************************************************************************** !> A concrete lass for the central body in a Swiftest simulation type , abstract , extends ( swiftest_base ) :: swiftest_cb character ( len = STRMAX ) :: name !! Non-unique name integer ( I4B ) :: id = 0 !! External identifier (unique) real ( DP ) :: mass = 0.0_DP !! Central body mass (units MU) real ( DP ) :: Gmass = 0.0_DP !! Central mass gravitational term G * mass (units GU * MU) real ( DP ) :: radius = 0.0_DP !! Central body radius (units DU) real ( DP ) :: density = 1.0_DP !! Central body mass density - calculated internally (units MU / DU**3) real ( DP ) :: j2rp2 = 0.0_DP !! J2*R&#94;2 term for central body real ( DP ) :: j4rp4 = 0.0_DP !! J4*R&#94;2 term for central body real ( DP ), dimension ( NDIM ) :: aobl = 0.0_DP !! Barycentric acceleration due to central body oblatenes real ( DP ), dimension ( NDIM ) :: atide = 0.0_DP !! Barycentric acceleration due to central body oblatenes real ( DP ), dimension ( NDIM ) :: aoblbeg = 0.0_DP !! Barycentric acceleration due to central body oblatenes at beginning of step real ( DP ), dimension ( NDIM ) :: aoblend = 0.0_DP !! Barycentric acceleration due to central body oblatenes at end of step real ( DP ), dimension ( NDIM ) :: atidebeg = 0.0_DP !! Barycentric acceleration due to central body oblatenes at beginning of step real ( DP ), dimension ( NDIM ) :: atideend = 0.0_DP !! Barycentric acceleration due to central body oblatenes at end of step real ( DP ), dimension ( NDIM ) :: xb = 0.0_DP !! Barycentric position (units DU) real ( DP ), dimension ( NDIM ) :: vb = 0.0_DP !! Barycentric velocity (units DU / TU) real ( DP ), dimension ( NDIM ) :: agr = 0.0_DP !! Acceleration due to post-Newtonian correction real ( DP ), dimension ( NDIM ) :: Ip = 0.0_DP !! Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real ( DP ), dimension ( NDIM ) :: rot = 0.0_DP !! Body rotation vector in inertial coordinate frame (units rad / TU) real ( DP ) :: k2 = 0.0_DP !! Tidal Love number real ( DP ) :: Q = 0.0_DP !! Tidal quality factor real ( DP ) :: tlag = 0.0_DP !! Tidal phase lag angle real ( DP ), dimension ( NDIM ) :: L0 = 0.0_DP !! Initial angular momentum of the central body real ( DP ), dimension ( NDIM ) :: dL = 0.0_DP !! Change in angular momentum of the central body contains procedure :: initialize => io_read_cb_in !! I/O routine for reading in central body data procedure :: read_frame => io_read_frame_cb !! I/O routine for reading out a single frame of time-series data for the central body procedure :: write_frame => io_write_frame_cb !! I/O routine for writing out a single frame of time-series data for the central body end type swiftest_cb !******************************************************************************************************************************** ! swiftest_body definitions and methods !******************************************************************************************************************************** !> An abstract class for a generic collection of Swiftest bodies type , abstract , extends ( swiftest_base ) :: swiftest_body !! Superclass that defines the generic elements of a Swiftest particle logical :: lfirst = . true . !! Run the current step as a first integer ( I4B ) :: nbody = 0 !! Number of bodies character ( len = STRMAX ), dimension (:), allocatable :: name !! Non-unique name integer ( I4B ), dimension (:), allocatable :: id !! External identifier (unique) integer ( I4B ), dimension (:), allocatable :: status !! An integrator-specific status indicator logical , dimension (:), allocatable :: ldiscard !! Body should be discarded logical , dimension (:), allocatable :: lmask !! Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real ( DP ), dimension (:), allocatable :: mu !! G * (Mcb + [m]) real ( DP ), dimension (:,:), allocatable :: xh !! Heliocentric position real ( DP ), dimension (:,:), allocatable :: vh !! Heliocentric velocity real ( DP ), dimension (:,:), allocatable :: xb !! Barycentric position real ( DP ), dimension (:,:), allocatable :: vb !! Barycentric velocity real ( DP ), dimension (:,:), allocatable :: ah !! Total heliocentric acceleration real ( DP ), dimension (:,:), allocatable :: aobl !! Barycentric accelerations of bodies due to central body oblatenes real ( DP ), dimension (:,:), allocatable :: atide !! Tanngential component of acceleration of bodies due to tides real ( DP ), dimension (:,:), allocatable :: agr !! Acceleration due to post-Newtonian correction real ( DP ), dimension (:), allocatable :: ir3h !! Inverse heliocentric radius term (1/rh**3) real ( DP ), dimension (:), allocatable :: a !! Semimajor axis (pericentric distance for a parabolic orbit) real ( DP ), dimension (:), allocatable :: e !! Eccentricity real ( DP ), dimension (:), allocatable :: inc !! Inclination real ( DP ), dimension (:), allocatable :: capom !! Longitude of ascending node real ( DP ), dimension (:), allocatable :: omega !! Argument of pericenter real ( DP ), dimension (:), allocatable :: capm !! Mean anomaly !! Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the !!    component list, such as setup_body and util_spill contains procedure ( abstract_discard_body ), deferred :: discard procedure ( abstract_kick_body ), deferred :: kick procedure ( abstract_set_mu ), deferred :: set_mu procedure ( abstract_step_body ), deferred :: step procedure ( abstract_accel ), deferred :: accel ! These are concrete because the implementation is the same for all types of particles procedure :: drift => drift_body !! Loop through bodies and call Danby drift routine on heliocentric variables procedure :: v2pv => gr_vh2pv_body !! Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure :: pv2v => gr_pv2vh_body !! Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure :: initialize => io_read_body_in !! Read in body initial conditions from a file procedure :: read_frame => io_read_frame_body !! I/O routine for writing out a single frame of time-series data for the central body procedure :: write_frame => io_write_frame_body !! I/O routine for writing out a single frame of time-series data for the central body procedure :: accel_obl => obl_acc_body !! Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure :: el2xv => orbel_el2xv_vec !! Convert orbital elements to position and velocity vectors procedure :: xv2el => orbel_xv2el_vec !! Convert position and velocity vectors to orbital  elements procedure :: setup => setup_body !! A constructor that sets the number of bodies and allocates all allocatable arrays procedure :: accel_user => user_kick_getacch_body !! Add user-supplied heliocentric accelerations to planets procedure :: append => util_append_body !! Appends elements from one structure to another procedure :: fill => util_fill_body !! \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure :: resize => util_resize_body !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure :: set_ir3 => util_set_ir3h !! Sets the inverse heliocentric radius term (1/rh**3) procedure :: sort => util_sort_body !! Sorts body arrays by a sortable componen procedure :: rearrange => util_sort_rearrange_body !! Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure :: spill => util_spill_body !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) end type swiftest_body !******************************************************************************************************************************** ! swiftest_pl definitions and methods !******************************************************************************************************************************** !> An abstract class for a generic collection of Swiftest massive bodies type , abstract , extends ( swiftest_body ) :: swiftest_pl !! Superclass that defines the generic elements of a Swiftest particle real ( DP ), dimension (:), allocatable :: mass !! Body mass (units MU) real ( DP ), dimension (:), allocatable :: Gmass !! Mass gravitational term G * mass (units GU * MU) real ( DP ), dimension (:), allocatable :: rhill !! Body mass (units MU) real ( DP ), dimension (:), allocatable :: radius !! Body radius (units DU) real ( DP ), dimension (:,:), allocatable :: xbeg !! Position at beginning of step real ( DP ), dimension (:,:), allocatable :: xend !! Position at end of step real ( DP ), dimension (:,:), allocatable :: vbeg !! Velocity at beginning of step real ( DP ), dimension (:), allocatable :: density !! Body mass density - calculated internally (units MU / DU**3) real ( DP ), dimension (:,:), allocatable :: Ip !! Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real ( DP ), dimension (:,:), allocatable :: rot !! Body rotation vector in inertial coordinate frame (units rad / TU) real ( DP ), dimension (:), allocatable :: k2 !! Tidal Love number real ( DP ), dimension (:), allocatable :: Q !! Tidal quality factor real ( DP ), dimension (:), allocatable :: tlag !! Tidal phase lag integer ( I4B ), dimension (:,:), allocatable :: k_plpl !! Index array used to convert flattened the body-body comparison upper triangular matrix integer ( I8B ) :: nplpl !! Number of body-body comparisons in the flattened upper triangular matrix !! Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the !!    component list, such as setup_pl and util_spill_pl contains ! Massive body-specific concrete methods ! These are concrete because they are the same implemenation for all integrators procedure :: discard => discard_pl !! Placeholder method for discarding massive bodies procedure :: eucl_index => eucl_dist_index_plpl !! Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix procedure :: accel_int => kick_getacch_int_pl !! Compute direct cross (third) term heliocentric accelerations of massive bodies procedure :: accel_obl => obl_acc_pl !! Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure :: setup => setup_pl !! A base constructor that sets the number of bodies and allocates and initializes all arrays procedure :: accel_tides => tides_kick_getacch_pl !! Compute the accelerations of bodies due to tidal interactions with the central body procedure :: append => util_append_pl !! Appends elements from one structure to another procedure :: h2b => util_coord_h2b_pl !! Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) procedure :: b2h => util_coord_b2h_pl !! Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) procedure :: fill => util_fill_pl !! \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure :: resize => util_resize_pl !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure :: set_beg_end => util_set_beg_end_pl !! Sets the beginning and ending positions and velocities of planets. procedure :: set_mu => util_set_mu_pl !! Method used to construct the vectorized form of the central body mass procedure :: set_rhill => util_set_rhill !! Calculates the Hill's radii for each body procedure :: sort => util_sort_pl !! Sorts body arrays by a sortable component procedure :: rearrange => util_sort_rearrange_pl !! Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure :: spill => util_spill_pl !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) end type swiftest_pl !******************************************************************************************************************************** ! swiftest_tp definitions and methods !******************************************************************************************************************************** !> An abstract class for a generic collection of Swiftest test particles type , abstract , extends ( swiftest_body ) :: swiftest_tp !! Superclass that defines the generic elements of a Swiftest test particle integer ( I4B ), dimension (:), allocatable :: isperi !! Perihelion passage flag real ( DP ), dimension (:), allocatable :: peri !! Perihelion distance real ( DP ), dimension (:), allocatable :: atp !! Semimajor axis following perihelion passage !! Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the !!    component list, such as setup_tp and util_spill_tp contains ! Test particle-specific concrete methods ! These are concrete because they are the same implemenation for all integrators procedure :: discard => discard_tp !! Check to see if test particles should be discarded based on their positions relative to the massive bodies procedure :: accel_int => kick_getacch_int_tp !! Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies procedure :: accel_obl => obl_acc_tp !! Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure :: setup => setup_tp !! A base constructor that sets the number of bodies and procedure :: append => util_append_tp !! Appends elements from one structure to another procedure :: h2b => util_coord_h2b_tp !! Convert test particles from heliocentric to barycentric coordinates (position and velocity) procedure :: b2h => util_coord_b2h_tp !! Convert test particles from barycentric to heliocentric coordinates (position and velocity) procedure :: fill => util_fill_tp !! \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure :: get_peri => util_peri_tp !! Determine system pericenter passages for test particles procedure :: resize => util_resize_tp !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure :: set_mu => util_set_mu_tp !! Method used to construct the vectorized form of the central body mass procedure :: sort => util_sort_tp !! Sorts body arrays by a sortable component procedure :: rearrange => util_sort_rearrange_tp !! Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure :: spill => util_spill_tp !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) end type swiftest_tp !******************************************************************************************************************************** ! swiftest_nbody_system class definitions and methods !******************************************************************************************************************************** !> An abstract class for a basic Swiftest nbody system type , abstract , extends ( swiftest_base ) :: swiftest_nbody_system !!  This superclass contains a minimial system of a set of test particles (tp), massive bodies (pl), and a central body (cb) class ( swiftest_cb ), allocatable :: cb !! Central body data structure class ( swiftest_pl ), allocatable :: pl !! Massive body data structure class ( swiftest_tp ), allocatable :: tp !! Test particle data structure class ( swiftest_tp ), allocatable :: tp_discards !! Discarded test particle data structure real ( DP ) :: Gmtot = 0.0_DP !! Total system mass - used for barycentric coordinate conversion real ( DP ) :: ke_orbit = 0.0_DP !! System orbital kinetic energy real ( DP ) :: ke_spin = 0.0_DP !! System spin kinetic energy real ( DP ) :: pe = 0.0_DP !! System potential energy real ( DP ) :: te = 0.0_DP !! System total energy real ( DP ), dimension ( NDIM ) :: Lorbit = 0.0_DP !! System orbital angular momentum vector real ( DP ), dimension ( NDIM ) :: Lspin = 0.0_DP !! System spin angular momentum vector real ( DP ), dimension ( NDIM ) :: Lescape = 0.0_DP !! Angular momentum of bodies that escaped the system (used for bookeeping) real ( DP ) :: Mescape = 0.0_DP !! Mass of bodies that escaped the system (used for bookeeping) real ( DP ) :: Ecollisions = 0.0_DP !! Energy lost from system due to collisions real ( DP ) :: Euntracked = 0.0_DP !! Energy gained from system due to escaped bodies logical :: lbeg !! True if this is the beginning of a step. This is used so that test particle steps can be calculated !!    separately from massive bodies.  Massive body variables are saved at half steps, and passed to !!    the test particles integer ( I4B ) :: maxid = - 1 !! The current maximum particle id number contains !> Each integrator will have its own version of the step procedure ( abstract_step_system ), deferred :: step ! Concrete classes that are common to the basic integrator (only test particles considered for discard) procedure :: discard => discard_system !! Perform a discard step on the system procedure :: conservation_report => io_conservation_report !! Compute energy and momentum and print out the change with time procedure :: dump => io_dump_system !! Dump the state of the system to a file procedure :: read_frame => io_read_frame_system !! Read in a frame of input data from file procedure :: write_discard => io_write_discard !! Write out information about discarded test particles procedure :: write_frame => io_write_frame_system !! Append a frame of output data to file procedure :: initialize => setup_initialize_system !! Initialize the system from input files procedure :: step_spin => tides_step_spin_system !! Steps the spins of the massive & central bodies due to tides. procedure :: set_msys => util_set_msys !! Sets the value of msys from the masses of system bodies. procedure :: get_energy_and_momentum => util_get_energy_momentum_system !! Calculates the total system energy and momentum end type swiftest_nbody_system type :: swiftest_encounter integer ( I4B ) :: nenc !! Total number of encounters logical , dimension (:), allocatable :: lvdotr !! relative vdotr flag integer ( I4B ), dimension (:), allocatable :: status !! status of the interaction integer ( I4B ), dimension (:), allocatable :: index1 !! position of the first body in the encounter integer ( I4B ), dimension (:), allocatable :: index2 !! position of the second body in the encounter real ( DP ), dimension (:,:), allocatable :: x1 !! the position of body 1 in the encounter real ( DP ), dimension (:,:), allocatable :: x2 !! the position of body 2 in the encounter real ( DP ), dimension (:,:), allocatable :: v1 !! the velocity of body 1 in the encounter real ( DP ), dimension (:,:), allocatable :: v2 !! the velocity of body 2 in the encounter contains procedure :: setup => setup_encounter !! A constructor that sets the number of encounters and allocates and initializes all arrays procedure :: copy => util_copy_encounter !! Copies elements from the source encounter list into self. procedure :: spill => util_spill_encounter !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure :: resize => util_resize_encounter !! Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small. end type swiftest_encounter abstract interface subroutine abstract_discard_body ( self , system , param ) import swiftest_body , swiftest_nbody_system , swiftest_parameters class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine abstract_discard_body subroutine abstract_accel ( self , system , param , t , lbeg ) import swiftest_body , swiftest_nbody_system , swiftest_parameters , DP class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time logical , intent ( in ) :: lbeg !! Optional argument that determines whether or not this is the beginning or end of the step end subroutine abstract_accel subroutine abstract_initialize ( self , param ) import swiftest_base , swiftest_parameters class ( swiftest_base ), intent ( inout ) :: self !! Swiftest base object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine abstract_initialize subroutine abstract_kick_body ( self , system , param , t , dt , lbeg ) import swiftest_body , swiftest_nbody_system , swiftest_parameters , DP implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest generic body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system objec class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. end subroutine abstract_kick_body subroutine abstract_read_frame ( self , iu , param , form , ierr ) import DP , I4B , swiftest_base , swiftest_parameters class ( swiftest_base ), intent ( inout ) :: self !! Swiftest base object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), intent ( in ) :: form !! Input format code (\"XV\" or \"EL\") integer ( I4B ), intent ( out ) :: ierr !! Error code end subroutine abstract_read_frame subroutine abstract_set_mu ( self , cb ) import swiftest_body , swiftest_cb class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine abstract_set_mu subroutine abstract_step_body ( self , system , param , t , dt ) import DP , swiftest_body , swiftest_nbody_system , swiftest_parameters implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine abstract_step_body subroutine abstract_step_system ( self , param , t , dt ) import DP , swiftest_nbody_system , swiftest_parameters implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine abstract_step_system subroutine abstract_write_frame ( self , iu , param ) import DP , I4B , swiftest_base , swiftest_parameters class ( swiftest_base ), intent ( in ) :: self !! Swiftest base object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine abstract_write_frame end interface interface module subroutine discard_pl ( self , system , param ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameter end subroutine discard_pl module subroutine discard_system ( self , param ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine discard_system module subroutine discard_tp ( self , system , param ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine discard_tp module pure subroutine drift_all ( mu , x , v , n , param , dt , mask , iflag ) implicit none real ( DP ), dimension (:), intent ( in ) :: mu !! Vector of gravitational constants real ( DP ), dimension (:,:), intent ( inout ) :: x , v !! Position and velocity vectors integer ( I4B ), intent ( in ) :: n !! number of bodies class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize logical , dimension (:), intent ( in ) :: mask !! Logical mask of size self%nbody that determines which bodies to drift. integer ( I4B ), dimension (:), intent ( out ) :: iflag !! Vector of error flags. 0 means no problem end subroutine drift_all module subroutine drift_body ( self , system , param , dt ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine drift_body module pure elemental subroutine drift_one ( mu , px , py , pz , vx , vy , vz , dt , iflag ) implicit none real ( DP ), intent ( in ) :: mu !! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body to drift real ( DP ), intent ( inout ) :: px , py , pz , vx , vy , vz !! Position and velocity of body to drift real ( DP ), intent ( in ) :: dt !! Step size integer ( I4B ), intent ( out ) :: iflag !! iflag : error status flag for Danby drift (0 = OK, nonzero = ERROR) end subroutine drift_one module subroutine eucl_dist_index_plpl ( self ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object end subroutine module subroutine fragmentation_initialize ( system , param , family , x , v , L_spin , Ip , mass , radius , & nfrag , Ip_frag , m_frag , rad_frag , xb_frag , vb_frag , rot_frag , Qloss , lfailure ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: system class ( swiftest_parameters ), intent ( in ) :: param integer ( I4B ), dimension (:), intent ( in ) :: family real ( DP ), dimension (:,:), intent ( inout ) :: x , v , L_spin , Ip real ( DP ), dimension (:), intent ( inout ) :: mass , radius integer ( I4B ), intent ( inout ) :: nfrag real ( DP ), dimension (:), allocatable , intent ( inout ) :: m_frag , rad_frag real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: Ip_frag real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: xb_frag , vb_frag , rot_frag logical , intent ( out ) :: lfailure ! Answers the question: Should this have been a merger instead? real ( DP ), intent ( inout ) :: Qloss end subroutine fragmentation_initialize module subroutine fragmentation_regime ( Mcb , m1 , m2 , rad1 , rad2 , xh1 , xh2 , vb1 , vb2 , den1 , den2 , regime , Mlr , Mslr , mtiny , Qloss ) implicit none integer ( I4B ), intent ( out ) :: regime real ( DP ), intent ( out ) :: Mlr , Mslr real ( DP ), intent ( in ) :: Mcb , m1 , m2 , rad1 , rad2 , den1 , den2 , mtiny real ( DP ), dimension (:), intent ( in ) :: xh1 , xh2 , vb1 , vb2 real ( DP ), intent ( out ) :: Qloss !! The residual energy after the collision end subroutine fragmentation_regime module pure subroutine gr_kick_getaccb_ns_body ( self , system , param ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest generic body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine gr_kick_getaccb_ns_body module subroutine gr_kick_getacch ( mu , x , lmask , n , inv_c2 , agr ) implicit none real ( DP ), dimension (:), intent ( in ) :: mu !! Gravitational constant real ( DP ), dimension (:,:), intent ( in ) :: x !! Position vectors logical , dimension (:), intent ( in ) :: lmask !! Logical mask indicating which bodies to compute integer ( I4B ), intent ( in ) :: n !! Total number of bodies real ( DP ), intent ( in ) :: inv_c2 !! Inverse speed of light squared: 1 / c**2 real ( DP ), dimension (:,:), intent ( out ) :: agr !! Accelerations end subroutine gr_kick_getacch module pure subroutine gr_p4_pos_kick ( param , x , v , dt ) implicit none class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), dimension (:), intent ( inout ) :: x !! Position vector real ( DP ), dimension (:), intent ( in ) :: v !! Velocity vector real ( DP ), intent ( in ) :: dt !! Step size end subroutine gr_p4_pos_kick module pure subroutine gr_pseudovel2vel ( param , mu , xh , pv , vh ) implicit none class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: mu !! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real ( DP ), dimension (:), intent ( in ) :: xh !! Heliocentric position vector real ( DP ), dimension (:), intent ( in ) :: pv !! Pseudovelocity velocity vector - see Saha & Tremain (1994), eq. (32) real ( DP ), dimension (:), intent ( out ) :: vh !! Heliocentric velocity vector end subroutine gr_pseudovel2vel module pure subroutine gr_pv2vh_body ( self , param ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine gr_pv2vh_body module pure subroutine gr_vel2pseudovel ( param , mu , xh , vh , pv ) implicit none class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: mu !! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real ( DP ), dimension (:), intent ( in ) :: xh !! Heliocentric position vector real ( DP ), dimension (:), intent ( in ) :: vh !! Heliocentric velocity vector real ( DP ), dimension (:), intent ( out ) :: pv !! Pseudovelocity vector - see Saha & Tremain (1994), eq. (32) end subroutine gr_vel2pseudovel module pure subroutine gr_vh2pv_body ( self , param ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine gr_vh2pv_body module subroutine io_conservation_report ( self , param , lterminal ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Input colleciton of user-defined parameters logical , intent ( in ) :: lterminal !! Indicates whether to output information to the terminal screen end subroutine io_conservation_report module subroutine io_dump_param ( self , param_file_name ) implicit none class ( swiftest_parameters ), intent ( in ) :: self !! Output collection of parameters character ( len =* ), intent ( in ) :: param_file_name !! Parameter input file name (i.e. param.in) end subroutine io_dump_param module subroutine io_dump_swiftest ( self , param , msg ) implicit none class ( swiftest_base ), intent ( inout ) :: self !! Swiftest base object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), optional , intent ( in ) :: msg !! Message to display with dump operation end subroutine io_dump_swiftest module subroutine io_dump_system ( self , param , msg ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), optional , intent ( in ) :: msg !! Message to display with dump operation end subroutine io_dump_system module function io_get_args ( integrator , param_file_name ) result ( ierr ) implicit none integer ( I4B ) :: integrator !! Symbolic code of the requested integrator character ( len = :), allocatable :: param_file_name !! Name of the input parameters file integer ( I4B ) :: ierr !! I/O error code end function io_get_args module function io_get_token ( buffer , ifirst , ilast , ierr ) result ( token ) implicit none character ( len =* ), intent ( in ) :: buffer !! Input string buffer integer ( I4B ), intent ( inout ) :: ifirst !! Index of the buffer at which to start the search for a token integer ( I4B ), intent ( out ) :: ilast !! Index of the buffer at the end of the returned token integer ( I4B ), intent ( out ) :: ierr !! Error code character ( len = :), allocatable :: token !! Returned token string end function io_get_token module subroutine io_param_reader ( self , unit , iotype , v_list , iostat , iomsg ) implicit none class ( swiftest_parameters ), intent ( inout ) :: self !! Collection of parameters integer ( I4B ), intent ( in ) :: unit !! File unit number character ( len =* ), intent ( in ) :: iotype !! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. !!    If you do not include a char-literal-constant, the iotype argument contains only DT. integer ( I4B ), intent ( in ) :: v_list (:) !! The first element passes the integrator code to the reader integer ( I4B ), intent ( out ) :: iostat !! IO status code character ( len =* ), intent ( inout ) :: iomsg !! Message to pass if iostat /= 0 end subroutine io_param_reader module subroutine io_param_writer ( self , unit , iotype , v_list , iostat , iomsg ) implicit none class ( swiftest_parameters ), intent ( in ) :: self !! Collection of parameters integer ( I4B ), intent ( in ) :: unit !! File unit number character ( len =* ), intent ( in ) :: iotype !! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. !!    If you do not include a char-literal-constant, the iotype argument contains only DT. integer ( I4B ), intent ( in ) :: v_list (:) !! Not used in this procedure integer ( I4B ), intent ( out ) :: iostat !! IO status code character ( len =* ), intent ( inout ) :: iomsg !! Message to pass if iostat /= 0 end subroutine io_param_writer module subroutine io_read_body_in ( self , param ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine io_read_body_in module subroutine io_read_cb_in ( self , param ) implicit none class ( swiftest_cb ), intent ( inout ) :: self !! Swiftest central body object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine io_read_cb_in module subroutine io_read_param_in ( self , param_file_name ) implicit none class ( swiftest_parameters ), intent ( inout ) :: self !! Current run configuration parameters character ( len =* ), intent ( in ) :: param_file_name !! Parameter input file name (i.e. param.in) end subroutine io_read_param_in module subroutine io_read_frame_body ( self , iu , param , form , ierr ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), intent ( in ) :: form !! Input format code (\"XV\" or \"EL\") integer ( I4B ), intent ( out ) :: ierr !! Error code end subroutine io_read_frame_body module subroutine io_read_frame_cb ( self , iu , param , form , ierr ) implicit none class ( swiftest_cb ), intent ( inout ) :: self !! Swiftest central body object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), intent ( in ) :: form !! Input format code (\"XV\" or \"EL\") integer ( I4B ), intent ( out ) :: ierr !! Error code end subroutine io_read_frame_cb module subroutine io_read_frame_system ( self , iu , param , form , ierr ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), intent ( in ) :: form !! Input format code (\"XV\" or \"EL\") integer ( I4B ), intent ( out ) :: ierr !! Error code end subroutine io_read_frame_system module subroutine io_write_discard ( self , param ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine io_write_discard module subroutine io_toupper ( string ) implicit none character ( * ), intent ( inout ) :: string !! String to make upper case end subroutine io_toupper module subroutine io_write_encounter ( t , name1 , name2 , mass1 , mass2 , radius1 , radius2 , & xh1 , xh2 , vh1 , vh2 , enc_out , out_type ) implicit none integer ( I4B ), intent ( in ) :: name1 , name2 real ( DP ), intent ( in ) :: t , mass1 , mass2 , radius1 , radius2 real ( DP ), dimension (:), intent ( in ) :: xh1 , xh2 , vh1 , vh2 character ( * ), intent ( in ) :: enc_out , out_type end subroutine io_write_encounter module subroutine io_write_frame_body ( self , iu , param ) implicit none class ( swiftest_body ), intent ( in ) :: self !! Swiftest body object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine io_write_frame_body module subroutine io_write_frame_cb ( self , iu , param ) implicit none class ( swiftest_cb ), intent ( in ) :: self !! Swiftest central body object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine io_write_frame_cb module subroutine io_write_frame_system ( self , iu , param ) implicit none class ( swiftest_nbody_system ), intent ( in ) :: self !! Swiftest system object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine io_write_frame_system module pure subroutine kick_getacch_int_pl ( self ) implicit none class ( swiftest_pl ), intent ( inout ) :: self end subroutine kick_getacch_int_pl module pure subroutine kick_getacch_int_tp ( self , GMpl , xhp , npl ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle real ( DP ), dimension (:), intent ( in ) :: GMpl !! Massive body masses real ( DP ), dimension (:,:), intent ( in ) :: xhp !! Massive body position vectors integer ( I4B ), intent ( in ) :: npl !! Number of active massive bodies end subroutine kick_getacch_int_tp module subroutine obl_acc_body ( self , system ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object end subroutine obl_acc_body module subroutine obl_acc_pl ( self , system ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object end subroutine obl_acc_pl module subroutine obl_acc_tp ( self , system ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object end subroutine obl_acc_tp module subroutine obl_pot ( npl , Mcb , Mpl , j2rp2 , j4rp4 , xh , irh , oblpot ) implicit none integer ( I4B ), intent ( in ) :: npl real ( DP ), intent ( in ) :: Mcb real ( DP ), dimension (:), intent ( in ) :: Mpl real ( DP ), intent ( in ) :: j2rp2 , j4rp4 real ( DP ), dimension (:), intent ( in ) :: irh real ( DP ), dimension (:, :), intent ( in ) :: xh real ( DP ), intent ( out ) :: oblpot end subroutine obl_pot module subroutine orbel_el2xv_vec ( self , cb ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine orbel_el2xv_vec module pure subroutine orbel_scget ( angle , sx , cx ) implicit none real ( DP ), intent ( in ) :: angle real ( DP ), intent ( out ) :: sx , cx end subroutine orbel_scget module pure subroutine orbel_xv2aeq ( mu , x , v , a , e , q ) implicit none real ( DP ), intent ( in ) :: mu !! Gravitational constant real ( DP ), dimension (:), intent ( in ) :: x !! Position vector real ( DP ), dimension (:), intent ( in ) :: v !! Velocity vector real ( DP ), intent ( out ) :: a !! semimajor axis real ( DP ), intent ( out ) :: e !! eccentricity real ( DP ), intent ( out ) :: q !! periapsis end subroutine orbel_xv2aeq module pure subroutine orbel_xv2aqt ( mu , x , v , a , q , capm , tperi ) implicit none real ( DP ), intent ( in ) :: mu !! Gravitational constant real ( DP ), dimension (:), intent ( in ) :: x !! Position vector real ( DP ), dimension (:), intent ( in ) :: v !! Velocity vector real ( DP ), intent ( out ) :: a !! semimajor axis real ( DP ), intent ( out ) :: q !! periapsis real ( DP ), intent ( out ) :: capm !! mean anomaly real ( DP ), intent ( out ) :: tperi !! time of pericenter passage end subroutine orbel_xv2aqt module subroutine orbel_xv2el_vec ( self , cb ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine orbel_xv2el_vec module subroutine setup_body ( self , n , param ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine setup_body module subroutine setup_construct_system ( system , param ) implicit none class ( swiftest_nbody_system ), allocatable , intent ( inout ) :: system !! Swiftest system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine setup_construct_system module subroutine setup_encounter ( self , n ) implicit none class ( swiftest_encounter ), intent ( inout ) :: self !! Swiftest encounter structure integer ( I4B ), intent ( in ) :: n !! Number of encounters to allocate space for end subroutine setup_encounter module subroutine setup_initialize_system ( self , param ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine setup_initialize_system module subroutine setup_pl ( self , n , param ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine setup_pl module subroutine setup_tp ( self , n , param ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parametersr end subroutine setup_tp module subroutine tides_kick_getacch_pl ( self , system ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object end subroutine tides_kick_getacch_pl module subroutine tides_step_spin_system ( self , param , t , dt ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine tides_step_spin_system module subroutine user_kick_getacch_body ( self , system , param , t , lbeg ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody_system_object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Optional argument that determines whether or not this is the beginning or end of the step end subroutine user_kick_getacch_body end interface interface util_append module subroutine util_append_arr_char_string ( arr , source , lsource_mask ) implicit none character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array character ( len = STRMAX ), dimension (:), allocatable , intent ( in ) :: source !! Array to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine util_append_arr_char_string module subroutine util_append_arr_DP ( arr , source , lsource_mask ) implicit none real ( DP ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array real ( DP ), dimension (:), allocatable , intent ( in ) :: source !! Array to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine util_append_arr_DP module subroutine util_append_arr_DPvec ( arr , source , lsource_mask ) implicit none real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: arr !! Destination array real ( DP ), dimension (:,:), allocatable , intent ( in ) :: source !! Array to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine util_append_arr_DPvec module subroutine util_append_arr_I4B ( arr , source , lsource_mask ) implicit none integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), allocatable , intent ( in ) :: source !! Array to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine util_append_arr_I4B module subroutine util_append_arr_logical ( arr , source , lsource_mask ) implicit none logical , dimension (:), allocatable , intent ( inout ) :: arr !! Destination array logical , dimension (:), allocatable , intent ( in ) :: source !! Array to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine util_append_arr_logical end interface interface module subroutine util_append_body ( self , source , lsource_mask ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine util_append_body module subroutine util_append_pl ( self , source , lsource_mask ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine util_append_pl module subroutine util_append_tp ( self , source , lsource_mask ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine util_append_tp module subroutine util_coord_b2h_pl ( self , cb ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine util_coord_b2h_pl module subroutine util_coord_b2h_tp ( self , cb ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_cb ), intent ( in ) :: cb !! Swiftest central body object end subroutine util_coord_b2h_tp module subroutine util_coord_h2b_pl ( self , cb ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine util_coord_h2b_pl module subroutine util_coord_h2b_tp ( self , cb ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_cb ), intent ( in ) :: cb !! Swiftest central body object end subroutine util_coord_h2b_tp module subroutine util_copy_encounter ( self , source ) implicit none class ( swiftest_encounter ), intent ( inout ) :: self !! Encounter list class ( swiftest_encounter ), intent ( in ) :: source !! Source object to copy into end subroutine util_copy_encounter module subroutine util_exit ( code ) implicit none integer ( I4B ), intent ( in ) :: code !! Failure exit code end subroutine util_exit module subroutine util_fill_body ( self , inserts , lfill_list ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_body ), intent ( in ) :: inserts !! Swiftest body object to be inserted logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine util_fill_body module subroutine util_fill_pl ( self , inserts , lfill_list ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_body ), intent ( in ) :: inserts !! Swiftest body object to be inserted logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine util_fill_pl module subroutine util_fill_tp ( self , inserts , lfill_list ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_body ), intent ( in ) :: inserts !! Swiftest body object to be inserted logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine util_fill_tp end interface interface util_fill module subroutine util_fill_arr_char_string ( keeps , inserts , lfill_list ) implicit none character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep character ( len = STRMAX ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine util_fill_arr_char_string module subroutine util_fill_arr_DP ( keeps , inserts , lfill_list ) implicit none real ( DP ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep real ( DP ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine util_fill_arr_DP module subroutine util_fill_arr_DPvec ( keeps , inserts , lfill_list ) implicit none real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: keeps !! Array of values to keep real ( DP ), dimension (:,:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine util_fill_arr_DPvec module subroutine util_fill_arr_I4B ( keeps , inserts , lfill_list ) implicit none integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep integer ( I4B ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine util_fill_arr_I4B module subroutine util_fill_arr_logical ( keeps , inserts , lfill_list ) implicit none logical , dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep logical , dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine util_fill_arr_logical end interface interface module function util_minimize_bfgs ( f , N , x0 , eps , lerr ) result ( x1 ) use lambda_function implicit none integer ( I4B ), intent ( in ) :: N class ( lambda_obj ), intent ( inout ) :: f real ( DP ), dimension (:), intent ( in ) :: x0 real ( DP ), intent ( in ) :: eps logical , intent ( out ) :: lerr real ( DP ), dimension (:), allocatable :: x1 end function util_minimize_bfgs module subroutine util_peri_tp ( self , system , param ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine util_peri_tp end interface interface util_solve_linear_system module function util_solve_linear_system_d ( A , b , n , lerr ) result ( x ) implicit none integer ( I4B ), intent ( in ) :: n real ( DP ), dimension (:,:), intent ( in ) :: A real ( DP ), dimension (:), intent ( in ) :: b logical , intent ( out ) :: lerr real ( DP ), dimension ( n ) :: x end function util_solve_linear_system_d module function util_solve_linear_system_q ( A , b , n , lerr ) result ( x ) implicit none integer ( I4B ), intent ( in ) :: n real ( QP ), dimension (:,:), intent ( in ) :: A real ( QP ), dimension (:), intent ( in ) :: b logical , intent ( out ) :: lerr real ( QP ), dimension ( n ) :: x end function util_solve_linear_system_q end interface interface module function util_solve_rkf45 ( f , y0in , t1 , dt0 , tol ) result ( y1 ) use lambda_function implicit none class ( lambda_obj ), intent ( inout ) :: f !! lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set real ( DP ), dimension (:), intent ( in ) :: y0in !! Initial value at t=0 real ( DP ), intent ( in ) :: t1 !! Final time real ( DP ), intent ( in ) :: dt0 !! Initial step size guess real ( DP ), intent ( in ) :: tol !! Tolerance on solution real ( DP ), dimension (:), allocatable :: y1 !! Final result end function util_solve_rkf45 end interface interface util_resize module subroutine util_resize_arr_char_string ( arr , nnew ) implicit none character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size end subroutine util_resize_arr_char_string module subroutine util_resize_arr_DP ( arr , nnew ) implicit none real ( DP ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size end subroutine util_resize_arr_DP module subroutine util_resize_arr_DPvec ( arr , nnew ) implicit none real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size end subroutine util_resize_arr_DPvec module subroutine util_resize_arr_I4B ( arr , nnew ) implicit none integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size end subroutine util_resize_arr_I4B module subroutine util_resize_arr_logical ( arr , nnew ) implicit none logical , dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size end subroutine util_resize_arr_logical end interface interface module subroutine util_resize_body ( self , nnew ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine util_resize_body module subroutine util_resize_encounter ( self , nnew ) implicit none class ( swiftest_encounter ), intent ( inout ) :: self !! Swiftest encounter list integer ( I4B ), intent ( in ) :: nnew !! New size of list needed end subroutine util_resize_encounter module subroutine util_resize_pl ( self , nnew ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine util_resize_pl module subroutine util_resize_tp ( self , nnew ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine util_resize_tp module subroutine util_get_energy_momentum_system ( self , param ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine util_get_energy_momentum_system module subroutine util_set_beg_end_pl ( self , xbeg , xend , vbeg ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object real ( DP ), dimension (:,:), intent ( in ), optional :: xbeg !! Position vectors at beginning of step real ( DP ), dimension (:,:), intent ( in ), optional :: xend !! Positions vectors at end of step real ( DP ), dimension (:,:), intent ( in ), optional :: vbeg !! vbeg is an unused variable to keep this method forward compatible with RMVS end subroutine util_set_beg_end_pl module subroutine util_set_ir3h ( self ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object end subroutine util_set_ir3h module subroutine util_set_msys ( self ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object end subroutine util_set_msys module subroutine util_set_mu_pl ( self , cb ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine util_set_mu_pl module subroutine util_set_mu_tp ( self , cb ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine util_set_mu_tp module subroutine util_set_rhill ( self , cb ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine util_set_rhill module subroutine util_set_rhill_approximate ( self , cb ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine util_set_rhill_approximate end interface interface util_sort module subroutine util_sort_i4b ( arr ) implicit none integer ( I4B ), dimension (:), intent ( inout ) :: arr end subroutine util_sort_i4b module subroutine util_sort_index_i4b ( arr , ind ) implicit none integer ( I4B ), dimension (:), intent ( in ) :: arr integer ( I4B ), dimension (:), intent ( out ) :: ind end subroutine util_sort_index_i4b module subroutine util_sort_sp ( arr ) implicit none real ( SP ), dimension (:), intent ( inout ) :: arr end subroutine util_sort_sp module subroutine util_sort_index_sp ( arr , ind ) implicit none real ( SP ), dimension (:), intent ( in ) :: arr integer ( I4B ), dimension (:), intent ( out ) :: ind end subroutine util_sort_index_sp module subroutine util_sort_dp ( arr ) implicit none real ( DP ), dimension (:), intent ( inout ) :: arr end subroutine util_sort_dp module subroutine util_sort_index_dp ( arr , ind ) implicit none real ( DP ), dimension (:), intent ( in ) :: arr integer ( I4B ), dimension (:), intent ( out ) :: ind end subroutine util_sort_index_dp end interface util_sort interface module subroutine util_sort_rearrange_body ( self , ind ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) end subroutine util_sort_rearrange_body module subroutine util_sort_rearrange_pl ( self , ind ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) end subroutine util_sort_rearrange_pl module subroutine util_sort_rearrange_tp ( self , ind ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) end subroutine util_sort_rearrange_tp module subroutine util_sort_body ( self , sortby , ascending ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order end subroutine util_sort_body module subroutine util_sort_pl ( self , sortby , ascending ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order end subroutine util_sort_pl module subroutine util_sort_tp ( self , sortby , ascending ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order end subroutine util_sort_tp end interface interface util_spill module subroutine util_spill_arr_char_string ( keeps , discards , lspill_list , ldestructive ) implicit none character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardss logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine util_spill_arr_char_string module subroutine util_spill_arr_DP ( keeps , discards , lspill_list , ldestructive ) implicit none real ( DP ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep real ( DP ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine util_spill_arr_DP module subroutine util_spill_arr_DPvec ( keeps , discards , lspill_list , ldestructive ) implicit none real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: keeps !! Array of values to keep real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: discards !! Array discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine util_spill_arr_DPvec module subroutine util_spill_arr_I4B ( keeps , discards , lspill_list , ldestructive ) implicit none integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardss logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine util_spill_arr_I4B module subroutine util_spill_arr_logical ( keeps , discards , lspill_list , ldestructive ) implicit none logical , dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep logical , dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardss logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine util_spill_arr_logical end interface interface module subroutine util_spill_body ( self , discards , lspill_list , ldestructive ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine util_spill_body module subroutine util_spill_encounter ( self , discards , lspill_list , ldestructive ) implicit none class ( swiftest_encounter ), intent ( inout ) :: self !! Swiftest encounter list class ( swiftest_encounter ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list end subroutine util_spill_encounter module subroutine util_spill_pl ( self , discards , lspill_list , ldestructive ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine util_spill_pl module subroutine util_spill_tp ( self , discards , lspill_list , ldestructive ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine util_spill_tp module subroutine util_valid ( pl , tp ) implicit none class ( swiftest_pl ), intent ( in ) :: pl class ( swiftest_tp ), intent ( in ) :: tp end subroutine util_valid module subroutine util_version () implicit none end subroutine util_version end interface end module swiftest_classes","tags":"","loc":"sourcefile/swiftest_classes.f90.html"},{"title":"lambda_function.f90 – swiftest","text":"This file depends on sourcefile~~lambda_function.f90~~EfferentGraph sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~lambda_function.f90~~AfferentGraph sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules lambda_function Source Code lambda_function.f90 Source Code module lambda_function !! author: David A. Minton !! !! Defines a class that can enable objects that behave like lambda functions. !! !! To use this class, define a type of either lambda_obj or lambda_obj_err, or extend the lambda_obj class as necessary, such that an interface that matches the function you wish to lambdafy. !! Once defined, the lambda object can evaluate itself by calling the type-bound procedure eval. e.g. f%eval(x) (or f%eval(x, lerr), f%eval(x, [argument list], etc)) !! !! ******************************************************************************************************************************************************************************************** !! Example - Defining a lambda function f(x,rval,ival) where rval and ival are a real and integer argument, respectively. This implementation uses an abstract interface, though this is not !! strictly necessary unless you want to bind more than one function with the same interface. !! ******************************************************************************************************************************************************************************************** !! !! module lambda_new !!    use swiftest ! This will bring in the lambda_function module !!    ! Define types in a module !! !!    type, extends(lambda_obj) :: lambda_obj_ri_args !!       procedure(abstract_lambda_ri_args), pointer, nopass :: lambdaptr_ri_args => null() !!       real(DP)                                            :: rval     !! Real parameter !!       integer(I4B)                                        :: ival     !! Integer paramete !!    contains !!       generic           :: init => lambda_ri_args_init !!       procedure         :: eval => lambda_ri_args_eval !!       procedure, nopass :: lambda_ri_args_init !!       final             :: lambda_ri_args_destroy !!    end type !!    interface lambda_obj !!       module procedure lambda_ri_args_init !!    end interface !! !!    abstract interface !!       function abstract_lambda_ri_args(x, rval, ival) result(y) !!          !Template for the lambda function !!          import DP, I4B !!          real(DP), dimension(:), intent(in) :: x        !! Dependent variable !!          real(DP),               intent(in) :: rval     !! Real parameter !!          integer(I4B),           intent(in) :: ival     !! Integer parameter !!          real(DP)                           :: y        !! Real result !!       end function !!    end interface !! !! contains !!    type(lambda_obj_ri_args) function lambda_ri_args_init(lambda, rval, ival) !!       !! Initializes the lambda function parameters (can be used as a structure constructor) !!       implicit none !!       procedure(abstract_lambda_ri_args)  :: lambda !! The lambda function that will be passed !!       real(DP),     intent(in)            :: rval     !! Real parameter !!       integer(I4B), intent(in)            :: ival     !! Integer parameter !! !!       ! Assign the procedure passed to this function to the procedure pointer !!       lambda_ri_args_init%lambdaptr_ri_args => lambda !! !!       ! Assign the argument values !!       lambda_ri_args_init%rval = rval !!       lambda_ri_args_init%ival = ival !!       return !!    end function lambda_ri_args_init !! !!    function lambda_ri_args_eval(self, x) result(y) !!       !! Defines the evaluation method, allowing the lambda function to be called with a single argument !!       implicit none !!       class(lambda_obj_ri_args),      intent(inout) :: self !!       real(DP), dimension(:),         intent(in) :: x !!       real(DP)                                   :: y !! !!      if (associated(self%lambdaptr_ri_args)) then !!         y = self%lambdaptr_ri_args(x, self%rval, self%ival) !!          self%lastval = y !!          if (allocated(self%lastarg)) deallocate(self%lastarg) !!          allocate(self%lastarg, source=x) !!       else !!          error stop \"Lambda function was not initialized\" !!       end if !!    end function lambda_ri_args_eval !! !!    subroutine lambda_ri_args_destroy(self) !!       !! Finalizer method. Use this as a template for cleaning up the object upon destruction, such as nullifying pointers !!       implicit none !!       type(lambda_obj_ri_args) :: self !!       if (associated(self%lambdaptr_ri_args)) nullify(self%lambdaptr_ri_args) !!    end subroutine lambda_ri_args_destroy !! !!    function example_function(x, rval, ival) result(y) !!       !This is the actual function you are going to use as the lambda function. Its interface must match the abstract interface previously defined !!       implicit none !!       ! Arguments !!       real(DP), dimension(:), intent(in) :: x !!       real(DP),               intent(in) :: rval !!       integer(I4B),           intent(in) :: ival !!       ! Result !!       real(DP)                           :: y !!       ! Internals !!       integer(I4B) :: i, n !!       n = size(x) !!       y = 42._DP * ival !!       do i = 1, n !!          y = y + x(i)**2 !!       end do !!       return !!    end function example_function !! end module lambda_new !! !! program usage !!    use swiftest !!    use lambda_new !!    implicit none !!    type(lambda_obj_ri_args) :: f !!    real(DP) :: sigma_par !!    integer(I4B) :: iwonky, i,j !!    real(DP), dimension(12) :: xarr !! !!    sigma_par = 3.14_DP !!    iwonky = 13 !! !!    f = lambda_obj(example_function, sigma_par, iwonky) !!    do i = 1, 10 !!       xarr(:) = [(j * 0.25_DP / i, j=1, 12)] !!       write(*,*) i,f%eval(xarr) !!    end do !! end program usage !! ******************************************************************************************************************************************************************************************** use swiftest_globals implicit none public type :: lambda_obj !! Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers procedure ( lambda0 ), pointer , nopass :: lambdaptr => null () real ( DP ) :: lastval real ( DP ), dimension (:), allocatable :: lastarg contains generic :: init => lambda_init_0 procedure :: eval => lambda_eval_0 procedure , nopass :: lambda_init_0 final :: lambda_destroy end type type , extends ( lambda_obj ) :: lambda_obj_err !! Extended class for an lambda function object. This object takes allows for the return of a logical error flag during evaluation of the function. procedure ( lambda0err ), pointer , nopass :: lambdaptr_err => null () logical :: lerr contains generic :: init => lambda_init_0_err procedure :: eval => lambda_eval_0_err procedure , nopass :: lambda_init_0_err end type type , extends ( lambda_obj ) :: lambda_obj_tvar !! Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers procedure ( lambda0tvar ), pointer , nopass :: lambdaptr_tvar => null () contains generic :: init => lambda_init_tvar procedure :: evalt => lambda_eval_tvar procedure , nopass :: lambda_init_tvar end type interface lambda_obj module procedure lambda_init_0 module procedure lambda_init_0_err module procedure lambda_init_tvar end interface abstract interface function lambda0 ( x ) result ( y ) ! Template for a 0 argument function import DP real ( DP ), dimension (:), intent ( in ) :: x real ( DP ) :: y end function function lambda0err ( x , lerr ) result ( y ) ! Template for a 0 argument function that returns an error value import DP real ( DP ), dimension (:), intent ( in ) :: x logical , intent ( out ) :: lerr real ( DP ) :: y end function function lambda0tvar ( x , t ) result ( y ) ! Template for a 0 argument function that returns an error value import DP real ( DP ), dimension (:), intent ( in ) :: x real ( DP ), intent ( in ) :: t real ( DP ), dimension (:), allocatable :: y end function end interface contains type ( lambda_obj ) function lambda_init_0 ( lambda ) implicit none ! Arguments procedure ( lambda0 ) :: lambda lambda_init_0 % lambdaptr => lambda return end function lambda_init_0 type ( lambda_obj_err ) function lambda_init_0_err ( lambda , lerr ) implicit none ! Arguments procedure ( lambda0err ) :: lambda logical , intent ( in ) :: lerr lambda_init_0_err % lambdaptr_err => lambda lambda_init_0_err % lerr = lerr return end function lambda_init_0_err type ( lambda_obj_tvar ) function lambda_init_tvar ( lambda , t ) implicit none ! Arguments procedure ( lambda0tvar ) :: lambda real ( DP ), intent ( in ) :: t lambda_init_tvar % lambdaptr_tvar => lambda return end function lambda_init_tvar function lambda_eval_0 ( self , x ) result ( y ) implicit none ! Arguments class ( lambda_obj ), intent ( inout ) :: self real ( DP ), dimension (:), intent ( in ) :: x ! Result real ( DP ) :: y if ( associated ( self % lambdaptr )) then y = self % lambdaptr ( x ) self % lastval = y if ( allocated ( self % lastarg )) deallocate ( self % lastarg ) allocate ( self % lastarg , source = x ) else error stop \"Lambda function was not initialized\" end if end function lambda_eval_0 function lambda_eval_0_err ( self , x ) result ( y ) implicit none ! Arguments class ( lambda_obj_err ), intent ( inout ) :: self real ( DP ), dimension (:), intent ( in ) :: x ! Result real ( DP ) :: y if ( associated ( self % lambdaptr_err )) then y = self % lambdaptr_err ( x , self % lerr ) self % lastval = y if ( allocated ( self % lastarg )) deallocate ( self % lastarg ) allocate ( self % lastarg , source = x ) else error stop \"Lambda function was not initialized\" end if end function lambda_eval_0_err function lambda_eval_tvar ( self , x , t ) result ( y ) implicit none ! Arguments class ( lambda_obj_tvar ), intent ( inout ) :: self real ( DP ), dimension (:), intent ( in ) :: x real ( DP ), intent ( in ) :: t ! Result real ( DP ), dimension (:), allocatable :: y if ( associated ( self % lambdaptr_tvar )) then y = self % lambdaptr_tvar ( x , t ) else error stop \"Lambda function was not initialized\" end if end function lambda_eval_tvar subroutine lambda_destroy ( self ) implicit none type ( lambda_obj ) :: self if ( associated ( self % lambdaptr )) nullify ( self % lambdaptr ) end subroutine lambda_destroy end module lambda_function","tags":"","loc":"sourcefile/lambda_function.f90.html"},{"title":"fragmentation.f90 – swiftest","text":"This file depends on sourcefile~~fragmentation.f90~~EfferentGraph sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~fragmentation.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_fragmentation Source Code fragmentation.f90 Source Code submodule ( swiftest_classes ) s_fragmentation use swiftest contains module subroutine fragmentation_initialize ( system , param , family , x , v , L_spin , Ip , mass , radius , & nfrag , Ip_frag , m_frag , rad_frag , xb_frag , vb_frag , rot_frag , Qloss , lfailure ) !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Initialize the position and velocity of fragments to conserve energy and momentum. use , intrinsic :: ieee_exceptions implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: system class ( swiftest_parameters ), intent ( in ) :: param integer ( I4B ), dimension (:), intent ( in ) :: family real ( DP ), dimension (:,:), intent ( inout ) :: x , v , L_spin , Ip real ( DP ), dimension (:), intent ( inout ) :: mass , radius integer ( I4B ), intent ( inout ) :: nfrag real ( DP ), dimension (:), allocatable , intent ( inout ) :: m_frag , rad_frag real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: Ip_frag real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: xb_frag , vb_frag , rot_frag logical , intent ( out ) :: lfailure ! Answers the question: Should this have been a merger instead? real ( DP ), intent ( inout ) :: Qloss ! Internals real ( DP ) :: mscale , rscale , vscale , tscale , Lscale , Escale ! Scale factors that reduce quantities to O(~1) in the collisional system real ( DP ) :: mtot real ( DP ), dimension ( NDIM ) :: xcom , vcom integer ( I4B ) :: ii logical , dimension (:), allocatable :: lexclude real ( DP ), dimension ( NDIM , 2 ) :: rot , L_orb real ( DP ), dimension (:,:), allocatable :: x_frag , v_frag , v_r_unit , v_t_unit , v_h_unit real ( DP ), dimension (:), allocatable :: rmag , rotmag , v_r_mag , v_t_mag real ( DP ), dimension ( NDIM ) :: Ltot_before real ( DP ), dimension ( NDIM ) :: Ltot_after real ( DP ) :: Etot_before , ke_orbit_before , ke_spin_before , pe_before , Lmag_before real ( DP ) :: Etot_after , ke_orbit_after , ke_spin_after , pe_after , Lmag_after , dEtot , dLmag real ( DP ), dimension ( NDIM ) :: L_frag_tot , L_frag_orb real ( DP ) :: ke_frag_budget , ke_frag_orbit , ke_radial , ke_frag_spin , ke_avg_deficit , ke_avg_deficit_old real ( DP ), dimension ( NDIM ) :: x_col_unit , y_col_unit , z_col_unit character ( len =* ), parameter :: fmtlabel = \"(A14,10(ES11.4,1X,:))\" integer ( I4B ) :: try , subtry integer ( I4B ), parameter :: NFRAG_MIN = 7 !! The minimum allowable number of fragments (set to 6 because that's how many unknowns are needed in the tangential velocity calculation) real ( DP ) :: r_max_start , r_max_start_old , r_max , f_spin real ( DP ), parameter :: Ltol = 10 * epsilon ( 1.0_DP ) real ( DP ), parameter :: Etol = 1e-10_DP integer ( I4B ), parameter :: MAXTRY = 3000 integer ( I4B ), parameter :: TANTRY = 3 logical , dimension ( size ( IEEE_ALL )) :: fpe_halting_modes , fpe_quiet_modes if ( nfrag < NFRAG_MIN ) then write ( * , * ) \"symba_frag_pos needs at least \" , NFRAG_MIN , \" fragments, but only \" , nfrag , \" were given.\" lfailure = . true . return end if call ieee_get_halting_mode ( IEEE_ALL , fpe_halting_modes ) ! Save the current halting modes so we can turn them off temporarily fpe_quiet_modes (:) = . false . call ieee_set_halting_mode ( IEEE_ALL , fpe_quiet_modes ) f_spin = 0.05_DP mscale = 1.0_DP rscale = 1.0_DP vscale = 1.0_DP tscale = 1.0_DP Lscale = 1.0_DP Escale = 1.0_DP associate ( npl => system % pl % nbody , status => system % pl % status ) allocate ( lexclude ( npl )) where ( status ( 1 : npl ) == INACTIVE ) ! Safety check in case one of the included bodies has been previously deactivated lexclude ( 1 : npl ) = . true . elsewhere lexclude ( 1 : npl ) = . false . end where end associate allocate ( x_frag , source = xb_frag ) allocate ( v_frag , source = vb_frag ) call set_scale_factors () call define_coordinate_system () call calculate_system_energy ( linclude_fragments = . false .) r_max_start = norm2 ( x (:, 2 ) - x (:, 1 )) try = 1 lfailure = . false . ke_avg_deficit = 0.0_DP do while ( try < MAXTRY ) lfailure = . false . ke_avg_deficit_old = ke_avg_deficit ke_avg_deficit = 0.0_DP subtry = 1 do call set_fragment_position_vectors () call set_fragment_tan_vel ( lfailure ) ke_avg_deficit = ke_avg_deficit - ke_radial subtry = subtry + 1 if (. not . lfailure . or . subtry == TANTRY ) exit !write(*,*) 'Trying new arrangement' end do ke_avg_deficit = ke_avg_deficit / subtry if ( lfailure ) write ( * , * ) 'Failed to find tangential velocities' if (. not . lfailure ) then call set_fragment_radial_velocities ( lfailure ) if ( lfailure ) write ( * , * ) 'Failed to find radial velocities' if (. not . lfailure ) then call calculate_system_energy ( linclude_fragments = . true .) !write(*,*) 'Qloss : ',Qloss !write(*,*) '-dEtot: ',-dEtot !write(*,*) 'delta : ',abs((dEtot + Qloss)) if (( abs ( dEtot + Qloss ) > Etol ) . or . ( dEtot > 0.0_DP )) then write ( * , * ) 'Failed due to high energy error: ' , dEtot , abs ( dEtot + Qloss ) / Etol lfailure = . true . else if ( abs ( dLmag ) / Lmag_before > Ltol ) then write ( * , * ) 'Failed due to high angular momentum error: ' , dLmag / Lmag_before lfailure = . true . end if end if end if if (. not . lfailure ) exit call restructure_failed_fragments () try = try + 1 end do write ( * , \"(' -------------------------------------------------------------------------------------')\" ) write ( * , \"('  Final diagnostic')\" ) write ( * , \"(' -------------------------------------------------------------------------------------')\" ) if ( lfailure ) then write ( * , * ) \"symba_frag_pos failed after: \" , try , \" tries\" do ii = 1 , nfrag vb_frag (:, ii ) = vcom (:) end do else write ( * , * ) \"symba_frag_pos succeeded after: \" , try , \" tries\" write ( * , \"(' dL_tot should be very small' )\" ) write ( * , fmtlabel ) ' dL_tot      |' , dLmag / Lmag_before write ( * , \"(' dE_tot should be negative and equal to Qloss' )\" ) write ( * , fmtlabel ) ' dE_tot      |' , dEtot / abs ( Etot_before ) write ( * , fmtlabel ) ' Qloss       |' , - Qloss / abs ( Etot_before ) write ( * , fmtlabel ) ' dE - Qloss  |' , ( Etot_after - Etot_before + Qloss ) / abs ( Etot_before ) end if write ( * , \"(' -------------------------------------------------------------------------------------')\" ) call restore_scale_factors () call ieee_set_halting_mode ( IEEE_ALL , fpe_halting_modes ) ! Save the current halting modes so we can turn them off temporarily return contains ! Because of the complexity of this procedure, we have chosen to break it up into a series of nested subroutines. subroutine set_scale_factors () !! author: David A. Minton !! !! Scales dimenional quantities to ~O(1) with respect to the collisional system. This scaling makes it easier for the non-linear minimization !! to converge on a solution implicit none integer ( I4B ) :: i ! Find the center of mass of the collisional system mtot = sum ( mass (:)) xcom (:) = ( mass ( 1 ) * x (:, 1 ) + mass ( 2 ) * x (:, 2 )) / mtot vcom (:) = ( mass ( 1 ) * v (:, 1 ) + mass ( 2 ) * v (:, 2 )) / mtot ! Set scale factors !! Because of the implied G, mass is actually G*mass with units of distance**3 / time**2 Escale = 0.5_DP * ( mass ( 1 ) * dot_product ( v (:, 1 ), v (:, 1 )) + mass ( 2 ) * dot_product ( v (:, 2 ), v (:, 2 ))) rscale = sum ( radius (:)) mscale = sqrt ( Escale * rscale ) vscale = sqrt ( Escale / mscale ) tscale = rscale / vscale Lscale = mscale * rscale * vscale xcom (:) = xcom (:) / rscale vcom (:) = vcom (:) / vscale mtot = mtot / mscale mass = mass / mscale radius = radius / rscale x = x / rscale v = v / vscale L_spin = L_spin / Lscale do i = 1 , 2 rot (:, i ) = L_spin (:, i ) / ( mass ( i ) * radius ( i ) ** 2 * Ip ( 3 , i )) end do m_frag = m_frag / mscale rad_frag = rad_frag / rscale Qloss = Qloss / Escale return end subroutine set_scale_factors subroutine restore_scale_factors () !! author: David A. Minton !! !! Restores dimenional quantities back to the system units implicit none integer ( I4B ) :: i call ieee_set_halting_mode ( IEEE_ALL ,. false .) ! Restore scale factors xcom (:) = xcom (:) * rscale vcom (:) = vcom (:) * vscale mtot = mtot * mscale mass = mass * mscale radius = radius * rscale x = x * rscale v = v * vscale L_spin = L_spin * Lscale do i = 1 , 2 rot (:, i ) = L_spin (:, i ) * ( mass ( i ) * radius ( i ) ** 2 * Ip ( 3 , i )) end do m_frag = m_frag * mscale rad_frag = rad_frag * rscale rot_frag = rot_frag / tscale x_frag = x_frag * rscale v_frag = v_frag * vscale Qloss = Qloss * Escale do i = 1 , nfrag xb_frag (:, i ) = x_frag (:, i ) + xcom (:) vb_frag (:, i ) = v_frag (:, i ) + vcom (:) end do Etot_before = Etot_before * Escale pe_before = pe_before * Escale ke_spin_before = ke_spin_before * Escale ke_orbit_before = ke_orbit_before * Escale Ltot_before = Ltot_before * Lscale Lmag_before = Lmag_before * Lscale Etot_after = Etot_after * Escale pe_after = pe_after * Escale ke_spin_after = ke_spin_after * Escale ke_orbit_after = ke_orbit_after * Escale Ltot_after = Ltot_after * Lscale Lmag_after = Lmag_after * Lscale mscale = 1.0_DP rscale = 1.0_DP vscale = 1.0_DP tscale = 1.0_DP Lscale = 1.0_DP Escale = 1.0_DP return end subroutine restore_scale_factors subroutine define_coordinate_system () !! author: David A. Minton !! !! Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments. implicit none integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: x_cross_v , xc , vc , delta_r , delta_v real ( DP ) :: r_col_norm , v_col_norm allocate ( rmag ( nfrag )) allocate ( rotmag ( nfrag )) allocate ( v_r_mag ( nfrag )) allocate ( v_t_mag ( nfrag )) allocate ( v_r_unit ( NDIM , nfrag )) allocate ( v_t_unit ( NDIM , nfrag )) allocate ( v_h_unit ( NDIM , nfrag )) rmag (:) = 0.0_DP rotmag (:) = 0.0_DP v_r_mag (:) = 0.0_DP v_t_mag (:) = 0.0_DP v_r_unit (:,:) = 0.0_DP v_t_unit (:,:) = 0.0_DP v_h_unit (:,:) = 0.0_DP L_orb (:, :) = 0.0_DP ! Compute orbital angular momentum of pre-impact system do i = 1 , 2 xc (:) = x (:, i ) - xcom (:) vc (:) = v (:, i ) - vcom (:) x_cross_v (:) = xc (:) . cross . vc (:) L_orb (:, i ) = mass ( i ) * x_cross_v (:) end do ! Compute orbital angular momentum of pre-impact system. This will be the normal vector to the collision fragment plane L_frag_tot (:) = L_spin (:, 1 ) + L_spin (:, 2 ) + L_orb (:, 1 ) + L_orb (:, 2 ) delta_v (:) = v (:, 2 ) - v (:, 1 ) v_col_norm = norm2 ( delta_v (:)) delta_r (:) = x (:, 2 ) - x (:, 1 ) r_col_norm = norm2 ( delta_r (:)) ! We will initialize fragments on a plane defined by the pre-impact system, with the z-axis aligned with the angular momentum vector ! and the y-axis aligned with the pre-impact distance vector. y_col_unit (:) = delta_r (:) / r_col_norm z_col_unit (:) = L_frag_tot (:) / norm2 ( L_frag_tot ) ! The cross product of the y- by z-axis will give us the x-axis x_col_unit (:) = y_col_unit (:) . cross . z_col_unit (:) return end subroutine define_coordinate_system subroutine calculate_system_energy ( linclude_fragments ) !! Author: David A. Minton !! !! Calculates total system energy, including all bodies in the pl list that do not have a corresponding value of the lexclude array that is true !! and optionally including fragments. implicit none ! Arguments logical , intent ( in ) :: linclude_fragments ! Internals integer ( I4B ) :: i , npl_new , nplm logical , dimension (:), allocatable :: ltmp logical :: lk_plpl class ( swiftest_nbody_system ), allocatable :: tmpsys ! Because we're making a copy of symba_pl with the excludes/fragments appended, we need to deallocate the ! big k_plpl array and recreate it when we're done, otherwise we run the risk of blowing up the memory by ! allocating two of these ginormous arrays simulteouously. This is not particularly efficient, but as this ! subroutine should be called relatively infrequently, it shouldn't matter too much. !if (allocated(pl%k_plpl)) deallocate(pl%k_plpl) ! Build the internal planet list out of the non-excluded bodies and optionally with fragments appended. This ! will get passed to the energy calculation subroutine so that energy is computed exactly the same way is it ! is in the main program. associate ( pl => system % pl , npl => system % pl % nbody , cb => system % cb ) lk_plpl = allocated ( pl % k_plpl ) if ( lk_plpl ) deallocate ( pl % k_plpl ) if ( linclude_fragments ) then ! Temporarily expand the planet list to feed it into symba_energy lexclude ( family (:)) = . true . npl_new = npl + nfrag else npl_new = npl end if call setup_construct_system ( tmpsys , param ) deallocate ( tmpsys % cb ) allocate ( tmpsys % cb , source = cb ) allocate ( ltmp ( npl )) ltmp (:) = . true . call tmpsys % pl % setup ( npl_new , param ) call tmpsys % pl % fill ( pl , ltmp ) deallocate ( ltmp ) if ( linclude_fragments ) then ! Append the fragments if they are included ! Energy calculation requires the fragments to be in the system barcyentric frame, s tmpsys % pl % mass ( npl + 1 : npl_new ) = m_frag ( 1 : nfrag ) tmpsys % pl % radius ( npl + 1 : npl_new ) = rad_frag ( 1 : nfrag ) tmpsys % pl % xb (:, npl + 1 : npl_new ) = xb_frag (:, 1 : nfrag ) tmpsys % pl % vb (:, npl + 1 : npl_new ) = vb_frag (:, 1 : nfrag ) tmpsys % pl % status ( npl + 1 : npl_new ) = COLLISION if ( param % lrotation ) then tmpsys % pl % Ip (:, npl + 1 : npl_new ) = Ip_frag (:, 1 : nfrag ) tmpsys % pl % rot (:, npl + 1 : npl_new ) = rot_frag (:, 1 : nfrag ) end if call tmpsys % pl % b2h ( tmpsys % cb ) allocate ( ltmp ( npl_new )) ltmp ( 1 : npl ) = lexclude ( 1 : npl ) ltmp ( npl + 1 : npl_new ) = . false . call move_alloc ( ltmp , lexclude ) end if where ( lexclude ( 1 : npl_new )) tmpsys % pl % status ( 1 : npl_new ) = INACTIVE end where select type ( plwksp => tmpsys % pl ) class is ( symba_pl ) select type ( param ) class is ( symba_parameters ) plwksp % nplm = count ( plwksp % Gmass > param % mtiny / mscale ) end select end select call tmpsys % pl % eucl_index () call tmpsys % get_energy_and_momentum ( param ) ! Restore the big array deallocate ( tmpsys % pl % k_plpl ) select type ( pl ) class is ( symba_pl ) select type ( param ) class is ( symba_parameters ) nplm = count ( pl % mass > param % mtiny ) end select end select if ( lk_plpl ) call pl % eucl_index () ! Calculate the current fragment energy and momentum balances if ( linclude_fragments ) then Ltot_after (:) = tmpsys % Lorbit (:) + tmpsys % Lspin (:) Lmag_after = norm2 ( Ltot_after (:)) ke_orbit_after = tmpsys % ke_orbit ke_spin_after = tmpsys % ke_spin pe_after = tmpsys % pe Etot_after = ke_orbit_after + ke_spin_after + pe_after dEtot = Etot_after - Etot_before dLmag = norm2 ( Ltot_after (:) - Ltot_before (:)) else Ltot_before (:) = tmpsys % Lorbit (:) + tmpsys % Lspin (:) Lmag_before = norm2 ( Ltot_before (:)) ke_orbit_before = tmpsys % ke_orbit ke_spin_before = tmpsys % ke_spin pe_before = tmpsys % pe Etot_before = ke_orbit_before + ke_spin_before + pe_before end if end associate return end subroutine calculate_system_energy subroutine shift_vector_to_origin ( m_frag , vec_frag ) !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Adjusts the position or velocity of the fragments as needed to align them with the origin implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: m_frag !! Fragment masses real ( DP ), dimension (:,:), intent ( inout ) :: vec_frag !! Fragment positions or velocities in the center of mass frame ! Internals real ( DP ), dimension ( NDIM ) :: mvec_frag , COM_offset integer ( I4B ) :: i mvec_frag (:) = 0.0_DP do i = 1 , nfrag mvec_frag = mvec_frag (:) + vec_frag (:, i ) * m_frag ( i ) end do COM_offset (:) = - mvec_frag (:) / mtot do i = 1 , nfrag vec_frag (:, i ) = vec_frag (:, i ) + COM_offset (:) end do return end subroutine shift_vector_to_origin subroutine set_fragment_position_vectors () !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Initializes the orbits of the fragments around the center of mass. The fragments are initially placed on a plane defined by the !! pre-impact angular momentum. They are distributed on an ellipse surrounding the center of mass. !! The initial positions do not conserve energy or momentum, so these need to be adjusted later. implicit none real ( DP ) :: dis , rad real ( DP ), dimension ( NDIM ) :: L_sigma logical , dimension (:), allocatable :: loverlap integer ( I4B ) :: i , j allocate ( loverlap ( nfrag )) ! Place the fragments into a region that is big enough that we should usually not have overlapping bodies ! An overlapping bodies will collide in the next time step, so it's not a major problem if they do (it just slows the run down) r_max = r_max_start rad = sum ( radius (:)) ! We will treat the first two fragments of the list as special cases. They get initialized the maximum distances apart along the original impactor distance vector. ! This is done because in a regular disruption, the first body is the largest, the second the second largest, and the rest are smaller equal-mass fragments. call random_number ( x_frag (:, 3 : nfrag )) loverlap (:) = . true . do while ( any ( loverlap ( 3 : nfrag ))) x_frag (:, 1 ) = x (:, 1 ) - xcom (:) x_frag (:, 2 ) = x (:, 2 ) - xcom (:) r_max = r_max + 0.1_DP * rad do i = 3 , nfrag if ( loverlap ( i )) then call random_number ( x_frag (:, i )) x_frag (:, i ) = 2 * ( x_frag (:, i ) - 0.5_DP ) * r_max end if end do loverlap (:) = . false . do j = 1 , nfrag do i = j + 1 , nfrag dis = norm2 ( x_frag (:, j ) - x_frag (:, i )) loverlap ( i ) = loverlap ( i ) . or . ( dis <= ( rad_frag ( i ) + rad_frag ( j ))) end do end do end do call shift_vector_to_origin ( m_frag , x_frag ) do i = 1 , nfrag rmag ( i ) = norm2 ( x_frag (:, i )) v_r_unit (:, i ) = x_frag (:, i ) / rmag ( i ) call random_number ( L_sigma (:)) ! Randomize the tangential velocity direction. This helps to ensure that the tangential velocity doesn't completely line up with the angular momentum vector, ! otherwise we can get an ill-conditioned system v_h_unit (:, i ) = z_col_unit (:) + 2e-1_DP * ( L_sigma (:) - 0.5_DP ) v_h_unit (:, i ) = v_h_unit (:, i ) / norm2 ( v_h_unit (:, i )) v_t_unit (:, i ) = v_h_unit (:, i ) . cross . v_r_unit (:, i ) xb_frag (:, i ) = x_frag (:, i ) + xcom (:) end do return end subroutine set_fragment_position_vectors subroutine set_fragment_tan_vel ( lerr ) !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Adjusts the tangential velocities and spins of a collection of fragments such that they conserve angular momentum without blowing the fragment kinetic energy budget. !! This procedure works in several stages, with a goal to solve the angular and linear momentum constraints on the fragments, while still leaving a positive balance of !! our fragment kinetic energy (ke_frag_budget) that we can put into the radial velocity distribution. !! !! The first thing we'll try to do is solve for the tangential velocities of the first 6 fragments, using angular and linear momentum as constraints and an initial !! tangential velocity distribution for the remaining bodies (if there are any) that distributes their angular momentum equally between them. !! If that doesn't work and we blow our kinetic energy budget, we will attempt to find a tangential velocity distribution that minimizes the kinetic energy while !! conserving momentum. !! !! A failure will trigger a restructuring of the fragments so we will try new values of the radial position distribution. implicit none ! Arguments logical , intent ( out ) :: lerr ! Internals integer ( I4B ) :: i real ( DP ), parameter :: TOL = 1e-4_DP real ( DP ), dimension (:), allocatable :: v_t_initial type ( lambda_obj ) :: spinfunc type ( lambda_obj_err ) :: objective_function real ( DP ), dimension ( NDIM ) :: L_frag_spin , L_remainder , Li , rot_L , rot_ke ! Initialize the fragments with 0 velocity and spin so we can divide up the balance between the tangential, radial, and spin components while conserving momentum lerr = . false . vb_frag (:,:) = 0.0_DP rot_frag (:,:) = 0.0_DP v_t_mag (:) = 0.0_DP v_r_mag (:) = 0.0_DP call calculate_system_energy ( linclude_fragments = . true .) ke_frag_budget = - dEtot - Qloss !write(*,*) '***************************************************' !write(*,*) 'Original dis   : ',norm2(x(:,2) - x(:,1)) !write(*,*) 'r_max          : ',r_max !write(*,*) 'f_spin         : ',f_spin !write(*,*) '***************************************************' !write(*,*) 'Energy balance so far: ' !write(*,*) 'ke_frag_budget : ',ke_frag_budget !write(*,*) 'ke_orbit_before: ',ke_orbit_before !write(*,*) 'ke_orbit_after : ',ke_orbit_after !write(*,*) 'ke_spin_before : ',ke_spin_before !write(*,*) 'ke_spin_after  : ',ke_spin_after !write(*,*) 'pe_before      : ',pe_before !write(*,*) 'pe_after       : ',pe_after !write(*,*) 'Qloss          : ',Qloss !write(*,*) '***************************************************' if ( ke_frag_budget < 0.0_DP ) then write ( * , * ) 'Negative ke_frag_budget: ' , ke_frag_budget r_max_start = r_max_start / 2 lerr = . true . return end if allocate ( v_t_initial , mold = v_t_mag ) L_frag_spin (:) = 0.0_DP ke_frag_spin = 0.0_DP ! Start the first two bodies with the same rotation as the original two impactors, then distribute the remaining angular momentum among the rest do i = 1 , 2 rot_frag (:, i ) = rot (:, i ) L_frag_spin (:) = L_frag_spin (:) + m_frag ( i ) * rad_frag ( i ) ** 2 * Ip_frag ( 3 , i ) * rot_frag (:, i ) end do L_frag_orb (:) = L_frag_tot (:) - L_frag_spin (:) L_frag_spin (:) = 0.0_DP do i = 1 , nfrag ! Convert a fraction (f_spin) of either the remaining angular momentum or kinetic energy budget into spin, whichever gives the smaller rotation so as not to blow any budgets rot_ke (:) = sqrt ( 2 * f_spin * ke_frag_budget / ( nfrag * m_frag ( i ) * rad_frag ( i ) ** 2 * Ip_frag ( 3 , i ))) * L_frag_orb (:) / norm2 ( L_frag_orb (:)) rot_L (:) = f_spin * L_frag_orb (:) / ( nfrag * m_frag ( i ) * rad_frag ( i ) ** 2 * Ip_frag ( 3 , i )) if ( norm2 ( rot_ke ) < norm2 ( rot_L )) then rot_frag (:, i ) = rot_frag (:, i ) + rot_ke (:) else rot_frag (:, i ) = rot_frag (:, i ) + rot_L (:) end if L_frag_spin (:) = L_frag_spin (:) + m_frag ( i ) * rad_frag ( i ) ** 2 * Ip_frag ( 3 , i ) * rot_frag (:, i ) ke_frag_spin = ke_frag_spin + m_frag ( i ) * Ip_frag ( 3 , i ) * rad_frag ( i ) ** 2 * dot_product ( rot_frag (:, i ), rot_frag (:, i )) end do ke_frag_spin = 0.5_DP * ke_frag_spin ! Convert a fraction of the pre-impact angular momentum into fragment spin angular momentum L_frag_orb (:) = L_frag_tot (:) - L_frag_spin (:) L_remainder (:) = L_frag_orb (:) ! Next we will solve for the tangential component of the velocities that both conserves linear momentum and uses the remaining angular momentum not used in spin. ! This will be done using a linear solver that solves for the tangential velocities of the first 6 fragments, constrained by the linear and angular momentum vectors, ! which is embedded in a non-linear minimizer that will adjust the tangential velocities of the remaining i>6 fragments to minimize kinetic energy for a given momentum solution ! The initial conditions fed to the minimizer for the fragments will be the remaining angular momentum distributed between the fragments. do i = 1 , nfrag v_t_initial ( i ) = norm2 ( L_remainder (:)) / (( nfrag - i + 1 ) * m_frag ( i ) * norm2 ( x_frag (:, i ))) Li (:) = m_frag ( i ) * x_frag (:, i ) . cross . v_t_initial ( i ) * v_t_unit (:, i ) L_remainder (:) = L_remainder (:) - Li (:) end do ! Find the local kinetic energy minimum for the system that conserves linear and angular momentum objective_function = lambda_obj ( tangential_objective_function , lerr ) v_t_mag ( 7 : nfrag ) = util_minimize_bfgs ( objective_function , nfrag - 6 , v_t_initial ( 7 : nfrag ), TOL , lerr ) ! Now that the KE-minimized values of the i>6 fragments are found, calculate the momentum-conserving solution for tangential velociteis v_t_initial ( 7 : nfrag ) = v_t_mag ( 7 : nfrag ) v_t_mag ( 1 : nfrag ) = solve_fragment_tan_vel ( v_t_mag_input = v_t_initial ( 7 : nfrag ), lerr = lerr ) ! Perform one final shift of the radial velocity vectors to align with the center of mass of the collisional system (the origin) vb_frag (:, 1 : nfrag ) = vmag_to_vb ( v_r_mag ( 1 : nfrag ), v_r_unit (:, 1 : nfrag ), v_t_mag ( 1 : nfrag ), v_t_unit (:, 1 : nfrag ), m_frag ( 1 : nfrag ), vcom (:)) ! Now do a kinetic energy budget check to make sure we are still within the budget. ke_frag_orbit = 0.0_DP do i = 1 , nfrag v_frag (:, i ) = vb_frag (:, i ) - vcom (:) ke_frag_orbit = ke_frag_orbit + m_frag ( i ) * dot_product ( vb_frag (:, i ), vb_frag (:, i )) end do ke_frag_orbit = 0.5_DP * ke_frag_orbit ke_radial = ke_frag_budget - ke_frag_orbit - ke_frag_spin ! If we are over the energy budget, flag this as a failure so we can try again lerr = ( ke_radial < 0.0_DP ) !write(*,*) 'Tangential' !write(*,*) 'ke_frag_budget: ',ke_frag_budget !write(*,*) 'ke_frag_orbit : ',ke_frag_orbit !write(*,*) 'ke_frag_spin  : ',ke_frag_spin !write(*,*) 'ke_radial     : ',ke_radial return end subroutine set_fragment_tan_vel function tangential_objective_function ( v_t_mag_input , lerr ) result ( fval ) !! Author: David A. Minton !! !! Objective function for evaluating how close our fragment velocities get to minimizing KE error from our required value implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: v_t_mag_input !! Unknown tangential component of velocity vector set previously by angular momentum constraint logical , intent ( out ) :: lerr !! Error flag ! Result real ( DP ) :: fval ! Internals integer ( I4B ) :: i real ( DP ), dimension (:,:), allocatable :: v_shift real ( DP ), dimension (:), allocatable :: v_t_new real ( DP ) :: keo lerr = . false . allocate ( v_shift ( NDIM , nfrag )) allocate ( v_t_new ( nfrag )) v_t_new (:) = solve_fragment_tan_vel ( v_t_mag_input = v_t_mag_input (:), lerr = lerr ) v_shift (:,:) = vmag_to_vb ( v_r_mag , v_r_unit , v_t_new , v_t_unit , m_frag , vcom ) keo = 0.0_DP do i = 1 , nfrag keo = keo + m_frag ( i ) * dot_product ( v_shift (:, i ), v_shift (:, i )) end do keo = 0.5_DP * keo fval = keo lerr = . false . return end function tangential_objective_function function solve_fragment_tan_vel ( lerr , v_t_mag_input ) result ( v_t_mag_output ) !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Adjusts the positions, velocities, and spins of a collection of fragments such that they conserve angular momentum implicit none ! Arguments logical , intent ( out ) :: lerr !! Error flag real ( DP ), dimension (:), optional , intent ( in ) :: v_t_mag_input !! Unknown tangential velocities for fragments 7:nfrag ! Internals integer ( I4B ) :: i ! Result real ( DP ), dimension (:), allocatable :: v_t_mag_output real ( DP ), dimension ( 2 * NDIM , 2 * NDIM ) :: A ! LHS of linear equation used to solve for momentum constraint in Gauss elimination code real ( DP ), dimension ( 2 * NDIM ) :: b ! RHS of linear equation used to solve for momentum constraint in Gauss elimination code real ( DP ), dimension ( NDIM ) :: L_lin_others , L_orb_others , L , vtmp v_frag (:,:) = 0.0_DP lerr = . false . ! We have 6 constraint equations (2 vector constraints in 3 dimensions each) ! The first 3 are that the linear momentum of the fragments is zero with respect to the collisional barycenter ! The second 3 are that the sum of the angular momentum of the fragments is conserved from the pre-impact state L_lin_others (:) = 0.0_DP L_orb_others (:) = 0.0_DP do i = 1 , nfrag if ( i <= 2 * NDIM ) then ! The tangential velocities of the first set of bodies will be the unknowns we will solve for to satisfy the constraints A ( 1 : 3 , i ) = m_frag ( i ) * v_t_unit (:, i ) L (:) = v_r_unit (:, i ) . cross . v_t_unit (:, i ) A ( 4 : 6 , i ) = m_frag ( i ) * rmag ( i ) * L (:) else if ( present ( v_t_mag_input )) then vtmp (:) = v_t_mag_input ( i - 6 ) * v_t_unit (:, i ) L_lin_others (:) = L_lin_others (:) + m_frag ( i ) * vtmp (:) L (:) = x_frag (:, i ) . cross . vtmp (:) L_orb_others (:) = L_orb_others (:) + m_frag ( i ) * L (:) end if end do b ( 1 : 3 ) = - L_lin_others (:) b ( 4 : 6 ) = L_frag_orb (:) - L_orb_others (:) allocate ( v_t_mag_output ( nfrag )) v_t_mag_output ( 1 : 6 ) = util_solve_linear_system ( A , b , 6 , lerr ) if ( present ( v_t_mag_input )) v_t_mag_output ( 7 : nfrag ) = v_t_mag_input (:) return end function solve_fragment_tan_vel subroutine set_fragment_radial_velocities ( lerr ) !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! !! Adjust the fragment velocities to set the fragment orbital kinetic energy. This will minimize the difference between the fragment kinetic energy and the energy budget implicit none ! Arguments logical , intent ( out ) :: lerr ! Internals real ( DP ), parameter :: TOL = 1e-10_DP integer ( I4B ) :: i , j real ( DP ), dimension (:), allocatable :: v_r_initial , v_r_sigma real ( DP ), dimension (:,:), allocatable :: v_r type ( lambda_obj ) :: objective_function ! Set the \"target\" ke_orbit_after (the value of the orbital kinetic energy that the fragments ought to have) allocate ( v_r_initial , source = v_r_mag ) ! Initialize radial velocity magnitudes with a random value that is approximately 10% of that found by distributing the kinetic energy equally allocate ( v_r_sigma , source = v_r_mag ) call random_number ( v_r_sigma ( 1 : nfrag )) v_r_sigma ( 1 : nfrag ) = sqrt ( 1.0_DP + 2 * ( v_r_sigma ( 1 : nfrag ) - 0.5_DP ) * 1e-4_DP ) v_r_initial ( 1 : nfrag ) = v_r_sigma ( 1 : nfrag ) * sqrt ( abs ( ke_radial ) / ( 2 * m_frag ( 1 : nfrag ) * nfrag )) ! Initialize the lambda function using a structure constructor that calls the init method ! Minimize the ke objective function using the BFGS optimizer objective_function = lambda_obj ( radial_objective_function ) v_r_mag = util_minimize_bfgs ( objective_function , nfrag , v_r_initial , TOL , lerr ) ! Shift the radial velocity vectors to align with the center of mass of the collisional system (the origin) vb_frag (:, 1 : nfrag ) = vmag_to_vb ( v_r_mag ( 1 : nfrag ), v_r_unit (:, 1 : nfrag ), v_t_mag ( 1 : nfrag ), v_t_unit (:, 1 : nfrag ), m_frag ( 1 : nfrag ), vcom (:)) do i = 1 , nfrag v_frag (:, i ) = vb_frag (:, i ) - vcom (:) end do ke_frag_orbit = 0.0_DP do i = 1 , nfrag ke_frag_orbit = ke_frag_orbit + m_frag ( i ) * dot_product ( vb_frag (:, i ), vb_frag (:, i )) end do ke_frag_orbit = 0.5_DP * ke_frag_orbit !write(*,*) 'Radial' !write(*,*) 'Failure? ',lerr !write(*,*) 'ke_frag_budget: ',ke_frag_budget !write(*,*) 'ke_frag_orbit : ',ke_frag_orbit !write(*,*) 'ke_frag_spin  : ',ke_frag_spin !write(*,*) 'ke_remainder  : ',ke_frag_budget - (ke_frag_orbit + ke_frag_spin) lerr = . false . return end subroutine set_fragment_radial_velocities function radial_objective_function ( v_r_mag_input ) result ( fval ) !! Author: David A. Minton !! !! Objective function for evaluating how close our fragment velocities get to minimizing KE error from our required value implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: v_r_mag_input !! Unknown radial component of fragment velocity vector ! Result real ( DP ) :: fval !! The objective function result, which is the square of the difference between the calculated fragment kinetic energy and our target !! Minimizing this brings us closer to our objective ! Internals integer ( I4B ) :: i real ( DP ), dimension (:,:), allocatable :: v_shift allocate ( v_shift , mold = vb_frag ) v_shift (:,:) = vmag_to_vb ( v_r_mag_input , v_r_unit , v_t_mag , v_t_unit , m_frag , vcom ) fval = 2 * ke_frag_budget do i = 1 , nfrag fval = fval - m_frag ( i ) * ( Ip_frag ( 3 , i ) * rad_frag ( i ) ** 2 * dot_product ( rot_frag (:, i ), rot_frag (:, i )) + dot_product ( v_shift (:, i ), v_shift (:, i ))) end do ! The following ensures that fval = 0 is a local minimum, which is what the BFGS method is searching for fval = ( fval / ( 2 * ke_radial )) ** 2 return end function radial_objective_function function vmag_to_vb ( v_r_mag , v_r_unit , v_t_mag , v_t_unit , m_frag , vcom ) result ( vb ) !! Author: David A. Minton !! !! Converts radial and tangential velocity magnitudes into barycentric velocity implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: v_r_mag !! Unknown radial component of fragment velocity vector real ( DP ), dimension (:), intent ( in ) :: v_t_mag !! Tangential component of velocity vector set previously by angular momentum constraint real ( DP ), dimension (:,:), intent ( in ) :: v_r_unit , v_t_unit !! Radial and tangential unit vectors for each fragment real ( DP ), dimension (:), intent ( in ) :: m_frag !! Fragment masses real ( DP ), dimension (:), intent ( in ) :: vcom !! Barycentric velocity of collisional system center of mass ! Result real ( DP ), dimension (:,:), allocatable :: vb ! Internals integer ( I4B ) :: i allocate ( vb , mold = v_r_unit ) ! Make sure the velocity magnitude stays positive do i = 1 , nfrag vb (:, i ) = abs ( v_r_mag ( i )) * v_r_unit (:, i ) end do ! In order to keep satisfying the kinetic energy constraint, we must shift the origin of the radial component of the velocities to the center of mass call shift_vector_to_origin ( m_frag , vb ) do i = 1 , nfrag vb (:, i ) = vb (:, i ) + v_t_mag ( i ) * v_t_unit (:, i ) + vcom (:) end do end function vmag_to_vb subroutine restructure_failed_fragments () !! Author: David A. Minton !! !! We failed to find a set of positions and velocities that satisfy all the constraints, and so we will alter the fragments and try again. implicit none integer ( I4B ) :: i real ( DP ), dimension (:), allocatable :: m_frag_new , rad_frag_new real ( DP ), dimension (:,:), allocatable :: xb_frag_new , vb_frag_new , Ip_frag_new , rot_frag_new real ( DP ) :: delta_r , delta_r_max real ( DP ), parameter :: ke_avg_deficit_target = 0.0_DP ! Introduce a bit of noise in the radius determination so we don't just flip flop between similar failed positions call random_number ( delta_r_max ) delta_r_max = sum ( radius (:)) * ( 1.0_DP + 2e-1_DP * ( delta_r_max - 0.5_DP )) if ( try > 2 ) then ! Linearly interpolate the last two failed solution ke deficits to find a new distance value to try delta_r = ( r_max_start - r_max_start_old ) * ( ke_avg_deficit_target - ke_avg_deficit_old ) / ( ke_avg_deficit - ke_avg_deficit_old ) if ( abs ( delta_r ) > delta_r_max ) delta_r = sign ( delta_r_max , delta_r ) else delta_r = delta_r_max end if r_max_start_old = r_max_start r_max_start = r_max_start + delta_r ! The larger lever arm can help if the problem is in the angular momentum step if ( f_spin > epsilon ( 1.0_DP )) then f_spin = f_spin / 2 else f_spin = 0.0_DP end if end subroutine restructure_failed_fragments end subroutine fragmentation_initialize module subroutine fragmentation_regime ( Mcb , m1 , m2 , rad1 , rad2 , xh1 , xh2 , vb1 , vb2 , den1 , den2 , regime , Mlr , Mslr , mtiny , Qloss ) !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Determine the collisional regime of two colliding bodies. !! Current version requires all values to be converted to SI units prior to calling the function !!       References: !!       Kokubo, E., Genda, H., 2010. Formation of Terrestrial Planets from Protoplanets Under a Realistic Accretion !!          Condition. ApJL 714, L21. https://doi.org/10.1088/2041-8205/714/1/L21 !!       Leinhardt, Z.M., Stewart, S.T., 2012. Collisions between Gravity-dominated Bodies. I. Outcome Regimes and Scaling !!          Laws 745, 79. https://doi.org/10.1088/0004-637X/745/1/79 !!       Mustill, A.J., Davies, M.B., Johansen, A., 2018. The dynamical evolution of transiting planetary systems including !!          a realistic collision prescription. Mon Not R Astron Soc 478, 2896–2908. https://doi.org/10.1093/mnras/sty1273 !!       Rufu, R., Aharonson, O., 2019. Impact Dynamics of Moons Within a Planetary Potential. J. Geophys. Res. Planets 124, !!          1008–1019. https://doi.org/10.1029/2018JE005798 !!       Stewart, S.T., Leinhardt, Z.M., 2012. Collisions between Gravity-dominated Bodies. II. The Diversity of Impact !!          Outcomes during the End Stage of Planet Formation. ApJ 751, 32. https://doi.org/10.1088/0004-637X/751/1/32 !! implicit none ! Arguments integer ( I4B ), intent ( out ) :: regime real ( DP ), intent ( out ) :: Mlr , Mslr real ( DP ), intent ( in ) :: Mcb , m1 , m2 , rad1 , rad2 , den1 , den2 , mtiny real ( DP ), dimension (:), intent ( in ) :: xh1 , xh2 , vb1 , vb2 real ( DP ), intent ( out ) :: Qloss !! The residual energy after the collision ! Constants integer ( I4B ), parameter :: N1 = 1 !number of objects with mass equal to the largest remnant from LS12 integer ( I4B ), parameter :: N2 = 2 !number of objects with mass larger than second largest remnant from LS12 real ( DP ), parameter :: DENSITY1 = 100 0.0_DP !standard density parameter from LS12 [kg/m3] real ( DP ), parameter :: MU_BAR = 0.37_DP !0.385#0.37#0.3333# 3.978 # 1/3 material parameter for hydrodynamic planet-size bodies (LS12) real ( DP ), parameter :: BETA = 2.85_DP !slope of sfd for remnants from LS12 2.85 real ( DP ), parameter :: C1 = 2.43_DP !! Kokubo & Genda (2010) eq. (3) real ( DP ), parameter :: C2 = - 0.0408_DP !! Kokubo & Genda (2010) eq. (3) real ( DP ), parameter :: C3 = 1.86_DP !! Kokubo & Genda (2010) eq. (3) real ( DP ), parameter :: C4 = 1.08_DP !! Kokubo & Genda (2010) eq. (3) real ( DP ), parameter :: CRUFU = 2.0_DP - 3 * MU_BAR ! central potential variable from Rufu and Aharonson (2019) real ( DP ), parameter :: SUPERCAT_QRATIO = 1.8_DP ! See Section 4.1 of LS12 ! Internals real ( DP ) :: a1 , alpha , aint , b , bcrit , c_star , egy , zeta , l , lint , mu , phi , theta real ( DP ) :: Qr , Qrd_pstar , Qr_erosion , Qr_supercat real ( DP ) :: Vhr , Verosion , Vescp , Vhill , Vimp , Vsupercat real ( DP ) :: Mint , Mtot real ( DP ) :: Rp , rhill real ( DP ) :: Mresidual real ( DP ) :: U_binding Vimp = norm2 ( vb2 (:) - vb1 (:)) b = calc_b ( xh2 , vb2 , xh1 , vb1 ) l = ( rad1 + rad2 ) * ( 1 - b ) egy = 0.5_DP * dot_product ( vb1 , vb1 ) - GC * Mcb / norm2 ( xh1 ) a1 = - GC * Mcb / 2.0_DP / egy Mtot = m1 + m2 mu = ( m1 * m2 ) / Mtot if ( l < 2 * rad2 ) then !calculate Mint phi = 2 * acos (( l - rad2 ) / rad2 ) aint = rad2 ** 2 * ( PI - ( phi - sin ( phi )) / 2.0_DP ) lint = 2 * sqrt ( rad2 ** 2 - ( rad2 - l / 2.0_DP ) ** 2 ) Mint = aint * lint ![kg] alpha = ( l ** 2 ) * ( 3 * rad2 - l ) / ( 4 * ( rad2 ** 3 )) else alpha = 1.0_DP Mint = m2 end if Rp = ( 3 * ( m1 / den1 + alpha * m2 / den2 ) / ( 4 * PI )) ** ( 1.0_DP / 3.0_DP ) ! (Mustill et al. 2018) c_star = calc_c_star ( Rp ) !calculate Vescp Vescp = sqrt ( 2 * GC * Mtot / Rp ) !Mustill et al. 2018 eq 6 !calculate rhill rhill = a1 * ( m1 / 3.0_DP / ( Mcb + m1 )) ** ( 1.0_DP / 3.0_DP ) !calculate Vhill if (( rad2 + rad1 ) < rhill ) then Vhill = sqrt ( 2 * GC * m1 * (( rhill ** 2 - rhill * ( rad1 + rad2 )) / & ( rhill ** 2 - 0.5_DP * ( rad1 + rad2 ) ** 2 )) / ( rad1 + rad2 )) else Vhill = Vescp end if !calculate Qr_pstar Qrd_pstar = calc_Qrd_pstar ( m1 , m2 , alpha , c_star ) * ( Vhill / Vescp ) ** CRUFU !Rufu and Aharaonson eq (3) !calculate Verosion Qr_erosion = 2 * ( 1.0_DP - m1 / Mtot ) * Qrd_pstar Verosion = ( 2 * Qr_erosion * Mtot / mu ) ** ( 1.0_DP / 2.0_DP ) Qr = mu * ( Vimp ** 2 ) / Mtot / 2.0_DP !calculate mass largest remnant Mlr Mlr = ( 1.0_DP - Qr / Qrd_pstar / 2.0_DP ) * Mtot ! [kg] # LS12 eq (5) !calculate Vsupercat Qr_supercat = SUPERCAT_QRATIO * Qrd_pstar ! See LS12 Section 4.1 Vsupercat = sqrt ( 2 * Qr_supercat * Mtot / mu ) !calculate Vhr zeta = ( m1 - m2 ) / Mtot theta = 1.0_DP - b Vhr = Vescp * ( C1 * zeta ** 2 * theta ** ( 2.5_DP ) + C2 * zeta ** 2 + C3 * theta ** ( 2.5_DP ) + C4 ) ! Kokubo & Genda (2010) eq. (3) bcrit = rad1 / ( rad1 + rad2 ) Qloss = 0.0_DP U_binding = ( 3.0_DP * Mtot ) / ( 5.0_DP * Rp ) ! LS12 eq. 27 if (( m1 < mtiny ). or .( m2 < mtiny )) then regime = COLLRESOLVE_REGIME_MERGE !perfect merging regime Mlr = Mtot Mslr = 0.0_DP Qloss = 0.0_DP write ( * , * ) \"FORCE MERGE\" else if ( Vimp < Vescp ) then regime = COLLRESOLVE_REGIME_MERGE !perfect merging regime Mlr = Mtot Mslr = 0.0_DP Qloss = 0.0_DP else if ( Vimp < Verosion ) then if ( b < bcrit ) then regime = COLLRESOLVE_REGIME_MERGE !partial accretion regime\" Mlr = Mtot Mslr = 0.0_DP Qloss = 0.0_DP else if (( b > bcrit ) . and . ( Vimp < Vhr )) then regime = COLLRESOLVE_REGIME_MERGE ! graze and merge Mlr = Mtot Mslr = 0.0_DP Qloss = 0.0_DP else Mlr = m1 Mslr = calc_Qrd_rev ( m2 , m1 , Mint , den1 , den2 , Vimp , c_star ) regime = COLLRESOLVE_REGIME_HIT_AND_RUN !hit and run Qloss = ( c_star + 1.0_DP ) * U_binding ! Qr end if else if ( Vimp > Verosion . and . Vimp < Vsupercat ) then if ( m2 < 0.001_DP * m1 ) then regime = COLLRESOLVE_REGIME_MERGE !cratering regime\" Mlr = Mtot Mslr = 0.0_DP Qloss = 0.0_DP else Mslr = Mtot * ( 3.0_DP - BETA ) * ( 1.0_DP - N1 * Mlr / Mtot ) / ( N2 * BETA ) ! LS12 eq (37) regime = COLLRESOLVE_REGIME_DISRUPTION !disruption Qloss = ( c_star + 1.0_DP ) * U_binding ! Qr - Qr_erosion end if else if ( Vimp > Vsupercat ) then Mlr = Mtot * 0.1_DP * ( Qr / ( Qrd_pstar * SUPERCAT_QRATIO )) ** ( - 1.5_DP ) !LS12 eq (44) Mslr = Mtot * ( 3.0_DP - BETA ) * ( 1.0_DP - N1 * Mlr / Mtot ) / ( N2 * BETA ) !LS12 eq (37) regime = COLLRESOLVE_REGIME_SUPERCATASTROPHIC ! supercatastrophic Qloss = ( c_star + 1.0_DP ) * U_binding ! Qr - Qr_supercat else write ( * , * ) \"Error no regime found in symba_regime\" end if end if Mresidual = Mtot - Mlr - Mslr if ( Mresidual < 0.0_DP ) then ! prevents final masses from going negative Mlr = Mlr + Mresidual end if return ! Internal functions contains function calc_Qrd_pstar ( Mtarg , Mp , alpha , c_star ) result ( Qrd_pstar ) !! author: Jennifer L.L. Pouplin and Carlisle A. Wishard !! !! Calculates the corrected Q* for oblique impacts. See Eq. (15) of LS12. !!       Reference: !!       Leinhardt, Z.M., Stewart, S.T., 2012. Collisions between Gravity-dominated Bodies. I. Outcome Regimes and Scaling !!          Laws 745, 79. https://doi.org/10.1088/0004-637X/745/1/79 !! implicit none ! Arguments real ( DP ), intent ( in ) :: Mtarg , Mp , alpha , c_star ! Result real ( DP ) :: Qrd_pstar ! Internals real ( DP ) :: Qrd_star1 , mu_alpha , mu , Qrd_star ! calc mu, mu_alpha mu = ( Mtarg * Mp ) / ( Mtarg + Mp ) ! [kg] mu_alpha = ( Mtarg * alpha * Mp ) / ( Mtarg + alpha * Mp ) ! [kg] ! calc Qrd_star1 Qrd_star1 = ( c_star * 4 * PI * DENSITY1 * GC * Rp ** 2 ) / 5.0_DP ! calc Qrd_star Qrd_star = Qrd_star1 * ((( Mp / Mtarg + 1.0_DP ) ** 2 ) / ( 4 * Mp / Mtarg )) ** ( 2.0_DP / ( 3.0_DP * MU_BAR ) - 1.0_DP ) !(eq 23) ! calc Qrd_pstar, v_pstar Qrd_pstar = (( mu / mu_alpha ) ** ( 2.0_DP - 3.0_DP * MU_BAR / 2.0_DP )) * Qrd_star ! (eq 15) return end function calc_Qrd_pstar function calc_Qrd_rev ( Mp , Mtarg , Mint , den1 , den2 , Vimp , c_star ) result ( Mslr ) !! author: Jennifer L.L. Pouplin and Carlisle A. Wishard !! !! Calculates mass of second largest fragment. !! implicit none ! Arguments real ( DP ), intent ( in ) :: Mp , Mtarg , Mint , den1 , den2 , Vimp , c_star ! Result real ( DP ) :: Mslr ! Internals real ( DP ) :: mtot_rev , mu_rev , gamma_rev , Qrd_star1 , Qrd_star , mu_alpha_rev real ( DP ) :: Qrd_pstar , Rc1 , Qr_rev , Qrd_pstar_rev , Qr_supercat_rev ! calc Mslr, Rc1, mu, gammalr mtot_rev = Mint + Mp Rc1 = ( 3 * ( Mint / den1 + Mp / den2 ) / ( 4 * PI )) ** ( 1.0_DP / 3.0_DP ) ! [m] Mustill et al 2018 mu_rev = ( Mint * Mp ) / mtot_rev ! [kg] eq 49 LS12 mu_alpha_rev = ( Mtarg * alpha * Mp ) / ( Mtarg + alpha * Mp ) gamma_rev = Mint / Mp ! eq 50 LS12 !calc Qr_rev Qr_rev = mu_rev * ( Vimp ** 2 ) / ( 2 * mtot_rev ) ! calc Qrd_star1, v_star1 Qrd_star1 = ( c_star * 4 * PI * mtot_rev * GC ) / Rc1 / 5.0_DP ! calc Qrd_pstar_rev Qrd_star = Qrd_star1 * ((( gamma_rev + 1.0_DP ) ** 2 ) / ( 4 * gamma_rev )) ** ( 2.0_DP / ( 3.0_DP * MU_BAR ) - 1.0_DP ) !(eq 52) Qrd_pstar = Qrd_star * (( mu_rev / mu_alpha_rev ) ** ( 2.0_DP - 3.0_DP * MU_BAR / 2.0_DP )) Qrd_pstar_rev = Qrd_pstar * ( Vhill / Vescp ) ** CRUFU !Rufu and Aharaonson eq (3) !calc Qr_supercat_rev Qr_supercat_rev = 1.8_DP * Qrd_pstar_rev if ( Qr_rev > Qr_supercat_rev ) then Mslr = mtot_rev * ( 0.1_DP * (( Qr_rev / ( Qrd_pstar_rev * 1.8_DP )) ** ( - 1.5_DP ))) !eq (44) else if ( Qr_rev < Qrd_pstar_rev ) then Mslr = Mp else Mslr = ( 1.0_DP - Qr_rev / Qrd_pstar_rev / 2.0_DP ) * ( mtot_rev ) ! [kg] #(eq 5) end if if ( Mslr > Mp ) Mslr = Mp !check conservation of mass return end function calc_Qrd_rev function calc_b ( proj_pos , proj_vel , targ_pos , targ_vel ) result ( sintheta ) !! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Calculates the impact factor b = sin(theta), where theta is the angle between the relative velocity !! and distance vectors of the target and projectile bodies. See Fig. 2 of Leinhardt and Stewart (2012) !! implicit none !! Arguments real ( DP ), dimension (:), intent ( in ) :: proj_pos , proj_vel , targ_pos , targ_vel !! Result real ( DP ) :: sintheta !! Internals real ( DP ), dimension ( NDIM ) :: imp_vel , distance , x_cross_v imp_vel (:) = proj_vel (:) - targ_vel (:) distance (:) = proj_pos (:) - targ_pos (:) x_cross_v (:) = distance (:) . cross . imp_vel (:) sintheta = norm2 ( x_cross_v (:)) / norm2 ( distance (:)) / norm2 ( imp_vel (:)) return end function calc_b function calc_c_star ( Rc1 ) result ( c_star ) !! author: David A. Minton !! !! Calculates c_star as a function of impact equivalent radius. It inteRpolates between 5 for ~1 km sized bodies to !! 1.8 for ~10000 km sized bodies. See LS12 Fig. 4 for details. !! implicit none !! Arguments real ( DP ), intent ( in ) :: Rc1 !! Result real ( DP ) :: c_star !! Internals real ( DP ), parameter :: loR = 1.0e3_DP ! Lower bound of inteRpolation size (m) real ( DP ), parameter :: hiR = 1.0e7_DP ! Upper bound of inteRpolation size (m) real ( DP ), parameter :: loval = 5.0_DP ! Value of C* at lower bound real ( DP ), parameter :: hival = 1.9_DP ! Value of C* at upper bound if ( Rc1 < loR ) then c_star = loval else if ( Rc1 < hiR ) then c_star = loval + ( hival - loval ) * log ( Rc1 / loR ) / log ( hiR / loR ) else c_star = hival end if return end function calc_c_star end subroutine fragmentation_regime end submodule s_fragmentation","tags":"","loc":"sourcefile/fragmentation.f90.html"},{"title":"rmvs_discard.f90 – swiftest","text":"This file depends on sourcefile~~rmvs_discard.f90~~EfferentGraph sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~rmvs_discard.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_rmvs_discard Source Code rmvs_discard.f90 Source Code submodule ( rmvs_classes ) s_rmvs_discard use swiftest contains module subroutine rmvs_discard_tp ( self , system , param ) !! author: David A. Minton !! !! Check to see if test particles should be discarded based on pericenter passage distances with respect to planets encountered !! !! Adapted from Hal Levison's Swift routine discard_pl.f !! Adapted from Hal Levison's Swift routine rmvs_discard_pl.f90 implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody , pl => system % pl , t => param % t ) do i = 1 , ntp associate ( iplperP => tp % plperP ( i )) if (( tp % status ( i ) == ACTIVE ) . and . ( tp % lperi ( i ))) then if (( tp % peri ( i ) < pl % radius ( iplperP ))) then tp % status ( i ) = DISCARDED_PLQ write ( * , * ) \"Particle \" , tp % id ( i ), \" q with respect to Planet \" , pl % id ( iplperP ), \" is too small at t = \" , t tp % ldiscard ( i ) = . true . tp % lmask ( i ) = . false . end if end if end associate end do ! Call the base method that this overrides call discard_tp ( tp , system , param ) end associate end subroutine rmvs_discard_tp end submodule s_rmvs_discard","tags":"","loc":"sourcefile/rmvs_discard.f90.html"},{"title":"rmvs_util.f90 – swiftest","text":"This file depends on sourcefile~~rmvs_util.f90~~EfferentGraph sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~rmvs_util.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_rmvs_util Source Code rmvs_util.f90 Source Code submodule ( rmvs_classes ) s_rmvs_util use swiftest contains module subroutine rmvs_util_append_pl ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from one massive body object to another. !! This method will automatically resize the destination body if it is too small implicit none !! Arguments class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to select type ( source ) class is ( rmvs_pl ) call whm_util_append_pl ( self , source , lsource_mask ) call util_append ( self % nenc , source % nenc , lsource_mask ) call util_append ( self % tpenc1P , source % tpenc1P , lsource_mask ) call util_append ( self % plind , source % plind , lsource_mask ) ! The following are not implemented as RMVS doesn't make use of fill operations on pl type ! So they are here as a placeholder in case someone wants to extend the RMVS class for some reason !call util_append(self%outer, source%outer, lsource_mask) !call util_append(self%inner, source%inner, lsource_mask) !call util_append(self%planetocentric, source%planetocentric, lsource_mask) class default write ( * , * ) \"Invalid object passed to the append method. Source must be of class rmvs_pl or its descendents!\" call util_exit ( FAILURE ) end select return end subroutine rmvs_util_append_pl module subroutine rmvs_util_append_tp ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from test particle object to another. !! This method will automatically resize the destination body if it is too small implicit none !! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), optional , intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to select type ( source ) class is ( rmvs_tp ) call util_append_tp ( self , source , lsource_mask ) ! Note: whm_tp does not have its own append method, so we skip back to the base class call util_append ( self % lperi , source % lperi , lsource_mask ) call util_append ( self % plperP , source % plperP , lsource_mask ) call util_append ( self % plencP , source % plencP , lsource_mask ) class default write ( * , * ) \"Invalid object passed to the append method. Source must be of class rmvs_tp or its descendents!\" call util_exit ( FAILURE ) end select return end subroutine rmvs_util_append_tp module subroutine rmvs_util_fill_pl ( self , inserts , lfill_list ) !! author: David A. Minton !! !! Insert new RMVS massive body structure into an old one. !! This is the inverse of a fill operation. !! implicit none ! Arguments class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object class ( swiftest_body ), intent ( in ) :: inserts !! Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps ! Internals integer ( I4B ) :: i associate ( keeps => self ) select type ( inserts ) class is ( rmvs_pl ) call util_fill ( keeps % nenc , inserts % nenc , lfill_list ) call util_fill ( keeps % tpenc1P , inserts % tpenc1P , lfill_list ) call util_fill ( keeps % plind , inserts % plind , lfill_list ) ! The following are not implemented as RMVS doesn't make use of fill operations on pl type ! So they are here as a placeholder in case someone wants to extend the RMVS class for some reason !call util_fill(keeps%outer, inserts%outer, lfill_list) !call util_fill(keeps%inner, inserts%inner, lfill_list) !call util_fill(keeps%planetocentric, inserts%planetocentric, lfill_list) call whm_util_fill_pl ( keeps , inserts , lfill_list ) class default write ( * , * ) \"Invalid object passed to the fill method. Source must be of class rmvs_pl or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine rmvs_util_fill_pl module subroutine rmvs_util_fill_tp ( self , inserts , lfill_list ) !! author: David A. Minton !! !! Insert new RMVS test particle structure into an old one. !! This is the inverse of a fill operation. !! implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( swiftest_body ), intent ( in ) :: inserts !! Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps associate ( keeps => self ) select type ( inserts ) class is ( rmvs_tp ) call util_fill ( keeps % lperi , inserts % lperi , lfill_list ) call util_fill ( keeps % plperP , inserts % plperP , lfill_list ) call util_fill ( keeps % plencP , inserts % plencP , lfill_list ) call util_fill_tp ( keeps , inserts , lfill_list ) ! Note: whm_tp does not have its own fill method, so we skip back to the base class class default write ( * , * ) \"Invalid object passed to the fill method. Source must be of class rmvs_tp or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine rmvs_util_fill_tp module subroutine rmvs_util_resize_pl ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a massive body object against the requested size and resizes it if it is too small. implicit none ! Arguments class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded call whm_util_resize_pl ( self , nnew ) call util_resize ( self % nenc , nnew ) call util_resize ( self % tpenc1P , nnew ) call util_resize ( self % plind , nnew ) ! The following are not implemented as RMVS doesn't make use of resize operations on pl type ! So they are here as a placeholder in case someone wants to extend the RMVS class for some reason !call util_resize(self%outer, nnew) !call util_resize(self%inner, nnew) !call util_resize(self%planetocentric, nnew) return end subroutine rmvs_util_resize_pl module subroutine rmvs_util_resize_tp ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a test particle object against the requested size and resizes it if it is too small. implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object integer ( I4B ), intent ( in ) :: nnew !! New size neded call util_resize_tp ( self , nnew ) call util_resize ( self % lperi , nnew ) call util_resize ( self % plperP , nnew ) call util_resize ( self % plencP , nnew ) call util_resize ( self % xheliocentric , nnew ) return end subroutine rmvs_util_resize_tp module subroutine rmvs_util_sort_pl ( self , sortby , ascending ) !! author: David A. Minton !! !! Sort a RMVS massive body object in-place. !! sortby is a string indicating which array component to sort. implicit none ! Arguments class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order ! Internals integer ( I4B ), dimension ( self % nbody ) :: ind integer ( I4B ) :: direction if ( ascending ) then direction = 1 else direction = - 1 end if associate ( pl => self , npl => self % nbody ) select case ( sortby ) case ( \"nenc\" ) call util_sort ( direction * pl % nenc ( 1 : npl ), ind ( 1 : npl )) case ( \"tpenc1P\" ) call util_sort ( direction * pl % tpenc1P ( 1 : npl ), ind ( 1 : npl )) case ( \"plind\" ) call util_sort ( direction * pl % plind ( 1 : npl ), ind ( 1 : npl )) case ( \"outer\" , \"inner\" , \"planetocentric\" , \"lplanetocentric\" ) write ( * , * ) 'Cannot sort by ' // trim ( adjustl ( sortby )) // '. Component not sortable!' case default ! Look for components in the parent class call whm_util_sort_pl ( pl , sortby , ascending ) return end select call pl % rearrange ( ind ) end associate return end subroutine rmvs_util_sort_pl module subroutine rmvs_util_sort_tp ( self , sortby , ascending ) !! author: David A. Minton !! !! Sort a RMVS test particle object in-place. !! sortby is a string indicating which array component to sort. implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order ! Internals integer ( I4B ), dimension ( self % nbody ) :: ind integer ( I4B ) :: direction if ( ascending ) then direction = 1 else direction = - 1 end if associate ( tp => self , ntp => self % nbody ) select case ( sortby ) case ( \"plperP\" ) call util_sort ( direction * tp % plperP ( 1 : ntp ), ind ( 1 : ntp )) case ( \"plencP\" ) call util_sort ( direction * tp % plencP ( 1 : ntp ), ind ( 1 : ntp )) case ( \"lperi\" , \"cb_heliocentric\" , \"xheliocentric\" , \"index\" , \"ipleP\" , \"lplanetocentric\" ) write ( * , * ) 'Cannot sort by ' // trim ( adjustl ( sortby )) // '. Component not sortable!' case default ! Look for components in the parent class (*NOTE whm_tp does not need its own sort method, so we go straight to the swiftest_tp method) call util_sort_tp ( tp , sortby , ascending ) return end select call tp % rearrange ( ind ) end associate return end subroutine rmvs_util_sort_tp module subroutine rmvs_util_sort_rearrange_pl ( self , ind ) !! author: David A. Minton !! !! Rearrange RMVS massive body structure in-place from an index list. !! This is a helper utility used to make polymorphic sorting work on Swiftest structures. implicit none ! Arguments class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) ! Internals class ( rmvs_pl ), allocatable :: pl_sorted !! Temporary holder for sorted body integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) call util_sort_rearrange_pl ( pl , ind ) allocate ( pl_sorted , source = self ) if ( allocated ( pl % nenc )) pl % nenc ( 1 : npl ) = pl_sorted % nenc ( ind ( 1 : npl )) if ( allocated ( pl % tpenc1P )) pl % tpenc1P ( 1 : npl ) = pl_sorted % tpenc1P ( ind ( 1 : npl )) if ( allocated ( pl % plind )) pl % plind ( 1 : npl ) = pl_sorted % plind ( ind ( 1 : npl )) deallocate ( pl_sorted ) end associate return end subroutine rmvs_util_sort_rearrange_pl module subroutine rmvs_util_sort_rearrange_tp ( self , ind ) !! author: David A. Minton !! !! Rearrange RMVS test particle object in-place from an index list. !! This is a helper utility used to make polymorphic sorting work on Swiftest structures. implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) ! Internals class ( rmvs_tp ), allocatable :: tp_sorted !! Temporary holder for sorted body if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) call util_sort_rearrange_tp ( tp , ind ) allocate ( tp_sorted , source = self ) if ( allocated ( tp % lperi )) tp % lperi ( 1 : ntp ) = tp_sorted % lperi ( ind ( 1 : ntp )) if ( allocated ( tp % plperP )) tp % plperP ( 1 : ntp ) = tp_sorted % plperP ( ind ( 1 : ntp )) if ( allocated ( tp % plencP )) tp % plencP ( 1 : ntp ) = tp_sorted % plencP ( ind ( 1 : ntp )) if ( allocated ( tp % xheliocentric )) tp % xheliocentric (:, 1 : ntp ) = tp_sorted % xheliocentric (:, ind ( 1 : ntp )) deallocate ( tp_sorted ) end associate return end subroutine rmvs_util_sort_rearrange_tp module subroutine rmvs_util_spill_pl ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) RMVS test particle structure from active list to discard list !! !! Adapted from David E. Kaufmann's Swifter routine discard_discard_spill.f90 implicit none ! Arguments class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not ! Internals integer ( I4B ) :: i associate ( keeps => self ) select type ( discards ) class is ( rmvs_pl ) call util_spill ( keeps % nenc , discards % nenc , lspill_list , ldestructive ) call util_spill ( keeps % tpenc1P , discards % tpenc1P , lspill_list , ldestructive ) call util_spill ( keeps % plind , discards % plind , lspill_list , ldestructive ) call whm_util_spill_pl ( keeps , discards , lspill_list , ldestructive ) class default write ( * , * ) \"Invalid object passed to the spill method. Source must be of class rmvs_pl or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine rmvs_util_spill_pl module subroutine rmvs_util_spill_tp ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) RMVS test particle structure from active list to discard list !! !! Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not ! Internals integer ( I4B ) :: i associate ( keeps => self ) select type ( discards ) class is ( rmvs_tp ) call util_spill ( keeps % lperi , discards % lperi , lspill_list , ldestructive ) call util_spill ( keeps % plperP , discards % plperP , lspill_list , ldestructive ) call util_spill ( keeps % plencP , discards % plencP , lspill_list , ldestructive ) call util_spill_tp ( keeps , discards , lspill_list , ldestructive ) class default write ( * , * ) \"Invalid object passed to the spill method. Source must be of class rmvs_tp or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine rmvs_util_spill_tp end submodule s_rmvs_util","tags":"","loc":"sourcefile/rmvs_util.f90.html"},{"title":"rmvs_kick.f90 – swiftest","text":"This file depends on sourcefile~~rmvs_kick.f90~~EfferentGraph sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~rmvs_kick.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_rmvs_kick Source Code rmvs_kick.f90 Source Code submodule ( rmvs_classes ) s_rmvs_kick use swiftest contains module subroutine rmvs_kick_getacch_tp ( self , system , param , t , lbeg ) !! author: David A. Minton !! !! Compute the oblateness acceleration in the inner encounter region with planets !! !! Performs a similar task as David E. Kaufmann's Swifter routine rmvs_kick_getacch_tp.f90, but !! uses object polymorphism, and so is not directly adapted. implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest central body particle data structuree class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step ! Internals class ( swiftest_parameters ), allocatable :: param_planetocen real ( DP ), dimension (:, :), allocatable :: xh_original real ( DP ) :: GMcb_original integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody , ipleP => self % ipleP , inner_index => self % index ) select type ( system ) class is ( rmvs_nbody_system ) if ( system % lplanetocentric ) then ! This is a close encounter step, so any accelerations requiring heliocentric position values ! must be handeled outside the normal WHM method call select type ( pl => system % pl ) class is ( rmvs_pl ) select type ( cb => system % cb ) class is ( rmvs_cb ) associate ( xpc => pl % xh , xpct => self % xh , apct => self % ah , system_planetocen => system ) system_planetocen % lbeg = lbeg ! Save the original heliocentric position for later allocate ( xh_original , source = tp % xh ) ! Temporarily turn off the heliocentric-dependent acceleration terms during an inner encounter using a copy of the parameter list with all of the heliocentric-specific acceleration terms turned off allocate ( param_planetocen , source = param ) param_planetocen % loblatecb = . false . param_planetocen % lextra_force = . false . param_planetocen % lgr = . false . ! Compute the planetocentric values of acceleration call whm_kick_getacch_tp ( tp , system_planetocen , param_planetocen , t , lbeg ) ! Now compute any heliocentric values of acceleration if ( tp % lfirst ) then do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % xheliocentric (:, i ) = tp % xh (:, i ) + cb % inner ( inner_index - 1 )% x (:, 1 ) end do else do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % xheliocentric (:, i ) = tp % xh (:, i ) + cb % inner ( inner_index )% x (:, 1 ) end do end if ! Swap the planetocentric and heliocentric position vectors and central body masses tp % xh (:,:) = tp % xheliocentric (:,:) GMcb_original = cb % Gmass cb % Gmass = tp % cb_heliocentric % Gmass ! If the heliocentric-specifc acceleration terms are requested, compute those now if ( param % loblatecb ) call tp % accel_obl ( system_planetocen ) if ( param % lextra_force ) call tp % accel_user ( system_planetocen , param , t , lbeg ) if ( param % lgr ) call tp % accel_gr ( param ) ! Put everything back the way we found it tp % xh (:,:) = xh_original (:,:) cb % Gmass = GMcb_original end associate end select end select else ! Not a close encounter, so just proceded with the standard WHM method call whm_kick_getacch_tp ( tp , system , param , t , lbeg ) end if end select end associate return end subroutine rmvs_kick_getacch_tp end submodule s_rmvs_kick","tags":"","loc":"sourcefile/rmvs_kick.f90.html"},{"title":"rmvs_setup.f90 – swiftest","text":"This file depends on sourcefile~~rmvs_setup.f90~~EfferentGraph sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~rmvs_setup.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_rmvs_setup Source Code rmvs_setup.f90 Source Code submodule ( rmvs_classes ) s_rmvs_setup use swiftest contains module subroutine rmvs_setup_pl ( self , n , param ) !! author: David A. Minton !! !! Allocate RMVS test particle structure !! !! Equivalent in functionality to David E. Kaufmann's Swifter routine rmvs_setup.f90 implicit none ! Arguments class ( rmvs_pl ), intent ( inout ) :: self !! RMVS test particle object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter ! Internals integer ( I4B ) :: i , j !> Call allocation method for parent class associate ( pl => self ) call whm_setup_pl ( pl , n , param ) if ( n <= 0 ) return allocate ( pl % outer ( 0 : NTENC )) allocate ( pl % inner ( 0 : NTPHENC )) if (. not . pl % lplanetocentric ) then allocate ( pl % nenc ( n )) pl % nenc (:) = 0 ! Set up inner and outer planet interpolation vector storage containers do i = 0 , NTENC allocate ( pl % outer ( i )% x ( NDIM , n )) allocate ( pl % outer ( i )% v ( NDIM , n )) pl % outer ( i )% x (:,:) = 0.0_DP pl % outer ( i )% v (:,:) = 0.0_DP end do do i = 0 , NTPHENC allocate ( pl % inner ( i )% x ( NDIM , n )) allocate ( pl % inner ( i )% v ( NDIM , n )) pl % inner ( i )% x (:,:) = 0.0_DP pl % inner ( i )% v (:,:) = 0.0_DP end do if ( param % loblatecb ) then do i = 0 , NTPHENC allocate ( pl % inner ( i )% aobl ( NDIM , n )) pl % inner ( i )% aobl (:,:) = 0.0_DP end do end if if ( param % ltides ) then do i = 0 , NTPHENC allocate ( pl % inner ( i )% atide ( NDIM , n )) pl % inner ( i )% atide (:,:) = 0.0_DP end do end if end if end associate return end subroutine rmvs_setup_pl module subroutine rmvs_setup_initialize_system ( self , param ) !! author: David A. Minton !! !! Initialize an RMVS nbody system from files and sets up the planetocentric structures. !! !! We currently rearrange the pl order to keep it consistent with the way Swifter does it !! In Swifter, the central body occupies the first position in the pl list, and during !! encounters, the encountering planet is skipped in loops. In Swiftest, we instantiate an !! RMVS nbody system object attached to each pl to store planetocentric versions of the system !! to use during close encounters. implicit none ! Arguments class ( rmvs_nbody_system ), intent ( inout ) :: self !! RMVS system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i , j ! Call parent method call whm_setup_initialize_system ( self , param ) ! Set up the pl-tp planetocentric encounter structures for pl and cb. The planetocentric tp structures are ! generated as necessary during close encounter steps. select type ( pl => self % pl ) class is ( rmvs_pl ) select type ( cb => self % cb ) class is ( rmvs_cb ) select type ( tp => self % tp ) class is ( rmvs_tp ) tp % cb_heliocentric = cb pl % lplanetocentric = . false . tp % lplanetocentric = . false . cb % lplanetocentric = . false . associate ( npl => pl % nbody ) allocate ( pl % planetocentric ( npl )) pl % planetocentric (:)% lplanetocentric = . true . do i = 1 , npl allocate ( pl % planetocentric ( i )% cb , source = cb ) allocate ( rmvs_pl :: pl % planetocentric ( i )% pl ) select type ( cbenci => pl % planetocentric ( i )% cb ) class is ( rmvs_cb ) select type ( plenci => pl % planetocentric ( i )% pl ) class is ( rmvs_pl ) cbenci % lplanetocentric = . true . plenci % lplanetocentric = . true . call plenci % setup ( npl , param ) plenci % status (:) = ACTIVE plenci % lmask (:) = . true . ! plind stores the heliocentric index value of a planetocentric planet ! e.g. Consider an encounter with planet 3. ! Then the following will be the values of plind: ! pl%planetocentric(3)%pl%plind(1) = 0 (central body - never used) ! pl%planetocentric(3)%pl%plind(2) = 1 ! pl%planetocentric(3)%pl%plind(3) = 2 ! pl%planetocentric(3)%pl%plind(4) = 4 ! pl%planetocentric(3)%pl%plind(5) = 5 ! etc. allocate ( plenci % plind ( npl )) plenci % plind ( 1 : npl ) = [( j , j = 1 , npl )] plenci % plind ( 2 : npl ) = pack ( plenci % plind ( 1 : npl ), plenci % plind ( 1 : npl ) /= i ) plenci % plind ( 1 ) = 0 plenci % Gmass ( 1 ) = cb % Gmass plenci % Gmass ( 2 : npl ) = pl % Gmass ( plenci % plind ( 2 : npl )) cbenci % Gmass = pl % Gmass ( i ) end select end select end do end associate end select end select end select return end subroutine rmvs_setup_initialize_system module subroutine rmvs_setup_tp ( self , n , param ) !! author: David A. Minton !! !! Allocate WHM test particle structure !! !! Equivalent in functionality to David E. Kaufmann's Swifter routine whm_setup.f90 implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter !> Call allocation method for parent class. In this case, whm does not have its own setup method, so we use the base method for swiftest_tp call setup_tp ( self , n , param ) if ( n <= 0 ) return if ( allocated ( self % lperi )) deallocate ( self % lperi ) if ( allocated ( self % plperP )) deallocate ( self % plperP ) if ( allocated ( self % plencP )) deallocate ( self % plencP ) allocate ( self % lperi ( n )) allocate ( self % plperP ( n )) allocate ( self % plencP ( n )) if ( self % lplanetocentric ) then if ( allocated ( self % xheliocentric )) deallocate ( self % xheliocentric ) allocate ( self % xheliocentric ( NDIM , n )) end if self % lperi (:) = . false . return end subroutine rmvs_setup_tp end submodule s_rmvs_setup","tags":"","loc":"sourcefile/rmvs_setup.f90.html"},{"title":"rmvs_step.f90 – swiftest","text":"This file depends on sourcefile~~rmvs_step.f90~~EfferentGraph sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~rmvs_step.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_rmvs_step Source Code rmvs_step.f90 Source Code submodule ( rmvs_classes ) s_rmvs_step use swiftest contains module subroutine rmvs_step_system ( self , param , t , dt ) !! author: David A. Minton !! !! Step massive bodies and and active test particles ahead in heliocentric coordinates !! !! Adapted from Hal Levison's Swift routine rmvs3_step.f !! Adapted from David E. Kaufmann's Swifter routine rmvs_step.f90 implicit none ! Arguments class ( rmvs_nbody_system ), intent ( inout ) :: self !! RMVS nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Current stepsiz ! Internals logical :: lencounter , lfirstpl , lfirsttp real ( DP ) :: rts real ( DP ), dimension (:,:), allocatable :: xbeg , xend , vbeg integer ( I4B ) :: i select type ( cb => self % cb ) class is ( rmvs_cb ) select type ( pl => self % pl ) class is ( rmvs_pl ) select type ( tp => self % tp ) class is ( rmvs_tp ) associate ( system => self , ntp => tp % nbody , npl => pl % nbody ) allocate ( xbeg , source = pl % xh ) allocate ( vbeg , source = pl % vh ) call pl % set_beg_end ( xbeg = xbeg , vbeg = vbeg ) ! ****** Check for close encounters ***** ! system % rts = RHSCALE lencounter = tp % encounter_check ( system , dt ) if ( lencounter ) then lfirstpl = pl % lfirst pl % outer ( 0 )% x (:,:) = xbeg (:,:) pl % outer ( 0 )% v (:,:) = vbeg (:,:) call pl % step ( system , param , t , dt ) pl % outer ( NTENC )% x (:,:) = pl % xh (:,:) pl % outer ( NTENC )% v (:,:) = pl % vh (:,:) call rmvs_interp_out ( cb , pl , dt ) call rmvs_step_out ( cb , pl , tp , system , param , t , dt ) tp % lmask ( 1 : ntp ) = . not . tp % lmask ( 1 : ntp ) call pl % set_beg_end ( xbeg = xbeg , xend = xend ) tp % lfirst = . true . call tp % step ( system , param , t , dt ) tp % lmask ( 1 : ntp ) = . true . pl % lfirst = lfirstpl tp % lfirst = . true . if ( param % ltides ) call system % step_spin ( param , t , dt ) else call whm_step_system ( system , param , t , dt ) end if end associate end select end select end select return end subroutine rmvs_step_system subroutine rmvs_interp_out ( cb , pl , dt ) !! author: David A. Minton !! !! Interpolate planet positions between two Keplerian orbits in outer encounter region !! !! Adapted from David E. Kaufmann's Swifter routine rmvs_interp_out.f90 !! !! Adapted from Hal Levison's Swift routine rmvs3_interp.f implicit none ! Arguments class ( rmvs_cb ), intent ( inout ) :: cb !! RMVS central body object class ( rmvs_pl ), intent ( inout ) :: pl !! RMVS massive body object real ( DP ), intent ( in ) :: dt !! Step size ! Internals integer ( I4B ) :: i , outer_index real ( DP ) :: frac , dntenc real ( DP ), dimension (:,:), allocatable :: xtmp , vtmp real ( DP ), dimension (:), allocatable :: GMcb , dto integer ( I4B ), dimension (:), allocatable :: iflag dntenc = real ( NTENC , kind = DP ) associate ( npl => pl % nbody ) allocate ( xtmp , mold = pl % xh ) allocate ( vtmp , mold = pl % vh ) allocate ( GMcb ( npl )) allocate ( dto ( npl )) allocate ( iflag ( npl )) dto (:) = dt / dntenc GMcb (:) = cb % Gmass xtmp (:,:) = pl % outer ( 0 )% x (:, :) vtmp (:,:) = pl % outer ( 0 )% v (:, :) do outer_index = 1 , NTENC - 1 call drift_one ( GMcb ( 1 : npl ), xtmp ( 1 , 1 : npl ), xtmp ( 2 , 1 : npl ), xtmp ( 3 , 1 : npl ), & vtmp ( 1 , 1 : npl ), vtmp ( 2 , 1 : npl ), vtmp ( 3 , 1 : npl ), & dto ( 1 : npl ), iflag ( 1 : npl )) if ( any ( iflag ( 1 : npl ) /= 0 )) then do i = 1 , npl if ( iflag ( i ) /= 0 ) then write ( * , * ) \" Planet \" , pl % id ( i ), \" is lost!!!!!!!!!!\" write ( * , * ) GMcb ( i ), dto ( i ) write ( * , * ) xtmp (:, i ) write ( * , * ) vtmp (:, i ) write ( * , * ) \" STOPPING \" call util_exit ( FAILURE ) end if end do end if frac = 1.0_DP - outer_index / dntenc pl % outer ( outer_index )% x (:, :) = frac * xtmp (:,:) pl % outer ( outer_index )% v (:, :) = frac * vtmp (:,:) end do xtmp (:,:) = pl % outer ( NTENC )% x (:, :) vtmp (:,:) = pl % outer ( NTENC )% v (:, :) do outer_index = NTENC - 1 , 1 , - 1 call drift_one ( GMcb ( 1 : npl ), xtmp ( 1 , 1 : npl ), xtmp ( 2 , 1 : npl ), xtmp ( 3 , 1 : npl ), & vtmp ( 1 , 1 : npl ), vtmp ( 2 , 1 : npl ), vtmp ( 3 , 1 : npl ), & - dto ( 1 : npl ), iflag ( 1 : npl )) if ( any ( iflag ( 1 : npl ) /= 0 )) then do i = 1 , npl if ( iflag ( i ) /= 0 ) then write ( * , * ) \" Planet \" , pl % id ( i ), \" is lost!!!!!!!!!!\" write ( * , * ) GMcb ( i ), - dto ( i ) write ( * , * ) xtmp (:, i ) write ( * , * ) vtmp (:, i ) write ( * , * ) \" STOPPING \" call util_exit ( FAILURE ) end if end do end if frac = outer_index / dntenc pl % outer ( outer_index )% x (:, :) = pl % outer ( outer_index )% x (:, :) + frac * xtmp (:,:) pl % outer ( outer_index )% v (:, :) = pl % outer ( outer_index )% v (:, :) + frac * vtmp (:,:) end do end associate return end subroutine rmvs_interp_out subroutine rmvs_step_out ( cb , pl , tp , system , param , t , dt ) !! author: David A. Minton !! !! Step ACTIVE test particles ahead in the outer encounter region, setting up and calling the inner region !!    integration if necessar !! !! Adapted from Hal Levison's Swift routines rmvs3_step_out.f and rmvs3_step_out2.f !! Adapted from David E. Kaufmann's Swifter routines rmvs_step_out.f90 and rmvs_step_out2.f90 implicit none ! Arguments class ( rmvs_cb ), intent ( inout ) :: cb !! RMVS central body object class ( rmvs_pl ), intent ( inout ) :: pl !! RMVS massive body object class ( rmvs_tp ), intent ( inout ) :: tp !! RMVS test particle object class ( rmvs_nbody_system ), intent ( inout ) :: system !! RMVS nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Current stepsiz ! Internals integer ( I4B ) :: outer_index , j , k real ( DP ) :: dto , outer_time , rts logical :: lencounter , lfirsttp associate ( npl => pl % nbody , ntp => tp % nbody ) dto = dt / NTENC where ( tp % plencP (:) == 0 ) tp % lmask (:) = . false . elsewhere tp % lperi (:) = . false . end where do outer_index = 1 , NTENC outer_time = t + ( outer_index - 1 ) * dto call pl % set_beg_end ( xbeg = pl % outer ( outer_index - 1 )% x (:, :), & vbeg = pl % outer ( outer_index - 1 )% v (:, :), & xend = pl % outer ( outer_index )% x (:, :)) system % rts = RHPSCALE lencounter = tp % encounter_check ( system , dto ) if ( lencounter ) then ! Interpolate planets in inner encounter region call rmvs_interp_in ( cb , pl , system , param , dto , outer_index ) ! Step through the inner region call rmvs_step_in ( cb , pl , tp , param , outer_time , dto ) lfirsttp = tp % lfirst tp % lfirst = . true . call tp % step ( system , param , outer_time , dto ) tp % lfirst = lfirsttp else call tp % step ( system , param , outer_time , dto ) end if do j = 1 , npl if ( pl % nenc ( j ) == 0 ) cycle tp % lfirst = . true . where (( tp % plencP (:) == j ) . and . (. not . tp % lmask (:))) tp % lmask (:) = . true . end where end do end do end associate return end subroutine rmvs_step_out subroutine rmvs_interp_in ( cb , pl , system , param , dt , outer_index ) !! author: David A. Minton !! !! Interpolate planet positions between two Keplerian orbits in inner encounter regio !! !! Adapted from David E. Kaufmann's Swifter routine rmvs_interp_in.f90 !! !! Adapted from Hal Levison's Swift routine rmvs3_interp.f implicit none ! Arguments class ( rmvs_cb ), intent ( inout ) :: cb !! RMVS cenral body object class ( rmvs_pl ), intent ( inout ) :: pl !! RMVS massive body object class ( rmvs_nbody_system ), intent ( inout ) :: system !! RMVS nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Swiftest parameters file real ( DP ), intent ( in ) :: dt !! Step size integer ( I4B ), intent ( in ) :: outer_index !! Outer substep number within current set ! Internals integer ( I4B ) :: i , inner_index real ( DP ) :: frac , dntphenc real ( DP ), dimension (:,:), allocatable :: xtmp , vtmp , xh_original real ( DP ), dimension (:), allocatable :: GMcb , dti integer ( I4B ), dimension (:), allocatable :: iflag associate ( npl => system % pl % nbody ) dntphenc = real ( NTPHENC , kind = DP ) ! Set the endpoints of the inner region from the outer region values in the current outer step index pl % inner ( 0 )% x (:,:) = pl % outer ( outer_index - 1 )% x (:, :) pl % inner ( 0 )% v (:,:) = pl % outer ( outer_index - 1 )% v (:, :) pl % inner ( NTPHENC )% x (:,:) = pl % outer ( outer_index )% x (:, :) pl % inner ( NTPHENC )% v (:,:) = pl % outer ( outer_index )% v (:, :) allocate ( xtmp , mold = pl % xh ) allocate ( vtmp , mold = pl % vh ) allocate ( GMcb ( npl )) allocate ( dti ( npl )) allocate ( iflag ( npl )) dti (:) = dt / dntphenc GMcb (:) = cb % Gmass xtmp (:, :) = pl % inner ( 0 )% x (:, :) vtmp (:, :) = pl % inner ( 0 )% v (:, :) if (( param % loblatecb ) . or . ( param % ltides )) then allocate ( xh_original , source = pl % xh ) pl % xh (:, :) = xtmp (:, :) ! Temporarily replace heliocentric position with inner substep values to calculate the oblateness terms end if if ( param % loblatecb ) then call pl % accel_obl ( system ) pl % inner ( 0 )% aobl (:, :) = pl % aobl (:, :) ! Save the oblateness acceleration on the planet for this substep end if if ( param % ltides ) then call pl % accel_tides ( system ) pl % inner ( 0 )% atide (:, :) = pl % atide (:, :) ! Save the oblateness acceleration on the planet for this substep end if do inner_index = 1 , NTPHENC - 1 call drift_one ( GMcb ( 1 : npl ), xtmp ( 1 , 1 : npl ), xtmp ( 2 , 1 : npl ), xtmp ( 3 , 1 : npl ), & vtmp ( 1 , 1 : npl ), vtmp ( 2 , 1 : npl ), vtmp ( 3 , 1 : npl ), & dti ( 1 : npl ), iflag ( 1 : npl )) if ( any ( iflag ( 1 : npl ) /= 0 )) then do i = 1 , npl if ( iflag ( i ) /= 0 ) then write ( * , * ) \" Planet \" , pl % id ( i ), \" is lost!!!!!!!!!!\" write ( * , * ) GMcb ( i ), dti ( i ) write ( * , * ) xtmp (:, i ) write ( * , * ) vtmp (:, i ) write ( * , * ) \" STOPPING \" call util_exit ( failure ) end if end do end if frac = 1.0_DP - inner_index / dntphenc pl % inner ( inner_index )% x (:, :) = frac * xtmp (:,:) pl % inner ( inner_index )% v (:, :) = frac * vtmp (:,:) end do xtmp (:,:) = pl % inner ( NTPHENC )% x (:, :) vtmp (:,:) = pl % inner ( NTPHENC )% v (:, :) do inner_index = NTPHENC - 1 , 1 , - 1 call drift_one ( GMcb ( 1 : npl ), xtmp ( 1 , 1 : npl ), xtmp ( 2 , 1 : npl ), xtmp ( 3 , 1 : npl ), & vtmp ( 1 , 1 : npl ), vtmp ( 2 , 1 : npl ), vtmp ( 3 , 1 : npl ), & - dti ( 1 : npl ), iflag ( 1 : npl )) if ( any ( iflag ( 1 : npl ) /= 0 )) then do i = 1 , npl if ( iflag ( i ) /= 0 ) then write ( * , * ) \" Planet \" , pl % id ( i ), \" is lost!!!!!!!!!!\" write ( * , * ) GMcb ( i ), - dti ( i ) write ( * , * ) xtmp (:, i ) write ( * , * ) vtmp (:, i ) write ( * , * ) \" STOPPING \" call util_exit ( failure ) end if end do end if frac = inner_index / dntphenc pl % inner ( inner_index )% x (:, :) = pl % inner ( inner_index )% x (:, :) + frac * xtmp (:, :) pl % inner ( inner_index )% v (:, :) = pl % inner ( inner_index )% v (:, :) + frac * vtmp (:, :) if ( param % loblatecb ) then pl % xh (:,:) = pl % inner ( inner_index )% x (:, :) call pl % accel_obl ( system ) pl % inner ( inner_index )% aobl (:, :) = pl % aobl (:, :) end if if ( param % ltides ) then call pl % accel_tides ( system ) pl % inner ( inner_index )% atide (:, :) = pl % atide (:, :) end if end do if ( param % loblatecb ) then ! Calculate the final value of oblateness accelerations at the final inner substep pl % xh (:,:) = pl % inner ( NTPHENC )% x (:, :) call pl % accel_obl ( system ) pl % inner ( NTPHENC )% aobl (:, :) = pl % aobl (:, :) end if if ( param % ltides ) then call pl % accel_tides ( system ) pl % inner ( NTPHENC )% atide (:, :) = pl % atide (:, :) end if ! Put the planet positions back into place if ( allocated ( xh_original )) call move_alloc ( xh_original , pl % xh ) end associate return end subroutine rmvs_interp_in subroutine rmvs_step_in ( cb , pl , tp , param , outer_time , dto ) !! author: David A. Minton !! !! Step active test particles ahead in the inner encounter region !! !! Adapted from Hal Levison's Swift routine rmvs3_step_in.f !! Adapted from David E. Kaufmann's Swifter routine rmvs_step_in.f90 implicit none ! Arguments class ( rmvs_cb ), intent ( inout ) :: cb !! RMVS central body object class ( rmvs_pl ), intent ( inout ) :: pl !! RMVS massive body object class ( rmvs_tp ), intent ( inout ) :: tp !! RMVS test particle object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: outer_time !! Current time real ( DP ), intent ( in ) :: dto !! Outer step size ! Internals logical :: lfirsttp integer ( I4B ) :: i , j , ipleP real ( DP ) :: dti , inner_time associate ( npl => pl % nbody ) dti = dto / NTPHENC call rmvs_make_planetocentric ( param , cb , pl , tp ) do i = 1 , npl if ( pl % nenc ( i ) == 0 ) cycle select type ( planetocen_system => pl % planetocentric ( i )) class is ( rmvs_nbody_system ) select type ( cbenci => planetocen_system % cb ) class is ( rmvs_cb ) select type ( plenci => planetocen_system % pl ) class is ( rmvs_pl ) select type ( tpenci => planetocen_system % tp ) class is ( rmvs_tp ) associate ( inner_index => tpenci % index ) ! There are inner encounters with this planet...switch to planetocentric coordinates to proceed tpenci % lfirst = . true . inner_time = outer_time call rmvs_peri_tp ( tpenci , pl , inner_time , dti , . true ., 0 , i , param ) ! now step the encountering test particles fully through the inner encounter lfirsttp = . true . do inner_index = 1 , NTPHENC ! Integrate over the encounter region, using the \"substitute\" planetocentric systems at each level plenci % xh (:,:) = plenci % inner ( inner_index - 1 )% x (:,:) call plenci % set_beg_end ( xbeg = plenci % inner ( inner_index - 1 )% x , & xend = plenci % inner ( inner_index )% x ) if ( param % loblatecb ) then cbenci % aoblbeg = cbenci % inner ( inner_index - 1 )% aobl (:, 1 ) cbenci % aoblend = cbenci % inner ( inner_index )% aobl (:, 1 ) end if if ( param % ltides ) then cbenci % atidebeg = cbenci % inner ( inner_index - 1 )% atide (:, 1 ) cbenci % atideend = cbenci % inner ( inner_index )% atide (:, 1 ) end if call tpenci % step ( planetocen_system , param , inner_time , dti ) do j = 1 , pl % nenc ( i ) tpenci % xheliocentric (:, j ) = tpenci % xh (:, j ) + pl % inner ( inner_index )% x (:, i ) end do inner_time = outer_time + j * dti call rmvs_peri_tp ( tpenci , pl , inner_time , dti , . false ., inner_index , i , param ) end do tpenci % lmask (:) = . false . end associate end select end select end select end select end do call rmvs_end_planetocentric ( pl , tp ) end associate return end subroutine rmvs_step_in subroutine rmvs_make_planetocentric ( param , cb , pl , tp ) !! author: David A. Minton !! !! When encounters are detected, this method will call the interpolation methods for the planets and !! creates a Swiftest test particle structure for each planet's encountering test particles to simplify the !! planetocentric calculations. This subroutine is not based on an existing one from Swift and Swifter !! implicit none ! Arguments class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration paramete class ( rmvs_cb ), intent ( inout ) :: cb !! RMVS central body object class ( rmvs_pl ), intent ( inout ) :: pl !! RMVS massive body object class ( rmvs_tp ), intent ( inout ) :: tp !! RMVS test particle object ! Internals integer ( I4B ) :: i , j , inner_index , ipc2hc logical , dimension (:), allocatable :: encmask associate ( npl => pl % nbody , ntp => tp % nbody ) do i = 1 , npl if ( pl % nenc ( i ) == 0 ) cycle ! There are inner encounters with this planet if ( allocated ( encmask )) deallocate ( encmask ) allocate ( encmask ( ntp )) encmask (:) = tp % plencP (:) == i allocate ( rmvs_tp :: pl % planetocentric ( i )% tp ) ! Create encountering test particle structure select type ( cbenci => pl % planetocentric ( i )% cb ) class is ( rmvs_cb ) select type ( plenci => pl % planetocentric ( i )% pl ) class is ( rmvs_pl ) select type ( tpenci => pl % planetocentric ( i )% tp ) class is ( rmvs_tp ) tpenci % lplanetocentric = . true . call tpenci % setup ( pl % nenc ( i ), param ) tpenci % cb_heliocentric = cb tpenci % ipleP = i tpenci % lmask (:) = . true . tpenci % status (:) = ACTIVE ! Grab all the encountering test particles and convert them to a planetocentric frame tpenci % id (:) = pack ( tp % id (:), encmask (:)) do j = 1 , NDIM tpenci % xheliocentric ( j , :) = pack ( tp % xh ( j ,:), encmask (:)) tpenci % xh ( j , :) = tpenci % xheliocentric ( j , :) - pl % inner ( 0 )% x ( j , i ) tpenci % vh ( j , :) = pack ( tp % vh ( j ,:), encmask (:)) - pl % inner ( 0 )% v ( j , i ) end do tpenci % lperi (:) = pack ( tp % lperi (:), encmask (:)) tpenci % plperP (:) = pack ( tp % plperP (:), encmask (:)) ! Make sure that the test particles get the planetocentric value of mu allocate ( cbenci % inner ( 0 : NTPHENC )) do inner_index = 0 , NTPHENC allocate ( plenci % inner ( inner_index )% x , mold = pl % inner ( inner_index )% x ) allocate ( plenci % inner ( inner_index )% v , mold = pl % inner ( inner_index )% x ) allocate ( cbenci % inner ( inner_index )% x ( NDIM , 1 )) allocate ( cbenci % inner ( inner_index )% v ( NDIM , 1 )) cbenci % inner ( inner_index )% x (:, 1 ) = pl % inner ( inner_index )% x (:, i ) cbenci % inner ( inner_index )% v (:, 1 ) = pl % inner ( inner_index )% v (:, i ) plenci % inner ( inner_index )% x (:, 1 ) = - cbenci % inner ( inner_index )% x (:, 1 ) plenci % inner ( inner_index )% v (:, 1 ) = - cbenci % inner ( inner_index )% v (:, 1 ) if ( param % loblatecb ) then allocate ( plenci % inner ( inner_index )% aobl , mold = pl % inner ( inner_index )% aobl ) allocate ( cbenci % inner ( inner_index )% aobl ( NDIM , 1 )) cbenci % inner ( inner_index )% aobl (:, 1 ) = pl % inner ( inner_index )% aobl (:, i ) end if if ( param % ltides ) then allocate ( plenci % inner ( inner_index )% atide , mold = pl % inner ( inner_index )% atide ) allocate ( cbenci % inner ( inner_index )% atide ( NDIM , 1 )) cbenci % inner ( inner_index )% atide (:, 1 ) = pl % inner ( inner_index )% atide (:, i ) end if do j = 2 , npl ipc2hc = plenci % plind ( j ) plenci % inner ( inner_index )% x (:, j ) = pl % inner ( inner_index )% x (:, ipc2hc ) - cbenci % inner ( inner_index )% x (:, 1 ) plenci % inner ( inner_index )% v (:, j ) = pl % inner ( inner_index )% v (:, ipc2hc ) - cbenci % inner ( inner_index )% v (:, 1 ) end do end do call tpenci % set_mu ( cbenci ) end select end select end select end do end associate return end subroutine rmvs_make_planetocentric subroutine rmvs_peri_tp ( tp , pl , t , dt , lfirst , inner_index , ipleP , param ) !! author: David A. Minton !! !! Determine planetocentric pericenter passages for test particles in close encounters with a planet !! !! Adapted from Hal Levison's Swift routine Adapted from Hal Levison's Swift routine util_peri.f !! Adapted from David E. Kaufmann's Swifter routine rmvs_peri.f90 implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: tp !! RMVS test particle object (planetocentric) class ( rmvs_pl ), intent ( inout ) :: pl !! RMVS massive body object (heliocentric) real ( DP ), intent ( in ) :: t !! current time real ( DP ), intent ( in ) :: dt !! step size logical , intent ( in ) :: lfirst !! Logical flag indicating whether current invocation is the first integer ( I4B ), intent ( in ) :: inner_index !! Outer substep number within current set integer ( I4B ), intent ( in ) :: ipleP !!  index of RMVS planet being closely encountered class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i , id1 , id2 real ( DP ) :: r2 , mu , rhill2 , vdotr , a , peri , capm , tperi , rpl real ( DP ), dimension ( NDIM ) :: xh1 , xh2 , vh1 , vh2 rhill2 = pl % rhill ( ipleP ) ** 2 mu = pl % Gmass ( ipleP ) associate ( nenc => tp % nbody , xpc => tp % xh , vpc => tp % vh ) if ( lfirst ) then do i = 1 , nenc if ( tp % lmask ( i )) then vdotr = dot_product ( xpc (:, i ), vpc (:, i )) if ( vdotr > 0.0_DP ) then tp % isperi ( i ) = 1 else tp % isperi ( i ) = - 1 end if end if end do else do i = 1 , nenc if ( tp % lmask ( i )) then vdotr = dot_product ( xpc (:, i ), vpc (:, i )) if ( tp % isperi ( i ) == - 1 ) then if ( vdotr >= 0.0_DP ) then tp % isperi ( i ) = 0 call orbel_xv2aqt ( mu , xpc (:, i ), vpc (:, i ), a , peri , capm , tperi ) r2 = dot_product ( xpc (:, i ), xpc (:, i )) if (( abs ( tperi ) > FACQDT * dt ) . or . ( r2 > rhill2 )) peri = sqrt ( r2 ) if ( param % enc_out /= \"\" ) then id1 = pl % id ( ipleP ) rpl = pl % radius ( ipleP ) xh1 (:) = pl % inner ( inner_index )% x (:, ipleP ) vh1 (:) = pl % inner ( inner_index )% v (:, ipleP ) id2 = tp % id ( i ) xh2 (:) = xpc (:, i ) + xh1 (:) vh2 (:) = xpc (:, i ) + vh1 (:) call io_write_encounter ( t , id1 , id2 , mu , 0.0_DP , rpl , 0.0_DP , xh1 (:), xh2 (:), vh1 (:), vh2 (:), & param % enc_out , param % out_type ) end if if ( tp % lperi ( i )) then if ( peri < tp % peri ( i )) then tp % peri ( i ) = peri tp % plperP ( i ) = ipleP end if else tp % lperi ( i ) = . true . tp % peri ( i ) = peri tp % plperP ( i ) = ipleP end if end if else if ( vdotr > 0.0_DP ) then tp % isperi ( i ) = 1 else tp % isperi ( i ) = - 1 end if end if end if end do end if end associate return end subroutine rmvs_peri_tp subroutine rmvs_end_planetocentric ( pl , tp ) !! author: David A. Minton !! !! Deallocates all of the encountering particle data structures for next time !! implicit none ! Arguments class ( rmvs_pl ), intent ( inout ) :: pl !! RMVS massive body object class ( rmvs_tp ), intent ( inout ) :: tp !! RMVS test particle objec ! Internals integer ( I4B ) :: i , j , inner_index integer ( I4B ), dimension (:), allocatable :: tpind logical , dimension (:), allocatable :: encmask associate ( npl => pl % nbody , ntp => tp % nbody ) do i = 1 , npl if ( pl % nenc ( i ) == 0 ) cycle select type ( cbenci => pl % planetocentric ( i )% cb ) class is ( rmvs_cb ) select type ( plenci => pl % planetocentric ( i )% pl ) class is ( rmvs_pl ) select type ( tpenci => pl % planetocentric ( i )% tp ) class is ( rmvs_tp ) if ( allocated ( tpind )) deallocate ( tpind ) allocate ( tpind ( pl % nenc ( i ))) ! Index array of encountering test particles if ( allocated ( encmask )) deallocate ( encmask ) allocate ( encmask ( ntp )) encmask (:) = tp % plencP (:) == i tpind (:) = pack ([( j , j = 1 , ntp )], encmask (:)) ! Copy the results of the integration back over and shift back to heliocentric reference tp % status ( tpind ( 1 : pl % nenc ( i ))) = tpenci % status ( 1 : pl % nenc ( i )) tp % lmask ( tpind ( 1 : pl % nenc ( i ))) = tpenci % lmask ( 1 : pl % nenc ( i )) do j = 1 , NDIM tp % xh ( j , tpind ( 1 : pl % nenc ( i ))) = tpenci % xh ( j , 1 : pl % nenc ( i )) + pl % inner ( NTPHENC )% x ( j , i ) tp % vh ( j , tpind ( 1 : pl % nenc ( i ))) = tpenci % vh ( j , 1 : pl % nenc ( i )) + pl % inner ( NTPHENC )% v ( j , i ) end do tp % lperi ( tpind ( 1 : pl % nenc ( i ))) = tpenci % lperi ( 1 : pl % nenc ( i )) tp % plperP ( tpind ( 1 : pl % nenc ( i ))) = tpenci % plperP ( 1 : pl % nenc ( i )) deallocate ( pl % planetocentric ( i )% tp ) deallocate ( cbenci % inner ) do inner_index = 0 , NTPHENC deallocate ( plenci % inner ( inner_index )% x ) deallocate ( plenci % inner ( inner_index )% v ) if ( allocated ( plenci % inner ( inner_index )% aobl )) deallocate ( plenci % inner ( inner_index )% aobl ) if ( allocated ( plenci % inner ( inner_index )% atide )) deallocate ( plenci % inner ( inner_index )% atide ) end do end select end select end select end do end associate return end subroutine rmvs_end_planetocentric end submodule s_rmvs_step","tags":"","loc":"sourcefile/rmvs_step.f90.html"},{"title":"rmvs_encounter_check.f90 – swiftest","text":"This file depends on sourcefile~~rmvs_encounter_check.f90~~EfferentGraph sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_rmvs_chk Source Code rmvs_encounter_check.f90 Source Code submodule ( rmvs_classes ) s_rmvs_chk use swiftest contains module function rmvs_encounter_check_tp ( self , system , dt ) result ( lencounter ) !! author: David A. Minton !! !! Determine whether a test particle and planet are having or will have an encounter within the next time step !! !! Adapted from David E. Kaufmann's Swifter routine: rmvs_chk.f90 !! Adapted from Hal Levison's Swift routine rmvs3_chk.f implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( rmvs_nbody_system ), intent ( inout ) :: system !! RMVS nbody system object real ( DP ), intent ( in ) :: dt !! step size ! Result logical :: lencounter !! Returns true if there is at least one close encounter ! Internals integer ( I4B ) :: i , j real ( DP ) :: r2 , v2 , vdotr real ( DP ), dimension ( NDIM ) :: xr , vr real ( DP ), dimension ( system % pl % nbody ) :: r2crit logical :: lflag if ( self % nbody == 0 ) return select type ( pl => system % pl ) class is ( rmvs_pl ) associate ( tp => self , ntp => self % nbody , npl => pl % nbody , rts => system % rts ) r2crit (:) = ( rts * pl % rhill (:)) ** 2 tp % plencP (:) = 0 do j = 1 , npl do i = 1 , ntp if ((. not . tp % lmask ( i )). or .( tp % plencP ( i ) /= 0 )) cycle xr (:) = tp % xh (:, i ) - pl % xbeg (:, j ) vr (:) = tp % vh (:, i ) - pl % vbeg (:, j ) r2 = dot_product ( xr (:), xr (:)) v2 = dot_product ( vr (:), vr (:)) vdotr = dot_product ( vr (:), xr (:)) lflag = rmvs_chk_ind ( r2 , v2 , vdotr , dt , r2crit ( j )) if ( lflag ) tp % plencP ( i ) = j end do pl % nenc ( j ) = count ( tp % plencP (:) == j ) end do lencounter = any ( pl % nenc (:) > 0 ) end associate end select return end function rmvs_encounter_check_tp module elemental function rmvs_chk_ind ( r2 , v2 , vdotr , dt , r2crit ) result ( lflag ) !! author: David A. Minton !! !! Determine whether a test particle and planet are having or will have an encounter within the next time step !! !! Adapted from David E. Kaufmann's Swifter routine: rmvs_chk_ind.f90 !! Adapted from Hal Levison's Swift routine rmvs_chk_ind.f implicit none ! Arguments real ( DP ), intent ( in ) :: r2 , v2 , vdotr , dt , r2crit logical :: lflag ! Internals real ( DP ) :: tmin , r2min lflag = . false . if ( r2 < r2crit ) then lflag = . true . else if ( vdotr < 0.0_DP ) then tmin = - vdotr / v2 if ( tmin < dt ) then r2min = r2 - vdotr ** 2 / v2 else r2min = r2 + 2 * vdotr * dt + v2 * dt ** 2 end if r2min = min ( r2min , r2 ) lflag = ( r2min <= r2crit ) end if end if return end function rmvs_chk_ind end submodule s_rmvs_chk","tags":"","loc":"sourcefile/rmvs_encounter_check.f90.html"},{"title":"tides_derivs_func – swiftest ","text":"type, extends(lambda_obj_tvar) :: tides_derivs_func Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers Inherits type~~tides_derivs_func~~InheritsGraph type~tides_derivs_func tides_derivs_func lambda_obj_tvar lambda_obj_tvar type~tides_derivs_func->lambda_obj_tvar Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lambdaptr_tides_deriv xbeg xend dt Type-Bound Procedures init evalt tides_derivs_init Components Type Visibility Attributes Name Initial procedure( tidederiv ), public, pointer, nopass :: lambdaptr_tides_deriv real(kind=DP), public, dimension(:,:), allocatable :: xbeg real(kind=DP), public, dimension(:,:), allocatable :: xend real(kind=DP), public :: dt Type-Bound Procedures generic, public :: init => tides_derivs_init function tides_derivs_init (lambda, dt, xbeg, xend) result(f) Arguments Type Intent Optional Attributes Name procedure( tidederiv ) :: lambda real(kind=DP), intent(in) :: dt real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value type( tides_derivs_func ) procedure, public :: evalt => tides_derivs_eval function tides_derivs_eval (self, x, t) result(y) Arguments Type Intent Optional Attributes Name class( tides_derivs_func ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t Return Value real(kind=DP),\n  dimension(:), allocatable procedure, public, nopass :: tides_derivs_init function tides_derivs_init (lambda, dt, xbeg, xend) result(f) Arguments Type Intent Optional Attributes Name procedure( tidederiv ) :: lambda real(kind=DP), intent(in) :: dt real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value type( tides_derivs_func )","tags":"","loc":"type/tides_derivs_func.html"},{"title":"rmvs_nbody_system – swiftest ","text":"type, public, extends( whm_nbody_system ) :: rmvs_nbody_system Inherits type~~rmvs_nbody_system~~InheritsGraph type~rmvs_nbody_system rmvs_nbody_system type~whm_nbody_system whm_nbody_system type~rmvs_nbody_system->type~whm_nbody_system type~swiftest_nbody_system swiftest_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~swiftest_cb swiftest_cb type~swiftest_nbody_system->type~swiftest_cb cb type~swiftest_tp swiftest_tp type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~swiftest_pl swiftest_pl type~swiftest_nbody_system->type~swiftest_pl pl type~swiftest_base swiftest_base type~swiftest_nbody_system->type~swiftest_base type~swiftest_cb->type~swiftest_base type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~rmvs_nbody_system~~InheritedByGraph type~rmvs_nbody_system rmvs_nbody_system type~rmvs_pl rmvs_pl type~rmvs_pl->type~rmvs_nbody_system planetocentric Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate cb pl tp tp_discards Gmtot ke_orbit ke_spin pe te Lorbit Lspin Lescape Mescape Ecollisions Euntracked lbeg maxid lplanetocentric rts vbeg Type-Bound Procedures discard conservation_report dump read_frame write_discard write_frame step_spin set_msys get_energy_and_momentum initialize step Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number logical, public :: lplanetocentric = .false. In the RMVS integrator, only test particles are discarded\n Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations real(kind=DP), public :: rts fraction of Hill's sphere radius to use as radius of encounter region real(kind=DP), public, dimension(:,:), allocatable :: vbeg Planet velocities at beginning ot step Type-Bound Procedures procedure, public :: discard => discard_system Perform a discard step on the system interface public module subroutine discard_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time interface public module subroutine io_conservation_report(self, param, lterminal) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen procedure, public :: dump => io_dump_system Dump the state of the system to a file interface public module subroutine io_dump_system(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file interface public module subroutine io_read_frame_system(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_discard => io_write_discard Write out information about discarded test particles interface public module subroutine io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file interface public module subroutine io_write_frame_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. interface public module subroutine tides_step_spin_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. interface public module subroutine util_set_msys(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum interface public module subroutine util_get_energy_momentum_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => rmvs_setup_initialize_system Replace the abstract procedures with concrete ones\n Performs RMVS-specific initilization steps, including generating the close encounter planetocentric structures interface public module subroutine rmvs_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters procedure, public :: step => rmvs_step_system Advance the RMVS nbody system forward in time by one step interface public module subroutine rmvs_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"type/rmvs_nbody_system.html"},{"title":"rmvs_interp – swiftest ","text":"type, private :: rmvs_interp Inherited by type~~rmvs_interp~~InheritedByGraph type~rmvs_interp rmvs_interp type~rmvs_cb rmvs_cb type~rmvs_cb->type~rmvs_interp outer, inner type~rmvs_pl rmvs_pl type~rmvs_pl->type~rmvs_interp outer, inner type~rmvs_tp rmvs_tp type~rmvs_tp->type~rmvs_cb cb_heliocentric Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables x v aobl atide Components Type Visibility Attributes Name Initial real(kind=DP), public, dimension(:, :), allocatable :: x interpolated heliocentric planet position for outer encounter real(kind=DP), public, dimension(:, :), allocatable :: v interpolated heliocentric planet velocity for outer encounter real(kind=DP), public, dimension(:, :), allocatable :: aobl Encountering planet's oblateness acceleration value real(kind=DP), public, dimension(:, :), allocatable :: atide Encountering planet's tidal acceleration value","tags":"","loc":"type/rmvs_interp.html"},{"title":"rmvs_cb – swiftest ","text":"type, public, extends( whm_cb ) :: rmvs_cb RMVS central body particle class Inherits type~~rmvs_cb~~InheritsGraph type~rmvs_cb rmvs_cb type~whm_cb whm_cb type~rmvs_cb->type~whm_cb type~rmvs_interp rmvs_interp type~rmvs_cb->type~rmvs_interp outer, inner type~swiftest_cb swiftest_cb type~whm_cb->type~swiftest_cb type~swiftest_base swiftest_base type~swiftest_cb->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~rmvs_cb~~InheritedByGraph type~rmvs_cb rmvs_cb type~rmvs_tp rmvs_tp type~rmvs_tp->type~rmvs_cb cb_heliocentric Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate name id mass Gmass radius density j2rp2 j4rp4 aobl atide aoblbeg aoblend atidebeg atideend xb vb agr Ip rot k2 Q tlag L0 dL outer inner lplanetocentric Type-Bound Procedures dump initialize read_frame write_frame Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body type( rmvs_interp ), public, dimension(:), allocatable :: outer interpolated heliocentric central body position for outer encounters type( rmvs_interp ), public, dimension(:), allocatable :: inner interpolated heliocentric central body position for inner encounters logical, public :: lplanetocentric = .false. Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data interface public module subroutine io_read_cb_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body interface public module subroutine io_read_frame_cb(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_cb(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/rmvs_cb.html"},{"title":"rmvs_tp – swiftest ","text":"type, public, extends( whm_tp ) :: rmvs_tp Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the\n    component list, such as rmvs_setup_tp and rmvs_util_spill_tp Inherits type~~rmvs_tp~~InheritsGraph type~rmvs_tp rmvs_tp type~rmvs_cb rmvs_cb type~rmvs_tp->type~rmvs_cb cb_heliocentric type~whm_tp whm_tp type~rmvs_tp->type~whm_tp type~whm_cb whm_cb type~rmvs_cb->type~whm_cb type~rmvs_interp rmvs_interp type~rmvs_cb->type~rmvs_interp outer, inner type~swiftest_tp swiftest_tp type~whm_tp->type~swiftest_tp type~swiftest_cb swiftest_cb type~whm_cb->type~swiftest_cb type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_cb->type~swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm isperi peri atp lperi plperP plencP cb_heliocentric xheliocentric index ipleP lplanetocentric Type-Bound Procedures dump drift v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 accel_int accel_obl h2b b2h get_peri set_mu accel_gr gr_pos_kick kick step discard encounter_check accel setup append fill resize sort rearrange spill Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp logical, public, dimension(:), allocatable :: lperi planetocentric pericenter passage flag (persistent for a full rmvs time step) over a full RMVS time step) integer(kind=I4B), public, dimension(:), allocatable :: plperP index of planet associated with pericenter distance peri (persistent over a full RMVS time step) integer(kind=I4B), public, dimension(:), allocatable :: plencP index of planet that test particle is encountering (not persistent for a full RMVS time step) type( rmvs_cb ), public :: cb_heliocentric Copy of original central body object passed to close encounter (used for oblateness acceleration during planetocentric encoountters) real(kind=DP), public, dimension(:,:), allocatable :: xheliocentric original heliocentric position (used for oblateness calculation during close encounters) integer(kind=I4B), public :: index inner substep number within current set integer(kind=I4B), public :: ipleP index value of encountering planet logical, public :: lplanetocentric = .false. Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables interface public module subroutine drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies interface public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_tp(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles interface public module subroutine util_peri_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_gr => whm_gr_kick_getacch_tp Acceleration term arising from the post-Newtonian correction interface public module subroutine whm_gr_kick_getacch_tp(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => whm_gr_p4_tp Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine whm_gr_p4_tp(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: kick => whm_kick_vh_tp Kick heliocentric velocities of test particles interface public module subroutine whm_kick_vh_tp(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: step => whm_step_tp Steps the particle forward one stepsize interface public module subroutine whm_step_tp(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize procedure, public :: discard => rmvs_discard_tp Check to see if test particles should be discarded based on pericenter passage distances with respect to planets encountered interface public module subroutine rmvs_discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters procedure, public :: encounter_check => rmvs_encounter_check_tp Checks if any test particles are undergoing a close encounter with a massive body interface public module function rmvs_encounter_check_tp(self, system, dt) result(lencounter) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object real(kind=DP), intent(in) :: dt step size Return Value logical Returns true if there is at least one close encounter procedure, public :: accel => rmvs_kick_getacch_tp Calculates either the standard or modified version of the acceleration depending if the\n    if the test particle is undergoing a close encounter or not interface public module subroutine rmvs_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest central body particle data structuree class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: setup => rmvs_setup_tp Constructor method - Allocates space for the input number of bodiess interface public module subroutine rmvs_setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parametere procedure, public :: append => rmvs_util_append_tp Appends elements from one structure to another interface public module subroutine rmvs_util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: fill => rmvs_util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine rmvs_util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: resize => rmvs_util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine rmvs_util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: sort => rmvs_util_sort_tp Sorts body arrays by a sortable componen interface public module subroutine rmvs_util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => rmvs_util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine rmvs_util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => rmvs_util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine rmvs_util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"type/rmvs_tp.html"},{"title":"rmvs_pl – swiftest ","text":"type, public, extends( whm_pl ) :: rmvs_pl RMVS massive body particle class Inherits type~~rmvs_pl~~InheritsGraph type~rmvs_pl rmvs_pl type~rmvs_nbody_system rmvs_nbody_system type~rmvs_pl->type~rmvs_nbody_system planetocentric type~whm_pl whm_pl type~rmvs_pl->type~whm_pl type~rmvs_interp rmvs_interp type~rmvs_pl->type~rmvs_interp outer, inner type~whm_nbody_system whm_nbody_system type~rmvs_nbody_system->type~whm_nbody_system type~swiftest_pl swiftest_pl type~whm_pl->type~swiftest_pl type~swiftest_nbody_system swiftest_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~swiftest_body swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base type~swiftest_nbody_system->type~swiftest_pl pl type~swiftest_cb swiftest_cb type~swiftest_nbody_system->type~swiftest_cb cb type~swiftest_tp swiftest_tp type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~swiftest_nbody_system->type~swiftest_base type~swiftest_cb->type~swiftest_base type~swiftest_tp->type~swiftest_body Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm mass Gmass rhill radius xbeg xend vbeg density Ip rot k2 Q tlag k_plpl nplpl eta xj vj muj ir3j nenc tpenc1P plind outer inner planetocentric lplanetocentric Type-Bound Procedures dump v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user discard eucl_index accel_int accel_obl accel_tides h2b b2h set_beg_end set_rhill h2j j2h vh2vj drift accel_gr gr_pos_kick accel kick set_ir3 set_mu step setup append fill resize sort rearrange spill Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl real(kind=DP), public, dimension(:), allocatable :: eta Jacobi mass real(kind=DP), public, dimension(:,:), allocatable :: xj Jacobi position real(kind=DP), public, dimension(:,:), allocatable :: vj Jacobi velocity real(kind=DP), public, dimension(:), allocatable :: muj Jacobi mu: GMcb * eta(i) / eta(i - 1) real(kind=DP), public, dimension(:), allocatable :: ir3j Third term of heliocentric acceleration\n Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the\n    component list, such as whm_setup_pl and whm_util_spill_pl integer(kind=I4B), public, dimension(:), allocatable :: nenc number of test particles encountering planet this full rmvs time step integer(kind=I4B), public, dimension(:), allocatable :: tpenc1P index of first test particle encountering planet integer(kind=I4B), public, dimension(:), allocatable :: plind Connects the planetocentric indices back to the heliocentric planet list type( rmvs_interp ), public, dimension(:), allocatable :: outer interpolated heliocentric central body position for outer encounters type( rmvs_interp ), public, dimension(:), allocatable :: inner interpolated heliocentric central body position for inner encounters class( rmvs_nbody_system ), public, dimension(:), allocatable :: planetocentric Planetocentric version of the massive body objects (one for each massive body) logical, public :: lplanetocentric = .false. Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies interface public module subroutine discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine eucl_dist_index_plpl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies interface public pure module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body interface public module subroutine tides_kick_getacch_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. interface public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg Position vectors at beginning of step real(kind=DP), intent(in), optional dimension(:,:) :: xend Positions vectors at end of step real(kind=DP), intent(in), optional dimension(:,:) :: vbeg vbeg is an unused variable to keep this method forward compatible with RMVS procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body interface public module subroutine util_set_rhill(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: h2j => whm_coord_h2j_pl Convert position and velcoity vectors from heliocentric to Jacobi coordinates interface public module subroutine whm_coord_h2j_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree procedure, public :: j2h => whm_coord_j2h_pl Convert position and velcoity vectors from Jacobi to helliocentric coordinates interface public module subroutine whm_coord_j2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree procedure, public :: vh2vj => whm_coord_vh2vj_pl Convert velocity vectors from heliocentric to Jacobi coordinates interface public module subroutine whm_coord_vh2vj_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree procedure, public :: drift => whm_drift_pl Loop through massive bodies and call Danby drift routine to jacobi coordinates interface public module subroutine whm_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: accel_gr => whm_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction interface public module subroutine whm_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => whm_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine whm_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: accel => whm_kick_getacch_pl Compute heliocentric accelerations of massive bodies interface public module subroutine whm_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Get heliocentric accelration of massive bodies Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: kick => whm_kick_vh_pl Kick heliocentric velocities of massive bodies interface public module subroutine whm_kick_vh_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: set_ir3 => whm_util_set_ir3j Sets both the heliocentric and jacobi inverse radius terms (1/rj 3 and 1/rh 3) interface public module subroutine whm_util_set_ir3j(self) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object procedure, public :: set_mu => whm_util_set_mu_eta_pl Sets the Jacobi mass value for all massive bodies. interface public module subroutine whm_util_set_mu_eta_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: step => whm_step_pl Steps the body forward one stepsize interface public module subroutine whm_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: setup => rmvs_setup_pl Constructor method - Allocates space for the input number of bodiess interface public module subroutine rmvs_setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: append => rmvs_util_append_pl Appends elements from one structure to another interface public module subroutine rmvs_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: fill => rmvs_util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine rmvs_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: resize => rmvs_util_resize_pl Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine rmvs_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: sort => rmvs_util_sort_pl Sorts body arrays by a sortable componen interface public module subroutine rmvs_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => rmvs_util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine rmvs_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => rmvs_util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine rmvs_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"type/rmvs_pl.html"},{"title":"helio_nbody_system – swiftest ","text":"type, public, extends( whm_nbody_system ) :: helio_nbody_system Inherits type~~helio_nbody_system~~InheritsGraph type~helio_nbody_system helio_nbody_system type~whm_nbody_system whm_nbody_system type~helio_nbody_system->type~whm_nbody_system type~swiftest_nbody_system swiftest_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~swiftest_cb swiftest_cb type~swiftest_nbody_system->type~swiftest_cb cb type~swiftest_tp swiftest_tp type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~swiftest_pl swiftest_pl type~swiftest_nbody_system->type~swiftest_pl pl type~swiftest_base swiftest_base type~swiftest_nbody_system->type~swiftest_base type~swiftest_cb->type~swiftest_base type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~helio_nbody_system~~InheritedByGraph type~helio_nbody_system helio_nbody_system type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_nbody_system Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate cb pl tp tp_discards Gmtot ke_orbit ke_spin pe te Lorbit Lspin Lescape Mescape Ecollisions Euntracked lbeg maxid Type-Bound Procedures discard conservation_report dump read_frame write_discard write_frame step_spin set_msys get_energy_and_momentum initialize step Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number Type-Bound Procedures procedure, public :: discard => discard_system Perform a discard step on the system interface public module subroutine discard_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time interface public module subroutine io_conservation_report(self, param, lterminal) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen procedure, public :: dump => io_dump_system Dump the state of the system to a file interface public module subroutine io_dump_system(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file interface public module subroutine io_read_frame_system(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_discard => io_write_discard Write out information about discarded test particles interface public module subroutine io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file interface public module subroutine io_write_frame_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. interface public module subroutine tides_step_spin_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. interface public module subroutine util_set_msys(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum interface public module subroutine util_get_energy_momentum_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => whm_setup_initialize_system Replace the abstract procedures with concrete ones\n Performs WHM-specific initilization steps, like calculating the Jacobi masses interface public module subroutine whm_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters procedure, public :: step => helio_step_system Advance the Helio nbody system forward in time by one step interface public module subroutine helio_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_nbody_system ), intent(inout) :: self Helio nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"type/helio_nbody_system.html"},{"title":"helio_cb – swiftest ","text":"type, public, extends( swiftest_cb ) :: helio_cb Helio central body particle class Inherits type~~helio_cb~~InheritsGraph type~helio_cb helio_cb type~swiftest_cb swiftest_cb type~helio_cb->type~swiftest_cb type~swiftest_base swiftest_base type~swiftest_cb->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~helio_cb~~InheritedByGraph type~helio_cb helio_cb type~symba_cb symba_cb type~symba_cb->type~helio_cb Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate name id mass Gmass radius density j2rp2 j4rp4 aobl atide aoblbeg aoblend atidebeg atideend xb vb agr Ip rot k2 Q tlag L0 dL ptbeg ptend Type-Bound Procedures dump initialize read_frame write_frame Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: ptbeg negative barycentric velocity of the central body at the beginning of time step real(kind=DP), public, dimension(NDIM) :: ptend negative barycentric velocity of the central body at the end of time step Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data interface public module subroutine io_read_cb_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body interface public module subroutine io_read_frame_cb(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_cb(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/helio_cb.html"},{"title":"helio_pl – swiftest ","text":"type, public, extends( swiftest_pl ) :: helio_pl Inherits type~~helio_pl~~InheritsGraph type~helio_pl helio_pl type~swiftest_pl swiftest_pl type~helio_pl->type~swiftest_pl type~swiftest_body swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~helio_pl~~InheritedByGraph type~helio_pl helio_pl type~symba_pl symba_pl type~symba_pl->type~helio_pl type~symba_merger symba_merger type~symba_merger->type~symba_pl type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~symba_merger mergeadd_list, mergesub_list Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm mass Gmass rhill radius xbeg xend vbeg density Ip rot k2 Q tlag k_plpl nplpl Type-Bound Procedures dump v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 discard eucl_index accel_int accel_obl setup accel_tides append h2b b2h fill resize set_beg_end set_mu set_rhill sort rearrange spill vh2vb vb2vh drift lindrift accel_gr gr_pos_kick accel kick step Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies interface public module subroutine discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine eucl_dist_index_plpl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies interface public pure module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: setup => setup_pl A base constructor that sets the number of bodies and allocates and initializes all arrays interface public module subroutine setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body interface public module subroutine tides_kick_getacch_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: append => util_append_pl Appends elements from one structure to another interface public module subroutine util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: fill => util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: resize => util_resize_pl Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. interface public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg Position vectors at beginning of step real(kind=DP), intent(in), optional dimension(:,:) :: xend Positions vectors at end of step real(kind=DP), intent(in), optional dimension(:,:) :: vbeg vbeg is an unused variable to keep this method forward compatible with RMVS procedure, public :: set_mu => util_set_mu_pl Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body interface public module subroutine util_set_rhill(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: sort => util_sort_pl Sorts body arrays by a sortable component interface public module subroutine util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not procedure, public :: vh2vb => helio_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) interface public module subroutine helio_coord_vh2vb_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: vb2vh => helio_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) interface public module subroutine helio_coord_vb2vh_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: drift => helio_drift_pl Method for Danby drift in Democratic Heliocentric coordinates interface public module subroutine helio_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: lindrift => helio_drift_linear_pl Method for linear drift of massive bodies due to barycentric momentum of Sun interface public module subroutine helio_drift_linear_pl(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( helio_cb ), intent(inout) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step procedure, public :: accel_gr => helio_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction interface public module subroutine helio_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => helio_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine helio_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: accel => helio_kick_getacch_pl Compute heliocentric accelerations of massive bodies interface public module subroutine helio_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: kick => helio_kick_vb_pl Kicks the barycentric velocities interface public module subroutine helio_kick_vb_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: step => helio_step_pl Steps the body forward one stepsize interface public module subroutine helio_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"type/helio_pl.html"},{"title":"helio_tp – swiftest ","text":"type, public, extends( swiftest_tp ) :: helio_tp Inherits type~~helio_tp~~InheritsGraph type~helio_tp helio_tp type~swiftest_tp swiftest_tp type~helio_tp->type~swiftest_tp type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~helio_tp~~InheritedByGraph type~helio_tp helio_tp type~symba_tp symba_tp type~symba_tp->type~helio_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm isperi peri atp Type-Bound Procedures dump v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 discard accel_int accel_obl setup append h2b b2h fill get_peri resize set_mu sort rearrange spill vh2vb vb2vh lindrift drift accel_gr gr_pos_kick accel kick step Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: discard => discard_tp Check to see if test particles should be discarded based on their positions relative to the massive bodies interface public module subroutine discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies interface public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_tp(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: setup => setup_tp A base constructor that sets the number of bodies and interface public module subroutine setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parametersr procedure, public :: append => util_append_tp Appends elements from one structure to another interface public module subroutine util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: fill => util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles interface public module subroutine util_peri_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: resize => util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: sort => util_sort_tp Sorts body arrays by a sortable component interface public module subroutine util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not procedure, public :: vh2vb => helio_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) interface public module subroutine helio_coord_vh2vb_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: vb2vh => helio_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) interface public module subroutine helio_coord_vb2vh_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: lindrift => helio_drift_linear_tp Method for linear drift of massive bodies due to barycentric momentum of Sun interface public module subroutine helio_drift_linear_tp(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( helio_cb ), intent(in) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step procedure, public :: drift => helio_drift_tp Method for Danby drift in Democratic Heliocentric coordinates interface public module subroutine helio_drift_tp(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: accel_gr => helio_gr_kick_getacch_tp Acceleration term arising from the post-Newtonian correction interface public module subroutine helio_gr_kick_getacch_tp(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => helio_gr_p4_tp Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine helio_gr_p4_tp(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: accel => helio_kick_getacch_tp Compute heliocentric accelerations of massive bodies interface public module subroutine helio_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: kick => helio_kick_vb_tp Kicks the barycentric velocities interface public module subroutine helio_kick_vb_tp(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: step => helio_step_tp Steps the body forward one stepsize interface public module subroutine helio_step_tp(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsizee","tags":"","loc":"type/helio_tp.html"},{"title":"whm_cb – swiftest ","text":"type, public, extends( swiftest_cb ) :: whm_cb Swiftest central body particle class Inherits type~~whm_cb~~InheritsGraph type~whm_cb whm_cb type~swiftest_cb swiftest_cb type~whm_cb->type~swiftest_cb type~swiftest_base swiftest_base type~swiftest_cb->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~whm_cb~~InheritedByGraph type~whm_cb whm_cb type~rmvs_cb rmvs_cb type~rmvs_cb->type~whm_cb type~rmvs_tp rmvs_tp type~rmvs_tp->type~rmvs_cb cb_heliocentric Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate name id mass Gmass radius density j2rp2 j4rp4 aobl atide aoblbeg aoblend atidebeg atideend xb vb agr Ip rot k2 Q tlag L0 dL Type-Bound Procedures dump initialize read_frame write_frame Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data interface public module subroutine io_read_cb_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body interface public module subroutine io_read_frame_cb(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_cb(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/whm_cb.html"},{"title":"whm_pl – swiftest ","text":"type, public, extends( swiftest_pl ) :: whm_pl WHM massive body particle class Inherits type~~whm_pl~~InheritsGraph type~whm_pl whm_pl type~swiftest_pl swiftest_pl type~whm_pl->type~swiftest_pl type~swiftest_body swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~whm_pl~~InheritedByGraph type~whm_pl whm_pl type~rmvs_pl rmvs_pl type~rmvs_pl->type~whm_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm mass Gmass rhill radius xbeg xend vbeg density Ip rot k2 Q tlag k_plpl nplpl eta xj vj muj ir3j Type-Bound Procedures dump v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user discard eucl_index accel_int accel_obl accel_tides h2b b2h set_beg_end set_rhill h2j j2h vh2vj drift accel_gr gr_pos_kick accel kick append fill resize set_ir3 set_mu sort rearrange spill setup step Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl real(kind=DP), public, dimension(:), allocatable :: eta Jacobi mass real(kind=DP), public, dimension(:,:), allocatable :: xj Jacobi position real(kind=DP), public, dimension(:,:), allocatable :: vj Jacobi velocity real(kind=DP), public, dimension(:), allocatable :: muj Jacobi mu: GMcb * eta(i) / eta(i - 1) real(kind=DP), public, dimension(:), allocatable :: ir3j Third term of heliocentric acceleration\n Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the\n    component list, such as whm_setup_pl and whm_util_spill_pl Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies interface public module subroutine discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine eucl_dist_index_plpl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies interface public pure module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body interface public module subroutine tides_kick_getacch_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. interface public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg Position vectors at beginning of step real(kind=DP), intent(in), optional dimension(:,:) :: xend Positions vectors at end of step real(kind=DP), intent(in), optional dimension(:,:) :: vbeg vbeg is an unused variable to keep this method forward compatible with RMVS procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body interface public module subroutine util_set_rhill(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: h2j => whm_coord_h2j_pl Convert position and velcoity vectors from heliocentric to Jacobi coordinates interface public module subroutine whm_coord_h2j_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree procedure, public :: j2h => whm_coord_j2h_pl Convert position and velcoity vectors from Jacobi to helliocentric coordinates interface public module subroutine whm_coord_j2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree procedure, public :: vh2vj => whm_coord_vh2vj_pl Convert velocity vectors from heliocentric to Jacobi coordinates interface public module subroutine whm_coord_vh2vj_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree procedure, public :: drift => whm_drift_pl Loop through massive bodies and call Danby drift routine to jacobi coordinates interface public module subroutine whm_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: accel_gr => whm_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction interface public module subroutine whm_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => whm_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine whm_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: accel => whm_kick_getacch_pl Compute heliocentric accelerations of massive bodies interface public module subroutine whm_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Get heliocentric accelration of massive bodies Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: kick => whm_kick_vh_pl Kick heliocentric velocities of massive bodies interface public module subroutine whm_kick_vh_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: append => whm_util_append_pl Appends elements from one structure to another interface public module subroutine whm_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: fill => whm_util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine whm_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: inserts inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: resize => whm_util_resize_pl Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine whm_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: set_ir3 => whm_util_set_ir3j Sets both the heliocentric and jacobi inverse radius terms (1/rj 3 and 1/rh 3) interface public module subroutine whm_util_set_ir3j(self) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object procedure, public :: set_mu => whm_util_set_mu_eta_pl Sets the Jacobi mass value for all massive bodies. interface public module subroutine whm_util_set_mu_eta_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: sort => whm_util_sort_pl Sort a WHM massive body object in-place. interface public module subroutine whm_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => whm_util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine whm_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => whm_util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine whm_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not procedure, public :: setup => whm_setup_pl Constructor method - Allocates space for the input number of bodiess interface public module subroutine whm_setup_pl(self, n, param) Implementation → Reads WHM massive body object in from file Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body objectobject integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: step => whm_step_pl Steps the body forward one stepsize interface public module subroutine whm_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"type/whm_pl.html"},{"title":"whm_tp – swiftest ","text":"type, public, extends( swiftest_tp ) :: whm_tp Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the\n    component list, such as whm_util_spill_tp Inherits type~~whm_tp~~InheritsGraph type~whm_tp whm_tp type~swiftest_tp swiftest_tp type~whm_tp->type~swiftest_tp type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~whm_tp~~InheritedByGraph type~whm_tp whm_tp type~rmvs_tp rmvs_tp type~rmvs_tp->type~whm_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm isperi peri atp Type-Bound Procedures dump drift v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 discard accel_int accel_obl setup append h2b b2h fill get_peri resize set_mu sort rearrange spill accel_gr gr_pos_kick accel kick step Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables interface public module subroutine drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: discard => discard_tp Check to see if test particles should be discarded based on their positions relative to the massive bodies interface public module subroutine discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies interface public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_tp(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: setup => setup_tp A base constructor that sets the number of bodies and interface public module subroutine setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parametersr procedure, public :: append => util_append_tp Appends elements from one structure to another interface public module subroutine util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: fill => util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles interface public module subroutine util_peri_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: resize => util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: sort => util_sort_tp Sorts body arrays by a sortable component interface public module subroutine util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not procedure, public :: accel_gr => whm_gr_kick_getacch_tp Acceleration term arising from the post-Newtonian correction interface public module subroutine whm_gr_kick_getacch_tp(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => whm_gr_p4_tp Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine whm_gr_p4_tp(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: accel => whm_kick_getacch_tp Compute heliocentric accelerations of test particles interface public module subroutine whm_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Get heliocentric accelration of the test particle Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: kick => whm_kick_vh_tp Kick heliocentric velocities of test particles interface public module subroutine whm_kick_vh_tp(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: step => whm_step_tp Steps the particle forward one stepsize interface public module subroutine whm_step_tp(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"type/whm_tp.html"},{"title":"whm_nbody_system – swiftest ","text":"type, public, extends( swiftest_nbody_system ) :: whm_nbody_system An abstract class for the WHM integrator nbody system Inherits type~~whm_nbody_system~~InheritsGraph type~whm_nbody_system whm_nbody_system type~swiftest_nbody_system swiftest_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~swiftest_cb swiftest_cb type~swiftest_nbody_system->type~swiftest_cb cb type~swiftest_tp swiftest_tp type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~swiftest_pl swiftest_pl type~swiftest_nbody_system->type~swiftest_pl pl type~swiftest_base swiftest_base type~swiftest_nbody_system->type~swiftest_base type~swiftest_cb->type~swiftest_base type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~whm_nbody_system~~InheritedByGraph type~whm_nbody_system whm_nbody_system type~helio_nbody_system helio_nbody_system type~helio_nbody_system->type~whm_nbody_system type~rmvs_nbody_system rmvs_nbody_system type~rmvs_nbody_system->type~whm_nbody_system type~rmvs_pl rmvs_pl type~rmvs_pl->type~rmvs_nbody_system planetocentric type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_nbody_system Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate cb pl tp tp_discards Gmtot ke_orbit ke_spin pe te Lorbit Lspin Lescape Mescape Ecollisions Euntracked lbeg maxid Type-Bound Procedures discard conservation_report dump read_frame write_discard write_frame step_spin set_msys get_energy_and_momentum initialize step Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number Type-Bound Procedures procedure, public :: discard => discard_system Perform a discard step on the system interface public module subroutine discard_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time interface public module subroutine io_conservation_report(self, param, lterminal) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen procedure, public :: dump => io_dump_system Dump the state of the system to a file interface public module subroutine io_dump_system(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file interface public module subroutine io_read_frame_system(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_discard => io_write_discard Write out information about discarded test particles interface public module subroutine io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file interface public module subroutine io_write_frame_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. interface public module subroutine tides_step_spin_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. interface public module subroutine util_set_msys(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum interface public module subroutine util_get_energy_momentum_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => whm_setup_initialize_system Replace the abstract procedures with concrete ones\n Performs WHM-specific initilization steps, like calculating the Jacobi masses interface public module subroutine whm_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters procedure, public :: step => whm_step_system Advance the WHM nbody system forward in time by one step interface public module subroutine whm_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"type/whm_nbody_system.html"},{"title":"symba_parameters – swiftest ","text":"type, public, extends( swiftest_parameters ) :: symba_parameters Inherits type~~symba_parameters~~InheritsGraph type~symba_parameters symba_parameters type~swiftest_parameters swiftest_parameters type~symba_parameters->type~swiftest_parameters Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables integrator nplmax ntpmax t0 t tstop dt incbfile inplfile intpfile in_type istep_out outfile out_type out_form out_stat istep_dump rmin rmax rmaxu qmin qmin_coord qmin_alo qmin_ahi enc_out discard_out MU2KG TU2S DU2M GU inv_c2 ennergy_out lrhill_present lextra_force lbig_discard lclose lenergy loblatecb lrotation ltides Eorbit_orig Mtot_orig Lmag_orig Ltot_orig Lorbit_orig Lspin_orig Ltot Lescape Mescape Ecollisions Euntracked lfirstenergy lfirstkick lgr lyarkovsky lyorp particle_file MTINY seed lfragmentation Type-Bound Procedures dump read_from_file reader writer Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: integrator = UNKNOWN_INTEGRATOR Symbolic name of the nbody integrator  used integer(kind=I4B), public :: nplmax = -1 Maximum allowed number of massive bodies integer(kind=I4B), public :: ntpmax = -1 Maximum allowed number of test particles real(kind=DP), public :: t0 = -1.0_DP Integration start time real(kind=DP), public :: t = -1.0_DP Integration current time real(kind=DP), public :: tstop = -1.0_DP Integration stop time real(kind=DP), public :: dt = -1.0_DP Time step character(len=STRMAX), public :: incbfile = CB_INFILE Name of input file for the central body character(len=STRMAX), public :: inplfile = PL_INFILE Name of input file for massive bodies character(len=STRMAX), public :: intpfile = TP_INFILE Name of input file for test particles character(len=STRMAX), public :: in_type = ASCII_TYPE Format of input data files integer(kind=I4B), public :: istep_out = -1 Number of time steps between binary outputs character(len=STRMAX), public :: outfile = BIN_OUTFILE Name of output binary file character(len=STRMAX), public :: out_type = REAL8_TYPE Binary format of output file character(len=STRMAX), public :: out_form = XV Data to write to output file character(len=STRMAX), public :: out_stat = 'NEW' Open status for output binary file integer(kind=I4B), public :: istep_dump = -1 Number of time steps between dumps real(kind=DP), public :: rmin = -1.0_DP Minimum heliocentric radius for test particle real(kind=DP), public :: rmax = -1.0_DP Maximum heliocentric radius for test particle real(kind=DP), public :: rmaxu = -1.0_DP Maximum unbound heliocentric radius for test particle real(kind=DP), public :: qmin = -1.0_DP Minimum pericenter distance for test particle character(len=STRMAX), public :: qmin_coord = 'HELIO' Coordinate frame to use for qmin real(kind=DP), public :: qmin_alo = -1.0_DP Minimum semimajor axis for qmin real(kind=DP), public :: qmin_ahi = -1.0_DP Maximum semimajor axis for qmin character(len=STRMAX), public :: enc_out = \"\" Name of output file for encounters character(len=STRMAX), public :: discard_out = \"\" Name of output file for discards real(kind=QP), public :: MU2KG = -1.0_QP Converts mass units to grams real(kind=QP), public :: TU2S = -1.0_QP Converts time units to seconds real(kind=QP), public :: DU2M = -1.0_QP Converts distance unit to centimeters real(kind=DP), public :: GU = -1.0_DP Universal gravitational constant in the system units real(kind=DP), public :: inv_c2 = -1.0_DP Inverse speed of light squared in the system units character(len=STRMAX), public :: ennergy_out = \"\" Name of output energy and momentum report file logical, public :: lrhill_present = .false. Hill radii are given as an input rather than calculated by the code (can be used to inflate close encounter regions manually) logical, public :: lextra_force = .false. User defined force function turned on logical, public :: lbig_discard = .false. Save big bodies on every discard logical, public :: lclose = .false. Turn on close encounters logical, public :: lenergy = .false. Track the total energy of the system logical, public :: loblatecb = .false. Calculate acceleration from oblate central body (automatically turns true if nonzero J2 is input) logical, public :: lrotation = .false. Include rotation states of big bodies logical, public :: ltides = .false. Include tidal dissipation real(kind=DP), public :: Eorbit_orig = 0.0_DP Initial orbital energy real(kind=DP), public :: Mtot_orig = 0.0_DP Initial system mass real(kind=DP), public :: Lmag_orig = 0.0_DP Initial total angular momentum magnitude real(kind=DP), public, dimension(NDIM) :: Ltot_orig = 0.0_DP Initial total angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lorbit_orig = 0.0_DP Initial orbital angular momentum real(kind=DP), public, dimension(NDIM) :: Lspin_orig = 0.0_DP Initial spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Ltot = 0.0_DP System angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lfirstenergy = .true. This is the first time computing energe logical, public :: lfirstkick = .true. Initiate the first kick in a symplectic step logical, public :: lgr = .false. Turn on GR logical, public :: lyarkovsky = .false. Turn on Yarkovsky effect logical, public :: lyorp = .false. Turn on YORP effect character(len=STRMAX), public :: particle_file = PARTICLE_OUTFILE Name of output particle information file real(kind=DP), public :: MTINY = -1.0_DP Smallest mass that is fully gravitating integer(kind=I4B), public, dimension(:), allocatable :: seed Random seeds logical, public :: lfragmentation = .false. Do fragmentation modeling instead of simple merger. Type-Bound Procedures procedure, public :: dump => io_dump_param interface public module subroutine io_dump_param(self, param_file_name) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Output collection of parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) procedure, public :: read_from_file => io_read_param_in interface public module subroutine io_read_param_in(self, param_file_name) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Current run configuration parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) procedure, public :: reader => symba_io_param_reader interface public module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(inout) :: self Current run configuration parameters with SyMBA additionss integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) The first element passes the integrator code to the reader integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 procedure, public :: writer => symba_io_param_writer interface public module subroutine symba_io_param_writer(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(in) :: self Current run configuration parameters with SyMBA additions integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) Not used in this procedure integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0","tags":"","loc":"type/symba_parameters.html"},{"title":"symba_cb – swiftest ","text":"type, public, extends( helio_cb ) :: symba_cb SyMBA central body particle class Inherits type~~symba_cb~~InheritsGraph type~symba_cb symba_cb type~helio_cb helio_cb type~symba_cb->type~helio_cb type~swiftest_cb swiftest_cb type~helio_cb->type~swiftest_cb type~swiftest_base swiftest_base type~swiftest_cb->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate name id mass Gmass radius density j2rp2 j4rp4 aobl atide aoblbeg aoblend atidebeg atideend xb vb agr Ip rot k2 Q tlag L0 dL ptbeg ptend M0 dM R0 dR Type-Bound Procedures dump initialize read_frame write_frame Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: ptbeg negative barycentric velocity of the central body at the beginning of time step real(kind=DP), public, dimension(NDIM) :: ptend negative barycentric velocity of the central body at the end of time step real(kind=DP), public :: M0 = 0.0_DP Initial mass of the central body real(kind=DP), public :: dM = 0.0_DP Change in mass of the central body real(kind=DP), public :: R0 = 0.0_DP Initial radius of the central body real(kind=DP), public :: dR = 0.0_DP Change in the radius of the central body Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data interface public module subroutine io_read_cb_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body interface public module subroutine io_read_frame_cb(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_cb(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/symba_cb.html"},{"title":"symba_particle_info – swiftest ","text":"type, public, extends( swiftest_base ) :: symba_particle_info Class definition for the particle origin information object. This object is used to track time, location, and collisional regime\n of fragments produced in collisional events. Inherits type~~symba_particle_info~~InheritsGraph type~symba_particle_info symba_particle_info type~swiftest_base swiftest_base type~symba_particle_info->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~symba_particle_info~~InheritedByGraph type~symba_particle_info symba_particle_info type~symba_pl symba_pl type~symba_pl->type~symba_particle_info info type~symba_merger symba_merger type~symba_merger->type~symba_pl type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~symba_merger mergeadd_list, mergesub_list Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate origin_type origin_time origin_xh origin_vh Type-Bound Procedures dump initialize read_frame write_frame Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=32), public :: origin_type String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.) real(kind=DP), public :: origin_time The time of the particle's formation real(kind=DP), public, dimension(NDIM) :: origin_xh The heliocentric distance vector at the time of the particle's formation real(kind=DP), public, dimension(NDIM) :: origin_vh The heliocentric velocity vector at the time of the particle's formation Type-Bound Procedures procedure, public :: dump => symba_io_dump_particle_info I/O routine for dumping particle info to file interface public module subroutine symba_io_dump_particle_info(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: initialize => symba_io_initialize_particle_info I/O routine for reading in particle info data interface public module subroutine symba_io_initialize_particle_info(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(inout) :: self SyMBA particle info object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => symba_io_read_frame_info I/O routine for reading in a single frame of particle info interface public module subroutine symba_io_read_frame_info(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(inout) :: self SyMBA particle info object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => symba_io_write_frame_info I/O routine for writing out a single frame of particle info interface public module subroutine symba_io_write_frame_info(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(in) :: self SyMBA particle info object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/symba_particle_info.html"},{"title":"symba_kinship – swiftest ","text":"type, public :: symba_kinship Class definition for the kinship relationships used in bookkeeping multiple collisions bodies in a single time step. Inherited by type~~symba_kinship~~InheritedByGraph type~symba_kinship symba_kinship type~symba_pl symba_pl type~symba_pl->type~symba_kinship kin type~symba_merger symba_merger type~symba_merger->type~symba_pl type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~symba_merger mergeadd_list, mergesub_list Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables parent nchild child Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: parent Index of parent particle integer(kind=I4B), public :: nchild number of children in merger list integer(kind=I4B), public, dimension(:), allocatable :: child Index of children particles","tags":"","loc":"type/symba_kinship.html"},{"title":"symba_pl – swiftest ","text":"type, public, extends( helio_pl ) :: symba_pl SyMBA massive body class Inherits type~~symba_pl~~InheritsGraph type~symba_pl symba_pl type~symba_kinship symba_kinship type~symba_pl->type~symba_kinship kin type~helio_pl helio_pl type~symba_pl->type~helio_pl type~symba_particle_info symba_particle_info type~symba_pl->type~symba_particle_info info type~swiftest_pl swiftest_pl type~helio_pl->type~swiftest_pl type~swiftest_base swiftest_base type~symba_particle_info->type~swiftest_base type~swiftest_body swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~symba_pl~~InheritedByGraph type~symba_pl symba_pl type~symba_merger symba_merger type~symba_merger->type~symba_pl type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~symba_merger mergeadd_list, mergesub_list Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm mass Gmass rhill radius xbeg xend vbeg density Ip rot k2 Q tlag k_plpl nplpl lcollision lencounter lmtiny nplm nplplm nplenc ntpenc levelg levelm isperi peri atp kin info Type-Bound Procedures dump v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 eucl_index accel_int accel_obl accel_tides h2b b2h set_beg_end set_mu set_rhill vh2vb vb2vh lindrift accel_gr gr_pos_kick kick step make_family discard drift encounter_check accel setup append fill get_peri rearray resize sort rearrange spill Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl logical, public, dimension(:), allocatable :: lcollision flag indicating whether body has merged with another this time step logical, public, dimension(:), allocatable :: lencounter flag indicating whether body is part of an encounter this time step logical, public, dimension(:), allocatable :: lmtiny flag indicating whether this body is below the MTINY cutoff value integer(kind=I4B), public :: nplm number of bodies above the MTINY limit integer(kind=I8B), public :: nplplm Number of body (all massive)-body (only those above MTINY) comparisons in the flattened upper triangular matrix integer(kind=I4B), public, dimension(:), allocatable :: nplenc number of encounters with other planets this time step integer(kind=I4B), public, dimension(:), allocatable :: ntpenc number of encounters with test particles this time step integer(kind=I4B), public, dimension(:), allocatable :: levelg level at which this body should be moved integer(kind=I4B), public, dimension(:), allocatable :: levelm deepest encounter level achieved this time step integer(kind=I4B), public, dimension(:), allocatable :: isperi perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp semimajor axis following perihelion passage type( symba_kinship ), public, dimension(:), allocatable :: kin Array of merger relationship structures that can account for multiple pairwise mergers in a single step type( symba_particle_info ), public, dimension(:), allocatable :: info Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine eucl_dist_index_plpl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies interface public pure module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body interface public module subroutine tides_kick_getacch_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. interface public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg Position vectors at beginning of step real(kind=DP), intent(in), optional dimension(:,:) :: xend Positions vectors at end of step real(kind=DP), intent(in), optional dimension(:,:) :: vbeg vbeg is an unused variable to keep this method forward compatible with RMVS procedure, public :: set_mu => util_set_mu_pl Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body interface public module subroutine util_set_rhill(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: vh2vb => helio_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) interface public module subroutine helio_coord_vh2vb_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: vb2vh => helio_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) interface public module subroutine helio_coord_vb2vh_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: lindrift => helio_drift_linear_pl Method for linear drift of massive bodies due to barycentric momentum of Sun interface public module subroutine helio_drift_linear_pl(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( helio_cb ), intent(inout) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step procedure, public :: accel_gr => helio_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction interface public module subroutine helio_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => helio_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine helio_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: kick => helio_kick_vb_pl Kicks the barycentric velocities interface public module subroutine helio_kick_vb_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: step => helio_step_pl Steps the body forward one stepsize interface public module subroutine helio_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize procedure, public :: make_family => symba_collision_make_family_pl When a single body is involved in more than one collision in a single step, it becomes part of a family interface public module subroutine symba_collision_make_family_pl(self, idx) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(2) :: idx Array holding the indices of the two bodies involved in the collision procedure, public :: discard => symba_discard_pl Process massive body discards interface public module subroutine symba_discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: drift => symba_drift_pl Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level interface public module subroutine symba_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: encounter_check => symba_encounter_check_pl Checks if massive bodies are going through close encounters with each other interface public module function symba_encounter_check_pl(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter procedure, public :: accel => symba_kick_getacch_pl Compute heliocentric accelerations of massive bodies interface public module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: setup => symba_setup_pl Constructor method - Allocates space for the input number of bodies interface public module subroutine symba_setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: append => symba_util_append_pl Appends elements from one structure to another interface public module subroutine symba_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: fill => symba_util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine symba_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: get_peri => symba_util_peri_pl Determine system pericenter passages for massive bodies interface public module subroutine symba_util_peri_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: rearray => symba_util_rearray_pl Clean up the massive body structures to remove discarded bodies and add new bodies interface public module subroutine symba_util_rearray_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions procedure, public :: resize => symba_util_resize_pl Checks the current size of a SyMBA massive body against the requested size and resizes it if it is too small. interface public module subroutine symba_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: sort => symba_util_sort_pl Sorts body arrays by a sortable componen interface public module subroutine symba_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => symba_util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine symba_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => symba_util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine symba_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"type/symba_pl.html"},{"title":"symba_merger – swiftest ","text":"type, public, extends( symba_pl ) :: symba_merger Inherits type~~symba_merger~~InheritsGraph type~symba_merger symba_merger type~symba_pl symba_pl type~symba_merger->type~symba_pl type~symba_kinship symba_kinship type~symba_pl->type~symba_kinship kin type~helio_pl helio_pl type~symba_pl->type~helio_pl type~symba_particle_info symba_particle_info type~symba_pl->type~symba_particle_info info type~swiftest_pl swiftest_pl type~helio_pl->type~swiftest_pl type~swiftest_base swiftest_base type~symba_particle_info->type~swiftest_base type~swiftest_body swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~symba_merger~~InheritedByGraph type~symba_merger symba_merger type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~symba_merger mergeadd_list, mergesub_list Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm mass Gmass rhill radius xbeg xend vbeg density Ip rot k2 Q tlag k_plpl nplpl lcollision lencounter lmtiny nplm nplplm nplenc ntpenc levelg levelm isperi peri atp kin info ncomp Type-Bound Procedures dump v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 eucl_index accel_int accel_obl accel_tides h2b b2h set_beg_end set_mu set_rhill vh2vb vb2vh lindrift accel_gr gr_pos_kick kick step make_family discard drift encounter_check accel fill get_peri rearray sort rearrange spill append resize setup Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl logical, public, dimension(:), allocatable :: lcollision flag indicating whether body has merged with another this time step logical, public, dimension(:), allocatable :: lencounter flag indicating whether body is part of an encounter this time step logical, public, dimension(:), allocatable :: lmtiny flag indicating whether this body is below the MTINY cutoff value integer(kind=I4B), public :: nplm number of bodies above the MTINY limit integer(kind=I8B), public :: nplplm Number of body (all massive)-body (only those above MTINY) comparisons in the flattened upper triangular matrix integer(kind=I4B), public, dimension(:), allocatable :: nplenc number of encounters with other planets this time step integer(kind=I4B), public, dimension(:), allocatable :: ntpenc number of encounters with test particles this time step integer(kind=I4B), public, dimension(:), allocatable :: levelg level at which this body should be moved integer(kind=I4B), public, dimension(:), allocatable :: levelm deepest encounter level achieved this time step integer(kind=I4B), public, dimension(:), allocatable :: isperi perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp semimajor axis following perihelion passage type( symba_kinship ), public, dimension(:), allocatable :: kin Array of merger relationship structures that can account for multiple pairwise mergers in a single step type( symba_particle_info ), public, dimension(:), allocatable :: info integer(kind=I4B), public, dimension(:), allocatable :: ncomp Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine eucl_dist_index_plpl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies interface public pure module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body interface public module subroutine tides_kick_getacch_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. interface public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg Position vectors at beginning of step real(kind=DP), intent(in), optional dimension(:,:) :: xend Positions vectors at end of step real(kind=DP), intent(in), optional dimension(:,:) :: vbeg vbeg is an unused variable to keep this method forward compatible with RMVS procedure, public :: set_mu => util_set_mu_pl Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body interface public module subroutine util_set_rhill(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: vh2vb => helio_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) interface public module subroutine helio_coord_vh2vb_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: vb2vh => helio_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) interface public module subroutine helio_coord_vb2vh_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: lindrift => helio_drift_linear_pl Method for linear drift of massive bodies due to barycentric momentum of Sun interface public module subroutine helio_drift_linear_pl(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( helio_cb ), intent(inout) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step procedure, public :: accel_gr => helio_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction interface public module subroutine helio_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => helio_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine helio_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: kick => helio_kick_vb_pl Kicks the barycentric velocities interface public module subroutine helio_kick_vb_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: step => helio_step_pl Steps the body forward one stepsize interface public module subroutine helio_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize procedure, public :: make_family => symba_collision_make_family_pl When a single body is involved in more than one collision in a single step, it becomes part of a family interface public module subroutine symba_collision_make_family_pl(self, idx) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(2) :: idx Array holding the indices of the two bodies involved in the collision procedure, public :: discard => symba_discard_pl Process massive body discards interface public module subroutine symba_discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: drift => symba_drift_pl Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level interface public module subroutine symba_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: encounter_check => symba_encounter_check_pl Checks if massive bodies are going through close encounters with each other interface public module function symba_encounter_check_pl(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter procedure, public :: accel => symba_kick_getacch_pl Compute heliocentric accelerations of massive bodies interface public module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: fill => symba_util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine symba_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: get_peri => symba_util_peri_pl Determine system pericenter passages for massive bodies interface public module subroutine symba_util_peri_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: rearray => symba_util_rearray_pl Clean up the massive body structures to remove discarded bodies and add new bodies interface public module subroutine symba_util_rearray_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions procedure, public :: sort => symba_util_sort_pl Sorts body arrays by a sortable componen interface public module subroutine symba_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => symba_util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine symba_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => symba_util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine symba_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not procedure, public :: append => symba_util_append_merger Appends elements from one structure to another interface public module subroutine symba_util_append_merger(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: resize => symba_util_resize_merger Checks the current size of a SyMBA merger list against the requested size and resizes it if it is too small. interface public module subroutine symba_util_resize_merger(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA merger list object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: setup => symba_setup_merger Constructor method - Allocates space for the input number of bodies interface public module subroutine symba_setup_merger(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA merger list object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/symba_merger.html"},{"title":"symba_tp – swiftest ","text":"type, public, extends( helio_tp ) :: symba_tp SyMBA test particle class Inherits type~~symba_tp~~InheritsGraph type~symba_tp symba_tp type~helio_tp helio_tp type~symba_tp->type~helio_tp type~swiftest_tp swiftest_tp type~helio_tp->type~swiftest_tp type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm isperi peri atp nplenc levelg levelm Type-Bound Procedures dump v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 discard accel_int accel_obl h2b b2h get_peri set_mu vh2vb vb2vh lindrift accel_gr gr_pos_kick kick step drift encounter_check accel setup append fill resize sort rearrange spill Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp integer(kind=I4B), public, dimension(:), allocatable :: nplenc number of encounters with planets this time step integer(kind=I4B), public, dimension(:), allocatable :: levelg level at which this particle should be moved integer(kind=I4B), public, dimension(:), allocatable :: levelm deepest encounter level achieved this time step Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: discard => discard_tp Check to see if test particles should be discarded based on their positions relative to the massive bodies interface public module subroutine discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies interface public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_tp(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles interface public module subroutine util_peri_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: vh2vb => helio_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) interface public module subroutine helio_coord_vh2vb_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: vb2vh => helio_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) interface public module subroutine helio_coord_vb2vh_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: lindrift => helio_drift_linear_tp Method for linear drift of massive bodies due to barycentric momentum of Sun interface public module subroutine helio_drift_linear_tp(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( helio_cb ), intent(in) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step procedure, public :: accel_gr => helio_gr_kick_getacch_tp Acceleration term arising from the post-Newtonian correction interface public module subroutine helio_gr_kick_getacch_tp(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => helio_gr_p4_tp Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine helio_gr_p4_tp(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: kick => helio_kick_vb_tp Kicks the barycentric velocities interface public module subroutine helio_kick_vb_tp(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: step => helio_step_tp Steps the body forward one stepsize interface public module subroutine helio_step_tp(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsizee procedure, public :: drift => symba_drift_tp Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level interface public module subroutine symba_drift_tp(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: encounter_check => symba_encounter_check_tp Checks if any test particles are undergoing a close encounter with a massive body interface public module function symba_encounter_check_tp(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter procedure, public :: accel => symba_kick_getacch_tp Compute heliocentric accelerations of test particles interface public module subroutine symba_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: setup => symba_setup_tp Constructor method - Allocates space for the input number of bodies interface public module subroutine symba_setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter procedure, public :: append => symba_util_append_tp Appends elements from one structure to another interface public module subroutine symba_util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: fill => symba_util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine symba_util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: resize => symba_util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine symba_util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: sort => symba_util_sort_tp Sorts body arrays by a sortable componen interface public module subroutine symba_util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => symba_util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine symba_util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => symba_util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine symba_util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"type/symba_tp.html"},{"title":"symba_pltpenc – swiftest ","text":"type, public, extends( swiftest_encounter ) :: symba_pltpenc SyMBA class for tracking pl-tp close encounters in a step Inherits type~~symba_pltpenc~~InheritsGraph type~symba_pltpenc symba_pltpenc type~swiftest_encounter swiftest_encounter type~symba_pltpenc->type~swiftest_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~symba_pltpenc~~InheritedByGraph type~symba_pltpenc symba_pltpenc type~symba_plplenc symba_plplenc type~symba_plplenc->type~symba_pltpenc type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~symba_pltpenc pltpenc_list type~symba_nbody_system->type~symba_plplenc plplenc_list Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables nenc lvdotr status index1 index2 x1 x2 v1 v2 level Type-Bound Procedures copy resize collision_check encounter_check kick setup spill Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: nenc Total number of encounters logical, public, dimension(:), allocatable :: lvdotr relative vdotr flag integer(kind=I4B), public, dimension(:), allocatable :: status status of the interaction integer(kind=I4B), public, dimension(:), allocatable :: index1 position of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: index2 position of the second body in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x1 the position of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x2 the position of body 2 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v1 the velocity of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v2 the velocity of body 2 in the encounter integer(kind=I4B), public, dimension(:), allocatable :: level encounter recursion level Type-Bound Procedures procedure, public :: copy => util_copy_encounter Copies elements from the source encounter list into self. interface public module subroutine util_copy_encounter(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into procedure, public :: resize => util_resize_encounter Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small. interface public module subroutine util_resize_encounter(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list integer(kind=I4B), intent(in) :: nnew New size of list needed procedure, public :: collision_check => symba_collision_check_pltpenc Checks if a test particle is going to collide with a massive body interface public module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t current time real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level procedure, public :: encounter_check => symba_encounter_check_pltpenc Checks if massive bodies are going through close encounters with each other interface public module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-pl encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter procedure, public :: kick => symba_kick_pltpenc Kick barycentric velocities of active test particles within SyMBA recursion interface public module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(in) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level integer(kind=I4B), intent(in) :: sgn sign to be applied to acceleration procedure, public :: setup => symba_setup_pltpenc A constructor that sets the number of encounters and allocates and initializes all arrays interface public module subroutine symba_setup_pltpenc(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for procedure, public :: spill => symba_util_spill_pltpenc \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine symba_util_spill_pltpenc(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list","tags":"","loc":"type/symba_pltpenc.html"},{"title":"symba_plplenc – swiftest ","text":"type, public, extends( symba_pltpenc ) :: symba_plplenc SyMBA class for tracking pl-pl close encounters in a step Inherits type~~symba_plplenc~~InheritsGraph type~symba_plplenc symba_plplenc type~symba_pltpenc symba_pltpenc type~symba_plplenc->type~symba_pltpenc type~swiftest_encounter swiftest_encounter type~symba_pltpenc->type~swiftest_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~symba_plplenc~~InheritedByGraph type~symba_plplenc symba_plplenc type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~symba_plplenc plplenc_list Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables nenc lvdotr status index1 index2 x1 x2 v1 v2 level Type-Bound Procedures copy resize collision_check encounter_check kick setup spill scrub_non_collision resolve_fragmentations resolve_mergers Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: nenc Total number of encounters logical, public, dimension(:), allocatable :: lvdotr relative vdotr flag integer(kind=I4B), public, dimension(:), allocatable :: status status of the interaction integer(kind=I4B), public, dimension(:), allocatable :: index1 position of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: index2 position of the second body in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x1 the position of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x2 the position of body 2 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v1 the velocity of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v2 the velocity of body 2 in the encounter integer(kind=I4B), public, dimension(:), allocatable :: level encounter recursion level Type-Bound Procedures procedure, public :: copy => util_copy_encounter Copies elements from the source encounter list into self. interface public module subroutine util_copy_encounter(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into procedure, public :: resize => util_resize_encounter Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small. interface public module subroutine util_resize_encounter(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list integer(kind=I4B), intent(in) :: nnew New size of list needed procedure, public :: collision_check => symba_collision_check_pltpenc Checks if a test particle is going to collide with a massive body interface public module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t current time real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level procedure, public :: encounter_check => symba_encounter_check_pltpenc Checks if massive bodies are going through close encounters with each other interface public module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-pl encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter procedure, public :: kick => symba_kick_pltpenc Kick barycentric velocities of active test particles within SyMBA recursion interface public module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(in) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level integer(kind=I4B), intent(in) :: sgn sign to be applied to acceleration procedure, public :: setup => symba_setup_pltpenc A constructor that sets the number of encounters and allocates and initializes all arrays interface public module subroutine symba_setup_pltpenc(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for procedure, public :: spill => symba_util_spill_pltpenc \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine symba_util_spill_pltpenc(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list procedure, public :: scrub_non_collision => symba_collision_encounter_scrub Processes the pl-pl encounter list remove only those encounters that led to a collision interface public module subroutine symba_collision_encounter_scrub(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameterss procedure, public :: resolve_fragmentations => symba_collision_resolve_fragmentations Process list of collisions, determine the collisional regime, and then create fragments interface public module subroutine symba_collision_resolve_fragmentations(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions procedure, public :: resolve_mergers => symba_collision_resolve_mergers Process list of collisions and merge colliding bodies together interface public module subroutine symba_collision_resolve_mergers(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions","tags":"","loc":"type/symba_plplenc.html"},{"title":"symba_nbody_system – swiftest ","text":"type, public, extends( helio_nbody_system ) :: symba_nbody_system Inherits type~~symba_nbody_system~~InheritsGraph type~symba_nbody_system symba_nbody_system type~helio_nbody_system helio_nbody_system type~symba_nbody_system->type~helio_nbody_system type~symba_pltpenc symba_pltpenc type~symba_nbody_system->type~symba_pltpenc pltpenc_list type~symba_merger symba_merger type~symba_nbody_system->type~symba_merger mergeadd_list, mergesub_list type~symba_plplenc symba_plplenc type~symba_nbody_system->type~symba_plplenc plplenc_list type~whm_nbody_system whm_nbody_system type~helio_nbody_system->type~whm_nbody_system type~swiftest_encounter swiftest_encounter type~symba_pltpenc->type~swiftest_encounter type~symba_pl symba_pl type~symba_merger->type~symba_pl type~symba_plplenc->type~symba_pltpenc type~swiftest_nbody_system swiftest_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~symba_kinship symba_kinship type~symba_pl->type~symba_kinship kin type~helio_pl helio_pl type~symba_pl->type~helio_pl type~symba_particle_info symba_particle_info type~symba_pl->type~symba_particle_info info type~swiftest_pl swiftest_pl type~helio_pl->type~swiftest_pl type~swiftest_base swiftest_base type~symba_particle_info->type~swiftest_base type~swiftest_cb swiftest_cb type~swiftest_nbody_system->type~swiftest_cb cb type~swiftest_tp swiftest_tp type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~swiftest_nbody_system->type~swiftest_pl pl type~swiftest_nbody_system->type~swiftest_base type~swiftest_cb->type~swiftest_base type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate cb pl tp tp_discards Gmtot ke_orbit ke_spin pe te Lorbit Lspin Lescape Mescape Ecollisions Euntracked lbeg maxid mergeadd_list mergesub_list pltpenc_list plplenc_list irec Type-Bound Procedures discard conservation_report dump read_frame write_frame step_spin set_msys get_energy_and_momentum write_discard initialize step interp set_recur_levels recursive_step reset Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number class( symba_merger ), public, allocatable :: mergeadd_list List of added bodies in mergers or collisions class( symba_merger ), public, allocatable :: mergesub_list List of subtracted bodies in mergers or collisions class( symba_pltpenc ), public, allocatable :: pltpenc_list List of massive body-test particle encounters in a single step class( symba_plplenc ), public, allocatable :: plplenc_list List of massive body-massive body encounters in a single step integer(kind=I4B), public :: irec System recursion level Type-Bound Procedures procedure, public :: discard => discard_system Perform a discard step on the system interface public module subroutine discard_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time interface public module subroutine io_conservation_report(self, param, lterminal) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen procedure, public :: dump => io_dump_system Dump the state of the system to a file interface public module subroutine io_dump_system(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file interface public module subroutine io_read_frame_system(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file interface public module subroutine io_write_frame_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. interface public module subroutine tides_step_spin_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. interface public module subroutine util_set_msys(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum interface public module subroutine util_get_energy_momentum_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_discard => symba_io_write_discard Write out information about discarded and merged planets and test particles in SyMBA interface public module subroutine symba_io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => symba_setup_initialize_system Performs SyMBA-specific initilization steps interface public module subroutine symba_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: step => symba_step_system Advance the SyMBA nbody system forward in time by one step interface public module subroutine symba_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: interp => symba_step_interp_system Perform an interpolation step on the SymBA nbody system interface public module subroutine symba_step_interp_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: set_recur_levels => symba_step_set_recur_levels_system Sets recursion levels of bodies and encounter lists to the current system level interface public module subroutine symba_step_set_recur_levels_system(self, ireci) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system objec integer(kind=I4B), intent(in) :: ireci Input recursion level procedure, public :: recursive_step => symba_step_recur_system Step interacting planets and active test particles ahead in democratic heliocentric coordinates at the current recursion level, if applicable, and descend to the next deeper level if necessary interface public recursive module subroutine symba_step_recur_system(self, param, t, ireci) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), value :: t integer(kind=I4B), value :: ireci input recursion level procedure, public :: reset => symba_step_reset_system Resets pl, tp,and encounter structures at the start of a new step interface public module subroutine symba_step_reset_system(self) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object","tags":"","loc":"type/symba_nbody_system.html"},{"title":"swiftest_parameters – swiftest ","text":"type, public :: swiftest_parameters User defined parameters that are read in from the parameters input file. \n    Each paramter is initialized to a default values. Inherited by type~~swiftest_parameters~~InheritedByGraph type~swiftest_parameters swiftest_parameters type~symba_parameters symba_parameters type~symba_parameters->type~swiftest_parameters Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables integrator nplmax ntpmax t0 t tstop dt incbfile inplfile intpfile in_type istep_out outfile out_type out_form out_stat istep_dump rmin rmax rmaxu qmin qmin_coord qmin_alo qmin_ahi enc_out discard_out MU2KG TU2S DU2M GU inv_c2 ennergy_out lrhill_present lextra_force lbig_discard lclose lenergy loblatecb lrotation ltides Eorbit_orig Mtot_orig Lmag_orig Ltot_orig Lorbit_orig Lspin_orig Ltot Lescape Mescape Ecollisions Euntracked lfirstenergy lfirstkick lgr lyarkovsky lyorp Type-Bound Procedures reader writer dump read_from_file Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: integrator = UNKNOWN_INTEGRATOR Symbolic name of the nbody integrator  used integer(kind=I4B), public :: nplmax = -1 Maximum allowed number of massive bodies integer(kind=I4B), public :: ntpmax = -1 Maximum allowed number of test particles real(kind=DP), public :: t0 = -1.0_DP Integration start time real(kind=DP), public :: t = -1.0_DP Integration current time real(kind=DP), public :: tstop = -1.0_DP Integration stop time real(kind=DP), public :: dt = -1.0_DP Time step character(len=STRMAX), public :: incbfile = CB_INFILE Name of input file for the central body character(len=STRMAX), public :: inplfile = PL_INFILE Name of input file for massive bodies character(len=STRMAX), public :: intpfile = TP_INFILE Name of input file for test particles character(len=STRMAX), public :: in_type = ASCII_TYPE Format of input data files integer(kind=I4B), public :: istep_out = -1 Number of time steps between binary outputs character(len=STRMAX), public :: outfile = BIN_OUTFILE Name of output binary file character(len=STRMAX), public :: out_type = REAL8_TYPE Binary format of output file character(len=STRMAX), public :: out_form = XV Data to write to output file character(len=STRMAX), public :: out_stat = 'NEW' Open status for output binary file integer(kind=I4B), public :: istep_dump = -1 Number of time steps between dumps real(kind=DP), public :: rmin = -1.0_DP Minimum heliocentric radius for test particle real(kind=DP), public :: rmax = -1.0_DP Maximum heliocentric radius for test particle real(kind=DP), public :: rmaxu = -1.0_DP Maximum unbound heliocentric radius for test particle real(kind=DP), public :: qmin = -1.0_DP Minimum pericenter distance for test particle character(len=STRMAX), public :: qmin_coord = 'HELIO' Coordinate frame to use for qmin real(kind=DP), public :: qmin_alo = -1.0_DP Minimum semimajor axis for qmin real(kind=DP), public :: qmin_ahi = -1.0_DP Maximum semimajor axis for qmin character(len=STRMAX), public :: enc_out = \"\" Name of output file for encounters character(len=STRMAX), public :: discard_out = \"\" Name of output file for discards real(kind=QP), public :: MU2KG = -1.0_QP Converts mass units to grams real(kind=QP), public :: TU2S = -1.0_QP Converts time units to seconds real(kind=QP), public :: DU2M = -1.0_QP Converts distance unit to centimeters real(kind=DP), public :: GU = -1.0_DP Universal gravitational constant in the system units real(kind=DP), public :: inv_c2 = -1.0_DP Inverse speed of light squared in the system units character(len=STRMAX), public :: ennergy_out = \"\" Name of output energy and momentum report file logical, public :: lrhill_present = .false. Hill radii are given as an input rather than calculated by the code (can be used to inflate close encounter regions manually) logical, public :: lextra_force = .false. User defined force function turned on logical, public :: lbig_discard = .false. Save big bodies on every discard logical, public :: lclose = .false. Turn on close encounters logical, public :: lenergy = .false. Track the total energy of the system logical, public :: loblatecb = .false. Calculate acceleration from oblate central body (automatically turns true if nonzero J2 is input) logical, public :: lrotation = .false. Include rotation states of big bodies logical, public :: ltides = .false. Include tidal dissipation real(kind=DP), public :: Eorbit_orig = 0.0_DP Initial orbital energy real(kind=DP), public :: Mtot_orig = 0.0_DP Initial system mass real(kind=DP), public :: Lmag_orig = 0.0_DP Initial total angular momentum magnitude real(kind=DP), public, dimension(NDIM) :: Ltot_orig = 0.0_DP Initial total angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lorbit_orig = 0.0_DP Initial orbital angular momentum real(kind=DP), public, dimension(NDIM) :: Lspin_orig = 0.0_DP Initial spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Ltot = 0.0_DP System angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lfirstenergy = .true. This is the first time computing energe logical, public :: lfirstkick = .true. Initiate the first kick in a symplectic step logical, public :: lgr = .false. Turn on GR logical, public :: lyarkovsky = .false. Turn on Yarkovsky effect logical, public :: lyorp = .false. Turn on YORP effect Type-Bound Procedures procedure, public :: reader => io_param_reader interface public module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Collection of parameters integer(kind=I4B), intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer(kind=I4B), intent(in) :: v_list (:) The first element passes the integrator code to the reader integer(kind=I4B), intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 procedure, public :: writer => io_param_writer interface public module subroutine io_param_writer(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Collection of parameters integer(kind=I4B), intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer(kind=I4B), intent(in) :: v_list (:) Not used in this procedure integer(kind=I4B), intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 procedure, public :: dump => io_dump_param interface public module subroutine io_dump_param(self, param_file_name) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Output collection of parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) procedure, public :: read_from_file => io_read_param_in interface public module subroutine io_read_param_in(self, param_file_name) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Current run configuration parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in)","tags":"","loc":"type/swiftest_parameters.html"},{"title":"swiftest_base – swiftest ","text":"type, public, abstract :: swiftest_base An superclass for a generic Swiftest object\n The minimal methods that all systems must have Inherited by type~~swiftest_base~~InheritedByGraph type~swiftest_base swiftest_base type~swiftest_cb swiftest_cb type~swiftest_cb->type~swiftest_base type~swiftest_body swiftest_body type~swiftest_body->type~swiftest_base type~symba_particle_info symba_particle_info type~symba_particle_info->type~swiftest_base type~swiftest_nbody_system swiftest_nbody_system type~swiftest_nbody_system->type~swiftest_base type~swiftest_nbody_system->type~swiftest_cb cb type~swiftest_pl swiftest_pl type~swiftest_nbody_system->type~swiftest_pl pl type~swiftest_tp swiftest_tp type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~helio_cb helio_cb type~helio_cb->type~swiftest_cb type~whm_cb whm_cb type~whm_cb->type~swiftest_cb type~swiftest_pl->type~swiftest_body type~whm_nbody_system whm_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~swiftest_tp->type~swiftest_body type~symba_pl symba_pl type~symba_pl->type~symba_particle_info info type~helio_pl helio_pl type~symba_pl->type~helio_pl type~helio_tp helio_tp type~helio_tp->type~swiftest_tp type~rmvs_cb rmvs_cb type~rmvs_cb->type~whm_cb type~helio_pl->type~swiftest_pl type~helio_nbody_system helio_nbody_system type~helio_nbody_system->type~whm_nbody_system type~whm_tp whm_tp type~whm_tp->type~swiftest_tp type~symba_merger symba_merger type~symba_merger->type~symba_pl type~symba_cb symba_cb type~symba_cb->type~helio_cb type~whm_pl whm_pl type~whm_pl->type~swiftest_pl type~rmvs_nbody_system rmvs_nbody_system type~rmvs_nbody_system->type~whm_nbody_system type~rmvs_tp rmvs_tp type~rmvs_tp->type~rmvs_cb cb_heliocentric type~rmvs_tp->type~whm_tp type~rmvs_pl rmvs_pl type~rmvs_pl->type~whm_pl type~rmvs_pl->type~rmvs_nbody_system planetocentric type~symba_tp symba_tp type~symba_tp->type~helio_tp type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_nbody_system type~symba_nbody_system->type~symba_merger mergeadd_list, mergesub_list Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate Type-Bound Procedures dump initialize read_frame write_frame Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure( abstract_initialize ), public, deferred :: initialize subroutine abstract_initialize(self, param) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure( abstract_read_frame ), public, deferred :: read_frame subroutine abstract_read_frame(self, iu, param, form, ierr) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure( abstract_write_frame ), public, deferred :: write_frame subroutine abstract_write_frame(self, iu, param) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/swiftest_base.html"},{"title":"swiftest_cb – swiftest ","text":"type, public, abstract, extends( swiftest_base ) :: swiftest_cb A concrete lass for the central body in a Swiftest simulation Inherits type~~swiftest_cb~~InheritsGraph type~swiftest_cb swiftest_cb type~swiftest_base swiftest_base type~swiftest_cb->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~swiftest_cb~~InheritedByGraph type~swiftest_cb swiftest_cb type~whm_cb whm_cb type~whm_cb->type~swiftest_cb type~helio_cb helio_cb type~helio_cb->type~swiftest_cb type~swiftest_nbody_system swiftest_nbody_system type~swiftest_nbody_system->type~swiftest_cb cb type~rmvs_cb rmvs_cb type~rmvs_cb->type~whm_cb type~whm_nbody_system whm_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~symba_cb symba_cb type~symba_cb->type~helio_cb type~helio_nbody_system helio_nbody_system type~helio_nbody_system->type~whm_nbody_system type~rmvs_nbody_system rmvs_nbody_system type~rmvs_nbody_system->type~whm_nbody_system type~rmvs_tp rmvs_tp type~rmvs_tp->type~rmvs_cb cb_heliocentric type~rmvs_pl rmvs_pl type~rmvs_pl->type~rmvs_nbody_system planetocentric type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_nbody_system Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate name id mass Gmass radius density j2rp2 j4rp4 aobl atide aoblbeg aoblend atidebeg atideend xb vb agr Ip rot k2 Q tlag L0 dL Type-Bound Procedures dump initialize read_frame write_frame Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data interface public module subroutine io_read_cb_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body interface public module subroutine io_read_frame_cb(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_cb(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/swiftest_cb.html"},{"title":"swiftest_body – swiftest ","text":"type, public, abstract, extends( swiftest_base ) :: swiftest_body An abstract class for a generic collection of Swiftest bodies\n Superclass that defines the generic elements of a Swiftest particle Inherits type~~swiftest_body~~InheritsGraph type~swiftest_body swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~swiftest_body~~InheritedByGraph type~swiftest_body swiftest_body type~swiftest_tp swiftest_tp type~swiftest_tp->type~swiftest_body type~swiftest_pl swiftest_pl type~swiftest_pl->type~swiftest_body type~helio_tp helio_tp type~helio_tp->type~swiftest_tp type~swiftest_nbody_system swiftest_nbody_system type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~swiftest_nbody_system->type~swiftest_pl pl type~whm_tp whm_tp type~whm_tp->type~swiftest_tp type~helio_pl helio_pl type~helio_pl->type~swiftest_pl type~whm_pl whm_pl type~whm_pl->type~swiftest_pl type~symba_tp symba_tp type~symba_tp->type~helio_tp type~rmvs_tp rmvs_tp type~rmvs_tp->type~whm_tp type~rmvs_pl rmvs_pl type~rmvs_pl->type~whm_pl type~rmvs_nbody_system rmvs_nbody_system type~rmvs_pl->type~rmvs_nbody_system planetocentric type~whm_nbody_system whm_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~symba_pl symba_pl type~symba_pl->type~helio_pl type~helio_nbody_system helio_nbody_system type~helio_nbody_system->type~whm_nbody_system type~rmvs_nbody_system->type~whm_nbody_system type~symba_merger symba_merger type~symba_merger->type~symba_pl type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_nbody_system type~symba_nbody_system->type~symba_merger mergeadd_list, mergesub_list Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm Type-Bound Procedures dump discard kick set_mu step accel drift v2pv pv2v initialize read_frame write_frame accel_obl el2xv xv2el setup accel_user append fill resize set_ir3 sort rearrange spill Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure( abstract_discard_body ), public, deferred :: discard subroutine abstract_discard_body(self, system, param) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure( abstract_kick_body ), public, deferred :: kick subroutine abstract_kick_body(self, system, param, t, dt, lbeg) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system objec class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure( abstract_set_mu ), public, deferred :: set_mu subroutine abstract_set_mu(self, cb) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure( abstract_step_body ), public, deferred :: step subroutine abstract_step_body(self, system, param, t, dt) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure( abstract_accel ), public, deferred :: accel subroutine abstract_accel(self, system, param, t, lbeg) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables interface public module subroutine drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: accel_obl => obl_acc_body Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_body(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: setup => setup_body A constructor that sets the number of bodies and allocates all allocatable arrays interface public module subroutine setup_body(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: append => util_append_body Appends elements from one structure to another interface public module subroutine util_append_body(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: fill => util_fill_body \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine util_fill_body(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: resize => util_resize_body Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine util_resize_body(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: sort => util_sort_body Sorts body arrays by a sortable componen interface public module subroutine util_sort_body(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => util_sort_rearrange_body Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine util_sort_rearrange_body(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => util_spill_body \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine util_spill_body(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"type/swiftest_body.html"},{"title":"swiftest_pl – swiftest ","text":"type, public, abstract, extends( swiftest_body ) :: swiftest_pl An abstract class for a generic collection of Swiftest massive bodies\n Superclass that defines the generic elements of a Swiftest particle Inherits type~~swiftest_pl~~InheritsGraph type~swiftest_pl swiftest_pl type~swiftest_body swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~swiftest_pl~~InheritedByGraph type~swiftest_pl swiftest_pl type~helio_pl helio_pl type~helio_pl->type~swiftest_pl type~whm_pl whm_pl type~whm_pl->type~swiftest_pl type~swiftest_nbody_system swiftest_nbody_system type~swiftest_nbody_system->type~swiftest_pl pl type~whm_nbody_system whm_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~symba_pl symba_pl type~symba_pl->type~helio_pl type~rmvs_pl rmvs_pl type~rmvs_pl->type~whm_pl type~rmvs_nbody_system rmvs_nbody_system type~rmvs_pl->type~rmvs_nbody_system planetocentric type~helio_nbody_system helio_nbody_system type~helio_nbody_system->type~whm_nbody_system type~rmvs_nbody_system->type~whm_nbody_system type~symba_merger symba_merger type~symba_merger->type~symba_pl type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_nbody_system type~symba_nbody_system->type~symba_merger mergeadd_list, mergesub_list Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm mass Gmass rhill radius xbeg xend vbeg density Ip rot k2 Q tlag k_plpl nplpl Type-Bound Procedures dump kick step accel drift v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 discard eucl_index accel_int accel_obl setup accel_tides append h2b b2h fill resize set_beg_end set_mu set_rhill sort rearrange spill Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure( abstract_kick_body ), public, deferred :: kick subroutine abstract_kick_body(self, system, param, t, dt, lbeg) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system objec class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure( abstract_step_body ), public, deferred :: step subroutine abstract_step_body(self, system, param, t, dt) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure( abstract_accel ), public, deferred :: accel subroutine abstract_accel(self, system, param, t, lbeg) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables interface public module subroutine drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies interface public module subroutine discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine eucl_dist_index_plpl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies interface public pure module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: setup => setup_pl A base constructor that sets the number of bodies and allocates and initializes all arrays interface public module subroutine setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body interface public module subroutine tides_kick_getacch_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: append => util_append_pl Appends elements from one structure to another interface public module subroutine util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: fill => util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: resize => util_resize_pl Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. interface public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg Position vectors at beginning of step real(kind=DP), intent(in), optional dimension(:,:) :: xend Positions vectors at end of step real(kind=DP), intent(in), optional dimension(:,:) :: vbeg vbeg is an unused variable to keep this method forward compatible with RMVS procedure, public :: set_mu => util_set_mu_pl Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body interface public module subroutine util_set_rhill(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: sort => util_sort_pl Sorts body arrays by a sortable component interface public module subroutine util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"type/swiftest_pl.html"},{"title":"swiftest_tp – swiftest ","text":"type, public, abstract, extends( swiftest_body ) :: swiftest_tp An abstract class for a generic collection of Swiftest test particles\n Superclass that defines the generic elements of a Swiftest test particle Inherits type~~swiftest_tp~~InheritsGraph type~swiftest_tp swiftest_tp type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~swiftest_tp~~InheritedByGraph type~swiftest_tp swiftest_tp type~whm_tp whm_tp type~whm_tp->type~swiftest_tp type~helio_tp helio_tp type~helio_tp->type~swiftest_tp type~swiftest_nbody_system swiftest_nbody_system type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~whm_nbody_system whm_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~rmvs_tp rmvs_tp type~rmvs_tp->type~whm_tp type~symba_tp symba_tp type~symba_tp->type~helio_tp type~helio_nbody_system helio_nbody_system type~helio_nbody_system->type~whm_nbody_system type~rmvs_nbody_system rmvs_nbody_system type~rmvs_nbody_system->type~whm_nbody_system type~rmvs_pl rmvs_pl type~rmvs_pl->type~rmvs_nbody_system planetocentric type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_nbody_system Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm isperi peri atp Type-Bound Procedures dump kick step accel drift v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 discard accel_int accel_obl setup append h2b b2h fill get_peri resize set_mu sort rearrange spill Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure( abstract_kick_body ), public, deferred :: kick subroutine abstract_kick_body(self, system, param, t, dt, lbeg) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system objec class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure( abstract_step_body ), public, deferred :: step subroutine abstract_step_body(self, system, param, t, dt) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure( abstract_accel ), public, deferred :: accel subroutine abstract_accel(self, system, param, t, lbeg) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables interface public module subroutine drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: discard => discard_tp Check to see if test particles should be discarded based on their positions relative to the massive bodies interface public module subroutine discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies interface public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_tp(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: setup => setup_tp A base constructor that sets the number of bodies and interface public module subroutine setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parametersr procedure, public :: append => util_append_tp Appends elements from one structure to another interface public module subroutine util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: fill => util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles interface public module subroutine util_peri_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: resize => util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: sort => util_sort_tp Sorts body arrays by a sortable component interface public module subroutine util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"type/swiftest_tp.html"},{"title":"swiftest_nbody_system – swiftest ","text":"type, public, abstract, extends( swiftest_base ) :: swiftest_nbody_system An abstract class for a basic Swiftest nbody system \n  This superclass contains a minimial system of a set of test particles (tp), massive bodies (pl), and a central body (cb) Inherits type~~swiftest_nbody_system~~InheritsGraph type~swiftest_nbody_system swiftest_nbody_system type~swiftest_cb swiftest_cb type~swiftest_nbody_system->type~swiftest_cb cb type~swiftest_tp swiftest_tp type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~swiftest_pl swiftest_pl type~swiftest_nbody_system->type~swiftest_pl pl type~swiftest_base swiftest_base type~swiftest_nbody_system->type~swiftest_base type~swiftest_cb->type~swiftest_base type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~swiftest_nbody_system~~InheritedByGraph type~swiftest_nbody_system swiftest_nbody_system type~whm_nbody_system whm_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~helio_nbody_system helio_nbody_system type~helio_nbody_system->type~whm_nbody_system type~rmvs_nbody_system rmvs_nbody_system type~rmvs_nbody_system->type~whm_nbody_system type~rmvs_pl rmvs_pl type~rmvs_pl->type~rmvs_nbody_system planetocentric type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_nbody_system Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate cb pl tp tp_discards Gmtot ke_orbit ke_spin pe te Lorbit Lspin Lescape Mescape Ecollisions Euntracked lbeg maxid Type-Bound Procedures step discard conservation_report dump read_frame write_discard write_frame initialize step_spin set_msys get_energy_and_momentum Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number Type-Bound Procedures procedure( abstract_step_system ), public, deferred :: step Each integrator will have its own version of the step subroutine abstract_step_system(self, param, t, dt) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: discard => discard_system Perform a discard step on the system interface public module subroutine discard_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time interface public module subroutine io_conservation_report(self, param, lterminal) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen procedure, public :: dump => io_dump_system Dump the state of the system to a file interface public module subroutine io_dump_system(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file interface public module subroutine io_read_frame_system(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_discard => io_write_discard Write out information about discarded test particles interface public module subroutine io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file interface public module subroutine io_write_frame_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => setup_initialize_system Initialize the system from input files interface public module subroutine setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. interface public module subroutine tides_step_spin_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. interface public module subroutine util_set_msys(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum interface public module subroutine util_get_energy_momentum_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/swiftest_nbody_system.html"},{"title":"swiftest_encounter – swiftest ","text":"type, public :: swiftest_encounter Inherited by type~~swiftest_encounter~~InheritedByGraph type~swiftest_encounter swiftest_encounter type~symba_pltpenc symba_pltpenc type~symba_pltpenc->type~swiftest_encounter type~symba_plplenc symba_plplenc type~symba_plplenc->type~symba_pltpenc type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~symba_pltpenc pltpenc_list type~symba_nbody_system->type~symba_plplenc plplenc_list Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables nenc lvdotr status index1 index2 x1 x2 v1 v2 Type-Bound Procedures setup copy spill resize Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: nenc Total number of encounters logical, public, dimension(:), allocatable :: lvdotr relative vdotr flag integer(kind=I4B), public, dimension(:), allocatable :: status status of the interaction integer(kind=I4B), public, dimension(:), allocatable :: index1 position of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: index2 position of the second body in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x1 the position of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x2 the position of body 2 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v1 the velocity of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v2 the velocity of body 2 in the encounter Type-Bound Procedures procedure, public :: setup => setup_encounter A constructor that sets the number of encounters and allocates and initializes all arrays interface public module subroutine setup_encounter(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for procedure, public :: copy => util_copy_encounter Copies elements from the source encounter list into self. interface public module subroutine util_copy_encounter(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into procedure, public :: spill => util_spill_encounter \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine util_spill_encounter(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list procedure, public :: resize => util_resize_encounter Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small. interface public module subroutine util_resize_encounter(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list integer(kind=I4B), intent(in) :: nnew New size of list needed","tags":"","loc":"type/swiftest_encounter.html"},{"title":"lambda_obj – swiftest ","text":"type, public :: lambda_obj Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers Inherited by type~~lambda_obj~~InheritedByGraph type~lambda_obj lambda_obj type~lambda_obj_tvar lambda_obj_tvar type~lambda_obj_tvar->type~lambda_obj type~lambda_obj_err lambda_obj_err type~lambda_obj_err->type~lambda_obj Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lambdaptr lastval lastarg Constructor lambda_obj Finalization Procedures lambda_destroy Type-Bound Procedures init eval lambda_init_0 Components Type Visibility Attributes Name Initial procedure( lambda0 ), public, pointer, nopass :: lambdaptr => null() real(kind=DP), public :: lastval real(kind=DP), public, dimension(:), allocatable :: lastarg Constructor public interface lambda_obj public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) public function lambda_init_0_err (lambda, lerr) Arguments Type Intent Optional Attributes Name procedure( lambda0err ) :: lambda logical, intent(in) :: lerr Return Value type( lambda_obj_err ) public function lambda_init_tvar (lambda, t) Arguments Type Intent Optional Attributes Name procedure( lambda0tvar ) :: lambda real(kind=DP), intent(in) :: t Return Value type( lambda_obj_tvar ) Finalization Procedures final :: lambda_destroy public subroutine lambda_destroy (self) Arguments Type Intent Optional Attributes Name type( lambda_obj ) :: self Type-Bound Procedures generic, public :: init => lambda_init_0 public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) procedure, public :: eval => lambda_eval_0 public function lambda_eval_0 (self, x) result(y) Arguments Type Intent Optional Attributes Name class( lambda_obj ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x Return Value real(kind=DP) procedure, public, nopass :: lambda_init_0 public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj )","tags":"","loc":"type/lambda_obj.html"},{"title":"lambda_obj_err – swiftest ","text":"type, public, extends( lambda_obj ) :: lambda_obj_err Extended class for an lambda function object. This object takes allows for the return of a logical error flag during evaluation of the function. Inherits type~~lambda_obj_err~~InheritsGraph type~lambda_obj_err lambda_obj_err type~lambda_obj lambda_obj type~lambda_obj_err->type~lambda_obj Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lambdaptr lastval lastarg lambdaptr_err lerr Type-Bound Procedures lambda_init_0 init eval lambda_init_0_err Components Type Visibility Attributes Name Initial procedure( lambda0 ), public, pointer, nopass :: lambdaptr => null() real(kind=DP), public :: lastval real(kind=DP), public, dimension(:), allocatable :: lastarg procedure( lambda0err ), public, pointer, nopass :: lambdaptr_err => null() logical, public :: lerr Type-Bound Procedures procedure, public, nopass :: lambda_init_0 public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) generic, public :: init => lambda_init_0 , lambda_init_0_err public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) public function lambda_init_0_err (lambda, lerr) Arguments Type Intent Optional Attributes Name procedure( lambda0err ) :: lambda logical, intent(in) :: lerr Return Value type( lambda_obj_err ) procedure, public :: eval => lambda_eval_0_err public function lambda_eval_0_err (self, x) result(y) Arguments Type Intent Optional Attributes Name class( lambda_obj_err ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x Return Value real(kind=DP) procedure, public, nopass :: lambda_init_0_err public function lambda_init_0_err (lambda, lerr) Arguments Type Intent Optional Attributes Name procedure( lambda0err ) :: lambda logical, intent(in) :: lerr Return Value type( lambda_obj_err )","tags":"","loc":"type/lambda_obj_err.html"},{"title":"lambda_obj_tvar – swiftest ","text":"type, public, extends( lambda_obj ) :: lambda_obj_tvar Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers Inherits type~~lambda_obj_tvar~~InheritsGraph type~lambda_obj_tvar lambda_obj_tvar type~lambda_obj lambda_obj type~lambda_obj_tvar->type~lambda_obj Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lambdaptr lastval lastarg lambdaptr_tvar Type-Bound Procedures eval lambda_init_0 init evalt lambda_init_tvar Components Type Visibility Attributes Name Initial procedure( lambda0 ), public, pointer, nopass :: lambdaptr => null() real(kind=DP), public :: lastval real(kind=DP), public, dimension(:), allocatable :: lastarg procedure( lambda0tvar ), public, pointer, nopass :: lambdaptr_tvar => null() Type-Bound Procedures procedure, public :: eval => lambda_eval_0 public function lambda_eval_0 (self, x) result(y) Arguments Type Intent Optional Attributes Name class( lambda_obj ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x Return Value real(kind=DP) procedure, public, nopass :: lambda_init_0 public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) generic, public :: init => lambda_init_0 , lambda_init_tvar public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) public function lambda_init_tvar (lambda, t) Arguments Type Intent Optional Attributes Name procedure( lambda0tvar ) :: lambda real(kind=DP), intent(in) :: t Return Value type( lambda_obj_tvar ) procedure, public :: evalt => lambda_eval_tvar public function lambda_eval_tvar (self, x, t) result(y) Arguments Type Intent Optional Attributes Name class( lambda_obj_tvar ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t Return Value real(kind=DP),\n  dimension(:), allocatable procedure, public, nopass :: lambda_init_tvar public function lambda_init_tvar (lambda, t) Arguments Type Intent Optional Attributes Name procedure( lambda0tvar ) :: lambda real(kind=DP), intent(in) :: t Return Value type( lambda_obj_tvar )","tags":"","loc":"type/lambda_obj_tvar.html"},{"title":"tidederiv – swiftest","text":"abstract interface function tidederiv(x, t, dt, xbeg, xend) result(y) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t real(kind=DP), intent(in) :: dt real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value real(kind=DP),\n  dimension(:),allocatable","tags":"","loc":"interface/tidederiv.html"},{"title":"abstract_discard_body – swiftest","text":"abstract interface public subroutine abstract_discard_body(self, system, param) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/abstract_discard_body.html"},{"title":"abstract_accel – swiftest","text":"abstract interface public subroutine abstract_accel(self, system, param, t, lbeg) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/abstract_accel.html"},{"title":"abstract_initialize – swiftest","text":"abstract interface public subroutine abstract_initialize(self, param) Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/abstract_initialize.html"},{"title":"abstract_kick_body – swiftest","text":"abstract interface public subroutine abstract_kick_body(self, system, param, t, dt, lbeg) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system objec class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not.","tags":"","loc":"interface/abstract_kick_body.html"},{"title":"abstract_read_frame – swiftest","text":"abstract interface public subroutine abstract_read_frame(self, iu, param, form, ierr) Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code","tags":"","loc":"interface/abstract_read_frame.html"},{"title":"abstract_set_mu – swiftest","text":"abstract interface public subroutine abstract_set_mu(self, cb) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/abstract_set_mu.html"},{"title":"abstract_step_body – swiftest","text":"abstract interface public subroutine abstract_step_body(self, system, param, t, dt) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/abstract_step_body.html"},{"title":"abstract_step_system – swiftest","text":"abstract interface public subroutine abstract_step_system(self, param, t, dt) Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/abstract_step_system.html"},{"title":"abstract_write_frame – swiftest","text":"abstract interface public subroutine abstract_write_frame(self, iu, param) Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/abstract_write_frame.html"},{"title":"lambda0 – swiftest","text":"abstract interface public function lambda0(x) result(y) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: x Return Value real(kind=DP)","tags":"","loc":"interface/lambda0.html"},{"title":"lambda0err – swiftest","text":"abstract interface public function lambda0err(x, lerr) result(y) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: x logical, intent(out) :: lerr Return Value real(kind=DP)","tags":"","loc":"interface/lambda0err.html"},{"title":"lambda0tvar – swiftest","text":"abstract interface public function lambda0tvar(x, t) result(y) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t Return Value real(kind=DP),\n  dimension(:),allocatable","tags":"","loc":"interface/lambda0tvar.html"},{"title":"tides_spin_derivs – swiftest","text":"function tides_spin_derivs(rot_pl_cb, t, dt, xbeg, xend) result(drot) Need to add more arguments so we can pull in mass, radius, Ip, J2, etc...\n author: Jennifer L.L. Pouplin and David A. Minton function used to calculate the derivatives that are fed to the ODE solver Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: rot_pl_cb Array of rotations. The last element is the central body, and all others are massive bodies real(kind=DP), intent(in) :: t Current time, which is used to interpolate the massive body positions real(kind=DP), intent(in) :: dt Total step size real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value real(kind=DP),\n  dimension(:,:),allocatable Contents None","tags":"","loc":"proc/tides_spin_derivs.html"},{"title":"tides_derivs_eval – swiftest","text":"function tides_derivs_eval(self, x, t) result(y) Arguments Type Intent Optional Attributes Name class( tides_derivs_func ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t Return Value real(kind=DP),\n  dimension(:),allocatable Contents None","tags":"","loc":"proc/tides_derivs_eval.html"},{"title":"tides_derivs_init – swiftest","text":"function tides_derivs_init(lambda, dt, xbeg, xend) result(f) Arguments Type Intent Optional Attributes Name procedure( tidederiv ) :: lambda real(kind=DP), intent(in) :: dt real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value type( tides_derivs_func ) Called by proc~~tides_derivs_init~~CalledByGraph proc~tides_derivs_init tides_derivs_init interface~lambda_obj lambda_obj interface~lambda_obj->proc~tides_derivs_init Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/tides_derivs_init.html"},{"title":"lambda_obj – swiftest","text":"private interface lambda_obj Calls interface~~lambda_obj~~CallsGraph interface~lambda_obj lambda_obj proc~tides_derivs_init tides_derivs_init interface~lambda_obj->proc~tides_derivs_init Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Module Procedures tides_derivs_init Module Procedures function tides_derivs_init (lambda, dt, xbeg, xend) result(f) Arguments Type Intent Optional Attributes Name procedure( tidederiv ) :: lambda real(kind=DP), intent(in) :: dt real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value type( tides_derivs_func )","tags":"","loc":"interface/lambda_obj.html"},{"title":"orbel_flon – swiftest","text":"pure function orbel_flon(e, icapn) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: icapn Return Value real(kind=DP) Calls proc~~orbel_flon~~CallsGraph proc~orbel_flon orbel_flon 3 3 proc~orbel_flon->3 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_flon~~CalledByGraph proc~orbel_flon orbel_flon proc~orbel_fhybrid orbel_fhybrid proc~orbel_fhybrid->proc~orbel_flon proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_fhybrid proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_flon.html"},{"title":"orbel_fget – swiftest","text":"pure function orbel_fget(e, capn) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: capn Return Value real(kind=DP) Calls proc~~orbel_fget~~CallsGraph proc~orbel_fget orbel_fget proc~orbel_schget orbel_schget proc~orbel_fget->proc~orbel_schget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_fget~~CalledByGraph proc~orbel_fget orbel_fget proc~orbel_fhybrid orbel_fhybrid proc~orbel_fhybrid->proc~orbel_fget proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_fhybrid proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_fget.html"},{"title":"orbel_zget – swiftest","text":"pure function orbel_zget(iq) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: iq Return Value real(kind=DP) Called by proc~~orbel_zget~~CalledByGraph proc~orbel_zget orbel_zget proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_zget proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_zget.html"},{"title":"orbel_esolmd – swiftest","text":"pure function orbel_esolmd(e, m) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: m Return Value real(kind=DP) Calls proc~~orbel_esolmd~~CallsGraph proc~orbel_esolmd orbel_esolmd interface~orbel_scget orbel_scget proc~orbel_esolmd->interface~orbel_scget proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_esolmd~~CalledByGraph proc~orbel_esolmd orbel_esolmd proc~orbel_ehybrid orbel_ehybrid proc~orbel_ehybrid->proc~orbel_esolmd proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_ehybrid proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_esolmd.html"},{"title":"orbel_ehie – swiftest","text":"pure function orbel_ehie(e, im) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: im Return Value real(kind=DP) Calls proc~~orbel_ehie~~CallsGraph proc~orbel_ehie orbel_ehie interface~orbel_scget orbel_scget proc~orbel_ehie->interface~orbel_scget proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_ehie~~CalledByGraph proc~orbel_ehie orbel_ehie proc~orbel_ehybrid orbel_ehybrid proc~orbel_ehybrid->proc~orbel_ehie proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_ehybrid proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_ehie.html"},{"title":"orbel_eget – swiftest","text":"pure function orbel_eget(e, m) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: m Return Value real(kind=DP) Calls proc~~orbel_eget~~CallsGraph proc~orbel_eget orbel_eget interface~orbel_scget orbel_scget proc~orbel_eget->interface~orbel_scget proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_eget~~CalledByGraph proc~orbel_eget orbel_eget proc~orbel_ehybrid orbel_ehybrid proc~orbel_ehybrid->proc~orbel_eget proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_ehybrid proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_eget.html"},{"title":"orbel_ehybrid – swiftest","text":"pure function orbel_ehybrid(e, m) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: m Return Value real(kind=DP) Calls proc~~orbel_ehybrid~~CallsGraph proc~orbel_ehybrid orbel_ehybrid proc~orbel_ehie orbel_ehie proc~orbel_ehybrid->proc~orbel_ehie proc~orbel_esolmd orbel_esolmd proc~orbel_ehybrid->proc~orbel_esolmd proc~orbel_eget orbel_eget proc~orbel_ehybrid->proc~orbel_eget interface~orbel_scget orbel_scget proc~orbel_ehie->interface~orbel_scget proc~orbel_esolmd->interface~orbel_scget proc~orbel_eget->interface~orbel_scget proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_ehybrid~~CalledByGraph proc~orbel_ehybrid orbel_ehybrid proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_ehybrid proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_ehybrid.html"},{"title":"orbel_fhybrid – swiftest","text":"pure function orbel_fhybrid(e, n) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: n Return Value real(kind=DP) Calls proc~~orbel_fhybrid~~CallsGraph proc~orbel_fhybrid orbel_fhybrid proc~orbel_fget orbel_fget proc~orbel_fhybrid->proc~orbel_fget proc~orbel_flon orbel_flon proc~orbel_fhybrid->proc~orbel_flon proc~orbel_schget orbel_schget proc~orbel_fget->proc~orbel_schget 3 3 proc~orbel_flon->3 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_fhybrid~~CalledByGraph proc~orbel_fhybrid orbel_fhybrid proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_fhybrid proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_fhybrid.html"},{"title":"orbel_el2xv – swiftest","text":"pure subroutine orbel_el2xv(mu, a, ie, inc, capom, omega, capm, x, v) Compute osculating orbital elements from relative C)rtesian position and velocity\n  All angular measures are returned in radians\n      If inclination < TINY, longitude of the ascending node is arbitrarily set to 0 If eccentricity < sqrt ( TINY ), argument of pericenter is arbitrarily set to 0 ALGORITHM : See Fitzpatrick \"Principles of Cel. Mech.\" Adapted from Martin Duncan's el2xv.f\n DATE WRITTEN:  May 11, 1992.\n REVISIONS: May 26 - now use better Kepler solver for ellipses\n  and hyperbolae called EHYBRID.F and FHYBRID.F Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: a real(kind=DP), intent(in) :: ie real(kind=DP), intent(in) :: inc real(kind=DP), intent(in) :: capom real(kind=DP), intent(in) :: omega real(kind=DP), intent(in) :: capm real(kind=DP), intent(out), dimension(:) :: x real(kind=DP), intent(out), dimension(:) :: v Calls proc~~orbel_el2xv~~CallsGraph proc~orbel_el2xv orbel_el2xv proc~orbel_fhybrid orbel_fhybrid proc~orbel_el2xv->proc~orbel_fhybrid proc~orbel_zget orbel_zget proc~orbel_el2xv->proc~orbel_zget proc~orbel_schget orbel_schget proc~orbel_el2xv->proc~orbel_schget interface~orbel_scget orbel_scget proc~orbel_el2xv->interface~orbel_scget proc~orbel_ehybrid orbel_ehybrid proc~orbel_el2xv->proc~orbel_ehybrid proc~orbel_flon orbel_flon proc~orbel_fhybrid->proc~orbel_flon proc~orbel_fget orbel_fget proc~orbel_fhybrid->proc~orbel_fget proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget proc~orbel_esolmd orbel_esolmd proc~orbel_ehybrid->proc~orbel_esolmd proc~orbel_eget orbel_eget proc~orbel_ehybrid->proc~orbel_eget proc~orbel_ehie orbel_ehie proc~orbel_ehybrid->proc~orbel_ehie 3 3 proc~orbel_flon->3 proc~orbel_fget->proc~orbel_schget proc~orbel_esolmd->interface~orbel_scget proc~orbel_eget->interface~orbel_scget proc~orbel_ehie->interface~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_el2xv~~CalledByGraph proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_el2xv.html"},{"title":"orbel_schget – swiftest","text":"pure subroutine orbel_schget(angle, shx, chx) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: angle real(kind=DP), intent(out) :: shx real(kind=DP), intent(out) :: chx Called by proc~~orbel_schget~~CalledByGraph proc~orbel_schget orbel_schget proc~orbel_fget orbel_fget proc~orbel_fget->proc~orbel_schget proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_schget proc~orbel_fhybrid orbel_fhybrid proc~orbel_el2xv->proc~orbel_fhybrid proc~orbel_fhybrid->proc~orbel_fget proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_schget.html"},{"title":"orbel_xv2el – swiftest","text":"pure subroutine orbel_xv2el(mu, x, v, a, e, inc, capom, omega, capm) Compute osculating orbital elements from relative Cartesian position and velocity\n  All angular measures are returned in radians\n      If inclination < TINY, longitude of the ascending node is arbitrarily set to 0 If eccentricity < sqrt ( TINY ), argument of pericenter is arbitrarily set to 0 References : Danby , J . M . A . 1988 . Fundamentals of Celestial Mechanics , ( Willmann - Bell , Inc .), 201 - 206 . Fitzpatrick , P . M . 1970 . Principles of Celestial Mechanics , ( Academic Press ), 69 - 73 . Roy , A . E . 1982 . Orbital Motion , ( Adam Hilger , Ltd .), 75 - 95 Adapted from David E. Kaufmann's Swifter routine: orbel_xv2el.f90\n Adapted from Martin Duncan's Swift routine orbel_xv2el.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in), dimension(:) :: v real(kind=DP), intent(out) :: a real(kind=DP), intent(out) :: e real(kind=DP), intent(out) :: inc real(kind=DP), intent(out) :: capom real(kind=DP), intent(out) :: omega real(kind=DP), intent(out) :: capm Called by proc~~orbel_xv2el~~CalledByGraph proc~orbel_xv2el orbel_xv2el proc~orbel_xv2el_vec orbel_xv2el_vec proc~orbel_xv2el_vec->proc~orbel_xv2el interface~orbel_xv2el_vec orbel_xv2el_vec interface~orbel_xv2el_vec->proc~orbel_xv2el_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_xv2el.html"},{"title":"whm_kick_getacch_ah0 – swiftest","text":"function whm_kick_getacch_ah0(mu, xhp, n) result(ah0) Compute zeroth term heliocentric accelerations of planets Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu real(kind=DP), intent(in), dimension(:,:) :: xhp integer(kind=I4B), intent(in) :: n Return Value real(kind=DP),\n  dimension(NDIM) Called by proc~~whm_kick_getacch_ah0~~CalledByGraph proc~whm_kick_getacch_ah0 whm_kick_getacch_ah0 proc~whm_kick_getacch_pl whm_kick_getacch_pl proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah0 proc~whm_kick_getacch_tp whm_kick_getacch_tp proc~whm_kick_getacch_tp->proc~whm_kick_getacch_ah0 interface~whm_kick_getacch_tp whm_kick_getacch_tp interface~whm_kick_getacch_tp->proc~whm_kick_getacch_tp interface~whm_kick_getacch_pl whm_kick_getacch_pl interface~whm_kick_getacch_pl->proc~whm_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_kick_getacch_ah0.html"},{"title":"whm_kick_getacch_ah1 – swiftest","text":"pure subroutine whm_kick_getacch_ah1(cb, pl) Compute first term heliocentric accelerations of planets Adapted from Hal Levison's Swift routine getacch_ah1.f\n Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_ah1.f90 Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: cb WHM central body object class( whm_pl ), intent(inout) :: pl WHM massive body object Called by proc~~whm_kick_getacch_ah1~~CalledByGraph proc~whm_kick_getacch_ah1 whm_kick_getacch_ah1 proc~whm_kick_getacch_pl whm_kick_getacch_pl proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah1 interface~whm_kick_getacch_pl whm_kick_getacch_pl interface~whm_kick_getacch_pl->proc~whm_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_kick_getacch_ah1.html"},{"title":"whm_kick_getacch_ah2 – swiftest","text":"pure subroutine whm_kick_getacch_ah2(cb, pl) Compute second term heliocentric accelerations of planets Adapted from Hal Levison's Swift routine getacch_ah2.f\n Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_ah2.f90 Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: cb Swiftest central body object class( whm_pl ), intent(inout) :: pl WHM massive body object Called by proc~~whm_kick_getacch_ah2~~CalledByGraph proc~whm_kick_getacch_ah2 whm_kick_getacch_ah2 proc~whm_kick_getacch_pl whm_kick_getacch_pl proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah2 interface~whm_kick_getacch_pl whm_kick_getacch_pl interface~whm_kick_getacch_pl->proc~whm_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_kick_getacch_ah2.html"},{"title":"solve_wbs – swiftest","text":"function solve_wbs(u) result(x) Uses ieee_exceptions swiftest proc~~solve_wbs~~UsesGraph proc~solve_wbs solve_wbs ieee_exceptions ieee_exceptions proc~solve_wbs->ieee_exceptions module~swiftest swiftest proc~solve_wbs->module~swiftest module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Based on code available on Rosetta Code: https://rosettacode.org/wiki/Gaussian_elimination#Fortran Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:), allocatable :: u Return Value real(kind=QP),\n  dimension(:),allocatable Called by proc~~solve_wbs~~CalledByGraph proc~solve_wbs solve_wbs proc~util_solve_linear_system_q util_solve_linear_system_q proc~util_solve_linear_system_q->proc~solve_wbs proc~util_solve_linear_system_d util_solve_linear_system_d proc~util_solve_linear_system_d->proc~solve_wbs Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/solve_wbs.html"},{"title":"ge_wpp – swiftest","text":"function ge_wpp(A, b) result(u) Uses ieee_exceptions swiftest proc~~ge_wpp~~UsesGraph proc~ge_wpp ge_wpp ieee_exceptions ieee_exceptions proc~ge_wpp->ieee_exceptions module~swiftest swiftest proc~ge_wpp->module~swiftest module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Solve  Ax=b  using Gaussian elimination then backwards substitution.\n   A being an n by n matrix.\n   x and b are n by 1 vectors. \n Based on code available on Rosetta Code: https://rosettacode.org/wiki/Gaussian_elimination#Fortran Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:) :: b Return Value real(kind=QP),\n  dimension(:,:),allocatable Called by proc~~ge_wpp~~CalledByGraph proc~ge_wpp ge_wpp proc~util_solve_linear_system_q util_solve_linear_system_q proc~util_solve_linear_system_q->proc~ge_wpp proc~util_solve_linear_system_d util_solve_linear_system_d proc~util_solve_linear_system_d->proc~ge_wpp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/ge_wpp.html"},{"title":"discard_cb_tp – swiftest","text":"subroutine discard_cb_tp(tp, system, param) Check to see if test particles should be discarded based on their positions relative to the Sun\n        or because they are unbound from the system Adapted from David E. Kaufmann's Swifter routine: discard_sun.f90\n Adapted from Hal Levison's Swift routine discard_sun.f Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: tp Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Contents None","tags":"","loc":"proc/discard_cb_tp.html"},{"title":"discard_peri_tp – swiftest","text":"subroutine discard_peri_tp(tp, system, param) Check to see if a test particle should be discarded because its perihelion distance becomes too small Adapted from David E. Kaufmann's Swifter routine: discard_peri.f90\n Adapted from Hal Levison's Swift routine discard_peri.f Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: tp Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameterss Contents None","tags":"","loc":"proc/discard_peri_tp.html"},{"title":"discard_pl_tp – swiftest","text":"subroutine discard_pl_tp(tp, system, param) Check to see if test particles should be discarded based on their positions relative to the massive bodies Adapted from David E. Kaufmann's Swifter routine: discard_pl.f90\n Adapted from Hal Levison's Swift routine discard_pl.f Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: tp Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Contents None","tags":"","loc":"proc/discard_pl_tp.html"},{"title":"discard_pl_close – swiftest","text":"subroutine discard_pl_close(dx, dv, dt, r2crit, iflag, r2min) Check to see if a test particle and massive body are having, or will have within the next time step, an encounter such\n          that the separation distance r is less than some critical radius rcrit (or r 2 < rcrit 2 = r2crit) Adapted from David E. Kaufmann's Swifter routine: discard_pl_close.f90\n Adapted from Hal Levison's Swift routine discard_pl_close.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: dx real(kind=DP), intent(in), dimension(:) :: dv real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r2crit integer(kind=I4B), intent(out) :: iflag real(kind=DP), intent(out) :: r2min Contents None","tags":"","loc":"proc/discard_pl_close.html"},{"title":"io_read_encounter – swiftest","text":"function io_read_encounter(t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type) result(ierr) Read close encounter data from input binary files\n     Other than time t, there is no direct file input from this function\n     Function returns read error status (0 = OK, nonzero = ERROR)\n Adapted from David E. Kaufmann's Swifter routine: io_read_encounter.f90 Arguments Type Intent Optional Attributes Name real(kind=DP), intent(out) :: t integer(kind=I4B), intent(out) :: name1 integer(kind=I4B), intent(out) :: name2 real(kind=DP), intent(out) :: mass1 real(kind=DP), intent(out) :: mass2 real(kind=DP), intent(out) :: radius1 real(kind=DP), intent(out) :: radius2 real(kind=DP), intent(out), dimension(:) :: xh1 real(kind=DP), intent(out), dimension(:) :: xh2 real(kind=DP), intent(out), dimension(:) :: vh1 real(kind=DP), intent(out), dimension(:) :: vh2 character(len=*), intent(in) :: enc_out character(len=*), intent(in) :: out_type Return Value integer(kind=I4B) Calls proc~~io_read_encounter~~CallsGraph proc~io_read_encounter io_read_encounter interface~util_exit util_exit proc~io_read_encounter->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_read_encounter.html"},{"title":"io_read_hdr – swiftest","text":"function io_read_hdr(iu, t, npl, ntp, out_form, out_type) result(ierr) Read frame header from input binary files\n     Function returns read error status (0 = OK, nonzero = ERROR)\n Adapted from David E. Kaufmann's Swifter routine: io_read_hdr.f90\n Adapted from Hal Levison's Swift routine io_read_hdr.f Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: iu real(kind=DP), intent(out) :: t integer(kind=I4B), intent(out) :: npl integer(kind=I4B), intent(out) :: ntp character(len=*), intent(out) :: out_form character(len=*), intent(in) :: out_type Return Value integer(kind=I4B) Called by proc~~io_read_hdr~~CalledByGraph proc~io_read_hdr io_read_hdr proc~io_read_frame_system io_read_frame_system proc~io_read_frame_system->proc~io_read_hdr interface~io_read_frame_system io_read_frame_system interface~io_read_frame_system->proc~io_read_frame_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_read_hdr.html"},{"title":"io_write_hdr – swiftest","text":"subroutine io_write_hdr(iu, t, npl, ntp, out_form, out_type) Write frame header to output binary file Adapted from David Adapted from David E. Kaufmann's Swifter routine io_write_hdr.f90\n Adapted from Hal Levison's Swift routine io_write_hdr.F Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: iu Output file unit number real(kind=DP), intent(in) :: t Current time of simulation integer(kind=I4B), intent(in) :: npl Number of massive bodies integer(kind=I4B), intent(in) :: ntp Number of test particles character(len=*), intent(in) :: out_form Output format type (\"EL\" or  \"XV\") character(len=*), intent(in) :: out_type Output file format type (REAL4, REAL8 - see swiftest module for symbolic name definitions) Calls proc~~io_write_hdr~~CallsGraph proc~io_write_hdr io_write_hdr interface~util_exit util_exit proc~io_write_hdr->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_write_hdr~~CalledByGraph proc~io_write_hdr io_write_hdr proc~io_write_frame_system io_write_frame_system proc~io_write_frame_system->proc~io_write_hdr interface~io_write_frame_system io_write_frame_system interface~io_write_frame_system->proc~io_write_frame_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_write_hdr.html"},{"title":"drift_dan – swiftest","text":"pure subroutine drift_dan(mu, x0, v0, dt0, iflag) Perform Kepler drift, solving Kepler's equation in appropriate variables Adapted from David E. Kaufmann's Swifter routine: drift_dan.f90\n Adapted from Hal Levison and Martin Duncan's Swift routine drift_dan.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu real(kind=DP), intent(inout), dimension(:) :: x0 real(kind=DP), intent(inout), dimension(:) :: v0 real(kind=DP), intent(in) :: dt0 integer(kind=I4B), intent(out) :: iflag Calls proc~~drift_dan~~CallsGraph proc~drift_dan drift_dan proc~drift_kepmd drift_kepmd proc~drift_dan->proc~drift_kepmd proc~drift_kepu drift_kepu proc~drift_dan->proc~drift_kepu proc~drift_kepu_guess drift_kepu_guess proc~drift_kepu->proc~drift_kepu_guess proc~drift_kepu_new drift_kepu_new proc~drift_kepu->proc~drift_kepu_new proc~drift_kepu_fchk drift_kepu_fchk proc~drift_kepu->proc~drift_kepu_fchk proc~drift_kepu_lag drift_kepu_lag proc~drift_kepu->proc~drift_kepu_lag proc~drift_kepu_p3solve drift_kepu_p3solve proc~drift_kepu_guess->proc~drift_kepu_p3solve interface~orbel_scget orbel_scget proc~drift_kepu_guess->interface~orbel_scget proc~drift_kepu_stumpff drift_kepu_stumpff proc~drift_kepu_new->proc~drift_kepu_stumpff proc~drift_kepu_fchk->proc~drift_kepu_stumpff proc~drift_kepu_lag->proc~drift_kepu_stumpff proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_dan.html"},{"title":"drift_kepmd – swiftest","text":"pure subroutine drift_kepmd(dm, es, ec, x, s, c) Solve Kepler's equation in difference form for an ellipse for small input dm and eccentricity\n    Original disclaimer: built for speed, does not check how well the original equation is solved\n    Can do that in calling routine by checking how close (x - ec s + es (1.0 - c) - dm) is to zero Adapted from David E. Kaufmann's Swifter routine: drift_kepmd.f90\n Adapted from Martin Duncan's Swift routine drift_kepmd.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dm real(kind=DP), intent(in) :: es real(kind=DP), intent(in) :: ec real(kind=DP), intent(out) :: x real(kind=DP), intent(out) :: s real(kind=DP), intent(out) :: c Called by proc~~drift_kepmd~~CalledByGraph proc~drift_kepmd drift_kepmd proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepmd Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_kepmd.html"},{"title":"drift_kepu – swiftest","text":"pure subroutine drift_kepu(dt, r0, mu, alpha, u, fp, c1, c2, c3, iflag) Solve Kepler's equation in universal variables Adapted from David E. Kaufmann's Swifter routine: drift_kepu.f90\n Adapted from Hal Levison's Swift routine drift_kepu.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: fp real(kind=DP), intent(out) :: c1 real(kind=DP), intent(out) :: c2 real(kind=DP), intent(out) :: c3 integer(kind=I4B), intent(out) :: iflag Calls proc~~drift_kepu~~CallsGraph proc~drift_kepu drift_kepu proc~drift_kepu_guess drift_kepu_guess proc~drift_kepu->proc~drift_kepu_guess proc~drift_kepu_new drift_kepu_new proc~drift_kepu->proc~drift_kepu_new proc~drift_kepu_fchk drift_kepu_fchk proc~drift_kepu->proc~drift_kepu_fchk proc~drift_kepu_lag drift_kepu_lag proc~drift_kepu->proc~drift_kepu_lag proc~drift_kepu_p3solve drift_kepu_p3solve proc~drift_kepu_guess->proc~drift_kepu_p3solve interface~orbel_scget orbel_scget proc~drift_kepu_guess->interface~orbel_scget proc~drift_kepu_stumpff drift_kepu_stumpff proc~drift_kepu_new->proc~drift_kepu_stumpff proc~drift_kepu_fchk->proc~drift_kepu_stumpff proc~drift_kepu_lag->proc~drift_kepu_stumpff proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~drift_kepu~~CalledByGraph proc~drift_kepu drift_kepu proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_kepu.html"},{"title":"drift_kepu_fchk – swiftest","text":"pure subroutine drift_kepu_fchk(dt, r0, mu, alpha, u, s, f) Computes the value of f, the function whose root we are trying to find in universal variables Adapted from David E. Kaufmann's Swifter routine: drift_kepu_fchk.f90\n Adapted from Martin Duncan's Swift routine drift_kepu_fchk.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(in) :: s real(kind=DP), intent(out) :: f Calls proc~~drift_kepu_fchk~~CallsGraph proc~drift_kepu_fchk drift_kepu_fchk proc~drift_kepu_stumpff drift_kepu_stumpff proc~drift_kepu_fchk->proc~drift_kepu_stumpff Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~drift_kepu_fchk~~CalledByGraph proc~drift_kepu_fchk drift_kepu_fchk proc~drift_kepu drift_kepu proc~drift_kepu->proc~drift_kepu_fchk proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_kepu_fchk.html"},{"title":"drift_kepu_guess – swiftest","text":"pure subroutine drift_kepu_guess(dt, r0, mu, alpha, u, s) Compute initial guess for solving Kepler's equation using universal variables Adapted from David E. Kaufmann's Swifter routine: drift_kepu_guess.f90\n Adapted from Hal Levison and Martin Duncan's Swift routine drift_kepu_guess.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: s Calls proc~~drift_kepu_guess~~CallsGraph proc~drift_kepu_guess drift_kepu_guess proc~drift_kepu_p3solve drift_kepu_p3solve proc~drift_kepu_guess->proc~drift_kepu_p3solve interface~orbel_scget orbel_scget proc~drift_kepu_guess->interface~orbel_scget proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~drift_kepu_guess~~CalledByGraph proc~drift_kepu_guess drift_kepu_guess proc~drift_kepu drift_kepu proc~drift_kepu->proc~drift_kepu_guess proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_kepu_guess.html"},{"title":"drift_kepu_lag – swiftest","text":"pure subroutine drift_kepu_lag(s, dt, r0, mu, alpha, u, fp, c1, c2, c3, iflag) Solve Kepler's equation in universal variables using Laguerre's method\n      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 178 - 180. Adapted from David E. Kaufmann's Swifter routine: drift_kepu_lag.f90\n Adapted from Hal Levison's Swift routine drift_kepu_lag.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout) :: s real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: fp real(kind=DP), intent(out) :: c1 real(kind=DP), intent(out) :: c2 real(kind=DP), intent(out) :: c3 integer(kind=I4B), intent(out) :: iflag Calls proc~~drift_kepu_lag~~CallsGraph proc~drift_kepu_lag drift_kepu_lag proc~drift_kepu_stumpff drift_kepu_stumpff proc~drift_kepu_lag->proc~drift_kepu_stumpff Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~drift_kepu_lag~~CalledByGraph proc~drift_kepu_lag drift_kepu_lag proc~drift_kepu drift_kepu proc~drift_kepu->proc~drift_kepu_lag proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_kepu_lag.html"},{"title":"drift_kepu_new – swiftest","text":"pure subroutine drift_kepu_new(s, dt, r0, mu, alpha, u, fp, c1, c2, c3, iflag) Solve Kepler's equation in universal variables using Newton's method\n      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 174 - 175. Adapted from David E. Kaufmann's Swifter routine: drift_kepu_new.f90\n Adapted from Hal Levison's Swift routine drift_kepu_new.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout) :: s real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: fp real(kind=DP), intent(out) :: c1 real(kind=DP), intent(out) :: c2 real(kind=DP), intent(out) :: c3 integer(kind=I4B), intent(out) :: iflag Calls proc~~drift_kepu_new~~CallsGraph proc~drift_kepu_new drift_kepu_new proc~drift_kepu_stumpff drift_kepu_stumpff proc~drift_kepu_new->proc~drift_kepu_stumpff Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~drift_kepu_new~~CalledByGraph proc~drift_kepu_new drift_kepu_new proc~drift_kepu drift_kepu proc~drift_kepu->proc~drift_kepu_new proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_kepu_new.html"},{"title":"drift_kepu_p3solve – swiftest","text":"pure subroutine drift_kepu_p3solve(dt, r0, mu, alpha, u, s, iflag) Computes real root of cubic involved in setting initial guess for solving Kepler's equation in universal variables\n      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 177 - 178. Adapted from David E. Kaufmann's Swifter routine: drift_kepu_p3solve.f90\n Adapted from Martin Duncan's Swift routine drift_kepu_p3solve.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: s integer(kind=I4B), intent(out) :: iflag Called by proc~~drift_kepu_p3solve~~CalledByGraph proc~drift_kepu_p3solve drift_kepu_p3solve proc~drift_kepu_guess drift_kepu_guess proc~drift_kepu_guess->proc~drift_kepu_p3solve proc~drift_kepu drift_kepu proc~drift_kepu->proc~drift_kepu_guess proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_kepu_p3solve.html"},{"title":"drift_kepu_stumpff – swiftest","text":"pure subroutine drift_kepu_stumpff(x, c0, c1, c2, c3) Compute Stumpff functions needed for Kepler drift in universal variables\n      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 171 - 172. Adapted from David E. Kaufmann's Swifter routine: drift_kepu_stumpff.f90\n Adapted from Hal Levison's Swift routine drift_kepu_stumpff.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout) :: x real(kind=DP), intent(out) :: c0 real(kind=DP), intent(out) :: c1 real(kind=DP), intent(out) :: c2 real(kind=DP), intent(out) :: c3 Called by proc~~drift_kepu_stumpff~~CalledByGraph proc~drift_kepu_stumpff drift_kepu_stumpff proc~drift_kepu_new drift_kepu_new proc~drift_kepu_new->proc~drift_kepu_stumpff proc~drift_kepu_fchk drift_kepu_fchk proc~drift_kepu_fchk->proc~drift_kepu_stumpff proc~drift_kepu_lag drift_kepu_lag proc~drift_kepu_lag->proc~drift_kepu_stumpff proc~drift_kepu drift_kepu proc~drift_kepu->proc~drift_kepu_new proc~drift_kepu->proc~drift_kepu_fchk proc~drift_kepu->proc~drift_kepu_lag proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_kepu_stumpff.html"},{"title":"symba_collision_check_one – swiftest","text":"pure elemental function symba_collision_check_one(xr, yr, zr, vxr, vyr, vzr, Gmtot, rlim, dt, lvdotr) result(lcollision) Check for a merger between a single pair of particles Adapted from David E. Kaufmann's Swifter routines symba_merge_tp.f90 and symba_merge_pl.f90 Adapted from Hal Levison's Swift routine symba5_merge.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: xr Relative position vector components real(kind=DP), intent(in) :: yr Relative position vector components real(kind=DP), intent(in) :: zr Relative position vector components real(kind=DP), intent(in) :: vxr Relative velocity vector components real(kind=DP), intent(in) :: vyr Relative velocity vector components real(kind=DP), intent(in) :: vzr Relative velocity vector components real(kind=DP), intent(in) :: Gmtot Sum of G*mass of colliding bodies real(kind=DP), intent(in) :: rlim Collision limit - Typically the sum of the radii of colliding bodies real(kind=DP), intent(in) :: dt Step size logical, intent(in) :: lvdotr Logical flag indicating that these two bodies are approaching in the current substep Return Value logical Logical flag indicating whether these two bodies will collide or not Calls proc~~symba_collision_check_one~~CallsGraph proc~symba_collision_check_one symba_collision_check_one orbel_xv2aeq orbel_xv2aeq proc~symba_collision_check_one->orbel_xv2aeq Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_collision_check_one~~CalledByGraph proc~symba_collision_check_one symba_collision_check_one proc~symba_collision_check_pltpenc symba_collision_check_pltpenc proc~symba_collision_check_pltpenc->proc~symba_collision_check_one interface~symba_collision_check_pltpenc symba_collision_check_pltpenc interface~symba_collision_check_pltpenc->proc~symba_collision_check_pltpenc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_collision_check_one.html"},{"title":"symba_collision_consolidate_familes – swiftest","text":"function symba_collision_consolidate_familes(pl, param, idx_parent, family, x, v, mass, radius, L_spin, Ip) result(lflag) Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all family members, \n and pairs of quantities (x and v vectors, mass, radius, L_spin, and Ip) that can be used to resolve the collisional outcome. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA massive body object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(inout), dimension(2) :: idx_parent Index of the two bodies considered the \"parents\" of the collision integer(kind=I4B), intent(out), dimension(:), allocatable :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(out), dimension(NDIM,2) :: x Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(NDIM,2) :: v Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(2) :: mass Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(2) :: radius Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(NDIM,2) :: L_spin Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(NDIM,2) :: Ip Output values that represent a 2-body equivalent of a possibly 2+ body collision Return Value logical Logical flag indicating whether a family was successfully created or not Calls proc~~symba_collision_consolidate_familes~~CallsGraph proc~symba_collision_consolidate_familes symba_collision_consolidate_familes idx_arr idx_arr proc~symba_collision_consolidate_familes->idx_arr id_arr id_arr proc~symba_collision_consolidate_familes->id_arr Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_collision_consolidate_familes~~CalledByGraph proc~symba_collision_consolidate_familes symba_collision_consolidate_familes proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->proc~symba_collision_consolidate_familes proc~symba_collision_resolve_mergers symba_collision_resolve_mergers proc~symba_collision_resolve_mergers->proc~symba_collision_consolidate_familes interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations interface~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers->proc~symba_collision_resolve_mergers Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_collision_consolidate_familes.html"},{"title":"symba_discard_cb_pl – swiftest","text":"subroutine symba_discard_cb_pl(pl, system, param) Check to see if planets should be discarded based on their positions relative to the central body.\n If a body gets flagged here when it has also been previously flagged for a collision with another massive body,\n its collisional status will be revoked. Discards due to colliding with or escaping the central body take precedence \n over pl-pl collisions Adapted from David E. Kaufmann's Swifter routine: symba_discard_sun.f90\n Adapted from Hal Levison's Swift routine discard_massive5.f Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Called by proc~~symba_discard_cb_pl~~CalledByGraph proc~symba_discard_cb_pl symba_discard_cb_pl proc~symba_discard_nonplpl symba_discard_nonplpl proc~symba_discard_nonplpl->proc~symba_discard_cb_pl proc~symba_discard_pl symba_discard_pl proc~symba_discard_pl->proc~symba_discard_nonplpl interface~symba_discard_pl symba_discard_pl interface~symba_discard_pl->proc~symba_discard_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_discard_cb_pl.html"},{"title":"symba_discard_conserve_mtm – swiftest","text":"subroutine symba_discard_conserve_mtm(pl, system, param, ipl, lescape_body) Conserves system momentum when a body is lost from the system or collides with central body Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl class( symba_nbody_system ), intent(inout) :: system class( symba_parameters ), intent(inout) :: param integer(kind=I4B), intent(in) :: ipl logical, intent(in) :: lescape_body Contents None","tags":"","loc":"proc/symba_discard_conserve_mtm.html"},{"title":"symba_discard_nonplpl – swiftest","text":"subroutine symba_discard_nonplpl(pl, system, param) Check to see if planets should be discarded based on their positions or because they are unbound Adapted from David E. Kaufmann's Swifter routine: symba_discard_pl.f90\n Adapted from Hal Levison's Swift routine discard_massive5.f Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~symba_discard_nonplpl~~CallsGraph proc~symba_discard_nonplpl symba_discard_nonplpl proc~symba_discard_cb_pl symba_discard_cb_pl proc~symba_discard_nonplpl->proc~symba_discard_cb_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_discard_nonplpl~~CalledByGraph proc~symba_discard_nonplpl symba_discard_nonplpl proc~symba_discard_pl symba_discard_pl proc~symba_discard_pl->proc~symba_discard_nonplpl interface~symba_discard_pl symba_discard_pl interface~symba_discard_pl->proc~symba_discard_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_discard_nonplpl.html"},{"title":"symba_discard_nonplpl_conservation – swiftest","text":"subroutine symba_discard_nonplpl_conservation(pl, system, param) If there are any bodies that are removed due to either colliding with the central body or escaping the systme,\n we need to track the conserved quantities with the system bookkeeping terms. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(inout) :: param Current run configuration parameters Called by proc~~symba_discard_nonplpl_conservation~~CalledByGraph proc~symba_discard_nonplpl_conservation symba_discard_nonplpl_conservation proc~symba_discard_pl symba_discard_pl proc~symba_discard_pl->proc~symba_discard_nonplpl_conservation interface~symba_discard_pl symba_discard_pl interface~symba_discard_pl->proc~symba_discard_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_discard_nonplpl_conservation.html"},{"title":"symba_discard_peri_pl – swiftest","text":"subroutine symba_discard_peri_pl(pl, system, param) Check to see if a test particle should be discarded because its perihelion distance becomes too small Adapted from David E. Kaufmann's Swifter routine: symba_discard_peri_pl.f90\n Adapted from Hal Levison's Swift routine discard_mass_peri.f Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Contents None","tags":"","loc":"proc/symba_discard_peri_pl.html"},{"title":"rmvs_chk_ind – swiftest","text":"interface Calls interface~~rmvs_chk_ind~~CallsGraph interface~rmvs_chk_ind rmvs_chk_ind proc~rmvs_chk_ind rmvs_chk_ind interface~rmvs_chk_ind->proc~rmvs_chk_ind Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~rmvs_chk_ind~~CalledByGraph interface~rmvs_chk_ind rmvs_chk_ind proc~symba_encounter_check_one symba_encounter_check_one proc~symba_encounter_check_one->interface~rmvs_chk_ind proc~rmvs_encounter_check_tp rmvs_encounter_check_tp proc~rmvs_encounter_check_tp->interface~rmvs_chk_ind interface~rmvs_encounter_check_tp rmvs_encounter_check_tp interface~rmvs_encounter_check_tp->proc~rmvs_encounter_check_tp interface~symba_encounter_check_one symba_encounter_check_one interface~symba_encounter_check_one->proc~symba_encounter_check_one Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public elemental module function rmvs_chk_ind(r2, v2, vdotr, dt, r2crit) result(lflag) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: r2 real(kind=DP), intent(in) :: v2 real(kind=DP), intent(in) :: vdotr real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r2crit Return Value logical","tags":"","loc":"interface/rmvs_chk_ind.html"},{"title":"rmvs_encounter_check_tp – swiftest","text":"interface Calls interface~~rmvs_encounter_check_tp~~CallsGraph interface~rmvs_encounter_check_tp rmvs_encounter_check_tp proc~rmvs_encounter_check_tp rmvs_encounter_check_tp interface~rmvs_encounter_check_tp->proc~rmvs_encounter_check_tp interface~rmvs_chk_ind rmvs_chk_ind proc~rmvs_encounter_check_tp->interface~rmvs_chk_ind proc~rmvs_chk_ind rmvs_chk_ind interface~rmvs_chk_ind->proc~rmvs_chk_ind Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function rmvs_encounter_check_tp(self, system, dt) result(lencounter) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object real(kind=DP), intent(in) :: dt step size Return Value logical Returns true if there is at least one close encounter","tags":"","loc":"interface/rmvs_encounter_check_tp.html"},{"title":"rmvs_discard_tp – swiftest","text":"interface Calls interface~~rmvs_discard_tp~~CallsGraph interface~rmvs_discard_tp rmvs_discard_tp proc~rmvs_discard_tp rmvs_discard_tp interface~rmvs_discard_tp->proc~rmvs_discard_tp discard_tp discard_tp proc~rmvs_discard_tp->discard_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/rmvs_discard_tp.html"},{"title":"rmvs_kick_getacch_tp – swiftest","text":"interface Calls interface~~rmvs_kick_getacch_tp~~CallsGraph interface~rmvs_kick_getacch_tp rmvs_kick_getacch_tp proc~rmvs_kick_getacch_tp rmvs_kick_getacch_tp interface~rmvs_kick_getacch_tp->proc~rmvs_kick_getacch_tp whm_kick_getacch_tp whm_kick_getacch_tp proc~rmvs_kick_getacch_tp->whm_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest central body particle data structuree class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/rmvs_kick_getacch_tp.html"},{"title":"rmvs_setup_pl – swiftest","text":"interface Calls interface~~rmvs_setup_pl~~CallsGraph interface~rmvs_setup_pl rmvs_setup_pl proc~rmvs_setup_pl rmvs_setup_pl interface~rmvs_setup_pl->proc~rmvs_setup_pl whm_setup_pl whm_setup_pl proc~rmvs_setup_pl->whm_setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/rmvs_setup_pl.html"},{"title":"rmvs_setup_initialize_system – swiftest","text":"interface Calls interface~~rmvs_setup_initialize_system~~CallsGraph interface~rmvs_setup_initialize_system rmvs_setup_initialize_system proc~rmvs_setup_initialize_system rmvs_setup_initialize_system interface~rmvs_setup_initialize_system->proc~rmvs_setup_initialize_system whm_setup_initialize_system whm_setup_initialize_system proc~rmvs_setup_initialize_system->whm_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/rmvs_setup_initialize_system.html"},{"title":"rmvs_setup_tp – swiftest","text":"interface Calls interface~~rmvs_setup_tp~~CallsGraph interface~rmvs_setup_tp rmvs_setup_tp proc~rmvs_setup_tp rmvs_setup_tp interface~rmvs_setup_tp->proc~rmvs_setup_tp setup_tp setup_tp proc~rmvs_setup_tp->setup_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parametere","tags":"","loc":"interface/rmvs_setup_tp.html"},{"title":"rmvs_util_append_pl – swiftest","text":"interface Calls interface~~rmvs_util_append_pl~~CallsGraph interface~rmvs_util_append_pl rmvs_util_append_pl proc~rmvs_util_append_pl rmvs_util_append_pl interface~rmvs_util_append_pl->proc~rmvs_util_append_pl util_append util_append proc~rmvs_util_append_pl->util_append util_exit util_exit proc~rmvs_util_append_pl->util_exit whm_util_append_pl whm_util_append_pl proc~rmvs_util_append_pl->whm_util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/rmvs_util_append_pl.html"},{"title":"rmvs_util_append_tp – swiftest","text":"interface Calls interface~~rmvs_util_append_tp~~CallsGraph interface~rmvs_util_append_tp rmvs_util_append_tp proc~rmvs_util_append_tp rmvs_util_append_tp interface~rmvs_util_append_tp->proc~rmvs_util_append_tp util_append util_append proc~rmvs_util_append_tp->util_append util_append_tp util_append_tp proc~rmvs_util_append_tp->util_append_tp util_exit util_exit proc~rmvs_util_append_tp->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/rmvs_util_append_tp.html"},{"title":"rmvs_util_fill_pl – swiftest","text":"interface Calls interface~~rmvs_util_fill_pl~~CallsGraph interface~rmvs_util_fill_pl rmvs_util_fill_pl proc~rmvs_util_fill_pl rmvs_util_fill_pl interface~rmvs_util_fill_pl->proc~rmvs_util_fill_pl util_fill util_fill proc~rmvs_util_fill_pl->util_fill util_exit util_exit proc~rmvs_util_fill_pl->util_exit whm_util_fill_pl whm_util_fill_pl proc~rmvs_util_fill_pl->whm_util_fill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/rmvs_util_fill_pl.html"},{"title":"rmvs_util_fill_tp – swiftest","text":"interface Calls interface~~rmvs_util_fill_tp~~CallsGraph interface~rmvs_util_fill_tp rmvs_util_fill_tp proc~rmvs_util_fill_tp rmvs_util_fill_tp interface~rmvs_util_fill_tp->proc~rmvs_util_fill_tp util_fill_tp util_fill_tp proc~rmvs_util_fill_tp->util_fill_tp util_fill util_fill proc~rmvs_util_fill_tp->util_fill util_exit util_exit proc~rmvs_util_fill_tp->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/rmvs_util_fill_tp.html"},{"title":"rmvs_util_resize_pl – swiftest","text":"interface Calls interface~~rmvs_util_resize_pl~~CallsGraph interface~rmvs_util_resize_pl rmvs_util_resize_pl proc~rmvs_util_resize_pl rmvs_util_resize_pl interface~rmvs_util_resize_pl->proc~rmvs_util_resize_pl whm_util_resize_pl whm_util_resize_pl proc~rmvs_util_resize_pl->whm_util_resize_pl util_resize util_resize proc~rmvs_util_resize_pl->util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/rmvs_util_resize_pl.html"},{"title":"rmvs_util_resize_tp – swiftest","text":"interface Calls interface~~rmvs_util_resize_tp~~CallsGraph interface~rmvs_util_resize_tp rmvs_util_resize_tp proc~rmvs_util_resize_tp rmvs_util_resize_tp interface~rmvs_util_resize_tp->proc~rmvs_util_resize_tp util_resize_tp util_resize_tp proc~rmvs_util_resize_tp->util_resize_tp util_resize util_resize proc~rmvs_util_resize_tp->util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/rmvs_util_resize_tp.html"},{"title":"rmvs_util_sort_pl – swiftest","text":"interface Calls interface~~rmvs_util_sort_pl~~CallsGraph interface~rmvs_util_sort_pl rmvs_util_sort_pl proc~rmvs_util_sort_pl rmvs_util_sort_pl interface~rmvs_util_sort_pl->proc~rmvs_util_sort_pl whm_util_sort_pl whm_util_sort_pl proc~rmvs_util_sort_pl->whm_util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order","tags":"","loc":"interface/rmvs_util_sort_pl.html"},{"title":"rmvs_util_sort_tp – swiftest","text":"interface Calls interface~~rmvs_util_sort_tp~~CallsGraph interface~rmvs_util_sort_tp rmvs_util_sort_tp proc~rmvs_util_sort_tp rmvs_util_sort_tp interface~rmvs_util_sort_tp->proc~rmvs_util_sort_tp util_sort_tp util_sort_tp proc~rmvs_util_sort_tp->util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order","tags":"","loc":"interface/rmvs_util_sort_tp.html"},{"title":"rmvs_util_sort_rearrange_pl – swiftest","text":"interface Calls interface~~rmvs_util_sort_rearrange_pl~~CallsGraph interface~rmvs_util_sort_rearrange_pl rmvs_util_sort_rearrange_pl proc~rmvs_util_sort_rearrange_pl rmvs_util_sort_rearrange_pl interface~rmvs_util_sort_rearrange_pl->proc~rmvs_util_sort_rearrange_pl util_sort_rearrange_pl util_sort_rearrange_pl proc~rmvs_util_sort_rearrange_pl->util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order)","tags":"","loc":"interface/rmvs_util_sort_rearrange_pl.html"},{"title":"rmvs_util_sort_rearrange_tp – swiftest","text":"interface Calls interface~~rmvs_util_sort_rearrange_tp~~CallsGraph interface~rmvs_util_sort_rearrange_tp rmvs_util_sort_rearrange_tp proc~rmvs_util_sort_rearrange_tp rmvs_util_sort_rearrange_tp interface~rmvs_util_sort_rearrange_tp->proc~rmvs_util_sort_rearrange_tp util_sort_rearrange_tp util_sort_rearrange_tp proc~rmvs_util_sort_rearrange_tp->util_sort_rearrange_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order)","tags":"","loc":"interface/rmvs_util_sort_rearrange_tp.html"},{"title":"rmvs_util_spill_pl – swiftest","text":"interface Calls interface~~rmvs_util_spill_pl~~CallsGraph interface~rmvs_util_spill_pl rmvs_util_spill_pl proc~rmvs_util_spill_pl rmvs_util_spill_pl interface~rmvs_util_spill_pl->proc~rmvs_util_spill_pl whm_util_spill_pl whm_util_spill_pl proc~rmvs_util_spill_pl->whm_util_spill_pl util_spill util_spill proc~rmvs_util_spill_pl->util_spill util_exit util_exit proc~rmvs_util_spill_pl->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/rmvs_util_spill_pl.html"},{"title":"rmvs_util_spill_tp – swiftest","text":"interface Calls interface~~rmvs_util_spill_tp~~CallsGraph interface~rmvs_util_spill_tp rmvs_util_spill_tp proc~rmvs_util_spill_tp rmvs_util_spill_tp interface~rmvs_util_spill_tp->proc~rmvs_util_spill_tp util_spill util_spill proc~rmvs_util_spill_tp->util_spill util_spill_tp util_spill_tp proc~rmvs_util_spill_tp->util_spill_tp util_exit util_exit proc~rmvs_util_spill_tp->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/rmvs_util_spill_tp.html"},{"title":"rmvs_step_system – swiftest","text":"interface Calls interface~~rmvs_step_system~~CallsGraph interface~rmvs_step_system rmvs_step_system proc~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system proc~rmvs_step_out rmvs_step_out proc~rmvs_step_system->proc~rmvs_step_out proc~rmvs_interp_out rmvs_interp_out proc~rmvs_step_system->proc~rmvs_interp_out whm_step_system whm_step_system proc~rmvs_step_system->whm_step_system proc~rmvs_interp_in rmvs_interp_in proc~rmvs_step_out->proc~rmvs_interp_in proc~rmvs_step_in rmvs_step_in proc~rmvs_step_out->proc~rmvs_step_in util_exit util_exit proc~rmvs_interp_out->util_exit proc~rmvs_interp_in->util_exit proc~rmvs_peri_tp rmvs_peri_tp proc~rmvs_step_in->proc~rmvs_peri_tp proc~rmvs_make_planetocentric rmvs_make_planetocentric proc~rmvs_step_in->proc~rmvs_make_planetocentric proc~rmvs_end_planetocentric rmvs_end_planetocentric proc~rmvs_step_in->proc~rmvs_end_planetocentric xpc xpc proc~rmvs_peri_tp->xpc vpc vpc proc~rmvs_peri_tp->vpc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/rmvs_step_system.html"},{"title":"operator(.cross.) – swiftest","text":"public interface operator(.cross.) Contents Functions operator_cross_sp operator_cross_dp operator_cross_qp operator_cross_i1b operator_cross_i2b operator_cross_i4b operator_cross_i8b operator_cross_el_sp operator_cross_el_dp operator_cross_el_qp operator_cross_el_i1b operator_cross_el_i2b operator_cross_el_i4b operator_cross_el_i8b Functions public pure function operator_cross_sp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: A real(kind=SP), intent(in), dimension(:) :: B Return Value real(kind=SP),\n  dimension(3) public pure function operator_cross_dp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: A real(kind=DP), intent(in), dimension(:) :: B Return Value real(kind=DP),\n  dimension(3) public pure function operator_cross_qp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:) :: A real(kind=QP), intent(in), dimension(:) :: B Return Value real(kind=QP),\n  dimension(3) public pure function operator_cross_i1b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I1B), intent(in), dimension(:) :: A integer(kind=I1B), intent(in), dimension(:) :: B Return Value integer(kind=I1B),\n  dimension(3) public pure function operator_cross_i2b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I2B), intent(in), dimension(:) :: A integer(kind=I2B), intent(in), dimension(:) :: B Return Value integer(kind=I2B),\n  dimension(3) public pure function operator_cross_i4b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:) :: A integer(kind=I4B), intent(in), dimension(:) :: B Return Value integer(kind=I4B),\n  dimension(3) public pure function operator_cross_i8b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in), dimension(:) :: A integer(kind=I8B), intent(in), dimension(:) :: B Return Value integer(kind=I8B),\n  dimension(3) public pure function operator_cross_el_sp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:,:) :: A real(kind=SP), intent(in), dimension(:,:) :: B Return Value real(kind=SP),\n  dimension(:,:), allocatable public pure function operator_cross_el_dp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A real(kind=DP), intent(in), dimension(:,:) :: B Return Value real(kind=DP),\n  dimension(:,:), allocatable public pure function operator_cross_el_qp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:,:) :: B Return Value real(kind=QP),\n  dimension(:,:), allocatable public pure function operator_cross_el_i1b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I1B), intent(in), dimension(:,:) :: A integer(kind=I1B), intent(in), dimension(:,:) :: B Return Value integer(kind=I1B),\n  dimension(:,:), allocatable public pure function operator_cross_el_i2b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I2B), intent(in), dimension(:,:) :: A integer(kind=I2B), intent(in), dimension(:,:) :: B Return Value integer(kind=I2B),\n  dimension(:,:), allocatable public pure function operator_cross_el_i4b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:,:) :: A integer(kind=I4B), intent(in), dimension(:,:) :: B Return Value integer(kind=I4B),\n  dimension(:,:), allocatable public pure function operator_cross_el_i8b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in), dimension(:,:) :: A integer(kind=I8B), intent(in), dimension(:,:) :: B Return Value integer(kind=I8B),\n  dimension(:,:), allocatable","tags":"","loc":"interface/operator(.cross.).html"},{"title":"operator(.mag.) – swiftest","text":"public interface operator(.mag.) Contents Functions operator_mag_sp operator_mag_dp operator_mag_qp operator_mag_el_sp operator_mag_el_dp operator_mag_el_qp Functions public pure function operator_mag_sp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: A Return Value real(kind=SP) public pure function operator_mag_dp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: A Return Value real(kind=DP) public pure function operator_mag_qp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:) :: A Return Value real(kind=QP) public pure function operator_mag_el_sp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:,:) :: A Return Value real(kind=SP),\n  dimension(:), allocatable public pure function operator_mag_el_dp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A Return Value real(kind=DP),\n  dimension(:), allocatable public pure function operator_mag_el_qp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A Return Value real(kind=QP),\n  dimension(:), allocatable","tags":"","loc":"interface/operator(.mag.).html"},{"title":"helio_coord_vb2vh_pl – swiftest","text":"interface Calls interface~~helio_coord_vb2vh_pl~~CallsGraph interface~helio_coord_vb2vh_pl helio_coord_vb2vh_pl proc~helio_coord_vb2vh_pl helio_coord_vb2vh_pl interface~helio_coord_vb2vh_pl->proc~helio_coord_vb2vh_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_coord_vb2vh_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/helio_coord_vb2vh_pl.html"},{"title":"helio_coord_vb2vh_tp – swiftest","text":"interface Calls interface~~helio_coord_vb2vh_tp~~CallsGraph interface~helio_coord_vb2vh_tp helio_coord_vb2vh_tp proc~helio_coord_vb2vh_tp helio_coord_vb2vh_tp interface~helio_coord_vb2vh_tp->proc~helio_coord_vb2vh_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_coord_vb2vh_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body","tags":"","loc":"interface/helio_coord_vb2vh_tp.html"},{"title":"helio_coord_vh2vb_pl – swiftest","text":"interface Calls interface~~helio_coord_vh2vb_pl~~CallsGraph interface~helio_coord_vh2vb_pl helio_coord_vh2vb_pl proc~helio_coord_vh2vb_pl helio_coord_vh2vb_pl interface~helio_coord_vh2vb_pl->proc~helio_coord_vh2vb_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_coord_vh2vb_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/helio_coord_vh2vb_pl.html"},{"title":"helio_coord_vh2vb_tp – swiftest","text":"interface Calls interface~~helio_coord_vh2vb_tp~~CallsGraph interface~helio_coord_vh2vb_tp helio_coord_vh2vb_tp proc~helio_coord_vh2vb_tp helio_coord_vh2vb_tp interface~helio_coord_vh2vb_tp->proc~helio_coord_vh2vb_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_coord_vh2vb_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body","tags":"","loc":"interface/helio_coord_vh2vb_tp.html"},{"title":"helio_drift_body – swiftest","text":"interface Calls interface~~helio_drift_body~~CallsGraph interface~helio_drift_body helio_drift_body proc~helio_drift_body helio_drift_body interface~helio_drift_body->proc~helio_drift_body drift_all drift_all proc~helio_drift_body->drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~helio_drift_body~~CalledByGraph interface~helio_drift_body helio_drift_body proc~helio_drift_tp helio_drift_tp proc~helio_drift_tp->interface~helio_drift_body proc~helio_drift_pl helio_drift_pl proc~helio_drift_pl->interface~helio_drift_body interface~helio_drift_tp helio_drift_tp interface~helio_drift_tp->proc~helio_drift_tp interface~helio_drift_pl helio_drift_pl interface~helio_drift_pl->proc~helio_drift_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class(swiftest_body), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/helio_drift_body.html"},{"title":"helio_drift_pl – swiftest","text":"interface Calls interface~~helio_drift_pl~~CallsGraph interface~helio_drift_pl helio_drift_pl proc~helio_drift_pl helio_drift_pl interface~helio_drift_pl->proc~helio_drift_pl interface~helio_drift_body helio_drift_body proc~helio_drift_pl->interface~helio_drift_body proc~helio_drift_body helio_drift_body interface~helio_drift_body->proc~helio_drift_body drift_all drift_all proc~helio_drift_body->drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/helio_drift_pl.html"},{"title":"helio_drift_tp – swiftest","text":"interface Calls interface~~helio_drift_tp~~CallsGraph interface~helio_drift_tp helio_drift_tp proc~helio_drift_tp helio_drift_tp interface~helio_drift_tp->proc~helio_drift_tp interface~helio_drift_body helio_drift_body proc~helio_drift_tp->interface~helio_drift_body proc~helio_drift_body helio_drift_body interface~helio_drift_body->proc~helio_drift_body drift_all drift_all proc~helio_drift_body->drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_drift_tp(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/helio_drift_tp.html"},{"title":"helio_drift_linear_pl – swiftest","text":"interface Calls interface~~helio_drift_linear_pl~~CallsGraph interface~helio_drift_linear_pl helio_drift_linear_pl proc~helio_drift_linear_pl helio_drift_linear_pl interface~helio_drift_linear_pl->proc~helio_drift_linear_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_drift_linear_pl(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( helio_cb ), intent(inout) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/helio_drift_linear_pl.html"},{"title":"helio_drift_linear_tp – swiftest","text":"interface Calls interface~~helio_drift_linear_tp~~CallsGraph interface~helio_drift_linear_tp helio_drift_linear_tp proc~helio_drift_linear_tp helio_drift_linear_tp interface~helio_drift_linear_tp->proc~helio_drift_linear_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_drift_linear_tp(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( helio_cb ), intent(in) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/helio_drift_linear_tp.html"},{"title":"helio_gr_kick_getacch_pl – swiftest","text":"interface Calls interface~~helio_gr_kick_getacch_pl~~CallsGraph interface~helio_gr_kick_getacch_pl helio_gr_kick_getacch_pl proc~helio_gr_kick_getacch_pl helio_gr_kick_getacch_pl interface~helio_gr_kick_getacch_pl->proc~helio_gr_kick_getacch_pl gr_kick_getacch gr_kick_getacch proc~helio_gr_kick_getacch_pl->gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/helio_gr_kick_getacch_pl.html"},{"title":"helio_gr_kick_getacch_tp – swiftest","text":"interface Calls interface~~helio_gr_kick_getacch_tp~~CallsGraph interface~helio_gr_kick_getacch_tp helio_gr_kick_getacch_tp proc~helio_gr_kick_getacch_tp helio_gr_kick_getacch_tp interface~helio_gr_kick_getacch_tp->proc~helio_gr_kick_getacch_tp gr_kick_getacch gr_kick_getacch proc~helio_gr_kick_getacch_tp->gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_gr_kick_getacch_tp(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/helio_gr_kick_getacch_tp.html"},{"title":"helio_gr_p4_pl – swiftest","text":"interface Calls interface~~helio_gr_p4_pl~~CallsGraph interface~helio_gr_p4_pl helio_gr_p4_pl proc~helio_gr_p4_pl helio_gr_p4_pl interface~helio_gr_p4_pl->proc~helio_gr_p4_pl gr_p4_pos_kick gr_p4_pos_kick proc~helio_gr_p4_pl->gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine helio_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size","tags":"","loc":"interface/helio_gr_p4_pl.html"},{"title":"helio_gr_p4_tp – swiftest","text":"interface Calls interface~~helio_gr_p4_tp~~CallsGraph interface~helio_gr_p4_tp helio_gr_p4_tp proc~helio_gr_p4_tp helio_gr_p4_tp interface~helio_gr_p4_tp->proc~helio_gr_p4_tp gr_p4_pos_kick gr_p4_pos_kick proc~helio_gr_p4_tp->gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine helio_gr_p4_tp(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size","tags":"","loc":"interface/helio_gr_p4_tp.html"},{"title":"helio_kick_getacch_pl – swiftest","text":"interface Calls interface~~helio_kick_getacch_pl~~CallsGraph interface~helio_kick_getacch_pl helio_kick_getacch_pl proc~helio_kick_getacch_pl helio_kick_getacch_pl interface~helio_kick_getacch_pl->proc~helio_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/helio_kick_getacch_pl.html"},{"title":"helio_kick_getacch_tp – swiftest","text":"interface Calls interface~~helio_kick_getacch_tp~~CallsGraph interface~helio_kick_getacch_tp helio_kick_getacch_tp proc~helio_kick_getacch_tp helio_kick_getacch_tp interface~helio_kick_getacch_tp->proc~helio_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/helio_kick_getacch_tp.html"},{"title":"helio_kick_vb_pl – swiftest","text":"interface Calls interface~~helio_kick_vb_pl~~CallsGraph interface~helio_kick_vb_pl helio_kick_vb_pl proc~helio_kick_vb_pl helio_kick_vb_pl interface~helio_kick_vb_pl->proc~helio_kick_vb_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_kick_vb_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not.","tags":"","loc":"interface/helio_kick_vb_pl.html"},{"title":"helio_kick_vb_tp – swiftest","text":"interface Calls interface~~helio_kick_vb_tp~~CallsGraph interface~helio_kick_vb_tp helio_kick_vb_tp proc~helio_kick_vb_tp helio_kick_vb_tp interface~helio_kick_vb_tp->proc~helio_kick_vb_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_kick_vb_tp(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not.","tags":"","loc":"interface/helio_kick_vb_tp.html"},{"title":"helio_step_pl – swiftest","text":"interface Calls interface~~helio_step_pl~~CallsGraph interface~helio_step_pl helio_step_pl proc~helio_step_pl helio_step_pl interface~helio_step_pl->proc~helio_step_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/helio_step_pl.html"},{"title":"helio_step_system – swiftest","text":"interface Calls interface~~helio_step_system~~CallsGraph interface~helio_step_system helio_step_system proc~helio_step_system helio_step_system interface~helio_step_system->proc~helio_step_system whm_step_system whm_step_system proc~helio_step_system->whm_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_nbody_system ), intent(inout) :: self Helio nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/helio_step_system.html"},{"title":"helio_step_tp – swiftest","text":"interface Calls interface~~helio_step_tp~~CallsGraph interface~helio_step_tp helio_step_tp proc~helio_step_tp helio_step_tp interface~helio_step_tp->proc~helio_step_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_step_tp(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsizee","tags":"","loc":"interface/helio_step_tp.html"},{"title":"whm_coord_h2j_pl – swiftest","text":"interface Calls interface~~whm_coord_h2j_pl~~CallsGraph interface~whm_coord_h2j_pl whm_coord_h2j_pl proc~whm_coord_h2j_pl whm_coord_h2j_pl interface~whm_coord_h2j_pl->proc~whm_coord_h2j_pl xh xh proc~whm_coord_h2j_pl->xh gmpl gmpl proc~whm_coord_h2j_pl->gmpl vj vj proc~whm_coord_h2j_pl->vj xj xj proc~whm_coord_h2j_pl->xj eta eta proc~whm_coord_h2j_pl->eta vh vh proc~whm_coord_h2j_pl->vh Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_coord_h2j_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree","tags":"","loc":"interface/whm_coord_h2j_pl.html"},{"title":"whm_coord_j2h_pl – swiftest","text":"interface Calls interface~~whm_coord_j2h_pl~~CallsGraph interface~whm_coord_j2h_pl whm_coord_j2h_pl proc~whm_coord_j2h_pl whm_coord_j2h_pl interface~whm_coord_j2h_pl->proc~whm_coord_j2h_pl xh xh proc~whm_coord_j2h_pl->xh gmpl gmpl proc~whm_coord_j2h_pl->gmpl vj vj proc~whm_coord_j2h_pl->vj xj xj proc~whm_coord_j2h_pl->xj eta eta proc~whm_coord_j2h_pl->eta vh vh proc~whm_coord_j2h_pl->vh Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_coord_j2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree","tags":"","loc":"interface/whm_coord_j2h_pl.html"},{"title":"whm_coord_vh2vj_pl – swiftest","text":"interface Calls interface~~whm_coord_vh2vj_pl~~CallsGraph interface~whm_coord_vh2vj_pl whm_coord_vh2vj_pl proc~whm_coord_vh2vj_pl whm_coord_vh2vj_pl interface~whm_coord_vh2vj_pl->proc~whm_coord_vh2vj_pl vj vj proc~whm_coord_vh2vj_pl->vj gmpl gmpl proc~whm_coord_vh2vj_pl->gmpl eta eta proc~whm_coord_vh2vj_pl->eta vh vh proc~whm_coord_vh2vj_pl->vh Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_coord_vh2vj_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree","tags":"","loc":"interface/whm_coord_vh2vj_pl.html"},{"title":"whm_drift_pl – swiftest","text":"interface Calls interface~~whm_drift_pl~~CallsGraph interface~whm_drift_pl whm_drift_pl proc~whm_drift_pl whm_drift_pl interface~whm_drift_pl->proc~whm_drift_pl drift_all drift_all proc~whm_drift_pl->drift_all util_exit util_exit proc~whm_drift_pl->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/whm_drift_pl.html"},{"title":"whm_kick_getacch_pl – swiftest","text":"interface Calls interface~~whm_kick_getacch_pl~~CallsGraph interface~whm_kick_getacch_pl whm_kick_getacch_pl proc~whm_kick_getacch_pl whm_kick_getacch_pl interface~whm_kick_getacch_pl->proc~whm_kick_getacch_pl proc~whm_kick_getacch_ah0 whm_kick_getacch_ah0 proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah0 proc~whm_kick_getacch_ah1 whm_kick_getacch_ah1 proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah1 proc~whm_kick_getacch_ah2 whm_kick_getacch_ah2 proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Description Get heliocentric accelration of massive bodies","tags":"","loc":"interface/whm_kick_getacch_pl.html"},{"title":"whm_kick_getacch_tp – swiftest","text":"interface Calls interface~~whm_kick_getacch_tp~~CallsGraph interface~whm_kick_getacch_tp whm_kick_getacch_tp proc~whm_kick_getacch_tp whm_kick_getacch_tp interface~whm_kick_getacch_tp->proc~whm_kick_getacch_tp proc~whm_kick_getacch_ah0 whm_kick_getacch_ah0 proc~whm_kick_getacch_tp->proc~whm_kick_getacch_ah0 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Description Get heliocentric accelration of the test particle","tags":"","loc":"interface/whm_kick_getacch_tp.html"},{"title":"whm_kick_vh_pl – swiftest","text":"interface Calls interface~~whm_kick_vh_pl~~CallsGraph interface~whm_kick_vh_pl whm_kick_vh_pl proc~whm_kick_vh_pl whm_kick_vh_pl interface~whm_kick_vh_pl->proc~whm_kick_vh_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_kick_vh_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not.","tags":"","loc":"interface/whm_kick_vh_pl.html"},{"title":"whm_kick_vh_tp – swiftest","text":"interface Calls interface~~whm_kick_vh_tp~~CallsGraph interface~whm_kick_vh_tp whm_kick_vh_tp proc~whm_kick_vh_tp whm_kick_vh_tp interface~whm_kick_vh_tp->proc~whm_kick_vh_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_kick_vh_tp(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not.","tags":"","loc":"interface/whm_kick_vh_tp.html"},{"title":"whm_gr_kick_getacch_pl – swiftest","text":"interface Calls interface~~whm_gr_kick_getacch_pl~~CallsGraph interface~whm_gr_kick_getacch_pl whm_gr_kick_getacch_pl proc~whm_gr_kick_getacch_pl whm_gr_kick_getacch_pl interface~whm_gr_kick_getacch_pl->proc~whm_gr_kick_getacch_pl gr_kick_getacch gr_kick_getacch proc~whm_gr_kick_getacch_pl->gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/whm_gr_kick_getacch_pl.html"},{"title":"whm_gr_kick_getacch_tp – swiftest","text":"interface Calls interface~~whm_gr_kick_getacch_tp~~CallsGraph interface~whm_gr_kick_getacch_tp whm_gr_kick_getacch_tp proc~whm_gr_kick_getacch_tp whm_gr_kick_getacch_tp interface~whm_gr_kick_getacch_tp->proc~whm_gr_kick_getacch_tp gr_kick_getacch gr_kick_getacch proc~whm_gr_kick_getacch_tp->gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_gr_kick_getacch_tp(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/whm_gr_kick_getacch_tp.html"},{"title":"whm_gr_p4_pl – swiftest","text":"interface Calls interface~~whm_gr_p4_pl~~CallsGraph interface~whm_gr_p4_pl whm_gr_p4_pl proc~whm_gr_p4_pl whm_gr_p4_pl interface~whm_gr_p4_pl->proc~whm_gr_p4_pl gr_p4_pos_kick gr_p4_pos_kick proc~whm_gr_p4_pl->gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine whm_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size","tags":"","loc":"interface/whm_gr_p4_pl.html"},{"title":"whm_gr_p4_tp – swiftest","text":"interface Calls interface~~whm_gr_p4_tp~~CallsGraph interface~whm_gr_p4_tp whm_gr_p4_tp proc~whm_gr_p4_tp whm_gr_p4_tp interface~whm_gr_p4_tp->proc~whm_gr_p4_tp gr_p4_pos_kick gr_p4_pos_kick proc~whm_gr_p4_tp->gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine whm_gr_p4_tp(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size","tags":"","loc":"interface/whm_gr_p4_tp.html"},{"title":"whm_setup_pl – swiftest","text":"interface Calls interface~~whm_setup_pl~~CallsGraph interface~whm_setup_pl whm_setup_pl proc~whm_setup_pl whm_setup_pl interface~whm_setup_pl->proc~whm_setup_pl setup_pl setup_pl proc~whm_setup_pl->setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body objectobject integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameters Description Reads WHM massive body object in from file","tags":"","loc":"interface/whm_setup_pl.html"},{"title":"whm_setup_initialize_system – swiftest","text":"interface Calls interface~~whm_setup_initialize_system~~CallsGraph interface~whm_setup_initialize_system whm_setup_initialize_system proc~whm_setup_initialize_system whm_setup_initialize_system interface~whm_setup_initialize_system->proc~whm_setup_initialize_system setup_initialize_system setup_initialize_system proc~whm_setup_initialize_system->setup_initialize_system util_set_ir3h util_set_ir3h proc~whm_setup_initialize_system->util_set_ir3h Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/whm_setup_initialize_system.html"},{"title":"whm_step_pl – swiftest","text":"interface Calls interface~~whm_step_pl~~CallsGraph interface~whm_step_pl whm_step_pl proc~whm_step_pl whm_step_pl interface~whm_step_pl->proc~whm_step_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/whm_step_pl.html"},{"title":"whm_step_system – swiftest","text":"interface Calls interface~~whm_step_system~~CallsGraph interface~whm_step_system whm_step_system proc~whm_step_system whm_step_system interface~whm_step_system->proc~whm_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/whm_step_system.html"},{"title":"whm_step_tp – swiftest","text":"interface Calls interface~~whm_step_tp~~CallsGraph interface~whm_step_tp whm_step_tp proc~whm_step_tp whm_step_tp interface~whm_step_tp->proc~whm_step_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_step_tp(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/whm_step_tp.html"},{"title":"whm_util_append_pl – swiftest","text":"interface Calls interface~~whm_util_append_pl~~CallsGraph interface~whm_util_append_pl whm_util_append_pl proc~whm_util_append_pl whm_util_append_pl interface~whm_util_append_pl->proc~whm_util_append_pl util_append util_append proc~whm_util_append_pl->util_append util_append_pl util_append_pl proc~whm_util_append_pl->util_append_pl util_exit util_exit proc~whm_util_append_pl->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/whm_util_append_pl.html"},{"title":"whm_util_spill_pl – swiftest","text":"interface Calls interface~~whm_util_spill_pl~~CallsGraph interface~whm_util_spill_pl whm_util_spill_pl proc~whm_util_spill_pl whm_util_spill_pl interface~whm_util_spill_pl->proc~whm_util_spill_pl util_spill util_spill proc~whm_util_spill_pl->util_spill util_exit util_exit proc~whm_util_spill_pl->util_exit util_spill_pl util_spill_pl proc~whm_util_spill_pl->util_spill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/whm_util_spill_pl.html"},{"title":"whm_util_fill_pl – swiftest","text":"interface Calls interface~~whm_util_fill_pl~~CallsGraph interface~whm_util_fill_pl whm_util_fill_pl proc~whm_util_fill_pl whm_util_fill_pl interface~whm_util_fill_pl->proc~whm_util_fill_pl util_fill util_fill proc~whm_util_fill_pl->util_fill util_fill_pl util_fill_pl proc~whm_util_fill_pl->util_fill_pl util_exit util_exit proc~whm_util_fill_pl->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: inserts inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/whm_util_fill_pl.html"},{"title":"whm_util_resize_pl – swiftest","text":"interface Calls interface~~whm_util_resize_pl~~CallsGraph interface~whm_util_resize_pl whm_util_resize_pl proc~whm_util_resize_pl whm_util_resize_pl interface~whm_util_resize_pl->proc~whm_util_resize_pl util_resize_pl util_resize_pl proc~whm_util_resize_pl->util_resize_pl util_resize util_resize proc~whm_util_resize_pl->util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/whm_util_resize_pl.html"},{"title":"whm_util_set_ir3j – swiftest","text":"interface Calls interface~~whm_util_set_ir3j~~CallsGraph interface~whm_util_set_ir3j whm_util_set_ir3j proc~whm_util_set_ir3j whm_util_set_ir3j interface~whm_util_set_ir3j->proc~whm_util_set_ir3j Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_util_set_ir3j(self) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object","tags":"","loc":"interface/whm_util_set_ir3j.html"},{"title":"whm_util_set_mu_eta_pl – swiftest","text":"interface Calls interface~~whm_util_set_mu_eta_pl~~CallsGraph interface~whm_util_set_mu_eta_pl whm_util_set_mu_eta_pl proc~whm_util_set_mu_eta_pl whm_util_set_mu_eta_pl interface~whm_util_set_mu_eta_pl->proc~whm_util_set_mu_eta_pl util_set_mu_pl util_set_mu_pl proc~whm_util_set_mu_eta_pl->util_set_mu_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_util_set_mu_eta_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/whm_util_set_mu_eta_pl.html"},{"title":"whm_util_sort_pl – swiftest","text":"interface Calls interface~~whm_util_sort_pl~~CallsGraph interface~whm_util_sort_pl whm_util_sort_pl proc~whm_util_sort_pl whm_util_sort_pl interface~whm_util_sort_pl->proc~whm_util_sort_pl util_sort_pl util_sort_pl proc~whm_util_sort_pl->util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order","tags":"","loc":"interface/whm_util_sort_pl.html"},{"title":"whm_util_sort_rearrange_pl – swiftest","text":"interface Calls interface~~whm_util_sort_rearrange_pl~~CallsGraph interface~whm_util_sort_rearrange_pl whm_util_sort_rearrange_pl proc~whm_util_sort_rearrange_pl whm_util_sort_rearrange_pl interface~whm_util_sort_rearrange_pl->proc~whm_util_sort_rearrange_pl util_sort_rearrange_pl util_sort_rearrange_pl proc~whm_util_sort_rearrange_pl->util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order)","tags":"","loc":"interface/whm_util_sort_rearrange_pl.html"},{"title":"symba_encounter_check_pl – swiftest","text":"interface Calls interface~~symba_encounter_check_pl~~CallsGraph interface~symba_encounter_check_pl symba_encounter_check_pl proc~symba_encounter_check_pl symba_encounter_check_pl interface~symba_encounter_check_pl->proc~symba_encounter_check_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function symba_encounter_check_pl(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter","tags":"","loc":"interface/symba_encounter_check_pl.html"},{"title":"symba_encounter_check_pltpenc – swiftest","text":"interface Calls interface~~symba_encounter_check_pltpenc~~CallsGraph interface~symba_encounter_check_pltpenc symba_encounter_check_pltpenc proc~symba_encounter_check_pltpenc symba_encounter_check_pltpenc interface~symba_encounter_check_pltpenc->proc~symba_encounter_check_pltpenc ind2 ind2 proc~symba_encounter_check_pltpenc->ind2 ind1 ind1 proc~symba_encounter_check_pltpenc->ind1 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-pl encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter","tags":"","loc":"interface/symba_encounter_check_pltpenc.html"},{"title":"symba_encounter_check_tp – swiftest","text":"interface Calls interface~~symba_encounter_check_tp~~CallsGraph interface~symba_encounter_check_tp symba_encounter_check_tp proc~symba_encounter_check_tp symba_encounter_check_tp interface~symba_encounter_check_tp->proc~symba_encounter_check_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function symba_encounter_check_tp(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter","tags":"","loc":"interface/symba_encounter_check_tp.html"},{"title":"symba_fragmentation_casedisruption – swiftest","text":"interface Calls interface~~symba_fragmentation_casedisruption~~CallsGraph interface~symba_fragmentation_casedisruption symba_fragmentation_casedisruption proc~symba_fragmentation_casedisruption symba_fragmentation_casedisruption interface~symba_fragmentation_casedisruption->proc~symba_fragmentation_casedisruption fragmentation_initialize fragmentation_initialize proc~symba_fragmentation_casedisruption->fragmentation_initialize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~symba_fragmentation_casedisruption~~CalledByGraph interface~symba_fragmentation_casedisruption symba_fragmentation_casedisruption proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casedisruption interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function symba_fragmentation_casedisruption(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collisionn Return Value integer(kind=I4B) Status flag assigned to this outcome","tags":"","loc":"interface/symba_fragmentation_casedisruption.html"},{"title":"symba_fragmentation_casehitandrun – swiftest","text":"interface Calls interface~~symba_fragmentation_casehitandrun~~CallsGraph interface~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun proc~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun interface~symba_fragmentation_casehitandrun->proc~symba_fragmentation_casehitandrun fragmentation_initialize fragmentation_initialize proc~symba_fragmentation_casehitandrun->fragmentation_initialize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~symba_fragmentation_casehitandrun~~CalledByGraph interface~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casehitandrun interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function symba_fragmentation_casehitandrun(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome","tags":"","loc":"interface/symba_fragmentation_casehitandrun.html"},{"title":"symba_fragmentation_casemerge – swiftest","text":"interface Calls interface~~symba_fragmentation_casemerge~~CallsGraph interface~symba_fragmentation_casemerge symba_fragmentation_casemerge proc~symba_fragmentation_casemerge symba_fragmentation_casemerge interface~symba_fragmentation_casemerge->proc~symba_fragmentation_casemerge Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~symba_fragmentation_casemerge~~CalledByGraph interface~symba_fragmentation_casemerge symba_fragmentation_casemerge proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casemerge proc~symba_collision_resolve_mergers symba_collision_resolve_mergers proc~symba_collision_resolve_mergers->interface~symba_fragmentation_casemerge interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations interface~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers->proc~symba_collision_resolve_mergers Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function symba_fragmentation_casemerge(system, param, family, x, v, mass, radius, L_spin, Ip) result(status) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(in), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collisio real(kind=DP), intent(in), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collisio real(kind=DP), intent(in), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision Return Value integer(kind=I4B) Status flag assigned to this outcome","tags":"","loc":"interface/symba_fragmentation_casemerge.html"},{"title":"symba_fragmentation_casesupercatastrophic – swiftest","text":"interface Calls interface~~symba_fragmentation_casesupercatastrophic~~CallsGraph interface~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic proc~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic interface~symba_fragmentation_casesupercatastrophic->proc~symba_fragmentation_casesupercatastrophic fragmentation_initialize fragmentation_initialize proc~symba_fragmentation_casesupercatastrophic->fragmentation_initialize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~symba_fragmentation_casesupercatastrophic~~CalledByGraph interface~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casesupercatastrophic interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function symba_fragmentation_casesupercatastrophic(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome","tags":"","loc":"interface/symba_fragmentation_casesupercatastrophic.html"},{"title":"symba_collision_check_pltpenc – swiftest","text":"interface Calls interface~~symba_collision_check_pltpenc~~CallsGraph interface~symba_collision_check_pltpenc symba_collision_check_pltpenc proc~symba_collision_check_pltpenc symba_collision_check_pltpenc interface~symba_collision_check_pltpenc->proc~symba_collision_check_pltpenc ind2 ind2 proc~symba_collision_check_pltpenc->ind2 proc~symba_collision_check_one symba_collision_check_one proc~symba_collision_check_pltpenc->proc~symba_collision_check_one ind1 ind1 proc~symba_collision_check_pltpenc->ind1 orbel_xv2aeq orbel_xv2aeq proc~symba_collision_check_one->orbel_xv2aeq Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t current time real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level","tags":"","loc":"interface/symba_collision_check_pltpenc.html"},{"title":"symba_collision_encounter_scrub – swiftest","text":"interface Calls interface~~symba_collision_encounter_scrub~~CallsGraph interface~symba_collision_encounter_scrub symba_collision_encounter_scrub proc~symba_collision_encounter_scrub symba_collision_encounter_scrub interface~symba_collision_encounter_scrub->proc~symba_collision_encounter_scrub idx1 idx1 proc~symba_collision_encounter_scrub->idx1 idx2 idx2 proc~symba_collision_encounter_scrub->idx2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_collision_encounter_scrub(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameterss","tags":"","loc":"interface/symba_collision_encounter_scrub.html"},{"title":"symba_collision_make_family_pl – swiftest","text":"interface Calls interface~~symba_collision_make_family_pl~~CallsGraph interface~symba_collision_make_family_pl symba_collision_make_family_pl proc~symba_collision_make_family_pl symba_collision_make_family_pl interface~symba_collision_make_family_pl->proc~symba_collision_make_family_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_collision_make_family_pl(self, idx) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(2) :: idx Array holding the indices of the two bodies involved in the collision","tags":"","loc":"interface/symba_collision_make_family_pl.html"},{"title":"symba_collision_resolve_fragmentations – swiftest","text":"interface Calls interface~~symba_collision_resolve_fragmentations~~CallsGraph interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations interface~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casesupercatastrophic interface~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casehitandrun interface~symba_fragmentation_casedisruption symba_fragmentation_casedisruption proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casedisruption idx1 idx1 proc~symba_collision_resolve_fragmentations->idx1 util_exit util_exit proc~symba_collision_resolve_fragmentations->util_exit idx2 idx2 proc~symba_collision_resolve_fragmentations->idx2 proc~symba_collision_consolidate_familes symba_collision_consolidate_familes proc~symba_collision_resolve_fragmentations->proc~symba_collision_consolidate_familes interface~symba_fragmentation_casemerge symba_fragmentation_casemerge proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casemerge proc~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic interface~symba_fragmentation_casesupercatastrophic->proc~symba_fragmentation_casesupercatastrophic proc~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun interface~symba_fragmentation_casehitandrun->proc~symba_fragmentation_casehitandrun proc~symba_fragmentation_casedisruption symba_fragmentation_casedisruption interface~symba_fragmentation_casedisruption->proc~symba_fragmentation_casedisruption idx_arr idx_arr proc~symba_collision_consolidate_familes->idx_arr id_arr id_arr proc~symba_collision_consolidate_familes->id_arr proc~symba_fragmentation_casemerge symba_fragmentation_casemerge interface~symba_fragmentation_casemerge->proc~symba_fragmentation_casemerge fragmentation_initialize fragmentation_initialize proc~symba_fragmentation_casehitandrun->fragmentation_initialize proc~symba_fragmentation_casesupercatastrophic->fragmentation_initialize proc~symba_fragmentation_casedisruption->fragmentation_initialize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_collision_resolve_fragmentations(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions","tags":"","loc":"interface/symba_collision_resolve_fragmentations.html"},{"title":"symba_collision_resolve_mergers – swiftest","text":"interface Calls interface~~symba_collision_resolve_mergers~~CallsGraph interface~symba_collision_resolve_mergers symba_collision_resolve_mergers proc~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers->proc~symba_collision_resolve_mergers idx1 idx1 proc~symba_collision_resolve_mergers->idx1 idx2 idx2 proc~symba_collision_resolve_mergers->idx2 proc~symba_collision_consolidate_familes symba_collision_consolidate_familes proc~symba_collision_resolve_mergers->proc~symba_collision_consolidate_familes interface~symba_fragmentation_casemerge symba_fragmentation_casemerge proc~symba_collision_resolve_mergers->interface~symba_fragmentation_casemerge idx_arr idx_arr proc~symba_collision_consolidate_familes->idx_arr id_arr id_arr proc~symba_collision_consolidate_familes->id_arr proc~symba_fragmentation_casemerge symba_fragmentation_casemerge interface~symba_fragmentation_casemerge->proc~symba_fragmentation_casemerge Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_collision_resolve_mergers(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions","tags":"","loc":"interface/symba_collision_resolve_mergers.html"},{"title":"symba_discard_pl – swiftest","text":"interface Calls interface~~symba_discard_pl~~CallsGraph interface~symba_discard_pl symba_discard_pl proc~symba_discard_pl symba_discard_pl interface~symba_discard_pl->proc~symba_discard_pl proc~symba_discard_nonplpl symba_discard_nonplpl proc~symba_discard_pl->proc~symba_discard_nonplpl proc~symba_discard_nonplpl_conservation symba_discard_nonplpl_conservation proc~symba_discard_pl->proc~symba_discard_nonplpl_conservation proc~symba_discard_cb_pl symba_discard_cb_pl proc~symba_discard_nonplpl->proc~symba_discard_cb_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/symba_discard_pl.html"},{"title":"symba_drift_pl – swiftest","text":"interface Calls interface~~symba_drift_pl~~CallsGraph interface~symba_drift_pl symba_drift_pl proc~symba_drift_pl symba_drift_pl interface~symba_drift_pl->proc~symba_drift_pl helio_drift_body helio_drift_body proc~symba_drift_pl->helio_drift_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/symba_drift_pl.html"},{"title":"symba_drift_tp – swiftest","text":"interface Calls interface~~symba_drift_tp~~CallsGraph interface~symba_drift_tp symba_drift_tp proc~symba_drift_tp symba_drift_tp interface~symba_drift_tp->proc~symba_drift_tp helio_drift_body helio_drift_body proc~symba_drift_tp->helio_drift_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_drift_tp(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/symba_drift_tp.html"},{"title":"symba_encounter_check_one – swiftest","text":"interface Calls interface~~symba_encounter_check_one~~CallsGraph interface~symba_encounter_check_one symba_encounter_check_one proc~symba_encounter_check_one symba_encounter_check_one interface~symba_encounter_check_one->proc~symba_encounter_check_one interface~rmvs_chk_ind rmvs_chk_ind proc~symba_encounter_check_one->interface~rmvs_chk_ind proc~rmvs_chk_ind rmvs_chk_ind interface~rmvs_chk_ind->proc~rmvs_chk_ind Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure elemental module subroutine symba_encounter_check_one(xr, yr, zr, vxr, vyr, vzr, rhill1, rhill2, dt, irec, lencounter, lvdotr) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: xr real(kind=DP), intent(in) :: yr real(kind=DP), intent(in) :: zr real(kind=DP), intent(in) :: vxr real(kind=DP), intent(in) :: vyr real(kind=DP), intent(in) :: vzr real(kind=DP), intent(in) :: rhill1 real(kind=DP), intent(in) :: rhill2 real(kind=DP), intent(in) :: dt integer(kind=I4B), intent(in) :: irec logical, intent(out) :: lencounter logical, intent(out) :: lvdotr","tags":"","loc":"interface/symba_encounter_check_one.html"},{"title":"symba_io_write_discard – swiftest","text":"interface Calls interface~~symba_io_write_discard~~CallsGraph interface~symba_io_write_discard symba_io_write_discard proc~symba_io_write_discard symba_io_write_discard interface~symba_io_write_discard->proc~symba_io_write_discard util_exit util_exit proc~symba_io_write_discard->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/symba_io_write_discard.html"},{"title":"symba_io_dump_particle_info – swiftest","text":"interface Calls interface~~symba_io_dump_particle_info~~CallsGraph interface~symba_io_dump_particle_info symba_io_dump_particle_info proc~symba_io_dump_particle_info symba_io_dump_particle_info interface~symba_io_dump_particle_info->proc~symba_io_dump_particle_info Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_io_dump_particle_info(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation","tags":"","loc":"interface/symba_io_dump_particle_info.html"},{"title":"symba_io_param_reader – swiftest","text":"interface Calls interface~~symba_io_param_reader~~CallsGraph interface~symba_io_param_reader symba_io_param_reader proc~symba_io_param_reader symba_io_param_reader interface~symba_io_param_reader->proc~symba_io_param_reader io_toupper io_toupper proc~symba_io_param_reader->io_toupper io_param_reader io_param_reader proc~symba_io_param_reader->io_param_reader io_get_token io_get_token proc~symba_io_param_reader->io_get_token Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(inout) :: self Current run configuration parameters with SyMBA additionss integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) The first element passes the integrator code to the reader integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0","tags":"","loc":"interface/symba_io_param_reader.html"},{"title":"symba_io_param_writer – swiftest","text":"interface Calls interface~~symba_io_param_writer~~CallsGraph interface~symba_io_param_writer symba_io_param_writer proc~symba_io_param_writer symba_io_param_writer interface~symba_io_param_writer->proc~symba_io_param_writer io_param_writer io_param_writer proc~symba_io_param_writer->io_param_writer Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_io_param_writer(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(in) :: self Current run configuration parameters with SyMBA additions integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) Not used in this procedure integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0","tags":"","loc":"interface/symba_io_param_writer.html"},{"title":"symba_io_initialize_particle_info – swiftest","text":"interface Calls interface~~symba_io_initialize_particle_info~~CallsGraph interface~symba_io_initialize_particle_info symba_io_initialize_particle_info proc~symba_io_initialize_particle_info symba_io_initialize_particle_info interface~symba_io_initialize_particle_info->proc~symba_io_initialize_particle_info Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_io_initialize_particle_info(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(inout) :: self SyMBA particle info object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/symba_io_initialize_particle_info.html"},{"title":"symba_io_read_frame_info – swiftest","text":"interface Calls interface~~symba_io_read_frame_info~~CallsGraph interface~symba_io_read_frame_info symba_io_read_frame_info proc~symba_io_read_frame_info symba_io_read_frame_info interface~symba_io_read_frame_info->proc~symba_io_read_frame_info Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_io_read_frame_info(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(inout) :: self SyMBA particle info object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code","tags":"","loc":"interface/symba_io_read_frame_info.html"},{"title":"symba_kick_getacch_pl – swiftest","text":"interface Calls interface~~symba_kick_getacch_pl~~CallsGraph interface~symba_kick_getacch_pl symba_kick_getacch_pl proc~symba_kick_getacch_pl symba_kick_getacch_pl interface~symba_kick_getacch_pl->proc~symba_kick_getacch_pl helio_kick_getacch_pl helio_kick_getacch_pl proc~symba_kick_getacch_pl->helio_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/symba_kick_getacch_pl.html"},{"title":"symba_kick_getacch_tp – swiftest","text":"interface Calls interface~~symba_kick_getacch_tp~~CallsGraph interface~symba_kick_getacch_tp symba_kick_getacch_tp proc~symba_kick_getacch_tp symba_kick_getacch_tp interface~symba_kick_getacch_tp->proc~symba_kick_getacch_tp helio_kick_getacch_tp helio_kick_getacch_tp proc~symba_kick_getacch_tp->helio_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/symba_kick_getacch_tp.html"},{"title":"symba_kick_pltpenc – swiftest","text":"interface Calls interface~~symba_kick_pltpenc~~CallsGraph interface~symba_kick_pltpenc symba_kick_pltpenc proc~symba_kick_pltpenc symba_kick_pltpenc interface~symba_kick_pltpenc->proc~symba_kick_pltpenc ind2 ind2 proc~symba_kick_pltpenc->ind2 ind1 ind1 proc~symba_kick_pltpenc->ind1 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(in) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level integer(kind=I4B), intent(in) :: sgn sign to be applied to acceleration","tags":"","loc":"interface/symba_kick_pltpenc.html"},{"title":"symba_io_write_frame_info – swiftest","text":"interface Calls interface~~symba_io_write_frame_info~~CallsGraph interface~symba_io_write_frame_info symba_io_write_frame_info proc~symba_io_write_frame_info symba_io_write_frame_info interface~symba_io_write_frame_info->proc~symba_io_write_frame_info Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_io_write_frame_info(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(in) :: self SyMBA particle info object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/symba_io_write_frame_info.html"},{"title":"symba_setup_initialize_system – swiftest","text":"interface Calls interface~~symba_setup_initialize_system~~CallsGraph interface~symba_setup_initialize_system symba_setup_initialize_system proc~symba_setup_initialize_system symba_setup_initialize_system interface~symba_setup_initialize_system->proc~symba_setup_initialize_system whm_setup_initialize_system whm_setup_initialize_system proc~symba_setup_initialize_system->whm_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/symba_setup_initialize_system.html"},{"title":"symba_setup_merger – swiftest","text":"interface Calls interface~~symba_setup_merger~~CallsGraph interface~symba_setup_merger symba_setup_merger proc~symba_setup_merger symba_setup_merger interface~symba_setup_merger->proc~symba_setup_merger interface~symba_setup_pl symba_setup_pl proc~symba_setup_merger->interface~symba_setup_pl proc~symba_setup_pl symba_setup_pl interface~symba_setup_pl->proc~symba_setup_pl setup_pl setup_pl proc~symba_setup_pl->setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_setup_merger(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA merger list object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/symba_setup_merger.html"},{"title":"symba_setup_pl – swiftest","text":"interface Calls interface~~symba_setup_pl~~CallsGraph interface~symba_setup_pl symba_setup_pl proc~symba_setup_pl symba_setup_pl interface~symba_setup_pl->proc~symba_setup_pl setup_pl setup_pl proc~symba_setup_pl->setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~symba_setup_pl~~CalledByGraph interface~symba_setup_pl symba_setup_pl proc~symba_setup_merger symba_setup_merger proc~symba_setup_merger->interface~symba_setup_pl interface~symba_setup_merger symba_setup_merger interface~symba_setup_merger->proc~symba_setup_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/symba_setup_pl.html"},{"title":"symba_setup_pltpenc – swiftest","text":"interface Calls interface~~symba_setup_pltpenc~~CallsGraph interface~symba_setup_pltpenc symba_setup_pltpenc proc~symba_setup_pltpenc symba_setup_pltpenc interface~symba_setup_pltpenc->proc~symba_setup_pltpenc setup_encounter setup_encounter proc~symba_setup_pltpenc->setup_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_setup_pltpenc(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for","tags":"","loc":"interface/symba_setup_pltpenc.html"},{"title":"symba_setup_tp – swiftest","text":"interface Calls interface~~symba_setup_tp~~CallsGraph interface~symba_setup_tp symba_setup_tp proc~symba_setup_tp symba_setup_tp interface~symba_setup_tp->proc~symba_setup_tp setup_tp setup_tp proc~symba_setup_tp->setup_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter","tags":"","loc":"interface/symba_setup_tp.html"},{"title":"symba_step_system – swiftest","text":"interface Calls interface~~symba_step_system~~CallsGraph interface~symba_step_system symba_step_system proc~symba_step_system symba_step_system interface~symba_step_system->proc~symba_step_system helio_step_system helio_step_system proc~symba_step_system->helio_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/symba_step_system.html"},{"title":"symba_step_interp_system – swiftest","text":"interface Calls interface~~symba_step_interp_system~~CallsGraph interface~symba_step_interp_system symba_step_interp_system proc~symba_step_interp_system symba_step_interp_system interface~symba_step_interp_system->proc~symba_step_interp_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_step_interp_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/symba_step_interp_system.html"},{"title":"symba_step_set_recur_levels_system – swiftest","text":"interface Calls interface~~symba_step_set_recur_levels_system~~CallsGraph interface~symba_step_set_recur_levels_system symba_step_set_recur_levels_system proc~symba_step_set_recur_levels_system symba_step_set_recur_levels_system interface~symba_step_set_recur_levels_system->proc~symba_step_set_recur_levels_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_step_set_recur_levels_system(self, ireci) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system objec integer(kind=I4B), intent(in) :: ireci Input recursion level","tags":"","loc":"interface/symba_step_set_recur_levels_system.html"},{"title":"symba_step_recur_system – swiftest","text":"interface Calls interface~~symba_step_recur_system~~CallsGraph interface~symba_step_recur_system symba_step_recur_system proc~symba_step_recur_system symba_step_recur_system interface~symba_step_recur_system->proc~symba_step_recur_system util_exit util_exit proc~symba_step_recur_system->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public recursive module subroutine symba_step_recur_system(self, param, t, ireci) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), value :: t integer(kind=I4B), value :: ireci input recursion level","tags":"","loc":"interface/symba_step_recur_system.html"},{"title":"symba_step_reset_system – swiftest","text":"interface Calls interface~~symba_step_reset_system~~CallsGraph interface~symba_step_reset_system symba_step_reset_system proc~symba_step_reset_system symba_step_reset_system interface~symba_step_reset_system->proc~symba_step_reset_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_step_reset_system(self) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object","tags":"","loc":"interface/symba_step_reset_system.html"},{"title":"util_append – swiftest","text":"public interface util_append Called by interface~~util_append~~CalledByGraph interface~util_append util_append proc~symba_util_append_pl symba_util_append_pl proc~symba_util_append_pl->interface~util_append proc~symba_util_append_merger symba_util_append_merger proc~symba_util_append_merger->interface~util_append interface~symba_util_append_pl symba_util_append_pl proc~symba_util_append_merger->interface~symba_util_append_pl proc~symba_util_append_tp symba_util_append_tp proc~symba_util_append_tp->interface~util_append interface~symba_util_append_pl->proc~symba_util_append_pl interface~symba_util_append_merger symba_util_append_merger interface~symba_util_append_merger->proc~symba_util_append_merger interface~symba_util_append_tp symba_util_append_tp interface~symba_util_append_tp->proc~symba_util_append_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines symba_util_append_arr_info symba_util_append_arr_kin Subroutines public subroutine symba_util_append_arr_info(arr, source, lsource_mask) Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: arr Destination array type( symba_particle_info ), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine symba_util_append_arr_kin(arr, source, lsource_mask) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Destination array type( symba_kinship ), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/util_append.html"},{"title":"symba_util_append_merger – swiftest","text":"interface Calls interface~~symba_util_append_merger~~CallsGraph interface~symba_util_append_merger symba_util_append_merger proc~symba_util_append_merger symba_util_append_merger interface~symba_util_append_merger->proc~symba_util_append_merger interface~symba_util_append_pl symba_util_append_pl proc~symba_util_append_merger->interface~symba_util_append_pl interface~util_append util_append proc~symba_util_append_merger->interface~util_append util_exit util_exit proc~symba_util_append_merger->util_exit proc~symba_util_append_pl symba_util_append_pl interface~symba_util_append_pl->proc~symba_util_append_pl proc~symba_util_append_pl->interface~util_append proc~symba_util_append_pl->util_exit util_append_pl util_append_pl proc~symba_util_append_pl->util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_append_merger(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/symba_util_append_merger.html"},{"title":"symba_util_append_pl – swiftest","text":"interface Calls interface~~symba_util_append_pl~~CallsGraph interface~symba_util_append_pl symba_util_append_pl proc~symba_util_append_pl symba_util_append_pl interface~symba_util_append_pl->proc~symba_util_append_pl util_append_pl util_append_pl proc~symba_util_append_pl->util_append_pl interface~util_append util_append proc~symba_util_append_pl->interface~util_append util_exit util_exit proc~symba_util_append_pl->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~symba_util_append_pl~~CalledByGraph interface~symba_util_append_pl symba_util_append_pl proc~symba_util_append_merger symba_util_append_merger proc~symba_util_append_merger->interface~symba_util_append_pl interface~symba_util_append_merger symba_util_append_merger interface~symba_util_append_merger->proc~symba_util_append_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/symba_util_append_pl.html"},{"title":"symba_util_append_tp – swiftest","text":"interface Calls interface~~symba_util_append_tp~~CallsGraph interface~symba_util_append_tp symba_util_append_tp proc~symba_util_append_tp symba_util_append_tp interface~symba_util_append_tp->proc~symba_util_append_tp interface~util_append util_append proc~symba_util_append_tp->interface~util_append util_append_tp util_append_tp proc~symba_util_append_tp->util_append_tp util_exit util_exit proc~symba_util_append_tp->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/symba_util_append_tp.html"},{"title":"util_fill – swiftest","text":"public interface util_fill Called by interface~~util_fill~~CalledByGraph interface~util_fill util_fill proc~symba_util_fill_pl symba_util_fill_pl proc~symba_util_fill_pl->interface~util_fill proc~symba_util_fill_tp symba_util_fill_tp proc~symba_util_fill_tp->interface~util_fill interface~symba_util_fill_tp symba_util_fill_tp interface~symba_util_fill_tp->proc~symba_util_fill_tp interface~symba_util_fill_pl symba_util_fill_pl interface~symba_util_fill_pl->proc~symba_util_fill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines symba_util_fill_arr_info symba_util_fill_arr_kin Subroutines public subroutine symba_util_fill_arr_info(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_particle_info ), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine symba_util_fill_arr_kin(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_kinship ), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/util_fill.html"},{"title":"symba_util_fill_pl – swiftest","text":"interface Calls interface~~symba_util_fill_pl~~CallsGraph interface~symba_util_fill_pl symba_util_fill_pl proc~symba_util_fill_pl symba_util_fill_pl interface~symba_util_fill_pl->proc~symba_util_fill_pl interface~util_fill util_fill proc~symba_util_fill_pl->interface~util_fill util_fill_pl util_fill_pl proc~symba_util_fill_pl->util_fill_pl util_exit util_exit proc~symba_util_fill_pl->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/symba_util_fill_pl.html"},{"title":"symba_util_fill_tp – swiftest","text":"interface Calls interface~~symba_util_fill_tp~~CallsGraph interface~symba_util_fill_tp symba_util_fill_tp proc~symba_util_fill_tp symba_util_fill_tp interface~symba_util_fill_tp->proc~symba_util_fill_tp interface~util_fill util_fill proc~symba_util_fill_tp->interface~util_fill util_fill_tp util_fill_tp proc~symba_util_fill_tp->util_fill_tp util_exit util_exit proc~symba_util_fill_tp->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/symba_util_fill_tp.html"},{"title":"symba_util_peri_pl – swiftest","text":"interface Calls interface~~symba_util_peri_pl~~CallsGraph interface~symba_util_peri_pl symba_util_peri_pl proc~symba_util_peri_pl symba_util_peri_pl interface~symba_util_peri_pl->proc~symba_util_peri_pl orbel_xv2aeq orbel_xv2aeq proc~symba_util_peri_pl->orbel_xv2aeq Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_peri_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/symba_util_peri_pl.html"},{"title":"symba_util_rearray_pl – swiftest","text":"interface Calls interface~~symba_util_rearray_pl~~CallsGraph interface~symba_util_rearray_pl symba_util_rearray_pl proc~symba_util_rearray_pl symba_util_rearray_pl interface~symba_util_rearray_pl->proc~symba_util_rearray_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_rearray_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions","tags":"","loc":"interface/symba_util_rearray_pl.html"},{"title":"util_resize – swiftest","text":"public interface util_resize Called by interface~~util_resize~~CalledByGraph interface~util_resize util_resize proc~symba_util_resize_merger symba_util_resize_merger proc~symba_util_resize_merger->interface~util_resize interface~symba_util_resize_pl symba_util_resize_pl proc~symba_util_resize_merger->interface~symba_util_resize_pl proc~symba_util_append_arr_info symba_util_append_arr_info proc~symba_util_append_arr_info->interface~util_resize proc~symba_util_resize_pl symba_util_resize_pl proc~symba_util_resize_pl->interface~util_resize proc~symba_util_resize_tp symba_util_resize_tp proc~symba_util_resize_tp->interface~util_resize proc~symba_util_append_arr_kin symba_util_append_arr_kin proc~symba_util_append_arr_kin->interface~util_resize interface~symba_util_resize_merger symba_util_resize_merger interface~symba_util_resize_merger->proc~symba_util_resize_merger interface~symba_util_resize_pl->proc~symba_util_resize_pl interface~symba_util_resize_tp symba_util_resize_tp interface~symba_util_resize_tp->proc~symba_util_resize_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines symba_util_resize_arr_info symba_util_resize_arr_kin Subroutines public subroutine symba_util_resize_arr_info(arr, nnew) Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine symba_util_resize_arr_kin(arr, nnew) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size","tags":"","loc":"interface/util_resize.html"},{"title":"symba_util_resize_merger – swiftest","text":"interface Calls interface~~symba_util_resize_merger~~CallsGraph interface~symba_util_resize_merger symba_util_resize_merger proc~symba_util_resize_merger symba_util_resize_merger interface~symba_util_resize_merger->proc~symba_util_resize_merger interface~symba_util_resize_pl symba_util_resize_pl proc~symba_util_resize_merger->interface~symba_util_resize_pl interface~util_resize util_resize proc~symba_util_resize_merger->interface~util_resize proc~symba_util_resize_pl symba_util_resize_pl interface~symba_util_resize_pl->proc~symba_util_resize_pl proc~symba_util_resize_pl->interface~util_resize util_resize_pl util_resize_pl proc~symba_util_resize_pl->util_resize_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_resize_merger(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA merger list object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/symba_util_resize_merger.html"},{"title":"symba_util_resize_pl – swiftest","text":"interface Calls interface~~symba_util_resize_pl~~CallsGraph interface~symba_util_resize_pl symba_util_resize_pl proc~symba_util_resize_pl symba_util_resize_pl interface~symba_util_resize_pl->proc~symba_util_resize_pl util_resize_pl util_resize_pl proc~symba_util_resize_pl->util_resize_pl interface~util_resize util_resize proc~symba_util_resize_pl->interface~util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~symba_util_resize_pl~~CalledByGraph interface~symba_util_resize_pl symba_util_resize_pl proc~symba_util_resize_merger symba_util_resize_merger proc~symba_util_resize_merger->interface~symba_util_resize_pl interface~symba_util_resize_merger symba_util_resize_merger interface~symba_util_resize_merger->proc~symba_util_resize_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/symba_util_resize_pl.html"},{"title":"symba_util_resize_tp – swiftest","text":"interface Calls interface~~symba_util_resize_tp~~CallsGraph interface~symba_util_resize_tp symba_util_resize_tp proc~symba_util_resize_tp symba_util_resize_tp interface~symba_util_resize_tp->proc~symba_util_resize_tp util_resize_tp util_resize_tp proc~symba_util_resize_tp->util_resize_tp interface~util_resize util_resize proc~symba_util_resize_tp->interface~util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/symba_util_resize_tp.html"},{"title":"symba_util_sort_pl – swiftest","text":"interface Calls interface~~symba_util_sort_pl~~CallsGraph interface~symba_util_sort_pl symba_util_sort_pl proc~symba_util_sort_pl symba_util_sort_pl interface~symba_util_sort_pl->proc~symba_util_sort_pl util_sort_pl util_sort_pl proc~symba_util_sort_pl->util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order","tags":"","loc":"interface/symba_util_sort_pl.html"},{"title":"symba_util_sort_tp – swiftest","text":"interface Calls interface~~symba_util_sort_tp~~CallsGraph interface~symba_util_sort_tp symba_util_sort_tp proc~symba_util_sort_tp symba_util_sort_tp interface~symba_util_sort_tp->proc~symba_util_sort_tp util_sort_tp util_sort_tp proc~symba_util_sort_tp->util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order","tags":"","loc":"interface/symba_util_sort_tp.html"},{"title":"symba_util_sort_rearrange_pl – swiftest","text":"interface Calls interface~~symba_util_sort_rearrange_pl~~CallsGraph interface~symba_util_sort_rearrange_pl symba_util_sort_rearrange_pl proc~symba_util_sort_rearrange_pl symba_util_sort_rearrange_pl interface~symba_util_sort_rearrange_pl->proc~symba_util_sort_rearrange_pl util_sort_rearrange_pl util_sort_rearrange_pl proc~symba_util_sort_rearrange_pl->util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order)","tags":"","loc":"interface/symba_util_sort_rearrange_pl.html"},{"title":"symba_util_sort_rearrange_tp – swiftest","text":"interface Calls interface~~symba_util_sort_rearrange_tp~~CallsGraph interface~symba_util_sort_rearrange_tp symba_util_sort_rearrange_tp proc~symba_util_sort_rearrange_tp symba_util_sort_rearrange_tp interface~symba_util_sort_rearrange_tp->proc~symba_util_sort_rearrange_tp util_sort_rearrange_tp util_sort_rearrange_tp proc~symba_util_sort_rearrange_tp->util_sort_rearrange_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order)","tags":"","loc":"interface/symba_util_sort_rearrange_tp.html"},{"title":"util_spill – swiftest","text":"public interface util_spill Called by interface~~util_spill~~CalledByGraph interface~util_spill util_spill proc~symba_util_spill_pl symba_util_spill_pl proc~symba_util_spill_pl->interface~util_spill proc~symba_util_spill_tp symba_util_spill_tp proc~symba_util_spill_tp->interface~util_spill proc~symba_util_spill_pltpenc symba_util_spill_pltpenc proc~symba_util_spill_pltpenc->interface~util_spill interface~symba_util_spill_tp symba_util_spill_tp interface~symba_util_spill_tp->proc~symba_util_spill_tp interface~symba_util_spill_pltpenc symba_util_spill_pltpenc interface~symba_util_spill_pltpenc->proc~symba_util_spill_pltpenc interface~symba_util_spill_pl symba_util_spill_pl interface~symba_util_spill_pl->proc~symba_util_spill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines symba_util_spill_arr_info symba_util_spill_arr_kin Subroutines public subroutine symba_util_spill_arr_info(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_particle_info ), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine symba_util_spill_arr_kin(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_kinship ), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/util_spill.html"},{"title":"symba_util_spill_pl – swiftest","text":"interface Calls interface~~symba_util_spill_pl~~CallsGraph interface~symba_util_spill_pl symba_util_spill_pl proc~symba_util_spill_pl symba_util_spill_pl interface~symba_util_spill_pl->proc~symba_util_spill_pl interface~util_spill util_spill proc~symba_util_spill_pl->interface~util_spill util_spill_pl util_spill_pl proc~symba_util_spill_pl->util_spill_pl util_exit util_exit proc~symba_util_spill_pl->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/symba_util_spill_pl.html"},{"title":"symba_util_spill_pltpenc – swiftest","text":"interface Calls interface~~symba_util_spill_pltpenc~~CallsGraph interface~symba_util_spill_pltpenc symba_util_spill_pltpenc proc~symba_util_spill_pltpenc symba_util_spill_pltpenc interface~symba_util_spill_pltpenc->proc~symba_util_spill_pltpenc interface~util_spill util_spill proc~symba_util_spill_pltpenc->interface~util_spill util_spill_encounter util_spill_encounter proc~symba_util_spill_pltpenc->util_spill_encounter util_exit util_exit proc~symba_util_spill_pltpenc->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_spill_pltpenc(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list","tags":"","loc":"interface/symba_util_spill_pltpenc.html"},{"title":"symba_util_spill_tp – swiftest","text":"interface Calls interface~~symba_util_spill_tp~~CallsGraph interface~symba_util_spill_tp symba_util_spill_tp proc~symba_util_spill_tp symba_util_spill_tp interface~symba_util_spill_tp->proc~symba_util_spill_tp interface~util_spill util_spill proc~symba_util_spill_tp->interface~util_spill util_spill_tp util_spill_tp proc~symba_util_spill_tp->util_spill_tp util_exit util_exit proc~symba_util_spill_tp->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/symba_util_spill_tp.html"},{"title":"io_get_args – swiftest","text":"interface Calls interface~~io_get_args~~CallsGraph interface~io_get_args io_get_args proc~io_get_args io_get_args interface~io_get_args->proc~io_get_args interface~util_version util_version proc~io_get_args->interface~util_version interface~util_exit util_exit proc~io_get_args->interface~util_exit interface~io_toupper io_toupper proc~io_get_args->interface~io_toupper proc~util_version util_version interface~util_version->proc~util_version proc~util_exit util_exit interface~util_exit->proc~util_exit proc~io_toupper io_toupper interface~io_toupper->proc~io_toupper Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function io_get_args(integrator, param_file_name) result(ierr) Implementation → Arguments Type Intent Optional Attributes Name integer(kind=I4B) :: integrator Symbolic code of the requested integrator character(len=:), allocatable :: param_file_name Name of the input parameters file Return Value integer(kind=I4B) I/O error code","tags":"","loc":"interface/io_get_args.html"},{"title":"io_get_token – swiftest","text":"interface Calls interface~~io_get_token~~CallsGraph interface~io_get_token io_get_token proc~io_get_token io_get_token interface~io_get_token->proc~io_get_token Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~io_get_token~~CalledByGraph interface~io_get_token io_get_token proc~io_param_reader io_param_reader proc~io_param_reader->interface~io_get_token interface~io_param_reader io_param_reader interface~io_param_reader->proc~io_param_reader Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function io_get_token(buffer, ifirst, ilast, ierr) result(token) Implementation → Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: buffer Input string buffer integer(kind=I4B), intent(inout) :: ifirst Index of the buffer at which to start the search for a token integer(kind=I4B), intent(out) :: ilast Index of the buffer at the end of the returned token integer(kind=I4B), intent(out) :: ierr Error code Return Value character(len=:),\n  allocatable Returned token string","tags":"","loc":"interface/io_get_token.html"},{"title":"discard_pl – swiftest","text":"interface Calls interface~~discard_pl~~CallsGraph interface~discard_pl discard_pl proc~discard_pl discard_pl interface~discard_pl->proc~discard_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter","tags":"","loc":"interface/discard_pl.html"},{"title":"discard_system – swiftest","text":"interface Calls interface~~discard_system~~CallsGraph interface~discard_system discard_system proc~discard_system discard_system interface~discard_system->proc~discard_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine discard_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/discard_system.html"},{"title":"discard_tp – swiftest","text":"interface Calls interface~~discard_tp~~CallsGraph interface~discard_tp discard_tp proc~discard_tp discard_tp interface~discard_tp->proc~discard_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/discard_tp.html"},{"title":"drift_all – swiftest","text":"interface Calls interface~~drift_all~~CallsGraph interface~drift_all drift_all proc~drift_all drift_all interface~drift_all->proc~drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~drift_all~~CalledByGraph interface~drift_all drift_all proc~drift_body drift_body proc~drift_body->interface~drift_all interface~drift_body drift_body interface~drift_body->proc~drift_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine drift_all(mu, x, v, n, param, dt, mask, iflag) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu Vector of gravitational constants real(kind=DP), intent(inout), dimension(:,:) :: x Position and velocity vectors real(kind=DP), intent(inout), dimension(:,:) :: v Position and velocity vectors integer(kind=I4B), intent(in) :: n number of bodies class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize logical, intent(in), dimension(:) :: mask Logical mask of size self%nbody that determines which bodies to drift. integer(kind=I4B), intent(out), dimension(:) :: iflag Vector of error flags. 0 means no problem","tags":"","loc":"interface/drift_all.html"},{"title":"drift_body – swiftest","text":"interface Calls interface~~drift_body~~CallsGraph interface~drift_body drift_body proc~drift_body drift_body interface~drift_body->proc~drift_body interface~drift_all drift_all proc~drift_body->interface~drift_all proc~drift_all drift_all interface~drift_all->proc~drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/drift_body.html"},{"title":"drift_one – swiftest","text":"interface Calls interface~~drift_one~~CallsGraph interface~drift_one drift_one proc~drift_one drift_one interface~drift_one->proc~drift_one Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure elemental module subroutine drift_one(mu, px, py, pz, vx, vy, vz, dt, iflag) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body to drift real(kind=DP), intent(inout) :: px Position and velocity of body to drift real(kind=DP), intent(inout) :: py Position and velocity of body to drift real(kind=DP), intent(inout) :: pz Position and velocity of body to drift real(kind=DP), intent(inout) :: vx Position and velocity of body to drift real(kind=DP), intent(inout) :: vy Position and velocity of body to drift real(kind=DP), intent(inout) :: vz Position and velocity of body to drift real(kind=DP), intent(in) :: dt Step size integer(kind=I4B), intent(out) :: iflag iflag : error status flag for Danby drift (0 = OK, nonzero = ERROR)","tags":"","loc":"interface/drift_one.html"},{"title":"eucl_dist_index_plpl – swiftest","text":"interface Calls interface~~eucl_dist_index_plpl~~CallsGraph interface~eucl_dist_index_plpl eucl_dist_index_plpl proc~eucl_dist_index_plpl eucl_dist_index_plpl interface~eucl_dist_index_plpl->proc~eucl_dist_index_plpl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine eucl_dist_index_plpl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object","tags":"","loc":"interface/eucl_dist_index_plpl.html"},{"title":"fragmentation_initialize – swiftest","text":"interface Calls interface~~fragmentation_initialize~~CallsGraph interface~fragmentation_initialize fragmentation_initialize proc~fragmentation_initialize fragmentation_initialize interface~fragmentation_initialize->proc~fragmentation_initialize status status proc~fragmentation_initialize->status Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fragmentation_initialize(system, param, family, x, v, L_spin, Ip, mass, radius, nfrag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, Qloss, lfailure) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: system class( swiftest_parameters ), intent(in) :: param integer(kind=I4B), intent(in), dimension(:) :: family real(kind=DP), intent(inout), dimension(:,:) :: x real(kind=DP), intent(inout), dimension(:,:) :: v real(kind=DP), intent(inout), dimension(:,:) :: L_spin real(kind=DP), intent(inout), dimension(:,:) :: Ip real(kind=DP), intent(inout), dimension(:) :: mass real(kind=DP), intent(inout), dimension(:) :: radius integer(kind=I4B), intent(inout) :: nfrag real(kind=DP), intent(inout), dimension(:,:), allocatable :: Ip_frag real(kind=DP), intent(inout), dimension(:), allocatable :: m_frag real(kind=DP), intent(inout), dimension(:), allocatable :: rad_frag real(kind=DP), intent(inout), dimension(:,:), allocatable :: xb_frag real(kind=DP), intent(inout), dimension(:,:), allocatable :: vb_frag real(kind=DP), intent(inout), dimension(:,:), allocatable :: rot_frag real(kind=DP), intent(inout) :: Qloss logical, intent(out) :: lfailure","tags":"","loc":"interface/fragmentation_initialize.html"},{"title":"fragmentation_regime – swiftest","text":"interface Calls interface~~fragmentation_regime~~CallsGraph interface~fragmentation_regime fragmentation_regime proc~fragmentation_regime fragmentation_regime interface~fragmentation_regime->proc~fragmentation_regime Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fragmentation_regime(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, regime, Mlr, Mslr, mtiny, Qloss) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: Mcb real(kind=DP), intent(in) :: m1 real(kind=DP), intent(in) :: m2 real(kind=DP), intent(in) :: rad1 real(kind=DP), intent(in) :: rad2 real(kind=DP), intent(in), dimension(:) :: xh1 real(kind=DP), intent(in), dimension(:) :: xh2 real(kind=DP), intent(in), dimension(:) :: vb1 real(kind=DP), intent(in), dimension(:) :: vb2 real(kind=DP), intent(in) :: den1 real(kind=DP), intent(in) :: den2 integer(kind=I4B), intent(out) :: regime real(kind=DP), intent(out) :: Mlr real(kind=DP), intent(out) :: Mslr real(kind=DP), intent(in) :: mtiny real(kind=DP), intent(out) :: Qloss The residual energy after the collision","tags":"","loc":"interface/fragmentation_regime.html"},{"title":"gr_kick_getaccb_ns_body – swiftest","text":"interface Calls interface~~gr_kick_getaccb_ns_body~~CallsGraph interface~gr_kick_getaccb_ns_body gr_kick_getaccb_ns_body proc~gr_kick_getaccb_ns_body gr_kick_getaccb_ns_body interface~gr_kick_getaccb_ns_body->proc~gr_kick_getaccb_ns_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine gr_kick_getaccb_ns_body(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/gr_kick_getaccb_ns_body.html"},{"title":"gr_kick_getacch – swiftest","text":"interface Calls interface~~gr_kick_getacch~~CallsGraph interface~gr_kick_getacch gr_kick_getacch proc~gr_kick_getacch gr_kick_getacch interface~gr_kick_getacch->proc~gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine gr_kick_getacch(mu, x, lmask, n, inv_c2, agr) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:,:) :: x Position vectors logical, intent(in), dimension(:) :: lmask Logical mask indicating which bodies to compute integer(kind=I4B), intent(in) :: n Total number of bodies real(kind=DP), intent(in) :: inv_c2 Inverse speed of light squared: 1 / c**2 real(kind=DP), intent(out), dimension(:,:) :: agr Accelerations","tags":"","loc":"interface/gr_kick_getacch.html"},{"title":"gr_p4_pos_kick – swiftest","text":"interface Calls interface~~gr_p4_pos_kick~~CallsGraph interface~gr_p4_pos_kick gr_p4_pos_kick proc~gr_p4_pos_kick gr_p4_pos_kick interface~gr_p4_pos_kick->proc~gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine gr_p4_pos_kick(param, x, v, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(inout), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(in) :: dt Step size","tags":"","loc":"interface/gr_p4_pos_kick.html"},{"title":"gr_pseudovel2vel – swiftest","text":"interface Calls interface~~gr_pseudovel2vel~~CallsGraph interface~gr_pseudovel2vel gr_pseudovel2vel proc~gr_pseudovel2vel gr_pseudovel2vel interface~gr_pseudovel2vel->proc~gr_pseudovel2vel Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine gr_pseudovel2vel(param, mu, xh, pv, vh) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real(kind=DP), intent(in), dimension(:) :: xh Heliocentric position vector real(kind=DP), intent(in), dimension(:) :: pv Pseudovelocity velocity vector - see Saha & Tremain (1994), eq. (32) real(kind=DP), intent(out), dimension(:) :: vh Heliocentric velocity vector","tags":"","loc":"interface/gr_pseudovel2vel.html"},{"title":"gr_pv2vh_body – swiftest","text":"interface Calls interface~~gr_pv2vh_body~~CallsGraph interface~gr_pv2vh_body gr_pv2vh_body proc~gr_pv2vh_body gr_pv2vh_body interface~gr_pv2vh_body->proc~gr_pv2vh_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/gr_pv2vh_body.html"},{"title":"gr_vel2pseudovel – swiftest","text":"interface Calls interface~~gr_vel2pseudovel~~CallsGraph interface~gr_vel2pseudovel gr_vel2pseudovel proc~gr_vel2pseudovel gr_vel2pseudovel interface~gr_vel2pseudovel->proc~gr_vel2pseudovel Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine gr_vel2pseudovel(param, mu, xh, vh, pv) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real(kind=DP), intent(in), dimension(:) :: xh Heliocentric position vector real(kind=DP), intent(in), dimension(:) :: vh Heliocentric velocity vector real(kind=DP), intent(out), dimension(:) :: pv Pseudovelocity vector - see Saha & Tremain (1994), eq. (32)","tags":"","loc":"interface/gr_vel2pseudovel.html"},{"title":"gr_vh2pv_body – swiftest","text":"interface Calls interface~~gr_vh2pv_body~~CallsGraph interface~gr_vh2pv_body gr_vh2pv_body proc~gr_vh2pv_body gr_vh2pv_body interface~gr_vh2pv_body->proc~gr_vh2pv_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/gr_vh2pv_body.html"},{"title":"io_conservation_report – swiftest","text":"interface Calls interface~~io_conservation_report~~CallsGraph interface~io_conservation_report io_conservation_report proc~io_conservation_report io_conservation_report interface~io_conservation_report->proc~io_conservation_report lspin_orig lspin_orig proc~io_conservation_report->lspin_orig ltot_orig ltot_orig proc~io_conservation_report->ltot_orig lorbit_orig lorbit_orig proc~io_conservation_report->lorbit_orig lescape lescape proc~io_conservation_report->lescape Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_conservation_report(self, param, lterminal) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen","tags":"","loc":"interface/io_conservation_report.html"},{"title":"io_dump_param – swiftest","text":"interface Calls interface~~io_dump_param~~CallsGraph interface~io_dump_param io_dump_param proc~io_dump_param io_dump_param interface~io_dump_param->proc~io_dump_param interface~util_exit util_exit proc~io_dump_param->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_dump_param(self, param_file_name) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Output collection of parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in)","tags":"","loc":"interface/io_dump_param.html"},{"title":"io_dump_swiftest – swiftest","text":"interface Calls interface~~io_dump_swiftest~~CallsGraph interface~io_dump_swiftest io_dump_swiftest proc~io_dump_swiftest io_dump_swiftest interface~io_dump_swiftest->proc~io_dump_swiftest interface~util_exit util_exit proc~io_dump_swiftest->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation","tags":"","loc":"interface/io_dump_swiftest.html"},{"title":"io_dump_system – swiftest","text":"interface Calls interface~~io_dump_system~~CallsGraph interface~io_dump_system io_dump_system proc~io_dump_system io_dump_system interface~io_dump_system->proc~io_dump_system dump_param_file dump_param_file proc~io_dump_system->dump_param_file dump_pl_file dump_pl_file proc~io_dump_system->dump_pl_file dump_tp_file dump_tp_file proc~io_dump_system->dump_tp_file dump_cb_file dump_cb_file proc~io_dump_system->dump_cb_file Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_dump_system(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation","tags":"","loc":"interface/io_dump_system.html"},{"title":"io_param_reader – swiftest","text":"interface Calls interface~~io_param_reader~~CallsGraph interface~io_param_reader io_param_reader proc~io_param_reader io_param_reader interface~io_param_reader->proc~io_param_reader interface~io_get_token io_get_token proc~io_param_reader->interface~io_get_token interface~io_toupper io_toupper proc~io_param_reader->interface~io_toupper proc~io_get_token io_get_token interface~io_get_token->proc~io_get_token proc~io_toupper io_toupper interface~io_toupper->proc~io_toupper Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Collection of parameters integer(kind=I4B), intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer(kind=I4B), intent(in) :: v_list (:) The first element passes the integrator code to the reader integer(kind=I4B), intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0","tags":"","loc":"interface/io_param_reader.html"},{"title":"io_param_writer – swiftest","text":"interface Calls interface~~io_param_writer~~CallsGraph interface~io_param_writer io_param_writer proc~io_param_writer io_param_writer interface~io_param_writer->proc~io_param_writer Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_param_writer(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Collection of parameters integer(kind=I4B), intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer(kind=I4B), intent(in) :: v_list (:) Not used in this procedure integer(kind=I4B), intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0","tags":"","loc":"interface/io_param_writer.html"},{"title":"io_read_body_in – swiftest","text":"interface Calls interface~~io_read_body_in~~CallsGraph interface~io_read_body_in io_read_body_in proc~io_read_body_in io_read_body_in interface~io_read_body_in->proc~io_read_body_in interface~util_exit util_exit proc~io_read_body_in->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/io_read_body_in.html"},{"title":"io_read_cb_in – swiftest","text":"interface Calls interface~~io_read_cb_in~~CallsGraph interface~io_read_cb_in io_read_cb_in proc~io_read_cb_in io_read_cb_in interface~io_read_cb_in->proc~io_read_cb_in interface~util_exit util_exit proc~io_read_cb_in->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_read_cb_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/io_read_cb_in.html"},{"title":"io_read_param_in – swiftest","text":"interface Calls interface~~io_read_param_in~~CallsGraph interface~io_read_param_in io_read_param_in proc~io_read_param_in io_read_param_in interface~io_read_param_in->proc~io_read_param_in interface~util_exit util_exit proc~io_read_param_in->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_read_param_in(self, param_file_name) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Current run configuration parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in)","tags":"","loc":"interface/io_read_param_in.html"},{"title":"io_read_frame_body – swiftest","text":"interface Calls interface~~io_read_frame_body~~CallsGraph interface~io_read_frame_body io_read_frame_body proc~io_read_frame_body io_read_frame_body interface~io_read_frame_body->proc~io_read_frame_body interface~util_exit util_exit proc~io_read_frame_body->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code","tags":"","loc":"interface/io_read_frame_body.html"},{"title":"io_read_frame_cb – swiftest","text":"interface Calls interface~~io_read_frame_cb~~CallsGraph interface~io_read_frame_cb io_read_frame_cb proc~io_read_frame_cb io_read_frame_cb interface~io_read_frame_cb->proc~io_read_frame_cb interface~util_exit util_exit proc~io_read_frame_cb->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_read_frame_cb(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code","tags":"","loc":"interface/io_read_frame_cb.html"},{"title":"io_read_frame_system – swiftest","text":"interface Calls interface~~io_read_frame_system~~CallsGraph interface~io_read_frame_system io_read_frame_system proc~io_read_frame_system io_read_frame_system interface~io_read_frame_system->proc~io_read_frame_system proc~io_read_hdr io_read_hdr proc~io_read_frame_system->proc~io_read_hdr Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_read_frame_system(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code","tags":"","loc":"interface/io_read_frame_system.html"},{"title":"io_write_discard – swiftest","text":"interface Calls interface~~io_write_discard~~CallsGraph interface~io_write_discard io_write_discard proc~io_write_discard io_write_discard interface~io_write_discard->proc~io_write_discard interface~util_exit util_exit proc~io_write_discard->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/io_write_discard.html"},{"title":"io_toupper – swiftest","text":"interface Calls interface~~io_toupper~~CallsGraph interface~io_toupper io_toupper proc~io_toupper io_toupper interface~io_toupper->proc~io_toupper Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~io_toupper~~CalledByGraph interface~io_toupper io_toupper proc~io_get_args io_get_args proc~io_get_args->interface~io_toupper proc~io_param_reader io_param_reader proc~io_param_reader->interface~io_toupper interface~io_get_args io_get_args interface~io_get_args->proc~io_get_args interface~io_param_reader io_param_reader interface~io_param_reader->proc~io_param_reader Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_toupper(string) Implementation → Arguments Type Intent Optional Attributes Name character(len=*), intent(inout) :: string String to make upper case","tags":"","loc":"interface/io_toupper.html"},{"title":"io_write_encounter – swiftest","text":"interface Calls interface~~io_write_encounter~~CallsGraph interface~io_write_encounter io_write_encounter proc~io_write_encounter io_write_encounter interface~io_write_encounter->proc~io_write_encounter interface~util_exit util_exit proc~io_write_encounter->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_write_encounter(t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: t integer(kind=I4B), intent(in) :: name1 integer(kind=I4B), intent(in) :: name2 real(kind=DP), intent(in) :: mass1 real(kind=DP), intent(in) :: mass2 real(kind=DP), intent(in) :: radius1 real(kind=DP), intent(in) :: radius2 real(kind=DP), intent(in), dimension(:) :: xh1 real(kind=DP), intent(in), dimension(:) :: xh2 real(kind=DP), intent(in), dimension(:) :: vh1 real(kind=DP), intent(in), dimension(:) :: vh2 character(len=*), intent(in) :: enc_out character(len=*), intent(in) :: out_type","tags":"","loc":"interface/io_write_encounter.html"},{"title":"io_write_frame_body – swiftest","text":"interface Calls interface~~io_write_frame_body~~CallsGraph interface~io_write_frame_body io_write_frame_body proc~io_write_frame_body io_write_frame_body interface~io_write_frame_body->proc~io_write_frame_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/io_write_frame_body.html"},{"title":"io_write_frame_cb – swiftest","text":"interface Calls interface~~io_write_frame_cb~~CallsGraph interface~io_write_frame_cb io_write_frame_cb proc~io_write_frame_cb io_write_frame_cb interface~io_write_frame_cb->proc~io_write_frame_cb Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_write_frame_cb(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/io_write_frame_cb.html"},{"title":"io_write_frame_system – swiftest","text":"interface Calls interface~~io_write_frame_system~~CallsGraph interface~io_write_frame_system io_write_frame_system proc~io_write_frame_system io_write_frame_system interface~io_write_frame_system->proc~io_write_frame_system proc~io_write_hdr io_write_hdr proc~io_write_frame_system->proc~io_write_hdr interface~util_exit util_exit proc~io_write_frame_system->interface~util_exit proc~io_write_hdr->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_write_frame_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/io_write_frame_system.html"},{"title":"kick_getacch_int_pl – swiftest","text":"interface Calls interface~~kick_getacch_int_pl~~CallsGraph interface~kick_getacch_int_pl kick_getacch_int_pl proc~kick_getacch_int_pl kick_getacch_int_pl interface~kick_getacch_int_pl->proc~kick_getacch_int_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self","tags":"","loc":"interface/kick_getacch_int_pl.html"},{"title":"kick_getacch_int_tp – swiftest","text":"interface Calls interface~~kick_getacch_int_tp~~CallsGraph interface~kick_getacch_int_tp kick_getacch_int_tp proc~kick_getacch_int_tp kick_getacch_int_tp interface~kick_getacch_int_tp->proc~kick_getacch_int_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies","tags":"","loc":"interface/kick_getacch_int_tp.html"},{"title":"obl_acc_body – swiftest","text":"interface Calls interface~~obl_acc_body~~CallsGraph interface~obl_acc_body obl_acc_body proc~obl_acc_body obl_acc_body interface~obl_acc_body->proc~obl_acc_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~obl_acc_body~~CalledByGraph interface~obl_acc_body obl_acc_body proc~obl_acc_tp obl_acc_tp proc~obl_acc_tp->interface~obl_acc_body proc~obl_acc_pl obl_acc_pl proc~obl_acc_pl->interface~obl_acc_body interface~obl_acc_pl obl_acc_pl interface~obl_acc_pl->proc~obl_acc_pl interface~obl_acc_tp obl_acc_tp interface~obl_acc_tp->proc~obl_acc_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine obl_acc_body(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object","tags":"","loc":"interface/obl_acc_body.html"},{"title":"obl_acc_pl – swiftest","text":"interface Calls interface~~obl_acc_pl~~CallsGraph interface~obl_acc_pl obl_acc_pl proc~obl_acc_pl obl_acc_pl interface~obl_acc_pl->proc~obl_acc_pl interface~obl_acc_body obl_acc_body proc~obl_acc_pl->interface~obl_acc_body proc~obl_acc_body obl_acc_body interface~obl_acc_body->proc~obl_acc_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine obl_acc_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object","tags":"","loc":"interface/obl_acc_pl.html"},{"title":"obl_acc_tp – swiftest","text":"interface Calls interface~~obl_acc_tp~~CallsGraph interface~obl_acc_tp obl_acc_tp proc~obl_acc_tp obl_acc_tp interface~obl_acc_tp->proc~obl_acc_tp interface~obl_acc_body obl_acc_body proc~obl_acc_tp->interface~obl_acc_body proc~obl_acc_body obl_acc_body interface~obl_acc_body->proc~obl_acc_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine obl_acc_tp(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object","tags":"","loc":"interface/obl_acc_tp.html"},{"title":"obl_pot – swiftest","text":"interface Calls interface~~obl_pot~~CallsGraph interface~obl_pot obl_pot proc~obl_pot obl_pot interface~obl_pot->proc~obl_pot Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~obl_pot~~CalledByGraph interface~obl_pot obl_pot proc~util_get_energy_momentum_system util_get_energy_momentum_system proc~util_get_energy_momentum_system->interface~obl_pot interface~util_get_energy_momentum_system util_get_energy_momentum_system interface~util_get_energy_momentum_system->proc~util_get_energy_momentum_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine obl_pot(npl, Mcb, Mpl, j2rp2, j4rp4, xh, irh, oblpot) Implementation → Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: npl real(kind=DP), intent(in) :: Mcb real(kind=DP), intent(in), dimension(:) :: Mpl real(kind=DP), intent(in) :: j2rp2 real(kind=DP), intent(in) :: j4rp4 real(kind=DP), intent(in), dimension(:, :) :: xh real(kind=DP), intent(in), dimension(:) :: irh real(kind=DP), intent(out) :: oblpot","tags":"","loc":"interface/obl_pot.html"},{"title":"orbel_el2xv_vec – swiftest","text":"interface Calls interface~~orbel_el2xv_vec~~CallsGraph interface~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv_vec->proc~orbel_el2xv proc~orbel_fhybrid orbel_fhybrid proc~orbel_el2xv->proc~orbel_fhybrid proc~orbel_zget orbel_zget proc~orbel_el2xv->proc~orbel_zget proc~orbel_schget orbel_schget proc~orbel_el2xv->proc~orbel_schget interface~orbel_scget orbel_scget proc~orbel_el2xv->interface~orbel_scget proc~orbel_ehybrid orbel_ehybrid proc~orbel_el2xv->proc~orbel_ehybrid proc~orbel_flon orbel_flon proc~orbel_fhybrid->proc~orbel_flon proc~orbel_fget orbel_fget proc~orbel_fhybrid->proc~orbel_fget proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget proc~orbel_esolmd orbel_esolmd proc~orbel_ehybrid->proc~orbel_esolmd proc~orbel_eget orbel_eget proc~orbel_ehybrid->proc~orbel_eget proc~orbel_ehie orbel_ehie proc~orbel_ehybrid->proc~orbel_ehie 3 3 proc~orbel_flon->3 proc~orbel_fget->proc~orbel_schget proc~orbel_esolmd->interface~orbel_scget proc~orbel_eget->interface~orbel_scget proc~orbel_ehie->interface~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/orbel_el2xv_vec.html"},{"title":"orbel_scget – swiftest","text":"interface Calls interface~~orbel_scget~~CallsGraph interface~orbel_scget orbel_scget proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~orbel_scget~~CalledByGraph interface~orbel_scget orbel_scget proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->interface~orbel_scget proc~orbel_ehybrid orbel_ehybrid proc~orbel_el2xv->proc~orbel_ehybrid proc~orbel_esolmd orbel_esolmd proc~orbel_esolmd->interface~orbel_scget proc~orbel_eget orbel_eget proc~orbel_eget->interface~orbel_scget proc~drift_kepu_guess drift_kepu_guess proc~drift_kepu_guess->interface~orbel_scget proc~orbel_ehie orbel_ehie proc~orbel_ehie->interface~orbel_scget proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv proc~drift_kepu drift_kepu proc~drift_kepu->proc~drift_kepu_guess proc~orbel_ehybrid->proc~orbel_esolmd proc~orbel_ehybrid->proc~orbel_eget proc~orbel_ehybrid->proc~orbel_ehie interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine orbel_scget(angle, sx, cx) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: angle real(kind=DP), intent(out) :: sx real(kind=DP), intent(out) :: cx","tags":"","loc":"interface/orbel_scget.html"},{"title":"orbel_xv2aeq – swiftest","text":"interface Calls interface~~orbel_xv2aeq~~CallsGraph interface~orbel_xv2aeq orbel_xv2aeq proc~orbel_xv2aeq orbel_xv2aeq interface~orbel_xv2aeq->proc~orbel_xv2aeq Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~orbel_xv2aeq~~CalledByGraph interface~orbel_xv2aeq orbel_xv2aeq proc~util_peri_tp util_peri_tp proc~util_peri_tp->interface~orbel_xv2aeq interface~util_peri_tp util_peri_tp interface~util_peri_tp->proc~util_peri_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine orbel_xv2aeq(mu, x, v, a, e, q) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(out) :: a semimajor axis real(kind=DP), intent(out) :: e eccentricity real(kind=DP), intent(out) :: q periapsis","tags":"","loc":"interface/orbel_xv2aeq.html"},{"title":"orbel_xv2aqt – swiftest","text":"interface Calls interface~~orbel_xv2aqt~~CallsGraph interface~orbel_xv2aqt orbel_xv2aqt proc~orbel_xv2aqt orbel_xv2aqt interface~orbel_xv2aqt->proc~orbel_xv2aqt Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine orbel_xv2aqt(mu, x, v, a, q, capm, tperi) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(out) :: a semimajor axis real(kind=DP), intent(out) :: q periapsis real(kind=DP), intent(out) :: capm mean anomaly real(kind=DP), intent(out) :: tperi time of pericenter passage","tags":"","loc":"interface/orbel_xv2aqt.html"},{"title":"orbel_xv2el_vec – swiftest","text":"interface Calls interface~~orbel_xv2el_vec~~CallsGraph interface~orbel_xv2el_vec orbel_xv2el_vec proc~orbel_xv2el_vec orbel_xv2el_vec interface~orbel_xv2el_vec->proc~orbel_xv2el_vec proc~orbel_xv2el orbel_xv2el proc~orbel_xv2el_vec->proc~orbel_xv2el Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/orbel_xv2el_vec.html"},{"title":"setup_body – swiftest","text":"interface Calls interface~~setup_body~~CallsGraph interface~setup_body setup_body proc~setup_body setup_body interface~setup_body->proc~setup_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~setup_body~~CalledByGraph interface~setup_body setup_body proc~setup_tp setup_tp proc~setup_tp->interface~setup_body proc~setup_pl setup_pl proc~setup_pl->interface~setup_body interface~setup_pl setup_pl interface~setup_pl->proc~setup_pl interface~setup_tp setup_tp interface~setup_tp->proc~setup_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine setup_body(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/setup_body.html"},{"title":"setup_construct_system – swiftest","text":"interface Calls interface~~setup_construct_system~~CallsGraph interface~setup_construct_system setup_construct_system proc~setup_construct_system setup_construct_system interface~setup_construct_system->proc~setup_construct_system interface~util_exit util_exit proc~setup_construct_system->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine setup_construct_system(system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout), allocatable :: system Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/setup_construct_system.html"},{"title":"setup_encounter – swiftest","text":"interface Calls interface~~setup_encounter~~CallsGraph interface~setup_encounter setup_encounter proc~setup_encounter setup_encounter interface~setup_encounter->proc~setup_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine setup_encounter(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for","tags":"","loc":"interface/setup_encounter.html"},{"title":"setup_initialize_system – swiftest","text":"interface Calls interface~~setup_initialize_system~~CallsGraph interface~setup_initialize_system setup_initialize_system proc~setup_initialize_system setup_initialize_system interface~setup_initialize_system->proc~setup_initialize_system interface~util_valid util_valid proc~setup_initialize_system->interface~util_valid proc~util_valid util_valid interface~util_valid->proc~util_valid interface~util_exit util_exit proc~util_valid->interface~util_exit interface~util_sort util_sort proc~util_valid->interface~util_sort proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/setup_initialize_system.html"},{"title":"setup_pl – swiftest","text":"interface Calls interface~~setup_pl~~CallsGraph interface~setup_pl setup_pl proc~setup_pl setup_pl interface~setup_pl->proc~setup_pl interface~setup_body setup_body proc~setup_pl->interface~setup_body proc~setup_body setup_body interface~setup_body->proc~setup_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/setup_pl.html"},{"title":"setup_tp – swiftest","text":"interface Calls interface~~setup_tp~~CallsGraph interface~setup_tp setup_tp proc~setup_tp setup_tp interface~setup_tp->proc~setup_tp interface~setup_body setup_body proc~setup_tp->interface~setup_body proc~setup_body setup_body interface~setup_body->proc~setup_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parametersr","tags":"","loc":"interface/setup_tp.html"},{"title":"tides_kick_getacch_pl – swiftest","text":"interface Calls interface~~tides_kick_getacch_pl~~CallsGraph interface~tides_kick_getacch_pl tides_kick_getacch_pl proc~tides_kick_getacch_pl tides_kick_getacch_pl interface~tides_kick_getacch_pl->proc~tides_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine tides_kick_getacch_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object","tags":"","loc":"interface/tides_kick_getacch_pl.html"},{"title":"tides_step_spin_system – swiftest","text":"interface Calls interface~~tides_step_spin_system~~CallsGraph interface~tides_step_spin_system tides_step_spin_system proc~tides_step_spin_system tides_step_spin_system interface~tides_step_spin_system->proc~tides_step_spin_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine tides_step_spin_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/tides_step_spin_system.html"},{"title":"user_kick_getacch_body – swiftest","text":"interface Calls interface~~user_kick_getacch_body~~CallsGraph interface~user_kick_getacch_body user_kick_getacch_body proc~user_kick_getacch_body user_kick_getacch_body interface~user_kick_getacch_body->proc~user_kick_getacch_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/user_kick_getacch_body.html"},{"title":"util_append – swiftest","text":"public interface util_append Called by interface~~util_append~2~~CalledByGraph interface~util_append~2 util_append proc~util_append_tp util_append_tp proc~util_append_tp->interface~util_append~2 interface~util_append_body util_append_body proc~util_append_tp->interface~util_append_body proc~util_append_body util_append_body proc~util_append_body->interface~util_append~2 proc~util_append_pl util_append_pl proc~util_append_pl->interface~util_append~2 proc~util_append_pl->interface~util_append_body interface~util_append_tp util_append_tp interface~util_append_tp->proc~util_append_tp interface~util_append_body->proc~util_append_body interface~util_append_pl util_append_pl interface~util_append_pl->proc~util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines util_append_arr_char_string util_append_arr_DP util_append_arr_DPvec util_append_arr_I4B util_append_arr_logical Subroutines public subroutine util_append_arr_char_string(arr, source, lsource_mask) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Destination array character(len=STRMAX), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine util_append_arr_DP(arr, source, lsource_mask) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Destination array real(kind=DP), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine util_append_arr_DPvec(arr, source, lsource_mask) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Destination array real(kind=DP), intent(in), dimension(:,:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine util_append_arr_I4B(arr, source, lsource_mask) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine util_append_arr_logical(arr, source, lsource_mask) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Destination array logical, intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/util_append~2.html"},{"title":"util_append_body – swiftest","text":"interface Calls interface~~util_append_body~~CallsGraph interface~util_append_body util_append_body proc~util_append_body util_append_body interface~util_append_body->proc~util_append_body interface~util_append~2 util_append proc~util_append_body->interface~util_append~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~util_append_body~~CalledByGraph interface~util_append_body util_append_body proc~util_append_tp util_append_tp proc~util_append_tp->interface~util_append_body proc~util_append_pl util_append_pl proc~util_append_pl->interface~util_append_body interface~util_append_tp util_append_tp interface~util_append_tp->proc~util_append_tp interface~util_append_pl util_append_pl interface~util_append_pl->proc~util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_append_body(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/util_append_body.html"},{"title":"util_append_pl – swiftest","text":"interface Calls interface~~util_append_pl~~CallsGraph interface~util_append_pl util_append_pl proc~util_append_pl util_append_pl interface~util_append_pl->proc~util_append_pl interface~util_append_body util_append_body proc~util_append_pl->interface~util_append_body interface~util_append~2 util_append proc~util_append_pl->interface~util_append~2 interface~util_exit util_exit proc~util_append_pl->interface~util_exit proc~util_append_body util_append_body interface~util_append_body->proc~util_append_body proc~util_exit util_exit interface~util_exit->proc~util_exit proc~util_append_body->interface~util_append~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/util_append_pl.html"},{"title":"util_append_tp – swiftest","text":"interface Calls interface~~util_append_tp~~CallsGraph interface~util_append_tp util_append_tp proc~util_append_tp util_append_tp interface~util_append_tp->proc~util_append_tp interface~util_append_body util_append_body proc~util_append_tp->interface~util_append_body interface~util_append~2 util_append proc~util_append_tp->interface~util_append~2 interface~util_exit util_exit proc~util_append_tp->interface~util_exit proc~util_append_body util_append_body interface~util_append_body->proc~util_append_body proc~util_exit util_exit interface~util_exit->proc~util_exit proc~util_append_body->interface~util_append~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/util_append_tp.html"},{"title":"util_coord_b2h_pl – swiftest","text":"interface Calls interface~~util_coord_b2h_pl~~CallsGraph interface~util_coord_b2h_pl util_coord_b2h_pl proc~util_coord_b2h_pl util_coord_b2h_pl interface~util_coord_b2h_pl->proc~util_coord_b2h_pl vbcb vbcb proc~util_coord_b2h_pl->vbcb xh xh proc~util_coord_b2h_pl->xh xb xb proc~util_coord_b2h_pl->xb xbcb xbcb proc~util_coord_b2h_pl->xbcb vh vh proc~util_coord_b2h_pl->vh vb vb proc~util_coord_b2h_pl->vb Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_coord_b2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/util_coord_b2h_pl.html"},{"title":"util_coord_b2h_tp – swiftest","text":"interface Calls interface~~util_coord_b2h_tp~~CallsGraph interface~util_coord_b2h_tp util_coord_b2h_tp proc~util_coord_b2h_tp util_coord_b2h_tp interface~util_coord_b2h_tp->proc~util_coord_b2h_tp vbcb vbcb proc~util_coord_b2h_tp->vbcb xh xh proc~util_coord_b2h_tp->xh xb xb proc~util_coord_b2h_tp->xb xbcb xbcb proc~util_coord_b2h_tp->xbcb status status proc~util_coord_b2h_tp->status vh vh proc~util_coord_b2h_tp->vh vb vb proc~util_coord_b2h_tp->vb Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_coord_b2h_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object","tags":"","loc":"interface/util_coord_b2h_tp.html"},{"title":"util_coord_h2b_pl – swiftest","text":"interface Calls interface~~util_coord_h2b_pl~~CallsGraph interface~util_coord_h2b_pl util_coord_h2b_pl proc~util_coord_h2b_pl util_coord_h2b_pl interface~util_coord_h2b_pl->proc~util_coord_h2b_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_coord_h2b_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/util_coord_h2b_pl.html"},{"title":"util_coord_h2b_tp – swiftest","text":"interface Calls interface~~util_coord_h2b_tp~~CallsGraph interface~util_coord_h2b_tp util_coord_h2b_tp proc~util_coord_h2b_tp util_coord_h2b_tp interface~util_coord_h2b_tp->proc~util_coord_h2b_tp vbcb vbcb proc~util_coord_h2b_tp->vbcb xh xh proc~util_coord_h2b_tp->xh xb xb proc~util_coord_h2b_tp->xb xbcb xbcb proc~util_coord_h2b_tp->xbcb status status proc~util_coord_h2b_tp->status vh vh proc~util_coord_h2b_tp->vh vb vb proc~util_coord_h2b_tp->vb Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_coord_h2b_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object","tags":"","loc":"interface/util_coord_h2b_tp.html"},{"title":"util_copy_encounter – swiftest","text":"interface Calls interface~~util_copy_encounter~~CallsGraph interface~util_copy_encounter util_copy_encounter proc~util_copy_encounter util_copy_encounter interface~util_copy_encounter->proc~util_copy_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_copy_encounter(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into","tags":"","loc":"interface/util_copy_encounter.html"},{"title":"util_exit – swiftest","text":"interface Calls interface~~util_exit~~CallsGraph interface~util_exit util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~util_exit~~CalledByGraph interface~util_exit util_exit proc~util_append_tp util_append_tp proc~util_append_tp->interface~util_exit proc~util_valid util_valid proc~util_valid->interface~util_exit proc~io_get_args io_get_args proc~io_get_args->interface~util_exit proc~io_read_body_in io_read_body_in proc~io_read_body_in->interface~util_exit proc~io_read_param_in io_read_param_in proc~io_read_param_in->interface~util_exit proc~io_write_hdr io_write_hdr proc~io_write_hdr->interface~util_exit proc~io_read_cb_in io_read_cb_in proc~io_read_cb_in->interface~util_exit proc~io_dump_param io_dump_param proc~io_dump_param->interface~util_exit proc~io_write_discard io_write_discard proc~io_write_discard->interface~util_exit proc~io_read_encounter io_read_encounter proc~io_read_encounter->interface~util_exit proc~io_read_frame_cb io_read_frame_cb proc~io_read_frame_cb->interface~util_exit proc~setup_construct_system setup_construct_system proc~setup_construct_system->interface~util_exit proc~io_dump_swiftest io_dump_swiftest proc~io_dump_swiftest->interface~util_exit proc~io_write_frame_system io_write_frame_system proc~io_write_frame_system->interface~util_exit proc~io_write_frame_system->proc~io_write_hdr proc~io_read_frame_body io_read_frame_body proc~io_read_frame_body->interface~util_exit proc~io_write_encounter io_write_encounter proc~io_write_encounter->interface~util_exit proc~util_solve_rkf45 util_solve_rkf45 proc~util_solve_rkf45->interface~util_exit proc~util_append_pl util_append_pl proc~util_append_pl->interface~util_exit interface~util_solve_rkf45 util_solve_rkf45 interface~util_solve_rkf45->proc~util_solve_rkf45 interface~util_valid util_valid interface~util_valid->proc~util_valid interface~io_write_discard io_write_discard interface~io_write_discard->proc~io_write_discard interface~io_write_frame_system io_write_frame_system interface~io_write_frame_system->proc~io_write_frame_system interface~io_read_body_in io_read_body_in interface~io_read_body_in->proc~io_read_body_in interface~util_append_tp util_append_tp interface~util_append_tp->proc~util_append_tp interface~io_get_args io_get_args interface~io_get_args->proc~io_get_args interface~io_read_frame_body io_read_frame_body interface~io_read_frame_body->proc~io_read_frame_body interface~io_read_param_in io_read_param_in interface~io_read_param_in->proc~io_read_param_in interface~io_dump_swiftest io_dump_swiftest interface~io_dump_swiftest->proc~io_dump_swiftest interface~io_write_encounter io_write_encounter interface~io_write_encounter->proc~io_write_encounter interface~setup_construct_system setup_construct_system interface~setup_construct_system->proc~setup_construct_system interface~io_dump_param io_dump_param interface~io_dump_param->proc~io_dump_param interface~io_read_frame_cb io_read_frame_cb interface~io_read_frame_cb->proc~io_read_frame_cb interface~io_read_cb_in io_read_cb_in interface~io_read_cb_in->proc~io_read_cb_in interface~util_append_pl util_append_pl interface~util_append_pl->proc~util_append_pl proc~setup_initialize_system setup_initialize_system proc~setup_initialize_system->interface~util_valid interface~setup_initialize_system setup_initialize_system interface~setup_initialize_system->proc~setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_exit(code) Implementation → Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: code Failure exit code","tags":"","loc":"interface/util_exit.html"},{"title":"util_fill_body – swiftest","text":"interface Calls interface~~util_fill_body~~CallsGraph interface~util_fill_body util_fill_body proc~util_fill_body util_fill_body interface~util_fill_body->proc~util_fill_body interface~util_fill~2 util_fill proc~util_fill_body->interface~util_fill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~util_fill_body~~CalledByGraph interface~util_fill_body util_fill_body proc~util_fill_pl util_fill_pl proc~util_fill_pl->interface~util_fill_body proc~util_fill_tp util_fill_tp proc~util_fill_tp->interface~util_fill_body interface~util_fill_tp util_fill_tp interface~util_fill_tp->proc~util_fill_tp interface~util_fill_pl util_fill_pl interface~util_fill_pl->proc~util_fill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_fill_body(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/util_fill_body.html"},{"title":"util_fill_pl – swiftest","text":"interface Calls interface~~util_fill_pl~~CallsGraph interface~util_fill_pl util_fill_pl proc~util_fill_pl util_fill_pl interface~util_fill_pl->proc~util_fill_pl interface~util_fill~2 util_fill proc~util_fill_pl->interface~util_fill~2 interface~util_fill_body util_fill_body proc~util_fill_pl->interface~util_fill_body proc~util_fill_body util_fill_body interface~util_fill_body->proc~util_fill_body proc~util_fill_body->interface~util_fill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/util_fill_pl.html"},{"title":"util_fill_tp – swiftest","text":"interface Calls interface~~util_fill_tp~~CallsGraph interface~util_fill_tp util_fill_tp proc~util_fill_tp util_fill_tp interface~util_fill_tp->proc~util_fill_tp interface~util_fill~2 util_fill proc~util_fill_tp->interface~util_fill~2 interface~util_fill_body util_fill_body proc~util_fill_tp->interface~util_fill_body proc~util_fill_body util_fill_body interface~util_fill_body->proc~util_fill_body proc~util_fill_body->interface~util_fill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/util_fill_tp.html"},{"title":"util_fill – swiftest","text":"public interface util_fill Called by interface~~util_fill~2~~CalledByGraph interface~util_fill~2 util_fill proc~util_fill_body util_fill_body proc~util_fill_body->interface~util_fill~2 proc~util_fill_pl util_fill_pl proc~util_fill_pl->interface~util_fill~2 interface~util_fill_body util_fill_body proc~util_fill_pl->interface~util_fill_body proc~util_fill_tp util_fill_tp proc~util_fill_tp->interface~util_fill~2 proc~util_fill_tp->interface~util_fill_body interface~util_fill_tp util_fill_tp interface~util_fill_tp->proc~util_fill_tp interface~util_fill_pl util_fill_pl interface~util_fill_pl->proc~util_fill_pl interface~util_fill_body->proc~util_fill_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines util_fill_arr_char_string util_fill_arr_DP util_fill_arr_DPvec util_fill_arr_I4B util_fill_arr_logical Subroutines public subroutine util_fill_arr_char_string(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: keeps Array of values to keep character(len=STRMAX), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine util_fill_arr_DP(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: keeps Array of values to keep real(kind=DP), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine util_fill_arr_DPvec(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: keeps Array of values to keep real(kind=DP), intent(in), dimension(:,:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine util_fill_arr_I4B(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I4B), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine util_fill_arr_logical(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: keeps Array of values to keep logical, intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/util_fill~2.html"},{"title":"util_minimize_bfgs – swiftest","text":"interface Calls interface~~util_minimize_bfgs~~CallsGraph interface~util_minimize_bfgs util_minimize_bfgs proc~util_minimize_bfgs util_minimize_bfgs interface~util_minimize_bfgs->proc~util_minimize_bfgs Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1) Implementation → Arguments Type Intent Optional Attributes Name class(lambda_obj), intent(inout) :: f integer(kind=I4B), intent(in) :: N real(kind=DP), intent(in), dimension(:) :: x0 real(kind=DP), intent(in) :: eps logical, intent(out) :: lerr Return Value real(kind=DP),\n  dimension(:),allocatable","tags":"","loc":"interface/util_minimize_bfgs.html"},{"title":"util_peri_tp – swiftest","text":"interface Calls interface~~util_peri_tp~~CallsGraph interface~util_peri_tp util_peri_tp proc~util_peri_tp util_peri_tp interface~util_peri_tp->proc~util_peri_tp interface~orbel_xv2aeq orbel_xv2aeq proc~util_peri_tp->interface~orbel_xv2aeq proc~orbel_xv2aeq orbel_xv2aeq interface~orbel_xv2aeq->proc~orbel_xv2aeq Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_peri_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/util_peri_tp.html"},{"title":"util_solve_linear_system – swiftest","text":"public interface util_solve_linear_system Contents Functions util_solve_linear_system_d util_solve_linear_system_q Functions public function util_solve_linear_system_d(A, b, n, lerr) result(x) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A real(kind=DP), intent(in), dimension(:) :: b integer(kind=I4B), intent(in) :: n logical, intent(out) :: lerr Return Value real(kind=DP),\n  dimension(n) public function util_solve_linear_system_q(A, b, n, lerr) result(x) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:) :: b integer(kind=I4B), intent(in) :: n logical, intent(out) :: lerr Return Value real(kind=QP),\n  dimension(n)","tags":"","loc":"interface/util_solve_linear_system.html"},{"title":"util_solve_rkf45 – swiftest","text":"interface Calls interface~~util_solve_rkf45~~CallsGraph interface~util_solve_rkf45 util_solve_rkf45 proc~util_solve_rkf45 util_solve_rkf45 interface~util_solve_rkf45->proc~util_solve_rkf45 interface~util_exit util_exit proc~util_solve_rkf45->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function util_solve_rkf45(f, y0in, t1, dt0, tol) result(y1) Implementation → Arguments Type Intent Optional Attributes Name class(lambda_obj), intent(inout) :: f lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set real(kind=DP), intent(in), dimension(:) :: y0in Initial value at t=0 real(kind=DP), intent(in) :: t1 Final time real(kind=DP), intent(in) :: dt0 Initial step size guess real(kind=DP), intent(in) :: tol Tolerance on solution Return Value real(kind=DP),\n  dimension(:),allocatable Final result","tags":"","loc":"interface/util_solve_rkf45.html"},{"title":"util_resize – swiftest","text":"public interface util_resize Called by interface~~util_resize~2~~CalledByGraph interface~util_resize~2 util_resize proc~util_resize_body util_resize_body proc~util_resize_body->interface~util_resize~2 proc~util_resize_pl util_resize_pl proc~util_resize_pl->interface~util_resize~2 interface~util_resize_body util_resize_body proc~util_resize_pl->interface~util_resize_body proc~util_append_arr_dpvec util_append_arr_DPvec proc~util_append_arr_dpvec->interface~util_resize~2 proc~util_append_arr_char_string util_append_arr_char_string proc~util_append_arr_char_string->interface~util_resize~2 proc~util_append_arr_logical util_append_arr_logical proc~util_append_arr_logical->interface~util_resize~2 proc~util_resize_tp util_resize_tp proc~util_resize_tp->interface~util_resize~2 proc~util_resize_tp->interface~util_resize_body proc~util_append_arr_dp util_append_arr_DP proc~util_append_arr_dp->interface~util_resize~2 proc~util_append_arr_i4b util_append_arr_I4B proc~util_append_arr_i4b->interface~util_resize~2 interface~util_resize_pl util_resize_pl interface~util_resize_pl->proc~util_resize_pl interface~util_resize_body->proc~util_resize_body interface~util_resize_tp util_resize_tp interface~util_resize_tp->proc~util_resize_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines util_resize_arr_char_string util_resize_arr_DP util_resize_arr_DPvec util_resize_arr_I4B util_resize_arr_logical Subroutines public subroutine util_resize_arr_char_string(arr, nnew) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine util_resize_arr_DP(arr, nnew) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine util_resize_arr_DPvec(arr, nnew) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine util_resize_arr_I4B(arr, nnew) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine util_resize_arr_logical(arr, nnew) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size","tags":"","loc":"interface/util_resize~2.html"},{"title":"util_resize_body – swiftest","text":"interface Calls interface~~util_resize_body~~CallsGraph interface~util_resize_body util_resize_body proc~util_resize_body util_resize_body interface~util_resize_body->proc~util_resize_body interface~util_resize~2 util_resize proc~util_resize_body->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~util_resize_body~~CalledByGraph interface~util_resize_body util_resize_body proc~util_resize_tp util_resize_tp proc~util_resize_tp->interface~util_resize_body proc~util_resize_pl util_resize_pl proc~util_resize_pl->interface~util_resize_body interface~util_resize_pl util_resize_pl interface~util_resize_pl->proc~util_resize_pl interface~util_resize_tp util_resize_tp interface~util_resize_tp->proc~util_resize_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_resize_body(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/util_resize_body.html"},{"title":"util_resize_encounter – swiftest","text":"interface Calls interface~~util_resize_encounter~~CallsGraph interface~util_resize_encounter util_resize_encounter proc~util_resize_encounter util_resize_encounter interface~util_resize_encounter->proc~util_resize_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_resize_encounter(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list integer(kind=I4B), intent(in) :: nnew New size of list needed","tags":"","loc":"interface/util_resize_encounter.html"},{"title":"util_resize_pl – swiftest","text":"interface Calls interface~~util_resize_pl~~CallsGraph interface~util_resize_pl util_resize_pl proc~util_resize_pl util_resize_pl interface~util_resize_pl->proc~util_resize_pl interface~util_resize~2 util_resize proc~util_resize_pl->interface~util_resize~2 interface~util_resize_body util_resize_body proc~util_resize_pl->interface~util_resize_body proc~util_resize_body util_resize_body interface~util_resize_body->proc~util_resize_body proc~util_resize_body->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/util_resize_pl.html"},{"title":"util_resize_tp – swiftest","text":"interface Calls interface~~util_resize_tp~~CallsGraph interface~util_resize_tp util_resize_tp proc~util_resize_tp util_resize_tp interface~util_resize_tp->proc~util_resize_tp interface~util_resize~2 util_resize proc~util_resize_tp->interface~util_resize~2 interface~util_resize_body util_resize_body proc~util_resize_tp->interface~util_resize_body proc~util_resize_body util_resize_body interface~util_resize_body->proc~util_resize_body proc~util_resize_body->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/util_resize_tp.html"},{"title":"util_get_energy_momentum_system – swiftest","text":"interface Calls interface~~util_get_energy_momentum_system~~CallsGraph interface~util_get_energy_momentum_system util_get_energy_momentum_system proc~util_get_energy_momentum_system util_get_energy_momentum_system interface~util_get_energy_momentum_system->proc~util_get_energy_momentum_system interface~obl_pot obl_pot proc~util_get_energy_momentum_system->interface~obl_pot proc~obl_pot obl_pot interface~obl_pot->proc~obl_pot Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_get_energy_momentum_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/util_get_energy_momentum_system.html"},{"title":"util_set_beg_end_pl – swiftest","text":"interface Calls interface~~util_set_beg_end_pl~~CallsGraph interface~util_set_beg_end_pl util_set_beg_end_pl proc~util_set_beg_end_pl util_set_beg_end_pl interface~util_set_beg_end_pl->proc~util_set_beg_end_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg Position vectors at beginning of step real(kind=DP), intent(in), optional dimension(:,:) :: xend Positions vectors at end of step real(kind=DP), intent(in), optional dimension(:,:) :: vbeg vbeg is an unused variable to keep this method forward compatible with RMVS","tags":"","loc":"interface/util_set_beg_end_pl.html"},{"title":"util_set_ir3h – swiftest","text":"interface Calls interface~~util_set_ir3h~~CallsGraph interface~util_set_ir3h util_set_ir3h proc~util_set_ir3h util_set_ir3h interface~util_set_ir3h->proc~util_set_ir3h Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object","tags":"","loc":"interface/util_set_ir3h.html"},{"title":"util_set_msys – swiftest","text":"interface Calls interface~~util_set_msys~~CallsGraph interface~util_set_msys util_set_msys proc~util_set_msys util_set_msys interface~util_set_msys->proc~util_set_msys Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_set_msys(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object","tags":"","loc":"interface/util_set_msys.html"},{"title":"util_set_mu_pl – swiftest","text":"interface Calls interface~~util_set_mu_pl~~CallsGraph interface~util_set_mu_pl util_set_mu_pl proc~util_set_mu_pl util_set_mu_pl interface~util_set_mu_pl->proc~util_set_mu_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_set_mu_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/util_set_mu_pl.html"},{"title":"util_set_mu_tp – swiftest","text":"interface Calls interface~~util_set_mu_tp~~CallsGraph interface~util_set_mu_tp util_set_mu_tp proc~util_set_mu_tp util_set_mu_tp interface~util_set_mu_tp->proc~util_set_mu_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_set_mu_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/util_set_mu_tp.html"},{"title":"util_set_rhill – swiftest","text":"interface Calls interface~~util_set_rhill~~CallsGraph interface~util_set_rhill util_set_rhill proc~util_set_rhill util_set_rhill interface~util_set_rhill->proc~util_set_rhill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_set_rhill(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/util_set_rhill.html"},{"title":"util_set_rhill_approximate – swiftest","text":"interface Calls interface~~util_set_rhill_approximate~~CallsGraph interface~util_set_rhill_approximate util_set_rhill_approximate proc~util_set_rhill_approximate util_set_rhill_approximate interface~util_set_rhill_approximate->proc~util_set_rhill_approximate Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_set_rhill_approximate(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/util_set_rhill_approximate.html"},{"title":"util_sort – swiftest","text":"public interface util_sort Called by interface~~util_sort~~CalledByGraph interface~util_sort util_sort proc~util_valid util_valid proc~util_valid->interface~util_sort interface~util_valid util_valid interface~util_valid->proc~util_valid proc~setup_initialize_system setup_initialize_system proc~setup_initialize_system->interface~util_valid interface~setup_initialize_system setup_initialize_system interface~setup_initialize_system->proc~setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines util_sort_i4b util_sort_index_i4b util_sort_sp util_sort_index_sp util_sort_dp util_sort_index_dp Subroutines public subroutine util_sort_i4b(arr) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:) :: arr public subroutine util_sort_index_i4b(arr, ind) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind public subroutine util_sort_sp(arr) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(inout), dimension(:) :: arr public subroutine util_sort_index_sp(arr, ind) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind public subroutine util_sort_dp(arr) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:) :: arr public subroutine util_sort_index_dp(arr, ind) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind","tags":"","loc":"interface/util_sort.html"},{"title":"util_sort_rearrange_body – swiftest","text":"interface Calls interface~~util_sort_rearrange_body~~CallsGraph interface~util_sort_rearrange_body util_sort_rearrange_body proc~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body->proc~util_sort_rearrange_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~util_sort_rearrange_body~~CalledByGraph interface~util_sort_rearrange_body util_sort_rearrange_body proc~util_sort_rearrange_tp util_sort_rearrange_tp proc~util_sort_rearrange_tp->interface~util_sort_rearrange_body proc~util_sort_rearrange_pl util_sort_rearrange_pl proc~util_sort_rearrange_pl->interface~util_sort_rearrange_body interface~util_sort_rearrange_pl util_sort_rearrange_pl interface~util_sort_rearrange_pl->proc~util_sort_rearrange_pl interface~util_sort_rearrange_tp util_sort_rearrange_tp interface~util_sort_rearrange_tp->proc~util_sort_rearrange_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_sort_rearrange_body(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order)","tags":"","loc":"interface/util_sort_rearrange_body.html"},{"title":"util_sort_rearrange_pl – swiftest","text":"interface Calls interface~~util_sort_rearrange_pl~~CallsGraph interface~util_sort_rearrange_pl util_sort_rearrange_pl proc~util_sort_rearrange_pl util_sort_rearrange_pl interface~util_sort_rearrange_pl->proc~util_sort_rearrange_pl interface~util_sort_rearrange_body util_sort_rearrange_body proc~util_sort_rearrange_pl->interface~util_sort_rearrange_body proc~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body->proc~util_sort_rearrange_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order)","tags":"","loc":"interface/util_sort_rearrange_pl.html"},{"title":"util_sort_rearrange_tp – swiftest","text":"interface Calls interface~~util_sort_rearrange_tp~~CallsGraph interface~util_sort_rearrange_tp util_sort_rearrange_tp proc~util_sort_rearrange_tp util_sort_rearrange_tp interface~util_sort_rearrange_tp->proc~util_sort_rearrange_tp interface~util_sort_rearrange_body util_sort_rearrange_body proc~util_sort_rearrange_tp->interface~util_sort_rearrange_body proc~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body->proc~util_sort_rearrange_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order)","tags":"","loc":"interface/util_sort_rearrange_tp.html"},{"title":"util_sort_body – swiftest","text":"interface Calls interface~~util_sort_body~~CallsGraph interface~util_sort_body util_sort_body proc~util_sort_body util_sort_body interface~util_sort_body->proc~util_sort_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~util_sort_body~~CalledByGraph interface~util_sort_body util_sort_body proc~util_sort_tp util_sort_tp proc~util_sort_tp->interface~util_sort_body proc~util_sort_pl util_sort_pl proc~util_sort_pl->interface~util_sort_body interface~util_sort_pl util_sort_pl interface~util_sort_pl->proc~util_sort_pl interface~util_sort_tp util_sort_tp interface~util_sort_tp->proc~util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_sort_body(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order","tags":"","loc":"interface/util_sort_body.html"},{"title":"util_sort_pl – swiftest","text":"interface Calls interface~~util_sort_pl~~CallsGraph interface~util_sort_pl util_sort_pl proc~util_sort_pl util_sort_pl interface~util_sort_pl->proc~util_sort_pl interface~util_sort_body util_sort_body proc~util_sort_pl->interface~util_sort_body proc~util_sort_body util_sort_body interface~util_sort_body->proc~util_sort_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order","tags":"","loc":"interface/util_sort_pl.html"},{"title":"util_sort_tp – swiftest","text":"interface Calls interface~~util_sort_tp~~CallsGraph interface~util_sort_tp util_sort_tp proc~util_sort_tp util_sort_tp interface~util_sort_tp->proc~util_sort_tp interface~util_sort_body util_sort_body proc~util_sort_tp->interface~util_sort_body proc~util_sort_body util_sort_body interface~util_sort_body->proc~util_sort_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order","tags":"","loc":"interface/util_sort_tp.html"},{"title":"util_spill – swiftest","text":"public interface util_spill Called by interface~~util_spill~2~~CalledByGraph interface~util_spill~2 util_spill proc~util_spill_encounter util_spill_encounter proc~util_spill_encounter->interface~util_spill~2 proc~util_spill_body util_spill_body proc~util_spill_body->interface~util_spill~2 proc~util_spill_tp util_spill_tp proc~util_spill_tp->interface~util_spill~2 interface~util_spill_body util_spill_body proc~util_spill_tp->interface~util_spill_body proc~util_spill_pl util_spill_pl proc~util_spill_pl->interface~util_spill~2 proc~util_spill_pl->interface~util_spill_body interface~util_spill_body->proc~util_spill_body interface~util_spill_tp util_spill_tp interface~util_spill_tp->proc~util_spill_tp interface~util_spill_encounter util_spill_encounter interface~util_spill_encounter->proc~util_spill_encounter interface~util_spill_pl util_spill_pl interface~util_spill_pl->proc~util_spill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines util_spill_arr_char_string util_spill_arr_DP util_spill_arr_DPvec util_spill_arr_I4B util_spill_arr_logical Subroutines public subroutine util_spill_arr_char_string(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: keeps Array of values to keep character(len=STRMAX), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine util_spill_arr_DP(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: keeps Array of values to keep real(kind=DP), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine util_spill_arr_DPvec(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: keeps Array of values to keep real(kind=DP), intent(inout), dimension(:,:), allocatable :: discards Array discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine util_spill_arr_I4B(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I4B), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine util_spill_arr_logical(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: keeps Array of values to keep logical, intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/util_spill~2.html"},{"title":"util_spill_body – swiftest","text":"interface Calls interface~~util_spill_body~~CallsGraph interface~util_spill_body util_spill_body proc~util_spill_body util_spill_body interface~util_spill_body->proc~util_spill_body interface~util_spill~2 util_spill proc~util_spill_body->interface~util_spill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~util_spill_body~~CalledByGraph interface~util_spill_body util_spill_body proc~util_spill_tp util_spill_tp proc~util_spill_tp->interface~util_spill_body proc~util_spill_pl util_spill_pl proc~util_spill_pl->interface~util_spill_body interface~util_spill_pl util_spill_pl interface~util_spill_pl->proc~util_spill_pl interface~util_spill_tp util_spill_tp interface~util_spill_tp->proc~util_spill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_spill_body(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/util_spill_body.html"},{"title":"util_spill_encounter – swiftest","text":"interface Calls interface~~util_spill_encounter~~CallsGraph interface~util_spill_encounter util_spill_encounter proc~util_spill_encounter util_spill_encounter interface~util_spill_encounter->proc~util_spill_encounter interface~util_spill~2 util_spill proc~util_spill_encounter->interface~util_spill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_spill_encounter(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list","tags":"","loc":"interface/util_spill_encounter.html"},{"title":"util_spill_pl – swiftest","text":"interface Calls interface~~util_spill_pl~~CallsGraph interface~util_spill_pl util_spill_pl proc~util_spill_pl util_spill_pl interface~util_spill_pl->proc~util_spill_pl interface~util_spill_body util_spill_body proc~util_spill_pl->interface~util_spill_body interface~util_spill~2 util_spill proc~util_spill_pl->interface~util_spill~2 proc~util_spill_body util_spill_body interface~util_spill_body->proc~util_spill_body proc~util_spill_body->interface~util_spill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/util_spill_pl.html"},{"title":"util_spill_tp – swiftest","text":"interface Calls interface~~util_spill_tp~~CallsGraph interface~util_spill_tp util_spill_tp proc~util_spill_tp util_spill_tp interface~util_spill_tp->proc~util_spill_tp interface~util_spill_body util_spill_body proc~util_spill_tp->interface~util_spill_body interface~util_spill~2 util_spill proc~util_spill_tp->interface~util_spill~2 proc~util_spill_body util_spill_body interface~util_spill_body->proc~util_spill_body proc~util_spill_body->interface~util_spill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/util_spill_tp.html"},{"title":"util_valid – swiftest","text":"interface Calls interface~~util_valid~~CallsGraph interface~util_valid util_valid proc~util_valid util_valid interface~util_valid->proc~util_valid interface~util_exit util_exit proc~util_valid->interface~util_exit interface~util_sort util_sort proc~util_valid->interface~util_sort proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~util_valid~~CalledByGraph interface~util_valid util_valid proc~setup_initialize_system setup_initialize_system proc~setup_initialize_system->interface~util_valid interface~setup_initialize_system setup_initialize_system interface~setup_initialize_system->proc~setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_valid(pl, tp) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(in) :: pl class( swiftest_tp ), intent(in) :: tp","tags":"","loc":"interface/util_valid.html"},{"title":"util_version – swiftest","text":"interface Calls interface~~util_version~~CallsGraph interface~util_version util_version proc~util_version util_version interface~util_version->proc~util_version Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~util_version~~CalledByGraph interface~util_version util_version proc~io_get_args io_get_args proc~io_get_args->interface~util_version interface~io_get_args io_get_args interface~io_get_args->proc~io_get_args Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_version() Implementation → Arguments None","tags":"","loc":"interface/util_version.html"},{"title":"lambda_init_0 – swiftest","text":"public function lambda_init_0(lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) Called by proc~~lambda_init_0~~CalledByGraph proc~lambda_init_0 lambda_init_0 interface~lambda_obj~2 lambda_obj interface~lambda_obj~2->proc~lambda_init_0 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/lambda_init_0.html"},{"title":"lambda_init_0_err – swiftest","text":"public function lambda_init_0_err(lambda, lerr) Arguments Type Intent Optional Attributes Name procedure( lambda0err ) :: lambda logical, intent(in) :: lerr Return Value type( lambda_obj_err ) Called by proc~~lambda_init_0_err~~CalledByGraph proc~lambda_init_0_err lambda_init_0_err interface~lambda_obj~2 lambda_obj interface~lambda_obj~2->proc~lambda_init_0_err Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/lambda_init_0_err.html"},{"title":"lambda_init_tvar – swiftest","text":"public function lambda_init_tvar(lambda, t) Arguments Type Intent Optional Attributes Name procedure( lambda0tvar ) :: lambda real(kind=DP), intent(in) :: t Return Value type( lambda_obj_tvar ) Called by proc~~lambda_init_tvar~~CalledByGraph proc~lambda_init_tvar lambda_init_tvar interface~lambda_obj~2 lambda_obj interface~lambda_obj~2->proc~lambda_init_tvar Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/lambda_init_tvar.html"},{"title":"lambda_eval_0 – swiftest","text":"public function lambda_eval_0(self, x) result(y) Arguments Type Intent Optional Attributes Name class( lambda_obj ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x Return Value real(kind=DP) Contents None","tags":"","loc":"proc/lambda_eval_0.html"},{"title":"lambda_eval_0_err – swiftest","text":"public function lambda_eval_0_err(self, x) result(y) Arguments Type Intent Optional Attributes Name class( lambda_obj_err ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x Return Value real(kind=DP) Contents None","tags":"","loc":"proc/lambda_eval_0_err.html"},{"title":"lambda_eval_tvar – swiftest","text":"public function lambda_eval_tvar(self, x, t) result(y) Arguments Type Intent Optional Attributes Name class( lambda_obj_tvar ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t Return Value real(kind=DP),\n  dimension(:),allocatable Contents None","tags":"","loc":"proc/lambda_eval_tvar.html"},{"title":"lambda_destroy – swiftest","text":"public subroutine lambda_destroy(self) Arguments Type Intent Optional Attributes Name type( lambda_obj ) :: self Contents None","tags":"","loc":"proc/lambda_destroy.html"},{"title":"lambda_obj – swiftest","text":"public interface lambda_obj Calls interface~~lambda_obj~2~~CallsGraph interface~lambda_obj~2 lambda_obj proc~lambda_init_0 lambda_init_0 interface~lambda_obj~2->proc~lambda_init_0 proc~lambda_init_0_err lambda_init_0_err interface~lambda_obj~2->proc~lambda_init_0_err proc~lambda_init_tvar lambda_init_tvar interface~lambda_obj~2->proc~lambda_init_tvar Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Module Procedures lambda_init_0 lambda_init_0_err lambda_init_tvar Module Procedures public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) public function lambda_init_0_err (lambda, lerr) Arguments Type Intent Optional Attributes Name procedure( lambda0err ) :: lambda logical, intent(in) :: lerr Return Value type( lambda_obj_err ) public function lambda_init_tvar (lambda, t) Arguments Type Intent Optional Attributes Name procedure( lambda0tvar ) :: lambda real(kind=DP), intent(in) :: t Return Value type( lambda_obj_tvar )","tags":"","loc":"interface/lambda_obj~2.html"},{"title":"rmvs_interp_out – swiftest","text":"subroutine rmvs_interp_out(cb, pl, dt) Interpolate planet positions between two Keplerian orbits in outer encounter region Adapted from David E. Kaufmann's Swifter routine rmvs_interp_out.f90 Adapted from Hal Levison's Swift routine rmvs3_interp.f Arguments Type Intent Optional Attributes Name class( rmvs_cb ), intent(inout) :: cb RMVS central body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object real(kind=DP), intent(in) :: dt Step size Calls proc~~rmvs_interp_out~~CallsGraph proc~rmvs_interp_out rmvs_interp_out util_exit util_exit proc~rmvs_interp_out->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_interp_out~~CalledByGraph proc~rmvs_interp_out rmvs_interp_out proc~rmvs_step_system rmvs_step_system proc~rmvs_step_system->proc~rmvs_interp_out interface~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_interp_out.html"},{"title":"rmvs_step_out – swiftest","text":"subroutine rmvs_step_out(cb, pl, tp, system, param, t, dt) Step ACTIVE test particles ahead in the outer encounter region, setting up and calling the inner region\n    integration if necessar Adapted from Hal Levison's Swift routines rmvs3_step_out.f and rmvs3_step_out2.f\n Adapted from David E. Kaufmann's Swifter routines rmvs_step_out.f90 and rmvs_step_out2.f90 Arguments Type Intent Optional Attributes Name class( rmvs_cb ), intent(inout) :: cb RMVS central body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_tp ), intent(inout) :: tp RMVS test particle object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsiz Calls proc~~rmvs_step_out~~CallsGraph proc~rmvs_step_out rmvs_step_out proc~rmvs_interp_in rmvs_interp_in proc~rmvs_step_out->proc~rmvs_interp_in proc~rmvs_step_in rmvs_step_in proc~rmvs_step_out->proc~rmvs_step_in util_exit util_exit proc~rmvs_interp_in->util_exit proc~rmvs_make_planetocentric rmvs_make_planetocentric proc~rmvs_step_in->proc~rmvs_make_planetocentric proc~rmvs_peri_tp rmvs_peri_tp proc~rmvs_step_in->proc~rmvs_peri_tp proc~rmvs_end_planetocentric rmvs_end_planetocentric proc~rmvs_step_in->proc~rmvs_end_planetocentric xpc xpc proc~rmvs_peri_tp->xpc vpc vpc proc~rmvs_peri_tp->vpc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_step_out~~CalledByGraph proc~rmvs_step_out rmvs_step_out proc~rmvs_step_system rmvs_step_system proc~rmvs_step_system->proc~rmvs_step_out interface~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_step_out.html"},{"title":"rmvs_interp_in – swiftest","text":"subroutine rmvs_interp_in(cb, pl, system, param, dt, outer_index) Interpolate planet positions between two Keplerian orbits in inner encounter regio Adapted from David E. Kaufmann's Swifter routine rmvs_interp_in.f90 Adapted from Hal Levison's Swift routine rmvs3_interp.f Arguments Type Intent Optional Attributes Name class( rmvs_cb ), intent(inout) :: cb RMVS cenral body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object class(swiftest_parameters), intent(in) :: param Swiftest parameters file real(kind=DP), intent(in) :: dt Step size integer(kind=I4B), intent(in) :: outer_index Outer substep number within current set Calls proc~~rmvs_interp_in~~CallsGraph proc~rmvs_interp_in rmvs_interp_in util_exit util_exit proc~rmvs_interp_in->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_interp_in~~CalledByGraph proc~rmvs_interp_in rmvs_interp_in proc~rmvs_step_out rmvs_step_out proc~rmvs_step_out->proc~rmvs_interp_in proc~rmvs_step_system rmvs_step_system proc~rmvs_step_system->proc~rmvs_step_out interface~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_interp_in.html"},{"title":"rmvs_step_in – swiftest","text":"subroutine rmvs_step_in(cb, pl, tp, param, outer_time, dto) Step active test particles ahead in the inner encounter region Adapted from Hal Levison's Swift routine rmvs3_step_in.f\n Adapted from David E. Kaufmann's Swifter routine rmvs_step_in.f90 Arguments Type Intent Optional Attributes Name class( rmvs_cb ), intent(inout) :: cb RMVS central body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_tp ), intent(inout) :: tp RMVS test particle object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: outer_time Current time real(kind=DP), intent(in) :: dto Outer step size Calls proc~~rmvs_step_in~~CallsGraph proc~rmvs_step_in rmvs_step_in proc~rmvs_peri_tp rmvs_peri_tp proc~rmvs_step_in->proc~rmvs_peri_tp proc~rmvs_make_planetocentric rmvs_make_planetocentric proc~rmvs_step_in->proc~rmvs_make_planetocentric proc~rmvs_end_planetocentric rmvs_end_planetocentric proc~rmvs_step_in->proc~rmvs_end_planetocentric xpc xpc proc~rmvs_peri_tp->xpc vpc vpc proc~rmvs_peri_tp->vpc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_step_in~~CalledByGraph proc~rmvs_step_in rmvs_step_in proc~rmvs_step_out rmvs_step_out proc~rmvs_step_out->proc~rmvs_step_in proc~rmvs_step_system rmvs_step_system proc~rmvs_step_system->proc~rmvs_step_out interface~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_step_in.html"},{"title":"rmvs_make_planetocentric – swiftest","text":"subroutine rmvs_make_planetocentric(param, cb, pl, tp) When encounters are detected, this method will call the interpolation methods for the planets and \n creates a Swiftest test particle structure for each planet's encountering test particles to simplify the \n planetocentric calculations. This subroutine is not based on an existing one from Swift and Swifter Arguments Type Intent Optional Attributes Name class(swiftest_parameters), intent(in) :: param Current run configuration paramete class( rmvs_cb ), intent(inout) :: cb RMVS central body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_tp ), intent(inout) :: tp RMVS test particle object Called by proc~~rmvs_make_planetocentric~~CalledByGraph proc~rmvs_make_planetocentric rmvs_make_planetocentric proc~rmvs_step_in rmvs_step_in proc~rmvs_step_in->proc~rmvs_make_planetocentric proc~rmvs_step_out rmvs_step_out proc~rmvs_step_out->proc~rmvs_step_in proc~rmvs_step_system rmvs_step_system proc~rmvs_step_system->proc~rmvs_step_out interface~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_make_planetocentric.html"},{"title":"rmvs_peri_tp – swiftest","text":"subroutine rmvs_peri_tp(tp, pl, t, dt, lfirst, inner_index, ipleP, param) Determine planetocentric pericenter passages for test particles in close encounters with a planet Adapted from Hal Levison's Swift routine Adapted from Hal Levison's Swift routine util_peri.f\n Adapted from David E. Kaufmann's Swifter routine rmvs_peri.f90 Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: tp RMVS test particle object (planetocentric) class( rmvs_pl ), intent(inout) :: pl RMVS massive body object (heliocentric) real(kind=DP), intent(in) :: t current time real(kind=DP), intent(in) :: dt step size logical, intent(in) :: lfirst Logical flag indicating whether current invocation is the first integer(kind=I4B), intent(in) :: inner_index Outer substep number within current set integer(kind=I4B), intent(in) :: ipleP index of RMVS planet being closely encountered class(swiftest_parameters), intent(in) :: param Current run configuration parameters Calls proc~~rmvs_peri_tp~~CallsGraph proc~rmvs_peri_tp rmvs_peri_tp xpc xpc proc~rmvs_peri_tp->xpc vpc vpc proc~rmvs_peri_tp->vpc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_peri_tp~~CalledByGraph proc~rmvs_peri_tp rmvs_peri_tp proc~rmvs_step_in rmvs_step_in proc~rmvs_step_in->proc~rmvs_peri_tp proc~rmvs_step_out rmvs_step_out proc~rmvs_step_out->proc~rmvs_step_in proc~rmvs_step_system rmvs_step_system proc~rmvs_step_system->proc~rmvs_step_out interface~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_peri_tp.html"},{"title":"rmvs_end_planetocentric – swiftest","text":"subroutine rmvs_end_planetocentric(pl, tp) Deallocates all of the encountering particle data structures for next time Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_tp ), intent(inout) :: tp RMVS test particle objec Called by proc~~rmvs_end_planetocentric~~CalledByGraph proc~rmvs_end_planetocentric rmvs_end_planetocentric proc~rmvs_step_in rmvs_step_in proc~rmvs_step_in->proc~rmvs_end_planetocentric proc~rmvs_step_out rmvs_step_out proc~rmvs_step_out->proc~rmvs_step_in proc~rmvs_step_system rmvs_step_system proc~rmvs_step_system->proc~rmvs_step_out interface~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_end_planetocentric.html"},{"title":"kick_getacch_int_pl – swiftest","text":"pure module subroutine kick_getacch_int_pl(self) Interface → Compute direct cross (third) term heliocentric accelerations of massive bodies Adapted from Hal Levison's Swift routine getacch_ah3.f\n Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_ah3.f90 and helio_kick_getacch_int.f90 Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Called by proc~~kick_getacch_int_pl~~CalledByGraph proc~kick_getacch_int_pl kick_getacch_int_pl interface~kick_getacch_int_pl kick_getacch_int_pl interface~kick_getacch_int_pl->proc~kick_getacch_int_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/kick_getacch_int_pl.html"},{"title":"kick_getacch_int_tp – swiftest","text":"pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl) Interface → Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies Adapted from Hal Levison's Swift routine getacch_ah3_tp.f\n Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_ah3.f90 and helio_kick_getacch_int_tp.f90 Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies Called by proc~~kick_getacch_int_tp~~CalledByGraph proc~kick_getacch_int_tp kick_getacch_int_tp interface~kick_getacch_int_tp kick_getacch_int_tp interface~kick_getacch_int_tp->proc~kick_getacch_int_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/kick_getacch_int_tp.html"},{"title":"tides_kick_getacch_pl – swiftest","text":"module subroutine tides_kick_getacch_pl(self, system) Interface → Calculated tidal torques from central body to any planet and from any planet to central body\n planet - planet interactions are considered negligable.\n This is a constant time lag model. Adapted from Mercury-T code from Bolmont et al. (2015) Reference:\n    Bolmont, E., Raymond, S.N., Leconte, J., Hersant, F., Correia, A.C.M., 2015. \n       Mercury-T : A new code to study tidally evolving multi-planet systems. \n       Applications to Kepler-62. A&A 583, A116. https://doi.org/10.1051/0004-6361/201525909 Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object Called by proc~~tides_kick_getacch_pl~~CalledByGraph proc~tides_kick_getacch_pl tides_kick_getacch_pl interface~tides_kick_getacch_pl tides_kick_getacch_pl interface~tides_kick_getacch_pl->proc~tides_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/tides_kick_getacch_pl.html"},{"title":"tides_step_spin_system – swiftest","text":"module subroutine tides_step_spin_system(self, param, t, dt) Interface → Integrates the spin equations for central and massive bodies of the system subjected to tides. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize Called by proc~~tides_step_spin_system~~CalledByGraph proc~tides_step_spin_system tides_step_spin_system interface~tides_step_spin_system tides_step_spin_system interface~tides_step_spin_system->proc~tides_step_spin_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/tides_step_spin_system.html"},{"title":"obl_acc_body – swiftest","text":"module subroutine obl_acc_body(self, system) Interface → Compute the barycentric accelerations of bodies due to the oblateness of the central body\n      Returned values do not include monopole term or terms higher than J4 Adapted from David E. Kaufmann's Swifter routine: obl_acc.f90 and obl_acc_tp.f90\n Adapted from Hal Levison's Swift routine obl_acc.f and obl_acc_tp.f Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object Called by proc~~obl_acc_body~~CalledByGraph proc~obl_acc_body obl_acc_body interface~obl_acc_body obl_acc_body interface~obl_acc_body->proc~obl_acc_body proc~obl_acc_tp obl_acc_tp proc~obl_acc_tp->interface~obl_acc_body proc~obl_acc_pl obl_acc_pl proc~obl_acc_pl->interface~obl_acc_body interface~obl_acc_pl obl_acc_pl interface~obl_acc_pl->proc~obl_acc_pl interface~obl_acc_tp obl_acc_tp interface~obl_acc_tp->proc~obl_acc_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/obl_acc_body.html"},{"title":"obl_acc_pl – swiftest","text":"module subroutine obl_acc_pl(self, system) Interface → Compute the barycentric accelerations of massive bodies due to the oblateness of the central body Adapted from David E. Kaufmann's Swifter routine: obl_acc.f90 and obl_acc_tp.f90\n Adapted from Hal Levison's Swift routine obl_acc.f and obl_acc_tp.f Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object Calls proc~~obl_acc_pl~~CallsGraph proc~obl_acc_pl obl_acc_pl interface~obl_acc_body obl_acc_body proc~obl_acc_pl->interface~obl_acc_body proc~obl_acc_body obl_acc_body interface~obl_acc_body->proc~obl_acc_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~obl_acc_pl~~CalledByGraph proc~obl_acc_pl obl_acc_pl interface~obl_acc_pl obl_acc_pl interface~obl_acc_pl->proc~obl_acc_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/obl_acc_pl.html"},{"title":"obl_acc_tp – swiftest","text":"module subroutine obl_acc_tp(self, system) Interface → Compute the barycentric accelerations of massive bodies due to the oblateness of the central body Adapted from David E. Kaufmann's Swifter routine: obl_acc.f90 and obl_acc_tp.f90\n Adapted from Hal Levison's Swift routine obl_acc.f and obl_acc_tp.f Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object Calls proc~~obl_acc_tp~~CallsGraph proc~obl_acc_tp obl_acc_tp interface~obl_acc_body obl_acc_body proc~obl_acc_tp->interface~obl_acc_body proc~obl_acc_body obl_acc_body interface~obl_acc_body->proc~obl_acc_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~obl_acc_tp~~CalledByGraph proc~obl_acc_tp obl_acc_tp interface~obl_acc_tp obl_acc_tp interface~obl_acc_tp->proc~obl_acc_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/obl_acc_tp.html"},{"title":"obl_pot – swiftest","text":"module subroutine obl_pot(npl, Mcb, Mpl, j2rp2, j4rp4, xh, irh, oblpot) Interface → Compute the contribution to the total gravitational potential due solely to the oblateness of the central body\n    Returned value does not include monopole term or terms higher than J4 Reference : MacMillan , W . D . 1958 . The Theory of the Potential , ( Dover Publications ), 363 . Adapted from David E. Kaufmann's Swifter routine: obl_pot.f90 \n Adapted from Hal Levison's Swift routine obl_pot.f Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: npl real(kind=DP), intent(in) :: Mcb real(kind=DP), intent(in), dimension(:) :: Mpl real(kind=DP), intent(in) :: j2rp2 real(kind=DP), intent(in) :: j4rp4 real(kind=DP), intent(in), dimension(:, :) :: xh real(kind=DP), intent(in), dimension(:) :: irh real(kind=DP), intent(out) :: oblpot Called by proc~~obl_pot~~CalledByGraph proc~obl_pot obl_pot interface~obl_pot obl_pot interface~obl_pot->proc~obl_pot proc~util_get_energy_momentum_system util_get_energy_momentum_system proc~util_get_energy_momentum_system->interface~obl_pot interface~util_get_energy_momentum_system util_get_energy_momentum_system interface~util_get_energy_momentum_system->proc~util_get_energy_momentum_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/obl_pot.html"},{"title":"orbel_el2xv_vec – swiftest","text":"module subroutine orbel_el2xv_vec(self, cb) Interface → A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body objec Calls proc~~orbel_el2xv_vec~~CallsGraph proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv_vec->proc~orbel_el2xv proc~orbel_fhybrid orbel_fhybrid proc~orbel_el2xv->proc~orbel_fhybrid proc~orbel_zget orbel_zget proc~orbel_el2xv->proc~orbel_zget proc~orbel_schget orbel_schget proc~orbel_el2xv->proc~orbel_schget interface~orbel_scget orbel_scget proc~orbel_el2xv->interface~orbel_scget proc~orbel_ehybrid orbel_ehybrid proc~orbel_el2xv->proc~orbel_ehybrid proc~orbel_flon orbel_flon proc~orbel_fhybrid->proc~orbel_flon proc~orbel_fget orbel_fget proc~orbel_fhybrid->proc~orbel_fget proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget proc~orbel_esolmd orbel_esolmd proc~orbel_ehybrid->proc~orbel_esolmd proc~orbel_eget orbel_eget proc~orbel_ehybrid->proc~orbel_eget proc~orbel_ehie orbel_ehie proc~orbel_ehybrid->proc~orbel_ehie 3 3 proc~orbel_flon->3 proc~orbel_fget->proc~orbel_schget proc~orbel_esolmd->interface~orbel_scget proc~orbel_eget->interface~orbel_scget proc~orbel_ehie->interface~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_el2xv_vec~~CalledByGraph proc~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_el2xv_vec.html"},{"title":"orbel_scget – swiftest","text":"pure module subroutine orbel_scget(angle, sx, cx) Interface → Efficiently compute the sine and cosine of an input angle\n      Input angle must be in radians Adapted from David E. Kaufmann's Swifter routine: orbel_scget.f90\n Adapted from Hal Levison's Swift routine orbel_scget.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: angle real(kind=DP), intent(out) :: sx real(kind=DP), intent(out) :: cx Called by proc~~orbel_scget~~CalledByGraph proc~orbel_scget orbel_scget interface~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->interface~orbel_scget proc~orbel_ehybrid orbel_ehybrid proc~orbel_el2xv->proc~orbel_ehybrid proc~orbel_esolmd orbel_esolmd proc~orbel_esolmd->interface~orbel_scget proc~orbel_eget orbel_eget proc~orbel_eget->interface~orbel_scget proc~drift_kepu_guess drift_kepu_guess proc~drift_kepu_guess->interface~orbel_scget proc~orbel_ehie orbel_ehie proc~orbel_ehie->interface~orbel_scget proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv proc~drift_kepu drift_kepu proc~drift_kepu->proc~drift_kepu_guess proc~orbel_ehybrid->proc~orbel_esolmd proc~orbel_ehybrid->proc~orbel_eget proc~orbel_ehybrid->proc~orbel_ehie interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_scget.html"},{"title":"orbel_xv2aeq – swiftest","text":"pure module subroutine orbel_xv2aeq(mu, x, v, a, e, q) Interface → Compute semimajor axis, eccentricity, and pericentric distance from relative Cartesian position and velocity Adapted from David E. Kaufmann's Swifter routine: orbel_xv2aeq.f90\n Adapted from Luke Dones' Swift routine orbel_xv2aeq.f\n Arguments Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in), dimension(:) :: v real(kind=DP), intent(out) :: a real(kind=DP), intent(out) :: e real(kind=DP), intent(out) :: q Called by proc~~orbel_xv2aeq~~CalledByGraph proc~orbel_xv2aeq orbel_xv2aeq interface~orbel_xv2aeq orbel_xv2aeq interface~orbel_xv2aeq->proc~orbel_xv2aeq proc~util_peri_tp util_peri_tp proc~util_peri_tp->interface~orbel_xv2aeq interface~util_peri_tp util_peri_tp interface~util_peri_tp->proc~util_peri_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_xv2aeq.html"},{"title":"orbel_xv2aqt – swiftest","text":"pure module subroutine orbel_xv2aqt(mu, x, v, a, q, capm, tperi) Interface → Compute semimajor axis, pericentric distance, mean anomaly, and time to nearest pericenter passage from\n relative Cartesian position and velocity\n      tperi > 0 means nearest pericenter passage is in the future\n      tperi < 0 means nearest pericenter passage is in the past Adapted from David E. Kaufmann's Swifter routine: orbel_xv2aqt.f90 Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(out) :: a semimajor axis real(kind=DP), intent(out) :: q periapsis real(kind=DP), intent(out) :: capm mean anomaly real(kind=DP), intent(out) :: tperi time of pericenter passage Called by proc~~orbel_xv2aqt~~CalledByGraph proc~orbel_xv2aqt orbel_xv2aqt interface~orbel_xv2aqt orbel_xv2aqt interface~orbel_xv2aqt->proc~orbel_xv2aqt Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_xv2aqt.html"},{"title":"orbel_xv2el_vec – swiftest","text":"module subroutine orbel_xv2el_vec(self, cb) Interface → A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Calls proc~~orbel_xv2el_vec~~CallsGraph proc~orbel_xv2el_vec orbel_xv2el_vec proc~orbel_xv2el orbel_xv2el proc~orbel_xv2el_vec->proc~orbel_xv2el Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_xv2el_vec~~CalledByGraph proc~orbel_xv2el_vec orbel_xv2el_vec interface~orbel_xv2el_vec orbel_xv2el_vec interface~orbel_xv2el_vec->proc~orbel_xv2el_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_xv2el_vec.html"},{"title":"whm_coord_h2j_pl – swiftest","text":"module subroutine whm_coord_h2j_pl(self, cb) Interface → Convert from heliocentric to Jacobi coordinates, massive bodies only Uses pre-computed eta rather than computing it each time Adapted from David E. Kaufmann's Swifter routine coord_h2j.f90 Adapted from Hal Levison's Swift routine coord_h2j.f Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree Calls proc~~whm_coord_h2j_pl~~CallsGraph proc~whm_coord_h2j_pl whm_coord_h2j_pl xh xh proc~whm_coord_h2j_pl->xh gmpl gmpl proc~whm_coord_h2j_pl->gmpl vj vj proc~whm_coord_h2j_pl->vj xj xj proc~whm_coord_h2j_pl->xj eta eta proc~whm_coord_h2j_pl->eta vh vh proc~whm_coord_h2j_pl->vh Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_coord_h2j_pl~~CalledByGraph proc~whm_coord_h2j_pl whm_coord_h2j_pl interface~whm_coord_h2j_pl whm_coord_h2j_pl interface~whm_coord_h2j_pl->proc~whm_coord_h2j_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_coord_h2j_pl.html"},{"title":"whm_coord_j2h_pl – swiftest","text":"module subroutine whm_coord_j2h_pl(self, cb) Interface → Convert from Jacobi to heliocentric coordinates, massive bodies only. Uses pre-computed eta rather than computing it each time Adapted from David E. Kaufmann's Swifter routine coord_j2h.f90 Adapted from Hal Levison's Swift routine coord_j2h.f Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree Calls proc~~whm_coord_j2h_pl~~CallsGraph proc~whm_coord_j2h_pl whm_coord_j2h_pl xh xh proc~whm_coord_j2h_pl->xh gmpl gmpl proc~whm_coord_j2h_pl->gmpl vj vj proc~whm_coord_j2h_pl->vj xj xj proc~whm_coord_j2h_pl->xj eta eta proc~whm_coord_j2h_pl->eta vh vh proc~whm_coord_j2h_pl->vh Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_coord_j2h_pl~~CalledByGraph proc~whm_coord_j2h_pl whm_coord_j2h_pl interface~whm_coord_j2h_pl whm_coord_j2h_pl interface~whm_coord_j2h_pl->proc~whm_coord_j2h_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_coord_j2h_pl.html"},{"title":"whm_coord_vh2vj_pl – swiftest","text":"module subroutine whm_coord_vh2vj_pl(self, cb) Interface → Convert from heliocentric to Jadcobi coordinates, massive body velocities only Uses pre-computed eta rather than computing it each time Adapted from David E. Kaufmann's Swifter routine coord_vh2vj.f90 Adapted from Hal Levison's Swift routine coord_vh2vj.f Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree Calls proc~~whm_coord_vh2vj_pl~~CallsGraph proc~whm_coord_vh2vj_pl whm_coord_vh2vj_pl vj vj proc~whm_coord_vh2vj_pl->vj gmpl gmpl proc~whm_coord_vh2vj_pl->gmpl eta eta proc~whm_coord_vh2vj_pl->eta vh vh proc~whm_coord_vh2vj_pl->vh Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_coord_vh2vj_pl~~CalledByGraph proc~whm_coord_vh2vj_pl whm_coord_vh2vj_pl interface~whm_coord_vh2vj_pl whm_coord_vh2vj_pl interface~whm_coord_vh2vj_pl->proc~whm_coord_vh2vj_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_coord_vh2vj_pl.html"},{"title":"whm_gr_kick_getacch_pl – swiftest","text":"module subroutine whm_gr_kick_getacch_pl(self, param) Interface → Compute relativisitic accelerations of massive bodies\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_whm_kick_getacch.f90 Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters Calls proc~~whm_gr_kick_getacch_pl~~CallsGraph proc~whm_gr_kick_getacch_pl whm_gr_kick_getacch_pl gr_kick_getacch gr_kick_getacch proc~whm_gr_kick_getacch_pl->gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_gr_kick_getacch_pl~~CalledByGraph proc~whm_gr_kick_getacch_pl whm_gr_kick_getacch_pl interface~whm_gr_kick_getacch_pl whm_gr_kick_getacch_pl interface~whm_gr_kick_getacch_pl->proc~whm_gr_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_gr_kick_getacch_pl.html"},{"title":"whm_gr_kick_getacch_tp – swiftest","text":"module subroutine whm_gr_kick_getacch_tp(self, param) Interface → Compute relativisitic accelerations of test particles\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_whm_kick_getacch.f90 Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters Calls proc~~whm_gr_kick_getacch_tp~~CallsGraph proc~whm_gr_kick_getacch_tp whm_gr_kick_getacch_tp gr_kick_getacch gr_kick_getacch proc~whm_gr_kick_getacch_tp->gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_gr_kick_getacch_tp~~CalledByGraph proc~whm_gr_kick_getacch_tp whm_gr_kick_getacch_tp interface~whm_gr_kick_getacch_tp whm_gr_kick_getacch_tp interface~whm_gr_kick_getacch_tp->proc~whm_gr_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_gr_kick_getacch_tp.html"},{"title":"whm_gr_p4_pl – swiftest","text":"pure module subroutine whm_gr_p4_pl(self, param, dt) Interface → Position kick to massive bodies due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_whm_p4.f90 Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size Calls proc~~whm_gr_p4_pl~~CallsGraph proc~whm_gr_p4_pl whm_gr_p4_pl gr_p4_pos_kick gr_p4_pos_kick proc~whm_gr_p4_pl->gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_gr_p4_pl~~CalledByGraph proc~whm_gr_p4_pl whm_gr_p4_pl interface~whm_gr_p4_pl whm_gr_p4_pl interface~whm_gr_p4_pl->proc~whm_gr_p4_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_gr_p4_pl.html"},{"title":"whm_gr_p4_tp – swiftest","text":"pure module subroutine whm_gr_p4_tp(self, param, dt) Interface → Position kick to test particles due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_whm_p4.f90 Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size Calls proc~~whm_gr_p4_tp~~CallsGraph proc~whm_gr_p4_tp whm_gr_p4_tp gr_p4_pos_kick gr_p4_pos_kick proc~whm_gr_p4_tp->gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_gr_p4_tp~~CalledByGraph proc~whm_gr_p4_tp whm_gr_p4_tp interface~whm_gr_p4_tp whm_gr_p4_tp interface~whm_gr_p4_tp->proc~whm_gr_p4_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_gr_p4_tp.html"},{"title":"whm_step_system – swiftest","text":"module subroutine whm_step_system(self, param, t, dt) Interface → Step massive bodies and and active test particles ahead in heliocentric coordinates Adapted from Hal Levison's Swift routine step_kdk.f\n Adapted from David E. Kaufmann's Swifter routine whm_step.f90 Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsize Called by proc~~whm_step_system~~CalledByGraph proc~whm_step_system whm_step_system interface~whm_step_system whm_step_system interface~whm_step_system->proc~whm_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_step_system.html"},{"title":"whm_step_pl – swiftest","text":"module subroutine whm_step_pl(self, system, param, t, dt) Interface → Step planets ahead using kick-drift-kick algorithm Adapted from Hal Levison's Swift routine step_kdk_pl.f\n Adapted from David E. Kaufmann's Swifter routine whm_step_pl.f90 Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsize Called by proc~~whm_step_pl~~CalledByGraph proc~whm_step_pl whm_step_pl interface~whm_step_pl whm_step_pl interface~whm_step_pl->proc~whm_step_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_step_pl.html"},{"title":"whm_step_tp – swiftest","text":"module subroutine whm_step_tp(self, system, param, t, dt) Interface → Step active test particles ahead using kick-drift-kick algorithm Adapted from Hal Levison's Swift routine step_kdk_tp.f\n Adapted from David E. Kaufmann's Swifter routine whm_step_tp.f90 Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsize Called by proc~~whm_step_tp~~CalledByGraph proc~whm_step_tp whm_step_tp interface~whm_step_tp whm_step_tp interface~whm_step_tp->proc~whm_step_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_step_tp.html"},{"title":"whm_drift_pl – swiftest","text":"module subroutine whm_drift_pl(self, system, param, dt) Interface → Loop through planets and call Danby drift routine Adapted from Hal Levison's Swift routine drift.f\n Adapted from David E. Kaufmann's Swifter routine whm_drift.f90 Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize Calls proc~~whm_drift_pl~~CallsGraph proc~whm_drift_pl whm_drift_pl drift_all drift_all proc~whm_drift_pl->drift_all util_exit util_exit proc~whm_drift_pl->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_drift_pl~~CalledByGraph proc~whm_drift_pl whm_drift_pl interface~whm_drift_pl whm_drift_pl interface~whm_drift_pl->proc~whm_drift_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_drift_pl.html"},{"title":"whm_kick_getacch_pl – swiftest","text":"module subroutine whm_kick_getacch_pl(self, system, param, t, lbeg) Interface → Compute heliocentric accelerations of planets Adapted from Hal Levison's Swift routine getacch.f\n Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch.f90 Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest central body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Calls proc~~whm_kick_getacch_pl~~CallsGraph proc~whm_kick_getacch_pl whm_kick_getacch_pl proc~whm_kick_getacch_ah0 whm_kick_getacch_ah0 proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah0 proc~whm_kick_getacch_ah1 whm_kick_getacch_ah1 proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah1 proc~whm_kick_getacch_ah2 whm_kick_getacch_ah2 proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_kick_getacch_pl~~CalledByGraph proc~whm_kick_getacch_pl whm_kick_getacch_pl interface~whm_kick_getacch_pl whm_kick_getacch_pl interface~whm_kick_getacch_pl->proc~whm_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_kick_getacch_pl.html"},{"title":"whm_kick_getacch_tp – swiftest","text":"module subroutine whm_kick_getacch_tp(self, system, param, t, lbeg) Interface → Compute heliocentric accelerations of test particles Adapted from Hal Levison's Swift routine getacch_tp.f\n Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_tp.f90 Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest central body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Calls proc~~whm_kick_getacch_tp~~CallsGraph proc~whm_kick_getacch_tp whm_kick_getacch_tp proc~whm_kick_getacch_ah0 whm_kick_getacch_ah0 proc~whm_kick_getacch_tp->proc~whm_kick_getacch_ah0 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_kick_getacch_tp~~CalledByGraph proc~whm_kick_getacch_tp whm_kick_getacch_tp interface~whm_kick_getacch_tp whm_kick_getacch_tp interface~whm_kick_getacch_tp->proc~whm_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_kick_getacch_tp.html"},{"title":"whm_kick_vh_pl – swiftest","text":"module subroutine whm_kick_vh_pl(self, system, param, t, dt, lbeg) Interface → Kick heliocentric velocities of massive bodies Adapted from Martin Duncan and Hal Levison's Swift routine kickvh.f \n Adapted from David E. Kaufmann's Swifter routine whm_kickvh.f90 Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. Called by proc~~whm_kick_vh_pl~~CalledByGraph proc~whm_kick_vh_pl whm_kick_vh_pl interface~whm_kick_vh_pl whm_kick_vh_pl interface~whm_kick_vh_pl->proc~whm_kick_vh_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_kick_vh_pl.html"},{"title":"whm_kick_vh_tp – swiftest","text":"module subroutine whm_kick_vh_tp(self, system, param, t, dt, lbeg) Interface → Kick heliocentric velocities of test particles Adapted from Martin Duncan and Hal Levison's Swift routine kickvh_tp.f\n Adapted from David E. Kaufmann's Swifter routine whm_kickvh_tp.f90 Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. Called by proc~~whm_kick_vh_tp~~CalledByGraph proc~whm_kick_vh_tp whm_kick_vh_tp interface~whm_kick_vh_tp whm_kick_vh_tp interface~whm_kick_vh_tp->proc~whm_kick_vh_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_kick_vh_tp.html"},{"title":"whm_setup_pl – swiftest","text":"module subroutine whm_setup_pl(self, n, param) Interface → Allocate WHM planet structure Equivalent in functionality to David E. Kaufmann's Swifter routine whm_setup.f90\n Call allocation method for parent class Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameter Calls proc~~whm_setup_pl~~CallsGraph proc~whm_setup_pl whm_setup_pl setup_pl setup_pl proc~whm_setup_pl->setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_setup_pl~~CalledByGraph proc~whm_setup_pl whm_setup_pl interface~whm_setup_pl whm_setup_pl interface~whm_setup_pl->proc~whm_setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_setup_pl.html"},{"title":"whm_util_set_mu_eta_pl – swiftest","text":"module subroutine whm_util_set_mu_eta_pl(self, cb) Interface → Sets the Jacobi mass value eta for all massive bodies Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM system object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Calls proc~~whm_util_set_mu_eta_pl~~CallsGraph proc~whm_util_set_mu_eta_pl whm_util_set_mu_eta_pl util_set_mu_pl util_set_mu_pl proc~whm_util_set_mu_eta_pl->util_set_mu_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_util_set_mu_eta_pl~~CalledByGraph proc~whm_util_set_mu_eta_pl whm_util_set_mu_eta_pl interface~whm_util_set_mu_eta_pl whm_util_set_mu_eta_pl interface~whm_util_set_mu_eta_pl->proc~whm_util_set_mu_eta_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_util_set_mu_eta_pl.html"},{"title":"whm_setup_initialize_system – swiftest","text":"module subroutine whm_setup_initialize_system(self, param) Interface → Initialize a WHM nbody system from files Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters Calls proc~~whm_setup_initialize_system~~CallsGraph proc~whm_setup_initialize_system whm_setup_initialize_system setup_initialize_system setup_initialize_system proc~whm_setup_initialize_system->setup_initialize_system util_set_ir3h util_set_ir3h proc~whm_setup_initialize_system->util_set_ir3h Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_setup_initialize_system~~CalledByGraph proc~whm_setup_initialize_system whm_setup_initialize_system interface~whm_setup_initialize_system whm_setup_initialize_system interface~whm_setup_initialize_system->proc~whm_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_setup_initialize_system.html"},{"title":"whm_util_append_pl – swiftest","text":"module subroutine whm_util_append_pl(self, source, lsource_mask) Interface → Append components from one massive body object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~whm_util_append_pl~~CallsGraph proc~whm_util_append_pl whm_util_append_pl util_append util_append proc~whm_util_append_pl->util_append util_append_pl util_append_pl proc~whm_util_append_pl->util_append_pl util_exit util_exit proc~whm_util_append_pl->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_util_append_pl~~CalledByGraph proc~whm_util_append_pl whm_util_append_pl interface~whm_util_append_pl whm_util_append_pl interface~whm_util_append_pl->proc~whm_util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_util_append_pl.html"},{"title":"whm_util_fill_pl – swiftest","text":"module subroutine whm_util_fill_pl(self, inserts, lfill_list) Interface → Insert new WHM test particle structure into an old one. \n This is the inverse of a fill operation. Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: inserts inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Calls proc~~whm_util_fill_pl~~CallsGraph proc~whm_util_fill_pl whm_util_fill_pl util_fill util_fill proc~whm_util_fill_pl->util_fill util_fill_pl util_fill_pl proc~whm_util_fill_pl->util_fill_pl util_exit util_exit proc~whm_util_fill_pl->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_util_fill_pl~~CalledByGraph proc~whm_util_fill_pl whm_util_fill_pl interface~whm_util_fill_pl whm_util_fill_pl interface~whm_util_fill_pl->proc~whm_util_fill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_util_fill_pl.html"},{"title":"whm_util_resize_pl – swiftest","text":"module subroutine whm_util_resize_pl(self, nnew) Interface → Checks the current size of a massive body against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~whm_util_resize_pl~~CallsGraph proc~whm_util_resize_pl whm_util_resize_pl util_resize_pl util_resize_pl proc~whm_util_resize_pl->util_resize_pl util_resize util_resize proc~whm_util_resize_pl->util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_util_resize_pl~~CalledByGraph proc~whm_util_resize_pl whm_util_resize_pl interface~whm_util_resize_pl whm_util_resize_pl interface~whm_util_resize_pl->proc~whm_util_resize_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_util_resize_pl.html"},{"title":"whm_util_set_ir3j – swiftest","text":"module subroutine whm_util_set_ir3j(self) Interface → Sets the inverse Jacobi and heliocentric radii cubed (1/rj 3 and 1/rh 3) Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object Called by proc~~whm_util_set_ir3j~~CalledByGraph proc~whm_util_set_ir3j whm_util_set_ir3j interface~whm_util_set_ir3j whm_util_set_ir3j interface~whm_util_set_ir3j->proc~whm_util_set_ir3j Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_util_set_ir3j.html"},{"title":"whm_util_sort_pl – swiftest","text":"module subroutine whm_util_sort_pl(self, sortby, ascending) Interface → Sort a WHM massive body object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order Calls proc~~whm_util_sort_pl~~CallsGraph proc~whm_util_sort_pl whm_util_sort_pl util_sort_pl util_sort_pl proc~whm_util_sort_pl->util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_util_sort_pl~~CalledByGraph proc~whm_util_sort_pl whm_util_sort_pl interface~whm_util_sort_pl whm_util_sort_pl interface~whm_util_sort_pl->proc~whm_util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_util_sort_pl.html"},{"title":"whm_util_sort_rearrange_pl – swiftest","text":"module subroutine whm_util_sort_rearrange_pl(self, ind) Interface → Rearrange WHM massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Calls proc~~whm_util_sort_rearrange_pl~~CallsGraph proc~whm_util_sort_rearrange_pl whm_util_sort_rearrange_pl util_sort_rearrange_pl util_sort_rearrange_pl proc~whm_util_sort_rearrange_pl->util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_util_sort_rearrange_pl~~CalledByGraph proc~whm_util_sort_rearrange_pl whm_util_sort_rearrange_pl interface~whm_util_sort_rearrange_pl whm_util_sort_rearrange_pl interface~whm_util_sort_rearrange_pl->proc~whm_util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_util_sort_rearrange_pl.html"},{"title":"whm_util_spill_pl – swiftest","text":"module subroutine whm_util_spill_pl(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) WHM test particle structure from active list to discard list Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Calls proc~~whm_util_spill_pl~~CallsGraph proc~whm_util_spill_pl whm_util_spill_pl util_spill util_spill proc~whm_util_spill_pl->util_spill util_exit util_exit proc~whm_util_spill_pl->util_exit util_spill_pl util_spill_pl proc~whm_util_spill_pl->util_spill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_util_spill_pl~~CalledByGraph proc~whm_util_spill_pl whm_util_spill_pl interface~whm_util_spill_pl whm_util_spill_pl interface~whm_util_spill_pl->proc~whm_util_spill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_util_spill_pl.html"},{"title":"operator_cross_sp – swiftest","text":"pure function operator_cross_sp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: A real(kind=SP), intent(in), dimension(:) :: B Return Value real(kind=SP),\n  dimension(3) Contents None","tags":"","loc":"proc/operator_cross_sp.html"},{"title":"operator_cross_dp – swiftest","text":"pure function operator_cross_dp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: A real(kind=DP), intent(in), dimension(:) :: B Return Value real(kind=DP),\n  dimension(3) Contents None","tags":"","loc":"proc/operator_cross_dp.html"},{"title":"operator_cross_qp – swiftest","text":"pure function operator_cross_qp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:) :: A real(kind=QP), intent(in), dimension(:) :: B Return Value real(kind=QP),\n  dimension(3) Contents None","tags":"","loc":"proc/operator_cross_qp.html"},{"title":"operator_cross_i1b – swiftest","text":"pure function operator_cross_i1b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I1B), intent(in), dimension(:) :: A integer(kind=I1B), intent(in), dimension(:) :: B Return Value integer(kind=I1B),\n  dimension(3) Contents None","tags":"","loc":"proc/operator_cross_i1b.html"},{"title":"operator_cross_i2b – swiftest","text":"pure function operator_cross_i2b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I2B), intent(in), dimension(:) :: A integer(kind=I2B), intent(in), dimension(:) :: B Return Value integer(kind=I2B),\n  dimension(3) Contents None","tags":"","loc":"proc/operator_cross_i2b.html"},{"title":"operator_cross_i4b – swiftest","text":"pure function operator_cross_i4b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:) :: A integer(kind=I4B), intent(in), dimension(:) :: B Return Value integer(kind=I4B),\n  dimension(3) Contents None","tags":"","loc":"proc/operator_cross_i4b.html"},{"title":"operator_cross_i8b – swiftest","text":"pure function operator_cross_i8b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in), dimension(:) :: A integer(kind=I8B), intent(in), dimension(:) :: B Return Value integer(kind=I8B),\n  dimension(3) Contents None","tags":"","loc":"proc/operator_cross_i8b.html"},{"title":"operator_cross_el_sp – swiftest","text":"pure function operator_cross_el_sp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:,:) :: A real(kind=SP), intent(in), dimension(:,:) :: B Return Value real(kind=SP),\n  dimension(:,:),allocatable Contents None","tags":"","loc":"proc/operator_cross_el_sp.html"},{"title":"operator_cross_el_dp – swiftest","text":"pure function operator_cross_el_dp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A real(kind=DP), intent(in), dimension(:,:) :: B Return Value real(kind=DP),\n  dimension(:,:),allocatable Contents None","tags":"","loc":"proc/operator_cross_el_dp.html"},{"title":"operator_cross_el_qp – swiftest","text":"pure function operator_cross_el_qp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:,:) :: B Return Value real(kind=QP),\n  dimension(:,:),allocatable Contents None","tags":"","loc":"proc/operator_cross_el_qp.html"},{"title":"operator_cross_el_i1b – swiftest","text":"pure function operator_cross_el_i1b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I1B), intent(in), dimension(:,:) :: A integer(kind=I1B), intent(in), dimension(:,:) :: B Return Value integer(kind=I1B),\n  dimension(:,:),allocatable Contents None","tags":"","loc":"proc/operator_cross_el_i1b.html"},{"title":"operator_cross_el_i2b – swiftest","text":"pure function operator_cross_el_i2b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I2B), intent(in), dimension(:,:) :: A integer(kind=I2B), intent(in), dimension(:,:) :: B Return Value integer(kind=I2B),\n  dimension(:,:),allocatable Contents None","tags":"","loc":"proc/operator_cross_el_i2b.html"},{"title":"operator_cross_el_i4b – swiftest","text":"pure function operator_cross_el_i4b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:,:) :: A integer(kind=I4B), intent(in), dimension(:,:) :: B Return Value integer(kind=I4B),\n  dimension(:,:),allocatable Contents None","tags":"","loc":"proc/operator_cross_el_i4b.html"},{"title":"operator_cross_el_i8b – swiftest","text":"pure function operator_cross_el_i8b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in), dimension(:,:) :: A integer(kind=I8B), intent(in), dimension(:,:) :: B Return Value integer(kind=I8B),\n  dimension(:,:),allocatable Contents None","tags":"","loc":"proc/operator_cross_el_i8b.html"},{"title":"operator_mag_sp – swiftest","text":"pure function operator_mag_sp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: A Return Value real(kind=SP) Contents None","tags":"","loc":"proc/operator_mag_sp.html"},{"title":"operator_mag_dp – swiftest","text":"pure function operator_mag_dp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: A Return Value real(kind=DP) Contents None","tags":"","loc":"proc/operator_mag_dp.html"},{"title":"operator_mag_el_sp – swiftest","text":"pure function operator_mag_el_sp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:,:) :: A Return Value real(kind=SP),\n  dimension(:),allocatable Contents None","tags":"","loc":"proc/operator_mag_el_sp.html"},{"title":"operator_mag_el_dp – swiftest","text":"pure function operator_mag_el_dp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A Return Value real(kind=DP),\n  dimension(:),allocatable Contents None","tags":"","loc":"proc/operator_mag_el_dp.html"},{"title":"operator_mag_el_qp – swiftest","text":"pure function operator_mag_el_qp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A Return Value real(kind=QP),\n  dimension(:),allocatable Contents None","tags":"","loc":"proc/operator_mag_el_qp.html"},{"title":"util_solve_linear_system_d – swiftest","text":"function util_solve_linear_system_d(A, b, n, lerr) result(x) Uses ieee_exceptions proc~~util_solve_linear_system_d~~UsesGraph proc~util_solve_linear_system_d util_solve_linear_system_d ieee_exceptions ieee_exceptions proc~util_solve_linear_system_d->ieee_exceptions 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Solves the linear equation of the form A*x = b for x. \n   A is an (n,n) arrays\n   x and b are (n) arrays\n Uses Gaussian elimination, so will have issues if system is ill-conditioned.\n Uses quad precision intermidiate values, so works best on small arrays. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A real(kind=DP), intent(in), dimension(:) :: b integer(kind=I4B), intent(in) :: n logical, intent(out) :: lerr Return Value real(kind=DP),\n  dimension(n) Calls proc~~util_solve_linear_system_d~~CallsGraph proc~util_solve_linear_system_d util_solve_linear_system_d proc~ge_wpp ge_wpp proc~util_solve_linear_system_d->proc~ge_wpp proc~solve_wbs solve_wbs proc~util_solve_linear_system_d->proc~solve_wbs Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_solve_linear_system_d.html"},{"title":"util_solve_linear_system_q – swiftest","text":"function util_solve_linear_system_q(A, b, n, lerr) result(x) Uses ieee_exceptions proc~~util_solve_linear_system_q~~UsesGraph proc~util_solve_linear_system_q util_solve_linear_system_q ieee_exceptions ieee_exceptions proc~util_solve_linear_system_q->ieee_exceptions 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Solves the linear equation of the form A*x = b for x. \n   A is an (n,n) arrays\n   x and b are (n) arrays\n Uses Gaussian elimination, so will have issues if system is ill-conditioned.\n Uses quad precision intermidiate values, so works best on small arrays. Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:) :: b integer(kind=I4B), intent(in) :: n logical, intent(out) :: lerr Return Value real(kind=QP),\n  dimension(n) Calls proc~~util_solve_linear_system_q~~CallsGraph proc~util_solve_linear_system_q util_solve_linear_system_q proc~ge_wpp ge_wpp proc~util_solve_linear_system_q->proc~ge_wpp proc~solve_wbs solve_wbs proc~util_solve_linear_system_q->proc~solve_wbs Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_solve_linear_system_q.html"},{"title":"util_solve_rkf45 – swiftest","text":"module function util_solve_rkf45(f, y0in, t1, dt0, tol) result(y1) Interface → Implements the 4th order Runge-Kutta-Fehlberg ODE solver for initial value problems of the form f=dy/dt, y0 = y(t=0), solving for y1 = y(t=t1). Uses a 5th order adaptive step size control.\n Uses a lambda function object as defined in the lambda_function module Arguments Type Intent Optional Attributes Name class(lambda_obj), intent(inout) :: f lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set real(kind=DP), intent(in), dimension(:) :: y0in Initial value at t=0 real(kind=DP), intent(in) :: t1 Final time real(kind=DP), intent(in) :: dt0 Initial step size guess real(kind=DP), intent(in) :: tol Tolerance on solution Return Value real(kind=DP),\n  dimension(:),allocatable Final result Calls proc~~util_solve_rkf45~~CallsGraph proc~util_solve_rkf45 util_solve_rkf45 interface~util_exit util_exit proc~util_solve_rkf45->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_solve_rkf45~~CalledByGraph proc~util_solve_rkf45 util_solve_rkf45 interface~util_solve_rkf45 util_solve_rkf45 interface~util_solve_rkf45->proc~util_solve_rkf45 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_solve_rkf45.html"},{"title":"util_set_beg_end_pl – swiftest","text":"module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Interface → Sets one or more of the values of xbeg, xend, and vbeg Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg real(kind=DP), intent(in), optional dimension(:,:) :: xend real(kind=DP), intent(in), optional dimension(:,:) :: vbeg Called by proc~~util_set_beg_end_pl~~CalledByGraph proc~util_set_beg_end_pl util_set_beg_end_pl interface~util_set_beg_end_pl util_set_beg_end_pl interface~util_set_beg_end_pl->proc~util_set_beg_end_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_set_beg_end_pl.html"},{"title":"util_set_ir3h – swiftest","text":"module subroutine util_set_ir3h(self) Interface → Sets the inverse heliocentric radius term (1/rh**3) for all bodies in a structure Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object Called by proc~~util_set_ir3h~~CalledByGraph proc~util_set_ir3h util_set_ir3h interface~util_set_ir3h util_set_ir3h interface~util_set_ir3h->proc~util_set_ir3h Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_set_ir3h.html"},{"title":"util_set_msys – swiftest","text":"module subroutine util_set_msys(self) Interface → Sets the value of msys and the vector mass quantities based on the total mass of the system Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nobdy system object Called by proc~~util_set_msys~~CalledByGraph proc~util_set_msys util_set_msys interface~util_set_msys util_set_msys interface~util_set_msys->proc~util_set_msys Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_set_msys.html"},{"title":"util_set_mu_pl – swiftest","text":"module subroutine util_set_mu_pl(self, cb) Interface → Computes G * (M + m) for each massive body Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Called by proc~~util_set_mu_pl~~CalledByGraph proc~util_set_mu_pl util_set_mu_pl interface~util_set_mu_pl util_set_mu_pl interface~util_set_mu_pl->proc~util_set_mu_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_set_mu_pl.html"},{"title":"util_set_mu_tp – swiftest","text":"module subroutine util_set_mu_tp(self, cb) Interface → Converts certain scalar values to arrays so that they can be used in elemental functions Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Called by proc~~util_set_mu_tp~~CalledByGraph proc~util_set_mu_tp util_set_mu_tp interface~util_set_mu_tp util_set_mu_tp interface~util_set_mu_tp->proc~util_set_mu_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_set_mu_tp.html"},{"title":"util_set_rhill – swiftest","text":"module subroutine util_set_rhill(self, cb) Interface → Sets the value of the Hill's radius Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Called by proc~~util_set_rhill~~CalledByGraph proc~util_set_rhill util_set_rhill interface~util_set_rhill util_set_rhill interface~util_set_rhill->proc~util_set_rhill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_set_rhill.html"},{"title":"util_set_rhill_approximate – swiftest","text":"module subroutine util_set_rhill_approximate(self, cb) Interface → Sets the approximate value of the Hill's radius using the heliocentric radius instead of computing the semimajor axis Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Called by proc~~util_set_rhill_approximate~~CalledByGraph proc~util_set_rhill_approximate util_set_rhill_approximate interface~util_set_rhill_approximate util_set_rhill_approximate interface~util_set_rhill_approximate->proc~util_set_rhill_approximate Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_set_rhill_approximate.html"},{"title":"util_peri_tp – swiftest","text":"module subroutine util_peri_tp(self, system, param) Interface → Determine system pericenter passages for test particles\n Note:  If the coordinate system used is barycentric, then this routine assumes that the barycentric coordinates in the\n        test particle structures are up-to-date and are not recomputed Adapted from David E. Kaufmann's Swifter routine: util_peri.f90\n Adapted from Hal Levison's Swift routine util_peri.f Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~util_peri_tp~~CallsGraph proc~util_peri_tp util_peri_tp interface~orbel_xv2aeq orbel_xv2aeq proc~util_peri_tp->interface~orbel_xv2aeq proc~orbel_xv2aeq orbel_xv2aeq interface~orbel_xv2aeq->proc~orbel_xv2aeq Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_peri_tp~~CalledByGraph proc~util_peri_tp util_peri_tp interface~util_peri_tp util_peri_tp interface~util_peri_tp->proc~util_peri_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_peri_tp.html"},{"title":"util_coord_h2b_pl – swiftest","text":"module subroutine util_coord_h2b_pl(self, cb) Interface → Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) Adapted from David E. Kaufmann's Swifter routine coord_h2b.f90 \n Adapted from Hal Levison's Swift routine coord_h2b.f Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Called by proc~~util_coord_h2b_pl~~CalledByGraph proc~util_coord_h2b_pl util_coord_h2b_pl interface~util_coord_h2b_pl util_coord_h2b_pl interface~util_coord_h2b_pl->proc~util_coord_h2b_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_coord_h2b_pl.html"},{"title":"util_coord_h2b_tp – swiftest","text":"module subroutine util_coord_h2b_tp(self, cb) Interface → Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) Adapted from David E. Kaufmann's Swifter routine coord_h2b_tp.f90 \n Adapted from Hal Levison's Swift routine coord_h2b_tp.f Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object Calls proc~~util_coord_h2b_tp~~CallsGraph proc~util_coord_h2b_tp util_coord_h2b_tp vbcb vbcb proc~util_coord_h2b_tp->vbcb xh xh proc~util_coord_h2b_tp->xh xb xb proc~util_coord_h2b_tp->xb xbcb xbcb proc~util_coord_h2b_tp->xbcb status status proc~util_coord_h2b_tp->status vh vh proc~util_coord_h2b_tp->vh vb vb proc~util_coord_h2b_tp->vb Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_coord_h2b_tp~~CalledByGraph proc~util_coord_h2b_tp util_coord_h2b_tp interface~util_coord_h2b_tp util_coord_h2b_tp interface~util_coord_h2b_tp->proc~util_coord_h2b_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_coord_h2b_tp.html"},{"title":"util_coord_b2h_pl – swiftest","text":"module subroutine util_coord_b2h_pl(self, cb) Interface → Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) Adapted from David E. Kaufmann's Swifter routine coord_b2h.f90 \n Adapted from Hal Levison's Swift routine coord_b2h.f Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Calls proc~~util_coord_b2h_pl~~CallsGraph proc~util_coord_b2h_pl util_coord_b2h_pl vbcb vbcb proc~util_coord_b2h_pl->vbcb xh xh proc~util_coord_b2h_pl->xh xb xb proc~util_coord_b2h_pl->xb xbcb xbcb proc~util_coord_b2h_pl->xbcb vh vh proc~util_coord_b2h_pl->vh vb vb proc~util_coord_b2h_pl->vb Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_coord_b2h_pl~~CalledByGraph proc~util_coord_b2h_pl util_coord_b2h_pl interface~util_coord_b2h_pl util_coord_b2h_pl interface~util_coord_b2h_pl->proc~util_coord_b2h_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_coord_b2h_pl.html"},{"title":"util_coord_b2h_tp – swiftest","text":"module subroutine util_coord_b2h_tp(self, cb) Interface → Convert test particles from barycentric to heliocentric coordinates (position and velocity) Adapted from David E. Kaufmann's Swifter routine coord_b2h_tp.f90 \n Adapted from Hal Levison's Swift routine coord_b2h_tp.f Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(in) :: cb Swiftest central body object Calls proc~~util_coord_b2h_tp~~CallsGraph proc~util_coord_b2h_tp util_coord_b2h_tp vbcb vbcb proc~util_coord_b2h_tp->vbcb xh xh proc~util_coord_b2h_tp->xh xb xb proc~util_coord_b2h_tp->xb xbcb xbcb proc~util_coord_b2h_tp->xbcb status status proc~util_coord_b2h_tp->status vh vh proc~util_coord_b2h_tp->vh vb vb proc~util_coord_b2h_tp->vb Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_coord_b2h_tp~~CalledByGraph proc~util_coord_b2h_tp util_coord_b2h_tp interface~util_coord_b2h_tp util_coord_b2h_tp interface~util_coord_b2h_tp->proc~util_coord_b2h_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_coord_b2h_tp.html"},{"title":"util_version – swiftest","text":"module subroutine util_version() Interface → Print program version information to terminale Adapted from David E. Kaufmann's Swifter routine: util_version.f90 Arguments None Called by proc~~util_version~~CalledByGraph proc~util_version util_version interface~util_version util_version interface~util_version->proc~util_version proc~io_get_args io_get_args proc~io_get_args->interface~util_version interface~io_get_args io_get_args interface~io_get_args->proc~io_get_args Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_version.html"},{"title":"util_sort_body – swiftest","text":"module subroutine util_sort_body(self, sortby, ascending) Interface → Sort a Swiftest body structure in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order Called by proc~~util_sort_body~~CalledByGraph proc~util_sort_body util_sort_body interface~util_sort_body util_sort_body interface~util_sort_body->proc~util_sort_body proc~util_sort_tp util_sort_tp proc~util_sort_tp->interface~util_sort_body proc~util_sort_pl util_sort_pl proc~util_sort_pl->interface~util_sort_body interface~util_sort_pl util_sort_pl interface~util_sort_pl->proc~util_sort_pl interface~util_sort_tp util_sort_tp interface~util_sort_tp->proc~util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_sort_body.html"},{"title":"util_sort_pl – swiftest","text":"module subroutine util_sort_pl(self, sortby, ascending) Interface → Sort a Swiftest massive body object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order Calls proc~~util_sort_pl~~CallsGraph proc~util_sort_pl util_sort_pl interface~util_sort_body util_sort_body proc~util_sort_pl->interface~util_sort_body proc~util_sort_body util_sort_body interface~util_sort_body->proc~util_sort_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_sort_pl~~CalledByGraph proc~util_sort_pl util_sort_pl interface~util_sort_pl util_sort_pl interface~util_sort_pl->proc~util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_sort_pl.html"},{"title":"util_sort_tp – swiftest","text":"module subroutine util_sort_tp(self, sortby, ascending) Interface → Sort a Swiftest test particle object  in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order Calls proc~~util_sort_tp~~CallsGraph proc~util_sort_tp util_sort_tp interface~util_sort_body util_sort_body proc~util_sort_tp->interface~util_sort_body proc~util_sort_body util_sort_body interface~util_sort_body->proc~util_sort_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_sort_tp~~CalledByGraph proc~util_sort_tp util_sort_tp interface~util_sort_tp util_sort_tp interface~util_sort_tp->proc~util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_sort_tp.html"},{"title":"util_sort_rearrange_body – swiftest","text":"module subroutine util_sort_rearrange_body(self, ind) Interface → Rearrange Swiftest body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Called by proc~~util_sort_rearrange_body~~CalledByGraph proc~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body->proc~util_sort_rearrange_body proc~util_sort_rearrange_tp util_sort_rearrange_tp proc~util_sort_rearrange_tp->interface~util_sort_rearrange_body proc~util_sort_rearrange_pl util_sort_rearrange_pl proc~util_sort_rearrange_pl->interface~util_sort_rearrange_body interface~util_sort_rearrange_pl util_sort_rearrange_pl interface~util_sort_rearrange_pl->proc~util_sort_rearrange_pl interface~util_sort_rearrange_tp util_sort_rearrange_tp interface~util_sort_rearrange_tp->proc~util_sort_rearrange_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_sort_rearrange_body.html"},{"title":"util_sort_rearrange_pl – swiftest","text":"module subroutine util_sort_rearrange_pl(self, ind) Interface → Rearrange Swiftest massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Calls proc~~util_sort_rearrange_pl~~CallsGraph proc~util_sort_rearrange_pl util_sort_rearrange_pl interface~util_sort_rearrange_body util_sort_rearrange_body proc~util_sort_rearrange_pl->interface~util_sort_rearrange_body proc~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body->proc~util_sort_rearrange_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_sort_rearrange_pl~~CalledByGraph proc~util_sort_rearrange_pl util_sort_rearrange_pl interface~util_sort_rearrange_pl util_sort_rearrange_pl interface~util_sort_rearrange_pl->proc~util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_sort_rearrange_pl.html"},{"title":"util_sort_rearrange_tp – swiftest","text":"module subroutine util_sort_rearrange_tp(self, ind) Interface → Rearrange Swiftest massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Calls proc~~util_sort_rearrange_tp~~CallsGraph proc~util_sort_rearrange_tp util_sort_rearrange_tp interface~util_sort_rearrange_body util_sort_rearrange_body proc~util_sort_rearrange_tp->interface~util_sort_rearrange_body proc~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body->proc~util_sort_rearrange_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_sort_rearrange_tp~~CalledByGraph proc~util_sort_rearrange_tp util_sort_rearrange_tp interface~util_sort_rearrange_tp util_sort_rearrange_tp interface~util_sort_rearrange_tp->proc~util_sort_rearrange_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_sort_rearrange_tp.html"},{"title":"util_sort_dp – swiftest","text":"subroutine util_sort_dp(arr) Sort input double precision array in place into ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:) :: arr Contents None","tags":"","loc":"proc/util_sort_dp.html"},{"title":"util_sort_index_dp – swiftest","text":"subroutine util_sort_index_dp(arr, ind) Sort input double precision array by index in ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind Contents None","tags":"","loc":"proc/util_sort_index_dp.html"},{"title":"util_sort_i4b – swiftest","text":"subroutine util_sort_i4b(arr) Sort input integer array in place into ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:) :: arr Contents None","tags":"","loc":"proc/util_sort_i4b.html"},{"title":"util_sort_index_i4b – swiftest","text":"subroutine util_sort_index_i4b(arr, ind) Sort input integer array by index in ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind Contents None","tags":"","loc":"proc/util_sort_index_i4b.html"},{"title":"util_sort_sp – swiftest","text":"subroutine util_sort_sp(arr) Sort input single precision array in place into ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(inout), dimension(:) :: arr Contents None","tags":"","loc":"proc/util_sort_sp.html"},{"title":"util_sort_index_sp – swiftest","text":"subroutine util_sort_index_sp(arr, ind) Sort input single precision array by index in ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind Contents None","tags":"","loc":"proc/util_sort_index_sp.html"},{"title":"util_spill_arr_char_string – swiftest","text":"subroutine util_spill_arr_char_string(keeps, discards, lspill_list, ldestructive) Performs a spill operation on a single array of type character strings\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: keeps Array of values to keep character(len=STRMAX), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Contents None","tags":"","loc":"proc/util_spill_arr_char_string.html"},{"title":"util_spill_arr_DP – swiftest","text":"subroutine util_spill_arr_DP(keeps, discards, lspill_list, ldestructive) Performs a spill operation on a single array of type DP\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: keeps Array of values to keep real(kind=DP), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Contents None","tags":"","loc":"proc/util_spill_arr_dp.html"},{"title":"util_spill_arr_DPvec – swiftest","text":"subroutine util_spill_arr_DPvec(keeps, discards, lspill_list, ldestructive) Performs a spill operation on a single array of DP vectors with shape (NDIM, n)\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: keeps Array of values to keep real(kind=DP), intent(inout), dimension(:,:), allocatable :: discards Array discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Contents None","tags":"","loc":"proc/util_spill_arr_dpvec.html"},{"title":"util_spill_arr_I4B – swiftest","text":"subroutine util_spill_arr_I4B(keeps, discards, lspill_list, ldestructive) Performs a spill operation on a single array of type I4B\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I4B), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Contents None","tags":"","loc":"proc/util_spill_arr_i4b.html"},{"title":"util_spill_arr_logical – swiftest","text":"subroutine util_spill_arr_logical(keeps, discards, lspill_list, ldestructive) Performs a spill operation on a single array of logicals\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: keeps Array of values to keep logical, intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or no Contents None","tags":"","loc":"proc/util_spill_arr_logical.html"},{"title":"util_spill_body – swiftest","text":"module subroutine util_spill_body(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) Swiftest generic particle structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill all the common components Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list Calls proc~~util_spill_body~~CallsGraph proc~util_spill_body util_spill_body interface~util_spill~2 util_spill proc~util_spill_body->interface~util_spill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_spill_body~~CalledByGraph proc~util_spill_body util_spill_body interface~util_spill_body util_spill_body interface~util_spill_body->proc~util_spill_body proc~util_spill_tp util_spill_tp proc~util_spill_tp->interface~util_spill_body proc~util_spill_pl util_spill_pl proc~util_spill_pl->interface~util_spill_body interface~util_spill_pl util_spill_pl interface~util_spill_pl->proc~util_spill_pl interface~util_spill_tp util_spill_tp interface~util_spill_tp->proc~util_spill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_spill_body.html"},{"title":"util_spill_encounter – swiftest","text":"module subroutine util_spill_encounter(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) Swiftest encounter structure from active list to discard list Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list Calls proc~~util_spill_encounter~~CallsGraph proc~util_spill_encounter util_spill_encounter interface~util_spill~2 util_spill proc~util_spill_encounter->interface~util_spill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_spill_encounter~~CalledByGraph proc~util_spill_encounter util_spill_encounter interface~util_spill_encounter util_spill_encounter interface~util_spill_encounter->proc~util_spill_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_spill_encounter.html"},{"title":"util_spill_pl – swiftest","text":"module subroutine util_spill_pl(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) Swiftest massive body structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill components specific to the massive body class Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list Calls proc~~util_spill_pl~~CallsGraph proc~util_spill_pl util_spill_pl interface~util_spill_body util_spill_body proc~util_spill_pl->interface~util_spill_body interface~util_spill~2 util_spill proc~util_spill_pl->interface~util_spill~2 proc~util_spill_body util_spill_body interface~util_spill_body->proc~util_spill_body proc~util_spill_body->interface~util_spill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_spill_pl~~CalledByGraph proc~util_spill_pl util_spill_pl interface~util_spill_pl util_spill_pl interface~util_spill_pl->proc~util_spill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_spill_pl.html"},{"title":"util_spill_tp – swiftest","text":"module subroutine util_spill_tp(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) Swiftest test particle structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill components specific to the test particle class Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardse logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list Calls proc~~util_spill_tp~~CallsGraph proc~util_spill_tp util_spill_tp interface~util_spill_body util_spill_body proc~util_spill_tp->interface~util_spill_body interface~util_spill~2 util_spill proc~util_spill_tp->interface~util_spill~2 proc~util_spill_body util_spill_body interface~util_spill_body->proc~util_spill_body proc~util_spill_body->interface~util_spill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_spill_tp~~CalledByGraph proc~util_spill_tp util_spill_tp interface~util_spill_tp util_spill_tp interface~util_spill_tp->proc~util_spill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_spill_tp.html"},{"title":"util_valid – swiftest","text":"module subroutine util_valid(pl, tp) Interface → Validate massive body and test particle ids\n Subroutine causes program to exit with error if any ids are not unique Adapted from David E. Kaufmann's Swifter routine: util_valid.f90 Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(in) :: pl class( swiftest_tp ), intent(in) :: tp Calls proc~~util_valid~~CallsGraph proc~util_valid util_valid interface~util_exit util_exit proc~util_valid->interface~util_exit interface~util_sort util_sort proc~util_valid->interface~util_sort proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_valid~~CalledByGraph proc~util_valid util_valid interface~util_valid util_valid interface~util_valid->proc~util_valid proc~setup_initialize_system setup_initialize_system proc~setup_initialize_system->interface~util_valid interface~setup_initialize_system setup_initialize_system interface~setup_initialize_system->proc~setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_valid.html"},{"title":"util_exit – swiftest","text":"module subroutine util_exit(code) Interface → Print termination message and exit program Adapted from David E. Kaufmann's Swifter routine: util_exit.f90\n Adapted from Hal Levison's Swift routine util_exit.f Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: code Called by proc~~util_exit~~CalledByGraph proc~util_exit util_exit interface~util_exit util_exit interface~util_exit->proc~util_exit proc~util_append_tp util_append_tp proc~util_append_tp->interface~util_exit proc~util_valid util_valid proc~util_valid->interface~util_exit proc~io_get_args io_get_args proc~io_get_args->interface~util_exit proc~io_read_body_in io_read_body_in proc~io_read_body_in->interface~util_exit proc~io_read_param_in io_read_param_in proc~io_read_param_in->interface~util_exit proc~io_write_hdr io_write_hdr proc~io_write_hdr->interface~util_exit proc~io_read_cb_in io_read_cb_in proc~io_read_cb_in->interface~util_exit proc~io_dump_param io_dump_param proc~io_dump_param->interface~util_exit proc~io_write_discard io_write_discard proc~io_write_discard->interface~util_exit proc~io_read_encounter io_read_encounter proc~io_read_encounter->interface~util_exit proc~io_read_frame_cb io_read_frame_cb proc~io_read_frame_cb->interface~util_exit proc~setup_construct_system setup_construct_system proc~setup_construct_system->interface~util_exit proc~io_dump_swiftest io_dump_swiftest proc~io_dump_swiftest->interface~util_exit proc~io_write_frame_system io_write_frame_system proc~io_write_frame_system->interface~util_exit proc~io_write_frame_system->proc~io_write_hdr proc~io_read_frame_body io_read_frame_body proc~io_read_frame_body->interface~util_exit proc~io_write_encounter io_write_encounter proc~io_write_encounter->interface~util_exit proc~util_solve_rkf45 util_solve_rkf45 proc~util_solve_rkf45->interface~util_exit proc~util_append_pl util_append_pl proc~util_append_pl->interface~util_exit interface~util_solve_rkf45 util_solve_rkf45 interface~util_solve_rkf45->proc~util_solve_rkf45 interface~util_valid util_valid interface~util_valid->proc~util_valid interface~io_write_discard io_write_discard interface~io_write_discard->proc~io_write_discard interface~io_write_frame_system io_write_frame_system interface~io_write_frame_system->proc~io_write_frame_system interface~io_read_body_in io_read_body_in interface~io_read_body_in->proc~io_read_body_in interface~util_append_tp util_append_tp interface~util_append_tp->proc~util_append_tp interface~io_get_args io_get_args interface~io_get_args->proc~io_get_args interface~io_read_frame_body io_read_frame_body interface~io_read_frame_body->proc~io_read_frame_body interface~io_read_param_in io_read_param_in interface~io_read_param_in->proc~io_read_param_in interface~io_dump_swiftest io_dump_swiftest interface~io_dump_swiftest->proc~io_dump_swiftest interface~io_write_encounter io_write_encounter interface~io_write_encounter->proc~io_write_encounter interface~setup_construct_system setup_construct_system interface~setup_construct_system->proc~setup_construct_system interface~io_dump_param io_dump_param interface~io_dump_param->proc~io_dump_param interface~io_read_frame_cb io_read_frame_cb interface~io_read_frame_cb->proc~io_read_frame_cb interface~io_read_cb_in io_read_cb_in interface~io_read_cb_in->proc~io_read_cb_in interface~util_append_pl util_append_pl interface~util_append_pl->proc~util_append_pl proc~setup_initialize_system setup_initialize_system proc~setup_initialize_system->interface~util_valid interface~setup_initialize_system setup_initialize_system interface~setup_initialize_system->proc~setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_exit.html"},{"title":"util_fill_arr_char_string – swiftest","text":"subroutine util_fill_arr_char_string(keeps, inserts, lfill_list) Performs a fill operation on a single array of type character strings\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: keeps Array of values to keep character(len=STRMAX), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Contents None","tags":"","loc":"proc/util_fill_arr_char_string.html"},{"title":"util_fill_arr_DP – swiftest","text":"subroutine util_fill_arr_DP(keeps, inserts, lfill_list) Performs a fill operation on a single array of type DP\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: keeps Array of values to keep real(kind=DP), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Contents None","tags":"","loc":"proc/util_fill_arr_dp.html"},{"title":"util_fill_arr_DPvec – swiftest","text":"subroutine util_fill_arr_DPvec(keeps, inserts, lfill_list) Performs a fill operation on a single array of DP vectors with shape (NDIM, n)\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: keeps Array of values to keep real(kind=DP), intent(in), dimension(:,:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Contents None","tags":"","loc":"proc/util_fill_arr_dpvec.html"},{"title":"util_fill_arr_I4B – swiftest","text":"subroutine util_fill_arr_I4B(keeps, inserts, lfill_list) Performs a fill operation on a single array of type I4B\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I4B), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Contents None","tags":"","loc":"proc/util_fill_arr_i4b.html"},{"title":"util_fill_arr_logical – swiftest","text":"subroutine util_fill_arr_logical(keeps, inserts, lfill_list) Performs a fill operation on a single array of logicals\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: keeps Array of values to keep logical, intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Contents None","tags":"","loc":"proc/util_fill_arr_logical.html"},{"title":"util_fill_body – swiftest","text":"module subroutine util_fill_body(self, inserts, lfill_list) Interface → Insert new Swiftest generic particle structure into an old one. \n This is the inverse of a spill operation.\n Fill all the common components Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_body ), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Calls proc~~util_fill_body~~CallsGraph proc~util_fill_body util_fill_body interface~util_fill~2 util_fill proc~util_fill_body->interface~util_fill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_fill_body~~CalledByGraph proc~util_fill_body util_fill_body interface~util_fill_body util_fill_body interface~util_fill_body->proc~util_fill_body proc~util_fill_pl util_fill_pl proc~util_fill_pl->interface~util_fill_body proc~util_fill_tp util_fill_tp proc~util_fill_tp->interface~util_fill_body interface~util_fill_tp util_fill_tp interface~util_fill_tp->proc~util_fill_tp interface~util_fill_pl util_fill_pl interface~util_fill_pl->proc~util_fill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_fill_body.html"},{"title":"util_fill_pl – swiftest","text":"module subroutine util_fill_pl(self, inserts, lfill_list) Interface → Insert new Swiftest massive body structure into an old one. \n This is the inverse of a spill operation.\n Fill components specific to the massive body class Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Calls proc~~util_fill_pl~~CallsGraph proc~util_fill_pl util_fill_pl interface~util_fill~2 util_fill proc~util_fill_pl->interface~util_fill~2 interface~util_fill_body util_fill_body proc~util_fill_pl->interface~util_fill_body proc~util_fill_body util_fill_body interface~util_fill_body->proc~util_fill_body proc~util_fill_body->interface~util_fill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_fill_pl~~CalledByGraph proc~util_fill_pl util_fill_pl interface~util_fill_pl util_fill_pl interface~util_fill_pl->proc~util_fill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_fill_pl.html"},{"title":"util_fill_tp – swiftest","text":"module subroutine util_fill_tp(self, inserts, lfill_list) Interface → Insert new Swiftest test particle structure into an old one. \n This is the inverse of a fill operation.\n Spill components specific to the test particle class Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Calls proc~~util_fill_tp~~CallsGraph proc~util_fill_tp util_fill_tp interface~util_fill~2 util_fill proc~util_fill_tp->interface~util_fill~2 interface~util_fill_body util_fill_body proc~util_fill_tp->interface~util_fill_body proc~util_fill_body util_fill_body interface~util_fill_body->proc~util_fill_body proc~util_fill_body->interface~util_fill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_fill_tp~~CalledByGraph proc~util_fill_tp util_fill_tp interface~util_fill_tp util_fill_tp interface~util_fill_tp->proc~util_fill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_fill_tp.html"},{"title":"util_resize_arr_char_string – swiftest","text":"subroutine util_resize_arr_char_string(arr, nnew) Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size Contents None","tags":"","loc":"proc/util_resize_arr_char_string.html"},{"title":"util_resize_arr_DP – swiftest","text":"subroutine util_resize_arr_DP(arr, nnew) Resizes an array component of double precision type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size Contents None","tags":"","loc":"proc/util_resize_arr_dp.html"},{"title":"util_resize_arr_DPvec – swiftest","text":"subroutine util_resize_arr_DPvec(arr, nnew) Resizes an array component of double precision vectors of size (NDIM, n). Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size Contents None","tags":"","loc":"proc/util_resize_arr_dpvec.html"},{"title":"util_resize_arr_I4B – swiftest","text":"subroutine util_resize_arr_I4B(arr, nnew) Resizes an array component of integer type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size Contents None","tags":"","loc":"proc/util_resize_arr_i4b.html"},{"title":"util_resize_arr_logical – swiftest","text":"subroutine util_resize_arr_logical(arr, nnew) Resizes an array component of logical type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size Contents None","tags":"","loc":"proc/util_resize_arr_logical.html"},{"title":"util_resize_body – swiftest","text":"module subroutine util_resize_body(self, nnew) Interface → Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~util_resize_body~~CallsGraph proc~util_resize_body util_resize_body interface~util_resize~2 util_resize proc~util_resize_body->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_resize_body~~CalledByGraph proc~util_resize_body util_resize_body interface~util_resize_body util_resize_body interface~util_resize_body->proc~util_resize_body proc~util_resize_tp util_resize_tp proc~util_resize_tp->interface~util_resize_body proc~util_resize_pl util_resize_pl proc~util_resize_pl->interface~util_resize_body interface~util_resize_pl util_resize_pl interface~util_resize_pl->proc~util_resize_pl interface~util_resize_tp util_resize_tp interface~util_resize_tp->proc~util_resize_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_resize_body.html"},{"title":"util_resize_encounter – swiftest","text":"module subroutine util_resize_encounter(self, nnew) Interface → Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small.\n Note: The reason to extend it by a factor of 2 is for performance. When there are many enounters per step, resizing every time you want to add an \n encounter takes significant computational effort. Resizing by a factor of 2 is a tradeoff between performance (fewer resize calls) and memory managment\n Memory usage grows by a factor of 2 each time it fills up, but no more. Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list integer(kind=I4B), intent(in) :: nnew New size of list needed Called by proc~~util_resize_encounter~~CalledByGraph proc~util_resize_encounter util_resize_encounter interface~util_resize_encounter util_resize_encounter interface~util_resize_encounter->proc~util_resize_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_resize_encounter.html"},{"title":"util_resize_pl – swiftest","text":"module subroutine util_resize_pl(self, nnew) Interface → Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~util_resize_pl~~CallsGraph proc~util_resize_pl util_resize_pl interface~util_resize~2 util_resize proc~util_resize_pl->interface~util_resize~2 interface~util_resize_body util_resize_body proc~util_resize_pl->interface~util_resize_body proc~util_resize_body util_resize_body interface~util_resize_body->proc~util_resize_body proc~util_resize_body->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_resize_pl~~CalledByGraph proc~util_resize_pl util_resize_pl interface~util_resize_pl util_resize_pl interface~util_resize_pl->proc~util_resize_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_resize_pl.html"},{"title":"util_resize_tp – swiftest","text":"module subroutine util_resize_tp(self, nnew) Interface → Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~util_resize_tp~~CallsGraph proc~util_resize_tp util_resize_tp interface~util_resize~2 util_resize proc~util_resize_tp->interface~util_resize~2 interface~util_resize_body util_resize_body proc~util_resize_tp->interface~util_resize_body proc~util_resize_body util_resize_body interface~util_resize_body->proc~util_resize_body proc~util_resize_body->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_resize_tp~~CalledByGraph proc~util_resize_tp util_resize_tp interface~util_resize_tp util_resize_tp interface~util_resize_tp->proc~util_resize_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_resize_tp.html"},{"title":"util_copy_encounter – swiftest","text":"module subroutine util_copy_encounter(self, source) Interface → Copies elements from the source encounter list into self. Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into Called by proc~~util_copy_encounter~~CalledByGraph proc~util_copy_encounter util_copy_encounter interface~util_copy_encounter util_copy_encounter interface~util_copy_encounter->proc~util_copy_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_copy_encounter.html"},{"title":"util_minimize_bfgs – swiftest","text":"module function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1) Interface → Uses ieee_exceptions proc~~util_minimize_bfgs~~UsesGraph proc~util_minimize_bfgs util_minimize_bfgs ieee_exceptions ieee_exceptions proc~util_minimize_bfgs->ieee_exceptions 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. This function implements the Broyden-Fletcher-Goldfarb-Shanno method to determine the minimum of a function of N variables. It recieves as input:\n   f%eval(x) : lambda function object containing the objective function as the eval metho\n   N    :  Number of variables of function f\n   x0   :  Initial starting value of x\n   eps  :  Accuracy of 1 - dimensional minimization at each step\n The outputs include\n   lerr :  Returns .true. if it could not find the minimum\n Returns\n   x1   :  Final minimum (all 0 if none found)\n   0 = No miniumum found Arguments Type Intent Optional Attributes Name class(lambda_obj), intent(inout) :: f integer(kind=I4B), intent(in) :: N real(kind=DP), intent(in), dimension(:) :: x0 real(kind=DP), intent(in) :: eps logical, intent(out) :: lerr Return Value real(kind=DP),\n  dimension(:),allocatable Called by proc~~util_minimize_bfgs~~CalledByGraph proc~util_minimize_bfgs util_minimize_bfgs interface~util_minimize_bfgs util_minimize_bfgs interface~util_minimize_bfgs->proc~util_minimize_bfgs Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_minimize_bfgs.html"},{"title":"util_append_arr_char_string – swiftest","text":"subroutine util_append_arr_char_string(arr, source, lsource_mask) Append a single array of character string type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Destination array character(len=STRMAX), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~util_append_arr_char_string~~CallsGraph proc~util_append_arr_char_string util_append_arr_char_string interface~util_resize~2 util_resize proc~util_append_arr_char_string->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_append_arr_char_string.html"},{"title":"util_append_arr_DP – swiftest","text":"subroutine util_append_arr_DP(arr, source, lsource_mask) Append a single array of double precision type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Destination array real(kind=DP), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~util_append_arr_dp~~CallsGraph proc~util_append_arr_dp util_append_arr_DP interface~util_resize~2 util_resize proc~util_append_arr_dp->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_append_arr_dp.html"},{"title":"util_append_arr_DPvec – swiftest","text":"subroutine util_append_arr_DPvec(arr, source, lsource_mask) Append a single array of double precision vector type of size (NDIM, n) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Destination array real(kind=DP), intent(in), dimension(:,:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~util_append_arr_dpvec~~CallsGraph proc~util_append_arr_dpvec util_append_arr_DPvec interface~util_resize~2 util_resize proc~util_append_arr_dpvec->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_append_arr_dpvec.html"},{"title":"util_append_arr_I4B – swiftest","text":"subroutine util_append_arr_I4B(arr, source, lsource_mask) Append a single array of integer(I4B) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~util_append_arr_i4b~~CallsGraph proc~util_append_arr_i4b util_append_arr_I4B interface~util_resize~2 util_resize proc~util_append_arr_i4b->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_append_arr_i4b.html"},{"title":"util_append_arr_logical – swiftest","text":"subroutine util_append_arr_logical(arr, source, lsource_mask) Append a single array of logical type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Destination array logical, intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~util_append_arr_logical~~CallsGraph proc~util_append_arr_logical util_append_arr_logical interface~util_resize~2 util_resize proc~util_append_arr_logical->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_append_arr_logical.html"},{"title":"util_append_body – swiftest","text":"module subroutine util_append_body(self, source, lsource_mask) Interface → Append components from one Swiftest body object to another. \n This method will automatically resize the destination body if it is too small Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~util_append_body~~CallsGraph proc~util_append_body util_append_body interface~util_append~2 util_append proc~util_append_body->interface~util_append~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_append_body~~CalledByGraph proc~util_append_body util_append_body interface~util_append_body util_append_body interface~util_append_body->proc~util_append_body proc~util_append_tp util_append_tp proc~util_append_tp->interface~util_append_body proc~util_append_pl util_append_pl proc~util_append_pl->interface~util_append_body interface~util_append_tp util_append_tp interface~util_append_tp->proc~util_append_tp interface~util_append_pl util_append_pl interface~util_append_pl->proc~util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_append_body.html"},{"title":"util_append_pl – swiftest","text":"module subroutine util_append_pl(self, source, lsource_mask) Interface → Append components from one Swiftest body object to another. \n This method will automatically resize the destination body if it is too small Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~util_append_pl~~CallsGraph proc~util_append_pl util_append_pl interface~util_append_body util_append_body proc~util_append_pl->interface~util_append_body interface~util_append~2 util_append proc~util_append_pl->interface~util_append~2 interface~util_exit util_exit proc~util_append_pl->interface~util_exit proc~util_append_body util_append_body interface~util_append_body->proc~util_append_body proc~util_exit util_exit interface~util_exit->proc~util_exit proc~util_append_body->interface~util_append~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_append_pl~~CalledByGraph proc~util_append_pl util_append_pl interface~util_append_pl util_append_pl interface~util_append_pl->proc~util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_append_pl.html"},{"title":"util_append_tp – swiftest","text":"module subroutine util_append_tp(self, source, lsource_mask) Interface → Append components from one Swiftest body object to another. \n This method will automatically resize the destination body if it is too small Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~util_append_tp~~CallsGraph proc~util_append_tp util_append_tp interface~util_append_body util_append_body proc~util_append_tp->interface~util_append_body interface~util_append~2 util_append proc~util_append_tp->interface~util_append~2 interface~util_exit util_exit proc~util_append_tp->interface~util_exit proc~util_append_body util_append_body interface~util_append_body->proc~util_append_body proc~util_exit util_exit interface~util_exit->proc~util_exit proc~util_append_body->interface~util_append~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_append_tp~~CalledByGraph proc~util_append_tp util_append_tp interface~util_append_tp util_append_tp interface~util_append_tp->proc~util_append_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_append_tp.html"},{"title":"util_get_energy_momentum_system – swiftest","text":"module subroutine util_get_energy_momentum_system(self, param) Interface → Compute total system angular momentum vector and kinetic, potential and total system energy Adapted from David E. Kaufmann Swifter routine symba_energy_eucl.f90 Adapted from Martin Duncan's Swift routine anal_energy.f\n$omp simd private(v2, rot2, hx, hy, hz) Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~util_get_energy_momentum_system~~CallsGraph proc~util_get_energy_momentum_system util_get_energy_momentum_system interface~obl_pot obl_pot proc~util_get_energy_momentum_system->interface~obl_pot proc~obl_pot obl_pot interface~obl_pot->proc~obl_pot Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_get_energy_momentum_system~~CalledByGraph proc~util_get_energy_momentum_system util_get_energy_momentum_system interface~util_get_energy_momentum_system util_get_energy_momentum_system interface~util_get_energy_momentum_system->proc~util_get_energy_momentum_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_get_energy_momentum_system.html"},{"title":"gr_kick_getaccb_ns_body – swiftest","text":"pure module subroutine gr_kick_getaccb_ns_body(self, system, param) Interface → Add relativistic correction acceleration for non-symplectic integrators.\n Based on Quinn et al. (1991) eq. 5 Reference: Quinn, T.R., Tremaine, S., Duncan, M., 1991. A three million year integration of the earth’s orbit. \n       AJ 101, 2287–2305. https://doi.org/10.1086/115850 Adapted from David A. Minton's Swifter routine routine gr_kick_getaccb_ns.f90 Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Called by proc~~gr_kick_getaccb_ns_body~~CalledByGraph proc~gr_kick_getaccb_ns_body gr_kick_getaccb_ns_body interface~gr_kick_getaccb_ns_body gr_kick_getaccb_ns_body interface~gr_kick_getaccb_ns_body->proc~gr_kick_getaccb_ns_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/gr_kick_getaccb_ns_body.html"},{"title":"gr_kick_getacch – swiftest","text":"module subroutine gr_kick_getacch(mu, x, lmask, n, inv_c2, agr) Interface → Compute relativisitic accelerations of massive bodies\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_whm_kick_getacch.f90 Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:,:) :: x Position vectors logical, intent(in), dimension(:) :: lmask Logical mask indicating which bodies to compute integer(kind=I4B), intent(in) :: n Total number of bodies real(kind=DP), intent(in) :: inv_c2 Inverse speed of light squared: 1 / c**2 real(kind=DP), intent(out), dimension(:,:) :: agr Accelerations Called by proc~~gr_kick_getacch~~CalledByGraph proc~gr_kick_getacch gr_kick_getacch interface~gr_kick_getacch gr_kick_getacch interface~gr_kick_getacch->proc~gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/gr_kick_getacch.html"},{"title":"gr_p4_pos_kick – swiftest","text":"pure module subroutine gr_p4_pos_kick(param, x, v, dt) Interface → Position kick due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Reference:\n    Saha, P., Tremaine, S., 1994. Long-term planetary integration with individual time steps. \n       AJ 108, 1962–1969. https://doi.org/10.1086/117210 Adapted from David A. Minton's Swifter routine gr_whm_p4.f90 Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(inout), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(in) :: dt Step size Called by proc~~gr_p4_pos_kick~~CalledByGraph proc~gr_p4_pos_kick gr_p4_pos_kick interface~gr_p4_pos_kick gr_p4_pos_kick interface~gr_p4_pos_kick->proc~gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/gr_p4_pos_kick.html"},{"title":"gr_pseudovel2vel – swiftest","text":"pure module subroutine gr_pseudovel2vel(param, mu, xh, pv, vh) Interface → Converts the relativistic pseudovelocity back into a veliocentric velocity\n    Based on Saha & Tremaine (1994) Eq. 32 Reference:\n    Saha, P., Tremaine, S., 1994. Long-term planetary integration with individual time steps. \n       AJ 108, 1962–1969. https://doi.org/10.1086/117210 Adapted from David A. Minton's Swifter routine gr_pseudovel2vel.f90 Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real(kind=DP), intent(in), dimension(:) :: xh Heliocentric position vector real(kind=DP), intent(in), dimension(:) :: pv Pseudovelocity velocity vector - see Saha & Tremain (1994), eq. (32) real(kind=DP), intent(out), dimension(:) :: vh Heliocentric velocity vector Called by proc~~gr_pseudovel2vel~~CalledByGraph proc~gr_pseudovel2vel gr_pseudovel2vel interface~gr_pseudovel2vel gr_pseudovel2vel interface~gr_pseudovel2vel->proc~gr_pseudovel2vel Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/gr_pseudovel2vel.html"},{"title":"gr_pv2vh_body – swiftest","text":"pure module subroutine gr_pv2vh_body(self, param) Interface → Wrapper function that converts from pseudovelocity to heliocentric velocity for swiftest bodies Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Called by proc~~gr_pv2vh_body~~CalledByGraph proc~gr_pv2vh_body gr_pv2vh_body interface~gr_pv2vh_body gr_pv2vh_body interface~gr_pv2vh_body->proc~gr_pv2vh_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/gr_pv2vh_body.html"},{"title":"gr_vel2pseudovel – swiftest","text":"pure module subroutine gr_vel2pseudovel(param, mu, xh, vh, pv) Interface → Converts the heliocentric velocity into a pseudovelocity with relativistic corrections. \n Uses Newton-Raphson method with direct inversion of the Jacobian (yeah, it's slow, but \n this is only done once per run). Reference:\n    Saha, P., Tremaine, S., 1994. Long-term planetary integration with individual time steps. \n       AJ 108, 1962–1969. https://doi.org/10.1086/117210 Adapted from David A. Minton's Swifter routine gr_vel2pseudovel.f90 Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real(kind=DP), intent(in), dimension(:) :: xh Heliocentric position vector real(kind=DP), intent(in), dimension(:) :: vh Heliocentric velocity vector real(kind=DP), intent(out), dimension(:) :: pv Pseudovelocity vector - see Saha & Tremain (1994), eq. (32) Called by proc~~gr_vel2pseudovel~~CalledByGraph proc~gr_vel2pseudovel gr_vel2pseudovel interface~gr_vel2pseudovel gr_vel2pseudovel interface~gr_vel2pseudovel->proc~gr_vel2pseudovel Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/gr_vel2pseudovel.html"},{"title":"gr_vh2pv_body – swiftest","text":"pure module subroutine gr_vh2pv_body(self, param) Interface → Wrapper function that converts from heliocentric velocity to pseudovelocity for Swiftest bodies Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Called by proc~~gr_vh2pv_body~~CalledByGraph proc~gr_vh2pv_body gr_vh2pv_body interface~gr_vh2pv_body gr_vh2pv_body interface~gr_vh2pv_body->proc~gr_vh2pv_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/gr_vh2pv_body.html"},{"title":"discard_system – swiftest","text":"module subroutine discard_system(self, param) Interface → Calls the discard methods for each body class and then the write method if any discards were detected Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters Called by proc~~discard_system~~CalledByGraph proc~discard_system discard_system interface~discard_system discard_system interface~discard_system->proc~discard_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/discard_system.html"},{"title":"discard_pl – swiftest","text":"module subroutine discard_pl(self, system, param) Interface → Placeholder method for discarding massive bodies. This method does nothing except to ensure that the discard flag is set to false. \n  This method is intended to be overridden by more advanced integrators. Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter Called by proc~~discard_pl~~CalledByGraph proc~discard_pl discard_pl interface~discard_pl discard_pl interface~discard_pl->proc~discard_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/discard_pl.html"},{"title":"discard_tp – swiftest","text":"module subroutine discard_tp(self, system, param) Interface → Check to see if particles should be discarded based on their positions relative to the massive bodies Adapted from David E. Kaufmann's Swifter routine: discard.f90\n Adapted from Hal Levison's Swift routine discard. Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter Called by proc~~discard_tp~~CalledByGraph proc~discard_tp discard_tp interface~discard_tp discard_tp interface~discard_tp->proc~discard_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/discard_tp.html"},{"title":"helio_step_system – swiftest","text":"module subroutine helio_step_system(self, param, t, dt) Interface → Step massive bodies and and active test particles ahead in heliocentric coordinates. Currently there's no difference between this and the WHM system stepper, so this is just\n a wrapper function to keep the method calls consistent for inherited types. Adapted from Hal Levison's Swift routine step_kdk.f\n Adapted from David E. Kaufmann's Swifter routine helio_step.f90 Arguments Type Intent Optional Attributes Name class( helio_nbody_system ), intent(inout) :: self Helio nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize Calls proc~~helio_step_system~~CallsGraph proc~helio_step_system helio_step_system whm_step_system whm_step_system proc~helio_step_system->whm_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~helio_step_system~~CalledByGraph proc~helio_step_system helio_step_system interface~helio_step_system helio_step_system interface~helio_step_system->proc~helio_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_step_system.html"},{"title":"helio_step_pl – swiftest","text":"module subroutine helio_step_pl(self, system, param, t, dt) Interface → Step massive bodies ahead Democratic Heliocentric method Adapted from David E. Kaufmann's Swifter helio_step_pl.f90\n Adapted from Hal Levison's Swift routine helio_step_pl.f Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize Called by proc~~helio_step_pl~~CalledByGraph proc~helio_step_pl helio_step_pl interface~helio_step_pl helio_step_pl interface~helio_step_pl->proc~helio_step_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_step_pl.html"},{"title":"helio_step_tp – swiftest","text":"module subroutine helio_step_tp(self, system, param, t, dt) Interface → Step active test particles ahead using Democratic Heliocentric method Adapted from David E. Kaufmann's Swifter routine helio_step_tp.f90\n Adapted from Hal Levison's Swift routine helio_step_tp.f Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize Called by proc~~helio_step_tp~~CalledByGraph proc~helio_step_tp helio_step_tp interface~helio_step_tp helio_step_tp interface~helio_step_tp->proc~helio_step_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_step_tp.html"},{"title":"helio_gr_kick_getacch_pl – swiftest","text":"module subroutine helio_gr_kick_getacch_pl(self, param) Interface → Compute relativisitic accelerations of massive bodies\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_whm_kick_getacch.f90 Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters Calls proc~~helio_gr_kick_getacch_pl~~CallsGraph proc~helio_gr_kick_getacch_pl helio_gr_kick_getacch_pl gr_kick_getacch gr_kick_getacch proc~helio_gr_kick_getacch_pl->gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~helio_gr_kick_getacch_pl~~CalledByGraph proc~helio_gr_kick_getacch_pl helio_gr_kick_getacch_pl interface~helio_gr_kick_getacch_pl helio_gr_kick_getacch_pl interface~helio_gr_kick_getacch_pl->proc~helio_gr_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_gr_kick_getacch_pl.html"},{"title":"helio_gr_kick_getacch_tp – swiftest","text":"module subroutine helio_gr_kick_getacch_tp(self, param) Interface → Compute relativisitic accelerations of test particles\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_helio_kick_getacch.f90 Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters Calls proc~~helio_gr_kick_getacch_tp~~CallsGraph proc~helio_gr_kick_getacch_tp helio_gr_kick_getacch_tp gr_kick_getacch gr_kick_getacch proc~helio_gr_kick_getacch_tp->gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~helio_gr_kick_getacch_tp~~CalledByGraph proc~helio_gr_kick_getacch_tp helio_gr_kick_getacch_tp interface~helio_gr_kick_getacch_tp helio_gr_kick_getacch_tp interface~helio_gr_kick_getacch_tp->proc~helio_gr_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_gr_kick_getacch_tp.html"},{"title":"helio_gr_p4_pl – swiftest","text":"pure module subroutine helio_gr_p4_pl(self, param, dt) Interface → Position kick to massive bodies due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_helio_p4.f90 Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size Calls proc~~helio_gr_p4_pl~~CallsGraph proc~helio_gr_p4_pl helio_gr_p4_pl gr_p4_pos_kick gr_p4_pos_kick proc~helio_gr_p4_pl->gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~helio_gr_p4_pl~~CalledByGraph proc~helio_gr_p4_pl helio_gr_p4_pl interface~helio_gr_p4_pl helio_gr_p4_pl interface~helio_gr_p4_pl->proc~helio_gr_p4_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_gr_p4_pl.html"},{"title":"helio_gr_p4_tp – swiftest","text":"pure module subroutine helio_gr_p4_tp(self, param, dt) Interface → Position kick to test particles due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_helio_p4.f90 Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size Calls proc~~helio_gr_p4_tp~~CallsGraph proc~helio_gr_p4_tp helio_gr_p4_tp gr_p4_pos_kick gr_p4_pos_kick proc~helio_gr_p4_tp->gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~helio_gr_p4_tp~~CalledByGraph proc~helio_gr_p4_tp helio_gr_p4_tp interface~helio_gr_p4_tp helio_gr_p4_tp interface~helio_gr_p4_tp->proc~helio_gr_p4_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_gr_p4_tp.html"},{"title":"helio_kick_getacch_pl – swiftest","text":"module subroutine helio_kick_getacch_pl(self, system, param, t, lbeg) Interface → Compute heliocentric accelerations of massive bodies Adapted from David E. Kaufmann's Swifter routine helio_kick_getacch.f90\n Adapted from Hal Levison's Swift routine helio_kick_getacch.f Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Called by proc~~helio_kick_getacch_pl~~CalledByGraph proc~helio_kick_getacch_pl helio_kick_getacch_pl interface~helio_kick_getacch_pl helio_kick_getacch_pl interface~helio_kick_getacch_pl->proc~helio_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_kick_getacch_pl.html"},{"title":"helio_kick_getacch_tp – swiftest","text":"module subroutine helio_kick_getacch_tp(self, system, param, t, lbeg) Interface → Compute heliocentric accelerations of test particles Adapted from David E. Kaufmann's Swifter routine helio_kick_getacch_tp.f90\n Adapted from Hal Levison's Swift routine helio_kick_getacch_tp.f Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Called by proc~~helio_kick_getacch_tp~~CalledByGraph proc~helio_kick_getacch_tp helio_kick_getacch_tp interface~helio_kick_getacch_tp helio_kick_getacch_tp interface~helio_kick_getacch_tp->proc~helio_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_kick_getacch_tp.html"},{"title":"helio_kick_vb_pl – swiftest","text":"module subroutine helio_kick_vb_pl(self, system, param, t, dt, lbeg) Interface → Kick barycentric velocities of bodies Adapted from Martin Duncan and Hal Levison's Swift routine kickvh.f \n Adapted from David E. Kaufmann's Swifter routine helio_kick_vb.f90 Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. Called by proc~~helio_kick_vb_pl~~CalledByGraph proc~helio_kick_vb_pl helio_kick_vb_pl interface~helio_kick_vb_pl helio_kick_vb_pl interface~helio_kick_vb_pl->proc~helio_kick_vb_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_kick_vb_pl.html"},{"title":"helio_kick_vb_tp – swiftest","text":"module subroutine helio_kick_vb_tp(self, system, param, t, dt, lbeg) Interface → Kick barycentric velocities of bodies Adapted from Martin Duncan and Hal Levison's Swift routine kickvh_tp.f\n Adapted from David E. Kaufmann's Swifter routine helio_kick_vb_tp.f90 Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. Called by proc~~helio_kick_vb_tp~~CalledByGraph proc~helio_kick_vb_tp helio_kick_vb_tp interface~helio_kick_vb_tp helio_kick_vb_tp interface~helio_kick_vb_tp->proc~helio_kick_vb_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_kick_vb_tp.html"},{"title":"helio_coord_vb2vh_pl – swiftest","text":"module subroutine helio_coord_vb2vh_pl(self, cb) Interface → Convert massive bodies from barycentric to heliocentric coordinates (velocity only) Adapted from David E. Kaufmann's Swifter routine coord_vb2vh.f90 \n Adapted from Hal Levison's Swift routine coord_vb2vh.f Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Called by proc~~helio_coord_vb2vh_pl~~CalledByGraph proc~helio_coord_vb2vh_pl helio_coord_vb2vh_pl interface~helio_coord_vb2vh_pl helio_coord_vb2vh_pl interface~helio_coord_vb2vh_pl->proc~helio_coord_vb2vh_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_coord_vb2vh_pl.html"},{"title":"helio_coord_vb2vh_tp – swiftest","text":"module subroutine helio_coord_vb2vh_tp(self, vbcb) Interface → Convert test particles from barycentric to heliocentric coordinates (velocity only) Adapted from David E. Kaufmann's Swifter routine coord_vb2vh_tp.f90 \n Adapted from Hal Levison's Swift routine coord_vb2h_tp.f Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body Called by proc~~helio_coord_vb2vh_tp~~CalledByGraph proc~helio_coord_vb2vh_tp helio_coord_vb2vh_tp interface~helio_coord_vb2vh_tp helio_coord_vb2vh_tp interface~helio_coord_vb2vh_tp->proc~helio_coord_vb2vh_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_coord_vb2vh_tp.html"},{"title":"helio_coord_vh2vb_pl – swiftest","text":"module subroutine helio_coord_vh2vb_pl(self, cb) Interface → Convert massive bodies from heliocentric to barycentric coordinates (velocity only) Adapted from David E. Kaufmann's Swifter routine coord_vh2vb.f90 \n Adapted from Hal Levison's Swift routine coord_vh2b.f Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Called by proc~~helio_coord_vh2vb_pl~~CalledByGraph proc~helio_coord_vh2vb_pl helio_coord_vh2vb_pl interface~helio_coord_vh2vb_pl helio_coord_vh2vb_pl interface~helio_coord_vh2vb_pl->proc~helio_coord_vh2vb_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_coord_vh2vb_pl.html"},{"title":"helio_coord_vh2vb_tp – swiftest","text":"module subroutine helio_coord_vh2vb_tp(self, vbcb) Interface → Convert test particles from heliocentric to barycentric coordinates (velocity only) Adapted from David E. Kaufmann's Swifter routine coord_vh2vb_tp.f90\n Adapted from Hal Levison's Swift routine coord_vh2b_tp.f Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body Called by proc~~helio_coord_vh2vb_tp~~CalledByGraph proc~helio_coord_vh2vb_tp helio_coord_vh2vb_tp interface~helio_coord_vh2vb_tp helio_coord_vh2vb_tp interface~helio_coord_vh2vb_tp->proc~helio_coord_vh2vb_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_coord_vh2vb_tp.html"},{"title":"helio_drift_body – swiftest","text":"module subroutine helio_drift_body(self, system, param, dt) Interface → Loop through bodies and call Danby drift routine on democratic heliocentric coordinates Adapted from David E. Kaufmann's Swifter routine helio_drift.f90\n Adapted from Hal Levison's Swift routine drift.f Arguments Type Intent Optional Attributes Name class(swiftest_body), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize Calls proc~~helio_drift_body~~CallsGraph proc~helio_drift_body helio_drift_body drift_all drift_all proc~helio_drift_body->drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~helio_drift_body~~CalledByGraph proc~helio_drift_body helio_drift_body interface~helio_drift_body helio_drift_body interface~helio_drift_body->proc~helio_drift_body proc~helio_drift_tp helio_drift_tp proc~helio_drift_tp->interface~helio_drift_body proc~helio_drift_pl helio_drift_pl proc~helio_drift_pl->interface~helio_drift_body interface~helio_drift_tp helio_drift_tp interface~helio_drift_tp->proc~helio_drift_tp interface~helio_drift_pl helio_drift_pl interface~helio_drift_pl->proc~helio_drift_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_drift_body.html"},{"title":"helio_drift_pl – swiftest","text":"module subroutine helio_drift_pl(self, system, param, dt) Interface → Wrapper function used to call the body drift routine from a helio_pl structure Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize Calls proc~~helio_drift_pl~~CallsGraph proc~helio_drift_pl helio_drift_pl interface~helio_drift_body helio_drift_body proc~helio_drift_pl->interface~helio_drift_body proc~helio_drift_body helio_drift_body interface~helio_drift_body->proc~helio_drift_body drift_all drift_all proc~helio_drift_body->drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~helio_drift_pl~~CalledByGraph proc~helio_drift_pl helio_drift_pl interface~helio_drift_pl helio_drift_pl interface~helio_drift_pl->proc~helio_drift_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_drift_pl.html"},{"title":"helio_drift_tp – swiftest","text":"module subroutine helio_drift_tp(self, system, param, dt) Interface → Wrapper function used to call the body drift routine from a helio_pl structure Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize Calls proc~~helio_drift_tp~~CallsGraph proc~helio_drift_tp helio_drift_tp interface~helio_drift_body helio_drift_body proc~helio_drift_tp->interface~helio_drift_body proc~helio_drift_body helio_drift_body interface~helio_drift_body->proc~helio_drift_body drift_all drift_all proc~helio_drift_body->drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~helio_drift_tp~~CalledByGraph proc~helio_drift_tp helio_drift_tp interface~helio_drift_tp helio_drift_tp interface~helio_drift_tp->proc~helio_drift_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_drift_tp.html"},{"title":"helio_drift_linear_pl – swiftest","text":"module subroutine helio_drift_linear_pl(self, cb, dt, lbeg) Interface → Perform linear drift of massive bodies due to barycentric momentum of Sun Adapted from David E. Kaufmann's Swifter routine helio_lindrift.f90\n Adapted from Hal Levison's Swift routine helio_lindrift.f Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( helio_cb ), intent(inout) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step Called by proc~~helio_drift_linear_pl~~CalledByGraph proc~helio_drift_linear_pl helio_drift_linear_pl interface~helio_drift_linear_pl helio_drift_linear_pl interface~helio_drift_linear_pl->proc~helio_drift_linear_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_drift_linear_pl.html"},{"title":"helio_drift_linear_tp – swiftest","text":"module subroutine helio_drift_linear_tp(self, cb, dt, lbeg) Interface → Perform linear drift of test particles due to barycentric momentum of Sun\n New vectorized version included Adapted from David E. Kaufmann's Swifter routine helio_lindrift_tp.f90\n Adapted from Hal Levison's Swift routine helio_lindrift_tp.f Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particleb object class( helio_cb ), intent(in) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step Called by proc~~helio_drift_linear_tp~~CalledByGraph proc~helio_drift_linear_tp helio_drift_linear_tp interface~helio_drift_linear_tp helio_drift_linear_tp interface~helio_drift_linear_tp->proc~helio_drift_linear_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_drift_linear_tp.html"},{"title":"io_get_args – swiftest","text":"module function io_get_args(integrator, param_file_name) result(ierr) Interface → Reads in the name of the parameter file from command line arguments. Arguments Type Intent Optional Attributes Name integer(kind=I4B) :: integrator Symbolic code of the requested integrator character(len=:), allocatable :: param_file_name Name of the input parameters file Return Value integer(kind=I4B) I/O error code Calls proc~~io_get_args~~CallsGraph proc~io_get_args io_get_args interface~util_version util_version proc~io_get_args->interface~util_version interface~util_exit util_exit proc~io_get_args->interface~util_exit interface~io_toupper io_toupper proc~io_get_args->interface~io_toupper proc~util_version util_version interface~util_version->proc~util_version proc~util_exit util_exit interface~util_exit->proc~util_exit proc~io_toupper io_toupper interface~io_toupper->proc~io_toupper Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_get_args~~CalledByGraph proc~io_get_args io_get_args interface~io_get_args io_get_args interface~io_get_args->proc~io_get_args Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_get_args.html"},{"title":"io_get_token – swiftest","text":"module function io_get_token(buffer, ifirst, ilast, ierr) result(token) Interface → Retrieves a character token from an input string. Here a token is defined as any set of contiguous non-blank characters not \n beginning with or containing \"!\". If \"!\" is present, any remaining part of the buffer including the \"!\" is ignored Adapted from David E. Kaufmann's Swifter routine io_get_token.f90\n Bad input\n No valid token Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: buffer Input string buffer integer(kind=I4B), intent(inout) :: ifirst Index of the buffer at which to start the search for a token integer(kind=I4B), intent(out) :: ilast Index of the buffer at the end of the returned token integer(kind=I4B), intent(out) :: ierr Error code Return Value character(len=:),\n  allocatable Returned token string Called by proc~~io_get_token~~CalledByGraph proc~io_get_token io_get_token interface~io_get_token io_get_token interface~io_get_token->proc~io_get_token proc~io_param_reader io_param_reader proc~io_param_reader->interface~io_get_token interface~io_param_reader io_param_reader interface~io_param_reader->proc~io_param_reader Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_get_token.html"},{"title":"io_conservation_report – swiftest","text":"module subroutine io_conservation_report(self, param, lterminal) Interface → Reports the current state of energy, mass, and angular momentum conservation in a run Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen Calls proc~~io_conservation_report~~CallsGraph proc~io_conservation_report io_conservation_report lspin_orig lspin_orig proc~io_conservation_report->lspin_orig ltot_orig ltot_orig proc~io_conservation_report->ltot_orig lorbit_orig lorbit_orig proc~io_conservation_report->lorbit_orig lescape lescape proc~io_conservation_report->lescape Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_conservation_report~~CalledByGraph proc~io_conservation_report io_conservation_report interface~io_conservation_report io_conservation_report interface~io_conservation_report->proc~io_conservation_report Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_conservation_report.html"},{"title":"io_dump_param – swiftest","text":"module subroutine io_dump_param(self, param_file_name) Interface → Dump integration parameters to file Adapted from David E. Kaufmann's Swifter routine io_dump_param.f90\n Adapted from Martin Duncan's Swift routine io_dump_param.f\n todo: Currently this procedure does not work in user-defined derived-type input mode \n    due to compiler incompatabilities Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Output collection of parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) Calls proc~~io_dump_param~~CallsGraph proc~io_dump_param io_dump_param interface~util_exit util_exit proc~io_dump_param->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_dump_param~~CalledByGraph proc~io_dump_param io_dump_param interface~io_dump_param io_dump_param interface~io_dump_param->proc~io_dump_param Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_dump_param.html"},{"title":"io_dump_swiftest – swiftest","text":"module subroutine io_dump_swiftest(self, param, msg) Interface → Dump massive body data to files Adapted from David E. Kaufmann's Swifter routine: io_dump_pl.f90 and io_dump_tp.f90\n Adapted from Hal Levison's Swift routine io_dump_pl.f and io_dump_tp.f Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation Calls proc~~io_dump_swiftest~~CallsGraph proc~io_dump_swiftest io_dump_swiftest interface~util_exit util_exit proc~io_dump_swiftest->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_dump_swiftest~~CalledByGraph proc~io_dump_swiftest io_dump_swiftest interface~io_dump_swiftest io_dump_swiftest interface~io_dump_swiftest->proc~io_dump_swiftest Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_dump_swiftest.html"},{"title":"io_dump_system – swiftest","text":"module subroutine io_dump_system(self, param, msg) Interface → Dumps the state of the system to files in case the simulation is interrupted.\n As a safety mechanism, there are two dump files that are written in alternating order\n so that if a dump file gets corrupted during writing, the user can restart from the older one. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation Calls proc~~io_dump_system~~CallsGraph proc~io_dump_system io_dump_system dump_param_file dump_param_file proc~io_dump_system->dump_param_file dump_pl_file dump_pl_file proc~io_dump_system->dump_pl_file dump_tp_file dump_tp_file proc~io_dump_system->dump_tp_file dump_cb_file dump_cb_file proc~io_dump_system->dump_cb_file Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_dump_system~~CalledByGraph proc~io_dump_system io_dump_system interface~io_dump_system io_dump_system interface~io_dump_system->proc~io_dump_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_dump_system.html"},{"title":"io_param_reader – swiftest","text":"module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg) Interface → Read in parameters for the integration\n Currently this procedure does not work in user-defined derived-type input mode \n    e.g. read(unit,'(DT)') param \n as the newline characters are ignored in the input file when compiled in ifort. Adapted from David E. Kaufmann's Swifter routine io_init_param.f90\n Adapted from Martin Duncan's Swift routine io_init_param.f\n Do basic sanity checks on the input values Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Collection of parameters integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) The first element passes the integrator code to the reader integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 Calls proc~~io_param_reader~~CallsGraph proc~io_param_reader io_param_reader interface~io_get_token io_get_token proc~io_param_reader->interface~io_get_token interface~io_toupper io_toupper proc~io_param_reader->interface~io_toupper proc~io_get_token io_get_token interface~io_get_token->proc~io_get_token proc~io_toupper io_toupper interface~io_toupper->proc~io_toupper Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_param_reader~~CalledByGraph proc~io_param_reader io_param_reader interface~io_param_reader io_param_reader interface~io_param_reader->proc~io_param_reader Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_param_reader.html"},{"title":"io_param_writer – swiftest","text":"module subroutine io_param_writer(self, unit, iotype, v_list, iostat, iomsg) Interface → Dump integration parameters to file Adapted from David E. Kaufmann's Swifter routine io_dump_param.f90\n Adapted from Martin Duncan's Swift routine io_dump_param.f Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Collection of parameters integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) Not used in this procedure integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 Called by proc~~io_param_writer~~CalledByGraph proc~io_param_writer io_param_writer interface~io_param_writer io_param_writer interface~io_param_writer->proc~io_param_writer Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_param_writer.html"},{"title":"io_read_body_in – swiftest","text":"module subroutine io_read_body_in(self, param) Interface → Read in either test particle or massive body data Adapted from David E. Kaufmann's Swifter routine swiftest_init_pl.f90 and swiftest_init_tp.f90\n Adapted from Martin Duncan's Swift routine swiftest_init_pl.f and swiftest_init_tp.f Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters Calls proc~~io_read_body_in~~CallsGraph proc~io_read_body_in io_read_body_in interface~util_exit util_exit proc~io_read_body_in->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_read_body_in~~CalledByGraph proc~io_read_body_in io_read_body_in interface~io_read_body_in io_read_body_in interface~io_read_body_in->proc~io_read_body_in Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_read_body_in.html"},{"title":"io_read_cb_in – swiftest","text":"module subroutine io_read_cb_in(self, param) Interface → Reads in central body data Adapted from David E. Kaufmann's Swifter routine swiftest_init_pl.f90\n Adapted from Martin Duncan's Swift routine swiftest_init_pl.f Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self class( swiftest_parameters ), intent(inout) :: param Calls proc~~io_read_cb_in~~CallsGraph proc~io_read_cb_in io_read_cb_in interface~util_exit util_exit proc~io_read_cb_in->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_read_cb_in~~CalledByGraph proc~io_read_cb_in io_read_cb_in interface~io_read_cb_in io_read_cb_in interface~io_read_cb_in->proc~io_read_cb_in Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_read_cb_in.html"},{"title":"io_read_frame_body – swiftest","text":"module subroutine io_read_frame_body(self, iu, param, form, ierr) Interface → Reads a frame of output of either test particle or massive body data from a binary output file Adapted from David E. Kaufmann's Swifter routine  io_read_frame.f90\n Adapted from Hal Levison's Swift routine io_read_frame.F Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code Calls proc~~io_read_frame_body~~CallsGraph proc~io_read_frame_body io_read_frame_body interface~util_exit util_exit proc~io_read_frame_body->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_read_frame_body~~CalledByGraph proc~io_read_frame_body io_read_frame_body interface~io_read_frame_body io_read_frame_body interface~io_read_frame_body->proc~io_read_frame_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_read_frame_body.html"},{"title":"io_read_frame_cb – swiftest","text":"module subroutine io_read_frame_cb(self, iu, param, form, ierr) Interface → Reads a frame of output of central body data to the binary output file Adapted from David E. Kaufmann's Swifter routine  io_read_frame.f90\n Adapted from Hal Levison's Swift routine io_read_frame.F Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error cod Calls proc~~io_read_frame_cb~~CallsGraph proc~io_read_frame_cb io_read_frame_cb interface~util_exit util_exit proc~io_read_frame_cb->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_read_frame_cb~~CalledByGraph proc~io_read_frame_cb io_read_frame_cb interface~io_read_frame_cb io_read_frame_cb interface~io_read_frame_cb->proc~io_read_frame_cb Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_read_frame_cb.html"},{"title":"io_read_frame_system – swiftest","text":"module subroutine io_read_frame_system(self, iu, param, form, ierr) Interface → Read a frame (header plus records for each massive body and active test particle) from a output binary file Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code Calls proc~~io_read_frame_system~~CallsGraph proc~io_read_frame_system io_read_frame_system proc~io_read_hdr io_read_hdr proc~io_read_frame_system->proc~io_read_hdr Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_read_frame_system~~CalledByGraph proc~io_read_frame_system io_read_frame_system interface~io_read_frame_system io_read_frame_system interface~io_read_frame_system->proc~io_read_frame_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_read_frame_system.html"},{"title":"io_read_param_in – swiftest","text":"module subroutine io_read_param_in(self, param_file_name) Interface → Read in parameters for the integration Adapted from David E. Kaufmann's Swifter routine io_init_param.f90\n Adapted from Martin Duncan's Swift routine io_init_param.f\n todo: Currently this procedure does not work in user-defined derived-type input mode \n    as the newline characters are ignored in the input file when compiled in ifort. Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Current run configuration parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) Calls proc~~io_read_param_in~~CallsGraph proc~io_read_param_in io_read_param_in interface~util_exit util_exit proc~io_read_param_in->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_read_param_in~~CalledByGraph proc~io_read_param_in io_read_param_in interface~io_read_param_in io_read_param_in interface~io_read_param_in->proc~io_read_param_in Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_read_param_in.html"},{"title":"io_toupper – swiftest","text":"module subroutine io_toupper(string) Interface → Convert string to uppercase Adapted from David E. Kaufmann's Swifter routine: util_toupper.f90 Arguments Type Intent Optional Attributes Name character(len=*), intent(inout) :: string String to make upper case Called by proc~~io_toupper~~CalledByGraph proc~io_toupper io_toupper interface~io_toupper io_toupper interface~io_toupper->proc~io_toupper proc~io_get_args io_get_args proc~io_get_args->interface~io_toupper proc~io_param_reader io_param_reader proc~io_param_reader->interface~io_toupper interface~io_get_args io_get_args interface~io_get_args->proc~io_get_args interface~io_param_reader io_param_reader interface~io_param_reader->proc~io_param_reader Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_toupper.html"},{"title":"io_write_discard – swiftest","text":"module subroutine io_write_discard(self, param) Interface → Write out information about discarded test particle Adapted from David E. Kaufmann's Swifter routine  io_discard_write.f90\n Adapted from Hal Levison's Swift routine io_discard_write.f Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~io_write_discard~~CallsGraph proc~io_write_discard io_write_discard interface~util_exit util_exit proc~io_write_discard->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_write_discard~~CalledByGraph proc~io_write_discard io_write_discard interface~io_write_discard io_write_discard interface~io_write_discard->proc~io_write_discard Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_write_discard.html"},{"title":"io_write_encounter – swiftest","text":"module subroutine io_write_encounter(t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type) Interface → Write close encounter data to output binary files\n  There is no direct file output from this subroutine Adapted from David E. Kaufmann's Swifter routine: io_write_encounter.f90\n Adapted from Hal Levison's Swift routine io_write_encounter.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: t integer(kind=I4B), intent(in) :: name1 integer(kind=I4B), intent(in) :: name2 real(kind=DP), intent(in) :: mass1 real(kind=DP), intent(in) :: mass2 real(kind=DP), intent(in) :: radius1 real(kind=DP), intent(in) :: radius2 real(kind=DP), intent(in), dimension(:) :: xh1 real(kind=DP), intent(in), dimension(:) :: xh2 real(kind=DP), intent(in), dimension(:) :: vh1 real(kind=DP), intent(in), dimension(:) :: vh2 character(len=*), intent(in) :: enc_out character(len=*), intent(in) :: out_type Calls proc~~io_write_encounter~~CallsGraph proc~io_write_encounter io_write_encounter interface~util_exit util_exit proc~io_write_encounter->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_write_encounter~~CalledByGraph proc~io_write_encounter io_write_encounter interface~io_write_encounter io_write_encounter interface~io_write_encounter->proc~io_write_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_write_encounter.html"},{"title":"io_write_frame_body – swiftest","text":"module subroutine io_write_frame_body(self, iu, param) Interface → Write a frame of output of either test particle or massive body data to the binary output file\n    Note: If outputting to orbital elements, but sure that the conversion is done prior to calling this method Adapted from David E. Kaufmann's Swifter routine  io_write_frame.f90\n Adapted from Hal Levison's Swift routine io_write_frame.F Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest particle object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Called by proc~~io_write_frame_body~~CalledByGraph proc~io_write_frame_body io_write_frame_body interface~io_write_frame_body io_write_frame_body interface~io_write_frame_body->proc~io_write_frame_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_write_frame_body.html"},{"title":"io_write_frame_cb – swiftest","text":"module subroutine io_write_frame_cb(self, iu, param) Interface → Write a frame of output of central body data to the binary output file Adapted from David E. Kaufmann's Swifter routine  io_write_frame.f90\n Adapted from Hal Levison's Swift routine io_write_frame.F Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Called by proc~~io_write_frame_cb~~CalledByGraph proc~io_write_frame_cb io_write_frame_cb interface~io_write_frame_cb io_write_frame_cb interface~io_write_frame_cb->proc~io_write_frame_cb Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_write_frame_cb.html"},{"title":"io_write_frame_system – swiftest","text":"module subroutine io_write_frame_system(self, iu, param) Interface → Write a frame (header plus records for each massive body and active test particle) to output binary file\n There is no direct file output from this subroutine Adapted from David E. Kaufmann's Swifter routine  io_write_frame.f90\n Adapted from Hal Levison's Swift routine io_write_frame.F Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~io_write_frame_system~~CallsGraph proc~io_write_frame_system io_write_frame_system proc~io_write_hdr io_write_hdr proc~io_write_frame_system->proc~io_write_hdr interface~util_exit util_exit proc~io_write_frame_system->interface~util_exit proc~io_write_hdr->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_write_frame_system~~CalledByGraph proc~io_write_frame_system io_write_frame_system interface~io_write_frame_system io_write_frame_system interface~io_write_frame_system->proc~io_write_frame_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_write_frame_system.html"},{"title":"setup_construct_system – swiftest","text":"module subroutine setup_construct_system(system, param) Interface → Constructor for a Swiftest nbody system. Creates the nbody system object based on the user-input integrator Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout), allocatable :: system Swiftest system object class( swiftest_parameters ), intent(in) :: param Swiftest parameters Calls proc~~setup_construct_system~~CallsGraph proc~setup_construct_system setup_construct_system interface~util_exit util_exit proc~setup_construct_system->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~setup_construct_system~~CalledByGraph proc~setup_construct_system setup_construct_system interface~setup_construct_system setup_construct_system interface~setup_construct_system->proc~setup_construct_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/setup_construct_system.html"},{"title":"setup_encounter – swiftest","text":"module subroutine setup_encounter(self, n) Interface → A constructor that sets the number of encounters and allocates and initializes all arrays Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for Called by proc~~setup_encounter~~CalledByGraph proc~setup_encounter setup_encounter interface~setup_encounter setup_encounter interface~setup_encounter->proc~setup_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/setup_encounter.html"},{"title":"setup_initialize_system – swiftest","text":"module subroutine setup_initialize_system(self, param) Interface → Wrapper method to initialize a basic Swiftest nbody system from files Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters Calls proc~~setup_initialize_system~~CallsGraph proc~setup_initialize_system setup_initialize_system interface~util_valid util_valid proc~setup_initialize_system->interface~util_valid proc~util_valid util_valid interface~util_valid->proc~util_valid interface~util_exit util_exit proc~util_valid->interface~util_exit interface~util_sort util_sort proc~util_valid->interface~util_sort proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~setup_initialize_system~~CalledByGraph proc~setup_initialize_system setup_initialize_system interface~setup_initialize_system setup_initialize_system interface~setup_initialize_system->proc~setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/setup_initialize_system.html"},{"title":"setup_body – swiftest","text":"module subroutine setup_body(self, n, param) Interface → Constructor for base Swiftest particle class. Allocates space for all particles and\n initializes all components with a value.\n Note: Timing tests indicate that (NDIM, n) is more efficient than (NDIM, n) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter Called by proc~~setup_body~~CalledByGraph proc~setup_body setup_body interface~setup_body setup_body interface~setup_body->proc~setup_body proc~setup_tp setup_tp proc~setup_tp->interface~setup_body proc~setup_pl setup_pl proc~setup_pl->interface~setup_body interface~setup_pl setup_pl interface~setup_pl->proc~setup_pl interface~setup_tp setup_tp interface~setup_tp->proc~setup_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/setup_body.html"},{"title":"setup_pl – swiftest","text":"module subroutine setup_pl(self, n, param) Interface → Constructor for base Swiftest massive body class. Allocates space for all particles and\n initializes all components with a value. \n Call allocation method for parent class\n The parent class here is the abstract swiftest_body class, so we can't use the type-bound procedure Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter Calls proc~~setup_pl~~CallsGraph proc~setup_pl setup_pl interface~setup_body setup_body proc~setup_pl->interface~setup_body proc~setup_body setup_body interface~setup_body->proc~setup_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~setup_pl~~CalledByGraph proc~setup_pl setup_pl interface~setup_pl setup_pl interface~setup_pl->proc~setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/setup_pl.html"},{"title":"setup_tp – swiftest","text":"module subroutine setup_tp(self, n, param) Interface → Constructor for base Swiftest test particle particle class. Allocates space for \n all particles and initializes all components with a value. \n Call allocation method for parent class\n The parent class here is the abstract swiftest_body class, so we can't use the type-bound procedure Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter Calls proc~~setup_tp~~CallsGraph proc~setup_tp setup_tp interface~setup_body setup_body proc~setup_tp->interface~setup_body proc~setup_body setup_body interface~setup_body->proc~setup_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~setup_tp~~CalledByGraph proc~setup_tp setup_tp interface~setup_tp setup_tp interface~setup_tp->proc~setup_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/setup_tp.html"},{"title":"eucl_dist_index_plpl – swiftest","text":"module subroutine eucl_dist_index_plpl(self) Interface → Turns i,j indices into k index for use in the Euclidean distance matrix Reference: Mélodie Angeletti, Jean-Marie Bonny, Jonas Koko. Parallel Euclidean distance matrix computation on big datasets *. 2019. hal-0204751 Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body objec Called by proc~~eucl_dist_index_plpl~~CalledByGraph proc~eucl_dist_index_plpl eucl_dist_index_plpl interface~eucl_dist_index_plpl eucl_dist_index_plpl interface~eucl_dist_index_plpl->proc~eucl_dist_index_plpl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/eucl_dist_index_plpl.html"},{"title":"user_kick_getacch_body – swiftest","text":"module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Interface → Add user-supplied heliocentric accelerations to planets. Adapted from David E. Kaufmann's Swifter routine whm_user_kick_getacch.f90 Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters user parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the ste Called by proc~~user_kick_getacch_body~~CalledByGraph proc~user_kick_getacch_body user_kick_getacch_body interface~user_kick_getacch_body user_kick_getacch_body interface~user_kick_getacch_body->proc~user_kick_getacch_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/user_kick_getacch_body.html"},{"title":"drift_body – swiftest","text":"module subroutine drift_body(self, system, param, dt) Interface → Loop bodies and call Danby drift routine on the heliocentric position and velocities. Adapted from Hal Levison's Swift routine drift_tp.f \n Adapted from David E. Kaufmann's Swifter routine whm_drift_tp.f90 Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize Calls proc~~drift_body~~CallsGraph proc~drift_body drift_body interface~drift_all drift_all proc~drift_body->interface~drift_all proc~drift_all drift_all interface~drift_all->proc~drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~drift_body~~CalledByGraph proc~drift_body drift_body interface~drift_body drift_body interface~drift_body->proc~drift_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_body.html"},{"title":"drift_all – swiftest","text":"pure module subroutine drift_all(mu, x, v, n, param, dt, mask, iflag) Interface → Loop bodies and call Danby drift routine on all bodies for the given position and velocity vector. Adapted from Hal Levison's Swift routine drift_tp.f \n Adapted from David E. Kaufmann's Swifter routine whm_drift_tp.f9 Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu Vector of gravitational constants real(kind=DP), intent(inout), dimension(:,:) :: x Position and velocity vectors real(kind=DP), intent(inout), dimension(:,:) :: v Position and velocity vectors integer(kind=I4B), intent(in) :: n number of bodies class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize logical, intent(in), dimension(:) :: mask Logical mask of size self%nbody that determines which bodies to drift. integer(kind=I4B), intent(out), dimension(:) :: iflag Vector of error flags. 0 means no problem Called by proc~~drift_all~~CalledByGraph proc~drift_all drift_all interface~drift_all drift_all interface~drift_all->proc~drift_all proc~drift_body drift_body proc~drift_body->interface~drift_all interface~drift_body drift_body interface~drift_body->proc~drift_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_all.html"},{"title":"drift_one – swiftest","text":"pure elemental module subroutine drift_one(mu, px, py, pz, vx, vy, vz, dt, iflag) Interface → Perform Danby drift for one body, redoing drift with smaller substeps if original accuracy is insufficient Adapted from David E. Kaufmann's Swifter routine routine drift_one.f90\n Adapted from Hal Levison and Martin Duncan's Swift routine drift_one.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body to drift real(kind=DP), intent(inout) :: px Position and velocity of body to drift real(kind=DP), intent(inout) :: py Position and velocity of body to drift real(kind=DP), intent(inout) :: pz Position and velocity of body to drift real(kind=DP), intent(inout) :: vx Position and velocity of body to drift real(kind=DP), intent(inout) :: vy Position and velocity of body to drift real(kind=DP), intent(inout) :: vz Position and velocity of body to drift real(kind=DP), intent(in) :: dt Step size integer(kind=I4B), intent(out) :: iflag iflag : error status flag for Danby drift (0 = OK, nonzero = ERROR) Called by proc~~drift_one~~CalledByGraph proc~drift_one drift_one interface~drift_one drift_one interface~drift_one->proc~drift_one Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_one.html"},{"title":"symba_util_append_arr_info – swiftest","text":"subroutine symba_util_append_arr_info(arr, source, lsource_mask) Append a single array of particle information type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: arr Destination array type( symba_particle_info ), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~symba_util_append_arr_info~~CallsGraph proc~symba_util_append_arr_info symba_util_append_arr_info interface~util_resize util_resize proc~symba_util_append_arr_info->interface~util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_append_arr_info.html"},{"title":"symba_util_append_arr_kin – swiftest","text":"subroutine symba_util_append_arr_kin(arr, source, lsource_mask) Append a single array of kinship type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Destination array type( symba_kinship ), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~symba_util_append_arr_kin~~CallsGraph proc~symba_util_append_arr_kin symba_util_append_arr_kin interface~util_resize util_resize proc~symba_util_append_arr_kin->interface~util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_append_arr_kin.html"},{"title":"symba_util_append_pl – swiftest","text":"module subroutine symba_util_append_pl(self, source, lsource_mask) Interface → Append components from one massive body object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~symba_util_append_pl~~CallsGraph proc~symba_util_append_pl symba_util_append_pl util_append_pl util_append_pl proc~symba_util_append_pl->util_append_pl interface~util_append util_append proc~symba_util_append_pl->interface~util_append util_exit util_exit proc~symba_util_append_pl->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_append_pl~~CalledByGraph proc~symba_util_append_pl symba_util_append_pl interface~symba_util_append_pl symba_util_append_pl interface~symba_util_append_pl->proc~symba_util_append_pl proc~symba_util_append_merger symba_util_append_merger proc~symba_util_append_merger->interface~symba_util_append_pl interface~symba_util_append_merger symba_util_append_merger interface~symba_util_append_merger->proc~symba_util_append_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_append_pl.html"},{"title":"symba_util_append_merger – swiftest","text":"module subroutine symba_util_append_merger(self, source, lsource_mask) Interface → Append components from one massive body object to another. \n This method will automatically resize the destination body if it is too small Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~symba_util_append_merger~~CallsGraph proc~symba_util_append_merger symba_util_append_merger interface~symba_util_append_pl symba_util_append_pl proc~symba_util_append_merger->interface~symba_util_append_pl interface~util_append util_append proc~symba_util_append_merger->interface~util_append util_exit util_exit proc~symba_util_append_merger->util_exit proc~symba_util_append_pl symba_util_append_pl interface~symba_util_append_pl->proc~symba_util_append_pl proc~symba_util_append_pl->interface~util_append proc~symba_util_append_pl->util_exit util_append_pl util_append_pl proc~symba_util_append_pl->util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_append_merger~~CalledByGraph proc~symba_util_append_merger symba_util_append_merger interface~symba_util_append_merger symba_util_append_merger interface~symba_util_append_merger->proc~symba_util_append_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_append_merger.html"},{"title":"symba_util_append_tp – swiftest","text":"module subroutine symba_util_append_tp(self, source, lsource_mask) Interface → Append components from test particle object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~symba_util_append_tp~~CallsGraph proc~symba_util_append_tp symba_util_append_tp interface~util_append util_append proc~symba_util_append_tp->interface~util_append util_append_tp util_append_tp proc~symba_util_append_tp->util_append_tp util_exit util_exit proc~symba_util_append_tp->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_append_tp~~CalledByGraph proc~symba_util_append_tp symba_util_append_tp interface~symba_util_append_tp symba_util_append_tp interface~symba_util_append_tp->proc~symba_util_append_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_append_tp.html"},{"title":"symba_util_fill_arr_info – swiftest","text":"subroutine symba_util_fill_arr_info(keeps, inserts, lfill_list) Performs a fill operation on a single array of particle origin information types\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_particle_info ), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Contents None","tags":"","loc":"proc/symba_util_fill_arr_info.html"},{"title":"symba_util_fill_arr_kin – swiftest","text":"subroutine symba_util_fill_arr_kin(keeps, inserts, lfill_list) Performs a fill operation on a single array of particle kinship types\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_kinship ), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Contents None","tags":"","loc":"proc/symba_util_fill_arr_kin.html"},{"title":"symba_util_fill_pl – swiftest","text":"module subroutine symba_util_fill_pl(self, inserts, lfill_list) Interface → Insert new SyMBA test particle structure into an old one. \n This is the inverse of a fill operation. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA masive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Calls proc~~symba_util_fill_pl~~CallsGraph proc~symba_util_fill_pl symba_util_fill_pl interface~util_fill util_fill proc~symba_util_fill_pl->interface~util_fill util_fill_pl util_fill_pl proc~symba_util_fill_pl->util_fill_pl util_exit util_exit proc~symba_util_fill_pl->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_fill_pl~~CalledByGraph proc~symba_util_fill_pl symba_util_fill_pl interface~symba_util_fill_pl symba_util_fill_pl interface~symba_util_fill_pl->proc~symba_util_fill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_fill_pl.html"},{"title":"symba_util_fill_tp – swiftest","text":"module subroutine symba_util_fill_tp(self, inserts, lfill_list) Interface → Insert new SyMBA test particle structure into an old one. \n This is the inverse of a fill operation. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Calls proc~~symba_util_fill_tp~~CallsGraph proc~symba_util_fill_tp symba_util_fill_tp interface~util_fill util_fill proc~symba_util_fill_tp->interface~util_fill util_fill_tp util_fill_tp proc~symba_util_fill_tp->util_fill_tp util_exit util_exit proc~symba_util_fill_tp->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_fill_tp~~CalledByGraph proc~symba_util_fill_tp symba_util_fill_tp interface~symba_util_fill_tp symba_util_fill_tp interface~symba_util_fill_tp->proc~symba_util_fill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_fill_tp.html"},{"title":"symba_util_peri_pl – swiftest","text":"module subroutine symba_util_peri_pl(self, system, param) Interface → Determine system pericenter passages for planets in SyMBA Adapted from David E. Kaufmann's Swifter routine: symba_peri.f90\n Adapted from Hal Levison's Swift routine util_mass_peri.f Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~symba_util_peri_pl~~CallsGraph proc~symba_util_peri_pl symba_util_peri_pl orbel_xv2aeq orbel_xv2aeq proc~symba_util_peri_pl->orbel_xv2aeq Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_peri_pl~~CalledByGraph proc~symba_util_peri_pl symba_util_peri_pl interface~symba_util_peri_pl symba_util_peri_pl interface~symba_util_peri_pl->proc~symba_util_peri_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_peri_pl.html"},{"title":"symba_util_rearray_pl – swiftest","text":"module subroutine symba_util_rearray_pl(self, system, param) Interface → Clean up the massive body structures to remove discarded bodies and add new bodies Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class( symba_nbody_system ), intent(inout) :: system Swiftest nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters Called by proc~~symba_util_rearray_pl~~CalledByGraph proc~symba_util_rearray_pl symba_util_rearray_pl interface~symba_util_rearray_pl symba_util_rearray_pl interface~symba_util_rearray_pl->proc~symba_util_rearray_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_rearray_pl.html"},{"title":"symba_util_resize_arr_info – swiftest","text":"subroutine symba_util_resize_arr_info(arr, nnew) Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size Contents None","tags":"","loc":"proc/symba_util_resize_arr_info.html"},{"title":"symba_util_resize_arr_kin – swiftest","text":"subroutine symba_util_resize_arr_kin(arr, nnew) Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size Contents None","tags":"","loc":"proc/symba_util_resize_arr_kin.html"},{"title":"symba_util_resize_merger – swiftest","text":"module subroutine symba_util_resize_merger(self, nnew) Interface → Checks the current size of a SyMBA merger list against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~symba_util_resize_merger~~CallsGraph proc~symba_util_resize_merger symba_util_resize_merger interface~symba_util_resize_pl symba_util_resize_pl proc~symba_util_resize_merger->interface~symba_util_resize_pl interface~util_resize util_resize proc~symba_util_resize_merger->interface~util_resize proc~symba_util_resize_pl symba_util_resize_pl interface~symba_util_resize_pl->proc~symba_util_resize_pl proc~symba_util_resize_pl->interface~util_resize util_resize_pl util_resize_pl proc~symba_util_resize_pl->util_resize_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_resize_merger~~CalledByGraph proc~symba_util_resize_merger symba_util_resize_merger interface~symba_util_resize_merger symba_util_resize_merger interface~symba_util_resize_merger->proc~symba_util_resize_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_resize_merger.html"},{"title":"symba_util_resize_pl – swiftest","text":"module subroutine symba_util_resize_pl(self, nnew) Interface → Checks the current size of a SyMBA massive body object against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~symba_util_resize_pl~~CallsGraph proc~symba_util_resize_pl symba_util_resize_pl util_resize_pl util_resize_pl proc~symba_util_resize_pl->util_resize_pl interface~util_resize util_resize proc~symba_util_resize_pl->interface~util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_resize_pl~~CalledByGraph proc~symba_util_resize_pl symba_util_resize_pl interface~symba_util_resize_pl symba_util_resize_pl interface~symba_util_resize_pl->proc~symba_util_resize_pl proc~symba_util_resize_merger symba_util_resize_merger proc~symba_util_resize_merger->interface~symba_util_resize_pl interface~symba_util_resize_merger symba_util_resize_merger interface~symba_util_resize_merger->proc~symba_util_resize_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_resize_pl.html"},{"title":"symba_util_resize_tp – swiftest","text":"module subroutine symba_util_resize_tp(self, nnew) Interface → Checks the current size of a test particle object against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~symba_util_resize_tp~~CallsGraph proc~symba_util_resize_tp symba_util_resize_tp util_resize_tp util_resize_tp proc~symba_util_resize_tp->util_resize_tp interface~util_resize util_resize proc~symba_util_resize_tp->interface~util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_resize_tp~~CalledByGraph proc~symba_util_resize_tp symba_util_resize_tp interface~symba_util_resize_tp symba_util_resize_tp interface~symba_util_resize_tp->proc~symba_util_resize_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_resize_tp.html"},{"title":"symba_util_sort_pl – swiftest","text":"module subroutine symba_util_sort_pl(self, sortby, ascending) Interface → Sort a SyMBA massive body object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order Calls proc~~symba_util_sort_pl~~CallsGraph proc~symba_util_sort_pl symba_util_sort_pl util_sort_pl util_sort_pl proc~symba_util_sort_pl->util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_sort_pl~~CalledByGraph proc~symba_util_sort_pl symba_util_sort_pl interface~symba_util_sort_pl symba_util_sort_pl interface~symba_util_sort_pl->proc~symba_util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_sort_pl.html"},{"title":"symba_util_sort_tp – swiftest","text":"module subroutine symba_util_sort_tp(self, sortby, ascending) Interface → Sort a SyMBA test particle object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order Calls proc~~symba_util_sort_tp~~CallsGraph proc~symba_util_sort_tp symba_util_sort_tp util_sort_tp util_sort_tp proc~symba_util_sort_tp->util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_sort_tp~~CalledByGraph proc~symba_util_sort_tp symba_util_sort_tp interface~symba_util_sort_tp symba_util_sort_tp interface~symba_util_sort_tp->proc~symba_util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_sort_tp.html"},{"title":"symba_util_sort_rearrange_pl – swiftest","text":"module subroutine symba_util_sort_rearrange_pl(self, ind) Interface → Rearrange SyMBA massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Calls proc~~symba_util_sort_rearrange_pl~~CallsGraph proc~symba_util_sort_rearrange_pl symba_util_sort_rearrange_pl util_sort_rearrange_pl util_sort_rearrange_pl proc~symba_util_sort_rearrange_pl->util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_sort_rearrange_pl~~CalledByGraph proc~symba_util_sort_rearrange_pl symba_util_sort_rearrange_pl interface~symba_util_sort_rearrange_pl symba_util_sort_rearrange_pl interface~symba_util_sort_rearrange_pl->proc~symba_util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_sort_rearrange_pl.html"},{"title":"symba_util_sort_rearrange_tp – swiftest","text":"module subroutine symba_util_sort_rearrange_tp(self, ind) Interface → Rearrange SyMBA test particle object in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Calls proc~~symba_util_sort_rearrange_tp~~CallsGraph proc~symba_util_sort_rearrange_tp symba_util_sort_rearrange_tp util_sort_rearrange_tp util_sort_rearrange_tp proc~symba_util_sort_rearrange_tp->util_sort_rearrange_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_sort_rearrange_tp~~CalledByGraph proc~symba_util_sort_rearrange_tp symba_util_sort_rearrange_tp interface~symba_util_sort_rearrange_tp symba_util_sort_rearrange_tp interface~symba_util_sort_rearrange_tp->proc~symba_util_sort_rearrange_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_sort_rearrange_tp.html"},{"title":"symba_util_spill_arr_info – swiftest","text":"subroutine symba_util_spill_arr_info(keeps, discards, lspill_list, ldestructive) Performs a spill operation on a single array of particle origin information types\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_particle_info ), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Contents None","tags":"","loc":"proc/symba_util_spill_arr_info.html"},{"title":"symba_util_spill_arr_kin – swiftest","text":"subroutine symba_util_spill_arr_kin(keeps, discards, lspill_list, ldestructive) Performs a spill operation on a single array of particle kinships\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_kinship ), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Contents None","tags":"","loc":"proc/symba_util_spill_arr_kin.html"},{"title":"symba_util_spill_pl – swiftest","text":"module subroutine symba_util_spill_pl(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) SyMBA massive body particle structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill all the common components Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list Calls proc~~symba_util_spill_pl~~CallsGraph proc~symba_util_spill_pl symba_util_spill_pl interface~util_spill util_spill proc~symba_util_spill_pl->interface~util_spill util_spill_pl util_spill_pl proc~symba_util_spill_pl->util_spill_pl util_exit util_exit proc~symba_util_spill_pl->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_spill_pl~~CalledByGraph proc~symba_util_spill_pl symba_util_spill_pl interface~symba_util_spill_pl symba_util_spill_pl interface~symba_util_spill_pl->proc~symba_util_spill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_spill_pl.html"},{"title":"symba_util_spill_pltpenc – swiftest","text":"module subroutine symba_util_spill_pltpenc(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) SyMBA encounter structure from active list to discard list\n Note: Because the symba_plplenc currently does not contain any additional variable components, this method can recieve it as an input as well. Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list Calls proc~~symba_util_spill_pltpenc~~CallsGraph proc~symba_util_spill_pltpenc symba_util_spill_pltpenc interface~util_spill util_spill proc~symba_util_spill_pltpenc->interface~util_spill util_spill_encounter util_spill_encounter proc~symba_util_spill_pltpenc->util_spill_encounter util_exit util_exit proc~symba_util_spill_pltpenc->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_spill_pltpenc~~CalledByGraph proc~symba_util_spill_pltpenc symba_util_spill_pltpenc interface~symba_util_spill_pltpenc symba_util_spill_pltpenc interface~symba_util_spill_pltpenc->proc~symba_util_spill_pltpenc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_spill_pltpenc.html"},{"title":"symba_util_spill_tp – swiftest","text":"module subroutine symba_util_spill_tp(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) SyMBA test particle structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill all the common components Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list Calls proc~~symba_util_spill_tp~~CallsGraph proc~symba_util_spill_tp symba_util_spill_tp interface~util_spill util_spill proc~symba_util_spill_tp->interface~util_spill util_spill_tp util_spill_tp proc~symba_util_spill_tp->util_spill_tp util_exit util_exit proc~symba_util_spill_tp->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_spill_tp~~CalledByGraph proc~symba_util_spill_tp symba_util_spill_tp interface~symba_util_spill_tp symba_util_spill_tp interface~symba_util_spill_tp->proc~symba_util_spill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_spill_tp.html"},{"title":"symba_collision_check_pltpenc – swiftest","text":"module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec) Interface → Check for merger between massive bodies and test particles in SyMBA Adapted from David E. Kaufmann's Swifter routine symba_merge.f90 and symba_merge_tp.f90 Adapted from Hal Levison's Swift routine symba5_merge.f Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t current time real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Calls proc~~symba_collision_check_pltpenc~~CallsGraph proc~symba_collision_check_pltpenc symba_collision_check_pltpenc ind2 ind2 proc~symba_collision_check_pltpenc->ind2 proc~symba_collision_check_one symba_collision_check_one proc~symba_collision_check_pltpenc->proc~symba_collision_check_one ind1 ind1 proc~symba_collision_check_pltpenc->ind1 orbel_xv2aeq orbel_xv2aeq proc~symba_collision_check_one->orbel_xv2aeq Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_collision_check_pltpenc~~CalledByGraph proc~symba_collision_check_pltpenc symba_collision_check_pltpenc interface~symba_collision_check_pltpenc symba_collision_check_pltpenc interface~symba_collision_check_pltpenc->proc~symba_collision_check_pltpenc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_collision_check_pltpenc.html"},{"title":"symba_collision_encounter_scrub – swiftest","text":"module subroutine symba_collision_encounter_scrub(self, system, param) Interface → Processes the pl-pl encounter list remove only those encounters that led to a collision Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~symba_collision_encounter_scrub~~CallsGraph proc~symba_collision_encounter_scrub symba_collision_encounter_scrub idx1 idx1 proc~symba_collision_encounter_scrub->idx1 idx2 idx2 proc~symba_collision_encounter_scrub->idx2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_collision_encounter_scrub~~CalledByGraph proc~symba_collision_encounter_scrub symba_collision_encounter_scrub interface~symba_collision_encounter_scrub symba_collision_encounter_scrub interface~symba_collision_encounter_scrub->proc~symba_collision_encounter_scrub Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_collision_encounter_scrub.html"},{"title":"symba_collision_make_family_pl – swiftest","text":"module subroutine symba_collision_make_family_pl(self, idx) Interface → When a single body is involved in more than one collision in a single step, it becomes part of a family.\n The largest body involved in a multi-body collision is the \"parent\" and all bodies that collide with it are its \"children,\"\n including those that collide with the children. Adapted from David E. Kaufmann's Swifter routine symba_merge_pl.f90 Adapted from Hal Levison's Swift routine symba5_merge.f Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(2) :: idx Array holding the indices of the two bodies involved in the collision Called by proc~~symba_collision_make_family_pl~~CalledByGraph proc~symba_collision_make_family_pl symba_collision_make_family_pl interface~symba_collision_make_family_pl symba_collision_make_family_pl interface~symba_collision_make_family_pl->proc~symba_collision_make_family_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_collision_make_family_pl.html"},{"title":"symba_collision_resolve_fragmentations – swiftest","text":"module subroutine symba_collision_resolve_fragmentations(self, system, param) Interface → Process list of collisions, determine the collisional regime, and then create fragments. The collective mass of the parent and its children\n The collective radius of the parent and its children\n The position of the parent from inside the step (at collision)\n The velocity of the parent from inside the step (at collision)\n The position of the parent from inside the step (at collision)\n The velocity of the parent from inside the step (at collision)\n The collective density of the parent and its children\n Use the positions and velocities of the parents from indside the step (at collision) to calculate the collisional regime Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions Calls proc~~symba_collision_resolve_fragmentations~~CallsGraph proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casesupercatastrophic interface~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casehitandrun interface~symba_fragmentation_casedisruption symba_fragmentation_casedisruption proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casedisruption idx1 idx1 proc~symba_collision_resolve_fragmentations->idx1 util_exit util_exit proc~symba_collision_resolve_fragmentations->util_exit idx2 idx2 proc~symba_collision_resolve_fragmentations->idx2 proc~symba_collision_consolidate_familes symba_collision_consolidate_familes proc~symba_collision_resolve_fragmentations->proc~symba_collision_consolidate_familes interface~symba_fragmentation_casemerge symba_fragmentation_casemerge proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casemerge proc~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic interface~symba_fragmentation_casesupercatastrophic->proc~symba_fragmentation_casesupercatastrophic proc~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun interface~symba_fragmentation_casehitandrun->proc~symba_fragmentation_casehitandrun proc~symba_fragmentation_casedisruption symba_fragmentation_casedisruption interface~symba_fragmentation_casedisruption->proc~symba_fragmentation_casedisruption idx_arr idx_arr proc~symba_collision_consolidate_familes->idx_arr id_arr id_arr proc~symba_collision_consolidate_familes->id_arr proc~symba_fragmentation_casemerge symba_fragmentation_casemerge interface~symba_fragmentation_casemerge->proc~symba_fragmentation_casemerge fragmentation_initialize fragmentation_initialize proc~symba_fragmentation_casehitandrun->fragmentation_initialize proc~symba_fragmentation_casesupercatastrophic->fragmentation_initialize proc~symba_fragmentation_casedisruption->fragmentation_initialize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_collision_resolve_fragmentations~~CalledByGraph proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_collision_resolve_fragmentations.html"},{"title":"symba_collision_resolve_mergers – swiftest","text":"module subroutine symba_collision_resolve_mergers(self, system, param) Interface → Process list of collisions and merge colliding bodies together. Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions Calls proc~~symba_collision_resolve_mergers~~CallsGraph proc~symba_collision_resolve_mergers symba_collision_resolve_mergers idx1 idx1 proc~symba_collision_resolve_mergers->idx1 idx2 idx2 proc~symba_collision_resolve_mergers->idx2 proc~symba_collision_consolidate_familes symba_collision_consolidate_familes proc~symba_collision_resolve_mergers->proc~symba_collision_consolidate_familes interface~symba_fragmentation_casemerge symba_fragmentation_casemerge proc~symba_collision_resolve_mergers->interface~symba_fragmentation_casemerge idx_arr idx_arr proc~symba_collision_consolidate_familes->idx_arr id_arr id_arr proc~symba_collision_consolidate_familes->id_arr proc~symba_fragmentation_casemerge symba_fragmentation_casemerge interface~symba_fragmentation_casemerge->proc~symba_fragmentation_casemerge Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_collision_resolve_mergers~~CalledByGraph proc~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers->proc~symba_collision_resolve_mergers Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_collision_resolve_mergers.html"},{"title":"symba_setup_initialize_system – swiftest","text":"module subroutine symba_setup_initialize_system(self, param) Interface → Initialize an SyMBA nbody system from files and sets up the planetocentric structures.\n This subroutine will also sort the massive bodies in descending order by mass Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters Calls proc~~symba_setup_initialize_system~~CallsGraph proc~symba_setup_initialize_system symba_setup_initialize_system whm_setup_initialize_system whm_setup_initialize_system proc~symba_setup_initialize_system->whm_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_setup_initialize_system~~CalledByGraph proc~symba_setup_initialize_system symba_setup_initialize_system interface~symba_setup_initialize_system symba_setup_initialize_system interface~symba_setup_initialize_system->proc~symba_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_setup_initialize_system.html"},{"title":"symba_setup_merger – swiftest","text":"module subroutine symba_setup_merger(self, n, param) Interface → Allocate SyMBA test particle structure Equivalent in functionality to David E. Kaufmann's Swifter routine symba_setup.f90\n Call allocation method for parent class. In this case, helio_pl does not have its own setup method so we use the base method for swiftest_pl Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA merger list object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter Calls proc~~symba_setup_merger~~CallsGraph proc~symba_setup_merger symba_setup_merger interface~symba_setup_pl symba_setup_pl proc~symba_setup_merger->interface~symba_setup_pl proc~symba_setup_pl symba_setup_pl interface~symba_setup_pl->proc~symba_setup_pl setup_pl setup_pl proc~symba_setup_pl->setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_setup_merger~~CalledByGraph proc~symba_setup_merger symba_setup_merger interface~symba_setup_merger symba_setup_merger interface~symba_setup_merger->proc~symba_setup_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_setup_merger.html"},{"title":"symba_setup_pl – swiftest","text":"module subroutine symba_setup_pl(self, n, param) Interface → Allocate SyMBA test particle structure Equivalent in functionality to David E. Kaufmann's Swifter routine symba_setup.f90\n Call allocation method for parent class. In this case, helio_pl does not have its own setup method so we use the base method for swiftest_pl Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter Calls proc~~symba_setup_pl~~CallsGraph proc~symba_setup_pl symba_setup_pl setup_pl setup_pl proc~symba_setup_pl->setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_setup_pl~~CalledByGraph proc~symba_setup_pl symba_setup_pl interface~symba_setup_pl symba_setup_pl interface~symba_setup_pl->proc~symba_setup_pl proc~symba_setup_merger symba_setup_merger proc~symba_setup_merger->interface~symba_setup_pl interface~symba_setup_merger symba_setup_merger interface~symba_setup_merger->proc~symba_setup_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_setup_pl.html"},{"title":"symba_setup_pltpenc – swiftest","text":"module subroutine symba_setup_pltpenc(self, n) Interface → A constructor that sets the number of encounters and allocates and initializes all arrays Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for Calls proc~~symba_setup_pltpenc~~CallsGraph proc~symba_setup_pltpenc symba_setup_pltpenc setup_encounter setup_encounter proc~symba_setup_pltpenc->setup_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_setup_pltpenc~~CalledByGraph proc~symba_setup_pltpenc symba_setup_pltpenc interface~symba_setup_pltpenc symba_setup_pltpenc interface~symba_setup_pltpenc->proc~symba_setup_pltpenc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_setup_pltpenc.html"},{"title":"symba_setup_tp – swiftest","text":"module subroutine symba_setup_tp(self, n, param) Interface → Allocate WHM test particle structure Equivalent in functionality to David E. Kaufmann's Swifter routine whm_setup.f90\n Call allocation method for parent class. In this case, helio_tp does not have its own setup method so we use the base method for swiftest_tp Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter Calls proc~~symba_setup_tp~~CallsGraph proc~symba_setup_tp symba_setup_tp setup_tp setup_tp proc~symba_setup_tp->setup_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_setup_tp~~CalledByGraph proc~symba_setup_tp symba_setup_tp interface~symba_setup_tp symba_setup_tp interface~symba_setup_tp->proc~symba_setup_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_setup_tp.html"},{"title":"symba_kick_getacch_pl – swiftest","text":"module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg) Interface → Compute heliocentric accelerations of massive bodies Adapted from David E. Kaufmann's Swifter routine symba_kick_getacch.f90\n Adapted from Hal Levison's Swift routine symba5_kick_getacch.f Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Calls proc~~symba_kick_getacch_pl~~CallsGraph proc~symba_kick_getacch_pl symba_kick_getacch_pl helio_kick_getacch_pl helio_kick_getacch_pl proc~symba_kick_getacch_pl->helio_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_kick_getacch_pl~~CalledByGraph proc~symba_kick_getacch_pl symba_kick_getacch_pl interface~symba_kick_getacch_pl symba_kick_getacch_pl interface~symba_kick_getacch_pl->proc~symba_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_kick_getacch_pl.html"},{"title":"symba_kick_getacch_tp – swiftest","text":"module subroutine symba_kick_getacch_tp(self, system, param, t, lbeg) Interface → Compute heliocentric accelerations of test particles Adapted from David E. Kaufmann's Swifter routine symba_kick_getacch_tp.f90\n Adapted from Hal Levison's Swift routine symba5_kick_getacch.f Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Calls proc~~symba_kick_getacch_tp~~CallsGraph proc~symba_kick_getacch_tp symba_kick_getacch_tp helio_kick_getacch_tp helio_kick_getacch_tp proc~symba_kick_getacch_tp->helio_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_kick_getacch_tp~~CalledByGraph proc~symba_kick_getacch_tp symba_kick_getacch_tp interface~symba_kick_getacch_tp symba_kick_getacch_tp interface~symba_kick_getacch_tp->proc~symba_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_kick_getacch_tp.html"},{"title":"symba_kick_pltpenc – swiftest","text":"module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn) Interface → Kick barycentric velocities of massive bodies and ACTIVE test particles within SyMBA recursion.\n Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types Adapted from David E. Kaufmann's Swifter routine: symba_kick.f90\n Adapted from Hal Levison's Swift routine symba5_kick.f Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(in) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level integer(kind=I4B), intent(in) :: sgn sign to be applied to acceleration Calls proc~~symba_kick_pltpenc~~CallsGraph proc~symba_kick_pltpenc symba_kick_pltpenc ind2 ind2 proc~symba_kick_pltpenc->ind2 ind1 ind1 proc~symba_kick_pltpenc->ind1 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_kick_pltpenc~~CalledByGraph proc~symba_kick_pltpenc symba_kick_pltpenc interface~symba_kick_pltpenc symba_kick_pltpenc interface~symba_kick_pltpenc->proc~symba_kick_pltpenc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_kick_pltpenc.html"},{"title":"symba_fragmentation_casedisruption – swiftest","text":"module function symba_fragmentation_casedisruption(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Interface → Create the fragments resulting from a non-catastrophic disruption collision Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome Calls proc~~symba_fragmentation_casedisruption~~CallsGraph proc~symba_fragmentation_casedisruption symba_fragmentation_casedisruption fragmentation_initialize fragmentation_initialize proc~symba_fragmentation_casedisruption->fragmentation_initialize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_fragmentation_casedisruption~~CalledByGraph proc~symba_fragmentation_casedisruption symba_fragmentation_casedisruption interface~symba_fragmentation_casedisruption symba_fragmentation_casedisruption interface~symba_fragmentation_casedisruption->proc~symba_fragmentation_casedisruption proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casedisruption interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_fragmentation_casedisruption.html"},{"title":"symba_fragmentation_casehitandrun – swiftest","text":"module function symba_fragmentation_casehitandrun(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Interface → Create the fragments resulting from a non-catastrophic hit-and-run collision Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome Calls proc~~symba_fragmentation_casehitandrun~~CallsGraph proc~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun fragmentation_initialize fragmentation_initialize proc~symba_fragmentation_casehitandrun->fragmentation_initialize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_fragmentation_casehitandrun~~CalledByGraph proc~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun interface~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun interface~symba_fragmentation_casehitandrun->proc~symba_fragmentation_casehitandrun proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casehitandrun interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_fragmentation_casehitandrun.html"},{"title":"symba_fragmentation_casemerge – swiftest","text":"module function symba_fragmentation_casemerge(system, param, family, x, v, mass, radius, L_spin, Ip) result(status) Interface → Merge planets. Adapted from David E. Kaufmann's Swifter routines symba_merge_pl.f90 and symba_discard_merge_pl.f90 Adapted from Hal Levison's Swift routines symba5_merge.f and discard_mass_merge.f Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(in), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision Return Value integer(kind=I4B) Status flag assigned to this outcome Called by proc~~symba_fragmentation_casemerge~~CalledByGraph proc~symba_fragmentation_casemerge symba_fragmentation_casemerge interface~symba_fragmentation_casemerge symba_fragmentation_casemerge interface~symba_fragmentation_casemerge->proc~symba_fragmentation_casemerge proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casemerge proc~symba_collision_resolve_mergers symba_collision_resolve_mergers proc~symba_collision_resolve_mergers->interface~symba_fragmentation_casemerge interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations interface~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers->proc~symba_collision_resolve_mergers Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_fragmentation_casemerge.html"},{"title":"symba_fragmentation_casesupercatastrophic – swiftest","text":"module function symba_fragmentation_casesupercatastrophic(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Interface → Create the fragments resulting from a supercatastrophic collision Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome Calls proc~~symba_fragmentation_casesupercatastrophic~~CallsGraph proc~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic fragmentation_initialize fragmentation_initialize proc~symba_fragmentation_casesupercatastrophic->fragmentation_initialize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_fragmentation_casesupercatastrophic~~CalledByGraph proc~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic interface~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic interface~symba_fragmentation_casesupercatastrophic->proc~symba_fragmentation_casesupercatastrophic proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casesupercatastrophic interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_fragmentation_casesupercatastrophic.html"},{"title":"symba_encounter_check_pl – swiftest","text":"module function symba_encounter_check_pl(self, system, dt, irec) result(lany_encounter) Interface → Check for an encounter between massive bodies. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter Called by proc~~symba_encounter_check_pl~~CalledByGraph proc~symba_encounter_check_pl symba_encounter_check_pl interface~symba_encounter_check_pl symba_encounter_check_pl interface~symba_encounter_check_pl->proc~symba_encounter_check_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_encounter_check_pl.html"},{"title":"symba_encounter_check_pltpenc – swiftest","text":"module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lany_encounter) Interface → Check for an encounter between test particles and massive bodies in the pltpenc list.\n Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types. Adapted from portions of David E. Kaufmann's Swifter routine: symba_step_recur.f90 Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-pl encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter Calls proc~~symba_encounter_check_pltpenc~~CallsGraph proc~symba_encounter_check_pltpenc symba_encounter_check_pltpenc ind2 ind2 proc~symba_encounter_check_pltpenc->ind2 ind1 ind1 proc~symba_encounter_check_pltpenc->ind1 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_encounter_check_pltpenc~~CalledByGraph proc~symba_encounter_check_pltpenc symba_encounter_check_pltpenc interface~symba_encounter_check_pltpenc symba_encounter_check_pltpenc interface~symba_encounter_check_pltpenc->proc~symba_encounter_check_pltpenc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_encounter_check_pltpenc.html"},{"title":"symba_encounter_check_tp – swiftest","text":"module function symba_encounter_check_tp(self, system, dt, irec) result(lany_encounter) Interface → Check for an encounter between test particles and massive bodies. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter Called by proc~~symba_encounter_check_tp~~CalledByGraph proc~symba_encounter_check_tp symba_encounter_check_tp interface~symba_encounter_check_tp symba_encounter_check_tp interface~symba_encounter_check_tp->proc~symba_encounter_check_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_encounter_check_tp.html"},{"title":"symba_encounter_check_one – swiftest","text":"pure elemental module subroutine symba_encounter_check_one(xr, yr, zr, vxr, vyr, vzr, rhill1, rhill2, dt, irec, lencounter, lvdotr) Interface → Check for an encounter. Adapted from David E. Kaufmann's Swifter routine: symba_chk.f90\n Adapted from Hal Levison's Swift routine symba5_chk.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: xr real(kind=DP), intent(in) :: yr real(kind=DP), intent(in) :: zr real(kind=DP), intent(in) :: vxr real(kind=DP), intent(in) :: vyr real(kind=DP), intent(in) :: vzr real(kind=DP), intent(in) :: rhill1 real(kind=DP), intent(in) :: rhill2 real(kind=DP), intent(in) :: dt integer(kind=I4B), intent(in) :: irec logical, intent(out) :: lencounter logical, intent(out) :: lvdotr Calls proc~~symba_encounter_check_one~~CallsGraph proc~symba_encounter_check_one symba_encounter_check_one interface~rmvs_chk_ind rmvs_chk_ind proc~symba_encounter_check_one->interface~rmvs_chk_ind proc~rmvs_chk_ind rmvs_chk_ind interface~rmvs_chk_ind->proc~rmvs_chk_ind Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_encounter_check_one~~CalledByGraph proc~symba_encounter_check_one symba_encounter_check_one interface~symba_encounter_check_one symba_encounter_check_one interface~symba_encounter_check_one->proc~symba_encounter_check_one Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_encounter_check_one.html"},{"title":"symba_io_dump_particle_info – swiftest","text":"module subroutine symba_io_dump_particle_info(self, param, msg) Interface → Dumps the particle information data to a file Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation Called by proc~~symba_io_dump_particle_info~~CalledByGraph proc~symba_io_dump_particle_info symba_io_dump_particle_info interface~symba_io_dump_particle_info symba_io_dump_particle_info interface~symba_io_dump_particle_info->proc~symba_io_dump_particle_info Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_io_dump_particle_info.html"},{"title":"symba_io_initialize_particle_info – swiftest","text":"module subroutine symba_io_initialize_particle_info(self, param) Interface → Initializes a particle info data structure, either starting a new one or reading one in \n from a file if it is a restarted run Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(inout) :: self SyMBA particle info object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters Called by proc~~symba_io_initialize_particle_info~~CalledByGraph proc~symba_io_initialize_particle_info symba_io_initialize_particle_info interface~symba_io_initialize_particle_info symba_io_initialize_particle_info interface~symba_io_initialize_particle_info->proc~symba_io_initialize_particle_info Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_io_initialize_particle_info.html"},{"title":"symba_io_param_reader – swiftest","text":"module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, iomsg) Interface → Read in parameters specific to the SyMBA integrator, then calls the base io_param_reader. Adapted from David E. Kaufmann's Swifter routine io_init_param.f90\n Adapted from Martin Duncan's Swift routine io_init_param.f Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(inout) :: self Collection of parameters integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) The first element passes the integrator code to the reader integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 Calls proc~~symba_io_param_reader~~CallsGraph proc~symba_io_param_reader symba_io_param_reader io_toupper io_toupper proc~symba_io_param_reader->io_toupper io_param_reader io_param_reader proc~symba_io_param_reader->io_param_reader io_get_token io_get_token proc~symba_io_param_reader->io_get_token Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_io_param_reader~~CalledByGraph proc~symba_io_param_reader symba_io_param_reader interface~symba_io_param_reader symba_io_param_reader interface~symba_io_param_reader->proc~symba_io_param_reader Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_io_param_reader.html"},{"title":"symba_io_param_writer – swiftest","text":"module subroutine symba_io_param_writer(self, unit, iotype, v_list, iostat, iomsg) Interface → Dump integration parameters specific to SyMBA to file and then call the base io_param_writer method. Adapted from David E. Kaufmann's Swifter routine io_dump_param.f90\n Adapted from Martin Duncan's Swift routine io_dump_param.f Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(in) :: self Collection of SyMBA parameters integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) Not used in this procedure integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 Calls proc~~symba_io_param_writer~~CallsGraph proc~symba_io_param_writer symba_io_param_writer io_param_writer io_param_writer proc~symba_io_param_writer->io_param_writer Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_io_param_writer~~CalledByGraph proc~symba_io_param_writer symba_io_param_writer interface~symba_io_param_writer symba_io_param_writer interface~symba_io_param_writer->proc~symba_io_param_writer Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_io_param_writer.html"},{"title":"symba_io_read_frame_info – swiftest","text":"module subroutine symba_io_read_frame_info(self, iu, param, form, ierr) Interface → Reads a single frame of a particle info data from a file. Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(inout) :: self SyMBA particle info object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code Called by proc~~symba_io_read_frame_info~~CalledByGraph proc~symba_io_read_frame_info symba_io_read_frame_info interface~symba_io_read_frame_info symba_io_read_frame_info interface~symba_io_read_frame_info->proc~symba_io_read_frame_info Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_io_read_frame_info.html"},{"title":"symba_io_write_discard – swiftest","text":"module subroutine symba_io_write_discard(self, param) Interface → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~symba_io_write_discard~~CallsGraph proc~symba_io_write_discard symba_io_write_discard util_exit util_exit proc~symba_io_write_discard->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_io_write_discard~~CalledByGraph proc~symba_io_write_discard symba_io_write_discard interface~symba_io_write_discard symba_io_write_discard interface~symba_io_write_discard->proc~symba_io_write_discard Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_io_write_discard.html"},{"title":"symba_io_write_frame_info – swiftest","text":"module subroutine symba_io_write_frame_info(self, iu, param) Interface → Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(in) :: self SyMBA particle info object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Called by proc~~symba_io_write_frame_info~~CalledByGraph proc~symba_io_write_frame_info symba_io_write_frame_info interface~symba_io_write_frame_info symba_io_write_frame_info interface~symba_io_write_frame_info->proc~symba_io_write_frame_info Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_io_write_frame_info.html"},{"title":"symba_discard_pl – swiftest","text":"module subroutine symba_discard_pl(self, system, param) Interface → Call the various flavors of discards for massive bodies in SyMBA runs, including discards due to colling with the central body, \n escaping the system, or colliding with each other. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters Calls proc~~symba_discard_pl~~CallsGraph proc~symba_discard_pl symba_discard_pl proc~symba_discard_nonplpl symba_discard_nonplpl proc~symba_discard_pl->proc~symba_discard_nonplpl proc~symba_discard_nonplpl_conservation symba_discard_nonplpl_conservation proc~symba_discard_pl->proc~symba_discard_nonplpl_conservation proc~symba_discard_cb_pl symba_discard_cb_pl proc~symba_discard_nonplpl->proc~symba_discard_cb_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_discard_pl~~CalledByGraph proc~symba_discard_pl symba_discard_pl interface~symba_discard_pl symba_discard_pl interface~symba_discard_pl->proc~symba_discard_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_discard_pl.html"},{"title":"symba_step_system – swiftest","text":"module subroutine symba_step_system(self, param, t, dt) Interface → Step planets and active test particles ahead in democratic heliocentric coordinates, descending the recursive\n   branch if necessary to handle possible close encounters Adapted from David E. Kaufmann's Swifter routine: symba_step.f90\n Adapted from Hal Levison's Swift routine symba5_step_pl.f Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize Calls proc~~symba_step_system~~CallsGraph proc~symba_step_system symba_step_system helio_step_system helio_step_system proc~symba_step_system->helio_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_step_system~~CalledByGraph proc~symba_step_system symba_step_system interface~symba_step_system symba_step_system interface~symba_step_system->proc~symba_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_step_system.html"},{"title":"symba_step_interp_system – swiftest","text":"module subroutine symba_step_interp_system(self, param, t, dt) Interface → Step planets and active test particles ahead in democratic heliocentric coordinates, calling the recursive\n         subroutine to descend to the appropriate level to handle close encounters Adapted from David E. Kaufmann's Swifter routine: symba_step_interp.f90\n Adapted from Hal Levison's Swift routine symba5_step_interp.f Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize Called by proc~~symba_step_interp_system~~CalledByGraph proc~symba_step_interp_system symba_step_interp_system interface~symba_step_interp_system symba_step_interp_system interface~symba_step_interp_system->proc~symba_step_interp_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_step_interp_system.html"},{"title":"symba_step_set_recur_levels_system – swiftest","text":"module subroutine symba_step_set_recur_levels_system(self, ireci) Interface → Resets pl, tp,and encounter structures at the start of a new step Adapted from David E. Kaufmann's Swifter routine: symba_step_recur.f90\n Adapted from Hal Levison's Swift routine symba5_step_recur.f Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object integer(kind=I4B), intent(in) :: ireci Input recursion level Called by proc~~symba_step_set_recur_levels_system~~CalledByGraph proc~symba_step_set_recur_levels_system symba_step_set_recur_levels_system interface~symba_step_set_recur_levels_system symba_step_set_recur_levels_system interface~symba_step_set_recur_levels_system->proc~symba_step_set_recur_levels_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_step_set_recur_levels_system.html"},{"title":"symba_step_recur_system – swiftest","text":"recursive module subroutine symba_step_recur_system(self, param, t, ireci) Interface → Step interacting planets and active test particles ahead in democratic heliocentric coordinates at the current\n         recursion level, if applicable, and descend to the next deeper level if necessarys Adapted from David E. Kaufmann's Swifter routine: symba_step_recur.f90\n Adapted from Hal Levison's Swift routine symba5_step_recur.f Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), value :: t integer(kind=I4B), value :: ireci input recursion level Calls proc~~symba_step_recur_system~~CallsGraph proc~symba_step_recur_system symba_step_recur_system util_exit util_exit proc~symba_step_recur_system->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_step_recur_system~~CalledByGraph proc~symba_step_recur_system symba_step_recur_system interface~symba_step_recur_system symba_step_recur_system interface~symba_step_recur_system->proc~symba_step_recur_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_step_recur_system.html"},{"title":"symba_step_reset_system – swiftest","text":"module subroutine symba_step_reset_system(self) Interface → Resets pl, tp,and encounter structures at the start of a new step Adapted from David E. Kaufmann's Swifter routine: symba_step.f90\n Adapted from Hal Levison's Swift routine symba5_step.f Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object Called by proc~~symba_step_reset_system~~CalledByGraph proc~symba_step_reset_system symba_step_reset_system interface~symba_step_reset_system symba_step_reset_system interface~symba_step_reset_system->proc~symba_step_reset_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_step_reset_system.html"},{"title":"symba_drift_pl – swiftest","text":"module subroutine symba_drift_pl(self, system, param, dt) Interface → Wrapper function used to call the body drift routine from a symba_pl structure Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize Calls proc~~symba_drift_pl~~CallsGraph proc~symba_drift_pl symba_drift_pl helio_drift_body helio_drift_body proc~symba_drift_pl->helio_drift_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_drift_pl~~CalledByGraph proc~symba_drift_pl symba_drift_pl interface~symba_drift_pl symba_drift_pl interface~symba_drift_pl->proc~symba_drift_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_drift_pl.html"},{"title":"symba_drift_tp – swiftest","text":"module subroutine symba_drift_tp(self, system, param, dt) Interface → Wrapper function used to call the body drift routine from a symba_pl structure Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize Calls proc~~symba_drift_tp~~CallsGraph proc~symba_drift_tp symba_drift_tp helio_drift_body helio_drift_body proc~symba_drift_tp->helio_drift_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_drift_tp~~CalledByGraph proc~symba_drift_tp symba_drift_tp interface~symba_drift_tp symba_drift_tp interface~symba_drift_tp->proc~symba_drift_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_drift_tp.html"},{"title":"fragmentation_initialize – swiftest","text":"module subroutine fragmentation_initialize(system, param, family, x, v, L_spin, Ip, mass, radius, nfrag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, Qloss, lfailure) Interface → Uses ieee_exceptions proc~~fragmentation_initialize~~UsesGraph proc~fragmentation_initialize fragmentation_initialize ieee_exceptions ieee_exceptions proc~fragmentation_initialize->ieee_exceptions 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Initialize the position and velocity of fragments to conserve energy and momentum. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: system class( swiftest_parameters ), intent(in) :: param integer(kind=I4B), intent(in), dimension(:) :: family real(kind=DP), intent(inout), dimension(:,:) :: x real(kind=DP), intent(inout), dimension(:,:) :: v real(kind=DP), intent(inout), dimension(:,:) :: L_spin real(kind=DP), intent(inout), dimension(:,:) :: Ip real(kind=DP), intent(inout), dimension(:) :: mass real(kind=DP), intent(inout), dimension(:) :: radius integer(kind=I4B), intent(inout) :: nfrag real(kind=DP), intent(inout), dimension(:,:), allocatable :: Ip_frag real(kind=DP), intent(inout), dimension(:), allocatable :: m_frag real(kind=DP), intent(inout), dimension(:), allocatable :: rad_frag real(kind=DP), intent(inout), dimension(:,:), allocatable :: xb_frag real(kind=DP), intent(inout), dimension(:,:), allocatable :: vb_frag real(kind=DP), intent(inout), dimension(:,:), allocatable :: rot_frag real(kind=DP), intent(inout) :: Qloss logical, intent(out) :: lfailure Calls proc~~fragmentation_initialize~~CallsGraph proc~fragmentation_initialize fragmentation_initialize status status proc~fragmentation_initialize->status Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~fragmentation_initialize~~CalledByGraph proc~fragmentation_initialize fragmentation_initialize interface~fragmentation_initialize fragmentation_initialize interface~fragmentation_initialize->proc~fragmentation_initialize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fragmentation_initialize.html"},{"title":"fragmentation_regime – swiftest","text":"module subroutine fragmentation_regime(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, regime, Mlr, Mslr, mtiny, Qloss) Interface → Determine the collisional regime of two colliding bodies. \n Current version requires all values to be converted to SI units prior to calling the function\n       References:\n       Kokubo, E., Genda, H., 2010. Formation of Terrestrial Planets from Protoplanets Under a Realistic Accretion \n          Condition. ApJL 714, L21. https://doi.org/10.1088/2041-8205/714/1/L21\n       Leinhardt, Z.M., Stewart, S.T., 2012. Collisions between Gravity-dominated Bodies. I. Outcome Regimes and Scaling \n          Laws 745, 79. https://doi.org/10.1088/0004-637X/745/1/79\n       Mustill, A.J., Davies, M.B., Johansen, A., 2018. The dynamical evolution of transiting planetary systems including \n          a realistic collision prescription. Mon Not R Astron Soc 478, 2896–2908. https://doi.org/10.1093/mnras/sty1273\n       Rufu, R., Aharonson, O., 2019. Impact Dynamics of Moons Within a Planetary Potential. J. Geophys. Res. Planets 124, \n          1008–1019. https://doi.org/10.1029/2018JE005798\n       Stewart, S.T., Leinhardt, Z.M., 2012. Collisions between Gravity-dominated Bodies. II. The Diversity of Impact \n          Outcomes during the End Stage of Planet Formation. ApJ 751, 32. https://doi.org/10.1088/0004-637X/751/1/32 Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: Mcb real(kind=DP), intent(in) :: m1 real(kind=DP), intent(in) :: m2 real(kind=DP), intent(in) :: rad1 real(kind=DP), intent(in) :: rad2 real(kind=DP), intent(in), dimension(:) :: xh1 real(kind=DP), intent(in), dimension(:) :: xh2 real(kind=DP), intent(in), dimension(:) :: vb1 real(kind=DP), intent(in), dimension(:) :: vb2 real(kind=DP), intent(in) :: den1 real(kind=DP), intent(in) :: den2 integer(kind=I4B), intent(out) :: regime real(kind=DP), intent(out) :: Mlr real(kind=DP), intent(out) :: Mslr real(kind=DP), intent(in) :: mtiny real(kind=DP), intent(out) :: Qloss The residual energy after the collision Called by proc~~fragmentation_regime~~CalledByGraph proc~fragmentation_regime fragmentation_regime interface~fragmentation_regime fragmentation_regime interface~fragmentation_regime->proc~fragmentation_regime Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fragmentation_regime.html"},{"title":"rmvs_discard_tp – swiftest","text":"module subroutine rmvs_discard_tp(self, system, param) Interface → Check to see if test particles should be discarded based on pericenter passage distances with respect to planets encountered Adapted from Hal Levison's Swift routine discard_pl.f\n Adapted from Hal Levison's Swift routine rmvs_discard_pl.f90 Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters Calls proc~~rmvs_discard_tp~~CallsGraph proc~rmvs_discard_tp rmvs_discard_tp discard_tp discard_tp proc~rmvs_discard_tp->discard_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_discard_tp~~CalledByGraph proc~rmvs_discard_tp rmvs_discard_tp interface~rmvs_discard_tp rmvs_discard_tp interface~rmvs_discard_tp->proc~rmvs_discard_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_discard_tp.html"},{"title":"rmvs_util_append_pl – swiftest","text":"module subroutine rmvs_util_append_pl(self, source, lsource_mask) Interface → Append components from one massive body object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~rmvs_util_append_pl~~CallsGraph proc~rmvs_util_append_pl rmvs_util_append_pl util_append util_append proc~rmvs_util_append_pl->util_append util_exit util_exit proc~rmvs_util_append_pl->util_exit whm_util_append_pl whm_util_append_pl proc~rmvs_util_append_pl->whm_util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_append_pl~~CalledByGraph proc~rmvs_util_append_pl rmvs_util_append_pl interface~rmvs_util_append_pl rmvs_util_append_pl interface~rmvs_util_append_pl->proc~rmvs_util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_append_pl.html"},{"title":"rmvs_util_append_tp – swiftest","text":"module subroutine rmvs_util_append_tp(self, source, lsource_mask) Interface → Append components from test particle object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~rmvs_util_append_tp~~CallsGraph proc~rmvs_util_append_tp rmvs_util_append_tp util_append util_append proc~rmvs_util_append_tp->util_append util_append_tp util_append_tp proc~rmvs_util_append_tp->util_append_tp util_exit util_exit proc~rmvs_util_append_tp->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_append_tp~~CalledByGraph proc~rmvs_util_append_tp rmvs_util_append_tp interface~rmvs_util_append_tp rmvs_util_append_tp interface~rmvs_util_append_tp->proc~rmvs_util_append_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_append_tp.html"},{"title":"rmvs_util_fill_pl – swiftest","text":"module subroutine rmvs_util_fill_pl(self, inserts, lfill_list) Interface → Insert new RMVS massive body structure into an old one. \n This is the inverse of a fill operation. Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Calls proc~~rmvs_util_fill_pl~~CallsGraph proc~rmvs_util_fill_pl rmvs_util_fill_pl util_fill util_fill proc~rmvs_util_fill_pl->util_fill util_exit util_exit proc~rmvs_util_fill_pl->util_exit whm_util_fill_pl whm_util_fill_pl proc~rmvs_util_fill_pl->whm_util_fill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_fill_pl~~CalledByGraph proc~rmvs_util_fill_pl rmvs_util_fill_pl interface~rmvs_util_fill_pl rmvs_util_fill_pl interface~rmvs_util_fill_pl->proc~rmvs_util_fill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_fill_pl.html"},{"title":"rmvs_util_fill_tp – swiftest","text":"module subroutine rmvs_util_fill_tp(self, inserts, lfill_list) Interface → Insert new RMVS test particle structure into an old one. \n This is the inverse of a fill operation. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Calls proc~~rmvs_util_fill_tp~~CallsGraph proc~rmvs_util_fill_tp rmvs_util_fill_tp util_fill_tp util_fill_tp proc~rmvs_util_fill_tp->util_fill_tp util_fill util_fill proc~rmvs_util_fill_tp->util_fill util_exit util_exit proc~rmvs_util_fill_tp->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_fill_tp~~CalledByGraph proc~rmvs_util_fill_tp rmvs_util_fill_tp interface~rmvs_util_fill_tp rmvs_util_fill_tp interface~rmvs_util_fill_tp->proc~rmvs_util_fill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_fill_tp.html"},{"title":"rmvs_util_resize_pl – swiftest","text":"module subroutine rmvs_util_resize_pl(self, nnew) Interface → Checks the current size of a massive body object against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~rmvs_util_resize_pl~~CallsGraph proc~rmvs_util_resize_pl rmvs_util_resize_pl whm_util_resize_pl whm_util_resize_pl proc~rmvs_util_resize_pl->whm_util_resize_pl util_resize util_resize proc~rmvs_util_resize_pl->util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_resize_pl~~CalledByGraph proc~rmvs_util_resize_pl rmvs_util_resize_pl interface~rmvs_util_resize_pl rmvs_util_resize_pl interface~rmvs_util_resize_pl->proc~rmvs_util_resize_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_resize_pl.html"},{"title":"rmvs_util_resize_tp – swiftest","text":"module subroutine rmvs_util_resize_tp(self, nnew) Interface → Checks the current size of a test particle object against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~rmvs_util_resize_tp~~CallsGraph proc~rmvs_util_resize_tp rmvs_util_resize_tp util_resize_tp util_resize_tp proc~rmvs_util_resize_tp->util_resize_tp util_resize util_resize proc~rmvs_util_resize_tp->util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_resize_tp~~CalledByGraph proc~rmvs_util_resize_tp rmvs_util_resize_tp interface~rmvs_util_resize_tp rmvs_util_resize_tp interface~rmvs_util_resize_tp->proc~rmvs_util_resize_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_resize_tp.html"},{"title":"rmvs_util_sort_pl – swiftest","text":"module subroutine rmvs_util_sort_pl(self, sortby, ascending) Interface → Sort a RMVS massive body object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order Calls proc~~rmvs_util_sort_pl~~CallsGraph proc~rmvs_util_sort_pl rmvs_util_sort_pl whm_util_sort_pl whm_util_sort_pl proc~rmvs_util_sort_pl->whm_util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_sort_pl~~CalledByGraph proc~rmvs_util_sort_pl rmvs_util_sort_pl interface~rmvs_util_sort_pl rmvs_util_sort_pl interface~rmvs_util_sort_pl->proc~rmvs_util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_sort_pl.html"},{"title":"rmvs_util_sort_tp – swiftest","text":"module subroutine rmvs_util_sort_tp(self, sortby, ascending) Interface → Sort a RMVS test particle object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order Calls proc~~rmvs_util_sort_tp~~CallsGraph proc~rmvs_util_sort_tp rmvs_util_sort_tp util_sort_tp util_sort_tp proc~rmvs_util_sort_tp->util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_sort_tp~~CalledByGraph proc~rmvs_util_sort_tp rmvs_util_sort_tp interface~rmvs_util_sort_tp rmvs_util_sort_tp interface~rmvs_util_sort_tp->proc~rmvs_util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_sort_tp.html"},{"title":"rmvs_util_sort_rearrange_pl – swiftest","text":"module subroutine rmvs_util_sort_rearrange_pl(self, ind) Interface → Rearrange RMVS massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Calls proc~~rmvs_util_sort_rearrange_pl~~CallsGraph proc~rmvs_util_sort_rearrange_pl rmvs_util_sort_rearrange_pl util_sort_rearrange_pl util_sort_rearrange_pl proc~rmvs_util_sort_rearrange_pl->util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_sort_rearrange_pl~~CalledByGraph proc~rmvs_util_sort_rearrange_pl rmvs_util_sort_rearrange_pl interface~rmvs_util_sort_rearrange_pl rmvs_util_sort_rearrange_pl interface~rmvs_util_sort_rearrange_pl->proc~rmvs_util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_sort_rearrange_pl.html"},{"title":"rmvs_util_sort_rearrange_tp – swiftest","text":"module subroutine rmvs_util_sort_rearrange_tp(self, ind) Interface → Rearrange RMVS test particle object in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Calls proc~~rmvs_util_sort_rearrange_tp~~CallsGraph proc~rmvs_util_sort_rearrange_tp rmvs_util_sort_rearrange_tp util_sort_rearrange_tp util_sort_rearrange_tp proc~rmvs_util_sort_rearrange_tp->util_sort_rearrange_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_sort_rearrange_tp~~CalledByGraph proc~rmvs_util_sort_rearrange_tp rmvs_util_sort_rearrange_tp interface~rmvs_util_sort_rearrange_tp rmvs_util_sort_rearrange_tp interface~rmvs_util_sort_rearrange_tp->proc~rmvs_util_sort_rearrange_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_sort_rearrange_tp.html"},{"title":"rmvs_util_spill_pl – swiftest","text":"module subroutine rmvs_util_spill_pl(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) RMVS test particle structure from active list to discard list Adapted from David E. Kaufmann's Swifter routine discard_discard_spill.f90 Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Calls proc~~rmvs_util_spill_pl~~CallsGraph proc~rmvs_util_spill_pl rmvs_util_spill_pl whm_util_spill_pl whm_util_spill_pl proc~rmvs_util_spill_pl->whm_util_spill_pl util_spill util_spill proc~rmvs_util_spill_pl->util_spill util_exit util_exit proc~rmvs_util_spill_pl->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_spill_pl~~CalledByGraph proc~rmvs_util_spill_pl rmvs_util_spill_pl interface~rmvs_util_spill_pl rmvs_util_spill_pl interface~rmvs_util_spill_pl->proc~rmvs_util_spill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_spill_pl.html"},{"title":"rmvs_util_spill_tp – swiftest","text":"module subroutine rmvs_util_spill_tp(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) RMVS test particle structure from active list to discard list Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Calls proc~~rmvs_util_spill_tp~~CallsGraph proc~rmvs_util_spill_tp rmvs_util_spill_tp util_spill util_spill proc~rmvs_util_spill_tp->util_spill util_spill_tp util_spill_tp proc~rmvs_util_spill_tp->util_spill_tp util_exit util_exit proc~rmvs_util_spill_tp->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_spill_tp~~CalledByGraph proc~rmvs_util_spill_tp rmvs_util_spill_tp interface~rmvs_util_spill_tp rmvs_util_spill_tp interface~rmvs_util_spill_tp->proc~rmvs_util_spill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_spill_tp.html"},{"title":"rmvs_kick_getacch_tp – swiftest","text":"module subroutine rmvs_kick_getacch_tp(self, system, param, t, lbeg) Interface → Compute the oblateness acceleration in the inner encounter region with planets Performs a similar task as David E. Kaufmann's Swifter routine rmvs_kick_getacch_tp.f90, but \n uses object polymorphism, and so is not directly adapted. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest central body particle data structuree class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Calls proc~~rmvs_kick_getacch_tp~~CallsGraph proc~rmvs_kick_getacch_tp rmvs_kick_getacch_tp whm_kick_getacch_tp whm_kick_getacch_tp proc~rmvs_kick_getacch_tp->whm_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_kick_getacch_tp~~CalledByGraph proc~rmvs_kick_getacch_tp rmvs_kick_getacch_tp interface~rmvs_kick_getacch_tp rmvs_kick_getacch_tp interface~rmvs_kick_getacch_tp->proc~rmvs_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_kick_getacch_tp.html"},{"title":"rmvs_setup_pl – swiftest","text":"module subroutine rmvs_setup_pl(self, n, param) Interface → Allocate RMVS test particle structure Equivalent in functionality to David E. Kaufmann's Swifter routine rmvs_setup.f90\n Call allocation method for parent class Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameter Calls proc~~rmvs_setup_pl~~CallsGraph proc~rmvs_setup_pl rmvs_setup_pl whm_setup_pl whm_setup_pl proc~rmvs_setup_pl->whm_setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_setup_pl~~CalledByGraph proc~rmvs_setup_pl rmvs_setup_pl interface~rmvs_setup_pl rmvs_setup_pl interface~rmvs_setup_pl->proc~rmvs_setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_setup_pl.html"},{"title":"rmvs_setup_initialize_system – swiftest","text":"module subroutine rmvs_setup_initialize_system(self, param) Interface → Initialize an RMVS nbody system from files and sets up the planetocentric structures. We currently rearrange the pl order to keep it consistent with the way Swifter does it \n In Swifter, the central body occupies the first position in the pl list, and during\n encounters, the encountering planet is skipped in loops. In Swiftest, we instantiate an\n RMVS nbody system object attached to each pl to store planetocentric versions of the system\n to use during close encounters. Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters Calls proc~~rmvs_setup_initialize_system~~CallsGraph proc~rmvs_setup_initialize_system rmvs_setup_initialize_system whm_setup_initialize_system whm_setup_initialize_system proc~rmvs_setup_initialize_system->whm_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_setup_initialize_system~~CalledByGraph proc~rmvs_setup_initialize_system rmvs_setup_initialize_system interface~rmvs_setup_initialize_system rmvs_setup_initialize_system interface~rmvs_setup_initialize_system->proc~rmvs_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_setup_initialize_system.html"},{"title":"rmvs_setup_tp – swiftest","text":"module subroutine rmvs_setup_tp(self, n, param) Interface → Allocate WHM test particle structure Equivalent in functionality to David E. Kaufmann's Swifter routine whm_setup.f90\n Call allocation method for parent class. In this case, whm does not have its own setup method, so we use the base method for swiftest_tp Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameter Calls proc~~rmvs_setup_tp~~CallsGraph proc~rmvs_setup_tp rmvs_setup_tp setup_tp setup_tp proc~rmvs_setup_tp->setup_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_setup_tp~~CalledByGraph proc~rmvs_setup_tp rmvs_setup_tp interface~rmvs_setup_tp rmvs_setup_tp interface~rmvs_setup_tp->proc~rmvs_setup_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_setup_tp.html"},{"title":"rmvs_step_system – swiftest","text":"module subroutine rmvs_step_system(self, param, t, dt) Interface → Step massive bodies and and active test particles ahead in heliocentric coordinates Adapted from Hal Levison's Swift routine rmvs3_step.f\n Adapted from David E. Kaufmann's Swifter routine rmvs_step.f90 Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsiz Calls proc~~rmvs_step_system~~CallsGraph proc~rmvs_step_system rmvs_step_system proc~rmvs_step_out rmvs_step_out proc~rmvs_step_system->proc~rmvs_step_out proc~rmvs_interp_out rmvs_interp_out proc~rmvs_step_system->proc~rmvs_interp_out whm_step_system whm_step_system proc~rmvs_step_system->whm_step_system proc~rmvs_interp_in rmvs_interp_in proc~rmvs_step_out->proc~rmvs_interp_in proc~rmvs_step_in rmvs_step_in proc~rmvs_step_out->proc~rmvs_step_in util_exit util_exit proc~rmvs_interp_out->util_exit proc~rmvs_interp_in->util_exit proc~rmvs_peri_tp rmvs_peri_tp proc~rmvs_step_in->proc~rmvs_peri_tp proc~rmvs_make_planetocentric rmvs_make_planetocentric proc~rmvs_step_in->proc~rmvs_make_planetocentric proc~rmvs_end_planetocentric rmvs_end_planetocentric proc~rmvs_step_in->proc~rmvs_end_planetocentric xpc xpc proc~rmvs_peri_tp->xpc vpc vpc proc~rmvs_peri_tp->vpc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_step_system~~CalledByGraph proc~rmvs_step_system rmvs_step_system interface~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_step_system.html"},{"title":"rmvs_encounter_check_tp – swiftest","text":"module function rmvs_encounter_check_tp(self, system, dt) result(lencounter) Interface → Determine whether a test particle and planet are having or will have an encounter within the next time step Adapted from David E. Kaufmann's Swifter routine: rmvs_chk.f90\n Adapted from Hal Levison's Swift routine rmvs3_chk.f Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object real(kind=DP), intent(in) :: dt step size Return Value logical Returns true if there is at least one close encounter Calls proc~~rmvs_encounter_check_tp~~CallsGraph proc~rmvs_encounter_check_tp rmvs_encounter_check_tp interface~rmvs_chk_ind rmvs_chk_ind proc~rmvs_encounter_check_tp->interface~rmvs_chk_ind proc~rmvs_chk_ind rmvs_chk_ind interface~rmvs_chk_ind->proc~rmvs_chk_ind Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_encounter_check_tp~~CalledByGraph proc~rmvs_encounter_check_tp rmvs_encounter_check_tp interface~rmvs_encounter_check_tp rmvs_encounter_check_tp interface~rmvs_encounter_check_tp->proc~rmvs_encounter_check_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_encounter_check_tp.html"},{"title":"rmvs_chk_ind – swiftest","text":"elemental module function rmvs_chk_ind(r2, v2, vdotr, dt, r2crit) result(lflag) Interface → Determine whether a test particle and planet are having or will have an encounter within the next time step Adapted from David E. Kaufmann's Swifter routine: rmvs_chk_ind.f90\n Adapted from Hal Levison's Swift routine rmvs_chk_ind.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: r2 real(kind=DP), intent(in) :: v2 real(kind=DP), intent(in) :: vdotr real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r2crit Return Value logical Called by proc~~rmvs_chk_ind~~CalledByGraph proc~rmvs_chk_ind rmvs_chk_ind interface~rmvs_chk_ind rmvs_chk_ind interface~rmvs_chk_ind->proc~rmvs_chk_ind proc~symba_encounter_check_one symba_encounter_check_one proc~symba_encounter_check_one->interface~rmvs_chk_ind proc~rmvs_encounter_check_tp rmvs_encounter_check_tp proc~rmvs_encounter_check_tp->interface~rmvs_chk_ind interface~rmvs_encounter_check_tp rmvs_encounter_check_tp interface~rmvs_encounter_check_tp->proc~rmvs_encounter_check_tp interface~symba_encounter_check_one symba_encounter_check_one interface~symba_encounter_check_one->proc~symba_encounter_check_one Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_chk_ind.html"},{"title":"rmvs_classes – swiftest","text":"Definition of classes and methods specific to the Regularized Mixed Variable Symplectic (RMVS) integrator\n Partially adapted from David E. Kaufmann's Swifter module: module_rmvs.f90 rmvs_cb class definitions and method interfaces rmvs_tp class definitions and method interfaces RMVS test particle class rmvs_pl class definitions and method interfaces Uses swiftest_globals whm_classes module~~rmvs_classes~~UsesGraph module~rmvs_classes rmvs_classes module~whm_classes whm_classes module~rmvs_classes->module~whm_classes module~swiftest_globals swiftest_globals module~rmvs_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by Descendants: s_rmvs_chk s_rmvs_discard s_rmvs_kick s_rmvs_setup s_rmvs_step s_rmvs_util module~~rmvs_classes~~UsedByGraph module~rmvs_classes rmvs_classes module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~rmvs_classes module~swiftest swiftest module~s_rmvs_discard->module~swiftest module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~symba_classes->module~rmvs_classes module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~rmvs_classes module~s_rmvs_chk->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~rmvs_classes module~s_rmvs_setup->module~swiftest module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~rmvs_classes module~s_rmvs_util->module~swiftest module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~rmvs_classes module~s_rmvs_step->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~rmvs_classes module~s_rmvs_kick->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest module~s_helio_kick s_helio_kick module~s_helio_kick->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~swiftest module~s_helio_coord s_helio_coord module~s_helio_coord->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~s_operator_cross s_operator_cross module~s_operator_cross->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_eucl s_eucl module~s_eucl->module~swiftest module~s_util_coord s_util_coord module~s_util_coord->module~swiftest module~s_symba_fragmentation s_symba_fragmentation module~s_symba_fragmentation->module~swiftest module~s_symba_fragmentation->module~symba_classes module~s_whm_kick s_whm_kick module~s_whm_kick->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest module~s_util_set s_util_set module~s_util_set->module~swiftest module~s_util_exit s_util_exit module~s_util_exit->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_whm_step s_whm_step module~s_whm_step->module~swiftest module~s_setup s_setup module~s_setup->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_symba_kick->module~symba_classes module~s_helio_gr s_helio_gr module~s_helio_gr->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_symba_drift->module~symba_classes module~s_whm_setup s_whm_setup module~s_whm_setup->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_util_peri s_util_peri module~s_util_peri->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~swiftest module~s_fragmentation s_fragmentation module~s_fragmentation->module~swiftest proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_symba_io->module~symba_classes module~s_util_sort s_util_sort module~s_util_sort->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_whm_util s_whm_util module~s_whm_util->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~whm_drift whm_drift module~whm_drift->module~swiftest module~s_symba_setup s_symba_setup module~s_symba_setup->module~swiftest module~s_symba_setup->module~symba_classes module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_symba_discard->module~symba_classes module~s_gr s_gr module~s_gr->module~swiftest module~s_symba_collision s_symba_collision module~s_symba_collision->module~swiftest module~s_symba_collision->module~symba_classes module~s_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~swiftest module~s_symba_encounter_check->module~symba_classes module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_symba_util->module~symba_classes module~s_symba_step s_symba_step module~s_symba_step->module~swiftest module~s_symba_step->module~symba_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Variables NTENC NTPHENC NTPENC RHSCALE RHPSCALE FACQDT Interfaces rmvs_chk_ind rmvs_encounter_check_tp rmvs_discard_tp rmvs_kick_getacch_tp rmvs_setup_pl rmvs_setup_initialize_system rmvs_setup_tp rmvs_util_append_pl rmvs_util_append_tp rmvs_util_fill_pl rmvs_util_fill_tp rmvs_util_resize_pl rmvs_util_resize_tp rmvs_util_sort_pl rmvs_util_sort_tp rmvs_util_sort_rearrange_pl rmvs_util_sort_rearrange_tp rmvs_util_spill_pl rmvs_util_spill_tp rmvs_step_system Derived Types rmvs_nbody_system rmvs_interp rmvs_cb rmvs_tp rmvs_pl Variables Type Visibility Attributes Name Initial integer(kind=I4B), private, parameter :: NTENC = 10 integer(kind=I4B), private, parameter :: NTPHENC = 3 integer(kind=I4B), private, parameter :: NTPENC = NTENC*NTPHENC real(kind=DP), private, parameter :: RHSCALE = 3.5_DP real(kind=DP), private, parameter :: RHPSCALE = 1.0_DP real(kind=DP), private, parameter :: FACQDT = 2.0_DP rmvs_nbody_system class definitions and method interfaces Interfaces interface public elemental module function rmvs_chk_ind(r2, v2, vdotr, dt, r2crit) result(lflag) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: r2 real(kind=DP), intent(in) :: v2 real(kind=DP), intent(in) :: vdotr real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r2crit Return Value logical interface public module function rmvs_encounter_check_tp(self, system, dt) result(lencounter) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object real(kind=DP), intent(in) :: dt step size Return Value logical Returns true if there is at least one close encounter interface public module subroutine rmvs_discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters interface public module subroutine rmvs_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest central body particle data structuree class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step interface public module subroutine rmvs_setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameters interface public module subroutine rmvs_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters interface public module subroutine rmvs_setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parametere interface public module subroutine rmvs_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine rmvs_util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine rmvs_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module subroutine rmvs_util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module subroutine rmvs_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine rmvs_util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine rmvs_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order interface public module subroutine rmvs_util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order interface public module subroutine rmvs_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) interface public module subroutine rmvs_util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) interface public module subroutine rmvs_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine rmvs_util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine rmvs_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize Derived Types type, public, extends( whm_nbody_system ) :: rmvs_nbody_system Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number logical, public :: lplanetocentric = .false. In the RMVS integrator, only test particles are discarded\n Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations real(kind=DP), public :: rts fraction of Hill's sphere radius to use as radius of encounter region real(kind=DP), public, dimension(:,:), allocatable :: vbeg Planet velocities at beginning ot step Type-Bound Procedures procedure, public :: discard => discard_system Perform a discard step on the system procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time procedure, public :: dump => io_dump_system Dump the state of the system to a file procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file procedure, public :: write_discard => io_write_discard Write out information about discarded test particles procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum procedure, public :: initialize => rmvs_setup_initialize_system Replace the abstract procedures with concrete ones\n Performs RMVS-specific initilization steps, including generating the close encounter planetocentric structures procedure, public :: step => rmvs_step_system Advance the RMVS nbody system forward in time by one step type, private :: rmvs_interp Components Type Visibility Attributes Name Initial real(kind=DP), public, dimension(:, :), allocatable :: x interpolated heliocentric planet position for outer encounter real(kind=DP), public, dimension(:, :), allocatable :: v interpolated heliocentric planet velocity for outer encounter real(kind=DP), public, dimension(:, :), allocatable :: aobl Encountering planet's oblateness acceleration value real(kind=DP), public, dimension(:, :), allocatable :: atide Encountering planet's tidal acceleration value type, public, extends( whm_cb ) :: rmvs_cb RMVS central body particle class Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body type( rmvs_interp ), public, dimension(:), allocatable :: outer interpolated heliocentric central body position for outer encounters type( rmvs_interp ), public, dimension(:), allocatable :: inner interpolated heliocentric central body position for inner encounters logical, public :: lplanetocentric = .false. Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body type, public, extends( whm_tp ) :: rmvs_tp Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the\n    component list, such as rmvs_setup_tp and rmvs_util_spill_tp Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp logical, public, dimension(:), allocatable :: lperi planetocentric pericenter passage flag (persistent for a full rmvs time step) over a full RMVS time step) integer(kind=I4B), public, dimension(:), allocatable :: plperP index of planet associated with pericenter distance peri (persistent over a full RMVS time step) integer(kind=I4B), public, dimension(:), allocatable :: plencP index of planet that test particle is encountering (not persistent for a full RMVS time step) type( rmvs_cb ), public :: cb_heliocentric Copy of original central body object passed to close encounter (used for oblateness acceleration during planetocentric encoountters) real(kind=DP), public, dimension(:,:), allocatable :: xheliocentric original heliocentric position (used for oblateness calculation during close encounters) integer(kind=I4B), public :: index inner substep number within current set integer(kind=I4B), public :: ipleP index value of encountering planet logical, public :: lplanetocentric = .false. Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass procedure, public :: accel_gr => whm_gr_kick_getacch_tp Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => whm_gr_p4_tp Position kick due to p**4 term in the post-Newtonian correction procedure, public :: kick => whm_kick_vh_tp Kick heliocentric velocities of test particles procedure, public :: step => whm_step_tp Steps the particle forward one stepsize procedure, public :: discard => rmvs_discard_tp Check to see if test particles should be discarded based on pericenter passage distances with respect to planets encountered procedure, public :: encounter_check => rmvs_encounter_check_tp Checks if any test particles are undergoing a close encounter with a massive body procedure, public :: accel => rmvs_kick_getacch_tp Calculates either the standard or modified version of the acceleration depending if the\n    if the test particle is undergoing a close encounter or not procedure, public :: setup => rmvs_setup_tp Constructor method - Allocates space for the input number of bodiess procedure, public :: append => rmvs_util_append_tp Appends elements from one structure to another procedure, public :: fill => rmvs_util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: resize => rmvs_util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: sort => rmvs_util_sort_tp Sorts body arrays by a sortable componen procedure, public :: rearrange => rmvs_util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => rmvs_util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) type, public, extends( whm_pl ) :: rmvs_pl RMVS massive body particle class Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl real(kind=DP), public, dimension(:), allocatable :: eta Jacobi mass real(kind=DP), public, dimension(:,:), allocatable :: xj Jacobi position real(kind=DP), public, dimension(:,:), allocatable :: vj Jacobi velocity real(kind=DP), public, dimension(:), allocatable :: muj Jacobi mu: GMcb * eta(i) / eta(i - 1) real(kind=DP), public, dimension(:), allocatable :: ir3j Third term of heliocentric acceleration\n Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the\n    component list, such as whm_setup_pl and whm_util_spill_pl integer(kind=I4B), public, dimension(:), allocatable :: nenc number of test particles encountering planet this full rmvs time step integer(kind=I4B), public, dimension(:), allocatable :: tpenc1P index of first test particle encountering planet integer(kind=I4B), public, dimension(:), allocatable :: plind Connects the planetocentric indices back to the heliocentric planet list type( rmvs_interp ), public, dimension(:), allocatable :: outer interpolated heliocentric central body position for outer encounters type( rmvs_interp ), public, dimension(:), allocatable :: inner interpolated heliocentric central body position for inner encounters class( rmvs_nbody_system ), public, dimension(:), allocatable :: planetocentric Planetocentric version of the massive body objects (one for each massive body) logical, public :: lplanetocentric = .false. Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body procedure, public :: h2j => whm_coord_h2j_pl Convert position and velcoity vectors from heliocentric to Jacobi coordinates procedure, public :: j2h => whm_coord_j2h_pl Convert position and velcoity vectors from Jacobi to helliocentric coordinates procedure, public :: vh2vj => whm_coord_vh2vj_pl Convert velocity vectors from heliocentric to Jacobi coordinates procedure, public :: drift => whm_drift_pl Loop through massive bodies and call Danby drift routine to jacobi coordinates procedure, public :: accel_gr => whm_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => whm_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction procedure, public :: accel => whm_kick_getacch_pl Compute heliocentric accelerations of massive bodies procedure, public :: kick => whm_kick_vh_pl Kick heliocentric velocities of massive bodies procedure, public :: set_ir3 => whm_util_set_ir3j Sets both the heliocentric and jacobi inverse radius terms (1/rj 3 and 1/rh 3) procedure, public :: set_mu => whm_util_set_mu_eta_pl Sets the Jacobi mass value for all massive bodies. procedure, public :: step => whm_step_pl Steps the body forward one stepsize procedure, public :: setup => rmvs_setup_pl Constructor method - Allocates space for the input number of bodiess procedure, public :: append => rmvs_util_append_pl Appends elements from one structure to another procedure, public :: fill => rmvs_util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: resize => rmvs_util_resize_pl Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: sort => rmvs_util_sort_pl Sorts body arrays by a sortable componen procedure, public :: rearrange => rmvs_util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => rmvs_util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)","tags":"","loc":"module/rmvs_classes.html"},{"title":"swiftest_globals – swiftest","text":"Basic parameters, definitions, and global type definitions used throughout the Swiftest project\n Adapted from David E. Kaufmann's Swifter routine: swiftest_globals.f90 and module_swifter.f90 Uses iso_fortran_env Contents Variables I8B I4B I2B I1B SP DP QP PIBY2 PI PI3BY2 TWOPI THIRD DEGRAD LOWERCASE_BEGIN LOWERCASE_END UPPERCASE_OFFSET VERSION_NUMBER UNKNOWN_INTEGRATOR BS HELIO RA15 TU4 WHM RMVS SYMBA RINGMOONS STRMAX ASCII_TYPE REAL4_TYPE REAL8_TYPE SWIFTER_REAL4_TYPE SWIFTER_REAL8_TYPE EL XV nthreads NTHERSHOLD SUCCESS FAILURE USAGE HELP SUCCESS_MSG FAIL_MSG USAGE_MSG HELP_MSG ELLIPSE PARABOLA HYPERBOLA ACTIVE INACTIVE DISCARDED_RMAX DISCARDED_RMIN DISCARDED_RMAXU DISCARDED_PERI DISCARDED_PLR DISCARDED_PLQ DISCARDED_DRIFTERR MERGED DISRUPTION SUPERCATASTROPHIC GRAZE_AND_MERGE HIT_AND_RUN COLLISION COLLRESOLVE_REGIME_MERGE COLLRESOLVE_REGIME_DISRUPTION COLLRESOLVE_REGIME_SUPERCATASTROPHIC COLLRESOLVE_REGIME_GRAZE_AND_MERGE COLLRESOLVE_REGIME_HIT_AND_RUN ADD SUB NDUMPFILES DUMP_CB_FILE DUMP_PL_FILE DUMP_TP_FILE DUMP_PARAM_FILE ENC_OUTFILE DISCARD_FILE ENERGY_FILE CB_INFILE PL_INFILE TP_INFILE BIN_OUTFILE BINUNIT NDIM NDIM2 VSMALL GC einsteinC Variables Type Visibility Attributes Name Initial integer, public, parameter :: I8B = int64 Symbolic name for kind types of 8-byte integers integer, public, parameter :: I4B = int32 Symbolic name for kind types of 4-byte integers integer, public, parameter :: I2B = int16 Symbolic name for kind types of 2-byte integers integer, public, parameter :: I1B = int8 Symbolic name for kind types of 1-byte integers integer, public, parameter :: SP = real32 Symbolic name for kind types of single-precision reals integer, public, parameter :: DP = real64 Symbolic name for kind types of double-precision reals integer, public, parameter :: QP = real128 Symbolic name for kind types of quad-precision reals real(kind=DP), public, parameter :: PIBY2 = 1.570796326794896619231321691639751442099_DP Definition of /(\\pi / 2) real(kind=DP), public, parameter :: PI = 3.141592653589793238462643383279502884197_DP Definition of /(\\pi) real(kind=DP), public, parameter :: PI3BY2 = 4.712388980384689857693965074919254326296_DP Definition of /(3 \\pi / 2) real(kind=DP), public, parameter :: TWOPI = 6.283185307179586476925286766559005768394_DP Definition of 2 \\pi real(kind=DP), public, parameter :: THIRD = 0.333333333333333333333333333333333333333_DP Definition of 1 / 3 real(kind=DP), public, parameter :: DEGRAD = 180.0_DP/PI Definition of conversion factor from degrees to radians integer(kind=I4B), public, parameter :: LOWERCASE_BEGIN = iachar('a') ASCII character set parameter for lower to upper conversion - start of lowercase integer(kind=I4B), public, parameter :: LOWERCASE_END = iachar('z') ASCII character set parameter for lower to upper conversion - end of lowercase integer(kind=I4B), public, parameter :: UPPERCASE_OFFSET = iachar('A')-iachar('a') ASCII character set parameter for lower to upper conversion - offset between upper and lower real(kind=SP), public, parameter :: VERSION_NUMBER = 0.1_SP swiftest version integer(kind=I4B), public, parameter :: UNKNOWN_INTEGRATOR = 1 Symbolic name for integrator types integer(kind=I4B), public, parameter :: BS = 2 integer(kind=I4B), public, parameter :: HELIO = 3 integer(kind=I4B), public, parameter :: RA15 = 4 integer(kind=I4B), public, parameter :: TU4 = 5 integer(kind=I4B), public, parameter :: WHM = 6 integer(kind=I4B), public, parameter :: RMVS = 7 integer(kind=I4B), public, parameter :: SYMBA = 8 integer(kind=I4B), public, parameter :: RINGMOONS = 9 integer(kind=I4B), public, parameter :: STRMAX = 128 Maximum size of character strings character(len=*), public, parameter :: ASCII_TYPE = 'ASCII' Symbolic name for ASCII file type character(len=*), public, parameter :: REAL4_TYPE = 'REAL4' Symbolic name for binary file type REAL4 character(len=*), public, parameter :: REAL8_TYPE = 'REAL8' Symbolic name for binary file type REAL8 character(len=*), public, parameter :: SWIFTER_REAL4_TYPE = 'SWIFTER4' Symbolic name for binary file type for the old style Swifter REAL4 character(len=*), public, parameter :: SWIFTER_REAL8_TYPE = 'SWIFTER8' Symbolic name for binary file type for the old style Swifter REAL8 character(len=*), public, parameter :: EL = 'EL' Symbolic name for binary output file contents for orbital element type character(len=*), public, parameter :: XV = 'XV' Symbolic name for binary output file contents for cartesian position and velocity type integer(kind=I4B), public :: nthreads = 1 Number of OpenMP threads integer(kind=I4B), public, parameter :: NTHERSHOLD = 1000 Threshold value for OpenMP loop parallelization integer(kind=I4B), public, parameter :: SUCCESS = 0 Symbolic name for function return/flag code for success integer(kind=I4B), public, parameter :: FAILURE = -1 Symbolic name for function return/flag code for failure integer(kind=I4B), public, parameter :: USAGE = -2 Symbolic name for function return/flag code for printing the usage message integer(kind=I4B), public, parameter :: HELP = -3 Symbolic name for function return/flag code for printing the usage message character(len=*), public, parameter :: SUCCESS_MSG = '(/, \"Normal termination of Swiftest (version \", f3.1, \")\")' character(len=*), public, parameter :: FAIL_MSG = '(/, \"Terminating Swiftest (version \", f3.1, \") due to error!!\")' character(len=*), public, parameter :: USAGE_MSG = '(\"Usage: swiftest [bs|helio|ra15|rmvs|symba|tu4|whm] \")' character(len=*), public, parameter :: HELP_MSG = USAGE_MSG integer(kind=I4B), public, parameter :: ELLIPSE = -1 Symbolic names for orbit types - ellipse integer(kind=I4B), public, parameter :: PARABOLA = 0 Symbolic names for orbit types - parabola integer(kind=I4B), public, parameter :: HYPERBOLA = 1 Symbolic names for orbit types - hyperbola integer(kind=I4B), public, parameter :: ACTIVE = 0 Symbolic names for body/particle status codes: integer(kind=I4B), public, parameter :: INACTIVE = 1 integer(kind=I4B), public, parameter :: DISCARDED_RMAX = -1 integer(kind=I4B), public, parameter :: DISCARDED_RMIN = -2 integer(kind=I4B), public, parameter :: DISCARDED_RMAXU = -3 integer(kind=I4B), public, parameter :: DISCARDED_PERI = -4 integer(kind=I4B), public, parameter :: DISCARDED_PLR = -5 integer(kind=I4B), public, parameter :: DISCARDED_PLQ = -6 integer(kind=I4B), public, parameter :: DISCARDED_DRIFTERR = -7 integer(kind=I4B), public, parameter :: MERGED = -8 integer(kind=I4B), public, parameter :: DISRUPTION = -9 integer(kind=I4B), public, parameter :: SUPERCATASTROPHIC = -10 integer(kind=I4B), public, parameter :: GRAZE_AND_MERGE = -11 integer(kind=I4B), public, parameter :: HIT_AND_RUN = -12 integer(kind=I4B), public, parameter :: COLLISION = -13 integer(kind=I4B), public, parameter :: COLLRESOLVE_REGIME_MERGE = 1 Symbolic names for collisional outcomes from collresolve_resolve: integer(kind=I4B), public, parameter :: COLLRESOLVE_REGIME_DISRUPTION = 2 integer(kind=I4B), public, parameter :: COLLRESOLVE_REGIME_SUPERCATASTROPHIC = 3 integer(kind=I4B), public, parameter :: COLLRESOLVE_REGIME_GRAZE_AND_MERGE = 4 integer(kind=I4B), public, parameter :: COLLRESOLVE_REGIME_HIT_AND_RUN = 5 character(len=*), public, parameter :: ADD = '+1' String labels for body/particle addition/subtraction in discard file character(len=*), public, parameter :: SUB = '-1' integer(kind=I4B), public, parameter :: NDUMPFILES = 2 Standard file names character(len=*), public, parameter, dimension(2) :: DUMP_CB_FILE = ['dump_cb1.bin', 'dump_cb2.bin'] character(len=*), public, parameter, dimension(2) :: DUMP_PL_FILE = ['dump_pl1.bin', 'dump_pl2.bin'] character(len=*), public, parameter, dimension(2) :: DUMP_TP_FILE = ['dump_tp1.bin', 'dump_tp2.bin'] character(len=*), public, parameter, dimension(2) :: DUMP_PARAM_FILE = ['dump_param1.dat', 'dump_param2.dat'] character(len=*), public, parameter :: ENC_OUTFILE = 'encounter.out' Default file names that can be changed by the user in the parameters file character(len=*), public, parameter :: DISCARD_FILE = 'discard.out' character(len=*), public, parameter :: ENERGY_FILE = 'energy.out' character(len=*), public, parameter :: CB_INFILE = 'cb.in' character(len=*), public, parameter :: PL_INFILE = 'pl.in' character(len=*), public, parameter :: TP_INFILE = 'tp.in' character(len=*), public, parameter :: BIN_OUTFILE = 'bin.dat' integer(kind=I4B), public, parameter :: BINUNIT = 20 File unit number for the binary output file integer(kind=I4B), public, parameter :: NDIM = 3 Miscellaneous constants:\n Number of dimensions in our reality integer(kind=I4B), public, parameter :: NDIM2 = 2*NDIM 2x the number of dimensions real(kind=DP), public, parameter :: VSMALL = 2*epsilon(1._DP) Very small number used to prevent floating underflow real(kind=DP), public, parameter :: GC = 6.6743E-11_DP Universal gravitational constant in SI units real(kind=DP), public, parameter :: einsteinC = 299792458.0_DP Speed of light in SI units","tags":"","loc":"module/swiftest_globals.html"},{"title":"swiftest_operators – swiftest","text":"Custom operators, including\n   A .cross. B = Cross product of A(1:3) and B(1:3) Each operator can also do element-wise computation on arrays of the form .mag. A(1:3, 1:n) Interfaces for .cross. operator Interfaces for .mag. operator Uses swiftest_globals module~~swiftest_operators~~UsesGraph module~swiftest_operators swiftest_operators module~swiftest_globals swiftest_globals module~swiftest_operators->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by Descendants: s_operator_mag s_operator_cross module~~swiftest_operators~~UsedByGraph module~swiftest_operators swiftest_operators module~s_operator_cross s_operator_cross module~s_operator_cross->module~swiftest_operators module~swiftest swiftest module~s_operator_cross->module~swiftest module~s_operator_mag s_operator_mag module~s_operator_mag->module~swiftest_operators module~swiftest->module~swiftest_operators module~s_obl s_obl module~s_obl->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest module~s_helio_kick s_helio_kick module~s_helio_kick->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~swiftest module~s_helio_coord s_helio_coord module~s_helio_coord->module~swiftest module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_symba_collision s_symba_collision module~s_symba_collision->module~swiftest module~s_eucl s_eucl module~s_eucl->module~swiftest module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest module~s_util_coord s_util_coord module~s_util_coord->module~swiftest module~s_symba_fragmentation s_symba_fragmentation module~s_symba_fragmentation->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest module~s_util_set s_util_set module~s_util_set->module~swiftest module~s_util_exit s_util_exit module~s_util_exit->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_whm_step s_whm_step module~s_whm_step->module~swiftest module~s_setup s_setup module~s_setup->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_util_peri s_util_peri module~s_util_peri->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~swiftest module~s_fragmentation s_fragmentation module~s_fragmentation->module~swiftest proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_whm_util s_whm_util module~s_whm_util->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~whm_drift whm_drift module~whm_drift->module~swiftest module~s_symba_setup s_symba_setup module~s_symba_setup->module~swiftest module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest module~s_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~swiftest module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~swiftest 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces operator(.cross.) operator(.mag.) Interfaces public interface operator(.cross.) public pure function operator_cross_sp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: A real(kind=SP), intent(in), dimension(:) :: B Return Value real(kind=SP),\n  dimension(3) public pure function operator_cross_dp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: A real(kind=DP), intent(in), dimension(:) :: B Return Value real(kind=DP),\n  dimension(3) public pure function operator_cross_qp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:) :: A real(kind=QP), intent(in), dimension(:) :: B Return Value real(kind=QP),\n  dimension(3) public pure function operator_cross_i1b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I1B), intent(in), dimension(:) :: A integer(kind=I1B), intent(in), dimension(:) :: B Return Value integer(kind=I1B),\n  dimension(3) public pure function operator_cross_i2b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I2B), intent(in), dimension(:) :: A integer(kind=I2B), intent(in), dimension(:) :: B Return Value integer(kind=I2B),\n  dimension(3) public pure function operator_cross_i4b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:) :: A integer(kind=I4B), intent(in), dimension(:) :: B Return Value integer(kind=I4B),\n  dimension(3) public pure function operator_cross_i8b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in), dimension(:) :: A integer(kind=I8B), intent(in), dimension(:) :: B Return Value integer(kind=I8B),\n  dimension(3) public pure function operator_cross_el_sp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:,:) :: A real(kind=SP), intent(in), dimension(:,:) :: B Return Value real(kind=SP),\n  dimension(:,:), allocatable public pure function operator_cross_el_dp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A real(kind=DP), intent(in), dimension(:,:) :: B Return Value real(kind=DP),\n  dimension(:,:), allocatable public pure function operator_cross_el_qp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:,:) :: B Return Value real(kind=QP),\n  dimension(:,:), allocatable public pure function operator_cross_el_i1b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I1B), intent(in), dimension(:,:) :: A integer(kind=I1B), intent(in), dimension(:,:) :: B Return Value integer(kind=I1B),\n  dimension(:,:), allocatable public pure function operator_cross_el_i2b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I2B), intent(in), dimension(:,:) :: A integer(kind=I2B), intent(in), dimension(:,:) :: B Return Value integer(kind=I2B),\n  dimension(:,:), allocatable public pure function operator_cross_el_i4b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:,:) :: A integer(kind=I4B), intent(in), dimension(:,:) :: B Return Value integer(kind=I4B),\n  dimension(:,:), allocatable public pure function operator_cross_el_i8b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in), dimension(:,:) :: A integer(kind=I8B), intent(in), dimension(:,:) :: B Return Value integer(kind=I8B),\n  dimension(:,:), allocatable public interface operator(.mag.) public pure function operator_mag_sp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: A Return Value real(kind=SP) public pure function operator_mag_dp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: A Return Value real(kind=DP) public pure function operator_mag_qp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:) :: A Return Value real(kind=QP) public pure function operator_mag_el_sp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:,:) :: A Return Value real(kind=SP),\n  dimension(:), allocatable public pure function operator_mag_el_dp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A Return Value real(kind=DP),\n  dimension(:), allocatable public pure function operator_mag_el_qp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A Return Value real(kind=QP),\n  dimension(:), allocatable","tags":"","loc":"module/swiftest_operators.html"},{"title":"helio_classes – swiftest","text":"Definition of classes and methods specific to the Democratic Heliocentric Method\n Adapted from David E. Kaufmann's Swifter routine: helio.f90 helio_nbody_system class definitions and method interfaces helio_cb class definitions and method interfaces helio_pl class definitions and method interfaces Helio massive body particle class helio_tp class definitions and method interfaces Helio test particle class Uses swiftest_globals swiftest_classes whm_classes module~~helio_classes~~UsesGraph module~helio_classes helio_classes module~swiftest_classes swiftest_classes module~helio_classes->module~swiftest_classes module~whm_classes whm_classes module~helio_classes->module~whm_classes module~swiftest_globals swiftest_globals module~helio_classes->module~swiftest_globals module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by Descendants: s_helio_coord s_helio_drift s_helio_gr s_helio_kick s_helio_step module~~helio_classes~~UsedByGraph module~helio_classes helio_classes module~swiftest swiftest module~swiftest->module~helio_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~s_helio_kick s_helio_kick module~s_helio_kick->module~helio_classes module~s_helio_kick->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~helio_classes module~s_helio_gr->module~swiftest module~symba_classes->module~helio_classes module~s_helio_step s_helio_step module~s_helio_step->module~helio_classes module~s_helio_step->module~swiftest module~s_helio_coord s_helio_coord module~s_helio_coord->module~helio_classes module~s_helio_coord->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~helio_classes module~s_helio_drift->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~swiftest module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~s_operator_cross s_operator_cross module~s_operator_cross->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_symba_collision s_symba_collision module~s_symba_collision->module~swiftest module~s_symba_collision->module~symba_classes module~s_eucl s_eucl module~s_eucl->module~swiftest module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest module~s_util_coord s_util_coord module~s_util_coord->module~swiftest module~s_symba_fragmentation s_symba_fragmentation module~s_symba_fragmentation->module~swiftest module~s_symba_fragmentation->module~symba_classes module~s_whm_kick s_whm_kick module~s_whm_kick->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest module~s_util_set s_util_set module~s_util_set->module~swiftest module~s_util_exit s_util_exit module~s_util_exit->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_whm_step s_whm_step module~s_whm_step->module~swiftest module~s_setup s_setup module~s_setup->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_symba_kick->module~symba_classes module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_symba_drift->module~symba_classes module~s_whm_setup s_whm_setup module~s_whm_setup->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_util_peri s_util_peri module~s_util_peri->module~swiftest module~s_fragmentation s_fragmentation module~s_fragmentation->module~swiftest proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_symba_io->module~symba_classes module~s_util_sort s_util_sort module~s_util_sort->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_whm_util s_whm_util module~s_whm_util->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~whm_drift whm_drift module~whm_drift->module~swiftest module~s_symba_setup s_symba_setup module~s_symba_setup->module~swiftest module~s_symba_setup->module~symba_classes module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_symba_discard->module~symba_classes module~s_gr s_gr module~s_gr->module~swiftest module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest module~s_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~swiftest module~s_symba_encounter_check->module~symba_classes module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_symba_util->module~symba_classes module~s_symba_step s_symba_step module~s_symba_step->module~swiftest module~s_symba_step->module~symba_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces helio_coord_vb2vh_pl helio_coord_vb2vh_tp helio_coord_vh2vb_pl helio_coord_vh2vb_tp helio_drift_body helio_drift_pl helio_drift_tp helio_drift_linear_pl helio_drift_linear_tp helio_gr_kick_getacch_pl helio_gr_kick_getacch_tp helio_gr_p4_pl helio_gr_p4_tp helio_kick_getacch_pl helio_kick_getacch_tp helio_kick_vb_pl helio_kick_vb_tp helio_step_pl helio_step_system helio_step_tp Derived Types helio_nbody_system helio_cb helio_pl helio_tp Interfaces interface public module subroutine helio_coord_vb2vh_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine helio_coord_vb2vh_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body interface public module subroutine helio_coord_vh2vb_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine helio_coord_vh2vb_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body interface public module subroutine helio_drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class(swiftest_body), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize interface public module subroutine helio_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize interface public module subroutine helio_drift_tp(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize interface public module subroutine helio_drift_linear_pl(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( helio_cb ), intent(inout) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step interface public module subroutine helio_drift_linear_tp(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( helio_cb ), intent(in) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step interface public module subroutine helio_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters interface public module subroutine helio_gr_kick_getacch_tp(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters interface public pure module subroutine helio_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size interface public pure module subroutine helio_gr_p4_tp(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size interface public module subroutine helio_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step interface public module subroutine helio_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step interface public module subroutine helio_kick_vb_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. interface public module subroutine helio_kick_vb_tp(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. interface public module subroutine helio_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize interface public module subroutine helio_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_nbody_system ), intent(inout) :: self Helio nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize interface public module subroutine helio_step_tp(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsizee Derived Types type, public, extends( whm_nbody_system ) :: helio_nbody_system Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number Type-Bound Procedures procedure, public :: discard => discard_system Perform a discard step on the system procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time procedure, public :: dump => io_dump_system Dump the state of the system to a file procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file procedure, public :: write_discard => io_write_discard Write out information about discarded test particles procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum procedure, public :: initialize => whm_setup_initialize_system Replace the abstract procedures with concrete ones\n Performs WHM-specific initilization steps, like calculating the Jacobi masses procedure, public :: step => helio_step_system Advance the Helio nbody system forward in time by one step type, public, extends( swiftest_cb ) :: helio_cb Helio central body particle class Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: ptbeg negative barycentric velocity of the central body at the beginning of time step real(kind=DP), public, dimension(NDIM) :: ptend negative barycentric velocity of the central body at the end of time step Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body type, public, extends( swiftest_pl ) :: helio_pl Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: setup => setup_pl A base constructor that sets the number of bodies and allocates and initializes all arrays procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body procedure, public :: append => util_append_pl Appends elements from one structure to another procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) procedure, public :: fill => util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: resize => util_resize_pl Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. procedure, public :: set_mu => util_set_mu_pl Method used to construct the vectorized form of the central body mass procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body procedure, public :: sort => util_sort_pl Sorts body arrays by a sortable component procedure, public :: rearrange => util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure, public :: vh2vb => helio_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) procedure, public :: vb2vh => helio_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) procedure, public :: drift => helio_drift_pl Method for Danby drift in Democratic Heliocentric coordinates procedure, public :: lindrift => helio_drift_linear_pl Method for linear drift of massive bodies due to barycentric momentum of Sun procedure, public :: accel_gr => helio_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => helio_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction procedure, public :: accel => helio_kick_getacch_pl Compute heliocentric accelerations of massive bodies procedure, public :: kick => helio_kick_vb_pl Kicks the barycentric velocities procedure, public :: step => helio_step_pl Steps the body forward one stepsize type, public, extends( swiftest_tp ) :: helio_tp Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: discard => discard_tp Check to see if test particles should be discarded based on their positions relative to the massive bodies procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: setup => setup_tp A base constructor that sets the number of bodies and procedure, public :: append => util_append_tp Appends elements from one structure to another procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) procedure, public :: fill => util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles procedure, public :: resize => util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass procedure, public :: sort => util_sort_tp Sorts body arrays by a sortable component procedure, public :: rearrange => util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure, public :: vh2vb => helio_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) procedure, public :: vb2vh => helio_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) procedure, public :: lindrift => helio_drift_linear_tp Method for linear drift of massive bodies due to barycentric momentum of Sun procedure, public :: drift => helio_drift_tp Method for Danby drift in Democratic Heliocentric coordinates procedure, public :: accel_gr => helio_gr_kick_getacch_tp Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => helio_gr_p4_tp Position kick due to p**4 term in the post-Newtonian correction procedure, public :: accel => helio_kick_getacch_tp Compute heliocentric accelerations of massive bodies procedure, public :: kick => helio_kick_vb_tp Kicks the barycentric velocities procedure, public :: step => helio_step_tp Steps the body forward one stepsize","tags":"","loc":"module/helio_classes.html"},{"title":"whm_classes – swiftest","text":"Definition of classes and methods specific to the Democratic Heliocentric Method\n Partially adapted from David E. Kaufmann's Swifter module: module_whm.f90 whm_cb class definitions and method interfaces whm_pl class definitions and method interfaces whm_tp class definitions and method interfaces WHM test particle class whm_nbody_system class definitions and method interfaces Uses swiftest_globals swiftest_classes module~~whm_classes~~UsesGraph module~whm_classes whm_classes module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes module~swiftest_globals swiftest_globals module~whm_classes->module~swiftest_globals module~swiftest_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by Descendants: s_whm_coord s_whm_gr s_whm_kick s_whm_setup s_whm_step s_whm_util whm_drift module~~whm_classes~~UsedByGraph module~whm_classes whm_classes module~s_whm_coord s_whm_coord module~s_whm_coord->module~whm_classes module~swiftest swiftest module~s_whm_coord->module~swiftest module~helio_classes helio_classes module~helio_classes->module~whm_classes module~swiftest->module~whm_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~rmvs_classes->module~whm_classes module~s_whm_util s_whm_util module~s_whm_util->module~whm_classes module~s_whm_util->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~whm_classes module~s_whm_kick->module~swiftest module~whm_drift whm_drift module~whm_drift->module~whm_classes module~whm_drift->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~whm_classes module~s_whm_setup->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~whm_classes module~s_whm_gr->module~swiftest module~s_whm_step s_whm_step module~s_whm_step->module~whm_classes module~s_whm_step->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest module~s_helio_kick s_helio_kick module~s_helio_kick->module~helio_classes module~s_helio_kick->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~helio_classes module~s_helio_step->module~swiftest module~s_helio_coord s_helio_coord module~s_helio_coord->module~helio_classes module~s_helio_coord->module~swiftest module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~s_rmvs_util->module~rmvs_classes module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~s_operator_cross s_operator_cross module~s_operator_cross->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_symba_collision s_symba_collision module~s_symba_collision->module~swiftest module~s_symba_collision->module~symba_classes module~s_eucl s_eucl module~s_eucl->module~swiftest module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest module~s_rmvs_discard->module~rmvs_classes module~s_util_coord s_util_coord module~s_util_coord->module~swiftest module~s_symba_fragmentation s_symba_fragmentation module~s_symba_fragmentation->module~swiftest module~s_symba_fragmentation->module~symba_classes module~s_util_valid s_util_valid module~s_util_valid->module~swiftest module~s_util_set s_util_set module~s_util_set->module~swiftest module~s_util_exit s_util_exit module~s_util_exit->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_rmvs_kick->module~rmvs_classes module~s_setup s_setup module~s_setup->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~helio_classes module~s_helio_gr->module~swiftest module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_symba_drift->module~symba_classes module~s_fragmentation s_fragmentation module~s_fragmentation->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~helio_classes module~s_helio_drift->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_util_peri s_util_peri module~s_util_peri->module~swiftest proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_symba_io->module~symba_classes module~s_util_sort s_util_sort module~s_util_sort->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~swiftest module~s_rmvs_chk->module~rmvs_classes module~s_kick s_kick module~s_kick->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~s_rmvs_setup->module~rmvs_classes module~s_gr s_gr module~s_gr->module~swiftest module~s_symba_setup s_symba_setup module~s_symba_setup->module~swiftest module~s_symba_setup->module~symba_classes module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_symba_discard->module~symba_classes module~s_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_symba_kick->module~symba_classes module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest module~s_rmvs_step->module~rmvs_classes module~s_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~swiftest module~s_symba_encounter_check->module~symba_classes module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_symba_util->module~symba_classes module~s_symba_step s_symba_step module~s_symba_step->module~swiftest module~s_symba_step->module~symba_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces whm_coord_h2j_pl whm_coord_j2h_pl whm_coord_vh2vj_pl whm_drift_pl whm_kick_getacch_pl whm_kick_getacch_tp whm_kick_vh_pl whm_kick_vh_tp whm_gr_kick_getacch_pl whm_gr_kick_getacch_tp whm_gr_p4_pl whm_gr_p4_tp whm_setup_pl whm_setup_initialize_system whm_step_pl whm_step_system whm_step_tp whm_util_append_pl whm_util_spill_pl whm_util_fill_pl whm_util_resize_pl whm_util_set_ir3j whm_util_set_mu_eta_pl whm_util_sort_pl whm_util_sort_rearrange_pl Derived Types whm_cb whm_pl whm_tp whm_nbody_system Interfaces interface public module subroutine whm_coord_h2j_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree interface public module subroutine whm_coord_j2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree interface public module subroutine whm_coord_vh2vj_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree interface public module subroutine whm_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize interface public module subroutine whm_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Get heliocentric accelration of massive bodies Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step interface public module subroutine whm_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Get heliocentric accelration of the test particle Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step interface public module subroutine whm_kick_vh_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. interface public module subroutine whm_kick_vh_tp(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. interface public module subroutine whm_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters interface public module subroutine whm_gr_kick_getacch_tp(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters interface public pure module subroutine whm_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size interface public pure module subroutine whm_gr_p4_tp(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size interface public module subroutine whm_setup_pl(self, n, param) Implementation → Reads WHM massive body object in from file Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body objectobject integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameters interface public module subroutine whm_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters interface public module subroutine whm_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize interface public module subroutine whm_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize interface public module subroutine whm_step_tp(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize interface public module subroutine whm_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine whm_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine whm_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: inserts inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module subroutine whm_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine whm_util_set_ir3j(self) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object interface public module subroutine whm_util_set_mu_eta_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine whm_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order interface public module subroutine whm_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Derived Types type, public, extends( swiftest_cb ) :: whm_cb Swiftest central body particle class Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body type, public, extends( swiftest_pl ) :: whm_pl WHM massive body particle class Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl real(kind=DP), public, dimension(:), allocatable :: eta Jacobi mass real(kind=DP), public, dimension(:,:), allocatable :: xj Jacobi position real(kind=DP), public, dimension(:,:), allocatable :: vj Jacobi velocity real(kind=DP), public, dimension(:), allocatable :: muj Jacobi mu: GMcb * eta(i) / eta(i - 1) real(kind=DP), public, dimension(:), allocatable :: ir3j Third term of heliocentric acceleration\n Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the\n    component list, such as whm_setup_pl and whm_util_spill_pl Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body procedure, public :: h2j => whm_coord_h2j_pl Convert position and velcoity vectors from heliocentric to Jacobi coordinates procedure, public :: j2h => whm_coord_j2h_pl Convert position and velcoity vectors from Jacobi to helliocentric coordinates procedure, public :: vh2vj => whm_coord_vh2vj_pl Convert velocity vectors from heliocentric to Jacobi coordinates procedure, public :: drift => whm_drift_pl Loop through massive bodies and call Danby drift routine to jacobi coordinates procedure, public :: accel_gr => whm_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => whm_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction procedure, public :: accel => whm_kick_getacch_pl Compute heliocentric accelerations of massive bodies procedure, public :: kick => whm_kick_vh_pl Kick heliocentric velocities of massive bodies procedure, public :: append => whm_util_append_pl Appends elements from one structure to another procedure, public :: fill => whm_util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: resize => whm_util_resize_pl Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: set_ir3 => whm_util_set_ir3j Sets both the heliocentric and jacobi inverse radius terms (1/rj 3 and 1/rh 3) procedure, public :: set_mu => whm_util_set_mu_eta_pl Sets the Jacobi mass value for all massive bodies. procedure, public :: sort => whm_util_sort_pl Sort a WHM massive body object in-place. procedure, public :: rearrange => whm_util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => whm_util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure, public :: setup => whm_setup_pl Constructor method - Allocates space for the input number of bodiess procedure, public :: step => whm_step_pl Steps the body forward one stepsize type, public, extends( swiftest_tp ) :: whm_tp Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the\n    component list, such as whm_util_spill_tp Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: discard => discard_tp Check to see if test particles should be discarded based on their positions relative to the massive bodies procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: setup => setup_tp A base constructor that sets the number of bodies and procedure, public :: append => util_append_tp Appends elements from one structure to another procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) procedure, public :: fill => util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles procedure, public :: resize => util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass procedure, public :: sort => util_sort_tp Sorts body arrays by a sortable component procedure, public :: rearrange => util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure, public :: accel_gr => whm_gr_kick_getacch_tp Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => whm_gr_p4_tp Position kick due to p**4 term in the post-Newtonian correction procedure, public :: accel => whm_kick_getacch_tp Compute heliocentric accelerations of test particles procedure, public :: kick => whm_kick_vh_tp Kick heliocentric velocities of test particles procedure, public :: step => whm_step_tp Steps the particle forward one stepsize type, public, extends( swiftest_nbody_system ) :: whm_nbody_system An abstract class for the WHM integrator nbody system Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number Type-Bound Procedures procedure, public :: discard => discard_system Perform a discard step on the system procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time procedure, public :: dump => io_dump_system Dump the state of the system to a file procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file procedure, public :: write_discard => io_write_discard Write out information about discarded test particles procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum procedure, public :: initialize => whm_setup_initialize_system Replace the abstract procedures with concrete ones\n Performs WHM-specific initilization steps, like calculating the Jacobi masses procedure, public :: step => whm_step_system Advance the WHM nbody system forward in time by one step","tags":"","loc":"module/whm_classes.html"},{"title":"symba_classes – swiftest","text":"Definition of classes and methods specific to the Democratic SyMBAcentric Method\n Adapted from David E. Kaufmann's Swifter routine: helio.f90 symba_cb class definitions and method interfaces symba_particle_info class definitions and method interfaces symba_kinship class definitions and method interfaces symba_pl class definitions and method interfaces symba_tp class definitions and method interfaces symba_pltpenc class definitions and method interfaces symba_plplenc class definitions and method interfaces symba_nbody_system class definitions and method interfaces Uses swiftest_globals swiftest_classes helio_classes rmvs_classes module~~symba_classes~~UsesGraph module~symba_classes symba_classes module~swiftest_classes swiftest_classes module~symba_classes->module~swiftest_classes module~rmvs_classes rmvs_classes module~symba_classes->module~rmvs_classes module~swiftest_globals swiftest_globals module~symba_classes->module~swiftest_globals module~helio_classes helio_classes module~symba_classes->module~helio_classes module~swiftest_classes->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~whm_classes whm_classes module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by Descendants: s_symba_collision s_symba_discard s_symba_drift s_symba_encounter_check s_symba_fragmentation s_symba_io s_symba_kick s_symba_setup s_symba_step s_symba_util module~~symba_classes~~UsedByGraph module~symba_classes symba_classes module~s_symba_io s_symba_io module~s_symba_io->module~symba_classes module~swiftest swiftest module~s_symba_io->module~swiftest module~swiftest->module~symba_classes module~s_symba_fragmentation s_symba_fragmentation module~s_symba_fragmentation->module~symba_classes module~s_symba_fragmentation->module~swiftest module~s_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~symba_classes module~s_symba_encounter_check->module~swiftest module~s_symba_setup s_symba_setup module~s_symba_setup->module~symba_classes module~s_symba_setup->module~swiftest module~s_symba_discard s_symba_discard module~s_symba_discard->module~symba_classes module~s_symba_discard->module~swiftest module~s_symba_kick s_symba_kick module~s_symba_kick->module~symba_classes module~s_symba_kick->module~swiftest module~s_symba_collision s_symba_collision module~s_symba_collision->module~symba_classes module~s_symba_collision->module~swiftest module~s_symba_drift s_symba_drift module~s_symba_drift->module~symba_classes module~s_symba_drift->module~swiftest module~s_symba_util s_symba_util module~s_symba_util->module~symba_classes module~s_symba_util->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~symba_classes module~s_symba_step->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest module~s_helio_kick s_helio_kick module~s_helio_kick->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~swiftest module~s_helio_coord s_helio_coord module~s_helio_coord->module~swiftest module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~s_operator_cross s_operator_cross module~s_operator_cross->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_eucl s_eucl module~s_eucl->module~swiftest module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest module~s_util_coord s_util_coord module~s_util_coord->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest module~s_util_set s_util_set module~s_util_set->module~swiftest module~s_util_exit s_util_exit module~s_util_exit->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_whm_step s_whm_step module~s_whm_step->module~swiftest module~s_setup s_setup module~s_setup->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_fragmentation s_fragmentation module~s_fragmentation->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_util_peri s_util_peri module~s_util_peri->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~swiftest proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_whm_util s_whm_util module~s_whm_util->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~whm_drift whm_drift module~whm_drift->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~swiftest module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Variables NENMAX NTENC RHSCALE RSHELL PARTICLE_OUTFILE PARTICLEUNIT Interfaces symba_encounter_check_pl symba_encounter_check_pltpenc symba_encounter_check_tp symba_fragmentation_casedisruption symba_fragmentation_casehitandrun symba_fragmentation_casemerge symba_fragmentation_casesupercatastrophic symba_collision_check_pltpenc symba_collision_encounter_scrub symba_collision_make_family_pl symba_collision_resolve_fragmentations symba_collision_resolve_mergers symba_discard_pl symba_drift_pl symba_drift_tp symba_encounter_check_one symba_io_write_discard symba_io_dump_particle_info symba_io_param_reader symba_io_param_writer symba_io_initialize_particle_info symba_io_read_frame_info symba_kick_getacch_pl symba_kick_getacch_tp symba_kick_pltpenc symba_io_write_frame_info symba_setup_initialize_system symba_setup_merger symba_setup_pl symba_setup_pltpenc symba_setup_tp symba_step_system symba_step_interp_system symba_step_set_recur_levels_system symba_step_recur_system symba_step_reset_system util_append symba_util_append_merger symba_util_append_pl symba_util_append_tp util_fill symba_util_fill_pl symba_util_fill_tp symba_util_peri_pl symba_util_rearray_pl util_resize symba_util_resize_merger symba_util_resize_pl symba_util_resize_tp symba_util_sort_pl symba_util_sort_tp symba_util_sort_rearrange_pl symba_util_sort_rearrange_tp util_spill symba_util_spill_pl symba_util_spill_pltpenc symba_util_spill_tp Derived Types symba_parameters symba_cb symba_particle_info symba_kinship symba_pl symba_merger symba_tp symba_pltpenc symba_plplenc symba_nbody_system Variables Type Visibility Attributes Name Initial integer(kind=I4B), private, parameter :: NENMAX = 32767 integer(kind=I4B), private, parameter :: NTENC = 3 real(kind=DP), private, parameter :: RHSCALE = 6.5_DP real(kind=DP), private, parameter :: RSHELL = 0.48075_DP character(len=*), public, parameter :: PARTICLE_OUTFILE = 'particle.dat' integer(kind=I4B), public, parameter :: PARTICLEUNIT = 44 File unit number for the binary particle info output file Interfaces interface public module function symba_encounter_check_pl(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter interface public module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-pl encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter interface public module function symba_encounter_check_tp(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter interface public module function symba_fragmentation_casedisruption(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collisionn Return Value integer(kind=I4B) Status flag assigned to this outcome interface public module function symba_fragmentation_casehitandrun(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome interface public module function symba_fragmentation_casemerge(system, param, family, x, v, mass, radius, L_spin, Ip) result(status) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(in), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collisio real(kind=DP), intent(in), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collisio real(kind=DP), intent(in), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision Return Value integer(kind=I4B) Status flag assigned to this outcome interface public module function symba_fragmentation_casesupercatastrophic(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome interface public module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t current time real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level interface public module subroutine symba_collision_encounter_scrub(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameterss interface public module subroutine symba_collision_make_family_pl(self, idx) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(2) :: idx Array holding the indices of the two bodies involved in the collision interface public module subroutine symba_collision_resolve_fragmentations(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions interface public module subroutine symba_collision_resolve_mergers(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions interface public module subroutine symba_discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters interface public module subroutine symba_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize interface public module subroutine symba_drift_tp(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize interface public pure elemental module subroutine symba_encounter_check_one(xr, yr, zr, vxr, vyr, vzr, rhill1, rhill2, dt, irec, lencounter, lvdotr) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: xr real(kind=DP), intent(in) :: yr real(kind=DP), intent(in) :: zr real(kind=DP), intent(in) :: vxr real(kind=DP), intent(in) :: vyr real(kind=DP), intent(in) :: vzr real(kind=DP), intent(in) :: rhill1 real(kind=DP), intent(in) :: rhill2 real(kind=DP), intent(in) :: dt integer(kind=I4B), intent(in) :: irec logical, intent(out) :: lencounter logical, intent(out) :: lvdotr interface public module subroutine symba_io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine symba_io_dump_particle_info(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation interface public module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(inout) :: self Current run configuration parameters with SyMBA additionss integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) The first element passes the integrator code to the reader integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 interface public module subroutine symba_io_param_writer(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(in) :: self Current run configuration parameters with SyMBA additions integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) Not used in this procedure integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 interface public module subroutine symba_io_initialize_particle_info(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(inout) :: self SyMBA particle info object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters interface public module subroutine symba_io_read_frame_info(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(inout) :: self SyMBA particle info object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code interface public module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step interface public module subroutine symba_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step interface public module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(in) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level integer(kind=I4B), intent(in) :: sgn sign to be applied to acceleration interface public module subroutine symba_io_write_frame_info(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(in) :: self SyMBA particle info object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine symba_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters interface public module subroutine symba_setup_merger(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA merger list object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine symba_setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine symba_setup_pltpenc(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for interface public module subroutine symba_setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter interface public module subroutine symba_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize interface public module subroutine symba_step_interp_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize interface public module subroutine symba_step_set_recur_levels_system(self, ireci) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system objec integer(kind=I4B), intent(in) :: ireci Input recursion level interface public recursive module subroutine symba_step_recur_system(self, param, t, ireci) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), value :: t integer(kind=I4B), value :: ireci input recursion level interface public module subroutine symba_step_reset_system(self) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object public interface util_append public subroutine symba_util_append_arr_info(arr, source, lsource_mask) Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: arr Destination array type( symba_particle_info ), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine symba_util_append_arr_kin(arr, source, lsource_mask) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Destination array type( symba_kinship ), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine symba_util_append_merger(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine symba_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine symba_util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to public interface util_fill public subroutine symba_util_fill_arr_info(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_particle_info ), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine symba_util_fill_arr_kin(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_kinship ), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module subroutine symba_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module subroutine symba_util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module subroutine symba_util_peri_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine symba_util_rearray_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions public interface util_resize public subroutine symba_util_resize_arr_info(arr, nnew) Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine symba_util_resize_arr_kin(arr, nnew) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size interface public module subroutine symba_util_resize_merger(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA merger list object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine symba_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine symba_util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine symba_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order interface public module subroutine symba_util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order interface public module subroutine symba_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) interface public module subroutine symba_util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) public interface util_spill public subroutine symba_util_spill_arr_info(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_particle_info ), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine symba_util_spill_arr_kin(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_kinship ), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine symba_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine symba_util_spill_pltpenc(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list interface public module subroutine symba_util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Derived Types type, public, extends( swiftest_parameters ) :: symba_parameters Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: integrator = UNKNOWN_INTEGRATOR Symbolic name of the nbody integrator  used integer(kind=I4B), public :: nplmax = -1 Maximum allowed number of massive bodies integer(kind=I4B), public :: ntpmax = -1 Maximum allowed number of test particles real(kind=DP), public :: t0 = -1.0_DP Integration start time real(kind=DP), public :: t = -1.0_DP Integration current time real(kind=DP), public :: tstop = -1.0_DP Integration stop time real(kind=DP), public :: dt = -1.0_DP Time step character(len=STRMAX), public :: incbfile = CB_INFILE Name of input file for the central body character(len=STRMAX), public :: inplfile = PL_INFILE Name of input file for massive bodies character(len=STRMAX), public :: intpfile = TP_INFILE Name of input file for test particles character(len=STRMAX), public :: in_type = ASCII_TYPE Format of input data files integer(kind=I4B), public :: istep_out = -1 Number of time steps between binary outputs character(len=STRMAX), public :: outfile = BIN_OUTFILE Name of output binary file character(len=STRMAX), public :: out_type = REAL8_TYPE Binary format of output file character(len=STRMAX), public :: out_form = XV Data to write to output file character(len=STRMAX), public :: out_stat = 'NEW' Open status for output binary file integer(kind=I4B), public :: istep_dump = -1 Number of time steps between dumps real(kind=DP), public :: rmin = -1.0_DP Minimum heliocentric radius for test particle real(kind=DP), public :: rmax = -1.0_DP Maximum heliocentric radius for test particle real(kind=DP), public :: rmaxu = -1.0_DP Maximum unbound heliocentric radius for test particle real(kind=DP), public :: qmin = -1.0_DP Minimum pericenter distance for test particle character(len=STRMAX), public :: qmin_coord = 'HELIO' Coordinate frame to use for qmin real(kind=DP), public :: qmin_alo = -1.0_DP Minimum semimajor axis for qmin real(kind=DP), public :: qmin_ahi = -1.0_DP Maximum semimajor axis for qmin character(len=STRMAX), public :: enc_out = \"\" Name of output file for encounters character(len=STRMAX), public :: discard_out = \"\" Name of output file for discards real(kind=QP), public :: MU2KG = -1.0_QP Converts mass units to grams real(kind=QP), public :: TU2S = -1.0_QP Converts time units to seconds real(kind=QP), public :: DU2M = -1.0_QP Converts distance unit to centimeters real(kind=DP), public :: GU = -1.0_DP Universal gravitational constant in the system units real(kind=DP), public :: inv_c2 = -1.0_DP Inverse speed of light squared in the system units character(len=STRMAX), public :: ennergy_out = \"\" Name of output energy and momentum report file logical, public :: lrhill_present = .false. Hill radii are given as an input rather than calculated by the code (can be used to inflate close encounter regions manually) logical, public :: lextra_force = .false. User defined force function turned on logical, public :: lbig_discard = .false. Save big bodies on every discard logical, public :: lclose = .false. Turn on close encounters logical, public :: lenergy = .false. Track the total energy of the system logical, public :: loblatecb = .false. Calculate acceleration from oblate central body (automatically turns true if nonzero J2 is input) logical, public :: lrotation = .false. Include rotation states of big bodies logical, public :: ltides = .false. Include tidal dissipation real(kind=DP), public :: Eorbit_orig = 0.0_DP Initial orbital energy real(kind=DP), public :: Mtot_orig = 0.0_DP Initial system mass real(kind=DP), public :: Lmag_orig = 0.0_DP Initial total angular momentum magnitude real(kind=DP), public, dimension(NDIM) :: Ltot_orig = 0.0_DP Initial total angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lorbit_orig = 0.0_DP Initial orbital angular momentum real(kind=DP), public, dimension(NDIM) :: Lspin_orig = 0.0_DP Initial spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Ltot = 0.0_DP System angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lfirstenergy = .true. This is the first time computing energe logical, public :: lfirstkick = .true. Initiate the first kick in a symplectic step logical, public :: lgr = .false. Turn on GR logical, public :: lyarkovsky = .false. Turn on Yarkovsky effect logical, public :: lyorp = .false. Turn on YORP effect character(len=STRMAX), public :: particle_file = PARTICLE_OUTFILE Name of output particle information file real(kind=DP), public :: MTINY = -1.0_DP Smallest mass that is fully gravitating integer(kind=I4B), public, dimension(:), allocatable :: seed Random seeds logical, public :: lfragmentation = .false. Do fragmentation modeling instead of simple merger. Type-Bound Procedures procedure, public :: dump => io_dump_param procedure, public :: read_from_file => io_read_param_in procedure, public :: reader => symba_io_param_reader procedure, public :: writer => symba_io_param_writer type, public, extends( helio_cb ) :: symba_cb SyMBA central body particle class Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: ptbeg negative barycentric velocity of the central body at the beginning of time step real(kind=DP), public, dimension(NDIM) :: ptend negative barycentric velocity of the central body at the end of time step real(kind=DP), public :: M0 = 0.0_DP Initial mass of the central body real(kind=DP), public :: dM = 0.0_DP Change in mass of the central body real(kind=DP), public :: R0 = 0.0_DP Initial radius of the central body real(kind=DP), public :: dR = 0.0_DP Change in the radius of the central body Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body type, public, extends( swiftest_base ) :: symba_particle_info Class definition for the particle origin information object. This object is used to track time, location, and collisional regime\n of fragments produced in collisional events. Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=32), public :: origin_type String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.) real(kind=DP), public :: origin_time The time of the particle's formation real(kind=DP), public, dimension(NDIM) :: origin_xh The heliocentric distance vector at the time of the particle's formation real(kind=DP), public, dimension(NDIM) :: origin_vh The heliocentric velocity vector at the time of the particle's formation Type-Bound Procedures procedure, public :: dump => symba_io_dump_particle_info I/O routine for dumping particle info to file procedure, public :: initialize => symba_io_initialize_particle_info I/O routine for reading in particle info data procedure, public :: read_frame => symba_io_read_frame_info I/O routine for reading in a single frame of particle info procedure, public :: write_frame => symba_io_write_frame_info I/O routine for writing out a single frame of particle info type, public :: symba_kinship Class definition for the kinship relationships used in bookkeeping multiple collisions bodies in a single time step. Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: parent Index of parent particle integer(kind=I4B), public :: nchild number of children in merger list integer(kind=I4B), public, dimension(:), allocatable :: child Index of children particles type, public, extends( helio_pl ) :: symba_pl SyMBA massive body class Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl logical, public, dimension(:), allocatable :: lcollision flag indicating whether body has merged with another this time step logical, public, dimension(:), allocatable :: lencounter flag indicating whether body is part of an encounter this time step logical, public, dimension(:), allocatable :: lmtiny flag indicating whether this body is below the MTINY cutoff value integer(kind=I4B), public :: nplm number of bodies above the MTINY limit integer(kind=I8B), public :: nplplm Number of body (all massive)-body (only those above MTINY) comparisons in the flattened upper triangular matrix integer(kind=I4B), public, dimension(:), allocatable :: nplenc number of encounters with other planets this time step integer(kind=I4B), public, dimension(:), allocatable :: ntpenc number of encounters with test particles this time step integer(kind=I4B), public, dimension(:), allocatable :: levelg level at which this body should be moved integer(kind=I4B), public, dimension(:), allocatable :: levelm deepest encounter level achieved this time step integer(kind=I4B), public, dimension(:), allocatable :: isperi perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp semimajor axis following perihelion passage type( symba_kinship ), public, dimension(:), allocatable :: kin Array of merger relationship structures that can account for multiple pairwise mergers in a single step type( symba_particle_info ), public, dimension(:), allocatable :: info Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. procedure, public :: set_mu => util_set_mu_pl Method used to construct the vectorized form of the central body mass procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body procedure, public :: vh2vb => helio_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) procedure, public :: vb2vh => helio_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) procedure, public :: lindrift => helio_drift_linear_pl Method for linear drift of massive bodies due to barycentric momentum of Sun procedure, public :: accel_gr => helio_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => helio_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction procedure, public :: kick => helio_kick_vb_pl Kicks the barycentric velocities procedure, public :: step => helio_step_pl Steps the body forward one stepsize procedure, public :: make_family => symba_collision_make_family_pl When a single body is involved in more than one collision in a single step, it becomes part of a family procedure, public :: discard => symba_discard_pl Process massive body discards procedure, public :: drift => symba_drift_pl Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level procedure, public :: encounter_check => symba_encounter_check_pl Checks if massive bodies are going through close encounters with each other procedure, public :: accel => symba_kick_getacch_pl Compute heliocentric accelerations of massive bodies procedure, public :: setup => symba_setup_pl Constructor method - Allocates space for the input number of bodies procedure, public :: append => symba_util_append_pl Appends elements from one structure to another procedure, public :: fill => symba_util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: get_peri => symba_util_peri_pl Determine system pericenter passages for massive bodies procedure, public :: rearray => symba_util_rearray_pl Clean up the massive body structures to remove discarded bodies and add new bodies procedure, public :: resize => symba_util_resize_pl Checks the current size of a SyMBA massive body against the requested size and resizes it if it is too small. procedure, public :: sort => symba_util_sort_pl Sorts body arrays by a sortable componen procedure, public :: rearrange => symba_util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => symba_util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) type, public, extends( symba_pl ) :: symba_merger Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl logical, public, dimension(:), allocatable :: lcollision flag indicating whether body has merged with another this time step logical, public, dimension(:), allocatable :: lencounter flag indicating whether body is part of an encounter this time step logical, public, dimension(:), allocatable :: lmtiny flag indicating whether this body is below the MTINY cutoff value integer(kind=I4B), public :: nplm number of bodies above the MTINY limit integer(kind=I8B), public :: nplplm Number of body (all massive)-body (only those above MTINY) comparisons in the flattened upper triangular matrix integer(kind=I4B), public, dimension(:), allocatable :: nplenc number of encounters with other planets this time step integer(kind=I4B), public, dimension(:), allocatable :: ntpenc number of encounters with test particles this time step integer(kind=I4B), public, dimension(:), allocatable :: levelg level at which this body should be moved integer(kind=I4B), public, dimension(:), allocatable :: levelm deepest encounter level achieved this time step integer(kind=I4B), public, dimension(:), allocatable :: isperi perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp semimajor axis following perihelion passage type( symba_kinship ), public, dimension(:), allocatable :: kin Array of merger relationship structures that can account for multiple pairwise mergers in a single step type( symba_particle_info ), public, dimension(:), allocatable :: info integer(kind=I4B), public, dimension(:), allocatable :: ncomp Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. procedure, public :: set_mu => util_set_mu_pl Method used to construct the vectorized form of the central body mass procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body procedure, public :: vh2vb => helio_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) procedure, public :: vb2vh => helio_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) procedure, public :: lindrift => helio_drift_linear_pl Method for linear drift of massive bodies due to barycentric momentum of Sun procedure, public :: accel_gr => helio_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => helio_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction procedure, public :: kick => helio_kick_vb_pl Kicks the barycentric velocities procedure, public :: step => helio_step_pl Steps the body forward one stepsize procedure, public :: make_family => symba_collision_make_family_pl When a single body is involved in more than one collision in a single step, it becomes part of a family procedure, public :: discard => symba_discard_pl Process massive body discards procedure, public :: drift => symba_drift_pl Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level procedure, public :: encounter_check => symba_encounter_check_pl Checks if massive bodies are going through close encounters with each other procedure, public :: accel => symba_kick_getacch_pl Compute heliocentric accelerations of massive bodies procedure, public :: fill => symba_util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: get_peri => symba_util_peri_pl Determine system pericenter passages for massive bodies procedure, public :: rearray => symba_util_rearray_pl Clean up the massive body structures to remove discarded bodies and add new bodies procedure, public :: sort => symba_util_sort_pl Sorts body arrays by a sortable componen procedure, public :: rearrange => symba_util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => symba_util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure, public :: append => symba_util_append_merger Appends elements from one structure to another procedure, public :: resize => symba_util_resize_merger Checks the current size of a SyMBA merger list against the requested size and resizes it if it is too small. procedure, public :: setup => symba_setup_merger Constructor method - Allocates space for the input number of bodies type, public, extends( helio_tp ) :: symba_tp SyMBA test particle class Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp integer(kind=I4B), public, dimension(:), allocatable :: nplenc number of encounters with planets this time step integer(kind=I4B), public, dimension(:), allocatable :: levelg level at which this particle should be moved integer(kind=I4B), public, dimension(:), allocatable :: levelm deepest encounter level achieved this time step Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: discard => discard_tp Check to see if test particles should be discarded based on their positions relative to the massive bodies procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass procedure, public :: vh2vb => helio_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) procedure, public :: vb2vh => helio_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) procedure, public :: lindrift => helio_drift_linear_tp Method for linear drift of massive bodies due to barycentric momentum of Sun procedure, public :: accel_gr => helio_gr_kick_getacch_tp Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => helio_gr_p4_tp Position kick due to p**4 term in the post-Newtonian correction procedure, public :: kick => helio_kick_vb_tp Kicks the barycentric velocities procedure, public :: step => helio_step_tp Steps the body forward one stepsize procedure, public :: drift => symba_drift_tp Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level procedure, public :: encounter_check => symba_encounter_check_tp Checks if any test particles are undergoing a close encounter with a massive body procedure, public :: accel => symba_kick_getacch_tp Compute heliocentric accelerations of test particles procedure, public :: setup => symba_setup_tp Constructor method - Allocates space for the input number of bodies procedure, public :: append => symba_util_append_tp Appends elements from one structure to another procedure, public :: fill => symba_util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: resize => symba_util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: sort => symba_util_sort_tp Sorts body arrays by a sortable componen procedure, public :: rearrange => symba_util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => symba_util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) type, public, extends( swiftest_encounter ) :: symba_pltpenc SyMBA class for tracking pl-tp close encounters in a step Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: nenc Total number of encounters logical, public, dimension(:), allocatable :: lvdotr relative vdotr flag integer(kind=I4B), public, dimension(:), allocatable :: status status of the interaction integer(kind=I4B), public, dimension(:), allocatable :: index1 position of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: index2 position of the second body in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x1 the position of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x2 the position of body 2 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v1 the velocity of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v2 the velocity of body 2 in the encounter integer(kind=I4B), public, dimension(:), allocatable :: level encounter recursion level Type-Bound Procedures procedure, public :: copy => util_copy_encounter Copies elements from the source encounter list into self. procedure, public :: resize => util_resize_encounter Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small. procedure, public :: collision_check => symba_collision_check_pltpenc Checks if a test particle is going to collide with a massive body procedure, public :: encounter_check => symba_encounter_check_pltpenc Checks if massive bodies are going through close encounters with each other procedure, public :: kick => symba_kick_pltpenc Kick barycentric velocities of active test particles within SyMBA recursion procedure, public :: setup => symba_setup_pltpenc A constructor that sets the number of encounters and allocates and initializes all arrays procedure, public :: spill => symba_util_spill_pltpenc \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) type, public, extends( symba_pltpenc ) :: symba_plplenc SyMBA class for tracking pl-pl close encounters in a step Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: nenc Total number of encounters logical, public, dimension(:), allocatable :: lvdotr relative vdotr flag integer(kind=I4B), public, dimension(:), allocatable :: status status of the interaction integer(kind=I4B), public, dimension(:), allocatable :: index1 position of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: index2 position of the second body in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x1 the position of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x2 the position of body 2 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v1 the velocity of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v2 the velocity of body 2 in the encounter integer(kind=I4B), public, dimension(:), allocatable :: level encounter recursion level Type-Bound Procedures procedure, public :: copy => util_copy_encounter Copies elements from the source encounter list into self. procedure, public :: resize => util_resize_encounter Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small. procedure, public :: collision_check => symba_collision_check_pltpenc Checks if a test particle is going to collide with a massive body procedure, public :: encounter_check => symba_encounter_check_pltpenc Checks if massive bodies are going through close encounters with each other procedure, public :: kick => symba_kick_pltpenc Kick barycentric velocities of active test particles within SyMBA recursion procedure, public :: setup => symba_setup_pltpenc A constructor that sets the number of encounters and allocates and initializes all arrays procedure, public :: spill => symba_util_spill_pltpenc \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure, public :: scrub_non_collision => symba_collision_encounter_scrub Processes the pl-pl encounter list remove only those encounters that led to a collision procedure, public :: resolve_fragmentations => symba_collision_resolve_fragmentations Process list of collisions, determine the collisional regime, and then create fragments procedure, public :: resolve_mergers => symba_collision_resolve_mergers Process list of collisions and merge colliding bodies together type, public, extends( helio_nbody_system ) :: symba_nbody_system Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number class( symba_merger ), public, allocatable :: mergeadd_list List of added bodies in mergers or collisions class( symba_merger ), public, allocatable :: mergesub_list List of subtracted bodies in mergers or collisions class( symba_pltpenc ), public, allocatable :: pltpenc_list List of massive body-test particle encounters in a single step class( symba_plplenc ), public, allocatable :: plplenc_list List of massive body-massive body encounters in a single step integer(kind=I4B), public :: irec System recursion level Type-Bound Procedures procedure, public :: discard => discard_system Perform a discard step on the system procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time procedure, public :: dump => io_dump_system Dump the state of the system to a file procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum procedure, public :: write_discard => symba_io_write_discard Write out information about discarded and merged planets and test particles in SyMBA procedure, public :: initialize => symba_setup_initialize_system Performs SyMBA-specific initilization steps procedure, public :: step => symba_step_system Advance the SyMBA nbody system forward in time by one step procedure, public :: interp => symba_step_interp_system Perform an interpolation step on the SymBA nbody system procedure, public :: set_recur_levels => symba_step_set_recur_levels_system Sets recursion levels of bodies and encounter lists to the current system level procedure, public :: recursive_step => symba_step_recur_system Step interacting planets and active test particles ahead in democratic heliocentric coordinates at the current recursion level, if applicable, and descend to the next deeper level if necessary procedure, public :: reset => symba_step_reset_system Resets pl, tp,and encounter structures at the start of a new step","tags":"","loc":"module/symba_classes.html"},{"title":"swiftest – swiftest","text":"This module serves to combine all of the Swiftest project modules under a single umbrella so that they can be accessed from individual submodule implementations with a simple \"use swiftest\" line. Uses swiftest_globals swiftest_operators swiftest_classes whm_classes rmvs_classes helio_classes symba_classes lambda_function Contents None","tags":"","loc":"module/swiftest.html"},{"title":"swiftest_classes – swiftest","text":"Definition of data and structures generic to all integrators.\n Adapted from David E. Kaufmann's Swifter routine: module_swifter.f90 swiftest_parameters class definitions swiftest_base class definitions and methods swiftest_cb class definitions and methods swiftest_body definitions and methods swiftest_pl definitions and methods swiftest_tp definitions and methods swiftest_nbody_system class definitions and methods Uses swiftest_globals module~~swiftest_classes~~UsesGraph module~swiftest_classes swiftest_classes module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by Descendants: drift_implementation s_discard s_eucl s_fragmentation s_gr s_io s_kick s_obl s_orbel s_setup s_tides_kick_getacch s_tides_step_spin s_user_kick_getacch s_util_append s_util_coord s_util_copy s_util_exit s_util_fill s_util_get_energy_momentum s_util_minimize_bfgs s_util_peri s_util_resize s_util_set s_util_solve s_util_sort s_util_spill s_util_valid s_util_version module~~swiftest_classes~~UsedByGraph module~swiftest_classes swiftest_classes module~s_obl s_obl module~s_obl->module~swiftest_classes module~swiftest swiftest module~s_obl->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest_classes module~s_util_solve->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest_classes module~s_util_spill->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest_classes module~s_util_append->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest_classes module~s_discard->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest_classes module~drift_implementation->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest_classes module~s_util_resize->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest_classes module~s_user_kick_getacch->module~swiftest module~s_eucl s_eucl module~s_eucl->module~swiftest_classes module~s_eucl->module~swiftest module~s_util_coord s_util_coord module~s_util_coord->module~swiftest_classes module~s_util_coord->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest_classes module~s_util_valid->module~swiftest module~s_util_set s_util_set module~s_util_set->module~swiftest_classes module~s_util_set->module~swiftest module~s_util_exit s_util_exit module~s_util_exit->module~swiftest_classes module~s_util_exit->module~swiftest module~whm_classes whm_classes module~whm_classes->module~swiftest_classes module~helio_classes helio_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~swiftest->module~swiftest_classes module~swiftest->module~whm_classes module~swiftest->module~helio_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~s_setup s_setup module~s_setup->module~swiftest_classes module~s_setup->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest_classes module~s_util_get_energy_momentum->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest_classes module~s_tides_kick_getacch->module~swiftest module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~s_orbel s_orbel module~s_orbel->module~swiftest_classes module~s_orbel->module~swiftest module~s_fragmentation s_fragmentation module~s_fragmentation->module~swiftest_classes module~s_fragmentation->module~swiftest module~s_io s_io module~s_io->module~swiftest_classes module~s_io->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest_classes module~s_util_version->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest_classes module~s_util_fill->module~swiftest module~s_util_peri s_util_peri module~s_util_peri->module~swiftest_classes module~s_util_peri->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest_classes module~s_tides_step_spin->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest_classes module~s_util_sort->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest_classes module~s_util_minimize_bfgs->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest_classes module~s_util_copy->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest_classes module~s_kick->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest_classes module~s_gr->module~swiftest module~s_helio_kick s_helio_kick module~s_helio_kick->module~helio_classes module~s_helio_kick->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~helio_classes module~s_helio_step->module~swiftest module~s_helio_coord s_helio_coord module~s_helio_coord->module~helio_classes module~s_helio_coord->module~swiftest module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~s_rmvs_util->module~rmvs_classes module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_symba_discard->module~symba_classes module~s_operator_cross s_operator_cross module~s_operator_cross->module~swiftest module~s_symba_collision s_symba_collision module~s_symba_collision->module~swiftest module~s_symba_collision->module~symba_classes module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest module~s_rmvs_discard->module~rmvs_classes module~s_symba_fragmentation s_symba_fragmentation module~s_symba_fragmentation->module~swiftest module~s_symba_fragmentation->module~symba_classes module~s_whm_kick s_whm_kick module~s_whm_kick->module~whm_classes module~s_whm_kick->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_rmvs_kick->module~rmvs_classes module~s_whm_step s_whm_step module~s_whm_step->module~whm_classes module~s_whm_step->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~helio_classes module~s_helio_gr->module~swiftest module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_symba_drift->module~symba_classes module~s_whm_setup s_whm_setup module~s_whm_setup->module~whm_classes module~s_whm_setup->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~helio_classes module~s_helio_drift->module~swiftest proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~whm_classes module~s_whm_coord->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_symba_io->module~symba_classes module~rmvs_classes->module~whm_classes module~s_whm_util s_whm_util module~s_whm_util->module~whm_classes module~s_whm_util->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~swiftest module~s_rmvs_chk->module~rmvs_classes module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~s_rmvs_setup->module~rmvs_classes module~whm_drift whm_drift module~whm_drift->module~whm_classes module~whm_drift->module~swiftest module~s_symba_setup s_symba_setup module~s_symba_setup->module~swiftest module~s_symba_setup->module~symba_classes module~s_whm_gr s_whm_gr module~s_whm_gr->module~whm_classes module~s_whm_gr->module~swiftest module~s_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_symba_kick->module~symba_classes module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest module~s_rmvs_step->module~rmvs_classes module~s_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~swiftest module~s_symba_encounter_check->module~symba_classes module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_symba_util->module~symba_classes module~s_symba_step s_symba_step module~s_symba_step->module~swiftest module~s_symba_step->module~symba_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces io_get_args io_get_token discard_pl discard_system discard_tp drift_all drift_body drift_one eucl_dist_index_plpl fragmentation_initialize fragmentation_regime gr_kick_getaccb_ns_body gr_kick_getacch gr_p4_pos_kick gr_pseudovel2vel gr_pv2vh_body gr_vel2pseudovel gr_vh2pv_body io_conservation_report io_dump_param io_dump_swiftest io_dump_system io_param_reader io_param_writer io_read_body_in io_read_cb_in io_read_param_in io_read_frame_body io_read_frame_cb io_read_frame_system io_write_discard io_toupper io_write_encounter io_write_frame_body io_write_frame_cb io_write_frame_system kick_getacch_int_pl kick_getacch_int_tp obl_acc_body obl_acc_pl obl_acc_tp obl_pot orbel_el2xv_vec orbel_scget orbel_xv2aeq orbel_xv2aqt orbel_xv2el_vec setup_body setup_construct_system setup_encounter setup_initialize_system setup_pl setup_tp tides_kick_getacch_pl tides_step_spin_system user_kick_getacch_body util_append util_append_body util_append_pl util_append_tp util_coord_b2h_pl util_coord_b2h_tp util_coord_h2b_pl util_coord_h2b_tp util_copy_encounter util_exit util_fill_body util_fill_pl util_fill_tp util_fill util_minimize_bfgs util_peri_tp util_solve_linear_system util_solve_rkf45 util_resize util_resize_body util_resize_encounter util_resize_pl util_resize_tp util_get_energy_momentum_system util_set_beg_end_pl util_set_ir3h util_set_msys util_set_mu_pl util_set_mu_tp util_set_rhill util_set_rhill_approximate util_sort util_sort_rearrange_body util_sort_rearrange_pl util_sort_rearrange_tp util_sort_body util_sort_pl util_sort_tp util_spill util_spill_body util_spill_encounter util_spill_pl util_spill_tp util_valid util_version Abstract Interfaces abstract_discard_body abstract_accel abstract_initialize abstract_kick_body abstract_read_frame abstract_set_mu abstract_step_body abstract_step_system abstract_write_frame Derived Types swiftest_parameters swiftest_base swiftest_cb swiftest_body swiftest_pl swiftest_tp swiftest_nbody_system swiftest_encounter Interfaces interface public module function io_get_args(integrator, param_file_name) result(ierr) Implementation → Arguments Type Intent Optional Attributes Name integer(kind=I4B) :: integrator Symbolic code of the requested integrator character(len=:), allocatable :: param_file_name Name of the input parameters file Return Value integer(kind=I4B) I/O error code interface public module function io_get_token(buffer, ifirst, ilast, ierr) result(token) Implementation → Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: buffer Input string buffer integer(kind=I4B), intent(inout) :: ifirst Index of the buffer at which to start the search for a token integer(kind=I4B), intent(out) :: ilast Index of the buffer at the end of the returned token integer(kind=I4B), intent(out) :: ierr Error code Return Value character(len=:),\n  allocatable Returned token string interface public module subroutine discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter interface public module subroutine discard_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters interface public module subroutine discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters interface public pure module subroutine drift_all(mu, x, v, n, param, dt, mask, iflag) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu Vector of gravitational constants real(kind=DP), intent(inout), dimension(:,:) :: x Position and velocity vectors real(kind=DP), intent(inout), dimension(:,:) :: v Position and velocity vectors integer(kind=I4B), intent(in) :: n number of bodies class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize logical, intent(in), dimension(:) :: mask Logical mask of size self%nbody that determines which bodies to drift. integer(kind=I4B), intent(out), dimension(:) :: iflag Vector of error flags. 0 means no problem interface public module subroutine drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize interface public pure elemental module subroutine drift_one(mu, px, py, pz, vx, vy, vz, dt, iflag) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body to drift real(kind=DP), intent(inout) :: px Position and velocity of body to drift real(kind=DP), intent(inout) :: py Position and velocity of body to drift real(kind=DP), intent(inout) :: pz Position and velocity of body to drift real(kind=DP), intent(inout) :: vx Position and velocity of body to drift real(kind=DP), intent(inout) :: vy Position and velocity of body to drift real(kind=DP), intent(inout) :: vz Position and velocity of body to drift real(kind=DP), intent(in) :: dt Step size integer(kind=I4B), intent(out) :: iflag iflag : error status flag for Danby drift (0 = OK, nonzero = ERROR) interface public module subroutine eucl_dist_index_plpl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object interface public module subroutine fragmentation_initialize(system, param, family, x, v, L_spin, Ip, mass, radius, nfrag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, Qloss, lfailure) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: system class( swiftest_parameters ), intent(in) :: param integer(kind=I4B), intent(in), dimension(:) :: family real(kind=DP), intent(inout), dimension(:,:) :: x real(kind=DP), intent(inout), dimension(:,:) :: v real(kind=DP), intent(inout), dimension(:,:) :: L_spin real(kind=DP), intent(inout), dimension(:,:) :: Ip real(kind=DP), intent(inout), dimension(:) :: mass real(kind=DP), intent(inout), dimension(:) :: radius integer(kind=I4B), intent(inout) :: nfrag real(kind=DP), intent(inout), dimension(:,:), allocatable :: Ip_frag real(kind=DP), intent(inout), dimension(:), allocatable :: m_frag real(kind=DP), intent(inout), dimension(:), allocatable :: rad_frag real(kind=DP), intent(inout), dimension(:,:), allocatable :: xb_frag real(kind=DP), intent(inout), dimension(:,:), allocatable :: vb_frag real(kind=DP), intent(inout), dimension(:,:), allocatable :: rot_frag real(kind=DP), intent(inout) :: Qloss logical, intent(out) :: lfailure interface public module subroutine fragmentation_regime(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, regime, Mlr, Mslr, mtiny, Qloss) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: Mcb real(kind=DP), intent(in) :: m1 real(kind=DP), intent(in) :: m2 real(kind=DP), intent(in) :: rad1 real(kind=DP), intent(in) :: rad2 real(kind=DP), intent(in), dimension(:) :: xh1 real(kind=DP), intent(in), dimension(:) :: xh2 real(kind=DP), intent(in), dimension(:) :: vb1 real(kind=DP), intent(in), dimension(:) :: vb2 real(kind=DP), intent(in) :: den1 real(kind=DP), intent(in) :: den2 integer(kind=I4B), intent(out) :: regime real(kind=DP), intent(out) :: Mlr real(kind=DP), intent(out) :: Mslr real(kind=DP), intent(in) :: mtiny real(kind=DP), intent(out) :: Qloss The residual energy after the collision interface public pure module subroutine gr_kick_getaccb_ns_body(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine gr_kick_getacch(mu, x, lmask, n, inv_c2, agr) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:,:) :: x Position vectors logical, intent(in), dimension(:) :: lmask Logical mask indicating which bodies to compute integer(kind=I4B), intent(in) :: n Total number of bodies real(kind=DP), intent(in) :: inv_c2 Inverse speed of light squared: 1 / c**2 real(kind=DP), intent(out), dimension(:,:) :: agr Accelerations interface public pure module subroutine gr_p4_pos_kick(param, x, v, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(inout), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(in) :: dt Step size interface public pure module subroutine gr_pseudovel2vel(param, mu, xh, pv, vh) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real(kind=DP), intent(in), dimension(:) :: xh Heliocentric position vector real(kind=DP), intent(in), dimension(:) :: pv Pseudovelocity velocity vector - see Saha & Tremain (1994), eq. (32) real(kind=DP), intent(out), dimension(:) :: vh Heliocentric velocity vector interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public pure module subroutine gr_vel2pseudovel(param, mu, xh, vh, pv) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real(kind=DP), intent(in), dimension(:) :: xh Heliocentric position vector real(kind=DP), intent(in), dimension(:) :: vh Heliocentric velocity vector real(kind=DP), intent(out), dimension(:) :: pv Pseudovelocity vector - see Saha & Tremain (1994), eq. (32) interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine io_conservation_report(self, param, lterminal) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen interface public module subroutine io_dump_param(self, param_file_name) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Output collection of parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) interface public module subroutine io_dump_swiftest(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation interface public module subroutine io_dump_system(self, param, msg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation interface public module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Collection of parameters integer(kind=I4B), intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer(kind=I4B), intent(in) :: v_list (:) The first element passes the integrator code to the reader integer(kind=I4B), intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 interface public module subroutine io_param_writer(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Collection of parameters integer(kind=I4B), intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer(kind=I4B), intent(in) :: v_list (:) Not used in this procedure integer(kind=I4B), intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters interface public module subroutine io_read_cb_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters interface public module subroutine io_read_param_in(self, param_file_name) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Current run configuration parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code interface public module subroutine io_read_frame_cb(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code interface public module subroutine io_read_frame_system(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code interface public module subroutine io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine io_toupper(string) Implementation → Arguments Type Intent Optional Attributes Name character(len=*), intent(inout) :: string String to make upper case interface public module subroutine io_write_encounter(t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: t integer(kind=I4B), intent(in) :: name1 integer(kind=I4B), intent(in) :: name2 real(kind=DP), intent(in) :: mass1 real(kind=DP), intent(in) :: mass2 real(kind=DP), intent(in) :: radius1 real(kind=DP), intent(in) :: radius2 real(kind=DP), intent(in), dimension(:) :: xh1 real(kind=DP), intent(in), dimension(:) :: xh2 real(kind=DP), intent(in), dimension(:) :: vh1 real(kind=DP), intent(in), dimension(:) :: vh2 character(len=*), intent(in) :: enc_out character(len=*), intent(in) :: out_type interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine io_write_frame_cb(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine io_write_frame_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public pure module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self interface public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies interface public module subroutine obl_acc_body(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object interface public module subroutine obl_acc_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object interface public module subroutine obl_acc_tp(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object interface public module subroutine obl_pot(npl, Mcb, Mpl, j2rp2, j4rp4, xh, irh, oblpot) Implementation → Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: npl real(kind=DP), intent(in) :: Mcb real(kind=DP), intent(in), dimension(:) :: Mpl real(kind=DP), intent(in) :: j2rp2 real(kind=DP), intent(in) :: j4rp4 real(kind=DP), intent(in), dimension(:, :) :: xh real(kind=DP), intent(in), dimension(:) :: irh real(kind=DP), intent(out) :: oblpot interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public pure module subroutine orbel_scget(angle, sx, cx) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: angle real(kind=DP), intent(out) :: sx real(kind=DP), intent(out) :: cx interface public pure module subroutine orbel_xv2aeq(mu, x, v, a, e, q) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(out) :: a semimajor axis real(kind=DP), intent(out) :: e eccentricity real(kind=DP), intent(out) :: q periapsis interface public pure module subroutine orbel_xv2aqt(mu, x, v, a, q, capm, tperi) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(out) :: a semimajor axis real(kind=DP), intent(out) :: q periapsis real(kind=DP), intent(out) :: capm mean anomaly real(kind=DP), intent(out) :: tperi time of pericenter passage interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine setup_body(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine setup_construct_system(system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout), allocatable :: system Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine setup_encounter(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for interface public module subroutine setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters interface public module subroutine setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parametersr interface public module subroutine tides_kick_getacch_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object interface public module subroutine tides_step_spin_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step public interface util_append public subroutine util_append_arr_char_string(arr, source, lsource_mask) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Destination array character(len=STRMAX), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine util_append_arr_DP(arr, source, lsource_mask) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Destination array real(kind=DP), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine util_append_arr_DPvec(arr, source, lsource_mask) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Destination array real(kind=DP), intent(in), dimension(:,:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine util_append_arr_I4B(arr, source, lsource_mask) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine util_append_arr_logical(arr, source, lsource_mask) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Destination array logical, intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine util_append_body(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine util_coord_b2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine util_coord_b2h_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object interface public module subroutine util_coord_h2b_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine util_coord_h2b_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object interface public module subroutine util_copy_encounter(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into interface public module subroutine util_exit(code) Implementation → Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: code Failure exit code interface public module subroutine util_fill_body(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module subroutine util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module subroutine util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public interface util_fill public subroutine util_fill_arr_char_string(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: keeps Array of values to keep character(len=STRMAX), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine util_fill_arr_DP(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: keeps Array of values to keep real(kind=DP), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine util_fill_arr_DPvec(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: keeps Array of values to keep real(kind=DP), intent(in), dimension(:,:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine util_fill_arr_I4B(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I4B), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine util_fill_arr_logical(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: keeps Array of values to keep logical, intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1) Implementation → Arguments Type Intent Optional Attributes Name class(lambda_obj), intent(inout) :: f integer(kind=I4B), intent(in) :: N real(kind=DP), intent(in), dimension(:) :: x0 real(kind=DP), intent(in) :: eps logical, intent(out) :: lerr Return Value real(kind=DP),\n  dimension(:), allocatable interface public module subroutine util_peri_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters public interface util_solve_linear_system public function util_solve_linear_system_d(A, b, n, lerr) result(x) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A real(kind=DP), intent(in), dimension(:) :: b integer(kind=I4B), intent(in) :: n logical, intent(out) :: lerr Return Value real(kind=DP),\n  dimension(n) public function util_solve_linear_system_q(A, b, n, lerr) result(x) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:) :: b integer(kind=I4B), intent(in) :: n logical, intent(out) :: lerr Return Value real(kind=QP),\n  dimension(n) interface public module function util_solve_rkf45(f, y0in, t1, dt0, tol) result(y1) Implementation → Arguments Type Intent Optional Attributes Name class(lambda_obj), intent(inout) :: f lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set real(kind=DP), intent(in), dimension(:) :: y0in Initial value at t=0 real(kind=DP), intent(in) :: t1 Final time real(kind=DP), intent(in) :: dt0 Initial step size guess real(kind=DP), intent(in) :: tol Tolerance on solution Return Value real(kind=DP),\n  dimension(:), allocatable Final result public interface util_resize public subroutine util_resize_arr_char_string(arr, nnew) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine util_resize_arr_DP(arr, nnew) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine util_resize_arr_DPvec(arr, nnew) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine util_resize_arr_I4B(arr, nnew) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine util_resize_arr_logical(arr, nnew) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size interface public module subroutine util_resize_body(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine util_resize_encounter(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list integer(kind=I4B), intent(in) :: nnew New size of list needed interface public module subroutine util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine util_get_energy_momentum_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg Position vectors at beginning of step real(kind=DP), intent(in), optional dimension(:,:) :: xend Positions vectors at end of step real(kind=DP), intent(in), optional dimension(:,:) :: vbeg vbeg is an unused variable to keep this method forward compatible with RMVS interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object interface public module subroutine util_set_msys(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object interface public module subroutine util_set_mu_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine util_set_mu_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine util_set_rhill(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine util_set_rhill_approximate(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object public interface util_sort public subroutine util_sort_i4b(arr) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:) :: arr public subroutine util_sort_index_i4b(arr, ind) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind public subroutine util_sort_sp(arr) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(inout), dimension(:) :: arr public subroutine util_sort_index_sp(arr, ind) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind public subroutine util_sort_dp(arr) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:) :: arr public subroutine util_sort_index_dp(arr, ind) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind interface public module subroutine util_sort_rearrange_body(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) interface public module subroutine util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) interface public module subroutine util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) interface public module subroutine util_sort_body(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order interface public module subroutine util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order interface public module subroutine util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order public interface util_spill public subroutine util_spill_arr_char_string(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: keeps Array of values to keep character(len=STRMAX), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine util_spill_arr_DP(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: keeps Array of values to keep real(kind=DP), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine util_spill_arr_DPvec(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: keeps Array of values to keep real(kind=DP), intent(inout), dimension(:,:), allocatable :: discards Array discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine util_spill_arr_I4B(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I4B), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine util_spill_arr_logical(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: keeps Array of values to keep logical, intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine util_spill_body(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine util_spill_encounter(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list interface public module subroutine util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine util_valid(pl, tp) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(in) :: pl class( swiftest_tp ), intent(in) :: tp interface public module subroutine util_version() Implementation → Arguments None Abstract Interfaces abstract interface public subroutine abstract_discard_body(self, system, param) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters abstract interface public subroutine abstract_accel(self, system, param, t, lbeg) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step abstract interface public subroutine abstract_initialize(self, param) Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters abstract interface public subroutine abstract_kick_body(self, system, param, t, dt, lbeg) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system objec class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. abstract interface public subroutine abstract_read_frame(self, iu, param, form, ierr) Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code abstract interface public subroutine abstract_set_mu(self, cb) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object abstract interface public subroutine abstract_step_body(self, system, param, t, dt) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize abstract interface public subroutine abstract_step_system(self, param, t, dt) Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize abstract interface public subroutine abstract_write_frame(self, iu, param) Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Derived Types type, public :: swiftest_parameters User defined parameters that are read in from the parameters input file. \n    Each paramter is initialized to a default values. Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: integrator = UNKNOWN_INTEGRATOR Symbolic name of the nbody integrator  used integer(kind=I4B), public :: nplmax = -1 Maximum allowed number of massive bodies integer(kind=I4B), public :: ntpmax = -1 Maximum allowed number of test particles real(kind=DP), public :: t0 = -1.0_DP Integration start time real(kind=DP), public :: t = -1.0_DP Integration current time real(kind=DP), public :: tstop = -1.0_DP Integration stop time real(kind=DP), public :: dt = -1.0_DP Time step character(len=STRMAX), public :: incbfile = CB_INFILE Name of input file for the central body character(len=STRMAX), public :: inplfile = PL_INFILE Name of input file for massive bodies character(len=STRMAX), public :: intpfile = TP_INFILE Name of input file for test particles character(len=STRMAX), public :: in_type = ASCII_TYPE Format of input data files integer(kind=I4B), public :: istep_out = -1 Number of time steps between binary outputs character(len=STRMAX), public :: outfile = BIN_OUTFILE Name of output binary file character(len=STRMAX), public :: out_type = REAL8_TYPE Binary format of output file character(len=STRMAX), public :: out_form = XV Data to write to output file character(len=STRMAX), public :: out_stat = 'NEW' Open status for output binary file integer(kind=I4B), public :: istep_dump = -1 Number of time steps between dumps real(kind=DP), public :: rmin = -1.0_DP Minimum heliocentric radius for test particle real(kind=DP), public :: rmax = -1.0_DP Maximum heliocentric radius for test particle real(kind=DP), public :: rmaxu = -1.0_DP Maximum unbound heliocentric radius for test particle real(kind=DP), public :: qmin = -1.0_DP Minimum pericenter distance for test particle character(len=STRMAX), public :: qmin_coord = 'HELIO' Coordinate frame to use for qmin real(kind=DP), public :: qmin_alo = -1.0_DP Minimum semimajor axis for qmin real(kind=DP), public :: qmin_ahi = -1.0_DP Maximum semimajor axis for qmin character(len=STRMAX), public :: enc_out = \"\" Name of output file for encounters character(len=STRMAX), public :: discard_out = \"\" Name of output file for discards real(kind=QP), public :: MU2KG = -1.0_QP Converts mass units to grams real(kind=QP), public :: TU2S = -1.0_QP Converts time units to seconds real(kind=QP), public :: DU2M = -1.0_QP Converts distance unit to centimeters real(kind=DP), public :: GU = -1.0_DP Universal gravitational constant in the system units real(kind=DP), public :: inv_c2 = -1.0_DP Inverse speed of light squared in the system units character(len=STRMAX), public :: ennergy_out = \"\" Name of output energy and momentum report file logical, public :: lrhill_present = .false. Hill radii are given as an input rather than calculated by the code (can be used to inflate close encounter regions manually) logical, public :: lextra_force = .false. User defined force function turned on logical, public :: lbig_discard = .false. Save big bodies on every discard logical, public :: lclose = .false. Turn on close encounters logical, public :: lenergy = .false. Track the total energy of the system logical, public :: loblatecb = .false. Calculate acceleration from oblate central body (automatically turns true if nonzero J2 is input) logical, public :: lrotation = .false. Include rotation states of big bodies logical, public :: ltides = .false. Include tidal dissipation real(kind=DP), public :: Eorbit_orig = 0.0_DP Initial orbital energy real(kind=DP), public :: Mtot_orig = 0.0_DP Initial system mass real(kind=DP), public :: Lmag_orig = 0.0_DP Initial total angular momentum magnitude real(kind=DP), public, dimension(NDIM) :: Ltot_orig = 0.0_DP Initial total angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lorbit_orig = 0.0_DP Initial orbital angular momentum real(kind=DP), public, dimension(NDIM) :: Lspin_orig = 0.0_DP Initial spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Ltot = 0.0_DP System angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lfirstenergy = .true. This is the first time computing energe logical, public :: lfirstkick = .true. Initiate the first kick in a symplectic step logical, public :: lgr = .false. Turn on GR logical, public :: lyarkovsky = .false. Turn on Yarkovsky effect logical, public :: lyorp = .false. Turn on YORP effect Type-Bound Procedures procedure, public :: reader => io_param_reader procedure, public :: writer => io_param_writer procedure, public :: dump => io_dump_param procedure, public :: read_from_file => io_read_param_in type, public, abstract :: swiftest_base An superclass for a generic Swiftest object\n The minimal methods that all systems must have Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure(abstract_initialize), public :: initialize procedure(abstract_read_frame), public :: read_frame procedure(abstract_write_frame), public :: write_frame type, public, abstract, extends( swiftest_base ) :: swiftest_cb A concrete lass for the central body in a Swiftest simulation Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body type, public, abstract, extends( swiftest_base ) :: swiftest_body An abstract class for a generic collection of Swiftest bodies\n Superclass that defines the generic elements of a Swiftest particle Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure(abstract_discard_body), public :: discard procedure(abstract_kick_body), public :: kick procedure(abstract_set_mu), public :: set_mu procedure(abstract_step_body), public :: step procedure(abstract_accel), public :: accel procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: accel_obl => obl_acc_body Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: setup => setup_body A constructor that sets the number of bodies and allocates all allocatable arrays procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: append => util_append_body Appends elements from one structure to another procedure, public :: fill => util_fill_body \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: resize => util_resize_body Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: sort => util_sort_body Sorts body arrays by a sortable componen procedure, public :: rearrange => util_sort_rearrange_body Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => util_spill_body \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) type, public, abstract, extends( swiftest_body ) :: swiftest_pl An abstract class for a generic collection of Swiftest massive bodies\n Superclass that defines the generic elements of a Swiftest particle Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure(abstract_kick_body), public :: kick procedure(abstract_step_body), public :: step procedure(abstract_accel), public :: accel procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: setup => setup_pl A base constructor that sets the number of bodies and allocates and initializes all arrays procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body procedure, public :: append => util_append_pl Appends elements from one structure to another procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) procedure, public :: fill => util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: resize => util_resize_pl Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. procedure, public :: set_mu => util_set_mu_pl Method used to construct the vectorized form of the central body mass procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body procedure, public :: sort => util_sort_pl Sorts body arrays by a sortable component procedure, public :: rearrange => util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) type, public, abstract, extends( swiftest_body ) :: swiftest_tp An abstract class for a generic collection of Swiftest test particles\n Superclass that defines the generic elements of a Swiftest test particle Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure(abstract_kick_body), public :: kick procedure(abstract_step_body), public :: step procedure(abstract_accel), public :: accel procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: discard => discard_tp Check to see if test particles should be discarded based on their positions relative to the massive bodies procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: setup => setup_tp A base constructor that sets the number of bodies and procedure, public :: append => util_append_tp Appends elements from one structure to another procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) procedure, public :: fill => util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles procedure, public :: resize => util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass procedure, public :: sort => util_sort_tp Sorts body arrays by a sortable component procedure, public :: rearrange => util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) type, public, abstract, extends( swiftest_base ) :: swiftest_nbody_system An abstract class for a basic Swiftest nbody system \n  This superclass contains a minimial system of a set of test particles (tp), massive bodies (pl), and a central body (cb) Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number Type-Bound Procedures procedure(abstract_step_system), public :: step Each integrator will have its own version of the step procedure, public :: discard => discard_system Perform a discard step on the system procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time procedure, public :: dump => io_dump_system Dump the state of the system to a file procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file procedure, public :: write_discard => io_write_discard Write out information about discarded test particles procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file procedure, public :: initialize => setup_initialize_system Initialize the system from input files procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum type, public :: swiftest_encounter Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: nenc Total number of encounters logical, public, dimension(:), allocatable :: lvdotr relative vdotr flag integer(kind=I4B), public, dimension(:), allocatable :: status status of the interaction integer(kind=I4B), public, dimension(:), allocatable :: index1 position of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: index2 position of the second body in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x1 the position of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x2 the position of body 2 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v1 the velocity of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v2 the velocity of body 2 in the encounter Type-Bound Procedures procedure, public :: setup => setup_encounter A constructor that sets the number of encounters and allocates and initializes all arrays procedure, public :: copy => util_copy_encounter Copies elements from the source encounter list into self. procedure, public :: spill => util_spill_encounter \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure, public :: resize => util_resize_encounter Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small.","tags":"","loc":"module/swiftest_classes.html"},{"title":"lambda_function – swiftest","text":"Defines a class that can enable objects that behave like lambda functions. To use this class, define a type of either lambda_obj or lambda_obj_err, or extend the lambda_obj class as necessary, such that an interface that matches the function you wish to lambdafy.\n Once defined, the lambda object can evaluate itself by calling the type-bound procedure eval. e.g. f%eval(x) (or f%eval(x, lerr), f%eval(x, [argument list], etc)) Example - Defining a lambda function f(x,rval,ival) where rval and ival are a real and integer argument, respectively. This implementation uses an abstract interface, though this is not\n strictly necessary unless you want to bind more than one function with the same interface. module lambda_new \n    use swiftest ! This will bring in the lambda_function module\n    ! Define types in a module type , extends ( lambda_obj ) :: lambda_obj_ri_args procedure ( abstract_lambda_ri_args ), pointer , nopass :: lambdaptr_ri_args => null () real ( DP ) :: rval !! Real parameter integer ( I4B ) :: ival !! Integer paramete contains generic :: init => lambda_ri_args_init procedure :: eval => lambda_ri_args_eval procedure , nopass :: lambda_ri_args_init final :: lambda_ri_args_destroy end type interface lambda_obj module procedure lambda_ri_args_init end interface abstract interface function abstract_lambda_ri_args ( x , rval , ival ) result ( y ) ! Template for the lambda function import DP , I4B real ( DP ), dimension (:), intent ( in ) :: x !! Dependent variable real ( DP ), intent ( in ) :: rval !! Real parameter integer ( I4B ), intent ( in ) :: ival !! Integer parameter real ( DP ) :: y !! Real result end function end interface contains\n    type(lambda_obj_ri_args) function lambda_ri_args_init(lambda, rval, ival)\n       !! Initializes the lambda function parameters (can be used as a structure constructor)\n       implicit none\n       procedure(abstract_lambda_ri_args)  :: lambda !! The lambda function that will be passed\n       real(DP),     intent(in)            :: rval     !! Real parameter\n       integer(I4B), intent(in)            :: ival     !! Integer parameter ! Assign the procedure passed to this function to the procedure pointer lambda_ri_args_init % lambdaptr_ri_args => lambda ! Assign the argument values lambda_ri_args_init % rval = rval lambda_ri_args_init % ival = ival return end function lambda_ri_args_init function lambda_ri_args_eval ( self , x ) result ( y ) !! Defines the evaluation method , allowing the lambda function to be called with a single argument implicit none class ( lambda_obj_ri_args ), intent ( inout ) :: self real ( DP ), dimension (:), intent ( in ) :: x real ( DP ) :: y if ( associated ( self % lambdaptr_ri_args )) then y = self % lambdaptr_ri_args ( x , self % rval , self % ival ) self % lastval = y if ( allocated ( self % lastarg )) deallocate ( self % lastarg ) allocate ( self % lastarg , source = x ) else error stop \"Lambda function was not initialized\" end if end function lambda_ri_args_eval subroutine lambda_ri_args_destroy ( self ) !! Finalizer method . Use this as a template for cleaning up the object upon destruction , such as nullifying pointers implicit none type ( lambda_obj_ri_args ) :: self if ( associated ( self % lambdaptr_ri_args )) nullify ( self % lambdaptr_ri_args ) end subroutine lambda_ri_args_destroy function example_function ( x , rval , ival ) result ( y ) ! This is the actual function you are going to use as the lambda function . Its interface must match the abstract interface previously defined implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: x real ( DP ), intent ( in ) :: rval integer ( I4B ), intent ( in ) :: ival ! Result real ( DP ) :: y ! Internals integer ( I4B ) :: i , n n = size ( x ) y = 42 . _DP * ival do i = 1 , n y = y + x ( i ) ** 2 end do return end function example_function end module lambda_new program usage\n    use swiftest\n    use lambda_new\n    implicit none\n    type(lambda_obj_ri_args) :: f\n    real(DP) :: sigma_par\n    integer(I4B) :: iwonky, i,j\n    real(DP), dimension(12) :: xarr sigma_par = 3 . 14 _DP iwonky = 13 f = lambda_obj ( example_function , sigma_par , iwonky ) do i = 1 , 10 xarr (:) = [( j * 0 . 25 _DP / i , j = 1 , 12 )] write ( * , * ) i , f % eval ( xarr ) end do end program usage Uses swiftest_globals module~~lambda_function~~UsesGraph module~lambda_function lambda_function module~swiftest_globals swiftest_globals module~lambda_function->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by module~~lambda_function~~UsedByGraph module~lambda_function lambda_function module~swiftest swiftest module~swiftest->module~lambda_function module~s_obl s_obl module~s_obl->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest module~s_helio_kick s_helio_kick module~s_helio_kick->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~swiftest module~s_helio_coord s_helio_coord module~s_helio_coord->module~swiftest module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~s_operator_cross s_operator_cross module~s_operator_cross->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_symba_collision s_symba_collision module~s_symba_collision->module~swiftest module~s_eucl s_eucl module~s_eucl->module~swiftest module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest module~s_util_coord s_util_coord module~s_util_coord->module~swiftest module~s_symba_fragmentation s_symba_fragmentation module~s_symba_fragmentation->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest module~s_util_set s_util_set module~s_util_set->module~swiftest module~s_util_exit s_util_exit module~s_util_exit->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_whm_step s_whm_step module~s_whm_step->module~swiftest module~s_setup s_setup module~s_setup->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_util_peri s_util_peri module~s_util_peri->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~swiftest module~s_fragmentation s_fragmentation module~s_fragmentation->module~swiftest proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_whm_util s_whm_util module~s_whm_util->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~whm_drift whm_drift module~whm_drift->module~swiftest module~s_symba_setup s_symba_setup module~s_symba_setup->module~swiftest module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest module~s_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~swiftest module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~swiftest 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces lambda_obj Abstract Interfaces lambda0 lambda0err lambda0tvar Derived Types lambda_obj lambda_obj_err lambda_obj_tvar Functions lambda_init_0 lambda_init_0_err lambda_init_tvar lambda_eval_0 lambda_eval_0_err lambda_eval_tvar Subroutines lambda_destroy Interfaces public interface lambda_obj public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) public function lambda_init_0_err (lambda, lerr) Arguments Type Intent Optional Attributes Name procedure( lambda0err ) :: lambda logical, intent(in) :: lerr Return Value type( lambda_obj_err ) public function lambda_init_tvar (lambda, t) Arguments Type Intent Optional Attributes Name procedure( lambda0tvar ) :: lambda real(kind=DP), intent(in) :: t Return Value type( lambda_obj_tvar ) Abstract Interfaces abstract interface public function lambda0(x) result(y) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: x Return Value real(kind=DP) abstract interface public function lambda0err(x, lerr) result(y) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: x logical, intent(out) :: lerr Return Value real(kind=DP) abstract interface public function lambda0tvar(x, t) result(y) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t Return Value real(kind=DP),\n  dimension(:), allocatable Derived Types type, public :: lambda_obj Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers Components Type Visibility Attributes Name Initial procedure( lambda0 ), public, pointer, nopass :: lambdaptr => null() real(kind=DP), public :: lastval real(kind=DP), public, dimension(:), allocatable :: lastarg Constructor public  function lambda_init_0 (lambda) public  function lambda_init_0_err (lambda, lerr) public  function lambda_init_tvar (lambda, t) Finalizations Procedures final :: lambda_destroy","tags":"","loc":"module/lambda_function.html"},{"title":"s_kick – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_kick~~UsesGraph module~s_kick s_kick module~swiftest_classes swiftest_classes module~s_kick->module~swiftest_classes module~swiftest swiftest module~s_kick->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines kick_getacch_int_pl kick_getacch_int_tp Module Subroutines pure module subroutine kick_getacch_int_pl (self) Interface → Author David A. Minton Compute direct cross (third) term heliocentric accelerations of massive bodies Read more… Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self pure module subroutine kick_getacch_int_tp (self, GMpl, xhp, npl) Interface → Author David A. Minton Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies","tags":"","loc":"module/s_kick.html"},{"title":"s_tides_kick_getacch – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_tides_kick_getacch~~UsesGraph module~s_tides_kick_getacch s_tides_kick_getacch module~swiftest_classes swiftest_classes module~s_tides_kick_getacch->module~swiftest_classes module~swiftest swiftest module~s_tides_kick_getacch->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines tides_kick_getacch_pl Module Subroutines module subroutine tides_kick_getacch_pl (self, system) Interface → Author Jennifer L.L. Pouplin, Carlisle A. wishard, and David A. Minton Calculated tidal torques from central body to any planet and from any planet to central body\n planet - planet interactions are considered negligable.\n This is a constant time lag model. Read more… Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object","tags":"","loc":"module/s_tides_kick_getacch.html"},{"title":"s_tides_step_spin – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_tides_step_spin~~UsesGraph module~s_tides_step_spin s_tides_step_spin module~swiftest_classes swiftest_classes module~s_tides_step_spin->module~swiftest_classes module~swiftest swiftest module~s_tides_step_spin->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces lambda_obj Abstract Interfaces tidederiv Derived Types tides_derivs_func Functions tides_spin_derivs tides_derivs_eval tides_derivs_init Module Subroutines tides_step_spin_system Interfaces interface lambda_obj function tides_derivs_init (lambda, dt, xbeg, xend) result(f) Arguments Type Intent Optional Attributes Name procedure( tidederiv ) :: lambda real(kind=DP), intent(in) :: dt real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value type( tides_derivs_func ) Abstract Interfaces abstract interface function tidederiv(x, t, dt, xbeg, xend) result(y) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t real(kind=DP), intent(in) :: dt real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value real(kind=DP),\n  dimension(:), allocatable Derived Types type, extends(lambda_obj_tvar) :: tides_derivs_func Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers Components Type Visibility Attributes Name Initial procedure( tidederiv ), public, pointer, nopass :: lambdaptr_tides_deriv real(kind=DP), public, dimension(:,:), allocatable :: xbeg real(kind=DP), public, dimension(:,:), allocatable :: xend real(kind=DP), public :: dt Type-Bound Procedures generic, public :: init => tides_derivs_init procedure, public :: evalt => tides_derivs_eval procedure, public, nopass :: tides_derivs_init Functions function tides_spin_derivs (rot_pl_cb, t, dt, xbeg, xend) result(drot) Need to add more arguments so we can pull in mass, radius, Ip, J2, etc...\n author: Jennifer L.L. Pouplin and David A. Minton Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: rot_pl_cb Array of rotations. The last element is the central body, and all others are massive bodies real(kind=DP), intent(in) :: t Current time, which is used to interpolate the massive body positions real(kind=DP), intent(in) :: dt Total step size real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value real(kind=DP),\n  dimension(:,:), allocatable function tides_derivs_eval (self, x, t) result(y) Arguments Type Intent Optional Attributes Name class( tides_derivs_func ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t Return Value real(kind=DP),\n  dimension(:), allocatable function tides_derivs_init (lambda, dt, xbeg, xend) result(f) Arguments Type Intent Optional Attributes Name procedure( tidederiv ) :: lambda real(kind=DP), intent(in) :: dt real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value type( tides_derivs_func ) Module Subroutines module subroutine tides_step_spin_system (self, param, t, dt) Interface → Author Jennifer L.L. Pouplin and David A. Minton Integrates the spin equations for central and massive bodies of the system subjected to tides. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"module/s_tides_step_spin.html"},{"title":"s_obl – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_obl~~UsesGraph module~s_obl s_obl module~swiftest_classes swiftest_classes module~s_obl->module~swiftest_classes module~swiftest swiftest module~s_obl->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines obl_acc_body obl_acc_pl obl_acc_tp obl_pot Module Subroutines module subroutine obl_acc_body (self, system) Interface → Author David A. Minton Compute the barycentric accelerations of bodies due to the oblateness of the central body\n      Returned values do not include monopole term or terms higher than J4 Read more… Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object module subroutine obl_acc_pl (self, system) Interface → Author David A. Minton Compute the barycentric accelerations of massive bodies due to the oblateness of the central body Read more… Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object module subroutine obl_acc_tp (self, system) Interface → Author David A. Minton Compute the barycentric accelerations of massive bodies due to the oblateness of the central body Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object module subroutine obl_pot (npl, Mcb, Mpl, j2rp2, j4rp4, xh, irh, oblpot) Interface → Author David A. Minton Compute the contribution to the total gravitational potential due solely to the oblateness of the central body\n    Returned value does not include monopole term or terms higher than J4 Read more… Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: npl real(kind=DP), intent(in) :: Mcb real(kind=DP), intent(in), dimension(:) :: Mpl real(kind=DP), intent(in) :: j2rp2 real(kind=DP), intent(in) :: j4rp4 real(kind=DP), intent(in), dimension(:, :) :: xh real(kind=DP), intent(in), dimension(:) :: irh real(kind=DP), intent(out) :: oblpot","tags":"","loc":"module/s_obl.html"},{"title":"s_orbel – swiftest","text":"Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 ORBEL_SCHGET.F PURPOSE : Given an angle , efficiently compute sinh and cosh . Input : angle ==> angle in radians ( real scalar ) Output : shx ==> sinh ( angle ) ( real scalar ) chx ==> cosh ( angle ) ( real scalar ) ALGORITHM : Obvious from the code REMARKS : Based on the routine SCGET for sine 's and cosine' s . We use the sqrt rather than cosh ( it 's faster) BE SURE THE ANGLE IS IN RADIANS AND IT CAN' T BE LARGER THAN 300 OR OVERFLOWS WILL OCCUR ! AUTHOR : M . Duncan . DATE WRITTEN : May 6 , 1992 . REVISIONS : Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 !                    ORBEL_FLON.F PURPOSE : Solves Kepler ' s eqn . for hyperbola using hybrid approach . Input : e ==> eccentricity anomaly . ( real scalar ) capn ==> hyperbola mean anomaly . ( real scalar ) Returns : orbel_flon ==> eccentric anomaly . ( real scalar ) ALGORITHM : Uses power series for N in terms of F and Newton , s method REMARKS : ONLY GOOD FOR LOW VALUES OF N ( N < 0 . 636 * e - 0 . 6 ) AUTHOR : M . Duncan DATE WRITTEN : May 26 , 1992 . REVISIONS : Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 ORBEL_FGET.F PURPOSE : Solves Kepler 's eqn. for hyperbola using hybrid approach. Input: e ==> eccentricity anomaly. (real scalar) capn ==> hyperbola mean anomaly. (real scalar) Returns: orbel_fget ==>  eccentric anomaly. (real scalar) ALGORITHM: Based on pp. 70-72 of Fitzpatrick' s book \"Principles of Cel. Mech. \" . Quartic convergence from Danby ' s book . REMARKS : AUTHOR : M . Duncan DATE WRITTEN : May 11 , 1992 . REVISIONS : 2 / 26 / 93 hfl Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 ORBEL_ZGET.F PURPOSE : Solves the equivalent of Kepler 's eqn. for a parabola given Q (Fitz. notation.) Input: q ==>  parabola mean anomaly. (real scalar) Returns: orbel_zget ==>  eccentric anomaly. (real scalar) ALGORITHM: p. 70-72 of Fitzpatrick' s book \"Princ. of Cel. Mech.\" REMARKS : For a parabola we can solve analytically . AUTHOR : M . Duncan DATE WRITTEN : May 11 , 1992 . REVISIONS : May 27 - corrected it for negative Q and use power series for small Q . Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 ORBEL_ESOLMD.F PURPOSE : Solves Kepler ' s eqn . e is ecc . m is mean anomaly . Input : e ==> eccentricity anomaly . ( real scalar ) m ==> mean anomaly . ( real scalar ) Returns : orbel_esolmd ==> eccentric anomaly . ( real scalar ) ALGORITHM : Some sort of quartic convergence from Wisdom . REMARKS : ONLY GOOD FOR SMALL ECCENTRICITY SINCE IT ONLY ITERATES ONCE . ( GOOD FOR PLANET CALCS .) ALSO DOES NOT PUT M OR E BETWEEN 0 . AND 2 * PI INCLUDES : needs SCGET . F AUTHOR : M . Duncan DATE WRITTEN : May 7 , 1992 . REVISIONS : 2 / 26 / 93 hfl Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 ORBEL_EHIE.F PURPOSE : Solves Kepler 's eqn.   e is ecc.   m is mean anomaly. Input: e ==> eccentricity anomaly. (real scalar) m ==> mean anomaly. (real scalar) Returns: orbel_ehybrid ==>  eccentric anomaly. (real scalar) ALGORITHM: Use Danby' s quartic for 3 iterations . Eqn . is f ( x ) = x - e * sin ( x + M ). Note that E = x + M . First guess is very good for e near 1 . Need to first get M between 0 . and PI and use symmetry to return right answer if M between PI and 2PI\n     REMARKS: Modifies M so that both E and M are in range (0,TWOPI)\n     AUTHOR: M. Duncan\n     DATE WRITTEN: May 25,1992.\n     REVISIONS: Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 ORBEL_EGET.F PURPOSE : Solves Kepler ' s eqn . e is ecc . m is mean anomaly . Input : e ==> eccentricity anomaly . ( real scalar ) m ==> mean anomaly . ( real scalar ) Returns : orbel_eget ==> eccentric anomaly . ( real scalar ) ALGORITHM : Quartic convergence from Danby REMARKS : For results very near roundoff , give it M between 0 and 2 * pi . One can condition M before calling EGET by calling my double precision function MOD2PI ( M ). This is not done within the routine to speed it up and because it works fine even for large M . AUTHOR : M . Duncan DATE WRITTEN : May 7 , 1992. REVISIONS : May 21 , 1992. Now have it go through EXACTLY two iterations with the premise that it will only be called if we have an ellipse with e between 0.15 and 0.8 Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 ORBEL_EHYBRID.F PURPOSE : Solves Kepler ' s eqn . e is ecc . m is mean anomaly . Input : e ==> eccentricity anomaly . ( real scalar ) m ==> mean anomaly . ( real scalar ) Returns : orbel_ehybrid ==> eccentric anomaly . ( real scalar ) ALGORITHM : For e < 0 . 18 uses fast routine ESOLMD For larger e but less than 0 . 8 , uses EGET For e > 0 . 8 uses EHIE REMARKS : Only EHIE brings M and E into range ( 0 , TWOPI ) AUTHOR : M . Duncan DATE WRITTEN : May 25 , 1992 . REVISIONS : 2 / 26 / 93 hfl Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 ORBEL_FHYBRID.F PURPOSE : Solves Kepler ' s eqn . for hyperbola using hybrid approach . Input : e ==> eccentricity anomaly . ( real scalar ) n ==> hyperbola mean anomaly . ( real scalar ) Returns : orbel_fhybrid ==> eccentric anomaly . ( real scalar ) ALGORITHM : For abs ( N ) < 0 . 636 * ecc - 0 . 6 , use FLON For larger N , uses FGET REMARKS : AUTHOR : M . Duncan DATE WRITTEN : May 26 , 1992 . REVISIONS :: REVISIONS : 2 / 26 / 93 hfl Uses swiftest Ancestors: swiftest_classes module~~s_orbel~~UsesGraph module~s_orbel s_orbel module~swiftest_classes swiftest_classes module~s_orbel->module~swiftest_classes module~swiftest swiftest module~s_orbel->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Functions orbel_flon orbel_fget orbel_zget orbel_esolmd orbel_ehie orbel_eget orbel_ehybrid orbel_fhybrid Subroutines orbel_el2xv orbel_schget orbel_xv2el Module Subroutines orbel_el2xv_vec orbel_scget orbel_xv2aeq orbel_xv2aqt orbel_xv2el_vec Functions pure function orbel_flon (e, icapn) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: icapn Return Value real(kind=DP) pure function orbel_fget (e, capn) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: capn Return Value real(kind=DP) pure function orbel_zget (iq) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: iq Return Value real(kind=DP) pure function orbel_esolmd (e, m) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: m Return Value real(kind=DP) pure function orbel_ehie (e, im) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: im Return Value real(kind=DP) pure function orbel_eget (e, m) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: m Return Value real(kind=DP) pure function orbel_ehybrid (e, m) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: m Return Value real(kind=DP) pure function orbel_fhybrid (e, n) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: n Return Value real(kind=DP) Subroutines pure subroutine orbel_el2xv (mu, a, ie, inc, capom, omega, capm, x, v) Author David A. Minton Compute osculating orbital elements from relative C)rtesian position and velocity\n  All angular measures are returned in radians\n      If inclination < TINY, longitude of the ascending node is arbitrarily set to 0 Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: a real(kind=DP), intent(in) :: ie real(kind=DP), intent(in) :: inc real(kind=DP), intent(in) :: capom real(kind=DP), intent(in) :: omega real(kind=DP), intent(in) :: capm real(kind=DP), intent(out), dimension(:) :: x real(kind=DP), intent(out), dimension(:) :: v pure subroutine orbel_schget (angle, shx, chx) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: angle real(kind=DP), intent(out) :: shx real(kind=DP), intent(out) :: chx pure subroutine orbel_xv2el (mu, x, v, a, e, inc, capom, omega, capm) Author David A. Minton Compute osculating orbital elements from relative Cartesian position and velocity\n  All angular measures are returned in radians\n      If inclination < TINY, longitude of the ascending node is arbitrarily set to 0 Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in), dimension(:) :: v real(kind=DP), intent(out) :: a real(kind=DP), intent(out) :: e real(kind=DP), intent(out) :: inc real(kind=DP), intent(out) :: capom real(kind=DP), intent(out) :: omega real(kind=DP), intent(out) :: capm Module Subroutines module subroutine orbel_el2xv_vec (self, cb) Interface → Author David A. Minton A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body objec pure module subroutine orbel_scget (angle, sx, cx) Interface → Author David A. Minton Efficiently compute the sine and cosine of an input angle\n      Input angle must be in radians Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: angle real(kind=DP), intent(out) :: sx real(kind=DP), intent(out) :: cx pure module subroutine orbel_xv2aeq (mu, x, v, a, e, q) Interface → Author David A. Minton Compute semimajor axis, eccentricity, and pericentric distance from relative Cartesian position and velocity Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in), dimension(:) :: v real(kind=DP), intent(out) :: a real(kind=DP), intent(out) :: e real(kind=DP), intent(out) :: q pure module subroutine orbel_xv2aqt (mu, x, v, a, q, capm, tperi) Interface → Author David A. Minton Compute semimajor axis, pericentric distance, mean anomaly, and time to nearest pericenter passage from\n relative Cartesian position and velocity\n      tperi > 0 means nearest pericenter passage is in the future\n      tperi < 0 means nearest pericenter passage is in the past Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(out) :: a semimajor axis real(kind=DP), intent(out) :: q periapsis real(kind=DP), intent(out) :: capm mean anomaly real(kind=DP), intent(out) :: tperi time of pericenter passage module subroutine orbel_xv2el_vec (self, cb) Interface → Author David A. Minton A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"module/s_orbel.html"},{"title":"s_whm_coord – swiftest","text":"Uses swiftest Ancestors: whm_classes module~~s_whm_coord~~UsesGraph module~s_whm_coord s_whm_coord module~whm_classes whm_classes module~s_whm_coord->module~whm_classes module~swiftest swiftest module~s_whm_coord->module~swiftest module~swiftest_globals swiftest_globals module~whm_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes module~swiftest->module~whm_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines whm_coord_h2j_pl whm_coord_j2h_pl whm_coord_vh2vj_pl Module Subroutines module subroutine whm_coord_h2j_pl (self, cb) Interface → Author David A. Minton Convert from heliocentric to Jacobi coordinates, massive bodies only Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree module subroutine whm_coord_j2h_pl (self, cb) Interface → Author David A. Minton Convert from Jacobi to heliocentric coordinates, massive bodies only. Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree module subroutine whm_coord_vh2vj_pl (self, cb) Interface → Author David A. Minton Convert from heliocentric to Jadcobi coordinates, massive body velocities only Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree","tags":"","loc":"module/s_whm_coord.html"},{"title":"s_whm_gr – swiftest","text":"Uses swiftest Ancestors: whm_classes module~~s_whm_gr~~UsesGraph module~s_whm_gr s_whm_gr module~whm_classes whm_classes module~s_whm_gr->module~whm_classes module~swiftest swiftest module~s_whm_gr->module~swiftest module~swiftest_globals swiftest_globals module~whm_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes module~swiftest->module~whm_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines whm_gr_kick_getacch_pl whm_gr_kick_getacch_tp whm_gr_p4_pl whm_gr_p4_tp Module Subroutines module subroutine whm_gr_kick_getacch_pl (self, param) Interface → Author David A. Minton Compute relativisitic accelerations of massive bodies\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters module subroutine whm_gr_kick_getacch_tp (self, param) Interface → Author David A. Minton Compute relativisitic accelerations of test particles\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters pure module subroutine whm_gr_p4_pl (self, param, dt) Interface → Author David A. Minton Position kick to massive bodies due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size pure module subroutine whm_gr_p4_tp (self, param, dt) Interface → Author David A. Minton Position kick to test particles due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size","tags":"","loc":"module/s_whm_gr.html"},{"title":"s_whm_step – swiftest","text":"Uses swiftest Ancestors: whm_classes module~~s_whm_step~~UsesGraph module~s_whm_step s_whm_step module~whm_classes whm_classes module~s_whm_step->module~whm_classes module~swiftest swiftest module~s_whm_step->module~swiftest module~swiftest_globals swiftest_globals module~whm_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes module~swiftest->module~whm_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines whm_step_system whm_step_pl whm_step_tp Module Subroutines module subroutine whm_step_system (self, param, t, dt) Interface → Author David A. Minton Step massive bodies and and active test particles ahead in heliocentric coordinates Read more… Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsize module subroutine whm_step_pl (self, system, param, t, dt) Interface → Author David A. Minton Step planets ahead using kick-drift-kick algorithm Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsize module subroutine whm_step_tp (self, system, param, t, dt) Interface → Author David A. Minton Step active test particles ahead using kick-drift-kick algorithm Read more… Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"module/s_whm_step.html"},{"title":"whm_drift – swiftest","text":"Uses swiftest Ancestors: whm_classes module~~whm_drift~~UsesGraph module~whm_drift whm_drift module~whm_classes whm_classes module~whm_drift->module~whm_classes module~swiftest swiftest module~whm_drift->module~swiftest module~swiftest_globals swiftest_globals module~whm_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes module~swiftest->module~whm_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines whm_drift_pl Module Subroutines module subroutine whm_drift_pl (self, system, param, dt) Interface → Author David A. Minton Loop through planets and call Danby drift routine Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"module/whm_drift.html"},{"title":"s_whm_kick – swiftest","text":"Uses swiftest Ancestors: whm_classes module~~s_whm_kick~~UsesGraph module~s_whm_kick s_whm_kick module~whm_classes whm_classes module~s_whm_kick->module~whm_classes module~swiftest swiftest module~s_whm_kick->module~swiftest module~swiftest_globals swiftest_globals module~whm_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes module~swiftest->module~whm_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Functions whm_kick_getacch_ah0 Subroutines whm_kick_getacch_ah1 whm_kick_getacch_ah2 Module Subroutines whm_kick_getacch_pl whm_kick_getacch_tp whm_kick_vh_pl whm_kick_vh_tp Functions function whm_kick_getacch_ah0 (mu, xhp, n) result(ah0) Author David A. Minton Compute zeroth term heliocentric accelerations of planets Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu real(kind=DP), intent(in), dimension(:,:) :: xhp integer(kind=I4B), intent(in) :: n Return Value real(kind=DP),\n  dimension(NDIM) Subroutines pure subroutine whm_kick_getacch_ah1 (cb, pl) Author David A. Minton Compute first term heliocentric accelerations of planets Read more… Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: cb WHM central body object class( whm_pl ), intent(inout) :: pl WHM massive body object pure subroutine whm_kick_getacch_ah2 (cb, pl) Author David A. Minton Compute second term heliocentric accelerations of planets Read more… Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: cb Swiftest central body object class( whm_pl ), intent(inout) :: pl WHM massive body object Module Subroutines module subroutine whm_kick_getacch_pl (self, system, param, t, lbeg) Interface → Author David A. Minton Compute heliocentric accelerations of planets Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest central body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step module subroutine whm_kick_getacch_tp (self, system, param, t, lbeg) Interface → Author David A. Minton Compute heliocentric accelerations of test particles Read more… Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest central body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step module subroutine whm_kick_vh_pl (self, system, param, t, dt, lbeg) Interface → Author David A. Minton Kick heliocentric velocities of massive bodies Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. module subroutine whm_kick_vh_tp (self, system, param, t, dt, lbeg) Interface → Author David A. Minton Kick heliocentric velocities of test particles Read more… Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not.","tags":"","loc":"module/s_whm_kick.html"},{"title":"s_whm_setup – swiftest","text":"Uses swiftest Ancestors: whm_classes module~~s_whm_setup~~UsesGraph module~s_whm_setup s_whm_setup module~whm_classes whm_classes module~s_whm_setup->module~whm_classes module~swiftest swiftest module~s_whm_setup->module~swiftest module~swiftest_globals swiftest_globals module~whm_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes module~swiftest->module~whm_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines whm_setup_pl whm_util_set_mu_eta_pl whm_setup_initialize_system Module Subroutines module subroutine whm_setup_pl (self, n, param) Interface → Author David A. Minton Allocate WHM planet structure Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameter module subroutine whm_util_set_mu_eta_pl (self, cb) Interface → Author David A. Minton Sets the Jacobi mass value eta for all massive bodies Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM system object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine whm_setup_initialize_system (self, param) Interface → Author David A. Minton Initialize a WHM nbody system from files Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters","tags":"","loc":"module/s_whm_setup.html"},{"title":"s_whm_util – swiftest","text":"Uses swiftest Ancestors: whm_classes module~~s_whm_util~~UsesGraph module~s_whm_util s_whm_util module~whm_classes whm_classes module~s_whm_util->module~whm_classes module~swiftest swiftest module~s_whm_util->module~swiftest module~swiftest_globals swiftest_globals module~whm_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes module~swiftest->module~whm_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines whm_util_append_pl whm_util_fill_pl whm_util_resize_pl whm_util_set_ir3j whm_util_sort_pl whm_util_sort_rearrange_pl whm_util_spill_pl Module Subroutines module subroutine whm_util_append_pl (self, source, lsource_mask) Interface → Author David A. Minton Append components from one massive body object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine whm_util_fill_pl (self, inserts, lfill_list) Interface → Author David A. Minton Insert new WHM test particle structure into an old one. \n This is the inverse of a fill operation. Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: inserts inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine whm_util_resize_pl (self, nnew) Interface → Author David A. Minton Checks the current size of a massive body against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in) :: nnew New size neded module subroutine whm_util_set_ir3j (self) Interface → Author David A. Minton Sets the inverse Jacobi and heliocentric radii cubed (1/rj 3 and 1/rh 3) Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object module subroutine whm_util_sort_pl (self, sortby, ascending) Interface → Author David A. Minton Sort a WHM massive body object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order module subroutine whm_util_sort_rearrange_pl (self, ind) Interface → Author David A. Minton Rearrange WHM massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) module subroutine whm_util_spill_pl (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) WHM test particle structure from active list to discard list Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"module/s_whm_util.html"},{"title":"s_operator_cross – swiftest","text":"Contains implementations for the .cross. operator for all defined integer and real types\n Single vector implementations: C(1:3)   = A(1:3)   .cross. B(1:3) \n Vector list implementations:   C(1:3, :) = A(1:3, :) .cross. B(1:3, :) Uses swiftest Ancestors: swiftest_operators module~~s_operator_cross~~UsesGraph module~s_operator_cross s_operator_cross module~swiftest_operators swiftest_operators module~s_operator_cross->module~swiftest_operators module~swiftest swiftest module~s_operator_cross->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_operators->module~swiftest_globals module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Functions operator_cross_sp operator_cross_dp operator_cross_qp operator_cross_i1b operator_cross_i2b operator_cross_i4b operator_cross_i8b operator_cross_el_sp operator_cross_el_dp operator_cross_el_qp operator_cross_el_i1b operator_cross_el_i2b operator_cross_el_i4b operator_cross_el_i8b Module Functions pure function operator_cross_sp (A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: A real(kind=SP), intent(in), dimension(:) :: B Return Value real(kind=SP),\n  dimension(3) pure function operator_cross_dp (A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: A real(kind=DP), intent(in), dimension(:) :: B Return Value real(kind=DP),\n  dimension(3) pure function operator_cross_qp (A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:) :: A real(kind=QP), intent(in), dimension(:) :: B Return Value real(kind=QP),\n  dimension(3) pure function operator_cross_i1b (A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I1B), intent(in), dimension(:) :: A integer(kind=I1B), intent(in), dimension(:) :: B Return Value integer(kind=I1B),\n  dimension(3) pure function operator_cross_i2b (A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I2B), intent(in), dimension(:) :: A integer(kind=I2B), intent(in), dimension(:) :: B Return Value integer(kind=I2B),\n  dimension(3) pure function operator_cross_i4b (A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:) :: A integer(kind=I4B), intent(in), dimension(:) :: B Return Value integer(kind=I4B),\n  dimension(3) pure function operator_cross_i8b (A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in), dimension(:) :: A integer(kind=I8B), intent(in), dimension(:) :: B Return Value integer(kind=I8B),\n  dimension(3) pure function operator_cross_el_sp (A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:,:) :: A real(kind=SP), intent(in), dimension(:,:) :: B Return Value real(kind=SP),\n  dimension(:,:), allocatable pure function operator_cross_el_dp (A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A real(kind=DP), intent(in), dimension(:,:) :: B Return Value real(kind=DP),\n  dimension(:,:), allocatable pure function operator_cross_el_qp (A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:,:) :: B Return Value real(kind=QP),\n  dimension(:,:), allocatable pure function operator_cross_el_i1b (A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I1B), intent(in), dimension(:,:) :: A integer(kind=I1B), intent(in), dimension(:,:) :: B Return Value integer(kind=I1B),\n  dimension(:,:), allocatable pure function operator_cross_el_i2b (A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I2B), intent(in), dimension(:,:) :: A integer(kind=I2B), intent(in), dimension(:,:) :: B Return Value integer(kind=I2B),\n  dimension(:,:), allocatable pure function operator_cross_el_i4b (A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:,:) :: A integer(kind=I4B), intent(in), dimension(:,:) :: B Return Value integer(kind=I4B),\n  dimension(:,:), allocatable pure function operator_cross_el_i8b (A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in), dimension(:,:) :: A integer(kind=I8B), intent(in), dimension(:,:) :: B Return Value integer(kind=I8B),\n  dimension(:,:), allocatable","tags":"","loc":"module/s_operator_cross.html"},{"title":"s_operator_mag – swiftest","text":"Contains implementations for the .mag. operator for all defined real types\n Single vector implementations:  B   = .mag. A(1:3)\n Vector list implementations:   B(:) = .mag. A(1:3, :) Uses Ancestors: swiftest_operators module~~s_operator_mag~~UsesGraph module~s_operator_mag s_operator_mag module~swiftest_operators swiftest_operators module~s_operator_mag->module~swiftest_operators module~swiftest_globals swiftest_globals module~swiftest_operators->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Functions operator_mag_sp operator_mag_dp operator_mag_el_sp operator_mag_el_dp operator_mag_el_qp Module Functions pure function operator_mag_sp (A) result(B) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: A Return Value real(kind=SP) pure function operator_mag_dp (A) result(B) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: A Return Value real(kind=DP) pure function operator_mag_el_sp (A) result(B) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:,:) :: A Return Value real(kind=SP),\n  dimension(:), allocatable pure function operator_mag_el_dp (A) result(B) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A Return Value real(kind=DP),\n  dimension(:), allocatable pure function operator_mag_el_qp (A) result(B) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A Return Value real(kind=QP),\n  dimension(:), allocatable","tags":"","loc":"module/s_operator_mag.html"},{"title":"s_util_solve – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_solve~~UsesGraph module~s_util_solve s_util_solve module~swiftest_classes swiftest_classes module~s_util_solve->module~swiftest_classes module~swiftest swiftest module~s_util_solve->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Functions solve_wbs ge_wpp Module Functions util_solve_linear_system_d util_solve_linear_system_q util_solve_rkf45 Functions function solve_wbs (u) result(x) Based on code available on Rosetta Code: https://rosettacode.org/wiki/Gaussian_elimination#Fortran Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:), allocatable :: u Return Value real(kind=QP),\n  dimension(:), allocatable function ge_wpp (A, b) result(u) Solve  Ax=b  using Gaussian elimination then backwards substitution.\n   A being an n by n matrix.\n   x and b are n by 1 vectors. \n Based on code available on Rosetta Code: https://rosettacode.org/wiki/Gaussian_elimination#Fortran Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:) :: b Return Value real(kind=QP),\n  dimension(:,:), allocatable Module Functions function util_solve_linear_system_d (A, b, n, lerr) result(x) Author David A. Minton Solves the linear equation of the form A*x = b for x. \n   A is an (n,n) arrays\n   x and b are (n) arrays\n Uses Gaussian elimination, so will have issues if system is ill-conditioned.\n Uses quad precision intermidiate values, so works best on small arrays. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A real(kind=DP), intent(in), dimension(:) :: b integer(kind=I4B), intent(in) :: n logical, intent(out) :: lerr Return Value real(kind=DP),\n  dimension(n) function util_solve_linear_system_q (A, b, n, lerr) result(x) Author David A. Minton Solves the linear equation of the form A*x = b for x. \n   A is an (n,n) arrays\n   x and b are (n) arrays\n Uses Gaussian elimination, so will have issues if system is ill-conditioned.\n Uses quad precision intermidiate values, so works best on small arrays. Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:) :: b integer(kind=I4B), intent(in) :: n logical, intent(out) :: lerr Return Value real(kind=QP),\n  dimension(n) module function util_solve_rkf45 (f, y0in, t1, dt0, tol) result(y1) Interface → Author David A. Minton Implements the 4th order Runge-Kutta-Fehlberg ODE solver for initial value problems of the form f=dy/dt, y0 = y(t=0), solving for y1 = y(t=t1). Uses a 5th order adaptive step size control.\n Uses a lambda function object as defined in the lambda_function module Arguments Type Intent Optional Attributes Name class(lambda_obj), intent(inout) :: f lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set real(kind=DP), intent(in), dimension(:) :: y0in Initial value at t=0 real(kind=DP), intent(in) :: t1 Final time real(kind=DP), intent(in) :: dt0 Initial step size guess real(kind=DP), intent(in) :: tol Tolerance on solution Return Value real(kind=DP),\n  dimension(:), allocatable Final result","tags":"","loc":"module/s_util_solve.html"},{"title":"s_util_set – swiftest","text":"This submodule contains a collection of setter method implementations Uses swiftest Ancestors: swiftest_classes module~~s_util_set~~UsesGraph module~s_util_set s_util_set module~swiftest_classes swiftest_classes module~s_util_set->module~swiftest_classes module~swiftest swiftest module~s_util_set->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_set_beg_end_pl util_set_ir3h util_set_msys util_set_mu_pl util_set_mu_tp util_set_rhill util_set_rhill_approximate Module Subroutines module subroutine util_set_beg_end_pl (self, xbeg, xend, vbeg) Interface → Author David A. Minton Sets one or more of the values of xbeg, xend, and vbeg Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg real(kind=DP), intent(in), optional dimension(:,:) :: xend real(kind=DP), intent(in), optional dimension(:,:) :: vbeg module subroutine util_set_ir3h (self) Interface → Author David A. Minton Sets the inverse heliocentric radius term (1/rh**3) for all bodies in a structure Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object module subroutine util_set_msys (self) Interface → Author David A. Minton Sets the value of msys and the vector mass quantities based on the total mass of the system Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nobdy system object module subroutine util_set_mu_pl (self, cb) Interface → Author David A. Minton Computes G * (M + m) for each massive body Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine util_set_mu_tp (self, cb) Interface → Author David A. Minton Converts certain scalar values to arrays so that they can be used in elemental functions Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine util_set_rhill (self, cb) Interface → Author David A. Minton Sets the value of the Hill's radius Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine util_set_rhill_approximate (self, cb) Interface → Author David A. Minton Sets the approximate value of the Hill's radius using the heliocentric radius instead of computing the semimajor axis Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"module/s_util_set.html"},{"title":"s_util_peri – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_peri~~UsesGraph module~s_util_peri s_util_peri module~swiftest_classes swiftest_classes module~s_util_peri->module~swiftest_classes module~swiftest swiftest module~s_util_peri->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_peri_tp Module Subroutines module subroutine util_peri_tp (self, system, param) Interface → Author David A. Minton Determine system pericenter passages for test particles\n Note:  If the coordinate system used is barycentric, then this routine assumes that the barycentric coordinates in the\n        test particle structures are up-to-date and are not recomputed Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"module/s_util_peri.html"},{"title":"s_util_coord – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_coord~~UsesGraph module~s_util_coord s_util_coord module~swiftest_classes swiftest_classes module~s_util_coord->module~swiftest_classes module~swiftest swiftest module~s_util_coord->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_coord_h2b_pl util_coord_h2b_tp util_coord_b2h_pl util_coord_b2h_tp Module Subroutines module subroutine util_coord_h2b_pl (self, cb) Interface → Author David A. Minton Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) Read more… Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine util_coord_h2b_tp (self, cb) Interface → Author David A. Minton Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object module subroutine util_coord_b2h_pl (self, cb) Interface → Author David A. Minton Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) Read more… Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine util_coord_b2h_tp (self, cb) Interface → Author David A. Minton Convert test particles from barycentric to heliocentric coordinates (position and velocity) Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(in) :: cb Swiftest central body object","tags":"","loc":"module/s_util_coord.html"},{"title":"s_util_version – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_version~~UsesGraph module~s_util_version s_util_version module~swiftest_classes swiftest_classes module~s_util_version->module~swiftest_classes module~swiftest swiftest module~s_util_version->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_version Module Subroutines module subroutine util_version () Interface → Author David A. Minton Print program version information to terminale Read more… Arguments None","tags":"","loc":"module/s_util_version.html"},{"title":"s_util_sort – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_sort~~UsesGraph module~s_util_sort s_util_sort module~swiftest_classes swiftest_classes module~s_util_sort->module~swiftest_classes module~swiftest swiftest module~s_util_sort->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_sort_body util_sort_pl util_sort_tp util_sort_rearrange_body util_sort_rearrange_pl util_sort_rearrange_tp util_sort_dp util_sort_index_dp util_sort_i4b util_sort_index_i4b util_sort_sp util_sort_index_sp Module Subroutines module subroutine util_sort_body (self, sortby, ascending) Interface → Author David A. Minton Sort a Swiftest body structure in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order module subroutine util_sort_pl (self, sortby, ascending) Interface → Author David A. Minton Sort a Swiftest massive body object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order module subroutine util_sort_tp (self, sortby, ascending) Interface → Author David A. Minton Sort a Swiftest test particle object  in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order module subroutine util_sort_rearrange_body (self, ind) Interface → Author David A. Minton Rearrange Swiftest body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) module subroutine util_sort_rearrange_pl (self, ind) Interface → Author David A. Minton Rearrange Swiftest massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) module subroutine util_sort_rearrange_tp (self, ind) Interface → Author David A. Minton Rearrange Swiftest massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) subroutine util_sort_dp (arr) Author David A. Minton Sort input double precision array in place into ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:) :: arr subroutine util_sort_index_dp (arr, ind) Author David A. Minton Sort input double precision array by index in ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind subroutine util_sort_i4b (arr) Author David A. Minton Sort input integer array in place into ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:) :: arr subroutine util_sort_index_i4b (arr, ind) Author David A. Minton Sort input integer array by index in ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind subroutine util_sort_sp (arr) Author David A. Minton Sort input single precision array in place into ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(inout), dimension(:) :: arr subroutine util_sort_index_sp (arr, ind) Author David A. Minton Sort input single precision array by index in ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind","tags":"","loc":"module/s_util_sort.html"},{"title":"s_util_spill – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_spill~~UsesGraph module~s_util_spill s_util_spill module~swiftest_classes swiftest_classes module~s_util_spill->module~swiftest_classes module~swiftest swiftest module~s_util_spill->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_spill_arr_char_string util_spill_arr_DP util_spill_arr_DPvec util_spill_arr_I4B util_spill_arr_logical util_spill_body util_spill_encounter util_spill_pl util_spill_tp Module Subroutines subroutine util_spill_arr_char_string (keeps, discards, lspill_list, ldestructive) Author David A. Minton Performs a spill operation on a single array of type character strings\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: keeps Array of values to keep character(len=STRMAX), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not subroutine util_spill_arr_DP (keeps, discards, lspill_list, ldestructive) Author David A. Minton Performs a spill operation on a single array of type DP\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: keeps Array of values to keep real(kind=DP), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not subroutine util_spill_arr_DPvec (keeps, discards, lspill_list, ldestructive) Author David A. Minton Performs a spill operation on a single array of DP vectors with shape (NDIM, n)\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: keeps Array of values to keep real(kind=DP), intent(inout), dimension(:,:), allocatable :: discards Array discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not subroutine util_spill_arr_I4B (keeps, discards, lspill_list, ldestructive) Author David A. Minton Performs a spill operation on a single array of type I4B\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I4B), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not subroutine util_spill_arr_logical (keeps, discards, lspill_list, ldestructive) Author David A. Minton Performs a spill operation on a single array of logicals\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: keeps Array of values to keep logical, intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or no module subroutine util_spill_body (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) Swiftest generic particle structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill all the common components Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list module subroutine util_spill_encounter (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) Swiftest encounter structure from active list to discard list Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list module subroutine util_spill_pl (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) Swiftest massive body structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill components specific to the massive body class Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list module subroutine util_spill_tp (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) Swiftest test particle structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill components specific to the test particle class Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardse logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list","tags":"","loc":"module/s_util_spill.html"},{"title":"s_util_valid – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_valid~~UsesGraph module~s_util_valid s_util_valid module~swiftest_classes swiftest_classes module~s_util_valid->module~swiftest_classes module~swiftest swiftest module~s_util_valid->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_valid Module Subroutines module subroutine util_valid (pl, tp) Interface → Author David A. Minton Validate massive body and test particle ids\n Subroutine causes program to exit with error if any ids are not unique Read more… Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(in) :: pl class( swiftest_tp ), intent(in) :: tp","tags":"","loc":"module/s_util_valid.html"},{"title":"s_util_exit – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_exit~~UsesGraph module~s_util_exit s_util_exit module~swiftest_classes swiftest_classes module~s_util_exit->module~swiftest_classes module~swiftest swiftest module~s_util_exit->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_exit Module Subroutines module subroutine util_exit (code) Interface → Author David A. Minton Print termination message and exit program Read more… Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: code","tags":"","loc":"module/s_util_exit.html"},{"title":"s_util_fill – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_fill~~UsesGraph module~s_util_fill s_util_fill module~swiftest_classes swiftest_classes module~s_util_fill->module~swiftest_classes module~swiftest swiftest module~s_util_fill->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_fill_arr_char_string util_fill_arr_DP util_fill_arr_DPvec util_fill_arr_I4B util_fill_arr_logical util_fill_body util_fill_pl util_fill_tp Module Subroutines subroutine util_fill_arr_char_string (keeps, inserts, lfill_list) Author David A. Minton Performs a fill operation on a single array of type character strings\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: keeps Array of values to keep character(len=STRMAX), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps subroutine util_fill_arr_DP (keeps, inserts, lfill_list) Author David A. Minton Performs a fill operation on a single array of type DP\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: keeps Array of values to keep real(kind=DP), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps subroutine util_fill_arr_DPvec (keeps, inserts, lfill_list) Author David A. Minton Performs a fill operation on a single array of DP vectors with shape (NDIM, n)\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: keeps Array of values to keep real(kind=DP), intent(in), dimension(:,:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps subroutine util_fill_arr_I4B (keeps, inserts, lfill_list) Author David A. Minton Performs a fill operation on a single array of type I4B\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I4B), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps subroutine util_fill_arr_logical (keeps, inserts, lfill_list) Author David A. Minton Performs a fill operation on a single array of logicals\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: keeps Array of values to keep logical, intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine util_fill_body (self, inserts, lfill_list) Interface → Author David A. Minton Insert new Swiftest generic particle structure into an old one. \n This is the inverse of a spill operation.\n Fill all the common components Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_body ), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine util_fill_pl (self, inserts, lfill_list) Interface → Author David A. Minton Insert new Swiftest massive body structure into an old one. \n This is the inverse of a spill operation.\n Fill components specific to the massive body class Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine util_fill_tp (self, inserts, lfill_list) Interface → Author David A. Minton Insert new Swiftest test particle structure into an old one. \n This is the inverse of a fill operation.\n Spill components specific to the test particle class Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"module/s_util_fill.html"},{"title":"s_util_resize – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_resize~~UsesGraph module~s_util_resize s_util_resize module~swiftest_classes swiftest_classes module~s_util_resize->module~swiftest_classes module~swiftest swiftest module~s_util_resize->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_resize_arr_char_string util_resize_arr_DP util_resize_arr_DPvec util_resize_arr_I4B util_resize_arr_logical util_resize_body util_resize_encounter util_resize_pl util_resize_tp Module Subroutines subroutine util_resize_arr_char_string (arr, nnew) Author David A. Minton Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size subroutine util_resize_arr_DP (arr, nnew) Author David A. Minton Resizes an array component of double precision type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size subroutine util_resize_arr_DPvec (arr, nnew) Author David A. Minton Resizes an array component of double precision vectors of size (NDIM, n). Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size subroutine util_resize_arr_I4B (arr, nnew) Author David A. Minton Resizes an array component of integer type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size subroutine util_resize_arr_logical (arr, nnew) Author David A. Minton Resizes an array component of logical type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size module subroutine util_resize_body (self, nnew) Interface → Author David A. Minton Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in) :: nnew New size neded module subroutine util_resize_encounter (self, nnew) Interface → Author David A. Minton Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small.\n Note: The reason to extend it by a factor of 2 is for performance. When there are many enounters per step, resizing every time you want to add an \n encounter takes significant computational effort. Resizing by a factor of 2 is a tradeoff between performance (fewer resize calls) and memory managment\n Memory usage grows by a factor of 2 each time it fills up, but no more. Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list integer(kind=I4B), intent(in) :: nnew New size of list needed module subroutine util_resize_pl (self, nnew) Interface → Author David A. Minton Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: nnew New size neded module subroutine util_resize_tp (self, nnew) Interface → Author David A. Minton Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"module/s_util_resize.html"},{"title":"s_util_copy – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_copy~~UsesGraph module~s_util_copy s_util_copy module~swiftest_classes swiftest_classes module~s_util_copy->module~swiftest_classes module~swiftest swiftest module~s_util_copy->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_copy_encounter Module Subroutines module subroutine util_copy_encounter (self, source) Interface → Author David A. Minton Copies elements from the source encounter list into self. Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into","tags":"","loc":"module/s_util_copy.html"},{"title":"s_util_minimize_bfgs – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_minimize_bfgs~~UsesGraph module~s_util_minimize_bfgs s_util_minimize_bfgs module~swiftest_classes swiftest_classes module~s_util_minimize_bfgs->module~swiftest_classes module~swiftest swiftest module~s_util_minimize_bfgs->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Functions util_minimize_bfgs Module Functions module function util_minimize_bfgs (f, N, x0, eps, lerr) result(x1) Interface → Author David A. Minton This function implements the Broyden-Fletcher-Goldfarb-Shanno method to determine the minimum of a function of N variables. It recieves as input:\n   f%eval(x) : lambda function object containing the objective function as the eval metho\n   N    :  Number of variables of function f\n   x0   :  Initial starting value of x\n   eps  :  Accuracy of 1 - dimensional minimization at each step\n The outputs include\n   lerr :  Returns .true. if it could not find the minimum\n Returns\n   x1   :  Final minimum (all 0 if none found)\n   0 = No miniumum found Read more… Arguments Type Intent Optional Attributes Name class(lambda_obj), intent(inout) :: f integer(kind=I4B), intent(in) :: N real(kind=DP), intent(in), dimension(:) :: x0 real(kind=DP), intent(in) :: eps logical, intent(out) :: lerr Return Value real(kind=DP),\n  dimension(:), allocatable","tags":"","loc":"module/s_util_minimize_bfgs.html"},{"title":"s_util_append – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_append~~UsesGraph module~s_util_append s_util_append module~swiftest_classes swiftest_classes module~s_util_append->module~swiftest_classes module~swiftest swiftest module~s_util_append->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_append_arr_char_string util_append_arr_DP util_append_arr_DPvec util_append_arr_I4B util_append_arr_logical util_append_body util_append_pl util_append_tp Module Subroutines subroutine util_append_arr_char_string (arr, source, lsource_mask) Author David A. Minton Append a single array of character string type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Destination array character(len=STRMAX), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to subroutine util_append_arr_DP (arr, source, lsource_mask) Author David A. Minton Append a single array of double precision type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Destination array real(kind=DP), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to subroutine util_append_arr_DPvec (arr, source, lsource_mask) Author David A. Minton Append a single array of double precision vector type of size (NDIM, n) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Destination array real(kind=DP), intent(in), dimension(:,:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to subroutine util_append_arr_I4B (arr, source, lsource_mask) Author David A. Minton Append a single array of integer(I4B) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to subroutine util_append_arr_logical (arr, source, lsource_mask) Author David A. Minton Append a single array of logical type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Destination array logical, intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine util_append_body (self, source, lsource_mask) Interface → Author David A. Minton Append components from one Swiftest body object to another. \n This method will automatically resize the destination body if it is too small Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine util_append_pl (self, source, lsource_mask) Interface → Author David A. Minton Append components from one Swiftest body object to another. \n This method will automatically resize the destination body if it is too small Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine util_append_tp (self, source, lsource_mask) Interface → Author David A. Minton Append components from one Swiftest body object to another. \n This method will automatically resize the destination body if it is too small Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"module/s_util_append.html"},{"title":"s_util_get_energy_momentum – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_get_energy_momentum~~UsesGraph module~s_util_get_energy_momentum s_util_get_energy_momentum module~swiftest_classes swiftest_classes module~s_util_get_energy_momentum->module~swiftest_classes module~swiftest swiftest module~s_util_get_energy_momentum->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_get_energy_momentum_system Module Subroutines module subroutine util_get_energy_momentum_system (self, param) Interface → Author David A. Minton Compute total system angular momentum vector and kinetic, potential and total system energy Read more… Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"module/s_util_get_energy_momentum.html"},{"title":"s_gr – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_gr~~UsesGraph module~s_gr s_gr module~swiftest_classes swiftest_classes module~s_gr->module~swiftest_classes module~swiftest swiftest module~s_gr->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines gr_kick_getaccb_ns_body gr_kick_getacch gr_p4_pos_kick gr_pseudovel2vel gr_pv2vh_body gr_vel2pseudovel gr_vh2pv_body Module Subroutines pure module subroutine gr_kick_getaccb_ns_body (self, system, param) Interface → Author David A. Minton Add relativistic correction acceleration for non-symplectic integrators.\n Based on Quinn et al. (1991) eq. 5 Read more… Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine gr_kick_getacch (mu, x, lmask, n, inv_c2, agr) Interface → Author David A. Minton Compute relativisitic accelerations of massive bodies\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:,:) :: x Position vectors logical, intent(in), dimension(:) :: lmask Logical mask indicating which bodies to compute integer(kind=I4B), intent(in) :: n Total number of bodies real(kind=DP), intent(in) :: inv_c2 Inverse speed of light squared: 1 / c**2 real(kind=DP), intent(out), dimension(:,:) :: agr Accelerations pure module subroutine gr_p4_pos_kick (param, x, v, dt) Interface → Author David A. Minton Position kick due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(inout), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(in) :: dt Step size pure module subroutine gr_pseudovel2vel (param, mu, xh, pv, vh) Interface → Author David A. Minton Converts the relativistic pseudovelocity back into a veliocentric velocity\n    Based on Saha & Tremaine (1994) Eq. 32 Read more… Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real(kind=DP), intent(in), dimension(:) :: xh Heliocentric position vector real(kind=DP), intent(in), dimension(:) :: pv Pseudovelocity velocity vector - see Saha & Tremain (1994), eq. (32) real(kind=DP), intent(out), dimension(:) :: vh Heliocentric velocity vector pure module subroutine gr_pv2vh_body (self, param) Interface → Author David A. Minton Wrapper function that converts from pseudovelocity to heliocentric velocity for swiftest bodies Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters pure module subroutine gr_vel2pseudovel (param, mu, xh, vh, pv) Interface → Author David A. Minton Converts the heliocentric velocity into a pseudovelocity with relativistic corrections. \n Uses Newton-Raphson method with direct inversion of the Jacobian (yeah, it's slow, but \n this is only done once per run). Read more… Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real(kind=DP), intent(in), dimension(:) :: xh Heliocentric position vector real(kind=DP), intent(in), dimension(:) :: vh Heliocentric velocity vector real(kind=DP), intent(out), dimension(:) :: pv Pseudovelocity vector - see Saha & Tremain (1994), eq. (32) pure module subroutine gr_vh2pv_body (self, param) Interface → Author David A. Minton Wrapper function that converts from heliocentric velocity to pseudovelocity for Swiftest bodies Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"module/s_gr.html"},{"title":"s_discard – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_discard~~UsesGraph module~s_discard s_discard module~swiftest_classes swiftest_classes module~s_discard->module~swiftest_classes module~swiftest swiftest module~s_discard->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Subroutines discard_cb_tp discard_peri_tp discard_pl_tp discard_pl_close Module Subroutines discard_system discard_pl discard_tp Subroutines subroutine discard_cb_tp (tp, system, param) Author David A. Minton Check to see if test particles should be discarded based on their positions relative to the Sun\n        or because they are unbound from the system Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: tp Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters subroutine discard_peri_tp (tp, system, param) Author David A. Minton Check to see if a test particle should be discarded because its perihelion distance becomes too small Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: tp Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameterss subroutine discard_pl_tp (tp, system, param) Author David A. Minton Check to see if test particles should be discarded based on their positions relative to the massive bodies Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: tp Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters subroutine discard_pl_close (dx, dv, dt, r2crit, iflag, r2min) Author David A. Minton Check to see if a test particle and massive body are having, or will have within the next time step, an encounter such\n          that the separation distance r is less than some critical radius rcrit (or r 2 < rcrit 2 = r2crit) Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: dx real(kind=DP), intent(in), dimension(:) :: dv real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r2crit integer(kind=I4B), intent(out) :: iflag real(kind=DP), intent(out) :: r2min Module Subroutines module subroutine discard_system (self, param) Interface → Author David A. Minton Calls the discard methods for each body class and then the write method if any discards were detected Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters module subroutine discard_pl (self, system, param) Interface → Author David A. Minton Placeholder method for discarding massive bodies. This method does nothing except to ensure that the discard flag is set to false. \n  This method is intended to be overridden by more advanced integrators. Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter module subroutine discard_tp (self, system, param) Interface → Author David A. Minton Check to see if particles should be discarded based on their positions relative to the massive bodies Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter","tags":"","loc":"module/s_discard.html"},{"title":"s_helio_step – swiftest","text":"Uses swiftest Ancestors: helio_classes module~~s_helio_step~~UsesGraph module~s_helio_step s_helio_step module~helio_classes helio_classes module~s_helio_step->module~helio_classes module~swiftest swiftest module~s_helio_step->module~swiftest module~swiftest_globals swiftest_globals module~helio_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~helio_classes->module~swiftest_classes module~whm_classes whm_classes module~helio_classes->module~whm_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines helio_step_system helio_step_pl helio_step_tp Module Subroutines module subroutine helio_step_system (self, param, t, dt) Interface → Author David A. Minton Step massive bodies and and active test particles ahead in heliocentric coordinates. Read more… Arguments Type Intent Optional Attributes Name class( helio_nbody_system ), intent(inout) :: self Helio nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize module subroutine helio_step_pl (self, system, param, t, dt) Interface → Author David A. Minton Step massive bodies ahead Democratic Heliocentric method Read more… Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize module subroutine helio_step_tp (self, system, param, t, dt) Interface → Author David A. Minton Step active test particles ahead using Democratic Heliocentric method Read more… Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"module/s_helio_step.html"},{"title":"s_helio_gr – swiftest","text":"Uses swiftest Ancestors: helio_classes module~~s_helio_gr~~UsesGraph module~s_helio_gr s_helio_gr module~helio_classes helio_classes module~s_helio_gr->module~helio_classes module~swiftest swiftest module~s_helio_gr->module~swiftest module~swiftest_globals swiftest_globals module~helio_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~helio_classes->module~swiftest_classes module~whm_classes whm_classes module~helio_classes->module~whm_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines helio_gr_kick_getacch_pl helio_gr_kick_getacch_tp helio_gr_p4_pl helio_gr_p4_tp Module Subroutines module subroutine helio_gr_kick_getacch_pl (self, param) Interface → Author David A. Minton Compute relativisitic accelerations of massive bodies\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters module subroutine helio_gr_kick_getacch_tp (self, param) Interface → Author David A. Minton Compute relativisitic accelerations of test particles\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters pure module subroutine helio_gr_p4_pl (self, param, dt) Interface → Author David A. Minton Position kick to massive bodies due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size pure module subroutine helio_gr_p4_tp (self, param, dt) Interface → Author David A. Minton Position kick to test particles due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size","tags":"","loc":"module/s_helio_gr.html"},{"title":"s_helio_kick – swiftest","text":"Uses swiftest Ancestors: helio_classes module~~s_helio_kick~~UsesGraph module~s_helio_kick s_helio_kick module~helio_classes helio_classes module~s_helio_kick->module~helio_classes module~swiftest swiftest module~s_helio_kick->module~swiftest module~swiftest_globals swiftest_globals module~helio_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~helio_classes->module~swiftest_classes module~whm_classes whm_classes module~helio_classes->module~whm_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines helio_kick_getacch_pl helio_kick_getacch_tp helio_kick_vb_pl helio_kick_vb_tp Module Subroutines module subroutine helio_kick_getacch_pl (self, system, param, t, lbeg) Interface → Author David A. Minton Compute heliocentric accelerations of massive bodies Read more… Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step module subroutine helio_kick_getacch_tp (self, system, param, t, lbeg) Interface → Author David A. Minton Compute heliocentric accelerations of test particles Read more… Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step module subroutine helio_kick_vb_pl (self, system, param, t, dt, lbeg) Interface → Author David A. Minton Kick barycentric velocities of bodies Read more… Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. module subroutine helio_kick_vb_tp (self, system, param, t, dt, lbeg) Interface → Author David A. Minton Kick barycentric velocities of bodies Read more… Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not.","tags":"","loc":"module/s_helio_kick.html"},{"title":"s_helio_coord – swiftest","text":"Uses swiftest Ancestors: helio_classes module~~s_helio_coord~~UsesGraph module~s_helio_coord s_helio_coord module~helio_classes helio_classes module~s_helio_coord->module~helio_classes module~swiftest swiftest module~s_helio_coord->module~swiftest module~swiftest_globals swiftest_globals module~helio_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~helio_classes->module~swiftest_classes module~whm_classes whm_classes module~helio_classes->module~whm_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines helio_coord_vb2vh_pl helio_coord_vb2vh_tp helio_coord_vh2vb_pl helio_coord_vh2vb_tp Module Subroutines module subroutine helio_coord_vb2vh_pl (self, cb) Interface → Author David A. Minton Convert massive bodies from barycentric to heliocentric coordinates (velocity only) Read more… Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine helio_coord_vb2vh_tp (self, vbcb) Interface → Author David A. Minton Convert test particles from barycentric to heliocentric coordinates (velocity only) Read more… Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body module subroutine helio_coord_vh2vb_pl (self, cb) Interface → Author David A. Minton Convert massive bodies from heliocentric to barycentric coordinates (velocity only) Read more… Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine helio_coord_vh2vb_tp (self, vbcb) Interface → Author David A. Minton Convert test particles from heliocentric to barycentric coordinates (velocity only) Read more… Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body","tags":"","loc":"module/s_helio_coord.html"},{"title":"s_helio_drift – swiftest","text":"Uses swiftest Ancestors: helio_classes module~~s_helio_drift~~UsesGraph module~s_helio_drift s_helio_drift module~helio_classes helio_classes module~s_helio_drift->module~helio_classes module~swiftest swiftest module~s_helio_drift->module~swiftest module~swiftest_globals swiftest_globals module~helio_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~helio_classes->module~swiftest_classes module~whm_classes whm_classes module~helio_classes->module~whm_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines helio_drift_body helio_drift_pl helio_drift_tp helio_drift_linear_pl helio_drift_linear_tp Module Subroutines module subroutine helio_drift_body (self, system, param, dt) Interface → Author David A. Minton Loop through bodies and call Danby drift routine on democratic heliocentric coordinates Read more… Arguments Type Intent Optional Attributes Name class(swiftest_body), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize module subroutine helio_drift_pl (self, system, param, dt) Interface → Author David A. Minton Wrapper function used to call the body drift routine from a helio_pl structure Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize module subroutine helio_drift_tp (self, system, param, dt) Interface → Author David A. Minton Wrapper function used to call the body drift routine from a helio_pl structure Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize module subroutine helio_drift_linear_pl (self, cb, dt, lbeg) Interface → Author David A. Minton Perform linear drift of massive bodies due to barycentric momentum of Sun Read more… Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( helio_cb ), intent(inout) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step module subroutine helio_drift_linear_tp (self, cb, dt, lbeg) Interface → Author David A. Minton Perform linear drift of test particles due to barycentric momentum of Sun\n New vectorized version included Read more… Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particleb object class( helio_cb ), intent(in) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step","tags":"","loc":"module/s_helio_drift.html"},{"title":"s_io – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_io~~UsesGraph module~s_io s_io module~swiftest_classes swiftest_classes module~s_io->module~swiftest_classes module~swiftest swiftest module~s_io->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Functions io_read_encounter io_read_hdr Subroutines io_write_hdr Module Functions io_get_args io_get_token Module Subroutines io_conservation_report io_dump_param io_dump_swiftest io_dump_system io_param_reader io_param_writer io_read_body_in io_read_cb_in io_read_frame_body io_read_frame_cb io_read_frame_system io_read_param_in io_toupper io_write_discard io_write_encounter io_write_frame_body io_write_frame_cb io_write_frame_system Functions function io_read_encounter (t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type) result(ierr) Author David A. Minton Read close encounter data from input binary files\n     Other than time t, there is no direct file input from this function\n     Function returns read error status (0 = OK, nonzero = ERROR)\n Adapted from David E. Kaufmann's Swifter routine: io_read_encounter.f90 Arguments Type Intent Optional Attributes Name real(kind=DP), intent(out) :: t integer(kind=I4B), intent(out) :: name1 integer(kind=I4B), intent(out) :: name2 real(kind=DP), intent(out) :: mass1 real(kind=DP), intent(out) :: mass2 real(kind=DP), intent(out) :: radius1 real(kind=DP), intent(out) :: radius2 real(kind=DP), intent(out), dimension(:) :: xh1 real(kind=DP), intent(out), dimension(:) :: xh2 real(kind=DP), intent(out), dimension(:) :: vh1 real(kind=DP), intent(out), dimension(:) :: vh2 character(len=*), intent(in) :: enc_out character(len=*), intent(in) :: out_type Return Value integer(kind=I4B) function io_read_hdr (iu, t, npl, ntp, out_form, out_type) result(ierr) Author David A. Minton Read frame header from input binary files\n     Function returns read error status (0 = OK, nonzero = ERROR)\n Adapted from David E. Kaufmann's Swifter routine: io_read_hdr.f90\n Adapted from Hal Levison's Swift routine io_read_hdr.f Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: iu real(kind=DP), intent(out) :: t integer(kind=I4B), intent(out) :: npl integer(kind=I4B), intent(out) :: ntp character(len=*), intent(out) :: out_form character(len=*), intent(in) :: out_type Return Value integer(kind=I4B) Subroutines subroutine io_write_hdr (iu, t, npl, ntp, out_form, out_type) Author The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Write frame header to output binary file Read more… Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: iu Output file unit number real(kind=DP), intent(in) :: t Current time of simulation integer(kind=I4B), intent(in) :: npl Number of massive bodies integer(kind=I4B), intent(in) :: ntp Number of test particles character(len=*), intent(in) :: out_form Output format type (\"EL\" or  \"XV\") character(len=*), intent(in) :: out_type Output file format type (REAL4, REAL8 - see swiftest module for symbolic name definitions) Module Functions module function io_get_args (integrator, param_file_name) result(ierr) Interface → Author David A. Minton Reads in the name of the parameter file from command line arguments. Arguments Type Intent Optional Attributes Name integer(kind=I4B) :: integrator Symbolic code of the requested integrator character(len=:), allocatable :: param_file_name Name of the input parameters file Return Value integer(kind=I4B) I/O error code module function io_get_token (buffer, ifirst, ilast, ierr) result(token) Interface → Author David A. Minton Retrieves a character token from an input string. Here a token is defined as any set of contiguous non-blank characters not \n beginning with or containing \"!\". If \"!\" is present, any remaining part of the buffer including the \"!\" is ignored Read more… Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: buffer Input string buffer integer(kind=I4B), intent(inout) :: ifirst Index of the buffer at which to start the search for a token integer(kind=I4B), intent(out) :: ilast Index of the buffer at the end of the returned token integer(kind=I4B), intent(out) :: ierr Error code Return Value character(len=:),\n  allocatable Returned token string Module Subroutines module subroutine io_conservation_report (self, param, lterminal) Interface → Author The Purdue Swiftest Team -  David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Reports the current state of energy, mass, and angular momentum conservation in a run Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen module subroutine io_dump_param (self, param_file_name) Interface → Author David A. Minton Dump integration parameters to file Read more… Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Output collection of parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) module subroutine io_dump_swiftest (self, param, msg) Interface → Author David A. Minton Dump massive body data to files Read more… Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation module subroutine io_dump_system (self, param, msg) Interface → Author David A. Minton Dumps the state of the system to files in case the simulation is interrupted.\n As a safety mechanism, there are two dump files that are written in alternating order\n so that if a dump file gets corrupted during writing, the user can restart from the older one. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation module subroutine io_param_reader (self, unit, iotype, v_list, iostat, iomsg) Interface → Author The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Read in parameters for the integration\n Currently this procedure does not work in user-defined derived-type input mode \n    e.g. read(unit,'(DT)') param \n as the newline characters are ignored in the input file when compiled in ifort. Read more… Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Collection of parameters integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) The first element passes the integrator code to the reader integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 module subroutine io_param_writer (self, unit, iotype, v_list, iostat, iomsg) Interface → Author David A. Minton Dump integration parameters to file Read more… Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Collection of parameters integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) Not used in this procedure integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 module subroutine io_read_body_in (self, param) Interface → Author The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Read in either test particle or massive body data Read more… Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters module subroutine io_read_cb_in (self, param) Interface → Author David A. Minton Reads in central body data Read more… Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self class( swiftest_parameters ), intent(inout) :: param module subroutine io_read_frame_body (self, iu, param, form, ierr) Interface → Author David A. Minton Reads a frame of output of either test particle or massive body data from a binary output file Read more… Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code module subroutine io_read_frame_cb (self, iu, param, form, ierr) Interface → Author David A. Minton Reads a frame of output of central body data to the binary output file Read more… Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error cod module subroutine io_read_frame_system (self, iu, param, form, ierr) Interface → Author The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Read a frame (header plus records for each massive body and active test particle) from a output binary file Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code module subroutine io_read_param_in (self, param_file_name) Interface → Author David A. Minton Read in parameters for the integration Read more… Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Current run configuration parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) module subroutine io_toupper (string) Interface → Author David A. Minton Convert string to uppercase Read more… Arguments Type Intent Optional Attributes Name character(len=*), intent(inout) :: string String to make upper case module subroutine io_write_discard (self, param) Interface → Author David A. Minton Write out information about discarded test particle Read more… Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine io_write_encounter (t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type) Interface → Author David A. Minton Write close encounter data to output binary files\n  There is no direct file output from this subroutine Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: t integer(kind=I4B), intent(in) :: name1 integer(kind=I4B), intent(in) :: name2 real(kind=DP), intent(in) :: mass1 real(kind=DP), intent(in) :: mass2 real(kind=DP), intent(in) :: radius1 real(kind=DP), intent(in) :: radius2 real(kind=DP), intent(in), dimension(:) :: xh1 real(kind=DP), intent(in), dimension(:) :: xh2 real(kind=DP), intent(in), dimension(:) :: vh1 real(kind=DP), intent(in), dimension(:) :: vh2 character(len=*), intent(in) :: enc_out character(len=*), intent(in) :: out_type module subroutine io_write_frame_body (self, iu, param) Interface → Author David A. Minton Write a frame of output of either test particle or massive body data to the binary output file\n    Note: If outputting to orbital elements, but sure that the conversion is done prior to calling this method Read more… Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest particle object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine io_write_frame_cb (self, iu, param) Interface → Author David A. Minton Write a frame of output of central body data to the binary output file Read more… Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine io_write_frame_system (self, iu, param) Interface → Author The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Write a frame (header plus records for each massive body and active test particle) to output binary file\n There is no direct file output from this subroutine Read more… Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"module/s_io.html"},{"title":"s_setup – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_setup~~UsesGraph module~s_setup s_setup module~swiftest_classes swiftest_classes module~s_setup->module~swiftest_classes module~swiftest swiftest module~s_setup->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines setup_construct_system setup_encounter setup_initialize_system setup_body setup_pl setup_tp Module Subroutines module subroutine setup_construct_system (system, param) Interface → Author David A. Minton Constructor for a Swiftest nbody system. Creates the nbody system object based on the user-input integrator Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout), allocatable :: system Swiftest system object class( swiftest_parameters ), intent(in) :: param Swiftest parameters module subroutine setup_encounter (self, n) Interface → Author David A. Minton A constructor that sets the number of encounters and allocates and initializes all arrays Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for module subroutine setup_initialize_system (self, param) Interface → Author David A. Minton Wrapper method to initialize a basic Swiftest nbody system from files Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters module subroutine setup_body (self, n, param) Interface → Author David A. Minton Constructor for base Swiftest particle class. Allocates space for all particles and\n initializes all components with a value.\n Note: Timing tests indicate that (NDIM, n) is more efficient than (NDIM, n) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter module subroutine setup_pl (self, n, param) Interface → Author David A. Minton Constructor for base Swiftest massive body class. Allocates space for all particles and\n initializes all components with a value. \n Call allocation method for parent class\n The parent class here is the abstract swiftest_body class, so we can't use the type-bound procedure Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter module subroutine setup_tp (self, n, param) Interface → Author David A. Minton Constructor for base Swiftest test particle particle class. Allocates space for \n all particles and initializes all components with a value. \n Call allocation method for parent class\n The parent class here is the abstract swiftest_body class, so we can't use the type-bound procedure Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter","tags":"","loc":"module/s_setup.html"},{"title":"s_eucl – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_eucl~~UsesGraph module~s_eucl s_eucl module~swiftest_classes swiftest_classes module~s_eucl->module~swiftest_classes module~swiftest swiftest module~s_eucl->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines eucl_dist_index_plpl Module Subroutines module subroutine eucl_dist_index_plpl (self) Interface → Author Jacob R. Elliott and David A. Minton Turns i,j indices into k index for use in the Euclidean distance matrix Read more… Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body objec","tags":"","loc":"module/s_eucl.html"},{"title":"s_user_kick_getacch – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_user_kick_getacch~~UsesGraph module~s_user_kick_getacch s_user_kick_getacch module~swiftest_classes swiftest_classes module~s_user_kick_getacch->module~swiftest_classes module~swiftest swiftest module~s_user_kick_getacch->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines user_kick_getacch_body Module Subroutines module subroutine user_kick_getacch_body (self, system, param, t, lbeg) Interface → Author David A. Minton Add user-supplied heliocentric accelerations to planets. Read more… Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters user parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the ste","tags":"","loc":"module/s_user_kick_getacch.html"},{"title":"drift_implementation – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~drift_implementation~~UsesGraph module~drift_implementation drift_implementation module~swiftest_classes swiftest_classes module~drift_implementation->module~swiftest_classes module~swiftest swiftest module~drift_implementation->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Variables E2MAX DM2MAX E2DM2MAX DANBYB NLAG1 NLAG2 Subroutines drift_dan drift_kepmd drift_kepu drift_kepu_fchk drift_kepu_guess drift_kepu_lag drift_kepu_new drift_kepu_p3solve drift_kepu_stumpff Module Subroutines drift_body drift_all drift_one Variables Type Visibility Attributes Name Initial real(kind=DP), private, parameter :: E2MAX = 0.36_DP Integration control parameters: real(kind=DP), private, parameter :: DM2MAX = 0.16_DP real(kind=DP), private, parameter :: E2DM2MAX = 0.0016_DP real(kind=DP), private, parameter :: DANBYB = 1.0E-13_DP integer(kind=I2B), private, parameter :: NLAG1 = 50 integer(kind=I2B), private, parameter :: NLAG2 = 40 Subroutines pure subroutine drift_dan (mu, x0, v0, dt0, iflag) Author David A. Minton Perform Kepler drift, solving Kepler's equation in appropriate variables Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu real(kind=DP), intent(inout), dimension(:) :: x0 real(kind=DP), intent(inout), dimension(:) :: v0 real(kind=DP), intent(in) :: dt0 integer(kind=I4B), intent(out) :: iflag pure subroutine drift_kepmd (dm, es, ec, x, s, c) Author David A. Minton Solve Kepler's equation in difference form for an ellipse for small input dm and eccentricity\n    Original disclaimer: built for speed, does not check how well the original equation is solved\n    Can do that in calling routine by checking how close (x - ec s + es (1.0 - c) - dm) is to zero Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dm real(kind=DP), intent(in) :: es real(kind=DP), intent(in) :: ec real(kind=DP), intent(out) :: x real(kind=DP), intent(out) :: s real(kind=DP), intent(out) :: c pure subroutine drift_kepu (dt, r0, mu, alpha, u, fp, c1, c2, c3, iflag) Author David A. Minton Solve Kepler's equation in universal variables Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: fp real(kind=DP), intent(out) :: c1 real(kind=DP), intent(out) :: c2 real(kind=DP), intent(out) :: c3 integer(kind=I4B), intent(out) :: iflag pure subroutine drift_kepu_fchk (dt, r0, mu, alpha, u, s, f) Author David A. Minton Computes the value of f, the function whose root we are trying to find in universal variables Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(in) :: s real(kind=DP), intent(out) :: f pure subroutine drift_kepu_guess (dt, r0, mu, alpha, u, s) Author David A. Minton Compute initial guess for solving Kepler's equation using universal variables Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: s pure subroutine drift_kepu_lag (s, dt, r0, mu, alpha, u, fp, c1, c2, c3, iflag) Author David A. Minton Solve Kepler's equation in universal variables using Laguerre's method\n      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 178 - 180. Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout) :: s real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: fp real(kind=DP), intent(out) :: c1 real(kind=DP), intent(out) :: c2 real(kind=DP), intent(out) :: c3 integer(kind=I4B), intent(out) :: iflag pure subroutine drift_kepu_new (s, dt, r0, mu, alpha, u, fp, c1, c2, c3, iflag) Author David A. Minton Solve Kepler's equation in universal variables using Newton's method\n      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 174 - 175. Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout) :: s real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: fp real(kind=DP), intent(out) :: c1 real(kind=DP), intent(out) :: c2 real(kind=DP), intent(out) :: c3 integer(kind=I4B), intent(out) :: iflag pure subroutine drift_kepu_p3solve (dt, r0, mu, alpha, u, s, iflag) Author David A. Minton Computes real root of cubic involved in setting initial guess for solving Kepler's equation in universal variables\n      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 177 - 178. Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: s integer(kind=I4B), intent(out) :: iflag pure subroutine drift_kepu_stumpff (x, c0, c1, c2, c3) Author David A. Minton Compute Stumpff functions needed for Kepler drift in universal variables\n      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 171 - 172. Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout) :: x real(kind=DP), intent(out) :: c0 real(kind=DP), intent(out) :: c1 real(kind=DP), intent(out) :: c2 real(kind=DP), intent(out) :: c3 Module Subroutines module subroutine drift_body (self, system, param, dt) Interface → Author David A. Minton Loop bodies and call Danby drift routine on the heliocentric position and velocities. Read more… Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize pure module subroutine drift_all (mu, x, v, n, param, dt, mask, iflag) Interface → Author David A. Minton Loop bodies and call Danby drift routine on all bodies for the given position and velocity vector. Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu Vector of gravitational constants real(kind=DP), intent(inout), dimension(:,:) :: x Position and velocity vectors real(kind=DP), intent(inout), dimension(:,:) :: v Position and velocity vectors integer(kind=I4B), intent(in) :: n number of bodies class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize logical, intent(in), dimension(:) :: mask Logical mask of size self%nbody that determines which bodies to drift. integer(kind=I4B), intent(out), dimension(:) :: iflag Vector of error flags. 0 means no problem pure elemental module subroutine drift_one (mu, px, py, pz, vx, vy, vz, dt, iflag) Interface → Author The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Perform Danby drift for one body, redoing drift with smaller substeps if original accuracy is insufficient Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body to drift real(kind=DP), intent(inout) :: px Position and velocity of body to drift real(kind=DP), intent(inout) :: py Position and velocity of body to drift real(kind=DP), intent(inout) :: pz Position and velocity of body to drift real(kind=DP), intent(inout) :: vx Position and velocity of body to drift real(kind=DP), intent(inout) :: vy Position and velocity of body to drift real(kind=DP), intent(inout) :: vz Position and velocity of body to drift real(kind=DP), intent(in) :: dt Step size integer(kind=I4B), intent(out) :: iflag iflag : error status flag for Danby drift (0 = OK, nonzero = ERROR)","tags":"","loc":"module/drift_implementation.html"},{"title":"s_symba_util – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_util~~UsesGraph module~s_symba_util s_symba_util module~symba_classes symba_classes module~s_symba_util->module~symba_classes module~swiftest swiftest module~s_symba_util->module~swiftest module~helio_classes helio_classes module~symba_classes->module~helio_classes module~rmvs_classes rmvs_classes module~symba_classes->module~rmvs_classes module~swiftest_globals swiftest_globals module~symba_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~symba_classes->module~swiftest_classes module~swiftest->module~symba_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~swiftest->module~rmvs_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines symba_util_append_arr_info symba_util_append_arr_kin symba_util_append_pl symba_util_append_merger symba_util_append_tp symba_util_fill_arr_info symba_util_fill_arr_kin symba_util_fill_pl symba_util_fill_tp symba_util_peri_pl symba_util_rearray_pl symba_util_resize_arr_info symba_util_resize_arr_kin symba_util_resize_merger symba_util_resize_pl symba_util_resize_tp symba_util_sort_pl symba_util_sort_tp symba_util_sort_rearrange_pl symba_util_sort_rearrange_tp symba_util_spill_arr_info symba_util_spill_arr_kin symba_util_spill_pl symba_util_spill_pltpenc symba_util_spill_tp Module Subroutines subroutine symba_util_append_arr_info (arr, source, lsource_mask) Author David A. Minton Append a single array of particle information type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: arr Destination array type( symba_particle_info ), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to subroutine symba_util_append_arr_kin (arr, source, lsource_mask) Author David A. Minton Append a single array of kinship type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Destination array type( symba_kinship ), intent(in), dimension(:), allocatable :: source Array to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine symba_util_append_pl (self, source, lsource_mask) Interface → Author David A. Minton Append components from one massive body object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine symba_util_append_merger (self, source, lsource_mask) Interface → Author David A. Minton Append components from one massive body object to another. \n This method will automatically resize the destination body if it is too small Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine symba_util_append_tp (self, source, lsource_mask) Interface → Author David A. Minton Append components from test particle object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to subroutine symba_util_fill_arr_info (keeps, inserts, lfill_list) Author David A. Minton Performs a fill operation on a single array of particle origin information types\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_particle_info ), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps subroutine symba_util_fill_arr_kin (keeps, inserts, lfill_list) Author David A. Minton Performs a fill operation on a single array of particle kinship types\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_kinship ), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine symba_util_fill_pl (self, inserts, lfill_list) Interface → Author David A. Minton Insert new SyMBA test particle structure into an old one. \n This is the inverse of a fill operation. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA masive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine symba_util_fill_tp (self, inserts, lfill_list) Interface → Author David A. Minton Insert new SyMBA test particle structure into an old one. \n This is the inverse of a fill operation. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine symba_util_peri_pl (self, system, param) Interface → Author David A. Minton Determine system pericenter passages for planets in SyMBA Read more… Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine symba_util_rearray_pl (self, system, param) Interface → Author the Purdue Swiftest Team -  David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Clean up the massive body structures to remove discarded bodies and add new bodies Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class( symba_nbody_system ), intent(inout) :: system Swiftest nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters subroutine symba_util_resize_arr_info (arr, nnew) Author David A. Minton Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size subroutine symba_util_resize_arr_kin (arr, nnew) Author David A. Minton Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size module subroutine symba_util_resize_merger (self, nnew) Interface → Author David A. Minton Checks the current size of a SyMBA merger list against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded module subroutine symba_util_resize_pl (self, nnew) Interface → Author David A. Minton Checks the current size of a SyMBA massive body object against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded module subroutine symba_util_resize_tp (self, nnew) Interface → Author David A. Minton Checks the current size of a test particle object against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in) :: nnew New size neded module subroutine symba_util_sort_pl (self, sortby, ascending) Interface → Author David A. Minton Sort a SyMBA massive body object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order module subroutine symba_util_sort_tp (self, sortby, ascending) Interface → Author David A. Minton Sort a SyMBA test particle object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order module subroutine symba_util_sort_rearrange_pl (self, ind) Interface → Author David A. Minton Rearrange SyMBA massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) module subroutine symba_util_sort_rearrange_tp (self, ind) Interface → Author David A. Minton Rearrange SyMBA test particle object in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) subroutine symba_util_spill_arr_info (keeps, discards, lspill_list, ldestructive) Author David A. Minton Performs a spill operation on a single array of particle origin information types\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_particle_info ), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not subroutine symba_util_spill_arr_kin (keeps, discards, lspill_list, ldestructive) Author David A. Minton Performs a spill operation on a single array of particle kinships\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_kinship ), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not module subroutine symba_util_spill_pl (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) SyMBA massive body particle structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill all the common components Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list module subroutine symba_util_spill_pltpenc (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) SyMBA encounter structure from active list to discard list\n Note: Because the symba_plplenc currently does not contain any additional variable components, this method can recieve it as an input as well. Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list module subroutine symba_util_spill_tp (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) SyMBA test particle structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill all the common components Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list","tags":"","loc":"module/s_symba_util.html"},{"title":"s_symba_collision – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_collision~~UsesGraph module~s_symba_collision s_symba_collision module~symba_classes symba_classes module~s_symba_collision->module~symba_classes module~swiftest swiftest module~s_symba_collision->module~swiftest module~helio_classes helio_classes module~symba_classes->module~helio_classes module~rmvs_classes rmvs_classes module~symba_classes->module~rmvs_classes module~swiftest_globals swiftest_globals module~symba_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~symba_classes->module~swiftest_classes module~swiftest->module~symba_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~swiftest->module~rmvs_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Functions symba_collision_check_one symba_collision_consolidate_familes Module Subroutines symba_collision_check_pltpenc symba_collision_encounter_scrub symba_collision_make_family_pl symba_collision_resolve_fragmentations symba_collision_resolve_mergers Functions pure elemental function symba_collision_check_one (xr, yr, zr, vxr, vyr, vzr, Gmtot, rlim, dt, lvdotr) result(lcollision) Author David A. Minton Check for a merger between a single pair of particles Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: xr Relative position vector components real(kind=DP), intent(in) :: yr Relative position vector components real(kind=DP), intent(in) :: zr Relative position vector components real(kind=DP), intent(in) :: vxr Relative velocity vector components real(kind=DP), intent(in) :: vyr Relative velocity vector components real(kind=DP), intent(in) :: vzr Relative velocity vector components real(kind=DP), intent(in) :: Gmtot Sum of G*mass of colliding bodies real(kind=DP), intent(in) :: rlim Collision limit - Typically the sum of the radii of colliding bodies real(kind=DP), intent(in) :: dt Step size logical, intent(in) :: lvdotr Logical flag indicating that these two bodies are approaching in the current substep Return Value logical Logical flag indicating whether these two bodies will collide or not function symba_collision_consolidate_familes (pl, param, idx_parent, family, x, v, mass, radius, L_spin, Ip) result(lflag) Author David A. Minton Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all family members, \n and pairs of quantities (x and v vectors, mass, radius, L_spin, and Ip) that can be used to resolve the collisional outcome. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA massive body object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(inout), dimension(2) :: idx_parent Index of the two bodies considered the \"parents\" of the collision integer(kind=I4B), intent(out), dimension(:), allocatable :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(out), dimension(NDIM,2) :: x Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(NDIM,2) :: v Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(2) :: mass Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(2) :: radius Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(NDIM,2) :: L_spin Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(NDIM,2) :: Ip Output values that represent a 2-body equivalent of a possibly 2+ body collision Return Value logical Logical flag indicating whether a family was successfully created or not Module Subroutines module subroutine symba_collision_check_pltpenc (self, system, param, t, dt, irec) Interface → Author David A. Minton Check for merger between massive bodies and test particles in SyMBA Read more… Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t current time real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level module subroutine symba_collision_encounter_scrub (self, system, param) Interface → Author David A. Minton Processes the pl-pl encounter list remove only those encounters that led to a collision Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine symba_collision_make_family_pl (self, idx) Interface → Author Jennifer L.L. Pouplin, Carlisle A. wishard, and David A. Minton When a single body is involved in more than one collision in a single step, it becomes part of a family.\n The largest body involved in a multi-body collision is the \"parent\" and all bodies that collide with it are its \"children,\"\n including those that collide with the children. Read more… Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(2) :: idx Array holding the indices of the two bodies involved in the collision module subroutine symba_collision_resolve_fragmentations (self, system, param) Interface → Author David A. Minton Process list of collisions, determine the collisional regime, and then create fragments. Read more… Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions module subroutine symba_collision_resolve_mergers (self, system, param) Interface → Author David A. Minton Process list of collisions and merge colliding bodies together. Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions","tags":"","loc":"module/s_symba_collision.html"},{"title":"s_symba_setup – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_setup~~UsesGraph module~s_symba_setup s_symba_setup module~symba_classes symba_classes module~s_symba_setup->module~symba_classes module~swiftest swiftest module~s_symba_setup->module~swiftest module~helio_classes helio_classes module~symba_classes->module~helio_classes module~rmvs_classes rmvs_classes module~symba_classes->module~rmvs_classes module~swiftest_globals swiftest_globals module~symba_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~symba_classes->module~swiftest_classes module~swiftest->module~symba_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~swiftest->module~rmvs_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines symba_setup_initialize_system symba_setup_merger symba_setup_pl symba_setup_pltpenc symba_setup_tp Module Subroutines module subroutine symba_setup_initialize_system (self, param) Interface → Author David A. Minton Initialize an SyMBA nbody system from files and sets up the planetocentric structures.\n This subroutine will also sort the massive bodies in descending order by mass Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters module subroutine symba_setup_merger (self, n, param) Interface → Author David A. Minton Allocate SyMBA test particle structure Read more… Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA merger list object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter module subroutine symba_setup_pl (self, n, param) Interface → Author David A. Minton Allocate SyMBA test particle structure Read more… Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter module subroutine symba_setup_pltpenc (self, n) Interface → Author David A. Minton A constructor that sets the number of encounters and allocates and initializes all arrays Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for module subroutine symba_setup_tp (self, n, param) Interface → Author David A. Minton Allocate WHM test particle structure Read more… Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter","tags":"","loc":"module/s_symba_setup.html"},{"title":"s_symba_kick – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_kick~~UsesGraph module~s_symba_kick s_symba_kick module~symba_classes symba_classes module~s_symba_kick->module~symba_classes module~swiftest swiftest module~s_symba_kick->module~swiftest module~helio_classes helio_classes module~symba_classes->module~helio_classes module~rmvs_classes rmvs_classes module~symba_classes->module~rmvs_classes module~swiftest_globals swiftest_globals module~symba_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~symba_classes->module~swiftest_classes module~swiftest->module~symba_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~swiftest->module~rmvs_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines symba_kick_getacch_pl symba_kick_getacch_tp symba_kick_pltpenc Module Subroutines module subroutine symba_kick_getacch_pl (self, system, param, t, lbeg) Interface → Author David A. Minton Compute heliocentric accelerations of massive bodies Read more… Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step module subroutine symba_kick_getacch_tp (self, system, param, t, lbeg) Interface → Author David A. Minton Compute heliocentric accelerations of test particles Read more… Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step module subroutine symba_kick_pltpenc (self, system, dt, irec, sgn) Interface → Author David A. Minton Kick barycentric velocities of massive bodies and ACTIVE test particles within SyMBA recursion.\n Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types Read more… Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(in) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level integer(kind=I4B), intent(in) :: sgn sign to be applied to acceleration","tags":"","loc":"module/s_symba_kick.html"},{"title":"s_symba_fragmentation – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_fragmentation~~UsesGraph module~s_symba_fragmentation s_symba_fragmentation module~symba_classes symba_classes module~s_symba_fragmentation->module~symba_classes module~swiftest swiftest module~s_symba_fragmentation->module~swiftest module~helio_classes helio_classes module~symba_classes->module~helio_classes module~rmvs_classes rmvs_classes module~symba_classes->module~rmvs_classes module~swiftest_globals swiftest_globals module~symba_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~symba_classes->module~swiftest_classes module~swiftest->module~symba_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~swiftest->module~rmvs_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Variables NFRAG_DISRUPT NFRAG_SUPERCAT Module Functions symba_fragmentation_casedisruption symba_fragmentation_casehitandrun symba_fragmentation_casemerge symba_fragmentation_casesupercatastrophic Variables Type Visibility Attributes Name Initial integer(kind=I4B), private, parameter :: NFRAG_DISRUPT = 12 integer(kind=I4B), private, parameter :: NFRAG_SUPERCAT = 20 Module Functions module function symba_fragmentation_casedisruption (system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Interface → Author Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton Create the fragments resulting from a non-catastrophic disruption collision Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome module function symba_fragmentation_casehitandrun (system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Interface → Author Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton Create the fragments resulting from a non-catastrophic hit-and-run collision Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome module function symba_fragmentation_casemerge (system, param, family, x, v, mass, radius, L_spin, Ip) result(status) Interface → Author Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton Merge planets. Read more… Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(in), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision Return Value integer(kind=I4B) Status flag assigned to this outcome module function symba_fragmentation_casesupercatastrophic (system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Interface → Author Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton Create the fragments resulting from a supercatastrophic collision Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome","tags":"","loc":"module/s_symba_fragmentation.html"},{"title":"s_symba_encounter_check – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_encounter_check~~UsesGraph module~s_symba_encounter_check s_symba_encounter_check module~symba_classes symba_classes module~s_symba_encounter_check->module~symba_classes module~swiftest swiftest module~s_symba_encounter_check->module~swiftest module~helio_classes helio_classes module~symba_classes->module~helio_classes module~rmvs_classes rmvs_classes module~symba_classes->module~rmvs_classes module~swiftest_globals swiftest_globals module~symba_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~symba_classes->module~swiftest_classes module~swiftest->module~symba_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~swiftest->module~rmvs_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Functions symba_encounter_check_pl symba_encounter_check_pltpenc symba_encounter_check_tp Module Subroutines symba_encounter_check_one Module Functions module function symba_encounter_check_pl (self, system, dt, irec) result(lany_encounter) Interface → Author David A. Minton Check for an encounter between massive bodies. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter module function symba_encounter_check_pltpenc (self, system, dt, irec) result(lany_encounter) Interface → Author David A. Minton Check for an encounter between test particles and massive bodies in the pltpenc list.\n Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types. Read more… Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-pl encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter module function symba_encounter_check_tp (self, system, dt, irec) result(lany_encounter) Interface → Author David A. Minton Check for an encounter between test particles and massive bodies. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter Module Subroutines pure elemental module subroutine symba_encounter_check_one (xr, yr, zr, vxr, vyr, vzr, rhill1, rhill2, dt, irec, lencounter, lvdotr) Interface → Author David A. Minton Check for an encounter. Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: xr real(kind=DP), intent(in) :: yr real(kind=DP), intent(in) :: zr real(kind=DP), intent(in) :: vxr real(kind=DP), intent(in) :: vyr real(kind=DP), intent(in) :: vzr real(kind=DP), intent(in) :: rhill1 real(kind=DP), intent(in) :: rhill2 real(kind=DP), intent(in) :: dt integer(kind=I4B), intent(in) :: irec logical, intent(out) :: lencounter logical, intent(out) :: lvdotr","tags":"","loc":"module/s_symba_encounter_check.html"},{"title":"s_symba_io – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_io~~UsesGraph module~s_symba_io s_symba_io module~symba_classes symba_classes module~s_symba_io->module~symba_classes module~swiftest swiftest module~s_symba_io->module~swiftest module~helio_classes helio_classes module~symba_classes->module~helio_classes module~rmvs_classes rmvs_classes module~symba_classes->module~rmvs_classes module~swiftest_globals swiftest_globals module~symba_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~symba_classes->module~swiftest_classes module~swiftest->module~symba_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~swiftest->module~rmvs_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines symba_io_dump_particle_info symba_io_initialize_particle_info symba_io_param_reader symba_io_param_writer symba_io_read_frame_info symba_io_write_discard symba_io_write_frame_info Module Subroutines module subroutine symba_io_dump_particle_info (self, param, msg) Interface → Author David A. Minton Dumps the particle information data to a file Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in), optional :: msg Message to display with dump operation module subroutine symba_io_initialize_particle_info (self, param) Interface → Author David A. Minton Initializes a particle info data structure, either starting a new one or reading one in \n from a file if it is a restarted run Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(inout) :: self SyMBA particle info object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters module subroutine symba_io_param_reader (self, unit, iotype, v_list, iostat, iomsg) Interface → Author The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Read in parameters specific to the SyMBA integrator, then calls the base io_param_reader. Read more… Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(inout) :: self Collection of parameters integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) The first element passes the integrator code to the reader integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 module subroutine symba_io_param_writer (self, unit, iotype, v_list, iostat, iomsg) Interface → Author David A. Minton Dump integration parameters specific to SyMBA to file and then call the base io_param_writer method. Read more… Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(in) :: self Collection of SyMBA parameters integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) Not used in this procedure integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 module subroutine symba_io_read_frame_info (self, iu, param, form, ierr) Interface → Author David A. Minton Reads a single frame of a particle info data from a file. Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(inout) :: self SyMBA particle info object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code module subroutine symba_io_write_discard (self, param) Interface → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine symba_io_write_frame_info (self, iu, param) Interface → Arguments Type Intent Optional Attributes Name class( symba_particle_info ), intent(in) :: self SyMBA particle info object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"module/s_symba_io.html"},{"title":"s_symba_discard – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_discard~~UsesGraph module~s_symba_discard s_symba_discard module~symba_classes symba_classes module~s_symba_discard->module~symba_classes module~swiftest swiftest module~s_symba_discard->module~swiftest module~helio_classes helio_classes module~symba_classes->module~helio_classes module~rmvs_classes rmvs_classes module~symba_classes->module~rmvs_classes module~swiftest_globals swiftest_globals module~symba_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~symba_classes->module~swiftest_classes module~swiftest->module~symba_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~swiftest->module~rmvs_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Subroutines symba_discard_cb_pl symba_discard_conserve_mtm symba_discard_nonplpl symba_discard_nonplpl_conservation symba_discard_peri_pl Module Subroutines symba_discard_pl Subroutines subroutine symba_discard_cb_pl (pl, system, param) Author David A. Minton Check to see if planets should be discarded based on their positions relative to the central body.\n If a body gets flagged here when it has also been previously flagged for a collision with another massive body,\n its collisional status will be revoked. Discards due to colliding with or escaping the central body take precedence \n over pl-pl collisions Read more… Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters subroutine symba_discard_conserve_mtm (pl, system, param, ipl, lescape_body) Author David A. Minton Conserves system momentum when a body is lost from the system or collides with central body Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl class( symba_nbody_system ), intent(inout) :: system class( symba_parameters ), intent(inout) :: param integer(kind=I4B), intent(in) :: ipl logical, intent(in) :: lescape_body subroutine symba_discard_nonplpl (pl, system, param) Author David A. Minton Check to see if planets should be discarded based on their positions or because they are unbound Read more… Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters subroutine symba_discard_nonplpl_conservation (pl, system, param) Author David A. Minton If there are any bodies that are removed due to either colliding with the central body or escaping the systme,\n we need to track the conserved quantities with the system bookkeeping terms. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(inout) :: param Current run configuration parameters subroutine symba_discard_peri_pl (pl, system, param) Author David A. Minton Check to see if a test particle should be discarded because its perihelion distance becomes too small Read more… Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Module Subroutines module subroutine symba_discard_pl (self, system, param) Interface → Author David A. Minton Call the various flavors of discards for massive bodies in SyMBA runs, including discards due to colling with the central body, \n escaping the system, or colliding with each other. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"module/s_symba_discard.html"},{"title":"s_symba_step – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_step~~UsesGraph module~s_symba_step s_symba_step module~symba_classes symba_classes module~s_symba_step->module~symba_classes module~swiftest swiftest module~s_symba_step->module~swiftest module~helio_classes helio_classes module~symba_classes->module~helio_classes module~rmvs_classes rmvs_classes module~symba_classes->module~rmvs_classes module~swiftest_globals swiftest_globals module~symba_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~symba_classes->module~swiftest_classes module~swiftest->module~symba_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~swiftest->module~rmvs_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines symba_step_system symba_step_interp_system symba_step_set_recur_levels_system symba_step_recur_system symba_step_reset_system Module Subroutines module subroutine symba_step_system (self, param, t, dt) Interface → Author David A. Minton Step planets and active test particles ahead in democratic heliocentric coordinates, descending the recursive\n   branch if necessary to handle possible close encounters Read more… Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize module subroutine symba_step_interp_system (self, param, t, dt) Interface → Author David A. Minton Step planets and active test particles ahead in democratic heliocentric coordinates, calling the recursive\n         subroutine to descend to the appropriate level to handle close encounters Read more… Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize module subroutine symba_step_set_recur_levels_system (self, ireci) Interface → Author David A. Minton Resets pl, tp,and encounter structures at the start of a new step Read more… Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object integer(kind=I4B), intent(in) :: ireci Input recursion level recursive module subroutine symba_step_recur_system (self, param, t, ireci) Interface → Author David A. Minton Step interacting planets and active test particles ahead in democratic heliocentric coordinates at the current\n         recursion level, if applicable, and descend to the next deeper level if necessarys Read more… Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), value :: t integer(kind=I4B), value :: ireci input recursion level module subroutine symba_step_reset_system (self) Interface → Author David A. Minton Resets pl, tp,and encounter structures at the start of a new step Read more… Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object","tags":"","loc":"module/s_symba_step.html"},{"title":"s_symba_drift – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_drift~~UsesGraph module~s_symba_drift s_symba_drift module~symba_classes symba_classes module~s_symba_drift->module~symba_classes module~swiftest swiftest module~s_symba_drift->module~swiftest module~helio_classes helio_classes module~symba_classes->module~helio_classes module~rmvs_classes rmvs_classes module~symba_classes->module~rmvs_classes module~swiftest_globals swiftest_globals module~symba_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~symba_classes->module~swiftest_classes module~swiftest->module~symba_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~swiftest->module~rmvs_classes module~swiftest->module~swiftest_globals module~swiftest->module~swiftest_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines symba_drift_pl symba_drift_tp Module Subroutines module subroutine symba_drift_pl (self, system, param, dt) Interface → Author David A. Minton Wrapper function used to call the body drift routine from a symba_pl structure Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize module subroutine symba_drift_tp (self, system, param, dt) Interface → Author David A. Minton Wrapper function used to call the body drift routine from a symba_pl structure Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"module/s_symba_drift.html"},{"title":"s_fragmentation – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_fragmentation~~UsesGraph module~s_fragmentation s_fragmentation module~swiftest_classes swiftest_classes module~s_fragmentation->module~swiftest_classes module~swiftest swiftest module~s_fragmentation->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines fragmentation_initialize fragmentation_regime Module Subroutines module subroutine fragmentation_initialize (system, param, family, x, v, L_spin, Ip, mass, radius, nfrag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, Qloss, lfailure) Interface → Author Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton Initialize the position and velocity of fragments to conserve energy and momentum. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: system class( swiftest_parameters ), intent(in) :: param integer(kind=I4B), intent(in), dimension(:) :: family real(kind=DP), intent(inout), dimension(:,:) :: x real(kind=DP), intent(inout), dimension(:,:) :: v real(kind=DP), intent(inout), dimension(:,:) :: L_spin real(kind=DP), intent(inout), dimension(:,:) :: Ip real(kind=DP), intent(inout), dimension(:) :: mass real(kind=DP), intent(inout), dimension(:) :: radius integer(kind=I4B), intent(inout) :: nfrag real(kind=DP), intent(inout), dimension(:,:), allocatable :: Ip_frag real(kind=DP), intent(inout), dimension(:), allocatable :: m_frag real(kind=DP), intent(inout), dimension(:), allocatable :: rad_frag real(kind=DP), intent(inout), dimension(:,:), allocatable :: xb_frag real(kind=DP), intent(inout), dimension(:,:), allocatable :: vb_frag real(kind=DP), intent(inout), dimension(:,:), allocatable :: rot_frag real(kind=DP), intent(inout) :: Qloss logical, intent(out) :: lfailure module subroutine fragmentation_regime (Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, regime, Mlr, Mslr, mtiny, Qloss) Interface → Author Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton Determine the collisional regime of two colliding bodies. \n Current version requires all values to be converted to SI units prior to calling the function\n       References:\n       Kokubo, E., Genda, H., 2010. Formation of Terrestrial Planets from Protoplanets Under a Realistic Accretion \n          Condition. ApJL 714, L21. https://doi.org/10.1088/2041-8205/714/1/L21\n       Leinhardt, Z.M., Stewart, S.T., 2012. Collisions between Gravity-dominated Bodies. I. Outcome Regimes and Scaling \n          Laws 745, 79. https://doi.org/10.1088/0004-637X/745/1/79\n       Mustill, A.J., Davies, M.B., Johansen, A., 2018. The dynamical evolution of transiting planetary systems including \n          a realistic collision prescription. Mon Not R Astron Soc 478, 2896–2908. https://doi.org/10.1093/mnras/sty1273\n       Rufu, R., Aharonson, O., 2019. Impact Dynamics of Moons Within a Planetary Potential. J. Geophys. Res. Planets 124, \n          1008–1019. https://doi.org/10.1029/2018JE005798\n       Stewart, S.T., Leinhardt, Z.M., 2012. Collisions between Gravity-dominated Bodies. II. The Diversity of Impact \n          Outcomes during the End Stage of Planet Formation. ApJ 751, 32. https://doi.org/10.1088/0004-637X/751/1/32 Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: Mcb real(kind=DP), intent(in) :: m1 real(kind=DP), intent(in) :: m2 real(kind=DP), intent(in) :: rad1 real(kind=DP), intent(in) :: rad2 real(kind=DP), intent(in), dimension(:) :: xh1 real(kind=DP), intent(in), dimension(:) :: xh2 real(kind=DP), intent(in), dimension(:) :: vb1 real(kind=DP), intent(in), dimension(:) :: vb2 real(kind=DP), intent(in) :: den1 real(kind=DP), intent(in) :: den2 integer(kind=I4B), intent(out) :: regime real(kind=DP), intent(out) :: Mlr real(kind=DP), intent(out) :: Mslr real(kind=DP), intent(in) :: mtiny real(kind=DP), intent(out) :: Qloss The residual energy after the collision","tags":"","loc":"module/s_fragmentation.html"},{"title":"s_rmvs_discard – swiftest","text":"Uses swiftest Ancestors: rmvs_classes module~~s_rmvs_discard~~UsesGraph module~s_rmvs_discard s_rmvs_discard module~rmvs_classes rmvs_classes module~s_rmvs_discard->module~rmvs_classes module~swiftest swiftest module~s_rmvs_discard->module~swiftest module~swiftest_globals swiftest_globals module~rmvs_classes->module~swiftest_globals module~whm_classes whm_classes module~rmvs_classes->module~whm_classes module~swiftest->module~rmvs_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~symba_classes->module~rmvs_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines rmvs_discard_tp Module Subroutines module subroutine rmvs_discard_tp (self, system, param) Interface → Author David A. Minton Check to see if test particles should be discarded based on pericenter passage distances with respect to planets encountered Read more… Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters","tags":"","loc":"module/s_rmvs_discard.html"},{"title":"s_rmvs_util – swiftest","text":"Uses swiftest Ancestors: rmvs_classes module~~s_rmvs_util~~UsesGraph module~s_rmvs_util s_rmvs_util module~rmvs_classes rmvs_classes module~s_rmvs_util->module~rmvs_classes module~swiftest swiftest module~s_rmvs_util->module~swiftest module~swiftest_globals swiftest_globals module~rmvs_classes->module~swiftest_globals module~whm_classes whm_classes module~rmvs_classes->module~whm_classes module~swiftest->module~rmvs_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~symba_classes->module~rmvs_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines rmvs_util_append_pl rmvs_util_append_tp rmvs_util_fill_pl rmvs_util_fill_tp rmvs_util_resize_pl rmvs_util_resize_tp rmvs_util_sort_pl rmvs_util_sort_tp rmvs_util_sort_rearrange_pl rmvs_util_sort_rearrange_tp rmvs_util_spill_pl rmvs_util_spill_tp Module Subroutines module subroutine rmvs_util_append_pl (self, source, lsource_mask) Interface → Author David A. Minton Append components from one massive body object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine rmvs_util_append_tp (self, source, lsource_mask) Interface → Author David A. Minton Append components from test particle object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), optional dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine rmvs_util_fill_pl (self, inserts, lfill_list) Interface → Author David A. Minton Insert new RMVS massive body structure into an old one. \n This is the inverse of a fill operation. Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine rmvs_util_fill_tp (self, inserts, lfill_list) Interface → Author David A. Minton Insert new RMVS test particle structure into an old one. \n This is the inverse of a fill operation. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine rmvs_util_resize_pl (self, nnew) Interface → Author David A. Minton Checks the current size of a massive body object against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in) :: nnew New size neded module subroutine rmvs_util_resize_tp (self, nnew) Interface → Author David A. Minton Checks the current size of a test particle object against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: nnew New size neded module subroutine rmvs_util_sort_pl (self, sortby, ascending) Interface → Author David A. Minton Sort a RMVS massive body object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order module subroutine rmvs_util_sort_tp (self, sortby, ascending) Interface → Author David A. Minton Sort a RMVS test particle object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order module subroutine rmvs_util_sort_rearrange_pl (self, ind) Interface → Author David A. Minton Rearrange RMVS massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) module subroutine rmvs_util_sort_rearrange_tp (self, ind) Interface → Author David A. Minton Rearrange RMVS test particle object in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) module subroutine rmvs_util_spill_pl (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) RMVS test particle structure from active list to discard list Read more… Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not module subroutine rmvs_util_spill_tp (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) RMVS test particle structure from active list to discard list Read more… Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"module/s_rmvs_util.html"},{"title":"s_rmvs_kick – swiftest","text":"Uses swiftest Ancestors: rmvs_classes module~~s_rmvs_kick~~UsesGraph module~s_rmvs_kick s_rmvs_kick module~rmvs_classes rmvs_classes module~s_rmvs_kick->module~rmvs_classes module~swiftest swiftest module~s_rmvs_kick->module~swiftest module~swiftest_globals swiftest_globals module~rmvs_classes->module~swiftest_globals module~whm_classes whm_classes module~rmvs_classes->module~whm_classes module~swiftest->module~rmvs_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~symba_classes->module~rmvs_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines rmvs_kick_getacch_tp Module Subroutines module subroutine rmvs_kick_getacch_tp (self, system, param, t, lbeg) Interface → Author David A. Minton Compute the oblateness acceleration in the inner encounter region with planets Read more… Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest central body particle data structuree class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step","tags":"","loc":"module/s_rmvs_kick.html"},{"title":"s_rmvs_setup – swiftest","text":"Uses swiftest Ancestors: rmvs_classes module~~s_rmvs_setup~~UsesGraph module~s_rmvs_setup s_rmvs_setup module~rmvs_classes rmvs_classes module~s_rmvs_setup->module~rmvs_classes module~swiftest swiftest module~s_rmvs_setup->module~swiftest module~swiftest_globals swiftest_globals module~rmvs_classes->module~swiftest_globals module~whm_classes whm_classes module~rmvs_classes->module~whm_classes module~swiftest->module~rmvs_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~symba_classes->module~rmvs_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines rmvs_setup_pl rmvs_setup_initialize_system rmvs_setup_tp Module Subroutines module subroutine rmvs_setup_pl (self, n, param) Interface → Author David A. Minton Allocate RMVS test particle structure Read more… Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameter module subroutine rmvs_setup_initialize_system (self, param) Interface → Author David A. Minton Initialize an RMVS nbody system from files and sets up the planetocentric structures. Read more… Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters module subroutine rmvs_setup_tp (self, n, param) Interface → Author David A. Minton Allocate WHM test particle structure Read more… Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameter","tags":"","loc":"module/s_rmvs_setup.html"},{"title":"s_rmvs_step – swiftest","text":"Uses swiftest Ancestors: rmvs_classes module~~s_rmvs_step~~UsesGraph module~s_rmvs_step s_rmvs_step module~rmvs_classes rmvs_classes module~s_rmvs_step->module~rmvs_classes module~swiftest swiftest module~s_rmvs_step->module~swiftest module~swiftest_globals swiftest_globals module~rmvs_classes->module~swiftest_globals module~whm_classes whm_classes module~rmvs_classes->module~whm_classes module~swiftest->module~rmvs_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~symba_classes->module~rmvs_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Subroutines rmvs_interp_out rmvs_step_out rmvs_interp_in rmvs_step_in rmvs_make_planetocentric rmvs_peri_tp rmvs_end_planetocentric Module Subroutines rmvs_step_system Subroutines subroutine rmvs_interp_out (cb, pl, dt) Author David A. Minton Interpolate planet positions between two Keplerian orbits in outer encounter region Read more… Arguments Type Intent Optional Attributes Name class( rmvs_cb ), intent(inout) :: cb RMVS central body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object real(kind=DP), intent(in) :: dt Step size subroutine rmvs_step_out (cb, pl, tp, system, param, t, dt) Author David A. Minton Step ACTIVE test particles ahead in the outer encounter region, setting up and calling the inner region\n    integration if necessar Read more… Arguments Type Intent Optional Attributes Name class( rmvs_cb ), intent(inout) :: cb RMVS central body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_tp ), intent(inout) :: tp RMVS test particle object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsiz subroutine rmvs_interp_in (cb, pl, system, param, dt, outer_index) Author David A. Minton Interpolate planet positions between two Keplerian orbits in inner encounter regio Read more… Arguments Type Intent Optional Attributes Name class( rmvs_cb ), intent(inout) :: cb RMVS cenral body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object class(swiftest_parameters), intent(in) :: param Swiftest parameters file real(kind=DP), intent(in) :: dt Step size integer(kind=I4B), intent(in) :: outer_index Outer substep number within current set subroutine rmvs_step_in (cb, pl, tp, param, outer_time, dto) Author David A. Minton Step active test particles ahead in the inner encounter region Read more… Arguments Type Intent Optional Attributes Name class( rmvs_cb ), intent(inout) :: cb RMVS central body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_tp ), intent(inout) :: tp RMVS test particle object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: outer_time Current time real(kind=DP), intent(in) :: dto Outer step size subroutine rmvs_make_planetocentric (param, cb, pl, tp) Author David A. Minton When encounters are detected, this method will call the interpolation methods for the planets and \n creates a Swiftest test particle structure for each planet's encountering test particles to simplify the \n planetocentric calculations. This subroutine is not based on an existing one from Swift and Swifter Arguments Type Intent Optional Attributes Name class(swiftest_parameters), intent(in) :: param Current run configuration paramete class( rmvs_cb ), intent(inout) :: cb RMVS central body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_tp ), intent(inout) :: tp RMVS test particle object subroutine rmvs_peri_tp (tp, pl, t, dt, lfirst, inner_index, ipleP, param) Author David A. Minton Determine planetocentric pericenter passages for test particles in close encounters with a planet Read more… Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: tp RMVS test particle object (planetocentric) class( rmvs_pl ), intent(inout) :: pl RMVS massive body object (heliocentric) real(kind=DP), intent(in) :: t current time real(kind=DP), intent(in) :: dt step size logical, intent(in) :: lfirst Logical flag indicating whether current invocation is the first integer(kind=I4B), intent(in) :: inner_index Outer substep number within current set integer(kind=I4B), intent(in) :: ipleP index of RMVS planet being closely encountered class(swiftest_parameters), intent(in) :: param Current run configuration parameters subroutine rmvs_end_planetocentric (pl, tp) Author David A. Minton Deallocates all of the encountering particle data structures for next time Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_tp ), intent(inout) :: tp RMVS test particle objec Module Subroutines module subroutine rmvs_step_system (self, param, t, dt) Interface → Author David A. Minton Step massive bodies and and active test particles ahead in heliocentric coordinates Read more… Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsiz","tags":"","loc":"module/s_rmvs_step.html"},{"title":"s_rmvs_chk – swiftest","text":"Uses swiftest Ancestors: rmvs_classes module~~s_rmvs_chk~~UsesGraph module~s_rmvs_chk s_rmvs_chk module~rmvs_classes rmvs_classes module~s_rmvs_chk->module~rmvs_classes module~swiftest swiftest module~s_rmvs_chk->module~swiftest module~swiftest_globals swiftest_globals module~rmvs_classes->module~swiftest_globals module~whm_classes whm_classes module~rmvs_classes->module~whm_classes module~swiftest->module~rmvs_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~symba_classes->module~rmvs_classes module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Functions rmvs_encounter_check_tp rmvs_chk_ind Module Functions module function rmvs_encounter_check_tp (self, system, dt) result(lencounter) Interface → Author David A. Minton Determine whether a test particle and planet are having or will have an encounter within the next time step Read more… Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object real(kind=DP), intent(in) :: dt step size Return Value logical Returns true if there is at least one close encounter elemental module function rmvs_chk_ind (r2, v2, vdotr, dt, r2crit) result(lflag) Interface → Author David A. Minton Determine whether a test particle and planet are having or will have an encounter within the next time step Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: r2 real(kind=DP), intent(in) :: v2 real(kind=DP), intent(in) :: vdotr real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r2crit Return Value logical","tags":"","loc":"module/s_rmvs_chk.html"},{"title":"swiftest_driver – swiftest","text":"Uses swiftest program~~swiftest_driver~~UsesGraph program~swiftest_driver swiftest_driver module~swiftest swiftest program~swiftest_driver->module~swiftest module~helio_classes helio_classes module~swiftest->module~helio_classes module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Driver program for the Swiftest integrators. Unlike the earlier Swift and Swifter drivers, in Swiftest all integrators \n    are run from this single program. Adapted from Swifter by David E. Kaufmann's Swifter driver programs swifter_[bs,helio,ra15,rmvs,symba,tu4,whm].f90\n Adapted from Hal Levison and Martin Duncan's Swift driver programs\n Read in the user-defined parameters file and the initial conditions of the system\n Define the maximum number of threads Step the system forward in time Evaluate any discards or collisional outcomes If the loop counter is at the output cadence value, append the data file with a single frame\n If the loop counter is at the dump cadence value, dump the state of the system to a file in case it needs to be restarted\n Dump the final state of the system to file Calls program~~swiftest_driver~~CallsGraph program~swiftest_driver swiftest_driver io_get_args io_get_args program~swiftest_driver->io_get_args setup_construct_system setup_construct_system program~swiftest_driver->setup_construct_system util_exit util_exit program~swiftest_driver->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Variables nbody_system param integrator param_file_name ierr iloop idump iout nloops start_wall_time finish_wall_time iu statusfmt Variables Type Attributes Name Initial class(swiftest_nbody_system), allocatable :: nbody_system Polymorphic object containing the nbody system to be integrated class(swiftest_parameters), allocatable :: param Run configuration parameters integer(kind=I4B) :: integrator Integrator type code (see swiftest_globals for symbolic names) character(len=:), allocatable :: param_file_name Name of the file containing user-defined parameters integer(kind=I4B) :: ierr I/O error code integer(kind=I8B) :: iloop Loop counter integer(kind=I8B) :: idump Dump cadence counter integer(kind=I8B) :: iout Output cadence counter integer(kind=I8B) :: nloops Number of steps to take in the simulation real(kind=DP) :: start_wall_time Wall clock time at start of execution real(kind=DP) :: finish_wall_time Wall clock time when execution has finished integer(kind=I4B) :: iu Unit number of binary file character(len=*), parameter :: statusfmt = '(\"Time = \", ES12.5, \"; fraction done = \", F6.3, \"; '//'Number of active pl, tp = \", I5, \", \", I5)'","tags":"","loc":"program/swiftest_driver.html"}]}
\ No newline at end of file
+var tipuesearch = {"pages":[{"title":" swiftest ","text":"swiftest Developer Info David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott The Purdue University Minton Research Group","tags":"home","loc":"index.html"},{"title":"kick.f90 – swiftest","text":"This file depends on sourcefile~~kick.f90~~EfferentGraph sourcefile~kick.f90 kick.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~kick.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_kick Source Code kick.f90 Source Code submodule ( swiftest_classes ) s_kick use swiftest contains module pure subroutine kick_getacch_int_pl ( self ) !! author: David A. Minton !! !! Compute direct cross (third) term heliocentric accelerations of massive bodies !! !! Adapted from Hal Levison's Swift routine getacch_ah3.f !! Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_ah3.f90 and helio_kick_getacch_int.f90 implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self ! Internals integer ( I4B ) :: k real ( DP ) :: rji2 , irij3 , faci , facj real ( DP ), dimension ( NDIM ) :: dx associate ( pl => self , npl => self % nbody , nplpl => self % nplpl ) do k = 1 , nplpl associate ( i => pl % k_plpl ( 1 , k ), j => pl % k_plpl ( 2 , k )) if ( pl % lmask ( i ) . and . pl % lmask ( j )) then dx (:) = pl % xh (:, j ) - pl % xh (:, i ) rji2 = dot_product ( dx (:), dx (:)) irij3 = 1.0_DP / ( rji2 * sqrt ( rji2 )) faci = pl % Gmass ( i ) * irij3 facj = pl % Gmass ( j ) * irij3 pl % ah (:, i ) = pl % ah (:, i ) + facj * dx (:) pl % ah (:, j ) = pl % ah (:, j ) - faci * dx (:) end if end associate end do end associate return end subroutine kick_getacch_int_pl module pure subroutine kick_getacch_int_tp ( self , GMpl , xhp , npl ) !! author: David A. Minton !! !! Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies !! !! Adapted from Hal Levison's Swift routine getacch_ah3_tp.f !! Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_ah3.f90 and helio_kick_getacch_int_tp.f90 implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle real ( DP ), dimension (:), intent ( in ) :: GMpl !! Massive body masses real ( DP ), dimension (:,:), intent ( in ) :: xhp !! Massive body position vectors integer ( I4B ), intent ( in ) :: npl !! Number of active massive bodies ! Internals integer ( I4B ) :: i , j real ( DP ) :: rji2 , irij3 , fac , r2 real ( DP ), dimension ( NDIM ) :: dx associate ( tp => self , ntp => self % nbody ) do concurrent ( i = 1 : ntp , tp % lmask ( i )) do j = 1 , npl dx (:) = tp % xh (:, i ) - xhp (:, j ) r2 = dot_product ( dx (:), dx (:)) fac = GMpl ( j ) / ( r2 * sqrt ( r2 )) tp % ah (:, i ) = tp % ah (:, i ) - fac * dx (:) end do end do end associate return end subroutine kick_getacch_int_tp end submodule s_kick","tags":"","loc":"sourcefile/kick.f90.html"},{"title":"tides_getacch_pl.f90 – swiftest","text":"This file depends on sourcefile~~tides_getacch_pl.f90~~EfferentGraph sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_tides_kick_getacch Source Code tides_getacch_pl.f90 Source Code submodule ( swiftest_classes ) s_tides_kick_getacch use swiftest contains module subroutine tides_kick_getacch_pl ( self , system ) !! author: Jennifer L.L. Pouplin, Carlisle A. wishard, and David A. Minton !! !! Calculated tidal torques from central body to any planet and from any planet to central body !! planet - planet interactions are considered negligable. !! This is a constant time lag model. !! !! Adapted from Mercury-T code from Bolmont et al. (2015) !! !! Reference: !!    Bolmont, E., Raymond, S.N., Leconte, J., Hersant, F., Correia, A.C.M., 2015. !!       Mercury-T : A new code to study tidally evolving multi-planet systems. !!       Applications to Kepler-62. A&A 583, A116. https://doi.org/10.1051/0004-6361/201525909 implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object ! Internals integer ( I4B ) :: i real ( DP ) :: rmag , vmag real ( DP ), dimension ( NDIM ) :: r_unit , v_unit , h_unit , theta_unit , theta_dot , F_T real ( DP ) :: Ftr , Ptopl , Ptocb , r5cbterm , r5plterm associate ( pl => self , npl => self % nbody , cb => system % cb ) pl % atide (:,:) = 0.0_DP cb % atide (:) = 0.0_DP do i = 1 , npl rmag = norm2 ( pl % xh (:, i )) vmag = norm2 ( pl % vh (:, i )) r_unit (:) = pl % xh (:, i ) / rmag v_unit (:) = pl % vh (:, i ) / vmag h_unit (:) = r_unit (:) . cross . v_unit (:) theta_unit (:) = h_unit (:) . cross . r_unit (:) theta_dot = dot_product ( pl % vh (:, i ), theta_unit (:)) ! First calculate the tangential component of the force vector (eq. 5 & 6 of Bolmont et al. 2015) ! The radial component is already computed in the obl_acc methods r5cbterm = pl % Gmass ( i ) ** 2 * cb % k2 * cb % radius ** 5 r5plterm = cb % Gmass ** 2 * pl % k2 ( i ) * pl % radius ( i ) ** 5 Ptopl = 3 * r5plterm * pl % tlag ( i ) / rmag ** 7 Ptocb = 3 * r5cbterm * cb % tlag / rmag ** 7 Ftr = - 3 / rmag ** 7 * ( r5cbterm + r5plterm ) - 3 * vmag / rmag * ( Ptocb + Ptopl ) F_T (:) = ( Ftr + ( Ptocb + Ptopl ) * dot_product ( v_unit , r_unit ) / rmag ) * r_unit (:) & + Ptopl * ( pl % rot (:, i ) - theta_dot (:)) . cross . r_unit (:) & + Ptocb * ( cb % rot (:) - theta_dot (:)) . cross . r_unit (:) cb % atide (:) = cb % atide (:) + F_T (:) / cb % Gmass pl % atide (:, i ) = F_T (:) / pl % Gmass ( i ) end do do i = 1 , npl pl % ah (:, i ) = pl % ah (:, i ) + pl % atide (:, i ) + cb % atide (:) end do end associate return end subroutine tides_kick_getacch_pl end submodule s_tides_kick_getacch","tags":"","loc":"sourcefile/tides_getacch_pl.f90.html"},{"title":"tides_spin_step.f90 – swiftest","text":"This file depends on sourcefile~~tides_spin_step.f90~~EfferentGraph sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_tides_step_spin Source Code tides_spin_step.f90 Source Code submodule ( swiftest_classes ) s_tides_step_spin use swiftest type , extends ( lambda_obj_tvar ) :: tides_derivs_func !! Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers procedure ( tidederiv ), pointer , nopass :: lambdaptr_tides_deriv real ( DP ), dimension (:,:), allocatable :: xbeg real ( DP ), dimension (:,:), allocatable :: xend real ( DP ) :: dt contains generic :: init => tides_derivs_init procedure :: evalt => tides_derivs_eval procedure , nopass :: tides_derivs_init end type interface lambda_obj module procedure tides_derivs_init end interface abstract interface function tidederiv ( x , t , dt , xbeg , xend ) result ( y ) ! Template for a 0 argument function import DP , swiftest_nbody_system real ( DP ), dimension (:), intent ( in ) :: x real ( DP ), intent ( in ) :: t real ( DP ), intent ( in ) :: dt real ( DP ), dimension (:,:), intent ( in ) :: xbeg real ( DP ), dimension (:,:), intent ( in ) :: xend real ( DP ), dimension (:), allocatable :: y end function end interface contains module subroutine tides_step_spin_system ( self , param , t , dt ) !! author: Jennifer L.L. Pouplin and David A. Minton !! !! Integrates the spin equations for central and massive bodies of the system subjected to tides. implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize ! Internals real ( DP ), dimension (:), allocatable :: rot0 , rot1 real ( DP ) :: subt real ( DP ), parameter :: tol = 1e-6_DP !! Just a guess at the moment real ( DP ) :: subdt associate ( pl => self % pl , npl => self % pl % nbody , cb => self % cb ) allocate ( rot0 ( NDIM * ( npl + 1 ))) rot0 = [ pack ( pl % rot (:, 1 : npl ),. true .), pack ( cb % rot (:),. true .)] ! Use this space call the ode_solver, passing tides_spin_derivs as the function: subdt = dt / 2 0._DP !rot1(:) = util_solve_rkf45(lambda_obj(tides_spin_derivs, subdt, pl%xbeg, pl%xend), rot0, dt, subdt tol) ! Recover with unpack !pl%rot(:,1:npl) = unpack(rot1... !cb%rot(:) = unpack(rot1... end associate return end subroutine tides_step_spin_system function tides_spin_derivs ( rot_pl_cb , t , dt , xbeg , xend ) result ( drot ) !! Need to add more arguments so we can pull in mass, radius, Ip, J2, etc... !! author: Jennifer L.L. Pouplin and David A. Minton !! !! function used to calculate the derivatives that are fed to the ODE solver implicit none ! Arguments real ( DP ), dimension (:,:), intent ( in ) :: rot_pl_cb !! Array of rotations. The last element is the central body, and all others are massive bodies real ( DP ), intent ( in ) :: t !! Current time, which is used to interpolate the massive body positions real ( DP ), intent ( in ) :: dt !! Total step size real ( DP ), dimension (:,:), intent ( in ) :: xbeg real ( DP ), dimension (:,:), intent ( in ) :: xend ! Internals real ( DP ), dimension (:,:), allocatable :: drot real ( DP ), dimension (:), allocatable :: flatrot real ( DP ), dimension ( NDIM ) :: N_Tcb , N_Rcb , N_Tpl , N_Rpl , xinterp real ( DP ) :: C_cb , C_pl , r_dot_rot_cb , r_dot_rot_pl , rmag integer ( I4B ) :: i , n n = size ( rot_pl_cb , 2 ) if ( allocated ( drot )) deallocate ( drot ) allocate ( drot , mold = rot_pl_cb ) drot (:,:) = 0.0_DP do i = 1 , n - 1 xinterp (:) = xbeg (:, i ) + t / dt * ( xend (:, i ) - xbeg (:, i )) ! Calculate Ncb and Npl as a function of xinterp !drot(:,i) = -Mcb / (Mcb + Mpl(i)) * (N_Tpl + N_Rpl) !drot(:,n) = drot(:,n) - Mcb / (Mcb + Mpl(i) * (N_Tcb + N_Rcb) ! end do return end function tides_spin_derivs function tides_derivs_eval ( self , x , t ) result ( y ) implicit none ! Arguments class ( tides_derivs_func ), intent ( inout ) :: self real ( DP ), dimension (:), intent ( in ) :: x real ( DP ), intent ( in ) :: t ! Result real ( DP ), dimension (:), allocatable :: y if ( associated ( self % lambdaptr_tides_deriv )) then y = self % lambdaptr_tides_deriv ( x , t , self % dt , self % xbeg , self % xend ) else error stop \"Lambda function was not initialized\" end if return end function tides_derivs_eval function tides_derivs_init ( lambda , dt , xbeg , xend ) result ( f ) implicit none ! Arguments procedure ( tidederiv ) :: lambda real ( DP ), intent ( in ) :: dt real ( DP ), dimension (:,:), intent ( in ) :: xbeg real ( DP ), dimension (:,:), intent ( in ) :: xend ! Result type ( tides_derivs_func ) :: f f % lambdaptr_tides_deriv => lambda f % dt = dt allocate ( f % xbeg , source = xbeg ) allocate ( f % xend , source = xend ) return end function tides_derivs_init end submodule s_tides_step_spin","tags":"","loc":"sourcefile/tides_spin_step.f90.html"},{"title":"obl.f90 – swiftest","text":"This file depends on sourcefile~~obl.f90~~EfferentGraph sourcefile~obl.f90 obl.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~obl.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_obl Source Code obl.f90 Source Code submodule ( swiftest_classes ) s_obl use swiftest contains module subroutine obl_acc_body ( self , system ) !! author: David A. Minton !! !! Compute the barycentric accelerations of bodies due to the oblateness of the central body !!      Returned values do not include monopole term or terms higher than J4 !! !! Adapted from David E. Kaufmann's Swifter routine: obl_acc.f90 and obl_acc_tp.f90 !! Adapted from Hal Levison's Swift routine obl_acc.f and obl_acc_tp.f implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object ! Internals integer ( I4B ) :: i real ( DP ) :: r2 , irh , rinv2 , t0 , t1 , t2 , t3 , fac1 , fac2 if ( self % nbody == 0 ) return associate ( n => self % nbody , cb => system % cb ) self % aobl (:,:) = 0.0_DP do concurrent ( i = 1 : n , self % lmask ( i )) r2 = dot_product ( self % xh (:, i ), self % xh (:, i )) irh = 1.0_DP / sqrt ( r2 ) rinv2 = irh ** 2 t0 = - cb % Gmass * rinv2 * rinv2 * irh t1 = 1.5_DP * cb % j2rp2 t2 = self % xh ( 3 , i ) * self % xh ( 3 , i ) * rinv2 t3 = 1.875_DP * cb % j4rp4 * rinv2 fac1 = t0 * ( t1 - t3 - ( 5 * t1 - ( 1 4.0_DP - 2 1.0_DP * t2 ) * t3 ) * t2 ) fac2 = 2 * t0 * ( t1 - ( 2.0_DP - ( 1 4.0_DP * t2 / 3.0_DP )) * t3 ) self % aobl (:, i ) = fac1 * self % xh (:, i ) self % aobl ( 3 , i ) = fac2 * self % xh ( 3 , i ) + self % aobl ( 3 , i ) end do end associate return end subroutine obl_acc_body module subroutine obl_acc_pl ( self , system ) !! author: David A. Minton !! !! Compute the barycentric accelerations of massive bodies due to the oblateness of the central body !! !! Adapted from David E. Kaufmann's Swifter routine: obl_acc.f90 and obl_acc_tp.f90 !! Adapted from Hal Levison's Swift routine obl_acc.f and obl_acc_tp.f implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody , cb => system % cb ) call obl_acc_body ( pl , system ) do i = 1 , NDIM cb % aobl ( i ) = - sum ( pl % Gmass ( 1 : npl ) * pl % aobl ( i , 1 : npl ), pl % lmask ( 1 : npl )) / cb % Gmass end do do concurrent ( i = 1 : npl , pl % lmask ( i )) pl % ah (:, i ) = pl % ah (:, i ) + pl % aobl (:, i ) - cb % aobl (:) end do end associate return end subroutine obl_acc_pl module subroutine obl_acc_tp ( self , system ) !! author: David A. Minton !! !! Compute the barycentric accelerations of massive bodies due to the oblateness of the central body !! !! Adapted from David E. Kaufmann's Swifter routine: obl_acc.f90 and obl_acc_tp.f90 !! Adapted from Hal Levison's Swift routine obl_acc.f and obl_acc_tp.f implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object ! Internals real ( DP ), dimension ( NDIM ) :: aoblcb integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody , cb => system % cb ) call obl_acc_body ( tp , system ) if ( system % lbeg ) then aoblcb = cb % aoblbeg else aoblcb = cb % aoblend end if do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % ah (:, i ) = tp % ah (:, i ) + tp % aobl (:, i ) - aoblcb (:) end do end associate return end subroutine obl_acc_tp module subroutine obl_pot ( npl , Mcb , Mpl , j2rp2 , j4rp4 , xh , irh , oblpot ) !! author: David A. Minton !! !! Compute the contribution to the total gravitational potential due solely to the oblateness of the central body !!    Returned value does not include monopole term or terms higher than J4 !! !!    Reference: MacMillan, W. D. 1958. The Theory of the Potential, (Dover Publications), 363. !! !! Adapted from David E. Kaufmann's Swifter routine: obl_pot.f90 !! Adapted from Hal Levison's Swift routine obl_pot.f implicit none ! Arguments integer ( I4B ), intent ( in ) :: npl real ( DP ), intent ( in ) :: Mcb real ( DP ), dimension (:), intent ( in ) :: Mpl real ( DP ), intent ( in ) :: j2rp2 , j4rp4 real ( DP ), dimension (:), intent ( in ) :: irh real ( DP ), dimension (:, :), intent ( in ) :: xh real ( DP ), intent ( out ) :: oblpot ! Internals integer ( I4B ) :: i real ( DP ) :: rinv2 , t0 , t1 , t2 , t3 , p2 , p4 , mu oblpot = 0.0_DP mu = Mcb do i = 1 , npl rinv2 = irh ( i ) ** 2 t0 = mu * Mpl ( i ) * rinv2 * irh ( i ) t1 = j2rp2 t2 = xh ( 3 , i ) * xh ( 3 , i ) * rinv2 t3 = j4rp4 * rinv2 p2 = 0.5_DP * ( 3 * t2 - 1.0_DP ) p4 = 0.125_DP * (( 35 * t2 - 3 0.0_DP ) * t2 + 3.0_DP ) oblpot = oblpot + t0 * ( t1 * p2 + t3 * p4 ) end do return end subroutine obl_pot end submodule s_obl","tags":"","loc":"sourcefile/obl.f90.html"},{"title":"orbel.f90 – swiftest","text":"This file depends on sourcefile~~orbel.f90~~EfferentGraph sourcefile~orbel.f90 orbel.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~orbel.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_orbel Source Code orbel.f90 Source Code submodule ( swiftest_classes ) s_orbel use swiftest contains module subroutine orbel_el2xv_vec ( self , cb ) !! author: David A. Minton !! !! A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements. implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body objec ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return call self % set_mu ( cb ) do i = 1 , self % nbody call orbel_el2xv ( self % mu ( i ), self % a ( i ), self % e ( i ), self % inc ( i ), self % capom ( i ), & self % omega ( i ), self % capm ( i ), self % xh (:, i ), self % vh (:, i )) end do end subroutine orbel_el2xv_vec pure subroutine orbel_el2xv ( mu , a , ie , inc , capom , omega , capm , x , v ) !! author: David A. Minton !! !! Compute osculating orbital elements from relative C)rtesian position and velocity !!  All angular measures are returned in radians !!      If inclination < TINY, longitude of the ascending node is arbitrarily set to 0 !! !!      If eccentricity < sqrt(TINY), argument of pericenter is arbitrarily set to 0 !! !!      ALGORITHM:  See Fitzpatrick \"Principles of Cel. Mech.\" !! !! Adapted from Martin Duncan's el2xv.f !! DATE WRITTEN:  May 11, 1992. !! REVISIONS: May 26 - now use better Kepler solver for ellipses !!  and hyperbolae called EHYBRID.F and FHYBRID.F implicit none real ( DP ), intent ( in ) :: mu real ( DP ), intent ( in ) :: a , ie , inc , capom , omega , capm real ( DP ), dimension (:), intent ( out ) :: x , v integer ( I4B ) :: iorbit_type real ( DP ) :: e , cape , capf , zpara , em1 real ( DP ) :: sip , cip , so , co , si , ci real ( DP ) :: d11 , d12 , d13 , d21 , d22 , d23 real ( DP ) :: scap , ccap , shcap , chcap real ( DP ) :: sqe , sqgma , xfac1 , xfac2 , ri , vfac1 , vfac2 if ( ie < 0.0_DP ) then !write(*,*) ' ERROR in orbel_el2xv: e<0, setting e=0!!1' e = 0.0_DP iorbit_type = ELLIPSE else e = ie em1 = e - 1._DP if ( abs ( em1 ) < VSMALL ) then iorbit_type = PARABOLA else if ( e > 1.0_DP ) then iorbit_type = HYPERBOLA else iorbit_type = ELLIPSE end if endif call orbel_scget ( omega , sip , cip ) call orbel_scget ( capom , so , co ) call orbel_scget ( inc , si , ci ) d11 = cip * co - sip * so * ci d12 = cip * so + sip * co * ci d13 = sip * si d21 = - sip * co - cip * so * ci d22 = - sip * so + cip * co * ci d23 = cip * si !-- ! Get the other quantities depending on orbit type ! if ( iorbit_type == ELLIPSE ) then cape = orbel_ehybrid ( e , capm ) call orbel_scget ( cape , scap , ccap ) sqe = sqrt ( 1._DP - e ** 2 ) sqgma = sqrt ( mu * a ) xfac1 = a * ( ccap - e ) xfac2 = a * sqe * scap ri = 1._DP / ( a * ( 1._DP - e * ccap )) vfac1 = - ri * sqgma * scap vfac2 = ri * sqgma * sqe * ccap endif !-- if ( iorbit_type == HYPERBOLA ) then capf = orbel_fhybrid ( e , capm ) call orbel_schget ( capf , shcap , chcap ) sqe = sqrt ( e ** 2 - 1._DP ) sqgma = sqrt ( mu * a ) xfac1 = a * ( e - chcap ) xfac2 = a * sqe * shcap ri = 1._DP / ( a * ( e * chcap - 1._DP )) vfac1 = - ri * sqgma * shcap vfac2 = ri * sqgma * sqe * chcap endif !-- if ( iorbit_type == PARABOLA ) then zpara = orbel_zget ( capm ) sqgma = sqrt ( 2 * mu * a ) xfac1 = a * ( 1._DP - zpara * zpara ) xfac2 = 2 * a * zpara ri = 1._DP / ( a * ( 1._DP + zpara * zpara )) vfac1 = - ri * sqgma * zpara vfac2 = ri * sqgma endif !-- x ( 1 ) = d11 * xfac1 + d21 * xfac2 x ( 2 ) = d12 * xfac1 + d22 * xfac2 x ( 3 ) = d13 * xfac1 + d23 * xfac2 v ( 1 ) = d11 * vfac1 + d21 * vfac2 v ( 2 ) = d12 * vfac1 + d22 * vfac2 v ( 3 ) = d13 * vfac1 + d23 * vfac2 return end subroutine orbel_el2xv module pure subroutine orbel_scget ( angle , sx , cx ) !! author: David A. Minton !! !! Efficiently compute the sine and cosine of an input angle !!      Input angle must be in radians !! !! Adapted from David E. Kaufmann's Swifter routine: orbel_scget.f90 !! Adapted from Hal Levison's Swift routine orbel_scget.f implicit none ! Arguments real ( DP ), intent ( in ) :: angle real ( DP ), intent ( out ) :: sx , cx ! Internals integer ( I4B ) :: nper real ( DP ) :: x nper = angle / TWOPI x = angle - nper * TWOPI if ( x < 0.0_DP ) x = x + TWOPI sx = sin ( x ) cx = sqrt ( 1.0_DP - sx ** 2 ) if (( x > PIBY2 ) . and . ( x < PI3BY2 )) cx = - cx return end subroutine orbel_scget !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !********************************************************************** !                   ORBEL_SCHGET.F !********************************************************************** !     PURPOSE:  Given an angle, efficiently compute sinh and cosh. ! !        Input: !             angle ==> angle in radians (real scalar) ! !        Output: !             shx    ==>  sinh(angle)  (real scalar) !             chx    ==>  cosh(angle)  (real scalar) ! !     ALGORITHM: Obvious from the code !     REMARKS: Based on the routine SCGET for sine's and cosine's. !       We use the sqrt rather than cosh (it's faster) !       BE SURE THE ANGLE IS IN RADIANS AND IT CAN'T BE LARGER THAN 300 !       OR OVERFLOWS WILL OCCUR! !     AUTHOR:  M. Duncan. !     DATE WRITTEN:  May 6, 1992. !     REVISIONS: !********************************************************************** pure subroutine orbel_schget ( angle , shx , chx ) real ( DP ), intent ( in ) :: angle real ( DP ), intent ( out ) :: shx , chx shx = sinh ( angle ) chx = sqrt ( 1._DP + shx * shx ) return end subroutine orbel_schget !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !        !                    ORBEL_FLON.F !********************************************************************** !     PURPOSE:  Solves Kepler's eqn. for hyperbola using hybrid approach. ! !             Input: !                           e ==> eccentricity anomaly. (real scalar) !                        capn ==> hyperbola mean anomaly. (real scalar) !             Returns: !                  orbel_flon ==>  eccentric anomaly. (real scalar) ! !     ALGORITHM: Uses power series for N in terms of F and Newton,s method !     REMARKS: ONLY GOOD FOR LOW VALUES OF N (N < 0.636*e -0.6) !     AUTHOR: M. Duncan !     DATE WRITTEN: May 26, 1992. !     REVISIONS: !********************************************************************** real ( DP ) pure function orbel_flon ( e , icapn ) implicit none real ( DP ), intent ( in ) :: e , icapn integer ( I4B ) :: iflag , i real ( DP ) :: a , b , sq , biga , bigb , capn real ( DP ) :: x , x2 real ( DP ) :: f , fp , dx real ( DP ) :: diff real ( DP ) :: a0 , a1 real ( DP ) :: b1 integer ( I4B ), parameter :: IMAX = 10 real ( DP ), parameter :: a11 = 15 6._DP , a9 = 1716 0._DP , a7 = 123552 0._DP real ( DP ), parameter :: a5 = 5189184 0._DP , a3 = 103783680 0._DP real ( DP ), parameter :: b11 = 11 * a11 , b9 = 9 * a9 , b7 = 7 * a7 real ( DP ), parameter :: b5 = 5 * a5 , b3 = 3 * a3 real ( DP ), parameter :: THIRD = 1._DP / 3._DP ! Function to solve \"Kepler's eqn\" for F (here called ! x) for given e and CAPN. Only good for smallish CAPN iflag = 0 if ( icapn < 0._DP ) then iflag = 1 capn = - icapn else capn = icapn end if a1 = 622702080 0._DP * ( 1._DP - 1._DP / e ) a0 = - 622702080 0._DP * capn / e b1 = a1 !  set iflag nonzero if capn < 0., in which case solve for -capn !  and change the sign of the final answer for f. !  Begin with a reasonable guess based on solving the cubic for small F a = 6 * ( e - 1.d0 ) / e b = - 6 * capn / e sq = SQRT ( 0.25_DP * b ** 2 + a ** 3 / 2 7._DP ) biga = ( - 0.5_DP * b + sq ) ** ( 1.0_DP / 3.0_DP ) bigb = - ( + 0.5_DP * b + sq ) ** ( 1.0_DP / 3.0_DP ) x = biga + bigb ! write(6,*) 'cubic = ',x**3 +a*x +b orbel_flon = x ! If capn is VSMALL (or zero) no need to go further than cubic even for ! e =1. if ( capn < VSMALL ) go to 100 do i = 1 , IMAX x2 = x * x f = a0 + x * ( a1 + x2 * ( a3 + x2 * ( a5 + x2 * ( a7 + x2 * ( a9 + x2 * ( a11 + x2 )))))) fp = b1 + x2 * ( b3 + x2 * ( b5 + x2 * ( b7 + x2 * ( b9 + x2 * ( b11 + 13 * x2 ))))) dx = - f / fp !   write(6,*) 'i,dx,x,f : ' !   write(6,432) i,dx,x,f 432 format ( 1 x , i3 , 3 ( 2 x , 1 p1e22 . 15 )) orbel_flon = x + dx !   if we have converged here there's no point in going on if ( abs ( dx ) <= VSMALL ) go to 100 x = orbel_flon end do ! abnormal return here - we've gone thru the loop ! imax times without convergence if ( iflag == 1 ) then orbel_flon = - orbel_flon capn = - capn end if !write(*,*) 'flon : returning without complete convergence' diff = e * sinh ( orbel_flon ) - orbel_flon - capn !write(*,*) 'n, f, ecc*sinh(f) - f - n : ' !write(*,*) capn,orbel_flon,diff return !  normal return here, but check if capn was originally negative 100 if ( iflag == 1 ) then orbel_flon = - orbel_flon capn = - capn end if return end function orbel_flon !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !                    ORBEL_FGET.F !********************************************************************** !     PURPOSE:  Solves Kepler's eqn. for hyperbola using hybrid approach. ! !             Input: !                           e ==> eccentricity anomaly. (real scalar) !                        capn ==> hyperbola mean anomaly. (real scalar) !             Returns: !                  orbel_fget ==>  eccentric anomaly. (real scalar) ! !     ALGORITHM: Based on pp. 70-72 of Fitzpatrick's book \"Principles of !           Cel. Mech. \".  Quartic convergence from Danby's book. !     REMARKS: !     AUTHOR: M. Duncan !     DATE WRITTEN: May 11, 1992. !     REVISIONS: 2/26/93 hfl !********************************************************************** real ( DP ) pure function orbel_fget ( e , capn ) implicit none real ( DP ), intent ( in ) :: e , capn integer :: i real ( DP ) :: tmp , x , shx , chx real ( DP ) :: esh , ech , f , fp , fpp , fppp , dx integer ( I4B ), parameter :: IMAX = 10 !---- !...  executable code ! function to solve \"kepler's eqn\" for f (here called ! x) for given e and capn. !  begin with a guess proposed by danby if ( capn < 0.d0 ) then tmp = - 2 * capn / e + 1.8_DP x = - log ( tmp ) else tmp = + 2 * capn / e + 1.8_DP x = log ( tmp ) end if orbel_fget = x do i = 1 , IMAX call orbel_schget ( x , shx , chx ) esh = e * shx ech = e * chx f = esh - x - capn !   write(6,*) 'i,x,f : ',i,x,f fp = ech - 1.d0 fpp = esh fppp = ech dx = - f / fp dx = - f / ( fp + dx * fpp / 2._DP ) dx = - f / ( fp + dx * fpp / 2._DP + dx ** 2 * fppp / 6._DP ) orbel_fget = x + dx !   if we have converged here there's no point in going on if ( abs ( dx ) <= VSMALL ) return x = orbel_fget end do !write(*,*) 'fget : returning without complete convergence' return end function orbel_fget !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !                    ORBEL_ZGET.F !********************************************************************** !     PURPOSE:  Solves the equivalent of Kepler's eqn. for a parabola !          given Q (Fitz. notation.) ! !             Input: !                           q ==>  parabola mean anomaly. (real scalar) !             Returns: !                  orbel_zget ==>  eccentric anomaly. (real scalar) ! !     ALGORITHM: p. 70-72 of Fitzpatrick's book \"Princ. of Cel. Mech.\" !     REMARKS: For a parabola we can solve analytically. !     AUTHOR: M. Duncan !     DATE WRITTEN: May 11, 1992. !     REVISIONS: May 27 - corrected it for negative Q and use power !       series for small Q. !********************************************************************** real ( DP ) pure function orbel_zget ( iq ) implicit none real ( DP ), intent ( in ) :: iq integer ( I4B ) :: iflag real ( DP ) :: x , tmp , q iflag = 0 if ( iq < 0.0_DP ) then iflag = 1 q = - iq else q = iq end if if ( q < 1.e-3_DP ) then orbel_zget = q * ( 1._DP - ( q ** 2 / 3._DP ) * ( 1._DP - q ** 2 )) else x = 0.5_DP * ( 3 * q + sqrt ( 9 * q ** 2 + 4._DP )) tmp = x ** ( 1._DP / 3._DP ) orbel_zget = tmp - 1._DP / tmp end if if ( iflag == 1 ) then orbel_zget = - orbel_zget q = - q end if return end function orbel_zget !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !                    ORBEL_ESOLMD.F !********************************************************************** !     PURPOSE:  Solves Kepler's eqn.   e is ecc.   m is mean anomaly. ! !             Input: !                           e ==> eccentricity anomaly. (real scalar) !                           m ==> mean anomaly. (real scalar) !             Returns: !                orbel_esolmd ==>  eccentric anomaly. (real scalar) ! !     ALGORITHM: Some sort of quartic convergence from Wisdom. !     REMARKS: ONLY GOOD FOR SMALL ECCENTRICITY SINCE IT ONLY !         ITERATES ONCE. (GOOD FOR PLANET CALCS.) !         ALSO DOES NOT PUT M OR E BETWEEN 0. AND 2*PI !     INCLUDES: needs SCGET.F !     AUTHOR: M. Duncan !     DATE WRITTEN: May 7, 1992. !     REVISIONS: 2/26/93 hfl !********************************************************************** real ( DP ) pure function orbel_esolmd ( e , m ) implicit none real ( DP ), intent ( in ) :: e real ( DP ), intent ( in ) :: m real ( DP ) :: x , sm , cm , sx , cx real ( DP ) :: es , ec , f , fp , fpp , fppp , dx !...    function to solve kepler's eqn for e (here called !...    x) for given e and m. returns value of x. call orbel_scget ( m , sm , cm ) x = m + e * sm * ( 1._DP + e * ( cm + e * ( 1._DP - 1.5_DP * sm ** 2 ))) call orbel_scget ( x , sx , cx ) es = e * sx ec = e * cx f = x - es - m fp = 1._DP - ec fpp = es fppp = ec dx = - f / fp dx = - f / ( fp + dx * fpp / 2._DP ) dx = - f / ( fp + dx * fpp / 2._DP + dx ** 2 * fppp / 6._DP ) orbel_esolmd = x + dx return end function orbel_esolmd !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !                    ORBEL_EHIE.F !********************************************************************** !     PURPOSE:  Solves Kepler's eqn.   e is ecc.   m is mean anomaly. ! !             Input: !                           e ==> eccentricity anomaly. (real scalar) !                           m ==> mean anomaly. (real scalar) !             Returns: !              orbel_ehybrid ==>  eccentric anomaly. (real scalar) ! !     ALGORITHM: Use Danby's quartic for 3 iterations. !                Eqn. is f(x) = x - e*sin(x+M). Note  that !          E = x + M. First guess is very good for e near 1. !          Need to first get M between 0. and PI and use !   symmetry to return right answer if M between PI and 2PI !     REMARKS: Modifies M so that both E and M are in range (0,TWOPI) !     AUTHOR: M. Duncan !     DATE WRITTEN: May 25,1992. !     REVISIONS: !********************************************************************** real ( DP ) pure function orbel_ehie ( e , im ) implicit none real ( DP ), intent ( in ) :: e , im integer ( I4B ) :: iflag , nper , niter real ( DP ) :: dx , x , sa , ca , esa , eca , f , fp , m integer ( I4B ), parameter :: NMAX = 3 ! in this section, bring m into the range (0,TWOPI) and if ! the result is greater than pi, solve for (TWOPI - m). iflag = 0 nper = im / TWOPI m = im - nper * TWOPI if ( m < 0._DP ) m = m + TWOPI if ( m > PI ) then m = TWOPI - m iflag = 1 end if ! make a first guess that works well for e near 1. x = ( 6 * m ) ** ( 1._DP / 3._DP ) - m niter = 0 ! iteration loop do niter = 1 , NMAX call orbel_scget ( x + m , sa , ca ) esa = e * sa eca = e * ca f = x - esa fp = 1._DP - eca dx = - f / fp dx = - f / ( fp + 0.5_DP * dx * esa ) dx = - f / ( fp + 0.5_DP * dx * ( esa + eca * dx / 3.0_DP )) x = x + dx end do orbel_ehie = m + x if ( iflag == 1 ) then orbel_ehie = TWOPI - orbel_ehie m = TWOPI - m end if return end function orbel_ehie !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !                             ORBEL_EGET.F !********************************************************************** !     PURPOSE:  Solves Kepler's eqn.   e is ecc.   m is mean anomaly. ! !             Input: !                           e ==> eccentricity anomaly. (real scalar) !                           m ==> mean anomaly. (real scalar) !             Returns: !                  orbel_eget ==>  eccentric anomaly. (real scalar) ! !     ALGORITHM: Quartic convergence from Danby !     REMARKS: For results very near roundoff, give it M between !           0 and 2*pi. One can condition M before calling EGET !           by calling my double precision function MOD2PI(M). !           This is not done within the routine to speed it up !           and because it works fine even for large M. !     AUTHOR: M. Duncan !     DATE WRITTEN: May 7, 1992. !     REVISIONS: May 21, 1992.  Now have it go through EXACTLY two iterations !                with the premise that it will only be called if !          we have an ellipse with e between 0.15 and 0.8 !********************************************************************** real ( DP ) pure function orbel_eget ( e , m ) implicit none real ( DP ), intent ( in ) :: e , m real ( DP ) :: x , sm , cm , sx , cx real ( DP ) :: es , ec , f , fp , fpp , fppp , dx ! function to solve kepler's eqn for e (here called ! x) for given e and m. returns value of x. ! may 21 : for e < 0.18 use esolmd for speed and sufficient accuracy ! may 21 : for e > 0.8 use ehie - this one may not converge fast enough. call orbel_scget ( m , sm , cm ) !  begin with a guess accurate to order ecc**3 x = m + e * sm * ( 1._DP + e * ( cm + e * ( 1._DP - 1.5_DP * sm * sm ))) !  go through one iteration for improved estimate call orbel_scget ( x , sx , cx ) es = e * sx ec = e * cx f = x - es - m fp = 1._DP - ec fpp = es fppp = ec dx = - f / fp dx = - f / ( fp + dx * fpp / 2._DP ) dx = - f / ( fp + dx * fpp / 2._DP + dx * 2 * fppp / 6._DP ) orbel_eget = x + dx ! do another iteration. ! for m between 0 and 2*pi this seems to be enough to ! get near roundoff error for eccentricities between 0 and 0.8 x = orbel_eget call orbel_scget ( x , sx , cx ) es = e * sx ec = e * cx f = x - es - m fp = 1._DP - ec fpp = es fppp = ec dx = - f / fp dx = - f / ( fp + dx * fpp / 2._DP ) dx = - f / ( fp + dx * fpp / 2._DP + dx ** 2 * fppp / 6._DP ) orbel_eget = x + dx return end function orbel_eget !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !                    ORBEL_EHYBRID.F !********************************************************************** !     PURPOSE:  Solves Kepler's eqn.   e is ecc.   m is mean anomaly. ! !             Input: !                           e ==> eccentricity anomaly. (real scalar) !                           m ==> mean anomaly. (real scalar) !             Returns: !              orbel_ehybrid ==>  eccentric anomaly. (real scalar) ! !     ALGORITHM: For e < 0.18 uses fast routine ESOLMD !          For larger e but less than 0.8, uses EGET !          For e > 0.8 uses EHIE !     REMARKS: Only EHIE brings M and E into range (0,TWOPI) !     AUTHOR: M. Duncan !     DATE WRITTEN: May 25,1992. !     REVISIONS: 2/26/93 hfl !********************************************************************** real ( DP ) pure function orbel_ehybrid ( e , m ) implicit none real ( DP ), intent ( in ) :: e , m !real(DP) :: orbel_esolmd,orbel_eget,orbel_ehie if ( e < 0.18_DP ) then orbel_ehybrid = orbel_esolmd ( e , m ) else if ( e <= 0.8_DP ) then orbel_ehybrid = orbel_eget ( e , m ) else orbel_ehybrid = orbel_ehie ( e , m ) end if end if return end function orbel_ehybrid !********************************************************************** ! Code converted to Modern Fortran by David A. Minton ! Date: 2020-06-29 !                    ORBEL_FHYBRID.F !********************************************************************** !     PURPOSE:  Solves Kepler's eqn. for hyperbola using hybrid approach. ! !             Input: !                           e ==> eccentricity anomaly. (real scalar) !                           n ==> hyperbola mean anomaly. (real scalar) !             Returns: !               orbel_fhybrid ==>  eccentric anomaly. (real scalar) ! !     ALGORITHM: For abs(N) < 0.636*ecc -0.6 , use FLON !          For larger N, uses FGET !     REMARKS: !     AUTHOR: M. Duncan !     DATE WRITTEN: May 26,1992. !     REVISIONS:: !     REVISIONS: 2/26/93 hfl !********************************************************************** real ( DP ) pure function orbel_fhybrid ( e , n ) implicit none real ( DP ), intent ( in ) :: e , n real ( DP ) :: abn abn = n if ( n < 0._DP ) abn = - abn if ( abn < 0.636_DP * e - 0.6_DP ) then orbel_fhybrid = orbel_flon ( e , n ) else orbel_fhybrid = orbel_fget ( e , n ) end if return end function orbel_fhybrid module pure subroutine orbel_xv2aeq ( mu , x , v , a , e , q ) !! author: David A. Minton !! !! Compute semimajor axis, eccentricity, and pericentric distance from relative Cartesian position and velocity !! !! Adapted from David E. Kaufmann's Swifter routine: orbel_xv2aeq.f90 !! Adapted from Luke Dones' Swift routine orbel_xv2aeq.f implicit none !! Arguments real ( DP ), intent ( in ) :: mu real ( DP ), dimension (:), intent ( in ) :: x , v real ( DP ), intent ( out ) :: a , e , q integer ( I4B ) :: iorbit_type real ( DP ) :: r , v2 , h2 , energy , fac real ( DP ), dimension ( NDIM ) :: hvec a = 0.0_DP e = 0.0_DP q = 0.0_DP r = sqrt ( dot_product ( x (:), x (:))) v2 = dot_product ( v (:), v (:)) hvec (:) = x (:) . cross . v (:) h2 = dot_product ( hvec (:), hvec (:)) if ( h2 == 0.0_DP ) return energy = 0.5_DP * v2 - mu / r if ( abs ( energy * r / mu ) < sqrt ( VSMALL )) then iorbit_type = PARABOLA else a = - 0.5_DP * mu / energy if ( a < 0.0_DP ) then fac = - h2 / ( mu * a ) if ( fac > VSMALL ) then iorbit_type = HYPERBOLA else iorbit_type = PARABOLA end if else iorbit_type = ELLIPSE end if end if select case ( iorbit_type ) case ( ELLIPSE ) fac = 1.0_DP - h2 / ( mu * a ) if ( fac > VSMALL ) e = sqrt ( fac ) q = a * ( 1.0_DP - e ) case ( PARABOLA ) a = 0.5_DP * h2 / mu e = 1.0_DP q = a case ( HYPERBOLA ) e = sqrt ( 1.0_DP + fac ) q = a * ( 1.0_DP - e ) end select return end subroutine orbel_xv2aeq module pure subroutine orbel_xv2aqt ( mu , x , v , a , q , capm , tperi ) !! author: David A. Minton !! !! Compute semimajor axis, pericentric distance, mean anomaly, and time to nearest pericenter passage from !! relative Cartesian position and velocity !!      tperi > 0 means nearest pericenter passage is in the future !!      tperi < 0 means nearest pericenter passage is in the past !! !! Adapted from David E. Kaufmann's Swifter routine: orbel_xv2aqt.f90 implicit none ! Arguments real ( DP ), intent ( in ) :: mu !! Gravitational constant real ( DP ), dimension (:), intent ( in ) :: x !! Position vector real ( DP ), dimension (:), intent ( in ) :: v !! Velocity vector real ( DP ), intent ( out ) :: a !! semimajor axis real ( DP ), intent ( out ) :: q !! periapsis real ( DP ), intent ( out ) :: capm !! mean anomaly real ( DP ), intent ( out ) :: tperi !! time of pericenter passage ! Internals integer ( I4B ) :: iorbit_type real ( DP ) :: r , v2 , h2 , rdotv , energy , fac , w , face , cape , e , tmpf , capf , mm real ( DP ), dimension ( NDIM ) :: hvec a = 0.0_DP q = 0.0_DP capm = 0.0_DP tperi = 0.0_DP r = sqrt ( dot_product ( x (:), x (:))) v2 = dot_product ( v (:), v (:)) hvec (:) = x (:) . cross . v (:) h2 = dot_product ( hvec (:), hvec (:)) if ( h2 == 0.0_DP ) return rdotv = dot_product ( x (:), v (:)) energy = 0.5_DP * v2 - mu / r if ( abs ( energy * r / mu ) < sqrt ( VSMALL )) then iorbit_type = PARABOLA else a = - 0.5_DP * mu / energy if ( a < 0.0_DP ) then fac = - h2 / ( mu * a ) if ( fac > VSMALL ) then iorbit_type = HYPERBOLA else iorbit_type = PARABOLA end if else iorbit_type = ELLIPSE end if end if select case ( iorbit_type ) case ( ELLIPSE ) fac = 1.0_DP - h2 / ( mu * a ) if ( fac > VSMALL ) then e = sqrt ( fac ) cape = 0.0_DP face = ( a - r ) / ( a * e ) if ( face < - 1.0_DP ) then cape = PI else if ( face < 1.0_DP ) then cape = acos ( face ) end if if ( rdotv < 0.0_DP ) cape = TWOPI - cape else e = 0.0_DP cape = 0.0_DP end if capm = cape - e * sin ( cape ) q = a * ( 1.0_DP - e ) mm = sqrt ( mu / a ** 3 ) if ( capm < PI ) then tperi = - 1.0_DP * capm / mm else tperi = - 1.0_DP * ( capm - TWOPI ) / mm end if case ( PARABOLA ) a = 0.5_DP * h2 / mu e = 1.0_DP w = 0.0_DP fac = 2 * a / r - 1.0_DP if ( fac < - 1.0_DP ) then w = PI else if ( fac < 1.0_DP ) then w = acos ( fac ) end if if ( rdotv < 0.0_DP ) w = TWOPI - w tmpf = tan ( 0.5_DP * w ) capm = tmpf * ( 1.0_DP + tmpf * tmpf / 3.0_DP ) q = a mm = sqrt ( 0.5_DP * mu / q ** 3 ) tperi = - 1.0_DP * capm / mm case ( HYPERBOLA ) e = sqrt ( 1.0_DP + fac ) tmpf = ( a - r ) / ( a * e ) if ( tmpf < 1.0_DP ) tmpf = 1.0_DP capf = log ( tmpf + sqrt ( tmpf * tmpf - 1.0_DP )) if ( rdotv < 0.0_DP ) capf = - capf capm = e * sinh ( capf ) - capf q = a * ( 1.0_DP - e ) mm = sqrt ( - mu / a ** 3 ) tperi = - 1.0_DP * capm / mm end select return end subroutine orbel_xv2aqt module subroutine orbel_xv2el_vec ( self , cb ) !! author: David A. Minton !! !! A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements. implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object ! internals integer ( I4B ) :: i if ( self % nbody == 0 ) return call self % set_mu ( cb ) if (. not . allocated ( self % a )) allocate ( self % a ( self % nbody )) if (. not . allocated ( self % e )) allocate ( self % e ( self % nbody )) if (. not . allocated ( self % inc )) allocate ( self % inc ( self % nbody )) if (. not . allocated ( self % capom )) allocate ( self % capom ( self % nbody )) if (. not . allocated ( self % omega )) allocate ( self % omega ( self % nbody )) if (. not . allocated ( self % capm )) allocate ( self % capm ( self % nbody )) do i = 1 , self % nbody call orbel_xv2el ( self % mu ( i ), self % xh (:, i ), self % vh (:, i ), self % a ( i ), self % e ( i ), self % inc ( i ), & self % capom ( i ), self % omega ( i ), self % capm ( i )) end do end subroutine orbel_xv2el_vec pure subroutine orbel_xv2el ( mu , x , v , a , e , inc , capom , omega , capm ) !! author: David A. Minton !! !! Compute osculating orbital elements from relative Cartesian position and velocity !!  All angular measures are returned in radians !!      If inclination < TINY, longitude of the ascending node is arbitrarily set to 0 !! !!      If eccentricity < sqrt(TINY), argument of pericenter is arbitrarily set to 0 !! !!      References: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 201 - 206. !!              Fitzpatrick, P. M. 1970. Principles of Celestial Mechanics, (Academic Press), 69 - 73. !!              Roy, A. E. 1982. Orbital Motion, (Adam Hilger, Ltd.), 75 - 95 !! !! Adapted from David E. Kaufmann's Swifter routine: orbel_xv2el.f90 !! Adapted from Martin Duncan's Swift routine orbel_xv2el.f implicit none real ( DP ), intent ( in ) :: mu real ( DP ), dimension (:), intent ( in ) :: x , v real ( DP ), intent ( out ) :: a , e , inc , capom , omega , capm integer ( I4B ) :: iorbit_type real ( DP ) :: r , v2 , h2 , h , rdotv , energy , fac , u , w , cw , sw , face , cape , tmpf , capf real ( DP ), dimension ( NDIM ) :: hvec a = 0.0_DP e = 0.0_DP inc = 0.0_DP capom = 0.0_DP omega = 0.0_DP capm = 0.0_DP r = sqrt ( dot_product ( x (:), x (:))) v2 = dot_product ( v (:), v (:)) hvec = x (:) . cross . v (:) h2 = dot_product ( hvec (:), hvec (:)) h = sqrt ( h2 ) if ( h2 == 0.0_DP ) return rdotv = dot_product ( x (:), v (:)) energy = 0.5_DP * v2 - mu / r fac = hvec ( 3 ) / h if ( fac < - 1.0_DP ) then inc = PI else if ( fac < 1.0_DP ) then inc = acos ( fac ) end if fac = sqrt ( hvec ( 1 ) ** 2 + hvec ( 2 ) ** 2 ) / h if ( fac ** 2 < VSMALL ) then u = atan2 ( x ( 2 ), x ( 1 )) if ( hvec ( 3 ) < 0.0_DP ) u = - u else capom = atan2 ( hvec ( 1 ), - hvec ( 2 )) u = atan2 ( x ( 3 ) / sin ( inc ), x ( 1 ) * cos ( capom ) + x ( 2 ) * sin ( capom )) end if if ( capom < 0.0_DP ) capom = capom + TWOPI if ( u < 0.0_DP ) u = u + TWOPI if ( abs ( energy * r / mu ) < sqrt ( VSMALL )) then iorbit_type = parabola else a = - 0.5_DP * mu / energy if ( a < 0.0_DP ) then fac = - h2 / ( mu * a ) if ( fac > VSMALL ) then iorbit_type = HYPERBOLA else iorbit_type = PARABOLA end if else iorbit_type = ELLIPSE end if end if select case ( iorbit_type ) case ( ELLIPSE ) fac = 1.0_DP - h2 / ( mu * a ) if ( fac > VSMALL ) then e = sqrt ( fac ) cape = 0.0_DP face = ( a - r ) / ( a * e ) if ( face < - 1.0_DP ) then cape = PI else if ( face < 1.0_DP ) then cape = acos ( face ) end if if ( rdotv < 0.0_DP ) cape = TWOPI - cape fac = 1.0_DP - e * cos ( cape ) cw = ( cos ( cape ) - e ) / fac sw = sqrt ( 1.0_DP - e ** 2 ) * sin ( cape ) / fac w = atan2 ( sw , cw ) if ( w < 0.0_DP ) w = w + TWOPI else cape = u w = u end if capm = cape - e * sin ( cape ) case ( PARABOLA ) a = 0.5_DP * h2 / mu e = 1.0_DP w = 0.0_DP fac = 2 * a / r - 1.0_DP if ( fac < - 1.0_DP ) then w = PI else if ( fac < 1.0_DP ) then w = acos ( fac ) end if if ( rdotv < 0.0_DP ) w = TWOPI - w tmpf = tan ( 0.5_DP * w ) capm = tmpf * ( 1.0_DP + tmpf * tmpf / 3.0_DP ) case ( HYPERBOLA ) e = sqrt ( 1.0_DP + fac ) tmpf = max (( a - r ) / ( a * e ), 1.0_DP ) capf = log ( tmpf + sqrt ( tmpf ** 2 - 1.0_DP )) if ( rdotv < 0.0_DP ) capf = - capf fac = e * cosh ( capf ) - 1.0_DP cw = ( e - cosh ( capf )) / fac sw = sqrt ( e * e - 1.0_DP ) * sinh ( capf ) / fac w = atan2 ( sw , cw ) if ( w < 0.0_DP ) w = w + TWOPI capm = e * sinh ( capf ) - capf end select omega = u - w if ( omega < 0.0_DP ) omega = omega + TWOPI return end subroutine orbel_xv2el end submodule s_orbel","tags":"","loc":"sourcefile/orbel.f90.html"},{"title":"whm_coord.f90 – swiftest","text":"This file depends on sourcefile~~whm_coord.f90~~EfferentGraph sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~whm_coord.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_whm_coord Source Code whm_coord.f90 Source Code submodule ( whm_classes ) s_whm_coord use swiftest contains module subroutine whm_coord_h2j_pl ( self , cb ) !! author: David A. Minton !! !! Convert from heliocentric to Jacobi coordinates, massive bodies only !! !! Uses pre-computed eta rather than computing it each time !! !! Adapted from David E. Kaufmann's Swifter routine coord_h2j.f90 !! !! Adapted from Hal Levison's Swift routine coord_h2j.f implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body particle data structuree ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: sumx , sumv , cap , capv if ( self % nbody == 0 ) return associate ( npl => self % nbody , GMpl => self % Gmass , eta => self % eta , xh => self % xh , vh => self % vh , & xj => self % xj , vj => self % vj ) xj (:, 1 ) = xh (:, 1 ) vj (:, 1 ) = vh (:, 1 ) sumx (:) = 0.0_DP sumv (:) = 0.0_DP do i = 2 , npl sumx (:) = sumx (:) + GMpl ( i - 1 ) * xh (:, i - 1 ) sumv (:) = sumv (:) + GMpl ( i - 1 ) * vh (:, i - 1 ) cap (:) = sumx (:) / eta ( i - 1 ) capv (:) = sumv (:) / eta ( i - 1 ) xj (:, i ) = xh (:, i ) - cap (:) vj (:, i ) = vh (:, i ) - capv (:) end do end associate return end subroutine whm_coord_h2j_pl module subroutine whm_coord_j2h_pl ( self , cb ) !! author: David A. Minton !! !! Convert from Jacobi to heliocentric coordinates, massive bodies only. !! !! Uses pre-computed eta rather than computing it each time !! !! !! Adapted from David E. Kaufmann's Swifter routine coord_j2h.f90 !! !! Adapted from Hal Levison's Swift routine coord_j2h.f implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body particle data structuree ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: sumx , sumv if ( self % nbody == 0 ) return associate ( npl => self % nbody , GMpl => self % Gmass , eta => self % eta , xh => self % xh , vh => self % vh , & xj => self % xj , vj => self % vj ) xh (:, 1 ) = xj (:, 1 ) vh (:, 1 ) = vj (:, 1 ) sumx (:) = 0.0_DP sumv (:) = 0.0_DP do i = 2 , npl sumx (:) = sumx (:) + GMpl ( i - 1 ) * xj (:, i - 1 ) / eta ( i - 1 ) sumv (:) = sumv (:) + GMpl ( i - 1 ) * vj (:, i - 1 ) / eta ( i - 1 ) xh (:, i ) = xj (:, i ) + sumx (:) vh (:, i ) = vj (:, i ) + sumv (:) end do end associate return end subroutine whm_coord_j2h_pl module subroutine whm_coord_vh2vj_pl ( self , cb ) !! author: David A. Minton !! !! Convert from heliocentric to Jadcobi coordinates, massive body velocities only !! !! Uses pre-computed eta rather than computing it each time !! !! Adapted from David E. Kaufmann's Swifter routine coord_vh2vj.f90 !! !! Adapted from Hal Levison's Swift routine coord_vh2vj.f implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body particle data structuree ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: sumv , capv if ( self % nbody == 0 ) return associate ( npl => self % nbody , GMpl => self % Gmass , vh => self % vh , vj => self % vj , eta => self % eta ) vj (:, 1 ) = vh (:, 1 ) sumv (:) = 0.0_DP do i = 2 , npl sumv (:) = sumv (:) + GMpl ( i - 1 ) * vh (:, i - 1 ) capv (:) = sumv (:) / eta ( i - 1 ) vj (:, i ) = vh (:, i ) - capv (:) end do end associate return end subroutine whm_coord_vh2vj_pl end submodule s_whm_coord","tags":"","loc":"sourcefile/whm_coord.f90.html"},{"title":"whm_gr.f90 – swiftest","text":"This file depends on sourcefile~~whm_gr.f90~~EfferentGraph sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~whm_gr.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_whm_gr Source Code whm_gr.f90 Source Code submodule ( whm_classes ) s_whm_gr use swiftest contains module subroutine whm_gr_kick_getacch_pl ( self , param ) !! author: David A. Minton !! !! Compute relativisitic accelerations of massive bodies !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_whm_kick_getacch.f90 implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: suma real ( DP ), dimension (:, :), allocatable :: aj real ( DP ) :: beta , rjmag4 if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody , inv_c2 => param % inv_c2 ) call gr_kick_getacch ( pl % muj , pl % xj , pl % lmask , npl , param % inv_c2 , pl % agr ) suma (:) = 0.0_DP pl % ah (:, 1 ) = pl % ah (:, 1 ) + pl % agr (:, 1 ) do i = 2 , npl suma (:) = suma (:) + pl % Gmass ( i ) * pl % agr (:, i ) / pl % eta ( i ) pl % ah (:, i ) = pl % ah (:, i ) + pl % agr (:, i ) + suma (:) end do end associate return end subroutine whm_gr_kick_getacch_pl module subroutine whm_gr_kick_getacch_tp ( self , param ) !! author: David A. Minton !! !! Compute relativisitic accelerations of test particles !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_whm_kick_getacch.f90 implicit none ! Arguments class ( whm_tp ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ) :: rjmag4 , beta if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody , inv_c2 => param % inv_c2 ) call gr_kick_getacch ( tp % mu , tp % xh , tp % lmask , ntp , param % inv_c2 , tp % agr ) tp % ah (:, 1 : ntp ) = tp % ah (:, 1 : ntp ) + tp % agr (:, 1 : ntp ) end associate return end subroutine whm_gr_kick_getacch_tp module pure subroutine whm_gr_p4_pl ( self , param , dt ) !! author: David A. Minton !! !! Position kick to massive bodies due to p**4 term in the post-Newtonian correction !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_whm_p4.f90 implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Step size ! Internals integer ( I4B ) :: i associate ( pl => self , npl => self % nbody ) if ( npl == 0 ) return do concurrent ( i = 1 : npl , pl % lmask ( i )) call gr_p4_pos_kick ( param , pl % xj (:, i ), pl % vj (:, i ), dt ) end do end associate return end subroutine whm_gr_p4_pl module pure subroutine whm_gr_p4_tp ( self , param , dt ) !! author: David A. Minton !! !! Position kick to test particles due to p**4 term in the post-Newtonian correction !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_whm_p4.f90 implicit none ! Arguments class ( whm_tp ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Step size ! Internals integer ( I4B ) :: i associate ( tp => self , ntp => self % nbody ) if ( ntp == 0 ) return do concurrent ( i = 1 : ntp , tp % lmask ( i )) call gr_p4_pos_kick ( param , tp % xh (:, i ), tp % vh (:, i ), dt ) end do end associate return end subroutine whm_gr_p4_tp end submodule s_whm_gr","tags":"","loc":"sourcefile/whm_gr.f90.html"},{"title":"whm_step.f90 – swiftest","text":"This file depends on sourcefile~~whm_step.f90~~EfferentGraph sourcefile~whm_step.f90 whm_step.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~whm_step.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_whm_step Source Code whm_step.f90 Source Code submodule ( whm_classes ) s_whm_step use swiftest contains module subroutine whm_step_system ( self , param , t , dt ) !! author: David A. Minton !! !! Step massive bodies and and active test particles ahead in heliocentric coordinates !! !! Adapted from Hal Levison's Swift routine step_kdk.f !! Adapted from David E. Kaufmann's Swifter routine whm_step.f90 implicit none ! Arguments class ( whm_nbody_system ), intent ( inout ) :: self !! WHM nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize associate ( system => self , cb => self % cb , pl => self % pl , tp => self % tp ) tp % lfirst = pl % lfirst call pl % step ( system , param , t , dt ) call tp % step ( system , param , t , dt ) if ( param % ltides ) call system % step_spin ( param , t , dt ) end associate return end subroutine whm_step_system module subroutine whm_step_pl ( self , system , param , t , dt ) !! author: David A. Minton !! !! Step planets ahead using kick-drift-kick algorithm !! !! Adapted from Hal Levison's Swift routine step_kdk_pl.f !! Adapted from David E. Kaufmann's Swifter routine whm_step_pl.f90 !logical, save :: lfirst = .true. implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize ! Internals real ( DP ) :: dth if ( self % nbody == 0 ) return associate ( pl => self , cb => system % cb ) dth = 0.5_DP * dt call pl % kick ( system , param , t , dth , lbeg = . true .) call pl % vh2vj ( cb ) if ( param % lgr ) call pl % gr_pos_kick ( param , dth ) call pl % drift ( system , param , dt ) if ( param % lgr ) call pl % gr_pos_kick ( param , dth ) call pl % j2h ( cb ) call pl % kick ( system , param , t + dt , dth , lbeg = . false .) end associate return end subroutine whm_step_pl module subroutine whm_step_tp ( self , system , param , t , dt ) !! author: David A. Minton !! !! Step active test particles ahead using kick-drift-kick algorithm !! !! Adapted from Hal Levison's Swift routine step_kdk_tp.f !! Adapted from David E. Kaufmann's Swifter routine whm_step_tp.f90 implicit none ! Arguments class ( whm_tp ), intent ( inout ) :: self !! WHM test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize ! Internals real ( DP ) :: dth if ( self % nbody == 0 ) return select type ( system ) class is ( whm_nbody_system ) associate ( tp => self , cb => system % cb , pl => system % pl ) dth = 0.5_DP * dt call tp % kick ( system , param , t , dth , lbeg = . true .) if ( param % lgr ) call tp % gr_pos_kick ( param , dth ) call tp % drift ( system , param , dt ) if ( param % lgr ) call tp % gr_pos_kick ( param , dth ) call tp % kick ( system , param , t + dt , dth , lbeg = . false .) end associate end select return end subroutine whm_step_tp end submodule s_whm_step","tags":"","loc":"sourcefile/whm_step.f90.html"},{"title":"whm_drift.f90 – swiftest","text":"This file depends on sourcefile~~whm_drift.f90~~EfferentGraph sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~whm_drift.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules whm_drift Source Code whm_drift.f90 Source Code submodule ( whm_classes ) whm_drift use swiftest contains module subroutine whm_drift_pl ( self , system , param , dt ) !! author: David A. Minton !! !! Loop through planets and call Danby drift routine !! !! Adapted from Hal Levison's Swift routine drift.f !! Adapted from David E. Kaufmann's Swifter routine whm_drift.f90 implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! WHM nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize ! Internals integer ( I4B ) :: i integer ( I4B ), dimension (:), allocatable :: iflag if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) allocate ( iflag ( npl )) iflag (:) = 0 call drift_all ( pl % muj , pl % xj , pl % vj , npl , param , dt , pl % lmask , iflag ) if ( any ( iflag ( 1 : npl ) /= 0 )) then where ( iflag ( 1 : npl ) /= 0 ) pl % status ( 1 : npl ) = DISCARDED_DRIFTERR pl % lmask ( 1 : npl ) = . false . end where do i = 1 , npl if ( iflag ( i ) /= 0 ) then write ( * , * ) \" Planet \" , pl % id ( i ), \" is lost!!!!!!!!!!!!\" WRITE ( * , * ) pl % muj ( i ), dt WRITE ( * , * ) pl % xj (:, i ) WRITE ( * , * ) pl % vj (:, i ) WRITE ( * , * ) \" STOPPING \" end if end do call util_exit ( FAILURE ) end if end associate return end subroutine whm_drift_pl end submodule whm_drift","tags":"","loc":"sourcefile/whm_drift.f90.html"},{"title":"whm_kick.f90 – swiftest","text":"This file depends on sourcefile~~whm_kick.f90~~EfferentGraph sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~whm_kick.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_whm_kick Source Code whm_kick.f90 Source Code submodule ( whm_classes ) s_whm_kick use swiftest contains module subroutine whm_kick_getacch_pl ( self , system , param , t , lbeg ) !! author: David A. Minton !! !! Compute heliocentric accelerations of planets !! !! Adapted from Hal Levison's Swift routine getacch.f !! Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch.f90 implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest central body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: ah0 if ( self % nbody == 0 ) return associate ( cb => system % cb , pl => self , npl => self % nbody ) call pl % set_ir3 () ah0 (:) = whm_kick_getacch_ah0 ( pl % Gmass ( 2 : npl ), pl % xh (:, 2 : npl ), npl - 1 ) do i = 1 , npl pl % ah (:, i ) = pl % ah (:, i ) + ah0 (:) end do call whm_kick_getacch_ah1 ( cb , pl ) call whm_kick_getacch_ah2 ( cb , pl ) call pl % accel_int () if ( param % loblatecb ) then call pl % accel_obl ( system ) if ( lbeg ) then cb % aoblbeg = cb % aobl else cb % aoblend = cb % aobl end if if ( param % ltides ) then cb % atidebeg = cb % aobl call pl % accel_tides ( system ) cb % atideend = cb % atide end if end if if ( param % lgr ) call pl % accel_gr ( param ) if ( param % lextra_force ) call pl % accel_user ( system , param , t , lbeg ) end associate return end subroutine whm_kick_getacch_pl module subroutine whm_kick_getacch_tp ( self , system , param , t , lbeg ) !! author: David A. Minton !! !! Compute heliocentric accelerations of test particles !! !! Adapted from Hal Levison's Swift routine getacch_tp.f !! Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_tp.f90 implicit none ! Arguments class ( whm_tp ), intent ( inout ) :: self !! WHM test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest central body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: ah0 associate ( tp => self , ntp => self % nbody , pl => system % pl , cb => system % cb , npl => system % pl % nbody ) if ( ntp == 0 . or . npl == 0 ) return system % lbeg = lbeg if ( lbeg ) then ah0 (:) = whm_kick_getacch_ah0 ( pl % Gmass (:), pl % xbeg (:,:), npl ) do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % ah (:, i ) = tp % ah (:, i ) + ah0 (:) end do call tp % accel_int ( pl % Gmass (:), pl % xbeg (:,:), npl ) else ah0 (:) = whm_kick_getacch_ah0 ( pl % Gmass (:), pl % xend (:,:), npl ) do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % ah (:, i ) = tp % ah (:, i ) + ah0 (:) end do call tp % accel_int ( pl % Gmass (:), pl % xend (:,:), npl ) end if if ( param % loblatecb ) call tp % accel_obl ( system ) if ( param % lextra_force ) call tp % accel_user ( system , param , t , lbeg ) if ( param % lgr ) call tp % accel_gr ( param ) end associate return end subroutine whm_kick_getacch_tp function whm_kick_getacch_ah0 ( mu , xhp , n ) result ( ah0 ) !! author: David A. Minton !! !! Compute zeroth term heliocentric accelerations of planets implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: mu real ( DP ), dimension (:,:), intent ( in ) :: xhp integer ( I4B ), intent ( in ) :: n ! Result real ( DP ), dimension ( NDIM ) :: ah0 ! Internals real ( DP ) :: fac , r2 , ir3h , irh integer ( I4B ) :: i ah0 (:) = 0.0_DP do i = 1 , n r2 = dot_product ( xhp (:, i ), xhp (:, i )) irh = 1.0_DP / sqrt ( r2 ) ir3h = irh / r2 fac = mu ( i ) * ir3h ah0 (:) = ah0 (:) - fac * xhp (:, i ) end do return end function whm_kick_getacch_ah0 pure subroutine whm_kick_getacch_ah1 ( cb , pl ) !! author: David A. Minton !! !! Compute first term heliocentric accelerations of planets !! !! Adapted from Hal Levison's Swift routine getacch_ah1.f !! Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_ah1.f90 implicit none ! Arguments class ( swiftest_cb ), intent ( in ) :: cb !! WHM central body object class ( whm_pl ), intent ( inout ) :: pl !! WHM massive body object ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: ah1h , ah1j associate ( npl => pl % nbody ) do concurrent ( i = 2 : npl , pl % lmask ( i )) ah1j (:) = pl % xj (:, i ) * pl % ir3j ( i ) ah1h (:) = pl % xh (:, i ) * pl % ir3h ( i ) pl % ah (:, i ) = pl % ah (:, i ) + cb % Gmass * ( ah1j (:) - ah1h (:)) end do end associate return end subroutine whm_kick_getacch_ah1 pure subroutine whm_kick_getacch_ah2 ( cb , pl ) !! author: David A. Minton !! !! Compute second term heliocentric accelerations of planets !! !! Adapted from Hal Levison's Swift routine getacch_ah2.f !! Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_ah2.f90 implicit none ! Arguments class ( swiftest_cb ), intent ( in ) :: cb !! Swiftest central body object class ( whm_pl ), intent ( inout ) :: pl !! WHM massive body object ! Internals integer ( I4B ) :: i real ( DP ) :: etaj , fac real ( DP ), dimension ( NDIM ) :: ah2 , ah2o associate ( npl => pl % nbody ) ah2 (:) = 0.0_DP ah2o (:) = 0.0_DP etaj = cb % Gmass do concurrent ( i = 2 : npl , pl % lmask ( i )) etaj = etaj + pl % Gmass ( i - 1 ) fac = pl % Gmass ( i ) * cb % Gmass * pl % ir3j ( i ) / etaj ah2 (:) = ah2o + fac * pl % xj (:, i ) pl % ah (:, i ) = pl % ah (:, i ) + ah2 (:) ah2o (:) = ah2 (:) end do end associate return end subroutine whm_kick_getacch_ah2 module subroutine whm_kick_vh_pl ( self , system , param , t , dt , lbeg ) !! author: David A. Minton !! !! Kick heliocentric velocities of massive bodies !! !! Adapted from Martin Duncan and Hal Levison's Swift routine kickvh.f !! Adapted from David E. Kaufmann's Swifter routine whm_kickvh.f90 implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. ! Internals integer ( I4B ) :: i associate ( pl => self , npl => self % nbody , cb => system % cb ) if ( npl == 0 ) return if ( lbeg ) then if ( pl % lfirst ) then call pl % h2j ( cb ) pl % ah (:,:) = 0.0_DP call pl % accel ( system , param , t , lbeg ) pl % lfirst = . false . end if call pl % set_beg_end ( xbeg = pl % xh ) else pl % ah (:,:) = 0.0_DP call pl % accel ( system , param , t , lbeg ) call pl % set_beg_end ( xend = pl % xh ) end if do concurrent ( i = 1 : npl , pl % lmask ( i )) pl % vh (:, i ) = pl % vh (:, i ) + pl % ah (:, i ) * dt end do end associate return end subroutine whm_kick_vh_pl module subroutine whm_kick_vh_tp ( self , system , param , t , dt , lbeg ) !! author: David A. Minton !! !! Kick heliocentric velocities of test particles !! !! Adapted from Martin Duncan and Hal Levison's Swift routine kickvh_tp.f !! Adapted from David E. Kaufmann's Swifter routine whm_kickvh_tp.f90 implicit none ! Arguments class ( whm_tp ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) if ( tp % lfirst ) then where ( tp % lmask ( 1 : ntp )) tp % ah ( 1 , 1 : ntp ) = 0.0_DP tp % ah ( 2 , 1 : ntp ) = 0.0_DP tp % ah ( 3 , 1 : ntp ) = 0.0_DP end where call tp % accel ( system , param , t , lbeg = . true .) tp % lfirst = . false . end if if (. not . lbeg ) then where ( tp % lmask ( 1 : ntp )) tp % ah ( 1 , 1 : ntp ) = 0.0_DP tp % ah ( 2 , 1 : ntp ) = 0.0_DP tp % ah ( 3 , 1 : ntp ) = 0.0_DP end where call tp % accel ( system , param , t , lbeg ) end if do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % vh (:, i ) = tp % vh (:, i ) + tp % ah (:, i ) * dt end do end associate return end subroutine whm_kick_vh_tp end submodule s_whm_kick","tags":"","loc":"sourcefile/whm_kick.f90.html"},{"title":"whm_setup.f90 – swiftest","text":"This file depends on sourcefile~~whm_setup.f90~~EfferentGraph sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~whm_setup.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_whm_setup Source Code whm_setup.f90 Source Code submodule ( whm_classes ) s_whm_setup use swiftest contains module subroutine whm_setup_pl ( self , n , param ) !! author: David A. Minton !! !! Allocate WHM planet structure !! !! Equivalent in functionality to David E. Kaufmann's Swifter routine whm_setup.f90 implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! Swiftest test particle object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter !> Call allocation method for parent class call setup_pl ( self , n , param ) if ( n <= 0 ) return if ( allocated ( self % eta )) deallocate ( self % eta ) if ( allocated ( self % muj )) deallocate ( self % muj ) if ( allocated ( self % xj )) deallocate ( self % xj ) if ( allocated ( self % vj )) deallocate ( self % vj ) if ( allocated ( self % ir3j )) deallocate ( self % ir3j ) allocate ( self % eta ( n )) allocate ( self % muj ( n )) allocate ( self % xj ( NDIM , n )) allocate ( self % vj ( NDIM , n )) allocate ( self % ir3j ( n )) self % eta (:) = 0.0_DP self % muj (:) = 0.0_DP self % xj (:,:) = 0.0_DP self % vj (:,:) = 0.0_DP self % ir3j (:) = 0.0_DP return end subroutine whm_setup_pl module subroutine whm_util_set_mu_eta_pl ( self , cb ) !! author: David A. Minton !! !! Sets the Jacobi mass value eta for all massive bodies implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM system object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object ! Internals integer ( I4B ) :: i associate ( pl => self , npl => self % nbody ) if ( npl == 0 ) return call util_set_mu_pl ( pl , cb ) pl % eta ( 1 ) = cb % Gmass + pl % Gmass ( 1 ) pl % muj ( 1 ) = pl % eta ( 1 ) do i = 2 , npl pl % eta ( i ) = pl % eta ( i - 1 ) + pl % Gmass ( i ) pl % muj ( i ) = cb % Gmass * pl % eta ( i ) / pl % eta ( i - 1 ) end do end associate return end subroutine whm_util_set_mu_eta_pl module subroutine whm_setup_initialize_system ( self , param ) !! author: David A. Minton !! !! Initialize a WHM nbody system from files !! implicit none ! Arguments class ( whm_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters call setup_initialize_system ( self , param ) ! First we need to make sure that the massive bodies are sorted by heliocentric distance before computing jacobies call util_set_ir3h ( self % pl ) call self % pl % sort ( \"ir3h\" , ascending = . false .) ! Make sure that the discard list gets allocated initially call self % tp_discards % setup ( 0 , param ) call self % pl % set_mu ( self % cb ) call self % tp % set_mu ( self % cb ) if ( param % lgr ) then call self % pl % v2pv ( param ) call self % tp % v2pv ( param ) end if return end subroutine whm_setup_initialize_system end submodule s_whm_setup","tags":"","loc":"sourcefile/whm_setup.f90.html"},{"title":"whm_util.f90 – swiftest","text":"This file depends on sourcefile~~whm_util.f90~~EfferentGraph sourcefile~whm_util.f90 whm_util.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~whm_util.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_whm_util Source Code whm_util.f90 Source Code submodule ( whm_classes ) s_whm_util use swiftest contains module subroutine whm_util_append_pl ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from one massive body object to another. !! This method will automatically resize the destination body if it is too small implicit none !! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to select type ( source ) class is ( whm_pl ) associate ( nold => self % nbody , nsrc => source % nbody ) call util_append ( self % eta , source % eta , nold , nsrc , lsource_mask ) call util_append ( self % muj , source % muj , nold , nsrc , lsource_mask ) call util_append ( self % ir3j , source % ir3j , nold , nsrc , lsource_mask ) call util_append ( self % xj , source % xj , nold , nsrc , lsource_mask ) call util_append ( self % vj , source % vj , nold , nsrc , lsource_mask ) call util_append_pl ( self , source , lsource_mask ) end associate class default write ( * , * ) \"Invalid object passed to the append method. Source must be of class whm_pl or its descendents\" call util_exit ( FAILURE ) end select return end subroutine whm_util_append_pl module subroutine whm_util_fill_pl ( self , inserts , lfill_list ) !! author: David A. Minton !! !! Insert new WHM test particle structure into an old one. !! This is the inverse of a fill operation. !! !! Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_body ), intent ( in ) :: inserts !! inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps ! Internals integer ( I4B ) :: i associate ( keeps => self ) select type ( inserts ) class is ( whm_pl ) call util_fill ( keeps % eta , inserts % eta , lfill_list ) call util_fill ( keeps % muj , inserts % muj , lfill_list ) call util_fill ( keeps % ir3j , inserts % ir3j , lfill_list ) call util_fill ( keeps % xj , inserts % xj , lfill_list ) call util_fill ( keeps % vj , inserts % vj , lfill_list ) call util_fill_pl ( keeps , inserts , lfill_list ) class default write ( * , * ) \"Invalid object passed to the fill method. Inserts must be of class whm_pl or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine whm_util_fill_pl module subroutine whm_util_resize_pl ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a massive body against the requested size and resizes it if it is too small. implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded call util_resize ( self % eta , nnew ) call util_resize ( self % xj , nnew ) call util_resize ( self % vj , nnew ) call util_resize ( self % muj , nnew ) call util_resize ( self % ir3j , nnew ) call util_resize_pl ( self , nnew ) return end subroutine whm_util_resize_pl module subroutine whm_util_set_ir3j ( self ) !! author: David A. Minton !! !! Sets the inverse Jacobi and heliocentric radii cubed (1/rj**3 and 1/rh**3) implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object ! Internals integer ( I4B ) :: i real ( DP ) :: r2 , ir if ( self % nbody > 0 ) then do i = 1 , self % nbody r2 = dot_product ( self % xh (:, i ), self % xh (:, i )) ir = 1.0_DP / sqrt ( r2 ) self % ir3h ( i ) = ir / r2 r2 = dot_product ( self % xj (:, i ), self % xj (:, i )) ir = 1.0_DP / sqrt ( r2 ) self % ir3j ( i ) = ir / r2 end do end if return end subroutine whm_util_set_ir3j module subroutine whm_util_sort_pl ( self , sortby , ascending ) !! author: David A. Minton !! !! Sort a WHM massive body object in-place. !! sortby is a string indicating which array component to sort. implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order ! Internals integer ( I4B ), dimension ( self % nbody ) :: ind integer ( I4B ) :: direction if ( ascending ) then direction = 1 else direction = - 1 end if associate ( pl => self , npl => self % nbody ) select case ( sortby ) case ( \"eta\" ) call util_sort ( direction * pl % eta ( 1 : npl ), ind ( 1 : npl )) case ( \"muj\" ) call util_sort ( direction * pl % muj ( 1 : npl ), ind ( 1 : npl )) case ( \"ir3j\" ) call util_sort ( direction * pl % ir3j ( 1 : npl ), ind ( 1 : npl )) case ( \"xj\" , \"vj\" ) write ( * , * ) 'Cannot sort by ' // trim ( adjustl ( sortby )) // '. Component not sortable!' case default call util_sort_pl ( pl , sortby , ascending ) return end select call pl % rearrange ( ind ) end associate return end subroutine whm_util_sort_pl module subroutine whm_util_sort_rearrange_pl ( self , ind ) !! author: David A. Minton !! !! Rearrange WHM massive body structure in-place from an index list. !! This is a helper utility used to make polymorphic sorting work on Swiftest structures. implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) ! Internals class ( whm_pl ), allocatable :: pl_sorted !! Temporary holder for sorted body integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) call util_sort_rearrange_pl ( pl , ind ) allocate ( pl_sorted , source = self ) if ( allocated ( pl % eta )) pl % eta ( 1 : npl ) = pl_sorted % eta ( ind ( 1 : npl )) if ( allocated ( pl % xj )) pl % xj (:, 1 : npl ) = pl_sorted % xj (:, ind ( 1 : npl )) if ( allocated ( pl % vj )) pl % vj (:, 1 : npl ) = pl_sorted % vj (:, ind ( 1 : npl )) if ( allocated ( pl % muj )) pl % muj ( 1 : npl ) = pl_sorted % muj ( ind ( 1 : npl )) if ( allocated ( pl % ir3j )) pl % ir3j ( 1 : npl ) = pl_sorted % ir3j ( ind ( 1 : npl )) deallocate ( pl_sorted ) end associate return end subroutine whm_util_sort_rearrange_pl module subroutine whm_util_spill_pl ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) WHM test particle structure from active list to discard list !! !! Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 implicit none ! Arguments class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not ! Internals integer ( I4B ) :: i associate ( keeps => self ) select type ( discards ) class is ( whm_pl ) call util_spill ( keeps % eta , discards % eta , lspill_list , ldestructive ) call util_spill ( keeps % muj , discards % muj , lspill_list , ldestructive ) call util_spill ( keeps % ir3j , discards % ir3j , lspill_list , ldestructive ) call util_spill ( keeps % xj , discards % xj , lspill_list , ldestructive ) call util_spill ( keeps % vj , discards % vj , lspill_list , ldestructive ) call util_spill_pl ( keeps , discards , lspill_list , ldestructive ) class default write ( * , * ) \"Invalid object passed to the spill method. Source must be of class whm_pl or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine whm_util_spill_pl end submodule s_whm_util","tags":"","loc":"sourcefile/whm_util.f90.html"},{"title":"operator_cross.f90 – swiftest","text":"This file depends on sourcefile~~operator_cross.f90~~EfferentGraph sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~operator_cross.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_operator_cross Source Code operator_cross.f90 Source Code submodule ( swiftest_operators ) s_operator_cross use swiftest !! author: David A. Minton !! !! Contains implementations for the .cross. operator for all defined integer and real types !! Single vector implementations: C(1:3)   = A(1:3)   .cross. B(1:3) !! Vector list implementations:   C(1:3, :) = A(1:3, :) .cross. B(1:3, :) contains module pure function operator_cross_sp ( A , B ) result ( C ) implicit none real ( SP ), dimension (:), intent ( in ) :: A , B real ( SP ), dimension ( 3 ) :: C C ( 1 ) = A ( 2 ) * B ( 3 ) - A ( 3 ) * B ( 2 ) C ( 2 ) = A ( 3 ) * B ( 1 ) - A ( 1 ) * B ( 3 ) C ( 3 ) = A ( 1 ) * B ( 2 ) - A ( 2 ) * B ( 1 ) return end function operator_cross_sp module pure function operator_cross_dp ( A , B ) result ( C ) implicit none real ( DP ), dimension (:), intent ( in ) :: A , B real ( DP ), dimension ( 3 ) :: C C ( 1 ) = A ( 2 ) * B ( 3 ) - A ( 3 ) * B ( 2 ) C ( 2 ) = A ( 3 ) * B ( 1 ) - A ( 1 ) * B ( 3 ) C ( 3 ) = A ( 1 ) * B ( 2 ) - A ( 2 ) * B ( 1 ) return end function operator_cross_dp module pure function operator_cross_qp ( A , B ) result ( C ) implicit none real ( QP ), dimension (:), intent ( in ) :: A , B real ( QP ), dimension ( 3 ) :: C C ( 1 ) = A ( 2 ) * B ( 3 ) - A ( 3 ) * B ( 2 ) C ( 2 ) = A ( 3 ) * B ( 1 ) - A ( 1 ) * B ( 3 ) C ( 3 ) = A ( 1 ) * B ( 2 ) - A ( 2 ) * B ( 1 ) return end function operator_cross_qp module pure function operator_cross_i1b ( A , B ) result ( C ) implicit none integer ( I1B ), dimension (:), intent ( in ) :: A , B integer ( I1B ), dimension ( 3 ) :: C C ( 1 ) = A ( 2 ) * B ( 3 ) - A ( 3 ) * B ( 2 ) C ( 2 ) = A ( 3 ) * B ( 1 ) - A ( 1 ) * B ( 3 ) C ( 3 ) = A ( 1 ) * B ( 2 ) - A ( 2 ) * B ( 1 ) return end function operator_cross_i1b module pure function operator_cross_i2b ( A , B ) result ( C ) implicit none integer ( I2B ), dimension (:), intent ( in ) :: A , B integer ( I2B ), dimension ( 3 ) :: C C ( 1 ) = A ( 2 ) * B ( 3 ) - A ( 3 ) * B ( 2 ) C ( 2 ) = A ( 3 ) * B ( 1 ) - A ( 1 ) * B ( 3 ) C ( 3 ) = A ( 1 ) * B ( 2 ) - A ( 2 ) * B ( 1 ) return end function operator_cross_i2b module pure function operator_cross_i4b ( A , B ) result ( C ) implicit none integer ( I4B ), dimension (:), intent ( in ) :: A , B integer ( I4B ), dimension ( 3 ) :: C C ( 1 ) = A ( 2 ) * B ( 3 ) - A ( 3 ) * B ( 2 ) C ( 2 ) = A ( 3 ) * B ( 1 ) - A ( 1 ) * B ( 3 ) C ( 3 ) = A ( 1 ) * B ( 2 ) - A ( 2 ) * B ( 1 ) return end function operator_cross_i4b module pure function operator_cross_i8b ( A , B ) result ( C ) implicit none integer ( I8B ), dimension (:), intent ( in ) :: A , B integer ( I8B ), dimension ( 3 ) :: C C ( 1 ) = A ( 2 ) * B ( 3 ) - A ( 3 ) * B ( 2 ) C ( 2 ) = A ( 3 ) * B ( 1 ) - A ( 1 ) * B ( 3 ) C ( 3 ) = A ( 1 ) * B ( 2 ) - A ( 2 ) * B ( 1 ) return end function operator_cross_i8b module pure function operator_cross_el_sp ( A , B ) result ( C ) implicit none real ( SP ), dimension (:,:), intent ( in ) :: A , B real ( SP ), dimension (:,:), allocatable :: C integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( C )) deallocate ( C ) allocate ( C , mold = A ) do concurrent ( i = 1 : n ) C ( 1 , i ) = A ( 2 , i ) * B ( 3 , i ) - A ( 3 , i ) * B ( 2 , i ) C ( 2 , i ) = A ( 3 , i ) * B ( 1 , i ) - A ( 1 , i ) * B ( 3 , i ) C ( 3 , i ) = A ( 1 , i ) * B ( 2 , i ) - A ( 2 , i ) * B ( 1 , i ) end do return end function operator_cross_el_sp module pure function operator_cross_el_dp ( A , B ) result ( C ) implicit none real ( DP ), dimension (:,:), intent ( in ) :: A , B real ( DP ), dimension (:,:), allocatable :: C integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( C )) deallocate ( C ) allocate ( C , mold = A ) do concurrent ( i = 1 : n ) C ( 1 , i ) = A ( 2 , i ) * B ( 3 , i ) - A ( 3 , i ) * B ( 2 , i ) C ( 2 , i ) = A ( 3 , i ) * B ( 1 , i ) - A ( 1 , i ) * B ( 3 , i ) C ( 3 , i ) = A ( 1 , i ) * B ( 2 , i ) - A ( 2 , i ) * B ( 1 , i ) end do return end function operator_cross_el_dp module pure function operator_cross_el_qp ( A , B ) result ( C ) implicit none real ( QP ), dimension (:,:), intent ( in ) :: A , B real ( QP ), dimension (:,:), allocatable :: C integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( C )) deallocate ( C ) allocate ( C , mold = A ) do concurrent ( i = 1 : n ) C ( 1 , i ) = A ( 2 , i ) * B ( 3 , i ) - A ( 3 , i ) * B ( 2 , i ) C ( 2 , i ) = A ( 3 , i ) * B ( 1 , i ) - A ( 1 , i ) * B ( 3 , i ) C ( 3 , i ) = A ( 1 , i ) * B ( 2 , i ) - A ( 2 , i ) * B ( 1 , i ) end do return end function operator_cross_el_qp module pure function operator_cross_el_i1b ( A , B ) result ( C ) implicit none integer ( I1B ), dimension (:,:), intent ( in ) :: A , B integer ( I1B ), dimension (:,:), allocatable :: C integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( C )) deallocate ( C ) allocate ( C , mold = A ) do concurrent ( i = 1 : n ) C ( 1 , i ) = A ( 2 , i ) * B ( 3 , i ) - A ( 3 , i ) * B ( 2 , i ) C ( 2 , i ) = A ( 3 , i ) * B ( 1 , i ) - A ( 1 , i ) * B ( 3 , i ) C ( 3 , i ) = A ( 1 , i ) * B ( 2 , i ) - A ( 2 , i ) * B ( 1 , i ) end do return end function operator_cross_el_i1b module pure function operator_cross_el_i2b ( A , B ) result ( C ) implicit none integer ( I2B ), dimension (:,:), intent ( in ) :: A , B integer ( I2B ), dimension (:,:), allocatable :: C integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( C )) deallocate ( C ) allocate ( C , mold = A ) do concurrent ( i = 1 : n ) C ( 1 , i ) = A ( 2 , i ) * B ( 3 , i ) - A ( 3 , i ) * B ( 2 , i ) C ( 2 , i ) = A ( 3 , i ) * B ( 1 , i ) - A ( 1 , i ) * B ( 3 , i ) C ( 3 , i ) = A ( 1 , i ) * B ( 2 , i ) - A ( 2 , i ) * B ( 1 , i ) end do return end function operator_cross_el_i2b module pure function operator_cross_el_i4b ( A , B ) result ( C ) implicit none integer ( I4B ), dimension (:,:), intent ( in ) :: A , B integer ( I4B ), dimension (:,:), allocatable :: C integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( C )) deallocate ( C ) allocate ( C , mold = A ) do concurrent ( i = 1 : n ) C ( 1 , i ) = A ( 2 , i ) * B ( 3 , i ) - A ( 3 , i ) * B ( 2 , i ) C ( 2 , i ) = A ( 3 , i ) * B ( 1 , i ) - A ( 1 , i ) * B ( 3 , i ) C ( 3 , i ) = A ( 1 , i ) * B ( 2 , i ) - A ( 2 , i ) * B ( 1 , i ) end do return end function operator_cross_el_i4b module pure function operator_cross_el_i8b ( A , B ) result ( C ) implicit none integer ( I8B ), dimension (:,:), intent ( in ) :: A , B integer ( I8B ), dimension (:,:), allocatable :: C integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( C )) deallocate ( C ) allocate ( C , mold = A ) do concurrent ( i = 1 : n ) C ( 1 , i ) = A ( 2 , i ) * B ( 3 , i ) - A ( 3 , i ) * B ( 2 , i ) C ( 2 , i ) = A ( 3 , i ) * B ( 1 , i ) - A ( 1 , i ) * B ( 3 , i ) C ( 3 , i ) = A ( 1 , i ) * B ( 2 , i ) - A ( 2 , i ) * B ( 1 , i ) end do return end function operator_cross_el_i8b end submodule s_operator_cross","tags":"","loc":"sourcefile/operator_cross.f90.html"},{"title":"operator_mag.f90 – swiftest","text":"This file depends on sourcefile~~operator_mag.f90~~EfferentGraph sourcefile~operator_mag.f90 operator_mag.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~operator_mag.f90->sourcefile~swiftest_operators.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_operator_mag Source Code operator_mag.f90 Source Code submodule ( swiftest_operators ) s_operator_mag !! author: David A. Minton !! !! Contains implementations for the .mag. operator for all defined real types !! Single vector implementations:  B   = .mag. A(1:3) !! Vector list implementations:   B(:) = .mag. A(1:3, :) contains module pure function operator_mag_sp ( A ) result ( B ) implicit none real ( SP ), dimension (:), intent ( in ) :: A real ( SP ) :: B B = norm2 ( A (:)) return end function operator_mag_sp module pure function operator_mag_dp ( A ) result ( B ) implicit none real ( DP ), dimension (:), intent ( in ) :: A real ( DP ) :: B B = norm2 ( A (:)) return end function operator_mag_dp module pure function operator_mag_el_sp ( A ) result ( B ) implicit none real ( SP ), dimension (:,:), intent ( in ) :: A real ( SP ), dimension (:), allocatable :: B integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( B )) deallocate ( B ) allocate ( B ( n )) do concurrent ( i = 1 : n ) B ( i ) = norm2 ( A (:, i )) end do return end function operator_mag_el_sp module pure function operator_mag_el_dp ( A ) result ( B ) implicit none real ( DP ), dimension (:,:), intent ( in ) :: A real ( DP ), dimension (:), allocatable :: B integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( B )) deallocate ( B ) allocate ( B ( n )) do concurrent ( i = 1 : n ) B ( i ) = norm2 ( A (:, i )) end do return end function operator_mag_el_dp module pure function operator_mag_el_qp ( A ) result ( B ) implicit none real ( QP ), dimension (:,:), intent ( in ) :: A real ( QP ), dimension (:), allocatable :: B integer ( I4B ) :: i , n n = size ( A , 2 ) if ( allocated ( B )) deallocate ( B ) allocate ( B ( n )) do concurrent ( i = 1 : n ) B ( i ) = norm2 ( A (:, i )) end do return end function operator_mag_el_qp end submodule s_operator_mag","tags":"","loc":"sourcefile/operator_mag.f90.html"},{"title":"util_solve.f90 – swiftest","text":"This file depends on sourcefile~~util_solve.f90~~EfferentGraph sourcefile~util_solve.f90 util_solve.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_solve.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_solve Source Code util_solve.f90 Source Code submodule ( swiftest_classes ) s_util_solve use swiftest contains module function util_solve_linear_system_d ( A , b , n , lerr ) result ( x ) !! Author: David A. Minton !! !! Solves the linear equation of the form A*x = b for x. !!   A is an (n,n) arrays !!   x and b are (n) arrays !! Uses Gaussian elimination, so will have issues if system is ill-conditioned. !! Uses quad precision intermidiate values, so works best on small arrays. use , intrinsic :: ieee_exceptions implicit none ! Arguments integer ( I4B ), intent ( in ) :: n real ( DP ), dimension (:,:), intent ( in ) :: A real ( DP ), dimension (:), intent ( in ) :: b logical , intent ( out ) :: lerr ! Result real ( DP ), dimension ( n ) :: x ! Internals real ( QP ), dimension (:), allocatable :: qx type ( ieee_status_type ) :: original_fpe_status logical , dimension (:), allocatable :: fpe_flag call ieee_get_status ( original_fpe_status ) ! Save the original floating point exception status call ieee_set_flag ( ieee_all , . false .) ! Set all flags to quiet allocate ( fpe_flag ( size ( ieee_usual ))) qx = solve_wbs ( ge_wpp ( real ( A , kind = QP ), real ( b , kind = QP ))) call ieee_get_flag ( ieee_usual , fpe_flag ) lerr = any ( fpe_flag ) if ( lerr . or . ( any ( abs ( qx ) > huge ( x ))) . or . ( any ( abs ( qx ) < tiny ( x )))) then x = 0.0_DP else x = real ( qx , kind = DP ) end if call ieee_set_status ( original_fpe_status ) return end function util_solve_linear_system_d module function util_solve_linear_system_q ( A , b , n , lerr ) result ( x ) !! Author: David A. Minton !! !! Solves the linear equation of the form A*x = b for x. !!   A is an (n,n) arrays !!   x and b are (n) arrays !! Uses Gaussian elimination, so will have issues if system is ill-conditioned. !! Uses quad precision intermidiate values, so works best on small arrays. use , intrinsic :: ieee_exceptions implicit none ! Arguments integer ( I4B ), intent ( in ) :: n real ( QP ), dimension (:,:), intent ( in ) :: A real ( QP ), dimension (:), intent ( in ) :: b logical , intent ( out ) :: lerr ! Result real ( QP ), dimension ( n ) :: x ! Internals type ( ieee_status_type ) :: original_fpe_status logical , dimension (:), allocatable :: fpe_flag call ieee_get_status ( original_fpe_status ) ! Save the original floating point exception status call ieee_set_flag ( ieee_all , . false .) ! Set all flags to quiet allocate ( fpe_flag ( size ( ieee_usual ))) x = solve_wbs ( ge_wpp ( A , b )) call ieee_get_flag ( ieee_usual , fpe_flag ) lerr = any ( fpe_flag ) if ( lerr ) x = 0.0_DP call ieee_set_status ( original_fpe_status ) return end function util_solve_linear_system_q function solve_wbs ( u ) result ( x ) ! solve with backward substitution !! Based on code available on Rosetta Code: https://rosettacode.org/wiki/Gaussian_elimination#Fortran use , intrinsic :: ieee_exceptions use swiftest implicit none ! Arguments real ( QP ), intent ( in ), dimension (:,:), allocatable :: u ! Result real ( QP ), dimension (:), allocatable :: x ! Internals integer ( I4B ) :: i , n n = size ( u , 1 ) if ( allocated ( x )) deallocate ( x ) if (. not . allocated ( x )) allocate ( x ( n )) if ( any ( abs ( u ) < tiny ( 1._DP )) . or . any ( abs ( u ) > huge ( 1._DP ))) then x (:) = 0._DP return end if call ieee_set_halting_mode ( ieee_divide_by_zero , . false .) do i = n , 1 , - 1 x ( i ) = ( u ( i , n + 1 ) - sum ( u ( i , i + 1 : n ) * x ( i + 1 : n ))) / u ( i , i ) end do return end function solve_wbs function ge_wpp ( A , b ) result ( u ) ! gaussian eliminate with partial pivoting !! Solve  Ax=b  using Gaussian elimination then backwards substitution. !!   A being an n by n matrix. !!   x and b are n by 1 vectors. !! Based on code available on Rosetta Code: https://rosettacode.org/wiki/Gaussian_elimination#Fortran use , intrinsic :: ieee_exceptions use swiftest implicit none ! Arguments real ( QP ), dimension (:,:), intent ( in ) :: A real ( QP ), dimension (:), intent ( in ) :: b ! Result real ( QP ), dimension (:,:), allocatable :: u ! Internals integer ( I4B ) :: i , j , n , p real ( QP ) :: upi n = size ( a , 1 ) allocate ( u ( n , ( n + 1 ))) u = reshape ([ A , b ], [ n , n + 1 ]) call ieee_set_halting_mode ( ieee_divide_by_zero , . false .) do j = 1 , n p = maxloc ( abs ( u ( j : n , j )), 1 ) + j - 1 ! maxloc returns indices between (1, n - j + 1) if ( p /= j ) u ([ p , j ], j ) = u ([ j , p ], j ) u ( j + 1 :, j ) = u ( j + 1 :, j ) / u ( j , j ) do i = j + 1 , n + 1 upi = u ( p , i ) if ( p /= j ) u ([ p , j ], i ) = u ([ j , p ], i ) u ( j + 1 : n , i ) = u ( j + 1 : n , i ) - upi * u ( j + 1 : n , j ) end do end do return end function ge_wpp module function util_solve_rkf45 ( f , y0in , t1 , dt0 , tol ) result ( y1 ) !! author: David A. Minton !! !! Implements the 4th order Runge-Kutta-Fehlberg ODE solver for initial value problems of the form f=dy/dt, y0 = y(t=0), solving for y1 = y(t=t1). Uses a 5th order adaptive step size control. !! Uses a lambda function object as defined in the lambda_function module implicit none ! Arguments class ( lambda_obj ), intent ( inout ) :: f !! lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set real ( DP ), dimension (:), intent ( in ) :: y0in !! Initial value at t=0 real ( DP ), intent ( in ) :: t1 !! Final time real ( DP ), intent ( in ) :: dt0 !! Initial step size guess real ( DP ), intent ( in ) :: tol !! Tolerance on solution ! Result real ( DP ), dimension (:), allocatable :: y1 !! Final result ! Internals integer ( I4B ), parameter :: MAXREDUX = 1000 !! Maximum number of times step size can be reduced real ( DP ), parameter :: DTFAC = 0.95_DP !! Step size reduction safety factor (Value just under 1.0 to prevent adaptive step size control from discarding steps too aggressively) integer ( I4B ), parameter :: RKS = 6 !! Number of RK stages real ( DP ), dimension ( RKS , RKS - 1 ), parameter :: rkf45_btab = reshape ( & !! Butcher tableau for Runge-Kutta-Fehlberg method ( / 1. / 4. , 1. / 4. , 0. , 0. , 0. , 0. ,& 3. / 8. , 3. / 3 2. , 9. / 3 2. , 0. , 0. , 0. ,& 1 2. / 1 3. , 193 2. / 219 7. , - 720 0. / 219 7. , 729 6. / 219 7. , 0. , 0. ,& 1. , 43 9. / 21 6. , - 8. , 368 0. / 51 3. , - 84 5. / 410 4. , 0. ,& 1. / 2. , - 8. / 2 7. , 2. , - 354 4. / 256 5. , 185 9. / 410 4. , - 1 1. / 4 0. / ), shape ( rkf45_btab )) real ( DP ), dimension ( RKS ), parameter :: rkf4_coeff = ( / 2 5. / 21 6. , 0. , 140 8. / 256 5. , 219 7. / 410 4. , - 1. / 5. , 0. / ) real ( DP ), dimension ( RKS ), parameter :: rkf5_coeff = ( / 1 6. / 13 5. , 0. , 665 6. / 1282 5. , 2856 1. / 5643 0. , - 9. / 5 0. , 2. / 5 5. / ) real ( DP ), dimension (:, :), allocatable :: k !! Runge-Kutta coefficient vector real ( DP ), dimension (:), allocatable :: ynorm !! Normalized y value used for adaptive step size control real ( DP ), dimension (:), allocatable :: y0 !! Value of y at the beginning of each substep integer ( I4B ) :: Nvar !! Number of variables in problem integer ( I4B ) :: rkn !! Runge-Kutta loop index real ( DP ) :: t , x1 , dt , trem !! Current time, step size and total time remaining real ( DP ) :: s , yerr , yscale !!  Step size reduction factor, error in dependent variable, and error scale factor integer ( I4B ) :: i , n allocate ( y0 , source = y0in ) allocate ( y1 , mold = y0 ) allocate ( ynorm , mold = y0 ) Nvar = size ( y0 ) allocate ( k ( Nvar , RKS )) dt = dt0 trem = t1 t = 0._DP do yscale = norm2 ( y0 (:)) do i = 1 , MAXREDUX select type ( f ) class is ( lambda_obj_tvar ) do rkn = 1 , RKS y1 (:) = y0 (:) + matmul ( k (:, 1 : rkn - 1 ), rkf45_btab ( 2 : rkn , rkn - 1 )) if ( rkn == 1 ) then x1 = t else x1 = t + rkf45_btab ( 1 , rkn - 1 ) end if k (:, rkn ) = dt * f % evalt ( y1 (:), t ) end do class is ( lambda_obj ) do rkn = 1 , RKS y1 (:) = y0 (:) + matmul ( k (:, 1 : rkn - 1 ), rkf45_btab ( 2 : rkn , rkn - 1 )) k (:, rkn ) = dt * f % eval ( y1 (:)) end do end select ! Now determine if the step size needs adjusting ynorm (:) = matmul ( k (:,:), ( rkf5_coeff (:) - rkf4_coeff (:))) / yscale yerr = norm2 ( ynorm (:)) s = ( tol / ( 2 * yerr )) ** ( 0.25_DP ) dt = min ( s * DTFAC * dt , trem ) ! Alter step size either up or down, but never bigger than the remaining time if ( s >= 1.0_DP ) exit ! Good step! if ( i == MAXREDUX ) then write ( * , * ) \"Something has gone wrong in util_solve_rkf45!! Step size reduction has gone too far this time!\" call util_exit ( FAILURE ) end if end do ! Compute new value then step ahead in time y1 (:) = y0 (:) + matmul ( k (:, :), rkf4_coeff (:)) trem = trem - dt t = t + dt if ( trem <= 0._DP ) exit y0 (:) = y1 (:) end do return end function util_solve_rkf45 end submodule s_util_solve","tags":"","loc":"sourcefile/util_solve.f90.html"},{"title":"util_set.f90 – swiftest","text":"This file depends on sourcefile~~util_set.f90~~EfferentGraph sourcefile~util_set.f90 util_set.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_set.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_set Source Code util_set.f90 Source Code submodule ( swiftest_classes ) s_util_set !! author: David A. Minton !! This submodule contains a collection of setter method implementations use swiftest contains module subroutine util_set_beg_end_pl ( self , xbeg , xend , vbeg ) !! author: David A. Minton !! !! Sets one or more of the values of xbeg, xend, and vbeg implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object real ( DP ), dimension (:,:), intent ( in ), optional :: xbeg , xend , vbeg if ( present ( xbeg )) then if ( allocated ( self % xbeg )) deallocate ( self % xbeg ) allocate ( self % xbeg , source = xbeg ) end if if ( present ( xend )) then if ( allocated ( self % xend )) deallocate ( self % xend ) allocate ( self % xend , source = xend ) end if if ( present ( vbeg )) then if ( allocated ( self % vbeg )) deallocate ( self % vbeg ) allocate ( self % vbeg , source = vbeg ) end if return end subroutine util_set_beg_end_pl module subroutine util_set_ir3h ( self ) !! author: David A. Minton !! !! Sets the inverse heliocentric radius term (1/rh**3) for all bodies in a structure implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest generic body object ! Internals integer ( I4B ) :: i real ( DP ) :: r2 , irh if ( self % nbody > 0 ) then do i = 1 , self % nbody r2 = dot_product ( self % xh (:, i ), self % xh (:, i )) irh = 1.0_DP / sqrt ( r2 ) self % ir3h ( i ) = irh / r2 end do end if return end subroutine util_set_ir3h module subroutine util_set_msys ( self ) !! author: David A. Minton !! !! Sets the value of msys and the vector mass quantities based on the total mass of the system implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nobdy system object self % Gmtot = self % cb % Gmass + sum ( self % pl % Gmass ( 1 : self % pl % nbody ), self % pl % status ( 1 : self % pl % nbody ) /= INACTIVE ) return end subroutine util_set_msys module subroutine util_set_mu_pl ( self , cb ) !! author: David A. Minton !! !! Computes G * (M + m) for each massive body implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object if ( self % nbody > 0 ) self % mu (:) = cb % Gmass + self % Gmass (:) return end subroutine util_set_mu_pl module subroutine util_set_mu_tp ( self , cb ) !! author: David A. Minton !! !! Converts certain scalar values to arrays so that they can be used in elemental functions implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object if ( self % nbody > 0 ) self % mu (:) = cb % Gmass return end subroutine util_set_mu_tp module subroutine util_set_rhill ( self , cb ) !! author: David A. Minton !! !! Sets the value of the Hill's radius implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object if ( self % nbody > 0 ) then call self % xv2el ( cb ) self % rhill (:) = self % a (:) * ( self % Gmass (:) / cb % Gmass / 3 ) ** THIRD end if return end subroutine util_set_rhill module subroutine util_set_rhill_approximate ( self , cb ) !! author: David A. Minton !! !! Sets the approximate value of the Hill's radius using the heliocentric radius instead of computing the semimajor axis implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object ! Internals real ( DP ), dimension (:), allocatable :: rh if ( self % nbody > 0 ) then rh (:) = . mag . self % xh (:,:) self % rhill (:) = rh (:) * ( self % Gmass (:) / cb % Gmass / 3 ) ** THIRD end if return end subroutine util_set_rhill_approximate end submodule s_util_set","tags":"","loc":"sourcefile/util_set.f90.html"},{"title":"util_peri.f90 – swiftest","text":"This file depends on sourcefile~~util_peri.f90~~EfferentGraph sourcefile~util_peri.f90 util_peri.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_peri.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_peri Source Code util_peri.f90 Source Code submodule ( swiftest_classes ) s_util_peri use swiftest contains module subroutine util_peri_tp ( self , system , param ) !! author: David A. Minton !! !! Determine system pericenter passages for test particles !! Note:  If the coordinate system used is barycentric, then this routine assumes that the barycentric coordinates in the !!        test particle structures are up-to-date and are not recomputed !! !! Adapted from David E. Kaufmann's Swifter routine: util_peri.f90 !! Adapted from Hal Levison's Swift routine util_peri.f implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ) :: e real ( DP ), dimension (:), allocatable :: vdotr associate ( tp => self , ntp => self % nbody ) allocate ( vdotr ( ntp )) if ( param % qmin_coord == \"HELIO\" ) then do i = 1 , ntp vdotr ( i ) = dot_product ( tp % xh (:, i ), tp % vh (:, i )) if ( tp % isperi ( i ) == - 1 ) then if ( vdotr ( i ) >= 0.0_DP ) then tp % isperi ( i ) = 0 call orbel_xv2aeq ( tp % mu ( i ), tp % xh (:, i ), tp % vh (:, i ), tp % atp ( i ), e , tp % peri ( i )) end if else if ( vdotr ( i ) > 0.0_DP ) then tp % isperi ( i ) = 1 else tp % isperi ( i ) = - 1 end if end if end do else do i = 1 , ntp vdotr ( i ) = dot_product ( tp % xb (:, i ), tp % vb (:, i )) if ( tp % isperi ( i ) == - 1 ) then if ( vdotr ( i ) >= 0.0_DP ) then tp % isperi ( i ) = 0 call orbel_xv2aeq ( system % Gmtot , tp % xb (:, i ), tp % vb (:, i ), tp % atp ( i ), e , tp % peri ( i )) end if else if ( vdotr ( i ) > 0.0_DP ) then tp % isperi ( i ) = 1 else tp % isperi ( i ) = - 1 end if end if end do end if end associate return end subroutine util_peri_tp end submodule s_util_peri","tags":"","loc":"sourcefile/util_peri.f90.html"},{"title":"util_coord.f90 – swiftest","text":"This file depends on sourcefile~~util_coord.f90~~EfferentGraph sourcefile~util_coord.f90 util_coord.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_coord.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_coord Source Code util_coord.f90 Source Code submodule ( swiftest_classes ) s_util_coord use swiftest contains module subroutine util_coord_h2b_pl ( self , cb ) !! author: David A. Minton !! !! Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) !! !! Adapted from David E. Kaufmann's Swifter routine coord_h2b.f90 !! Adapted from Hal Levison's Swift routine coord_h2b.f implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object ! Internals integer ( I4B ) :: i real ( DP ) :: Gmtot real ( DP ), dimension ( NDIM ) :: xtmp , vtmp if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) Gmtot = cb % Gmass xtmp (:) = 0.0_DP vtmp (:) = 0.0_DP do i = 1 , npl if ( pl % status ( i ) == INACTIVE ) cycle Gmtot = Gmtot + pl % Gmass ( i ) xtmp (:) = xtmp (:) + pl % Gmass ( i ) * pl % xh (:, i ) vtmp (:) = vtmp (:) + pl % Gmass ( i ) * pl % vh (:, i ) end do cb % xb (:) = - xtmp (:) / Gmtot cb % vb (:) = - vtmp (:) / Gmtot do i = 1 , npl if ( pl % status ( i ) == INACTIVE ) cycle pl % xb (:, i ) = pl % xh (:, i ) + cb % xb (:) pl % vb (:, i ) = pl % vh (:, i ) + cb % vb (:) end do end associate return end subroutine util_coord_h2b_pl module subroutine util_coord_h2b_tp ( self , cb ) !! author: David A. Minton !! !! Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) !! !! Adapted from David E. Kaufmann's Swifter routine coord_h2b_tp.f90 !! Adapted from Hal Levison's Swift routine coord_h2b_tp.f implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_cb ), intent ( in ) :: cb !! Swiftest central body object ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) do concurrent ( i = 1 : ntp , tp % status ( i ) /= INACTIVE ) tp % xb (:, i ) = tp % xh (:, i ) + cb % xb (:) tp % vb (:, i ) = tp % vh (:, i ) + cb % vb (:) end do end associate return end subroutine util_coord_h2b_tp module subroutine util_coord_b2h_pl ( self , cb ) !! author: David A. Minton !! !! Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) !! !! Adapted from David E. Kaufmann's Swifter routine coord_b2h.f90 !! Adapted from Hal Levison's Swift routine coord_b2h.f implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) do concurrent ( i = 1 : npl , pl % status ( i ) /= INACTIVE ) pl % xh (:, i ) = pl % xb (:, i ) - cb % xb (:) pl % vh (:, i ) = pl % vb (:, i ) - cb % vb (:) end do end associate return end subroutine util_coord_b2h_pl module subroutine util_coord_b2h_tp ( self , cb ) !! author: David A. Minton !! !! Convert test particles from barycentric to heliocentric coordinates (position and velocity) !! !! Adapted from David E. Kaufmann's Swifter routine coord_b2h_tp.f90 !! Adapted from Hal Levison's Swift routine coord_b2h_tp.f implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( in ) :: cb !! Swiftest central body object ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) do concurrent ( i = 1 : ntp , tp % status ( i ) /= INACTIVE ) tp % xh (:, i ) = tp % xb (:, i ) - cb % xb (:) tp % vh (:, i ) = tp % vb (:, i ) - cb % vb (:) end do end associate return end subroutine util_coord_b2h_tp end submodule s_util_coord","tags":"","loc":"sourcefile/util_coord.f90.html"},{"title":"util_rescale.f90 – swiftest","text":"This file depends on sourcefile~~util_rescale.f90~~EfferentGraph sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_rescale.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_rescale Source Code util_rescale.f90 Source Code submodule ( swiftest_classes ) s_util_rescale use swiftest contains module subroutine util_rescale_system ( self , param , mscale , dscale , tscale ) !! author: David A. Minton !! !! Rescales an nbody system to a new set of units. Inputs are the multipliers on the mass (mscale), distance (dscale), and time units (tscale). !! Rescales all united quantities in the system, as well as the mass conversion factors, gravitational constant, and Einstein's constant in the parameter object. implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters. Returns with new values of the scale vactors and GU real ( DP ), intent ( in ) :: mscale , dscale , tscale !! Scale factors for mass, distance, and time units, respectively. ! Internals real ( DP ) :: vscale param % MU2KG = param % MU2KG * mscale param % DU2M = param % DU2M * dscale param % TU2S = param % TU2S * tscale ! Calculate the G for the system units param % GU = GC / ( param % DU2M ** 3 / ( param % MU2KG * param % TU2S ** 2 )) ! Calculate the inverse speed of light in the system units param % inv_c2 = einsteinC * param % TU2S / param % DU2M param % inv_c2 = ( param % inv_c2 ) ** ( - 2 ) vscale = dscale / tscale associate ( cb => self % cb , pl => self % pl , npl => self % pl % nbody , tp => self % tp , ntp => self % tp % nbody ) cb % mass = cb % mass / mscale cb % Gmass = param % GU * cb % mass cb % radius = cb % radius / dscale cb % xb (:) = cb % xb (:) / dscale cb % vb (:) = cb % vb (:) / vscale cb % rot (:) = cb % rot (:) * tscale pl % mass ( 1 : npl ) = pl % mass ( 1 : npl ) / mscale pl % Gmass ( 1 : npl ) = param % GU * pl % mass ( 1 : npl ) pl % radius ( 1 : npl ) = pl % radius ( 1 : npl ) / dscale pl % xh (:, 1 : npl ) = pl % xh (:, 1 : npl ) / dscale pl % vh (:, 1 : npl ) = pl % vh (:, 1 : npl ) / vscale pl % xb (:, 1 : npl ) = pl % xb (:, 1 : npl ) / dscale pl % vb (:, 1 : npl ) = pl % vb (:, 1 : npl ) / vscale pl % rot (:, 1 : npl ) = pl % rot (:, 1 : npl ) * tscale end associate return end subroutine util_rescale_system end submodule s_util_rescale","tags":"","loc":"sourcefile/util_rescale.f90.html"},{"title":"util_version.f90 – swiftest","text":"This file depends on sourcefile~~util_version.f90~~EfferentGraph sourcefile~util_version.f90 util_version.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_version.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_version Source Code util_version.f90 Source Code submodule ( swiftest_classes ) s_util_version use swiftest contains module subroutine util_version () !! author: David A. Minton !! !! Print program version information to terminale !! !! Adapted from David E. Kaufmann's Swifter routine: util_version.f90 implicit none write ( * , 200 ) VERSION_NUMBER 200 format ( / , \"************* Swiftest: Version \" , f3 . 1 , \" *************\" , // , & \"Based off of Swifter:\" , // , & \"Authors:\" , // , & \"    The Purdue University Swiftest Development team \" , / , & \"    Lead by David A. Minton \" , / , & \"    Single loop blocking by Jacob R. Elliott\" , / , & \"    Fragmentation by Carlisle A. Wishard and\" , // , & \"    Jennifer L. L. Poutplin                 \" , // , & \"Please address comments and questions to:\" , // , & \"    David A. Minton\" , / , & \"    Department Earth, Atmospheric, & Planetary Sciences \" , / , & \"    Purdue University\" , / , & \"    550 Stadium Mall Drive\" , / , & \"    West Lafayette, Indiana 47907\" , / , & \"    765-250-8034 \" , / , & \"    daminton@purdue.edu\" , / , & \"Special thanks to Hal Levison and Martin Duncan for the original\" , / ,& \"SWIFTER and SWIFT codes that made this possible.\" , // , & \"************************************************\" , / ) 100 FORMAT ( / , \"************* SWIFTER: Version \" , F3 . 1 , \" *************\" , // , & \"Authors:\" , // , & \"    Martin Duncan: Queen's University\" , / , & \"    Hal Levison  : Southwest Research Institute\" , // , & \"Please address comments and questions to:\" , // , & \"    Hal Levison or David Kaufmann\" , / , & \"    Department of Space Studies\" , / , & \"    Southwest Research Institute\" , / , & \"    1050 Walnut Street, Suite 400\" , / , & \"    Boulder, Colorado  80302\" , / , & \"    303-546-0290 (HFL), 720-240-0119 (DEK)\" , / , & \"    303-546-9687 (fax)\" , / , & \"    hal@gort.boulder.swri.edu (HFL)\" , / , & \"    kaufmann@boulder.swri.edu (DEK)\" , // , & \"************************************************\" , / ) return end subroutine util_version end submodule s_util_version","tags":"","loc":"sourcefile/util_version.f90.html"},{"title":"util_sort.f90 – swiftest","text":"This file depends on sourcefile~~util_sort.f90~~EfferentGraph sourcefile~util_sort.f90 util_sort.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_sort.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_sort Source Code util_sort.f90 Source Code submodule ( swiftest_classes ) s_util_sort use swiftest contains module subroutine util_sort_body ( self , sortby , ascending ) !! author: David A. Minton !! !! Sort a Swiftest body structure in-place. !! sortby is a string indicating which array component to sort. implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order ! Internals integer ( I4B ), dimension ( self % nbody ) :: ind integer ( I4B ) :: direction if ( ascending ) then direction = 1 else direction = - 1 end if associate ( body => self , n => self % nbody ) select case ( sortby ) case ( \"id\" ) call util_sort ( direction * body % id ( 1 : n ), ind ( 1 : n )) case ( \"status\" ) call util_sort ( direction * body % status ( 1 : n ), ind ( 1 : n )) case ( \"ir3h\" ) call util_sort ( direction * body % ir3h ( 1 : n ), ind ( 1 : n )) case ( \"a\" ) call util_sort ( direction * body % a ( 1 : n ), ind ( 1 : n )) case ( \"e\" ) call util_sort ( direction * body % e ( 1 : n ), ind ( 1 : n )) case ( \"inc\" ) call util_sort ( direction * body % inc ( 1 : n ), ind ( 1 : n )) case ( \"capom\" ) call util_sort ( direction * body % capom ( 1 : n ), ind ( 1 : n )) case ( \"mu\" ) call util_sort ( direction * body % mu ( 1 : n ), ind ( 1 : n )) case ( \"lfirst\" , \"nbody\" , \"ldiscard\" , \"xh\" , \"vh\" , \"xb\" , \"vb\" , \"ah\" , \"aobl\" , \"atide\" , \"agr\" ) write ( * , * ) 'Cannot sort by ' // trim ( adjustl ( sortby )) // '. Component not sortable!' case default write ( * , * ) 'Cannot sort by ' // trim ( adjustl ( sortby )) // '. Component not found!' return end select call body % rearrange ( ind ) end associate return end subroutine util_sort_body module subroutine util_sort_pl ( self , sortby , ascending ) !! author: David A. Minton !! !! Sort a Swiftest massive body object in-place. !! sortby is a string indicating which array component to sort. implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order ! Internals integer ( I4B ), dimension ( self % nbody ) :: ind integer ( I4B ) :: direction if ( ascending ) then direction = 1 else direction = - 1 end if associate ( pl => self , npl => self % nbody ) select case ( sortby ) case ( \"Gmass\" , \"mass\" ) call util_sort ( direction * pl % Gmass ( 1 : npl ), ind ( 1 : npl )) case ( \"rhill\" ) call util_sort ( direction * pl % rhill ( 1 : npl ), ind ( 1 : npl )) case ( \"radius\" ) call util_sort ( direction * pl % radius ( 1 : npl ), ind ( 1 : npl )) case ( \"density\" ) call util_sort ( direction * pl % density ( 1 : npl ), ind ( 1 : npl )) case ( \"k2\" ) call util_sort ( direction * pl % k2 ( 1 : npl ), ind ( 1 : npl )) case ( \"Q\" ) call util_sort ( direction * pl % Q ( 1 : npl ), ind ( 1 : npl )) case ( \"tlag\" ) call util_sort ( direction * pl % tlag ( 1 : npl ), ind ( 1 : npl )) case ( \"xbeg\" , \"xend\" , \"vbeg\" , \"Ip\" , \"rot\" , \"k_plpl\" , \"nplpl\" ) write ( * , * ) 'Cannot sort by ' // trim ( adjustl ( sortby )) // '. Component not sortable!' case default ! Look for components in the parent class call util_sort_body ( pl , sortby , ascending ) return end select call pl % rearrange ( ind ) end associate return end subroutine util_sort_pl module subroutine util_sort_tp ( self , sortby , ascending ) !! author: David A. Minton !! !! Sort a Swiftest test particle object  in-place. !! sortby is a string indicating which array component to sort. implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order ! Internals integer ( I4B ), dimension ( self % nbody ) :: ind integer ( I4B ) :: direction if ( ascending ) then direction = 1 else direction = - 1 end if associate ( tp => self , ntp => self % nbody ) select case ( sortby ) case ( \"peri\" ) call util_sort ( direction * tp % peri ( 1 : ntp ), ind ( 1 : ntp )) case ( \"atp\" ) call util_sort ( direction * tp % atp ( 1 : ntp ), ind ( 1 : ntp )) case ( \"isperi\" ) write ( * , * ) 'Cannot sort by ' // trim ( adjustl ( sortby )) // '. Component not sortable!' case default ! Look for components in the parent class call util_sort_body ( tp , sortby , ascending ) return end select call tp % rearrange ( ind ) end associate return end subroutine util_sort_tp module subroutine util_sort_rearrange_body ( self , ind ) !! author: David A. Minton !! !! Rearrange Swiftest body structure in-place from an index list. !! This is a helper utility used to make polymorphic sorting work on Swiftest structures. implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) ! Internals class ( swiftest_body ), allocatable :: body_sorted !! Temporary holder for sorted body associate ( n => self % nbody ) allocate ( body_sorted , source = self ) if ( allocated ( self % id )) self % id ( 1 : n ) = body_sorted % id ( ind ( 1 : n )) if ( allocated ( self % name )) self % name ( 1 : n ) = body_sorted % name ( ind ( 1 : n )) if ( allocated ( self % status )) self % status ( 1 : n ) = body_sorted % status ( ind ( 1 : n )) if ( allocated ( self % ldiscard )) self % ldiscard ( 1 : n ) = body_sorted % ldiscard ( ind ( 1 : n )) if ( allocated ( self % xh )) self % xh (:, 1 : n ) = body_sorted % xh (:, ind ( 1 : n )) if ( allocated ( self % vh )) self % vh (:, 1 : n ) = body_sorted % vh (:, ind ( 1 : n )) if ( allocated ( self % xb )) self % xb (:, 1 : n ) = body_sorted % xb (:, ind ( 1 : n )) if ( allocated ( self % vb )) self % vb (:, 1 : n ) = body_sorted % vb (:, ind ( 1 : n )) if ( allocated ( self % ah )) self % ah (:, 1 : n ) = body_sorted % ah (:, ind ( 1 : n )) if ( allocated ( self % ir3h )) self % ir3h ( 1 : n ) = body_sorted % ir3h ( ind ( 1 : n )) if ( allocated ( self % mu )) self % mu ( 1 : n ) = body_sorted % mu ( ind ( 1 : n )) if ( allocated ( self % lmask )) self % lmask ( 1 : n ) = body_sorted % lmask ( ind ( 1 : n )) if ( allocated ( self % a )) self % a ( 1 : n ) = body_sorted % a ( ind ( 1 : n )) if ( allocated ( self % e )) self % e ( 1 : n ) = body_sorted % e ( ind ( 1 : n )) if ( allocated ( self % inc )) self % inc ( 1 : n ) = body_sorted % inc ( ind ( 1 : n )) if ( allocated ( self % capom )) self % capom ( 1 : n ) = body_sorted % capom ( ind ( 1 : n )) if ( allocated ( self % omega )) self % omega ( 1 : n ) = body_sorted % omega ( ind ( 1 : n )) if ( allocated ( self % capm )) self % capm ( 1 : n ) = body_sorted % capm ( ind ( 1 : n )) if ( allocated ( self % aobl )) self % aobl (:, 1 : n ) = body_sorted % aobl (:, ind ( 1 : n )) if ( allocated ( self % atide )) self % atide (:, 1 : n ) = body_sorted % atide (:, ind ( 1 : n )) if ( allocated ( self % agr )) self % agr (:, 1 : n ) = body_sorted % agr (:, ind ( 1 : n )) deallocate ( body_sorted ) end associate return end subroutine util_sort_rearrange_body module subroutine util_sort_rearrange_pl ( self , ind ) !! author: David A. Minton !! !! Rearrange Swiftest massive body structure in-place from an index list. !! This is a helper utility used to make polymorphic sorting work on Swiftest structures. implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) ! Internals class ( swiftest_pl ), allocatable :: pl_sorted !! Temporary holder for sorted body associate ( pl => self , npl => self % nbody ) call util_sort_rearrange_body ( pl , ind ) allocate ( pl_sorted , source = self ) if ( allocated ( pl % mass )) pl % mass ( 1 : npl ) = pl_sorted % mass ( ind ( 1 : npl )) if ( allocated ( pl % Gmass )) pl % Gmass ( 1 : npl ) = pl_sorted % Gmass ( ind ( 1 : npl )) if ( allocated ( pl % rhill )) pl % rhill ( 1 : npl ) = pl_sorted % rhill ( ind ( 1 : npl )) if ( allocated ( pl % xbeg )) pl % xbeg (:, 1 : npl ) = pl_sorted % xbeg (:, ind ( 1 : npl )) if ( allocated ( pl % xend )) pl % xend (:, 1 : npl ) = pl_sorted % xend (:, ind ( 1 : npl )) if ( allocated ( pl % vbeg )) pl % vbeg (:, 1 : npl ) = pl_sorted % vbeg (:, ind ( 1 : npl )) if ( allocated ( pl % radius )) pl % radius ( 1 : npl ) = pl_sorted % radius ( ind ( 1 : npl )) if ( allocated ( pl % density )) pl % density ( 1 : npl ) = pl_sorted % density ( ind ( 1 : npl )) if ( allocated ( pl % Ip )) pl % Ip (:, 1 : npl ) = pl_sorted % Ip (:, ind ( 1 : npl )) if ( allocated ( pl % rot )) pl % rot (:, 1 : npl ) = pl_sorted % rot (:, ind ( 1 : npl )) if ( allocated ( pl % k2 )) pl % k2 ( 1 : npl ) = pl_sorted % k2 ( ind ( 1 : npl )) if ( allocated ( pl % Q )) pl % Q ( 1 : npl ) = pl_sorted % Q ( ind ( 1 : npl )) if ( allocated ( pl % tlag )) pl % tlag ( 1 : npl ) = pl_sorted % tlag ( ind ( 1 : npl )) deallocate ( pl_sorted ) end associate return end subroutine util_sort_rearrange_pl module subroutine util_sort_rearrange_tp ( self , ind ) !! author: David A. Minton !! !! Rearrange Swiftest massive body structure in-place from an index list. !! This is a helper utility used to make polymorphic sorting work on Swiftest structures. implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) ! Internals class ( swiftest_tp ), allocatable :: tp_sorted !! Temporary holder for sorted body associate ( tp => self , ntp => self % nbody ) call util_sort_rearrange_body ( tp , ind ) allocate ( tp_sorted , source = self ) if ( allocated ( tp % isperi )) tp % isperi ( 1 : ntp ) = tp_sorted % isperi ( ind ( 1 : ntp )) if ( allocated ( tp % peri )) tp % peri ( 1 : ntp ) = tp_sorted % peri ( ind ( 1 : ntp )) if ( allocated ( tp % atp )) tp % atp ( 1 : ntp ) = tp_sorted % atp ( ind ( 1 : ntp )) deallocate ( tp_sorted ) end associate return end subroutine util_sort_rearrange_tp module subroutine util_sort_dp ( arr ) !! author: David A. Minton !! !! Sort input double precision array in place into ascending numerical order using insertion sort. !! This algorithm works well for partially sorted arrays (which is usually the case here) !! implicit none ! Arguments real ( DP ), dimension (:), intent ( inout ) :: arr ! Internals real ( DP ) :: tmp integer ( I4B ) :: n , i , j n = size ( arr ) do i = 2 , n tmp = arr ( i ) do j = i - 1 , 1 , - 1 if ( arr ( j ) <= tmp ) exit arr ( j + 1 ) = arr ( j ) end do arr ( j + 1 ) = tmp end do return end subroutine util_sort_dp module subroutine util_sort_index_dp ( arr , ind ) !! author: David A. Minton !! !! Sort input double precision array by index in ascending numerical order using insertion sort. !! This algorithm works well for partially sorted arrays (which is usually the case here) !! implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: arr integer ( I4B ), dimension (:), intent ( out ) :: ind ! Internals real ( DP ) :: tmp integer ( I4B ) :: n , i , j n = size ( arr ) ind = [( i , i = 1 , n )] do i = 2 , n tmp = arr ( ind ( i )) do j = i - 1 , 1 , - 1 if ( arr ( ind ( j )) <= tmp ) exit ind ( j + 1 ) = ind ( j ) end do ind ( j + 1 ) = i end do return end subroutine util_sort_index_dp module subroutine util_sort_i4b ( arr ) !! author: David A. Minton !! !! Sort input integer array in place into ascending numerical order using insertion sort. !! This algorithm works well for partially sorted arrays (which is usually the case here) !! implicit none ! Arguments integer ( I4B ), dimension (:), intent ( inout ) :: arr ! Internals integer ( I4B ) :: tmp integer ( I4B ) :: n , i , j n = size ( arr ) do i = 2 , n tmp = arr ( i ) do j = i - 1 , 1 , - 1 if ( arr ( j ) <= tmp ) exit arr ( j + 1 ) = arr ( j ) end do arr ( j + 1 ) = tmp end do return end subroutine util_sort_i4b module subroutine util_sort_index_i4b ( arr , ind ) !! author: David A. Minton !! !! Sort input integer array by index in ascending numerical order using insertion sort. !! This algorithm works well for partially sorted arrays (which is usually the case here) !! implicit none ! Arguments integer ( I4B ), dimension (:), intent ( in ) :: arr integer ( I4B ), dimension (:), intent ( out ) :: ind ! Internals integer ( I4B ) :: tmp integer ( I4B ) :: n , i , j n = size ( arr ) ind = [( i , i = 1 , n )] do i = 2 , n tmp = arr ( ind ( i )) do j = i - 1 , 1 , - 1 if ( arr ( ind ( j )) <= tmp ) exit ind ( j + 1 ) = ind ( j ) end do ind ( j + 1 ) = i end do return end subroutine util_sort_index_i4b module subroutine util_sort_sp ( arr ) !! author: David A. Minton !! !! Sort input single precision array in place into ascending numerical order using insertion sort. !! This algorithm works well for partially sorted arrays (which is usually the case here) ! implicit none ! Arguments real ( SP ), dimension (:), intent ( inout ) :: arr ! Internals real ( SP ) :: tmp integer ( I4B ) :: n , i , j n = size ( arr ) do i = 2 , n tmp = arr ( i ) do j = i - 1 , 1 , - 1 if ( arr ( j ) <= tmp ) exit arr ( j + 1 ) = arr ( j ) end do arr ( j + 1 ) = tmp end do return end subroutine util_sort_sp module subroutine util_sort_index_sp ( arr , ind ) !! author: David A. Minton !! !! Sort input single precision array by index in ascending numerical order using insertion sort. !! This algorithm works well for partially sorted arrays (which is usually the case here) !! implicit none ! Arguments real ( SP ), dimension (:), intent ( in ) :: arr integer ( I4B ), dimension (:), intent ( out ) :: ind ! Internals real ( SP ) :: tmp integer ( I4B ) :: n , i , j n = size ( arr ) ind = [( i , i = 1 , n )] do i = 2 , n tmp = arr ( ind ( i )) do j = i - 1 , 1 , - 1 if ( arr ( ind ( j )) <= tmp ) exit ind ( j + 1 ) = ind ( j ) end do ind ( j + 1 ) = i end do return end subroutine util_sort_index_sp end submodule s_util_sort","tags":"","loc":"sourcefile/util_sort.f90.html"},{"title":"util_spill.f90 – swiftest","text":"This file depends on sourcefile~~util_spill.f90~~EfferentGraph sourcefile~util_spill.f90 util_spill.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_spill.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_spill Source Code util_spill.f90 Source Code submodule ( swiftest_classes ) s_util_spill use swiftest contains module subroutine util_spill_arr_char_string ( keeps , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Performs a spill operation on a single array of type character strings !! This is the inverse of a spill operation implicit none ! Arguments character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not if (. not . allocated ( keeps ) . or . count ( lspill_list (:)) == 0 ) return if (. not . allocated ( discards )) allocate ( discards ( count ( lspill_list (:)))) discards (:) = pack ( keeps (:), lspill_list (:)) if ( ldestructive ) then if ( count (. not . lspill_list (:)) > 0 ) then keeps (:) = pack ( keeps (:), . not . lspill_list (:)) else deallocate ( keeps ) end if end if return end subroutine util_spill_arr_char_string module subroutine util_spill_arr_DP ( keeps , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Performs a spill operation on a single array of type DP !! This is the inverse of a spill operation implicit none ! Arguments real ( DP ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep real ( DP ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardss logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not if (. not . allocated ( keeps ) . or . count ( lspill_list (:)) == 0 ) return if (. not . allocated ( discards )) allocate ( discards ( count ( lspill_list (:)))) discards (:) = pack ( keeps (:), lspill_list (:)) if ( ldestructive ) then if ( count (. not . lspill_list (:)) > 0 ) then keeps (:) = pack ( keeps (:), . not . lspill_list (:)) else deallocate ( keeps ) end if end if return end subroutine util_spill_arr_DP module subroutine util_spill_arr_DPvec ( keeps , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Performs a spill operation on a single array of DP vectors with shape (NDIM, n) !! This is the inverse of a spill operation implicit none ! Arguments real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: keeps !! Array of values to keep real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: discards !! Array discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not ! Internals integer ( I4B ) :: i if (. not . allocated ( keeps ) . or . count ( lspill_list (:)) == 0 ) return if (. not . allocated ( discards )) allocate ( discards ( NDIM , count ( lspill_list (:)))) do i = 1 , NDIM discards ( i ,:) = pack ( keeps ( i ,:), lspill_list (:)) end do if ( ldestructive ) then if ( count (. not . lspill_list (:)) > 0 ) then do i = 1 , NDIM keeps ( i ,:) = pack ( keeps ( i ,:), . not . lspill_list (:)) end do end if end if return end subroutine util_spill_arr_DPvec module subroutine util_spill_arr_I4B ( keeps , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Performs a spill operation on a single array of type I4B !! This is the inverse of a spill operation implicit none ! Arguments integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not if (. not . allocated ( keeps ) . or . count ( lspill_list (:)) == 0 ) return if (. not . allocated ( discards )) allocate ( discards ( count ( lspill_list (:)))) discards (:) = pack ( keeps (:), lspill_list (:)) if ( ldestructive ) then if ( count (. not . lspill_list (:)) > 0 ) then keeps (:) = pack ( keeps (:), . not . lspill_list (:)) else deallocate ( keeps ) end if end if return end subroutine util_spill_arr_I4B module subroutine util_spill_arr_logical ( keeps , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Performs a spill operation on a single array of logicals !! This is the inverse of a spill operation implicit none ! Arguments logical , dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep logical , dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or no if (. not . allocated ( keeps ) . or . count ( lspill_list (:)) == 0 ) return if (. not . allocated ( discards )) allocate ( discards ( count ( lspill_list (:)))) discards (:) = pack ( keeps (:), lspill_list (:)) if ( ldestructive ) then if ( count (. not . lspill_list (:)) > 0 ) then keeps (:) = pack ( keeps (:), . not . lspill_list (:)) else deallocate ( keeps ) end if end if return end subroutine util_spill_arr_logical module subroutine util_spill_body ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) Swiftest generic particle structure from active list to discard list !! Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest generic body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list ! Internals integer ( I4B ) :: i ! For each component, pack the discarded bodies into the discard object and do the inverse with the keeps !> Spill all the common components associate ( keeps => self ) call util_spill ( keeps % id , discards % id , lspill_list , ldestructive ) call util_spill ( keeps % name , discards % name , lspill_list , ldestructive ) call util_spill ( keeps % status , discards % status , lspill_list , ldestructive ) call util_spill ( keeps % lmask , discards % lmask , lspill_list , ldestructive ) call util_spill ( keeps % ldiscard , discards % ldiscard , lspill_list , ldestructive ) call util_spill ( keeps % mu , discards % mu , lspill_list , ldestructive ) call util_spill ( keeps % xh , discards % xh , lspill_list , ldestructive ) call util_spill ( keeps % vh , discards % vh , lspill_list , ldestructive ) call util_spill ( keeps % xb , discards % xb , lspill_list , ldestructive ) call util_spill ( keeps % vb , discards % vb , lspill_list , ldestructive ) call util_spill ( keeps % ah , discards % ah , lspill_list , ldestructive ) call util_spill ( keeps % aobl , discards % aobl , lspill_list , ldestructive ) call util_spill ( keeps % agr , discards % agr , lspill_list , ldestructive ) call util_spill ( keeps % atide , discards % atide , lspill_list , ldestructive ) call util_spill ( keeps % a , discards % a , lspill_list , ldestructive ) call util_spill ( keeps % e , discards % e , lspill_list , ldestructive ) call util_spill ( keeps % inc , discards % inc , lspill_list , ldestructive ) call util_spill ( keeps % capom , discards % capom , lspill_list , ldestructive ) call util_spill ( keeps % omega , discards % omega , lspill_list , ldestructive ) call util_spill ( keeps % capm , discards % capm , lspill_list , ldestructive ) ! This is the base class, so will be the last to be called in the cascade. ! Therefore we need to set the nbody values for both the keeps and discareds discards % nbody = count ( lspill_list (:)) keeps % nbody = keeps % nbody - discards % nbody if ( keeps % nbody > size ( keeps % status )) keeps % status ( keeps % nbody + 1 : size ( keeps % status )) = INACTIVE end associate return end subroutine util_spill_body module subroutine util_spill_encounter ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) Swiftest encounter structure from active list to discard list implicit none ! Arguments class ( swiftest_encounter ), intent ( inout ) :: self !! Swiftest encounter list class ( swiftest_encounter ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list ! Internals integer ( I4B ) :: i associate ( keeps => self ) call util_spill ( keeps % lvdotr , discards % lvdotr , lspill_list , ldestructive ) call util_spill ( keeps % status , discards % status , lspill_list , ldestructive ) call util_spill ( keeps % index1 , discards % index1 , lspill_list , ldestructive ) call util_spill ( keeps % index2 , discards % index2 , lspill_list , ldestructive ) call util_spill ( keeps % x1 , discards % x1 , lspill_list , ldestructive ) call util_spill ( keeps % x2 , discards % x2 , lspill_list , ldestructive ) call util_spill ( keeps % v1 , discards % v1 , lspill_list , ldestructive ) call util_spill ( keeps % v2 , discards % v2 , lspill_list , ldestructive ) ! This is the base class, so will be the last to be called in the cascade. ! Therefore we need to set the nenc values for both the keeps and discareds discards % nenc = count ( lspill_list (:)) keeps % nenc = count (. not . lspill_list (:)) if ( keeps % nenc > size ( keeps % status )) keeps % status ( keeps % nenc + 1 : size ( keeps % status )) = INACTIVE end associate return end subroutine util_spill_encounter module subroutine util_spill_pl ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) Swiftest massive body structure from active list to discard list !! Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list ! Internals integer ( I4B ) :: i associate ( keeps => self ) select type ( discards ) ! The standard requires us to select the type of both arguments in order to access all the components class is ( swiftest_pl ) !> Spill components specific to the massive body class call util_spill ( keeps % mass , discards % mass , lspill_list , ldestructive ) call util_spill ( keeps % Gmass , discards % Gmass , lspill_list , ldestructive ) call util_spill ( keeps % rhill , discards % rhill , lspill_list , ldestructive ) call util_spill ( keeps % radius , discards % radius , lspill_list , ldestructive ) call util_spill ( keeps % density , discards % density , lspill_list , ldestructive ) call util_spill ( keeps % k2 , discards % k2 , lspill_list , ldestructive ) call util_spill ( keeps % Q , discards % Q , lspill_list , ldestructive ) call util_spill ( keeps % tlag , discards % tlag , lspill_list , ldestructive ) call util_spill ( keeps % xbeg , discards % xbeg , lspill_list , ldestructive ) call util_spill ( keeps % vbeg , discards % vbeg , lspill_list , ldestructive ) call util_spill ( keeps % Ip , discards % Ip , lspill_list , ldestructive ) call util_spill ( keeps % rot , discards % rot , lspill_list , ldestructive ) call util_spill_body ( keeps , discards , lspill_list , ldestructive ) class default write ( * , * ) 'Error! spill method called for incompatible return type on swiftest_pl' end select end associate return end subroutine util_spill_pl module subroutine util_spill_tp ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) Swiftest test particle structure from active list to discard list !! Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardse logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list associate ( keeps => self , ntp => self % nbody ) select type ( discards ) class is ( swiftest_tp ) !> Spill components specific to the test particle class call util_spill ( keeps % isperi , discards % isperi , lspill_list , ldestructive ) call util_spill ( keeps % peri , discards % peri , lspill_list , ldestructive ) call util_spill ( keeps % atp , discards % atp , lspill_list , ldestructive ) call util_spill_body ( keeps , discards , lspill_list , ldestructive ) class default write ( * , * ) 'Error! spill method called for incompatible return type on swiftest_tp' end select end associate return end subroutine util_spill_tp end submodule s_util_spill","tags":"","loc":"sourcefile/util_spill.f90.html"},{"title":"util_valid.f90 – swiftest","text":"This file depends on sourcefile~~util_valid.f90~~EfferentGraph sourcefile~util_valid.f90 util_valid.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_valid.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_valid Source Code util_valid.f90 Source Code submodule ( swiftest_classes ) s_util_valid use swiftest contains module subroutine util_valid_id_system ( self , param ) !! author: David A. Minton !! !! Validate massive body and test particle ids !! Subroutine causes program to exit with error if any ids are not unique !! !! Adapted from David E. Kaufmann's Swifter routine: util_valid.f90 implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i integer ( I4B ), dimension (:), allocatable :: idarr associate ( cb => self % cb , pl => self % pl , npl => self % pl % nbody , tp => self % tp , ntp => self % tp % nbody ) allocate ( idarr ( 1 + npl + ntp )) idarr ( 1 ) = cb % id do i = 1 , npl idarr ( 1 + i ) = pl % id ( i ) end do do i = 1 , ntp idarr ( 1 + npl + i ) = tp % id ( i ) end do call util_sort ( idarr ) do i = 1 , npl + ntp if ( idarr ( i ) == idarr ( i + 1 )) then write ( * , * ) \"Swiftest error:\" write ( * , * ) \"   more than one body/particle has id = \" , idarr ( i ) call util_exit ( FAILURE ) end if end do self % maxid = maxval ( idarr ) end associate return end subroutine util_valid_id_system end submodule s_util_valid","tags":"","loc":"sourcefile/util_valid.f90.html"},{"title":"util_exit.f90 – swiftest","text":"This file depends on sourcefile~~util_exit.f90~~EfferentGraph sourcefile~util_exit.f90 util_exit.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_exit.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_exit Source Code util_exit.f90 Source Code submodule ( swiftest_classes ) s_util_exit use swiftest contains module subroutine util_exit ( code ) !! author: David A. Minton !! !! Print termination message and exit program !! !! Adapted from David E. Kaufmann's Swifter routine: util_exit.f90 !! Adapted from Hal Levison's Swift routine util_exit.f implicit none ! Arguments integer ( I4B ), intent ( in ) :: code ! Internals character ( * ), parameter :: BAR = '(\"------------------------------------------------\")' select case ( code ) case ( SUCCESS ) write ( * , SUCCESS_MSG ) VERSION_NUMBER write ( * , BAR ) case ( USAGE ) write ( * , USAGE_MSG ) case ( HELP ) write ( * , HELP_MSG ) case default write ( * , FAIL_MSG ) VERSION_NUMBER write ( * , BAR ) error stop end select stop end subroutine util_exit end submodule s_util_exit","tags":"","loc":"sourcefile/util_exit.f90.html"},{"title":"util_fill.f90 – swiftest","text":"This file depends on sourcefile~~util_fill.f90~~EfferentGraph sourcefile~util_fill.f90 util_fill.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_fill.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_fill Source Code util_fill.f90 Source Code submodule ( swiftest_classes ) s_util_fill use swiftest contains module subroutine util_fill_arr_char_string ( keeps , inserts , lfill_list ) !! author: David A. Minton !! !! Performs a fill operation on a single array of type character strings !! This is the inverse of a spill operation implicit none ! Arguments character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep character ( len = STRMAX ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps if (. not . allocated ( keeps ) . or . . not . allocated ( inserts )) return keeps (:) = unpack ( keeps (:), . not . lfill_list (:), keeps (:)) keeps (:) = unpack ( inserts (:), lfill_list (:), keeps (:)) return end subroutine util_fill_arr_char_string module subroutine util_fill_arr_DP ( keeps , inserts , lfill_list ) !! author: David A. Minton !! !! Performs a fill operation on a single array of type DP !! This is the inverse of a spill operation implicit none ! Arguments real ( DP ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep real ( DP ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps if (. not . allocated ( keeps ) . or . . not . allocated ( inserts )) return keeps (:) = unpack ( keeps (:), . not . lfill_list (:), keeps (:)) keeps (:) = unpack ( inserts (:), lfill_list (:), keeps (:)) return end subroutine util_fill_arr_DP module subroutine util_fill_arr_DPvec ( keeps , inserts , lfill_list ) !! author: David A. Minton !! !! Performs a fill operation on a single array of DP vectors with shape (NDIM, n) !! This is the inverse of a spill operation implicit none ! Arguments real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: keeps !! Array of values to keep real ( DP ), dimension (:,:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps ! Internals integer ( I4B ) :: i if (. not . allocated ( keeps ) . or . . not . allocated ( inserts )) return do i = 1 , NDIM keeps ( i ,:) = unpack ( keeps ( i ,:), . not . lfill_list (:), keeps ( i ,:)) keeps ( i ,:) = unpack ( inserts ( i ,:), lfill_list (:), keeps ( i ,:)) end do return end subroutine util_fill_arr_DPvec module subroutine util_fill_arr_I4B ( keeps , inserts , lfill_list ) !! author: David A. Minton !! !! Performs a fill operation on a single array of type I4B !! This is the inverse of a spill operation implicit none ! Arguments integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep integer ( I4B ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps if (. not . allocated ( keeps ) . or . . not . allocated ( inserts )) return keeps (:) = unpack ( keeps (:), . not . lfill_list (:), keeps (:)) keeps (:) = unpack ( inserts (:), lfill_list (:), keeps (:)) return end subroutine util_fill_arr_I4B module subroutine util_fill_arr_logical ( keeps , inserts , lfill_list ) !! author: David A. Minton !! !! Performs a fill operation on a single array of logicals !! This is the inverse of a spill operation implicit none ! Arguments logical , dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep logical , dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps if (. not . allocated ( keeps ) . or . . not . allocated ( inserts )) return keeps (:) = unpack ( keeps (:), . not . lfill_list (:), keeps (:)) keeps (:) = unpack ( inserts (:), lfill_list (:), keeps (:)) return end subroutine util_fill_arr_logical module subroutine util_fill_body ( self , inserts , lfill_list ) !! author: David A. Minton !! !! Insert new Swiftest generic particle structure into an old one. !! This is the inverse of a spill operation. implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest generic body object class ( swiftest_body ), intent ( in ) :: inserts !! Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps ! internals integer ( I4B ) :: i ! For each component, pack the discarded bodies into the discard object and do the inverse with the keeps !> Fill all the common components associate ( keeps => self ) call util_fill ( keeps % id , inserts % id , lfill_list ) call util_fill ( keeps % name , inserts % name , lfill_list ) call util_fill ( keeps % status , inserts % status , lfill_list ) call util_fill ( keeps % ldiscard , inserts % ldiscard , lfill_list ) call util_fill ( keeps % lmask , inserts % lmask , lfill_list ) call util_fill ( keeps % mu , inserts % mu , lfill_list ) call util_fill ( keeps % xh , inserts % xh , lfill_list ) call util_fill ( keeps % vh , inserts % vh , lfill_list ) call util_fill ( keeps % xb , inserts % xb , lfill_list ) call util_fill ( keeps % vb , inserts % vb , lfill_list ) call util_fill ( keeps % ah , inserts % ah , lfill_list ) call util_fill ( keeps % aobl , inserts % aobl , lfill_list ) call util_fill ( keeps % agr , inserts % agr , lfill_list ) call util_fill ( keeps % atide , inserts % atide , lfill_list ) call util_fill ( keeps % a , inserts % a , lfill_list ) call util_fill ( keeps % e , inserts % e , lfill_list ) call util_fill ( keeps % inc , inserts % inc , lfill_list ) call util_fill ( keeps % capom , inserts % capom , lfill_list ) call util_fill ( keeps % omega , inserts % omega , lfill_list ) call util_fill ( keeps % capm , inserts % capm , lfill_list ) ! This is the base class, so will be the last to be called in the cascade. keeps % nbody = size ( keeps % id (:)) end associate return end subroutine util_fill_body module subroutine util_fill_pl ( self , inserts , lfill_list ) !! author: David A. Minton !! !! Insert new Swiftest massive body structure into an old one. !! This is the inverse of a spill operation. implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_body ), intent ( in ) :: inserts !! Swiftest body object to be inserted logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps ! Internals integer ( I4B ) :: i associate ( keeps => self ) select type ( inserts ) ! The standard requires us to select the type of both arguments in order to access all the components class is ( swiftest_pl ) !> Fill components specific to the massive body class call util_fill ( keeps % mass , inserts % mass , lfill_list ) call util_fill ( keeps % Gmass , inserts % Gmass , lfill_list ) call util_fill ( keeps % rhill , inserts % rhill , lfill_list ) call util_fill ( keeps % radius , inserts % radius , lfill_list ) call util_fill ( keeps % density , inserts % density , lfill_list ) call util_fill ( keeps % k2 , inserts % k2 , lfill_list ) call util_fill ( keeps % Q , inserts % Q , lfill_list ) call util_fill ( keeps % tlag , inserts % tlag , lfill_list ) call util_fill ( keeps % xbeg , inserts % xbeg , lfill_list ) call util_fill ( keeps % vbeg , inserts % vbeg , lfill_list ) call util_fill ( keeps % Ip , inserts % Ip , lfill_list ) call util_fill ( keeps % rot , inserts % rot , lfill_list ) call util_fill_body ( keeps , inserts , lfill_list ) class default write ( * , * ) 'Error! fill method called for incompatible return type on swiftest_pl' end select end associate return end subroutine util_fill_pl module subroutine util_fill_tp ( self , inserts , lfill_list ) !! author: David A. Minton !! !! Insert new Swiftest test particle structure into an old one. !! This is the inverse of a fill operation. implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_body ), intent ( in ) :: inserts !! Swiftest body object to be inserted logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps associate ( keeps => self ) select type ( inserts ) class is ( swiftest_tp ) !> Spill components specific to the test particle class call util_fill ( keeps % isperi , inserts % isperi , lfill_list ) call util_fill ( keeps % peri , inserts % peri , lfill_list ) call util_fill ( keeps % atp , inserts % atp , lfill_list ) call util_fill_body ( keeps , inserts , lfill_list ) class default write ( * , * ) 'Error! fill method called for incompatible return type on swiftest_tp' end select end associate return end subroutine util_fill_tp end submodule s_util_fill","tags":"","loc":"sourcefile/util_fill.f90.html"},{"title":"util_resize.f90 – swiftest","text":"This file depends on sourcefile~~util_resize.f90~~EfferentGraph sourcefile~util_resize.f90 util_resize.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_resize.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_resize Source Code util_resize.f90 Source Code submodule ( swiftest_classes ) s_util_resize use swiftest contains module subroutine util_resize_arr_char_string ( arr , nnew ) !! author: David A. Minton !! !! Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. implicit none ! Arguments character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size ! Internals character ( len = STRMAX ), dimension (:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated integer ( I4B ) :: nold !! Old size if (. not . allocated ( arr ) . or . nnew < 0 ) return nold = size ( arr ) if ( nnew == nold ) return if ( nnew == 0 ) then deallocate ( arr ) return end if allocate ( tmp ( nnew )) if ( nnew > nold ) then tmp ( 1 : nold ) = arr ( 1 : nold ) else tmp ( 1 : nnew ) = arr ( 1 : nnew ) end if call move_alloc ( tmp , arr ) return end subroutine util_resize_arr_char_string module subroutine util_resize_arr_DP ( arr , nnew ) !! author: David A. Minton !! !! Resizes an array component of double precision type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. implicit none ! Arguments real ( DP ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size ! Internals real ( DP ), dimension (:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated integer ( I4B ) :: nold !! Old size if (. not . allocated ( arr ) . or . nnew < 0 ) return nold = size ( arr ) if ( nnew == nold ) return if ( nnew == 0 ) then deallocate ( arr ) return end if allocate ( tmp ( nnew )) if ( nnew > nold ) then tmp ( 1 : nold ) = arr ( 1 : nold ) else tmp ( 1 : nnew ) = arr ( 1 : nnew ) end if call move_alloc ( tmp , arr ) return end subroutine util_resize_arr_DP module subroutine util_resize_arr_DPvec ( arr , nnew ) !! author: David A. Minton !! !! Resizes an array component of double precision vectors of size (NDIM, n). Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. implicit none ! Arguments real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size ! Internals real ( DP ), dimension (:,:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated integer ( I4B ) :: nold !! Old size if (. not . allocated ( arr ) . or . nnew < 0 ) return nold = size ( arr , dim = 2 ) if ( nnew == nold ) return if ( nnew == 0 ) then deallocate ( arr ) return end if allocate ( tmp ( NDIM , nnew )) if ( nnew > nold ) then tmp (:, 1 : nold ) = arr (:, 1 : nold ) else tmp (:, 1 : nnew ) = arr (:, 1 : nnew ) end if call move_alloc ( tmp , arr ) return end subroutine util_resize_arr_DPvec module subroutine util_resize_arr_I4B ( arr , nnew ) !! author: David A. Minton !! !! Resizes an array component of integer type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. implicit none ! Arguments integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size ! Internals integer ( I4B ), dimension (:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated integer ( I4B ) :: nold !! Old size if (. not . allocated ( arr ) . or . nnew < 0 ) return nold = size ( arr ) if ( nnew == nold ) return if ( nnew == 0 ) then deallocate ( arr ) return end if allocate ( tmp ( nnew )) if ( nnew > nold ) then tmp ( 1 : nold ) = arr ( 1 : nold ) else tmp ( 1 : nnew ) = arr ( 1 : nnew ) end if call move_alloc ( tmp , arr ) return end subroutine util_resize_arr_I4B module subroutine util_resize_arr_logical ( arr , nnew ) !! author: David A. Minton !! !! Resizes an array component of logical type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. implicit none ! Arguments logical , dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size ! Internals logical , dimension (:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated integer ( I4B ) :: nold !! Old size if (. not . allocated ( arr ) . or . nnew < 0 ) return nold = size ( arr ) if ( nnew == nold ) return if ( nnew == 0 ) then deallocate ( arr ) return end if allocate ( tmp ( nnew )) if ( nnew > nold ) then tmp ( 1 : nold ) = arr ( 1 : nold ) else tmp ( 1 : nnew ) = arr ( 1 : nnew ) end if call move_alloc ( tmp , arr ) return end subroutine util_resize_arr_logical module subroutine util_resize_body ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object integer ( I4B ), intent ( in ) :: nnew !! New size neded call util_resize ( self % name , nnew ) call util_resize ( self % id , nnew ) call util_resize ( self % status , nnew ) call util_resize ( self % ldiscard , nnew ) call util_resize ( self % lmask , nnew ) call util_resize ( self % mu , nnew ) call util_resize ( self % xh , nnew ) call util_resize ( self % vh , nnew ) call util_resize ( self % xb , nnew ) call util_resize ( self % vb , nnew ) call util_resize ( self % ah , nnew ) call util_resize ( self % aobl , nnew ) call util_resize ( self % atide , nnew ) call util_resize ( self % agr , nnew ) call util_resize ( self % ir3h , nnew ) call util_resize ( self % a , nnew ) call util_resize ( self % e , nnew ) call util_resize ( self % inc , nnew ) call util_resize ( self % capom , nnew ) call util_resize ( self % omega , nnew ) call util_resize ( self % capm , nnew ) self % nbody = count ( self % status ( 1 : nnew ) /= INACTIVE ) return end subroutine util_resize_body module subroutine util_resize_encounter ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small. !! Note: The reason to extend it by a factor of 2 is for performance. When there are many enounters per step, resizing every time you want to add an !! encounter takes significant computational effort. Resizing by a factor of 2 is a tradeoff between performance (fewer resize calls) and memory managment !! Memory usage grows by a factor of 2 each time it fills up, but no more. implicit none ! Arguments class ( swiftest_encounter ), intent ( inout ) :: self !! Swiftest encounter list integer ( I4B ), intent ( in ) :: nnew !! New size of list needed ! Internals class ( swiftest_encounter ), allocatable :: enc_temp integer ( I4B ) :: nold logical :: lmalloc lmalloc = allocated ( self % status ) if ( lmalloc ) then nold = size ( self % status ) else nold = 0 end if if ( nnew > nold ) then if ( lmalloc ) allocate ( enc_temp , source = self ) call self % setup ( 2 * nnew ) if ( lmalloc ) then call self % copy ( enc_temp ) deallocate ( enc_temp ) end if else self % status ( nnew + 1 : nold ) = INACTIVE end if self % nenc = nnew return end subroutine util_resize_encounter module subroutine util_resize_pl ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded call util_resize_body ( self , nnew ) call util_resize ( self % mass , nnew ) call util_resize ( self % Gmass , nnew ) call util_resize ( self % rhill , nnew ) call util_resize ( self % radius , nnew ) call util_resize ( self % xbeg , nnew ) call util_resize ( self % xend , nnew ) call util_resize ( self % vbeg , nnew ) call util_resize ( self % density , nnew ) call util_resize ( self % Ip , nnew ) call util_resize ( self % rot , nnew ) call util_resize ( self % k2 , nnew ) call util_resize ( self % Q , nnew ) call util_resize ( self % tlag , nnew ) call self % eucl_index () return end subroutine util_resize_pl module subroutine util_resize_tp ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded call util_resize_body ( self , nnew ) call util_resize ( self % isperi , nnew ) call util_resize ( self % peri , nnew ) call util_resize ( self % atp , nnew ) return end subroutine util_resize_tp end submodule s_util_resize","tags":"","loc":"sourcefile/util_resize.f90.html"},{"title":"util_copy.f90 – swiftest","text":"This file depends on sourcefile~~util_copy.f90~~EfferentGraph sourcefile~util_copy.f90 util_copy.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_copy.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_copy Source Code util_copy.f90 Source Code submodule ( swiftest_classes ) s_util_copy use swiftest contains module subroutine util_copy_encounter ( self , source ) !! author: David A. Minton !! !! Copies elements from the source encounter list into self. implicit none ! Arguments class ( swiftest_encounter ), intent ( inout ) :: self !! Encounter list class ( swiftest_encounter ), intent ( in ) :: source !! Source object to copy into associate ( n => source % nenc ) self % nenc = n self % lvdotr ( 1 : n ) = source % lvdotr ( 1 : n ) self % status ( 1 : n ) = source % status ( 1 : n ) self % index1 ( 1 : n ) = source % index1 ( 1 : n ) self % index2 ( 1 : n ) = source % index2 ( 1 : n ) self % x1 (:, 1 : n ) = source % x1 (:, 1 : n ) self % x2 (:, 1 : n ) = source % x2 (:, 1 : n ) self % v1 (:, 1 : n ) = source % v1 (:, 1 : n ) self % v2 (:, 1 : n ) = source % v2 (:, 1 : n ) end associate return end subroutine util_copy_encounter end submodule s_util_copy","tags":"","loc":"sourcefile/util_copy.f90.html"},{"title":"util_minimize_bfgs.f90 – swiftest","text":"This file depends on sourcefile~~util_minimize_bfgs.f90~~EfferentGraph sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_minimize_bfgs Source Code util_minimize_bfgs.f90 Source Code submodule ( swiftest_classes ) s_util_minimize_bfgs use swiftest contains module function util_minimize_bfgs ( f , N , x0 , eps , lerr ) result ( x1 ) !! author: David A. Minton !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - !! This function implements the Broyden-Fletcher-Goldfarb-Shanno method to determine the minimum of a function of N variables. !! It recieves as input: !!   f%eval(x) : lambda function object containing the objective function as the eval metho !!   N    :  Number of variables of function f !!   x0   :  Initial starting value of x !!   eps  :  Accuracy of 1 - dimensional minimization at each step !! The outputs include !!   lerr :  Returns .true. if it could not find the minimum !! Returns !!   x1   :  Final minimum (all 0 if none found) !!   0 = No miniumum found !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - use , intrinsic :: ieee_exceptions implicit none ! Arguments integer ( I4B ), intent ( in ) :: N class ( lambda_obj ), intent ( inout ) :: f real ( DP ), dimension (:), intent ( in ) :: x0 real ( DP ), intent ( in ) :: eps logical , intent ( out ) :: lerr ! Result real ( DP ), dimension (:), allocatable :: x1 ! Internals integer ( I4B ) :: i , j , k , l , conv , num integer ( I4B ), parameter :: MAXLOOP = 1000 !! Maximum number of loops before method is determined to have failed real ( DP ), parameter :: graddelta = 1e-4_DP !! Delta x for gradient calculations real ( DP ), dimension ( N ) :: S !! Direction vectors real ( DP ), dimension ( N , N ) :: H !! Approximated inverse Hessian matrix real ( DP ), dimension ( N ) :: grad1 !! gradient of f real ( DP ), dimension ( N ) :: grad0 !! old value of gradient real ( DP ) :: astar !! 1D minimized value real ( DP ), dimension ( N ) :: y , P real ( DP ), dimension ( N , N ) :: PP , PyH , HyP real ( DP ) :: yHy , Py type ( ieee_status_type ) :: original_fpe_status logical , dimension (:), allocatable :: fpe_flag call ieee_get_status ( original_fpe_status ) ! Save the original floating point exception status call ieee_set_flag ( ieee_all , . false .) ! Set all flags to quiet allocate ( fpe_flag ( size ( ieee_usual ))) lerr = . false . allocate ( x1 , source = x0 ) ! Initialize approximate Hessian with the identity matrix (i.e. begin with method of steepest descent) ! Get initial gradient and initialize arrays for updated values of gradient and x H (:,:) = reshape ([(( 0._DP , i = 1 , j - 1 ), 1._DP , ( 0._DP , i = j + 1 , N ), j = 1 , N )], [ N , N ]) grad0 = gradf ( f , N , x0 (:), graddelta , lerr ) if ( lerr ) then call ieee_set_status ( original_fpe_status ) return end if grad1 (:) = grad0 (:) do i = 1 , MAXLOOP !check for convergence conv = count ( abs ( grad1 (:)) > eps ) if ( conv == 0 ) then !write(*,*) \"BFGS converged on gradient after \",i,\" iterations\" exit end if S (:) = - matmul ( H (:,:), grad1 (:)) astar = minimize1D ( f , x1 , S , N , graddelta , lerr ) if ( lerr ) then !write(*,*) \"Exiting BFGS with error in minimize1D step\" exit end if ! Get new x values P (:) = astar * S (:) x1 (:) = x1 (:) + P (:) ! Calculate new gradient grad0 (:) = grad1 (:) grad1 = gradf ( f , N , x1 , graddelta , lerr ) y (:) = grad1 (:) - grad0 (:) Py = sum ( P (:) * y (:)) ! set up factors for H matrix update yHy = 0._DP do k = 1 , N do j = 1 , N yHy = yHy + y ( j ) * H ( j , k ) * y ( k ) end do end do ! prevent divide by zero (convergence) if ( abs ( Py ) < tiny ( Py )) then !write(*,*) \"BFGS Converged on tiny Py after \",i,\" iterations\" exit end if ! set up update PyH (:,:) = 0._DP HyP (:,:) = 0._DP do k = 1 , N do j = 1 , N PP ( j , k ) = P ( j ) * P ( k ) do l = 1 , N PyH ( j , k ) = PyH ( j , k ) + P ( j ) * y ( l ) * H ( l , k ) HyP ( j , k ) = HyP ( j , k ) + P ( k ) * y ( l ) * H ( j , l ) end do end do end do ! update H matrix H (:,:) = H (:,:) + (( 1._DP - yHy / Py ) * PP (:,:) - PyH (:,:) - HyP (:,:)) / Py ! Normalize to prevent it from blowing up if it takes many iterations to find a solution H (:,:) = H (:,:) / norm2 ( H (:,:)) ! Stop everything if there are any exceptions to allow the routine to fail gracefully call ieee_get_flag ( ieee_usual , fpe_flag ) if ( any ( fpe_flag )) exit if ( i == MAXLOOP ) then lerr = . true . !write(*,*) \"BFGS ran out of loops!\" end if end do call ieee_get_flag ( ieee_usual , fpe_flag ) lerr = lerr . or . any ( fpe_flag ) !if (any(fpe_flag)) write(*,*) 'BFGS did not converge due to fpe' !if (lerr) write(*,*) \"BFGS did not converge!\" call ieee_set_status ( original_fpe_status ) return contains function gradf ( f , N , x1 , dx , lerr ) result ( grad ) !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - !! Purpose:  Estimates the gradient of a function using a central difference !! approximation !! Inputs: !!   f%eval(x) : lambda function object containing the objective function as the eval metho !!   N    :  number of variables N !!   x1   :  x value array !!   dx   :  step size to use when calculating derivatives !! Outputs: !!   lerr : .true. if an error occurred. Otherwise returns .false. !! Returns !!   grad :  N sized array containing estimated gradient of f at x1 !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - implicit none ! Arguments integer ( I4B ), intent ( in ) :: N class ( lambda_obj ), intent ( inout ) :: f real ( DP ), dimension (:), intent ( in ) :: x1 real ( DP ), intent ( in ) :: dx logical , intent ( out ) :: lerr ! Result real ( DP ), dimension ( N ) :: grad ! Internals integer ( I4B ) :: i , j real ( DP ), dimension ( N ) :: xp , xm real ( DP ) :: fp , fm logical :: lerrp , lerrm do i = 1 , N do j = 1 , N if ( j == i ) then xp ( j ) = x1 ( j ) + dx xm ( j ) = x1 ( j ) - dx else xp ( j ) = x1 ( j ) xm ( j ) = x1 ( j ) end if end do select type ( f ) class is ( lambda_obj_err ) fp = f % eval ( xp ) lerrp = f % lerr fm = f % eval ( xm ) lerrm = f % lerr lerr = lerrp . or . lerrm class is ( lambda_obj ) fp = f % eval ( xp ) fm = f % eval ( xm ) lerr = . false . end select grad ( i ) = ( fp - fm ) / ( 2 * dx ) if ( lerr ) return end do return end function gradf function minimize1D ( f , x0 , S , N , eps , lerr ) result ( astar ) !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - !! This program find the minimum of a function of N variables in a single direction !! S using in sequence: !!    1.  A Bracketing method !!    2.  The golden section method !!    3.  A quadratic polynomial fit !! Inputs !!   f%eval(x) : lambda function object containing the objective function as the eval metho !!   x0   :  Array of size N of initial x values !!   S    :  Array of size N that determines the direction of minimization !!   N    :  Number of variables of function f !!   eps  :  Accuracy of 1 - dimensional minimization at each step !! Output !!   lerr : .true. if an error occurred. Otherwise returns .false. !! Returns !!   astar      :  Final minimum along direction S !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - implicit none ! Arguments integer ( I4B ), intent ( in ) :: N class ( lambda_obj ), intent ( inout ) :: f real ( DP ), dimension (:), intent ( in ) :: x0 , S real ( DP ), intent ( in ) :: eps logical , intent ( out ) :: lerr ! Result real ( DP ) :: astar ! Internals integer ( I4B ) :: num = 0 real ( DP ), parameter :: step = 0.7_DP !! Bracketing method step size real ( DP ), parameter :: gam = 1.2_DP !! Bracketing method expansion parameter real ( DP ), parameter :: greduce = 0.2_DP !! Golden section method reduction factor real ( DP ), parameter :: greduce2 = 0.1_DP ! Secondary golden section method reduction factor real ( DP ) :: alo , ahi !! High and low values for 1 - D minimization routines real ( DP ), parameter :: a0 = epsilon ( 1.0_DP ) !! Initial guess of alpha alo = a0 call bracket ( f , x0 , S , N , gam , step , alo , ahi , lerr ) if ( lerr ) then !write(*,*) \"BFGS bracketing step failed!\" return end if if ( abs ( alo - ahi ) < eps ) then astar = alo lerr = . false . return end if call golden ( f , x0 , S , N , greduce , alo , ahi , lerr ) if ( lerr ) then !write(*,*) \"BFGS golden section step failed!\" return end if if ( abs ( alo - ahi ) < eps ) then astar = alo lerr = . false . return end if call quadfit ( f , x0 , S , N , eps , alo , ahi , lerr ) if ( lerr ) then !write(*,*) \"BFGS quadfit failed!\" return end if if ( abs ( alo - ahi ) < eps ) then astar = alo lerr = . false . return end if ! Quadratic fit method won't converge, so finish off with another golden section call golden ( f , x0 , S , N , greduce2 , alo , ahi , lerr ) if (. not . lerr ) astar = ( alo + ahi ) / 2.0_DP return end function minimize1D function n2one ( f , x0 , S , N , a , lerr ) result ( fnew ) implicit none ! Arguments integer ( I4B ), intent ( in ) :: N class ( lambda_obj ), intent ( inout ) :: f real ( DP ), dimension (:), intent ( in ) :: x0 , S real ( DP ), intent ( in ) :: a logical , intent ( out ) :: lerr ! Return real ( DP ) :: fnew ! Internals real ( DP ), dimension ( N ) :: xnew integer ( I4B ) :: i xnew (:) = x0 (:) + a * S (:) fnew = f % eval ( xnew (:)) select type ( f ) class is ( lambda_obj_err ) lerr = f % lerr class is ( lambda_obj ) lerr = . false . end select return end function n2one ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - subroutine bracket ( f , x0 , S , N , gam , step , lo , hi , lerr ) ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - !! This subroutine brackets the minimum.  It recieves as input: !!   f%eval(x) : lambda function object containing the objective function as the eval metho !!   x0   :  Array of size N of initial x values !!   S    :  Array of size N that determines the direction of minimization !!   gam  :  expansion parameter !!   step :  step size !!   lo   :  initial guess of lo bracket value !! The outputs include !!   lo   :  lo bracket !!   hi   :  hi bracket !!   lerr : .true. if an error occurred. Otherwise returns .false. !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - implicit none ! Arguments integer ( I4B ), intent ( in ) :: N class ( lambda_obj ), intent ( inout ) :: f real ( DP ), dimension (:), intent ( in ) :: x0 , S real ( DP ), intent ( in ) :: gam , step real ( DP ), intent ( inout ) :: lo real ( DP ), intent ( out ) :: hi logical , intent ( out ) :: lerr ! Internals real ( DP ) :: a0 , a1 , a2 , atmp , da real ( DP ) :: f0 , f1 , f2 integer ( I4B ) :: i , j integer ( I4B ), parameter :: MAXLOOP = 100 ! maximum number of loops before method is determined to have failed real ( DP ), parameter :: eps = epsilon ( lo ) ! small number precision to test floating point equality ! set up initial bracket points a0 = lo da = step a1 = a0 + da a2 = a0 + 2 * da f0 = n2one ( f , x0 , S , N , a0 , lerr ) if ( lerr ) return f1 = n2one ( f , x0 , S , N , a1 , lerr ) if ( lerr ) return f2 = n2one ( f , x0 , S , N , a2 , lerr ) if ( lerr ) return ! loop over bracket method until either min is bracketed method fails do i = 1 , MAXLOOP if (( f0 > f1 ) . and . ( f1 < f2 )) then ! Minimum was found lo = a0 hi = a2 return else if (( f0 >= f1 ) . and . ( f1 > f2 )) then ! Function appears to decrease da = da * gam atmp = a2 + da a0 = a1 a1 = a2 a2 = atmp f0 = f1 f1 = f2 f2 = n2one ( f , x0 , S , N , a2 , lerr ) else if (( f0 < f1 ) . and . ( f1 <= f2 )) then ! Function appears to increase da = da * gam atmp = a0 - da a2 = a1 a1 = a0 a0 = atmp f2 = f1 f0 = n2one ( f , x0 , S , N , a0 , lerr ) else if (( f0 < f1 ) . and . ( f1 > f2 )) then ! We are at a peak. Pick the direction that descends the fastest da = da * gam if ( f2 > f0 ) then ! LHS is lower than RHS atmp = a2 + da a0 = a1 a1 = a2 a2 = atmp f0 = f1 f1 = f2 f2 = n2one ( f , x0 , S , N , a2 , lerr ) else ! RHS is lower than LHS atmp = a0 - da a2 = a1 a1 = a0 a0 = atmp f2 = f1 f1 = f2 f0 = n2one ( f , x0 , S , N , a0 , lerr ) end if else if (( f0 > f1 ) . and . ( abs ( f2 - f1 ) <= eps )) then ! Decrasging but RHS equal da = da * gam atmp = a2 + da a2 = atmp f2 = n2one ( f , x0 , S , N , a2 , lerr ) else if (( abs ( f0 - f1 ) < eps ) . and . ( f1 < f2 )) then ! Increasing but LHS equal da = da * gam atmp = a0 - da a0 = atmp f0 = n2one ( f , x0 , S , N , a0 , lerr ) else ! all values equal. Expand in either direction and try again a0 = a0 - da a2 = a2 + da f0 = n2one ( f , x0 , S , N , a0 , lerr ) if ( lerr ) exit ! An error occurred while evaluating the function f2 = n2one ( f , x0 , S , N , a2 , lerr ) end if if ( lerr ) exit ! An error occurred while evaluating the function end do lerr = . true . return ! no minimum found end subroutine bracket ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - subroutine golden ( f , x0 , S , N , eps , lo , hi , lerr ) ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - !! This function uses the golden section method to reduce the starting interval lo, hi by some amount sigma. !! It recieves as input: !!   f%eval(x) : lambda function object containing the objective function as the eval metho !!   x0   :  Array of size N of initial x values !!   S    :  Array of size N that determines the direction of minimization !!   gam  :  expansion parameter !!   eps  :  reduction interval in range (0 < sigma < 1) such that: !!             hi(new) - lo(new) = eps * (hi(old) - lo(old)) !!   lo   :  initial guess of lo bracket value !! The outputs include !!   lo   :  lo bracket !!   hi   :  hi bracket !!   lerr : .true. if an error occurred. Otherwise returns .false. !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - implicit none ! Arguments integer ( I4B ), intent ( in ) :: N class ( lambda_obj ), intent ( inout ) :: f real ( DP ), dimension (:), intent ( in ) :: x0 , S real ( DP ), intent ( in ) :: eps real ( DP ), intent ( inout ) :: lo real ( DP ), intent ( out ) :: hi logical , intent ( out ) :: lerr ! Internals real ( DP ), parameter :: tau = 0.5_DP * ( sqrt ( 5.0_DP ) - 1.0_DP ) ! Golden section constant integer ( I4B ), parameter :: MAXLOOP = 40 ! maximum number of loops before method is determined to have failed (unlikely, but could occur if no minimum exists between lo and hi) real ( DP ) :: i0 ! Initial interval value real ( DP ) :: a1 , a2 real ( DP ) :: f1 , f2 integer ( I4B ) :: i , j i0 = hi - lo a1 = hi - tau * i0 a2 = lo + tau * i0 f1 = n2one ( f , x0 , S , N , a1 , lerr ) if ( lerr ) return f2 = n2one ( f , x0 , S , N , a2 , lerr ) if ( lerr ) return do i = 1 , MAXLOOP if ( abs (( hi - lo ) / i0 ) <= eps ) return ! interval reduced to input amount if ( f2 > f1 ) then hi = a2 a2 = a1 f2 = f1 a1 = hi - tau * ( hi - lo ) f1 = n2one ( f , x0 , S , N , a1 , lerr ) else lo = a1 a1 = a2 f2 = f1 a2 = hi - ( 1.0_DP - tau ) * ( hi - lo ) f2 = n2one ( f , x0 , S , N , a2 , lerr ) end if if ( lerr ) exit end do lerr = . true . return ! search took too many iterations - no minimum found end subroutine golden ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - subroutine quadfit ( f , x0 , S , N , eps , lo , hi , lerr ) ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - !! This function uses a quadratic polynomial fit to locate the minimum of a function !! to some accuracy eps.  It recieves as input: !!   f%eval(x) : lambda function object containing the objective function as the eval metho !!   lo    :  low bracket value !!   hi    :  high bracket value !!   eps   :  desired accuracy of final minimum location !! The outputs include !!   lo   :  final minimum location !!   hi   :  final minimum location !! Notes: Uses the ieee_exceptions intrinsic module to allow for graceful failure due to floating point exceptions, which won't terminate the run. !! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  - implicit none ! Arguments integer ( I4B ), intent ( in ) :: N class ( lambda_obj ), intent ( inout ) :: f real ( DP ), dimension (:), intent ( in ) :: x0 , S real ( DP ), intent ( in ) :: eps real ( DP ), intent ( inout ) :: lo real ( DP ), intent ( out ) :: hi logical , intent ( out ) :: lerr ! Internals integer ( I4B ), parameter :: MAXLOOP = 20 ! maximum number of loops before method is determined to have failed. real ( DP ) :: a1 , a2 , a3 , astar ! three points for the polynomial fit and polynomial minimum real ( DP ) :: f1 , f2 , f3 , fstar ! three function values for the polynomial and polynomial minimum real ( DP ), dimension ( 3 ) :: row_1 , row_2 , row_3 , rhs , soln ! matrix for 3 equation solver (gaussian elimination) real ( DP ), dimension ( 3 , 3 ) :: lhs real ( DP ) :: d1 , d2 , d3 , aold , denom , errval integer ( I4B ) :: i lerr = . false . ! Get initial a1, a2, a3 values a1 = lo a2 = lo + 0.5_DP * ( hi - lo ) a3 = hi aold = a1 astar = a2 f1 = n2one ( f , x0 , S , N , a1 , lerr ) if ( lerr ) return f2 = n2one ( f , x0 , S , N , a2 , lerr ) if ( lerr ) return f3 = n2one ( f , x0 , S , N , a3 , lerr ) if ( lerr ) return do i = 1 , MAXLOOP ! check to see if convergence is reached and exit errval = abs (( astar - aold ) / astar ) call ieee_get_flag ( ieee_usual , fpe_flag ) if ( any ( fpe_flag )) then !write(*,*) 'quadfit fpe' !write(*,*) 'aold : ',aold !write(*,*) 'astar: ',astar lerr = . true . exit end if if ( errval < eps ) then lo = astar hi = astar exit end if ! Set up system for gaussian elimination equation solver row_1 = [ 1.0_DP , a1 , a1 ** 2 ] row_2 = [ 1.0_DP , a2 , a2 ** 2 ] row_3 = [ 1.0_DP , a3 , a3 ** 2 ] rhs = [ f1 , f2 , f3 ] lhs ( 1 , :) = row_1 lhs ( 2 , :) = row_2 lhs ( 3 , :) = row_3 ! Solve system of equations soln (:) = util_solve_linear_system ( lhs , rhs , 3 , lerr ) call ieee_set_flag ( ieee_all , . false .) ! Set all flags back to quiet call ieee_set_halting_mode ( ieee_divide_by_zero , . false .) if ( lerr ) then !write(*,*) 'quadfit fpe:' !write(*,*) 'util_solve_linear_system failed' exit end if aold = astar if ( soln ( 2 ) == soln ( 3 )) then ! Handles the case where they are both 0. 0/0 is an unhandled exception astar = - 0.5_DP else astar = - soln ( 2 ) / ( 2 * soln ( 3 )) end if call ieee_get_flag ( ieee_usual , fpe_flag ) if ( any ( fpe_flag )) then !write(*,*) 'quadfit fpe' !write(*,*) 'soln(2:3): ',soln(2:3) !write(*,*) 'a1, a2, a3' !write(*,*) a1, a2, a3 !write(*,*) 'f1, f2, f3' !write(*,*) f1, f2, f3 lerr = . true . exit end if fstar = n2one ( f , x0 , S , N , astar , lerr ) if ( lerr ) exit ! keep the three closest a values to astar and discard the fourth d1 = abs ( a1 - astar ) d2 = abs ( a2 - astar ) d3 = abs ( a3 - astar ) if ( d1 > d2 ) then if ( d1 > d3 ) then f1 = fstar a1 = astar else if ( d3 > d2 ) then f3 = fstar a3 = astar end if else if ( d2 > d3 ) then f2 = fstar a2 = astar else if ( d3 > d1 ) then f3 = fstar a3 = astar end if end if end do if ( lerr ) return lo = a1 hi = a3 return end subroutine quadfit end function util_minimize_bfgs end submodule s_util_minimize_bfgs","tags":"","loc":"sourcefile/util_minimize_bfgs.f90.html"},{"title":"util_append.f90 – swiftest","text":"This file depends on sourcefile~~util_append.f90~~EfferentGraph sourcefile~util_append.f90 util_append.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_append.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_append Source Code util_append.f90 Source Code submodule ( swiftest_classes ) s_util_append use swiftest contains module subroutine util_append_arr_char_string ( arr , source , nold , nsrc , lsource_mask ) !! author: David A. Minton !! !! Append a single array of character string type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. implicit none ! Arguments character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array character ( len = STRMAX ), dimension (:), allocatable , intent ( in ) :: source !! Array to append integer ( I4B ), intent ( in ) :: nold , nsrc !! Extend of the old array and the source array, respectively logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to if (. not . allocated ( source )) return if (. not . allocated ( arr )) then allocate ( arr ( nold + nsrc )) else call util_resize ( arr , nold + nsrc ) end if arr ( nold + 1 : nold + nsrc ) = pack ( source ( 1 : nsrc ), lsource_mask ( 1 : nsrc )) return end subroutine util_append_arr_char_string module subroutine util_append_arr_DP ( arr , source , nold , nsrc , lsource_mask ) !! author: David A. Minton !! !! Append a single array of double precision type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. implicit none ! Arguments real ( DP ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array real ( DP ), dimension (:), allocatable , intent ( in ) :: source !! Array to append integer ( I4B ), intent ( in ) :: nold , nsrc !! Extend of the old array and the source array, respectively logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to if (. not . allocated ( source )) return if (. not . allocated ( arr )) then allocate ( arr ( nold + nsrc )) else call util_resize ( arr , nold + nsrc ) end if arr ( nold + 1 : nold + nsrc ) = pack ( source ( 1 : nsrc ), lsource_mask ( 1 : nsrc )) return end subroutine util_append_arr_DP module subroutine util_append_arr_DPvec ( arr , source , nold , nsrc , lsource_mask ) !! author: David A. Minton !! !! Append a single array of double precision vector type of size (NDIM, n) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. implicit none ! Arguments real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: arr !! Destination array real ( DP ), dimension (:,:), allocatable , intent ( in ) :: source !! Array to append integer ( I4B ), intent ( in ) :: nold , nsrc !! Extend of the old array and the source array, respectively logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to if (. not . allocated ( source )) return if (. not . allocated ( arr )) then allocate ( arr ( NDIM , nold + nsrc )) else call util_resize ( arr , nold + nsrc ) end if arr ( 1 , nold + 1 : nold + nsrc ) = pack ( source ( 1 , 1 : nsrc ), lsource_mask ( 1 : nsrc )) arr ( 2 , nold + 1 : nold + nsrc ) = pack ( source ( 2 , 1 : nsrc ), lsource_mask ( 1 : nsrc )) arr ( 3 , nold + 1 : nold + nsrc ) = pack ( source ( 3 , 1 : nsrc ), lsource_mask ( 1 : nsrc )) return end subroutine util_append_arr_DPvec module subroutine util_append_arr_I4B ( arr , source , nold , nsrc , lsource_mask ) !! author: David A. Minton !! !! Append a single array of integer(I4B) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. implicit none ! Arguments integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), allocatable , intent ( in ) :: source !! Array to append integer ( I4B ), intent ( in ) :: nold , nsrc !! Extend of the old array and the source array, respectively logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to if (. not . allocated ( source )) return if (. not . allocated ( arr )) then allocate ( arr ( nold + nsrc )) else call util_resize ( arr , nold + nsrc ) end if arr ( nold + 1 : nold + nsrc ) = pack ( source ( 1 : nsrc ), lsource_mask ( 1 : nsrc )) return end subroutine util_append_arr_I4B module subroutine util_append_arr_logical ( arr , source , nold , nsrc , lsource_mask ) !! author: David A. Minton !! !! Append a single array of logical type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. implicit none ! Arguments logical , dimension (:), allocatable , intent ( inout ) :: arr !! Destination array logical , dimension (:), allocatable , intent ( in ) :: source !! Array to append integer ( I4B ), intent ( in ) :: nold , nsrc !! Extend of the old array and the source array, respectively logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to if (. not . allocated ( source )) return if (. not . allocated ( arr )) then allocate ( arr ( nold + nsrc )) else call util_resize ( arr , nold + nsrc ) end if arr ( nold + 1 : nold + nsrc ) = pack ( source ( 1 : nsrc ), lsource_mask ( 1 : nsrc )) return end subroutine util_append_arr_logical module subroutine util_append_body ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from one Swiftest body object to another. !! This method will automatically resize the destination body if it is too small implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to associate ( nold => self % nbody , nsrc => source % nbody ) call util_append ( self % name , source % name , nold , nsrc , lsource_mask ) call util_append ( self % id , source % id , nold , nsrc , lsource_mask ) call util_append ( self % status , source % status , nold , nsrc , lsource_mask ) call util_append ( self % ldiscard , source % ldiscard , nold , nsrc , lsource_mask ) call util_append ( self % lmask , source % lmask , nold , nsrc , lsource_mask ) call util_append ( self % mu , source % mu , nold , nsrc , lsource_mask ) call util_append ( self % xh , source % xh , nold , nsrc , lsource_mask ) call util_append ( self % vh , source % vh , nold , nsrc , lsource_mask ) call util_append ( self % xb , source % xb , nold , nsrc , lsource_mask ) call util_append ( self % vb , source % vb , nold , nsrc , lsource_mask ) call util_append ( self % ah , source % ah , nold , nsrc , lsource_mask ) call util_append ( self % aobl , source % aobl , nold , nsrc , lsource_mask ) call util_append ( self % atide , source % atide , nold , nsrc , lsource_mask ) call util_append ( self % agr , source % agr , nold , nsrc , lsource_mask ) call util_append ( self % ir3h , source % ir3h , nold , nsrc , lsource_mask ) call util_append ( self % a , source % a , nold , nsrc , lsource_mask ) call util_append ( self % e , source % e , nold , nsrc , lsource_mask ) call util_append ( self % inc , source % inc , nold , nsrc , lsource_mask ) call util_append ( self % capom , source % capom , nold , nsrc , lsource_mask ) call util_append ( self % omega , source % omega , nold , nsrc , lsource_mask ) call util_append ( self % capm , source % capm , nold , nsrc , lsource_mask ) end associate self % nbody = count ( self % status (:) /= INACTIVE ) return end subroutine util_append_body module subroutine util_append_pl ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from one Swiftest body object to another. !! This method will automatically resize the destination body if it is too small implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to select type ( source ) class is ( swiftest_pl ) associate ( nold => self % nbody , nsrc => source % nbody ) call util_append ( self % mass , source % mass , nold , nsrc , lsource_mask ) call util_append ( self % Gmass , source % Gmass , nold , nsrc , lsource_mask ) call util_append ( self % rhill , source % rhill , nold , nsrc , lsource_mask ) call util_append ( self % radius , source % radius , nold , nsrc , lsource_mask ) call util_append ( self % xbeg , source % xbeg , nold , nsrc , lsource_mask ) call util_append ( self % xend , source % xend , nold , nsrc , lsource_mask ) call util_append ( self % vbeg , source % vbeg , nold , nsrc , lsource_mask ) call util_append ( self % density , source % density , nold , nsrc , lsource_mask ) call util_append ( self % Ip , source % Ip , nold , nsrc , lsource_mask ) call util_append ( self % rot , source % rot , nold , nsrc , lsource_mask ) call util_append ( self % k2 , source % k2 , nold , nsrc , lsource_mask ) call util_append ( self % Q , source % Q , nold , nsrc , lsource_mask ) call util_append ( self % tlag , source % tlag , nold , nsrc , lsource_mask ) call util_append_body ( self , source , lsource_mask ) end associate call self % eucl_index () class default write ( * , * ) \"Invalid object passed to the append method. Source must be of class swiftest_pl or its descendents\" call util_exit ( FAILURE ) end select return end subroutine util_append_pl module subroutine util_append_tp ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from one Swiftest body object to another. !! This method will automatically resize the destination body if it is too small implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to select type ( source ) class is ( swiftest_tp ) associate ( nold => self % nbody , nsrc => source % nbody ) call util_append ( self % isperi , source % isperi , nold , nsrc , lsource_mask ) call util_append ( self % peri , source % peri , nold , nsrc , lsource_mask ) call util_append ( self % atp , source % atp , nold , nsrc , lsource_mask ) call util_append_body ( self , source , lsource_mask ) end associate class default write ( * , * ) \"Invalid object passed to the append method. Source must be of class swiftest_tp or its descendents\" call util_exit ( FAILURE ) end select return end subroutine util_append_tp end submodule s_util_append","tags":"","loc":"sourcefile/util_append.f90.html"},{"title":"util_get_energy_momentum.f90 – swiftest","text":"This file depends on sourcefile~~util_get_energy_momentum.f90~~EfferentGraph sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_util_get_energy_momentum Source Code util_get_energy_momentum.f90 Source Code submodule ( swiftest_classes ) s_util_get_energy_momentum use swiftest contains module subroutine util_get_energy_momentum_system ( self , param ) !! author: David A. Minton !! !! Compute total system angular momentum vector and kinetic, potential and total system energy !! !! Adapted from David E. Kaufmann Swifter routine symba_energy_eucl.f90 !! !! Adapted from Martin Duncan's Swift routine anal_energy.f implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i , j integer ( I8B ) :: k real ( DP ) :: oblpot , kecb , kespincb real ( DP ), dimension ( self % pl % nbody ) :: irh , kepl , kespinpl , pecb real ( DP ), dimension ( self % pl % nbody ) :: Lplorbitx , Lplorbity , Lplorbitz real ( DP ), dimension ( self % pl % nbody ) :: Lplspinx , Lplspiny , Lplspinz real ( DP ), dimension ( self % pl % nplpl ) :: pepl real ( DP ), dimension ( NDIM ) :: Lcborbit , Lcbspin logical , dimension ( self % pl % nplpl ) :: lstatpl logical , dimension ( self % pl % nbody ) :: lstatus associate ( system => self , pl => self % pl , npl => self % pl % nbody , cb => self % cb ) system % Lorbit (:) = 0.0_DP system % Lspin (:) = 0.0_DP system % ke_orbit = 0.0_DP system % ke_spin = 0.0_DP kepl (:) = 0.0_DP Lplorbitx (:) = 0.0_DP Lplorbity (:) = 0.0_DP Lplorbitz (:) = 0.0_DP Lplspinx (:) = 0.0_DP Lplspiny (:) = 0.0_DP Lplspinz (:) = 0.0_DP lstatus ( 1 : npl ) = pl % status ( 1 : npl ) /= INACTIVE kecb = cb % mass * dot_product ( cb % vb (:), cb % vb (:)) Lcborbit (:) = cb % mass * cb % xb (:) . cross . cb % vb (:) do concurrent ( i = 1 : npl , lstatus ( i )) block ! We use a block construct to prevent generating temporary arrays for local variables real ( DP ) :: v2 , hx , hy , hz v2 = dot_product ( pl % vb (:, i ), pl % vb (:, i )) hx = pl % xb ( 2 , i ) * pl % vb ( 3 , i ) - pl % xb ( 3 , i ) * pl % vb ( 2 , i ) hy = pl % xb ( 3 , i ) * pl % vb ( 1 , i ) - pl % xb ( 1 , i ) * pl % vb ( 3 , i ) hz = pl % xb ( 1 , i ) * pl % vb ( 2 , i ) - pl % xb ( 2 , i ) * pl % vb ( 1 , i ) ! Angular momentum from orbit Lplorbitx ( i ) = pl % mass ( i ) * hx Lplorbity ( i ) = pl % mass ( i ) * hy Lplorbitz ( i ) = pl % mass ( i ) * hz ! Kinetic energy from orbit and spin kepl ( i ) = pl % mass ( i ) * v2 end block end do if ( param % lrotation ) then kespincb = cb % mass * cb % Ip ( 3 ) * cb % radius ** 2 * dot_product ( cb % rot (:), cb % rot (:)) ! For simplicity, we always assume that the rotation pole is the 3rd principal axis Lcbspin (:) = cb % Ip ( 3 ) * cb % mass * cb % radius ** 2 * cb % rot (:) do concurrent ( i = 1 : npl , lstatus ( i )) block real ( DP ) :: rot2 , hsx , hsy , hsz rot2 = dot_product ( pl % rot (:, i ), pl % rot (:, i )) ! For simplicity, we always assume that the rotation pole is the 3rd principal axis hsx = pl % Ip ( 3 , i ) * pl % radius ( i ) ** 2 * pl % rot ( 1 , i ) hsy = pl % Ip ( 3 , i ) * pl % radius ( i ) ** 2 * pl % rot ( 2 , i ) hsz = pl % Ip ( 3 , i ) * pl % radius ( i ) ** 2 * pl % rot ( 3 , i ) ! Angular momentum from spin Lplspinx ( i ) = pl % mass ( i ) * hsx Lplspiny ( i ) = pl % mass ( i ) * hsy Lplspinz ( i ) = pl % mass ( i ) * hsz kespinpl ( i ) = pl % mass ( i ) * pl % Ip ( 3 , i ) * pl % radius ( i ) ** 2 * rot2 end block end do else kespincb = 0.0_DP kespinpl (:) = 0.0_DP end if ! Do the central body potential energy component first associate ( px => pl % xb ( 1 ,:), py => pl % xb ( 2 ,:), pz => pl % xb ( 3 ,:)) do concurrent ( i = 1 : npl , lstatus ( i )) pecb ( i ) = - cb % Gmass * pl % mass ( i ) / sqrt ( px ( i ) ** 2 + py ( i ) ** 2 + pz ( i ) ** 2 ) end do end associate ! Do the potential energy between pairs of massive bodies associate ( indi => pl % k_plpl ( 1 , :), indj => pl % k_plpl ( 2 , :)) do concurrent ( k = 1 : pl % nplpl ) lstatpl ( k ) = ( lstatus ( indi ( k )) . and . lstatus ( indj ( k ))) end do do concurrent ( k = 1 : pl % nplpl , lstatpl ( k )) pepl ( k ) = - pl % Gmass ( indi ( k )) * pl % mass ( indj ( k )) / norm2 ( pl % xb (:, indi ( k )) - pl % xb (:, indj ( k ))) end do end associate system % pe = sum ( pepl (:), lstatpl (:)) + sum ( pecb ( 1 : npl ), lstatus ( 1 : npl )) system % ke_orbit = 0.5_DP * ( kecb + sum ( kepl ( 1 : npl ), lstatus (:))) if ( param % lrotation ) system % ke_spin = 0.5_DP * ( kespincb + sum ( kespinpl ( 1 : npl ), lstatus (:))) ! Potential energy from the oblateness term if ( param % loblatecb ) then do concurrent ( i = 1 : npl , lstatus ( i )) irh ( i ) = 1.0_DP / norm2 ( pl % xh (:, i )) end do call obl_pot ( npl , cb % Gmass , pl % mass , cb % j2rp2 , cb % j4rp4 , pl % xh , irh , oblpot ) system % pe = system % pe + oblpot end if system % Lorbit ( 1 ) = Lcborbit ( 1 ) + sum ( Lplorbitx ( 1 : npl ), lstatus ( 1 : npl )) system % Lorbit ( 2 ) = Lcborbit ( 2 ) + sum ( Lplorbity ( 1 : npl ), lstatus ( 1 : npl )) system % Lorbit ( 3 ) = Lcborbit ( 3 ) + sum ( Lplorbitz ( 1 : npl ), lstatus ( 1 : npl )) if ( param % lrotation ) then system % Lspin ( 1 ) = Lcbspin ( 1 ) + sum ( Lplspinx ( 1 : npl ), lstatus ( 1 : npl )) system % Lspin ( 2 ) = Lcbspin ( 2 ) + sum ( Lplspiny ( 1 : npl ), lstatus ( 1 : npl )) system % Lspin ( 3 ) = Lcbspin ( 3 ) + sum ( Lplspinz ( 1 : npl ), lstatus ( 1 : npl )) end if system % te = system % ke_orbit + system % ke_spin + system % pe end associate return end subroutine util_get_energy_momentum_system end submodule s_util_get_energy_momentum","tags":"","loc":"sourcefile/util_get_energy_momentum.f90.html"},{"title":"gr.f90 – swiftest","text":"This file depends on sourcefile~~gr.f90~~EfferentGraph sourcefile~gr.f90 gr.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~gr.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_gr Source Code gr.f90 Source Code submodule ( swiftest_classes ) s_gr use swiftest contains module pure subroutine gr_kick_getaccb_ns_body ( self , system , param ) !! author: David A. Minton !! !! Add relativistic correction acceleration for non-symplectic integrators. !! Based on Quinn et al. (1991) eq. 5 !! !! Reference: !!    Quinn, T.R., Tremaine, S., Duncan, M., 1991. A three million year integration of the earth’s orbit. !!       AJ 101, 2287–2305. https://doi.org/10.1086/115850 !! !! Adapted from David A. Minton's Swifter routine routine gr_kick_getaccb_ns.f90 implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest generic body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals real ( DP ) :: rmag , rdotv , vmag2 integer ( I4B ) :: i associate ( n => self % nbody , cb => system % cb , inv_c2 => param % inv_c2 ) if ( n == 0 ) return do i = 1 , n rmag = norm2 ( self % xh (:, i )) vmag2 = dot_product ( self % vh (:, i ), self % vh (:, i )) rdotv = dot_product ( self % xh (:, i ), self % vh (:, i )) self % agr (:, i ) = self % mu * inv_c2 / rmag ** 3 * (( 4 * self % mu ( i ) / rmag - vmag2 ) * self % xh (:, i ) + 4 * rdotv * self % vh (:, i )) end do select type ( self ) class is ( swiftest_pl ) do i = 1 , NDIM cb % agr ( i ) = - sum ( self % Gmass ( 1 : n ) * self % agr ( 1 : n , i ) / cb % Gmass ) end do end select end associate return end subroutine gr_kick_getaccb_ns_body module subroutine gr_kick_getacch ( mu , x , lmask , n , inv_c2 , agr ) !! author: David A. Minton !! !! Compute relativisitic accelerations of massive bodies !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_whm_kick_getacch.f90 implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: mu !! Gravitational constant real ( DP ), dimension (:,:), intent ( in ) :: x !! Position vectors logical , dimension (:), intent ( in ) :: lmask !! Logical mask indicating which bodies to compute integer ( I4B ), intent ( in ) :: n !! Total number of bodies real ( DP ), intent ( in ) :: inv_c2 !! Inverse speed of light squared: 1 / c**2 real ( DP ), dimension (:,:), intent ( out ) :: agr !! Accelerations ! Internals integer ( I4B ) :: i real ( DP ) :: beta , rjmag4 agr (:,:) = 0.0_DP do concurrent ( i = 1 : n , lmask ( i )) rjmag4 = ( dot_product ( x (:, i ), x (:, i ))) ** 2 beta = - mu ( i ) ** 2 * inv_c2 agr (:, i ) = 2 * beta * x (:, i ) / rjmag4 end do return end subroutine gr_kick_getacch module pure subroutine gr_p4_pos_kick ( param , x , v , dt ) !! author: David A. Minton !! !! Position kick due to p**4 term in the post-Newtonian correction !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Reference: !!    Saha, P., Tremaine, S., 1994. Long-term planetary integration with individual time steps. !!       AJ 108, 1962–1969. https://doi.org/10.1086/117210 !! !! Adapted from David A. Minton's Swifter routine gr_whm_p4.f90 implicit none ! Arguments class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), dimension (:), intent ( inout ) :: x !! Position vector real ( DP ), dimension (:), intent ( in ) :: v !! Velocity vector real ( DP ), intent ( in ) :: dt !! Step size ! Internals real ( DP ), dimension ( NDIM ) :: dr real ( DP ) :: vmag2 vmag2 = dot_product ( v (:), v (:)) dr (:) = - 2 * param % inv_c2 * vmag2 * v (:) x (:) = x (:) + dr (:) * dt return end subroutine gr_p4_pos_kick module pure subroutine gr_pseudovel2vel ( param , mu , xh , pv , vh ) !! author: David A. Minton !! !! Converts the relativistic pseudovelocity back into a veliocentric velocity !!    Based on Saha & Tremaine (1994) Eq. 32 !! !! Reference: !!    Saha, P., Tremaine, S., 1994. Long-term planetary integration with individual time steps. !!       AJ 108, 1962–1969. https://doi.org/10.1086/117210 !! !! Adapted from David A. Minton's Swifter routine gr_pseudovel2vel.f90 implicit none ! Arguments class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: mu !! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real ( DP ), dimension (:), intent ( in ) :: xh !! Heliocentric position vector real ( DP ), dimension (:), intent ( in ) :: pv !! Pseudovelocity velocity vector - see Saha & Tremain (1994), eq. (32) real ( DP ), dimension (:), intent ( out ) :: vh !! Heliocentric velocity vector ! Internals real ( DP ) :: vmag2 , rmag , grterm associate ( inv_c2 => param % inv_c2 ) vmag2 = dot_product ( pv (:), pv (:)) rmag = norm2 ( xh (:)) grterm = 1.0_DP - inv_c2 * ( 0.5_DP * vmag2 + 3 * mu / rmag ) vh (:) = pv (:) * grterm end associate return end subroutine gr_pseudovel2vel module pure subroutine gr_pv2vh_body ( self , param ) !! author: David A. Minton !! !! Wrapper function that converts from pseudovelocity to heliocentric velocity for swiftest bodies implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ), dimension (:,:), allocatable :: vh !! Temporary holder of pseudovelocity for in-place conversion associate ( n => self % nbody ) if ( n == 0 ) return allocate ( vh , mold = self % vh ) do i = 1 , n call gr_pseudovel2vel ( param , self % mu ( i ), self % xh (:, i ), self % vh (:, i ), vh (:, i )) end do call move_alloc ( vh , self % vh ) end associate return end subroutine gr_pv2vh_body module pure subroutine gr_vel2pseudovel ( param , mu , xh , vh , pv ) !! author: David A. Minton !! !! Converts the heliocentric velocity into a pseudovelocity with relativistic corrections. !! Uses Newton-Raphson method with direct inversion of the Jacobian (yeah, it's slow, but !! this is only done once per run). !! !! Reference: !!    Saha, P., Tremaine, S., 1994. Long-term planetary integration with individual time steps. !!       AJ 108, 1962–1969. https://doi.org/10.1086/117210 !! !! Adapted from David A. Minton's Swifter routine gr_vel2pseudovel.f90 implicit none ! Arguments class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: mu !! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real ( DP ), dimension (:), intent ( in ) :: xh !! Heliocentric position vector real ( DP ), dimension (:), intent ( in ) :: vh !! Heliocentric velocity vector real ( DP ), dimension (:), intent ( out ) :: pv !! Pseudovelocity vector - see Saha & Tremain (1994), eq. (32) ! Internals real ( DP ) :: v2 , G , pv2 , rterm , det real ( DP ), dimension ( NDIM , NDIM ) :: J , Jinv real ( DP ), dimension ( NDIM ) :: F integer ( I4B ) :: n , i , k integer ( I4B ), parameter :: MAXITER = 50 real ( DP ), parameter :: TOL = 1.0e-12_DP associate ( inv_c2 => param % inv_c2 ) pv ( 1 : NDIM ) = vh ( 1 : NDIM ) ! Initial guess rterm = 3 * mu / norm2 ( xh (:)) v2 = dot_product ( vh (:), vh (:)) do n = 1 , MAXITER pv2 = dot_product ( pv (:), pv (:)) G = 1.0_DP - inv_c2 * ( 0.5_DP * pv2 + rterm ) F (:) = pv (:) * G - vh (:) if ( abs ( sum ( F ) / v2 ) < TOL ) exit ! Root found ! Calculate the Jacobian do k = 1 , NDIM do i = 1 , NDIM if ( i == k ) then J ( i , k ) = G - inv_c2 * pv ( k ) else J ( i , k ) = - inv_c2 * pv ( k ) end if end do end do ! Inverse of the Jacobian det = J ( 1 , 1 ) * ( J ( 3 , 3 ) * J ( 2 , 2 ) - J ( 3 , 2 ) * J ( 2 , 3 )) det = det - J ( 2 , 1 ) * ( J ( 3 , 3 ) * J ( 1 , 2 ) - J ( 3 , 2 ) * J ( 1 , 3 )) det = det + J ( 3 , 1 ) * ( J ( 2 , 3 ) * J ( 1 , 2 ) - J ( 2 , 2 ) * J ( 1 , 3 )) Jinv ( 1 , 1 ) = J ( 3 , 3 ) * J ( 2 , 2 ) - J ( 3 , 2 ) * J ( 2 , 3 ) Jinv ( 1 , 2 ) = - ( J ( 3 , 3 ) * J ( 1 , 2 ) - J ( 3 , 2 ) * J ( 1 , 3 )) Jinv ( 1 , 3 ) = J ( 2 , 3 ) * J ( 1 , 2 ) - J ( 2 , 2 ) * J ( 1 , 3 ) Jinv ( 2 , 1 ) = - ( J ( 3 , 3 ) * J ( 2 , 1 ) - J ( 3 , 1 ) * J ( 2 , 3 )) Jinv ( 2 , 2 ) = J ( 3 , 3 ) * J ( 1 , 1 ) - J ( 3 , 1 ) * J ( 1 , 3 ) Jinv ( 2 , 3 ) = - ( J ( 2 , 3 ) * J ( 1 , 1 ) - J ( 2 , 1 ) * J ( 1 , 3 )) Jinv ( 3 , 1 ) = J ( 3 , 2 ) * J ( 2 , 1 ) - J ( 3 , 1 ) * J ( 2 , 2 ) Jinv ( 3 , 2 ) = - ( J ( 3 , 2 ) * J ( 1 , 1 ) - J ( 3 , 1 ) * J ( 1 , 2 )) Jinv ( 3 , 3 ) = J ( 2 , 2 ) * J ( 1 , 1 ) - J ( 2 , 1 ) * J ( 1 , 2 ) Jinv = Jinv * det do i = 1 , NDIM pv ( i ) = pv ( i ) - dot_product ( Jinv ( i ,:), F (:)) end do end do end associate return end subroutine gr_vel2pseudovel module pure subroutine gr_vh2pv_body ( self , param ) !! author: David A. Minton !! !! Wrapper function that converts from heliocentric velocity to pseudovelocity for Swiftest bodies implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ), dimension (:,:), allocatable :: pv !! Temporary holder of pseudovelocity for in-place conversion associate ( n => self % nbody ) if ( n == 0 ) return allocate ( pv , mold = self % vh ) do i = 1 , n call gr_vel2pseudovel ( param , self % mu ( i ), self % xh (:, i ), self % vh (:, i ), pv (:, i )) end do call move_alloc ( pv , self % vh ) end associate return end subroutine gr_vh2pv_body end submodule s_gr","tags":"","loc":"sourcefile/gr.f90.html"},{"title":"discard.f90 – swiftest","text":"This file depends on sourcefile~~discard.f90~~EfferentGraph sourcefile~discard.f90 discard.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~discard.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_discard Source Code discard.f90 Source Code submodule ( swiftest_classes ) s_discard use swiftest contains module subroutine discard_system ( self , param ) !! author: David A. Minton !! !! Calls the discard methods for each body class and then the write method if any discards were detected !! implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals logical :: lany_discards , lpl_discards , ltp_discards , lpl_check , ltp_check lpl_check = allocated ( self % pl_discards ) ltp_check = allocated ( self % tp_discards ) associate ( system => self , tp => self % tp , pl => self % pl , tp_discards => self % tp_discards , pl_discards => self % pl_discards ) lpl_discards = . false . ltp_discards = . false . if ( lpl_check ) then call pl % discard ( system , param ) lpl_discards = ( pl_discards % nbody > 0 ) end if if ( ltp_check ) then call tp % discard ( system , param ) ltp_discards = ( tp_discards % nbody > 0 ) end if if ( lpl_discards . or . ltp_discards ) call system % write_discard ( param ) if ( lpl_discards . and . param % lenergy ) call self % conservation_report ( param , lterminal = . true .) if ( lpl_check ) call pl_discards % setup ( 0 , param ) if ( ltp_check ) call tp_discards % setup ( 0 , param ) end associate return end subroutine discard_system module subroutine discard_pl ( self , system , param ) !! author: David A. Minton !! !!  Placeholder method for discarding massive bodies. This method does nothing except to ensure that the discard flag is set to false. !!  This method is intended to be overridden by more advanced integrators. implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameter if ( self % nbody == 0 ) return self % ldiscard (:) = . false . return end subroutine discard_pl module subroutine discard_tp ( self , system , param ) !! author: David A. Minton !! !! Check to see if particles should be discarded based on their positions relative to the massive bodies !! !! Adapted from David E. Kaufmann's Swifter routine: discard.f90 !! Adapted from Hal Levison's Swift routine discard. implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameter ! Internals logical , dimension (:), allocatable :: ldiscard associate ( tp => self , ntp => self % nbody , cb => system % cb , pl => system % pl , npl => system % pl % nbody ) if (( ntp == 0 ) . or . ( npl == 0 )) return if (( param % rmin >= 0.0_DP ) . or . ( param % rmax >= 0.0_DP ) . or . & ( param % rmaxu >= 0.0_DP ) . or . (( param % qmin >= 0.0_DP ) . and . ( param % qmin_coord == \"BARY\" ))) then call pl % h2b ( cb ) call tp % h2b ( cb ) end if if (( param % rmin >= 0.0_DP ) . or . ( param % rmax >= 0.0_DP ) . or . ( param % rmaxu >= 0.0_DP )) call discard_cb_tp ( tp , system , param ) if ( param % qmin >= 0.0_DP ) call discard_peri_tp ( tp , system , param ) if ( param % lclose ) call discard_pl_tp ( tp , system , param ) if ( any ( tp % ldiscard )) then allocate ( ldiscard , source = tp % ldiscard ) call tp % spill ( system % tp_discards , ldiscard , ldestructive = . true .) end if end associate return end subroutine discard_tp subroutine discard_cb_tp ( tp , system , param ) !! author: David A. Minton !! !!  Check to see if test particles should be discarded based on their positions relative to the Sun !!        or because they are unbound from the system !! !! Adapted from David E. Kaufmann's Swifter routine: discard_sun.f90 !! Adapted from Hal Levison's Swift routine discard_sun.f implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: tp !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ) :: energy , vb2 , rb2 , rh2 , rmin2 , rmax2 , rmaxu2 associate ( ntp => tp % nbody , cb => system % cb , t => param % t , Gmtot => system % Gmtot ) rmin2 = max ( param % rmin * param % rmin , cb % radius * cb % radius ) rmax2 = param % rmax ** 2 rmaxu2 = param % rmaxu ** 2 do i = 1 , ntp if ( tp % status ( i ) == ACTIVE ) then rh2 = dot_product ( tp % xh (:, i ), tp % xh (:, i )) if (( param % rmax >= 0.0_DP ) . and . ( rh2 > rmax2 )) then tp % status ( i ) = DISCARDED_RMAX write ( * , * ) \"Particle \" , tp % id ( i ), \" too far from sun at t = \" , t tp % ldiscard ( i ) = . true . tp % lmask ( i ) = . false . else if (( param % rmin >= 0.0_DP ) . and . ( rh2 < rmin2 )) then tp % status ( i ) = DISCARDED_RMIN write ( * , * ) \"Particle \" , tp % id ( i ), \" too close to sun at t = \" , t tp % ldiscard ( i ) = . true . tp % lmask ( i ) = . false . else if ( param % rmaxu >= 0.0_DP ) then rb2 = dot_product ( tp % xb (:, i ), tp % xb (:, i )) vb2 = dot_product ( tp % vb (:, i ), tp % vb (:, i )) energy = 0.5_DP * vb2 - Gmtot / sqrt ( rb2 ) if (( energy > 0.0_DP ) . and . ( rb2 > rmaxu2 )) then tp % status ( i ) = DISCARDED_RMAXU write ( * , * ) \"Particle \" , tp % id ( i ), \" is unbound and too far from barycenter at t = \" , t tp % ldiscard ( i ) = . true . tp % lmask ( i ) = . false . end if end if end if end do end associate return end subroutine discard_cb_tp subroutine discard_peri_tp ( tp , system , param ) !! author: David A. Minton !! !! Check to see if a test particle should be discarded because its perihelion distance becomes too small !! !! Adapted from David E. Kaufmann's Swifter routine: discard_peri.f90 !! Adapted from Hal Levison's Swift routine discard_peri.f implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: tp !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameterss ! Internals logical , save :: lfirst = . true . integer ( I4B ) :: i , j , ih real ( DP ) :: r2 real ( DP ), dimension ( NDIM ) :: dx associate ( cb => system % cb , ntp => tp % nbody , pl => system % pl , npl => system % pl % nbody , t => param % t ) call tp % get_peri ( system , param ) do i = 1 , ntp if ( tp % status ( i ) == ACTIVE ) then if ( tp % isperi ( i ) == 0 ) then ih = 1 do j = 1 , npl dx (:) = tp % xh (:, i ) - pl % xh (:, j ) r2 = dot_product ( dx (:), dx (:)) if ( r2 <= ( pl % rhill ( j )) ** 2 ) ih = 0 end do if ( ih == 1 ) then if (( tp % atp ( i ) >= param % qmin_alo ) . and . & ( tp % atp ( i ) <= param % qmin_ahi ) . and . & ( tp % peri ( i ) <= param % qmin )) then tp % status ( i ) = DISCARDED_PERI write ( * , * ) \"Particle \" , tp % id ( i ), \" perihelion distance too small at t = \" , t tp % ldiscard ( i ) = . true . end if end if end if end if end do end associate return end subroutine discard_peri_tp subroutine discard_pl_tp ( tp , system , param ) !! author: David A. Minton !! !! Check to see if test particles should be discarded based on their positions relative to the massive bodies !! !! Adapted from David E. Kaufmann's Swifter routine: discard_pl.f90 !! Adapted from Hal Levison's Swift routine discard_pl.f implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: tp !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i , j , isp real ( DP ) :: r2min , radius real ( DP ), dimension ( NDIM ) :: dx , dv associate ( ntp => tp % nbody , pl => system % pl , npl => system % pl % nbody , t => param % t , dt => param % dt ) do i = 1 , ntp if ( tp % status ( i ) == ACTIVE ) then do j = 1 , npl dx (:) = tp % xh (:, i ) - pl % xh (:, j ) dv (:) = tp % vh (:, i ) - pl % vh (:, j ) radius = pl % radius ( j ) call discard_pl_close ( dx (:), dv (:), dt , radius ** 2 , isp , r2min ) if ( isp /= 0 ) then tp % status ( i ) = DISCARDED_PLR tp % lmask ( i ) = . false . pl % ldiscard ( j ) = . true . write ( * , * ) \"Particle \" , tp % id ( i ), \" too close to massive body \" , pl % id ( j ), \" at t = \" , t tp % ldiscard ( i ) = . true . exit end if end do end if end do end associate return end subroutine discard_pl_tp subroutine discard_pl_close ( dx , dv , dt , r2crit , iflag , r2min ) !! author: David A. Minton !! !!  Check to see if a test particle and massive body are having, or will have within the next time step, an encounter such !!          that the separation distance r is less than some critical radius rcrit (or r**2 < rcrit**2 = r2crit) !! !! Adapted from David E. Kaufmann's Swifter routine: discard_pl_close.f90 !! Adapted from Hal Levison's Swift routine discard_pl_close.f implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: dx , dv real ( DP ), intent ( in ) :: dt , r2crit integer ( I4B ), intent ( out ) :: iflag real ( DP ), intent ( out ) :: r2min ! Internals real ( DP ) :: r2 , v2 , vdotr , tmin r2 = dot_product ( dx (:), dx (:)) if ( r2 <= r2crit ) then iflag = 1 else vdotr = dot_product ( dx (:), dv (:)) if ( vdotr > 0.0_DP ) then iflag = 0 else v2 = dot_product ( dv (:), dv (:)) tmin = - vdotr / v2 if ( tmin < dt ) then r2min = r2 - vdotr * vdotr / v2 else r2min = r2 + 2 * vdotr * dt + v2 * dt ** 2 end if r2min = min ( r2min , r2 ) if ( r2min <= r2crit ) then iflag = 1 else iflag = 0 end if end if end if return end subroutine discard_pl_close end submodule s_discard","tags":"","loc":"sourcefile/discard.f90.html"},{"title":"helio_step.f90 – swiftest","text":"This file depends on sourcefile~~helio_step.f90~~EfferentGraph sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~helio_step.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_helio_step Source Code helio_step.f90 Source Code submodule ( helio_classes ) s_helio_step use swiftest contains module subroutine helio_step_system ( self , param , t , dt ) !! author: David A. Minton !! !! Step massive bodies and and active test particles ahead in heliocentric coordinates. !! !! Currently there's no difference between this and the WHM system stepper, so this is just !! a wrapper function to keep the method calls consistent for inherited types. !! !! Adapted from Hal Levison's Swift routine step_kdk.f !! Adapted from David E. Kaufmann's Swifter routine helio_step.f90 implicit none ! Arguments class ( helio_nbody_system ), intent ( inout ) :: self !! Helio nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize call whm_step_system ( self , param , t , dt ) return end subroutine helio_step_system module subroutine helio_step_pl ( self , system , param , t , dt ) !! author: David A. Minton !! !! Step massive bodies ahead Democratic Heliocentric method !! !! Adapted from David E. Kaufmann's Swifter helio_step_pl.f90 !! Adapted from Hal Levison's Swift routine helio_step_pl.f implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Helio massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nboody system class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Stepsize ! Internals real ( DP ) :: dth !! Half step size if ( self % nbody == 0 ) return associate ( pl => self ) select type ( cb => system % cb ) class is ( helio_cb ) dth = 0.5_DP * dt if ( pl % lfirst ) then call pl % vh2vb ( cb ) pl % lfirst = . false . end if call pl % lindrift ( cb , dth , lbeg = . true .) call pl % kick ( system , param , t , dth , lbeg = . true .) if ( param % lgr ) call pl % gr_pos_kick ( param , dth ) call pl % drift ( system , param , dt ) call pl % kick ( system , param , t + dt , dth , lbeg = . false .) if ( param % lgr ) call pl % gr_pos_kick ( param , dth ) call pl % lindrift ( cb , dth , lbeg = . false .) call pl % vb2vh ( cb ) end select end associate return end subroutine helio_step_pl module subroutine helio_step_tp ( self , system , param , t , dt ) !! author: David A. Minton !! !! Step active test particles ahead using Democratic Heliocentric method !! !! Adapted from David E. Kaufmann's Swifter routine helio_step_tp.f90 !! Adapted from Hal Levison's Swift routine helio_step_tp.f implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Helio test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nboody system class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Stepsize ! Internals real ( DP ) :: dth !! Half step size if ( self % nbody == 0 ) return associate ( tp => self ) select type ( cb => system % cb ) class is ( helio_cb ) dth = 0.5_DP * dt if ( tp % lfirst ) then call tp % vh2vb ( vbcb = - cb % ptbeg ) tp % lfirst = . false . end if call tp % lindrift ( cb , dth , lbeg = . true .) call tp % kick ( system , param , t , dth , lbeg = . true .) if ( param % lgr ) call tp % gr_pos_kick ( param , dth ) call tp % drift ( system , param , dt ) call tp % kick ( system , param , t + dt , dth , lbeg = . false .) if ( param % lgr ) call tp % gr_pos_kick ( param , dth ) call tp % lindrift ( cb , dth , lbeg = . false .) call tp % vb2vh ( vbcb = - cb % ptend ) end select end associate return end subroutine helio_step_tp end submodule s_helio_step","tags":"","loc":"sourcefile/helio_step.f90.html"},{"title":"helio_gr.f90 – swiftest","text":"This file depends on sourcefile~~helio_gr.f90~~EfferentGraph sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~helio_gr.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_helio_gr Source Code helio_gr.f90 Source Code submodule ( helio_classes ) s_helio_gr use swiftest contains module subroutine helio_gr_kick_getacch_pl ( self , param ) !! author: David A. Minton !! !! Compute relativisitic accelerations of massive bodies !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_whm_kick_getacch.f90 implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Helio massive body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: suma real ( DP ), dimension (:, :), allocatable :: aj real ( DP ) :: beta , rjmag4 if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) call gr_kick_getacch ( pl % mu , pl % xh , pl % lmask , npl , param % inv_c2 , pl % agr ) pl % ah (:, 1 : npl ) = pl % ah (:, 1 : npl ) + pl % agr (:, 1 : npl ) end associate return end subroutine helio_gr_kick_getacch_pl module subroutine helio_gr_kick_getacch_tp ( self , param ) !! author: David A. Minton !! !! Compute relativisitic accelerations of test particles !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_helio_kick_getacch.f90 implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Helio massive body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ) :: rjmag4 , beta if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) call gr_kick_getacch ( tp % mu , tp % xh , tp % lmask , ntp , param % inv_c2 , tp % agr ) tp % ah (:, 1 : ntp ) = tp % ah (:, 1 : ntp ) + tp % agr (:, 1 : ntp ) end associate return end subroutine helio_gr_kick_getacch_tp module pure subroutine helio_gr_p4_pl ( self , param , dt ) !! author: David A. Minton !! !! Position kick to massive bodies due to p**4 term in the post-Newtonian correction !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_helio_p4.f90 implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Step size ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) do concurrent ( i = 1 : npl , pl % lmask ( i )) call gr_p4_pos_kick ( param , pl % xh (:, i ), pl % vb (:, i ), dt ) end do end associate return end subroutine helio_gr_p4_pl module pure subroutine helio_gr_p4_tp ( self , param , dt ) !! author: David A. Minton !! !! Position kick to test particles due to p**4 term in the post-Newtonian correction !!    Based on Saha & Tremaine (1994) Eq. 28 !! !! Adapted from David A. Minton's Swifter routine routine gr_helio_p4.f90 implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Step size ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) do concurrent ( i = 1 : ntp , tp % lmask ( i )) call gr_p4_pos_kick ( param , tp % xh (:, i ), tp % vb (:, i ), dt ) end do end associate return end subroutine helio_gr_p4_tp end submodule s_helio_gr","tags":"","loc":"sourcefile/helio_gr.f90.html"},{"title":"helio_kick.f90 – swiftest","text":"This file depends on sourcefile~~helio_kick.f90~~EfferentGraph sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~helio_kick.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_helio_kick Source Code helio_kick.f90 Source Code submodule ( helio_classes ) s_helio_kick use swiftest contains module subroutine helio_kick_getacch_pl ( self , system , param , t , lbeg ) !! author: David A. Minton !! !! Compute heliocentric accelerations of massive bodies !! !! Adapted from David E. Kaufmann's Swifter routine helio_kick_getacch.f90 !! Adapted from Hal Levison's Swift routine helio_kick_getacch.f implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Helio massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step if ( self % nbody == 0 ) return associate ( cb => system % cb , pl => self , npl => self % nbody ) call pl % accel_int () if ( param % loblatecb ) then call pl % accel_obl ( system ) if ( lbeg ) then cb % aoblbeg = cb % aobl else cb % aoblend = cb % aobl end if if ( param % ltides ) then call pl % accel_tides ( system ) if ( lbeg ) then cb % atidebeg = cb % atide else cb % atideend = cb % atide end if end if end if if ( param % lextra_force ) call pl % accel_user ( system , param , t , lbeg ) if ( param % lgr ) call pl % accel_gr ( param ) end associate return end subroutine helio_kick_getacch_pl module subroutine helio_kick_getacch_tp ( self , system , param , t , lbeg ) !! author: David A. Minton !! !! Compute heliocentric accelerations of test particles !! !! Adapted from David E. Kaufmann's Swifter routine helio_kick_getacch_tp.f90 !! Adapted from Hal Levison's Swift routine helio_kick_getacch_tp.f implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Helio test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step if ( self % nbody == 0 ) return associate ( tp => self , cb => system % cb , pl => system % pl , npl => system % pl % nbody ) system % lbeg = lbeg if ( system % lbeg ) then call tp % accel_int ( pl % Gmass (:), pl % xbeg (:,:), npl ) else call tp % accel_int ( pl % Gmass (:), pl % xend (:,:), npl ) end if if ( param % loblatecb ) call tp % accel_obl ( system ) if ( param % lextra_force ) call tp % accel_user ( system , param , t , lbeg ) if ( param % lgr ) call tp % accel_gr ( param ) end associate return end subroutine helio_kick_getacch_tp module subroutine helio_kick_vb_pl ( self , system , param , t , dt , lbeg ) !! author: David A. Minton !! !! Kick barycentric velocities of bodies !! !! Adapted from Martin Duncan and Hal Levison's Swift routine kickvh.f !! Adapted from David E. Kaufmann's Swifter routine helio_kick_vb.f90 implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Swiftest generic body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) pl % ah (:,:) = 0.0_DP call pl % accel ( system , param , t , lbeg ) if ( lbeg ) then call pl % set_beg_end ( xbeg = pl % xh ) else call pl % set_beg_end ( xend = pl % xh ) end if do concurrent ( i = 1 : npl , pl % lmask ( i )) pl % vb (:, i ) = pl % vb (:, i ) + pl % ah (:, i ) * dt end do end associate return end subroutine helio_kick_vb_pl module subroutine helio_kick_vb_tp ( self , system , param , t , dt , lbeg ) !! author: David A. Minton !! !! Kick barycentric velocities of bodies !! !! Adapted from Martin Duncan and Hal Levison's Swift routine kickvh_tp.f !! Adapted from David E. Kaufmann's Swifter routine helio_kick_vb_tp.f90 implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Swiftest generic body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) tp % ah (:,:) = 0.0_DP call tp % accel ( system , param , t , lbeg ) do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % vb (:, i ) = tp % vb (:, i ) + tp % ah (:, i ) * dt end do end associate return end subroutine helio_kick_vb_tp end submodule s_helio_kick","tags":"","loc":"sourcefile/helio_kick.f90.html"},{"title":"helio_coord.f90 – swiftest","text":"This file depends on sourcefile~~helio_coord.f90~~EfferentGraph sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~helio_coord.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_helio_coord Source Code helio_coord.f90 Source Code submodule ( helio_classes ) s_helio_coord use swiftest contains module subroutine helio_coord_vb2vh_pl ( self , cb ) !! author: David A. Minton !! !! Convert massive bodies from barycentric to heliocentric coordinates (velocity only) !! !! Adapted from David E. Kaufmann's Swifter routine coord_vb2vh.f90 !! Adapted from Hal Levison's Swift routine coord_vb2vh.f implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) do i = 1 , NDIM cb % vb ( i ) = - sum ( pl % Gmass ( 1 : npl ) * pl % vb ( i , 1 : npl )) / cb % Gmass pl % vh ( i , 1 : npl ) = pl % vb ( i , 1 : npl ) - cb % vb ( i ) end do end associate return end subroutine helio_coord_vb2vh_pl module subroutine helio_coord_vb2vh_tp ( self , vbcb ) !! author: David A. Minton !! !! Convert test particles from barycentric to heliocentric coordinates (velocity only) !! !! Adapted from David E. Kaufmann's Swifter routine coord_vb2vh_tp.f90 !! Adapted from Hal Levison's Swift routine coord_vb2h_tp.f implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Helio massive body object real ( DP ), dimension (:), intent ( in ) :: vbcb !! Barycentric velocity of the central body if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) where ( tp % lmask ( 1 : ntp )) tp % vh ( 1 , 1 : ntp ) = tp % vb ( 1 , 1 : ntp ) - vbcb ( 1 ) tp % vh ( 2 , 1 : ntp ) = tp % vb ( 2 , 1 : ntp ) - vbcb ( 2 ) tp % vh ( 3 , 1 : ntp ) = tp % vb ( 3 , 1 : ntp ) - vbcb ( 3 ) end where end associate return end subroutine helio_coord_vb2vh_tp module subroutine helio_coord_vh2vb_pl ( self , cb ) !! author: David A. Minton !! !! Convert massive bodies from heliocentric to barycentric coordinates (velocity only) !! !! Adapted from David E. Kaufmann's Swifter routine coord_vh2vb.f90 !! Adapted from Hal Levison's Swift routine coord_vh2b.f implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object ! Internals integer ( I4B ) :: i real ( DP ) :: Gmtot if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) Gmtot = cb % Gmass + sum ( pl % Gmass ( 1 : npl )) do i = 1 , NDIM cb % vb ( i ) = - sum ( pl % Gmass ( 1 : npl ) * pl % vh ( i , 1 : npl )) / Gmtot pl % vb ( i , 1 : npl ) = pl % vh ( i , 1 : npl ) + cb % vb ( i ) end do end associate return end subroutine helio_coord_vh2vb_pl module subroutine helio_coord_vh2vb_tp ( self , vbcb ) !! author: David A. Minton !! !! Convert test particles from heliocentric to barycentric coordinates (velocity only) !! !! Adapted from David E. Kaufmann's Swifter routine coord_vh2vb_tp.f90 !! Adapted from Hal Levison's Swift routine coord_vh2b_tp.f implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Helio massive body object real ( DP ), dimension (:), intent ( in ) :: vbcb !! Barycentric velocity of the central body if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) where ( tp % lmask ( 1 : ntp )) tp % vb ( 1 , 1 : ntp ) = tp % vh ( 1 , 1 : ntp ) + vbcb ( 1 ) tp % vb ( 2 , 1 : ntp ) = tp % vh ( 2 , 1 : ntp ) + vbcb ( 2 ) tp % vb ( 3 , 1 : ntp ) = tp % vh ( 3 , 1 : ntp ) + vbcb ( 3 ) end where end associate return end subroutine helio_coord_vh2vb_tp end submodule s_helio_coord","tags":"","loc":"sourcefile/helio_coord.f90.html"},{"title":"helio_drift.f90 – swiftest","text":"This file depends on sourcefile~~helio_drift.f90~~EfferentGraph sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~helio_drift.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_helio_drift Source Code helio_drift.f90 Source Code submodule ( helio_classes ) s_helio_drift use swiftest contains module subroutine helio_drift_body ( self , system , param , dt ) !! author: David A. Minton !! !! Loop through bodies and call Danby drift routine on democratic heliocentric coordinates !! !! Adapted from David E. Kaufmann's Swifter routine helio_drift.f90 !! Adapted from Hal Levison's Swift routine drift.f implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize ! Internals integer ( I4B ) :: i !! Loop counter real ( DP ) :: rmag , vmag2 , energy integer ( I4B ), dimension (:), allocatable :: iflag !! Vectorized error code flag real ( DP ), dimension (:), allocatable :: dtp , mu if ( self % nbody == 0 ) return associate ( n => self % nbody ) allocate ( iflag ( n )) iflag (:) = 0 allocate ( mu ( n )) mu (:) = system % cb % Gmass call drift_all ( mu , self % xh , self % vb , self % nbody , param , dt , self % lmask , iflag ) if ( any ( iflag ( 1 : n ) /= 0 )) then where ( iflag ( 1 : n ) /= 0 ) self % status ( 1 : n ) = DISCARDED_DRIFTERR do i = 1 , n if ( iflag ( i ) /= 0 ) write ( * , * ) \" Body \" , self % id ( i ), \" lost due to error in Danby drift\" end do end if end associate return end subroutine helio_drift_body module subroutine helio_drift_pl ( self , system , param , dt ) !! author: David A. Minton !! !! Wrapper function used to call the body drift routine from a helio_pl structure implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize call helio_drift_body ( self , system , param , dt ) return end subroutine helio_drift_pl module subroutine helio_drift_tp ( self , system , param , dt ) !! author: David A. Minton !! !! Wrapper function used to call the body drift routine from a helio_pl structure implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize call helio_drift_body ( self , system , param , dt ) return end subroutine helio_drift_tp module subroutine helio_drift_linear_pl ( self , cb , dt , lbeg ) !! author: David A. Minton !! !! Perform linear drift of massive bodies due to barycentric momentum of Sun !! !! Adapted from David E. Kaufmann's Swifter routine helio_lindrift.f90 !! Adapted from Hal Levison's Swift routine helio_lindrift.f implicit none ! Arguments class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( helio_cb ), intent ( inout ) :: cb !! Helio central body real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Argument that determines whether or not this is the beginning or end of the step ! Internals real ( DP ), dimension ( NDIM ) :: pt !! negative barycentric velocity of the central body integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) if ( npl == 0 ) return pt ( 1 ) = sum ( pl % Gmass ( 1 : npl ) * pl % vb ( 1 , 1 : npl ), self % lmask ( 1 : npl )) pt ( 2 ) = sum ( pl % Gmass ( 1 : npl ) * pl % vb ( 2 , 1 : npl ), self % lmask ( 1 : npl )) pt ( 3 ) = sum ( pl % Gmass ( 1 : npl ) * pl % vb ( 3 , 1 : npl ), self % lmask ( 1 : npl )) pt (:) = pt (:) / cb % Gmass do concurrent ( i = 1 : npl , self % lmask ( i )) pl % xh (:, i ) = pl % xh (:, i ) + pt (:) * dt end do if ( lbeg ) then cb % ptbeg = pt (:) else cb % ptend = pt (:) end if end associate return end subroutine helio_drift_linear_pl module subroutine helio_drift_linear_tp ( self , cb , dt , lbeg ) !! author: David A. Minton !! !! Perform linear drift of test particles due to barycentric momentum of Sun !! New vectorized version included !! !! Adapted from David E. Kaufmann's Swifter routine helio_lindrift_tp.f90 !! Adapted from Hal Levison's Swift routine helio_lindrift_tp.f implicit none ! Arguments class ( helio_tp ), intent ( inout ) :: self !! Helio test particleb object class ( helio_cb ), intent ( in ) :: cb !! Helio central body real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Argument that determines whether or not this is the beginning or end of the step ! Internals real ( DP ), dimension ( NDIM ) :: pt !! negative barycentric velocity of the central body if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) if ( ntp == 0 ) return if ( lbeg ) then pt (:) = cb % ptbeg else pt (:) = cb % ptend end if where ( self % lmask ( 1 : ntp )) tp % xh ( 1 , 1 : ntp ) = tp % xh ( 1 , 1 : ntp ) + pt ( 1 ) * dt tp % xh ( 2 , 1 : ntp ) = tp % xh ( 2 , 1 : ntp ) + pt ( 2 ) * dt tp % xh ( 3 , 1 : ntp ) = tp % xh ( 3 , 1 : ntp ) + pt ( 3 ) * dt end where end associate return end subroutine helio_drift_linear_tp end submodule s_helio_drift","tags":"","loc":"sourcefile/helio_drift.f90.html"},{"title":"io.f90 – swiftest","text":"This file depends on sourcefile~~io.f90~~EfferentGraph sourcefile~io.f90 io.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~io.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_io Source Code io.f90 Source Code submodule ( swiftest_classes ) s_io use swiftest contains module subroutine io_conservation_report ( self , param , lterminal ) !! author: The Purdue Swiftest Team -  David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Reports the current state of energy, mass, and angular momentum conservation in a run implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Input colleciton of user-defined parameters logical , intent ( in ) :: lterminal !! Indicates whether to output information to the terminal screen ! Internals real ( DP ), dimension ( NDIM ) :: Ltot_now , Lorbit_now , Lspin_now real ( DP ), dimension ( NDIM ), save :: Ltot_last , Lorbit_last , Lspin_last real ( DP ), save :: ke_orbit_last , ke_spin_last , pe_last , Eorbit_last real ( DP ) :: ke_orbit_now , ke_spin_now , pe_now , Eorbit_now real ( DP ) :: Eorbit_error , Etotal_error , Ecoll_error real ( DP ) :: Mtot_now , Merror real ( DP ) :: Lmag_now , Lerror character ( len =* ), parameter :: EGYFMT = '(ES23.16,10(\",\",ES23.16,:))' ! Format code for all simulation output character ( len =* ), parameter :: EGYHEADER = '(\"t,Eorbit,Ecollisions,Lx,Ly,Lz,Mtot\")' integer ( I4B ), parameter :: EGYIU = 72 character ( len =* ), parameter :: EGYTERMFMT = '(\"  DL/L0 = \", ES12.5 & \"; DEcollisions/|E0| = \", ES12.5, & \"; D(Eorbit+Ecollisions)/|E0| = \", ES12.5, & \"; DM/M0 = \", ES12.5)' associate ( system => self , pl => self % pl , cb => self % cb , npl => self % pl % nbody , Ecollisions => self % Ecollisions , Lescape => self % Lescape , Mescape => self % Mescape , & Euntracked => self % Euntracked , Eorbit_orig => param % Eorbit_orig , Mtot_orig => param % Mtot_orig , & Ltot_orig => param % Ltot_orig (:), Lmag_orig => param % Lmag_orig , Lorbit_orig => param % Lorbit_orig (:), Lspin_orig => param % Lspin_orig (:), & lfirst => param % lfirstenergy ) if ( param % energy_out /= \"\" ) then if ( lfirst . and . ( param % out_stat /= \"OLD\" )) then open ( unit = EGYIU , file = param % energy_out , form = \"formatted\" , status = \"replace\" , action = \"write\" ) else open ( unit = EGYIU , file = param % energy_out , form = \"formatted\" , status = \"old\" , action = \"write\" , position = \"append\" ) write ( EGYIU , EGYHEADER ) end if end if call pl % h2b ( cb ) call system % get_energy_and_momentum ( param ) ke_orbit_now = system % ke_orbit ke_spin_now = system % ke_spin pe_now = system % pe Lorbit_now = system % Lorbit Lspin_now = system % Lspin Eorbit_now = ke_orbit_now + ke_spin_now + pe_now Ltot_now (:) = Lorbit_now (:) + Lspin_now (:) + Lescape (:) Mtot_now = cb % mass + sum ( pl % mass ( 1 : npl )) + system % Mescape if ( lfirst ) then Eorbit_orig = Eorbit_now Mtot_orig = Mtot_now Lorbit_orig (:) = Lorbit_now (:) Lspin_orig (:) = Lspin_now (:) Ltot_orig (:) = Ltot_now (:) Lmag_orig = norm2 ( Ltot_orig (:)) lfirst = . false . end if if ( param % energy_out /= \"\" ) then write ( EGYIU , EGYFMT ) param % t , Eorbit_now , Ecollisions , Ltot_now , Mtot_now close ( EGYIU ) end if if (. not . lfirst . and . lterminal ) then Lmag_now = norm2 ( Ltot_now ) Lerror = norm2 ( Ltot_now - Ltot_orig ) / Lmag_orig Eorbit_error = ( Eorbit_now - Eorbit_orig ) / abs ( Eorbit_orig ) Ecoll_error = Ecollisions / abs ( Eorbit_orig ) Etotal_error = ( Eorbit_now - Ecollisions - Eorbit_orig - Euntracked ) / abs ( Eorbit_orig ) Merror = ( Mtot_now - Mtot_orig ) / Mtot_orig write ( * , egytermfmt ) Lerror , Ecoll_error , Etotal_error , Merror if ( Ecoll_error > 0.0_DP ) then write ( * , * ) 'Something has gone wrong! Collisional energy should not be positive!' write ( * , * ) 'dke_orbit: ' ,( ke_orbit_now - ke_orbit_last ) / abs ( Eorbit_orig ) write ( * , * ) 'dke_spin : ' ,( ke_spin_now - ke_spin_last ) / abs ( Eorbit_orig ) write ( * , * ) 'dpe      : ' ,( pe_now - pe_last ) / abs ( Eorbit_orig ) write ( * , * ) end if end if ke_orbit_last = ke_orbit_now ke_spin_last = ke_spin_now pe_last = pe_now Eorbit_last = Eorbit_now Lorbit_last (:) = Lorbit_now (:) Lspin_last (:) = Lspin_now (:) Ltot_last (:) = Ltot_now (:) end associate return end subroutine io_conservation_report module subroutine io_dump_param ( self , param_file_name ) !! author: David A. Minton !! !! Dump integration parameters to file !! !! Adapted from David E. Kaufmann's Swifter routine io_dump_param.f90 !! Adapted from Martin Duncan's Swift routine io_dump_param.f implicit none ! Arguments class ( swiftest_parameters ), intent ( in ) :: self !! Output collection of parameters character ( len =* ), intent ( in ) :: param_file_name !! Parameter input file name (i.e. param.in) ! Internals integer ( I4B ), parameter :: LUN = 7 !! Unit number of output file integer ( I4B ) :: ierr !! Error code character ( STRMAX ) :: error_message !! Error message in UDIO procedure open ( unit = LUN , file = param_file_name , status = 'replace' , form = 'FORMATTED' , iostat = ierr ) if ( ierr /= 0 ) then write ( * , * ) 'Swiftest error.' write ( * , * ) '   Could not open dump file: ' , trim ( adjustl ( param_file_name )) call util_exit ( FAILURE ) end if !! todo: Currently this procedure does not work in user-defined derived-type input mode !!    due to compiler incompatabilities !write(LUN,'(DT)') param call self % writer ( LUN , iotype = \"none\" , v_list = [ 0 ], iostat = ierr , iomsg = error_message ) if ( ierr /= 0 ) then write ( * , * ) trim ( adjustl ( error_message )) call util_exit ( FAILURE ) end if close ( LUN ) return end subroutine io_dump_param module subroutine io_dump_swiftest ( self , param ) !! author: David A. Minton !! !! Dump massive body data to files !! !! Adapted from David E. Kaufmann's Swifter routine: io_dump_pl.f90 and io_dump_tp.f90 !! Adapted from Hal Levison's Swift routine io_dump_pl.f and io_dump_tp.f implicit none ! Arguments class ( swiftest_base ), intent ( inout ) :: self !! Swiftest base object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: ierr !! Error code integer ( I4B ), parameter :: LUN = 7 !! Unit number for dump file integer ( I4B ) :: iu = LUN character ( len = :), allocatable :: dump_file_name select type ( self ) class is ( swiftest_cb ) dump_file_name = trim ( adjustl ( param % incbfile )) class is ( swiftest_pl ) dump_file_name = trim ( adjustl ( param % inplfile )) class is ( swiftest_tp ) dump_file_name = trim ( adjustl ( param % intpfile )) end select open ( unit = iu , file = dump_file_name , form = \"UNFORMATTED\" , status = 'replace' , iostat = ierr ) if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error:\" write ( * , * ) \"   Unable to open binary dump file \" // dump_file_name call util_exit ( FAILURE ) end if call self % write_frame ( iu , param ) close ( LUN ) return end subroutine io_dump_swiftest module subroutine io_dump_system ( self , param ) !! author: David A. Minton !! !! Dumps the state of the system to files in case the simulation is interrupted. !! As a safety mechanism, there are two dump files that are written in alternating order !! so that if a dump file gets corrupted during writing, the user can restart from the older one. implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals class ( swiftest_parameters ), allocatable :: dump_param !! Local parameters variable used to parameters change input file names !! to dump file-specific values without changing the user-defined values integer ( I4B ), save :: idx = 1 !! Index of current dump file. Output flips between 2 files for extra security !! in case the program halts during writing character ( len = :), allocatable :: param_file_name real ( DP ) :: deltawall , wallperstep , tfrac integer ( I8B ) :: clock_count , count_rate , count_max character ( * ), parameter :: statusfmt = '(\"Time = \", ES12.5, \"; fraction done = \", F6.3, \"; Number of active pl, tp = \", I5, \", \", I5)' character ( len =* ), parameter :: walltimefmt = '(\"      Wall time (s): \", es12.5, \"; Wall time/step in this interval (s):  \", es12.5)' logical , save :: lfirst = . true . real ( DP ), save :: start , finish if ( lfirst ) then call system_clock ( clock_count , count_rate , count_max ) start = clock_count / ( count_rate * 1.0_DP ) finish = start lfirst = . false . else allocate ( dump_param , source = param ) param_file_name = trim ( adjustl ( DUMP_PARAM_FILE ( idx ))) dump_param % incbfile = trim ( adjustl ( DUMP_CB_FILE ( idx ))) dump_param % inplfile = trim ( adjustl ( DUMP_PL_FILE ( idx ))) dump_param % intpfile = trim ( adjustl ( DUMP_TP_FILE ( idx ))) dump_param % out_form = XV dump_param % out_stat = 'APPEND' dump_param % T0 = param % t call dump_param % dump ( param_file_name ) call self % cb % dump ( dump_param ) if ( self % pl % nbody > 0 ) call self % pl % dump ( dump_param ) if ( self % tp % nbody > 0 ) call self % tp % dump ( dump_param ) idx = idx + 1 if ( idx > NDUMPFILES ) idx = 1 tfrac = ( param % t - param % t0 ) / ( param % tstop - param % t0 ) call system_clock ( clock_count , count_rate , count_max ) deltawall = clock_count / ( count_rate * 1.0_DP ) - finish wallperstep = deltawall / param % istep_dump finish = clock_count / ( count_rate * 1.0_DP ) end if write ( * , statusfmt ) param % t , tfrac , self % pl % nbody , self % tp % nbody write ( * , walltimefmt ) finish - start , wallperstep if ( param % lenergy ) call self % conservation_report ( param , lterminal = . true .) return end subroutine io_dump_system module function io_get_args ( integrator , param_file_name ) result ( ierr ) !! author: David A. Minton !! !! Reads in the name of the parameter file from command line arguments. implicit none ! Arguments integer ( I4B ) :: integrator !! Symbolic code of the requested integrator character ( len = :), allocatable :: param_file_name !! Name of the input parameters file ! Result integer ( I4B ) :: ierr !! I/O error code ! Internals character ( len = STRMAX ) :: arg1 , arg2 integer :: narg , ierr_arg1 , ierr_arg2 character ( len =* ), parameter :: linefmt = '(A)' ierr = - 1 ! Default is to fail narg = command_argument_count () ! if ( narg == 2 ) then call get_command_argument ( 1 , arg1 , status = ierr_arg1 ) call get_command_argument ( 2 , arg2 , status = ierr_arg2 ) if (( ierr_arg1 == 0 ) . and . ( ierr_arg2 == 0 )) then ierr = 0 call io_toupper ( arg1 ) select case ( arg1 ) case ( 'BS' ) integrator = BS case ( 'HELIO' ) integrator = HELIO case ( 'RA15' ) integrator = RA15 case ( 'TU4' ) integrator = TU4 case ( 'WHM' ) integrator = WHM case ( 'RMVS' ) integrator = RMVS case ( 'SYMBA' ) integrator = SYMBA case ( 'RINGMOONS' ) integrator = RINGMOONS case default integrator = UNKNOWN_INTEGRATOR write ( * , * ) trim ( adjustl ( arg1 )) // ' is not a valid integrator.' ierr = - 1 end select param_file_name = trim ( adjustl ( arg2 )) end if else call get_command_argument ( 1 , arg1 , status = ierr_arg1 ) if ( ierr_arg1 == 0 ) then if ( arg1 == '-v' . or . arg1 == '--version' ) then call util_version () else if ( arg1 == '-h' . or . arg1 == '--help' ) then call util_exit ( HELP ) end if end if end if if ( ierr /= 0 ) call util_exit ( USAGE ) return end function io_get_args module function io_get_token ( buffer , ifirst , ilast , ierr ) result ( token ) !! author: David A. Minton !! !! Retrieves a character token from an input string. Here a token is defined as any set of contiguous non-blank characters not !! beginning with or containing \"!\". If \"!\" is present, any remaining part of the buffer including the \"!\" is ignored !! !! Adapted from David E. Kaufmann's Swifter routine io_get_token.f90 implicit none ! Arguments character ( len =* ), intent ( in ) :: buffer !! Input string buffer integer ( I4B ), intent ( inout ) :: ifirst !! Index of the buffer at which to start the search for a token integer ( I4B ), intent ( out ) :: ilast !! Index of the buffer at the end of the returned token integer ( I4B ), intent ( out ) :: ierr !! Error code ! Result character ( len = :), allocatable :: token !! Returned token string ! Internals integer ( I4B ) :: i , ilength ilength = len ( buffer ) if ( ifirst > ilength ) then ilast = ifirst ierr = - 1 !! Bad input token = '' return end if do i = ifirst , ilength if ( buffer ( i : i ) /= ' ' ) exit end do if (( i > ilength ) . or . ( buffer ( i : i ) == '!' )) then ifirst = i ilast = i ierr = - 2 !! No valid token token = '' return end if ifirst = i do i = ifirst , ilength if (( buffer ( i : i ) == ' ' ) . or . ( buffer ( i : i ) == '!' )) exit end do ilast = i - 1 ierr = 0 token = buffer ( ifirst : ilast ) return end function io_get_token module subroutine io_param_reader ( self , unit , iotype , v_list , iostat , iomsg ) !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Read in parameters for the integration !! Currently this procedure does not work in user-defined derived-type input mode !!    e.g. read(unit,'(DT)') param !! as the newline characters are ignored in the input file when compiled in ifort. !! !! Adapted from David E. Kaufmann's Swifter routine io_init_param.f90 !! Adapted from Martin Duncan's Swift routine io_init_param.f implicit none ! Arguments class ( swiftest_parameters ), intent ( inout ) :: self !! Collection of parameters integer , intent ( in ) :: unit !! File unit number character ( len =* ), intent ( in ) :: iotype !! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. !!    If you do not include a char-literal-constant, the iotype argument contains only DT. integer , intent ( in ) :: v_list (:) !! The first element passes the integrator code to the reader integer , intent ( out ) :: iostat !! IO status code character ( len =* ), intent ( inout ) :: iomsg !! Message to pass if iostat /= 0 ! Internals logical :: t0_set = . false . !! Is the initial time set in the input file? logical :: tstop_set = . false . !! Is the final time set in the input file? logical :: dt_set = . false . !! Is the step size set in the input file? integer ( I4B ) :: ilength , ifirst , ilast , i !! Variables used to parse input file character ( STRMAX ) :: line !! Line of the input file character ( len = :), allocatable :: line_trim , param_name , param_value !! Strings used to parse the param file character ( * ), parameter :: linefmt = '(A)' !! Format code for simple text string ! Parse the file line by line, extracting tokens then matching them up with known parameters if possible associate ( param => self ) do read ( unit = unit , fmt = linefmt , iostat = iostat , end = 1 ) line line_trim = trim ( adjustl ( line )) ilength = len ( line_trim ) if (( ilength /= 0 )) then ifirst = 1 ! Read the pair of tokens. The first one is the parameter name, the second is the value. param_name = io_get_token ( line_trim , ifirst , ilast , iostat ) if ( param_name == '' ) cycle ! No parameter name (usually because this line is commented out) call io_toupper ( param_name ) ifirst = ilast + 1 param_value = io_get_token ( line_trim , ifirst , ilast , iostat ) select case ( param_name ) case ( \"T0\" ) read ( param_value , * ) param % t0 t0_set = . true . case ( \"TSTOP\" ) read ( param_value , * ) param % tstop tstop_set = . true . case ( \"DT\" ) read ( param_value , * ) param % dt dt_set = . true . case ( \"CB_IN\" ) param % incbfile = param_value case ( \"PL_IN\" ) param % inplfile = param_value case ( \"TP_IN\" ) param % intpfile = param_value case ( \"IN_TYPE\" ) call io_toupper ( param_value ) param % in_type = param_value case ( \"ISTEP_OUT\" ) read ( param_value , * ) param % istep_out case ( \"BIN_OUT\" ) param % outfile = param_value case ( \"OUT_TYPE\" ) call io_toupper ( param_value ) param % out_type = param_value case ( \"OUT_FORM\" ) call io_toupper ( param_value ) param % out_form = param_value case ( \"OUT_STAT\" ) call io_toupper ( param_value ) param % out_stat = param_value case ( \"ISTEP_DUMP\" ) read ( param_value , * ) param % istep_dump case ( \"CHK_CLOSE\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == 'T' ) param % lclose = . true . case ( \"CHK_RMIN\" ) read ( param_value , * ) param % rmin case ( \"CHK_RMAX\" ) read ( param_value , * ) param % rmax case ( \"CHK_EJECT\" ) read ( param_value , * ) param % rmaxu case ( \"CHK_QMIN\" ) read ( param_value , * ) param % qmin case ( \"CHK_QMIN_COORD\" ) call io_toupper ( param_value ) param % qmin_coord = param_value case ( \"CHK_QMIN_RANGE\" ) read ( param_value , * ) param % qmin_alo ifirst = ilast + 1 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * ) param % qmin_ahi case ( \"ENC_OUT\" ) param % enc_out = param_value case ( \"DISCARD_OUT\" ) param % discard_out = param_value case ( \"ENERGY_OUT\" ) param % energy_out = param_value case ( \"EXTRA_FORCE\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == 'T' ) param % lextra_force = . true . case ( \"BIG_DISCARD\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == 'T' ) param % lbig_discard = . true . case ( \"RHILL_PRESENT\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == 'T' ) param % lrhill_present = . true . case ( \"MU2KG\" ) read ( param_value , * ) param % MU2KG case ( \"TU2S\" ) read ( param_value , * ) param % TU2S case ( \"DU2M\" ) read ( param_value , * ) param % DU2M case ( \"ENERGY\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == 'T' ) param % lenergy = . true . case ( \"GR\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == 'T' ) param % lgr = . true . case ( \"ROTATION\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == 'T' ) param % lrotation = . true . case ( \"TIDES\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == 'T' ) param % ltides = . true . case ( \"FIRSTKICK\" ) call io_toupper ( param_value ) if ( param_value == \"NO\" . or . param_value == 'F' ) param % lfirstkick = . false . case ( \"FIRSTENERGY\" ) call io_toupper ( param_value ) if ( param_value == \"NO\" . or . param_value == 'F' ) param % lfirstenergy = . false . case ( \"EORBIT_ORIG\" ) read ( param_value , * ) param % Eorbit_orig case ( \"MTOT_ORIG\" ) read ( param_value , * ) param % Mtot_orig case ( \"LTOT_ORIG\" ) read ( param_value , * ) param % Ltot_orig ( 1 ) do i = 2 , NDIM ifirst = ilast + 1 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * ) param % Ltot_orig ( i ) end do param % Lmag_orig = norm2 ( param % Ltot_orig (:)) case ( \"LORBIT_ORIG\" ) read ( param_value , * ) param % Lorbit_orig ( 1 ) do i = 2 , NDIM ifirst = ilast + 1 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * ) param % Lorbit_orig ( i ) end do case ( \"LSPIN_ORIG\" ) read ( param_value , * ) param % Lspin_orig ( 1 ) do i = 2 , NDIM ifirst = ilast + 1 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * ) param % Lspin_orig ( i ) end do case ( \"LESCAPE\" ) read ( param_value , * ) param % Lescape ( 1 ) do i = 2 , NDIM ifirst = ilast + 1 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * ) param % Lescape ( i ) end do case ( \"MESCAPE\" ) read ( param_value , * ) param % Mescape case ( \"ECOLLISIONS\" ) read ( param_value , * ) param % Ecollisions case ( \"EUNTRACKED\" ) read ( param_value , * ) param % Euntracked case ( \"NPLMAX\" , \"NTPMAX\" , \"GMTINY\" , \"PARTICLE_OUT\" , \"FRAGMENTATION\" , \"SEED\" , \"YARKOVSKY\" , \"YORP\" ) ! Ignore SyMBA-specific, not-yet-implemented, or obsolete input parameters case default write ( iomsg , * ) \"Unknown parameter -> \" , param_name iostat = - 1 return end select end if end do 1 continue iostat = 0 !! Do basic sanity checks on the input values if ((. not . t0_set ) . or . (. not . tstop_set ) . or . (. not . dt_set )) then write ( iomsg , * ) 'Valid simulation time not set' iostat = - 1 return end if if ( param % dt <= 0.0_DP ) then write ( iomsg , * ) 'Invalid timestep: ' iostat = - 1 return end if if ( param % inplfile == \"\" ) then write ( iomsg , * ) 'No valid massive body file in input file' iostat = - 1 return end if if (( param % in_type /= REAL8_TYPE ) . and . ( param % in_type /= \"ASCII\" )) then write ( iomsg , * ) 'Invalid input file type:' , trim ( adjustl ( param % in_type )) iostat = - 1 return end if if (( param % istep_out <= 0 ) . and . ( param % istep_dump <= 0 )) then write ( iomsg , * ) 'Invalid istep' iostat = - 1 return end if if (( param % istep_out > 0 ) . and . ( param % outfile == \"\" )) then write ( iomsg , * ) 'Invalid outfile' iostat = - 1 return end if param % lrestart = ( param % out_stat == \"APPEND\" ) if ( param % outfile /= \"\" ) then if (( param % out_type /= REAL4_TYPE ) . and . ( param % out_type /= REAL8_TYPE ) . and . & ( param % out_type /= SWIFTER_REAL4_TYPE ) . and . ( param % out_type /= SWIFTER_REAL8_TYPE )) then write ( iomsg , * ) 'Invalid out_type: ' , trim ( adjustl ( param % out_type )) iostat = - 1 return end if if (( param % out_form /= \"EL\" ) . and . ( param % out_form /= \"XV\" )) then write ( iomsg , * ) 'Invalid out_form: ' , trim ( adjustl ( param % out_form )) iostat = - 1 return end if if (( param % out_stat /= \"NEW\" ) . and . ( param % out_stat /= \"REPLACE\" ) . and . ( param % out_stat /= \"APPEND\" ) . and . ( param % out_stat /= \"UNKNOWN\" )) then write ( iomsg , * ) 'Invalid out_stat: ' , trim ( adjustl ( param % out_stat )) iostat = - 1 return end if end if if ( param % qmin > 0.0_DP ) then if (( param % qmin_coord /= \"HELIO\" ) . and . ( param % qmin_coord /= \"BARY\" )) then write ( iomsg , * ) 'Invalid qmin_coord: ' , trim ( adjustl ( param % qmin_coord )) iostat = - 1 return end if if (( param % qmin_alo <= 0.0_DP ) . or . ( param % qmin_ahi <= 0.0_DP )) then write ( iomsg , * ) 'Invalid qmin vals' iostat = - 1 return end if end if if ( param % ltides . and . . not . param % lrotation ) then write ( iomsg , * ) 'Tides require rotation to be turned on' iostat = - 1 return end if write ( * , * ) \"T0             = \" , param % t0 write ( * , * ) \"TSTOP          = \" , param % tstop write ( * , * ) \"DT             = \" , param % dt write ( * , * ) \"CB_IN          = \" , trim ( adjustl ( param % incbfile )) write ( * , * ) \"PL_IN          = \" , trim ( adjustl ( param % inplfile )) write ( * , * ) \"TP_IN          = \" , trim ( adjustl ( param % intpfile )) write ( * , * ) \"IN_TYPE        = \" , trim ( adjustl ( param % in_type )) write ( * , * ) \"ISTEP_OUT      = \" , param % istep_out write ( * , * ) \"BIN_OUT        = \" , trim ( adjustl ( param % outfile )) write ( * , * ) \"OUT_TYPE       = \" , trim ( adjustl ( param % out_type )) write ( * , * ) \"OUT_FORM       = \" , trim ( adjustl ( param % out_form )) write ( * , * ) \"OUT_STAT       = \" , trim ( adjustl ( param % out_stat )) write ( * , * ) \"ISTEP_DUMP     = \" , param % istep_dump write ( * , * ) \"CHK_CLOSE      = \" , param % lclose write ( * , * ) \"CHK_RMIN       = \" , param % rmin write ( * , * ) \"CHK_RMAX       = \" , param % rmax write ( * , * ) \"CHK_EJECT      = \" , param % rmaxu write ( * , * ) \"CHK_QMIN       = \" , param % qmin write ( * , * ) \"CHK_QMIN_COORD = \" , trim ( adjustl ( param % qmin_coord )) write ( * , * ) \"CHK_QMIN_RANGE = \" , param % qmin_alo , param % qmin_ahi write ( * , * ) \"EXTRA_FORCE    = \" , param % lextra_force write ( * , * ) \"RHILL_PRESENT  = \" , param % lrhill_present write ( * , * ) \"ROTATION      = \" , param % lrotation write ( * , * ) \"TIDES         = \" , param % ltides write ( * , * ) \"ENERGY         = \" , param % lenergy write ( * , * ) \"MU2KG          = \" , param % MU2KG write ( * , * ) \"TU2S           = \" , param % TU2S write ( * , * ) \"DU2M           = \" , param % DU2M if ( trim ( adjustl ( param % enc_out )) /= \"\" ) then write ( * , * ) \"ENC_OUT        = \" , trim ( adjustl ( param % enc_out )) else write ( * , * ) \"! ENC_OUT not set: Encounters will not be recorded to file\" end if if ( trim ( adjustl ( param % discard_out )) /= \"\" ) then write ( * , * ) \"DISCARD_OUT    = \" , trim ( adjustl ( param % discard_out )) write ( * , * ) \"BIG_DISCARD    = \" , param % lbig_discard else write ( * , * ) \"! DISCARD_OUT not set: Discards will not be recorded to file\" write ( * , * ) \"! BIG_DISCARD    = \" , param % lbig_discard end if if (( param % MU2KG < 0.0_DP ) . or . ( param % TU2S < 0.0_DP ) . or . ( param % DU2M < 0.0_DP )) then write ( iomsg , * ) 'Invalid unit conversion factor' iostat = - 1 return end if ! Calculate the G for the system units param % GU = GC / ( param % DU2M ** 3 / ( param % MU2KG * param % TU2S ** 2 )) ! Calculate the inverse speed of light in the system units param % inv_c2 = einsteinC * param % TU2S / param % DU2M param % inv_c2 = ( param % inv_c2 ) ** ( - 2 ) associate ( integrator => v_list ( 1 )) if ( integrator == RMVS ) then if (. not . param % lclose ) then write ( iomsg , * ) 'This integrator requires CHK_CLOSE to be enabled.' iostat = - 1 return end if end if ! Determine if the GR flag is set correctly for this integrator select case ( integrator ) case ( WHM , RMVS , HELIO , SYMBA ) write ( * , * ) \"GR             = \" , param % lgr case default if ( param % lgr ) write ( iomsg , * ) 'GR is not yet implemented for this integrator. This parameter will be ignored.' param % lgr = . false . end select end associate iostat = 0 end associate return end subroutine io_param_reader module subroutine io_param_writer ( self , unit , iotype , v_list , iostat , iomsg ) !! author: David A. Minton !! !! Dump integration parameters to file !! !! Adapted from David E. Kaufmann's Swifter routine io_dump_param.f90 !! Adapted from Martin Duncan's Swift routine io_dump_param.f implicit none ! Arguments class ( swiftest_parameters ), intent ( in ) :: self !! Collection of parameters integer , intent ( in ) :: unit !! File unit number character ( len =* ), intent ( in ) :: iotype !! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. !!    If you do not include a char-literal-constant, the iotype argument contains only DT. integer , intent ( in ) :: v_list (:) !! Not used in this procedure integer , intent ( out ) :: iostat !! IO status code character ( len =* ), intent ( inout ) :: iomsg !! Message to pass if iostat /= 0 ! Internals character ( * ), parameter :: Ifmt = '(I0)' !! Format label for integer values character ( * ), parameter :: Rfmt = '(ES25.17)' !! Format label for real values character ( * ), parameter :: Rarrfmt = '(3(ES25.17,1X))' !! Format label for real values character ( * ), parameter :: Lfmt = '(L1)' !! Format label for logical values character ( len =* ), parameter :: Afmt = '(A25,1X,64(:,A25,1X))' character ( 256 ) :: param_name , param_value type character_array character ( 25 ) :: value end type character_array type ( character_array ), dimension (:), allocatable :: param_array integer ( I4B ) :: i associate ( param => self ) write ( param_name , Afmt ) \"T0\" ; write ( param_value , Rfmt ) param % t0 ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"TSTOP\" ; write ( param_value , Rfmt ) param % tstop ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"DT\" ; write ( param_value , Rfmt ) param % dt ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"PL_IN\" ; write ( param_value , Afmt ) trim ( adjustl ( param % inplfile )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"TP_in\" ; write ( param_value , Afmt ) trim ( adjustl ( param % intpfile )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"IN_TYPE\" ; write ( param_value , Afmt ) trim ( adjustl ( param % in_type )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) if ( param % istep_out > 0 ) then write ( param_name , Afmt ) \"ISTEP_OUT\" ; write ( param_value , Ifmt ) param % istep_out ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"BIN_OUT\" ; write ( param_value , Afmt ) trim ( adjustl ( param % outfile )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"OUT_TYPE\" ; write ( param_value , Afmt ) trim ( adjustl ( param % out_type )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"OUT_FORM\" ; write ( param_value , Afmt ) trim ( adjustl ( param % out_form )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"OUT_STAT\" ; write ( param_value , Afmt ) \"APPEND\" ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) end if write ( param_name , Afmt ) \"ENC_OUT\" ; write ( param_value , Afmt ) trim ( adjustl ( param % enc_out )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) if ( param % istep_dump > 0 ) then write ( param_name , Afmt ) \"ISTEP_DUMP\" ; write ( param_value , Ifmt ) param % istep_dump ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) end if write ( param_name , Afmt ) \"CHK_RMIN\" ; write ( param_value , Rfmt ) param % rmin ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"CHK_RMAX\" ; write ( param_value , Rfmt ) param % rmax ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"CHK_EJECT\" ; write ( param_value , Rfmt ) param % rmaxu ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"CHK_QMIN\" ; write ( param_value , Rfmt ) param % qmin ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) if ( param % qmin >= 0.0_DP ) then write ( param_name , Afmt ) \"CHK_QMIN_COORD\" ; write ( param_value , Afmt ) trim ( adjustl ( param % qmin_coord )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) allocate ( param_array ( 2 )) write ( param_array ( 1 )% value , Rfmt ) param % qmin_alo write ( param_array ( 2 )% value , Rfmt ) param % qmin_ahi write ( param_name , Afmt ) \"CHK_QMIN_RANGE\" ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_array ( 1 )% value ), adjustl ( param_array ( 2 )% value ) end if write ( param_name , Afmt ) \"MU2KG\" ; write ( param_value , Rfmt ) param % MU2KG ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"TU2S\" ; write ( param_value , Rfmt ) param % TU2S ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"DU2M\" ; write ( param_value , Rfmt ) param % DU2M ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"RHILL_PRESENT\" ; write ( param_value , Lfmt ) param % lrhill_present ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"EXTRA_FORCE\" ; write ( param_value , Lfmt ) param % lextra_force ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"BIG_DISCARD\" ; write ( param_value , Lfmt ) param % lbig_discard ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"CHK_CLOSE\" ; write ( param_value , Lfmt ) param % lclose ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"ENERGY\" ; write ( param_value , Lfmt ) param % lenergy ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"GR\" ; write ( param_value , Lfmt ) param % lgr ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"ROTATION\" ; write ( param_value , Lfmt ) param % lrotation ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"TIDES\" ; write ( param_value , Lfmt ) param % ltides ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) if ( param % lenergy ) then write ( param_name , Afmt ) \"FIRSTENERGY\" ; write ( param_value , Lfmt ) param % lfirstenergy ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"EORBIT_ORIG\" ; write ( param_value , Rfmt ) param % Eorbit_orig ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"MTOT_ORIG\" ; write ( param_value , Rfmt ) param % Mtot_orig ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( unit , '(\"LTOT_ORIG  \",3(1X,ES25.17))' ) param % Ltot_orig (:) write ( unit , '(\"LORBIT_ORIG\",3(1X,ES25.17))' ) param % Lorbit_orig (:) write ( unit , '(\"LSPIN_ORIG \",3(1X,ES25.17))' ) param % Lspin_orig (:) write ( unit , '(\"LESCAPE \",3(1X,ES25.17))' ) param % Lescape (:) write ( param_name , Afmt ) \"MESCAPE\" ; write ( param_value , Rfmt ) param % Mescape ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"ECOLLISIONS\" ; write ( param_value , Rfmt ) param % Ecollisions ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"EUNTRACKED\" ; write ( param_value , Rfmt ) param % Euntracked ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) end if write ( param_name , Afmt ) \"FIRSTKICK\" ; write ( param_value , Lfmt ) param % lfirstkick ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) iostat = 0 iomsg = \"UDIO not implemented\" end associate return end subroutine io_param_writer module subroutine io_read_body_in ( self , param ) !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Read in either test particle or massive body data !! !! Adapted from David E. Kaufmann's Swifter routine swiftest_init_pl.f90 and swiftest_init_tp.f90 !! Adapted from Martin Duncan's Swift routine swiftest_init_pl.f and swiftest_init_tp.f implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals integer ( I4B ), parameter :: LUN = 7 !! Unit number of input file integer ( I4B ) :: iu = LUN integer ( I4B ) :: i , ierr , nbody logical :: is_ascii , is_pl character ( len = :), allocatable :: infile real ( DP ) :: t real ( QP ) :: val ! Select the appropriate polymorphic class (test particle or massive body) select type ( self ) class is ( swiftest_pl ) infile = param % inplfile is_pl = . true . class is ( swiftest_tp ) infile = param % intpfile is_pl = . false . end select ierr = 0 is_ascii = ( param % in_type == 'ASCII' ) select case ( param % in_type ) case ( ASCII_TYPE ) open ( unit = iu , file = infile , status = 'old' , form = 'FORMATTED' , iostat = ierr ) read ( iu , * , iostat = ierr ) nbody call self % setup ( nbody , param ) if ( nbody > 0 ) then do i = 1 , nbody select type ( self ) class is ( swiftest_pl ) if ( param % lrhill_present ) then read ( iu , * , iostat = ierr , err = 100 ) self % id ( i ), val , self % rhill ( i ) else read ( iu , * , iostat = ierr , err = 100 ) self % id ( i ), val end if self % Gmass ( i ) = real ( val , kind = DP ) self % mass ( i ) = real ( val / param % GU , kind = DP ) if ( param % lclose ) read ( iu , * , iostat = ierr , err = 100 ) self % radius ( i ) class is ( swiftest_tp ) read ( iu , * , iostat = ierr , err = 100 ) self % id ( i ) end select read ( iu , * , iostat = ierr , err = 100 ) self % xh ( 1 , i ), self % xh ( 2 , i ), self % xh ( 3 , i ) read ( iu , * , iostat = ierr , err = 100 ) self % vh ( 1 , i ), self % vh ( 2 , i ), self % vh ( 3 , i ) select type ( self ) class is ( swiftest_pl ) if ( param % lrotation ) then read ( iu , * , iostat = ierr , err = 100 ) self % Ip ( 1 , i ), self % Ip ( 2 , i ), self % Ip ( 3 , i ) read ( iu , * , iostat = ierr , err = 100 ) self % rot ( 1 , i ), self % rot ( 2 , i ), self % rot ( 3 , i ) end if if ( param % ltides ) then read ( iu , * , iostat = ierr , err = 100 ) self % k2 ( i ) read ( iu , * , iostat = ierr , err = 100 ) self % Q ( i ) end if end select self % status ( i ) = ACTIVE self % lmask ( i ) = . true . end do end if case ( REAL4_TYPE , REAL8_TYPE ) !, SWIFTER_REAL4_TYPE, SWIFTER_REAL8_TYPE) open ( unit = iu , file = infile , status = 'old' , form = 'UNFORMATTED' , iostat = ierr ) read ( iu , iostat = ierr , err = 100 ) nbody call self % setup ( nbody , param ) if ( nbody > 0 ) then call self % read_frame ( iu , param , XV , ierr ) self % status (:) = ACTIVE self % lmask (:) = . true . end if case default write ( * , * ) trim ( adjustl ( param % in_type )) // ' is an unrecognized file type' ierr = - 1 end select close ( iu ) 100 if ( ierr /= 0 ) then write ( * , * ) 'Error reading in initial conditions from ' , trim ( adjustl ( infile )) call util_exit ( FAILURE ) end if return end subroutine io_read_body_in module subroutine io_read_cb_in ( self , param ) !! author: David A. Minton !! !! Reads in central body data !! !! Adapted from David E. Kaufmann's Swifter routine swiftest_init_pl.f90 !! Adapted from Martin Duncan's Swift routine swiftest_init_pl.f implicit none ! Arguments class ( swiftest_cb ), intent ( inout ) :: self class ( swiftest_parameters ), intent ( inout ) :: param ! Internals integer ( I4B ), parameter :: LUN = 7 !! Unit number of input file integer ( I4B ) :: iu = LUN integer ( I4B ) :: ierr logical :: is_ascii real ( DP ) :: t real ( QP ) :: val ierr = 0 is_ascii = ( param % in_type == 'ASCII' ) if ( is_ascii ) then open ( unit = iu , file = param % incbfile , status = 'old' , form = 'FORMATTED' , iostat = ierr ) read ( iu , * , iostat = ierr ) self % id read ( iu , * , iostat = ierr ) val self % Gmass = real ( val , kind = DP ) self % mass = real ( val / param % GU , kind = DP ) read ( iu , * , iostat = ierr ) self % radius read ( iu , * , iostat = ierr ) self % j2rp2 read ( iu , * , iostat = ierr ) self % j4rp4 if ( param % lrotation ) then read ( iu , * , iostat = ierr ) self % Ip ( 1 ), self % Ip ( 2 ), self % Ip ( 3 ) read ( iu , * , iostat = ierr ) self % rot ( 1 ), self % rot ( 2 ), self % rot ( 3 ) end if else open ( unit = iu , file = param % incbfile , status = 'old' , form = 'UNFORMATTED' , iostat = ierr ) call self % read_frame ( iu , param , XV , ierr ) end if close ( iu ) if ( ierr /= 0 ) then write ( * , * ) 'Error opening massive body initial conditions file ' , trim ( adjustl ( param % incbfile )) call util_exit ( FAILURE ) end if if ( self % j2rp2 /= 0.0_DP ) param % loblatecb = . true . return end subroutine io_read_cb_in function io_read_encounter ( t , name1 , name2 , mass1 , mass2 , radius1 , radius2 , & xh1 , xh2 , vh1 , vh2 , enc_out , out_type ) result ( ierr ) !! author: David A. Minton !! !! Read close encounter data from input binary files !!     Other than time t, there is no direct file input from this function !!     Function returns read error status (0 = OK, nonzero = ERROR) !! Adapted from David E. Kaufmann's Swifter routine: io_read_encounter.f90 implicit none ! Arguments integer ( I4B ), intent ( out ) :: name1 , name2 real ( DP ), intent ( out ) :: t , mass1 , mass2 , radius1 , radius2 real ( DP ), dimension (:), intent ( out ) :: xh1 , xh2 , vh1 , vh2 character ( * ), intent ( in ) :: enc_out , out_type ! Result integer ( I4B ) :: ierr ! Internals logical , save :: lfirst = . true . integer ( I4B ), parameter :: lun = 30 integer ( I4B ), save :: iu = lun if ( lfirst ) then open ( unit = iu , file = enc_out , status = 'OLD' , form = 'UNFORMATTED' , iostat = ierr ) if ( ierr /= 0 ) then write ( * , * ) \"Swiftest Error:\" write ( * , * ) \"   unable to open binary encounter file\" call util_exit ( FAILURE ) end if lfirst = . false . end if read ( iu , iostat = ierr ) t if ( ierr /= 0 ) then close ( unit = iu , iostat = ierr ) return end if read ( iu , iostat = ierr ) name1 , xh1 ( 1 ), xh1 ( 2 ), xh1 ( 3 ), vh1 ( 1 ), vh1 ( 2 ), vh1 ( 3 ), mass1 , radius1 if ( ierr /= 0 ) then close ( unit = iu , iostat = ierr ) return end if read ( iu , iostat = ierr ) name2 , xh2 ( 2 ), xh2 ( 2 ), xh2 ( 3 ), vh2 ( 2 ), vh2 ( 2 ), vh2 ( 3 ), mass2 , radius2 if ( ierr /= 0 ) then close ( unit = iu , iostat = ierr ) return end if return end function io_read_encounter module subroutine io_read_frame_body ( self , iu , param , form , ierr ) !! author: David A. Minton !! !! Reads a frame of output of either test particle or massive body data from a binary output file !! !! Adapted from David E. Kaufmann's Swifter routine  io_read_frame.f90 !! Adapted from Hal Levison's Swift routine io_read_frame.F implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest particle object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), intent ( in ) :: form !! Input format code (\"XV\" or \"EL\") integer ( I4B ), intent ( out ) :: ierr !! Error code associate ( n => self % nbody ) read ( iu , iostat = ierr , err = 100 ) self % id (:) !read(iu, iostat=ierr, err=100) self%name(1:n) select case ( form ) case ( EL ) if (. not . allocated ( self % a )) allocate ( self % a ( n )) if (. not . allocated ( self % e )) allocate ( self % e ( n )) if (. not . allocated ( self % inc )) allocate ( self % inc ( n )) if (. not . allocated ( self % capom )) allocate ( self % capom ( n )) if (. not . allocated ( self % omega )) allocate ( self % omega ( n )) if (. not . allocated ( self % capm )) allocate ( self % capm ( n )) read ( iu , iostat = ierr , err = 100 ) self % a (:) read ( iu , iostat = ierr , err = 100 ) self % e (:) read ( iu , iostat = ierr , err = 100 ) self % inc (:) read ( iu , iostat = ierr , err = 100 ) self % capom (:) read ( iu , iostat = ierr , err = 100 ) self % omega (:) read ( iu , iostat = ierr , err = 100 ) self % capm (:) case ( XV ) read ( iu , iostat = ierr , err = 100 ) self % xh ( 1 , :) read ( iu , iostat = ierr , err = 100 ) self % xh ( 2 , :) read ( iu , iostat = ierr , err = 100 ) self % xh ( 3 , :) read ( iu , iostat = ierr , err = 100 ) self % vh ( 1 , :) read ( iu , iostat = ierr , err = 100 ) self % vh ( 2 , :) read ( iu , iostat = ierr , err = 100 ) self % vh ( 3 , :) end select select type ( pl => self ) class is ( swiftest_pl ) ! Additional output if the passed polymorphic object is a massive body read ( iu , iostat = ierr , err = 100 ) pl % Gmass (:) pl % mass (:) = pl % Gmass (:) / param % GU if ( param % lrhill_present ) read ( iu , iostat = ierr , err = 100 ) pl % rhill (:) if ( param % lclose ) read ( iu , iostat = ierr , err = 100 ) pl % radius (:) if ( param % lrotation ) then read ( iu , iostat = ierr , err = 100 ) pl % rot ( 1 , :) read ( iu , iostat = ierr , err = 100 ) pl % rot ( 2 , :) read ( iu , iostat = ierr , err = 100 ) pl % rot ( 3 , :) read ( iu , iostat = ierr , err = 100 ) pl % Ip ( 1 , :) read ( iu , iostat = ierr , err = 100 ) pl % Ip ( 2 , :) read ( iu , iostat = ierr , err = 100 ) pl % Ip ( 3 , :) end if if ( param % ltides ) then read ( iu , iostat = ierr , err = 100 ) pl % k2 ( 1 : n ) read ( iu , iostat = ierr , err = 100 ) pl % Q ( 1 : n ) end if end select end associate 100 if ( ierr /= 0 ) then write ( * , * ) 'Error reading Swiftest body data' call util_exit ( FAILURE ) end if return end subroutine io_read_frame_body module subroutine io_read_frame_cb ( self , iu , param , form , ierr ) !! author: David A. Minton !! !! Reads a frame of output of central body data to the binary output file !! !! Adapted from David E. Kaufmann's Swifter routine  io_read_frame.f90 !! Adapted from Hal Levison's Swift routine io_read_frame.F implicit none ! Arguments class ( swiftest_cb ), intent ( inout ) :: self !! Swiftest central body object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), intent ( in ) :: form !! Input format code (\"XV\" or \"EL\") integer ( I4B ), intent ( out ) :: ierr !! Error cod read ( iu , iostat = ierr , err = 100 ) self % id !read(iu, iostat=ierr, err=100) self%name read ( iu , iostat = ierr , err = 100 ) self % Gmass self % mass = self % Gmass / param % GU read ( iu , iostat = ierr , err = 100 ) self % radius read ( iu , iostat = ierr , err = 100 ) self % j2rp2 read ( iu , iostat = ierr , err = 100 ) self % j4rp4 if ( param % lrotation ) then read ( iu , iostat = ierr , err = 100 ) self % Ip (:) read ( iu , iostat = ierr , err = 100 ) self % rot (:) end if if ( param % ltides ) then read ( iu , iostat = ierr , err = 100 ) self % k2 read ( iu , iostat = ierr , err = 100 ) self % Q end if 100 if ( ierr /= 0 ) then write ( * , * ) 'Error reading central body data' call util_exit ( FAILURE ) end if return end subroutine io_read_frame_cb module subroutine io_read_frame_system ( self , iu , param , form , ierr ) !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Read a frame (header plus records for each massive body and active test particle) from a output binary file implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), intent ( in ) :: form !! Input format code (\"XV\" or \"EL\") integer ( I4B ), intent ( out ) :: ierr !! Error code ! Internals logical , save :: lfirst = . true . iu = BINUNIT if ( lfirst ) then open ( unit = iu , file = param % outfile , status = 'OLD' , form = 'UNFORMATTED' , iostat = ierr ) lfirst = . false . if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error:\" write ( * , * ) \"   Binary output file already exists or cannot be accessed\" return end if end if ierr = io_read_hdr ( iu , param % t , self % pl % nbody , self % tp % nbody , param % out_form , param % out_type ) if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error:\" write ( * , * ) \"   Binary output file already exists or cannot be accessed\" return end if call self % cb % read_frame ( iu , param , form , ierr ) if ( ierr /= 0 ) return call self % pl % read_frame ( iu , param , form , ierr ) if ( ierr /= 0 ) return call self % tp % read_frame ( iu , param , form , ierr ) return end subroutine io_read_frame_system function io_read_hdr ( iu , t , npl , ntp , out_form , out_type ) result ( ierr ) !! author: David A. Minton !! !! Read frame header from input binary files !!     Function returns read error status (0 = OK, nonzero = ERROR) !! Adapted from David E. Kaufmann's Swifter routine: io_read_hdr.f90 !! Adapted from Hal Levison's Swift routine io_read_hdr.f implicit none ! Arguments integer ( I4B ), intent ( in ) :: iu integer ( I4B ), intent ( out ) :: npl , ntp character ( * ), intent ( out ) :: out_form real ( DP ), intent ( out ) :: t character ( * ), intent ( in ) :: out_type ! Result integer ( I4B ) :: ierr ! Internals real ( SP ) :: ttmp select case ( out_type ) case ( REAL4_TYPE , SWIFTER_REAL4_TYPE ) read ( iu , iostat = ierr ) ttmp , npl , ntp , out_form if ( ierr /= 0 ) return t = ttmp case ( REAL8_TYPE , SWIFTER_REAL8_TYPE ) read ( iu , iostat = ierr ) t read ( iu , iostat = ierr ) npl read ( iu , iostat = ierr ) ntp read ( iu , iostat = ierr ) out_form case default write ( * , * ) trim ( adjustl ( out_type )) // ' is an unrecognized file type' ierr = - 1 end select return end function io_read_hdr module subroutine io_read_param_in ( self , param_file_name ) !! author: David A. Minton !! !! Read in parameters for the integration !! !! Adapted from David E. Kaufmann's Swifter routine io_init_param.f90 !! Adapted from Martin Duncan's Swift routine io_init_param.f implicit none ! Arguments class ( swiftest_parameters ), intent ( inout ) :: self !! Current run configuration parameters character ( len =* ), intent ( in ) :: param_file_name !! Parameter input file name (i.e. param.in) ! Internals integer ( I4B ), parameter :: LUN = 7 !! Unit number of input file integer ( I4B ) :: ierr = 0 !! Input error code character ( STRMAX ) :: error_message !! Error message in UDIO procedure ! Read in name of parameter file write ( * , * ) 'Parameter input file is ' , trim ( adjustl ( param_file_name )) write ( * , * ) ' ' 100 format ( A ) open ( unit = LUN , file = param_file_name , status = 'old' , iostat = ierr ) if ( ierr /= 0 ) then write ( * , * ) 'Swiftest error: ' , ierr write ( * , * ) '   Unable to open file ' , trim ( adjustl ( param_file_name )) call util_exit ( FAILURE ) end if !! todo: Currently this procedure does not work in user-defined derived-type input mode !!    as the newline characters are ignored in the input file when compiled in ifort. !read(LUN,'(DT)', iostat= ierr, iomsg = error_message) param call self % reader ( LUN , iotype = \"none\" , v_list = [ self % integrator ], iostat = ierr , iomsg = error_message ) if ( ierr /= 0 ) then write ( * , * ) 'Swiftest error reading ' , trim ( adjustl ( param_file_name )) write ( * , * ) ierr , trim ( adjustl ( error_message )) call util_exit ( FAILURE ) end if return end subroutine io_read_param_in module subroutine io_toupper ( string ) !! author: David A. Minton !! !! Convert string to uppercase !! !! Adapted from David E. Kaufmann's Swifter routine: util_toupper.f90 implicit none ! Arguments character ( * ), intent ( inout ) :: string !! String to make upper case ! Internals integer ( I4B ) :: i , length , idx length = len ( string ) do i = 1 , length idx = iachar ( string ( i : i )) if (( idx >= lowercase_begin ) . and . ( idx <= lowercase_end )) then idx = idx + uppercase_offset string ( i : i ) = achar ( idx ) end if end do return end subroutine io_toupper module subroutine io_write_discard ( self , param ) !! author: David A. Minton !! !! Write out information about discarded test particle !! !! Adapted from David E. Kaufmann's Swifter routine  io_discard_write.f90 !! Adapted from Hal Levison's Swift routine io_discard_write.f implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ), parameter :: LUN = 40 integer ( I4B ) :: i , ierr logical , save :: lfirst = . true . real ( DP ), dimension (:,:), allocatable :: vh character ( * ), parameter :: HDRFMT = '(E23.16, 1X, I8, 1X, L1)' character ( * ), parameter :: NAMEFMT = '(A, 2(1X, I8))' character ( * ), parameter :: VECFMT = '(3(E23.16, 1X))' character ( * ), parameter :: NPLFMT = '(I8)' character ( * ), parameter :: PLNAMEFMT = '(I8, 2(1X, E23.16))' class ( swiftest_body ), allocatable :: pltemp associate ( tp_discards => self % tp_discards , nsp => self % tp_discards % nbody , pl => self % pl , npl => self % pl % nbody ) if ( nsp == 0 ) return select case ( param % out_stat ) case ( 'APPEND' ) open ( unit = LUN , file = param % discard_out , status = 'OLD' , position = 'APPEND' , form = 'FORMATTED' , iostat = ierr ) case ( 'NEW' , 'REPLACE' , 'UNKNOWN' ) open ( unit = LUN , file = param % discard_out , status = param % out_stat , form = 'FORMATTED' , iostat = ierr ) case default write ( * , * ) 'Invalid status code for OUT_STAT: ' , trim ( adjustl ( param % out_stat )) call util_exit ( FAILURE ) end select lfirst = . false . if ( param % lgr ) call tp_discards % pv2v ( param ) write ( LUN , HDRFMT ) param % t , nsp , param % lbig_discard do i = 1 , nsp write ( LUN , NAMEFMT ) SUB , tp_discards % id ( i ), tp_discards % status ( i ) write ( LUN , VECFMT ) tp_discards % xh ( 1 , i ), tp_discards % xh ( 2 , i ), tp_discards % xh ( 3 , i ) write ( LUN , VECFMT ) tp_discards % vh ( 1 , i ), tp_discards % vh ( 2 , i ), tp_discards % vh ( 3 , i ) end do if ( param % lbig_discard ) then if ( param % lgr ) then allocate ( pltemp , source = pl ) call pltemp % pv2v ( param ) allocate ( vh , source = pltemp % vh ) deallocate ( pltemp ) else allocate ( vh , source = pl % vh ) end if write ( LUN , NPLFMT ) npl do i = 1 , npl write ( LUN , PLNAMEFMT ) pl % id ( i ), pl % Gmass ( i ), pl % radius ( i ) write ( LUN , VECFMT ) pl % xh ( 1 , i ), pl % xh ( 2 , i ), pl % xh ( 3 , i ) write ( LUN , VECFMT ) vh ( 1 , i ), vh ( 2 , i ), vh ( 3 , i ) end do deallocate ( vh ) end if close ( LUN ) end associate return end subroutine io_write_discard module subroutine io_write_encounter ( t , name1 , name2 , mass1 , mass2 , radius1 , radius2 , & xh1 , xh2 , vh1 , vh2 , enc_out , out_type ) !! author: David A. Minton !! !! Write close encounter data to output binary files !!  There is no direct file output from this subroutine !! !! Adapted from David E. Kaufmann's Swifter routine: io_write_encounter.f90 !! Adapted from Hal Levison's Swift routine io_write_encounter.f implicit none ! Arguments integer ( I4B ), intent ( in ) :: name1 , name2 real ( DP ), intent ( in ) :: t , mass1 , mass2 , radius1 , radius2 real ( DP ), dimension (:), intent ( in ) :: xh1 , xh2 , vh1 , vh2 character ( * ), intent ( in ) :: enc_out , out_type ! Internals logical , save :: lfirst = . true . integer ( I4B ), parameter :: lun = 30 integer ( I4B ) :: ierr integer ( I4B ), save :: iu = lun open ( unit = iu , file = enc_out , status = 'OLD' , position = 'APPEND' , form = 'UNFORMATTED' , iostat = ierr ) if (( ierr /= 0 ) . and . lfirst ) then open ( unit = iu , file = enc_out , status = 'NEW' , form = 'UNFORMATTED' , iostat = ierr ) end if if ( ierr /= 0 ) then write ( * , * ) \"Swiftest Error:\" write ( * , * ) \"   Unable to open binary encounter file\" call util_exit ( FAILURE ) end if lfirst = . false . write ( iu , iostat = ierr ) t if ( ierr < 0 ) then write ( * , * ) \"Swiftest Error:\" write ( * , * ) \"   Unable to write binary file record\" call util_exit ( FAILURE ) end if write ( iu ) name1 , xh1 ( 1 ), xh1 ( 2 ), xh1 ( 3 ), vh1 ( 1 ), vh1 ( 2 ), mass1 , radius1 write ( iu ) name2 , xh2 ( 1 ), xh2 ( 2 ), xh2 ( 3 ), vh2 ( 1 ), vh2 ( 2 ), mass2 , radius2 close ( unit = iu , iostat = ierr ) if ( ierr /= 0 ) then write ( * , * ) \"Swiftest Error:\" write ( * , * ) \"   Unable to close binary encounter file\" call util_exit ( FAILURE ) end if return end subroutine io_write_encounter module subroutine io_write_frame_body ( self , iu , param ) !! author: David A. Minton !! !! Write a frame of output of either test particle or massive body data to the binary output file !!    Note: If outputting to orbital elements, but sure that the conversion is done prior to calling this method !! !! Adapted from David E. Kaufmann's Swifter routine  io_write_frame.f90 !! Adapted from Hal Levison's Swift routine io_write_frame.F implicit none ! Arguments class ( swiftest_body ), intent ( in ) :: self !! Swiftest particle object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters associate ( n => self % nbody ) if ( n == 0 ) return write ( iu ) self % id ( 1 : n ) !write(iu) self%name(1:n) select case ( param % out_form ) case ( EL ) write ( iu ) self % a ( 1 : n ) write ( iu ) self % e ( 1 : n ) write ( iu ) self % inc ( 1 : n ) write ( iu ) self % capom ( 1 : n ) write ( iu ) self % omega ( 1 : n ) write ( iu ) self % capm ( 1 : n ) case ( XV ) write ( iu ) self % xh ( 1 , 1 : n ) write ( iu ) self % xh ( 2 , 1 : n ) write ( iu ) self % xh ( 3 , 1 : n ) write ( iu ) self % vh ( 1 , 1 : n ) write ( iu ) self % vh ( 2 , 1 : n ) write ( iu ) self % vh ( 3 , 1 : n ) end select select type ( pl => self ) class is ( swiftest_pl ) ! Additional output if the passed polymorphic object is a massive body write ( iu ) pl % Gmass ( 1 : n ) if ( param % lrhill_present ) write ( iu ) pl % rhill ( 1 : n ) if ( param % lclose ) write ( iu ) pl % radius ( 1 : n ) if ( param % lrotation ) then write ( iu ) pl % Ip ( 1 , 1 : n ) write ( iu ) pl % Ip ( 2 , 1 : n ) write ( iu ) pl % Ip ( 3 , 1 : n ) write ( iu ) pl % rot ( 1 , 1 : n ) write ( iu ) pl % rot ( 2 , 1 : n ) write ( iu ) pl % rot ( 3 , 1 : n ) end if if ( param % ltides ) then write ( iu ) pl % k2 ( 1 : n ) write ( iu ) pl % Q ( 1 : n ) end if end select end associate return end subroutine io_write_frame_body module subroutine io_write_frame_cb ( self , iu , param ) !! author: David A. Minton !! !! Write a frame of output of central body data to the binary output file !! !! Adapted from David E. Kaufmann's Swifter routine  io_write_frame.f90 !! Adapted from Hal Levison's Swift routine io_write_frame.F implicit none ! Arguments class ( swiftest_cb ), intent ( in ) :: self !! Swiftest central body object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters associate ( cb => self ) !write(iu) cb%name write ( iu ) cb % id write ( iu ) cb % Gmass write ( iu ) cb % radius write ( iu ) cb % j2rp2 write ( iu ) cb % j4rp4 if ( param % lrotation ) then write ( iu ) cb % Ip ( 1 ) write ( iu ) cb % Ip ( 2 ) write ( iu ) cb % Ip ( 3 ) write ( iu ) cb % rot ( 1 ) write ( iu ) cb % rot ( 2 ) write ( iu ) cb % rot ( 3 ) end if if ( param % ltides ) then write ( iu ) cb % k2 write ( iu ) cb % Q end if end associate return end subroutine io_write_frame_cb module subroutine io_write_frame_system ( self , iu , param ) !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Write a frame (header plus records for each massive body and active test particle) to output binary file !! There is no direct file output from this subroutine !! !! Adapted from David E. Kaufmann's Swifter routine  io_write_frame.f90 !! Adapted from Hal Levison's Swift routine io_write_frame.F implicit none ! Arguments class ( swiftest_nbody_system ), intent ( in ) :: self !! Swiftest system object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals logical , save :: lfirst = . true . !! Flag to determine if this is the first call of this method integer ( I4B ) :: ierr !! I/O error code class ( swiftest_cb ), allocatable :: cb !! Temporary local version of pl structure used for non-destructive conversions class ( swiftest_pl ), allocatable :: pl !! Temporary local version of pl structure used for non-destructive conversions class ( swiftest_tp ), allocatable :: tp !! Temporary local version of pl structure used for non-destructive conversions allocate ( cb , source = self % cb ) allocate ( pl , source = self % pl ) allocate ( tp , source = self % tp ) iu = BINUNIT if ( lfirst ) then select case ( param % out_stat ) case ( 'APPEND' ) open ( unit = iu , file = param % outfile , status = 'OLD' , position = 'APPEND' , form = 'UNFORMATTED' , iostat = ierr ) case ( 'NEW' , 'REPLACE' , 'UNKNOWN' ) open ( unit = iu , file = param % outfile , status = param % out_stat , form = 'UNFORMATTED' , iostat = ierr ) case default write ( * , * ) 'Invalid status code for OUT_STAT: ' , trim ( adjustl ( param % out_stat )) call util_exit ( FAILURE ) end select if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error: io_write_frame_system - first\" , ierr write ( * , * ) \"   Binary output file \" // trim ( adjustl ( param % outfile )) // \" already exists or cannot be accessed\" write ( * , * ) \"   OUT_STAT: \" // trim ( adjustl ( param % out_stat )) call util_exit ( FAILURE ) end if lfirst = . false . else open ( unit = iu , file = param % outfile , status = 'OLD' , position = 'APPEND' , form = 'UNFORMATTED' , iostat = ierr ) if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error: io_write_frame_system\" write ( * , * ) \"   Unable to open binary output file for APPEND\" call util_exit ( FAILURE ) end if end if call io_write_hdr ( iu , param % t , pl % nbody , tp % nbody , param % out_form , param % out_type ) if ( param % lgr ) then call pl % pv2v ( param ) call tp % pv2v ( param ) end if if ( param % out_form == EL ) then ! Do an orbital element conversion prior to writing out the frame, as we have access to the central body here call pl % xv2el ( cb ) call tp % xv2el ( cb ) end if ! Write out each data type frame call cb % write_frame ( iu , param ) call pl % write_frame ( iu , param ) call tp % write_frame ( iu , param ) deallocate ( cb , pl , tp ) close ( iu ) return end subroutine io_write_frame_system subroutine io_write_hdr ( iu , t , npl , ntp , out_form , out_type ) !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Write frame header to output binary file !! !! Adapted from David Adapted from David E. Kaufmann's Swifter routine io_write_hdr.f90 !! Adapted from Hal Levison's Swift routine io_write_hdr.F implicit none ! Arguments integer ( I4B ), intent ( in ) :: iu !! Output file unit number real ( DP ), intent ( in ) :: t !! Current time of simulation integer ( I4B ), intent ( in ) :: npl !! Number of massive bodies integer ( I4B ), intent ( in ) :: ntp !! Number of test particles character ( * ), intent ( in ) :: out_form !! Output format type (\"EL\" or  \"XV\") character ( * ), intent ( in ) :: out_type !! Output file format type (REAL4, REAL8 - see swiftest module for symbolic name definitions) ! Internals integer ( I4B ) :: ierr !! Error code select case ( out_type ) case ( REAL4_TYPE , SWIFTER_REAL4_TYPE ) write ( iu , iostat = ierr ) real ( t , kind = SP ) if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error:\" write ( * , * ) \"   Unable to write binary file header\" call util_exit ( FAILURE ) end if case ( REAL8_TYPE , SWIFTER_REAL8_TYPE ) write ( iu , iostat = ierr ) t if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error:\" write ( * , * ) \"   Unable to write binary file header\" call util_exit ( FAILURE ) end if end select write ( iu , iostat = ierr ) npl write ( iu , iostat = ierr ) ntp write ( iu , iostat = ierr ) out_form return end subroutine io_write_hdr end submodule s_io","tags":"","loc":"sourcefile/io.f90.html"},{"title":"setup.f90 – swiftest","text":"This file depends on sourcefile~~setup.f90~~EfferentGraph sourcefile~setup.f90 setup.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~setup.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_setup Source Code setup.f90 Source Code submodule ( swiftest_classes ) s_setup use swiftest contains module subroutine setup_construct_system ( system , param ) !! author: David A. Minton !! !! Constructor for a Swiftest nbody system. Creates the nbody system object based on the user-input integrator !! implicit none ! Arguments class ( swiftest_nbody_system ), allocatable , intent ( inout ) :: system !! Swiftest system object class ( swiftest_parameters ), intent ( in ) :: param !! Swiftest parameters select case ( param % integrator ) case ( BS ) write ( * , * ) 'Bulirsch-Stoer integrator not yet enabled' case ( HELIO ) allocate ( helio_nbody_system :: system ) select type ( system ) class is ( helio_nbody_system ) allocate ( helio_cb :: system % cb ) allocate ( helio_pl :: system % pl ) allocate ( helio_tp :: system % tp ) allocate ( helio_tp :: system % tp_discards ) end select case ( RA15 ) write ( * , * ) 'Radau integrator not yet enabled' case ( TU4 ) write ( * , * ) 'TU4 integrator not yet enabled' case ( WHM ) allocate ( whm_nbody_system :: system ) select type ( system ) class is ( whm_nbody_system ) allocate ( whm_cb :: system % cb ) allocate ( whm_pl :: system % pl ) allocate ( whm_tp :: system % tp ) allocate ( whm_tp :: system % tp_discards ) end select case ( RMVS ) allocate ( rmvs_nbody_system :: system ) select type ( system ) class is ( rmvs_nbody_system ) allocate ( rmvs_cb :: system % cb ) allocate ( rmvs_pl :: system % pl ) allocate ( rmvs_tp :: system % tp ) allocate ( rmvs_tp :: system % tp_discards ) end select case ( SYMBA ) allocate ( symba_nbody_system :: system ) select type ( system ) class is ( symba_nbody_system ) allocate ( symba_cb :: system % cb ) allocate ( symba_pl :: system % pl ) allocate ( symba_tp :: system % tp ) allocate ( symba_tp :: system % tp_discards ) allocate ( symba_merger :: system % pl_adds ) allocate ( symba_merger :: system % pl_discards ) allocate ( symba_plplenc :: system % plplenc_list ) allocate ( symba_pltpenc :: system % pltpenc_list ) end select case ( RINGMOONS ) write ( * , * ) 'RINGMOONS-SyMBA integrator not yet enabled' case default write ( * , * ) 'Unkown integrator' , param % integrator call util_exit ( FAILURE ) end select return end subroutine setup_construct_system module subroutine setup_encounter ( self , n ) !! author: David A. Minton !! !! A constructor that sets the number of encounters and allocates and initializes all arrays !! implicit none ! Arguments class ( swiftest_encounter ), intent ( inout ) :: self !! Swiftest encounter structure integer ( I4B ), intent ( in ) :: n !! Number of encounters to allocate space for self % nenc = n if ( n == 0 ) return if ( allocated ( self % lvdotr )) deallocate ( self % lvdotr ) if ( allocated ( self % status )) deallocate ( self % status ) if ( allocated ( self % index1 )) deallocate ( self % index1 ) if ( allocated ( self % index2 )) deallocate ( self % index2 ) if ( allocated ( self % x1 )) deallocate ( self % x1 ) if ( allocated ( self % x2 )) deallocate ( self % x2 ) if ( allocated ( self % v1 )) deallocate ( self % v1 ) if ( allocated ( self % v2 )) deallocate ( self % v2 ) allocate ( self % lvdotr ( n )) allocate ( self % status ( n )) allocate ( self % index1 ( n )) allocate ( self % index2 ( n )) allocate ( self % x1 ( NDIM , n )) allocate ( self % x2 ( NDIM , n )) allocate ( self % v1 ( NDIM , n )) allocate ( self % v2 ( NDIM , n )) self % lvdotr (:) = . false . self % status (:) = INACTIVE self % index1 (:) = 0 self % index2 (:) = 0 self % x1 (:,:) = 0.0_DP self % x2 (:,:) = 0.0_DP self % v1 (:,:) = 0.0_DP self % v2 (:,:) = 0.0_DP return end subroutine setup_encounter module subroutine setup_initialize_system ( self , param ) !! author: David A. Minton !! !! Wrapper method to initialize a basic Swiftest nbody system from files !! implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters call self % cb % initialize ( param ) call self % pl % initialize ( param ) call self % tp % initialize ( param ) call self % validate_ids ( param ) call self % set_msys () call self % pl % set_mu ( self % cb ) call self % tp % set_mu ( self % cb ) call self % pl % eucl_index () if (. not . param % lrhill_present ) call self % pl % set_rhill ( self % cb ) return end subroutine setup_initialize_system module subroutine setup_body ( self , n , param ) !! author: David A. Minton !! !! Constructor for base Swiftest particle class. Allocates space for all particles and !! initializes all components with a value. !! Note: Timing tests indicate that (NDIM, n) is more efficient than (NDIM, n) implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest generic body object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter self % nbody = n if ( n <= 0 ) return self % lfirst = . true . if ( allocated ( self % id )) deallocate ( self % id ) if ( allocated ( self % name )) deallocate ( self % name ) if ( allocated ( self % status )) deallocate ( self % status ) if ( allocated ( self % ldiscard )) deallocate ( self % ldiscard ) if ( allocated ( self % xh )) deallocate ( self % xh ) if ( allocated ( self % vh )) deallocate ( self % vh ) if ( allocated ( self % xb )) deallocate ( self % xb ) if ( allocated ( self % vb )) deallocate ( self % vb ) if ( allocated ( self % ah )) deallocate ( self % ah ) if ( allocated ( self % ir3h )) deallocate ( self % ir3h ) if ( allocated ( self % mu )) deallocate ( self % mu ) if ( allocated ( self % lmask )) deallocate ( self % lmask ) allocate ( self % id ( n )) allocate ( self % name ( n )) allocate ( self % status ( n )) allocate ( self % ldiscard ( n )) allocate ( self % xh ( NDIM , n )) allocate ( self % vh ( NDIM , n )) allocate ( self % xb ( NDIM , n )) allocate ( self % vb ( NDIM , n )) allocate ( self % ah ( NDIM , n )) allocate ( self % ir3h ( n )) allocate ( self % mu ( n )) allocate ( self % lmask ( n )) self % id (:) = 0 self % name (:) = \"UNNAMED\" self % status (:) = INACTIVE self % lmask (:) = . false . self % ldiscard (:) = . false . self % xh (:,:) = 0.0_DP self % vh (:,:) = 0.0_DP self % xb (:,:) = 0.0_DP self % vb (:,:) = 0.0_DP self % ah (:,:) = 0.0_DP self % ir3h (:) = 0.0_DP self % mu (:) = 0.0_DP if ( param % loblatecb ) then if ( allocated ( self % aobl )) deallocate ( self % aobl ) allocate ( self % aobl ( NDIM , n )) self % aobl (:,:) = 0.0_DP end if if ( param % ltides ) then if ( allocated ( self % atide )) deallocate ( self % lmask ) allocate ( self % atide ( NDIM , n )) self % atide (:,:) = 0.0_DP end if if ( param % lgr ) then if ( allocated ( self % agr )) deallocate ( self % lmask ) allocate ( self % agr ( NDIM , n )) self % agr (:,:) = 0.0_DP end if return end subroutine setup_body module subroutine setup_pl ( self , n , param ) !! author: David A. Minton !! !! Constructor for base Swiftest massive body class. Allocates space for all particles and !! initializes all components with a value. implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter !> Call allocation method for parent class !> The parent class here is the abstract swiftest_body class, so we can't use the type-bound procedure call setup_body ( self , n , param ) if ( n <= 0 ) return if ( allocated ( self % mass )) deallocate ( self % mass ) if ( allocated ( self % Gmass )) deallocate ( self % Gmass ) if ( allocated ( self % rhill )) deallocate ( self % rhill ) allocate ( self % mass ( n )) allocate ( self % Gmass ( n )) allocate ( self % rhill ( n )) self % mass (:) = 0.0_DP self % Gmass (:) = 0.0_DP self % rhill (:) = 0.0_DP self % nplpl = 0 if ( param % lclose ) then if ( allocated ( self % radius )) deallocate ( self % radius ) if ( allocated ( self % density )) deallocate ( self % density ) allocate ( self % radius ( n )) allocate ( self % density ( n )) self % radius (:) = 0.0_DP self % density (:) = 1.0_DP end if if ( param % lrotation ) then if ( allocated ( self % rot )) deallocate ( self % rhill ) if ( allocated ( self % Ip )) deallocate ( self % rhill ) allocate ( self % rot ( NDIM , n )) allocate ( self % Ip ( NDIM , n )) self % rot (:,:) = 0.0_DP self % Ip (:,:) = 0.0_DP end if if ( param % ltides ) then if ( allocated ( self % k2 )) deallocate ( self % rhill ) if ( allocated ( self % Q )) deallocate ( self % rhill ) if ( allocated ( self % tlag )) deallocate ( self % rhill ) allocate ( self % k2 ( n )) allocate ( self % Q ( n )) allocate ( self % tlag ( n )) self % k2 (:) = 0.0_DP self % Q (:) = 0.0_DP self % tlag (:) = 0.0_DP end if return end subroutine setup_pl module subroutine setup_tp ( self , n , param ) !! author: David A. Minton !! !! Constructor for base Swiftest test particle particle class. Allocates space for !! all particles and initializes all components with a value. implicit none ! Arguments class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter !> Call allocation method for parent class !> The parent class here is the abstract swiftest_body class, so we can't use the type-bound procedure call setup_body ( self , n , param ) if ( n <= 0 ) return if ( allocated ( self % isperi )) deallocate ( self % isperi ) if ( allocated ( self % peri )) deallocate ( self % peri ) if ( allocated ( self % atp )) deallocate ( self % atp ) allocate ( self % isperi ( n )) allocate ( self % peri ( n )) allocate ( self % atp ( n )) self % isperi (:) = 0 self % peri (:) = 0.0_DP self % atp (:) = 0.0_DP return end subroutine setup_tp end submodule s_setup","tags":"","loc":"sourcefile/setup.f90.html"},{"title":"eucl.f90 – swiftest","text":"This file depends on sourcefile~~eucl.f90~~EfferentGraph sourcefile~eucl.f90 eucl.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~eucl.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_eucl Source Code eucl.f90 Source Code submodule ( swiftest_classes ) s_eucl use swiftest contains module subroutine eucl_dist_index_plpl ( self ) !! author: Jacob R. Elliott and David A. Minton !! !! Turns i,j indices into k index for use in the Euclidean distance matrix !! !! Reference: !! !!    Mélodie Angeletti, Jean-Marie Bonny, Jonas Koko. Parallel Euclidean distance matrix computation on big datasets *. !!       2019. hal-0204751 implicit none ! Arguments class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body objec ! Internals integer ( I8B ) :: i , j , counter , npl npl = int ( self % nbody , kind = I8B ) associate ( nplpl => self % nplpl ) nplpl = ( npl * ( npl - 1 ) / 2 ) ! number of entries in a strict lower triangle, nplm x npl, minus first column if ( allocated ( self % k_plpl )) deallocate ( self % k_plpl ) ! Reset the index array if it's been set previously allocate ( self % k_plpl ( 2 , nplpl )) do i = 1 , npl counter = ( i - 1_I8B ) * npl - i * ( i - 1_I8B ) / 2_I8B + 1_I8B do j = i + 1_I8B , npl self % k_plpl ( 1 , counter ) = i self % k_plpl ( 2 , counter ) = j counter = counter + 1_I8B end do end do end associate return end subroutine eucl_dist_index_plpl end submodule s_eucl","tags":"","loc":"sourcefile/eucl.f90.html"},{"title":"user_getacch.f90 – swiftest","text":"This file depends on sourcefile~~user_getacch.f90~~EfferentGraph sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~user_getacch.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_user_kick_getacch Source Code user_getacch.f90 Source Code submodule ( swiftest_classes ) s_user_kick_getacch use swiftest contains module subroutine user_kick_getacch_body ( self , system , param , t , lbeg ) !! author: David A. Minton !! !! Add user-supplied heliocentric accelerations to planets. !! !! Adapted from David E. Kaufmann's Swifter routine whm_user_kick_getacch.f90 implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody_system_object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters user parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the ste return end subroutine user_kick_getacch_body end submodule s_user_kick_getacch","tags":"","loc":"sourcefile/user_getacch.f90.html"},{"title":"drift.f90 – swiftest","text":"This file depends on sourcefile~~drift.f90~~EfferentGraph sourcefile~drift.f90 drift.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~drift.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules drift_implementation Source Code drift.f90 Source Code submodule ( swiftest_classes ) drift_implementation use swiftest !> Integration control parameters: real ( DP ), parameter :: E2MAX = 0.36_DP real ( DP ), parameter :: DM2MAX = 0.16_DP real ( DP ), parameter :: E2DM2MAX = 0.0016_DP real ( DP ), parameter :: DANBYB = 1.0E-13_DP integer ( I2B ), parameter :: NLAG1 = 50 integer ( I2B ), parameter :: NLAG2 = 40 contains module subroutine drift_body ( self , system , param , dt ) !! author: David A. Minton !! !! Loop bodies and call Danby drift routine on the heliocentric position and velocities. !! !! Adapted from Hal Levison's Swift routine drift_tp.f !! Adapted from David E. Kaufmann's Swifter routine whm_drift_tp.f90 implicit none ! Arguments class ( swiftest_body ), intent ( inout ) :: self !! Swiftest test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize ! Internals integer ( I4B ) :: i integer ( I4B ), dimension (:), allocatable :: iflag associate ( n => self % nbody ) allocate ( iflag ( n )) iflag (:) = 0 call drift_all ( self % mu , self % xh , self % vh , self % nbody , param , dt , self % lmask , iflag ) if ( any ( iflag ( 1 : n ) /= 0 )) then where ( iflag ( 1 : n ) /= 0 ) self % status ( 1 : n ) = DISCARDED_DRIFTERR do i = 1 , n if ( iflag ( i ) /= 0 ) write ( * , * ) \" Body \" , self % id ( i ), \" lost due to error in Danby drift\" end do end if end associate return end subroutine drift_body module pure subroutine drift_all ( mu , x , v , n , param , dt , mask , iflag ) !! author: David A. Minton !! !! Loop bodies and call Danby drift routine on all bodies for the given position and velocity vector. !! !! Adapted from Hal Levison's Swift routine drift_tp.f !! Adapted from David E. Kaufmann's Swifter routine whm_drift_tp.f9 implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: mu !! Vector of gravitational constants real ( DP ), dimension (:,:), intent ( inout ) :: x , v !! Position and velocity vectors integer ( I4B ), intent ( in ) :: n !! number of bodies class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize logical , dimension (:), intent ( in ) :: mask !! Logical mask of size self%nbody that determines which bodies to drift. integer ( I4B ), dimension (:), intent ( out ) :: iflag !! Vector of error flags. 0 means no problem ! Internals integer ( I4B ) :: i real ( DP ) :: energy , vmag2 , rmag !! Variables used in GR calculation real ( DP ), dimension (:), allocatable :: dtp if ( n == 0 ) return allocate ( dtp ( n )) if ( param % lgr ) then do concurrent ( i = 1 : n , mask ( i )) rmag = norm2 ( x (:, i )) vmag2 = dot_product ( v (:, i ), v (:, i )) energy = 0.5_DP * vmag2 - mu ( i ) / rmag dtp ( i ) = dt * ( 1.0_DP + 3 * param % inv_c2 * energy ) end do else where ( mask ( 1 : n )) dtp ( 1 : n ) = dt end if do concurrent ( i = 1 : n , mask ( i )) call drift_one ( mu ( i ), x ( 1 , i ), x ( 2 , i ), x ( 3 , i ), v ( 1 , i ), v ( 2 , i ), v ( 3 , i ), dtp ( i ), iflag ( i )) end do return end subroutine drift_all module pure elemental subroutine drift_one ( mu , px , py , pz , vx , vy , vz , dt , iflag ) !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Perform Danby drift for one body, redoing drift with smaller substeps if original accuracy is insufficient !! !! Adapted from David E. Kaufmann's Swifter routine routine drift_one.f90 !! Adapted from Hal Levison and Martin Duncan's Swift routine drift_one.f implicit none ! Arguments real ( DP ), intent ( in ) :: mu !! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body to drift real ( DP ), intent ( inout ) :: px , py , pz , vx , vy , vz !! Position and velocity of body to drift real ( DP ), intent ( in ) :: dt !! Step size integer ( I4B ), intent ( out ) :: iflag !! iflag : error status flag for Danby drift (0 = OK, nonzero = ERROR) ! Internals integer ( I4B ) :: i real ( DP ) :: dttmp real ( DP ), dimension ( NDIM ) :: x , v x = [ px , py , pz ] v = [ vx , vy , vz ] call drift_dan ( mu , x (:), v (:), dt , iflag ) if ( iflag /= 0 ) then dttmp = 0.1_DP * dt do i = 1 , 10 call drift_dan ( mu , x (:), v (:), dttmp , iflag ) if ( iflag /= 0 ) exit end do end if px = x ( 1 ); py = x ( 2 ); pz = x ( 3 ) vx = v ( 1 ); vy = v ( 2 ); vz = v ( 3 ) return end subroutine drift_one pure subroutine drift_dan ( mu , x0 , v0 , dt0 , iflag ) !! author: David A. Minton !! !! Perform Kepler drift, solving Kepler's equation in appropriate variables !! !! Adapted from David E. Kaufmann's Swifter routine: drift_dan.f90 !! Adapted from Hal Levison and Martin Duncan's Swift routine drift_dan.f implicit none integer ( I4B ), intent ( out ) :: iflag real ( DP ), intent ( in ) :: mu , dt0 real ( DP ), dimension (:), intent ( inout ) :: x0 , v0 real ( DP ) :: dt , f , g , fdot , gdot , c1 , c2 , c3 , u , alpha , fp , r0 real ( DP ) :: v0s , a , asq , en , dm , ec , es , esq , xkep , fchk , s , c real ( DP ), dimension ( NDIM ) :: x , v ! Executable code iflag = 0 dt = dt0 r0 = sqrt ( dot_product ( x0 (:), x0 (:))) v0s = dot_product ( v0 (:), v0 (:)) u = dot_product ( x0 (:), v0 (:)) alpha = 2 * mu / r0 - v0s if ( alpha > 0.0_DP ) then a = mu / alpha asq = a ** 2 en = sqrt ( mu / ( a * asq )) ec = 1.0_DP - r0 / a es = u / ( en * asq ) esq = ec ** 2 + es ** 2 dm = dt * en - int ( dt * en / TWOPI , kind = I4B ) * TWOPI dt = dm / en if (( esq < E2MAX ) . and . ( dm ** 2 < DM2MAX ) . and . ( esq * dm ** 2 < E2DM2MAX )) then call drift_kepmd ( dm , es , ec , xkep , s , c ) fchk = ( xkep - ec * s + es * ( 1.0_DP - c ) - dm ) ! DEK - original code compared fchk*fchk with DANBYB, but i think it should ! DEK - be compared with DANBYB*DANBYB, and i changed it accordingly - please ! DEK - check with hal and/or martin about this if ( fchk ** 2 > DANBYB ** 2 ) then iflag = 1 return end if fp = 1.0_DP - ec * c + es * s f = a / r0 * ( c - 1.0_DP ) + 1.0_DP g = dt + ( s - xkep ) / en fdot = - ( a / ( r0 * fp )) * en * s gdot = ( c - 1.0_DP ) / fp + 1.0_DP x (:) = x0 (:) * f + v0 (:) * g v (:) = x0 (:) * fdot + v0 (:) * gdot x0 (:) = x (:) v0 (:) = v (:) iflag = 0 return end if end if call drift_kepu ( dt , r0 , mu , alpha , u , fp , c1 , c2 , c3 , iflag ) if ( iflag == 0 ) then f = 1.0_DP - mu / r0 * c2 g = dt - mu * c3 fdot = - mu / ( fp * r0 ) * c1 gdot = 1.0_DP - mu / fp * c2 x (:) = x0 (:) * f + v0 (:) * g v (:) = x0 (:) * fdot + v0 (:) * gdot x0 (:) = x (:) v0 (:) = v (:) end if return end subroutine drift_dan pure subroutine drift_kepmd ( dm , es , ec , x , s , c ) !! author: David A. Minton !! !! Solve Kepler's equation in difference form for an ellipse for small input dm and eccentricity !!    Original disclaimer: built for speed, does not check how well the original equation is solved !!    Can do that in calling routine by checking how close (x - ec*s + es*(1.0 - c) - dm) is to zero !! !! Adapted from David E. Kaufmann's Swifter routine: drift_kepmd.f90 !! Adapted from Martin Duncan's Swift routine drift_kepmd.f implicit none real ( DP ), intent ( in ) :: dm , es , ec real ( DP ), intent ( out ) :: x , s , c real ( DP ), parameter :: a0 = 3991680 0.0_DP , a1 = 665280 0.0_DP , a2 = 33264 0.0_DP , a3 = 792 0.0_DP , a4 = 11 0.0_DP real ( DP ) :: dx , fac1 , fac2 , q , y , f , fp , fpp , fppp ! executable code fac1 = 1.0_DP / ( 1.0_DP - ec ) q = fac1 * dm fac2 = es ** 2 * fac1 - ec / 3.0_DP x = q * ( 1.0_DP - 0.5_DP * fac1 * q * ( es - q * fac2 )) y = x ** 2 s = x * ( a0 - y * ( a1 - y * ( a2 - y * ( a3 - y * ( a4 - y ))))) / a0 c = sqrt ( 1.0_DP - s ** 2 ) f = x - ec * s + es * ( 1.0_DP - c ) - dm fp = 1.0_DP - ec * c + es * s fpp = ec * s + es * c fppp = ec * c - es * s dx = - f / fp dx = - f / ( fp + dx * fpp / 2.0_DP ) dx = - f / ( fp + dx * fpp / 2.0_DP + dx ** 2 * fppp / 6.0_DP ) x = x + dx y = x ** 2 s = x * ( a0 - y * ( a1 - y * ( a2 - y * ( a3 - y * ( a4 - y ))))) / a0 c = sqrt ( 1.0_DP - s ** 2 ) return end subroutine drift_kepmd pure subroutine drift_kepu ( dt , r0 , mu , alpha , u , fp , c1 , c2 , c3 , iflag ) !! author: David A. Minton !! !! Solve Kepler's equation in universal variables !! !! Adapted from David E. Kaufmann's Swifter routine: drift_kepu.f90 !! Adapted from Hal Levison's Swift routine drift_kepu.f implicit none integer ( I4B ), intent ( out ) :: iflag real ( DP ), intent ( in ) :: dt , r0 , mu , alpha , u real ( DP ), intent ( out ) :: fp , c1 , c2 , c3 real ( DP ) :: s , st , fo , fn ! executable code call drift_kepu_guess ( dt , r0 , mu , alpha , u , s ) st = s call drift_kepu_new ( s , dt , r0 , mu , alpha , u , fp , c1 , c2 , c3 , iflag ) if ( iflag /= 0 ) then call drift_kepu_fchk ( dt , r0 , mu , alpha , u , st , fo ) call drift_kepu_fchk ( dt , r0 , mu , alpha , u , s , fn ) if ( abs ( fo ) < abs ( fn )) s = st call drift_kepu_lag ( s , dt , r0 , mu , alpha , u , fp , c1 , c2 , c3 , iflag ) end if return end subroutine drift_kepu pure subroutine drift_kepu_fchk ( dt , r0 , mu , alpha , u , s , f ) !! author: David A. Minton !! !! Computes the value of f, the function whose root we are trying to find in universal variables !! !! Adapted from David E. Kaufmann's Swifter routine: drift_kepu_fchk.f90 !! Adapted from Martin Duncan's Swift routine drift_kepu_fchk.f implicit none real ( DP ), intent ( in ) :: dt , r0 , mu , alpha , u , s real ( DP ), intent ( out ) :: f real ( DP ) :: x , c0 , c1 , c2 , c3 x = s ** 2 * alpha call drift_kepu_stumpff ( x , c0 , c1 , c2 , c3 ) c1 = c1 * s c2 = c2 * s ** 2 c3 = c3 * s ** 3 f = r0 * c1 + u * c2 + mu * c3 - dt return end subroutine drift_kepu_fchk pure subroutine drift_kepu_guess ( dt , r0 , mu , alpha , u , s ) !! author: David A. Minton !! !! Compute initial guess for solving Kepler's equation using universal variables !! !! Adapted from David E. Kaufmann's Swifter routine: drift_kepu_guess.f90 !! Adapted from Hal Levison and Martin Duncan's Swift routine drift_kepu_guess.f implicit none real ( DP ), intent ( in ) :: dt , r0 , mu , alpha , u real ( DP ), intent ( out ) :: s integer ( I4B ) :: iflag real ( DP ), parameter :: thresh = 0.4_DP , danbyk = 0.85_DP real ( DP ) :: y , sy , cy , sigma , es , x , a , en , ec , e if ( alpha > 0.0_DP ) then if ( dt / r0 <= thresh ) then s = dt / r0 - ( dt ** 2 * u ) / ( 2 * r0 ** 3 ) else a = mu / alpha en = sqrt ( mu / a ** 3 ) ec = 1.0_DP - r0 / a es = u / ( en * a ** 2 ) e = sqrt ( ec ** 2 + es ** 2 ) y = en * dt - es call orbel_scget ( y , sy , cy ) sigma = sign ( 1.0_DP , es * cy + ec * sy ) x = y + sigma * danbyk * e s = x / sqrt ( alpha ) end if else call drift_kepu_p3solve ( dt , r0 , mu , alpha , u , s , iflag ) if ( iflag /= 0 ) s = dt / r0 end if return end subroutine drift_kepu_guess pure subroutine drift_kepu_lag ( s , dt , r0 , mu , alpha , u , fp , c1 , c2 , c3 , iflag ) !! author: David A. Minton !! !! Solve Kepler's equation in universal variables using Laguerre's method !!      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 178 - 180. !! !! Adapted from David E. Kaufmann's Swifter routine: drift_kepu_lag.f90 !! Adapted from Hal Levison's Swift routine drift_kepu_lag.f implicit none integer ( I4B ), intent ( out ) :: iflag real ( DP ), intent ( in ) :: dt , r0 , mu , alpha , u real ( DP ), intent ( inout ) :: s real ( DP ), intent ( out ) :: fp , c1 , c2 , c3 integer ( I4B ) :: nc , ncmax real ( DP ) :: ln , x , fpp , ds , c0 , f , fdt if ( alpha < 0.0_DP ) then ncmax = NLAG2 else ncmax = NLAG1 end if ln = 5.0_DP do nc = 0 , ncmax x = s * s * alpha call drift_kepu_stumpff ( x , c0 , c1 , c2 , c3 ) c1 = c1 * s c2 = c2 * s ** 2 c3 = c3 * s ** 3 f = r0 * c1 + u * c2 + mu * c3 - dt fp = r0 * c0 + u * c1 + mu * c2 fpp = ( - r0 * alpha + mu ) * c1 + u * c0 ds = - ln * f / ( fp + sign ( 1.0_DP , fp ) * sqrt ( abs (( ln - 1.0_DP ) ** 2 * fp ** 2 - ( ln - 1.0_DP ) * ln * f * fpp ))) s = s + ds fdt = f / dt if ( fdt ** 2 < DANBYB ** 2 ) then iflag = 0 return end if end do iflag = 2 return end subroutine drift_kepu_lag pure subroutine drift_kepu_new ( s , dt , r0 , mu , alpha , u , fp , c1 , c2 , c3 , iflag ) !! author: David A. Minton !! !! Solve Kepler's equation in universal variables using Newton's method !!      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 174 - 175. !! !! Adapted from David E. Kaufmann's Swifter routine: drift_kepu_new.f90 !! Adapted from Hal Levison's Swift routine drift_kepu_new.f implicit none integer ( I4B ), intent ( out ) :: iflag real ( DP ), intent ( in ) :: dt , r0 , mu , alpha , u real ( DP ), intent ( inout ) :: s real ( DP ), intent ( out ) :: fp , c1 , c2 , c3 integer ( I4B ) :: nc real ( DP ) :: x , c0 , ds , f , fpp , fppp , fdt do nc = 0 , 6 x = s ** 2 * alpha call drift_kepu_stumpff ( x , c0 , c1 , c2 , c3 ) c1 = c1 * s c2 = c2 * s ** 2 c3 = c3 * s ** 3 f = r0 * c1 + u * c2 + mu * c3 - dt fp = r0 * c0 + u * c1 + mu * c2 fpp = ( - r0 * alpha + mu ) * c1 + u * c0 fppp = ( - r0 * alpha + mu ) * c0 - u * alpha * c1 ds = - f / fp ds = - f / ( fp + ds * fpp / 2.0_DP ) ds = - f / ( fp + ds * fpp / 2.0_DP + ds ** 2 * fppp / 6.0_DP ) s = s + ds fdt = f / dt if ( fdt ** 2 < DANBYB ** 2 ) then iflag = 0 return end if end do iflag = 1 return end subroutine drift_kepu_new pure subroutine drift_kepu_p3solve ( dt , r0 , mu , alpha , u , s , iflag ) !! author: David A. Minton !! !! Computes real root of cubic involved in setting initial guess for solving Kepler's equation in universal variables !!      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 177 - 178. !! !! Adapted from David E. Kaufmann's Swifter routine: drift_kepu_p3solve.f90 !! Adapted from Martin Duncan's Swift routine drift_kepu_p3solve.f implicit none integer ( I4B ), intent ( out ) :: iflag real ( DP ), intent ( in ) :: dt , r0 , mu , alpha , u real ( DP ), intent ( out ) :: s real ( DP ) :: denom , a0 , a1 , a2 , q , r , sq2 , sq , p1 , p2 denom = ( mu - alpha * r0 ) / 6.0_DP a2 = 0.5_DP * u / denom a1 = r0 / denom a0 = - dt / denom q = ( a1 - a2 ** 2 / 3.0_DP ) / 3.0_DP r = ( a1 * a2 - 3 * a0 ) / 6.0_DP - a2 ** 3 / 2 7.0_DP sq2 = q ** 3 + r ** 2 if ( sq2 >= 0.0_DP ) then sq = sqrt ( sq2 ) if (( r + sq ) <= 0.0_DP ) then p1 = - ( - ( r + sq )) ** ( 1.0_DP / 3.0_DP ) else p1 = ( r + sq ) ** ( 1.0_DP / 3.0_DP ) end if if (( r - sq ) <= 0.0_DP ) then p2 = - ( - ( r - sq )) ** ( 1.0_DP / 3.0_DP ) else p2 = ( r - sq ) ** ( 1.0_DP / 3.0_DP ) end if iflag = 0 s = p1 + p2 - a2 / 3.0_DP else iflag = 1 s = 0.0_DP end if return end subroutine drift_kepu_p3solve pure subroutine drift_kepu_stumpff ( x , c0 , c1 , c2 , c3 ) !! author: David A. Minton !! !! Compute Stumpff functions needed for Kepler drift in universal variables !!      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 171 - 172. !! !! Adapted from David E. Kaufmann's Swifter routine: drift_kepu_stumpff.f90 !! Adapted from Hal Levison's Swift routine drift_kepu_stumpff.f implicit none real ( DP ), intent ( inout ) :: x real ( DP ), intent ( out ) :: c0 , c1 , c2 , c3 integer ( I4B ) :: i , n real ( DP ) :: xm n = 0 xm = 0.1_DP do while ( abs ( x ) >= xm ) n = n + 1 x = x / 4.0_DP end do c2 = ( 1.0_DP - x * ( 1.0_DP - x * ( 1.0_DP - x * ( 1.0_DP - x * ( 1.0_DP - x * & ( 1.0_DP - x / 18 2.0_DP ) / 13 2.0_DP ) / 9 0.0_DP ) / 5 6.0_DP ) / & 3 0.0_DP ) / 1 2.0_DP ) / 2.0_DP c3 = ( 1.0_DP - x * ( 1.0_DP - x * ( 1.0_DP - x * ( 1.0_DP - x * ( 1.0_DP - x * & ( 1.0_DP - x / 21 0.0_DP ) / 15 6.0_DP ) / 11 0.0_DP ) / 7 2.0_DP ) / & 4 2.0_DP ) / 2 0.0_DP ) / 6.0_DP c1 = 1.0_DP - x * c3 c0 = 1.0_DP - x * c2 if ( n /= 0 ) then do i = n , 1 , - 1 c3 = ( c2 + c0 * c3 ) / 4.0_DP c2 = c1 ** 2 / 2.0_DP c1 = c0 * c1 c0 = 2 * c0 ** 2 - 1.0_DP x = x * 4 end do end if return end subroutine drift_kepu_stumpff end submodule drift_implementation","tags":"","loc":"sourcefile/drift.f90.html"},{"title":"symba_util.f90 – swiftest","text":"This file depends on sourcefile~~symba_util.f90~~EfferentGraph sourcefile~symba_util.f90 symba_util.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_util.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_util Source Code symba_util.f90 Source Code submodule ( symba_classes ) s_symba_util use swiftest contains module subroutine symba_util_append_arr_info ( arr , source , nold , nsrc , lsource_mask ) !! author: David A. Minton !! !! Append a single array of particle information type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. implicit none ! Arguments type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array type ( symba_particle_info ), dimension (:), allocatable , intent ( in ) :: source !! Array to append integer ( I4B ), intent ( in ) :: nold , nsrc !! Extend of the old array and the source array, respectively logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to if (. not . allocated ( source )) return if (. not . allocated ( arr )) then allocate ( arr ( nold + nsrc )) else call util_resize ( arr , nold + nsrc ) end if arr ( nold + 1 : nold + nsrc ) = pack ( source ( 1 : nsrc ), lsource_mask ( 1 : nsrc )) return end subroutine symba_util_append_arr_info module subroutine symba_util_append_arr_kin ( arr , source , nold , nsrc , lsource_mask ) !! author: David A. Minton !! !! Append a single array of kinship type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. implicit none ! Arguments type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array type ( symba_kinship ), dimension (:), allocatable , intent ( in ) :: source !! Array to append integer ( I4B ), intent ( in ) :: nold , nsrc !! Extend of the old array and the source array, respectively logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to if (. not . allocated ( source )) return if (. not . allocated ( arr )) then allocate ( arr ( nold + nsrc )) else call util_resize ( arr , nold + nsrc ) end if arr ( nold + 1 : nold + nsrc ) = pack ( source ( 1 : nsrc ), lsource_mask ( 1 : nsrc )) return end subroutine symba_util_append_arr_kin module subroutine symba_util_append_pl ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from one massive body object to another. !! This method will automatically resize the destination body if it is too small implicit none !! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to select type ( source ) class is ( symba_pl ) associate ( nold => self % nbody , nsrc => source % nbody ) call util_append ( self % lcollision , source % lcollision , nold , nsrc , lsource_mask ) call util_append ( self % lencounter , source % lencounter , nold , nsrc , lsource_mask ) call util_append ( self % lmtiny , source % lmtiny , nold , nsrc , lsource_mask ) call util_append ( self % nplenc , source % nplenc , nold , nsrc , lsource_mask ) call util_append ( self % ntpenc , source % ntpenc , nold , nsrc , lsource_mask ) call util_append ( self % levelg , source % levelg , nold , nsrc , lsource_mask ) call util_append ( self % levelm , source % levelm , nold , nsrc , lsource_mask ) call util_append ( self % isperi , source % isperi , nold , nsrc , lsource_mask ) call util_append ( self % peri , source % peri , nold , nsrc , lsource_mask ) call util_append ( self % atp , source % atp , nold , nsrc , lsource_mask ) call util_append ( self % kin , source % kin , nold , nsrc , lsource_mask ) call util_append ( self % info , source % info , nold , nsrc , lsource_mask ) call util_append_pl ( self , source , lsource_mask ) ! Note: helio_pl does not have its own append method, so we skip back to the base class end associate class default write ( * , * ) \"Invalid object passed to the append method. Source must be of class symba_pl or its descendents!\" call util_exit ( FAILURE ) end select return end subroutine symba_util_append_pl module subroutine symba_util_append_merger ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from one massive body object to another. !! This method will automatically resize the destination body if it is too small implicit none ! Arguments class ( symba_merger ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to ! Internals integer ( I4B ), dimension (:), allocatable :: ncomp_tmp !! Temporary placeholder for ncomp incase we are appending a symba_pl object to a symba_merger integer ( I4B ) :: nold , nsrc nold = self % nbody nsrc = source % nbody select type ( source ) class is ( symba_merger ) call util_append ( self % ncomp , source % ncomp , nold , nsrc , lsource_mask ) call symba_util_append_pl ( self , source , lsource_mask ) class is ( symba_pl ) allocate ( ncomp_tmp , mold = source % id ) ncomp_tmp (:) = 0 call util_append ( self % ncomp , ncomp_tmp , nold , nsrc , lsource_mask ) call symba_util_append_pl ( self , source , lsource_mask ) class default write ( * , * ) \"Invalid object passed to the append method. Source must be of class symba_pl or its descendents!\" call util_exit ( FAILURE ) end select ! Save the number of appended bodies self % ncomp ( nold + 1 : nold + nsrc ) = nsrc return end subroutine symba_util_append_merger module subroutine symba_util_append_tp ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from test particle object to another. !! This method will automatically resize the destination body if it is too small implicit none !! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to select type ( source ) class is ( symba_tp ) associate ( nold => self % nbody , nsrc => source % nbody ) call util_append ( self % nplenc , source % nplenc , nold , nsrc , lsource_mask ) call util_append ( self % levelg , source % levelg , nold , nsrc , lsource_mask ) call util_append ( self % levelm , source % levelm , nold , nsrc , lsource_mask ) call util_append ( self % info , source % info , nold , nsrc , lsource_mask ) call util_append_tp ( self , source , lsource_mask ) ! Note: helio_tp does not have its own append method, so we skip back to the base class end associate class default write ( * , * ) \"Invalid object passed to the append method. Source must be of class symba_tp or its descendents!\" call util_exit ( FAILURE ) end select return end subroutine symba_util_append_tp module subroutine symba_util_fill_arr_info ( keeps , inserts , lfill_list ) !! author: David A. Minton !! !! Performs a fill operation on a single array of particle origin information types !! This is the inverse of a spill operation implicit none ! Arguments type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( symba_particle_info ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps if (. not . allocated ( keeps ) . or . . not . allocated ( inserts )) return keeps (:) = unpack ( keeps (:), . not . lfill_list (:), keeps (:)) keeps (:) = unpack ( inserts (:), lfill_list (:), keeps (:)) return end subroutine symba_util_fill_arr_info module subroutine symba_util_fill_arr_kin ( keeps , inserts , lfill_list ) !! author: David A. Minton !! !! Performs a fill operation on a single array of particle kinship types !! This is the inverse of a spill operation implicit none ! Arguments type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( symba_kinship ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps if (. not . allocated ( keeps ) . or . . not . allocated ( inserts )) return keeps (:) = unpack ( keeps (:), . not . lfill_list (:), keeps (:)) keeps (:) = unpack ( inserts (:), lfill_list (:), keeps (:)) return end subroutine symba_util_fill_arr_kin module subroutine symba_util_fill_pl ( self , inserts , lfill_list ) !! author: David A. Minton !! !! Insert new SyMBA test particle structure into an old one. !! This is the inverse of a fill operation. !! implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA masive body object class ( swiftest_body ), intent ( in ) :: inserts !! Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps associate ( keeps => self ) select type ( inserts ) class is ( symba_pl ) call util_fill ( keeps % lcollision , inserts % lcollision , lfill_list ) call util_fill ( keeps % lencounter , inserts % lencounter , lfill_list ) call util_fill ( keeps % lmtiny , inserts % lmtiny , lfill_list ) call util_fill ( keeps % nplenc , inserts % nplenc , lfill_list ) call util_fill ( keeps % ntpenc , inserts % ntpenc , lfill_list ) call util_fill ( keeps % levelg , inserts % levelg , lfill_list ) call util_fill ( keeps % levelm , inserts % levelm , lfill_list ) call util_fill ( keeps % isperi , inserts % isperi , lfill_list ) call util_fill ( keeps % peri , inserts % peri , lfill_list ) call util_fill ( keeps % atp , inserts % atp , lfill_list ) call util_fill ( keeps % kin , inserts % kin , lfill_list ) call util_fill ( keeps % info , inserts % info , lfill_list ) call util_fill_pl ( keeps , inserts , lfill_list ) ! Note: helio_pl does not have its own fill method, so we skip back to the base class class default write ( * , * ) \"Invalid object passed to the fill method. Source must be of class symba_pl or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine symba_util_fill_pl module subroutine symba_util_fill_tp ( self , inserts , lfill_list ) !! author: David A. Minton !! !! Insert new SyMBA test particle structure into an old one. !! This is the inverse of a fill operation. !! implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object class ( swiftest_body ), intent ( in ) :: inserts !! Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps associate ( keeps => self ) select type ( inserts ) class is ( symba_tp ) call util_fill ( keeps % nplenc , inserts % nplenc , lfill_list ) call util_fill ( keeps % levelg , inserts % levelg , lfill_list ) call util_fill ( keeps % levelm , inserts % levelm , lfill_list ) call util_fill ( keeps % info , inserts % info , lfill_list ) call util_fill_tp ( keeps , inserts , lfill_list ) ! Note: helio_tp does not have its own fill method, so we skip back to the base class class default write ( * , * ) \"Invalid object passed to the fill method. Source must be of class symba_tp or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine symba_util_fill_tp module subroutine symba_util_peri_pl ( self , system , param ) !! author: David A. Minton !! !! Determine system pericenter passages for planets in SyMBA !! !! Adapted from David E. Kaufmann's Swifter routine: symba_peri.f90 !! Adapted from Hal Levison's Swift routine util_mass_peri.f implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i real ( DP ) :: vdotr , e associate ( pl => self , npl => self % nbody ) if ( pl % lfirst ) then if ( param % qmin_coord == \"HELIO\" ) then do i = 1 , npl if ( pl % status ( i ) == ACTIVE ) then vdotr = dot_product ( pl % xh (:, i ), pl % vh (:, i )) if ( vdotr > 0.0_DP ) then pl % isperi ( i ) = 1 else pl % isperi ( i ) = - 1 end if end if end do else do i = 1 , npl if ( pl % status ( i ) == ACTIVE ) then vdotr = dot_product ( pl % xb (:, i ), pl % vb (:, i )) if ( vdotr > 0.0_DP ) then pl % isperi ( i ) = 1 else pl % isperi ( i ) = - 1 end if end if end do end if else if ( param % qmin_coord == \"HELIO\" ) then do i = 1 , npl if ( pl % status ( i ) == ACTIVE ) then vdotr = dot_product ( pl % xh (:, i ), pl % vh (:, i )) if ( pl % isperi ( i ) == - 1 ) then if ( vdotr >= 0.0_DP ) then pl % isperi ( i ) = 0 CALL orbel_xv2aeq ( pl % mu ( i ), pl % xh (:, i ), pl % vh (:, i ), pl % atp ( i ), e , pl % peri ( i )) end if else if ( vdotr > 0.0_DP ) then pl % isperi ( i ) = 1 else pl % isperi ( i ) = - 1 end if end if end if end do else do i = 1 , npl if ( pl % status ( i ) == ACTIVE ) then vdotr = dot_product ( pl % xb (:, i ), pl % vb (:, i )) if ( pl % isperi ( i ) == - 1 ) then if ( vdotr >= 0.0_DP ) then pl % isperi ( i ) = 0 CALL orbel_xv2aeq ( system % Gmtot , pl % xb (:, i ), pl % vb (:, i ), pl % atp ( i ), e , pl % peri ( i )) end if else if ( vdotr > 0.0_DP ) then pl % isperi ( i ) = 1 else pl % isperi ( i ) = - 1 end if end if end if end do end if end if end associate return end subroutine symba_util_peri_pl module subroutine symba_util_rearray_pl ( self , system , param ) !! Author: the Purdue Swiftest Team -  David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Clean up the massive body structures to remove discarded bodies and add new bodies implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( symba_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals class ( symba_pl ), allocatable :: tmp !! The discarded body list. integer ( I4B ) :: i logical , dimension (:), allocatable :: lmask associate ( pl => self , pl_adds => system % pl_adds ) allocate ( tmp , mold = pl ) ! Remove the discards and destroy the list, as the system already tracks pl_discards elsewhere allocate ( lmask , source = pl % ldiscard (:)) lmask (:) = lmask (:) . or . pl % status (:) == INACTIVE call pl % spill ( tmp , lspill_list = lmask , ldestructive = . true .) call tmp % setup ( 0 , param ) deallocate ( tmp ) ! Deallocate any temporary variables if ( allocated ( pl % xbeg )) deallocate ( pl % xbeg ) if ( allocated ( pl % xend )) deallocate ( pl % xend ) ! Add in any new bodies if ( pl_adds % nbody > 0 ) then call pl % append ( pl_adds , lsource_mask = [(. true ., i = 1 , pl_adds % nbody )]) call symba_io_dump_particle_info ( system , param , plidx = [( i , i = 1 , pl % nbody )]) end if ! If there are still bodies in the system, sort by mass in descending order and re-index if ( pl % nbody > 0 ) then call pl % sort ( \"mass\" , ascending = . false .) pl % lmtiny (:) = pl % Gmass (:) > param % GMTINY pl % nplm = count ( pl % lmtiny (:)) call pl % eucl_index () end if end associate return end subroutine symba_util_rearray_pl module subroutine symba_util_resize_arr_info ( arr , nnew ) !! author: David A. Minton !! !! Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. implicit none ! Arguments type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size ! Internals type ( symba_particle_info ), dimension (:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated integer ( I4B ) :: nold !! Old size if (. not . allocated ( arr ) . or . nnew < 0 ) return nold = size ( arr ) if ( nnew == nold ) return if ( nnew == 0 ) then deallocate ( arr ) return end if allocate ( tmp ( nnew )) if ( nnew > nold ) then tmp ( 1 : nold ) = arr ( 1 : nold ) else tmp ( 1 : nnew ) = arr ( 1 : nnew ) end if call move_alloc ( tmp , arr ) return end subroutine symba_util_resize_arr_info module subroutine symba_util_resize_arr_kin ( arr , nnew ) !! author: David A. Minton !! !! Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. implicit none ! Arguments type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size ! Internals type ( symba_kinship ), dimension (:), allocatable :: tmp !! Temporary storage array in case the input array is already allocated integer ( I4B ) :: nold !! Old size if (. not . allocated ( arr ) . or . nnew < 0 ) return nold = size ( arr ) if ( nnew == nold ) return if ( nnew == 0 ) then deallocate ( arr ) return end if allocate ( tmp ( nnew )) if ( nnew > nold ) then tmp ( 1 : nold ) = arr ( 1 : nold ) else tmp ( 1 : nnew ) = arr ( 1 : nnew ) end if call move_alloc ( tmp , arr ) return end subroutine symba_util_resize_arr_kin module subroutine symba_util_resize_merger ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a SyMBA merger list against the requested size and resizes it if it is too small. implicit none ! Arguments class ( symba_merger ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded call util_resize ( self % ncomp , nnew ) call symba_util_resize_pl ( self , nnew ) return end subroutine symba_util_resize_merger module subroutine symba_util_resize_pl ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a SyMBA massive body object against the requested size and resizes it if it is too small. implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded call util_resize ( self % lcollision , nnew ) call util_resize ( self % lencounter , nnew ) call util_resize ( self % lmtiny , nnew ) call util_resize ( self % nplenc , nnew ) call util_resize ( self % ntpenc , nnew ) call util_resize ( self % levelg , nnew ) call util_resize ( self % levelm , nnew ) call util_resize ( self % isperi , nnew ) call util_resize ( self % peri , nnew ) call util_resize ( self % atp , nnew ) call util_resize ( self % kin , nnew ) call util_resize ( self % info , nnew ) call util_resize_pl ( self , nnew ) return end subroutine symba_util_resize_pl module subroutine symba_util_resize_tp ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a test particle object against the requested size and resizes it if it is too small. implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object integer ( I4B ), intent ( in ) :: nnew !! New size neded call util_resize ( self % nplenc , nnew ) call util_resize ( self % levelg , nnew ) call util_resize ( self % levelm , nnew ) call util_resize ( self % info , nnew ) call util_resize_tp ( self , nnew ) return end subroutine symba_util_resize_tp module subroutine symba_util_sort_pl ( self , sortby , ascending ) !! author: David A. Minton !! !! Sort a SyMBA massive body object in-place. !! sortby is a string indicating which array component to sort. implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order ! Internals integer ( I4B ), dimension ( self % nbody ) :: ind integer ( I4B ) :: direction if ( self % nbody == 0 ) return if ( ascending ) then direction = 1 else direction = - 1 end if associate ( pl => self , npl => self % nbody ) select case ( sortby ) case ( \"nplenc\" ) call util_sort ( direction * pl % nplenc ( 1 : npl ), ind ( 1 : npl )) case ( \"ntpenc\" ) call util_sort ( direction * pl % ntpenc ( 1 : npl ), ind ( 1 : npl )) case ( \"levelg\" ) call util_sort ( direction * pl % levelg ( 1 : npl ), ind ( 1 : npl )) case ( \"levelm\" ) call util_sort ( direction * pl % levelm ( 1 : npl ), ind ( 1 : npl )) case ( \"peri\" ) call util_sort ( direction * pl % peri ( 1 : npl ), ind ( 1 : npl )) case ( \"atp\" ) call util_sort ( direction * pl % atp ( 1 : npl ), ind ( 1 : npl )) case ( \"lcollision\" , \"lencounter\" , \"lmtiny\" , \"nplm\" , \"nplplm\" , \"kin\" , \"info\" ) write ( * , * ) 'Cannot sort by ' // trim ( adjustl ( sortby )) // '. Component not sortable!' case default ! Look for components in the parent class call util_sort_pl ( pl , sortby , ascending ) return end select call pl % rearrange ( ind ) end associate return end subroutine symba_util_sort_pl module subroutine symba_util_sort_tp ( self , sortby , ascending ) !! author: David A. Minton !! !! Sort a SyMBA test particle object in-place. !! sortby is a string indicating which array component to sort. implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order ! Internals integer ( I4B ), dimension ( self % nbody ) :: ind integer ( I4B ) :: direction if ( self % nbody == 0 ) return if ( ascending ) then direction = 1 else direction = - 1 end if associate ( tp => self , ntp => self % nbody ) select case ( sortby ) case ( \"nplenc\" ) call util_sort ( direction * tp % nplenc ( 1 : ntp ), ind ( 1 : ntp )) case ( \"levelg\" ) call util_sort ( direction * tp % levelg ( 1 : ntp ), ind ( 1 : ntp )) case ( \"levelm\" ) call util_sort ( direction * tp % levelm ( 1 : ntp ), ind ( 1 : ntp )) case default ! Look for components in the parent class call util_sort_tp ( tp , sortby , ascending ) return end select call tp % rearrange ( ind ) end associate return end subroutine symba_util_sort_tp module subroutine symba_util_sort_rearrange_pl ( self , ind ) !! author: David A. Minton !! !! Rearrange SyMBA massive body structure in-place from an index list. !! This is a helper utility used to make polymorphic sorting work on Swiftest structures. implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) ! Internals class ( symba_pl ), allocatable :: pl_sorted !! Temporary holder for sorted body integer ( I4B ) :: i , j associate ( pl => self , npl => self % nbody ) call util_sort_rearrange_pl ( pl , ind ) allocate ( pl_sorted , source = self ) if ( allocated ( pl % lcollision )) pl % lcollision ( 1 : npl ) = pl_sorted % lcollision ( ind ( 1 : npl )) if ( allocated ( pl % lencounter )) pl % lencounter ( 1 : npl ) = pl_sorted % lencounter ( ind ( 1 : npl )) if ( allocated ( pl % lmtiny )) pl % lmtiny ( 1 : npl ) = pl_sorted % lmtiny ( ind ( 1 : npl )) if ( allocated ( pl % nplenc )) pl % nplenc ( 1 : npl ) = pl_sorted % nplenc ( ind ( 1 : npl )) if ( allocated ( pl % ntpenc )) pl % ntpenc ( 1 : npl ) = pl_sorted % ntpenc ( ind ( 1 : npl )) if ( allocated ( pl % levelg )) pl % levelg ( 1 : npl ) = pl_sorted % levelg ( ind ( 1 : npl )) if ( allocated ( pl % levelm )) pl % levelm ( 1 : npl ) = pl_sorted % levelm ( ind ( 1 : npl )) if ( allocated ( pl % isperi )) pl % isperi ( 1 : npl ) = pl_sorted % isperi ( ind ( 1 : npl )) if ( allocated ( pl % peri )) pl % peri ( 1 : npl ) = pl_sorted % peri ( ind ( 1 : npl )) if ( allocated ( pl % atp )) pl % atp ( 1 : npl ) = pl_sorted % atp ( ind ( 1 : npl )) if ( allocated ( pl % info )) pl % info ( 1 : npl ) = pl_sorted % info ( ind ( 1 : npl )) if ( allocated ( pl % kin )) then pl % kin ( 1 : npl ) = pl_sorted % kin ( ind ( 1 : npl )) do i = 1 , npl do j = 1 , pl % kin ( i )% nchild pl % kin ( i )% child ( j ) = ind ( pl % kin ( i )% child ( j )) end do end do end if deallocate ( pl_sorted ) end associate return end subroutine symba_util_sort_rearrange_pl module subroutine symba_util_sort_rearrange_tp ( self , ind ) !! author: David A. Minton !! !! Rearrange SyMBA test particle object in-place from an index list. !! This is a helper utility used to make polymorphic sorting work on Swiftest structures. implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) ! Internals class ( symba_tp ), allocatable :: tp_sorted !! Temporary holder for sorted body associate ( tp => self , ntp => self % nbody ) call util_sort_rearrange_tp ( tp , ind ) allocate ( tp_sorted , source = self ) if ( allocated ( tp % nplenc )) tp % nplenc ( 1 : ntp ) = tp_sorted % nplenc ( ind ( 1 : ntp )) if ( allocated ( tp % levelg )) tp % levelg ( 1 : ntp ) = tp_sorted % levelg ( ind ( 1 : ntp )) if ( allocated ( tp % levelm )) tp % levelm ( 1 : ntp ) = tp_sorted % levelm ( ind ( 1 : ntp )) if ( allocated ( tp % info )) tp % info ( 1 : ntp ) = tp_sorted % info ( ind ( 1 : ntp )) deallocate ( tp_sorted ) end associate return end subroutine symba_util_sort_rearrange_tp module subroutine symba_util_spill_arr_info ( keeps , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Performs a spill operation on a single array of particle origin information types !! This is the inverse of a spill operation implicit none ! Arguments type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardss logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not if (. not . allocated ( keeps ) . or . count ( lspill_list (:)) == 0 ) return if (. not . allocated ( discards )) allocate ( discards ( count ( lspill_list (:)))) discards (:) = pack ( keeps (:), lspill_list (:)) if ( ldestructive ) then if ( count (. not . lspill_list (:)) > 0 ) then keeps (:) = pack ( keeps (:), . not . lspill_list (:)) else deallocate ( keeps ) end if end if return end subroutine symba_util_spill_arr_info module subroutine symba_util_spill_arr_kin ( keeps , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Performs a spill operation on a single array of particle kinships !! This is the inverse of a spill operation implicit none ! Arguments type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardss logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not if (. not . allocated ( keeps ) . or . count ( lspill_list (:)) == 0 ) return if (. not . allocated ( discards )) allocate ( discards ( count ( lspill_list (:)))) discards (:) = pack ( keeps (:), lspill_list (:)) if ( ldestructive ) then if ( count (. not . lspill_list (:)) > 0 ) then keeps (:) = pack ( keeps (:), . not . lspill_list (:)) else deallocate ( keeps ) end if end if return end subroutine symba_util_spill_arr_kin module subroutine symba_util_spill_pl ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) SyMBA massive body particle structure from active list to discard list !! Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list ! Internals integer ( I4B ) :: i ! For each component, pack the discarded bodies into the discard object and do the inverse with the keeps !> Spill all the common components associate ( keeps => self ) select type ( discards ) class is ( symba_pl ) call util_spill ( keeps % lcollision , discards % lcollision , lspill_list , ldestructive ) call util_spill ( keeps % lencounter , discards % lencounter , lspill_list , ldestructive ) call util_spill ( keeps % lmtiny , discards % lmtiny , lspill_list , ldestructive ) call util_spill ( keeps % nplenc , discards % nplenc , lspill_list , ldestructive ) call util_spill ( keeps % ntpenc , discards % ntpenc , lspill_list , ldestructive ) call util_spill ( keeps % levelg , discards % levelg , lspill_list , ldestructive ) call util_spill ( keeps % levelm , discards % levelm , lspill_list , ldestructive ) call util_spill ( keeps % isperi , discards % isperi , lspill_list , ldestructive ) call util_spill ( keeps % peri , discards % peri , lspill_list , ldestructive ) call util_spill ( keeps % atp , discards % atp , lspill_list , ldestructive ) call util_spill ( keeps % info , discards % info , lspill_list , ldestructive ) call util_spill ( keeps % kin , discards % kin , lspill_list , ldestructive ) call util_spill_pl ( keeps , discards , lspill_list , ldestructive ) class default write ( * , * ) \"Invalid object passed to the spill method. Source must be of class symba_pl or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine symba_util_spill_pl module subroutine symba_util_spill_pltpenc ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) SyMBA encounter structure from active list to discard list !! Note: Because the symba_plplenc currently does not contain any additional variable components, this method can recieve it as an input as well. implicit none ! Arguments class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-tp encounter list class ( swiftest_encounter ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list ! Internals integer ( I4B ) :: i associate ( keeps => self ) select type ( discards ) class is ( symba_pltpenc ) call util_spill ( keeps % level , discards % level , lspill_list , ldestructive ) call util_spill_encounter ( keeps , discards , lspill_list , ldestructive ) class default write ( * , * ) \"Invalid object passed to the spill method. Source must be of class symba_pltpenc or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine symba_util_spill_pltpenc module subroutine symba_util_spill_tp ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) SyMBA test particle structure from active list to discard list !! Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list ! Internals integer ( I4B ) :: i ! For each component, pack the discarded bodies into the discard object and do the inverse with the keeps !> Spill all the common components associate ( keeps => self ) select type ( discards ) class is ( symba_tp ) call util_spill ( keeps % nplenc , discards % nplenc , lspill_list , ldestructive ) call util_spill ( keeps % levelg , discards % levelg , lspill_list , ldestructive ) call util_spill ( keeps % levelm , discards % levelm , lspill_list , ldestructive ) call util_spill ( keeps % info , discards % info , lspill_list , ldestructive ) call util_spill_tp ( keeps , discards , lspill_list , ldestructive ) class default write ( * , * ) \"Invalid object passed to the spill method. Source must be of class symba_tp or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine symba_util_spill_tp end submodule s_symba_util","tags":"","loc":"sourcefile/symba_util.f90.html"},{"title":"symba_collision.f90 – swiftest","text":"This file depends on sourcefile~~symba_collision.f90~~EfferentGraph sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_collision.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_collision Source Code symba_collision.f90 Source Code submodule ( symba_classes ) s_symba_collision use swiftest contains module subroutine symba_collision_check_pltpenc ( self , system , param , t , dt , irec ) !! author: David A. Minton !! !! Check for merger between massive bodies and test particles in SyMBA !! !! Adapted from David E. Kaufmann's Swifter routine symba_merge.f90 and symba_merge_tp.f90 !! !! Adapted from Hal Levison's Swift routine symba5_merge.f implicit none ! Arguments class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-tp encounter list object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! current time real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level ! Internals logical , dimension (:), allocatable :: lcollision , lmask real ( DP ), dimension ( NDIM ) :: xr , vr integer ( I4B ) :: k real ( DP ) :: rlim , Gmtot logical :: isplpl if ( self % nenc == 0 ) return select type ( self ) class is ( symba_plplenc ) isplpl = . true . class default isplpl = . false . end select select type ( pl => system % pl ) class is ( symba_pl ) select type ( tp => system % tp ) class is ( symba_tp ) associate ( nenc => self % nenc , ind1 => self % index1 , ind2 => self % index2 ) allocate ( lmask ( nenc )) lmask (:) = (( self % status ( 1 : nenc ) == ACTIVE ) . and . ( pl % levelg ( ind1 ( 1 : nenc )) >= irec )) if ( isplpl ) then lmask (:) = lmask (:) . and . ( pl % levelg ( ind2 ( 1 : nenc )) >= irec ) else lmask (:) = lmask (:) . and . ( tp % levelg ( ind2 ( 1 : nenc )) >= irec ) end if if (. not . any ( lmask (:))) return allocate ( lcollision ( nenc )) lcollision (:) = . false . if ( isplpl ) then do concurrent ( k = 1 : nenc , lmask ( k )) xr (:) = pl % xh (:, ind1 ( k )) - pl % xh (:, ind2 ( k )) vr (:) = pl % vb (:, ind1 ( k )) - pl % vb (:, ind2 ( k )) rlim = pl % radius ( ind1 ( k )) + pl % radius ( ind2 ( k )) Gmtot = pl % Gmass ( ind1 ( k )) + pl % Gmass ( ind2 ( k )) lcollision ( k ) = symba_collision_check_one ( xr ( 1 ), xr ( 2 ), xr ( 3 ), vr ( 1 ), vr ( 2 ), vr ( 3 ), Gmtot , rlim , dt , self % lvdotr ( k )) end do else do concurrent ( k = 1 : nenc , lmask ( k )) xr (:) = pl % xh (:, ind1 ( k )) - tp % xh (:, ind2 ( k )) vr (:) = pl % vb (:, ind1 ( k )) - tp % vb (:, ind2 ( k )) lcollision ( k ) = symba_collision_check_one ( xr ( 1 ), xr ( 2 ), xr ( 3 ), vr ( 1 ), vr ( 2 ), vr ( 3 ), pl % Gmass ( ind1 ( k )), pl % radius ( ind1 ( k )), dt , self % lvdotr ( k )) end do end if if ( any ( lcollision (:))) then do k = 1 , nenc if (. not . lcollision ( k )) cycle self % status ( k ) = COLLISION self % x1 (:, k ) = pl % xh (:, ind1 ( k )) self % v1 (:, k ) = pl % vb (:, ind1 ( k )) if ( isplpl ) then self % x2 (:, k ) = pl % xh (:, ind2 ( k )) self % v2 (:, k ) = pl % vb (:, ind2 ( k )) ! Check to see if either of these bodies has been involved with a collision before, and if so, make this a collisional family if ( pl % lcollision ( ind1 ( k )) . or . pl % lcollision ( ind2 ( k ))) call pl % make_family ([ ind1 ( k ), ind2 ( k )]) ! Set the collision flag for these to bodies to true in case they become involved in another collision later in the step pl % lcollision ([ ind1 ( k ), ind2 ( k )]) = . true . pl % ldiscard ([ ind1 ( k ), ind2 ( k )]) = . true . pl % status ([ ind1 ( k ), ind2 ( k )]) = COLLISION else self % x2 (:, k ) = tp % xh (:, ind2 ( k )) self % v2 (:, k ) = tp % vb (:, ind2 ( k )) tp % status ( ind2 ( k )) = DISCARDED_PLR tp % ldiscard ( ind2 ( k )) = . true . write ( * , * ) 'Test particle ' , tp % id ( ind2 ( k )), ' collided with massive body ' , pl % id ( ind1 ( k )), ' at time ' , t end if end do end if end associate end select end select return end subroutine symba_collision_check_pltpenc pure elemental function symba_collision_check_one ( xr , yr , zr , vxr , vyr , vzr , Gmtot , rlim , dt , lvdotr ) result ( lcollision ) !! author: David A. Minton !! !! Check for a merger between a single pair of particles !! !! Adapted from David E. Kaufmann's Swifter routines symba_merge_tp.f90 and symba_merge_pl.f90 !! !! Adapted from Hal Levison's Swift routine symba5_merge.f implicit none ! Arguments real ( DP ), intent ( in ) :: xr , yr , zr !! Relative position vector components real ( DP ), intent ( in ) :: vxr , vyr , vzr !! Relative velocity vector components real ( DP ), intent ( in ) :: Gmtot !! Sum of G*mass of colliding bodies real ( DP ), intent ( in ) :: rlim !! Collision limit - Typically the sum of the radii of colliding bodies real ( DP ), intent ( in ) :: dt !! Step size logical , intent ( in ) :: lvdotr !! Logical flag indicating that these two bodies are approaching in the current substep ! Result logical :: lcollision !! Logical flag indicating whether these two bodies will collide or not ! Internals real ( DP ) :: r2 , rlim2 , a , e , q , vdotr , tcr2 , dt2 r2 = xr ** 2 + yr ** 2 + zr ** 2 rlim2 = rlim ** 2 if ( r2 <= rlim2 ) then ! checks if bodies are actively colliding in this time step lcollision = . true . else ! if they are not actively colliding in  this time step, checks if they are going to collide next time step based on velocities and q lcollision = . false . vdotr = xr * vxr + yr * vyr + zr * vzr if ( lvdotr . and . ( vdotr > 0.0_DP )) then tcr2 = r2 / ( vxr ** 2 + vyr ** 2 + vzr ** 2 ) dt2 = dt ** 2 if ( tcr2 <= dt2 ) then call orbel_xv2aeq ( Gmtot , [ xr , yr , zr ], [ vxr , vyr , vzr ], a , e , q ) lcollision = ( q < rlim ) end if end if end if return end function symba_collision_check_one function symba_collision_consolidate_familes ( pl , param , idx_parent , family , x , v , mass , radius , L_spin , Ip ) result ( lflag ) !! author: David A. Minton !! !! Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all family members, !! and pairs of quantities (x and v vectors, mass, radius, L_spin, and Ip) that can be used to resolve the collisional outcome. implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: pl !! SyMBA massive body object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension ( 2 ), intent ( inout ) :: idx_parent !! Index of the two bodies considered the \"parents\" of the collision integer ( I4B ), dimension (:), allocatable , intent ( out ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension ( NDIM , 2 ), intent ( out ) :: x , v , L_spin , Ip !! Output values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension ( 2 ), intent ( out ) :: mass , radius !! Output values that represent a 2-body equivalent of a possibly 2+ body collision ! Result logical :: lflag !! Logical flag indicating whether a family was successfully created or not ! Internals type family_array integer ( I4B ), dimension (:), allocatable :: id integer ( I4B ), dimension (:), allocatable :: idx end type family_array type ( family_array ), dimension ( 2 ) :: parent_child_index_array integer ( I4B ), dimension ( 2 ) :: nchild integer ( I4B ) :: i , j , fam_size , idx_child real ( DP ), dimension ( 2 ) :: volume , density real ( DP ) :: mchild , mtot , volchild real ( DP ), dimension ( NDIM ) :: xc , vc , xcom , vcom , xchild , vchild , xcrossv nchild (:) = pl % kin ( idx_parent (:))% nchild ! If all of these bodies share a parent, but this is still a unique collision, move the last child ! out of the parent's position and make it the secondary body if ( idx_parent ( 1 ) == idx_parent ( 2 )) then if ( nchild ( 1 ) == 0 ) then ! There is only one valid body recorded in this pair (this could happen due to restructuring of the kinship relationships, though it should be rare) lflag = . false . return end if idx_parent ( 2 ) = pl % kin ( idx_parent ( 1 ))% child ( nchild ( 1 )) nchild ( 1 ) = nchild ( 1 ) - 1 nchild ( 2 ) = 0 pl % kin ( idx_parent (:))% nchild = nchild (:) pl % kin ( idx_parent ( 2 ))% parent = idx_parent ( 1 ) end if mass (:) = pl % mass ( idx_parent (:)) ! Note: This is meant to mass, not G*mass, as the collisional regime determination uses mass values that will be converted to Si radius (:) = pl % radius ( idx_parent (:)) volume (:) = ( 4.0_DP / 3.0_DP ) * PI * radius (:) ** 3 ! Group together the ids and indexes of each collisional parent and its children do j = 1 , 2 allocate ( parent_child_index_array ( j )% idx ( nchild ( j ) + 1 )) allocate ( parent_child_index_array ( j )% id ( nchild ( j ) + 1 )) associate ( idx_arr => parent_child_index_array ( j )% idx , & id_arr => parent_child_index_array ( j )% id , & ncj => nchild ( j ), & pl => pl , & plkinj => pl % kin ( idx_parent ( j ))) idx_arr ( 1 ) = idx_parent ( j ) if ( ncj > 0 ) idx_arr ( 2 : ncj + 1 ) = plkinj % child ( 1 : ncj ) id_arr (:) = pl % id ( idx_arr (:)) end associate end do ! Consolidate the groups of collsional parents with any children they may have into a single \"family\" index array fam_size = 2 + sum ( nchild (:)) allocate ( family ( fam_size )) family = [ parent_child_index_array ( 1 )% idx (:), parent_child_index_array ( 2 )% idx (:)] fam_size = count ( pl % lcollision ( family (:))) family = pack ( family (:), pl % lcollision ( family (:))) L_spin (:,:) = 0.0_DP Ip (:,:) = 0.0_DP ! Find the barycenter of each body along with its children, if it has any do j = 1 , 2 x (:, j ) = pl % xb (:, idx_parent ( j )) v (:, j ) = pl % vb (:, idx_parent ( j )) ! Assume principal axis rotation about axis corresponding to highest moment of inertia (3rd Ip) if ( param % lrotation ) then Ip (:, j ) = mass ( j ) * pl % Ip (:, idx_parent ( j )) L_spin (:, j ) = Ip ( 3 , j ) * radius ( j ) ** 2 * pl % rot (:, idx_parent ( j )) end if if ( nchild ( j ) > 0 ) then do i = 1 , nchild ( j ) ! Loop over all children and take the mass weighted mean of the properties idx_child = parent_child_index_array ( j )% idx ( i + 1 ) if (. not . pl % lcollision ( idx_child )) cycle mchild = pl % mass ( idx_child ) xchild (:) = pl % xb (:, idx_child ) vchild (:) = pl % vb (:, idx_child ) volchild = ( 4.0_DP / 3.0_DP ) * PI * pl % radius ( idx_child ) ** 3 volume ( j ) = volume ( j ) + volchild ! Get angular momentum of the child-parent pair and add that to the spin ! Add the child's spin if ( param % lrotation ) then xcom (:) = ( mass ( j ) * x (:, j ) + mchild * xchild (:)) / ( mass ( j ) + mchild ) vcom (:) = ( mass ( j ) * v (:, j ) + mchild * vchild (:)) / ( mass ( j ) + mchild ) xc (:) = x (:, j ) - xcom (:) vc (:) = v (:, j ) - vcom (:) xcrossv (:) = xc (:) . cross . vc (:) L_spin (:, j ) = L_spin (:, j ) + mass ( j ) * xcrossv (:) xc (:) = xchild (:) - xcom (:) vc (:) = vchild (:) - vcom (:) xcrossv (:) = xc (:) . cross . vc (:) L_spin (:, j ) = L_spin (:, j ) + mchild * xcrossv (:) L_spin (:, j ) = L_spin (:, j ) + mchild * pl % Ip ( 3 , idx_child ) * pl % radius ( idx_child ) ** 2 * pl % rot (:, idx_child ) Ip (:, j ) = Ip (:, j ) + mchild * pl % Ip (:, idx_child ) end if ! Merge the child and parent mass ( j ) = mass ( j ) + mchild x (:, j ) = xcom (:) v (:, j ) = vcom (:) end do end if density ( j ) = mass ( j ) / volume ( j ) radius ( j ) = (( 3 * mass ( j )) / ( density ( j ) * 4 * pi )) ** ( 1.0_DP / 3.0_DP ) if ( param % lrotation ) Ip (:, j ) = Ip (:, j ) / mass ( j ) end do lflag = . true . return end function symba_collision_consolidate_familes module subroutine symba_collision_encounter_scrub ( self , system , param ) !! author: David A. Minton !! !! Processes the pl-pl encounter list remove only those encounters that led to a collision !! implicit none ! Arguments class ( symba_plplenc ), intent ( inout ) :: self !! SyMBA pl-pl encounter list class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals logical , dimension ( self % nenc ) :: lplpl_collision logical , dimension (:), allocatable :: lplpl_unique_parent integer ( I4B ), dimension (:), pointer :: plparent integer ( I4B ), dimension (:), allocatable :: collision_idx , unique_parent_idx integer ( I4B ) :: i , index_coll , ncollisions , nunique_parent type ( symba_plplenc ) :: plplenc_noncollision select type ( pl => system % pl ) class is ( symba_pl ) associate ( plplenc_list => self , nplplenc => self % nenc , idx1 => self % index1 , idx2 => self % index2 , plparent => pl % kin % parent ) lplpl_collision (:) = plplenc_list % status ( 1 : nplplenc ) == COLLISION if ( any ( lplpl_collision )) then ! Collisions have been detected in this step. So we need to determine which of them are between unique bodies. ! Get the subset of pl-pl encounters that lead to a collision ncollisions = count ( lplpl_collision (:)) allocate ( collision_idx ( ncollisions )) collision_idx = pack ([( i , i = 1 , nplplenc )], lplpl_collision ) ! Get the subset of collisions that involve a unique pair of parents allocate ( lplpl_unique_parent ( ncollisions )) lplpl_unique_parent (:) = plparent ( idx1 ( collision_idx (:))) /= plparent ( idx2 ( collision_idx (:))) nunique_parent = count ( lplpl_unique_parent (:)) allocate ( unique_parent_idx ( nunique_parent )) unique_parent_idx = pack ( collision_idx (:), lplpl_unique_parent (:)) ! Scrub all pl-pl collisions involving unique pairs of parents, which will remove all duplicates and leave behind ! all pairs that have themselves as parents but are not part of the unique parent list. This can hapepn in rare cases ! due to restructuring of parent/child relationships when there are large numbers of multi-body collisions in a single ! step lplpl_unique_parent (:) = . true . do index_coll = 1 , ncollisions associate ( ip1 => plparent ( idx1 ( collision_idx ( index_coll ))), ip2 => plparent ( idx2 ( collision_idx ( index_coll )))) lplpl_unique_parent (:) = . not . ( any ( plparent ( idx1 ( unique_parent_idx (:))) == ip1 ) . or . & any ( plparent ( idx2 ( unique_parent_idx (:))) == ip1 ) . or . & any ( plparent ( idx1 ( unique_parent_idx (:))) == ip2 ) . or . & any ( plparent ( idx2 ( unique_parent_idx (:))) == ip2 ) ) end associate end do ! Reassemble collision index list to include only those containing the unique pairs of parents, plus all the non-unique pairs that don't ! contain a parent body on the unique parent list. ncollisions = nunique_parent + count ( lplpl_unique_parent ) collision_idx = [ unique_parent_idx (:), pack ( collision_idx (:), lplpl_unique_parent (:))] ! Create a mask that contains only the pl-pl encounters that did not result in a collision, and then discard them lplpl_collision (:) = . false . lplpl_collision ( collision_idx (:)) = . true . end if call plplenc_list % spill ( plplenc_noncollision , . not . lplpl_collision , ldestructive = . true .) ! Remove any encounters that are not collisions from the list. end associate end select return end subroutine symba_collision_encounter_scrub module subroutine symba_collision_make_family_pl ( self , idx ) !! author: Jennifer L.L. Pouplin, Carlisle A. wishard, and David A. Minton !! !! When a single body is involved in more than one collision in a single step, it becomes part of a family. !! The largest body involved in a multi-body collision is the \"parent\" and all bodies that collide with it are its \"children,\" !! including those that collide with the children. !! !! Adapted from David E. Kaufmann's Swifter routine symba_merge_pl.f90 !! !! Adapted from Hal Levison's Swift routine symba5_merge.f implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), dimension ( 2 ), intent ( in ) :: idx !! Array holding the indices of the two bodies involved in the collision ! Internals integer ( I4B ) :: i , j , index_parent , index_child , p1 , p2 integer ( I4B ) :: nchild_inherit , nchild_orig , nchild_new integer ( I4B ), dimension (:), allocatable :: temp associate ( pl => self ) p1 = pl % kin ( idx ( 1 ))% parent p2 = pl % kin ( idx ( 2 ))% parent if ( p1 == p2 ) return ! This is a collision between to children of a shared parent. We will ignore it. if ( pl % mass ( p1 ) > pl % mass ( p2 )) then index_parent = p1 index_child = p2 else index_parent = p2 index_child = p1 end if ! Expand the child array (or create it if necessary) and copy over the previous lists of children nchild_orig = pl % kin ( index_parent )% nchild nchild_inherit = pl % kin ( index_child )% nchild nchild_new = nchild_orig + nchild_inherit + 1 allocate ( temp ( nchild_new )) if ( nchild_orig > 0 ) temp ( 1 : nchild_orig ) = pl % kin ( index_parent )% child ( 1 : nchild_orig ) ! Find out if the child body has any children of its own. The new parent wil inherit these children if ( nchild_inherit > 0 ) then temp ( nchild_orig + 1 : nchild_orig + nchild_inherit ) = pl % kin ( index_child )% child ( 1 : nchild_inherit ) do i = 1 , nchild_inherit j = pl % kin ( index_child )% child ( i ) ! Set the childrens' parent to the new parent pl % kin ( j )% parent = index_parent end do end if if ( allocated ( pl % kin ( index_child )% child )) deallocate ( pl % kin ( index_child )% child ) pl % kin ( index_child )% nchild = 0 ! Add the new child to its parent pl % kin ( index_child )% parent = index_parent temp ( nchild_new ) = index_child ! Save the new child array to the parent pl % kin ( index_parent )% nchild = nchild_new call move_alloc ( from = temp , to = pl % kin ( index_parent )% child ) end associate return end subroutine symba_collision_make_family_pl module subroutine symba_collision_resolve_fragmentations ( self , system , param ) !! author: David A. Minton !! !! Process list of collisions, determine the collisional regime, and then create fragments. !! implicit none ! Arguments class ( symba_plplenc ), intent ( inout ) :: self !! SyMBA pl-pl encounter list class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions ! Internals ! Internals integer ( I4B ), dimension (:), allocatable :: family !! List of indices of all bodies inovlved in the collision integer ( I4B ), dimension ( 2 ) :: idx_parent !! Index of the two bodies considered the \"parents\" of the collision real ( DP ), dimension ( NDIM , 2 ) :: x , v , L_spin , Ip !! Output values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension ( 2 ) :: mass , radius !! Output values that represent a 2-body equivalent of a possibly 2+ body collision logical :: lgoodcollision integer ( I4B ) :: i , status , jtarg , jproj , regime real ( DP ), dimension ( 2 ) :: radius_si , mass_si , density_si real ( DP ) :: mtiny_si , Mcb_si real ( DP ), dimension ( NDIM ) :: x1_si , v1_si , x2_si , v2_si real ( DP ) :: mlr , mslr , mtot , dentot , msys , msys_new , Qloss , impact_parameter integer ( I4B ), parameter :: NRES = 3 !! Number of collisional product results real ( DP ), dimension ( NRES ) :: mass_res associate ( plpl_collisions => self , ncollisions => self % nenc , idx1 => self % index1 , idx2 => self % index2 , cb => system % cb ) select type ( pl => system % pl ) class is ( symba_pl ) do i = 1 , ncollisions idx_parent ( 1 ) = pl % kin ( idx1 ( i ))% parent idx_parent ( 2 ) = pl % kin ( idx2 ( i ))% parent lgoodcollision = symba_collision_consolidate_familes ( pl , param , idx_parent , family , x , v , mass , radius , L_spin , Ip ) if (. not . lgoodcollision ) cycle if ( any ( pl % status ( idx_parent (:)) /= COLLISION )) cycle ! One of these two bodies has already been resolved ! Convert all quantities to SI units and determine which of the pair is the projectile vs. target before sending them ! to symba_regime if ( mass ( 1 ) > mass ( 2 )) then jtarg = 1 jproj = 2 else jtarg = 2 jproj = 1 end if mass_si (:) = ( mass (:)) * param % MU2KG !! The collective mass of the parent and its children radius_si (:) = radius (:) * param % DU2M !! The collective radius of the parent and its children x1_si (:) = plpl_collisions % x1 (:, i ) * param % DU2M !! The position of the parent from inside the step (at collision) v1_si (:) = plpl_collisions % v1 (:, i ) * param % DU2M / param % TU2S !! The velocity of the parent from inside the step (at collision) x2_si (:) = plpl_collisions % x2 (:, i ) * param % DU2M !! The position of the parent from inside the step (at collision) v2_si (:) = plpl_collisions % v2 (:, i ) * param % DU2M / param % TU2S !! The velocity of the parent from inside the step (at collision) density_si (:) = mass_si (:) / ( 4.0_DP / 3._DP * PI * radius_si (:) ** 3 ) !! The collective density of the parent and its children Mcb_si = cb % mass * param % MU2KG mtiny_si = ( param % GMTINY / param % GU ) * param % MU2KG mass_res (:) = 0.0_DP mtot = sum ( mass_si (:)) dentot = sum ( mass_si (:) * density_si (:)) / mtot !! Use the positions and velocities of the parents from indside the step (at collision) to calculate the collisional regime call fragmentation_regime ( Mcb_si , mass_si ( jtarg ), mass_si ( jproj ), radius_si ( jtarg ), radius_si ( jproj ), x1_si (:), x2_si (:),& v1_si (:), v2_si (:), density_si ( jtarg ), density_si ( jproj ), regime , mlr , mslr , mtiny_si , Qloss ) mass_res ( 1 ) = min ( max ( mlr , 0.0_DP ), mtot ) mass_res ( 2 ) = min ( max ( mslr , 0.0_DP ), mtot ) mass_res ( 3 ) = min ( max ( mtot - mlr - mslr , 0.0_DP ), mtot ) mass_res (:) = ( mass_res (:) / param % MU2KG ) Qloss = Qloss * ( param % TU2S / param % DU2M ) ** 2 / param % MU2KG select case ( regime ) case ( COLLRESOLVE_REGIME_DISRUPTION ) status = symba_fragmentation_casedisruption ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) case ( COLLRESOLVE_REGIME_SUPERCATASTROPHIC ) status = symba_fragmentation_casesupercatastrophic ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) case ( COLLRESOLVE_REGIME_HIT_AND_RUN ) status = symba_fragmentation_casehitandrun ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) case ( COLLRESOLVE_REGIME_MERGE , COLLRESOLVE_REGIME_GRAZE_AND_MERGE ) status = symba_fragmentation_casemerge ( system , param , family , x , v , mass , radius , L_spin , Ip ) case default write ( * , * ) \"Error in symba_collision, unrecognized collision regime\" call util_exit ( FAILURE ) end select end do end select end associate return end subroutine symba_collision_resolve_fragmentations module subroutine symba_collision_resolve_mergers ( self , system , param ) !! author: David A. Minton !! !! Process list of collisions and merge colliding bodies together. !! implicit none ! Arguments class ( symba_plplenc ), intent ( inout ) :: self !! SyMBA pl-pl encounter list class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions ! Internals integer ( I4B ), dimension (:), allocatable :: family !! List of indices of all bodies inovlved in the collision integer ( I4B ), dimension ( 2 ) :: idx_parent !! Index of the two bodies considered the \"parents\" of the collision real ( DP ), dimension ( NDIM , 2 ) :: x , v , L_spin , Ip !! Output values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension ( 2 ) :: mass , radius !! Output values that represent a 2-body equivalent of a possibly 2+ body collision logical :: lgoodcollision integer ( I4B ) :: i , status associate ( plpl_collisions => self , ncollisions => self % nenc , idx1 => self % index1 , idx2 => self % index2 ) select type ( pl => system % pl ) class is ( symba_pl ) do i = 1 , ncollisions idx_parent ( 1 ) = pl % kin ( idx1 ( i ))% parent idx_parent ( 2 ) = pl % kin ( idx2 ( i ))% parent lgoodcollision = symba_collision_consolidate_familes ( pl , param , idx_parent , family , x , v , mass , radius , L_spin , Ip ) if (. not . lgoodcollision ) cycle if ( any ( pl % status ( idx_parent (:)) /= COLLISION )) cycle ! One of these two bodies has already been resolved status = symba_fragmentation_casemerge ( system , param , family , x , v , mass , radius , L_spin , Ip ) end do end select end associate return end subroutine symba_collision_resolve_mergers end submodule s_symba_collision","tags":"","loc":"sourcefile/symba_collision.f90.html"},{"title":"symba_setup.f90 – swiftest","text":"This file depends on sourcefile~~symba_setup.f90~~EfferentGraph sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_setup.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_setup Source Code symba_setup.f90 Source Code submodule ( symba_classes ) s_symba_setup use swiftest contains module subroutine symba_setup_initialize_particle_info ( system , param ) !! author: David A. Minton !! !! Initializes a new particle information data structure with initial conditions recorded implicit none ! Argumets class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( inout ) :: param !! Current run configuration parameters with SyMBA extensions ! Internals integer ( I4B ) :: i integer ( I4B ), dimension (:), allocatable :: idx select type ( cb => system % cb ) class is ( symba_cb ) cb % info % origin_type = \"Central body\" cb % info % origin_time = param % t0 cb % info % origin_xh (:) = 0.0_DP cb % info % origin_vh (:) = 0.0_DP call symba_io_dump_particle_info ( system , param , lincludecb = . true .) end select select type ( pl => system % pl ) class is ( symba_pl ) do i = 1 , pl % nbody pl % info ( i )% origin_type = \"Initial conditions\" pl % info ( i )% origin_time = param % t0 pl % info ( i )% origin_xh (:) = pl % xh (:, i ) pl % info ( i )% origin_vh (:) = pl % vh (:, i ) end do if ( pl % nbody > 0 ) then allocate ( idx ( pl % nbody )) call symba_io_dump_particle_info ( system , param , plidx = [( i , i = 1 , pl % nbody )]) deallocate ( idx ) end if end select select type ( tp => system % tp ) class is ( symba_tp ) do i = 1 , tp % nbody tp % info ( i )% origin_type = \"Initial conditions\" tp % info ( i )% origin_time = param % t0 tp % info ( i )% origin_xh (:) = tp % xh (:, i ) tp % info ( i )% origin_vh (:) = tp % vh (:, i ) end do if ( tp % nbody > 0 ) then allocate ( idx ( tp % nbody )) call symba_io_dump_particle_info ( system , param , tpidx = [( i , i = 1 , tp % nbody )]) deallocate ( idx ) end if end select return end subroutine symba_setup_initialize_particle_info module subroutine symba_setup_initialize_system ( self , param ) !! author: David A. Minton !! !! Initialize an SyMBA nbody system from files and sets up the planetocentric structures. !! This subroutine will also sort the massive bodies in descending order by mass !! implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i , j ! Call parent method associate ( system => self ) call whm_setup_initialize_system ( system , param ) call system % pltpenc_list % setup ( 0 ) call system % plplenc_list % setup ( 0 ) select type ( pl => system % pl ) class is ( symba_pl ) call pl % sort ( \"mass\" , ascending = . false .) select type ( param ) class is ( symba_parameters ) pl % lmtiny (:) = pl % Gmass (:) > param % GMTINY pl % nplm = count ( pl % lmtiny (:)) if ( param % lrestart ) then call symba_io_read_particle ( system , param ) else call symba_setup_initialize_particle_info ( system , param ) end if end select end select end associate return end subroutine symba_setup_initialize_system module subroutine symba_setup_merger ( self , n , param ) !! author: David A. Minton !! !! Allocate SyMBA test particle structure !! !! Equivalent in functionality to David E. Kaufmann's Swifter routine symba_setup.f90 implicit none ! Arguments class ( symba_merger ), intent ( inout ) :: self !! SyMBA merger list object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter ! Internals integer ( I4B ) :: i !> Call allocation method for parent class. In this case, helio_pl does not have its own setup method so we use the base method for swiftest_pl call symba_setup_pl ( self , n , param ) if ( n <= 0 ) return if ( allocated ( self % ncomp )) deallocate ( self % ncomp ) allocate ( self % ncomp ( n )) self % ncomp (:) = 0 return end subroutine symba_setup_merger module subroutine symba_setup_pl ( self , n , param ) !! author: David A. Minton !! !! Allocate SyMBA test particle structure !! !! Equivalent in functionality to David E. Kaufmann's Swifter routine symba_setup.f90 implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter ! Internals integer ( I4B ) :: i !> Call allocation method for parent class. In this case, helio_pl does not have its own setup method so we use the base method for swiftest_pl call setup_pl ( self , n , param ) if ( n <= 0 ) return if ( allocated ( self % lcollision )) deallocate ( self % lcollision ) if ( allocated ( self % lencounter )) deallocate ( self % lencounter ) if ( allocated ( self % lmtiny )) deallocate ( self % lmtiny ) if ( allocated ( self % nplenc )) deallocate ( self % nplenc ) if ( allocated ( self % ntpenc )) deallocate ( self % ntpenc ) if ( allocated ( self % levelg )) deallocate ( self % levelg ) if ( allocated ( self % levelm )) deallocate ( self % levelm ) if ( allocated ( self % isperi )) deallocate ( self % isperi ) if ( allocated ( self % peri )) deallocate ( self % peri ) if ( allocated ( self % atp )) deallocate ( self % atp ) if ( allocated ( self % kin )) deallocate ( self % kin ) if ( allocated ( self % info )) deallocate ( self % info ) allocate ( self % lcollision ( n )) allocate ( self % lencounter ( n )) allocate ( self % lmtiny ( n )) allocate ( self % nplenc ( n )) allocate ( self % ntpenc ( n )) allocate ( self % levelg ( n )) allocate ( self % levelm ( n )) allocate ( self % isperi ( n )) allocate ( self % peri ( n )) allocate ( self % atp ( n )) allocate ( self % kin ( n )) allocate ( self % info ( n )) self % lcollision (:) = . false . self % lencounter (:) = . false . self % lmtiny (:) = . false . self % nplenc (:) = 0 self % ntpenc (:) = 0 self % levelg (:) = - 1 self % levelm (:) = - 1 self % isperi (:) = 0 self % peri (:) = 0.0_DP self % atp (:) = 0.0_DP self % kin (:)% nchild = 0 self % kin (:)% parent = [( i , i = 1 , n )] return end subroutine symba_setup_pl module subroutine symba_setup_pltpenc ( self , n ) !! author: David A. Minton !! !! A constructor that sets the number of encounters and allocates and initializes all arrays !! implicit none ! Arguments class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-tp encounter structure integer ( I4B ), intent ( in ) :: n !! Number of encounters to allocate space for call setup_encounter ( self , n ) if ( n == 0 ) return if ( allocated ( self % level )) deallocate ( self % level ) allocate ( self % level ( n )) self % level (:) = - 1 return end subroutine symba_setup_pltpenc module subroutine symba_setup_tp ( self , n , param ) !! author: David A. Minton !! !! Allocate WHM test particle structure !! !! Equivalent in functionality to David E. Kaufmann's Swifter routine whm_setup.f90 implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter !> Call allocation method for parent class. In this case, helio_tp does not have its own setup method so we use the base method for swiftest_tp call setup_tp ( self , n , param ) if ( n <= 0 ) return if ( allocated ( self % nplenc )) deallocate ( self % nplenc ) if ( allocated ( self % levelg )) deallocate ( self % levelg ) if ( allocated ( self % levelm )) deallocate ( self % levelm ) if ( allocated ( self % info )) deallocate ( self % info ) allocate ( self % nplenc ( n )) allocate ( self % levelg ( n )) allocate ( self % levelm ( n )) allocate ( self % info ( n )) self % nplenc (:) = 0 self % levelg (:) = - 1 self % levelm (:) = - 1 return end subroutine symba_setup_tp end submodule s_symba_setup","tags":"","loc":"sourcefile/symba_setup.f90.html"},{"title":"symba_kick.f90 – swiftest","text":"This file depends on sourcefile~~symba_kick.f90~~EfferentGraph sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_kick.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_kick Source Code symba_kick.f90 Source Code submodule ( symba_classes ) s_symba_kick use swiftest contains module subroutine symba_kick_getacch_pl ( self , system , param , t , lbeg ) !! author: David A. Minton !! !! Compute heliocentric accelerations of massive bodies !! !! Adapted from David E. Kaufmann's Swifter routine symba_kick_getacch.f90 !! Adapted from Hal Levison's Swift routine symba5_kick_getacch.f implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step ! Internals integer ( I4B ) :: k real ( DP ) :: irij3 , rji2 , rlim2 , faci , facj real ( DP ), dimension ( NDIM ) :: dx if ( self % nbody == 0 ) return select type ( system ) class is ( symba_nbody_system ) associate ( pl => self , cb => system % cb , plplenc_list => system % plplenc_list , nplplenc => system % plplenc_list % nenc ) call helio_kick_getacch_pl ( pl , system , param , t , lbeg ) ! Remove accelerations from encountering pairs do k = 1 , nplplenc associate ( i => plplenc_list % index1 ( k ), j => plplenc_list % index2 ( k )) dx (:) = pl % xh (:, j ) - pl % xh (:, i ) rji2 = dot_product ( dx (:), dx (:)) irij3 = 1.0_DP / ( rji2 * sqrt ( rji2 )) faci = pl % Gmass ( i ) * irij3 facj = pl % Gmass ( j ) * irij3 pl % ah (:, i ) = pl % ah (:, i ) - facj * dx (:) pl % ah (:, j ) = pl % ah (:, j ) + faci * dx (:) end associate end do end associate end select return end subroutine symba_kick_getacch_pl module subroutine symba_kick_getacch_tp ( self , system , param , t , lbeg ) !! author: David A. Minton !! !! Compute heliocentric accelerations of test particles !! !! Adapted from David E. Kaufmann's Swifter routine symba_kick_getacch_tp.f90 !! Adapted from Hal Levison's Swift routine symba5_kick_getacch.f implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step ! Internals integer ( I4B ) :: k real ( DP ) :: rji2 , fac , rlim2 real ( DP ), dimension ( NDIM ) :: dx if ( self % nbody == 0 ) return select type ( system ) class is ( symba_nbody_system ) associate ( tp => self , cb => system % cb , pl => system % pl , pltpenc_list => system % pltpenc_list , npltpenc => system % pltpenc_list % nenc ) call helio_kick_getacch_tp ( tp , system , param , t , lbeg ) ! Remove accelerations from encountering pairs do k = 1 , npltpenc associate ( i => pltpenc_list % index1 ( k ), j => pltpenc_list % index2 ( k )) if ( tp % lmask ( j )) THEN if ( lbeg ) then dx (:) = tp % xh (:, j ) - pl % xbeg (:, i ) else dx (:) = tp % xh (:, j ) - pl % xend (:, i ) end if rji2 = dot_product ( dx (:), dx (:)) fac = pl % Gmass ( i ) / ( rji2 * sqrt ( rji2 )) tp % ah (:, j ) = tp % ah (:, j ) + fac * dx (:) end IF end associate end do end associate end select return end subroutine symba_kick_getacch_tp module subroutine symba_kick_pltpenc ( self , system , dt , irec , sgn ) !! author: David A. Minton !! !! Kick barycentric velocities of massive bodies and ACTIVE test particles within SyMBA recursion. !! Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types !! !! Adapted from David E. Kaufmann's Swifter routine: symba_kick.f90 !! Adapted from Hal Levison's Swift routine symba5_kick.f implicit none ! Arguments class ( symba_pltpenc ), intent ( in ) :: self !! SyMBA pl-tp encounter list object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level integer ( I4B ), intent ( in ) :: sgn !! sign to be applied to acceleration ! Internals integer ( I4B ) :: k , irm1 , irecl real ( DP ) :: r , rr , ri , ris , rim1 , r2 , ir3 , fac , faci , facj real ( DP ), dimension ( NDIM ) :: dx logical :: isplpl , lgoodlevel if ( self % nenc == 0 ) return select type ( self ) class is ( symba_plplenc ) isplpl = . true . class is ( symba_pltpenc ) isplpl = . false . end select select type ( pl => system % pl ) class is ( symba_pl ) select type ( tp => system % tp ) class is ( symba_tp ) associate ( ind1 => self % index1 , ind2 => self % index2 ) if ( pl % nbody > 0 ) pl % lmask (:) = pl % status (:) /= INACTIVE if ( tp % nbody > 0 ) tp % lmask (:) = tp % status (:) /= INACTIVE irm1 = irec - 1 if ( sgn < 0 ) then irecl = irec - 1 else irecl = irec end if do k = 1 , self % nenc if ( isplpl ) then pl % ah (:, ind1 ( k )) = 0.0_DP pl % ah (:, ind2 ( k )) = 0.0_DP else tp % ah (:, ind2 ( k )) = 0.0_DP end if if ( isplpl ) then lgoodlevel = ( pl % levelg ( ind1 ( k )) >= irm1 ) . and . ( pl % levelg ( ind2 ( k )) >= irm1 ) else lgoodlevel = ( pl % levelg ( ind1 ( k )) >= irm1 ) . and . ( tp % levelg ( ind2 ( k )) >= irm1 ) end if if (( self % status ( k ) /= INACTIVE ) . and . lgoodlevel ) then if ( isplpl ) then ri = (( pl % rhill ( ind1 ( k )) + pl % rhill ( ind2 ( k ))) ** 2 ) * ( RHSCALE ** 2 ) * ( RSHELL ** ( 2 * irecl )) rim1 = ri * ( RSHELL ** 2 ) dx (:) = pl % xh (:, ind2 ( k )) - pl % xh (:, ind1 ( k )) else ri = (( pl % rhill ( ind1 ( k ))) ** 2 ) * ( RHSCALE ** 2 ) * ( RSHELL ** ( 2 * irecl )) rim1 = ri * ( RSHELL ** 2 ) dx (:) = tp % xh (:, ind2 ( k )) - pl % xh (:, ind1 ( k )) end if r2 = dot_product ( dx (:), dx (:)) if ( r2 < rim1 ) then fac = 0.0_DP else if ( r2 < ri ) then ris = sqrt ( ri ) r = sqrt ( r2 ) rr = ( ris - r ) / ( ris * ( 1.0_DP - RSHELL )) fac = ( r2 ** ( - 1.5_DP )) * ( 1.0_DP - 3 * ( rr ** 2 ) + 2 * ( rr ** 3 )) else ir3 = 1.0_DP / ( r2 * sqrt ( r2 )) fac = ir3 end if faci = fac * pl % Gmass ( ind1 ( k )) if ( isplpl ) then facj = fac * pl % Gmass ( ind2 ( k )) pl % ah (:, ind1 ( k )) = pl % ah (:, ind1 ( k )) + facj * dx (:) pl % ah (:, ind2 ( k )) = pl % ah (:, ind2 ( k )) - faci * dx (:) else tp % ah (:, ind2 ( k )) = tp % ah (:, ind2 ( k )) - faci * dx (:) end if end if end do if ( isplpl ) then do k = 1 , self % nenc pl % vb (:, ind1 ( k )) = pl % vb (:, ind1 ( k )) + sgn * dt * pl % ah (:, ind1 ( k )) pl % vb (:, ind2 ( k )) = pl % vb (:, ind2 ( k )) + sgn * dt * pl % ah (:, ind2 ( k )) pl % ah (:, ind1 ( k )) = 0.0_DP pl % ah (:, ind1 ( k )) = 0.0_DP end do else do k = 1 , self % nenc tp % vb (:, ind2 ( k )) = tp % vb (:, ind2 ( k )) + sgn * dt * tp % ah (:, ind2 ( k )) tp % ah (:, ind2 ( k )) = 0.0_DP end do end if end associate end select end select return end subroutine symba_kick_pltpenc end submodule s_symba_kick","tags":"","loc":"sourcefile/symba_kick.f90.html"},{"title":"symba_fragmentation.f90 – swiftest","text":"This file depends on sourcefile~~symba_fragmentation.f90~~EfferentGraph sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_fragmentation.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_fragmentation Source Code symba_fragmentation.f90 Source Code submodule ( symba_classes ) s_symba_fragmentation use swiftest integer ( I4B ), parameter :: NFRAG_DISRUPT = 12 integer ( I4B ), parameter :: NFRAG_SUPERCAT = 20 contains module function symba_fragmentation_casedisruption ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) result ( status ) !! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Create the fragments resulting from a non-catastrophic disruption collision !! implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension (:), intent ( in ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension (:,:), intent ( inout ) :: x , v , L_spin , Ip !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass , radius !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass_res !! The distribution of fragment mass obtained by the regime calculation real ( DP ), intent ( inout ) :: Qloss !! Energy lost during collision ! Result integer ( I4B ) :: status !! Status flag assigned to this outcome ! Internals integer ( I4B ) :: i , istart , nfrag , ibiggest , nfamily , nstart , nend real ( DP ) :: mtot , avg_dens real ( DP ), dimension ( NDIM ) :: xcom , vcom , Ip_new real ( DP ), dimension ( 2 ) :: vol real ( DP ), dimension (:, :), allocatable :: vb_frag , xb_frag , rot_frag , Ip_frag real ( DP ), dimension (:), allocatable :: m_frag , rad_frag integer ( I4B ), dimension (:), allocatable :: id_frag logical :: lfailure ! Collisional fragments will be uniformly distributed around the pre-impact barycenter nfrag = NFRAG_DISRUPT allocate ( m_frag ( nfrag )) allocate ( rad_frag ( nfrag )) allocate ( xb_frag ( NDIM , nfrag )) allocate ( vb_frag ( NDIM , nfrag )) allocate ( rot_frag ( NDIM , nfrag )) allocate ( Ip_frag ( NDIM , nfrag )) allocate ( id_frag ( nfrag )) mtot = sum ( mass (:)) xcom (:) = ( mass ( 1 ) * x (:, 1 ) + mass ( 2 ) * x (:, 2 )) / mtot vcom (:) = ( mass ( 1 ) * v (:, 1 ) + mass ( 2 ) * v (:, 2 )) / mtot ! Get mass weighted mean of Ip and average density Ip_new (:) = ( mass ( 1 ) * Ip (:, 1 ) + mass ( 2 ) * Ip (:, 2 )) / mtot vol (:) = 4._DP / 3._DP * PI * radius (:) ** 3 avg_dens = mtot / sum ( vol (:)) ! Distribute the mass among fragments, with a branch to check for the size of the second largest fragment m_frag ( 1 ) = mass_res ( 1 ) if ( mass_res ( 2 ) > mass_res ( 1 ) / 3._DP ) then m_frag ( 2 ) = mass_res ( 2 ) istart = 3 else istart = 2 end if ! Distribute remaining mass among the remaining bodies do i = istart , nfrag m_frag ( i ) = ( mtot - sum ( m_frag ( 1 : istart - 1 ))) / ( nfrag - istart + 1 ) end do ! Distribute any residual mass if there is any and set the radius m_frag ( nfrag ) = m_frag ( nfrag ) + ( mtot - sum ( m_frag (:))) rad_frag (:) = ( 3 * m_frag (:) / ( 4 * PI * avg_dens )) ** ( 1.0_DP / 3.0_DP ) id_frag (:) = [( i , i = system % maxid + 1 , system % maxid + nfrag )] do i = 1 , nfrag Ip_frag (:, i ) = Ip_new (:) end do call fragmentation_initialize ( system , param , family , x , v , L_spin , Ip , mass , radius , & nfrag , Ip_frag , m_frag , rad_frag , xb_frag , vb_frag , rot_frag , Qloss , lfailure ) if ( lfailure ) then write ( * , * ) 'No fragment solution found, so treat as a pure hit-and-run' status = ACTIVE nfrag = 0 else ! Populate the list of new bodies write ( * , '(\"Generating \",I2.0,\" fragments\")' ) nfrag status = DISRUPTION call symba_fragmentation_mergeaddsub ( system , param , family , id_frag , Ip_frag , m_frag , rad_frag , xb_frag , vb_frag , rot_frag , status ) end if return end function symba_fragmentation_casedisruption module function symba_fragmentation_casehitandrun ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) result ( status ) !! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Create the fragments resulting from a non-catastrophic hit-and-run collision !! implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension (:), intent ( in ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension (:,:), intent ( inout ) :: x , v , L_spin , Ip !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass , radius !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass_res !! The distribution of fragment mass obtained by the regime calculation real ( DP ), intent ( inout ) :: Qloss !! Energy lost during collision ! Result integer ( I4B ) :: status !! Status flag assigned to this outcome ! Internals integer ( I4B ) :: i , nfrag , jproj , jtarg , idstart , ibiggest , nfamily real ( DP ) :: mtot , avg_dens real ( DP ), dimension ( NDIM ) :: xcom , vcom real ( DP ), dimension ( 2 ) :: vol real ( DP ), dimension (:, :), allocatable :: vb_frag , xb_frag , rot_frag , Ip_frag real ( DP ), dimension (:), allocatable :: m_frag , rad_frag integer ( I4B ), dimension (:), allocatable :: id_frag logical :: lpure logical , dimension ( system % pl % nbody ) :: lmask mtot = sum ( mass (:)) xcom (:) = ( mass ( 1 ) * x (:, 1 ) + mass ( 2 ) * x (:, 2 )) / mtot vcom (:) = ( mass ( 1 ) * v (:, 1 ) + mass ( 2 ) * v (:, 2 )) / mtot lpure = . false . ! The largest body will stay untouched if ( mass ( 1 ) > mass ( 2 )) then jtarg = 1 jproj = 2 else jtarg = 2 jproj = 1 end if if ( mass_res ( 2 ) > 0.9_DP * mass ( jproj )) then ! Pure hit and run, so we'll just keep the two bodies untouched write ( * , * ) 'Pure hit and run. No new fragments generated.' nfrag = 0 lpure = . true . else ! Imperfect hit and run, so we'll keep the largest body and destroy the other nfrag = NFRAG_DISRUPT - 1 lpure = . false . allocate ( m_frag ( nfrag )) allocate ( id_frag ( nfrag )) allocate ( rad_frag ( nfrag )) allocate ( xb_frag ( NDIM , nfrag )) allocate ( vb_frag ( NDIM , nfrag )) allocate ( rot_frag ( NDIM , nfrag )) allocate ( Ip_frag ( NDIM , nfrag )) m_frag ( 1 ) = mass ( jtarg ) ibiggest = maxloc ( system % pl % Gmass ( family (:)), dim = 1 ) id_frag ( 1 ) = system % pl % id ( ibiggest ) rad_frag ( 1 ) = radius ( jtarg ) xb_frag (:, 1 ) = x (:, jtarg ) vb_frag (:, 1 ) = v (:, jtarg ) Ip_frag (:, 1 ) = Ip (:, jtarg ) ! Get mass weighted mean of Ip and average density vol (:) = 4._DP / 3._DP * pi * radius (:) ** 3 avg_dens = mass ( jproj ) / vol ( jproj ) m_frag ( 2 : nfrag ) = ( mtot - m_frag ( 1 )) / ( nfrag - 1 ) rad_frag ( 2 : nfrag ) = ( 3 * m_frag ( 2 : nfrag ) / ( 4 * PI * avg_dens )) ** ( 1.0_DP / 3.0_DP ) m_frag ( nfrag ) = m_frag ( nfrag ) + ( mtot - sum ( m_frag (:))) id_frag ( 2 : nfrag ) = [( i , i = system % maxid + 1 , system % maxid + nfrag - 1 )] do i = 1 , nfrag Ip_frag (:, i ) = Ip (:, jproj ) end do ! Put the fragments on the circle surrounding the center of mass of the system call fragmentation_initialize ( system , param , family , x , v , L_spin , Ip , mass , radius , & nfrag , Ip_frag , m_frag , rad_frag , xb_frag , vb_frag , rot_frag , Qloss , lpure ) if ( lpure ) then write ( * , * ) 'Should have been a pure hit and run instead' nfrag = 0 else write ( * , '(\"Generating \",I2.0,\" fragments\")' ) nfrag end if end if if ( lpure ) then status = ACTIVE else status = HIT_AND_RUN call symba_fragmentation_mergeaddsub ( system , param , family , id_frag , Ip_frag , m_frag , rad_frag , xb_frag , vb_frag , rot_frag , status ) end if return end function symba_fragmentation_casehitandrun module function symba_fragmentation_casemerge ( system , param , family , x , v , mass , radius , L_spin , Ip ) result ( status ) !! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Merge planets. !! !! Adapted from David E. Kaufmann's Swifter routines symba_merge_pl.f90 and symba_discard_merge_pl.f90 !! !! Adapted from Hal Levison's Swift routines symba5_merge.f and discard_mass_merge.f implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension (:), intent ( in ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension (:,:), intent ( in ) :: x , v , L_spin , Ip !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( in ) :: mass , radius !! Input values that represent a 2-body equivalent of a possibly 2+ body collision ! Result integer ( I4B ) :: status !! Status flag assigned to this outcome ! Internals integer ( I4B ) :: i , j , ibiggest , nfamily real ( DP ) :: volume_new , pe real ( DP ), dimension ( NDIM ) :: xc , vc , xcrossv real ( DP ), dimension ( 2 ) :: vol real ( DP ), dimension ( NDIM ) :: L_orb_old , L_spin_old real ( DP ), dimension ( NDIM ) :: L_spin_new logical , dimension ( system % pl % nbody ) :: lmask real ( DP ), dimension ( NDIM , 1 ) :: vb_frag , xb_frag , rot_frag , Ip_frag real ( DP ), dimension ( 1 ) :: m_frag , rad_frag integer ( I4B ), dimension ( 1 ) :: id_frag select type ( pl => system % pl ) class is ( symba_pl ) write ( * , '(\"Merging bodies \",99(I8,\",\",:))' ) pl % id ( family (:)) ibiggest = maxloc ( pl % Gmass ( family (:)), dim = 1 ) id_frag ( 1 ) = pl % id ( family ( ibiggest )) m_frag ( 1 ) = sum ( mass (:)) ! Merged body is created at the barycenter of the original bodies xb_frag (:, 1 ) = ( mass ( 1 ) * x (:, 1 ) + mass ( 2 ) * x (:, 2 )) / m_frag ( 1 ) vb_frag (:, 1 ) = ( mass ( 1 ) * v (:, 1 ) + mass ( 2 ) * v (:, 2 )) / m_frag ( 1 ) ! Get mass weighted mean of Ip and vol (:) = 4._DP / 3._DP * PI * radius (:) ** 3 volume_new = sum ( vol (:)) rad_frag ( 1 ) = ( 3 * volume_new / ( 4 * PI )) ** ( 1._DP / 3._DP ) L_orb_old (:) = 0.0_DP ! Compute orbital angular momentum of pre-impact system do i = 1 , 2 xc (:) = x (:, i ) - xb_frag (:, 1 ) vc (:) = v (:, i ) - vb_frag (:, 1 ) xcrossv (:) = xc (:) . cross . vc (:) L_orb_old (:) = L_orb_old (:) + mass ( i ) * xcrossv (:) end do if ( param % lrotation ) then Ip_frag (:, 1 ) = ( mass ( 1 ) * Ip (:, 1 ) + mass ( 2 ) * Ip (:, 2 )) / m_frag ( 1 ) L_spin_old (:) = L_spin (:, 1 ) + L_spin (:, 2 ) ! Conserve angular momentum by putting pre-impact orbital momentum into spin of the new body L_spin_new (:) = L_orb_old (:) + L_spin_old (:) ! Assume prinicpal axis rotation on 3rd Ip axis rot_frag (:, 1 ) = L_spin_new (:) / ( Ip_frag ( 3 , 1 ) * m_frag ( 1 ) * rad_frag ( 1 ) ** 2 ) else ! If spin is not enabled, we will consider the lost pre-collision angular momentum as \"escaped\" and add it to our bookkeeping variable system % Lescape (:) = system % Lescape (:) + L_orb_old (:) end if ! Keep track of the component of potential energy due to the pre-impact family for book-keeping nfamily = size ( family (:)) pe = 0.0_DP do j = 1 , nfamily do i = j + 1 , nfamily pe = pe - pl % mass ( i ) * pl % mass ( j ) / norm2 ( pl % xb (:, i ) - pl % xb (:, j )) end do end do system % Ecollisions = system % Ecollisions + pe system % Euntracked = system % Euntracked - pe status = MERGED call symba_fragmentation_mergeaddsub ( system , param , family , id_frag , Ip_frag , m_frag , rad_frag , xb_frag , vb_frag , rot_frag , status ) end select return end function symba_fragmentation_casemerge module function symba_fragmentation_casesupercatastrophic ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) result ( status ) !! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Create the fragments resulting from a supercatastrophic collision !! implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension (:), intent ( in ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension (:,:), intent ( inout ) :: x , v , L_spin , Ip !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass , radius !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass_res !! The distribution of fragment mass obtained by the regime calculation real ( DP ), intent ( inout ) :: Qloss !! Energy lost during collision ! Result integer ( I4B ) :: status !! Status flag assigned to this outcome ! Internals integer ( I4B ) :: i , nfrag , ibiggest , nfamily , nstart , nend real ( DP ) :: mtot , avg_dens , min_frag_mass real ( DP ), dimension ( NDIM ) :: xcom , vcom real ( DP ), dimension ( 2 ) :: vol real ( DP ), dimension ( NDIM ) :: Ip_new real ( DP ), dimension (:, :), allocatable :: vb_frag , xb_frag , rot_frag , Ip_frag real ( DP ), dimension (:), allocatable :: m_frag , rad_frag integer ( I4B ), dimension (:), allocatable :: id_frag logical :: lfailure logical , dimension ( system % pl % nbody ) :: lmask ! Collisional fragments will be uniformly distributed around the pre-impact barycenter nfrag = NFRAG_SUPERCAT allocate ( m_frag ( nfrag )) allocate ( rad_frag ( nfrag )) allocate ( id_frag ( nfrag )) allocate ( xb_frag ( NDIM , nfrag )) allocate ( vb_frag ( NDIM , nfrag )) allocate ( rot_frag ( NDIM , nfrag )) allocate ( Ip_frag ( NDIM , nfrag )) mtot = sum ( mass (:)) xcom (:) = ( mass ( 1 ) * x (:, 1 ) + mass ( 2 ) * x (:, 2 )) / mtot vcom (:) = ( mass ( 1 ) * v (:, 1 ) + mass ( 2 ) * v (:, 2 )) / mtot ! Get mass weighted mean of Ip and average density Ip_new (:) = ( mass ( 1 ) * Ip (:, 1 ) + mass ( 2 ) * Ip (:, 2 )) / mtot vol (:) = 4._DP / 3._DP * pi * radius (:) ** 3 avg_dens = mtot / sum ( vol (:)) ! If we are adding the first and largest fragment (lr), check to see if its mass is SMALLER than an equal distribution of ! mass between all fragments. If so, we will just distribute the mass equally between the fragments min_frag_mass = mtot / nfrag if ( mass_res ( 1 ) < min_frag_mass ) then m_frag (:) = min_frag_mass else m_frag ( 1 ) = mass_res ( 1 ) m_frag ( 2 : nfrag ) = ( mtot - mass_res ( 1 )) / ( nfrag - 1 ) end if ! Distribute any residual mass if there is any and set the radius m_frag ( nfrag ) = m_frag ( nfrag ) + ( mtot - sum ( m_frag (:))) rad_frag (:) = ( 3 * m_frag (:) / ( 4 * PI * avg_dens )) ** ( 1.0_DP / 3.0_DP ) id_frag (:) = [( i , i = system % maxid + 1 , system % maxid + nfrag )] do i = 1 , nfrag Ip_frag (:, i ) = Ip_new (:) end do call fragmentation_initialize ( system , param , family , x , v , L_spin , Ip , mass , radius , & nfrag , Ip_frag , m_frag , rad_frag , xb_frag , vb_frag , rot_frag , Qloss , lfailure ) if ( lfailure ) then write ( * , * ) 'No fragment solution found, so treat as a pure hit-and-run' status = ACTIVE nfrag = 0 else ! Populate the list of new bodies write ( * , '(\"Generating \",I2.0,\" fragments\")' ) nfrag status = SUPERCATASTROPHIC call symba_fragmentation_mergeaddsub ( system , param , family , id_frag , Ip_frag , m_frag , rad_frag , xb_frag , vb_frag , rot_frag , status ) end if return end function symba_fragmentation_casesupercatastrophic subroutine symba_fragmentation_mergeaddsub ( system , param , family , id_frag , Ip_frag , m_frag , rad_frag , xb_frag , vb_frag , rot_frag , status ) !! author:  David A. Minton !! !! Fills the pl_discards and pl_adds with removed and added bodies !! implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension (:), intent ( in ) :: family !! List of indices of all bodies inovlved in the collision integer ( I4B ), dimension (:), intent ( in ) :: id_frag !! List of fragment ids real ( DP ), dimension (:), intent ( in ) :: m_frag , rad_frag !! Distribution of fragment mass and radii real ( DP ), dimension (:,:), intent ( in ) :: Ip_frag !! Fragment rotational inertia vectors real ( DP ), dimension (:,:), intent ( in ) :: xb_frag , vb_frag , rot_frag !! Fragment barycentric position, barycentric velocity, and rotation vectors integer ( I4B ), intent ( in ) :: status !! Status flag to assign to adds ! Internals integer ( I4B ) :: i , ibiggest , nstart , nend , nfamily , nfrag logical , dimension ( system % pl % nbody ) :: lmask class ( symba_pl ), allocatable :: plnew select type ( pl => system % pl ) class is ( symba_pl ) select type ( pl_discards => system % pl_discards ) class is ( symba_merger ) associate ( pl_adds => system % pl_adds , cb => system % cb ) ! Add the family bodies to the subtraction list nfamily = size ( family (:)) nfrag = size ( m_frag (:)) lmask (:) = . false . lmask ( family (:)) = . true . pl % status ( family (:)) = MERGED nstart = pl_discards % nbody + 1 nend = pl_discards % nbody + nfamily call pl_discards % append ( pl , lmask ) pl % ldiscard ( family (:)) = . true . pl % lcollision ( family (:)) = . true . ! Record how many bodies were subtracted in this event pl_discards % ncomp ( nstart : nend ) = nfamily ! Setup new bodies allocate ( plnew , mold = pl ) call plnew % setup ( nfrag , param ) ibiggest = maxloc ( pl % Gmass ( family (:)), dim = 1 ) plnew % id (:) = id_frag (:) system % maxid = system % maxid + nfrag plnew % status (:) = ACTIVE plnew % lcollision (:) = . false . plnew % ldiscard (:) = . false . plnew % xb (:,:) = xb_frag (:, :) plnew % vb (:,:) = vb_frag (:, :) do i = 1 , nfrag plnew % xh (:, i ) = xb_frag (:, i ) - cb % xb (:) plnew % vh (:, i ) = vb_frag (:, i ) - cb % vb (:) end do plnew % mass (:) = m_frag (:) plnew % Gmass (:) = param % GU * m_frag (:) plnew % radius (:) = rad_frag (:) plnew % density (:) = m_frag (:) / rad_frag (:) select case ( status ) case ( DISRUPTION ) plnew % info (:)% origin_type = \"Disruption\" case ( SUPERCATASTROPHIC ) plnew % info (:)% origin_type = \"Supercatastrophic\" case ( HIT_AND_RUN ) plnew % info (:)% origin_type = \"Hit and run fragment\" case ( MERGED ) plnew % info ( 1 ) = pl % info ( ibiggest ) end select if ( status /= MERGED ) then plnew % info (:)% origin_time = param % t do i = 1 , nfrag plnew % info ( i )% origin_xh (:) = plnew % xh (:, i ) plnew % info ( i )% origin_vh (:) = plnew % vh (:, i ) end do end if if ( param % lrotation ) then plnew % Ip (:,:) = Ip_frag (:,:) plnew % rot (:,:) = rot_frag (:,:) end if if ( param % ltides ) then plnew % Q = pl % Q ( ibiggest ) plnew % k2 = pl % k2 ( ibiggest ) plnew % tlag = pl % tlag ( ibiggest ) end if call plnew % set_mu ( cb ) pl % lmtiny (:) = pl % Gmass (:) > param % GMTINY ! Append the new merged body to the list and record how many we made nstart = pl_adds % nbody + 1 nend = pl_adds % nbody + plnew % nbody call pl_adds % append ( plnew , lsource_mask = [(. true ., i = 1 , plnew % nbody )]) pl_adds % ncomp ( nstart : nend ) = plnew % nbody call plnew % setup ( 0 , param ) deallocate ( plnew ) end associate end select end select return end subroutine symba_fragmentation_mergeaddsub end submodule s_symba_fragmentation","tags":"","loc":"sourcefile/symba_fragmentation.f90.html"},{"title":"symba_encounter_check.f90 – swiftest","text":"This file depends on sourcefile~~symba_encounter_check.f90~~EfferentGraph sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_encounter_check.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_encounter_check Source Code symba_encounter_check.f90 Source Code submodule ( symba_classes ) s_symba_encounter_check use swiftest contains module function symba_encounter_check_pl ( self , system , dt , irec ) result ( lany_encounter ) !! author: David A. Minton !! !! Check for an encounter between massive bodies. !! implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA test particle object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level ! Result logical :: lany_encounter !! Returns true if there is at least one close encounter ! Internals integer ( I8B ) :: k integer ( I4B ) :: nenc real ( DP ), dimension ( NDIM ) :: xr , vr logical , dimension (:), allocatable :: lencounter , loc_lvdotr if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody , nplpl => self % nplpl ) allocate ( lencounter ( nplpl ), loc_lvdotr ( nplpl )) lencounter (:) = . false . do k = 1 , nplpl associate ( i => pl % k_plpl ( 1 , k ), j => pl % k_plpl ( 2 , k )) xr (:) = pl % xh (:, j ) - pl % xh (:, i ) vr (:) = pl % vh (:, j ) - pl % vh (:, i ) call symba_encounter_check_one ( xr ( 1 ), xr ( 2 ), xr ( 3 ), vr ( 1 ), vr ( 2 ), vr ( 3 ), pl % rhill ( i ), pl % rhill ( j ), dt , irec , lencounter ( k ), loc_lvdotr ( k )) end associate end do nenc = count ( lencounter (:)) lany_encounter = nenc > 0 if ( lany_encounter ) then associate ( plplenc_list => system % plplenc_list ) call plplenc_list % resize ( nenc ) plplenc_list % lvdotr ( 1 : nenc ) = pack ( loc_lvdotr (:), lencounter (:)) plplenc_list % index1 ( 1 : nenc ) = pack ( pl % k_plpl ( 1 ,:), lencounter (:)) plplenc_list % index2 ( 1 : nenc ) = pack ( pl % k_plpl ( 2 ,:), lencounter (:)) do k = 1 , nenc plplenc_list % status ( k ) = ACTIVE plplenc_list % level ( k ) = irec pl % lencounter ( plplenc_list % index1 ( k )) = . true . pl % lencounter ( plplenc_list % index2 ( k )) = . true . end do end associate end if end associate return end function symba_encounter_check_pl module function symba_encounter_check_pltpenc ( self , system , dt , irec ) result ( lany_encounter ) !! author: David A. Minton !! !! Check for an encounter between test particles and massive bodies in the pltpenc list. !! Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types. !! !! Adapted from portions of David E. Kaufmann's Swifter routine: symba_step_recur.f90 implicit none ! Arguments class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-pl encounter list object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level logical :: lany_encounter !! Returns true if there is at least one close encounter ! Internals integer ( I4B ) :: k real ( DP ), dimension ( NDIM ) :: xr , vr logical :: lencounter , isplpl real ( DP ) :: rlim2 , rji2 logical , dimension (:), allocatable :: lencmask lany_encounter = . false . if ( self % nenc == 0 ) return select type ( self ) class is ( symba_plplenc ) isplpl = . true . class is ( symba_pltpenc ) isplpl = . false . end select select type ( pl => system % pl ) class is ( symba_pl ) select type ( tp => system % tp ) class is ( symba_tp ) allocate ( lencmask ( self % nenc )) lencmask (:) = ( self % status ( 1 : self % nenc ) == ACTIVE ) . and . ( self % level ( 1 : self % nenc ) == irec - 1 ) if (. not . any ( lencmask (:))) return associate ( ind1 => self % index1 , ind2 => self % index2 ) do concurrent ( k = 1 : self % nenc , lencmask ( k )) if ( isplpl ) then xr (:) = pl % xh (:, ind2 ( k )) - pl % xh (:, ind1 ( k )) vr (:) = pl % vb (:, ind2 ( k )) - pl % vb (:, ind1 ( k )) call symba_encounter_check_one ( xr ( 1 ), xr ( 2 ), xr ( 3 ), vr ( 1 ), vr ( 2 ), vr ( 3 ), pl % rhill ( ind1 ( k )), pl % rhill ( ind2 ( k )), dt , irec , lencounter , self % lvdotr ( k )) else xr (:) = tp % xh (:, ind2 ( k )) - pl % xh (:, ind1 ( k )) vr (:) = tp % vb (:, ind2 ( k )) - pl % vb (:, ind1 ( k )) call symba_encounter_check_one ( xr ( 1 ), xr ( 2 ), xr ( 3 ), vr ( 1 ), vr ( 2 ), vr ( 3 ), pl % rhill ( ind1 ( k )), 0.0_DP , dt , irec , lencounter , self % lvdotr ( k )) end if if ( lencounter ) then if ( isplpl ) then rlim2 = ( pl % radius ( ind1 ( k )) + pl % radius ( ind2 ( k ))) ** 2 else rlim2 = ( pl % radius ( ind1 ( k ))) ** 2 end if rji2 = dot_product ( xr (:), xr (:)) ! Check to see if these are physically overlapping bodies first, which we should ignore if ( rji2 > rlim2 ) then lany_encounter = . true . pl % levelg ( ind1 ( k )) = irec pl % levelm ( ind1 ( k )) = MAX ( irec , pl % levelm ( ind1 ( k ))) if ( isplpl ) then pl % levelg ( ind2 ( k )) = irec pl % levelm ( ind2 ( k )) = MAX ( irec , pl % levelm ( ind2 ( k ))) else tp % levelg ( ind2 ( k )) = irec tp % levelm ( ind2 ( k )) = MAX ( irec , tp % levelm ( ind2 ( k ))) end if self % level ( k ) = irec end if end if end do end associate end select end select return end function symba_encounter_check_pltpenc module function symba_encounter_check_tp ( self , system , dt , irec ) result ( lany_encounter ) !! author: David A. Minton !! !! Check for an encounter between test particles and massive bodies. !! implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level ! Result logical :: lany_encounter !! Returns true if there is at least one close encounter ! Internals real ( DP ) :: r2crit , vdotr , r2 , v2 , tmin , r2min , term2 integer ( I4B ) :: i , j , k , nenc real ( DP ), dimension ( NDIM ) :: xr , vr logical , dimension (:,:), allocatable :: lencounter , loc_lvdotr if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody , pl => system % pl , npl => system % pl % nbody ) allocate ( lencounter ( ntp , npl ), loc_lvdotr ( ntp , npl )) lencounter (:,:) = . false . do j = 1 , npl do i = 1 , ntp xr (:) = tp % xh (:, i ) - pl % xh (:, j ) vr (:) = tp % vh (:, i ) - pl % vh (:, j ) call symba_encounter_check_one ( xr ( 1 ), xr ( 2 ), xr ( 3 ), vr ( 1 ), vr ( 2 ), vr ( 3 ), pl % rhill ( j ), 0.0_DP , dt , irec , lencounter ( i , j ), loc_lvdotr ( i , j )) end do end do nenc = count ( lencounter (:,:)) lany_encounter = nenc > 0 if ( lany_encounter ) then associate ( pltpenc_list => system % pltpenc_list ) call pltpenc_list % resize ( nenc ) pltpenc_list % status ( 1 : nenc ) = ACTIVE pltpenc_list % level ( 1 : nenc ) = irec pltpenc_list % lvdotr ( 1 : nenc ) = pack ( loc_lvdotr (:,:), lencounter (:,:)) pltpenc_list % index1 ( 1 : nenc ) = pack ( spread ([( i , i = 1 , npl )], dim = 1 , ncopies = ntp ), lencounter (:,:)) pltpenc_list % index2 ( 1 : nenc ) = pack ( spread ([( i , i = 1 , ntp )], dim = 2 , ncopies = npl ), lencounter (:,:)) select type ( pl ) class is ( symba_pl ) pl % lencounter (:) = . false . do k = 1 , nenc pl % lencounter ( pltpenc_list % index1 ( k )) = . true . end do end select end associate end if end associate return end function symba_encounter_check_tp module pure elemental subroutine symba_encounter_check_one ( xr , yr , zr , vxr , vyr , vzr , rhill1 , rhill2 , dt , irec , lencounter , lvdotr ) !! author: David A. Minton !! !! Check for an encounter. !! !! Adapted from David E. Kaufmann's Swifter routine: symba_chk.f90 !! Adapted from Hal Levison's Swift routine symba5_chk.f implicit none ! Arguments real ( DP ), intent ( in ) :: xr , yr , zr , vxr , vyr , vzr real ( DP ), intent ( in ) :: rhill1 , rhill2 , dt integer ( I4B ), intent ( in ) :: irec logical , intent ( out ) :: lencounter , lvdotr ! Internals real ( DP ) :: r2 , v2 , rcrit , r2crit , vdotr rcrit = ( rhill1 + rhill2 ) * RHSCALE * ( RSHELL ** ( irec )) r2crit = rcrit ** 2 r2 = xr ** 2 + yr ** 2 + zr ** 2 v2 = vxr ** 2 + vyr ** 2 + vzr ** 2 vdotr = xr * vxr + yr * vyr + zr * vzr lencounter = rmvs_chk_ind ( r2 , v2 , vdotr , dt , r2crit ) lvdotr = ( vdotr < 0.0_DP ) return end subroutine symba_encounter_check_one end submodule s_symba_encounter_check","tags":"","loc":"sourcefile/symba_encounter_check.f90.html"},{"title":"symba_io.f90 – swiftest","text":"This file depends on sourcefile~~symba_io.f90~~EfferentGraph sourcefile~symba_io.f90 symba_io.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_io.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_io Source Code symba_io.f90 Source Code submodule ( symba_classes ) s_symba_io use swiftest contains module subroutine symba_io_dump_particle_info ( system , param , lincludecb , tpidx , plidx ) !! author: David A. Minton !! !! Dumps the particle information data to a file. !! Pass a list of array indices for test particles (tpidx) and/or massive bodies (plidx) to append implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA extensions logical , optional , intent ( in ) :: lincludecb !! Set to true to include the central body (default is false) integer ( I4B ), dimension (:), optional , intent ( in ) :: tpidx !! Array of test particle indices to append to the particle file integer ( I4B ), dimension (:), optional , intent ( in ) :: plidx !! Array of massive body indices to append to the particle file ! Internals logical , save :: lfirst = . true . integer ( I4B ), parameter :: LUN = 22 integer ( I4B ) :: i , ierr if ( lfirst ) then select case ( param % out_stat ) case ( 'APPEND' ) open ( unit = LUN , file = param % particle_out , status = 'OLD' , position = 'APPEND' , form = 'UNFORMATTED' , iostat = ierr ) case ( 'NEW' , 'UNKNOWN' , 'REPLACE' ) open ( unit = LUN , file = param % particle_out , status = param % out_stat , form = 'UNFORMATTED' , iostat = ierr ) case default write ( * , * ) 'Invalid status code' , trim ( adjustl ( param % out_stat )) call util_exit ( FAILURE ) end select if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error:\" write ( * , * ) \"   particle output file already exists or cannot be accessed\" call util_exit ( FAILURE ) end if lfirst = . false . else open ( unit = LUN , file = param % particle_out , status = 'OLD' , position = 'APPEND' , form = 'UNFORMATTED' , iostat = ierr ) if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error:\" write ( * , * ) \"   unable to open binary output file for APPEND\" call util_exit ( FAILURE ) end if end if if ( present ( lincludecb )) then if ( lincludecb ) then select type ( cb => system % cb ) class is ( symba_cb ) write ( LUN ) cb % id write ( LUN ) cb % info end select end if end if if ( present ( plidx ) . and . ( system % pl % nbody > 0 )) then select type ( pl => system % pl ) class is ( symba_pl ) do i = 1 , size ( plidx ) write ( LUN ) pl % id ( plidx ( i )) write ( LUN ) pl % info ( plidx ( i )) end do end select end if if ( present ( tpidx ) . and . ( system % tp % nbody > 0 )) then select type ( tp => system % tp ) class is ( symba_tp ) do i = 1 , size ( tpidx ) write ( LUN ) tp % id ( tpidx ( i )) write ( LUN ) tp % info ( tpidx ( i )) end do end select end if close ( unit = LUN , iostat = ierr ) if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error:\" write ( * , * ) \"   unable to close particle output file\" call util_exit ( FAILURE ) end if return end subroutine symba_io_dump_particle_info module subroutine symba_io_param_reader ( self , unit , iotype , v_list , iostat , iomsg ) !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Read in parameters specific to the SyMBA integrator, then calls the base io_param_reader. !! !! Adapted from David E. Kaufmann's Swifter routine io_init_param.f90 !! Adapted from Martin Duncan's Swift routine io_init_param.f implicit none ! Arguments class ( symba_parameters ), intent ( inout ) :: self !! Collection of parameters integer , intent ( in ) :: unit !! File unit number character ( len =* ), intent ( in ) :: iotype !! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. !!    If you do not include a char-literal-constant, the iotype argument contains only DT. integer , intent ( in ) :: v_list (:) !! The first element passes the integrator code to the reader integer , intent ( out ) :: iostat !! IO status code character ( len =* ), intent ( inout ) :: iomsg !! Message to pass if iostat /= 0 ! internals integer ( I4B ) :: ilength , ifirst , ilast !! Variables used to parse input file character ( STRMAX ) :: line !! Line of the input file character ( len = :), allocatable :: line_trim , param_name , param_value !! Strings used to parse the param file integer ( I4B ) :: nseeds , nseeds_from_file , i logical :: seed_set = . false . !! Is the random seed set in the input file? character ( len =* ), parameter :: linefmt = '(A)' associate ( param => self ) call io_param_reader ( param , unit , iotype , v_list , iostat , iomsg ) call random_seed ( size = nseeds ) if ( allocated ( param % seed )) deallocate ( param % seed ) allocate ( param % seed ( nseeds )) rewind ( unit ) do read ( unit = unit , fmt = linefmt , iostat = iostat , end = 1 ) line line_trim = trim ( adjustl ( line )) ilength = len ( line_trim ) if (( ilength /= 0 )) then ifirst = 1 ! Read the pair of tokens. The first one is the parameter name, the second is the value. param_name = io_get_token ( line_trim , ifirst , ilast , iostat ) if ( param_name == '' ) cycle ! No parameter name (usually because this line is commented out) call io_toupper ( param_name ) ifirst = ilast + 1 param_value = io_get_token ( line_trim , ifirst , ilast , iostat ) select case ( param_name ) case ( \"PARTICLE_OUT\" ) param % particle_out = param_value case ( \"FRAGMENTATION\" ) call io_toupper ( param_value ) if ( param_value == \"YES\" . or . param_value == \"T\" ) self % lfragmentation = . true . case ( \"GMTINY\" ) read ( param_value , * ) param % Gmtiny case ( \"SEED\" ) read ( param_value , * ) nseeds_from_file ! Because the number of seeds can vary between compilers/systems, we need to make sure we can handle cases in which the input file has a different ! number of seeds than the current system. If the number of seeds in the file is smaller than required, we will use them as a source to fill in the missing elements. ! If the number of seeds in the file is larger than required, we will truncate the seed array. if ( nseeds_from_file > nseeds ) then nseeds = nseeds_from_file deallocate ( param % seed ) allocate ( param % seed ( nseeds )) do i = 1 , nseeds ifirst = ilast + 1 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * ) param % seed ( i ) end do else ! Seed array in file is too small do i = 1 , nseeds_from_file ifirst = ilast + 1 param_value = io_get_token ( line , ifirst , ilast , iostat ) read ( param_value , * ) param % seed ( i ) end do param % seed ( nseeds_from_file + 1 : nseeds ) = [( param % seed ( 1 ) - param % seed ( nseeds_from_file ) + i , i = nseeds_from_file + 1 , nseeds )] end if seed_set = . true . end select end if end do 1 continue write ( * , * ) \"FRAGMENTATION = \" , param % lfragmentation if ( param % lfragmentation ) then if ( seed_set ) then call random_seed ( put = param % seed ) else call random_seed ( get = param % seed ) end if write ( * , * ) \"SEED: N,VAL    = \" , size ( param % seed ), param % seed (:) end if if ( self % Gmtiny < 0.0_DP ) then write ( iomsg , * ) \"GMTINY invalid or not set: \" , self % Gmtiny iostat = - 1 return else write ( * , * ) \"GMTINY          = \" , self % Gmtiny end if if (. not . self % lclose ) then write ( iomsg , * ) 'This integrator requires CHK_CLOSE to be enabled.' iostat = - 1 return end if end associate iostat = 0 return end subroutine symba_io_param_reader module subroutine symba_io_param_writer ( self , unit , iotype , v_list , iostat , iomsg ) !! author: David A. Minton !! !! Dump integration parameters specific to SyMBA to file and then call the base io_param_writer method. !! !! Adapted from David E. Kaufmann's Swifter routine io_dump_param.f90 !! Adapted from Martin Duncan's Swift routine io_dump_param.f implicit none ! Arguments class ( symba_parameters ), intent ( in ) :: self !! Collection of SyMBA parameters integer , intent ( in ) :: unit !! File unit number character ( len =* ), intent ( in ) :: iotype !! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. !!    If you do not include a char-literal-constant, the iotype argument contains only DT. integer , intent ( in ) :: v_list (:) !! Not used in this procedure integer , intent ( out ) :: iostat !! IO status code character ( len =* ), intent ( inout ) :: iomsg !! Message to pass if iostat /= 0 ! Internals character ( * ), parameter :: Ifmt = '(I0)' !! Format label for integer values character ( * ), parameter :: Rfmt = '(ES25.17)' !! Format label for real values character ( * ), parameter :: Rarrfmt = '(3(ES25.17,1X))' !! Format label for real values character ( * ), parameter :: Lfmt = '(L1)' !! Format label for logical values character ( len =* ), parameter :: Afmt = '(A25,1X,64(:,A25,1X))' character ( 256 ) :: param_name , param_value type character_array character ( 25 ) :: value end type character_array type ( character_array ), dimension (:), allocatable :: param_array integer ( I4B ) :: i associate ( param => self ) call io_param_writer ( param , unit , iotype , v_list , iostat , iomsg ) ! Special handling is required for writing the random number seed array as its size is not known until runtime ! For the \"SEED\" parameter line, the first value will be the size of the seed array and the rest will be the seed array elements write ( param_name , Afmt ) \"PARTICLE_OUT\" ; write ( param_value , Afmt ) trim ( adjustl ( param % particle_out )); write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"GMTINY\" ; write ( param_value , Rfmt ) param % Gmtiny ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) write ( param_name , Afmt ) \"FRAGMENTATION\" ; write ( param_value , Lfmt ) param % lfragmentation ; write ( unit , Afmt ) adjustl ( param_name ), adjustl ( param_value ) if ( param % lfragmentation ) then write ( param_name , Afmt ) \"SEED\" if ( allocated ( param_array )) deallocate ( param_array ) allocate ( param_array ( 0 : size ( param % seed ))) write ( param_array ( 0 )% value , Ifmt ) size ( param % seed ) do i = 1 , size ( param % seed ) write ( param_array ( i )% value , Ifmt ) param % seed ( i ) end do write ( unit , Afmt , advance = 'no' ) adjustl ( param_name ), adjustl ( param_array ( 0 )% value ) do i = 1 , size ( param % seed ) if ( i < size ( param % seed )) then write ( unit , Afmt , advance = 'no' ) adjustl ( param_array ( i )% value ) else write ( unit , Afmt ) adjustl ( param_array ( i )% value ) end if end do end if iostat = 0 end associate return end subroutine symba_io_param_writer module subroutine symba_io_read_particle ( system , param ) !! author: David A. Minton !! !! Reads an old particle information file for a restartd run implicit none class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system file class ( symba_parameters ), intent ( inout ) :: param !! Current run configuration parameters with SyMBA extensions ! Internals integer ( I4B ), parameter :: LUN = 22 integer ( I4B ) :: i , ierr , id , idx logical :: lmatch type ( symba_particle_info ) :: tmpinfo open ( unit = LUN , file = param % particle_out , status = 'OLD' , form = 'UNFORMATTED' , iostat = ierr ) if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error:\" write ( * , * ) \"   unable to open binary particle file for reading\" call util_exit ( FAILURE ) end if select type ( cb => system % cb ) class is ( symba_cb ) select type ( pl => system % pl ) class is ( symba_pl ) select type ( tp => system % tp ) class is ( symba_tp ) do lmatch = . false . read ( LUN , iostat = ierr ) id if ( ierr /= 0 ) exit if ( idx == cb % id ) then read ( LUN ) cb % info lmatch = . true . else if ( pl % nbody > 0 ) then idx = findloc ( pl % id (:), id , dim = 1 ) if ( idx /= 0 ) then read ( LUN ) pl % info ( idx ) lmatch = . true . end if end if if (. not . lmatch . and . tp % nbody > 0 ) then idx = findloc ( tp % id (:), id , dim = 1 ) if ( idx /= 0 ) then read ( LUN ) tp % info ( idx ) lmatch = . true . end if end if end if if (. not . lmatch ) then write ( * , * ) 'Particle id ' , id , ' not found. Skipping' read ( LUN ) tmpinfo end if end do close ( unit = LUN , iostat = ierr ) end select end select end select if ( ierr /= 0 ) then write ( * , * ) \"Swiftest error:\" write ( * , * ) \"   unable to close particle output file\" call util_exit ( FAILURE ) end if return end subroutine symba_io_read_particle module subroutine symba_io_write_discard ( self , param ) implicit none class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ), parameter :: LUN = 40 integer ( I4B ) :: iadd , isub , j , ierr , nsub , nadd logical , save :: lfirst = . true . real ( DP ), dimension (:,:), allocatable :: vh character ( * ), parameter :: HDRFMT = '(E23.16, 1X, I8, 1X, L1)' character ( * ), parameter :: NAMEFMT = '(A, 2(1X, I8))' character ( * ), parameter :: VECFMT = '(3(E23.16, 1X))' character ( * ), parameter :: NPLFMT = '(I8)' character ( * ), parameter :: PLNAMEFMT = '(I8, 2(1X, E23.16))' class ( swiftest_body ), allocatable :: pltemp associate ( pl => self % pl , npl => self % pl % nbody , pl_adds => self % pl_adds ) if ( self % tp_discards % nbody > 0 ) call io_write_discard ( self , param ) select type ( pl_discards => self % pl_discards ) class is ( symba_merger ) if ( pl_discards % nbody == 0 ) return select case ( param % out_stat ) case ( 'APPEND' ) open ( unit = LUN , file = param % discard_out , status = 'OLD' , position = 'APPEND' , form = 'FORMATTED' , iostat = ierr ) case ( 'NEW' , 'REPLACE' , 'UNKNOWN' ) open ( unit = LUN , file = param % discard_out , status = param % out_stat , form = 'FORMATTED' , iostat = ierr ) case default write ( * , * ) 'Invalid status code for OUT_STAT: ' , trim ( adjustl ( param % out_stat )) call util_exit ( FAILURE ) end select lfirst = . false . if ( param % lgr ) then call pl_discards % pv2v ( param ) call pl_adds % pv2v ( param ) end if write ( LUN , HDRFMT ) param % t , pl_discards % nbody , param % lbig_discard iadd = 1 isub = 1 do while ( iadd <= pl_adds % nbody ) nadd = pl_adds % ncomp ( iadd ) nsub = pl_discards % ncomp ( isub ) do j = 1 , nadd if ( iadd <= pl_adds % nbody ) then write ( LUN , NAMEFMT ) ADD , pl_adds % id ( iadd ), pl_adds % status ( iadd ) write ( LUN , VECFMT ) pl_adds % xh ( 1 , iadd ), pl_adds % xh ( 2 , iadd ), pl_adds % xh ( 3 , iadd ) write ( LUN , VECFMT ) pl_adds % vh ( 1 , iadd ), pl_adds % vh ( 2 , iadd ), pl_adds % vh ( 3 , iadd ) else exit end if iadd = iadd + 1 end do do j = 1 , nsub if ( isub <= pl_discards % nbody ) then write ( LUN , NAMEFMT ) SUB , pl_discards % id ( isub ), pl_discards % status ( isub ) write ( LUN , VECFMT ) pl_discards % xh ( 1 , isub ), pl_discards % xh ( 2 , isub ), pl_discards % xh ( 3 , isub ) write ( LUN , VECFMT ) pl_discards % vh ( 1 , isub ), pl_discards % vh ( 2 , isub ), pl_discards % vh ( 3 , isub ) else exit end if isub = isub + 1 end do end do close ( LUN ) end select end associate return end subroutine symba_io_write_discard end submodule s_symba_io","tags":"","loc":"sourcefile/symba_io.f90.html"},{"title":"symba_discard.f90 – swiftest","text":"This file depends on sourcefile~~symba_discard.f90~~EfferentGraph sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_discard.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_discard Source Code symba_discard.f90 Source Code submodule ( symba_classes ) s_symba_discard use swiftest contains subroutine symba_discard_cb_pl ( pl , system , param ) !! author: David A. Minton !! !! Check to see if planets should be discarded based on their positions relative to the central body. !! If a body gets flagged here when it has also been previously flagged for a collision with another massive body, !! its collisional status will be revoked. Discards due to colliding with or escaping the central body take precedence !! over pl-pl collisions !! !! Adapted from David E. Kaufmann's Swifter routine: symba_discard_sun.f90 !! Adapted from Hal Levison's Swift routine discard_massive5.f implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: pl !! SyMBA massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i , j real ( DP ) :: energy , vb2 , rb2 , rh2 , rmin2 , rmax2 , rmaxu2 associate ( npl => pl % nbody , cb => system % cb ) call system % set_msys () rmin2 = param % rmin ** 2 rmax2 = param % rmax * 2 rmaxu2 = param % rmaxu ** 2 do i = 1 , npl if ( pl % status ( i ) == ACTIVE ) then rh2 = dot_product ( pl % xh (:, i ), pl % xh (:, i )) if (( param % rmax >= 0.0_DP ) . and . ( rh2 > rmax2 )) then pl % ldiscard ( i ) = . true . pl % lcollision ( i ) = . false . pl % status ( i ) = DISCARDED_RMAX write ( * , * ) \"Massive body \" , pl % id ( i ), \" too far from the central body at t = \" , param % t else if (( param % rmin >= 0.0_DP ) . and . ( rh2 < rmin2 )) then pl % ldiscard ( i ) = . true . pl % lcollision ( i ) = . false . pl % status ( i ) = DISCARDED_RMIN write ( * , * ) \"Massive body \" , pl % id ( i ), \" too close to the central body at t = \" , param % t else if ( param % rmaxu >= 0.0_DP ) then rb2 = dot_product ( pl % xb (:, i ), pl % xb (:, i )) vb2 = dot_product ( pl % vb (:, i ), pl % vb (:, i )) energy = 0.5_DP * vb2 - system % Gmtot / sqrt ( rb2 ) if (( energy > 0.0_DP ) . and . ( rb2 > rmaxu2 )) then pl % ldiscard ( i ) = . true . pl % lcollision ( i ) = . false . pl % status ( i ) = DISCARDED_RMAXU write ( * , * ) \"Massive body \" , pl % id ( i ), \" is unbound and too far from barycenter at t = \" , param % t end if end if end if end do end associate return end subroutine symba_discard_cb_pl subroutine symba_discard_conserve_mtm ( pl , system , param , ipl , lescape_body ) !! author: David A. Minton !! !! Conserves system momentum when a body is lost from the system or collides with central body implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: pl class ( symba_nbody_system ), intent ( inout ) :: system class ( symba_parameters ), intent ( inout ) :: param integer ( I4B ), intent ( in ) :: ipl logical , intent ( in ) :: lescape_body ! Internals real ( DP ), dimension ( NDIM ) :: Lpl , Ltot , Lcb , xcom , vcom real ( DP ) :: pe , ke_orbit , ke_spin integer ( I4B ) :: i , oldstat select type ( cb => system % cb ) class is ( symba_cb ) ! Add the potential and kinetic energy of the lost body to the records pe = - cb % mass * pl % mass ( ipl ) / norm2 ( pl % xb (:, ipl ) - cb % xb (:)) ke_orbit = 0.5_DP * pl % mass ( ipl ) * dot_product ( pl % vb (:, ipl ), pl % vb (:, ipl )) if ( param % lrotation ) then ke_spin = 0.5_DP * pl % mass ( ipl ) * pl % radius ( ipl ) ** 2 * pl % Ip ( 3 , ipl ) * dot_product ( pl % rot (:, ipl ), pl % rot (:, ipl )) else ke_spin = 0.0_DP end if ! Add the pre-collision ke of the central body to the records ! Add planet mass to central body accumulator if ( lescape_body ) then system % Mescape = system % Mescape + pl % mass ( ipl ) do i = 1 , pl % nbody if ( i == ipl ) cycle pe = pe - pl % mass ( i ) * pl % mass ( ipl ) / norm2 ( pl % xb (:, ipl ) - pl % xb (:, i )) end do Ltot (:) = 0.0_DP do i = 1 , pl % nbody Lpl (:) = pL % mass ( i ) * pl % xb (:, i ) . cross . pl % vb (:, i ) Ltot (:) = Ltot (:) + Lpl (:) end do Ltot (:) = Ltot (:) + cb % mass * cb % xb (:) . cross . cb % vb (:) call pl % b2h ( cb ) oldstat = pl % status ( ipl ) pl % status ( ipl ) = INACTIVE call pl % h2b ( cb ) pl % status ( ipl ) = oldstat do i = 1 , pl % nbody if ( i == ipl ) cycle Lpl (:) = pl % mass ( i ) * pl % xb (:, i ) . cross . pl % vb (:, i ) Ltot (:) = Ltot (:) - Lpl (:) end do Ltot (:) = Ltot (:) - cb % mass * cb % xb (:) . cross . cb % vb (:) system % Lescape (:) = system % Lescape (:) + Ltot (:) if ( param % lrotation ) system % Lescape (:) = system % Lescape + pl % mass ( ipl ) * pl % radius ( ipl ) ** 2 * pl % Ip ( 3 , ipl ) * pl % rot (:, ipl ) else xcom (:) = ( pl % mass ( ipl ) * pl % xb (:, ipl ) + cb % mass * cb % xb (:)) / ( cb % mass + pl % mass ( ipl )) vcom (:) = ( pl % mass ( ipl ) * pl % vb (:, ipl ) + cb % mass * cb % vb (:)) / ( cb % mass + pl % mass ( ipl )) Lpl (:) = ( pl % xb (:, ipl ) - xcom (:)) . cross . pL % vb (:, ipl ) - vcom (:) if ( param % lrotation ) Lpl (:) = pl % mass ( ipl ) * ( Lpl (:) + pl % radius ( ipl ) ** 2 * pl % Ip ( 3 , ipl ) * pl % rot (:, ipl )) Lcb (:) = cb % mass * ( cb % xb (:) - xcom (:)) . cross . ( cb % vb (:) - vcom (:)) ke_orbit = ke_orbit + 0.5_DP * cb % mass * dot_product ( cb % vb (:), cb % vb (:)) if ( param % lrotation ) ke_spin = ke_spin + 0.5_DP * cb % mass * cb % radius ** 2 * cb % Ip ( 3 ) * dot_product ( cb % rot (:), cb % rot (:)) ! Update mass of central body to be consistent with its total mass cb % dM = cb % dM + pl % mass ( ipl ) cb % dR = cb % dR + 1.0_DP / 3.0_DP * ( pl % radius ( ipl ) / cb % radius ) ** 3 - 2.0_DP / 9.0_DP * ( pl % radius ( ipl ) / cb % radius ) ** 6 cb % mass = cb % M0 + cb % dM cb % Gmass = param % GU * cb % mass cb % radius = cb % R0 + cb % dR param % rmin = cb % radius ! Add planet angular momentum to central body accumulator cb % dL (:) = Lpl (:) + Lcb (:) + cb % dL (:) ! Update rotation of central body to by consistent with its angular momentum if ( param % lrotation ) then cb % rot (:) = ( cb % L0 (:) + cb % dL (:)) / ( cb % Ip ( 3 ) * cb % mass * cb % radius ** 2 ) ke_spin = ke_spin - 0.5_DP * cb % mass * cb % radius ** 2 * cb % Ip ( 3 ) * dot_product ( cb % rot (:), cb % rot (:)) end if cb % xb (:) = xcom (:) cb % vb (:) = vcom (:) ke_orbit = ke_orbit - 0.5_DP * cb % mass * dot_product ( cb % vb (:), cb % vb (:)) end if call pl % b2h ( cb ) ! We must do this for proper book-keeping, since we can no longer track this body's contribution to energy directly if ( lescape_body ) then system % Ecollisions = system % Ecollisions + ke_orbit + ke_spin + pe system % Euntracked = system % Euntracked - ( ke_orbit + ke_spin + pe ) else system % Ecollisions = system % Ecollisions + pe system % Euntracked = system % Euntracked - pe end if end select return end subroutine symba_discard_conserve_mtm subroutine symba_discard_nonplpl ( pl , system , param ) !! author: David A. Minton !! !! Check to see if planets should be discarded based on their positions or because they are unbound !s !! !! Adapted from David E. Kaufmann's Swifter routine: symba_discard_pl.f90 !! Adapted from Hal Levison's Swift routine discard_massive5.f implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: pl !! SyMBA test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! First check for collisions with the central body associate ( npl => pl % nbody , cb => system % cb ) if ( npl == 0 ) return if (( param % rmin >= 0.0_DP ) . or . ( param % rmax >= 0.0_DP ) . or . & ( param % rmaxu >= 0.0_DP ) . or . (( param % qmin >= 0.0_DP ) . and . ( param % qmin_coord == \"BARY\" ))) then call pl % h2b ( cb ) end if if (( param % rmin >= 0.0_DP ) . or . ( param % rmax >= 0.0_DP ) . or . ( param % rmaxu >= 0.0_DP )) then call symba_discard_cb_pl ( pl , system , param ) end if if ( param % qmin >= 0.0_DP . and . npl > 0 ) call symba_discard_peri_pl ( pl , system , param ) end associate return end subroutine symba_discard_nonplpl subroutine symba_discard_nonplpl_conservation ( pl , system , param ) !! author: David A. Minton !! !! If there are any bodies that are removed due to either colliding with the central body or escaping the systme, !! we need to track the conserved quantities with the system bookkeeping terms. implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: pl !! SyMBA test particle object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i , ndiscard , dstat logical :: lescape logical , dimension ( pl % nbody ) :: discard_l_pl integer ( I4B ), dimension (:), allocatable :: discard_index_list associate ( npl => pl % nbody ) discard_l_pl ( 1 : npl ) = pl % ldiscard ( 1 : npl ) . and . . not . pl % lcollision ( 1 : npl ) ! These are bodies that are discarded but not flagged as pl-pl collision ndiscard = count ( discard_l_pl (:)) allocate ( discard_index_list ( ndiscard )) discard_index_list (:) = pack ([( i , i = 1 , npl )], discard_l_pl ( 1 : npl )) do i = 1 , ndiscard dstat = pl % status ( discard_index_list ( i )) if (( dstat == DISCARDED_RMIN ) . or . ( dstat == DISCARDED_PERI )) then lescape = . false . else if (( dstat == DISCARDED_RMAX ) . or . ( dstat == DISCARDED_RMAXU )) then lescape = . true . else cycle end if ! Conserve all the quantities call symba_discard_conserve_mtm ( pl , system , param , discard_index_list ( i ), lescape ) end do end associate return end subroutine symba_discard_nonplpl_conservation subroutine symba_discard_peri_pl ( pl , system , param ) !! author: David A. Minton !! !! Check to see if a test particle should be discarded because its perihelion distance becomes too small !! !! Adapted from David E. Kaufmann's Swifter routine: symba_discard_peri_pl.f90 !! Adapted from Hal Levison's Swift routine discard_mass_peri.f implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: pl !! SyMBA massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals logical , save :: lfirst = . true . logical :: lfirst_orig integer ( I4B ) :: i lfirst_orig = pl % lfirst pl % lfirst = lfirst if ( lfirst ) then call pl % get_peri ( system , param ) lfirst = . false . else call pl % get_peri ( system , param ) do i = 1 , pl % nbody if ( pl % status ( i ) == ACTIVE ) then if (( pl % isperi ( i ) == 0 ) . and . ( pl % nplenc ( i ) == 0 )) then if (( pl % atp ( i ) >= param % qmin_alo ) . and . ( pl % atp ( i ) <= param % qmin_ahi ) . and . ( pl % peri ( i ) <= param % qmin )) then pl % ldiscard ( i ) = . true . pl % lcollision ( i ) = . false . pl % status ( i ) = DISCARDED_PERI write ( * , * ) \"Particle \" , pl % id ( i ), \" perihelion distance too small at t = \" , param % t end if end if end if end do end if pl % lfirst = lfirst_orig return end subroutine symba_discard_peri_pl module subroutine symba_discard_pl ( self , system , param ) !! author: David A. Minton !! !! Call the various flavors of discards for massive bodies in SyMBA runs, including discards due to colling with the central body, !! escaping the system, or colliding with each other. implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! SyMBA test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals real ( DP ) :: Eorbit_before , Eorbit_after select type ( system ) class is ( symba_nbody_system ) select type ( param ) class is ( symba_parameters ) associate ( pl => self , plplenc_list => system % plplenc_list ) call pl % h2b ( system % cb ) ! First deal with the non pl-pl collisions call symba_discard_nonplpl ( self , system , param ) ! Scrub the pl-pl encounter list of any encounters that did not lead to a collision call plplenc_list % scrub_non_collision ( system , param ) if (( plplenc_list % nenc > 0 ) . and . any ( pl % lcollision (:))) then write ( * , * ) \"Collision between massive bodies detected at time t = \" , param % t if ( param % lfragmentation ) then call plplenc_list % resolve_fragmentations ( system , param ) else call plplenc_list % resolve_mergers ( system , param ) end if end if if ( any ( pl % ldiscard (:))) then if ( param % lenergy ) then call system % get_energy_and_momentum ( param ) Eorbit_before = system % te end if call symba_discard_nonplpl_conservation ( self , system , param ) call pl % rearray ( system , param ) if ( param % lenergy ) then call system % get_energy_and_momentum ( param ) Eorbit_after = system % te system % Ecollisions = Eorbit_after - Eorbit_before end if end if end associate end select end select return end subroutine symba_discard_pl end submodule s_symba_discard","tags":"","loc":"sourcefile/symba_discard.f90.html"},{"title":"symba_step.f90 – swiftest","text":"This file depends on sourcefile~~symba_step.f90~~EfferentGraph sourcefile~symba_step.f90 symba_step.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_step Source Code symba_step.f90 Source Code submodule ( symba_classes ) s_symba_step use swiftest contains module subroutine symba_step_system ( self , param , t , dt ) !! author: David A. Minton !! !! Step planets and active test particles ahead in democratic heliocentric coordinates, descending the recursive !!   branch if necessary to handle possible close encounters !! !! Adapted from David E. Kaufmann's Swifter routine: symba_step.f90 !! Adapted from Hal Levison's Swift routine symba5_step_pl.f implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize ! Internals logical :: lencounter call self % reset () select type ( pl => self % pl ) class is ( symba_pl ) select type ( tp => self % tp ) class is ( symba_tp ) lencounter = pl % encounter_check ( self , dt , 0 ) . or . tp % encounter_check ( self , dt , 0 ) if ( lencounter ) then tp % lfirst = pl % lfirst call self % interp ( param , t , dt ) pl % lfirst = . true . tp % lfirst = . true . else call helio_step_system ( self , param , t , dt ) end if end select end select return end subroutine symba_step_system module subroutine symba_step_interp_system ( self , param , t , dt ) !! author: David A. Minton !! !! Step planets and active test particles ahead in democratic heliocentric coordinates, calling the recursive !!         subroutine to descend to the appropriate level to handle close encounters !! !! Adapted from David E. Kaufmann's Swifter routine: symba_step_interp.f90 !! Adapted from Hal Levison's Swift routine symba5_step_interp.f implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize ! Internals real ( DP ) :: dth !! Half step size dth = 0.5_DP * dt associate ( system => self ) select type ( pl => system % pl ) class is ( symba_pl ) select type ( tp => system % tp ) class is ( symba_tp ) select type ( cb => system % cb ) class is ( symba_cb ) system % irec = - 1 call pl % vh2vb ( cb ) call pl % lindrift ( cb , dth , lbeg = . true .) call pl % kick ( system , param , t , dth , lbeg = . true .) call pl % drift ( system , param , dt ) call tp % vh2vb ( vbcb = - cb % ptbeg ) call tp % lindrift ( cb , dth , lbeg = . true .) call tp % kick ( system , param , t , dth , lbeg = . true .) call tp % drift ( system , param , dt ) call system % recursive_step ( param , t , 0 ) call pl % kick ( system , param , t , dth , lbeg = . false .) call pl % vb2vh ( cb ) call pl % lindrift ( cb , dth , lbeg = . false .) call tp % kick ( system , param , t , dth , lbeg = . false .) call tp % vb2vh ( vbcb = - cb % ptend ) call tp % lindrift ( cb , dth , lbeg = . false .) end select end select end select end associate return end subroutine symba_step_interp_system module subroutine symba_step_set_recur_levels_system ( self , ireci ) !! author: David A. Minton !! !! Resets pl, tp,and encounter structures at the start of a new step !! !! Adapted from David E. Kaufmann's Swifter routine: symba_step_recur.f90 !! Adapted from Hal Levison's Swift routine symba5_step_recur.f implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object integer ( I4B ), intent ( in ) :: ireci !! Input recursion level ! Internals integer ( I4B ) :: k , irecp associate ( system => self , plplenc_list => self % plplenc_list , pltpenc_list => self % pltpenc_list ) select type ( pl => self % pl ) class is ( symba_pl ) select type ( tp => self % tp ) class is ( symba_tp ) irecp = ireci + 1 if ( plplenc_list % nenc > 0 ) then do k = 1 , plplenc_list % nenc associate ( i => plplenc_list % index1 ( k ), j => plplenc_list % index2 ( k )) if ( pl % levelg ( i ) == irecp ) pl % levelg ( i ) = ireci if ( pl % levelg ( j ) == irecp ) pl % levelg ( j ) = ireci end associate end do where ( plplenc_list % level ( 1 : plplenc_list % nenc ) == irecp ) plplenc_list % level ( 1 : plplenc_list % nenc ) = ireci end if if ( pltpenc_list % nenc > 0 ) then do k = 1 , pltpenc_list % nenc associate ( i => pltpenc_list % index1 ( k ), j => pltpenc_list % index2 ( k )) if ( pl % levelg ( i ) == irecp ) pl % levelg ( i ) = ireci if ( tp % levelg ( j ) == irecp ) tp % levelg ( j ) = ireci end associate end do where ( pltpenc_list % level ( 1 : pltpenc_list % nenc ) == irecp ) pltpenc_list % level ( 1 : pltpenc_list % nenc ) = ireci end if system % irec = ireci end select end select end associate return end subroutine symba_step_set_recur_levels_system module recursive subroutine symba_step_recur_system ( self , param , t , ireci ) !! author: David A. Minton !! !! Step interacting planets and active test particles ahead in democratic heliocentric coordinates at the current !!         recursion level, if applicable, and descend to the next deeper level if necessarys !! !! Adapted from David E. Kaufmann's Swifter routine: symba_step_recur.f90 !! Adapted from Hal Levison's Swift routine symba5_step_recur.f implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), value :: t integer ( I4B ), value :: ireci !! input recursion level ! Internals integer ( I4B ) :: i , j , irecp , nloops real ( DP ) :: dtl , dth real ( DP ), dimension ( NDIM ) :: xr , vr logical :: lencounter associate ( system => self , plplenc_list => self % plplenc_list , pltpenc_list => self % pltpenc_list ) select type ( pl => self % pl ) class is ( symba_pl ) select type ( tp => self % tp ) class is ( symba_tp ) system % irec = ireci dtl = param % dt / ( NTENC ** ireci ) dth = 0.5_DP * dtl IF ( dtl / param % dt < VSMALL ) THEN write ( * , * ) \"SWIFTEST Warning:\" write ( * , * ) \"   In symba_step_recur_system, local time step is too small\" write ( * , * ) \"   Roundoff error will be important!\" call util_exit ( FAILURE ) END IF irecp = ireci + 1 if ( ireci == 0 ) then nloops = 1 else nloops = NTENC end if do j = 1 , nloops lencounter = plplenc_list % encounter_check ( system , dtl , irecp ) . or . pltpenc_list % encounter_check ( system , dtl , irecp ) call plplenc_list % kick ( system , dth , irecp , 1 ) call pltpenc_list % kick ( system , dth , irecp , 1 ) if ( ireci /= 0 ) then call plplenc_list % kick ( system , dth , irecp , - 1 ) call pltpenc_list % kick ( system , dth , irecp , - 1 ) end if call pl % drift ( system , param , dtl ) call tp % drift ( system , param , dtl ) if ( lencounter ) call system % recursive_step ( param , t + dth , irecp ) system % irec = ireci call plplenc_list % kick ( system , dth , irecp , 1 ) call pltpenc_list % kick ( system , dth , irecp , 1 ) if ( ireci /= 0 ) then call plplenc_list % kick ( system , dth , irecp , - 1 ) call pltpenc_list % kick ( system , dth , irecp , - 1 ) end if if ( param % lclose ) then call plplenc_list % collision_check ( system , param , t + dtl , dtl , ireci ) call pltpenc_list % collision_check ( system , param , t + dtl , dtl , ireci ) end if call self % set_recur_levels ( ireci ) end do end select end select end associate return end subroutine symba_step_recur_system module subroutine symba_step_reset_system ( self ) !! author: David A. Minton !! !! Resets pl, tp,and encounter structures at the start of a new step !! !! Adapted from David E. Kaufmann's Swifter routine: symba_step.f90 !! Adapted from Hal Levison's Swift routine symba5_step.f implicit none ! Arguments class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object ! Internals integer ( I4B ) :: i associate ( system => self , pltpenc_list => self % pltpenc_list , plplenc_list => self % plplenc_list , pl_adds => self % pl_adds , pl_discards => self % pl_discards ) select type ( pl => system % pl ) class is ( symba_pl ) select type ( tp => system % tp ) class is ( symba_tp ) if ( pl % nbody > 0 ) then pl % lcollision (:) = . false . pl % kin (:)% parent = [( i , i = 1 , pl % nbody )] pl % kin (:)% nchild = 0 do i = 1 , pl % nbody if ( allocated ( pl % kin ( i )% child )) deallocate ( pl % kin ( i )% child ) end do pl % nplenc (:) = 0 pl % ntpenc (:) = 0 pl % levelg (:) = 0 pl % levelm (:) = 0 pl % lencounter = . false . pl % lcollision = . false . plplenc_list % nenc = 0 end if if ( tp % nbody > 0 ) then tp % nplenc (:) = 0 tp % levelg (:) = 0 tp % levelm (:) = 0 pltpenc_list % nenc = 0 end if call pl_adds % resize ( 0 ) call pl_discards % resize ( 0 ) end select end select end associate return end subroutine symba_step_reset_system end submodule s_symba_step","tags":"","loc":"sourcefile/symba_step.f90.html"},{"title":"symba_drift.f90 – swiftest","text":"This file depends on sourcefile~~symba_drift.f90~~EfferentGraph sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_drift.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_symba_drift Source Code symba_drift.f90 Source Code submodule ( symba_classes ) s_symba_drift use swiftest contains module subroutine symba_drift_pl ( self , system , param , dt ) !! author: David A. Minton !! !! Wrapper function used to call the body drift routine from a symba_pl structure implicit none ! Arguments class ( symba_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize if ( self % nbody == 0 ) return select type ( system ) class is ( symba_nbody_system ) self % lmask (:) = self % status (:) /= INACTIVE . and . self % levelg (:) == system % irec call helio_drift_body ( self , system , param , dt ) self % lmask (:) = self % status (:) /= INACTIVE end select return end subroutine symba_drift_pl module subroutine symba_drift_tp ( self , system , param , dt ) !! author: David A. Minton !! !! Wrapper function used to call the body drift routine from a symba_pl structure implicit none ! Arguments class ( symba_tp ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize if ( self % nbody == 0 ) return select type ( system ) class is ( symba_nbody_system ) self % lmask (:) = self % status (:) /= INACTIVE . and . self % levelg (:) == system % irec call helio_drift_body ( self , system , param , dt ) self % lmask (:) = self % status (:) /= INACTIVE end select return end subroutine symba_drift_tp end submodule s_symba_drift","tags":"","loc":"sourcefile/symba_drift.f90.html"},{"title":"swiftest_driver.f90 – swiftest","text":"This file depends on sourcefile~~swiftest_driver.f90~~EfferentGraph sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Programs swiftest_driver Source Code swiftest_driver.f90 Source Code program swiftest_driver !! author: David A. Minton !! !! Driver program for the Swiftest integrators. Unlike the earlier Swift and Swifter drivers, in Swiftest all integrators !!    are run from this single program. !! !! Adapted from Swifter by David E. Kaufmann's Swifter driver programs swifter_[bs,helio,ra15,rmvs,symba,tu4,whm].f90 !! Adapted from Hal Levison and Martin Duncan's Swift driver programs use swiftest implicit none class ( swiftest_nbody_system ), allocatable :: nbody_system !! Polymorphic object containing the nbody system to be integrated class ( swiftest_parameters ), allocatable :: param !! Run configuration parameters integer ( I4B ) :: integrator !! Integrator type code (see swiftest_globals for symbolic names) character ( len = :), allocatable :: param_file_name !! Name of the file containing user-defined parameters integer ( I4B ) :: ierr !! I/O error code integer ( I8B ) :: iloop !! Loop counter integer ( I8B ) :: idump !! Dump cadence counter integer ( I8B ) :: iout !! Output cadence counter integer ( I8B ) :: nloops !! Number of steps to take in the simulation integer ( I4B ) :: iu !! Unit number of binary file ierr = io_get_args ( integrator , param_file_name ) if ( ierr /= 0 ) then write ( * , * ) 'Error reading in arguments from the command line' call util_exit ( FAILURE ) end if !> Read in the user-defined parameters file and the initial conditions of the system select case ( integrator ) case ( symba ) allocate ( symba_parameters :: param ) case default allocate ( swiftest_parameters :: param ) end select param % integrator = integrator call setup_construct_system ( nbody_system , param ) call param % read_from_file ( param_file_name ) associate ( t => param % t , & t0 => param % t0 , & dt => param % dt , & tstop => param % tstop , & istep_out => param % istep_out , & istep_dump => param % istep_dump ) call nbody_system % initialize ( param ) t = t0 iloop = 0 iout = istep_out idump = istep_dump nloops = ceiling ( tstop / dt , kind = I8B ) if ( istep_out > 0 ) call nbody_system % write_frame ( iu , param ) call nbody_system % dump ( param ) !> Define the maximum number of threads nthreads = 1 ! In the *serial* case !$ nthreads = omp_get_max_threads() ! In the *parallel* case !$ write(*,'(a)')   ' OpenMP parameters:' !$ write(*,'(a)')   ' ------------------' !$ write(*,'(a,i3,/)') ' Number of threads  = ', nthreads write ( * , * ) \" *************** Main Loop *************** \" do iloop = 1 , nloops !> Step the system forward in time call nbody_system % step ( param , t , dt ) t = t0 + iloop * dt !> Evaluate any discards or collisional outcomes call nbody_system % discard ( param ) !> If the loop counter is at the output cadence value, append the data file with a single frame if ( istep_out > 0 ) then iout = iout - 1 if ( iout == 0 ) then call nbody_system % write_frame ( iu , param ) iout = istep_out end if end if !> If the loop counter is at the dump cadence value, dump the state of the system to a file in case it needs to be restarted if ( istep_dump > 0 ) then idump = idump - 1 if ( idump == 0 ) then call nbody_system % dump ( param ) idump = istep_dump end if end if end do end associate call util_exit ( SUCCESS ) stop end program swiftest_driver","tags":"","loc":"sourcefile/swiftest_driver.f90.html"},{"title":"rmvs_classes.f90 – swiftest","text":"This file depends on sourcefile~~rmvs_classes.f90~~EfferentGraph sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~rmvs_classes.f90~~AfferentGraph sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90->sourcefile~symba_classes.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90->sourcefile~symba_classes.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90->sourcefile~symba_classes.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90->sourcefile~symba_classes.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90->sourcefile~symba_classes.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90->sourcefile~symba_classes.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90->sourcefile~symba_classes.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90->sourcefile~symba_classes.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90->sourcefile~symba_classes.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules rmvs_classes Source Code rmvs_classes.f90 Source Code module rmvs_classes !! author: David A. Minton !! !! Definition of classes and methods specific to the Regularized Mixed Variable Symplectic (RMVS) integrator !! Partially adapted from David E. Kaufmann's Swifter module: module_rmvs.f90 use swiftest_globals use whm_classes , only : whm_cb , whm_pl , whm_tp , whm_nbody_system implicit none public integer ( I4B ), private , parameter :: NTENC = 10 integer ( I4B ), private , parameter :: NTPHENC = 3 integer ( I4B ), private , parameter :: NTPENC = NTENC * NTPHENC real ( DP ), private , parameter :: RHSCALE = 3.5_DP real ( DP ), private , parameter :: RHPSCALE = 1.0_DP real ( DP ), private , parameter :: FACQDT = 2.0_DP !******************************************************************************************************************************** !  rmvs_nbody_system class definitions and method interfaces !******************************************************************************************************************************** type , extends ( whm_nbody_system ) :: rmvs_nbody_system !> In the RMVS integrator, only test particles are discarded logical :: lplanetocentric = . false . !! Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations real ( DP ) :: rts !! fraction of Hill's sphere radius to use as radius of encounter region real ( DP ), dimension (:,:), allocatable :: vbeg !! Planet velocities at beginning ot step contains !> Replace the abstract procedures with concrete ones procedure :: initialize => rmvs_setup_initialize_system !! Performs RMVS-specific initilization steps, including generating the close encounter planetocentric structures procedure :: step => rmvs_step_system !! Advance the RMVS nbody system forward in time by one step end type rmvs_nbody_system type , private :: rmvs_interp real ( DP ), dimension (:, :), allocatable :: x !! interpolated heliocentric planet position for outer encounter real ( DP ), dimension (:, :), allocatable :: v !! interpolated heliocentric planet velocity for outer encounter real ( DP ), dimension (:, :), allocatable :: aobl !! Encountering planet's oblateness acceleration value real ( DP ), dimension (:, :), allocatable :: atide !! Encountering planet's tidal acceleration value end type rmvs_interp !******************************************************************************************************************************** ! rmvs_cb class definitions and method interfaces !******************************************************************************************************************************* !> RMVS central body particle class type , extends ( whm_cb ) :: rmvs_cb type ( rmvs_interp ), dimension (:), allocatable :: outer !! interpolated heliocentric central body position for outer encounters type ( rmvs_interp ), dimension (:), allocatable :: inner !! interpolated heliocentric central body position for inner encounters logical :: lplanetocentric = . false . !! Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations end type rmvs_cb !******************************************************************************************************************************** !  rmvs_tp class definitions and method interfaces !******************************************************************************************************************************* !! RMVS test particle class type , extends ( whm_tp ) :: rmvs_tp !! Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the !!    component list, such as rmvs_setup_tp and rmvs_util_spill_tp ! encounter steps) logical , dimension (:), allocatable :: lperi !! planetocentric pericenter passage flag (persistent for a full rmvs time step) over a full RMVS time step) integer ( I4B ), dimension (:), allocatable :: plperP !! index of planet associated with pericenter distance peri (persistent over a full RMVS time step) integer ( I4B ), dimension (:), allocatable :: plencP !! index of planet that test particle is encountering (not persistent for a full RMVS time step) ! The following are used to correctly set the oblateness values of the acceleration during an inner encounter with a planet type ( rmvs_cb ) :: cb_heliocentric !! Copy of original central body object passed to close encounter (used for oblateness acceleration during planetocentric encoountters) real ( DP ), dimension (:,:), allocatable :: xheliocentric !! original heliocentric position (used for oblateness calculation during close encounters) integer ( I4B ) :: index !!  inner substep number within current set integer ( I4B ) :: ipleP !!  index value of encountering planet logical :: lplanetocentric = . false . !! Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations contains procedure :: discard => rmvs_discard_tp !! Check to see if test particles should be discarded based on pericenter passage distances with respect to planets encountered procedure :: encounter_check => rmvs_encounter_check_tp !! Checks if any test particles are undergoing a close encounter with a massive body procedure :: accel => rmvs_kick_getacch_tp !! Calculates either the standard or modified version of the acceleration depending if the !!    if the test particle is undergoing a close encounter or not procedure :: setup => rmvs_setup_tp !! Constructor method - Allocates space for the input number of bodiess procedure :: append => rmvs_util_append_tp !! Appends elements from one structure to another procedure :: fill => rmvs_util_fill_tp !! \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure :: resize => rmvs_util_resize_tp !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure :: sort => rmvs_util_sort_tp !! Sorts body arrays by a sortable componen procedure :: rearrange => rmvs_util_sort_rearrange_tp !! Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure :: spill => rmvs_util_spill_tp !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) end type rmvs_tp !******************************************************************************************************************************** !                                    rmvs_pl class definitions and method interfaces !******************************************************************************************************************************* !> RMVS massive body particle class type , extends ( whm_pl ) :: rmvs_pl integer ( I4B ), dimension (:), allocatable :: nenc !! number of test particles encountering planet this full rmvs time step integer ( I4B ), dimension (:), allocatable :: tpenc1P !! index of first test particle encountering planet integer ( I4B ), dimension (:), allocatable :: plind !! Connects the planetocentric indices back to the heliocentric planet list type ( rmvs_interp ), dimension (:), allocatable :: outer !! interpolated heliocentric central body position for outer encounters type ( rmvs_interp ), dimension (:), allocatable :: inner !! interpolated heliocentric central body position for inner encounters class ( rmvs_nbody_system ), dimension (:), allocatable :: planetocentric !! Planetocentric version of the massive body objects (one for each massive body) logical :: lplanetocentric = . false . !! Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations contains procedure :: setup => rmvs_setup_pl !! Constructor method - Allocates space for the input number of bodiess procedure :: append => rmvs_util_append_pl !! Appends elements from one structure to another procedure :: fill => rmvs_util_fill_pl !! \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure :: resize => rmvs_util_resize_pl !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure :: sort => rmvs_util_sort_pl !! Sorts body arrays by a sortable componen procedure :: rearrange => rmvs_util_sort_rearrange_pl !! Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure :: spill => rmvs_util_spill_pl !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) end type rmvs_pl interface module elemental function rmvs_chk_ind ( r2 , v2 , vdotr , dt , r2crit ) result ( lflag ) implicit none real ( DP ), intent ( in ) :: r2 , v2 , vdotr , dt , r2crit logical :: lflag end function rmvs_chk_ind module subroutine rmvs_discard_tp ( self , system , param ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine rmvs_discard_tp module function rmvs_encounter_check_tp ( self , system , dt ) result ( lencounter ) implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( rmvs_nbody_system ), intent ( inout ) :: system !! RMVS nbody system object real ( DP ), intent ( in ) :: dt !! step size logical :: lencounter !! Returns true if there is at least one close encounter end function rmvs_encounter_check_tp module subroutine rmvs_kick_getacch_tp ( self , system , param , t , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest central body particle data structuree class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step end subroutine rmvs_kick_getacch_tp module subroutine rmvs_setup_pl ( self , n , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine rmvs_setup_pl module subroutine rmvs_setup_initialize_system ( self , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( rmvs_nbody_system ), intent ( inout ) :: self !! RMVS system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine rmvs_setup_initialize_system module subroutine rmvs_setup_tp ( self , n , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parametere end subroutine rmvs_setup_tp module subroutine rmvs_util_append_pl ( self , source , lsource_mask ) use swiftest_classes , only : swiftest_body implicit none class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine rmvs_util_append_pl module subroutine rmvs_util_append_tp ( self , source , lsource_mask ) use swiftest_classes , only : swiftest_body implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine rmvs_util_append_tp module subroutine rmvs_util_fill_pl ( self , inserts , lfill_list ) use swiftest_classes , only : swiftest_body implicit none class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object class ( swiftest_body ), intent ( in ) :: inserts !! Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine rmvs_util_fill_pl module subroutine rmvs_util_fill_tp ( self , inserts , lfill_list ) use swiftest_classes , only : swiftest_body implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS massive body object class ( swiftest_body ), intent ( in ) :: inserts !!  Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine rmvs_util_fill_tp module subroutine rmvs_util_resize_pl ( self , nnew ) implicit none class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine rmvs_util_resize_pl module subroutine rmvs_util_resize_tp ( self , nnew ) implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine rmvs_util_resize_tp module subroutine rmvs_util_sort_pl ( self , sortby , ascending ) implicit none class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order end subroutine rmvs_util_sort_pl module subroutine rmvs_util_sort_tp ( self , sortby , ascending ) implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order end subroutine rmvs_util_sort_tp module subroutine rmvs_util_sort_rearrange_pl ( self , ind ) implicit none class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) end subroutine rmvs_util_sort_rearrange_pl module subroutine rmvs_util_sort_rearrange_tp ( self , ind ) implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) end subroutine rmvs_util_sort_rearrange_tp module subroutine rmvs_util_spill_pl ( self , discards , lspill_list , ldestructive ) use swiftest_classes , only : swiftest_body implicit none class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine rmvs_util_spill_pl module subroutine rmvs_util_spill_tp ( self , discards , lspill_list , ldestructive ) use swiftest_classes , only : swiftest_body implicit none class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine rmvs_util_spill_tp module subroutine rmvs_step_system ( self , param , t , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( rmvs_nbody_system ), intent ( inout ) :: self !! RMVS nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine rmvs_step_system end interface end module rmvs_classes","tags":"","loc":"sourcefile/rmvs_classes.f90.html"},{"title":"swiftest_globals.f90 – swiftest","text":"Files dependent on this one sourcefile~~swiftest_globals.f90~~AfferentGraph sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~eucl.f90->sourcefile~swiftest_classes.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90->sourcefile~swiftest_classes.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90->sourcefile~rmvs_classes.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest_classes.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90->sourcefile~swiftest_classes.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90->sourcefile~swiftest_classes.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90->sourcefile~helio_classes.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90->sourcefile~symba_classes.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest_classes.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~gr.f90->sourcefile~swiftest_classes.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~fragmentation.f90->sourcefile~swiftest_classes.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~rmvs_classes.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~util_rescale.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90->sourcefile~symba_classes.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90->sourcefile~helio_classes.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90->sourcefile~symba_classes.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90->sourcefile~whm_classes.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90->sourcefile~helio_classes.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~kick.f90->sourcefile~swiftest_classes.f90 sourcefile~operator_mag.f90 operator_mag.f90 sourcefile~operator_mag.f90->sourcefile~swiftest_operators.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90->sourcefile~whm_classes.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90->sourcefile~swiftest_classes.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~setup.f90->sourcefile~swiftest_classes.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90->sourcefile~swiftest_classes.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90->sourcefile~rmvs_classes.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90->sourcefile~symba_classes.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90->sourcefile~rmvs_classes.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest_classes.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90->sourcefile~symba_classes.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~io.f90->sourcefile~swiftest_classes.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90->sourcefile~whm_classes.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90->sourcefile~swiftest_classes.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~discard.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90->sourcefile~symba_classes.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90->sourcefile~whm_classes.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90->sourcefile~whm_classes.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest_operators.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90->sourcefile~helio_classes.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90->sourcefile~symba_classes.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~obl.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90->sourcefile~symba_classes.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90->sourcefile~whm_classes.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90->sourcefile~whm_classes.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90->sourcefile~swiftest_classes.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90->sourcefile~swiftest_classes.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90->sourcefile~symba_classes.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~drift.f90->sourcefile~swiftest_classes.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90->sourcefile~swiftest_classes.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules swiftest_globals Source Code swiftest_globals.f90 Source Code module swiftest_globals !! author: David A. Minton !! graph: false !! !! Basic parameters, definitions, and global type definitions used throughout the Swiftest project !! Adapted from David E. Kaufmann's Swifter routine: swiftest_globals.f90 and module_swifter.f90 use , intrinsic :: iso_fortran_env ! Use the intrinsic kind definitions implicit none public integer , parameter :: I8B = int64 !! Symbolic name for kind types of 8-byte integers integer , parameter :: I4B = int32 !! Symbolic name for kind types of 4-byte integers integer , parameter :: I2B = int16 !! Symbolic name for kind types of 2-byte integers integer , parameter :: I1B = int8 !! Symbolic name for kind types of 1-byte integers integer , parameter :: SP = real32 !! Symbolic name for kind types of single-precision reals integer , parameter :: DP = real64 !! Symbolic name for kind types of double-precision reals integer , parameter :: QP = real128 !! Symbolic name for kind types of quad-precision reals real ( DP ), parameter :: PIBY2 = 1.570796326794896619231321691639751442099_DP !! Definition of /(\\pi / 2 real ( DP ), parameter :: PI = 3.141592653589793238462643383279502884197_DP !! Definition of /(\\pi real ( DP ), parameter :: PI3BY2 = 4.712388980384689857693965074919254326296_DP !! Definition of /(3 \\pi / 2 real ( DP ), parameter :: TWOPI = 6.283185307179586476925286766559005768394_DP !! Definition of 2 \\pi real ( DP ), parameter :: THIRD = 0.333333333333333333333333333333333333333_DP !! Definition of 1 / 3 real ( DP ), parameter :: DEGRAD = 18 0.0_DP / PI !! Definition of conversion factor from degrees to radians integer ( I4B ), parameter :: LOWERCASE_BEGIN = iachar ( 'a' ) !! ASCII character set parameter for lower to upper conversion - start of lowercase integer ( I4B ), parameter :: LOWERCASE_END = iachar ( 'z' ) !! ASCII character set parameter for lower to upper conversion - end of lowercase integer ( I4B ), parameter :: UPPERCASE_OFFSET = iachar ( 'A' ) - iachar ( 'a' ) !! ASCII character set parameter for lower to upper conversion - offset between upper and lower real ( SP ), parameter :: VERSION_NUMBER = 0.1_SP !! swiftest version !> Symbolic name for integrator types integer ( I4B ), parameter :: UNKNOWN_INTEGRATOR = 1 integer ( I4B ), parameter :: BS = 2 integer ( I4B ), parameter :: HELIO = 3 integer ( I4B ), parameter :: RA15 = 4 integer ( I4B ), parameter :: TU4 = 5 integer ( I4B ), parameter :: WHM = 6 integer ( I4B ), parameter :: RMVS = 7 integer ( I4B ), parameter :: SYMBA = 8 integer ( I4B ), parameter :: RINGMOONS = 9 integer ( I4B ), parameter :: STRMAX = 128 !! Maximum size of character strings character ( * ), parameter :: ASCII_TYPE = 'ASCII' !! Symbolic name for ASCII file type character ( * ), parameter :: REAL4_TYPE = 'REAL4' !! Symbolic name for binary file type REAL4 character ( * ), parameter :: REAL8_TYPE = 'REAL8' !! Symbolic name for binary file type REAL8 character ( * ), parameter :: SWIFTER_REAL4_TYPE = 'SWIFTER4' !! Symbolic name for binary file type for the old style Swifter REAL4 character ( * ), parameter :: SWIFTER_REAL8_TYPE = 'SWIFTER8' !! Symbolic name for binary file type for the old style Swifter REAL8 character ( * ), parameter :: EL = 'EL' !! Symbolic name for binary output file contents for orbital element type character ( * ), parameter :: XV = 'XV' !! Symbolic name for binary output file contents for cartesian position and velocity type ! OpenMP Parameters integer ( I4B ) :: nthreads = 1 !! Number of OpenMP threads integer ( I4B ), parameter :: NTHERSHOLD = 1000 !! Threshold value for OpenMP loop parallelization integer ( I4B ), parameter :: SUCCESS = 0 !! Symbolic name for function return/flag code for success integer ( I4B ), parameter :: FAILURE = - 1 !! Symbolic name for function return/flag code for failure integer ( I4B ), parameter :: USAGE = - 2 !! Symbolic name for function return/flag code for printing the usage message integer ( I4B ), parameter :: HELP = - 3 !! Symbolic name for function return/flag code for printing the usage message character ( * ), parameter :: SUCCESS_MSG = '(/, \"Normal termination of Swiftest (version \", f3.1, \")\")' character ( * ), parameter :: FAIL_MSG = '(/, \"Terminating Swiftest (version \", f3.1, \") due to error!!\")' character ( * ), parameter :: USAGE_MSG = '(\"Usage: swiftest [bs|helio|ra15|rmvs|symba|tu4|whm] <paramfile>\")' character ( * ), parameter :: HELP_MSG = USAGE_MSG integer ( I4B ), parameter :: ELLIPSE = - 1 !! Symbolic names for orbit types - ellipse integer ( I4B ), parameter :: PARABOLA = 0 !! Symbolic names for orbit types - parabola integer ( I4B ), parameter :: HYPERBOLA = 1 !! Symbolic names for orbit types - hyperbola !> Symbolic names for body/particle status codes: integer ( I4B ), parameter :: ACTIVE = 0 integer ( I4B ), parameter :: INACTIVE = 1 integer ( I4B ), parameter :: DISCARDED_RMAX = - 1 integer ( I4B ), parameter :: DISCARDED_RMIN = - 2 integer ( I4B ), parameter :: DISCARDED_RMAXU = - 3 integer ( I4B ), parameter :: DISCARDED_PERI = - 4 integer ( I4B ), parameter :: DISCARDED_PLR = - 5 integer ( I4B ), parameter :: DISCARDED_PLQ = - 6 integer ( I4B ), parameter :: DISCARDED_DRIFTERR = - 7 integer ( I4B ), parameter :: MERGED = - 8 integer ( I4B ), parameter :: DISRUPTION = - 9 integer ( I4B ), parameter :: SUPERCATASTROPHIC = - 10 integer ( I4B ), parameter :: GRAZE_AND_MERGE = - 11 integer ( I4B ), parameter :: HIT_AND_RUN = - 12 integer ( I4B ), parameter :: COLLISION = - 13 !>Symbolic names for collisional outcomes from collresolve_resolve: integer ( I4B ), parameter :: COLLRESOLVE_REGIME_MERGE = 1 integer ( I4B ), parameter :: COLLRESOLVE_REGIME_DISRUPTION = 2 integer ( I4B ), parameter :: COLLRESOLVE_REGIME_SUPERCATASTROPHIC = 3 integer ( I4B ), parameter :: COLLRESOLVE_REGIME_GRAZE_AND_MERGE = 4 integer ( I4B ), parameter :: COLLRESOLVE_REGIME_HIT_AND_RUN = 5 !> String labels for body/particle addition/subtraction in discard file character ( * ), parameter :: ADD = '+1' character ( * ), parameter :: SUB = '-1' !> Standard file names integer ( I4B ), parameter :: NDUMPFILES = 2 character ( * ), dimension ( 2 ), parameter :: DUMP_CB_FILE = [ 'dump_cb1.bin' , 'dump_cb2.bin' ] character ( * ), dimension ( 2 ), parameter :: DUMP_PL_FILE = [ 'dump_pl1.bin' , 'dump_pl2.bin' ] character ( * ), dimension ( 2 ), parameter :: DUMP_TP_FILE = [ 'dump_tp1.bin' , 'dump_tp2.bin' ] character ( * ), dimension ( 2 ), parameter :: DUMP_PARAM_FILE = [ 'dump_param1.dat' , 'dump_param2.dat' ] !> Default file names that can be changed by the user in the parameters file character ( * ), parameter :: ENC_OUTFILE = 'encounter.out' character ( * ), parameter :: DISCARD_FILE = 'discard.out' character ( * ), parameter :: ENERGY_FILE = 'energy.out' character ( * ), parameter :: CB_INFILE = 'cb.in' character ( * ), parameter :: PL_INFILE = 'pl.in' character ( * ), parameter :: TP_INFILE = 'tp.in' character ( * ), parameter :: BIN_OUTFILE = 'bin.dat' integer ( I4B ), parameter :: BINUNIT = 20 !! File unit number for the binary output file !> Miscellaneous constants: integer ( I4B ), parameter :: NDIM = 3 !! Number of dimensions in our reality integer ( I4B ), parameter :: NDIM2 = 2 * NDIM !! 2x the number of dimensions real ( DP ), parameter :: VSMALL = 2 * epsilon ( 1._DP ) !! Very small number used to prevent floating underflow real ( DP ), parameter :: GC = 6.6743E-11_DP !! Universal gravitational constant in SI units real ( DP ), parameter :: einsteinC = 29979245 8.0_DP !! Speed of light in SI units end module swiftest_globals","tags":"","loc":"sourcefile/swiftest_globals.f90.html"},{"title":"swiftest_operators.f90 – swiftest","text":"This file depends on sourcefile~~swiftest_operators.f90~~EfferentGraph sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~swiftest_operators.f90~~AfferentGraph sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest_operators.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~operator_mag.f90 operator_mag.f90 sourcefile~operator_mag.f90->sourcefile~swiftest_operators.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules swiftest_operators Source Code swiftest_operators.f90 Source Code module swiftest_operators !! author: David A. Minton !! !! Custom operators, including !!   A .cross. B = Cross product of A(1:3) and B(1:3) !! !! Each operator can also do element-wise computation on arrays of the form .mag. A(1:3, 1:n) use swiftest_globals implicit none public !******************************************************************************************************************************** ! Interfaces for .cross. operator !******************************************************************************************************************************** interface operator (. cross .) module pure function operator_cross_sp ( A , B ) result ( C ) implicit none real ( SP ), dimension (:), intent ( in ) :: A , B real ( SP ), dimension ( 3 ) :: C end function operator_cross_sp module pure function operator_cross_dp ( A , B ) result ( C ) implicit none real ( DP ), dimension (:), intent ( in ) :: A , B real ( DP ), dimension ( 3 ) :: C end function operator_cross_dp module pure function operator_cross_qp ( A , B ) result ( C ) implicit none real ( QP ), dimension (:), intent ( in ) :: A , B real ( QP ), dimension ( 3 ) :: C end function operator_cross_qp module pure function operator_cross_i1b ( A , B ) result ( C ) implicit none integer ( I1B ), dimension (:), intent ( in ) :: A , B integer ( I1B ), dimension ( 3 ) :: C end function operator_cross_i1b module pure function operator_cross_i2b ( A , B ) result ( C ) implicit none integer ( I2B ), dimension (:), intent ( in ) :: A , B integer ( I2B ), dimension ( 3 ) :: C end function operator_cross_i2b module pure function operator_cross_i4b ( A , B ) result ( C ) implicit none integer ( I4B ), dimension (:), intent ( in ) :: A , B integer ( I4B ), dimension ( 3 ) :: C end function operator_cross_i4b module pure function operator_cross_i8b ( A , B ) result ( C ) implicit none integer ( I8B ), dimension (:), intent ( in ) :: A , B integer ( I8B ), dimension ( 3 ) :: C end function operator_cross_i8b module pure function operator_cross_el_sp ( A , B ) result ( C ) implicit none real ( SP ), dimension (:,:), intent ( in ) :: A , B real ( SP ), dimension (:,:), allocatable :: C end function operator_cross_el_sp module pure function operator_cross_el_dp ( A , B ) result ( C ) implicit none real ( DP ), dimension (:,:), intent ( in ) :: A , B real ( DP ), dimension (:,:), allocatable :: C end function operator_cross_el_dp module pure function operator_cross_el_qp ( A , B ) result ( C ) implicit none real ( QP ), dimension (:,:), intent ( in ) :: A , B real ( QP ), dimension (:,:), allocatable :: C end function operator_cross_el_qp module pure function operator_cross_el_i1b ( A , B ) result ( C ) implicit none integer ( I1B ), dimension (:,:), intent ( in ) :: A , B integer ( I1B ), dimension (:,:), allocatable :: C end function operator_cross_el_i1b module pure function operator_cross_el_i2b ( A , B ) result ( C ) implicit none integer ( I2B ), dimension (:,:), intent ( in ) :: A , B integer ( I2B ), dimension (:,:), allocatable :: C end function operator_cross_el_i2b module pure function operator_cross_el_i4b ( A , B ) result ( C ) implicit none integer ( I4B ), dimension (:,:), intent ( in ) :: A , B integer ( I4B ), dimension (:,:), allocatable :: C end function operator_cross_el_i4b module pure function operator_cross_el_i8b ( A , B ) result ( C ) implicit none integer ( I8B ), dimension (:,:), intent ( in ) :: A , B integer ( I8B ), dimension (:,:), allocatable :: C end function operator_cross_el_i8b end interface !******************************************************************************************************************************** ! Interfaces for .mag. operator !******************************************************************************************************************************** interface operator (. mag .) module pure function operator_mag_sp ( A ) result ( B ) implicit none real ( SP ), dimension (:), intent ( in ) :: A real ( SP ) :: B end function operator_mag_sp module pure function operator_mag_dp ( A ) result ( B ) implicit none real ( DP ), dimension (:), intent ( in ) :: A real ( DP ) :: B end function operator_mag_dp module pure function operator_mag_qp ( A ) result ( B ) implicit none real ( QP ), dimension (:), intent ( in ) :: A real ( QP ) :: B end function operator_mag_qp module pure function operator_mag_el_sp ( A ) result ( B ) implicit none real ( SP ), dimension (:,:), intent ( in ) :: A real ( SP ), dimension (:), allocatable :: B end function operator_mag_el_sp module pure function operator_mag_el_dp ( A ) result ( B ) implicit none real ( DP ), dimension (:,:), intent ( in ) :: A real ( DP ), dimension (:), allocatable :: B end function operator_mag_el_dp module pure function operator_mag_el_qp ( A ) result ( B ) implicit none real ( QP ), dimension (:,:), intent ( in ) :: A real ( QP ), dimension (:), allocatable :: B end function operator_mag_el_qp end interface end module swiftest_operators","tags":"","loc":"sourcefile/swiftest_operators.f90.html"},{"title":"helio_classes.f90 – swiftest","text":"This file depends on sourcefile~~helio_classes.f90~~EfferentGraph sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~helio_classes.f90~~AfferentGraph sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~helio_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~helio_classes.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~helio_classes.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~helio_classes.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~helio_classes.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90->sourcefile~symba_classes.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90->sourcefile~symba_classes.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90->sourcefile~symba_classes.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90->sourcefile~symba_classes.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90->sourcefile~symba_classes.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90->sourcefile~symba_classes.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90->sourcefile~symba_classes.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90->sourcefile~symba_classes.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90->sourcefile~symba_classes.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules helio_classes Source Code helio_classes.f90 Source Code module helio_classes !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Definition of classes and methods specific to the Democratic Heliocentric Method !! Adapted from David E. Kaufmann's Swifter routine: helio.f90 use swiftest_globals use swiftest_classes , only : swiftest_cb , swiftest_pl , swiftest_tp , swiftest_nbody_system use whm_classes , only : whm_nbody_system implicit none public !******************************************************************************************************************************** !  helio_nbody_system class definitions and method interfaces !******************************************************************************************************************************** type , extends ( whm_nbody_system ) :: helio_nbody_system contains procedure :: step => helio_step_system !! Advance the Helio nbody system forward in time by one step end type helio_nbody_system !******************************************************************************************************************************** ! helio_cb class definitions and method interfaces !******************************************************************************************************************************* !> Helio central body particle class type , extends ( swiftest_cb ) :: helio_cb real ( DP ), dimension ( NDIM ) :: ptbeg !! negative barycentric velocity of the central body at the beginning of time step real ( DP ), dimension ( NDIM ) :: ptend !! negative barycentric velocity of the central body at the end of time step contains end type helio_cb !******************************************************************************************************************************** !                                    helio_pl class definitions and method interfaces !******************************************************************************************************************************* !! Helio massive body particle class type , extends ( swiftest_pl ) :: helio_pl contains procedure :: vh2vb => helio_coord_vh2vb_pl !! Convert massive bodies from heliocentric to barycentric coordinates (velocity only) procedure :: vb2vh => helio_coord_vb2vh_pl !! Convert massive bodies from barycentric to heliocentric coordinates (velocity only) procedure :: drift => helio_drift_pl !! Method for Danby drift in Democratic Heliocentric coordinates procedure :: lindrift => helio_drift_linear_pl !! Method for linear drift of massive bodies due to barycentric momentum of Sun procedure :: accel_gr => helio_gr_kick_getacch_pl !! Acceleration term arising from the post-Newtonian correction procedure :: gr_pos_kick => helio_gr_p4_pl !! Position kick due to p**4 term in the post-Newtonian correction procedure :: accel => helio_kick_getacch_pl !! Compute heliocentric accelerations of massive bodies procedure :: kick => helio_kick_vb_pl !! Kicks the barycentric velocities procedure :: step => helio_step_pl !! Steps the body forward one stepsize end type helio_pl !******************************************************************************************************************************** !                                    helio_tp class definitions and method interfaces !******************************************************************************************************************************* !! Helio test particle class type , extends ( swiftest_tp ) :: helio_tp contains procedure :: vh2vb => helio_coord_vh2vb_tp !! Convert test particles from heliocentric to barycentric coordinates (velocity only) procedure :: vb2vh => helio_coord_vb2vh_tp !! Convert test particles from barycentric to heliocentric coordinates (velocity only) procedure :: lindrift => helio_drift_linear_tp !! Method for linear drift of massive bodies due to barycentric momentum of Sun procedure :: drift => helio_drift_tp !! Method for Danby drift in Democratic Heliocentric coordinates procedure :: accel_gr => helio_gr_kick_getacch_tp !! Acceleration term arising from the post-Newtonian correction procedure :: gr_pos_kick => helio_gr_p4_tp !! Position kick due to p**4 term in the post-Newtonian correction procedure :: accel => helio_kick_getacch_tp !! Compute heliocentric accelerations of massive bodies procedure :: kick => helio_kick_vb_tp !! Kicks the barycentric velocities procedure :: step => helio_step_tp !! Steps the body forward one stepsize end type helio_tp interface module subroutine helio_coord_vb2vh_pl ( self , cb ) use swiftest_classes , only : swiftest_cb implicit none class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine helio_coord_vb2vh_pl module subroutine helio_coord_vb2vh_tp ( self , vbcb ) implicit none class ( helio_tp ), intent ( inout ) :: self !! Helio massive body object real ( DP ), dimension (:), intent ( in ) :: vbcb !! Barycentric velocity of the central body end subroutine helio_coord_vb2vh_tp module subroutine helio_coord_vh2vb_pl ( self , cb ) use swiftest_classes , only : swiftest_cb implicit none class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine helio_coord_vh2vb_pl module subroutine helio_coord_vh2vb_tp ( self , vbcb ) implicit none class ( helio_tp ), intent ( inout ) :: self !! Helio massive body object real ( DP ), dimension (:), intent ( in ) :: vbcb !! Barycentric velocity of the central body end subroutine helio_coord_vh2vb_tp module subroutine helio_drift_body ( self , system , param , dt ) use swiftest_classes , only : swiftest_body , swiftest_nbody_system , swiftest_parameters implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine helio_drift_body module subroutine helio_drift_pl ( self , system , param , dt ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine helio_drift_pl module subroutine helio_drift_tp ( self , system , param , dt ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( helio_tp ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine helio_drift_tp module subroutine helio_drift_linear_pl ( self , cb , dt , lbeg ) implicit none class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( helio_cb ), intent ( inout ) :: cb !! Helio central body real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Argument that determines whether or not this is the beginning or end of the step end subroutine helio_drift_linear_pl module subroutine helio_drift_linear_tp ( self , cb , dt , lbeg ) implicit none class ( helio_tp ), intent ( inout ) :: self !! Helio test particle object class ( helio_cb ), intent ( in ) :: cb !! Helio central body real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Argument that determines whether or not this is the beginning or end of the step end subroutine helio_drift_linear_tp module subroutine helio_gr_kick_getacch_pl ( self , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( helio_pl ), intent ( inout ) :: self !! Helio massive body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine helio_gr_kick_getacch_pl module subroutine helio_gr_kick_getacch_tp ( self , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( helio_tp ), intent ( inout ) :: self !! Helio massive body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine helio_gr_kick_getacch_tp module pure subroutine helio_gr_p4_pl ( self , param , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( helio_pl ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Step size end subroutine helio_gr_p4_pl module pure subroutine helio_gr_p4_tp ( self , param , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( helio_tp ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Step size end subroutine helio_gr_p4_tp module subroutine helio_kick_getacch_pl ( self , system , param , t , lbeg ) use swiftest_classes , only : swiftest_parameters , swiftest_nbody_system implicit none class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step end subroutine helio_kick_getacch_pl module subroutine helio_kick_getacch_tp ( self , system , param , t , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( helio_tp ), intent ( inout ) :: self !! Helio test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step end subroutine helio_kick_getacch_tp module subroutine helio_kick_vb_pl ( self , system , param , t , dt , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( helio_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. end subroutine helio_kick_vb_pl module subroutine helio_kick_vb_tp ( self , system , param , t , dt , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( helio_tp ), intent ( inout ) :: self !! Helio test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. end subroutine helio_kick_vb_tp module subroutine helio_step_pl ( self , system , param , t , dt ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( helio_pl ), intent ( inout ) :: self !! Helio massive body particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nboody system class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine helio_step_pl module subroutine helio_step_system ( self , param , t , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( helio_nbody_system ), intent ( inout ) :: self !! Helio nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine helio_step_system module subroutine helio_step_tp ( self , system , param , t , dt ) use swiftest_classes , only : swiftest_cb , swiftest_parameters , swiftest_nbody_system implicit none class ( helio_tp ), intent ( inout ) :: self !! Helio test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Stepsizee end subroutine helio_step_tp end interface end module helio_classes","tags":"","loc":"sourcefile/helio_classes.f90.html"},{"title":"whm_classes.f90 – swiftest","text":"This file depends on sourcefile~~whm_classes.f90~~EfferentGraph sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~whm_classes.f90~~AfferentGraph sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~whm_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~whm_classes.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~whm_classes.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~whm_classes.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~whm_classes.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~whm_classes.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~whm_classes.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90->sourcefile~rmvs_classes.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90->sourcefile~helio_classes.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90->sourcefile~symba_classes.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~rmvs_classes.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90->sourcefile~symba_classes.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90->sourcefile~helio_classes.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90->sourcefile~symba_classes.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90->sourcefile~helio_classes.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90->sourcefile~rmvs_classes.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90->sourcefile~rmvs_classes.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90->sourcefile~symba_classes.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90->sourcefile~rmvs_classes.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90->sourcefile~symba_classes.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90->sourcefile~symba_classes.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90->sourcefile~helio_classes.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90->sourcefile~symba_classes.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90->sourcefile~symba_classes.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90->sourcefile~symba_classes.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules whm_classes Source Code whm_classes.f90 Source Code module whm_classes !! author: David A. Minton !! !! Definition of classes and methods specific to the Democratic Heliocentric Method !! Partially adapted from David E. Kaufmann's Swifter module: module_whm.f90 use swiftest_globals use swiftest_classes , only : swiftest_cb , swiftest_pl , swiftest_tp , swiftest_nbody_system implicit none public !******************************************************************************************************************************** ! whm_cb class definitions and method interfaces !******************************************************************************************************************************* !> Swiftest central body particle class type , extends ( swiftest_cb ) :: whm_cb contains end type whm_cb !******************************************************************************************************************************** !                                    whm_pl class definitions and method interfaces !******************************************************************************************************************************* !> WHM massive body particle class type , extends ( swiftest_pl ) :: whm_pl real ( DP ), dimension (:), allocatable :: eta !! Jacobi mass real ( DP ), dimension (:,:), allocatable :: xj !! Jacobi position real ( DP ), dimension (:,:), allocatable :: vj !! Jacobi velocity real ( DP ), dimension (:), allocatable :: muj !! Jacobi mu: GMcb * eta(i) / eta(i - 1) real ( DP ), dimension (:), allocatable :: ir3j !! Third term of heliocentric acceleration !! Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the !!    component list, such as whm_setup_pl and whm_util_spill_pl contains procedure :: h2j => whm_coord_h2j_pl !! Convert position and velcoity vectors from heliocentric to Jacobi coordinates procedure :: j2h => whm_coord_j2h_pl !! Convert position and velcoity vectors from Jacobi to helliocentric coordinates procedure :: vh2vj => whm_coord_vh2vj_pl !! Convert velocity vectors from heliocentric to Jacobi coordinates procedure :: drift => whm_drift_pl !! Loop through massive bodies and call Danby drift routine to jacobi coordinates procedure :: accel_gr => whm_gr_kick_getacch_pl !! Acceleration term arising from the post-Newtonian correction procedure :: gr_pos_kick => whm_gr_p4_pl !! Position kick due to p**4 term in the post-Newtonian correction procedure :: accel => whm_kick_getacch_pl !! Compute heliocentric accelerations of massive bodies procedure :: kick => whm_kick_vh_pl !! Kick heliocentric velocities of massive bodies procedure :: append => whm_util_append_pl !! Appends elements from one structure to another procedure :: fill => whm_util_fill_pl !! \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure :: resize => whm_util_resize_pl !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure :: set_ir3 => whm_util_set_ir3j !! Sets both the heliocentric and jacobi inverse radius terms (1/rj**3 and 1/rh**3) procedure :: set_mu => whm_util_set_mu_eta_pl !! Sets the Jacobi mass value for all massive bodies. procedure :: sort => whm_util_sort_pl !! Sort a WHM massive body object in-place. procedure :: rearrange => whm_util_sort_rearrange_pl !! Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure :: spill => whm_util_spill_pl !!\"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure :: setup => whm_setup_pl !! Constructor method - Allocates space for the input number of bodiess procedure :: step => whm_step_pl !! Steps the body forward one stepsize end type whm_pl !******************************************************************************************************************************** !  whm_tp class definitions and method interfaces !******************************************************************************************************************************* !! WHM test particle class type , extends ( swiftest_tp ) :: whm_tp !! Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the !!    component list, such as whm_util_spill_tp contains procedure :: accel_gr => whm_gr_kick_getacch_tp !! Acceleration term arising from the post-Newtonian correction procedure :: gr_pos_kick => whm_gr_p4_tp !! Position kick due to p**4 term in the post-Newtonian correction procedure :: accel => whm_kick_getacch_tp !! Compute heliocentric accelerations of test particles procedure :: kick => whm_kick_vh_tp !! Kick heliocentric velocities of test particles procedure :: step => whm_step_tp !! Steps the particle forward one stepsize end type whm_tp !******************************************************************************************************************************** !  whm_nbody_system class definitions and method interfaces !******************************************************************************************************************************** !> An abstract class for the WHM integrator nbody system type , extends ( swiftest_nbody_system ) :: whm_nbody_system contains !> Replace the abstract procedures with concrete ones procedure :: initialize => whm_setup_initialize_system !! Performs WHM-specific initilization steps, like calculating the Jacobi masses procedure :: step => whm_step_system !! Advance the WHM nbody system forward in time by one step end type whm_nbody_system interface module subroutine whm_coord_h2j_pl ( self , cb ) use swiftest_classes , only : swiftest_cb implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body particle data structuree end subroutine whm_coord_h2j_pl module subroutine whm_coord_j2h_pl ( self , cb ) use swiftest_classes , only : swiftest_cb implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body particle data structuree end subroutine whm_coord_j2h_pl module subroutine whm_coord_vh2vj_pl ( self , cb ) use swiftest_classes , only : swiftest_cb implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body particle data structuree end subroutine whm_coord_vh2vj_pl module subroutine whm_drift_pl ( self , system , param , dt ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! WHM nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine whm_drift_pl !> Get heliocentric accelration of massive bodies module subroutine whm_kick_getacch_pl ( self , system , param , t , lbeg ) use swiftest_classes , only : swiftest_cb , swiftest_parameters implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! WHM nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step end subroutine whm_kick_getacch_pl !> Get heliocentric accelration of the test particle module subroutine whm_kick_getacch_tp ( self , system , param , t , lbeg ) use swiftest_classes , only : swiftest_cb , swiftest_parameters implicit none class ( whm_tp ), intent ( inout ) :: self !! WHM test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! WHM nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step end subroutine whm_kick_getacch_tp module subroutine whm_kick_vh_pl ( self , system , param , t , dt , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. end subroutine whm_kick_vh_pl module subroutine whm_kick_vh_tp ( self , system , param , t , dt , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( whm_tp ), intent ( inout ) :: self !! WHM test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. end subroutine whm_kick_vh_tp module subroutine whm_gr_kick_getacch_pl ( self , param ) use swiftest_classes , only : swiftest_cb , swiftest_parameters implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine whm_gr_kick_getacch_pl module subroutine whm_gr_kick_getacch_tp ( self , param ) use swiftest_classes , only : swiftest_cb , swiftest_parameters implicit none class ( whm_tp ), intent ( inout ) :: self !! WHM test particle data structure class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine whm_gr_kick_getacch_tp module pure subroutine whm_gr_p4_pl ( self , param , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Step size end subroutine whm_gr_p4_pl module pure subroutine whm_gr_p4_tp ( self , param , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( whm_tp ), intent ( inout ) :: self !! WHM test particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Step size end subroutine whm_gr_p4_tp !> Reads WHM massive body object in from file module subroutine whm_setup_pl ( self , n , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body objectobject integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine whm_setup_pl module subroutine whm_setup_initialize_system ( self , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( whm_nbody_system ), intent ( inout ) :: self !! WHM nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine whm_setup_initialize_system module subroutine whm_step_pl ( self , system , param , t , dt ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine whm_step_pl module subroutine whm_step_system ( self , param , t , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( whm_nbody_system ), intent ( inout ) :: self !! WHM system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine whm_step_system module subroutine whm_step_tp ( self , system , param , t , dt ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( whm_tp ), intent ( inout ) :: self !! WHM test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine whm_step_tp module subroutine whm_util_append_pl ( self , source , lsource_mask ) use swiftest_classes , only : swiftest_body implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine whm_util_append_pl module subroutine whm_util_spill_pl ( self , discards , lspill_list , ldestructive ) use swiftest_classes , only : swiftest_body implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine whm_util_spill_pl module subroutine whm_util_fill_pl ( self , inserts , lfill_list ) use swiftest_classes , only : swiftest_body implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_body ), intent ( in ) :: inserts !! inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine whm_util_fill_pl module subroutine whm_util_resize_pl ( self , nnew ) implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine whm_util_resize_pl module subroutine whm_util_set_ir3j ( self ) implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object end subroutine whm_util_set_ir3j module subroutine whm_util_set_mu_eta_pl ( self , cb ) use swiftest_classes , only : swiftest_cb implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine whm_util_set_mu_eta_pl module subroutine whm_util_sort_pl ( self , sortby , ascending ) implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order end subroutine whm_util_sort_pl module subroutine whm_util_sort_rearrange_pl ( self , ind ) implicit none class ( whm_pl ), intent ( inout ) :: self !! WHM massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) end subroutine whm_util_sort_rearrange_pl end interface end module whm_classes","tags":"","loc":"sourcefile/whm_classes.f90.html"},{"title":"symba_classes.f90 – swiftest","text":"This file depends on sourcefile~~symba_classes.f90~~EfferentGraph sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~symba_classes.f90~~AfferentGraph sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~symba_classes.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~symba_classes.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~symba_classes.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~symba_classes.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~symba_classes.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~symba_classes.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~symba_classes.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~symba_classes.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules symba_classes Source Code symba_classes.f90 Source Code module symba_classes !! author: The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Definition of classes and methods specific to the Democratic SyMBAcentric Method !! Adapted from David E. Kaufmann's Swifter routine: helio.f90 use swiftest_globals use swiftest_classes , only : swiftest_parameters , swiftest_base , swiftest_encounter use helio_classes , only : helio_cb , helio_pl , helio_tp , helio_nbody_system use rmvs_classes , only : rmvs_chk_ind implicit none public integer ( I4B ), private , parameter :: NENMAX = 32767 integer ( I4B ), private , parameter :: NTENC = 3 real ( DP ), private , parameter :: RHSCALE = 6.5_DP real ( DP ), private , parameter :: RSHELL = 0.48075_DP character ( * ), parameter :: PARTICLE_OUTFILE = 'particle.dat' integer ( I4B ), parameter :: PARTICLEUNIT = 44 !! File unit number for the binary particle info output file type , extends ( swiftest_parameters ) :: symba_parameters character ( STRMAX ) :: particle_out = PARTICLE_OUTFILE !! Name of output particle information file real ( DP ) :: GMTINY = - 1.0_DP !! Smallest mass that is fully gravitating integer ( I4B ), dimension (:), allocatable :: seed !! Random seeds logical :: lfragmentation = . false . !! Do fragmentation modeling instead of simple merger. contains procedure :: reader => symba_io_param_reader procedure :: writer => symba_io_param_writer end type symba_parameters !******************************************************************************************************************************** !                                    symba_particle_info class definitions and method interfaces !******************************************************************************************************************************* !> Class definition for the particle origin information object. This object is used to track time, location, and collisional regime !> of fragments produced in collisional events. type :: symba_particle_info sequence character ( len = 32 ) :: origin_type !! String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.) real ( DP ) :: origin_time !! The time of the particle's formation real ( DP ), dimension ( NDIM ) :: origin_xh !! The heliocentric distance vector at the time of the particle's formation real ( DP ), dimension ( NDIM ) :: origin_vh !! The heliocentric velocity vector at the time of the particle's formation end type symba_particle_info !******************************************************************************************************************************** !                                    symba_kinship class definitions and method interfaces !******************************************************************************************************************************* !> Class definition for the kinship relationships used in bookkeeping multiple collisions bodies in a single time step. type symba_kinship integer ( I4B ) :: parent !! Index of parent particle integer ( I4B ) :: nchild !! number of children in merger list integer ( I4B ), dimension (:), allocatable :: child !! Index of children particles end type symba_kinship !******************************************************************************************************************************** ! symba_cb class definitions and method interfaces !******************************************************************************************************************************* !> SyMBA central body particle class type , extends ( helio_cb ) :: symba_cb real ( DP ) :: M0 = 0.0_DP !! Initial mass of the central body real ( DP ) :: dM = 0.0_DP !! Change in mass of the central body real ( DP ) :: R0 = 0.0_DP !! Initial radius of the central body real ( DP ) :: dR = 0.0_DP !! Change in the radius of the central body type ( symba_particle_info ) :: info contains end type symba_cb !******************************************************************************************************************************** !                                    symba_pl class definitions and method interfaces !******************************************************************************************************************************* !> SyMBA massive body class type , extends ( helio_pl ) :: symba_pl logical , dimension (:), allocatable :: lcollision !! flag indicating whether body has merged with another this time step logical , dimension (:), allocatable :: lencounter !! flag indicating whether body is part of an encounter this time step logical , dimension (:), allocatable :: lmtiny !! flag indicating whether this body is below the GMTINY cutoff value integer ( I4B ) :: nplm !! number of bodies above the GMTINY limit integer ( I8B ) :: nplplm !! Number of body (all massive)-body (only those above GMTINY) comparisons in the flattened upper triangular matrix integer ( I4B ), dimension (:), allocatable :: nplenc !! number of encounters with other planets this time step integer ( I4B ), dimension (:), allocatable :: ntpenc !! number of encounters with test particles this time step integer ( I4B ), dimension (:), allocatable :: levelg !! level at which this body should be moved integer ( I4B ), dimension (:), allocatable :: levelm !! deepest encounter level achieved this time step integer ( I4B ), dimension (:), allocatable :: isperi !! perihelion passage flag real ( DP ), dimension (:), allocatable :: peri !! perihelion distance real ( DP ), dimension (:), allocatable :: atp !! semimajor axis following perihelion passage type ( symba_kinship ), dimension (:), allocatable :: kin !! Array of merger relationship structures that can account for multiple pairwise mergers in a single step type ( symba_particle_info ), dimension (:), allocatable :: info contains procedure :: make_family => symba_collision_make_family_pl !! When a single body is involved in more than one collision in a single step, it becomes part of a family procedure :: discard => symba_discard_pl !! Process massive body discards procedure :: drift => symba_drift_pl !! Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level procedure :: encounter_check => symba_encounter_check_pl !! Checks if massive bodies are going through close encounters with each other procedure :: accel => symba_kick_getacch_pl !! Compute heliocentric accelerations of massive bodies procedure :: setup => symba_setup_pl !! Constructor method - Allocates space for the input number of bodies procedure :: append => symba_util_append_pl !! Appends elements from one structure to another procedure :: fill => symba_util_fill_pl !! \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure :: get_peri => symba_util_peri_pl !! Determine system pericenter passages for massive bodies procedure :: rearray => symba_util_rearray_pl !! Clean up the massive body structures to remove discarded bodies and add new bodies procedure :: resize => symba_util_resize_pl !! Checks the current size of a SyMBA massive body against the requested size and resizes it if it is too small. procedure :: sort => symba_util_sort_pl !! Sorts body arrays by a sortable componen procedure :: rearrange => symba_util_sort_rearrange_pl !! Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure :: spill => symba_util_spill_pl !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) end type symba_pl type , extends ( symba_pl ) :: symba_merger integer ( I4B ), dimension (:), allocatable :: ncomp contains procedure :: append => symba_util_append_merger !! Appends elements from one structure to another procedure :: resize => symba_util_resize_merger !! Checks the current size of a SyMBA merger list against the requested size and resizes it if it is too small. procedure :: setup => symba_setup_merger !! Constructor method - Allocates space for the input number of bodies end type symba_merger !******************************************************************************************************************************** !                                    symba_tp class definitions and method interfaces !******************************************************************************************************************************* !> SyMBA test particle class type , extends ( helio_tp ) :: symba_tp integer ( I4B ), dimension (:), allocatable :: nplenc !! number of encounters with planets this time step integer ( I4B ), dimension (:), allocatable :: levelg !! level at which this particle should be moved integer ( I4B ), dimension (:), allocatable :: levelm !! deepest encounter level achieved this time step type ( symba_particle_info ), dimension (:), allocatable :: info contains procedure :: drift => symba_drift_tp !! Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level procedure :: encounter_check => symba_encounter_check_tp !! Checks if any test particles are undergoing a close encounter with a massive body procedure :: accel => symba_kick_getacch_tp !! Compute heliocentric accelerations of test particles procedure :: setup => symba_setup_tp !! Constructor method - Allocates space for the input number of bodies procedure :: append => symba_util_append_tp !! Appends elements from one structure to another procedure :: fill => symba_util_fill_tp !! \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure :: resize => symba_util_resize_tp !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure :: sort => symba_util_sort_tp !! Sorts body arrays by a sortable componen procedure :: rearrange => symba_util_sort_rearrange_tp !! Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure :: spill => symba_util_spill_tp !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) end type symba_tp !******************************************************************************************************************************** !                                    symba_pltpenc class definitions and method interfaces !******************************************************************************************************************************* !> SyMBA class for tracking pl-tp close encounters in a step type , extends ( swiftest_encounter ) :: symba_pltpenc integer ( I4B ), dimension (:), allocatable :: level !! encounter recursion level contains procedure :: collision_check => symba_collision_check_pltpenc !! Checks if a test particle is going to collide with a massive body procedure :: encounter_check => symba_encounter_check_pltpenc !! Checks if massive bodies are going through close encounters with each other procedure :: kick => symba_kick_pltpenc !! Kick barycentric velocities of active test particles within SyMBA recursion procedure :: setup => symba_setup_pltpenc !! A constructor that sets the number of encounters and allocates and initializes all arrays procedure :: spill => symba_util_spill_pltpenc !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) end type symba_pltpenc !******************************************************************************************************************************** !                                    symba_plplenc class definitions and method interfaces !******************************************************************************************************************************* !> SyMBA class for tracking pl-pl close encounters in a step type , extends ( symba_pltpenc ) :: symba_plplenc contains procedure :: scrub_non_collision => symba_collision_encounter_scrub !! Processes the pl-pl encounter list remove only those encounters that led to a collision procedure :: resolve_fragmentations => symba_collision_resolve_fragmentations !! Process list of collisions, determine the collisional regime, and then create fragments procedure :: resolve_mergers => symba_collision_resolve_mergers !! Process list of collisions and merge colliding bodies together end type symba_plplenc !******************************************************************************************************************************** !  symba_nbody_system class definitions and method interfaces !******************************************************************************************************************************** type , extends ( helio_nbody_system ) :: symba_nbody_system class ( symba_merger ), allocatable :: pl_adds !! List of added bodies in mergers or collisions class ( symba_pltpenc ), allocatable :: pltpenc_list !! List of massive body-test particle encounters in a single step class ( symba_plplenc ), allocatable :: plplenc_list !! List of massive body-massive body encounters in a single step integer ( I4B ) :: irec !! System recursion level contains procedure :: write_discard => symba_io_write_discard !! Write out information about discarded and merged planets and test particles in SyMBA procedure :: initialize => symba_setup_initialize_system !! Performs SyMBA-specific initilization steps procedure :: step => symba_step_system !! Advance the SyMBA nbody system forward in time by one step procedure :: interp => symba_step_interp_system !! Perform an interpolation step on the SymBA nbody system procedure :: set_recur_levels => symba_step_set_recur_levels_system !! Sets recursion levels of bodies and encounter lists to the current system level procedure :: recursive_step => symba_step_recur_system !! Step interacting planets and active test particles ahead in democratic heliocentric coordinates at the current recursion level, if applicable, and descend to the next deeper level if necessary procedure :: reset => symba_step_reset_system !! Resets pl, tp,and encounter structures at the start of a new step end type symba_nbody_system interface module subroutine symba_collision_check_pltpenc ( self , system , param , t , dt , irec ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-tp encounter list object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! current time real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level end subroutine symba_collision_check_pltpenc module subroutine symba_collision_encounter_scrub ( self , system , param ) implicit none class ( symba_plplenc ), intent ( inout ) :: self !! SyMBA pl-pl encounter list class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameterss end subroutine module subroutine symba_collision_make_family_pl ( self , idx ) implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), dimension ( 2 ), intent ( in ) :: idx !! Array holding the indices of the two bodies involved in the collision end subroutine symba_collision_make_family_pl module subroutine symba_collision_resolve_fragmentations ( self , system , param ) implicit none class ( symba_plplenc ), intent ( inout ) :: self !! SyMBA pl-pl encounter list class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions end subroutine symba_collision_resolve_fragmentations module subroutine symba_collision_resolve_mergers ( self , system , param ) implicit none class ( symba_plplenc ), intent ( inout ) :: self !! SyMBA pl-pl encounter list class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions end subroutine symba_collision_resolve_mergers module subroutine symba_discard_pl ( self , system , param ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine symba_discard_pl module subroutine symba_drift_pl ( self , system , param , dt ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( symba_pl ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine symba_drift_pl module subroutine symba_drift_tp ( self , system , param , dt ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( symba_tp ), intent ( inout ) :: self !! Helio massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine symba_drift_tp module pure elemental subroutine symba_encounter_check_one ( xr , yr , zr , vxr , vyr , vzr , rhill1 , rhill2 , dt , irec , lencounter , lvdotr ) implicit none real ( DP ), intent ( in ) :: xr , yr , zr , vxr , vyr , vzr real ( DP ), intent ( in ) :: rhill1 , rhill2 , dt integer ( I4B ), intent ( in ) :: irec logical , intent ( out ) :: lencounter , lvdotr end subroutine symba_encounter_check_one module function symba_encounter_check_pl ( self , system , dt , irec ) result ( lany_encounter ) implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA test particle object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level logical :: lany_encounter !! Returns true if there is at least one close encounter end function symba_encounter_check_pl module function symba_encounter_check_pltpenc ( self , system , dt , irec ) result ( lany_encounter ) implicit none class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-pl encounter list object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level logical :: lany_encounter !! Returns true if there is at least one close encounter end function symba_encounter_check_pltpenc module function symba_encounter_check_tp ( self , system , dt , irec ) result ( lany_encounter ) implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level logical :: lany_encounter !! Returns true if there is at least one close encounter end function symba_encounter_check_tp module function symba_fragmentation_casedisruption ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) result ( status ) implicit none class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension (:), intent ( in ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension (:,:), intent ( inout ) :: x , v , L_spin , Ip !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass , radius !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass_res !! The distribution of fragment mass obtained by the regime calculation real ( DP ), intent ( inout ) :: Qloss !! Energy lost during collisionn integer ( I4B ) :: status !! Status flag assigned to this outcome end function symba_fragmentation_casedisruption module function symba_fragmentation_casehitandrun ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) result ( status ) implicit none class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension (:), intent ( in ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension (:,:), intent ( inout ) :: x , v , L_spin , Ip !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass , radius !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass_res !! The distribution of fragment mass obtained by the regime calculation real ( DP ), intent ( inout ) :: Qloss !! Energy lost during collision integer ( I4B ) :: status !! Status flag assigned to this outcome end function symba_fragmentation_casehitandrun module function symba_fragmentation_casemerge ( system , param , family , x , v , mass , radius , L_spin , Ip ) result ( status ) implicit none class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension (:), intent ( in ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension (:,:), intent ( in ) :: x , v , L_spin , Ip !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( in ) :: mass , radius !! Input values that represent a 2-body equivalent of a possibly 2+ body collisio integer ( I4B ) :: status !! Status flag assigned to this outcome end function symba_fragmentation_casemerge module function symba_fragmentation_casesupercatastrophic ( system , param , family , x , v , mass , radius , L_spin , Ip , mass_res , Qloss ) result ( status ) implicit none class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions integer ( I4B ), dimension (:), intent ( in ) :: family !! List of indices of all bodies inovlved in the collision real ( DP ), dimension (:,:), intent ( inout ) :: x , v , L_spin , Ip !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass , radius !! Input values that represent a 2-body equivalent of a possibly 2+ body collision real ( DP ), dimension (:), intent ( inout ) :: mass_res !! The distribution of fragment mass obtained by the regime calculation real ( DP ), intent ( inout ) :: Qloss !! Energy lost during collision integer ( I4B ) :: status !! Status flag assigned to this outcome end function symba_fragmentation_casesupercatastrophic module subroutine symba_io_write_discard ( self , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine symba_io_write_discard module subroutine symba_io_dump_particle_info ( system , param , lincludecb , tpidx , plidx ) implicit none class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA extensions logical , optional , intent ( in ) :: lincludecb !! Set to true to include the central body (default is false) integer ( I4B ), dimension (:), optional , intent ( in ) :: tpidx !! Array of test particle indices to append to the particle file integer ( I4B ), dimension (:), optional , intent ( in ) :: plidx !! Array of massive body indices to append to the particle file end subroutine symba_io_dump_particle_info module subroutine symba_io_param_reader ( self , unit , iotype , v_list , iostat , iomsg ) implicit none class ( symba_parameters ), intent ( inout ) :: self !! Current run configuration parameters with SyMBA additionss integer , intent ( in ) :: unit !! File unit number character ( len =* ), intent ( in ) :: iotype !! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. !!    If you do not include a char-literal-constant, the iotype argument contains only DT. integer , intent ( in ) :: v_list (:) !! The first element passes the integrator code to the reader integer , intent ( out ) :: iostat !! IO status code character ( len =* ), intent ( inout ) :: iomsg !! Message to pass if iostat /= 0 end subroutine symba_io_param_reader module subroutine symba_io_param_writer ( self , unit , iotype , v_list , iostat , iomsg ) implicit none class ( symba_parameters ), intent ( in ) :: self !! Current run configuration parameters with SyMBA additions integer , intent ( in ) :: unit !! File unit number character ( len =* ), intent ( in ) :: iotype !! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. !!    If you do not include a char-literal-constant, the iotype argument contains only DT. integer , intent ( in ) :: v_list (:) !! Not used in this procedure integer , intent ( out ) :: iostat !! IO status code character ( len =* ), intent ( inout ) :: iomsg !! Message to pass if iostat /= 0 end subroutine symba_io_param_writer module subroutine symba_io_read_particle ( system , param ) implicit none class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system file class ( symba_parameters ), intent ( inout ) :: param !! Current run configuration parameters with SyMBA extensions end subroutine symba_io_read_particle module subroutine symba_kick_getacch_pl ( self , system , param , t , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step end subroutine symba_kick_getacch_pl module subroutine symba_kick_getacch_tp ( self , system , param , t , lbeg ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step end subroutine symba_kick_getacch_tp module subroutine symba_kick_pltpenc ( self , system , dt , irec , sgn ) implicit none class ( symba_pltpenc ), intent ( in ) :: self !! SyMBA pl-tp encounter list object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object real ( DP ), intent ( in ) :: dt !! step size integer ( I4B ), intent ( in ) :: irec !! Current recursion level integer ( I4B ), intent ( in ) :: sgn !! sign to be applied to acceleration end subroutine symba_kick_pltpenc module subroutine symba_setup_initialize_particle_info ( system , param ) implicit none class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( inout ) :: param !! Current run configuration parameters with SyMBA extensions end subroutine symba_setup_initialize_particle_info module subroutine symba_setup_initialize_system ( self , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine symba_setup_initialize_system module subroutine symba_setup_merger ( self , n , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_merger ), intent ( inout ) :: self !! SyMBA merger list object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine symba_setup_merger module subroutine symba_setup_pl ( self , n , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine symba_setup_pl module subroutine symba_setup_pltpenc ( self , n ) implicit none class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-tp encounter structure integer ( I4B ), intent ( in ) :: n !! Number of encounters to allocate space for end subroutine symba_setup_pltpenc module subroutine symba_setup_tp ( self , n , param ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter end subroutine symba_setup_tp module subroutine symba_step_system ( self , param , t , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine symba_step_system module subroutine symba_step_interp_system ( self , param , t , dt ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine symba_step_interp_system module subroutine symba_step_set_recur_levels_system ( self , ireci ) implicit none class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system objec integer ( I4B ), intent ( in ) :: ireci !! Input recursion level end subroutine symba_step_set_recur_levels_system module recursive subroutine symba_step_recur_system ( self , param , t , ireci ) use swiftest_classes , only : swiftest_parameters implicit none class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), value :: t integer ( I4B ), value :: ireci !! input recursion level end subroutine symba_step_recur_system module subroutine symba_step_reset_system ( self ) implicit none class ( symba_nbody_system ), intent ( inout ) :: self !! SyMBA nbody system object end subroutine symba_step_reset_system end interface interface util_append module subroutine symba_util_append_arr_info ( arr , source , nold , nsrc , lsource_mask ) implicit none type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array type ( symba_particle_info ), dimension (:), allocatable , intent ( in ) :: source !! Array to append integer ( I4B ), intent ( in ) :: nold , nsrc !! Extend of the old array and the source array, respectively logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine symba_util_append_arr_info module subroutine symba_util_append_arr_kin ( arr , source , nold , nsrc , lsource_mask ) implicit none type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array type ( symba_kinship ), dimension (:), allocatable , intent ( in ) :: source !! Array to append integer ( I4B ), intent ( in ) :: nold , nsrc !! Extend of the old array and the source array, respectively logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine symba_util_append_arr_kin end interface interface module subroutine symba_util_append_merger ( self , source , lsource_mask ) use swiftest_classes , only : swiftest_body implicit none class ( symba_merger ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine symba_util_append_merger module subroutine symba_util_append_pl ( self , source , lsource_mask ) use swiftest_classes , only : swiftest_body implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine symba_util_append_pl module subroutine symba_util_append_tp ( self , source , lsource_mask ) use swiftest_classes , only : swiftest_body implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine symba_util_append_tp end interface interface util_fill module subroutine symba_util_fill_arr_info ( keeps , inserts , lfill_list ) implicit none type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( symba_particle_info ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine symba_util_fill_arr_info module subroutine symba_util_fill_arr_kin ( keeps , inserts , lfill_list ) implicit none type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( symba_kinship ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine symba_util_fill_arr_kin end interface interface module subroutine symba_util_fill_pl ( self , inserts , lfill_list ) use swiftest_classes , only : swiftest_body implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_body ), intent ( in ) :: inserts !! Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine symba_util_fill_pl module subroutine symba_util_fill_tp ( self , inserts , lfill_list ) use swiftest_classes , only : swiftest_body implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object class ( swiftest_body ), intent ( in ) :: inserts !! Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine symba_util_fill_tp module subroutine symba_util_peri_pl ( self , system , param ) use swiftest_classes , only : swiftest_nbody_system , swiftest_parameters implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine symba_util_peri_pl module subroutine symba_util_rearray_pl ( self , system , param ) implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( symba_nbody_system ), intent ( inout ) :: system !! SyMBA nbody system object class ( symba_parameters ), intent ( in ) :: param !! Current run configuration parameters with SyMBA additions end subroutine symba_util_rearray_pl end interface interface util_resize module subroutine symba_util_resize_arr_info ( arr , nnew ) implicit none type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size end subroutine symba_util_resize_arr_info module subroutine symba_util_resize_arr_kin ( arr , nnew ) implicit none type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size end subroutine symba_util_resize_arr_kin end interface interface module subroutine symba_util_resize_merger ( self , nnew ) implicit none class ( symba_merger ), intent ( inout ) :: self !! SyMBA merger list object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine symba_util_resize_merger module subroutine symba_util_resize_pl ( self , nnew ) implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine symba_util_resize_pl module subroutine symba_util_resize_tp ( self , nnew ) implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine symba_util_resize_tp module subroutine symba_util_sort_pl ( self , sortby , ascending ) implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order end subroutine symba_util_sort_pl module subroutine symba_util_sort_tp ( self , sortby , ascending ) implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order end subroutine symba_util_sort_tp module subroutine symba_util_sort_rearrange_pl ( self , ind ) implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) end subroutine symba_util_sort_rearrange_pl module subroutine symba_util_sort_rearrange_tp ( self , ind ) implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) end subroutine symba_util_sort_rearrange_tp end interface interface util_spill module subroutine symba_util_spill_arr_info ( keeps , discards , lspill_list , ldestructive ) implicit none type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( symba_particle_info ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardss logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine symba_util_spill_arr_info module subroutine symba_util_spill_arr_kin ( keeps , discards , lspill_list , ldestructive ) implicit none type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep type ( symba_kinship ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardss logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine symba_util_spill_arr_kin end interface interface module subroutine symba_util_spill_pl ( self , discards , lspill_list , ldestructive ) use swiftest_classes , only : swiftest_body implicit none class ( symba_pl ), intent ( inout ) :: self !! SyMBA massive body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine symba_util_spill_pl module subroutine symba_util_spill_pltpenc ( self , discards , lspill_list , ldestructive ) use swiftest_classes , only : swiftest_encounter implicit none class ( symba_pltpenc ), intent ( inout ) :: self !! SyMBA pl-tp encounter list class ( swiftest_encounter ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list end subroutine symba_util_spill_pltpenc module subroutine symba_util_spill_tp ( self , discards , lspill_list , ldestructive ) use swiftest_classes , only : swiftest_body implicit none class ( symba_tp ), intent ( inout ) :: self !! SyMBA test particle object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine symba_util_spill_tp end interface end module symba_classes","tags":"","loc":"sourcefile/symba_classes.f90.html"},{"title":"swiftest.f90 – swiftest","text":"This file depends on sourcefile~~swiftest.f90~~EfferentGraph sourcefile~swiftest.f90 swiftest.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~swiftest.f90~~AfferentGraph sourcefile~swiftest.f90 swiftest.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules swiftest Source Code swiftest.f90 Source Code module swiftest !! author: David A. Minton !! graph: false !! !! This module serves to combine all of the Swiftest project modules under a single umbrella so that they can be accessed from individual submodule implementations with a simple \"use swiftest\" line. use swiftest_globals use swiftest_operators use swiftest_classes use whm_classes use rmvs_classes use helio_classes use symba_classes use lambda_function !use advisor_annotate !$ use omp_lib implicit none public end module swiftest","tags":"","loc":"sourcefile/swiftest.f90.html"},{"title":"swiftest_classes.f90 – swiftest","text":"This file depends on sourcefile~~swiftest_classes.f90~~EfferentGraph sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~swiftest_classes.f90~~AfferentGraph sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest_classes.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest_classes.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest_classes.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest_classes.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest_classes.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest_classes.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest_classes.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest_classes.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.f90->sourcefile~swiftest_classes.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest_classes.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest_classes.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest_classes.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest_classes.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest_classes.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest_classes.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest_classes.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest_classes.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest_classes.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest_classes.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest_classes.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest_classes.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest_classes.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest_classes.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest_classes.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest_classes.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest_classes.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest_classes.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest_classes.f90 sourcefile~util_sort.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90->sourcefile~helio_classes.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90->sourcefile~helio_classes.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90->sourcefile~symba_classes.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90->sourcefile~symba_classes.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90->sourcefile~helio_classes.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90->sourcefile~symba_classes.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90->sourcefile~whm_classes.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90->sourcefile~rmvs_classes.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90->sourcefile~symba_classes.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90->sourcefile~symba_classes.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90->sourcefile~whm_classes.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90->sourcefile~symba_classes.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90->sourcefile~whm_classes.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90->sourcefile~symba_classes.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90->sourcefile~whm_classes.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90->sourcefile~helio_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90->sourcefile~symba_classes.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90->sourcefile~symba_classes.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90->sourcefile~whm_classes.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90->sourcefile~whm_classes.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90->sourcefile~symba_classes.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules swiftest_classes Source Code swiftest_classes.f90 Source Code module swiftest_classes !! author: The Purdue Swiftest Team -  David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott !! !! Definition of data and structures generic to all integrators. !! Adapted from David E. Kaufmann's Swifter routine: module_swifter.f90 use swiftest_globals implicit none public !******************************************************************************************************************************** ! swiftest_parameters class definitions !******************************************************************************************************************************** !> User defined parameters that are read in from the parameters input file. !>    Each paramter is initialized to a default values. type :: swiftest_parameters integer ( I4B ) :: integrator = UNKNOWN_INTEGRATOR !! Symbolic name of the nbody integrator  used integer ( I4B ) :: nplmax = - 1 !! Maximum allowed number of massive bodies integer ( I4B ) :: ntpmax = - 1 !! Maximum allowed number of test particles real ( DP ) :: t0 = - 1.0_DP !! Integration start time real ( DP ) :: t = - 1.0_DP !! Integration current time real ( DP ) :: tstop = - 1.0_DP !! Integration stop time real ( DP ) :: dt = - 1.0_DP !! Time step character ( STRMAX ) :: incbfile = CB_INFILE !! Name of input file for the central body character ( STRMAX ) :: inplfile = PL_INFILE !! Name of input file for massive bodies character ( STRMAX ) :: intpfile = TP_INFILE !! Name of input file for test particles character ( STRMAX ) :: in_type = ASCII_TYPE !! Format of input data files integer ( I4B ) :: istep_out = - 1 !! Number of time steps between binary outputs character ( STRMAX ) :: outfile = BIN_OUTFILE !! Name of output binary file character ( STRMAX ) :: out_type = REAL8_TYPE !! Binary format of output file character ( STRMAX ) :: out_form = XV !! Data to write to output file character ( STRMAX ) :: out_stat = 'NEW' !! Open status for output binary file integer ( I4B ) :: istep_dump = - 1 !! Number of time steps between dumps real ( DP ) :: rmin = - 1.0_DP !! Minimum heliocentric radius for test particle real ( DP ) :: rmax = - 1.0_DP !! Maximum heliocentric radius for test particle real ( DP ) :: rmaxu = - 1.0_DP !! Maximum unbound heliocentric radius for test particle real ( DP ) :: qmin = - 1.0_DP !! Minimum pericenter distance for test particle character ( STRMAX ) :: qmin_coord = 'HELIO' !! Coordinate frame to use for qmin real ( DP ) :: qmin_alo = - 1.0_DP !! Minimum semimajor axis for qmin real ( DP ) :: qmin_ahi = - 1.0_DP !! Maximum semimajor axis for qmin character ( STRMAX ) :: enc_out = \"\" !! Name of output file for encounters character ( STRMAX ) :: discard_out = \"\" !! Name of output file for discards real ( QP ) :: MU2KG = - 1.0_QP !! Converts mass units to grams real ( QP ) :: TU2S = - 1.0_QP !! Converts time units to seconds real ( QP ) :: DU2M = - 1.0_QP !! Converts distance unit to centimeters real ( DP ) :: GU = - 1.0_DP !! Universal gravitational constant in the system units real ( DP ) :: inv_c2 = - 1.0_DP !! Inverse speed of light squared in the system units character ( STRMAX ) :: energy_out = \"\" !! Name of output energy and momentum report file ! Logical flags to turn on or off various features of the code logical :: lrhill_present = . false . !! Hill radii are given as an input rather than calculated by the code (can be used to inflate close encounter regions manually) logical :: lextra_force = . false . !! User defined force function turned on logical :: lbig_discard = . false . !! Save big bodies on every discard logical :: lclose = . false . !! Turn on close encounters logical :: lenergy = . false . !! Track the total energy of the system logical :: loblatecb = . false . !! Calculate acceleration from oblate central body (automatically turns true if nonzero J2 is input) logical :: lrotation = . false . !! Include rotation states of big bodies logical :: ltides = . false . !! Include tidal dissipation ! Initial values to pass to the energy report subroutine (usually only used in the case of a restart, otherwise these will be updated with initial conditions values) real ( DP ) :: Eorbit_orig = 0.0_DP !! Initial orbital energy real ( DP ) :: Mtot_orig = 0.0_DP !! Initial system mass real ( DP ) :: Lmag_orig = 0.0_DP !! Initial total angular momentum magnitude real ( DP ), dimension ( NDIM ) :: Ltot_orig = 0.0_DP !! Initial total angular momentum vector real ( DP ), dimension ( NDIM ) :: Lorbit_orig = 0.0_DP !! Initial orbital angular momentum real ( DP ), dimension ( NDIM ) :: Lspin_orig = 0.0_DP !! Initial spin angular momentum vector real ( DP ), dimension ( NDIM ) :: Ltot = 0.0_DP !! System angular momentum vector real ( DP ), dimension ( NDIM ) :: Lescape = 0.0_DP !! Angular momentum of bodies that escaped the system (used for bookeeping) real ( DP ) :: Mescape = 0.0_DP !! Mass of bodies that escaped the system (used for bookeeping) real ( DP ) :: Ecollisions = 0.0_DP !! Energy lost from system due to collisions real ( DP ) :: Euntracked = 0.0_DP !! Energy gained from system due to escaped bodies logical :: lfirstenergy = . true . !! This is the first time computing energe logical :: lfirstkick = . true . !! Initiate the first kick in a symplectic step logical :: lrestart = . false . !! Indicates whether or not this is a restarted run ! Future features not implemented or in development logical :: lgr = . false . !! Turn on GR logical :: lyarkovsky = . false . !! Turn on Yarkovsky effect logical :: lyorp = . false . !! Turn on YORP effect contains procedure :: reader => io_param_reader procedure :: writer => io_param_writer procedure :: dump => io_dump_param procedure :: read_from_file => io_read_param_in end type swiftest_parameters !******************************************************************************************************************************** ! swiftest_base class definitions and methods !******************************************************************************************************************************** type , abstract :: swiftest_base !! An superclass for a generic Swiftest object logical :: lintegrate = . false . !! Flag indicating that this object should be integrated in the current step contains !! The minimal methods that all systems must have procedure :: dump => io_dump_swiftest procedure ( abstract_initialize ), deferred :: initialize procedure ( abstract_read_frame ), deferred :: read_frame procedure ( abstract_write_frame ), deferred :: write_frame end type swiftest_base !******************************************************************************************************************************** ! swiftest_cb class definitions and methods !******************************************************************************************************************************** !> A concrete lass for the central body in a Swiftest simulation type , abstract , extends ( swiftest_base ) :: swiftest_cb character ( len = STRMAX ) :: name !! Non-unique name integer ( I4B ) :: id = 0 !! External identifier (unique) real ( DP ) :: mass = 0.0_DP !! Central body mass (units MU) real ( DP ) :: Gmass = 0.0_DP !! Central mass gravitational term G * mass (units GU * MU) real ( DP ) :: radius = 0.0_DP !! Central body radius (units DU) real ( DP ) :: density = 1.0_DP !! Central body mass density - calculated internally (units MU / DU**3) real ( DP ) :: j2rp2 = 0.0_DP !! J2*R&#94;2 term for central body real ( DP ) :: j4rp4 = 0.0_DP !! J4*R&#94;2 term for central body real ( DP ), dimension ( NDIM ) :: aobl = 0.0_DP !! Barycentric acceleration due to central body oblatenes real ( DP ), dimension ( NDIM ) :: atide = 0.0_DP !! Barycentric acceleration due to central body oblatenes real ( DP ), dimension ( NDIM ) :: aoblbeg = 0.0_DP !! Barycentric acceleration due to central body oblatenes at beginning of step real ( DP ), dimension ( NDIM ) :: aoblend = 0.0_DP !! Barycentric acceleration due to central body oblatenes at end of step real ( DP ), dimension ( NDIM ) :: atidebeg = 0.0_DP !! Barycentric acceleration due to central body oblatenes at beginning of step real ( DP ), dimension ( NDIM ) :: atideend = 0.0_DP !! Barycentric acceleration due to central body oblatenes at end of step real ( DP ), dimension ( NDIM ) :: xb = 0.0_DP !! Barycentric position (units DU) real ( DP ), dimension ( NDIM ) :: vb = 0.0_DP !! Barycentric velocity (units DU / TU) real ( DP ), dimension ( NDIM ) :: agr = 0.0_DP !! Acceleration due to post-Newtonian correction real ( DP ), dimension ( NDIM ) :: Ip = 0.0_DP !! Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real ( DP ), dimension ( NDIM ) :: rot = 0.0_DP !! Body rotation vector in inertial coordinate frame (units rad / TU) real ( DP ) :: k2 = 0.0_DP !! Tidal Love number real ( DP ) :: Q = 0.0_DP !! Tidal quality factor real ( DP ) :: tlag = 0.0_DP !! Tidal phase lag angle real ( DP ), dimension ( NDIM ) :: L0 = 0.0_DP !! Initial angular momentum of the central body real ( DP ), dimension ( NDIM ) :: dL = 0.0_DP !! Change in angular momentum of the central body contains procedure :: initialize => io_read_cb_in !! I/O routine for reading in central body data procedure :: read_frame => io_read_frame_cb !! I/O routine for reading out a single frame of time-series data for the central body procedure :: write_frame => io_write_frame_cb !! I/O routine for writing out a single frame of time-series data for the central body end type swiftest_cb !******************************************************************************************************************************** ! swiftest_body definitions and methods !******************************************************************************************************************************** !> An abstract class for a generic collection of Swiftest bodies type , abstract , extends ( swiftest_base ) :: swiftest_body !! Superclass that defines the generic elements of a Swiftest particle logical :: lfirst = . true . !! Run the current step as a first integer ( I4B ) :: nbody = 0 !! Number of bodies character ( len = STRMAX ), dimension (:), allocatable :: name !! Non-unique name integer ( I4B ), dimension (:), allocatable :: id !! External identifier (unique) integer ( I4B ), dimension (:), allocatable :: status !! An integrator-specific status indicator logical , dimension (:), allocatable :: ldiscard !! Body should be discarded logical , dimension (:), allocatable :: lmask !! Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real ( DP ), dimension (:), allocatable :: mu !! G * (Mcb + [m]) real ( DP ), dimension (:,:), allocatable :: xh !! Heliocentric position real ( DP ), dimension (:,:), allocatable :: vh !! Heliocentric velocity real ( DP ), dimension (:,:), allocatable :: xb !! Barycentric position real ( DP ), dimension (:,:), allocatable :: vb !! Barycentric velocity real ( DP ), dimension (:,:), allocatable :: ah !! Total heliocentric acceleration real ( DP ), dimension (:,:), allocatable :: aobl !! Barycentric accelerations of bodies due to central body oblatenes real ( DP ), dimension (:,:), allocatable :: atide !! Tanngential component of acceleration of bodies due to tides real ( DP ), dimension (:,:), allocatable :: agr !! Acceleration due to post-Newtonian correction real ( DP ), dimension (:), allocatable :: ir3h !! Inverse heliocentric radius term (1/rh**3) real ( DP ), dimension (:), allocatable :: a !! Semimajor axis (pericentric distance for a parabolic orbit) real ( DP ), dimension (:), allocatable :: e !! Eccentricity real ( DP ), dimension (:), allocatable :: inc !! Inclination real ( DP ), dimension (:), allocatable :: capom !! Longitude of ascending node real ( DP ), dimension (:), allocatable :: omega !! Argument of pericenter real ( DP ), dimension (:), allocatable :: capm !! Mean anomaly !! Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the !!    component list, such as setup_body and util_spill contains procedure ( abstract_discard_body ), deferred :: discard procedure ( abstract_kick_body ), deferred :: kick procedure ( abstract_set_mu ), deferred :: set_mu procedure ( abstract_step_body ), deferred :: step procedure ( abstract_accel ), deferred :: accel ! These are concrete because the implementation is the same for all types of particles procedure :: drift => drift_body !! Loop through bodies and call Danby drift routine on heliocentric variables procedure :: v2pv => gr_vh2pv_body !! Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure :: pv2v => gr_pv2vh_body !! Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure :: initialize => io_read_body_in !! Read in body initial conditions from a file procedure :: read_frame => io_read_frame_body !! I/O routine for writing out a single frame of time-series data for the central body procedure :: write_frame => io_write_frame_body !! I/O routine for writing out a single frame of time-series data for the central body procedure :: accel_obl => obl_acc_body !! Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure :: el2xv => orbel_el2xv_vec !! Convert orbital elements to position and velocity vectors procedure :: xv2el => orbel_xv2el_vec !! Convert position and velocity vectors to orbital  elements procedure :: setup => setup_body !! A constructor that sets the number of bodies and allocates all allocatable arrays procedure :: accel_user => user_kick_getacch_body !! Add user-supplied heliocentric accelerations to planets procedure :: append => util_append_body !! Appends elements from one structure to another procedure :: fill => util_fill_body !! \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure :: resize => util_resize_body !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure :: set_ir3 => util_set_ir3h !! Sets the inverse heliocentric radius term (1/rh**3) procedure :: sort => util_sort_body !! Sorts body arrays by a sortable componen procedure :: rearrange => util_sort_rearrange_body !! Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure :: spill => util_spill_body !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) end type swiftest_body !******************************************************************************************************************************** ! swiftest_pl definitions and methods !******************************************************************************************************************************** !> An abstract class for a generic collection of Swiftest massive bodies type , abstract , extends ( swiftest_body ) :: swiftest_pl !! Superclass that defines the generic elements of a Swiftest particle real ( DP ), dimension (:), allocatable :: mass !! Body mass (units MU) real ( DP ), dimension (:), allocatable :: Gmass !! Mass gravitational term G * mass (units GU * MU) real ( DP ), dimension (:), allocatable :: rhill !! Body mass (units MU) real ( DP ), dimension (:), allocatable :: radius !! Body radius (units DU) real ( DP ), dimension (:,:), allocatable :: xbeg !! Position at beginning of step real ( DP ), dimension (:,:), allocatable :: xend !! Position at end of step real ( DP ), dimension (:,:), allocatable :: vbeg !! Velocity at beginning of step real ( DP ), dimension (:), allocatable :: density !! Body mass density - calculated internally (units MU / DU**3) real ( DP ), dimension (:,:), allocatable :: Ip !! Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real ( DP ), dimension (:,:), allocatable :: rot !! Body rotation vector in inertial coordinate frame (units rad / TU) real ( DP ), dimension (:), allocatable :: k2 !! Tidal Love number real ( DP ), dimension (:), allocatable :: Q !! Tidal quality factor real ( DP ), dimension (:), allocatable :: tlag !! Tidal phase lag integer ( I4B ), dimension (:,:), allocatable :: k_plpl !! Index array used to convert flattened the body-body comparison upper triangular matrix integer ( I8B ) :: nplpl !! Number of body-body comparisons in the flattened upper triangular matrix !! Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the !!    component list, such as setup_pl and util_spill_pl contains ! Massive body-specific concrete methods ! These are concrete because they are the same implemenation for all integrators procedure :: discard => discard_pl !! Placeholder method for discarding massive bodies procedure :: eucl_index => eucl_dist_index_plpl !! Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix procedure :: accel_int => kick_getacch_int_pl !! Compute direct cross (third) term heliocentric accelerations of massive bodies procedure :: accel_obl => obl_acc_pl !! Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure :: setup => setup_pl !! A base constructor that sets the number of bodies and allocates and initializes all arrays procedure :: accel_tides => tides_kick_getacch_pl !! Compute the accelerations of bodies due to tidal interactions with the central body procedure :: append => util_append_pl !! Appends elements from one structure to another procedure :: h2b => util_coord_h2b_pl !! Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) procedure :: b2h => util_coord_b2h_pl !! Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) procedure :: fill => util_fill_pl !! \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure :: resize => util_resize_pl !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure :: set_beg_end => util_set_beg_end_pl !! Sets the beginning and ending positions and velocities of planets. procedure :: set_mu => util_set_mu_pl !! Method used to construct the vectorized form of the central body mass procedure :: set_rhill => util_set_rhill !! Calculates the Hill's radii for each body procedure :: sort => util_sort_pl !! Sorts body arrays by a sortable component procedure :: rearrange => util_sort_rearrange_pl !! Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure :: spill => util_spill_pl !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) end type swiftest_pl !******************************************************************************************************************************** ! swiftest_tp definitions and methods !******************************************************************************************************************************** !> An abstract class for a generic collection of Swiftest test particles type , abstract , extends ( swiftest_body ) :: swiftest_tp !! Superclass that defines the generic elements of a Swiftest test particle integer ( I4B ), dimension (:), allocatable :: isperi !! Perihelion passage flag real ( DP ), dimension (:), allocatable :: peri !! Perihelion distance real ( DP ), dimension (:), allocatable :: atp !! Semimajor axis following perihelion passage !! Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the !!    component list, such as setup_tp and util_spill_tp contains ! Test particle-specific concrete methods ! These are concrete because they are the same implemenation for all integrators procedure :: discard => discard_tp !! Check to see if test particles should be discarded based on their positions relative to the massive bodies procedure :: accel_int => kick_getacch_int_tp !! Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies procedure :: accel_obl => obl_acc_tp !! Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure :: setup => setup_tp !! A base constructor that sets the number of bodies and procedure :: append => util_append_tp !! Appends elements from one structure to another procedure :: h2b => util_coord_h2b_tp !! Convert test particles from heliocentric to barycentric coordinates (position and velocity) procedure :: b2h => util_coord_b2h_tp !! Convert test particles from barycentric to heliocentric coordinates (position and velocity) procedure :: fill => util_fill_tp !! \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure :: get_peri => util_peri_tp !! Determine system pericenter passages for test particles procedure :: resize => util_resize_tp !! Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure :: set_mu => util_set_mu_tp !! Method used to construct the vectorized form of the central body mass procedure :: sort => util_sort_tp !! Sorts body arrays by a sortable component procedure :: rearrange => util_sort_rearrange_tp !! Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure :: spill => util_spill_tp !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) end type swiftest_tp !******************************************************************************************************************************** ! swiftest_nbody_system class definitions and methods !******************************************************************************************************************************** !> An abstract class for a basic Swiftest nbody system type , abstract , extends ( swiftest_base ) :: swiftest_nbody_system !!  This superclass contains a minimial system of a set of test particles (tp), massive bodies (pl), and a central body (cb) class ( swiftest_cb ), allocatable :: cb !! Central body data structure class ( swiftest_pl ), allocatable :: pl !! Massive body data structure class ( swiftest_tp ), allocatable :: tp !! Test particle data structure class ( swiftest_tp ), allocatable :: tp_discards !! Discarded test particle data structure class ( swiftest_pl ), allocatable :: pl_discards !! Discarded massive body particle data structure real ( DP ) :: Gmtot = 0.0_DP !! Total system mass - used for barycentric coordinate conversion real ( DP ) :: ke_orbit = 0.0_DP !! System orbital kinetic energy real ( DP ) :: ke_spin = 0.0_DP !! System spin kinetic energy real ( DP ) :: pe = 0.0_DP !! System potential energy real ( DP ) :: te = 0.0_DP !! System total energy real ( DP ), dimension ( NDIM ) :: Lorbit = 0.0_DP !! System orbital angular momentum vector real ( DP ), dimension ( NDIM ) :: Lspin = 0.0_DP !! System spin angular momentum vector real ( DP ), dimension ( NDIM ) :: Lescape = 0.0_DP !! Angular momentum of bodies that escaped the system (used for bookeeping) real ( DP ) :: Mescape = 0.0_DP !! Mass of bodies that escaped the system (used for bookeeping) real ( DP ) :: Ecollisions = 0.0_DP !! Energy lost from system due to collisions real ( DP ) :: Euntracked = 0.0_DP !! Energy gained from system due to escaped bodies logical :: lbeg !! True if this is the beginning of a step. This is used so that test particle steps can be calculated !!    separately from massive bodies.  Massive body variables are saved at half steps, and passed to !!    the test particles integer ( I4B ) :: maxid = - 1 !! The current maximum particle id number contains !> Each integrator will have its own version of the step procedure ( abstract_step_system ), deferred :: step ! Concrete classes that are common to the basic integrator (only test particles considered for discard) procedure :: discard => discard_system !! Perform a discard step on the system procedure :: conservation_report => io_conservation_report !! Compute energy and momentum and print out the change with time procedure :: dump => io_dump_system !! Dump the state of the system to a file procedure :: read_frame => io_read_frame_system !! Read in a frame of input data from file procedure :: write_discard => io_write_discard !! Write out information about discarded test particles procedure :: write_frame => io_write_frame_system !! Append a frame of output data to file procedure :: initialize => setup_initialize_system !! Initialize the system from input files procedure :: step_spin => tides_step_spin_system !! Steps the spins of the massive & central bodies due to tides. procedure :: set_msys => util_set_msys !! Sets the value of msys from the masses of system bodies. procedure :: get_energy_and_momentum => util_get_energy_momentum_system !! Calculates the total system energy and momentum procedure :: rescale => util_rescale_system !! Rescales the system into a new set of units procedure :: validate_ids => util_valid_id_system !! Validate the numerical ids passed to the system and save the maximum value end type swiftest_nbody_system type :: swiftest_encounter integer ( I4B ) :: nenc !! Total number of encounters logical , dimension (:), allocatable :: lvdotr !! relative vdotr flag integer ( I4B ), dimension (:), allocatable :: status !! status of the interaction integer ( I4B ), dimension (:), allocatable :: index1 !! position of the first body in the encounter integer ( I4B ), dimension (:), allocatable :: index2 !! position of the second body in the encounter real ( DP ), dimension (:,:), allocatable :: x1 !! the position of body 1 in the encounter real ( DP ), dimension (:,:), allocatable :: x2 !! the position of body 2 in the encounter real ( DP ), dimension (:,:), allocatable :: v1 !! the velocity of body 1 in the encounter real ( DP ), dimension (:,:), allocatable :: v2 !! the velocity of body 2 in the encounter contains procedure :: setup => setup_encounter !! A constructor that sets the number of encounters and allocates and initializes all arrays procedure :: copy => util_copy_encounter !! Copies elements from the source encounter list into self. procedure :: spill => util_spill_encounter !! \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure :: resize => util_resize_encounter !! Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small. end type swiftest_encounter abstract interface subroutine abstract_discard_body ( self , system , param ) import swiftest_body , swiftest_nbody_system , swiftest_parameters class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine abstract_discard_body subroutine abstract_accel ( self , system , param , t , lbeg ) import swiftest_body , swiftest_nbody_system , swiftest_parameters , DP class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time logical , intent ( in ) :: lbeg !! Optional argument that determines whether or not this is the beginning or end of the step end subroutine abstract_accel subroutine abstract_initialize ( self , param ) import swiftest_base , swiftest_parameters class ( swiftest_base ), intent ( inout ) :: self !! Swiftest base object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine abstract_initialize subroutine abstract_kick_body ( self , system , param , t , dt , lbeg ) import swiftest_body , swiftest_nbody_system , swiftest_parameters , DP implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest generic body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system objec class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time real ( DP ), intent ( in ) :: dt !! Stepsize logical , intent ( in ) :: lbeg !! Logical flag indicating whether this is the beginning of the half step or not. end subroutine abstract_kick_body subroutine abstract_read_frame ( self , iu , param , form , ierr ) import DP , I4B , swiftest_base , swiftest_parameters class ( swiftest_base ), intent ( inout ) :: self !! Swiftest base object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), intent ( in ) :: form !! Input format code (\"XV\" or \"EL\") integer ( I4B ), intent ( out ) :: ierr !! Error code end subroutine abstract_read_frame subroutine abstract_set_mu ( self , cb ) import swiftest_body , swiftest_cb class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine abstract_set_mu subroutine abstract_step_body ( self , system , param , t , dt ) import DP , swiftest_body , swiftest_nbody_system , swiftest_parameters implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine abstract_step_body subroutine abstract_step_system ( self , param , t , dt ) import DP , swiftest_nbody_system , swiftest_parameters implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine abstract_step_system subroutine abstract_write_frame ( self , iu , param ) import DP , I4B , swiftest_base , swiftest_parameters class ( swiftest_base ), intent ( in ) :: self !! Swiftest base object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine abstract_write_frame end interface interface module subroutine discard_pl ( self , system , param ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameter end subroutine discard_pl module subroutine discard_system ( self , param ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine discard_system module subroutine discard_tp ( self , system , param ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine discard_tp module pure subroutine drift_all ( mu , x , v , n , param , dt , mask , iflag ) implicit none real ( DP ), dimension (:), intent ( in ) :: mu !! Vector of gravitational constants real ( DP ), dimension (:,:), intent ( inout ) :: x , v !! Position and velocity vectors integer ( I4B ), intent ( in ) :: n !! number of bodies class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize logical , dimension (:), intent ( in ) :: mask !! Logical mask of size self%nbody that determines which bodies to drift. integer ( I4B ), dimension (:), intent ( out ) :: iflag !! Vector of error flags. 0 means no problem end subroutine drift_all module subroutine drift_body ( self , system , param , dt ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: dt !! Stepsize end subroutine drift_body module pure elemental subroutine drift_one ( mu , px , py , pz , vx , vy , vz , dt , iflag ) implicit none real ( DP ), intent ( in ) :: mu !! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body to drift real ( DP ), intent ( inout ) :: px , py , pz , vx , vy , vz !! Position and velocity of body to drift real ( DP ), intent ( in ) :: dt !! Step size integer ( I4B ), intent ( out ) :: iflag !! iflag : error status flag for Danby drift (0 = OK, nonzero = ERROR) end subroutine drift_one module subroutine eucl_dist_index_plpl ( self ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object end subroutine module subroutine fragmentation_initialize ( system , param , family , x , v , L_spin , Ip , mass , radius , & nfrag , Ip_frag , m_frag , rad_frag , xb_frag , vb_frag , rot_frag , Qloss , lfailure ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters integer ( I4B ), dimension (:), intent ( in ) :: family !! Index of bodies involved in the collision real ( DP ), dimension (:,:), intent ( inout ) :: x , v , L_spin , Ip !! Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real ( DP ), dimension (:), intent ( inout ) :: mass , radius !! Two-body equivalent mass and radii for the bodies in the collision integer ( I4B ), intent ( inout ) :: nfrag !! Number of fragments to generate real ( DP ), dimension (:), allocatable , intent ( inout ) :: m_frag , rad_frag !! Distribution of fragment mass and radii real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: Ip_frag !! Fragment rotational inertia vectors real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: xb_frag , vb_frag , rot_frag !! Fragment barycentric position, barycentric velocity, and rotation vectors real ( DP ), intent ( inout ) :: Qloss !! Energy lost during the collision logical , intent ( out ) :: lfailure !! Answers the question: Should this have been a merger instead? end subroutine fragmentation_initialize module subroutine fragmentation_regime ( Mcb , m1 , m2 , rad1 , rad2 , xh1 , xh2 , vb1 , vb2 , den1 , den2 , regime , Mlr , Mslr , mtiny , Qloss ) implicit none integer ( I4B ), intent ( out ) :: regime real ( DP ), intent ( out ) :: Mlr , Mslr real ( DP ), intent ( in ) :: Mcb , m1 , m2 , rad1 , rad2 , den1 , den2 , mtiny real ( DP ), dimension (:), intent ( in ) :: xh1 , xh2 , vb1 , vb2 real ( DP ), intent ( out ) :: Qloss !! Energy lost during the collision end subroutine fragmentation_regime module pure subroutine gr_kick_getaccb_ns_body ( self , system , param ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest generic body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine gr_kick_getaccb_ns_body module subroutine gr_kick_getacch ( mu , x , lmask , n , inv_c2 , agr ) implicit none real ( DP ), dimension (:), intent ( in ) :: mu !! Gravitational constant real ( DP ), dimension (:,:), intent ( in ) :: x !! Position vectors logical , dimension (:), intent ( in ) :: lmask !! Logical mask indicating which bodies to compute integer ( I4B ), intent ( in ) :: n !! Total number of bodies real ( DP ), intent ( in ) :: inv_c2 !! Inverse speed of light squared: 1 / c**2 real ( DP ), dimension (:,:), intent ( out ) :: agr !! Accelerations end subroutine gr_kick_getacch module pure subroutine gr_p4_pos_kick ( param , x , v , dt ) implicit none class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), dimension (:), intent ( inout ) :: x !! Position vector real ( DP ), dimension (:), intent ( in ) :: v !! Velocity vector real ( DP ), intent ( in ) :: dt !! Step size end subroutine gr_p4_pos_kick module pure subroutine gr_pseudovel2vel ( param , mu , xh , pv , vh ) implicit none class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: mu !! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real ( DP ), dimension (:), intent ( in ) :: xh !! Heliocentric position vector real ( DP ), dimension (:), intent ( in ) :: pv !! Pseudovelocity velocity vector - see Saha & Tremain (1994), eq. (32) real ( DP ), dimension (:), intent ( out ) :: vh !! Heliocentric velocity vector end subroutine gr_pseudovel2vel module pure subroutine gr_pv2vh_body ( self , param ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine gr_pv2vh_body module pure subroutine gr_vel2pseudovel ( param , mu , xh , vh , pv ) implicit none class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: mu !! G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real ( DP ), dimension (:), intent ( in ) :: xh !! Heliocentric position vector real ( DP ), dimension (:), intent ( in ) :: vh !! Heliocentric velocity vector real ( DP ), dimension (:), intent ( out ) :: pv !! Pseudovelocity vector - see Saha & Tremain (1994), eq. (32) end subroutine gr_vel2pseudovel module pure subroutine gr_vh2pv_body ( self , param ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest particle object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine gr_vh2pv_body module subroutine io_conservation_report ( self , param , lterminal ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Input colleciton of user-defined parameters logical , intent ( in ) :: lterminal !! Indicates whether to output information to the terminal screen end subroutine io_conservation_report module subroutine io_dump_param ( self , param_file_name ) implicit none class ( swiftest_parameters ), intent ( in ) :: self !! Output collection of parameters character ( len =* ), intent ( in ) :: param_file_name !! Parameter input file name (i.e. param.in) end subroutine io_dump_param module subroutine io_dump_swiftest ( self , param ) implicit none class ( swiftest_base ), intent ( inout ) :: self !! Swiftest base object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine io_dump_swiftest module subroutine io_dump_system ( self , param ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine io_dump_system module function io_get_args ( integrator , param_file_name ) result ( ierr ) implicit none integer ( I4B ) :: integrator !! Symbolic code of the requested integrator character ( len = :), allocatable :: param_file_name !! Name of the input parameters file integer ( I4B ) :: ierr !! I/O error code end function io_get_args module function io_get_token ( buffer , ifirst , ilast , ierr ) result ( token ) implicit none character ( len =* ), intent ( in ) :: buffer !! Input string buffer integer ( I4B ), intent ( inout ) :: ifirst !! Index of the buffer at which to start the search for a token integer ( I4B ), intent ( out ) :: ilast !! Index of the buffer at the end of the returned token integer ( I4B ), intent ( out ) :: ierr !! Error code character ( len = :), allocatable :: token !! Returned token string end function io_get_token module subroutine io_param_reader ( self , unit , iotype , v_list , iostat , iomsg ) implicit none class ( swiftest_parameters ), intent ( inout ) :: self !! Collection of parameters integer ( I4B ), intent ( in ) :: unit !! File unit number character ( len =* ), intent ( in ) :: iotype !! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. !!    If you do not include a char-literal-constant, the iotype argument contains only DT. integer ( I4B ), intent ( in ) :: v_list (:) !! The first element passes the integrator code to the reader integer ( I4B ), intent ( out ) :: iostat !! IO status code character ( len =* ), intent ( inout ) :: iomsg !! Message to pass if iostat /= 0 end subroutine io_param_reader module subroutine io_param_writer ( self , unit , iotype , v_list , iostat , iomsg ) implicit none class ( swiftest_parameters ), intent ( in ) :: self !! Collection of parameters integer ( I4B ), intent ( in ) :: unit !! File unit number character ( len =* ), intent ( in ) :: iotype !! Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. !!    If you do not include a char-literal-constant, the iotype argument contains only DT. integer ( I4B ), intent ( in ) :: v_list (:) !! Not used in this procedure integer ( I4B ), intent ( out ) :: iostat !! IO status code character ( len =* ), intent ( inout ) :: iomsg !! Message to pass if iostat /= 0 end subroutine io_param_writer module subroutine io_read_body_in ( self , param ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine io_read_body_in module subroutine io_read_cb_in ( self , param ) implicit none class ( swiftest_cb ), intent ( inout ) :: self !! Swiftest central body object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine io_read_cb_in module subroutine io_read_param_in ( self , param_file_name ) implicit none class ( swiftest_parameters ), intent ( inout ) :: self !! Current run configuration parameters character ( len =* ), intent ( in ) :: param_file_name !! Parameter input file name (i.e. param.in) end subroutine io_read_param_in module subroutine io_read_frame_body ( self , iu , param , form , ierr ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), intent ( in ) :: form !! Input format code (\"XV\" or \"EL\") integer ( I4B ), intent ( out ) :: ierr !! Error code end subroutine io_read_frame_body module subroutine io_read_frame_cb ( self , iu , param , form , ierr ) implicit none class ( swiftest_cb ), intent ( inout ) :: self !! Swiftest central body object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), intent ( in ) :: form !! Input format code (\"XV\" or \"EL\") integer ( I4B ), intent ( out ) :: ierr !! Error code end subroutine io_read_frame_cb module subroutine io_read_frame_system ( self , iu , param , form , ierr ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters character ( * ), intent ( in ) :: form !! Input format code (\"XV\" or \"EL\") integer ( I4B ), intent ( out ) :: ierr !! Error code end subroutine io_read_frame_system module subroutine io_write_discard ( self , param ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine io_write_discard module subroutine io_toupper ( string ) implicit none character ( * ), intent ( inout ) :: string !! String to make upper case end subroutine io_toupper module subroutine io_write_encounter ( t , name1 , name2 , mass1 , mass2 , radius1 , radius2 , & xh1 , xh2 , vh1 , vh2 , enc_out , out_type ) implicit none integer ( I4B ), intent ( in ) :: name1 , name2 real ( DP ), intent ( in ) :: t , mass1 , mass2 , radius1 , radius2 real ( DP ), dimension (:), intent ( in ) :: xh1 , xh2 , vh1 , vh2 character ( * ), intent ( in ) :: enc_out , out_type end subroutine io_write_encounter module subroutine io_write_frame_body ( self , iu , param ) implicit none class ( swiftest_body ), intent ( in ) :: self !! Swiftest body object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine io_write_frame_body module subroutine io_write_frame_cb ( self , iu , param ) implicit none class ( swiftest_cb ), intent ( in ) :: self !! Swiftest central body object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine io_write_frame_cb module subroutine io_write_frame_system ( self , iu , param ) implicit none class ( swiftest_nbody_system ), intent ( in ) :: self !! Swiftest system object integer ( I4B ), intent ( inout ) :: iu !! Unit number for the output file to write frame to class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine io_write_frame_system module pure subroutine kick_getacch_int_pl ( self ) implicit none class ( swiftest_pl ), intent ( inout ) :: self end subroutine kick_getacch_int_pl module pure subroutine kick_getacch_int_tp ( self , GMpl , xhp , npl ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle real ( DP ), dimension (:), intent ( in ) :: GMpl !! Massive body masses real ( DP ), dimension (:,:), intent ( in ) :: xhp !! Massive body position vectors integer ( I4B ), intent ( in ) :: npl !! Number of active massive bodies end subroutine kick_getacch_int_tp module subroutine obl_acc_body ( self , system ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object end subroutine obl_acc_body module subroutine obl_acc_pl ( self , system ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object end subroutine obl_acc_pl module subroutine obl_acc_tp ( self , system ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object end subroutine obl_acc_tp module subroutine obl_pot ( npl , Mcb , Mpl , j2rp2 , j4rp4 , xh , irh , oblpot ) implicit none integer ( I4B ), intent ( in ) :: npl real ( DP ), intent ( in ) :: Mcb real ( DP ), dimension (:), intent ( in ) :: Mpl real ( DP ), intent ( in ) :: j2rp2 , j4rp4 real ( DP ), dimension (:), intent ( in ) :: irh real ( DP ), dimension (:, :), intent ( in ) :: xh real ( DP ), intent ( out ) :: oblpot end subroutine obl_pot module subroutine orbel_el2xv_vec ( self , cb ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine orbel_el2xv_vec module pure subroutine orbel_scget ( angle , sx , cx ) implicit none real ( DP ), intent ( in ) :: angle real ( DP ), intent ( out ) :: sx , cx end subroutine orbel_scget module pure subroutine orbel_xv2aeq ( mu , x , v , a , e , q ) implicit none real ( DP ), intent ( in ) :: mu !! Gravitational constant real ( DP ), dimension (:), intent ( in ) :: x !! Position vector real ( DP ), dimension (:), intent ( in ) :: v !! Velocity vector real ( DP ), intent ( out ) :: a !! semimajor axis real ( DP ), intent ( out ) :: e !! eccentricity real ( DP ), intent ( out ) :: q !! periapsis end subroutine orbel_xv2aeq module pure subroutine orbel_xv2aqt ( mu , x , v , a , q , capm , tperi ) implicit none real ( DP ), intent ( in ) :: mu !! Gravitational constant real ( DP ), dimension (:), intent ( in ) :: x !! Position vector real ( DP ), dimension (:), intent ( in ) :: v !! Velocity vector real ( DP ), intent ( out ) :: a !! semimajor axis real ( DP ), intent ( out ) :: q !! periapsis real ( DP ), intent ( out ) :: capm !! mean anomaly real ( DP ), intent ( out ) :: tperi !! time of pericenter passage end subroutine orbel_xv2aqt module subroutine orbel_xv2el_vec ( self , cb ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine orbel_xv2el_vec module subroutine setup_body ( self , n , param ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine setup_body module subroutine setup_construct_system ( system , param ) implicit none class ( swiftest_nbody_system ), allocatable , intent ( inout ) :: system !! Swiftest system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine setup_construct_system module subroutine setup_encounter ( self , n ) implicit none class ( swiftest_encounter ), intent ( inout ) :: self !! Swiftest encounter structure integer ( I4B ), intent ( in ) :: n !! Number of encounters to allocate space for end subroutine setup_encounter module subroutine setup_initialize_system ( self , param ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters end subroutine setup_initialize_system module subroutine setup_pl ( self , n , param ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine setup_pl module subroutine setup_tp ( self , n , param ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parametersr end subroutine setup_tp module subroutine tides_kick_getacch_pl ( self , system ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object end subroutine tides_kick_getacch_pl module subroutine tides_step_spin_system ( self , param , t , dt ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Simulation time real ( DP ), intent ( in ) :: dt !! Current stepsize end subroutine tides_step_spin_system module subroutine user_kick_getacch_body ( self , system , param , t , lbeg ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest massive body particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody_system_object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Optional argument that determines whether or not this is the beginning or end of the step end subroutine user_kick_getacch_body end interface interface util_append module subroutine util_append_arr_char_string ( arr , source , nold , nsrc , lsource_mask ) implicit none character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array character ( len = STRMAX ), dimension (:), allocatable , intent ( in ) :: source !! Array to append integer ( I4B ), intent ( in ) :: nold , nsrc !! Extend of the old array and the source array, respectively logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine util_append_arr_char_string module subroutine util_append_arr_DP ( arr , source , nold , nsrc , lsource_mask ) implicit none real ( DP ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array real ( DP ), dimension (:), allocatable , intent ( in ) :: source !! Array to append integer ( I4B ), intent ( in ) :: nold , nsrc !! Extend of the old array and the source array, respectively logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine util_append_arr_DP module subroutine util_append_arr_DPvec ( arr , source , nold , nsrc , lsource_mask ) implicit none real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: arr !! Destination array real ( DP ), dimension (:,:), allocatable , intent ( in ) :: source !! Array to append integer ( I4B ), intent ( in ) :: nold , nsrc !! Extend of the old array and the source array, respectively logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine util_append_arr_DPvec module subroutine util_append_arr_I4B ( arr , source , nold , nsrc , lsource_mask ) implicit none integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: arr !! Destination array integer ( I4B ), dimension (:), allocatable , intent ( in ) :: source !! Array to append integer ( I4B ), intent ( in ) :: nold , nsrc !! Extend of the old array and the source array, respectively logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine util_append_arr_I4B module subroutine util_append_arr_logical ( arr , source , nold , nsrc , lsource_mask ) implicit none logical , dimension (:), allocatable , intent ( inout ) :: arr !! Destination array logical , dimension (:), allocatable , intent ( in ) :: source !! Array to append integer ( I4B ), intent ( in ) :: nold , nsrc !! Extend of the old array and the source array, respectively logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine util_append_arr_logical end interface interface module subroutine util_append_body ( self , source , lsource_mask ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine util_append_body module subroutine util_append_pl ( self , source , lsource_mask ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine util_append_pl module subroutine util_append_tp ( self , source , lsource_mask ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to end subroutine util_append_tp module subroutine util_coord_b2h_pl ( self , cb ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine util_coord_b2h_pl module subroutine util_coord_b2h_tp ( self , cb ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_cb ), intent ( in ) :: cb !! Swiftest central body object end subroutine util_coord_b2h_tp module subroutine util_coord_h2b_pl ( self , cb ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine util_coord_h2b_pl module subroutine util_coord_h2b_tp ( self , cb ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_cb ), intent ( in ) :: cb !! Swiftest central body object end subroutine util_coord_h2b_tp module subroutine util_copy_encounter ( self , source ) implicit none class ( swiftest_encounter ), intent ( inout ) :: self !! Encounter list class ( swiftest_encounter ), intent ( in ) :: source !! Source object to copy into end subroutine util_copy_encounter module subroutine util_exit ( code ) implicit none integer ( I4B ), intent ( in ) :: code !! Failure exit code end subroutine util_exit module subroutine util_fill_body ( self , inserts , lfill_list ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_body ), intent ( in ) :: inserts !! Swiftest body object to be inserted logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine util_fill_body module subroutine util_fill_pl ( self , inserts , lfill_list ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_body ), intent ( in ) :: inserts !! Swiftest body object to be inserted logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine util_fill_pl module subroutine util_fill_tp ( self , inserts , lfill_list ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_body ), intent ( in ) :: inserts !! Swiftest body object to be inserted logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine util_fill_tp end interface interface util_fill module subroutine util_fill_arr_char_string ( keeps , inserts , lfill_list ) implicit none character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep character ( len = STRMAX ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine util_fill_arr_char_string module subroutine util_fill_arr_DP ( keeps , inserts , lfill_list ) implicit none real ( DP ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep real ( DP ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine util_fill_arr_DP module subroutine util_fill_arr_DPvec ( keeps , inserts , lfill_list ) implicit none real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: keeps !! Array of values to keep real ( DP ), dimension (:,:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine util_fill_arr_DPvec module subroutine util_fill_arr_I4B ( keeps , inserts , lfill_list ) implicit none integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep integer ( I4B ), dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine util_fill_arr_I4B module subroutine util_fill_arr_logical ( keeps , inserts , lfill_list ) implicit none logical , dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep logical , dimension (:), allocatable , intent ( in ) :: inserts !! Array of values to insert into keep logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps end subroutine util_fill_arr_logical end interface interface module subroutine util_rescale_system ( self , param , mscale , dscale , tscale ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters. Returns with new values of the scale vactors and GU real ( DP ), intent ( in ) :: mscale , dscale , tscale !! Scale factors for mass, distance, and time units, respectively. end subroutine util_rescale_system module function util_minimize_bfgs ( f , N , x0 , eps , lerr ) result ( x1 ) use lambda_function implicit none integer ( I4B ), intent ( in ) :: N class ( lambda_obj ), intent ( inout ) :: f real ( DP ), dimension (:), intent ( in ) :: x0 real ( DP ), intent ( in ) :: eps logical , intent ( out ) :: lerr real ( DP ), dimension (:), allocatable :: x1 end function util_minimize_bfgs module subroutine util_peri_tp ( self , system , param ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine util_peri_tp end interface interface util_resize module subroutine util_resize_arr_char_string ( arr , nnew ) implicit none character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size end subroutine util_resize_arr_char_string module subroutine util_resize_arr_DP ( arr , nnew ) implicit none real ( DP ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size end subroutine util_resize_arr_DP module subroutine util_resize_arr_DPvec ( arr , nnew ) implicit none real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size end subroutine util_resize_arr_DPvec module subroutine util_resize_arr_I4B ( arr , nnew ) implicit none integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size end subroutine util_resize_arr_I4B module subroutine util_resize_arr_logical ( arr , nnew ) implicit none logical , dimension (:), allocatable , intent ( inout ) :: arr !! Array to resize integer ( I4B ), intent ( in ) :: nnew !! New size end subroutine util_resize_arr_logical end interface interface module subroutine util_resize_body ( self , nnew ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine util_resize_body module subroutine util_resize_encounter ( self , nnew ) implicit none class ( swiftest_encounter ), intent ( inout ) :: self !! Swiftest encounter list integer ( I4B ), intent ( in ) :: nnew !! New size of list needed end subroutine util_resize_encounter module subroutine util_resize_pl ( self , nnew ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine util_resize_pl module subroutine util_resize_tp ( self , nnew ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object integer ( I4B ), intent ( in ) :: nnew !! New size neded end subroutine util_resize_tp module subroutine util_get_energy_momentum_system ( self , param ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine util_get_energy_momentum_system module subroutine util_set_beg_end_pl ( self , xbeg , xend , vbeg ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object real ( DP ), dimension (:,:), intent ( in ), optional :: xbeg !! Position vectors at beginning of step real ( DP ), dimension (:,:), intent ( in ), optional :: xend !! Positions vectors at end of step real ( DP ), dimension (:,:), intent ( in ), optional :: vbeg !! vbeg is an unused variable to keep this method forward compatible with RMVS end subroutine util_set_beg_end_pl module subroutine util_set_ir3h ( self ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object end subroutine util_set_ir3h module subroutine util_set_msys ( self ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest system object end subroutine util_set_msys module subroutine util_set_mu_pl ( self , cb ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine util_set_mu_pl module subroutine util_set_mu_tp ( self , cb ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine util_set_mu_tp module subroutine util_set_rhill ( self , cb ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine util_set_rhill module subroutine util_set_rhill_approximate ( self , cb ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_cb ), intent ( inout ) :: cb !! Swiftest central body object end subroutine util_set_rhill_approximate end interface interface util_solve_linear_system module function util_solve_linear_system_d ( A , b , n , lerr ) result ( x ) implicit none integer ( I4B ), intent ( in ) :: n real ( DP ), dimension (:,:), intent ( in ) :: A real ( DP ), dimension (:), intent ( in ) :: b logical , intent ( out ) :: lerr real ( DP ), dimension ( n ) :: x end function util_solve_linear_system_d module function util_solve_linear_system_q ( A , b , n , lerr ) result ( x ) implicit none integer ( I4B ), intent ( in ) :: n real ( QP ), dimension (:,:), intent ( in ) :: A real ( QP ), dimension (:), intent ( in ) :: b logical , intent ( out ) :: lerr real ( QP ), dimension ( n ) :: x end function util_solve_linear_system_q end interface interface module function util_solve_rkf45 ( f , y0in , t1 , dt0 , tol ) result ( y1 ) use lambda_function implicit none class ( lambda_obj ), intent ( inout ) :: f !! lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set real ( DP ), dimension (:), intent ( in ) :: y0in !! Initial value at t=0 real ( DP ), intent ( in ) :: t1 !! Final time real ( DP ), intent ( in ) :: dt0 !! Initial step size guess real ( DP ), intent ( in ) :: tol !! Tolerance on solution real ( DP ), dimension (:), allocatable :: y1 !! Final result end function util_solve_rkf45 end interface interface util_sort module subroutine util_sort_i4b ( arr ) implicit none integer ( I4B ), dimension (:), intent ( inout ) :: arr end subroutine util_sort_i4b module subroutine util_sort_index_i4b ( arr , ind ) implicit none integer ( I4B ), dimension (:), intent ( in ) :: arr integer ( I4B ), dimension (:), intent ( out ) :: ind end subroutine util_sort_index_i4b module subroutine util_sort_sp ( arr ) implicit none real ( SP ), dimension (:), intent ( inout ) :: arr end subroutine util_sort_sp module subroutine util_sort_index_sp ( arr , ind ) implicit none real ( SP ), dimension (:), intent ( in ) :: arr integer ( I4B ), dimension (:), intent ( out ) :: ind end subroutine util_sort_index_sp module subroutine util_sort_dp ( arr ) implicit none real ( DP ), dimension (:), intent ( inout ) :: arr end subroutine util_sort_dp module subroutine util_sort_index_dp ( arr , ind ) implicit none real ( DP ), dimension (:), intent ( in ) :: arr integer ( I4B ), dimension (:), intent ( out ) :: ind end subroutine util_sort_index_dp end interface util_sort interface module subroutine util_sort_rearrange_body ( self , ind ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) end subroutine util_sort_rearrange_body module subroutine util_sort_rearrange_pl ( self , ind ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) end subroutine util_sort_rearrange_pl module subroutine util_sort_rearrange_tp ( self , ind ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) end subroutine util_sort_rearrange_tp module subroutine util_sort_body ( self , sortby , ascending ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order end subroutine util_sort_body module subroutine util_sort_pl ( self , sortby , ascending ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order end subroutine util_sort_pl module subroutine util_sort_tp ( self , sortby , ascending ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order end subroutine util_sort_tp end interface interface util_spill module subroutine util_spill_arr_char_string ( keeps , discards , lspill_list , ldestructive ) implicit none character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep character ( len = STRMAX ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardss logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine util_spill_arr_char_string module subroutine util_spill_arr_DP ( keeps , discards , lspill_list , ldestructive ) implicit none real ( DP ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep real ( DP ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine util_spill_arr_DP module subroutine util_spill_arr_DPvec ( keeps , discards , lspill_list , ldestructive ) implicit none real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: keeps !! Array of values to keep real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: discards !! Array discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine util_spill_arr_DPvec module subroutine util_spill_arr_I4B ( keeps , discards , lspill_list , ldestructive ) implicit none integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep integer ( I4B ), dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardss logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine util_spill_arr_I4B module subroutine util_spill_arr_logical ( keeps , discards , lspill_list , ldestructive ) implicit none logical , dimension (:), allocatable , intent ( inout ) :: keeps !! Array of values to keep logical , dimension (:), allocatable , intent ( inout ) :: discards !! Array of discards logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discardss logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine util_spill_arr_logical end interface interface module subroutine util_spill_body ( self , discards , lspill_list , ldestructive ) implicit none class ( swiftest_body ), intent ( inout ) :: self !! Swiftest body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine util_spill_body module subroutine util_spill_encounter ( self , discards , lspill_list , ldestructive ) implicit none class ( swiftest_encounter ), intent ( inout ) :: self !! Swiftest encounter list class ( swiftest_encounter ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter body by removing the discard list end subroutine util_spill_encounter module subroutine util_spill_pl ( self , discards , lspill_list , ldestructive ) implicit none class ( swiftest_pl ), intent ( inout ) :: self !! Swiftest massive body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine util_spill_pl module subroutine util_spill_tp ( self , discards , lspill_list , ldestructive ) implicit none class ( swiftest_tp ), intent ( inout ) :: self !! Swiftest test particle object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not end subroutine util_spill_tp module subroutine util_valid_id_system ( self , param ) implicit none class ( swiftest_nbody_system ), intent ( inout ) :: self !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters end subroutine util_valid_id_system module subroutine util_version () implicit none end subroutine util_version end interface end module swiftest_classes","tags":"","loc":"sourcefile/swiftest_classes.f90.html"},{"title":"lambda_function.f90 – swiftest","text":"This file depends on sourcefile~~lambda_function.f90~~EfferentGraph sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Files dependent on this one sourcefile~~lambda_function.f90~~AfferentGraph sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~eucl.f90 eucl.f90 sourcefile~eucl.f90->sourcefile~swiftest.f90 sourcefile~util_copy.f90 util_copy.f90 sourcefile~util_copy.f90->sourcefile~swiftest.f90 sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~util_get_energy_momentum.f90 util_get_energy_momentum.f90 sourcefile~util_get_energy_momentum.f90->sourcefile~swiftest.f90 sourcefile~user_getacch.f90 user_getacch.f90 sourcefile~user_getacch.f90->sourcefile~swiftest.f90 sourcefile~util_peri.f90 util_peri.f90 sourcefile~util_peri.f90->sourcefile~swiftest.f90 sourcefile~util_exit.f90 util_exit.f90 sourcefile~util_exit.f90->sourcefile~swiftest.f90 sourcefile~helio_step.f90 helio_step.f90 sourcefile~helio_step.f90->sourcefile~swiftest.f90 sourcefile~swiftest_driver.f90 swiftest_driver.f90 sourcefile~swiftest_driver.f90->sourcefile~swiftest.f90 sourcefile~helio_coord.f90 helio_coord.f90 sourcefile~helio_coord.f90->sourcefile~swiftest.f90 sourcefile~symba_fragmentation.f90 symba_fragmentation.f90 sourcefile~symba_fragmentation.f90->sourcefile~swiftest.f90 sourcefile~tides_getacch_pl.f90 tides_getacch_pl.f90 sourcefile~tides_getacch_pl.f90->sourcefile~swiftest.f90 sourcefile~gr.f90 gr.f90 sourcefile~gr.f90->sourcefile~swiftest.f90 sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~util_rescale.f90 util_rescale.f90 sourcefile~util_rescale.f90->sourcefile~swiftest.f90 sourcefile~symba_setup.f90 symba_setup.f90 sourcefile~symba_setup.f90->sourcefile~swiftest.f90 sourcefile~helio_drift.f90 helio_drift.f90 sourcefile~helio_drift.f90->sourcefile~swiftest.f90 sourcefile~symba_drift.f90 symba_drift.f90 sourcefile~symba_drift.f90->sourcefile~swiftest.f90 sourcefile~whm_drift.f90 whm_drift.f90 sourcefile~whm_drift.f90->sourcefile~swiftest.f90 sourcefile~helio_kick.f90 helio_kick.f90 sourcefile~helio_kick.f90->sourcefile~swiftest.f90 sourcefile~kick.f90 kick.f90 sourcefile~kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~whm_coord.f90 whm_coord.f90 sourcefile~whm_coord.f90->sourcefile~swiftest.f90 sourcefile~util_solve.f90 util_solve.f90 sourcefile~util_solve.f90->sourcefile~swiftest.f90 sourcefile~setup.f90 setup.f90 sourcefile~setup.f90->sourcefile~swiftest.f90 sourcefile~util_version.f90 util_version.f90 sourcefile~util_version.f90->sourcefile~swiftest.f90 sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~orbel.f90 orbel.f90 sourcefile~orbel.f90->sourcefile~swiftest.f90 sourcefile~symba_util.f90 symba_util.f90 sourcefile~symba_util.f90->sourcefile~swiftest.f90 sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~util_minimize_bfgs.f90 util_minimize_bfgs.f90 sourcefile~util_minimize_bfgs.f90->sourcefile~swiftest.f90 sourcefile~util_coord.f90 util_coord.f90 sourcefile~util_coord.f90->sourcefile~swiftest.f90 sourcefile~symba_kick.f90 symba_kick.f90 sourcefile~symba_kick.f90->sourcefile~swiftest.f90 sourcefile~io.f90 io.f90 sourcefile~io.f90->sourcefile~swiftest.f90 sourcefile~util_fill.f90 util_fill.f90 sourcefile~util_fill.f90->sourcefile~swiftest.f90 sourcefile~whm_gr.f90 whm_gr.f90 sourcefile~whm_gr.f90->sourcefile~swiftest.f90 sourcefile~util_append.f90 util_append.f90 sourcefile~util_append.f90->sourcefile~swiftest.f90 sourcefile~discard.f90 discard.f90 sourcefile~discard.f90->sourcefile~swiftest.f90 sourcefile~symba_discard.f90 symba_discard.f90 sourcefile~symba_discard.f90->sourcefile~swiftest.f90 sourcefile~tides_spin_step.f90 tides_spin_step.f90 sourcefile~tides_spin_step.f90->sourcefile~swiftest.f90 sourcefile~whm_setup.f90 whm_setup.f90 sourcefile~whm_setup.f90->sourcefile~swiftest.f90 sourcefile~symba_step.f90 symba_step.f90 sourcefile~symba_step.f90->sourcefile~swiftest.f90 sourcefile~whm_util.f90 whm_util.f90 sourcefile~whm_util.f90->sourcefile~swiftest.f90 sourcefile~operator_cross.f90 operator_cross.f90 sourcefile~operator_cross.f90->sourcefile~swiftest.f90 sourcefile~helio_gr.f90 helio_gr.f90 sourcefile~helio_gr.f90->sourcefile~swiftest.f90 sourcefile~util_valid.f90 util_valid.f90 sourcefile~util_valid.f90->sourcefile~swiftest.f90 sourcefile~symba_collision.f90 symba_collision.f90 sourcefile~symba_collision.f90->sourcefile~swiftest.f90 sourcefile~obl.f90 obl.f90 sourcefile~obl.f90->sourcefile~swiftest.f90 sourcefile~symba_io.f90 symba_io.f90 sourcefile~symba_io.f90->sourcefile~swiftest.f90 sourcefile~whm_kick.f90 whm_kick.f90 sourcefile~whm_kick.f90->sourcefile~swiftest.f90 sourcefile~whm_step.f90 whm_step.f90 sourcefile~whm_step.f90->sourcefile~swiftest.f90 sourcefile~util_set.f90 util_set.f90 sourcefile~util_set.f90->sourcefile~swiftest.f90 sourcefile~util_resize.f90 util_resize.f90 sourcefile~util_resize.f90->sourcefile~swiftest.f90 sourcefile~util_spill.f90 util_spill.f90 sourcefile~util_spill.f90->sourcefile~swiftest.f90 sourcefile~symba_encounter_check.f90 symba_encounter_check.f90 sourcefile~symba_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~drift.f90 drift.f90 sourcefile~drift.f90->sourcefile~swiftest.f90 sourcefile~util_sort.f90 util_sort.f90 sourcefile~util_sort.f90->sourcefile~swiftest.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Modules lambda_function Source Code lambda_function.f90 Source Code module lambda_function !! author: David A. Minton !! !! Defines a class that can enable objects that behave like lambda functions. !! !! To use this class, define a type of either lambda_obj or lambda_obj_err, or extend the lambda_obj class as necessary, such that an interface that matches the function you wish to lambdafy. !! Once defined, the lambda object can evaluate itself by calling the type-bound procedure eval. e.g. f%eval(x) (or f%eval(x, lerr), f%eval(x, [argument list], etc)) !! !! ******************************************************************************************************************************************************************************************** !! Example - Defining a lambda function f(x,rval,ival) where rval and ival are a real and integer argument, respectively. This implementation uses an abstract interface, though this is not !! strictly necessary unless you want to bind more than one function with the same interface. !! ******************************************************************************************************************************************************************************************** !! !! module lambda_new !!    use swiftest ! This will bring in the lambda_function module !!    ! Define types in a module !! !!    type, extends(lambda_obj) :: lambda_obj_ri_args !!       procedure(abstract_lambda_ri_args), pointer, nopass :: lambdaptr_ri_args => null() !!       real(DP)                                            :: rval     !! Real parameter !!       integer(I4B)                                        :: ival     !! Integer paramete !!    contains !!       generic           :: init => lambda_ri_args_init !!       procedure         :: eval => lambda_ri_args_eval !!       procedure, nopass :: lambda_ri_args_init !!       final             :: lambda_ri_args_destroy !!    end type !!    interface lambda_obj !!       module procedure lambda_ri_args_init !!    end interface !! !!    abstract interface !!       function abstract_lambda_ri_args(x, rval, ival) result(y) !!          !Template for the lambda function !!          import DP, I4B !!          real(DP), dimension(:), intent(in) :: x        !! Dependent variable !!          real(DP),               intent(in) :: rval     !! Real parameter !!          integer(I4B),           intent(in) :: ival     !! Integer parameter !!          real(DP)                           :: y        !! Real result !!       end function !!    end interface !! !! contains !!    type(lambda_obj_ri_args) function lambda_ri_args_init(lambda, rval, ival) !!       !! Initializes the lambda function parameters (can be used as a structure constructor) !!       implicit none !!       procedure(abstract_lambda_ri_args)  :: lambda !! The lambda function that will be passed !!       real(DP),     intent(in)            :: rval     !! Real parameter !!       integer(I4B), intent(in)            :: ival     !! Integer parameter !! !!       ! Assign the procedure passed to this function to the procedure pointer !!       lambda_ri_args_init%lambdaptr_ri_args => lambda !! !!       ! Assign the argument values !!       lambda_ri_args_init%rval = rval !!       lambda_ri_args_init%ival = ival !!       return !!    end function lambda_ri_args_init !! !!    function lambda_ri_args_eval(self, x) result(y) !!       !! Defines the evaluation method, allowing the lambda function to be called with a single argument !!       implicit none !!       class(lambda_obj_ri_args),      intent(inout) :: self !!       real(DP), dimension(:),         intent(in) :: x !!       real(DP)                                   :: y !! !!      if (associated(self%lambdaptr_ri_args)) then !!         y = self%lambdaptr_ri_args(x, self%rval, self%ival) !!          self%lastval = y !!          if (allocated(self%lastarg)) deallocate(self%lastarg) !!          allocate(self%lastarg, source=x) !!       else !!          error stop \"Lambda function was not initialized\" !!       end if !!    end function lambda_ri_args_eval !! !!    subroutine lambda_ri_args_destroy(self) !!       !! Finalizer method. Use this as a template for cleaning up the object upon destruction, such as nullifying pointers !!       implicit none !!       type(lambda_obj_ri_args) :: self !!       if (associated(self%lambdaptr_ri_args)) nullify(self%lambdaptr_ri_args) !!    end subroutine lambda_ri_args_destroy !! !!    function example_function(x, rval, ival) result(y) !!       !This is the actual function you are going to use as the lambda function. Its interface must match the abstract interface previously defined !!       implicit none !!       ! Arguments !!       real(DP), dimension(:), intent(in) :: x !!       real(DP),               intent(in) :: rval !!       integer(I4B),           intent(in) :: ival !!       ! Result !!       real(DP)                           :: y !!       ! Internals !!       integer(I4B) :: i, n !!       n = size(x) !!       y = 42._DP * ival !!       do i = 1, n !!          y = y + x(i)**2 !!       end do !!       return !!    end function example_function !! end module lambda_new !! !! program usage !!    use swiftest !!    use lambda_new !!    implicit none !!    type(lambda_obj_ri_args) :: f !!    real(DP) :: sigma_par !!    integer(I4B) :: iwonky, i,j !!    real(DP), dimension(12) :: xarr !! !!    sigma_par = 3.14_DP !!    iwonky = 13 !! !!    f = lambda_obj(example_function, sigma_par, iwonky) !!    do i = 1, 10 !!       xarr(:) = [(j * 0.25_DP / i, j=1, 12)] !!       write(*,*) i,f%eval(xarr) !!    end do !! end program usage !! ******************************************************************************************************************************************************************************************** use swiftest_globals implicit none public type :: lambda_obj !! Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers procedure ( lambda0 ), pointer , nopass :: lambdaptr => null () real ( DP ) :: lastval real ( DP ), dimension (:), allocatable :: lastarg contains generic :: init => lambda_init_0 procedure :: eval => lambda_eval_0 procedure , nopass :: lambda_init_0 final :: lambda_destroy end type type , extends ( lambda_obj ) :: lambda_obj_err !! Extended class for an lambda function object. This object takes allows for the return of a logical error flag during evaluation of the function. procedure ( lambda0err ), pointer , nopass :: lambdaptr_err => null () logical :: lerr contains generic :: init => lambda_init_0_err procedure :: eval => lambda_eval_0_err procedure , nopass :: lambda_init_0_err end type type , extends ( lambda_obj ) :: lambda_obj_tvar !! Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers procedure ( lambda0tvar ), pointer , nopass :: lambdaptr_tvar => null () contains generic :: init => lambda_init_tvar procedure :: evalt => lambda_eval_tvar procedure , nopass :: lambda_init_tvar end type interface lambda_obj module procedure lambda_init_0 module procedure lambda_init_0_err module procedure lambda_init_tvar end interface abstract interface function lambda0 ( x ) result ( y ) ! Template for a 0 argument function import DP real ( DP ), dimension (:), intent ( in ) :: x real ( DP ) :: y end function function lambda0err ( x , lerr ) result ( y ) ! Template for a 0 argument function that returns an error value import DP real ( DP ), dimension (:), intent ( in ) :: x logical , intent ( out ) :: lerr real ( DP ) :: y end function function lambda0tvar ( x , t ) result ( y ) ! Template for a 0 argument function that returns an error value import DP real ( DP ), dimension (:), intent ( in ) :: x real ( DP ), intent ( in ) :: t real ( DP ), dimension (:), allocatable :: y end function end interface contains type ( lambda_obj ) function lambda_init_0 ( lambda ) implicit none ! Arguments procedure ( lambda0 ) :: lambda lambda_init_0 % lambdaptr => lambda return end function lambda_init_0 type ( lambda_obj_err ) function lambda_init_0_err ( lambda , lerr ) implicit none ! Arguments procedure ( lambda0err ) :: lambda logical , intent ( in ) :: lerr lambda_init_0_err % lambdaptr_err => lambda lambda_init_0_err % lerr = lerr return end function lambda_init_0_err type ( lambda_obj_tvar ) function lambda_init_tvar ( lambda , t ) implicit none ! Arguments procedure ( lambda0tvar ) :: lambda real ( DP ), intent ( in ) :: t lambda_init_tvar % lambdaptr_tvar => lambda return end function lambda_init_tvar function lambda_eval_0 ( self , x ) result ( y ) implicit none ! Arguments class ( lambda_obj ), intent ( inout ) :: self real ( DP ), dimension (:), intent ( in ) :: x ! Result real ( DP ) :: y if ( associated ( self % lambdaptr )) then y = self % lambdaptr ( x ) self % lastval = y if ( allocated ( self % lastarg )) deallocate ( self % lastarg ) allocate ( self % lastarg , source = x ) else error stop \"Lambda function was not initialized\" end if end function lambda_eval_0 function lambda_eval_0_err ( self , x ) result ( y ) implicit none ! Arguments class ( lambda_obj_err ), intent ( inout ) :: self real ( DP ), dimension (:), intent ( in ) :: x ! Result real ( DP ) :: y if ( associated ( self % lambdaptr_err )) then y = self % lambdaptr_err ( x , self % lerr ) self % lastval = y if ( allocated ( self % lastarg )) deallocate ( self % lastarg ) allocate ( self % lastarg , source = x ) else error stop \"Lambda function was not initialized\" end if end function lambda_eval_0_err function lambda_eval_tvar ( self , x , t ) result ( y ) implicit none ! Arguments class ( lambda_obj_tvar ), intent ( inout ) :: self real ( DP ), dimension (:), intent ( in ) :: x real ( DP ), intent ( in ) :: t ! Result real ( DP ), dimension (:), allocatable :: y if ( associated ( self % lambdaptr_tvar )) then y = self % lambdaptr_tvar ( x , t ) else error stop \"Lambda function was not initialized\" end if end function lambda_eval_tvar subroutine lambda_destroy ( self ) implicit none type ( lambda_obj ) :: self if ( associated ( self % lambdaptr )) nullify ( self % lambdaptr ) end subroutine lambda_destroy end module lambda_function","tags":"","loc":"sourcefile/lambda_function.f90.html"},{"title":"fragmentation.f90 – swiftest","text":"This file depends on sourcefile~~fragmentation.f90~~EfferentGraph sourcefile~fragmentation.f90 fragmentation.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~fragmentation.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~fragmentation.f90->sourcefile~swiftest.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_fragmentation Source Code fragmentation.f90 Source Code submodule ( swiftest_classes ) s_fragmentation use swiftest contains module subroutine fragmentation_initialize ( system , param , family , x , v , L_spin , Ip , mass , radius , & nfrag , Ip_frag , m_frag , rad_frag , xb_frag , vb_frag , rot_frag , Qloss , lfailure ) !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Initialize the position and velocity of fragments to conserve energy and momentum. use , intrinsic :: ieee_exceptions implicit none ! Arguments class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters integer ( I4B ), dimension (:), intent ( in ) :: family !! Index of bodies involved in the collision real ( DP ), dimension (:,:), intent ( inout ) :: x , v , L_spin , Ip !! Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real ( DP ), dimension (:), intent ( inout ) :: mass , radius !! Two-body equivalent mass and radii for the bodies in the collision integer ( I4B ), intent ( inout ) :: nfrag !! Number of fragments to generate real ( DP ), dimension (:), allocatable , intent ( inout ) :: m_frag , rad_frag !! Distribution of fragment mass and radii real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: Ip_frag !! Fragment rotational inertia vectors real ( DP ), dimension (:,:), allocatable , intent ( inout ) :: xb_frag , vb_frag , rot_frag !! Fragment barycentric position, barycentric velocity, and rotation vectors real ( DP ), intent ( inout ) :: Qloss !! Energy lost during the collision logical , intent ( out ) :: lfailure !! Answers the question: Should this have been a merger instead? ! Internals real ( DP ) :: mscale , dscale , vscale , tscale , Lscale , Escale ! Scale factors that reduce quantities to O(~1) in the collisional system real ( DP ) :: mtot real ( DP ), dimension ( NDIM ) :: xcom , vcom integer ( I4B ) :: ii , npl_new logical , dimension (:), allocatable :: lexclude real ( DP ), dimension ( NDIM , 2 ) :: rot , L_orb real ( DP ), dimension (:,:), allocatable :: x_frag , v_frag , v_r_unit , v_t_unit , v_h_unit real ( DP ), dimension (:), allocatable :: rmag , rotmag , v_r_mag , v_t_mag real ( DP ), dimension ( NDIM ) :: Ltot_before real ( DP ), dimension ( NDIM ) :: Ltot_after real ( DP ) :: Etot_before , ke_orbit_before , ke_spin_before , pe_before , Lmag_before real ( DP ) :: Etot_after , ke_orbit_after , ke_spin_after , pe_after , Lmag_after , dEtot , dLmag real ( DP ), dimension ( NDIM ) :: L_frag_tot , L_frag_orb real ( DP ) :: ke_frag_budget , ke_frag_orbit , ke_radial , ke_frag_spin , ke_avg_deficit , ke_avg_deficit_old real ( DP ), dimension ( NDIM ) :: x_col_unit , y_col_unit , z_col_unit character ( len =* ), parameter :: fmtlabel = \"(A14,10(ES11.4,1X,:))\" integer ( I4B ) :: try , subtry integer ( I4B ), parameter :: NFRAG_MIN = 7 !! The minimum allowable number of fragments (set to 6 because that's how many unknowns are needed in the tangential velocity calculation) real ( DP ) :: r_max_start , r_max_start_old , r_max , f_spin real ( DP ), parameter :: Ltol = 10 * epsilon ( 1.0_DP ) real ( DP ), parameter :: Etol = 1e-9_DP integer ( I4B ), parameter :: MAXTRY = 3000 integer ( I4B ), parameter :: TANTRY = 3 logical , dimension ( size ( IEEE_ALL )) :: fpe_halting_modes , fpe_quiet_modes class ( swiftest_nbody_system ), allocatable :: tmpsys class ( swiftest_parameters ), allocatable :: tmpparam if ( nfrag < NFRAG_MIN ) then write ( * , * ) \"symba_frag_pos needs at least \" , NFRAG_MIN , \" fragments, but only \" , nfrag , \" were given.\" lfailure = . true . return end if call ieee_get_halting_mode ( IEEE_ALL , fpe_halting_modes ) ! Save the current halting modes so we can turn them off temporarily fpe_quiet_modes (:) = . false . call ieee_set_halting_mode ( IEEE_ALL , fpe_quiet_modes ) f_spin = 0.05_DP allocate ( x_frag , source = xb_frag ) allocate ( v_frag , source = vb_frag ) associate ( pl => system % pl , npl => system % pl % nbody ) npl_new = npl + nfrag allocate ( lexclude ( npl_new )) lexclude ( 1 : npl ) = pl % status ( 1 : npl ) == INACTIVE lexclude ( npl + 1 : npl_new ) = . true . end associate call set_scale_factors () call define_coordinate_system () call construct_temporary_system () ! Calculate the initial energy of the system without the collisional family call calculate_system_energy ( linclude_fragments = . false .) r_max_start = norm2 ( x (:, 2 ) - x (:, 1 )) try = 1 lfailure = . false . ke_avg_deficit = 0.0_DP do while ( try < MAXTRY ) lfailure = . false . ke_avg_deficit_old = ke_avg_deficit ke_avg_deficit = 0.0_DP subtry = 1 do ! Initialize the fragments with 0 velocity and spin so we can divide up the balance between the tangential, radial, and spin components while conserving momentum xb_frag (:,:) = 0.0_DP vb_frag (:,:) = 0.0_DP rot_frag (:,:) = 0.0_DP v_t_mag (:) = 0.0_DP v_r_mag (:) = 0.0_DP call set_fragment_position_vectors () call calculate_system_energy ( linclude_fragments = . true .) ke_frag_budget = - dEtot - Qloss call set_fragment_tan_vel ( lfailure ) ke_avg_deficit = ke_avg_deficit - ke_radial subtry = subtry + 1 if (. not . lfailure . or . subtry == TANTRY ) exit !write(*,*) 'Trying new arrangement' end do ke_avg_deficit = ke_avg_deficit / subtry !if (lfailure) write(*,*) 'Failed to find tangential velocities' if (. not . lfailure ) then call calculate_system_energy ( linclude_fragments = . true .) ke_radial = - dEtot - Qloss call set_fragment_radial_velocities ( lfailure ) !   if (lfailure) write(*,*) 'Failed to find radial velocities' if (. not . lfailure ) then call calculate_system_energy ( linclude_fragments = . true .) ! write(*,*) 'Qloss : ',Qloss ! write(*,*) '-dEtot: ',-dEtot ! write(*,*) 'delta : ',abs((dEtot + Qloss)) if (( abs ( dEtot + Qloss ) > Etol ) . or . ( dEtot > 0.0_DP )) then !write(*,*) 'Failed due to high energy error: ',dEtot, abs(dEtot + Qloss) / Etol lfailure = . true . else if ( abs ( dLmag ) / Lmag_before > Ltol ) then !write(*,*) 'Failed due to high angular momentum error: ', dLmag / Lmag_before lfailure = . true . end if end if end if if (. not . lfailure ) exit call restructure_failed_fragments () try = try + 1 end do call restore_scale_factors () call calculate_system_energy ( linclude_fragments = . true .) ! write(*,        \"(' -------------------------------------------------------------------------------------')\") ! write(*,        \"('  Final diagnostic')\") ! write(*,        \"(' -------------------------------------------------------------------------------------')\") ! if (lfailure) then !    write(*,*) \"symba_frag_pos failed after: \",try,\" tries\" !    do ii = 1, nfrag !       vb_frag(:, ii) = vcom(:) !    end do ! else !    write(*,*) \"symba_frag_pos succeeded after: \",try,\" tries\" !    write(*,        \"(' dL_tot should be very small' )\") !    write(*,fmtlabel) ' dL_tot      |', dLmag / Lmag_before !    write(*,        \"(' dE_tot should be negative and equal to Qloss' )\") !    write(*,fmtlabel) ' dE_tot      |', dEtot / abs(Etot_before) !    write(*,fmtlabel) ' Qloss       |', -Qloss / abs(Etot_before) !    write(*,fmtlabel) ' dE - Qloss  |', (Etot_after - Etot_before + Qloss) / abs(Etot_before) ! end if ! write(*,        \"(' -------------------------------------------------------------------------------------')\") call ieee_set_halting_mode ( IEEE_ALL , fpe_halting_modes ) ! Save the current halting modes so we can turn them off temporarily return contains ! Because of the complexity of this procedure, we have chosen to break it up into a series of nested subroutines. subroutine set_scale_factors () !! author: David A. Minton !! !! Scales dimenional quantities to ~O(1) with respect to the collisional system. This scaling makes it easier for the non-linear minimization !! to converge on a solution implicit none integer ( I4B ) :: i ! Find the center of mass of the collisional system mtot = sum ( mass (:)) xcom (:) = ( mass ( 1 ) * x (:, 1 ) + mass ( 2 ) * x (:, 2 )) / mtot vcom (:) = ( mass ( 1 ) * v (:, 1 ) + mass ( 2 ) * v (:, 2 )) / mtot ! Set scale factors dscale = sum ( radius (:)) mscale = mtot vscale = ( mass ( 1 ) * norm2 ( v (:, 1 ) - vcom (:)) + mass ( 2 ) * norm2 ( v (:, 2 ) - vcom (:))) / mtot tscale = dscale / vscale Lscale = mscale * dscale * vscale Escale = mscale * vscale ** 2 xcom (:) = xcom (:) / dscale vcom (:) = vcom (:) / vscale mtot = mtot / mscale mass = mass / mscale radius = radius / dscale x = x / dscale v = v / vscale L_spin = L_spin / Lscale do i = 1 , 2 rot (:, i ) = L_spin (:, i ) / ( mass ( i ) * radius ( i ) ** 2 * Ip ( 3 , i )) end do m_frag = m_frag / mscale rad_frag = rad_frag / dscale Qloss = Qloss / Escale return end subroutine set_scale_factors subroutine restore_scale_factors () !! author: David A. Minton !! !! Restores dimenional quantities back to the system units implicit none integer ( I4B ) :: i call ieee_set_halting_mode ( IEEE_ALL ,. false .) ! Restore scale factors xcom (:) = xcom (:) * dscale vcom (:) = vcom (:) * vscale mtot = mtot * mscale mass = mass * mscale radius = radius * dscale x = x * dscale v = v * vscale L_spin = L_spin * Lscale do i = 1 , 2 rot (:, i ) = L_spin (:, i ) * ( mass ( i ) * radius ( i ) ** 2 * Ip ( 3 , i )) end do m_frag = m_frag * mscale rad_frag = rad_frag * dscale rot_frag = rot_frag / tscale x_frag = x_frag * dscale v_frag = v_frag * vscale Qloss = Qloss * Escale do i = 1 , nfrag xb_frag (:, i ) = x_frag (:, i ) + xcom (:) vb_frag (:, i ) = v_frag (:, i ) + vcom (:) end do Etot_before = Etot_before * Escale pe_before = pe_before * Escale ke_spin_before = ke_spin_before * Escale ke_orbit_before = ke_orbit_before * Escale Ltot_before = Ltot_before * Lscale Lmag_before = Lmag_before * Lscale Etot_after = Etot_after * Escale pe_after = pe_after * Escale ke_spin_after = ke_spin_after * Escale ke_orbit_after = ke_orbit_after * Escale Ltot_after = Ltot_after * Lscale Lmag_after = Lmag_after * Lscale dLmag = norm2 ( Ltot_after (:) - Ltot_before (:)) dEtot = Etot_after - Etot_before call tmpsys % rescale ( tmpparam , mscale ** ( - 1 ), dscale ** ( - 1 ), tscale ** ( - 1 )) mscale = 1.0_DP dscale = 1.0_DP vscale = 1.0_DP tscale = 1.0_DP Lscale = 1.0_DP Escale = 1.0_DP return end subroutine restore_scale_factors subroutine define_coordinate_system () !! author: David A. Minton !! !! Defines the collisional coordinate system, including the unit vectors of both the system and individual fragments. implicit none integer ( I4B ) :: i real ( DP ), dimension ( NDIM ) :: x_cross_v , xc , vc , delta_r , delta_v real ( DP ) :: r_col_norm , v_col_norm allocate ( rmag ( nfrag )) allocate ( rotmag ( nfrag )) allocate ( v_r_mag ( nfrag )) allocate ( v_t_mag ( nfrag )) allocate ( v_r_unit ( NDIM , nfrag )) allocate ( v_t_unit ( NDIM , nfrag )) allocate ( v_h_unit ( NDIM , nfrag )) rmag (:) = 0.0_DP rotmag (:) = 0.0_DP v_r_mag (:) = 0.0_DP v_t_mag (:) = 0.0_DP v_r_unit (:,:) = 0.0_DP v_t_unit (:,:) = 0.0_DP v_h_unit (:,:) = 0.0_DP L_orb (:, :) = 0.0_DP ! Compute orbital angular momentum of pre-impact system do i = 1 , 2 xc (:) = x (:, i ) - xcom (:) vc (:) = v (:, i ) - vcom (:) x_cross_v (:) = xc (:) . cross . vc (:) L_orb (:, i ) = mass ( i ) * x_cross_v (:) end do ! Compute orbital angular momentum of pre-impact system. This will be the normal vector to the collision fragment plane L_frag_tot (:) = L_spin (:, 1 ) + L_spin (:, 2 ) + L_orb (:, 1 ) + L_orb (:, 2 ) delta_v (:) = v (:, 2 ) - v (:, 1 ) v_col_norm = norm2 ( delta_v (:)) delta_r (:) = x (:, 2 ) - x (:, 1 ) r_col_norm = norm2 ( delta_r (:)) ! We will initialize fragments on a plane defined by the pre-impact system, with the z-axis aligned with the angular momentum vector ! and the y-axis aligned with the pre-impact distance vector. y_col_unit (:) = delta_r (:) / r_col_norm z_col_unit (:) = L_frag_tot (:) / norm2 ( L_frag_tot ) ! The cross product of the y- by z-axis will give us the x-axis x_col_unit (:) = y_col_unit (:) . cross . z_col_unit (:) return end subroutine define_coordinate_system subroutine construct_temporary_system () !! Author: David A. Minton !! !! Constructs a temporary internal system consisting of active bodies and additional fragments. This internal temporary system is used to calculate system energy with and without fragments !! and optionally including fragments. implicit none ! Internals logical , dimension (:), allocatable :: lexclude_tmp associate ( pl => system % pl , npl => system % pl % nbody , cb => system % cb ) if ( size ( lexclude ) /= npl + nfrag ) then allocate ( lexclude_tmp ( npl_new )) lexclude_tmp ( 1 : npl ) = lexclude ( 1 : npl ) call move_alloc ( lexclude_tmp , lexclude ) end if where ( pl % status ( 1 : npl ) == INACTIVE ) ! Safety check in case one of the included bodies has been previously deactivated lexclude ( 1 : npl ) = . true . elsewhere lexclude ( 1 : npl ) = . false . end where lexclude ( npl + 1 : npl_new ) = . true . if ( allocated ( tmpparam )) deallocate ( tmpparam ) allocate ( tmpparam , source = param ) call setup_construct_system ( tmpsys , param ) call tmpsys % tp % setup ( 0 , param ) deallocate ( tmpsys % cb ) allocate ( tmpsys % cb , source = cb ) call tmpsys % pl % setup ( npl + nfrag , tmpparam ) call tmpsys % pl % fill ( pl , . not . lexclude ) call tmpsys % rescale ( tmpparam , mscale , dscale , tscale ) end associate return end subroutine construct_temporary_system subroutine add_fragments_to_tmpsys () !! Author: David A. Minton !! !! Adds fragments to the temporary system pl object implicit none ! Internals integer ( I4B ) :: i associate ( pl => system % pl , npl => system % pl % nbody ) tmpsys % pl % mass ( npl + 1 : npl_new ) = m_frag ( 1 : nfrag ) tmpsys % pl % Gmass ( npl + 1 : npl_new ) = m_frag ( 1 : nfrag ) * tmpparam % GU tmpsys % pl % radius ( npl + 1 : npl_new ) = rad_frag ( 1 : nfrag ) do concurrent ( i = 1 : nfrag ) tmpsys % pl % xb (:, npl + i ) = xb_frag (:, i ) tmpsys % pl % vb (:, npl + i ) = vb_frag (:, i ) tmpsys % pl % xh (:, npl + i ) = xb_frag (:, i ) - tmpsys % cb % xb (:) tmpsys % pl % vh (:, npl + i ) = vb_frag (:, i ) - tmpsys % cb % vb (:) end do if ( tmpparam % lrotation ) then tmpsys % pl % Ip (:, npl + 1 : npl_new ) = Ip_frag (:, 1 : nfrag ) tmpsys % pl % rot (:, npl + 1 : npl_new ) = rot_frag (:, 1 : nfrag ) end if ! Disable the collisional family for subsequent energy calculations and coordinate shifts lexclude ( family (:)) = . true . lexclude ( npl + 1 : npl_new ) = . false . where ( lexclude (:)) tmpsys % pl % status (:) = INACTIVE elsewhere tmpsys % pl % status (:) = ACTIVE end where end associate return end subroutine add_fragments_to_tmpsys subroutine calculate_system_energy ( linclude_fragments ) !! Author: David A. Minton !! !! Calculates total system energy, including all bodies in the pl list that do not have a corresponding value of the lexclude array that is true !! and optionally including fragments. implicit none ! Arguments logical , intent ( in ) :: linclude_fragments ! Internals integer ( I4B ) :: i , nplm logical , dimension (:), allocatable :: lexclude_tmp logical :: lk_plpl ! Because we're making a copy of symba_pl with the excludes/fragments appended, we need to deallocate the ! big k_plpl array and recreate it when we're done, otherwise we run the risk of blowing up the memory by ! allocating two of these ginormous arrays simulteouously. This is not particularly efficient, but as this ! subroutine should be called relatively infrequently, it shouldn't matter too much. ! Build the internal planet list out of the non-excluded bodies and optionally with fragments appended. This ! will get passed to the energy calculation subroutine so that energy is computed exactly the same way is it ! is in the main program. This will temporarily expand the planet list in a temporary system object called tmpsys to feed it into symba_energy associate ( pl => system % pl , npl => system % pl % nbody , cb => system % cb ) where ( lexclude ( 1 : npl_new )) tmpsys % pl % status ( 1 : npl_new ) = INACTIVE elsewhere tmpsys % pl % status ( 1 : npl_new ) = ACTIVE end where select type ( plwksp => tmpsys % pl ) class is ( symba_pl ) select type ( param ) class is ( symba_parameters ) plwksp % nplm = count ( plwksp % Gmass > param % Gmtiny / mscale ) end select end select lk_plpl = allocated ( pl % k_plpl ) if ( lk_plpl ) deallocate ( pl % k_plpl ) call tmpsys % pl % eucl_index () call tmpsys % get_energy_and_momentum ( param ) ! Restore the big array deallocate ( tmpsys % pl % k_plpl ) select type ( pl ) class is ( symba_pl ) select type ( param ) class is ( symba_parameters ) pl % nplm = count ( pl % Gmass > param % Gmtiny ) end select end select if ( lk_plpl ) call pl % eucl_index () ! Calculate the current fragment energy and momentum balances if ( linclude_fragments ) then Ltot_after (:) = tmpsys % Lorbit (:) + tmpsys % Lspin (:) Lmag_after = norm2 ( Ltot_after (:)) ke_orbit_after = tmpsys % ke_orbit ke_spin_after = tmpsys % ke_spin pe_after = tmpsys % pe Etot_after = ke_orbit_after + ke_spin_after + pe_after dEtot = Etot_after - Etot_before dLmag = norm2 ( Ltot_after (:) - Ltot_before (:)) else Ltot_before (:) = tmpsys % Lorbit (:) + tmpsys % Lspin (:) Lmag_before = norm2 ( Ltot_before (:)) ke_orbit_before = tmpsys % ke_orbit ke_spin_before = tmpsys % ke_spin pe_before = tmpsys % pe Etot_before = ke_orbit_before + ke_spin_before + pe_before end if end associate return end subroutine calculate_system_energy subroutine shift_vector_to_origin ( m_frag , vec_frag ) !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Adjusts the position or velocity of the fragments as needed to align them with the origin implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: m_frag !! Fragment masses real ( DP ), dimension (:,:), intent ( inout ) :: vec_frag !! Fragment positions or velocities in the center of mass frame ! Internals real ( DP ), dimension ( NDIM ) :: mvec_frag , COM_offset integer ( I4B ) :: i mvec_frag (:) = 0.0_DP do i = 1 , nfrag mvec_frag = mvec_frag (:) + vec_frag (:, i ) * m_frag ( i ) end do COM_offset (:) = - mvec_frag (:) / mtot do i = 1 , nfrag vec_frag (:, i ) = vec_frag (:, i ) + COM_offset (:) end do return end subroutine shift_vector_to_origin subroutine set_fragment_position_vectors () !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Initializes the orbits of the fragments around the center of mass. The fragments are initially placed on a plane defined by the !! pre-impact angular momentum. They are distributed on an ellipse surrounding the center of mass. !! The initial positions do not conserve energy or momentum, so these need to be adjusted later. implicit none real ( DP ) :: dis , rad real ( DP ), dimension ( NDIM ) :: L_sigma logical , dimension (:), allocatable :: loverlap integer ( I4B ) :: i , j allocate ( loverlap ( nfrag )) ! Place the fragments into a region that is big enough that we should usually not have overlapping bodies ! An overlapping bodies will collide in the next time step, so it's not a major problem if they do (it just slows the run down) r_max = r_max_start rad = sum ( radius (:)) ! We will treat the first two fragments of the list as special cases. They get initialized the maximum distances apart along the original impactor distance vector. ! This is done because in a regular disruption, the first body is the largest, the second the second largest, and the rest are smaller equal-mass fragments. call random_number ( x_frag (:, 3 : nfrag )) loverlap (:) = . true . do while ( any ( loverlap ( 3 : nfrag ))) x_frag (:, 1 ) = x (:, 1 ) - xcom (:) x_frag (:, 2 ) = x (:, 2 ) - xcom (:) r_max = r_max + 0.1_DP * rad do i = 3 , nfrag if ( loverlap ( i )) then call random_number ( x_frag (:, i )) x_frag (:, i ) = 2 * ( x_frag (:, i ) - 0.5_DP ) * r_max end if end do loverlap (:) = . false . do j = 1 , nfrag do i = j + 1 , nfrag dis = norm2 ( x_frag (:, j ) - x_frag (:, i )) loverlap ( i ) = loverlap ( i ) . or . ( dis <= ( rad_frag ( i ) + rad_frag ( j ))) end do end do end do call shift_vector_to_origin ( m_frag , x_frag ) do i = 1 , nfrag rmag ( i ) = norm2 ( x_frag (:, i )) v_r_unit (:, i ) = x_frag (:, i ) / rmag ( i ) call random_number ( L_sigma (:)) ! Randomize the tangential velocity direction. This helps to ensure that the tangential velocity doesn't completely line up with the angular momentum vector, ! otherwise we can get an ill-conditioned system v_h_unit (:, i ) = z_col_unit (:) + 2e-1_DP * ( L_sigma (:) - 0.5_DP ) v_h_unit (:, i ) = v_h_unit (:, i ) / norm2 ( v_h_unit (:, i )) v_t_unit (:, i ) = v_h_unit (:, i ) . cross . v_r_unit (:, i ) xb_frag (:, i ) = x_frag (:, i ) + xcom (:) end do call add_fragments_to_tmpsys () xcom (:) = 0.0_DP do i = 1 , nfrag xcom (:) = xcom (:) + m_frag ( i ) * xb_frag (:, i ) end do xcom (:) = xcom (:) / mtot return end subroutine set_fragment_position_vectors subroutine set_fragment_tan_vel ( lerr ) !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Adjusts the tangential velocities and spins of a collection of fragments such that they conserve angular momentum without blowing the fragment kinetic energy budget. !! This procedure works in several stages, with a goal to solve the angular and linear momentum constraints on the fragments, while still leaving a positive balance of !! our fragment kinetic energy (ke_frag_budget) that we can put into the radial velocity distribution. !! !! The first thing we'll try to do is solve for the tangential velocities of the first 6 fragments, using angular and linear momentum as constraints and an initial !! tangential velocity distribution for the remaining bodies (if there are any) that distributes their angular momentum equally between them. !! If that doesn't work and we blow our kinetic energy budget, we will attempt to find a tangential velocity distribution that minimizes the kinetic energy while !! conserving momentum. !! !! A failure will trigger a restructuring of the fragments so we will try new values of the radial position distribution. implicit none ! Arguments logical , intent ( out ) :: lerr ! Internals integer ( I4B ) :: i real ( DP ), parameter :: TOL = 1e-4_DP real ( DP ), dimension (:), allocatable :: v_t_initial real ( DP ), dimension ( nfrag ) :: kefrag type ( lambda_obj ) :: spinfunc type ( lambda_obj_err ) :: objective_function real ( DP ), dimension ( NDIM ) :: L_frag_spin , L_remainder , Li , rot_L , rot_ke lerr = . false . if ( ke_frag_budget < 0.0_DP ) then write ( * , * ) 'Negative ke_frag_budget: ' , ke_frag_budget r_max_start = r_max_start / 2 lerr = . true . return end if allocate ( v_t_initial , mold = v_t_mag ) L_frag_spin (:) = 0.0_DP ke_frag_spin = 0.0_DP ! Start the first two bodies with the same rotation as the original two impactors, then distribute the remaining angular momentum among the rest do i = 1 , 2 rot_frag (:, i ) = rot (:, i ) L_frag_spin (:) = L_frag_spin (:) + m_frag ( i ) * rad_frag ( i ) ** 2 * Ip_frag ( 3 , i ) * rot_frag (:, i ) end do L_frag_orb (:) = L_frag_tot (:) - L_frag_spin (:) L_frag_spin (:) = 0.0_DP do i = 1 , nfrag ! Convert a fraction (f_spin) of either the remaining angular momentum or kinetic energy budget into spin, whichever gives the smaller rotation so as not to blow any budgets rot_ke (:) = sqrt ( 2 * f_spin * ke_frag_budget / ( nfrag * m_frag ( i ) * rad_frag ( i ) ** 2 * Ip_frag ( 3 , i ))) * L_frag_orb (:) / norm2 ( L_frag_orb (:)) rot_L (:) = f_spin * L_frag_orb (:) / ( nfrag * m_frag ( i ) * rad_frag ( i ) ** 2 * Ip_frag ( 3 , i )) if ( norm2 ( rot_ke ) < norm2 ( rot_L )) then rot_frag (:, i ) = rot_frag (:, i ) + rot_ke (:) else rot_frag (:, i ) = rot_frag (:, i ) + rot_L (:) end if L_frag_spin (:) = L_frag_spin (:) + m_frag ( i ) * rad_frag ( i ) ** 2 * Ip_frag ( 3 , i ) * rot_frag (:, i ) ke_frag_spin = ke_frag_spin + m_frag ( i ) * Ip_frag ( 3 , i ) * rad_frag ( i ) ** 2 * dot_product ( rot_frag (:, i ), rot_frag (:, i )) end do ke_frag_spin = 0.5_DP * ke_frag_spin ! Convert a fraction of the pre-impact angular momentum into fragment spin angular momentum L_frag_orb (:) = L_frag_tot (:) - L_frag_spin (:) L_remainder (:) = L_frag_orb (:) ! Next we will solve for the tangential component of the velocities that both conserves linear momentum and uses the remaining angular momentum not used in spin. ! This will be done using a linear solver that solves for the tangential velocities of the first 6 fragments, constrained by the linear and angular momentum vectors, ! which is embedded in a non-linear minimizer that will adjust the tangential velocities of the remaining i>6 fragments to minimize kinetic energy for a given momentum solution ! The initial conditions fed to the minimizer for the fragments will be the remaining angular momentum distributed between the fragments. do i = 1 , nfrag v_t_initial ( i ) = norm2 ( L_remainder (:)) / (( nfrag - i + 1 ) * m_frag ( i ) * norm2 ( x_frag (:, i ))) Li (:) = m_frag ( i ) * x_frag (:, i ) . cross . v_t_initial ( i ) * v_t_unit (:, i ) L_remainder (:) = L_remainder (:) - Li (:) end do ! Find the local kinetic energy minimum for the system that conserves linear and angular momentum objective_function = lambda_obj ( tangential_objective_function , lerr ) v_t_mag ( 7 : nfrag ) = util_minimize_bfgs ( objective_function , nfrag - 6 , v_t_initial ( 7 : nfrag ), TOL , lerr ) ! Now that the KE-minimized values of the i>6 fragments are found, calculate the momentum-conserving solution for tangential velociteis v_t_initial ( 7 : nfrag ) = v_t_mag ( 7 : nfrag ) v_t_mag ( 1 : nfrag ) = solve_fragment_tan_vel ( v_t_mag_input = v_t_initial ( 7 : nfrag ), lerr = lerr ) ! Perform one final shift of the radial velocity vectors to align with the center of mass of the collisional system (the origin) vb_frag (:, 1 : nfrag ) = vmag_to_vb ( v_r_mag ( 1 : nfrag ), v_r_unit (:, 1 : nfrag ), v_t_mag ( 1 : nfrag ), v_t_unit (:, 1 : nfrag ), m_frag ( 1 : nfrag ), vcom (:)) call add_fragments_to_tmpsys () ! Now do a kinetic energy budget check to make sure we are still within the budget. kefrag = 0.0_DP do concurrent ( i = 1 : nfrag ) v_frag (:, i ) = vb_frag (:, i ) - vcom (:) kefrag ( i ) = m_frag ( i ) * dot_product ( vb_frag (:, i ), vb_frag (:, i )) end do ke_frag_orbit = 0.5_DP * sum ( kefrag (:)) ke_radial = ke_frag_budget - ke_frag_orbit - ke_frag_spin ! If we are over the energy budget, flag this as a failure so we can try again lerr = ( ke_radial < 0.0_DP ) ! write(*,*) 'Tangential' ! write(*,*) 'Failure? ',lerr ! write(*,*) 'ke_frag_budget: ',ke_frag_budget ! write(*,*) 'ke_frag_spin  : ',ke_frag_spin ! write(*,*) 'ke_tangential : ',ke_frag_orbit ! write(*,*) 'ke_remainder  : ',ke_radial return end subroutine set_fragment_tan_vel function tangential_objective_function ( v_t_mag_input , lerr ) result ( fval ) !! Author: David A. Minton !! !! Objective function for evaluating how close our fragment velocities get to minimizing KE error from our required value implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: v_t_mag_input !! Unknown tangential component of velocity vector set previously by angular momentum constraint logical , intent ( out ) :: lerr !! Error flag ! Result real ( DP ) :: fval ! Internals integer ( I4B ) :: i real ( DP ), dimension ( NDIM , nfrag ) :: v_shift real ( DP ), dimension ( nfrag ) :: v_t_new , kearr real ( DP ) :: keo lerr = . false . v_t_new (:) = solve_fragment_tan_vel ( v_t_mag_input = v_t_mag_input (:), lerr = lerr ) v_shift (:,:) = vmag_to_vb ( v_r_mag , v_r_unit , v_t_new , v_t_unit , m_frag , vcom ) kearr = 0.0_DP do concurrent ( i = 1 : nfrag ) kearr ( i ) = m_frag ( i ) * dot_product ( v_shift (:, i ), v_shift (:, i )) end do keo = 0.5_DP * sum ( kearr (:)) fval = keo lerr = . false . return end function tangential_objective_function function solve_fragment_tan_vel ( lerr , v_t_mag_input ) result ( v_t_mag_output ) !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Adjusts the positions, velocities, and spins of a collection of fragments such that they conserve angular momentum implicit none ! Arguments logical , intent ( out ) :: lerr !! Error flag real ( DP ), dimension (:), optional , intent ( in ) :: v_t_mag_input !! Unknown tangential velocities for fragments 7:nfrag ! Internals integer ( I4B ) :: i ! Result real ( DP ), dimension (:), allocatable :: v_t_mag_output real ( DP ), dimension ( 2 * NDIM , 2 * NDIM ) :: A ! LHS of linear equation used to solve for momentum constraint in Gauss elimination code real ( DP ), dimension ( 2 * NDIM ) :: b ! RHS of linear equation used to solve for momentum constraint in Gauss elimination code real ( DP ), dimension ( NDIM ) :: L_lin_others , L_orb_others , L , vtmp v_frag (:,:) = 0.0_DP lerr = . false . ! We have 6 constraint equations (2 vector constraints in 3 dimensions each) ! The first 3 are that the linear momentum of the fragments is zero with respect to the collisional barycenter ! The second 3 are that the sum of the angular momentum of the fragments is conserved from the pre-impact state L_lin_others (:) = 0.0_DP L_orb_others (:) = 0.0_DP do i = 1 , nfrag if ( i <= 2 * NDIM ) then ! The tangential velocities of the first set of bodies will be the unknowns we will solve for to satisfy the constraints A ( 1 : 3 , i ) = m_frag ( i ) * v_t_unit (:, i ) L (:) = v_r_unit (:, i ) . cross . v_t_unit (:, i ) A ( 4 : 6 , i ) = m_frag ( i ) * rmag ( i ) * L (:) else if ( present ( v_t_mag_input )) then vtmp (:) = v_t_mag_input ( i - 6 ) * v_t_unit (:, i ) L_lin_others (:) = L_lin_others (:) + m_frag ( i ) * vtmp (:) L (:) = x_frag (:, i ) . cross . vtmp (:) L_orb_others (:) = L_orb_others (:) + m_frag ( i ) * L (:) end if end do b ( 1 : 3 ) = - L_lin_others (:) b ( 4 : 6 ) = L_frag_orb (:) - L_orb_others (:) allocate ( v_t_mag_output ( nfrag )) v_t_mag_output ( 1 : 6 ) = util_solve_linear_system ( A , b , 6 , lerr ) if ( present ( v_t_mag_input )) v_t_mag_output ( 7 : nfrag ) = v_t_mag_input (:) return end function solve_fragment_tan_vel subroutine set_fragment_radial_velocities ( lerr ) !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! !! Adjust the fragment velocities to set the fragment orbital kinetic energy. This will minimize the difference between the fragment kinetic energy and the energy budget implicit none ! Arguments logical , intent ( out ) :: lerr ! Internals real ( DP ), parameter :: TOL = 1e-10_DP integer ( I4B ) :: i , j real ( DP ), dimension (:), allocatable :: v_r_initial , v_r_sigma real ( DP ), dimension (:,:), allocatable :: v_r real ( DP ), dimension ( nfrag ) :: kearr , kespinarr type ( lambda_obj ) :: objective_function ! Set the \"target\" ke_orbit_after (the value of the orbital kinetic energy that the fragments ought to have) allocate ( v_r_initial , source = v_r_mag ) ! Initialize radial velocity magnitudes with a random value that is approximately 10% of that found by distributing the kinetic energy equally allocate ( v_r_sigma , source = v_r_mag ) call random_number ( v_r_sigma ( 1 : nfrag )) v_r_sigma ( 1 : nfrag ) = sqrt ( 1.0_DP + 2 * ( v_r_sigma ( 1 : nfrag ) - 0.5_DP ) * 1e-4_DP ) v_r_initial ( 1 : nfrag ) = v_r_sigma ( 1 : nfrag ) * sqrt ( abs ( 2 * ke_radial ) / ( m_frag ( 1 : nfrag ) * nfrag )) ! Initialize the lambda function using a structure constructor that calls the init method ! Minimize the ke objective function using the BFGS optimizer objective_function = lambda_obj ( radial_objective_function ) v_r_mag = util_minimize_bfgs ( objective_function , nfrag , v_r_initial , TOL , lerr ) ! Shift the radial velocity vectors to align with the center of mass of the collisional system (the origin) vb_frag (:, 1 : nfrag ) = vmag_to_vb ( v_r_mag ( 1 : nfrag ), v_r_unit (:, 1 : nfrag ), v_t_mag ( 1 : nfrag ), v_t_unit (:, 1 : nfrag ), m_frag ( 1 : nfrag ), vcom (:)) do i = 1 , nfrag v_frag (:, i ) = vb_frag (:, i ) - vcom (:) end do call add_fragments_to_tmpsys () do concurrent ( i = 1 : nfrag ) kearr ( i ) = m_frag ( i ) * dot_product ( vb_frag (:, i ), vb_frag (:, i )) kespinarr ( i ) = m_frag ( i ) * Ip_frag ( 3 , i ) * rad_frag ( i ) ** 2 * dot_product ( rot_frag (:, i ), rot_frag (:, i )) end do ke_frag_orbit = 0.5_DP * sum ( kearr (:)) ke_frag_spin = 0.5_DP * sum ( kespinarr (:)) ! write(*,*) 'Radial' ! write(*,*) 'Failure? ',lerr ! write(*,*) 'ke_frag_budget: ',ke_frag_budget ! write(*,*) 'ke_frag_spin  : ',ke_frag_spin ! write(*,*) 'ke_frag_orbit : ',ke_frag_orbit ! write(*,*) 'ke_remainder  : ',ke_frag_budget - (ke_frag_orbit + ke_frag_spin) lerr = . false . return end subroutine set_fragment_radial_velocities function radial_objective_function ( v_r_mag_input ) result ( fval ) !! Author: David A. Minton !! !! Objective function for evaluating how close our fragment velocities get to minimizing KE error from our required value implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: v_r_mag_input !! Unknown radial component of fragment velocity vector ! Result real ( DP ) :: fval !! The objective function result, which is the square of the difference between the calculated fragment kinetic energy and our target !! Minimizing this brings us closer to our objective ! Internals integer ( I4B ) :: i real ( DP ), dimension (:,:), allocatable :: v_shift real ( DP ), dimension ( nfrag ) :: kearr real ( DP ) :: keo allocate ( v_shift , mold = vb_frag ) v_shift (:,:) = vmag_to_vb ( v_r_mag_input , v_r_unit , v_t_mag , v_t_unit , m_frag , vcom ) do concurrent ( i = 1 : nfrag ) kearr ( i ) = m_frag ( i ) * ( Ip_frag ( 3 , i ) * rad_frag ( i ) ** 2 * dot_product ( rot_frag (:, i ), rot_frag (:, i )) + dot_product ( v_shift (:, i ), v_shift (:, i ))) end do keo = 2 * ke_frag_budget - sum ( kearr (:)) ! The following ensures that fval = 0 is a local minimum, which is what the BFGS method is searching for fval = ( keo / ( 2 * ke_radial )) ** 2 return end function radial_objective_function function vmag_to_vb ( v_r_mag , v_r_unit , v_t_mag , v_t_unit , m_frag , vcom ) result ( vb ) !! Author: David A. Minton !! !! Converts radial and tangential velocity magnitudes into barycentric velocity implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: v_r_mag !! Unknown radial component of fragment velocity vector real ( DP ), dimension (:), intent ( in ) :: v_t_mag !! Tangential component of velocity vector set previously by angular momentum constraint real ( DP ), dimension (:,:), intent ( in ) :: v_r_unit , v_t_unit !! Radial and tangential unit vectors for each fragment real ( DP ), dimension (:), intent ( in ) :: m_frag !! Fragment masses real ( DP ), dimension (:), intent ( in ) :: vcom !! Barycentric velocity of collisional system center of mass ! Result real ( DP ), dimension (:,:), allocatable :: vb ! Internals integer ( I4B ) :: i allocate ( vb , mold = v_r_unit ) ! Make sure the velocity magnitude stays positive do i = 1 , nfrag vb (:, i ) = abs ( v_r_mag ( i )) * v_r_unit (:, i ) end do ! In order to keep satisfying the kinetic energy constraint, we must shift the origin of the radial component of the velocities to the center of mass call shift_vector_to_origin ( m_frag , vb ) do i = 1 , nfrag vb (:, i ) = vb (:, i ) + v_t_mag ( i ) * v_t_unit (:, i ) + vcom (:) end do return end function vmag_to_vb subroutine restructure_failed_fragments () !! Author: David A. Minton !! !! We failed to find a set of positions and velocities that satisfy all the constraints, and so we will alter the fragments and try again. implicit none integer ( I4B ) :: i real ( DP ), dimension (:), allocatable :: m_frag_new , rad_frag_new real ( DP ), dimension (:,:), allocatable :: xb_frag_new , vb_frag_new , Ip_frag_new , rot_frag_new real ( DP ) :: delta_r , delta_r_max real ( DP ), parameter :: ke_avg_deficit_target = 0.0_DP ! Introduce a bit of noise in the radius determination so we don't just flip flop between similar failed positions call random_number ( delta_r_max ) delta_r_max = sum ( radius (:)) * ( 1.0_DP + 2e-1_DP * ( delta_r_max - 0.5_DP )) if ( try > 2 ) then ! Linearly interpolate the last two failed solution ke deficits to find a new distance value to try delta_r = ( r_max_start - r_max_start_old ) * ( ke_avg_deficit_target - ke_avg_deficit_old ) / ( ke_avg_deficit - ke_avg_deficit_old ) if ( abs ( delta_r ) > delta_r_max ) delta_r = sign ( delta_r_max , delta_r ) else delta_r = delta_r_max end if r_max_start_old = r_max_start r_max_start = r_max_start + delta_r ! The larger lever arm can help if the problem is in the angular momentum step if ( f_spin > epsilon ( 1.0_DP )) then f_spin = f_spin / 2 else f_spin = 0.0_DP end if return end subroutine restructure_failed_fragments end subroutine fragmentation_initialize module subroutine fragmentation_regime ( Mcb , m1 , m2 , rad1 , rad2 , xh1 , xh2 , vb1 , vb2 , den1 , den2 , regime , Mlr , Mslr , mtiny , Qloss ) !! Author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Determine the collisional regime of two colliding bodies. !! Current version requires all values to be converted to SI units prior to calling the function !!       References: !!       Kokubo, E., Genda, H., 2010. Formation of Terrestrial Planets from Protoplanets Under a Realistic Accretion !!          Condition. ApJL 714, L21. https://doi.org/10.1088/2041-8205/714/1/L21 !!       Leinhardt, Z.M., Stewart, S.T., 2012. Collisions between Gravity-dominated Bodies. I. Outcome Regimes and Scaling !!          Laws 745, 79. https://doi.org/10.1088/0004-637X/745/1/79 !!       Mustill, A.J., Davies, M.B., Johansen, A., 2018. The dynamical evolution of transiting planetary systems including !!          a realistic collision prescription. Mon Not R Astron Soc 478, 2896–2908. https://doi.org/10.1093/mnras/sty1273 !!       Rufu, R., Aharonson, O., 2019. Impact Dynamics of Moons Within a Planetary Potential. J. Geophys. Res. Planets 124, !!          1008–1019. https://doi.org/10.1029/2018JE005798 !!       Stewart, S.T., Leinhardt, Z.M., 2012. Collisions between Gravity-dominated Bodies. II. The Diversity of Impact !!          Outcomes during the End Stage of Planet Formation. ApJ 751, 32. https://doi.org/10.1088/0004-637X/751/1/32 !! implicit none ! Arguments integer ( I4B ), intent ( out ) :: regime real ( DP ), intent ( out ) :: Mlr , Mslr real ( DP ), intent ( in ) :: Mcb , m1 , m2 , rad1 , rad2 , den1 , den2 , mtiny real ( DP ), dimension (:), intent ( in ) :: xh1 , xh2 , vb1 , vb2 real ( DP ), intent ( out ) :: Qloss !! The residual energy after the collision ! Constants integer ( I4B ), parameter :: N1 = 1 !number of objects with mass equal to the largest remnant from LS12 integer ( I4B ), parameter :: N2 = 2 !number of objects with mass larger than second largest remnant from LS12 real ( DP ), parameter :: DENSITY1 = 100 0.0_DP !standard density parameter from LS12 [kg/m3] real ( DP ), parameter :: MU_BAR = 0.37_DP !0.385#0.37#0.3333# 3.978 # 1/3 material parameter for hydrodynamic planet-size bodies (LS12) real ( DP ), parameter :: BETA = 2.85_DP !slope of sfd for remnants from LS12 2.85 real ( DP ), parameter :: C1 = 2.43_DP !! Kokubo & Genda (2010) eq. (3) real ( DP ), parameter :: C2 = - 0.0408_DP !! Kokubo & Genda (2010) eq. (3) real ( DP ), parameter :: C3 = 1.86_DP !! Kokubo & Genda (2010) eq. (3) real ( DP ), parameter :: C4 = 1.08_DP !! Kokubo & Genda (2010) eq. (3) real ( DP ), parameter :: CRUFU = 2.0_DP - 3 * MU_BAR ! central potential variable from Rufu and Aharonson (2019) real ( DP ), parameter :: SUPERCAT_QRATIO = 1.8_DP ! See Section 4.1 of LS12 ! Internals real ( DP ) :: a1 , alpha , aint , b , bcrit , c_star , egy , zeta , l , lint , mu , phi , theta real ( DP ) :: Qr , Qrd_pstar , Qr_erosion , Qr_supercat real ( DP ) :: Vhr , Verosion , Vescp , Vhill , Vimp , Vsupercat real ( DP ) :: Mint , Mtot real ( DP ) :: Rp , rhill real ( DP ) :: Mresidual real ( DP ) :: U_binding Vimp = norm2 ( vb2 (:) - vb1 (:)) b = calc_b ( xh2 , vb2 , xh1 , vb1 ) l = ( rad1 + rad2 ) * ( 1 - b ) egy = 0.5_DP * dot_product ( vb1 , vb1 ) - GC * Mcb / norm2 ( xh1 ) a1 = - GC * Mcb / 2.0_DP / egy Mtot = m1 + m2 mu = ( m1 * m2 ) / Mtot if ( l < 2 * rad2 ) then !calculate Mint phi = 2 * acos (( l - rad2 ) / rad2 ) aint = rad2 ** 2 * ( PI - ( phi - sin ( phi )) / 2.0_DP ) lint = 2 * sqrt ( rad2 ** 2 - ( rad2 - l / 2.0_DP ) ** 2 ) Mint = aint * lint ![kg] alpha = ( l ** 2 ) * ( 3 * rad2 - l ) / ( 4 * ( rad2 ** 3 )) else alpha = 1.0_DP Mint = m2 end if Rp = ( 3 * ( m1 / den1 + alpha * m2 / den2 ) / ( 4 * PI )) ** ( 1.0_DP / 3.0_DP ) ! (Mustill et al. 2018) c_star = calc_c_star ( Rp ) !calculate Vescp Vescp = sqrt ( 2 * GC * Mtot / Rp ) !Mustill et al. 2018 eq 6 !calculate rhill rhill = a1 * ( m1 / 3.0_DP / ( Mcb + m1 )) ** ( 1.0_DP / 3.0_DP ) !calculate Vhill if (( rad2 + rad1 ) < rhill ) then Vhill = sqrt ( 2 * GC * m1 * (( rhill ** 2 - rhill * ( rad1 + rad2 )) / & ( rhill ** 2 - 0.5_DP * ( rad1 + rad2 ) ** 2 )) / ( rad1 + rad2 )) else Vhill = Vescp end if !calculate Qr_pstar Qrd_pstar = calc_Qrd_pstar ( m1 , m2 , alpha , c_star ) * ( Vhill / Vescp ) ** CRUFU !Rufu and Aharaonson eq (3) !calculate Verosion Qr_erosion = 2 * ( 1.0_DP - m1 / Mtot ) * Qrd_pstar Verosion = ( 2 * Qr_erosion * Mtot / mu ) ** ( 1.0_DP / 2.0_DP ) Qr = mu * ( Vimp ** 2 ) / Mtot / 2.0_DP !calculate mass largest remnant Mlr Mlr = ( 1.0_DP - Qr / Qrd_pstar / 2.0_DP ) * Mtot ! [kg] # LS12 eq (5) !calculate Vsupercat Qr_supercat = SUPERCAT_QRATIO * Qrd_pstar ! See LS12 Section 4.1 Vsupercat = sqrt ( 2 * Qr_supercat * Mtot / mu ) !calculate Vhr zeta = ( m1 - m2 ) / Mtot theta = 1.0_DP - b Vhr = Vescp * ( C1 * zeta ** 2 * theta ** ( 2.5_DP ) + C2 * zeta ** 2 + C3 * theta ** ( 2.5_DP ) + C4 ) ! Kokubo & Genda (2010) eq. (3) bcrit = rad1 / ( rad1 + rad2 ) Qloss = 0.0_DP U_binding = ( 3.0_DP * Mtot ) / ( 5.0_DP * Rp ) ! LS12 eq. 27 if (( m1 < mtiny ). or .( m2 < mtiny )) then regime = COLLRESOLVE_REGIME_MERGE !perfect merging regime Mlr = Mtot Mslr = 0.0_DP Qloss = 0.0_DP write ( * , * ) \"FORCE MERGE\" else if ( Vimp < Vescp ) then regime = COLLRESOLVE_REGIME_MERGE !perfect merging regime Mlr = Mtot Mslr = 0.0_DP Qloss = 0.0_DP else if ( Vimp < Verosion ) then if ( b < bcrit ) then regime = COLLRESOLVE_REGIME_MERGE !partial accretion regime\" Mlr = Mtot Mslr = 0.0_DP Qloss = 0.0_DP else if (( b > bcrit ) . and . ( Vimp < Vhr )) then regime = COLLRESOLVE_REGIME_MERGE ! graze and merge Mlr = Mtot Mslr = 0.0_DP Qloss = 0.0_DP else Mlr = m1 Mslr = calc_Qrd_rev ( m2 , m1 , Mint , den1 , den2 , Vimp , c_star ) regime = COLLRESOLVE_REGIME_HIT_AND_RUN !hit and run Qloss = ( c_star + 1.0_DP ) * U_binding ! Qr end if else if ( Vimp > Verosion . and . Vimp < Vsupercat ) then if ( m2 < 0.001_DP * m1 ) then regime = COLLRESOLVE_REGIME_MERGE !cratering regime\" Mlr = Mtot Mslr = 0.0_DP Qloss = 0.0_DP else Mslr = Mtot * ( 3.0_DP - BETA ) * ( 1.0_DP - N1 * Mlr / Mtot ) / ( N2 * BETA ) ! LS12 eq (37) regime = COLLRESOLVE_REGIME_DISRUPTION !disruption Qloss = ( c_star + 1.0_DP ) * U_binding ! Qr - Qr_erosion end if else if ( Vimp > Vsupercat ) then Mlr = Mtot * 0.1_DP * ( Qr / ( Qrd_pstar * SUPERCAT_QRATIO )) ** ( - 1.5_DP ) !LS12 eq (44) Mslr = Mtot * ( 3.0_DP - BETA ) * ( 1.0_DP - N1 * Mlr / Mtot ) / ( N2 * BETA ) !LS12 eq (37) regime = COLLRESOLVE_REGIME_SUPERCATASTROPHIC ! supercatastrophic Qloss = ( c_star + 1.0_DP ) * U_binding ! Qr - Qr_supercat else write ( * , * ) \"Error no regime found in symba_regime\" end if end if Mresidual = Mtot - Mlr - Mslr if ( Mresidual < 0.0_DP ) then ! prevents final masses from going negative Mlr = Mlr + Mresidual end if return ! Internal functions contains function calc_Qrd_pstar ( Mtarg , Mp , alpha , c_star ) result ( Qrd_pstar ) !! author: Jennifer L.L. Pouplin and Carlisle A. Wishard !! !! Calculates the corrected Q* for oblique impacts. See Eq. (15) of LS12. !!       Reference: !!       Leinhardt, Z.M., Stewart, S.T., 2012. Collisions between Gravity-dominated Bodies. I. Outcome Regimes and Scaling !!          Laws 745, 79. https://doi.org/10.1088/0004-637X/745/1/79 !! implicit none ! Arguments real ( DP ), intent ( in ) :: Mtarg , Mp , alpha , c_star ! Result real ( DP ) :: Qrd_pstar ! Internals real ( DP ) :: Qrd_star1 , mu_alpha , mu , Qrd_star ! calc mu, mu_alpha mu = ( Mtarg * Mp ) / ( Mtarg + Mp ) ! [kg] mu_alpha = ( Mtarg * alpha * Mp ) / ( Mtarg + alpha * Mp ) ! [kg] ! calc Qrd_star1 Qrd_star1 = ( c_star * 4 * PI * DENSITY1 * GC * Rp ** 2 ) / 5.0_DP ! calc Qrd_star Qrd_star = Qrd_star1 * ((( Mp / Mtarg + 1.0_DP ) ** 2 ) / ( 4 * Mp / Mtarg )) ** ( 2.0_DP / ( 3.0_DP * MU_BAR ) - 1.0_DP ) !(eq 23) ! calc Qrd_pstar, v_pstar Qrd_pstar = (( mu / mu_alpha ) ** ( 2.0_DP - 3.0_DP * MU_BAR / 2.0_DP )) * Qrd_star ! (eq 15) return end function calc_Qrd_pstar function calc_Qrd_rev ( Mp , Mtarg , Mint , den1 , den2 , Vimp , c_star ) result ( Mslr ) !! author: Jennifer L.L. Pouplin and Carlisle A. Wishard !! !! Calculates mass of second largest fragment. !! implicit none ! Arguments real ( DP ), intent ( in ) :: Mp , Mtarg , Mint , den1 , den2 , Vimp , c_star ! Result real ( DP ) :: Mslr ! Internals real ( DP ) :: mtot_rev , mu_rev , gamma_rev , Qrd_star1 , Qrd_star , mu_alpha_rev real ( DP ) :: Qrd_pstar , Rc1 , Qr_rev , Qrd_pstar_rev , Qr_supercat_rev ! calc Mslr, Rc1, mu, gammalr mtot_rev = Mint + Mp Rc1 = ( 3 * ( Mint / den1 + Mp / den2 ) / ( 4 * PI )) ** ( 1.0_DP / 3.0_DP ) ! [m] Mustill et al 2018 mu_rev = ( Mint * Mp ) / mtot_rev ! [kg] eq 49 LS12 mu_alpha_rev = ( Mtarg * alpha * Mp ) / ( Mtarg + alpha * Mp ) gamma_rev = Mint / Mp ! eq 50 LS12 !calc Qr_rev Qr_rev = mu_rev * ( Vimp ** 2 ) / ( 2 * mtot_rev ) ! calc Qrd_star1, v_star1 Qrd_star1 = ( c_star * 4 * PI * mtot_rev * GC ) / Rc1 / 5.0_DP ! calc Qrd_pstar_rev Qrd_star = Qrd_star1 * ((( gamma_rev + 1.0_DP ) ** 2 ) / ( 4 * gamma_rev )) ** ( 2.0_DP / ( 3.0_DP * MU_BAR ) - 1.0_DP ) !(eq 52) Qrd_pstar = Qrd_star * (( mu_rev / mu_alpha_rev ) ** ( 2.0_DP - 3.0_DP * MU_BAR / 2.0_DP )) Qrd_pstar_rev = Qrd_pstar * ( Vhill / Vescp ) ** CRUFU !Rufu and Aharaonson eq (3) !calc Qr_supercat_rev Qr_supercat_rev = 1.8_DP * Qrd_pstar_rev if ( Qr_rev > Qr_supercat_rev ) then Mslr = mtot_rev * ( 0.1_DP * (( Qr_rev / ( Qrd_pstar_rev * 1.8_DP )) ** ( - 1.5_DP ))) !eq (44) else if ( Qr_rev < Qrd_pstar_rev ) then Mslr = Mp else Mslr = ( 1.0_DP - Qr_rev / Qrd_pstar_rev / 2.0_DP ) * ( mtot_rev ) ! [kg] #(eq 5) end if if ( Mslr > Mp ) Mslr = Mp !check conservation of mass return end function calc_Qrd_rev function calc_b ( proj_pos , proj_vel , targ_pos , targ_vel ) result ( sintheta ) !! author: Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton !! !! Calculates the impact factor b = sin(theta), where theta is the angle between the relative velocity !! and distance vectors of the target and projectile bodies. See Fig. 2 of Leinhardt and Stewart (2012) !! implicit none !! Arguments real ( DP ), dimension (:), intent ( in ) :: proj_pos , proj_vel , targ_pos , targ_vel !! Result real ( DP ) :: sintheta !! Internals real ( DP ), dimension ( NDIM ) :: imp_vel , distance , x_cross_v imp_vel (:) = proj_vel (:) - targ_vel (:) distance (:) = proj_pos (:) - targ_pos (:) x_cross_v (:) = distance (:) . cross . imp_vel (:) sintheta = norm2 ( x_cross_v (:)) / norm2 ( distance (:)) / norm2 ( imp_vel (:)) return end function calc_b function calc_c_star ( Rc1 ) result ( c_star ) !! author: David A. Minton !! !! Calculates c_star as a function of impact equivalent radius. It inteRpolates between 5 for ~1 km sized bodies to !! 1.8 for ~10000 km sized bodies. See LS12 Fig. 4 for details. !! implicit none !! Arguments real ( DP ), intent ( in ) :: Rc1 !! Result real ( DP ) :: c_star !! Internals real ( DP ), parameter :: loR = 1.0e3_DP ! Lower bound of inteRpolation size (m) real ( DP ), parameter :: hiR = 1.0e7_DP ! Upper bound of inteRpolation size (m) real ( DP ), parameter :: loval = 5.0_DP ! Value of C* at lower bound real ( DP ), parameter :: hival = 1.9_DP ! Value of C* at upper bound if ( Rc1 < loR ) then c_star = loval else if ( Rc1 < hiR ) then c_star = loval + ( hival - loval ) * log ( Rc1 / loR ) / log ( hiR / loR ) else c_star = hival end if return end function calc_c_star end subroutine fragmentation_regime end submodule s_fragmentation","tags":"","loc":"sourcefile/fragmentation.f90.html"},{"title":"rmvs_discard.f90 – swiftest","text":"This file depends on sourcefile~~rmvs_discard.f90~~EfferentGraph sourcefile~rmvs_discard.f90 rmvs_discard.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~rmvs_discard.f90->sourcefile~swiftest.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~rmvs_discard.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_rmvs_discard Source Code rmvs_discard.f90 Source Code submodule ( rmvs_classes ) s_rmvs_discard use swiftest contains module subroutine rmvs_discard_tp ( self , system , param ) !! author: David A. Minton !! !! Check to see if test particles should be discarded based on pericenter passage distances with respect to planets encountered !! !! Adapted from Hal Levison's Swift routine discard_pl.f !! Adapted from Hal Levison's Swift routine rmvs_discard_pl.f90 implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody , pl => system % pl , t => param % t ) do i = 1 , ntp associate ( iplperP => tp % plperP ( i )) if (( tp % status ( i ) == ACTIVE ) . and . ( tp % lperi ( i ))) then if (( tp % peri ( i ) < pl % radius ( iplperP ))) then tp % status ( i ) = DISCARDED_PLQ write ( * , * ) \"Particle \" , tp % id ( i ), \" q with respect to Planet \" , pl % id ( iplperP ), \" is too small at t = \" , t tp % ldiscard ( i ) = . true . tp % lmask ( i ) = . false . end if end if end associate end do ! Call the base method that this overrides call discard_tp ( tp , system , param ) end associate end subroutine rmvs_discard_tp end submodule s_rmvs_discard","tags":"","loc":"sourcefile/rmvs_discard.f90.html"},{"title":"rmvs_util.f90 – swiftest","text":"This file depends on sourcefile~~rmvs_util.f90~~EfferentGraph sourcefile~rmvs_util.f90 rmvs_util.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~rmvs_util.f90->sourcefile~swiftest.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~rmvs_util.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_rmvs_util Source Code rmvs_util.f90 Source Code submodule ( rmvs_classes ) s_rmvs_util use swiftest contains module subroutine rmvs_util_append_pl ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from one massive body object to another. !! This method will automatically resize the destination body if it is too small implicit none !! Arguments class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to select type ( source ) class is ( rmvs_pl ) associate ( nold => self % nbody , nsrc => source % nbody ) call util_append ( self % nenc , source % nenc , nold , nsrc , lsource_mask ) call util_append ( self % tpenc1P , source % tpenc1P , nold , nsrc , lsource_mask ) call util_append ( self % plind , source % plind , nold , nsrc , lsource_mask ) ! The following are not implemented as RMVS doesn't make use of fill operations on pl type ! So they are here as a placeholder in case someone wants to extend the RMVS class for some reason !call util_append(self%outer, source%outer, nold, nsrc, lsource_mask) !call util_append(self%inner, source%inner, nold, nsrc, lsource_mask) !call util_append(self%planetocentric, source%planetocentric, nold, nsrc, lsource_mask) call whm_util_append_pl ( self , source , lsource_mask ) end associate class default write ( * , * ) \"Invalid object passed to the append method. Source must be of class rmvs_pl or its descendents!\" call util_exit ( FAILURE ) end select return end subroutine rmvs_util_append_pl module subroutine rmvs_util_append_tp ( self , source , lsource_mask ) !! author: David A. Minton !! !! Append components from test particle object to another. !! This method will automatically resize the destination body if it is too small implicit none !! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( swiftest_body ), intent ( in ) :: source !! Source object to append logical , dimension (:), intent ( in ) :: lsource_mask !! Logical mask indicating which elements to append to select type ( source ) class is ( rmvs_tp ) associate ( nold => self % nbody , nsrc => source % nbody ) call util_append ( self % lperi , source % lperi , nold , nsrc , lsource_mask ) call util_append ( self % plperP , source % plperP , nold , nsrc , lsource_mask ) call util_append ( self % plencP , source % plencP , nold , nsrc , lsource_mask ) call util_append_tp ( self , source , lsource_mask ) ! Note: whm_tp does not have its own append method, so we skip back to the base class end associate class default write ( * , * ) \"Invalid object passed to the append method. Source must be of class rmvs_tp or its descendents!\" call util_exit ( FAILURE ) end select return end subroutine rmvs_util_append_tp module subroutine rmvs_util_fill_pl ( self , inserts , lfill_list ) !! author: David A. Minton !! !! Insert new RMVS massive body structure into an old one. !! This is the inverse of a fill operation. !! implicit none ! Arguments class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object class ( swiftest_body ), intent ( in ) :: inserts !! Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps ! Internals integer ( I4B ) :: i associate ( keeps => self ) select type ( inserts ) class is ( rmvs_pl ) call util_fill ( keeps % nenc , inserts % nenc , lfill_list ) call util_fill ( keeps % tpenc1P , inserts % tpenc1P , lfill_list ) call util_fill ( keeps % plind , inserts % plind , lfill_list ) ! The following are not implemented as RMVS doesn't make use of fill operations on pl type ! So they are here as a placeholder in case someone wants to extend the RMVS class for some reason !call util_fill(keeps%outer, inserts%outer, lfill_list) !call util_fill(keeps%inner, inserts%inner, lfill_list) !call util_fill(keeps%planetocentric, inserts%planetocentric, lfill_list) call whm_util_fill_pl ( keeps , inserts , lfill_list ) class default write ( * , * ) \"Invalid object passed to the fill method. Source must be of class rmvs_pl or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine rmvs_util_fill_pl module subroutine rmvs_util_fill_tp ( self , inserts , lfill_list ) !! author: David A. Minton !! !! Insert new RMVS test particle structure into an old one. !! This is the inverse of a fill operation. !! implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( swiftest_body ), intent ( in ) :: inserts !! Inserted object logical , dimension (:), intent ( in ) :: lfill_list !! Logical array of bodies to merge into the keeps associate ( keeps => self ) select type ( inserts ) class is ( rmvs_tp ) call util_fill ( keeps % lperi , inserts % lperi , lfill_list ) call util_fill ( keeps % plperP , inserts % plperP , lfill_list ) call util_fill ( keeps % plencP , inserts % plencP , lfill_list ) call util_fill_tp ( keeps , inserts , lfill_list ) ! Note: whm_tp does not have its own fill method, so we skip back to the base class class default write ( * , * ) \"Invalid object passed to the fill method. Source must be of class rmvs_tp or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine rmvs_util_fill_tp module subroutine rmvs_util_resize_pl ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a massive body object against the requested size and resizes it if it is too small. implicit none ! Arguments class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object integer ( I4B ), intent ( in ) :: nnew !! New size neded call util_resize ( self % nenc , nnew ) call util_resize ( self % tpenc1P , nnew ) call util_resize ( self % plind , nnew ) ! The following are not implemented as RMVS doesn't make use of resize operations on pl type ! So they are here as a placeholder in case someone wants to extend the RMVS class for some reason !call util_resize(self%outer, nnew) !call util_resize(self%inner, nnew) !call util_resize(self%planetocentric, nnew) call whm_util_resize_pl ( self , nnew ) return end subroutine rmvs_util_resize_pl module subroutine rmvs_util_resize_tp ( self , nnew ) !! author: David A. Minton !! !! Checks the current size of a test particle object against the requested size and resizes it if it is too small. implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object integer ( I4B ), intent ( in ) :: nnew !! New size neded call util_resize ( self % lperi , nnew ) call util_resize ( self % plperP , nnew ) call util_resize ( self % plencP , nnew ) call util_resize ( self % xheliocentric , nnew ) call util_resize_tp ( self , nnew ) return end subroutine rmvs_util_resize_tp module subroutine rmvs_util_sort_pl ( self , sortby , ascending ) !! author: David A. Minton !! !! Sort a RMVS massive body object in-place. !! sortby is a string indicating which array component to sort. implicit none ! Arguments class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order ! Internals integer ( I4B ), dimension ( self % nbody ) :: ind integer ( I4B ) :: direction if ( ascending ) then direction = 1 else direction = - 1 end if associate ( pl => self , npl => self % nbody ) select case ( sortby ) case ( \"nenc\" ) call util_sort ( direction * pl % nenc ( 1 : npl ), ind ( 1 : npl )) case ( \"tpenc1P\" ) call util_sort ( direction * pl % tpenc1P ( 1 : npl ), ind ( 1 : npl )) case ( \"plind\" ) call util_sort ( direction * pl % plind ( 1 : npl ), ind ( 1 : npl )) case ( \"outer\" , \"inner\" , \"planetocentric\" , \"lplanetocentric\" ) write ( * , * ) 'Cannot sort by ' // trim ( adjustl ( sortby )) // '. Component not sortable!' case default ! Look for components in the parent class call whm_util_sort_pl ( pl , sortby , ascending ) return end select call pl % rearrange ( ind ) end associate return end subroutine rmvs_util_sort_pl module subroutine rmvs_util_sort_tp ( self , sortby , ascending ) !! author: David A. Minton !! !! Sort a RMVS test particle object in-place. !! sortby is a string indicating which array component to sort. implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object character ( * ), intent ( in ) :: sortby !! Sorting attribute logical , intent ( in ) :: ascending !! Logical flag indicating whether or not the sorting should be in ascending or descending order ! Internals integer ( I4B ), dimension ( self % nbody ) :: ind integer ( I4B ) :: direction if ( ascending ) then direction = 1 else direction = - 1 end if associate ( tp => self , ntp => self % nbody ) select case ( sortby ) case ( \"plperP\" ) call util_sort ( direction * tp % plperP ( 1 : ntp ), ind ( 1 : ntp )) case ( \"plencP\" ) call util_sort ( direction * tp % plencP ( 1 : ntp ), ind ( 1 : ntp )) case ( \"lperi\" , \"cb_heliocentric\" , \"xheliocentric\" , \"index\" , \"ipleP\" , \"lplanetocentric\" ) write ( * , * ) 'Cannot sort by ' // trim ( adjustl ( sortby )) // '. Component not sortable!' case default ! Look for components in the parent class (*NOTE whm_tp does not need its own sort method, so we go straight to the swiftest_tp method) call util_sort_tp ( tp , sortby , ascending ) return end select call tp % rearrange ( ind ) end associate return end subroutine rmvs_util_sort_tp module subroutine rmvs_util_sort_rearrange_pl ( self , ind ) !! author: David A. Minton !! !! Rearrange RMVS massive body structure in-place from an index list. !! This is a helper utility used to make polymorphic sorting work on Swiftest structures. implicit none ! Arguments class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) ! Internals class ( rmvs_pl ), allocatable :: pl_sorted !! Temporary holder for sorted body integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( pl => self , npl => self % nbody ) call util_sort_rearrange_pl ( pl , ind ) allocate ( pl_sorted , source = self ) if ( allocated ( pl % nenc )) pl % nenc ( 1 : npl ) = pl_sorted % nenc ( ind ( 1 : npl )) if ( allocated ( pl % tpenc1P )) pl % tpenc1P ( 1 : npl ) = pl_sorted % tpenc1P ( ind ( 1 : npl )) if ( allocated ( pl % plind )) pl % plind ( 1 : npl ) = pl_sorted % plind ( ind ( 1 : npl )) deallocate ( pl_sorted ) end associate return end subroutine rmvs_util_sort_rearrange_pl module subroutine rmvs_util_sort_rearrange_tp ( self , ind ) !! author: David A. Minton !! !! Rearrange RMVS test particle object in-place from an index list. !! This is a helper utility used to make polymorphic sorting work on Swiftest structures. implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object integer ( I4B ), dimension (:), intent ( in ) :: ind !! Index array used to restructure the body (should contain all 1:n index values in the desired order) ! Internals class ( rmvs_tp ), allocatable :: tp_sorted !! Temporary holder for sorted body if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody ) call util_sort_rearrange_tp ( tp , ind ) allocate ( tp_sorted , source = self ) if ( allocated ( tp % lperi )) tp % lperi ( 1 : ntp ) = tp_sorted % lperi ( ind ( 1 : ntp )) if ( allocated ( tp % plperP )) tp % plperP ( 1 : ntp ) = tp_sorted % plperP ( ind ( 1 : ntp )) if ( allocated ( tp % plencP )) tp % plencP ( 1 : ntp ) = tp_sorted % plencP ( ind ( 1 : ntp )) if ( allocated ( tp % xheliocentric )) tp % xheliocentric (:, 1 : ntp ) = tp_sorted % xheliocentric (:, ind ( 1 : ntp )) deallocate ( tp_sorted ) end associate return end subroutine rmvs_util_sort_rearrange_tp module subroutine rmvs_util_spill_pl ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) RMVS test particle structure from active list to discard list !! !! Adapted from David E. Kaufmann's Swifter routine discard_discard_spill.f90 implicit none ! Arguments class ( rmvs_pl ), intent ( inout ) :: self !! RMVS massive body body object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not ! Internals integer ( I4B ) :: i associate ( keeps => self ) select type ( discards ) class is ( rmvs_pl ) call util_spill ( keeps % nenc , discards % nenc , lspill_list , ldestructive ) call util_spill ( keeps % tpenc1P , discards % tpenc1P , lspill_list , ldestructive ) call util_spill ( keeps % plind , discards % plind , lspill_list , ldestructive ) call whm_util_spill_pl ( keeps , discards , lspill_list , ldestructive ) class default write ( * , * ) \"Invalid object passed to the spill method. Source must be of class rmvs_pl or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine rmvs_util_spill_pl module subroutine rmvs_util_spill_tp ( self , discards , lspill_list , ldestructive ) !! author: David A. Minton !! !! Move spilled (discarded) RMVS test particle structure from active list to discard list !! !! Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( swiftest_body ), intent ( inout ) :: discards !! Discarded object logical , dimension (:), intent ( in ) :: lspill_list !! Logical array of bodies to spill into the discards logical , intent ( in ) :: ldestructive !! Logical flag indicating whether or not this operation should alter the keeps array or not ! Internals integer ( I4B ) :: i associate ( keeps => self ) select type ( discards ) class is ( rmvs_tp ) call util_spill ( keeps % lperi , discards % lperi , lspill_list , ldestructive ) call util_spill ( keeps % plperP , discards % plperP , lspill_list , ldestructive ) call util_spill ( keeps % plencP , discards % plencP , lspill_list , ldestructive ) call util_spill_tp ( keeps , discards , lspill_list , ldestructive ) class default write ( * , * ) \"Invalid object passed to the spill method. Source must be of class rmvs_tp or its descendents!\" call util_exit ( FAILURE ) end select end associate return end subroutine rmvs_util_spill_tp end submodule s_rmvs_util","tags":"","loc":"sourcefile/rmvs_util.f90.html"},{"title":"rmvs_kick.f90 – swiftest","text":"This file depends on sourcefile~~rmvs_kick.f90~~EfferentGraph sourcefile~rmvs_kick.f90 rmvs_kick.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~rmvs_kick.f90->sourcefile~swiftest.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~rmvs_kick.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_rmvs_kick Source Code rmvs_kick.f90 Source Code submodule ( rmvs_classes ) s_rmvs_kick use swiftest contains module subroutine rmvs_kick_getacch_tp ( self , system , param , t , lbeg ) !! author: David A. Minton !! !! Compute the oblateness acceleration in the inner encounter region with planets !! !! Performs a similar task as David E. Kaufmann's Swifter routine rmvs_kick_getacch_tp.f90, but !! uses object polymorphism, and so is not directly adapted. implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle data structure class ( swiftest_nbody_system ), intent ( inout ) :: system !! Swiftest central body particle data structuree class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current time logical , intent ( in ) :: lbeg !! Logical flag that determines whether or not this is the beginning or end of the step ! Internals class ( swiftest_parameters ), allocatable :: param_planetocen real ( DP ), dimension (:, :), allocatable :: xh_original real ( DP ) :: GMcb_original integer ( I4B ) :: i if ( self % nbody == 0 ) return associate ( tp => self , ntp => self % nbody , ipleP => self % ipleP , inner_index => self % index ) select type ( system ) class is ( rmvs_nbody_system ) if ( system % lplanetocentric ) then ! This is a close encounter step, so any accelerations requiring heliocentric position values ! must be handeled outside the normal WHM method call select type ( pl => system % pl ) class is ( rmvs_pl ) select type ( cb => system % cb ) class is ( rmvs_cb ) associate ( xpc => pl % xh , xpct => self % xh , apct => self % ah , system_planetocen => system ) system_planetocen % lbeg = lbeg ! Save the original heliocentric position for later allocate ( xh_original , source = tp % xh ) ! Temporarily turn off the heliocentric-dependent acceleration terms during an inner encounter using a copy of the parameter list with all of the heliocentric-specific acceleration terms turned off allocate ( param_planetocen , source = param ) param_planetocen % loblatecb = . false . param_planetocen % lextra_force = . false . param_planetocen % lgr = . false . ! Compute the planetocentric values of acceleration call whm_kick_getacch_tp ( tp , system_planetocen , param_planetocen , t , lbeg ) ! Now compute any heliocentric values of acceleration if ( tp % lfirst ) then do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % xheliocentric (:, i ) = tp % xh (:, i ) + cb % inner ( inner_index - 1 )% x (:, 1 ) end do else do concurrent ( i = 1 : ntp , tp % lmask ( i )) tp % xheliocentric (:, i ) = tp % xh (:, i ) + cb % inner ( inner_index )% x (:, 1 ) end do end if ! Swap the planetocentric and heliocentric position vectors and central body masses tp % xh (:,:) = tp % xheliocentric (:,:) GMcb_original = cb % Gmass cb % Gmass = tp % cb_heliocentric % Gmass ! If the heliocentric-specifc acceleration terms are requested, compute those now if ( param % loblatecb ) call tp % accel_obl ( system_planetocen ) if ( param % lextra_force ) call tp % accel_user ( system_planetocen , param , t , lbeg ) if ( param % lgr ) call tp % accel_gr ( param ) ! Put everything back the way we found it tp % xh (:,:) = xh_original (:,:) cb % Gmass = GMcb_original end associate end select end select else ! Not a close encounter, so just proceded with the standard WHM method call whm_kick_getacch_tp ( tp , system , param , t , lbeg ) end if end select end associate return end subroutine rmvs_kick_getacch_tp end submodule s_rmvs_kick","tags":"","loc":"sourcefile/rmvs_kick.f90.html"},{"title":"rmvs_setup.f90 – swiftest","text":"This file depends on sourcefile~~rmvs_setup.f90~~EfferentGraph sourcefile~rmvs_setup.f90 rmvs_setup.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~rmvs_setup.f90->sourcefile~swiftest.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~rmvs_setup.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_rmvs_setup Source Code rmvs_setup.f90 Source Code submodule ( rmvs_classes ) s_rmvs_setup use swiftest contains module subroutine rmvs_setup_pl ( self , n , param ) !! author: David A. Minton !! !! Allocate RMVS test particle structure !! !! Equivalent in functionality to David E. Kaufmann's Swifter routine rmvs_setup.f90 implicit none ! Arguments class ( rmvs_pl ), intent ( inout ) :: self !! RMVS test particle object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter ! Internals integer ( I4B ) :: i , j !> Call allocation method for parent class associate ( pl => self ) call whm_setup_pl ( pl , n , param ) if ( n <= 0 ) return allocate ( pl % outer ( 0 : NTENC )) allocate ( pl % inner ( 0 : NTPHENC )) if (. not . pl % lplanetocentric ) then allocate ( pl % nenc ( n )) pl % nenc (:) = 0 ! Set up inner and outer planet interpolation vector storage containers do i = 0 , NTENC allocate ( pl % outer ( i )% x ( NDIM , n )) allocate ( pl % outer ( i )% v ( NDIM , n )) pl % outer ( i )% x (:,:) = 0.0_DP pl % outer ( i )% v (:,:) = 0.0_DP end do do i = 0 , NTPHENC allocate ( pl % inner ( i )% x ( NDIM , n )) allocate ( pl % inner ( i )% v ( NDIM , n )) pl % inner ( i )% x (:,:) = 0.0_DP pl % inner ( i )% v (:,:) = 0.0_DP end do if ( param % loblatecb ) then do i = 0 , NTPHENC allocate ( pl % inner ( i )% aobl ( NDIM , n )) pl % inner ( i )% aobl (:,:) = 0.0_DP end do end if if ( param % ltides ) then do i = 0 , NTPHENC allocate ( pl % inner ( i )% atide ( NDIM , n )) pl % inner ( i )% atide (:,:) = 0.0_DP end do end if end if end associate return end subroutine rmvs_setup_pl module subroutine rmvs_setup_initialize_system ( self , param ) !! author: David A. Minton !! !! Initialize an RMVS nbody system from files and sets up the planetocentric structures. !! !! We currently rearrange the pl order to keep it consistent with the way Swifter does it !! In Swifter, the central body occupies the first position in the pl list, and during !! encounters, the encountering planet is skipped in loops. In Swiftest, we instantiate an !! RMVS nbody system object attached to each pl to store planetocentric versions of the system !! to use during close encounters. implicit none ! Arguments class ( rmvs_nbody_system ), intent ( inout ) :: self !! RMVS system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i , j ! Call parent method call whm_setup_initialize_system ( self , param ) ! Set up the pl-tp planetocentric encounter structures for pl and cb. The planetocentric tp structures are ! generated as necessary during close encounter steps. select type ( pl => self % pl ) class is ( rmvs_pl ) select type ( cb => self % cb ) class is ( rmvs_cb ) select type ( tp => self % tp ) class is ( rmvs_tp ) tp % cb_heliocentric = cb pl % lplanetocentric = . false . tp % lplanetocentric = . false . cb % lplanetocentric = . false . associate ( npl => pl % nbody ) allocate ( pl % planetocentric ( npl )) pl % planetocentric (:)% lplanetocentric = . true . do i = 1 , npl allocate ( pl % planetocentric ( i )% cb , source = cb ) allocate ( rmvs_pl :: pl % planetocentric ( i )% pl ) select type ( cbenci => pl % planetocentric ( i )% cb ) class is ( rmvs_cb ) select type ( plenci => pl % planetocentric ( i )% pl ) class is ( rmvs_pl ) cbenci % lplanetocentric = . true . plenci % lplanetocentric = . true . call plenci % setup ( npl , param ) plenci % status (:) = ACTIVE plenci % lmask (:) = . true . ! plind stores the heliocentric index value of a planetocentric planet ! e.g. Consider an encounter with planet 3. ! Then the following will be the values of plind: ! pl%planetocentric(3)%pl%plind(1) = 0 (central body - never used) ! pl%planetocentric(3)%pl%plind(2) = 1 ! pl%planetocentric(3)%pl%plind(3) = 2 ! pl%planetocentric(3)%pl%plind(4) = 4 ! pl%planetocentric(3)%pl%plind(5) = 5 ! etc. allocate ( plenci % plind ( npl )) plenci % plind ( 1 : npl ) = [( j , j = 1 , npl )] plenci % plind ( 2 : npl ) = pack ( plenci % plind ( 1 : npl ), plenci % plind ( 1 : npl ) /= i ) plenci % plind ( 1 ) = 0 plenci % Gmass ( 1 ) = cb % Gmass plenci % Gmass ( 2 : npl ) = pl % Gmass ( plenci % plind ( 2 : npl )) cbenci % Gmass = pl % Gmass ( i ) end select end select end do end associate end select end select end select return end subroutine rmvs_setup_initialize_system module subroutine rmvs_setup_tp ( self , n , param ) !! author: David A. Minton !! !! Allocate WHM test particle structure !! !! Equivalent in functionality to David E. Kaufmann's Swifter routine whm_setup.f90 implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object integer ( I4B ), intent ( in ) :: n !! Number of particles to allocate space for class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameter !> Call allocation method for parent class. In this case, whm does not have its own setup method, so we use the base method for swiftest_tp call setup_tp ( self , n , param ) if ( n <= 0 ) return if ( allocated ( self % lperi )) deallocate ( self % lperi ) if ( allocated ( self % plperP )) deallocate ( self % plperP ) if ( allocated ( self % plencP )) deallocate ( self % plencP ) allocate ( self % lperi ( n )) allocate ( self % plperP ( n )) allocate ( self % plencP ( n )) if ( self % lplanetocentric ) then if ( allocated ( self % xheliocentric )) deallocate ( self % xheliocentric ) allocate ( self % xheliocentric ( NDIM , n )) end if self % lperi (:) = . false . return end subroutine rmvs_setup_tp end submodule s_rmvs_setup","tags":"","loc":"sourcefile/rmvs_setup.f90.html"},{"title":"rmvs_step.f90 – swiftest","text":"This file depends on sourcefile~~rmvs_step.f90~~EfferentGraph sourcefile~rmvs_step.f90 rmvs_step.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~rmvs_step.f90->sourcefile~swiftest.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~rmvs_step.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_rmvs_step Source Code rmvs_step.f90 Source Code submodule ( rmvs_classes ) s_rmvs_step use swiftest contains module subroutine rmvs_step_system ( self , param , t , dt ) !! author: David A. Minton !! !! Step massive bodies and and active test particles ahead in heliocentric coordinates !! !! Adapted from Hal Levison's Swift routine rmvs3_step.f !! Adapted from David E. Kaufmann's Swifter routine rmvs_step.f90 implicit none ! Arguments class ( rmvs_nbody_system ), intent ( inout ) :: self !! RMVS nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Current stepsiz ! Internals logical :: lencounter , lfirstpl , lfirsttp real ( DP ) :: rts real ( DP ), dimension (:,:), allocatable :: xbeg , xend , vbeg integer ( I4B ) :: i select type ( cb => self % cb ) class is ( rmvs_cb ) select type ( pl => self % pl ) class is ( rmvs_pl ) select type ( tp => self % tp ) class is ( rmvs_tp ) associate ( system => self , ntp => tp % nbody , npl => pl % nbody ) allocate ( xbeg , source = pl % xh ) allocate ( vbeg , source = pl % vh ) call pl % set_beg_end ( xbeg = xbeg , vbeg = vbeg ) ! ****** Check for close encounters ***** ! system % rts = RHSCALE lencounter = tp % encounter_check ( system , dt ) if ( lencounter ) then lfirstpl = pl % lfirst pl % outer ( 0 )% x (:,:) = xbeg (:,:) pl % outer ( 0 )% v (:,:) = vbeg (:,:) call pl % step ( system , param , t , dt ) pl % outer ( NTENC )% x (:,:) = pl % xh (:,:) pl % outer ( NTENC )% v (:,:) = pl % vh (:,:) call rmvs_interp_out ( cb , pl , dt ) call rmvs_step_out ( cb , pl , tp , system , param , t , dt ) tp % lmask ( 1 : ntp ) = . not . tp % lmask ( 1 : ntp ) call pl % set_beg_end ( xbeg = xbeg , xend = xend ) tp % lfirst = . true . call tp % step ( system , param , t , dt ) tp % lmask ( 1 : ntp ) = . true . pl % lfirst = lfirstpl tp % lfirst = . true . if ( param % ltides ) call system % step_spin ( param , t , dt ) else call whm_step_system ( system , param , t , dt ) end if end associate end select end select end select return end subroutine rmvs_step_system subroutine rmvs_interp_out ( cb , pl , dt ) !! author: David A. Minton !! !! Interpolate planet positions between two Keplerian orbits in outer encounter region !! !! Adapted from David E. Kaufmann's Swifter routine rmvs_interp_out.f90 !! !! Adapted from Hal Levison's Swift routine rmvs3_interp.f implicit none ! Arguments class ( rmvs_cb ), intent ( inout ) :: cb !! RMVS central body object class ( rmvs_pl ), intent ( inout ) :: pl !! RMVS massive body object real ( DP ), intent ( in ) :: dt !! Step size ! Internals integer ( I4B ) :: i , outer_index real ( DP ) :: frac , dntenc real ( DP ), dimension (:,:), allocatable :: xtmp , vtmp real ( DP ), dimension (:), allocatable :: GMcb , dto integer ( I4B ), dimension (:), allocatable :: iflag dntenc = real ( NTENC , kind = DP ) associate ( npl => pl % nbody ) allocate ( xtmp , mold = pl % xh ) allocate ( vtmp , mold = pl % vh ) allocate ( GMcb ( npl )) allocate ( dto ( npl )) allocate ( iflag ( npl )) dto (:) = dt / dntenc GMcb (:) = cb % Gmass xtmp (:,:) = pl % outer ( 0 )% x (:, :) vtmp (:,:) = pl % outer ( 0 )% v (:, :) do outer_index = 1 , NTENC - 1 call drift_one ( GMcb ( 1 : npl ), xtmp ( 1 , 1 : npl ), xtmp ( 2 , 1 : npl ), xtmp ( 3 , 1 : npl ), & vtmp ( 1 , 1 : npl ), vtmp ( 2 , 1 : npl ), vtmp ( 3 , 1 : npl ), & dto ( 1 : npl ), iflag ( 1 : npl )) if ( any ( iflag ( 1 : npl ) /= 0 )) then do i = 1 , npl if ( iflag ( i ) /= 0 ) then write ( * , * ) \" Planet \" , pl % id ( i ), \" is lost!!!!!!!!!!\" write ( * , * ) GMcb ( i ), dto ( i ) write ( * , * ) xtmp (:, i ) write ( * , * ) vtmp (:, i ) write ( * , * ) \" STOPPING \" call util_exit ( FAILURE ) end if end do end if frac = 1.0_DP - outer_index / dntenc pl % outer ( outer_index )% x (:, :) = frac * xtmp (:,:) pl % outer ( outer_index )% v (:, :) = frac * vtmp (:,:) end do xtmp (:,:) = pl % outer ( NTENC )% x (:, :) vtmp (:,:) = pl % outer ( NTENC )% v (:, :) do outer_index = NTENC - 1 , 1 , - 1 call drift_one ( GMcb ( 1 : npl ), xtmp ( 1 , 1 : npl ), xtmp ( 2 , 1 : npl ), xtmp ( 3 , 1 : npl ), & vtmp ( 1 , 1 : npl ), vtmp ( 2 , 1 : npl ), vtmp ( 3 , 1 : npl ), & - dto ( 1 : npl ), iflag ( 1 : npl )) if ( any ( iflag ( 1 : npl ) /= 0 )) then do i = 1 , npl if ( iflag ( i ) /= 0 ) then write ( * , * ) \" Planet \" , pl % id ( i ), \" is lost!!!!!!!!!!\" write ( * , * ) GMcb ( i ), - dto ( i ) write ( * , * ) xtmp (:, i ) write ( * , * ) vtmp (:, i ) write ( * , * ) \" STOPPING \" call util_exit ( FAILURE ) end if end do end if frac = outer_index / dntenc pl % outer ( outer_index )% x (:, :) = pl % outer ( outer_index )% x (:, :) + frac * xtmp (:,:) pl % outer ( outer_index )% v (:, :) = pl % outer ( outer_index )% v (:, :) + frac * vtmp (:,:) end do end associate return end subroutine rmvs_interp_out subroutine rmvs_step_out ( cb , pl , tp , system , param , t , dt ) !! author: David A. Minton !! !! Step ACTIVE test particles ahead in the outer encounter region, setting up and calling the inner region !!    integration if necessar !! !! Adapted from Hal Levison's Swift routines rmvs3_step_out.f and rmvs3_step_out2.f !! Adapted from David E. Kaufmann's Swifter routines rmvs_step_out.f90 and rmvs_step_out2.f90 implicit none ! Arguments class ( rmvs_cb ), intent ( inout ) :: cb !! RMVS central body object class ( rmvs_pl ), intent ( inout ) :: pl !! RMVS massive body object class ( rmvs_tp ), intent ( inout ) :: tp !! RMVS test particle object class ( rmvs_nbody_system ), intent ( inout ) :: system !! RMVS nbody system object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: t !! Current simulation time real ( DP ), intent ( in ) :: dt !! Current stepsiz ! Internals integer ( I4B ) :: outer_index , j , k real ( DP ) :: dto , outer_time , rts logical :: lencounter , lfirsttp associate ( npl => pl % nbody , ntp => tp % nbody ) dto = dt / NTENC where ( tp % plencP (:) == 0 ) tp % lmask (:) = . false . elsewhere tp % lperi (:) = . false . end where do outer_index = 1 , NTENC outer_time = t + ( outer_index - 1 ) * dto call pl % set_beg_end ( xbeg = pl % outer ( outer_index - 1 )% x (:, :), & vbeg = pl % outer ( outer_index - 1 )% v (:, :), & xend = pl % outer ( outer_index )% x (:, :)) system % rts = RHPSCALE lencounter = tp % encounter_check ( system , dto ) if ( lencounter ) then ! Interpolate planets in inner encounter region call rmvs_interp_in ( cb , pl , system , param , dto , outer_index ) ! Step through the inner region call rmvs_step_in ( cb , pl , tp , param , outer_time , dto ) lfirsttp = tp % lfirst tp % lfirst = . true . call tp % step ( system , param , outer_time , dto ) tp % lfirst = lfirsttp else call tp % step ( system , param , outer_time , dto ) end if do j = 1 , npl if ( pl % nenc ( j ) == 0 ) cycle tp % lfirst = . true . where (( tp % plencP (:) == j ) . and . (. not . tp % lmask (:))) tp % lmask (:) = . true . end where end do end do end associate return end subroutine rmvs_step_out subroutine rmvs_interp_in ( cb , pl , system , param , dt , outer_index ) !! author: David A. Minton !! !! Interpolate planet positions between two Keplerian orbits in inner encounter regio !! !! Adapted from David E. Kaufmann's Swifter routine rmvs_interp_in.f90 !! !! Adapted from Hal Levison's Swift routine rmvs3_interp.f implicit none ! Arguments class ( rmvs_cb ), intent ( inout ) :: cb !! RMVS cenral body object class ( rmvs_pl ), intent ( inout ) :: pl !! RMVS massive body object class ( rmvs_nbody_system ), intent ( inout ) :: system !! RMVS nbody system object class ( swiftest_parameters ), intent ( in ) :: param !! Swiftest parameters file real ( DP ), intent ( in ) :: dt !! Step size integer ( I4B ), intent ( in ) :: outer_index !! Outer substep number within current set ! Internals integer ( I4B ) :: i , inner_index real ( DP ) :: frac , dntphenc real ( DP ), dimension (:,:), allocatable :: xtmp , vtmp , xh_original real ( DP ), dimension (:), allocatable :: GMcb , dti integer ( I4B ), dimension (:), allocatable :: iflag associate ( npl => system % pl % nbody ) dntphenc = real ( NTPHENC , kind = DP ) ! Set the endpoints of the inner region from the outer region values in the current outer step index pl % inner ( 0 )% x (:,:) = pl % outer ( outer_index - 1 )% x (:, :) pl % inner ( 0 )% v (:,:) = pl % outer ( outer_index - 1 )% v (:, :) pl % inner ( NTPHENC )% x (:,:) = pl % outer ( outer_index )% x (:, :) pl % inner ( NTPHENC )% v (:,:) = pl % outer ( outer_index )% v (:, :) allocate ( xtmp , mold = pl % xh ) allocate ( vtmp , mold = pl % vh ) allocate ( GMcb ( npl )) allocate ( dti ( npl )) allocate ( iflag ( npl )) dti (:) = dt / dntphenc GMcb (:) = cb % Gmass xtmp (:, :) = pl % inner ( 0 )% x (:, :) vtmp (:, :) = pl % inner ( 0 )% v (:, :) if (( param % loblatecb ) . or . ( param % ltides )) then allocate ( xh_original , source = pl % xh ) pl % xh (:, :) = xtmp (:, :) ! Temporarily replace heliocentric position with inner substep values to calculate the oblateness terms end if if ( param % loblatecb ) then call pl % accel_obl ( system ) pl % inner ( 0 )% aobl (:, :) = pl % aobl (:, :) ! Save the oblateness acceleration on the planet for this substep end if if ( param % ltides ) then call pl % accel_tides ( system ) pl % inner ( 0 )% atide (:, :) = pl % atide (:, :) ! Save the oblateness acceleration on the planet for this substep end if do inner_index = 1 , NTPHENC - 1 call drift_one ( GMcb ( 1 : npl ), xtmp ( 1 , 1 : npl ), xtmp ( 2 , 1 : npl ), xtmp ( 3 , 1 : npl ), & vtmp ( 1 , 1 : npl ), vtmp ( 2 , 1 : npl ), vtmp ( 3 , 1 : npl ), & dti ( 1 : npl ), iflag ( 1 : npl )) if ( any ( iflag ( 1 : npl ) /= 0 )) then do i = 1 , npl if ( iflag ( i ) /= 0 ) then write ( * , * ) \" Planet \" , pl % id ( i ), \" is lost!!!!!!!!!!\" write ( * , * ) GMcb ( i ), dti ( i ) write ( * , * ) xtmp (:, i ) write ( * , * ) vtmp (:, i ) write ( * , * ) \" STOPPING \" call util_exit ( failure ) end if end do end if frac = 1.0_DP - inner_index / dntphenc pl % inner ( inner_index )% x (:, :) = frac * xtmp (:,:) pl % inner ( inner_index )% v (:, :) = frac * vtmp (:,:) end do xtmp (:,:) = pl % inner ( NTPHENC )% x (:, :) vtmp (:,:) = pl % inner ( NTPHENC )% v (:, :) do inner_index = NTPHENC - 1 , 1 , - 1 call drift_one ( GMcb ( 1 : npl ), xtmp ( 1 , 1 : npl ), xtmp ( 2 , 1 : npl ), xtmp ( 3 , 1 : npl ), & vtmp ( 1 , 1 : npl ), vtmp ( 2 , 1 : npl ), vtmp ( 3 , 1 : npl ), & - dti ( 1 : npl ), iflag ( 1 : npl )) if ( any ( iflag ( 1 : npl ) /= 0 )) then do i = 1 , npl if ( iflag ( i ) /= 0 ) then write ( * , * ) \" Planet \" , pl % id ( i ), \" is lost!!!!!!!!!!\" write ( * , * ) GMcb ( i ), - dti ( i ) write ( * , * ) xtmp (:, i ) write ( * , * ) vtmp (:, i ) write ( * , * ) \" STOPPING \" call util_exit ( failure ) end if end do end if frac = inner_index / dntphenc pl % inner ( inner_index )% x (:, :) = pl % inner ( inner_index )% x (:, :) + frac * xtmp (:, :) pl % inner ( inner_index )% v (:, :) = pl % inner ( inner_index )% v (:, :) + frac * vtmp (:, :) if ( param % loblatecb ) then pl % xh (:,:) = pl % inner ( inner_index )% x (:, :) call pl % accel_obl ( system ) pl % inner ( inner_index )% aobl (:, :) = pl % aobl (:, :) end if if ( param % ltides ) then call pl % accel_tides ( system ) pl % inner ( inner_index )% atide (:, :) = pl % atide (:, :) end if end do if ( param % loblatecb ) then ! Calculate the final value of oblateness accelerations at the final inner substep pl % xh (:,:) = pl % inner ( NTPHENC )% x (:, :) call pl % accel_obl ( system ) pl % inner ( NTPHENC )% aobl (:, :) = pl % aobl (:, :) end if if ( param % ltides ) then call pl % accel_tides ( system ) pl % inner ( NTPHENC )% atide (:, :) = pl % atide (:, :) end if ! Put the planet positions back into place if ( allocated ( xh_original )) call move_alloc ( xh_original , pl % xh ) end associate return end subroutine rmvs_interp_in subroutine rmvs_step_in ( cb , pl , tp , param , outer_time , dto ) !! author: David A. Minton !! !! Step active test particles ahead in the inner encounter region !! !! Adapted from Hal Levison's Swift routine rmvs3_step_in.f !! Adapted from David E. Kaufmann's Swifter routine rmvs_step_in.f90 implicit none ! Arguments class ( rmvs_cb ), intent ( inout ) :: cb !! RMVS central body object class ( rmvs_pl ), intent ( inout ) :: pl !! RMVS massive body object class ( rmvs_tp ), intent ( inout ) :: tp !! RMVS test particle object class ( swiftest_parameters ), intent ( inout ) :: param !! Current run configuration parameters real ( DP ), intent ( in ) :: outer_time !! Current time real ( DP ), intent ( in ) :: dto !! Outer step size ! Internals logical :: lfirsttp integer ( I4B ) :: i , j , ipleP real ( DP ) :: dti , inner_time associate ( npl => pl % nbody ) dti = dto / NTPHENC call rmvs_make_planetocentric ( param , cb , pl , tp ) do i = 1 , npl if ( pl % nenc ( i ) == 0 ) cycle select type ( planetocen_system => pl % planetocentric ( i )) class is ( rmvs_nbody_system ) select type ( cbenci => planetocen_system % cb ) class is ( rmvs_cb ) select type ( plenci => planetocen_system % pl ) class is ( rmvs_pl ) select type ( tpenci => planetocen_system % tp ) class is ( rmvs_tp ) associate ( inner_index => tpenci % index ) ! There are inner encounters with this planet...switch to planetocentric coordinates to proceed tpenci % lfirst = . true . inner_time = outer_time call rmvs_peri_tp ( tpenci , pl , inner_time , dti , . true ., 0 , i , param ) ! now step the encountering test particles fully through the inner encounter lfirsttp = . true . do inner_index = 1 , NTPHENC ! Integrate over the encounter region, using the \"substitute\" planetocentric systems at each level plenci % xh (:,:) = plenci % inner ( inner_index - 1 )% x (:,:) call plenci % set_beg_end ( xbeg = plenci % inner ( inner_index - 1 )% x , & xend = plenci % inner ( inner_index )% x ) if ( param % loblatecb ) then cbenci % aoblbeg = cbenci % inner ( inner_index - 1 )% aobl (:, 1 ) cbenci % aoblend = cbenci % inner ( inner_index )% aobl (:, 1 ) end if if ( param % ltides ) then cbenci % atidebeg = cbenci % inner ( inner_index - 1 )% atide (:, 1 ) cbenci % atideend = cbenci % inner ( inner_index )% atide (:, 1 ) end if call tpenci % step ( planetocen_system , param , inner_time , dti ) do j = 1 , pl % nenc ( i ) tpenci % xheliocentric (:, j ) = tpenci % xh (:, j ) + pl % inner ( inner_index )% x (:, i ) end do inner_time = outer_time + j * dti call rmvs_peri_tp ( tpenci , pl , inner_time , dti , . false ., inner_index , i , param ) end do tpenci % lmask (:) = . false . end associate end select end select end select end select end do call rmvs_end_planetocentric ( pl , tp ) end associate return end subroutine rmvs_step_in subroutine rmvs_make_planetocentric ( param , cb , pl , tp ) !! author: David A. Minton !! !! When encounters are detected, this method will call the interpolation methods for the planets and !! creates a Swiftest test particle structure for each planet's encountering test particles to simplify the !! planetocentric calculations. This subroutine is not based on an existing one from Swift and Swifter !! implicit none ! Arguments class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration paramete class ( rmvs_cb ), intent ( inout ) :: cb !! RMVS central body object class ( rmvs_pl ), intent ( inout ) :: pl !! RMVS massive body object class ( rmvs_tp ), intent ( inout ) :: tp !! RMVS test particle object ! Internals integer ( I4B ) :: i , j , inner_index , ipc2hc logical , dimension (:), allocatable :: encmask associate ( npl => pl % nbody , ntp => tp % nbody ) do i = 1 , npl if ( pl % nenc ( i ) == 0 ) cycle ! There are inner encounters with this planet if ( allocated ( encmask )) deallocate ( encmask ) allocate ( encmask ( ntp )) encmask (:) = tp % plencP (:) == i allocate ( rmvs_tp :: pl % planetocentric ( i )% tp ) ! Create encountering test particle structure select type ( cbenci => pl % planetocentric ( i )% cb ) class is ( rmvs_cb ) select type ( plenci => pl % planetocentric ( i )% pl ) class is ( rmvs_pl ) select type ( tpenci => pl % planetocentric ( i )% tp ) class is ( rmvs_tp ) tpenci % lplanetocentric = . true . call tpenci % setup ( pl % nenc ( i ), param ) tpenci % cb_heliocentric = cb tpenci % ipleP = i tpenci % lmask (:) = . true . tpenci % status (:) = ACTIVE ! Grab all the encountering test particles and convert them to a planetocentric frame tpenci % id (:) = pack ( tp % id (:), encmask (:)) do j = 1 , NDIM tpenci % xheliocentric ( j , :) = pack ( tp % xh ( j ,:), encmask (:)) tpenci % xh ( j , :) = tpenci % xheliocentric ( j , :) - pl % inner ( 0 )% x ( j , i ) tpenci % vh ( j , :) = pack ( tp % vh ( j ,:), encmask (:)) - pl % inner ( 0 )% v ( j , i ) end do tpenci % lperi (:) = pack ( tp % lperi (:), encmask (:)) tpenci % plperP (:) = pack ( tp % plperP (:), encmask (:)) ! Make sure that the test particles get the planetocentric value of mu allocate ( cbenci % inner ( 0 : NTPHENC )) do inner_index = 0 , NTPHENC allocate ( plenci % inner ( inner_index )% x , mold = pl % inner ( inner_index )% x ) allocate ( plenci % inner ( inner_index )% v , mold = pl % inner ( inner_index )% x ) allocate ( cbenci % inner ( inner_index )% x ( NDIM , 1 )) allocate ( cbenci % inner ( inner_index )% v ( NDIM , 1 )) cbenci % inner ( inner_index )% x (:, 1 ) = pl % inner ( inner_index )% x (:, i ) cbenci % inner ( inner_index )% v (:, 1 ) = pl % inner ( inner_index )% v (:, i ) plenci % inner ( inner_index )% x (:, 1 ) = - cbenci % inner ( inner_index )% x (:, 1 ) plenci % inner ( inner_index )% v (:, 1 ) = - cbenci % inner ( inner_index )% v (:, 1 ) if ( param % loblatecb ) then allocate ( plenci % inner ( inner_index )% aobl , mold = pl % inner ( inner_index )% aobl ) allocate ( cbenci % inner ( inner_index )% aobl ( NDIM , 1 )) cbenci % inner ( inner_index )% aobl (:, 1 ) = pl % inner ( inner_index )% aobl (:, i ) end if if ( param % ltides ) then allocate ( plenci % inner ( inner_index )% atide , mold = pl % inner ( inner_index )% atide ) allocate ( cbenci % inner ( inner_index )% atide ( NDIM , 1 )) cbenci % inner ( inner_index )% atide (:, 1 ) = pl % inner ( inner_index )% atide (:, i ) end if do j = 2 , npl ipc2hc = plenci % plind ( j ) plenci % inner ( inner_index )% x (:, j ) = pl % inner ( inner_index )% x (:, ipc2hc ) - cbenci % inner ( inner_index )% x (:, 1 ) plenci % inner ( inner_index )% v (:, j ) = pl % inner ( inner_index )% v (:, ipc2hc ) - cbenci % inner ( inner_index )% v (:, 1 ) end do end do call tpenci % set_mu ( cbenci ) end select end select end select end do end associate return end subroutine rmvs_make_planetocentric subroutine rmvs_peri_tp ( tp , pl , t , dt , lfirst , inner_index , ipleP , param ) !! author: David A. Minton !! !! Determine planetocentric pericenter passages for test particles in close encounters with a planet !! !! Adapted from Hal Levison's Swift routine Adapted from Hal Levison's Swift routine util_peri.f !! Adapted from David E. Kaufmann's Swifter routine rmvs_peri.f90 implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: tp !! RMVS test particle object (planetocentric) class ( rmvs_pl ), intent ( inout ) :: pl !! RMVS massive body object (heliocentric) real ( DP ), intent ( in ) :: t !! current time real ( DP ), intent ( in ) :: dt !! step size logical , intent ( in ) :: lfirst !! Logical flag indicating whether current invocation is the first integer ( I4B ), intent ( in ) :: inner_index !! Outer substep number within current set integer ( I4B ), intent ( in ) :: ipleP !!  index of RMVS planet being closely encountered class ( swiftest_parameters ), intent ( in ) :: param !! Current run configuration parameters ! Internals integer ( I4B ) :: i , id1 , id2 real ( DP ) :: r2 , mu , rhill2 , vdotr , a , peri , capm , tperi , rpl real ( DP ), dimension ( NDIM ) :: xh1 , xh2 , vh1 , vh2 rhill2 = pl % rhill ( ipleP ) ** 2 mu = pl % Gmass ( ipleP ) associate ( nenc => tp % nbody , xpc => tp % xh , vpc => tp % vh ) if ( lfirst ) then do i = 1 , nenc if ( tp % lmask ( i )) then vdotr = dot_product ( xpc (:, i ), vpc (:, i )) if ( vdotr > 0.0_DP ) then tp % isperi ( i ) = 1 else tp % isperi ( i ) = - 1 end if end if end do else do i = 1 , nenc if ( tp % lmask ( i )) then vdotr = dot_product ( xpc (:, i ), vpc (:, i )) if ( tp % isperi ( i ) == - 1 ) then if ( vdotr >= 0.0_DP ) then tp % isperi ( i ) = 0 call orbel_xv2aqt ( mu , xpc (:, i ), vpc (:, i ), a , peri , capm , tperi ) r2 = dot_product ( xpc (:, i ), xpc (:, i )) if (( abs ( tperi ) > FACQDT * dt ) . or . ( r2 > rhill2 )) peri = sqrt ( r2 ) if ( param % enc_out /= \"\" ) then id1 = pl % id ( ipleP ) rpl = pl % radius ( ipleP ) xh1 (:) = pl % inner ( inner_index )% x (:, ipleP ) vh1 (:) = pl % inner ( inner_index )% v (:, ipleP ) id2 = tp % id ( i ) xh2 (:) = xpc (:, i ) + xh1 (:) vh2 (:) = xpc (:, i ) + vh1 (:) call io_write_encounter ( t , id1 , id2 , mu , 0.0_DP , rpl , 0.0_DP , xh1 (:), xh2 (:), vh1 (:), vh2 (:), & param % enc_out , param % out_type ) end if if ( tp % lperi ( i )) then if ( peri < tp % peri ( i )) then tp % peri ( i ) = peri tp % plperP ( i ) = ipleP end if else tp % lperi ( i ) = . true . tp % peri ( i ) = peri tp % plperP ( i ) = ipleP end if end if else if ( vdotr > 0.0_DP ) then tp % isperi ( i ) = 1 else tp % isperi ( i ) = - 1 end if end if end if end do end if end associate return end subroutine rmvs_peri_tp subroutine rmvs_end_planetocentric ( pl , tp ) !! author: David A. Minton !! !! Deallocates all of the encountering particle data structures for next time !! implicit none ! Arguments class ( rmvs_pl ), intent ( inout ) :: pl !! RMVS massive body object class ( rmvs_tp ), intent ( inout ) :: tp !! RMVS test particle objec ! Internals integer ( I4B ) :: i , j , inner_index integer ( I4B ), dimension (:), allocatable :: tpind logical , dimension (:), allocatable :: encmask associate ( npl => pl % nbody , ntp => tp % nbody ) do i = 1 , npl if ( pl % nenc ( i ) == 0 ) cycle select type ( cbenci => pl % planetocentric ( i )% cb ) class is ( rmvs_cb ) select type ( plenci => pl % planetocentric ( i )% pl ) class is ( rmvs_pl ) select type ( tpenci => pl % planetocentric ( i )% tp ) class is ( rmvs_tp ) if ( allocated ( tpind )) deallocate ( tpind ) allocate ( tpind ( pl % nenc ( i ))) ! Index array of encountering test particles if ( allocated ( encmask )) deallocate ( encmask ) allocate ( encmask ( ntp )) encmask (:) = tp % plencP (:) == i tpind (:) = pack ([( j , j = 1 , ntp )], encmask (:)) ! Copy the results of the integration back over and shift back to heliocentric reference tp % status ( tpind ( 1 : pl % nenc ( i ))) = tpenci % status ( 1 : pl % nenc ( i )) tp % lmask ( tpind ( 1 : pl % nenc ( i ))) = tpenci % lmask ( 1 : pl % nenc ( i )) do j = 1 , NDIM tp % xh ( j , tpind ( 1 : pl % nenc ( i ))) = tpenci % xh ( j , 1 : pl % nenc ( i )) + pl % inner ( NTPHENC )% x ( j , i ) tp % vh ( j , tpind ( 1 : pl % nenc ( i ))) = tpenci % vh ( j , 1 : pl % nenc ( i )) + pl % inner ( NTPHENC )% v ( j , i ) end do tp % lperi ( tpind ( 1 : pl % nenc ( i ))) = tpenci % lperi ( 1 : pl % nenc ( i )) tp % plperP ( tpind ( 1 : pl % nenc ( i ))) = tpenci % plperP ( 1 : pl % nenc ( i )) deallocate ( pl % planetocentric ( i )% tp ) deallocate ( cbenci % inner ) do inner_index = 0 , NTPHENC deallocate ( plenci % inner ( inner_index )% x ) deallocate ( plenci % inner ( inner_index )% v ) if ( allocated ( plenci % inner ( inner_index )% aobl )) deallocate ( plenci % inner ( inner_index )% aobl ) if ( allocated ( plenci % inner ( inner_index )% atide )) deallocate ( plenci % inner ( inner_index )% atide ) end do end select end select end select end do end associate return end subroutine rmvs_end_planetocentric end submodule s_rmvs_step","tags":"","loc":"sourcefile/rmvs_step.f90.html"},{"title":"rmvs_encounter_check.f90 – swiftest","text":"This file depends on sourcefile~~rmvs_encounter_check.f90~~EfferentGraph sourcefile~rmvs_encounter_check.f90 rmvs_encounter_check.f90 sourcefile~swiftest.f90 swiftest.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~swiftest.f90 sourcefile~rmvs_classes.f90 rmvs_classes.f90 sourcefile~rmvs_encounter_check.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest.f90->sourcefile~rmvs_classes.f90 sourcefile~swiftest_operators.f90 swiftest_operators.f90 sourcefile~swiftest.f90->sourcefile~swiftest_operators.f90 sourcefile~helio_classes.f90 helio_classes.f90 sourcefile~swiftest.f90->sourcefile~helio_classes.f90 sourcefile~lambda_function.f90 lambda_function.f90 sourcefile~swiftest.f90->sourcefile~lambda_function.f90 sourcefile~swiftest_classes.f90 swiftest_classes.f90 sourcefile~swiftest.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90 whm_classes.f90 sourcefile~swiftest.f90->sourcefile~whm_classes.f90 sourcefile~symba_classes.f90 symba_classes.f90 sourcefile~swiftest.f90->sourcefile~symba_classes.f90 sourcefile~swiftest_globals.f90 swiftest_globals.f90 sourcefile~swiftest.f90->sourcefile~swiftest_globals.f90 sourcefile~rmvs_classes.f90->sourcefile~whm_classes.f90 sourcefile~rmvs_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_operators.f90->sourcefile~swiftest_globals.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~helio_classes.f90->sourcefile~whm_classes.f90 sourcefile~helio_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~lambda_function.f90->sourcefile~swiftest_globals.f90 sourcefile~swiftest_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~whm_classes.f90->sourcefile~swiftest_globals.f90 sourcefile~symba_classes.f90->sourcefile~rmvs_classes.f90 sourcefile~symba_classes.f90->sourcefile~helio_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_classes.f90 sourcefile~symba_classes.f90->sourcefile~swiftest_globals.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\n    is dependent upon another if the latter must be compiled before the former\n    can be. Contents Submodules s_rmvs_chk Source Code rmvs_encounter_check.f90 Source Code submodule ( rmvs_classes ) s_rmvs_chk use swiftest contains module function rmvs_encounter_check_tp ( self , system , dt ) result ( lencounter ) !! author: David A. Minton !! !! Determine whether a test particle and planet are having or will have an encounter within the next time step !! !! Adapted from David E. Kaufmann's Swifter routine: rmvs_chk.f90 !! Adapted from Hal Levison's Swift routine rmvs3_chk.f implicit none ! Arguments class ( rmvs_tp ), intent ( inout ) :: self !! RMVS test particle object class ( rmvs_nbody_system ), intent ( inout ) :: system !! RMVS nbody system object real ( DP ), intent ( in ) :: dt !! step size ! Result logical :: lencounter !! Returns true if there is at least one close encounter ! Internals integer ( I4B ) :: i , j real ( DP ) :: r2 , v2 , vdotr real ( DP ), dimension ( NDIM ) :: xr , vr real ( DP ), dimension ( system % pl % nbody ) :: r2crit logical :: lflag if ( self % nbody == 0 ) return select type ( pl => system % pl ) class is ( rmvs_pl ) associate ( tp => self , ntp => self % nbody , npl => pl % nbody , rts => system % rts ) r2crit (:) = ( rts * pl % rhill (:)) ** 2 tp % plencP (:) = 0 do j = 1 , npl do i = 1 , ntp if ((. not . tp % lmask ( i )). or .( tp % plencP ( i ) /= 0 )) cycle xr (:) = tp % xh (:, i ) - pl % xbeg (:, j ) vr (:) = tp % vh (:, i ) - pl % vbeg (:, j ) r2 = dot_product ( xr (:), xr (:)) v2 = dot_product ( vr (:), vr (:)) vdotr = dot_product ( vr (:), xr (:)) lflag = rmvs_chk_ind ( r2 , v2 , vdotr , dt , r2crit ( j )) if ( lflag ) tp % plencP ( i ) = j end do pl % nenc ( j ) = count ( tp % plencP (:) == j ) end do lencounter = any ( pl % nenc (:) > 0 ) end associate end select return end function rmvs_encounter_check_tp module elemental function rmvs_chk_ind ( r2 , v2 , vdotr , dt , r2crit ) result ( lflag ) !! author: David A. Minton !! !! Determine whether a test particle and planet are having or will have an encounter within the next time step !! !! Adapted from David E. Kaufmann's Swifter routine: rmvs_chk_ind.f90 !! Adapted from Hal Levison's Swift routine rmvs_chk_ind.f implicit none ! Arguments real ( DP ), intent ( in ) :: r2 , v2 , vdotr , dt , r2crit logical :: lflag ! Internals real ( DP ) :: tmin , r2min lflag = . false . if ( r2 < r2crit ) then lflag = . true . else if ( vdotr < 0.0_DP ) then tmin = - vdotr / v2 if ( tmin < dt ) then r2min = r2 - vdotr ** 2 / v2 else r2min = r2 + 2 * vdotr * dt + v2 * dt ** 2 end if r2min = min ( r2min , r2 ) lflag = ( r2min <= r2crit ) end if end if return end function rmvs_chk_ind end submodule s_rmvs_chk","tags":"","loc":"sourcefile/rmvs_encounter_check.f90.html"},{"title":"tides_derivs_func – swiftest ","text":"type, extends(lambda_obj_tvar) :: tides_derivs_func Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers Inherits type~~tides_derivs_func~~InheritsGraph type~tides_derivs_func tides_derivs_func lambda_obj_tvar lambda_obj_tvar type~tides_derivs_func->lambda_obj_tvar Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lambdaptr_tides_deriv xbeg xend dt Type-Bound Procedures init evalt tides_derivs_init Components Type Visibility Attributes Name Initial procedure( tidederiv ), public, pointer, nopass :: lambdaptr_tides_deriv real(kind=DP), public, dimension(:,:), allocatable :: xbeg real(kind=DP), public, dimension(:,:), allocatable :: xend real(kind=DP), public :: dt Type-Bound Procedures generic, public :: init => tides_derivs_init function tides_derivs_init (lambda, dt, xbeg, xend) result(f) Arguments Type Intent Optional Attributes Name procedure( tidederiv ) :: lambda real(kind=DP), intent(in) :: dt real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value type( tides_derivs_func ) procedure, public :: evalt => tides_derivs_eval function tides_derivs_eval (self, x, t) result(y) Arguments Type Intent Optional Attributes Name class( tides_derivs_func ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t Return Value real(kind=DP),\n  dimension(:), allocatable procedure, public, nopass :: tides_derivs_init function tides_derivs_init (lambda, dt, xbeg, xend) result(f) Arguments Type Intent Optional Attributes Name procedure( tidederiv ) :: lambda real(kind=DP), intent(in) :: dt real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value type( tides_derivs_func )","tags":"","loc":"type/tides_derivs_func.html"},{"title":"rmvs_nbody_system – swiftest ","text":"type, public, extends( whm_nbody_system ) :: rmvs_nbody_system Inherits type~~rmvs_nbody_system~~InheritsGraph type~rmvs_nbody_system rmvs_nbody_system type~whm_nbody_system whm_nbody_system type~rmvs_nbody_system->type~whm_nbody_system type~swiftest_nbody_system swiftest_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~swiftest_tp swiftest_tp type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~swiftest_base swiftest_base type~swiftest_nbody_system->type~swiftest_base type~swiftest_pl swiftest_pl type~swiftest_nbody_system->type~swiftest_pl pl, pl_discards type~swiftest_cb swiftest_cb type~swiftest_nbody_system->type~swiftest_cb cb type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_cb->type~swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~rmvs_nbody_system~~InheritedByGraph type~rmvs_nbody_system rmvs_nbody_system type~rmvs_pl rmvs_pl type~rmvs_pl->type~rmvs_nbody_system planetocentric Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate cb pl tp tp_discards pl_discards Gmtot ke_orbit ke_spin pe te Lorbit Lspin Lescape Mescape Ecollisions Euntracked lbeg maxid lplanetocentric rts vbeg Type-Bound Procedures discard conservation_report dump read_frame write_discard write_frame step_spin set_msys get_energy_and_momentum rescale validate_ids initialize step Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure class( swiftest_pl ), public, allocatable :: pl_discards Discarded massive body particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number logical, public :: lplanetocentric = .false. In the RMVS integrator, only test particles are discarded\n Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations real(kind=DP), public :: rts fraction of Hill's sphere radius to use as radius of encounter region real(kind=DP), public, dimension(:,:), allocatable :: vbeg Planet velocities at beginning ot step Type-Bound Procedures procedure, public :: discard => discard_system Perform a discard step on the system interface public module subroutine discard_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time interface public module subroutine io_conservation_report(self, param, lterminal) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen procedure, public :: dump => io_dump_system Dump the state of the system to a file interface public module subroutine io_dump_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file interface public module subroutine io_read_frame_system(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_discard => io_write_discard Write out information about discarded test particles interface public module subroutine io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file interface public module subroutine io_write_frame_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. interface public module subroutine tides_step_spin_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. interface public module subroutine util_set_msys(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum interface public module subroutine util_get_energy_momentum_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: rescale => util_rescale_system Rescales the system into a new set of units interface public module subroutine util_rescale_system(self, param, mscale, dscale, tscale) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters. Returns with new values of the scale vactors and GU real(kind=DP), intent(in) :: mscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: dscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: tscale Scale factors for mass, distance, and time units, respectively. procedure, public :: validate_ids => util_valid_id_system Validate the numerical ids passed to the system and save the maximum value interface public module subroutine util_valid_id_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => rmvs_setup_initialize_system Replace the abstract procedures with concrete ones\n Performs RMVS-specific initilization steps, including generating the close encounter planetocentric structures interface public module subroutine rmvs_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters procedure, public :: step => rmvs_step_system Advance the RMVS nbody system forward in time by one step interface public module subroutine rmvs_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"type/rmvs_nbody_system.html"},{"title":"rmvs_interp – swiftest ","text":"type, private :: rmvs_interp Inherited by type~~rmvs_interp~~InheritedByGraph type~rmvs_interp rmvs_interp type~rmvs_pl rmvs_pl type~rmvs_pl->type~rmvs_interp outer, inner type~rmvs_cb rmvs_cb type~rmvs_cb->type~rmvs_interp outer, inner type~rmvs_tp rmvs_tp type~rmvs_tp->type~rmvs_cb cb_heliocentric Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables x v aobl atide Components Type Visibility Attributes Name Initial real(kind=DP), public, dimension(:, :), allocatable :: x interpolated heliocentric planet position for outer encounter real(kind=DP), public, dimension(:, :), allocatable :: v interpolated heliocentric planet velocity for outer encounter real(kind=DP), public, dimension(:, :), allocatable :: aobl Encountering planet's oblateness acceleration value real(kind=DP), public, dimension(:, :), allocatable :: atide Encountering planet's tidal acceleration value","tags":"","loc":"type/rmvs_interp.html"},{"title":"rmvs_cb – swiftest ","text":"type, public, extends( whm_cb ) :: rmvs_cb RMVS central body particle class Inherits type~~rmvs_cb~~InheritsGraph type~rmvs_cb rmvs_cb type~rmvs_interp rmvs_interp type~rmvs_cb->type~rmvs_interp outer, inner type~whm_cb whm_cb type~rmvs_cb->type~whm_cb type~swiftest_cb swiftest_cb type~whm_cb->type~swiftest_cb type~swiftest_base swiftest_base type~swiftest_cb->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~rmvs_cb~~InheritedByGraph type~rmvs_cb rmvs_cb type~rmvs_tp rmvs_tp type~rmvs_tp->type~rmvs_cb cb_heliocentric Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate name id mass Gmass radius density j2rp2 j4rp4 aobl atide aoblbeg aoblend atidebeg atideend xb vb agr Ip rot k2 Q tlag L0 dL outer inner lplanetocentric Type-Bound Procedures dump initialize read_frame write_frame Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body type( rmvs_interp ), public, dimension(:), allocatable :: outer interpolated heliocentric central body position for outer encounters type( rmvs_interp ), public, dimension(:), allocatable :: inner interpolated heliocentric central body position for inner encounters logical, public :: lplanetocentric = .false. Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data interface public module subroutine io_read_cb_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body interface public module subroutine io_read_frame_cb(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_cb(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/rmvs_cb.html"},{"title":"rmvs_tp – swiftest ","text":"type, public, extends( whm_tp ) :: rmvs_tp Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the\n    component list, such as rmvs_setup_tp and rmvs_util_spill_tp Inherits type~~rmvs_tp~~InheritsGraph type~rmvs_tp rmvs_tp type~whm_tp whm_tp type~rmvs_tp->type~whm_tp type~rmvs_cb rmvs_cb type~rmvs_tp->type~rmvs_cb cb_heliocentric type~swiftest_tp swiftest_tp type~whm_tp->type~swiftest_tp type~rmvs_interp rmvs_interp type~rmvs_cb->type~rmvs_interp outer, inner type~whm_cb whm_cb type~rmvs_cb->type~whm_cb type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_cb swiftest_cb type~whm_cb->type~swiftest_cb type~swiftest_base swiftest_base type~swiftest_cb->type~swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm isperi peri atp lperi plperP plencP cb_heliocentric xheliocentric index ipleP lplanetocentric Type-Bound Procedures dump drift v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 accel_int accel_obl h2b b2h get_peri set_mu accel_gr gr_pos_kick kick step discard encounter_check accel setup append fill resize sort rearrange spill Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp logical, public, dimension(:), allocatable :: lperi planetocentric pericenter passage flag (persistent for a full rmvs time step) over a full RMVS time step) integer(kind=I4B), public, dimension(:), allocatable :: plperP index of planet associated with pericenter distance peri (persistent over a full RMVS time step) integer(kind=I4B), public, dimension(:), allocatable :: plencP index of planet that test particle is encountering (not persistent for a full RMVS time step) type( rmvs_cb ), public :: cb_heliocentric Copy of original central body object passed to close encounter (used for oblateness acceleration during planetocentric encoountters) real(kind=DP), public, dimension(:,:), allocatable :: xheliocentric original heliocentric position (used for oblateness calculation during close encounters) integer(kind=I4B), public :: index inner substep number within current set integer(kind=I4B), public :: ipleP index value of encountering planet logical, public :: lplanetocentric = .false. Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables interface public module subroutine drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies interface public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_tp(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles interface public module subroutine util_peri_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_gr => whm_gr_kick_getacch_tp Acceleration term arising from the post-Newtonian correction interface public module subroutine whm_gr_kick_getacch_tp(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => whm_gr_p4_tp Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine whm_gr_p4_tp(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: kick => whm_kick_vh_tp Kick heliocentric velocities of test particles interface public module subroutine whm_kick_vh_tp(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: step => whm_step_tp Steps the particle forward one stepsize interface public module subroutine whm_step_tp(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize procedure, public :: discard => rmvs_discard_tp Check to see if test particles should be discarded based on pericenter passage distances with respect to planets encountered interface public module subroutine rmvs_discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters procedure, public :: encounter_check => rmvs_encounter_check_tp Checks if any test particles are undergoing a close encounter with a massive body interface public module function rmvs_encounter_check_tp(self, system, dt) result(lencounter) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object real(kind=DP), intent(in) :: dt step size Return Value logical Returns true if there is at least one close encounter procedure, public :: accel => rmvs_kick_getacch_tp Calculates either the standard or modified version of the acceleration depending if the\n    if the test particle is undergoing a close encounter or not interface public module subroutine rmvs_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest central body particle data structuree class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: setup => rmvs_setup_tp Constructor method - Allocates space for the input number of bodiess interface public module subroutine rmvs_setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parametere procedure, public :: append => rmvs_util_append_tp Appends elements from one structure to another interface public module subroutine rmvs_util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: fill => rmvs_util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine rmvs_util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: resize => rmvs_util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine rmvs_util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: sort => rmvs_util_sort_tp Sorts body arrays by a sortable componen interface public module subroutine rmvs_util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => rmvs_util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine rmvs_util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => rmvs_util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine rmvs_util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"type/rmvs_tp.html"},{"title":"rmvs_pl – swiftest ","text":"type, public, extends( whm_pl ) :: rmvs_pl RMVS massive body particle class Inherits type~~rmvs_pl~~InheritsGraph type~rmvs_pl rmvs_pl type~rmvs_interp rmvs_interp type~rmvs_pl->type~rmvs_interp outer, inner type~whm_pl whm_pl type~rmvs_pl->type~whm_pl type~rmvs_nbody_system rmvs_nbody_system type~rmvs_pl->type~rmvs_nbody_system planetocentric type~swiftest_pl swiftest_pl type~whm_pl->type~swiftest_pl type~whm_nbody_system whm_nbody_system type~rmvs_nbody_system->type~whm_nbody_system type~swiftest_nbody_system swiftest_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~swiftest_body swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base type~swiftest_nbody_system->type~swiftest_pl pl, pl_discards type~swiftest_tp swiftest_tp type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~swiftest_nbody_system->type~swiftest_base type~swiftest_cb swiftest_cb type~swiftest_nbody_system->type~swiftest_cb cb type~swiftest_tp->type~swiftest_body type~swiftest_cb->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm mass Gmass rhill radius xbeg xend vbeg density Ip rot k2 Q tlag k_plpl nplpl eta xj vj muj ir3j nenc tpenc1P plind outer inner planetocentric lplanetocentric Type-Bound Procedures dump v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user discard eucl_index accel_int accel_obl accel_tides h2b b2h set_beg_end set_rhill h2j j2h vh2vj drift accel_gr gr_pos_kick accel kick set_ir3 set_mu step setup append fill resize sort rearrange spill Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl real(kind=DP), public, dimension(:), allocatable :: eta Jacobi mass real(kind=DP), public, dimension(:,:), allocatable :: xj Jacobi position real(kind=DP), public, dimension(:,:), allocatable :: vj Jacobi velocity real(kind=DP), public, dimension(:), allocatable :: muj Jacobi mu: GMcb * eta(i) / eta(i - 1) real(kind=DP), public, dimension(:), allocatable :: ir3j Third term of heliocentric acceleration\n Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the\n    component list, such as whm_setup_pl and whm_util_spill_pl integer(kind=I4B), public, dimension(:), allocatable :: nenc number of test particles encountering planet this full rmvs time step integer(kind=I4B), public, dimension(:), allocatable :: tpenc1P index of first test particle encountering planet integer(kind=I4B), public, dimension(:), allocatable :: plind Connects the planetocentric indices back to the heliocentric planet list type( rmvs_interp ), public, dimension(:), allocatable :: outer interpolated heliocentric central body position for outer encounters type( rmvs_interp ), public, dimension(:), allocatable :: inner interpolated heliocentric central body position for inner encounters class( rmvs_nbody_system ), public, dimension(:), allocatable :: planetocentric Planetocentric version of the massive body objects (one for each massive body) logical, public :: lplanetocentric = .false. Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies interface public module subroutine discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine eucl_dist_index_plpl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies interface public pure module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body interface public module subroutine tides_kick_getacch_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. interface public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg Position vectors at beginning of step real(kind=DP), intent(in), optional dimension(:,:) :: xend Positions vectors at end of step real(kind=DP), intent(in), optional dimension(:,:) :: vbeg vbeg is an unused variable to keep this method forward compatible with RMVS procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body interface public module subroutine util_set_rhill(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: h2j => whm_coord_h2j_pl Convert position and velcoity vectors from heliocentric to Jacobi coordinates interface public module subroutine whm_coord_h2j_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree procedure, public :: j2h => whm_coord_j2h_pl Convert position and velcoity vectors from Jacobi to helliocentric coordinates interface public module subroutine whm_coord_j2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree procedure, public :: vh2vj => whm_coord_vh2vj_pl Convert velocity vectors from heliocentric to Jacobi coordinates interface public module subroutine whm_coord_vh2vj_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree procedure, public :: drift => whm_drift_pl Loop through massive bodies and call Danby drift routine to jacobi coordinates interface public module subroutine whm_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: accel_gr => whm_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction interface public module subroutine whm_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => whm_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine whm_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: accel => whm_kick_getacch_pl Compute heliocentric accelerations of massive bodies interface public module subroutine whm_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Get heliocentric accelration of massive bodies Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: kick => whm_kick_vh_pl Kick heliocentric velocities of massive bodies interface public module subroutine whm_kick_vh_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: set_ir3 => whm_util_set_ir3j Sets both the heliocentric and jacobi inverse radius terms (1/rj 3 and 1/rh 3) interface public module subroutine whm_util_set_ir3j(self) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object procedure, public :: set_mu => whm_util_set_mu_eta_pl Sets the Jacobi mass value for all massive bodies. interface public module subroutine whm_util_set_mu_eta_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: step => whm_step_pl Steps the body forward one stepsize interface public module subroutine whm_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: setup => rmvs_setup_pl Constructor method - Allocates space for the input number of bodiess interface public module subroutine rmvs_setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: append => rmvs_util_append_pl Appends elements from one structure to another interface public module subroutine rmvs_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: fill => rmvs_util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine rmvs_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: resize => rmvs_util_resize_pl Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine rmvs_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: sort => rmvs_util_sort_pl Sorts body arrays by a sortable componen interface public module subroutine rmvs_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => rmvs_util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine rmvs_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => rmvs_util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine rmvs_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"type/rmvs_pl.html"},{"title":"helio_nbody_system – swiftest ","text":"type, public, extends( whm_nbody_system ) :: helio_nbody_system Inherits type~~helio_nbody_system~~InheritsGraph type~helio_nbody_system helio_nbody_system type~whm_nbody_system whm_nbody_system type~helio_nbody_system->type~whm_nbody_system type~swiftest_nbody_system swiftest_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~swiftest_tp swiftest_tp type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~swiftest_base swiftest_base type~swiftest_nbody_system->type~swiftest_base type~swiftest_pl swiftest_pl type~swiftest_nbody_system->type~swiftest_pl pl, pl_discards type~swiftest_cb swiftest_cb type~swiftest_nbody_system->type~swiftest_cb cb type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_cb->type~swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~helio_nbody_system~~InheritedByGraph type~helio_nbody_system helio_nbody_system type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_nbody_system Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate cb pl tp tp_discards pl_discards Gmtot ke_orbit ke_spin pe te Lorbit Lspin Lescape Mescape Ecollisions Euntracked lbeg maxid Type-Bound Procedures discard conservation_report dump read_frame write_discard write_frame step_spin set_msys get_energy_and_momentum rescale validate_ids initialize step Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure class( swiftest_pl ), public, allocatable :: pl_discards Discarded massive body particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number Type-Bound Procedures procedure, public :: discard => discard_system Perform a discard step on the system interface public module subroutine discard_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time interface public module subroutine io_conservation_report(self, param, lterminal) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen procedure, public :: dump => io_dump_system Dump the state of the system to a file interface public module subroutine io_dump_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file interface public module subroutine io_read_frame_system(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_discard => io_write_discard Write out information about discarded test particles interface public module subroutine io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file interface public module subroutine io_write_frame_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. interface public module subroutine tides_step_spin_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. interface public module subroutine util_set_msys(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum interface public module subroutine util_get_energy_momentum_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: rescale => util_rescale_system Rescales the system into a new set of units interface public module subroutine util_rescale_system(self, param, mscale, dscale, tscale) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters. Returns with new values of the scale vactors and GU real(kind=DP), intent(in) :: mscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: dscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: tscale Scale factors for mass, distance, and time units, respectively. procedure, public :: validate_ids => util_valid_id_system Validate the numerical ids passed to the system and save the maximum value interface public module subroutine util_valid_id_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => whm_setup_initialize_system Replace the abstract procedures with concrete ones\n Performs WHM-specific initilization steps, like calculating the Jacobi masses interface public module subroutine whm_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters procedure, public :: step => helio_step_system Advance the Helio nbody system forward in time by one step interface public module subroutine helio_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_nbody_system ), intent(inout) :: self Helio nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"type/helio_nbody_system.html"},{"title":"helio_cb – swiftest ","text":"type, public, extends( swiftest_cb ) :: helio_cb Helio central body particle class Inherits type~~helio_cb~~InheritsGraph type~helio_cb helio_cb type~swiftest_cb swiftest_cb type~helio_cb->type~swiftest_cb type~swiftest_base swiftest_base type~swiftest_cb->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~helio_cb~~InheritedByGraph type~helio_cb helio_cb type~symba_cb symba_cb type~symba_cb->type~helio_cb Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate name id mass Gmass radius density j2rp2 j4rp4 aobl atide aoblbeg aoblend atidebeg atideend xb vb agr Ip rot k2 Q tlag L0 dL ptbeg ptend Type-Bound Procedures dump initialize read_frame write_frame Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: ptbeg negative barycentric velocity of the central body at the beginning of time step real(kind=DP), public, dimension(NDIM) :: ptend negative barycentric velocity of the central body at the end of time step Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data interface public module subroutine io_read_cb_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body interface public module subroutine io_read_frame_cb(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_cb(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/helio_cb.html"},{"title":"helio_pl – swiftest ","text":"type, public, extends( swiftest_pl ) :: helio_pl Inherits type~~helio_pl~~InheritsGraph type~helio_pl helio_pl type~swiftest_pl swiftest_pl type~helio_pl->type~swiftest_pl type~swiftest_body swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~helio_pl~~InheritedByGraph type~helio_pl helio_pl type~symba_pl symba_pl type~symba_pl->type~helio_pl type~symba_merger symba_merger type~symba_merger->type~symba_pl type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~symba_merger pl_adds Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm mass Gmass rhill radius xbeg xend vbeg density Ip rot k2 Q tlag k_plpl nplpl Type-Bound Procedures dump v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 discard eucl_index accel_int accel_obl setup accel_tides append h2b b2h fill resize set_beg_end set_mu set_rhill sort rearrange spill vh2vb vb2vh drift lindrift accel_gr gr_pos_kick accel kick step Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies interface public module subroutine discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine eucl_dist_index_plpl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies interface public pure module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: setup => setup_pl A base constructor that sets the number of bodies and allocates and initializes all arrays interface public module subroutine setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body interface public module subroutine tides_kick_getacch_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: append => util_append_pl Appends elements from one structure to another interface public module subroutine util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: fill => util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: resize => util_resize_pl Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. interface public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg Position vectors at beginning of step real(kind=DP), intent(in), optional dimension(:,:) :: xend Positions vectors at end of step real(kind=DP), intent(in), optional dimension(:,:) :: vbeg vbeg is an unused variable to keep this method forward compatible with RMVS procedure, public :: set_mu => util_set_mu_pl Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body interface public module subroutine util_set_rhill(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: sort => util_sort_pl Sorts body arrays by a sortable component interface public module subroutine util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not procedure, public :: vh2vb => helio_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) interface public module subroutine helio_coord_vh2vb_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: vb2vh => helio_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) interface public module subroutine helio_coord_vb2vh_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: drift => helio_drift_pl Method for Danby drift in Democratic Heliocentric coordinates interface public module subroutine helio_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: lindrift => helio_drift_linear_pl Method for linear drift of massive bodies due to barycentric momentum of Sun interface public module subroutine helio_drift_linear_pl(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( helio_cb ), intent(inout) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step procedure, public :: accel_gr => helio_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction interface public module subroutine helio_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => helio_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine helio_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: accel => helio_kick_getacch_pl Compute heliocentric accelerations of massive bodies interface public module subroutine helio_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: kick => helio_kick_vb_pl Kicks the barycentric velocities interface public module subroutine helio_kick_vb_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: step => helio_step_pl Steps the body forward one stepsize interface public module subroutine helio_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"type/helio_pl.html"},{"title":"helio_tp – swiftest ","text":"type, public, extends( swiftest_tp ) :: helio_tp Inherits type~~helio_tp~~InheritsGraph type~helio_tp helio_tp type~swiftest_tp swiftest_tp type~helio_tp->type~swiftest_tp type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~helio_tp~~InheritedByGraph type~helio_tp helio_tp type~symba_tp symba_tp type~symba_tp->type~helio_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm isperi peri atp Type-Bound Procedures dump v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 discard accel_int accel_obl setup append h2b b2h fill get_peri resize set_mu sort rearrange spill vh2vb vb2vh lindrift drift accel_gr gr_pos_kick accel kick step Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: discard => discard_tp Check to see if test particles should be discarded based on their positions relative to the massive bodies interface public module subroutine discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies interface public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_tp(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: setup => setup_tp A base constructor that sets the number of bodies and interface public module subroutine setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parametersr procedure, public :: append => util_append_tp Appends elements from one structure to another interface public module subroutine util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: fill => util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles interface public module subroutine util_peri_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: resize => util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: sort => util_sort_tp Sorts body arrays by a sortable component interface public module subroutine util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not procedure, public :: vh2vb => helio_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) interface public module subroutine helio_coord_vh2vb_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: vb2vh => helio_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) interface public module subroutine helio_coord_vb2vh_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: lindrift => helio_drift_linear_tp Method for linear drift of massive bodies due to barycentric momentum of Sun interface public module subroutine helio_drift_linear_tp(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( helio_cb ), intent(in) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step procedure, public :: drift => helio_drift_tp Method for Danby drift in Democratic Heliocentric coordinates interface public module subroutine helio_drift_tp(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: accel_gr => helio_gr_kick_getacch_tp Acceleration term arising from the post-Newtonian correction interface public module subroutine helio_gr_kick_getacch_tp(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => helio_gr_p4_tp Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine helio_gr_p4_tp(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: accel => helio_kick_getacch_tp Compute heliocentric accelerations of massive bodies interface public module subroutine helio_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: kick => helio_kick_vb_tp Kicks the barycentric velocities interface public module subroutine helio_kick_vb_tp(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: step => helio_step_tp Steps the body forward one stepsize interface public module subroutine helio_step_tp(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsizee","tags":"","loc":"type/helio_tp.html"},{"title":"whm_cb – swiftest ","text":"type, public, extends( swiftest_cb ) :: whm_cb Swiftest central body particle class Inherits type~~whm_cb~~InheritsGraph type~whm_cb whm_cb type~swiftest_cb swiftest_cb type~whm_cb->type~swiftest_cb type~swiftest_base swiftest_base type~swiftest_cb->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~whm_cb~~InheritedByGraph type~whm_cb whm_cb type~rmvs_cb rmvs_cb type~rmvs_cb->type~whm_cb type~rmvs_tp rmvs_tp type~rmvs_tp->type~rmvs_cb cb_heliocentric Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate name id mass Gmass radius density j2rp2 j4rp4 aobl atide aoblbeg aoblend atidebeg atideend xb vb agr Ip rot k2 Q tlag L0 dL Type-Bound Procedures dump initialize read_frame write_frame Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data interface public module subroutine io_read_cb_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body interface public module subroutine io_read_frame_cb(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_cb(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/whm_cb.html"},{"title":"whm_pl – swiftest ","text":"type, public, extends( swiftest_pl ) :: whm_pl WHM massive body particle class Inherits type~~whm_pl~~InheritsGraph type~whm_pl whm_pl type~swiftest_pl swiftest_pl type~whm_pl->type~swiftest_pl type~swiftest_body swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~whm_pl~~InheritedByGraph type~whm_pl whm_pl type~rmvs_pl rmvs_pl type~rmvs_pl->type~whm_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm mass Gmass rhill radius xbeg xend vbeg density Ip rot k2 Q tlag k_plpl nplpl eta xj vj muj ir3j Type-Bound Procedures dump v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user discard eucl_index accel_int accel_obl accel_tides h2b b2h set_beg_end set_rhill h2j j2h vh2vj drift accel_gr gr_pos_kick accel kick append fill resize set_ir3 set_mu sort rearrange spill setup step Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl real(kind=DP), public, dimension(:), allocatable :: eta Jacobi mass real(kind=DP), public, dimension(:,:), allocatable :: xj Jacobi position real(kind=DP), public, dimension(:,:), allocatable :: vj Jacobi velocity real(kind=DP), public, dimension(:), allocatable :: muj Jacobi mu: GMcb * eta(i) / eta(i - 1) real(kind=DP), public, dimension(:), allocatable :: ir3j Third term of heliocentric acceleration\n Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the\n    component list, such as whm_setup_pl and whm_util_spill_pl Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies interface public module subroutine discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine eucl_dist_index_plpl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies interface public pure module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body interface public module subroutine tides_kick_getacch_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. interface public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg Position vectors at beginning of step real(kind=DP), intent(in), optional dimension(:,:) :: xend Positions vectors at end of step real(kind=DP), intent(in), optional dimension(:,:) :: vbeg vbeg is an unused variable to keep this method forward compatible with RMVS procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body interface public module subroutine util_set_rhill(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: h2j => whm_coord_h2j_pl Convert position and velcoity vectors from heliocentric to Jacobi coordinates interface public module subroutine whm_coord_h2j_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree procedure, public :: j2h => whm_coord_j2h_pl Convert position and velcoity vectors from Jacobi to helliocentric coordinates interface public module subroutine whm_coord_j2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree procedure, public :: vh2vj => whm_coord_vh2vj_pl Convert velocity vectors from heliocentric to Jacobi coordinates interface public module subroutine whm_coord_vh2vj_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree procedure, public :: drift => whm_drift_pl Loop through massive bodies and call Danby drift routine to jacobi coordinates interface public module subroutine whm_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: accel_gr => whm_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction interface public module subroutine whm_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => whm_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine whm_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: accel => whm_kick_getacch_pl Compute heliocentric accelerations of massive bodies interface public module subroutine whm_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Get heliocentric accelration of massive bodies Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: kick => whm_kick_vh_pl Kick heliocentric velocities of massive bodies interface public module subroutine whm_kick_vh_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: append => whm_util_append_pl Appends elements from one structure to another interface public module subroutine whm_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: fill => whm_util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine whm_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: inserts inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: resize => whm_util_resize_pl Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine whm_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: set_ir3 => whm_util_set_ir3j Sets both the heliocentric and jacobi inverse radius terms (1/rj 3 and 1/rh 3) interface public module subroutine whm_util_set_ir3j(self) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object procedure, public :: set_mu => whm_util_set_mu_eta_pl Sets the Jacobi mass value for all massive bodies. interface public module subroutine whm_util_set_mu_eta_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: sort => whm_util_sort_pl Sort a WHM massive body object in-place. interface public module subroutine whm_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => whm_util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine whm_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => whm_util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine whm_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not procedure, public :: setup => whm_setup_pl Constructor method - Allocates space for the input number of bodiess interface public module subroutine whm_setup_pl(self, n, param) Implementation → Reads WHM massive body object in from file Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body objectobject integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: step => whm_step_pl Steps the body forward one stepsize interface public module subroutine whm_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"type/whm_pl.html"},{"title":"whm_tp – swiftest ","text":"type, public, extends( swiftest_tp ) :: whm_tp Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the\n    component list, such as whm_util_spill_tp Inherits type~~whm_tp~~InheritsGraph type~whm_tp whm_tp type~swiftest_tp swiftest_tp type~whm_tp->type~swiftest_tp type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~whm_tp~~InheritedByGraph type~whm_tp whm_tp type~rmvs_tp rmvs_tp type~rmvs_tp->type~whm_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm isperi peri atp Type-Bound Procedures dump drift v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 discard accel_int accel_obl setup append h2b b2h fill get_peri resize set_mu sort rearrange spill accel_gr gr_pos_kick accel kick step Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables interface public module subroutine drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: discard => discard_tp Check to see if test particles should be discarded based on their positions relative to the massive bodies interface public module subroutine discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies interface public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_tp(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: setup => setup_tp A base constructor that sets the number of bodies and interface public module subroutine setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parametersr procedure, public :: append => util_append_tp Appends elements from one structure to another interface public module subroutine util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: fill => util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles interface public module subroutine util_peri_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: resize => util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: sort => util_sort_tp Sorts body arrays by a sortable component interface public module subroutine util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not procedure, public :: accel_gr => whm_gr_kick_getacch_tp Acceleration term arising from the post-Newtonian correction interface public module subroutine whm_gr_kick_getacch_tp(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => whm_gr_p4_tp Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine whm_gr_p4_tp(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: accel => whm_kick_getacch_tp Compute heliocentric accelerations of test particles interface public module subroutine whm_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Get heliocentric accelration of the test particle Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: kick => whm_kick_vh_tp Kick heliocentric velocities of test particles interface public module subroutine whm_kick_vh_tp(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: step => whm_step_tp Steps the particle forward one stepsize interface public module subroutine whm_step_tp(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"type/whm_tp.html"},{"title":"whm_nbody_system – swiftest ","text":"type, public, extends( swiftest_nbody_system ) :: whm_nbody_system An abstract class for the WHM integrator nbody system Inherits type~~whm_nbody_system~~InheritsGraph type~whm_nbody_system whm_nbody_system type~swiftest_nbody_system swiftest_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~swiftest_tp swiftest_tp type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~swiftest_base swiftest_base type~swiftest_nbody_system->type~swiftest_base type~swiftest_pl swiftest_pl type~swiftest_nbody_system->type~swiftest_pl pl, pl_discards type~swiftest_cb swiftest_cb type~swiftest_nbody_system->type~swiftest_cb cb type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_cb->type~swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~whm_nbody_system~~InheritedByGraph type~whm_nbody_system whm_nbody_system type~helio_nbody_system helio_nbody_system type~helio_nbody_system->type~whm_nbody_system type~rmvs_nbody_system rmvs_nbody_system type~rmvs_nbody_system->type~whm_nbody_system type~rmvs_pl rmvs_pl type~rmvs_pl->type~rmvs_nbody_system planetocentric type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_nbody_system Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate cb pl tp tp_discards pl_discards Gmtot ke_orbit ke_spin pe te Lorbit Lspin Lescape Mescape Ecollisions Euntracked lbeg maxid Type-Bound Procedures discard conservation_report dump read_frame write_discard write_frame step_spin set_msys get_energy_and_momentum rescale validate_ids initialize step Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure class( swiftest_pl ), public, allocatable :: pl_discards Discarded massive body particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number Type-Bound Procedures procedure, public :: discard => discard_system Perform a discard step on the system interface public module subroutine discard_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time interface public module subroutine io_conservation_report(self, param, lterminal) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen procedure, public :: dump => io_dump_system Dump the state of the system to a file interface public module subroutine io_dump_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file interface public module subroutine io_read_frame_system(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_discard => io_write_discard Write out information about discarded test particles interface public module subroutine io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file interface public module subroutine io_write_frame_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. interface public module subroutine tides_step_spin_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. interface public module subroutine util_set_msys(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum interface public module subroutine util_get_energy_momentum_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: rescale => util_rescale_system Rescales the system into a new set of units interface public module subroutine util_rescale_system(self, param, mscale, dscale, tscale) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters. Returns with new values of the scale vactors and GU real(kind=DP), intent(in) :: mscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: dscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: tscale Scale factors for mass, distance, and time units, respectively. procedure, public :: validate_ids => util_valid_id_system Validate the numerical ids passed to the system and save the maximum value interface public module subroutine util_valid_id_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => whm_setup_initialize_system Replace the abstract procedures with concrete ones\n Performs WHM-specific initilization steps, like calculating the Jacobi masses interface public module subroutine whm_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters procedure, public :: step => whm_step_system Advance the WHM nbody system forward in time by one step interface public module subroutine whm_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"type/whm_nbody_system.html"},{"title":"symba_parameters – swiftest ","text":"type, public, extends( swiftest_parameters ) :: symba_parameters Inherits type~~symba_parameters~~InheritsGraph type~symba_parameters symba_parameters type~swiftest_parameters swiftest_parameters type~symba_parameters->type~swiftest_parameters Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables integrator nplmax ntpmax t0 t tstop dt incbfile inplfile intpfile in_type istep_out outfile out_type out_form out_stat istep_dump rmin rmax rmaxu qmin qmin_coord qmin_alo qmin_ahi enc_out discard_out MU2KG TU2S DU2M GU inv_c2 energy_out lrhill_present lextra_force lbig_discard lclose lenergy loblatecb lrotation ltides Eorbit_orig Mtot_orig Lmag_orig Ltot_orig Lorbit_orig Lspin_orig Ltot Lescape Mescape Ecollisions Euntracked lfirstenergy lfirstkick lrestart lgr lyarkovsky lyorp particle_out GMTINY seed lfragmentation Type-Bound Procedures dump read_from_file reader writer Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: integrator = UNKNOWN_INTEGRATOR Symbolic name of the nbody integrator  used integer(kind=I4B), public :: nplmax = -1 Maximum allowed number of massive bodies integer(kind=I4B), public :: ntpmax = -1 Maximum allowed number of test particles real(kind=DP), public :: t0 = -1.0_DP Integration start time real(kind=DP), public :: t = -1.0_DP Integration current time real(kind=DP), public :: tstop = -1.0_DP Integration stop time real(kind=DP), public :: dt = -1.0_DP Time step character(len=STRMAX), public :: incbfile = CB_INFILE Name of input file for the central body character(len=STRMAX), public :: inplfile = PL_INFILE Name of input file for massive bodies character(len=STRMAX), public :: intpfile = TP_INFILE Name of input file for test particles character(len=STRMAX), public :: in_type = ASCII_TYPE Format of input data files integer(kind=I4B), public :: istep_out = -1 Number of time steps between binary outputs character(len=STRMAX), public :: outfile = BIN_OUTFILE Name of output binary file character(len=STRMAX), public :: out_type = REAL8_TYPE Binary format of output file character(len=STRMAX), public :: out_form = XV Data to write to output file character(len=STRMAX), public :: out_stat = 'NEW' Open status for output binary file integer(kind=I4B), public :: istep_dump = -1 Number of time steps between dumps real(kind=DP), public :: rmin = -1.0_DP Minimum heliocentric radius for test particle real(kind=DP), public :: rmax = -1.0_DP Maximum heliocentric radius for test particle real(kind=DP), public :: rmaxu = -1.0_DP Maximum unbound heliocentric radius for test particle real(kind=DP), public :: qmin = -1.0_DP Minimum pericenter distance for test particle character(len=STRMAX), public :: qmin_coord = 'HELIO' Coordinate frame to use for qmin real(kind=DP), public :: qmin_alo = -1.0_DP Minimum semimajor axis for qmin real(kind=DP), public :: qmin_ahi = -1.0_DP Maximum semimajor axis for qmin character(len=STRMAX), public :: enc_out = \"\" Name of output file for encounters character(len=STRMAX), public :: discard_out = \"\" Name of output file for discards real(kind=QP), public :: MU2KG = -1.0_QP Converts mass units to grams real(kind=QP), public :: TU2S = -1.0_QP Converts time units to seconds real(kind=QP), public :: DU2M = -1.0_QP Converts distance unit to centimeters real(kind=DP), public :: GU = -1.0_DP Universal gravitational constant in the system units real(kind=DP), public :: inv_c2 = -1.0_DP Inverse speed of light squared in the system units character(len=STRMAX), public :: energy_out = \"\" Name of output energy and momentum report file logical, public :: lrhill_present = .false. Hill radii are given as an input rather than calculated by the code (can be used to inflate close encounter regions manually) logical, public :: lextra_force = .false. User defined force function turned on logical, public :: lbig_discard = .false. Save big bodies on every discard logical, public :: lclose = .false. Turn on close encounters logical, public :: lenergy = .false. Track the total energy of the system logical, public :: loblatecb = .false. Calculate acceleration from oblate central body (automatically turns true if nonzero J2 is input) logical, public :: lrotation = .false. Include rotation states of big bodies logical, public :: ltides = .false. Include tidal dissipation real(kind=DP), public :: Eorbit_orig = 0.0_DP Initial orbital energy real(kind=DP), public :: Mtot_orig = 0.0_DP Initial system mass real(kind=DP), public :: Lmag_orig = 0.0_DP Initial total angular momentum magnitude real(kind=DP), public, dimension(NDIM) :: Ltot_orig = 0.0_DP Initial total angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lorbit_orig = 0.0_DP Initial orbital angular momentum real(kind=DP), public, dimension(NDIM) :: Lspin_orig = 0.0_DP Initial spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Ltot = 0.0_DP System angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lfirstenergy = .true. This is the first time computing energe logical, public :: lfirstkick = .true. Initiate the first kick in a symplectic step logical, public :: lrestart = .false. Indicates whether or not this is a restarted run logical, public :: lgr = .false. Turn on GR logical, public :: lyarkovsky = .false. Turn on Yarkovsky effect logical, public :: lyorp = .false. Turn on YORP effect character(len=STRMAX), public :: particle_out = PARTICLE_OUTFILE Name of output particle information file real(kind=DP), public :: GMTINY = -1.0_DP Smallest mass that is fully gravitating integer(kind=I4B), public, dimension(:), allocatable :: seed Random seeds logical, public :: lfragmentation = .false. Do fragmentation modeling instead of simple merger. Type-Bound Procedures procedure, public :: dump => io_dump_param interface public module subroutine io_dump_param(self, param_file_name) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Output collection of parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) procedure, public :: read_from_file => io_read_param_in interface public module subroutine io_read_param_in(self, param_file_name) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Current run configuration parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) procedure, public :: reader => symba_io_param_reader interface public module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(inout) :: self Current run configuration parameters with SyMBA additionss integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) The first element passes the integrator code to the reader integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 procedure, public :: writer => symba_io_param_writer interface public module subroutine symba_io_param_writer(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(in) :: self Current run configuration parameters with SyMBA additions integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) Not used in this procedure integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0","tags":"","loc":"type/symba_parameters.html"},{"title":"symba_particle_info – swiftest ","text":"type, public :: symba_particle_info sequence Class definition for the particle origin information object. This object is used to track time, location, and collisional regime\n of fragments produced in collisional events. Inherited by type~~symba_particle_info~~InheritedByGraph type~symba_particle_info symba_particle_info type~symba_cb symba_cb type~symba_cb->type~symba_particle_info info type~symba_tp symba_tp type~symba_tp->type~symba_particle_info info type~symba_pl symba_pl type~symba_pl->type~symba_particle_info info type~symba_merger symba_merger type~symba_merger->type~symba_pl type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~symba_merger pl_adds Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables origin_type origin_time origin_xh origin_vh Components Type Visibility Attributes Name Initial character(len=32), public :: origin_type String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.) real(kind=DP), public :: origin_time The time of the particle's formation real(kind=DP), public, dimension(NDIM) :: origin_xh The heliocentric distance vector at the time of the particle's formation real(kind=DP), public, dimension(NDIM) :: origin_vh The heliocentric velocity vector at the time of the particle's formation","tags":"","loc":"type/symba_particle_info.html"},{"title":"symba_kinship – swiftest ","text":"type, public :: symba_kinship Class definition for the kinship relationships used in bookkeeping multiple collisions bodies in a single time step. Inherited by type~~symba_kinship~~InheritedByGraph type~symba_kinship symba_kinship type~symba_pl symba_pl type~symba_pl->type~symba_kinship kin type~symba_merger symba_merger type~symba_merger->type~symba_pl type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~symba_merger pl_adds Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables parent nchild child Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: parent Index of parent particle integer(kind=I4B), public :: nchild number of children in merger list integer(kind=I4B), public, dimension(:), allocatable :: child Index of children particles","tags":"","loc":"type/symba_kinship.html"},{"title":"symba_cb – swiftest ","text":"type, public, extends( helio_cb ) :: symba_cb SyMBA central body particle class Inherits type~~symba_cb~~InheritsGraph type~symba_cb symba_cb type~helio_cb helio_cb type~symba_cb->type~helio_cb type~symba_particle_info symba_particle_info type~symba_cb->type~symba_particle_info info type~swiftest_cb swiftest_cb type~helio_cb->type~swiftest_cb type~swiftest_base swiftest_base type~swiftest_cb->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate name id mass Gmass radius density j2rp2 j4rp4 aobl atide aoblbeg aoblend atidebeg atideend xb vb agr Ip rot k2 Q tlag L0 dL ptbeg ptend M0 dM R0 dR info Type-Bound Procedures dump initialize read_frame write_frame Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: ptbeg negative barycentric velocity of the central body at the beginning of time step real(kind=DP), public, dimension(NDIM) :: ptend negative barycentric velocity of the central body at the end of time step real(kind=DP), public :: M0 = 0.0_DP Initial mass of the central body real(kind=DP), public :: dM = 0.0_DP Change in mass of the central body real(kind=DP), public :: R0 = 0.0_DP Initial radius of the central body real(kind=DP), public :: dR = 0.0_DP Change in the radius of the central body type( symba_particle_info ), public :: info Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data interface public module subroutine io_read_cb_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body interface public module subroutine io_read_frame_cb(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_cb(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/symba_cb.html"},{"title":"symba_pl – swiftest ","text":"type, public, extends( helio_pl ) :: symba_pl SyMBA massive body class Inherits type~~symba_pl~~InheritsGraph type~symba_pl symba_pl type~helio_pl helio_pl type~symba_pl->type~helio_pl type~symba_kinship symba_kinship type~symba_pl->type~symba_kinship kin type~symba_particle_info symba_particle_info type~symba_pl->type~symba_particle_info info type~swiftest_pl swiftest_pl type~helio_pl->type~swiftest_pl type~swiftest_body swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~symba_pl~~InheritedByGraph type~symba_pl symba_pl type~symba_merger symba_merger type~symba_merger->type~symba_pl type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~symba_merger pl_adds Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm mass Gmass rhill radius xbeg xend vbeg density Ip rot k2 Q tlag k_plpl nplpl lcollision lencounter lmtiny nplm nplplm nplenc ntpenc levelg levelm isperi peri atp kin info Type-Bound Procedures dump v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 eucl_index accel_int accel_obl accel_tides h2b b2h set_beg_end set_mu set_rhill vh2vb vb2vh lindrift accel_gr gr_pos_kick kick step make_family discard drift encounter_check accel setup append fill get_peri rearray resize sort rearrange spill Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl logical, public, dimension(:), allocatable :: lcollision flag indicating whether body has merged with another this time step logical, public, dimension(:), allocatable :: lencounter flag indicating whether body is part of an encounter this time step logical, public, dimension(:), allocatable :: lmtiny flag indicating whether this body is below the GMTINY cutoff value integer(kind=I4B), public :: nplm number of bodies above the GMTINY limit integer(kind=I8B), public :: nplplm Number of body (all massive)-body (only those above GMTINY) comparisons in the flattened upper triangular matrix integer(kind=I4B), public, dimension(:), allocatable :: nplenc number of encounters with other planets this time step integer(kind=I4B), public, dimension(:), allocatable :: ntpenc number of encounters with test particles this time step integer(kind=I4B), public, dimension(:), allocatable :: levelg level at which this body should be moved integer(kind=I4B), public, dimension(:), allocatable :: levelm deepest encounter level achieved this time step integer(kind=I4B), public, dimension(:), allocatable :: isperi perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp semimajor axis following perihelion passage type( symba_kinship ), public, dimension(:), allocatable :: kin Array of merger relationship structures that can account for multiple pairwise mergers in a single step type( symba_particle_info ), public, dimension(:), allocatable :: info Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine eucl_dist_index_plpl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies interface public pure module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body interface public module subroutine tides_kick_getacch_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. interface public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg Position vectors at beginning of step real(kind=DP), intent(in), optional dimension(:,:) :: xend Positions vectors at end of step real(kind=DP), intent(in), optional dimension(:,:) :: vbeg vbeg is an unused variable to keep this method forward compatible with RMVS procedure, public :: set_mu => util_set_mu_pl Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body interface public module subroutine util_set_rhill(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: vh2vb => helio_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) interface public module subroutine helio_coord_vh2vb_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: vb2vh => helio_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) interface public module subroutine helio_coord_vb2vh_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: lindrift => helio_drift_linear_pl Method for linear drift of massive bodies due to barycentric momentum of Sun interface public module subroutine helio_drift_linear_pl(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( helio_cb ), intent(inout) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step procedure, public :: accel_gr => helio_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction interface public module subroutine helio_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => helio_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine helio_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: kick => helio_kick_vb_pl Kicks the barycentric velocities interface public module subroutine helio_kick_vb_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: step => helio_step_pl Steps the body forward one stepsize interface public module subroutine helio_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize procedure, public :: make_family => symba_collision_make_family_pl When a single body is involved in more than one collision in a single step, it becomes part of a family interface public module subroutine symba_collision_make_family_pl(self, idx) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(2) :: idx Array holding the indices of the two bodies involved in the collision procedure, public :: discard => symba_discard_pl Process massive body discards interface public module subroutine symba_discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: drift => symba_drift_pl Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level interface public module subroutine symba_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: encounter_check => symba_encounter_check_pl Checks if massive bodies are going through close encounters with each other interface public module function symba_encounter_check_pl(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter procedure, public :: accel => symba_kick_getacch_pl Compute heliocentric accelerations of massive bodies interface public module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: setup => symba_setup_pl Constructor method - Allocates space for the input number of bodies interface public module subroutine symba_setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: append => symba_util_append_pl Appends elements from one structure to another interface public module subroutine symba_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: fill => symba_util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine symba_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: get_peri => symba_util_peri_pl Determine system pericenter passages for massive bodies interface public module subroutine symba_util_peri_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: rearray => symba_util_rearray_pl Clean up the massive body structures to remove discarded bodies and add new bodies interface public module subroutine symba_util_rearray_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions procedure, public :: resize => symba_util_resize_pl Checks the current size of a SyMBA massive body against the requested size and resizes it if it is too small. interface public module subroutine symba_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: sort => symba_util_sort_pl Sorts body arrays by a sortable componen interface public module subroutine symba_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => symba_util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine symba_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => symba_util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine symba_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"type/symba_pl.html"},{"title":"symba_merger – swiftest ","text":"type, public, extends( symba_pl ) :: symba_merger Inherits type~~symba_merger~~InheritsGraph type~symba_merger symba_merger type~symba_pl symba_pl type~symba_merger->type~symba_pl type~helio_pl helio_pl type~symba_pl->type~helio_pl type~symba_kinship symba_kinship type~symba_pl->type~symba_kinship kin type~symba_particle_info symba_particle_info type~symba_pl->type~symba_particle_info info type~swiftest_pl swiftest_pl type~helio_pl->type~swiftest_pl type~swiftest_body swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~symba_merger~~InheritedByGraph type~symba_merger symba_merger type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~symba_merger pl_adds Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm mass Gmass rhill radius xbeg xend vbeg density Ip rot k2 Q tlag k_plpl nplpl lcollision lencounter lmtiny nplm nplplm nplenc ntpenc levelg levelm isperi peri atp kin info ncomp Type-Bound Procedures dump v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 eucl_index accel_int accel_obl accel_tides h2b b2h set_beg_end set_mu set_rhill vh2vb vb2vh lindrift accel_gr gr_pos_kick kick step make_family discard drift encounter_check accel fill get_peri rearray sort rearrange spill append resize setup Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl logical, public, dimension(:), allocatable :: lcollision flag indicating whether body has merged with another this time step logical, public, dimension(:), allocatable :: lencounter flag indicating whether body is part of an encounter this time step logical, public, dimension(:), allocatable :: lmtiny flag indicating whether this body is below the GMTINY cutoff value integer(kind=I4B), public :: nplm number of bodies above the GMTINY limit integer(kind=I8B), public :: nplplm Number of body (all massive)-body (only those above GMTINY) comparisons in the flattened upper triangular matrix integer(kind=I4B), public, dimension(:), allocatable :: nplenc number of encounters with other planets this time step integer(kind=I4B), public, dimension(:), allocatable :: ntpenc number of encounters with test particles this time step integer(kind=I4B), public, dimension(:), allocatable :: levelg level at which this body should be moved integer(kind=I4B), public, dimension(:), allocatable :: levelm deepest encounter level achieved this time step integer(kind=I4B), public, dimension(:), allocatable :: isperi perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp semimajor axis following perihelion passage type( symba_kinship ), public, dimension(:), allocatable :: kin Array of merger relationship structures that can account for multiple pairwise mergers in a single step type( symba_particle_info ), public, dimension(:), allocatable :: info integer(kind=I4B), public, dimension(:), allocatable :: ncomp Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine eucl_dist_index_plpl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies interface public pure module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body interface public module subroutine tides_kick_getacch_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. interface public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg Position vectors at beginning of step real(kind=DP), intent(in), optional dimension(:,:) :: xend Positions vectors at end of step real(kind=DP), intent(in), optional dimension(:,:) :: vbeg vbeg is an unused variable to keep this method forward compatible with RMVS procedure, public :: set_mu => util_set_mu_pl Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body interface public module subroutine util_set_rhill(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: vh2vb => helio_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) interface public module subroutine helio_coord_vh2vb_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: vb2vh => helio_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) interface public module subroutine helio_coord_vb2vh_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: lindrift => helio_drift_linear_pl Method for linear drift of massive bodies due to barycentric momentum of Sun interface public module subroutine helio_drift_linear_pl(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( helio_cb ), intent(inout) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step procedure, public :: accel_gr => helio_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction interface public module subroutine helio_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => helio_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine helio_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: kick => helio_kick_vb_pl Kicks the barycentric velocities interface public module subroutine helio_kick_vb_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: step => helio_step_pl Steps the body forward one stepsize interface public module subroutine helio_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize procedure, public :: make_family => symba_collision_make_family_pl When a single body is involved in more than one collision in a single step, it becomes part of a family interface public module subroutine symba_collision_make_family_pl(self, idx) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(2) :: idx Array holding the indices of the two bodies involved in the collision procedure, public :: discard => symba_discard_pl Process massive body discards interface public module subroutine symba_discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: drift => symba_drift_pl Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level interface public module subroutine symba_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: encounter_check => symba_encounter_check_pl Checks if massive bodies are going through close encounters with each other interface public module function symba_encounter_check_pl(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter procedure, public :: accel => symba_kick_getacch_pl Compute heliocentric accelerations of massive bodies interface public module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: fill => symba_util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine symba_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: get_peri => symba_util_peri_pl Determine system pericenter passages for massive bodies interface public module subroutine symba_util_peri_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: rearray => symba_util_rearray_pl Clean up the massive body structures to remove discarded bodies and add new bodies interface public module subroutine symba_util_rearray_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions procedure, public :: sort => symba_util_sort_pl Sorts body arrays by a sortable componen interface public module subroutine symba_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => symba_util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine symba_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => symba_util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine symba_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not procedure, public :: append => symba_util_append_merger Appends elements from one structure to another interface public module subroutine symba_util_append_merger(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: resize => symba_util_resize_merger Checks the current size of a SyMBA merger list against the requested size and resizes it if it is too small. interface public module subroutine symba_util_resize_merger(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA merger list object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: setup => symba_setup_merger Constructor method - Allocates space for the input number of bodies interface public module subroutine symba_setup_merger(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA merger list object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/symba_merger.html"},{"title":"symba_tp – swiftest ","text":"type, public, extends( helio_tp ) :: symba_tp SyMBA test particle class Inherits type~~symba_tp~~InheritsGraph type~symba_tp symba_tp type~helio_tp helio_tp type~symba_tp->type~helio_tp type~symba_particle_info symba_particle_info type~symba_tp->type~symba_particle_info info type~swiftest_tp swiftest_tp type~helio_tp->type~swiftest_tp type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm isperi peri atp nplenc levelg levelm info Type-Bound Procedures dump v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 discard accel_int accel_obl h2b b2h get_peri set_mu vh2vb vb2vh lindrift accel_gr gr_pos_kick kick step drift encounter_check accel setup append fill resize sort rearrange spill Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp integer(kind=I4B), public, dimension(:), allocatable :: nplenc number of encounters with planets this time step integer(kind=I4B), public, dimension(:), allocatable :: levelg level at which this particle should be moved integer(kind=I4B), public, dimension(:), allocatable :: levelm deepest encounter level achieved this time step type( symba_particle_info ), public, dimension(:), allocatable :: info Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: discard => discard_tp Check to see if test particles should be discarded based on their positions relative to the massive bodies interface public module subroutine discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies interface public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_tp(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles interface public module subroutine util_peri_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: vh2vb => helio_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) interface public module subroutine helio_coord_vh2vb_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: vb2vh => helio_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) interface public module subroutine helio_coord_vb2vh_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body procedure, public :: lindrift => helio_drift_linear_tp Method for linear drift of massive bodies due to barycentric momentum of Sun interface public module subroutine helio_drift_linear_tp(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( helio_cb ), intent(in) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step procedure, public :: accel_gr => helio_gr_kick_getacch_tp Acceleration term arising from the post-Newtonian correction interface public module subroutine helio_gr_kick_getacch_tp(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters procedure, public :: gr_pos_kick => helio_gr_p4_tp Position kick due to p**4 term in the post-Newtonian correction interface public pure module subroutine helio_gr_p4_tp(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size procedure, public :: kick => helio_kick_vb_tp Kicks the barycentric velocities interface public module subroutine helio_kick_vb_tp(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure, public :: step => helio_step_tp Steps the body forward one stepsize interface public module subroutine helio_step_tp(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsizee procedure, public :: drift => symba_drift_tp Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level interface public module subroutine symba_drift_tp(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: encounter_check => symba_encounter_check_tp Checks if any test particles are undergoing a close encounter with a massive body interface public module function symba_encounter_check_tp(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter procedure, public :: accel => symba_kick_getacch_tp Compute heliocentric accelerations of test particles interface public module subroutine symba_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step procedure, public :: setup => symba_setup_tp Constructor method - Allocates space for the input number of bodies interface public module subroutine symba_setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter procedure, public :: append => symba_util_append_tp Appends elements from one structure to another interface public module subroutine symba_util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: fill => symba_util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine symba_util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: resize => symba_util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine symba_util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: sort => symba_util_sort_tp Sorts body arrays by a sortable componen interface public module subroutine symba_util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => symba_util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine symba_util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => symba_util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine symba_util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"type/symba_tp.html"},{"title":"symba_pltpenc – swiftest ","text":"type, public, extends( swiftest_encounter ) :: symba_pltpenc SyMBA class for tracking pl-tp close encounters in a step Inherits type~~symba_pltpenc~~InheritsGraph type~symba_pltpenc symba_pltpenc type~swiftest_encounter swiftest_encounter type~symba_pltpenc->type~swiftest_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~symba_pltpenc~~InheritedByGraph type~symba_pltpenc symba_pltpenc type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~symba_pltpenc pltpenc_list type~symba_plplenc symba_plplenc type~symba_nbody_system->type~symba_plplenc plplenc_list type~symba_plplenc->type~symba_pltpenc Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables nenc lvdotr status index1 index2 x1 x2 v1 v2 level Type-Bound Procedures copy resize collision_check encounter_check kick setup spill Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: nenc Total number of encounters logical, public, dimension(:), allocatable :: lvdotr relative vdotr flag integer(kind=I4B), public, dimension(:), allocatable :: status status of the interaction integer(kind=I4B), public, dimension(:), allocatable :: index1 position of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: index2 position of the second body in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x1 the position of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x2 the position of body 2 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v1 the velocity of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v2 the velocity of body 2 in the encounter integer(kind=I4B), public, dimension(:), allocatable :: level encounter recursion level Type-Bound Procedures procedure, public :: copy => util_copy_encounter Copies elements from the source encounter list into self. interface public module subroutine util_copy_encounter(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into procedure, public :: resize => util_resize_encounter Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small. interface public module subroutine util_resize_encounter(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list integer(kind=I4B), intent(in) :: nnew New size of list needed procedure, public :: collision_check => symba_collision_check_pltpenc Checks if a test particle is going to collide with a massive body interface public module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t current time real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level procedure, public :: encounter_check => symba_encounter_check_pltpenc Checks if massive bodies are going through close encounters with each other interface public module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-pl encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter procedure, public :: kick => symba_kick_pltpenc Kick barycentric velocities of active test particles within SyMBA recursion interface public module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(in) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level integer(kind=I4B), intent(in) :: sgn sign to be applied to acceleration procedure, public :: setup => symba_setup_pltpenc A constructor that sets the number of encounters and allocates and initializes all arrays interface public module subroutine symba_setup_pltpenc(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for procedure, public :: spill => symba_util_spill_pltpenc \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine symba_util_spill_pltpenc(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list","tags":"","loc":"type/symba_pltpenc.html"},{"title":"symba_plplenc – swiftest ","text":"type, public, extends( symba_pltpenc ) :: symba_plplenc SyMBA class for tracking pl-pl close encounters in a step Inherits type~~symba_plplenc~~InheritsGraph type~symba_plplenc symba_plplenc type~symba_pltpenc symba_pltpenc type~symba_plplenc->type~symba_pltpenc type~swiftest_encounter swiftest_encounter type~symba_pltpenc->type~swiftest_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~symba_plplenc~~InheritedByGraph type~symba_plplenc symba_plplenc type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~symba_plplenc plplenc_list Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables nenc lvdotr status index1 index2 x1 x2 v1 v2 level Type-Bound Procedures copy resize collision_check encounter_check kick setup spill scrub_non_collision resolve_fragmentations resolve_mergers Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: nenc Total number of encounters logical, public, dimension(:), allocatable :: lvdotr relative vdotr flag integer(kind=I4B), public, dimension(:), allocatable :: status status of the interaction integer(kind=I4B), public, dimension(:), allocatable :: index1 position of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: index2 position of the second body in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x1 the position of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x2 the position of body 2 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v1 the velocity of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v2 the velocity of body 2 in the encounter integer(kind=I4B), public, dimension(:), allocatable :: level encounter recursion level Type-Bound Procedures procedure, public :: copy => util_copy_encounter Copies elements from the source encounter list into self. interface public module subroutine util_copy_encounter(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into procedure, public :: resize => util_resize_encounter Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small. interface public module subroutine util_resize_encounter(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list integer(kind=I4B), intent(in) :: nnew New size of list needed procedure, public :: collision_check => symba_collision_check_pltpenc Checks if a test particle is going to collide with a massive body interface public module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t current time real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level procedure, public :: encounter_check => symba_encounter_check_pltpenc Checks if massive bodies are going through close encounters with each other interface public module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-pl encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter procedure, public :: kick => symba_kick_pltpenc Kick barycentric velocities of active test particles within SyMBA recursion interface public module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(in) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level integer(kind=I4B), intent(in) :: sgn sign to be applied to acceleration procedure, public :: setup => symba_setup_pltpenc A constructor that sets the number of encounters and allocates and initializes all arrays interface public module subroutine symba_setup_pltpenc(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for procedure, public :: spill => symba_util_spill_pltpenc \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine symba_util_spill_pltpenc(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list procedure, public :: scrub_non_collision => symba_collision_encounter_scrub Processes the pl-pl encounter list remove only those encounters that led to a collision interface public module subroutine symba_collision_encounter_scrub(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameterss procedure, public :: resolve_fragmentations => symba_collision_resolve_fragmentations Process list of collisions, determine the collisional regime, and then create fragments interface public module subroutine symba_collision_resolve_fragmentations(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions procedure, public :: resolve_mergers => symba_collision_resolve_mergers Process list of collisions and merge colliding bodies together interface public module subroutine symba_collision_resolve_mergers(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions","tags":"","loc":"type/symba_plplenc.html"},{"title":"symba_nbody_system – swiftest ","text":"type, public, extends( helio_nbody_system ) :: symba_nbody_system Inherits type~~symba_nbody_system~~InheritsGraph type~symba_nbody_system symba_nbody_system type~symba_merger symba_merger type~symba_nbody_system->type~symba_merger pl_adds type~helio_nbody_system helio_nbody_system type~symba_nbody_system->type~helio_nbody_system type~symba_plplenc symba_plplenc type~symba_nbody_system->type~symba_plplenc plplenc_list type~symba_pltpenc symba_pltpenc type~symba_nbody_system->type~symba_pltpenc pltpenc_list type~symba_pl symba_pl type~symba_merger->type~symba_pl type~whm_nbody_system whm_nbody_system type~helio_nbody_system->type~whm_nbody_system type~symba_plplenc->type~symba_pltpenc type~swiftest_encounter swiftest_encounter type~symba_pltpenc->type~swiftest_encounter type~swiftest_nbody_system swiftest_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~helio_pl helio_pl type~symba_pl->type~helio_pl type~symba_kinship symba_kinship type~symba_pl->type~symba_kinship kin type~symba_particle_info symba_particle_info type~symba_pl->type~symba_particle_info info type~swiftest_pl swiftest_pl type~helio_pl->type~swiftest_pl type~swiftest_tp swiftest_tp type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~swiftest_base swiftest_base type~swiftest_nbody_system->type~swiftest_base type~swiftest_nbody_system->type~swiftest_pl pl, pl_discards type~swiftest_cb swiftest_cb type~swiftest_nbody_system->type~swiftest_cb cb type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_cb->type~swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate cb pl tp tp_discards pl_discards Gmtot ke_orbit ke_spin pe te Lorbit Lspin Lescape Mescape Ecollisions Euntracked lbeg maxid pl_adds pltpenc_list plplenc_list irec Type-Bound Procedures discard conservation_report dump read_frame write_frame step_spin set_msys get_energy_and_momentum rescale validate_ids write_discard initialize step interp set_recur_levels recursive_step reset Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure class( swiftest_pl ), public, allocatable :: pl_discards Discarded massive body particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number class( symba_merger ), public, allocatable :: pl_adds List of added bodies in mergers or collisions class( symba_pltpenc ), public, allocatable :: pltpenc_list List of massive body-test particle encounters in a single step class( symba_plplenc ), public, allocatable :: plplenc_list List of massive body-massive body encounters in a single step integer(kind=I4B), public :: irec System recursion level Type-Bound Procedures procedure, public :: discard => discard_system Perform a discard step on the system interface public module subroutine discard_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time interface public module subroutine io_conservation_report(self, param, lterminal) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen procedure, public :: dump => io_dump_system Dump the state of the system to a file interface public module subroutine io_dump_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file interface public module subroutine io_read_frame_system(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file interface public module subroutine io_write_frame_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. interface public module subroutine tides_step_spin_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. interface public module subroutine util_set_msys(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum interface public module subroutine util_get_energy_momentum_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: rescale => util_rescale_system Rescales the system into a new set of units interface public module subroutine util_rescale_system(self, param, mscale, dscale, tscale) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters. Returns with new values of the scale vactors and GU real(kind=DP), intent(in) :: mscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: dscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: tscale Scale factors for mass, distance, and time units, respectively. procedure, public :: validate_ids => util_valid_id_system Validate the numerical ids passed to the system and save the maximum value interface public module subroutine util_valid_id_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_discard => symba_io_write_discard Write out information about discarded and merged planets and test particles in SyMBA interface public module subroutine symba_io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => symba_setup_initialize_system Performs SyMBA-specific initilization steps interface public module subroutine symba_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: step => symba_step_system Advance the SyMBA nbody system forward in time by one step interface public module subroutine symba_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: interp => symba_step_interp_system Perform an interpolation step on the SymBA nbody system interface public module subroutine symba_step_interp_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: set_recur_levels => symba_step_set_recur_levels_system Sets recursion levels of bodies and encounter lists to the current system level interface public module subroutine symba_step_set_recur_levels_system(self, ireci) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system objec integer(kind=I4B), intent(in) :: ireci Input recursion level procedure, public :: recursive_step => symba_step_recur_system Step interacting planets and active test particles ahead in democratic heliocentric coordinates at the current recursion level, if applicable, and descend to the next deeper level if necessary interface public recursive module subroutine symba_step_recur_system(self, param, t, ireci) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), value :: t integer(kind=I4B), value :: ireci input recursion level procedure, public :: reset => symba_step_reset_system Resets pl, tp,and encounter structures at the start of a new step interface public module subroutine symba_step_reset_system(self) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object","tags":"","loc":"type/symba_nbody_system.html"},{"title":"swiftest_parameters – swiftest ","text":"type, public :: swiftest_parameters User defined parameters that are read in from the parameters input file. \n    Each paramter is initialized to a default values. Inherited by type~~swiftest_parameters~~InheritedByGraph type~swiftest_parameters swiftest_parameters type~symba_parameters symba_parameters type~symba_parameters->type~swiftest_parameters Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables integrator nplmax ntpmax t0 t tstop dt incbfile inplfile intpfile in_type istep_out outfile out_type out_form out_stat istep_dump rmin rmax rmaxu qmin qmin_coord qmin_alo qmin_ahi enc_out discard_out MU2KG TU2S DU2M GU inv_c2 energy_out lrhill_present lextra_force lbig_discard lclose lenergy loblatecb lrotation ltides Eorbit_orig Mtot_orig Lmag_orig Ltot_orig Lorbit_orig Lspin_orig Ltot Lescape Mescape Ecollisions Euntracked lfirstenergy lfirstkick lrestart lgr lyarkovsky lyorp Type-Bound Procedures reader writer dump read_from_file Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: integrator = UNKNOWN_INTEGRATOR Symbolic name of the nbody integrator  used integer(kind=I4B), public :: nplmax = -1 Maximum allowed number of massive bodies integer(kind=I4B), public :: ntpmax = -1 Maximum allowed number of test particles real(kind=DP), public :: t0 = -1.0_DP Integration start time real(kind=DP), public :: t = -1.0_DP Integration current time real(kind=DP), public :: tstop = -1.0_DP Integration stop time real(kind=DP), public :: dt = -1.0_DP Time step character(len=STRMAX), public :: incbfile = CB_INFILE Name of input file for the central body character(len=STRMAX), public :: inplfile = PL_INFILE Name of input file for massive bodies character(len=STRMAX), public :: intpfile = TP_INFILE Name of input file for test particles character(len=STRMAX), public :: in_type = ASCII_TYPE Format of input data files integer(kind=I4B), public :: istep_out = -1 Number of time steps between binary outputs character(len=STRMAX), public :: outfile = BIN_OUTFILE Name of output binary file character(len=STRMAX), public :: out_type = REAL8_TYPE Binary format of output file character(len=STRMAX), public :: out_form = XV Data to write to output file character(len=STRMAX), public :: out_stat = 'NEW' Open status for output binary file integer(kind=I4B), public :: istep_dump = -1 Number of time steps between dumps real(kind=DP), public :: rmin = -1.0_DP Minimum heliocentric radius for test particle real(kind=DP), public :: rmax = -1.0_DP Maximum heliocentric radius for test particle real(kind=DP), public :: rmaxu = -1.0_DP Maximum unbound heliocentric radius for test particle real(kind=DP), public :: qmin = -1.0_DP Minimum pericenter distance for test particle character(len=STRMAX), public :: qmin_coord = 'HELIO' Coordinate frame to use for qmin real(kind=DP), public :: qmin_alo = -1.0_DP Minimum semimajor axis for qmin real(kind=DP), public :: qmin_ahi = -1.0_DP Maximum semimajor axis for qmin character(len=STRMAX), public :: enc_out = \"\" Name of output file for encounters character(len=STRMAX), public :: discard_out = \"\" Name of output file for discards real(kind=QP), public :: MU2KG = -1.0_QP Converts mass units to grams real(kind=QP), public :: TU2S = -1.0_QP Converts time units to seconds real(kind=QP), public :: DU2M = -1.0_QP Converts distance unit to centimeters real(kind=DP), public :: GU = -1.0_DP Universal gravitational constant in the system units real(kind=DP), public :: inv_c2 = -1.0_DP Inverse speed of light squared in the system units character(len=STRMAX), public :: energy_out = \"\" Name of output energy and momentum report file logical, public :: lrhill_present = .false. Hill radii are given as an input rather than calculated by the code (can be used to inflate close encounter regions manually) logical, public :: lextra_force = .false. User defined force function turned on logical, public :: lbig_discard = .false. Save big bodies on every discard logical, public :: lclose = .false. Turn on close encounters logical, public :: lenergy = .false. Track the total energy of the system logical, public :: loblatecb = .false. Calculate acceleration from oblate central body (automatically turns true if nonzero J2 is input) logical, public :: lrotation = .false. Include rotation states of big bodies logical, public :: ltides = .false. Include tidal dissipation real(kind=DP), public :: Eorbit_orig = 0.0_DP Initial orbital energy real(kind=DP), public :: Mtot_orig = 0.0_DP Initial system mass real(kind=DP), public :: Lmag_orig = 0.0_DP Initial total angular momentum magnitude real(kind=DP), public, dimension(NDIM) :: Ltot_orig = 0.0_DP Initial total angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lorbit_orig = 0.0_DP Initial orbital angular momentum real(kind=DP), public, dimension(NDIM) :: Lspin_orig = 0.0_DP Initial spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Ltot = 0.0_DP System angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lfirstenergy = .true. This is the first time computing energe logical, public :: lfirstkick = .true. Initiate the first kick in a symplectic step logical, public :: lrestart = .false. Indicates whether or not this is a restarted run logical, public :: lgr = .false. Turn on GR logical, public :: lyarkovsky = .false. Turn on Yarkovsky effect logical, public :: lyorp = .false. Turn on YORP effect Type-Bound Procedures procedure, public :: reader => io_param_reader interface public module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Collection of parameters integer(kind=I4B), intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer(kind=I4B), intent(in) :: v_list (:) The first element passes the integrator code to the reader integer(kind=I4B), intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 procedure, public :: writer => io_param_writer interface public module subroutine io_param_writer(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Collection of parameters integer(kind=I4B), intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer(kind=I4B), intent(in) :: v_list (:) Not used in this procedure integer(kind=I4B), intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 procedure, public :: dump => io_dump_param interface public module subroutine io_dump_param(self, param_file_name) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Output collection of parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) procedure, public :: read_from_file => io_read_param_in interface public module subroutine io_read_param_in(self, param_file_name) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Current run configuration parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in)","tags":"","loc":"type/swiftest_parameters.html"},{"title":"swiftest_base – swiftest ","text":"type, public, abstract :: swiftest_base An superclass for a generic Swiftest object\n The minimal methods that all systems must have Inherited by type~~swiftest_base~~InheritedByGraph type~swiftest_base swiftest_base type~swiftest_nbody_system swiftest_nbody_system type~swiftest_nbody_system->type~swiftest_base type~swiftest_cb swiftest_cb type~swiftest_nbody_system->type~swiftest_cb cb type~swiftest_tp swiftest_tp type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~swiftest_pl swiftest_pl type~swiftest_nbody_system->type~swiftest_pl pl, pl_discards type~swiftest_body swiftest_body type~swiftest_body->type~swiftest_base type~swiftest_cb->type~swiftest_base type~helio_cb helio_cb type~helio_cb->type~swiftest_cb type~whm_cb whm_cb type~whm_cb->type~swiftest_cb type~swiftest_tp->type~swiftest_body type~whm_nbody_system whm_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~swiftest_pl->type~swiftest_body type~whm_tp whm_tp type~whm_tp->type~swiftest_tp type~helio_tp helio_tp type~helio_tp->type~swiftest_tp type~rmvs_nbody_system rmvs_nbody_system type~rmvs_nbody_system->type~whm_nbody_system type~rmvs_cb rmvs_cb type~rmvs_cb->type~whm_cb type~whm_pl whm_pl type~whm_pl->type~swiftest_pl type~symba_cb symba_cb type~symba_cb->type~helio_cb type~helio_nbody_system helio_nbody_system type~helio_nbody_system->type~whm_nbody_system type~helio_pl helio_pl type~helio_pl->type~swiftest_pl type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_nbody_system type~symba_merger symba_merger type~symba_nbody_system->type~symba_merger pl_adds type~rmvs_tp rmvs_tp type~rmvs_tp->type~whm_tp type~rmvs_tp->type~rmvs_cb cb_heliocentric type~rmvs_pl rmvs_pl type~rmvs_pl->type~rmvs_nbody_system planetocentric type~rmvs_pl->type~whm_pl type~symba_tp symba_tp type~symba_tp->type~helio_tp type~symba_pl symba_pl type~symba_pl->type~helio_pl type~symba_merger->type~symba_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate Type-Bound Procedures dump initialize read_frame write_frame Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure( abstract_initialize ), public, deferred :: initialize subroutine abstract_initialize(self, param) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure( abstract_read_frame ), public, deferred :: read_frame subroutine abstract_read_frame(self, iu, param, form, ierr) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure( abstract_write_frame ), public, deferred :: write_frame subroutine abstract_write_frame(self, iu, param) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/swiftest_base.html"},{"title":"swiftest_cb – swiftest ","text":"type, public, abstract, extends( swiftest_base ) :: swiftest_cb A concrete lass for the central body in a Swiftest simulation Inherits type~~swiftest_cb~~InheritsGraph type~swiftest_cb swiftest_cb type~swiftest_base swiftest_base type~swiftest_cb->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~swiftest_cb~~InheritedByGraph type~swiftest_cb swiftest_cb type~helio_cb helio_cb type~helio_cb->type~swiftest_cb type~whm_cb whm_cb type~whm_cb->type~swiftest_cb type~swiftest_nbody_system swiftest_nbody_system type~swiftest_nbody_system->type~swiftest_cb cb type~symba_cb symba_cb type~symba_cb->type~helio_cb type~rmvs_cb rmvs_cb type~rmvs_cb->type~whm_cb type~whm_nbody_system whm_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~helio_nbody_system helio_nbody_system type~helio_nbody_system->type~whm_nbody_system type~rmvs_tp rmvs_tp type~rmvs_tp->type~rmvs_cb cb_heliocentric type~rmvs_nbody_system rmvs_nbody_system type~rmvs_nbody_system->type~whm_nbody_system type~rmvs_pl rmvs_pl type~rmvs_pl->type~rmvs_nbody_system planetocentric type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_nbody_system Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate name id mass Gmass radius density j2rp2 j4rp4 aobl atide aoblbeg aoblend atidebeg atideend xb vb agr Ip rot k2 Q tlag L0 dL Type-Bound Procedures dump initialize read_frame write_frame Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data interface public module subroutine io_read_cb_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body interface public module subroutine io_read_frame_cb(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_cb(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/swiftest_cb.html"},{"title":"swiftest_body – swiftest ","text":"type, public, abstract, extends( swiftest_base ) :: swiftest_body An abstract class for a generic collection of Swiftest bodies\n Superclass that defines the generic elements of a Swiftest particle Inherits type~~swiftest_body~~InheritsGraph type~swiftest_body swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~swiftest_body~~InheritedByGraph type~swiftest_body swiftest_body type~swiftest_tp swiftest_tp type~swiftest_tp->type~swiftest_body type~swiftest_pl swiftest_pl type~swiftest_pl->type~swiftest_body type~whm_tp whm_tp type~whm_tp->type~swiftest_tp type~helio_tp helio_tp type~helio_tp->type~swiftest_tp type~whm_pl whm_pl type~whm_pl->type~swiftest_pl type~swiftest_nbody_system swiftest_nbody_system type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~swiftest_nbody_system->type~swiftest_pl pl, pl_discards type~helio_pl helio_pl type~helio_pl->type~swiftest_pl type~rmvs_tp rmvs_tp type~rmvs_tp->type~whm_tp type~rmvs_pl rmvs_pl type~rmvs_pl->type~whm_pl type~rmvs_nbody_system rmvs_nbody_system type~rmvs_pl->type~rmvs_nbody_system planetocentric type~symba_tp symba_tp type~symba_tp->type~helio_tp type~whm_nbody_system whm_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~symba_pl symba_pl type~symba_pl->type~helio_pl type~helio_nbody_system helio_nbody_system type~helio_nbody_system->type~whm_nbody_system type~symba_merger symba_merger type~symba_merger->type~symba_pl type~rmvs_nbody_system->type~whm_nbody_system type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_nbody_system type~symba_nbody_system->type~symba_merger pl_adds Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm Type-Bound Procedures dump discard kick set_mu step accel drift v2pv pv2v initialize read_frame write_frame accel_obl el2xv xv2el setup accel_user append fill resize set_ir3 sort rearrange spill Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure( abstract_discard_body ), public, deferred :: discard subroutine abstract_discard_body(self, system, param) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure( abstract_kick_body ), public, deferred :: kick subroutine abstract_kick_body(self, system, param, t, dt, lbeg) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system objec class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure( abstract_set_mu ), public, deferred :: set_mu subroutine abstract_set_mu(self, cb) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure( abstract_step_body ), public, deferred :: step subroutine abstract_step_body(self, system, param, t, dt) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure( abstract_accel ), public, deferred :: accel subroutine abstract_accel(self, system, param, t, lbeg) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables interface public module subroutine drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: accel_obl => obl_acc_body Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_body(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: setup => setup_body A constructor that sets the number of bodies and allocates all allocatable arrays interface public module subroutine setup_body(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: append => util_append_body Appends elements from one structure to another interface public module subroutine util_append_body(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: fill => util_fill_body \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine util_fill_body(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: resize => util_resize_body Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine util_resize_body(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: sort => util_sort_body Sorts body arrays by a sortable componen interface public module subroutine util_sort_body(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => util_sort_rearrange_body Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine util_sort_rearrange_body(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => util_spill_body \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine util_spill_body(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"type/swiftest_body.html"},{"title":"swiftest_pl – swiftest ","text":"type, public, abstract, extends( swiftest_body ) :: swiftest_pl An abstract class for a generic collection of Swiftest massive bodies\n Superclass that defines the generic elements of a Swiftest particle Inherits type~~swiftest_pl~~InheritsGraph type~swiftest_pl swiftest_pl type~swiftest_body swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~swiftest_pl~~InheritedByGraph type~swiftest_pl swiftest_pl type~helio_pl helio_pl type~helio_pl->type~swiftest_pl type~whm_pl whm_pl type~whm_pl->type~swiftest_pl type~swiftest_nbody_system swiftest_nbody_system type~swiftest_nbody_system->type~swiftest_pl pl, pl_discards type~rmvs_pl rmvs_pl type~rmvs_pl->type~whm_pl type~rmvs_nbody_system rmvs_nbody_system type~rmvs_pl->type~rmvs_nbody_system planetocentric type~whm_nbody_system whm_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~symba_pl symba_pl type~symba_pl->type~helio_pl type~helio_nbody_system helio_nbody_system type~helio_nbody_system->type~whm_nbody_system type~symba_merger symba_merger type~symba_merger->type~symba_pl type~rmvs_nbody_system->type~whm_nbody_system type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_nbody_system type~symba_nbody_system->type~symba_merger pl_adds Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm mass Gmass rhill radius xbeg xend vbeg density Ip rot k2 Q tlag k_plpl nplpl Type-Bound Procedures dump kick step accel drift v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 discard eucl_index accel_int accel_obl setup accel_tides append h2b b2h fill resize set_beg_end set_mu set_rhill sort rearrange spill Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure( abstract_kick_body ), public, deferred :: kick subroutine abstract_kick_body(self, system, param, t, dt, lbeg) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system objec class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure( abstract_step_body ), public, deferred :: step subroutine abstract_step_body(self, system, param, t, dt) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure( abstract_accel ), public, deferred :: accel subroutine abstract_accel(self, system, param, t, lbeg) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables interface public module subroutine drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies interface public module subroutine discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix interface public module subroutine eucl_dist_index_plpl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies interface public pure module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: setup => setup_pl A base constructor that sets the number of bodies and allocates and initializes all arrays interface public module subroutine setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body interface public module subroutine tides_kick_getacch_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: append => util_append_pl Appends elements from one structure to another interface public module subroutine util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: fill => util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: resize => util_resize_pl Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. interface public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg Position vectors at beginning of step real(kind=DP), intent(in), optional dimension(:,:) :: xend Positions vectors at end of step real(kind=DP), intent(in), optional dimension(:,:) :: vbeg vbeg is an unused variable to keep this method forward compatible with RMVS procedure, public :: set_mu => util_set_mu_pl Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body interface public module subroutine util_set_rhill(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: sort => util_sort_pl Sorts body arrays by a sortable component interface public module subroutine util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"type/swiftest_pl.html"},{"title":"swiftest_tp – swiftest ","text":"type, public, abstract, extends( swiftest_body ) :: swiftest_tp An abstract class for a generic collection of Swiftest test particles\n Superclass that defines the generic elements of a Swiftest test particle Inherits type~~swiftest_tp~~InheritsGraph type~swiftest_tp swiftest_tp type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_base swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~swiftest_tp~~InheritedByGraph type~swiftest_tp swiftest_tp type~whm_tp whm_tp type~whm_tp->type~swiftest_tp type~helio_tp helio_tp type~helio_tp->type~swiftest_tp type~swiftest_nbody_system swiftest_nbody_system type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~whm_nbody_system whm_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~rmvs_tp rmvs_tp type~rmvs_tp->type~whm_tp type~symba_tp symba_tp type~symba_tp->type~helio_tp type~helio_nbody_system helio_nbody_system type~helio_nbody_system->type~whm_nbody_system type~rmvs_nbody_system rmvs_nbody_system type~rmvs_nbody_system->type~whm_nbody_system type~rmvs_pl rmvs_pl type~rmvs_pl->type~rmvs_nbody_system planetocentric type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_nbody_system Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate lfirst nbody name id status ldiscard lmask mu xh vh xb vb ah aobl atide agr ir3h a e inc capom omega capm isperi peri atp Type-Bound Procedures dump kick step accel drift v2pv pv2v initialize read_frame write_frame el2xv xv2el accel_user set_ir3 discard accel_int accel_obl setup append h2b b2h fill get_peri resize set_mu sort rearrange spill Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_swiftest interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure( abstract_kick_body ), public, deferred :: kick subroutine abstract_kick_body(self, system, param, t, dt, lbeg) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system objec class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. procedure( abstract_step_body ), public, deferred :: step subroutine abstract_step_body(self, system, param, t, dt) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure( abstract_accel ), public, deferred :: accel subroutine abstract_accel(self, system, param, t, lbeg) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables interface public module subroutine drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object procedure, public :: discard => discard_tp Check to see if test particles should be discarded based on their positions relative to the massive bodies interface public module subroutine discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies interface public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body interface public module subroutine obl_acc_tp(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object procedure, public :: setup => setup_tp A base constructor that sets the number of bodies and interface public module subroutine setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parametersr procedure, public :: append => util_append_tp Appends elements from one structure to another interface public module subroutine util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) interface public module subroutine util_coord_h2b_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) interface public module subroutine util_coord_b2h_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object procedure, public :: fill => util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) interface public module subroutine util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles interface public module subroutine util_peri_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: resize => util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. interface public module subroutine util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: nnew New size neded procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass interface public module subroutine util_set_mu_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object procedure, public :: sort => util_sort_tp Sorts body arrays by a sortable component interface public module subroutine util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order procedure, public :: rearrange => util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods interface public module subroutine util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) procedure, public :: spill => util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"type/swiftest_tp.html"},{"title":"swiftest_nbody_system – swiftest ","text":"type, public, abstract, extends( swiftest_base ) :: swiftest_nbody_system An abstract class for a basic Swiftest nbody system \n  This superclass contains a minimial system of a set of test particles (tp), massive bodies (pl), and a central body (cb) Inherits type~~swiftest_nbody_system~~InheritsGraph type~swiftest_nbody_system swiftest_nbody_system type~swiftest_tp swiftest_tp type~swiftest_nbody_system->type~swiftest_tp tp, tp_discards type~swiftest_base swiftest_base type~swiftest_nbody_system->type~swiftest_base type~swiftest_pl swiftest_pl type~swiftest_nbody_system->type~swiftest_pl pl, pl_discards type~swiftest_cb swiftest_cb type~swiftest_nbody_system->type~swiftest_cb cb type~swiftest_body swiftest_body type~swiftest_tp->type~swiftest_body type~swiftest_pl->type~swiftest_body type~swiftest_cb->type~swiftest_base type~swiftest_body->type~swiftest_base Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Inherited by type~~swiftest_nbody_system~~InheritedByGraph type~swiftest_nbody_system swiftest_nbody_system type~whm_nbody_system whm_nbody_system type~whm_nbody_system->type~swiftest_nbody_system type~helio_nbody_system helio_nbody_system type~helio_nbody_system->type~whm_nbody_system type~rmvs_nbody_system rmvs_nbody_system type~rmvs_nbody_system->type~whm_nbody_system type~rmvs_pl rmvs_pl type~rmvs_pl->type~rmvs_nbody_system planetocentric type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~helio_nbody_system Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lintegrate cb pl tp tp_discards pl_discards Gmtot ke_orbit ke_spin pe te Lorbit Lspin Lescape Mescape Ecollisions Euntracked lbeg maxid Type-Bound Procedures step discard conservation_report dump read_frame write_discard write_frame initialize step_spin set_msys get_energy_and_momentum rescale validate_ids Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure class( swiftest_pl ), public, allocatable :: pl_discards Discarded massive body particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number Type-Bound Procedures procedure( abstract_step_system ), public, deferred :: step Each integrator will have its own version of the step subroutine abstract_step_system(self, param, t, dt) Prototype Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: discard => discard_system Perform a discard step on the system interface public module subroutine discard_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time interface public module subroutine io_conservation_report(self, param, lterminal) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen procedure, public :: dump => io_dump_system Dump the state of the system to a file interface public module subroutine io_dump_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file interface public module subroutine io_read_frame_system(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code procedure, public :: write_discard => io_write_discard Write out information about discarded test particles interface public module subroutine io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file interface public module subroutine io_write_frame_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: initialize => setup_initialize_system Initialize the system from input files interface public module subroutine setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. interface public module subroutine tides_step_spin_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. interface public module subroutine util_set_msys(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum interface public module subroutine util_get_energy_momentum_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters procedure, public :: rescale => util_rescale_system Rescales the system into a new set of units interface public module subroutine util_rescale_system(self, param, mscale, dscale, tscale) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters. Returns with new values of the scale vactors and GU real(kind=DP), intent(in) :: mscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: dscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: tscale Scale factors for mass, distance, and time units, respectively. procedure, public :: validate_ids => util_valid_id_system Validate the numerical ids passed to the system and save the maximum value interface public module subroutine util_valid_id_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"type/swiftest_nbody_system.html"},{"title":"swiftest_encounter – swiftest ","text":"type, public :: swiftest_encounter Inherited by type~~swiftest_encounter~~InheritedByGraph type~swiftest_encounter swiftest_encounter type~symba_pltpenc symba_pltpenc type~symba_pltpenc->type~swiftest_encounter type~symba_nbody_system symba_nbody_system type~symba_nbody_system->type~symba_pltpenc pltpenc_list type~symba_plplenc symba_plplenc type~symba_nbody_system->type~symba_plplenc plplenc_list type~symba_plplenc->type~symba_pltpenc Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables nenc lvdotr status index1 index2 x1 x2 v1 v2 Type-Bound Procedures setup copy spill resize Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: nenc Total number of encounters logical, public, dimension(:), allocatable :: lvdotr relative vdotr flag integer(kind=I4B), public, dimension(:), allocatable :: status status of the interaction integer(kind=I4B), public, dimension(:), allocatable :: index1 position of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: index2 position of the second body in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x1 the position of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x2 the position of body 2 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v1 the velocity of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v2 the velocity of body 2 in the encounter Type-Bound Procedures procedure, public :: setup => setup_encounter A constructor that sets the number of encounters and allocates and initializes all arrays interface public module subroutine setup_encounter(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for procedure, public :: copy => util_copy_encounter Copies elements from the source encounter list into self. interface public module subroutine util_copy_encounter(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into procedure, public :: spill => util_spill_encounter \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) interface public module subroutine util_spill_encounter(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list procedure, public :: resize => util_resize_encounter Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small. interface public module subroutine util_resize_encounter(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list integer(kind=I4B), intent(in) :: nnew New size of list needed","tags":"","loc":"type/swiftest_encounter.html"},{"title":"lambda_obj – swiftest ","text":"type, public :: lambda_obj Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers Inherited by type~~lambda_obj~~InheritedByGraph type~lambda_obj lambda_obj type~lambda_obj_tvar lambda_obj_tvar type~lambda_obj_tvar->type~lambda_obj type~lambda_obj_err lambda_obj_err type~lambda_obj_err->type~lambda_obj Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lambdaptr lastval lastarg Constructor lambda_obj Finalization Procedures lambda_destroy Type-Bound Procedures init eval lambda_init_0 Components Type Visibility Attributes Name Initial procedure( lambda0 ), public, pointer, nopass :: lambdaptr => null() real(kind=DP), public :: lastval real(kind=DP), public, dimension(:), allocatable :: lastarg Constructor public interface lambda_obj public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) public function lambda_init_0_err (lambda, lerr) Arguments Type Intent Optional Attributes Name procedure( lambda0err ) :: lambda logical, intent(in) :: lerr Return Value type( lambda_obj_err ) public function lambda_init_tvar (lambda, t) Arguments Type Intent Optional Attributes Name procedure( lambda0tvar ) :: lambda real(kind=DP), intent(in) :: t Return Value type( lambda_obj_tvar ) Finalization Procedures final :: lambda_destroy public subroutine lambda_destroy (self) Arguments Type Intent Optional Attributes Name type( lambda_obj ) :: self Type-Bound Procedures generic, public :: init => lambda_init_0 public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) procedure, public :: eval => lambda_eval_0 public function lambda_eval_0 (self, x) result(y) Arguments Type Intent Optional Attributes Name class( lambda_obj ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x Return Value real(kind=DP) procedure, public, nopass :: lambda_init_0 public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj )","tags":"","loc":"type/lambda_obj.html"},{"title":"lambda_obj_err – swiftest ","text":"type, public, extends( lambda_obj ) :: lambda_obj_err Extended class for an lambda function object. This object takes allows for the return of a logical error flag during evaluation of the function. Inherits type~~lambda_obj_err~~InheritsGraph type~lambda_obj_err lambda_obj_err type~lambda_obj lambda_obj type~lambda_obj_err->type~lambda_obj Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lambdaptr lastval lastarg lambdaptr_err lerr Type-Bound Procedures lambda_init_0 init eval lambda_init_0_err Components Type Visibility Attributes Name Initial procedure( lambda0 ), public, pointer, nopass :: lambdaptr => null() real(kind=DP), public :: lastval real(kind=DP), public, dimension(:), allocatable :: lastarg procedure( lambda0err ), public, pointer, nopass :: lambdaptr_err => null() logical, public :: lerr Type-Bound Procedures procedure, public, nopass :: lambda_init_0 public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) generic, public :: init => lambda_init_0 , lambda_init_0_err public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) public function lambda_init_0_err (lambda, lerr) Arguments Type Intent Optional Attributes Name procedure( lambda0err ) :: lambda logical, intent(in) :: lerr Return Value type( lambda_obj_err ) procedure, public :: eval => lambda_eval_0_err public function lambda_eval_0_err (self, x) result(y) Arguments Type Intent Optional Attributes Name class( lambda_obj_err ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x Return Value real(kind=DP) procedure, public, nopass :: lambda_init_0_err public function lambda_init_0_err (lambda, lerr) Arguments Type Intent Optional Attributes Name procedure( lambda0err ) :: lambda logical, intent(in) :: lerr Return Value type( lambda_obj_err )","tags":"","loc":"type/lambda_obj_err.html"},{"title":"lambda_obj_tvar – swiftest ","text":"type, public, extends( lambda_obj ) :: lambda_obj_tvar Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers Inherits type~~lambda_obj_tvar~~InheritsGraph type~lambda_obj_tvar lambda_obj_tvar type~lambda_obj lambda_obj type~lambda_obj_tvar->type~lambda_obj Help × Graph Key Nodes of different colours represent the following: Graph Key Type Type This Page's Entity This Page's Entity Solid arrows point from a derived type to the parent type which it\n    extends. Dashed arrows point from a derived type to the other\n    types it contains as a components, with a label listing the name(s) of\n    said component(s). Contents Variables lambdaptr lastval lastarg lambdaptr_tvar Type-Bound Procedures eval lambda_init_0 init evalt lambda_init_tvar Components Type Visibility Attributes Name Initial procedure( lambda0 ), public, pointer, nopass :: lambdaptr => null() real(kind=DP), public :: lastval real(kind=DP), public, dimension(:), allocatable :: lastarg procedure( lambda0tvar ), public, pointer, nopass :: lambdaptr_tvar => null() Type-Bound Procedures procedure, public :: eval => lambda_eval_0 public function lambda_eval_0 (self, x) result(y) Arguments Type Intent Optional Attributes Name class( lambda_obj ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x Return Value real(kind=DP) procedure, public, nopass :: lambda_init_0 public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) generic, public :: init => lambda_init_0 , lambda_init_tvar public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) public function lambda_init_tvar (lambda, t) Arguments Type Intent Optional Attributes Name procedure( lambda0tvar ) :: lambda real(kind=DP), intent(in) :: t Return Value type( lambda_obj_tvar ) procedure, public :: evalt => lambda_eval_tvar public function lambda_eval_tvar (self, x, t) result(y) Arguments Type Intent Optional Attributes Name class( lambda_obj_tvar ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t Return Value real(kind=DP),\n  dimension(:), allocatable procedure, public, nopass :: lambda_init_tvar public function lambda_init_tvar (lambda, t) Arguments Type Intent Optional Attributes Name procedure( lambda0tvar ) :: lambda real(kind=DP), intent(in) :: t Return Value type( lambda_obj_tvar )","tags":"","loc":"type/lambda_obj_tvar.html"},{"title":"tidederiv – swiftest","text":"abstract interface function tidederiv(x, t, dt, xbeg, xend) result(y) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t real(kind=DP), intent(in) :: dt real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value real(kind=DP),\n  dimension(:),allocatable","tags":"","loc":"interface/tidederiv.html"},{"title":"abstract_discard_body – swiftest","text":"abstract interface public subroutine abstract_discard_body(self, system, param) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/abstract_discard_body.html"},{"title":"abstract_accel – swiftest","text":"abstract interface public subroutine abstract_accel(self, system, param, t, lbeg) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/abstract_accel.html"},{"title":"abstract_initialize – swiftest","text":"abstract interface public subroutine abstract_initialize(self, param) Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/abstract_initialize.html"},{"title":"abstract_kick_body – swiftest","text":"abstract interface public subroutine abstract_kick_body(self, system, param, t, dt, lbeg) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system objec class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not.","tags":"","loc":"interface/abstract_kick_body.html"},{"title":"abstract_read_frame – swiftest","text":"abstract interface public subroutine abstract_read_frame(self, iu, param, form, ierr) Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code","tags":"","loc":"interface/abstract_read_frame.html"},{"title":"abstract_set_mu – swiftest","text":"abstract interface public subroutine abstract_set_mu(self, cb) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/abstract_set_mu.html"},{"title":"abstract_step_body – swiftest","text":"abstract interface public subroutine abstract_step_body(self, system, param, t, dt) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/abstract_step_body.html"},{"title":"abstract_step_system – swiftest","text":"abstract interface public subroutine abstract_step_system(self, param, t, dt) Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/abstract_step_system.html"},{"title":"abstract_write_frame – swiftest","text":"abstract interface public subroutine abstract_write_frame(self, iu, param) Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/abstract_write_frame.html"},{"title":"lambda0 – swiftest","text":"abstract interface public function lambda0(x) result(y) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: x Return Value real(kind=DP)","tags":"","loc":"interface/lambda0.html"},{"title":"lambda0err – swiftest","text":"abstract interface public function lambda0err(x, lerr) result(y) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: x logical, intent(out) :: lerr Return Value real(kind=DP)","tags":"","loc":"interface/lambda0err.html"},{"title":"lambda0tvar – swiftest","text":"abstract interface public function lambda0tvar(x, t) result(y) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t Return Value real(kind=DP),\n  dimension(:),allocatable","tags":"","loc":"interface/lambda0tvar.html"},{"title":"tides_spin_derivs – swiftest","text":"function tides_spin_derivs(rot_pl_cb, t, dt, xbeg, xend) result(drot) Need to add more arguments so we can pull in mass, radius, Ip, J2, etc...\n author: Jennifer L.L. Pouplin and David A. Minton function used to calculate the derivatives that are fed to the ODE solver Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: rot_pl_cb Array of rotations. The last element is the central body, and all others are massive bodies real(kind=DP), intent(in) :: t Current time, which is used to interpolate the massive body positions real(kind=DP), intent(in) :: dt Total step size real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value real(kind=DP),\n  dimension(:,:),allocatable Contents None","tags":"","loc":"proc/tides_spin_derivs.html"},{"title":"tides_derivs_eval – swiftest","text":"function tides_derivs_eval(self, x, t) result(y) Arguments Type Intent Optional Attributes Name class( tides_derivs_func ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t Return Value real(kind=DP),\n  dimension(:),allocatable Contents None","tags":"","loc":"proc/tides_derivs_eval.html"},{"title":"tides_derivs_init – swiftest","text":"function tides_derivs_init(lambda, dt, xbeg, xend) result(f) Arguments Type Intent Optional Attributes Name procedure( tidederiv ) :: lambda real(kind=DP), intent(in) :: dt real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value type( tides_derivs_func ) Called by proc~~tides_derivs_init~~CalledByGraph proc~tides_derivs_init tides_derivs_init interface~lambda_obj lambda_obj interface~lambda_obj->proc~tides_derivs_init Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/tides_derivs_init.html"},{"title":"lambda_obj – swiftest","text":"private interface lambda_obj Calls interface~~lambda_obj~~CallsGraph interface~lambda_obj lambda_obj proc~tides_derivs_init tides_derivs_init interface~lambda_obj->proc~tides_derivs_init Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Module Procedures tides_derivs_init Module Procedures function tides_derivs_init (lambda, dt, xbeg, xend) result(f) Arguments Type Intent Optional Attributes Name procedure( tidederiv ) :: lambda real(kind=DP), intent(in) :: dt real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value type( tides_derivs_func )","tags":"","loc":"interface/lambda_obj.html"},{"title":"orbel_flon – swiftest","text":"pure function orbel_flon(e, icapn) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: icapn Return Value real(kind=DP) Calls proc~~orbel_flon~~CallsGraph proc~orbel_flon orbel_flon 3 3 proc~orbel_flon->3 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_flon~~CalledByGraph proc~orbel_flon orbel_flon proc~orbel_fhybrid orbel_fhybrid proc~orbel_fhybrid->proc~orbel_flon proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_fhybrid proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_flon.html"},{"title":"orbel_fget – swiftest","text":"pure function orbel_fget(e, capn) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: capn Return Value real(kind=DP) Calls proc~~orbel_fget~~CallsGraph proc~orbel_fget orbel_fget proc~orbel_schget orbel_schget proc~orbel_fget->proc~orbel_schget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_fget~~CalledByGraph proc~orbel_fget orbel_fget proc~orbel_fhybrid orbel_fhybrid proc~orbel_fhybrid->proc~orbel_fget proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_fhybrid proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_fget.html"},{"title":"orbel_zget – swiftest","text":"pure function orbel_zget(iq) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: iq Return Value real(kind=DP) Called by proc~~orbel_zget~~CalledByGraph proc~orbel_zget orbel_zget proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_zget proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_zget.html"},{"title":"orbel_esolmd – swiftest","text":"pure function orbel_esolmd(e, m) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: m Return Value real(kind=DP) Calls proc~~orbel_esolmd~~CallsGraph proc~orbel_esolmd orbel_esolmd interface~orbel_scget orbel_scget proc~orbel_esolmd->interface~orbel_scget proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_esolmd~~CalledByGraph proc~orbel_esolmd orbel_esolmd proc~orbel_ehybrid orbel_ehybrid proc~orbel_ehybrid->proc~orbel_esolmd proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_ehybrid proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_esolmd.html"},{"title":"orbel_ehie – swiftest","text":"pure function orbel_ehie(e, im) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: im Return Value real(kind=DP) Calls proc~~orbel_ehie~~CallsGraph proc~orbel_ehie orbel_ehie interface~orbel_scget orbel_scget proc~orbel_ehie->interface~orbel_scget proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_ehie~~CalledByGraph proc~orbel_ehie orbel_ehie proc~orbel_ehybrid orbel_ehybrid proc~orbel_ehybrid->proc~orbel_ehie proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_ehybrid proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_ehie.html"},{"title":"orbel_eget – swiftest","text":"pure function orbel_eget(e, m) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: m Return Value real(kind=DP) Calls proc~~orbel_eget~~CallsGraph proc~orbel_eget orbel_eget interface~orbel_scget orbel_scget proc~orbel_eget->interface~orbel_scget proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_eget~~CalledByGraph proc~orbel_eget orbel_eget proc~orbel_ehybrid orbel_ehybrid proc~orbel_ehybrid->proc~orbel_eget proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_ehybrid proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_eget.html"},{"title":"orbel_ehybrid – swiftest","text":"pure function orbel_ehybrid(e, m) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: m Return Value real(kind=DP) Calls proc~~orbel_ehybrid~~CallsGraph proc~orbel_ehybrid orbel_ehybrid proc~orbel_esolmd orbel_esolmd proc~orbel_ehybrid->proc~orbel_esolmd proc~orbel_eget orbel_eget proc~orbel_ehybrid->proc~orbel_eget proc~orbel_ehie orbel_ehie proc~orbel_ehybrid->proc~orbel_ehie interface~orbel_scget orbel_scget proc~orbel_esolmd->interface~orbel_scget proc~orbel_eget->interface~orbel_scget proc~orbel_ehie->interface~orbel_scget proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_ehybrid~~CalledByGraph proc~orbel_ehybrid orbel_ehybrid proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_ehybrid proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_ehybrid.html"},{"title":"orbel_fhybrid – swiftest","text":"pure function orbel_fhybrid(e, n) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: n Return Value real(kind=DP) Calls proc~~orbel_fhybrid~~CallsGraph proc~orbel_fhybrid orbel_fhybrid proc~orbel_flon orbel_flon proc~orbel_fhybrid->proc~orbel_flon proc~orbel_fget orbel_fget proc~orbel_fhybrid->proc~orbel_fget 3 3 proc~orbel_flon->3 proc~orbel_schget orbel_schget proc~orbel_fget->proc~orbel_schget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_fhybrid~~CalledByGraph proc~orbel_fhybrid orbel_fhybrid proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_fhybrid proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_fhybrid.html"},{"title":"orbel_el2xv – swiftest","text":"pure subroutine orbel_el2xv(mu, a, ie, inc, capom, omega, capm, x, v) Compute osculating orbital elements from relative C)rtesian position and velocity\n  All angular measures are returned in radians\n      If inclination < TINY, longitude of the ascending node is arbitrarily set to 0 If eccentricity < sqrt ( TINY ), argument of pericenter is arbitrarily set to 0 ALGORITHM : See Fitzpatrick \"Principles of Cel. Mech.\" Adapted from Martin Duncan's el2xv.f\n DATE WRITTEN:  May 11, 1992.\n REVISIONS: May 26 - now use better Kepler solver for ellipses\n  and hyperbolae called EHYBRID.F and FHYBRID.F Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: a real(kind=DP), intent(in) :: ie real(kind=DP), intent(in) :: inc real(kind=DP), intent(in) :: capom real(kind=DP), intent(in) :: omega real(kind=DP), intent(in) :: capm real(kind=DP), intent(out), dimension(:) :: x real(kind=DP), intent(out), dimension(:) :: v Calls proc~~orbel_el2xv~~CallsGraph proc~orbel_el2xv orbel_el2xv proc~orbel_fhybrid orbel_fhybrid proc~orbel_el2xv->proc~orbel_fhybrid proc~orbel_ehybrid orbel_ehybrid proc~orbel_el2xv->proc~orbel_ehybrid interface~orbel_scget orbel_scget proc~orbel_el2xv->interface~orbel_scget proc~orbel_zget orbel_zget proc~orbel_el2xv->proc~orbel_zget proc~orbel_schget orbel_schget proc~orbel_el2xv->proc~orbel_schget proc~orbel_flon orbel_flon proc~orbel_fhybrid->proc~orbel_flon proc~orbel_fget orbel_fget proc~orbel_fhybrid->proc~orbel_fget proc~orbel_esolmd orbel_esolmd proc~orbel_ehybrid->proc~orbel_esolmd proc~orbel_eget orbel_eget proc~orbel_ehybrid->proc~orbel_eget proc~orbel_ehie orbel_ehie proc~orbel_ehybrid->proc~orbel_ehie proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget proc~orbel_esolmd->interface~orbel_scget 3 3 proc~orbel_flon->3 proc~orbel_eget->interface~orbel_scget proc~orbel_fget->proc~orbel_schget proc~orbel_ehie->interface~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_el2xv~~CalledByGraph proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_el2xv.html"},{"title":"orbel_schget – swiftest","text":"pure subroutine orbel_schget(angle, shx, chx) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: angle real(kind=DP), intent(out) :: shx real(kind=DP), intent(out) :: chx Called by proc~~orbel_schget~~CalledByGraph proc~orbel_schget orbel_schget proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->proc~orbel_schget proc~orbel_fhybrid orbel_fhybrid proc~orbel_el2xv->proc~orbel_fhybrid proc~orbel_fget orbel_fget proc~orbel_fget->proc~orbel_schget proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv proc~orbel_fhybrid->proc~orbel_fget interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_schget.html"},{"title":"orbel_xv2el – swiftest","text":"pure subroutine orbel_xv2el(mu, x, v, a, e, inc, capom, omega, capm) Compute osculating orbital elements from relative Cartesian position and velocity\n  All angular measures are returned in radians\n      If inclination < TINY, longitude of the ascending node is arbitrarily set to 0 If eccentricity < sqrt ( TINY ), argument of pericenter is arbitrarily set to 0 References : Danby , J . M . A . 1988 . Fundamentals of Celestial Mechanics , ( Willmann - Bell , Inc .), 201 - 206 . Fitzpatrick , P . M . 1970 . Principles of Celestial Mechanics , ( Academic Press ), 69 - 73 . Roy , A . E . 1982 . Orbital Motion , ( Adam Hilger , Ltd .), 75 - 95 Adapted from David E. Kaufmann's Swifter routine: orbel_xv2el.f90\n Adapted from Martin Duncan's Swift routine orbel_xv2el.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in), dimension(:) :: v real(kind=DP), intent(out) :: a real(kind=DP), intent(out) :: e real(kind=DP), intent(out) :: inc real(kind=DP), intent(out) :: capom real(kind=DP), intent(out) :: omega real(kind=DP), intent(out) :: capm Called by proc~~orbel_xv2el~~CalledByGraph proc~orbel_xv2el orbel_xv2el proc~orbel_xv2el_vec orbel_xv2el_vec proc~orbel_xv2el_vec->proc~orbel_xv2el interface~orbel_xv2el_vec orbel_xv2el_vec interface~orbel_xv2el_vec->proc~orbel_xv2el_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_xv2el.html"},{"title":"whm_kick_getacch_ah0 – swiftest","text":"function whm_kick_getacch_ah0(mu, xhp, n) result(ah0) Compute zeroth term heliocentric accelerations of planets Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu real(kind=DP), intent(in), dimension(:,:) :: xhp integer(kind=I4B), intent(in) :: n Return Value real(kind=DP),\n  dimension(NDIM) Called by proc~~whm_kick_getacch_ah0~~CalledByGraph proc~whm_kick_getacch_ah0 whm_kick_getacch_ah0 proc~whm_kick_getacch_pl whm_kick_getacch_pl proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah0 proc~whm_kick_getacch_tp whm_kick_getacch_tp proc~whm_kick_getacch_tp->proc~whm_kick_getacch_ah0 interface~whm_kick_getacch_pl whm_kick_getacch_pl interface~whm_kick_getacch_pl->proc~whm_kick_getacch_pl interface~whm_kick_getacch_tp whm_kick_getacch_tp interface~whm_kick_getacch_tp->proc~whm_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_kick_getacch_ah0.html"},{"title":"whm_kick_getacch_ah1 – swiftest","text":"pure subroutine whm_kick_getacch_ah1(cb, pl) Compute first term heliocentric accelerations of planets Adapted from Hal Levison's Swift routine getacch_ah1.f\n Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_ah1.f90 Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: cb WHM central body object class( whm_pl ), intent(inout) :: pl WHM massive body object Called by proc~~whm_kick_getacch_ah1~~CalledByGraph proc~whm_kick_getacch_ah1 whm_kick_getacch_ah1 proc~whm_kick_getacch_pl whm_kick_getacch_pl proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah1 interface~whm_kick_getacch_pl whm_kick_getacch_pl interface~whm_kick_getacch_pl->proc~whm_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_kick_getacch_ah1.html"},{"title":"whm_kick_getacch_ah2 – swiftest","text":"pure subroutine whm_kick_getacch_ah2(cb, pl) Compute second term heliocentric accelerations of planets Adapted from Hal Levison's Swift routine getacch_ah2.f\n Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_ah2.f90 Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: cb Swiftest central body object class( whm_pl ), intent(inout) :: pl WHM massive body object Called by proc~~whm_kick_getacch_ah2~~CalledByGraph proc~whm_kick_getacch_ah2 whm_kick_getacch_ah2 proc~whm_kick_getacch_pl whm_kick_getacch_pl proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah2 interface~whm_kick_getacch_pl whm_kick_getacch_pl interface~whm_kick_getacch_pl->proc~whm_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_kick_getacch_ah2.html"},{"title":"solve_wbs – swiftest","text":"function solve_wbs(u) result(x) Uses ieee_exceptions swiftest proc~~solve_wbs~~UsesGraph proc~solve_wbs solve_wbs ieee_exceptions ieee_exceptions proc~solve_wbs->ieee_exceptions module~swiftest swiftest proc~solve_wbs->module~swiftest module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Based on code available on Rosetta Code: https://rosettacode.org/wiki/Gaussian_elimination#Fortran Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:), allocatable :: u Return Value real(kind=QP),\n  dimension(:),allocatable Called by proc~~solve_wbs~~CalledByGraph proc~solve_wbs solve_wbs proc~util_solve_linear_system_d util_solve_linear_system_d proc~util_solve_linear_system_d->proc~solve_wbs proc~util_solve_linear_system_q util_solve_linear_system_q proc~util_solve_linear_system_q->proc~solve_wbs Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/solve_wbs.html"},{"title":"ge_wpp – swiftest","text":"function ge_wpp(A, b) result(u) Uses ieee_exceptions swiftest proc~~ge_wpp~~UsesGraph proc~ge_wpp ge_wpp ieee_exceptions ieee_exceptions proc~ge_wpp->ieee_exceptions module~swiftest swiftest proc~ge_wpp->module~swiftest module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Solve  Ax=b  using Gaussian elimination then backwards substitution.\n   A being an n by n matrix.\n   x and b are n by 1 vectors. \n Based on code available on Rosetta Code: https://rosettacode.org/wiki/Gaussian_elimination#Fortran Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:) :: b Return Value real(kind=QP),\n  dimension(:,:),allocatable Called by proc~~ge_wpp~~CalledByGraph proc~ge_wpp ge_wpp proc~util_solve_linear_system_d util_solve_linear_system_d proc~util_solve_linear_system_d->proc~ge_wpp proc~util_solve_linear_system_q util_solve_linear_system_q proc~util_solve_linear_system_q->proc~ge_wpp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/ge_wpp.html"},{"title":"discard_cb_tp – swiftest","text":"subroutine discard_cb_tp(tp, system, param) Check to see if test particles should be discarded based on their positions relative to the Sun\n        or because they are unbound from the system Adapted from David E. Kaufmann's Swifter routine: discard_sun.f90\n Adapted from Hal Levison's Swift routine discard_sun.f Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: tp Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Contents None","tags":"","loc":"proc/discard_cb_tp.html"},{"title":"discard_peri_tp – swiftest","text":"subroutine discard_peri_tp(tp, system, param) Check to see if a test particle should be discarded because its perihelion distance becomes too small Adapted from David E. Kaufmann's Swifter routine: discard_peri.f90\n Adapted from Hal Levison's Swift routine discard_peri.f Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: tp Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameterss Contents None","tags":"","loc":"proc/discard_peri_tp.html"},{"title":"discard_pl_tp – swiftest","text":"subroutine discard_pl_tp(tp, system, param) Check to see if test particles should be discarded based on their positions relative to the massive bodies Adapted from David E. Kaufmann's Swifter routine: discard_pl.f90\n Adapted from Hal Levison's Swift routine discard_pl.f Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: tp Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Contents None","tags":"","loc":"proc/discard_pl_tp.html"},{"title":"discard_pl_close – swiftest","text":"subroutine discard_pl_close(dx, dv, dt, r2crit, iflag, r2min) Check to see if a test particle and massive body are having, or will have within the next time step, an encounter such\n          that the separation distance r is less than some critical radius rcrit (or r 2 < rcrit 2 = r2crit) Adapted from David E. Kaufmann's Swifter routine: discard_pl_close.f90\n Adapted from Hal Levison's Swift routine discard_pl_close.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: dx real(kind=DP), intent(in), dimension(:) :: dv real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r2crit integer(kind=I4B), intent(out) :: iflag real(kind=DP), intent(out) :: r2min Contents None","tags":"","loc":"proc/discard_pl_close.html"},{"title":"io_read_encounter – swiftest","text":"function io_read_encounter(t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type) result(ierr) Read close encounter data from input binary files\n     Other than time t, there is no direct file input from this function\n     Function returns read error status (0 = OK, nonzero = ERROR)\n Adapted from David E. Kaufmann's Swifter routine: io_read_encounter.f90 Arguments Type Intent Optional Attributes Name real(kind=DP), intent(out) :: t integer(kind=I4B), intent(out) :: name1 integer(kind=I4B), intent(out) :: name2 real(kind=DP), intent(out) :: mass1 real(kind=DP), intent(out) :: mass2 real(kind=DP), intent(out) :: radius1 real(kind=DP), intent(out) :: radius2 real(kind=DP), intent(out), dimension(:) :: xh1 real(kind=DP), intent(out), dimension(:) :: xh2 real(kind=DP), intent(out), dimension(:) :: vh1 real(kind=DP), intent(out), dimension(:) :: vh2 character(len=*), intent(in) :: enc_out character(len=*), intent(in) :: out_type Return Value integer(kind=I4B) Calls proc~~io_read_encounter~~CallsGraph proc~io_read_encounter io_read_encounter interface~util_exit util_exit proc~io_read_encounter->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_read_encounter.html"},{"title":"io_read_hdr – swiftest","text":"function io_read_hdr(iu, t, npl, ntp, out_form, out_type) result(ierr) Read frame header from input binary files\n     Function returns read error status (0 = OK, nonzero = ERROR)\n Adapted from David E. Kaufmann's Swifter routine: io_read_hdr.f90\n Adapted from Hal Levison's Swift routine io_read_hdr.f Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: iu real(kind=DP), intent(out) :: t integer(kind=I4B), intent(out) :: npl integer(kind=I4B), intent(out) :: ntp character(len=*), intent(out) :: out_form character(len=*), intent(in) :: out_type Return Value integer(kind=I4B) Called by proc~~io_read_hdr~~CalledByGraph proc~io_read_hdr io_read_hdr proc~io_read_frame_system io_read_frame_system proc~io_read_frame_system->proc~io_read_hdr interface~io_read_frame_system io_read_frame_system interface~io_read_frame_system->proc~io_read_frame_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_read_hdr.html"},{"title":"io_write_hdr – swiftest","text":"subroutine io_write_hdr(iu, t, npl, ntp, out_form, out_type) Write frame header to output binary file Adapted from David Adapted from David E. Kaufmann's Swifter routine io_write_hdr.f90\n Adapted from Hal Levison's Swift routine io_write_hdr.F Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: iu Output file unit number real(kind=DP), intent(in) :: t Current time of simulation integer(kind=I4B), intent(in) :: npl Number of massive bodies integer(kind=I4B), intent(in) :: ntp Number of test particles character(len=*), intent(in) :: out_form Output format type (\"EL\" or  \"XV\") character(len=*), intent(in) :: out_type Output file format type (REAL4, REAL8 - see swiftest module for symbolic name definitions) Calls proc~~io_write_hdr~~CallsGraph proc~io_write_hdr io_write_hdr interface~util_exit util_exit proc~io_write_hdr->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_write_hdr~~CalledByGraph proc~io_write_hdr io_write_hdr proc~io_write_frame_system io_write_frame_system proc~io_write_frame_system->proc~io_write_hdr interface~io_write_frame_system io_write_frame_system interface~io_write_frame_system->proc~io_write_frame_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_write_hdr.html"},{"title":"drift_dan – swiftest","text":"pure subroutine drift_dan(mu, x0, v0, dt0, iflag) Perform Kepler drift, solving Kepler's equation in appropriate variables Adapted from David E. Kaufmann's Swifter routine: drift_dan.f90\n Adapted from Hal Levison and Martin Duncan's Swift routine drift_dan.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu real(kind=DP), intent(inout), dimension(:) :: x0 real(kind=DP), intent(inout), dimension(:) :: v0 real(kind=DP), intent(in) :: dt0 integer(kind=I4B), intent(out) :: iflag Calls proc~~drift_dan~~CallsGraph proc~drift_dan drift_dan proc~drift_kepu drift_kepu proc~drift_dan->proc~drift_kepu proc~drift_kepmd drift_kepmd proc~drift_dan->proc~drift_kepmd proc~drift_kepu_new drift_kepu_new proc~drift_kepu->proc~drift_kepu_new proc~drift_kepu_fchk drift_kepu_fchk proc~drift_kepu->proc~drift_kepu_fchk proc~drift_kepu_guess drift_kepu_guess proc~drift_kepu->proc~drift_kepu_guess proc~drift_kepu_lag drift_kepu_lag proc~drift_kepu->proc~drift_kepu_lag proc~drift_kepu_stumpff drift_kepu_stumpff proc~drift_kepu_new->proc~drift_kepu_stumpff proc~drift_kepu_fchk->proc~drift_kepu_stumpff interface~orbel_scget orbel_scget proc~drift_kepu_guess->interface~orbel_scget proc~drift_kepu_p3solve drift_kepu_p3solve proc~drift_kepu_guess->proc~drift_kepu_p3solve proc~drift_kepu_lag->proc~drift_kepu_stumpff proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_dan.html"},{"title":"drift_kepmd – swiftest","text":"pure subroutine drift_kepmd(dm, es, ec, x, s, c) Solve Kepler's equation in difference form for an ellipse for small input dm and eccentricity\n    Original disclaimer: built for speed, does not check how well the original equation is solved\n    Can do that in calling routine by checking how close (x - ec s + es (1.0 - c) - dm) is to zero Adapted from David E. Kaufmann's Swifter routine: drift_kepmd.f90\n Adapted from Martin Duncan's Swift routine drift_kepmd.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dm real(kind=DP), intent(in) :: es real(kind=DP), intent(in) :: ec real(kind=DP), intent(out) :: x real(kind=DP), intent(out) :: s real(kind=DP), intent(out) :: c Called by proc~~drift_kepmd~~CalledByGraph proc~drift_kepmd drift_kepmd proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepmd Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_kepmd.html"},{"title":"drift_kepu – swiftest","text":"pure subroutine drift_kepu(dt, r0, mu, alpha, u, fp, c1, c2, c3, iflag) Solve Kepler's equation in universal variables Adapted from David E. Kaufmann's Swifter routine: drift_kepu.f90\n Adapted from Hal Levison's Swift routine drift_kepu.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: fp real(kind=DP), intent(out) :: c1 real(kind=DP), intent(out) :: c2 real(kind=DP), intent(out) :: c3 integer(kind=I4B), intent(out) :: iflag Calls proc~~drift_kepu~~CallsGraph proc~drift_kepu drift_kepu proc~drift_kepu_new drift_kepu_new proc~drift_kepu->proc~drift_kepu_new proc~drift_kepu_fchk drift_kepu_fchk proc~drift_kepu->proc~drift_kepu_fchk proc~drift_kepu_guess drift_kepu_guess proc~drift_kepu->proc~drift_kepu_guess proc~drift_kepu_lag drift_kepu_lag proc~drift_kepu->proc~drift_kepu_lag proc~drift_kepu_stumpff drift_kepu_stumpff proc~drift_kepu_new->proc~drift_kepu_stumpff proc~drift_kepu_fchk->proc~drift_kepu_stumpff interface~orbel_scget orbel_scget proc~drift_kepu_guess->interface~orbel_scget proc~drift_kepu_p3solve drift_kepu_p3solve proc~drift_kepu_guess->proc~drift_kepu_p3solve proc~drift_kepu_lag->proc~drift_kepu_stumpff proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~drift_kepu~~CalledByGraph proc~drift_kepu drift_kepu proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_kepu.html"},{"title":"drift_kepu_fchk – swiftest","text":"pure subroutine drift_kepu_fchk(dt, r0, mu, alpha, u, s, f) Computes the value of f, the function whose root we are trying to find in universal variables Adapted from David E. Kaufmann's Swifter routine: drift_kepu_fchk.f90\n Adapted from Martin Duncan's Swift routine drift_kepu_fchk.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(in) :: s real(kind=DP), intent(out) :: f Calls proc~~drift_kepu_fchk~~CallsGraph proc~drift_kepu_fchk drift_kepu_fchk proc~drift_kepu_stumpff drift_kepu_stumpff proc~drift_kepu_fchk->proc~drift_kepu_stumpff Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~drift_kepu_fchk~~CalledByGraph proc~drift_kepu_fchk drift_kepu_fchk proc~drift_kepu drift_kepu proc~drift_kepu->proc~drift_kepu_fchk proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_kepu_fchk.html"},{"title":"drift_kepu_guess – swiftest","text":"pure subroutine drift_kepu_guess(dt, r0, mu, alpha, u, s) Compute initial guess for solving Kepler's equation using universal variables Adapted from David E. Kaufmann's Swifter routine: drift_kepu_guess.f90\n Adapted from Hal Levison and Martin Duncan's Swift routine drift_kepu_guess.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: s Calls proc~~drift_kepu_guess~~CallsGraph proc~drift_kepu_guess drift_kepu_guess interface~orbel_scget orbel_scget proc~drift_kepu_guess->interface~orbel_scget proc~drift_kepu_p3solve drift_kepu_p3solve proc~drift_kepu_guess->proc~drift_kepu_p3solve proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~drift_kepu_guess~~CalledByGraph proc~drift_kepu_guess drift_kepu_guess proc~drift_kepu drift_kepu proc~drift_kepu->proc~drift_kepu_guess proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_kepu_guess.html"},{"title":"drift_kepu_lag – swiftest","text":"pure subroutine drift_kepu_lag(s, dt, r0, mu, alpha, u, fp, c1, c2, c3, iflag) Solve Kepler's equation in universal variables using Laguerre's method\n      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 178 - 180. Adapted from David E. Kaufmann's Swifter routine: drift_kepu_lag.f90\n Adapted from Hal Levison's Swift routine drift_kepu_lag.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout) :: s real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: fp real(kind=DP), intent(out) :: c1 real(kind=DP), intent(out) :: c2 real(kind=DP), intent(out) :: c3 integer(kind=I4B), intent(out) :: iflag Calls proc~~drift_kepu_lag~~CallsGraph proc~drift_kepu_lag drift_kepu_lag proc~drift_kepu_stumpff drift_kepu_stumpff proc~drift_kepu_lag->proc~drift_kepu_stumpff Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~drift_kepu_lag~~CalledByGraph proc~drift_kepu_lag drift_kepu_lag proc~drift_kepu drift_kepu proc~drift_kepu->proc~drift_kepu_lag proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_kepu_lag.html"},{"title":"drift_kepu_new – swiftest","text":"pure subroutine drift_kepu_new(s, dt, r0, mu, alpha, u, fp, c1, c2, c3, iflag) Solve Kepler's equation in universal variables using Newton's method\n      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 174 - 175. Adapted from David E. Kaufmann's Swifter routine: drift_kepu_new.f90\n Adapted from Hal Levison's Swift routine drift_kepu_new.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout) :: s real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: fp real(kind=DP), intent(out) :: c1 real(kind=DP), intent(out) :: c2 real(kind=DP), intent(out) :: c3 integer(kind=I4B), intent(out) :: iflag Calls proc~~drift_kepu_new~~CallsGraph proc~drift_kepu_new drift_kepu_new proc~drift_kepu_stumpff drift_kepu_stumpff proc~drift_kepu_new->proc~drift_kepu_stumpff Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~drift_kepu_new~~CalledByGraph proc~drift_kepu_new drift_kepu_new proc~drift_kepu drift_kepu proc~drift_kepu->proc~drift_kepu_new proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_kepu_new.html"},{"title":"drift_kepu_p3solve – swiftest","text":"pure subroutine drift_kepu_p3solve(dt, r0, mu, alpha, u, s, iflag) Computes real root of cubic involved in setting initial guess for solving Kepler's equation in universal variables\n      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 177 - 178. Adapted from David E. Kaufmann's Swifter routine: drift_kepu_p3solve.f90\n Adapted from Martin Duncan's Swift routine drift_kepu_p3solve.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: s integer(kind=I4B), intent(out) :: iflag Called by proc~~drift_kepu_p3solve~~CalledByGraph proc~drift_kepu_p3solve drift_kepu_p3solve proc~drift_kepu_guess drift_kepu_guess proc~drift_kepu_guess->proc~drift_kepu_p3solve proc~drift_kepu drift_kepu proc~drift_kepu->proc~drift_kepu_guess proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_kepu_p3solve.html"},{"title":"drift_kepu_stumpff – swiftest","text":"pure subroutine drift_kepu_stumpff(x, c0, c1, c2, c3) Compute Stumpff functions needed for Kepler drift in universal variables\n      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 171 - 172. Adapted from David E. Kaufmann's Swifter routine: drift_kepu_stumpff.f90\n Adapted from Hal Levison's Swift routine drift_kepu_stumpff.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout) :: x real(kind=DP), intent(out) :: c0 real(kind=DP), intent(out) :: c1 real(kind=DP), intent(out) :: c2 real(kind=DP), intent(out) :: c3 Called by proc~~drift_kepu_stumpff~~CalledByGraph proc~drift_kepu_stumpff drift_kepu_stumpff proc~drift_kepu_new drift_kepu_new proc~drift_kepu_new->proc~drift_kepu_stumpff proc~drift_kepu_fchk drift_kepu_fchk proc~drift_kepu_fchk->proc~drift_kepu_stumpff proc~drift_kepu_lag drift_kepu_lag proc~drift_kepu_lag->proc~drift_kepu_stumpff proc~drift_kepu drift_kepu proc~drift_kepu->proc~drift_kepu_new proc~drift_kepu->proc~drift_kepu_fchk proc~drift_kepu->proc~drift_kepu_lag proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_kepu_stumpff.html"},{"title":"symba_collision_check_one – swiftest","text":"pure elemental function symba_collision_check_one(xr, yr, zr, vxr, vyr, vzr, Gmtot, rlim, dt, lvdotr) result(lcollision) Check for a merger between a single pair of particles Adapted from David E. Kaufmann's Swifter routines symba_merge_tp.f90 and symba_merge_pl.f90 Adapted from Hal Levison's Swift routine symba5_merge.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: xr Relative position vector components real(kind=DP), intent(in) :: yr Relative position vector components real(kind=DP), intent(in) :: zr Relative position vector components real(kind=DP), intent(in) :: vxr Relative velocity vector components real(kind=DP), intent(in) :: vyr Relative velocity vector components real(kind=DP), intent(in) :: vzr Relative velocity vector components real(kind=DP), intent(in) :: Gmtot Sum of G*mass of colliding bodies real(kind=DP), intent(in) :: rlim Collision limit - Typically the sum of the radii of colliding bodies real(kind=DP), intent(in) :: dt Step size logical, intent(in) :: lvdotr Logical flag indicating that these two bodies are approaching in the current substep Return Value logical Logical flag indicating whether these two bodies will collide or not Calls proc~~symba_collision_check_one~~CallsGraph proc~symba_collision_check_one symba_collision_check_one orbel_xv2aeq orbel_xv2aeq proc~symba_collision_check_one->orbel_xv2aeq Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_collision_check_one~~CalledByGraph proc~symba_collision_check_one symba_collision_check_one proc~symba_collision_check_pltpenc symba_collision_check_pltpenc proc~symba_collision_check_pltpenc->proc~symba_collision_check_one interface~symba_collision_check_pltpenc symba_collision_check_pltpenc interface~symba_collision_check_pltpenc->proc~symba_collision_check_pltpenc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_collision_check_one.html"},{"title":"symba_collision_consolidate_familes – swiftest","text":"function symba_collision_consolidate_familes(pl, param, idx_parent, family, x, v, mass, radius, L_spin, Ip) result(lflag) Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all family members, \n and pairs of quantities (x and v vectors, mass, radius, L_spin, and Ip) that can be used to resolve the collisional outcome. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA massive body object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(inout), dimension(2) :: idx_parent Index of the two bodies considered the \"parents\" of the collision integer(kind=I4B), intent(out), dimension(:), allocatable :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(out), dimension(NDIM,2) :: x Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(NDIM,2) :: v Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(2) :: mass Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(2) :: radius Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(NDIM,2) :: L_spin Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(NDIM,2) :: Ip Output values that represent a 2-body equivalent of a possibly 2+ body collision Return Value logical Logical flag indicating whether a family was successfully created or not Calls proc~~symba_collision_consolidate_familes~~CallsGraph proc~symba_collision_consolidate_familes symba_collision_consolidate_familes idx_arr idx_arr proc~symba_collision_consolidate_familes->idx_arr id_arr id_arr proc~symba_collision_consolidate_familes->id_arr Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_collision_consolidate_familes~~CalledByGraph proc~symba_collision_consolidate_familes symba_collision_consolidate_familes proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->proc~symba_collision_consolidate_familes proc~symba_collision_resolve_mergers symba_collision_resolve_mergers proc~symba_collision_resolve_mergers->proc~symba_collision_consolidate_familes interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations interface~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers->proc~symba_collision_resolve_mergers Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_collision_consolidate_familes.html"},{"title":"symba_fragmentation_mergeaddsub – swiftest","text":"subroutine symba_fragmentation_mergeaddsub(system, param, family, id_frag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, status) Fills the pl_discards and pl_adds with removed and added bodies Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision integer(kind=I4B), intent(in), dimension(:) :: id_frag List of fragment ids real(kind=DP), intent(in), dimension(:,:) :: Ip_frag Fragment rotational inertia vectors real(kind=DP), intent(in), dimension(:) :: m_frag Distribution of fragment mass and radii real(kind=DP), intent(in), dimension(:) :: rad_frag Distribution of fragment mass and radii real(kind=DP), intent(in), dimension(:,:) :: xb_frag Fragment barycentric position, barycentric velocity, and rotation vectors real(kind=DP), intent(in), dimension(:,:) :: vb_frag Fragment barycentric position, barycentric velocity, and rotation vectors real(kind=DP), intent(in), dimension(:,:) :: rot_frag Fragment barycentric position, barycentric velocity, and rotation vectors integer(kind=I4B), intent(in) :: status Status flag to assign to adds Called by proc~~symba_fragmentation_mergeaddsub~~CalledByGraph proc~symba_fragmentation_mergeaddsub symba_fragmentation_mergeaddsub proc~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic proc~symba_fragmentation_casesupercatastrophic->proc~symba_fragmentation_mergeaddsub proc~symba_fragmentation_casemerge symba_fragmentation_casemerge proc~symba_fragmentation_casemerge->proc~symba_fragmentation_mergeaddsub proc~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun proc~symba_fragmentation_casehitandrun->proc~symba_fragmentation_mergeaddsub proc~symba_fragmentation_casedisruption symba_fragmentation_casedisruption proc~symba_fragmentation_casedisruption->proc~symba_fragmentation_mergeaddsub interface~symba_fragmentation_casedisruption symba_fragmentation_casedisruption interface~symba_fragmentation_casedisruption->proc~symba_fragmentation_casedisruption interface~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic interface~symba_fragmentation_casesupercatastrophic->proc~symba_fragmentation_casesupercatastrophic interface~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun interface~symba_fragmentation_casehitandrun->proc~symba_fragmentation_casehitandrun interface~symba_fragmentation_casemerge symba_fragmentation_casemerge interface~symba_fragmentation_casemerge->proc~symba_fragmentation_casemerge proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casedisruption proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casesupercatastrophic proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casehitandrun proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casemerge proc~symba_collision_resolve_mergers symba_collision_resolve_mergers proc~symba_collision_resolve_mergers->interface~symba_fragmentation_casemerge interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations interface~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers->proc~symba_collision_resolve_mergers Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_fragmentation_mergeaddsub.html"},{"title":"symba_discard_cb_pl – swiftest","text":"subroutine symba_discard_cb_pl(pl, system, param) Check to see if planets should be discarded based on their positions relative to the central body.\n If a body gets flagged here when it has also been previously flagged for a collision with another massive body,\n its collisional status will be revoked. Discards due to colliding with or escaping the central body take precedence \n over pl-pl collisions Adapted from David E. Kaufmann's Swifter routine: symba_discard_sun.f90\n Adapted from Hal Levison's Swift routine discard_massive5.f Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Called by proc~~symba_discard_cb_pl~~CalledByGraph proc~symba_discard_cb_pl symba_discard_cb_pl proc~symba_discard_nonplpl symba_discard_nonplpl proc~symba_discard_nonplpl->proc~symba_discard_cb_pl proc~symba_discard_pl symba_discard_pl proc~symba_discard_pl->proc~symba_discard_nonplpl interface~symba_discard_pl symba_discard_pl interface~symba_discard_pl->proc~symba_discard_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_discard_cb_pl.html"},{"title":"symba_discard_conserve_mtm – swiftest","text":"subroutine symba_discard_conserve_mtm(pl, system, param, ipl, lescape_body) Conserves system momentum when a body is lost from the system or collides with central body Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl class( symba_nbody_system ), intent(inout) :: system class( symba_parameters ), intent(inout) :: param integer(kind=I4B), intent(in) :: ipl logical, intent(in) :: lescape_body Contents None","tags":"","loc":"proc/symba_discard_conserve_mtm.html"},{"title":"symba_discard_nonplpl – swiftest","text":"subroutine symba_discard_nonplpl(pl, system, param) Check to see if planets should be discarded based on their positions or because they are unbound Adapted from David E. Kaufmann's Swifter routine: symba_discard_pl.f90\n Adapted from Hal Levison's Swift routine discard_massive5.f Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~symba_discard_nonplpl~~CallsGraph proc~symba_discard_nonplpl symba_discard_nonplpl proc~symba_discard_cb_pl symba_discard_cb_pl proc~symba_discard_nonplpl->proc~symba_discard_cb_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_discard_nonplpl~~CalledByGraph proc~symba_discard_nonplpl symba_discard_nonplpl proc~symba_discard_pl symba_discard_pl proc~symba_discard_pl->proc~symba_discard_nonplpl interface~symba_discard_pl symba_discard_pl interface~symba_discard_pl->proc~symba_discard_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_discard_nonplpl.html"},{"title":"symba_discard_nonplpl_conservation – swiftest","text":"subroutine symba_discard_nonplpl_conservation(pl, system, param) If there are any bodies that are removed due to either colliding with the central body or escaping the systme,\n we need to track the conserved quantities with the system bookkeeping terms. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(inout) :: param Current run configuration parameters Called by proc~~symba_discard_nonplpl_conservation~~CalledByGraph proc~symba_discard_nonplpl_conservation symba_discard_nonplpl_conservation proc~symba_discard_pl symba_discard_pl proc~symba_discard_pl->proc~symba_discard_nonplpl_conservation interface~symba_discard_pl symba_discard_pl interface~symba_discard_pl->proc~symba_discard_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_discard_nonplpl_conservation.html"},{"title":"symba_discard_peri_pl – swiftest","text":"subroutine symba_discard_peri_pl(pl, system, param) Check to see if a test particle should be discarded because its perihelion distance becomes too small Adapted from David E. Kaufmann's Swifter routine: symba_discard_peri_pl.f90\n Adapted from Hal Levison's Swift routine discard_mass_peri.f Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Contents None","tags":"","loc":"proc/symba_discard_peri_pl.html"},{"title":"rmvs_chk_ind – swiftest","text":"interface Calls interface~~rmvs_chk_ind~~CallsGraph interface~rmvs_chk_ind rmvs_chk_ind proc~rmvs_chk_ind rmvs_chk_ind interface~rmvs_chk_ind->proc~rmvs_chk_ind Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~rmvs_chk_ind~~CalledByGraph interface~rmvs_chk_ind rmvs_chk_ind proc~rmvs_encounter_check_tp rmvs_encounter_check_tp proc~rmvs_encounter_check_tp->interface~rmvs_chk_ind proc~symba_encounter_check_one symba_encounter_check_one proc~symba_encounter_check_one->interface~rmvs_chk_ind interface~rmvs_encounter_check_tp rmvs_encounter_check_tp interface~rmvs_encounter_check_tp->proc~rmvs_encounter_check_tp interface~symba_encounter_check_one symba_encounter_check_one interface~symba_encounter_check_one->proc~symba_encounter_check_one Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public elemental module function rmvs_chk_ind(r2, v2, vdotr, dt, r2crit) result(lflag) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: r2 real(kind=DP), intent(in) :: v2 real(kind=DP), intent(in) :: vdotr real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r2crit Return Value logical","tags":"","loc":"interface/rmvs_chk_ind.html"},{"title":"rmvs_encounter_check_tp – swiftest","text":"interface Calls interface~~rmvs_encounter_check_tp~~CallsGraph interface~rmvs_encounter_check_tp rmvs_encounter_check_tp proc~rmvs_encounter_check_tp rmvs_encounter_check_tp interface~rmvs_encounter_check_tp->proc~rmvs_encounter_check_tp interface~rmvs_chk_ind rmvs_chk_ind proc~rmvs_encounter_check_tp->interface~rmvs_chk_ind proc~rmvs_chk_ind rmvs_chk_ind interface~rmvs_chk_ind->proc~rmvs_chk_ind Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function rmvs_encounter_check_tp(self, system, dt) result(lencounter) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object real(kind=DP), intent(in) :: dt step size Return Value logical Returns true if there is at least one close encounter","tags":"","loc":"interface/rmvs_encounter_check_tp.html"},{"title":"rmvs_discard_tp – swiftest","text":"interface Calls interface~~rmvs_discard_tp~~CallsGraph interface~rmvs_discard_tp rmvs_discard_tp proc~rmvs_discard_tp rmvs_discard_tp interface~rmvs_discard_tp->proc~rmvs_discard_tp discard_tp discard_tp proc~rmvs_discard_tp->discard_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/rmvs_discard_tp.html"},{"title":"rmvs_kick_getacch_tp – swiftest","text":"interface Calls interface~~rmvs_kick_getacch_tp~~CallsGraph interface~rmvs_kick_getacch_tp rmvs_kick_getacch_tp proc~rmvs_kick_getacch_tp rmvs_kick_getacch_tp interface~rmvs_kick_getacch_tp->proc~rmvs_kick_getacch_tp whm_kick_getacch_tp whm_kick_getacch_tp proc~rmvs_kick_getacch_tp->whm_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest central body particle data structuree class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/rmvs_kick_getacch_tp.html"},{"title":"rmvs_setup_pl – swiftest","text":"interface Calls interface~~rmvs_setup_pl~~CallsGraph interface~rmvs_setup_pl rmvs_setup_pl proc~rmvs_setup_pl rmvs_setup_pl interface~rmvs_setup_pl->proc~rmvs_setup_pl whm_setup_pl whm_setup_pl proc~rmvs_setup_pl->whm_setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/rmvs_setup_pl.html"},{"title":"rmvs_setup_initialize_system – swiftest","text":"interface Calls interface~~rmvs_setup_initialize_system~~CallsGraph interface~rmvs_setup_initialize_system rmvs_setup_initialize_system proc~rmvs_setup_initialize_system rmvs_setup_initialize_system interface~rmvs_setup_initialize_system->proc~rmvs_setup_initialize_system whm_setup_initialize_system whm_setup_initialize_system proc~rmvs_setup_initialize_system->whm_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/rmvs_setup_initialize_system.html"},{"title":"rmvs_setup_tp – swiftest","text":"interface Calls interface~~rmvs_setup_tp~~CallsGraph interface~rmvs_setup_tp rmvs_setup_tp proc~rmvs_setup_tp rmvs_setup_tp interface~rmvs_setup_tp->proc~rmvs_setup_tp setup_tp setup_tp proc~rmvs_setup_tp->setup_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parametere","tags":"","loc":"interface/rmvs_setup_tp.html"},{"title":"rmvs_util_append_pl – swiftest","text":"interface Calls interface~~rmvs_util_append_pl~~CallsGraph interface~rmvs_util_append_pl rmvs_util_append_pl proc~rmvs_util_append_pl rmvs_util_append_pl interface~rmvs_util_append_pl->proc~rmvs_util_append_pl util_exit util_exit proc~rmvs_util_append_pl->util_exit util_append util_append proc~rmvs_util_append_pl->util_append whm_util_append_pl whm_util_append_pl proc~rmvs_util_append_pl->whm_util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/rmvs_util_append_pl.html"},{"title":"rmvs_util_append_tp – swiftest","text":"interface Calls interface~~rmvs_util_append_tp~~CallsGraph interface~rmvs_util_append_tp rmvs_util_append_tp proc~rmvs_util_append_tp rmvs_util_append_tp interface~rmvs_util_append_tp->proc~rmvs_util_append_tp util_exit util_exit proc~rmvs_util_append_tp->util_exit util_append util_append proc~rmvs_util_append_tp->util_append util_append_tp util_append_tp proc~rmvs_util_append_tp->util_append_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/rmvs_util_append_tp.html"},{"title":"rmvs_util_fill_pl – swiftest","text":"interface Calls interface~~rmvs_util_fill_pl~~CallsGraph interface~rmvs_util_fill_pl rmvs_util_fill_pl proc~rmvs_util_fill_pl rmvs_util_fill_pl interface~rmvs_util_fill_pl->proc~rmvs_util_fill_pl util_exit util_exit proc~rmvs_util_fill_pl->util_exit whm_util_fill_pl whm_util_fill_pl proc~rmvs_util_fill_pl->whm_util_fill_pl util_fill util_fill proc~rmvs_util_fill_pl->util_fill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/rmvs_util_fill_pl.html"},{"title":"rmvs_util_fill_tp – swiftest","text":"interface Calls interface~~rmvs_util_fill_tp~~CallsGraph interface~rmvs_util_fill_tp rmvs_util_fill_tp proc~rmvs_util_fill_tp rmvs_util_fill_tp interface~rmvs_util_fill_tp->proc~rmvs_util_fill_tp util_fill_tp util_fill_tp proc~rmvs_util_fill_tp->util_fill_tp util_exit util_exit proc~rmvs_util_fill_tp->util_exit util_fill util_fill proc~rmvs_util_fill_tp->util_fill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/rmvs_util_fill_tp.html"},{"title":"rmvs_util_resize_pl – swiftest","text":"interface Calls interface~~rmvs_util_resize_pl~~CallsGraph interface~rmvs_util_resize_pl rmvs_util_resize_pl proc~rmvs_util_resize_pl rmvs_util_resize_pl interface~rmvs_util_resize_pl->proc~rmvs_util_resize_pl whm_util_resize_pl whm_util_resize_pl proc~rmvs_util_resize_pl->whm_util_resize_pl util_resize util_resize proc~rmvs_util_resize_pl->util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/rmvs_util_resize_pl.html"},{"title":"rmvs_util_resize_tp – swiftest","text":"interface Calls interface~~rmvs_util_resize_tp~~CallsGraph interface~rmvs_util_resize_tp rmvs_util_resize_tp proc~rmvs_util_resize_tp rmvs_util_resize_tp interface~rmvs_util_resize_tp->proc~rmvs_util_resize_tp util_resize_tp util_resize_tp proc~rmvs_util_resize_tp->util_resize_tp util_resize util_resize proc~rmvs_util_resize_tp->util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/rmvs_util_resize_tp.html"},{"title":"rmvs_util_sort_pl – swiftest","text":"interface Calls interface~~rmvs_util_sort_pl~~CallsGraph interface~rmvs_util_sort_pl rmvs_util_sort_pl proc~rmvs_util_sort_pl rmvs_util_sort_pl interface~rmvs_util_sort_pl->proc~rmvs_util_sort_pl whm_util_sort_pl whm_util_sort_pl proc~rmvs_util_sort_pl->whm_util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order","tags":"","loc":"interface/rmvs_util_sort_pl.html"},{"title":"rmvs_util_sort_tp – swiftest","text":"interface Calls interface~~rmvs_util_sort_tp~~CallsGraph interface~rmvs_util_sort_tp rmvs_util_sort_tp proc~rmvs_util_sort_tp rmvs_util_sort_tp interface~rmvs_util_sort_tp->proc~rmvs_util_sort_tp util_sort_tp util_sort_tp proc~rmvs_util_sort_tp->util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order","tags":"","loc":"interface/rmvs_util_sort_tp.html"},{"title":"rmvs_util_sort_rearrange_pl – swiftest","text":"interface Calls interface~~rmvs_util_sort_rearrange_pl~~CallsGraph interface~rmvs_util_sort_rearrange_pl rmvs_util_sort_rearrange_pl proc~rmvs_util_sort_rearrange_pl rmvs_util_sort_rearrange_pl interface~rmvs_util_sort_rearrange_pl->proc~rmvs_util_sort_rearrange_pl util_sort_rearrange_pl util_sort_rearrange_pl proc~rmvs_util_sort_rearrange_pl->util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order)","tags":"","loc":"interface/rmvs_util_sort_rearrange_pl.html"},{"title":"rmvs_util_sort_rearrange_tp – swiftest","text":"interface Calls interface~~rmvs_util_sort_rearrange_tp~~CallsGraph interface~rmvs_util_sort_rearrange_tp rmvs_util_sort_rearrange_tp proc~rmvs_util_sort_rearrange_tp rmvs_util_sort_rearrange_tp interface~rmvs_util_sort_rearrange_tp->proc~rmvs_util_sort_rearrange_tp util_sort_rearrange_tp util_sort_rearrange_tp proc~rmvs_util_sort_rearrange_tp->util_sort_rearrange_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order)","tags":"","loc":"interface/rmvs_util_sort_rearrange_tp.html"},{"title":"rmvs_util_spill_pl – swiftest","text":"interface Calls interface~~rmvs_util_spill_pl~~CallsGraph interface~rmvs_util_spill_pl rmvs_util_spill_pl proc~rmvs_util_spill_pl rmvs_util_spill_pl interface~rmvs_util_spill_pl->proc~rmvs_util_spill_pl util_exit util_exit proc~rmvs_util_spill_pl->util_exit util_spill util_spill proc~rmvs_util_spill_pl->util_spill whm_util_spill_pl whm_util_spill_pl proc~rmvs_util_spill_pl->whm_util_spill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/rmvs_util_spill_pl.html"},{"title":"rmvs_util_spill_tp – swiftest","text":"interface Calls interface~~rmvs_util_spill_tp~~CallsGraph interface~rmvs_util_spill_tp rmvs_util_spill_tp proc~rmvs_util_spill_tp rmvs_util_spill_tp interface~rmvs_util_spill_tp->proc~rmvs_util_spill_tp util_spill_tp util_spill_tp proc~rmvs_util_spill_tp->util_spill_tp util_exit util_exit proc~rmvs_util_spill_tp->util_exit util_spill util_spill proc~rmvs_util_spill_tp->util_spill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/rmvs_util_spill_tp.html"},{"title":"rmvs_step_system – swiftest","text":"interface Calls interface~~rmvs_step_system~~CallsGraph interface~rmvs_step_system rmvs_step_system proc~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system whm_step_system whm_step_system proc~rmvs_step_system->whm_step_system proc~rmvs_interp_out rmvs_interp_out proc~rmvs_step_system->proc~rmvs_interp_out proc~rmvs_step_out rmvs_step_out proc~rmvs_step_system->proc~rmvs_step_out util_exit util_exit proc~rmvs_interp_out->util_exit proc~rmvs_interp_in rmvs_interp_in proc~rmvs_step_out->proc~rmvs_interp_in proc~rmvs_step_in rmvs_step_in proc~rmvs_step_out->proc~rmvs_step_in proc~rmvs_interp_in->util_exit proc~rmvs_make_planetocentric rmvs_make_planetocentric proc~rmvs_step_in->proc~rmvs_make_planetocentric proc~rmvs_end_planetocentric rmvs_end_planetocentric proc~rmvs_step_in->proc~rmvs_end_planetocentric proc~rmvs_peri_tp rmvs_peri_tp proc~rmvs_step_in->proc~rmvs_peri_tp vpc vpc proc~rmvs_peri_tp->vpc xpc xpc proc~rmvs_peri_tp->xpc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine rmvs_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/rmvs_step_system.html"},{"title":"operator(.cross.) – swiftest","text":"public interface operator(.cross.) Contents Functions operator_cross_sp operator_cross_dp operator_cross_qp operator_cross_i1b operator_cross_i2b operator_cross_i4b operator_cross_i8b operator_cross_el_sp operator_cross_el_dp operator_cross_el_qp operator_cross_el_i1b operator_cross_el_i2b operator_cross_el_i4b operator_cross_el_i8b Functions public pure function operator_cross_sp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: A real(kind=SP), intent(in), dimension(:) :: B Return Value real(kind=SP),\n  dimension(3) public pure function operator_cross_dp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: A real(kind=DP), intent(in), dimension(:) :: B Return Value real(kind=DP),\n  dimension(3) public pure function operator_cross_qp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:) :: A real(kind=QP), intent(in), dimension(:) :: B Return Value real(kind=QP),\n  dimension(3) public pure function operator_cross_i1b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I1B), intent(in), dimension(:) :: A integer(kind=I1B), intent(in), dimension(:) :: B Return Value integer(kind=I1B),\n  dimension(3) public pure function operator_cross_i2b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I2B), intent(in), dimension(:) :: A integer(kind=I2B), intent(in), dimension(:) :: B Return Value integer(kind=I2B),\n  dimension(3) public pure function operator_cross_i4b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:) :: A integer(kind=I4B), intent(in), dimension(:) :: B Return Value integer(kind=I4B),\n  dimension(3) public pure function operator_cross_i8b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in), dimension(:) :: A integer(kind=I8B), intent(in), dimension(:) :: B Return Value integer(kind=I8B),\n  dimension(3) public pure function operator_cross_el_sp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:,:) :: A real(kind=SP), intent(in), dimension(:,:) :: B Return Value real(kind=SP),\n  dimension(:,:), allocatable public pure function operator_cross_el_dp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A real(kind=DP), intent(in), dimension(:,:) :: B Return Value real(kind=DP),\n  dimension(:,:), allocatable public pure function operator_cross_el_qp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:,:) :: B Return Value real(kind=QP),\n  dimension(:,:), allocatable public pure function operator_cross_el_i1b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I1B), intent(in), dimension(:,:) :: A integer(kind=I1B), intent(in), dimension(:,:) :: B Return Value integer(kind=I1B),\n  dimension(:,:), allocatable public pure function operator_cross_el_i2b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I2B), intent(in), dimension(:,:) :: A integer(kind=I2B), intent(in), dimension(:,:) :: B Return Value integer(kind=I2B),\n  dimension(:,:), allocatable public pure function operator_cross_el_i4b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:,:) :: A integer(kind=I4B), intent(in), dimension(:,:) :: B Return Value integer(kind=I4B),\n  dimension(:,:), allocatable public pure function operator_cross_el_i8b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in), dimension(:,:) :: A integer(kind=I8B), intent(in), dimension(:,:) :: B Return Value integer(kind=I8B),\n  dimension(:,:), allocatable","tags":"","loc":"interface/operator(.cross.).html"},{"title":"operator(.mag.) – swiftest","text":"public interface operator(.mag.) Contents Functions operator_mag_sp operator_mag_dp operator_mag_qp operator_mag_el_sp operator_mag_el_dp operator_mag_el_qp Functions public pure function operator_mag_sp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: A Return Value real(kind=SP) public pure function operator_mag_dp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: A Return Value real(kind=DP) public pure function operator_mag_qp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:) :: A Return Value real(kind=QP) public pure function operator_mag_el_sp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:,:) :: A Return Value real(kind=SP),\n  dimension(:), allocatable public pure function operator_mag_el_dp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A Return Value real(kind=DP),\n  dimension(:), allocatable public pure function operator_mag_el_qp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A Return Value real(kind=QP),\n  dimension(:), allocatable","tags":"","loc":"interface/operator(.mag.).html"},{"title":"helio_coord_vb2vh_pl – swiftest","text":"interface Calls interface~~helio_coord_vb2vh_pl~~CallsGraph interface~helio_coord_vb2vh_pl helio_coord_vb2vh_pl proc~helio_coord_vb2vh_pl helio_coord_vb2vh_pl interface~helio_coord_vb2vh_pl->proc~helio_coord_vb2vh_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_coord_vb2vh_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/helio_coord_vb2vh_pl.html"},{"title":"helio_coord_vb2vh_tp – swiftest","text":"interface Calls interface~~helio_coord_vb2vh_tp~~CallsGraph interface~helio_coord_vb2vh_tp helio_coord_vb2vh_tp proc~helio_coord_vb2vh_tp helio_coord_vb2vh_tp interface~helio_coord_vb2vh_tp->proc~helio_coord_vb2vh_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_coord_vb2vh_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body","tags":"","loc":"interface/helio_coord_vb2vh_tp.html"},{"title":"helio_coord_vh2vb_pl – swiftest","text":"interface Calls interface~~helio_coord_vh2vb_pl~~CallsGraph interface~helio_coord_vh2vb_pl helio_coord_vh2vb_pl proc~helio_coord_vh2vb_pl helio_coord_vh2vb_pl interface~helio_coord_vh2vb_pl->proc~helio_coord_vh2vb_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_coord_vh2vb_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/helio_coord_vh2vb_pl.html"},{"title":"helio_coord_vh2vb_tp – swiftest","text":"interface Calls interface~~helio_coord_vh2vb_tp~~CallsGraph interface~helio_coord_vh2vb_tp helio_coord_vh2vb_tp proc~helio_coord_vh2vb_tp helio_coord_vh2vb_tp interface~helio_coord_vh2vb_tp->proc~helio_coord_vh2vb_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_coord_vh2vb_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body","tags":"","loc":"interface/helio_coord_vh2vb_tp.html"},{"title":"helio_drift_body – swiftest","text":"interface Calls interface~~helio_drift_body~~CallsGraph interface~helio_drift_body helio_drift_body proc~helio_drift_body helio_drift_body interface~helio_drift_body->proc~helio_drift_body drift_all drift_all proc~helio_drift_body->drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~helio_drift_body~~CalledByGraph interface~helio_drift_body helio_drift_body proc~helio_drift_pl helio_drift_pl proc~helio_drift_pl->interface~helio_drift_body proc~helio_drift_tp helio_drift_tp proc~helio_drift_tp->interface~helio_drift_body interface~helio_drift_pl helio_drift_pl interface~helio_drift_pl->proc~helio_drift_pl interface~helio_drift_tp helio_drift_tp interface~helio_drift_tp->proc~helio_drift_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class(swiftest_body), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/helio_drift_body.html"},{"title":"helio_drift_pl – swiftest","text":"interface Calls interface~~helio_drift_pl~~CallsGraph interface~helio_drift_pl helio_drift_pl proc~helio_drift_pl helio_drift_pl interface~helio_drift_pl->proc~helio_drift_pl interface~helio_drift_body helio_drift_body proc~helio_drift_pl->interface~helio_drift_body proc~helio_drift_body helio_drift_body interface~helio_drift_body->proc~helio_drift_body drift_all drift_all proc~helio_drift_body->drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/helio_drift_pl.html"},{"title":"helio_drift_tp – swiftest","text":"interface Calls interface~~helio_drift_tp~~CallsGraph interface~helio_drift_tp helio_drift_tp proc~helio_drift_tp helio_drift_tp interface~helio_drift_tp->proc~helio_drift_tp interface~helio_drift_body helio_drift_body proc~helio_drift_tp->interface~helio_drift_body proc~helio_drift_body helio_drift_body interface~helio_drift_body->proc~helio_drift_body drift_all drift_all proc~helio_drift_body->drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_drift_tp(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/helio_drift_tp.html"},{"title":"helio_drift_linear_pl – swiftest","text":"interface Calls interface~~helio_drift_linear_pl~~CallsGraph interface~helio_drift_linear_pl helio_drift_linear_pl proc~helio_drift_linear_pl helio_drift_linear_pl interface~helio_drift_linear_pl->proc~helio_drift_linear_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_drift_linear_pl(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( helio_cb ), intent(inout) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/helio_drift_linear_pl.html"},{"title":"helio_drift_linear_tp – swiftest","text":"interface Calls interface~~helio_drift_linear_tp~~CallsGraph interface~helio_drift_linear_tp helio_drift_linear_tp proc~helio_drift_linear_tp helio_drift_linear_tp interface~helio_drift_linear_tp->proc~helio_drift_linear_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_drift_linear_tp(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( helio_cb ), intent(in) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/helio_drift_linear_tp.html"},{"title":"helio_gr_kick_getacch_pl – swiftest","text":"interface Calls interface~~helio_gr_kick_getacch_pl~~CallsGraph interface~helio_gr_kick_getacch_pl helio_gr_kick_getacch_pl proc~helio_gr_kick_getacch_pl helio_gr_kick_getacch_pl interface~helio_gr_kick_getacch_pl->proc~helio_gr_kick_getacch_pl gr_kick_getacch gr_kick_getacch proc~helio_gr_kick_getacch_pl->gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/helio_gr_kick_getacch_pl.html"},{"title":"helio_gr_kick_getacch_tp – swiftest","text":"interface Calls interface~~helio_gr_kick_getacch_tp~~CallsGraph interface~helio_gr_kick_getacch_tp helio_gr_kick_getacch_tp proc~helio_gr_kick_getacch_tp helio_gr_kick_getacch_tp interface~helio_gr_kick_getacch_tp->proc~helio_gr_kick_getacch_tp gr_kick_getacch gr_kick_getacch proc~helio_gr_kick_getacch_tp->gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_gr_kick_getacch_tp(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/helio_gr_kick_getacch_tp.html"},{"title":"helio_gr_p4_pl – swiftest","text":"interface Calls interface~~helio_gr_p4_pl~~CallsGraph interface~helio_gr_p4_pl helio_gr_p4_pl proc~helio_gr_p4_pl helio_gr_p4_pl interface~helio_gr_p4_pl->proc~helio_gr_p4_pl gr_p4_pos_kick gr_p4_pos_kick proc~helio_gr_p4_pl->gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine helio_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size","tags":"","loc":"interface/helio_gr_p4_pl.html"},{"title":"helio_gr_p4_tp – swiftest","text":"interface Calls interface~~helio_gr_p4_tp~~CallsGraph interface~helio_gr_p4_tp helio_gr_p4_tp proc~helio_gr_p4_tp helio_gr_p4_tp interface~helio_gr_p4_tp->proc~helio_gr_p4_tp gr_p4_pos_kick gr_p4_pos_kick proc~helio_gr_p4_tp->gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine helio_gr_p4_tp(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size","tags":"","loc":"interface/helio_gr_p4_tp.html"},{"title":"helio_kick_getacch_pl – swiftest","text":"interface Calls interface~~helio_kick_getacch_pl~~CallsGraph interface~helio_kick_getacch_pl helio_kick_getacch_pl proc~helio_kick_getacch_pl helio_kick_getacch_pl interface~helio_kick_getacch_pl->proc~helio_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/helio_kick_getacch_pl.html"},{"title":"helio_kick_getacch_tp – swiftest","text":"interface Calls interface~~helio_kick_getacch_tp~~CallsGraph interface~helio_kick_getacch_tp helio_kick_getacch_tp proc~helio_kick_getacch_tp helio_kick_getacch_tp interface~helio_kick_getacch_tp->proc~helio_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/helio_kick_getacch_tp.html"},{"title":"helio_kick_vb_pl – swiftest","text":"interface Calls interface~~helio_kick_vb_pl~~CallsGraph interface~helio_kick_vb_pl helio_kick_vb_pl proc~helio_kick_vb_pl helio_kick_vb_pl interface~helio_kick_vb_pl->proc~helio_kick_vb_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_kick_vb_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not.","tags":"","loc":"interface/helio_kick_vb_pl.html"},{"title":"helio_kick_vb_tp – swiftest","text":"interface Calls interface~~helio_kick_vb_tp~~CallsGraph interface~helio_kick_vb_tp helio_kick_vb_tp proc~helio_kick_vb_tp helio_kick_vb_tp interface~helio_kick_vb_tp->proc~helio_kick_vb_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_kick_vb_tp(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not.","tags":"","loc":"interface/helio_kick_vb_tp.html"},{"title":"helio_step_pl – swiftest","text":"interface Calls interface~~helio_step_pl~~CallsGraph interface~helio_step_pl helio_step_pl proc~helio_step_pl helio_step_pl interface~helio_step_pl->proc~helio_step_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/helio_step_pl.html"},{"title":"helio_step_system – swiftest","text":"interface Calls interface~~helio_step_system~~CallsGraph interface~helio_step_system helio_step_system proc~helio_step_system helio_step_system interface~helio_step_system->proc~helio_step_system whm_step_system whm_step_system proc~helio_step_system->whm_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_nbody_system ), intent(inout) :: self Helio nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/helio_step_system.html"},{"title":"helio_step_tp – swiftest","text":"interface Calls interface~~helio_step_tp~~CallsGraph interface~helio_step_tp helio_step_tp proc~helio_step_tp helio_step_tp interface~helio_step_tp->proc~helio_step_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine helio_step_tp(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsizee","tags":"","loc":"interface/helio_step_tp.html"},{"title":"whm_coord_h2j_pl – swiftest","text":"interface Calls interface~~whm_coord_h2j_pl~~CallsGraph interface~whm_coord_h2j_pl whm_coord_h2j_pl proc~whm_coord_h2j_pl whm_coord_h2j_pl interface~whm_coord_h2j_pl->proc~whm_coord_h2j_pl eta eta proc~whm_coord_h2j_pl->eta vj vj proc~whm_coord_h2j_pl->vj xh xh proc~whm_coord_h2j_pl->xh xj xj proc~whm_coord_h2j_pl->xj gmpl gmpl proc~whm_coord_h2j_pl->gmpl vh vh proc~whm_coord_h2j_pl->vh Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_coord_h2j_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree","tags":"","loc":"interface/whm_coord_h2j_pl.html"},{"title":"whm_coord_j2h_pl – swiftest","text":"interface Calls interface~~whm_coord_j2h_pl~~CallsGraph interface~whm_coord_j2h_pl whm_coord_j2h_pl proc~whm_coord_j2h_pl whm_coord_j2h_pl interface~whm_coord_j2h_pl->proc~whm_coord_j2h_pl eta eta proc~whm_coord_j2h_pl->eta vj vj proc~whm_coord_j2h_pl->vj xh xh proc~whm_coord_j2h_pl->xh xj xj proc~whm_coord_j2h_pl->xj gmpl gmpl proc~whm_coord_j2h_pl->gmpl vh vh proc~whm_coord_j2h_pl->vh Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_coord_j2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree","tags":"","loc":"interface/whm_coord_j2h_pl.html"},{"title":"whm_coord_vh2vj_pl – swiftest","text":"interface Calls interface~~whm_coord_vh2vj_pl~~CallsGraph interface~whm_coord_vh2vj_pl whm_coord_vh2vj_pl proc~whm_coord_vh2vj_pl whm_coord_vh2vj_pl interface~whm_coord_vh2vj_pl->proc~whm_coord_vh2vj_pl vj vj proc~whm_coord_vh2vj_pl->vj vh vh proc~whm_coord_vh2vj_pl->vh eta eta proc~whm_coord_vh2vj_pl->eta gmpl gmpl proc~whm_coord_vh2vj_pl->gmpl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_coord_vh2vj_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree","tags":"","loc":"interface/whm_coord_vh2vj_pl.html"},{"title":"whm_drift_pl – swiftest","text":"interface Calls interface~~whm_drift_pl~~CallsGraph interface~whm_drift_pl whm_drift_pl proc~whm_drift_pl whm_drift_pl interface~whm_drift_pl->proc~whm_drift_pl drift_all drift_all proc~whm_drift_pl->drift_all util_exit util_exit proc~whm_drift_pl->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/whm_drift_pl.html"},{"title":"whm_kick_getacch_pl – swiftest","text":"interface Calls interface~~whm_kick_getacch_pl~~CallsGraph interface~whm_kick_getacch_pl whm_kick_getacch_pl proc~whm_kick_getacch_pl whm_kick_getacch_pl interface~whm_kick_getacch_pl->proc~whm_kick_getacch_pl proc~whm_kick_getacch_ah1 whm_kick_getacch_ah1 proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah1 proc~whm_kick_getacch_ah2 whm_kick_getacch_ah2 proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah2 proc~whm_kick_getacch_ah0 whm_kick_getacch_ah0 proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah0 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Description Get heliocentric accelration of massive bodies","tags":"","loc":"interface/whm_kick_getacch_pl.html"},{"title":"whm_kick_getacch_tp – swiftest","text":"interface Calls interface~~whm_kick_getacch_tp~~CallsGraph interface~whm_kick_getacch_tp whm_kick_getacch_tp proc~whm_kick_getacch_tp whm_kick_getacch_tp interface~whm_kick_getacch_tp->proc~whm_kick_getacch_tp proc~whm_kick_getacch_ah0 whm_kick_getacch_ah0 proc~whm_kick_getacch_tp->proc~whm_kick_getacch_ah0 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Description Get heliocentric accelration of the test particle","tags":"","loc":"interface/whm_kick_getacch_tp.html"},{"title":"whm_kick_vh_pl – swiftest","text":"interface Calls interface~~whm_kick_vh_pl~~CallsGraph interface~whm_kick_vh_pl whm_kick_vh_pl proc~whm_kick_vh_pl whm_kick_vh_pl interface~whm_kick_vh_pl->proc~whm_kick_vh_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_kick_vh_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not.","tags":"","loc":"interface/whm_kick_vh_pl.html"},{"title":"whm_kick_vh_tp – swiftest","text":"interface Calls interface~~whm_kick_vh_tp~~CallsGraph interface~whm_kick_vh_tp whm_kick_vh_tp proc~whm_kick_vh_tp whm_kick_vh_tp interface~whm_kick_vh_tp->proc~whm_kick_vh_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_kick_vh_tp(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not.","tags":"","loc":"interface/whm_kick_vh_tp.html"},{"title":"whm_gr_kick_getacch_pl – swiftest","text":"interface Calls interface~~whm_gr_kick_getacch_pl~~CallsGraph interface~whm_gr_kick_getacch_pl whm_gr_kick_getacch_pl proc~whm_gr_kick_getacch_pl whm_gr_kick_getacch_pl interface~whm_gr_kick_getacch_pl->proc~whm_gr_kick_getacch_pl gr_kick_getacch gr_kick_getacch proc~whm_gr_kick_getacch_pl->gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/whm_gr_kick_getacch_pl.html"},{"title":"whm_gr_kick_getacch_tp – swiftest","text":"interface Calls interface~~whm_gr_kick_getacch_tp~~CallsGraph interface~whm_gr_kick_getacch_tp whm_gr_kick_getacch_tp proc~whm_gr_kick_getacch_tp whm_gr_kick_getacch_tp interface~whm_gr_kick_getacch_tp->proc~whm_gr_kick_getacch_tp gr_kick_getacch gr_kick_getacch proc~whm_gr_kick_getacch_tp->gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_gr_kick_getacch_tp(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/whm_gr_kick_getacch_tp.html"},{"title":"whm_gr_p4_pl – swiftest","text":"interface Calls interface~~whm_gr_p4_pl~~CallsGraph interface~whm_gr_p4_pl whm_gr_p4_pl proc~whm_gr_p4_pl whm_gr_p4_pl interface~whm_gr_p4_pl->proc~whm_gr_p4_pl gr_p4_pos_kick gr_p4_pos_kick proc~whm_gr_p4_pl->gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine whm_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size","tags":"","loc":"interface/whm_gr_p4_pl.html"},{"title":"whm_gr_p4_tp – swiftest","text":"interface Calls interface~~whm_gr_p4_tp~~CallsGraph interface~whm_gr_p4_tp whm_gr_p4_tp proc~whm_gr_p4_tp whm_gr_p4_tp interface~whm_gr_p4_tp->proc~whm_gr_p4_tp gr_p4_pos_kick gr_p4_pos_kick proc~whm_gr_p4_tp->gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine whm_gr_p4_tp(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size","tags":"","loc":"interface/whm_gr_p4_tp.html"},{"title":"whm_setup_pl – swiftest","text":"interface Calls interface~~whm_setup_pl~~CallsGraph interface~whm_setup_pl whm_setup_pl proc~whm_setup_pl whm_setup_pl interface~whm_setup_pl->proc~whm_setup_pl setup_pl setup_pl proc~whm_setup_pl->setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body objectobject integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameters Description Reads WHM massive body object in from file","tags":"","loc":"interface/whm_setup_pl.html"},{"title":"whm_setup_initialize_system – swiftest","text":"interface Calls interface~~whm_setup_initialize_system~~CallsGraph interface~whm_setup_initialize_system whm_setup_initialize_system proc~whm_setup_initialize_system whm_setup_initialize_system interface~whm_setup_initialize_system->proc~whm_setup_initialize_system util_set_ir3h util_set_ir3h proc~whm_setup_initialize_system->util_set_ir3h setup_initialize_system setup_initialize_system proc~whm_setup_initialize_system->setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/whm_setup_initialize_system.html"},{"title":"whm_step_pl – swiftest","text":"interface Calls interface~~whm_step_pl~~CallsGraph interface~whm_step_pl whm_step_pl proc~whm_step_pl whm_step_pl interface~whm_step_pl->proc~whm_step_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/whm_step_pl.html"},{"title":"whm_step_system – swiftest","text":"interface Calls interface~~whm_step_system~~CallsGraph interface~whm_step_system whm_step_system proc~whm_step_system whm_step_system interface~whm_step_system->proc~whm_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/whm_step_system.html"},{"title":"whm_step_tp – swiftest","text":"interface Calls interface~~whm_step_tp~~CallsGraph interface~whm_step_tp whm_step_tp proc~whm_step_tp whm_step_tp interface~whm_step_tp->proc~whm_step_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_step_tp(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/whm_step_tp.html"},{"title":"whm_util_append_pl – swiftest","text":"interface Calls interface~~whm_util_append_pl~~CallsGraph interface~whm_util_append_pl whm_util_append_pl proc~whm_util_append_pl whm_util_append_pl interface~whm_util_append_pl->proc~whm_util_append_pl util_exit util_exit proc~whm_util_append_pl->util_exit util_append_pl util_append_pl proc~whm_util_append_pl->util_append_pl util_append util_append proc~whm_util_append_pl->util_append Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/whm_util_append_pl.html"},{"title":"whm_util_spill_pl – swiftest","text":"interface Calls interface~~whm_util_spill_pl~~CallsGraph interface~whm_util_spill_pl whm_util_spill_pl proc~whm_util_spill_pl whm_util_spill_pl interface~whm_util_spill_pl->proc~whm_util_spill_pl util_exit util_exit proc~whm_util_spill_pl->util_exit util_spill_pl util_spill_pl proc~whm_util_spill_pl->util_spill_pl util_spill util_spill proc~whm_util_spill_pl->util_spill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/whm_util_spill_pl.html"},{"title":"whm_util_fill_pl – swiftest","text":"interface Calls interface~~whm_util_fill_pl~~CallsGraph interface~whm_util_fill_pl whm_util_fill_pl proc~whm_util_fill_pl whm_util_fill_pl interface~whm_util_fill_pl->proc~whm_util_fill_pl util_fill_pl util_fill_pl proc~whm_util_fill_pl->util_fill_pl util_exit util_exit proc~whm_util_fill_pl->util_exit util_fill util_fill proc~whm_util_fill_pl->util_fill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: inserts inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/whm_util_fill_pl.html"},{"title":"whm_util_resize_pl – swiftest","text":"interface Calls interface~~whm_util_resize_pl~~CallsGraph interface~whm_util_resize_pl whm_util_resize_pl proc~whm_util_resize_pl whm_util_resize_pl interface~whm_util_resize_pl->proc~whm_util_resize_pl util_resize_pl util_resize_pl proc~whm_util_resize_pl->util_resize_pl util_resize util_resize proc~whm_util_resize_pl->util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/whm_util_resize_pl.html"},{"title":"whm_util_set_ir3j – swiftest","text":"interface Calls interface~~whm_util_set_ir3j~~CallsGraph interface~whm_util_set_ir3j whm_util_set_ir3j proc~whm_util_set_ir3j whm_util_set_ir3j interface~whm_util_set_ir3j->proc~whm_util_set_ir3j Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_util_set_ir3j(self) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object","tags":"","loc":"interface/whm_util_set_ir3j.html"},{"title":"whm_util_set_mu_eta_pl – swiftest","text":"interface Calls interface~~whm_util_set_mu_eta_pl~~CallsGraph interface~whm_util_set_mu_eta_pl whm_util_set_mu_eta_pl proc~whm_util_set_mu_eta_pl whm_util_set_mu_eta_pl interface~whm_util_set_mu_eta_pl->proc~whm_util_set_mu_eta_pl util_set_mu_pl util_set_mu_pl proc~whm_util_set_mu_eta_pl->util_set_mu_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_util_set_mu_eta_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/whm_util_set_mu_eta_pl.html"},{"title":"whm_util_sort_pl – swiftest","text":"interface Calls interface~~whm_util_sort_pl~~CallsGraph interface~whm_util_sort_pl whm_util_sort_pl proc~whm_util_sort_pl whm_util_sort_pl interface~whm_util_sort_pl->proc~whm_util_sort_pl util_sort_pl util_sort_pl proc~whm_util_sort_pl->util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order","tags":"","loc":"interface/whm_util_sort_pl.html"},{"title":"whm_util_sort_rearrange_pl – swiftest","text":"interface Calls interface~~whm_util_sort_rearrange_pl~~CallsGraph interface~whm_util_sort_rearrange_pl whm_util_sort_rearrange_pl proc~whm_util_sort_rearrange_pl whm_util_sort_rearrange_pl interface~whm_util_sort_rearrange_pl->proc~whm_util_sort_rearrange_pl util_sort_rearrange_pl util_sort_rearrange_pl proc~whm_util_sort_rearrange_pl->util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine whm_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order)","tags":"","loc":"interface/whm_util_sort_rearrange_pl.html"},{"title":"symba_encounter_check_pl – swiftest","text":"interface Calls interface~~symba_encounter_check_pl~~CallsGraph interface~symba_encounter_check_pl symba_encounter_check_pl proc~symba_encounter_check_pl symba_encounter_check_pl interface~symba_encounter_check_pl->proc~symba_encounter_check_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function symba_encounter_check_pl(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter","tags":"","loc":"interface/symba_encounter_check_pl.html"},{"title":"symba_encounter_check_pltpenc – swiftest","text":"interface Calls interface~~symba_encounter_check_pltpenc~~CallsGraph interface~symba_encounter_check_pltpenc symba_encounter_check_pltpenc proc~symba_encounter_check_pltpenc symba_encounter_check_pltpenc interface~symba_encounter_check_pltpenc->proc~symba_encounter_check_pltpenc ind2 ind2 proc~symba_encounter_check_pltpenc->ind2 ind1 ind1 proc~symba_encounter_check_pltpenc->ind1 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-pl encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter","tags":"","loc":"interface/symba_encounter_check_pltpenc.html"},{"title":"symba_encounter_check_tp – swiftest","text":"interface Calls interface~~symba_encounter_check_tp~~CallsGraph interface~symba_encounter_check_tp symba_encounter_check_tp proc~symba_encounter_check_tp symba_encounter_check_tp interface~symba_encounter_check_tp->proc~symba_encounter_check_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function symba_encounter_check_tp(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter","tags":"","loc":"interface/symba_encounter_check_tp.html"},{"title":"symba_fragmentation_casedisruption – swiftest","text":"interface Calls interface~~symba_fragmentation_casedisruption~~CallsGraph interface~symba_fragmentation_casedisruption symba_fragmentation_casedisruption proc~symba_fragmentation_casedisruption symba_fragmentation_casedisruption interface~symba_fragmentation_casedisruption->proc~symba_fragmentation_casedisruption fragmentation_initialize fragmentation_initialize proc~symba_fragmentation_casedisruption->fragmentation_initialize proc~symba_fragmentation_mergeaddsub symba_fragmentation_mergeaddsub proc~symba_fragmentation_casedisruption->proc~symba_fragmentation_mergeaddsub Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~symba_fragmentation_casedisruption~~CalledByGraph interface~symba_fragmentation_casedisruption symba_fragmentation_casedisruption proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casedisruption interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function symba_fragmentation_casedisruption(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collisionn Return Value integer(kind=I4B) Status flag assigned to this outcome","tags":"","loc":"interface/symba_fragmentation_casedisruption.html"},{"title":"symba_fragmentation_casehitandrun – swiftest","text":"interface Calls interface~~symba_fragmentation_casehitandrun~~CallsGraph interface~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun proc~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun interface~symba_fragmentation_casehitandrun->proc~symba_fragmentation_casehitandrun fragmentation_initialize fragmentation_initialize proc~symba_fragmentation_casehitandrun->fragmentation_initialize proc~symba_fragmentation_mergeaddsub symba_fragmentation_mergeaddsub proc~symba_fragmentation_casehitandrun->proc~symba_fragmentation_mergeaddsub Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~symba_fragmentation_casehitandrun~~CalledByGraph interface~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casehitandrun interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function symba_fragmentation_casehitandrun(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome","tags":"","loc":"interface/symba_fragmentation_casehitandrun.html"},{"title":"symba_fragmentation_casemerge – swiftest","text":"interface Calls interface~~symba_fragmentation_casemerge~~CallsGraph interface~symba_fragmentation_casemerge symba_fragmentation_casemerge proc~symba_fragmentation_casemerge symba_fragmentation_casemerge interface~symba_fragmentation_casemerge->proc~symba_fragmentation_casemerge proc~symba_fragmentation_mergeaddsub symba_fragmentation_mergeaddsub proc~symba_fragmentation_casemerge->proc~symba_fragmentation_mergeaddsub Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~symba_fragmentation_casemerge~~CalledByGraph interface~symba_fragmentation_casemerge symba_fragmentation_casemerge proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casemerge proc~symba_collision_resolve_mergers symba_collision_resolve_mergers proc~symba_collision_resolve_mergers->interface~symba_fragmentation_casemerge interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations interface~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers->proc~symba_collision_resolve_mergers Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function symba_fragmentation_casemerge(system, param, family, x, v, mass, radius, L_spin, Ip) result(status) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(in), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collisio real(kind=DP), intent(in), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collisio real(kind=DP), intent(in), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision Return Value integer(kind=I4B) Status flag assigned to this outcome","tags":"","loc":"interface/symba_fragmentation_casemerge.html"},{"title":"symba_fragmentation_casesupercatastrophic – swiftest","text":"interface Calls interface~~symba_fragmentation_casesupercatastrophic~~CallsGraph interface~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic proc~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic interface~symba_fragmentation_casesupercatastrophic->proc~symba_fragmentation_casesupercatastrophic fragmentation_initialize fragmentation_initialize proc~symba_fragmentation_casesupercatastrophic->fragmentation_initialize proc~symba_fragmentation_mergeaddsub symba_fragmentation_mergeaddsub proc~symba_fragmentation_casesupercatastrophic->proc~symba_fragmentation_mergeaddsub Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~symba_fragmentation_casesupercatastrophic~~CalledByGraph interface~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casesupercatastrophic interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function symba_fragmentation_casesupercatastrophic(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome","tags":"","loc":"interface/symba_fragmentation_casesupercatastrophic.html"},{"title":"symba_collision_check_pltpenc – swiftest","text":"interface Calls interface~~symba_collision_check_pltpenc~~CallsGraph interface~symba_collision_check_pltpenc symba_collision_check_pltpenc proc~symba_collision_check_pltpenc symba_collision_check_pltpenc interface~symba_collision_check_pltpenc->proc~symba_collision_check_pltpenc ind2 ind2 proc~symba_collision_check_pltpenc->ind2 ind1 ind1 proc~symba_collision_check_pltpenc->ind1 proc~symba_collision_check_one symba_collision_check_one proc~symba_collision_check_pltpenc->proc~symba_collision_check_one orbel_xv2aeq orbel_xv2aeq proc~symba_collision_check_one->orbel_xv2aeq Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t current time real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level","tags":"","loc":"interface/symba_collision_check_pltpenc.html"},{"title":"symba_collision_encounter_scrub – swiftest","text":"interface Calls interface~~symba_collision_encounter_scrub~~CallsGraph interface~symba_collision_encounter_scrub symba_collision_encounter_scrub proc~symba_collision_encounter_scrub symba_collision_encounter_scrub interface~symba_collision_encounter_scrub->proc~symba_collision_encounter_scrub idx2 idx2 proc~symba_collision_encounter_scrub->idx2 idx1 idx1 proc~symba_collision_encounter_scrub->idx1 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_collision_encounter_scrub(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameterss","tags":"","loc":"interface/symba_collision_encounter_scrub.html"},{"title":"symba_collision_make_family_pl – swiftest","text":"interface Calls interface~~symba_collision_make_family_pl~~CallsGraph interface~symba_collision_make_family_pl symba_collision_make_family_pl proc~symba_collision_make_family_pl symba_collision_make_family_pl interface~symba_collision_make_family_pl->proc~symba_collision_make_family_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_collision_make_family_pl(self, idx) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(2) :: idx Array holding the indices of the two bodies involved in the collision","tags":"","loc":"interface/symba_collision_make_family_pl.html"},{"title":"symba_collision_resolve_fragmentations – swiftest","text":"interface Calls interface~~symba_collision_resolve_fragmentations~~CallsGraph interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations idx2 idx2 proc~symba_collision_resolve_fragmentations->idx2 interface~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casesupercatastrophic proc~symba_collision_consolidate_familes symba_collision_consolidate_familes proc~symba_collision_resolve_fragmentations->proc~symba_collision_consolidate_familes interface~symba_fragmentation_casemerge symba_fragmentation_casemerge proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casemerge idx1 idx1 proc~symba_collision_resolve_fragmentations->idx1 interface~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casehitandrun util_exit util_exit proc~symba_collision_resolve_fragmentations->util_exit interface~symba_fragmentation_casedisruption symba_fragmentation_casedisruption proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casedisruption proc~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic interface~symba_fragmentation_casesupercatastrophic->proc~symba_fragmentation_casesupercatastrophic id_arr id_arr proc~symba_collision_consolidate_familes->id_arr idx_arr idx_arr proc~symba_collision_consolidate_familes->idx_arr proc~symba_fragmentation_casemerge symba_fragmentation_casemerge interface~symba_fragmentation_casemerge->proc~symba_fragmentation_casemerge proc~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun interface~symba_fragmentation_casehitandrun->proc~symba_fragmentation_casehitandrun proc~symba_fragmentation_casedisruption symba_fragmentation_casedisruption interface~symba_fragmentation_casedisruption->proc~symba_fragmentation_casedisruption proc~symba_fragmentation_mergeaddsub symba_fragmentation_mergeaddsub proc~symba_fragmentation_casemerge->proc~symba_fragmentation_mergeaddsub fragmentation_initialize fragmentation_initialize proc~symba_fragmentation_casehitandrun->fragmentation_initialize proc~symba_fragmentation_casehitandrun->proc~symba_fragmentation_mergeaddsub proc~symba_fragmentation_casedisruption->fragmentation_initialize proc~symba_fragmentation_casedisruption->proc~symba_fragmentation_mergeaddsub proc~symba_fragmentation_casesupercatastrophic->fragmentation_initialize proc~symba_fragmentation_casesupercatastrophic->proc~symba_fragmentation_mergeaddsub Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_collision_resolve_fragmentations(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions","tags":"","loc":"interface/symba_collision_resolve_fragmentations.html"},{"title":"symba_collision_resolve_mergers – swiftest","text":"interface Calls interface~~symba_collision_resolve_mergers~~CallsGraph interface~symba_collision_resolve_mergers symba_collision_resolve_mergers proc~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers->proc~symba_collision_resolve_mergers idx1 idx1 proc~symba_collision_resolve_mergers->idx1 idx2 idx2 proc~symba_collision_resolve_mergers->idx2 proc~symba_collision_consolidate_familes symba_collision_consolidate_familes proc~symba_collision_resolve_mergers->proc~symba_collision_consolidate_familes interface~symba_fragmentation_casemerge symba_fragmentation_casemerge proc~symba_collision_resolve_mergers->interface~symba_fragmentation_casemerge idx_arr idx_arr proc~symba_collision_consolidate_familes->idx_arr id_arr id_arr proc~symba_collision_consolidate_familes->id_arr proc~symba_fragmentation_casemerge symba_fragmentation_casemerge interface~symba_fragmentation_casemerge->proc~symba_fragmentation_casemerge proc~symba_fragmentation_mergeaddsub symba_fragmentation_mergeaddsub proc~symba_fragmentation_casemerge->proc~symba_fragmentation_mergeaddsub Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_collision_resolve_mergers(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions","tags":"","loc":"interface/symba_collision_resolve_mergers.html"},{"title":"symba_discard_pl – swiftest","text":"interface Calls interface~~symba_discard_pl~~CallsGraph interface~symba_discard_pl symba_discard_pl proc~symba_discard_pl symba_discard_pl interface~symba_discard_pl->proc~symba_discard_pl proc~symba_discard_nonplpl symba_discard_nonplpl proc~symba_discard_pl->proc~symba_discard_nonplpl proc~symba_discard_nonplpl_conservation symba_discard_nonplpl_conservation proc~symba_discard_pl->proc~symba_discard_nonplpl_conservation proc~symba_discard_cb_pl symba_discard_cb_pl proc~symba_discard_nonplpl->proc~symba_discard_cb_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/symba_discard_pl.html"},{"title":"symba_drift_pl – swiftest","text":"interface Calls interface~~symba_drift_pl~~CallsGraph interface~symba_drift_pl symba_drift_pl proc~symba_drift_pl symba_drift_pl interface~symba_drift_pl->proc~symba_drift_pl helio_drift_body helio_drift_body proc~symba_drift_pl->helio_drift_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/symba_drift_pl.html"},{"title":"symba_drift_tp – swiftest","text":"interface Calls interface~~symba_drift_tp~~CallsGraph interface~symba_drift_tp symba_drift_tp proc~symba_drift_tp symba_drift_tp interface~symba_drift_tp->proc~symba_drift_tp helio_drift_body helio_drift_body proc~symba_drift_tp->helio_drift_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_drift_tp(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/symba_drift_tp.html"},{"title":"symba_encounter_check_one – swiftest","text":"interface Calls interface~~symba_encounter_check_one~~CallsGraph interface~symba_encounter_check_one symba_encounter_check_one proc~symba_encounter_check_one symba_encounter_check_one interface~symba_encounter_check_one->proc~symba_encounter_check_one interface~rmvs_chk_ind rmvs_chk_ind proc~symba_encounter_check_one->interface~rmvs_chk_ind proc~rmvs_chk_ind rmvs_chk_ind interface~rmvs_chk_ind->proc~rmvs_chk_ind Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure elemental module subroutine symba_encounter_check_one(xr, yr, zr, vxr, vyr, vzr, rhill1, rhill2, dt, irec, lencounter, lvdotr) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: xr real(kind=DP), intent(in) :: yr real(kind=DP), intent(in) :: zr real(kind=DP), intent(in) :: vxr real(kind=DP), intent(in) :: vyr real(kind=DP), intent(in) :: vzr real(kind=DP), intent(in) :: rhill1 real(kind=DP), intent(in) :: rhill2 real(kind=DP), intent(in) :: dt integer(kind=I4B), intent(in) :: irec logical, intent(out) :: lencounter logical, intent(out) :: lvdotr","tags":"","loc":"interface/symba_encounter_check_one.html"},{"title":"symba_io_write_discard – swiftest","text":"interface Calls interface~~symba_io_write_discard~~CallsGraph interface~symba_io_write_discard symba_io_write_discard proc~symba_io_write_discard symba_io_write_discard interface~symba_io_write_discard->proc~symba_io_write_discard util_exit util_exit proc~symba_io_write_discard->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/symba_io_write_discard.html"},{"title":"symba_io_dump_particle_info – swiftest","text":"interface Calls interface~~symba_io_dump_particle_info~~CallsGraph interface~symba_io_dump_particle_info symba_io_dump_particle_info proc~symba_io_dump_particle_info symba_io_dump_particle_info interface~symba_io_dump_particle_info->proc~symba_io_dump_particle_info util_exit util_exit proc~symba_io_dump_particle_info->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~symba_io_dump_particle_info~~CalledByGraph interface~symba_io_dump_particle_info symba_io_dump_particle_info proc~symba_util_rearray_pl symba_util_rearray_pl proc~symba_util_rearray_pl->interface~symba_io_dump_particle_info proc~symba_setup_initialize_particle_info symba_setup_initialize_particle_info proc~symba_setup_initialize_particle_info->interface~symba_io_dump_particle_info interface~symba_util_rearray_pl symba_util_rearray_pl interface~symba_util_rearray_pl->proc~symba_util_rearray_pl interface~symba_setup_initialize_particle_info symba_setup_initialize_particle_info interface~symba_setup_initialize_particle_info->proc~symba_setup_initialize_particle_info proc~symba_setup_initialize_system symba_setup_initialize_system proc~symba_setup_initialize_system->interface~symba_setup_initialize_particle_info interface~symba_setup_initialize_system symba_setup_initialize_system interface~symba_setup_initialize_system->proc~symba_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_io_dump_particle_info(system, param, lincludecb, tpidx, plidx) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA extensions logical, intent(in), optional :: lincludecb Set to true to include the central body (default is false) integer(kind=I4B), intent(in), optional dimension(:) :: tpidx Array of test particle indices to append to the particle file integer(kind=I4B), intent(in), optional dimension(:) :: plidx Array of massive body indices to append to the particle file","tags":"","loc":"interface/symba_io_dump_particle_info.html"},{"title":"symba_io_param_reader – swiftest","text":"interface Calls interface~~symba_io_param_reader~~CallsGraph interface~symba_io_param_reader symba_io_param_reader proc~symba_io_param_reader symba_io_param_reader interface~symba_io_param_reader->proc~symba_io_param_reader io_toupper io_toupper proc~symba_io_param_reader->io_toupper io_param_reader io_param_reader proc~symba_io_param_reader->io_param_reader io_get_token io_get_token proc~symba_io_param_reader->io_get_token Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(inout) :: self Current run configuration parameters with SyMBA additionss integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) The first element passes the integrator code to the reader integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0","tags":"","loc":"interface/symba_io_param_reader.html"},{"title":"symba_io_param_writer – swiftest","text":"interface Calls interface~~symba_io_param_writer~~CallsGraph interface~symba_io_param_writer symba_io_param_writer proc~symba_io_param_writer symba_io_param_writer interface~symba_io_param_writer->proc~symba_io_param_writer io_param_writer io_param_writer proc~symba_io_param_writer->io_param_writer Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_io_param_writer(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(in) :: self Current run configuration parameters with SyMBA additions integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) Not used in this procedure integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0","tags":"","loc":"interface/symba_io_param_writer.html"},{"title":"symba_io_read_particle – swiftest","text":"interface Calls interface~~symba_io_read_particle~~CallsGraph interface~symba_io_read_particle symba_io_read_particle proc~symba_io_read_particle symba_io_read_particle interface~symba_io_read_particle->proc~symba_io_read_particle util_exit util_exit proc~symba_io_read_particle->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~symba_io_read_particle~~CalledByGraph interface~symba_io_read_particle symba_io_read_particle proc~symba_setup_initialize_system symba_setup_initialize_system proc~symba_setup_initialize_system->interface~symba_io_read_particle interface~symba_setup_initialize_system symba_setup_initialize_system interface~symba_setup_initialize_system->proc~symba_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_io_read_particle(system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system file class( symba_parameters ), intent(inout) :: param Current run configuration parameters with SyMBA extensions","tags":"","loc":"interface/symba_io_read_particle.html"},{"title":"symba_kick_getacch_pl – swiftest","text":"interface Calls interface~~symba_kick_getacch_pl~~CallsGraph interface~symba_kick_getacch_pl symba_kick_getacch_pl proc~symba_kick_getacch_pl symba_kick_getacch_pl interface~symba_kick_getacch_pl->proc~symba_kick_getacch_pl helio_kick_getacch_pl helio_kick_getacch_pl proc~symba_kick_getacch_pl->helio_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/symba_kick_getacch_pl.html"},{"title":"symba_kick_getacch_tp – swiftest","text":"interface Calls interface~~symba_kick_getacch_tp~~CallsGraph interface~symba_kick_getacch_tp symba_kick_getacch_tp proc~symba_kick_getacch_tp symba_kick_getacch_tp interface~symba_kick_getacch_tp->proc~symba_kick_getacch_tp helio_kick_getacch_tp helio_kick_getacch_tp proc~symba_kick_getacch_tp->helio_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/symba_kick_getacch_tp.html"},{"title":"symba_kick_pltpenc – swiftest","text":"interface Calls interface~~symba_kick_pltpenc~~CallsGraph interface~symba_kick_pltpenc symba_kick_pltpenc proc~symba_kick_pltpenc symba_kick_pltpenc interface~symba_kick_pltpenc->proc~symba_kick_pltpenc ind2 ind2 proc~symba_kick_pltpenc->ind2 ind1 ind1 proc~symba_kick_pltpenc->ind1 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(in) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level integer(kind=I4B), intent(in) :: sgn sign to be applied to acceleration","tags":"","loc":"interface/symba_kick_pltpenc.html"},{"title":"symba_setup_initialize_particle_info – swiftest","text":"interface Calls interface~~symba_setup_initialize_particle_info~~CallsGraph interface~symba_setup_initialize_particle_info symba_setup_initialize_particle_info proc~symba_setup_initialize_particle_info symba_setup_initialize_particle_info interface~symba_setup_initialize_particle_info->proc~symba_setup_initialize_particle_info interface~symba_io_dump_particle_info symba_io_dump_particle_info proc~symba_setup_initialize_particle_info->interface~symba_io_dump_particle_info proc~symba_io_dump_particle_info symba_io_dump_particle_info interface~symba_io_dump_particle_info->proc~symba_io_dump_particle_info util_exit util_exit proc~symba_io_dump_particle_info->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~symba_setup_initialize_particle_info~~CalledByGraph interface~symba_setup_initialize_particle_info symba_setup_initialize_particle_info proc~symba_setup_initialize_system symba_setup_initialize_system proc~symba_setup_initialize_system->interface~symba_setup_initialize_particle_info interface~symba_setup_initialize_system symba_setup_initialize_system interface~symba_setup_initialize_system->proc~symba_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_setup_initialize_particle_info(system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(inout) :: param Current run configuration parameters with SyMBA extensions","tags":"","loc":"interface/symba_setup_initialize_particle_info.html"},{"title":"symba_setup_initialize_system – swiftest","text":"interface Calls interface~~symba_setup_initialize_system~~CallsGraph interface~symba_setup_initialize_system symba_setup_initialize_system proc~symba_setup_initialize_system symba_setup_initialize_system interface~symba_setup_initialize_system->proc~symba_setup_initialize_system whm_setup_initialize_system whm_setup_initialize_system proc~symba_setup_initialize_system->whm_setup_initialize_system interface~symba_io_read_particle symba_io_read_particle proc~symba_setup_initialize_system->interface~symba_io_read_particle interface~symba_setup_initialize_particle_info symba_setup_initialize_particle_info proc~symba_setup_initialize_system->interface~symba_setup_initialize_particle_info proc~symba_io_read_particle symba_io_read_particle interface~symba_io_read_particle->proc~symba_io_read_particle proc~symba_setup_initialize_particle_info symba_setup_initialize_particle_info interface~symba_setup_initialize_particle_info->proc~symba_setup_initialize_particle_info interface~symba_io_dump_particle_info symba_io_dump_particle_info proc~symba_setup_initialize_particle_info->interface~symba_io_dump_particle_info util_exit util_exit proc~symba_io_read_particle->util_exit proc~symba_io_dump_particle_info symba_io_dump_particle_info interface~symba_io_dump_particle_info->proc~symba_io_dump_particle_info proc~symba_io_dump_particle_info->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/symba_setup_initialize_system.html"},{"title":"symba_setup_merger – swiftest","text":"interface Calls interface~~symba_setup_merger~~CallsGraph interface~symba_setup_merger symba_setup_merger proc~symba_setup_merger symba_setup_merger interface~symba_setup_merger->proc~symba_setup_merger interface~symba_setup_pl symba_setup_pl proc~symba_setup_merger->interface~symba_setup_pl proc~symba_setup_pl symba_setup_pl interface~symba_setup_pl->proc~symba_setup_pl setup_pl setup_pl proc~symba_setup_pl->setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_setup_merger(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA merger list object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/symba_setup_merger.html"},{"title":"symba_setup_pl – swiftest","text":"interface Calls interface~~symba_setup_pl~~CallsGraph interface~symba_setup_pl symba_setup_pl proc~symba_setup_pl symba_setup_pl interface~symba_setup_pl->proc~symba_setup_pl setup_pl setup_pl proc~symba_setup_pl->setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~symba_setup_pl~~CalledByGraph interface~symba_setup_pl symba_setup_pl proc~symba_setup_merger symba_setup_merger proc~symba_setup_merger->interface~symba_setup_pl interface~symba_setup_merger symba_setup_merger interface~symba_setup_merger->proc~symba_setup_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/symba_setup_pl.html"},{"title":"symba_setup_pltpenc – swiftest","text":"interface Calls interface~~symba_setup_pltpenc~~CallsGraph interface~symba_setup_pltpenc symba_setup_pltpenc proc~symba_setup_pltpenc symba_setup_pltpenc interface~symba_setup_pltpenc->proc~symba_setup_pltpenc setup_encounter setup_encounter proc~symba_setup_pltpenc->setup_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_setup_pltpenc(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for","tags":"","loc":"interface/symba_setup_pltpenc.html"},{"title":"symba_setup_tp – swiftest","text":"interface Calls interface~~symba_setup_tp~~CallsGraph interface~symba_setup_tp symba_setup_tp proc~symba_setup_tp symba_setup_tp interface~symba_setup_tp->proc~symba_setup_tp setup_tp setup_tp proc~symba_setup_tp->setup_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter","tags":"","loc":"interface/symba_setup_tp.html"},{"title":"symba_step_system – swiftest","text":"interface Calls interface~~symba_step_system~~CallsGraph interface~symba_step_system symba_step_system proc~symba_step_system symba_step_system interface~symba_step_system->proc~symba_step_system helio_step_system helio_step_system proc~symba_step_system->helio_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/symba_step_system.html"},{"title":"symba_step_interp_system – swiftest","text":"interface Calls interface~~symba_step_interp_system~~CallsGraph interface~symba_step_interp_system symba_step_interp_system proc~symba_step_interp_system symba_step_interp_system interface~symba_step_interp_system->proc~symba_step_interp_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_step_interp_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/symba_step_interp_system.html"},{"title":"symba_step_set_recur_levels_system – swiftest","text":"interface Calls interface~~symba_step_set_recur_levels_system~~CallsGraph interface~symba_step_set_recur_levels_system symba_step_set_recur_levels_system proc~symba_step_set_recur_levels_system symba_step_set_recur_levels_system interface~symba_step_set_recur_levels_system->proc~symba_step_set_recur_levels_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_step_set_recur_levels_system(self, ireci) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system objec integer(kind=I4B), intent(in) :: ireci Input recursion level","tags":"","loc":"interface/symba_step_set_recur_levels_system.html"},{"title":"symba_step_recur_system – swiftest","text":"interface Calls interface~~symba_step_recur_system~~CallsGraph interface~symba_step_recur_system symba_step_recur_system proc~symba_step_recur_system symba_step_recur_system interface~symba_step_recur_system->proc~symba_step_recur_system util_exit util_exit proc~symba_step_recur_system->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public recursive module subroutine symba_step_recur_system(self, param, t, ireci) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), value :: t integer(kind=I4B), value :: ireci input recursion level","tags":"","loc":"interface/symba_step_recur_system.html"},{"title":"symba_step_reset_system – swiftest","text":"interface Calls interface~~symba_step_reset_system~~CallsGraph interface~symba_step_reset_system symba_step_reset_system proc~symba_step_reset_system symba_step_reset_system interface~symba_step_reset_system->proc~symba_step_reset_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_step_reset_system(self) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object","tags":"","loc":"interface/symba_step_reset_system.html"},{"title":"util_append – swiftest","text":"public interface util_append Called by interface~~util_append~~CalledByGraph interface~util_append util_append proc~symba_util_append_merger symba_util_append_merger proc~symba_util_append_merger->interface~util_append interface~symba_util_append_pl symba_util_append_pl proc~symba_util_append_merger->interface~symba_util_append_pl proc~symba_util_append_tp symba_util_append_tp proc~symba_util_append_tp->interface~util_append proc~symba_util_append_pl symba_util_append_pl proc~symba_util_append_pl->interface~util_append interface~symba_util_append_tp symba_util_append_tp interface~symba_util_append_tp->proc~symba_util_append_tp interface~symba_util_append_pl->proc~symba_util_append_pl interface~symba_util_append_merger symba_util_append_merger interface~symba_util_append_merger->proc~symba_util_append_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines symba_util_append_arr_info symba_util_append_arr_kin Subroutines public subroutine symba_util_append_arr_info(arr, source, nold, nsrc, lsource_mask) Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: arr Destination array type( symba_particle_info ), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine symba_util_append_arr_kin(arr, source, nold, nsrc, lsource_mask) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Destination array type( symba_kinship ), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/util_append.html"},{"title":"symba_util_append_merger – swiftest","text":"interface Calls interface~~symba_util_append_merger~~CallsGraph interface~symba_util_append_merger symba_util_append_merger proc~symba_util_append_merger symba_util_append_merger interface~symba_util_append_merger->proc~symba_util_append_merger util_exit util_exit proc~symba_util_append_merger->util_exit interface~symba_util_append_pl symba_util_append_pl proc~symba_util_append_merger->interface~symba_util_append_pl interface~util_append util_append proc~symba_util_append_merger->interface~util_append proc~symba_util_append_pl symba_util_append_pl interface~symba_util_append_pl->proc~symba_util_append_pl proc~symba_util_append_pl->util_exit proc~symba_util_append_pl->interface~util_append util_append_pl util_append_pl proc~symba_util_append_pl->util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_append_merger(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/symba_util_append_merger.html"},{"title":"symba_util_append_pl – swiftest","text":"interface Calls interface~~symba_util_append_pl~~CallsGraph interface~symba_util_append_pl symba_util_append_pl proc~symba_util_append_pl symba_util_append_pl interface~symba_util_append_pl->proc~symba_util_append_pl util_exit util_exit proc~symba_util_append_pl->util_exit util_append_pl util_append_pl proc~symba_util_append_pl->util_append_pl interface~util_append util_append proc~symba_util_append_pl->interface~util_append Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~symba_util_append_pl~~CalledByGraph interface~symba_util_append_pl symba_util_append_pl proc~symba_util_append_merger symba_util_append_merger proc~symba_util_append_merger->interface~symba_util_append_pl interface~symba_util_append_merger symba_util_append_merger interface~symba_util_append_merger->proc~symba_util_append_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/symba_util_append_pl.html"},{"title":"symba_util_append_tp – swiftest","text":"interface Calls interface~~symba_util_append_tp~~CallsGraph interface~symba_util_append_tp symba_util_append_tp proc~symba_util_append_tp symba_util_append_tp interface~symba_util_append_tp->proc~symba_util_append_tp util_exit util_exit proc~symba_util_append_tp->util_exit interface~util_append util_append proc~symba_util_append_tp->interface~util_append util_append_tp util_append_tp proc~symba_util_append_tp->util_append_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/symba_util_append_tp.html"},{"title":"util_fill – swiftest","text":"public interface util_fill Called by interface~~util_fill~~CalledByGraph interface~util_fill util_fill proc~symba_util_fill_tp symba_util_fill_tp proc~symba_util_fill_tp->interface~util_fill proc~symba_util_fill_pl symba_util_fill_pl proc~symba_util_fill_pl->interface~util_fill interface~symba_util_fill_tp symba_util_fill_tp interface~symba_util_fill_tp->proc~symba_util_fill_tp interface~symba_util_fill_pl symba_util_fill_pl interface~symba_util_fill_pl->proc~symba_util_fill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines symba_util_fill_arr_info symba_util_fill_arr_kin Subroutines public subroutine symba_util_fill_arr_info(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_particle_info ), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine symba_util_fill_arr_kin(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_kinship ), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/util_fill.html"},{"title":"symba_util_fill_pl – swiftest","text":"interface Calls interface~~symba_util_fill_pl~~CallsGraph interface~symba_util_fill_pl symba_util_fill_pl proc~symba_util_fill_pl symba_util_fill_pl interface~symba_util_fill_pl->proc~symba_util_fill_pl util_fill_pl util_fill_pl proc~symba_util_fill_pl->util_fill_pl util_exit util_exit proc~symba_util_fill_pl->util_exit interface~util_fill util_fill proc~symba_util_fill_pl->interface~util_fill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/symba_util_fill_pl.html"},{"title":"symba_util_fill_tp – swiftest","text":"interface Calls interface~~symba_util_fill_tp~~CallsGraph interface~symba_util_fill_tp symba_util_fill_tp proc~symba_util_fill_tp symba_util_fill_tp interface~symba_util_fill_tp->proc~symba_util_fill_tp util_fill_tp util_fill_tp proc~symba_util_fill_tp->util_fill_tp util_exit util_exit proc~symba_util_fill_tp->util_exit interface~util_fill util_fill proc~symba_util_fill_tp->interface~util_fill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/symba_util_fill_tp.html"},{"title":"symba_util_peri_pl – swiftest","text":"interface Calls interface~~symba_util_peri_pl~~CallsGraph interface~symba_util_peri_pl symba_util_peri_pl proc~symba_util_peri_pl symba_util_peri_pl interface~symba_util_peri_pl->proc~symba_util_peri_pl orbel_xv2aeq orbel_xv2aeq proc~symba_util_peri_pl->orbel_xv2aeq Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_peri_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/symba_util_peri_pl.html"},{"title":"symba_util_rearray_pl – swiftest","text":"interface Calls interface~~symba_util_rearray_pl~~CallsGraph interface~symba_util_rearray_pl symba_util_rearray_pl proc~symba_util_rearray_pl symba_util_rearray_pl interface~symba_util_rearray_pl->proc~symba_util_rearray_pl interface~symba_io_dump_particle_info symba_io_dump_particle_info proc~symba_util_rearray_pl->interface~symba_io_dump_particle_info proc~symba_io_dump_particle_info symba_io_dump_particle_info interface~symba_io_dump_particle_info->proc~symba_io_dump_particle_info util_exit util_exit proc~symba_io_dump_particle_info->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_rearray_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions","tags":"","loc":"interface/symba_util_rearray_pl.html"},{"title":"util_resize – swiftest","text":"public interface util_resize Called by interface~~util_resize~~CalledByGraph interface~util_resize util_resize proc~symba_util_resize_merger symba_util_resize_merger proc~symba_util_resize_merger->interface~util_resize interface~symba_util_resize_pl symba_util_resize_pl proc~symba_util_resize_merger->interface~symba_util_resize_pl proc~symba_util_append_arr_kin symba_util_append_arr_kin proc~symba_util_append_arr_kin->interface~util_resize proc~symba_util_resize_pl symba_util_resize_pl proc~symba_util_resize_pl->interface~util_resize proc~symba_util_resize_tp symba_util_resize_tp proc~symba_util_resize_tp->interface~util_resize proc~symba_util_append_arr_info symba_util_append_arr_info proc~symba_util_append_arr_info->interface~util_resize interface~symba_util_resize_merger symba_util_resize_merger interface~symba_util_resize_merger->proc~symba_util_resize_merger interface~symba_util_resize_tp symba_util_resize_tp interface~symba_util_resize_tp->proc~symba_util_resize_tp interface~symba_util_resize_pl->proc~symba_util_resize_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines symba_util_resize_arr_info symba_util_resize_arr_kin Subroutines public subroutine symba_util_resize_arr_info(arr, nnew) Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine symba_util_resize_arr_kin(arr, nnew) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size","tags":"","loc":"interface/util_resize.html"},{"title":"symba_util_resize_merger – swiftest","text":"interface Calls interface~~symba_util_resize_merger~~CallsGraph interface~symba_util_resize_merger symba_util_resize_merger proc~symba_util_resize_merger symba_util_resize_merger interface~symba_util_resize_merger->proc~symba_util_resize_merger interface~util_resize util_resize proc~symba_util_resize_merger->interface~util_resize interface~symba_util_resize_pl symba_util_resize_pl proc~symba_util_resize_merger->interface~symba_util_resize_pl proc~symba_util_resize_pl symba_util_resize_pl interface~symba_util_resize_pl->proc~symba_util_resize_pl proc~symba_util_resize_pl->interface~util_resize util_resize_pl util_resize_pl proc~symba_util_resize_pl->util_resize_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_resize_merger(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA merger list object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/symba_util_resize_merger.html"},{"title":"symba_util_resize_pl – swiftest","text":"interface Calls interface~~symba_util_resize_pl~~CallsGraph interface~symba_util_resize_pl symba_util_resize_pl proc~symba_util_resize_pl symba_util_resize_pl interface~symba_util_resize_pl->proc~symba_util_resize_pl interface~util_resize util_resize proc~symba_util_resize_pl->interface~util_resize util_resize_pl util_resize_pl proc~symba_util_resize_pl->util_resize_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~symba_util_resize_pl~~CalledByGraph interface~symba_util_resize_pl symba_util_resize_pl proc~symba_util_resize_merger symba_util_resize_merger proc~symba_util_resize_merger->interface~symba_util_resize_pl interface~symba_util_resize_merger symba_util_resize_merger interface~symba_util_resize_merger->proc~symba_util_resize_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/symba_util_resize_pl.html"},{"title":"symba_util_resize_tp – swiftest","text":"interface Calls interface~~symba_util_resize_tp~~CallsGraph interface~symba_util_resize_tp symba_util_resize_tp proc~symba_util_resize_tp symba_util_resize_tp interface~symba_util_resize_tp->proc~symba_util_resize_tp interface~util_resize util_resize proc~symba_util_resize_tp->interface~util_resize util_resize_tp util_resize_tp proc~symba_util_resize_tp->util_resize_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/symba_util_resize_tp.html"},{"title":"symba_util_sort_pl – swiftest","text":"interface Calls interface~~symba_util_sort_pl~~CallsGraph interface~symba_util_sort_pl symba_util_sort_pl proc~symba_util_sort_pl symba_util_sort_pl interface~symba_util_sort_pl->proc~symba_util_sort_pl util_sort_pl util_sort_pl proc~symba_util_sort_pl->util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order","tags":"","loc":"interface/symba_util_sort_pl.html"},{"title":"symba_util_sort_tp – swiftest","text":"interface Calls interface~~symba_util_sort_tp~~CallsGraph interface~symba_util_sort_tp symba_util_sort_tp proc~symba_util_sort_tp symba_util_sort_tp interface~symba_util_sort_tp->proc~symba_util_sort_tp util_sort_tp util_sort_tp proc~symba_util_sort_tp->util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order","tags":"","loc":"interface/symba_util_sort_tp.html"},{"title":"symba_util_sort_rearrange_pl – swiftest","text":"interface Calls interface~~symba_util_sort_rearrange_pl~~CallsGraph interface~symba_util_sort_rearrange_pl symba_util_sort_rearrange_pl proc~symba_util_sort_rearrange_pl symba_util_sort_rearrange_pl interface~symba_util_sort_rearrange_pl->proc~symba_util_sort_rearrange_pl util_sort_rearrange_pl util_sort_rearrange_pl proc~symba_util_sort_rearrange_pl->util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order)","tags":"","loc":"interface/symba_util_sort_rearrange_pl.html"},{"title":"symba_util_sort_rearrange_tp – swiftest","text":"interface Calls interface~~symba_util_sort_rearrange_tp~~CallsGraph interface~symba_util_sort_rearrange_tp symba_util_sort_rearrange_tp proc~symba_util_sort_rearrange_tp symba_util_sort_rearrange_tp interface~symba_util_sort_rearrange_tp->proc~symba_util_sort_rearrange_tp util_sort_rearrange_tp util_sort_rearrange_tp proc~symba_util_sort_rearrange_tp->util_sort_rearrange_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order)","tags":"","loc":"interface/symba_util_sort_rearrange_tp.html"},{"title":"util_spill – swiftest","text":"public interface util_spill Called by interface~~util_spill~~CalledByGraph interface~util_spill util_spill proc~symba_util_spill_pl symba_util_spill_pl proc~symba_util_spill_pl->interface~util_spill proc~symba_util_spill_tp symba_util_spill_tp proc~symba_util_spill_tp->interface~util_spill proc~symba_util_spill_pltpenc symba_util_spill_pltpenc proc~symba_util_spill_pltpenc->interface~util_spill interface~symba_util_spill_pltpenc symba_util_spill_pltpenc interface~symba_util_spill_pltpenc->proc~symba_util_spill_pltpenc interface~symba_util_spill_tp symba_util_spill_tp interface~symba_util_spill_tp->proc~symba_util_spill_tp interface~symba_util_spill_pl symba_util_spill_pl interface~symba_util_spill_pl->proc~symba_util_spill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines symba_util_spill_arr_info symba_util_spill_arr_kin Subroutines public subroutine symba_util_spill_arr_info(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_particle_info ), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine symba_util_spill_arr_kin(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_kinship ), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/util_spill.html"},{"title":"symba_util_spill_pl – swiftest","text":"interface Calls interface~~symba_util_spill_pl~~CallsGraph interface~symba_util_spill_pl symba_util_spill_pl proc~symba_util_spill_pl symba_util_spill_pl interface~symba_util_spill_pl->proc~symba_util_spill_pl util_exit util_exit proc~symba_util_spill_pl->util_exit util_spill_pl util_spill_pl proc~symba_util_spill_pl->util_spill_pl interface~util_spill util_spill proc~symba_util_spill_pl->interface~util_spill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/symba_util_spill_pl.html"},{"title":"symba_util_spill_pltpenc – swiftest","text":"interface Calls interface~~symba_util_spill_pltpenc~~CallsGraph interface~symba_util_spill_pltpenc symba_util_spill_pltpenc proc~symba_util_spill_pltpenc symba_util_spill_pltpenc interface~symba_util_spill_pltpenc->proc~symba_util_spill_pltpenc util_spill_encounter util_spill_encounter proc~symba_util_spill_pltpenc->util_spill_encounter util_exit util_exit proc~symba_util_spill_pltpenc->util_exit interface~util_spill util_spill proc~symba_util_spill_pltpenc->interface~util_spill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_spill_pltpenc(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list","tags":"","loc":"interface/symba_util_spill_pltpenc.html"},{"title":"symba_util_spill_tp – swiftest","text":"interface Calls interface~~symba_util_spill_tp~~CallsGraph interface~symba_util_spill_tp symba_util_spill_tp proc~symba_util_spill_tp symba_util_spill_tp interface~symba_util_spill_tp->proc~symba_util_spill_tp util_spill_tp util_spill_tp proc~symba_util_spill_tp->util_spill_tp util_exit util_exit proc~symba_util_spill_tp->util_exit interface~util_spill util_spill proc~symba_util_spill_tp->interface~util_spill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine symba_util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/symba_util_spill_tp.html"},{"title":"io_get_args – swiftest","text":"interface Calls interface~~io_get_args~~CallsGraph interface~io_get_args io_get_args proc~io_get_args io_get_args interface~io_get_args->proc~io_get_args interface~io_toupper io_toupper proc~io_get_args->interface~io_toupper interface~util_exit util_exit proc~io_get_args->interface~util_exit interface~util_version util_version proc~io_get_args->interface~util_version proc~io_toupper io_toupper interface~io_toupper->proc~io_toupper proc~util_exit util_exit interface~util_exit->proc~util_exit proc~util_version util_version interface~util_version->proc~util_version Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function io_get_args(integrator, param_file_name) result(ierr) Implementation → Arguments Type Intent Optional Attributes Name integer(kind=I4B) :: integrator Symbolic code of the requested integrator character(len=:), allocatable :: param_file_name Name of the input parameters file Return Value integer(kind=I4B) I/O error code","tags":"","loc":"interface/io_get_args.html"},{"title":"io_get_token – swiftest","text":"interface Calls interface~~io_get_token~~CallsGraph interface~io_get_token io_get_token proc~io_get_token io_get_token interface~io_get_token->proc~io_get_token Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~io_get_token~~CalledByGraph interface~io_get_token io_get_token proc~io_param_reader io_param_reader proc~io_param_reader->interface~io_get_token interface~io_param_reader io_param_reader interface~io_param_reader->proc~io_param_reader Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function io_get_token(buffer, ifirst, ilast, ierr) result(token) Implementation → Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: buffer Input string buffer integer(kind=I4B), intent(inout) :: ifirst Index of the buffer at which to start the search for a token integer(kind=I4B), intent(out) :: ilast Index of the buffer at the end of the returned token integer(kind=I4B), intent(out) :: ierr Error code Return Value character(len=:),\n  allocatable Returned token string","tags":"","loc":"interface/io_get_token.html"},{"title":"discard_pl – swiftest","text":"interface Calls interface~~discard_pl~~CallsGraph interface~discard_pl discard_pl proc~discard_pl discard_pl interface~discard_pl->proc~discard_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter","tags":"","loc":"interface/discard_pl.html"},{"title":"discard_system – swiftest","text":"interface Calls interface~~discard_system~~CallsGraph interface~discard_system discard_system proc~discard_system discard_system interface~discard_system->proc~discard_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine discard_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/discard_system.html"},{"title":"discard_tp – swiftest","text":"interface Calls interface~~discard_tp~~CallsGraph interface~discard_tp discard_tp proc~discard_tp discard_tp interface~discard_tp->proc~discard_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/discard_tp.html"},{"title":"drift_all – swiftest","text":"interface Calls interface~~drift_all~~CallsGraph interface~drift_all drift_all proc~drift_all drift_all interface~drift_all->proc~drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~drift_all~~CalledByGraph interface~drift_all drift_all proc~drift_body drift_body proc~drift_body->interface~drift_all interface~drift_body drift_body interface~drift_body->proc~drift_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine drift_all(mu, x, v, n, param, dt, mask, iflag) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu Vector of gravitational constants real(kind=DP), intent(inout), dimension(:,:) :: x Position and velocity vectors real(kind=DP), intent(inout), dimension(:,:) :: v Position and velocity vectors integer(kind=I4B), intent(in) :: n number of bodies class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize logical, intent(in), dimension(:) :: mask Logical mask of size self%nbody that determines which bodies to drift. integer(kind=I4B), intent(out), dimension(:) :: iflag Vector of error flags. 0 means no problem","tags":"","loc":"interface/drift_all.html"},{"title":"drift_body – swiftest","text":"interface Calls interface~~drift_body~~CallsGraph interface~drift_body drift_body proc~drift_body drift_body interface~drift_body->proc~drift_body interface~drift_all drift_all proc~drift_body->interface~drift_all proc~drift_all drift_all interface~drift_all->proc~drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"interface/drift_body.html"},{"title":"drift_one – swiftest","text":"interface Calls interface~~drift_one~~CallsGraph interface~drift_one drift_one proc~drift_one drift_one interface~drift_one->proc~drift_one Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure elemental module subroutine drift_one(mu, px, py, pz, vx, vy, vz, dt, iflag) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body to drift real(kind=DP), intent(inout) :: px Position and velocity of body to drift real(kind=DP), intent(inout) :: py Position and velocity of body to drift real(kind=DP), intent(inout) :: pz Position and velocity of body to drift real(kind=DP), intent(inout) :: vx Position and velocity of body to drift real(kind=DP), intent(inout) :: vy Position and velocity of body to drift real(kind=DP), intent(inout) :: vz Position and velocity of body to drift real(kind=DP), intent(in) :: dt Step size integer(kind=I4B), intent(out) :: iflag iflag : error status flag for Danby drift (0 = OK, nonzero = ERROR)","tags":"","loc":"interface/drift_one.html"},{"title":"eucl_dist_index_plpl – swiftest","text":"interface Calls interface~~eucl_dist_index_plpl~~CallsGraph interface~eucl_dist_index_plpl eucl_dist_index_plpl proc~eucl_dist_index_plpl eucl_dist_index_plpl interface~eucl_dist_index_plpl->proc~eucl_dist_index_plpl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine eucl_dist_index_plpl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object","tags":"","loc":"interface/eucl_dist_index_plpl.html"},{"title":"fragmentation_initialize – swiftest","text":"interface Calls interface~~fragmentation_initialize~~CallsGraph interface~fragmentation_initialize fragmentation_initialize proc~fragmentation_initialize fragmentation_initialize interface~fragmentation_initialize->proc~fragmentation_initialize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fragmentation_initialize(system, param, family, x, v, L_spin, Ip, mass, radius, nfrag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, Qloss, lfailure) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters integer(kind=I4B), intent(in), dimension(:) :: family Index of bodies involved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real(kind=DP), intent(inout), dimension(:,:) :: v Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real(kind=DP), intent(inout), dimension(:) :: mass Two-body equivalent mass and radii for the bodies in the collision real(kind=DP), intent(inout), dimension(:) :: radius Two-body equivalent mass and radii for the bodies in the collision integer(kind=I4B), intent(inout) :: nfrag Number of fragments to generate real(kind=DP), intent(inout), dimension(:,:), allocatable :: Ip_frag Fragment rotational inertia vectors real(kind=DP), intent(inout), dimension(:), allocatable :: m_frag Distribution of fragment mass and radii real(kind=DP), intent(inout), dimension(:), allocatable :: rad_frag Distribution of fragment mass and radii real(kind=DP), intent(inout), dimension(:,:), allocatable :: xb_frag Fragment barycentric position, barycentric velocity, and rotation vectors real(kind=DP), intent(inout), dimension(:,:), allocatable :: vb_frag Fragment barycentric position, barycentric velocity, and rotation vectors real(kind=DP), intent(inout), dimension(:,:), allocatable :: rot_frag Fragment barycentric position, barycentric velocity, and rotation vectors real(kind=DP), intent(inout) :: Qloss Energy lost during the collision logical, intent(out) :: lfailure Answers the question: Should this have been a merger instead?","tags":"","loc":"interface/fragmentation_initialize.html"},{"title":"fragmentation_regime – swiftest","text":"interface Calls interface~~fragmentation_regime~~CallsGraph interface~fragmentation_regime fragmentation_regime proc~fragmentation_regime fragmentation_regime interface~fragmentation_regime->proc~fragmentation_regime Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine fragmentation_regime(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, regime, Mlr, Mslr, mtiny, Qloss) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: Mcb real(kind=DP), intent(in) :: m1 real(kind=DP), intent(in) :: m2 real(kind=DP), intent(in) :: rad1 real(kind=DP), intent(in) :: rad2 real(kind=DP), intent(in), dimension(:) :: xh1 real(kind=DP), intent(in), dimension(:) :: xh2 real(kind=DP), intent(in), dimension(:) :: vb1 real(kind=DP), intent(in), dimension(:) :: vb2 real(kind=DP), intent(in) :: den1 real(kind=DP), intent(in) :: den2 integer(kind=I4B), intent(out) :: regime real(kind=DP), intent(out) :: Mlr real(kind=DP), intent(out) :: Mslr real(kind=DP), intent(in) :: mtiny real(kind=DP), intent(out) :: Qloss Energy lost during the collision","tags":"","loc":"interface/fragmentation_regime.html"},{"title":"gr_kick_getaccb_ns_body – swiftest","text":"interface Calls interface~~gr_kick_getaccb_ns_body~~CallsGraph interface~gr_kick_getaccb_ns_body gr_kick_getaccb_ns_body proc~gr_kick_getaccb_ns_body gr_kick_getaccb_ns_body interface~gr_kick_getaccb_ns_body->proc~gr_kick_getaccb_ns_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine gr_kick_getaccb_ns_body(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/gr_kick_getaccb_ns_body.html"},{"title":"gr_kick_getacch – swiftest","text":"interface Calls interface~~gr_kick_getacch~~CallsGraph interface~gr_kick_getacch gr_kick_getacch proc~gr_kick_getacch gr_kick_getacch interface~gr_kick_getacch->proc~gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine gr_kick_getacch(mu, x, lmask, n, inv_c2, agr) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:,:) :: x Position vectors logical, intent(in), dimension(:) :: lmask Logical mask indicating which bodies to compute integer(kind=I4B), intent(in) :: n Total number of bodies real(kind=DP), intent(in) :: inv_c2 Inverse speed of light squared: 1 / c**2 real(kind=DP), intent(out), dimension(:,:) :: agr Accelerations","tags":"","loc":"interface/gr_kick_getacch.html"},{"title":"gr_p4_pos_kick – swiftest","text":"interface Calls interface~~gr_p4_pos_kick~~CallsGraph interface~gr_p4_pos_kick gr_p4_pos_kick proc~gr_p4_pos_kick gr_p4_pos_kick interface~gr_p4_pos_kick->proc~gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine gr_p4_pos_kick(param, x, v, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(inout), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(in) :: dt Step size","tags":"","loc":"interface/gr_p4_pos_kick.html"},{"title":"gr_pseudovel2vel – swiftest","text":"interface Calls interface~~gr_pseudovel2vel~~CallsGraph interface~gr_pseudovel2vel gr_pseudovel2vel proc~gr_pseudovel2vel gr_pseudovel2vel interface~gr_pseudovel2vel->proc~gr_pseudovel2vel Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine gr_pseudovel2vel(param, mu, xh, pv, vh) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real(kind=DP), intent(in), dimension(:) :: xh Heliocentric position vector real(kind=DP), intent(in), dimension(:) :: pv Pseudovelocity velocity vector - see Saha & Tremain (1994), eq. (32) real(kind=DP), intent(out), dimension(:) :: vh Heliocentric velocity vector","tags":"","loc":"interface/gr_pseudovel2vel.html"},{"title":"gr_pv2vh_body – swiftest","text":"interface Calls interface~~gr_pv2vh_body~~CallsGraph interface~gr_pv2vh_body gr_pv2vh_body proc~gr_pv2vh_body gr_pv2vh_body interface~gr_pv2vh_body->proc~gr_pv2vh_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/gr_pv2vh_body.html"},{"title":"gr_vel2pseudovel – swiftest","text":"interface Calls interface~~gr_vel2pseudovel~~CallsGraph interface~gr_vel2pseudovel gr_vel2pseudovel proc~gr_vel2pseudovel gr_vel2pseudovel interface~gr_vel2pseudovel->proc~gr_vel2pseudovel Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine gr_vel2pseudovel(param, mu, xh, vh, pv) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real(kind=DP), intent(in), dimension(:) :: xh Heliocentric position vector real(kind=DP), intent(in), dimension(:) :: vh Heliocentric velocity vector real(kind=DP), intent(out), dimension(:) :: pv Pseudovelocity vector - see Saha & Tremain (1994), eq. (32)","tags":"","loc":"interface/gr_vel2pseudovel.html"},{"title":"gr_vh2pv_body – swiftest","text":"interface Calls interface~~gr_vh2pv_body~~CallsGraph interface~gr_vh2pv_body gr_vh2pv_body proc~gr_vh2pv_body gr_vh2pv_body interface~gr_vh2pv_body->proc~gr_vh2pv_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/gr_vh2pv_body.html"},{"title":"io_conservation_report – swiftest","text":"interface Calls interface~~io_conservation_report~~CallsGraph interface~io_conservation_report io_conservation_report proc~io_conservation_report io_conservation_report interface~io_conservation_report->proc~io_conservation_report lescape lescape proc~io_conservation_report->lescape lspin_orig lspin_orig proc~io_conservation_report->lspin_orig lorbit_orig lorbit_orig proc~io_conservation_report->lorbit_orig ltot_orig ltot_orig proc~io_conservation_report->ltot_orig Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_conservation_report(self, param, lterminal) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen","tags":"","loc":"interface/io_conservation_report.html"},{"title":"io_dump_param – swiftest","text":"interface Calls interface~~io_dump_param~~CallsGraph interface~io_dump_param io_dump_param proc~io_dump_param io_dump_param interface~io_dump_param->proc~io_dump_param interface~util_exit util_exit proc~io_dump_param->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_dump_param(self, param_file_name) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Output collection of parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in)","tags":"","loc":"interface/io_dump_param.html"},{"title":"io_dump_swiftest – swiftest","text":"interface Calls interface~~io_dump_swiftest~~CallsGraph interface~io_dump_swiftest io_dump_swiftest proc~io_dump_swiftest io_dump_swiftest interface~io_dump_swiftest->proc~io_dump_swiftest interface~util_exit util_exit proc~io_dump_swiftest->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/io_dump_swiftest.html"},{"title":"io_dump_system – swiftest","text":"interface Calls interface~~io_dump_system~~CallsGraph interface~io_dump_system io_dump_system proc~io_dump_system io_dump_system interface~io_dump_system->proc~io_dump_system dump_tp_file dump_tp_file proc~io_dump_system->dump_tp_file dump_pl_file dump_pl_file proc~io_dump_system->dump_pl_file dump_param_file dump_param_file proc~io_dump_system->dump_param_file dump_cb_file dump_cb_file proc~io_dump_system->dump_cb_file Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_dump_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/io_dump_system.html"},{"title":"io_param_reader – swiftest","text":"interface Calls interface~~io_param_reader~~CallsGraph interface~io_param_reader io_param_reader proc~io_param_reader io_param_reader interface~io_param_reader->proc~io_param_reader interface~io_toupper io_toupper proc~io_param_reader->interface~io_toupper interface~io_get_token io_get_token proc~io_param_reader->interface~io_get_token proc~io_toupper io_toupper interface~io_toupper->proc~io_toupper proc~io_get_token io_get_token interface~io_get_token->proc~io_get_token Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Collection of parameters integer(kind=I4B), intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer(kind=I4B), intent(in) :: v_list (:) The first element passes the integrator code to the reader integer(kind=I4B), intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0","tags":"","loc":"interface/io_param_reader.html"},{"title":"io_param_writer – swiftest","text":"interface Calls interface~~io_param_writer~~CallsGraph interface~io_param_writer io_param_writer proc~io_param_writer io_param_writer interface~io_param_writer->proc~io_param_writer Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_param_writer(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Collection of parameters integer(kind=I4B), intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer(kind=I4B), intent(in) :: v_list (:) Not used in this procedure integer(kind=I4B), intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0","tags":"","loc":"interface/io_param_writer.html"},{"title":"io_read_body_in – swiftest","text":"interface Calls interface~~io_read_body_in~~CallsGraph interface~io_read_body_in io_read_body_in proc~io_read_body_in io_read_body_in interface~io_read_body_in->proc~io_read_body_in interface~util_exit util_exit proc~io_read_body_in->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/io_read_body_in.html"},{"title":"io_read_cb_in – swiftest","text":"interface Calls interface~~io_read_cb_in~~CallsGraph interface~io_read_cb_in io_read_cb_in proc~io_read_cb_in io_read_cb_in interface~io_read_cb_in->proc~io_read_cb_in interface~util_exit util_exit proc~io_read_cb_in->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_read_cb_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/io_read_cb_in.html"},{"title":"io_read_param_in – swiftest","text":"interface Calls interface~~io_read_param_in~~CallsGraph interface~io_read_param_in io_read_param_in proc~io_read_param_in io_read_param_in interface~io_read_param_in->proc~io_read_param_in interface~util_exit util_exit proc~io_read_param_in->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_read_param_in(self, param_file_name) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Current run configuration parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in)","tags":"","loc":"interface/io_read_param_in.html"},{"title":"io_read_frame_body – swiftest","text":"interface Calls interface~~io_read_frame_body~~CallsGraph interface~io_read_frame_body io_read_frame_body proc~io_read_frame_body io_read_frame_body interface~io_read_frame_body->proc~io_read_frame_body interface~util_exit util_exit proc~io_read_frame_body->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code","tags":"","loc":"interface/io_read_frame_body.html"},{"title":"io_read_frame_cb – swiftest","text":"interface Calls interface~~io_read_frame_cb~~CallsGraph interface~io_read_frame_cb io_read_frame_cb proc~io_read_frame_cb io_read_frame_cb interface~io_read_frame_cb->proc~io_read_frame_cb interface~util_exit util_exit proc~io_read_frame_cb->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_read_frame_cb(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code","tags":"","loc":"interface/io_read_frame_cb.html"},{"title":"io_read_frame_system – swiftest","text":"interface Calls interface~~io_read_frame_system~~CallsGraph interface~io_read_frame_system io_read_frame_system proc~io_read_frame_system io_read_frame_system interface~io_read_frame_system->proc~io_read_frame_system proc~io_read_hdr io_read_hdr proc~io_read_frame_system->proc~io_read_hdr Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_read_frame_system(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code","tags":"","loc":"interface/io_read_frame_system.html"},{"title":"io_write_discard – swiftest","text":"interface Calls interface~~io_write_discard~~CallsGraph interface~io_write_discard io_write_discard proc~io_write_discard io_write_discard interface~io_write_discard->proc~io_write_discard interface~util_exit util_exit proc~io_write_discard->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/io_write_discard.html"},{"title":"io_toupper – swiftest","text":"interface Calls interface~~io_toupper~~CallsGraph interface~io_toupper io_toupper proc~io_toupper io_toupper interface~io_toupper->proc~io_toupper Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~io_toupper~~CalledByGraph interface~io_toupper io_toupper proc~io_get_args io_get_args proc~io_get_args->interface~io_toupper proc~io_param_reader io_param_reader proc~io_param_reader->interface~io_toupper interface~io_param_reader io_param_reader interface~io_param_reader->proc~io_param_reader interface~io_get_args io_get_args interface~io_get_args->proc~io_get_args Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_toupper(string) Implementation → Arguments Type Intent Optional Attributes Name character(len=*), intent(inout) :: string String to make upper case","tags":"","loc":"interface/io_toupper.html"},{"title":"io_write_encounter – swiftest","text":"interface Calls interface~~io_write_encounter~~CallsGraph interface~io_write_encounter io_write_encounter proc~io_write_encounter io_write_encounter interface~io_write_encounter->proc~io_write_encounter interface~util_exit util_exit proc~io_write_encounter->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_write_encounter(t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: t integer(kind=I4B), intent(in) :: name1 integer(kind=I4B), intent(in) :: name2 real(kind=DP), intent(in) :: mass1 real(kind=DP), intent(in) :: mass2 real(kind=DP), intent(in) :: radius1 real(kind=DP), intent(in) :: radius2 real(kind=DP), intent(in), dimension(:) :: xh1 real(kind=DP), intent(in), dimension(:) :: xh2 real(kind=DP), intent(in), dimension(:) :: vh1 real(kind=DP), intent(in), dimension(:) :: vh2 character(len=*), intent(in) :: enc_out character(len=*), intent(in) :: out_type","tags":"","loc":"interface/io_write_encounter.html"},{"title":"io_write_frame_body – swiftest","text":"interface Calls interface~~io_write_frame_body~~CallsGraph interface~io_write_frame_body io_write_frame_body proc~io_write_frame_body io_write_frame_body interface~io_write_frame_body->proc~io_write_frame_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/io_write_frame_body.html"},{"title":"io_write_frame_cb – swiftest","text":"interface Calls interface~~io_write_frame_cb~~CallsGraph interface~io_write_frame_cb io_write_frame_cb proc~io_write_frame_cb io_write_frame_cb interface~io_write_frame_cb->proc~io_write_frame_cb Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_write_frame_cb(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/io_write_frame_cb.html"},{"title":"io_write_frame_system – swiftest","text":"interface Calls interface~~io_write_frame_system~~CallsGraph interface~io_write_frame_system io_write_frame_system proc~io_write_frame_system io_write_frame_system interface~io_write_frame_system->proc~io_write_frame_system proc~io_write_hdr io_write_hdr proc~io_write_frame_system->proc~io_write_hdr interface~util_exit util_exit proc~io_write_frame_system->interface~util_exit proc~io_write_hdr->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine io_write_frame_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/io_write_frame_system.html"},{"title":"kick_getacch_int_pl – swiftest","text":"interface Calls interface~~kick_getacch_int_pl~~CallsGraph interface~kick_getacch_int_pl kick_getacch_int_pl proc~kick_getacch_int_pl kick_getacch_int_pl interface~kick_getacch_int_pl->proc~kick_getacch_int_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self","tags":"","loc":"interface/kick_getacch_int_pl.html"},{"title":"kick_getacch_int_tp – swiftest","text":"interface Calls interface~~kick_getacch_int_tp~~CallsGraph interface~kick_getacch_int_tp kick_getacch_int_tp proc~kick_getacch_int_tp kick_getacch_int_tp interface~kick_getacch_int_tp->proc~kick_getacch_int_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies","tags":"","loc":"interface/kick_getacch_int_tp.html"},{"title":"obl_acc_body – swiftest","text":"interface Calls interface~~obl_acc_body~~CallsGraph interface~obl_acc_body obl_acc_body proc~obl_acc_body obl_acc_body interface~obl_acc_body->proc~obl_acc_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~obl_acc_body~~CalledByGraph interface~obl_acc_body obl_acc_body proc~obl_acc_pl obl_acc_pl proc~obl_acc_pl->interface~obl_acc_body proc~obl_acc_tp obl_acc_tp proc~obl_acc_tp->interface~obl_acc_body interface~obl_acc_tp obl_acc_tp interface~obl_acc_tp->proc~obl_acc_tp interface~obl_acc_pl obl_acc_pl interface~obl_acc_pl->proc~obl_acc_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine obl_acc_body(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object","tags":"","loc":"interface/obl_acc_body.html"},{"title":"obl_acc_pl – swiftest","text":"interface Calls interface~~obl_acc_pl~~CallsGraph interface~obl_acc_pl obl_acc_pl proc~obl_acc_pl obl_acc_pl interface~obl_acc_pl->proc~obl_acc_pl interface~obl_acc_body obl_acc_body proc~obl_acc_pl->interface~obl_acc_body proc~obl_acc_body obl_acc_body interface~obl_acc_body->proc~obl_acc_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine obl_acc_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object","tags":"","loc":"interface/obl_acc_pl.html"},{"title":"obl_acc_tp – swiftest","text":"interface Calls interface~~obl_acc_tp~~CallsGraph interface~obl_acc_tp obl_acc_tp proc~obl_acc_tp obl_acc_tp interface~obl_acc_tp->proc~obl_acc_tp interface~obl_acc_body obl_acc_body proc~obl_acc_tp->interface~obl_acc_body proc~obl_acc_body obl_acc_body interface~obl_acc_body->proc~obl_acc_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine obl_acc_tp(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object","tags":"","loc":"interface/obl_acc_tp.html"},{"title":"obl_pot – swiftest","text":"interface Calls interface~~obl_pot~~CallsGraph interface~obl_pot obl_pot proc~obl_pot obl_pot interface~obl_pot->proc~obl_pot Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~obl_pot~~CalledByGraph interface~obl_pot obl_pot proc~util_get_energy_momentum_system util_get_energy_momentum_system proc~util_get_energy_momentum_system->interface~obl_pot interface~util_get_energy_momentum_system util_get_energy_momentum_system interface~util_get_energy_momentum_system->proc~util_get_energy_momentum_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine obl_pot(npl, Mcb, Mpl, j2rp2, j4rp4, xh, irh, oblpot) Implementation → Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: npl real(kind=DP), intent(in) :: Mcb real(kind=DP), intent(in), dimension(:) :: Mpl real(kind=DP), intent(in) :: j2rp2 real(kind=DP), intent(in) :: j4rp4 real(kind=DP), intent(in), dimension(:, :) :: xh real(kind=DP), intent(in), dimension(:) :: irh real(kind=DP), intent(out) :: oblpot","tags":"","loc":"interface/obl_pot.html"},{"title":"orbel_el2xv_vec – swiftest","text":"interface Calls interface~~orbel_el2xv_vec~~CallsGraph interface~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv_vec->proc~orbel_el2xv proc~orbel_fhybrid orbel_fhybrid proc~orbel_el2xv->proc~orbel_fhybrid proc~orbel_ehybrid orbel_ehybrid proc~orbel_el2xv->proc~orbel_ehybrid interface~orbel_scget orbel_scget proc~orbel_el2xv->interface~orbel_scget proc~orbel_zget orbel_zget proc~orbel_el2xv->proc~orbel_zget proc~orbel_schget orbel_schget proc~orbel_el2xv->proc~orbel_schget proc~orbel_flon orbel_flon proc~orbel_fhybrid->proc~orbel_flon proc~orbel_fget orbel_fget proc~orbel_fhybrid->proc~orbel_fget proc~orbel_esolmd orbel_esolmd proc~orbel_ehybrid->proc~orbel_esolmd proc~orbel_eget orbel_eget proc~orbel_ehybrid->proc~orbel_eget proc~orbel_ehie orbel_ehie proc~orbel_ehybrid->proc~orbel_ehie proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget proc~orbel_esolmd->interface~orbel_scget 3 3 proc~orbel_flon->3 proc~orbel_eget->interface~orbel_scget proc~orbel_fget->proc~orbel_schget proc~orbel_ehie->interface~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/orbel_el2xv_vec.html"},{"title":"orbel_scget – swiftest","text":"interface Calls interface~~orbel_scget~~CallsGraph interface~orbel_scget orbel_scget proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~orbel_scget~~CalledByGraph interface~orbel_scget orbel_scget proc~orbel_esolmd orbel_esolmd proc~orbel_esolmd->interface~orbel_scget proc~orbel_eget orbel_eget proc~orbel_eget->interface~orbel_scget proc~drift_kepu_guess drift_kepu_guess proc~drift_kepu_guess->interface~orbel_scget proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->interface~orbel_scget proc~orbel_ehybrid orbel_ehybrid proc~orbel_el2xv->proc~orbel_ehybrid proc~orbel_ehie orbel_ehie proc~orbel_ehie->interface~orbel_scget proc~drift_kepu drift_kepu proc~drift_kepu->proc~drift_kepu_guess proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv proc~orbel_ehybrid->proc~orbel_esolmd proc~orbel_ehybrid->proc~orbel_eget proc~orbel_ehybrid->proc~orbel_ehie interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine orbel_scget(angle, sx, cx) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: angle real(kind=DP), intent(out) :: sx real(kind=DP), intent(out) :: cx","tags":"","loc":"interface/orbel_scget.html"},{"title":"orbel_xv2aeq – swiftest","text":"interface Calls interface~~orbel_xv2aeq~~CallsGraph interface~orbel_xv2aeq orbel_xv2aeq proc~orbel_xv2aeq orbel_xv2aeq interface~orbel_xv2aeq->proc~orbel_xv2aeq Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~orbel_xv2aeq~~CalledByGraph interface~orbel_xv2aeq orbel_xv2aeq proc~util_peri_tp util_peri_tp proc~util_peri_tp->interface~orbel_xv2aeq interface~util_peri_tp util_peri_tp interface~util_peri_tp->proc~util_peri_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine orbel_xv2aeq(mu, x, v, a, e, q) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(out) :: a semimajor axis real(kind=DP), intent(out) :: e eccentricity real(kind=DP), intent(out) :: q periapsis","tags":"","loc":"interface/orbel_xv2aeq.html"},{"title":"orbel_xv2aqt – swiftest","text":"interface Calls interface~~orbel_xv2aqt~~CallsGraph interface~orbel_xv2aqt orbel_xv2aqt proc~orbel_xv2aqt orbel_xv2aqt interface~orbel_xv2aqt->proc~orbel_xv2aqt Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public pure module subroutine orbel_xv2aqt(mu, x, v, a, q, capm, tperi) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(out) :: a semimajor axis real(kind=DP), intent(out) :: q periapsis real(kind=DP), intent(out) :: capm mean anomaly real(kind=DP), intent(out) :: tperi time of pericenter passage","tags":"","loc":"interface/orbel_xv2aqt.html"},{"title":"orbel_xv2el_vec – swiftest","text":"interface Calls interface~~orbel_xv2el_vec~~CallsGraph interface~orbel_xv2el_vec orbel_xv2el_vec proc~orbel_xv2el_vec orbel_xv2el_vec interface~orbel_xv2el_vec->proc~orbel_xv2el_vec proc~orbel_xv2el orbel_xv2el proc~orbel_xv2el_vec->proc~orbel_xv2el Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/orbel_xv2el_vec.html"},{"title":"setup_body – swiftest","text":"interface Calls interface~~setup_body~~CallsGraph interface~setup_body setup_body proc~setup_body setup_body interface~setup_body->proc~setup_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~setup_body~~CalledByGraph interface~setup_body setup_body proc~setup_tp setup_tp proc~setup_tp->interface~setup_body proc~setup_pl setup_pl proc~setup_pl->interface~setup_body interface~setup_tp setup_tp interface~setup_tp->proc~setup_tp interface~setup_pl setup_pl interface~setup_pl->proc~setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine setup_body(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/setup_body.html"},{"title":"setup_construct_system – swiftest","text":"interface Calls interface~~setup_construct_system~~CallsGraph interface~setup_construct_system setup_construct_system proc~setup_construct_system setup_construct_system interface~setup_construct_system->proc~setup_construct_system interface~util_exit util_exit proc~setup_construct_system->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine setup_construct_system(system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout), allocatable :: system Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/setup_construct_system.html"},{"title":"setup_encounter – swiftest","text":"interface Calls interface~~setup_encounter~~CallsGraph interface~setup_encounter setup_encounter proc~setup_encounter setup_encounter interface~setup_encounter->proc~setup_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine setup_encounter(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for","tags":"","loc":"interface/setup_encounter.html"},{"title":"setup_initialize_system – swiftest","text":"interface Calls interface~~setup_initialize_system~~CallsGraph interface~setup_initialize_system setup_initialize_system proc~setup_initialize_system setup_initialize_system interface~setup_initialize_system->proc~setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"interface/setup_initialize_system.html"},{"title":"setup_pl – swiftest","text":"interface Calls interface~~setup_pl~~CallsGraph interface~setup_pl setup_pl proc~setup_pl setup_pl interface~setup_pl->proc~setup_pl interface~setup_body setup_body proc~setup_pl->interface~setup_body proc~setup_body setup_body interface~setup_body->proc~setup_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/setup_pl.html"},{"title":"setup_tp – swiftest","text":"interface Calls interface~~setup_tp~~CallsGraph interface~setup_tp setup_tp proc~setup_tp setup_tp interface~setup_tp->proc~setup_tp interface~setup_body setup_body proc~setup_tp->interface~setup_body proc~setup_body setup_body interface~setup_body->proc~setup_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parametersr","tags":"","loc":"interface/setup_tp.html"},{"title":"tides_kick_getacch_pl – swiftest","text":"interface Calls interface~~tides_kick_getacch_pl~~CallsGraph interface~tides_kick_getacch_pl tides_kick_getacch_pl proc~tides_kick_getacch_pl tides_kick_getacch_pl interface~tides_kick_getacch_pl->proc~tides_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine tides_kick_getacch_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object","tags":"","loc":"interface/tides_kick_getacch_pl.html"},{"title":"tides_step_spin_system – swiftest","text":"interface Calls interface~~tides_step_spin_system~~CallsGraph interface~tides_step_spin_system tides_step_spin_system proc~tides_step_spin_system tides_step_spin_system interface~tides_step_spin_system->proc~tides_step_spin_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine tides_step_spin_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"interface/tides_step_spin_system.html"},{"title":"user_kick_getacch_body – swiftest","text":"interface Calls interface~~user_kick_getacch_body~~CallsGraph interface~user_kick_getacch_body user_kick_getacch_body proc~user_kick_getacch_body user_kick_getacch_body interface~user_kick_getacch_body->proc~user_kick_getacch_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step","tags":"","loc":"interface/user_kick_getacch_body.html"},{"title":"util_append – swiftest","text":"public interface util_append Called by interface~~util_append~2~~CalledByGraph interface~util_append~2 util_append proc~util_append_tp util_append_tp proc~util_append_tp->interface~util_append~2 interface~util_append_body util_append_body proc~util_append_tp->interface~util_append_body proc~util_append_pl util_append_pl proc~util_append_pl->interface~util_append~2 proc~util_append_pl->interface~util_append_body proc~util_append_body util_append_body proc~util_append_body->interface~util_append~2 interface~util_append_tp util_append_tp interface~util_append_tp->proc~util_append_tp interface~util_append_pl util_append_pl interface~util_append_pl->proc~util_append_pl interface~util_append_body->proc~util_append_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines util_append_arr_char_string util_append_arr_DP util_append_arr_DPvec util_append_arr_I4B util_append_arr_logical Subroutines public subroutine util_append_arr_char_string(arr, source, nold, nsrc, lsource_mask) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Destination array character(len=STRMAX), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine util_append_arr_DP(arr, source, nold, nsrc, lsource_mask) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Destination array real(kind=DP), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine util_append_arr_DPvec(arr, source, nold, nsrc, lsource_mask) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Destination array real(kind=DP), intent(in), dimension(:,:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine util_append_arr_I4B(arr, source, nold, nsrc, lsource_mask) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine util_append_arr_logical(arr, source, nold, nsrc, lsource_mask) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Destination array logical, intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/util_append~2.html"},{"title":"util_append_body – swiftest","text":"interface Calls interface~~util_append_body~~CallsGraph interface~util_append_body util_append_body proc~util_append_body util_append_body interface~util_append_body->proc~util_append_body interface~util_append~2 util_append proc~util_append_body->interface~util_append~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~util_append_body~~CalledByGraph interface~util_append_body util_append_body proc~util_append_tp util_append_tp proc~util_append_tp->interface~util_append_body proc~util_append_pl util_append_pl proc~util_append_pl->interface~util_append_body interface~util_append_tp util_append_tp interface~util_append_tp->proc~util_append_tp interface~util_append_pl util_append_pl interface~util_append_pl->proc~util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_append_body(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/util_append_body.html"},{"title":"util_append_pl – swiftest","text":"interface Calls interface~~util_append_pl~~CallsGraph interface~util_append_pl util_append_pl proc~util_append_pl util_append_pl interface~util_append_pl->proc~util_append_pl interface~util_append~2 util_append proc~util_append_pl->interface~util_append~2 interface~util_exit util_exit proc~util_append_pl->interface~util_exit interface~util_append_body util_append_body proc~util_append_pl->interface~util_append_body proc~util_exit util_exit interface~util_exit->proc~util_exit proc~util_append_body util_append_body interface~util_append_body->proc~util_append_body proc~util_append_body->interface~util_append~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/util_append_pl.html"},{"title":"util_append_tp – swiftest","text":"interface Calls interface~~util_append_tp~~CallsGraph interface~util_append_tp util_append_tp proc~util_append_tp util_append_tp interface~util_append_tp->proc~util_append_tp interface~util_append~2 util_append proc~util_append_tp->interface~util_append~2 interface~util_exit util_exit proc~util_append_tp->interface~util_exit interface~util_append_body util_append_body proc~util_append_tp->interface~util_append_body proc~util_exit util_exit interface~util_exit->proc~util_exit proc~util_append_body util_append_body interface~util_append_body->proc~util_append_body proc~util_append_body->interface~util_append~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"interface/util_append_tp.html"},{"title":"util_coord_b2h_pl – swiftest","text":"interface Calls interface~~util_coord_b2h_pl~~CallsGraph interface~util_coord_b2h_pl util_coord_b2h_pl proc~util_coord_b2h_pl util_coord_b2h_pl interface~util_coord_b2h_pl->proc~util_coord_b2h_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_coord_b2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/util_coord_b2h_pl.html"},{"title":"util_coord_b2h_tp – swiftest","text":"interface Calls interface~~util_coord_b2h_tp~~CallsGraph interface~util_coord_b2h_tp util_coord_b2h_tp proc~util_coord_b2h_tp util_coord_b2h_tp interface~util_coord_b2h_tp->proc~util_coord_b2h_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_coord_b2h_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object","tags":"","loc":"interface/util_coord_b2h_tp.html"},{"title":"util_coord_h2b_pl – swiftest","text":"interface Calls interface~~util_coord_h2b_pl~~CallsGraph interface~util_coord_h2b_pl util_coord_h2b_pl proc~util_coord_h2b_pl util_coord_h2b_pl interface~util_coord_h2b_pl->proc~util_coord_h2b_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_coord_h2b_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/util_coord_h2b_pl.html"},{"title":"util_coord_h2b_tp – swiftest","text":"interface Calls interface~~util_coord_h2b_tp~~CallsGraph interface~util_coord_h2b_tp util_coord_h2b_tp proc~util_coord_h2b_tp util_coord_h2b_tp interface~util_coord_h2b_tp->proc~util_coord_h2b_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_coord_h2b_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object","tags":"","loc":"interface/util_coord_h2b_tp.html"},{"title":"util_copy_encounter – swiftest","text":"interface Calls interface~~util_copy_encounter~~CallsGraph interface~util_copy_encounter util_copy_encounter proc~util_copy_encounter util_copy_encounter interface~util_copy_encounter->proc~util_copy_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_copy_encounter(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into","tags":"","loc":"interface/util_copy_encounter.html"},{"title":"util_exit – swiftest","text":"interface Calls interface~~util_exit~~CallsGraph interface~util_exit util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~util_exit~~CalledByGraph interface~util_exit util_exit proc~io_get_args io_get_args proc~io_get_args->interface~util_exit proc~io_read_param_in io_read_param_in proc~io_read_param_in->interface~util_exit proc~util_append_tp util_append_tp proc~util_append_tp->interface~util_exit proc~io_dump_param io_dump_param proc~io_dump_param->interface~util_exit proc~io_dump_swiftest io_dump_swiftest proc~io_dump_swiftest->interface~util_exit proc~io_read_cb_in io_read_cb_in proc~io_read_cb_in->interface~util_exit proc~io_read_frame_body io_read_frame_body proc~io_read_frame_body->interface~util_exit proc~io_write_hdr io_write_hdr proc~io_write_hdr->interface~util_exit proc~io_read_encounter io_read_encounter proc~io_read_encounter->interface~util_exit proc~io_read_frame_cb io_read_frame_cb proc~io_read_frame_cb->interface~util_exit proc~io_write_encounter io_write_encounter proc~io_write_encounter->interface~util_exit proc~io_write_frame_system io_write_frame_system proc~io_write_frame_system->interface~util_exit proc~io_write_frame_system->proc~io_write_hdr proc~util_valid_id_system util_valid_id_system proc~util_valid_id_system->interface~util_exit proc~setup_construct_system setup_construct_system proc~setup_construct_system->interface~util_exit proc~io_read_body_in io_read_body_in proc~io_read_body_in->interface~util_exit proc~io_write_discard io_write_discard proc~io_write_discard->interface~util_exit proc~util_append_pl util_append_pl proc~util_append_pl->interface~util_exit proc~util_solve_rkf45 util_solve_rkf45 proc~util_solve_rkf45->interface~util_exit interface~io_read_cb_in io_read_cb_in interface~io_read_cb_in->proc~io_read_cb_in interface~util_valid_id_system util_valid_id_system interface~util_valid_id_system->proc~util_valid_id_system interface~io_write_discard io_write_discard interface~io_write_discard->proc~io_write_discard interface~util_append_pl util_append_pl interface~util_append_pl->proc~util_append_pl interface~io_dump_swiftest io_dump_swiftest interface~io_dump_swiftest->proc~io_dump_swiftest interface~util_append_tp util_append_tp interface~util_append_tp->proc~util_append_tp interface~io_read_frame_cb io_read_frame_cb interface~io_read_frame_cb->proc~io_read_frame_cb interface~io_read_body_in io_read_body_in interface~io_read_body_in->proc~io_read_body_in interface~setup_construct_system setup_construct_system interface~setup_construct_system->proc~setup_construct_system interface~io_read_param_in io_read_param_in interface~io_read_param_in->proc~io_read_param_in interface~io_write_frame_system io_write_frame_system interface~io_write_frame_system->proc~io_write_frame_system interface~io_dump_param io_dump_param interface~io_dump_param->proc~io_dump_param interface~io_write_encounter io_write_encounter interface~io_write_encounter->proc~io_write_encounter interface~io_read_frame_body io_read_frame_body interface~io_read_frame_body->proc~io_read_frame_body interface~io_get_args io_get_args interface~io_get_args->proc~io_get_args interface~util_solve_rkf45 util_solve_rkf45 interface~util_solve_rkf45->proc~util_solve_rkf45 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_exit(code) Implementation → Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: code Failure exit code","tags":"","loc":"interface/util_exit.html"},{"title":"util_fill_body – swiftest","text":"interface Calls interface~~util_fill_body~~CallsGraph interface~util_fill_body util_fill_body proc~util_fill_body util_fill_body interface~util_fill_body->proc~util_fill_body interface~util_fill~2 util_fill proc~util_fill_body->interface~util_fill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~util_fill_body~~CalledByGraph interface~util_fill_body util_fill_body proc~util_fill_tp util_fill_tp proc~util_fill_tp->interface~util_fill_body proc~util_fill_pl util_fill_pl proc~util_fill_pl->interface~util_fill_body interface~util_fill_pl util_fill_pl interface~util_fill_pl->proc~util_fill_pl interface~util_fill_tp util_fill_tp interface~util_fill_tp->proc~util_fill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_fill_body(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/util_fill_body.html"},{"title":"util_fill_pl – swiftest","text":"interface Calls interface~~util_fill_pl~~CallsGraph interface~util_fill_pl util_fill_pl proc~util_fill_pl util_fill_pl interface~util_fill_pl->proc~util_fill_pl interface~util_fill_body util_fill_body proc~util_fill_pl->interface~util_fill_body interface~util_fill~2 util_fill proc~util_fill_pl->interface~util_fill~2 proc~util_fill_body util_fill_body interface~util_fill_body->proc~util_fill_body proc~util_fill_body->interface~util_fill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/util_fill_pl.html"},{"title":"util_fill_tp – swiftest","text":"interface Calls interface~~util_fill_tp~~CallsGraph interface~util_fill_tp util_fill_tp proc~util_fill_tp util_fill_tp interface~util_fill_tp->proc~util_fill_tp interface~util_fill_body util_fill_body proc~util_fill_tp->interface~util_fill_body interface~util_fill~2 util_fill proc~util_fill_tp->interface~util_fill~2 proc~util_fill_body util_fill_body interface~util_fill_body->proc~util_fill_body proc~util_fill_body->interface~util_fill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/util_fill_tp.html"},{"title":"util_fill – swiftest","text":"public interface util_fill Called by interface~~util_fill~2~~CalledByGraph interface~util_fill~2 util_fill proc~util_fill_tp util_fill_tp proc~util_fill_tp->interface~util_fill~2 interface~util_fill_body util_fill_body proc~util_fill_tp->interface~util_fill_body proc~util_fill_pl util_fill_pl proc~util_fill_pl->interface~util_fill~2 proc~util_fill_pl->interface~util_fill_body proc~util_fill_body util_fill_body proc~util_fill_body->interface~util_fill~2 interface~util_fill_pl util_fill_pl interface~util_fill_pl->proc~util_fill_pl interface~util_fill_tp util_fill_tp interface~util_fill_tp->proc~util_fill_tp interface~util_fill_body->proc~util_fill_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines util_fill_arr_char_string util_fill_arr_DP util_fill_arr_DPvec util_fill_arr_I4B util_fill_arr_logical Subroutines public subroutine util_fill_arr_char_string(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: keeps Array of values to keep character(len=STRMAX), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine util_fill_arr_DP(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: keeps Array of values to keep real(kind=DP), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine util_fill_arr_DPvec(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: keeps Array of values to keep real(kind=DP), intent(in), dimension(:,:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine util_fill_arr_I4B(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I4B), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine util_fill_arr_logical(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: keeps Array of values to keep logical, intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"interface/util_fill~2.html"},{"title":"util_minimize_bfgs – swiftest","text":"interface Calls interface~~util_minimize_bfgs~~CallsGraph interface~util_minimize_bfgs util_minimize_bfgs proc~util_minimize_bfgs util_minimize_bfgs interface~util_minimize_bfgs->proc~util_minimize_bfgs Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1) Implementation → Arguments Type Intent Optional Attributes Name class(lambda_obj), intent(inout) :: f integer(kind=I4B), intent(in) :: N real(kind=DP), intent(in), dimension(:) :: x0 real(kind=DP), intent(in) :: eps logical, intent(out) :: lerr Return Value real(kind=DP),\n  dimension(:),allocatable","tags":"","loc":"interface/util_minimize_bfgs.html"},{"title":"util_rescale_system – swiftest","text":"interface Calls interface~~util_rescale_system~~CallsGraph interface~util_rescale_system util_rescale_system proc~util_rescale_system util_rescale_system interface~util_rescale_system->proc~util_rescale_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_rescale_system(self, param, mscale, dscale, tscale) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters. Returns with new values of the scale vactors and GU real(kind=DP), intent(in) :: mscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: dscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: tscale Scale factors for mass, distance, and time units, respectively.","tags":"","loc":"interface/util_rescale_system.html"},{"title":"util_peri_tp – swiftest","text":"interface Calls interface~~util_peri_tp~~CallsGraph interface~util_peri_tp util_peri_tp proc~util_peri_tp util_peri_tp interface~util_peri_tp->proc~util_peri_tp interface~orbel_xv2aeq orbel_xv2aeq proc~util_peri_tp->interface~orbel_xv2aeq proc~orbel_xv2aeq orbel_xv2aeq interface~orbel_xv2aeq->proc~orbel_xv2aeq Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_peri_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/util_peri_tp.html"},{"title":"util_resize – swiftest","text":"public interface util_resize Called by interface~~util_resize~2~~CalledByGraph interface~util_resize~2 util_resize proc~util_resize_pl util_resize_pl proc~util_resize_pl->interface~util_resize~2 interface~util_resize_body util_resize_body proc~util_resize_pl->interface~util_resize_body proc~util_append_arr_char_string util_append_arr_char_string proc~util_append_arr_char_string->interface~util_resize~2 proc~util_append_arr_dpvec util_append_arr_DPvec proc~util_append_arr_dpvec->interface~util_resize~2 proc~util_append_arr_logical util_append_arr_logical proc~util_append_arr_logical->interface~util_resize~2 proc~util_append_arr_dp util_append_arr_DP proc~util_append_arr_dp->interface~util_resize~2 proc~util_append_arr_i4b util_append_arr_I4B proc~util_append_arr_i4b->interface~util_resize~2 proc~util_resize_tp util_resize_tp proc~util_resize_tp->interface~util_resize~2 proc~util_resize_tp->interface~util_resize_body proc~util_resize_body util_resize_body proc~util_resize_body->interface~util_resize~2 interface~util_resize_tp util_resize_tp interface~util_resize_tp->proc~util_resize_tp interface~util_resize_pl util_resize_pl interface~util_resize_pl->proc~util_resize_pl interface~util_resize_body->proc~util_resize_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines util_resize_arr_char_string util_resize_arr_DP util_resize_arr_DPvec util_resize_arr_I4B util_resize_arr_logical Subroutines public subroutine util_resize_arr_char_string(arr, nnew) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine util_resize_arr_DP(arr, nnew) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine util_resize_arr_DPvec(arr, nnew) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine util_resize_arr_I4B(arr, nnew) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine util_resize_arr_logical(arr, nnew) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size","tags":"","loc":"interface/util_resize~2.html"},{"title":"util_resize_body – swiftest","text":"interface Calls interface~~util_resize_body~~CallsGraph interface~util_resize_body util_resize_body proc~util_resize_body util_resize_body interface~util_resize_body->proc~util_resize_body interface~util_resize~2 util_resize proc~util_resize_body->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~util_resize_body~~CalledByGraph interface~util_resize_body util_resize_body proc~util_resize_pl util_resize_pl proc~util_resize_pl->interface~util_resize_body proc~util_resize_tp util_resize_tp proc~util_resize_tp->interface~util_resize_body interface~util_resize_tp util_resize_tp interface~util_resize_tp->proc~util_resize_tp interface~util_resize_pl util_resize_pl interface~util_resize_pl->proc~util_resize_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_resize_body(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/util_resize_body.html"},{"title":"util_resize_encounter – swiftest","text":"interface Calls interface~~util_resize_encounter~~CallsGraph interface~util_resize_encounter util_resize_encounter proc~util_resize_encounter util_resize_encounter interface~util_resize_encounter->proc~util_resize_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_resize_encounter(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list integer(kind=I4B), intent(in) :: nnew New size of list needed","tags":"","loc":"interface/util_resize_encounter.html"},{"title":"util_resize_pl – swiftest","text":"interface Calls interface~~util_resize_pl~~CallsGraph interface~util_resize_pl util_resize_pl proc~util_resize_pl util_resize_pl interface~util_resize_pl->proc~util_resize_pl interface~util_resize~2 util_resize proc~util_resize_pl->interface~util_resize~2 interface~util_resize_body util_resize_body proc~util_resize_pl->interface~util_resize_body proc~util_resize_body util_resize_body interface~util_resize_body->proc~util_resize_body proc~util_resize_body->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/util_resize_pl.html"},{"title":"util_resize_tp – swiftest","text":"interface Calls interface~~util_resize_tp~~CallsGraph interface~util_resize_tp util_resize_tp proc~util_resize_tp util_resize_tp interface~util_resize_tp->proc~util_resize_tp interface~util_resize~2 util_resize proc~util_resize_tp->interface~util_resize~2 interface~util_resize_body util_resize_body proc~util_resize_tp->interface~util_resize_body proc~util_resize_body util_resize_body interface~util_resize_body->proc~util_resize_body proc~util_resize_body->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"interface/util_resize_tp.html"},{"title":"util_get_energy_momentum_system – swiftest","text":"interface Calls interface~~util_get_energy_momentum_system~~CallsGraph interface~util_get_energy_momentum_system util_get_energy_momentum_system proc~util_get_energy_momentum_system util_get_energy_momentum_system interface~util_get_energy_momentum_system->proc~util_get_energy_momentum_system py py proc~util_get_energy_momentum_system->py px px proc~util_get_energy_momentum_system->px indj indj proc~util_get_energy_momentum_system->indj indi indi proc~util_get_energy_momentum_system->indi pz pz proc~util_get_energy_momentum_system->pz interface~obl_pot obl_pot proc~util_get_energy_momentum_system->interface~obl_pot proc~obl_pot obl_pot interface~obl_pot->proc~obl_pot Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_get_energy_momentum_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/util_get_energy_momentum_system.html"},{"title":"util_set_beg_end_pl – swiftest","text":"interface Calls interface~~util_set_beg_end_pl~~CallsGraph interface~util_set_beg_end_pl util_set_beg_end_pl proc~util_set_beg_end_pl util_set_beg_end_pl interface~util_set_beg_end_pl->proc~util_set_beg_end_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg Position vectors at beginning of step real(kind=DP), intent(in), optional dimension(:,:) :: xend Positions vectors at end of step real(kind=DP), intent(in), optional dimension(:,:) :: vbeg vbeg is an unused variable to keep this method forward compatible with RMVS","tags":"","loc":"interface/util_set_beg_end_pl.html"},{"title":"util_set_ir3h – swiftest","text":"interface Calls interface~~util_set_ir3h~~CallsGraph interface~util_set_ir3h util_set_ir3h proc~util_set_ir3h util_set_ir3h interface~util_set_ir3h->proc~util_set_ir3h Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object","tags":"","loc":"interface/util_set_ir3h.html"},{"title":"util_set_msys – swiftest","text":"interface Calls interface~~util_set_msys~~CallsGraph interface~util_set_msys util_set_msys proc~util_set_msys util_set_msys interface~util_set_msys->proc~util_set_msys Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_set_msys(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object","tags":"","loc":"interface/util_set_msys.html"},{"title":"util_set_mu_pl – swiftest","text":"interface Calls interface~~util_set_mu_pl~~CallsGraph interface~util_set_mu_pl util_set_mu_pl proc~util_set_mu_pl util_set_mu_pl interface~util_set_mu_pl->proc~util_set_mu_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_set_mu_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/util_set_mu_pl.html"},{"title":"util_set_mu_tp – swiftest","text":"interface Calls interface~~util_set_mu_tp~~CallsGraph interface~util_set_mu_tp util_set_mu_tp proc~util_set_mu_tp util_set_mu_tp interface~util_set_mu_tp->proc~util_set_mu_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_set_mu_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/util_set_mu_tp.html"},{"title":"util_set_rhill – swiftest","text":"interface Calls interface~~util_set_rhill~~CallsGraph interface~util_set_rhill util_set_rhill proc~util_set_rhill util_set_rhill interface~util_set_rhill->proc~util_set_rhill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_set_rhill(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/util_set_rhill.html"},{"title":"util_set_rhill_approximate – swiftest","text":"interface Calls interface~~util_set_rhill_approximate~~CallsGraph interface~util_set_rhill_approximate util_set_rhill_approximate proc~util_set_rhill_approximate util_set_rhill_approximate interface~util_set_rhill_approximate->proc~util_set_rhill_approximate Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_set_rhill_approximate(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"interface/util_set_rhill_approximate.html"},{"title":"util_solve_linear_system – swiftest","text":"public interface util_solve_linear_system Contents Functions util_solve_linear_system_d util_solve_linear_system_q Functions public function util_solve_linear_system_d(A, b, n, lerr) result(x) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A real(kind=DP), intent(in), dimension(:) :: b integer(kind=I4B), intent(in) :: n logical, intent(out) :: lerr Return Value real(kind=DP),\n  dimension(n) public function util_solve_linear_system_q(A, b, n, lerr) result(x) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:) :: b integer(kind=I4B), intent(in) :: n logical, intent(out) :: lerr Return Value real(kind=QP),\n  dimension(n)","tags":"","loc":"interface/util_solve_linear_system.html"},{"title":"util_solve_rkf45 – swiftest","text":"interface Calls interface~~util_solve_rkf45~~CallsGraph interface~util_solve_rkf45 util_solve_rkf45 proc~util_solve_rkf45 util_solve_rkf45 interface~util_solve_rkf45->proc~util_solve_rkf45 interface~util_exit util_exit proc~util_solve_rkf45->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module function util_solve_rkf45(f, y0in, t1, dt0, tol) result(y1) Implementation → Arguments Type Intent Optional Attributes Name class(lambda_obj), intent(inout) :: f lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set real(kind=DP), intent(in), dimension(:) :: y0in Initial value at t=0 real(kind=DP), intent(in) :: t1 Final time real(kind=DP), intent(in) :: dt0 Initial step size guess real(kind=DP), intent(in) :: tol Tolerance on solution Return Value real(kind=DP),\n  dimension(:),allocatable Final result","tags":"","loc":"interface/util_solve_rkf45.html"},{"title":"util_sort – swiftest","text":"public interface util_sort Called by interface~~util_sort~~CalledByGraph interface~util_sort util_sort proc~util_valid_id_system util_valid_id_system proc~util_valid_id_system->interface~util_sort interface~util_valid_id_system util_valid_id_system interface~util_valid_id_system->proc~util_valid_id_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines util_sort_i4b util_sort_index_i4b util_sort_sp util_sort_index_sp util_sort_dp util_sort_index_dp Subroutines public subroutine util_sort_i4b(arr) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:) :: arr public subroutine util_sort_index_i4b(arr, ind) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind public subroutine util_sort_sp(arr) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(inout), dimension(:) :: arr public subroutine util_sort_index_sp(arr, ind) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind public subroutine util_sort_dp(arr) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:) :: arr public subroutine util_sort_index_dp(arr, ind) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind","tags":"","loc":"interface/util_sort.html"},{"title":"util_sort_rearrange_body – swiftest","text":"interface Calls interface~~util_sort_rearrange_body~~CallsGraph interface~util_sort_rearrange_body util_sort_rearrange_body proc~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body->proc~util_sort_rearrange_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~util_sort_rearrange_body~~CalledByGraph interface~util_sort_rearrange_body util_sort_rearrange_body proc~util_sort_rearrange_tp util_sort_rearrange_tp proc~util_sort_rearrange_tp->interface~util_sort_rearrange_body proc~util_sort_rearrange_pl util_sort_rearrange_pl proc~util_sort_rearrange_pl->interface~util_sort_rearrange_body interface~util_sort_rearrange_tp util_sort_rearrange_tp interface~util_sort_rearrange_tp->proc~util_sort_rearrange_tp interface~util_sort_rearrange_pl util_sort_rearrange_pl interface~util_sort_rearrange_pl->proc~util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_sort_rearrange_body(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order)","tags":"","loc":"interface/util_sort_rearrange_body.html"},{"title":"util_sort_rearrange_pl – swiftest","text":"interface Calls interface~~util_sort_rearrange_pl~~CallsGraph interface~util_sort_rearrange_pl util_sort_rearrange_pl proc~util_sort_rearrange_pl util_sort_rearrange_pl interface~util_sort_rearrange_pl->proc~util_sort_rearrange_pl interface~util_sort_rearrange_body util_sort_rearrange_body proc~util_sort_rearrange_pl->interface~util_sort_rearrange_body proc~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body->proc~util_sort_rearrange_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order)","tags":"","loc":"interface/util_sort_rearrange_pl.html"},{"title":"util_sort_rearrange_tp – swiftest","text":"interface Calls interface~~util_sort_rearrange_tp~~CallsGraph interface~util_sort_rearrange_tp util_sort_rearrange_tp proc~util_sort_rearrange_tp util_sort_rearrange_tp interface~util_sort_rearrange_tp->proc~util_sort_rearrange_tp interface~util_sort_rearrange_body util_sort_rearrange_body proc~util_sort_rearrange_tp->interface~util_sort_rearrange_body proc~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body->proc~util_sort_rearrange_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order)","tags":"","loc":"interface/util_sort_rearrange_tp.html"},{"title":"util_sort_body – swiftest","text":"interface Calls interface~~util_sort_body~~CallsGraph interface~util_sort_body util_sort_body proc~util_sort_body util_sort_body interface~util_sort_body->proc~util_sort_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~util_sort_body~~CalledByGraph interface~util_sort_body util_sort_body proc~util_sort_pl util_sort_pl proc~util_sort_pl->interface~util_sort_body proc~util_sort_tp util_sort_tp proc~util_sort_tp->interface~util_sort_body interface~util_sort_pl util_sort_pl interface~util_sort_pl->proc~util_sort_pl interface~util_sort_tp util_sort_tp interface~util_sort_tp->proc~util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_sort_body(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order","tags":"","loc":"interface/util_sort_body.html"},{"title":"util_sort_pl – swiftest","text":"interface Calls interface~~util_sort_pl~~CallsGraph interface~util_sort_pl util_sort_pl proc~util_sort_pl util_sort_pl interface~util_sort_pl->proc~util_sort_pl interface~util_sort_body util_sort_body proc~util_sort_pl->interface~util_sort_body proc~util_sort_body util_sort_body interface~util_sort_body->proc~util_sort_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order","tags":"","loc":"interface/util_sort_pl.html"},{"title":"util_sort_tp – swiftest","text":"interface Calls interface~~util_sort_tp~~CallsGraph interface~util_sort_tp util_sort_tp proc~util_sort_tp util_sort_tp interface~util_sort_tp->proc~util_sort_tp interface~util_sort_body util_sort_body proc~util_sort_tp->interface~util_sort_body proc~util_sort_body util_sort_body interface~util_sort_body->proc~util_sort_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order","tags":"","loc":"interface/util_sort_tp.html"},{"title":"util_spill – swiftest","text":"public interface util_spill Called by interface~~util_spill~2~~CalledByGraph interface~util_spill~2 util_spill proc~util_spill_encounter util_spill_encounter proc~util_spill_encounter->interface~util_spill~2 proc~util_spill_pl util_spill_pl proc~util_spill_pl->interface~util_spill~2 interface~util_spill_body util_spill_body proc~util_spill_pl->interface~util_spill_body proc~util_spill_body util_spill_body proc~util_spill_body->interface~util_spill~2 proc~util_spill_tp util_spill_tp proc~util_spill_tp->interface~util_spill~2 proc~util_spill_tp->interface~util_spill_body interface~util_spill_encounter util_spill_encounter interface~util_spill_encounter->proc~util_spill_encounter interface~util_spill_pl util_spill_pl interface~util_spill_pl->proc~util_spill_pl interface~util_spill_tp util_spill_tp interface~util_spill_tp->proc~util_spill_tp interface~util_spill_body->proc~util_spill_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Subroutines util_spill_arr_char_string util_spill_arr_DP util_spill_arr_DPvec util_spill_arr_I4B util_spill_arr_logical Subroutines public subroutine util_spill_arr_char_string(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: keeps Array of values to keep character(len=STRMAX), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine util_spill_arr_DP(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: keeps Array of values to keep real(kind=DP), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine util_spill_arr_DPvec(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: keeps Array of values to keep real(kind=DP), intent(inout), dimension(:,:), allocatable :: discards Array discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine util_spill_arr_I4B(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I4B), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine util_spill_arr_logical(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: keeps Array of values to keep logical, intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/util_spill~2.html"},{"title":"util_spill_body – swiftest","text":"interface Calls interface~~util_spill_body~~CallsGraph interface~util_spill_body util_spill_body proc~util_spill_body util_spill_body interface~util_spill_body->proc~util_spill_body interface~util_spill~2 util_spill proc~util_spill_body->interface~util_spill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~util_spill_body~~CalledByGraph interface~util_spill_body util_spill_body proc~util_spill_pl util_spill_pl proc~util_spill_pl->interface~util_spill_body proc~util_spill_tp util_spill_tp proc~util_spill_tp->interface~util_spill_body interface~util_spill_pl util_spill_pl interface~util_spill_pl->proc~util_spill_pl interface~util_spill_tp util_spill_tp interface~util_spill_tp->proc~util_spill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_spill_body(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/util_spill_body.html"},{"title":"util_spill_encounter – swiftest","text":"interface Calls interface~~util_spill_encounter~~CallsGraph interface~util_spill_encounter util_spill_encounter proc~util_spill_encounter util_spill_encounter interface~util_spill_encounter->proc~util_spill_encounter interface~util_spill~2 util_spill proc~util_spill_encounter->interface~util_spill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_spill_encounter(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list","tags":"","loc":"interface/util_spill_encounter.html"},{"title":"util_spill_pl – swiftest","text":"interface Calls interface~~util_spill_pl~~CallsGraph interface~util_spill_pl util_spill_pl proc~util_spill_pl util_spill_pl interface~util_spill_pl->proc~util_spill_pl interface~util_spill~2 util_spill proc~util_spill_pl->interface~util_spill~2 interface~util_spill_body util_spill_body proc~util_spill_pl->interface~util_spill_body proc~util_spill_body util_spill_body interface~util_spill_body->proc~util_spill_body proc~util_spill_body->interface~util_spill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/util_spill_pl.html"},{"title":"util_spill_tp – swiftest","text":"interface Calls interface~~util_spill_tp~~CallsGraph interface~util_spill_tp util_spill_tp proc~util_spill_tp util_spill_tp interface~util_spill_tp->proc~util_spill_tp interface~util_spill~2 util_spill proc~util_spill_tp->interface~util_spill~2 interface~util_spill_body util_spill_body proc~util_spill_tp->interface~util_spill_body proc~util_spill_body util_spill_body interface~util_spill_body->proc~util_spill_body proc~util_spill_body->interface~util_spill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"interface/util_spill_tp.html"},{"title":"util_valid_id_system – swiftest","text":"interface Calls interface~~util_valid_id_system~~CallsGraph interface~util_valid_id_system util_valid_id_system proc~util_valid_id_system util_valid_id_system interface~util_valid_id_system->proc~util_valid_id_system interface~util_exit util_exit proc~util_valid_id_system->interface~util_exit interface~util_sort util_sort proc~util_valid_id_system->interface~util_sort proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_valid_id_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"interface/util_valid_id_system.html"},{"title":"util_version – swiftest","text":"interface Calls interface~~util_version~~CallsGraph interface~util_version util_version proc~util_version util_version interface~util_version->proc~util_version Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by interface~~util_version~~CalledByGraph interface~util_version util_version proc~io_get_args io_get_args proc~io_get_args->interface~util_version interface~io_get_args io_get_args interface~io_get_args->proc~io_get_args Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. public module subroutine util_version() Implementation → Arguments None","tags":"","loc":"interface/util_version.html"},{"title":"lambda_init_0 – swiftest","text":"public function lambda_init_0(lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) Called by proc~~lambda_init_0~~CalledByGraph proc~lambda_init_0 lambda_init_0 interface~lambda_obj~2 lambda_obj interface~lambda_obj~2->proc~lambda_init_0 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/lambda_init_0.html"},{"title":"lambda_init_0_err – swiftest","text":"public function lambda_init_0_err(lambda, lerr) Arguments Type Intent Optional Attributes Name procedure( lambda0err ) :: lambda logical, intent(in) :: lerr Return Value type( lambda_obj_err ) Called by proc~~lambda_init_0_err~~CalledByGraph proc~lambda_init_0_err lambda_init_0_err interface~lambda_obj~2 lambda_obj interface~lambda_obj~2->proc~lambda_init_0_err Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/lambda_init_0_err.html"},{"title":"lambda_init_tvar – swiftest","text":"public function lambda_init_tvar(lambda, t) Arguments Type Intent Optional Attributes Name procedure( lambda0tvar ) :: lambda real(kind=DP), intent(in) :: t Return Value type( lambda_obj_tvar ) Called by proc~~lambda_init_tvar~~CalledByGraph proc~lambda_init_tvar lambda_init_tvar interface~lambda_obj~2 lambda_obj interface~lambda_obj~2->proc~lambda_init_tvar Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/lambda_init_tvar.html"},{"title":"lambda_eval_0 – swiftest","text":"public function lambda_eval_0(self, x) result(y) Arguments Type Intent Optional Attributes Name class( lambda_obj ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x Return Value real(kind=DP) Contents None","tags":"","loc":"proc/lambda_eval_0.html"},{"title":"lambda_eval_0_err – swiftest","text":"public function lambda_eval_0_err(self, x) result(y) Arguments Type Intent Optional Attributes Name class( lambda_obj_err ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x Return Value real(kind=DP) Contents None","tags":"","loc":"proc/lambda_eval_0_err.html"},{"title":"lambda_eval_tvar – swiftest","text":"public function lambda_eval_tvar(self, x, t) result(y) Arguments Type Intent Optional Attributes Name class( lambda_obj_tvar ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t Return Value real(kind=DP),\n  dimension(:),allocatable Contents None","tags":"","loc":"proc/lambda_eval_tvar.html"},{"title":"lambda_destroy – swiftest","text":"public subroutine lambda_destroy(self) Arguments Type Intent Optional Attributes Name type( lambda_obj ) :: self Contents None","tags":"","loc":"proc/lambda_destroy.html"},{"title":"lambda_obj – swiftest","text":"public interface lambda_obj Calls interface~~lambda_obj~2~~CallsGraph interface~lambda_obj~2 lambda_obj proc~lambda_init_0 lambda_init_0 interface~lambda_obj~2->proc~lambda_init_0 proc~lambda_init_0_err lambda_init_0_err interface~lambda_obj~2->proc~lambda_init_0_err proc~lambda_init_tvar lambda_init_tvar interface~lambda_obj~2->proc~lambda_init_tvar Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Module Procedures lambda_init_0 lambda_init_0_err lambda_init_tvar Module Procedures public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) public function lambda_init_0_err (lambda, lerr) Arguments Type Intent Optional Attributes Name procedure( lambda0err ) :: lambda logical, intent(in) :: lerr Return Value type( lambda_obj_err ) public function lambda_init_tvar (lambda, t) Arguments Type Intent Optional Attributes Name procedure( lambda0tvar ) :: lambda real(kind=DP), intent(in) :: t Return Value type( lambda_obj_tvar )","tags":"","loc":"interface/lambda_obj~2.html"},{"title":"rmvs_interp_out – swiftest","text":"subroutine rmvs_interp_out(cb, pl, dt) Interpolate planet positions between two Keplerian orbits in outer encounter region Adapted from David E. Kaufmann's Swifter routine rmvs_interp_out.f90 Adapted from Hal Levison's Swift routine rmvs3_interp.f Arguments Type Intent Optional Attributes Name class( rmvs_cb ), intent(inout) :: cb RMVS central body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object real(kind=DP), intent(in) :: dt Step size Calls proc~~rmvs_interp_out~~CallsGraph proc~rmvs_interp_out rmvs_interp_out util_exit util_exit proc~rmvs_interp_out->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_interp_out~~CalledByGraph proc~rmvs_interp_out rmvs_interp_out proc~rmvs_step_system rmvs_step_system proc~rmvs_step_system->proc~rmvs_interp_out interface~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_interp_out.html"},{"title":"rmvs_step_out – swiftest","text":"subroutine rmvs_step_out(cb, pl, tp, system, param, t, dt) Step ACTIVE test particles ahead in the outer encounter region, setting up and calling the inner region\n    integration if necessar Adapted from Hal Levison's Swift routines rmvs3_step_out.f and rmvs3_step_out2.f\n Adapted from David E. Kaufmann's Swifter routines rmvs_step_out.f90 and rmvs_step_out2.f90 Arguments Type Intent Optional Attributes Name class( rmvs_cb ), intent(inout) :: cb RMVS central body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_tp ), intent(inout) :: tp RMVS test particle object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsiz Calls proc~~rmvs_step_out~~CallsGraph proc~rmvs_step_out rmvs_step_out proc~rmvs_interp_in rmvs_interp_in proc~rmvs_step_out->proc~rmvs_interp_in proc~rmvs_step_in rmvs_step_in proc~rmvs_step_out->proc~rmvs_step_in util_exit util_exit proc~rmvs_interp_in->util_exit proc~rmvs_end_planetocentric rmvs_end_planetocentric proc~rmvs_step_in->proc~rmvs_end_planetocentric proc~rmvs_peri_tp rmvs_peri_tp proc~rmvs_step_in->proc~rmvs_peri_tp proc~rmvs_make_planetocentric rmvs_make_planetocentric proc~rmvs_step_in->proc~rmvs_make_planetocentric vpc vpc proc~rmvs_peri_tp->vpc xpc xpc proc~rmvs_peri_tp->xpc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_step_out~~CalledByGraph proc~rmvs_step_out rmvs_step_out proc~rmvs_step_system rmvs_step_system proc~rmvs_step_system->proc~rmvs_step_out interface~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_step_out.html"},{"title":"rmvs_interp_in – swiftest","text":"subroutine rmvs_interp_in(cb, pl, system, param, dt, outer_index) Interpolate planet positions between two Keplerian orbits in inner encounter regio Adapted from David E. Kaufmann's Swifter routine rmvs_interp_in.f90 Adapted from Hal Levison's Swift routine rmvs3_interp.f Arguments Type Intent Optional Attributes Name class( rmvs_cb ), intent(inout) :: cb RMVS cenral body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object class(swiftest_parameters), intent(in) :: param Swiftest parameters file real(kind=DP), intent(in) :: dt Step size integer(kind=I4B), intent(in) :: outer_index Outer substep number within current set Calls proc~~rmvs_interp_in~~CallsGraph proc~rmvs_interp_in rmvs_interp_in util_exit util_exit proc~rmvs_interp_in->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_interp_in~~CalledByGraph proc~rmvs_interp_in rmvs_interp_in proc~rmvs_step_out rmvs_step_out proc~rmvs_step_out->proc~rmvs_interp_in proc~rmvs_step_system rmvs_step_system proc~rmvs_step_system->proc~rmvs_step_out interface~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_interp_in.html"},{"title":"rmvs_step_in – swiftest","text":"subroutine rmvs_step_in(cb, pl, tp, param, outer_time, dto) Step active test particles ahead in the inner encounter region Adapted from Hal Levison's Swift routine rmvs3_step_in.f\n Adapted from David E. Kaufmann's Swifter routine rmvs_step_in.f90 Arguments Type Intent Optional Attributes Name class( rmvs_cb ), intent(inout) :: cb RMVS central body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_tp ), intent(inout) :: tp RMVS test particle object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: outer_time Current time real(kind=DP), intent(in) :: dto Outer step size Calls proc~~rmvs_step_in~~CallsGraph proc~rmvs_step_in rmvs_step_in proc~rmvs_make_planetocentric rmvs_make_planetocentric proc~rmvs_step_in->proc~rmvs_make_planetocentric proc~rmvs_end_planetocentric rmvs_end_planetocentric proc~rmvs_step_in->proc~rmvs_end_planetocentric proc~rmvs_peri_tp rmvs_peri_tp proc~rmvs_step_in->proc~rmvs_peri_tp vpc vpc proc~rmvs_peri_tp->vpc xpc xpc proc~rmvs_peri_tp->xpc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_step_in~~CalledByGraph proc~rmvs_step_in rmvs_step_in proc~rmvs_step_out rmvs_step_out proc~rmvs_step_out->proc~rmvs_step_in proc~rmvs_step_system rmvs_step_system proc~rmvs_step_system->proc~rmvs_step_out interface~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_step_in.html"},{"title":"rmvs_make_planetocentric – swiftest","text":"subroutine rmvs_make_planetocentric(param, cb, pl, tp) When encounters are detected, this method will call the interpolation methods for the planets and \n creates a Swiftest test particle structure for each planet's encountering test particles to simplify the \n planetocentric calculations. This subroutine is not based on an existing one from Swift and Swifter Arguments Type Intent Optional Attributes Name class(swiftest_parameters), intent(in) :: param Current run configuration paramete class( rmvs_cb ), intent(inout) :: cb RMVS central body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_tp ), intent(inout) :: tp RMVS test particle object Called by proc~~rmvs_make_planetocentric~~CalledByGraph proc~rmvs_make_planetocentric rmvs_make_planetocentric proc~rmvs_step_in rmvs_step_in proc~rmvs_step_in->proc~rmvs_make_planetocentric proc~rmvs_step_out rmvs_step_out proc~rmvs_step_out->proc~rmvs_step_in proc~rmvs_step_system rmvs_step_system proc~rmvs_step_system->proc~rmvs_step_out interface~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_make_planetocentric.html"},{"title":"rmvs_peri_tp – swiftest","text":"subroutine rmvs_peri_tp(tp, pl, t, dt, lfirst, inner_index, ipleP, param) Determine planetocentric pericenter passages for test particles in close encounters with a planet Adapted from Hal Levison's Swift routine Adapted from Hal Levison's Swift routine util_peri.f\n Adapted from David E. Kaufmann's Swifter routine rmvs_peri.f90 Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: tp RMVS test particle object (planetocentric) class( rmvs_pl ), intent(inout) :: pl RMVS massive body object (heliocentric) real(kind=DP), intent(in) :: t current time real(kind=DP), intent(in) :: dt step size logical, intent(in) :: lfirst Logical flag indicating whether current invocation is the first integer(kind=I4B), intent(in) :: inner_index Outer substep number within current set integer(kind=I4B), intent(in) :: ipleP index of RMVS planet being closely encountered class(swiftest_parameters), intent(in) :: param Current run configuration parameters Calls proc~~rmvs_peri_tp~~CallsGraph proc~rmvs_peri_tp rmvs_peri_tp vpc vpc proc~rmvs_peri_tp->vpc xpc xpc proc~rmvs_peri_tp->xpc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_peri_tp~~CalledByGraph proc~rmvs_peri_tp rmvs_peri_tp proc~rmvs_step_in rmvs_step_in proc~rmvs_step_in->proc~rmvs_peri_tp proc~rmvs_step_out rmvs_step_out proc~rmvs_step_out->proc~rmvs_step_in proc~rmvs_step_system rmvs_step_system proc~rmvs_step_system->proc~rmvs_step_out interface~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_peri_tp.html"},{"title":"rmvs_end_planetocentric – swiftest","text":"subroutine rmvs_end_planetocentric(pl, tp) Deallocates all of the encountering particle data structures for next time Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_tp ), intent(inout) :: tp RMVS test particle objec Called by proc~~rmvs_end_planetocentric~~CalledByGraph proc~rmvs_end_planetocentric rmvs_end_planetocentric proc~rmvs_step_in rmvs_step_in proc~rmvs_step_in->proc~rmvs_end_planetocentric proc~rmvs_step_out rmvs_step_out proc~rmvs_step_out->proc~rmvs_step_in proc~rmvs_step_system rmvs_step_system proc~rmvs_step_system->proc~rmvs_step_out interface~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_end_planetocentric.html"},{"title":"kick_getacch_int_pl – swiftest","text":"pure module subroutine kick_getacch_int_pl(self) Interface → Compute direct cross (third) term heliocentric accelerations of massive bodies Adapted from Hal Levison's Swift routine getacch_ah3.f\n Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_ah3.f90 and helio_kick_getacch_int.f90 Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Called by proc~~kick_getacch_int_pl~~CalledByGraph proc~kick_getacch_int_pl kick_getacch_int_pl interface~kick_getacch_int_pl kick_getacch_int_pl interface~kick_getacch_int_pl->proc~kick_getacch_int_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/kick_getacch_int_pl.html"},{"title":"kick_getacch_int_tp – swiftest","text":"pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl) Interface → Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies Adapted from Hal Levison's Swift routine getacch_ah3_tp.f\n Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_ah3.f90 and helio_kick_getacch_int_tp.f90 Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies Called by proc~~kick_getacch_int_tp~~CalledByGraph proc~kick_getacch_int_tp kick_getacch_int_tp interface~kick_getacch_int_tp kick_getacch_int_tp interface~kick_getacch_int_tp->proc~kick_getacch_int_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/kick_getacch_int_tp.html"},{"title":"tides_kick_getacch_pl – swiftest","text":"module subroutine tides_kick_getacch_pl(self, system) Interface → Calculated tidal torques from central body to any planet and from any planet to central body\n planet - planet interactions are considered negligable.\n This is a constant time lag model. Adapted from Mercury-T code from Bolmont et al. (2015) Reference:\n    Bolmont, E., Raymond, S.N., Leconte, J., Hersant, F., Correia, A.C.M., 2015. \n       Mercury-T : A new code to study tidally evolving multi-planet systems. \n       Applications to Kepler-62. A&A 583, A116. https://doi.org/10.1051/0004-6361/201525909 Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object Called by proc~~tides_kick_getacch_pl~~CalledByGraph proc~tides_kick_getacch_pl tides_kick_getacch_pl interface~tides_kick_getacch_pl tides_kick_getacch_pl interface~tides_kick_getacch_pl->proc~tides_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/tides_kick_getacch_pl.html"},{"title":"tides_step_spin_system – swiftest","text":"module subroutine tides_step_spin_system(self, param, t, dt) Interface → Integrates the spin equations for central and massive bodies of the system subjected to tides. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize Called by proc~~tides_step_spin_system~~CalledByGraph proc~tides_step_spin_system tides_step_spin_system interface~tides_step_spin_system tides_step_spin_system interface~tides_step_spin_system->proc~tides_step_spin_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/tides_step_spin_system.html"},{"title":"obl_acc_body – swiftest","text":"module subroutine obl_acc_body(self, system) Interface → Compute the barycentric accelerations of bodies due to the oblateness of the central body\n      Returned values do not include monopole term or terms higher than J4 Adapted from David E. Kaufmann's Swifter routine: obl_acc.f90 and obl_acc_tp.f90\n Adapted from Hal Levison's Swift routine obl_acc.f and obl_acc_tp.f Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object Called by proc~~obl_acc_body~~CalledByGraph proc~obl_acc_body obl_acc_body interface~obl_acc_body obl_acc_body interface~obl_acc_body->proc~obl_acc_body proc~obl_acc_pl obl_acc_pl proc~obl_acc_pl->interface~obl_acc_body proc~obl_acc_tp obl_acc_tp proc~obl_acc_tp->interface~obl_acc_body interface~obl_acc_tp obl_acc_tp interface~obl_acc_tp->proc~obl_acc_tp interface~obl_acc_pl obl_acc_pl interface~obl_acc_pl->proc~obl_acc_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/obl_acc_body.html"},{"title":"obl_acc_pl – swiftest","text":"module subroutine obl_acc_pl(self, system) Interface → Compute the barycentric accelerations of massive bodies due to the oblateness of the central body Adapted from David E. Kaufmann's Swifter routine: obl_acc.f90 and obl_acc_tp.f90\n Adapted from Hal Levison's Swift routine obl_acc.f and obl_acc_tp.f Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object Calls proc~~obl_acc_pl~~CallsGraph proc~obl_acc_pl obl_acc_pl interface~obl_acc_body obl_acc_body proc~obl_acc_pl->interface~obl_acc_body proc~obl_acc_body obl_acc_body interface~obl_acc_body->proc~obl_acc_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~obl_acc_pl~~CalledByGraph proc~obl_acc_pl obl_acc_pl interface~obl_acc_pl obl_acc_pl interface~obl_acc_pl->proc~obl_acc_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/obl_acc_pl.html"},{"title":"obl_acc_tp – swiftest","text":"module subroutine obl_acc_tp(self, system) Interface → Compute the barycentric accelerations of massive bodies due to the oblateness of the central body Adapted from David E. Kaufmann's Swifter routine: obl_acc.f90 and obl_acc_tp.f90\n Adapted from Hal Levison's Swift routine obl_acc.f and obl_acc_tp.f Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object Calls proc~~obl_acc_tp~~CallsGraph proc~obl_acc_tp obl_acc_tp interface~obl_acc_body obl_acc_body proc~obl_acc_tp->interface~obl_acc_body proc~obl_acc_body obl_acc_body interface~obl_acc_body->proc~obl_acc_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~obl_acc_tp~~CalledByGraph proc~obl_acc_tp obl_acc_tp interface~obl_acc_tp obl_acc_tp interface~obl_acc_tp->proc~obl_acc_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/obl_acc_tp.html"},{"title":"obl_pot – swiftest","text":"module subroutine obl_pot(npl, Mcb, Mpl, j2rp2, j4rp4, xh, irh, oblpot) Interface → Compute the contribution to the total gravitational potential due solely to the oblateness of the central body\n    Returned value does not include monopole term or terms higher than J4 Reference : MacMillan , W . D . 1958 . The Theory of the Potential , ( Dover Publications ), 363 . Adapted from David E. Kaufmann's Swifter routine: obl_pot.f90 \n Adapted from Hal Levison's Swift routine obl_pot.f Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: npl real(kind=DP), intent(in) :: Mcb real(kind=DP), intent(in), dimension(:) :: Mpl real(kind=DP), intent(in) :: j2rp2 real(kind=DP), intent(in) :: j4rp4 real(kind=DP), intent(in), dimension(:, :) :: xh real(kind=DP), intent(in), dimension(:) :: irh real(kind=DP), intent(out) :: oblpot Called by proc~~obl_pot~~CalledByGraph proc~obl_pot obl_pot interface~obl_pot obl_pot interface~obl_pot->proc~obl_pot proc~util_get_energy_momentum_system util_get_energy_momentum_system proc~util_get_energy_momentum_system->interface~obl_pot interface~util_get_energy_momentum_system util_get_energy_momentum_system interface~util_get_energy_momentum_system->proc~util_get_energy_momentum_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/obl_pot.html"},{"title":"orbel_el2xv_vec – swiftest","text":"module subroutine orbel_el2xv_vec(self, cb) Interface → A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body objec Calls proc~~orbel_el2xv_vec~~CallsGraph proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv_vec->proc~orbel_el2xv proc~orbel_fhybrid orbel_fhybrid proc~orbel_el2xv->proc~orbel_fhybrid proc~orbel_ehybrid orbel_ehybrid proc~orbel_el2xv->proc~orbel_ehybrid interface~orbel_scget orbel_scget proc~orbel_el2xv->interface~orbel_scget proc~orbel_zget orbel_zget proc~orbel_el2xv->proc~orbel_zget proc~orbel_schget orbel_schget proc~orbel_el2xv->proc~orbel_schget proc~orbel_flon orbel_flon proc~orbel_fhybrid->proc~orbel_flon proc~orbel_fget orbel_fget proc~orbel_fhybrid->proc~orbel_fget proc~orbel_esolmd orbel_esolmd proc~orbel_ehybrid->proc~orbel_esolmd proc~orbel_eget orbel_eget proc~orbel_ehybrid->proc~orbel_eget proc~orbel_ehie orbel_ehie proc~orbel_ehybrid->proc~orbel_ehie proc~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget proc~orbel_esolmd->interface~orbel_scget 3 3 proc~orbel_flon->3 proc~orbel_eget->interface~orbel_scget proc~orbel_fget->proc~orbel_schget proc~orbel_ehie->interface~orbel_scget Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_el2xv_vec~~CalledByGraph proc~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_el2xv_vec.html"},{"title":"orbel_scget – swiftest","text":"pure module subroutine orbel_scget(angle, sx, cx) Interface → Efficiently compute the sine and cosine of an input angle\n      Input angle must be in radians Adapted from David E. Kaufmann's Swifter routine: orbel_scget.f90\n Adapted from Hal Levison's Swift routine orbel_scget.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: angle real(kind=DP), intent(out) :: sx real(kind=DP), intent(out) :: cx Called by proc~~orbel_scget~~CalledByGraph proc~orbel_scget orbel_scget interface~orbel_scget orbel_scget interface~orbel_scget->proc~orbel_scget proc~orbel_esolmd orbel_esolmd proc~orbel_esolmd->interface~orbel_scget proc~orbel_eget orbel_eget proc~orbel_eget->interface~orbel_scget proc~drift_kepu_guess drift_kepu_guess proc~drift_kepu_guess->interface~orbel_scget proc~orbel_el2xv orbel_el2xv proc~orbel_el2xv->interface~orbel_scget proc~orbel_ehybrid orbel_ehybrid proc~orbel_el2xv->proc~orbel_ehybrid proc~orbel_ehie orbel_ehie proc~orbel_ehie->interface~orbel_scget proc~drift_kepu drift_kepu proc~drift_kepu->proc~drift_kepu_guess proc~orbel_el2xv_vec orbel_el2xv_vec proc~orbel_el2xv_vec->proc~orbel_el2xv proc~orbel_ehybrid->proc~orbel_esolmd proc~orbel_ehybrid->proc~orbel_eget proc~orbel_ehybrid->proc~orbel_ehie interface~orbel_el2xv_vec orbel_el2xv_vec interface~orbel_el2xv_vec->proc~orbel_el2xv_vec proc~drift_dan drift_dan proc~drift_dan->proc~drift_kepu Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_scget.html"},{"title":"orbel_xv2aeq – swiftest","text":"pure module subroutine orbel_xv2aeq(mu, x, v, a, e, q) Interface → Compute semimajor axis, eccentricity, and pericentric distance from relative Cartesian position and velocity Adapted from David E. Kaufmann's Swifter routine: orbel_xv2aeq.f90\n Adapted from Luke Dones' Swift routine orbel_xv2aeq.f\n Arguments Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in), dimension(:) :: v real(kind=DP), intent(out) :: a real(kind=DP), intent(out) :: e real(kind=DP), intent(out) :: q Called by proc~~orbel_xv2aeq~~CalledByGraph proc~orbel_xv2aeq orbel_xv2aeq interface~orbel_xv2aeq orbel_xv2aeq interface~orbel_xv2aeq->proc~orbel_xv2aeq proc~util_peri_tp util_peri_tp proc~util_peri_tp->interface~orbel_xv2aeq interface~util_peri_tp util_peri_tp interface~util_peri_tp->proc~util_peri_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_xv2aeq.html"},{"title":"orbel_xv2aqt – swiftest","text":"pure module subroutine orbel_xv2aqt(mu, x, v, a, q, capm, tperi) Interface → Compute semimajor axis, pericentric distance, mean anomaly, and time to nearest pericenter passage from\n relative Cartesian position and velocity\n      tperi > 0 means nearest pericenter passage is in the future\n      tperi < 0 means nearest pericenter passage is in the past Adapted from David E. Kaufmann's Swifter routine: orbel_xv2aqt.f90 Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(out) :: a semimajor axis real(kind=DP), intent(out) :: q periapsis real(kind=DP), intent(out) :: capm mean anomaly real(kind=DP), intent(out) :: tperi time of pericenter passage Called by proc~~orbel_xv2aqt~~CalledByGraph proc~orbel_xv2aqt orbel_xv2aqt interface~orbel_xv2aqt orbel_xv2aqt interface~orbel_xv2aqt->proc~orbel_xv2aqt Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_xv2aqt.html"},{"title":"orbel_xv2el_vec – swiftest","text":"module subroutine orbel_xv2el_vec(self, cb) Interface → A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Calls proc~~orbel_xv2el_vec~~CallsGraph proc~orbel_xv2el_vec orbel_xv2el_vec proc~orbel_xv2el orbel_xv2el proc~orbel_xv2el_vec->proc~orbel_xv2el Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~orbel_xv2el_vec~~CalledByGraph proc~orbel_xv2el_vec orbel_xv2el_vec interface~orbel_xv2el_vec orbel_xv2el_vec interface~orbel_xv2el_vec->proc~orbel_xv2el_vec Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/orbel_xv2el_vec.html"},{"title":"whm_coord_h2j_pl – swiftest","text":"module subroutine whm_coord_h2j_pl(self, cb) Interface → Convert from heliocentric to Jacobi coordinates, massive bodies only Uses pre-computed eta rather than computing it each time Adapted from David E. Kaufmann's Swifter routine coord_h2j.f90 Adapted from Hal Levison's Swift routine coord_h2j.f Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree Calls proc~~whm_coord_h2j_pl~~CallsGraph proc~whm_coord_h2j_pl whm_coord_h2j_pl eta eta proc~whm_coord_h2j_pl->eta vj vj proc~whm_coord_h2j_pl->vj xh xh proc~whm_coord_h2j_pl->xh xj xj proc~whm_coord_h2j_pl->xj gmpl gmpl proc~whm_coord_h2j_pl->gmpl vh vh proc~whm_coord_h2j_pl->vh Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_coord_h2j_pl~~CalledByGraph proc~whm_coord_h2j_pl whm_coord_h2j_pl interface~whm_coord_h2j_pl whm_coord_h2j_pl interface~whm_coord_h2j_pl->proc~whm_coord_h2j_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_coord_h2j_pl.html"},{"title":"whm_coord_j2h_pl – swiftest","text":"module subroutine whm_coord_j2h_pl(self, cb) Interface → Convert from Jacobi to heliocentric coordinates, massive bodies only. Uses pre-computed eta rather than computing it each time Adapted from David E. Kaufmann's Swifter routine coord_j2h.f90 Adapted from Hal Levison's Swift routine coord_j2h.f Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree Calls proc~~whm_coord_j2h_pl~~CallsGraph proc~whm_coord_j2h_pl whm_coord_j2h_pl eta eta proc~whm_coord_j2h_pl->eta vj vj proc~whm_coord_j2h_pl->vj xh xh proc~whm_coord_j2h_pl->xh xj xj proc~whm_coord_j2h_pl->xj gmpl gmpl proc~whm_coord_j2h_pl->gmpl vh vh proc~whm_coord_j2h_pl->vh Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_coord_j2h_pl~~CalledByGraph proc~whm_coord_j2h_pl whm_coord_j2h_pl interface~whm_coord_j2h_pl whm_coord_j2h_pl interface~whm_coord_j2h_pl->proc~whm_coord_j2h_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_coord_j2h_pl.html"},{"title":"whm_coord_vh2vj_pl – swiftest","text":"module subroutine whm_coord_vh2vj_pl(self, cb) Interface → Convert from heliocentric to Jadcobi coordinates, massive body velocities only Uses pre-computed eta rather than computing it each time Adapted from David E. Kaufmann's Swifter routine coord_vh2vj.f90 Adapted from Hal Levison's Swift routine coord_vh2vj.f Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree Calls proc~~whm_coord_vh2vj_pl~~CallsGraph proc~whm_coord_vh2vj_pl whm_coord_vh2vj_pl vj vj proc~whm_coord_vh2vj_pl->vj vh vh proc~whm_coord_vh2vj_pl->vh eta eta proc~whm_coord_vh2vj_pl->eta gmpl gmpl proc~whm_coord_vh2vj_pl->gmpl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_coord_vh2vj_pl~~CalledByGraph proc~whm_coord_vh2vj_pl whm_coord_vh2vj_pl interface~whm_coord_vh2vj_pl whm_coord_vh2vj_pl interface~whm_coord_vh2vj_pl->proc~whm_coord_vh2vj_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_coord_vh2vj_pl.html"},{"title":"whm_gr_kick_getacch_pl – swiftest","text":"module subroutine whm_gr_kick_getacch_pl(self, param) Interface → Compute relativisitic accelerations of massive bodies\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_whm_kick_getacch.f90 Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters Calls proc~~whm_gr_kick_getacch_pl~~CallsGraph proc~whm_gr_kick_getacch_pl whm_gr_kick_getacch_pl gr_kick_getacch gr_kick_getacch proc~whm_gr_kick_getacch_pl->gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_gr_kick_getacch_pl~~CalledByGraph proc~whm_gr_kick_getacch_pl whm_gr_kick_getacch_pl interface~whm_gr_kick_getacch_pl whm_gr_kick_getacch_pl interface~whm_gr_kick_getacch_pl->proc~whm_gr_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_gr_kick_getacch_pl.html"},{"title":"whm_gr_kick_getacch_tp – swiftest","text":"module subroutine whm_gr_kick_getacch_tp(self, param) Interface → Compute relativisitic accelerations of test particles\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_whm_kick_getacch.f90 Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters Calls proc~~whm_gr_kick_getacch_tp~~CallsGraph proc~whm_gr_kick_getacch_tp whm_gr_kick_getacch_tp gr_kick_getacch gr_kick_getacch proc~whm_gr_kick_getacch_tp->gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_gr_kick_getacch_tp~~CalledByGraph proc~whm_gr_kick_getacch_tp whm_gr_kick_getacch_tp interface~whm_gr_kick_getacch_tp whm_gr_kick_getacch_tp interface~whm_gr_kick_getacch_tp->proc~whm_gr_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_gr_kick_getacch_tp.html"},{"title":"whm_gr_p4_pl – swiftest","text":"pure module subroutine whm_gr_p4_pl(self, param, dt) Interface → Position kick to massive bodies due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_whm_p4.f90 Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size Calls proc~~whm_gr_p4_pl~~CallsGraph proc~whm_gr_p4_pl whm_gr_p4_pl gr_p4_pos_kick gr_p4_pos_kick proc~whm_gr_p4_pl->gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_gr_p4_pl~~CalledByGraph proc~whm_gr_p4_pl whm_gr_p4_pl interface~whm_gr_p4_pl whm_gr_p4_pl interface~whm_gr_p4_pl->proc~whm_gr_p4_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_gr_p4_pl.html"},{"title":"whm_gr_p4_tp – swiftest","text":"pure module subroutine whm_gr_p4_tp(self, param, dt) Interface → Position kick to test particles due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_whm_p4.f90 Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size Calls proc~~whm_gr_p4_tp~~CallsGraph proc~whm_gr_p4_tp whm_gr_p4_tp gr_p4_pos_kick gr_p4_pos_kick proc~whm_gr_p4_tp->gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_gr_p4_tp~~CalledByGraph proc~whm_gr_p4_tp whm_gr_p4_tp interface~whm_gr_p4_tp whm_gr_p4_tp interface~whm_gr_p4_tp->proc~whm_gr_p4_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_gr_p4_tp.html"},{"title":"whm_step_system – swiftest","text":"module subroutine whm_step_system(self, param, t, dt) Interface → Step massive bodies and and active test particles ahead in heliocentric coordinates Adapted from Hal Levison's Swift routine step_kdk.f\n Adapted from David E. Kaufmann's Swifter routine whm_step.f90 Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsize Called by proc~~whm_step_system~~CalledByGraph proc~whm_step_system whm_step_system interface~whm_step_system whm_step_system interface~whm_step_system->proc~whm_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_step_system.html"},{"title":"whm_step_pl – swiftest","text":"module subroutine whm_step_pl(self, system, param, t, dt) Interface → Step planets ahead using kick-drift-kick algorithm Adapted from Hal Levison's Swift routine step_kdk_pl.f\n Adapted from David E. Kaufmann's Swifter routine whm_step_pl.f90 Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsize Called by proc~~whm_step_pl~~CalledByGraph proc~whm_step_pl whm_step_pl interface~whm_step_pl whm_step_pl interface~whm_step_pl->proc~whm_step_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_step_pl.html"},{"title":"whm_step_tp – swiftest","text":"module subroutine whm_step_tp(self, system, param, t, dt) Interface → Step active test particles ahead using kick-drift-kick algorithm Adapted from Hal Levison's Swift routine step_kdk_tp.f\n Adapted from David E. Kaufmann's Swifter routine whm_step_tp.f90 Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsize Called by proc~~whm_step_tp~~CalledByGraph proc~whm_step_tp whm_step_tp interface~whm_step_tp whm_step_tp interface~whm_step_tp->proc~whm_step_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_step_tp.html"},{"title":"whm_drift_pl – swiftest","text":"module subroutine whm_drift_pl(self, system, param, dt) Interface → Loop through planets and call Danby drift routine Adapted from Hal Levison's Swift routine drift.f\n Adapted from David E. Kaufmann's Swifter routine whm_drift.f90 Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize Calls proc~~whm_drift_pl~~CallsGraph proc~whm_drift_pl whm_drift_pl drift_all drift_all proc~whm_drift_pl->drift_all util_exit util_exit proc~whm_drift_pl->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_drift_pl~~CalledByGraph proc~whm_drift_pl whm_drift_pl interface~whm_drift_pl whm_drift_pl interface~whm_drift_pl->proc~whm_drift_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_drift_pl.html"},{"title":"whm_kick_getacch_pl – swiftest","text":"module subroutine whm_kick_getacch_pl(self, system, param, t, lbeg) Interface → Compute heliocentric accelerations of planets Adapted from Hal Levison's Swift routine getacch.f\n Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch.f90 Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest central body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Calls proc~~whm_kick_getacch_pl~~CallsGraph proc~whm_kick_getacch_pl whm_kick_getacch_pl proc~whm_kick_getacch_ah1 whm_kick_getacch_ah1 proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah1 proc~whm_kick_getacch_ah2 whm_kick_getacch_ah2 proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah2 proc~whm_kick_getacch_ah0 whm_kick_getacch_ah0 proc~whm_kick_getacch_pl->proc~whm_kick_getacch_ah0 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_kick_getacch_pl~~CalledByGraph proc~whm_kick_getacch_pl whm_kick_getacch_pl interface~whm_kick_getacch_pl whm_kick_getacch_pl interface~whm_kick_getacch_pl->proc~whm_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_kick_getacch_pl.html"},{"title":"whm_kick_getacch_tp – swiftest","text":"module subroutine whm_kick_getacch_tp(self, system, param, t, lbeg) Interface → Compute heliocentric accelerations of test particles Adapted from Hal Levison's Swift routine getacch_tp.f\n Adapted from David E. Kaufmann's Swifter routine whm_kick_getacch_tp.f90 Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest central body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Calls proc~~whm_kick_getacch_tp~~CallsGraph proc~whm_kick_getacch_tp whm_kick_getacch_tp proc~whm_kick_getacch_ah0 whm_kick_getacch_ah0 proc~whm_kick_getacch_tp->proc~whm_kick_getacch_ah0 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_kick_getacch_tp~~CalledByGraph proc~whm_kick_getacch_tp whm_kick_getacch_tp interface~whm_kick_getacch_tp whm_kick_getacch_tp interface~whm_kick_getacch_tp->proc~whm_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_kick_getacch_tp.html"},{"title":"whm_kick_vh_pl – swiftest","text":"module subroutine whm_kick_vh_pl(self, system, param, t, dt, lbeg) Interface → Kick heliocentric velocities of massive bodies Adapted from Martin Duncan and Hal Levison's Swift routine kickvh.f \n Adapted from David E. Kaufmann's Swifter routine whm_kickvh.f90 Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. Called by proc~~whm_kick_vh_pl~~CalledByGraph proc~whm_kick_vh_pl whm_kick_vh_pl interface~whm_kick_vh_pl whm_kick_vh_pl interface~whm_kick_vh_pl->proc~whm_kick_vh_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_kick_vh_pl.html"},{"title":"whm_kick_vh_tp – swiftest","text":"module subroutine whm_kick_vh_tp(self, system, param, t, dt, lbeg) Interface → Kick heliocentric velocities of test particles Adapted from Martin Duncan and Hal Levison's Swift routine kickvh_tp.f\n Adapted from David E. Kaufmann's Swifter routine whm_kickvh_tp.f90 Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. Called by proc~~whm_kick_vh_tp~~CalledByGraph proc~whm_kick_vh_tp whm_kick_vh_tp interface~whm_kick_vh_tp whm_kick_vh_tp interface~whm_kick_vh_tp->proc~whm_kick_vh_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_kick_vh_tp.html"},{"title":"whm_setup_pl – swiftest","text":"module subroutine whm_setup_pl(self, n, param) Interface → Allocate WHM planet structure Equivalent in functionality to David E. Kaufmann's Swifter routine whm_setup.f90\n Call allocation method for parent class Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameter Calls proc~~whm_setup_pl~~CallsGraph proc~whm_setup_pl whm_setup_pl setup_pl setup_pl proc~whm_setup_pl->setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_setup_pl~~CalledByGraph proc~whm_setup_pl whm_setup_pl interface~whm_setup_pl whm_setup_pl interface~whm_setup_pl->proc~whm_setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_setup_pl.html"},{"title":"whm_util_set_mu_eta_pl – swiftest","text":"module subroutine whm_util_set_mu_eta_pl(self, cb) Interface → Sets the Jacobi mass value eta for all massive bodies Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM system object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Calls proc~~whm_util_set_mu_eta_pl~~CallsGraph proc~whm_util_set_mu_eta_pl whm_util_set_mu_eta_pl util_set_mu_pl util_set_mu_pl proc~whm_util_set_mu_eta_pl->util_set_mu_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_util_set_mu_eta_pl~~CalledByGraph proc~whm_util_set_mu_eta_pl whm_util_set_mu_eta_pl interface~whm_util_set_mu_eta_pl whm_util_set_mu_eta_pl interface~whm_util_set_mu_eta_pl->proc~whm_util_set_mu_eta_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_util_set_mu_eta_pl.html"},{"title":"whm_setup_initialize_system – swiftest","text":"module subroutine whm_setup_initialize_system(self, param) Interface → Initialize a WHM nbody system from files Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters Calls proc~~whm_setup_initialize_system~~CallsGraph proc~whm_setup_initialize_system whm_setup_initialize_system util_set_ir3h util_set_ir3h proc~whm_setup_initialize_system->util_set_ir3h setup_initialize_system setup_initialize_system proc~whm_setup_initialize_system->setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_setup_initialize_system~~CalledByGraph proc~whm_setup_initialize_system whm_setup_initialize_system interface~whm_setup_initialize_system whm_setup_initialize_system interface~whm_setup_initialize_system->proc~whm_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_setup_initialize_system.html"},{"title":"whm_util_append_pl – swiftest","text":"module subroutine whm_util_append_pl(self, source, lsource_mask) Interface → Append components from one massive body object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~whm_util_append_pl~~CallsGraph proc~whm_util_append_pl whm_util_append_pl util_exit util_exit proc~whm_util_append_pl->util_exit util_append_pl util_append_pl proc~whm_util_append_pl->util_append_pl util_append util_append proc~whm_util_append_pl->util_append Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_util_append_pl~~CalledByGraph proc~whm_util_append_pl whm_util_append_pl interface~whm_util_append_pl whm_util_append_pl interface~whm_util_append_pl->proc~whm_util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_util_append_pl.html"},{"title":"whm_util_fill_pl – swiftest","text":"module subroutine whm_util_fill_pl(self, inserts, lfill_list) Interface → Insert new WHM test particle structure into an old one. \n This is the inverse of a fill operation. Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: inserts inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Calls proc~~whm_util_fill_pl~~CallsGraph proc~whm_util_fill_pl whm_util_fill_pl util_fill_pl util_fill_pl proc~whm_util_fill_pl->util_fill_pl util_exit util_exit proc~whm_util_fill_pl->util_exit util_fill util_fill proc~whm_util_fill_pl->util_fill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_util_fill_pl~~CalledByGraph proc~whm_util_fill_pl whm_util_fill_pl interface~whm_util_fill_pl whm_util_fill_pl interface~whm_util_fill_pl->proc~whm_util_fill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_util_fill_pl.html"},{"title":"whm_util_resize_pl – swiftest","text":"module subroutine whm_util_resize_pl(self, nnew) Interface → Checks the current size of a massive body against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~whm_util_resize_pl~~CallsGraph proc~whm_util_resize_pl whm_util_resize_pl util_resize_pl util_resize_pl proc~whm_util_resize_pl->util_resize_pl util_resize util_resize proc~whm_util_resize_pl->util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_util_resize_pl~~CalledByGraph proc~whm_util_resize_pl whm_util_resize_pl interface~whm_util_resize_pl whm_util_resize_pl interface~whm_util_resize_pl->proc~whm_util_resize_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_util_resize_pl.html"},{"title":"whm_util_set_ir3j – swiftest","text":"module subroutine whm_util_set_ir3j(self) Interface → Sets the inverse Jacobi and heliocentric radii cubed (1/rj 3 and 1/rh 3) Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object Called by proc~~whm_util_set_ir3j~~CalledByGraph proc~whm_util_set_ir3j whm_util_set_ir3j interface~whm_util_set_ir3j whm_util_set_ir3j interface~whm_util_set_ir3j->proc~whm_util_set_ir3j Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_util_set_ir3j.html"},{"title":"whm_util_sort_pl – swiftest","text":"module subroutine whm_util_sort_pl(self, sortby, ascending) Interface → Sort a WHM massive body object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order Calls proc~~whm_util_sort_pl~~CallsGraph proc~whm_util_sort_pl whm_util_sort_pl util_sort_pl util_sort_pl proc~whm_util_sort_pl->util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_util_sort_pl~~CalledByGraph proc~whm_util_sort_pl whm_util_sort_pl interface~whm_util_sort_pl whm_util_sort_pl interface~whm_util_sort_pl->proc~whm_util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_util_sort_pl.html"},{"title":"whm_util_sort_rearrange_pl – swiftest","text":"module subroutine whm_util_sort_rearrange_pl(self, ind) Interface → Rearrange WHM massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Calls proc~~whm_util_sort_rearrange_pl~~CallsGraph proc~whm_util_sort_rearrange_pl whm_util_sort_rearrange_pl util_sort_rearrange_pl util_sort_rearrange_pl proc~whm_util_sort_rearrange_pl->util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_util_sort_rearrange_pl~~CalledByGraph proc~whm_util_sort_rearrange_pl whm_util_sort_rearrange_pl interface~whm_util_sort_rearrange_pl whm_util_sort_rearrange_pl interface~whm_util_sort_rearrange_pl->proc~whm_util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_util_sort_rearrange_pl.html"},{"title":"whm_util_spill_pl – swiftest","text":"module subroutine whm_util_spill_pl(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) WHM test particle structure from active list to discard list Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Calls proc~~whm_util_spill_pl~~CallsGraph proc~whm_util_spill_pl whm_util_spill_pl util_exit util_exit proc~whm_util_spill_pl->util_exit util_spill_pl util_spill_pl proc~whm_util_spill_pl->util_spill_pl util_spill util_spill proc~whm_util_spill_pl->util_spill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~whm_util_spill_pl~~CalledByGraph proc~whm_util_spill_pl whm_util_spill_pl interface~whm_util_spill_pl whm_util_spill_pl interface~whm_util_spill_pl->proc~whm_util_spill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/whm_util_spill_pl.html"},{"title":"operator_cross_sp – swiftest","text":"pure function operator_cross_sp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: A real(kind=SP), intent(in), dimension(:) :: B Return Value real(kind=SP),\n  dimension(3) Contents None","tags":"","loc":"proc/operator_cross_sp.html"},{"title":"operator_cross_dp – swiftest","text":"pure function operator_cross_dp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: A real(kind=DP), intent(in), dimension(:) :: B Return Value real(kind=DP),\n  dimension(3) Contents None","tags":"","loc":"proc/operator_cross_dp.html"},{"title":"operator_cross_qp – swiftest","text":"pure function operator_cross_qp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:) :: A real(kind=QP), intent(in), dimension(:) :: B Return Value real(kind=QP),\n  dimension(3) Contents None","tags":"","loc":"proc/operator_cross_qp.html"},{"title":"operator_cross_i1b – swiftest","text":"pure function operator_cross_i1b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I1B), intent(in), dimension(:) :: A integer(kind=I1B), intent(in), dimension(:) :: B Return Value integer(kind=I1B),\n  dimension(3) Contents None","tags":"","loc":"proc/operator_cross_i1b.html"},{"title":"operator_cross_i2b – swiftest","text":"pure function operator_cross_i2b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I2B), intent(in), dimension(:) :: A integer(kind=I2B), intent(in), dimension(:) :: B Return Value integer(kind=I2B),\n  dimension(3) Contents None","tags":"","loc":"proc/operator_cross_i2b.html"},{"title":"operator_cross_i4b – swiftest","text":"pure function operator_cross_i4b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:) :: A integer(kind=I4B), intent(in), dimension(:) :: B Return Value integer(kind=I4B),\n  dimension(3) Contents None","tags":"","loc":"proc/operator_cross_i4b.html"},{"title":"operator_cross_i8b – swiftest","text":"pure function operator_cross_i8b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in), dimension(:) :: A integer(kind=I8B), intent(in), dimension(:) :: B Return Value integer(kind=I8B),\n  dimension(3) Contents None","tags":"","loc":"proc/operator_cross_i8b.html"},{"title":"operator_cross_el_sp – swiftest","text":"pure function operator_cross_el_sp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:,:) :: A real(kind=SP), intent(in), dimension(:,:) :: B Return Value real(kind=SP),\n  dimension(:,:),allocatable Contents None","tags":"","loc":"proc/operator_cross_el_sp.html"},{"title":"operator_cross_el_dp – swiftest","text":"pure function operator_cross_el_dp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A real(kind=DP), intent(in), dimension(:,:) :: B Return Value real(kind=DP),\n  dimension(:,:),allocatable Contents None","tags":"","loc":"proc/operator_cross_el_dp.html"},{"title":"operator_cross_el_qp – swiftest","text":"pure function operator_cross_el_qp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:,:) :: B Return Value real(kind=QP),\n  dimension(:,:),allocatable Contents None","tags":"","loc":"proc/operator_cross_el_qp.html"},{"title":"operator_cross_el_i1b – swiftest","text":"pure function operator_cross_el_i1b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I1B), intent(in), dimension(:,:) :: A integer(kind=I1B), intent(in), dimension(:,:) :: B Return Value integer(kind=I1B),\n  dimension(:,:),allocatable Contents None","tags":"","loc":"proc/operator_cross_el_i1b.html"},{"title":"operator_cross_el_i2b – swiftest","text":"pure function operator_cross_el_i2b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I2B), intent(in), dimension(:,:) :: A integer(kind=I2B), intent(in), dimension(:,:) :: B Return Value integer(kind=I2B),\n  dimension(:,:),allocatable Contents None","tags":"","loc":"proc/operator_cross_el_i2b.html"},{"title":"operator_cross_el_i4b – swiftest","text":"pure function operator_cross_el_i4b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:,:) :: A integer(kind=I4B), intent(in), dimension(:,:) :: B Return Value integer(kind=I4B),\n  dimension(:,:),allocatable Contents None","tags":"","loc":"proc/operator_cross_el_i4b.html"},{"title":"operator_cross_el_i8b – swiftest","text":"pure function operator_cross_el_i8b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in), dimension(:,:) :: A integer(kind=I8B), intent(in), dimension(:,:) :: B Return Value integer(kind=I8B),\n  dimension(:,:),allocatable Contents None","tags":"","loc":"proc/operator_cross_el_i8b.html"},{"title":"operator_mag_sp – swiftest","text":"pure function operator_mag_sp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: A Return Value real(kind=SP) Contents None","tags":"","loc":"proc/operator_mag_sp.html"},{"title":"operator_mag_dp – swiftest","text":"pure function operator_mag_dp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: A Return Value real(kind=DP) Contents None","tags":"","loc":"proc/operator_mag_dp.html"},{"title":"operator_mag_el_sp – swiftest","text":"pure function operator_mag_el_sp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:,:) :: A Return Value real(kind=SP),\n  dimension(:),allocatable Contents None","tags":"","loc":"proc/operator_mag_el_sp.html"},{"title":"operator_mag_el_dp – swiftest","text":"pure function operator_mag_el_dp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A Return Value real(kind=DP),\n  dimension(:),allocatable Contents None","tags":"","loc":"proc/operator_mag_el_dp.html"},{"title":"operator_mag_el_qp – swiftest","text":"pure function operator_mag_el_qp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A Return Value real(kind=QP),\n  dimension(:),allocatable Contents None","tags":"","loc":"proc/operator_mag_el_qp.html"},{"title":"util_solve_linear_system_d – swiftest","text":"function util_solve_linear_system_d(A, b, n, lerr) result(x) Uses ieee_exceptions proc~~util_solve_linear_system_d~~UsesGraph proc~util_solve_linear_system_d util_solve_linear_system_d ieee_exceptions ieee_exceptions proc~util_solve_linear_system_d->ieee_exceptions 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Solves the linear equation of the form A*x = b for x. \n   A is an (n,n) arrays\n   x and b are (n) arrays\n Uses Gaussian elimination, so will have issues if system is ill-conditioned.\n Uses quad precision intermidiate values, so works best on small arrays. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A real(kind=DP), intent(in), dimension(:) :: b integer(kind=I4B), intent(in) :: n logical, intent(out) :: lerr Return Value real(kind=DP),\n  dimension(n) Calls proc~~util_solve_linear_system_d~~CallsGraph proc~util_solve_linear_system_d util_solve_linear_system_d proc~solve_wbs solve_wbs proc~util_solve_linear_system_d->proc~solve_wbs proc~ge_wpp ge_wpp proc~util_solve_linear_system_d->proc~ge_wpp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_solve_linear_system_d.html"},{"title":"util_solve_linear_system_q – swiftest","text":"function util_solve_linear_system_q(A, b, n, lerr) result(x) Uses ieee_exceptions proc~~util_solve_linear_system_q~~UsesGraph proc~util_solve_linear_system_q util_solve_linear_system_q ieee_exceptions ieee_exceptions proc~util_solve_linear_system_q->ieee_exceptions 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Solves the linear equation of the form A*x = b for x. \n   A is an (n,n) arrays\n   x and b are (n) arrays\n Uses Gaussian elimination, so will have issues if system is ill-conditioned.\n Uses quad precision intermidiate values, so works best on small arrays. Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:) :: b integer(kind=I4B), intent(in) :: n logical, intent(out) :: lerr Return Value real(kind=QP),\n  dimension(n) Calls proc~~util_solve_linear_system_q~~CallsGraph proc~util_solve_linear_system_q util_solve_linear_system_q proc~solve_wbs solve_wbs proc~util_solve_linear_system_q->proc~solve_wbs proc~ge_wpp ge_wpp proc~util_solve_linear_system_q->proc~ge_wpp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_solve_linear_system_q.html"},{"title":"util_solve_rkf45 – swiftest","text":"module function util_solve_rkf45(f, y0in, t1, dt0, tol) result(y1) Interface → Implements the 4th order Runge-Kutta-Fehlberg ODE solver for initial value problems of the form f=dy/dt, y0 = y(t=0), solving for y1 = y(t=t1). Uses a 5th order adaptive step size control.\n Uses a lambda function object as defined in the lambda_function module Arguments Type Intent Optional Attributes Name class(lambda_obj), intent(inout) :: f lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set real(kind=DP), intent(in), dimension(:) :: y0in Initial value at t=0 real(kind=DP), intent(in) :: t1 Final time real(kind=DP), intent(in) :: dt0 Initial step size guess real(kind=DP), intent(in) :: tol Tolerance on solution Return Value real(kind=DP),\n  dimension(:),allocatable Final result Calls proc~~util_solve_rkf45~~CallsGraph proc~util_solve_rkf45 util_solve_rkf45 interface~util_exit util_exit proc~util_solve_rkf45->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_solve_rkf45~~CalledByGraph proc~util_solve_rkf45 util_solve_rkf45 interface~util_solve_rkf45 util_solve_rkf45 interface~util_solve_rkf45->proc~util_solve_rkf45 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_solve_rkf45.html"},{"title":"util_set_beg_end_pl – swiftest","text":"module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Interface → Sets one or more of the values of xbeg, xend, and vbeg Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg real(kind=DP), intent(in), optional dimension(:,:) :: xend real(kind=DP), intent(in), optional dimension(:,:) :: vbeg Called by proc~~util_set_beg_end_pl~~CalledByGraph proc~util_set_beg_end_pl util_set_beg_end_pl interface~util_set_beg_end_pl util_set_beg_end_pl interface~util_set_beg_end_pl->proc~util_set_beg_end_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_set_beg_end_pl.html"},{"title":"util_set_ir3h – swiftest","text":"module subroutine util_set_ir3h(self) Interface → Sets the inverse heliocentric radius term (1/rh**3) for all bodies in a structure Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object Called by proc~~util_set_ir3h~~CalledByGraph proc~util_set_ir3h util_set_ir3h interface~util_set_ir3h util_set_ir3h interface~util_set_ir3h->proc~util_set_ir3h Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_set_ir3h.html"},{"title":"util_set_msys – swiftest","text":"module subroutine util_set_msys(self) Interface → Sets the value of msys and the vector mass quantities based on the total mass of the system Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nobdy system object Called by proc~~util_set_msys~~CalledByGraph proc~util_set_msys util_set_msys interface~util_set_msys util_set_msys interface~util_set_msys->proc~util_set_msys Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_set_msys.html"},{"title":"util_set_mu_pl – swiftest","text":"module subroutine util_set_mu_pl(self, cb) Interface → Computes G * (M + m) for each massive body Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Called by proc~~util_set_mu_pl~~CalledByGraph proc~util_set_mu_pl util_set_mu_pl interface~util_set_mu_pl util_set_mu_pl interface~util_set_mu_pl->proc~util_set_mu_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_set_mu_pl.html"},{"title":"util_set_mu_tp – swiftest","text":"module subroutine util_set_mu_tp(self, cb) Interface → Converts certain scalar values to arrays so that they can be used in elemental functions Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Called by proc~~util_set_mu_tp~~CalledByGraph proc~util_set_mu_tp util_set_mu_tp interface~util_set_mu_tp util_set_mu_tp interface~util_set_mu_tp->proc~util_set_mu_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_set_mu_tp.html"},{"title":"util_set_rhill – swiftest","text":"module subroutine util_set_rhill(self, cb) Interface → Sets the value of the Hill's radius Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Called by proc~~util_set_rhill~~CalledByGraph proc~util_set_rhill util_set_rhill interface~util_set_rhill util_set_rhill interface~util_set_rhill->proc~util_set_rhill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_set_rhill.html"},{"title":"util_set_rhill_approximate – swiftest","text":"module subroutine util_set_rhill_approximate(self, cb) Interface → Sets the approximate value of the Hill's radius using the heliocentric radius instead of computing the semimajor axis Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Called by proc~~util_set_rhill_approximate~~CalledByGraph proc~util_set_rhill_approximate util_set_rhill_approximate interface~util_set_rhill_approximate util_set_rhill_approximate interface~util_set_rhill_approximate->proc~util_set_rhill_approximate Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_set_rhill_approximate.html"},{"title":"util_peri_tp – swiftest","text":"module subroutine util_peri_tp(self, system, param) Interface → Determine system pericenter passages for test particles\n Note:  If the coordinate system used is barycentric, then this routine assumes that the barycentric coordinates in the\n        test particle structures are up-to-date and are not recomputed Adapted from David E. Kaufmann's Swifter routine: util_peri.f90\n Adapted from Hal Levison's Swift routine util_peri.f Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~util_peri_tp~~CallsGraph proc~util_peri_tp util_peri_tp interface~orbel_xv2aeq orbel_xv2aeq proc~util_peri_tp->interface~orbel_xv2aeq proc~orbel_xv2aeq orbel_xv2aeq interface~orbel_xv2aeq->proc~orbel_xv2aeq Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_peri_tp~~CalledByGraph proc~util_peri_tp util_peri_tp interface~util_peri_tp util_peri_tp interface~util_peri_tp->proc~util_peri_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_peri_tp.html"},{"title":"util_coord_h2b_pl – swiftest","text":"module subroutine util_coord_h2b_pl(self, cb) Interface → Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) Adapted from David E. Kaufmann's Swifter routine coord_h2b.f90 \n Adapted from Hal Levison's Swift routine coord_h2b.f Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Called by proc~~util_coord_h2b_pl~~CalledByGraph proc~util_coord_h2b_pl util_coord_h2b_pl interface~util_coord_h2b_pl util_coord_h2b_pl interface~util_coord_h2b_pl->proc~util_coord_h2b_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_coord_h2b_pl.html"},{"title":"util_coord_h2b_tp – swiftest","text":"module subroutine util_coord_h2b_tp(self, cb) Interface → Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) Adapted from David E. Kaufmann's Swifter routine coord_h2b_tp.f90 \n Adapted from Hal Levison's Swift routine coord_h2b_tp.f Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object Called by proc~~util_coord_h2b_tp~~CalledByGraph proc~util_coord_h2b_tp util_coord_h2b_tp interface~util_coord_h2b_tp util_coord_h2b_tp interface~util_coord_h2b_tp->proc~util_coord_h2b_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_coord_h2b_tp.html"},{"title":"util_coord_b2h_pl – swiftest","text":"module subroutine util_coord_b2h_pl(self, cb) Interface → Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) Adapted from David E. Kaufmann's Swifter routine coord_b2h.f90 \n Adapted from Hal Levison's Swift routine coord_b2h.f Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Called by proc~~util_coord_b2h_pl~~CalledByGraph proc~util_coord_b2h_pl util_coord_b2h_pl interface~util_coord_b2h_pl util_coord_b2h_pl interface~util_coord_b2h_pl->proc~util_coord_b2h_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_coord_b2h_pl.html"},{"title":"util_coord_b2h_tp – swiftest","text":"module subroutine util_coord_b2h_tp(self, cb) Interface → Convert test particles from barycentric to heliocentric coordinates (position and velocity) Adapted from David E. Kaufmann's Swifter routine coord_b2h_tp.f90 \n Adapted from Hal Levison's Swift routine coord_b2h_tp.f Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(in) :: cb Swiftest central body object Called by proc~~util_coord_b2h_tp~~CalledByGraph proc~util_coord_b2h_tp util_coord_b2h_tp interface~util_coord_b2h_tp util_coord_b2h_tp interface~util_coord_b2h_tp->proc~util_coord_b2h_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_coord_b2h_tp.html"},{"title":"util_rescale_system – swiftest","text":"module subroutine util_rescale_system(self, param, mscale, dscale, tscale) Interface → Rescales an nbody system to a new set of units. Inputs are the multipliers on the mass (mscale), distance (dscale), and time units (tscale). \n Rescales all united quantities in the system, as well as the mass conversion factors, gravitational constant, and Einstein's constant in the parameter object. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters. Returns with new values of the scale vactors and GU real(kind=DP), intent(in) :: mscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: dscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: tscale Scale factors for mass, distance, and time units, respectively. Called by proc~~util_rescale_system~~CalledByGraph proc~util_rescale_system util_rescale_system interface~util_rescale_system util_rescale_system interface~util_rescale_system->proc~util_rescale_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_rescale_system.html"},{"title":"util_version – swiftest","text":"module subroutine util_version() Interface → Print program version information to terminale Adapted from David E. Kaufmann's Swifter routine: util_version.f90 Arguments None Called by proc~~util_version~~CalledByGraph proc~util_version util_version interface~util_version util_version interface~util_version->proc~util_version proc~io_get_args io_get_args proc~io_get_args->interface~util_version interface~io_get_args io_get_args interface~io_get_args->proc~io_get_args Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_version.html"},{"title":"util_sort_body – swiftest","text":"module subroutine util_sort_body(self, sortby, ascending) Interface → Sort a Swiftest body structure in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order Called by proc~~util_sort_body~~CalledByGraph proc~util_sort_body util_sort_body interface~util_sort_body util_sort_body interface~util_sort_body->proc~util_sort_body proc~util_sort_pl util_sort_pl proc~util_sort_pl->interface~util_sort_body proc~util_sort_tp util_sort_tp proc~util_sort_tp->interface~util_sort_body interface~util_sort_pl util_sort_pl interface~util_sort_pl->proc~util_sort_pl interface~util_sort_tp util_sort_tp interface~util_sort_tp->proc~util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_sort_body.html"},{"title":"util_sort_pl – swiftest","text":"module subroutine util_sort_pl(self, sortby, ascending) Interface → Sort a Swiftest massive body object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order Calls proc~~util_sort_pl~~CallsGraph proc~util_sort_pl util_sort_pl interface~util_sort_body util_sort_body proc~util_sort_pl->interface~util_sort_body proc~util_sort_body util_sort_body interface~util_sort_body->proc~util_sort_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_sort_pl~~CalledByGraph proc~util_sort_pl util_sort_pl interface~util_sort_pl util_sort_pl interface~util_sort_pl->proc~util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_sort_pl.html"},{"title":"util_sort_tp – swiftest","text":"module subroutine util_sort_tp(self, sortby, ascending) Interface → Sort a Swiftest test particle object  in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order Calls proc~~util_sort_tp~~CallsGraph proc~util_sort_tp util_sort_tp interface~util_sort_body util_sort_body proc~util_sort_tp->interface~util_sort_body proc~util_sort_body util_sort_body interface~util_sort_body->proc~util_sort_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_sort_tp~~CalledByGraph proc~util_sort_tp util_sort_tp interface~util_sort_tp util_sort_tp interface~util_sort_tp->proc~util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_sort_tp.html"},{"title":"util_sort_rearrange_body – swiftest","text":"module subroutine util_sort_rearrange_body(self, ind) Interface → Rearrange Swiftest body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Called by proc~~util_sort_rearrange_body~~CalledByGraph proc~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body->proc~util_sort_rearrange_body proc~util_sort_rearrange_tp util_sort_rearrange_tp proc~util_sort_rearrange_tp->interface~util_sort_rearrange_body proc~util_sort_rearrange_pl util_sort_rearrange_pl proc~util_sort_rearrange_pl->interface~util_sort_rearrange_body interface~util_sort_rearrange_tp util_sort_rearrange_tp interface~util_sort_rearrange_tp->proc~util_sort_rearrange_tp interface~util_sort_rearrange_pl util_sort_rearrange_pl interface~util_sort_rearrange_pl->proc~util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_sort_rearrange_body.html"},{"title":"util_sort_rearrange_pl – swiftest","text":"module subroutine util_sort_rearrange_pl(self, ind) Interface → Rearrange Swiftest massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Calls proc~~util_sort_rearrange_pl~~CallsGraph proc~util_sort_rearrange_pl util_sort_rearrange_pl interface~util_sort_rearrange_body util_sort_rearrange_body proc~util_sort_rearrange_pl->interface~util_sort_rearrange_body proc~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body->proc~util_sort_rearrange_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_sort_rearrange_pl~~CalledByGraph proc~util_sort_rearrange_pl util_sort_rearrange_pl interface~util_sort_rearrange_pl util_sort_rearrange_pl interface~util_sort_rearrange_pl->proc~util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_sort_rearrange_pl.html"},{"title":"util_sort_rearrange_tp – swiftest","text":"module subroutine util_sort_rearrange_tp(self, ind) Interface → Rearrange Swiftest massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Calls proc~~util_sort_rearrange_tp~~CallsGraph proc~util_sort_rearrange_tp util_sort_rearrange_tp interface~util_sort_rearrange_body util_sort_rearrange_body proc~util_sort_rearrange_tp->interface~util_sort_rearrange_body proc~util_sort_rearrange_body util_sort_rearrange_body interface~util_sort_rearrange_body->proc~util_sort_rearrange_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_sort_rearrange_tp~~CalledByGraph proc~util_sort_rearrange_tp util_sort_rearrange_tp interface~util_sort_rearrange_tp util_sort_rearrange_tp interface~util_sort_rearrange_tp->proc~util_sort_rearrange_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_sort_rearrange_tp.html"},{"title":"util_sort_dp – swiftest","text":"subroutine util_sort_dp(arr) Sort input double precision array in place into ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:) :: arr Contents None","tags":"","loc":"proc/util_sort_dp.html"},{"title":"util_sort_index_dp – swiftest","text":"subroutine util_sort_index_dp(arr, ind) Sort input double precision array by index in ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind Contents None","tags":"","loc":"proc/util_sort_index_dp.html"},{"title":"util_sort_i4b – swiftest","text":"subroutine util_sort_i4b(arr) Sort input integer array in place into ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:) :: arr Contents None","tags":"","loc":"proc/util_sort_i4b.html"},{"title":"util_sort_index_i4b – swiftest","text":"subroutine util_sort_index_i4b(arr, ind) Sort input integer array by index in ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind Contents None","tags":"","loc":"proc/util_sort_index_i4b.html"},{"title":"util_sort_sp – swiftest","text":"subroutine util_sort_sp(arr) Sort input single precision array in place into ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(inout), dimension(:) :: arr Contents None","tags":"","loc":"proc/util_sort_sp.html"},{"title":"util_sort_index_sp – swiftest","text":"subroutine util_sort_index_sp(arr, ind) Sort input single precision array by index in ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind Contents None","tags":"","loc":"proc/util_sort_index_sp.html"},{"title":"util_spill_arr_char_string – swiftest","text":"subroutine util_spill_arr_char_string(keeps, discards, lspill_list, ldestructive) Performs a spill operation on a single array of type character strings\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: keeps Array of values to keep character(len=STRMAX), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Contents None","tags":"","loc":"proc/util_spill_arr_char_string.html"},{"title":"util_spill_arr_DP – swiftest","text":"subroutine util_spill_arr_DP(keeps, discards, lspill_list, ldestructive) Performs a spill operation on a single array of type DP\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: keeps Array of values to keep real(kind=DP), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Contents None","tags":"","loc":"proc/util_spill_arr_dp.html"},{"title":"util_spill_arr_DPvec – swiftest","text":"subroutine util_spill_arr_DPvec(keeps, discards, lspill_list, ldestructive) Performs a spill operation on a single array of DP vectors with shape (NDIM, n)\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: keeps Array of values to keep real(kind=DP), intent(inout), dimension(:,:), allocatable :: discards Array discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Contents None","tags":"","loc":"proc/util_spill_arr_dpvec.html"},{"title":"util_spill_arr_I4B – swiftest","text":"subroutine util_spill_arr_I4B(keeps, discards, lspill_list, ldestructive) Performs a spill operation on a single array of type I4B\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I4B), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Contents None","tags":"","loc":"proc/util_spill_arr_i4b.html"},{"title":"util_spill_arr_logical – swiftest","text":"subroutine util_spill_arr_logical(keeps, discards, lspill_list, ldestructive) Performs a spill operation on a single array of logicals\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: keeps Array of values to keep logical, intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or no Contents None","tags":"","loc":"proc/util_spill_arr_logical.html"},{"title":"util_spill_body – swiftest","text":"module subroutine util_spill_body(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) Swiftest generic particle structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill all the common components Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list Calls proc~~util_spill_body~~CallsGraph proc~util_spill_body util_spill_body interface~util_spill~2 util_spill proc~util_spill_body->interface~util_spill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_spill_body~~CalledByGraph proc~util_spill_body util_spill_body interface~util_spill_body util_spill_body interface~util_spill_body->proc~util_spill_body proc~util_spill_pl util_spill_pl proc~util_spill_pl->interface~util_spill_body proc~util_spill_tp util_spill_tp proc~util_spill_tp->interface~util_spill_body interface~util_spill_pl util_spill_pl interface~util_spill_pl->proc~util_spill_pl interface~util_spill_tp util_spill_tp interface~util_spill_tp->proc~util_spill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_spill_body.html"},{"title":"util_spill_encounter – swiftest","text":"module subroutine util_spill_encounter(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) Swiftest encounter structure from active list to discard list Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list Calls proc~~util_spill_encounter~~CallsGraph proc~util_spill_encounter util_spill_encounter interface~util_spill~2 util_spill proc~util_spill_encounter->interface~util_spill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_spill_encounter~~CalledByGraph proc~util_spill_encounter util_spill_encounter interface~util_spill_encounter util_spill_encounter interface~util_spill_encounter->proc~util_spill_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_spill_encounter.html"},{"title":"util_spill_pl – swiftest","text":"module subroutine util_spill_pl(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) Swiftest massive body structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill components specific to the massive body class Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list Calls proc~~util_spill_pl~~CallsGraph proc~util_spill_pl util_spill_pl interface~util_spill~2 util_spill proc~util_spill_pl->interface~util_spill~2 interface~util_spill_body util_spill_body proc~util_spill_pl->interface~util_spill_body proc~util_spill_body util_spill_body interface~util_spill_body->proc~util_spill_body proc~util_spill_body->interface~util_spill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_spill_pl~~CalledByGraph proc~util_spill_pl util_spill_pl interface~util_spill_pl util_spill_pl interface~util_spill_pl->proc~util_spill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_spill_pl.html"},{"title":"util_spill_tp – swiftest","text":"module subroutine util_spill_tp(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) Swiftest test particle structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill components specific to the test particle class Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardse logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list Calls proc~~util_spill_tp~~CallsGraph proc~util_spill_tp util_spill_tp interface~util_spill~2 util_spill proc~util_spill_tp->interface~util_spill~2 interface~util_spill_body util_spill_body proc~util_spill_tp->interface~util_spill_body proc~util_spill_body util_spill_body interface~util_spill_body->proc~util_spill_body proc~util_spill_body->interface~util_spill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_spill_tp~~CalledByGraph proc~util_spill_tp util_spill_tp interface~util_spill_tp util_spill_tp interface~util_spill_tp->proc~util_spill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_spill_tp.html"},{"title":"util_valid_id_system – swiftest","text":"module subroutine util_valid_id_system(self, param) Interface → Validate massive body and test particle ids\n Subroutine causes program to exit with error if any ids are not unique Adapted from David E. Kaufmann's Swifter routine: util_valid.f90 Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~util_valid_id_system~~CallsGraph proc~util_valid_id_system util_valid_id_system interface~util_exit util_exit proc~util_valid_id_system->interface~util_exit interface~util_sort util_sort proc~util_valid_id_system->interface~util_sort proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_valid_id_system~~CalledByGraph proc~util_valid_id_system util_valid_id_system interface~util_valid_id_system util_valid_id_system interface~util_valid_id_system->proc~util_valid_id_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_valid_id_system.html"},{"title":"util_exit – swiftest","text":"module subroutine util_exit(code) Interface → Print termination message and exit program Adapted from David E. Kaufmann's Swifter routine: util_exit.f90\n Adapted from Hal Levison's Swift routine util_exit.f Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: code Called by proc~~util_exit~~CalledByGraph proc~util_exit util_exit interface~util_exit util_exit interface~util_exit->proc~util_exit proc~io_get_args io_get_args proc~io_get_args->interface~util_exit proc~io_read_param_in io_read_param_in proc~io_read_param_in->interface~util_exit proc~util_append_tp util_append_tp proc~util_append_tp->interface~util_exit proc~io_dump_param io_dump_param proc~io_dump_param->interface~util_exit proc~io_dump_swiftest io_dump_swiftest proc~io_dump_swiftest->interface~util_exit proc~io_read_cb_in io_read_cb_in proc~io_read_cb_in->interface~util_exit proc~io_read_frame_body io_read_frame_body proc~io_read_frame_body->interface~util_exit proc~io_write_hdr io_write_hdr proc~io_write_hdr->interface~util_exit proc~io_read_encounter io_read_encounter proc~io_read_encounter->interface~util_exit proc~io_read_frame_cb io_read_frame_cb proc~io_read_frame_cb->interface~util_exit proc~io_write_encounter io_write_encounter proc~io_write_encounter->interface~util_exit proc~io_write_frame_system io_write_frame_system proc~io_write_frame_system->interface~util_exit proc~io_write_frame_system->proc~io_write_hdr proc~util_valid_id_system util_valid_id_system proc~util_valid_id_system->interface~util_exit proc~setup_construct_system setup_construct_system proc~setup_construct_system->interface~util_exit proc~io_read_body_in io_read_body_in proc~io_read_body_in->interface~util_exit proc~io_write_discard io_write_discard proc~io_write_discard->interface~util_exit proc~util_append_pl util_append_pl proc~util_append_pl->interface~util_exit proc~util_solve_rkf45 util_solve_rkf45 proc~util_solve_rkf45->interface~util_exit interface~io_read_cb_in io_read_cb_in interface~io_read_cb_in->proc~io_read_cb_in interface~util_valid_id_system util_valid_id_system interface~util_valid_id_system->proc~util_valid_id_system interface~io_write_discard io_write_discard interface~io_write_discard->proc~io_write_discard interface~util_append_pl util_append_pl interface~util_append_pl->proc~util_append_pl interface~io_dump_swiftest io_dump_swiftest interface~io_dump_swiftest->proc~io_dump_swiftest interface~util_append_tp util_append_tp interface~util_append_tp->proc~util_append_tp interface~io_read_frame_cb io_read_frame_cb interface~io_read_frame_cb->proc~io_read_frame_cb interface~io_read_body_in io_read_body_in interface~io_read_body_in->proc~io_read_body_in interface~setup_construct_system setup_construct_system interface~setup_construct_system->proc~setup_construct_system interface~io_read_param_in io_read_param_in interface~io_read_param_in->proc~io_read_param_in interface~io_write_frame_system io_write_frame_system interface~io_write_frame_system->proc~io_write_frame_system interface~io_dump_param io_dump_param interface~io_dump_param->proc~io_dump_param interface~io_write_encounter io_write_encounter interface~io_write_encounter->proc~io_write_encounter interface~io_read_frame_body io_read_frame_body interface~io_read_frame_body->proc~io_read_frame_body interface~io_get_args io_get_args interface~io_get_args->proc~io_get_args interface~util_solve_rkf45 util_solve_rkf45 interface~util_solve_rkf45->proc~util_solve_rkf45 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_exit.html"},{"title":"util_fill_arr_char_string – swiftest","text":"subroutine util_fill_arr_char_string(keeps, inserts, lfill_list) Performs a fill operation on a single array of type character strings\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: keeps Array of values to keep character(len=STRMAX), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Contents None","tags":"","loc":"proc/util_fill_arr_char_string.html"},{"title":"util_fill_arr_DP – swiftest","text":"subroutine util_fill_arr_DP(keeps, inserts, lfill_list) Performs a fill operation on a single array of type DP\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: keeps Array of values to keep real(kind=DP), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Contents None","tags":"","loc":"proc/util_fill_arr_dp.html"},{"title":"util_fill_arr_DPvec – swiftest","text":"subroutine util_fill_arr_DPvec(keeps, inserts, lfill_list) Performs a fill operation on a single array of DP vectors with shape (NDIM, n)\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: keeps Array of values to keep real(kind=DP), intent(in), dimension(:,:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Contents None","tags":"","loc":"proc/util_fill_arr_dpvec.html"},{"title":"util_fill_arr_I4B – swiftest","text":"subroutine util_fill_arr_I4B(keeps, inserts, lfill_list) Performs a fill operation on a single array of type I4B\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I4B), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Contents None","tags":"","loc":"proc/util_fill_arr_i4b.html"},{"title":"util_fill_arr_logical – swiftest","text":"subroutine util_fill_arr_logical(keeps, inserts, lfill_list) Performs a fill operation on a single array of logicals\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: keeps Array of values to keep logical, intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Contents None","tags":"","loc":"proc/util_fill_arr_logical.html"},{"title":"util_fill_body – swiftest","text":"module subroutine util_fill_body(self, inserts, lfill_list) Interface → Insert new Swiftest generic particle structure into an old one. \n This is the inverse of a spill operation.\n Fill all the common components Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_body ), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Calls proc~~util_fill_body~~CallsGraph proc~util_fill_body util_fill_body interface~util_fill~2 util_fill proc~util_fill_body->interface~util_fill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_fill_body~~CalledByGraph proc~util_fill_body util_fill_body interface~util_fill_body util_fill_body interface~util_fill_body->proc~util_fill_body proc~util_fill_tp util_fill_tp proc~util_fill_tp->interface~util_fill_body proc~util_fill_pl util_fill_pl proc~util_fill_pl->interface~util_fill_body interface~util_fill_pl util_fill_pl interface~util_fill_pl->proc~util_fill_pl interface~util_fill_tp util_fill_tp interface~util_fill_tp->proc~util_fill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_fill_body.html"},{"title":"util_fill_pl – swiftest","text":"module subroutine util_fill_pl(self, inserts, lfill_list) Interface → Insert new Swiftest massive body structure into an old one. \n This is the inverse of a spill operation.\n Fill components specific to the massive body class Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Calls proc~~util_fill_pl~~CallsGraph proc~util_fill_pl util_fill_pl interface~util_fill_body util_fill_body proc~util_fill_pl->interface~util_fill_body interface~util_fill~2 util_fill proc~util_fill_pl->interface~util_fill~2 proc~util_fill_body util_fill_body interface~util_fill_body->proc~util_fill_body proc~util_fill_body->interface~util_fill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_fill_pl~~CalledByGraph proc~util_fill_pl util_fill_pl interface~util_fill_pl util_fill_pl interface~util_fill_pl->proc~util_fill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_fill_pl.html"},{"title":"util_fill_tp – swiftest","text":"module subroutine util_fill_tp(self, inserts, lfill_list) Interface → Insert new Swiftest test particle structure into an old one. \n This is the inverse of a fill operation.\n Spill components specific to the test particle class Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Calls proc~~util_fill_tp~~CallsGraph proc~util_fill_tp util_fill_tp interface~util_fill_body util_fill_body proc~util_fill_tp->interface~util_fill_body interface~util_fill~2 util_fill proc~util_fill_tp->interface~util_fill~2 proc~util_fill_body util_fill_body interface~util_fill_body->proc~util_fill_body proc~util_fill_body->interface~util_fill~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_fill_tp~~CalledByGraph proc~util_fill_tp util_fill_tp interface~util_fill_tp util_fill_tp interface~util_fill_tp->proc~util_fill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_fill_tp.html"},{"title":"util_resize_arr_char_string – swiftest","text":"subroutine util_resize_arr_char_string(arr, nnew) Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size Contents None","tags":"","loc":"proc/util_resize_arr_char_string.html"},{"title":"util_resize_arr_DP – swiftest","text":"subroutine util_resize_arr_DP(arr, nnew) Resizes an array component of double precision type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size Contents None","tags":"","loc":"proc/util_resize_arr_dp.html"},{"title":"util_resize_arr_DPvec – swiftest","text":"subroutine util_resize_arr_DPvec(arr, nnew) Resizes an array component of double precision vectors of size (NDIM, n). Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size Contents None","tags":"","loc":"proc/util_resize_arr_dpvec.html"},{"title":"util_resize_arr_I4B – swiftest","text":"subroutine util_resize_arr_I4B(arr, nnew) Resizes an array component of integer type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size Contents None","tags":"","loc":"proc/util_resize_arr_i4b.html"},{"title":"util_resize_arr_logical – swiftest","text":"subroutine util_resize_arr_logical(arr, nnew) Resizes an array component of logical type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size Contents None","tags":"","loc":"proc/util_resize_arr_logical.html"},{"title":"util_resize_body – swiftest","text":"module subroutine util_resize_body(self, nnew) Interface → Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~util_resize_body~~CallsGraph proc~util_resize_body util_resize_body interface~util_resize~2 util_resize proc~util_resize_body->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_resize_body~~CalledByGraph proc~util_resize_body util_resize_body interface~util_resize_body util_resize_body interface~util_resize_body->proc~util_resize_body proc~util_resize_pl util_resize_pl proc~util_resize_pl->interface~util_resize_body proc~util_resize_tp util_resize_tp proc~util_resize_tp->interface~util_resize_body interface~util_resize_tp util_resize_tp interface~util_resize_tp->proc~util_resize_tp interface~util_resize_pl util_resize_pl interface~util_resize_pl->proc~util_resize_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_resize_body.html"},{"title":"util_resize_encounter – swiftest","text":"module subroutine util_resize_encounter(self, nnew) Interface → Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small.\n Note: The reason to extend it by a factor of 2 is for performance. When there are many enounters per step, resizing every time you want to add an \n encounter takes significant computational effort. Resizing by a factor of 2 is a tradeoff between performance (fewer resize calls) and memory managment\n Memory usage grows by a factor of 2 each time it fills up, but no more. Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list integer(kind=I4B), intent(in) :: nnew New size of list needed Called by proc~~util_resize_encounter~~CalledByGraph proc~util_resize_encounter util_resize_encounter interface~util_resize_encounter util_resize_encounter interface~util_resize_encounter->proc~util_resize_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_resize_encounter.html"},{"title":"util_resize_pl – swiftest","text":"module subroutine util_resize_pl(self, nnew) Interface → Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~util_resize_pl~~CallsGraph proc~util_resize_pl util_resize_pl interface~util_resize~2 util_resize proc~util_resize_pl->interface~util_resize~2 interface~util_resize_body util_resize_body proc~util_resize_pl->interface~util_resize_body proc~util_resize_body util_resize_body interface~util_resize_body->proc~util_resize_body proc~util_resize_body->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_resize_pl~~CalledByGraph proc~util_resize_pl util_resize_pl interface~util_resize_pl util_resize_pl interface~util_resize_pl->proc~util_resize_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_resize_pl.html"},{"title":"util_resize_tp – swiftest","text":"module subroutine util_resize_tp(self, nnew) Interface → Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~util_resize_tp~~CallsGraph proc~util_resize_tp util_resize_tp interface~util_resize~2 util_resize proc~util_resize_tp->interface~util_resize~2 interface~util_resize_body util_resize_body proc~util_resize_tp->interface~util_resize_body proc~util_resize_body util_resize_body interface~util_resize_body->proc~util_resize_body proc~util_resize_body->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_resize_tp~~CalledByGraph proc~util_resize_tp util_resize_tp interface~util_resize_tp util_resize_tp interface~util_resize_tp->proc~util_resize_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_resize_tp.html"},{"title":"util_copy_encounter – swiftest","text":"module subroutine util_copy_encounter(self, source) Interface → Copies elements from the source encounter list into self. Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into Called by proc~~util_copy_encounter~~CalledByGraph proc~util_copy_encounter util_copy_encounter interface~util_copy_encounter util_copy_encounter interface~util_copy_encounter->proc~util_copy_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_copy_encounter.html"},{"title":"util_minimize_bfgs – swiftest","text":"module function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1) Interface → Uses ieee_exceptions proc~~util_minimize_bfgs~~UsesGraph proc~util_minimize_bfgs util_minimize_bfgs ieee_exceptions ieee_exceptions proc~util_minimize_bfgs->ieee_exceptions 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. This function implements the Broyden-Fletcher-Goldfarb-Shanno method to determine the minimum of a function of N variables. It recieves as input:\n   f%eval(x) : lambda function object containing the objective function as the eval metho\n   N    :  Number of variables of function f\n   x0   :  Initial starting value of x\n   eps  :  Accuracy of 1 - dimensional minimization at each step\n The outputs include\n   lerr :  Returns .true. if it could not find the minimum\n Returns\n   x1   :  Final minimum (all 0 if none found)\n   0 = No miniumum found Arguments Type Intent Optional Attributes Name class(lambda_obj), intent(inout) :: f integer(kind=I4B), intent(in) :: N real(kind=DP), intent(in), dimension(:) :: x0 real(kind=DP), intent(in) :: eps logical, intent(out) :: lerr Return Value real(kind=DP),\n  dimension(:),allocatable Called by proc~~util_minimize_bfgs~~CalledByGraph proc~util_minimize_bfgs util_minimize_bfgs interface~util_minimize_bfgs util_minimize_bfgs interface~util_minimize_bfgs->proc~util_minimize_bfgs Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_minimize_bfgs.html"},{"title":"util_append_arr_char_string – swiftest","text":"subroutine util_append_arr_char_string(arr, source, nold, nsrc, lsource_mask) Append a single array of character string type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Destination array character(len=STRMAX), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~util_append_arr_char_string~~CallsGraph proc~util_append_arr_char_string util_append_arr_char_string interface~util_resize~2 util_resize proc~util_append_arr_char_string->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_append_arr_char_string.html"},{"title":"util_append_arr_DP – swiftest","text":"subroutine util_append_arr_DP(arr, source, nold, nsrc, lsource_mask) Append a single array of double precision type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Destination array real(kind=DP), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~util_append_arr_dp~~CallsGraph proc~util_append_arr_dp util_append_arr_DP interface~util_resize~2 util_resize proc~util_append_arr_dp->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_append_arr_dp.html"},{"title":"util_append_arr_DPvec – swiftest","text":"subroutine util_append_arr_DPvec(arr, source, nold, nsrc, lsource_mask) Append a single array of double precision vector type of size (NDIM, n) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Destination array real(kind=DP), intent(in), dimension(:,:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~util_append_arr_dpvec~~CallsGraph proc~util_append_arr_dpvec util_append_arr_DPvec interface~util_resize~2 util_resize proc~util_append_arr_dpvec->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_append_arr_dpvec.html"},{"title":"util_append_arr_I4B – swiftest","text":"subroutine util_append_arr_I4B(arr, source, nold, nsrc, lsource_mask) Append a single array of integer(I4B) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~util_append_arr_i4b~~CallsGraph proc~util_append_arr_i4b util_append_arr_I4B interface~util_resize~2 util_resize proc~util_append_arr_i4b->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_append_arr_i4b.html"},{"title":"util_append_arr_logical – swiftest","text":"subroutine util_append_arr_logical(arr, source, nold, nsrc, lsource_mask) Append a single array of logical type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Destination array logical, intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~util_append_arr_logical~~CallsGraph proc~util_append_arr_logical util_append_arr_logical interface~util_resize~2 util_resize proc~util_append_arr_logical->interface~util_resize~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_append_arr_logical.html"},{"title":"util_append_body – swiftest","text":"module subroutine util_append_body(self, source, lsource_mask) Interface → Append components from one Swiftest body object to another. \n This method will automatically resize the destination body if it is too small Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~util_append_body~~CallsGraph proc~util_append_body util_append_body interface~util_append~2 util_append proc~util_append_body->interface~util_append~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_append_body~~CalledByGraph proc~util_append_body util_append_body interface~util_append_body util_append_body interface~util_append_body->proc~util_append_body proc~util_append_tp util_append_tp proc~util_append_tp->interface~util_append_body proc~util_append_pl util_append_pl proc~util_append_pl->interface~util_append_body interface~util_append_tp util_append_tp interface~util_append_tp->proc~util_append_tp interface~util_append_pl util_append_pl interface~util_append_pl->proc~util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_append_body.html"},{"title":"util_append_pl – swiftest","text":"module subroutine util_append_pl(self, source, lsource_mask) Interface → Append components from one Swiftest body object to another. \n This method will automatically resize the destination body if it is too small Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~util_append_pl~~CallsGraph proc~util_append_pl util_append_pl interface~util_append~2 util_append proc~util_append_pl->interface~util_append~2 interface~util_exit util_exit proc~util_append_pl->interface~util_exit interface~util_append_body util_append_body proc~util_append_pl->interface~util_append_body proc~util_exit util_exit interface~util_exit->proc~util_exit proc~util_append_body util_append_body interface~util_append_body->proc~util_append_body proc~util_append_body->interface~util_append~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_append_pl~~CalledByGraph proc~util_append_pl util_append_pl interface~util_append_pl util_append_pl interface~util_append_pl->proc~util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_append_pl.html"},{"title":"util_append_tp – swiftest","text":"module subroutine util_append_tp(self, source, lsource_mask) Interface → Append components from one Swiftest body object to another. \n This method will automatically resize the destination body if it is too small Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~util_append_tp~~CallsGraph proc~util_append_tp util_append_tp interface~util_append~2 util_append proc~util_append_tp->interface~util_append~2 interface~util_exit util_exit proc~util_append_tp->interface~util_exit interface~util_append_body util_append_body proc~util_append_tp->interface~util_append_body proc~util_exit util_exit interface~util_exit->proc~util_exit proc~util_append_body util_append_body interface~util_append_body->proc~util_append_body proc~util_append_body->interface~util_append~2 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_append_tp~~CalledByGraph proc~util_append_tp util_append_tp interface~util_append_tp util_append_tp interface~util_append_tp->proc~util_append_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_append_tp.html"},{"title":"util_get_energy_momentum_system – swiftest","text":"module subroutine util_get_energy_momentum_system(self, param) Interface → Compute total system angular momentum vector and kinetic, potential and total system energy Adapted from David E. Kaufmann Swifter routine symba_energy_eucl.f90 Adapted from Martin Duncan's Swift routine anal_energy.f Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~util_get_energy_momentum_system~~CallsGraph proc~util_get_energy_momentum_system util_get_energy_momentum_system py py proc~util_get_energy_momentum_system->py px px proc~util_get_energy_momentum_system->px indj indj proc~util_get_energy_momentum_system->indj indi indi proc~util_get_energy_momentum_system->indi pz pz proc~util_get_energy_momentum_system->pz interface~obl_pot obl_pot proc~util_get_energy_momentum_system->interface~obl_pot proc~obl_pot obl_pot interface~obl_pot->proc~obl_pot Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~util_get_energy_momentum_system~~CalledByGraph proc~util_get_energy_momentum_system util_get_energy_momentum_system interface~util_get_energy_momentum_system util_get_energy_momentum_system interface~util_get_energy_momentum_system->proc~util_get_energy_momentum_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/util_get_energy_momentum_system.html"},{"title":"gr_kick_getaccb_ns_body – swiftest","text":"pure module subroutine gr_kick_getaccb_ns_body(self, system, param) Interface → Add relativistic correction acceleration for non-symplectic integrators.\n Based on Quinn et al. (1991) eq. 5 Reference: Quinn, T.R., Tremaine, S., Duncan, M., 1991. A three million year integration of the earth’s orbit. \n       AJ 101, 2287–2305. https://doi.org/10.1086/115850 Adapted from David A. Minton's Swifter routine routine gr_kick_getaccb_ns.f90 Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Called by proc~~gr_kick_getaccb_ns_body~~CalledByGraph proc~gr_kick_getaccb_ns_body gr_kick_getaccb_ns_body interface~gr_kick_getaccb_ns_body gr_kick_getaccb_ns_body interface~gr_kick_getaccb_ns_body->proc~gr_kick_getaccb_ns_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/gr_kick_getaccb_ns_body.html"},{"title":"gr_kick_getacch – swiftest","text":"module subroutine gr_kick_getacch(mu, x, lmask, n, inv_c2, agr) Interface → Compute relativisitic accelerations of massive bodies\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_whm_kick_getacch.f90 Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:,:) :: x Position vectors logical, intent(in), dimension(:) :: lmask Logical mask indicating which bodies to compute integer(kind=I4B), intent(in) :: n Total number of bodies real(kind=DP), intent(in) :: inv_c2 Inverse speed of light squared: 1 / c**2 real(kind=DP), intent(out), dimension(:,:) :: agr Accelerations Called by proc~~gr_kick_getacch~~CalledByGraph proc~gr_kick_getacch gr_kick_getacch interface~gr_kick_getacch gr_kick_getacch interface~gr_kick_getacch->proc~gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/gr_kick_getacch.html"},{"title":"gr_p4_pos_kick – swiftest","text":"pure module subroutine gr_p4_pos_kick(param, x, v, dt) Interface → Position kick due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Reference:\n    Saha, P., Tremaine, S., 1994. Long-term planetary integration with individual time steps. \n       AJ 108, 1962–1969. https://doi.org/10.1086/117210 Adapted from David A. Minton's Swifter routine gr_whm_p4.f90 Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(inout), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(in) :: dt Step size Called by proc~~gr_p4_pos_kick~~CalledByGraph proc~gr_p4_pos_kick gr_p4_pos_kick interface~gr_p4_pos_kick gr_p4_pos_kick interface~gr_p4_pos_kick->proc~gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/gr_p4_pos_kick.html"},{"title":"gr_pseudovel2vel – swiftest","text":"pure module subroutine gr_pseudovel2vel(param, mu, xh, pv, vh) Interface → Converts the relativistic pseudovelocity back into a veliocentric velocity\n    Based on Saha & Tremaine (1994) Eq. 32 Reference:\n    Saha, P., Tremaine, S., 1994. Long-term planetary integration with individual time steps. \n       AJ 108, 1962–1969. https://doi.org/10.1086/117210 Adapted from David A. Minton's Swifter routine gr_pseudovel2vel.f90 Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real(kind=DP), intent(in), dimension(:) :: xh Heliocentric position vector real(kind=DP), intent(in), dimension(:) :: pv Pseudovelocity velocity vector - see Saha & Tremain (1994), eq. (32) real(kind=DP), intent(out), dimension(:) :: vh Heliocentric velocity vector Called by proc~~gr_pseudovel2vel~~CalledByGraph proc~gr_pseudovel2vel gr_pseudovel2vel interface~gr_pseudovel2vel gr_pseudovel2vel interface~gr_pseudovel2vel->proc~gr_pseudovel2vel Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/gr_pseudovel2vel.html"},{"title":"gr_pv2vh_body – swiftest","text":"pure module subroutine gr_pv2vh_body(self, param) Interface → Wrapper function that converts from pseudovelocity to heliocentric velocity for swiftest bodies Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Called by proc~~gr_pv2vh_body~~CalledByGraph proc~gr_pv2vh_body gr_pv2vh_body interface~gr_pv2vh_body gr_pv2vh_body interface~gr_pv2vh_body->proc~gr_pv2vh_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/gr_pv2vh_body.html"},{"title":"gr_vel2pseudovel – swiftest","text":"pure module subroutine gr_vel2pseudovel(param, mu, xh, vh, pv) Interface → Converts the heliocentric velocity into a pseudovelocity with relativistic corrections. \n Uses Newton-Raphson method with direct inversion of the Jacobian (yeah, it's slow, but \n this is only done once per run). Reference:\n    Saha, P., Tremaine, S., 1994. Long-term planetary integration with individual time steps. \n       AJ 108, 1962–1969. https://doi.org/10.1086/117210 Adapted from David A. Minton's Swifter routine gr_vel2pseudovel.f90 Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real(kind=DP), intent(in), dimension(:) :: xh Heliocentric position vector real(kind=DP), intent(in), dimension(:) :: vh Heliocentric velocity vector real(kind=DP), intent(out), dimension(:) :: pv Pseudovelocity vector - see Saha & Tremain (1994), eq. (32) Called by proc~~gr_vel2pseudovel~~CalledByGraph proc~gr_vel2pseudovel gr_vel2pseudovel interface~gr_vel2pseudovel gr_vel2pseudovel interface~gr_vel2pseudovel->proc~gr_vel2pseudovel Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/gr_vel2pseudovel.html"},{"title":"gr_vh2pv_body – swiftest","text":"pure module subroutine gr_vh2pv_body(self, param) Interface → Wrapper function that converts from heliocentric velocity to pseudovelocity for Swiftest bodies Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Called by proc~~gr_vh2pv_body~~CalledByGraph proc~gr_vh2pv_body gr_vh2pv_body interface~gr_vh2pv_body gr_vh2pv_body interface~gr_vh2pv_body->proc~gr_vh2pv_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/gr_vh2pv_body.html"},{"title":"discard_system – swiftest","text":"module subroutine discard_system(self, param) Interface → Calls the discard methods for each body class and then the write method if any discards were detected Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters Called by proc~~discard_system~~CalledByGraph proc~discard_system discard_system interface~discard_system discard_system interface~discard_system->proc~discard_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/discard_system.html"},{"title":"discard_pl – swiftest","text":"module subroutine discard_pl(self, system, param) Interface → Placeholder method for discarding massive bodies. This method does nothing except to ensure that the discard flag is set to false. \n  This method is intended to be overridden by more advanced integrators. Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter Called by proc~~discard_pl~~CalledByGraph proc~discard_pl discard_pl interface~discard_pl discard_pl interface~discard_pl->proc~discard_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/discard_pl.html"},{"title":"discard_tp – swiftest","text":"module subroutine discard_tp(self, system, param) Interface → Check to see if particles should be discarded based on their positions relative to the massive bodies Adapted from David E. Kaufmann's Swifter routine: discard.f90\n Adapted from Hal Levison's Swift routine discard. Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter Called by proc~~discard_tp~~CalledByGraph proc~discard_tp discard_tp interface~discard_tp discard_tp interface~discard_tp->proc~discard_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/discard_tp.html"},{"title":"helio_step_system – swiftest","text":"module subroutine helio_step_system(self, param, t, dt) Interface → Step massive bodies and and active test particles ahead in heliocentric coordinates. Currently there's no difference between this and the WHM system stepper, so this is just\n a wrapper function to keep the method calls consistent for inherited types. Adapted from Hal Levison's Swift routine step_kdk.f\n Adapted from David E. Kaufmann's Swifter routine helio_step.f90 Arguments Type Intent Optional Attributes Name class( helio_nbody_system ), intent(inout) :: self Helio nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize Calls proc~~helio_step_system~~CallsGraph proc~helio_step_system helio_step_system whm_step_system whm_step_system proc~helio_step_system->whm_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~helio_step_system~~CalledByGraph proc~helio_step_system helio_step_system interface~helio_step_system helio_step_system interface~helio_step_system->proc~helio_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_step_system.html"},{"title":"helio_step_pl – swiftest","text":"module subroutine helio_step_pl(self, system, param, t, dt) Interface → Step massive bodies ahead Democratic Heliocentric method Adapted from David E. Kaufmann's Swifter helio_step_pl.f90\n Adapted from Hal Levison's Swift routine helio_step_pl.f Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize Called by proc~~helio_step_pl~~CalledByGraph proc~helio_step_pl helio_step_pl interface~helio_step_pl helio_step_pl interface~helio_step_pl->proc~helio_step_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_step_pl.html"},{"title":"helio_step_tp – swiftest","text":"module subroutine helio_step_tp(self, system, param, t, dt) Interface → Step active test particles ahead using Democratic Heliocentric method Adapted from David E. Kaufmann's Swifter routine helio_step_tp.f90\n Adapted from Hal Levison's Swift routine helio_step_tp.f Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize Called by proc~~helio_step_tp~~CalledByGraph proc~helio_step_tp helio_step_tp interface~helio_step_tp helio_step_tp interface~helio_step_tp->proc~helio_step_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_step_tp.html"},{"title":"helio_gr_kick_getacch_pl – swiftest","text":"module subroutine helio_gr_kick_getacch_pl(self, param) Interface → Compute relativisitic accelerations of massive bodies\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_whm_kick_getacch.f90 Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters Calls proc~~helio_gr_kick_getacch_pl~~CallsGraph proc~helio_gr_kick_getacch_pl helio_gr_kick_getacch_pl gr_kick_getacch gr_kick_getacch proc~helio_gr_kick_getacch_pl->gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~helio_gr_kick_getacch_pl~~CalledByGraph proc~helio_gr_kick_getacch_pl helio_gr_kick_getacch_pl interface~helio_gr_kick_getacch_pl helio_gr_kick_getacch_pl interface~helio_gr_kick_getacch_pl->proc~helio_gr_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_gr_kick_getacch_pl.html"},{"title":"helio_gr_kick_getacch_tp – swiftest","text":"module subroutine helio_gr_kick_getacch_tp(self, param) Interface → Compute relativisitic accelerations of test particles\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_helio_kick_getacch.f90 Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters Calls proc~~helio_gr_kick_getacch_tp~~CallsGraph proc~helio_gr_kick_getacch_tp helio_gr_kick_getacch_tp gr_kick_getacch gr_kick_getacch proc~helio_gr_kick_getacch_tp->gr_kick_getacch Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~helio_gr_kick_getacch_tp~~CalledByGraph proc~helio_gr_kick_getacch_tp helio_gr_kick_getacch_tp interface~helio_gr_kick_getacch_tp helio_gr_kick_getacch_tp interface~helio_gr_kick_getacch_tp->proc~helio_gr_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_gr_kick_getacch_tp.html"},{"title":"helio_gr_p4_pl – swiftest","text":"pure module subroutine helio_gr_p4_pl(self, param, dt) Interface → Position kick to massive bodies due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_helio_p4.f90 Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size Calls proc~~helio_gr_p4_pl~~CallsGraph proc~helio_gr_p4_pl helio_gr_p4_pl gr_p4_pos_kick gr_p4_pos_kick proc~helio_gr_p4_pl->gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~helio_gr_p4_pl~~CalledByGraph proc~helio_gr_p4_pl helio_gr_p4_pl interface~helio_gr_p4_pl helio_gr_p4_pl interface~helio_gr_p4_pl->proc~helio_gr_p4_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_gr_p4_pl.html"},{"title":"helio_gr_p4_tp – swiftest","text":"pure module subroutine helio_gr_p4_tp(self, param, dt) Interface → Position kick to test particles due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Adapted from David A. Minton's Swifter routine routine gr_helio_p4.f90 Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size Calls proc~~helio_gr_p4_tp~~CallsGraph proc~helio_gr_p4_tp helio_gr_p4_tp gr_p4_pos_kick gr_p4_pos_kick proc~helio_gr_p4_tp->gr_p4_pos_kick Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~helio_gr_p4_tp~~CalledByGraph proc~helio_gr_p4_tp helio_gr_p4_tp interface~helio_gr_p4_tp helio_gr_p4_tp interface~helio_gr_p4_tp->proc~helio_gr_p4_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_gr_p4_tp.html"},{"title":"helio_kick_getacch_pl – swiftest","text":"module subroutine helio_kick_getacch_pl(self, system, param, t, lbeg) Interface → Compute heliocentric accelerations of massive bodies Adapted from David E. Kaufmann's Swifter routine helio_kick_getacch.f90\n Adapted from Hal Levison's Swift routine helio_kick_getacch.f Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Called by proc~~helio_kick_getacch_pl~~CalledByGraph proc~helio_kick_getacch_pl helio_kick_getacch_pl interface~helio_kick_getacch_pl helio_kick_getacch_pl interface~helio_kick_getacch_pl->proc~helio_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_kick_getacch_pl.html"},{"title":"helio_kick_getacch_tp – swiftest","text":"module subroutine helio_kick_getacch_tp(self, system, param, t, lbeg) Interface → Compute heliocentric accelerations of test particles Adapted from David E. Kaufmann's Swifter routine helio_kick_getacch_tp.f90\n Adapted from Hal Levison's Swift routine helio_kick_getacch_tp.f Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Called by proc~~helio_kick_getacch_tp~~CalledByGraph proc~helio_kick_getacch_tp helio_kick_getacch_tp interface~helio_kick_getacch_tp helio_kick_getacch_tp interface~helio_kick_getacch_tp->proc~helio_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_kick_getacch_tp.html"},{"title":"helio_kick_vb_pl – swiftest","text":"module subroutine helio_kick_vb_pl(self, system, param, t, dt, lbeg) Interface → Kick barycentric velocities of bodies Adapted from Martin Duncan and Hal Levison's Swift routine kickvh.f \n Adapted from David E. Kaufmann's Swifter routine helio_kick_vb.f90 Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. Called by proc~~helio_kick_vb_pl~~CalledByGraph proc~helio_kick_vb_pl helio_kick_vb_pl interface~helio_kick_vb_pl helio_kick_vb_pl interface~helio_kick_vb_pl->proc~helio_kick_vb_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_kick_vb_pl.html"},{"title":"helio_kick_vb_tp – swiftest","text":"module subroutine helio_kick_vb_tp(self, system, param, t, dt, lbeg) Interface → Kick barycentric velocities of bodies Adapted from Martin Duncan and Hal Levison's Swift routine kickvh_tp.f\n Adapted from David E. Kaufmann's Swifter routine helio_kick_vb_tp.f90 Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. Called by proc~~helio_kick_vb_tp~~CalledByGraph proc~helio_kick_vb_tp helio_kick_vb_tp interface~helio_kick_vb_tp helio_kick_vb_tp interface~helio_kick_vb_tp->proc~helio_kick_vb_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_kick_vb_tp.html"},{"title":"helio_coord_vb2vh_pl – swiftest","text":"module subroutine helio_coord_vb2vh_pl(self, cb) Interface → Convert massive bodies from barycentric to heliocentric coordinates (velocity only) Adapted from David E. Kaufmann's Swifter routine coord_vb2vh.f90 \n Adapted from Hal Levison's Swift routine coord_vb2vh.f Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Called by proc~~helio_coord_vb2vh_pl~~CalledByGraph proc~helio_coord_vb2vh_pl helio_coord_vb2vh_pl interface~helio_coord_vb2vh_pl helio_coord_vb2vh_pl interface~helio_coord_vb2vh_pl->proc~helio_coord_vb2vh_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_coord_vb2vh_pl.html"},{"title":"helio_coord_vb2vh_tp – swiftest","text":"module subroutine helio_coord_vb2vh_tp(self, vbcb) Interface → Convert test particles from barycentric to heliocentric coordinates (velocity only) Adapted from David E. Kaufmann's Swifter routine coord_vb2vh_tp.f90 \n Adapted from Hal Levison's Swift routine coord_vb2h_tp.f Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body Called by proc~~helio_coord_vb2vh_tp~~CalledByGraph proc~helio_coord_vb2vh_tp helio_coord_vb2vh_tp interface~helio_coord_vb2vh_tp helio_coord_vb2vh_tp interface~helio_coord_vb2vh_tp->proc~helio_coord_vb2vh_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_coord_vb2vh_tp.html"},{"title":"helio_coord_vh2vb_pl – swiftest","text":"module subroutine helio_coord_vh2vb_pl(self, cb) Interface → Convert massive bodies from heliocentric to barycentric coordinates (velocity only) Adapted from David E. Kaufmann's Swifter routine coord_vh2vb.f90 \n Adapted from Hal Levison's Swift routine coord_vh2b.f Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object Called by proc~~helio_coord_vh2vb_pl~~CalledByGraph proc~helio_coord_vh2vb_pl helio_coord_vh2vb_pl interface~helio_coord_vh2vb_pl helio_coord_vh2vb_pl interface~helio_coord_vh2vb_pl->proc~helio_coord_vh2vb_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_coord_vh2vb_pl.html"},{"title":"helio_coord_vh2vb_tp – swiftest","text":"module subroutine helio_coord_vh2vb_tp(self, vbcb) Interface → Convert test particles from heliocentric to barycentric coordinates (velocity only) Adapted from David E. Kaufmann's Swifter routine coord_vh2vb_tp.f90\n Adapted from Hal Levison's Swift routine coord_vh2b_tp.f Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body Called by proc~~helio_coord_vh2vb_tp~~CalledByGraph proc~helio_coord_vh2vb_tp helio_coord_vh2vb_tp interface~helio_coord_vh2vb_tp helio_coord_vh2vb_tp interface~helio_coord_vh2vb_tp->proc~helio_coord_vh2vb_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_coord_vh2vb_tp.html"},{"title":"helio_drift_body – swiftest","text":"module subroutine helio_drift_body(self, system, param, dt) Interface → Loop through bodies and call Danby drift routine on democratic heliocentric coordinates Adapted from David E. Kaufmann's Swifter routine helio_drift.f90\n Adapted from Hal Levison's Swift routine drift.f Arguments Type Intent Optional Attributes Name class(swiftest_body), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize Calls proc~~helio_drift_body~~CallsGraph proc~helio_drift_body helio_drift_body drift_all drift_all proc~helio_drift_body->drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~helio_drift_body~~CalledByGraph proc~helio_drift_body helio_drift_body interface~helio_drift_body helio_drift_body interface~helio_drift_body->proc~helio_drift_body proc~helio_drift_pl helio_drift_pl proc~helio_drift_pl->interface~helio_drift_body proc~helio_drift_tp helio_drift_tp proc~helio_drift_tp->interface~helio_drift_body interface~helio_drift_pl helio_drift_pl interface~helio_drift_pl->proc~helio_drift_pl interface~helio_drift_tp helio_drift_tp interface~helio_drift_tp->proc~helio_drift_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_drift_body.html"},{"title":"helio_drift_pl – swiftest","text":"module subroutine helio_drift_pl(self, system, param, dt) Interface → Wrapper function used to call the body drift routine from a helio_pl structure Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize Calls proc~~helio_drift_pl~~CallsGraph proc~helio_drift_pl helio_drift_pl interface~helio_drift_body helio_drift_body proc~helio_drift_pl->interface~helio_drift_body proc~helio_drift_body helio_drift_body interface~helio_drift_body->proc~helio_drift_body drift_all drift_all proc~helio_drift_body->drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~helio_drift_pl~~CalledByGraph proc~helio_drift_pl helio_drift_pl interface~helio_drift_pl helio_drift_pl interface~helio_drift_pl->proc~helio_drift_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_drift_pl.html"},{"title":"helio_drift_tp – swiftest","text":"module subroutine helio_drift_tp(self, system, param, dt) Interface → Wrapper function used to call the body drift routine from a helio_pl structure Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize Calls proc~~helio_drift_tp~~CallsGraph proc~helio_drift_tp helio_drift_tp interface~helio_drift_body helio_drift_body proc~helio_drift_tp->interface~helio_drift_body proc~helio_drift_body helio_drift_body interface~helio_drift_body->proc~helio_drift_body drift_all drift_all proc~helio_drift_body->drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~helio_drift_tp~~CalledByGraph proc~helio_drift_tp helio_drift_tp interface~helio_drift_tp helio_drift_tp interface~helio_drift_tp->proc~helio_drift_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_drift_tp.html"},{"title":"helio_drift_linear_pl – swiftest","text":"module subroutine helio_drift_linear_pl(self, cb, dt, lbeg) Interface → Perform linear drift of massive bodies due to barycentric momentum of Sun Adapted from David E. Kaufmann's Swifter routine helio_lindrift.f90\n Adapted from Hal Levison's Swift routine helio_lindrift.f Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( helio_cb ), intent(inout) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step Called by proc~~helio_drift_linear_pl~~CalledByGraph proc~helio_drift_linear_pl helio_drift_linear_pl interface~helio_drift_linear_pl helio_drift_linear_pl interface~helio_drift_linear_pl->proc~helio_drift_linear_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_drift_linear_pl.html"},{"title":"helio_drift_linear_tp – swiftest","text":"module subroutine helio_drift_linear_tp(self, cb, dt, lbeg) Interface → Perform linear drift of test particles due to barycentric momentum of Sun\n New vectorized version included Adapted from David E. Kaufmann's Swifter routine helio_lindrift_tp.f90\n Adapted from Hal Levison's Swift routine helio_lindrift_tp.f Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particleb object class( helio_cb ), intent(in) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step Called by proc~~helio_drift_linear_tp~~CalledByGraph proc~helio_drift_linear_tp helio_drift_linear_tp interface~helio_drift_linear_tp helio_drift_linear_tp interface~helio_drift_linear_tp->proc~helio_drift_linear_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/helio_drift_linear_tp.html"},{"title":"io_get_args – swiftest","text":"module function io_get_args(integrator, param_file_name) result(ierr) Interface → Reads in the name of the parameter file from command line arguments. Arguments Type Intent Optional Attributes Name integer(kind=I4B) :: integrator Symbolic code of the requested integrator character(len=:), allocatable :: param_file_name Name of the input parameters file Return Value integer(kind=I4B) I/O error code Calls proc~~io_get_args~~CallsGraph proc~io_get_args io_get_args interface~io_toupper io_toupper proc~io_get_args->interface~io_toupper interface~util_exit util_exit proc~io_get_args->interface~util_exit interface~util_version util_version proc~io_get_args->interface~util_version proc~io_toupper io_toupper interface~io_toupper->proc~io_toupper proc~util_exit util_exit interface~util_exit->proc~util_exit proc~util_version util_version interface~util_version->proc~util_version Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_get_args~~CalledByGraph proc~io_get_args io_get_args interface~io_get_args io_get_args interface~io_get_args->proc~io_get_args Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_get_args.html"},{"title":"io_get_token – swiftest","text":"module function io_get_token(buffer, ifirst, ilast, ierr) result(token) Interface → Retrieves a character token from an input string. Here a token is defined as any set of contiguous non-blank characters not \n beginning with or containing \"!\". If \"!\" is present, any remaining part of the buffer including the \"!\" is ignored Adapted from David E. Kaufmann's Swifter routine io_get_token.f90\n Bad input\n No valid token Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: buffer Input string buffer integer(kind=I4B), intent(inout) :: ifirst Index of the buffer at which to start the search for a token integer(kind=I4B), intent(out) :: ilast Index of the buffer at the end of the returned token integer(kind=I4B), intent(out) :: ierr Error code Return Value character(len=:),\n  allocatable Returned token string Called by proc~~io_get_token~~CalledByGraph proc~io_get_token io_get_token interface~io_get_token io_get_token interface~io_get_token->proc~io_get_token proc~io_param_reader io_param_reader proc~io_param_reader->interface~io_get_token interface~io_param_reader io_param_reader interface~io_param_reader->proc~io_param_reader Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_get_token.html"},{"title":"io_conservation_report – swiftest","text":"module subroutine io_conservation_report(self, param, lterminal) Interface → Reports the current state of energy, mass, and angular momentum conservation in a run Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen Calls proc~~io_conservation_report~~CallsGraph proc~io_conservation_report io_conservation_report lescape lescape proc~io_conservation_report->lescape lspin_orig lspin_orig proc~io_conservation_report->lspin_orig lorbit_orig lorbit_orig proc~io_conservation_report->lorbit_orig ltot_orig ltot_orig proc~io_conservation_report->ltot_orig Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_conservation_report~~CalledByGraph proc~io_conservation_report io_conservation_report interface~io_conservation_report io_conservation_report interface~io_conservation_report->proc~io_conservation_report Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_conservation_report.html"},{"title":"io_dump_param – swiftest","text":"module subroutine io_dump_param(self, param_file_name) Interface → Dump integration parameters to file Adapted from David E. Kaufmann's Swifter routine io_dump_param.f90\n Adapted from Martin Duncan's Swift routine io_dump_param.f\n todo: Currently this procedure does not work in user-defined derived-type input mode \n    due to compiler incompatabilities Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Output collection of parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) Calls proc~~io_dump_param~~CallsGraph proc~io_dump_param io_dump_param interface~util_exit util_exit proc~io_dump_param->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_dump_param~~CalledByGraph proc~io_dump_param io_dump_param interface~io_dump_param io_dump_param interface~io_dump_param->proc~io_dump_param Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_dump_param.html"},{"title":"io_dump_swiftest – swiftest","text":"module subroutine io_dump_swiftest(self, param) Interface → Dump massive body data to files Adapted from David E. Kaufmann's Swifter routine: io_dump_pl.f90 and io_dump_tp.f90\n Adapted from Hal Levison's Swift routine io_dump_pl.f and io_dump_tp.f Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters Calls proc~~io_dump_swiftest~~CallsGraph proc~io_dump_swiftest io_dump_swiftest interface~util_exit util_exit proc~io_dump_swiftest->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_dump_swiftest~~CalledByGraph proc~io_dump_swiftest io_dump_swiftest interface~io_dump_swiftest io_dump_swiftest interface~io_dump_swiftest->proc~io_dump_swiftest Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_dump_swiftest.html"},{"title":"io_dump_system – swiftest","text":"module subroutine io_dump_system(self, param) Interface → Dumps the state of the system to files in case the simulation is interrupted.\n As a safety mechanism, there are two dump files that are written in alternating order\n so that if a dump file gets corrupted during writing, the user can restart from the older one. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters Calls proc~~io_dump_system~~CallsGraph proc~io_dump_system io_dump_system dump_tp_file dump_tp_file proc~io_dump_system->dump_tp_file dump_pl_file dump_pl_file proc~io_dump_system->dump_pl_file dump_param_file dump_param_file proc~io_dump_system->dump_param_file dump_cb_file dump_cb_file proc~io_dump_system->dump_cb_file Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_dump_system~~CalledByGraph proc~io_dump_system io_dump_system interface~io_dump_system io_dump_system interface~io_dump_system->proc~io_dump_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_dump_system.html"},{"title":"io_param_reader – swiftest","text":"module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg) Interface → Read in parameters for the integration\n Currently this procedure does not work in user-defined derived-type input mode \n    e.g. read(unit,'(DT)') param \n as the newline characters are ignored in the input file when compiled in ifort. Adapted from David E. Kaufmann's Swifter routine io_init_param.f90\n Adapted from Martin Duncan's Swift routine io_init_param.f\n Do basic sanity checks on the input values Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Collection of parameters integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) The first element passes the integrator code to the reader integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 Calls proc~~io_param_reader~~CallsGraph proc~io_param_reader io_param_reader interface~io_toupper io_toupper proc~io_param_reader->interface~io_toupper interface~io_get_token io_get_token proc~io_param_reader->interface~io_get_token proc~io_toupper io_toupper interface~io_toupper->proc~io_toupper proc~io_get_token io_get_token interface~io_get_token->proc~io_get_token Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_param_reader~~CalledByGraph proc~io_param_reader io_param_reader interface~io_param_reader io_param_reader interface~io_param_reader->proc~io_param_reader Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_param_reader.html"},{"title":"io_param_writer – swiftest","text":"module subroutine io_param_writer(self, unit, iotype, v_list, iostat, iomsg) Interface → Dump integration parameters to file Adapted from David E. Kaufmann's Swifter routine io_dump_param.f90\n Adapted from Martin Duncan's Swift routine io_dump_param.f Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Collection of parameters integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) Not used in this procedure integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 Called by proc~~io_param_writer~~CalledByGraph proc~io_param_writer io_param_writer interface~io_param_writer io_param_writer interface~io_param_writer->proc~io_param_writer Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_param_writer.html"},{"title":"io_read_body_in – swiftest","text":"module subroutine io_read_body_in(self, param) Interface → Read in either test particle or massive body data Adapted from David E. Kaufmann's Swifter routine swiftest_init_pl.f90 and swiftest_init_tp.f90\n Adapted from Martin Duncan's Swift routine swiftest_init_pl.f and swiftest_init_tp.f Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters Calls proc~~io_read_body_in~~CallsGraph proc~io_read_body_in io_read_body_in interface~util_exit util_exit proc~io_read_body_in->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_read_body_in~~CalledByGraph proc~io_read_body_in io_read_body_in interface~io_read_body_in io_read_body_in interface~io_read_body_in->proc~io_read_body_in Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_read_body_in.html"},{"title":"io_read_cb_in – swiftest","text":"module subroutine io_read_cb_in(self, param) Interface → Reads in central body data Adapted from David E. Kaufmann's Swifter routine swiftest_init_pl.f90\n Adapted from Martin Duncan's Swift routine swiftest_init_pl.f Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self class( swiftest_parameters ), intent(inout) :: param Calls proc~~io_read_cb_in~~CallsGraph proc~io_read_cb_in io_read_cb_in interface~util_exit util_exit proc~io_read_cb_in->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_read_cb_in~~CalledByGraph proc~io_read_cb_in io_read_cb_in interface~io_read_cb_in io_read_cb_in interface~io_read_cb_in->proc~io_read_cb_in Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_read_cb_in.html"},{"title":"io_read_frame_body – swiftest","text":"module subroutine io_read_frame_body(self, iu, param, form, ierr) Interface → Reads a frame of output of either test particle or massive body data from a binary output file Adapted from David E. Kaufmann's Swifter routine  io_read_frame.f90\n Adapted from Hal Levison's Swift routine io_read_frame.F Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code Calls proc~~io_read_frame_body~~CallsGraph proc~io_read_frame_body io_read_frame_body interface~util_exit util_exit proc~io_read_frame_body->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_read_frame_body~~CalledByGraph proc~io_read_frame_body io_read_frame_body interface~io_read_frame_body io_read_frame_body interface~io_read_frame_body->proc~io_read_frame_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_read_frame_body.html"},{"title":"io_read_frame_cb – swiftest","text":"module subroutine io_read_frame_cb(self, iu, param, form, ierr) Interface → Reads a frame of output of central body data to the binary output file Adapted from David E. Kaufmann's Swifter routine  io_read_frame.f90\n Adapted from Hal Levison's Swift routine io_read_frame.F Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error cod Calls proc~~io_read_frame_cb~~CallsGraph proc~io_read_frame_cb io_read_frame_cb interface~util_exit util_exit proc~io_read_frame_cb->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_read_frame_cb~~CalledByGraph proc~io_read_frame_cb io_read_frame_cb interface~io_read_frame_cb io_read_frame_cb interface~io_read_frame_cb->proc~io_read_frame_cb Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_read_frame_cb.html"},{"title":"io_read_frame_system – swiftest","text":"module subroutine io_read_frame_system(self, iu, param, form, ierr) Interface → Read a frame (header plus records for each massive body and active test particle) from a output binary file Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code Calls proc~~io_read_frame_system~~CallsGraph proc~io_read_frame_system io_read_frame_system proc~io_read_hdr io_read_hdr proc~io_read_frame_system->proc~io_read_hdr Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_read_frame_system~~CalledByGraph proc~io_read_frame_system io_read_frame_system interface~io_read_frame_system io_read_frame_system interface~io_read_frame_system->proc~io_read_frame_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_read_frame_system.html"},{"title":"io_read_param_in – swiftest","text":"module subroutine io_read_param_in(self, param_file_name) Interface → Read in parameters for the integration Adapted from David E. Kaufmann's Swifter routine io_init_param.f90\n Adapted from Martin Duncan's Swift routine io_init_param.f\n todo: Currently this procedure does not work in user-defined derived-type input mode \n    as the newline characters are ignored in the input file when compiled in ifort. Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Current run configuration parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) Calls proc~~io_read_param_in~~CallsGraph proc~io_read_param_in io_read_param_in interface~util_exit util_exit proc~io_read_param_in->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_read_param_in~~CalledByGraph proc~io_read_param_in io_read_param_in interface~io_read_param_in io_read_param_in interface~io_read_param_in->proc~io_read_param_in Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_read_param_in.html"},{"title":"io_toupper – swiftest","text":"module subroutine io_toupper(string) Interface → Convert string to uppercase Adapted from David E. Kaufmann's Swifter routine: util_toupper.f90 Arguments Type Intent Optional Attributes Name character(len=*), intent(inout) :: string String to make upper case Called by proc~~io_toupper~~CalledByGraph proc~io_toupper io_toupper interface~io_toupper io_toupper interface~io_toupper->proc~io_toupper proc~io_get_args io_get_args proc~io_get_args->interface~io_toupper proc~io_param_reader io_param_reader proc~io_param_reader->interface~io_toupper interface~io_param_reader io_param_reader interface~io_param_reader->proc~io_param_reader interface~io_get_args io_get_args interface~io_get_args->proc~io_get_args Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_toupper.html"},{"title":"io_write_discard – swiftest","text":"module subroutine io_write_discard(self, param) Interface → Write out information about discarded test particle Adapted from David E. Kaufmann's Swifter routine  io_discard_write.f90\n Adapted from Hal Levison's Swift routine io_discard_write.f Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~io_write_discard~~CallsGraph proc~io_write_discard io_write_discard interface~util_exit util_exit proc~io_write_discard->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_write_discard~~CalledByGraph proc~io_write_discard io_write_discard interface~io_write_discard io_write_discard interface~io_write_discard->proc~io_write_discard Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_write_discard.html"},{"title":"io_write_encounter – swiftest","text":"module subroutine io_write_encounter(t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type) Interface → Write close encounter data to output binary files\n  There is no direct file output from this subroutine Adapted from David E. Kaufmann's Swifter routine: io_write_encounter.f90\n Adapted from Hal Levison's Swift routine io_write_encounter.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: t integer(kind=I4B), intent(in) :: name1 integer(kind=I4B), intent(in) :: name2 real(kind=DP), intent(in) :: mass1 real(kind=DP), intent(in) :: mass2 real(kind=DP), intent(in) :: radius1 real(kind=DP), intent(in) :: radius2 real(kind=DP), intent(in), dimension(:) :: xh1 real(kind=DP), intent(in), dimension(:) :: xh2 real(kind=DP), intent(in), dimension(:) :: vh1 real(kind=DP), intent(in), dimension(:) :: vh2 character(len=*), intent(in) :: enc_out character(len=*), intent(in) :: out_type Calls proc~~io_write_encounter~~CallsGraph proc~io_write_encounter io_write_encounter interface~util_exit util_exit proc~io_write_encounter->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_write_encounter~~CalledByGraph proc~io_write_encounter io_write_encounter interface~io_write_encounter io_write_encounter interface~io_write_encounter->proc~io_write_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_write_encounter.html"},{"title":"io_write_frame_body – swiftest","text":"module subroutine io_write_frame_body(self, iu, param) Interface → Write a frame of output of either test particle or massive body data to the binary output file\n    Note: If outputting to orbital elements, but sure that the conversion is done prior to calling this method Adapted from David E. Kaufmann's Swifter routine  io_write_frame.f90\n Adapted from Hal Levison's Swift routine io_write_frame.F Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest particle object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Called by proc~~io_write_frame_body~~CalledByGraph proc~io_write_frame_body io_write_frame_body interface~io_write_frame_body io_write_frame_body interface~io_write_frame_body->proc~io_write_frame_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_write_frame_body.html"},{"title":"io_write_frame_cb – swiftest","text":"module subroutine io_write_frame_cb(self, iu, param) Interface → Write a frame of output of central body data to the binary output file Adapted from David E. Kaufmann's Swifter routine  io_write_frame.f90\n Adapted from Hal Levison's Swift routine io_write_frame.F Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Called by proc~~io_write_frame_cb~~CalledByGraph proc~io_write_frame_cb io_write_frame_cb interface~io_write_frame_cb io_write_frame_cb interface~io_write_frame_cb->proc~io_write_frame_cb Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_write_frame_cb.html"},{"title":"io_write_frame_system – swiftest","text":"module subroutine io_write_frame_system(self, iu, param) Interface → Write a frame (header plus records for each massive body and active test particle) to output binary file\n There is no direct file output from this subroutine Adapted from David E. Kaufmann's Swifter routine  io_write_frame.f90\n Adapted from Hal Levison's Swift routine io_write_frame.F Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~io_write_frame_system~~CallsGraph proc~io_write_frame_system io_write_frame_system proc~io_write_hdr io_write_hdr proc~io_write_frame_system->proc~io_write_hdr interface~util_exit util_exit proc~io_write_frame_system->interface~util_exit proc~io_write_hdr->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~io_write_frame_system~~CalledByGraph proc~io_write_frame_system io_write_frame_system interface~io_write_frame_system io_write_frame_system interface~io_write_frame_system->proc~io_write_frame_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/io_write_frame_system.html"},{"title":"setup_construct_system – swiftest","text":"module subroutine setup_construct_system(system, param) Interface → Constructor for a Swiftest nbody system. Creates the nbody system object based on the user-input integrator Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout), allocatable :: system Swiftest system object class( swiftest_parameters ), intent(in) :: param Swiftest parameters Calls proc~~setup_construct_system~~CallsGraph proc~setup_construct_system setup_construct_system interface~util_exit util_exit proc~setup_construct_system->interface~util_exit proc~util_exit util_exit interface~util_exit->proc~util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~setup_construct_system~~CalledByGraph proc~setup_construct_system setup_construct_system interface~setup_construct_system setup_construct_system interface~setup_construct_system->proc~setup_construct_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/setup_construct_system.html"},{"title":"setup_encounter – swiftest","text":"module subroutine setup_encounter(self, n) Interface → A constructor that sets the number of encounters and allocates and initializes all arrays Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for Called by proc~~setup_encounter~~CalledByGraph proc~setup_encounter setup_encounter interface~setup_encounter setup_encounter interface~setup_encounter->proc~setup_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/setup_encounter.html"},{"title":"setup_initialize_system – swiftest","text":"module subroutine setup_initialize_system(self, param) Interface → Wrapper method to initialize a basic Swiftest nbody system from files Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters Called by proc~~setup_initialize_system~~CalledByGraph proc~setup_initialize_system setup_initialize_system interface~setup_initialize_system setup_initialize_system interface~setup_initialize_system->proc~setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/setup_initialize_system.html"},{"title":"setup_body – swiftest","text":"module subroutine setup_body(self, n, param) Interface → Constructor for base Swiftest particle class. Allocates space for all particles and\n initializes all components with a value.\n Note: Timing tests indicate that (NDIM, n) is more efficient than (NDIM, n) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter Called by proc~~setup_body~~CalledByGraph proc~setup_body setup_body interface~setup_body setup_body interface~setup_body->proc~setup_body proc~setup_tp setup_tp proc~setup_tp->interface~setup_body proc~setup_pl setup_pl proc~setup_pl->interface~setup_body interface~setup_tp setup_tp interface~setup_tp->proc~setup_tp interface~setup_pl setup_pl interface~setup_pl->proc~setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/setup_body.html"},{"title":"setup_pl – swiftest","text":"module subroutine setup_pl(self, n, param) Interface → Constructor for base Swiftest massive body class. Allocates space for all particles and\n initializes all components with a value. \n Call allocation method for parent class\n The parent class here is the abstract swiftest_body class, so we can't use the type-bound procedure Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter Calls proc~~setup_pl~~CallsGraph proc~setup_pl setup_pl interface~setup_body setup_body proc~setup_pl->interface~setup_body proc~setup_body setup_body interface~setup_body->proc~setup_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~setup_pl~~CalledByGraph proc~setup_pl setup_pl interface~setup_pl setup_pl interface~setup_pl->proc~setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/setup_pl.html"},{"title":"setup_tp – swiftest","text":"module subroutine setup_tp(self, n, param) Interface → Constructor for base Swiftest test particle particle class. Allocates space for \n all particles and initializes all components with a value. \n Call allocation method for parent class\n The parent class here is the abstract swiftest_body class, so we can't use the type-bound procedure Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter Calls proc~~setup_tp~~CallsGraph proc~setup_tp setup_tp interface~setup_body setup_body proc~setup_tp->interface~setup_body proc~setup_body setup_body interface~setup_body->proc~setup_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~setup_tp~~CalledByGraph proc~setup_tp setup_tp interface~setup_tp setup_tp interface~setup_tp->proc~setup_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/setup_tp.html"},{"title":"eucl_dist_index_plpl – swiftest","text":"module subroutine eucl_dist_index_plpl(self) Interface → Turns i,j indices into k index for use in the Euclidean distance matrix Reference: Mélodie Angeletti, Jean-Marie Bonny, Jonas Koko. Parallel Euclidean distance matrix computation on big datasets *. 2019. hal-0204751 Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body objec Called by proc~~eucl_dist_index_plpl~~CalledByGraph proc~eucl_dist_index_plpl eucl_dist_index_plpl interface~eucl_dist_index_plpl eucl_dist_index_plpl interface~eucl_dist_index_plpl->proc~eucl_dist_index_plpl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/eucl_dist_index_plpl.html"},{"title":"user_kick_getacch_body – swiftest","text":"module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Interface → Add user-supplied heliocentric accelerations to planets. Adapted from David E. Kaufmann's Swifter routine whm_user_kick_getacch.f90 Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters user parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the ste Called by proc~~user_kick_getacch_body~~CalledByGraph proc~user_kick_getacch_body user_kick_getacch_body interface~user_kick_getacch_body user_kick_getacch_body interface~user_kick_getacch_body->proc~user_kick_getacch_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/user_kick_getacch_body.html"},{"title":"drift_body – swiftest","text":"module subroutine drift_body(self, system, param, dt) Interface → Loop bodies and call Danby drift routine on the heliocentric position and velocities. Adapted from Hal Levison's Swift routine drift_tp.f \n Adapted from David E. Kaufmann's Swifter routine whm_drift_tp.f90 Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize Calls proc~~drift_body~~CallsGraph proc~drift_body drift_body interface~drift_all drift_all proc~drift_body->interface~drift_all proc~drift_all drift_all interface~drift_all->proc~drift_all Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~drift_body~~CalledByGraph proc~drift_body drift_body interface~drift_body drift_body interface~drift_body->proc~drift_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_body.html"},{"title":"drift_all – swiftest","text":"pure module subroutine drift_all(mu, x, v, n, param, dt, mask, iflag) Interface → Loop bodies and call Danby drift routine on all bodies for the given position and velocity vector. Adapted from Hal Levison's Swift routine drift_tp.f \n Adapted from David E. Kaufmann's Swifter routine whm_drift_tp.f9 Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu Vector of gravitational constants real(kind=DP), intent(inout), dimension(:,:) :: x Position and velocity vectors real(kind=DP), intent(inout), dimension(:,:) :: v Position and velocity vectors integer(kind=I4B), intent(in) :: n number of bodies class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize logical, intent(in), dimension(:) :: mask Logical mask of size self%nbody that determines which bodies to drift. integer(kind=I4B), intent(out), dimension(:) :: iflag Vector of error flags. 0 means no problem Called by proc~~drift_all~~CalledByGraph proc~drift_all drift_all interface~drift_all drift_all interface~drift_all->proc~drift_all proc~drift_body drift_body proc~drift_body->interface~drift_all interface~drift_body drift_body interface~drift_body->proc~drift_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_all.html"},{"title":"drift_one – swiftest","text":"pure elemental module subroutine drift_one(mu, px, py, pz, vx, vy, vz, dt, iflag) Interface → Perform Danby drift for one body, redoing drift with smaller substeps if original accuracy is insufficient Adapted from David E. Kaufmann's Swifter routine routine drift_one.f90\n Adapted from Hal Levison and Martin Duncan's Swift routine drift_one.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body to drift real(kind=DP), intent(inout) :: px Position and velocity of body to drift real(kind=DP), intent(inout) :: py Position and velocity of body to drift real(kind=DP), intent(inout) :: pz Position and velocity of body to drift real(kind=DP), intent(inout) :: vx Position and velocity of body to drift real(kind=DP), intent(inout) :: vy Position and velocity of body to drift real(kind=DP), intent(inout) :: vz Position and velocity of body to drift real(kind=DP), intent(in) :: dt Step size integer(kind=I4B), intent(out) :: iflag iflag : error status flag for Danby drift (0 = OK, nonzero = ERROR) Called by proc~~drift_one~~CalledByGraph proc~drift_one drift_one interface~drift_one drift_one interface~drift_one->proc~drift_one Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/drift_one.html"},{"title":"symba_util_append_arr_info – swiftest","text":"subroutine symba_util_append_arr_info(arr, source, nold, nsrc, lsource_mask) Append a single array of particle information type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: arr Destination array type( symba_particle_info ), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~symba_util_append_arr_info~~CallsGraph proc~symba_util_append_arr_info symba_util_append_arr_info interface~util_resize util_resize proc~symba_util_append_arr_info->interface~util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_append_arr_info.html"},{"title":"symba_util_append_arr_kin – swiftest","text":"subroutine symba_util_append_arr_kin(arr, source, nold, nsrc, lsource_mask) Append a single array of kinship type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Destination array type( symba_kinship ), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~symba_util_append_arr_kin~~CallsGraph proc~symba_util_append_arr_kin symba_util_append_arr_kin interface~util_resize util_resize proc~symba_util_append_arr_kin->interface~util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_append_arr_kin.html"},{"title":"symba_util_append_pl – swiftest","text":"module subroutine symba_util_append_pl(self, source, lsource_mask) Interface → Append components from one massive body object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~symba_util_append_pl~~CallsGraph proc~symba_util_append_pl symba_util_append_pl util_exit util_exit proc~symba_util_append_pl->util_exit util_append_pl util_append_pl proc~symba_util_append_pl->util_append_pl interface~util_append util_append proc~symba_util_append_pl->interface~util_append Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_append_pl~~CalledByGraph proc~symba_util_append_pl symba_util_append_pl interface~symba_util_append_pl symba_util_append_pl interface~symba_util_append_pl->proc~symba_util_append_pl proc~symba_util_append_merger symba_util_append_merger proc~symba_util_append_merger->interface~symba_util_append_pl interface~symba_util_append_merger symba_util_append_merger interface~symba_util_append_merger->proc~symba_util_append_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_append_pl.html"},{"title":"symba_util_append_merger – swiftest","text":"module subroutine symba_util_append_merger(self, source, lsource_mask) Interface → Append components from one massive body object to another. \n This method will automatically resize the destination body if it is too small Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~symba_util_append_merger~~CallsGraph proc~symba_util_append_merger symba_util_append_merger util_exit util_exit proc~symba_util_append_merger->util_exit interface~symba_util_append_pl symba_util_append_pl proc~symba_util_append_merger->interface~symba_util_append_pl interface~util_append util_append proc~symba_util_append_merger->interface~util_append proc~symba_util_append_pl symba_util_append_pl interface~symba_util_append_pl->proc~symba_util_append_pl proc~symba_util_append_pl->util_exit proc~symba_util_append_pl->interface~util_append util_append_pl util_append_pl proc~symba_util_append_pl->util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_append_merger~~CalledByGraph proc~symba_util_append_merger symba_util_append_merger interface~symba_util_append_merger symba_util_append_merger interface~symba_util_append_merger->proc~symba_util_append_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_append_merger.html"},{"title":"symba_util_append_tp – swiftest","text":"module subroutine symba_util_append_tp(self, source, lsource_mask) Interface → Append components from test particle object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~symba_util_append_tp~~CallsGraph proc~symba_util_append_tp symba_util_append_tp util_exit util_exit proc~symba_util_append_tp->util_exit interface~util_append util_append proc~symba_util_append_tp->interface~util_append util_append_tp util_append_tp proc~symba_util_append_tp->util_append_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_append_tp~~CalledByGraph proc~symba_util_append_tp symba_util_append_tp interface~symba_util_append_tp symba_util_append_tp interface~symba_util_append_tp->proc~symba_util_append_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_append_tp.html"},{"title":"symba_util_fill_arr_info – swiftest","text":"subroutine symba_util_fill_arr_info(keeps, inserts, lfill_list) Performs a fill operation on a single array of particle origin information types\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_particle_info ), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Contents None","tags":"","loc":"proc/symba_util_fill_arr_info.html"},{"title":"symba_util_fill_arr_kin – swiftest","text":"subroutine symba_util_fill_arr_kin(keeps, inserts, lfill_list) Performs a fill operation on a single array of particle kinship types\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_kinship ), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Contents None","tags":"","loc":"proc/symba_util_fill_arr_kin.html"},{"title":"symba_util_fill_pl – swiftest","text":"module subroutine symba_util_fill_pl(self, inserts, lfill_list) Interface → Insert new SyMBA test particle structure into an old one. \n This is the inverse of a fill operation. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA masive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Calls proc~~symba_util_fill_pl~~CallsGraph proc~symba_util_fill_pl symba_util_fill_pl util_fill_pl util_fill_pl proc~symba_util_fill_pl->util_fill_pl util_exit util_exit proc~symba_util_fill_pl->util_exit interface~util_fill util_fill proc~symba_util_fill_pl->interface~util_fill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_fill_pl~~CalledByGraph proc~symba_util_fill_pl symba_util_fill_pl interface~symba_util_fill_pl symba_util_fill_pl interface~symba_util_fill_pl->proc~symba_util_fill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_fill_pl.html"},{"title":"symba_util_fill_tp – swiftest","text":"module subroutine symba_util_fill_tp(self, inserts, lfill_list) Interface → Insert new SyMBA test particle structure into an old one. \n This is the inverse of a fill operation. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Calls proc~~symba_util_fill_tp~~CallsGraph proc~symba_util_fill_tp symba_util_fill_tp util_fill_tp util_fill_tp proc~symba_util_fill_tp->util_fill_tp util_exit util_exit proc~symba_util_fill_tp->util_exit interface~util_fill util_fill proc~symba_util_fill_tp->interface~util_fill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_fill_tp~~CalledByGraph proc~symba_util_fill_tp symba_util_fill_tp interface~symba_util_fill_tp symba_util_fill_tp interface~symba_util_fill_tp->proc~symba_util_fill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_fill_tp.html"},{"title":"symba_util_peri_pl – swiftest","text":"module subroutine symba_util_peri_pl(self, system, param) Interface → Determine system pericenter passages for planets in SyMBA Adapted from David E. Kaufmann's Swifter routine: symba_peri.f90\n Adapted from Hal Levison's Swift routine util_mass_peri.f Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~symba_util_peri_pl~~CallsGraph proc~symba_util_peri_pl symba_util_peri_pl orbel_xv2aeq orbel_xv2aeq proc~symba_util_peri_pl->orbel_xv2aeq Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_peri_pl~~CalledByGraph proc~symba_util_peri_pl symba_util_peri_pl interface~symba_util_peri_pl symba_util_peri_pl interface~symba_util_peri_pl->proc~symba_util_peri_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_peri_pl.html"},{"title":"symba_util_rearray_pl – swiftest","text":"module subroutine symba_util_rearray_pl(self, system, param) Interface → Clean up the massive body structures to remove discarded bodies and add new bodies Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class( symba_nbody_system ), intent(inout) :: system Swiftest nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~symba_util_rearray_pl~~CallsGraph proc~symba_util_rearray_pl symba_util_rearray_pl interface~symba_io_dump_particle_info symba_io_dump_particle_info proc~symba_util_rearray_pl->interface~symba_io_dump_particle_info proc~symba_io_dump_particle_info symba_io_dump_particle_info interface~symba_io_dump_particle_info->proc~symba_io_dump_particle_info util_exit util_exit proc~symba_io_dump_particle_info->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_rearray_pl~~CalledByGraph proc~symba_util_rearray_pl symba_util_rearray_pl interface~symba_util_rearray_pl symba_util_rearray_pl interface~symba_util_rearray_pl->proc~symba_util_rearray_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_rearray_pl.html"},{"title":"symba_util_resize_arr_info – swiftest","text":"subroutine symba_util_resize_arr_info(arr, nnew) Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size Contents None","tags":"","loc":"proc/symba_util_resize_arr_info.html"},{"title":"symba_util_resize_arr_kin – swiftest","text":"subroutine symba_util_resize_arr_kin(arr, nnew) Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size Contents None","tags":"","loc":"proc/symba_util_resize_arr_kin.html"},{"title":"symba_util_resize_merger – swiftest","text":"module subroutine symba_util_resize_merger(self, nnew) Interface → Checks the current size of a SyMBA merger list against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~symba_util_resize_merger~~CallsGraph proc~symba_util_resize_merger symba_util_resize_merger interface~util_resize util_resize proc~symba_util_resize_merger->interface~util_resize interface~symba_util_resize_pl symba_util_resize_pl proc~symba_util_resize_merger->interface~symba_util_resize_pl proc~symba_util_resize_pl symba_util_resize_pl interface~symba_util_resize_pl->proc~symba_util_resize_pl proc~symba_util_resize_pl->interface~util_resize util_resize_pl util_resize_pl proc~symba_util_resize_pl->util_resize_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_resize_merger~~CalledByGraph proc~symba_util_resize_merger symba_util_resize_merger interface~symba_util_resize_merger symba_util_resize_merger interface~symba_util_resize_merger->proc~symba_util_resize_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_resize_merger.html"},{"title":"symba_util_resize_pl – swiftest","text":"module subroutine symba_util_resize_pl(self, nnew) Interface → Checks the current size of a SyMBA massive body object against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~symba_util_resize_pl~~CallsGraph proc~symba_util_resize_pl symba_util_resize_pl interface~util_resize util_resize proc~symba_util_resize_pl->interface~util_resize util_resize_pl util_resize_pl proc~symba_util_resize_pl->util_resize_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_resize_pl~~CalledByGraph proc~symba_util_resize_pl symba_util_resize_pl interface~symba_util_resize_pl symba_util_resize_pl interface~symba_util_resize_pl->proc~symba_util_resize_pl proc~symba_util_resize_merger symba_util_resize_merger proc~symba_util_resize_merger->interface~symba_util_resize_pl interface~symba_util_resize_merger symba_util_resize_merger interface~symba_util_resize_merger->proc~symba_util_resize_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_resize_pl.html"},{"title":"symba_util_resize_tp – swiftest","text":"module subroutine symba_util_resize_tp(self, nnew) Interface → Checks the current size of a test particle object against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~symba_util_resize_tp~~CallsGraph proc~symba_util_resize_tp symba_util_resize_tp interface~util_resize util_resize proc~symba_util_resize_tp->interface~util_resize util_resize_tp util_resize_tp proc~symba_util_resize_tp->util_resize_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_resize_tp~~CalledByGraph proc~symba_util_resize_tp symba_util_resize_tp interface~symba_util_resize_tp symba_util_resize_tp interface~symba_util_resize_tp->proc~symba_util_resize_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_resize_tp.html"},{"title":"symba_util_sort_pl – swiftest","text":"module subroutine symba_util_sort_pl(self, sortby, ascending) Interface → Sort a SyMBA massive body object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order Calls proc~~symba_util_sort_pl~~CallsGraph proc~symba_util_sort_pl symba_util_sort_pl util_sort_pl util_sort_pl proc~symba_util_sort_pl->util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_sort_pl~~CalledByGraph proc~symba_util_sort_pl symba_util_sort_pl interface~symba_util_sort_pl symba_util_sort_pl interface~symba_util_sort_pl->proc~symba_util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_sort_pl.html"},{"title":"symba_util_sort_tp – swiftest","text":"module subroutine symba_util_sort_tp(self, sortby, ascending) Interface → Sort a SyMBA test particle object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order Calls proc~~symba_util_sort_tp~~CallsGraph proc~symba_util_sort_tp symba_util_sort_tp util_sort_tp util_sort_tp proc~symba_util_sort_tp->util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_sort_tp~~CalledByGraph proc~symba_util_sort_tp symba_util_sort_tp interface~symba_util_sort_tp symba_util_sort_tp interface~symba_util_sort_tp->proc~symba_util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_sort_tp.html"},{"title":"symba_util_sort_rearrange_pl – swiftest","text":"module subroutine symba_util_sort_rearrange_pl(self, ind) Interface → Rearrange SyMBA massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Calls proc~~symba_util_sort_rearrange_pl~~CallsGraph proc~symba_util_sort_rearrange_pl symba_util_sort_rearrange_pl util_sort_rearrange_pl util_sort_rearrange_pl proc~symba_util_sort_rearrange_pl->util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_sort_rearrange_pl~~CalledByGraph proc~symba_util_sort_rearrange_pl symba_util_sort_rearrange_pl interface~symba_util_sort_rearrange_pl symba_util_sort_rearrange_pl interface~symba_util_sort_rearrange_pl->proc~symba_util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_sort_rearrange_pl.html"},{"title":"symba_util_sort_rearrange_tp – swiftest","text":"module subroutine symba_util_sort_rearrange_tp(self, ind) Interface → Rearrange SyMBA test particle object in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Calls proc~~symba_util_sort_rearrange_tp~~CallsGraph proc~symba_util_sort_rearrange_tp symba_util_sort_rearrange_tp util_sort_rearrange_tp util_sort_rearrange_tp proc~symba_util_sort_rearrange_tp->util_sort_rearrange_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_sort_rearrange_tp~~CalledByGraph proc~symba_util_sort_rearrange_tp symba_util_sort_rearrange_tp interface~symba_util_sort_rearrange_tp symba_util_sort_rearrange_tp interface~symba_util_sort_rearrange_tp->proc~symba_util_sort_rearrange_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_sort_rearrange_tp.html"},{"title":"symba_util_spill_arr_info – swiftest","text":"subroutine symba_util_spill_arr_info(keeps, discards, lspill_list, ldestructive) Performs a spill operation on a single array of particle origin information types\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_particle_info ), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Contents None","tags":"","loc":"proc/symba_util_spill_arr_info.html"},{"title":"symba_util_spill_arr_kin – swiftest","text":"subroutine symba_util_spill_arr_kin(keeps, discards, lspill_list, ldestructive) Performs a spill operation on a single array of particle kinships\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_kinship ), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Contents None","tags":"","loc":"proc/symba_util_spill_arr_kin.html"},{"title":"symba_util_spill_pl – swiftest","text":"module subroutine symba_util_spill_pl(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) SyMBA massive body particle structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill all the common components Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list Calls proc~~symba_util_spill_pl~~CallsGraph proc~symba_util_spill_pl symba_util_spill_pl util_exit util_exit proc~symba_util_spill_pl->util_exit util_spill_pl util_spill_pl proc~symba_util_spill_pl->util_spill_pl interface~util_spill util_spill proc~symba_util_spill_pl->interface~util_spill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_spill_pl~~CalledByGraph proc~symba_util_spill_pl symba_util_spill_pl interface~symba_util_spill_pl symba_util_spill_pl interface~symba_util_spill_pl->proc~symba_util_spill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_spill_pl.html"},{"title":"symba_util_spill_pltpenc – swiftest","text":"module subroutine symba_util_spill_pltpenc(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) SyMBA encounter structure from active list to discard list\n Note: Because the symba_plplenc currently does not contain any additional variable components, this method can recieve it as an input as well. Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list Calls proc~~symba_util_spill_pltpenc~~CallsGraph proc~symba_util_spill_pltpenc symba_util_spill_pltpenc util_spill_encounter util_spill_encounter proc~symba_util_spill_pltpenc->util_spill_encounter util_exit util_exit proc~symba_util_spill_pltpenc->util_exit interface~util_spill util_spill proc~symba_util_spill_pltpenc->interface~util_spill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_spill_pltpenc~~CalledByGraph proc~symba_util_spill_pltpenc symba_util_spill_pltpenc interface~symba_util_spill_pltpenc symba_util_spill_pltpenc interface~symba_util_spill_pltpenc->proc~symba_util_spill_pltpenc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_spill_pltpenc.html"},{"title":"symba_util_spill_tp – swiftest","text":"module subroutine symba_util_spill_tp(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) SyMBA test particle structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill all the common components Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list Calls proc~~symba_util_spill_tp~~CallsGraph proc~symba_util_spill_tp symba_util_spill_tp util_spill_tp util_spill_tp proc~symba_util_spill_tp->util_spill_tp util_exit util_exit proc~symba_util_spill_tp->util_exit interface~util_spill util_spill proc~symba_util_spill_tp->interface~util_spill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_util_spill_tp~~CalledByGraph proc~symba_util_spill_tp symba_util_spill_tp interface~symba_util_spill_tp symba_util_spill_tp interface~symba_util_spill_tp->proc~symba_util_spill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_util_spill_tp.html"},{"title":"symba_collision_check_pltpenc – swiftest","text":"module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec) Interface → Check for merger between massive bodies and test particles in SyMBA Adapted from David E. Kaufmann's Swifter routine symba_merge.f90 and symba_merge_tp.f90 Adapted from Hal Levison's Swift routine symba5_merge.f Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t current time real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Calls proc~~symba_collision_check_pltpenc~~CallsGraph proc~symba_collision_check_pltpenc symba_collision_check_pltpenc ind2 ind2 proc~symba_collision_check_pltpenc->ind2 ind1 ind1 proc~symba_collision_check_pltpenc->ind1 proc~symba_collision_check_one symba_collision_check_one proc~symba_collision_check_pltpenc->proc~symba_collision_check_one orbel_xv2aeq orbel_xv2aeq proc~symba_collision_check_one->orbel_xv2aeq Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_collision_check_pltpenc~~CalledByGraph proc~symba_collision_check_pltpenc symba_collision_check_pltpenc interface~symba_collision_check_pltpenc symba_collision_check_pltpenc interface~symba_collision_check_pltpenc->proc~symba_collision_check_pltpenc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_collision_check_pltpenc.html"},{"title":"symba_collision_encounter_scrub – swiftest","text":"module subroutine symba_collision_encounter_scrub(self, system, param) Interface → Processes the pl-pl encounter list remove only those encounters that led to a collision Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~symba_collision_encounter_scrub~~CallsGraph proc~symba_collision_encounter_scrub symba_collision_encounter_scrub idx2 idx2 proc~symba_collision_encounter_scrub->idx2 idx1 idx1 proc~symba_collision_encounter_scrub->idx1 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_collision_encounter_scrub~~CalledByGraph proc~symba_collision_encounter_scrub symba_collision_encounter_scrub interface~symba_collision_encounter_scrub symba_collision_encounter_scrub interface~symba_collision_encounter_scrub->proc~symba_collision_encounter_scrub Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_collision_encounter_scrub.html"},{"title":"symba_collision_make_family_pl – swiftest","text":"module subroutine symba_collision_make_family_pl(self, idx) Interface → When a single body is involved in more than one collision in a single step, it becomes part of a family.\n The largest body involved in a multi-body collision is the \"parent\" and all bodies that collide with it are its \"children,\"\n including those that collide with the children. Adapted from David E. Kaufmann's Swifter routine symba_merge_pl.f90 Adapted from Hal Levison's Swift routine symba5_merge.f Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(2) :: idx Array holding the indices of the two bodies involved in the collision Called by proc~~symba_collision_make_family_pl~~CalledByGraph proc~symba_collision_make_family_pl symba_collision_make_family_pl interface~symba_collision_make_family_pl symba_collision_make_family_pl interface~symba_collision_make_family_pl->proc~symba_collision_make_family_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_collision_make_family_pl.html"},{"title":"symba_collision_resolve_fragmentations – swiftest","text":"module subroutine symba_collision_resolve_fragmentations(self, system, param) Interface → Process list of collisions, determine the collisional regime, and then create fragments. The collective mass of the parent and its children\n The collective radius of the parent and its children\n The position of the parent from inside the step (at collision)\n The velocity of the parent from inside the step (at collision)\n The position of the parent from inside the step (at collision)\n The velocity of the parent from inside the step (at collision)\n The collective density of the parent and its children\n Use the positions and velocities of the parents from indside the step (at collision) to calculate the collisional regime Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions Calls proc~~symba_collision_resolve_fragmentations~~CallsGraph proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations idx2 idx2 proc~symba_collision_resolve_fragmentations->idx2 interface~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casesupercatastrophic proc~symba_collision_consolidate_familes symba_collision_consolidate_familes proc~symba_collision_resolve_fragmentations->proc~symba_collision_consolidate_familes interface~symba_fragmentation_casemerge symba_fragmentation_casemerge proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casemerge idx1 idx1 proc~symba_collision_resolve_fragmentations->idx1 interface~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casehitandrun util_exit util_exit proc~symba_collision_resolve_fragmentations->util_exit interface~symba_fragmentation_casedisruption symba_fragmentation_casedisruption proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casedisruption proc~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic interface~symba_fragmentation_casesupercatastrophic->proc~symba_fragmentation_casesupercatastrophic id_arr id_arr proc~symba_collision_consolidate_familes->id_arr idx_arr idx_arr proc~symba_collision_consolidate_familes->idx_arr proc~symba_fragmentation_casemerge symba_fragmentation_casemerge interface~symba_fragmentation_casemerge->proc~symba_fragmentation_casemerge proc~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun interface~symba_fragmentation_casehitandrun->proc~symba_fragmentation_casehitandrun proc~symba_fragmentation_casedisruption symba_fragmentation_casedisruption interface~symba_fragmentation_casedisruption->proc~symba_fragmentation_casedisruption proc~symba_fragmentation_mergeaddsub symba_fragmentation_mergeaddsub proc~symba_fragmentation_casemerge->proc~symba_fragmentation_mergeaddsub fragmentation_initialize fragmentation_initialize proc~symba_fragmentation_casehitandrun->fragmentation_initialize proc~symba_fragmentation_casehitandrun->proc~symba_fragmentation_mergeaddsub proc~symba_fragmentation_casedisruption->fragmentation_initialize proc~symba_fragmentation_casedisruption->proc~symba_fragmentation_mergeaddsub proc~symba_fragmentation_casesupercatastrophic->fragmentation_initialize proc~symba_fragmentation_casesupercatastrophic->proc~symba_fragmentation_mergeaddsub Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_collision_resolve_fragmentations~~CalledByGraph proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_collision_resolve_fragmentations.html"},{"title":"symba_collision_resolve_mergers – swiftest","text":"module subroutine symba_collision_resolve_mergers(self, system, param) Interface → Process list of collisions and merge colliding bodies together. Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions Calls proc~~symba_collision_resolve_mergers~~CallsGraph proc~symba_collision_resolve_mergers symba_collision_resolve_mergers idx1 idx1 proc~symba_collision_resolve_mergers->idx1 idx2 idx2 proc~symba_collision_resolve_mergers->idx2 proc~symba_collision_consolidate_familes symba_collision_consolidate_familes proc~symba_collision_resolve_mergers->proc~symba_collision_consolidate_familes interface~symba_fragmentation_casemerge symba_fragmentation_casemerge proc~symba_collision_resolve_mergers->interface~symba_fragmentation_casemerge idx_arr idx_arr proc~symba_collision_consolidate_familes->idx_arr id_arr id_arr proc~symba_collision_consolidate_familes->id_arr proc~symba_fragmentation_casemerge symba_fragmentation_casemerge interface~symba_fragmentation_casemerge->proc~symba_fragmentation_casemerge proc~symba_fragmentation_mergeaddsub symba_fragmentation_mergeaddsub proc~symba_fragmentation_casemerge->proc~symba_fragmentation_mergeaddsub Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_collision_resolve_mergers~~CalledByGraph proc~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers->proc~symba_collision_resolve_mergers Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_collision_resolve_mergers.html"},{"title":"symba_setup_initialize_particle_info – swiftest","text":"module subroutine symba_setup_initialize_particle_info(system, param) Interface → Initializes a new particle information data structure with initial conditions recorded Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(inout) :: param Current run configuration parameters with SyMBA extensions Calls proc~~symba_setup_initialize_particle_info~~CallsGraph proc~symba_setup_initialize_particle_info symba_setup_initialize_particle_info interface~symba_io_dump_particle_info symba_io_dump_particle_info proc~symba_setup_initialize_particle_info->interface~symba_io_dump_particle_info proc~symba_io_dump_particle_info symba_io_dump_particle_info interface~symba_io_dump_particle_info->proc~symba_io_dump_particle_info util_exit util_exit proc~symba_io_dump_particle_info->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_setup_initialize_particle_info~~CalledByGraph proc~symba_setup_initialize_particle_info symba_setup_initialize_particle_info interface~symba_setup_initialize_particle_info symba_setup_initialize_particle_info interface~symba_setup_initialize_particle_info->proc~symba_setup_initialize_particle_info proc~symba_setup_initialize_system symba_setup_initialize_system proc~symba_setup_initialize_system->interface~symba_setup_initialize_particle_info interface~symba_setup_initialize_system symba_setup_initialize_system interface~symba_setup_initialize_system->proc~symba_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_setup_initialize_particle_info.html"},{"title":"symba_setup_initialize_system – swiftest","text":"module subroutine symba_setup_initialize_system(self, param) Interface → Initialize an SyMBA nbody system from files and sets up the planetocentric structures.\n This subroutine will also sort the massive bodies in descending order by mass Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters Calls proc~~symba_setup_initialize_system~~CallsGraph proc~symba_setup_initialize_system symba_setup_initialize_system whm_setup_initialize_system whm_setup_initialize_system proc~symba_setup_initialize_system->whm_setup_initialize_system interface~symba_io_read_particle symba_io_read_particle proc~symba_setup_initialize_system->interface~symba_io_read_particle interface~symba_setup_initialize_particle_info symba_setup_initialize_particle_info proc~symba_setup_initialize_system->interface~symba_setup_initialize_particle_info proc~symba_io_read_particle symba_io_read_particle interface~symba_io_read_particle->proc~symba_io_read_particle proc~symba_setup_initialize_particle_info symba_setup_initialize_particle_info interface~symba_setup_initialize_particle_info->proc~symba_setup_initialize_particle_info interface~symba_io_dump_particle_info symba_io_dump_particle_info proc~symba_setup_initialize_particle_info->interface~symba_io_dump_particle_info util_exit util_exit proc~symba_io_read_particle->util_exit proc~symba_io_dump_particle_info symba_io_dump_particle_info interface~symba_io_dump_particle_info->proc~symba_io_dump_particle_info proc~symba_io_dump_particle_info->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_setup_initialize_system~~CalledByGraph proc~symba_setup_initialize_system symba_setup_initialize_system interface~symba_setup_initialize_system symba_setup_initialize_system interface~symba_setup_initialize_system->proc~symba_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_setup_initialize_system.html"},{"title":"symba_setup_merger – swiftest","text":"module subroutine symba_setup_merger(self, n, param) Interface → Allocate SyMBA test particle structure Equivalent in functionality to David E. Kaufmann's Swifter routine symba_setup.f90\n Call allocation method for parent class. In this case, helio_pl does not have its own setup method so we use the base method for swiftest_pl Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA merger list object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter Calls proc~~symba_setup_merger~~CallsGraph proc~symba_setup_merger symba_setup_merger interface~symba_setup_pl symba_setup_pl proc~symba_setup_merger->interface~symba_setup_pl proc~symba_setup_pl symba_setup_pl interface~symba_setup_pl->proc~symba_setup_pl setup_pl setup_pl proc~symba_setup_pl->setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_setup_merger~~CalledByGraph proc~symba_setup_merger symba_setup_merger interface~symba_setup_merger symba_setup_merger interface~symba_setup_merger->proc~symba_setup_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_setup_merger.html"},{"title":"symba_setup_pl – swiftest","text":"module subroutine symba_setup_pl(self, n, param) Interface → Allocate SyMBA test particle structure Equivalent in functionality to David E. Kaufmann's Swifter routine symba_setup.f90\n Call allocation method for parent class. In this case, helio_pl does not have its own setup method so we use the base method for swiftest_pl Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter Calls proc~~symba_setup_pl~~CallsGraph proc~symba_setup_pl symba_setup_pl setup_pl setup_pl proc~symba_setup_pl->setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_setup_pl~~CalledByGraph proc~symba_setup_pl symba_setup_pl interface~symba_setup_pl symba_setup_pl interface~symba_setup_pl->proc~symba_setup_pl proc~symba_setup_merger symba_setup_merger proc~symba_setup_merger->interface~symba_setup_pl interface~symba_setup_merger symba_setup_merger interface~symba_setup_merger->proc~symba_setup_merger Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_setup_pl.html"},{"title":"symba_setup_pltpenc – swiftest","text":"module subroutine symba_setup_pltpenc(self, n) Interface → A constructor that sets the number of encounters and allocates and initializes all arrays Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for Calls proc~~symba_setup_pltpenc~~CallsGraph proc~symba_setup_pltpenc symba_setup_pltpenc setup_encounter setup_encounter proc~symba_setup_pltpenc->setup_encounter Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_setup_pltpenc~~CalledByGraph proc~symba_setup_pltpenc symba_setup_pltpenc interface~symba_setup_pltpenc symba_setup_pltpenc interface~symba_setup_pltpenc->proc~symba_setup_pltpenc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_setup_pltpenc.html"},{"title":"symba_setup_tp – swiftest","text":"module subroutine symba_setup_tp(self, n, param) Interface → Allocate WHM test particle structure Equivalent in functionality to David E. Kaufmann's Swifter routine whm_setup.f90\n Call allocation method for parent class. In this case, helio_tp does not have its own setup method so we use the base method for swiftest_tp Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter Calls proc~~symba_setup_tp~~CallsGraph proc~symba_setup_tp symba_setup_tp setup_tp setup_tp proc~symba_setup_tp->setup_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_setup_tp~~CalledByGraph proc~symba_setup_tp symba_setup_tp interface~symba_setup_tp symba_setup_tp interface~symba_setup_tp->proc~symba_setup_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_setup_tp.html"},{"title":"symba_kick_getacch_pl – swiftest","text":"module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg) Interface → Compute heliocentric accelerations of massive bodies Adapted from David E. Kaufmann's Swifter routine symba_kick_getacch.f90\n Adapted from Hal Levison's Swift routine symba5_kick_getacch.f Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Calls proc~~symba_kick_getacch_pl~~CallsGraph proc~symba_kick_getacch_pl symba_kick_getacch_pl helio_kick_getacch_pl helio_kick_getacch_pl proc~symba_kick_getacch_pl->helio_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_kick_getacch_pl~~CalledByGraph proc~symba_kick_getacch_pl symba_kick_getacch_pl interface~symba_kick_getacch_pl symba_kick_getacch_pl interface~symba_kick_getacch_pl->proc~symba_kick_getacch_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_kick_getacch_pl.html"},{"title":"symba_kick_getacch_tp – swiftest","text":"module subroutine symba_kick_getacch_tp(self, system, param, t, lbeg) Interface → Compute heliocentric accelerations of test particles Adapted from David E. Kaufmann's Swifter routine symba_kick_getacch_tp.f90\n Adapted from Hal Levison's Swift routine symba5_kick_getacch.f Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Calls proc~~symba_kick_getacch_tp~~CallsGraph proc~symba_kick_getacch_tp symba_kick_getacch_tp helio_kick_getacch_tp helio_kick_getacch_tp proc~symba_kick_getacch_tp->helio_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_kick_getacch_tp~~CalledByGraph proc~symba_kick_getacch_tp symba_kick_getacch_tp interface~symba_kick_getacch_tp symba_kick_getacch_tp interface~symba_kick_getacch_tp->proc~symba_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_kick_getacch_tp.html"},{"title":"symba_kick_pltpenc – swiftest","text":"module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn) Interface → Kick barycentric velocities of massive bodies and ACTIVE test particles within SyMBA recursion.\n Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types Adapted from David E. Kaufmann's Swifter routine: symba_kick.f90\n Adapted from Hal Levison's Swift routine symba5_kick.f Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(in) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level integer(kind=I4B), intent(in) :: sgn sign to be applied to acceleration Calls proc~~symba_kick_pltpenc~~CallsGraph proc~symba_kick_pltpenc symba_kick_pltpenc ind2 ind2 proc~symba_kick_pltpenc->ind2 ind1 ind1 proc~symba_kick_pltpenc->ind1 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_kick_pltpenc~~CalledByGraph proc~symba_kick_pltpenc symba_kick_pltpenc interface~symba_kick_pltpenc symba_kick_pltpenc interface~symba_kick_pltpenc->proc~symba_kick_pltpenc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_kick_pltpenc.html"},{"title":"symba_fragmentation_casedisruption – swiftest","text":"module function symba_fragmentation_casedisruption(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Interface → Create the fragments resulting from a non-catastrophic disruption collision Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome Calls proc~~symba_fragmentation_casedisruption~~CallsGraph proc~symba_fragmentation_casedisruption symba_fragmentation_casedisruption fragmentation_initialize fragmentation_initialize proc~symba_fragmentation_casedisruption->fragmentation_initialize proc~symba_fragmentation_mergeaddsub symba_fragmentation_mergeaddsub proc~symba_fragmentation_casedisruption->proc~symba_fragmentation_mergeaddsub Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_fragmentation_casedisruption~~CalledByGraph proc~symba_fragmentation_casedisruption symba_fragmentation_casedisruption interface~symba_fragmentation_casedisruption symba_fragmentation_casedisruption interface~symba_fragmentation_casedisruption->proc~symba_fragmentation_casedisruption proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casedisruption interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_fragmentation_casedisruption.html"},{"title":"symba_fragmentation_casehitandrun – swiftest","text":"module function symba_fragmentation_casehitandrun(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Interface → Create the fragments resulting from a non-catastrophic hit-and-run collision Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome Calls proc~~symba_fragmentation_casehitandrun~~CallsGraph proc~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun fragmentation_initialize fragmentation_initialize proc~symba_fragmentation_casehitandrun->fragmentation_initialize proc~symba_fragmentation_mergeaddsub symba_fragmentation_mergeaddsub proc~symba_fragmentation_casehitandrun->proc~symba_fragmentation_mergeaddsub Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_fragmentation_casehitandrun~~CalledByGraph proc~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun interface~symba_fragmentation_casehitandrun symba_fragmentation_casehitandrun interface~symba_fragmentation_casehitandrun->proc~symba_fragmentation_casehitandrun proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casehitandrun interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_fragmentation_casehitandrun.html"},{"title":"symba_fragmentation_casemerge – swiftest","text":"module function symba_fragmentation_casemerge(system, param, family, x, v, mass, radius, L_spin, Ip) result(status) Interface → Merge planets. Adapted from David E. Kaufmann's Swifter routines symba_merge_pl.f90 and symba_discard_merge_pl.f90 Adapted from Hal Levison's Swift routines symba5_merge.f and discard_mass_merge.f Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(in), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision Return Value integer(kind=I4B) Status flag assigned to this outcome Calls proc~~symba_fragmentation_casemerge~~CallsGraph proc~symba_fragmentation_casemerge symba_fragmentation_casemerge proc~symba_fragmentation_mergeaddsub symba_fragmentation_mergeaddsub proc~symba_fragmentation_casemerge->proc~symba_fragmentation_mergeaddsub Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_fragmentation_casemerge~~CalledByGraph proc~symba_fragmentation_casemerge symba_fragmentation_casemerge interface~symba_fragmentation_casemerge symba_fragmentation_casemerge interface~symba_fragmentation_casemerge->proc~symba_fragmentation_casemerge proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casemerge proc~symba_collision_resolve_mergers symba_collision_resolve_mergers proc~symba_collision_resolve_mergers->interface~symba_fragmentation_casemerge interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations interface~symba_collision_resolve_mergers symba_collision_resolve_mergers interface~symba_collision_resolve_mergers->proc~symba_collision_resolve_mergers Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_fragmentation_casemerge.html"},{"title":"symba_fragmentation_casesupercatastrophic – swiftest","text":"module function symba_fragmentation_casesupercatastrophic(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Interface → Create the fragments resulting from a supercatastrophic collision Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome Calls proc~~symba_fragmentation_casesupercatastrophic~~CallsGraph proc~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic fragmentation_initialize fragmentation_initialize proc~symba_fragmentation_casesupercatastrophic->fragmentation_initialize proc~symba_fragmentation_mergeaddsub symba_fragmentation_mergeaddsub proc~symba_fragmentation_casesupercatastrophic->proc~symba_fragmentation_mergeaddsub Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_fragmentation_casesupercatastrophic~~CalledByGraph proc~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic interface~symba_fragmentation_casesupercatastrophic symba_fragmentation_casesupercatastrophic interface~symba_fragmentation_casesupercatastrophic->proc~symba_fragmentation_casesupercatastrophic proc~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations proc~symba_collision_resolve_fragmentations->interface~symba_fragmentation_casesupercatastrophic interface~symba_collision_resolve_fragmentations symba_collision_resolve_fragmentations interface~symba_collision_resolve_fragmentations->proc~symba_collision_resolve_fragmentations Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_fragmentation_casesupercatastrophic.html"},{"title":"symba_encounter_check_pl – swiftest","text":"module function symba_encounter_check_pl(self, system, dt, irec) result(lany_encounter) Interface → Check for an encounter between massive bodies. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter Called by proc~~symba_encounter_check_pl~~CalledByGraph proc~symba_encounter_check_pl symba_encounter_check_pl interface~symba_encounter_check_pl symba_encounter_check_pl interface~symba_encounter_check_pl->proc~symba_encounter_check_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_encounter_check_pl.html"},{"title":"symba_encounter_check_pltpenc – swiftest","text":"module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lany_encounter) Interface → Check for an encounter between test particles and massive bodies in the pltpenc list.\n Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types. Adapted from portions of David E. Kaufmann's Swifter routine: symba_step_recur.f90 Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-pl encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter Calls proc~~symba_encounter_check_pltpenc~~CallsGraph proc~symba_encounter_check_pltpenc symba_encounter_check_pltpenc ind2 ind2 proc~symba_encounter_check_pltpenc->ind2 ind1 ind1 proc~symba_encounter_check_pltpenc->ind1 Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_encounter_check_pltpenc~~CalledByGraph proc~symba_encounter_check_pltpenc symba_encounter_check_pltpenc interface~symba_encounter_check_pltpenc symba_encounter_check_pltpenc interface~symba_encounter_check_pltpenc->proc~symba_encounter_check_pltpenc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_encounter_check_pltpenc.html"},{"title":"symba_encounter_check_tp – swiftest","text":"module function symba_encounter_check_tp(self, system, dt, irec) result(lany_encounter) Interface → Check for an encounter between test particles and massive bodies. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter Called by proc~~symba_encounter_check_tp~~CalledByGraph proc~symba_encounter_check_tp symba_encounter_check_tp interface~symba_encounter_check_tp symba_encounter_check_tp interface~symba_encounter_check_tp->proc~symba_encounter_check_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_encounter_check_tp.html"},{"title":"symba_encounter_check_one – swiftest","text":"pure elemental module subroutine symba_encounter_check_one(xr, yr, zr, vxr, vyr, vzr, rhill1, rhill2, dt, irec, lencounter, lvdotr) Interface → Check for an encounter. Adapted from David E. Kaufmann's Swifter routine: symba_chk.f90\n Adapted from Hal Levison's Swift routine symba5_chk.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: xr real(kind=DP), intent(in) :: yr real(kind=DP), intent(in) :: zr real(kind=DP), intent(in) :: vxr real(kind=DP), intent(in) :: vyr real(kind=DP), intent(in) :: vzr real(kind=DP), intent(in) :: rhill1 real(kind=DP), intent(in) :: rhill2 real(kind=DP), intent(in) :: dt integer(kind=I4B), intent(in) :: irec logical, intent(out) :: lencounter logical, intent(out) :: lvdotr Calls proc~~symba_encounter_check_one~~CallsGraph proc~symba_encounter_check_one symba_encounter_check_one interface~rmvs_chk_ind rmvs_chk_ind proc~symba_encounter_check_one->interface~rmvs_chk_ind proc~rmvs_chk_ind rmvs_chk_ind interface~rmvs_chk_ind->proc~rmvs_chk_ind Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_encounter_check_one~~CalledByGraph proc~symba_encounter_check_one symba_encounter_check_one interface~symba_encounter_check_one symba_encounter_check_one interface~symba_encounter_check_one->proc~symba_encounter_check_one Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_encounter_check_one.html"},{"title":"symba_io_dump_particle_info – swiftest","text":"module subroutine symba_io_dump_particle_info(system, param, lincludecb, tpidx, plidx) Interface → Dumps the particle information data to a file. \n Pass a list of array indices for test particles (tpidx) and/or massive bodies (plidx) to append Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA extensions logical, intent(in), optional :: lincludecb Set to true to include the central body (default is false) integer(kind=I4B), intent(in), optional dimension(:) :: tpidx Array of test particle indices to append to the particle file integer(kind=I4B), intent(in), optional dimension(:) :: plidx Array of massive body indices to append to the particle file Calls proc~~symba_io_dump_particle_info~~CallsGraph proc~symba_io_dump_particle_info symba_io_dump_particle_info util_exit util_exit proc~symba_io_dump_particle_info->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_io_dump_particle_info~~CalledByGraph proc~symba_io_dump_particle_info symba_io_dump_particle_info interface~symba_io_dump_particle_info symba_io_dump_particle_info interface~symba_io_dump_particle_info->proc~symba_io_dump_particle_info proc~symba_util_rearray_pl symba_util_rearray_pl proc~symba_util_rearray_pl->interface~symba_io_dump_particle_info proc~symba_setup_initialize_particle_info symba_setup_initialize_particle_info proc~symba_setup_initialize_particle_info->interface~symba_io_dump_particle_info interface~symba_util_rearray_pl symba_util_rearray_pl interface~symba_util_rearray_pl->proc~symba_util_rearray_pl interface~symba_setup_initialize_particle_info symba_setup_initialize_particle_info interface~symba_setup_initialize_particle_info->proc~symba_setup_initialize_particle_info proc~symba_setup_initialize_system symba_setup_initialize_system proc~symba_setup_initialize_system->interface~symba_setup_initialize_particle_info interface~symba_setup_initialize_system symba_setup_initialize_system interface~symba_setup_initialize_system->proc~symba_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_io_dump_particle_info.html"},{"title":"symba_io_param_reader – swiftest","text":"module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, iomsg) Interface → Read in parameters specific to the SyMBA integrator, then calls the base io_param_reader. Adapted from David E. Kaufmann's Swifter routine io_init_param.f90\n Adapted from Martin Duncan's Swift routine io_init_param.f Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(inout) :: self Collection of parameters integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) The first element passes the integrator code to the reader integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 Calls proc~~symba_io_param_reader~~CallsGraph proc~symba_io_param_reader symba_io_param_reader io_toupper io_toupper proc~symba_io_param_reader->io_toupper io_param_reader io_param_reader proc~symba_io_param_reader->io_param_reader io_get_token io_get_token proc~symba_io_param_reader->io_get_token Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_io_param_reader~~CalledByGraph proc~symba_io_param_reader symba_io_param_reader interface~symba_io_param_reader symba_io_param_reader interface~symba_io_param_reader->proc~symba_io_param_reader Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_io_param_reader.html"},{"title":"symba_io_param_writer – swiftest","text":"module subroutine symba_io_param_writer(self, unit, iotype, v_list, iostat, iomsg) Interface → Dump integration parameters specific to SyMBA to file and then call the base io_param_writer method. Adapted from David E. Kaufmann's Swifter routine io_dump_param.f90\n Adapted from Martin Duncan's Swift routine io_dump_param.f Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(in) :: self Collection of SyMBA parameters integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) Not used in this procedure integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 Calls proc~~symba_io_param_writer~~CallsGraph proc~symba_io_param_writer symba_io_param_writer io_param_writer io_param_writer proc~symba_io_param_writer->io_param_writer Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_io_param_writer~~CalledByGraph proc~symba_io_param_writer symba_io_param_writer interface~symba_io_param_writer symba_io_param_writer interface~symba_io_param_writer->proc~symba_io_param_writer Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_io_param_writer.html"},{"title":"symba_io_read_particle – swiftest","text":"module subroutine symba_io_read_particle(system, param) Interface → Reads an old particle information file for a restartd run Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system file class( symba_parameters ), intent(inout) :: param Current run configuration parameters with SyMBA extensions Calls proc~~symba_io_read_particle~~CallsGraph proc~symba_io_read_particle symba_io_read_particle util_exit util_exit proc~symba_io_read_particle->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_io_read_particle~~CalledByGraph proc~symba_io_read_particle symba_io_read_particle interface~symba_io_read_particle symba_io_read_particle interface~symba_io_read_particle->proc~symba_io_read_particle proc~symba_setup_initialize_system symba_setup_initialize_system proc~symba_setup_initialize_system->interface~symba_io_read_particle interface~symba_setup_initialize_system symba_setup_initialize_system interface~symba_setup_initialize_system->proc~symba_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_io_read_particle.html"},{"title":"symba_io_write_discard – swiftest","text":"module subroutine symba_io_write_discard(self, param) Interface → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Calls proc~~symba_io_write_discard~~CallsGraph proc~symba_io_write_discard symba_io_write_discard util_exit util_exit proc~symba_io_write_discard->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_io_write_discard~~CalledByGraph proc~symba_io_write_discard symba_io_write_discard interface~symba_io_write_discard symba_io_write_discard interface~symba_io_write_discard->proc~symba_io_write_discard Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_io_write_discard.html"},{"title":"symba_discard_pl – swiftest","text":"module subroutine symba_discard_pl(self, system, param) Interface → Call the various flavors of discards for massive bodies in SyMBA runs, including discards due to colling with the central body, \n escaping the system, or colliding with each other. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters Calls proc~~symba_discard_pl~~CallsGraph proc~symba_discard_pl symba_discard_pl proc~symba_discard_nonplpl symba_discard_nonplpl proc~symba_discard_pl->proc~symba_discard_nonplpl proc~symba_discard_nonplpl_conservation symba_discard_nonplpl_conservation proc~symba_discard_pl->proc~symba_discard_nonplpl_conservation proc~symba_discard_cb_pl symba_discard_cb_pl proc~symba_discard_nonplpl->proc~symba_discard_cb_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_discard_pl~~CalledByGraph proc~symba_discard_pl symba_discard_pl interface~symba_discard_pl symba_discard_pl interface~symba_discard_pl->proc~symba_discard_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_discard_pl.html"},{"title":"symba_step_system – swiftest","text":"module subroutine symba_step_system(self, param, t, dt) Interface → Step planets and active test particles ahead in democratic heliocentric coordinates, descending the recursive\n   branch if necessary to handle possible close encounters Adapted from David E. Kaufmann's Swifter routine: symba_step.f90\n Adapted from Hal Levison's Swift routine symba5_step_pl.f Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize Calls proc~~symba_step_system~~CallsGraph proc~symba_step_system symba_step_system helio_step_system helio_step_system proc~symba_step_system->helio_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_step_system~~CalledByGraph proc~symba_step_system symba_step_system interface~symba_step_system symba_step_system interface~symba_step_system->proc~symba_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_step_system.html"},{"title":"symba_step_interp_system – swiftest","text":"module subroutine symba_step_interp_system(self, param, t, dt) Interface → Step planets and active test particles ahead in democratic heliocentric coordinates, calling the recursive\n         subroutine to descend to the appropriate level to handle close encounters Adapted from David E. Kaufmann's Swifter routine: symba_step_interp.f90\n Adapted from Hal Levison's Swift routine symba5_step_interp.f Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize Called by proc~~symba_step_interp_system~~CalledByGraph proc~symba_step_interp_system symba_step_interp_system interface~symba_step_interp_system symba_step_interp_system interface~symba_step_interp_system->proc~symba_step_interp_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_step_interp_system.html"},{"title":"symba_step_set_recur_levels_system – swiftest","text":"module subroutine symba_step_set_recur_levels_system(self, ireci) Interface → Resets pl, tp,and encounter structures at the start of a new step Adapted from David E. Kaufmann's Swifter routine: symba_step_recur.f90\n Adapted from Hal Levison's Swift routine symba5_step_recur.f Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object integer(kind=I4B), intent(in) :: ireci Input recursion level Called by proc~~symba_step_set_recur_levels_system~~CalledByGraph proc~symba_step_set_recur_levels_system symba_step_set_recur_levels_system interface~symba_step_set_recur_levels_system symba_step_set_recur_levels_system interface~symba_step_set_recur_levels_system->proc~symba_step_set_recur_levels_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_step_set_recur_levels_system.html"},{"title":"symba_step_recur_system – swiftest","text":"recursive module subroutine symba_step_recur_system(self, param, t, ireci) Interface → Step interacting planets and active test particles ahead in democratic heliocentric coordinates at the current\n         recursion level, if applicable, and descend to the next deeper level if necessarys Adapted from David E. Kaufmann's Swifter routine: symba_step_recur.f90\n Adapted from Hal Levison's Swift routine symba5_step_recur.f Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), value :: t integer(kind=I4B), value :: ireci input recursion level Calls proc~~symba_step_recur_system~~CallsGraph proc~symba_step_recur_system symba_step_recur_system util_exit util_exit proc~symba_step_recur_system->util_exit Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_step_recur_system~~CalledByGraph proc~symba_step_recur_system symba_step_recur_system interface~symba_step_recur_system symba_step_recur_system interface~symba_step_recur_system->proc~symba_step_recur_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_step_recur_system.html"},{"title":"symba_step_reset_system – swiftest","text":"module subroutine symba_step_reset_system(self) Interface → Resets pl, tp,and encounter structures at the start of a new step Adapted from David E. Kaufmann's Swifter routine: symba_step.f90\n Adapted from Hal Levison's Swift routine symba5_step.f Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object Called by proc~~symba_step_reset_system~~CalledByGraph proc~symba_step_reset_system symba_step_reset_system interface~symba_step_reset_system symba_step_reset_system interface~symba_step_reset_system->proc~symba_step_reset_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_step_reset_system.html"},{"title":"symba_drift_pl – swiftest","text":"module subroutine symba_drift_pl(self, system, param, dt) Interface → Wrapper function used to call the body drift routine from a symba_pl structure Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize Calls proc~~symba_drift_pl~~CallsGraph proc~symba_drift_pl symba_drift_pl helio_drift_body helio_drift_body proc~symba_drift_pl->helio_drift_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_drift_pl~~CalledByGraph proc~symba_drift_pl symba_drift_pl interface~symba_drift_pl symba_drift_pl interface~symba_drift_pl->proc~symba_drift_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_drift_pl.html"},{"title":"symba_drift_tp – swiftest","text":"module subroutine symba_drift_tp(self, system, param, dt) Interface → Wrapper function used to call the body drift routine from a symba_pl structure Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize Calls proc~~symba_drift_tp~~CallsGraph proc~symba_drift_tp symba_drift_tp helio_drift_body helio_drift_body proc~symba_drift_tp->helio_drift_body Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~symba_drift_tp~~CalledByGraph proc~symba_drift_tp symba_drift_tp interface~symba_drift_tp symba_drift_tp interface~symba_drift_tp->proc~symba_drift_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/symba_drift_tp.html"},{"title":"fragmentation_initialize – swiftest","text":"module subroutine fragmentation_initialize(system, param, family, x, v, L_spin, Ip, mass, radius, nfrag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, Qloss, lfailure) Interface → Uses ieee_exceptions proc~~fragmentation_initialize~~UsesGraph proc~fragmentation_initialize fragmentation_initialize ieee_exceptions ieee_exceptions proc~fragmentation_initialize->ieee_exceptions 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Initialize the position and velocity of fragments to conserve energy and momentum. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters integer(kind=I4B), intent(in), dimension(:) :: family Index of bodies involved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real(kind=DP), intent(inout), dimension(:,:) :: v Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real(kind=DP), intent(inout), dimension(:) :: mass Two-body equivalent mass and radii for the bodies in the collision real(kind=DP), intent(inout), dimension(:) :: radius Two-body equivalent mass and radii for the bodies in the collision integer(kind=I4B), intent(inout) :: nfrag Number of fragments to generate real(kind=DP), intent(inout), dimension(:,:), allocatable :: Ip_frag Fragment rotational inertia vectors real(kind=DP), intent(inout), dimension(:), allocatable :: m_frag Distribution of fragment mass and radii real(kind=DP), intent(inout), dimension(:), allocatable :: rad_frag Distribution of fragment mass and radii real(kind=DP), intent(inout), dimension(:,:), allocatable :: xb_frag Fragment barycentric position, barycentric velocity, and rotation vectors real(kind=DP), intent(inout), dimension(:,:), allocatable :: vb_frag Fragment barycentric position, barycentric velocity, and rotation vectors real(kind=DP), intent(inout), dimension(:,:), allocatable :: rot_frag Fragment barycentric position, barycentric velocity, and rotation vectors real(kind=DP), intent(inout) :: Qloss Energy lost during the collision logical, intent(out) :: lfailure Answers the question: Should this have been a merger instead? Called by proc~~fragmentation_initialize~~CalledByGraph proc~fragmentation_initialize fragmentation_initialize interface~fragmentation_initialize fragmentation_initialize interface~fragmentation_initialize->proc~fragmentation_initialize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fragmentation_initialize.html"},{"title":"fragmentation_regime – swiftest","text":"module subroutine fragmentation_regime(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, regime, Mlr, Mslr, mtiny, Qloss) Interface → Determine the collisional regime of two colliding bodies. \n Current version requires all values to be converted to SI units prior to calling the function\n       References:\n       Kokubo, E., Genda, H., 2010. Formation of Terrestrial Planets from Protoplanets Under a Realistic Accretion \n          Condition. ApJL 714, L21. https://doi.org/10.1088/2041-8205/714/1/L21\n       Leinhardt, Z.M., Stewart, S.T., 2012. Collisions between Gravity-dominated Bodies. I. Outcome Regimes and Scaling \n          Laws 745, 79. https://doi.org/10.1088/0004-637X/745/1/79\n       Mustill, A.J., Davies, M.B., Johansen, A., 2018. The dynamical evolution of transiting planetary systems including \n          a realistic collision prescription. Mon Not R Astron Soc 478, 2896–2908. https://doi.org/10.1093/mnras/sty1273\n       Rufu, R., Aharonson, O., 2019. Impact Dynamics of Moons Within a Planetary Potential. J. Geophys. Res. Planets 124, \n          1008–1019. https://doi.org/10.1029/2018JE005798\n       Stewart, S.T., Leinhardt, Z.M., 2012. Collisions between Gravity-dominated Bodies. II. The Diversity of Impact \n          Outcomes during the End Stage of Planet Formation. ApJ 751, 32. https://doi.org/10.1088/0004-637X/751/1/32 Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: Mcb real(kind=DP), intent(in) :: m1 real(kind=DP), intent(in) :: m2 real(kind=DP), intent(in) :: rad1 real(kind=DP), intent(in) :: rad2 real(kind=DP), intent(in), dimension(:) :: xh1 real(kind=DP), intent(in), dimension(:) :: xh2 real(kind=DP), intent(in), dimension(:) :: vb1 real(kind=DP), intent(in), dimension(:) :: vb2 real(kind=DP), intent(in) :: den1 real(kind=DP), intent(in) :: den2 integer(kind=I4B), intent(out) :: regime real(kind=DP), intent(out) :: Mlr real(kind=DP), intent(out) :: Mslr real(kind=DP), intent(in) :: mtiny real(kind=DP), intent(out) :: Qloss The residual energy after the collision Called by proc~~fragmentation_regime~~CalledByGraph proc~fragmentation_regime fragmentation_regime interface~fragmentation_regime fragmentation_regime interface~fragmentation_regime->proc~fragmentation_regime Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/fragmentation_regime.html"},{"title":"rmvs_discard_tp – swiftest","text":"module subroutine rmvs_discard_tp(self, system, param) Interface → Check to see if test particles should be discarded based on pericenter passage distances with respect to planets encountered Adapted from Hal Levison's Swift routine discard_pl.f\n Adapted from Hal Levison's Swift routine rmvs_discard_pl.f90 Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters Calls proc~~rmvs_discard_tp~~CallsGraph proc~rmvs_discard_tp rmvs_discard_tp discard_tp discard_tp proc~rmvs_discard_tp->discard_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_discard_tp~~CalledByGraph proc~rmvs_discard_tp rmvs_discard_tp interface~rmvs_discard_tp rmvs_discard_tp interface~rmvs_discard_tp->proc~rmvs_discard_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_discard_tp.html"},{"title":"rmvs_util_append_pl – swiftest","text":"module subroutine rmvs_util_append_pl(self, source, lsource_mask) Interface → Append components from one massive body object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~rmvs_util_append_pl~~CallsGraph proc~rmvs_util_append_pl rmvs_util_append_pl util_exit util_exit proc~rmvs_util_append_pl->util_exit util_append util_append proc~rmvs_util_append_pl->util_append whm_util_append_pl whm_util_append_pl proc~rmvs_util_append_pl->whm_util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_append_pl~~CalledByGraph proc~rmvs_util_append_pl rmvs_util_append_pl interface~rmvs_util_append_pl rmvs_util_append_pl interface~rmvs_util_append_pl->proc~rmvs_util_append_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_append_pl.html"},{"title":"rmvs_util_append_tp – swiftest","text":"module subroutine rmvs_util_append_tp(self, source, lsource_mask) Interface → Append components from test particle object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to Calls proc~~rmvs_util_append_tp~~CallsGraph proc~rmvs_util_append_tp rmvs_util_append_tp util_exit util_exit proc~rmvs_util_append_tp->util_exit util_append util_append proc~rmvs_util_append_tp->util_append util_append_tp util_append_tp proc~rmvs_util_append_tp->util_append_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_append_tp~~CalledByGraph proc~rmvs_util_append_tp rmvs_util_append_tp interface~rmvs_util_append_tp rmvs_util_append_tp interface~rmvs_util_append_tp->proc~rmvs_util_append_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_append_tp.html"},{"title":"rmvs_util_fill_pl – swiftest","text":"module subroutine rmvs_util_fill_pl(self, inserts, lfill_list) Interface → Insert new RMVS massive body structure into an old one. \n This is the inverse of a fill operation. Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Calls proc~~rmvs_util_fill_pl~~CallsGraph proc~rmvs_util_fill_pl rmvs_util_fill_pl util_exit util_exit proc~rmvs_util_fill_pl->util_exit whm_util_fill_pl whm_util_fill_pl proc~rmvs_util_fill_pl->whm_util_fill_pl util_fill util_fill proc~rmvs_util_fill_pl->util_fill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_fill_pl~~CalledByGraph proc~rmvs_util_fill_pl rmvs_util_fill_pl interface~rmvs_util_fill_pl rmvs_util_fill_pl interface~rmvs_util_fill_pl->proc~rmvs_util_fill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_fill_pl.html"},{"title":"rmvs_util_fill_tp – swiftest","text":"module subroutine rmvs_util_fill_tp(self, inserts, lfill_list) Interface → Insert new RMVS test particle structure into an old one. \n This is the inverse of a fill operation. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps Calls proc~~rmvs_util_fill_tp~~CallsGraph proc~rmvs_util_fill_tp rmvs_util_fill_tp util_fill_tp util_fill_tp proc~rmvs_util_fill_tp->util_fill_tp util_exit util_exit proc~rmvs_util_fill_tp->util_exit util_fill util_fill proc~rmvs_util_fill_tp->util_fill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_fill_tp~~CalledByGraph proc~rmvs_util_fill_tp rmvs_util_fill_tp interface~rmvs_util_fill_tp rmvs_util_fill_tp interface~rmvs_util_fill_tp->proc~rmvs_util_fill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_fill_tp.html"},{"title":"rmvs_util_resize_pl – swiftest","text":"module subroutine rmvs_util_resize_pl(self, nnew) Interface → Checks the current size of a massive body object against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~rmvs_util_resize_pl~~CallsGraph proc~rmvs_util_resize_pl rmvs_util_resize_pl whm_util_resize_pl whm_util_resize_pl proc~rmvs_util_resize_pl->whm_util_resize_pl util_resize util_resize proc~rmvs_util_resize_pl->util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_resize_pl~~CalledByGraph proc~rmvs_util_resize_pl rmvs_util_resize_pl interface~rmvs_util_resize_pl rmvs_util_resize_pl interface~rmvs_util_resize_pl->proc~rmvs_util_resize_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_resize_pl.html"},{"title":"rmvs_util_resize_tp – swiftest","text":"module subroutine rmvs_util_resize_tp(self, nnew) Interface → Checks the current size of a test particle object against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: nnew New size neded Calls proc~~rmvs_util_resize_tp~~CallsGraph proc~rmvs_util_resize_tp rmvs_util_resize_tp util_resize_tp util_resize_tp proc~rmvs_util_resize_tp->util_resize_tp util_resize util_resize proc~rmvs_util_resize_tp->util_resize Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_resize_tp~~CalledByGraph proc~rmvs_util_resize_tp rmvs_util_resize_tp interface~rmvs_util_resize_tp rmvs_util_resize_tp interface~rmvs_util_resize_tp->proc~rmvs_util_resize_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_resize_tp.html"},{"title":"rmvs_util_sort_pl – swiftest","text":"module subroutine rmvs_util_sort_pl(self, sortby, ascending) Interface → Sort a RMVS massive body object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order Calls proc~~rmvs_util_sort_pl~~CallsGraph proc~rmvs_util_sort_pl rmvs_util_sort_pl whm_util_sort_pl whm_util_sort_pl proc~rmvs_util_sort_pl->whm_util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_sort_pl~~CalledByGraph proc~rmvs_util_sort_pl rmvs_util_sort_pl interface~rmvs_util_sort_pl rmvs_util_sort_pl interface~rmvs_util_sort_pl->proc~rmvs_util_sort_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_sort_pl.html"},{"title":"rmvs_util_sort_tp – swiftest","text":"module subroutine rmvs_util_sort_tp(self, sortby, ascending) Interface → Sort a RMVS test particle object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order Calls proc~~rmvs_util_sort_tp~~CallsGraph proc~rmvs_util_sort_tp rmvs_util_sort_tp util_sort_tp util_sort_tp proc~rmvs_util_sort_tp->util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_sort_tp~~CalledByGraph proc~rmvs_util_sort_tp rmvs_util_sort_tp interface~rmvs_util_sort_tp rmvs_util_sort_tp interface~rmvs_util_sort_tp->proc~rmvs_util_sort_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_sort_tp.html"},{"title":"rmvs_util_sort_rearrange_pl – swiftest","text":"module subroutine rmvs_util_sort_rearrange_pl(self, ind) Interface → Rearrange RMVS massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Calls proc~~rmvs_util_sort_rearrange_pl~~CallsGraph proc~rmvs_util_sort_rearrange_pl rmvs_util_sort_rearrange_pl util_sort_rearrange_pl util_sort_rearrange_pl proc~rmvs_util_sort_rearrange_pl->util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_sort_rearrange_pl~~CalledByGraph proc~rmvs_util_sort_rearrange_pl rmvs_util_sort_rearrange_pl interface~rmvs_util_sort_rearrange_pl rmvs_util_sort_rearrange_pl interface~rmvs_util_sort_rearrange_pl->proc~rmvs_util_sort_rearrange_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_sort_rearrange_pl.html"},{"title":"rmvs_util_sort_rearrange_tp – swiftest","text":"module subroutine rmvs_util_sort_rearrange_tp(self, ind) Interface → Rearrange RMVS test particle object in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Calls proc~~rmvs_util_sort_rearrange_tp~~CallsGraph proc~rmvs_util_sort_rearrange_tp rmvs_util_sort_rearrange_tp util_sort_rearrange_tp util_sort_rearrange_tp proc~rmvs_util_sort_rearrange_tp->util_sort_rearrange_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_sort_rearrange_tp~~CalledByGraph proc~rmvs_util_sort_rearrange_tp rmvs_util_sort_rearrange_tp interface~rmvs_util_sort_rearrange_tp rmvs_util_sort_rearrange_tp interface~rmvs_util_sort_rearrange_tp->proc~rmvs_util_sort_rearrange_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_sort_rearrange_tp.html"},{"title":"rmvs_util_spill_pl – swiftest","text":"module subroutine rmvs_util_spill_pl(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) RMVS test particle structure from active list to discard list Adapted from David E. Kaufmann's Swifter routine discard_discard_spill.f90 Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Calls proc~~rmvs_util_spill_pl~~CallsGraph proc~rmvs_util_spill_pl rmvs_util_spill_pl util_exit util_exit proc~rmvs_util_spill_pl->util_exit util_spill util_spill proc~rmvs_util_spill_pl->util_spill whm_util_spill_pl whm_util_spill_pl proc~rmvs_util_spill_pl->whm_util_spill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_spill_pl~~CalledByGraph proc~rmvs_util_spill_pl rmvs_util_spill_pl interface~rmvs_util_spill_pl rmvs_util_spill_pl interface~rmvs_util_spill_pl->proc~rmvs_util_spill_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_spill_pl.html"},{"title":"rmvs_util_spill_tp – swiftest","text":"module subroutine rmvs_util_spill_tp(self, discards, lspill_list, ldestructive) Interface → Move spilled (discarded) RMVS test particle structure from active list to discard list Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90 Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Calls proc~~rmvs_util_spill_tp~~CallsGraph proc~rmvs_util_spill_tp rmvs_util_spill_tp util_spill_tp util_spill_tp proc~rmvs_util_spill_tp->util_spill_tp util_exit util_exit proc~rmvs_util_spill_tp->util_exit util_spill util_spill proc~rmvs_util_spill_tp->util_spill Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_util_spill_tp~~CalledByGraph proc~rmvs_util_spill_tp rmvs_util_spill_tp interface~rmvs_util_spill_tp rmvs_util_spill_tp interface~rmvs_util_spill_tp->proc~rmvs_util_spill_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_util_spill_tp.html"},{"title":"rmvs_kick_getacch_tp – swiftest","text":"module subroutine rmvs_kick_getacch_tp(self, system, param, t, lbeg) Interface → Compute the oblateness acceleration in the inner encounter region with planets Performs a similar task as David E. Kaufmann's Swifter routine rmvs_kick_getacch_tp.f90, but \n uses object polymorphism, and so is not directly adapted. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest central body particle data structuree class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step Calls proc~~rmvs_kick_getacch_tp~~CallsGraph proc~rmvs_kick_getacch_tp rmvs_kick_getacch_tp whm_kick_getacch_tp whm_kick_getacch_tp proc~rmvs_kick_getacch_tp->whm_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_kick_getacch_tp~~CalledByGraph proc~rmvs_kick_getacch_tp rmvs_kick_getacch_tp interface~rmvs_kick_getacch_tp rmvs_kick_getacch_tp interface~rmvs_kick_getacch_tp->proc~rmvs_kick_getacch_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_kick_getacch_tp.html"},{"title":"rmvs_setup_pl – swiftest","text":"module subroutine rmvs_setup_pl(self, n, param) Interface → Allocate RMVS test particle structure Equivalent in functionality to David E. Kaufmann's Swifter routine rmvs_setup.f90\n Call allocation method for parent class Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameter Calls proc~~rmvs_setup_pl~~CallsGraph proc~rmvs_setup_pl rmvs_setup_pl whm_setup_pl whm_setup_pl proc~rmvs_setup_pl->whm_setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_setup_pl~~CalledByGraph proc~rmvs_setup_pl rmvs_setup_pl interface~rmvs_setup_pl rmvs_setup_pl interface~rmvs_setup_pl->proc~rmvs_setup_pl Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_setup_pl.html"},{"title":"rmvs_setup_initialize_system – swiftest","text":"module subroutine rmvs_setup_initialize_system(self, param) Interface → Initialize an RMVS nbody system from files and sets up the planetocentric structures. We currently rearrange the pl order to keep it consistent with the way Swifter does it \n In Swifter, the central body occupies the first position in the pl list, and during\n encounters, the encountering planet is skipped in loops. In Swiftest, we instantiate an\n RMVS nbody system object attached to each pl to store planetocentric versions of the system\n to use during close encounters. Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters Calls proc~~rmvs_setup_initialize_system~~CallsGraph proc~rmvs_setup_initialize_system rmvs_setup_initialize_system whm_setup_initialize_system whm_setup_initialize_system proc~rmvs_setup_initialize_system->whm_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_setup_initialize_system~~CalledByGraph proc~rmvs_setup_initialize_system rmvs_setup_initialize_system interface~rmvs_setup_initialize_system rmvs_setup_initialize_system interface~rmvs_setup_initialize_system->proc~rmvs_setup_initialize_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_setup_initialize_system.html"},{"title":"rmvs_setup_tp – swiftest","text":"module subroutine rmvs_setup_tp(self, n, param) Interface → Allocate WHM test particle structure Equivalent in functionality to David E. Kaufmann's Swifter routine whm_setup.f90\n Call allocation method for parent class. In this case, whm does not have its own setup method, so we use the base method for swiftest_tp Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameter Calls proc~~rmvs_setup_tp~~CallsGraph proc~rmvs_setup_tp rmvs_setup_tp setup_tp setup_tp proc~rmvs_setup_tp->setup_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_setup_tp~~CalledByGraph proc~rmvs_setup_tp rmvs_setup_tp interface~rmvs_setup_tp rmvs_setup_tp interface~rmvs_setup_tp->proc~rmvs_setup_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_setup_tp.html"},{"title":"rmvs_step_system – swiftest","text":"module subroutine rmvs_step_system(self, param, t, dt) Interface → Step massive bodies and and active test particles ahead in heliocentric coordinates Adapted from Hal Levison's Swift routine rmvs3_step.f\n Adapted from David E. Kaufmann's Swifter routine rmvs_step.f90 Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsiz Calls proc~~rmvs_step_system~~CallsGraph proc~rmvs_step_system rmvs_step_system whm_step_system whm_step_system proc~rmvs_step_system->whm_step_system proc~rmvs_interp_out rmvs_interp_out proc~rmvs_step_system->proc~rmvs_interp_out proc~rmvs_step_out rmvs_step_out proc~rmvs_step_system->proc~rmvs_step_out util_exit util_exit proc~rmvs_interp_out->util_exit proc~rmvs_interp_in rmvs_interp_in proc~rmvs_step_out->proc~rmvs_interp_in proc~rmvs_step_in rmvs_step_in proc~rmvs_step_out->proc~rmvs_step_in proc~rmvs_interp_in->util_exit proc~rmvs_make_planetocentric rmvs_make_planetocentric proc~rmvs_step_in->proc~rmvs_make_planetocentric proc~rmvs_end_planetocentric rmvs_end_planetocentric proc~rmvs_step_in->proc~rmvs_end_planetocentric proc~rmvs_peri_tp rmvs_peri_tp proc~rmvs_step_in->proc~rmvs_peri_tp vpc vpc proc~rmvs_peri_tp->vpc xpc xpc proc~rmvs_peri_tp->xpc Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_step_system~~CalledByGraph proc~rmvs_step_system rmvs_step_system interface~rmvs_step_system rmvs_step_system interface~rmvs_step_system->proc~rmvs_step_system Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_step_system.html"},{"title":"rmvs_encounter_check_tp – swiftest","text":"module function rmvs_encounter_check_tp(self, system, dt) result(lencounter) Interface → Determine whether a test particle and planet are having or will have an encounter within the next time step Adapted from David E. Kaufmann's Swifter routine: rmvs_chk.f90\n Adapted from Hal Levison's Swift routine rmvs3_chk.f Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object real(kind=DP), intent(in) :: dt step size Return Value logical Returns true if there is at least one close encounter Calls proc~~rmvs_encounter_check_tp~~CallsGraph proc~rmvs_encounter_check_tp rmvs_encounter_check_tp interface~rmvs_chk_ind rmvs_chk_ind proc~rmvs_encounter_check_tp->interface~rmvs_chk_ind proc~rmvs_chk_ind rmvs_chk_ind interface~rmvs_chk_ind->proc~rmvs_chk_ind Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Called by proc~~rmvs_encounter_check_tp~~CalledByGraph proc~rmvs_encounter_check_tp rmvs_encounter_check_tp interface~rmvs_encounter_check_tp rmvs_encounter_check_tp interface~rmvs_encounter_check_tp->proc~rmvs_encounter_check_tp Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_encounter_check_tp.html"},{"title":"rmvs_chk_ind – swiftest","text":"elemental module function rmvs_chk_ind(r2, v2, vdotr, dt, r2crit) result(lflag) Interface → Determine whether a test particle and planet are having or will have an encounter within the next time step Adapted from David E. Kaufmann's Swifter routine: rmvs_chk_ind.f90\n Adapted from Hal Levison's Swift routine rmvs_chk_ind.f Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: r2 real(kind=DP), intent(in) :: v2 real(kind=DP), intent(in) :: vdotr real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r2crit Return Value logical Called by proc~~rmvs_chk_ind~~CalledByGraph proc~rmvs_chk_ind rmvs_chk_ind interface~rmvs_chk_ind rmvs_chk_ind interface~rmvs_chk_ind->proc~rmvs_chk_ind proc~rmvs_encounter_check_tp rmvs_encounter_check_tp proc~rmvs_encounter_check_tp->interface~rmvs_chk_ind proc~symba_encounter_check_one symba_encounter_check_one proc~symba_encounter_check_one->interface~rmvs_chk_ind interface~rmvs_encounter_check_tp rmvs_encounter_check_tp interface~rmvs_encounter_check_tp->proc~rmvs_encounter_check_tp interface~symba_encounter_check_one symba_encounter_check_one interface~symba_encounter_check_one->proc~symba_encounter_check_one Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents None","tags":"","loc":"proc/rmvs_chk_ind.html"},{"title":"rmvs_classes – swiftest","text":"Definition of classes and methods specific to the Regularized Mixed Variable Symplectic (RMVS) integrator\n Partially adapted from David E. Kaufmann's Swifter module: module_rmvs.f90 rmvs_cb class definitions and method interfaces rmvs_tp class definitions and method interfaces RMVS test particle class rmvs_pl class definitions and method interfaces Uses swiftest_globals whm_classes module~~rmvs_classes~~UsesGraph module~rmvs_classes rmvs_classes module~swiftest_globals swiftest_globals module~rmvs_classes->module~swiftest_globals module~whm_classes whm_classes module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~whm_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by Descendants: s_rmvs_chk s_rmvs_discard s_rmvs_kick s_rmvs_setup s_rmvs_step s_rmvs_util module~~rmvs_classes~~UsedByGraph module~rmvs_classes rmvs_classes module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~rmvs_classes module~swiftest swiftest module~s_rmvs_util->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~rmvs_classes module~s_rmvs_kick->module~swiftest module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~rmvs_classes module~s_rmvs_chk->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~rmvs_classes module~s_rmvs_setup->module~swiftest module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~rmvs_classes module~s_rmvs_discard->module~swiftest module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~rmvs_classes module~s_rmvs_step->module~swiftest module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~symba_classes->module~rmvs_classes module~s_setup s_setup module~s_setup->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~swiftest module~s_symba_encounter_check->module~symba_classes module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_util_coord s_util_coord module~s_util_coord->module~swiftest module~s_util_set s_util_set module~s_util_set->module~swiftest module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_symba_drift->module~symba_classes module~s_util_rescale s_util_rescale module~s_util_rescale->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~s_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_symba_kick->module~symba_classes module~s_whm_util s_whm_util module~s_whm_util->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~swiftest module~s_operator_cross s_operator_cross module~s_operator_cross->module~swiftest module~s_symba_setup s_symba_setup module~s_symba_setup->module~swiftest module~s_symba_setup->module~symba_classes program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_helio_kick s_helio_kick module~s_helio_kick->module~swiftest module~s_symba_collision s_symba_collision module~s_symba_collision->module~swiftest module~s_symba_collision->module~symba_classes module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_symba_discard->module~symba_classes module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_symba_util->module~symba_classes module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_symba_io->module~symba_classes module~whm_drift whm_drift module~whm_drift->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~swiftest module~s_eucl s_eucl module~s_eucl->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_fragmentation s_fragmentation module~s_fragmentation->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_symba_fragmentation s_symba_fragmentation module~s_symba_fragmentation->module~swiftest module~s_symba_fragmentation->module~symba_classes module~s_whm_step s_whm_step module~s_whm_step->module~swiftest module~s_helio_coord s_helio_coord module~s_helio_coord->module~swiftest module~s_util_peri s_util_peri module~s_util_peri->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~swiftest module~s_symba_step->module~symba_classes module~s_helio_step s_helio_step module~s_helio_step->module~swiftest module~s_util_exit s_util_exit module~s_util_exit->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~swiftest 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Variables NTENC NTPHENC NTPENC RHSCALE RHPSCALE FACQDT Interfaces rmvs_chk_ind rmvs_encounter_check_tp rmvs_discard_tp rmvs_kick_getacch_tp rmvs_setup_pl rmvs_setup_initialize_system rmvs_setup_tp rmvs_util_append_pl rmvs_util_append_tp rmvs_util_fill_pl rmvs_util_fill_tp rmvs_util_resize_pl rmvs_util_resize_tp rmvs_util_sort_pl rmvs_util_sort_tp rmvs_util_sort_rearrange_pl rmvs_util_sort_rearrange_tp rmvs_util_spill_pl rmvs_util_spill_tp rmvs_step_system Derived Types rmvs_nbody_system rmvs_interp rmvs_cb rmvs_tp rmvs_pl Variables Type Visibility Attributes Name Initial integer(kind=I4B), private, parameter :: NTENC = 10 integer(kind=I4B), private, parameter :: NTPHENC = 3 integer(kind=I4B), private, parameter :: NTPENC = NTENC*NTPHENC real(kind=DP), private, parameter :: RHSCALE = 3.5_DP real(kind=DP), private, parameter :: RHPSCALE = 1.0_DP real(kind=DP), private, parameter :: FACQDT = 2.0_DP rmvs_nbody_system class definitions and method interfaces Interfaces interface public elemental module function rmvs_chk_ind(r2, v2, vdotr, dt, r2crit) result(lflag) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: r2 real(kind=DP), intent(in) :: v2 real(kind=DP), intent(in) :: vdotr real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r2crit Return Value logical interface public module function rmvs_encounter_check_tp(self, system, dt) result(lencounter) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object real(kind=DP), intent(in) :: dt step size Return Value logical Returns true if there is at least one close encounter interface public module subroutine rmvs_discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters interface public module subroutine rmvs_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest central body particle data structuree class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step interface public module subroutine rmvs_setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameters interface public module subroutine rmvs_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters interface public module subroutine rmvs_setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parametere interface public module subroutine rmvs_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine rmvs_util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine rmvs_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module subroutine rmvs_util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module subroutine rmvs_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine rmvs_util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine rmvs_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order interface public module subroutine rmvs_util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order interface public module subroutine rmvs_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) interface public module subroutine rmvs_util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) interface public module subroutine rmvs_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine rmvs_util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine rmvs_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize Derived Types type, public, extends( whm_nbody_system ) :: rmvs_nbody_system Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure class( swiftest_pl ), public, allocatable :: pl_discards Discarded massive body particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number logical, public :: lplanetocentric = .false. In the RMVS integrator, only test particles are discarded\n Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations real(kind=DP), public :: rts fraction of Hill's sphere radius to use as radius of encounter region real(kind=DP), public, dimension(:,:), allocatable :: vbeg Planet velocities at beginning ot step Type-Bound Procedures procedure, public :: discard => discard_system Perform a discard step on the system procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time procedure, public :: dump => io_dump_system Dump the state of the system to a file procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file procedure, public :: write_discard => io_write_discard Write out information about discarded test particles procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum procedure, public :: rescale => util_rescale_system Rescales the system into a new set of units procedure, public :: validate_ids => util_valid_id_system Validate the numerical ids passed to the system and save the maximum value procedure, public :: initialize => rmvs_setup_initialize_system Replace the abstract procedures with concrete ones\n Performs RMVS-specific initilization steps, including generating the close encounter planetocentric structures procedure, public :: step => rmvs_step_system Advance the RMVS nbody system forward in time by one step type, private :: rmvs_interp Components Type Visibility Attributes Name Initial real(kind=DP), public, dimension(:, :), allocatable :: x interpolated heliocentric planet position for outer encounter real(kind=DP), public, dimension(:, :), allocatable :: v interpolated heliocentric planet velocity for outer encounter real(kind=DP), public, dimension(:, :), allocatable :: aobl Encountering planet's oblateness acceleration value real(kind=DP), public, dimension(:, :), allocatable :: atide Encountering planet's tidal acceleration value type, public, extends( whm_cb ) :: rmvs_cb RMVS central body particle class Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body type( rmvs_interp ), public, dimension(:), allocatable :: outer interpolated heliocentric central body position for outer encounters type( rmvs_interp ), public, dimension(:), allocatable :: inner interpolated heliocentric central body position for inner encounters logical, public :: lplanetocentric = .false. Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body type, public, extends( whm_tp ) :: rmvs_tp Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the\n    component list, such as rmvs_setup_tp and rmvs_util_spill_tp Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp logical, public, dimension(:), allocatable :: lperi planetocentric pericenter passage flag (persistent for a full rmvs time step) over a full RMVS time step) integer(kind=I4B), public, dimension(:), allocatable :: plperP index of planet associated with pericenter distance peri (persistent over a full RMVS time step) integer(kind=I4B), public, dimension(:), allocatable :: plencP index of planet that test particle is encountering (not persistent for a full RMVS time step) type( rmvs_cb ), public :: cb_heliocentric Copy of original central body object passed to close encounter (used for oblateness acceleration during planetocentric encoountters) real(kind=DP), public, dimension(:,:), allocatable :: xheliocentric original heliocentric position (used for oblateness calculation during close encounters) integer(kind=I4B), public :: index inner substep number within current set integer(kind=I4B), public :: ipleP index value of encountering planet logical, public :: lplanetocentric = .false. Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass procedure, public :: accel_gr => whm_gr_kick_getacch_tp Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => whm_gr_p4_tp Position kick due to p**4 term in the post-Newtonian correction procedure, public :: kick => whm_kick_vh_tp Kick heliocentric velocities of test particles procedure, public :: step => whm_step_tp Steps the particle forward one stepsize procedure, public :: discard => rmvs_discard_tp Check to see if test particles should be discarded based on pericenter passage distances with respect to planets encountered procedure, public :: encounter_check => rmvs_encounter_check_tp Checks if any test particles are undergoing a close encounter with a massive body procedure, public :: accel => rmvs_kick_getacch_tp Calculates either the standard or modified version of the acceleration depending if the\n    if the test particle is undergoing a close encounter or not procedure, public :: setup => rmvs_setup_tp Constructor method - Allocates space for the input number of bodiess procedure, public :: append => rmvs_util_append_tp Appends elements from one structure to another procedure, public :: fill => rmvs_util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: resize => rmvs_util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: sort => rmvs_util_sort_tp Sorts body arrays by a sortable componen procedure, public :: rearrange => rmvs_util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => rmvs_util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) type, public, extends( whm_pl ) :: rmvs_pl RMVS massive body particle class Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl real(kind=DP), public, dimension(:), allocatable :: eta Jacobi mass real(kind=DP), public, dimension(:,:), allocatable :: xj Jacobi position real(kind=DP), public, dimension(:,:), allocatable :: vj Jacobi velocity real(kind=DP), public, dimension(:), allocatable :: muj Jacobi mu: GMcb * eta(i) / eta(i - 1) real(kind=DP), public, dimension(:), allocatable :: ir3j Third term of heliocentric acceleration\n Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the\n    component list, such as whm_setup_pl and whm_util_spill_pl integer(kind=I4B), public, dimension(:), allocatable :: nenc number of test particles encountering planet this full rmvs time step integer(kind=I4B), public, dimension(:), allocatable :: tpenc1P index of first test particle encountering planet integer(kind=I4B), public, dimension(:), allocatable :: plind Connects the planetocentric indices back to the heliocentric planet list type( rmvs_interp ), public, dimension(:), allocatable :: outer interpolated heliocentric central body position for outer encounters type( rmvs_interp ), public, dimension(:), allocatable :: inner interpolated heliocentric central body position for inner encounters class( rmvs_nbody_system ), public, dimension(:), allocatable :: planetocentric Planetocentric version of the massive body objects (one for each massive body) logical, public :: lplanetocentric = .false. Flag that indicates that the object is a planetocentric set of masive bodies used for close encounter calculations Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body procedure, public :: h2j => whm_coord_h2j_pl Convert position and velcoity vectors from heliocentric to Jacobi coordinates procedure, public :: j2h => whm_coord_j2h_pl Convert position and velcoity vectors from Jacobi to helliocentric coordinates procedure, public :: vh2vj => whm_coord_vh2vj_pl Convert velocity vectors from heliocentric to Jacobi coordinates procedure, public :: drift => whm_drift_pl Loop through massive bodies and call Danby drift routine to jacobi coordinates procedure, public :: accel_gr => whm_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => whm_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction procedure, public :: accel => whm_kick_getacch_pl Compute heliocentric accelerations of massive bodies procedure, public :: kick => whm_kick_vh_pl Kick heliocentric velocities of massive bodies procedure, public :: set_ir3 => whm_util_set_ir3j Sets both the heliocentric and jacobi inverse radius terms (1/rj 3 and 1/rh 3) procedure, public :: set_mu => whm_util_set_mu_eta_pl Sets the Jacobi mass value for all massive bodies. procedure, public :: step => whm_step_pl Steps the body forward one stepsize procedure, public :: setup => rmvs_setup_pl Constructor method - Allocates space for the input number of bodiess procedure, public :: append => rmvs_util_append_pl Appends elements from one structure to another procedure, public :: fill => rmvs_util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: resize => rmvs_util_resize_pl Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: sort => rmvs_util_sort_pl Sorts body arrays by a sortable componen procedure, public :: rearrange => rmvs_util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => rmvs_util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic)","tags":"","loc":"module/rmvs_classes.html"},{"title":"swiftest_globals – swiftest","text":"Basic parameters, definitions, and global type definitions used throughout the Swiftest project\n Adapted from David E. Kaufmann's Swifter routine: swiftest_globals.f90 and module_swifter.f90 Uses iso_fortran_env Contents Variables I8B I4B I2B I1B SP DP QP PIBY2 PI PI3BY2 TWOPI THIRD DEGRAD LOWERCASE_BEGIN LOWERCASE_END UPPERCASE_OFFSET VERSION_NUMBER UNKNOWN_INTEGRATOR BS HELIO RA15 TU4 WHM RMVS SYMBA RINGMOONS STRMAX ASCII_TYPE REAL4_TYPE REAL8_TYPE SWIFTER_REAL4_TYPE SWIFTER_REAL8_TYPE EL XV nthreads NTHERSHOLD SUCCESS FAILURE USAGE HELP SUCCESS_MSG FAIL_MSG USAGE_MSG HELP_MSG ELLIPSE PARABOLA HYPERBOLA ACTIVE INACTIVE DISCARDED_RMAX DISCARDED_RMIN DISCARDED_RMAXU DISCARDED_PERI DISCARDED_PLR DISCARDED_PLQ DISCARDED_DRIFTERR MERGED DISRUPTION SUPERCATASTROPHIC GRAZE_AND_MERGE HIT_AND_RUN COLLISION COLLRESOLVE_REGIME_MERGE COLLRESOLVE_REGIME_DISRUPTION COLLRESOLVE_REGIME_SUPERCATASTROPHIC COLLRESOLVE_REGIME_GRAZE_AND_MERGE COLLRESOLVE_REGIME_HIT_AND_RUN ADD SUB NDUMPFILES DUMP_CB_FILE DUMP_PL_FILE DUMP_TP_FILE DUMP_PARAM_FILE ENC_OUTFILE DISCARD_FILE ENERGY_FILE CB_INFILE PL_INFILE TP_INFILE BIN_OUTFILE BINUNIT NDIM NDIM2 VSMALL GC einsteinC Variables Type Visibility Attributes Name Initial integer, public, parameter :: I8B = int64 Symbolic name for kind types of 8-byte integers integer, public, parameter :: I4B = int32 Symbolic name for kind types of 4-byte integers integer, public, parameter :: I2B = int16 Symbolic name for kind types of 2-byte integers integer, public, parameter :: I1B = int8 Symbolic name for kind types of 1-byte integers integer, public, parameter :: SP = real32 Symbolic name for kind types of single-precision reals integer, public, parameter :: DP = real64 Symbolic name for kind types of double-precision reals integer, public, parameter :: QP = real128 Symbolic name for kind types of quad-precision reals real(kind=DP), public, parameter :: PIBY2 = 1.570796326794896619231321691639751442099_DP Definition of /(\\pi / 2) real(kind=DP), public, parameter :: PI = 3.141592653589793238462643383279502884197_DP Definition of /(\\pi) real(kind=DP), public, parameter :: PI3BY2 = 4.712388980384689857693965074919254326296_DP Definition of /(3 \\pi / 2) real(kind=DP), public, parameter :: TWOPI = 6.283185307179586476925286766559005768394_DP Definition of 2 \\pi real(kind=DP), public, parameter :: THIRD = 0.333333333333333333333333333333333333333_DP Definition of 1 / 3 real(kind=DP), public, parameter :: DEGRAD = 180.0_DP/PI Definition of conversion factor from degrees to radians integer(kind=I4B), public, parameter :: LOWERCASE_BEGIN = iachar('a') ASCII character set parameter for lower to upper conversion - start of lowercase integer(kind=I4B), public, parameter :: LOWERCASE_END = iachar('z') ASCII character set parameter for lower to upper conversion - end of lowercase integer(kind=I4B), public, parameter :: UPPERCASE_OFFSET = iachar('A')-iachar('a') ASCII character set parameter for lower to upper conversion - offset between upper and lower real(kind=SP), public, parameter :: VERSION_NUMBER = 0.1_SP swiftest version integer(kind=I4B), public, parameter :: UNKNOWN_INTEGRATOR = 1 Symbolic name for integrator types integer(kind=I4B), public, parameter :: BS = 2 integer(kind=I4B), public, parameter :: HELIO = 3 integer(kind=I4B), public, parameter :: RA15 = 4 integer(kind=I4B), public, parameter :: TU4 = 5 integer(kind=I4B), public, parameter :: WHM = 6 integer(kind=I4B), public, parameter :: RMVS = 7 integer(kind=I4B), public, parameter :: SYMBA = 8 integer(kind=I4B), public, parameter :: RINGMOONS = 9 integer(kind=I4B), public, parameter :: STRMAX = 128 Maximum size of character strings character(len=*), public, parameter :: ASCII_TYPE = 'ASCII' Symbolic name for ASCII file type character(len=*), public, parameter :: REAL4_TYPE = 'REAL4' Symbolic name for binary file type REAL4 character(len=*), public, parameter :: REAL8_TYPE = 'REAL8' Symbolic name for binary file type REAL8 character(len=*), public, parameter :: SWIFTER_REAL4_TYPE = 'SWIFTER4' Symbolic name for binary file type for the old style Swifter REAL4 character(len=*), public, parameter :: SWIFTER_REAL8_TYPE = 'SWIFTER8' Symbolic name for binary file type for the old style Swifter REAL8 character(len=*), public, parameter :: EL = 'EL' Symbolic name for binary output file contents for orbital element type character(len=*), public, parameter :: XV = 'XV' Symbolic name for binary output file contents for cartesian position and velocity type integer(kind=I4B), public :: nthreads = 1 Number of OpenMP threads integer(kind=I4B), public, parameter :: NTHERSHOLD = 1000 Threshold value for OpenMP loop parallelization integer(kind=I4B), public, parameter :: SUCCESS = 0 Symbolic name for function return/flag code for success integer(kind=I4B), public, parameter :: FAILURE = -1 Symbolic name for function return/flag code for failure integer(kind=I4B), public, parameter :: USAGE = -2 Symbolic name for function return/flag code for printing the usage message integer(kind=I4B), public, parameter :: HELP = -3 Symbolic name for function return/flag code for printing the usage message character(len=*), public, parameter :: SUCCESS_MSG = '(/, \"Normal termination of Swiftest (version \", f3.1, \")\")' character(len=*), public, parameter :: FAIL_MSG = '(/, \"Terminating Swiftest (version \", f3.1, \") due to error!!\")' character(len=*), public, parameter :: USAGE_MSG = '(\"Usage: swiftest [bs|helio|ra15|rmvs|symba|tu4|whm] \")' character(len=*), public, parameter :: HELP_MSG = USAGE_MSG integer(kind=I4B), public, parameter :: ELLIPSE = -1 Symbolic names for orbit types - ellipse integer(kind=I4B), public, parameter :: PARABOLA = 0 Symbolic names for orbit types - parabola integer(kind=I4B), public, parameter :: HYPERBOLA = 1 Symbolic names for orbit types - hyperbola integer(kind=I4B), public, parameter :: ACTIVE = 0 Symbolic names for body/particle status codes: integer(kind=I4B), public, parameter :: INACTIVE = 1 integer(kind=I4B), public, parameter :: DISCARDED_RMAX = -1 integer(kind=I4B), public, parameter :: DISCARDED_RMIN = -2 integer(kind=I4B), public, parameter :: DISCARDED_RMAXU = -3 integer(kind=I4B), public, parameter :: DISCARDED_PERI = -4 integer(kind=I4B), public, parameter :: DISCARDED_PLR = -5 integer(kind=I4B), public, parameter :: DISCARDED_PLQ = -6 integer(kind=I4B), public, parameter :: DISCARDED_DRIFTERR = -7 integer(kind=I4B), public, parameter :: MERGED = -8 integer(kind=I4B), public, parameter :: DISRUPTION = -9 integer(kind=I4B), public, parameter :: SUPERCATASTROPHIC = -10 integer(kind=I4B), public, parameter :: GRAZE_AND_MERGE = -11 integer(kind=I4B), public, parameter :: HIT_AND_RUN = -12 integer(kind=I4B), public, parameter :: COLLISION = -13 integer(kind=I4B), public, parameter :: COLLRESOLVE_REGIME_MERGE = 1 Symbolic names for collisional outcomes from collresolve_resolve: integer(kind=I4B), public, parameter :: COLLRESOLVE_REGIME_DISRUPTION = 2 integer(kind=I4B), public, parameter :: COLLRESOLVE_REGIME_SUPERCATASTROPHIC = 3 integer(kind=I4B), public, parameter :: COLLRESOLVE_REGIME_GRAZE_AND_MERGE = 4 integer(kind=I4B), public, parameter :: COLLRESOLVE_REGIME_HIT_AND_RUN = 5 character(len=*), public, parameter :: ADD = '+1' String labels for body/particle addition/subtraction in discard file character(len=*), public, parameter :: SUB = '-1' integer(kind=I4B), public, parameter :: NDUMPFILES = 2 Standard file names character(len=*), public, parameter, dimension(2) :: DUMP_CB_FILE = ['dump_cb1.bin', 'dump_cb2.bin'] character(len=*), public, parameter, dimension(2) :: DUMP_PL_FILE = ['dump_pl1.bin', 'dump_pl2.bin'] character(len=*), public, parameter, dimension(2) :: DUMP_TP_FILE = ['dump_tp1.bin', 'dump_tp2.bin'] character(len=*), public, parameter, dimension(2) :: DUMP_PARAM_FILE = ['dump_param1.dat', 'dump_param2.dat'] character(len=*), public, parameter :: ENC_OUTFILE = 'encounter.out' Default file names that can be changed by the user in the parameters file character(len=*), public, parameter :: DISCARD_FILE = 'discard.out' character(len=*), public, parameter :: ENERGY_FILE = 'energy.out' character(len=*), public, parameter :: CB_INFILE = 'cb.in' character(len=*), public, parameter :: PL_INFILE = 'pl.in' character(len=*), public, parameter :: TP_INFILE = 'tp.in' character(len=*), public, parameter :: BIN_OUTFILE = 'bin.dat' integer(kind=I4B), public, parameter :: BINUNIT = 20 File unit number for the binary output file integer(kind=I4B), public, parameter :: NDIM = 3 Miscellaneous constants:\n Number of dimensions in our reality integer(kind=I4B), public, parameter :: NDIM2 = 2*NDIM 2x the number of dimensions real(kind=DP), public, parameter :: VSMALL = 2*epsilon(1._DP) Very small number used to prevent floating underflow real(kind=DP), public, parameter :: GC = 6.6743E-11_DP Universal gravitational constant in SI units real(kind=DP), public, parameter :: einsteinC = 299792458.0_DP Speed of light in SI units","tags":"","loc":"module/swiftest_globals.html"},{"title":"swiftest_operators – swiftest","text":"Custom operators, including\n   A .cross. B = Cross product of A(1:3) and B(1:3) Each operator can also do element-wise computation on arrays of the form .mag. A(1:3, 1:n) Interfaces for .cross. operator Interfaces for .mag. operator Uses swiftest_globals module~~swiftest_operators~~UsesGraph module~swiftest_operators swiftest_operators module~swiftest_globals swiftest_globals module~swiftest_operators->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by Descendants: s_operator_mag s_operator_cross module~~swiftest_operators~~UsedByGraph module~swiftest_operators swiftest_operators module~s_operator_cross s_operator_cross module~s_operator_cross->module~swiftest_operators module~swiftest swiftest module~s_operator_cross->module~swiftest module~swiftest->module~swiftest_operators module~s_operator_mag s_operator_mag module~s_operator_mag->module~swiftest_operators module~s_setup s_setup module~s_setup->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~swiftest module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_util_coord s_util_coord module~s_util_coord->module~swiftest module~s_util_set s_util_set module~s_util_set->module~swiftest module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_util_rescale s_util_rescale module~s_util_rescale->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~s_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_whm_util s_whm_util module~s_whm_util->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~swiftest module~s_symba_setup s_symba_setup module~s_symba_setup->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_helio_kick s_helio_kick module~s_helio_kick->module~swiftest module~s_symba_collision s_symba_collision module~s_symba_collision->module~swiftest module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~whm_drift whm_drift module~whm_drift->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~swiftest module~s_eucl s_eucl module~s_eucl->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_fragmentation s_fragmentation module~s_fragmentation->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_symba_fragmentation s_symba_fragmentation module~s_symba_fragmentation->module~swiftest module~s_whm_step s_whm_step module~s_whm_step->module~swiftest module~s_helio_coord s_helio_coord module~s_helio_coord->module~swiftest module~s_util_peri s_util_peri module~s_util_peri->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~swiftest module~s_util_exit s_util_exit module~s_util_exit->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~swiftest 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces operator(.cross.) operator(.mag.) Interfaces public interface operator(.cross.) public pure function operator_cross_sp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: A real(kind=SP), intent(in), dimension(:) :: B Return Value real(kind=SP),\n  dimension(3) public pure function operator_cross_dp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: A real(kind=DP), intent(in), dimension(:) :: B Return Value real(kind=DP),\n  dimension(3) public pure function operator_cross_qp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:) :: A real(kind=QP), intent(in), dimension(:) :: B Return Value real(kind=QP),\n  dimension(3) public pure function operator_cross_i1b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I1B), intent(in), dimension(:) :: A integer(kind=I1B), intent(in), dimension(:) :: B Return Value integer(kind=I1B),\n  dimension(3) public pure function operator_cross_i2b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I2B), intent(in), dimension(:) :: A integer(kind=I2B), intent(in), dimension(:) :: B Return Value integer(kind=I2B),\n  dimension(3) public pure function operator_cross_i4b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:) :: A integer(kind=I4B), intent(in), dimension(:) :: B Return Value integer(kind=I4B),\n  dimension(3) public pure function operator_cross_i8b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in), dimension(:) :: A integer(kind=I8B), intent(in), dimension(:) :: B Return Value integer(kind=I8B),\n  dimension(3) public pure function operator_cross_el_sp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:,:) :: A real(kind=SP), intent(in), dimension(:,:) :: B Return Value real(kind=SP),\n  dimension(:,:), allocatable public pure function operator_cross_el_dp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A real(kind=DP), intent(in), dimension(:,:) :: B Return Value real(kind=DP),\n  dimension(:,:), allocatable public pure function operator_cross_el_qp(A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:,:) :: B Return Value real(kind=QP),\n  dimension(:,:), allocatable public pure function operator_cross_el_i1b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I1B), intent(in), dimension(:,:) :: A integer(kind=I1B), intent(in), dimension(:,:) :: B Return Value integer(kind=I1B),\n  dimension(:,:), allocatable public pure function operator_cross_el_i2b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I2B), intent(in), dimension(:,:) :: A integer(kind=I2B), intent(in), dimension(:,:) :: B Return Value integer(kind=I2B),\n  dimension(:,:), allocatable public pure function operator_cross_el_i4b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:,:) :: A integer(kind=I4B), intent(in), dimension(:,:) :: B Return Value integer(kind=I4B),\n  dimension(:,:), allocatable public pure function operator_cross_el_i8b(A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in), dimension(:,:) :: A integer(kind=I8B), intent(in), dimension(:,:) :: B Return Value integer(kind=I8B),\n  dimension(:,:), allocatable public interface operator(.mag.) public pure function operator_mag_sp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: A Return Value real(kind=SP) public pure function operator_mag_dp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: A Return Value real(kind=DP) public pure function operator_mag_qp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:) :: A Return Value real(kind=QP) public pure function operator_mag_el_sp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:,:) :: A Return Value real(kind=SP),\n  dimension(:), allocatable public pure function operator_mag_el_dp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A Return Value real(kind=DP),\n  dimension(:), allocatable public pure function operator_mag_el_qp(A) result(B) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A Return Value real(kind=QP),\n  dimension(:), allocatable","tags":"","loc":"module/swiftest_operators.html"},{"title":"helio_classes – swiftest","text":"Definition of classes and methods specific to the Democratic Heliocentric Method\n Adapted from David E. Kaufmann's Swifter routine: helio.f90 helio_nbody_system class definitions and method interfaces helio_cb class definitions and method interfaces helio_pl class definitions and method interfaces Helio massive body particle class helio_tp class definitions and method interfaces Helio test particle class Uses swiftest_globals swiftest_classes whm_classes module~~helio_classes~~UsesGraph module~helio_classes helio_classes module~swiftest_globals swiftest_globals module~helio_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~helio_classes->module~swiftest_classes module~whm_classes whm_classes module~helio_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by Descendants: s_helio_coord s_helio_drift s_helio_gr s_helio_kick s_helio_step module~~helio_classes~~UsedByGraph module~helio_classes helio_classes module~s_helio_coord s_helio_coord module~s_helio_coord->module~helio_classes module~swiftest swiftest module~s_helio_coord->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~helio_classes module~s_helio_drift->module~swiftest module~s_helio_kick s_helio_kick module~s_helio_kick->module~helio_classes module~s_helio_kick->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~helio_classes module~s_helio_gr->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~helio_classes module~s_helio_step->module~swiftest module~swiftest->module~helio_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~symba_classes->module~helio_classes module~s_setup s_setup module~s_setup->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~swiftest module~s_symba_encounter_check->module~symba_classes module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_util_coord s_util_coord module~s_util_coord->module~swiftest module~s_util_set s_util_set module~s_util_set->module~swiftest module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_symba_drift->module~symba_classes module~s_util_rescale s_util_rescale module~s_util_rescale->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~s_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_symba_kick->module~symba_classes module~s_whm_util s_whm_util module~s_whm_util->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_symba_setup s_symba_setup module~s_symba_setup->module~swiftest module~s_symba_setup->module~symba_classes module~s_operator_cross s_operator_cross module~s_operator_cross->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_symba_collision s_symba_collision module~s_symba_collision->module~swiftest module~s_symba_collision->module~symba_classes module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_symba_discard->module~symba_classes module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_symba_util->module~symba_classes module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_symba_io->module~symba_classes module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~whm_drift whm_drift module~whm_drift->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_eucl s_eucl module~s_eucl->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_fragmentation s_fragmentation module~s_fragmentation->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_symba_fragmentation s_symba_fragmentation module~s_symba_fragmentation->module~swiftest module~s_symba_fragmentation->module~symba_classes module~s_whm_step s_whm_step module~s_whm_step->module~swiftest module~s_util_peri s_util_peri module~s_util_peri->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~swiftest module~s_symba_step->module~symba_classes module~s_util_exit s_util_exit module~s_util_exit->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~swiftest 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces helio_coord_vb2vh_pl helio_coord_vb2vh_tp helio_coord_vh2vb_pl helio_coord_vh2vb_tp helio_drift_body helio_drift_pl helio_drift_tp helio_drift_linear_pl helio_drift_linear_tp helio_gr_kick_getacch_pl helio_gr_kick_getacch_tp helio_gr_p4_pl helio_gr_p4_tp helio_kick_getacch_pl helio_kick_getacch_tp helio_kick_vb_pl helio_kick_vb_tp helio_step_pl helio_step_system helio_step_tp Derived Types helio_nbody_system helio_cb helio_pl helio_tp Interfaces interface public module subroutine helio_coord_vb2vh_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine helio_coord_vb2vh_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body interface public module subroutine helio_coord_vh2vb_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine helio_coord_vh2vb_tp(self, vbcb) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body interface public module subroutine helio_drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class(swiftest_body), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize interface public module subroutine helio_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize interface public module subroutine helio_drift_tp(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize interface public module subroutine helio_drift_linear_pl(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( helio_cb ), intent(inout) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step interface public module subroutine helio_drift_linear_tp(self, cb, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( helio_cb ), intent(in) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step interface public module subroutine helio_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters interface public module subroutine helio_gr_kick_getacch_tp(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters interface public pure module subroutine helio_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size interface public pure module subroutine helio_gr_p4_tp(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size interface public module subroutine helio_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step interface public module subroutine helio_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step interface public module subroutine helio_kick_vb_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. interface public module subroutine helio_kick_vb_tp(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. interface public module subroutine helio_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize interface public module subroutine helio_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_nbody_system ), intent(inout) :: self Helio nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize interface public module subroutine helio_step_tp(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsizee Derived Types type, public, extends( whm_nbody_system ) :: helio_nbody_system Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure class( swiftest_pl ), public, allocatable :: pl_discards Discarded massive body particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number Type-Bound Procedures procedure, public :: discard => discard_system Perform a discard step on the system procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time procedure, public :: dump => io_dump_system Dump the state of the system to a file procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file procedure, public :: write_discard => io_write_discard Write out information about discarded test particles procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum procedure, public :: rescale => util_rescale_system Rescales the system into a new set of units procedure, public :: validate_ids => util_valid_id_system Validate the numerical ids passed to the system and save the maximum value procedure, public :: initialize => whm_setup_initialize_system Replace the abstract procedures with concrete ones\n Performs WHM-specific initilization steps, like calculating the Jacobi masses procedure, public :: step => helio_step_system Advance the Helio nbody system forward in time by one step type, public, extends( swiftest_cb ) :: helio_cb Helio central body particle class Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: ptbeg negative barycentric velocity of the central body at the beginning of time step real(kind=DP), public, dimension(NDIM) :: ptend negative barycentric velocity of the central body at the end of time step Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body type, public, extends( swiftest_pl ) :: helio_pl Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: setup => setup_pl A base constructor that sets the number of bodies and allocates and initializes all arrays procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body procedure, public :: append => util_append_pl Appends elements from one structure to another procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) procedure, public :: fill => util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: resize => util_resize_pl Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. procedure, public :: set_mu => util_set_mu_pl Method used to construct the vectorized form of the central body mass procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body procedure, public :: sort => util_sort_pl Sorts body arrays by a sortable component procedure, public :: rearrange => util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure, public :: vh2vb => helio_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) procedure, public :: vb2vh => helio_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) procedure, public :: drift => helio_drift_pl Method for Danby drift in Democratic Heliocentric coordinates procedure, public :: lindrift => helio_drift_linear_pl Method for linear drift of massive bodies due to barycentric momentum of Sun procedure, public :: accel_gr => helio_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => helio_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction procedure, public :: accel => helio_kick_getacch_pl Compute heliocentric accelerations of massive bodies procedure, public :: kick => helio_kick_vb_pl Kicks the barycentric velocities procedure, public :: step => helio_step_pl Steps the body forward one stepsize type, public, extends( swiftest_tp ) :: helio_tp Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: discard => discard_tp Check to see if test particles should be discarded based on their positions relative to the massive bodies procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: setup => setup_tp A base constructor that sets the number of bodies and procedure, public :: append => util_append_tp Appends elements from one structure to another procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) procedure, public :: fill => util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles procedure, public :: resize => util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass procedure, public :: sort => util_sort_tp Sorts body arrays by a sortable component procedure, public :: rearrange => util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure, public :: vh2vb => helio_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) procedure, public :: vb2vh => helio_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) procedure, public :: lindrift => helio_drift_linear_tp Method for linear drift of massive bodies due to barycentric momentum of Sun procedure, public :: drift => helio_drift_tp Method for Danby drift in Democratic Heliocentric coordinates procedure, public :: accel_gr => helio_gr_kick_getacch_tp Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => helio_gr_p4_tp Position kick due to p**4 term in the post-Newtonian correction procedure, public :: accel => helio_kick_getacch_tp Compute heliocentric accelerations of massive bodies procedure, public :: kick => helio_kick_vb_tp Kicks the barycentric velocities procedure, public :: step => helio_step_tp Steps the body forward one stepsize","tags":"","loc":"module/helio_classes.html"},{"title":"whm_classes – swiftest","text":"Definition of classes and methods specific to the Democratic Heliocentric Method\n Partially adapted from David E. Kaufmann's Swifter module: module_whm.f90 whm_cb class definitions and method interfaces whm_pl class definitions and method interfaces whm_tp class definitions and method interfaces WHM test particle class whm_nbody_system class definitions and method interfaces Uses swiftest_globals swiftest_classes module~~whm_classes~~UsesGraph module~whm_classes whm_classes module~swiftest_globals swiftest_globals module~whm_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~swiftest_classes->module~swiftest_globals 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by Descendants: s_whm_coord s_whm_gr s_whm_kick s_whm_setup s_whm_step s_whm_util whm_drift module~~whm_classes~~UsedByGraph module~whm_classes whm_classes module~whm_drift whm_drift module~whm_drift->module~whm_classes module~swiftest swiftest module~whm_drift->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~whm_classes module~s_whm_coord->module~swiftest module~s_whm_step s_whm_step module~s_whm_step->module~whm_classes module~s_whm_step->module~swiftest module~helio_classes helio_classes module~helio_classes->module~whm_classes module~s_whm_util s_whm_util module~s_whm_util->module~whm_classes module~s_whm_util->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~whm_classes module~s_whm_setup->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~whm_classes module~s_whm_kick->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~whm_classes module~s_whm_gr->module~swiftest module~swiftest->module~whm_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~rmvs_classes->module~whm_classes module~s_setup s_setup module~s_setup->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~swiftest module~s_symba_encounter_check->module~symba_classes module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_rmvs_kick->module~rmvs_classes module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~swiftest module~s_rmvs_chk->module~rmvs_classes module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_util_coord s_util_coord module~s_util_coord->module~swiftest module~s_util_set s_util_set module~s_util_set->module~swiftest module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_symba_drift->module~symba_classes module~s_util_rescale s_util_rescale module~s_util_rescale->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest module~s_rmvs_discard->module~rmvs_classes proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~s_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_symba_kick->module~symba_classes module~s_helio_drift s_helio_drift module~s_helio_drift->module~helio_classes module~s_helio_drift->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_operator_cross s_operator_cross module~s_operator_cross->module~swiftest module~s_symba_setup s_symba_setup module~s_symba_setup->module~swiftest module~s_symba_setup->module~symba_classes program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest module~s_helio_kick s_helio_kick module~s_helio_kick->module~helio_classes module~s_helio_kick->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_symba_collision s_symba_collision module~s_symba_collision->module~swiftest module~s_symba_collision->module~symba_classes module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_symba_discard->module~symba_classes module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_symba_util->module~symba_classes module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest module~s_rmvs_step->module~rmvs_classes module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_symba_io->module~symba_classes module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~s_rmvs_util->module~rmvs_classes module~s_io s_io module~s_io->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~helio_classes module~s_helio_gr->module~swiftest module~s_eucl s_eucl module~s_eucl->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_fragmentation s_fragmentation module~s_fragmentation->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_symba_fragmentation s_symba_fragmentation module~s_symba_fragmentation->module~swiftest module~s_symba_fragmentation->module~symba_classes module~s_helio_coord s_helio_coord module~s_helio_coord->module~helio_classes module~s_helio_coord->module~swiftest module~s_util_peri s_util_peri module~s_util_peri->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~s_rmvs_setup->module~rmvs_classes module~s_discard s_discard module~s_discard->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~swiftest module~s_symba_step->module~symba_classes module~s_helio_step s_helio_step module~s_helio_step->module~helio_classes module~s_helio_step->module~swiftest module~s_util_exit s_util_exit module~s_util_exit->module~swiftest module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces whm_coord_h2j_pl whm_coord_j2h_pl whm_coord_vh2vj_pl whm_drift_pl whm_kick_getacch_pl whm_kick_getacch_tp whm_kick_vh_pl whm_kick_vh_tp whm_gr_kick_getacch_pl whm_gr_kick_getacch_tp whm_gr_p4_pl whm_gr_p4_tp whm_setup_pl whm_setup_initialize_system whm_step_pl whm_step_system whm_step_tp whm_util_append_pl whm_util_spill_pl whm_util_fill_pl whm_util_resize_pl whm_util_set_ir3j whm_util_set_mu_eta_pl whm_util_sort_pl whm_util_sort_rearrange_pl Derived Types whm_cb whm_pl whm_tp whm_nbody_system Interfaces interface public module subroutine whm_coord_h2j_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree interface public module subroutine whm_coord_j2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree interface public module subroutine whm_coord_vh2vj_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree interface public module subroutine whm_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize interface public module subroutine whm_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Get heliocentric accelration of massive bodies Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step interface public module subroutine whm_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Get heliocentric accelration of the test particle Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step interface public module subroutine whm_kick_vh_pl(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. interface public module subroutine whm_kick_vh_tp(self, system, param, t, dt, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. interface public module subroutine whm_gr_kick_getacch_pl(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters interface public module subroutine whm_gr_kick_getacch_tp(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters interface public pure module subroutine whm_gr_p4_pl(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size interface public pure module subroutine whm_gr_p4_tp(self, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size interface public module subroutine whm_setup_pl(self, n, param) Implementation → Reads WHM massive body object in from file Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body objectobject integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameters interface public module subroutine whm_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters interface public module subroutine whm_step_pl(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize interface public module subroutine whm_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize interface public module subroutine whm_step_tp(self, system, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize interface public module subroutine whm_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine whm_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine whm_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: inserts inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module subroutine whm_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine whm_util_set_ir3j(self) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object interface public module subroutine whm_util_set_mu_eta_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine whm_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order interface public module subroutine whm_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) Derived Types type, public, extends( swiftest_cb ) :: whm_cb Swiftest central body particle class Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body type, public, extends( swiftest_pl ) :: whm_pl WHM massive body particle class Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl real(kind=DP), public, dimension(:), allocatable :: eta Jacobi mass real(kind=DP), public, dimension(:,:), allocatable :: xj Jacobi position real(kind=DP), public, dimension(:,:), allocatable :: vj Jacobi velocity real(kind=DP), public, dimension(:), allocatable :: muj Jacobi mu: GMcb * eta(i) / eta(i - 1) real(kind=DP), public, dimension(:), allocatable :: ir3j Third term of heliocentric acceleration\n Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the\n    component list, such as whm_setup_pl and whm_util_spill_pl Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body procedure, public :: h2j => whm_coord_h2j_pl Convert position and velcoity vectors from heliocentric to Jacobi coordinates procedure, public :: j2h => whm_coord_j2h_pl Convert position and velcoity vectors from Jacobi to helliocentric coordinates procedure, public :: vh2vj => whm_coord_vh2vj_pl Convert velocity vectors from heliocentric to Jacobi coordinates procedure, public :: drift => whm_drift_pl Loop through massive bodies and call Danby drift routine to jacobi coordinates procedure, public :: accel_gr => whm_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => whm_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction procedure, public :: accel => whm_kick_getacch_pl Compute heliocentric accelerations of massive bodies procedure, public :: kick => whm_kick_vh_pl Kick heliocentric velocities of massive bodies procedure, public :: append => whm_util_append_pl Appends elements from one structure to another procedure, public :: fill => whm_util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: resize => whm_util_resize_pl Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: set_ir3 => whm_util_set_ir3j Sets both the heliocentric and jacobi inverse radius terms (1/rj 3 and 1/rh 3) procedure, public :: set_mu => whm_util_set_mu_eta_pl Sets the Jacobi mass value for all massive bodies. procedure, public :: sort => whm_util_sort_pl Sort a WHM massive body object in-place. procedure, public :: rearrange => whm_util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => whm_util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure, public :: setup => whm_setup_pl Constructor method - Allocates space for the input number of bodiess procedure, public :: step => whm_step_pl Steps the body forward one stepsize type, public, extends( swiftest_tp ) :: whm_tp Note to developers: If you add componenets to this class, be sure to update methods and subroutines that traverse the\n    component list, such as whm_util_spill_tp Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: discard => discard_tp Check to see if test particles should be discarded based on their positions relative to the massive bodies procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: setup => setup_tp A base constructor that sets the number of bodies and procedure, public :: append => util_append_tp Appends elements from one structure to another procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) procedure, public :: fill => util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles procedure, public :: resize => util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass procedure, public :: sort => util_sort_tp Sorts body arrays by a sortable component procedure, public :: rearrange => util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure, public :: accel_gr => whm_gr_kick_getacch_tp Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => whm_gr_p4_tp Position kick due to p**4 term in the post-Newtonian correction procedure, public :: accel => whm_kick_getacch_tp Compute heliocentric accelerations of test particles procedure, public :: kick => whm_kick_vh_tp Kick heliocentric velocities of test particles procedure, public :: step => whm_step_tp Steps the particle forward one stepsize type, public, extends( swiftest_nbody_system ) :: whm_nbody_system An abstract class for the WHM integrator nbody system Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure class( swiftest_pl ), public, allocatable :: pl_discards Discarded massive body particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number Type-Bound Procedures procedure, public :: discard => discard_system Perform a discard step on the system procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time procedure, public :: dump => io_dump_system Dump the state of the system to a file procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file procedure, public :: write_discard => io_write_discard Write out information about discarded test particles procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum procedure, public :: rescale => util_rescale_system Rescales the system into a new set of units procedure, public :: validate_ids => util_valid_id_system Validate the numerical ids passed to the system and save the maximum value procedure, public :: initialize => whm_setup_initialize_system Replace the abstract procedures with concrete ones\n Performs WHM-specific initilization steps, like calculating the Jacobi masses procedure, public :: step => whm_step_system Advance the WHM nbody system forward in time by one step","tags":"","loc":"module/whm_classes.html"},{"title":"symba_classes – swiftest","text":"Definition of classes and methods specific to the Democratic SyMBAcentric Method\n Adapted from David E. Kaufmann's Swifter routine: helio.f90 symba_particle_info class definitions and method interfaces symba_kinship class definitions and method interfaces symba_cb class definitions and method interfaces symba_pl class definitions and method interfaces symba_tp class definitions and method interfaces symba_pltpenc class definitions and method interfaces symba_plplenc class definitions and method interfaces symba_nbody_system class definitions and method interfaces Uses swiftest_globals swiftest_classes helio_classes rmvs_classes module~~symba_classes~~UsesGraph module~symba_classes symba_classes module~swiftest_globals swiftest_globals module~symba_classes->module~swiftest_globals module~helio_classes helio_classes module~symba_classes->module~helio_classes module~swiftest_classes swiftest_classes module~symba_classes->module~swiftest_classes module~rmvs_classes rmvs_classes module~symba_classes->module~rmvs_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~whm_classes whm_classes module~helio_classes->module~whm_classes module~swiftest_classes->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by Descendants: s_symba_collision s_symba_discard s_symba_drift s_symba_encounter_check s_symba_fragmentation s_symba_io s_symba_kick s_symba_setup s_symba_step s_symba_util module~~symba_classes~~UsedByGraph module~symba_classes symba_classes module~s_symba_io s_symba_io module~s_symba_io->module~symba_classes module~swiftest swiftest module~s_symba_io->module~swiftest module~s_symba_kick s_symba_kick module~s_symba_kick->module~symba_classes module~s_symba_kick->module~swiftest module~s_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~symba_classes module~s_symba_encounter_check->module~swiftest module~s_symba_fragmentation s_symba_fragmentation module~s_symba_fragmentation->module~symba_classes module~s_symba_fragmentation->module~swiftest module~s_symba_setup s_symba_setup module~s_symba_setup->module~symba_classes module~s_symba_setup->module~swiftest module~s_symba_collision s_symba_collision module~s_symba_collision->module~symba_classes module~s_symba_collision->module~swiftest module~s_symba_drift s_symba_drift module~s_symba_drift->module~symba_classes module~s_symba_drift->module~swiftest module~s_symba_discard s_symba_discard module~s_symba_discard->module~symba_classes module~s_symba_discard->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~symba_classes module~s_symba_step->module~swiftest module~s_symba_util s_symba_util module~s_symba_util->module~symba_classes module~s_symba_util->module~swiftest module~swiftest->module~symba_classes module~s_setup s_setup module~s_setup->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_util_coord s_util_coord module~s_util_coord->module~swiftest module~s_util_set s_util_set module~s_util_set->module~swiftest module~s_util_rescale s_util_rescale module~s_util_rescale->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~s_whm_util s_whm_util module~s_whm_util->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~swiftest module~s_operator_cross s_operator_cross module~s_operator_cross->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_helio_kick s_helio_kick module~s_helio_kick->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~whm_drift whm_drift module~whm_drift->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~swiftest module~s_eucl s_eucl module~s_eucl->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_fragmentation s_fragmentation module~s_fragmentation->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_whm_step s_whm_step module~s_whm_step->module~swiftest module~s_helio_coord s_helio_coord module~s_helio_coord->module~swiftest module~s_util_peri s_util_peri module~s_util_peri->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~swiftest module~s_util_exit s_util_exit module~s_util_exit->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~swiftest 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Variables NENMAX NTENC RHSCALE RSHELL PARTICLE_OUTFILE PARTICLEUNIT Interfaces symba_encounter_check_pl symba_encounter_check_pltpenc symba_encounter_check_tp symba_fragmentation_casedisruption symba_fragmentation_casehitandrun symba_fragmentation_casemerge symba_fragmentation_casesupercatastrophic symba_collision_check_pltpenc symba_collision_encounter_scrub symba_collision_make_family_pl symba_collision_resolve_fragmentations symba_collision_resolve_mergers symba_discard_pl symba_drift_pl symba_drift_tp symba_encounter_check_one symba_io_write_discard symba_io_dump_particle_info symba_io_param_reader symba_io_param_writer symba_io_read_particle symba_kick_getacch_pl symba_kick_getacch_tp symba_kick_pltpenc symba_setup_initialize_particle_info symba_setup_initialize_system symba_setup_merger symba_setup_pl symba_setup_pltpenc symba_setup_tp symba_step_system symba_step_interp_system symba_step_set_recur_levels_system symba_step_recur_system symba_step_reset_system util_append symba_util_append_merger symba_util_append_pl symba_util_append_tp util_fill symba_util_fill_pl symba_util_fill_tp symba_util_peri_pl symba_util_rearray_pl util_resize symba_util_resize_merger symba_util_resize_pl symba_util_resize_tp symba_util_sort_pl symba_util_sort_tp symba_util_sort_rearrange_pl symba_util_sort_rearrange_tp util_spill symba_util_spill_pl symba_util_spill_pltpenc symba_util_spill_tp Derived Types symba_parameters symba_particle_info symba_kinship symba_cb symba_pl symba_merger symba_tp symba_pltpenc symba_plplenc symba_nbody_system Variables Type Visibility Attributes Name Initial integer(kind=I4B), private, parameter :: NENMAX = 32767 integer(kind=I4B), private, parameter :: NTENC = 3 real(kind=DP), private, parameter :: RHSCALE = 6.5_DP real(kind=DP), private, parameter :: RSHELL = 0.48075_DP character(len=*), public, parameter :: PARTICLE_OUTFILE = 'particle.dat' integer(kind=I4B), public, parameter :: PARTICLEUNIT = 44 File unit number for the binary particle info output file Interfaces interface public module function symba_encounter_check_pl(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter interface public module function symba_encounter_check_pltpenc(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-pl encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter interface public module function symba_encounter_check_tp(self, system, dt, irec) result(lany_encounter) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter interface public module function symba_fragmentation_casedisruption(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collisionn Return Value integer(kind=I4B) Status flag assigned to this outcome interface public module function symba_fragmentation_casehitandrun(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome interface public module function symba_fragmentation_casemerge(system, param, family, x, v, mass, radius, L_spin, Ip) result(status) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(in), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collisio real(kind=DP), intent(in), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collisio real(kind=DP), intent(in), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision Return Value integer(kind=I4B) Status flag assigned to this outcome interface public module function symba_fragmentation_casesupercatastrophic(system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome interface public module subroutine symba_collision_check_pltpenc(self, system, param, t, dt, irec) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t current time real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level interface public module subroutine symba_collision_encounter_scrub(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameterss interface public module subroutine symba_collision_make_family_pl(self, idx) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(2) :: idx Array holding the indices of the two bodies involved in the collision interface public module subroutine symba_collision_resolve_fragmentations(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions interface public module subroutine symba_collision_resolve_mergers(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions interface public module subroutine symba_discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters interface public module subroutine symba_drift_pl(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize interface public module subroutine symba_drift_tp(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize interface public pure elemental module subroutine symba_encounter_check_one(xr, yr, zr, vxr, vyr, vzr, rhill1, rhill2, dt, irec, lencounter, lvdotr) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: xr real(kind=DP), intent(in) :: yr real(kind=DP), intent(in) :: zr real(kind=DP), intent(in) :: vxr real(kind=DP), intent(in) :: vyr real(kind=DP), intent(in) :: vzr real(kind=DP), intent(in) :: rhill1 real(kind=DP), intent(in) :: rhill2 real(kind=DP), intent(in) :: dt integer(kind=I4B), intent(in) :: irec logical, intent(out) :: lencounter logical, intent(out) :: lvdotr interface public module subroutine symba_io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine symba_io_dump_particle_info(system, param, lincludecb, tpidx, plidx) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA extensions logical, intent(in), optional :: lincludecb Set to true to include the central body (default is false) integer(kind=I4B), intent(in), optional dimension(:) :: tpidx Array of test particle indices to append to the particle file integer(kind=I4B), intent(in), optional dimension(:) :: plidx Array of massive body indices to append to the particle file interface public module subroutine symba_io_param_reader(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(inout) :: self Current run configuration parameters with SyMBA additionss integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) The first element passes the integrator code to the reader integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 interface public module subroutine symba_io_param_writer(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(in) :: self Current run configuration parameters with SyMBA additions integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) Not used in this procedure integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 interface public module subroutine symba_io_read_particle(system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system file class( symba_parameters ), intent(inout) :: param Current run configuration parameters with SyMBA extensions interface public module subroutine symba_kick_getacch_pl(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step interface public module subroutine symba_kick_getacch_tp(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step interface public module subroutine symba_kick_pltpenc(self, system, dt, irec, sgn) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(in) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level integer(kind=I4B), intent(in) :: sgn sign to be applied to acceleration interface public module subroutine symba_setup_initialize_particle_info(system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(inout) :: param Current run configuration parameters with SyMBA extensions interface public module subroutine symba_setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters interface public module subroutine symba_setup_merger(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA merger list object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine symba_setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine symba_setup_pltpenc(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for interface public module subroutine symba_setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter interface public module subroutine symba_step_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize interface public module subroutine symba_step_interp_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize interface public module subroutine symba_step_set_recur_levels_system(self, ireci) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system objec integer(kind=I4B), intent(in) :: ireci Input recursion level interface public recursive module subroutine symba_step_recur_system(self, param, t, ireci) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), value :: t integer(kind=I4B), value :: ireci input recursion level interface public module subroutine symba_step_reset_system(self) Implementation → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object public interface util_append public subroutine symba_util_append_arr_info(arr, source, nold, nsrc, lsource_mask) Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: arr Destination array type( symba_particle_info ), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine symba_util_append_arr_kin(arr, source, nold, nsrc, lsource_mask) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Destination array type( symba_kinship ), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine symba_util_append_merger(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine symba_util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine symba_util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to public interface util_fill public subroutine symba_util_fill_arr_info(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_particle_info ), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine symba_util_fill_arr_kin(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_kinship ), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module subroutine symba_util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module subroutine symba_util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module subroutine symba_util_peri_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine symba_util_rearray_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions public interface util_resize public subroutine symba_util_resize_arr_info(arr, nnew) Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine symba_util_resize_arr_kin(arr, nnew) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size interface public module subroutine symba_util_resize_merger(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA merger list object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine symba_util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine symba_util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine symba_util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order interface public module subroutine symba_util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order interface public module subroutine symba_util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) interface public module subroutine symba_util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) public interface util_spill public subroutine symba_util_spill_arr_info(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_particle_info ), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine symba_util_spill_arr_kin(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_kinship ), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine symba_util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine symba_util_spill_pltpenc(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list interface public module subroutine symba_util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not Derived Types type, public, extends( swiftest_parameters ) :: symba_parameters Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: integrator = UNKNOWN_INTEGRATOR Symbolic name of the nbody integrator  used integer(kind=I4B), public :: nplmax = -1 Maximum allowed number of massive bodies integer(kind=I4B), public :: ntpmax = -1 Maximum allowed number of test particles real(kind=DP), public :: t0 = -1.0_DP Integration start time real(kind=DP), public :: t = -1.0_DP Integration current time real(kind=DP), public :: tstop = -1.0_DP Integration stop time real(kind=DP), public :: dt = -1.0_DP Time step character(len=STRMAX), public :: incbfile = CB_INFILE Name of input file for the central body character(len=STRMAX), public :: inplfile = PL_INFILE Name of input file for massive bodies character(len=STRMAX), public :: intpfile = TP_INFILE Name of input file for test particles character(len=STRMAX), public :: in_type = ASCII_TYPE Format of input data files integer(kind=I4B), public :: istep_out = -1 Number of time steps between binary outputs character(len=STRMAX), public :: outfile = BIN_OUTFILE Name of output binary file character(len=STRMAX), public :: out_type = REAL8_TYPE Binary format of output file character(len=STRMAX), public :: out_form = XV Data to write to output file character(len=STRMAX), public :: out_stat = 'NEW' Open status for output binary file integer(kind=I4B), public :: istep_dump = -1 Number of time steps between dumps real(kind=DP), public :: rmin = -1.0_DP Minimum heliocentric radius for test particle real(kind=DP), public :: rmax = -1.0_DP Maximum heliocentric radius for test particle real(kind=DP), public :: rmaxu = -1.0_DP Maximum unbound heliocentric radius for test particle real(kind=DP), public :: qmin = -1.0_DP Minimum pericenter distance for test particle character(len=STRMAX), public :: qmin_coord = 'HELIO' Coordinate frame to use for qmin real(kind=DP), public :: qmin_alo = -1.0_DP Minimum semimajor axis for qmin real(kind=DP), public :: qmin_ahi = -1.0_DP Maximum semimajor axis for qmin character(len=STRMAX), public :: enc_out = \"\" Name of output file for encounters character(len=STRMAX), public :: discard_out = \"\" Name of output file for discards real(kind=QP), public :: MU2KG = -1.0_QP Converts mass units to grams real(kind=QP), public :: TU2S = -1.0_QP Converts time units to seconds real(kind=QP), public :: DU2M = -1.0_QP Converts distance unit to centimeters real(kind=DP), public :: GU = -1.0_DP Universal gravitational constant in the system units real(kind=DP), public :: inv_c2 = -1.0_DP Inverse speed of light squared in the system units character(len=STRMAX), public :: energy_out = \"\" Name of output energy and momentum report file logical, public :: lrhill_present = .false. Hill radii are given as an input rather than calculated by the code (can be used to inflate close encounter regions manually) logical, public :: lextra_force = .false. User defined force function turned on logical, public :: lbig_discard = .false. Save big bodies on every discard logical, public :: lclose = .false. Turn on close encounters logical, public :: lenergy = .false. Track the total energy of the system logical, public :: loblatecb = .false. Calculate acceleration from oblate central body (automatically turns true if nonzero J2 is input) logical, public :: lrotation = .false. Include rotation states of big bodies logical, public :: ltides = .false. Include tidal dissipation real(kind=DP), public :: Eorbit_orig = 0.0_DP Initial orbital energy real(kind=DP), public :: Mtot_orig = 0.0_DP Initial system mass real(kind=DP), public :: Lmag_orig = 0.0_DP Initial total angular momentum magnitude real(kind=DP), public, dimension(NDIM) :: Ltot_orig = 0.0_DP Initial total angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lorbit_orig = 0.0_DP Initial orbital angular momentum real(kind=DP), public, dimension(NDIM) :: Lspin_orig = 0.0_DP Initial spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Ltot = 0.0_DP System angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lfirstenergy = .true. This is the first time computing energe logical, public :: lfirstkick = .true. Initiate the first kick in a symplectic step logical, public :: lrestart = .false. Indicates whether or not this is a restarted run logical, public :: lgr = .false. Turn on GR logical, public :: lyarkovsky = .false. Turn on Yarkovsky effect logical, public :: lyorp = .false. Turn on YORP effect character(len=STRMAX), public :: particle_out = PARTICLE_OUTFILE Name of output particle information file real(kind=DP), public :: GMTINY = -1.0_DP Smallest mass that is fully gravitating integer(kind=I4B), public, dimension(:), allocatable :: seed Random seeds logical, public :: lfragmentation = .false. Do fragmentation modeling instead of simple merger. Type-Bound Procedures procedure, public :: dump => io_dump_param procedure, public :: read_from_file => io_read_param_in procedure, public :: reader => symba_io_param_reader procedure, public :: writer => symba_io_param_writer type, public, sequence  :: symba_particle_info Class definition for the particle origin information object. This object is used to track time, location, and collisional regime\n of fragments produced in collisional events. Components Type Visibility Attributes Name Initial character(len=32), public :: origin_type String containing a description of the origin of the particle (e.g. Initial Conditions, Supercatastrophic, Disruption, etc.) real(kind=DP), public :: origin_time The time of the particle's formation real(kind=DP), public, dimension(NDIM) :: origin_xh The heliocentric distance vector at the time of the particle's formation real(kind=DP), public, dimension(NDIM) :: origin_vh The heliocentric velocity vector at the time of the particle's formation type, public :: symba_kinship Class definition for the kinship relationships used in bookkeeping multiple collisions bodies in a single time step. Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: parent Index of parent particle integer(kind=I4B), public :: nchild number of children in merger list integer(kind=I4B), public, dimension(:), allocatable :: child Index of children particles type, public, extends( helio_cb ) :: symba_cb SyMBA central body particle class Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: ptbeg negative barycentric velocity of the central body at the beginning of time step real(kind=DP), public, dimension(NDIM) :: ptend negative barycentric velocity of the central body at the end of time step real(kind=DP), public :: M0 = 0.0_DP Initial mass of the central body real(kind=DP), public :: dM = 0.0_DP Change in mass of the central body real(kind=DP), public :: R0 = 0.0_DP Initial radius of the central body real(kind=DP), public :: dR = 0.0_DP Change in the radius of the central body type( symba_particle_info ), public :: info Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body type, public, extends( helio_pl ) :: symba_pl SyMBA massive body class Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl logical, public, dimension(:), allocatable :: lcollision flag indicating whether body has merged with another this time step logical, public, dimension(:), allocatable :: lencounter flag indicating whether body is part of an encounter this time step logical, public, dimension(:), allocatable :: lmtiny flag indicating whether this body is below the GMTINY cutoff value integer(kind=I4B), public :: nplm number of bodies above the GMTINY limit integer(kind=I8B), public :: nplplm Number of body (all massive)-body (only those above GMTINY) comparisons in the flattened upper triangular matrix integer(kind=I4B), public, dimension(:), allocatable :: nplenc number of encounters with other planets this time step integer(kind=I4B), public, dimension(:), allocatable :: ntpenc number of encounters with test particles this time step integer(kind=I4B), public, dimension(:), allocatable :: levelg level at which this body should be moved integer(kind=I4B), public, dimension(:), allocatable :: levelm deepest encounter level achieved this time step integer(kind=I4B), public, dimension(:), allocatable :: isperi perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp semimajor axis following perihelion passage type( symba_kinship ), public, dimension(:), allocatable :: kin Array of merger relationship structures that can account for multiple pairwise mergers in a single step type( symba_particle_info ), public, dimension(:), allocatable :: info Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. procedure, public :: set_mu => util_set_mu_pl Method used to construct the vectorized form of the central body mass procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body procedure, public :: vh2vb => helio_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) procedure, public :: vb2vh => helio_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) procedure, public :: lindrift => helio_drift_linear_pl Method for linear drift of massive bodies due to barycentric momentum of Sun procedure, public :: accel_gr => helio_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => helio_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction procedure, public :: kick => helio_kick_vb_pl Kicks the barycentric velocities procedure, public :: step => helio_step_pl Steps the body forward one stepsize procedure, public :: make_family => symba_collision_make_family_pl When a single body is involved in more than one collision in a single step, it becomes part of a family procedure, public :: discard => symba_discard_pl Process massive body discards procedure, public :: drift => symba_drift_pl Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level procedure, public :: encounter_check => symba_encounter_check_pl Checks if massive bodies are going through close encounters with each other procedure, public :: accel => symba_kick_getacch_pl Compute heliocentric accelerations of massive bodies procedure, public :: setup => symba_setup_pl Constructor method - Allocates space for the input number of bodies procedure, public :: append => symba_util_append_pl Appends elements from one structure to another procedure, public :: fill => symba_util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: get_peri => symba_util_peri_pl Determine system pericenter passages for massive bodies procedure, public :: rearray => symba_util_rearray_pl Clean up the massive body structures to remove discarded bodies and add new bodies procedure, public :: resize => symba_util_resize_pl Checks the current size of a SyMBA massive body against the requested size and resizes it if it is too small. procedure, public :: sort => symba_util_sort_pl Sorts body arrays by a sortable componen procedure, public :: rearrange => symba_util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => symba_util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) type, public, extends( symba_pl ) :: symba_merger Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl logical, public, dimension(:), allocatable :: lcollision flag indicating whether body has merged with another this time step logical, public, dimension(:), allocatable :: lencounter flag indicating whether body is part of an encounter this time step logical, public, dimension(:), allocatable :: lmtiny flag indicating whether this body is below the GMTINY cutoff value integer(kind=I4B), public :: nplm number of bodies above the GMTINY limit integer(kind=I8B), public :: nplplm Number of body (all massive)-body (only those above GMTINY) comparisons in the flattened upper triangular matrix integer(kind=I4B), public, dimension(:), allocatable :: nplenc number of encounters with other planets this time step integer(kind=I4B), public, dimension(:), allocatable :: ntpenc number of encounters with test particles this time step integer(kind=I4B), public, dimension(:), allocatable :: levelg level at which this body should be moved integer(kind=I4B), public, dimension(:), allocatable :: levelm deepest encounter level achieved this time step integer(kind=I4B), public, dimension(:), allocatable :: isperi perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp semimajor axis following perihelion passage type( symba_kinship ), public, dimension(:), allocatable :: kin Array of merger relationship structures that can account for multiple pairwise mergers in a single step type( symba_particle_info ), public, dimension(:), allocatable :: info integer(kind=I4B), public, dimension(:), allocatable :: ncomp Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. procedure, public :: set_mu => util_set_mu_pl Method used to construct the vectorized form of the central body mass procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body procedure, public :: vh2vb => helio_coord_vh2vb_pl Convert massive bodies from heliocentric to barycentric coordinates (velocity only) procedure, public :: vb2vh => helio_coord_vb2vh_pl Convert massive bodies from barycentric to heliocentric coordinates (velocity only) procedure, public :: lindrift => helio_drift_linear_pl Method for linear drift of massive bodies due to barycentric momentum of Sun procedure, public :: accel_gr => helio_gr_kick_getacch_pl Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => helio_gr_p4_pl Position kick due to p**4 term in the post-Newtonian correction procedure, public :: kick => helio_kick_vb_pl Kicks the barycentric velocities procedure, public :: step => helio_step_pl Steps the body forward one stepsize procedure, public :: make_family => symba_collision_make_family_pl When a single body is involved in more than one collision in a single step, it becomes part of a family procedure, public :: discard => symba_discard_pl Process massive body discards procedure, public :: drift => symba_drift_pl Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level procedure, public :: encounter_check => symba_encounter_check_pl Checks if massive bodies are going through close encounters with each other procedure, public :: accel => symba_kick_getacch_pl Compute heliocentric accelerations of massive bodies procedure, public :: fill => symba_util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: get_peri => symba_util_peri_pl Determine system pericenter passages for massive bodies procedure, public :: rearray => symba_util_rearray_pl Clean up the massive body structures to remove discarded bodies and add new bodies procedure, public :: sort => symba_util_sort_pl Sorts body arrays by a sortable componen procedure, public :: rearrange => symba_util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => symba_util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure, public :: append => symba_util_append_merger Appends elements from one structure to another procedure, public :: resize => symba_util_resize_merger Checks the current size of a SyMBA merger list against the requested size and resizes it if it is too small. procedure, public :: setup => symba_setup_merger Constructor method - Allocates space for the input number of bodies type, public, extends( helio_tp ) :: symba_tp SyMBA test particle class Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp integer(kind=I4B), public, dimension(:), allocatable :: nplenc number of encounters with planets this time step integer(kind=I4B), public, dimension(:), allocatable :: levelg level at which this particle should be moved integer(kind=I4B), public, dimension(:), allocatable :: levelm deepest encounter level achieved this time step type( symba_particle_info ), public, dimension(:), allocatable :: info Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: discard => discard_tp Check to see if test particles should be discarded based on their positions relative to the massive bodies procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass procedure, public :: vh2vb => helio_coord_vh2vb_tp Convert test particles from heliocentric to barycentric coordinates (velocity only) procedure, public :: vb2vh => helio_coord_vb2vh_tp Convert test particles from barycentric to heliocentric coordinates (velocity only) procedure, public :: lindrift => helio_drift_linear_tp Method for linear drift of massive bodies due to barycentric momentum of Sun procedure, public :: accel_gr => helio_gr_kick_getacch_tp Acceleration term arising from the post-Newtonian correction procedure, public :: gr_pos_kick => helio_gr_p4_tp Position kick due to p**4 term in the post-Newtonian correction procedure, public :: kick => helio_kick_vb_tp Kicks the barycentric velocities procedure, public :: step => helio_step_tp Steps the body forward one stepsize procedure, public :: drift => symba_drift_tp Method for Danby drift in Democratic Heliocentric coordinates. Sets the mask to the current recursion level procedure, public :: encounter_check => symba_encounter_check_tp Checks if any test particles are undergoing a close encounter with a massive body procedure, public :: accel => symba_kick_getacch_tp Compute heliocentric accelerations of test particles procedure, public :: setup => symba_setup_tp Constructor method - Allocates space for the input number of bodies procedure, public :: append => symba_util_append_tp Appends elements from one structure to another procedure, public :: fill => symba_util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: resize => symba_util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: sort => symba_util_sort_tp Sorts body arrays by a sortable componen procedure, public :: rearrange => symba_util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => symba_util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) type, public, extends( swiftest_encounter ) :: symba_pltpenc SyMBA class for tracking pl-tp close encounters in a step Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: nenc Total number of encounters logical, public, dimension(:), allocatable :: lvdotr relative vdotr flag integer(kind=I4B), public, dimension(:), allocatable :: status status of the interaction integer(kind=I4B), public, dimension(:), allocatable :: index1 position of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: index2 position of the second body in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x1 the position of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x2 the position of body 2 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v1 the velocity of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v2 the velocity of body 2 in the encounter integer(kind=I4B), public, dimension(:), allocatable :: level encounter recursion level Type-Bound Procedures procedure, public :: copy => util_copy_encounter Copies elements from the source encounter list into self. procedure, public :: resize => util_resize_encounter Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small. procedure, public :: collision_check => symba_collision_check_pltpenc Checks if a test particle is going to collide with a massive body procedure, public :: encounter_check => symba_encounter_check_pltpenc Checks if massive bodies are going through close encounters with each other procedure, public :: kick => symba_kick_pltpenc Kick barycentric velocities of active test particles within SyMBA recursion procedure, public :: setup => symba_setup_pltpenc A constructor that sets the number of encounters and allocates and initializes all arrays procedure, public :: spill => symba_util_spill_pltpenc \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) type, public, extends( symba_pltpenc ) :: symba_plplenc SyMBA class for tracking pl-pl close encounters in a step Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: nenc Total number of encounters logical, public, dimension(:), allocatable :: lvdotr relative vdotr flag integer(kind=I4B), public, dimension(:), allocatable :: status status of the interaction integer(kind=I4B), public, dimension(:), allocatable :: index1 position of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: index2 position of the second body in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x1 the position of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x2 the position of body 2 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v1 the velocity of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v2 the velocity of body 2 in the encounter integer(kind=I4B), public, dimension(:), allocatable :: level encounter recursion level Type-Bound Procedures procedure, public :: copy => util_copy_encounter Copies elements from the source encounter list into self. procedure, public :: resize => util_resize_encounter Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small. procedure, public :: collision_check => symba_collision_check_pltpenc Checks if a test particle is going to collide with a massive body procedure, public :: encounter_check => symba_encounter_check_pltpenc Checks if massive bodies are going through close encounters with each other procedure, public :: kick => symba_kick_pltpenc Kick barycentric velocities of active test particles within SyMBA recursion procedure, public :: setup => symba_setup_pltpenc A constructor that sets the number of encounters and allocates and initializes all arrays procedure, public :: spill => symba_util_spill_pltpenc \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure, public :: scrub_non_collision => symba_collision_encounter_scrub Processes the pl-pl encounter list remove only those encounters that led to a collision procedure, public :: resolve_fragmentations => symba_collision_resolve_fragmentations Process list of collisions, determine the collisional regime, and then create fragments procedure, public :: resolve_mergers => symba_collision_resolve_mergers Process list of collisions and merge colliding bodies together type, public, extends( helio_nbody_system ) :: symba_nbody_system Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure class( swiftest_pl ), public, allocatable :: pl_discards Discarded massive body particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number class( symba_merger ), public, allocatable :: pl_adds List of added bodies in mergers or collisions class( symba_pltpenc ), public, allocatable :: pltpenc_list List of massive body-test particle encounters in a single step class( symba_plplenc ), public, allocatable :: plplenc_list List of massive body-massive body encounters in a single step integer(kind=I4B), public :: irec System recursion level Type-Bound Procedures procedure, public :: discard => discard_system Perform a discard step on the system procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time procedure, public :: dump => io_dump_system Dump the state of the system to a file procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum procedure, public :: rescale => util_rescale_system Rescales the system into a new set of units procedure, public :: validate_ids => util_valid_id_system Validate the numerical ids passed to the system and save the maximum value procedure, public :: write_discard => symba_io_write_discard Write out information about discarded and merged planets and test particles in SyMBA procedure, public :: initialize => symba_setup_initialize_system Performs SyMBA-specific initilization steps procedure, public :: step => symba_step_system Advance the SyMBA nbody system forward in time by one step procedure, public :: interp => symba_step_interp_system Perform an interpolation step on the SymBA nbody system procedure, public :: set_recur_levels => symba_step_set_recur_levels_system Sets recursion levels of bodies and encounter lists to the current system level procedure, public :: recursive_step => symba_step_recur_system Step interacting planets and active test particles ahead in democratic heliocentric coordinates at the current recursion level, if applicable, and descend to the next deeper level if necessary procedure, public :: reset => symba_step_reset_system Resets pl, tp,and encounter structures at the start of a new step","tags":"","loc":"module/symba_classes.html"},{"title":"swiftest – swiftest","text":"This module serves to combine all of the Swiftest project modules under a single umbrella so that they can be accessed from individual submodule implementations with a simple \"use swiftest\" line. Uses swiftest_globals swiftest_operators swiftest_classes whm_classes rmvs_classes helio_classes symba_classes lambda_function Contents None","tags":"","loc":"module/swiftest.html"},{"title":"swiftest_classes – swiftest","text":"Definition of data and structures generic to all integrators.\n Adapted from David E. Kaufmann's Swifter routine: module_swifter.f90 swiftest_parameters class definitions swiftest_base class definitions and methods swiftest_cb class definitions and methods swiftest_body definitions and methods swiftest_pl definitions and methods swiftest_tp definitions and methods swiftest_nbody_system class definitions and methods Uses swiftest_globals module~~swiftest_classes~~UsesGraph module~swiftest_classes swiftest_classes module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by Descendants: drift_implementation s_discard s_eucl s_fragmentation s_gr s_io s_kick s_obl s_orbel s_setup s_tides_kick_getacch s_tides_step_spin s_user_kick_getacch s_util_append s_util_coord s_util_copy s_util_exit s_util_fill s_util_get_energy_momentum s_util_minimize_bfgs s_util_peri s_util_rescale s_util_resize s_util_set s_util_solve s_util_sort s_util_spill s_util_valid s_util_version module~~swiftest_classes~~UsedByGraph module~swiftest_classes swiftest_classes module~s_setup s_setup module~s_setup->module~swiftest_classes module~swiftest swiftest module~s_setup->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest_classes module~drift_implementation->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest_classes module~s_util_get_energy_momentum->module~swiftest module~s_util_coord s_util_coord module~s_util_coord->module~swiftest_classes module~s_util_coord->module~swiftest module~s_util_set s_util_set module~s_util_set->module~swiftest_classes module~s_util_set->module~swiftest module~s_util_rescale s_util_rescale module~s_util_rescale->module~swiftest_classes module~s_util_rescale->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest_classes module~s_util_version->module~swiftest module~whm_classes whm_classes module~whm_classes->module~swiftest_classes module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest_classes module~s_util_minimize_bfgs->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest_classes module~s_gr->module~swiftest module~swiftest->module~swiftest_classes module~swiftest->module~whm_classes module~helio_classes helio_classes module~swiftest->module~helio_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~s_kick s_kick module~s_kick->module~swiftest_classes module~s_kick->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest_classes module~s_util_resize->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest_classes module~s_util_spill->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest_classes module~s_orbel->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest_classes module~s_util_copy->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest_classes module~s_util_valid->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest_classes module~s_tides_step_spin->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest_classes module~s_util_sort->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest_classes module~s_tides_kick_getacch->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest_classes module~s_util_fill->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest_classes module~s_util_solve->module~swiftest module~helio_classes->module~swiftest_classes module~helio_classes->module~whm_classes module~s_io s_io module~s_io->module~swiftest_classes module~s_io->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest_classes module~s_obl->module~swiftest module~s_eucl s_eucl module~s_eucl->module~swiftest_classes module~s_eucl->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest_classes module~s_util_append->module~swiftest module~s_fragmentation s_fragmentation module~s_fragmentation->module~swiftest_classes module~s_fragmentation->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest_classes module~s_user_kick_getacch->module~swiftest module~s_util_peri s_util_peri module~s_util_peri->module~swiftest_classes module~s_util_peri->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest_classes module~s_discard->module~swiftest module~s_util_exit s_util_exit module~s_util_exit->module~swiftest_classes module~s_util_exit->module~swiftest module~symba_classes->module~swiftest_classes module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~s_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~swiftest module~s_symba_encounter_check->module~symba_classes module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_rmvs_kick->module~rmvs_classes module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~swiftest module~s_rmvs_chk->module~rmvs_classes module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_symba_drift->module~symba_classes module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest module~s_rmvs_discard->module~rmvs_classes proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_symba_kick->module~symba_classes module~s_whm_util s_whm_util module~s_whm_util->module~whm_classes module~s_whm_util->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~swiftest module~s_helio_drift->module~helio_classes proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_symba_setup s_symba_setup module~s_symba_setup->module~swiftest module~s_symba_setup->module~symba_classes module~s_operator_cross s_operator_cross module~s_operator_cross->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~whm_classes module~s_whm_kick->module~swiftest module~s_helio_kick s_helio_kick module~s_helio_kick->module~swiftest module~s_helio_kick->module~helio_classes module~s_symba_collision s_symba_collision module~s_symba_collision->module~swiftest module~s_symba_collision->module~symba_classes module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_symba_discard->module~symba_classes module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_symba_util->module~symba_classes module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest module~s_rmvs_step->module~rmvs_classes module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_symba_io->module~symba_classes module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~s_rmvs_util->module~rmvs_classes module~whm_drift whm_drift module~whm_drift->module~whm_classes module~whm_drift->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~whm_classes module~s_whm_coord->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~swiftest module~s_helio_gr->module~helio_classes module~s_symba_fragmentation s_symba_fragmentation module~s_symba_fragmentation->module~swiftest module~s_symba_fragmentation->module~symba_classes module~s_whm_step s_whm_step module~s_whm_step->module~whm_classes module~s_whm_step->module~swiftest module~s_helio_coord s_helio_coord module~s_helio_coord->module~swiftest module~s_helio_coord->module~helio_classes module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~s_rmvs_setup->module~rmvs_classes module~s_whm_setup s_whm_setup module~s_whm_setup->module~whm_classes module~s_whm_setup->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~swiftest module~s_symba_step->module~symba_classes module~s_helio_step s_helio_step module~s_helio_step->module~swiftest module~s_helio_step->module~helio_classes module~s_whm_gr s_whm_gr module~s_whm_gr->module~whm_classes module~s_whm_gr->module~swiftest module~rmvs_classes->module~whm_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces io_get_args io_get_token discard_pl discard_system discard_tp drift_all drift_body drift_one eucl_dist_index_plpl fragmentation_initialize fragmentation_regime gr_kick_getaccb_ns_body gr_kick_getacch gr_p4_pos_kick gr_pseudovel2vel gr_pv2vh_body gr_vel2pseudovel gr_vh2pv_body io_conservation_report io_dump_param io_dump_swiftest io_dump_system io_param_reader io_param_writer io_read_body_in io_read_cb_in io_read_param_in io_read_frame_body io_read_frame_cb io_read_frame_system io_write_discard io_toupper io_write_encounter io_write_frame_body io_write_frame_cb io_write_frame_system kick_getacch_int_pl kick_getacch_int_tp obl_acc_body obl_acc_pl obl_acc_tp obl_pot orbel_el2xv_vec orbel_scget orbel_xv2aeq orbel_xv2aqt orbel_xv2el_vec setup_body setup_construct_system setup_encounter setup_initialize_system setup_pl setup_tp tides_kick_getacch_pl tides_step_spin_system user_kick_getacch_body util_append util_append_body util_append_pl util_append_tp util_coord_b2h_pl util_coord_b2h_tp util_coord_h2b_pl util_coord_h2b_tp util_copy_encounter util_exit util_fill_body util_fill_pl util_fill_tp util_fill util_minimize_bfgs util_rescale_system util_peri_tp util_resize util_resize_body util_resize_encounter util_resize_pl util_resize_tp util_get_energy_momentum_system util_set_beg_end_pl util_set_ir3h util_set_msys util_set_mu_pl util_set_mu_tp util_set_rhill util_set_rhill_approximate util_solve_linear_system util_solve_rkf45 util_sort util_sort_rearrange_body util_sort_rearrange_pl util_sort_rearrange_tp util_sort_body util_sort_pl util_sort_tp util_spill util_spill_body util_spill_encounter util_spill_pl util_spill_tp util_valid_id_system util_version Abstract Interfaces abstract_discard_body abstract_accel abstract_initialize abstract_kick_body abstract_read_frame abstract_set_mu abstract_step_body abstract_step_system abstract_write_frame Derived Types swiftest_parameters swiftest_base swiftest_cb swiftest_body swiftest_pl swiftest_tp swiftest_nbody_system swiftest_encounter Interfaces interface public module function io_get_args(integrator, param_file_name) result(ierr) Implementation → Arguments Type Intent Optional Attributes Name integer(kind=I4B) :: integrator Symbolic code of the requested integrator character(len=:), allocatable :: param_file_name Name of the input parameters file Return Value integer(kind=I4B) I/O error code interface public module function io_get_token(buffer, ifirst, ilast, ierr) result(token) Implementation → Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: buffer Input string buffer integer(kind=I4B), intent(inout) :: ifirst Index of the buffer at which to start the search for a token integer(kind=I4B), intent(out) :: ilast Index of the buffer at the end of the returned token integer(kind=I4B), intent(out) :: ierr Error code Return Value character(len=:),\n  allocatable Returned token string interface public module subroutine discard_pl(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter interface public module subroutine discard_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters interface public module subroutine discard_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters interface public pure module subroutine drift_all(mu, x, v, n, param, dt, mask, iflag) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu Vector of gravitational constants real(kind=DP), intent(inout), dimension(:,:) :: x Position and velocity vectors real(kind=DP), intent(inout), dimension(:,:) :: v Position and velocity vectors integer(kind=I4B), intent(in) :: n number of bodies class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize logical, intent(in), dimension(:) :: mask Logical mask of size self%nbody that determines which bodies to drift. integer(kind=I4B), intent(out), dimension(:) :: iflag Vector of error flags. 0 means no problem interface public module subroutine drift_body(self, system, param, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize interface public pure elemental module subroutine drift_one(mu, px, py, pz, vx, vy, vz, dt, iflag) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body to drift real(kind=DP), intent(inout) :: px Position and velocity of body to drift real(kind=DP), intent(inout) :: py Position and velocity of body to drift real(kind=DP), intent(inout) :: pz Position and velocity of body to drift real(kind=DP), intent(inout) :: vx Position and velocity of body to drift real(kind=DP), intent(inout) :: vy Position and velocity of body to drift real(kind=DP), intent(inout) :: vz Position and velocity of body to drift real(kind=DP), intent(in) :: dt Step size integer(kind=I4B), intent(out) :: iflag iflag : error status flag for Danby drift (0 = OK, nonzero = ERROR) interface public module subroutine eucl_dist_index_plpl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object interface public module subroutine fragmentation_initialize(system, param, family, x, v, L_spin, Ip, mass, radius, nfrag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, Qloss, lfailure) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters integer(kind=I4B), intent(in), dimension(:) :: family Index of bodies involved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real(kind=DP), intent(inout), dimension(:,:) :: v Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real(kind=DP), intent(inout), dimension(:) :: mass Two-body equivalent mass and radii for the bodies in the collision real(kind=DP), intent(inout), dimension(:) :: radius Two-body equivalent mass and radii for the bodies in the collision integer(kind=I4B), intent(inout) :: nfrag Number of fragments to generate real(kind=DP), intent(inout), dimension(:,:), allocatable :: Ip_frag Fragment rotational inertia vectors real(kind=DP), intent(inout), dimension(:), allocatable :: m_frag Distribution of fragment mass and radii real(kind=DP), intent(inout), dimension(:), allocatable :: rad_frag Distribution of fragment mass and radii real(kind=DP), intent(inout), dimension(:,:), allocatable :: xb_frag Fragment barycentric position, barycentric velocity, and rotation vectors real(kind=DP), intent(inout), dimension(:,:), allocatable :: vb_frag Fragment barycentric position, barycentric velocity, and rotation vectors real(kind=DP), intent(inout), dimension(:,:), allocatable :: rot_frag Fragment barycentric position, barycentric velocity, and rotation vectors real(kind=DP), intent(inout) :: Qloss Energy lost during the collision logical, intent(out) :: lfailure Answers the question: Should this have been a merger instead? interface public module subroutine fragmentation_regime(Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, regime, Mlr, Mslr, mtiny, Qloss) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: Mcb real(kind=DP), intent(in) :: m1 real(kind=DP), intent(in) :: m2 real(kind=DP), intent(in) :: rad1 real(kind=DP), intent(in) :: rad2 real(kind=DP), intent(in), dimension(:) :: xh1 real(kind=DP), intent(in), dimension(:) :: xh2 real(kind=DP), intent(in), dimension(:) :: vb1 real(kind=DP), intent(in), dimension(:) :: vb2 real(kind=DP), intent(in) :: den1 real(kind=DP), intent(in) :: den2 integer(kind=I4B), intent(out) :: regime real(kind=DP), intent(out) :: Mlr real(kind=DP), intent(out) :: Mslr real(kind=DP), intent(in) :: mtiny real(kind=DP), intent(out) :: Qloss Energy lost during the collision interface public pure module subroutine gr_kick_getaccb_ns_body(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine gr_kick_getacch(mu, x, lmask, n, inv_c2, agr) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:,:) :: x Position vectors logical, intent(in), dimension(:) :: lmask Logical mask indicating which bodies to compute integer(kind=I4B), intent(in) :: n Total number of bodies real(kind=DP), intent(in) :: inv_c2 Inverse speed of light squared: 1 / c**2 real(kind=DP), intent(out), dimension(:,:) :: agr Accelerations interface public pure module subroutine gr_p4_pos_kick(param, x, v, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(inout), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(in) :: dt Step size interface public pure module subroutine gr_pseudovel2vel(param, mu, xh, pv, vh) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real(kind=DP), intent(in), dimension(:) :: xh Heliocentric position vector real(kind=DP), intent(in), dimension(:) :: pv Pseudovelocity velocity vector - see Saha & Tremain (1994), eq. (32) real(kind=DP), intent(out), dimension(:) :: vh Heliocentric velocity vector interface public pure module subroutine gr_pv2vh_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public pure module subroutine gr_vel2pseudovel(param, mu, xh, vh, pv) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real(kind=DP), intent(in), dimension(:) :: xh Heliocentric position vector real(kind=DP), intent(in), dimension(:) :: vh Heliocentric velocity vector real(kind=DP), intent(out), dimension(:) :: pv Pseudovelocity vector - see Saha & Tremain (1994), eq. (32) interface public pure module subroutine gr_vh2pv_body(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine io_conservation_report(self, param, lterminal) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen interface public module subroutine io_dump_param(self, param_file_name) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Output collection of parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) interface public module subroutine io_dump_swiftest(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters interface public module subroutine io_dump_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters interface public module subroutine io_param_reader(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Collection of parameters integer(kind=I4B), intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer(kind=I4B), intent(in) :: v_list (:) The first element passes the integrator code to the reader integer(kind=I4B), intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 interface public module subroutine io_param_writer(self, unit, iotype, v_list, iostat, iomsg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Collection of parameters integer(kind=I4B), intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer(kind=I4B), intent(in) :: v_list (:) Not used in this procedure integer(kind=I4B), intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 interface public module subroutine io_read_body_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters interface public module subroutine io_read_cb_in(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters interface public module subroutine io_read_param_in(self, param_file_name) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Current run configuration parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) interface public module subroutine io_read_frame_body(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code interface public module subroutine io_read_frame_cb(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code interface public module subroutine io_read_frame_system(self, iu, param, form, ierr) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code interface public module subroutine io_write_discard(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine io_toupper(string) Implementation → Arguments Type Intent Optional Attributes Name character(len=*), intent(inout) :: string String to make upper case interface public module subroutine io_write_encounter(t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: t integer(kind=I4B), intent(in) :: name1 integer(kind=I4B), intent(in) :: name2 real(kind=DP), intent(in) :: mass1 real(kind=DP), intent(in) :: mass2 real(kind=DP), intent(in) :: radius1 real(kind=DP), intent(in) :: radius2 real(kind=DP), intent(in), dimension(:) :: xh1 real(kind=DP), intent(in), dimension(:) :: xh2 real(kind=DP), intent(in), dimension(:) :: vh1 real(kind=DP), intent(in), dimension(:) :: vh2 character(len=*), intent(in) :: enc_out character(len=*), intent(in) :: out_type interface public module subroutine io_write_frame_body(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine io_write_frame_cb(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine io_write_frame_system(self, iu, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public pure module subroutine kick_getacch_int_pl(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self interface public pure module subroutine kick_getacch_int_tp(self, GMpl, xhp, npl) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies interface public module subroutine obl_acc_body(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object interface public module subroutine obl_acc_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object interface public module subroutine obl_acc_tp(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object interface public module subroutine obl_pot(npl, Mcb, Mpl, j2rp2, j4rp4, xh, irh, oblpot) Implementation → Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: npl real(kind=DP), intent(in) :: Mcb real(kind=DP), intent(in), dimension(:) :: Mpl real(kind=DP), intent(in) :: j2rp2 real(kind=DP), intent(in) :: j4rp4 real(kind=DP), intent(in), dimension(:, :) :: xh real(kind=DP), intent(in), dimension(:) :: irh real(kind=DP), intent(out) :: oblpot interface public module subroutine orbel_el2xv_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public pure module subroutine orbel_scget(angle, sx, cx) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: angle real(kind=DP), intent(out) :: sx real(kind=DP), intent(out) :: cx interface public pure module subroutine orbel_xv2aeq(mu, x, v, a, e, q) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(out) :: a semimajor axis real(kind=DP), intent(out) :: e eccentricity real(kind=DP), intent(out) :: q periapsis interface public pure module subroutine orbel_xv2aqt(mu, x, v, a, q, capm, tperi) Implementation → Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(out) :: a semimajor axis real(kind=DP), intent(out) :: q periapsis real(kind=DP), intent(out) :: capm mean anomaly real(kind=DP), intent(out) :: tperi time of pericenter passage interface public module subroutine orbel_xv2el_vec(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine setup_body(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine setup_construct_system(system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout), allocatable :: system Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine setup_encounter(self, n) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for interface public module subroutine setup_initialize_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters interface public module subroutine setup_pl(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine setup_tp(self, n, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parametersr interface public module subroutine tides_kick_getacch_pl(self, system) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object interface public module subroutine tides_step_spin_system(self, param, t, dt) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize interface public module subroutine user_kick_getacch_body(self, system, param, t, lbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step public interface util_append public subroutine util_append_arr_char_string(arr, source, nold, nsrc, lsource_mask) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Destination array character(len=STRMAX), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine util_append_arr_DP(arr, source, nold, nsrc, lsource_mask) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Destination array real(kind=DP), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine util_append_arr_DPvec(arr, source, nold, nsrc, lsource_mask) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Destination array real(kind=DP), intent(in), dimension(:,:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine util_append_arr_I4B(arr, source, nold, nsrc, lsource_mask) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to public subroutine util_append_arr_logical(arr, source, nold, nsrc, lsource_mask) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Destination array logical, intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine util_append_body(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine util_append_pl(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine util_append_tp(self, source, lsource_mask) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to interface public module subroutine util_coord_b2h_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine util_coord_b2h_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object interface public module subroutine util_coord_h2b_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine util_coord_h2b_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object interface public module subroutine util_copy_encounter(self, source) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into interface public module subroutine util_exit(code) Implementation → Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: code Failure exit code interface public module subroutine util_fill_body(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module subroutine util_fill_pl(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module subroutine util_fill_tp(self, inserts, lfill_list) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public interface util_fill public subroutine util_fill_arr_char_string(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: keeps Array of values to keep character(len=STRMAX), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine util_fill_arr_DP(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: keeps Array of values to keep real(kind=DP), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine util_fill_arr_DPvec(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: keeps Array of values to keep real(kind=DP), intent(in), dimension(:,:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine util_fill_arr_I4B(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I4B), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps public subroutine util_fill_arr_logical(keeps, inserts, lfill_list) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: keeps Array of values to keep logical, intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps interface public module function util_minimize_bfgs(f, N, x0, eps, lerr) result(x1) Implementation → Arguments Type Intent Optional Attributes Name class(lambda_obj), intent(inout) :: f integer(kind=I4B), intent(in) :: N real(kind=DP), intent(in), dimension(:) :: x0 real(kind=DP), intent(in) :: eps logical, intent(out) :: lerr Return Value real(kind=DP),\n  dimension(:), allocatable interface public module subroutine util_rescale_system(self, param, mscale, dscale, tscale) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters. Returns with new values of the scale vactors and GU real(kind=DP), intent(in) :: mscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: dscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: tscale Scale factors for mass, distance, and time units, respectively. interface public module subroutine util_peri_tp(self, system, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters public interface util_resize public subroutine util_resize_arr_char_string(arr, nnew) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine util_resize_arr_DP(arr, nnew) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine util_resize_arr_DPvec(arr, nnew) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine util_resize_arr_I4B(arr, nnew) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size public subroutine util_resize_arr_logical(arr, nnew) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size interface public module subroutine util_resize_body(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine util_resize_encounter(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list integer(kind=I4B), intent(in) :: nnew New size of list needed interface public module subroutine util_resize_pl(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine util_resize_tp(self, nnew) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: nnew New size neded interface public module subroutine util_get_energy_momentum_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine util_set_beg_end_pl(self, xbeg, xend, vbeg) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg Position vectors at beginning of step real(kind=DP), intent(in), optional dimension(:,:) :: xend Positions vectors at end of step real(kind=DP), intent(in), optional dimension(:,:) :: vbeg vbeg is an unused variable to keep this method forward compatible with RMVS interface public module subroutine util_set_ir3h(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object interface public module subroutine util_set_msys(self) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object interface public module subroutine util_set_mu_pl(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine util_set_mu_tp(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine util_set_rhill(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object interface public module subroutine util_set_rhill_approximate(self, cb) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object public interface util_solve_linear_system public function util_solve_linear_system_d(A, b, n, lerr) result(x) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A real(kind=DP), intent(in), dimension(:) :: b integer(kind=I4B), intent(in) :: n logical, intent(out) :: lerr Return Value real(kind=DP),\n  dimension(n) public function util_solve_linear_system_q(A, b, n, lerr) result(x) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:) :: b integer(kind=I4B), intent(in) :: n logical, intent(out) :: lerr Return Value real(kind=QP),\n  dimension(n) interface public module function util_solve_rkf45(f, y0in, t1, dt0, tol) result(y1) Implementation → Arguments Type Intent Optional Attributes Name class(lambda_obj), intent(inout) :: f lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set real(kind=DP), intent(in), dimension(:) :: y0in Initial value at t=0 real(kind=DP), intent(in) :: t1 Final time real(kind=DP), intent(in) :: dt0 Initial step size guess real(kind=DP), intent(in) :: tol Tolerance on solution Return Value real(kind=DP),\n  dimension(:), allocatable Final result public interface util_sort public subroutine util_sort_i4b(arr) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:) :: arr public subroutine util_sort_index_i4b(arr, ind) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind public subroutine util_sort_sp(arr) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(inout), dimension(:) :: arr public subroutine util_sort_index_sp(arr, ind) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind public subroutine util_sort_dp(arr) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:) :: arr public subroutine util_sort_index_dp(arr, ind) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind interface public module subroutine util_sort_rearrange_body(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) interface public module subroutine util_sort_rearrange_pl(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) interface public module subroutine util_sort_rearrange_tp(self, ind) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) interface public module subroutine util_sort_body(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order interface public module subroutine util_sort_pl(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order interface public module subroutine util_sort_tp(self, sortby, ascending) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order public interface util_spill public subroutine util_spill_arr_char_string(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: keeps Array of values to keep character(len=STRMAX), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine util_spill_arr_DP(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: keeps Array of values to keep real(kind=DP), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine util_spill_arr_DPvec(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: keeps Array of values to keep real(kind=DP), intent(inout), dimension(:,:), allocatable :: discards Array discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine util_spill_arr_I4B(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I4B), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not public subroutine util_spill_arr_logical(keeps, discards, lspill_list, ldestructive) Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: keeps Array of values to keep logical, intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine util_spill_body(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine util_spill_encounter(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list interface public module subroutine util_spill_pl(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine util_spill_tp(self, discards, lspill_list, ldestructive) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not interface public module subroutine util_valid_id_system(self, param) Implementation → Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters interface public module subroutine util_version() Implementation → Arguments None Abstract Interfaces abstract interface public subroutine abstract_discard_body(self, system, param) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters abstract interface public subroutine abstract_accel(self, system, param, t, lbeg) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Optional argument that determines whether or not this is the beginning or end of the step abstract interface public subroutine abstract_initialize(self, param) Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters abstract interface public subroutine abstract_kick_body(self, system, param, t, dt, lbeg) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system objec class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. abstract interface public subroutine abstract_read_frame(self, iu, param, form, ierr) Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code abstract interface public subroutine abstract_set_mu(self, cb) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object abstract interface public subroutine abstract_step_body(self, system, param, t, dt) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize abstract interface public subroutine abstract_step_system(self, param, t, dt) Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize abstract interface public subroutine abstract_write_frame(self, iu, param) Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(in) :: self Swiftest base object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Derived Types type, public :: swiftest_parameters User defined parameters that are read in from the parameters input file. \n    Each paramter is initialized to a default values. Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: integrator = UNKNOWN_INTEGRATOR Symbolic name of the nbody integrator  used integer(kind=I4B), public :: nplmax = -1 Maximum allowed number of massive bodies integer(kind=I4B), public :: ntpmax = -1 Maximum allowed number of test particles real(kind=DP), public :: t0 = -1.0_DP Integration start time real(kind=DP), public :: t = -1.0_DP Integration current time real(kind=DP), public :: tstop = -1.0_DP Integration stop time real(kind=DP), public :: dt = -1.0_DP Time step character(len=STRMAX), public :: incbfile = CB_INFILE Name of input file for the central body character(len=STRMAX), public :: inplfile = PL_INFILE Name of input file for massive bodies character(len=STRMAX), public :: intpfile = TP_INFILE Name of input file for test particles character(len=STRMAX), public :: in_type = ASCII_TYPE Format of input data files integer(kind=I4B), public :: istep_out = -1 Number of time steps between binary outputs character(len=STRMAX), public :: outfile = BIN_OUTFILE Name of output binary file character(len=STRMAX), public :: out_type = REAL8_TYPE Binary format of output file character(len=STRMAX), public :: out_form = XV Data to write to output file character(len=STRMAX), public :: out_stat = 'NEW' Open status for output binary file integer(kind=I4B), public :: istep_dump = -1 Number of time steps between dumps real(kind=DP), public :: rmin = -1.0_DP Minimum heliocentric radius for test particle real(kind=DP), public :: rmax = -1.0_DP Maximum heliocentric radius for test particle real(kind=DP), public :: rmaxu = -1.0_DP Maximum unbound heliocentric radius for test particle real(kind=DP), public :: qmin = -1.0_DP Minimum pericenter distance for test particle character(len=STRMAX), public :: qmin_coord = 'HELIO' Coordinate frame to use for qmin real(kind=DP), public :: qmin_alo = -1.0_DP Minimum semimajor axis for qmin real(kind=DP), public :: qmin_ahi = -1.0_DP Maximum semimajor axis for qmin character(len=STRMAX), public :: enc_out = \"\" Name of output file for encounters character(len=STRMAX), public :: discard_out = \"\" Name of output file for discards real(kind=QP), public :: MU2KG = -1.0_QP Converts mass units to grams real(kind=QP), public :: TU2S = -1.0_QP Converts time units to seconds real(kind=QP), public :: DU2M = -1.0_QP Converts distance unit to centimeters real(kind=DP), public :: GU = -1.0_DP Universal gravitational constant in the system units real(kind=DP), public :: inv_c2 = -1.0_DP Inverse speed of light squared in the system units character(len=STRMAX), public :: energy_out = \"\" Name of output energy and momentum report file logical, public :: lrhill_present = .false. Hill radii are given as an input rather than calculated by the code (can be used to inflate close encounter regions manually) logical, public :: lextra_force = .false. User defined force function turned on logical, public :: lbig_discard = .false. Save big bodies on every discard logical, public :: lclose = .false. Turn on close encounters logical, public :: lenergy = .false. Track the total energy of the system logical, public :: loblatecb = .false. Calculate acceleration from oblate central body (automatically turns true if nonzero J2 is input) logical, public :: lrotation = .false. Include rotation states of big bodies logical, public :: ltides = .false. Include tidal dissipation real(kind=DP), public :: Eorbit_orig = 0.0_DP Initial orbital energy real(kind=DP), public :: Mtot_orig = 0.0_DP Initial system mass real(kind=DP), public :: Lmag_orig = 0.0_DP Initial total angular momentum magnitude real(kind=DP), public, dimension(NDIM) :: Ltot_orig = 0.0_DP Initial total angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lorbit_orig = 0.0_DP Initial orbital angular momentum real(kind=DP), public, dimension(NDIM) :: Lspin_orig = 0.0_DP Initial spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Ltot = 0.0_DP System angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lfirstenergy = .true. This is the first time computing energe logical, public :: lfirstkick = .true. Initiate the first kick in a symplectic step logical, public :: lrestart = .false. Indicates whether or not this is a restarted run logical, public :: lgr = .false. Turn on GR logical, public :: lyarkovsky = .false. Turn on Yarkovsky effect logical, public :: lyorp = .false. Turn on YORP effect Type-Bound Procedures procedure, public :: reader => io_param_reader procedure, public :: writer => io_param_writer procedure, public :: dump => io_dump_param procedure, public :: read_from_file => io_read_param_in type, public, abstract :: swiftest_base An superclass for a generic Swiftest object\n The minimal methods that all systems must have Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure(abstract_initialize), public :: initialize procedure(abstract_read_frame), public :: read_frame procedure(abstract_write_frame), public :: write_frame type, public, abstract, extends( swiftest_base ) :: swiftest_cb A concrete lass for the central body in a Swiftest simulation Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step character(len=STRMAX), public :: name Non-unique name integer(kind=I4B), public :: id = 0 External identifier (unique) real(kind=DP), public :: mass = 0.0_DP Central body mass (units MU) real(kind=DP), public :: Gmass = 0.0_DP Central mass gravitational term G * mass (units GU * MU) real(kind=DP), public :: radius = 0.0_DP Central body radius (units DU) real(kind=DP), public :: density = 1.0_DP Central body mass density - calculated internally (units MU / DU**3) real(kind=DP), public :: j2rp2 = 0.0_DP J2*R&#94;2 term for central body real(kind=DP), public :: j4rp4 = 0.0_DP J4*R&#94;2 term for central body real(kind=DP), public, dimension(NDIM) :: aobl = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: atide = 0.0_DP Barycentric acceleration due to central body oblatenes real(kind=DP), public, dimension(NDIM) :: aoblbeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: aoblend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: atidebeg = 0.0_DP Barycentric acceleration due to central body oblatenes at beginning of step real(kind=DP), public, dimension(NDIM) :: atideend = 0.0_DP Barycentric acceleration due to central body oblatenes at end of step real(kind=DP), public, dimension(NDIM) :: xb = 0.0_DP Barycentric position (units DU) real(kind=DP), public, dimension(NDIM) :: vb = 0.0_DP Barycentric velocity (units DU / TU) real(kind=DP), public, dimension(NDIM) :: agr = 0.0_DP Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(NDIM) :: Ip = 0.0_DP Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(NDIM) :: rot = 0.0_DP Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public :: k2 = 0.0_DP Tidal Love number real(kind=DP), public :: Q = 0.0_DP Tidal quality factor real(kind=DP), public :: tlag = 0.0_DP Tidal phase lag angle real(kind=DP), public, dimension(NDIM) :: L0 = 0.0_DP Initial angular momentum of the central body real(kind=DP), public, dimension(NDIM) :: dL = 0.0_DP Change in angular momentum of the central body Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure, public :: initialize => io_read_cb_in I/O routine for reading in central body data procedure, public :: read_frame => io_read_frame_cb I/O routine for reading out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_cb I/O routine for writing out a single frame of time-series data for the central body type, public, abstract, extends( swiftest_base ) :: swiftest_body An abstract class for a generic collection of Swiftest bodies\n Superclass that defines the generic elements of a Swiftest particle Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure(abstract_discard_body), public :: discard procedure(abstract_kick_body), public :: kick procedure(abstract_set_mu), public :: set_mu procedure(abstract_step_body), public :: step procedure(abstract_accel), public :: accel procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: accel_obl => obl_acc_body Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: setup => setup_body A constructor that sets the number of bodies and allocates all allocatable arrays procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: append => util_append_body Appends elements from one structure to another procedure, public :: fill => util_fill_body \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: resize => util_resize_body Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: sort => util_sort_body Sorts body arrays by a sortable componen procedure, public :: rearrange => util_sort_rearrange_body Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => util_spill_body \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) type, public, abstract, extends( swiftest_body ) :: swiftest_pl An abstract class for a generic collection of Swiftest massive bodies\n Superclass that defines the generic elements of a Swiftest particle Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill real(kind=DP), public, dimension(:), allocatable :: mass Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: Gmass Mass gravitational term G * mass (units GU * MU) real(kind=DP), public, dimension(:), allocatable :: rhill Body mass (units MU) real(kind=DP), public, dimension(:), allocatable :: radius Body radius (units DU) real(kind=DP), public, dimension(:,:), allocatable :: xbeg Position at beginning of step real(kind=DP), public, dimension(:,:), allocatable :: xend Position at end of step real(kind=DP), public, dimension(:,:), allocatable :: vbeg Velocity at beginning of step real(kind=DP), public, dimension(:), allocatable :: density Body mass density - calculated internally (units MU / DU**3) real(kind=DP), public, dimension(:,:), allocatable :: Ip Unitless principal moments of inertia (I1, I2, I3) / (MR**2). Principal axis rotation assumed. real(kind=DP), public, dimension(:,:), allocatable :: rot Body rotation vector in inertial coordinate frame (units rad / TU) real(kind=DP), public, dimension(:), allocatable :: k2 Tidal Love number real(kind=DP), public, dimension(:), allocatable :: Q Tidal quality factor real(kind=DP), public, dimension(:), allocatable :: tlag Tidal phase lag integer(kind=I4B), public, dimension(:,:), allocatable :: k_plpl Index array used to convert flattened the body-body comparison upper triangular matrix integer(kind=I8B), public :: nplpl Number of body-body comparisons in the flattened upper triangular matrix\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_pl and util_spill_pl Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure(abstract_kick_body), public :: kick procedure(abstract_step_body), public :: step procedure(abstract_accel), public :: accel procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: discard => discard_pl Placeholder method for discarding massive bodies procedure, public :: eucl_index => eucl_dist_index_plpl Sets up the (i, j) -> k indexing used for the single-loop blocking Euclidean distance matrix procedure, public :: accel_int => kick_getacch_int_pl Compute direct cross (third) term heliocentric accelerations of massive bodies procedure, public :: accel_obl => obl_acc_pl Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: setup => setup_pl A base constructor that sets the number of bodies and allocates and initializes all arrays procedure, public :: accel_tides => tides_kick_getacch_pl Compute the accelerations of bodies due to tidal interactions with the central body procedure, public :: append => util_append_pl Appends elements from one structure to another procedure, public :: h2b => util_coord_h2b_pl Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_pl Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) procedure, public :: fill => util_fill_pl \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: resize => util_resize_pl Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: set_beg_end => util_set_beg_end_pl Sets the beginning and ending positions and velocities of planets. procedure, public :: set_mu => util_set_mu_pl Method used to construct the vectorized form of the central body mass procedure, public :: set_rhill => util_set_rhill Calculates the Hill's radii for each body procedure, public :: sort => util_sort_pl Sorts body arrays by a sortable component procedure, public :: rearrange => util_sort_rearrange_pl Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => util_spill_pl \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) type, public, abstract, extends( swiftest_body ) :: swiftest_tp An abstract class for a generic collection of Swiftest test particles\n Superclass that defines the generic elements of a Swiftest test particle Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step logical, public :: lfirst = .true. Run the current step as a first integer(kind=I4B), public :: nbody = 0 Number of bodies character(len=STRMAX), public, dimension(:), allocatable :: name Non-unique name integer(kind=I4B), public, dimension(:), allocatable :: id External identifier (unique) integer(kind=I4B), public, dimension(:), allocatable :: status An integrator-specific status indicator logical, public, dimension(:), allocatable :: ldiscard Body should be discarded logical, public, dimension(:), allocatable :: lmask Logical mask used to select a subset of bodies when performing certain operations (drift, kick, accel, etc.) real(kind=DP), public, dimension(:), allocatable :: mu G * (Mcb + [m]) real(kind=DP), public, dimension(:,:), allocatable :: xh Heliocentric position real(kind=DP), public, dimension(:,:), allocatable :: vh Heliocentric velocity real(kind=DP), public, dimension(:,:), allocatable :: xb Barycentric position real(kind=DP), public, dimension(:,:), allocatable :: vb Barycentric velocity real(kind=DP), public, dimension(:,:), allocatable :: ah Total heliocentric acceleration real(kind=DP), public, dimension(:,:), allocatable :: aobl Barycentric accelerations of bodies due to central body oblatenes real(kind=DP), public, dimension(:,:), allocatable :: atide Tanngential component of acceleration of bodies due to tides real(kind=DP), public, dimension(:,:), allocatable :: agr Acceleration due to post-Newtonian correction real(kind=DP), public, dimension(:), allocatable :: ir3h Inverse heliocentric radius term (1/rh**3) real(kind=DP), public, dimension(:), allocatable :: a Semimajor axis (pericentric distance for a parabolic orbit) real(kind=DP), public, dimension(:), allocatable :: e Eccentricity real(kind=DP), public, dimension(:), allocatable :: inc Inclination real(kind=DP), public, dimension(:), allocatable :: capom Longitude of ascending node real(kind=DP), public, dimension(:), allocatable :: omega Argument of pericenter real(kind=DP), public, dimension(:), allocatable :: capm Mean anomaly\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_body and util_spill integer(kind=I4B), public, dimension(:), allocatable :: isperi Perihelion passage flag real(kind=DP), public, dimension(:), allocatable :: peri Perihelion distance real(kind=DP), public, dimension(:), allocatable :: atp Semimajor axis following perihelion passage\n Note to developers: If you add components to this class, be sure to update methods and subroutines that traverse the\n    component list, such as setup_tp and util_spill_tp Type-Bound Procedures procedure, public :: dump => io_dump_swiftest procedure(abstract_kick_body), public :: kick procedure(abstract_step_body), public :: step procedure(abstract_accel), public :: accel procedure, public :: drift => drift_body Loop through bodies and call Danby drift routine on heliocentric variables procedure, public :: v2pv => gr_vh2pv_body Converts from velocity to psudeovelocity for GR calculations using symplectic integrators procedure, public :: pv2v => gr_pv2vh_body Converts from psudeovelocity to velocity for GR calculations using symplectic integrators procedure, public :: initialize => io_read_body_in Read in body initial conditions from a file procedure, public :: read_frame => io_read_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: write_frame => io_write_frame_body I/O routine for writing out a single frame of time-series data for the central body procedure, public :: el2xv => orbel_el2xv_vec Convert orbital elements to position and velocity vectors procedure, public :: xv2el => orbel_xv2el_vec Convert position and velocity vectors to orbital  elements procedure, public :: accel_user => user_kick_getacch_body Add user-supplied heliocentric accelerations to planets procedure, public :: set_ir3 => util_set_ir3h Sets the inverse heliocentric radius term (1/rh**3) procedure, public :: discard => discard_tp Check to see if test particles should be discarded based on their positions relative to the massive bodies procedure, public :: accel_int => kick_getacch_int_tp Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies procedure, public :: accel_obl => obl_acc_tp Compute the barycentric accelerations of bodies due to the oblateness of the central body procedure, public :: setup => setup_tp A base constructor that sets the number of bodies and procedure, public :: append => util_append_tp Appends elements from one structure to another procedure, public :: h2b => util_coord_h2b_tp Convert test particles from heliocentric to barycentric coordinates (position and velocity) procedure, public :: b2h => util_coord_b2h_tp Convert test particles from barycentric to heliocentric coordinates (position and velocity) procedure, public :: fill => util_fill_tp \"Fills\" bodies from one object into another depending on the results of a mask (uses the UNPACK intrinsic) procedure, public :: get_peri => util_peri_tp Determine system pericenter passages for test particles procedure, public :: resize => util_resize_tp Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. procedure, public :: set_mu => util_set_mu_tp Method used to construct the vectorized form of the central body mass procedure, public :: sort => util_sort_tp Sorts body arrays by a sortable component procedure, public :: rearrange => util_sort_rearrange_tp Rearranges the order of array elements of body based on an input index array. Used in sorting methods procedure, public :: spill => util_spill_tp \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) type, public, abstract, extends( swiftest_base ) :: swiftest_nbody_system An abstract class for a basic Swiftest nbody system \n  This superclass contains a minimial system of a set of test particles (tp), massive bodies (pl), and a central body (cb) Components Type Visibility Attributes Name Initial logical, public :: lintegrate = .false. Flag indicating that this object should be integrated in the current step class( swiftest_cb ), public, allocatable :: cb Central body data structure class( swiftest_pl ), public, allocatable :: pl Massive body data structure class( swiftest_tp ), public, allocatable :: tp Test particle data structure class( swiftest_tp ), public, allocatable :: tp_discards Discarded test particle data structure class( swiftest_pl ), public, allocatable :: pl_discards Discarded massive body particle data structure real(kind=DP), public :: Gmtot = 0.0_DP Total system mass - used for barycentric coordinate conversion real(kind=DP), public :: ke_orbit = 0.0_DP System orbital kinetic energy real(kind=DP), public :: ke_spin = 0.0_DP System spin kinetic energy real(kind=DP), public :: pe = 0.0_DP System potential energy real(kind=DP), public :: te = 0.0_DP System total energy real(kind=DP), public, dimension(NDIM) :: Lorbit = 0.0_DP System orbital angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lspin = 0.0_DP System spin angular momentum vector real(kind=DP), public, dimension(NDIM) :: Lescape = 0.0_DP Angular momentum of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Mescape = 0.0_DP Mass of bodies that escaped the system (used for bookeeping) real(kind=DP), public :: Ecollisions = 0.0_DP Energy lost from system due to collisions real(kind=DP), public :: Euntracked = 0.0_DP Energy gained from system due to escaped bodies logical, public :: lbeg True if this is the beginning of a step. This is used so that test particle steps can be calculated \n    separately from massive bodies.  Massive body variables are saved at half steps, and passed to \n    the test particles integer(kind=I4B), public :: maxid = -1 The current maximum particle id number Type-Bound Procedures procedure(abstract_step_system), public :: step Each integrator will have its own version of the step procedure, public :: discard => discard_system Perform a discard step on the system procedure, public :: conservation_report => io_conservation_report Compute energy and momentum and print out the change with time procedure, public :: dump => io_dump_system Dump the state of the system to a file procedure, public :: read_frame => io_read_frame_system Read in a frame of input data from file procedure, public :: write_discard => io_write_discard Write out information about discarded test particles procedure, public :: write_frame => io_write_frame_system Append a frame of output data to file procedure, public :: initialize => setup_initialize_system Initialize the system from input files procedure, public :: step_spin => tides_step_spin_system Steps the spins of the massive & central bodies due to tides. procedure, public :: set_msys => util_set_msys Sets the value of msys from the masses of system bodies. procedure, public :: get_energy_and_momentum => util_get_energy_momentum_system Calculates the total system energy and momentum procedure, public :: rescale => util_rescale_system Rescales the system into a new set of units procedure, public :: validate_ids => util_valid_id_system Validate the numerical ids passed to the system and save the maximum value type, public :: swiftest_encounter Components Type Visibility Attributes Name Initial integer(kind=I4B), public :: nenc Total number of encounters logical, public, dimension(:), allocatable :: lvdotr relative vdotr flag integer(kind=I4B), public, dimension(:), allocatable :: status status of the interaction integer(kind=I4B), public, dimension(:), allocatable :: index1 position of the first body in the encounter integer(kind=I4B), public, dimension(:), allocatable :: index2 position of the second body in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x1 the position of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: x2 the position of body 2 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v1 the velocity of body 1 in the encounter real(kind=DP), public, dimension(:,:), allocatable :: v2 the velocity of body 2 in the encounter Type-Bound Procedures procedure, public :: setup => setup_encounter A constructor that sets the number of encounters and allocates and initializes all arrays procedure, public :: copy => util_copy_encounter Copies elements from the source encounter list into self. procedure, public :: spill => util_spill_encounter \"Spills\" bodies from one object to another depending on the results of a mask (uses the PACK intrinsic) procedure, public :: resize => util_resize_encounter Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small.","tags":"","loc":"module/swiftest_classes.html"},{"title":"lambda_function – swiftest","text":"Defines a class that can enable objects that behave like lambda functions. To use this class, define a type of either lambda_obj or lambda_obj_err, or extend the lambda_obj class as necessary, such that an interface that matches the function you wish to lambdafy.\n Once defined, the lambda object can evaluate itself by calling the type-bound procedure eval. e.g. f%eval(x) (or f%eval(x, lerr), f%eval(x, [argument list], etc)) Example - Defining a lambda function f(x,rval,ival) where rval and ival are a real and integer argument, respectively. This implementation uses an abstract interface, though this is not\n strictly necessary unless you want to bind more than one function with the same interface. module lambda_new \n    use swiftest ! This will bring in the lambda_function module\n    ! Define types in a module type , extends ( lambda_obj ) :: lambda_obj_ri_args procedure ( abstract_lambda_ri_args ), pointer , nopass :: lambdaptr_ri_args => null () real ( DP ) :: rval !! Real parameter integer ( I4B ) :: ival !! Integer paramete contains generic :: init => lambda_ri_args_init procedure :: eval => lambda_ri_args_eval procedure , nopass :: lambda_ri_args_init final :: lambda_ri_args_destroy end type interface lambda_obj module procedure lambda_ri_args_init end interface abstract interface function abstract_lambda_ri_args ( x , rval , ival ) result ( y ) ! Template for the lambda function import DP , I4B real ( DP ), dimension (:), intent ( in ) :: x !! Dependent variable real ( DP ), intent ( in ) :: rval !! Real parameter integer ( I4B ), intent ( in ) :: ival !! Integer parameter real ( DP ) :: y !! Real result end function end interface contains\n    type(lambda_obj_ri_args) function lambda_ri_args_init(lambda, rval, ival)\n       !! Initializes the lambda function parameters (can be used as a structure constructor)\n       implicit none\n       procedure(abstract_lambda_ri_args)  :: lambda !! The lambda function that will be passed\n       real(DP),     intent(in)            :: rval     !! Real parameter\n       integer(I4B), intent(in)            :: ival     !! Integer parameter ! Assign the procedure passed to this function to the procedure pointer lambda_ri_args_init % lambdaptr_ri_args => lambda ! Assign the argument values lambda_ri_args_init % rval = rval lambda_ri_args_init % ival = ival return end function lambda_ri_args_init function lambda_ri_args_eval ( self , x ) result ( y ) !! Defines the evaluation method , allowing the lambda function to be called with a single argument implicit none class ( lambda_obj_ri_args ), intent ( inout ) :: self real ( DP ), dimension (:), intent ( in ) :: x real ( DP ) :: y if ( associated ( self % lambdaptr_ri_args )) then y = self % lambdaptr_ri_args ( x , self % rval , self % ival ) self % lastval = y if ( allocated ( self % lastarg )) deallocate ( self % lastarg ) allocate ( self % lastarg , source = x ) else error stop \"Lambda function was not initialized\" end if end function lambda_ri_args_eval subroutine lambda_ri_args_destroy ( self ) !! Finalizer method . Use this as a template for cleaning up the object upon destruction , such as nullifying pointers implicit none type ( lambda_obj_ri_args ) :: self if ( associated ( self % lambdaptr_ri_args )) nullify ( self % lambdaptr_ri_args ) end subroutine lambda_ri_args_destroy function example_function ( x , rval , ival ) result ( y ) ! This is the actual function you are going to use as the lambda function . Its interface must match the abstract interface previously defined implicit none ! Arguments real ( DP ), dimension (:), intent ( in ) :: x real ( DP ), intent ( in ) :: rval integer ( I4B ), intent ( in ) :: ival ! Result real ( DP ) :: y ! Internals integer ( I4B ) :: i , n n = size ( x ) y = 42 . _DP * ival do i = 1 , n y = y + x ( i ) ** 2 end do return end function example_function end module lambda_new program usage\n    use swiftest\n    use lambda_new\n    implicit none\n    type(lambda_obj_ri_args) :: f\n    real(DP) :: sigma_par\n    integer(I4B) :: iwonky, i,j\n    real(DP), dimension(12) :: xarr sigma_par = 3 . 14 _DP iwonky = 13 f = lambda_obj ( example_function , sigma_par , iwonky ) do i = 1 , 10 xarr (:) = [( j * 0 . 25 _DP / i , j = 1 , 12 )] write ( * , * ) i , f % eval ( xarr ) end do end program usage Uses swiftest_globals module~~lambda_function~~UsesGraph module~lambda_function lambda_function module~swiftest_globals swiftest_globals module~lambda_function->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Used by module~~lambda_function~~UsedByGraph module~lambda_function lambda_function module~swiftest swiftest module~swiftest->module~lambda_function module~s_setup s_setup module~s_setup->module~swiftest module~drift_implementation drift_implementation module~drift_implementation->module~swiftest module~s_rmvs_kick s_rmvs_kick module~s_rmvs_kick->module~swiftest module~s_symba_encounter_check s_symba_encounter_check module~s_symba_encounter_check->module~swiftest module~s_rmvs_chk s_rmvs_chk module~s_rmvs_chk->module~swiftest module~s_util_get_energy_momentum s_util_get_energy_momentum module~s_util_get_energy_momentum->module~swiftest module~s_util_coord s_util_coord module~s_util_coord->module~swiftest module~s_util_set s_util_set module~s_util_set->module~swiftest module~s_symba_drift s_symba_drift module~s_symba_drift->module~swiftest module~s_util_rescale s_util_rescale module~s_util_rescale->module~swiftest module~s_util_version s_util_version module~s_util_version->module~swiftest module~s_util_minimize_bfgs s_util_minimize_bfgs module~s_util_minimize_bfgs->module~swiftest module~s_rmvs_discard s_rmvs_discard module~s_rmvs_discard->module~swiftest proc~solve_wbs solve_wbs proc~solve_wbs->module~swiftest module~s_gr s_gr module~s_gr->module~swiftest module~s_kick s_kick module~s_kick->module~swiftest module~s_util_resize s_util_resize module~s_util_resize->module~swiftest module~s_symba_kick s_symba_kick module~s_symba_kick->module~swiftest module~s_whm_util s_whm_util module~s_whm_util->module~swiftest module~s_util_spill s_util_spill module~s_util_spill->module~swiftest proc~ge_wpp ge_wpp proc~ge_wpp->module~swiftest module~s_orbel s_orbel module~s_orbel->module~swiftest module~s_helio_drift s_helio_drift module~s_helio_drift->module~swiftest module~s_operator_cross s_operator_cross module~s_operator_cross->module~swiftest module~s_symba_setup s_symba_setup module~s_symba_setup->module~swiftest program~swiftest_driver swiftest_driver program~swiftest_driver->module~swiftest module~s_util_copy s_util_copy module~s_util_copy->module~swiftest module~s_util_valid s_util_valid module~s_util_valid->module~swiftest module~s_tides_step_spin s_tides_step_spin module~s_tides_step_spin->module~swiftest module~s_util_sort s_util_sort module~s_util_sort->module~swiftest module~s_tides_kick_getacch s_tides_kick_getacch module~s_tides_kick_getacch->module~swiftest module~s_whm_kick s_whm_kick module~s_whm_kick->module~swiftest module~s_util_fill s_util_fill module~s_util_fill->module~swiftest module~s_helio_kick s_helio_kick module~s_helio_kick->module~swiftest module~s_symba_collision s_symba_collision module~s_symba_collision->module~swiftest module~s_symba_discard s_symba_discard module~s_symba_discard->module~swiftest module~s_symba_util s_symba_util module~s_symba_util->module~swiftest module~s_util_solve s_util_solve module~s_util_solve->module~swiftest module~s_rmvs_step s_rmvs_step module~s_rmvs_step->module~swiftest module~s_symba_io s_symba_io module~s_symba_io->module~swiftest module~s_rmvs_util s_rmvs_util module~s_rmvs_util->module~swiftest module~whm_drift whm_drift module~whm_drift->module~swiftest module~s_whm_coord s_whm_coord module~s_whm_coord->module~swiftest module~s_io s_io module~s_io->module~swiftest module~s_obl s_obl module~s_obl->module~swiftest module~s_helio_gr s_helio_gr module~s_helio_gr->module~swiftest module~s_eucl s_eucl module~s_eucl->module~swiftest module~s_util_append s_util_append module~s_util_append->module~swiftest module~s_fragmentation s_fragmentation module~s_fragmentation->module~swiftest module~s_user_kick_getacch s_user_kick_getacch module~s_user_kick_getacch->module~swiftest module~s_symba_fragmentation s_symba_fragmentation module~s_symba_fragmentation->module~swiftest module~s_whm_step s_whm_step module~s_whm_step->module~swiftest module~s_helio_coord s_helio_coord module~s_helio_coord->module~swiftest module~s_util_peri s_util_peri module~s_util_peri->module~swiftest module~s_rmvs_setup s_rmvs_setup module~s_rmvs_setup->module~swiftest module~s_whm_setup s_whm_setup module~s_whm_setup->module~swiftest module~s_discard s_discard module~s_discard->module~swiftest module~s_symba_step s_symba_step module~s_symba_step->module~swiftest module~s_helio_step s_helio_step module~s_helio_step->module~swiftest module~s_util_exit s_util_exit module~s_util_exit->module~swiftest module~s_whm_gr s_whm_gr module~s_whm_gr->module~swiftest 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces lambda_obj Abstract Interfaces lambda0 lambda0err lambda0tvar Derived Types lambda_obj lambda_obj_err lambda_obj_tvar Functions lambda_init_0 lambda_init_0_err lambda_init_tvar lambda_eval_0 lambda_eval_0_err lambda_eval_tvar Subroutines lambda_destroy Interfaces public interface lambda_obj public function lambda_init_0 (lambda) Arguments Type Intent Optional Attributes Name procedure( lambda0 ) :: lambda Return Value type( lambda_obj ) public function lambda_init_0_err (lambda, lerr) Arguments Type Intent Optional Attributes Name procedure( lambda0err ) :: lambda logical, intent(in) :: lerr Return Value type( lambda_obj_err ) public function lambda_init_tvar (lambda, t) Arguments Type Intent Optional Attributes Name procedure( lambda0tvar ) :: lambda real(kind=DP), intent(in) :: t Return Value type( lambda_obj_tvar ) Abstract Interfaces abstract interface public function lambda0(x) result(y) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: x Return Value real(kind=DP) abstract interface public function lambda0err(x, lerr) result(y) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: x logical, intent(out) :: lerr Return Value real(kind=DP) abstract interface public function lambda0tvar(x, t) result(y) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t Return Value real(kind=DP),\n  dimension(:), allocatable Derived Types type, public :: lambda_obj Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers Components Type Visibility Attributes Name Initial procedure( lambda0 ), public, pointer, nopass :: lambdaptr => null() real(kind=DP), public :: lastval real(kind=DP), public, dimension(:), allocatable :: lastarg Constructor public  function lambda_init_0 (lambda) public  function lambda_init_0_err (lambda, lerr) public  function lambda_init_tvar (lambda, t) Finalizations Procedures final :: lambda_destroy","tags":"","loc":"module/lambda_function.html"},{"title":"s_kick – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_kick~~UsesGraph module~s_kick s_kick module~swiftest_classes swiftest_classes module~s_kick->module~swiftest_classes module~swiftest swiftest module~s_kick->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines kick_getacch_int_pl kick_getacch_int_tp Module Subroutines pure module subroutine kick_getacch_int_pl (self) Interface → Author David A. Minton Compute direct cross (third) term heliocentric accelerations of massive bodies Read more… Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self pure module subroutine kick_getacch_int_tp (self, GMpl, xhp, npl) Interface → Author David A. Minton Compute direct cross (third) term heliocentric accelerations of test particles by massive bodies Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle real(kind=DP), intent(in), dimension(:) :: GMpl Massive body masses real(kind=DP), intent(in), dimension(:,:) :: xhp Massive body position vectors integer(kind=I4B), intent(in) :: npl Number of active massive bodies","tags":"","loc":"module/s_kick.html"},{"title":"s_tides_kick_getacch – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_tides_kick_getacch~~UsesGraph module~s_tides_kick_getacch s_tides_kick_getacch module~swiftest_classes swiftest_classes module~s_tides_kick_getacch->module~swiftest_classes module~swiftest swiftest module~s_tides_kick_getacch->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines tides_kick_getacch_pl Module Subroutines module subroutine tides_kick_getacch_pl (self, system) Interface → Author Jennifer L.L. Pouplin, Carlisle A. wishard, and David A. Minton Calculated tidal torques from central body to any planet and from any planet to central body\n planet - planet interactions are considered negligable.\n This is a constant time lag model. Read more… Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object","tags":"","loc":"module/s_tides_kick_getacch.html"},{"title":"s_tides_step_spin – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_tides_step_spin~~UsesGraph module~s_tides_step_spin s_tides_step_spin module~swiftest_classes swiftest_classes module~s_tides_step_spin->module~swiftest_classes module~swiftest swiftest module~s_tides_step_spin->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Interfaces lambda_obj Abstract Interfaces tidederiv Derived Types tides_derivs_func Functions tides_spin_derivs tides_derivs_eval tides_derivs_init Module Subroutines tides_step_spin_system Interfaces interface lambda_obj function tides_derivs_init (lambda, dt, xbeg, xend) result(f) Arguments Type Intent Optional Attributes Name procedure( tidederiv ) :: lambda real(kind=DP), intent(in) :: dt real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value type( tides_derivs_func ) Abstract Interfaces abstract interface function tidederiv(x, t, dt, xbeg, xend) result(y) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t real(kind=DP), intent(in) :: dt real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value real(kind=DP),\n  dimension(:), allocatable Derived Types type, extends(lambda_obj_tvar) :: tides_derivs_func Base class for an lambda function object. This object takes no additional arguments other than the dependent variable x, an array of real numbers Components Type Visibility Attributes Name Initial procedure( tidederiv ), public, pointer, nopass :: lambdaptr_tides_deriv real(kind=DP), public, dimension(:,:), allocatable :: xbeg real(kind=DP), public, dimension(:,:), allocatable :: xend real(kind=DP), public :: dt Type-Bound Procedures generic, public :: init => tides_derivs_init procedure, public :: evalt => tides_derivs_eval procedure, public, nopass :: tides_derivs_init Functions function tides_spin_derivs (rot_pl_cb, t, dt, xbeg, xend) result(drot) Need to add more arguments so we can pull in mass, radius, Ip, J2, etc...\n author: Jennifer L.L. Pouplin and David A. Minton Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: rot_pl_cb Array of rotations. The last element is the central body, and all others are massive bodies real(kind=DP), intent(in) :: t Current time, which is used to interpolate the massive body positions real(kind=DP), intent(in) :: dt Total step size real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value real(kind=DP),\n  dimension(:,:), allocatable function tides_derivs_eval (self, x, t) result(y) Arguments Type Intent Optional Attributes Name class( tides_derivs_func ), intent(inout) :: self real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in) :: t Return Value real(kind=DP),\n  dimension(:), allocatable function tides_derivs_init (lambda, dt, xbeg, xend) result(f) Arguments Type Intent Optional Attributes Name procedure( tidederiv ) :: lambda real(kind=DP), intent(in) :: dt real(kind=DP), intent(in), dimension(:,:) :: xbeg real(kind=DP), intent(in), dimension(:,:) :: xend Return Value type( tides_derivs_func ) Module Subroutines module subroutine tides_step_spin_system (self, param, t, dt) Interface → Author Jennifer L.L. Pouplin and David A. Minton Integrates the spin equations for central and massive bodies of the system subjected to tides. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"module/s_tides_step_spin.html"},{"title":"s_obl – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_obl~~UsesGraph module~s_obl s_obl module~swiftest_classes swiftest_classes module~s_obl->module~swiftest_classes module~swiftest swiftest module~s_obl->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines obl_acc_body obl_acc_pl obl_acc_tp obl_pot Module Subroutines module subroutine obl_acc_body (self, system) Interface → Author David A. Minton Compute the barycentric accelerations of bodies due to the oblateness of the central body\n      Returned values do not include monopole term or terms higher than J4 Read more… Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object module subroutine obl_acc_pl (self, system) Interface → Author David A. Minton Compute the barycentric accelerations of massive bodies due to the oblateness of the central body Read more… Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object module subroutine obl_acc_tp (self, system) Interface → Author David A. Minton Compute the barycentric accelerations of massive bodies due to the oblateness of the central body Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object module subroutine obl_pot (npl, Mcb, Mpl, j2rp2, j4rp4, xh, irh, oblpot) Interface → Author David A. Minton Compute the contribution to the total gravitational potential due solely to the oblateness of the central body\n    Returned value does not include monopole term or terms higher than J4 Read more… Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: npl real(kind=DP), intent(in) :: Mcb real(kind=DP), intent(in), dimension(:) :: Mpl real(kind=DP), intent(in) :: j2rp2 real(kind=DP), intent(in) :: j4rp4 real(kind=DP), intent(in), dimension(:, :) :: xh real(kind=DP), intent(in), dimension(:) :: irh real(kind=DP), intent(out) :: oblpot","tags":"","loc":"module/s_obl.html"},{"title":"s_orbel – swiftest","text":"Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 ORBEL_SCHGET.F PURPOSE : Given an angle , efficiently compute sinh and cosh . Input : angle ==> angle in radians ( real scalar ) Output : shx ==> sinh ( angle ) ( real scalar ) chx ==> cosh ( angle ) ( real scalar ) ALGORITHM : Obvious from the code REMARKS : Based on the routine SCGET for sine 's and cosine' s . We use the sqrt rather than cosh ( it 's faster) BE SURE THE ANGLE IS IN RADIANS AND IT CAN' T BE LARGER THAN 300 OR OVERFLOWS WILL OCCUR ! AUTHOR : M . Duncan . DATE WRITTEN : May 6 , 1992 . REVISIONS : Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 !                    ORBEL_FLON.F PURPOSE : Solves Kepler ' s eqn . for hyperbola using hybrid approach . Input : e ==> eccentricity anomaly . ( real scalar ) capn ==> hyperbola mean anomaly . ( real scalar ) Returns : orbel_flon ==> eccentric anomaly . ( real scalar ) ALGORITHM : Uses power series for N in terms of F and Newton , s method REMARKS : ONLY GOOD FOR LOW VALUES OF N ( N < 0 . 636 * e - 0 . 6 ) AUTHOR : M . Duncan DATE WRITTEN : May 26 , 1992 . REVISIONS : Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 ORBEL_FGET.F PURPOSE : Solves Kepler 's eqn. for hyperbola using hybrid approach. Input: e ==> eccentricity anomaly. (real scalar) capn ==> hyperbola mean anomaly. (real scalar) Returns: orbel_fget ==>  eccentric anomaly. (real scalar) ALGORITHM: Based on pp. 70-72 of Fitzpatrick' s book \"Principles of Cel. Mech. \" . Quartic convergence from Danby ' s book . REMARKS : AUTHOR : M . Duncan DATE WRITTEN : May 11 , 1992 . REVISIONS : 2 / 26 / 93 hfl Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 ORBEL_ZGET.F PURPOSE : Solves the equivalent of Kepler 's eqn. for a parabola given Q (Fitz. notation.) Input: q ==>  parabola mean anomaly. (real scalar) Returns: orbel_zget ==>  eccentric anomaly. (real scalar) ALGORITHM: p. 70-72 of Fitzpatrick' s book \"Princ. of Cel. Mech.\" REMARKS : For a parabola we can solve analytically . AUTHOR : M . Duncan DATE WRITTEN : May 11 , 1992 . REVISIONS : May 27 - corrected it for negative Q and use power series for small Q . Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 ORBEL_ESOLMD.F PURPOSE : Solves Kepler ' s eqn . e is ecc . m is mean anomaly . Input : e ==> eccentricity anomaly . ( real scalar ) m ==> mean anomaly . ( real scalar ) Returns : orbel_esolmd ==> eccentric anomaly . ( real scalar ) ALGORITHM : Some sort of quartic convergence from Wisdom . REMARKS : ONLY GOOD FOR SMALL ECCENTRICITY SINCE IT ONLY ITERATES ONCE . ( GOOD FOR PLANET CALCS .) ALSO DOES NOT PUT M OR E BETWEEN 0 . AND 2 * PI INCLUDES : needs SCGET . F AUTHOR : M . Duncan DATE WRITTEN : May 7 , 1992 . REVISIONS : 2 / 26 / 93 hfl Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 ORBEL_EHIE.F PURPOSE : Solves Kepler 's eqn.   e is ecc.   m is mean anomaly. Input: e ==> eccentricity anomaly. (real scalar) m ==> mean anomaly. (real scalar) Returns: orbel_ehybrid ==>  eccentric anomaly. (real scalar) ALGORITHM: Use Danby' s quartic for 3 iterations . Eqn . is f ( x ) = x - e * sin ( x + M ). Note that E = x + M . First guess is very good for e near 1 . Need to first get M between 0 . and PI and use symmetry to return right answer if M between PI and 2PI\n     REMARKS: Modifies M so that both E and M are in range (0,TWOPI)\n     AUTHOR: M. Duncan\n     DATE WRITTEN: May 25,1992.\n     REVISIONS: Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 ORBEL_EGET.F PURPOSE : Solves Kepler ' s eqn . e is ecc . m is mean anomaly . Input : e ==> eccentricity anomaly . ( real scalar ) m ==> mean anomaly . ( real scalar ) Returns : orbel_eget ==> eccentric anomaly . ( real scalar ) ALGORITHM : Quartic convergence from Danby REMARKS : For results very near roundoff , give it M between 0 and 2 * pi . One can condition M before calling EGET by calling my double precision function MOD2PI ( M ). This is not done within the routine to speed it up and because it works fine even for large M . AUTHOR : M . Duncan DATE WRITTEN : May 7 , 1992. REVISIONS : May 21 , 1992. Now have it go through EXACTLY two iterations with the premise that it will only be called if we have an ellipse with e between 0.15 and 0.8 Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 ORBEL_EHYBRID.F PURPOSE : Solves Kepler ' s eqn . e is ecc . m is mean anomaly . Input : e ==> eccentricity anomaly . ( real scalar ) m ==> mean anomaly . ( real scalar ) Returns : orbel_ehybrid ==> eccentric anomaly . ( real scalar ) ALGORITHM : For e < 0 . 18 uses fast routine ESOLMD For larger e but less than 0 . 8 , uses EGET For e > 0 . 8 uses EHIE REMARKS : Only EHIE brings M and E into range ( 0 , TWOPI ) AUTHOR : M . Duncan DATE WRITTEN : May 25 , 1992 . REVISIONS : 2 / 26 / 93 hfl Code converted to Modern Fortran by David A. Minton\n Date: 2020-06-29 ORBEL_FHYBRID.F PURPOSE : Solves Kepler ' s eqn . for hyperbola using hybrid approach . Input : e ==> eccentricity anomaly . ( real scalar ) n ==> hyperbola mean anomaly . ( real scalar ) Returns : orbel_fhybrid ==> eccentric anomaly . ( real scalar ) ALGORITHM : For abs ( N ) < 0 . 636 * ecc - 0 . 6 , use FLON For larger N , uses FGET REMARKS : AUTHOR : M . Duncan DATE WRITTEN : May 26 , 1992 . REVISIONS :: REVISIONS : 2 / 26 / 93 hfl Uses swiftest Ancestors: swiftest_classes module~~s_orbel~~UsesGraph module~s_orbel s_orbel module~swiftest_classes swiftest_classes module~s_orbel->module~swiftest_classes module~swiftest swiftest module~s_orbel->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Functions orbel_flon orbel_fget orbel_zget orbel_esolmd orbel_ehie orbel_eget orbel_ehybrid orbel_fhybrid Subroutines orbel_el2xv orbel_schget orbel_xv2el Module Subroutines orbel_el2xv_vec orbel_scget orbel_xv2aeq orbel_xv2aqt orbel_xv2el_vec Functions pure function orbel_flon (e, icapn) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: icapn Return Value real(kind=DP) pure function orbel_fget (e, capn) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: capn Return Value real(kind=DP) pure function orbel_zget (iq) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: iq Return Value real(kind=DP) pure function orbel_esolmd (e, m) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: m Return Value real(kind=DP) pure function orbel_ehie (e, im) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: im Return Value real(kind=DP) pure function orbel_eget (e, m) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: m Return Value real(kind=DP) pure function orbel_ehybrid (e, m) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: m Return Value real(kind=DP) pure function orbel_fhybrid (e, n) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: e real(kind=DP), intent(in) :: n Return Value real(kind=DP) Subroutines pure subroutine orbel_el2xv (mu, a, ie, inc, capom, omega, capm, x, v) Author David A. Minton Compute osculating orbital elements from relative C)rtesian position and velocity\n  All angular measures are returned in radians\n      If inclination < TINY, longitude of the ascending node is arbitrarily set to 0 Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: a real(kind=DP), intent(in) :: ie real(kind=DP), intent(in) :: inc real(kind=DP), intent(in) :: capom real(kind=DP), intent(in) :: omega real(kind=DP), intent(in) :: capm real(kind=DP), intent(out), dimension(:) :: x real(kind=DP), intent(out), dimension(:) :: v pure subroutine orbel_schget (angle, shx, chx) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: angle real(kind=DP), intent(out) :: shx real(kind=DP), intent(out) :: chx pure subroutine orbel_xv2el (mu, x, v, a, e, inc, capom, omega, capm) Author David A. Minton Compute osculating orbital elements from relative Cartesian position and velocity\n  All angular measures are returned in radians\n      If inclination < TINY, longitude of the ascending node is arbitrarily set to 0 Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in), dimension(:) :: v real(kind=DP), intent(out) :: a real(kind=DP), intent(out) :: e real(kind=DP), intent(out) :: inc real(kind=DP), intent(out) :: capom real(kind=DP), intent(out) :: omega real(kind=DP), intent(out) :: capm Module Subroutines module subroutine orbel_el2xv_vec (self, cb) Interface → Author David A. Minton A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body objec pure module subroutine orbel_scget (angle, sx, cx) Interface → Author David A. Minton Efficiently compute the sine and cosine of an input angle\n      Input angle must be in radians Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: angle real(kind=DP), intent(out) :: sx real(kind=DP), intent(out) :: cx pure module subroutine orbel_xv2aeq (mu, x, v, a, e, q) Interface → Author David A. Minton Compute semimajor axis, eccentricity, and pericentric distance from relative Cartesian position and velocity Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu real(kind=DP), intent(in), dimension(:) :: x real(kind=DP), intent(in), dimension(:) :: v real(kind=DP), intent(out) :: a real(kind=DP), intent(out) :: e real(kind=DP), intent(out) :: q pure module subroutine orbel_xv2aqt (mu, x, v, a, q, capm, tperi) Interface → Author David A. Minton Compute semimajor axis, pericentric distance, mean anomaly, and time to nearest pericenter passage from\n relative Cartesian position and velocity\n      tperi > 0 means nearest pericenter passage is in the future\n      tperi < 0 means nearest pericenter passage is in the past Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(out) :: a semimajor axis real(kind=DP), intent(out) :: q periapsis real(kind=DP), intent(out) :: capm mean anomaly real(kind=DP), intent(out) :: tperi time of pericenter passage module subroutine orbel_xv2el_vec (self, cb) Interface → Author David A. Minton A wrapper method that converts all of the cartesian position and velocity vectors of a Swiftest body object to orbital elements. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"module/s_orbel.html"},{"title":"s_whm_coord – swiftest","text":"Uses swiftest Ancestors: whm_classes module~~s_whm_coord~~UsesGraph module~s_whm_coord s_whm_coord module~whm_classes whm_classes module~s_whm_coord->module~whm_classes module~swiftest swiftest module~s_whm_coord->module~swiftest module~swiftest_globals swiftest_globals module~whm_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~swiftest_classes->module~swiftest_globals module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines whm_coord_h2j_pl whm_coord_j2h_pl whm_coord_vh2vj_pl Module Subroutines module subroutine whm_coord_h2j_pl (self, cb) Interface → Author David A. Minton Convert from heliocentric to Jacobi coordinates, massive bodies only Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree module subroutine whm_coord_j2h_pl (self, cb) Interface → Author David A. Minton Convert from Jacobi to heliocentric coordinates, massive bodies only. Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree module subroutine whm_coord_vh2vj_pl (self, cb) Interface → Author David A. Minton Convert from heliocentric to Jadcobi coordinates, massive body velocities only Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_cb ), intent(inout) :: cb Swiftest central body particle data structuree","tags":"","loc":"module/s_whm_coord.html"},{"title":"s_whm_gr – swiftest","text":"Uses swiftest Ancestors: whm_classes module~~s_whm_gr~~UsesGraph module~s_whm_gr s_whm_gr module~whm_classes whm_classes module~s_whm_gr->module~whm_classes module~swiftest swiftest module~s_whm_gr->module~swiftest module~swiftest_globals swiftest_globals module~whm_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~swiftest_classes->module~swiftest_globals module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines whm_gr_kick_getacch_pl whm_gr_kick_getacch_tp whm_gr_p4_pl whm_gr_p4_tp Module Subroutines module subroutine whm_gr_kick_getacch_pl (self, param) Interface → Author David A. Minton Compute relativisitic accelerations of massive bodies\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters module subroutine whm_gr_kick_getacch_tp (self, param) Interface → Author David A. Minton Compute relativisitic accelerations of test particles\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters pure module subroutine whm_gr_p4_pl (self, param, dt) Interface → Author David A. Minton Position kick to massive bodies due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size pure module subroutine whm_gr_p4_tp (self, param, dt) Interface → Author David A. Minton Position kick to test particles due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size","tags":"","loc":"module/s_whm_gr.html"},{"title":"s_whm_step – swiftest","text":"Uses swiftest Ancestors: whm_classes module~~s_whm_step~~UsesGraph module~s_whm_step s_whm_step module~whm_classes whm_classes module~s_whm_step->module~whm_classes module~swiftest swiftest module~s_whm_step->module~swiftest module~swiftest_globals swiftest_globals module~whm_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~swiftest_classes->module~swiftest_globals module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines whm_step_system whm_step_pl whm_step_tp Module Subroutines module subroutine whm_step_system (self, param, t, dt) Interface → Author David A. Minton Step massive bodies and and active test particles ahead in heliocentric coordinates Read more… Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self WHM nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsize module subroutine whm_step_pl (self, system, param, t, dt) Interface → Author David A. Minton Step planets ahead using kick-drift-kick algorithm Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsize module subroutine whm_step_tp (self, system, param, t, dt) Interface → Author David A. Minton Step active test particles ahead using kick-drift-kick algorithm Read more… Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsize","tags":"","loc":"module/s_whm_step.html"},{"title":"whm_drift – swiftest","text":"Uses swiftest Ancestors: whm_classes module~~whm_drift~~UsesGraph module~whm_drift whm_drift module~whm_classes whm_classes module~whm_drift->module~whm_classes module~swiftest swiftest module~whm_drift->module~swiftest module~swiftest_globals swiftest_globals module~whm_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~swiftest_classes->module~swiftest_globals module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines whm_drift_pl Module Subroutines module subroutine whm_drift_pl (self, system, param, dt) Interface → Author David A. Minton Loop through planets and call Danby drift routine Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system WHM nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"module/whm_drift.html"},{"title":"s_whm_kick – swiftest","text":"Uses swiftest Ancestors: whm_classes module~~s_whm_kick~~UsesGraph module~s_whm_kick s_whm_kick module~whm_classes whm_classes module~s_whm_kick->module~whm_classes module~swiftest swiftest module~s_whm_kick->module~swiftest module~swiftest_globals swiftest_globals module~whm_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~swiftest_classes->module~swiftest_globals module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Functions whm_kick_getacch_ah0 Subroutines whm_kick_getacch_ah1 whm_kick_getacch_ah2 Module Subroutines whm_kick_getacch_pl whm_kick_getacch_tp whm_kick_vh_pl whm_kick_vh_tp Functions function whm_kick_getacch_ah0 (mu, xhp, n) result(ah0) Author David A. Minton Compute zeroth term heliocentric accelerations of planets Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu real(kind=DP), intent(in), dimension(:,:) :: xhp integer(kind=I4B), intent(in) :: n Return Value real(kind=DP),\n  dimension(NDIM) Subroutines pure subroutine whm_kick_getacch_ah1 (cb, pl) Author David A. Minton Compute first term heliocentric accelerations of planets Read more… Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: cb WHM central body object class( whm_pl ), intent(inout) :: pl WHM massive body object pure subroutine whm_kick_getacch_ah2 (cb, pl) Author David A. Minton Compute second term heliocentric accelerations of planets Read more… Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: cb Swiftest central body object class( whm_pl ), intent(inout) :: pl WHM massive body object Module Subroutines module subroutine whm_kick_getacch_pl (self, system, param, t, lbeg) Interface → Author David A. Minton Compute heliocentric accelerations of planets Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest central body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step module subroutine whm_kick_getacch_tp (self, system, param, t, lbeg) Interface → Author David A. Minton Compute heliocentric accelerations of test particles Read more… Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest central body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step module subroutine whm_kick_vh_pl (self, system, param, t, dt, lbeg) Interface → Author David A. Minton Kick heliocentric velocities of massive bodies Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. module subroutine whm_kick_vh_tp (self, system, param, t, dt, lbeg) Interface → Author David A. Minton Kick heliocentric velocities of test particles Read more… Arguments Type Intent Optional Attributes Name class( whm_tp ), intent(inout) :: self WHM massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not.","tags":"","loc":"module/s_whm_kick.html"},{"title":"s_whm_setup – swiftest","text":"Uses swiftest Ancestors: whm_classes module~~s_whm_setup~~UsesGraph module~s_whm_setup s_whm_setup module~whm_classes whm_classes module~s_whm_setup->module~whm_classes module~swiftest swiftest module~s_whm_setup->module~swiftest module~swiftest_globals swiftest_globals module~whm_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~swiftest_classes->module~swiftest_globals module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines whm_setup_pl whm_util_set_mu_eta_pl whm_setup_initialize_system Module Subroutines module subroutine whm_setup_pl (self, n, param) Interface → Author David A. Minton Allocate WHM planet structure Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameter module subroutine whm_util_set_mu_eta_pl (self, cb) Interface → Author David A. Minton Sets the Jacobi mass value eta for all massive bodies Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM system object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine whm_setup_initialize_system (self, param) Interface → Author David A. Minton Initialize a WHM nbody system from files Arguments Type Intent Optional Attributes Name class( whm_nbody_system ), intent(inout) :: self Swiftest system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters","tags":"","loc":"module/s_whm_setup.html"},{"title":"s_whm_util – swiftest","text":"Uses swiftest Ancestors: whm_classes module~~s_whm_util~~UsesGraph module~s_whm_util s_whm_util module~whm_classes whm_classes module~s_whm_util->module~whm_classes module~swiftest swiftest module~s_whm_util->module~swiftest module~swiftest_globals swiftest_globals module~whm_classes->module~swiftest_globals module~swiftest_classes swiftest_classes module~whm_classes->module~swiftest_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~swiftest_classes module~rmvs_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~swiftest_classes->module~swiftest_globals module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines whm_util_append_pl whm_util_fill_pl whm_util_resize_pl whm_util_set_ir3j whm_util_sort_pl whm_util_sort_rearrange_pl whm_util_spill_pl Module Subroutines module subroutine whm_util_append_pl (self, source, lsource_mask) Interface → Author David A. Minton Append components from one massive body object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine whm_util_fill_pl (self, inserts, lfill_list) Interface → Author David A. Minton Insert new WHM test particle structure into an old one. \n This is the inverse of a fill operation. Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(in) :: inserts inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine whm_util_resize_pl (self, nnew) Interface → Author David A. Minton Checks the current size of a massive body against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in) :: nnew New size neded module subroutine whm_util_set_ir3j (self) Interface → Author David A. Minton Sets the inverse Jacobi and heliocentric radii cubed (1/rj 3 and 1/rh 3) Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object module subroutine whm_util_sort_pl (self, sortby, ascending) Interface → Author David A. Minton Sort a WHM massive body object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order module subroutine whm_util_sort_rearrange_pl (self, ind) Interface → Author David A. Minton Rearrange WHM massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) module subroutine whm_util_spill_pl (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) WHM test particle structure from active list to discard list Read more… Arguments Type Intent Optional Attributes Name class( whm_pl ), intent(inout) :: self WHM massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"module/s_whm_util.html"},{"title":"s_operator_cross – swiftest","text":"Contains implementations for the .cross. operator for all defined integer and real types\n Single vector implementations: C(1:3)   = A(1:3)   .cross. B(1:3) \n Vector list implementations:   C(1:3, :) = A(1:3, :) .cross. B(1:3, :) Uses swiftest Ancestors: swiftest_operators module~~s_operator_cross~~UsesGraph module~s_operator_cross s_operator_cross module~swiftest_operators swiftest_operators module~s_operator_cross->module~swiftest_operators module~swiftest swiftest module~s_operator_cross->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_operators->module~swiftest_globals module~swiftest->module~swiftest_operators module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Functions operator_cross_sp operator_cross_dp operator_cross_qp operator_cross_i1b operator_cross_i2b operator_cross_i4b operator_cross_i8b operator_cross_el_sp operator_cross_el_dp operator_cross_el_qp operator_cross_el_i1b operator_cross_el_i2b operator_cross_el_i4b operator_cross_el_i8b Module Functions pure function operator_cross_sp (A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: A real(kind=SP), intent(in), dimension(:) :: B Return Value real(kind=SP),\n  dimension(3) pure function operator_cross_dp (A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: A real(kind=DP), intent(in), dimension(:) :: B Return Value real(kind=DP),\n  dimension(3) pure function operator_cross_qp (A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:) :: A real(kind=QP), intent(in), dimension(:) :: B Return Value real(kind=QP),\n  dimension(3) pure function operator_cross_i1b (A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I1B), intent(in), dimension(:) :: A integer(kind=I1B), intent(in), dimension(:) :: B Return Value integer(kind=I1B),\n  dimension(3) pure function operator_cross_i2b (A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I2B), intent(in), dimension(:) :: A integer(kind=I2B), intent(in), dimension(:) :: B Return Value integer(kind=I2B),\n  dimension(3) pure function operator_cross_i4b (A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:) :: A integer(kind=I4B), intent(in), dimension(:) :: B Return Value integer(kind=I4B),\n  dimension(3) pure function operator_cross_i8b (A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in), dimension(:) :: A integer(kind=I8B), intent(in), dimension(:) :: B Return Value integer(kind=I8B),\n  dimension(3) pure function operator_cross_el_sp (A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:,:) :: A real(kind=SP), intent(in), dimension(:,:) :: B Return Value real(kind=SP),\n  dimension(:,:), allocatable pure function operator_cross_el_dp (A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A real(kind=DP), intent(in), dimension(:,:) :: B Return Value real(kind=DP),\n  dimension(:,:), allocatable pure function operator_cross_el_qp (A, B) result(C) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:,:) :: B Return Value real(kind=QP),\n  dimension(:,:), allocatable pure function operator_cross_el_i1b (A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I1B), intent(in), dimension(:,:) :: A integer(kind=I1B), intent(in), dimension(:,:) :: B Return Value integer(kind=I1B),\n  dimension(:,:), allocatable pure function operator_cross_el_i2b (A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I2B), intent(in), dimension(:,:) :: A integer(kind=I2B), intent(in), dimension(:,:) :: B Return Value integer(kind=I2B),\n  dimension(:,:), allocatable pure function operator_cross_el_i4b (A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:,:) :: A integer(kind=I4B), intent(in), dimension(:,:) :: B Return Value integer(kind=I4B),\n  dimension(:,:), allocatable pure function operator_cross_el_i8b (A, B) result(C) Arguments Type Intent Optional Attributes Name integer(kind=I8B), intent(in), dimension(:,:) :: A integer(kind=I8B), intent(in), dimension(:,:) :: B Return Value integer(kind=I8B),\n  dimension(:,:), allocatable","tags":"","loc":"module/s_operator_cross.html"},{"title":"s_operator_mag – swiftest","text":"Contains implementations for the .mag. operator for all defined real types\n Single vector implementations:  B   = .mag. A(1:3)\n Vector list implementations:   B(:) = .mag. A(1:3, :) Uses Ancestors: swiftest_operators module~~s_operator_mag~~UsesGraph module~s_operator_mag s_operator_mag module~swiftest_operators swiftest_operators module~s_operator_mag->module~swiftest_operators module~swiftest_globals swiftest_globals module~swiftest_operators->module~swiftest_globals iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Functions operator_mag_sp operator_mag_dp operator_mag_el_sp operator_mag_el_dp operator_mag_el_qp Module Functions pure function operator_mag_sp (A) result(B) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: A Return Value real(kind=SP) pure function operator_mag_dp (A) result(B) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: A Return Value real(kind=DP) pure function operator_mag_el_sp (A) result(B) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:,:) :: A Return Value real(kind=SP),\n  dimension(:), allocatable pure function operator_mag_el_dp (A) result(B) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A Return Value real(kind=DP),\n  dimension(:), allocatable pure function operator_mag_el_qp (A) result(B) Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A Return Value real(kind=QP),\n  dimension(:), allocatable","tags":"","loc":"module/s_operator_mag.html"},{"title":"s_util_solve – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_solve~~UsesGraph module~s_util_solve s_util_solve module~swiftest_classes swiftest_classes module~s_util_solve->module~swiftest_classes module~swiftest swiftest module~s_util_solve->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Functions solve_wbs ge_wpp Module Functions util_solve_linear_system_d util_solve_linear_system_q util_solve_rkf45 Functions function solve_wbs (u) result(x) Based on code available on Rosetta Code: https://rosettacode.org/wiki/Gaussian_elimination#Fortran Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:), allocatable :: u Return Value real(kind=QP),\n  dimension(:), allocatable function ge_wpp (A, b) result(u) Solve  Ax=b  using Gaussian elimination then backwards substitution.\n   A being an n by n matrix.\n   x and b are n by 1 vectors. \n Based on code available on Rosetta Code: https://rosettacode.org/wiki/Gaussian_elimination#Fortran Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:) :: b Return Value real(kind=QP),\n  dimension(:,:), allocatable Module Functions function util_solve_linear_system_d (A, b, n, lerr) result(x) Author David A. Minton Solves the linear equation of the form A*x = b for x. \n   A is an (n,n) arrays\n   x and b are (n) arrays\n Uses Gaussian elimination, so will have issues if system is ill-conditioned.\n Uses quad precision intermidiate values, so works best on small arrays. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:,:) :: A real(kind=DP), intent(in), dimension(:) :: b integer(kind=I4B), intent(in) :: n logical, intent(out) :: lerr Return Value real(kind=DP),\n  dimension(n) function util_solve_linear_system_q (A, b, n, lerr) result(x) Author David A. Minton Solves the linear equation of the form A*x = b for x. \n   A is an (n,n) arrays\n   x and b are (n) arrays\n Uses Gaussian elimination, so will have issues if system is ill-conditioned.\n Uses quad precision intermidiate values, so works best on small arrays. Arguments Type Intent Optional Attributes Name real(kind=QP), intent(in), dimension(:,:) :: A real(kind=QP), intent(in), dimension(:) :: b integer(kind=I4B), intent(in) :: n logical, intent(out) :: lerr Return Value real(kind=QP),\n  dimension(n) module function util_solve_rkf45 (f, y0in, t1, dt0, tol) result(y1) Interface → Author David A. Minton Implements the 4th order Runge-Kutta-Fehlberg ODE solver for initial value problems of the form f=dy/dt, y0 = y(t=0), solving for y1 = y(t=t1). Uses a 5th order adaptive step size control.\n Uses a lambda function object as defined in the lambda_function module Arguments Type Intent Optional Attributes Name class(lambda_obj), intent(inout) :: f lambda function object that has been initialized to be a function of derivatives. The object will return with components lastarg and lasteval set real(kind=DP), intent(in), dimension(:) :: y0in Initial value at t=0 real(kind=DP), intent(in) :: t1 Final time real(kind=DP), intent(in) :: dt0 Initial step size guess real(kind=DP), intent(in) :: tol Tolerance on solution Return Value real(kind=DP),\n  dimension(:), allocatable Final result","tags":"","loc":"module/s_util_solve.html"},{"title":"s_util_set – swiftest","text":"This submodule contains a collection of setter method implementations Uses swiftest Ancestors: swiftest_classes module~~s_util_set~~UsesGraph module~s_util_set s_util_set module~swiftest_classes swiftest_classes module~s_util_set->module~swiftest_classes module~swiftest swiftest module~s_util_set->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_set_beg_end_pl util_set_ir3h util_set_msys util_set_mu_pl util_set_mu_tp util_set_rhill util_set_rhill_approximate Module Subroutines module subroutine util_set_beg_end_pl (self, xbeg, xend, vbeg) Interface → Author David A. Minton Sets one or more of the values of xbeg, xend, and vbeg Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object real(kind=DP), intent(in), optional dimension(:,:) :: xbeg real(kind=DP), intent(in), optional dimension(:,:) :: xend real(kind=DP), intent(in), optional dimension(:,:) :: vbeg module subroutine util_set_ir3h (self) Interface → Author David A. Minton Sets the inverse heliocentric radius term (1/rh**3) for all bodies in a structure Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object module subroutine util_set_msys (self) Interface → Author David A. Minton Sets the value of msys and the vector mass quantities based on the total mass of the system Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nobdy system object module subroutine util_set_mu_pl (self, cb) Interface → Author David A. Minton Computes G * (M + m) for each massive body Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine util_set_mu_tp (self, cb) Interface → Author David A. Minton Converts certain scalar values to arrays so that they can be used in elemental functions Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine util_set_rhill (self, cb) Interface → Author David A. Minton Sets the value of the Hill's radius Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine util_set_rhill_approximate (self, cb) Interface → Author David A. Minton Sets the approximate value of the Hill's radius using the heliocentric radius instead of computing the semimajor axis Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object","tags":"","loc":"module/s_util_set.html"},{"title":"s_util_peri – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_peri~~UsesGraph module~s_util_peri s_util_peri module~swiftest_classes swiftest_classes module~s_util_peri->module~swiftest_classes module~swiftest swiftest module~s_util_peri->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_peri_tp Module Subroutines module subroutine util_peri_tp (self, system, param) Interface → Author David A. Minton Determine system pericenter passages for test particles\n Note:  If the coordinate system used is barycentric, then this routine assumes that the barycentric coordinates in the\n        test particle structures are up-to-date and are not recomputed Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"module/s_util_peri.html"},{"title":"s_util_coord – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_coord~~UsesGraph module~s_util_coord s_util_coord module~swiftest_classes swiftest_classes module~s_util_coord->module~swiftest_classes module~swiftest swiftest module~s_util_coord->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_coord_h2b_pl util_coord_h2b_tp util_coord_b2h_pl util_coord_b2h_tp Module Subroutines module subroutine util_coord_h2b_pl (self, cb) Interface → Author David A. Minton Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) Read more… Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine util_coord_h2b_tp (self, cb) Interface → Author David A. Minton Convert massive bodies from heliocentric to barycentric coordinates (position and velocity) Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_cb ), intent(in) :: cb Swiftest central body object module subroutine util_coord_b2h_pl (self, cb) Interface → Author David A. Minton Convert massive bodies from barycentric to heliocentric coordinates (position and velocity) Read more… Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine util_coord_b2h_tp (self, cb) Interface → Author David A. Minton Convert test particles from barycentric to heliocentric coordinates (position and velocity) Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest massive body object class( swiftest_cb ), intent(in) :: cb Swiftest central body object","tags":"","loc":"module/s_util_coord.html"},{"title":"s_util_rescale – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_rescale~~UsesGraph module~s_util_rescale s_util_rescale module~swiftest_classes swiftest_classes module~s_util_rescale->module~swiftest_classes module~swiftest swiftest module~s_util_rescale->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_rescale_system Module Subroutines module subroutine util_rescale_system (self, param, mscale, dscale, tscale) Interface → Author David A. Minton Rescales an nbody system to a new set of units. Inputs are the multipliers on the mass (mscale), distance (dscale), and time units (tscale). \n Rescales all united quantities in the system, as well as the mass conversion factors, gravitational constant, and Einstein's constant in the parameter object. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters. Returns with new values of the scale vactors and GU real(kind=DP), intent(in) :: mscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: dscale Scale factors for mass, distance, and time units, respectively. real(kind=DP), intent(in) :: tscale Scale factors for mass, distance, and time units, respectively.","tags":"","loc":"module/s_util_rescale.html"},{"title":"s_util_version – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_version~~UsesGraph module~s_util_version s_util_version module~swiftest_classes swiftest_classes module~s_util_version->module~swiftest_classes module~swiftest swiftest module~s_util_version->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_version Module Subroutines module subroutine util_version () Interface → Author David A. Minton Print program version information to terminale Read more… Arguments None","tags":"","loc":"module/s_util_version.html"},{"title":"s_util_sort – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_sort~~UsesGraph module~s_util_sort s_util_sort module~swiftest_classes swiftest_classes module~s_util_sort->module~swiftest_classes module~swiftest swiftest module~s_util_sort->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_sort_body util_sort_pl util_sort_tp util_sort_rearrange_body util_sort_rearrange_pl util_sort_rearrange_tp util_sort_dp util_sort_index_dp util_sort_i4b util_sort_index_i4b util_sort_sp util_sort_index_sp Module Subroutines module subroutine util_sort_body (self, sortby, ascending) Interface → Author David A. Minton Sort a Swiftest body structure in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order module subroutine util_sort_pl (self, sortby, ascending) Interface → Author David A. Minton Sort a Swiftest massive body object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order module subroutine util_sort_tp (self, sortby, ascending) Interface → Author David A. Minton Sort a Swiftest test particle object  in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order module subroutine util_sort_rearrange_body (self, ind) Interface → Author David A. Minton Rearrange Swiftest body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) module subroutine util_sort_rearrange_pl (self, ind) Interface → Author David A. Minton Rearrange Swiftest massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) module subroutine util_sort_rearrange_tp (self, ind) Interface → Author David A. Minton Rearrange Swiftest massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) subroutine util_sort_dp (arr) Author David A. Minton Sort input double precision array in place into ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:) :: arr subroutine util_sort_index_dp (arr, ind) Author David A. Minton Sort input double precision array by index in ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind subroutine util_sort_i4b (arr) Author David A. Minton Sort input integer array in place into ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:) :: arr subroutine util_sort_index_i4b (arr, ind) Author David A. Minton Sort input integer array by index in ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind subroutine util_sort_sp (arr) Author David A. Minton Sort input single precision array in place into ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(inout), dimension(:) :: arr subroutine util_sort_index_sp (arr, ind) Author David A. Minton Sort input single precision array by index in ascending numerical order using insertion sort.\n This algorithm works well for partially sorted arrays (which is usually the case here) Arguments Type Intent Optional Attributes Name real(kind=SP), intent(in), dimension(:) :: arr integer(kind=I4B), intent(out), dimension(:) :: ind","tags":"","loc":"module/s_util_sort.html"},{"title":"s_util_spill – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_spill~~UsesGraph module~s_util_spill s_util_spill module~swiftest_classes swiftest_classes module~s_util_spill->module~swiftest_classes module~swiftest swiftest module~s_util_spill->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_spill_arr_char_string util_spill_arr_DP util_spill_arr_DPvec util_spill_arr_I4B util_spill_arr_logical util_spill_body util_spill_encounter util_spill_pl util_spill_tp Module Subroutines subroutine util_spill_arr_char_string (keeps, discards, lspill_list, ldestructive) Author David A. Minton Performs a spill operation on a single array of type character strings\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: keeps Array of values to keep character(len=STRMAX), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not subroutine util_spill_arr_DP (keeps, discards, lspill_list, ldestructive) Author David A. Minton Performs a spill operation on a single array of type DP\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: keeps Array of values to keep real(kind=DP), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not subroutine util_spill_arr_DPvec (keeps, discards, lspill_list, ldestructive) Author David A. Minton Performs a spill operation on a single array of DP vectors with shape (NDIM, n)\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: keeps Array of values to keep real(kind=DP), intent(inout), dimension(:,:), allocatable :: discards Array discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not subroutine util_spill_arr_I4B (keeps, discards, lspill_list, ldestructive) Author David A. Minton Performs a spill operation on a single array of type I4B\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I4B), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not subroutine util_spill_arr_logical (keeps, discards, lspill_list, ldestructive) Author David A. Minton Performs a spill operation on a single array of logicals\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: keeps Array of values to keep logical, intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or no module subroutine util_spill_body (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) Swiftest generic particle structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill all the common components Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list module subroutine util_spill_encounter (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) Swiftest encounter structure from active list to discard list Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list module subroutine util_spill_pl (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) Swiftest massive body structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill components specific to the massive body class Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list module subroutine util_spill_tp (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) Swiftest test particle structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill components specific to the test particle class Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardse logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list","tags":"","loc":"module/s_util_spill.html"},{"title":"s_util_valid – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_valid~~UsesGraph module~s_util_valid s_util_valid module~swiftest_classes swiftest_classes module~s_util_valid->module~swiftest_classes module~swiftest swiftest module~s_util_valid->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_valid_id_system Module Subroutines module subroutine util_valid_id_system (self, param) Interface → Author David A. Minton Validate massive body and test particle ids\n Subroutine causes program to exit with error if any ids are not unique Read more… Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"module/s_util_valid.html"},{"title":"s_util_exit – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_exit~~UsesGraph module~s_util_exit s_util_exit module~swiftest_classes swiftest_classes module~s_util_exit->module~swiftest_classes module~swiftest swiftest module~s_util_exit->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_exit Module Subroutines module subroutine util_exit (code) Interface → Author David A. Minton Print termination message and exit program Read more… Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: code","tags":"","loc":"module/s_util_exit.html"},{"title":"s_util_fill – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_fill~~UsesGraph module~s_util_fill s_util_fill module~swiftest_classes swiftest_classes module~s_util_fill->module~swiftest_classes module~swiftest swiftest module~s_util_fill->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_fill_arr_char_string util_fill_arr_DP util_fill_arr_DPvec util_fill_arr_I4B util_fill_arr_logical util_fill_body util_fill_pl util_fill_tp Module Subroutines subroutine util_fill_arr_char_string (keeps, inserts, lfill_list) Author David A. Minton Performs a fill operation on a single array of type character strings\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: keeps Array of values to keep character(len=STRMAX), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps subroutine util_fill_arr_DP (keeps, inserts, lfill_list) Author David A. Minton Performs a fill operation on a single array of type DP\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: keeps Array of values to keep real(kind=DP), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps subroutine util_fill_arr_DPvec (keeps, inserts, lfill_list) Author David A. Minton Performs a fill operation on a single array of DP vectors with shape (NDIM, n)\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: keeps Array of values to keep real(kind=DP), intent(in), dimension(:,:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps subroutine util_fill_arr_I4B (keeps, inserts, lfill_list) Author David A. Minton Performs a fill operation on a single array of type I4B\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: keeps Array of values to keep integer(kind=I4B), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps subroutine util_fill_arr_logical (keeps, inserts, lfill_list) Author David A. Minton Performs a fill operation on a single array of logicals\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: keeps Array of values to keep logical, intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine util_fill_body (self, inserts, lfill_list) Interface → Author David A. Minton Insert new Swiftest generic particle structure into an old one. \n This is the inverse of a spill operation.\n Fill all the common components Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_body ), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine util_fill_pl (self, inserts, lfill_list) Interface → Author David A. Minton Insert new Swiftest massive body structure into an old one. \n This is the inverse of a spill operation.\n Fill components specific to the massive body class Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine util_fill_tp (self, inserts, lfill_list) Interface → Author David A. Minton Insert new Swiftest test particle structure into an old one. \n This is the inverse of a fill operation.\n Spill components specific to the test particle class Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: inserts Swiftest body object to be inserted logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps","tags":"","loc":"module/s_util_fill.html"},{"title":"s_util_resize – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_resize~~UsesGraph module~s_util_resize s_util_resize module~swiftest_classes swiftest_classes module~s_util_resize->module~swiftest_classes module~swiftest swiftest module~s_util_resize->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_resize_arr_char_string util_resize_arr_DP util_resize_arr_DPvec util_resize_arr_I4B util_resize_arr_logical util_resize_body util_resize_encounter util_resize_pl util_resize_tp Module Subroutines subroutine util_resize_arr_char_string (arr, nnew) Author David A. Minton Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size subroutine util_resize_arr_DP (arr, nnew) Author David A. Minton Resizes an array component of double precision type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size subroutine util_resize_arr_DPvec (arr, nnew) Author David A. Minton Resizes an array component of double precision vectors of size (NDIM, n). Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size subroutine util_resize_arr_I4B (arr, nnew) Author David A. Minton Resizes an array component of integer type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size subroutine util_resize_arr_logical (arr, nnew) Author David A. Minton Resizes an array component of logical type. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size module subroutine util_resize_body (self, nnew) Interface → Author David A. Minton Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object integer(kind=I4B), intent(in) :: nnew New size neded module subroutine util_resize_encounter (self, nnew) Interface → Author David A. Minton Checks the current size of the encounter list against the required size and extends it by a factor of 2 more than requested if it is too small.\n Note: The reason to extend it by a factor of 2 is for performance. When there are many enounters per step, resizing every time you want to add an \n encounter takes significant computational effort. Resizing by a factor of 2 is a tradeoff between performance (fewer resize calls) and memory managment\n Memory usage grows by a factor of 2 each time it fills up, but no more. Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter list integer(kind=I4B), intent(in) :: nnew New size of list needed module subroutine util_resize_pl (self, nnew) Interface → Author David A. Minton Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: nnew New size neded module subroutine util_resize_tp (self, nnew) Interface → Author David A. Minton Checks the current size of a Swiftest body against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: nnew New size neded","tags":"","loc":"module/s_util_resize.html"},{"title":"s_util_copy – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_copy~~UsesGraph module~s_util_copy s_util_copy module~swiftest_classes swiftest_classes module~s_util_copy->module~swiftest_classes module~swiftest swiftest module~s_util_copy->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_copy_encounter Module Subroutines module subroutine util_copy_encounter (self, source) Interface → Author David A. Minton Copies elements from the source encounter list into self. Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Encounter list class( swiftest_encounter ), intent(in) :: source Source object to copy into","tags":"","loc":"module/s_util_copy.html"},{"title":"s_util_minimize_bfgs – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_minimize_bfgs~~UsesGraph module~s_util_minimize_bfgs s_util_minimize_bfgs module~swiftest_classes swiftest_classes module~s_util_minimize_bfgs->module~swiftest_classes module~swiftest swiftest module~s_util_minimize_bfgs->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Functions util_minimize_bfgs Module Functions module function util_minimize_bfgs (f, N, x0, eps, lerr) result(x1) Interface → Author David A. Minton This function implements the Broyden-Fletcher-Goldfarb-Shanno method to determine the minimum of a function of N variables. It recieves as input:\n   f%eval(x) : lambda function object containing the objective function as the eval metho\n   N    :  Number of variables of function f\n   x0   :  Initial starting value of x\n   eps  :  Accuracy of 1 - dimensional minimization at each step\n The outputs include\n   lerr :  Returns .true. if it could not find the minimum\n Returns\n   x1   :  Final minimum (all 0 if none found)\n   0 = No miniumum found Read more… Arguments Type Intent Optional Attributes Name class(lambda_obj), intent(inout) :: f integer(kind=I4B), intent(in) :: N real(kind=DP), intent(in), dimension(:) :: x0 real(kind=DP), intent(in) :: eps logical, intent(out) :: lerr Return Value real(kind=DP),\n  dimension(:), allocatable","tags":"","loc":"module/s_util_minimize_bfgs.html"},{"title":"s_util_append – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_append~~UsesGraph module~s_util_append s_util_append module~swiftest_classes swiftest_classes module~s_util_append->module~swiftest_classes module~swiftest swiftest module~s_util_append->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_append_arr_char_string util_append_arr_DP util_append_arr_DPvec util_append_arr_I4B util_append_arr_logical util_append_body util_append_pl util_append_tp Module Subroutines subroutine util_append_arr_char_string (arr, source, nold, nsrc, lsource_mask) Author David A. Minton Append a single array of character string type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name character(len=STRMAX), intent(inout), dimension(:), allocatable :: arr Destination array character(len=STRMAX), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to subroutine util_append_arr_DP (arr, source, nold, nsrc, lsource_mask) Author David A. Minton Append a single array of double precision type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:), allocatable :: arr Destination array real(kind=DP), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to subroutine util_append_arr_DPvec (arr, source, nold, nsrc, lsource_mask) Author David A. Minton Append a single array of double precision vector type of size (NDIM, n) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout), dimension(:,:), allocatable :: arr Destination array real(kind=DP), intent(in), dimension(:,:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to subroutine util_append_arr_I4B (arr, source, nold, nsrc, lsource_mask) Author David A. Minton Append a single array of integer(I4B) onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(inout), dimension(:), allocatable :: arr Destination array integer(kind=I4B), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to subroutine util_append_arr_logical (arr, source, nold, nsrc, lsource_mask) Author David A. Minton Append a single array of logical type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name logical, intent(inout), dimension(:), allocatable :: arr Destination array logical, intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine util_append_body (self, source, lsource_mask) Interface → Author David A. Minton Append components from one Swiftest body object to another. \n This method will automatically resize the destination body if it is too small Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine util_append_pl (self, source, lsource_mask) Interface → Author David A. Minton Append components from one Swiftest body object to another. \n This method will automatically resize the destination body if it is too small Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine util_append_tp (self, source, lsource_mask) Interface → Author David A. Minton Append components from one Swiftest body object to another. \n This method will automatically resize the destination body if it is too small Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_body ), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to","tags":"","loc":"module/s_util_append.html"},{"title":"s_util_get_energy_momentum – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_util_get_energy_momentum~~UsesGraph module~s_util_get_energy_momentum s_util_get_energy_momentum module~swiftest_classes swiftest_classes module~s_util_get_energy_momentum->module~swiftest_classes module~swiftest swiftest module~s_util_get_energy_momentum->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines util_get_energy_momentum_system Module Subroutines module subroutine util_get_energy_momentum_system (self, param) Interface → Author David A. Minton Compute total system angular momentum vector and kinetic, potential and total system energy Read more… Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"module/s_util_get_energy_momentum.html"},{"title":"s_gr – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_gr~~UsesGraph module~s_gr s_gr module~swiftest_classes swiftest_classes module~s_gr->module~swiftest_classes module~swiftest swiftest module~s_gr->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines gr_kick_getaccb_ns_body gr_kick_getacch gr_p4_pos_kick gr_pseudovel2vel gr_pv2vh_body gr_vel2pseudovel gr_vh2pv_body Module Subroutines pure module subroutine gr_kick_getaccb_ns_body (self, system, param) Interface → Author David A. Minton Add relativistic correction acceleration for non-symplectic integrators.\n Based on Quinn et al. (1991) eq. 5 Read more… Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine gr_kick_getacch (mu, x, lmask, n, inv_c2, agr) Interface → Author David A. Minton Compute relativisitic accelerations of massive bodies\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu Gravitational constant real(kind=DP), intent(in), dimension(:,:) :: x Position vectors logical, intent(in), dimension(:) :: lmask Logical mask indicating which bodies to compute integer(kind=I4B), intent(in) :: n Total number of bodies real(kind=DP), intent(in) :: inv_c2 Inverse speed of light squared: 1 / c**2 real(kind=DP), intent(out), dimension(:,:) :: agr Accelerations pure module subroutine gr_p4_pos_kick (param, x, v, dt) Interface → Author David A. Minton Position kick due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(inout), dimension(:) :: x Position vector real(kind=DP), intent(in), dimension(:) :: v Velocity vector real(kind=DP), intent(in) :: dt Step size pure module subroutine gr_pseudovel2vel (param, mu, xh, pv, vh) Interface → Author David A. Minton Converts the relativistic pseudovelocity back into a veliocentric velocity\n    Based on Saha & Tremaine (1994) Eq. 32 Read more… Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real(kind=DP), intent(in), dimension(:) :: xh Heliocentric position vector real(kind=DP), intent(in), dimension(:) :: pv Pseudovelocity velocity vector - see Saha & Tremain (1994), eq. (32) real(kind=DP), intent(out), dimension(:) :: vh Heliocentric velocity vector pure module subroutine gr_pv2vh_body (self, param) Interface → Author David A. Minton Wrapper function that converts from pseudovelocity to heliocentric velocity for swiftest bodies Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters pure module subroutine gr_vel2pseudovel (param, mu, xh, vh, pv) Interface → Author David A. Minton Converts the heliocentric velocity into a pseudovelocity with relativistic corrections. \n Uses Newton-Raphson method with direct inversion of the Jacobian (yeah, it's slow, but \n this is only done once per run). Read more… Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body real(kind=DP), intent(in), dimension(:) :: xh Heliocentric position vector real(kind=DP), intent(in), dimension(:) :: vh Heliocentric velocity vector real(kind=DP), intent(out), dimension(:) :: pv Pseudovelocity vector - see Saha & Tremain (1994), eq. (32) pure module subroutine gr_vh2pv_body (self, param) Interface → Author David A. Minton Wrapper function that converts from heliocentric velocity to pseudovelocity for Swiftest bodies Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"module/s_gr.html"},{"title":"s_discard – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_discard~~UsesGraph module~s_discard s_discard module~swiftest_classes swiftest_classes module~s_discard->module~swiftest_classes module~swiftest swiftest module~s_discard->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Subroutines discard_cb_tp discard_peri_tp discard_pl_tp discard_pl_close Module Subroutines discard_system discard_pl discard_tp Subroutines subroutine discard_cb_tp (tp, system, param) Author David A. Minton Check to see if test particles should be discarded based on their positions relative to the Sun\n        or because they are unbound from the system Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: tp Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters subroutine discard_peri_tp (tp, system, param) Author David A. Minton Check to see if a test particle should be discarded because its perihelion distance becomes too small Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: tp Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameterss subroutine discard_pl_tp (tp, system, param) Author David A. Minton Check to see if test particles should be discarded based on their positions relative to the massive bodies Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: tp Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters subroutine discard_pl_close (dx, dv, dt, r2crit, iflag, r2min) Author David A. Minton Check to see if a test particle and massive body are having, or will have within the next time step, an encounter such\n          that the separation distance r is less than some critical radius rcrit (or r 2 < rcrit 2 = r2crit) Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: dx real(kind=DP), intent(in), dimension(:) :: dv real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r2crit integer(kind=I4B), intent(out) :: iflag real(kind=DP), intent(out) :: r2min Module Subroutines module subroutine discard_system (self, param) Interface → Author David A. Minton Calls the discard methods for each body class and then the write method if any discards were detected Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters module subroutine discard_pl (self, system, param) Interface → Author David A. Minton Placeholder method for discarding massive bodies. This method does nothing except to ensure that the discard flag is set to false. \n  This method is intended to be overridden by more advanced integrators. Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter module subroutine discard_tp (self, system, param) Interface → Author David A. Minton Check to see if particles should be discarded based on their positions relative to the massive bodies Read more… Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameter","tags":"","loc":"module/s_discard.html"},{"title":"s_helio_step – swiftest","text":"Uses swiftest Ancestors: helio_classes module~~s_helio_step~~UsesGraph module~s_helio_step s_helio_step module~helio_classes helio_classes module~s_helio_step->module~helio_classes module~swiftest swiftest module~s_helio_step->module~swiftest module~swiftest_globals swiftest_globals module~helio_classes->module~swiftest_globals module~whm_classes whm_classes module~helio_classes->module~whm_classes module~swiftest_classes swiftest_classes module~helio_classes->module~swiftest_classes module~swiftest->module~helio_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines helio_step_system helio_step_pl helio_step_tp Module Subroutines module subroutine helio_step_system (self, param, t, dt) Interface → Author David A. Minton Step massive bodies and and active test particles ahead in heliocentric coordinates. Read more… Arguments Type Intent Optional Attributes Name class( helio_nbody_system ), intent(inout) :: self Helio nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize module subroutine helio_step_pl (self, system, param, t, dt) Interface → Author David A. Minton Step massive bodies ahead Democratic Heliocentric method Read more… Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize module subroutine helio_step_tp (self, system, param, t, dt) Interface → Author David A. Minton Step active test particles ahead using Democratic Heliocentric method Read more… Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nboody system class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"module/s_helio_step.html"},{"title":"s_helio_gr – swiftest","text":"Uses swiftest Ancestors: helio_classes module~~s_helio_gr~~UsesGraph module~s_helio_gr s_helio_gr module~helio_classes helio_classes module~s_helio_gr->module~helio_classes module~swiftest swiftest module~s_helio_gr->module~swiftest module~swiftest_globals swiftest_globals module~helio_classes->module~swiftest_globals module~whm_classes whm_classes module~helio_classes->module~whm_classes module~swiftest_classes swiftest_classes module~helio_classes->module~swiftest_classes module~swiftest->module~helio_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines helio_gr_kick_getacch_pl helio_gr_kick_getacch_tp helio_gr_p4_pl helio_gr_p4_tp Module Subroutines module subroutine helio_gr_kick_getacch_pl (self, param) Interface → Author David A. Minton Compute relativisitic accelerations of massive bodies\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters module subroutine helio_gr_kick_getacch_tp (self, param) Interface → Author David A. Minton Compute relativisitic accelerations of test particles\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body particle data structure class(swiftest_parameters), intent(in) :: param Current run configuration parameters pure module subroutine helio_gr_p4_pl (self, param, dt) Interface → Author David A. Minton Position kick to massive bodies due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size pure module subroutine helio_gr_p4_tp (self, param, dt) Interface → Author David A. Minton Position kick to test particles due to p**4 term in the post-Newtonian correction\n    Based on Saha & Tremaine (1994) Eq. 28 Read more… Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Swiftest particle object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Step size","tags":"","loc":"module/s_helio_gr.html"},{"title":"s_helio_kick – swiftest","text":"Uses swiftest Ancestors: helio_classes module~~s_helio_kick~~UsesGraph module~s_helio_kick s_helio_kick module~helio_classes helio_classes module~s_helio_kick->module~helio_classes module~swiftest swiftest module~s_helio_kick->module~swiftest module~swiftest_globals swiftest_globals module~helio_classes->module~swiftest_globals module~whm_classes whm_classes module~helio_classes->module~whm_classes module~swiftest_classes swiftest_classes module~helio_classes->module~swiftest_classes module~swiftest->module~helio_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines helio_kick_getacch_pl helio_kick_getacch_tp helio_kick_vb_pl helio_kick_vb_tp Module Subroutines module subroutine helio_kick_getacch_pl (self, system, param, t, lbeg) Interface → Author David A. Minton Compute heliocentric accelerations of massive bodies Read more… Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step module subroutine helio_kick_getacch_tp (self, system, param, t, lbeg) Interface → Author David A. Minton Compute heliocentric accelerations of test particles Read more… Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step module subroutine helio_kick_vb_pl (self, system, param, t, dt, lbeg) Interface → Author David A. Minton Kick barycentric velocities of bodies Read more… Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not. module subroutine helio_kick_vb_tp (self, system, param, t, dt, lbeg) Interface → Author David A. Minton Kick barycentric velocities of bodies Read more… Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Swiftest generic body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Logical flag indicating whether this is the beginning of the half step or not.","tags":"","loc":"module/s_helio_kick.html"},{"title":"s_helio_coord – swiftest","text":"Uses swiftest Ancestors: helio_classes module~~s_helio_coord~~UsesGraph module~s_helio_coord s_helio_coord module~helio_classes helio_classes module~s_helio_coord->module~helio_classes module~swiftest swiftest module~s_helio_coord->module~swiftest module~swiftest_globals swiftest_globals module~helio_classes->module~swiftest_globals module~whm_classes whm_classes module~helio_classes->module~whm_classes module~swiftest_classes swiftest_classes module~helio_classes->module~swiftest_classes module~swiftest->module~helio_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines helio_coord_vb2vh_pl helio_coord_vb2vh_tp helio_coord_vh2vb_pl helio_coord_vh2vb_tp Module Subroutines module subroutine helio_coord_vb2vh_pl (self, cb) Interface → Author David A. Minton Convert massive bodies from barycentric to heliocentric coordinates (velocity only) Read more… Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine helio_coord_vb2vh_tp (self, vbcb) Interface → Author David A. Minton Convert test particles from barycentric to heliocentric coordinates (velocity only) Read more… Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body module subroutine helio_coord_vh2vb_pl (self, cb) Interface → Author David A. Minton Convert massive bodies from heliocentric to barycentric coordinates (velocity only) Read more… Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_cb ), intent(inout) :: cb Swiftest central body object module subroutine helio_coord_vh2vb_tp (self, vbcb) Interface → Author David A. Minton Convert test particles from heliocentric to barycentric coordinates (velocity only) Read more… Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object real(kind=DP), intent(in), dimension(:) :: vbcb Barycentric velocity of the central body","tags":"","loc":"module/s_helio_coord.html"},{"title":"s_helio_drift – swiftest","text":"Uses swiftest Ancestors: helio_classes module~~s_helio_drift~~UsesGraph module~s_helio_drift s_helio_drift module~helio_classes helio_classes module~s_helio_drift->module~helio_classes module~swiftest swiftest module~s_helio_drift->module~swiftest module~swiftest_globals swiftest_globals module~helio_classes->module~swiftest_globals module~whm_classes whm_classes module~helio_classes->module~whm_classes module~swiftest_classes swiftest_classes module~helio_classes->module~swiftest_classes module~swiftest->module~helio_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~swiftest->module~whm_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines helio_drift_body helio_drift_pl helio_drift_tp helio_drift_linear_pl helio_drift_linear_tp Module Subroutines module subroutine helio_drift_body (self, system, param, dt) Interface → Author David A. Minton Loop through bodies and call Danby drift routine on democratic heliocentric coordinates Read more… Arguments Type Intent Optional Attributes Name class(swiftest_body), intent(inout) :: self Swiftest body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize module subroutine helio_drift_pl (self, system, param, dt) Interface → Author David A. Minton Wrapper function used to call the body drift routine from a helio_pl structure Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize module subroutine helio_drift_tp (self, system, param, dt) Interface → Author David A. Minton Wrapper function used to call the body drift routine from a helio_pl structure Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio massive body object class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize module subroutine helio_drift_linear_pl (self, cb, dt, lbeg) Interface → Author David A. Minton Perform linear drift of massive bodies due to barycentric momentum of Sun Read more… Arguments Type Intent Optional Attributes Name class( helio_pl ), intent(inout) :: self Helio massive body object class( helio_cb ), intent(inout) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step module subroutine helio_drift_linear_tp (self, cb, dt, lbeg) Interface → Author David A. Minton Perform linear drift of test particles due to barycentric momentum of Sun\n New vectorized version included Read more… Arguments Type Intent Optional Attributes Name class( helio_tp ), intent(inout) :: self Helio test particleb object class( helio_cb ), intent(in) :: cb Helio central body real(kind=DP), intent(in) :: dt Stepsize logical, intent(in) :: lbeg Argument that determines whether or not this is the beginning or end of the step","tags":"","loc":"module/s_helio_drift.html"},{"title":"s_io – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_io~~UsesGraph module~s_io s_io module~swiftest_classes swiftest_classes module~s_io->module~swiftest_classes module~swiftest swiftest module~s_io->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Functions io_read_encounter io_read_hdr Subroutines io_write_hdr Module Functions io_get_args io_get_token Module Subroutines io_conservation_report io_dump_param io_dump_swiftest io_dump_system io_param_reader io_param_writer io_read_body_in io_read_cb_in io_read_frame_body io_read_frame_cb io_read_frame_system io_read_param_in io_toupper io_write_discard io_write_encounter io_write_frame_body io_write_frame_cb io_write_frame_system Functions function io_read_encounter (t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type) result(ierr) Author David A. Minton Read close encounter data from input binary files\n     Other than time t, there is no direct file input from this function\n     Function returns read error status (0 = OK, nonzero = ERROR)\n Adapted from David E. Kaufmann's Swifter routine: io_read_encounter.f90 Arguments Type Intent Optional Attributes Name real(kind=DP), intent(out) :: t integer(kind=I4B), intent(out) :: name1 integer(kind=I4B), intent(out) :: name2 real(kind=DP), intent(out) :: mass1 real(kind=DP), intent(out) :: mass2 real(kind=DP), intent(out) :: radius1 real(kind=DP), intent(out) :: radius2 real(kind=DP), intent(out), dimension(:) :: xh1 real(kind=DP), intent(out), dimension(:) :: xh2 real(kind=DP), intent(out), dimension(:) :: vh1 real(kind=DP), intent(out), dimension(:) :: vh2 character(len=*), intent(in) :: enc_out character(len=*), intent(in) :: out_type Return Value integer(kind=I4B) function io_read_hdr (iu, t, npl, ntp, out_form, out_type) result(ierr) Author David A. Minton Read frame header from input binary files\n     Function returns read error status (0 = OK, nonzero = ERROR)\n Adapted from David E. Kaufmann's Swifter routine: io_read_hdr.f90\n Adapted from Hal Levison's Swift routine io_read_hdr.f Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: iu real(kind=DP), intent(out) :: t integer(kind=I4B), intent(out) :: npl integer(kind=I4B), intent(out) :: ntp character(len=*), intent(out) :: out_form character(len=*), intent(in) :: out_type Return Value integer(kind=I4B) Subroutines subroutine io_write_hdr (iu, t, npl, ntp, out_form, out_type) Author The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Write frame header to output binary file Read more… Arguments Type Intent Optional Attributes Name integer(kind=I4B), intent(in) :: iu Output file unit number real(kind=DP), intent(in) :: t Current time of simulation integer(kind=I4B), intent(in) :: npl Number of massive bodies integer(kind=I4B), intent(in) :: ntp Number of test particles character(len=*), intent(in) :: out_form Output format type (\"EL\" or  \"XV\") character(len=*), intent(in) :: out_type Output file format type (REAL4, REAL8 - see swiftest module for symbolic name definitions) Module Functions module function io_get_args (integrator, param_file_name) result(ierr) Interface → Author David A. Minton Reads in the name of the parameter file from command line arguments. Arguments Type Intent Optional Attributes Name integer(kind=I4B) :: integrator Symbolic code of the requested integrator character(len=:), allocatable :: param_file_name Name of the input parameters file Return Value integer(kind=I4B) I/O error code module function io_get_token (buffer, ifirst, ilast, ierr) result(token) Interface → Author David A. Minton Retrieves a character token from an input string. Here a token is defined as any set of contiguous non-blank characters not \n beginning with or containing \"!\". If \"!\" is present, any remaining part of the buffer including the \"!\" is ignored Read more… Arguments Type Intent Optional Attributes Name character(len=*), intent(in) :: buffer Input string buffer integer(kind=I4B), intent(inout) :: ifirst Index of the buffer at which to start the search for a token integer(kind=I4B), intent(out) :: ilast Index of the buffer at the end of the returned token integer(kind=I4B), intent(out) :: ierr Error code Return Value character(len=:),\n  allocatable Returned token string Module Subroutines module subroutine io_conservation_report (self, param, lterminal) Interface → Author The Purdue Swiftest Team -  David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Reports the current state of energy, mass, and angular momentum conservation in a run Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Input colleciton of user-defined parameters logical, intent(in) :: lterminal Indicates whether to output information to the terminal screen module subroutine io_dump_param (self, param_file_name) Interface → Author David A. Minton Dump integration parameters to file Read more… Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Output collection of parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) module subroutine io_dump_swiftest (self, param) Interface → Author David A. Minton Dump massive body data to files Read more… Arguments Type Intent Optional Attributes Name class( swiftest_base ), intent(inout) :: self Swiftest base object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters module subroutine io_dump_system (self, param) Interface → Author David A. Minton Dumps the state of the system to files in case the simulation is interrupted.\n As a safety mechanism, there are two dump files that are written in alternating order\n so that if a dump file gets corrupted during writing, the user can restart from the older one. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters module subroutine io_param_reader (self, unit, iotype, v_list, iostat, iomsg) Interface → Author The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Read in parameters for the integration\n Currently this procedure does not work in user-defined derived-type input mode \n    e.g. read(unit,'(DT)') param \n as the newline characters are ignored in the input file when compiled in ifort. Read more… Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Collection of parameters integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) The first element passes the integrator code to the reader integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 module subroutine io_param_writer (self, unit, iotype, v_list, iostat, iomsg) Interface → Author David A. Minton Dump integration parameters to file Read more… Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(in) :: self Collection of parameters integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) Not used in this procedure integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 module subroutine io_read_body_in (self, param) Interface → Author The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Read in either test particle or massive body data Read more… Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters module subroutine io_read_cb_in (self, param) Interface → Author David A. Minton Reads in central body data Read more… Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self class( swiftest_parameters ), intent(inout) :: param module subroutine io_read_frame_body (self, iu, param, form, ierr) Interface → Author David A. Minton Reads a frame of output of either test particle or massive body data from a binary output file Read more… Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest particle object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code module subroutine io_read_frame_cb (self, iu, param, form, ierr) Interface → Author David A. Minton Reads a frame of output of central body data to the binary output file Read more… Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(inout) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error cod module subroutine io_read_frame_system (self, iu, param, form, ierr) Interface → Author The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Read a frame (header plus records for each massive body and active test particle) from a output binary file Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters character(len=*), intent(in) :: form Input format code (\"XV\" or \"EL\") integer(kind=I4B), intent(out) :: ierr Error code module subroutine io_read_param_in (self, param_file_name) Interface → Author David A. Minton Read in parameters for the integration Read more… Arguments Type Intent Optional Attributes Name class( swiftest_parameters ), intent(inout) :: self Current run configuration parameters character(len=*), intent(in) :: param_file_name Parameter input file name (i.e. param.in) module subroutine io_toupper (string) Interface → Author David A. Minton Convert string to uppercase Read more… Arguments Type Intent Optional Attributes Name character(len=*), intent(inout) :: string String to make upper case module subroutine io_write_discard (self, param) Interface → Author David A. Minton Write out information about discarded test particle Read more… Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine io_write_encounter (t, name1, name2, mass1, mass2, radius1, radius2, xh1, xh2, vh1, vh2, enc_out, out_type) Interface → Author David A. Minton Write close encounter data to output binary files\n  There is no direct file output from this subroutine Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: t integer(kind=I4B), intent(in) :: name1 integer(kind=I4B), intent(in) :: name2 real(kind=DP), intent(in) :: mass1 real(kind=DP), intent(in) :: mass2 real(kind=DP), intent(in) :: radius1 real(kind=DP), intent(in) :: radius2 real(kind=DP), intent(in), dimension(:) :: xh1 real(kind=DP), intent(in), dimension(:) :: xh2 real(kind=DP), intent(in), dimension(:) :: vh1 real(kind=DP), intent(in), dimension(:) :: vh2 character(len=*), intent(in) :: enc_out character(len=*), intent(in) :: out_type module subroutine io_write_frame_body (self, iu, param) Interface → Author David A. Minton Write a frame of output of either test particle or massive body data to the binary output file\n    Note: If outputting to orbital elements, but sure that the conversion is done prior to calling this method Read more… Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(in) :: self Swiftest particle object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine io_write_frame_cb (self, iu, param) Interface → Author David A. Minton Write a frame of output of central body data to the binary output file Read more… Arguments Type Intent Optional Attributes Name class( swiftest_cb ), intent(in) :: self Swiftest central body object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine io_write_frame_system (self, iu, param) Interface → Author The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Write a frame (header plus records for each massive body and active test particle) to output binary file\n There is no direct file output from this subroutine Read more… Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(in) :: self Swiftest system object integer(kind=I4B), intent(inout) :: iu Unit number for the output file to write frame to class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"module/s_io.html"},{"title":"s_setup – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_setup~~UsesGraph module~s_setup s_setup module~swiftest_classes swiftest_classes module~s_setup->module~swiftest_classes module~swiftest swiftest module~s_setup->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines setup_construct_system setup_encounter setup_initialize_system setup_body setup_pl setup_tp Module Subroutines module subroutine setup_construct_system (system, param) Interface → Author David A. Minton Constructor for a Swiftest nbody system. Creates the nbody system object based on the user-input integrator Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout), allocatable :: system Swiftest system object class( swiftest_parameters ), intent(in) :: param Swiftest parameters module subroutine setup_encounter (self, n) Interface → Author David A. Minton A constructor that sets the number of encounters and allocates and initializes all arrays Arguments Type Intent Optional Attributes Name class( swiftest_encounter ), intent(inout) :: self Swiftest encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for module subroutine setup_initialize_system (self, param) Interface → Author David A. Minton Wrapper method to initialize a basic Swiftest nbody system from files Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: self Swiftest system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters module subroutine setup_body (self, n, param) Interface → Author David A. Minton Constructor for base Swiftest particle class. Allocates space for all particles and\n initializes all components with a value.\n Note: Timing tests indicate that (NDIM, n) is more efficient than (NDIM, n) Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest generic body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter module subroutine setup_pl (self, n, param) Interface → Author David A. Minton Constructor for base Swiftest massive body class. Allocates space for all particles and\n initializes all components with a value. \n Call allocation method for parent class\n The parent class here is the abstract swiftest_body class, so we can't use the type-bound procedure Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter module subroutine setup_tp (self, n, param) Interface → Author David A. Minton Constructor for base Swiftest test particle particle class. Allocates space for \n all particles and initializes all components with a value. \n Call allocation method for parent class\n The parent class here is the abstract swiftest_body class, so we can't use the type-bound procedure Arguments Type Intent Optional Attributes Name class( swiftest_tp ), intent(inout) :: self Swiftest test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter","tags":"","loc":"module/s_setup.html"},{"title":"s_eucl – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_eucl~~UsesGraph module~s_eucl s_eucl module~swiftest_classes swiftest_classes module~s_eucl->module~swiftest_classes module~swiftest swiftest module~s_eucl->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines eucl_dist_index_plpl Module Subroutines module subroutine eucl_dist_index_plpl (self) Interface → Author Jacob R. Elliott and David A. Minton Turns i,j indices into k index for use in the Euclidean distance matrix Read more… Arguments Type Intent Optional Attributes Name class( swiftest_pl ), intent(inout) :: self Swiftest massive body objec","tags":"","loc":"module/s_eucl.html"},{"title":"s_user_kick_getacch – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_user_kick_getacch~~UsesGraph module~s_user_kick_getacch s_user_kick_getacch module~swiftest_classes swiftest_classes module~s_user_kick_getacch->module~swiftest_classes module~swiftest swiftest module~s_user_kick_getacch->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines user_kick_getacch_body Module Subroutines module subroutine user_kick_getacch_body (self, system, param, t, lbeg) Interface → Author David A. Minton Add user-supplied heliocentric accelerations to planets. Read more… Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest massive body particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody_system_object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters user parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the ste","tags":"","loc":"module/s_user_kick_getacch.html"},{"title":"drift_implementation – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~drift_implementation~~UsesGraph module~drift_implementation drift_implementation module~swiftest_classes swiftest_classes module~drift_implementation->module~swiftest_classes module~swiftest swiftest module~drift_implementation->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Variables E2MAX DM2MAX E2DM2MAX DANBYB NLAG1 NLAG2 Subroutines drift_dan drift_kepmd drift_kepu drift_kepu_fchk drift_kepu_guess drift_kepu_lag drift_kepu_new drift_kepu_p3solve drift_kepu_stumpff Module Subroutines drift_body drift_all drift_one Variables Type Visibility Attributes Name Initial real(kind=DP), private, parameter :: E2MAX = 0.36_DP Integration control parameters: real(kind=DP), private, parameter :: DM2MAX = 0.16_DP real(kind=DP), private, parameter :: E2DM2MAX = 0.0016_DP real(kind=DP), private, parameter :: DANBYB = 1.0E-13_DP integer(kind=I2B), private, parameter :: NLAG1 = 50 integer(kind=I2B), private, parameter :: NLAG2 = 40 Subroutines pure subroutine drift_dan (mu, x0, v0, dt0, iflag) Author David A. Minton Perform Kepler drift, solving Kepler's equation in appropriate variables Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu real(kind=DP), intent(inout), dimension(:) :: x0 real(kind=DP), intent(inout), dimension(:) :: v0 real(kind=DP), intent(in) :: dt0 integer(kind=I4B), intent(out) :: iflag pure subroutine drift_kepmd (dm, es, ec, x, s, c) Author David A. Minton Solve Kepler's equation in difference form for an ellipse for small input dm and eccentricity\n    Original disclaimer: built for speed, does not check how well the original equation is solved\n    Can do that in calling routine by checking how close (x - ec s + es (1.0 - c) - dm) is to zero Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dm real(kind=DP), intent(in) :: es real(kind=DP), intent(in) :: ec real(kind=DP), intent(out) :: x real(kind=DP), intent(out) :: s real(kind=DP), intent(out) :: c pure subroutine drift_kepu (dt, r0, mu, alpha, u, fp, c1, c2, c3, iflag) Author David A. Minton Solve Kepler's equation in universal variables Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: fp real(kind=DP), intent(out) :: c1 real(kind=DP), intent(out) :: c2 real(kind=DP), intent(out) :: c3 integer(kind=I4B), intent(out) :: iflag pure subroutine drift_kepu_fchk (dt, r0, mu, alpha, u, s, f) Author David A. Minton Computes the value of f, the function whose root we are trying to find in universal variables Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(in) :: s real(kind=DP), intent(out) :: f pure subroutine drift_kepu_guess (dt, r0, mu, alpha, u, s) Author David A. Minton Compute initial guess for solving Kepler's equation using universal variables Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: s pure subroutine drift_kepu_lag (s, dt, r0, mu, alpha, u, fp, c1, c2, c3, iflag) Author David A. Minton Solve Kepler's equation in universal variables using Laguerre's method\n      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 178 - 180. Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout) :: s real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: fp real(kind=DP), intent(out) :: c1 real(kind=DP), intent(out) :: c2 real(kind=DP), intent(out) :: c3 integer(kind=I4B), intent(out) :: iflag pure subroutine drift_kepu_new (s, dt, r0, mu, alpha, u, fp, c1, c2, c3, iflag) Author David A. Minton Solve Kepler's equation in universal variables using Newton's method\n      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 174 - 175. Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout) :: s real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: fp real(kind=DP), intent(out) :: c1 real(kind=DP), intent(out) :: c2 real(kind=DP), intent(out) :: c3 integer(kind=I4B), intent(out) :: iflag pure subroutine drift_kepu_p3solve (dt, r0, mu, alpha, u, s, iflag) Author David A. Minton Computes real root of cubic involved in setting initial guess for solving Kepler's equation in universal variables\n      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 177 - 178. Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r0 real(kind=DP), intent(in) :: mu real(kind=DP), intent(in) :: alpha real(kind=DP), intent(in) :: u real(kind=DP), intent(out) :: s integer(kind=I4B), intent(out) :: iflag pure subroutine drift_kepu_stumpff (x, c0, c1, c2, c3) Author David A. Minton Compute Stumpff functions needed for Kepler drift in universal variables\n      Reference: Danby, J. M. A. 1988. Fundamentals of Celestial Mechanics, (Willmann-Bell, Inc.), 171 - 172. Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(inout) :: x real(kind=DP), intent(out) :: c0 real(kind=DP), intent(out) :: c1 real(kind=DP), intent(out) :: c2 real(kind=DP), intent(out) :: c3 Module Subroutines module subroutine drift_body (self, system, param, dt) Interface → Author David A. Minton Loop bodies and call Danby drift routine on the heliocentric position and velocities. Read more… Arguments Type Intent Optional Attributes Name class( swiftest_body ), intent(inout) :: self Swiftest test particle data structure class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize pure module subroutine drift_all (mu, x, v, n, param, dt, mask, iflag) Interface → Author David A. Minton Loop bodies and call Danby drift routine on all bodies for the given position and velocity vector. Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in), dimension(:) :: mu Vector of gravitational constants real(kind=DP), intent(inout), dimension(:,:) :: x Position and velocity vectors real(kind=DP), intent(inout), dimension(:,:) :: v Position and velocity vectors integer(kind=I4B), intent(in) :: n number of bodies class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize logical, intent(in), dimension(:) :: mask Logical mask of size self%nbody that determines which bodies to drift. integer(kind=I4B), intent(out), dimension(:) :: iflag Vector of error flags. 0 means no problem pure elemental module subroutine drift_one (mu, px, py, pz, vx, vy, vz, dt, iflag) Interface → Author The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Perform Danby drift for one body, redoing drift with smaller substeps if original accuracy is insufficient Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: mu G * (Mcb + m), G = gravitational constant, Mcb = mass of central body, m = mass of body to drift real(kind=DP), intent(inout) :: px Position and velocity of body to drift real(kind=DP), intent(inout) :: py Position and velocity of body to drift real(kind=DP), intent(inout) :: pz Position and velocity of body to drift real(kind=DP), intent(inout) :: vx Position and velocity of body to drift real(kind=DP), intent(inout) :: vy Position and velocity of body to drift real(kind=DP), intent(inout) :: vz Position and velocity of body to drift real(kind=DP), intent(in) :: dt Step size integer(kind=I4B), intent(out) :: iflag iflag : error status flag for Danby drift (0 = OK, nonzero = ERROR)","tags":"","loc":"module/drift_implementation.html"},{"title":"s_symba_util – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_util~~UsesGraph module~s_symba_util s_symba_util module~swiftest swiftest module~s_symba_util->module~swiftest module~symba_classes symba_classes module~s_symba_util->module~symba_classes module~swiftest->module~symba_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines symba_util_append_arr_info symba_util_append_arr_kin symba_util_append_pl symba_util_append_merger symba_util_append_tp symba_util_fill_arr_info symba_util_fill_arr_kin symba_util_fill_pl symba_util_fill_tp symba_util_peri_pl symba_util_rearray_pl symba_util_resize_arr_info symba_util_resize_arr_kin symba_util_resize_merger symba_util_resize_pl symba_util_resize_tp symba_util_sort_pl symba_util_sort_tp symba_util_sort_rearrange_pl symba_util_sort_rearrange_tp symba_util_spill_arr_info symba_util_spill_arr_kin symba_util_spill_pl symba_util_spill_pltpenc symba_util_spill_tp Module Subroutines subroutine symba_util_append_arr_info (arr, source, nold, nsrc, lsource_mask) Author David A. Minton Append a single array of particle information type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: arr Destination array type( symba_particle_info ), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to subroutine symba_util_append_arr_kin (arr, source, nold, nsrc, lsource_mask) Author David A. Minton Append a single array of kinship type onto another. If the destination array is not allocated, or is not big enough, this will allocate space for it. Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Destination array type( symba_kinship ), intent(in), dimension(:), allocatable :: source Array to append integer(kind=I4B), intent(in) :: nold Extend of the old array and the source array, respectively integer(kind=I4B), intent(in) :: nsrc Extend of the old array and the source array, respectively logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine symba_util_append_pl (self, source, lsource_mask) Interface → Author David A. Minton Append components from one massive body object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine symba_util_append_merger (self, source, lsource_mask) Interface → Author David A. Minton Append components from one massive body object to another. \n This method will automatically resize the destination body if it is too small Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine symba_util_append_tp (self, source, lsource_mask) Interface → Author David A. Minton Append components from test particle object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to subroutine symba_util_fill_arr_info (keeps, inserts, lfill_list) Author David A. Minton Performs a fill operation on a single array of particle origin information types\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_particle_info ), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps subroutine symba_util_fill_arr_kin (keeps, inserts, lfill_list) Author David A. Minton Performs a fill operation on a single array of particle kinship types\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_kinship ), intent(in), dimension(:), allocatable :: inserts Array of values to insert into keep logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine symba_util_fill_pl (self, inserts, lfill_list) Interface → Author David A. Minton Insert new SyMBA test particle structure into an old one. \n This is the inverse of a fill operation. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA masive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine symba_util_fill_tp (self, inserts, lfill_list) Interface → Author David A. Minton Insert new SyMBA test particle structure into an old one. \n This is the inverse of a fill operation. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine symba_util_peri_pl (self, system, param) Interface → Author David A. Minton Determine system pericenter passages for planets in SyMBA Read more… Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine symba_util_rearray_pl (self, system, param) Interface → Author the Purdue Swiftest Team -  David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Clean up the massive body structures to remove discarded bodies and add new bodies Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class( symba_nbody_system ), intent(inout) :: system Swiftest nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters subroutine symba_util_resize_arr_info (arr, nnew) Author David A. Minton Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size subroutine symba_util_resize_arr_kin (arr, nnew) Author David A. Minton Resizes an array component of type character string. Array will only be resized if has previously been allocated. Passing nnew = 0 will deallocate. Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: arr Array to resize integer(kind=I4B), intent(in) :: nnew New size module subroutine symba_util_resize_merger (self, nnew) Interface → Author David A. Minton Checks the current size of a SyMBA merger list against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded module subroutine symba_util_resize_pl (self, nnew) Interface → Author David A. Minton Checks the current size of a SyMBA massive body object against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: nnew New size neded module subroutine symba_util_resize_tp (self, nnew) Interface → Author David A. Minton Checks the current size of a test particle object against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in) :: nnew New size neded module subroutine symba_util_sort_pl (self, sortby, ascending) Interface → Author David A. Minton Sort a SyMBA massive body object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order module subroutine symba_util_sort_tp (self, sortby, ascending) Interface → Author David A. Minton Sort a SyMBA test particle object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order module subroutine symba_util_sort_rearrange_pl (self, ind) Interface → Author David A. Minton Rearrange SyMBA massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) module subroutine symba_util_sort_rearrange_tp (self, ind) Interface → Author David A. Minton Rearrange SyMBA test particle object in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) subroutine symba_util_spill_arr_info (keeps, discards, lspill_list, ldestructive) Author David A. Minton Performs a spill operation on a single array of particle origin information types\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name type( symba_particle_info ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_particle_info ), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not subroutine symba_util_spill_arr_kin (keeps, discards, lspill_list, ldestructive) Author David A. Minton Performs a spill operation on a single array of particle kinships\n This is the inverse of a spill operation Arguments Type Intent Optional Attributes Name type( symba_kinship ), intent(inout), dimension(:), allocatable :: keeps Array of values to keep type( symba_kinship ), intent(inout), dimension(:), allocatable :: discards Array of discards logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discardss logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not module subroutine symba_util_spill_pl (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) SyMBA massive body particle structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill all the common components Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list module subroutine symba_util_spill_pltpenc (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) SyMBA encounter structure from active list to discard list\n Note: Because the symba_plplenc currently does not contain any additional variable components, this method can recieve it as an input as well. Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list class( swiftest_encounter ), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list module subroutine symba_util_spill_tp (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) SyMBA test particle structure from active list to discard list\n Adapted from David E. Kaufmann's Swifter routine whm_discard_spill.f90\n Spill all the common components Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter body by removing the discard list","tags":"","loc":"module/s_symba_util.html"},{"title":"s_symba_collision – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_collision~~UsesGraph module~s_symba_collision s_symba_collision module~swiftest swiftest module~s_symba_collision->module~swiftest module~symba_classes symba_classes module~s_symba_collision->module~symba_classes module~swiftest->module~symba_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Functions symba_collision_check_one symba_collision_consolidate_familes Module Subroutines symba_collision_check_pltpenc symba_collision_encounter_scrub symba_collision_make_family_pl symba_collision_resolve_fragmentations symba_collision_resolve_mergers Functions pure elemental function symba_collision_check_one (xr, yr, zr, vxr, vyr, vzr, Gmtot, rlim, dt, lvdotr) result(lcollision) Author David A. Minton Check for a merger between a single pair of particles Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: xr Relative position vector components real(kind=DP), intent(in) :: yr Relative position vector components real(kind=DP), intent(in) :: zr Relative position vector components real(kind=DP), intent(in) :: vxr Relative velocity vector components real(kind=DP), intent(in) :: vyr Relative velocity vector components real(kind=DP), intent(in) :: vzr Relative velocity vector components real(kind=DP), intent(in) :: Gmtot Sum of G*mass of colliding bodies real(kind=DP), intent(in) :: rlim Collision limit - Typically the sum of the radii of colliding bodies real(kind=DP), intent(in) :: dt Step size logical, intent(in) :: lvdotr Logical flag indicating that these two bodies are approaching in the current substep Return Value logical Logical flag indicating whether these two bodies will collide or not function symba_collision_consolidate_familes (pl, param, idx_parent, family, x, v, mass, radius, L_spin, Ip) result(lflag) Author David A. Minton Loops through the pl-pl collision list and groups families together by index. Outputs the indices of all family members, \n and pairs of quantities (x and v vectors, mass, radius, L_spin, and Ip) that can be used to resolve the collisional outcome. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA massive body object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(inout), dimension(2) :: idx_parent Index of the two bodies considered the \"parents\" of the collision integer(kind=I4B), intent(out), dimension(:), allocatable :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(out), dimension(NDIM,2) :: x Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(NDIM,2) :: v Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(2) :: mass Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(2) :: radius Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(NDIM,2) :: L_spin Output values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(out), dimension(NDIM,2) :: Ip Output values that represent a 2-body equivalent of a possibly 2+ body collision Return Value logical Logical flag indicating whether a family was successfully created or not Module Subroutines module subroutine symba_collision_check_pltpenc (self, system, param, t, dt, irec) Interface → Author David A. Minton Check for merger between massive bodies and test particles in SyMBA Read more… Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t current time real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level module subroutine symba_collision_encounter_scrub (self, system, param) Interface → Author David A. Minton Processes the pl-pl encounter list remove only those encounters that led to a collision Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters module subroutine symba_collision_make_family_pl (self, idx) Interface → Author Jennifer L.L. Pouplin, Carlisle A. wishard, and David A. Minton When a single body is involved in more than one collision in a single step, it becomes part of a family.\n The largest body involved in a multi-body collision is the \"parent\" and all bodies that collide with it are its \"children,\"\n including those that collide with the children. Read more… Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in), dimension(2) :: idx Array holding the indices of the two bodies involved in the collision module subroutine symba_collision_resolve_fragmentations (self, system, param) Interface → Author David A. Minton Process list of collisions, determine the collisional regime, and then create fragments. Read more… Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions module subroutine symba_collision_resolve_mergers (self, system, param) Interface → Author David A. Minton Process list of collisions and merge colliding bodies together. Arguments Type Intent Optional Attributes Name class( symba_plplenc ), intent(inout) :: self SyMBA pl-pl encounter list class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions","tags":"","loc":"module/s_symba_collision.html"},{"title":"s_symba_setup – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_setup~~UsesGraph module~s_symba_setup s_symba_setup module~swiftest swiftest module~s_symba_setup->module~swiftest module~symba_classes symba_classes module~s_symba_setup->module~symba_classes module~swiftest->module~symba_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines symba_setup_initialize_particle_info symba_setup_initialize_system symba_setup_merger symba_setup_pl symba_setup_pltpenc symba_setup_tp Module Subroutines module subroutine symba_setup_initialize_particle_info (system, param) Interface → Author David A. Minton Initializes a new particle information data structure with initial conditions recorded Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(inout) :: param Current run configuration parameters with SyMBA extensions module subroutine symba_setup_initialize_system (self, param) Interface → Author David A. Minton Initialize an SyMBA nbody system from files and sets up the planetocentric structures.\n This subroutine will also sort the massive bodies in descending order by mass Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters module subroutine symba_setup_merger (self, n, param) Interface → Author David A. Minton Allocate SyMBA test particle structure Read more… Arguments Type Intent Optional Attributes Name class( symba_merger ), intent(inout) :: self SyMBA merger list object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter module subroutine symba_setup_pl (self, n, param) Interface → Author David A. Minton Allocate SyMBA test particle structure Read more… Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter module subroutine symba_setup_pltpenc (self, n) Interface → Author David A. Minton A constructor that sets the number of encounters and allocates and initializes all arrays Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-tp encounter structure integer(kind=I4B), intent(in) :: n Number of encounters to allocate space for module subroutine symba_setup_tp (self, n, param) Interface → Author David A. Minton Allocate WHM test particle structure Read more… Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class( swiftest_parameters ), intent(in) :: param Current run configuration parameter","tags":"","loc":"module/s_symba_setup.html"},{"title":"s_symba_kick – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_kick~~UsesGraph module~s_symba_kick s_symba_kick module~swiftest swiftest module~s_symba_kick->module~swiftest module~symba_classes symba_classes module~s_symba_kick->module~symba_classes module~swiftest->module~symba_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines symba_kick_getacch_pl symba_kick_getacch_tp symba_kick_pltpenc Module Subroutines module subroutine symba_kick_getacch_pl (self, system, param, t, lbeg) Interface → Author David A. Minton Compute heliocentric accelerations of massive bodies Read more… Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA massive body particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step module subroutine symba_kick_getacch_tp (self, system, param, t, lbeg) Interface → Author David A. Minton Compute heliocentric accelerations of test particles Read more… Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step module subroutine symba_kick_pltpenc (self, system, dt, irec, sgn) Interface → Author David A. Minton Kick barycentric velocities of massive bodies and ACTIVE test particles within SyMBA recursion.\n Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types Read more… Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(in) :: self SyMBA pl-tp encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level integer(kind=I4B), intent(in) :: sgn sign to be applied to acceleration","tags":"","loc":"module/s_symba_kick.html"},{"title":"s_symba_fragmentation – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_fragmentation~~UsesGraph module~s_symba_fragmentation s_symba_fragmentation module~swiftest swiftest module~s_symba_fragmentation->module~swiftest module~symba_classes symba_classes module~s_symba_fragmentation->module~symba_classes module~swiftest->module~symba_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Variables NFRAG_DISRUPT NFRAG_SUPERCAT Subroutines symba_fragmentation_mergeaddsub Module Functions symba_fragmentation_casedisruption symba_fragmentation_casehitandrun symba_fragmentation_casemerge symba_fragmentation_casesupercatastrophic Variables Type Visibility Attributes Name Initial integer(kind=I4B), private, parameter :: NFRAG_DISRUPT = 12 integer(kind=I4B), private, parameter :: NFRAG_SUPERCAT = 20 Subroutines subroutine symba_fragmentation_mergeaddsub (system, param, family, id_frag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, status) Author David A. Minton Fills the pl_discards and pl_adds with removed and added bodies Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision integer(kind=I4B), intent(in), dimension(:) :: id_frag List of fragment ids real(kind=DP), intent(in), dimension(:,:) :: Ip_frag Fragment rotational inertia vectors real(kind=DP), intent(in), dimension(:) :: m_frag Distribution of fragment mass and radii real(kind=DP), intent(in), dimension(:) :: rad_frag Distribution of fragment mass and radii real(kind=DP), intent(in), dimension(:,:) :: xb_frag Fragment barycentric position, barycentric velocity, and rotation vectors real(kind=DP), intent(in), dimension(:,:) :: vb_frag Fragment barycentric position, barycentric velocity, and rotation vectors real(kind=DP), intent(in), dimension(:,:) :: rot_frag Fragment barycentric position, barycentric velocity, and rotation vectors integer(kind=I4B), intent(in) :: status Status flag to assign to adds Module Functions module function symba_fragmentation_casedisruption (system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Interface → Author Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton Create the fragments resulting from a non-catastrophic disruption collision Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome module function symba_fragmentation_casehitandrun (system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Interface → Author Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton Create the fragments resulting from a non-catastrophic hit-and-run collision Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome module function symba_fragmentation_casemerge (system, param, family, x, v, mass, radius, L_spin, Ip) result(status) Interface → Author Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton Merge planets. Read more… Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(in), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(in), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision Return Value integer(kind=I4B) Status flag assigned to this outcome module function symba_fragmentation_casesupercatastrophic (system, param, family, x, v, mass, radius, L_spin, Ip, mass_res, Qloss) result(status) Interface → Author Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton Create the fragments resulting from a supercatastrophic collision Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA additions integer(kind=I4B), intent(in), dimension(:) :: family List of indices of all bodies inovlved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: v Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: radius Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Input values that represent a 2-body equivalent of a possibly 2+ body collision real(kind=DP), intent(inout), dimension(:) :: mass_res The distribution of fragment mass obtained by the regime calculation real(kind=DP), intent(inout) :: Qloss Energy lost during collision Return Value integer(kind=I4B) Status flag assigned to this outcome","tags":"","loc":"module/s_symba_fragmentation.html"},{"title":"s_symba_encounter_check – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_encounter_check~~UsesGraph module~s_symba_encounter_check s_symba_encounter_check module~swiftest swiftest module~s_symba_encounter_check->module~swiftest module~symba_classes symba_classes module~s_symba_encounter_check->module~symba_classes module~swiftest->module~symba_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Functions symba_encounter_check_pl symba_encounter_check_pltpenc symba_encounter_check_tp Module Subroutines symba_encounter_check_one Module Functions module function symba_encounter_check_pl (self, system, dt, irec) result(lany_encounter) Interface → Author David A. Minton Check for an encounter between massive bodies. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter module function symba_encounter_check_pltpenc (self, system, dt, irec) result(lany_encounter) Interface → Author David A. Minton Check for an encounter between test particles and massive bodies in the pltpenc list.\n Note: This method works for the polymorphic symba_pltpenc and symba_plplenc types. Read more… Arguments Type Intent Optional Attributes Name class( symba_pltpenc ), intent(inout) :: self SyMBA pl-pl encounter list object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter module function symba_encounter_check_tp (self, system, dt, irec) result(lany_encounter) Interface → Author David A. Minton Check for an encounter between test particles and massive bodies. Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object real(kind=DP), intent(in) :: dt step size integer(kind=I4B), intent(in) :: irec Current recursion level Return Value logical Returns true if there is at least one close encounter Module Subroutines pure elemental module subroutine symba_encounter_check_one (xr, yr, zr, vxr, vyr, vzr, rhill1, rhill2, dt, irec, lencounter, lvdotr) Interface → Author David A. Minton Check for an encounter. Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: xr real(kind=DP), intent(in) :: yr real(kind=DP), intent(in) :: zr real(kind=DP), intent(in) :: vxr real(kind=DP), intent(in) :: vyr real(kind=DP), intent(in) :: vzr real(kind=DP), intent(in) :: rhill1 real(kind=DP), intent(in) :: rhill2 real(kind=DP), intent(in) :: dt integer(kind=I4B), intent(in) :: irec logical, intent(out) :: lencounter logical, intent(out) :: lvdotr","tags":"","loc":"module/s_symba_encounter_check.html"},{"title":"s_symba_io – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_io~~UsesGraph module~s_symba_io s_symba_io module~swiftest swiftest module~s_symba_io->module~swiftest module~symba_classes symba_classes module~s_symba_io->module~symba_classes module~swiftest->module~symba_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines symba_io_dump_particle_info symba_io_param_reader symba_io_param_writer symba_io_read_particle symba_io_write_discard Module Subroutines module subroutine symba_io_dump_particle_info (system, param, lincludecb, tpidx, plidx) Interface → Author David A. Minton Dumps the particle information data to a file. \n Pass a list of array indices for test particles (tpidx) and/or massive bodies (plidx) to append Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(in) :: param Current run configuration parameters with SyMBA extensions logical, intent(in), optional :: lincludecb Set to true to include the central body (default is false) integer(kind=I4B), intent(in), optional dimension(:) :: tpidx Array of test particle indices to append to the particle file integer(kind=I4B), intent(in), optional dimension(:) :: plidx Array of massive body indices to append to the particle file module subroutine symba_io_param_reader (self, unit, iotype, v_list, iostat, iomsg) Interface → Author The Purdue Swiftest Team - David A. Minton, Carlisle A. Wishard, Jennifer L.L. Pouplin, and Jacob R. Elliott Read in parameters specific to the SyMBA integrator, then calls the base io_param_reader. Read more… Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(inout) :: self Collection of parameters integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) The first element passes the integrator code to the reader integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 module subroutine symba_io_param_writer (self, unit, iotype, v_list, iostat, iomsg) Interface → Author David A. Minton Dump integration parameters specific to SyMBA to file and then call the base io_param_writer method. Read more… Arguments Type Intent Optional Attributes Name class( symba_parameters ), intent(in) :: self Collection of SyMBA parameters integer, intent(in) :: unit File unit number character(len=*), intent(in) :: iotype Dummy argument passed to the  input/output procedure contains the text from the char-literal-constant, prefixed with DT. \n    If you do not include a char-literal-constant, the iotype argument contains only DT. integer, intent(in) :: v_list (:) Not used in this procedure integer, intent(out) :: iostat IO status code character(len=*), intent(inout) :: iomsg Message to pass if iostat /= 0 module subroutine symba_io_read_particle (system, param) Interface → Author David A. Minton Reads an old particle information file for a restartd run Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system file class( symba_parameters ), intent(inout) :: param Current run configuration parameters with SyMBA extensions module subroutine symba_io_write_discard (self, param) Interface → Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters","tags":"","loc":"module/s_symba_io.html"},{"title":"s_symba_discard – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_discard~~UsesGraph module~s_symba_discard s_symba_discard module~swiftest swiftest module~s_symba_discard->module~swiftest module~symba_classes symba_classes module~s_symba_discard->module~symba_classes module~swiftest->module~symba_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Subroutines symba_discard_cb_pl symba_discard_conserve_mtm symba_discard_nonplpl symba_discard_nonplpl_conservation symba_discard_peri_pl Module Subroutines symba_discard_pl Subroutines subroutine symba_discard_cb_pl (pl, system, param) Author David A. Minton Check to see if planets should be discarded based on their positions relative to the central body.\n If a body gets flagged here when it has also been previously flagged for a collision with another massive body,\n its collisional status will be revoked. Discards due to colliding with or escaping the central body take precedence \n over pl-pl collisions Read more… Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters subroutine symba_discard_conserve_mtm (pl, system, param, ipl, lescape_body) Author David A. Minton Conserves system momentum when a body is lost from the system or collides with central body Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl class( symba_nbody_system ), intent(inout) :: system class( symba_parameters ), intent(inout) :: param integer(kind=I4B), intent(in) :: ipl logical, intent(in) :: lescape_body subroutine symba_discard_nonplpl (pl, system, param) Author David A. Minton Check to see if planets should be discarded based on their positions or because they are unbound Read more… Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters subroutine symba_discard_nonplpl_conservation (pl, system, param) Author David A. Minton If there are any bodies that are removed due to either colliding with the central body or escaping the systme,\n we need to track the conserved quantities with the system bookkeeping terms. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA test particle object class( symba_nbody_system ), intent(inout) :: system SyMBA nbody system object class( symba_parameters ), intent(inout) :: param Current run configuration parameters subroutine symba_discard_peri_pl (pl, system, param) Author David A. Minton Check to see if a test particle should be discarded because its perihelion distance becomes too small Read more… Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: pl SyMBA massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters Module Subroutines module subroutine symba_discard_pl (self, system, param) Interface → Author David A. Minton Call the various flavors of discards for massive bodies in SyMBA runs, including discards due to colling with the central body, \n escaping the system, or colliding with each other. Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self SyMBA test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters","tags":"","loc":"module/s_symba_discard.html"},{"title":"s_symba_step – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_step~~UsesGraph module~s_symba_step s_symba_step module~swiftest swiftest module~s_symba_step->module~swiftest module~symba_classes symba_classes module~s_symba_step->module~symba_classes module~swiftest->module~symba_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines symba_step_system symba_step_interp_system symba_step_set_recur_levels_system symba_step_recur_system symba_step_reset_system Module Subroutines module subroutine symba_step_system (self, param, t, dt) Interface → Author David A. Minton Step planets and active test particles ahead in democratic heliocentric coordinates, descending the recursive\n   branch if necessary to handle possible close encounters Read more… Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize module subroutine symba_step_interp_system (self, param, t, dt) Interface → Author David A. Minton Step planets and active test particles ahead in democratic heliocentric coordinates, calling the recursive\n         subroutine to descend to the appropriate level to handle close encounters Read more… Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Simulation time real(kind=DP), intent(in) :: dt Current stepsize module subroutine symba_step_set_recur_levels_system (self, ireci) Interface → Author David A. Minton Resets pl, tp,and encounter structures at the start of a new step Read more… Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object integer(kind=I4B), intent(in) :: ireci Input recursion level recursive module subroutine symba_step_recur_system (self, param, t, ireci) Interface → Author David A. Minton Step interacting planets and active test particles ahead in democratic heliocentric coordinates at the current\n         recursion level, if applicable, and descend to the next deeper level if necessarys Read more… Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object class( swiftest_parameters ), intent(inout) :: param Current run configuration parameters real(kind=DP), value :: t integer(kind=I4B), value :: ireci input recursion level module subroutine symba_step_reset_system (self) Interface → Author David A. Minton Resets pl, tp,and encounter structures at the start of a new step Read more… Arguments Type Intent Optional Attributes Name class( symba_nbody_system ), intent(inout) :: self SyMBA nbody system object","tags":"","loc":"module/s_symba_step.html"},{"title":"s_symba_drift – swiftest","text":"Uses swiftest Ancestors: symba_classes module~~s_symba_drift~~UsesGraph module~s_symba_drift s_symba_drift module~swiftest swiftest module~s_symba_drift->module~swiftest module~symba_classes symba_classes module~s_symba_drift->module~symba_classes module~swiftest->module~symba_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_classes module~symba_classes->module~rmvs_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines symba_drift_pl symba_drift_tp Module Subroutines module subroutine symba_drift_pl (self, system, param, dt) Interface → Author David A. Minton Wrapper function used to call the body drift routine from a symba_pl structure Arguments Type Intent Optional Attributes Name class( symba_pl ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize module subroutine symba_drift_tp (self, system, param, dt) Interface → Author David A. Minton Wrapper function used to call the body drift routine from a symba_pl structure Arguments Type Intent Optional Attributes Name class( symba_tp ), intent(inout) :: self Helio massive body object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: dt Stepsize","tags":"","loc":"module/s_symba_drift.html"},{"title":"s_fragmentation – swiftest","text":"Uses swiftest Ancestors: swiftest_classes module~~s_fragmentation~~UsesGraph module~s_fragmentation s_fragmentation module~swiftest_classes swiftest_classes module~s_fragmentation->module~swiftest_classes module~swiftest swiftest module~s_fragmentation->module~swiftest module~swiftest_globals swiftest_globals module~swiftest_classes->module~swiftest_globals module~swiftest->module~swiftest_classes module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_classes module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~symba_classes->module~swiftest_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines fragmentation_initialize fragmentation_regime Module Subroutines module subroutine fragmentation_initialize (system, param, family, x, v, L_spin, Ip, mass, radius, nfrag, Ip_frag, m_frag, rad_frag, xb_frag, vb_frag, rot_frag, Qloss, lfailure) Interface → Author Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton Initialize the position and velocity of fragments to conserve energy and momentum. Arguments Type Intent Optional Attributes Name class( swiftest_nbody_system ), intent(inout) :: system Swiftest nbody system object class( swiftest_parameters ), intent(in) :: param Current run configuration parameters integer(kind=I4B), intent(in), dimension(:) :: family Index of bodies involved in the collision real(kind=DP), intent(inout), dimension(:,:) :: x Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real(kind=DP), intent(inout), dimension(:,:) :: v Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real(kind=DP), intent(inout), dimension(:,:) :: L_spin Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real(kind=DP), intent(inout), dimension(:,:) :: Ip Two-body equivalent position, vector, spin momentum, and rotational inertia values for the collision real(kind=DP), intent(inout), dimension(:) :: mass Two-body equivalent mass and radii for the bodies in the collision real(kind=DP), intent(inout), dimension(:) :: radius Two-body equivalent mass and radii for the bodies in the collision integer(kind=I4B), intent(inout) :: nfrag Number of fragments to generate real(kind=DP), intent(inout), dimension(:,:), allocatable :: Ip_frag Fragment rotational inertia vectors real(kind=DP), intent(inout), dimension(:), allocatable :: m_frag Distribution of fragment mass and radii real(kind=DP), intent(inout), dimension(:), allocatable :: rad_frag Distribution of fragment mass and radii real(kind=DP), intent(inout), dimension(:,:), allocatable :: xb_frag Fragment barycentric position, barycentric velocity, and rotation vectors real(kind=DP), intent(inout), dimension(:,:), allocatable :: vb_frag Fragment barycentric position, barycentric velocity, and rotation vectors real(kind=DP), intent(inout), dimension(:,:), allocatable :: rot_frag Fragment barycentric position, barycentric velocity, and rotation vectors real(kind=DP), intent(inout) :: Qloss Energy lost during the collision logical, intent(out) :: lfailure Answers the question: Should this have been a merger instead? module subroutine fragmentation_regime (Mcb, m1, m2, rad1, rad2, xh1, xh2, vb1, vb2, den1, den2, regime, Mlr, Mslr, mtiny, Qloss) Interface → Author Jennifer L.L. Pouplin, Carlisle A. Wishard, and David A. Minton Determine the collisional regime of two colliding bodies. \n Current version requires all values to be converted to SI units prior to calling the function\n       References:\n       Kokubo, E., Genda, H., 2010. Formation of Terrestrial Planets from Protoplanets Under a Realistic Accretion \n          Condition. ApJL 714, L21. https://doi.org/10.1088/2041-8205/714/1/L21\n       Leinhardt, Z.M., Stewart, S.T., 2012. Collisions between Gravity-dominated Bodies. I. Outcome Regimes and Scaling \n          Laws 745, 79. https://doi.org/10.1088/0004-637X/745/1/79\n       Mustill, A.J., Davies, M.B., Johansen, A., 2018. The dynamical evolution of transiting planetary systems including \n          a realistic collision prescription. Mon Not R Astron Soc 478, 2896–2908. https://doi.org/10.1093/mnras/sty1273\n       Rufu, R., Aharonson, O., 2019. Impact Dynamics of Moons Within a Planetary Potential. J. Geophys. Res. Planets 124, \n          1008–1019. https://doi.org/10.1029/2018JE005798\n       Stewart, S.T., Leinhardt, Z.M., 2012. Collisions between Gravity-dominated Bodies. II. The Diversity of Impact \n          Outcomes during the End Stage of Planet Formation. ApJ 751, 32. https://doi.org/10.1088/0004-637X/751/1/32 Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: Mcb real(kind=DP), intent(in) :: m1 real(kind=DP), intent(in) :: m2 real(kind=DP), intent(in) :: rad1 real(kind=DP), intent(in) :: rad2 real(kind=DP), intent(in), dimension(:) :: xh1 real(kind=DP), intent(in), dimension(:) :: xh2 real(kind=DP), intent(in), dimension(:) :: vb1 real(kind=DP), intent(in), dimension(:) :: vb2 real(kind=DP), intent(in) :: den1 real(kind=DP), intent(in) :: den2 integer(kind=I4B), intent(out) :: regime real(kind=DP), intent(out) :: Mlr real(kind=DP), intent(out) :: Mslr real(kind=DP), intent(in) :: mtiny real(kind=DP), intent(out) :: Qloss The residual energy after the collision","tags":"","loc":"module/s_fragmentation.html"},{"title":"s_rmvs_discard – swiftest","text":"Uses swiftest Ancestors: rmvs_classes module~~s_rmvs_discard~~UsesGraph module~s_rmvs_discard s_rmvs_discard module~swiftest swiftest module~s_rmvs_discard->module~swiftest module~rmvs_classes rmvs_classes module~s_rmvs_discard->module~rmvs_classes module~swiftest->module~rmvs_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines rmvs_discard_tp Module Subroutines module subroutine rmvs_discard_tp (self, system, param) Interface → Author David A. Minton Check to see if test particles should be discarded based on pericenter passage distances with respect to planets encountered Read more… Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_nbody_system), intent(inout) :: system Swiftest nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters","tags":"","loc":"module/s_rmvs_discard.html"},{"title":"s_rmvs_util – swiftest","text":"Uses swiftest Ancestors: rmvs_classes module~~s_rmvs_util~~UsesGraph module~s_rmvs_util s_rmvs_util module~swiftest swiftest module~s_rmvs_util->module~swiftest module~rmvs_classes rmvs_classes module~s_rmvs_util->module~rmvs_classes module~swiftest->module~rmvs_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines rmvs_util_append_pl rmvs_util_append_tp rmvs_util_fill_pl rmvs_util_fill_tp rmvs_util_resize_pl rmvs_util_resize_tp rmvs_util_sort_pl rmvs_util_sort_tp rmvs_util_sort_rearrange_pl rmvs_util_sort_rearrange_tp rmvs_util_spill_pl rmvs_util_spill_tp Module Subroutines module subroutine rmvs_util_append_pl (self, source, lsource_mask) Interface → Author David A. Minton Append components from one massive body object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine rmvs_util_append_tp (self, source, lsource_mask) Interface → Author David A. Minton Append components from test particle object to another. \n This method will automatically resize the destination body if it is too small\n Arguments Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(in) :: source Source object to append logical, intent(in), dimension(:) :: lsource_mask Logical mask indicating which elements to append to module subroutine rmvs_util_fill_pl (self, inserts, lfill_list) Interface → Author David A. Minton Insert new RMVS massive body structure into an old one. \n This is the inverse of a fill operation. Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine rmvs_util_fill_tp (self, inserts, lfill_list) Interface → Author David A. Minton Insert new RMVS test particle structure into an old one. \n This is the inverse of a fill operation. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(in) :: inserts Inserted object logical, intent(in), dimension(:) :: lfill_list Logical array of bodies to merge into the keeps module subroutine rmvs_util_resize_pl (self, nnew) Interface → Author David A. Minton Checks the current size of a massive body object against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in) :: nnew New size neded module subroutine rmvs_util_resize_tp (self, nnew) Interface → Author David A. Minton Checks the current size of a test particle object against the requested size and resizes it if it is too small. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: nnew New size neded module subroutine rmvs_util_sort_pl (self, sortby, ascending) Interface → Author David A. Minton Sort a RMVS massive body object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order module subroutine rmvs_util_sort_tp (self, sortby, ascending) Interface → Author David A. Minton Sort a RMVS test particle object in-place. \n sortby is a string indicating which array component to sort. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object character(len=*), intent(in) :: sortby Sorting attribute logical, intent(in) :: ascending Logical flag indicating whether or not the sorting should be in ascending or descending order module subroutine rmvs_util_sort_rearrange_pl (self, ind) Interface → Author David A. Minton Rearrange RMVS massive body structure in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) module subroutine rmvs_util_sort_rearrange_tp (self, ind) Interface → Author David A. Minton Rearrange RMVS test particle object in-place from an index list.\n This is a helper utility used to make polymorphic sorting work on Swiftest structures. Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in), dimension(:) :: ind Index array used to restructure the body (should contain all 1:n index values in the desired order) module subroutine rmvs_util_spill_pl (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) RMVS test particle structure from active list to discard list Read more… Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS massive body body object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not module subroutine rmvs_util_spill_tp (self, discards, lspill_list, ldestructive) Interface → Author David A. Minton Move spilled (discarded) RMVS test particle structure from active list to discard list Read more… Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class(swiftest_body), intent(inout) :: discards Discarded object logical, intent(in), dimension(:) :: lspill_list Logical array of bodies to spill into the discards logical, intent(in) :: ldestructive Logical flag indicating whether or not this operation should alter the keeps array or not","tags":"","loc":"module/s_rmvs_util.html"},{"title":"s_rmvs_kick – swiftest","text":"Uses swiftest Ancestors: rmvs_classes module~~s_rmvs_kick~~UsesGraph module~s_rmvs_kick s_rmvs_kick module~swiftest swiftest module~s_rmvs_kick->module~swiftest module~rmvs_classes rmvs_classes module~s_rmvs_kick->module~rmvs_classes module~swiftest->module~rmvs_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines rmvs_kick_getacch_tp Module Subroutines module subroutine rmvs_kick_getacch_tp (self, system, param, t, lbeg) Interface → Author David A. Minton Compute the oblateness acceleration in the inner encounter region with planets Read more… Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle data structure class(swiftest_nbody_system), intent(inout) :: system Swiftest central body particle data structuree class(swiftest_parameters), intent(in) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current time logical, intent(in) :: lbeg Logical flag that determines whether or not this is the beginning or end of the step","tags":"","loc":"module/s_rmvs_kick.html"},{"title":"s_rmvs_setup – swiftest","text":"Uses swiftest Ancestors: rmvs_classes module~~s_rmvs_setup~~UsesGraph module~s_rmvs_setup s_rmvs_setup module~swiftest swiftest module~s_rmvs_setup->module~swiftest module~rmvs_classes rmvs_classes module~s_rmvs_setup->module~rmvs_classes module~swiftest->module~rmvs_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Subroutines rmvs_setup_pl rmvs_setup_initialize_system rmvs_setup_tp Module Subroutines module subroutine rmvs_setup_pl (self, n, param) Interface → Author David A. Minton Allocate RMVS test particle structure Read more… Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameter module subroutine rmvs_setup_initialize_system (self, param) Interface → Author David A. Minton Initialize an RMVS nbody system from files and sets up the planetocentric structures. Read more… Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters module subroutine rmvs_setup_tp (self, n, param) Interface → Author David A. Minton Allocate WHM test particle structure Read more… Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object integer(kind=I4B), intent(in) :: n Number of particles to allocate space for class(swiftest_parameters), intent(in) :: param Current run configuration parameter","tags":"","loc":"module/s_rmvs_setup.html"},{"title":"s_rmvs_step – swiftest","text":"Uses swiftest Ancestors: rmvs_classes module~~s_rmvs_step~~UsesGraph module~s_rmvs_step s_rmvs_step module~swiftest swiftest module~s_rmvs_step->module~swiftest module~rmvs_classes rmvs_classes module~s_rmvs_step->module~rmvs_classes module~swiftest->module~rmvs_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Subroutines rmvs_interp_out rmvs_step_out rmvs_interp_in rmvs_step_in rmvs_make_planetocentric rmvs_peri_tp rmvs_end_planetocentric Module Subroutines rmvs_step_system Subroutines subroutine rmvs_interp_out (cb, pl, dt) Author David A. Minton Interpolate planet positions between two Keplerian orbits in outer encounter region Read more… Arguments Type Intent Optional Attributes Name class( rmvs_cb ), intent(inout) :: cb RMVS central body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object real(kind=DP), intent(in) :: dt Step size subroutine rmvs_step_out (cb, pl, tp, system, param, t, dt) Author David A. Minton Step ACTIVE test particles ahead in the outer encounter region, setting up and calling the inner region\n    integration if necessar Read more… Arguments Type Intent Optional Attributes Name class( rmvs_cb ), intent(inout) :: cb RMVS central body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_tp ), intent(inout) :: tp RMVS test particle object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsiz subroutine rmvs_interp_in (cb, pl, system, param, dt, outer_index) Author David A. Minton Interpolate planet positions between two Keplerian orbits in inner encounter regio Read more… Arguments Type Intent Optional Attributes Name class( rmvs_cb ), intent(inout) :: cb RMVS cenral body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object class(swiftest_parameters), intent(in) :: param Swiftest parameters file real(kind=DP), intent(in) :: dt Step size integer(kind=I4B), intent(in) :: outer_index Outer substep number within current set subroutine rmvs_step_in (cb, pl, tp, param, outer_time, dto) Author David A. Minton Step active test particles ahead in the inner encounter region Read more… Arguments Type Intent Optional Attributes Name class( rmvs_cb ), intent(inout) :: cb RMVS central body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_tp ), intent(inout) :: tp RMVS test particle object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: outer_time Current time real(kind=DP), intent(in) :: dto Outer step size subroutine rmvs_make_planetocentric (param, cb, pl, tp) Author David A. Minton When encounters are detected, this method will call the interpolation methods for the planets and \n creates a Swiftest test particle structure for each planet's encountering test particles to simplify the \n planetocentric calculations. This subroutine is not based on an existing one from Swift and Swifter Arguments Type Intent Optional Attributes Name class(swiftest_parameters), intent(in) :: param Current run configuration paramete class( rmvs_cb ), intent(inout) :: cb RMVS central body object class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_tp ), intent(inout) :: tp RMVS test particle object subroutine rmvs_peri_tp (tp, pl, t, dt, lfirst, inner_index, ipleP, param) Author David A. Minton Determine planetocentric pericenter passages for test particles in close encounters with a planet Read more… Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: tp RMVS test particle object (planetocentric) class( rmvs_pl ), intent(inout) :: pl RMVS massive body object (heliocentric) real(kind=DP), intent(in) :: t current time real(kind=DP), intent(in) :: dt step size logical, intent(in) :: lfirst Logical flag indicating whether current invocation is the first integer(kind=I4B), intent(in) :: inner_index Outer substep number within current set integer(kind=I4B), intent(in) :: ipleP index of RMVS planet being closely encountered class(swiftest_parameters), intent(in) :: param Current run configuration parameters subroutine rmvs_end_planetocentric (pl, tp) Author David A. Minton Deallocates all of the encountering particle data structures for next time Arguments Type Intent Optional Attributes Name class( rmvs_pl ), intent(inout) :: pl RMVS massive body object class( rmvs_tp ), intent(inout) :: tp RMVS test particle objec Module Subroutines module subroutine rmvs_step_system (self, param, t, dt) Interface → Author David A. Minton Step massive bodies and and active test particles ahead in heliocentric coordinates Read more… Arguments Type Intent Optional Attributes Name class( rmvs_nbody_system ), intent(inout) :: self RMVS nbody system object class(swiftest_parameters), intent(inout) :: param Current run configuration parameters real(kind=DP), intent(in) :: t Current simulation time real(kind=DP), intent(in) :: dt Current stepsiz","tags":"","loc":"module/s_rmvs_step.html"},{"title":"s_rmvs_chk – swiftest","text":"Uses swiftest Ancestors: rmvs_classes module~~s_rmvs_chk~~UsesGraph module~s_rmvs_chk s_rmvs_chk module~swiftest swiftest module~s_rmvs_chk->module~swiftest module~rmvs_classes rmvs_classes module~s_rmvs_chk->module~rmvs_classes module~swiftest->module~rmvs_classes module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Contents Module Functions rmvs_encounter_check_tp rmvs_chk_ind Module Functions module function rmvs_encounter_check_tp (self, system, dt) result(lencounter) Interface → Author David A. Minton Determine whether a test particle and planet are having or will have an encounter within the next time step Read more… Arguments Type Intent Optional Attributes Name class( rmvs_tp ), intent(inout) :: self RMVS test particle object class( rmvs_nbody_system ), intent(inout) :: system RMVS nbody system object real(kind=DP), intent(in) :: dt step size Return Value logical Returns true if there is at least one close encounter elemental module function rmvs_chk_ind (r2, v2, vdotr, dt, r2crit) result(lflag) Interface → Author David A. Minton Determine whether a test particle and planet are having or will have an encounter within the next time step Read more… Arguments Type Intent Optional Attributes Name real(kind=DP), intent(in) :: r2 real(kind=DP), intent(in) :: v2 real(kind=DP), intent(in) :: vdotr real(kind=DP), intent(in) :: dt real(kind=DP), intent(in) :: r2crit Return Value logical","tags":"","loc":"module/s_rmvs_chk.html"},{"title":"swiftest_driver – swiftest","text":"Uses swiftest program~~swiftest_driver~~UsesGraph program~swiftest_driver swiftest_driver module~swiftest swiftest program~swiftest_driver->module~swiftest module~swiftest_globals swiftest_globals module~swiftest->module~swiftest_globals module~lambda_function lambda_function module~swiftest->module~lambda_function module~swiftest_operators swiftest_operators module~swiftest->module~swiftest_operators module~helio_classes helio_classes module~swiftest->module~helio_classes module~rmvs_classes rmvs_classes module~swiftest->module~rmvs_classes module~whm_classes whm_classes module~swiftest->module~whm_classes module~swiftest_classes swiftest_classes module~swiftest->module~swiftest_classes module~symba_classes symba_classes module~swiftest->module~symba_classes iso_fortran_env iso_fortran_env module~swiftest_globals->iso_fortran_env module~lambda_function->module~swiftest_globals module~swiftest_operators->module~swiftest_globals module~helio_classes->module~swiftest_globals module~helio_classes->module~whm_classes module~helio_classes->module~swiftest_classes module~rmvs_classes->module~swiftest_globals module~rmvs_classes->module~whm_classes module~whm_classes->module~swiftest_globals module~whm_classes->module~swiftest_classes module~swiftest_classes->module~swiftest_globals module~symba_classes->module~swiftest_globals module~symba_classes->module~helio_classes module~symba_classes->module~rmvs_classes module~symba_classes->module~swiftest_classes 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\n    descended from. Dashed arrows point from a module or program unit to \n    modules which it uses. Driver program for the Swiftest integrators. Unlike the earlier Swift and Swifter drivers, in Swiftest all integrators \n    are run from this single program. Adapted from Swifter by David E. Kaufmann's Swifter driver programs swifter_[bs,helio,ra15,rmvs,symba,tu4,whm].f90\n Adapted from Hal Levison and Martin Duncan's Swift driver programs\n Read in the user-defined parameters file and the initial conditions of the system\n Define the maximum number of threads Step the system forward in time Evaluate any discards or collisional outcomes If the loop counter is at the output cadence value, append the data file with a single frame\n If the loop counter is at the dump cadence value, dump the state of the system to a file in case it needs to be restarted Calls program~~swiftest_driver~~CallsGraph program~swiftest_driver swiftest_driver setup_construct_system setup_construct_system program~swiftest_driver->setup_construct_system util_exit util_exit program~swiftest_driver->util_exit io_get_args io_get_args program~swiftest_driver->io_get_args Help × Graph Key Nodes of different colours represent the following: Graph Key Subroutine Subroutine Function Function Interface Interface 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 \n    arrows point from an interface to procedures which implement that interface.\n    This could include the module procedures in a generic interface or the\n    implementation in a submodule of an interface in a parent module. Contents Variables nbody_system param integrator param_file_name ierr iloop idump iout nloops iu Variables Type Attributes Name Initial class(swiftest_nbody_system), allocatable :: nbody_system Polymorphic object containing the nbody system to be integrated class(swiftest_parameters), allocatable :: param Run configuration parameters integer(kind=I4B) :: integrator Integrator type code (see swiftest_globals for symbolic names) character(len=:), allocatable :: param_file_name Name of the file containing user-defined parameters integer(kind=I4B) :: ierr I/O error code integer(kind=I8B) :: iloop Loop counter integer(kind=I8B) :: idump Dump cadence counter integer(kind=I8B) :: iout Output cadence counter integer(kind=I8B) :: nloops Number of steps to take in the simulation integer(kind=I4B) :: iu Unit number of binary file","tags":"","loc":"program/swiftest_driver.html"}]}
\ No newline at end of file
diff --git a/docs/type/helio_cb.html b/docs/type/helio_cb.html
index 31357e59b..adc772447 100644
--- a/docs/type/helio_cb.html
+++ b/docs/type/helio_cb.html
@@ -992,7 +992,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -1044,21 +1044,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
diff --git a/docs/type/helio_nbody_system.html b/docs/type/helio_nbody_system.html
index eb861731c..fb77daf25 100644
--- a/docs/type/helio_nbody_system.html
+++ b/docs/type/helio_nbody_system.html
@@ -189,6 +189,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-tp_discards">tp_discards</a>
       
+      <a class="list-group-item" href="../type/helio_nbody_system.html#variable-pl_discards">pl_discards</a>
+      
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-gmtot">Gmtot</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-ke_orbit">ke_orbit</a>
@@ -259,6 +261,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-get_energy_and_momentum">get_energy_and_momentum</a>
       
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-rescale">rescale</a>
+      
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-validate_ids">validate_ids</a>
+      
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-initialize~4">initialize</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-step~4">step</a>
@@ -291,141 +297,141 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~helio_nbody_system~~InheritsGraph Pages: 1 -->
-<svg id="typehelio_nbody_systemInheritsGraph" width="641pt" height="91pt"
- viewBox="0.00 0.00 641.00 90.87" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~helio_nbody_system~~InheritsGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 120.61)">
+<svg id="typehelio_nbody_systemInheritsGraph" width="641pt" height="90pt"
+ viewBox="0.00 0.00 641.00 90.43" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~helio_nbody_system~~InheritsGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 120)">
 <title>type~~helio_nbody_system~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-120.61 875,-120.61 875,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-120 875,-120 875,4 -4,4"/>
 <!-- type~helio_nbody_system -->
 <g id="type~~helio_nbody_system~~InheritsGraph_node1" class="node">
 <title>type~helio_nbody_system</title>
-<polygon fill="none" stroke="black" points="871,-79.61 761,-79.61 761,-55.61 871,-55.61 871,-79.61"/>
-<text text-anchor="middle" x="816" y="-65.21" font-family="Helvetica,sans-Serif" font-size="10.50">helio_nbody_system</text>
+<polygon fill="none" stroke="black" points="871,-64 761,-64 761,-40 871,-40 871,-64"/>
+<text text-anchor="middle" x="816" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">helio_nbody_system</text>
 </g>
 <!-- type~whm_nbody_system -->
 <g id="type~~helio_nbody_system~~InheritsGraph_node2" class="node">
 <title>type~whm_nbody_system</title>
 <g id="a_type~~helio_nbody_system~~InheritsGraph_node2"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="724,-79.61 614,-79.61 614,-55.61 724,-55.61 724,-79.61"/>
-<text text-anchor="middle" x="669" y="-65.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="724,-64 614,-64 614,-40 724,-40 724,-64"/>
+<text text-anchor="middle" x="669" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~helio_nbody_system&#45;&gt;type~whm_nbody_system -->
 <g id="type~~helio_nbody_system~~InheritsGraph_edge1" class="edge">
 <title>type~helio_nbody_system&#45;&gt;type~whm_nbody_system</title>
-<path fill="none" stroke="#000000" d="M760.59,-67.61C752.05,-67.61 743.14,-67.61 734.39,-67.61"/>
-<polygon fill="#000000" stroke="#000000" points="734.23,-64.11 724.23,-67.61 734.23,-71.11 734.23,-64.11"/>
+<path fill="none" stroke="#000000" d="M760.59,-52C752.05,-52 743.14,-52 734.39,-52"/>
+<polygon fill="#000000" stroke="#000000" points="734.23,-48.5 724.23,-52 734.23,-55.5 734.23,-48.5"/>
 </g>
 <!-- type~swiftest_nbody_system -->
 <g id="type~~helio_nbody_system~~InheritsGraph_node3" class="node">
 <title>type~swiftest_nbody_system</title>
 <g id="a_type~~helio_nbody_system~~InheritsGraph_node3"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="577,-79.61 454,-79.61 454,-55.61 577,-55.61 577,-79.61"/>
-<text text-anchor="middle" x="515.5" y="-65.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_nbody_system</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="577,-64 454,-64 454,-40 577,-40 577,-64"/>
+<text text-anchor="middle" x="515.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system -->
 <g id="type~~helio_nbody_system~~InheritsGraph_edge2" class="edge">
 <title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
-<path fill="none" stroke="#000000" d="M613.73,-67.61C605.1,-67.61 596.05,-67.61 587.11,-67.61"/>
-<polygon fill="#000000" stroke="#000000" points="587.07,-64.11 577.07,-67.61 587.07,-71.11 587.07,-64.11"/>
+<path fill="none" stroke="#000000" d="M613.73,-52C605.1,-52 596.05,-52 587.11,-52"/>
+<polygon fill="#000000" stroke="#000000" points="587.07,-48.5 577.07,-52 587.07,-55.5 587.07,-48.5"/>
 </g>
-<!-- type~swiftest_cb -->
+<!-- type~swiftest_tp -->
 <g id="type~~helio_nbody_system~~InheritsGraph_node4" class="node">
-<title>type~swiftest_cb</title>
-<g id="a_type~~helio_nbody_system~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="274,-113.61 209,-113.61 209,-89.61 274,-89.61 274,-113.61"/>
-<text text-anchor="middle" x="241.5" y="-99.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
+<title>type~swiftest_tp</title>
+<g id="a_type~~helio_nbody_system~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="355,-43 292,-43 292,-19 355,-19 355,-43"/>
+<text text-anchor="middle" x="323.5" y="-28.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
-<g id="type~~helio_nbody_system~~InheritsGraph_edge3" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.55,-79.64C469.25,-84.83 451.94,-90.62 436,-94.61 373.66,-110.21 356.14,-111.48 292,-107.61 289.47,-107.46 286.87,-107.26 284.24,-107.03"/>
-<polygon fill="#000000" stroke="#000000" points="284.44,-103.53 274.14,-106.02 283.74,-110.5 284.44,-103.53"/>
-<text text-anchor="middle" x="404.5" y="-109.01" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_tp -->
+<g id="type~~helio_nbody_system~~InheritsGraph_edge5" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.86,-45.3C424.94,-42.1 391.11,-38.36 365.3,-35.51"/>
+<polygon fill="#000000" stroke="#000000" points="365.44,-32 355.12,-34.38 364.67,-38.96 365.44,-32"/>
+<text text-anchor="middle" x="404.5" y="-44.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </g>
-<!-- type~swiftest_tp -->
+<!-- type~swiftest_base -->
 <g id="type~~helio_nbody_system~~InheritsGraph_node5" class="node">
-<title>type~swiftest_tp</title>
-<g id="a_type~~helio_nbody_system~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="355,-98.61 292,-98.61 292,-74.61 355,-74.61 355,-98.61"/>
-<text text-anchor="middle" x="323.5" y="-84.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
+<title>type~swiftest_base</title>
+<g id="a_type~~helio_nbody_system~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-85 0,-85 0,-61 77,-61 77,-85"/>
+<text text-anchor="middle" x="38.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_tp -->
-<g id="type~~helio_nbody_system~~InheritsGraph_edge5" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.86,-73.67C424.94,-76.57 391.11,-79.95 365.3,-82.53"/>
-<polygon fill="#000000" stroke="#000000" points="364.72,-79.07 355.12,-83.55 365.42,-86.04 364.72,-79.07"/>
-<text text-anchor="middle" x="404.5" y="-83.01" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_base -->
+<g id="type~~helio_nbody_system~~InheritsGraph_edge6" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M485.85,-64.11C471.17,-69.93 452.86,-76.58 436,-81 400.73,-90.25 391.35,-91.1 355,-94 248.23,-102.51 211.31,-138.76 114,-94 102.83,-88.86 108.29,-73.11 96,-73"/>
 </g>
 <!-- type~swiftest_pl -->
 <g id="type~~helio_nbody_system~~InheritsGraph_node6" class="node">
 <title>type~swiftest_pl</title>
 <g id="a_type~~helio_nbody_system~~InheritsGraph_node6"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="354.5,-56.61 292.5,-56.61 292.5,-32.61 354.5,-32.61 354.5,-56.61"/>
-<text text-anchor="middle" x="323.5" y="-42.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="354.5,-85 292.5,-85 292.5,-61 354.5,-61 354.5,-85"/>
+<text text-anchor="middle" x="323.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_pl -->
 <g id="type~~helio_nbody_system~~InheritsGraph_edge4" class="edge">
 <title>type~swiftest_nbody_system&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.86,-60.27C424.75,-56.75 390.66,-52.62 364.79,-49.49"/>
-<polygon fill="#000000" stroke="#000000" points="364.94,-45.98 354.59,-48.25 364.1,-52.93 364.94,-45.98"/>
-<text text-anchor="middle" x="404.5" y="-59.01" font-family="Helvetica,sans-Serif" font-size="9.50">pl</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.86,-58.7C424.75,-61.92 390.66,-65.69 364.79,-68.55"/>
+<polygon fill="#000000" stroke="#000000" points="364.15,-65.1 354.59,-69.67 364.92,-72.05 364.15,-65.1"/>
+<text text-anchor="middle" x="404.5" y="-69.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </g>
-<!-- type~swiftest_base -->
+<!-- type~swiftest_cb -->
 <g id="type~~helio_nbody_system~~InheritsGraph_node7" class="node">
-<title>type~swiftest_base</title>
-<g id="a_type~~helio_nbody_system~~InheritsGraph_node7"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-56.61 0,-56.61 0,-32.61 77,-32.61 77,-56.61"/>
-<text text-anchor="middle" x="38.5" y="-42.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
+<title>type~swiftest_cb</title>
+<g id="a_type~~helio_nbody_system~~InheritsGraph_node7"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="274,-24 209,-24 209,0 274,0 274,-24"/>
+<text text-anchor="middle" x="241.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_base -->
-<g id="type~~helio_nbody_system~~InheritsGraph_edge6" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M95,-44.61C92.47,-44.65 89.88,-44.68 87.26,-44.7"/>
-<polygon fill="#000000" stroke="#000000" points="87.1,-41.2 77.12,-44.76 87.14,-48.2 87.1,-41.2"/>
-<path fill="none" stroke="#000000" d="M481.13,-55.57C449.24,-44.74 399.55,-29.64 355,-23.61 248.86,-9.24 211.31,21.15 114,-23.61 102.83,-28.75 108.29,-44.43 96,-44.61"/>
-</g>
-<!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
-<g id="type~~helio_nbody_system~~InheritsGraph_edge7" class="edge">
-<title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M208.77,-97.8C181.83,-93.39 143.03,-84.21 114,-65.61 103.65,-58.98 108.29,-44.61 96,-44.61"/>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
+<g id="type~~helio_nbody_system~~InheritsGraph_edge3" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.37,-39.95C472.47,-33.76 453.5,-26.58 436,-22 373.87,-5.73 356.21,-8.7 292,-10 289.48,-10.05 286.89,-10.12 284.27,-10.19"/>
+<polygon fill="#000000" stroke="#000000" points="284.06,-6.7 274.18,-10.53 284.29,-13.69 284.06,-6.7"/>
+<text text-anchor="middle" x="404.5" y="-24.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
 </g>
 <!-- type~swiftest_body -->
 <g id="type~~helio_nbody_system~~InheritsGraph_node8" class="node">
 <title>type~swiftest_body</title>
 <g id="a_type~~helio_nbody_system~~InheritsGraph_node8"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-56.61 114,-56.61 114,-32.61 191,-32.61 191,-56.61"/>
-<text text-anchor="middle" x="152.5" y="-42.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-85 114,-85 114,-61 191,-61 191,-85"/>
+<text text-anchor="middle" x="152.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_tp&#45;&gt;type~swiftest_body -->
-<g id="type~~helio_nbody_system~~InheritsGraph_edge8" class="edge">
+<g id="type~~helio_nbody_system~~InheritsGraph_edge7" class="edge">
 <title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M291.99,-78.12C277.18,-74.42 259.05,-70.5 242.5,-68.61"/>
+<path fill="none" stroke="#000000" d="M303.16,-43.19C283.79,-55.01 255.11,-71.41 242.5,-73"/>
+<path fill="none" stroke="#000000" d="M240.5,-73C227.97,-74.58 214.35,-75.13 201.68,-75.15"/>
+<polygon fill="#000000" stroke="#000000" points="201.34,-71.64 191.31,-75.05 201.28,-78.64 201.34,-71.64"/>
 </g>
 <!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
-<g id="type~~helio_nbody_system~~InheritsGraph_edge9" class="edge">
+<g id="type~~helio_nbody_system~~InheritsGraph_edge8" class="edge">
 <title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M299.85,-56.65C284.08,-63.72 262.38,-70.88 242.5,-68.61"/>
-<path fill="none" stroke="#000000" d="M240.5,-68.61C226.22,-66.98 211,-63.44 197.35,-59.56"/>
-<polygon fill="#000000" stroke="#000000" points="198.31,-56.2 187.73,-56.71 196.32,-62.91 198.31,-56.2"/>
+<path fill="none" stroke="#000000" d="M292.38,-71.22C277.34,-70.79 258.9,-70.93 242.5,-73"/>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
+<g id="type~~helio_nbody_system~~InheritsGraph_edge9" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M208.76,-16.99C181.81,-22.35 143.01,-32.82 114,-52 103.75,-58.78 108.29,-73 96,-73"/>
+<path fill="none" stroke="#000000" d="M95,-73C92.47,-72.98 89.88,-72.96 87.26,-72.95"/>
+<polygon fill="#000000" stroke="#000000" points="87.13,-69.45 77.12,-72.91 87.1,-76.45 87.13,-69.45"/>
 </g>
 <!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
 <g id="type~~helio_nbody_system~~InheritsGraph_edge10" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M113.88,-44.61C107.9,-44.61 101.78,-44.61 96,-44.61"/>
+<path fill="none" stroke="#000000" d="M113.88,-73C107.9,-73 101.78,-73 96,-73"/>
 </g>
 </g>
 </svg>
@@ -569,6 +575,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-tp_discards">tp_discards</a>
       
+      <a class="list-group-item" href="../type/helio_nbody_system.html#variable-pl_discards">pl_discards</a>
+      
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-gmtot">Gmtot</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#variable-ke_orbit">ke_orbit</a>
@@ -639,6 +647,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-get_energy_and_momentum">get_energy_and_momentum</a>
       
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-rescale">rescale</a>
+      
+      <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-validate_ids">validate_ids</a>
+      
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-initialize~4">initialize</a>
       
       <a class="list-group-item" href="../type/helio_nbody_system.html#boundprocedure-step~4">step</a>
@@ -741,6 +753,20 @@ <h2>Components</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-pl_discards"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  
+  <td>public,</td>
+  <td>allocatable</td><td>::</td>
+  <td><strong>pl_discards</strong></td><td></td><td></td><td><p>Discarded massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-gmtot"></span>real(kind=DP),</td>
@@ -1163,7 +1189,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_system(self, param, msg)
+public module subroutine io_dump_system(self, param)
     
     
    
@@ -1215,21 +1241,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -1872,6 +1883,237 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-rescale"></span><h3>procedure, public :: <strong>rescale</strong>  => <a href='../interface/util_rescale_system.html'>util_rescale_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Rescales the system into a new set of units</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_rescale_system(self, param, mscale, dscale, tscale)
+    
+    
+   
+   <a href='../proc/util_rescale_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters. Returns with new values of the scale vactors and GU</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>mscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>tscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-validate_ids"></span><h3>procedure, public :: <strong>validate_ids</strong>  => <a href='../interface/util_valid_id_system.html'>util_valid_id_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Validate the numerical ids passed to the system and save the maximum value</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_valid_id_system(self, param)
+    
+    
+   
+   <a href='../proc/util_valid_id_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
       </li>
     
   </ul>
diff --git a/docs/type/helio_pl.html b/docs/type/helio_pl.html
index 20ef561ad..996cf80a6 100644
--- a/docs/type/helio_pl.html
+++ b/docs/type/helio_pl.html
@@ -491,11 +491,11 @@ <h3 class="panel-title">Inherited by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~helio_pl~~InheritedByGraph Pages: 1 -->
-<svg id="typehelio_plInheritedByGraph" width="560pt" height="32pt"
- viewBox="0.00 0.00 560.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="typehelio_plInheritedByGraph" width="468pt" height="32pt"
+ viewBox="0.00 0.00 468.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="type~~helio_pl~~InheritedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>type~~helio_pl~~InheritedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 556,-28 556,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 464,-28 464,4 -4,4"/>
 <!-- type~helio_pl -->
 <g id="type~~helio_pl~~InheritedByGraph_node1" class="node">
 <title>type~helio_pl</title>
@@ -536,17 +536,17 @@ <h3 class="panel-title">Inherited by</h3>
 <g id="type~~helio_pl~~InheritedByGraph_node4" class="node">
 <title>type~symba_nbody_system</title>
 <g id="a_type~~helio_pl~~InheritedByGraph_node4"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="552,-24 433,-24 433,0 552,0 552,-24"/>
-<text text-anchor="middle" x="492.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="460,-24 341,-24 341,0 460,0 460,-24"/>
+<text text-anchor="middle" x="400.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~symba_nbody_system&#45;&gt;type~symba_merger -->
 <g id="type~~helio_pl~~InheritedByGraph_edge3" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~symba_merger</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M432.7,-12C387.31,-12 325.09,-12 281.5,-12"/>
-<polygon fill="#000000" stroke="#000000" points="281.4,-8.5 271.4,-12 281.4,-15.5 281.4,-8.5"/>
-<text text-anchor="middle" x="352" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">mergeadd_list, mergesub_list</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M341,-12C321.63,-12 300.22,-12 281.38,-12"/>
+<polygon fill="#000000" stroke="#000000" points="281.21,-8.5 271.21,-12 281.21,-15.5 281.21,-8.5"/>
+<text text-anchor="middle" x="306" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl_adds</text>
 </g>
 </g>
 </svg>
@@ -1386,7 +1386,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -1438,21 +1438,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -3039,7 +3024,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/type/helio_tp.html b/docs/type/helio_tp.html
index 2be7b9d76..d50e24894 100644
--- a/docs/type/helio_tp.html
+++ b/docs/type/helio_tp.html
@@ -1127,7 +1127,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -1179,21 +1179,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -2654,7 +2639,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/type/lambda_obj_err.html b/docs/type/lambda_obj_err.html
index 7bc985dac..90d0449d9 100644
--- a/docs/type/lambda_obj_err.html
+++ b/docs/type/lambda_obj_err.html
@@ -134,7 +134,7 @@ <h1>lambda_obj_err
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 1.5% of total for derived types.</p>Including implementation: 50 statements,  7.2% of total for derived types.">8 statements</a>
+    title="<p> 1.5% of total for derived types.</p>Including implementation: 50 statements,  7.1% of total for derived types.">8 statements</a>
      </li> 
      
      
diff --git a/docs/type/rmvs_cb.html b/docs/type/rmvs_cb.html
index bbdfd28c5..0da9aff21 100644
--- a/docs/type/rmvs_cb.html
+++ b/docs/type/rmvs_cb.html
@@ -305,69 +305,69 @@ <h3 class="panel-title">Inherits</h3>
 <!-- type~rmvs_cb -->
 <g id="type~~rmvs_cb~~InheritsGraph_node1" class="node">
 <title>type~rmvs_cb</title>
-<polygon fill="none" stroke="black" points="424,-36 370,-36 370,-12 424,-12 424,-36"/>
-<text text-anchor="middle" x="397" y="-21.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_cb</text>
+<polygon fill="none" stroke="black" points="424,-45 370,-45 370,-21 424,-21 424,-45"/>
+<text text-anchor="middle" x="397" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_cb</text>
 </g>
-<!-- type~whm_cb -->
+<!-- type~rmvs_interp -->
 <g id="type~~rmvs_cb~~InheritsGraph_node2" class="node">
-<title>type~whm_cb</title>
-<g id="a_type~~rmvs_cb~~InheritsGraph_node2"><a xlink:href=".././type/whm_cb.html" xlink:title="whm_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="277.5,-66 223.5,-66 223.5,-42 277.5,-42 277.5,-66"/>
-<text text-anchor="middle" x="250.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_cb</text>
+<title>type~rmvs_interp</title>
+<g id="a_type~~rmvs_cb~~InheritsGraph_node2"><a xlink:href=".././type/rmvs_interp.html" xlink:title="rmvs_interp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="285,-66 216,-66 216,-42 285,-42 285,-66"/>
+<text text-anchor="middle" x="250.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_cb&#45;&gt;type~whm_cb -->
-<g id="type~~rmvs_cb~~InheritsGraph_edge2" class="edge">
-<title>type~rmvs_cb&#45;&gt;type~whm_cb</title>
-<path fill="none" stroke="#000000" d="M369.83,-29.43C346.96,-34.18 313.51,-41.13 288,-46.42"/>
-<polygon fill="#000000" stroke="#000000" points="287.04,-43.05 277.96,-48.51 288.46,-49.9 287.04,-43.05"/>
+<!-- type~rmvs_cb&#45;&gt;type~rmvs_interp -->
+<g id="type~~rmvs_cb~~InheritsGraph_edge1" class="edge">
+<title>type~rmvs_cb&#45;&gt;type~rmvs_interp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M369.83,-36.8C349.05,-39.82 319.54,-44.11 295.19,-47.65"/>
+<polygon fill="#000000" stroke="#000000" points="294.51,-44.21 285.11,-49.11 295.51,-51.14 294.51,-44.21"/>
+<text text-anchor="middle" x="327.5" y="-47.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
 </g>
-<!-- type~rmvs_interp -->
+<!-- type~whm_cb -->
 <g id="type~~rmvs_cb~~InheritsGraph_node3" class="node">
-<title>type~rmvs_interp</title>
-<g id="a_type~~rmvs_cb~~InheritsGraph_node3"><a xlink:href=".././type/rmvs_interp.html" xlink:title="rmvs_interp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="285,-24 216,-24 216,0 285,0 285,-24"/>
-<text text-anchor="middle" x="250.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp</text>
+<title>type~whm_cb</title>
+<g id="a_type~~rmvs_cb~~InheritsGraph_node3"><a xlink:href=".././type/whm_cb.html" xlink:title="whm_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="277.5,-24 223.5,-24 223.5,0 277.5,0 277.5,-24"/>
+<text text-anchor="middle" x="250.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_cb</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_cb&#45;&gt;type~rmvs_interp -->
-<g id="type~~rmvs_cb~~InheritsGraph_edge1" class="edge">
-<title>type~rmvs_cb&#45;&gt;type~rmvs_interp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M369.83,-21.83C349.05,-20.1 319.54,-17.65 295.19,-15.63"/>
-<polygon fill="#000000" stroke="#000000" points="295.37,-12.13 285.11,-14.79 294.79,-19.11 295.37,-12.13"/>
-<text text-anchor="middle" x="327.5" y="-23.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
+<!-- type~rmvs_cb&#45;&gt;type~whm_cb -->
+<g id="type~~rmvs_cb~~InheritsGraph_edge2" class="edge">
+<title>type~rmvs_cb&#45;&gt;type~whm_cb</title>
+<path fill="none" stroke="#000000" d="M369.83,-29.2C346.96,-25.87 313.51,-21.01 288,-17.3"/>
+<polygon fill="#000000" stroke="#000000" points="288.36,-13.82 277.96,-15.85 287.35,-20.75 288.36,-13.82"/>
 </g>
 <!-- type~swiftest_cb -->
 <g id="type~~rmvs_cb~~InheritsGraph_node4" class="node">
 <title>type~swiftest_cb</title>
 <g id="a_type~~rmvs_cb~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="179,-66 114,-66 114,-42 179,-42 179,-66"/>
-<text text-anchor="middle" x="146.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="179,-24 114,-24 114,0 179,0 179,-24"/>
+<text text-anchor="middle" x="146.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
 </a>
 </g>
 </g>
 <!-- type~whm_cb&#45;&gt;type~swiftest_cb -->
 <g id="type~~rmvs_cb~~InheritsGraph_edge3" class="edge">
 <title>type~whm_cb&#45;&gt;type~swiftest_cb</title>
-<path fill="none" stroke="#000000" d="M223.5,-54C213.19,-54 201.08,-54 189.59,-54"/>
-<polygon fill="#000000" stroke="#000000" points="189.29,-50.5 179.29,-54 189.29,-57.5 189.29,-50.5"/>
+<path fill="none" stroke="#000000" d="M223.5,-12C213.19,-12 201.08,-12 189.59,-12"/>
+<polygon fill="#000000" stroke="#000000" points="189.29,-8.5 179.29,-12 189.29,-15.5 189.29,-8.5"/>
 </g>
 <!-- type~swiftest_base -->
 <g id="type~~rmvs_cb~~InheritsGraph_node5" class="node">
 <title>type~swiftest_base</title>
 <g id="a_type~~rmvs_cb~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-66 0,-66 0,-42 77,-42 77,-66"/>
-<text text-anchor="middle" x="38.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-24 0,-24 0,0 77,0 77,-24"/>
+<text text-anchor="middle" x="38.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
 <g id="type~~rmvs_cb~~InheritsGraph_edge4" class="edge">
 <title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M113.98,-54C105.56,-54 96.26,-54 87.18,-54"/>
-<polygon fill="#000000" stroke="#000000" points="87.07,-50.5 77.07,-54 87.07,-57.5 87.07,-50.5"/>
+<path fill="none" stroke="#000000" d="M113.98,-12C105.56,-12 96.26,-12 87.18,-12"/>
+<polygon fill="#000000" stroke="#000000" points="87.07,-8.5 77.07,-12 87.07,-15.5 87.07,-8.5"/>
 </g>
 </g>
 </svg>
@@ -1042,7 +1042,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -1094,21 +1094,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
diff --git a/docs/type/rmvs_interp.html b/docs/type/rmvs_interp.html
index e49c4c36f..09241c654 100644
--- a/docs/type/rmvs_interp.html
+++ b/docs/type/rmvs_interp.html
@@ -240,56 +240,56 @@ <h3 class="panel-title">Inherited by</h3>
 <!-- type~rmvs_interp -->
 <g id="type~~rmvs_interp~~InheritedByGraph_node1" class="node">
 <title>type~rmvs_interp</title>
-<polygon fill="none" stroke="black" points="69,-40 0,-40 0,-16 69,-16 69,-40"/>
-<text text-anchor="middle" x="34.5" y="-25.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_interp</text>
+<polygon fill="none" stroke="black" points="69,-45 0,-45 0,-21 69,-21 69,-45"/>
+<text text-anchor="middle" x="34.5" y="-30.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_interp</text>
 </g>
-<!-- type~rmvs_cb -->
+<!-- type~rmvs_pl -->
 <g id="type~~rmvs_interp~~InheritedByGraph_node2" class="node">
-<title>type~rmvs_cb</title>
-<g id="a_type~~rmvs_interp~~InheritedByGraph_node2"><a xlink:href=".././type/rmvs_cb.html" xlink:title="rmvs_cb">
+<title>type~rmvs_pl</title>
+<g id="a_type~~rmvs_interp~~InheritedByGraph_node2"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="208,-66 154,-66 154,-42 208,-42 208,-66"/>
-<text text-anchor="middle" x="181" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_cb</text>
+<text text-anchor="middle" x="181" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_pl</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_cb&#45;&gt;type~rmvs_interp -->
-<g id="type~~rmvs_interp~~InheritedByGraph_edge1" class="edge">
-<title>type~rmvs_cb&#45;&gt;type~rmvs_interp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.83,-49.29C133.05,-45.55 103.54,-40.24 79.19,-35.86"/>
-<polygon fill="#000000" stroke="#000000" points="79.58,-32.37 69.11,-34.05 78.34,-39.26 79.58,-32.37"/>
-<text text-anchor="middle" x="111.5" y="-48.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
+<!-- type~rmvs_pl&#45;&gt;type~rmvs_interp -->
+<g id="type~~rmvs_interp~~InheritedByGraph_edge2" class="edge">
+<title>type~rmvs_pl&#45;&gt;type~rmvs_interp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.83,-50.2C133.05,-47.18 103.54,-42.89 79.19,-39.35"/>
+<polygon fill="#000000" stroke="#000000" points="79.51,-35.86 69.11,-37.89 78.51,-42.79 79.51,-35.86"/>
+<text text-anchor="middle" x="111.5" y="-49.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
 </g>
-<!-- type~rmvs_pl -->
+<!-- type~rmvs_cb -->
 <g id="type~~rmvs_interp~~InheritedByGraph_node3" class="node">
-<title>type~rmvs_pl</title>
-<g id="a_type~~rmvs_interp~~InheritedByGraph_node3"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
+<title>type~rmvs_cb</title>
+<g id="a_type~~rmvs_interp~~InheritedByGraph_node3"><a xlink:href=".././type/rmvs_cb.html" xlink:title="rmvs_cb">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="208,-24 154,-24 154,0 208,0 208,-24"/>
-<text text-anchor="middle" x="181" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_pl</text>
+<text text-anchor="middle" x="181" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_cb</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_pl&#45;&gt;type~rmvs_interp -->
-<g id="type~~rmvs_interp~~InheritedByGraph_edge2" class="edge">
-<title>type~rmvs_pl&#45;&gt;type~rmvs_interp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.84,-12.31C135.15,-12.8 109.44,-14.02 87,-17 84.46,-17.34 81.86,-17.73 79.25,-18.17"/>
-<polygon fill="#000000" stroke="#000000" points="78.37,-14.77 69.17,-20.02 79.63,-21.66 78.37,-14.77"/>
-<text text-anchor="middle" x="111.5" y="-19.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
+<!-- type~rmvs_cb&#45;&gt;type~rmvs_interp -->
+<g id="type~~rmvs_interp~~InheritedByGraph_edge1" class="edge">
+<title>type~rmvs_cb&#45;&gt;type~rmvs_interp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M153.85,-14.08C135.16,-15.75 109.45,-18.41 87,-22 84.47,-22.4 81.88,-22.85 79.27,-23.33"/>
+<polygon fill="#000000" stroke="#000000" points="78.35,-19.94 69.2,-25.28 79.69,-26.81 78.35,-19.94"/>
+<text text-anchor="middle" x="111.5" y="-24.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
 </g>
 <!-- type~rmvs_tp -->
 <g id="type~~rmvs_interp~~InheritedByGraph_node4" class="node">
 <title>type~rmvs_tp</title>
 <g id="a_type~~rmvs_interp~~InheritedByGraph_node4"><a xlink:href=".././type/rmvs_tp.html" xlink:title="rmvs_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="362,-66 308,-66 308,-42 362,-42 362,-66"/>
-<text text-anchor="middle" x="335" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_tp</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="362,-24 308,-24 308,0 362,0 362,-24"/>
+<text text-anchor="middle" x="335" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_tp</text>
 </a>
 </g>
 </g>
 <!-- type~rmvs_tp&#45;&gt;type~rmvs_cb -->
 <g id="type~~rmvs_interp~~InheritedByGraph_edge3" class="edge">
 <title>type~rmvs_tp&#45;&gt;type~rmvs_cb</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.87,-54C283.11,-54 245.7,-54 218.1,-54"/>
-<polygon fill="#000000" stroke="#000000" points="218.04,-50.5 208.04,-54 218.04,-57.5 218.04,-50.5"/>
-<text text-anchor="middle" x="258" y="-56.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb_heliocentric</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M307.87,-12C283.11,-12 245.7,-12 218.1,-12"/>
+<polygon fill="#000000" stroke="#000000" points="218.04,-8.5 208.04,-12 218.04,-15.5 218.04,-8.5"/>
+<text text-anchor="middle" x="258" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb_heliocentric</text>
 </g>
 </g>
 </svg>
diff --git a/docs/type/rmvs_nbody_system.html b/docs/type/rmvs_nbody_system.html
index 53582c699..059dbe0e6 100644
--- a/docs/type/rmvs_nbody_system.html
+++ b/docs/type/rmvs_nbody_system.html
@@ -189,6 +189,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-tp_discards">tp_discards</a>
       
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-pl_discards">pl_discards</a>
+      
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-gmtot">Gmtot</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-ke_orbit">ke_orbit</a>
@@ -265,6 +267,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-get_energy_and_momentum">get_energy_and_momentum</a>
       
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-rescale">rescale</a>
+      
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-validate_ids">validate_ids</a>
+      
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-initialize">initialize</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-step">step</a>
@@ -297,141 +303,141 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~rmvs_nbody_system~~InheritsGraph Pages: 1 -->
-<svg id="typermvs_nbody_systemInheritsGraph" width="641pt" height="91pt"
- viewBox="0.00 0.00 641.00 90.77" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~rmvs_nbody_system~~InheritsGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 120.61)">
+<svg id="typermvs_nbody_systemInheritsGraph" width="641pt" height="90pt"
+ viewBox="0.00 0.00 641.00 90.32" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~rmvs_nbody_system~~InheritsGraph" class="graph" transform="scale(0.73 0.73) rotate(0) translate(4 120)">
 <title>type~~rmvs_nbody_system~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-120.61 876,-120.61 876,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-120 876,-120 876,4 -4,4"/>
 <!-- type~rmvs_nbody_system -->
 <g id="type~~rmvs_nbody_system~~InheritsGraph_node1" class="node">
 <title>type~rmvs_nbody_system</title>
-<polygon fill="none" stroke="black" points="872,-79.61 761,-79.61 761,-55.61 872,-55.61 872,-79.61"/>
-<text text-anchor="middle" x="816.5" y="-65.21" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_nbody_system</text>
+<polygon fill="none" stroke="black" points="872,-64 761,-64 761,-40 872,-40 872,-64"/>
+<text text-anchor="middle" x="816.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_nbody_system</text>
 </g>
 <!-- type~whm_nbody_system -->
 <g id="type~~rmvs_nbody_system~~InheritsGraph_node2" class="node">
 <title>type~whm_nbody_system</title>
 <g id="a_type~~rmvs_nbody_system~~InheritsGraph_node2"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="724,-79.61 614,-79.61 614,-55.61 724,-55.61 724,-79.61"/>
-<text text-anchor="middle" x="669" y="-65.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="724,-64 614,-64 614,-40 724,-40 724,-64"/>
+<text text-anchor="middle" x="669" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
 <g id="type~~rmvs_nbody_system~~InheritsGraph_edge1" class="edge">
 <title>type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system</title>
-<path fill="none" stroke="#000000" d="M760.91,-67.61C752.33,-67.61 743.39,-67.61 734.61,-67.61"/>
-<polygon fill="#000000" stroke="#000000" points="734.41,-64.11 724.41,-67.61 734.41,-71.11 734.41,-64.11"/>
+<path fill="none" stroke="#000000" d="M760.91,-52C752.33,-52 743.39,-52 734.61,-52"/>
+<polygon fill="#000000" stroke="#000000" points="734.41,-48.5 724.41,-52 734.41,-55.5 734.41,-48.5"/>
 </g>
 <!-- type~swiftest_nbody_system -->
 <g id="type~~rmvs_nbody_system~~InheritsGraph_node3" class="node">
 <title>type~swiftest_nbody_system</title>
 <g id="a_type~~rmvs_nbody_system~~InheritsGraph_node3"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="577,-79.61 454,-79.61 454,-55.61 577,-55.61 577,-79.61"/>
-<text text-anchor="middle" x="515.5" y="-65.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_nbody_system</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="577,-64 454,-64 454,-40 577,-40 577,-64"/>
+<text text-anchor="middle" x="515.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system -->
 <g id="type~~rmvs_nbody_system~~InheritsGraph_edge2" class="edge">
 <title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
-<path fill="none" stroke="#000000" d="M613.73,-67.61C605.1,-67.61 596.05,-67.61 587.11,-67.61"/>
-<polygon fill="#000000" stroke="#000000" points="587.07,-64.11 577.07,-67.61 587.07,-71.11 587.07,-64.11"/>
+<path fill="none" stroke="#000000" d="M613.73,-52C605.1,-52 596.05,-52 587.11,-52"/>
+<polygon fill="#000000" stroke="#000000" points="587.07,-48.5 577.07,-52 587.07,-55.5 587.07,-48.5"/>
 </g>
-<!-- type~swiftest_cb -->
+<!-- type~swiftest_tp -->
 <g id="type~~rmvs_nbody_system~~InheritsGraph_node4" class="node">
-<title>type~swiftest_cb</title>
-<g id="a_type~~rmvs_nbody_system~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="274,-113.61 209,-113.61 209,-89.61 274,-89.61 274,-113.61"/>
-<text text-anchor="middle" x="241.5" y="-99.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
+<title>type~swiftest_tp</title>
+<g id="a_type~~rmvs_nbody_system~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="355,-43 292,-43 292,-19 355,-19 355,-43"/>
+<text text-anchor="middle" x="323.5" y="-28.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
-<g id="type~~rmvs_nbody_system~~InheritsGraph_edge3" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.55,-79.64C469.25,-84.83 451.94,-90.62 436,-94.61 373.66,-110.21 356.14,-111.48 292,-107.61 289.47,-107.46 286.87,-107.26 284.24,-107.03"/>
-<polygon fill="#000000" stroke="#000000" points="284.44,-103.53 274.14,-106.02 283.74,-110.5 284.44,-103.53"/>
-<text text-anchor="middle" x="404.5" y="-109.01" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_tp -->
+<g id="type~~rmvs_nbody_system~~InheritsGraph_edge5" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.86,-45.3C424.94,-42.1 391.11,-38.36 365.3,-35.51"/>
+<polygon fill="#000000" stroke="#000000" points="365.44,-32 355.12,-34.38 364.67,-38.96 365.44,-32"/>
+<text text-anchor="middle" x="404.5" y="-44.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </g>
-<!-- type~swiftest_tp -->
+<!-- type~swiftest_base -->
 <g id="type~~rmvs_nbody_system~~InheritsGraph_node5" class="node">
-<title>type~swiftest_tp</title>
-<g id="a_type~~rmvs_nbody_system~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="355,-98.61 292,-98.61 292,-74.61 355,-74.61 355,-98.61"/>
-<text text-anchor="middle" x="323.5" y="-84.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
+<title>type~swiftest_base</title>
+<g id="a_type~~rmvs_nbody_system~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-85 0,-85 0,-61 77,-61 77,-85"/>
+<text text-anchor="middle" x="38.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_tp -->
-<g id="type~~rmvs_nbody_system~~InheritsGraph_edge5" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.86,-73.67C424.94,-76.57 391.11,-79.95 365.3,-82.53"/>
-<polygon fill="#000000" stroke="#000000" points="364.72,-79.07 355.12,-83.55 365.42,-86.04 364.72,-79.07"/>
-<text text-anchor="middle" x="404.5" y="-83.01" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_base -->
+<g id="type~~rmvs_nbody_system~~InheritsGraph_edge6" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M485.85,-64.11C471.17,-69.93 452.86,-76.58 436,-81 400.73,-90.25 391.35,-91.1 355,-94 248.23,-102.51 211.31,-138.76 114,-94 102.83,-88.86 108.29,-73.11 96,-73"/>
 </g>
 <!-- type~swiftest_pl -->
 <g id="type~~rmvs_nbody_system~~InheritsGraph_node6" class="node">
 <title>type~swiftest_pl</title>
 <g id="a_type~~rmvs_nbody_system~~InheritsGraph_node6"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="354.5,-56.61 292.5,-56.61 292.5,-32.61 354.5,-32.61 354.5,-56.61"/>
-<text text-anchor="middle" x="323.5" y="-42.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="354.5,-85 292.5,-85 292.5,-61 354.5,-61 354.5,-85"/>
+<text text-anchor="middle" x="323.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_pl -->
 <g id="type~~rmvs_nbody_system~~InheritsGraph_edge4" class="edge">
 <title>type~swiftest_nbody_system&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.86,-60.27C424.75,-56.75 390.66,-52.62 364.79,-49.49"/>
-<polygon fill="#000000" stroke="#000000" points="364.94,-45.98 354.59,-48.25 364.1,-52.93 364.94,-45.98"/>
-<text text-anchor="middle" x="404.5" y="-59.01" font-family="Helvetica,sans-Serif" font-size="9.50">pl</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.86,-58.7C424.75,-61.92 390.66,-65.69 364.79,-68.55"/>
+<polygon fill="#000000" stroke="#000000" points="364.15,-65.1 354.59,-69.67 364.92,-72.05 364.15,-65.1"/>
+<text text-anchor="middle" x="404.5" y="-69.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </g>
-<!-- type~swiftest_base -->
+<!-- type~swiftest_cb -->
 <g id="type~~rmvs_nbody_system~~InheritsGraph_node7" class="node">
-<title>type~swiftest_base</title>
-<g id="a_type~~rmvs_nbody_system~~InheritsGraph_node7"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-56.61 0,-56.61 0,-32.61 77,-32.61 77,-56.61"/>
-<text text-anchor="middle" x="38.5" y="-42.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
+<title>type~swiftest_cb</title>
+<g id="a_type~~rmvs_nbody_system~~InheritsGraph_node7"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="274,-24 209,-24 209,0 274,0 274,-24"/>
+<text text-anchor="middle" x="241.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_base -->
-<g id="type~~rmvs_nbody_system~~InheritsGraph_edge6" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M95,-44.61C92.47,-44.65 89.88,-44.68 87.26,-44.7"/>
-<polygon fill="#000000" stroke="#000000" points="87.1,-41.2 77.12,-44.76 87.14,-48.2 87.1,-41.2"/>
-<path fill="none" stroke="#000000" d="M481.13,-55.57C449.24,-44.74 399.55,-29.64 355,-23.61 248.86,-9.24 211.31,21.15 114,-23.61 102.83,-28.75 108.29,-44.43 96,-44.61"/>
-</g>
-<!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
-<g id="type~~rmvs_nbody_system~~InheritsGraph_edge7" class="edge">
-<title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M208.77,-97.8C181.83,-93.39 143.03,-84.21 114,-65.61 103.65,-58.98 108.29,-44.61 96,-44.61"/>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
+<g id="type~~rmvs_nbody_system~~InheritsGraph_edge3" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.37,-39.95C472.47,-33.76 453.5,-26.58 436,-22 373.87,-5.73 356.21,-8.7 292,-10 289.48,-10.05 286.89,-10.12 284.27,-10.19"/>
+<polygon fill="#000000" stroke="#000000" points="284.06,-6.7 274.18,-10.53 284.29,-13.69 284.06,-6.7"/>
+<text text-anchor="middle" x="404.5" y="-24.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
 </g>
 <!-- type~swiftest_body -->
 <g id="type~~rmvs_nbody_system~~InheritsGraph_node8" class="node">
 <title>type~swiftest_body</title>
 <g id="a_type~~rmvs_nbody_system~~InheritsGraph_node8"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-56.61 114,-56.61 114,-32.61 191,-32.61 191,-56.61"/>
-<text text-anchor="middle" x="152.5" y="-42.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-85 114,-85 114,-61 191,-61 191,-85"/>
+<text text-anchor="middle" x="152.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_tp&#45;&gt;type~swiftest_body -->
-<g id="type~~rmvs_nbody_system~~InheritsGraph_edge8" class="edge">
+<g id="type~~rmvs_nbody_system~~InheritsGraph_edge7" class="edge">
 <title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M291.99,-78.12C277.18,-74.42 259.05,-70.5 242.5,-68.61"/>
+<path fill="none" stroke="#000000" d="M303.16,-43.19C283.79,-55.01 255.11,-71.41 242.5,-73"/>
+<path fill="none" stroke="#000000" d="M240.5,-73C227.97,-74.58 214.35,-75.13 201.68,-75.15"/>
+<polygon fill="#000000" stroke="#000000" points="201.34,-71.64 191.31,-75.05 201.28,-78.64 201.34,-71.64"/>
 </g>
 <!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
-<g id="type~~rmvs_nbody_system~~InheritsGraph_edge9" class="edge">
+<g id="type~~rmvs_nbody_system~~InheritsGraph_edge8" class="edge">
 <title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M299.85,-56.65C284.08,-63.72 262.38,-70.88 242.5,-68.61"/>
-<path fill="none" stroke="#000000" d="M240.5,-68.61C226.22,-66.98 211,-63.44 197.35,-59.56"/>
-<polygon fill="#000000" stroke="#000000" points="198.31,-56.2 187.73,-56.71 196.32,-62.91 198.31,-56.2"/>
+<path fill="none" stroke="#000000" d="M292.38,-71.22C277.34,-70.79 258.9,-70.93 242.5,-73"/>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
+<g id="type~~rmvs_nbody_system~~InheritsGraph_edge9" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M208.76,-16.99C181.81,-22.35 143.01,-32.82 114,-52 103.75,-58.78 108.29,-73 96,-73"/>
+<path fill="none" stroke="#000000" d="M95,-73C92.47,-72.98 89.88,-72.96 87.26,-72.95"/>
+<polygon fill="#000000" stroke="#000000" points="87.13,-69.45 77.12,-72.91 87.1,-76.45 87.13,-69.45"/>
 </g>
 <!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
 <g id="type~~rmvs_nbody_system~~InheritsGraph_edge10" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M113.88,-44.61C107.9,-44.61 101.78,-44.61 96,-44.61"/>
+<path fill="none" stroke="#000000" d="M113.88,-73C107.9,-73 101.78,-73 96,-73"/>
 </g>
 </g>
 </svg>
@@ -576,6 +582,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-tp_discards">tp_discards</a>
       
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-pl_discards">pl_discards</a>
+      
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-gmtot">Gmtot</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#variable-ke_orbit">ke_orbit</a>
@@ -652,6 +660,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-get_energy_and_momentum">get_energy_and_momentum</a>
       
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-rescale">rescale</a>
+      
+      <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-validate_ids">validate_ids</a>
+      
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-initialize">initialize</a>
       
       <a class="list-group-item" href="../type/rmvs_nbody_system.html#boundprocedure-step">step</a>
@@ -754,6 +766,20 @@ <h2>Components</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-pl_discards"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  
+  <td>public,</td>
+  <td>allocatable</td><td>::</td>
+  <td><strong>pl_discards</strong></td><td></td><td></td><td><p>Discarded massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-gmtot"></span>real(kind=DP),</td>
@@ -1219,7 +1245,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_system(self, param, msg)
+public module subroutine io_dump_system(self, param)
     
     
    
@@ -1271,21 +1297,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -1928,6 +1939,237 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-rescale"></span><h3>procedure, public :: <strong>rescale</strong>  => <a href='../interface/util_rescale_system.html'>util_rescale_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Rescales the system into a new set of units</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_rescale_system(self, param, mscale, dscale, tscale)
+    
+    
+   
+   <a href='../proc/util_rescale_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters. Returns with new values of the scale vactors and GU</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>mscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>tscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-validate_ids"></span><h3>procedure, public :: <strong>validate_ids</strong>  => <a href='../interface/util_valid_id_system.html'>util_valid_id_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Validate the numerical ids passed to the system and save the maximum value</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_valid_id_system(self, param)
+    
+    
+   
+   <a href='../proc/util_valid_id_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
       </li>
     
   </ul>
diff --git a/docs/type/rmvs_pl.html b/docs/type/rmvs_pl.html
index 67e3d2655..95cafa6d0 100644
--- a/docs/type/rmvs_pl.html
+++ b/docs/type/rmvs_pl.html
@@ -407,78 +407,63 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~rmvs_pl~~InheritsGraph Pages: 1 -->
-<svg id="typermvs_plInheritsGraph" width="641pt" height="91pt"
- viewBox="0.00 0.00 641.00 90.56" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~rmvs_pl~~InheritsGraph" class="graph" transform="scale(0.59 0.59) rotate(0) translate(4 149)">
+<svg id="typermvs_plInheritsGraph" width="641pt" height="114pt"
+ viewBox="0.00 0.00 641.00 113.64" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~rmvs_pl~~InheritsGraph" class="graph" transform="scale(0.59 0.59) rotate(0) translate(4 188)">
 <title>type~~rmvs_pl~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-149 1079,-149 1079,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-188 1079,-188 1079,4 -4,4"/>
 <!-- type~rmvs_pl -->
 <g id="type~~rmvs_pl~~InheritsGraph_node1" class="node">
 <title>type~rmvs_pl</title>
-<polygon fill="none" stroke="black" points="1075,-105 1021,-105 1021,-81 1075,-81 1075,-105"/>
-<text text-anchor="middle" x="1048" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_pl</text>
+<polygon fill="none" stroke="black" points="1075,-144 1021,-144 1021,-120 1075,-120 1075,-144"/>
+<text text-anchor="middle" x="1048" y="-129.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_pl</text>
 </g>
-<!-- type~rmvs_nbody_system -->
+<!-- type~rmvs_interp -->
 <g id="type~~rmvs_pl~~InheritsGraph_node2" class="node">
-<title>type~rmvs_nbody_system</title>
-<g id="a_type~~rmvs_pl~~InheritsGraph_node2"><a xlink:href=".././type/rmvs_nbody_system.html" xlink:title="rmvs_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="925,-105 814,-105 814,-81 925,-81 925,-105"/>
-<text text-anchor="middle" x="869.5" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_nbody_system</text>
+<title>type~rmvs_interp</title>
+<g id="a_type~~rmvs_pl~~InheritsGraph_node2"><a xlink:href=".././type/rmvs_interp.html" xlink:title="rmvs_interp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="904,-184 835,-184 835,-160 904,-160 904,-184"/>
+<text text-anchor="middle" x="869.5" y="-169.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_pl&#45;&gt;type~rmvs_nbody_system -->
-<g id="type~~rmvs_pl~~InheritsGraph_edge2" class="edge">
-<title>type~rmvs_pl&#45;&gt;type~rmvs_nbody_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1020.96,-93C998.48,-93 965.06,-93 935.42,-93"/>
-<polygon fill="#000000" stroke="#000000" points="935.11,-89.5 925.11,-93 935.11,-96.5 935.11,-89.5"/>
-<text text-anchor="middle" x="973" y="-95.4" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
+<!-- type~rmvs_pl&#45;&gt;type~rmvs_interp -->
+<g id="type~~rmvs_pl~~InheritsGraph_edge1" class="edge">
+<title>type~rmvs_pl&#45;&gt;type~rmvs_interp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1020.62,-140.93C1014.85,-142.74 1008.75,-144.53 1003,-146 973.63,-153.53 940.12,-160.09 914.15,-164.73"/>
+<polygon fill="#000000" stroke="#000000" points="913.47,-161.3 904.23,-166.48 914.68,-168.19 913.47,-161.3"/>
+<text text-anchor="middle" x="973" y="-160.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
 </g>
 <!-- type~whm_pl -->
 <g id="type~~rmvs_pl~~InheritsGraph_node3" class="node">
 <title>type~whm_pl</title>
 <g id="a_type~~rmvs_pl~~InheritsGraph_node3"><a xlink:href=".././type/whm_pl.html" xlink:title="whm_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="796,-145 742,-145 742,-121 796,-121 796,-145"/>
-<text text-anchor="middle" x="769" y="-130.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_pl</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="796,-146 742,-146 742,-122 796,-122 796,-146"/>
+<text text-anchor="middle" x="769" y="-131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_pl</text>
 </a>
 </g>
 </g>
 <!-- type~rmvs_pl&#45;&gt;type~whm_pl -->
 <g id="type~~rmvs_pl~~InheritsGraph_edge3" class="edge">
 <title>type~rmvs_pl&#45;&gt;type~whm_pl</title>
-<path fill="none" stroke="#000000" d="M1020.7,-102.3C1014.93,-104.08 1008.8,-105.77 1003,-107 934.3,-121.61 852.35,-128.34 806.23,-131.17"/>
-<polygon fill="#000000" stroke="#000000" points="805.9,-127.68 796.13,-131.76 806.31,-134.67 805.9,-127.68"/>
+<path fill="none" stroke="#000000" d="M1020.94,-132.19C971.34,-132.55 863.27,-133.33 806.5,-133.74"/>
+<polygon fill="#000000" stroke="#000000" points="806.17,-130.24 796.19,-133.81 806.22,-137.24 806.17,-130.24"/>
 </g>
-<!-- type~rmvs_interp -->
+<!-- type~rmvs_nbody_system -->
 <g id="type~~rmvs_pl~~InheritsGraph_node4" class="node">
-<title>type~rmvs_interp</title>
-<g id="a_type~~rmvs_pl~~InheritsGraph_node4"><a xlink:href=".././type/rmvs_interp.html" xlink:title="rmvs_interp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="904,-63 835,-63 835,-39 904,-39 904,-63"/>
-<text text-anchor="middle" x="869.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp</text>
-</a>
-</g>
-</g>
-<!-- type~rmvs_pl&#45;&gt;type~rmvs_interp -->
-<g id="type~~rmvs_pl~~InheritsGraph_edge1" class="edge">
-<title>type~rmvs_pl&#45;&gt;type~rmvs_interp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1020.6,-84.13C1014.83,-82.32 1008.74,-80.51 1003,-79 973.6,-71.24 940.09,-64.17 914.12,-59.08"/>
-<polygon fill="#000000" stroke="#000000" points="914.69,-55.62 904.21,-57.16 913.36,-62.5 914.69,-55.62"/>
-<text text-anchor="middle" x="973" y="-81.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
-</g>
-<!-- type~whm_nbody_system -->
-<g id="type~~rmvs_pl~~InheritsGraph_node5" class="node">
-<title>type~whm_nbody_system</title>
-<g id="a_type~~rmvs_pl~~InheritsGraph_node5"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="724,-103 614,-103 614,-79 724,-79 724,-103"/>
-<text text-anchor="middle" x="669" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
+<title>type~rmvs_nbody_system</title>
+<g id="a_type~~rmvs_pl~~InheritsGraph_node4"><a xlink:href=".././type/rmvs_nbody_system.html" xlink:title="rmvs_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="925,-103 814,-103 814,-79 925,-79 925,-103"/>
+<text text-anchor="middle" x="869.5" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_nbody_system</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
-<g id="type~~rmvs_pl~~InheritsGraph_edge4" class="edge">
-<title>type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system</title>
-<path fill="none" stroke="#000000" d="M814,-92.45C789.27,-92.2 759.87,-91.91 734.09,-91.65"/>
-<polygon fill="#000000" stroke="#000000" points="734.07,-88.15 724.04,-91.54 734,-95.15 734.07,-88.15"/>
+<!-- type~rmvs_pl&#45;&gt;type~rmvs_nbody_system -->
+<g id="type~~rmvs_pl~~InheritsGraph_edge2" class="edge">
+<title>type~rmvs_pl&#45;&gt;type~rmvs_nbody_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1028.42,-119.87C1020.83,-115.45 1011.77,-110.84 1003,-108 981.48,-101.02 957.12,-96.9 935.21,-94.46"/>
+<polygon fill="#000000" stroke="#000000" points="935.31,-90.95 925.01,-93.42 934.6,-97.91 935.31,-90.95"/>
+<text text-anchor="middle" x="973" y="-110.4" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
 </g>
 <!-- type~swiftest_pl -->
 <g id="type~~rmvs_pl~~InheritsGraph_node6" class="node">
@@ -490,10 +475,25 @@ <h3 class="panel-title">Inherits</h3>
 </g>
 </g>
 <!-- type~whm_pl&#45;&gt;type~swiftest_pl -->
-<g id="type~~rmvs_pl~~InheritsGraph_edge5" class="edge">
+<g id="type~~rmvs_pl~~InheritsGraph_edge4" class="edge">
 <title>type~whm_pl&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" d="M741.91,-132.59C667.52,-131.41 453.97,-128.04 364.59,-126.63"/>
-<polygon fill="#000000" stroke="#000000" points="364.63,-123.13 354.58,-126.47 364.52,-130.13 364.63,-123.13"/>
+<path fill="none" stroke="#000000" d="M741.91,-133.53C667.52,-132.19 453.97,-128.34 364.59,-126.72"/>
+<polygon fill="#000000" stroke="#000000" points="364.64,-123.22 354.58,-126.54 364.51,-130.22 364.64,-123.22"/>
+</g>
+<!-- type~whm_nbody_system -->
+<g id="type~~rmvs_pl~~InheritsGraph_node5" class="node">
+<title>type~whm_nbody_system</title>
+<g id="a_type~~rmvs_pl~~InheritsGraph_node5"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="724,-103 614,-103 614,-79 724,-79 724,-103"/>
+<text text-anchor="middle" x="669" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
+</a>
+</g>
+</g>
+<!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
+<g id="type~~rmvs_pl~~InheritsGraph_edge5" class="edge">
+<title>type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system</title>
+<path fill="none" stroke="#000000" d="M814,-91C789.27,-91 759.87,-91 734.09,-91"/>
+<polygon fill="#000000" stroke="#000000" points="734.04,-87.5 724.04,-91 734.04,-94.5 734.04,-87.5"/>
 </g>
 <!-- type~swiftest_nbody_system -->
 <g id="type~~rmvs_pl~~InheritsGraph_node8" class="node">
@@ -525,9 +525,9 @@ <h3 class="panel-title">Inherits</h3>
 <path fill="none" stroke="#000000" d="M292.49,-115.98C277.64,-111.57 259.33,-106.96 242.5,-105"/>
 </g>
 <!-- type~swiftest_base -->
-<g id="type~~rmvs_pl~~InheritsGraph_node11" class="node">
+<g id="type~~rmvs_pl~~InheritsGraph_node10" class="node">
 <title>type~swiftest_base</title>
-<g id="a_type~~rmvs_pl~~InheritsGraph_node11"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
+<g id="a_type~~rmvs_pl~~InheritsGraph_node10"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="77,-56 0,-56 0,-32 77,-32 77,-56"/>
 <text text-anchor="middle" x="38.5" y="-41.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
 </a>
@@ -543,28 +543,12 @@ <h3 class="panel-title">Inherits</h3>
 <title>type~swiftest_nbody_system&#45;&gt;type~swiftest_pl</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M460.88,-89.03C434.33,-95.2 401.87,-103.08 373,-111 370.21,-111.77 367.34,-112.58 364.45,-113.42"/>
 <polygon fill="#000000" stroke="#000000" points="363.26,-110.12 354.68,-116.34 365.27,-116.83 363.26,-110.12"/>
-<text text-anchor="middle" x="404.5" y="-113.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl</text>
-</g>
-<!-- type~swiftest_cb -->
-<g id="type~~rmvs_pl~~InheritsGraph_node9" class="node">
-<title>type~swiftest_cb</title>
-<g id="a_type~~rmvs_pl~~InheritsGraph_node9"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="274,-24 209,-24 209,0 274,0 274,-24"/>
-<text text-anchor="middle" x="241.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
-</a>
-</g>
-</g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
-<g id="type~~rmvs_pl~~InheritsGraph_edge9" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M502.52,-64.72C488.18,-50.94 462.73,-29.29 436,-20 386,-2.61 324.32,-3.59 284.23,-6.91"/>
-<polygon fill="#000000" stroke="#000000" points="283.67,-3.45 274.03,-7.85 284.31,-10.42 283.67,-3.45"/>
-<text text-anchor="middle" x="404.5" y="-22.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
+<text text-anchor="middle" x="404.5" y="-113.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </g>
 <!-- type~swiftest_tp -->
-<g id="type~~rmvs_pl~~InheritsGraph_node10" class="node">
+<g id="type~~rmvs_pl~~InheritsGraph_node9" class="node">
 <title>type~swiftest_tp</title>
-<g id="a_type~~rmvs_pl~~InheritsGraph_node10"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
+<g id="a_type~~rmvs_pl~~InheritsGraph_node9"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="355,-96 292,-96 292,-72 355,-72 355,-96"/>
 <text text-anchor="middle" x="323.5" y="-81.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
 </a>
@@ -582,20 +566,36 @@ <h3 class="panel-title">Inherits</h3>
 <title>type~swiftest_nbody_system&#45;&gt;type~swiftest_base</title>
 <path fill="none" stroke="#000000" d="M455.1,-65C383.56,-52.06 259.75,-34.53 153.5,-44"/>
 </g>
-<!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
-<g id="type~~rmvs_pl~~InheritsGraph_edge13" class="edge">
-<title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M151.5,-44C126.93,-46.19 120.32,-48.14 96,-44"/>
-<path fill="none" stroke="#000000" d="M95,-44C92.51,-43.58 89.94,-43.24 87.34,-42.97"/>
-<polygon fill="#000000" stroke="#000000" points="87.47,-39.47 77.26,-42.29 87,-46.46 87.47,-39.47"/>
-<path fill="none" stroke="#000000" d="M218.01,-24.01C200.88,-32.21 176.42,-41.96 153.5,-44"/>
+<!-- type~swiftest_cb -->
+<g id="type~~rmvs_pl~~InheritsGraph_node11" class="node">
+<title>type~swiftest_cb</title>
+<g id="a_type~~rmvs_pl~~InheritsGraph_node11"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="274,-24 209,-24 209,0 274,0 274,-24"/>
+<text text-anchor="middle" x="241.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
+</a>
+</g>
+</g>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
+<g id="type~~rmvs_pl~~InheritsGraph_edge9" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M502.52,-64.72C488.18,-50.94 462.73,-29.29 436,-20 386,-2.61 324.32,-3.59 284.23,-6.91"/>
+<polygon fill="#000000" stroke="#000000" points="283.67,-3.45 274.03,-7.85 284.31,-10.42 283.67,-3.45"/>
+<text text-anchor="middle" x="404.5" y="-22.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
 </g>
 <!-- type~swiftest_tp&#45;&gt;type~swiftest_body -->
-<g id="type~~rmvs_pl~~InheritsGraph_edge14" class="edge">
+<g id="type~~rmvs_pl~~InheritsGraph_edge13" class="edge">
 <title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
+<path fill="none" stroke="#000000" d="M296.19,-96.09C280.76,-101.87 260.76,-107.12 242.5,-105"/>
 <path fill="none" stroke="#000000" d="M240.5,-105C227.59,-103.5 213.83,-100.74 201.15,-97.7"/>
 <polygon fill="#000000" stroke="#000000" points="201.8,-94.25 191.25,-95.22 200.11,-101.04 201.8,-94.25"/>
-<path fill="none" stroke="#000000" d="M296.19,-96.09C280.76,-101.87 260.76,-107.12 242.5,-105"/>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
+<g id="type~~rmvs_pl~~InheritsGraph_edge14" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M95,-44C92.51,-43.58 89.94,-43.24 87.34,-42.97"/>
+<polygon fill="#000000" stroke="#000000" points="87.47,-39.47 77.26,-42.29 87,-46.46 87.47,-39.47"/>
+<path fill="none" stroke="#000000" d="M218.01,-24.01C200.88,-32.21 176.42,-41.96 153.5,-44"/>
+<path fill="none" stroke="#000000" d="M151.5,-44C126.93,-46.19 120.32,-48.14 96,-44"/>
 </g>
 </g>
 </svg>
@@ -1630,7 +1630,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -1682,21 +1682,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -4814,7 +4799,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/type/rmvs_tp.html b/docs/type/rmvs_tp.html
index be22ac2b0..d418bc818 100644
--- a/docs/type/rmvs_tp.html
+++ b/docs/type/rmvs_tp.html
@@ -374,13 +374,28 @@ <h3 class="panel-title">Inherits</h3>
 <!-- type~rmvs_tp -->
 <g id="type~~rmvs_tp~~InheritsGraph_node1" class="node">
 <title>type~rmvs_tp</title>
-<polygon fill="none" stroke="black" points="590,-44 536,-44 536,-20 590,-20 590,-44"/>
-<text text-anchor="middle" x="563" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_tp</text>
+<polygon fill="none" stroke="black" points="590,-86 536,-86 536,-62 590,-62 590,-86"/>
+<text text-anchor="middle" x="563" y="-71.6" font-family="Helvetica,sans-Serif" font-size="10.50">rmvs_tp</text>
 </g>
-<!-- type~rmvs_cb -->
+<!-- type~whm_tp -->
 <g id="type~~rmvs_tp~~InheritsGraph_node2" class="node">
+<title>type~whm_tp</title>
+<g id="a_type~~rmvs_tp~~InheritsGraph_node2"><a xlink:href=".././type/whm_tp.html" xlink:title="whm_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="436,-108 382,-108 382,-84 436,-84 436,-108"/>
+<text text-anchor="middle" x="409" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_tp</text>
+</a>
+</g>
+</g>
+<!-- type~rmvs_tp&#45;&gt;type~whm_tp -->
+<g id="type~~rmvs_tp~~InheritsGraph_edge2" class="edge">
+<title>type~rmvs_tp&#45;&gt;type~whm_tp</title>
+<path fill="none" stroke="#000000" d="M535.87,-77.78C511.11,-81.37 473.7,-86.78 446.1,-90.78"/>
+<polygon fill="#000000" stroke="#000000" points="445.44,-87.33 436.04,-92.23 446.44,-94.26 445.44,-87.33"/>
+</g>
+<!-- type~rmvs_cb -->
+<g id="type~~rmvs_tp~~InheritsGraph_node3" class="node">
 <title>type~rmvs_cb</title>
-<g id="a_type~~rmvs_tp~~InheritsGraph_node2"><a xlink:href=".././type/rmvs_cb.html" xlink:title="rmvs_cb">
+<g id="a_type~~rmvs_tp~~InheritsGraph_node3"><a xlink:href=".././type/rmvs_cb.html" xlink:title="rmvs_cb">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="436,-66 382,-66 382,-42 436,-42 436,-66"/>
 <text text-anchor="middle" x="409" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_cb</text>
 </a>
@@ -389,100 +404,85 @@ <h3 class="panel-title">Inherits</h3>
 <!-- type~rmvs_tp&#45;&gt;type~rmvs_cb -->
 <g id="type~~rmvs_tp~~InheritsGraph_edge1" class="edge">
 <title>type~rmvs_tp&#45;&gt;type~rmvs_cb</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M535.87,-35.78C511.11,-39.37 473.7,-44.78 446.1,-48.78"/>
-<polygon fill="#000000" stroke="#000000" points="445.44,-45.33 436.04,-50.23 446.44,-52.26 445.44,-45.33"/>
-<text text-anchor="middle" x="486" y="-49.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb_heliocentric</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M535.97,-69.69C530.07,-68.76 523.82,-67.81 518,-67 494.16,-63.67 467.28,-60.43 446.31,-58.02"/>
+<polygon fill="#000000" stroke="#000000" points="446.56,-54.53 436.22,-56.87 445.76,-61.48 446.56,-54.53"/>
+<text text-anchor="middle" x="486" y="-69.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb_heliocentric</text>
 </g>
-<!-- type~whm_tp -->
-<g id="type~~rmvs_tp~~InheritsGraph_node3" class="node">
-<title>type~whm_tp</title>
-<g id="a_type~~rmvs_tp~~InheritsGraph_node3"><a xlink:href=".././type/whm_tp.html" xlink:title="whm_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="436,-24 382,-24 382,0 436,0 436,-24"/>
-<text text-anchor="middle" x="409" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_tp</text>
-</a>
-</g>
-</g>
-<!-- type~rmvs_tp&#45;&gt;type~whm_tp -->
-<g id="type~~rmvs_tp~~InheritsGraph_edge2" class="edge">
-<title>type~rmvs_tp&#45;&gt;type~whm_tp</title>
-<path fill="none" stroke="#000000" d="M535.87,-28.56C511.11,-25.3 473.7,-20.38 446.1,-16.75"/>
-<polygon fill="#000000" stroke="#000000" points="446.41,-13.26 436.04,-15.43 445.5,-20.2 446.41,-13.26"/>
-</g>
-<!-- type~whm_cb -->
+<!-- type~swiftest_tp -->
 <g id="type~~rmvs_tp~~InheritsGraph_node4" class="node">
-<title>type~whm_cb</title>
-<g id="a_type~~rmvs_tp~~InheritsGraph_node4"><a xlink:href=".././type/whm_cb.html" xlink:title="whm_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="289.5,-108 235.5,-108 235.5,-84 289.5,-84 289.5,-108"/>
-<text text-anchor="middle" x="262.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_cb</text>
+<title>type~swiftest_tp</title>
+<g id="a_type~~rmvs_tp~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="294,-108 231,-108 231,-84 294,-84 294,-108"/>
+<text text-anchor="middle" x="262.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_cb&#45;&gt;type~whm_cb -->
-<g id="type~~rmvs_tp~~InheritsGraph_edge4" class="edge">
-<title>type~rmvs_cb&#45;&gt;type~whm_cb</title>
-<path fill="none" stroke="#000000" d="M381.99,-62.45C376.09,-64.32 369.84,-66.26 364,-68 342.67,-74.36 318.65,-81.07 299.45,-86.33"/>
-<polygon fill="#000000" stroke="#000000" points="298.33,-83 289.6,-89.01 300.17,-89.76 298.33,-83"/>
+<!-- type~whm_tp&#45;&gt;type~swiftest_tp -->
+<g id="type~~rmvs_tp~~InheritsGraph_edge3" class="edge">
+<title>type~whm_tp&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" d="M381.83,-96C360.27,-96 329.31,-96 304.46,-96"/>
+<polygon fill="#000000" stroke="#000000" points="304.24,-92.5 294.24,-96 304.24,-99.5 304.24,-92.5"/>
 </g>
 <!-- type~rmvs_interp -->
-<g id="type~~rmvs_tp~~InheritsGraph_node6" class="node">
+<g id="type~~rmvs_tp~~InheritsGraph_node5" class="node">
 <title>type~rmvs_interp</title>
-<g id="a_type~~rmvs_tp~~InheritsGraph_node6"><a xlink:href=".././type/rmvs_interp.html" xlink:title="rmvs_interp">
+<g id="a_type~~rmvs_tp~~InheritsGraph_node5"><a xlink:href=".././type/rmvs_interp.html" xlink:title="rmvs_interp">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="297,-66 228,-66 228,-42 297,-42 297,-66"/>
 <text text-anchor="middle" x="262.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_interp</text>
 </a>
 </g>
 </g>
 <!-- type~rmvs_cb&#45;&gt;type~rmvs_interp -->
-<g id="type~~rmvs_tp~~InheritsGraph_edge3" class="edge">
+<g id="type~~rmvs_tp~~InheritsGraph_edge4" class="edge">
 <title>type~rmvs_cb&#45;&gt;type~rmvs_interp</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M381.83,-54C361.05,-54 331.54,-54 307.19,-54"/>
 <polygon fill="#000000" stroke="#000000" points="307.11,-50.5 297.11,-54 307.11,-57.5 307.11,-50.5"/>
 <text text-anchor="middle" x="339.5" y="-56.4" font-family="Helvetica,sans-Serif" font-size="9.50">outer, inner</text>
 </g>
-<!-- type~swiftest_tp -->
-<g id="type~~rmvs_tp~~InheritsGraph_node5" class="node">
-<title>type~swiftest_tp</title>
-<g id="a_type~~rmvs_tp~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="294,-24 231,-24 231,0 294,0 294,-24"/>
-<text text-anchor="middle" x="262.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
+<!-- type~whm_cb -->
+<g id="type~~rmvs_tp~~InheritsGraph_node6" class="node">
+<title>type~whm_cb</title>
+<g id="a_type~~rmvs_tp~~InheritsGraph_node6"><a xlink:href=".././type/whm_cb.html" xlink:title="whm_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="289.5,-24 235.5,-24 235.5,0 289.5,0 289.5,-24"/>
+<text text-anchor="middle" x="262.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_cb</text>
 </a>
 </g>
 </g>
-<!-- type~whm_tp&#45;&gt;type~swiftest_tp -->
+<!-- type~rmvs_cb&#45;&gt;type~whm_cb -->
 <g id="type~~rmvs_tp~~InheritsGraph_edge5" class="edge">
-<title>type~whm_tp&#45;&gt;type~swiftest_tp</title>
-<path fill="none" stroke="#000000" d="M381.83,-12C360.27,-12 329.31,-12 304.46,-12"/>
-<polygon fill="#000000" stroke="#000000" points="304.24,-8.5 294.24,-12 304.24,-15.5 304.24,-8.5"/>
-</g>
-<!-- type~swiftest_cb -->
-<g id="type~~rmvs_tp~~InheritsGraph_node7" class="node">
-<title>type~swiftest_cb</title>
-<g id="a_type~~rmvs_tp~~InheritsGraph_node7"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="185,-102 120,-102 120,-78 185,-78 185,-102"/>
-<text text-anchor="middle" x="152.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
-</a>
-</g>
-</g>
-<!-- type~whm_cb&#45;&gt;type~swiftest_cb -->
-<g id="type~~rmvs_tp~~InheritsGraph_edge6" class="edge">
-<title>type~whm_cb&#45;&gt;type~swiftest_cb</title>
-<path fill="none" stroke="#000000" d="M235.36,-94.55C223.32,-93.88 208.74,-93.07 195.23,-92.32"/>
-<polygon fill="#000000" stroke="#000000" points="195.36,-88.82 185.18,-91.76 194.97,-95.81 195.36,-88.82"/>
+<title>type~rmvs_cb&#45;&gt;type~whm_cb</title>
+<path fill="none" stroke="#000000" d="M381.83,-46.39C358.86,-39.72 325.21,-29.94 299.66,-22.51"/>
+<polygon fill="#000000" stroke="#000000" points="300.54,-19.12 289.96,-19.69 298.59,-25.84 300.54,-19.12"/>
 </g>
 <!-- type~swiftest_body -->
 <g id="type~~rmvs_tp~~InheritsGraph_node8" class="node">
 <title>type~swiftest_body</title>
 <g id="a_type~~rmvs_tp~~InheritsGraph_node8"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-55 114,-55 114,-31 191,-31 191,-55"/>
-<text text-anchor="middle" x="152.5" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-102 114,-102 114,-78 191,-78 191,-102"/>
+<text text-anchor="middle" x="152.5" y="-87.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_tp&#45;&gt;type~swiftest_body -->
-<g id="type~~rmvs_tp~~InheritsGraph_edge7" class="edge">
+<g id="type~~rmvs_tp~~InheritsGraph_edge6" class="edge">
 <title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M230.84,-20.8C221.48,-23.49 210.97,-26.5 200.78,-29.43"/>
-<polygon fill="#000000" stroke="#000000" points="199.8,-26.07 191.15,-32.19 201.73,-32.8 199.8,-26.07"/>
+<path fill="none" stroke="#000000" d="M230.84,-94.3C221.68,-93.79 211.4,-93.22 201.41,-92.66"/>
+<polygon fill="#000000" stroke="#000000" points="201.33,-89.15 191.15,-92.09 200.95,-96.14 201.33,-89.15"/>
+</g>
+<!-- type~swiftest_cb -->
+<g id="type~~rmvs_tp~~InheritsGraph_node7" class="node">
+<title>type~swiftest_cb</title>
+<g id="a_type~~rmvs_tp~~InheritsGraph_node7"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="185,-55 120,-55 120,-31 185,-31 185,-55"/>
+<text text-anchor="middle" x="152.5" y="-40.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
+</a>
+</g>
+</g>
+<!-- type~whm_cb&#45;&gt;type~swiftest_cb -->
+<g id="type~~rmvs_tp~~InheritsGraph_edge7" class="edge">
+<title>type~whm_cb&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" d="M235.36,-19.5C223.2,-22.99 208.45,-27.23 194.84,-31.14"/>
+<polygon fill="#000000" stroke="#000000" points="193.82,-27.78 185.18,-33.91 195.76,-34.51 193.82,-27.78"/>
 </g>
 <!-- type~swiftest_base -->
 <g id="type~~rmvs_tp~~InheritsGraph_node9" class="node">
@@ -496,14 +496,14 @@ <h3 class="panel-title">Inherits</h3>
 <!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
 <g id="type~~rmvs_tp~~InheritsGraph_edge8" class="edge">
 <title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M119.89,-87.87C112.02,-87.93 103.66,-88.48 96,-90"/>
+<path fill="none" stroke="#000000" d="M132.1,-55.06C126.05,-59.18 119.53,-64.01 114,-69 104.87,-77.24 108.06,-87.61 96,-90"/>
+<path fill="none" stroke="#000000" d="M95,-90C92.48,-90.5 89.88,-90.9 87.24,-91.2"/>
+<polygon fill="#000000" stroke="#000000" points="86.72,-87.73 77.01,-91.99 87.25,-94.71 86.72,-87.73"/>
 </g>
 <!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
 <g id="type~~rmvs_tp~~InheritsGraph_edge9" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M132.1,-55.06C126.05,-59.18 119.53,-64.01 114,-69 104.87,-77.24 108.06,-87.61 96,-90"/>
-<path fill="none" stroke="#000000" d="M95,-90C92.48,-90.5 89.88,-90.9 87.24,-91.2"/>
-<polygon fill="#000000" stroke="#000000" points="86.72,-87.73 77.01,-91.99 87.25,-94.71 86.72,-87.73"/>
+<path fill="none" stroke="#000000" d="M113.99,-88.01C107.93,-88.26 101.77,-88.86 96,-90"/>
 </g>
 </g>
 </svg>
@@ -1270,7 +1270,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -1322,21 +1322,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -4055,7 +4040,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/type/swiftest_base.html b/docs/type/swiftest_base.html
index a758803e4..98a1967f5 100644
--- a/docs/type/swiftest_base.html
+++ b/docs/type/swiftest_base.html
@@ -209,11 +209,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-dump~2">dump</a>
       
-      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-initialize~7">initialize</a>
+      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-initialize~6">initialize</a>
       
-      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-read_frame~5">read_frame</a>
+      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-read_frame~4">read_frame</a>
       
-      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-write_frame~5">write_frame</a>
+      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-write_frame~4">write_frame</a>
       
     </div>
   </div>
@@ -245,408 +245,387 @@ <h3 class="panel-title">Inherited by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~swiftest_base~~InheritedByGraph Pages: 1 -->
-<svg id="typeswiftest_baseInheritedByGraph" width="641pt" height="159pt"
- viewBox="0.00 0.00 641.00 158.98" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~swiftest_base~~InheritedByGraph" class="graph" transform="scale(0.51 0.51) rotate(0) translate(4 308)">
+<svg id="typeswiftest_baseInheritedByGraph" width="641pt" height="160pt"
+ viewBox="0.00 0.00 641.00 160.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~swiftest_base~~InheritedByGraph" class="graph" transform="scale(0.56 0.56) rotate(0) translate(4 282.3)">
 <title>type~~swiftest_base~~InheritedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-308 1254,-308 1254,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-282.3 1143,-282.3 1143,4 -4,4"/>
 <!-- type~swiftest_base -->
 <g id="type~~swiftest_base~~InheritedByGraph_node1" class="node">
 <title>type~swiftest_base</title>
-<polygon fill="none" stroke="black" points="77,-212 0,-212 0,-188 77,-188 77,-212"/>
-<text text-anchor="middle" x="38.5" y="-197.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_base</text>
+<polygon fill="none" stroke="black" points="77,-150.3 0,-150.3 0,-126.3 77,-126.3 77,-150.3"/>
+<text text-anchor="middle" x="38.5" y="-135.9" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_base</text>
 </g>
-<!-- type~swiftest_cb -->
+<!-- type~swiftest_nbody_system -->
 <g id="type~~swiftest_base~~InheritedByGraph_node2" class="node">
-<title>type~swiftest_cb</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node2"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="185,-126 120,-126 120,-102 185,-102 185,-126"/>
-<text text-anchor="middle" x="152.5" y="-111.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
-</a>
-</g>
-</g>
-<!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge1" class="edge">
-<title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M133.57,-126.03C126.65,-131.44 119.17,-138.34 114,-146 99.86,-166.98 120.89,-195.46 96,-200"/>
-<path fill="none" stroke="#000000" d="M95,-200C92.51,-200.45 89.95,-200.81 87.36,-201.1"/>
-<polygon fill="#000000" stroke="#000000" points="87,-197.61 77.28,-201.82 87.51,-204.59 87,-197.61"/>
-</g>
-<!-- type~swiftest_body -->
-<g id="type~~swiftest_base~~InheritedByGraph_node3" class="node">
-<title>type~swiftest_body</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node3"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-212 114,-212 114,-188 191,-188 191,-212"/>
-<text text-anchor="middle" x="152.5" y="-197.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
+<title>type~swiftest_nbody_system</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node2"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="513,-191.3 390,-191.3 390,-167.3 513,-167.3 513,-191.3"/>
+<text text-anchor="middle" x="451.5" y="-176.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_nbody_system</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge2" class="edge">
-<title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M113.72,-198.18C107.76,-198.41 101.69,-198.96 96,-200"/>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_base -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge3" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M339.5,-180.3C230.12,-170.43 205.82,-138.3 96,-138.3"/>
+<path fill="none" stroke="#000000" d="M389.96,-180.22C374.19,-180.36 357.21,-180.43 341.5,-180.3"/>
 </g>
-<!-- type~symba_particle_info -->
+<!-- type~swiftest_cb -->
 <g id="type~~swiftest_base~~InheritedByGraph_node4" class="node">
-<title>type~symba_particle_info</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node4"><a xlink:href=".././type/symba_particle_info.html" xlink:title="symba_particle_info">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="417,-299 309,-299 309,-275 417,-275 417,-299"/>
-<text text-anchor="middle" x="363" y="-284.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_particle_info</text>
+<title>type~swiftest_cb</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node4"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="185,-190.3 120,-190.3 120,-166.3 185,-166.3 185,-190.3"/>
+<text text-anchor="middle" x="152.5" y="-175.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
 </a>
 </g>
 </g>
-<!-- type~symba_particle_info&#45;&gt;type~swiftest_base -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge3" class="edge">
-<title>type~symba_particle_info&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M308.99,-282.12C256.14,-275.23 174.35,-258.94 114,-221 103.59,-214.46 108.09,-197.8 96,-200"/>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge7" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M339.5,-180.3C282.27,-173.94 263.17,-206.4 210,-184.3"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M209,-184.3C204.62,-182.41 199.86,-181.02 195.04,-180.02"/>
+<polygon fill="#000000" stroke="#000000" points="195.59,-176.56 185.16,-178.45 194.49,-183.47 195.59,-176.56"/>
+<text text-anchor="middle" x="259.5" y="-193.7" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
 </g>
-<!-- type~swiftest_nbody_system -->
-<g id="type~~swiftest_base~~InheritedByGraph_node5" class="node">
-<title>type~swiftest_nbody_system</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node5"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="558,-121 435,-121 435,-97 558,-97 558,-121"/>
-<text text-anchor="middle" x="496.5" y="-106.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_nbody_system</text>
+<!-- type~swiftest_tp -->
+<g id="type~~swiftest_base~~InheritedByGraph_node7" class="node">
+<title>type~swiftest_tp</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node7"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="291,-110.3 228,-110.3 228,-86.3 291,-86.3 291,-110.3"/>
+<text text-anchor="middle" x="259.5" y="-95.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_base -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge4" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M362,-102C337.66,-103.06 332.38,-109.14 309,-116 221.61,-141.64 189.81,-128.53 114,-179 103.77,-185.81 108.08,-197.75 96,-200"/>
-</g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge5" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M362,-102C294.59,-106.36 270.06,-71.07 210,-102"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M434.96,-103.33C412.65,-101.89 387.18,-100.99 364,-102"/>
-<text text-anchor="middle" x="259.5" y="-95.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_tp -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge12" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413.81,-167.23C405.9,-164.44 397.63,-161.39 390,-158.3 356.65,-144.83 319.48,-127.34 293.55,-114.73"/>
+<polygon fill="#000000" stroke="#000000" points="295.05,-111.56 284.53,-110.31 291.97,-117.85 295.05,-111.56"/>
+<text text-anchor="middle" x="340.5" y="-150.7" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </g>
 <!-- type~swiftest_pl -->
-<g id="type~~swiftest_base~~InheritedByGraph_node8" class="node">
+<g id="type~~swiftest_base~~InheritedByGraph_node9" class="node">
 <title>type~swiftest_pl</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node8"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="290.5,-234 228.5,-234 228.5,-210 290.5,-210 290.5,-234"/>
-<text text-anchor="middle" x="259.5" y="-219.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node9"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="290.5,-68.3 228.5,-68.3 228.5,-44.3 290.5,-44.3 290.5,-68.3"/>
+<text text-anchor="middle" x="259.5" y="-53.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_pl -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge14" class="edge">
+<g id="type~~swiftest_base~~InheritedByGraph_edge17" class="edge">
 <title>type~swiftest_nbody_system&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.85,-121.02C447.35,-123.58 440.85,-126.57 435,-130 425.77,-135.41 425.9,-140.05 417,-146 379.68,-170.95 332.95,-192.55 300.31,-206.27"/>
-<polygon fill="#000000" stroke="#000000" points="298.55,-203.21 290.65,-210.28 301.23,-209.68 298.55,-203.21"/>
-<text text-anchor="middle" x="363" y="-203.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M401.2,-167.25C397.04,-164.8 393.2,-161.85 390,-158.3 366.73,-132.54 396.59,-106.81 372,-82.3 353.48,-63.85 324.56,-57.49 300.81,-55.68"/>
+<polygon fill="#000000" stroke="#000000" points="300.83,-52.17 290.66,-55.14 300.46,-59.16 300.83,-52.17"/>
+<text text-anchor="middle" x="340.5" y="-84.7" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </g>
-<!-- type~swiftest_tp -->
-<g id="type~~swiftest_base~~InheritedByGraph_node10" class="node">
-<title>type~swiftest_tp</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node10"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="291,-192 228,-192 228,-168 291,-168 291,-192"/>
-<text text-anchor="middle" x="259.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
+<!-- type~swiftest_body -->
+<g id="type~~swiftest_base~~InheritedByGraph_node3" class="node">
+<title>type~swiftest_body</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node3"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-110.3 114,-110.3 114,-86.3 191,-86.3 191,-110.3"/>
+<text text-anchor="middle" x="152.5" y="-95.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_tp -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge19" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M434.55,-113.66C388.8,-117.92 330.5,-125.23 309,-136 298.89,-141.07 299.31,-146.32 291,-154 288.42,-156.39 285.67,-158.84 282.91,-161.25"/>
-<polygon fill="#000000" stroke="#000000" points="280.59,-158.63 275.29,-167.8 285.15,-163.94 280.59,-158.63"/>
-<text text-anchor="middle" x="363" y="-138.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
+<!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge2" class="edge">
+<title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M95,-138.3C92.47,-138.3 89.88,-138.3 87.26,-138.3"/>
+<polygon fill="#000000" stroke="#000000" points="87.12,-134.8 77.12,-138.3 87.12,-141.8 87.12,-134.8"/>
+<path fill="none" stroke="#000000" d="M133.43,-110.54C127.22,-114.82 120.26,-119.71 114,-124.3 105.83,-130.3 106.13,-138.3 96,-138.3"/>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge1" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M133.43,-166.07C127.22,-161.79 120.26,-156.9 114,-152.3 105.83,-146.3 106.13,-138.3 96,-138.3"/>
 </g>
 <!-- type~helio_cb -->
-<g id="type~~swiftest_base~~InheritedByGraph_node6" class="node">
+<g id="type~~swiftest_base~~InheritedByGraph_node5" class="node">
 <title>type~helio_cb</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node6"><a xlink:href=".././type/helio_cb.html" xlink:title="helio_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="286.5,-24 232.5,-24 232.5,0 286.5,0 286.5,-24"/>
-<text text-anchor="middle" x="259.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_cb</text>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node5"><a xlink:href=".././type/helio_cb.html" xlink:title="helio_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="286.5,-236.3 232.5,-236.3 232.5,-212.3 286.5,-212.3 286.5,-236.3"/>
+<text text-anchor="middle" x="259.5" y="-221.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_cb</text>
 </a>
 </g>
 </g>
 <!-- type~helio_cb&#45;&gt;type~swiftest_cb -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge6" class="edge">
+<g id="type~~swiftest_base~~InheritedByGraph_edge8" class="edge">
 <title>type~helio_cb&#45;&gt;type~swiftest_cb</title>
-<path fill="none" stroke="#000000" d="M209,-102C204.63,-104.25 199.85,-106.08 195,-107.57"/>
-<polygon fill="#000000" stroke="#000000" points="193.82,-104.26 185.03,-110.16 195.58,-111.03 193.82,-104.26"/>
-<path fill="none" stroke="#000000" d="M236.75,-24.03C233.45,-26.63 230.36,-29.63 228,-33 209.81,-58.95 238.18,-87.49 210,-102"/>
+<path fill="none" stroke="#000000" d="M244.26,-212.21C230.69,-200.75 212.03,-185.15 210,-184.3"/>
 </g>
 <!-- type~whm_cb -->
-<g id="type~~swiftest_base~~InheritedByGraph_node7" class="node">
+<g id="type~~swiftest_base~~InheritedByGraph_node6" class="node">
 <title>type~whm_cb</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node7"><a xlink:href=".././type/whm_cb.html" xlink:title="whm_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="286.5,-66 232.5,-66 232.5,-42 286.5,-42 286.5,-66"/>
-<text text-anchor="middle" x="259.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_cb</text>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node6"><a xlink:href=".././type/whm_cb.html" xlink:title="whm_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="286.5,-278.3 232.5,-278.3 232.5,-254.3 286.5,-254.3 286.5,-278.3"/>
+<text text-anchor="middle" x="259.5" y="-263.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_cb</text>
 </a>
 </g>
 </g>
 <!-- type~whm_cb&#45;&gt;type~swiftest_cb -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge7" class="edge">
+<g id="type~~swiftest_base~~InheritedByGraph_edge9" class="edge">
 <title>type~whm_cb&#45;&gt;type~swiftest_cb</title>
-<path fill="none" stroke="#000000" d="M243.13,-66.18C238.13,-70.38 232.68,-75.23 228,-80 219.16,-89.02 221.23,-96.22 210,-102"/>
+<path fill="none" stroke="#000000" d="M236.84,-254.21C233.53,-251.61 230.42,-248.63 228,-245.3 211.41,-222.42 236.1,-195.15 210,-184.3"/>
 </g>
-<!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge9" class="edge">
-<title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M228.33,-216.21C222.28,-215.46 215.95,-214.95 210,-215"/>
+<!-- type~swiftest_tp&#45;&gt;type~swiftest_body -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge5" class="edge">
+<title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
+<path fill="none" stroke="#000000" d="M227.79,-96.47C221.84,-96.63 215.7,-97.16 210,-98.3"/>
 </g>
 <!-- type~whm_nbody_system -->
-<g id="type~~swiftest_base~~InheritedByGraph_node9" class="node">
+<g id="type~~swiftest_base~~InheritedByGraph_node8" class="node">
 <title>type~whm_nbody_system</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node9"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="768,-160 658,-160 658,-136 768,-136 768,-160"/>
-<text text-anchor="middle" x="713" y="-145.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node8"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="723,-191.3 613,-191.3 613,-167.3 723,-167.3 723,-191.3"/>
+<text text-anchor="middle" x="668" y="-176.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge11" class="edge">
+<g id="type~~swiftest_base~~InheritedByGraph_edge4" class="edge">
 <title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
-<path fill="none" stroke="#000000" d="M657.87,-138.16C630.67,-133.21 597.37,-127.16 568.18,-121.85"/>
-<polygon fill="#000000" stroke="#000000" points="568.51,-118.35 558.04,-120.01 567.26,-125.24 568.51,-118.35"/>
+<path fill="none" stroke="#000000" d="M612.87,-179.3C585.67,-179.3 552.37,-179.3 523.18,-179.3"/>
+<polygon fill="#000000" stroke="#000000" points="523.04,-175.8 513.04,-179.3 523.04,-182.8 523.04,-175.8"/>
 </g>
-<!-- type~swiftest_tp&#45;&gt;type~swiftest_body -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge8" class="edge">
-<title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M240.64,-192.04C236.46,-194.93 232.05,-198.04 228,-201 219.82,-206.99 220.13,-214.92 210,-215"/>
-<path fill="none" stroke="#000000" d="M209,-215C204.96,-215.03 200.81,-214.68 196.69,-214.06"/>
-<polygon fill="#000000" stroke="#000000" points="197.06,-210.57 186.57,-212.05 195.7,-217.43 197.06,-210.57"/>
+<!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge6" class="edge">
+<title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
+<path fill="none" stroke="#000000" d="M239.21,-68.46C235.36,-71.19 231.44,-74.21 228,-77.3 218.86,-85.52 222.05,-95.88 210,-98.3"/>
+<path fill="none" stroke="#000000" d="M209,-98.3C206.48,-98.81 203.88,-99.21 201.25,-99.53"/>
+<polygon fill="#000000" stroke="#000000" points="200.72,-96.06 191.02,-100.32 201.26,-103.04 200.72,-96.06"/>
 </g>
-<!-- type~symba_pl -->
-<g id="type~~swiftest_base~~InheritedByGraph_node11" class="node">
-<title>type~symba_pl</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node11"><a xlink:href=".././type/symba_pl.html" xlink:title="symba_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="742,-285 684,-285 684,-261 742,-261 742,-285"/>
-<text text-anchor="middle" x="713" y="-270.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pl</text>
+<!-- type~whm_tp -->
+<g id="type~~swiftest_base~~InheritedByGraph_node10" class="node">
+<title>type~whm_tp</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node10"><a xlink:href=".././type/whm_tp.html" xlink:title="whm_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="478.5,-149.3 424.5,-149.3 424.5,-125.3 478.5,-125.3 478.5,-149.3"/>
+<text text-anchor="middle" x="451.5" y="-134.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_tp</text>
 </a>
 </g>
 </g>
-<!-- type~symba_pl&#45;&gt;type~symba_particle_info -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge10" class="edge">
-<title>type~symba_pl&#45;&gt;type~symba_particle_info</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M683.73,-279.22C670.51,-281.95 654.5,-284.98 640,-287 549.71,-299.6 526.05,-298.48 435,-294 432.46,-293.87 429.86,-293.72 427.24,-293.55"/>
-<polygon fill="#000000" stroke="#000000" points="427.3,-290.05 417.07,-292.81 426.79,-297.03 427.3,-290.05"/>
-<text text-anchor="middle" x="608" y="-296.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
+<!-- type~whm_tp&#45;&gt;type~swiftest_tp -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge13" class="edge">
+<title>type~whm_tp&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" d="M424.12,-128.6C397.29,-119.97 357.46,-107.81 341.5,-106.3"/>
 </g>
-<!-- type~helio_pl -->
-<g id="type~~swiftest_base~~InheritedByGraph_node14" class="node">
-<title>type~helio_pl</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node14"><a xlink:href=".././type/helio_pl.html" xlink:title="helio_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="523.5,-285 469.5,-285 469.5,-261 523.5,-261 523.5,-285"/>
-<text text-anchor="middle" x="496.5" y="-270.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
+<!-- type~helio_tp -->
+<g id="type~~swiftest_base~~InheritedByGraph_node11" class="node">
+<title>type~helio_tp</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node11"><a xlink:href=".././type/helio_tp.html" xlink:title="helio_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="478.5,-107.3 424.5,-107.3 424.5,-83.3 478.5,-83.3 478.5,-107.3"/>
+<text text-anchor="middle" x="451.5" y="-92.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_tp</text>
 </a>
 </g>
 </g>
-<!-- type~symba_pl&#45;&gt;type~helio_pl -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge25" class="edge">
-<title>type~symba_pl&#45;&gt;type~helio_pl</title>
-<path fill="none" stroke="#000000" d="M683.96,-273C645.43,-273 576.1,-273 533.7,-273"/>
-<polygon fill="#000000" stroke="#000000" points="533.53,-269.5 523.53,-273 533.53,-276.5 533.53,-269.5"/>
+<!-- type~helio_tp&#45;&gt;type~swiftest_tp -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge14" class="edge">
+<title>type~helio_tp&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" d="M424.08,-100.86C402.01,-104.8 369.71,-108.97 341.5,-106.3"/>
+<path fill="none" stroke="#000000" d="M339.5,-106.3C327.06,-105.13 313.53,-103.78 301.24,-102.53"/>
+<polygon fill="#000000" stroke="#000000" points="301.56,-99.05 291.25,-101.52 300.85,-106.01 301.56,-99.05"/>
 </g>
-<!-- type~helio_tp -->
+<!-- type~rmvs_nbody_system -->
 <g id="type~~swiftest_base~~InheritedByGraph_node12" class="node">
-<title>type~helio_tp</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node12"><a xlink:href=".././type/helio_tp.html" xlink:title="helio_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="523.5,-205 469.5,-205 469.5,-181 523.5,-181 523.5,-205"/>
-<text text-anchor="middle" x="496.5" y="-190.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_tp</text>
+<title>type~rmvs_nbody_system</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node12"><a xlink:href=".././type/rmvs_nbody_system.html" xlink:title="rmvs_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="924,-65.3 813,-65.3 813,-41.3 924,-41.3 924,-65.3"/>
+<text text-anchor="middle" x="868.5" y="-50.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_nbody_system</text>
 </a>
 </g>
 </g>
-<!-- type~helio_tp&#45;&gt;type~swiftest_tp -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge21" class="edge">
-<title>type~helio_tp&#45;&gt;type~swiftest_tp</title>
-<path fill="none" stroke="#000000" d="M469.3,-192.76C442.76,-192.57 400.52,-192.43 364,-193"/>
+<!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge16" class="edge">
+<title>type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system</title>
+<path fill="none" stroke="#000000" d="M827.87,-65.32C822.59,-67.83 817.47,-70.8 813,-74.3 786.11,-95.36 800.5,-124.11 769,-137.3"/>
+<path fill="none" stroke="#000000" d="M767,-137.3C747.01,-145.68 742.89,-149.7 723,-158.3 719.05,-160.01 714.92,-161.73 710.77,-163.42"/>
+<polygon fill="#000000" stroke="#000000" points="709.13,-160.3 701.14,-167.26 711.73,-166.8 709.13,-160.3"/>
 </g>
 <!-- type~rmvs_cb -->
 <g id="type~~swiftest_base~~InheritedByGraph_node13" class="node">
 <title>type~rmvs_cb</title>
 <g id="a_type~~swiftest_base~~InheritedByGraph_node13"><a xlink:href=".././type/rmvs_cb.html" xlink:title="rmvs_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="523.5,-73 469.5,-73 469.5,-49 523.5,-49 523.5,-73"/>
-<text text-anchor="middle" x="496.5" y="-58.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_cb</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="478.5,-278.3 424.5,-278.3 424.5,-254.3 478.5,-254.3 478.5,-278.3"/>
+<text text-anchor="middle" x="451.5" y="-263.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_cb</text>
 </a>
 </g>
 </g>
 <!-- type~rmvs_cb&#45;&gt;type~whm_cb -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge13" class="edge">
+<g id="type~~swiftest_base~~InheritedByGraph_edge11" class="edge">
 <title>type~rmvs_cb&#45;&gt;type~whm_cb</title>
-<path fill="none" stroke="#000000" d="M469.45,-60.22C427.46,-58.97 344.67,-56.51 296.88,-55.08"/>
-<polygon fill="#000000" stroke="#000000" points="296.76,-51.58 286.66,-54.78 296.55,-58.58 296.76,-51.58"/>
+<path fill="none" stroke="#000000" d="M424.48,-266.3C391.46,-266.3 334.31,-266.3 296.95,-266.3"/>
+<polygon fill="#000000" stroke="#000000" points="296.51,-262.8 286.51,-266.3 296.51,-269.8 296.51,-262.8"/>
 </g>
-<!-- type~helio_pl&#45;&gt;type~swiftest_pl -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge15" class="edge">
-<title>type~helio_pl&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" d="M469.38,-262.2C443.25,-252.08 401.63,-237.82 364,-233"/>
+<!-- type~whm_pl -->
+<g id="type~~swiftest_base~~InheritedByGraph_node14" class="node">
+<title>type~whm_pl</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node14"><a xlink:href=".././type/whm_pl.html" xlink:title="whm_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="795,-25.3 741,-25.3 741,-1.3 795,-1.3 795,-25.3"/>
+<text text-anchor="middle" x="768" y="-10.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_pl</text>
+</a>
 </g>
-<!-- type~helio_nbody_system -->
+</g>
+<!-- type~whm_pl&#45;&gt;type~swiftest_pl -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge19" class="edge">
+<title>type~whm_pl&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M339.5,-13.3C318.99,-16.5 298.49,-27.97 283.5,-38.26"/>
+<polygon fill="#000000" stroke="#000000" points="281.44,-35.43 275.37,-44.11 285.53,-41.12 281.44,-35.43"/>
+<path fill="none" stroke="#000000" d="M740.88,-10.52C673.97,-4 491.12,10.06 341.5,-13.3"/>
+</g>
+<!-- type~symba_cb -->
 <g id="type~~swiftest_base~~InheritedByGraph_node15" class="node">
-<title>type~helio_nbody_system</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node15"><a xlink:href=".././type/helio_nbody_system.html" xlink:title="helio_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="968.5,-243 858.5,-243 858.5,-219 968.5,-219 968.5,-243"/>
-<text text-anchor="middle" x="913.5" y="-228.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_nbody_system</text>
+<title>type~symba_cb</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node15"><a xlink:href=".././type/symba_cb.html" xlink:title="symba_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="482,-236.3 421,-236.3 421,-212.3 482,-212.3 482,-236.3"/>
+<text text-anchor="middle" x="451.5" y="-221.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_cb</text>
 </a>
 </g>
 </g>
-<!-- type~helio_nbody_system&#45;&gt;type~whm_nbody_system -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge17" class="edge">
-<title>type~helio_nbody_system&#45;&gt;type~whm_nbody_system</title>
-<path fill="none" stroke="#000000" d="M903.3,-218.73C887.61,-199.17 853.52,-162.27 814,-154"/>
+<!-- type~symba_cb&#45;&gt;type~helio_cb -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge10" class="edge">
+<title>type~symba_cb&#45;&gt;type~helio_cb</title>
+<path fill="none" stroke="#000000" d="M420.81,-224.3C387.28,-224.3 332.71,-224.3 296.7,-224.3"/>
+<polygon fill="#000000" stroke="#000000" points="296.62,-220.8 286.62,-224.3 296.62,-227.8 296.62,-220.8"/>
 </g>
-<!-- type~whm_tp -->
+<!-- type~helio_nbody_system -->
 <g id="type~~swiftest_base~~InheritedByGraph_node16" class="node">
-<title>type~whm_tp</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node16"><a xlink:href=".././type/whm_tp.html" xlink:title="whm_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="523.5,-163 469.5,-163 469.5,-139 523.5,-139 523.5,-163"/>
-<text text-anchor="middle" x="496.5" y="-148.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_tp</text>
+<title>type~helio_nbody_system</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node16"><a xlink:href=".././type/helio_nbody_system.html" xlink:title="helio_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="923.5,-149.3 813.5,-149.3 813.5,-125.3 923.5,-125.3 923.5,-149.3"/>
+<text text-anchor="middle" x="868.5" y="-134.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_nbody_system</text>
 </a>
 </g>
 </g>
-<!-- type~whm_tp&#45;&gt;type~swiftest_tp -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge20" class="edge">
-<title>type~whm_tp&#45;&gt;type~swiftest_tp</title>
-<path fill="none" stroke="#000000" d="M362,-193C341.77,-193.31 319.44,-190.78 300.9,-187.86"/>
-<polygon fill="#000000" stroke="#000000" points="301.46,-184.41 291.02,-186.22 300.31,-191.31 301.46,-184.41"/>
-<path fill="none" stroke="#000000" d="M469.22,-159.89C458.57,-163.55 446.17,-167.89 435,-172 404.12,-183.36 396.9,-192.49 364,-193"/>
+<!-- type~helio_nbody_system&#45;&gt;type~whm_nbody_system -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge15" class="edge">
+<title>type~helio_nbody_system&#45;&gt;type~whm_nbody_system</title>
+<path fill="none" stroke="#000000" d="M813.34,-129.79C798.49,-129.71 782.72,-131.55 769,-137.3"/>
 </g>
-<!-- type~symba_merger -->
+<!-- type~helio_pl -->
 <g id="type~~swiftest_base~~InheritedByGraph_node17" class="node">
-<title>type~symba_merger</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node17"><a xlink:href=".././type/symba_merger.html" xlink:title="symba_merger">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="956,-285 871,-285 871,-261 956,-261 956,-285"/>
-<text text-anchor="middle" x="913.5" y="-270.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_merger</text>
+<title>type~helio_pl</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node17"><a xlink:href=".././type/helio_pl.html" xlink:title="helio_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="478.5,-65.3 424.5,-65.3 424.5,-41.3 478.5,-41.3 478.5,-65.3"/>
+<text text-anchor="middle" x="451.5" y="-50.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
 </a>
 </g>
 </g>
-<!-- type~symba_merger&#45;&gt;type~symba_pl -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge22" class="edge">
-<title>type~symba_merger&#45;&gt;type~symba_pl</title>
-<path fill="none" stroke="#000000" d="M870.89,-273C835.86,-273 786.17,-273 752.15,-273"/>
-<polygon fill="#000000" stroke="#000000" points="752.13,-269.5 742.13,-273 752.13,-276.5 752.13,-269.5"/>
+<!-- type~helio_pl&#45;&gt;type~swiftest_pl -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge18" class="edge">
+<title>type~helio_pl&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M424.47,-42.24C394.99,-29.95 349.94,-11.99 341.5,-13.3"/>
 </g>
-<!-- type~symba_cb -->
+<!-- type~symba_nbody_system -->
 <g id="type~~swiftest_base~~InheritedByGraph_node18" class="node">
-<title>type~symba_cb</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node18"><a xlink:href=".././type/symba_cb.html" xlink:title="symba_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="527,-24 466,-24 466,0 527,0 527,-24"/>
-<text text-anchor="middle" x="496.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_cb</text>
-</a>
-</g>
-</g>
-<!-- type~symba_cb&#45;&gt;type~helio_cb -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge12" class="edge">
-<title>type~symba_cb&#45;&gt;type~helio_cb</title>
-<path fill="none" stroke="#000000" d="M465.74,-12C422.77,-12 343.43,-12 296.99,-12"/>
-<polygon fill="#000000" stroke="#000000" points="296.77,-8.5 286.77,-12 296.77,-15.5 296.77,-8.5"/>
-</g>
-<!-- type~whm_pl -->
-<g id="type~~swiftest_base~~InheritedByGraph_node19" class="node">
-<title>type~whm_pl</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node19"><a xlink:href=".././type/whm_pl.html" xlink:title="whm_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="840,-224 786,-224 786,-200 840,-200 840,-224"/>
-<text text-anchor="middle" x="813" y="-209.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_pl</text>
+<title>type~symba_nbody_system</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node18"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1139,-120.3 1020,-120.3 1020,-96.3 1139,-96.3 1139,-120.3"/>
+<text text-anchor="middle" x="1079.5" y="-105.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
 </a>
 </g>
 </g>
-<!-- type~whm_pl&#45;&gt;type~swiftest_pl -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge16" class="edge">
-<title>type~whm_pl&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" d="M362,-233C341.92,-230.43 319.55,-227.96 300.94,-226.02"/>
-<polygon fill="#000000" stroke="#000000" points="301.04,-222.51 290.74,-224.97 300.33,-229.48 301.04,-222.51"/>
-<path fill="none" stroke="#000000" d="M785.61,-216.42C716.24,-227.36 523.1,-253.36 364,-233"/>
+<!-- type~symba_nbody_system&#45;&gt;type~helio_nbody_system -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge25" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
+<path fill="none" stroke="#000000" d="M1019.73,-116.46C992.84,-120.19 960.93,-124.62 933.45,-128.43"/>
+<polygon fill="#000000" stroke="#000000" points="932.97,-124.96 923.54,-129.8 933.93,-131.9 932.97,-124.96"/>
 </g>
-<!-- type~rmvs_nbody_system -->
-<g id="type~~swiftest_base~~InheritedByGraph_node20" class="node">
-<title>type~rmvs_nbody_system</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node20"><a xlink:href=".././type/rmvs_nbody_system.html" xlink:title="rmvs_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="969,-163 858,-163 858,-139 969,-139 969,-163"/>
-<text text-anchor="middle" x="913.5" y="-148.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_nbody_system</text>
+<!-- type~symba_merger -->
+<g id="type~~swiftest_base~~InheritedByGraph_node23" class="node">
+<title>type~symba_merger</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node23"><a xlink:href=".././type/symba_merger.html" xlink:title="symba_merger">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="911,-107.3 826,-107.3 826,-83.3 911,-83.3 911,-107.3"/>
+<text text-anchor="middle" x="868.5" y="-92.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_merger</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge18" class="edge">
-<title>type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system</title>
-<path fill="none" stroke="#000000" d="M857.91,-157.23C843.51,-157.63 828.07,-156.94 814,-154"/>
-<path fill="none" stroke="#000000" d="M812,-154C801.21,-151.74 789.61,-150.24 778.3,-149.26"/>
-<polygon fill="#000000" stroke="#000000" points="778.27,-145.75 768.04,-148.5 777.75,-152.73 778.27,-145.75"/>
+<!-- type~symba_nbody_system&#45;&gt;type~symba_merger -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge28" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~symba_merger</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1019.73,-104.65C988.84,-102.73 951.31,-100.39 921.49,-98.54"/>
+<polygon fill="#000000" stroke="#000000" points="921.48,-95.03 911.29,-97.9 921.05,-102.02 921.48,-95.03"/>
+<text text-anchor="middle" x="972" y="-105.7" font-family="Helvetica,sans-Serif" font-size="9.50">pl_adds</text>
 </g>
 <!-- type~rmvs_tp -->
-<g id="type~~swiftest_base~~InheritedByGraph_node21" class="node">
+<g id="type~~swiftest_base~~InheritedByGraph_node19" class="node">
 <title>type~rmvs_tp</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node21"><a xlink:href=".././type/rmvs_tp.html" xlink:title="rmvs_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="740,-94 686,-94 686,-70 740,-70 740,-94"/>
-<text text-anchor="middle" x="713" y="-79.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_tp</text>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node19"><a xlink:href=".././type/rmvs_tp.html" xlink:title="rmvs_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="695,-149.3 641,-149.3 641,-125.3 695,-125.3 695,-149.3"/>
+<text text-anchor="middle" x="668" y="-134.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_tp</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_tp&#45;&gt;type~rmvs_cb -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge24" class="edge">
-<title>type~rmvs_tp&#45;&gt;type~rmvs_cb</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M685.7,-79.42C647.56,-75.69 576.78,-68.76 533.73,-64.55"/>
-<polygon fill="#000000" stroke="#000000" points="533.97,-61.05 523.68,-63.56 533.29,-68.02 533.97,-61.05"/>
-<text text-anchor="middle" x="608" y="-76.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb_heliocentric</text>
-</g>
 <!-- type~rmvs_tp&#45;&gt;type~whm_tp -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge27" class="edge">
+<g id="type~~swiftest_base~~InheritedByGraph_edge20" class="edge">
 <title>type~rmvs_tp&#45;&gt;type~whm_tp</title>
-<path fill="none" stroke="#000000" d="M685.7,-90.46C647.48,-102.75 576.48,-125.59 533.46,-139.43"/>
-<polygon fill="#000000" stroke="#000000" points="532.13,-136.18 523.68,-142.58 534.27,-142.85 532.13,-136.18"/>
+<path fill="none" stroke="#000000" d="M640.7,-137.3C602.56,-137.3 531.78,-137.3 488.73,-137.3"/>
+<polygon fill="#000000" stroke="#000000" points="488.68,-133.8 478.68,-137.3 488.68,-140.8 488.68,-133.8"/>
+</g>
+<!-- type~rmvs_tp&#45;&gt;type~rmvs_cb -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge23" class="edge">
+<title>type~rmvs_tp&#45;&gt;type~rmvs_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M640.87,-145.4C631.73,-148.76 621.61,-153.1 613,-158.3 562.58,-188.76 563.98,-215.77 513,-245.3 505.39,-249.71 496.72,-253.4 488.35,-256.39"/>
+<polygon fill="#000000" stroke="#000000" points="487.14,-253.1 478.76,-259.58 489.36,-259.74 487.14,-253.1"/>
+<text text-anchor="middle" x="563" y="-234.7" font-family="Helvetica,sans-Serif" font-size="9.50">cb_heliocentric</text>
 </g>
 <!-- type~rmvs_pl -->
-<g id="type~~swiftest_base~~InheritedByGraph_node22" class="node">
+<g id="type~~swiftest_base~~InheritedByGraph_node20" class="node">
 <title>type~rmvs_pl</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node22"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="1217.5,-199 1163.5,-199 1163.5,-175 1217.5,-175 1217.5,-199"/>
-<text text-anchor="middle" x="1190.5" y="-184.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_pl</text>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node20"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="1106.5,-58.3 1052.5,-58.3 1052.5,-34.3 1106.5,-34.3 1106.5,-58.3"/>
+<text text-anchor="middle" x="1079.5" y="-43.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_pl</text>
 </a>
 </g>
 </g>
-<!-- type~rmvs_pl&#45;&gt;type~whm_pl -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge29" class="edge">
-<title>type~rmvs_pl&#45;&gt;type~whm_pl</title>
-<path fill="none" stroke="#000000" d="M1163.39,-188.74C1097.79,-193.11 925.9,-204.55 850.42,-209.58"/>
-<polygon fill="#000000" stroke="#000000" points="850.18,-206.08 840.43,-210.24 850.64,-213.07 850.18,-206.08"/>
-</g>
 <!-- type~rmvs_pl&#45;&gt;type~rmvs_nbody_system -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge30" class="edge">
+<g id="type~~swiftest_base~~InheritedByGraph_edge22" class="edge">
 <title>type~rmvs_pl&#45;&gt;type~rmvs_nbody_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1163.2,-178.9C1148.55,-174.71 1129.92,-169.87 1113,-167 1068.72,-159.49 1018.28,-155.48 979.32,-153.35"/>
-<polygon fill="#000000" stroke="#000000" points="979.33,-149.85 969.16,-152.83 978.97,-156.84 979.33,-149.85"/>
-<text text-anchor="middle" x="1050" y="-169.4" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1052.45,-47.18C1023.06,-48.16 974.15,-49.8 934.29,-51.13"/>
+<polygon fill="#000000" stroke="#000000" points="933.99,-47.64 924.11,-51.47 934.22,-54.64 933.99,-47.64"/>
+<text text-anchor="middle" x="972" y="-52.7" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
+</g>
+<!-- type~rmvs_pl&#45;&gt;type~whm_pl -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge24" class="edge">
+<title>type~rmvs_pl&#45;&gt;type~whm_pl</title>
+<path fill="none" stroke="#000000" d="M1052.38,-43.52C997.27,-37.64 869,-23.97 805.69,-17.22"/>
+<polygon fill="#000000" stroke="#000000" points="805.69,-13.7 795.38,-16.12 804.95,-20.66 805.69,-13.7"/>
 </g>
 <!-- type~symba_tp -->
-<g id="type~~swiftest_base~~InheritedByGraph_node23" class="node">
+<g id="type~~swiftest_base~~InheritedByGraph_node21" class="node">
 <title>type~symba_tp</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node23"><a xlink:href=".././type/symba_tp.html" xlink:title="symba_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="742.5,-205 683.5,-205 683.5,-181 742.5,-181 742.5,-205"/>
-<text text-anchor="middle" x="713" y="-190.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_tp</text>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node21"><a xlink:href=".././type/symba_tp.html" xlink:title="symba_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="697.5,-107.3 638.5,-107.3 638.5,-83.3 697.5,-83.3 697.5,-107.3"/>
+<text text-anchor="middle" x="668" y="-92.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_tp</text>
 </a>
 </g>
 </g>
 <!-- type~symba_tp&#45;&gt;type~helio_tp -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge23" class="edge">
+<g id="type~~swiftest_base~~InheritedByGraph_edge21" class="edge">
 <title>type~symba_tp&#45;&gt;type~helio_tp</title>
-<path fill="none" stroke="#000000" d="M683.07,-193C644.38,-193 575.79,-193 533.72,-193"/>
-<polygon fill="#000000" stroke="#000000" points="533.62,-189.5 523.62,-193 533.62,-196.5 533.62,-189.5"/>
+<path fill="none" stroke="#000000" d="M638.07,-95.3C599.38,-95.3 530.79,-95.3 488.72,-95.3"/>
+<polygon fill="#000000" stroke="#000000" points="488.62,-91.8 478.62,-95.3 488.62,-98.8 488.62,-91.8"/>
 </g>
-<!-- type~symba_nbody_system -->
-<g id="type~~swiftest_base~~InheritedByGraph_node24" class="node">
-<title>type~symba_nbody_system</title>
-<g id="a_type~~swiftest_base~~InheritedByGraph_node24"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="1250,-252 1131,-252 1131,-228 1250,-228 1250,-252"/>
-<text text-anchor="middle" x="1190.5" y="-237.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
+<!-- type~symba_pl -->
+<g id="type~~swiftest_base~~InheritedByGraph_node22" class="node">
+<title>type~symba_pl</title>
+<g id="a_type~~swiftest_base~~InheritedByGraph_node22"><a xlink:href=".././type/symba_pl.html" xlink:title="symba_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="697,-65.3 639,-65.3 639,-41.3 697,-41.3 697,-65.3"/>
+<text text-anchor="middle" x="668" y="-50.9" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pl</text>
 </a>
 </g>
 </g>
-<!-- type~symba_nbody_system&#45;&gt;type~helio_nbody_system -->
+<!-- type~symba_pl&#45;&gt;type~helio_pl -->
 <g id="type~~swiftest_base~~InheritedByGraph_edge26" class="edge">
-<title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
-<path fill="none" stroke="#000000" d="M1130.84,-238.08C1086.26,-236.62 1024.98,-234.62 979.01,-233.11"/>
-<polygon fill="#000000" stroke="#000000" points="978.97,-229.61 968.86,-232.78 978.74,-236.6 978.97,-229.61"/>
+<title>type~symba_pl&#45;&gt;type~helio_pl</title>
+<path fill="none" stroke="#000000" d="M638.96,-53.3C600.43,-53.3 531.1,-53.3 488.7,-53.3"/>
+<polygon fill="#000000" stroke="#000000" points="488.53,-49.8 478.53,-53.3 488.53,-56.8 488.53,-49.8"/>
 </g>
-<!-- type~symba_nbody_system&#45;&gt;type~symba_merger -->
-<g id="type~~swiftest_base~~InheritedByGraph_edge28" class="edge">
-<title>type~symba_nbody_system&#45;&gt;type~symba_merger</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1130.84,-247.04C1081.91,-252.91 1012.84,-261.2 966.01,-266.82"/>
-<polygon fill="#000000" stroke="#000000" points="965.59,-263.34 956.08,-268.01 966.42,-270.29 965.59,-263.34"/>
-<text text-anchor="middle" x="1050" y="-266.4" font-family="Helvetica,sans-Serif" font-size="9.50">mergeadd_list, mergesub_list</text>
+<!-- type~symba_merger&#45;&gt;type~symba_pl -->
+<g id="type~~swiftest_base~~InheritedByGraph_edge27" class="edge">
+<title>type~symba_merger&#45;&gt;type~symba_pl</title>
+<path fill="none" stroke="#000000" d="M825.89,-86.5C790.86,-79.09 741.17,-68.57 707.15,-61.38"/>
+<polygon fill="#000000" stroke="#000000" points="707.64,-57.9 697.13,-59.26 706.19,-64.75 707.64,-57.9"/>
 </g>
 </g>
 </svg>
@@ -732,11 +711,11 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-dump~2">dump</a>
       
-      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-initialize~7">initialize</a>
+      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-initialize~6">initialize</a>
       
-      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-read_frame~5">read_frame</a>
+      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-read_frame~4">read_frame</a>
       
-      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-write_frame~5">write_frame</a>
+      <a class="list-group-item" href="../type/swiftest_base.html#boundprocedure-write_frame~4">write_frame</a>
       
     </div>
   </div>
@@ -810,7 +789,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -862,21 +841,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -894,7 +858,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~7"></span><h3>procedure(<a href='../interface/abstract_initialize.html'>abstract_initialize</a>), public, deferred :: <strong>initialize</strong>  
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~6"></span><h3>procedure(<a href='../interface/abstract_initialize.html'>abstract_initialize</a>), public, deferred :: <strong>initialize</strong>  
     
   </h3></div>
   
@@ -973,7 +937,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~5"></span><h3>procedure(<a href='../interface/abstract_read_frame.html'>abstract_read_frame</a>), public, deferred :: <strong>read_frame</strong>  
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~4"></span><h3>procedure(<a href='../interface/abstract_read_frame.html'>abstract_read_frame</a>), public, deferred :: <strong>read_frame</strong>  
     
   </h3></div>
   
@@ -1097,7 +1061,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~5"></span><h3>procedure(<a href='../interface/abstract_write_frame.html'>abstract_write_frame</a>), public, deferred :: <strong>write_frame</strong>  
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~4"></span><h3>procedure(<a href='../interface/abstract_write_frame.html'>abstract_write_frame</a>), public, deferred :: <strong>write_frame</strong>  
     
   </h3></div>
   
diff --git a/docs/type/swiftest_body.html b/docs/type/swiftest_body.html
index 0f7eba5d9..15811e5a4 100644
--- a/docs/type/swiftest_body.html
+++ b/docs/type/swiftest_body.html
@@ -408,11 +408,11 @@ <h3 class="panel-title">Inherited by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~swiftest_body~~InheritedByGraph Pages: 1 -->
-<svg id="typeswiftest_bodyInheritedByGraph" width="641pt" height="147pt"
- viewBox="0.00 0.00 641.00 147.26" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~swiftest_body~~InheritedByGraph" class="graph" transform="scale(0.62 0.62) rotate(0) translate(4 234)">
+<svg id="typeswiftest_bodyInheritedByGraph" width="641pt" height="157pt"
+ viewBox="0.00 0.00 641.00 157.28" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~swiftest_body~~InheritedByGraph" class="graph" transform="scale(0.66 0.66) rotate(0) translate(4 234)">
 <title>type~~swiftest_body~~InheritedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-234 1032,-234 1032,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-234 966,-234 966,4 -4,4"/>
 <!-- type~swiftest_body -->
 <g id="type~~swiftest_body~~InheritedByGraph_node1" class="node">
 <title>type~swiftest_body</title>
@@ -445,28 +445,59 @@ <h3 class="panel-title">Inherited by</h3>
 <!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
 <g id="type~~swiftest_body~~InheritedByGraph_edge2" class="edge">
 <title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M125.21,-90.15C121.36,-92.89 117.44,-95.9 114,-99 104.86,-107.22 108.05,-117.57 96,-120"/>
 <path fill="none" stroke="#000000" d="M95,-120C92.48,-120.51 89.88,-120.91 87.25,-121.22"/>
 <polygon fill="#000000" stroke="#000000" points="86.72,-117.75 77.02,-122.02 87.26,-124.73 86.72,-117.75"/>
+<path fill="none" stroke="#000000" d="M125.21,-90.15C121.36,-92.89 117.44,-95.9 114,-99 104.86,-107.22 108.05,-117.57 96,-120"/>
 </g>
-<!-- type~helio_tp -->
+<!-- type~whm_tp -->
 <g id="type~~swiftest_body~~InheritedByGraph_node4" class="node">
-<title>type~helio_tp</title>
-<g id="a_type~~swiftest_body~~InheritedByGraph_node4"><a xlink:href=".././type/helio_tp.html" xlink:title="helio_tp">
+<title>type~whm_tp</title>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node4"><a xlink:href=".././type/whm_tp.html" xlink:title="whm_tp">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="364.5,-230 310.5,-230 310.5,-206 364.5,-206 364.5,-230"/>
-<text text-anchor="middle" x="337.5" y="-215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_tp</text>
+<text text-anchor="middle" x="337.5" y="-215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_tp</text>
+</a>
+</g>
+</g>
+<!-- type~whm_tp&#45;&gt;type~swiftest_tp -->
+<g id="type~~swiftest_body~~InheritedByGraph_edge4" class="edge">
+<title>type~whm_tp&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" d="M310.17,-215.75C287.59,-213.16 254.52,-207.8 227.5,-197"/>
+</g>
+<!-- type~helio_tp -->
+<g id="type~~swiftest_body~~InheritedByGraph_node5" class="node">
+<title>type~helio_tp</title>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node5"><a xlink:href=".././type/helio_tp.html" xlink:title="helio_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="364.5,-188 310.5,-188 310.5,-164 364.5,-164 364.5,-188"/>
+<text text-anchor="middle" x="337.5" y="-173.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_tp</text>
 </a>
 </g>
 </g>
 <!-- type~helio_tp&#45;&gt;type~swiftest_tp -->
 <g id="type~~swiftest_body~~InheritedByGraph_edge5" class="edge">
 <title>type~helio_tp&#45;&gt;type~swiftest_tp</title>
-<path fill="none" stroke="#000000" d="M310.17,-215.75C287.59,-213.16 254.52,-207.8 227.5,-197"/>
+<path fill="none" stroke="#000000" d="M310.07,-184.46C282.78,-192.6 242.18,-202.86 227.5,-197"/>
+<path fill="none" stroke="#000000" d="M225.5,-197C197.4,-185.78 173.9,-159.08 160.02,-140.28"/>
+<polygon fill="#000000" stroke="#000000" points="162.81,-138.17 154.17,-132.04 157.1,-142.22 162.81,-138.17"/>
+</g>
+<!-- type~whm_pl -->
+<g id="type~~swiftest_body~~InheritedByGraph_node6" class="node">
+<title>type~whm_pl</title>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node6"><a xlink:href=".././type/whm_pl.html" xlink:title="whm_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="618,-148 564,-148 564,-124 618,-124 618,-148"/>
+<text text-anchor="middle" x="591" y="-133.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_pl</text>
+</a>
+</g>
+</g>
+<!-- type~whm_pl&#45;&gt;type~swiftest_pl -->
+<g id="type~~swiftest_body~~InheritedByGraph_edge8" class="edge">
+<title>type~whm_pl&#45;&gt;type~swiftest_pl</title>
+<path fill="none" stroke="#000000" d="M563.93,-137.88C486.55,-143.03 259.58,-154.9 195,-122 183.43,-116.11 186.45,-107.89 177,-99 176.05,-98.11 175.06,-97.23 174.05,-96.36"/>
+<polygon fill="#000000" stroke="#000000" points="175.94,-93.4 165.89,-90.04 171.65,-98.93 175.94,-93.4"/>
 </g>
 <!-- type~swiftest_nbody_system -->
-<g id="type~~swiftest_body~~InheritedByGraph_node5" class="node">
+<g id="type~~swiftest_body~~InheritedByGraph_node7" class="node">
 <title>type~swiftest_nbody_system</title>
-<g id="a_type~~swiftest_body~~InheritedByGraph_node5"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
+<g id="a_type~~swiftest_body~~InheritedByGraph_node7"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="399,-108 276,-108 276,-84 399,-84 399,-108"/>
 <text text-anchor="middle" x="337.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_nbody_system</text>
 </a>
@@ -484,114 +515,83 @@ <h3 class="panel-title">Inherited by</h3>
 <title>type~swiftest_nbody_system&#45;&gt;type~swiftest_pl</title>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M288.18,-83.92C278.26,-81.89 267.84,-80.1 258,-79 234.63,-76.39 208.33,-76.03 187.15,-76.38"/>
 <polygon fill="#000000" stroke="#000000" points="186.81,-72.88 176.89,-76.6 186.96,-79.88 186.81,-72.88"/>
-<text text-anchor="middle" x="226.5" y="-81.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl</text>
-</g>
-<!-- type~whm_tp -->
-<g id="type~~swiftest_body~~InheritedByGraph_node6" class="node">
-<title>type~whm_tp</title>
-<g id="a_type~~swiftest_body~~InheritedByGraph_node6"><a xlink:href=".././type/whm_tp.html" xlink:title="whm_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="364.5,-188 310.5,-188 310.5,-164 364.5,-164 364.5,-188"/>
-<text text-anchor="middle" x="337.5" y="-173.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_tp</text>
-</a>
-</g>
-</g>
-<!-- type~whm_tp&#45;&gt;type~swiftest_tp -->
-<g id="type~~swiftest_body~~InheritedByGraph_edge4" class="edge">
-<title>type~whm_tp&#45;&gt;type~swiftest_tp</title>
-<path fill="none" stroke="#000000" d="M310.07,-184.46C282.78,-192.6 242.18,-202.86 227.5,-197"/>
-<path fill="none" stroke="#000000" d="M225.5,-197C197.4,-185.78 173.9,-159.08 160.02,-140.28"/>
-<polygon fill="#000000" stroke="#000000" points="162.81,-138.17 154.17,-132.04 157.1,-142.22 162.81,-138.17"/>
+<text text-anchor="middle" x="226.5" y="-81.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </g>
 <!-- type~helio_pl -->
-<g id="type~~swiftest_body~~InheritedByGraph_node7" class="node">
+<g id="type~~swiftest_body~~InheritedByGraph_node8" class="node">
 <title>type~helio_pl</title>
-<g id="a_type~~swiftest_body~~InheritedByGraph_node7"><a xlink:href=".././type/helio_pl.html" xlink:title="helio_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="364.5,-33 310.5,-33 310.5,-9 364.5,-9 364.5,-33"/>
-<text text-anchor="middle" x="337.5" y="-18.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node8"><a xlink:href=".././type/helio_pl.html" xlink:title="helio_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="364.5,-54 310.5,-54 310.5,-30 364.5,-30 364.5,-54"/>
+<text text-anchor="middle" x="337.5" y="-39.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
 </a>
 </g>
 </g>
 <!-- type~helio_pl&#45;&gt;type~swiftest_pl -->
 <g id="type~~swiftest_body~~InheritedByGraph_edge7" class="edge">
 <title>type~helio_pl&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" d="M310.48,-28.81C278.52,-38.39 223.97,-54.76 186.63,-65.96"/>
-<polygon fill="#000000" stroke="#000000" points="185.16,-62.75 176.59,-68.97 187.17,-69.45 185.16,-62.75"/>
-</g>
-<!-- type~whm_pl -->
-<g id="type~~swiftest_body~~InheritedByGraph_node8" class="node">
-<title>type~whm_pl</title>
-<g id="a_type~~swiftest_body~~InheritedByGraph_node8"><a xlink:href=".././type/whm_pl.html" xlink:title="whm_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="618,-148 564,-148 564,-124 618,-124 618,-148"/>
-<text text-anchor="middle" x="591" y="-133.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_pl</text>
-</a>
-</g>
-</g>
-<!-- type~whm_pl&#45;&gt;type~swiftest_pl -->
-<g id="type~~swiftest_body~~InheritedByGraph_edge8" class="edge">
-<title>type~whm_pl&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" d="M563.93,-137.88C486.55,-143.03 259.58,-154.9 195,-122 183.43,-116.11 186.45,-107.89 177,-99 176.05,-98.11 175.06,-97.23 174.05,-96.36"/>
-<polygon fill="#000000" stroke="#000000" points="175.94,-93.4 165.89,-90.04 171.65,-98.93 175.94,-93.4"/>
-</g>
-<!-- type~symba_tp -->
-<g id="type~~swiftest_body~~InheritedByGraph_node9" class="node">
-<title>type~symba_tp</title>
-<g id="a_type~~swiftest_body~~InheritedByGraph_node9"><a xlink:href=".././type/symba_tp.html" xlink:title="symba_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="520.5,-230 461.5,-230 461.5,-206 520.5,-206 520.5,-230"/>
-<text text-anchor="middle" x="491" y="-215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_tp</text>
-</a>
-</g>
-</g>
-<!-- type~symba_tp&#45;&gt;type~helio_tp -->
-<g id="type~~swiftest_body~~InheritedByGraph_edge9" class="edge">
-<title>type~symba_tp&#45;&gt;type~helio_tp</title>
-<path fill="none" stroke="#000000" d="M461.15,-218C436.59,-218 401.19,-218 374.73,-218"/>
-<polygon fill="#000000" stroke="#000000" points="374.71,-214.5 364.71,-218 374.71,-221.5 374.71,-214.5"/>
+<path fill="none" stroke="#000000" d="M310.48,-46.93C278.52,-52.99 223.97,-63.32 186.63,-70.4"/>
+<polygon fill="#000000" stroke="#000000" points="185.76,-67 176.59,-72.3 187.06,-73.88 185.76,-67"/>
 </g>
 <!-- type~rmvs_tp -->
-<g id="type~~swiftest_body~~InheritedByGraph_node10" class="node">
+<g id="type~~swiftest_body~~InheritedByGraph_node9" class="node">
 <title>type~rmvs_tp</title>
-<g id="a_type~~swiftest_body~~InheritedByGraph_node10"><a xlink:href=".././type/rmvs_tp.html" xlink:title="rmvs_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="518,-188 464,-188 464,-164 518,-164 518,-188"/>
-<text text-anchor="middle" x="491" y="-173.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_tp</text>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node9"><a xlink:href=".././type/rmvs_tp.html" xlink:title="rmvs_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="518,-230 464,-230 464,-206 518,-206 518,-230"/>
+<text text-anchor="middle" x="491" y="-215.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_tp</text>
 </a>
 </g>
 </g>
 <!-- type~rmvs_tp&#45;&gt;type~whm_tp -->
-<g id="type~~swiftest_body~~InheritedByGraph_edge11" class="edge">
+<g id="type~~swiftest_body~~InheritedByGraph_edge9" class="edge">
 <title>type~rmvs_tp&#45;&gt;type~whm_tp</title>
-<path fill="none" stroke="#000000" d="M463.96,-176C439.35,-176 402.22,-176 374.73,-176"/>
-<polygon fill="#000000" stroke="#000000" points="374.71,-172.5 364.71,-176 374.71,-179.5 374.71,-172.5"/>
+<path fill="none" stroke="#000000" d="M463.96,-218C439.35,-218 402.22,-218 374.73,-218"/>
+<polygon fill="#000000" stroke="#000000" points="374.71,-214.5 364.71,-218 374.71,-221.5 374.71,-214.5"/>
 </g>
 <!-- type~rmvs_pl -->
-<g id="type~~swiftest_body~~InheritedByGraph_node11" class="node">
+<g id="type~~swiftest_body~~InheritedByGraph_node10" class="node">
 <title>type~rmvs_pl</title>
-<g id="a_type~~swiftest_body~~InheritedByGraph_node11"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="995.5,-135 941.5,-135 941.5,-111 995.5,-111 995.5,-135"/>
-<text text-anchor="middle" x="968.5" y="-120.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_pl</text>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node10"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="929.5,-117 875.5,-117 875.5,-93 929.5,-93 929.5,-117"/>
+<text text-anchor="middle" x="902.5" y="-102.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_pl</text>
 </a>
 </g>
 </g>
 <!-- type~rmvs_pl&#45;&gt;type~whm_pl -->
-<g id="type~~swiftest_body~~InheritedByGraph_edge13" class="edge">
+<g id="type~~swiftest_body~~InheritedByGraph_edge11" class="edge">
 <title>type~rmvs_pl&#45;&gt;type~whm_pl</title>
-<path fill="none" stroke="#000000" d="M941.39,-123.9C875.92,-126.17 704.6,-132.1 628.89,-134.72"/>
-<polygon fill="#000000" stroke="#000000" points="628.31,-131.24 618.43,-135.08 628.55,-138.24 628.31,-131.24"/>
+<path fill="none" stroke="#000000" d="M875.33,-108.68C860.57,-110.7 841.77,-113.15 825,-115 755.53,-122.67 674.16,-129.52 628.29,-133.18"/>
+<polygon fill="#000000" stroke="#000000" points="627.93,-129.7 618.24,-133.98 628.49,-136.68 627.93,-129.7"/>
 </g>
 <!-- type~rmvs_nbody_system -->
-<g id="type~~swiftest_body~~InheritedByGraph_node15" class="node">
+<g id="type~~swiftest_body~~InheritedByGraph_node16" class="node">
 <title>type~rmvs_nbody_system</title>
-<g id="a_type~~swiftest_body~~InheritedByGraph_node15"><a xlink:href=".././type/rmvs_nbody_system.html" xlink:title="rmvs_nbody_system">
+<g id="a_type~~swiftest_body~~InheritedByGraph_node16"><a xlink:href=".././type/rmvs_nbody_system.html" xlink:title="rmvs_nbody_system">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="747,-108 636,-108 636,-84 747,-84 747,-108"/>
 <text text-anchor="middle" x="691.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~rmvs_pl&#45;&gt;type~rmvs_nbody_system -->
-<g id="type~~swiftest_body~~InheritedByGraph_edge18" class="edge">
+<g id="type~~swiftest_body~~InheritedByGraph_edge19" class="edge">
 <title>type~rmvs_pl&#45;&gt;type~rmvs_nbody_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M941.35,-118.83C926.6,-116.58 907.8,-113.88 891,-112 846.53,-107.02 796.28,-102.98 757.47,-100.21"/>
-<polygon fill="#000000" stroke="#000000" points="757.57,-96.71 747.35,-99.5 757.08,-103.69 757.57,-96.71"/>
-<text text-anchor="middle" x="828" y="-114.4" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M875.45,-103.88C846.06,-102.61 797.15,-100.51 757.29,-98.79"/>
+<polygon fill="#000000" stroke="#000000" points="757.25,-95.29 747.11,-98.35 756.95,-102.28 757.25,-95.29"/>
+<text text-anchor="middle" x="795" y="-103.4" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
+</g>
+<!-- type~symba_tp -->
+<g id="type~~swiftest_body~~InheritedByGraph_node11" class="node">
+<title>type~symba_tp</title>
+<g id="a_type~~swiftest_body~~InheritedByGraph_node11"><a xlink:href=".././type/symba_tp.html" xlink:title="symba_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="520.5,-188 461.5,-188 461.5,-164 520.5,-164 520.5,-188"/>
+<text text-anchor="middle" x="491" y="-173.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_tp</text>
+</a>
+</g>
+</g>
+<!-- type~symba_tp&#45;&gt;type~helio_tp -->
+<g id="type~~swiftest_body~~InheritedByGraph_edge10" class="edge">
+<title>type~symba_tp&#45;&gt;type~helio_tp</title>
+<path fill="none" stroke="#000000" d="M461.15,-176C436.59,-176 401.19,-176 374.73,-176"/>
+<polygon fill="#000000" stroke="#000000" points="374.71,-172.5 364.71,-176 374.71,-179.5 374.71,-172.5"/>
 </g>
 <!-- type~whm_nbody_system -->
 <g id="type~~swiftest_body~~InheritedByGraph_node12" class="node">
@@ -603,7 +603,7 @@ <h3 class="panel-title">Inherited by</h3>
 </g>
 </g>
 <!-- type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system -->
-<g id="type~~swiftest_body~~InheritedByGraph_edge10" class="edge">
+<g id="type~~swiftest_body~~InheritedByGraph_edge12" class="edge">
 <title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
 <path fill="none" stroke="#000000" d="M435.73,-96C427.1,-96 418.05,-96 409.11,-96"/>
 <polygon fill="#000000" stroke="#000000" points="409.07,-92.5 399.07,-96 409.07,-99.5 409.07,-92.5"/>
@@ -612,16 +612,16 @@ <h3 class="panel-title">Inherited by</h3>
 <g id="type~~swiftest_body~~InheritedByGraph_node13" class="node">
 <title>type~symba_pl</title>
 <g id="a_type~~swiftest_body~~InheritedByGraph_node13"><a xlink:href=".././type/symba_pl.html" xlink:title="symba_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="520,-27 462,-27 462,-3 520,-3 520,-27"/>
-<text text-anchor="middle" x="491" y="-12.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pl</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="520,-30 462,-30 462,-6 520,-6 520,-30"/>
+<text text-anchor="middle" x="491" y="-15.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pl</text>
 </a>
 </g>
 </g>
 <!-- type~symba_pl&#45;&gt;type~helio_pl -->
-<g id="type~~swiftest_body~~InheritedByGraph_edge12" class="edge">
+<g id="type~~swiftest_body~~InheritedByGraph_edge13" class="edge">
 <title>type~symba_pl&#45;&gt;type~helio_pl</title>
-<path fill="none" stroke="#000000" d="M461.86,-16.11C437.31,-17.09 401.53,-18.5 374.83,-19.56"/>
-<polygon fill="#000000" stroke="#000000" points="374.57,-16.07 364.72,-19.96 374.85,-23.06 374.57,-16.07"/>
+<path fill="none" stroke="#000000" d="M461.86,-22.46C437.31,-26.35 401.53,-32.01 374.83,-36.25"/>
+<polygon fill="#000000" stroke="#000000" points="374.05,-32.83 364.72,-37.85 375.14,-39.74 374.05,-32.83"/>
 </g>
 <!-- type~helio_nbody_system -->
 <g id="type~~swiftest_body~~InheritedByGraph_node14" class="node">
@@ -635,19 +635,14 @@ <h3 class="panel-title">Inherited by</h3>
 <!-- type~helio_nbody_system&#45;&gt;type~whm_nbody_system -->
 <g id="type~~swiftest_body~~InheritedByGraph_edge14" class="edge">
 <title>type~helio_nbody_system&#45;&gt;type~whm_nbody_system</title>
+<path fill="none" stroke="#000000" d="M658.06,-66.03C650.76,-68.86 643.08,-71.95 636,-75 616.1,-83.57 613.55,-93.77 592,-96"/>
 <path fill="none" stroke="#000000" d="M590,-96C579.12,-97.12 567.52,-97.68 556.25,-97.89"/>
 <polygon fill="#000000" stroke="#000000" points="555.98,-94.39 546.02,-97.99 556.05,-101.39 555.98,-94.39"/>
-<path fill="none" stroke="#000000" d="M658.06,-66.03C650.76,-68.86 643.08,-71.95 636,-75 616.1,-83.57 613.55,-93.77 592,-96"/>
-</g>
-<!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
-<g id="type~~swiftest_body~~InheritedByGraph_edge15" class="edge">
-<title>type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system</title>
-<path fill="none" stroke="#000000" d="M635.95,-94C621.62,-94.02 606.2,-94.53 592,-96"/>
 </g>
 <!-- type~symba_merger -->
-<g id="type~~swiftest_body~~InheritedByGraph_node16" class="node">
+<g id="type~~swiftest_body~~InheritedByGraph_node15" class="node">
 <title>type~symba_merger</title>
-<g id="a_type~~swiftest_body~~InheritedByGraph_node16"><a xlink:href=".././type/symba_merger.html" xlink:title="symba_merger">
+<g id="a_type~~swiftest_body~~InheritedByGraph_node15"><a xlink:href=".././type/symba_merger.html" xlink:title="symba_merger">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="734,-24 649,-24 649,0 734,0 734,-24"/>
 <text text-anchor="middle" x="691.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_merger</text>
 </a>
@@ -656,30 +651,35 @@ <h3 class="panel-title">Inherited by</h3>
 <!-- type~symba_merger&#45;&gt;type~symba_pl -->
 <g id="type~~swiftest_body~~InheritedByGraph_edge16" class="edge">
 <title>type~symba_merger&#45;&gt;type~symba_pl</title>
-<path fill="none" stroke="#000000" d="M648.89,-12.63C613.86,-13.16 564.17,-13.91 530.15,-14.42"/>
-<polygon fill="#000000" stroke="#000000" points="530.08,-10.92 520.13,-14.57 530.19,-17.92 530.08,-10.92"/>
+<path fill="none" stroke="#000000" d="M648.89,-13.26C613.86,-14.32 564.17,-15.82 530.15,-16.85"/>
+<polygon fill="#000000" stroke="#000000" points="530.02,-13.35 520.13,-17.15 530.24,-20.35 530.02,-13.35"/>
+</g>
+<!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
+<g id="type~~swiftest_body~~InheritedByGraph_edge15" class="edge">
+<title>type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system</title>
+<path fill="none" stroke="#000000" d="M635.95,-94C621.62,-94.02 606.2,-94.53 592,-96"/>
 </g>
 <!-- type~symba_nbody_system -->
 <g id="type~~swiftest_body~~InheritedByGraph_node17" class="node">
 <title>type~symba_nbody_system</title>
 <g id="a_type~~swiftest_body~~InheritedByGraph_node17"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="1028,-44 909,-44 909,-20 1028,-20 1028,-44"/>
-<text text-anchor="middle" x="968.5" y="-29.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="962,-63 843,-63 843,-39 962,-39 962,-63"/>
+<text text-anchor="middle" x="902.5" y="-48.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~symba_nbody_system&#45;&gt;type~helio_nbody_system -->
 <g id="type~~swiftest_body~~InheritedByGraph_edge17" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
-<path fill="none" stroke="#000000" d="M908.84,-36.69C864.26,-40.26 802.98,-45.16 757.01,-48.84"/>
-<polygon fill="#000000" stroke="#000000" points="756.55,-45.36 746.86,-49.65 757.11,-52.34 756.55,-45.36"/>
+<path fill="none" stroke="#000000" d="M842.73,-51.84C815.96,-52.23 784.21,-52.68 756.81,-53.08"/>
+<polygon fill="#000000" stroke="#000000" points="756.49,-49.58 746.54,-53.22 756.59,-56.58 756.49,-49.58"/>
 </g>
 <!-- type~symba_nbody_system&#45;&gt;type~symba_merger -->
-<g id="type~~swiftest_body~~InheritedByGraph_edge19" class="edge">
+<g id="type~~swiftest_body~~InheritedByGraph_edge18" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~symba_merger</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M908.66,-23.83C902.7,-23.15 896.74,-22.52 891,-22 841.21,-17.5 784.19,-14.89 744.08,-13.47"/>
-<polygon fill="#000000" stroke="#000000" points="744.12,-9.97 734.01,-13.13 743.88,-16.97 744.12,-9.97"/>
-<text text-anchor="middle" x="828" y="-24.4" font-family="Helvetica,sans-Serif" font-size="9.50">mergeadd_list, mergesub_list</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M842.73,-40.03C811.84,-34.27 774.31,-27.27 744.49,-21.7"/>
+<polygon fill="#000000" stroke="#000000" points="744.76,-18.19 734.29,-19.8 743.47,-25.07 744.76,-18.19"/>
+<text text-anchor="middle" x="795" y="-39.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl_adds</text>
 </g>
 </g>
 </svg>
@@ -1253,7 +1253,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -1305,21 +1305,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -3154,7 +3139,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/type/swiftest_cb.html b/docs/type/swiftest_cb.html
index 585728aca..07d5118c0 100644
--- a/docs/type/swiftest_cb.html
+++ b/docs/type/swiftest_cb.html
@@ -134,7 +134,7 @@ <h1>swiftest_cb
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 5.6% of total for derived types.</p>Including implementation: 30 statements,  4.3% of total for derived types.">30 statements</a>
+    title="<p> 5.5% of total for derived types.</p>Including implementation: 30 statements,  4.3% of total for derived types.">30 statements</a>
      </li> 
      
      
@@ -380,32 +380,32 @@ <h3 class="panel-title">Inherited by</h3>
 <polygon fill="none" stroke="black" points="65,-108 0,-108 0,-84 65,-84 65,-108"/>
 <text text-anchor="middle" x="32.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_cb</text>
 </g>
-<!-- type~whm_cb -->
+<!-- type~helio_cb -->
 <g id="type~~swiftest_cb~~InheritedByGraph_node2" class="node">
-<title>type~whm_cb</title>
-<g id="a_type~~swiftest_cb~~InheritedByGraph_node2"><a xlink:href=".././type/whm_cb.html" xlink:title="whm_cb">
+<title>type~helio_cb</title>
+<g id="a_type~~swiftest_cb~~InheritedByGraph_node2"><a xlink:href=".././type/helio_cb.html" xlink:title="helio_cb">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="199.5,-150 145.5,-150 145.5,-126 199.5,-126 199.5,-150"/>
-<text text-anchor="middle" x="172.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_cb</text>
+<text text-anchor="middle" x="172.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_cb</text>
 </a>
 </g>
 </g>
-<!-- type~whm_cb&#45;&gt;type~swiftest_cb -->
-<g id="type~~swiftest_cb~~InheritedByGraph_edge3" class="edge">
-<title>type~whm_cb&#45;&gt;type~swiftest_cb</title>
+<!-- type~helio_cb&#45;&gt;type~swiftest_cb -->
+<g id="type~~swiftest_cb~~InheritedByGraph_edge2" class="edge">
+<title>type~helio_cb&#45;&gt;type~swiftest_cb</title>
 <path fill="none" stroke="#000000" d="M145.32,-130.36C129.2,-125.9 108.05,-120.48 89,-117"/>
 </g>
-<!-- type~helio_cb -->
+<!-- type~whm_cb -->
 <g id="type~~swiftest_cb~~InheritedByGraph_node3" class="node">
-<title>type~helio_cb</title>
-<g id="a_type~~swiftest_cb~~InheritedByGraph_node3"><a xlink:href=".././type/helio_cb.html" xlink:title="helio_cb">
+<title>type~whm_cb</title>
+<g id="a_type~~swiftest_cb~~InheritedByGraph_node3"><a xlink:href=".././type/whm_cb.html" xlink:title="whm_cb">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="199.5,-108 145.5,-108 145.5,-84 199.5,-84 199.5,-108"/>
-<text text-anchor="middle" x="172.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_cb</text>
+<text text-anchor="middle" x="172.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_cb</text>
 </a>
 </g>
 </g>
-<!-- type~helio_cb&#45;&gt;type~swiftest_cb -->
-<g id="type~~swiftest_cb~~InheritedByGraph_edge2" class="edge">
-<title>type~helio_cb&#45;&gt;type~swiftest_cb</title>
+<!-- type~whm_cb&#45;&gt;type~swiftest_cb -->
+<g id="type~~swiftest_cb~~InheritedByGraph_edge3" class="edge">
+<title>type~whm_cb&#45;&gt;type~swiftest_cb</title>
 <path fill="none" stroke="#000000" d="M87,-117C80.62,-115.83 74.04,-113.91 67.76,-111.68"/>
 <polygon fill="#000000" stroke="#000000" points="68.81,-108.34 58.22,-108 66.29,-114.87 68.81,-108.34"/>
 <path fill="none" stroke="#000000" d="M145.18,-105.24C125.3,-111.74 99.69,-118.95 89,-117"/>
@@ -426,25 +426,40 @@ <h3 class="panel-title">Inherited by</h3>
 <polygon fill="#000000" stroke="#000000" points="73.72,-80.1 65.17,-86.36 75.76,-86.8 73.72,-80.1"/>
 <text text-anchor="middle" x="88" y="-81.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
 </g>
-<!-- type~rmvs_cb -->
+<!-- type~symba_cb -->
 <g id="type~~swiftest_cb~~InheritedByGraph_node5" class="node">
+<title>type~symba_cb</title>
+<g id="a_type~~swiftest_cb~~InheritedByGraph_node5"><a xlink:href=".././type/symba_cb.html" xlink:title="symba_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="356.5,-150 295.5,-150 295.5,-126 356.5,-126 356.5,-150"/>
+<text text-anchor="middle" x="326" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_cb</text>
+</a>
+</g>
+</g>
+<!-- type~symba_cb&#45;&gt;type~helio_cb -->
+<g id="type~~swiftest_cb~~InheritedByGraph_edge4" class="edge">
+<title>type~symba_cb&#45;&gt;type~helio_cb</title>
+<path fill="none" stroke="#000000" d="M295.43,-138C271.06,-138 236.38,-138 210.23,-138"/>
+<polygon fill="#000000" stroke="#000000" points="209.96,-134.5 199.96,-138 209.96,-141.5 209.96,-134.5"/>
+</g>
+<!-- type~rmvs_cb -->
+<g id="type~~swiftest_cb~~InheritedByGraph_node6" class="node">
 <title>type~rmvs_cb</title>
-<g id="a_type~~swiftest_cb~~InheritedByGraph_node5"><a xlink:href=".././type/rmvs_cb.html" xlink:title="rmvs_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="353,-150 299,-150 299,-126 353,-126 353,-150"/>
-<text text-anchor="middle" x="326" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_cb</text>
+<g id="a_type~~swiftest_cb~~InheritedByGraph_node6"><a xlink:href=".././type/rmvs_cb.html" xlink:title="rmvs_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="353,-108 299,-108 299,-84 353,-84 353,-108"/>
+<text text-anchor="middle" x="326" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_cb</text>
 </a>
 </g>
 </g>
 <!-- type~rmvs_cb&#45;&gt;type~whm_cb -->
-<g id="type~~swiftest_cb~~InheritedByGraph_edge4" class="edge">
+<g id="type~~swiftest_cb~~InheritedByGraph_edge5" class="edge">
 <title>type~rmvs_cb&#45;&gt;type~whm_cb</title>
-<path fill="none" stroke="#000000" d="M298.96,-138C274.35,-138 237.22,-138 209.73,-138"/>
-<polygon fill="#000000" stroke="#000000" points="209.71,-134.5 199.71,-138 209.71,-141.5 209.71,-134.5"/>
+<path fill="none" stroke="#000000" d="M298.96,-96C274.35,-96 237.22,-96 209.73,-96"/>
+<polygon fill="#000000" stroke="#000000" points="209.71,-92.5 199.71,-96 209.71,-99.5 209.71,-92.5"/>
 </g>
 <!-- type~whm_nbody_system -->
-<g id="type~~swiftest_cb~~InheritedByGraph_node6" class="node">
+<g id="type~~swiftest_cb~~InheritedByGraph_node7" class="node">
 <title>type~whm_nbody_system</title>
-<g id="a_type~~swiftest_cb~~InheritedByGraph_node6"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
+<g id="a_type~~swiftest_cb~~InheritedByGraph_node7"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="381,-66 271,-66 271,-42 381,-42 381,-66"/>
 <text text-anchor="middle" x="326" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
 </a>
@@ -456,21 +471,6 @@ <h3 class="panel-title">Inherited by</h3>
 <path fill="none" stroke="#000000" d="M270.73,-54C262.1,-54 253.05,-54 244.11,-54"/>
 <polygon fill="#000000" stroke="#000000" points="244.07,-50.5 234.07,-54 244.07,-57.5 244.07,-50.5"/>
 </g>
-<!-- type~symba_cb -->
-<g id="type~~swiftest_cb~~InheritedByGraph_node7" class="node">
-<title>type~symba_cb</title>
-<g id="a_type~~swiftest_cb~~InheritedByGraph_node7"><a xlink:href=".././type/symba_cb.html" xlink:title="symba_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="356.5,-108 295.5,-108 295.5,-84 356.5,-84 356.5,-108"/>
-<text text-anchor="middle" x="326" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_cb</text>
-</a>
-</g>
-</g>
-<!-- type~symba_cb&#45;&gt;type~helio_cb -->
-<g id="type~~swiftest_cb~~InheritedByGraph_edge5" class="edge">
-<title>type~symba_cb&#45;&gt;type~helio_cb</title>
-<path fill="none" stroke="#000000" d="M295.43,-96C271.06,-96 236.38,-96 210.23,-96"/>
-<polygon fill="#000000" stroke="#000000" points="209.96,-92.5 199.96,-96 209.96,-99.5 209.96,-92.5"/>
-</g>
 <!-- type~helio_nbody_system -->
 <g id="type~~swiftest_cb~~InheritedByGraph_node8" class="node">
 <title>type~helio_nbody_system</title>
@@ -485,10 +485,26 @@ <h3 class="panel-title">Inherited by</h3>
 <title>type~helio_nbody_system&#45;&gt;type~whm_nbody_system</title>
 <path fill="none" stroke="#000000" d="M481.42,-52C465.47,-51.95 448,-52.42 432,-54"/>
 </g>
-<!-- type~rmvs_nbody_system -->
+<!-- type~rmvs_tp -->
 <g id="type~~swiftest_cb~~InheritedByGraph_node9" class="node">
+<title>type~rmvs_tp</title>
+<g id="a_type~~swiftest_cb~~InheritedByGraph_node9"><a xlink:href=".././type/rmvs_tp.html" xlink:title="rmvs_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="563.5,-108 509.5,-108 509.5,-84 563.5,-84 563.5,-108"/>
+<text text-anchor="middle" x="536.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_tp</text>
+</a>
+</g>
+</g>
+<!-- type~rmvs_tp&#45;&gt;type~rmvs_cb -->
+<g id="type~~swiftest_cb~~InheritedByGraph_edge7" class="edge">
+<title>type~rmvs_tp&#45;&gt;type~rmvs_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.09,-96C472.2,-96 405.08,-96 363.45,-96"/>
+<polygon fill="#000000" stroke="#000000" points="363.19,-92.5 353.19,-96 363.19,-99.5 363.19,-92.5"/>
+<text text-anchor="middle" x="431" y="-98.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb_heliocentric</text>
+</g>
+<!-- type~rmvs_nbody_system -->
+<g id="type~~swiftest_cb~~InheritedByGraph_node10" class="node">
 <title>type~rmvs_nbody_system</title>
-<g id="a_type~~swiftest_cb~~InheritedByGraph_node9"><a xlink:href=".././type/rmvs_nbody_system.html" xlink:title="rmvs_nbody_system">
+<g id="a_type~~swiftest_cb~~InheritedByGraph_node10"><a xlink:href=".././type/rmvs_nbody_system.html" xlink:title="rmvs_nbody_system">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="592,-24 481,-24 481,0 592,0 592,-24"/>
 <text text-anchor="middle" x="536.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_nbody_system</text>
 </a>
@@ -501,22 +517,6 @@ <h3 class="panel-title">Inherited by</h3>
 <path fill="none" stroke="#000000" d="M430,-54C417.5,-55.23 404.11,-55.79 391.26,-55.95"/>
 <polygon fill="#000000" stroke="#000000" points="391.07,-52.45 381.09,-55.99 391.1,-59.45 391.07,-52.45"/>
 </g>
-<!-- type~rmvs_tp -->
-<g id="type~~swiftest_cb~~InheritedByGraph_node10" class="node">
-<title>type~rmvs_tp</title>
-<g id="a_type~~swiftest_cb~~InheritedByGraph_node10"><a xlink:href=".././type/rmvs_tp.html" xlink:title="rmvs_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="563.5,-150 509.5,-150 509.5,-126 563.5,-126 563.5,-150"/>
-<text text-anchor="middle" x="536.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_tp</text>
-</a>
-</g>
-</g>
-<!-- type~rmvs_tp&#45;&gt;type~rmvs_cb -->
-<g id="type~~swiftest_cb~~InheritedByGraph_edge7" class="edge">
-<title>type~rmvs_tp&#45;&gt;type~rmvs_cb</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M509.09,-138C472.2,-138 405.08,-138 363.45,-138"/>
-<polygon fill="#000000" stroke="#000000" points="363.19,-134.5 353.19,-138 363.19,-141.5 363.19,-134.5"/>
-<text text-anchor="middle" x="431" y="-140.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb_heliocentric</text>
-</g>
 <!-- type~rmvs_pl -->
 <g id="type~~swiftest_cb~~InheritedByGraph_node11" class="node">
 <title>type~rmvs_pl</title>
@@ -1094,7 +1094,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -1146,21 +1146,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
diff --git a/docs/type/swiftest_encounter.html b/docs/type/swiftest_encounter.html
index f05df9fff..d1969a8a4 100644
--- a/docs/type/swiftest_encounter.html
+++ b/docs/type/swiftest_encounter.html
@@ -286,26 +286,10 @@ <h3 class="panel-title">Inherited by</h3>
 <path fill="none" stroke="#000000" d="M138.78,-60C130.26,-60 121.14,-60 112.12,-60"/>
 <polygon fill="#000000" stroke="#000000" points="112.03,-56.5 102.03,-60 112.03,-63.5 112.03,-56.5"/>
 </g>
-<!-- type~symba_plplenc -->
-<g id="type~~swiftest_encounter~~InheritedByGraph_node3" class="node">
-<title>type~symba_plplenc</title>
-<g id="a_type~~swiftest_encounter~~InheritedByGraph_node3"><a xlink:href=".././type/symba_plplenc.html" xlink:title="symba_plplenc">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="345,-24 261,-24 261,0 345,0 345,-24"/>
-<text text-anchor="middle" x="303" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_plplenc</text>
-</a>
-</g>
-</g>
-<!-- type~symba_plplenc&#45;&gt;type~symba_pltpenc -->
-<g id="type~~swiftest_encounter~~InheritedByGraph_edge3" class="edge">
-<title>type~symba_plplenc&#45;&gt;type~symba_pltpenc</title>
-<path fill="none" stroke="#000000" d="M280.22,-24.01C273.73,-28.05 266.8,-32.86 261,-38 251.54,-46.38 255.41,-57.63 243,-60"/>
-<path fill="none" stroke="#000000" d="M242,-60C239.51,-60.48 236.96,-60.86 234.37,-61.17"/>
-<polygon fill="#000000" stroke="#000000" points="233.98,-57.69 224.3,-61.99 234.55,-64.66 233.98,-57.69"/>
-</g>
 <!-- type~symba_nbody_system -->
-<g id="type~~swiftest_encounter~~InheritedByGraph_node4" class="node">
+<g id="type~~swiftest_encounter~~InheritedByGraph_node3" class="node">
 <title>type~symba_nbody_system</title>
-<g id="a_type~~swiftest_encounter~~InheritedByGraph_node4"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
+<g id="a_type~~swiftest_encounter~~InheritedByGraph_node3"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="548,-48 429,-48 429,-24 548,-24 548,-48"/>
 <text text-anchor="middle" x="488.5" y="-33.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
 </a>
@@ -317,6 +301,15 @@ <h3 class="panel-title">Inherited by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M428.77,-40.53C368.03,-45.43 277.35,-53.44 243,-60"/>
 <text text-anchor="middle" x="303" y="-59.4" font-family="Helvetica,sans-Serif" font-size="9.50">pltpenc_list</text>
 </g>
+<!-- type~symba_plplenc -->
+<g id="type~~swiftest_encounter~~InheritedByGraph_node4" class="node">
+<title>type~symba_plplenc</title>
+<g id="a_type~~swiftest_encounter~~InheritedByGraph_node4"><a xlink:href=".././type/symba_plplenc.html" xlink:title="symba_plplenc">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="345,-24 261,-24 261,0 345,0 345,-24"/>
+<text text-anchor="middle" x="303" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_plplenc</text>
+</a>
+</g>
+</g>
 <!-- type~symba_nbody_system&#45;&gt;type~symba_plplenc -->
 <g id="type~~swiftest_encounter~~InheritedByGraph_edge4" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~symba_plplenc</title>
@@ -324,6 +317,13 @@ <h3 class="panel-title">Inherited by</h3>
 <polygon fill="#000000" stroke="#000000" points="355.55,-15.21 345.18,-17.39 354.65,-22.15 355.55,-15.21"/>
 <text text-anchor="middle" x="387" y="-28.4" font-family="Helvetica,sans-Serif" font-size="9.50">plplenc_list</text>
 </g>
+<!-- type~symba_plplenc&#45;&gt;type~symba_pltpenc -->
+<g id="type~~swiftest_encounter~~InheritedByGraph_edge3" class="edge">
+<title>type~symba_plplenc&#45;&gt;type~symba_pltpenc</title>
+<path fill="none" stroke="#000000" d="M280.22,-24.01C273.73,-28.05 266.8,-32.86 261,-38 251.54,-46.38 255.41,-57.63 243,-60"/>
+<path fill="none" stroke="#000000" d="M242,-60C239.51,-60.48 236.96,-60.86 234.37,-61.17"/>
+<polygon fill="#000000" stroke="#000000" points="233.98,-57.69 224.3,-61.99 234.55,-64.66 233.98,-57.69"/>
+</g>
 </g>
 </svg>
 </div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
diff --git a/docs/type/swiftest_nbody_system.html b/docs/type/swiftest_nbody_system.html
index e1100512a..b0de6ff36 100644
--- a/docs/type/swiftest_nbody_system.html
+++ b/docs/type/swiftest_nbody_system.html
@@ -134,7 +134,7 @@ <h1>swiftest_nbody_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 5.7% of total for derived types.</p>Including implementation: 31 statements,  4.4% of total for derived types.">31 statements</a>
+    title="<p> 6.3% of total for derived types.</p>Including implementation: 34 statements,  4.9% of total for derived types.">34 statements</a>
      </li> 
      
      
@@ -189,6 +189,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-tp_discards">tp_discards</a>
       
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-pl_discards">pl_discards</a>
+      
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-gmtot">Gmtot</a>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-ke_orbit">ke_orbit</a>
@@ -255,7 +257,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-write_frame">write_frame</a>
       
-      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-initialize~8">initialize</a>
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-initialize~7">initialize</a>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-step_spin">step_spin</a>
       
@@ -263,6 +265,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-get_energy_and_momentum">get_energy_and_momentum</a>
       
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-rescale">rescale</a>
+      
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-validate_ids">validate_ids</a>
+      
     </div>
   </div>
 </div>
@@ -292,111 +298,111 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~swiftest_nbody_system~~InheritsGraph Pages: 1 -->
-<svg id="typeswiftest_nbody_systemInheritsGraph" width="585pt" height="125pt"
- viewBox="0.00 0.00 585.00 124.61" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~swiftest_nbody_system~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 120.61)">
+<svg id="typeswiftest_nbody_systemInheritsGraph" width="585pt" height="124pt"
+ viewBox="0.00 0.00 585.00 124.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~swiftest_nbody_system~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 120)">
 <title>type~~swiftest_nbody_system~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-120.61 581,-120.61 581,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-120 581,-120 581,4 -4,4"/>
 <!-- type~swiftest_nbody_system -->
 <g id="type~~swiftest_nbody_system~~InheritsGraph_node1" class="node">
 <title>type~swiftest_nbody_system</title>
-<polygon fill="none" stroke="black" points="577,-79.61 454,-79.61 454,-55.61 577,-55.61 577,-79.61"/>
-<text text-anchor="middle" x="515.5" y="-65.21" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_nbody_system</text>
+<polygon fill="none" stroke="black" points="577,-64 454,-64 454,-40 577,-40 577,-64"/>
+<text text-anchor="middle" x="515.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">swiftest_nbody_system</text>
 </g>
-<!-- type~swiftest_cb -->
+<!-- type~swiftest_tp -->
 <g id="type~~swiftest_nbody_system~~InheritsGraph_node2" class="node">
-<title>type~swiftest_cb</title>
-<g id="a_type~~swiftest_nbody_system~~InheritsGraph_node2"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="274,-113.61 209,-113.61 209,-89.61 274,-89.61 274,-113.61"/>
-<text text-anchor="middle" x="241.5" y="-99.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
+<title>type~swiftest_tp</title>
+<g id="a_type~~swiftest_nbody_system~~InheritsGraph_node2"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="355,-43 292,-43 292,-19 355,-19 355,-43"/>
+<text text-anchor="middle" x="323.5" y="-28.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
-<g id="type~~swiftest_nbody_system~~InheritsGraph_edge1" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.55,-79.64C469.25,-84.83 451.94,-90.62 436,-94.61 373.66,-110.21 356.14,-111.48 292,-107.61 289.47,-107.46 286.87,-107.26 284.24,-107.03"/>
-<polygon fill="#000000" stroke="#000000" points="284.44,-103.53 274.14,-106.02 283.74,-110.5 284.44,-103.53"/>
-<text text-anchor="middle" x="404.5" y="-109.01" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_tp -->
+<g id="type~~swiftest_nbody_system~~InheritsGraph_edge3" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.86,-45.3C424.94,-42.1 391.11,-38.36 365.3,-35.51"/>
+<polygon fill="#000000" stroke="#000000" points="365.44,-32 355.12,-34.38 364.67,-38.96 365.44,-32"/>
+<text text-anchor="middle" x="404.5" y="-44.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </g>
-<!-- type~swiftest_tp -->
+<!-- type~swiftest_base -->
 <g id="type~~swiftest_nbody_system~~InheritsGraph_node3" class="node">
-<title>type~swiftest_tp</title>
-<g id="a_type~~swiftest_nbody_system~~InheritsGraph_node3"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="355,-98.61 292,-98.61 292,-74.61 355,-74.61 355,-98.61"/>
-<text text-anchor="middle" x="323.5" y="-84.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
+<title>type~swiftest_base</title>
+<g id="a_type~~swiftest_nbody_system~~InheritsGraph_node3"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-85 0,-85 0,-61 77,-61 77,-85"/>
+<text text-anchor="middle" x="38.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_tp -->
-<g id="type~~swiftest_nbody_system~~InheritsGraph_edge3" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.86,-73.67C424.94,-76.57 391.11,-79.95 365.3,-82.53"/>
-<polygon fill="#000000" stroke="#000000" points="364.72,-79.07 355.12,-83.55 365.42,-86.04 364.72,-79.07"/>
-<text text-anchor="middle" x="404.5" y="-83.01" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_base -->
+<g id="type~~swiftest_nbody_system~~InheritsGraph_edge4" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M485.85,-64.11C471.17,-69.93 452.86,-76.58 436,-81 400.73,-90.25 391.35,-91.1 355,-94 248.23,-102.51 211.31,-138.76 114,-94 102.83,-88.86 108.29,-73.11 96,-73"/>
 </g>
 <!-- type~swiftest_pl -->
 <g id="type~~swiftest_nbody_system~~InheritsGraph_node4" class="node">
 <title>type~swiftest_pl</title>
 <g id="a_type~~swiftest_nbody_system~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="354.5,-56.61 292.5,-56.61 292.5,-32.61 354.5,-32.61 354.5,-56.61"/>
-<text text-anchor="middle" x="323.5" y="-42.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="354.5,-85 292.5,-85 292.5,-61 354.5,-61 354.5,-85"/>
+<text text-anchor="middle" x="323.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_pl -->
 <g id="type~~swiftest_nbody_system~~InheritsGraph_edge2" class="edge">
 <title>type~swiftest_nbody_system&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.86,-60.27C424.75,-56.75 390.66,-52.62 364.79,-49.49"/>
-<polygon fill="#000000" stroke="#000000" points="364.94,-45.98 354.59,-48.25 364.1,-52.93 364.94,-45.98"/>
-<text text-anchor="middle" x="404.5" y="-59.01" font-family="Helvetica,sans-Serif" font-size="9.50">pl</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.86,-58.7C424.75,-61.92 390.66,-65.69 364.79,-68.55"/>
+<polygon fill="#000000" stroke="#000000" points="364.15,-65.1 354.59,-69.67 364.92,-72.05 364.15,-65.1"/>
+<text text-anchor="middle" x="404.5" y="-69.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </g>
-<!-- type~swiftest_base -->
+<!-- type~swiftest_cb -->
 <g id="type~~swiftest_nbody_system~~InheritsGraph_node5" class="node">
-<title>type~swiftest_base</title>
-<g id="a_type~~swiftest_nbody_system~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-56.61 0,-56.61 0,-32.61 77,-32.61 77,-56.61"/>
-<text text-anchor="middle" x="38.5" y="-42.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
+<title>type~swiftest_cb</title>
+<g id="a_type~~swiftest_nbody_system~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="274,-24 209,-24 209,0 274,0 274,-24"/>
+<text text-anchor="middle" x="241.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_base -->
-<g id="type~~swiftest_nbody_system~~InheritsGraph_edge4" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M481.13,-55.57C449.24,-44.74 399.55,-29.64 355,-23.61 248.86,-9.24 211.31,21.15 114,-23.61 102.83,-28.75 108.29,-44.43 96,-44.61"/>
-<path fill="none" stroke="#000000" d="M95,-44.61C92.47,-44.6 89.88,-44.58 87.26,-44.57"/>
-<polygon fill="#000000" stroke="#000000" points="87.12,-41.07 77.12,-44.55 87.11,-48.07 87.12,-41.07"/>
-</g>
-<!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
-<g id="type~~swiftest_nbody_system~~InheritsGraph_edge5" class="edge">
-<title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M208.77,-97.8C181.83,-93.39 143.03,-84.21 114,-65.61 103.65,-58.98 108.29,-44.61 96,-44.61"/>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
+<g id="type~~swiftest_nbody_system~~InheritsGraph_edge1" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.37,-39.95C472.47,-33.76 453.5,-26.58 436,-22 373.87,-5.73 356.21,-8.7 292,-10 289.48,-10.05 286.89,-10.12 284.27,-10.19"/>
+<polygon fill="#000000" stroke="#000000" points="284.06,-6.7 274.18,-10.53 284.29,-13.69 284.06,-6.7"/>
+<text text-anchor="middle" x="404.5" y="-24.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
 </g>
 <!-- type~swiftest_body -->
 <g id="type~~swiftest_nbody_system~~InheritsGraph_node6" class="node">
 <title>type~swiftest_body</title>
 <g id="a_type~~swiftest_nbody_system~~InheritsGraph_node6"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-56.61 114,-56.61 114,-32.61 191,-32.61 191,-56.61"/>
-<text text-anchor="middle" x="152.5" y="-42.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-85 114,-85 114,-61 191,-61 191,-85"/>
+<text text-anchor="middle" x="152.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_tp&#45;&gt;type~swiftest_body -->
-<g id="type~~swiftest_nbody_system~~InheritsGraph_edge6" class="edge">
+<g id="type~~swiftest_nbody_system~~InheritsGraph_edge5" class="edge">
 <title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M291.99,-78.12C277.18,-74.42 259.05,-70.5 242.5,-68.61"/>
+<path fill="none" stroke="#000000" d="M303.16,-43.19C283.79,-55.01 255.11,-71.41 242.5,-73"/>
+<path fill="none" stroke="#000000" d="M240.5,-73C227.97,-74.58 214.35,-75.13 201.68,-75.15"/>
+<polygon fill="#000000" stroke="#000000" points="201.34,-71.64 191.31,-75.05 201.28,-78.64 201.34,-71.64"/>
 </g>
 <!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
-<g id="type~~swiftest_nbody_system~~InheritsGraph_edge7" class="edge">
+<g id="type~~swiftest_nbody_system~~InheritsGraph_edge6" class="edge">
 <title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M240.5,-68.61C226.22,-66.98 211,-63.44 197.35,-59.56"/>
-<polygon fill="#000000" stroke="#000000" points="198.31,-56.2 187.73,-56.71 196.32,-62.91 198.31,-56.2"/>
-<path fill="none" stroke="#000000" d="M299.85,-56.65C284.08,-63.72 262.38,-70.88 242.5,-68.61"/>
+<path fill="none" stroke="#000000" d="M292.38,-71.22C277.34,-70.79 258.9,-70.93 242.5,-73"/>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
+<g id="type~~swiftest_nbody_system~~InheritsGraph_edge7" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M208.76,-16.99C181.81,-22.35 143.01,-32.82 114,-52 103.75,-58.78 108.29,-73 96,-73"/>
+<path fill="none" stroke="#000000" d="M95,-73C92.47,-72.98 89.88,-72.96 87.26,-72.95"/>
+<polygon fill="#000000" stroke="#000000" points="87.13,-69.45 77.12,-72.91 87.1,-76.45 87.13,-69.45"/>
 </g>
 <!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
 <g id="type~~swiftest_nbody_system~~InheritsGraph_edge8" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M113.88,-44.61C107.9,-44.61 101.78,-44.61 96,-44.61"/>
+<path fill="none" stroke="#000000" d="M113.88,-73C107.9,-73 101.78,-73 96,-73"/>
 </g>
 </g>
 </svg>
@@ -601,6 +607,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-tp_discards">tp_discards</a>
       
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-pl_discards">pl_discards</a>
+      
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-gmtot">Gmtot</a>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#variable-ke_orbit">ke_orbit</a>
@@ -667,7 +675,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-write_frame">write_frame</a>
       
-      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-initialize~8">initialize</a>
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-initialize~7">initialize</a>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-step_spin">step_spin</a>
       
@@ -675,6 +683,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-get_energy_and_momentum">get_energy_and_momentum</a>
       
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-rescale">rescale</a>
+      
+      <a class="list-group-item" href="../type/swiftest_nbody_system.html#boundprocedure-validate_ids">validate_ids</a>
+      
     </div>
   </div>
 </div>
@@ -773,6 +785,20 @@ <h2>Components</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-pl_discards"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  
+  <td>public,</td>
+  <td>allocatable</td><td>::</td>
+  <td><strong>pl_discards</strong></td><td></td><td></td><td><p>Discarded massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-gmtot"></span>real(kind=DP),</td>
@@ -1311,7 +1337,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_system(self, param, msg)
+public module subroutine io_dump_system(self, param)
     
     
    
@@ -1363,21 +1389,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -1734,7 +1745,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~8"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/setup_initialize_system.html'>setup_initialize_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~7"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/setup_initialize_system.html'>setup_initialize_system</a> 
     
   </h3></div>
   
@@ -2113,6 +2124,237 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-rescale"></span><h3>procedure, public :: <strong>rescale</strong>  => <a href='../interface/util_rescale_system.html'>util_rescale_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Rescales the system into a new set of units</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_rescale_system(self, param, mscale, dscale, tscale)
+    
+    
+   
+   <a href='../proc/util_rescale_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters. Returns with new values of the scale vactors and GU</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>mscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>tscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-validate_ids"></span><h3>procedure, public :: <strong>validate_ids</strong>  => <a href='../interface/util_valid_id_system.html'>util_valid_id_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Validate the numerical ids passed to the system and save the maximum value</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_valid_id_system(self, param)
+    
+    
+   
+   <a href='../proc/util_valid_id_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
       </li>
     
   </ul>
diff --git a/docs/type/swiftest_parameters.html b/docs/type/swiftest_parameters.html
index 9f889f2a3..4e3601216 100644
--- a/docs/type/swiftest_parameters.html
+++ b/docs/type/swiftest_parameters.html
@@ -134,7 +134,7 @@ <h1>swiftest_parameters
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p>11.7% of total for derived types.</p>Including implementation: 63 statements,  9.0% of total for derived types.">63 statements</a>
+    title="<p>11.8% of total for derived types.</p>Including implementation: 64 statements,  9.1% of total for derived types.">64 statements</a>
      </li> 
      
      
@@ -241,7 +241,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-inv_c2">inv_c2</a>
       
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-ennergy_out">ennergy_out</a>
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-energy_out">energy_out</a>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lrhill_present">lrhill_present</a>
       
@@ -285,6 +285,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lfirstkick">lfirstkick</a>
       
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lrestart">lrestart</a>
+      
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lgr">lgr</a>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lyarkovsky">lyarkovsky</a>
@@ -497,7 +499,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-inv_c2">inv_c2</a>
       
-      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-ennergy_out">ennergy_out</a>
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-energy_out">energy_out</a>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lrhill_present">lrhill_present</a>
       
@@ -541,6 +543,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lfirstkick">lfirstkick</a>
       
+      <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lrestart">lrestart</a>
+      
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lgr">lgr</a>
       
       <a class="list-group-item" href="../type/swiftest_parameters.html#variable-lyarkovsky">lyarkovsky</a>
@@ -1045,11 +1049,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ennergy_out"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-energy_out"></span>character(len=STRMAX),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>ennergy_out</strong></td><td> =</td><td>""</td><td><p>Name of output energy and momentum report file</p></td>
+  <td><strong>energy_out</strong></td><td> =</td><td>""</td><td><p>Name of output energy and momentum report file</p></td>
   
 </tr>
 
@@ -1351,6 +1355,20 @@ <h2>Components</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-lrestart"></span>logical,</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>lrestart</strong></td><td> =</td><td>.false.</td><td><p>Indicates whether or not this is a restarted run</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-lgr"></span>logical,</td>
diff --git a/docs/type/swiftest_pl.html b/docs/type/swiftest_pl.html
index f874daca2..903e79706 100644
--- a/docs/type/swiftest_pl.html
+++ b/docs/type/swiftest_pl.html
@@ -467,11 +467,11 @@ <h3 class="panel-title">Inherited by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~swiftest_pl~~InheritedByGraph Pages: 1 -->
-<svg id="typeswiftest_plInheritedByGraph" width="641pt" height="100pt"
- viewBox="0.00 0.00 641.00 99.92" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~swiftest_pl~~InheritedByGraph" class="graph" transform="scale(0.74 0.74) rotate(0) translate(4 131)">
+<svg id="typeswiftest_plInheritedByGraph" width="641pt" height="101pt"
+ viewBox="0.00 0.00 641.00 101.45" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~swiftest_pl~~InheritedByGraph" class="graph" transform="scale(0.75 0.75) rotate(0) translate(4 131)">
 <title>type~~swiftest_pl~~InheritedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-131 862,-131 862,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-131 849,-131 849,4 -4,4"/>
 <!-- type~swiftest_pl -->
 <g id="type~~swiftest_pl~~InheritedByGraph_node1" class="node">
 <title>type~swiftest_pl</title>
@@ -482,166 +482,166 @@ <h3 class="panel-title">Inherited by</h3>
 <g id="type~~swiftest_pl~~InheritedByGraph_node2" class="node">
 <title>type~helio_pl</title>
 <g id="a_type~~swiftest_pl~~InheritedByGraph_node2"><a xlink:href=".././type/helio_pl.html" xlink:title="helio_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="194.5,-127 140.5,-127 140.5,-103 194.5,-103 194.5,-127"/>
-<text text-anchor="middle" x="167.5" y="-112.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="247.5,-127 193.5,-127 193.5,-103 247.5,-103 247.5,-127"/>
+<text text-anchor="middle" x="220.5" y="-112.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
 </a>
 </g>
 </g>
 <!-- type~helio_pl&#45;&gt;type~swiftest_pl -->
 <g id="type~~swiftest_pl~~InheritedByGraph_edge2" class="edge">
 <title>type~helio_pl&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" d="M140.25,-106.8C120.89,-100.76 94.2,-92.42 72.17,-85.54"/>
-<polygon fill="#000000" stroke="#000000" points="73.01,-82.14 62.42,-82.5 70.92,-88.82 73.01,-82.14"/>
+<path fill="none" stroke="#000000" d="M193.38,-110.45C165.25,-105.39 119.22,-96.64 80,-87 77.36,-86.35 74.66,-85.65 71.93,-84.93"/>
+<polygon fill="#000000" stroke="#000000" points="72.68,-81.5 62.11,-82.21 70.81,-88.25 72.68,-81.5"/>
 </g>
 <!-- type~whm_pl -->
 <g id="type~~swiftest_pl~~InheritedByGraph_node3" class="node">
 <title>type~whm_pl</title>
 <g id="a_type~~swiftest_pl~~InheritedByGraph_node3"><a xlink:href=".././type/whm_pl.html" xlink:title="whm_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="448,-24 394,-24 394,0 448,0 448,-24"/>
-<text text-anchor="middle" x="421" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_pl</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="501,-24 447,-24 447,0 501,0 501,-24"/>
+<text text-anchor="middle" x="474" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_pl</text>
 </a>
 </g>
 </g>
 <!-- type~whm_pl&#45;&gt;type~swiftest_pl -->
 <g id="type~~swiftest_pl~~InheritedByGraph_edge3" class="edge">
 <title>type~whm_pl&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" d="M393.73,-14.01C339.53,-18.44 211.53,-30.43 106,-52 94.88,-54.27 82.99,-57.35 72.06,-60.45"/>
-<polygon fill="#000000" stroke="#000000" points="70.97,-57.12 62.35,-63.28 72.93,-63.84 70.97,-57.12"/>
+<path fill="none" stroke="#000000" d="M446.9,-14.99C393.02,-21.24 265.58,-36.41 159,-52 129.98,-56.25 97.33,-61.66 72.41,-65.93"/>
+<polygon fill="#000000" stroke="#000000" points="71.49,-62.53 62.23,-67.68 72.68,-69.43 71.49,-62.53"/>
 </g>
 <!-- type~swiftest_nbody_system -->
 <g id="type~~swiftest_pl~~InheritedByGraph_node4" class="node">
 <title>type~swiftest_nbody_system</title>
 <g id="a_type~~swiftest_pl~~InheritedByGraph_node4"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="229,-85 106,-85 106,-61 229,-61 229,-85"/>
-<text text-anchor="middle" x="167.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_nbody_system</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="282,-85 159,-85 159,-61 282,-61 282,-85"/>
+<text text-anchor="middle" x="220.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_pl -->
 <g id="type~~swiftest_pl~~InheritedByGraph_edge1" class="edge">
 <title>type~swiftest_nbody_system&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M105.94,-73C94.54,-73 82.88,-73 72.29,-73"/>
-<polygon fill="#000000" stroke="#000000" points="72.1,-69.5 62.1,-73 72.1,-76.5 72.1,-69.5"/>
-<text text-anchor="middle" x="84" y="-75.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M158.88,-73C130.61,-73 97.72,-73 72.52,-73"/>
+<polygon fill="#000000" stroke="#000000" points="72.22,-69.5 62.22,-73 72.22,-76.5 72.22,-69.5"/>
+<text text-anchor="middle" x="110.5" y="-75.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </g>
-<!-- type~whm_nbody_system -->
+<!-- type~rmvs_pl -->
 <g id="type~~swiftest_pl~~InheritedByGraph_node5" class="node">
+<title>type~rmvs_pl</title>
+<g id="a_type~~swiftest_pl~~InheritedByGraph_node5"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="812.5,-36 758.5,-36 758.5,-12 812.5,-12 812.5,-36"/>
+<text text-anchor="middle" x="785.5" y="-21.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_pl</text>
+</a>
+</g>
+</g>
+<!-- type~rmvs_pl&#45;&gt;type~whm_pl -->
+<g id="type~~swiftest_pl~~InheritedByGraph_edge5" class="edge">
+<title>type~rmvs_pl&#45;&gt;type~whm_pl</title>
+<path fill="none" stroke="#000000" d="M758.31,-20.9C727.61,-17.43 675.2,-12.04 630,-10 580.72,-7.77 568.32,-8.88 519,-10 516.46,-10.06 513.83,-10.13 511.19,-10.22"/>
+<polygon fill="#000000" stroke="#000000" points="510.91,-6.73 501.05,-10.62 511.18,-13.73 510.91,-6.73"/>
+</g>
+<!-- type~rmvs_nbody_system -->
+<g id="type~~swiftest_pl~~InheritedByGraph_node10" class="node">
+<title>type~rmvs_nbody_system</title>
+<g id="a_type~~swiftest_pl~~InheritedByGraph_node10"><a xlink:href=".././type/rmvs_nbody_system.html" xlink:title="rmvs_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="630,-43 519,-43 519,-19 630,-19 630,-43"/>
+<text text-anchor="middle" x="574.5" y="-28.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_nbody_system</text>
+</a>
+</g>
+</g>
+<!-- type~rmvs_pl&#45;&gt;type~rmvs_nbody_system -->
+<g id="type~~swiftest_pl~~InheritedByGraph_edge12" class="edge">
+<title>type~rmvs_pl&#45;&gt;type~rmvs_nbody_system</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M758.45,-24.87C729.06,-25.86 680.15,-27.49 640.29,-28.83"/>
+<polygon fill="#000000" stroke="#000000" points="639.99,-25.34 630.11,-29.17 640.22,-32.33 639.99,-25.34"/>
+<text text-anchor="middle" x="678" y="-30.4" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
+</g>
+<!-- type~whm_nbody_system -->
+<g id="type~~swiftest_pl~~InheritedByGraph_node6" class="node">
 <title>type~whm_nbody_system</title>
-<g id="a_type~~swiftest_pl~~InheritedByGraph_node5"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="376,-85 266,-85 266,-61 376,-61 376,-85"/>
-<text text-anchor="middle" x="321" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
+<g id="a_type~~swiftest_pl~~InheritedByGraph_node6"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="429,-85 319,-85 319,-61 429,-61 429,-85"/>
+<text text-anchor="middle" x="374" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system -->
 <g id="type~~swiftest_pl~~InheritedByGraph_edge6" class="edge">
 <title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
-<path fill="none" stroke="#000000" d="M265.73,-73C257.1,-73 248.05,-73 239.11,-73"/>
-<polygon fill="#000000" stroke="#000000" points="239.07,-69.5 229.07,-73 239.07,-76.5 239.07,-69.5"/>
+<path fill="none" stroke="#000000" d="M318.73,-73C310.1,-73 301.05,-73 292.11,-73"/>
+<polygon fill="#000000" stroke="#000000" points="292.07,-69.5 282.07,-73 292.07,-76.5 292.07,-69.5"/>
 </g>
 <!-- type~symba_pl -->
-<g id="type~~swiftest_pl~~InheritedByGraph_node6" class="node">
+<g id="type~~swiftest_pl~~InheritedByGraph_node7" class="node">
 <title>type~symba_pl</title>
-<g id="a_type~~swiftest_pl~~InheritedByGraph_node6"><a xlink:href=".././type/symba_pl.html" xlink:title="symba_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="350,-127 292,-127 292,-103 350,-103 350,-127"/>
-<text text-anchor="middle" x="321" y="-112.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pl</text>
+<g id="a_type~~swiftest_pl~~InheritedByGraph_node7"><a xlink:href=".././type/symba_pl.html" xlink:title="symba_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="403,-127 345,-127 345,-103 403,-103 403,-127"/>
+<text text-anchor="middle" x="374" y="-112.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pl</text>
 </a>
 </g>
 </g>
 <!-- type~symba_pl&#45;&gt;type~helio_pl -->
 <g id="type~~swiftest_pl~~InheritedByGraph_edge4" class="edge">
 <title>type~symba_pl&#45;&gt;type~helio_pl</title>
-<path fill="none" stroke="#000000" d="M291.86,-115C267.31,-115 231.53,-115 204.83,-115"/>
-<polygon fill="#000000" stroke="#000000" points="204.72,-111.5 194.72,-115 204.72,-118.5 204.72,-111.5"/>
-</g>
-<!-- type~rmvs_pl -->
-<g id="type~~swiftest_pl~~InheritedByGraph_node7" class="node">
-<title>type~rmvs_pl</title>
-<g id="a_type~~swiftest_pl~~InheritedByGraph_node7"><a xlink:href=".././type/rmvs_pl.html" xlink:title="rmvs_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="825.5,-36 771.5,-36 771.5,-12 825.5,-12 825.5,-36"/>
-<text text-anchor="middle" x="798.5" y="-21.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_pl</text>
-</a>
-</g>
-</g>
-<!-- type~rmvs_pl&#45;&gt;type~whm_pl -->
-<g id="type~~swiftest_pl~~InheritedByGraph_edge5" class="edge">
-<title>type~rmvs_pl&#45;&gt;type~whm_pl</title>
-<path fill="none" stroke="#000000" d="M771.39,-21.8C730.14,-18.46 647.35,-12.23 577,-10 527.69,-8.44 515.32,-8.88 466,-10 463.46,-10.06 460.83,-10.13 458.19,-10.22"/>
-<polygon fill="#000000" stroke="#000000" points="457.91,-6.73 448.05,-10.62 458.18,-13.73 457.91,-6.73"/>
-</g>
-<!-- type~rmvs_nbody_system -->
-<g id="type~~swiftest_pl~~InheritedByGraph_node9" class="node">
-<title>type~rmvs_nbody_system</title>
-<g id="a_type~~swiftest_pl~~InheritedByGraph_node9"><a xlink:href=".././type/rmvs_nbody_system.html" xlink:title="rmvs_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="577,-43 466,-43 466,-19 577,-19 577,-43"/>
-<text text-anchor="middle" x="521.5" y="-28.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">rmvs_nbody_system</text>
-</a>
-</g>
-</g>
-<!-- type~rmvs_pl&#45;&gt;type~rmvs_nbody_system -->
-<g id="type~~swiftest_pl~~InheritedByGraph_edge11" class="edge">
-<title>type~rmvs_pl&#45;&gt;type~rmvs_nbody_system</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M771.13,-24.67C729.15,-25.74 645.9,-27.86 587.33,-29.35"/>
-<polygon fill="#000000" stroke="#000000" points="586.97,-25.86 577.06,-29.61 587.15,-32.86 586.97,-25.86"/>
-<text text-anchor="middle" x="658" y="-31.4" font-family="Helvetica,sans-Serif" font-size="9.50">planetocentric</text>
+<path fill="none" stroke="#000000" d="M344.86,-115C320.31,-115 284.53,-115 257.83,-115"/>
+<polygon fill="#000000" stroke="#000000" points="257.72,-111.5 247.72,-115 257.72,-118.5 257.72,-111.5"/>
 </g>
 <!-- type~helio_nbody_system -->
 <g id="type~~swiftest_pl~~InheritedByGraph_node8" class="node">
 <title>type~helio_nbody_system</title>
 <g id="a_type~~swiftest_pl~~InheritedByGraph_node8"><a xlink:href=".././type/helio_nbody_system.html" xlink:title="helio_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="576.5,-85 466.5,-85 466.5,-61 576.5,-61 576.5,-85"/>
-<text text-anchor="middle" x="521.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_nbody_system</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="629.5,-85 519.5,-85 519.5,-61 629.5,-61 629.5,-85"/>
+<text text-anchor="middle" x="574.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~helio_nbody_system&#45;&gt;type~whm_nbody_system -->
 <g id="type~~swiftest_pl~~InheritedByGraph_edge7" class="edge">
 <title>type~helio_nbody_system&#45;&gt;type~whm_nbody_system</title>
-<path fill="none" stroke="#000000" d="M466.46,-71C451.99,-71.01 436.37,-71.51 422,-73"/>
-</g>
-<!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
-<g id="type~~swiftest_pl~~InheritedByGraph_edge8" class="edge">
-<title>type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system</title>
-<path fill="none" stroke="#000000" d="M420,-73C409.12,-74.12 397.52,-74.68 386.25,-74.89"/>
-<polygon fill="#000000" stroke="#000000" points="385.98,-71.39 376.02,-74.99 386.05,-78.39 385.98,-71.39"/>
-<path fill="none" stroke="#000000" d="M488.06,-43.03C480.76,-45.86 473.08,-48.95 466,-52 446.1,-60.57 443.55,-70.77 422,-73"/>
+<path fill="none" stroke="#000000" d="M519.46,-71C504.99,-71.01 489.37,-71.51 475,-73"/>
 </g>
 <!-- type~symba_merger -->
-<g id="type~~swiftest_pl~~InheritedByGraph_node10" class="node">
+<g id="type~~swiftest_pl~~InheritedByGraph_node9" class="node">
 <title>type~symba_merger</title>
-<g id="a_type~~swiftest_pl~~InheritedByGraph_node10"><a xlink:href=".././type/symba_merger.html" xlink:title="symba_merger">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="564,-127 479,-127 479,-103 564,-103 564,-127"/>
-<text text-anchor="middle" x="521.5" y="-112.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_merger</text>
+<g id="a_type~~swiftest_pl~~InheritedByGraph_node9"><a xlink:href=".././type/symba_merger.html" xlink:title="symba_merger">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="617,-127 532,-127 532,-103 617,-103 617,-127"/>
+<text text-anchor="middle" x="574.5" y="-112.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_merger</text>
 </a>
 </g>
 </g>
 <!-- type~symba_merger&#45;&gt;type~symba_pl -->
 <g id="type~~swiftest_pl~~InheritedByGraph_edge9" class="edge">
 <title>type~symba_merger&#45;&gt;type~symba_pl</title>
-<path fill="none" stroke="#000000" d="M478.89,-115C443.86,-115 394.17,-115 360.15,-115"/>
-<polygon fill="#000000" stroke="#000000" points="360.13,-111.5 350.13,-115 360.13,-118.5 360.13,-111.5"/>
+<path fill="none" stroke="#000000" d="M531.89,-115C496.86,-115 447.17,-115 413.15,-115"/>
+<polygon fill="#000000" stroke="#000000" points="413.13,-111.5 403.13,-115 413.13,-118.5 413.13,-111.5"/>
+</g>
+<!-- type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system -->
+<g id="type~~swiftest_pl~~InheritedByGraph_edge8" class="edge">
+<title>type~rmvs_nbody_system&#45;&gt;type~whm_nbody_system</title>
+<path fill="none" stroke="#000000" d="M473,-73C462.12,-74.12 450.52,-74.68 439.25,-74.89"/>
+<polygon fill="#000000" stroke="#000000" points="438.98,-71.39 429.02,-74.99 439.05,-78.39 438.98,-71.39"/>
+<path fill="none" stroke="#000000" d="M541.06,-43.03C533.76,-45.86 526.08,-48.95 519,-52 499.1,-60.57 496.55,-70.77 475,-73"/>
 </g>
 <!-- type~symba_nbody_system -->
 <g id="type~~swiftest_pl~~InheritedByGraph_node11" class="node">
 <title>type~symba_nbody_system</title>
 <g id="a_type~~swiftest_pl~~InheritedByGraph_node11"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="858,-98 739,-98 739,-74 858,-74 858,-98"/>
-<text text-anchor="middle" x="798.5" y="-83.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="845,-98 726,-98 726,-74 845,-74 845,-98"/>
+<text text-anchor="middle" x="785.5" y="-83.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~symba_nbody_system&#45;&gt;type~helio_nbody_system -->
 <g id="type~~swiftest_pl~~InheritedByGraph_edge10" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
-<path fill="none" stroke="#000000" d="M738.84,-83.23C694.26,-81.12 632.98,-78.22 587.01,-76.05"/>
-<polygon fill="#000000" stroke="#000000" points="587.02,-72.55 576.86,-75.57 586.69,-79.54 587.02,-72.55"/>
+<path fill="none" stroke="#000000" d="M725.73,-82.34C698.96,-80.68 667.21,-78.7 639.81,-77"/>
+<polygon fill="#000000" stroke="#000000" points="639.74,-73.49 629.54,-76.36 639.3,-80.48 639.74,-73.49"/>
 </g>
 <!-- type~symba_nbody_system&#45;&gt;type~symba_merger -->
-<g id="type~~swiftest_pl~~InheritedByGraph_edge12" class="edge">
+<g id="type~~swiftest_pl~~InheritedByGraph_edge11" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~symba_merger</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M738.84,-92.19C690.01,-97.34 621.13,-104.6 574.31,-109.54"/>
-<polygon fill="#000000" stroke="#000000" points="573.66,-106.09 564.08,-110.62 574.39,-113.05 573.66,-106.09"/>
-<text text-anchor="middle" x="658" y="-109.4" font-family="Helvetica,sans-Serif" font-size="9.50">mergeadd_list, mergesub_list</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M725.73,-94.16C694.84,-98.44 657.31,-103.65 627.49,-107.79"/>
+<polygon fill="#000000" stroke="#000000" points="626.71,-104.36 617.29,-109.2 627.67,-111.29 626.71,-104.36"/>
+<text text-anchor="middle" x="678" y="-106.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl_adds</text>
 </g>
 </g>
 </svg>
@@ -1471,7 +1471,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -1523,21 +1523,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -3634,7 +3619,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/type/swiftest_tp.html b/docs/type/swiftest_tp.html
index b93da80ae..d8f347ffb 100644
--- a/docs/type/swiftest_tp.html
+++ b/docs/type/swiftest_tp.html
@@ -1230,7 +1230,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -1282,21 +1282,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -3267,7 +3252,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/type/symba_cb.html b/docs/type/symba_cb.html
index 73bf50d30..396df07d2 100644
--- a/docs/type/symba_cb.html
+++ b/docs/type/symba_cb.html
@@ -134,7 +134,7 @@ <h1>symba_cb
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 1.3% of total for derived types.</p>Including implementation: 7 statements,  1.0% of total for derived types.">7 statements</a>
+    title="<p> 1.5% of total for derived types.</p>Including implementation: 8 statements,  1.1% of total for derived types.">8 statements</a>
      </li> 
      
      
@@ -241,6 +241,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_cb.html#variable-dr">dR</a>
       
+      <a class="list-group-item" href="../type/symba_cb.html#variable-info">info</a>
+      
     </div>
   </div>
 </div>
@@ -303,61 +305,77 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~symba_cb~~InheritsGraph Pages: 1 -->
-<svg id="typesymba_cbInheritsGraph" width="373pt" height="32pt"
- viewBox="0.00 0.00 373.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~symba_cb~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="typesymba_cbInheritsGraph" width="445pt" height="74pt"
+ viewBox="0.00 0.00 445.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~symba_cb~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>type~~symba_cb~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 369,-28 369,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 441,-70 441,4 -4,4"/>
 <!-- type~symba_cb -->
 <g id="type~~symba_cb~~InheritsGraph_node1" class="node">
 <title>type~symba_cb</title>
-<polygon fill="none" stroke="black" points="365,-24 304,-24 304,0 365,0 365,-24"/>
-<text text-anchor="middle" x="334.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_cb</text>
+<polygon fill="none" stroke="black" points="437,-36 376,-36 376,-12 437,-12 437,-36"/>
+<text text-anchor="middle" x="406.5" y="-21.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_cb</text>
 </g>
 <!-- type~helio_cb -->
 <g id="type~~symba_cb~~InheritsGraph_node2" class="node">
 <title>type~helio_cb</title>
 <g id="a_type~~symba_cb~~InheritsGraph_node2"><a xlink:href=".././type/helio_cb.html" xlink:title="helio_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="268,-24 214,-24 214,0 268,0 268,-24"/>
-<text text-anchor="middle" x="241" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_cb</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="297,-66 243,-66 243,-42 297,-42 297,-66"/>
+<text text-anchor="middle" x="270" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_cb</text>
 </a>
 </g>
 </g>
 <!-- type~symba_cb&#45;&gt;type~helio_cb -->
-<g id="type~~symba_cb~~InheritsGraph_edge1" class="edge">
+<g id="type~~symba_cb~~InheritsGraph_edge2" class="edge">
 <title>type~symba_cb&#45;&gt;type~helio_cb</title>
-<path fill="none" stroke="#000000" d="M303.79,-12C295.63,-12 286.69,-12 278.21,-12"/>
-<polygon fill="#000000" stroke="#000000" points="278.17,-8.5 268.17,-12 278.17,-15.5 278.17,-8.5"/>
+<path fill="none" stroke="#000000" d="M375.98,-30.58C355.69,-35.11 328.62,-41.15 307.05,-45.96"/>
+<polygon fill="#000000" stroke="#000000" points="306.26,-42.55 297.26,-48.14 307.78,-49.38 306.26,-42.55"/>
 </g>
-<!-- type~swiftest_cb -->
+<!-- type~symba_particle_info -->
 <g id="type~~symba_cb~~InheritsGraph_node3" class="node">
+<title>type~symba_particle_info</title>
+<g id="a_type~~symba_cb~~InheritsGraph_node3"><a xlink:href=".././type/symba_particle_info.html" xlink:title="symba_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="324,-24 216,-24 216,0 324,0 324,-24"/>
+<text text-anchor="middle" x="270" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~symba_cb&#45;&gt;type~symba_particle_info -->
+<g id="type~~symba_cb~~InheritsGraph_edge1" class="edge">
+<title>type~symba_cb&#45;&gt;type~symba_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M375.98,-21.37C363.61,-20.26 348.71,-18.93 334.07,-17.63"/>
+<polygon fill="#000000" stroke="#000000" points="334.29,-14.13 324.02,-16.73 333.67,-21.11 334.29,-14.13"/>
+<text text-anchor="middle" x="350" y="-22.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
+</g>
+<!-- type~swiftest_cb -->
+<g id="type~~symba_cb~~InheritsGraph_node4" class="node">
 <title>type~swiftest_cb</title>
-<g id="a_type~~symba_cb~~InheritsGraph_node3"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="178,-24 113,-24 113,0 178,0 178,-24"/>
-<text text-anchor="middle" x="145.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
+<g id="a_type~~symba_cb~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="179,-66 114,-66 114,-42 179,-42 179,-66"/>
+<text text-anchor="middle" x="146.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
 </a>
 </g>
 </g>
 <!-- type~helio_cb&#45;&gt;type~swiftest_cb -->
-<g id="type~~symba_cb~~InheritsGraph_edge2" class="edge">
+<g id="type~~symba_cb~~InheritsGraph_edge3" class="edge">
 <title>type~helio_cb&#45;&gt;type~swiftest_cb</title>
-<path fill="none" stroke="#000000" d="M213.96,-12C205.95,-12 196.94,-12 188.17,-12"/>
-<polygon fill="#000000" stroke="#000000" points="188.06,-8.5 178.06,-12 188.05,-15.5 188.06,-8.5"/>
+<path fill="none" stroke="#000000" d="M242.94,-54C227.31,-54 207.09,-54 189.28,-54"/>
+<polygon fill="#000000" stroke="#000000" points="189.13,-50.5 179.13,-54 189.13,-57.5 189.13,-50.5"/>
 </g>
 <!-- type~swiftest_base -->
-<g id="type~~symba_cb~~InheritsGraph_node4" class="node">
+<g id="type~~symba_cb~~InheritsGraph_node5" class="node">
 <title>type~swiftest_base</title>
-<g id="a_type~~symba_cb~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-24 0,-24 0,0 77,0 77,-24"/>
-<text text-anchor="middle" x="38.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
+<g id="a_type~~symba_cb~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-66 0,-66 0,-42 77,-42 77,-66"/>
+<text text-anchor="middle" x="38.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
-<g id="type~~symba_cb~~InheritsGraph_edge3" class="edge">
+<g id="type~~symba_cb~~InheritsGraph_edge4" class="edge">
 <title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M113,-12C104.92,-12 96.05,-12 87.35,-12"/>
-<polygon fill="#000000" stroke="#000000" points="87.28,-8.5 77.28,-12 87.28,-15.5 87.28,-8.5"/>
+<path fill="none" stroke="#000000" d="M113.98,-54C105.56,-54 96.26,-54 87.18,-54"/>
+<polygon fill="#000000" stroke="#000000" points="87.07,-50.5 77.07,-54 87.07,-57.5 87.07,-50.5"/>
 </g>
 </g>
 </svg>
@@ -476,6 +494,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_cb.html#variable-dr">dR</a>
       
+      <a class="list-group-item" href="../type/symba_cb.html#variable-info">info</a>
+      
     </div>
   </div>
 </div>
@@ -968,6 +988,20 @@ <h2>Components</h2>
   
 </tr>
 
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-info"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>info</strong></td><td></td><td></td><td></td>
+  
+</tr>
+
 </tbody>
 </table>
 
@@ -1002,7 +1036,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -1054,21 +1088,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
diff --git a/docs/type/symba_kinship.html b/docs/type/symba_kinship.html
index 20291bcd4..96562f835 100644
--- a/docs/type/symba_kinship.html
+++ b/docs/type/symba_kinship.html
@@ -230,11 +230,11 @@ <h3 class="panel-title">Inherited by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~symba_kinship~~InheritedByGraph Pages: 1 -->
-<svg id="typesymba_kinshipInheritedByGraph" width="601pt" height="32pt"
- viewBox="0.00 0.00 601.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="typesymba_kinshipInheritedByGraph" width="509pt" height="32pt"
+ viewBox="0.00 0.00 509.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="type~~symba_kinship~~InheritedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>type~~symba_kinship~~InheritedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 597,-28 597,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 505,-28 505,4 -4,4"/>
 <!-- type~symba_kinship -->
 <g id="type~~symba_kinship~~InheritedByGraph_node1" class="node">
 <title>type~symba_kinship</title>
@@ -276,17 +276,17 @@ <h3 class="panel-title">Inherited by</h3>
 <g id="type~~symba_kinship~~InheritedByGraph_node4" class="node">
 <title>type~symba_nbody_system</title>
 <g id="a_type~~symba_kinship~~InheritedByGraph_node4"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="593,-24 474,-24 474,0 593,0 593,-24"/>
-<text text-anchor="middle" x="533.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="501,-24 382,-24 382,0 501,0 501,-24"/>
+<text text-anchor="middle" x="441.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~symba_nbody_system&#45;&gt;type~symba_merger -->
 <g id="type~~symba_kinship~~InheritedByGraph_edge3" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~symba_merger</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M473.7,-12C428.31,-12 366.09,-12 322.5,-12"/>
-<polygon fill="#000000" stroke="#000000" points="322.4,-8.5 312.4,-12 322.4,-15.5 322.4,-8.5"/>
-<text text-anchor="middle" x="393" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">mergeadd_list, mergesub_list</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M382,-12C362.63,-12 341.22,-12 322.38,-12"/>
+<polygon fill="#000000" stroke="#000000" points="322.21,-8.5 312.21,-12 322.21,-15.5 322.21,-8.5"/>
+<text text-anchor="middle" x="347" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl_adds</text>
 </g>
 </g>
 </svg>
diff --git a/docs/type/symba_merger.html b/docs/type/symba_merger.html
index a25c78820..1ae47ed8d 100644
--- a/docs/type/symba_merger.html
+++ b/docs/type/symba_merger.html
@@ -283,7 +283,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_merger.html#variable-kin">kin</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#variable-info">info</a>
+      <a class="list-group-item" href="../type/symba_merger.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#variable-ncomp">ncomp</a>
       
@@ -421,129 +421,123 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~symba_merger~~InheritsGraph Pages: 1 -->
-<svg id="typesymba_mergerInheritsGraph" width="641pt" height="97pt"
- viewBox="0.00 0.00 641.00 96.53" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~symba_merger~~InheritsGraph" class="graph" transform="scale(0.85 0.85) rotate(0) translate(4 110)">
+<svg id="typesymba_mergerInheritsGraph" width="641pt" height="110pt"
+ viewBox="0.00 0.00 641.00 110.16" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~symba_merger~~InheritsGraph" class="graph" transform="scale(0.95 0.95) rotate(0) translate(4 112)">
 <title>type~~symba_merger~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-110 753,-110 753,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 671,-112 671,4 -4,4"/>
 <!-- type~symba_merger -->
 <g id="type~~symba_merger~~InheritsGraph_node1" class="node">
 <title>type~symba_merger</title>
-<polygon fill="none" stroke="black" points="749,-64 664,-64 664,-40 749,-40 749,-64"/>
-<text text-anchor="middle" x="706.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_merger</text>
+<polygon fill="none" stroke="black" points="667,-66 582,-66 582,-42 667,-42 667,-66"/>
+<text text-anchor="middle" x="624.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_merger</text>
 </g>
 <!-- type~symba_pl -->
 <g id="type~~symba_merger~~InheritsGraph_node2" class="node">
 <title>type~symba_pl</title>
 <g id="a_type~~symba_merger~~InheritsGraph_node2"><a xlink:href=".././type/symba_pl.html" xlink:title="symba_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="627,-64 569,-64 569,-40 627,-40 627,-64"/>
-<text text-anchor="middle" x="598" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pl</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="545,-66 487,-66 487,-42 545,-42 545,-66"/>
+<text text-anchor="middle" x="516" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pl</text>
 </a>
 </g>
 </g>
 <!-- type~symba_merger&#45;&gt;type~symba_pl -->
 <g id="type~~symba_merger~~InheritsGraph_edge1" class="edge">
 <title>type~symba_merger&#45;&gt;type~symba_pl</title>
-<path fill="none" stroke="#000000" d="M663.71,-52C655.01,-52 645.89,-52 637.32,-52"/>
-<polygon fill="#000000" stroke="#000000" points="637.21,-48.5 627.21,-52 637.21,-55.5 637.21,-48.5"/>
+<path fill="none" stroke="#000000" d="M581.71,-54C573.01,-54 563.89,-54 555.32,-54"/>
+<polygon fill="#000000" stroke="#000000" points="555.21,-50.5 545.21,-54 555.21,-57.5 555.21,-50.5"/>
 </g>
-<!-- type~symba_kinship -->
+<!-- type~helio_pl -->
 <g id="type~~symba_merger~~InheritsGraph_node3" class="node">
-<title>type~symba_kinship</title>
-<g id="a_type~~symba_merger~~InheritsGraph_node3"><a xlink:href=".././type/symba_kinship.html" xlink:title="symba_kinship">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="517,-106 434,-106 434,-82 517,-82 517,-106"/>
-<text text-anchor="middle" x="475.5" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kinship</text>
+<title>type~helio_pl</title>
+<g id="a_type~~symba_merger~~InheritsGraph_node3"><a xlink:href=".././type/helio_pl.html" xlink:title="helio_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="408,-108 354,-108 354,-84 408,-84 408,-108"/>
+<text text-anchor="middle" x="381" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
 </a>
 </g>
 </g>
-<!-- type~symba_pl&#45;&gt;type~symba_kinship -->
-<g id="type~~symba_merger~~InheritsGraph_edge2" class="edge">
-<title>type~symba_pl&#45;&gt;type~symba_kinship</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M568.75,-61.85C554.46,-66.83 536.79,-72.98 520.76,-78.57"/>
-<polygon fill="#000000" stroke="#000000" points="519.32,-75.37 511.03,-81.97 521.62,-81.98 519.32,-75.37"/>
-<text text-anchor="middle" x="543" y="-75.4" font-family="Helvetica,sans-Serif" font-size="9.50">kin</text>
+<!-- type~symba_pl&#45;&gt;type~helio_pl -->
+<g id="type~~symba_merger~~InheritsGraph_edge4" class="edge">
+<title>type~symba_pl&#45;&gt;type~helio_pl</title>
+<path fill="none" stroke="#000000" d="M486.79,-62.91C466.78,-69.23 439.75,-77.76 418.16,-84.58"/>
+<polygon fill="#000000" stroke="#000000" points="416.84,-81.33 408.36,-87.68 418.95,-88 416.84,-81.33"/>
 </g>
-<!-- type~helio_pl -->
+<!-- type~symba_kinship -->
 <g id="type~~symba_merger~~InheritsGraph_node4" class="node">
-<title>type~helio_pl</title>
-<g id="a_type~~symba_merger~~InheritsGraph_node4"><a xlink:href=".././type/helio_pl.html" xlink:title="helio_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="502.5,-64 448.5,-64 448.5,-40 502.5,-40 502.5,-64"/>
-<text text-anchor="middle" x="475.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
+<title>type~symba_kinship</title>
+<g id="a_type~~symba_merger~~InheritsGraph_node4"><a xlink:href=".././type/symba_kinship.html" xlink:title="symba_kinship">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="422.5,-66 339.5,-66 339.5,-42 422.5,-42 422.5,-66"/>
+<text text-anchor="middle" x="381" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kinship</text>
 </a>
 </g>
 </g>
-<!-- type~symba_pl&#45;&gt;type~helio_pl -->
-<g id="type~~symba_merger~~InheritsGraph_edge4" class="edge">
-<title>type~symba_pl&#45;&gt;type~helio_pl</title>
-<path fill="none" stroke="#000000" d="M568.75,-52C552,-52 530.61,-52 512.64,-52"/>
-<polygon fill="#000000" stroke="#000000" points="512.52,-48.5 502.52,-52 512.52,-55.5 512.52,-48.5"/>
+<!-- type~symba_pl&#45;&gt;type~symba_kinship -->
+<g id="type~~symba_merger~~InheritsGraph_edge2" class="edge">
+<title>type~symba_pl&#45;&gt;type~symba_kinship</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M486.79,-54C471.1,-54 451.1,-54 432.78,-54"/>
+<polygon fill="#000000" stroke="#000000" points="432.53,-50.5 422.53,-54 432.53,-57.5 432.53,-50.5"/>
+<text text-anchor="middle" x="461" y="-56.4" font-family="Helvetica,sans-Serif" font-size="9.50">kin</text>
 </g>
 <!-- type~symba_particle_info -->
 <g id="type~~symba_merger~~InheritsGraph_node5" class="node">
 <title>type~symba_particle_info</title>
 <g id="a_type~~symba_merger~~InheritsGraph_node5"><a xlink:href=".././type/symba_particle_info.html" xlink:title="symba_particle_info">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="416,-24 308,-24 308,0 416,0 416,-24"/>
-<text text-anchor="middle" x="362" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_particle_info</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="435,-24 327,-24 327,0 435,0 435,-24"/>
+<text text-anchor="middle" x="381" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_particle_info</text>
 </a>
 </g>
 </g>
 <!-- type~symba_pl&#45;&gt;type~symba_particle_info -->
 <g id="type~~symba_merger~~InheritsGraph_edge3" class="edge">
 <title>type~symba_pl&#45;&gt;type~symba_particle_info</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M568.9,-43C563.01,-41.24 556.82,-39.48 551,-38 510.14,-27.6 463.15,-21.1 426.37,-17.2"/>
-<polygon fill="#000000" stroke="#000000" points="426.59,-13.7 416.28,-16.17 425.88,-20.67 426.59,-13.7"/>
-<text text-anchor="middle" x="543" y="-40.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M486.79,-45.09C470.24,-39.86 448.87,-33.12 429.76,-27.08"/>
+<polygon fill="#000000" stroke="#000000" points="430.6,-23.68 420.01,-24 428.49,-30.35 430.6,-23.68"/>
+<text text-anchor="middle" x="461" y="-42.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 <!-- type~swiftest_pl -->
 <g id="type~~symba_merger~~InheritsGraph_node6" class="node">
 <title>type~swiftest_pl</title>
 <g id="a_type~~symba_merger~~InheritsGraph_node6"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="290,-64 228,-64 228,-40 290,-40 290,-64"/>
-<text text-anchor="middle" x="259" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="290,-108 228,-108 228,-84 290,-84 290,-108"/>
+<text text-anchor="middle" x="259" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
 </a>
 </g>
 </g>
 <!-- type~helio_pl&#45;&gt;type~swiftest_pl -->
 <g id="type~~symba_merger~~InheritsGraph_edge5" class="edge">
 <title>type~helio_pl&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" d="M448.2,-52C411.3,-52 343.85,-52 300.52,-52"/>
-<polygon fill="#000000" stroke="#000000" points="300.32,-48.5 290.32,-52 300.32,-55.5 300.32,-48.5"/>
+<path fill="none" stroke="#000000" d="M353.96,-96C338.29,-96 318.01,-96 300.3,-96"/>
+<polygon fill="#000000" stroke="#000000" points="300.22,-92.5 290.22,-96 300.22,-99.5 300.22,-92.5"/>
 </g>
-<!-- type~swiftest_base -->
+<!-- type~swiftest_body -->
 <g id="type~~symba_merger~~InheritsGraph_node7" class="node">
-<title>type~swiftest_base</title>
-<g id="a_type~~symba_merger~~InheritsGraph_node7"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-24 0,-24 0,0 77,0 77,-24"/>
-<text text-anchor="middle" x="38.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
+<title>type~swiftest_body</title>
+<g id="a_type~~symba_merger~~InheritsGraph_node7"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-108 114,-108 114,-84 191,-84 191,-108"/>
+<text text-anchor="middle" x="152.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
 </a>
 </g>
 </g>
-<!-- type~symba_particle_info&#45;&gt;type~swiftest_base -->
+<!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
 <g id="type~~symba_merger~~InheritsGraph_edge6" class="edge">
-<title>type~symba_particle_info&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M307.77,-17.21C253.94,-21.27 168.57,-24.36 96,-12"/>
-<path fill="none" stroke="#000000" d="M95,-12C92.52,-11.53 89.96,-11.15 87.37,-10.86"/>
-<polygon fill="#000000" stroke="#000000" points="87.53,-7.36 77.3,-10.1 87,-14.34 87.53,-7.36"/>
+<title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
+<path fill="none" stroke="#000000" d="M227.77,-96C219.45,-96 210.22,-96 201.17,-96"/>
+<polygon fill="#000000" stroke="#000000" points="201.09,-92.5 191.09,-96 201.09,-99.5 201.09,-92.5"/>
 </g>
-<!-- type~swiftest_body -->
+<!-- type~swiftest_base -->
 <g id="type~~symba_merger~~InheritsGraph_node8" class="node">
-<title>type~swiftest_body</title>
-<g id="a_type~~symba_merger~~InheritsGraph_node8"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-64 114,-64 114,-40 191,-40 191,-64"/>
-<text text-anchor="middle" x="152.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
+<title>type~swiftest_base</title>
+<g id="a_type~~symba_merger~~InheritsGraph_node8"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-108 0,-108 0,-84 77,-84 77,-108"/>
+<text text-anchor="middle" x="38.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
-<g id="type~~symba_merger~~InheritsGraph_edge7" class="edge">
-<title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M227.77,-52C219.45,-52 210.22,-52 201.17,-52"/>
-<polygon fill="#000000" stroke="#000000" points="201.09,-48.5 191.09,-52 201.09,-55.5 201.09,-48.5"/>
-</g>
 <!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
-<g id="type~~symba_merger~~InheritsGraph_edge8" class="edge">
+<g id="type~~symba_merger~~InheritsGraph_edge7" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M133.43,-39.77C127.22,-35.48 120.26,-30.6 114,-26 105.83,-20 105.99,-13.7 96,-12"/>
+<path fill="none" stroke="#000000" d="M113.89,-96C105.4,-96 96.27,-96 87.41,-96"/>
+<polygon fill="#000000" stroke="#000000" points="87.2,-92.5 77.2,-96 87.2,-99.5 87.2,-92.5"/>
 </g>
 </g>
 </svg>
@@ -597,11 +591,11 @@ <h3 class="panel-title">Inherited by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~symba_merger~~InheritedByGraph Pages: 1 -->
-<svg id="typesymba_mergerInheritedByGraph" width="374pt" height="32pt"
- viewBox="0.00 0.00 374.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="typesymba_mergerInheritedByGraph" width="282pt" height="32pt"
+ viewBox="0.00 0.00 282.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="type~~symba_merger~~InheritedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>type~~symba_merger~~InheritedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 370,-28 370,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 278,-28 278,4 -4,4"/>
 <!-- type~symba_merger -->
 <g id="type~~symba_merger~~InheritedByGraph_node1" class="node">
 <title>type~symba_merger</title>
@@ -612,17 +606,17 @@ <h3 class="panel-title">Inherited by</h3>
 <g id="type~~symba_merger~~InheritedByGraph_node2" class="node">
 <title>type~symba_nbody_system</title>
 <g id="a_type~~symba_merger~~InheritedByGraph_node2"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="366,-24 247,-24 247,0 366,0 366,-24"/>
-<text text-anchor="middle" x="306.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="274,-24 155,-24 155,0 274,0 274,-24"/>
+<text text-anchor="middle" x="214.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~symba_nbody_system&#45;&gt;type~symba_merger -->
 <g id="type~~symba_merger~~InheritedByGraph_edge1" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~symba_merger</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M246.7,-12C201.31,-12 139.09,-12 95.5,-12"/>
-<polygon fill="#000000" stroke="#000000" points="95.4,-8.5 85.4,-12 95.4,-15.5 95.4,-8.5"/>
-<text text-anchor="middle" x="166" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">mergeadd_list, mergesub_list</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M155,-12C135.63,-12 114.22,-12 95.38,-12"/>
+<polygon fill="#000000" stroke="#000000" points="95.21,-8.5 85.21,-12 95.21,-15.5 95.21,-8.5"/>
+<text text-anchor="middle" x="120" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl_adds</text>
 </g>
 </g>
 </svg>
@@ -782,7 +776,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_merger.html#variable-kin">kin</a>
       
-      <a class="list-group-item" href="../type/symba_merger.html#variable-info">info</a>
+      <a class="list-group-item" href="../type/symba_merger.html#variable-info~2">info</a>
       
       <a class="list-group-item" href="../type/symba_merger.html#variable-ncomp">ncomp</a>
       
@@ -1504,7 +1498,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>lmtiny</strong></td><td></td><td></td><td><p>flag indicating whether this body is below the MTINY cutoff value</p></td>
+  <td><strong>lmtiny</strong></td><td></td><td></td><td><p>flag indicating whether this body is below the GMTINY cutoff value</p></td>
   
 </tr>
 
@@ -1518,7 +1512,7 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>nplm</strong></td><td></td><td></td><td><p>number of bodies above the MTINY limit</p></td>
+  <td><strong>nplm</strong></td><td></td><td></td><td><p>number of bodies above the GMTINY limit</p></td>
   
 </tr>
 
@@ -1532,7 +1526,7 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>nplplm</strong></td><td></td><td></td><td><p>Number of body (all massive)-body (only those above MTINY) comparisons in the flattened upper triangular matrix </p></td>
+  <td><strong>nplplm</strong></td><td></td><td></td><td><p>Number of body (all massive)-body (only those above GMTINY) comparisons in the flattened upper triangular matrix </p></td>
   
 </tr>
 
@@ -1654,7 +1648,7 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-info"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
@@ -1710,7 +1704,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -1762,21 +1756,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -5685,7 +5664,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/type/symba_nbody_system.html b/docs/type/symba_nbody_system.html
index 2a4872f0b..74bd5a752 100644
--- a/docs/type/symba_nbody_system.html
+++ b/docs/type/symba_nbody_system.html
@@ -134,7 +134,7 @@ <h1>symba_nbody_system
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 2.8% of total for derived types.</p>Including implementation: 15 statements,  2.1% of total for derived types.">15 statements</a>
+    title="<p> 2.6% of total for derived types.</p>Including implementation: 14 statements,  2.0% of total for derived types.">14 statements</a>
      </li> 
      
      
@@ -189,6 +189,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-tp_discards">tp_discards</a>
       
+      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-pl_discards">pl_discards</a>
+      
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-gmtot">Gmtot</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-ke_orbit">ke_orbit</a>
@@ -215,9 +217,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-maxid">maxid</a>
       
-      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-mergeadd_list">mergeadd_list</a>
-      
-      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-mergesub_list">mergesub_list</a>
+      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-pl_adds">pl_adds</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-pltpenc_list">pltpenc_list</a>
       
@@ -267,9 +267,13 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-get_energy_and_momentum">get_energy_and_momentum</a>
       
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-rescale">rescale</a>
+      
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-validate_ids">validate_ids</a>
+      
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-write_discard~2">write_discard</a>
       
-      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-initialize~6">initialize</a>
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-initialize~5">initialize</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-step~8">step</a>
       
@@ -309,299 +313,294 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~symba_nbody_system~~InheritsGraph Pages: 1 -->
-<svg id="typesymba_nbody_systemInheritsGraph" width="641pt" height="141pt"
- viewBox="0.00 0.00 641.00 140.64" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~symba_nbody_system~~InheritsGraph" class="graph" transform="scale(0.53 0.53) rotate(0) translate(4 263.67)">
+<svg id="typesymba_nbody_systemInheritsGraph" width="641pt" height="138pt"
+ viewBox="0.00 0.00 641.00 138.48" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~symba_nbody_system~~InheritsGraph" class="graph" transform="scale(0.58 0.58) rotate(0) translate(4 233)">
 <title>type~~symba_nbody_system~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-263.67 1216,-263.67 1216,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-233 1093,-233 1093,4 -4,4"/>
 <!-- type~symba_nbody_system -->
 <g id="type~~symba_nbody_system~~InheritsGraph_node1" class="node">
 <title>type~symba_nbody_system</title>
-<polygon fill="none" stroke="black" points="1212,-84 1093,-84 1093,-60 1212,-60 1212,-84"/>
-<text text-anchor="middle" x="1152.5" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_nbody_system</text>
+<polygon fill="none" stroke="black" points="1089,-84 970,-84 970,-60 1089,-60 1089,-84"/>
+<text text-anchor="middle" x="1029.5" y="-69.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_nbody_system</text>
 </g>
-<!-- type~helio_nbody_system -->
+<!-- type~symba_merger -->
 <g id="type~~symba_nbody_system~~InheritsGraph_node2" class="node">
+<title>type~symba_merger</title>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node2"><a xlink:href=".././type/symba_merger.html" xlink:title="symba_merger">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="873.5,-148 788.5,-148 788.5,-124 873.5,-124 873.5,-148"/>
+<text text-anchor="middle" x="831" y="-133.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_merger</text>
+</a>
+</g>
+</g>
+<!-- type~symba_nbody_system&#45;&gt;type~symba_merger -->
+<g id="type~~symba_nbody_system~~InheritsGraph_edge1" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~symba_merger</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M991.54,-84.09C978.99,-88.19 964.89,-92.8 952,-97 927.78,-104.89 900.8,-113.66 878.57,-120.88"/>
+<polygon fill="#000000" stroke="#000000" points="877.46,-117.56 869.03,-123.98 879.63,-124.22 877.46,-117.56"/>
+<text text-anchor="middle" x="928" y="-114.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl_adds</text>
+</g>
+<!-- type~helio_nbody_system -->
+<g id="type~~symba_nbody_system~~InheritsGraph_node3" class="node">
 <title>type~helio_nbody_system</title>
-<g id="a_type~~symba_nbody_system~~InheritsGraph_node2"><a xlink:href=".././type/helio_nbody_system.html" xlink:title="helio_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="931,-152 821,-152 821,-128 931,-128 931,-152"/>
-<text text-anchor="middle" x="876" y="-137.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_nbody_system</text>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node3"><a xlink:href=".././type/helio_nbody_system.html" xlink:title="helio_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="886,-106 776,-106 776,-82 886,-82 886,-106"/>
+<text text-anchor="middle" x="831" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~symba_nbody_system&#45;&gt;type~helio_nbody_system -->
 <g id="type~~symba_nbody_system~~InheritsGraph_edge4" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~helio_nbody_system</title>
-<path fill="none" stroke="#000000" d="M1124.3,-84.08C1109.88,-90.12 1091.72,-97.16 1075,-102 1031.17,-114.68 980.64,-124.3 941.6,-130.69"/>
-<polygon fill="#000000" stroke="#000000" points="940.74,-127.28 931.42,-132.32 941.85,-134.19 940.74,-127.28"/>
+<path fill="none" stroke="#000000" d="M969.81,-78.57C946.56,-81.17 919.75,-84.18 896,-86.83"/>
+<polygon fill="#000000" stroke="#000000" points="895.58,-83.36 886.03,-87.95 896.36,-90.32 895.58,-83.36"/>
+</g>
+<!-- type~symba_plplenc -->
+<g id="type~~symba_nbody_system~~InheritsGraph_node4" class="node">
+<title>type~symba_plplenc</title>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node4"><a xlink:href=".././type/symba_plplenc.html" xlink:title="symba_plplenc">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="873,-64 789,-64 789,-40 873,-40 873,-64"/>
+<text text-anchor="middle" x="831" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_plplenc</text>
+</a>
+</g>
+</g>
+<!-- type~symba_nbody_system&#45;&gt;type~symba_plplenc -->
+<g id="type~~symba_nbody_system~~InheritsGraph_edge3" class="edge">
+<title>type~symba_nbody_system&#45;&gt;type~symba_plplenc</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M969.81,-66.03C942.35,-63.23 909.95,-59.93 883.47,-57.24"/>
+<polygon fill="#000000" stroke="#000000" points="883.56,-53.73 873.26,-56.2 882.85,-60.69 883.56,-53.73"/>
+<text text-anchor="middle" x="928" y="-65.4" font-family="Helvetica,sans-Serif" font-size="9.50">plplenc_list</text>
 </g>
 <!-- type~symba_pltpenc -->
-<g id="type~~symba_nbody_system~~InheritsGraph_node3" class="node">
+<g id="type~~symba_nbody_system~~InheritsGraph_node5" class="node">
 <title>type~symba_pltpenc</title>
-<g id="a_type~~symba_nbody_system~~InheritsGraph_node3"><a xlink:href=".././type/symba_pltpenc.html" xlink:title="symba_pltpenc">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="771.5,-24 686.5,-24 686.5,0 771.5,0 771.5,-24"/>
-<text text-anchor="middle" x="729" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pltpenc</text>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node5"><a xlink:href=".././type/symba_pltpenc.html" xlink:title="symba_pltpenc">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="726.5,-24 641.5,-24 641.5,0 726.5,0 726.5,-24"/>
+<text text-anchor="middle" x="684" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pltpenc</text>
 </a>
 </g>
 </g>
 <!-- type~symba_nbody_system&#45;&gt;type~symba_pltpenc -->
 <g id="type~~symba_nbody_system~~InheritsGraph_edge2" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~symba_pltpenc</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1115.94,-59.88C1103.13,-55.77 1088.5,-51.37 1075,-48 1011.82,-32.23 995.58,-29.3 931,-21 874.44,-13.73 859.53,-19.55 803,-12"/>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M802,-12C795.6,-10.96 788.84,-10.34 782.13,-10.02"/>
-<polygon fill="#000000" stroke="#000000" points="781.78,-6.51 771.68,-9.73 781.58,-13.51 781.78,-6.51"/>
-<text text-anchor="middle" x="876" y="-23.4" font-family="Helvetica,sans-Serif" font-size="9.50">pltpenc_list</text>
-</g>
-<!-- type~symba_merger -->
-<g id="type~~symba_nbody_system~~InheritsGraph_node4" class="node">
-<title>type~symba_merger</title>
-<g id="a_type~~symba_nbody_system~~InheritsGraph_node4"><a xlink:href=".././type/symba_merger.html" xlink:title="symba_merger">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="918.5,-106 833.5,-106 833.5,-82 918.5,-82 918.5,-106"/>
-<text text-anchor="middle" x="876" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_merger</text>
-</a>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1001.82,-59.96C973.66,-47.85 927.66,-29.75 886,-21 830.19,-9.28 814.53,-19.55 758,-12"/>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M757,-12C750.6,-10.96 743.84,-10.34 737.13,-10.02"/>
+<polygon fill="#000000" stroke="#000000" points="736.78,-6.51 726.68,-9.73 736.58,-13.51 736.78,-6.51"/>
+<text text-anchor="middle" x="831" y="-23.4" font-family="Helvetica,sans-Serif" font-size="9.50">pltpenc_list</text>
 </g>
-</g>
-<!-- type~symba_nbody_system&#45;&gt;type~symba_merger -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge1" class="edge">
-<title>type~symba_nbody_system&#45;&gt;type~symba_merger</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1092.95,-76.69C1044.2,-80.6 975.45,-86.11 928.71,-89.86"/>
-<polygon fill="#000000" stroke="#000000" points="928.19,-86.39 918.5,-90.67 928.75,-93.36 928.19,-86.39"/>
-<text text-anchor="middle" x="1012" y="-90.4" font-family="Helvetica,sans-Serif" font-size="9.50">mergeadd_list, mergesub_list</text>
-</g>
-<!-- type~symba_plplenc -->
-<g id="type~~symba_nbody_system~~InheritsGraph_node5" class="node">
-<title>type~symba_plplenc</title>
-<g id="a_type~~symba_nbody_system~~InheritsGraph_node5"><a xlink:href=".././type/symba_plplenc.html" xlink:title="symba_plplenc">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="918,-64 834,-64 834,-40 918,-40 918,-64"/>
-<text text-anchor="middle" x="876" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_plplenc</text>
+<!-- type~symba_pl -->
+<g id="type~~symba_nbody_system~~InheritsGraph_node8" class="node">
+<title>type~symba_pl</title>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node8"><a xlink:href=".././type/symba_pl.html" xlink:title="symba_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="713,-149 655,-149 655,-125 713,-125 713,-149"/>
+<text text-anchor="middle" x="684" y="-134.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pl</text>
 </a>
 </g>
 </g>
-<!-- type~symba_nbody_system&#45;&gt;type~symba_plplenc -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge3" class="edge">
-<title>type~symba_nbody_system&#45;&gt;type~symba_plplenc</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M1092.72,-61.2C1086.75,-60.35 1080.76,-59.59 1075,-59 1025.26,-53.92 968.18,-52.35 928.12,-51.94"/>
-<polygon fill="#000000" stroke="#000000" points="928.09,-48.44 918.06,-51.86 928.04,-55.44 928.09,-48.44"/>
-<text text-anchor="middle" x="1012" y="-61.4" font-family="Helvetica,sans-Serif" font-size="9.50">plplenc_list</text>
+<!-- type~symba_merger&#45;&gt;type~symba_pl -->
+<g id="type~~symba_nbody_system~~InheritsGraph_edge5" class="edge">
+<title>type~symba_merger&#45;&gt;type~symba_pl</title>
+<path fill="none" stroke="#000000" d="M788.45,-136.29C767.92,-136.43 743.33,-136.6 723.27,-136.74"/>
+<polygon fill="#000000" stroke="#000000" points="723.21,-133.24 713.24,-136.81 723.26,-140.24 723.21,-133.24"/>
 </g>
 <!-- type~whm_nbody_system -->
 <g id="type~~symba_nbody_system~~InheritsGraph_node6" class="node">
 <title>type~whm_nbody_system</title>
 <g id="a_type~~symba_nbody_system~~InheritsGraph_node6"><a xlink:href=".././type/whm_nbody_system.html" xlink:title="whm_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="784,-164 674,-164 674,-140 784,-140 784,-164"/>
-<text text-anchor="middle" x="729" y="-149.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="739,-105 629,-105 629,-81 739,-81 739,-105"/>
+<text text-anchor="middle" x="684" y="-90.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">whm_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~helio_nbody_system&#45;&gt;type~whm_nbody_system -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge5" class="edge">
+<g id="type~~symba_nbody_system~~InheritsGraph_edge6" class="edge">
 <title>type~helio_nbody_system&#45;&gt;type~whm_nbody_system</title>
-<path fill="none" stroke="#000000" d="M820.59,-144.5C812.05,-145.21 803.14,-145.95 794.39,-146.67"/>
-<polygon fill="#000000" stroke="#000000" points="793.91,-143.2 784.23,-147.51 794.48,-150.18 793.91,-143.2"/>
+<path fill="none" stroke="#000000" d="M775.59,-93.62C767.05,-93.57 758.14,-93.5 749.39,-93.44"/>
+<polygon fill="#000000" stroke="#000000" points="749.25,-89.94 739.23,-93.37 749.2,-96.94 749.25,-89.94"/>
+</g>
+<!-- type~symba_plplenc&#45;&gt;type~symba_pltpenc -->
+<g id="type~~symba_nbody_system~~InheritsGraph_edge7" class="edge">
+<title>type~symba_plplenc&#45;&gt;type~symba_pltpenc</title>
+<path fill="none" stroke="#000000" d="M801.93,-39.87C793.4,-35.82 784.14,-31.04 776,-26 767.39,-20.66 768.05,-13.34 758,-12"/>
 </g>
 <!-- type~swiftest_encounter -->
 <g id="type~~symba_nbody_system~~InheritsGraph_node7" class="node">
 <title>type~swiftest_encounter</title>
 <g id="a_type~~symba_nbody_system~~InheritsGraph_node7"><a xlink:href=".././type/swiftest_encounter.html" xlink:title="swiftest_encounter">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="611.5,-24 509.5,-24 509.5,0 611.5,0 611.5,-24"/>
-<text text-anchor="middle" x="560.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_encounter</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="566.5,-24 464.5,-24 464.5,0 566.5,0 566.5,-24"/>
+<text text-anchor="middle" x="515.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_encounter</text>
 </a>
 </g>
 </g>
 <!-- type~symba_pltpenc&#45;&gt;type~swiftest_encounter -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge6" class="edge">
-<title>type~symba_pltpenc&#45;&gt;type~swiftest_encounter</title>
-<path fill="none" stroke="#000000" d="M686.41,-12C666.87,-12 643.21,-12 621.75,-12"/>
-<polygon fill="#000000" stroke="#000000" points="621.75,-8.5 611.75,-12 621.75,-15.5 621.75,-8.5"/>
-</g>
-<!-- type~symba_pl -->
-<g id="type~~symba_nbody_system~~InheritsGraph_node8" class="node">
-<title>type~symba_pl</title>
-<g id="a_type~~symba_nbody_system~~InheritsGraph_node8"><a xlink:href=".././type/symba_pl.html" xlink:title="symba_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="758,-106 700,-106 700,-82 758,-82 758,-106"/>
-<text text-anchor="middle" x="729" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pl</text>
-</a>
-</g>
-</g>
-<!-- type~symba_merger&#45;&gt;type~symba_pl -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge7" class="edge">
-<title>type~symba_merger&#45;&gt;type~symba_pl</title>
-<path fill="none" stroke="#000000" d="M833.45,-94C812.92,-94 788.33,-94 768.27,-94"/>
-<polygon fill="#000000" stroke="#000000" points="768.24,-90.5 758.24,-94 768.24,-97.5 768.24,-90.5"/>
-</g>
-<!-- type~symba_plplenc&#45;&gt;type~symba_pltpenc -->
 <g id="type~~symba_nbody_system~~InheritsGraph_edge8" class="edge">
-<title>type~symba_plplenc&#45;&gt;type~symba_pltpenc</title>
-<path fill="none" stroke="#000000" d="M846.93,-39.87C838.4,-35.82 829.14,-31.04 821,-26 812.39,-20.66 813.05,-13.34 803,-12"/>
+<title>type~symba_pltpenc&#45;&gt;type~swiftest_encounter</title>
+<path fill="none" stroke="#000000" d="M641.41,-12C621.87,-12 598.21,-12 576.75,-12"/>
+<polygon fill="#000000" stroke="#000000" points="576.75,-8.5 566.75,-12 576.75,-15.5 576.75,-8.5"/>
 </g>
 <!-- type~swiftest_nbody_system -->
 <g id="type~~symba_nbody_system~~InheritsGraph_node12" class="node">
 <title>type~swiftest_nbody_system</title>
 <g id="a_type~~symba_nbody_system~~InheritsGraph_node12"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="622,-199 499,-199 499,-175 622,-175 622,-199"/>
-<text text-anchor="middle" x="560.5" y="-184.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_nbody_system</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="577,-103 454,-103 454,-79 577,-79 577,-103"/>
+<text text-anchor="middle" x="515.5" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system -->
 <g id="type~~symba_nbody_system~~InheritsGraph_edge9" class="edge">
 <title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
-<path fill="none" stroke="#000000" d="M673.94,-163.36C659.45,-166.41 643.62,-169.74 628.52,-172.91"/>
-<polygon fill="#000000" stroke="#000000" points="627.79,-169.49 618.73,-174.97 629.23,-176.34 627.79,-169.49"/>
+<path fill="none" stroke="#000000" d="M628.94,-92.35C615.65,-92.19 601.21,-92.02 587.26,-91.85"/>
+<polygon fill="#000000" stroke="#000000" points="587.25,-88.35 577.21,-91.73 587.17,-95.35 587.25,-88.35"/>
 </g>
-<!-- type~symba_kinship -->
+<!-- type~helio_pl -->
 <g id="type~~symba_nbody_system~~InheritsGraph_node9" class="node">
-<title>type~symba_kinship</title>
-<g id="a_type~~symba_nbody_system~~InheritsGraph_node9"><a xlink:href=".././type/symba_kinship.html" xlink:title="symba_kinship">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="602,-66 519,-66 519,-42 602,-42 602,-66"/>
-<text text-anchor="middle" x="560.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kinship</text>
+<title>type~helio_pl</title>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node9"><a xlink:href=".././type/helio_pl.html" xlink:title="helio_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="542.5,-229 488.5,-229 488.5,-205 542.5,-205 542.5,-229"/>
+<text text-anchor="middle" x="515.5" y="-214.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
 </a>
 </g>
 </g>
-<!-- type~symba_pl&#45;&gt;type~symba_kinship -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge10" class="edge">
-<title>type~symba_pl&#45;&gt;type~symba_kinship</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M706,-81.91C692.08,-74.86 673.49,-66.49 656,-62 642.14,-58.44 626.8,-56.38 612.58,-55.2"/>
-<polygon fill="#000000" stroke="#000000" points="612.68,-51.7 602.46,-54.5 612.2,-58.68 612.68,-51.7"/>
-<text text-anchor="middle" x="648" y="-64.4" font-family="Helvetica,sans-Serif" font-size="9.50">kin</text>
+<!-- type~symba_pl&#45;&gt;type~helio_pl -->
+<g id="type~~symba_nbody_system~~InheritsGraph_edge12" class="edge">
+<title>type~symba_pl&#45;&gt;type~helio_pl</title>
+<path fill="none" stroke="#000000" d="M663.6,-149.15C642.74,-161.89 608.33,-181.97 577,-196 569.21,-199.49 560.65,-202.77 552.48,-205.66"/>
+<polygon fill="#000000" stroke="#000000" points="551.12,-202.43 542.79,-208.98 553.39,-209.05 551.12,-202.43"/>
 </g>
-<!-- type~helio_pl -->
+<!-- type~symba_kinship -->
 <g id="type~~symba_nbody_system~~InheritsGraph_node10" class="node">
-<title>type~helio_pl</title>
-<g id="a_type~~symba_nbody_system~~InheritsGraph_node10"><a xlink:href=".././type/helio_pl.html" xlink:title="helio_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="587.5,-146 533.5,-146 533.5,-122 587.5,-122 587.5,-146"/>
-<text text-anchor="middle" x="560.5" y="-131.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
+<title>type~symba_kinship</title>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node10"><a xlink:href=".././type/symba_kinship.html" xlink:title="symba_kinship">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="557,-187 474,-187 474,-163 557,-163 557,-187"/>
+<text text-anchor="middle" x="515.5" y="-172.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kinship</text>
 </a>
 </g>
 </g>
-<!-- type~symba_pl&#45;&gt;type~helio_pl -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge12" class="edge">
-<title>type~symba_pl&#45;&gt;type~helio_pl</title>
-<path fill="none" stroke="#000000" d="M699.76,-100.79C671.58,-107.55 628.19,-117.98 597.55,-125.34"/>
-<polygon fill="#000000" stroke="#000000" points="596.59,-121.97 587.68,-127.71 598.23,-128.78 596.59,-121.97"/>
+<!-- type~symba_pl&#45;&gt;type~symba_kinship -->
+<g id="type~~symba_nbody_system~~InheritsGraph_edge10" class="edge">
+<title>type~symba_pl&#45;&gt;type~symba_kinship</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.76,-143.45C630.77,-148.92 595.76,-156.91 566.97,-163.48"/>
+<polygon fill="#000000" stroke="#000000" points="566.05,-160.1 557.08,-165.74 567.6,-166.93 566.05,-160.1"/>
+<text text-anchor="middle" x="603" y="-158.4" font-family="Helvetica,sans-Serif" font-size="9.50">kin</text>
 </g>
 <!-- type~symba_particle_info -->
 <g id="type~~symba_nbody_system~~InheritsGraph_node11" class="node">
 <title>type~symba_particle_info</title>
 <g id="a_type~~symba_nbody_system~~InheritsGraph_node11"><a xlink:href=".././type/symba_particle_info.html" xlink:title="symba_particle_info">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="481,-106 373,-106 373,-82 481,-82 481,-106"/>
-<text text-anchor="middle" x="427" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_particle_info</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="569.5,-145 461.5,-145 461.5,-121 569.5,-121 569.5,-145"/>
+<text text-anchor="middle" x="515.5" y="-130.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_particle_info</text>
 </a>
 </g>
 </g>
 <!-- type~symba_pl&#45;&gt;type~symba_particle_info -->
 <g id="type~~symba_nbody_system~~InheritsGraph_edge11" class="edge">
 <title>type~symba_pl&#45;&gt;type~symba_particle_info</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M699.78,-94C652.36,-94 555.58,-94 491.24,-94"/>
-<polygon fill="#000000" stroke="#000000" points="491.21,-90.5 481.21,-94 491.21,-97.5 491.21,-90.5"/>
-<text text-anchor="middle" x="648" y="-96.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M654.76,-136.32C634.28,-135.83 605.77,-135.14 579.95,-134.52"/>
+<polygon fill="#000000" stroke="#000000" points="579.92,-131.02 569.84,-134.28 579.75,-138.02 579.92,-131.02"/>
+<text text-anchor="middle" x="603" y="-137.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 <!-- type~swiftest_pl -->
 <g id="type~~symba_nbody_system~~InheritsGraph_node15" class="node">
 <title>type~swiftest_pl</title>
 <g id="a_type~~symba_nbody_system~~InheritsGraph_node15"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="354.5,-150 292.5,-150 292.5,-126 354.5,-126 354.5,-150"/>
-<text text-anchor="middle" x="323.5" y="-135.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="354.5,-185 292.5,-185 292.5,-161 354.5,-161 354.5,-185"/>
+<text text-anchor="middle" x="323.5" y="-170.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
 </a>
 </g>
 </g>
 <!-- type~helio_pl&#45;&gt;type~swiftest_pl -->
 <g id="type~~symba_nbody_system~~InheritsGraph_edge13" class="edge">
 <title>type~helio_pl&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" d="M533.24,-133.67C497.13,-133.33 430.12,-133.08 373,-135 370.33,-135.09 367.57,-135.2 364.79,-135.33"/>
-<polygon fill="#000000" stroke="#000000" points="364.56,-131.84 354.76,-135.86 364.93,-138.83 364.56,-131.84"/>
-</g>
-<!-- type~swiftest_base -->
-<g id="type~~symba_nbody_system~~InheritsGraph_node16" class="node">
-<title>type~swiftest_base</title>
-<g id="a_type~~symba_nbody_system~~InheritsGraph_node16"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-205 0,-205 0,-181 77,-181 77,-205"/>
-<text text-anchor="middle" x="38.5" y="-190.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
-</a>
-</g>
-</g>
-<!-- type~symba_particle_info&#45;&gt;type~swiftest_base -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge14" class="edge">
-<title>type~symba_particle_info&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M95,-193C92.47,-193.05 89.88,-193.09 87.26,-193.13"/>
-<polygon fill="#000000" stroke="#000000" points="87.09,-189.63 77.12,-193.21 87.15,-196.63 87.09,-189.63"/>
-<path fill="none" stroke="#000000" d="M372.85,-101.5C348.12,-105.4 318.4,-110.68 292,-117 211.47,-136.27 183.22,-126.56 114,-172 103.72,-178.75 108.29,-192.75 96,-193"/>
+<path fill="none" stroke="#000000" d="M488.48,-210.97C456.52,-203.57 401.97,-190.94 364.63,-182.29"/>
+<polygon fill="#000000" stroke="#000000" points="365.12,-178.81 354.59,-179.97 363.54,-185.63 365.12,-178.81"/>
 </g>
-<!-- type~swiftest_cb -->
+<!-- type~swiftest_tp -->
 <g id="type~~symba_nbody_system~~InheritsGraph_node13" class="node">
-<title>type~swiftest_cb</title>
-<g id="a_type~~symba_nbody_system~~InheritsGraph_node13"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="274,-225 209,-225 209,-201 274,-201 274,-225"/>
-<text text-anchor="middle" x="241.5" y="-210.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
+<title>type~swiftest_tp</title>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node13"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="355,-143 292,-143 292,-119 355,-119 355,-143"/>
+<text text-anchor="middle" x="323.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge15" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M498.7,-195.99C492.73,-196.73 486.75,-197.42 481,-198 412.31,-204.96 332.14,-209.21 284.44,-211.33"/>
-<polygon fill="#000000" stroke="#000000" points="284.04,-207.85 274.2,-211.78 284.34,-214.84 284.04,-207.85"/>
-<text text-anchor="middle" x="427" y="-208.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_tp -->
+<g id="type~~symba_nbody_system~~InheritsGraph_edge16" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M457.49,-103C427.74,-109.27 392.03,-116.78 365.11,-122.45"/>
+<polygon fill="#000000" stroke="#000000" points="364.31,-119.04 355.25,-124.53 365.76,-125.89 364.31,-119.04"/>
+<text text-anchor="middle" x="404.5" y="-122.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </g>
-<!-- type~swiftest_tp -->
+<!-- type~swiftest_base -->
 <g id="type~~symba_nbody_system~~InheritsGraph_node14" class="node">
-<title>type~swiftest_tp</title>
-<g id="a_type~~symba_nbody_system~~InheritsGraph_node14"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="355,-192 292,-192 292,-168 355,-168 355,-192"/>
-<text text-anchor="middle" x="323.5" y="-177.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
+<title>type~swiftest_base</title>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node14"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-103 0,-103 0,-79 77,-79 77,-103"/>
+<text text-anchor="middle" x="38.5" y="-88.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_tp -->
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_base -->
 <g id="type~~symba_nbody_system~~InheritsGraph_edge17" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M498.98,-185.2C457.02,-183.95 402.27,-182.32 365.38,-181.22"/>
-<polygon fill="#000000" stroke="#000000" points="365.11,-177.71 355.01,-180.91 364.9,-184.71 365.11,-177.71"/>
-<text text-anchor="middle" x="427" y="-186.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M453.99,-87.73C382.17,-84.6 258.84,-81.61 153.5,-91"/>
 </g>
 <!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_pl -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge16" class="edge">
+<g id="type~~symba_nbody_system~~InheritsGraph_edge15" class="edge">
 <title>type~swiftest_nbody_system&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M514.38,-174.96C503.48,-172.2 491.85,-169.39 481,-167 441.72,-158.37 396.52,-150.18 364.82,-144.72"/>
-<polygon fill="#000000" stroke="#000000" points="365.07,-141.21 354.62,-142.97 363.89,-148.11 365.07,-141.21"/>
-<text text-anchor="middle" x="427" y="-169.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M470.45,-103.03C464.67,-105.53 459.01,-108.5 454,-112 443.64,-119.23 446.35,-126.75 436,-134 414.73,-148.89 387.23,-158.59 364.86,-164.59"/>
+<polygon fill="#000000" stroke="#000000" points="363.82,-161.25 354.98,-167.1 365.54,-168.03 363.82,-161.25"/>
+<text text-anchor="middle" x="404.5" y="-163.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_base -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge18" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M536.49,-199.11C521.2,-206.53 500.43,-215.46 481,-220 339,-253.17 294.06,-278.83 153.5,-240"/>
+<!-- type~swiftest_cb -->
+<g id="type~~symba_nbody_system~~InheritsGraph_node16" class="node">
+<title>type~swiftest_cb</title>
+<g id="a_type~~symba_nbody_system~~InheritsGraph_node16"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="274,-71 209,-71 209,-47 274,-47 274,-71"/>
+<text text-anchor="middle" x="241.5" y="-56.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
+</a>
 </g>
-<!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge19" class="edge">
-<title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M151.5,-240C131.95,-234.6 129.06,-227.59 114,-214 104.87,-205.76 108.29,-192.75 96,-193"/>
-<path fill="none" stroke="#000000" d="M213.14,-225.03C192.1,-233.6 164.78,-243.12 153.5,-240"/>
+</g>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
+<g id="type~~symba_nbody_system~~InheritsGraph_edge14" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M481.72,-78.93C467.82,-74.35 451.31,-69.61 436,-67 384.28,-58.17 323.71,-57.14 284.3,-57.67"/>
+<polygon fill="#000000" stroke="#000000" points="284.2,-54.17 274.26,-57.85 284.32,-61.17 284.2,-54.17"/>
+<text text-anchor="middle" x="404.5" y="-69.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
 </g>
 <!-- type~swiftest_body -->
 <g id="type~~symba_nbody_system~~InheritsGraph_node17" class="node">
 <title>type~swiftest_body</title>
 <g id="a_type~~symba_nbody_system~~InheritsGraph_node17"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-205 114,-205 114,-181 191,-181 191,-205"/>
-<text text-anchor="middle" x="152.5" y="-190.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-143 114,-143 114,-119 191,-119 191,-143"/>
+<text text-anchor="middle" x="152.5" y="-128.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_tp&#45;&gt;type~swiftest_body -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge20" class="edge">
+<g id="type~~symba_nbody_system~~InheritsGraph_edge18" class="edge">
 <title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M291.83,-177.19C276.82,-176.53 258.57,-176.78 242.5,-180"/>
+<path fill="none" stroke="#000000" d="M296.19,-143.09C280.76,-148.87 260.76,-154.12 242.5,-152"/>
+<path fill="none" stroke="#000000" d="M240.5,-152C227.59,-150.5 213.83,-147.74 201.15,-144.7"/>
+<polygon fill="#000000" stroke="#000000" points="201.8,-141.25 191.25,-142.22 200.11,-148.04 201.8,-141.25"/>
 </g>
 <!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge21" class="edge">
+<g id="type~~symba_nbody_system~~InheritsGraph_edge19" class="edge">
 <title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M240.5,-180C227.86,-182.53 214.09,-184.81 201.32,-186.72"/>
-<polygon fill="#000000" stroke="#000000" points="200.72,-183.28 191.33,-188.18 201.73,-190.2 200.72,-183.28"/>
-<path fill="none" stroke="#000000" d="M302.74,-150.03C283.33,-161.55 254.88,-177.52 242.5,-180"/>
+<path fill="none" stroke="#000000" d="M292.49,-162.98C277.64,-158.57 259.33,-153.96 242.5,-152"/>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
+<g id="type~~symba_nbody_system~~InheritsGraph_edge20" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M95,-91C92.51,-90.58 89.94,-90.24 87.34,-89.97"/>
+<polygon fill="#000000" stroke="#000000" points="87.47,-86.47 77.26,-89.29 87,-93.46 87.47,-86.47"/>
+<path fill="none" stroke="#000000" d="M218.01,-71.01C200.88,-79.21 176.42,-88.96 153.5,-91"/>
+<path fill="none" stroke="#000000" d="M151.5,-91C126.93,-93.19 120.32,-95.14 96,-91"/>
 </g>
 <!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
-<g id="type~~symba_nbody_system~~InheritsGraph_edge22" class="edge">
+<g id="type~~symba_nbody_system~~InheritsGraph_edge21" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M113.88,-192.79C107.9,-192.82 101.78,-192.88 96,-193"/>
+<path fill="none" stroke="#000000" d="M133.43,-118.77C127.22,-114.48 120.26,-109.6 114,-105 105.83,-99 105.99,-92.7 96,-91"/>
 </g>
 </g>
 </svg>
@@ -668,6 +667,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-tp_discards">tp_discards</a>
       
+      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-pl_discards">pl_discards</a>
+      
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-gmtot">Gmtot</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-ke_orbit">ke_orbit</a>
@@ -694,9 +695,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-maxid">maxid</a>
       
-      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-mergeadd_list">mergeadd_list</a>
-      
-      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-mergesub_list">mergesub_list</a>
+      <a class="list-group-item" href="../type/symba_nbody_system.html#variable-pl_adds">pl_adds</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#variable-pltpenc_list">pltpenc_list</a>
       
@@ -746,9 +745,13 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-get_energy_and_momentum">get_energy_and_momentum</a>
       
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-rescale">rescale</a>
+      
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-validate_ids">validate_ids</a>
+      
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-write_discard~2">write_discard</a>
       
-      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-initialize~6">initialize</a>
+      <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-initialize~5">initialize</a>
       
       <a class="list-group-item" href="../type/symba_nbody_system.html#boundprocedure-step~8">step</a>
       
@@ -858,6 +861,20 @@ <h2>Components</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-pl_discards"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  
+  <td>public,</td>
+  <td>allocatable</td><td>::</td>
+  <td><strong>pl_discards</strong></td><td></td><td></td><td><p>Discarded massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-gmtot"></span>real(kind=DP),</td>
@@ -1044,25 +1061,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mergeadd_list"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
+  <td><span class="anchor" id="variable-pl_adds"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
   
   <td>public,</td>
   <td>allocatable</td><td>::</td>
-  <td><strong>mergeadd_list</strong></td><td></td><td></td><td><p>List of added bodies in mergers or collisions</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" id="variable-mergesub_list"></span>class(<a href='../type/symba_merger.html'>symba_merger</a>),</td>
-  
-  <td>public,</td>
-  <td>allocatable</td><td>::</td>
-  <td><strong>mergesub_list</strong></td><td></td><td></td><td><p>List of subtracted bodies in mergers or collisions</p></td>
+  <td><strong>pl_adds</strong></td><td></td><td></td><td><p>List of added bodies in mergers or collisions</p></td>
   
 </tr>
 
@@ -1350,7 +1353,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_system(self, param, msg)
+public module subroutine io_dump_system(self, param)
     
     
    
@@ -1402,21 +1405,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -1966,6 +1954,237 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-rescale"></span><h3>procedure, public :: <strong>rescale</strong>  => <a href='../interface/util_rescale_system.html'>util_rescale_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Rescales the system into a new set of units</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_rescale_system(self, param, mscale, dscale, tscale)
+    
+    
+   
+   <a href='../proc/util_rescale_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters. Returns with new values of the scale vactors and GU</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>mscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>tscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-validate_ids"></span><h3>procedure, public :: <strong>validate_ids</strong>  => <a href='../interface/util_valid_id_system.html'>util_valid_id_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Validate the numerical ids passed to the system and save the maximum value</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_valid_id_system(self, param)
+    
+    
+   
+   <a href='../proc/util_valid_id_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
       </li>
     
   </ul>
@@ -2067,7 +2286,7 @@ <h4>Arguments</h4>
     
      
 <div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~6"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/symba_setup_initialize_system.html'>symba_setup_initialize_system</a> 
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~5"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/symba_setup_initialize_system.html'>symba_setup_initialize_system</a> 
     
   </h3></div>
   
diff --git a/docs/type/symba_parameters.html b/docs/type/symba_parameters.html
index b2303d29e..fd25454ec 100644
--- a/docs/type/symba_parameters.html
+++ b/docs/type/symba_parameters.html
@@ -241,7 +241,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-inv_c2">inv_c2</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-ennergy_out">ennergy_out</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-energy_out">energy_out</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-lrhill_present">lrhill_present</a>
       
@@ -285,15 +285,17 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-lfirstkick">lfirstkick</a>
       
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-lrestart">lrestart</a>
+      
       <a class="list-group-item" href="../type/symba_parameters.html#variable-lgr">lgr</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-lyarkovsky">lyarkovsky</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-lyorp">lyorp</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-particle_file">particle_file</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-particle_out">particle_out</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-mtiny">MTINY</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-gmtiny">GMTINY</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-seed">seed</a>
       
@@ -504,7 +506,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-inv_c2">inv_c2</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-ennergy_out">ennergy_out</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-energy_out">energy_out</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-lrhill_present">lrhill_present</a>
       
@@ -548,15 +550,17 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-lfirstkick">lfirstkick</a>
       
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-lrestart">lrestart</a>
+      
       <a class="list-group-item" href="../type/symba_parameters.html#variable-lgr">lgr</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-lyarkovsky">lyarkovsky</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-lyorp">lyorp</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-particle_file">particle_file</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-particle_out">particle_out</a>
       
-      <a class="list-group-item" href="../type/symba_parameters.html#variable-mtiny">MTINY</a>
+      <a class="list-group-item" href="../type/symba_parameters.html#variable-gmtiny">GMTINY</a>
       
       <a class="list-group-item" href="../type/symba_parameters.html#variable-seed">seed</a>
       
@@ -1060,11 +1064,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-ennergy_out"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-energy_out"></span>character(len=STRMAX),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>ennergy_out</strong></td><td> =</td><td>""</td><td><p>Name of output energy and momentum report file</p></td>
+  <td><strong>energy_out</strong></td><td> =</td><td>""</td><td><p>Name of output energy and momentum report file</p></td>
   
 </tr>
 
@@ -1366,6 +1370,20 @@ <h2>Components</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-lrestart"></span>logical,</td>
+  
+  <td>public</td>
+  <td></td><td>::</td>
+  <td><strong>lrestart</strong></td><td> =</td><td>.false.</td><td><p>Indicates whether or not this is a restarted run</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-lgr"></span>logical,</td>
@@ -1410,11 +1428,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-particle_file"></span>character(len=STRMAX),</td>
+  <td><span class="anchor" id="variable-particle_out"></span>character(len=STRMAX),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>particle_file</strong></td><td> =</td><td>PARTICLE_OUTFILE</td><td><p>Name of output particle information file</p></td>
+  <td><strong>particle_out</strong></td><td> =</td><td>PARTICLE_OUTFILE</td><td><p>Name of output particle information file</p></td>
   
 </tr>
 
@@ -1424,11 +1442,11 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-mtiny"></span>real(kind=DP),</td>
+  <td><span class="anchor" id="variable-gmtiny"></span>real(kind=DP),</td>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>MTINY</strong></td><td> =</td><td>-1.0_DP</td><td><p>Smallest mass that is fully gravitating</p></td>
+  <td><strong>GMTINY</strong></td><td> =</td><td>-1.0_DP</td><td><p>Smallest mass that is fully gravitating</p></td>
   
 </tr>
 
diff --git a/docs/type/symba_particle_info.html b/docs/type/symba_particle_info.html
index 17e243c18..cb63a8207 100644
--- a/docs/type/symba_particle_info.html
+++ b/docs/type/symba_particle_info.html
@@ -134,7 +134,7 @@ <h1>symba_particle_info
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 2.0% of total for derived types.</p>Including implementation: 11 statements,  1.6% of total for derived types.">11 statements</a>
+    title="<p> 1.3% of total for derived types.</p>Including implementation: 7 statements,  1.0% of total for derived types.">7 statements</a>
      </li> 
      
      
@@ -179,8 +179,6 @@ <h3>Contents</h3>
   <div id="vars-0" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/symba_particle_info.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/symba_particle_info.html#variable-origin_type">origin_type</a>
       
       <a class="list-group-item" href="../type/symba_particle_info.html#variable-origin_time">origin_time</a>
@@ -210,24 +208,6 @@ <h3>Contents</h3>
 
 
 
-<div class="panel panel-primary">
-  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-0">Type-Bound Procedures</a></h3></div>
-  <div id="boundprocs-0" class="panel-collapse collapse">
-    <div class="list-group">
-      
-      <a class="list-group-item" href="../type/symba_particle_info.html#boundprocedure-dump~4">dump</a>
-      
-      <a class="list-group-item" href="../type/symba_particle_info.html#boundprocedure-initialize~5">initialize</a>
-      
-      <a class="list-group-item" href="../type/symba_particle_info.html#boundprocedure-read_frame~4">read_frame</a>
-      
-      <a class="list-group-item" href="../type/symba_particle_info.html#boundprocedure-write_frame~4">write_frame</a>
-      
-    </div>
-  </div>
-</div>
-
-
 
 
 
@@ -236,157 +216,112 @@ <h3>Contents</h3>
     </div>
     
     <div class="col-md-9" id='text'>
-      <h2>type, public, extends(<a href='../type/swiftest_base.html'>swiftest_base</a>) :: symba_particle_info</h2>
+      <h2>type, public :: symba_particle_info<br>sequence</h2>
     <p>Class definition for the particle origin information object. This object is used to track time, location, and collisional regime
  of fragments produced in collisional events.</p>
     <br>
     
+    
     <div class="panel panel-default">
       <div class="panel-heading">
-  <h3 class="panel-title">Inherits</h3>
+  <h3 class="panel-title">Inherited by</h3>
       </div>
       <div class="panel-body">
-    <div class="depgraph"><?xml version="1.0" encoding="UTF-8" standalone="no"?>
+     <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.47.1 (20210417.1919)
  -->
-<!-- Title: type~~symba_particle_info~~InheritsGraph Pages: 1 -->
-<svg id="typesymba_particle_infoInheritsGraph" width="229pt" height="32pt"
- viewBox="0.00 0.00 229.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~symba_particle_info~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>type~~symba_particle_info~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 225,-28 225,4 -4,4"/>
+<!-- Title: type~~symba_particle_info~~InheritedByGraph Pages: 1 -->
+<svg id="typesymba_particle_infoInheritedByGraph" width="540pt" height="116pt"
+ viewBox="0.00 0.00 540.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~symba_particle_info~~InheritedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
+<title>type~~symba_particle_info~~InheritedByGraph</title>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 536,-112 536,4 -4,4"/>
 <!-- type~symba_particle_info -->
-<g id="type~~symba_particle_info~~InheritsGraph_node1" class="node">
+<g id="type~~symba_particle_info~~InheritedByGraph_node1" class="node">
 <title>type~symba_particle_info</title>
-<polygon fill="none" stroke="black" points="221,-24 113,-24 113,0 221,0 221,-24"/>
-<text text-anchor="middle" x="167" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_particle_info</text>
+<polygon fill="none" stroke="black" points="108,-66 0,-66 0,-42 108,-42 108,-66"/>
+<text text-anchor="middle" x="54" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_particle_info</text>
 </g>
-<!-- type~swiftest_base -->
-<g id="type~~symba_particle_info~~InheritsGraph_node2" class="node">
-<title>type~swiftest_base</title>
-<g id="a_type~~symba_particle_info~~InheritsGraph_node2"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-24 0,-24 0,0 77,0 77,-24"/>
-<text text-anchor="middle" x="38.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
+<!-- type~symba_cb -->
+<g id="type~~symba_particle_info~~InheritedByGraph_node2" class="node">
+<title>type~symba_cb</title>
+<g id="a_type~~symba_particle_info~~InheritedByGraph_node2"><a xlink:href=".././type/symba_cb.html" xlink:title="symba_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="221,-108 160,-108 160,-84 221,-84 221,-108"/>
+<text text-anchor="middle" x="190.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_cb</text>
 </a>
 </g>
 </g>
-<!-- type~symba_particle_info&#45;&gt;type~swiftest_base -->
-<g id="type~~symba_particle_info~~InheritsGraph_edge1" class="edge">
-<title>type~symba_particle_info&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M112.72,-12C104.36,-12 95.77,-12 87.54,-12"/>
-<polygon fill="#000000" stroke="#000000" points="87.36,-8.5 77.36,-12 87.36,-15.5 87.36,-8.5"/>
-</g>
-</g>
-</svg>
-</div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
-    <p>Nodes of different colours represent the following: </p>
-    <?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.47.1 (20210417.1919)
- -->
-<!-- Title: Graph Key Pages: 1 -->
-<svg width="178pt" height="32pt"
- viewBox="0.00 0.00 177.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)">
-<title>Graph Key</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 173.5,-28 173.5,4 -4,4"/>
-<!-- Type -->
-<g id="node1" class="node">
-<title>Type</title>
-<polygon fill="#5cb85c" stroke="#5cb85c" 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">Type</text>
+<!-- type~symba_cb&#45;&gt;type~symba_particle_info -->
+<g id="type~~symba_particle_info~~InheritedByGraph_edge1" class="edge">
+<title>type~symba_cb&#45;&gt;type~symba_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M159.98,-86.78C143.39,-81.6 122.26,-75 103.32,-69.09"/>
+<polygon fill="#000000" stroke="#000000" points="104.24,-65.71 93.65,-66.07 102.15,-72.39 104.24,-65.71"/>
+<text text-anchor="middle" x="134" y="-81.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</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="169.5,-24 72.5,-24 72.5,0 169.5,0 169.5,-24"/>
-<text text-anchor="middle" x="121" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">This Page&#39;s Entity</text>
+<!-- type~symba_tp -->
+<g id="type~~symba_particle_info~~InheritedByGraph_node3" class="node">
+<title>type~symba_tp</title>
+<g id="a_type~~symba_particle_info~~InheritedByGraph_node3"><a xlink:href=".././type/symba_tp.html" xlink:title="symba_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="220,-66 161,-66 161,-42 220,-42 220,-66"/>
+<text text-anchor="middle" x="190.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_tp</text>
+</a>
 </g>
 </g>
-</svg>
-
-    
-    <p>Solid arrows point from a derived type to the parent type which it
-    extends. Dashed arrows point from a derived type to the other
-    types it contains as a components, with a label listing the name(s) of
-    said component(s).
-    </p>
-    </div></div></div></div>
-      </div>
-    </div>
-    
-    
-    <div class="panel panel-default">
-      <div class="panel-heading">
-  <h3 class="panel-title">Inherited by</h3>
-      </div>
-      <div class="panel-body">
-     <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.47.1 (20210417.1919)
- -->
-<!-- Title: type~~symba_particle_info~~InheritedByGraph Pages: 1 -->
-<svg id="typesymba_particle_infoInheritedByGraph" width="629pt" height="32pt"
- viewBox="0.00 0.00 629.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~symba_particle_info~~InheritedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
-<title>type~~symba_particle_info~~InheritedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 625,-28 625,4 -4,4"/>
-<!-- type~symba_particle_info -->
-<g id="type~~symba_particle_info~~InheritedByGraph_node1" class="node">
-<title>type~symba_particle_info</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">symba_particle_info</text>
+<!-- type~symba_tp&#45;&gt;type~symba_particle_info -->
+<g id="type~~symba_particle_info~~InheritedByGraph_edge3" class="edge">
+<title>type~symba_tp&#45;&gt;type~symba_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M160.98,-54C148.51,-54 133.35,-54 118.43,-54"/>
+<polygon fill="#000000" stroke="#000000" points="118.19,-50.5 108.19,-54 118.19,-57.5 118.19,-50.5"/>
+<text text-anchor="middle" x="134" y="-56.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 <!-- type~symba_pl -->
-<g id="type~~symba_particle_info~~InheritedByGraph_node2" class="node">
+<g id="type~~symba_particle_info~~InheritedByGraph_node4" class="node">
 <title>type~symba_pl</title>
-<g id="a_type~~symba_particle_info~~InheritedByGraph_node2"><a xlink:href=".././type/symba_pl.html" xlink:title="symba_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="218,-24 160,-24 160,0 218,0 218,-24"/>
-<text text-anchor="middle" x="189" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pl</text>
+<g id="a_type~~symba_particle_info~~InheritedByGraph_node4"><a xlink:href=".././type/symba_pl.html" xlink:title="symba_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="219.5,-24 161.5,-24 161.5,0 219.5,0 219.5,-24"/>
+<text text-anchor="middle" x="190.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_pl</text>
 </a>
 </g>
 </g>
 <!-- type~symba_pl&#45;&gt;type~symba_particle_info -->
-<g id="type~~symba_particle_info~~InheritedByGraph_edge1" class="edge">
+<g id="type~~symba_particle_info~~InheritedByGraph_edge2" class="edge">
 <title>type~symba_pl&#45;&gt;type~symba_particle_info</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M159.79,-12C147.59,-12 132.77,-12 118.17,-12"/>
-<polygon fill="#000000" stroke="#000000" points="118.13,-8.5 108.13,-12 118.13,-15.5 118.13,-8.5"/>
-<text text-anchor="middle" x="134" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M161.3,-20.8C144.5,-26.05 122.72,-32.85 103.25,-38.93"/>
+<polygon fill="#000000" stroke="#000000" points="102.12,-35.62 93.62,-41.94 104.2,-42.3 102.12,-35.62"/>
+<text text-anchor="middle" x="134" y="-33.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 <!-- type~symba_merger -->
-<g id="type~~symba_particle_info~~InheritedByGraph_node3" class="node">
+<g id="type~~symba_particle_info~~InheritedByGraph_node5" class="node">
 <title>type~symba_merger</title>
-<g id="a_type~~symba_particle_info~~InheritedByGraph_node3"><a xlink:href=".././type/symba_merger.html" xlink:title="symba_merger">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="340,-24 255,-24 255,0 340,0 340,-24"/>
-<text text-anchor="middle" x="297.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_merger</text>
+<g id="a_type~~symba_particle_info~~InheritedByGraph_node5"><a xlink:href=".././type/symba_merger.html" xlink:title="symba_merger">
+<polygon fill="#5cb85c" stroke="#5cb85c" 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" fill="white">symba_merger</text>
 </a>
 </g>
 </g>
 <!-- type~symba_merger&#45;&gt;type~symba_pl -->
-<g id="type~~symba_particle_info~~InheritedByGraph_edge2" class="edge">
+<g id="type~~symba_particle_info~~InheritedByGraph_edge4" class="edge">
 <title>type~symba_merger&#45;&gt;type~symba_pl</title>
-<path fill="none" stroke="#000000" d="M254.71,-12C246.01,-12 236.89,-12 228.32,-12"/>
-<polygon fill="#000000" stroke="#000000" points="228.21,-8.5 218.21,-12 228.21,-15.5 228.21,-8.5"/>
+<path fill="none" stroke="#000000" d="M257.74,-12C248.61,-12 238.99,-12 230,-12"/>
+<polygon fill="#000000" stroke="#000000" points="229.79,-8.5 219.79,-12 229.79,-15.5 229.79,-8.5"/>
 </g>
 <!-- type~symba_nbody_system -->
-<g id="type~~symba_particle_info~~InheritedByGraph_node4" class="node">
+<g id="type~~symba_particle_info~~InheritedByGraph_node6" class="node">
 <title>type~symba_nbody_system</title>
-<g id="a_type~~symba_particle_info~~InheritedByGraph_node4"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="621,-24 502,-24 502,0 621,0 621,-24"/>
-<text text-anchor="middle" x="561.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
+<g id="a_type~~symba_particle_info~~InheritedByGraph_node6"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="532,-24 413,-24 413,0 532,0 532,-24"/>
+<text text-anchor="middle" x="472.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~symba_nbody_system&#45;&gt;type~symba_merger -->
-<g id="type~~symba_particle_info~~InheritedByGraph_edge3" class="edge">
+<g id="type~~symba_particle_info~~InheritedByGraph_edge5" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~symba_merger</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M501.7,-12C456.31,-12 394.09,-12 350.5,-12"/>
-<polygon fill="#000000" stroke="#000000" points="350.4,-8.5 340.4,-12 350.4,-15.5 350.4,-8.5"/>
-<text text-anchor="middle" x="421" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">mergeadd_list, mergesub_list</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M413,-12C393.63,-12 372.22,-12 353.38,-12"/>
+<polygon fill="#000000" stroke="#000000" points="353.21,-8.5 343.21,-12 353.21,-15.5 353.21,-8.5"/>
+<text text-anchor="middle" x="378" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl_adds</text>
 </g>
 </g>
 </svg>
@@ -442,8 +377,6 @@ <h3>Contents</h3>
   <div id="vars-1" class="panel-collapse collapse">
     <div class="list-group">
       
-      <a class="list-group-item" href="../type/symba_particle_info.html#variable-lintegrate">lintegrate</a>
-      
       <a class="list-group-item" href="../type/symba_particle_info.html#variable-origin_type">origin_type</a>
       
       <a class="list-group-item" href="../type/symba_particle_info.html#variable-origin_time">origin_time</a>
@@ -473,24 +406,6 @@ <h3>Contents</h3>
 
 
 
-<div class="panel panel-primary">
-  <div class="panel-heading text-left"><h3 class="panel-title"><a data-toggle="collapse" href="#boundprocs-1">Type-Bound Procedures</a></h3></div>
-  <div id="boundprocs-1" class="panel-collapse collapse">
-    <div class="list-group">
-      
-      <a class="list-group-item" href="../type/symba_particle_info.html#boundprocedure-dump~4">dump</a>
-      
-      <a class="list-group-item" href="../type/symba_particle_info.html#boundprocedure-initialize~5">initialize</a>
-      
-      <a class="list-group-item" href="../type/symba_particle_info.html#boundprocedure-read_frame~4">read_frame</a>
-      
-      <a class="list-group-item" href="../type/symba_particle_info.html#boundprocedure-write_frame~4">write_frame</a>
-      
-    </div>
-  </div>
-</div>
-
-
 
 
 
@@ -514,20 +429,6 @@ <h2>Components</h2>
   
   
   
-<tr>
-  
-  <td><span class="anchor" id="variable-lintegrate"></span>logical,</td>
-  
-  <td>public</td>
-  <td></td><td>::</td>
-  <td><strong>lintegrate</strong></td><td> =</td><td>.false.</td><td><p>Flag indicating that this object should be integrated in the current step </p></td>
-  
-</tr>
-
-  
-  
-  
-  
 <tr>
   
   <td><span class="anchor" id="variable-origin_type"></span>character(len=32),</td>
@@ -591,458 +492,6 @@ <h2>Components</h2>
     
     
     
-     
-    <section>
-    <h2>Type-Bound Procedures</h2>
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-dump~4"></span><h3>procedure, public :: <strong>dump</strong>  => <a href='../interface/symba_io_dump_particle_info.html'>symba_io_dump_particle_info</a> 
-    
-  </h3></div>
-  
-  <div class="panel-body">
-    
-
-
-    <p>I/O routine for dumping particle info to file</p>
-  </div>
-  
-  <ul class="list-group">
-    
-      <li class="list-group-item">
-      
-        
-          <h3>interface
-          
-          </h3>
-  
-          
-          
-    
-    <h3>
-public module subroutine symba_io_dump_particle_info(self, param, msg)
-    
-    
-   
-   <a href='../proc/symba_io_dump_particle_info.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
-</h3>
-    
-    
-    <h4>Arguments</h4>
-    
-      
-      
-<table class="table table-striped varlist">
-<thead><tr><th>Type</th>
-<th>Intent</th><th>Optional</th>
-<th>Attributes</th><th></th><th>Name</th><th></th></thead>
-
-
-
-<tbody>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>Swiftest base object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-        
-      
-      </li>
-    
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-initialize~5"></span><h3>procedure, public :: <strong>initialize</strong>  => <a href='../interface/symba_io_initialize_particle_info.html'>symba_io_initialize_particle_info</a> 
-    
-  </h3></div>
-  
-  <div class="panel-body">
-    
-
-
-    <p>I/O routine for reading in particle info data</p>
-  </div>
-  
-  <ul class="list-group">
-    
-      <li class="list-group-item">
-      
-        
-          <h3>interface
-          
-          </h3>
-  
-          
-          
-    
-    <h3>
-public module subroutine symba_io_initialize_particle_info(self, param)
-    
-    
-   
-   <a href='../proc/symba_io_initialize_particle_info.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
-</h3>
-    
-    
-    <h4>Arguments</h4>
-    
-      
-      
-<table class="table table-striped varlist">
-<thead><tr><th>Type</th>
-<th>Intent</th><th>Optional</th>
-<th>Attributes</th><th></th><th>Name</th><th></th></thead>
-
-
-
-<tbody>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA particle info object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-        
-      
-      </li>
-    
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-read_frame~4"></span><h3>procedure, public :: <strong>read_frame</strong>  => <a href='../interface/symba_io_read_frame_info.html'>symba_io_read_frame_info</a> 
-    
-  </h3></div>
-  
-  <div class="panel-body">
-    
-
-
-    <p>I/O routine for reading in a single frame of particle info</p>
-  </div>
-  
-  <ul class="list-group">
-    
-      <li class="list-group-item">
-      
-        
-          <h3>interface
-          
-          </h3>
-  
-          
-          
-    
-    <h3>
-public module subroutine symba_io_read_frame_info(self, iu, param, form, ierr)
-    
-    
-   
-   <a href='../proc/symba_io_read_frame_info.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
-</h3>
-    
-    
-    <h4>Arguments</h4>
-    
-      
-      
-<table class="table table-striped varlist">
-<thead><tr><th>Type</th>
-<th>Intent</th><th>Optional</th>
-<th>Attributes</th><th></th><th>Name</th><th></th></thead>
-
-
-
-<tbody>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA particle info object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>form</strong></td><td><p>Input format code ("XV" or "EL")</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(out)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>ierr</strong></td><td><p>Error code</p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-        
-      
-      </li>
-    
-  </ul>
-</div>
-
-    
-     
-<div class="panel panel-default">
-  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-write_frame~4"></span><h3>procedure, public :: <strong>write_frame</strong>  => <a href='../interface/symba_io_write_frame_info.html'>symba_io_write_frame_info</a> 
-    
-  </h3></div>
-  
-  <div class="panel-body">
-    
-
-
-    <p>I/O routine for writing out a single frame of particle info</p>
-  </div>
-  
-  <ul class="list-group">
-    
-      <li class="list-group-item">
-      
-        
-          <h3>interface
-          
-          </h3>
-  
-          
-          
-    
-    <h3>
-public module subroutine symba_io_write_frame_info(self, iu, param)
-    
-    
-   
-   <a href='../proc/symba_io_write_frame_info.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
-    
-</h3>
-    
-    
-    <h4>Arguments</h4>
-    
-      
-      
-<table class="table table-striped varlist">
-<thead><tr><th>Type</th>
-<th>Intent</th><th>Optional</th>
-<th>Attributes</th><th></th><th>Name</th><th></th></thead>
-
-
-
-<tbody>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>class(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>self</strong></td><td><p>SyMBA particle info object</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>integer(kind=I4B),</td>
-  <td>intent(inout)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>iu</strong></td><td><p>Unit number for the output file to write frame to</p></td>
-  
-</tr>
-
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
-  <td>intent(in)</td>
-  <td></td>
-  
-  <td></td><td>::</td>
-  <td><strong>param</strong></td><td><p>Current run configuration parameters </p></td>
-  
-</tr>
-
-</tbody>
-</table>
-
-      
-    
-    
-
-        
-      
-      </li>
-    
-  </ul>
-</div>
-
-    
-    </section>
     
     
     
diff --git a/docs/type/symba_pl.html b/docs/type/symba_pl.html
index bfa3d02ed..ab3de72c6 100644
--- a/docs/type/symba_pl.html
+++ b/docs/type/symba_pl.html
@@ -283,7 +283,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pl.html#variable-kin">kin</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#variable-info">info</a>
+      <a class="list-group-item" href="../type/symba_pl.html#variable-info~2">info</a>
       
     </div>
   </div>
@@ -419,114 +419,108 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~symba_pl~~InheritsGraph Pages: 1 -->
-<svg id="typesymba_plInheritsGraph" width="635pt" height="114pt"
- viewBox="0.00 0.00 635.00 114.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~symba_pl~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 110)">
+<svg id="typesymba_plInheritsGraph" width="553pt" height="116pt"
+ viewBox="0.00 0.00 553.00 116.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~symba_pl~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 112)">
 <title>type~~symba_pl~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-110 631,-110 631,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-112 549,-112 549,4 -4,4"/>
 <!-- type~symba_pl -->
 <g id="type~~symba_pl~~InheritsGraph_node1" class="node">
 <title>type~symba_pl</title>
-<polygon fill="none" stroke="black" points="627,-64 569,-64 569,-40 627,-40 627,-64"/>
-<text text-anchor="middle" x="598" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_pl</text>
+<polygon fill="none" stroke="black" points="545,-66 487,-66 487,-42 545,-42 545,-66"/>
+<text text-anchor="middle" x="516" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_pl</text>
 </g>
-<!-- type~symba_kinship -->
+<!-- type~helio_pl -->
 <g id="type~~symba_pl~~InheritsGraph_node2" class="node">
-<title>type~symba_kinship</title>
-<g id="a_type~~symba_pl~~InheritsGraph_node2"><a xlink:href=".././type/symba_kinship.html" xlink:title="symba_kinship">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="517,-106 434,-106 434,-82 517,-82 517,-106"/>
-<text text-anchor="middle" x="475.5" y="-91.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kinship</text>
+<title>type~helio_pl</title>
+<g id="a_type~~symba_pl~~InheritsGraph_node2"><a xlink:href=".././type/helio_pl.html" xlink:title="helio_pl">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="408,-108 354,-108 354,-84 408,-84 408,-108"/>
+<text text-anchor="middle" x="381" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
 </a>
 </g>
 </g>
-<!-- type~symba_pl&#45;&gt;type~symba_kinship -->
-<g id="type~~symba_pl~~InheritsGraph_edge1" class="edge">
-<title>type~symba_pl&#45;&gt;type~symba_kinship</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M568.75,-61.85C554.46,-66.83 536.79,-72.98 520.76,-78.57"/>
-<polygon fill="#000000" stroke="#000000" points="519.32,-75.37 511.03,-81.97 521.62,-81.98 519.32,-75.37"/>
-<text text-anchor="middle" x="543" y="-75.4" font-family="Helvetica,sans-Serif" font-size="9.50">kin</text>
+<!-- type~symba_pl&#45;&gt;type~helio_pl -->
+<g id="type~~symba_pl~~InheritsGraph_edge3" class="edge">
+<title>type~symba_pl&#45;&gt;type~helio_pl</title>
+<path fill="none" stroke="#000000" d="M486.79,-62.91C466.78,-69.23 439.75,-77.76 418.16,-84.58"/>
+<polygon fill="#000000" stroke="#000000" points="416.84,-81.33 408.36,-87.68 418.95,-88 416.84,-81.33"/>
 </g>
-<!-- type~helio_pl -->
+<!-- type~symba_kinship -->
 <g id="type~~symba_pl~~InheritsGraph_node3" class="node">
-<title>type~helio_pl</title>
-<g id="a_type~~symba_pl~~InheritsGraph_node3"><a xlink:href=".././type/helio_pl.html" xlink:title="helio_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="502.5,-64 448.5,-64 448.5,-40 502.5,-40 502.5,-64"/>
-<text text-anchor="middle" x="475.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_pl</text>
+<title>type~symba_kinship</title>
+<g id="a_type~~symba_pl~~InheritsGraph_node3"><a xlink:href=".././type/symba_kinship.html" xlink:title="symba_kinship">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="422.5,-66 339.5,-66 339.5,-42 422.5,-42 422.5,-66"/>
+<text text-anchor="middle" x="381" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_kinship</text>
 </a>
 </g>
 </g>
-<!-- type~symba_pl&#45;&gt;type~helio_pl -->
-<g id="type~~symba_pl~~InheritsGraph_edge3" class="edge">
-<title>type~symba_pl&#45;&gt;type~helio_pl</title>
-<path fill="none" stroke="#000000" d="M568.75,-52C552,-52 530.61,-52 512.64,-52"/>
-<polygon fill="#000000" stroke="#000000" points="512.52,-48.5 502.52,-52 512.52,-55.5 512.52,-48.5"/>
+<!-- type~symba_pl&#45;&gt;type~symba_kinship -->
+<g id="type~~symba_pl~~InheritsGraph_edge1" class="edge">
+<title>type~symba_pl&#45;&gt;type~symba_kinship</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M486.79,-54C471.1,-54 451.1,-54 432.78,-54"/>
+<polygon fill="#000000" stroke="#000000" points="432.53,-50.5 422.53,-54 432.53,-57.5 432.53,-50.5"/>
+<text text-anchor="middle" x="461" y="-56.4" font-family="Helvetica,sans-Serif" font-size="9.50">kin</text>
 </g>
 <!-- type~symba_particle_info -->
 <g id="type~~symba_pl~~InheritsGraph_node4" class="node">
 <title>type~symba_particle_info</title>
 <g id="a_type~~symba_pl~~InheritsGraph_node4"><a xlink:href=".././type/symba_particle_info.html" xlink:title="symba_particle_info">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="416,-24 308,-24 308,0 416,0 416,-24"/>
-<text text-anchor="middle" x="362" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_particle_info</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="435,-24 327,-24 327,0 435,0 435,-24"/>
+<text text-anchor="middle" x="381" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_particle_info</text>
 </a>
 </g>
 </g>
 <!-- type~symba_pl&#45;&gt;type~symba_particle_info -->
 <g id="type~~symba_pl~~InheritsGraph_edge2" class="edge">
 <title>type~symba_pl&#45;&gt;type~symba_particle_info</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M568.9,-43C563.01,-41.24 556.82,-39.48 551,-38 510.14,-27.6 463.15,-21.1 426.37,-17.2"/>
-<polygon fill="#000000" stroke="#000000" points="426.59,-13.7 416.28,-16.17 425.88,-20.67 426.59,-13.7"/>
-<text text-anchor="middle" x="543" y="-40.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M486.79,-45.09C470.24,-39.86 448.87,-33.12 429.76,-27.08"/>
+<polygon fill="#000000" stroke="#000000" points="430.6,-23.68 420.01,-24 428.49,-30.35 430.6,-23.68"/>
+<text text-anchor="middle" x="461" y="-42.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
 </g>
 <!-- type~swiftest_pl -->
 <g id="type~~symba_pl~~InheritsGraph_node5" class="node">
 <title>type~swiftest_pl</title>
 <g id="a_type~~symba_pl~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="290,-64 228,-64 228,-40 290,-40 290,-64"/>
-<text text-anchor="middle" x="259" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="290,-108 228,-108 228,-84 290,-84 290,-108"/>
+<text text-anchor="middle" x="259" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
 </a>
 </g>
 </g>
 <!-- type~helio_pl&#45;&gt;type~swiftest_pl -->
 <g id="type~~symba_pl~~InheritsGraph_edge4" class="edge">
 <title>type~helio_pl&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" d="M448.2,-52C411.3,-52 343.85,-52 300.52,-52"/>
-<polygon fill="#000000" stroke="#000000" points="300.32,-48.5 290.32,-52 300.32,-55.5 300.32,-48.5"/>
+<path fill="none" stroke="#000000" d="M353.96,-96C338.29,-96 318.01,-96 300.3,-96"/>
+<polygon fill="#000000" stroke="#000000" points="300.22,-92.5 290.22,-96 300.22,-99.5 300.22,-92.5"/>
 </g>
-<!-- type~swiftest_base -->
+<!-- type~swiftest_body -->
 <g id="type~~symba_pl~~InheritsGraph_node6" class="node">
-<title>type~swiftest_base</title>
-<g id="a_type~~symba_pl~~InheritsGraph_node6"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-24 0,-24 0,0 77,0 77,-24"/>
-<text text-anchor="middle" x="38.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
+<title>type~swiftest_body</title>
+<g id="a_type~~symba_pl~~InheritsGraph_node6"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-108 114,-108 114,-84 191,-84 191,-108"/>
+<text text-anchor="middle" x="152.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
 </a>
 </g>
 </g>
-<!-- type~symba_particle_info&#45;&gt;type~swiftest_base -->
+<!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
 <g id="type~~symba_pl~~InheritsGraph_edge5" class="edge">
-<title>type~symba_particle_info&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M95,-12C92.51,-11.58 89.94,-11.24 87.34,-10.97"/>
-<polygon fill="#000000" stroke="#000000" points="87.47,-7.47 77.26,-10.29 87,-14.46 87.47,-7.47"/>
-<path fill="none" stroke="#000000" d="M307.77,-17.21C253.94,-21.27 168.57,-24.36 96,-12"/>
+<title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
+<path fill="none" stroke="#000000" d="M227.77,-96C219.45,-96 210.22,-96 201.17,-96"/>
+<polygon fill="#000000" stroke="#000000" points="201.09,-92.5 191.09,-96 201.09,-99.5 201.09,-92.5"/>
 </g>
-<!-- type~swiftest_body -->
+<!-- type~swiftest_base -->
 <g id="type~~symba_pl~~InheritsGraph_node7" class="node">
-<title>type~swiftest_body</title>
-<g id="a_type~~symba_pl~~InheritsGraph_node7"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-64 114,-64 114,-40 191,-40 191,-64"/>
-<text text-anchor="middle" x="152.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
+<title>type~swiftest_base</title>
+<g id="a_type~~symba_pl~~InheritsGraph_node7"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-108 0,-108 0,-84 77,-84 77,-108"/>
+<text text-anchor="middle" x="38.5" y="-93.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
-<g id="type~~symba_pl~~InheritsGraph_edge6" class="edge">
-<title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M227.77,-52C219.45,-52 210.22,-52 201.17,-52"/>
-<polygon fill="#000000" stroke="#000000" points="201.09,-48.5 191.09,-52 201.09,-55.5 201.09,-48.5"/>
-</g>
 <!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
-<g id="type~~symba_pl~~InheritsGraph_edge7" class="edge">
+<g id="type~~symba_pl~~InheritsGraph_edge6" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M133.43,-39.77C127.22,-35.48 120.26,-30.6 114,-26 105.83,-20 105.99,-13.7 96,-12"/>
+<path fill="none" stroke="#000000" d="M113.89,-96C105.4,-96 96.27,-96 87.41,-96"/>
+<polygon fill="#000000" stroke="#000000" points="87.2,-92.5 77.2,-96 87.2,-99.5 87.2,-92.5"/>
 </g>
 </g>
 </svg>
@@ -580,11 +574,11 @@ <h3 class="panel-title">Inherited by</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~symba_pl~~InheritedByGraph Pages: 1 -->
-<svg id="typesymba_plInheritedByGraph" width="469pt" height="32pt"
- viewBox="0.00 0.00 469.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<svg id="typesymba_plInheritedByGraph" width="377pt" height="32pt"
+ viewBox="0.00 0.00 377.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
 <g id="type~~symba_pl~~InheritedByGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
 <title>type~~symba_pl~~InheritedByGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 465,-28 465,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 373,-28 373,4 -4,4"/>
 <!-- type~symba_pl -->
 <g id="type~~symba_pl~~InheritedByGraph_node1" class="node">
 <title>type~symba_pl</title>
@@ -610,17 +604,17 @@ <h3 class="panel-title">Inherited by</h3>
 <g id="type~~symba_pl~~InheritedByGraph_node3" class="node">
 <title>type~symba_nbody_system</title>
 <g id="a_type~~symba_pl~~InheritedByGraph_node3"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="461,-24 342,-24 342,0 461,0 461,-24"/>
-<text text-anchor="middle" x="401.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="369,-24 250,-24 250,0 369,0 369,-24"/>
+<text text-anchor="middle" x="309.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~symba_nbody_system&#45;&gt;type~symba_merger -->
 <g id="type~~symba_pl~~InheritedByGraph_edge2" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~symba_merger</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M341.7,-12C296.31,-12 234.09,-12 190.5,-12"/>
-<polygon fill="#000000" stroke="#000000" points="190.4,-8.5 180.4,-12 190.4,-15.5 190.4,-8.5"/>
-<text text-anchor="middle" x="261" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">mergeadd_list, mergesub_list</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M250,-12C230.63,-12 209.22,-12 190.38,-12"/>
+<polygon fill="#000000" stroke="#000000" points="190.21,-8.5 180.21,-12 190.21,-15.5 190.21,-8.5"/>
+<text text-anchor="middle" x="215" y="-14.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl_adds</text>
 </g>
 </g>
 </svg>
@@ -780,7 +774,7 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_pl.html#variable-kin">kin</a>
       
-      <a class="list-group-item" href="../type/symba_pl.html#variable-info">info</a>
+      <a class="list-group-item" href="../type/symba_pl.html#variable-info~2">info</a>
       
     </div>
   </div>
@@ -1500,7 +1494,7 @@ <h2>Components</h2>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
-  <td><strong>lmtiny</strong></td><td></td><td></td><td><p>flag indicating whether this body is below the MTINY cutoff value</p></td>
+  <td><strong>lmtiny</strong></td><td></td><td></td><td><p>flag indicating whether this body is below the GMTINY cutoff value</p></td>
   
 </tr>
 
@@ -1514,7 +1508,7 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>nplm</strong></td><td></td><td></td><td><p>number of bodies above the MTINY limit</p></td>
+  <td><strong>nplm</strong></td><td></td><td></td><td><p>number of bodies above the GMTINY limit</p></td>
   
 </tr>
 
@@ -1528,7 +1522,7 @@ <h2>Components</h2>
   
   <td>public</td>
   <td></td><td>::</td>
-  <td><strong>nplplm</strong></td><td></td><td></td><td><p>Number of body (all massive)-body (only those above MTINY) comparisons in the flattened upper triangular matrix </p></td>
+  <td><strong>nplplm</strong></td><td></td><td></td><td><p>Number of body (all massive)-body (only those above GMTINY) comparisons in the flattened upper triangular matrix </p></td>
   
 </tr>
 
@@ -1650,7 +1644,7 @@ <h2>Components</h2>
   
 <tr>
   
-  <td><span class="anchor" id="variable-info"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  <td><span class="anchor" id="variable-info~2"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
   
   <td>public,</td>
   <td>dimension(:), allocatable</td><td>::</td>
@@ -1692,7 +1686,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -1744,21 +1738,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -5127,7 +5106,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/type/symba_pltpenc.html b/docs/type/symba_pltpenc.html
index 1a9f2bc9e..7ea9a0e3e 100644
--- a/docs/type/symba_pltpenc.html
+++ b/docs/type/symba_pltpenc.html
@@ -356,26 +356,10 @@ <h3 class="panel-title">Inherited by</h3>
 <polygon fill="none" stroke="black" points="85,-72 0,-72 0,-48 85,-48 85,-72"/>
 <text text-anchor="middle" x="42.5" y="-57.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_pltpenc</text>
 </g>
-<!-- type~symba_plplenc -->
-<g id="type~~symba_pltpenc~~InheritedByGraph_node2" class="node">
-<title>type~symba_plplenc</title>
-<g id="a_type~~symba_pltpenc~~InheritedByGraph_node2"><a xlink:href=".././type/symba_plplenc.html" xlink:title="symba_plplenc">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="206,-24 122,-24 122,0 206,0 206,-24"/>
-<text text-anchor="middle" x="164" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_plplenc</text>
-</a>
-</g>
-</g>
-<!-- type~symba_plplenc&#45;&gt;type~symba_pltpenc -->
-<g id="type~~symba_pltpenc~~InheritedByGraph_edge2" class="edge">
-<title>type~symba_plplenc&#45;&gt;type~symba_pltpenc</title>
-<path fill="none" stroke="#000000" d="M141.22,-24.01C134.73,-28.05 127.8,-32.86 122,-38 112.54,-46.38 116.41,-57.63 104,-60"/>
-<path fill="none" stroke="#000000" d="M103,-60C100.51,-60.48 97.96,-60.86 95.37,-61.17"/>
-<polygon fill="#000000" stroke="#000000" points="94.98,-57.69 85.3,-61.99 95.55,-64.66 94.98,-57.69"/>
-</g>
 <!-- type~symba_nbody_system -->
-<g id="type~~symba_pltpenc~~InheritedByGraph_node3" class="node">
+<g id="type~~symba_pltpenc~~InheritedByGraph_node2" class="node">
 <title>type~symba_nbody_system</title>
-<g id="a_type~~symba_pltpenc~~InheritedByGraph_node3"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
+<g id="a_type~~symba_pltpenc~~InheritedByGraph_node2"><a xlink:href=".././type/symba_nbody_system.html" xlink:title="symba_nbody_system">
 <polygon fill="#5cb85c" stroke="#5cb85c" points="409,-48 290,-48 290,-24 409,-24 409,-48"/>
 <text text-anchor="middle" x="349.5" y="-33.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_nbody_system</text>
 </a>
@@ -387,6 +371,15 @@ <h3 class="panel-title">Inherited by</h3>
 <path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M289.77,-40.53C229.03,-45.43 138.35,-53.44 104,-60"/>
 <text text-anchor="middle" x="164" y="-59.4" font-family="Helvetica,sans-Serif" font-size="9.50">pltpenc_list</text>
 </g>
+<!-- type~symba_plplenc -->
+<g id="type~~symba_pltpenc~~InheritedByGraph_node3" class="node">
+<title>type~symba_plplenc</title>
+<g id="a_type~~symba_pltpenc~~InheritedByGraph_node3"><a xlink:href=".././type/symba_plplenc.html" xlink:title="symba_plplenc">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="206,-24 122,-24 122,0 206,0 206,-24"/>
+<text text-anchor="middle" x="164" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_plplenc</text>
+</a>
+</g>
+</g>
 <!-- type~symba_nbody_system&#45;&gt;type~symba_plplenc -->
 <g id="type~~symba_pltpenc~~InheritedByGraph_edge3" class="edge">
 <title>type~symba_nbody_system&#45;&gt;type~symba_plplenc</title>
@@ -394,6 +387,13 @@ <h3 class="panel-title">Inherited by</h3>
 <polygon fill="#000000" stroke="#000000" points="216.55,-15.21 206.18,-17.39 215.65,-22.15 216.55,-15.21"/>
 <text text-anchor="middle" x="248" y="-28.4" font-family="Helvetica,sans-Serif" font-size="9.50">plplenc_list</text>
 </g>
+<!-- type~symba_plplenc&#45;&gt;type~symba_pltpenc -->
+<g id="type~~symba_pltpenc~~InheritedByGraph_edge2" class="edge">
+<title>type~symba_plplenc&#45;&gt;type~symba_pltpenc</title>
+<path fill="none" stroke="#000000" d="M141.22,-24.01C134.73,-28.05 127.8,-32.86 122,-38 112.54,-46.38 116.41,-57.63 104,-60"/>
+<path fill="none" stroke="#000000" d="M103,-60C100.51,-60.48 97.96,-60.86 95.37,-61.17"/>
+<polygon fill="#000000" stroke="#000000" points="94.98,-57.69 85.3,-61.99 95.55,-64.66 94.98,-57.69"/>
+</g>
 </g>
 </svg>
 </div><div><a type="button" class="graph-help" data-toggle="modal" href="#graph-help-text">Help</a></div><div class="modal fade" id="graph-help-text" tabindex="-1" role="dialog"><div class="modal-dialog modal-lg" role="document"><div class="modal-content"><div class="modal-header"><button type="button" class="close" data-dismiss="modal" aria-label="Close"><span aria-hidden="true">&times;</span></button><h4 class="modal-title" id="-graph-help-label">Graph Key</h4></div><div class="modal-body">
diff --git a/docs/type/symba_tp.html b/docs/type/symba_tp.html
index 6819ba37e..7cb76f3e3 100644
--- a/docs/type/symba_tp.html
+++ b/docs/type/symba_tp.html
@@ -134,7 +134,7 @@ <h1>symba_tp
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 3.0% of total for derived types.</p>Including implementation: 16 statements,  2.3% of total for derived types.">16 statements</a>
+    title="<p> 3.1% of total for derived types.</p>Including implementation: 17 statements,  2.4% of total for derived types.">17 statements</a>
      </li> 
      
      
@@ -239,6 +239,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_tp.html#variable-levelm~2">levelm</a>
       
+      <a class="list-group-item" href="../type/symba_tp.html#variable-info~3">info</a>
+      
     </div>
   </div>
 </div>
@@ -361,76 +363,92 @@ <h3 class="panel-title">Inherits</h3>
 <!-- Generated by graphviz version 2.47.1 (20210417.1919)
  -->
 <!-- Title: type~~symba_tp~~InheritsGraph Pages: 1 -->
-<svg id="typesymba_tpInheritsGraph" width="482pt" height="32pt"
- viewBox="0.00 0.00 482.00 32.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~symba_tp~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 28)">
+<svg id="typesymba_tpInheritsGraph" width="555pt" height="74pt"
+ viewBox="0.00 0.00 555.00 74.00" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~symba_tp~~InheritsGraph" class="graph" transform="scale(1 1) rotate(0) translate(4 70)">
 <title>type~~symba_tp~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-28 478,-28 478,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-70 551,-70 551,4 -4,4"/>
 <!-- type~symba_tp -->
 <g id="type~~symba_tp~~InheritsGraph_node1" class="node">
 <title>type~symba_tp</title>
-<polygon fill="none" stroke="black" points="474,-24 415,-24 415,0 474,0 474,-24"/>
-<text text-anchor="middle" x="444.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_tp</text>
+<polygon fill="none" stroke="black" points="547,-36 488,-36 488,-12 547,-12 547,-36"/>
+<text text-anchor="middle" x="517.5" y="-21.6" font-family="Helvetica,sans-Serif" font-size="10.50">symba_tp</text>
 </g>
 <!-- type~helio_tp -->
 <g id="type~~symba_tp~~InheritsGraph_node2" class="node">
 <title>type~helio_tp</title>
 <g id="a_type~~symba_tp~~InheritsGraph_node2"><a xlink:href=".././type/helio_tp.html" xlink:title="helio_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="379,-24 325,-24 325,0 379,0 379,-24"/>
-<text text-anchor="middle" x="352" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_tp</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="409,-66 355,-66 355,-42 409,-42 409,-66"/>
+<text text-anchor="middle" x="382" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">helio_tp</text>
 </a>
 </g>
 </g>
 <!-- type~symba_tp&#45;&gt;type~helio_tp -->
-<g id="type~~symba_tp~~InheritsGraph_edge1" class="edge">
+<g id="type~~symba_tp~~InheritsGraph_edge2" class="edge">
 <title>type~symba_tp&#45;&gt;type~helio_tp</title>
-<path fill="none" stroke="#000000" d="M414.87,-12C406.77,-12 397.84,-12 389.35,-12"/>
-<polygon fill="#000000" stroke="#000000" points="389.3,-8.5 379.3,-12 389.3,-15.5 389.3,-8.5"/>
+<path fill="none" stroke="#000000" d="M487.86,-30.44C467.75,-34.95 440.71,-41.03 419.12,-45.88"/>
+<polygon fill="#000000" stroke="#000000" points="418.31,-42.48 409.33,-48.08 419.85,-49.31 418.31,-42.48"/>
 </g>
-<!-- type~swiftest_tp -->
+<!-- type~symba_particle_info -->
 <g id="type~~symba_tp~~InheritsGraph_node3" class="node">
+<title>type~symba_particle_info</title>
+<g id="a_type~~symba_tp~~InheritsGraph_node3"><a xlink:href=".././type/symba_particle_info.html" xlink:title="symba_particle_info">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="436,-24 328,-24 328,0 436,0 436,-24"/>
+<text text-anchor="middle" x="382" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">symba_particle_info</text>
+</a>
+</g>
+</g>
+<!-- type~symba_tp&#45;&gt;type~symba_particle_info -->
+<g id="type~~symba_tp~~InheritsGraph_edge1" class="edge">
+<title>type~symba_tp&#45;&gt;type~symba_particle_info</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.86,-21.43C475.6,-20.32 460.75,-18.99 446.14,-17.68"/>
+<polygon fill="#000000" stroke="#000000" points="446.37,-14.18 436.1,-16.77 445.74,-21.15 446.37,-14.18"/>
+<text text-anchor="middle" x="462" y="-22.4" font-family="Helvetica,sans-Serif" font-size="9.50">info</text>
+</g>
+<!-- type~swiftest_tp -->
+<g id="type~~symba_tp~~InheritsGraph_node4" class="node">
 <title>type~swiftest_tp</title>
-<g id="a_type~~symba_tp~~InheritsGraph_node3"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="289,-24 226,-24 226,0 289,0 289,-24"/>
-<text text-anchor="middle" x="257.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
+<g id="a_type~~symba_tp~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="291,-66 228,-66 228,-42 291,-42 291,-66"/>
+<text text-anchor="middle" x="259.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
 </a>
 </g>
 </g>
 <!-- type~helio_tp&#45;&gt;type~swiftest_tp -->
-<g id="type~~symba_tp~~InheritsGraph_edge2" class="edge">
+<g id="type~~symba_tp~~InheritsGraph_edge3" class="edge">
 <title>type~helio_tp&#45;&gt;type~swiftest_tp</title>
-<path fill="none" stroke="#000000" d="M324.74,-12C316.76,-12 307.79,-12 299.09,-12"/>
-<polygon fill="#000000" stroke="#000000" points="299.08,-8.5 289.08,-12 299.08,-15.5 299.08,-8.5"/>
+<path fill="none" stroke="#000000" d="M354.85,-54C339.23,-54 319.05,-54 301.36,-54"/>
+<polygon fill="#000000" stroke="#000000" points="301.28,-50.5 291.28,-54 301.28,-57.5 301.28,-50.5"/>
 </g>
 <!-- type~swiftest_body -->
-<g id="type~~symba_tp~~InheritsGraph_node4" class="node">
+<g id="type~~symba_tp~~InheritsGraph_node5" class="node">
 <title>type~swiftest_body</title>
-<g id="a_type~~symba_tp~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="190,-24 113,-24 113,0 190,0 190,-24"/>
-<text text-anchor="middle" x="151.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
+<g id="a_type~~symba_tp~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-66 114,-66 114,-42 191,-42 191,-66"/>
+<text text-anchor="middle" x="152.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_tp&#45;&gt;type~swiftest_body -->
-<g id="type~~symba_tp~~InheritsGraph_edge3" class="edge">
+<g id="type~~symba_tp~~InheritsGraph_edge4" class="edge">
 <title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M225.86,-12C217.85,-12 209.02,-12 200.35,-12"/>
-<polygon fill="#000000" stroke="#000000" points="200.29,-8.5 190.29,-12 200.29,-15.5 200.29,-8.5"/>
+<path fill="none" stroke="#000000" d="M227.85,-54C219.49,-54 210.24,-54 201.17,-54"/>
+<polygon fill="#000000" stroke="#000000" points="201.08,-50.5 191.08,-54 201.08,-57.5 201.08,-50.5"/>
 </g>
 <!-- type~swiftest_base -->
-<g id="type~~symba_tp~~InheritsGraph_node5" class="node">
+<g id="type~~symba_tp~~InheritsGraph_node6" class="node">
 <title>type~swiftest_base</title>
-<g id="a_type~~symba_tp~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-24 0,-24 0,0 77,0 77,-24"/>
-<text text-anchor="middle" x="38.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
+<g id="a_type~~symba_tp~~InheritsGraph_node6"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-66 0,-66 0,-42 77,-42 77,-66"/>
+<text text-anchor="middle" x="38.5" y="-51.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
-<g id="type~~symba_tp~~InheritsGraph_edge4" class="edge">
+<g id="type~~symba_tp~~InheritsGraph_edge5" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M112.92,-12C104.69,-12 95.88,-12 87.31,-12"/>
-<polygon fill="#000000" stroke="#000000" points="87.04,-8.5 77.04,-12 87.04,-15.5 87.04,-8.5"/>
+<path fill="none" stroke="#000000" d="M113.89,-54C105.4,-54 96.27,-54 87.41,-54"/>
+<polygon fill="#000000" stroke="#000000" points="87.2,-50.5 77.2,-54 87.2,-57.5 87.2,-50.5"/>
 </g>
 </g>
 </svg>
@@ -547,6 +565,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/symba_tp.html#variable-levelm~2">levelm</a>
       
+      <a class="list-group-item" href="../type/symba_tp.html#variable-info~3">info</a>
+      
     </div>
   </div>
 </div>
@@ -1089,6 +1109,20 @@ <h2>Components</h2>
   
 </tr>
 
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" id="variable-info~3"></span>type(<a href='../type/symba_particle_info.html'>symba_particle_info</a>),</td>
+  
+  <td>public,</td>
+  <td>dimension(:), allocatable</td><td>::</td>
+  <td><strong>info</strong></td><td></td><td></td><td></td>
+  
+</tr>
+
 </tbody>
 </table>
 
@@ -1123,7 +1157,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -1175,21 +1209,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -4231,7 +4250,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/type/tides_derivs_func.html b/docs/type/tides_derivs_func.html
index 716800675..29fe0288b 100644
--- a/docs/type/tides_derivs_func.html
+++ b/docs/type/tides_derivs_func.html
@@ -134,7 +134,7 @@ <h1>tides_derivs_func
      <li><i class="fa fa-list-ol"></i>
        <a data-toggle="tooltip"
     data-placement="bottom" data-html="true"
-    title="<p> 1.9% of total for derived types.</p>Including implementation: 49 statements,  7.0% of total for derived types.">10 statements</a>
+    title="<p> 1.8% of total for derived types.</p>Including implementation: 49 statements,  7.0% of total for derived types.">10 statements</a>
      </li> 
      
      
diff --git a/docs/type/whm_cb.html b/docs/type/whm_cb.html
index 4cfab6802..405bc10ba 100644
--- a/docs/type/whm_cb.html
+++ b/docs/type/whm_cb.html
@@ -972,7 +972,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -1024,21 +1024,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
diff --git a/docs/type/whm_nbody_system.html b/docs/type/whm_nbody_system.html
index 00df4386f..e6571c72f 100644
--- a/docs/type/whm_nbody_system.html
+++ b/docs/type/whm_nbody_system.html
@@ -189,6 +189,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-tp_discards">tp_discards</a>
       
+      <a class="list-group-item" href="../type/whm_nbody_system.html#variable-pl_discards">pl_discards</a>
+      
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-gmtot">Gmtot</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-ke_orbit">ke_orbit</a>
@@ -259,6 +261,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-get_energy_and_momentum">get_energy_and_momentum</a>
       
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-rescale">rescale</a>
+      
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-validate_ids">validate_ids</a>
+      
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-initialize~4">initialize</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-step~7">step</a>
@@ -292,125 +298,125 @@ <h3 class="panel-title">Inherits</h3>
  -->
 <!-- Title: type~~whm_nbody_system~~InheritsGraph Pages: 1 -->
 <svg id="typewhm_nbody_systemInheritsGraph" width="641pt" height="109pt"
- viewBox="0.00 0.00 641.00 109.12" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
-<g id="type~~whm_nbody_system~~InheritsGraph" class="graph" transform="scale(0.88 0.88) rotate(0) translate(4 120.61)">
+ viewBox="0.00 0.00 641.00 108.59" xmlns="http://www.w3.org/2000/svg" xmlns:xlink="http://www.w3.org/1999/xlink">
+<g id="type~~whm_nbody_system~~InheritsGraph" class="graph" transform="scale(0.88 0.88) rotate(0) translate(4 120)">
 <title>type~~whm_nbody_system~~InheritsGraph</title>
-<polygon fill="white" stroke="transparent" points="-4,4 -4,-120.61 728,-120.61 728,4 -4,4"/>
+<polygon fill="white" stroke="transparent" points="-4,4 -4,-120 728,-120 728,4 -4,4"/>
 <!-- type~whm_nbody_system -->
 <g id="type~~whm_nbody_system~~InheritsGraph_node1" class="node">
 <title>type~whm_nbody_system</title>
-<polygon fill="none" stroke="black" points="724,-79.61 614,-79.61 614,-55.61 724,-55.61 724,-79.61"/>
-<text text-anchor="middle" x="669" y="-65.21" font-family="Helvetica,sans-Serif" font-size="10.50">whm_nbody_system</text>
+<polygon fill="none" stroke="black" points="724,-64 614,-64 614,-40 724,-40 724,-64"/>
+<text text-anchor="middle" x="669" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50">whm_nbody_system</text>
 </g>
 <!-- type~swiftest_nbody_system -->
 <g id="type~~whm_nbody_system~~InheritsGraph_node2" class="node">
 <title>type~swiftest_nbody_system</title>
 <g id="a_type~~whm_nbody_system~~InheritsGraph_node2"><a xlink:href=".././type/swiftest_nbody_system.html" xlink:title="swiftest_nbody_system">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="577,-79.61 454,-79.61 454,-55.61 577,-55.61 577,-79.61"/>
-<text text-anchor="middle" x="515.5" y="-65.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_nbody_system</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="577,-64 454,-64 454,-40 577,-40 577,-64"/>
+<text text-anchor="middle" x="515.5" y="-49.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_nbody_system</text>
 </a>
 </g>
 </g>
 <!-- type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system -->
 <g id="type~~whm_nbody_system~~InheritsGraph_edge1" class="edge">
 <title>type~whm_nbody_system&#45;&gt;type~swiftest_nbody_system</title>
-<path fill="none" stroke="#000000" d="M613.73,-67.61C605.1,-67.61 596.05,-67.61 587.11,-67.61"/>
-<polygon fill="#000000" stroke="#000000" points="587.07,-64.11 577.07,-67.61 587.07,-71.11 587.07,-64.11"/>
+<path fill="none" stroke="#000000" d="M613.73,-52C605.1,-52 596.05,-52 587.11,-52"/>
+<polygon fill="#000000" stroke="#000000" points="587.07,-48.5 577.07,-52 587.07,-55.5 587.07,-48.5"/>
 </g>
-<!-- type~swiftest_cb -->
+<!-- type~swiftest_tp -->
 <g id="type~~whm_nbody_system~~InheritsGraph_node3" class="node">
-<title>type~swiftest_cb</title>
-<g id="a_type~~whm_nbody_system~~InheritsGraph_node3"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="274,-113.61 209,-113.61 209,-89.61 274,-89.61 274,-113.61"/>
-<text text-anchor="middle" x="241.5" y="-99.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
+<title>type~swiftest_tp</title>
+<g id="a_type~~whm_nbody_system~~InheritsGraph_node3"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="355,-43 292,-43 292,-19 355,-19 355,-43"/>
+<text text-anchor="middle" x="323.5" y="-28.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
-<g id="type~~whm_nbody_system~~InheritsGraph_edge2" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M483.55,-79.64C469.25,-84.83 451.94,-90.62 436,-94.61 373.66,-110.21 356.14,-111.48 292,-107.61 289.47,-107.46 286.87,-107.26 284.24,-107.03"/>
-<polygon fill="#000000" stroke="#000000" points="284.44,-103.53 274.14,-106.02 283.74,-110.5 284.44,-103.53"/>
-<text text-anchor="middle" x="404.5" y="-109.01" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_tp -->
+<g id="type~~whm_nbody_system~~InheritsGraph_edge4" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.86,-45.3C424.94,-42.1 391.11,-38.36 365.3,-35.51"/>
+<polygon fill="#000000" stroke="#000000" points="365.44,-32 355.12,-34.38 364.67,-38.96 365.44,-32"/>
+<text text-anchor="middle" x="404.5" y="-44.4" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
 </g>
-<!-- type~swiftest_tp -->
+<!-- type~swiftest_base -->
 <g id="type~~whm_nbody_system~~InheritsGraph_node4" class="node">
-<title>type~swiftest_tp</title>
-<g id="a_type~~whm_nbody_system~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_tp.html" xlink:title="swiftest_tp">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="355,-98.61 292,-98.61 292,-74.61 355,-74.61 355,-98.61"/>
-<text text-anchor="middle" x="323.5" y="-84.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_tp</text>
+<title>type~swiftest_base</title>
+<g id="a_type~~whm_nbody_system~~InheritsGraph_node4"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-85 0,-85 0,-61 77,-61 77,-85"/>
+<text text-anchor="middle" x="38.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_tp -->
-<g id="type~~whm_nbody_system~~InheritsGraph_edge4" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_tp</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.86,-73.67C424.94,-76.57 391.11,-79.95 365.3,-82.53"/>
-<polygon fill="#000000" stroke="#000000" points="364.72,-79.07 355.12,-83.55 365.42,-86.04 364.72,-79.07"/>
-<text text-anchor="middle" x="404.5" y="-83.01" font-family="Helvetica,sans-Serif" font-size="9.50">tp, tp_discards</text>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_base -->
+<g id="type~~whm_nbody_system~~InheritsGraph_edge5" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M485.85,-64.11C471.17,-69.93 452.86,-76.58 436,-81 400.73,-90.25 391.35,-91.1 355,-94 248.23,-102.51 211.31,-138.76 114,-94 102.83,-88.86 108.29,-73.11 96,-73"/>
 </g>
 <!-- type~swiftest_pl -->
 <g id="type~~whm_nbody_system~~InheritsGraph_node5" class="node">
 <title>type~swiftest_pl</title>
 <g id="a_type~~whm_nbody_system~~InheritsGraph_node5"><a xlink:href=".././type/swiftest_pl.html" xlink:title="swiftest_pl">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="354.5,-56.61 292.5,-56.61 292.5,-32.61 354.5,-32.61 354.5,-56.61"/>
-<text text-anchor="middle" x="323.5" y="-42.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="354.5,-85 292.5,-85 292.5,-61 354.5,-61 354.5,-85"/>
+<text text-anchor="middle" x="323.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_pl</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_pl -->
 <g id="type~~whm_nbody_system~~InheritsGraph_edge3" class="edge">
 <title>type~swiftest_nbody_system&#45;&gt;type~swiftest_pl</title>
-<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.86,-60.27C424.75,-56.75 390.66,-52.62 364.79,-49.49"/>
-<polygon fill="#000000" stroke="#000000" points="364.94,-45.98 354.59,-48.25 364.1,-52.93 364.94,-45.98"/>
-<text text-anchor="middle" x="404.5" y="-59.01" font-family="Helvetica,sans-Serif" font-size="9.50">pl</text>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M453.86,-58.7C424.75,-61.92 390.66,-65.69 364.79,-68.55"/>
+<polygon fill="#000000" stroke="#000000" points="364.15,-65.1 354.59,-69.67 364.92,-72.05 364.15,-65.1"/>
+<text text-anchor="middle" x="404.5" y="-69.4" font-family="Helvetica,sans-Serif" font-size="9.50">pl, pl_discards</text>
 </g>
-<!-- type~swiftest_base -->
+<!-- type~swiftest_cb -->
 <g id="type~~whm_nbody_system~~InheritsGraph_node6" class="node">
-<title>type~swiftest_base</title>
-<g id="a_type~~whm_nbody_system~~InheritsGraph_node6"><a xlink:href=".././type/swiftest_base.html" xlink:title="swiftest_base">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="77,-56.61 0,-56.61 0,-32.61 77,-32.61 77,-56.61"/>
-<text text-anchor="middle" x="38.5" y="-42.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_base</text>
+<title>type~swiftest_cb</title>
+<g id="a_type~~whm_nbody_system~~InheritsGraph_node6"><a xlink:href=".././type/swiftest_cb.html" xlink:title="swiftest_cb">
+<polygon fill="#5cb85c" stroke="#5cb85c" points="274,-24 209,-24 209,0 274,0 274,-24"/>
+<text text-anchor="middle" x="241.5" y="-9.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_cb</text>
 </a>
 </g>
 </g>
-<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_base -->
-<g id="type~~whm_nbody_system~~InheritsGraph_edge5" class="edge">
-<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M95,-44.61C92.47,-44.65 89.88,-44.68 87.26,-44.7"/>
-<polygon fill="#000000" stroke="#000000" points="87.1,-41.2 77.12,-44.76 87.14,-48.2 87.1,-41.2"/>
-<path fill="none" stroke="#000000" d="M481.13,-55.57C449.24,-44.74 399.55,-29.64 355,-23.61 248.86,-9.24 211.31,21.15 114,-23.61 102.83,-28.75 108.29,-44.43 96,-44.61"/>
-</g>
-<!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
-<g id="type~~whm_nbody_system~~InheritsGraph_edge6" class="edge">
-<title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M208.77,-97.8C181.83,-93.39 143.03,-84.21 114,-65.61 103.65,-58.98 108.29,-44.61 96,-44.61"/>
+<!-- type~swiftest_nbody_system&#45;&gt;type~swiftest_cb -->
+<g id="type~~whm_nbody_system~~InheritsGraph_edge2" class="edge">
+<title>type~swiftest_nbody_system&#45;&gt;type~swiftest_cb</title>
+<path fill="none" stroke="#000000" stroke-dasharray="5,2" d="M487.37,-39.95C472.47,-33.76 453.5,-26.58 436,-22 373.87,-5.73 356.21,-8.7 292,-10 289.48,-10.05 286.89,-10.12 284.27,-10.19"/>
+<polygon fill="#000000" stroke="#000000" points="284.06,-6.7 274.18,-10.53 284.29,-13.69 284.06,-6.7"/>
+<text text-anchor="middle" x="404.5" y="-24.4" font-family="Helvetica,sans-Serif" font-size="9.50">cb</text>
 </g>
 <!-- type~swiftest_body -->
 <g id="type~~whm_nbody_system~~InheritsGraph_node7" class="node">
 <title>type~swiftest_body</title>
 <g id="a_type~~whm_nbody_system~~InheritsGraph_node7"><a xlink:href=".././type/swiftest_body.html" xlink:title="swiftest_body">
-<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-56.61 114,-56.61 114,-32.61 191,-32.61 191,-56.61"/>
-<text text-anchor="middle" x="152.5" y="-42.21" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
+<polygon fill="#5cb85c" stroke="#5cb85c" points="191,-85 114,-85 114,-61 191,-61 191,-85"/>
+<text text-anchor="middle" x="152.5" y="-70.6" font-family="Helvetica,sans-Serif" font-size="10.50" fill="white">swiftest_body</text>
 </a>
 </g>
 </g>
 <!-- type~swiftest_tp&#45;&gt;type~swiftest_body -->
-<g id="type~~whm_nbody_system~~InheritsGraph_edge7" class="edge">
+<g id="type~~whm_nbody_system~~InheritsGraph_edge6" class="edge">
 <title>type~swiftest_tp&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M291.99,-78.12C277.18,-74.42 259.05,-70.5 242.5,-68.61"/>
+<path fill="none" stroke="#000000" d="M303.16,-43.19C283.79,-55.01 255.11,-71.41 242.5,-73"/>
+<path fill="none" stroke="#000000" d="M240.5,-73C227.97,-74.58 214.35,-75.13 201.68,-75.15"/>
+<polygon fill="#000000" stroke="#000000" points="201.34,-71.64 191.31,-75.05 201.28,-78.64 201.34,-71.64"/>
 </g>
 <!-- type~swiftest_pl&#45;&gt;type~swiftest_body -->
-<g id="type~~whm_nbody_system~~InheritsGraph_edge8" class="edge">
+<g id="type~~whm_nbody_system~~InheritsGraph_edge7" class="edge">
 <title>type~swiftest_pl&#45;&gt;type~swiftest_body</title>
-<path fill="none" stroke="#000000" d="M299.85,-56.65C284.08,-63.72 262.38,-70.88 242.5,-68.61"/>
-<path fill="none" stroke="#000000" d="M240.5,-68.61C226.22,-66.98 211,-63.44 197.35,-59.56"/>
-<polygon fill="#000000" stroke="#000000" points="198.31,-56.2 187.73,-56.71 196.32,-62.91 198.31,-56.2"/>
+<path fill="none" stroke="#000000" d="M292.38,-71.22C277.34,-70.79 258.9,-70.93 242.5,-73"/>
+</g>
+<!-- type~swiftest_cb&#45;&gt;type~swiftest_base -->
+<g id="type~~whm_nbody_system~~InheritsGraph_edge8" class="edge">
+<title>type~swiftest_cb&#45;&gt;type~swiftest_base</title>
+<path fill="none" stroke="#000000" d="M208.76,-16.99C181.81,-22.35 143.01,-32.82 114,-52 103.75,-58.78 108.29,-73 96,-73"/>
+<path fill="none" stroke="#000000" d="M95,-73C92.47,-72.98 89.88,-72.96 87.26,-72.95"/>
+<polygon fill="#000000" stroke="#000000" points="87.13,-69.45 77.12,-72.91 87.1,-76.45 87.13,-69.45"/>
 </g>
 <!-- type~swiftest_body&#45;&gt;type~swiftest_base -->
 <g id="type~~whm_nbody_system~~InheritsGraph_edge9" class="edge">
 <title>type~swiftest_body&#45;&gt;type~swiftest_base</title>
-<path fill="none" stroke="#000000" d="M113.88,-44.61C107.9,-44.61 101.78,-44.61 96,-44.61"/>
+<path fill="none" stroke="#000000" d="M113.88,-73C107.9,-73 101.78,-73 96,-73"/>
 </g>
 </g>
 </svg>
@@ -600,6 +606,8 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-tp_discards">tp_discards</a>
       
+      <a class="list-group-item" href="../type/whm_nbody_system.html#variable-pl_discards">pl_discards</a>
+      
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-gmtot">Gmtot</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#variable-ke_orbit">ke_orbit</a>
@@ -670,6 +678,10 @@ <h3>Contents</h3>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-get_energy_and_momentum">get_energy_and_momentum</a>
       
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-rescale">rescale</a>
+      
+      <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-validate_ids">validate_ids</a>
+      
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-initialize~4">initialize</a>
       
       <a class="list-group-item" href="../type/whm_nbody_system.html#boundprocedure-step~7">step</a>
@@ -772,6 +784,20 @@ <h2>Components</h2>
   
   
   
+<tr>
+  
+  <td><span class="anchor" id="variable-pl_discards"></span>class(<a href='../type/swiftest_pl.html'>swiftest_pl</a>),</td>
+  
+  <td>public,</td>
+  <td>allocatable</td><td>::</td>
+  <td><strong>pl_discards</strong></td><td></td><td></td><td><p>Discarded massive body particle data structure</p></td>
+  
+</tr>
+
+  
+  
+  
+  
 <tr>
   
   <td><span class="anchor" id="variable-gmtot"></span>real(kind=DP),</td>
@@ -1194,7 +1220,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_system(self, param, msg)
+public module subroutine io_dump_system(self, param)
     
     
    
@@ -1246,21 +1272,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -1903,6 +1914,237 @@ <h4>Arguments</h4>
 
         
       
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-rescale"></span><h3>procedure, public :: <strong>rescale</strong>  => <a href='../interface/util_rescale_system.html'>util_rescale_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Rescales the system into a new set of units</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_rescale_system(self, param, mscale, dscale, tscale)
+    
+    
+   
+   <a href='../proc/util_rescale_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters. Returns with new values of the scale vactors and GU</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>mscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>dscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>real(kind=DP),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>tscale</strong></td><td><p>Scale factors for mass, distance, and time units, respectively. </p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
+      </li>
+    
+  </ul>
+</div>
+
+    
+     
+<div class="panel panel-default">
+  <div class="panel-heading codesum"><span class="anchor" id="boundprocedure-validate_ids"></span><h3>procedure, public :: <strong>validate_ids</strong>  => <a href='../interface/util_valid_id_system.html'>util_valid_id_system</a> 
+    
+  </h3></div>
+  
+  <div class="panel-body">
+    
+
+
+    <p>Validate the numerical ids passed to the system and save the maximum value</p>
+  </div>
+  
+  <ul class="list-group">
+    
+      <li class="list-group-item">
+      
+        
+          <h3>interface
+          
+          </h3>
+  
+          
+          
+    
+    <h3>
+public module subroutine util_valid_id_system(self, param)
+    
+    
+   
+   <a href='../proc/util_valid_id_system.html'><button type="button" class="btn btn-info depwarn">Implementation &rarr;</button></a>
+    
+</h3>
+    
+    
+    <h4>Arguments</h4>
+    
+      
+      
+<table class="table table-striped varlist">
+<thead><tr><th>Type</th>
+<th>Intent</th><th>Optional</th>
+<th>Attributes</th><th></th><th>Name</th><th></th></thead>
+
+
+
+<tbody>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_nbody_system.html'>swiftest_nbody_system</a>),</td>
+  <td>intent(inout)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>self</strong></td><td><p>Swiftest nbody system object</p></td>
+  
+</tr>
+
+  
+  
+  
+  
+<tr>
+  
+  <td><span class="anchor" ></span>class(<a href='../type/swiftest_parameters.html'>swiftest_parameters</a>),</td>
+  <td>intent(in)</td>
+  <td></td>
+  
+  <td></td><td>::</td>
+  <td><strong>param</strong></td><td><p>Current run configuration parameters</p></td>
+  
+</tr>
+
+</tbody>
+</table>
+
+      
+    
+    
+
+        
+      
       </li>
     
   </ul>
diff --git a/docs/type/whm_pl.html b/docs/type/whm_pl.html
index 9d362bc70..e756e5f5e 100644
--- a/docs/type/whm_pl.html
+++ b/docs/type/whm_pl.html
@@ -1447,7 +1447,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -1499,21 +1499,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -4214,7 +4199,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>
diff --git a/docs/type/whm_tp.html b/docs/type/whm_tp.html
index d91fd5136..cf5b3b99e 100644
--- a/docs/type/whm_tp.html
+++ b/docs/type/whm_tp.html
@@ -1116,7 +1116,7 @@ <h3>interface
           
     
     <h3>
-public module subroutine io_dump_swiftest(self, param, msg)
+public module subroutine io_dump_swiftest(self, param)
     
     
    
@@ -1168,21 +1168,6 @@ <h4>Arguments</h4>
   
 </tr>
 
-  
-  
-  
-  
-<tr>
-  
-  <td><span class="anchor" ></span>character(len=*),</td>
-  <td>intent(in),</td>
-  <td>optional</td>
-  
-  <td></td><td>::</td>
-  <td><strong>msg</strong></td><td><p>Message to display with dump operation</p></td>
-  
-</tr>
-
 </tbody>
 </table>
 
@@ -2766,7 +2751,7 @@ <h4>Arguments</h4>
   
   <td><span class="anchor" ></span>logical,</td>
   <td>intent(in),</td>
-  <td>optional</td>
+  <td></td>
   
   <td>dimension(:)</td><td>::</td>
   <td><strong>lsource_mask</strong></td><td><p>Logical mask indicating which elements to append to</p></td>